<!---
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=",;">
         <cfset SubmittedPatients = #SubmittedPatients# + 1 />
	</cfloop>
	
	<cfset csvFileContent = "">

	<cfset TemplatePath="#getDirectoryFromPath(getCurrentTemplatePath())#CSVTemplate/#CAHPSid#.csv">
	
  <cfset csvHeaderTemplate = '' />

  <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 defaults and transformations for certain data fields based on Vendor requirements... --->

  <cfset date4mat = "mm/dd/yyyy" />
<cfset EOR = "$" /> <!--- End of Record indidicator - Normally just CRLF, but use this IF needed --->

<cfset SkilledVisitTotal = 0 />

  <cfset ctr = 0 />

	

	<!---
	<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 --->

<div class="portlet box green">
	<div class="portlet-title">
		<div class="caption">
			<i class="fa fa-report"></i> CHAPS Export
		</div>
		<div class="tools">
			<a href="" class="collapse">
			</a>
		</div>
	</div>
	<div class="portlet-body">

<cfset str = """" & "SHPProviderNo" & """"
             & "," & """" & "SampleMonth" & """"
             & "," & """" & "SampleYear" & """"
			  & "," & """" & "TotalPatientsAgencyServed" & """"
			  & "," & """" & "FirstName" & """"
			  & "," & """" & "MiddleInitiial" & """"
			  & "," & """" & "LastName" & """"
			  & "," & """" & "Gender" & """"
			  & "," & """" & "DOB" & """"
			  & "," & """" & "Address2" & """"
			  & "," & """" & "Address1" & """" 
			  & "," & """" & "City" & """"
			  & "," & """" & "State" & """"
			   & "," & """" & "Zip" & """"
			  & "," & """" & "TelePhone" & """"
			  & "," & """" & "Start of Care Date" & """"
			  & "," & """" & "Assessment Reason" & """"
			  & "," & """" & "MedicalRecordNumber" & """"
			  & "," & """" & "SSN" & """" 
			   & "," & """" & "NumberOfSkilledVisits" & """"
			  & "," & """" & "LookbackPeriodVisits" & """"
			  & "," & """" & "PayerMedicare" & """"
			  & "," & """" & "PayerMedicaid" & """"
			  & "," & """" & "HMOIndicator" & """"
              & "," & """" & "PayerPrivate" & """"
			  & "," & """" & "PayerOther" & """"
			  & "," & """" & "AdmissionSourceHospital" & """"
			  & "," & """" & "AdmissionSourceRehab" & """"
			  & "," & """" & "AdmissionSourceSNF" & """"
			  & "," & """" & "AdmissionSourceOtherNursingHome" & """"
			  & "," & """" & "AdmissionSourceOtherInpatientFacility" & """"
			  & "," & """" & "AdmissionSourceCommunity" & """"
			  & "," & """" & "DuallyEligibleForMedicareAndMedicaid" & """"
			  & "," & """" & "PrimaryDiagnosis" & """"
			  & "," & """" & "OtherDiagnosis1" & """"
			  & "," & """" & "OtherDiagnosis2" & """"
			  & "," & """" & "OtherDiagnosis3" & """"
			  & "," & """" & "OtherDiagnosis4" & """"
			  & "," & """" & "OtherDiagnosis5" & """"
			   & "," & """" & "CareRelatedToSurgicalDischarge" & """"
			   & "," & """" & "EndStageRenalDisease" & """"
			   & "," & """" & "ADLDeficits" & """"
			   & "," & """" & "ADLDressUpper" & """"
			   & "," & """" & "ADLDressLower" & """"
			   & "," & """" & "ADLBathing" & """"
			   & "," & """" & "ADLToileting" & """"
				     & "," & """" & "ADLTransferring" & """"
					  & "," & """" & "ADLFeed" & """"
					  & "," & """" & "TypeOfSampling" & """"
					 & "," & """" & "Language" & """"
					 & "," & """" & "Persist Level" & """"
					 <!--- & "," & """" & "CCN" & """"--->
					  & "," & """" & "Branch_ID" & """"
					 
			  
			 & chr(13) 
			 & chr(10)
	  />
  
  <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" bcc="velmurugan@myhomecarebiz.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.Current_Payment_Sources_M0150
		  ,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.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>


 <cfset PaySrcMissing = "M" />
   <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' />
					<!---
		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>
	

      <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>
<cfset ADLDeficits = 0 />

<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 str = str
                      & """" & #AgencyMedicareID# & """"
                & "," & """" & #SampleMonth# & """"
				& "," & """" & #SampleYear# & """"
				& "," & """" & #TotalPatients# & """"
				& "," & """" & #Replace(First_Name_M0040, ",", "", "ALL")# & """"
				& "," & """" & #Replace(LEFT(Middle_Initial_M0040,1), ",", "", "ALL")# & """"
				& "," & """" & #Replace(Last_Name_M0040, ",", "", "ALL")# & """"
                & "," & """" & #Gender# & """"
				& "," & """" & #DateFormat(DOB_M0066,date4mat)# & """"
				& "," & """" & #Replace(Mailing_Address, ",", "", "ALL")# & """"
				& "," & """" & #Replace(Street_Address, ",", "", "ALL")# & """"
				& "," & """" & #Replace(City, ",", "", "ALL")# & """"
				<!---& "," & """" & #SubmittedPatients# & """"--->
                & "," & """" & #State_M0050# & """"
                & "," & """" & #Zip_M0060# & """"
				& "," & """" & #Replace(TelephoneNumber, ",", "", "ALL")# & """"
				& "," & """" & #DateFormat(Start_of_Care_M0030,date4mat)# & """"
				& "," & """" & #LEFT(Assessment_Reason_M0100, 1)# & """"
				& "," & """" & #Agency_Assigned_ID#& """"
				& "," & """" & #Medicaid_Number_M0065#& """"
				& "," & """" & #SkilledVisitTotal#& """"
				& "," & """" & #LookBack# & """"
				& "," & """" & #PaySrc1# & """"
				& "," & """" & #PaySrc3# & """"
				& "," & """" & #Replace(HMO, ",", "", "ALL")#& """"
				& "," & """" & #PaySrc8# & """"
				& "," & """" & #PaySrc11# & """"
				& "," & """" & #AdmissionSourceLTCH# & """"
				& "," & """" & #AdmissionSourceIRF# & """"
				& "," & """" & #AdmissionSourceSNF# & """"
				& "," & """" & #AdmissionSourceNF# & """"
				& "," & """" & #AdmissionSourceIPPS# & """"
				& "," & """" & #AdmissionSourceNone# & """"
				& "," & """" & #MedEligible# & """"
				& "," & """" & #HHRG_175_Score# & """"
				& "," & """" & #HHRG_230_Score# & """"
				& "," & """" & #HHRG_250_Score# & """"
				& "," & """" & #HHRG_390_Score# & """"
				& "," & """" & #HHRG_420_Score# & """"
				& "," & """" & #HHRG_440_Score# & """"
				& "," & """" & #SurgicalDischarge# & """"
				& "," & """" &  """"
				& "," & """" & #ADLDeficits# & """"
				& "," & """" & #LEFT(Dress_Upper_M0650, 1)# & """"
				& "," & """" & #LEFT(Dress_Lower_M0660, 1)# & """"
				& "," & """" & #LEFT(Bathing_M0670, 1)# & """"
				& "," & """" & #LEFT(M1840_Toilet, 1)# & """"
				& "," & """" & #LEFT(Transferring_M0690, 1)# & """"
				& "," & """" & #LEFT(Eating_M0710, 1)# & """"
				& "," & """" &  """"
				& "," & """" & #LanguageNum#& """"
				& "," & """" &  """"
				<!---& "," & """" & - & """"--->
				& "," & """" & #AgencyBranchID#& """"
				
				& chr(13) 
				& chr(10)
				
   />
  
  </cfoutput>
</cfloop>
  
  <cfset dt = DateFormat(Now(), "yyyy-mm-dd") />
  <p>
  <cffile action="write" file="#application.datapath##session.AgencyId#_#session.EmployeeId#_#dt#.csv" output="#str#">
  <cfoutput> Please <a href="#application.webdatapath##session.AgencyId#_#session.EmployeeId#_#dt#.csv">Right Click Here</a> and choose "Save Target As..." to download the Exported data file and save it to your computer.
  </cfoutput> 
</p>
</div>
</div>
  
 <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>
