<cfset Assessment_ID = "0" />


<cfset Assessment_ID = Session.CS.AssessmentId />

<cfif isdefined("url.AID")>
	<cfset Assessment_ID = url.AID />
</cfif>


<!---Declartion--->
<cfset HHA_Record_Data="" />

<cfset M0190 = "" />
<cfset M0210 = "" />
<cfset M1012 = "" />
<cfset Mask_Required = "0" />

<cfquery name="Dataset_Details" datasource="#Application.DataSrc#">
SELECT HHA_Record_Data FROM #Request.prefix_db_agency#.Datasets 
where Assessment_ID =#Assessment_ID#
</cfquery>

<cfquery name="Assessment_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT  Patient_ID,Agency_Number,Agency_ID,Assessment_Tracker_ID,Assessment_Reason_M0100,Discharged_From_M0175,Assessment_Completed_M0090 ,
	Medical_or_Treatment_Change_M0200 ,Admission_Status,Transmission_status,Assessment_Unlock_Reason ,Correction_Number,Start_of_Care_M0030,
	Resump_of_Care_M0032,Resump_of_Care_NA_M0032,Person_Complete_M0080,Inpatient_Discharge_Date_M0180,Inpatient_Discharge_Date_NA_M0180,
	M1016_DX_NA,Conditions_Prior_M0220,Therapies_Home_M0250,Overall_Prognosis_M0260,Rehab_Prognosis_M0270,Life_Exp_M0280,
	High_Risk_Factors_M0290, Vision_M0390, Hearing_M0400, Speech_M0410, Freq_of_Pain_M0420, Intrac_Pain_M0430,Open_Wounds_M0440,
	Pressure_Ulcer_M0445,Pressure_Ulcer_a_M0450,Pressure_Ulcer_b_M0450,Pressure_Ulcer_c_M0450,Pressure_Ulcer_d_M0450,Pressure_Ulcer_e_M0450,
	Pressure_Ulcer_Stage_M0460,Pressure_Ulcer_Status_M0464,Stasis_Ulcer_M0468,Stasis_Ulcer_Num_M0470,Stasis_Ulcer_Hidden_M0474,
	Stasis_Ulcer_Status_M0476,Surgical_Wound_M0482	,Surgical_Wound_OB_M0484,Surgical_Wound_Hidden_M0486,Surgical_Wound_Status_M0488,
	Breathing_M0490,Resp_Treatments_M0500,UTI_M0510,Urinary_INcont_when_M0530,Urinary_INcont_M0520,Bowel_Incont_M0540,Ostomy_for_Bowel_M0550,
	Cog_Function_M0560,When_Confused_M0570,When_Anxious_M0580,Depressive_Feelings_M0590,Patient_Behav_Weekly_M0610,Patient_Behav_freq_M0620,
	Psy_Nursing_M0630,Grooming_M0640p,Grooming_M0640,Dress_Upper_M0650,Dress_Upper_M0650p,Bathing_M0670,Bathing_M0670p,Toileting_M0680p,
	Toileting_M0680,Transferring_M0690,Transferring_M0690p	,Ambulation_M0700p,Ambulation_M0700,Eating_M0710,Eating_M0710p,Meal_Prep_M0720p,
	Meal_Prep_M0720,Transport_M0730p,Transport_M0730,Laundry_M0740p,Laundry_M0740,Housekeeping_M0750p,Housekeeping_M0750,Shopping_M0760p,
	Shopping_M0760,Dress_Lower_M0660,Dress_Lower_M0660p,Use_Phone_M0770p,Use_Phone_M0770,Oral_Meds_M0780,Oral_Meds_M0780p,Inhalant_Meds_M0790,
	Inhalant_Meds_M0790p,Inject_Meds_m0800p,Inject_Meds_m0800,Patient_Manage_Equip_M0810,Caregiver_Manage_Equip_M0820,
	Emergent_Care_M0830,Emergent_Care_Reason_M0840,Inpatient_Facility_M0855,Discharge_Disposition_M0870,After_Discharge_Services_M0880,
	Hospital_Reason_M0890,Hospital_Reason_List_M0895,Nursing_Home_M0900,Date_Most_Recent_M0903,Date_Discharge_M0906,M0110,M0826_NA,
	M0826_Ther_Need,M0102_Physician_SOC,M0104_Date_of_Referral,M1012_Inpat_DX_NA,M1012_Inpat_DX_UK,M1032_Frailty,M1220_Verbal_Under,	
	M1240_Pain_Assess,M1300_Pressure,M1302_Pressure,M1306_Unhealed_Pressure,M1308_d_2_Pressure,M1308_d_3_Pressure,M1310_1,M1310_Length,
	M1312_Width,M1312_1,M1314_Depth,M1314_1,M1350_Other_Wounds,M1730_Depression,M1730a,M1730b,M1840_Toilet,M1845_Toilet,M1900a_SelfCare,
	M1900b_Amb,M1900c_Transfer,M1900d_House,M1910_Fall_Risk,M2000_Adverse,M2002_Med_FU,M2010_Med_Edu,HIPPS_Code,M2100a_Equip,
	M2100b_Equip,M2100c_Equip,M2100d_Equip,M2100e_Equip,M2100f_Equip, M2100g_Equip,M2110_Assist_Freq,M2250a_PhysNot,M2250b_Diabetic,
  	M2250c_FallsPrev,M2250d_Depress,M2250e_Pain,M2250f_PressUlc, M2250g_PressUlcMoist,
	M1308_a_12_Pressure,M1308_b_12_Pressure,
	M1308_c_12_Pressure,M1308_d_12_Pressure,M1308_d_22_Pressure,
	M1308_d_32_Pressure,M1040_Influ,M1050_Pneu,M1055_Pneu,M1307_Date,
	M1307_Oldest,M1500_Symptoms,M1510_Hrt_FU,M2004_Med_Int,M2015_Drug_Edu,
	M2400a_Diabetic,M2400b_FallsPrev,M2400c_Depress,M2400d_Pain,M2400e_PressUlc,
	M2400f_PressUlcMoist,Date_Discharge_M0906

	FROM #Request.prefix_db_agency#.Assessment_New 
	WHERE Assessment_ID='#Assessment_ID#'
</cfquery>


<cfset Date_Discharge_M0906 = Assessment_Details.Date_Discharge_M0906 />

<cfset Emergent_Care_M0830=Assessment_Details.Emergent_Care_M0830 />
<cfset Emergent_Care_Reason_M0840=Assessment_Details.Emergent_Care_Reason_M0840 />
<cfset Inpatient_Facility_M0855=Assessment_Details.Inpatient_Facility_M0855 />
<cfset Discharge_Disposition_M0870=Assessment_Details.Discharge_Disposition_M0870 />
<cfset After_Discharge_Services_M0880=Assessment_Details.After_Discharge_Services_M0880 />
<cfset Hospital_Reason_M0890=Assessment_Details.Hospital_Reason_M0890 />
<cfset Hospital_Reason_List_M0895=Assessment_Details.Hospital_Reason_List_M0895 />
<cfset Nursing_Home_M0900=Assessment_Details.Nursing_Home_M0900 />
<cfset Date_Most_Recent_M0903=Assessment_Details.Date_Most_Recent_M0903 />
<cfset Date_Discharge_M0906=Assessment_Details.Date_Discharge_M0906 />
<cfset M0110=Assessment_Details.M0110 />
<cfset M0826_NA=Assessment_Details.M0826_NA />
<cfset M0826_Ther_Need=Assessment_Details.M0826_Ther_Need />
<cfset M0102_Physician_SOC=Assessment_Details.M0102_Physician_SOC />
<cfset M0104_Date_of_Referral=Assessment_Details.M0104_Date_of_Referral />
<cfset M1012_Inpat_DX_NA=Assessment_Details.M1012_Inpat_DX_NA />
<cfset M1012_Inpat_DX_UK=Assessment_Details.M1012_Inpat_DX_UK />
<cfset M1032_Frailty=Assessment_Details.M1032_Frailty />
<cfset M1220_Verbal_Under=Assessment_Details.M1220_Verbal_Under />
<cfset M1240_Pain_Assess=Assessment_Details.M1240_Pain_Assess />
<cfset M1300_Pressure=Assessment_Details.M1300_Pressure />
<cfset M1302_Pressure=Assessment_Details.M1302_Pressure />
<cfset M1306_Unhealed_Pressure=Assessment_Details.M1306_Unhealed_Pressure />
<cfset M1308_d_2_Pressure=Assessment_Details.M1308_d_2_Pressure />
<cfset M1308_d_3_Pressure=Assessment_Details.M1308_d_3_Pressure />
<cfset M1310_1=Assessment_Details.M1310_1 />
<cfset M1310_Length=Assessment_Details.M1310_Length />
<cfset M1312_Width=Assessment_Details.M1312_Width />
<cfset M1312_1=Assessment_Details.M1312_1 />
<cfset M1314_Depth=Assessment_Details.M1314_Depth />
<cfset M1314_1=Assessment_Details.M1314_1 />
<cfset M1350_Other_Wounds=Assessment_Details.M1350_Other_Wounds />
<cfset M1730_Depression=Assessment_Details.M1730_Depression />
<cfset M1730a=Assessment_Details.M1730a />
<cfset M1730b=Assessment_Details.M1730b />
<cfset M1840_Toilet=Assessment_Details.M1840_Toilet />
<cfset M1845_Toilet=Assessment_Details.M1845_Toilet />
<cfset M1845_Toilet=Assessment_Details.M1845_Toilet />
<cfset M1900a_SelfCare=Assessment_Details.M1900a_SelfCare />
<cfset M1900b_Amb=Assessment_Details.M1900b_Amb />
<cfset M1900c_Transfer=Assessment_Details.M1900c_Transfer />
<cfset M1900d_House=Assessment_Details.M1900d_House />
<cfset M1910_Fall_Risk=Assessment_Details.M1910_Fall_Risk />
<cfset M2000_Adverse=Assessment_Details.M2000_Adverse />
<cfset M2002_Med_FU=Assessment_Details.M2002_Med_FU />
<cfset M2010_Med_Edu=Assessment_Details.M2010_Med_Edu />
<cfset HIPPS_Code=Assessment_Details.HIPPS_Code />
<cfset M2100a_Equip=Assessment_Details.M2100a_Equip />
<cfset M2100b_Equip=Assessment_Details.M2100b_Equip />
<cfset M2100c_Equip=Assessment_Details.M2100c_Equip />
<cfset M2100d_Equip=Assessment_Details.M2100d_Equip />
<cfset M2100e_Equip=Assessment_Details.M2100e_Equip />
<cfset M2100f_Equip=Assessment_Details.M2100f_Equip />
<cfset M2100g_Equip=Assessment_Details.M2100g_Equip />
<cfset M2110_Assist_Freq=Assessment_Details.M2110_Assist_Freq />
<cfset M2250a_PhysNot=Assessment_Details.M2250a_PhysNot />
<cfset M2250b_Diabetic=Assessment_Details.M2250b_Diabetic />
<cfset M2250c_FallsPrev=Assessment_Details.M2250c_FallsPrev />
<cfset M2250d_Depress=Assessment_Details.M2250d_Depress />
<cfset M2250e_Pain=Assessment_Details.M2250e_Pain />
<cfset M2250f_PressUlc=Assessment_Details.M2250f_PressUlc />
<cfset M2250g_PressUlcMoist=Assessment_Details.M2250g_PressUlcMoist />



<cfset Assessment_Tracker_ID=Assessment_Details.Assessment_Tracker_ID />
<cfset Agency_Id =Assessment_Details.agency_Id />		
<cfset Patient_ID=Assessment_Details.Patient_ID />
<cfset Agency_Number = Assessment_Details.Agency_Number />


<cfset Caregiver_Manage_Equip_M0820 = Assessment_Details.Caregiver_Manage_Equip_M0820 />
<cfset Patient_Manage_Equip_M0810 = Assessment_Details.Patient_Manage_Equip_M0810 />

<cfset Inject_Meds_m0800p = Assessment_Details.Inject_Meds_m0800p />
<cfset Inject_Meds_m0800 = Assessment_Details.Inject_Meds_m0800 />

<cfset Inhalant_Meds_M0790p = Assessment_Details.Inhalant_Meds_M0790p />
<cfset Inhalant_Meds_M0790 = Assessment_Details.Inhalant_Meds_M0790 />

<cfset Oral_Meds_M0780p = Assessment_Details.Oral_Meds_M0780p />
<cfset Oral_Meds_M0780 = Assessment_Details.Oral_Meds_M0780 />

<cfset Use_Phone_M0770p = Assessment_Details.Use_Phone_M0770p />
<cfset Use_Phone_M0770 = Assessment_Details.Use_Phone_M0770 />

<cfset Shopping_M0760p = Assessment_Details.Shopping_M0760p />
<cfset Shopping_M0760 = Assessment_Details.Shopping_M0760 />

<cfset Housekeeping_M0750p = Assessment_Details.Housekeeping_M0750p />
<cfset Housekeeping_M0750 = Assessment_Details.Housekeeping_M0750 />

<cfset Laundry_M0740p = Assessment_Details.Laundry_M0740p />
<cfset Laundry_M0740 = Assessment_Details.Laundry_M0740 />

<cfset Transport_M0730p = Assessment_Details.Transport_M0730p />
<cfset Transport_M0730 = Assessment_Details.Transport_M0730 />

<cfset Meal_Prep_M0720p = Assessment_Details.Meal_Prep_M0720p />
<cfset Meal_Prep_M0720 = Assessment_Details.Meal_Prep_M0720 />

<cfset Eating_M0710 = Assessment_Details.Eating_M0710 />
<cfset Eating_M0710p = Assessment_Details.Eating_M0710p />

<cfset Ambulation_M0700 = Assessment_Details.Ambulation_M0700 />
<cfset Ambulation_M0700p = Assessment_Details.Ambulation_M0700p />

<cfset Transferring_M0690 = Assessment_Details.Transferring_M0690 />
<cfset Transferring_M0690p = Assessment_Details.Transferring_M0690p />

<cfset Toileting_M0680p = Assessment_Details.Toileting_M0680p />
<cfset Toileting_M0680 = Assessment_Details.Toileting_M0680 />

<cfset Grooming_M0640p = Assessment_Details.Grooming_M0640p />
<cfset Grooming_M0640 = Assessment_Details.Grooming_M0640 />

<cfset Dress_Lower_M0660 = Assessment_Details.Dress_Lower_M0660 />
<cfset Dress_Lower_M0660p = Assessment_Details.Dress_Lower_M0660p />

<cfset Dress_Upper_M0650 = Assessment_Details.Dress_Upper_M0650 />
<cfset Dress_Upper_M0650p = Assessment_Details.Dress_Upper_M0650p />

<cfset Bathing_M0670 = Assessment_Details.Bathing_M0670 />
<cfset Bathing_M0670p = Assessment_Details.Bathing_M0670p />

<cfset Patient_Behav_Weekly_M0610 = Assessment_Details.Patient_Behav_Weekly_M0610 />
<cfset Patient_Behav_freq_M0620 = Assessment_Details.Patient_Behav_freq_M0620 />
<cfset Psy_Nursing_M0630 = Assessment_Details.Psy_Nursing_M0630 />
<cfset Depressive_Feelings_M0590 = Assessment_Details.Depressive_Feelings_M0590 />
<cfset When_Anxious_M0580 = Assessment_Details.When_Anxious_M0580 />
<cfset When_Confused_M0570 = Assessment_Details.When_Confused_M0570 />
<cfset Cog_Function_M0560 = Assessment_Details.Cog_Function_M0560 />
<cfset Ostomy_for_Bowel_M0550 = Assessment_Details.Ostomy_for_Bowel_M0550 />
<cfset Bowel_Incont_M0540 = Assessment_Details.Bowel_Incont_M0540 />
<cfset Urinary_INcont_M0520 = Assessment_Details.Urinary_INcont_M0520 />
<cfset Breathing_M0490 = Assessment_Details.Breathing_M0490 />
<cfset Urinary_INcont_when_M0530 = Assessment_Details.Urinary_INcont_when_M0530 />
<cfset UTI_M0510 = Assessment_Details.UTI_M0510 />
<cfset Resp_Treatments_M0500 = Assessment_Details.Resp_Treatments_M0500 />
<cfset Surgical_Wound_Status_M0488 = Assessment_Details.Surgical_Wound_Status_M0488 />
<cfset Surgical_Wound_Hidden_M0486= Assessment_Details.Surgical_Wound_Hidden_M0486 />
<cfset Surgical_Wound_OB_M0484 = Assessment_Details.Surgical_Wound_OB_M0484  />
<cfset Surgical_Wound_M0482 = Assessment_Details.Surgical_Wound_M0482 />
<cfset Stasis_Ulcer_Status_M0476 = Assessment_Details.Stasis_Ulcer_Status_M0476  />
<cfset Stasis_Ulcer_Hidden_M0474 = Assessment_Details.Stasis_Ulcer_Hidden_M0474 />
<cfset Stasis_Ulcer_Num_M0470 = Assessment_Details.Stasis_Ulcer_Num_M0470  />
<cfset Stasis_Ulcer_M0468 = Assessment_Details.Stasis_Ulcer_M0468  />
<cfset Pressure_Ulcer_Status_M0464 = Assessment_Details.Pressure_Ulcer_Status_M0464  />
<cfset Pressure_Ulcer_a_M0450 = Assessment_Details.Pressure_Ulcer_a_M0450 />
<cfset Pressure_Ulcer_b_M0450 = Assessment_Details.Pressure_Ulcer_b_M0450 />
<cfset Pressure_Ulcer_c_M0450 = Assessment_Details.Pressure_Ulcer_c_M0450 />
<cfset Pressure_Ulcer_d_M0450 = Assessment_Details.Pressure_Ulcer_d_M0450 />
<cfset Pressure_Ulcer_e_M0450 = Assessment_Details.Pressure_Ulcer_e_M0450 />
<cfset Pressure_Ulcer_Stage_M0460 = Assessment_Details.Pressure_Ulcer_Stage_M0460 />
<cfset Pressure_Ulcer_M0445 = Assessment_Details.Pressure_Ulcer_M0445 />
<cfset Open_Wounds_M0440 = Assessment_Details.Open_Wounds_M0440 />
<cfset Assessment_Reason_M0100=Assessment_Details.Assessment_Reason_M0100 />


<cfset Discharged_From_M0175 = Assessment_Details.Discharged_From_M0175  />
<cfset Assessment_Completed_M0090 = Assessment_Details.Assessment_Completed_M0090 />
<cfset Medical_or_Treatment_Change_M0200 = Assessment_Details.Medical_or_Treatment_Change_M0200 />
<cfset Admission_Status = Assessment_Details.Admission_Status />
<cfset Transmission_status = Assessment_Details.Transmission_status />
<cfset Assessment_Unlock_Reason  = Assessment_Details.Assessment_Unlock_Reason  />
<cfset Correction_Number = Assessment_Details.Correction_Number />
<cfset Start_of_Care_M0030 = Assessment_Details.Start_of_Care_M0030 />
<cfset Resump_of_Care_M0032 = Assessment_Details.Resump_of_Care_M0032 />
<cfset Resump_of_Care_NA_M0032= Assessment_Details.Resump_of_Care_NA_M0032 />
<cfset Person_Complete_M0080 = Assessment_Details.Person_Complete_M0080 />
<cfset Inpatient_Discharge_Date_M0180 = Assessment_Details.Inpatient_Discharge_Date_M0180 />
<cfset Inpatient_Discharge_Date_NA_M0180 = Assessment_Details.Inpatient_Discharge_Date_NA_M0180 />
<cfset Medical_or_Treatment_Change_M0200 = Assessment_Details.Medical_or_Treatment_Change_M0200 />
<cfset M1016_DX_NA = Assessment_Details.M1016_DX_NA />
<cfset Conditions_Prior_M0220 = Assessment_Details.Conditions_Prior_M0220 />
<cfset Therapies_Home_M0250 = Assessment_Details.Therapies_Home_M0250 />
<cfset Overall_Prognosis_M0260 = Assessment_Details.Overall_Prognosis_M0260 />
<cfset Rehab_Prognosis_M0270 = Assessment_Details.Rehab_Prognosis_M0270 />
<cfset Life_Exp_M0280 = Assessment_Details.Life_Exp_M0280  />
<cfset High_Risk_Factors_M0290 = Assessment_Details.High_Risk_Factors_M0290  />



<cfset M1308_a_12_Pressure = Assessment_Details.M1308_a_12_Pressure />
<cfset M1308_b_12_Pressure = Assessment_Details.M1308_b_12_Pressure />
<cfset M1308_c_12_Pressure = Assessment_Details.M1308_c_12_Pressure />
<cfset M1308_d_12_Pressure = Assessment_Details.M1308_d_12_Pressure />
<cfset M1308_d_22_Pressure = Assessment_Details.M1308_d_22_Pressure />
<cfset M1308_d_32_Pressure = Assessment_Details.M1308_d_32_Pressure />
<cfset M1040_Influ = Assessment_Details.M1040_Influ />
<cfset M1050_Pneu = Assessment_Details.M1050_Pneu />
<cfset M1055_Pneu = Assessment_Details.M1055_Pneu />
<cfset M1307_Date = Assessment_Details.M1307_Date />
<cfset M1307_Oldest = Assessment_Details.M1307_Oldest />
<cfset M1500_Symptoms = Assessment_Details.M1500_Symptoms />
<cfset M1510_Hrt_FU = Assessment_Details.M1510_Hrt_FU />
<cfset M2004_Med_Int = Assessment_Details.M2004_Med_Int />
<cfset M2015_Drug_Edu = Assessment_Details.M2015_Drug_Edu />
<cfset M2400a_Diabetic = Assessment_Details.M2400a_Diabetic />
<cfset M2400b_FallsPrev = Assessment_Details.M2400b_FallsPrev />
<cfset M2400c_Depress = Assessment_Details.M2400c_Depress  />
<cfset M2400d_Pain = Assessment_Details.M2400d_Pain  />
<cfset M2400e_PressUlc = Assessment_Details.M2400e_PressUlc />
<cfset M2400f_PressUlcMoist = Assessment_Details.M2400f_PressUlcMoist />



<cfset Vision_M0390 = Assessment_Details.Vision_M0390  />
<cfset Hearing_M0400 = Assessment_Details.Hearing_M0400  />
<cfset Speech_M0410 = Assessment_Details.Speech_M0410  />
<cfset Freq_of_Pain_M0420 = Assessment_Details.Freq_of_Pain_M0420  />
<cfset Intrac_Pain_M0430 = Assessment_Details.Intrac_Pain_M0430  />



<cfquery name="Diagnosis" datasource="#Application.DataSrc#" timeout="1000">
SELECT M0245_ICD
FROM	#Request.prefix_db_agency#.Diagnosis
WHERE Assessment_ID='#Assessment_ID#' limit 0,1
</cfquery>

<cfset M0246 = Diagnosis.M0245_ICD />

<cfquery name="Diagnosis_M0230" datasource="#Application.DataSrc#" timeout="1000">
	SELECT Diagnosis.Primary_Diagnosis,Diagnosis.Secondary_Diagnosis,ICD,Code_Type,Text_ICD,Severity 
	From #Request.prefix_db_agency#.Diagnosis where Diagnosis.Assessment_ID='#Assessment_ID#' and M0230_Link is not null order by dx_order
</cfquery>

<cfquery name="Diagnosis_M0230_1" datasource="#Application.DataSrc#" timeout="1000">
	SELECT *
	From #Request.prefix_db_agency#.Diagnosis where Diagnosis.Assessment_ID='#Assessment_ID#' and M0230_Link is not null and Primary_Diagnosis =1 order by dx_order
</cfquery>

<cfquery name="Diagnosis_M0190" datasource="#Application.DataSrc#" timeout="1000">
	SELECT *
	From #Request.prefix_db_agency#.Diagnosis where Diagnosis.Assessment_ID='#Assessment_ID#' and M0190_Link is not null order by dx_order
</cfquery>

<cfquery name="Diagnosis_M0210" datasource="#Application.DataSrc#" timeout="1000">
	SELECT *
	From #Request.prefix_db_agency#.Diagnosis where Diagnosis.Assessment_ID='#Assessment_ID#' and M0210_Link is not null order by dx_order
</cfquery>

<cfquery name="Diagnosis_M1012" datasource="#Application.DataSrc#" timeout="1000">
	SELECT *
	From #Request.prefix_db_agency#.Diagnosis where Diagnosis.Assessment_ID='#Assessment_ID#' and M1012_Link is not null 
</cfquery>

<cfquery name="Patient_Details" datasource="#Application.DataSrc#" timeout="1000">
	select Assisting_Persons_M0350, Current_Payment_Sources_M0150, Agency_Assigned_ID, First_Name_M0040, Middle_Initial_M0040, Last_Name_M0040,
	Suffix_M0040, State_M0050, Zip_M0060, Medicare_Number_M0063, Medicare_Number_NA_M0063, SSN_M0064, SSN_M0064_NA, Medicaid_Number_M0065,
	Medicaid_Number_NA_M0065,DOB_M0066,Gender_M0069,Primary_ReferringPhys_ID_NA,Race_M0140,Current_Residence_M0300,M1100_Living_Situation
	from #Request.prefix_db_agency#.patient where patient_id='#Patient_ID#'
</cfquery>



<cfquery name="Agency_Details" datasource="#Application.DataSrc#" timeout="1000">
	select SFW_ID,Agency_State_ID,Agency_Medicare_ID,Agency_Medicaid_ID,Agency_Branch_ID,Natl_Provider_ID
	from #Request.prefix_db_lookup#.Agency where Agency_ID='#Agency_Id#'
</cfquery>

<cfquery name="PatientPhy_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT physician_ID FROM #Request.prefix_db_lookup#.patientphysician where patient_id='#Patient_ID#'	
</cfquery>

<cfquery name="Physician_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT Natl_Provider_ID FROM #Request.prefix_db_lookup#.Physician where physician_ID = '#PatientPhy_Details.physician_ID#'
</cfquery>

<cfquery name="PatientContact_Details" datasource="#Application.DataSrc#" timeout="1000">
	select contacttype,Frequency_of_Care,Caregiver_Scope from #Request.prefix_db_agency#.PatientContact where patient_id='#Patient_ID#'
</cfquery>

<cfset Relationship_M0360= PatientContact_Details.contacttype />
<cfset Frequency_of_Care = PatientContact_Details.Frequency_of_Care />
<cfset Caregiver_Scope = PatientContact_Details.Caregiver_Scope />

<cfset Assisting_Persons_M0350 = Patient_Details.Assisting_Persons_M0350  />
<cfset Current_Payment_Sources_M0150 = Patient_Details.Current_Payment_Sources_M0150 />
<cfset Agency_Assigned_ID=Patient_Details.Agency_Assigned_ID />
<cfset First_Name_M0040 =Patient_Details.First_Name_M0040 />
<cfset Middle_Initial_M0040 =Patient_Details.Middle_Initial_M0040 />
<cfset Last_Name_M0040 =Patient_Details.Last_Name_M0040 />
<cfset Suffix_M0040 = Patient_Details.Suffix_M0040 />
<cfset State_M0050 = Patient_Details.State_M0050 />
<cfset Zip_M0060 = Patient_Details.Zip_M0060 />
<cfset Medicare_Number_M0063 = Patient_Details.Medicare_Number_M0063 />
<cfset Medicare_Number_NA_M0063 = Patient_Details.Medicare_Number_NA_M0063 />
<cfset SSN_M0064 = Patient_Details.SSN_M0064 />
<cfset SSN_M0064_NA = Patient_Details.SSN_M0064_NA />
<cfset Medicaid_Number_M0065 = Patient_Details.Medicaid_Number_M0065 />
<cfset Medicaid_Number_NA_M0065 = Patient_Details.Medicaid_Number_NA_M0065 />
<cfset DOB_M0066 = Patient_Details.DOB_M0066 />
<cfset Gender_M0069 = Patient_Details.Gender_M0069 />
<cfset Primary_ReferringPhys_ID_NA = Patient_Details.Primary_ReferringPhys_ID_NA />
<cfset Race_M0140 = Patient_Details.Race_M0140 />
<cfset Current_Residence_M0300 = Patient_Details.Current_Residence_M0300 />
<cfset M1100_Living_Situation = Patient_Details.M1100_Living_Situation />

<cfset Provider_ID = Physician_Details.Natl_Provider_ID  />

<cfset Natl_Provider_ID = Agency_Details.Natl_Provider_ID  />
<cfset SFW_ID = Agency_Details.SFW_ID />
<cfset Agency_State_ID = Agency_Details.Agency_State_ID  />
<cfset Agency_Medicare_ID = Agency_Details.Agency_Medicare_ID />
<cfset Agency_Medicaid_ID = Agency_Details.Agency_Medicaid_ID />
<cfset Agency_Branch_ID = Agency_Details.Agency_Branch_ID />

<cfset Primary_Diagnosis = Diagnosis_M0230_1.RecordCount />

<cfset Count_M230_Diagnosis = Diagnosis_M0230.RecordCount  />
<cfset Count_M190_Diagnosis = Diagnosis_M0190.RecordCount  />
<cfset Count_M210_Diagnosis = Diagnosis_M0210.RecordCount  />
<cfset Count_M1012_Diagnosis = Diagnosis_M1012.RecordCount  />

<cfquery name="GetP" datasource="#Application.DataSrc#">
	SELECT Patient_ID, Last_Name_M0040 AS Last_Name, First_Name_M0040 AS First_Name, Middle_Initial_M0040 AS Middle
	      ,Payer_ID 
	FROM  #Request.prefix_db_agency#.patient 
	WHERE Patient_Id = '#Patient_ID#'
	AND   Agency_Id = '#Agency_Id#'
</cfquery>

<cfquery name="s3" datasource="#Application.DataSrc#">
	SELECT * FROM #Request.prefix_db_agency#.Datasets where Assessment_ID='#Assessment_ID#'
</cfquery>

<!--********************************************************************************************************************************************-->
												<!--Prepare Transmission File Assessment  -->
<!--********************************************************************************************************************************************-->

<cfset OASIS_Version_Code_1="" />
<cfset OASIS_Version_Code_2="" />

<cfset CheckDate="12/31/2009" />
<cfif Assessment_Completed_M0090 gt CheckDate>
	<cfset OASIS_Version_Code_1 = "C-072009" />
<cfelse>
	<cfset OASIS_Version_Code_1 = "B1-1202" />
</cfif>

<cfif OASIS_Version_Code_1.indexOf("C") neq "-1">	
	<cfset OASIS_Version_Code_2 = "02.00" />
<cfelse>
	<cfset OASIS_Version_Code_2 = "01.60" />
</cfif>

<cfif Assessment_Reason_M0100.indexOf("1")neq "-1" or Assessment_Reason_M0100.indexOf("3") neq "-1" or Assessment_Reason_M0100.indexOf("4") neq  "-1"
or Assessment_Reason_M0100.indexOf("5") neq  "-1" >
	<cfif Count_M230_Diagnosis eq 0 or Count_M230_Diagnosis gt 6 >
		<cflocation url="../patientadmin_new/index.cfm?page=patient&cat=dataset_final&status=1" addtoken="no">	
	</cfif>
	
</cfif>

<cfif Assessment_Reason_M0100.indexOf("1")neq "-1" or Assessment_Reason_M0100.indexOf("3") neq "-1" or Assessment_Reason_M0100.indexOf("4") neq  "-1"
or Assessment_Reason_M0100.indexOf("5") neq  "-1" >
	<cfif Primary_Diagnosis neq 1>
		<cflocation url="../patientadmin_new/index.cfm?page=patient&cat=dataset_final&status=1" addtoken="no">
	</cfif>
</cfif>

<cfif Assessment_Reason_M0100.indexOf("1")neq "-1" or Assessment_Reason_M0100.indexOf("3") neq "-1" >
	<cfif Discharged_From_M0175.indexOf("1")neq "-1" or Discharged_From_M0175.indexOf("2") neq "-1" or Discharged_From_M0175.indexOf("3") neq "-1" 
		or Discharged_From_M0175.indexOf("4") neq "-1" or Discharged_From_M0175.indexOf("5") neq "-1" >
		
		<cfif OASIS_Version_Code_1.indexOf("B") >
			<cfif Count_M190_Diagnosis eq 0 or Count_M190_Diagnosis gt 2 >
				<cflocation url="../patientadmin_new/index.cfm?page=patient&cat=dataset_final&status=2" addtoken="no">
			</cfif>
		</cfif>
		
		<cfif OASIS_Version_Code_1.indexOf("C") >
			<cfif Count_M190_Diagnosis eq 0 or Count_M190_Diagnosis gt 6 >
				<cflocation url="../patientadmin_new/index.cfm?page=patient&cat=dataset_final&status=3" addtoken="no">
			</cfif>
		</cfif>
	</cfif>	
</cfif>

<cfif Assessment_Reason_M0100.indexOf("1")neq "-1" or Assessment_Reason_M0100.indexOf("3") neq "-1" >
	<cfif Medical_or_Treatment_Change_M0200.indexOf("1")  neq "-1">
		<cfif OASIS_Version_Code_1.indexOf("B") >
			<cfif Count_M210_Diagnosis eq "0" or Count_M210_Diagnosis gt 4 >
				<cflocation url="../patientadmin_new/index.cfm?page=patient&cat=dataset_final&status=4" addtoken="no">
			</cfif>
		</cfif>
		
		<cfif OASIS_Version_Code_1.indexOf("C") >
			<cfif Count_M210_Diagnosis eq "0" or Count_M210_Diagnosis gt 6 >
				<cflocation url="../patientadmin_new/index.cfm?page=patient&cat=dataset_final&status=5" addtoken="no">
			</cfif>
		</cfif>
	</cfif>
</cfif>

<cfif Admission_Status neq "Complete" >
	<cflocation url="../patientadmin_new/index.cfm?page=patient&cat=dataset_final&status=6"  addtoken="no">
</cfif>

<cfif Transmission_status eq "Dataset locked and ready to transmit">
	<cflocation url="../patientadmin_new/index.cfm?page=patient&cat=dataset_final&status=7"  addtoken="no">
</cfif>

<cfif Transmission_status eq "Revision Completed">
	<cflocation url="../patientadmin_new/index.cfm?page=patient&cat=dataset_final&status=8" addtoken="no">
</cfif>

<cfif OASIS_Version_Code_1.indexOf("B") >
	<cfif Assessment_Reason_M0100 eq "9 - Discharge from agency" >
		<cfif Assisting_Persons_M0350 eq "UK - Unknown">
			<cflocation url="../patientadmin_new/index.cfm?page=patient&cat=dataset_final&status=9" addtoken="no" >
		</cfif>	
	</cfif>
</cfif>

<cfset Record_Changed = "Yes" />
<cfset DatasetType ="" /> 

<cfquery name="Dataset_Details" datasource="#Application.DataSrc#">
	select * from #Request.prefix_db_agency#.Datasets where Assessment_ID='#Assessment_ID#'
</cfquery>

<cfset Datasets_ID = Dataset_Details.Datasets_ID />

<cfif Assessment_Unlock_Reason eq "" or Assessment_Unlock_Reason eq "Local Need - (Not applicable if an assessment has been transmitted)" >
	<cfif Datasets_ID eq "">
		<cfset DatasetType ="CreateNewDataset" />
	<cfelse>
		<cfset DatasetType ="RecreateNewDataset" />
	</cfif>
	<cfset Transmission_status ="Dataset locked and ready to transmit" />
</cfif>

<cfset CreateInactivationDatasets = "" />

<cfif Assessment_Unlock_Reason eq "Key Field Errors" >
	<cfif Transmission_status eq "Inactivation Request waiting to be locked.">
		<cfset CreateInactivationDatasets = "1" />
		<cfif Datasets_ID eq "" >
			<cfset DatasetType ="CreateInactivationDataset" />
		<cfelse>
			<cfset DatasetType ="ReCreateInactivationDataset" />
		</cfif>
	</cfif>
</cfif>


<cfif Assessment_Unlock_Reason eq "Key Field Errors" or Assessment_Unlock_Reason eq "Non-Key Field Errors"  >
	<cfif Datasets_ID eq "">
		<cfset DatasetType ="CreateNewDataset" />
	<cfelse>
		<cfset DatasetType ="RecreateNewDataset" />
	</cfif>
	<cfset Transmission_status ="Corrected dataset locked and ready to transmit" />
</cfif>

<cfif Assessment_Unlock_Reason eq "Assessment rejected by state system" >
	<cfif Datasets_ID eq "">
		<cfset DatasetType ="CreateNewDataset" />
	<cfelse>
		<cfset DatasetType ="RecreateNewDataset" />
	</cfif>
	<cfset Transmission_status ="Corrected dataset locked and ready to transmit" />
	
</cfif>


<cfset CreateDataRecordDatasets = "" />

<cfif DatasetType eq "CreateNewDataset">
	<cfset Creation_Date = DateFormat(Now(), "mm/dd/yyyy") />	
	<cfset Rev_Number = 0 />
	<cfset Datasets_ID = 0 />
	<cfset Typeoftrans = 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 Mask_Required = "0" />
	<cfelse>
		<cfset Mask_Required = "1" />
	</cfif>
	
	<cfset CreateDataRecordDatasets = "1" />
</cfif>


<cfif DatasetType eq "RecreateNewDataset">
	<cfset Creation_Date = DateFormat(Now(), "mm/dd/yyyy") />	
	<cfset Datasetcreated = 0 />

	<cfset Typeoftrans = 1 />
	<cfset Record_Changed = "Yes" />
	<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 Mask_Required = "0" />
	<cfelse>
		<cfset Mask_Required = "1" />
	</cfif>
	
	<cfset CreateDataRecordDatasets = "1" />
</cfif>

<!--********************************************************************************************************************************************-->
												<!--Datasets: Create Data Record Datasets *U  -->
<!--********************************************************************************************************************************************-->

<cfif CreateDataRecordDatasets eq "1">

	<!--********************************************************************************************************************************************-->
								<!--Create Data Record thru 001-331 M0150  Datasets **NAV   ***** NEEDS WORK  -->
<!--********************************************************************************************************************************************-->
	

<!--Working on the sets to create the data record.  Each step will be appended to the data field. -->
<cfset HHA_Record_Data = "B1" />

<!--Append a 2 space filler  -->
<cfset HHA_Record_Data=HHA_Record_Data &"         " />

<!--Append the lock date - make blank now 6/21/2006   
<!---<cfif len(month(Creation_Date)) lt 2>
	<cfset Creation_Date_Month = "0" &""& month(Creation_Date) />
<cfelse>
	<cfset Creation_Date_Month = month(Creation_Date) />
</cfif>
<cfif len(day(Creation_Date)) lt 2>
	<cfset Creation_Date_Day = "0" &""& day(Creation_Date) />
<cfelse>
	<cfset Creation_Date_Day = day(Creation_Date) />
</cfif>--->
<!---<cfset HHA_Record_Data = "" & HHA_Record_Data &""& Year(Creation_Date) &""& Creation_Date_Month &""& Creation_Date_Day />--->

<!--Append the correction number   -->
<cfif len(Correction_Number) lt 9>
	<cfset HHA_Record_Data=HHA_Record_Data & "0" & Correction_Number />
<cfelse>
	<cfset HHA_Record_Data=HHA_Record_Data & Correction_Number />
</cfif>

<cfset gHHA_Record_Padding="" />
<cfset temp=1 />

<cfloop from="1" to="2101" index="i">
		<cfset gHHA_Record_Padding= gHHA_Record_Padding & " " />
</cfloop>

<!--Append the Document ID code.  For now I am putting in blanks.  We may want to set this as the oasis record ID.    -->
<cfset HHA_Record_Data =HHA_Record_Data & left(gHHA_Record_Padding,8) />

<!--Append Version Code 1-->

<cfif Len(OASIS_Version_Code_1) lt 12>
	<cfset HHA_Record_Data = HHA_Record_Data & OASIS_Version_Code_1 & left(gHHA_Record_Padding,12-len(OASIS_Version_Code_1))   />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""&  left(OASIS_Version_Code_1,12) />
</cfif>

<!--Append Version Code 2     -->
<cfset HHA_Record_Data = HHA_Record_Data &""& OASIS_Version_Code_2 />

<!--Append the Software vendor FEIN      -->
<cfif Len(SFW_ID) lt 9>
	<cfset HHA_Record_Data = HHA_Record_Data & SFW_ID & left(gHHA_Record_Padding,9-len(SFW_ID))   />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(SFW_ID,9) />
</cfif>

<!--Append the Software version number       -->
<cfset HHA_Record_Data = HHA_Record_Data & "02.02" />

<!--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 the unique patient ID code.  This will be blank unless provided by the state.  -->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 14) />

<!--Append the State ID Code.  Always blank.   -->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 2) />

<!--Append the State error count & correction fields.  Leave blank.    -->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 11) />

<!--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 the Control Filler    -->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 7) />

<!--Append the Agency Medicare ID    -->
<cfif Len(Agency_Medicare_ID) lt 6>
	<cfset HHA_Record_Data = HHA_Record_Data & Ucase(Agency_Medicare_ID) & left(gHHA_Record_Padding,6-len(Agency_Medicare_ID))   />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& Ucase(left(Agency_Medicare_ID,6)) />
</cfif>

<!--Append the Agency Medicaid ID    -->
<cfif OASIS_Version_Code_1.indexof("B") neq "-1">
	<cfif Len(Agency_Medicaid_ID) lt 15>
		<cfset HHA_Record_Data = HHA_Record_Data & Ucase(Agency_Medicaid_ID) & left(gHHA_Record_Padding,15-len(Agency_Medicaid_ID))   />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& Ucase(left(Agency_Medicaid_ID,15)) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 15) />
</cfif>

<!--Append M0014 State     -->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 2) />

<!--Append M0016 Branch_ID     -->
<cfif Agency_Branch_ID eq "N">
	<cfset HHA_Record_Data = HHA_Record_Data &  "N" & left(gHHA_Record_Padding , 9) />
<cfelse>
	<cfif Agency_Branch_ID eq "">
		<cfset HHA_Record_Data = HHA_Record_Data &  "" & left(gHHA_Record_Padding , 10) />
	<cfelse>
		<cfif Len(Agency_Branch_ID) lt 10>
			<cfset HHA_Record_Data = HHA_Record_Data & Ucase(Agency_Branch_ID) & left(gHHA_Record_Padding,10-len(Agency_Branch_ID))   />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data &""& Ucase(left(Agency_Branch_ID,10)) />
		</cfif>
	</cfif>		
</cfif>

<!--Append the Patient ID    -->
<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"
	and Agency_Assigned_ID.indexOf("##") eq "0" 	>
	<cfif Len(Agency_Assigned_ID) lt 20>
		<cfset HHA_Record_Data = HHA_Record_Data & Ucase(Agency_Assigned_ID) & left(gHHA_Record_Padding,20-len(Agency_Assigned_ID))   />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& Ucase(left(Agency_Assigned_ID,20)) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 20)  />	
</cfif>

<!--Append the start of care date     -->
<cfif Start_of_Care_M0030 neq "">
	<cfif len(month(Start_of_Care_M0030)) lt 2>
		<cfset Creation_Date_Month = "0" &""& month(Start_of_Care_M0030) />
	<cfelse>
		<cfset Creation_Date_Month = month(Start_of_Care_M0030) />
	</cfif>
	<cfif len(day(Start_of_Care_M0030)) lt 2>
		<cfset Creation_Date_Day = "0" &""& day(Start_of_Care_M0030) />
	<cfelse>
		<cfset Creation_Date_Day = day(Start_of_Care_M0030) />
	</cfif>
	<cfset HHA_Record_Data = "" & HHA_Record_Data &""& Year(Start_of_Care_M0030) &""& Creation_Date_Month &""& Creation_Date_Day />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 8)  />
</cfif>
<!--Append the Resumption of care date -->
<cfif Resump_of_Care_M0032 neq "">
	<cfif len(month(Resump_of_Care_M0032)) lt 2>
		<cfset Creation_Date_Month = "0" &""& month(Resump_of_Care_M0032) />
	<cfelse>
		<cfset Creation_Date_Month = month(Resump_of_Care_M0032) />
	</cfif>
	<cfif len(day(Resump_of_Care_M0032)) lt 2>
		<cfset Creation_Date_Day = "0" &""& day(Resump_of_Care_M0032) />
	<cfelse>
		<cfset Creation_Date_Day = day(Resump_of_Care_M0032) />
	</cfif>
	<cfset HHA_Record_Data = "" & HHA_Record_Data &""& Year(Resump_of_Care_M0032) &""& Creation_Date_Month &""& Creation_Date_Day />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 8)  />
</cfif>

<!--Append the M0032_NA indicator  -->

<cfif Resump_of_Care_NA_M0032 eq "">
	<cfset HHA_Record_Data = HHA_Record_Data & "0"  />	


<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "1"  />	
</cfif>

<!--Append the Patient first name   -->

<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" >
	<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>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,12) />		
</cfif>

<!--Append the Middle_Initial name   -->

<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" >
	<cfif Len(Middle_Initial_M0040) lt 1>
		<cfset HHA_Record_Data = HHA_Record_Data & Ucase(Middle_Initial_M0040) & left(gHHA_Record_Padding,1-len(Middle_Initial_M0040))   />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& Ucase(left(Middle_Initial_M0040,1)) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<!--Append the Patient Last name   -->

<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" >
	<cfif Len(Last_Name_M0040) lt 18>
		<cfset HHA_Record_Data = HHA_Record_Data & Ucase(Last_Name_M0040) & left(gHHA_Record_Padding,18-len(Last_Name_M0040))   />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& Ucase(left(Last_Name_M0040,18)) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,18) />		
</cfif>

<!--Append the Patient suffix    -->
<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" >
	<cfif Len(Suffix_M0040) lt 1>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,3) />		
	<cfelseif Len(Suffix_M0040) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data &""& UCase(Suffix_M0040) & left(gHHA_Record_Padding,2) />		
	<cfelseif Len(Suffix_M0040) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data &""& UCase(Suffix_M0040) & left(gHHA_Record_Padding,1) />		
	<cfelseif Len(Suffix_M0040) eq 3>
		<cfset HHA_Record_Data = HHA_Record_Data &""& UCase(Suffix_M0040)  />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& UCase(Left(Suffix_M0040,3))  />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,3) />		
</cfif>

<!--Append the Patient State -->
<cfset HHA_Record_Data = HHA_Record_Data &""& Ucase(State_M0050) />

<!--Append the Patient Zip Code -->
<cfif Len(Zip_M0060) eq  5>
	<cfset HHA_Record_Data = HHA_Record_Data & Zip_M0060 & left(gHHA_Record_Padding,6)   />
<cfelse>
	<cfif Len(Zip_M0060) eq  9>
		<cfset HHA_Record_Data = HHA_Record_Data & Zip_M0060 & left(gHHA_Record_Padding,2)   />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,11) />
	</cfif>
</cfif>

<!--Append the Patient Medicare number  -->
<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" >
	<cfif Medicare_Number_NA_M0063 neq  "">
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,12)   />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& ucase(Medicare_Number_M0063) &  left(gHHA_Record_Padding,12- len(Medicare_Number_M0063)) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,12)   />
</cfif>	

<!--Append the Medicare NA   -->
<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" >
	<cfif Medicare_Number_NA_M0063.indexof("NA") neq  "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1"   />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0"   />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<!--Append the SSN    -->
<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" >
	<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>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,9) />	
</cfif>	

<!--Append the SSN NA   -->
<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" >
	<cfif SSN_M0064_NA.indexof("UK")  neq  "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0"   />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<!--Append the Patient Medicaid number    -->
<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" >
	<cfif Medicaid_Number_M0065  eq  "">
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,14) />	
	<cfelse>
		<cfif Len(Medicaid_Number_M0065) lt 14>
			<cfset HHA_Record_Data = HHA_Record_Data & ucase(Medicaid_Number_M0065) & left(gHHA_Record_Padding,14-len(Medicaid_Number_M0065))   />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data &""& left(Medicaid_Number_M0065,14) />
		</cfif>
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,14) />	
</cfif>	

<!--Append the Medicaid NA    -->
<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" >
	<cfif Medicaid_Number_NA_M0065.indexof("NA")  neq  "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0"   />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<!--#Append the Patient Birth Date     -->
<cfif DOB_M0066 neq "">
	<cfif month(DOB_M0066) lt 10>
		<cfset Creation_Date_Month = "0" &""& month(DOB_M0066) />
	<cfelse>
		<cfset Creation_Date_Month = month(DOB_M0066) />
	</cfif>
	<cfif day(DOB_M0066) lt 10>
		<cfset Creation_Date_Day = "0" &""& day(DOB_M0066) />
	<cfelse>
		<cfset Creation_Date_Day = day(DOB_M0066) />
	</cfif>
	<cfset HHA_Record_Data = "" & HHA_Record_Data &""& Year(DOB_M0066) &""& Creation_Date_Month &""& Creation_Date_Day />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 8)  />
</cfif>

<!--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 the physician ID        -->
<cfif len(Provider_ID) eq "10">
	<cfset HHA_Record_Data = HHA_Record_Data & Provider_ID />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,10) />
</cfif>

<!--Append the Physician NA indicator         -->
<cfif Primary_ReferringPhys_ID_NA.indexOf("UK") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<!--Append the Assessor discipline  -->
<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Person_Complete_M0080,1) />		

<!--Append the assessment completed date  -->
<cfif Assessment_Completed_M0090 neq "">
	<cfif month(Assessment_Completed_M0090) lt 10>
		<cfset Creation_Date_Month = "0" &""& month(Assessment_Completed_M0090) />
	<cfelse>
		<cfset Creation_Date_Month = month(Assessment_Completed_M0090) />
	</cfif>
	<cfif day(Assessment_Completed_M0090) lt 10>
		<cfset Creation_Date_Day = "0" &""& day(Assessment_Completed_M0090) />
	<cfelse>
		<cfset Creation_Date_Day = day(Assessment_Completed_M0090) />
	</cfif>
	<cfset HHA_Record_Data = "" & HHA_Record_Data &""& Year(Assessment_Completed_M0090) &""& Creation_Date_Month &""& Creation_Date_Day />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 8)  />
</cfif>

<!--Append the assessment reason  -->
<cfif Assessment_Reason_M0100.indexOf("1 - ") >
	<cfset HHA_Record_Data = HHA_Record_Data & "01" />		
<cfelseif Assessment_Reason_M0100.indexOf("2 - ") >
	<cfset HHA_Record_Data = HHA_Record_Data & "02" />		
<cfelseif Assessment_Reason_M0100.indexOf("3 - ") >
	<cfset HHA_Record_Data = HHA_Record_Data & "03" />		
<cfelseif Assessment_Reason_M0100.indexOf("4 - ") >
	<cfset HHA_Record_Data = HHA_Record_Data & "04" />		
<cfelseif Assessment_Reason_M0100.indexOf("5 - ") >
	<cfset HHA_Record_Data = HHA_Record_Data & "05" />		
<cfelseif Assessment_Reason_M0100.indexOf("6 - ") >
	<cfset HHA_Record_Data = HHA_Record_Data & "06" />		
<cfelseif Assessment_Reason_M0100.indexOf("7 - ") >
	<cfset HHA_Record_Data = HHA_Record_Data & "07" />		
<cfelseif Assessment_Reason_M0100.indexOf("8 - ") >
	<cfset HHA_Record_Data = HHA_Record_Data & "08" />		
<cfelseif Assessment_Reason_M0100.indexOf("9 - ") >
	<cfset HHA_Record_Data = HHA_Record_Data & "09" />		
<cfelseif Assessment_Reason_M0100.indexOf("10 - ") >
	<cfset HHA_Record_Data = HHA_Record_Data & "10" />		
</cfif>

<!--Append Ethnic American Indian -->
<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("3 - ") neq "-1">
	<cfif Race_M0140.indexOf("1") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<!--Append Ethnic Asian -->
<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("3 - ") neq "-1">
	<cfif Race_M0140.indexOf("2") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<!--Append Ethnic black -->
<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("3 - ") neq "-1">
	<cfif Race_M0140.indexOf("3") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<!--Append Ethnic Hispanic -->
<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("3 - ") neq "-1">
	<cfif Race_M0140.indexOf("4") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<!--Append Ethnic Hawaiian -->
<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("3 - ") neq "-1">
	<cfif Race_M0140.indexOf("5") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<!--Append Ethnic white -->
<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("3 - ") neq "-1">
	<cfif Race_M0140.indexOf("6") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<!--Append Ethnic unknown -->
<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") and 
	OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Race_M0140.indexOf("UK") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<!--Append M0150 -->

<cfif Current_Payment_Sources_M0150.indexOf("0 - None") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<cfif Current_Payment_Sources_M0150.indexOf("1 - Medicare") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<cfif Current_Payment_Sources_M0150.indexOf("2 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<cfif Current_Payment_Sources_M0150.indexOf("3 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<cfif Current_Payment_Sources_M0150.indexOf("4 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<cfif Current_Payment_Sources_M0150.indexOf("5 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<cfif Current_Payment_Sources_M0150.indexOf("6 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<cfif Current_Payment_Sources_M0150.indexOf("7 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<cfif Current_Payment_Sources_M0150.indexOf("8 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<cfif Current_Payment_Sources_M0150.indexOf("9 - ") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<cfif Current_Payment_Sources_M0150.indexOf("10 - Self") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<cfif Current_Payment_Sources_M0150.indexOf("11 - Other") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
</cfif>

<!--Append M0150 Unknown  -->
<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
Assessment_Reason_M0100.indexOf("3 - ") neq "-1") >
	<cfif Current_Payment_Sources_M0150.indexOf("UK") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<!--********************************************************************************************************************************************-->
									<!--End of Create Data Record thru 001-331 M0150  Datasets
<!--********************************************************************************************************************************************-->


<!--********************************************************************************************************************************************-->
								<!--Create Data Record thru 332-403 M0220 Datasets *U  -->
<!--********************************************************************************************************************************************-->

<!--Append M0160 blanks   -->
<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,6) />

<!--Append Filler    -->
<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,5) />

<!--343-350 M0180/1005 Discharge Date   -->
<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") and 
	Discharged_From_M0175.indexOf("NA - ") eq "-1">
	<cfif Inpatient_Discharge_Date_M0180 neq "">
			<cfif Inpatient_Discharge_Date_M0180 neq "">
				<cfif month(Inpatient_Discharge_Date_M0180) lt 10>
					<cfset Creation_Date_Month = "0" &""& month(Inpatient_Discharge_Date_M0180) />
				<cfelse>
					<cfset Creation_Date_Month = month(Inpatient_Discharge_Date_M0180) />
				</cfif>
				
				<cfif day(Inpatient_Discharge_Date_M0180) lt 10>
					<cfset Creation_Date_Day = "0" &""& day(Inpatient_Discharge_Date_M0180) />
				<cfelse>
					<cfset Creation_Date_Day = day(Inpatient_Discharge_Date_M0180) />
				</cfif>
				<cfset HHA_Record_Data = "" & HHA_Record_Data &""& Year(Inpatient_Discharge_Date_M0180) &""& Creation_Date_Month &""& Creation_Date_Day />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 8)  />
			</cfif>		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,8) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,8) />	
</cfif>

<!--351 M0180 Discharge Date UK    -->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") and 
	 Discharged_From_M0175.indexOf("NA - ") eq "-1" >
	 
	<cfif Inpatient_Discharge_Date_NA_M0180.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />			
</cfif>

<!-- 352-365 M0190 B & C  -->
<!-- Datasets: Create Data Record M0190 Datasets  -->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") and 
	Discharged_From_M0175.indexOf("NA - ") eq "-1">
	
	<cfset gNum = Count_M190_Diagnosis />
	<cfset gNum_End =0  />
	<cfset gTemp =""  />
	
	<cfloop query="Diagnosis_M0190">
		<cfset gNum_End = gNum_End + 1  />
		<cfset gTemp = Diagnosis_M0190.ICD />
		
		<cfif  gNum_End lt 3 >
			<cfif Count_M190_Diagnosis lt 1>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,7) />		
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) & gTemp />		
			</cfif>
			
			<cfif Len(gTemp) eq 3>
				<cfset HHA_Record_Data = HHA_Record_Data &"."& left(gHHA_Record_Padding,2) />		
			</cfif>
			<cfif Len(gTemp) eq 4>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />		
			</cfif>
			<cfif Len(gTemp) eq 5>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
			</cfif>
		<cfelse>
			<cfset M0190= left(gHHA_Record_Padding,1) & gTemp  />
			<cfif Len(gTemp) eq 3>
				<cfset M0190 = M0190 &"."& left(gHHA_Record_Padding,2) />		
			</cfif>
			<cfif Len(gTemp) eq 4>
				<cfset M0190 = M0190 &""& left(gHHA_Record_Padding,2) />		
			</cfif>
			<cfif Len(gTemp) eq 5>
				<cfset M0190 = M0190 &""& left(gHHA_Record_Padding,1) />		
			</cfif>		
		</cfif>
	</cfloop>
	
	<cfif len(M0190) lt 28 >
		<cfset M0190 = M0190 &""& left(gHHA_Record_Padding,28-len(M0190)) />
	</cfif>
	
	<cfif len(HHA_Record_Data) lt 365 >
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,365-len(HHA_Record_Data)) />
	</cfif>

<cfelse>
	<cfif len(M0190) lt 28 >
		<cfset M0190 = M0190 &""& left(gHHA_Record_Padding,28-len(M0190)) />
	</cfif>
	
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,14) />			
	
</cfif>	

<!-- 366 M0200 B Only   -->

<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or  Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
	<cfif Medical_or_Treatment_Change_M0200.indexOf("0 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"0" />			
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"1" />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />				
</cfif>	

							<!-- Create Data Record M0210 Datasets *U” -->
							
<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") and 
	(OASIS_Version_Code_1.indexOf("B") neq "-1" and Assessment_Reason_M0100.indexOf("1 - ") neq "-1")>
	
	<cfif (OASIS_Version_Code_1.indexOf("B") neq "-1" and Medical_or_Treatment_Change_M0200.indexOf("Yes") neq "-1") or
		  (OASIS_Version_Code_1.indexOf("C") neq "-1" and M1016_DX_NA  eq "" and Count_M210_Diagnosis gt 0)	>
		
		<cfset gNum = Count_M210_Diagnosis />
		<cfset gNum_End =0  />
		<cfset gTemp =""  />
		
		<cfloop query="Diagnosis_M0210">
			<cfset gNum_End = gNum_End + 1  />
			<cfset gTemp = Diagnosis_M0210.ICD />
			
			<cfif  gNum_End lt 5 >
				<cfif Count_M210_Diagnosis lt 1>
					<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,7) />		
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) & gTemp />		
				</cfif>
				
				<cfif Len(gTemp) eq 3>
					<cfset HHA_Record_Data = HHA_Record_Data &"."& left(gHHA_Record_Padding,2) />		
				</cfif>
				<cfif Len(gTemp) eq 4>
					<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />		
				</cfif>
				<cfif Len(gTemp) eq 5>
					<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
				</cfif>
			<cfelse>
				<cfset M0210= left(gHHA_Record_Padding,1) & gTemp  />
				<cfif Len(gTemp) eq 3>
					<cfset M0210 = M0210 &"."& left(gHHA_Record_Padding,2) />		
				</cfif>
				<cfif Len(gTemp) eq 4>
					<cfset M0210 = M0210 &""& left(gHHA_Record_Padding,2) />		
				</cfif>
				<cfif Len(gTemp) eq 5>
					<cfset M0210 = M0210 &""& left(gHHA_Record_Padding,1) />		
				</cfif>		
			</cfif>
		</cfloop>
		
		<cfif len(M0210) lt 14 >
			<cfset M0210 = M0210 &""& left(gHHA_Record_Padding,14-len(M0210)) />
		</cfif>
		
		<cfif len(HHA_Record_Data) lt 394 >
			<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,394-len(HHA_Record_Data)) />
		</cfif>
	<cfelse>	
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,28) />	
		<cfset M0210 = M0210 &""& left(gHHA_Record_Padding,14-len(M0210)) />
	</cfif>
<cfelse>
	<cfif len(M0210) lt 14 >
		<cfset M0210 = M0210 &""& left(gHHA_Record_Padding,14-len(M0210)) />
	</cfif>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,28) />			
</cfif>

		<!-- Create Data Record for M1012 Datasets  --> 


<cfif OASIS_Version_Code_1.indexOf("C") neq "-1" >
	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") and 
		Discharged_From_M0175.indexOf("NA -") eq "-1" and Count_M1012_Diagnosis gt 0>
		
		<cfif Count_M1012_Diagnosis gt 0>
			<cfset gNum = Count_M1012_Diagnosis />
			<cfset gNum_End =0  />
			<cfset gTemp =""  />
			
			<cfloop query="Diagnosis_M1012">
				<cfset gNum_End = gNum_End + 1  />
				<cfset gTemp = Diagnosis_M1012.ICD />
			
				<cfif Len(gTemp) eq 4>
					<cfset M1012 = left(gHHA_Record_Padding,2) & gTemp & left(gHHA_Record_Padding,1) />		
				</cfif>
				<cfif Len(gTemp) eq 5>
					<cfset M1012 = left(gHHA_Record_Padding,2) & gTemp  />		
				</cfif>
			</cfloop>
			
			<cfif len(M1012) lt 28 >
				<cfset M1012 = M1012 &""& left(gHHA_Record_Padding,28-len(M1012)) />
			</cfif>
		<cfelse>
			<cfset M1012 = M1012 &""& left(gHHA_Record_Padding,28) />	
		</cfif>
	<cfelse>	
		<cfset M1012 = M1012 &""& left(gHHA_Record_Padding,28) />	
	</cfif>
</cfif>	

	<!-- Append M0220 incon -->
<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") >
	<cfif Conditions_Prior_M0220.indexOf("1 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>
		
		
<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") >
	<cfif Conditions_Prior_M0220.indexOf("2 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") >
	<cfif Conditions_Prior_M0220.indexOf("3 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>


<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") >
	<cfif Conditions_Prior_M0220.indexOf("4 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") >
	<cfif Conditions_Prior_M0220.indexOf("5 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") >
	<cfif Conditions_Prior_M0220.indexOf("6 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") >
	<cfif Conditions_Prior_M0220.indexOf("7 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") >
	<cfif Conditions_Prior_M0220.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") >
	<cfif Conditions_Prior_M0220.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />		
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" or Medical_or_Treatment_Change_M0200.indexOf("0 - ") neq "-1") >
	<cfset HHA_Record_Data = left(HHA_Record_Data,394) & left(gHHA_Record_Padding,9) />		
</cfif>

<!--********************************************************************************************************************************************
									<!--End of Create Data Record thru 332-403 M0220 Datasets *U 
********************************************************************************************************************************************-->


<!--********************************************************************************************************************************************-->
									<!-- Create Data Record thru 404-457 M0230 Datasets *U-->
<!--********************************************************************************************************************************************-->

<!--  -->
<cfset gTemp_Num = "1"  />
<cfset M0246_Code ="" />
<cfset M0246 ="" />

<cfif Assessment_Reason_M0100.indexOf("1") neq "-1" or Assessment_Reason_M0100.indexOf("2") neq "-1" or 
Assessment_Reason_M0100.indexOf("3") neq "-1" or Assessment_Reason_M0100.indexOf("4") neq "-1" or 
Assessment_Reason_M0100.indexOf("5") neq "-1" >
	<cfif gTemp_Num lte Count_M230_Diagnosis>
	
		<cfloop query="Diagnosis_M0230">
			<cfif Diagnosis_M0230.Code_Type eq "E_Code">
				<cfset gTemp  = Diagnosis_M0230.Text_ICD  />
				<cfset HHA_Record_Data = HHA_Record_Data & gTemp & left(gHHA_Record_Padding,1) />
				<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
			<cfelse>
				<cfset gTemp  = Diagnosis_M0230.Text_ICD  />
				
				<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1) & gTemp  />
				
				<cfif Len(gTemp) eq 3>
					<cfset HHA_Record_Data = HHA_Record_Data &"."& left(gHHA_Record_Padding,2) />		
				</cfif>
				<cfif Len(gTemp) eq 4>
					<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />		
				</cfif>
				<cfif Len(gTemp) eq 5>
					<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />		
				</cfif>
				
				<cfset gDisplayFileName = Diagnosis_M0230.Severity  />
					<cfset HHA_Record_Data = HHA_Record_Data &"0"& gDisplayFileName />
				
				<cfif gTemp.indexOf("V") neq "-1" >
					<cfset gDisplayFileName = Diagnosis_M0230.Severity  />
					<cfset HHA_Record_Data = HHA_Record_Data &"0"& gDisplayFileName />
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
					
					<cfif M0246_Code neq "">
						<cfset gTemp = M0246_Code />

						<cfset M0246 = M0246 & left(gHHA_Record_Padding,1) & gTemp  />
				
						<cfif Len(gTemp) eq 3>
							<cfset M0246_Code = M0246_Code &"."& left(gHHA_Record_Padding,2) />		
						</cfif>
						<cfif Len(gTemp) eq 4>
							<cfset M0246_Code = M0246_Code &""& left(gHHA_Record_Padding,2) />		
						</cfif>
						<cfif Len(gTemp) eq 5>
							<cfset M0246_Code = M0246_Code &""& left(gHHA_Record_Padding,1) />		
						</cfif>
					<cfelse>
						<cfset M0246_Code = M0246_Code &""& left(gHHA_Record_Padding,7) />	
					</cfif>
				</cfif>
			</cfif>
		</cfloop>
	</cfif>
	<cfif len(HHA_Record_Data) lt 457 >
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,457-len(HHA_Record_Data)) />
	</cfif>
	
	<cfif len(M0246) lt 42 >
		<cfset M0246 = M0246 &""& left(gHHA_Record_Padding,42-len(M0246)) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,54) />	
</cfif>

<!-- Datasets: Create Data Record M0246 Datasets  -->
<cfset gTemp_Num = "1"  />
<cfset M0246_M_Code = ""  />

<cfif Assessment_Reason_M0100.indexOf("1") neq "-1" or Assessment_Reason_M0100.indexOf("2") neq "-1" or 
Assessment_Reason_M0100.indexOf("3") neq "-1" or Assessment_Reason_M0100.indexOf("4") neq "-1" or 
Assessment_Reason_M0100.indexOf("5") neq "-1" >
	<cfif gTemp_Num lte Count_M230_Diagnosis>
		<cfloop query="Diagnosis_M0230">
			<cfif M0246_M_Code neq "">
				<cfset gTemp = M0246_M_Code />

				<cfset M0246 = M0246 & left(gHHA_Record_Padding,1) & gTemp  />
		
				<cfif Len(gTemp) eq 3>
					<cfset M0246_Code = M0246_Code &"."& left(gHHA_Record_Padding,2) />		
				</cfif>
				<cfif Len(gTemp) eq 4>
					<cfset M0246_Code = M0246_Code &""& left(gHHA_Record_Padding,2) />		
				</cfif>
				<cfif Len(gTemp) eq 5>
					<cfset M0246_Code = M0246_Code &""& left(gHHA_Record_Padding,1) />		
				</cfif>
			<cfelse>
				<cfset M0246_Code = M0246_Code &""& left(gHHA_Record_Padding,7) />	
			</cfif>
		</cfloop>
	</cfif>
</cfif>

<cfif len(M0246) lt 84 >
	<cfset M0246 = M0246 &""& left(gHHA_Record_Padding,84-len(M0246)) />
</cfif>


<!--********************************************************************************************************************************************-->
									<!--End of Create Data Record thru 404-457 M0230 Datasets *U !-->
<!--********************************************************************************************************************************************-->


<!--********************************************************************************************************************************************
									<!--Create Data Record thru 458-516 M0350 Datasets *U !-->
<!--********************************************************************************************************************************************-->

<!-- Append M0250 IV  -->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1") or (OASIS_Version_Code_1.indexOf("B") neq "-1" and 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
	<cfif Therapies_Home_M0250.indexOf("1 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0" />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1") or (OASIS_Version_Code_1.indexOf("B") neq "-1" and 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
	<cfif Therapies_Home_M0250.indexOf("2 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0" />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1") or (OASIS_Version_Code_1.indexOf("B") neq "-1" and 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
	<cfif Therapies_Home_M0250.indexOf("3 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0" />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	


<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1") or (OASIS_Version_Code_1.indexOf("B") neq "-1" and 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
	<cfif Therapies_Home_M0250.indexOf("4 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0" />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<!-- Append M0260  -->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") and
	OASIS_Version_Code_1.indexOf("B") neq "-1"  >
	
	<cfif Overall_Prognosis_M0260.indexOf("0 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"00" />
	</cfif>
	
	<cfif Overall_Prognosis_M0260.indexOf("1 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"01" />
	</cfif>
	
	<cfif Overall_Prognosis_M0260.indexOf("UK - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />
	</cfif>
		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>	

<!-- Append M0270  -->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") and
	OASIS_Version_Code_1.indexOf("B") neq "-1"  >
	
	<cfif Rehab_Prognosis_M0270.indexOf("0 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"00" />
	</cfif>
	
	<cfif Rehab_Prognosis_M0270.indexOf("1 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"01" />
	</cfif>
	
	<cfif Rehab_Prognosis_M0270.indexOf("UK - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />
	</cfif>
		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>	

<!-- Append M0280  -->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1"
		or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1"  >
	
	<cfif Life_Exp_M0280.indexOf("0 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"00" />
	</cfif>
	
	<cfif Life_Exp_M0280.indexOf("1 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"01" />
	</cfif>
	
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>	


<!-- Append M0290  -->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1"  
		or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
		or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" and OASIS_Version_Code_1.indexOf("B") neq "-1")  >
	
	<cfif High_Risk_Factors_M0290.indexOf("1 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1"  
		or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
		or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" and OASIS_Version_Code_1.indexOf("B") neq "-1")  >
	
	<cfif High_Risk_Factors_M0290.indexOf("2 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	


<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1"  
		or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
		or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" and OASIS_Version_Code_1.indexOf("B") neq "-1")  >
	
	<cfif High_Risk_Factors_M0290.indexOf("3 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	


<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1"  
		or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
		or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" and OASIS_Version_Code_1.indexOf("B") neq "-1" ) >
	
	<cfif High_Risk_Factors_M0290.indexOf("4 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1"  
		or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
		or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" and OASIS_Version_Code_1.indexOf("B") neq "-1")  >
	
	<cfif High_Risk_Factors_M0290.indexOf("5 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	


<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1"  
		or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
		or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" and OASIS_Version_Code_1.indexOf("B") neq "-1")  >
	
	<cfif High_Risk_Factors_M0290.indexOf("UK - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	


<!-- Append M0300 Residence-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & Left(Current_Residence_M0300,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>	

<!-- Append M0310  10/8/2003 This is where M0310 info was, no longer required. -->
<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,5) />	

<!-- Append M0320 safety None  10/8/2003 This is where M0320 info was, no longer required. -->
<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,12) />	

<!-- Append M0330 San none  10/8/2003 This is where M0330 info was, no longer required.  -->
<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,13) />	

<!-- Append M0340 alone  -->
<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	<cfif Lives_With_M0340.indexOf("1 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	


<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	<cfif Lives_With_M0340.indexOf("2 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	


<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	<cfif Lives_With_M0340.indexOf("3 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	


<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	<cfif Lives_With_M0340.indexOf("4 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	


<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	<cfif Lives_With_M0340.indexOf("5 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	


<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	<cfif Lives_With_M0340.indexOf("6 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<!--#Append M0350 relative -->
<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	<cfif Assisting_Persons_M0350.indexOf("1 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	<cfif Assisting_Persons_M0350.indexOf("2 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	<cfif Assisting_Persons_M0350.indexOf("3 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	<cfif Assisting_Persons_M0350.indexOf("4 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	<cfif Assisting_Persons_M0350.indexOf("UK - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>	

<!--********************************************************************************************************************************************-->
									<!--End of Create Data Record thru 458-516 M0350 Datasets *U !-->
<!--********************************************************************************************************************************************-->


<!--********************************************************************************************************************************************
									<!--Create Data Record thru 517-528 M0380 Datasets-->
<!--********************************************************************************************************************************************-->

<!-- Append M0360 Primary caregiver  -->
<cfif OASIS_Version_Code_1.indexOf("B") neq "-1">

	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
	or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" )  >
		<cfif Assisting_Persons_M0350.indexOf("4 - ") neq "-1" or Assisting_Persons_M0350.indexOf("UK - ") neq "-1" >
			<cfset HHA_Record_Data = HHA_Record_Data &"  "  />
		<cfelse>
			<cfif Relationship_M0360.indexOf("UK - ") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data &"UK"  />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &"0" & left(Relationship_M0360,1)  />	
			</cfif>			
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
	</cfif>
	
	<!-- -Append M0370 Frequency  ->
	
	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
	or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" )  >
	
		<cfif Assisting_Persons_M0350.indexOf("4 - ") neq "-1" or Assisting_Persons_M0350.indexOf("UK - ") neq "-1"
				or Relationship_M0360.indexOf("0 - ") neq "-1" or Relationship_M0360.indexOf("UK - ") neq "-1" >
				
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2)  />
		<cfelse>
			<cfif Frequency_of_Care.indexOf("UK - ") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data &"UK"  />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &"0" & left(Frequency_of_Care,1)  />	
			</cfif>			
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
	</cfif>	
	
	<!-- Append M0380 Type Assistance ADL-->
	
	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
	or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" )  >
	
		<cfif Assisting_Persons_M0350.indexOf("4 - ") neq "-1" or Assisting_Persons_M0350.indexOf("UK - ") neq "-1"
				or Relationship_M0360.indexOf("0 - ") neq "-1"  >
				
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1)  />
		<cfelse>
			<cfif Caregiver_Scope.indexOf("1 - ") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &"0"  />	
			</cfif>			
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
	</cfif>	
	
	
	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
	or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" )  >
	
		<cfif Assisting_Persons_M0350.indexOf("4 - ") neq "-1" or Assisting_Persons_M0350.indexOf("UK - ") neq "-1"
				or Relationship_M0360.indexOf("0 - ") neq "-1"  >
				
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1)  />
		<cfelse>
			<cfif Caregiver_Scope.indexOf("2 - ") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &"0"  />	
			</cfif>			
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
	</cfif>	
		
	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
	or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" )  >
	
		<cfif Assisting_Persons_M0350.indexOf("4 - ") neq "-1" or Assisting_Persons_M0350.indexOf("UK - ") neq "-1"
				or Relationship_M0360.indexOf("0 - ") neq "-1"  >
				
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1)  />
		<cfelse>
			<cfif Caregiver_Scope.indexOf("3 - ") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &"0"  />	
			</cfif>			
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
	</cfif>		
	
	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
	or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" )  >
	
		<cfif Assisting_Persons_M0350.indexOf("4 - ") neq "-1" or Assisting_Persons_M0350.indexOf("UK - ") neq "-1"
				or Relationship_M0360.indexOf("0 - ") neq "-1"  >
				
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1)  />
		<cfelse>
			<cfif Caregiver_Scope.indexOf("4 - ") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &"0"  />	
			</cfif>			
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
	</cfif>		
	
	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
	or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" )  >
	
		<cfif Assisting_Persons_M0350.indexOf("4 - ") neq "-1" or Assisting_Persons_M0350.indexOf("UK - ") neq "-1"
				or Relationship_M0360.indexOf("0 - ") neq "-1"  >
				
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1)  />
		<cfelse>
			<cfif Caregiver_Scope.indexOf("5 - ") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &"0"  />	
			</cfif>			
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
	</cfif>	
	
	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
	or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" )  >
	
		<cfif Assisting_Persons_M0350.indexOf("4 - ") neq "-1" or Assisting_Persons_M0350.indexOf("UK - ") neq "-1"
				or Relationship_M0360.indexOf("0 - ") neq "-1"  >
				
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1)  />
		<cfelse>
			<cfif Caregiver_Scope.indexOf("6 - ") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &"0"  />	
			</cfif>			
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
	</cfif>	
	
	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
	or (Assessment_Reason_M0100.indexOf("9 - ") neq "-1" )  >
	
		<cfif Assisting_Persons_M0350.indexOf("4 - ") neq "-1" or Assisting_Persons_M0350.indexOf("UK - ") neq "-1"
				or Relationship_M0360.indexOf("0 - ") neq "-1"  >
				
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1)  />
		<cfelse>
			<cfif Caregiver_Scope.indexOf("7 - ") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &"0"  />	
			</cfif>			
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
	</cfif>	
	
	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1") >
	
		<cfif Assisting_Persons_M0350.indexOf("4 - ") neq "-1" or Assisting_Persons_M0350.indexOf("UK - ") neq "-1"
				or Relationship_M0360.indexOf("0 - ") neq "-1"  >
				
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1)  />
		<cfelse>
			<cfif Caregiver_Scope.indexOf("UK - ") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &"0"  />	
			</cfif>			
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
	</cfif>	
	
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,12) />	
</cfif>

<!--********************************************************************************************************************************************-->
									<!--End of Create Data Record thru 517-528 M0350 Datasets *U !-->
<!--********************************************************************************************************************************************-->

<!--********************************************************************************************************************************************-->
									<!--Create Data Record thru 529-537 M0430 Datasets *U !-->
<!--********************************************************************************************************************************************-->

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" >
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Vision_M0390,1) />	
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")
and OASIS_Version_Code_1.indexOf("B") neq "-1"  >
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Hearing_M0400,1) />	
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1"
 or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")>
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Speech_M0410,1) />	
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1"
or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" 
or Assessment_Reason_M0100.indexOf("9 - ") neq "-1" )and OASIS_Version_Code_1.indexOf("B") neq "-1"  >
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Freq_of_Pain_M0420,1) />	
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1"
or Assessment_Reason_M0100.indexOf("9 - ") neq "-1" )and OASIS_Version_Code_1.indexOf("B") neq "-1"  >
	<cfset HHA_Record_Data = HHA_Record_Data & left(Intrac_Pain_M0430,1) />	
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>


<!--********************************************************************************************************************************************-->
									<!--End of Create Data Record thru 529-537 M0430 Datasets *U-->
<!--********************************************************************************************************************************************-->

<!--********************************************************************************************************************************************-->
									<!--Create Data Record thru 538-564 M0488 Datasets *U !-->
<!--********************************************************************************************************************************************-->

<cfif OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1"
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1"  >
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(Open_Wounds_M0440,1) />
		
		<cfif left(Open_Wounds_M0440,1) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data &""& left(Pressure_Ulcer_M0445,1) />
			<cfif left(Pressure_Ulcer_M0445,1) eq 1>
				<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_a_M0450,1) />
				<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_b_M0450,1) />
				<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_c_M0450,1) />
				<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_d_M0450,1) />
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(Pressure_Ulcer_e_M0450,1) />

				<cfif left(Pressure_Ulcer_Stage_M0460,1) eq "N">
					<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_Stage_M0460,1) />
				</cfif>

				<cfif left(Pressure_Ulcer_Status_M0464,1) eq "N">
					<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_Status_M0464,1) />
				</cfif>
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,13) />						
			</cfif>
			
			<cfset HHA_Record_Data = HHA_Record_Data &""& left(Stasis_Ulcer_M0468,1) />
			
			<cfif left(Stasis_Ulcer_M0468,1) eq 1>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(Stasis_Ulcer_Num_M0470,1) />
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(Stasis_Ulcer_Hidden_M0474,1) />
				
				<cfif left(Stasis_Ulcer_Status_M0476,1) eq "N">
					<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Stasis_Ulcer_Status_M0476,1) />
				</cfif>
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,5) />	
			</cfif>
			
			<cfset HHA_Record_Data = HHA_Record_Data &""& left(Surgical_Wound_M0482,1) />
			
			<cfif left(Surgical_Wound_M0482,1) eq 1>
				<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Surgical_Wound_OB_M0484,1) />
				<cfset HHA_Record_Data = HHA_Record_Data & left(Surgical_Wound_Hidden_M0486,1) />	
				
				<cfif left(Surgical_Wound_Status_M0488,1) eq "N">
					<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Surgical_Wound_Status_M0488,1) />
				</cfif>
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,5) />			
			</cfif>
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,26) />
		</cfif>
	</cfif>
	
	
	<!-- For recertifications and followups -->		
	<cfif Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data & left(Open_Wounds_M0440,1) />
		
		<cfif left(Open_Wounds_M0440,1) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />
			
			<cfif Pressure_Ulcer_a_M0450 neq "">
				<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_a_M0450,1) />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
			</cfif>
			
			<cfif Pressure_Ulcer_b_M0450 neq "">
				<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_b_M0450,1) />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
			</cfif>
			
			<cfif Pressure_Ulcer_c_M0450 neq "">
				<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_c_M0450,1) />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
			</cfif>
			
			<cfif Pressure_Ulcer_d_M0450 neq "">
				<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_d_M0450,1) />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
			</cfif>
			
			<cfif Pressure_Ulcer_e_M0450 neq "">
				<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_e_M0450,1) />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
			</cfif>
			
			<cfif Pressure_Ulcer_Stage_M0460 neq "">
				<cfif left(Pressure_Ulcer_Stage_M0460,1) eq "N">
					<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_Stage_M0460,1) />
				</cfif>
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
			</cfif>
			
			<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,3) />
			
			<cfif Stasis_Ulcer_Num_M0470 neq "">
				<cfif left(Stasis_Ulcer_Num_M0470,1) eq "N">
					<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Stasis_Ulcer_Num_M0470,1) />
				</cfif>
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
			</cfif>
			
			<cfif Stasis_Ulcer_Hidden_M0474 neq "">
				<cfset HHA_Record_Data = HHA_Record_Data & left(Stasis_Ulcer_Hidden_M0474,1) />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
			</cfif>
			
			
			<cfif Stasis_Ulcer_Status_M0476 neq "">
				<cfif left(Stasis_Ulcer_Status_M0476,1) eq "N">
					<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Stasis_Ulcer_Status_M0476,1) />
				</cfif>
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
			</cfif>
			
			<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,4) />	
			
			<cfif Surgical_Wound_Status_M0488 neq "">
				<cfif left(Surgical_Wound_Status_M0488,1) eq "N">
					<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Surgical_Wound_Status_M0488,1) />
				</cfif>
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
			</cfif>
		<cfelse>	
			<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,26) />
		</cfif>
	</cfif>
	
	<cfif Assessment_Reason_M0100.indexOf("6 - ") neq "-1" or Assessment_Reason_M0100.indexOf("7 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("8 - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,27) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />
	
	<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("6 - ") neq "-1">	
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_a_M0450,1) />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
	</cfif>
	
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,7) />
	
	<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("6 - ") neq "-1">	
		<cfif left(Pressure_Ulcer_Stage_M0460,1) eq "N">
			<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Pressure_Ulcer_Stage_M0460,1) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
	</cfif>
	
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,14) />
</cfif>

<!--********************************************************************************************************************************************-->
									<!--End of Create Data Record thru 538-564 M0488 Datasets *U-->
<!--********************************************************************************************************************************************-->

<!--********************************************************************************************************************************************-->
									<!--Create Data Record thru 565-609 M0630 Datasets *U !-->
<!--********************************************************************************************************************************************-->

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1">	
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Breathing_M0490,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>


<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
	<cfif Resp_Treatments_M0500.indexOf("1 - ")  neq "-1"	>
		<cfset HHA_Record_Data = HHA_Record_Data &"1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0" />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
	<cfif Resp_Treatments_M0500.indexOf("2 - ")  neq "-1"	>
		<cfset HHA_Record_Data = HHA_Record_Data &"1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0" />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
	<cfif Resp_Treatments_M0500.indexOf("3 - ")  neq "-1"	>
		<cfset HHA_Record_Data = HHA_Record_Data &"1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0" />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
	<cfif Resp_Treatments_M0500.indexOf("4 - ")  neq "-1"	>
		<cfset HHA_Record_Data = HHA_Record_Data &"1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0" />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>


<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
	
	<cfif UTI_M0510.indexOf("0 - ")  neq "-1"	>
		<cfset HHA_Record_Data = HHA_Record_Data &"00" />
	</cfif>
	
	<cfif UTI_M0510.indexOf("1 - ")  neq "-1"	>
		<cfset HHA_Record_Data = HHA_Record_Data &"01" />
	</cfif>
	
	<cfif UTI_M0510.indexOf("NA - ")  neq "-1"	>
		<cfset HHA_Record_Data = HHA_Record_Data &"NA" />
	</cfif>
	
	<cfif UTI_M0510.indexOf("UK - ")  neq "-1"	>
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>

<cfset CheckDate="12/26/2007" />
<cfif Assessment_Completed_M0090 gt CheckDate > 
	<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1">	
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Urinary_INcont_M0520,1) />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
	</cfif>
<cfelse>
	<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1">	
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Urinary_INcont_M0520,1) />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
	</cfif>	
</cfif>

<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")>
	<cfif Urinary_INcont_when_M0530.indexOf("0 - ") neq "2">
		<cfif Urinary_INcont_when_M0530 eq "">
			<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Urinary_INcont_when_M0530,1) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>	

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1" >
	<cfif Bowel_Incont_M0540.indexOf("0 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"00"  />
	<cfelseif Bowel_Incont_M0540.indexOf("1 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"01"  />
	<cfelseif Bowel_Incont_M0540.indexOf("2 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"02"  />
	<cfelseif Bowel_Incont_M0540.indexOf("3 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"03"  />
	<cfelseif Bowel_Incont_M0540.indexOf("4 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"04"  />
	<cfelseif Bowel_Incont_M0540.indexOf("5 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"05"  />
	<cfelseif Bowel_Incont_M0540.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"NA"  />
	<cfelseif Bowel_Incont_M0540.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>	

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" or 
	(Assessment_Reason_M0100.indexOf("9 - ") neq "-1" and OASIS_Version_Code_1.indexOf("B") neq "-1") >
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Ostomy_for_Bowel_M0550,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1" >
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Cog_Function_M0560,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1" >
	<cfif When_Confused_M0570.indexOf("0 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"00"  />
	<cfelseif When_Confused_M0570.indexOf("1 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"01"  />
	<cfelseif When_Confused_M0570.indexOf("2 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"02"  />
	<cfelseif When_Confused_M0570.indexOf("3 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"03"  />
	<cfelseif When_Confused_M0570.indexOf("4 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"04"  />
	<cfelseif When_Confused_M0570.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"NA"  />
	</cfif>
	
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1" >
	<cfif When_Anxious_M0580.indexOf("0 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"00"  />
	<cfelseif When_Anxious_M0580.indexOf("1 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"01"  />
	<cfelseif When_Anxious_M0580.indexOf("2 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"02"  />
	<cfelseif When_Anxious_M0580.indexOf("3 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"03"  />
	<cfelseif When_Anxious_M0580.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"NA"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	
	<cfif Depressive_Feelings_M0590.indexOf("1 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	
	<cfif Depressive_Feelings_M0590.indexOf("2 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	
	<cfif Depressive_Feelings_M0590.indexOf("3 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("2 - ") neq "-1" 
	or 	Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 	Assessment_Reason_M0100.indexOf("4 - ") neq "-1" 
	or 	Assessment_Reason_M0100.indexOf("5 - ") neq "-1"  or 	Assessment_Reason_M0100.indexOf("9 - ") neq "-1") 
	and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	
	<cfif Depressive_Feelings_M0590.indexOf("4 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	
	<cfif Depressive_Feelings_M0590.indexOf("5 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1" >
	
	<cfif Depressive_Feelings_M0590.indexOf("6 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,7) />	


<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1")  >
	
	<cfif Patient_Behav_Weekly_M0610.indexOf("1 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1")  >
	
	<cfif Patient_Behav_Weekly_M0610.indexOf("2 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1")  >
	
	<cfif Patient_Behav_Weekly_M0610.indexOf("3 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1")  >
	
	<cfif Patient_Behav_Weekly_M0610.indexOf("4 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1")  >
	
	<cfif Patient_Behav_Weekly_M0610.indexOf("5 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1")  >
	
	<cfif Patient_Behav_Weekly_M0610.indexOf("6 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1")  >
	
	<cfif Patient_Behav_Weekly_M0610.indexOf("7 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"1"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"  />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
	<cfset HHA_Record_Data = HHA_Record_Data &"0" & left(Patient_Behav_freq_M0620,1)  />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />	
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or 
	Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data &"0" & left(Psy_Nursing_M0630,1)  />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,1) />	
</cfif>

<!--********************************************************************************************************************************************-->
									<!--End of Create Data Record thru 565-609 M0630 Datasets *U-->
<!--********************************************************************************************************************************************-->

<!--********************************************************************************************************************************************-->
									<!--Create Data Record thru 610-681 M0820 Datasets *U !-->
<!--********************************************************************************************************************************************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Grooming_M0640p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Grooming_M0640p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>


<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1" ) >
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Grooming_M0640,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0650*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Dress_Upper_M0650p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Dress_Upper_M0650p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Dress_Upper_M0650,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0660*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Dress_Lower_M0660p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Dress_Lower_M0660p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Dress_Lower_M0660,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>
<!--*****************M0670********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Bathing_M0670p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Bathing_M0670p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Bathing_M0670,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>
<!--****************M0680*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Toileting_M0680p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Toileting_M0680p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Toileting_M0680,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>
<!--****************M0690*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Transferring_M0690p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Transferring_M0690p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Transferring_M0690,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>


<!--****************M0700*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Ambulation_M0700p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Ambulation_M0700p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Ambulation_M0700,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0710*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Eating_M0710p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Eating_M0710p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Eating_M0710,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0720*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Meal_Prep_M0720p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Meal_Prep_M0720p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Meal_Prep_M0720,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0730*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Transport_M0730p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Transport_M0730p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Transport_M0730,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0740*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Laundry_M0740p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Laundry_M0740p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Laundry_M0740,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0750*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Housekeeping_M0750p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Housekeeping_M0750p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Housekeeping_M0750,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0760*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Shopping_M0760p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Shopping_M0760p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Shopping_M0760,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0770*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Use_Phone_M0770p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelseif Use_Phone_M0770p.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"NA" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Use_Phone_M0770p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
	<cfif Use_Phone_M0770.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Use_Phone_M0770,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0780*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Oral_Meds_M0780p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelseif Oral_Meds_M0780p.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"NA" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Oral_Meds_M0780p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Oral_Meds_M0780.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Oral_Meds_M0780,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0790*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Inhalant_Meds_M0790p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelseif Inhalant_Meds_M0790p.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"NA" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Inhalant_Meds_M0790p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Inhalant_Meds_M0790.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Inhalant_Meds_M0790,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0800*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" )  
	and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Inject_Meds_m0800p.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
	<cfelseif Inject_Meds_m0800p.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"NA" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Inject_Meds_m0800p,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>


<cfif Assessment_Completed_M0090 gt CheckDate > 
	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
		or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" 
		or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
		<cfif Inject_Meds_m0800.indexOf("NA - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
		<cfelseif Inject_Meds_m0800.indexOf("UK - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Inject_Meds_m0800,1) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
	</cfif>
<cfelse>
	<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
		or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and OASIS_Version_Code_1.indexOf("B") neq "-1">
		<cfif Inject_Meds_m0800.indexOf("NA - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
		<cfelseif Inject_Meds_m0800.indexOf("UK - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Inject_Meds_m0800,1) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
	</cfif>
</cfif>

<!--****************M0810*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")  and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Patient_Manage_Equip_M0810.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"NA" />		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Patient_Manage_Equip_M0810,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--****************M0820*********************-->

<cfif (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" 
	or Assessment_Reason_M0100.indexOf("9 - ") neq "-1")  and OASIS_Version_Code_1.indexOf("B") neq "-1">
	<cfif Patient_Manage_Equip_M0810.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(gHHA_Record_Padding,2) />
	<cfelse>
		<cfif Caregiver_Manage_Equip_M0820.indexOf("NA - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data &"NA" />	
		<cfelseif Caregiver_Manage_Equip_M0820.indexOf("UK - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data &"UK" />	
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data &"0"& left(Caregiver_Manage_Equip_M0820,1) />
		</cfif>
	</cfif>	
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,2) />			
</cfif>

<!--********************************************************************************************************************************************-->
									<!--End of Create Data Record thru 610-681 M0820 Datasets *U-->
<!--********************************************************************************************************************************************-->


<!--=================================================================================================================================================				                                                      Create Data Record thru 682-698 M0855 Dataset
==================================================================================================================================================-->

<!---#Append M0830 None --->
<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and ( Assessment_Reason_M0100.indexOf("6 - ") neq "-1" or Assessment_Reason_M0100.indexOf("7 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
	<cfif Emergent_Care_M0830.indexOf("0") neq "-1">
		<cfset HHA_Record_Data=HHA_Record_Data & "1" />
	<cfelse>
		<cfset HHA_Record_Data=HHA_Record_Data & "0" />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
</cfif>
	
<!--- #Append M0830 Emr Room --->

<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and  (Assessment_Reason_M0100.indexOf("6 - ") neq "-1" or Assessment_Reason_M0100.indexOf("7 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") >
		<cfif Emergent_Care_M0830.indexOf("1") neq "-1">
			<cfset HHA_Record_Data=HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data=HHA_Record_Data & "0" />
		</cfif>
<cfelse>	
		<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />		
</cfif>
		
<!--- #Append M0830 MD OFF --->

<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and  Assessment_Reason_M0100.indexOf("6 - ") neq "-1" or Assessment_Reason_M0100.indexOf("7 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1" >
		<cfif Emergent_Care_M0830.indexOf("2") neq "-1">
			<cfset HHA_Record_Data=HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data=HHA_Record_Data & "0" />
		</cfif>
<cfelse>		
		<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
</cfif>
		
<!--- #Append M0830 OUT  --->

<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and  Assessment_Reason_M0100.indexOf("6 - ") neq "-1" or Assessment_Reason_M0100.indexOf("7 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1" >
		<cfif Emergent_Care_M0830.indexOf("3") neq "-1">
			<cfset HHA_Record_Data=HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data=HHA_Record_Data & "0" />
		</cfif>
<cfelse>		
		<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
</cfif>
		
<!--- #Append M0830 Unknown  --->

<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and  Assessment_Reason_M0100.indexOf("6 - ") neq "-1" or Assessment_Reason_M0100.indexOf("7 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1" >
		<cfif Emergent_Care_M0830.indexOf("UK ") neq "-1">
			<cfset HHA_Record_Data=HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data=HHA_Record_Data & "0" />
		</cfif>
<cfelse>		
		<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
</cfif>

<!--- #Decide process for M0840 --->

<cfif (Assessment_Reason_M0100.indexOf("6 - ") neq "-1" or Assessment_Reason_M0100.indexOf("7 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1") and (Emergent_Care_M0830.indexOf("1") neq "-1" or Emergent_Care_M0830.indexOf("2") neq "-1")>

	<cfif Emergent_Care_Reason_M0840.indexOf("1 - ") neq "-1">
		<cfset HHA_Record_Data=HHA_Record_Data & "1" />
	<cfelse>
		<cfset HHA_Record_Data=HHA_Record_Data & "0" />
	</cfif>
	
	<!--- #Append M0840 Nausea --->
	
	<cfif OASIS_Version_Code_1.indexOf("B") neq "-1">
		<cfif Emergent_Care_Reason_M0840.indexOf("2 - ") neq "-1">
			<cfset HHA_Record_Data=HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data=HHA_Record_Data & "0" />
		</cfif>
	 <cfelse>
	 	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
	 </cfif>
	 
	 <!---#Append M0840 Injury --->
	 
	 <cfif OASIS_Version_Code_1.indexOf("B") neq "-1">
		<cfif Emergent_Care_Reason_M0840.indexOf("3 - ") neq "-1">
			<cfset HHA_Record_Data=HHA_Record_Data & "1" />
		 <cfelse>
			<cfset HHA_Record_Data=HHA_Record_Data & "0" />
		 </cfif>
	  <cfelse>
	 	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
	  </cfif>
	 
	 <!---#Append M0840 Resp --->
	 
	 <cfif OASIS_Version_Code_1.indexOf("B") neq "-1">
		<cfif Emergent_Care_Reason_M0840.indexOf("4 - ") neq "-1">
			<cfset HHA_Record_Data=HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data=HHA_Record_Data & "0" />
		</cfif>
	  <cfelse>
	 	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
	  </cfif>	 
	 
	 <!---#Append M0840 Wound --->
	 
	 <cfif OASIS_Version_Code_1.indexOf("B") neq "-1">
		 <cfif Emergent_Care_Reason_M0840.indexOf("5 - ") neq "-1">
			<cfset HHA_Record_Data=HHA_Record_Data & "1" />
		 <cfelse>
			<cfset HHA_Record_Data=HHA_Record_Data & "0" />
		 </cfif>
	  <cfelse>
	 	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
	  </cfif>	
	 
	  <!---#Append M0840 Cardiac  ---->
	 
	  <cfif OASIS_Version_Code_1.indexOf("B") neq "-1">
		<cfif Emergent_Care_Reason_M0840.indexOf("6 - ") neq "-1">
			<cfset HHA_Record_Data=HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data=HHA_Record_Data & "0" />
		</cfif>
	  <cfelse>
	 	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
	  </cfif>	
	 
	  <!--- #693-693 Append M0840 Hypo --->
	 
	  <cfif Emergent_Care_Reason_M0840.indexOf("10 - ") neq "-1" or Emergent_Care_Reason_M0840.indexOf("7 - ") neq "-1" or Emergent_Care_Reason_M0840.indexOf("9 - ") neq "-1">
	 	<cfset HHA_Record_Data=HHA_Record_Data & "1" />
	  <cfelse>
	 	<cfset HHA_Record_Data=HHA_Record_Data & "0" />
	  </cfif>
	
	  <!---#Append M0840 GI  ---->
	
	 <cfif OASIS_Version_Code_1.indexOf("B") neq "-1">
		 <cfif Emergent_Care_Reason_M0840.indexOf("8 - ") neq "-1">
			<cfset HHA_Record_Data=HHA_Record_Data & "1" />
		 <cfelse>
			<cfset HHA_Record_Data=HHA_Record_Data & "0" />
		 </cfif>
	  <cfelse>
	 	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
	  </cfif>
	  
	  <!---#696-696 Append M0840 Unknown --->
	  
	   <cfif Emergent_Care_Reason_M0840.indexOf("UK - ") neq "-1">
	 	<cfset HHA_Record_Data=HHA_Record_Data & "1" />
	   <cfelse>
	 	<cfset HHA_Record_Data=HHA_Record_Data & "0" />
	   </cfif>
	   
<cfelse>
	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,10) />
</cfif>

<!--- #697-698 Append M0855 Inpatient Facility  --->

<cfif Assessment_Reason_M0100.indexOf("6 - ") neq "-1" or Assessment_Reason_M0100.indexOf("7 - ") neq "-1" or Assessment_Reason_M0100.indexOf("9 - ") neq "-1">

	<cfif Inpatient_Facility_M0855.indexOf("NA - ") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data & "NA"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Inpatient_Facility_M0855,1) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
</cfif>

<!--=================================================================================================================================================		                                                End  Create Data Record thru 682-698 M0855 Dataset
==================================================================================================================================================-->	

<!--=================================================================================================================================================		                                                Create Data Record thru 699-700 M0870 Datasets
==================================================================================================================================================-->	

<!---- #Append M0870 Discharge Disposition --->

<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Assessment_Reason_M0100.indexOf("9") neq "-1">
	<cfif Inpatient_Facility_M0855.indexOf("NA - ") neq "-1">
		<cfif Discharge_Disposition_M0870.indexOf("UK - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "UK" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Discharge_Disposition_M0870,1) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
<cfelse>
	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
</cfif>  

<!--=================================================================================================================================================		                                                End  Create Data Record thru 699-700 M0870 Datasets
==================================================================================================================================================-->	    

<!--=================================================================================================================================================		                                                Create Data Record thru 701-703 M0880 Datasets
==================================================================================================================================================-->	
 
<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Assessment_Reason_M0100.indexOf("9") neq "-1">
 		<cfif Inpatient_Facility_M0855.indexOf("NA - ") neq "-1">
			<cfif Discharge_Disposition_M0870.indexOf("1 - ") neq "-1">
				<cfif After_Discharge_Services_M0880.indexOf("1 - ") neq "-1">
					<cfset HHA_Record_Data = HHA_Record_Data & "1" />
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data & "0" />
				</cfif>
				<cfif After_Discharge_Services_M0880.indexOf("2 - ") neq "-1">
					<cfset HHA_Record_Data = HHA_Record_Data & "1" />
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data & "0" />
				</cfif>
				<cfif After_Discharge_Services_M0880.indexOf("3 - ") neq "-1">
					<cfset HHA_Record_Data = HHA_Record_Data & "1" />
				<cfelse>
					<cfset HHA_Record_Data = HHA_Record_Data & "0" />
				</cfif>
			<cfelse>
			<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,3) />
			</cfif>
		<cfelse>
		<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,3) />
		</cfif>
  <cfelse>
  	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,3) />
  </cfif>
 <!--=================================================================================================================================================		                                                End Create Data Record thru 701-703 M0880 Datasets
==================================================================================================================================================-->				



<!--=================================================================================================================================================		                                             	Create Data Record thru 704-705 M0890 Datasets
==================================================================================================================================================-->						
			
<!--- #Append M0890 Hospital Reason ---->
	
<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and (Assessment_Reason_M0100.indexOf("6") neq "-1" or Assessment_Reason_M0100.indexOf("7") neq "-1")>
	<cfif Inpatient_Facility_M0855.indexOf("1 - ") neq "-1">
		<cfif Hospital_Reason_M0890.indexOf("1 - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "01" />
		</cfif>
		<cfif Hospital_Reason_M0890.indexOf("2 - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "02" />
		</cfif>
		<cfif Hospital_Reason_M0890.indexOf("3 - ") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data & "03" />
			</cfif>
		<cfif Hospital_Reason_M0890.indexOf("UK - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "UK" />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
</cfif>

<!--=================================================================================================================================================		                                             	End Create Data Record thru 704-705 M0890 Datasets
==================================================================================================================================================-->						

<!--=================================================================================================================================================		                                             	Create Data Record thru 706-721 M0895 Datasets
==================================================================================================================================================-->						

<cfif Assessment_Reason_M0100.indexOf("6") neq "-1" or Assessment_Reason_M0100.indexOf("7") neq "-1">
	<cfif Inpatient_Facility_M0855.indexOf("1 - ") neq "-1">
		<!---#706-706 Append M0895 Hospital Reasons --->
		<cfif Hospital_Reason_List_M0895.indexOf("1 - Imp") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("2 - Inj")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("3 - Res")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("4 - Wou")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<!---#710-710 Append M0895 Hospital Reasons --->
		<cfif Hospital_Reason_List_M0895.indexOf("Hypo") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("6 - GI")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>

			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("7 - ")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("8 - ")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("9 - ")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<!---#710-710 Append M0895 Hospital Reasons --->
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("10 - ")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("11 - ")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("12 - ")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<!---#716-716 Append M0895 Hospital Reasons --->
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("13 - ")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<!---#717-717 Append M0895 Hospital Reasons --->
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("14 - ")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("15 - ")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and Hospital_Reason_List_M0895.indexOf("16 - ")>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
	<cfelse>
	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,16) />
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,16) />
</cfif>

<!--=================================================================================================================================================		                                             	End Create Data Record thru 706-721 M0895 Datasets
==================================================================================================================================================-->						

<!--=================================================================================================================================================		                                             	 Create Data Record thru 722-728 M0900 Datasets
==================================================================================================================================================-->						
<!--- #Append M0900 Nursing Home Reason --->

<cfif Assessment_Reason_M0100.indexOf("6") neq "-1" or Assessment_Reason_M0100.indexOf("7") neq "-1">
	<cfif Inpatient_Facility_M0855.indexOf("3 - ") neq "-1">
		<cfif Nursing_Home_M0900.indexOf("1 - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif Nursing_Home_M0900.indexOf("2 - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif Nursing_Home_M0900.indexOf("3 - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif Nursing_Home_M0900.indexOf("4 - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif Nursing_Home_M0900.indexOf("5 - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif Nursing_Home_M0900.indexOf("6 - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif Nursing_Home_M0900.indexOf("NA - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
	<cfelse>
	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,7) />
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,7) />
</cfif>

<!--=================================================================================================================================================		                                             	End Create Data Record thru 722-728 M0900 Datasets
==================================================================================================================================================-->						

<!--=================================================================================================================================================		                                              Create Data Record thru 729-736 M0903 Datasets
==================================================================================================================================================-->						

<!---#Append M0903 Last Home Visit --->

<cfset Date_Most_Recent_M0903_year = "" />

<cfset Date_Most_Recent_M0903_month = "" />
<cfset Date_Most_Recent_M0903_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">
	
	<cfif Date_Most_Recent_M0903 neq "">
		<cfset Date_Most_Recent_M0903_year = year(Date_Most_Recent_M0903) />
		<cfif month(Date_Most_Recent_M0903) lt 10>
			<cfset Date_Most_Recent_M0903_month = "0" & month(Date_Most_Recent_M0903) />
		<cfelse>
			<cfset Date_Most_Recent_M0903_month = month(Date_Most_Recent_M0903) />
		</cfif>
		<cfif day(Date_Most_Recent_M0903) lt 10>
			<cfset Date_Most_Recent_M0903_Day = "0" & day(Date_Most_Recent_M0903) />
		<cfelse>
			<cfset Date_Most_Recent_M0903_Day = day(Date_Most_Recent_M0903) />
		</cfif>
		<cfset HHA_Record_Data = HHA_Record_Data & Date_Most_Recent_M0903_year & Date_Most_Recent_M0903_month & Date_Most_Recent_M0903_Day />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding , 8)  />
	</cfif>	
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,8) />
</cfif>

<!--================================================================================================================================================		                                             	End Create Data Record thru 729-736 M0903 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">
	<cfif Date_Discharge_M0906 neq "">
		<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>	
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,8) />
</cfif>
	
<!--=================================================================================================================================================		                                             	End Create Data Record thru 737-744 M0906 Datasets
==================================================================================================================================================-->						

<!--=================================================================================================================================================		                                             	Create Data Record thru 745-868 M0826 Datasets
==================================================================================================================================================-->						

<!---#745-748 --->

<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,4) />

<!---#749-749 M0175 1 --->

<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")>
	<cfif Discharged_From_M0175.indexOf("1 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
</cfif>

<!--- #750   M0175 2 --->

<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")>
	<cfif Discharged_From_M0175.indexOf("2 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
</cfif>


<!--- #751  M0175 3 --->

<cfif  Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1">
	<cfif OASIS_Version_Code_1.indexOf("C") neq "-1">
		<cfif Discharged_From_M0175.indexOf("2 - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
	<cfelse>
		<cfif Discharged_From_M0175.indexOf("3 - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
</cfif>


<!---#752  M0175 4 --->

<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and (Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1")>
	<cfif Discharged_From_M0175.indexOf("4 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
</cfif>

<!---#753  M0175 5 --->

<cfif OASIS_Version_Code_1.indexOf("B") neq "-1" and ( Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1")>
	<cfif Discharged_From_M0175.indexOf("5 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
</cfif>

<!---#754  M0175 NA --->

<cfif Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("1 - ") neq "-1" >
	<cfif Discharged_From_M0175.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
</cfif>

<!--- #755-768 Filler --->

<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,7) />

<!--- #769-778 Filler --->

<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,7) />

<!--- #769-778 NPI --->

<!---<cfif Natl_Provider_ID neq ''>
	<cfif len(Natl_Provider_ID) lt 10>
		<cfset HHA_Record_Data = HHA_Record_Data & UCase(Natl_Provider_ID) & left(gHHA_Record_Padding,10 - len(Natl_Provider_ID)) />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & UCase(left(gHHA_Record_Padding,10)) />
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,10) />
</cfif>--->

<cfif len(Natl_Provider_ID) eq "10">
	<cfset HHA_Record_Data = HHA_Record_Data & Natl_Provider_ID />		
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data &""& left(gHHA_Record_Padding,10) />
</cfif>

<!---#779-780 M0110 --->

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" >

	<cfif M0110.indexOf("1") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "01" />
	</cfif>
	<cfif M0110.indexOf("2") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "02" />
	</cfif>
	<cfif M0110.indexOf("NA") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
	</cfif>
	<cfif M0110.indexOf("UK") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "UK" />
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
</cfif>

<!--- #781-864 M0246 --->


<cfif M0246 neq ''>
	<cfset HHA_Record_Data = HHA_Record_Data & M0246 />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,84) />
</cfif>

<!--- ---->

<!--- #865-867 M0826 --->

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" >
	<cfif M0826_NA.indexOf("NA") eq "-1">
		<cfif len(M0826_Ther_Need) eq 3>
			<cfset HHA_Record_Data = HHA_Record_Data & M0826_Ther_Need />
		</cfif>
		<cfif len(M0826_Ther_Need) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & M0826_Ther_Need />	
		</cfif>
		<cfif len(M0826_Ther_Need) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "00" & M0826_Ther_Need />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,3) />
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,3) />
</cfif>


<!--- #868-868 M0826 NA --->

<cfif Assessment_Reason_M0100.indexOf("1 - ") neq "-1" or Assessment_Reason_M0100.indexOf("3 - ") neq "-1" or Assessment_Reason_M0100.indexOf("4 - ") neq "-1" or Assessment_Reason_M0100.indexOf("5 - ") neq "-1" >
	<cfif M0826_NA.indexOf("NA") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	</cfif>
<cfelse>
<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
</cfif>

<!--=================================================================================================================================================		                                             	End Create Data Record thru 745-868 M0826 Datasets
==================================================================================================================================================-->						

<cfset step="0" />

<!--=================================================================================================================================================		                                             	Create Data Record thru 1, 3 869-END Datasets 
==================================================================================================================================================-->						

<cfif Assessment_Reason_M0100.indexOf("1") neq "-1" or Assessment_Reason_M0100.indexOf("3") neq "-1" >
	<cfif OASIS_Version_Code_1.indexOf("C") neq "-1">
	<!--- #869-869 C ---->
	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
	<!---#870-877 M0102 --->
	<cfset M0102_Physician_SOC_year = "" />
	<cfset M0102_Physician_SOC_month = "" />
	<cfset M0102_Physician_SOC_day = "" />
	
	<cfif M0102_Physician_SOC neq ''>
		<cfset M0102_Physician_SOC_year = year(M0102_Physician_SOC) />
		<cfif month(M0102_Physician_SOC) lt 10>
			<cfset M0102_Physician_SOC_month = "0" & month(M0102_Physician_SOC) />
		<cfelse>
			<cfset M0102_Physician_SOC_month = month(M0102_Physician_SOC) />
		</cfif>
		<cfif day(M0102_Physician_SOC) lt 10>
			<cfset M0102_Physician_SOC_day = "0" & day(M0102_Physician_SOC) />
		<cfelse>
			<cfset M0102_Physician_SOC_month = day(M0102_Physician_SOC) />
		</cfif>
		<cfset HHA_Record_Data = HHA_Record_Data & M0102_Physician_SOC_year & M0102_Physician_SOC_month & M0102_Physician_SOC_day />
	<cfelse>
		<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,8) />
	</cfif>
	
	<!--- #878-878 M0102 NA --->
	<cfif M0102_Physician_SOC eq ''>
		<cfset HHA_Record_Data= HHA_Record_Data & "1" />
	<cfelse>
		<cfset HHA_Record_Data= HHA_Record_Data & "0" />
	</cfif>
	<!---#879-886 M0104 --->
	<cfset M0104_Date_of_Referral_year = "" />
	<cfset M0104_Date_of_Referral_month = "" />
	<cfset M0104_Date_of_Referral_day = "" />
	
	<cfif M0102_Physician_SOC eq ''>
		<cfif M0104_Date_of_Referral neq ''>
			<cfset M0104_Date_of_Referral_year = year(M0104_Date_of_Referral) />
			<cfif month(M0104_Date_of_Referral) lt 10>
				<cfset M0104_Date_of_Referral_month = "0" & month(M0104_Date_of_Referral) />
			<cfelse>
				<cfset M0104_Date_of_Referral_month = month(M0104_Date_of_Referral) />
			</cfif>
			<cfif day(M0104_Date_of_Referral) lt 10>
				<cfset M0104_Date_of_Referral_day = "0" & day(M0104_Date_of_Referral) />
			<cfelse>
				<cfset M0104_Date_of_Referral_day = day(M0104_Date_of_Referral) />
			</cfif>
			<cfset HHA_Record_Data = HHA_Record_Data & M0104_Date_of_Referral_year & M0104_Date_of_Referral_month & M0104_Date_of_Referral_day />
		<cfelse>
			<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,8) />
		</cfif>
	 <cfelse>
	 <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,8) />
	 </cfif>
	 
	 <!---#887-887 M0175 1 --->
	 
	 <cfif Discharged_From_M0175.indexOf("1 - ") neq "-1">
	 	<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	 <cfelse>
	 	<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	 </cfif>
	 <!---#888-888 M0175 3 --->
	 <cfif Discharged_From_M0175.indexOf("3- ") neq "-1">
	 	<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	 <cfelse>
	 	<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	 </cfif>
	 <!---#889-889 M0175 4 --->
	 <cfif Discharged_From_M0175.indexOf("4 - ") neq "-1">
	 	<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	 <cfelse>
	 	<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	 </cfif>
	 <!---#890-890 M0175 5  --->
	 <cfif Discharged_From_M0175.indexOf("5 - ") neq "-1">
	 	<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	 <cfelse>
	 	<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	 </cfif>
	 <!---#891-891 M0175 6  --->
	 <cfif Discharged_From_M0175.indexOf("6 - ") neq "-1">
	 	<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	 <cfelse>
	 	<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	 </cfif>
	 <!---#892-892  M0175 7  --->
	 <cfif Discharged_From_M0175.indexOf("7 - ") neq "-1">
	 	<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	 <cfelse>
	 	<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	 </cfif>
	 <!---#893-920 Inpatient Codes 3-6 --->
	 <cfset HHA_Record_Data = HHA_Record_Data & M0190 />
	 <!---#921-948 M1012--->
	 <cfset HHA_Record_Data = HHA_Record_Data & M1012 />
	 <!---#949-949 Inpatient Procedures NA --->
	 <cfif Discharged_From_M0175.indexOf("NA -") eq "-1">
	 	<cfif M1012_Inpat_DX_NA eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		</cfif>
		<cfif M1012_Inpat_DX_UK eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		</cfif>
	  <cfelse>
		<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	  </cfif>
	  <!---#951-964 Med Change ICD 5, 6 --->
	  <cfset HHA_Record_Data= HHA_Record_Data & M0210 />
	  <!---#965-965 Med Change NA --->
	  <cfif M1016_DX_NA eq ''>
	  	   <cfset HHA_Record_Data = HHA_Record_Data & "0" />
	  <cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	  </cfif>
	  <!---#966-966 M1032 1 --->
	  <cfif M1032_Frailty.indexOf("1 -") neq "-1">
	  		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	  <cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	  </cfif>
	  <!---#967-967 M1032 2 --->
	  <cfif M1032_Frailty.indexOf("2 -") neq "-1">
	  		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	  <cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	  </cfif>
	  <!---#968-968 M1032 3 --->
	  <cfif M1032_Frailty.indexOf("3 -") neq "-1">
	  		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	  <cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	  </cfif>
	  <!---#969-969 M1032 4 --->
	  <cfif M1032_Frailty.indexOf("4 -") neq "-1">
	  		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	  <cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	  </cfif>
	  <!---#970-970 M1032 5 --->
	  <cfif M1032_Frailty.indexOf("5 -") neq "-1">
	  		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	  <cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	  </cfif>
	  <!---#971-971 M1032 6 --->
	  <cfif M1032_Frailty.indexOf("6 -") neq "-1">
	  		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	  <cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	  </cfif>
	  <!---#972-972 M1032 7 --->
	  <cfif M1032_Frailty.indexOf("7 -") neq "-1">
	  		<cfset HHA_Record_Data = HHA_Record_Data & "1" />
	  <cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
	  </cfif>
	  <!---#973-974 M1034 --->
	  <cfif Rehab_Prognosis_M0270.indexOf("UK - ") neq "-1">
	  		<cfset HHA_Record_Data = HHA_Record_Data & "UK"  />
	  <cfelse>
	  		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Rehab_Prognosis_M0270,1) />
	  </cfif>
	  <!---#982-983 M1100--->
	  <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,7) />
	  <cfset HHA_Record_Data= HHA_Record_Data & left(M1100_Living_Situation,2) />
	  <!---#984-985 M1210 --->
	  <cfif Hearing_M0400.indexOf("UK - ") neq "-1">
	  		<cfset HHA_Record_Data = HHA_Record_Data & "UK"  />
	  <cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Hearing_M0400,1) />
	  </cfif>
	  <!---#986-987 M1220 --->
	  <cfif M1220_Verbal_Under.indexOf("UK - ") neq "-1">
	  		<cfset HHA_Record_Data = HHA_Record_Data & "UK"  />
	  <cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1220_Verbal_Under,1) />
	  </cfif>
	  <!--- #988-989 M1240 --->
	  <cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1240_Pain_Assess,1) />
	  <!--- #990-991 M1242 --->
	  	  <cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Freq_of_Pain_M0420,1) />
	  <!--- #992-993 M1300 ---->
	  	  <cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1300_Pressure,1) />
	  <!--- #994-994 M1302 --->
	  <cfif M1300_Pressure.indexOf("1 -") neq "-1" or M1300_Pressure.indexOf("2 -") neq "-1">
	  	  <cfset HHA_Record_Data = HHA_Record_Data & left(M1302_Pressure,1) />
	  <cfelse>
	  	  <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,1) />
	  </cfif>
	  <!---#995-995 M1306 --->
	  <cfset HHA_Record_Data = HHA_Record_Data & left(M1306_Unhealed_Pressure,1) />
	  <!---#1006-1007 M1308 --->
	  <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,10) />
	  <cfif len(Pressure_Ulcer_b_M0450) eq 1>
	  	  <cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Pressure_Ulcer_b_M0450,1) />
	  </cfif>
	  <cfif len(Pressure_Ulcer_b_M0450) eq 2>
	  	<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_b_M0450,2) />
	  </cfif>
	  <cfif Pressure_Ulcer_b_M0450 eq ''>
	  	 <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	  </cfif>
	  <!---#1010-1011 M1308 --->
	  <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	  <cfif len(Pressure_Ulcer_c_M0450) eq 1>
	  	  <cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Pressure_Ulcer_c_M0450,1) />
	  </cfif>
	  <cfif len(Pressure_Ulcer_c_M0450) eq 2>
	  	<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_c_M0450,2) />
	  </cfif>
	  <cfif Pressure_Ulcer_c_M0450 eq ''>
	  	 <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	  </cfif>
	  <!---#1014-1015 M1308 --->
	  <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	  <cfif len(Pressure_Ulcer_d_M0450) eq 1>
	  	  <cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Pressure_Ulcer_d_M0450,1) />
	  </cfif>
	  <cfif len(Pressure_Ulcer_d_M0450) eq 2>
	  	<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_d_M0450,2) />
	  </cfif>
	  <cfif Pressure_Ulcer_d_M0450 eq ''>
	  	 <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	  </cfif>
	  <!---#1018-1019 M1308 --->
	  <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />

	  <cfif len(Pressure_Ulcer_e_M0450) eq 1>
	  	  <cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Pressure_Ulcer_e_M0450,1) />
	  </cfif>
	  <cfif len(Pressure_Ulcer_e_M0450) eq 2>
	  	<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_e_M0450,2) />
	  </cfif>
	  <cfif Pressure_Ulcer_e_M0450 eq ''>
	  	 <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	  </cfif>
	  <!---#1022-1023 M1308 D2 --->
	  <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	  <cfif len(M1308_d_2_Pressure) eq 1>
	  	  <cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_d_2_Pressure,1) />
	  </cfif>
	  <cfif len(M1308_d_2_Pressure) eq 2>
	  	<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_d_2_Pressure,2) />
	  </cfif>
	  <cfif M1308_d_2_Pressure eq ''>
	  	 <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	  </cfif>
	  <!---#1026-1027 M1308 D3 --->
	  <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	  <cfif len(M1308_d_3_Pressure) eq 1>
	  	  <cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_d_3_Pressure,1) />
	  </cfif>
	  <cfif len(M1308_d_3_Pressure) eq 2>
	  	<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_d_3_Pressure,2) />
	  </cfif>
	  <cfif M1308_d_3_Pressure eq ''>
	  	 <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	  </cfif>
	  <!---#1030-1033 M1310 --->
	  <cfset gTemp = "" />
	  <cfset gDisplay_File_Name = "" />
	  <cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,2) />
	  <cfif M1310_1 neq '' or M1310_Length neq ''>
	  		<cfif len(M1310_Length) eq 1>
				<cfset gTemp = "0" & left(M1310_Length,1) />
			</cfif>
			<cfif len(M1310_Length) eq 2>
				<cfset gTemp = M1310_Length />
			</cfif>
			<cfif M1310_Length eq ''>
				<cfset gTemp = "00" />
			</cfif>
			
			<cfif len(M1310_1) eq 1>
				<cfset gDisplay_File_Name = M1310_1 />
			</cfif>
			<cfif M1310_1 eq ''>
				<cfset gDisplay_File_Name = "0" />
			</cfif>
			<cfset HHA_Record_Data = HHA_Record_Data & gTemp &"." & gDisplay_File_Name />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
		</cfif>
		<!--- #1034-1037 M1312 ---->
		<cfif M1312_Width neq '' or M1312_1 neq ''>
	  		<cfif len(M1312_Width) eq 1>
				<cfset gTemp = "0" & left(M1312_Width,1) />
			</cfif>
			<cfif len(M1312_Width) eq 2>
				<cfset gTemp = M1312_Width />
			</cfif>
			<cfif M1312_Width eq ''>
				<cfset gTemp = "00" />
			</cfif>
			<cfif len(M1312_1) eq 1>
				<cfset gDisplay_File_Name = M1312_1 />
			</cfif>
			<cfif M1312_1 eq ''>
				<cfset gDisplay_File_Name = "0" />
			</cfif>
			<cfset HHA_Record_Data = HHA_Record_Data & gTemp &"." & gDisplay_File_Name />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
		</cfif>
		<!---#1038-1041 M1314 --->
		<cfif M1314_Depth neq '' or M1314_1 neq ''>
	  		<cfif len(M1314_Depth) eq 1>
				<cfset gTemp = "0" & left(M1312_Width,1) />
			</cfif>
			<cfif len(M1314_Depth) eq 2>
				<cfset gTemp = M1312_Width />
			</cfif>
			<cfif M1314_Depth eq ''>
				<cfset gTemp = "00" />
			</cfif>
			<cfif len(M1314_1) eq 1>
				<cfset gDisplay_File_Name = M1312_1 />
			</cfif>
			<cfif M1314_1 eq ''>
				<cfset gDisplay_File_Name = "0" />
			</cfif>
			<cfset HHA_Record_Data = HHA_Record_Data & gTemp &"." & gDisplay_File_Name />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
		</cfif>
		<!---#1042-1043 M1320 --->
		<cfif Pressure_Ulcer_Status_M0464 eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		<cfelse>
			<cfif Pressure_Ulcer_Status_M0464.indexOf("NA -") eq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(gHHA_Record_Padding,1) />
			</cfif>
			<cfif Pressure_Ulcer_Status_M0464.indexOf("NA -") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
			</cfif>
		</cfif>
		<!--- #1044-1045 M1330 ---->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Stasis_Ulcer_M0468,1) />
		<!---#1046-1047 M1332 ---->
		<cfif Stasis_Ulcer_M0468.indexOf("1 -") neq "-1" or Stasis_Ulcer_M0468.indexOf("2 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Stasis_Ulcer_Num_M0470,1) />
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Stasis_Ulcer_Status_M0476,1) />
		<cfelse>
	    	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
		</cfif>
		<!---#1050-1051 M1340 --->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Surgical_Wound_M0482,1) />
		<!---#1052-1053 M1342 --->
		<cfif Surgical_Wound_M0482.indexOf("1 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Surgical_Wound_Status_M0488,1) />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		<!---#1054-1054 M1350 --->
		<cfset 	HHA_Record_Data = HHA_Record_Data & left(M1350_Other_Wounds,1) />
		<!---#1063-1064 M1615 --->
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,8) />
		<cfif Urinary_INcont_M0520.indexOf("1 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Urinary_INcont_when_M0530,1) />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		<!---#1065-1066 M1730 --->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1730_Depression,1) />
		<cfif M1730_Depression.indexOf("1 -") neq "-1">
			<!---#1067-1068 M1730a --->
			<cfif M1730a.indexOf("NA -") eq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1730a,1) />
			</cfif>
			<cfif M1730a.indexOf("NA -") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
			</cfif>
			<!---#1069-1070 M1730b --->
			<cfif M1730b.indexOf("NA -") eq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1730b,1) />
			</cfif>
			<cfif M1730b.indexOf("NA -") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
			</cfif>
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
		</cfif>
		<!---#1071-1072 M1830 ---->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Bathing_M0670,1) />
		<!---#1073-1074 M1840 --->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1840_Toilet,1) />
		<!---#1075-1076 M1845  --->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1845_Toilet,1) />
		<!---#1077-1078 M1850 --->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Transferring_M0690,1) />
		<!---#1079-1080 M1860 --->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Ambulation_M0700,1) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,212) />
</cfif>

<!---#1081-1085 HIPPS  --->
<cfif M0826_NA.indexOf("NA") eq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & HIPPS_Code />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,5) />
</cfif>

<!---#1086-1090 Filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,5) />
<!---#1091-1095 HIPPS Version  ---->
<cfif M0826_NA.indexOf("NA") eq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & "V3213" />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,5) />
</cfif>

<cfif OASIS_Version_Code_1.indexOf("C") neq "-1">
	<!---#1096-1097 M1900a --->
	<cfset HHA_Record_Data =HHA_Record_Data & "0" & left(M1900a_SelfCare,1) />
	<!---#1096-1097 M1900b --->
	<cfset HHA_Record_Data =HHA_Record_Data & "0" & left(M1900b_Amb,1) />
	<!---#1096-1097 M1900c --->
	<cfset HHA_Record_Data =HHA_Record_Data & "0" & left(M1900c_Transfer,1) />
	<!---#1096-1097 M1900d --->
	<cfset HHA_Record_Data =HHA_Record_Data & "0" & left(M1900d_House,1) />
	<!---#1104-1105 M1910 --->
	<cfset HHA_Record_Data =HHA_Record_Data & "0" & left(M1910_Fall_Risk,1) />
	<!---#1106-1107 M2000 --->
	<cfset HHA_Record_Data =HHA_Record_Data & "0" & left(M2000_Adverse,1) />

	<!---#1108-1108 M2002--->
	<cfif M2002_Med_FU neq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(M2002_Med_FU,1) />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,1) />
	</cfif>
	
	<!---#1111-1112 M2010 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	<cfif M2010_Med_Edu neq ''>
		<cfif M2010_Med_Edu.indexOf("NA - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2010_Med_Edu,1) />
		</cfif>

	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	<!----#1115-1116 M2020 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	<cfif Oral_Meds_M0780 neq ''>
		<cfif Oral_Meds_M0780.indexOf("NA - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "NA"  />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Oral_Meds_M0780,1) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	<!---#1117-1118 M2030 --->
	<cfif Inject_Meds_M0800 neq ''>
		<cfif Inject_Meds_M0800.indexOf("NA - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "NA"  />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Inject_Meds_M0800,1) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	<!---#1119-1120 M2040 --->
	<cfif Oral_Meds_M0780p.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Oral_Meds_M0780p,1) />
	</cfif>
	<!---#1121-1122 M2040 --->
	<cfif Inject_Meds_m0800p.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Inject_Meds_m0800p,1) />
	</cfif>
	<!----#1123-1124 M2100a --->
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100a_Equip,1) />
	<!--- #1125-1126 M2100b ---->
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100b_Equip,1) />
	<!--- #1127-1128 M2100c  ---->
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100c_Equip,1) />
	<!--- #1129-1130 M2100d  ---->
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100d_Equip,1) />
	<!--- #1131-1132 M2100e ---->
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100e_Equip,1) />
	<!--- #1133-1134 M2100f  ---->
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100f_Equip,1) />
	<!--- #1135-1136 M2100g  ---->
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100g_Equip,1) />
	
	<!---#1137-1138 M2110 --->
	<cfif M2110_Assist_Freq.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "UK"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2110_Assist_Freq,1) />
	</cfif>
	<!---#1139-1140 M2250 ---->
	<cfif M2250a_PhysNot.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2250a_PhysNot,1) />
	</cfif>
	<!---#1141-1142 M2250b  --->
	<cfif M2250b_Diabetic.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2250b_Diabetic,1) />
	</cfif>
	<!---#1143-1144 M2250c  --->
	<cfif M2250c_FallsPrev.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2250c_FallsPrev,1) />
	</cfif>
	<!---#1145-1146 M2250d --->
	<cfif M2250d_Depress.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2250d_Depress,1) />
	</cfif>
	<!---#1147-1148 M2250e --->
	<cfif M2250e_Pain.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2250e_Pain,1) />
	</cfif>
	<!---#1149-1150 M2250f  --->
	<cfif M2250f_PressUlc.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2250f_PressUlc,1) />
	</cfif>
	<!---#1151-1152 M2250g --->
	<cfif M2250g_PressUlcMoist.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA"  />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2250g_PressUlcMoist,1) />
	</cfif>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,293) />
	<cfset HHA_Record_Data = HHA_Record_Data & "%" />
<cfelse>
	<!---#Append State Use filler to 1395 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,300) />
	<!---#Append Agency Use Filler to 1445  --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,50) />
	<!---#Append Data End to 1446 --->
	<cfset HHA_Record_Data = HHA_Record_Data & "%" />
</cfif>
	<cfset step="1" />
</cfif>

<!--=================================================================================================================================================		                                             	End Create Data Record thru 1, 3 869-END Datasets 
==================================================================================================================================================-->						



<!--=================================================================================================================================================		                                             	Create Data Record thru 4, 5 869-END NEW Datasets 
==================================================================================================================================================-->						

<cfif (Assessment_Reason_M0100.indexOf("4") neq "-1" or Assessment_Reason_M0100.indexOf("5") neq "-1") and step eq "0" >
	<cfif OASIS_Version_Code_1.indexOf("C") neq "-1">
	<!---#869-989 C --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,121) />
	<!---#990-991 M1242 --->
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Freq_of_Pain_M0420,1) />
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,3) />
	<!---#995-995 M1306 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(M1306_Unhealed_Pressure,1) />
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,10) />
	
	<!---#1006-1009 M1308 ---->
	<cfif len(Pressure_Ulcer_b_M0450) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Pressure_Ulcer_b_M0450,1) />
	</cfif>
	<cfif len(Pressure_Ulcer_b_M0450) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_b_M0450,2) />
	</cfif>
	<cfif Pressure_Ulcer_b_M0450 eq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	<cfif len(M1308_a_12_Pressure) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_a_12_Pressure,1) />
	</cfif>
	<cfif len(M1308_a_12_Pressure) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_a_12_Pressure,2) />
	</cfif>
	<cfif M1308_a_12_Pressure eq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	
	<!---#1010-1013 M1308 --->
	<cfif len(Pressure_Ulcer_c_M0450) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Pressure_Ulcer_c_M0450,1) />
	</cfif>
	<cfif len(Pressure_Ulcer_c_M0450) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_c_M0450,2) />
	</cfif>
	<cfif Pressure_Ulcer_c_M0450 eq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	<cfif len(M1308_b_12_Pressure) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_b_12_Pressure,1) />
	</cfif>
	<cfif len(M1308_b_12_Pressure) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_b_12_Pressure,2) />
	</cfif>
	<cfif M1308_b_12_Pressure eq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	
	<!---#1014-1017 M1308 --->
	<cfif len(Pressure_Ulcer_d_M0450) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Pressure_Ulcer_d_M0450,1) />
	</cfif>
	<cfif len(Pressure_Ulcer_d_M0450) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_d_M0450,2) />
	</cfif>
	<cfif Pressure_Ulcer_d_M0450 eq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	<cfif len(M1308_c_12_Pressure) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_c_12_Pressure,1) />
	</cfif>
	<cfif len(M1308_c_12_Pressure) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_c_12_Pressure,2) />
	</cfif>
	<cfif M1308_c_12_Pressure eq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	
	<!---#1018-1021 M1308 ---->
	<cfif len(Pressure_Ulcer_e_M0450) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Pressure_Ulcer_e_M0450,1) />
	</cfif>
	<cfif len(Pressure_Ulcer_e_M0450) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_e_M0450,2) />
	</cfif>
	<cfif Pressure_Ulcer_e_M0450 eq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	<cfif len(M1308_d_12_Pressure) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_d_12_Pressure,1) />
	</cfif>
	<cfif len(M1308_d_12_Pressure) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_d_12_Pressure,2) />
	</cfif>
	<cfif M1308_d_12_Pressure eq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
		
	<!---#1022-1025 M1308 D2 --->
	<cfif len(M1308_d_2_Pressure) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_d_2_Pressure,1) />
	</cfif>
	<cfif len(M1308_d_2_Pressure) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_d_2_Pressure,2) />
	</cfif>
	<cfif M1308_d_2_Pressure eq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	<cfif len(M1308_d_22_Pressure) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_d_22_Pressure,1) />
	</cfif>
	<cfif len(M1308_d_22_Pressure) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_d_22_Pressure,2) />
	</cfif>
	<cfif M1308_d_22_Pressure eq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	
	<!---#1026-1029 M1308 D3 --->
	<cfif len(M1308_d_3_Pressure) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_d_3_Pressure,1) />
	</cfif>
	<cfif len(M1308_d_3_Pressure) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_d_3_Pressure,2) />
	</cfif>
	<cfif M1308_d_3_Pressure eq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	<cfif len(M1308_d_32_Pressure) eq 1>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_d_32_Pressure,1) />
	</cfif>
	<cfif len(M1308_d_32_Pressure) eq 2>
		<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_d_32_Pressure,2) />
	</cfif>
	<cfif M1308_d_32_Pressure eq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	
	<!---#1030-1043 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,14) />
	
	<!---#1044-1045 M1330 --->
	<cfset HHA_Record_Data = HHA_Record_Data &"0" & left(Stasis_Ulcer_M0468,1) />
	
	<!---#1046-1047 M1332 --->
	<cfif Stasis_Ulcer_M0468.indexOf("1 -") neq "-1" or Stasis_Ulcer_M0468.indexOf("2 -") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Stasis_Ulcer_Num_M0470,1) />
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Stasis_Ulcer_Status_M0476,1) />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
	</cfif>
	
	<!---#1050-1051 M1340 --->
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Surgical_Wound_M0482,1) />
	
	<!---#1052-1053 M1342 --->
	<cfif Surgical_Wound_M0482.indexOf("1 -") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Surgical_Wound_M0482,1) />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	
	<!---#1054-1054 M1350 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(M1350_Other_Wounds,1) />
	
	<!---#1063-1072 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,16) />
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Bathing_M0670,1) />
	
	<!---#1073-1074 M1840 --->
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1840_Toilet,1) />
	
	<!----#1075-1076 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	
	<!---#1077-1078 M1850 --->
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Transferring_M0690,1) />
	
	<!---#1079-1080 M1860 --->
	<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Ambulation_M0700,1) />
	
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,212) />
</cfif>

<!---#1081-1085 HIPPS --->
<cfif M0826_NA.indexOf("NA") eq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & HIPPS_Code />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,5) />
</cfif>

<!--- #1086-1090 Filler --->
<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,5) />

<!---#1091-1095 HIPPS Version --->
<cfset CheckDate1="10/1/2009" />
<cfif M0826_NA.indexOf("NA") eq "-1">
	<cfif OASIS_Version_Code_1.indexOf("C") eq "-1">
		<cfif Assessment_Completed_M0090 lt CheckDate1>
			<cfset HHA_Record_Data = HHA_Record_Data & "V2308" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "V2409" />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "V3213" />
	</cfif>

<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,5) />
</cfif>

<!---#1096-1116 --->
<cfif OASIS_Version_Code_1.indexOf("C") neq "-1">
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,21) />
	<cfif Inject_Meds_M0800 neq ''>
		<cfif Inject_Meds_M0800.indexOf("NA - ") neq "-1" >
			<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Inject_Meds_M0800,1) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	
	<!---#1120-End --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,327) />
	<cfset HHA_Record_Data = HHA_Record_Data & "%"  />
<cfelse>

	<!---#Append State Use filler to 1395 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,300) />
	
	<!---#Append Agency Use Filler to 1445 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,50) />
	
	<!---#Append Data End to 1446 --->
	<cfset HHA_Record_Data = HHA_Record_Data & "%"  />
</cfif>
	<cfset step="1" />
</cfif>

<!--=================================================================================================================================================		                                             	End Create Data Record thru 4, 5 869-END NEW Datasets  
==================================================================================================================================================-->						

<!--=================================================================================================================================================		                                             	Create Data Record thru 6, 7, 8, 9 869-END Datasets
==================================================================================================================================================-->						

<cfif step eq "0">
<cfif OASIS_Version_Code_1.indexOf("C") neq "-1" and Assessment_Reason_M0100.indexOf("8 -") eq "-1" >
	<!---#869-974 C --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,106) />
	
	<!---#975-976 M1040 --->
	<cfif M1040_Influ.indexOF("NA -") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1040_Influ,1) />
	</cfif>
	
	<!---#977-978 M1045 --->
	<cfif M1040_Influ neq ''>
		<cfif M1040_Influ.indexOF("NA -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1040_Influ,1) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	
	<!---#979-979 M1050 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(M1050_Pneu,1) />
	
	<!---#980-981 M1055 ---->
	<cfif M1055_Pneu neq ''>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1055_Pneu,1) />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,8) />
	
	<!---#990-991 M1242 ---->	
	<cfif Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Freq_of_Pain_M0420,1) />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	
	<!---#992-994 Filler --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,3) />
	
	<!---#995-1005 --->
	<cfif Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & left(M1306_Unhealed_Pressure,1) />
		<cfif M1306_Unhealed_Pressure.indexOf("1 -") neq "-1">
			<cfif M1307_Date neq ''>
				<cfset M1307_Date_year = "" />
				<cfset M1307_Date_month = "" />
				<cfset M1307_Date_Day = "" />
				<cfset M1307_Date_year = year(M1307_Date) />
				<cfif len(month(M1307_Date)) lt 2>
					<cfset M1307_Date_month = "0" & month(M1307_Date) />
				<cfelse>
					<cfset M1307_Date_month = month(M1307_Date) />
				</cfif>
				<cfif len(day(M1307_Date)) lt 2>
					<cfset M1307_Date_Day = "0" & day(M1307_Date) />
				<cfelse>
					<cfset M1307_Date_Day = day(M1307_Date) />
				</cfif>
				<cfset HHA_Record_Data = HHA_Record_Data & M1307_Date_year & M1307_Date_month & M1307_Date_Day />
			<cfelse>
			<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,8) />
			</cfif>	
			<cfif M1307_Oldest.indexOF("NA -") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1307_Oldest,1) />
			</cfif>
		<cfelse>
			<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,10) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,11) />
	</cfif>
	
	<!----#1006-1009 M1308 ---->
	<cfif Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
		<cfif len(Pressure_Ulcer_b_M0450) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Pressure_Ulcer_b_M0450,1) />
		</cfif>
		<cfif len(Pressure_Ulcer_b_M0450) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_b_M0450,2) />
		</cfif>
		<cfif Pressure_Ulcer_b_M0450 eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		<cfif len(M1308_a_12_Pressure) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_a_12_Pressure,1) />
		</cfif>
		<cfif len(M1308_a_12_Pressure) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_a_12_Pressure,2) />
		</cfif>
		<cfif M1308_a_12_Pressure eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		
		<!---#1010-1013 M1308 --->
		<cfif len(Pressure_Ulcer_c_M0450) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Pressure_Ulcer_c_M0450,1) />
		</cfif>
		<cfif len(Pressure_Ulcer_c_M0450) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_c_M0450,2) />
		</cfif>
		<cfif Pressure_Ulcer_c_M0450 eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		<cfif len(M1308_b_12_Pressure) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_b_12_Pressure,1) />
		</cfif>
		<cfif len(M1308_b_12_Pressure) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_b_12_Pressure,2) />
		</cfif>
		<cfif M1308_b_12_Pressure eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		
		<!---#1014-1017 M1308 --->
		<cfif len(Pressure_Ulcer_d_M0450) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Pressure_Ulcer_d_M0450,1) />
		</cfif>
		<cfif len(Pressure_Ulcer_d_M0450) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_d_M0450,2) />
		</cfif>
		<cfif Pressure_Ulcer_d_M0450 eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		<cfif len(M1308_c_12_Pressure) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_c_12_Pressure,1) />
		</cfif>
		<cfif len(M1308_c_12_Pressure) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_c_12_Pressure,2) />
		</cfif>
		<cfif M1308_c_12_Pressure eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>

		<!---#1018-1021 M1308 --->
		<cfif len(Pressure_Ulcer_e_M0450) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Pressure_Ulcer_e_M0450,1) />
		</cfif>
		<cfif len(Pressure_Ulcer_e_M0450) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & left(Pressure_Ulcer_e_M0450,2) />
		</cfif>
		<cfif Pressure_Ulcer_e_M0450 eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		<cfif len(M1308_d_12_Pressure) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_d_12_Pressure,1) />
		</cfif>
		<cfif len(M1308_d_12_Pressure) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_d_12_Pressure,2) />
		</cfif>
		<cfif M1308_d_12_Pressure eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		
		<!----#1022-1025 M1308 D2 --->		
		<cfif len(M1308_d_2_Pressure) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_d_2_Pressure,1) />
		</cfif>
		<cfif len(M1308_d_2_Pressure) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_d_2_Pressure,2) />
		</cfif>
		<cfif M1308_d_2_Pressure eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		<cfif len(M1308_d_22_Pressure) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_d_22_Pressure,1) />
		</cfif>
		<cfif len(M1308_d_22_Pressure) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_d_22_Pressure,2) />
		</cfif>
		<cfif M1308_d_22_Pressure eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		
		<!---#1026-1029 M1308 D3 --->
		<cfif len(M1308_d_3_Pressure) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_d_3_Pressure,1) />
		</cfif>
		<cfif len(M1308_d_3_Pressure) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_d_3_Pressure,2) />
		</cfif>
		<cfif M1308_d_3_Pressure eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		<cfif len(M1308_d_32_Pressure) eq 1>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1308_d_32_Pressure,1) />
		</cfif>
		<cfif len(M1308_d_32_Pressure) eq 2>
			<cfset HHA_Record_Data = HHA_Record_Data & left(M1308_d_32_Pressure,2) />
		</cfif>
		<cfif M1308_d_32_Pressure eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		
		<!---#1030-1043 ---->
		<!---Perform Script [ “Create wound measurement for Discharge Datasets *U” ] ---->
		
		<!---#1030-1033 M1310 --->
		<cfif M1310_Length neq '' or M1310_1 neq ''>
			<cfset gTemp = "" />
	  		<cfset gDisplay_File_Name = "" />
			<cfif len(M1310_Length) eq 1>
				<cfset gTemp = "0" & left(M1310_Length,1) />
			</cfif>
			<cfif len(M1310_Length) eq 2>
				<cfset gTemp = M1310_Length />
			</cfif>
			<cfif M1310_Length eq ''>
				<cfset gTemp = "00" />
			</cfif>
			<cfif len(M1310_1) eq 1>
				<cfset gDisplay_File_Name = M1310_1 />
			</cfif>
			<cfif M1310_1 eq ''>
				<cfset gDisplay_File_Name = "0" />
			</cfif>
			<cfset HHA_Record_Data = HHA_Record_Data & gTemp &"." & gDisplay_File_Name />
		 <cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
		 </cfif>
		 
		 <!---#1034-1037 M1312 --->
		 <cfif M1312_Width neq '' or M1312_1 neq ''>
	  		<cfif len(M1312_Width) eq 1>
				<cfset gTemp = "0" & left(M1312_Width,1) />
			</cfif>
			<cfif len(M1312_Width) eq 2>
				<cfset gTemp = M1312_Width />
			</cfif>
			<cfif M1312_Width eq ''>
				<cfset gTemp = "00" />
			</cfif>
			<cfif len(M1312_1) eq 1>
				<cfset gDisplay_File_Name = M1312_1 />
			</cfif>
			<cfif M1312_1 eq ''>
				<cfset gDisplay_File_Name = "0" />
			</cfif>
			<cfset HHA_Record_Data = HHA_Record_Data & gTemp &"." & gDisplay_File_Name />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
		</cfif>
		
		<!---#1038-1041 M1314 --->
		<cfif M1314_Depth neq '' or M1314_1 neq ''>
	  		<cfif len(M1314_Depth) eq 1>
				<cfset gTemp = "0" & left(M1314_Depth,1) />
			</cfif>
			<cfif len(M1314_Depth) eq 2>
				<cfset gTemp = M1312_Width />
			</cfif>
			<cfif M1314_Depth eq ''>
				<cfset gTemp = "00" />
			</cfif>
			<cfif len(M1314_1) eq 1>
				<cfset gDisplay_File_Name = M1314_1 />
			</cfif>
			<cfif M1314_1 eq ''>
				<cfset gDisplay_File_Name = "0" />
			</cfif>
			<cfset HHA_Record_Data = HHA_Record_Data & gTemp &"." & gDisplay_File_Name />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
		</cfif>
		
		<!---#1042-1043 M1320 --->
		<cfif Pressure_Ulcer_Status_M0464 eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		<cfif Pressure_Ulcer_Status_M0464.indexOf("NA -") eq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(gHHA_Record_Padding,1) />
		</cfif>
		<cfif Pressure_Ulcer_Status_M0464.indexOf("NA -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
		</cfif>
		 
		<!---End Perform Script [ “Create wound measurement for Discharge Datasets *U” ] ---->
		
		<!---#1044-1045 M1330 --->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Stasis_Ulcer_M0468,1) />
		
		<!---#1046-1047 M1332 --->
		<cfif Stasis_Ulcer_M0468.indexOf("1 -") neq "-1" or Stasis_Ulcer_M0468.indexOf("2 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Stasis_Ulcer_Num_M0470,1) />
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Stasis_Ulcer_Status_M0476,1) />
		<cfelse>
	    	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
		</cfif>
		
		<!---#1050-1051 M1340 --->	
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Surgical_Wound_M0482,1) />
		<!---#1052-1053 M1342 --->
		<cfif Surgical_Wound_M0482.indexOf("1 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Surgical_Wound_Status_M0488,1) />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		<!---#1054-1054 M1350 --->
		<cfset 	HHA_Record_Data = HHA_Record_Data & left(M1350_Other_Wounds,1) />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,49) />
	</cfif>
	
	<!---#1055-1056 M1500 ---->
	<cfif M1500_Symptoms.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
	<cfelse>
		 <cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1500_Symptoms,1) />
	</cfif>
	
	<!---#1057-1062 M1510 --->
	<cfif M1510_Hrt_FU neq ''>
		<cfif M1510_Hrt_FU.indexOf("0 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif M1510_Hrt_FU.indexOf("1 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif M1510_Hrt_FU.indexOf("2 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif M1510_Hrt_FU.indexOf("3 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif M1510_Hrt_FU.indexOf("4 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		<cfif M1510_Hrt_FU.indexOf("5 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,6) />
	</cfif>
	
	<cfif Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
		<!---#1063-1064 --->
		<cfif Urinary_INcont_when_M0530 neq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Urinary_INcont_when_M0530,1) />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />	
		</cfif>
		
			<!---#1065-1066--->
		<cfif M1730_Depression neq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(HHA_Record_Data,1) />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />	
		</cfif>
		
		<cfif M1730_Depression.indexOf("1 -") neq "-1">
			<!---#1067-1068 --->
			<cfif M1730a.indexOf("NA -") eq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1730a,1) />
			</cfif>
			<cfif M1730a.indexOf("NA -") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
			</cfif>
			<cfif M1730a eq ''>
				<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
			</cfif>
			<!---#1069-1070 --->
			<cfif M1730b.indexOf("NA -") eq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1730b,1) />
			</cfif>
			<cfif M1730b.indexOf("NA -") neq "-1">
				<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
			</cfif>
			<cfif M1730b eq ''>
				<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
			</cfif>	
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
		</cfif>
		
		<!---#1071-1072 --->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Bathing_M0670,1) />
		
		<!---#1073-1074 M1840 --->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1840_Toilet,1) />
		
		<!---#1075-1076--->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M1845_Toilet,1) />
		
		<!---#1077-1078 M1850 --->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Transferring_M0690,1) />

		<!---#1079-1080 M1860 --->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Ambulation_M0700,1) />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,18) />
	</cfif>
	
	<!---#1081-1108 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,28) />
	
	<!---#1109-1110 M2004 --->
	<cfif M2004_Med_Int.indexOf("NA -") eq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2004_Med_Int,1) />
	</cfif>
	<cfif M2004_Med_Int.indexOf("NA -") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
	</cfif>
	<cfif M2004_Med_Int eq '' >
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	
	<!---#1111-1112 M2010 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	
	<!---#1113-1114 M2015 --->
	<cfif M2015_Drug_Edu.indexOf("NA -") eq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2015_Drug_Edu,1) />
	</cfif>
	<cfif M2015_Drug_Edu.indexOf("NA -") neq "-1" >
		<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
	</cfif>
	<cfif M2015_Drug_Edu eq '' >
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	
	<!---#1115-1118 M2020-30 --->
	<cfif Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
		<cfif Oral_Meds_M0780 neq ''>
			<cfif Oral_Meds_M0780.indexOf("NA -") neq "-1" >
				<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Oral_Meds_M0780,1) />
			</cfif>
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
		<cfif Oral_Meds_M0780 neq ''>
			<cfif Inject_Meds_M0800.indexOf("NA -") neq "-1" >
				<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
			<cfelse>
				<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Inject_Meds_M0800,1) />
			</cfif>
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
	</cfif>
	
	<!---#1119-1122 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,4) />
	
	<!---#1123-1138 M2100-2110 --->
	<cfif Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
		<!----#1123-1124 --->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100a_Equip,1) />
		
		<!--- #1125-1126 ---->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100b_Equip,1) />
		
		<!--- #1127-1128 ---->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100c_Equip,1) />
		
		<!--- #1129-1130 ---->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100d_Equip,1) />
		
		<!--- #1131-1132 ---->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100e_Equip,1) />
		
		<!--- #1133-1134 ---->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100f_Equip,1) />
		
		<!--- #1135-1136 ---->
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2100g_Equip,1) />
		
		<!---#1137-1138  --->
		<cfif M2110_Assist_Freq.indexOf("UK - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "UK" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2110_Assist_Freq,1) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,16) />
	</cfif>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,14) />
	
	<!---#1153-1154 M2300 --->
	<cfif Emergent_Care_M0830.indexOf("UK - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "UK" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Emergent_Care_M0830,1) />
	</cfif>
	

	<cfif Emergent_Care_M0830.indexOf("1 -") neq "-1" or Emergent_Care_M0830.indexOf("2 -") neq "-1">
	
		<!---#1155-1155 M2310 2--->
		<cfif Emergent_Care_Reason_M0840.indexOf("2 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1156-1156 M2310 3 --->
		<cfif Emergent_Care_Reason_M0840.indexOf("3 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1157-1157 M2310 4 --->
		<cfif Emergent_Care_Reason_M0840.indexOf("4 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1158-1158 M2310 5  --->
		<cfif Emergent_Care_Reason_M0840.indexOf("5 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1159-1159 M2310 6 --->
		<cfif Emergent_Care_Reason_M0840.indexOf("6 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1160-1160 M2310 7  --->
		<cfif Emergent_Care_Reason_M0840.indexOf("7 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1161-1161 M2310 8   --->
		<cfif Emergent_Care_Reason_M0840.indexOf("8 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1162-1162 M2310 9   --->
		<cfif Emergent_Care_Reason_M0840.indexOf("9 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1163-1163 M2310 11  --->
		<cfif Emergent_Care_Reason_M0840.indexOf("11 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1164-1164 M2310 12    --->
		<cfif Emergent_Care_Reason_M0840.indexOf("12 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1165-1165 M2310 13 --->
		<cfif Emergent_Care_Reason_M0840.indexOf("13 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1166-1166 M2310 14 --->
		<cfif Emergent_Care_Reason_M0840.indexOf("14 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1167-1167 M2310 15   --->
		<cfif Emergent_Care_Reason_M0840.indexOf("15 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1168-1168 M2310 16 --->
		<cfif Emergent_Care_Reason_M0840.indexOf("16 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1169-1169 M2310 17   --->
		<cfif Emergent_Care_Reason_M0840.indexOf("17 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1170-1170 M2310 18 --->
		<cfif Emergent_Care_Reason_M0840.indexOf("18 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1171-1171 M2310 19 --->
		<cfif Emergent_Care_Reason_M0840.indexOf("19 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,17) />
	</cfif>
		
	<!---#1172-1173 M2400 --->
	<cfif M2400a_Diabetic.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2400a_Diabetic,1) />
	</cfif>
	
	<!---#1174-1175 M2400 --->
	<cfif M2400b_FallsPrev.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2400b_FallsPrev,1) />
	</cfif>
	
	<!---#1176-1177 M2400 --->
	<cfif M2400c_Depress.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2400c_Depress,1) />
	</cfif>
	
	<!---#1178-1179 M2400 --->
	<cfif M2400d_Pain.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2400d_Pain,1) />
	</cfif>
	
	<!---#1180-1181 M2400 --->
	<cfif M2400e_PressUlc.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2400e_PressUlc,1) />
	</cfif>
	
	<!---#1182-1183 M2400 --->
	<cfif M2400f_PressUlcMoist.indexOf("NA - ") neq "-1">
		<cfset HHA_Record_Data = HHA_Record_Data & "NA" />
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(M2400f_PressUlcMoist,1) />
	</cfif>
	
	<!---#1184-1185 2420 --->
	<cfif Assessment_Reason_M0100.indexOf("9 - ") neq "-1">
		<cfif Discharge_Disposition_M0870 eq ''>
			<cfset HHA_Record_Data = HHA_Record_Data & "00" />
		</cfif>
		<cfif Discharge_Disposition_M0870.indexOf("UK - ") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "UK" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" & left(Discharge_Disposition_M0870,1) />
		</cfif>
	<cfelse>
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,2) />
	</cfif>
	
	<cfif (Assessment_Reason_M0100.indexOf("6") neq "-1" or Assessment_Reason_M0100.indexOf("7") neq "-1") and Inpatient_Facility_M0855.indexOf("1 -") neq "-1" >
	
		<!---#1186-1186 2430 --->
		<cfif Hospital_Reason_List_M0895.indexOf("2 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1187-1187 2430  --->
		<cfif Hospital_Reason_List_M0895.indexOf("3 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1188-1188 2430 --->
		<cfif Hospital_Reason_List_M0895.indexOf("4 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1189  --->
		<cfif Hospital_Reason_List_M0895.indexOf("5 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1190 --->
		<cfif Hospital_Reason_List_M0895.indexOf("6 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1191 --->
		<cfif Hospital_Reason_List_M0895.indexOf("7 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1192  --->
		<cfif Hospital_Reason_List_M0895.indexOf("8 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1193  --->
		<cfif Hospital_Reason_List_M0895.indexOf("9 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1194  --->
		<cfif Hospital_Reason_List_M0895.indexOf("11 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!---#1195  --->
		<cfif Hospital_Reason_List_M0895.indexOf("12 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1196  --->
		<cfif Hospital_Reason_List_M0895.indexOf("14 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1197  --->
		<cfif Hospital_Reason_List_M0895.indexOf("15 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1198  --->
		<cfif Hospital_Reason_List_M0895.indexOf("17 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1199   --->
		<cfif Hospital_Reason_List_M0895.indexOf("19 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1200  --->
		<cfif Hospital_Reason_List_M0895.indexOf("20 -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
		
		<!--- #1201  --->
		<cfif Hospital_Reason_List_M0895.indexOf("UK -") neq "-1">
			<cfset HHA_Record_Data = HHA_Record_Data & "1" />
		<cfelse>
			<cfset HHA_Record_Data = HHA_Record_Data & "0" />
		</cfif>
	<cfelse>
		<!---#1201 --->
		<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,16) />
	</cfif>
	
	<!---#1445 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,244) />
	
	<!---#1446 --->
	<cfset HHA_Record_Data = HHA_Record_Data & "%" />
<cfelse>
	<!---#Append Agency Use Filler to 1445 --->
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,577) />
	
	<!---#Append Data End to 1446 ---->
	<cfset HHA_Record_Data = HHA_Record_Data & "%" />
</cfif>
</cfif>

<!--=================================================================================================================================================		                                             	End Create Data Record thru 6, 7, 8, 9 869-END Datasets 
==================================================================================================================================================-->						

	<cfif len(HHA_Record_Data)	neq "1446">
		<cfquery name="update_Assessment" datasource="#Application.DataSrc#">
			update  #Request.prefix_db_agency#.Assessment_New Set Transmission_status='Errors in dataset'
			where Assessment_id='#Assessment_id#' 
		</cfquery>
		
		<cflocation url="../patientadmin_new/index.cfm?page=patient&cat=dataset_final&status=10" addtoken="no">
	<cfelse>	
		<cfset Transmission_status ="Corrected dataset locked and ready to transmit" />
		<cfif Assessment_Unlock_Reason eq "" or Assessment_Unlock_Reason eq "Local Need - (Not applicable if an assessment has been transmitted)" >
			<cfset Transmission_status ="Dataset locked and ready to transmit" />
		</cfif>
		<cfif DatasetType eq "CreateNewDataset" >
			<cfquery name="insertDatSet" datasource="#Application.DataSrc#">
			insert  IGNORE into #Request.prefix_db_agency#.Datasets (Assessment_Tracker_ID,Assessment_ID,Agency_Number,Patient_ID,HHA_Record_Data,Creation_Date,Rev_Number,
			Mask_req) values(#Assessment_Tracker_ID#,#Assessment_ID#,#Agency_Number#,#Patient_ID#,'#HHA_Record_Data#',now(),0,'#Mask_Required#')
			</cfquery>
			<cfquery name="update_Assessment" datasource="#Application.DataSrc#">
			update  #Request.prefix_db_agency#.Assessment_New Set Transmission_status='#Transmission_status#'
			where Assessment_id='#Assessment_id#' 
			</cfquery>
			<cfelseif DatasetType eq "RecreateNewDataset">
			<cfquery name="insertDatSet" datasource="#Application.DataSrc#">
			update #Request.prefix_db_agency#.Datasets  set HHA_Record_Data='#HHA_Record_Data#' where  Datasets_ID = 's3.Datasets_ID'
			</cfquery>
			<cfquery name="update_Assessment" datasource="#Application.DataSrc#">
			update  #Request.prefix_db_agency#.Assessment_New Set Transmission_status='#Transmission_status#'
			where Assessment_id='#Assessment_id#' 
			</cfquery>
		</cfif>
	</cfif>
	
	


</cfif>

<cfif CreateInactivationDatasets eq "1">
	<cfset gHHA_Record_Padding="" />
	<cfset temp=1 />
	<cfset HHA_Record_Data = "" />
	
	<cfloop from="1" to="2000" index="i">
			<cfset gHHA_Record_Padding= gHHA_Record_Padding & " " />
	</cfloop>
	<!---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 ="" />

<cfif Start_of_Care_M0030 neq "">
	<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 />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,8) />
</cfif>
<!---#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 18>
	<cfset HHA_Record_Data = HHA_Record_Data & UCase(Last_Name_M0040) & left(gHHA_Record_Padding,18-len(Last_Name_M0040)) />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & UCase(left(Last_Name_M0040,18)) />
</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 ="" />
<cfif DOB_M0066 neq "">
	<cfset DOB_M0066_Year = year(DOB_M0066) />
	<cfif month(DOB_M0066) lt 10 >
		<cfset DOB_M0066_Month = "0" & month(DOB_M0066) />
	<cfelse>
		<cfset DOB_M0066_Month = month(DOB_M0066) />
	</cfif>
	<cfif 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 />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,8) />
</cfif>
<!---#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 = "" />

<cfif Assessment_Completed_M0090 neq "">
	<cfset Assessment_Completed_M0090_Year = year(Assessment_Completed_M0090) />
	<cfif 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 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 />
<cfelse>
	<cfset HHA_Record_Data = HHA_Record_Data & left(gHHA_Record_Padding,8) />
</cfif>


<!---#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 = HHA_Record_Data & left(gHHA_Record_Padding,425) />




							<!---2.Perform Script [ “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">
	<cfif Date_Discharge_M0906 neq "">
		<cfset Date_Discharge_M0906_year = year(Date_Discharge_M0906) />
		<cfif month(Date_Discharge_M0906) 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>	
<cfelse>
	<cfset HHA_Record_Data= HHA_Record_Data & left(gHHA_Record_Padding,8) />
</cfif>


	


								<!---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 & "%" />


<cfset Transmission_status ="Inactivation request ready to transmit" />

	<cfif DatasetType eq "CreateInactivationDataset" >
		<cfquery name="insertDatSet" datasource="#Application.DataSrc#">
			insert into #Request.prefix_db_agency#.Datasets (Assessment_Tracker_ID,Assessment_ID,Agency_ID,Patient_ID,HHA_Record_Data,Creation_Date,Rev_Number,
			Mask_req) values(#Assessment_Tracker_ID#,#Assessment_ID#,#Agency_ID#,#Patient_ID#,'#HHA_Record_Data#',now(),0,0)
		</cfquery>
		
		<cfquery name="update_Assessment" datasource="#Application.DataSrc#">
			update  #Request.prefix_db_agency#.Assessment_New Set Transmission_status='#Transmission_status#'
			where Assessment_id='#Assessment_id#' 
		</cfquery>
		
	<cfelseif DatasetType eq "ReCreateInactivationDataset">
		<cfquery name="insertDatSet" datasource="#Application.DataSrc#">
			update #Request.prefix_db_agency#.Datasets  set HHA_Record_Data='#HHA_Record_Data#' where  Datasets_ID = 'Datasets_ID'
		</cfquery>
		
		<cfquery name="update_Assessment" datasource="#Application.DataSrc#">
			update  #Request.prefix_db_agency#.Assessment_New Set Transmission_status='#Transmission_status#'
			where Assessment_id='#Assessment_id#' 
		</cfquery>
		
	</cfif>		
</cfif>


<cfinclude template="Menu.cfc">
<table cellpadding="0" cellspacing="0" border="0" width="100%">
	<tr>
		<td valign="middle" 
		style="padding-left:7px; font-family:Tahoma; font-size:12px;color:ffffff; font-weight:bold; height:25px; background-color:999498">
			<cfoutput> 
			#getP.Last_Name#, #getP.First_Name# #getP.Middle# - Create Dataset
			</cfoutput> 
		</td>
	</tr> 
	<tr>
		<td height="15px">
		</td>
	</tr>
	<tr>
	<td valign="bottom" align="left" >
		<cfscript>
			pm = CreateObject("Component", "Menu");
			pm.MenuFunction('assessment',#GetP.Patient_Id#,#Session.CS.AssessmentID#,'','','');
		</cfscript>
	</td>
	</tr> 
	<tr>
		<td height="15px">
		</td>
	</tr>
</table>
 

<cfform  id="form1" >
<cftextarea type="text"   name="addr2" value="#HHA_Record_Data#"  rows="12" cols="100"></cftextarea>
	<cfinput type="text" name="count" value="#len(HHA_Record_Data)#" style="width:50px" >
	<br />
	<br />
</cfform>