<cfset M0150_Payment = #GetPayers.M0150# />
<cfset M2310 = #GetAssessment.F29# />
<cfset M0080_ASSESSOR_DISCIPLINE = #GetAssessment.F27# />
<cfset A2122 = #GetAssessment.F31# />
<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>

<cfparam name="M2310_ECR_MEDICATION" default="0">
<cfparam name="M2310_ECR_HYPOGLYC" default="0">
<cfparam name="M2310_ECR_OTHER" default="0">
<cfparam name="M2310_ECR_UNKNOWN" default="0">
<cfif M2310 contains '1. Improper medication administration'>
 	<cfset M2310_ECR_MEDICATION = 1 />
</cfif>
<cfif M2310 contains '10. Hypo/Hyperglycemia'>
 	<cfset M2310_ECR_HYPOGLYC = 1 />
</cfif>
<cfif M2310 contains '19. Other'>
 	<cfset M2310_ECR_OTHER = 1 />
</cfif>
<cfif M2310 contains 'UK Reason unknown'>
 	<cfset M2310_ECR_UNKNOWN = 1 />
</cfif>

    
<cfparam name="A2122A" default="0">
<cfparam name="A2122B" default="0">
<cfparam name="A2122C" default="0">
<cfparam name="A2122D" default="0">
<cfparam name="A2122E" default="0">

<cfif A2122 contains 'A. Electronic Health Record'>
 	<cfset A2122A = 1 />
</cfif>
<cfif A2122 contains 'B. Health Information Exchange Organization'>
 	<cfset A2122B = 1 />
</cfif>
<cfif A2122 contains 'C. Verbal (e.g., in-person, telephone, video conferencing)'>
 	<cfset A2122C = 1 />
</cfif>
<cfif A2122 contains 'D. Paper-based (e.g., fax, copies, printouts)'>
 	<cfset A2122D = 1 />
</cfif>
<cfif A2122 contains 'E. Other Methods (e.g., texting, email, CDs)'>
 	<cfset A2122E = 1 />
</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>0#Left(F26,1)#</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><cfif Left(F26,1) EQ 3> #DateFormat(M0030_START_CARE_DT,"yyyymmdd")#<cfelse>^</cfif></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>#DateFormat(F176,"yyyymmdd")#</M0090_INFO_COMPLETED_DT>
						<M0100_ASSMT_REASON>0#Left(F26,1)#</M0100_ASSMT_REASON>
                        <M0906_DC_TRAN_DTH_DT>#DateFormat(F181,"yyyymmdd")#</M0906_DC_TRAN_DTH_DT>    
                        <M2301_EMER_USE_AFTR_LAST_ASMT><cfif F46 contains 'UK'>UK<cfelse>0#Left(F46,1)#</cfif></M2301_EMER_USE_AFTR_LAST_ASMT>
                       <cfif F46 contains '0. No' or F46 contains 'UK'>   
						<M2310_ECR_MEDICATION>^</M2310_ECR_MEDICATION>
						<M2310_ECR_HYPOGLYC>^</M2310_ECR_HYPOGLYC>
						<M2310_ECR_OTHER>^</M2310_ECR_OTHER>
						<M2310_ECR_UNKNOWN>^</M2310_ECR_UNKNOWN>
                            <cfelse>
                        <M2310_ECR_MEDICATION>#M2310_ECR_MEDICATION#</M2310_ECR_MEDICATION>
						<M2310_ECR_HYPOGLYC>#M2310_ECR_HYPOGLYC#</M2310_ECR_HYPOGLYC>
						<M2310_ECR_OTHER>#M2310_ECR_OTHER#</M2310_ECR_OTHER>
						<M2310_ECR_UNKNOWN>#M2310_ECR_UNKNOWN#</M2310_ECR_UNKNOWN>
                        </cfif>
						<M2410_INPAT_FACILITY><cfif F43 contains 'NA '>NA<cfelse>0#Left(F43,1)#</cfif></M2410_INPAT_FACILITY>
					   	<cfif F43 contains '1' or F43 contains '2' or F43 contains '3' or F43 contains '4'>
                        <A2120>#Left(F30,1)#</A2120>
                        <cfif Left(F30,1) eq '2' or Left(F30,1) eq '0'>     
						<A2122A>^</A2122A>
						<A2122B>^</A2122B>
						<A2122C>^</A2122C>
						<A2122D>^</A2122D>
						<A2122E>^</A2122E>
                        <cfelse>
                        <A2122A>#A2122A#</A2122A>
						<A2122B>#A2122B#</A2122B>
						<A2122C>#A2122C#</A2122C>
						<A2122D>#A2122D#</A2122D>
						<A2122E>#A2122E#</A2122E>
                        </cfif>  
                        </cfif>
				        <J1800>#Left(F32,1)#</J1800>
                        <cfif F32 contains '1. Yes'>    
						<J1900A>#Left(F33,1)#</J1900A>
						<J1900B>#Left(F34,1)#</J1900B>
						<J1900C>#Left(F35,1)#</J1900C>
                        <cfelse>
                        <J1900A>^</J1900A>
						<J1900B>^</J1900B>
						<J1900C>^</J1900C>    
                        </cfif>    			
                        <M2005_MDCTN_INTRVTN><cfif F36 contains 'NA'>9<cfelse>#Left(F36,1)#</cfif></M2005_MDCTN_INTRVTN>
                            <cfif F176 contains '2025'or F176 contains '2026'><O0350><cfif Len(F37) GT 0>#Left(F37,1)#<cfelse>0</cfif></O0350></cfif> 
						<M1041_IN_INFLNZ_SEASON>#Left(F44,1)#</M1041_IN_INFLNZ_SEASON>
                            
						<M1046_INFLNZ_RECD_CRNT_SEASON><cfif F44 contains '0.'>^<cfelse>0#Left(F45,1)#</cfif></M1046_INFLNZ_RECD_CRNT_SEASON>
                        <M2401_INTRVTN_SMRY_FALL_PRVNT>01</M2401_INTRVTN_SMRY_FALL_PRVNT>    
                        <M2401_INTRVTN_SMRY_DPRSN><cfif Left(F39,1) eq 'N'>NA<cfelse>0#Left(F39,1)#</cfif></M2401_INTRVTN_SMRY_DPRSN>
						<M2401_INTRVTN_SMRY_PAIN_MNTR><cfif Left(F40,1) eq 'N'>NA<cfelse>0#Left(F40,1)#</cfif></M2401_INTRVTN_SMRY_PAIN_MNTR>
						<M2401_INTRVTN_SMRY_PRSULC_PRVN><cfif Left(F41,1) eq 'N'>NA<cfelse>0#Left(F41,1)#</cfif></M2401_INTRVTN_SMRY_PRSULC_PRVN>
						<M2401_INTRVTN_SMRY_PRSULC_WET><cfif Left(F42,1) eq 'N'>NA<cfelse>0#Left(F42,1)#</cfif></M2401_INTRVTN_SMRY_PRSULC_WET>
				  </ASSESSMENT>
			</cfsavecontent>

			<!--- --->
			<cfset xmlsdataset = #xmlFormat(xmldataset)#>
			<cfset dt = DateFormat(Now(), "yyyymmddhhmmss") />
			<cfset filenames = #session.AgencyId# & '_'& #Pt_Last#& '_' & #Pt_First# & #dt# &'_6_Trans.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>
--->