<!---
This file is Copyright � 1998-2009 by Home Care Business Services. This work may not be reproduced, in whole or in part, 
using any medium, including, but not limited to, electronic transmission, CD-ROM or published in print, without the express 
permission of Home Care Business Services.

$Revision: 1.2 $
$Id: CAHPS_CSV.cfm,v 1.2 2010/07/09 13:32:36 melissa Exp $
$Date: 2010/07/09 13:32:36 $
--->

<cfif isDefined("FORM.submit")>

 <cftry>

  <cfparam default='y' name='form.singlequotes' />
	<cfset SubmittedPatients=0>
  <cfset SampleYear = Left(#FORM.monthYear#, 4)>
  <cfset TotalPatients = #FORM.TotalPatients#>

  <cfquery  name="getAgencyInfo" datasource="#Application.DataSrc#">
   SELECT Agency_Name, CAHPS, Agency_Medicare_ID, Natl_Provider_ID, Agency_Branch_ID
         ,DATE_FORMAT('#FORM.monthYear#', "%m") AS trueMonth
   FROM #Request.prefix_db_lookup#.Agency
   WHERE  Agency_ID = '#session.AgencyId#'
  </cfquery>
	<cfoutput query="getAgencyInfo">
   <cfset CAHPSid = #getAgencyInfo.CAHPS#>
   <cfset AgencyNameOf = #getAgencyInfo.Agency_Name#>
   <cfset AgencyMedicareID = #getAgencyInfo.Agency_Medicare_ID#>
   <cfset AgencyProviderID = #getAgencyInfo.Natl_Provider_ID#>
   <cfset AgencyBranchID = #getAgencyInfo.Agency_Branch_ID#>
   <cfset SampleMonth = #getAgencyInfo.trueMonth#>
	</cfoutput>

	<cfloop list=#Form["ScheduleItems_ID[]"]# index="ListItem" delimiters=",;">
<!--- JDB: Don't do the Query anymore... Not Needed... but still do SubmittedPatients++
		<cfquery  name="AgencyName" datasource="#Application.DataSrc#">
		 SELECT 
		 FROM   #Request.prefix_db_agency#.ScheduleItems 
			INNER JOIN #Request.prefix_db_agency#.patient ON ScheduleItems.Patient_ID = patient.Patient_ID 
			INNER JOIN #Request.prefix_db_lookup#.Employee ON ScheduleItems.Employee_ID = Employee.Employee_ID
			INNER JOIN #Request.prefix_db_agency#.Assessment_New ON ScheduleItems.Assessment_Tracker_ID = Assessment_New.Assessment_Tracker_ID
			INNER JOIN #Request.prefix_db_lookup#.Agency ON ScheduleItems.Agency_ID = Agency.Agency_ID
		 WHERE  ScheduleItems.Agency_ID = '#session.AgencyID#'	
			 AND	patient.Patient_ID = '#ListItem#'
		 GROUP BY patient.Patient_ID
		</cfquery>
--->
		<cfset SubmittedPatients = #SubmittedPatients# + 1 />
	</cfloop>
	
	<cfset csvFileContent = "">
<!--- JDB: Don't print the Header here anymore... Make 'em Columns instead
	<cfset csvFileContent=",,,,,,,,,,,,,,,,,,,,,,,,,"& chr(13)& chr(10)>
	<cfset csvFileContent="#csvFileContent#""CAHPS Information Layout"",,,,,,,,,,,,,,,,,,,,,,,,,"& chr(13)& chr(10)>
	<cfset csvFileContent="#csvFileContent#""Provider Name: #AgencyNameOf#"",,,,,""Sample Month: #SampleMonth#"",,,,,,,,,,,,,,,,,,,,"& chr(13)& chr(10)>
	<cfset csvFileContent="#csvFileContent#""CMS Certification Number: #AgencyMedicareID#"",,,,,""Sample Year: #SampleYear#"",,,,,,,,,,,,,,,,,,,,"& chr(13)& chr(10)>
	<cfset csvFileContent="#csvFileContent#""NPI: #AgencyProviderID#"",,,,,""Submitted Patients: #SubmittedPatients# of #TotalPatients# "",,,,,,,,,,,,,,,,,,,,"& chr(13)& chr(10)>
	<cfset csvFileContent="#csvFileContent#,,,,,,,,,,,,,,,,,,,,,,,,,"& chr(13)& chr(10)>
--->
		
	<cfset TemplatePath="#getDirectoryFromPath(getCurrentTemplatePath())#CSVTemplate/#CAHPSid#.csv">
	
  <cfif #FileExists(TemplatePath)# eq "YES">
   <cffile action = "read"
           file = "#getDirectoryFromPath(getCurrentTemplatePath())#CSVTemplate/#CAHPSid#.csv"
           variable = "csvHeaderTemplate"
   >
  <cfelse>
   <cffile action = "read"
           file = "#getDirectoryFromPath(getCurrentTemplatePath())#CSVTemplate/Default.csv"
					 variable="csvHeaderTemplate"
   >
  </cfif>

  <!--- JDB:  Set default and transformations for certain data fields based on Vendor requirements... --->

  <cfset date4mat = "mmddyyyy" />

   <cfif CAHPSid eq '81'> <!--- Press Ganey --->
    <cfset date4mat = "mm/dd/yyyy" />
   <cfelseif CAHPSid eq '58'> <!--- Arbor Associates --->
	<cfset date4mat = "mmddyyyy" />
   </cfif>


  <cfset PaySrcMissing = "M" />

   <cfif CAHPSid eq '81'> <!--- Press Ganey --->
    <cfset PaySrcMissing = "0" />
   </cfif>
   <cfif CAHPSid eq '79'> <!--- OCS HomeCare --->
    <cfset PaySrcMissing = "0" />
   </cfif>


  <cfset AdmissionMissing = "M" />

   <cfif CAHPSid eq '81'> <!--- Press Ganey --->
    <cfset AdmissionMissing = "0" />
   </cfif>
   <cfif CAHPSid eq '79'> <!--- OCS HomeCare --->
    <cfset AdmissionMissing = "0" />
   </cfif>


  <cfset LanguageNum = '0' />

   <cfif CAHPSid eq '66'> <!--- DSS --->
    <cfset LanguageNum = '1' />
   </cfif>
   <cfif CAHPSid eq '79'> <!--- OCS HomeCare --->
    <cfset LanguageNum = '1' />
   </cfif>


  <cfset EOR = "$" /> <!--- End of Record indidicator - Normally just CRLF, but use this IF needed --->


 <!---
  <cfoutput>#csvHeaderTemplate#</cfoutput>
 --->

  <cfset csvFileContent="#csvFileContent##csvHeaderTemplate#">

	<cfset SkilledVisitTotal = 0 />

  <cfset ctr = 0 />

	<cfloop list=#Form["ScheduleItems_ID[]"]# index="ListItem" delimiters=",;">
   <cfset ctr = ctr + 1 />
	 <cfquery  name="SkilledVisitsTotal" datasource="#Application.DataSrc#">
		SELECT COUNT(*) as SkilledVisitsTotalCount
		FROM #Request.prefix_db_agency#.ScheduleItems 
			INNER JOIN #Request.prefix_db_agency#.patient ON ScheduleItems.Patient_ID = patient.Patient_ID 
			INNER JOIN #Request.prefix_db_lookup#.Employee ON ScheduleItems.Employee_ID = Employee.Employee_ID
			INNER JOIN #Request.prefix_db_agency#.Assessment_New ON ScheduleItems.Assessment_Tracker_ID = Assessment_New.Assessment_Tracker_ID
			INNER JOIN #Request.prefix_db_lookup#.Agency ON ScheduleItems.Agency_ID = Agency.Agency_ID
		WHERE ScheduleItems.Agency_ID = #session.AgencyID#	
			AND	patient.Patient_ID = #ListItem#
			AND ScheduleItems.Visit_Date > '#FORM.monthYear#'
			AND ScheduleItems.Visit_Date < DATE_ADD('#FORM.monthYear#', INTERVAL 1 MONTH)
			GROUP BY patient.Patient_ID 
	 </cfquery>
		
		<cfoutput query="SkilledVisitsTotal">
			<cfset SkilledVisitTotal = #SkilledVisitsTotalCount#>
		</cfoutput>

<cfif ctr eq 1

    and   1  eq  2 

>
 <cfmail 
  from="errors@myhomecarebiz.com"
  to="john@jnetdev.com"
  failto="john.byrne@forensicprogrammers.com"
  subject="CAHPS"
  type="text"
 >
  <cfoutput>
		SELECT 
		  patient.First_Name_M0040
		 ,patient.Middle_Initial_M0040
		 ,patient.Last_Name_M0040
		 ,patient.Suffix_M0040
		 ,patient.Street_Address
		 ,patient.Mailing_Address
		 ,patient.City
		 ,patient.State_M0050
		 ,patient.Zip_M0060
		 ,patient.Gender_M0069
		 ,patient.DOB_M0066
		 ,patient.Telephone
		 ,patient.Agency_Assigned_ID
		 ,patient.Current_Payment_Sources_M0150
		 ,patient.Medicare_Number_M0063
		 ,patient.Medicaid_Number_M0065
		 ,patient.Financial_Factors_M0150
		 ,ScheduleItems.Visit_Type
		 ,Assessment_New.Source_of_Admission
		 ,Assessment_New.Assessment_Reason_M0100
		 ,Assessment_New.Start_of_Care_M0030 
		 ,Assessment_New.Date_Discharge_M0906
		 ,Assessment_New.Discharged_From_M0175
		 ,Assessment_New.HHRG_175_Score
		 ,Assessment_New.HHRG_230_Score 
		 ,Assessment_New.HHRG_250_Score
		 ,Assessment_New.HHRG_390_Score 
		 ,Assessment_New.HHRG_420_Score
		 ,Assessment_New.HHRG_440_Score
		 ,Assessment_New.Dress_Upper_M0650
		 ,Assessment_New.Dress_Lower_M0660
		 ,Assessment_New.Bathing_M0670
		 ,Assessment_New.M1840_Toilet
		 ,Assessment_New.Transferring_M0690
		 ,Assessment_New.Eating_M0710
		 ,Assessment_New.M1016_DX_NA
		 ,Assessment_New.Grooming_M0640
		 ,Assessment_New.Dress_Upper_M0650
		 ,Assessment_New.Dress_Lower_M0660
		 ,Assessment_New.Bathing_M0670
		 ,Assessment_New.Toileting_M0680
		 ,Assessment_New.Transferring_M0690
		 ,Assessment_New.Ambulation_M0700
		 ,Assessment_New.Eating_M0710
		 ,Assessment_New.Meal_Prep_M0720
		 ,Assessment_New.Transport_M0730 
		 ,Assessment_New.Laundry_M0740
		 ,Assessment_New.Shopping_M0760 
		 ,Assessment_New.Housekeeping_M0750
		 ,Assessment_New.Use_Phone_M0770
		 ,Assessment_New.M1845_Toilet
		 ,COUNT(*) as LookBack
		FROM #Request.prefix_db_agency#.ScheduleItems 
			INNER JOIN #Request.prefix_db_agency#.patient ON ScheduleItems.Patient_ID = patient.Patient_ID 
			INNER JOIN #Request.prefix_db_lookup#.Employee ON ScheduleItems.Employee_ID = Employee.Employee_ID
			INNER JOIN #Request.prefix_db_agency#.Assessment_New ON ScheduleItems.Assessment_Tracker_ID = Assessment_New.Assessment_Tracker_ID
			INNER JOIN #Request.prefix_db_lookup#.Agency ON ScheduleItems.Agency_ID = Agency.Agency_ID
		WHERE ScheduleItems.Agency_ID = #session.AgencyID#	
			AND	patient.Patient_ID = #ListItem#
			AND ScheduleItems.Visit_Date > DATE_SUB('#FORM.monthYear#', INTERVAL 1 MONTH)
			AND ScheduleItems.Visit_Date < DATE_ADD('#FORM.monthYear#', INTERVAL 1 MONTH)
		  AND	ScheduleItems.Visit_Type IN ('Assessment','Admission Visit','Re-Certification Visit','1 - Start of Care - further visits planned','4 - Recertification (follow-up) reassessment')
		  And Assessment_New.Assessment_Reason_M0100 IN ('1 - Start of Care - further visits planned','4 - Recertification (follow-up) reassessment')
			AND Assessment_New.Deleted = 0
			AND ScheduleItems.Deleted = 0
		  AND	ScheduleItems.EClaimed = 0
			GROUP BY patient.Patient_ID
  </cfoutput>
 </cfmail>
</cfif>

   <cfquery  name="GetP" datasource="#Application.DataSrc#">
		SELECT 
		  patient.First_Name_M0040
		 ,patient.Middle_Initial_M0040
		 ,patient.Last_Name_M0040
		 ,patient.Suffix_M0040
		 ,patient.Street_Address
		 ,patient.Mailing_Address
		 ,patient.City
		 ,patient.State_M0050
		 ,patient.Zip_M0060
		 ,patient.Gender_M0069
		 ,patient.DOB_M0066
		 ,patient.Telephone
		 ,patient.Agency_Assigned_ID
		 ,patient.Current_Payment_Sources_M0150
		 ,patient.Medicare_Number_M0063
		 ,patient.Medicaid_Number_M0065
		 ,patient.Financial_Factors_M0150
		 ,ScheduleItems.Visit_Type
		 ,Assessment_New.Source_of_Admission
		 ,Assessment_New.Assessment_Reason_M0100
		 ,Assessment_New.Start_of_Care_M0030 
		 ,Assessment_New.Date_Discharge_M0906
		 ,Assessment_New.Discharged_From_M0175
		 ,Assessment_New.HHRG_175_Score
		 ,Assessment_New.HHRG_230_Score 
		 ,Assessment_New.HHRG_250_Score
		 ,Assessment_New.HHRG_390_Score 
		 ,Assessment_New.HHRG_420_Score
		 ,Assessment_New.HHRG_440_Score
		 ,Assessment_New.Dress_Upper_M0650
		 ,Assessment_New.Dress_Lower_M0660
		 ,Assessment_New.Bathing_M0670
		 ,Assessment_New.M1840_Toilet
		 ,Assessment_New.Transferring_M0690
		 ,Assessment_New.Eating_M0710
		 ,Assessment_New.M1016_DX_NA
		 ,Assessment_New.Grooming_M0640
		 ,Assessment_New.Dress_Upper_M0650
		 ,Assessment_New.Dress_Lower_M0660
		 ,Assessment_New.Bathing_M0670
		 ,Assessment_New.Toileting_M0680
		 ,Assessment_New.Transferring_M0690
		 ,Assessment_New.Ambulation_M0700
		 ,Assessment_New.Eating_M0710
		 ,Assessment_New.Meal_Prep_M0720
		 ,Assessment_New.Transport_M0730 
		 ,Assessment_New.Laundry_M0740
		 ,Assessment_New.Shopping_M0760 
		 ,Assessment_New.Housekeeping_M0750
		 ,Assessment_New.Use_Phone_M0770
		 ,Assessment_New.M1845_Toilet
		 ,COUNT(*) as LookBack
		FROM #Request.prefix_db_agency#.ScheduleItems 
			INNER JOIN #Request.prefix_db_agency#.patient ON ScheduleItems.Patient_ID = patient.Patient_ID 
			INNER JOIN #Request.prefix_db_lookup#.Employee ON ScheduleItems.Employee_ID = Employee.Employee_ID
			INNER JOIN #Request.prefix_db_agency#.Assessment_New ON ScheduleItems.Assessment_Tracker_ID = Assessment_New.Assessment_Tracker_ID
			INNER JOIN #Request.prefix_db_lookup#.Agency ON ScheduleItems.Agency_ID = Agency.Agency_ID
		WHERE ScheduleItems.Agency_ID = #session.AgencyID#	
			AND	patient.Patient_ID = #ListItem#
			AND ScheduleItems.Visit_Date > DATE_SUB('#FORM.monthYear#', INTERVAL 1 MONTH)
			AND ScheduleItems.Visit_Date < DATE_ADD('#FORM.monthYear#', INTERVAL 1 MONTH)
			AND Assessment_New.Deleted = 0
			AND ScheduleItems.Deleted = 0
<!--- JDB: Don't check EClaimed for now...
		AND	(ScheduleItems.EClaimed = 0)
--->
<!---	JDB: GROUP BY Patient.Patient_ID,  ScheduleItems.Assessment_Tracker_ID --->
			GROUP BY patient.Patient_ID
		</cfquery>
		
		<cfoutput query="GetP">
		
			<cfset Gender="M">
			<cfif #Gender_M0069# eq "">
			<cfelse>
				<cfset Gender=#LEFT(Gender_M0069, 1)#>
			</cfif>

			<cfset HMO="M">
			<cfif #find("HMO",UCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset HMO="1">
			<cfelse>
				<cfset HMO="2">
			</cfif>
			
			<!---
			MedEligible
			So If Financial_Factors_M0150 is like "medicare" and like "medicaid"
			answer will be 1
			if just medicare or just medicaid... 2
			if neither 3
			if blank M
			--->
			<cfset MedEligible="M">
			<cfif #Financial_Factors_M0150# eq "">
				<cfset MedEligible="M">
			<cfelseif #find("medicaid",LCase(Financial_Factors_M0150))# gt 0 AND #find("medicare",LCase(Financial_Factors_M0150))# gt 0>
				<cfset MedEligible="1">
			<cfelseif #find("medicaid",LCase(Financial_Factors_M0150))# gt 0 AND #find("medicare",LCase(Financial_Factors_M0150))# eq 0>
				<cfset MedEligible="2">
			<cfelseif #find("medicaid",LCase(Financial_Factors_M0150))# eq 0 AND #find("medicare",LCase(Financial_Factors_M0150))# gt 0>
				<cfset MedEligible="2">
			<cfelseif #find("medicaid",LCase(Financial_Factors_M0150))# eq 0 AND #find("medicare",LCase(Financial_Factors_M0150))# eq 0>
				<cfset MedEligible="3">
			</cfif>

			<!---
			If Financial_Factors_M0150 is like "medicare", answer will be 1
			if like Medicaid (and NO medicare) answer will be 2
			if NO medicaid and NO medicare and NO self pay, answer will be 3
			if self pay only - 4
			if its blank it will be "M" for missing
			--->
			<cfset PayerHMO="M">
			<cfif #Financial_Factors_M0150# eq "">
				<cfset PayerHMO="M">
			<cfelseif #find("medicare",LCase(Financial_Factors_M0150))# gt 0>
				<cfset PayerHMO="1">
			<cfelseif #find("medicaid",LCase(Financial_Factors_M0150))# gt 0 AND #find("medicare",LCase(Financial_Factors_M0150))# eq 0>
				<cfset PayerHMO="2">
			<cfelseif #find("medicaid",LCase(Financial_Factors_M0150))# eq 0 AND #find("medicare",LCase(Financial_Factors_M0150))# eq 0 AND #find("self pay",LCase(Financial_Factors_M0150))# eq 0>
				<cfset PayerHMO="3">
			<cfelseif #find("medicaid",LCase(Financial_Factors_M0150))# eq 0 AND #find("medicare",LCase(Financial_Factors_M0150))# eq 0 AND #find("self pay",LCase(Financial_Factors_M0150))# > 0>
				<cfset PayerHMO="4">
			</cfif>


					<!---
		Set PaySrc None			
					--->

			<cfset PaySrc0 = PaySrcMissing>
			<cfif #find("0",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrc0="1">
			</cfif>
			
					<!---
		Set PaySrc Medicare		
					--->
	
			<cfset PaySrc1 = PaySrcMissing>
			<cfif #find("medicare",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrc1="1">
			</cfif>

					<!---
		Set PaySrc MedicareHMO		
					--->
	
			<cfset PaySrc2 = PaySrcMissing>
			<cfif #find("2",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrc2="1">
			</cfif>


					<!---
		Set PaySrc Medicaid		
					--->
	
			<cfset PaySrc3 = PaySrcMissing>
			<cfif #find("3",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrc3="1">
			</cfif>

					<!---
		Set PaySrc MedicaidHMO		
					--->
	
			<cfset PaySrc4 = PaySrcMissing>
			<cfif #find("4",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrc4="1">
			</cfif>

					<!---
		Set PaySrc WorkComp		
					--->
	
			<cfset PaySrc5 = PaySrcMissing>
			<cfif #find("5",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrc5="1">
			</cfif>

					<!---
		Set PaySrc Title		
					--->
	
			<cfset PaySrc6 = PaySrcMissing>
			<cfif #find("6",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrc6="1">
			</cfif>

					<!---
		Set PaySrc OtherGov	
					--->
	
			<cfset PaySrc7 = PaySrcMissing>
			<cfif #find("7",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrc7="1">
			</cfif>

						<!---
		Set PaySrc PvtInsur	
					--->
	
			<cfset PaySrc8 = PaySrcMissing>
			<cfif #find("8",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrc8="1">
			</cfif>
			
					<!---
		Set PaySrc PvtHMO	
					--->
	
			<cfset PaySrc9 = PaySrcMissing>
			<cfif #find("9",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrc9="1">
			</cfif>

					<!---
		Set PaySrc Self	
					--->
	
			<cfset PaySrc10 = PaySrcMissing>
			<cfif #find("10",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrc10="1">
			</cfif>

					<!---
		Set PaySrc Other	
					--->
	
			<cfset PaySrc11 = PaySrcMissing>
			<cfif #find("11",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrc11="1">
			</cfif>

					<!---
		Set PaySrc Unknown	
					--->
	
			<cfset PaySrcUK = PaySrcMissing>
			<cfif #find("Unknown",LCase(Current_Payment_Sources_M0150))# gt 0>
				<cfset PaySrcUK="1">
			</cfif>
			
					<!--- Discharged_From_M0175 Set AdmissionSource --->
			<cfset AdmissionSource = AdmissionMissing>
			<cfif #LEFT(Discharged_From_M0175,1)# GT 0 AND #LEFT(Discharged_From_M0175,1)# LT 7>
				<cfset AdmissionSource = #LEFT(Discharged_From_M0175,1)#>
			</cfif>

					<!--- Nursing Facility --->
			<cfset AdmissionSourceNF = AdmissionMissing>
			<cfif #find("1",LCase(Discharged_From_M0175))# gt 0>
				<cfset AdmissionSourceNF="1">
			</cfif>

					<!--- Skilled Nursing Facility --->
			<cfset AdmissionSourceSNF = AdmissionMissing>
			<cfif #find("2",LCase(Discharged_From_M0175))# gt 0>
				<cfset AdmissionSourceSNF="1">
			</cfif>

			<cfset AdmissionSourceIPPS = AdmissionMissing>
			<cfif #find("3",LCase(Discharged_From_M0175))# gt 0>
				<cfset AdmissionSourceIPPS="1">
			</cfif>
	
			<cfset AdmissionSourceLTCH = AdmissionMissing>
			<cfif #find("4",LCase(Discharged_From_M0175))# gt 0>
				<cfset AdmissionSourceLTCH="1">
			</cfif>

			<cfset AdmissionSourceIRF = AdmissionMissing>
			<cfif #find("5",LCase(Discharged_From_M0175))# gt 0>
				<cfset AdmissionSourceIRF="1">
			</cfif>

			<cfset AdmissionSourcePsych = AdmissionMissing>
			<cfif #find("6",LCase(Discharged_From_M0175))# gt 0>
				<cfset AdmissionSourcePsych="1">
			</cfif>
	
			<cfset AdmissionSourceOther = AdmissionMissing>
			<cfif #find("7",LCase(Discharged_From_M0175))# gt 0>
				<cfset AdmissionSourceOther="1">
			</cfif>

			<cfset AdmissionSourceNone = AdmissionMissing>
			<cfif #find("NA -",LCase(Discharged_From_M0175))# gt 0>
				<cfset AdmissionSourceNone="1">
			</cfif>
		
         <!---
    End Stage Renal Disease
         --->

      <cfset esrd = "2" />
      <cfif #find("N18.6", LCASE(HHRG_175_Score))# gt 0
         or #find("N18.6", LCASE(HHRG_230_Score))# gt 0
         or #find("N18.6", LCASE(HHRG_250_Score))# gt 0
         or #find("N18.6", LCASE(HHRG_390_Score))# gt 0
         or #find("N18.6", LCASE(HHRG_420_Score))# gt 0
         or #find("N18.6", LCASE(HHRG_440_Score))# gt 0
         or #find("585.6", LCASE(HHRG_175_Score))# gt 0
         or #find("585.6", LCASE(HHRG_230_Score))# gt 0
         or #find("585.6", LCASE(HHRG_250_Score))# gt 0
         or #find("585.6", LCASE(HHRG_390_Score))# gt 0
         or #find("585.6", LCASE(HHRG_420_Score))# gt 0
         or #find("585.6", LCASE(HHRG_440_Score))# gt 0
			>
       <cfset esrd = "1" />
      </cfif>

		<!---
			for these fields: Grooming_M0640, Dress_Upper_M0650, Dress_Lower_M0660, Bathing_M0670, Toileting_M0680, Transferring_M0690, Ambulation_M0700, 
			Eating_M0710, Meal_Prep_M0720, Transport_M0730, Laundry_M0740, Shopping_M0760, Housekeeping_M0750, Use_Phone_M0770, M1845_Toilet
			if the left-justified number > 0 (and not blank) - that is counted as a deficit towards the total deficits for this patient
			--->

			<cfset ADLDeficits = 0 />

<!--- JDB: Don't add the "value" of each deficit anymore, just add 1 to ADLDeficits for each deficit > 0
			<cfif #LEFT(Grooming_M0640, 1)# neq "" AND IsNumeric(#LEFT(Grooming_M0640, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Grooming_M0640, 1)#>
			</cfif>
			<cfif #LEFT(Dress_Upper_M0650, 1)# neq "" AND IsNumeric(#LEFT(Dress_Upper_M0650, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Dress_Upper_M0650, 1)#>
			</cfif>
			<cfif #LEFT(Dress_Lower_M0660, 1)# neq "" AND IsNumeric(#LEFT(Dress_Lower_M0660, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Dress_Lower_M0660, 1)#>
			</cfif>
			<cfif #LEFT(Bathing_M0670, 1)# neq "" AND IsNumeric(#LEFT(Bathing_M0670, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Bathing_M0670, 1)#>
			</cfif>
			<cfif #LEFT(Toileting_M0680, 1)# neq "" AND IsNumeric(#LEFT(Toileting_M0680, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Toileting_M0680, 1)#>
			</cfif>
			<cfif #LEFT(Transferring_M0690, 1)# neq "" AND IsNumeric(#LEFT(Transferring_M0690, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Transferring_M0690, 1)#>
			</cfif>
			<cfif #LEFT(Ambulation_M0700, 1)# neq "" AND IsNumeric(#LEFT(Ambulation_M0700, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Ambulation_M0700, 1)#>
			</cfif>
			<cfif #LEFT(Eating_M0710, 1)# neq "" AND IsNumeric(#LEFT(Eating_M0710, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Eating_M0710, 1)#>
			</cfif>
			<cfif #LEFT(Meal_Prep_M0720, 1)# neq "" AND IsNumeric(#LEFT(Meal_Prep_M0720, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Meal_Prep_M0720, 1)#>
			</cfif>
			<cfif #LEFT(Transport_M0730, 1)# neq "" AND IsNumeric(#LEFT(Transport_M0730, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Transport_M0730, 1)#>
			</cfif>
			<cfif #LEFT(Laundry_M0740, 1)# neq "" AND IsNumeric(#LEFT(Laundry_M0740, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Laundry_M0740, 1)#>
			</cfif>
			<cfif #LEFT(Shopping_M0760, 1)# neq "" AND IsNumeric(#LEFT(Shopping_M0760, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Shopping_M0760, 1)#>
			</cfif>
			<cfif #LEFT(Housekeeping_M0750, 1)# neq "" AND IsNumeric(#LEFT(Housekeeping_M0750, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Housekeeping_M0750, 1)#>
			</cfif>
			<cfif #LEFT(Use_Phone_M0770, 1)# neq "" AND IsNumeric(#LEFT(Use_Phone_M0770, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(Use_Phone_M0770, 1)#>
			</cfif>
			<cfif #LEFT(M1845_Toilet, 1)# neq "" AND IsNumeric(#LEFT(M1845_Toilet, 1)#)>
				<cfset ADLDeficits=#ADLDeficits#+#LEFT(M1845_Toilet, 1)#>
			</cfif>
--->
			<cfif #LEFT(Grooming_M0640, 1)# neq "" AND IsNumeric(#LEFT(Grooming_M0640, 1)#) AND #LEFT(Grooming_M0640, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Dress_Upper_M0650, 1)# neq "" AND IsNumeric(#LEFT(Dress_Upper_M0650, 1)#) AND #LEFT(Dress_Upper_M0650, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Dress_Lower_M0660, 1)# neq "" AND IsNumeric(#LEFT(Dress_Lower_M0660, 1)#) AND #LEFT(Dress_Lower_M0660, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Bathing_M0670, 1)# neq "" AND IsNumeric(#LEFT(Bathing_M0670, 1)#) AND #LEFT(Bathing_M0670, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Toileting_M0680, 1)# neq "" AND IsNumeric(#LEFT(Toileting_M0680, 1)#) AND #LEFT(Toileting_M0680, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Transferring_M0690, 1)# neq "" AND IsNumeric(#LEFT(Transferring_M0690, 1)#) AND #LEFT(Transferring_M0690, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Ambulation_M0700, 1)# neq "" AND IsNumeric(#LEFT(Ambulation_M0700, 1)#) AND #LEFT(Ambulation_M0700, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Eating_M0710, 1)# neq "" AND IsNumeric(#LEFT(Eating_M0710, 1)#) AND #LEFT(Eating_M0710, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Meal_Prep_M0720, 1)# neq "" AND IsNumeric(#LEFT(Meal_Prep_M0720, 1)#) AND #LEFT(Meal_Prep_M0720, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Transport_M0730, 1)# neq "" AND IsNumeric(#LEFT(Transport_M0730, 1)#) AND #LEFT(Transport_M0730, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Laundry_M0740, 1)# neq "" AND IsNumeric(#LEFT(Laundry_M0740, 1)#) AND #LEFT(Laundry_M0740, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Shopping_M0760, 1)# neq "" AND IsNumeric(#LEFT(Shopping_M0760, 1)#) AND #LEFT(Shopping_M0760, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Housekeeping_M0750, 1)# neq "" AND IsNumeric(#LEFT(Housekeeping_M0750, 1)#) AND #LEFT(Housekeeping_M0750, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(Use_Phone_M0770, 1)# neq "" AND IsNumeric(#LEFT(Use_Phone_M0770, 1)#) AND #LEFT(Use_Phone_M0770, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>
			<cfif #LEFT(M1845_Toilet, 1)# neq "" AND IsNumeric(#LEFT(M1845_Toilet, 1)#) AND #LEFT(M1845_Toilet, 1)# gt 0>
				<cfset ADLDeficits=#ADLDeficits#+1>
			</cfif>

			<cfif #M1016_DX_NA# eq "">
				<cfset SurgicalDischarge="1">	
			<cfelse>
				<cfset SurgicalDischarge="2">
			</cfif>
			
			<cfset TelephoneNumber=#Replace(#Telephone#, "-", "", "all")#>
	
      <cfset DeathDate = "" />
      <cfset MaternityOnly = "" />
      <cfset HospicePatient = "" />
      <cfset PatientsServed = "" />
      <cfset NoPublicity = "" />
      <cfset SOCClinical = "" />
      <cfset DCClinical = "" />
      <cfset CaseManager = "" />
      <cfset ReferringPhysician = "" />
      <cfset ReferringFacility = "" />

      <cfset HomeHealthVisitType = "" />
      <cfset ReferralSource = "" />
      <cfset PhysicalTherapy = "" />
      <cfset HomeHealthAide = "" />
      <cfset SocialService = "" />
      <cfset OccupationalTherapy = "" />
      <cfset CompanionHomemaker = "" />
      <cfset SpeechTherapy = "" />
			
			<cfset tempTemplate=#csvHeaderTemplate#>

      <cfset blank = "" />
			
			<cfset tempTemplate=#Replace(#tempTemplate#,"DeathDate", #DeathDate#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"MaternityOnly", #MaternityOnly#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"HospicePatient", #HospicePatient#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"PatientsServed", #PatientsServed#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"NoPublicity", #NoPublicity#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"SOCClinical", #SOCClinical#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"DCClinical", #DCClinical#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"CaseManager", #CaseManager#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"ReferringPhysician", #ReferringPhysician#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"ReferringFacility", #ReferringFacility#)#>

			<cfset tempTemplate=#Replace(#tempTemplate#,"HomeHealthVisitType", #blank#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"ReferralSource", #blank#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"PhysicalTherapy", #blank#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"HomeHealthAide", #blank#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"SocialService", #blank#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"OccupationalTherapy", #blank#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"CompanionHomemaker", #blank#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"SpeechTherapy", #blank#)#>

      <!--- Header Info --->

			<cfset tempTemplate=#Replace(#tempTemplate#,"Survey Designator", #blank#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"Client Number", #blank#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"Provider Name", #Replace(AgencyNameOf, ",", "", "ALL")#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"Provider Id", #AgencyMedicareID#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"Unit", #blank#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"Team", #blank#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"NPI", #AgencyProviderID#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"Branch ID Number", #AgencyBranchID#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"Sample Month", #SampleMonth#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"Sample Year", #SampleYear#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"Patients Served", #TotalPatients#)#>
			<cfset tempTemplate=#Replace(#tempTemplate#,"Submitted Patients", #SubmittedPatients#)#>

			<!--- First Name --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PatientFirstName", #Replace(First_Name_M0040, ",", "", "ALL")#)#>
			
			<!--- Middle Initial --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PatientMiddleInitial", #Replace(LEFT(Middle_Initial_M0040,1), ",", "", "ALL")#)#>
			
			<!--- Last Name --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PatientLastName", #Replace(Last_Name_M0040, ",", "", "ALL")#)#>
			
			<!--- Name Suffix --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PatientSuffix", #Suffix_M0040#)#>

			<!--- Address --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"Address", #Replace(Street_Address, ",", "", "ALL")# )#>
			
			<!--- Address 2--->
			<cfset tempTemplate=#Replace(#tempTemplate#,"Address 2", #Replace(Mailing_Address, ",", "", "ALL")# )#>
			
			<!---City --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"City", #Replace(City, ",", "", "ALL")#)#>

			<!---State --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"State", #State_M0050#)#>

			<!---Zip --->
			<cfif form.singlequotes eq 'y'>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"Zip", "'" & #Zip_M0060#)#>
			<cfelse>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"Zip", #Zip_M0060#)#>
			</cfif>
      
			<!--- Gender --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"Gender", #Gender#)#>
			
			<!--- Visit Type --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"VisitType", "3")#>

			<!--- SOC --->
			<cfif form.singlequotes eq 'y'>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"StartOfCare", "'" & #DateFormat(Start_of_Care_M0030,date4mat)#)#>
			<cfelse>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"StartOfCare", #DateFormat(Start_of_Care_M0030,date4mat)#)#>
			</cfif>
			
			<!--- Discharge Date --->
			<cfif form.singlequotes eq 'y'>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"DischargeDate", "'" & #DateFormat(Date_Discharge_M0906,date4mat)#)#>
			<cfelse>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"DischargeDate", #DateFormat(Date_Discharge_M0906,date4mat)#)#>
			</cfif>
			
			<!--- AssessmentReason --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"AssessmentReason", #LEFT(Assessment_Reason_M0100, 1)#)#>
			
			<!--- DOB --->
			<cfif form.singlequotes eq 'y'>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"PatientDOB", "'" & #DateFormat(DOB_M0066,date4mat)#)#>
			<cfelse>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"PatientDOB", #DateFormat(DOB_M0066,date4mat)#)#>
			</cfif>
			
			<!--- Patient Phone --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PatientPhone", #Replace(TelephoneNumber, ",", "", "ALL")#)#>
			
			<!--- MedicareNumber --->
			<cfif form.singlequotes eq 'y'>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"MedicareNumber", "'#Medicare_Number_M0063#")#>
			<cfelse>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"MedicareNumber", "#Medicare_Number_M0063#")#>
			</cfif>
      
			<!--- MedicaidNumber --->
			<cfif form.singlequotes eq 'y'>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"MedicaidNumber", "'#Medicaid_Number_M0065#")#>
			<cfelse>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"MedicaidNumber", "#Medicaid_Number_M0065#")#>
			</cfif>

			<!--- Language --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"Language", #LanguageNum#)#>
			
			<!--- MRN --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"MRN", #Agency_Assigned_ID#)#>
			
			<!--- Skilled Visits --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"SkilledVisits", #SkilledVisitTotal#)#>
			
			<!--- Lookback Period Visits --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"LookbackPeriodVisits", #LookBack#)#>
			
			<!--- Admission Source NF --->
<!--- JDB: Changed the "AdmissionSource" reference to "AdmissionSourceNF" to match this field with AdmissionSourceNF output field...
         * Actually, DO NOT do this Here at all 'cause we're handling this later in the program...
			<cfset tempTemplate=#Replace(#tempTemplate#,"AdmissionSourceNF", #LEFT(Source_of_Admission, 1)#)#>
--->

<!--- JDB 
<cfoutput><br>Source_of_Admission: #Source_of_Admission#</cfoutput>
<cfoutput><br>Source_of_Admission 1: #LEFT(Source_of_Admission, 1)#</cfoutput>
--->			

			<!--- Payer --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"Payer", #Replace(PayerHMO, ",", "", "ALL")#)#>
			
			<!--- HMO --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"HMO", #Replace(HMO, ",", "", "ALL")#)#>
			
			<!--- MedElgible --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"MedEligible", #MedEligible#)#>
			
			<!--- PrimaryDiagnosis --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PrimaryDiagnosis", #HHRG_175_Score#)#>
			
            <!--- OtherDiagnosis --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"OtherDiagnosis1", #HHRG_230_Score#)#>
			
			<!--- OtherDiagnosis --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"OtherDiagnosis2", #HHRG_250_Score#)#>
			
			<!--- OtherDiagnosis --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"OtherDiagnosis3", #HHRG_390_Score#)#>
			
			<!--- OtherDiagnosis --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"OtherDiagnosis4", #HHRG_420_Score#)#>
			
			<!--- OtherDiagnosis --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"OtherDiagnosis5", #HHRG_440_Score#)#>
						
			<!--- SurgicalDischarge --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"SurgicalDischarge", #SurgicalDischarge#)#>
			
			<!--- ESRD --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"ESRD", #esrd#)#>
			

			<!--- ADL_Deficits BLANK--->

            <cfif CAHPSid eq '58'> <!--- Arbor Associates --->
			 <cfset tempTemplate=#Replace(#tempTemplate#,"ADL_Deficits_BLANK", "M")#>
			<cfelse>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"ADL_Deficits_BLANK", #blank#)#>
			</cfif>


			<!--- ADL_Deficits --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"ADL_Deficits", #ADLDeficits#)#>
			
			<!--- ADL_DressUpper --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"ADL_DressUpper", #LEFT(Dress_Upper_M0650, 1)#)#>
			
			<!--- ADL_DressLower --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"ADL_DressLower", #LEFT(Dress_Lower_M0660, 1)#)#>
			
			<!--- ADL_Bathing --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"ADL_Bathing", #LEFT(Bathing_M0670, 1)#)#>
			
			<!--- ADL_Toileting --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"ADL_Toileting", #LEFT(M1840_Toilet, 1)#)#>
			
			<!--- ADL_Transferring --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"ADL_Transferring", #LEFT(Transferring_M0690, 1)#)#>
			
			<!--- ADL_Feed --->

            <cfif CAHPSid eq '66'> <!--- DSS --->
			 <cfset tempTemplate=#Replace(#tempTemplate#,"ADL_Feed", #blank#)#>
			<cfelse>
			 <cfset tempTemplate=#Replace(#tempTemplate#,"ADL_Feed", #LEFT(Eating_M0710, 1)#)#>
			</cfif>

			<!--- PaySrcNone --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrc0", #PaySrc0#)#>

			<!--- PaySrcMedicare --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrc1", #PaySrc1#)#>

			<!--- PaySrcMedicareHMO --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrc2", #PaySrc2#)#>

			<!--- PaySrcMedicaid --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrc3", #PaySrc3#)#>

			<!--- PaySrcMedicaidHMO --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrc4", #PaySrc4#)#>

			<!--- PaySrcWorkComp --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrc5", #PaySrc5#)#>

			<!--- PaySrcTitle --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrc6", #PaySrc6#)#>

			<!--- PaySrcOtherGov --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrc7", #PaySrc7#)#>

			<!--- PaySrcPvtInsur --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrc8", #PaySrc8#)#>

			<!--- PaySrcPvtHMO --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrc9", #PaySrc9#)#>

			<!--- PaySrcSelf --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrc10", #PaySrc10#)#>

			<!--- PaySrcOther --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrc11", #PaySrc11#)#>

			<!--- PaySrcUK --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"PaySrcUK", #PaySrcUK#)#>
			
			<!--- HMO --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"HMO", #HMO#)#>

			<!--- AdmissionSourceNF --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"AdmissionSourceNF", #AdmissionSourceNF#)#>

<!--- JDB 
<cfoutput><br>AdmissionSourceNF: #AdmissionSourceNF#</cfoutput>
<cfoutput><br>tempTemplate: #tempTemplate#</cfoutput>
--->

			<!--- AdmissionSourceSNF --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"AdmissionSourceSNF", #AdmissionSourceSNF#)#>

			<!--- AdmissionSourceIPPS --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"AdmissionSourceIPPS", #AdmissionSourceIPPS#)#>

			<!--- AdmissionSourceLTCH --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"AdmissionSourceLTCH", #AdmissionSourceLTCH#)#>

			<!--- AdmissionSourceIRF --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"AdmissionSourceIRF", #AdmissionSourceIRF#)#>

			<!--- AdmissionSourcePsych --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"AdmissionSourcePsych", #AdmissionSourcePsych#)#>

			<!--- AdmissionSourceOther --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"AdmissionSourceOther", #AdmissionSourceOther#)#>

			<!--- AdmissionSourceNone --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"AdmissionSourceNone", #AdmissionSourceNone#)#>

			<!--- AdmissionSource --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"AdmissionSource", #AdmissionSource#)#>
			
      <!--- End of Record --->
			<cfset tempTemplate=#Replace(#tempTemplate#,"EOR", #EOR#)#>

			<cfset csvFileContent="#csvFileContent##tempTemplate#">

		</cfoutput>
		
		<!---
	   #ListItem#
	   --->
	 
	</cfloop>

	<!---
	<CFLOOP COLLECTION="#Form#" ITEM="VarName">
	  <CFOUTPUT>
	  <TR>
	    <TD>#VarName#</TD>
	    <TD>#Form[VarName]#</TD>
	  </TR>
	  </CFOUTPUT>
	</CFLOOP>
	
	
	<cfoutput>
		#csvFileContent#
	</cfoutput>
	--->
	
	
			<!---
			<cfoutput>#csvFileContent#</cfoutput>
            <cfabort>
            --->

<!--- JDB --->

  <cfif CAHPSid eq '58'> <!--- Arbor Associates --->
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Deficits_BLANK", "ADL_Deficits")#>

  <cfelseif CAHPSid eq "66"> <!--- DSS --->
   <cfset csvFileContent=#Replace(#csvFileContent#,"Provider Name", "ProviderName")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Branch ID Number", "Branch")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Provider Id", "ProviderId")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Sample Month", "SampleMonth")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Sample Year", "SampleYear")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Patients Served", "TotalPatientsServed")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Submitted Patients", "TotalPatientsEligible")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"MRN", "MedicalRecordNumber")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PatientFirstName", "FirstName")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PatientMiddleInitial", "MiddleInitial")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PatientLastName", "LastName")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PatientDOB", "DOB")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Address 2", "Address2")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Address", "Address1")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PatientPhone", "PhoneNumber")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"SkilledVisits", "SkilledHomeVisits")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc1", "MedicarePayer")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc3", "MedicaidPayer")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc8", "PrivatePayer")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc11", "OtherPayer")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceLTCH", "SourceOfAdmissionHospital")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceIRF", "SourceOfAdmissionRehab")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceSNF", "SourceOfAdmissionSkilledNursingFacility")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceNF", "SourceOfAdmissionNursingHome")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceIPPS", "SourceOfAdmissionOtherInpatient")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceNone", "SourceOfAdmissionCommunity")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"HMO", "HMOIndicator")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"MedEligible", "DualEligible")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"SurgicalDischarge", "CareRelatedToSurgicalDischargeIndicator")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ESRD", "EndStageRenalDisease")#>
<!--- JDB: Removed per DSS <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Deficits", "ADLNonIndependent")#> --->
<!--- JDB: Adding again per Zofia Dotson @ DSS and Kay Olsen @ Alert Home Health --->
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Deficits_BLANK", "ADLNonIndependent")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_DressUpper", "ADLDressUpper")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_DressLower", "ADLDressLower")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Bathing", "ADLBathing")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Toileting", "ADLToileting")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Transferring", "ADLTransferring")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Feed", "ADLFeed")#>

  <cfelseif CAHPSid eq '79'> <!--- OCS HomeCare --->
   <cfset csvFileContent=#Replace(#csvFileContent#,"Branch ID Number", "Location Name")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"MRN", "Medical Record Number")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"StartOfCare", "Start of Care")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"SkilledVisits", "Skilled Visits")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"LookbackPeriodVisits", "Lookback Period Visits")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceNone", "Admission Source - NA (Community)")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceNF", "Admission Source - NF")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceSNF", "Admission Source - SNF")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceLTCH", "Admission Source - LTCH")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceIRF", "Admission Source - IRF")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceOther", "Admission Source - Other")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceNone", "Admission Source - NA (Community)")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSource", "Admission Source - Unknown")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc0", "Payer - None")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc1", "Payer - Medicare FFS")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc2", "Payer - Medicare HMO")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc3", "Payer - Medicaid FFS")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc4", "Payer - Medicaid HMO")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc5", "Payer - Workers' Comp")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc6", "Payer - Title Programs")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc7", "Payer - Other Government")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc8", "Payer - Private Ins")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc9", "Payer - Private HMO")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc10", "Payer - Self-pay")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc11", "Payer - Other")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrcUK", "Payer - Unknown")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"MedEligible", "Dually eligible for Medicare and Medicaid")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PrimaryDiagnosis", "Primary Diagnosis ICD_A2")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"OtherDiagnosis1", "Other diagnosis_B2")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"OtherDiagnosis2", "Other diagnosis_C2")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"OtherDiagnosis3", "Other diagnosis_D2")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"OtherDiagnosis4", "Other diagnosis_E2")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"OtherDiagnosis5", "Other diagnosis_F2")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"SurgicalDischarge", "Surgical Discharge")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ESRD", "End-Stage Renal Disease (ESRD)")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Deficits_BLANK", "ADL_Deficits")#>

  <cfelseif CAHPSid eq "80"> <!--- Pinnacle --->
   <cfset csvFileContent=#Replace(#csvFileContent#,"Provider Name", "ProviderName")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Provider Id", "CMSCertNum")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Sample Month", "SampleMonth")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Sample Year", "SampleYear")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Patients Served", "TotalPatients")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Submitted Patients", "SubmittedPatients")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"OtherDiagnosis1", "OtherDiagnosis")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Deficits_BLANK", "ADL_Deficits")#>

  <cfelseif CAHPSid eq "81"> <!--- Press Ganey --->
   <cfset csvFileContent=#Replace(#csvFileContent#,"PatientFirstName", "First Name")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PatientMiddleInitial", "Middle Initial")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PatientLastName", "Last Name")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"DischargeDate", "Discharge Date")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PatientDOB", "Date of Birth")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Address 2", "Address 2")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Address", "Address 1")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PatientPhone", "Phone")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"StartOfCare", "Start of Care Date")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AssessmentReason", "Assessment Reason")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"MRN", "Patient ID Number")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"SurgicalDischarge", "Surgical Discharge")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ESRD", "End Stage Renal Disease")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc0", "Payment Source - None")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc1", "Payment Source - Medicare")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc2", "Payment Source - Medicare HMO")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc3", "Payment Source - Medicaid")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc4", "Payment Source - Medicaid HMO")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc5", "Payment Source - Workers Comp")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc6", "Payment Source - Title programs")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc7", "Payment Source - Other Government")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc8", "Payment Source - Private Ins")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc9", "Payment Source - Private HMO")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc10", "Payment Source - Self-pay")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrc11", "Payment Source - Other")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PaySrcUK", "Payment Source - Unknown")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceLTCH", "Source of Admission - LTCH")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceIRF", "Source of Admission - IRF")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceSNF", "Source of Admission - SNF")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceNF", "Source of Admission - NF")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceIPPS", "Source of Admission - IPPS")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourcePsych", "Source of Admission - Psych")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceOther", "Source of Admission - Other")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"AdmissionSourceNone", "Source of Admission - None")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"MedEligible", "Dual Eligibility")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"HomeHealthVisitType", "Home Health Visit Type")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ReferralSource", "Referral Source")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"PhysicalTherapy", "Physical Therapy")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"HomeHealthAide", "Home Health Aide")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"SocialService", "Social Service")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"OccupationalTherapy", "Occupational Therapy")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"CompanionHomemaker", "Companion/Homemaker")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"SpeechTherapy", "Speech Therapy")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Deficits_BLANK", "ADL_Deficits")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_DressUpper", "ADL - Dress Upper Body")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_DressLower", "ADL - Dress Lower Body")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Bathing", "ADL - Bathing")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Toileting", "ADL - Toileting")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Transferring", "ADL - Transferring")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"ADL_Feed", "ADL - Feeding or Eating")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"SkilledVisits", "Skilled Visits in Month")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"LookbackPeriodVisits", "Skilled Visits in Two Months")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Branch ID Number", "Branch")#>
   <cfset csvFileContent=#Replace(#csvFileContent#,"Patients Served", "Total Patients Served")#>

  </cfif> <!--- end CAHPSid check for varying Field Labels --->
  
	<cffile action="write"
	        file="#getDirectoryFromPath(getCurrentTemplatePath())#CSV/CAHPS_#session.AgencyID#_test.csv"
	        output="#csvFileContent#"
  >
	<cfheader name="Content-Disposition" value="attachment; filename=CAHPS_#session.AgencyID#_test.csv">
	<cfcontent 
	   type = "text/csv"
	   deleteFile = "yes"
	   file = "#getDirectoryFromPath(getCurrentTemplatePath())#CSV/CAHPS_#session.AgencyID#_test.csv"
	   reset = "no"
  >

  <cfcatch type='any'>
   <cfoutput>#cfcatch.Message# :: #cfcatch.Detail#</cfoutput>
  </cfcatch>
 </cftry>
	
<cfelse>
	<h1>CAHPS</h1>
	<h2>You reached this page by error. Plesae submit the CAHPS Form located <a href="index.cfm?page=reports&cat=patients&rpt=CAHPS_Form">Here</a></h2><br>
</cfif>
