<cfset M0150_Payment = #GetPayers.M0150# />
<cfset M1000 = #GetAssessment.F30# />
<cfset A1250 = #GetAssessment.F32# />
<cfset A1005 = #GetAssessment.M0140_ETHNIC# />
<cfset M0080_ASSESSOR_DISCIPLINE = #GetAssessment.F27# />
<cfset M1740= #GetAssessment.F70#  />
<cfset M1028 = #GetAssessment.F142#  />
<cfset M1033 = #GetAssessment.F143#  />
<cfset O0110 = #GetAssessment.F221# />
<cfset GG0110 = #GetAssessment.F86# /> 
<cfset K0520 = #GetAssessment.F151# />
<cfset correctionNumXml = Right("0" & Val(Trim(GetAssessment.F264)), 2) /> 


<cfif M0080_ASSESSOR_DISCIPLINE EQ 'SN'>
	<cfset M0080 = '01' />
<cfelseif M0080_ASSESSOR_DISCIPLINE EQ 'PT'>
	<cfset M0080 = '02' />
<cfelseif M0080_ASSESSOR_DISCIPLINE EQ 'SLP/ST'>
	<cfset M0080 = '03' />
<cfelseif M0080_ASSESSOR_DISCIPLINE EQ 'OT'>
	<cfset M0080 = '04' />
</cfif>


<cfparam name="M0150_CPAY_NONE" default="0">
<cfparam name="M0150_CPAY_MCARE_FFS" default="0">
<cfparam name="M0150_CPAY_MCARE_HMO" default="0">
<cfparam name="M0150_CPAY_MCAID_FFS" default="0">
<cfparam name="M0150_CPAY_MCAID_HMO" default="0">
<cfparam name="M0150_CPAY_WRKCOMP" default="0">
<cfparam name="M0150_CPAY_TITLEPGMS" default="0">
<cfparam name="M0150_CPAY_OTH_GOVT" default="0">
<cfparam name="M0150_CPAY_PRIV_INS" default="0">
<cfparam name="M0150_CPAY_PRIV_HMO" default="0">
<cfparam name="M0150_CPAY_SELFPAY" default="0">
<cfparam name="M0150_CPAY_OTHER" default="0">
<cfparam name="M0150_CPAY_UK" default="0">

<cfif M0150_Payment contains '0. None; no charge for current services'>
 	<cfset M0150_CPAY_NONE = 1 />
</cfif>
<cfif M0150_Payment contains '1. Medicare (traditional fee-for-service)'>
 	<cfset M0150_CPAY_MCARE_FFS = 1 />
</cfif>
<cfif M0150_Payment contains '2. Medicare (HMO/managed care/Advantage plan)'>
 	<cfset M0150_CPAY_MCARE_HMO = 1 />
</cfif>
<cfif M0150_Payment contains '3. Medicaid (traditional fee-for-service)'>
 	<cfset M0150_CPAY_MCAID_FFS = 1 />
</cfif>
<cfif M0150_Payment contains '4. Medicaid (HMO/managed care)'>
 	<cfset M0150_CPAY_MCAID_HMO = 1 />
</cfif>
<cfif M0150_Payment contains "5. Workers' compensation">
 	<cfset M0150_CPAY_WRKCOMP = 1 />
</cfif>
<cfif M0150_Payment contains '6. Title programs (for example, Title III, V, or XX)'>
 	<cfset M0150_CPAY_TITLEPGMS = 1 />
</cfif>
<cfif M0150_Payment contains '7. Other government (for example, TriCare, VA)'>
 	<cfset M0150_CPAY_OTH_GOVT = 1 />
</cfif>
<cfif M0150_Payment contains '8. Private insurance'>
 	<cfset M0150_CPAY_PRIV_INS = 1 />
</cfif>
<cfif M0150_Payment contains '9. Private HMO/managed care'>
 	<cfset M0150_CPAY_PRIV_HMO = 1 />
</cfif>
<cfif M0150_Payment contains '10. Self-pay'>
 	<cfset M0150_CPAY_SELFPAY = 1 />
</cfif>
<cfif M0150_Payment contains '11. Other (specify)'>
 	<cfset M0150_CPAY_OTHER = 1 />
</cfif>
<cfif M0150_Payment contains 'UK. Unknown'>
 	<cfset M0150_CPAY_UK = 1 />
</cfif>


<cfset M1000_DC_LTC_14_DA = 0>
<cfset M1000_DC_SNF_14_DA = 0>
<cfset M1000_DC_IPPS_14_DA = 0>
<cfset M1000_DC_LTCH_14_DA = 0>
<cfset M1000_DC_IRF_14_DA = 0>
<cfset M1000_DC_PSYCH_14_DA = 0>
<cfset M1000_DC_OTH_14_DA = 0>
<cfset M1000_DC_NONE_14_DA = 0>

<cfif M1000 contains 'NA Patient was not discharged from an'>
 	<cfset M1000_DC_NONE_14_DA = 1 />
 	<cfset M1000_DC_LTC_14_DA = 0 />
 	<cfset M1000_DC_SNF_14_DA = 0 />
 	<cfset M1000_DC_IPPS_14_DA = 0 />
 	<cfset M1000_DC_LTCH_14_DA = 0 />
 	<cfset M1000_DC_IRF_14_DA = 0 />
 	<cfset M1000_DC_PSYCH_14_DA = 0 />
 	<cfset M1000_DC_OTH_14_DA = 0 />
<cfelse>
 	<cfif M1000 contains '1. Long-term nursing facility (NF)'>
 		<cfset M1000_DC_LTC_14_DA = 1 />
 	</cfif>
 	<cfif M1000 contains '2. Skilled nursing facility (SNF/TCU)'>
 		<cfset M1000_DC_SNF_14_DA = 1 />
 	</cfif>
 	<cfif M1000 contains '3. Short-stay acute hospital (IPPS)'>
 		<cfset M1000_DC_IPPS_14_DA = 1 />
 	</cfif>
 	<cfif M1000 contains '4. Long-term care hospital (LTCH)'>
 		<cfset M1000_DC_LTCH_14_DA = 1 />
 	</cfif>
 	<cfif M1000 contains '5. Inpatient rehabilitation hospital or unit (IRF)'>
 		<cfset M1000_DC_IRF_14_DA = 1 />
 	</cfif>
 	<cfif M1000 contains "6. Psychiatric hospital or unit">
 		<cfset M1000_DC_PSYCH_14_DA = 1 />
 	</cfif>
 	<cfif M1000 contains '7. '>
 		<cfset M1000_DC_OTH_14_DA = 1 />
 	</cfif>
</cfif>


<cfset A1005A = 0>
<cfset A1005B = 0>
<cfset A1005C = 0>
<cfset A1005D = 0>
<cfset A1005E = 0>
<cfset A1005X = 0>
<cfset A1005Y = 0>
    
<cfset A100 = '0' />
<cfif A1005 contains 'A. No, not of Hispanic, Latino/a, or Spanish origin'>
 	<cfset A1005A = 1 />
    <cfset A100 = A100 + 1 />
</cfif>
<cfif A1005 contains 'B. Yes, Mexican, Mexican American, Chicano/a'>
 	<cfset A1005B = 1 />
    <cfset A100 = A100 + 1 />
</cfif>
<cfif A1005 contains 'C. Yes, Puerto Rican'>
 	<cfset A1005C = 1 />
    <cfset A100 = A100 + 1 />
</cfif>
<cfif A1005 contains 'D. Yes, Cuban'>
 	<cfset A1005D = 1 />
    <cfset A100 = A100 + 1 />
</cfif>
<cfif A1005 contains 'E. Yes, Another Hispanic, Latino, or Spanish origin'>
 	<cfset A1005E = 1 />
    <cfset A100 = A100 + 1 />
</cfif>
<cfif A100 eq 0>    
<cfif A1005 contains 'X. Patient unable to respond'>
 	<cfset A1005X = 1 />
</cfif>
<cfif A1005 contains 'Y. Patient declines to respond'>
 	<cfset A1005Y = 1 />
</cfif>
</cfif>    


<cfset M1740_BD_MEM_DEFICIT = 0>
<cfset M1740_BD_IMP_DECISN = 0>
<cfset M1740_BD_VERBAL = 0>
<cfset M1740_BD_PHYSICAL = 0>
<cfset M1740_BD_SOC_INAPPRO = 0>
<cfset M1740_BD_DELUSIONS = 0>
<cfset M1740_BD_NONE = 0>


<cfif M1740 contains '1. Memory deficit: failure to recognize familiar persons/places, inability to recall events of past 24 hours, significant memory loss so that supervision is required'>
 	<cfset M1740_BD_MEM_DEFICIT = 1 />
</cfif>
<cfif M1740 contains '2. Impaired decision-making: failure to perform usual ADLs or IADLs, inability to appropriately stop activities, jeopardizes safety through actions'>
 	<cfset M1740_BD_IMP_DECISN = 1 />
</cfif>
<cfif M1740 contains '3. Verbal disruption: yelling, threatening, excessive profanity, sexual references, etc.'>
 	<cfset M1740_BD_VERBAL = 1 />
</cfif>
<cfif M1740 contains '4. Physical aggression: aggressive or combative to self and others (for example, hits self, throws objects, punches, dangerous maneuvers with wheelchair or other objects)'>
 	<cfset M1740_BD_PHYSICAL = 1 />
</cfif>
<cfif M1740 contains '5. Disruptive, infantile, or socially inappropriate behavior (excludes verbal actions)'>
 	<cfset M1740_BD_SOC_INAPPRO = 1 />
</cfif>
<cfif M1740 contains '6. Delusional, hallucinatory, or paranoid behavior'>
 	<cfset M1740_BD_DELUSIONS = 1 />
</cfif>
<cfif M1740 contains '7. None of the above behaviors demonstrated'>
 	<cfset M1740_BD_NONE = 1 />
</cfif>


<cfparam name="M1028_ACTV_DIAG_PVD_PAD" default="0">
<cfparam name="M1028_ACTV_DIAG_DM" default="0">
<cfparam name="M1028_ACTV_DIAG_NOA" default="0">

<cfif M1028 contains '1. Peripheral Vascular Disease (PVD) or Peripheral Arterial Disease (PAD)'>
 	 <cfset M1028_ACTV_DIAG_PVD_PAD = 1 />
</cfif>
<cfif M1028 contains '2. Diabetes Mellitus (DM)'>
 	<cfset M1028_ACTV_DIAG_DM = 1 />
</cfif>
<cfif (M1028_ACTV_DIAG_PVD_PAD eq 1 or M1028_ACTV_DIAG_DM eq 1)>
    <cfset M1028_ACTV_DIAG_NOA = 0 />
<cfelse>
 	<cfset M1028_ACTV_DIAG_NOA = 1 />
</cfif>

<cfset M1033_HOSP_RISK_HSTRY_FALLS = 0>
<cfset M1033_HOSP_RISK_WEIGHT_LOSS = 0>
<cfset M1033_HOSP_RISK_MLTPL_HOSPZTN = 0>
<cfset M1033_HOSP_RISK_MLTPL_ED_VISIT = 0>
<cfset M1033_HOSP_RISK_MNTL_BHV_DCLN = 0>
<cfset M1033_HOSP_RISK_COMPLIANCE = 0>
<cfset M1033_HOSP_RISK_5PLUS_MDCTN = 0>
<cfset M1033_HOSP_RISK_CRNT_EXHSTN = 0>
<cfset M1033_HOSP_RISK_OTHR_RISK = 0>
<cfset M1033_HOSP_RISK_NONE_ABOVE = 0>

<cfif M1033 contains '10. None of the above'>
 	 <cfset M1033_HOSP_RISK_NONE_ABOVE = 1 />
 	 <cfset M1033_HOSP_RISK_HSTRY_FALLS = 0 />
 	 <cfset M1033_HOSP_RISK_WEIGHT_LOSS = 0 />
 	 <cfset M1033_HOSP_RISK_MLTPL_HOSPZTN = 0 />
 	 <cfset M1033_HOSP_RISK_MLTPL_ED_VISIT = 0 />
 	 <cfset M1033_HOSP_RISK_MNTL_BHV_DCLN = 0 />
 	 <cfset M1033_HOSP_RISK_COMPLIANCE = 0 />
 	 <cfset M1033_HOSP_RISK_5PLUS_MDCTN = 0 />
 	 <cfset M1033_HOSP_RISK_CRNT_EXHSTN = 0 />
 	 <cfset M1033_HOSP_RISK_OTHR_RISK = 0 />
<cfelse>
 	 <cfif M1033 contains '1. History of falls (2 or more falls – or any fall with an injury – in the past 12 months)'>
 	 	 <cfset M1033_HOSP_RISK_HSTRY_FALLS = 1 />
 	 </cfif>
 	 <cfif M1033 contains '2. Unintentional weight loss of a total of 10 pounds or more in the past 12 months'>
 	 	 <cfset M1033_HOSP_RISK_WEIGHT_LOSS = 1 />
 	 </cfif>
 	 <cfif M1033 contains '3. Multiple hospitalizations (2 or more) in the past 6 months'>
 	 	 <cfset M1033_HOSP_RISK_MLTPL_HOSPZTN = 1 />
 	 </cfif>
 	 <cfif M1033 contains '4. Multiple emergency department visits (2 or more) in the past 6 months'>
 	 	 <cfset M1033_HOSP_RISK_MLTPL_ED_VISIT = 1 />
 	 </cfif>
 	 <cfif M1033 contains '5. Decline in mental, emotional, or behavioral status in the past 3 months'>
 	 	 <cfset M1033_HOSP_RISK_MNTL_BHV_DCLN = 1 />
 	 </cfif>
 	 <cfif M1033 contains '6. Reported or observed history of difficulty complying with any medical instructions (for example, medications, diet, exercise) in the past 3 months'>
 	 	 <cfset M1033_HOSP_RISK_COMPLIANCE = 1 />
 	 </cfif>
 	 <cfif M1033 contains '7. Currently taking 5 or more medications'>
 	 	 <cfset M1033_HOSP_RISK_5PLUS_MDCTN = 1 />
 	 </cfif>
 	 <cfif M1033 contains '8. Currently reports exhaustion'>
 	 	 <cfset M1033_HOSP_RISK_CRNT_EXHSTN = 1 />
 	 </cfif>
 	 <cfif M1033 contains '9. Other risk(s) not listed in 1- 8'>
 	 	 <cfset M1033_HOSP_RISK_OTHR_RISK = 1 />
 	 </cfif>
</cfif>


<cfset O0110A1a = 0>
<cfset O0110A2a = 0>
<cfset O0110A3a = 0>
<cfset O0110A10a = 0>
<cfset O0110B1a = 0>
<cfset O0110C1a = 0>
<cfset O0110C2a = 0>
<cfset O0110C3a = 0>
<cfset O0110C4a = 0>
<cfset O0110D1a = 0>
<cfset O0110D2a = 0>
<cfset O0110D3a = 0>
<cfset O0110E1a = 0>
<cfset O0110F1a = 0>
<cfset O0110G1a = 0>
<cfset O0110G2a = 0>
<cfset O0110G3a = 0>
<cfset O0110H1a = 0>
<cfset O0110H2a = 0>
<cfset O0110H3a = 0>
<cfset O0110H4a = 0>
<cfset O0110H10a = 0>
<cfset O0110I1a = 0>
<cfset O0110J1a = 0>
<cfset O0110J2a = 0>
<cfset O0110J3a = 0>
<cfset O0110O1a = 0>
<cfset O0110O2a = 0>
<cfset O0110O3a = 0>
<cfset O0110O4a = 0>
<cfset O0110Z1a = 0>
<cfif O0110 contains 'None of the above'>
 	 <cfset O0110Z1a = 1 />
 	 <cfset O0110A1a = 0 />
 	 <cfset O0110A2a = 0 />
 	 <cfset O0110A3a = 0 />
 	 <cfset O0110A10a = 0 />
 	 <cfset O0110B1a = 0 />
 	 <cfset O0110C1a = 0 />
 	 <cfset O0110C2a = 0 />
 	 <cfset O0110C3a = 0 />
 	 <cfset O0110C4a = 0 />
 	 <cfset O0110D1a = 0 />
 	 <cfset O0110D2a = 0 />
 	 <cfset O0110D3a = 0 />
 	 <cfset O0110E1a = 0 />
 	 <cfset O0110F1a = 0 />
 	 <cfset O0110G1a = 0 />
 	 <cfset O0110G2a = 0 />
 	 <cfset O0110G3a = 0 />
 	 <cfset O0110H1a = 0 />
 	 <cfset O0110H2a = 0 />
 	 <cfset O0110H3a = 0 />
 	 <cfset O0110H4a = 0 />
 	 <cfset O0110H10a = 0 />
 	 <cfset O0110I1a = 0 />
 	 <cfset O0110J1a = 0 />
 	 <cfset O0110J2a = 0 />
 	 <cfset O0110J3a = 0 />
 	 <cfset O0110O1a = 0 />
 	 <cfset O0110O2a = 0 />
 	 <cfset O0110O3a = 0 />
 	 <cfset O0110O4a = 0 />
<cfelse>
 	 <cfif O0110 contains 'Cancer Treatment: Chemotherapy'>
 	 	 <cfset O0110A1a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Chemotherapy IV'>
 	 	 <cfset O0110A2a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Chemotherapy Oral'>
 	 	 <cfset O0110A3a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Chemotherapy Other'>
 	 	 <cfset O0110A10a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Radiation'>
 	 	 <cfset O0110B1a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Oxygen Therapy'>
 	 	 <cfset O0110C1a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Oxygen Ther: Continuous'>
 	 	 <cfset O0110C2a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Oxygen Ther: Intermittent'>
 	 	 <cfset O0110C3a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Oxygen Ther: High-concentration'>
 	 	 <cfset O0110C4a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Resp Ther: Suctioning'>
 	 	 <cfset O0110D1a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Suctioning: Scheduled'>
 	 	 <cfset O0110D2a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Suctioning: As Needed'>
 	 	 <cfset O0110D3a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Resp Ther: Trach Care'>
 	 	 <cfset O0110E1a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Resp Ther: Invasive Mech Vent'>
 	 	 <cfset O0110F1a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Resp Ther: Non-Invas Mech Vent'>
 	 	 <cfset O0110G1a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Non-invasive Mech Vent: BiPAP'>
 	 	 <cfset O0110G2a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Non-invasive Mech Vent: CPAP'>
 	 	 <cfset O0110G3a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Other: IV Medications'>
 	 	 <cfset O0110H1a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'IV Med: Vasoactive medications'>
 	 	 <cfset O0110H2a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'IV Med: Antibiotics'>
 	 	 <cfset O0110H3a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'IV Med: Anticoagulation'>
 	 	 <cfset O0110H4a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'IV Med: Other'>
 	 	 <cfset O0110H10a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Other: Transfusions'>
 	 	 <cfset O0110I1a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Other: Dialysis'>
 	 	 <cfset O0110J1a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Dialysis: Hemodialysis'>
 	 	 <cfset O0110J2a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Dialysis: Peritoneal dialysis'>
 	 	 <cfset O0110J3a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'Other: IV Access'>
 	 	 <cfset O0110O1a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'IV Access: Peripheral'>
 	 	 <cfset O0110O2a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'IV Access: Midline'>
 	 	 <cfset O0110O3a = 1 />
 	 </cfif>
 	 <cfif O0110 contains 'IV Access: Central'>
 	 	 <cfset O0110O4a = 1 />
 	 </cfif>
</cfif>


<cfset GG0110A = 0>
<cfset GG0110B = 0>
<cfset GG0110C = 0>
<cfset GG0110D = 0>
<cfset GG0110E = 0>
<cfset GG0110Z = 0>

<cfif GG0110 contains 'Z. None of the above'>
 	 <cfset GG0110Z = 1 />
 	 <cfset GG0110A = 0 />
 	 <cfset GG0110B = 0 />
 	 <cfset GG0110C = 0 />
 	 <cfset GG0110D = 0 />
 	 <cfset GG0110E = 0 />
<cfelse>
 	 <cfif GG0110 contains 'A. Manual wheelchair'>
 	 	 <cfset GG0110A = 1 />
 	 </cfif>
 	 <cfif GG0110 contains 'B. Motorized wheelchair and/or scooter'>
 	 	 <cfset GG0110B = 1 />
 	 </cfif>
 	 <cfif GG0110 contains 'C. Mechanical lift'>
 	 	 <cfset GG0110C = 1 />
 	 </cfif>
 	 <cfif GG0110 contains 'D. Walker'>
 	 	 <cfset GG0110D = 1 />
 	 </cfif>
 	 <cfif GG0110 contains 'E. Orthotics/Prosthetics'>
 	 	 <cfset GG0110E = 1 />
 	 </cfif>
</cfif>

<!--- Ensure mutual exclusivity for "None of the above" on resumed data. --->
<cfif GG0110Z EQ 1>
	<cfset GG0110A = 0 />
	<cfset GG0110B = 0 />
	<cfset GG0110C = 0 />
	<cfset GG0110D = 0 />
	<cfset GG0110E = 0 />
<cfelse>
	<cfif (GG0110A EQ 1 OR GG0110B EQ 1 OR GG0110C EQ 1 OR GG0110D EQ 1 OR GG0110E EQ 1)>
		<cfset GG0110Z = 0 />
	</cfif>
</cfif>

<cfset K0520A = 0>
<cfset K0520B = 0>
<cfset K0520C = 0>
<cfset K0520D = 0>
<cfset K0520Z = 0>

<cfif K0520 contains 'Z. None of the above'>
 	 <cfset K0520Z = 1 />
 	 <cfset K0520A = 0 />
 	 <cfset K0520B = 0 />
 	 <cfset K0520C = 0 />
 	 <cfset K0520D = 0 />
<cfelse>
 	 <cfif K0520 contains 'A1. Parenteral'>
 	 	 <cfset K0520A = 1 />
 	 </cfif>
 	 <cfif K0520 contains 'B1. Feeding tube'>
 	 	 <cfset K0520B = 1 />
 	 </cfif>
 	 <cfif K0520 contains 'C1. Mechanically altered'>
 	 	 <cfset K0520C = 1 />
 	 </cfif>
 	 <cfif K0520 contains 'D1. Therapeutic diet'>
 	 	 <cfset K0520D = 1 />
 	 </cfif>
</cfif>
    

<!--- Ensure mutual exclusivity for "None of the above" on resumed data. --->
<cfif K0520Z EQ 1>
	<cfset K0520A = 0 />
	<cfset K0520B = 0 />
	<cfset K0520C = 0 />
	<cfset K0520D = 0 />
<cfelse>
	<cfif (K0520A EQ 1 OR K0520B EQ 1 OR K0520C EQ 1 OR K0520D EQ 1)>
		<cfset K0520Z = 0 />
	</cfif>
</cfif>

<div class="portlet box blue">
	<div class="portlet-title">
		<div class="caption">
			<i class="fa fa-gear"></i> Dataset creation for OASIS
		</div>
		<div class="tools">
			<a href="javascript:;" class="collapse"></a>
		</div>
	</div>		
	<div class="portlet-body">
		<cfif GetAssessment.recordcount gt 0> 
		 <cfoutput query ="GetAssessment">
             <cfset Pat_Last = LEFT(Pt_Last,18)>
			<cfsavecontent  variable="xmldataset"><?xml version="1.0" encoding="UTF-8"?>
					<ASSESSMENT>
						<ASMT_SYS_CD>OASIS</ASMT_SYS_CD>
						<TRANS_TYPE_CD><cfif structKeyExists(variables, "correctionNumXml") AND Val(Trim(correctionNumXml)) GT 0>2<cfelse>1</cfif></TRANS_TYPE_CD>
						<ITM_SBST_CD>03</ITM_SBST_CD>
						<ITM_SET_VRSN_CD><cfif F176 lt '2026-04-01'>E1-012025<cfelse>E2-042026</cfif></ITM_SET_VRSN_CD>
						<SPEC_VRSN_CD><cfif F176 lt '2026-04-01'>3.01<cfelse>3.02</cfif></SPEC_VRSN_CD>
						<CORRECTION_NUM><cfif structKeyExists(variables, "correctionNumXml") AND Val(Trim(correctionNumXml)) GT 0>#correctionNumXml#<cfelse>00</cfif></CORRECTION_NUM>
						<STATE_CD>#getTimeZone.Agency_State#</STATE_CD>
						<HHA_AGENCY_ID>#getTimeZone.Agency_Medicare_ID#</HHA_AGENCY_ID>
						<NATL_PRVDR_ID>#getTimeZone.Natl_Provider_ID#</NATL_PRVDR_ID>
						<SFW_ID>830423655</SFW_ID>
						<SFW_NAME>Home Care Business Services</SFW_NAME>
						<SFW_EMAIL_ADR>info@myhomecarebiz.com</SFW_EMAIL_ADR>
						<SFW_PROD_NAME>PowerPath</SFW_PROD_NAME>
						<SFW_PROD_VRSN_CD>1.0001</SFW_PROD_VRSN_CD>
						<ACY_DOC_CD>^</ACY_DOC_CD>
						<M0010_CCN>#getTimeZone.CMS_Cert_No#</M0010_CCN>
						<M0014_BRANCH_STATE>^</M0014_BRANCH_STATE>
						<M0016_BRANCH_ID>N</M0016_BRANCH_ID>
						<M0018_PHYSICIAN_ID><cfif len(GetPhy.Phys_NPI) gt 0>#GetPhy.Phys_NPI#<cfelse>^</cfif></M0018_PHYSICIAN_ID>
						<M0018_PHYSICIAN_UK><cfif len(GetPhy.Phys_NPI) gt 0>0<cfelse>1</cfif></M0018_PHYSICIAN_UK>
						<M0020_PAT_ID>#Pt_Agy_ID#</M0020_PAT_ID>
						<M0030_START_CARE_DT>#DateFormat(M0030_START_CARE_DT,"yyyymmdd")#</M0030_START_CARE_DT>
						<M0032_ROC_DT>#DateFormat(F176,"yyyymmdd")#</M0032_ROC_DT>
						<M0032_ROC_DT_NA><cfif Left(F26,1) EQ 3 AND len(M0030_START_CARE_DT) gt 0>0<cfelse>1</cfif></M0032_ROC_DT_NA>
						<M0040_PAT_FNAME><cfif len(Pt_First) gt 0>#LEFT(Pt_First,12)#<cfelse>^</cfif></M0040_PAT_FNAME>
						<M0040_PAT_MI><cfif #Pt_Middle# NEQ ''>#LEFT(Pt_Middle,1)#<cfelse>^</cfif></M0040_PAT_MI>
						<M0040_PAT_LNAME>#Trim(Replace(Pat_Last,'-','','all'))#</M0040_PAT_LNAME>
						<M0040_PAT_SUFFIX><cfif #Pt_Suffix# NEQ ''>#Trim(LEFT(Pt_Suffix,1))#<cfelse>^</cfif></M0040_PAT_SUFFIX>
						<M0050_PAT_ST>#Pt_State#</M0050_PAT_ST>
						<M0060_PAT_ZIP>#REReplace(Pt_Zip,"-","","ALL")#</M0060_PAT_ZIP>
						<M0063_MEDICARE_NUM>#M0063#</M0063_MEDICARE_NUM>
						<M0063_MEDICARE_NA><cfif M0063 EQ '^'>1<cfelse>0</cfif></M0063_MEDICARE_NA>
						<M0064_SSN><cfif len(Pt_SSN) gt 0 and left(Pt_SSN,3) NEQ '000'>#Replace(Pt_SSN,"-","","ALL")#<cfelse>^</cfif></M0064_SSN>
						<M0064_SSN_UK><cfif len(Pt_SSN) eq 0 or left(Pt_SSN,3) EQ '000'>1<cfelse>0</cfif></M0064_SSN_UK>
						<M0065_MEDICAID_NUM>#M0065#</M0065_MEDICAID_NUM>
						<M0065_MEDICAID_NA><cfif  M0065 EQ '^'>1<cfelse>0</cfif></M0065_MEDICAID_NA>
						<M0066_PAT_BIRTH_DT>#DateFormat(Pt_DOB,"yyyymmdd")#</M0066_PAT_BIRTH_DT>
						<cfif F176 lt '2026-04-01'><M0069_PAT_GENDER><cfif #Left(Pt_Gender,1)# EQ 'M'>1<cfelse>2</cfif></M0069_PAT_GENDER>
						<cfelse><A0810><cfif #Left(Pt_Gender,1)# EQ 'M'>1<cfelse>2</cfif></A0810></cfif>
						<M0150_CPAY_NONE>#M0150_CPAY_NONE#</M0150_CPAY_NONE>
						<M0150_CPAY_MCARE_FFS>#M0150_CPAY_MCARE_FFS#</M0150_CPAY_MCARE_FFS>
						<M0150_CPAY_MCARE_HMO>#M0150_CPAY_MCARE_HMO#</M0150_CPAY_MCARE_HMO>
						<M0150_CPAY_MCAID_FFS>#M0150_CPAY_MCAID_FFS#</M0150_CPAY_MCAID_FFS>
						<M0150_CPAY_MCAID_HMO>#M0150_CPAY_MCAID_HMO#</M0150_CPAY_MCAID_HMO>
						<M0150_CPAY_WRKCOMP>#M0150_CPAY_WRKCOMP#</M0150_CPAY_WRKCOMP>
						<M0150_CPAY_TITLEPGMS>#M0150_CPAY_TITLEPGMS#</M0150_CPAY_TITLEPGMS>
						<M0150_CPAY_OTH_GOVT>#M0150_CPAY_OTH_GOVT#</M0150_CPAY_OTH_GOVT>
						<M0150_CPAY_PRIV_INS>#M0150_CPAY_PRIV_INS#</M0150_CPAY_PRIV_INS>
						<M0150_CPAY_PRIV_HMO>#M0150_CPAY_PRIV_HMO#</M0150_CPAY_PRIV_HMO>
						<M0150_CPAY_SELFPAY>#M0150_CPAY_SELFPAY#</M0150_CPAY_SELFPAY>
						<M0150_CPAY_OTHER>#M0150_CPAY_OTHER#</M0150_CPAY_OTHER>
						<M0150_CPAY_UK>#M0150_CPAY_UK#</M0150_CPAY_UK>
						<M0080_ASSESSOR_DISCIPLINE>#M0080#</M0080_ASSESSOR_DISCIPLINE>
						<M0090_INFO_COMPLETED_DT><cfif F176 NEQ ''>#DateFormat(F176,"yyyymmdd")#<cfelse>^</cfif></M0090_INFO_COMPLETED_DT>
						<M0100_ASSMT_REASON>03</M0100_ASSMT_REASON>
						<M0102_PHYSN_ORDRD_SOCROC_DT><cfif Left(F26,1) EQ 3>#DateFormat(F176,"yyyymmdd")#<cfelse>^</cfif></M0102_PHYSN_ORDRD_SOCROC_DT>
						<M0102_PHYSN_ORDRD_SOCROC_DT_NA><cfif len(F176) gt 0>0<cfelse>1</cfif></M0102_PHYSN_ORDRD_SOCROC_DT_NA>
						<!---<M0104_PHYSN_RFRL_DT><cfif len(M0104_PHYSN_RFRL_DT) gt 0>#DateFormat(M0104_PHYSN_RFRL_DT,"yyyymmdd")#<cfelse>^</cfif></M0104_PHYSN_RFRL_DT>--->
                        <M0104_PHYSN_RFRL_DT><cfif len(F176) gt 0>^<cfelse>#DateFormat(F176,"yyyymmdd")#</cfif></M0104_PHYSN_RFRL_DT>
						<M0110_EPISODE_TIMING><cfif F29 contains 'UK-'>UK<cfelseif F29 contains 'NA-'>NA<cfelse>01</cfif></M0110_EPISODE_TIMING>
						<M1000_DC_LTC_14_DA>#M1000_DC_LTC_14_DA#</M1000_DC_LTC_14_DA>
						<M1000_DC_SNF_14_DA>#M1000_DC_SNF_14_DA#</M1000_DC_SNF_14_DA>
						<M1000_DC_IPPS_14_DA>#M1000_DC_IPPS_14_DA#</M1000_DC_IPPS_14_DA>
						<M1000_DC_LTCH_14_DA>#M1000_DC_LTCH_14_DA#</M1000_DC_LTCH_14_DA>
						<M1000_DC_IRF_14_DA>#M1000_DC_IRF_14_DA#</M1000_DC_IRF_14_DA>
						<M1000_DC_PSYCH_14_DA>#M1000_DC_PSYCH_14_DA#</M1000_DC_PSYCH_14_DA>
						<M1000_DC_OTH_14_DA>#M1000_DC_OTH_14_DA#</M1000_DC_OTH_14_DA>
						<M1000_DC_NONE_14_DA>#M1000_DC_NONE_14_DA#</M1000_DC_NONE_14_DA>
						<M1005_INP_DISCHARGE_DT><cfif M1000_DC_NONE_14_DA NEQ 1 and len(F181) gt 0>#DateFormat(F181,"yyyymmdd")#<cfelse>^</cfif></M1005_INP_DISCHARGE_DT>
                        <!---<M1005_INP_DSCHG_UNKNOWN><cfif len(F181) gt 0>0<cfelse>1</cfif></M1005_INP_DSCHG_UNKNOWN>--->
                        <M1005_INP_DSCHG_UNKNOWN><cfif M1000_DC_NONE_14_DA eq 1>^<cfelseif len(F181) eq 0>1<cfelse>0</cfif></M1005_INP_DSCHG_UNKNOWN>   
						<A1005A>#A1005A#</A1005A>
						<A1005B>#A1005B#</A1005B>
						<A1005C>#A1005C#</A1005C>
						<A1005D>#A1005D#</A1005D>
						<A1005E>#A1005E#</A1005E>
						<A1005X>#A1005X#</A1005X>
						<A1005Y>#A1005Y#</A1005Y>
						<A1010A>#A1010A#</A1010A>
						<A1010B>#A1010B#</A1010B>
						<A1010C>#A1010C#</A1010C>
						<A1010D>#A1010D#</A1010D>
						<A1010E>#A1010E#</A1010E>
						<A1010F>#A1010F#</A1010F>
						<A1010G>#A1010G#</A1010G>
						<A1010H>#A1010H#</A1010H>
						<A1010I>#A1010I#</A1010I>
						<A1010J>#A1010J#</A1010J>
						<A1010K>#A1010K#</A1010K>
						<A1010L>#A1010L#</A1010L>
						<A1010M>#A1010M#</A1010M>
						<A1010N>#A1010N#</A1010N>
						<A1010X>#A1010X#</A1010X>
						<A1010Y>#A1010Y#</A1010Y>
						<A1010Z>#A1010Z#</A1010Z>
						<B0200>#Left(F222,1)#</B0200>
						<B1000>#Left(F223,1)#</B1000>
						<A1110A><cfif len(Pt_language) gte 0 >#Trim(Pt_language)#<cfelse>0</cfif></A1110A>
						<A1110B>#Left(Interpreter,1)#</A1110B>
						<cfif F176 lt '2026-04-01'>
                       	<cfif A1250 contains 'A. Yes'><cfset A1250A = '1' /><cfelse><cfset A1250A = '0' /></cfif>
						<cfif A1250 contains 'B. Yes'>	<cfset A1250B = '1' /><cfelse><cfset A1250B = '0' /></cfif>
						<cfif A1250 contains 'C. No'><cfset A1250C = '1' /><cfelse><cfset A1250C = '0' /></cfif>
						<cfif A1250 contains 'X. Patient'><cfset A1250X = '1' /><cfelse><cfset A1250X = '0' /></cfif>
						<cfif A1250 contains 'Y. Patient'><cfset A1250Y = '1' /><cfelse><cfset A1250Y = '0' /></cfif>
						<cfelse>
						<cfif A1250 contains 'A. Yes'><cfset A1255 = '0' /></cfif>
						<cfif A1250 contains 'B. Yes'><cfset A1255 = '0' /></cfif>
						<cfif A1250 contains 'C. No'><cfset A1255 = '1' /></cfif>
						<cfif A1250 contains 'X. Patient'><cfset A1255 = '8' /></cfif>
						<cfif A1250 contains 'Y. Patient'><cfset A1255 = '9' /></cfif>
						</cfif>
						<cfif F176 lt '2026-04-01'>
						<A1250A>#A1250A#</A1250A>
					    <A1250B>#A1250B#</A1250B>
						<A1250C>#A1250C#</A1250C>
						<A1250X>#A1250X#</A1250X>
						<A1250Y>#A1250Y#</A1250Y>					
						<cfelse>
						<A1255>#A1255#</A1255>
						</cfif>
 						<B1300>#Left(F33,1)#</B1300>
						<M1700_COG_FUNCTION><cfif len(F34) gt 0 >0#Left(F34,1)#<cfelse>^</cfif></M1700_COG_FUNCTION>
						<M1710_WHEN_CONFUSED><cfif len(F35) gt 0 and left(F35,2) NEQ 'NA'>0#Left(F35,1)#<cfelse>NA</cfif></M1710_WHEN_CONFUSED>
						<M1720_WHEN_ANXIOUS><cfif len(F36) gt 0 and left(F36,2) NEQ 'NA'>0#Left(F36,1)#<cfelse>NA</cfif></M1720_WHEN_ANXIOUS>
                        <cfif F37 contains '0. No'>
                        <C0100>0</C0100>    
						<C0200>^</C0200>
						<C0300A>^</C0300A>
						<C0300B>^</C0300B>
						<C0300C>^</C0300C>
						<C0400A>^</C0400A>
						<C0400B>^</C0400B>
						<C0400C>^</C0400C>
						<C0500>^</C0500>
                        <C1310A>#Left(F46,1)#</C1310A>
						<C1310B>#Left(F47,1)#</C1310B>
						<C1310C>#Left(F48,1)#</C1310C>
						<C1310D>#Left(F49,1)#</C1310D>    
                        <cfelse>
                        <C0100>1</C0100>
                        <cfset C0500 = '0'>    
                        <C0200>#Left(F38,1)#<cfset C0500 = C0500 + Left(F38,1)></C0200>
						<C0300A>#Left(F39,1)#<cfset C0500 = C0500 + Left(F39,1)></C0300A>
						<C0300B>#Left(F40,1)#<cfset C0500 = C0500 + Left(F40,1)></C0300B>
						<C0300C>#Left(F41,1)#<cfset C0500 = C0500 + Left(F41,1)></C0300C>
						<C0400A>#Left(F42,1)#<cfset C0500 = C0500 + Left(F42,1)></C0400A>
						<C0400B>#Left(F43,1)#<cfset C0500 = C0500 + Left(F43,1)></C0400B>
						<C0400C>#Left(F44,1)#<cfset C0500 = C0500 + Left(F44,1)></C0400C>
						<C0500>#C0500#</C0500>
                        <C1310A>-</C1310A>
						<C1310B>-</C1310B>
						<C1310C>-</C1310C>
						<C1310D>-</C1310D>    
                        </cfif> 
                        <cfset carat = '0'>
                        <cfset D0160 = '0'>     
                        <D0150A1><cfif F50 contains '1'>1<cfset A1 = '1'><cfelse>0<cfset A1 = '0'></cfif></D0150A1>
                        <D0150A2><cfif A1 eq '0'>0<cfset A2 = '0'><cfelseif A1 eq '1'>#Left(F51,1)#<cfset A2 = Left(F51,1)><cfset D0160 = D0160 + Left(F51,1)><cfelse>^<cfset carat = carat + 1></cfif></D0150A2>
                        <D0150B1><cfif F52 contains '1'>1<cfset B1 = '1'><cfelse>0<cfset B1 = '0'></cfif></D0150B1>
                       	<D0150B2><cfif B1 eq '0'>0<cfset B2 = '0'><cfelseif B1 eq '1'>#Left(F53,1)#<cfset B2 = Left(F53,1)><cfset D0160 = D0160 + Left(F53,1)><cfelse>0<cfset carat = carat + 1></cfif></D0150B2>
                        <cfif (A2 eq '0' or A2 eq '1') AND (B2 eq '0' or B2 eq '1') >    
                        <D0150C1>^</D0150C1>
						<D0150C2>^</D0150C2>
						<D0150D1>^</D0150D1>
						<D0150D2>^</D0150D2>
						<D0150E1>^</D0150E1>
						<D0150E2>^</D0150E2>
						<D0150F1>^</D0150F1>
						<D0150F2>^</D0150F2>
						<D0150G1>^</D0150G1>
						<D0150G2>^</D0150G2>
						<D0150H1>^</D0150H1>
						<D0150H2>^</D0150H2>
						<D0150I1>^</D0150I1>
						<D0150I2>^</D0150I2>
                        <cfif (A1 eq '0' and B1 eq '0')>
                        <D0160>0</D0160>
                        <cfelse>
                        <D0160>#D0160#</D0160>
                        </cfif>
						<cfelse> 
                        <D0150C1>#Left(F54,1)#</D0150C1>
						<D0150C2><cfif F54 contains '0'>0<cfelseif F54 contains '1'>#Left(F55,1)#<cfset D0160 = D0160 + Left(F55,1)><cfelseif F54 contains '9'>^<cfset carat = carat + 1></cfif></D0150C2>
                        <D0150D1>#Left(F56,1)#</D0150D1>
                        <D0150D2><cfif F56 contains '0'>0<cfelseif F56 contains '1'>#Left(F57,1)#<cfset D0160 = D0160 + Left(F57,1)><cfelseif F56 contains '9'>^<cfset carat = carat + 1></cfif></D0150D2>   
                        <D0150E1>#Left(F58,1)#</D0150E1>
                        <D0150E2><cfif F58 contains '0'>0<cfelseif F58 contains '1'>#Left(F59,1)#<cfset D0160 = D0160 + Left(F59,1)><cfelseif F58 contains '9'>^<cfset carat = carat + 1></cfif></D0150E2>     
                        <D0150F1>#Left(F60,1)#</D0150F1>
                        <D0150F2><cfif F60 contains '0'>0<cfelseif F60 contains '1'>#Left(F61,1)#<cfset D0160 = D0160 + Left(F61,1)><cfelseif F60 contains '9'>^<cfset carat = carat + 1></cfif></D0150F2>       
                        <D0150G1>#Left(F62,1)#</D0150G1>
                        <D0150G2><cfif F62 contains '0'>0<cfelseif F62 contains '1'>#Left(F63,1)#<cfset D0160 = D0160 + Left(F63,1)><cfelseif F62 contains '9'>^<cfset carat = carat + 1></cfif></D0150G2>   
                        <D0150H1>#Left(F64,1)#</D0150H1>
                        <D0150H2><cfif F64 contains '0'>0<cfelseif F64 contains '1'>#Left(F65,1)#<cfset D0160 = D0160 + Left(F65,1)><cfelseif F64 contains '9'>^<cfset carat = carat + 1></cfif></D0150H2> 
                        <D0150I1>#Left(F66,1)#</D0150I1>
                        <D0150I2><cfif F66 contains '0'>0<cfelseif F66 contains '1'>#Left(F67,1)#<cfset D0160 = D0160 + Left(F67,1)><cfelseif F66 contains '9'>^<cfset carat = carat + 1></cfif></D0150I2>
                        <cfif carat eq 0><cfset D0160 = D0160></cfif>    
                        <cfif carat eq 1><cfset D0160 = D0160 * 1.125></cfif>    
                        <cfif carat eq 2><cfset D0160 = D0160 * 1.286></cfif>
                        <cfif carat gte 3><cfset D0160 = '99'></cfif>    
                        <D0160>#Round(D0160)#</D0160>
                        </cfif>
                       	<D0700><cfif len(F69) gt 0>#Left(F69,1)#<cfelse>^</cfif></D0700>
						<M1740_BD_MEM_DEFICIT>#M1740_BD_MEM_DEFICIT#</M1740_BD_MEM_DEFICIT>
						<M1740_BD_IMP_DECISN>#M1740_BD_IMP_DECISN#</M1740_BD_IMP_DECISN>
						<M1740_BD_VERBAL>#M1740_BD_VERBAL#</M1740_BD_VERBAL>
						<M1740_BD_PHYSICAL>#M1740_BD_PHYSICAL#</M1740_BD_PHYSICAL>
						<M1740_BD_SOC_INAPPRO>#M1740_BD_SOC_INAPPRO#</M1740_BD_SOC_INAPPRO>
						<M1740_BD_DELUSIONS>#M1740_BD_DELUSIONS#</M1740_BD_DELUSIONS>
						<M1740_BD_NONE>#M1740_BD_NONE#</M1740_BD_NONE>
						<M1745_BEH_PROB_FREQ><cfif len(F71) gt 0>0#Left(F71,1)#<cfelse>^</cfif></M1745_BEH_PROB_FREQ>
						<M1100_PTNT_LVG_STUTN><cfif Living contains 'PLACE' or Living eq '' or Living contains 'answer'>01<cfelseif #mid(Living,3,1)# eq '-'>0#Left(Living,1)#<cfelse>#Left(Living,2)#</cfif></M1100_PTNT_LVG_STUTN> 
						<M2102_CARE_TYPE_SRC_SPRVSN><cfif len(F72) gt 0>0#Left(F72,1)#<cfelse>^</cfif></M2102_CARE_TYPE_SRC_SPRVSN>
						<M1800_CRNT_GROOMING><cfif len(F74) gt 0>0#Left(F74,1)#<cfelse>^</cfif></M1800_CRNT_GROOMING>
						<M1810_CRNT_DRESS_UPPER><cfif len(F75) gt 0>0#Left(F75,1)#<cfelse>^</cfif></M1810_CRNT_DRESS_UPPER>
						<M1820_CRNT_DRESS_LOWER><cfif len(F76) gt 0>0#Left(F76,1)#<cfelse>^</cfif></M1820_CRNT_DRESS_LOWER>
						<M1830_CRNT_BATHG><cfif len(F77) gt 0>0#Left(F77,1)#<cfelse>^</cfif></M1830_CRNT_BATHG>
						<M1840_CRNT_TOILTG><cfif len(F78) gt 0>0#Left(F78,1)#<cfelse>^</cfif></M1840_CRNT_TOILTG>
						<M1845_CRNT_TOILTG_HYGN><cfif len(F79) gt 0>0#Left(F79,1)#<cfelse>^</cfif></M1845_CRNT_TOILTG_HYGN>
						<M1850_CRNT_TRNSFRNG><cfif len(F80) gt 0>0#Left(F80,1)#<cfelse>^</cfif></M1850_CRNT_TRNSFRNG>
						<M1860_CRNT_AMBLTN><cfif len(F81) gt 0>0#Left(F81,1)#<cfelse>^</cfif></M1860_CRNT_AMBLTN>
						<GG0170C_MOBILITY_SOCROC_PERF><cfif len(F105) eq 1>0#Left(F105,2)#<cfelseif len(F105) eq 2>#Left(F105,2)#<cfelse>09</cfif></GG0170C_MOBILITY_SOCROC_PERF>
						<GG0170C_MOBILITY_DSCHG_GOAL><cfif len(F106) eq 1>0#Left(F106,2)#<cfelseif len(F106) eq 2>#Left(F106,2)#<cfelse>09</cfif></GG0170C_MOBILITY_DSCHG_GOAL>
						<GG0100A><cfif len(F82) gt 0>#Left(F82,1)#<cfelse>^</cfif></GG0100A>
						<GG0100B><cfif len(F83) gt 0>#Left(F83,1)#<cfelse>^</cfif></GG0100B>
						<GG0100C><cfif len(F84) gt 0>#Left(F84,1)#<cfelse>^</cfif></GG0100C>
						<GG0100D><cfif len(F85) gt 0>#Left(F85,1)#<cfelse>^</cfif></GG0100D>
						<GG0110A>#GG0110A#</GG0110A>
						<GG0110B>#GG0110B#</GG0110B>
						<GG0110C>#GG0110C#</GG0110C>
						<GG0110D>#GG0110D#</GG0110D>
						<GG0110E>#GG0110E#</GG0110E>
						<GG0110Z>#GG0110Z#</GG0110Z>
                        <GG0130A1><cfif len(F87) gt 0>#Left(F87,2)#<cfelse>09</cfif></GG0130A1>    
						<GG0130A2><cfif len(F88) gt 0>#Left(F88,2)#<cfelse>09</cfif></GG0130A2>
						<GG0130B1><cfif len(F89) gt 0>#Left(F89,2)#<cfelse>09</cfif></GG0130B1>
						<GG0130B2><cfif len(F90) gt 0>#Left(F90,2)#<cfelse>09</cfif></GG0130B2>
						<GG0130C1><cfif len(F91) gt 0>#Left(F91,2)#<cfelse>09</cfif></GG0130C1>
						<GG0130C2><cfif len(F92) gt 0>#Left(F92,2)#<cfelse>09</cfif></GG0130C2>
						<GG0130E1><cfif len(F93) gt 0>#Left(F93,2)#<cfelse>09</cfif></GG0130E1>
						<GG0130E2><cfif len(F94) gt 0>#Left(F94,2)#<cfelse>09</cfif></GG0130E2>
						<GG0130F1><cfif len(F95) gt 0>#Left(F95,2)#<cfelse>09</cfif></GG0130F1>
						<GG0130F2><cfif len(F96) gt 0>#Left(F96,2)#<cfelse>09</cfif></GG0130F2>
						<GG0130G1><cfif len(F97) gt 0>#Left(F97,2)#<cfelse>09</cfif></GG0130G1>
						<GG0130G2><cfif len(F98) gt 0>#Left(F98,2)#<cfelse>09</cfif></GG0130G2>
						<GG0130H1><cfif len(F99) gt 0>#Left(F99,2)#<cfelse>09</cfif></GG0130H1>
						<GG0130H2><cfif len(F100) gt 0>#Left(F100,2)#<cfelse>09</cfif></GG0130H2>
						<GG0170A1><cfif len(F101) eq 1>0#Left(F101,2)#<cfelseif len(F101) eq 2>#Left(F101,2)#<cfelse>09</cfif></GG0170A1>
						<GG0170A2><cfif len(F102) eq 1>0#Left(F102,2)#<cfelseif len(F102) eq 2>#Left(F102,2)#<cfelse>09</cfif></GG0170A2>
						<GG0170B1><cfif len(F103) eq 1>0#Left(F103,2)#<cfelseif len(F103) eq 2>#Left(F103,2)#<cfelse>09</cfif></GG0170B1>
						<GG0170B2><cfif len(F104) eq 1>0#Left(F104,2)#<cfelseif len(F104) eq 2>#Left(F104,2)#<cfelse>09</cfif></GG0170B2>
						<GG0170D1><cfif len(F107) gt 0>#Left(F107,2)#<cfelse>09</cfif></GG0170D1>
						<GG0170D2><cfif len(F108) gt 0>#Left(F108,2)#<cfelse>09</cfif></GG0170D2>
						<GG0170E1><cfif len(F109) gt 0>#Left(F109,2)#<cfelse>09</cfif></GG0170E1>
						<GG0170E2><cfif len(F110) gt 0>#Left(F110,2)#<cfelse>09</cfif></GG0170E2>
						<GG0170F1><cfif len(F111) gt 0>#Left(F111,2)#<cfelse>09</cfif></GG0170F1>
						<GG0170F2><cfif len(F112) gt 0>#Left(F112,2)#<cfelse>09</cfif></GG0170F2>
						<GG0170G1><cfif len(F113) gt 0>#Left(F113,2)#<cfelse>09</cfif></GG0170G1>
						<GG0170G2><cfif len(F114) gt 0>#Left(F114,2)#<cfelse>09</cfif></GG0170G2>
						<GG0170I1><cfif len(F115) gt 0>#Left(F115,2)#<cfelse>09</cfif></GG0170I1>
						<GG0170I2><cfif len(F116) gt 0>#Left(F116,2)#<cfelse>09</cfif></GG0170I2>
                         <cfif F115 contains '9' or F115 contains '7' or F115 contains '10' or F115 contains '88' or F115 eq ''>   
						<GG0170J1>^</GG0170J1>
						<GG0170J2>-</GG0170J2>
						<GG0170K1>^</GG0170K1>
						<GG0170K2>-</GG0170K2>
						<GG0170L1>^</GG0170L1>
						<GG0170L2>-</GG0170L2>
                        <cfelse>
                        <GG0170J1><cfif len(F117) gt 0>#Left(F117,2)#<cfelse>09</cfif></GG0170J1>
						<GG0170J2><cfif len(F118) gt 0>#Left(F118,2)#<cfelse>09</cfif></GG0170J2>
						<GG0170K1><cfif len(F119) gt 0>#Left(F119,2)#<cfelse>09</cfif></GG0170K1>
						<GG0170K2><cfif len(F120) gt 0>#Left(F120,2)#<cfelse>09</cfif></GG0170K2>
						<GG0170L1><cfif len(F121) gt 0>#Left(F121,2)#<cfelse>09</cfif></GG0170L1>
						<GG0170L2><cfif len(F122) gt 0>#Left(F122,2)#<cfelse>09</cfif></GG0170L2>
                        </cfif> 
                        <GG0170M1><cfif len(F123) gt 0>#Left(F123,2)#<cfelse>09</cfif></GG0170M1>
						<GG0170M2><cfif len(F124) gt 0>#Left(F124,2)#<cfelse>09</cfif></GG0170M2>
                        <cfif F123 contains '07' or F123 contains '09' or F123 contains '10'  or F123 contains '88' or F123 eq ''>
                        <GG0170N1>^</GG0170N1>
                        <GG0170N2>-</GG0170N2>
                        <cfelse>    
						<GG0170N1><cfif len(F125) gt 0>#Left(F125,2)#<cfelse>09</cfif></GG0170N1>
						<GG0170N2><cfif len(F126) gt 0>#Left(F126,2)#<cfelse>09</cfif></GG0170N2>
                        </cfif>
                        <cfif F123 contains '07' or F123 contains '09' or F123 contains '10'  or F123 contains '88' or F123 eq ''or F125 contains '7' or F125 contains '9' or F125 contains '10' or F125 contains '88' or F125 eq ''>    
						<GG0170O1>^</GG0170O1>
						<GG0170O2>-</GG0170O2>
                        <cfelse>  
                        <GG0170O1><cfif len(F127) gt 0>#Left(F127,2)#<cfelse>09</cfif></GG0170O1>
						<GG0170O2><cfif len(F128) gt 0>#Left(F128,2)#<cfelse>09</cfif></GG0170O2>
                        </cfif>    
						<GG0170P1><cfif len(F129) gt 0>#Left(F129,2)#<cfelse>09</cfif></GG0170P1>
						<GG0170P2><cfif len(F130) gt 0>#Left(F130,2)#<cfelse>09</cfif></GG0170P2>
	        		    <GG0170Q1><cfif len(F131) gt 0>#Left(F131,1)#<cfelse>0</cfif></GG0170Q1>
                        <cfif F131 contains '0. No Skip to M1600' or len(F131) eq 0 >
						<GG0170R1>^</GG0170R1>
						<GG0170R2>^</GG0170R2>
						<GG0170RR1>^</GG0170RR1>
						<GG0170S1>^</GG0170S1>
						<GG0170S2>^</GG0170S2>
						<GG0170SS1>^</GG0170SS1>
                         <cfelse>
                        <GG0170R1><cfif len(F132) gt 0>#Left(F132,2)#<cfelse>09</cfif></GG0170R1>
						<GG0170R2><cfif len(F133) gt 0>#Left(F133,2)#<cfelse>09</cfif></GG0170R2>
						<GG0170RR1><cfif len(F134) gt 0>#Left(F134,1)#<cfelse>09</cfif></GG0170RR1>
						<GG0170S1><cfif len(F135) gt 0>#Left(F135,2)#<cfelse>09</cfif></GG0170S1>
						<GG0170S2><cfif len(F136) gt 0>#Left(F136,2)#<cfelse>09</cfif></GG0170S2>
						<GG0170SS1><cfif len(F137) gt 0>#Left(F137,1)#<cfelse>09</cfif></GG0170SS1>
                         </cfif>  
         			    <M1600_UTI><cfif F138 contains 'Patient on pro'>NA<cfelseif F138 contains 'UK Unknown'>UK<cfelse>0#Left(F138,1)#</cfif></M1600_UTI>
						<M1610_UR_INCONT><cfif len(F139) gt 0>0#Left(F139,1)#<cfelse>^</cfif></M1610_UR_INCONT>
						<M1620_BWL_INCONT><cfif F141 contains '1.' or F141 contains '2.'>NA<cfelseif F140 contains 'UK '>UK<cfelse>0#Left(F140,1)#</cfif></M1620_BWL_INCONT>
						<M1630_OSTOMY><cfif len(F141) gt 0>0#Left(F141,1)#<cfelse>^</cfif></M1630_OSTOMY> 
						<M1021_PRIMARY_DIAG_ICD>#ICD1#</M1021_PRIMARY_DIAG_ICD>
                    	<M1021_PRIMARY_DIAG_SEVERITY><cfif Left(ICD1,1) eq 'Z'>^<cfelse>#Severity1#</cfif></M1021_PRIMARY_DIAG_SEVERITY>
						<M1023_OTH_DIAG1_ICD>#ICD2#</M1023_OTH_DIAG1_ICD>
						<M1023_OTH_DIAG1_SEVERITY><cfif Left(ICD2,1) eq 'Z'>^<cfelse>#Severity2#</cfif></M1023_OTH_DIAG1_SEVERITY>
						<M1023_OTH_DIAG2_ICD>#ICD3#</M1023_OTH_DIAG2_ICD>
						<M1023_OTH_DIAG2_SEVERITY><cfif Left(ICD3,1) eq 'Z'>^<cfelse>#Severity3#</cfif></M1023_OTH_DIAG2_SEVERITY>
						<M1023_OTH_DIAG3_ICD>#ICD4#</M1023_OTH_DIAG3_ICD>
						<M1023_OTH_DIAG3_SEVERITY><cfif Left(ICD4,1) eq 'Z'>^<cfelse>#Severity4#</cfif></M1023_OTH_DIAG3_SEVERITY>
						<M1023_OTH_DIAG4_ICD>#ICD5#</M1023_OTH_DIAG4_ICD>
						<M1023_OTH_DIAG4_SEVERITY><cfif Left(ICD5,1) eq 'Z'>^<cfelse>#Severity5#</cfif></M1023_OTH_DIAG4_SEVERITY>
						<M1023_OTH_DIAG5_ICD>#ICD6#</M1023_OTH_DIAG5_ICD>
						<M1023_OTH_DIAG5_SEVERITY><cfif Left(ICD6,1) eq 'Z'>^<cfelse>#Severity6#</cfif></M1023_OTH_DIAG5_SEVERITY>
						<M1028_ACTV_DIAG_PVD_PAD>#M1028_ACTV_DIAG_PVD_PAD#</M1028_ACTV_DIAG_PVD_PAD>
						<M1028_ACTV_DIAG_DM>#M1028_ACTV_DIAG_DM#</M1028_ACTV_DIAG_DM>
						<M1028_ACTV_DIAG_NOA>#M1028_ACTV_DIAG_NOA#</M1028_ACTV_DIAG_NOA>
						<M1400_WHEN_DYSPNEIC><cfif len(F147) gt 0>0#Left(F147,1)#<cfelse>^</cfif></M1400_WHEN_DYSPNEIC>
						<M1033_HOSP_RISK_HSTRY_FALLS>#M1033_HOSP_RISK_HSTRY_FALLS#</M1033_HOSP_RISK_HSTRY_FALLS>
						<M1033_HOSP_RISK_WEIGHT_LOSS>#M1033_HOSP_RISK_WEIGHT_LOSS#</M1033_HOSP_RISK_WEIGHT_LOSS>
						<M1033_HOSP_RISK_MLTPL_HOSPZTN>#M1033_HOSP_RISK_MLTPL_HOSPZTN#</M1033_HOSP_RISK_MLTPL_HOSPZTN>
						<M1033_HOSP_RISK_MLTPL_ED_VISIT>#M1033_HOSP_RISK_MLTPL_ED_VISIT#</M1033_HOSP_RISK_MLTPL_ED_VISIT>
						<M1033_HOSP_RISK_MNTL_BHV_DCLN>#M1033_HOSP_RISK_MNTL_BHV_DCLN#</M1033_HOSP_RISK_MNTL_BHV_DCLN>
						<M1033_HOSP_RISK_COMPLIANCE>#M1033_HOSP_RISK_COMPLIANCE#</M1033_HOSP_RISK_COMPLIANCE>
						<M1033_HOSP_RISK_5PLUS_MDCTN>#M1033_HOSP_RISK_5PLUS_MDCTN#</M1033_HOSP_RISK_5PLUS_MDCTN>
						<M1033_HOSP_RISK_CRNT_EXHSTN>#M1033_HOSP_RISK_CRNT_EXHSTN#</M1033_HOSP_RISK_CRNT_EXHSTN>
						<M1033_HOSP_RISK_OTHR_RISK>#M1033_HOSP_RISK_OTHR_RISK#</M1033_HOSP_RISK_OTHR_RISK>
						<M1033_HOSP_RISK_NONE_ABOVE>#M1033_HOSP_RISK_NONE_ABOVE#</M1033_HOSP_RISK_NONE_ABOVE>
						<J0510><cfif len(F144) gt 0>#Left(F144,1)#<cfelse>^</cfif></J0510>
                        <cfif  F144 contains '0.'>    
						<J0520>^</J0520>
						<J0530>^</J0530>
                        <cfelse>
                         <J0520>#Left(F145,1)#</J0520>
						<J0530>#Left(F146,1)#</J0530>
                         </cfif>
						<M1870_CRNT_FEEDING><cfif len(F156) gt 0>0#Left(F156,1)#<cfelse>^</cfif></M1870_CRNT_FEEDING>
						<M1060_HEIGHT_A><cfif len(F149) gt 0>#F149#<cfelse>^</cfif></M1060_HEIGHT_A>
						<M1060_WEIGHT_B><cfif len(F150) gt 0>#F150#<cfelse>^</cfif></M1060_WEIGHT_B>
						<K0520A1>#K0520A#</K0520A1>
						<K0520B1>#K0520B#</K0520B1>
						<K0520C1>#K0520C#</K0520C1>
						<K0520D1>#K0520D#</K0520D1>
						<K0520Z1>#K0520Z#</K0520Z1>
						<M1306_UNHLD_STG2_PRSR_ULCR><cfif F157 EQ 'Yes'>1<cfelse>0</cfif></M1306_UNHLD_STG2_PRSR_ULCR>
                        <cfif F157 EQ 'Yes'>
                        <M1311_NBR_PRSULC_STG2_A1><cfif len(F158) gt 0>0#Left(F158,1)#<cfelse>00</cfif></M1311_NBR_PRSULC_STG2_A1>
						<M1311_NBR_PRSULC_STG3_B1><cfif len(F159) gt 0>0#Left(F159,1)#<cfelse>00</cfif></M1311_NBR_PRSULC_STG3_B1>
						<M1311_NBR_PRSULC_STG4_C1><cfif len(F160) gt 0>0#Left(F160,1)#<cfelse>00</cfif></M1311_NBR_PRSULC_STG4_C1>
						<M1311_NSTG_DRSG_D1><cfif len(F161) gt 0>0#Left(F161,1)#<cfelse>00</cfif></M1311_NSTG_DRSG_D1>
						<M1311_NSTG_CVRG_E1><cfif len(F162) gt 0>0#Left(F162,1)#<cfelse>00</cfif></M1311_NSTG_CVRG_E1>
						<M1311_NSTG_DEEP_TSUE_F1><cfif len(F163) gt 0>0#Left(F163,1)#<cfelse>00</cfif></M1311_NSTG_DEEP_TSUE_F1>
                        <cfelse>
                        <M1311_NBR_PRSULC_STG2_A1>^</M1311_NBR_PRSULC_STG2_A1>
						<M1311_NBR_PRSULC_STG3_B1>^</M1311_NBR_PRSULC_STG3_B1>
						<M1311_NBR_PRSULC_STG4_C1>^</M1311_NBR_PRSULC_STG4_C1>
						<M1311_NSTG_DRSG_D1>^</M1311_NSTG_DRSG_D1>
						<M1311_NSTG_CVRG_E1>^</M1311_NSTG_CVRG_E1>
						<M1311_NSTG_DEEP_TSUE_F1>^</M1311_NSTG_DEEP_TSUE_F1>    
                        </cfif>    
						<M1322_NBR_PRSULC_STG1><cfif len(F164) gt 0>0#Left(F164,1)#<cfelse>00</cfif></M1322_NBR_PRSULC_STG1>
                        <cfif (F157 EQ 'Yes' or F164 neq '0')>    
						<M1324_STG_PRBLM_ULCER><cfif Left(F165,2) EQ 'NA'>#Left(F165,2)#<cfelse>0#Left(F165,1)#</cfif></M1324_STG_PRBLM_ULCER>
                        <cfelse>  
                        <M1324_STG_PRBLM_ULCER>NA</M1324_STG_PRBLM_ULCER>
                        </cfif>
					    <M1330_STAS_ULCR_PRSNT>0#Left(F166,1)#</M1330_STAS_ULCR_PRSNT>    
						<M1332_NBR_STAS_ULCR><cfif F166 contains 'No'>^<cfelse>0#Left(F167,1)#</cfif></M1332_NBR_STAS_ULCR>    
						<M1334_STUS_PRBLM_STAS_ULCR><cfif F166 contains 'No'>^<cfelse>0#Left(F168,1)#</cfif></M1334_STUS_PRBLM_STAS_ULCR>    
						<M1340_SRGCL_WND_PRSNT>0#Left(F169,1)#</M1340_SRGCL_WND_PRSNT>
						<M1342_STUS_PRBLM_SRGCL_WND><cfif Left(F169,1) neq 0 and Left(F169,1) neq 2>0#Left(F170,1)#<cfelse>^</cfif></M1342_STUS_PRBLM_SRGCL_WND>
                        <M2001_DRUG_RGMN_RVW><cfif len(F201) gt 0>#Left(F201,1)#<cfelse>^</cfif></M2001_DRUG_RGMN_RVW>
						<cfif Left(F201,1) eq '9'>
						<M2003_MDCTN_FLWP>^</M2003_MDCTN_FLWP>
						<M2010_HIGH_RISK_DRUG_EDCTN>^</M2010_HIGH_RISK_DRUG_EDCTN>
						<M2020_CRNT_MGMT_ORAL_MDCTN>^</M2020_CRNT_MGMT_ORAL_MDCTN>
						<M2030_CRNT_MGMT_INJCTN_MDCTN>^</M2030_CRNT_MGMT_INJCTN_MDCTN>
						<cfelse>
						<M2003_MDCTN_FLWP><cfif F201 contains '1. Yes'>#Left(F202,1)#<cfelse>^</cfif></M2003_MDCTN_FLWP>    
						<M2010_HIGH_RISK_DRUG_EDCTN><cfif F203 contains 'NA –'>NA<cfelse>0#Left(F203,1)#</cfif></M2010_HIGH_RISK_DRUG_EDCTN>
						<M2020_CRNT_MGMT_ORAL_MDCTN><cfif F204 contains 'NA No'>NA<cfelse>0#Left(F204,1)#</cfif></M2020_CRNT_MGMT_ORAL_MDCTN>
						<M2030_CRNT_MGMT_INJCTN_MDCTN><cfif F205 contains 'NA No injectable'>NA<cfelse>0#Left(F205,1)#</cfif></M2030_CRNT_MGMT_INJCTN_MDCTN>
						</cfif>				
						<N0415A1><cfif len(F206) gt 0>#Left(F206,1)#<cfelse>0</cfif></N0415A1>
						<N0415A2><cfif F206 eq '' or F206 contains '0. No'>^<cfelse>#Left(F207,1)#</cfif></N0415A2>
						<N0415E1><cfif len(F208) gt 0>#Left(F208,1)#<cfelse>0</cfif></N0415E1>
						<N0415E2><cfif F208  eq '' or F208 contains '0. No'>^<cfelse>#Left(F209,1)#</cfif></N0415E2>
						<N0415F1><cfif len(F210) gt 0>#Left(F210,1)#<cfelse>0</cfif></N0415F1>
						<N0415F2><cfif F210  eq '' or F210 contains '0. No'>^<cfelse>#Left(F211,1)#</cfif></N0415F2>
						<N0415H1><cfif len(F212) gt 0>#Left(F212,1)#<cfelse>0</cfif></N0415H1>
						<N0415H2><cfif F212  eq '' or F212 contains '0. No'>^<cfelse>#Left(F213,1)#</cfif></N0415H2>
						<N0415I1><cfif len(F214) gt 0>#Left(F214,1)#<cfelse>0</cfif></N0415I1>
						<N0415I2><cfif F214  eq '' or F214 contains '0. No'>^<cfelse>#Left(F215,1)#</cfif></N0415I2>
						<N0415J1><cfif len(F216) gt 0>#Left(F216,1)#<cfelse>0</cfif></N0415J1>
						<N0415J2><cfif F216  eq '' or F216 contains '0. No'>^<cfelse>#Left(F217,1)#</cfif></N0415J2>
						<N0415Z1><cfif F206 eq '0. No' and F208 eq '0. No' and F210 eq '0. No' and F212 eq '0. No' and F214 eq '0. No' and F216 eq '0. No'>1<cfelse>0</cfif></N0415Z1>
					
						<M2200_THER_NEED_NBR><cfif len(F219) gt 0>00#Left(F219,1)#<cfelse>^</cfif></M2200_THER_NEED_NBR>
						<M2200_THER_NEED_NA><cfif len(F219) gt 0>0<cfelse>1</cfif></M2200_THER_NEED_NA>
                        <cfif O0110A2A eq '1' or O0110A3A eq '1' or O0110A10A eq '1'> 
						<O0110A1A>1</O0110A1A>
						<O0110A2A><cfif O0110A2a eq 1>1<cfelse>0</cfif></O0110A2A>
						<O0110A3A><cfif O0110A3a eq 1>1<cfelse>0</cfif></O0110A3A>
						<O0110A10A><cfif O0110A10a eq 1>1<cfelse>0</cfif></O0110A10A>
                        <cfelse>    
                        <O0110A1A>0</O0110A1A>
						<O0110A2A>0</O0110A2A>
						<O0110A3A>0</O0110A3A>
						<O0110A10A>0</O0110A10A>   
                            </cfif> 
						<O0110B1A><cfif len(O0110B1a) gt 0>#Left(O0110B1a,1)#<cfelse>^</cfif></O0110B1A>
                         <cfif O0110C2a eq 1 or O0110C3a eq 1 or O0110C4a eq 1>     
						<O0110C1A>1</O0110C1A>
						<O0110C2A><cfif len(O0110C2a) gt 0>#Left(O0110C2a,1)#<cfelse>^</cfif></O0110C2A>
						<O0110C3A><cfif len(O0110C3a) gt 0>#Left(O0110C3a,1)#<cfelse>^</cfif></O0110C3A>
						<O0110C4A><cfif len(O0110C4a) gt 0>#Left(O0110C4a,1)#<cfelse>^</cfif></O0110C4A>
                           <cfelse>
                        <O0110C1A>0</O0110C1A>
						<O0110C2A>0</O0110C2A>
						<O0110C3A>0</O0110C3A>
						<O0110C4A>0</O0110C4A>
                           </cfif>
                         <cfif O0110D2a eq 1 or O0110D3a eq 1>     
						<O0110D1A>1</O0110D1A>
						<O0110D2A><cfif len(O0110D2a) gt 0>#Left(O0110D2a,1)#<cfelse>^</cfif></O0110D2A>
						<O0110D3A><cfif len(O0110D3a) gt 0>#Left(O0110D3a,1)#<cfelse>^</cfif></O0110D3A>
                        <cfelse>
                        <O0110D1A>0</O0110D1A>
						<O0110D2A>0</O0110D2A>
						<O0110D3A>0</O0110D3A>
                           </cfif>  
						<O0110E1A><cfif len(O0110E1a) gt 0>#Left(O0110E1a,1)#<cfelse>^</cfif></O0110E1A>
						<O0110F1A><cfif len(O0110F1a) gt 0>#Left(O0110F1a,1)#<cfelse>^</cfif></O0110F1A>
                       
                        <cfif O0110G1a eq 1 or O0110G2a eq 1 or O0110G3a eq 1>       
						<O0110G1A>1</O0110G1A>
						<O0110G2A><cfif len(O0110G2a) gt 0>#Left(O0110G2a,1)#<cfelse>^</cfif></O0110G2A>
						<O0110G3A><cfif len(O0110G3a) gt 0>#Left(O0110G3a,1)#<cfelse>^</cfif></O0110G3A>
                        <cfelse>
                        <O0110G1A>0</O0110G1A>
						<O0110G2A>0</O0110G2A>
						<O0110G3A>0</O0110G3A>
                           </cfif>
                         <cfif O0110H1a eq 1 or O0110H2a eq 1 or O0110H3a eq 1 or O0110H4a eq 1 or O0110H10a eq 1>     
						<O0110H1A>1</O0110H1A>
						<O0110H2A><cfif O0110H2a eq 1>1<cfelse>0</cfif></O0110H2A>
						<O0110H3A><cfif O0110H3a eq 1>1<cfelse>0</cfif></O0110H3A>
						<O0110H4A><cfif O0110H4a eq 1>1<cfelse>0</cfif></O0110H4A>
						<O0110H10A><cfif O0110H10a eq 1>1<cfelse>0</cfif></O0110H10A>
                        <cfelse>    
                          <O0110H1A>0</O0110H1A>
						<O0110H2A>0</O0110H2A>
						<O0110H3A>0</O0110H3A>
						<O0110H4A>0</O0110H4A>
						<O0110H10A>0</O0110H10A>
                           </cfif>
                         <O0110I1A><cfif len(O0110I1a) gt 0>#Left(O0110I1a,1)#<cfelse>^</cfif></O0110I1A>
                         <cfif O0110J1a eq 1 or O0110J2a eq 1 or O0110J3a eq 1>    
						<O0110J1A>1</O0110J1A>
						<O0110J2A><cfif len(O0110J2a) gt 0>#Left(O0110J2a,1)#<cfelse>^</cfif></O0110J2A>
						<O0110J3A><cfif len(O0110J3a) gt 0>#Left(O0110J3a,1)#<cfelse>^</cfif></O0110J3A>
                          <cfelse>
                        <O0110J1A>0</O0110J1A>
						<O0110J2A>0</O0110J2A>
						<O0110J3A>0</O0110J3A>
                        </cfif> 
                        <cfif O0110O1a eq 1 or O0110O2a eq 1 or O0110O3a eq 1  or O0110O4a eq 1  >     
						<O0110O1A>1</O0110O1A>
						<O0110O2A><cfif len(O0110O2a) gt 0>#Left(O0110O2a,1)#<cfelse>^</cfif></O0110O2A>
						<O0110O3A><cfif len(O0110O3a) gt 0>#Left(O0110O3a,1)#<cfelse>^</cfif></O0110O3A>
						<O0110O4A><cfif len(O0110O4a) gt 0>#Left(O0110O4a,1)#<cfelse>^</cfif></O0110O4A>
                        <cfelse>
                        <O0110O1A>0</O0110O1A>
						<O0110O2A>0</O0110O2A>
						<O0110O3A>0</O0110O3A>
                        <O0110O4A>0</O0110O4A> 
                         </cfif>    
						<O0110Z1A>#O0110Z1a#</O0110Z1A>
                            
				  </ASSESSMENT>
			</cfsavecontent>

			<!--- --->
			<cfset xmlsdataset = #xmlFormat(xmldataset)#>
			<cfset dt = DateFormat(Now(), "yyyymmddhhmmss") />
			<cfset filenames = #session.AgencyId# & '_'& #Pt_Last#& '_' & #Pt_First# & #dt# &'_ROC.xml' />
			<cffile action="write" file="/var/www/xmlfilecreation/#filenames#" output="#xmldataset#">
			<cfif NOT structKeyExists(variables, "suppressDatasetDownload") OR NOT suppressDatasetDownload>
				<cfheader name="content-disposition" value="attachment; filename = #filenames#">
				<cfcontent type="text/xml; charset=utf-8" file="/var/www/xmlfilecreation/#filenames#">
			</cfif>
			</cfoutput>
		<cfelse>
			<h4>No data could be found based on your search criteria.</h4>
			<p>Please try again.</p>
		</cfif>
				<p><a href='index.cfm?page=dashboard&cat=dashboard&rpt=createdataset'>Click Here</a> go to Datasets Ready for Transmission Report.</p>
	</div>
</div> 

<!--- <A2121>0</A2121><A2120>0</A2120><A2122A>0</A2122A><A2122B>0</A2122B><A2122C>0</A2122C><A2122D>0</A2122D><A2122E>0</A2122E><A2123>0</A2123><A2124A>0</A2124A><A2124B>0</A2124B><A2124C>0</A2124C><A2124D>0</A2124D><A2124E>0</A2124E>
 

<M2310_ECR_MEDICATION>^</M2310_ECR_MEDICATION><M2310_ECR_HYPOGLYC>^</M2310_ECR_HYPOGLYC><M2310_ECR_OTHER>^</M2310_ECR_OTHER><M2310_ECR_UNKNOWN>^</M2310_ECR_UNKNOWN><M2410_INPAT_FACILITY>^</M2410_INPAT_FACILITY><M2420_DSCHRG_DISP>^</M2420_DSCHRG_DISP><M0906_DC_TRAN_DTH_DT>#DateFormat(F176,"yyyymmdd")#</M0906_DC_TRAN_DTH_DT><M2301_EMER_USE_AFTR_LAST_ASMT>^</M2301_EMER_USE_AFTR_LAST_ASMT>
--->