<!--=================================================================================================================================================				                                                      Create Inactivation Datasets
==================================================================================================================================================-->
<cfquery name="Assessment_Details" datasource="#Application.DataSrc#">
SELECT Patient_ID,Start_of_Care_M0030,Resump_of_Care_M0032,Assessment_Reason_M0100,Assessment_Completed_M0090,Date_Discharge_M0906
FROM   #Request.prefix_db_agency#.Assessment_New
WHERE Assessment_ID = '158481'
</cfquery>

<cfquery name="patient" datasource="#Application.DataSrc#">
SELECT Current_Payment_Sources_M0150,First_Name_M0040,Last_Name_M0040,SSN_M0064,DOB_M0066,Gender_M0069
FROM   #Request.prefix_db_agency#.patient
WHERE Patient_ID='#Assessment_Details.Patient_ID#'
</cfquery>

<cfquery name="Agency_Details" datasource="#Application.DataSrc#">
SELECT 	Agency_State_ID 
FROM 	#Request.prefix_db_lookup#.Agency 
where 	Agency_ID =422
</cfquery>

<cfset gHHA_Record_Padding="" />
<cfset temp=1 />
<cfset HHA_Record_Data = "" />

<cfloop from="1" to="1446" index="i">
		<cfset gHHA_Record_Padding= gHHA_Record_Padding & " " />
</cfloop>

<!---Declaration--->
<cfset Current_Payment_Sources_M0150 = "" />
<cfset Start_of_Care_M0030 = "" />
<cfset Agency_State_ID = "" />
<cfset Resump_of_Care_M0032 = "" />
<cfset First_Name_M0040 = "" />
<cfset Last_Name_M0040 ="" />
<cfset SSN_M0064 = "" />
<cfset DOB_M0066 = "" />
<cfset DOB_M0066 = "" />
<cfset Gender_M0069 = "" />
<cfset Assessment_Completed_M0090 = "" />
<cfset Assessment_Reason_M0100 = "" />
<cfset Date_Discharge_M0906 = "" />


<cfset Current_Payment_Sources_M0150 = patient.Current_Payment_Sources_M0150 />
<cfset First_Name_M0040 = patient.First_Name_M0040 />
<cfset Last_Name_M0040 = patient.Last_Name_M0040 />
<cfset SSN_M0064 = patient.SSN_M0064 />
<cfset DOB_M0066 = patient.DOB_M0066 />
<cfset Gender_M0069 = patient.Gender_M0069 />


<cfset Assessment_Completed_M0090 = Assessment_Details.Assessment_Completed_M0090 />
<cfset Start_of_Care_M0030 = Assessment_Details.Start_of_Care_M0030 />
<cfset Resump_of_Care_M0032 = Assessment_Details.Resump_of_Care_M0032 />
<cfset Assessment_Reason_M0100 = Assessment_Details.Assessment_Reason_M0100 />
<cfset Date_Discharge_M0906 = Assessment_Details.Date_Discharge_M0906 />

<cfset Agency_State_ID = Agency_Details.Agency_State_ID />

<cfset HHA_Record_Data ="" />



<!---<cfset T24_Datasets_Patient_ID = T24_Assessment_Patient_ID  />
<cfset T24_Datasets_Agency_Identity = T24_Assessment_Agency_Identity  />
<cfset T24_Datasets_Assessment_Tracker_ID = T24_Assessment_Assessment_Tracker_ID  />

<cfset T24_Datasets_Datasets_ID = "0"  />
<cfset T24_Datasets_Record_Changed = "Yes"  />--->

<!---#The Type of Trans is set to 0 for testing, must be set to 1 before going into production. ---->

<cfset T24_Datasets_Type_of_trans = 1  />

<cfif Current_Payment_Sources_M0150.indexOf("1 - Med") neq "-1" or Current_Payment_Sources_M0150.indexOf("2 - Med") neq "-1" or Current_Payment_Sources_M0150.indexOf("3 - Med") neq "-1" or Current_Payment_Sources_M0150.indexOf("4 - Med") neq "-1">

	<cfset T24_Datasets_Mask_Required = "Yes" />
<cfelse>
	<cfset T24_Datasets_Mask_Required ="No" />
</cfif>


<!---Perform Script [ “Create Inactivation Record Datasets *U” ] --->

	<!---1.Perform Script [ “Create Inactivation Record thru M0150 Datasets *U” ] 
		 2.Perform Script [ “Create Data Record thru 737-744 M0906 Datasets” ] 
		 3.Perform Script [ “Create Inactivation Record thru end Datasets *U” ]--->


						<!---1.Perform Script [ “Create Inactivation Record thru M0150 Datasets *U” ] --->

<!---#Working on the sets to create the data record.  Each step will be appended to the data field. --->
<cfset HHA_Record_Data = "X1" />

<!---#Append a 2 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & "  "  />

<!---#Append the lock date --->
<cfset Current_Date = now() />
<cfset Currrent_Date_Year = "" />
<cfset Currrent_Date_Month ="" />
<cfset Currrent_Date_Day ="" />


<cfset Currrent_Date_Year = year(Current_Date) />
<cfif len(month(Current_Date)) lt 2>
	<cfset Currrent_Date_Month = "0" & month(Current_Date) />
<cfelse>
	<cfset Currrent_Date_Month = month(Current_Date) />
</cfif>
<cfif len(day(Current_Date)) lt 2>
	<cfset Currrent_Date_Day = "0" & day(Current_Date) />
<cfelse>
	<cfset Currrent_Date_Day = day(Current_Date) />
</cfif>
<cfset HHA_Record_Data = HHA_Record_Data & Currrent_Date_Year & Currrent_Date_Month & Currrent_Date_Day />

<!---#Append a 41 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,41) />		

<!---#Append the agency number --->

<cfif len(Agency_State_ID) lt 16>
	<cfset HHA_Record_Data = HHA_Record_Data & Agency_State_ID & left(gHHA_Record_Padding,16 - len(Agency_State_ID)) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(Agency_State_ID,16) />
</cfif>

<!---#Append a 27 space filler --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,27) />
	
<!---#Append the Mask Version CD. --->
	
<cfif Current_Payment_Sources_M0150.indexOf("1 - Med") neq "-1" or Current_Payment_Sources_M0150.indexOf("2 - Med") neq "-1" or Current_Payment_Sources_M0150.indexOf("3 - Med") neq "-1" or Current_Payment_Sources_M0150.indexOf("4 - Med") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,20) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "FIPS SHA-1 V1.00" & left(gHHA_Record_Padding,4) />
</cfif>

<!---#Append  a 60 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,60) />

<!---#Append the start of care date --->
<cfset Start_of_Care_M0030_Year = "" />
<cfset Start_of_Care_M0030_Month ="" />
<cfset Start_of_Care_M0030_Day ="" />

<cfset Start_of_Care_M0030_Year = year(Start_of_Care_M0030) />
<cfif len(month(Start_of_Care_M0030)) lt 2>
	<cfset Start_of_Care_M0030_Month = "0" & month(Start_of_Care_M0030) />
<cfelse>
	<cfset Start_of_Care_M0030_Month = month(Start_of_Care_M0030) />
</cfif>
<cfif len(day(Start_of_Care_M0030)) lt 2>
	<cfset Start_of_Care_M0030_Day = "0" & day(Start_of_Care_M0030) />
<cfelse>
	<cfset Start_of_Care_M0030_Day = day(Start_of_Care_M0030) />
</cfif>

<cfset HHA_Record_Data = HHA_Record_Data & Start_of_Care_M0030_Year & Start_of_Care_M0030_Month & Start_of_Care_M0030_Day />

<!---#Append the Resumption of care date --->
<cfif Resump_of_Care_M0032 neq ''>
	<cfif Resump_of_Care_M0032 neq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,8) />
	<cfelse>
		<cfset Resump_of_Care_M0032_Year = "" />
		<cfset Resump_of_Care_M0032_Month ="" />
		<cfset Resump_of_Care_M0032_Day ="" />
		
		<cfset Resump_of_Care_M0032_Year = year(Resump_of_Care_M0032) />
		<cfif len(month(Start_of_Care_M0030)) lt 2>
			<cfset Resump_of_Care_M0032_Month = "0" & month(Resump_of_Care_M0032) />
		<cfelse>
			<cfset Resump_of_Care_M0032_Month = month(Resump_of_Care_M0032) />
		</cfif>
		<cfif len(day(Start_of_Care_M0030)) lt 2>
			<cfset Resump_of_Care_M0032_Day = "0" & day(Resump_of_Care_M0032) />
		<cfelse>
			<cfset Resump_of_Care_M0032_Day = day(Resump_of_Care_M0032) />
		</cfif>
		<cfset HHA_Record_Data = HHA_Record_Data & Resump_of_Care_M0032_Year & Resump_of_Care_M0032_Month & Resump_of_Care_M0032_Day />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,8) />
</cfif>

<!---#Append  a 1 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1) />

<!---#Append the Patient first name---->
<cfif len(First_Name_M0040) lt 12>
	<cfset HHA_Record_Data = HHA_Record_Data & UCase(First_Name_M0040) & left(gHHA_Record_Padding,12-len(First_Name_M0040)) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & UCase(left(First_Name_M0040,12)) />
</cfif>

<!---#Append  a 1 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1) />

<!---#Append the Patient Last Name --->
<cfif len(Last_Name_M0040) lt 12>
	<cfset HHA_Record_Data = HHA_Record_Data & UCase(Last_Name_M0040) & left(gHHA_Record_Padding,12-len(Last_Name_M0040)) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & UCase(left(Last_Name_M0040,12)) />
</cfif>

<!---#Append  a 29 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,29) />

<!---#Append the SSN --->
<cfif SSN_M0064 eq ''>
	<cfset  HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,9) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(SSN_M0064,3) & mid(SSN_M0064,5,2) & right(SSN_M0064,4) />
</cfif>

<!---#Append  a 16 space filler ---->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,16) />

<!---#Append the Patient Birth Date --->

<cfset DOB_M0066_Year = "" />
<cfset DOB_M0066_Month ="" />
<cfset DOB_M0066_Day ="" />

<cfset DOB_M0066_Year = year(DOB_M0066) />
<cfif len(month(DOB_M0066)) lt 10 >
	<cfset DOB_M0066_Month = "0" & month(DOB_M0066) />
<cfelse>
	<cfset DOB_M0066_Month = month(DOB_M0066) />
</cfif>
<cfif len(day(DOB_M0066)) lt 10 >
	<cfset DOB_M0066_Day = "0" & day(DOB_M0066) />
<cfelse>
	<cfset DOB_M0066_Day = day(DOB_M0066) />
</cfif>
<cfset HHA_Record_Data = HHA_Record_Data & DOB_M0066_Year & DOB_M0066_Month & DOB_M0066_Day />

<!---#Append the item filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1) />

<!---#Append the Patient gender--->
<cfset HHA_Record_Data = HHA_Record_Data & left(Gender_M0069,1) />

<!---#Append  a 13 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,13) />

<!---#Append the assessment completed date --->



<cfset Assessment_Completed_M0090_Year = "" />
<cfset Assessment_Completed_M0090_Month = "" />
<cfset Assessment_Completed_M0090_Day = "" />

<cfset Assessment_Completed_M0090_Year = year(Assessment_Completed_M0090) />
<cfif len(month(Assessment_Completed_M0090)) lt 10 >
	<cfset Assessment_Completed_M0090_Month = "0" & month(Assessment_Completed_M0090) />
<cfelse>
	<cfset Assessment_Completed_M0090_Month = month(Assessment_Completed_M0090) />
</cfif>
<cfif len(day(Assessment_Completed_M0090)) lt 10 >
	<cfset Assessment_Completed_M0090_Day = "0" & day(Assessment_Completed_M0090) />
<cfelse>
	<cfset Assessment_Completed_M0090_Day = day(Assessment_Completed_M0090) />
</cfif>
<cfset HHA_Record_Data = HHA_Record_Data & Assessment_Completed_M0090_Year & Assessment_Completed_M0090_Month & Assessment_Completed_M0090_Day />

<!---#Append the assessment reason --->
<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "01" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("2 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "02" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("3 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "03" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("4 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "04" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("5 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "05" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("6 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "06" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("7 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "07" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("8 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "08" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "09" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("10 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "10" />
</cfif>

<!---#Append  a 425 space filler --->
<cfset HHA_Record_Data & left(gHHA_Record_Padding,425) />




							<!---2.Perform Script [ “Create Data Record thru 737-744 M0906 Datasets” ] --->
<!--==================================================================================================================================================		                                             	Create Data Record thru 737-744 M0906 Datasets
===================================================================================================================================================-->						
<!---#Append M0906 Discharge Date --->

<cfset Date_Discharge_M0906_year = "" />
<cfset Date_Discharge_M0906_month = "" />
<cfset Date_Discharge_M0906_day = "" />

<cfif Assessment_Reason_M0100.indexOf("6") neq "-1" or Assessment_Reason_M0100.indexOf("7") neq "-1" or Assessment_Reason_M0100.indexOf("8") neq "-1" or Assessment_Reason_M0100.indexOf("9") neq "-1">
	<cfset Date_Discharge_M0906_year = year(Date_Discharge_M0906) />
	<cfif month(Date_Most_Recent_M0903) lt 10>
		<cfset Date_Discharge_M0906_month = "0" & month(Date_Discharge_M0906) />
	<cfelse>
		<cfset Date_Discharge_M0906_month = month(Date_Discharge_M0906) />
	</cfif>
	<cfif day(Date_Discharge_M0906) lt 10>
		<cfset Date_Discharge_M0906_day = "0" & day(Date_Discharge_M0906) />
	<cfelse>
		<cfset Date_Discharge_M0906_day = day(Date_Discharge_M0906) />
	</cfif>
	<cfset HHA_Record_Data = HHA_Record_Data & Date_Discharge_M0906_year & Date_Discharge_M0906_month & Date_Discharge_M0906_day />
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,8) />
</cfif>


	
<!--==================================================================================================================================================		                                             	End Create Data Record thru 737-744 M0906 Datasets
===================================================================================================================================================-->						



								<!---3.Perform Script [ “Create Inactivation Record thru end Datasets *U” ]--->
								
<!---#Append a 701 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,701) />

<!---#Append the terminator code --->
<cfset HHA_Record_Data = HHA_Record_Data & "%" />

<!--- End Perform Script [ “Create Inactivation Record Datasets *U” ] --->


											
<!--=================================================================================================================================================				                                                     End Create Inactivation Datasets
==================================================================================================================================================-->

<!--=================================================================================================================================================		                                                	Re-create Inactivation Datasets
==================================================================================================================================================-->

<cfset T24_Datasets_Datasetcreated = "0" />
<cfset T24_Datasets_Record_Changed = "Yes" />

<!---#The Type of Trans is set to 0 for testing, must be set to 1 before going into production. --->
<cfset T24_Datasets_Type_of_trans = "1" />

<cfif Current_Payment_Sources_M0150.indexOf("1 - Med") neq "-1" or Current_Payment_Sources_M0150.indexOf("2 - Med") neq "-1" or Current_Payment_Sources_M0150.indexOf("3 - Med") neq "-1" or Current_Payment_Sources_M0150.indexOf("4 - Med") neq "-1">

	<cfset T24_Datasets_Mask_Required = "No" />
<cfelse>
	<cfset T24_Datasets_Mask_Required ="Yes" />
</cfif>

<!---Perform Script [ “Create Inactivation Record Datasets *U” ] --->

	<!---1.Perform Script [ “Create Inactivation Record thru M0150 Datasets *U” ] 
		 2.Perform Script [ “Create Data Record thru 737-744 M0906 Datasets” ] 
		 3.Perform Script [ “Create Inactivation Record thru end Datasets *U” ]--->


						<!---1.Perform Script [ “Create Inactivation Record thru M0150 Datasets *U” ] --->

<!---#Working on the sets to create the data record.  Each step will be appended to the data field. --->
<cfset HHA_Record_Data = "X1" />

<!---#Append a 2 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & "  "  />

<!---#Append the lock date --->
<cfset Current_Date = now() />
<cfset Currrent_Date_Year = "" />
<cfset Currrent_Date_Month ="" />
<cfset Currrent_Date_Day ="" />


<cfset Currrent_Date_Year = year(Current_Date) />
<cfif len(month(Current_Date)) lt 2>
	<cfset Currrent_Date_Month = "0" & month(Current_Date) />
<cfelse>
	<cfset Currrent_Date_Month = month(Current_Date) />
</cfif>
<cfif len(day(Current_Date)) lt 2>
	<cfset Currrent_Date_Day = "0" & day(Current_Date) />
<cfelse>
	<cfset Currrent_Date_Day = day(Current_Date) />
</cfif>
<cfset HHA_Record_Data = HHA_Record_Data & Currrent_Date_Year & Currrent_Date_Month & Currrent_Date_Day />

<!---#Append a 41 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,41) />		

<!---#Append the agency number --->

<cfif len(Agency_State_ID) lt 16>
	<cfset HHA_Record_Data = HHA_Record_Data & Agency_State_ID & left(gHHA_Record_Padding,16 - len(Agency_State_ID)) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(Agency_State_ID,16) />
</cfif>

<!---#Append a 27 space filler --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,27) />
	
<!---#Append the Mask Version CD. --->
	
<cfif Current_Payment_Sources_M0150.indexOf("1 - Med") neq "-1" or Current_Payment_Sources_M0150.indexOf("2 - Med") neq "-1" or Current_Payment_Sources_M0150.indexOf("3 - Med") neq "-1" or Current_Payment_Sources_M0150.indexOf("4 - Med") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,20) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "FIPS SHA-1 V1.00" & left(gHHA_Record_Padding,4) />
</cfif>

<!---#Append  a 60 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,60) />

<!---#Append the start of care date --->
<cfset Start_of_Care_M0030_Year = "" />
<cfset Start_of_Care_M0030_Month ="" />
<cfset Start_of_Care_M0030_Day ="" />

<cfset Start_of_Care_M0030_Year = year(Start_of_Care_M0030) />
<cfif len(month(Start_of_Care_M0030)) lt 2>
	<cfset Start_of_Care_M0030_Month = "0" & month(Start_of_Care_M0030) />
<cfelse>
	<cfset Start_of_Care_M0030_Month = month(Start_of_Care_M0030) />
</cfif>
<cfif len(day(Start_of_Care_M0030)) lt 2>
	<cfset Start_of_Care_M0030_Day = "0" & day(Start_of_Care_M0030) />
<cfelse>
	<cfset Start_of_Care_M0030_Day = day(Start_of_Care_M0030) />
</cfif>

<cfset HHA_Record_Data = HHA_Record_Data & Start_of_Care_M0030_Year & Start_of_Care_M0030_Month & Start_of_Care_M0030_Day />

<!---#Append the Resumption of care date --->
<cfif Resump_of_Care_M0032 neq ''>
	<cfif Resump_of_Care_M0032 neq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,8) />
	<cfelse>
		<cfset Resump_of_Care_M0032_Year = "" />
		<cfset Resump_of_Care_M0032_Month ="" />
		<cfset Resump_of_Care_M0032_Day ="" />
		
		<cfset Resump_of_Care_M0032_Year = year(Resump_of_Care_M0032) />
		<cfif len(month(Start_of_Care_M0030)) lt 2>
			<cfset Resump_of_Care_M0032_Month = "0" & month(Resump_of_Care_M0032) />
		<cfelse>
			<cfset Resump_of_Care_M0032_Month = month(Resump_of_Care_M0032) />
		</cfif>
		<cfif len(day(Start_of_Care_M0030)) lt 2>
			<cfset Resump_of_Care_M0032_Day = "0" & day(Resump_of_Care_M0032) />
		<cfelse>
			<cfset Resump_of_Care_M0032_Day = day(Resump_of_Care_M0032) />
		</cfif>
		<cfset HHA_Record_Data = HHA_Record_Data & Resump_of_Care_M0032_Year & Resump_of_Care_M0032_Month & Resump_of_Care_M0032_Day />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,8) />
</cfif>

<!---#Append  a 1 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1) />

<!---#Append the Patient first name---->
<cfif len(First_Name_M0040) lt 12>
	<cfset HHA_Record_Data = HHA_Record_Data & UCase(First_Name_M0040) & left(gHHA_Record_Padding,12-len(First_Name_M0040)) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & UCase(left(First_Name_M0040,12)) />
</cfif>

<!---#Append  a 1 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1) />

<!---#Append the Patient Last Name --->
<cfif len(Last_Name_M0040) lt 12>
	<cfset HHA_Record_Data = HHA_Record_Data & UCase(Last_Name_M0040) & left(gHHA_Record_Padding,12-len(Last_Name_M0040)) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & UCase(left(Last_Name_M0040,12)) />
</cfif>

<!---#Append  a 29 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,29) />

<!---#Append the SSN --->
<cfif SSN_M0064 eq ''>
	<cfset  HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,9) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(SSN_M0064,3) & mid(SSN_M0064,5,2) & right(SSN_M0064,4) />
</cfif>

<!---#Append  a 16 space filler ---->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,16) />

<!---#Append the Patient Birth Date --->

<cfset DOB_M0066_Year = "" />
<cfset DOB_M0066_Month ="" />
<cfset DOB_M0066_Day ="" />

<cfset DOB_M0066_Year = year(DOB_M0066) />
<cfif len(month(DOB_M0066)) lt 10 >
	<cfset DOB_M0066_Month = "0" & month(DOB_M0066) />
<cfelse>
	<cfset DOB_M0066_Month = month(DOB_M0066) />
</cfif>
<cfif len(day(DOB_M0066)) lt 10 >
	<cfset DOB_M0066_Day = "0" & day(DOB_M0066) />
<cfelse>
	<cfset DOB_M0066_Day = day(DOB_M0066) />
</cfif>
<cfset HHA_Record_Data = HHA_Record_Data & DOB_M0066_Year & DOB_M0066_Month & DOB_M0066_Day />

<!---#Append the item filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1) />

<!---#Append the Patient gender--->
<cfset HHA_Record_Data = HHA_Record_Data & left(Gender_M0069,1) />

<!---#Append  a 13 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,13) />

<!---#Append the assessment completed date --->



<cfset Assessment_Completed_M0090_Year = "" />
<cfset Assessment_Completed_M0090_Month = "" />
<cfset Assessment_Completed_M0090_Day = "" />

<cfset Assessment_Completed_M0090_Year = year(Assessment_Completed_M0090) />
<cfif len(month(Assessment_Completed_M0090)) lt 10 >
	<cfset Assessment_Completed_M0090_Month = "0" & month(Assessment_Completed_M0090) />
<cfelse>
	<cfset Assessment_Completed_M0090_Month = month(Assessment_Completed_M0090) />
</cfif>
<cfif len(day(Assessment_Completed_M0090)) lt 10 >
	<cfset Assessment_Completed_M0090_Day = "0" & day(Assessment_Completed_M0090) />
<cfelse>
	<cfset Assessment_Completed_M0090_Day = day(Assessment_Completed_M0090) />
</cfif>
<cfset HHA_Record_Data = HHA_Record_Data & Assessment_Completed_M0090_Year & Assessment_Completed_M0090_Month & Assessment_Completed_M0090_Day />

<!---#Append the assessment reason --->
<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "01" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("2 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "02" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("3 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "03" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("4 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "04" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("5 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "05" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("6 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "06" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("7 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "07" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("8 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "08" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "09" />
</cfif>
<cfif Assessment_Reason_M0100.indexOf("10 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "10" />
</cfif>

<!---#Append  a 425 space filler --->
<cfset HHA_Record_Data & left(gHHA_Record_Padding,425) />




							<!---2.Perform Script [ “Create Data Record thru 737-744 M0906 Datasets” ] --->
<!--==================================================================================================================================================		                                             	Create Data Record thru 737-744 M0906 Datasets
===================================================================================================================================================-->						
<!---#Append M0906 Discharge Date --->

<cfset Date_Discharge_M0906_year = "" />
<cfset Date_Discharge_M0906_month = "" />
<cfset Date_Discharge_M0906_day = "" />

<cfif Assessment_Reason_M0100.indexOf("6") neq "-1" or Assessment_Reason_M0100.indexOf("7") neq "-1" or Assessment_Reason_M0100.indexOf("8") neq "-1" or Assessment_Reason_M0100.indexOf("9") neq "-1">
	<cfset Date_Discharge_M0906_year = year(Date_Discharge_M0906) />
	<cfif month(Date_Most_Recent_M0903) lt 10>
		<cfset Date_Discharge_M0906_month = "0" & month(Date_Discharge_M0906) />
	<cfelse>
		<cfset Date_Discharge_M0906_month = month(Date_Discharge_M0906) />
	</cfif>
	<cfif day(Date_Discharge_M0906) lt 10>
		<cfset Date_Discharge_M0906_day = "0" & day(Date_Discharge_M0906) />
	<cfelse>
		<cfset Date_Discharge_M0906_day = day(Date_Discharge_M0906) />
	</cfif>
	<cfset HHA_Record_Data = HHA_Record_Data & Date_Discharge_M0906_year & Date_Discharge_M0906_month & Date_Discharge_M0906_day />
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,8) />
</cfif>


	
<!--==================================================================================================================================================		                                             	End Create Data Record thru 737-744 M0906 Datasets
===================================================================================================================================================-->						

								<!---3.Perform Script [ “Create Inactivation Record thru end Datasets *U” ]--->
								
<!---#Append a 701 space filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,701) />

<!---#Append the terminator code --->
<cfset HHA_Record_Data = HHA_Record_Data & "%" />

<!--- End Perform Script [ “Create Inactivation Record Datasets *U” ] --->


<!--=================================================================================================================================================		                                                	Re-create Inactivation Datasets
==================================================================================================================================================-->

<cfform name="samop" id="123">
<table>
	<tr>
	<td>
<cftextarea rows="10" cols="100" name="hrdata" value="#HHA_Record_Data#" type="text"></cftextarea>
	</td>
	<td>
<cftextarea rows="1" cols="10" name="hrdatafdf" value="#len(HHA_Record_Data)#" type="text"></cftextarea>
	<td>
	</tr>
</table>
</cfform>