<cfcomponent  displayname="customer" output="false">	
<cfinclude template='/__Security-Block.cfm' />
<cfif not isdefined('session.cs.AssessmentId')>
 <cflocation url = '/?ai=0' addtoken = 'no' />
</cfif>
	<cffunction name="StartCareUPIN1" access="remote" returntype="string">	
	           <cfargument name="M0110" required="yes" hint="SOC Step 1">
			   <cfargument name="chknf" required="yes" hint="SOC Step 1">
			   <cfargument name="txtM1000" required="yes" hint="SOC Step 1">
			   <cfargument name="dtM1005" required="yes" shint="SOC Step 1">
			   <cfargument name="chuk" required="yes" hint="SOC Step 1">
			   <cfargument name="chkM1010Yes" required="yes" shint="SOC Step 1">
			    <cfargument name="M1010updateF" required="yes" hint="ot Step 1">
			   <cfargument name="Comments" required="yes" hint="SOC Step 1">			 
		      <cfset NF=replace(chknf,'!',',','All') />
			  
			  
			   <cfif isdefined('session.cs.AssessmentId')>
			 <cfquery name="team" datasource="#Application.DataSrc#">
			 <cfsetting requesttimeout="1000">
				
					UPDATE Assessment_New SET 
						M0110 = '#M0110#',
						Discharged_From_M0175 = '#NF#',
						M1000_Other = '#txtM1000#',
						Assessment_note='#Comments#',
						<cfif len(dtM1005) GT 0 >
						Inpatient_Discharge_Date_M0180 = #CreateODBCDate(dtM1005)#,	
						<cfelse>
						Inpatient_Discharge_Date_M0180 = NULL,
						</cfif>
						Inpatient_Discharge_Date_NA_M0180 = '#chuk#'					
					WHERE Assessment_ID = '#session.cs.AssessmentId#'

			   </cfquery>	
			   
			   <cfif #M1010updateF# NEQ "">	
	<cfif isdefined('session.cs.AssessmentId')>
					<cfquery name="Updaterowsempty" datasource="#Application.DataSrc#">
					update Assessment_New set HHRG_175_Score="",HHRG_230_Score="",HHRG_250_Score="",HHRG_390_Score="",HHRG_420_Score="",HHRG_440_Score="" where assessment_id=#session.cs.AssessmentId#
					</cfquery>
	</cfif>
<cfloop index="UpdateOrder" list ='#M1010updateF#' delimiters="!">
<cfset UpdateDx=0>
<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
<cfset UpdateDx=UpdateDx+1>
<cfif UpdateDx EQ 1>
<cfset UpdateID=#UpdateDescandSkill#>
</cfif>
<cfif UpdateDx EQ 2>
<cfset Order=#UpdateDescandSkill#>
</cfif>				 
</cfloop>	


<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
UPDATE Diagnosis SET Dx_Order = '#Order#' 
WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
</cfquery>

	<cfquery name="geticd" datasource="#Application.DataSrc#">
	select ICD from Diagnosis where assessment_id=#session.cs.AssessmentId# and Dx_Order = '#Order#'
	</cfquery>
	<cfif Order eq 1>
			<cfquery name="primary" datasource="#Application.DataSrc#">
			 update Assessment_New set HHRG_175_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
			</cfquery>
		<cfelseif Order eq 2>
			<cfquery name="secondary" datasource="#Application.DataSrc#">
			 update Assessment_New set HHRG_230_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
			</cfquery>
		<cfelseif Order eq 3>
			<cfquery name="third" datasource="#Application.DataSrc#">
			 update Assessment_New set HHRG_250_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
			</cfquery>
		<cfelseif Order eq 4>
			<cfquery name="fourth" datasource="#Application.DataSrc#">
			 update Assessment_New set HHRG_390_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
			</cfquery>
		<cfelseif Order eq 5>
			<cfquery name="fifth" datasource="#Application.DataSrc#">
			 update Assessment_New set HHRG_420_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
			</cfquery>
		<cfelseif Order eq 6>
			<cfquery name="sixth" datasource="#Application.DataSrc#">
			 update Assessment_New set HHRG_440_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
			</cfquery>
	 </cfif>
				 
<cfset UpdateDx=0> 
</cfloop>
</cfif>			
				 </cfif>			
			  <cfreturn 'step2'>
			
	</cffunction>
	
	<cffunction name="StartCareUPIN2" access="remote" returntype="string">
	    <cfargument name="chkM1012NA" required="yes" hint="SOC Step 2">
		<cfargument name="chkM1012UK" required="yes" hint="SOC Step 2">	
		<cfargument name="chkM1016NA" required="yes" hint="SOC Step 2">
		<cfargument name="M10160updateF" required="yes" hint="SOC Step 2">	
		<cfargument name="MupdateF" required="yes" hint="SOC Step 2">		
		<cfargument name="Comments" required="yes" hint="SOC Step 2">
		
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery name="team" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			
				UPDATE Assessment_New SET 
					M1012_Inpat_DX_NA = '#chkM1012NA#',
					M1012_Inpat_DX_UK = '#chkM1012UK#',
					Assessment_note='#Comments#',
					M1016_DX_NA = '#chkM1016NA#'										
				WHERE Assessment_ID = '#session.cs.AssessmentId#'

		</cfquery>
		<cfif #M10160updateF# NEQ "">		
<cfloop index="UpdateOrder" list ='#M10160updateF#' delimiters="!">
<cfset UpdateDx=0>
<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
<cfset UpdateDx=UpdateDx+1>
<cfif UpdateDx EQ 1>
<cfset UpdateID=#UpdateDescandSkill#>
</cfif>
<cfif UpdateDx EQ 2>
<cfset Order=#UpdateDescandSkill#>
</cfif>				 
</cfloop>	

<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
UPDATE Diagnosis SET Dx_Order = '#Order#' 
WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
</cfquery>				 
<cfset UpdateDx=0> 
</cfloop>
</cfif>		

<cfif #MupdateF# NEQ "">
<cfloop index="UpdateOrder" list ='#MupdateF#' delimiters="!">
<cfset UpdateDx=0>
<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
<cfset UpdateDx=UpdateDx+1>
<cfif UpdateDx EQ 1>
<cfset UpdateID=#UpdateDescandSkill#>
</cfif>
<cfif UpdateDx EQ 2>
<cfset Order=#UpdateDescandSkill#>
</cfif>				 
</cfloop>	
<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
UPDATE Diagnosis SET Dx_Order = '#Order#' 
WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
</cfquery>
<cfset UpdateDx=0> 
</cfloop>
</cfif>

</cfif>									  
		<cfreturn 'step3'>			
	</cffunction>
	
	
	
	<cffunction name="StartCareUPIN3" access="remote" returntype="string">
	            <cfargument name="urinary" required="yes" hint="SOC Step 3">
				<cfargument name="homeother" required="yes" hint="SOC Step 3">
				<cfargument name="txtHomeOther" required="yes" hint="SOC Step 3">
				<cfargument name="Comments" required="yes" hint="SOC Step 3">
				
				<cfset UN=replace(urinary,'!',',','All') />
				<!---<cfset HO=replace(homeother,'!',',','All') />--->
				<cfset HO=replace(txtHomeOther,'!',',','All') />
					<cfif isdefined('session.cs.AssessmentId')>
									
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">

						UPDATE Assessment_New SET 
							Conditions_Prior_M0220 = '#UN#',
							Assessment_note='#Comments#',
							Home_Safety_Assess = '#HO#'										
						WHERE Assessment_ID = '#session.cs.AssessmentId#'
					
			   </cfquery>
				</cfif>
							  
			   <cfreturn 'step4'>			
	</cffunction>
	
	
	<cffunction name="StartCareUPIN4" access="remote" returntype="string">
				<cfargument name="ChkOverweight" required="yes" hint="SOC Step 4">
				<cfargument name="ChkHyperglycemiFZaSleeping" required="yes" hint="SOC Step 4">
				<cfargument name="txtOverWeightOther" required="yes" hint="SOC Step 4">
				<cfargument name="txtEndocrineOther" required="yes" hint="SOC Step 4">
				<cfargument name="M0230updateF" required="yes" hint="SOC Step 4">
				<cfargument name="Comments" required="yes" hint="SOC Step 4">
				
				<!---<cfset CO=replace(ChkOverweight,'!',',','All') />--->
				<!---<cfset CFZ=replace(ChkHyperglycemiFZaSleeping,'!',',','All') />--->
				<cfset CO=replace(txtOverWeightOther,'!',',','All') />
				<cfset CFZ=replace(txtEndocrineOther,'!',',','All') />
				
					<cfif isdefined('session.cs.AssessmentId')>				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">

						UPDATE Assessment_New SET 
							M0250_Assess = '#CO#',
							Assessment_note='#Comments#',
							Endocrine_Assess = '#CFZ#'										
						WHERE Assessment_ID = '#session.cs.AssessmentId#'

			   </cfquery>
				   </cfif>		
		<cfset Id=''>  		
<cfset severity=''>
<cfset dxorder=''>
<cfset primary=''>
<cfset secondary=''>		   
				   <cfif #M0230updateF# NEQ "">
<cfloop index="First" list="#M0230updateF#" delimiters="!">
<cfset Secondcount=0>
<cfloop index="Second1" list="#First#" delimiters="-">
<cfset Secondcount=Secondcount+1>
<cfif Secondcount eq 1>
<cfset Id=#Second1#>
</cfif>
<cfif Secondcount eq 2>
<cfset severity=#Second1#>
</cfif>
<cfif Secondcount eq 3>
<cfset dxorder=#Second1#>
</cfif>
<cfif Secondcount eq 4>
<cfset primary=#Second1#>
</cfif>
<cfif Secondcount eq 5>
<cfset secondary=#Second1#>
</cfif>
</cfloop>


<cfoutput>
<cfquery name="M1020upd" datasource="#Application.DataSrc#">
UPDATE Diagnosis SET Severity='#severity#',Primary_Diagnosis='#primary#',Secondary_Diagnosis='#secondary#',
Dx_Order = '#dxorder#' where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#Id#	
</cfquery>
</cfoutput>

<cfset Secondcount=0>
<cfset Id=''>
<cfset severity=''>
<cfset dxorder=''>
<cfset primary=''>
<cfset secondary=''>

</cfloop>
</cfif>					  
			   <cfreturn 'step5'>			
	</cffunction>
	
	
	<cffunction name="StartCareUPIN5" access="remote" returntype="string">
				<cfargument name="ChkIntravenous" required="yes" hint="SOC Step 5">
				<cfargument name="ChkM1032Recent" required="yes" hint="SOC Step 5">
				<cfargument name="drpM1034" required="yes" hint="SOC Step 5">
				<cfargument name="ChkHeavysmoking" required="yes" hint="SOC Step 5">
				<cfargument name="Comments" required="yes" hint="SOC Step 5">
				
				<cfset CI=replace(ChkIntravenous,'!',',','All') />
				<cfset CR=replace(ChkM1032Recent,'!',',','All') />
				<cfset CHS=replace(ChkHeavysmoking,'!',',','All') />
				
				<cfif isdefined('session.cs.AssessmentId')>
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
					
						UPDATE Assessment_New SET 
							Therapies_Home_M0250 = '#CI#',
							M1032_Frailty = '#CR#',
							Rehab_Prognosis_M0270 = '#drpM1034#',
							Assessment_note='#Comments#',
							High_Risk_Factors_M0290 = '#CHS#'										
						WHERE Assessment_ID = '#session.cs.AssessmentId#'

			   </cfquery>
					</cfif>							  
				<cfreturn 'step6'>			
	</cffunction>
	
	
	<cffunction name="StartCareUPIN6" access="remote" returntype="string">
				<cfargument name="drpM1200" required="yes" hint="SOC Step 6">
				<cfargument name="drpM1210" required="yes" hint="SOC Step 6">
				<cfargument name="drpM1220" required="yes" hint="SOC Step 6">
				<cfargument name="drpM1230" required="yes" hint="SOC Step 6">
				<cfargument name="Comments" required="yes" hint="SOC Step 6">			
				
					<cfif isdefined('session.cs.AssessmentId')>				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">

						UPDATE Assessment_New SET 
							Vision_M0390 = '#drpM1200#',
							Hearing_M0400 = '#drpM1210#',
							M1220_Verbal_Under = '#drpM1220#',
							Assessment_note='#Comments#',
							Speech_M0410 = '#drpM1230#'										
						WHERE Assessment_ID = '#session.cs.AssessmentId#'

			   </cfquery>
					</cfif>							  
				<cfreturn 'step7'>			
	</cffunction>
	
	
	
	<cffunction name="StartCareUPIN7" access="remote" returntype="string">
				<cfargument name="Ono" required="yes" hint="SOC Step 7">
				<cfargument name="drpM1242" required="yes" hint="SOC Step 7">
				<cfargument name="color" required="yes" hint="SOC Step 7">
				<cfargument name="txtSkinOther" required="yes" hint="SOC Step 7">
				<cfargument name="Comments" required="yes" hint="SOC Step 7">
						
				<!---<cfset CO=replace(color,'!',',','All') />--->
				<cfset CO=replace(txtSkinOther,'!',',','All') />				

					<cfif isdefined('session.cs.AssessmentId')>				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">

						UPDATE Assessment_New SET 
							M1240_Pain_Assess = '#Ono#',
							Freq_of_Pain_M0420 = '#drpM1242#',
							Assessment_note='#Comments#',
							M0440_Assess = '#CO#'								
						WHERE Assessment_ID = '#session.cs.AssessmentId#'

			   </cfquery>
					</cfif>
												  
				<cfreturn 'step8'>			
	</cffunction>
	
	
	
	<cffunction name="StartCareUPIN8" access="remote" returntype="string">
				<cfargument name="drpM1300" required="yes" hint="SOC Step 8">
				<cfargument name="Opressure" required="yes" hint="SOC Step 8">
				<cfargument name="Ounhealed" required="yes" hint="SOC Step 8">
				<cfargument name="Comments" required="yes" hint="SOC Step 8">				
				
				<cfif isdefined('session.cs.AssessmentId')>
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
					
						UPDATE Assessment_New SET 
							M1300_Pressure = '#drpM1300#',
							M1302_Pressure = '#Opressure#',
							Assessment_note='#Comments#',
							M1306_Unhealed_Pressure = '#Ounhealed#'										
						WHERE Assessment_ID = '#session.cs.AssessmentId#'

			   </cfquery>
					</cfif>			   							  
			<cfreturn 'step9'>			
	</cffunction>	
	
	<cffunction name="StartCareUPIN9" access="remote" returntype="string">
				<cfargument name="drpStage2" required="yes" hint="SOC Step 9">
				<cfargument name="drpStage3" required="yes" hint="SOC Step 9">
				<cfargument name="drpStage4" required="yes" hint="SOC Step 9">
				<cfargument name="drpdlUnstage" required="yes" hint="SOC Step 9">
				<cfargument name="drpd2UnStage" required="yes" hint="SOC Step 9">
				<cfargument name="drpd3UnStage" required="yes" hint="SOC Step 9">
				<cfargument name="Comments" required="yes" hint="SOC Step 9">					

					<cfif isdefined('session.cs.AssessmentId')>				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">

						UPDATE Assessment_New SET 
							Pressure_Ulcer_b_M0450 = '#drpStage2#',
							Pressure_Ulcer_c_M0450 = '#drpStage3#',
							Pressure_Ulcer_d_M0450 = '#drpStage4#',
							Pressure_Ulcer_e_M0450 = '#drpdlUnstage#',
							M1308_d_2_Pressure = '#drpd2UnStage#',
							Assessment_note='#Comments#',
							M1308_d_3_Pressure = '#drpd3UnStage#'										
						WHERE Assessment_ID = '#session.cs.AssessmentId#'

			   </cfquery>
			   					</cfif>
							  
				<cfreturn 'step10'>			
	</cffunction>
	
	
	
	<cffunction name="StartCareUPIN10" access="remote" returntype="string">
				<cfargument name="drpdM1310Length" required="yes" hint="SOC Step 10">
				<cfargument name="drpdM1310" required="yes" hint="SOC Step 10">
				<cfargument name="drpdM1312Width" required="yes" hint="SOC Step 10">
				<cfargument name="drpdM1312" required="yes" hint="SOC Step 10">
				<cfargument name="drpdM1314Depth" required="yes" hint="SOC Step 10">
				<cfargument name="drpdM1314" required="yes" hint="SOC Step 10">
				<cfargument name="Oulcerpressure" required="yes" hint="SOC Step 10">
				<cfargument name="M0450" required="yes" hint="SOC Step 10">
				<cfargument name="M0460" required="yes" hint="SOC Step 10">	
				<cfargument name="Comments" required="yes" hint="SOC Step 10">				

					<cfif isdefined('session.cs.AssessmentId')>				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">

						UPDATE Assessment_New SET 
							M1310_Length = '#drpdM1310Length#',
							M1310_1 = '#drpdM1310#',
							M1312_Width = '#drpdM1312Width#',
							M1312_1 = '#drpdM1312#',
							M1314_Depth = '#drpdM1314Depth#',
							M1314_1 = '#drpdM1314#',					
							Pressure_Ulcer_Status_M0464 = '#Oulcerpressure#',
							Pressure_Ulcer_a_M0450 = '#M0450#',
							Assessment_note='#Comments#',
							Pressure_Ulcer_Stage_M0460 = '#M0460#'									
						WHERE Assessment_ID = '#session.cs.AssessmentId#'

			   </cfquery>
					</cfif>
												  
				<cfreturn 'step11'>			
	</cffunction>
	
	
	
	
	<cffunction name="StartCareUPIN11" access="remote" returntype="string">
				<cfargument name="drpM1330" required="yes" hint="SOC Step 11">
				<cfargument name="radzero" required="yes" hint="SOC Step 11">
				<cfargument name="radNewly" required="yes" hint="SOC Step 11">
				<cfargument name="drpM1340" required="yes" hint="SOC Step 11">
				<cfargument name="radSurgicalNewly" required="yes" hint="SOC Step 11">
				<cfargument name="radNo" required="yes" hint="SOC Step 11">
				<cfargument name="Comments" required="yes" hint="SOC Step 11">
							

					<cfif isdefined('session.cs.AssessmentId')>				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">

						UPDATE Assessment_New SET 
							Stasis_Ulcer_M0468 = '#drpM1330#',
							Stasis_Ulcer_Num_M0470 = '#radzero#',
							Stasis_Ulcer_Status_M0476 = '#radNewly#',
							Surgical_Wound_M0482 = '#drpM1340#',
							Surgical_Wound_Status_M0488 = '#radSurgicalNewly#',
							Assessment_note='#Comments#',
							M1350_Other_Wounds = '#radNo#'								
						WHERE Assessment_ID = '#session.cs.AssessmentId#'

			   </cfquery>
					</cfif>
												  
				<cfreturn 'step12'>			
	</cffunction>
	
	
	<cffunction name="StartCareUPIN12" access="remote" returntype="string">
				<cfargument name="radBreath" required="yes" hint="SOC Step 12">
				<cfargument name="chkOxygen" required="yes" hint="SOC Step 12">
				<cfargument name="chkDyspnea" required="yes" hint="SOC Step 12">
				<cfargument name="txtCardioOther" required="yes" hint="SOC Step 12">
				<cfargument name="Comments" required="yes" hint="SOC Step 12">
				
				<cfset CO=replace(chkOxygen,'!',',','All') />
				<cfset CD=replace(txtCardioOther,'!',',','All') />		
									
				
				<cfif isdefined('session.cs.AssessmentId')>
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
					
						UPDATE Assessment_New SET 
							Breathing_M0490 = '#radBreath#',
							Resp_Treatments_M0500 = '#CO#',
							Assessment_note='#Comments#',
							M0490_Assess = '#CD#'					
						WHERE Assessment_ID = '#session.cs.AssessmentId#'

			   </cfquery>
					</cfif>							  
				<cfreturn 'step13'>			
	</cffunction>
	
	
	<cffunction name="StartCareUPIN13" access="remote" returntype="string">
				<cfargument name="chkUrinecolor" required="yes" hint="SOC Step 13">
				<cfargument name="radM1600NO" required="yes" hint="SOC Step 13">
				<cfargument name="drpM1610" required="yes" hint="SOC Step 13">
				<cfargument name="radTimedvoiding" required="yes" hint="SOC Step 13">
				<cfargument name="chkBowelSound" required="yes" hint="SOC Step 13">
				<cfargument name="radVeryrarely" required="yes" hint="SOC Step 13">
				<cfargument name="chkFlatulence" required="yes" hint="SOC Step 13">
				<cfargument name="drpM1630" required="yes" hint="SOC Step 13">
				<cfargument name="txtUrineOther" required="yes" hint="SOC Step 13">
				<cfargument name="txtGasOther" required="yes" hint="SOC Step 13">
				<cfargument name="txtOstomyOther" required="yes" hint="SOC Step 13">
				<cfargument name="Comments" required="yes" hint="SOC Step 13">
				
				<cfset CUU=replace(txtUrineOther,'!',',','All') />
				<cfset CBB=replace(txtGasOther,'!',',','All') />	
				<cfset CFF=replace(txtOstomyOther,'!',',','All') />	
				
				<cfif isdefined('session.cs.AssessmentId')>
					<cfquery name="team" datasource="#Application.DataSrc#">
						<cfsetting requesttimeout="1000">
							UPDATE Assessment_New SET 
							M0520_Assess = '#CUU#',
							M0540_Assess = '#CBB#',
							M0550_Assess = '#CFF#',
							Urinary_INcont_M0520 = '#drpM1610#',
							Ostomy_for_Bowel_M0550 = '#drpM1630#',
							UTI_M0510 = '#radM1600NO#',
							Urinary_INcont_when_M0530 = '#radTimedvoiding#',
							Assessment_note='#Comments#',
							Bowel_Incont_M0540 = '#radVeryrarely#'										
							WHERE Assessment_ID = '#session.cs.AssessmentId#'
						</cfquery>			
				</cfif>				
							  
				<cfreturn 'step14'>			
	</cffunction>
	
	
	
	<cffunction name="StartCareUPIN14" access="remote" returntype="string">
				<cfargument name="drpM1700" required="yes" hint="SOC Step 14">
				<cfargument name="radM1710Never" required="yes" hint="SOC Step 14">
				<cfargument name="radM1720Never" required="yes" hint="SOC Step 14">
				<cfargument name="drpM1730" required="yes" hint="SOC Step 14">
				<cfargument name="radLittleNotatall" required="yes" hint="SOC Step 14">
				<cfargument name="radNotatall" required="yes" hint="SOC Step 14">
				<cfargument name="Comments" required="yes" hint="SOC Step 14">
				
					<cfif isdefined('session.cs.AssessmentId')>				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">

						UPDATE Assessment_New SET 
							Cog_Function_M0560 = '#drpM1700#',
							When_Confused_M0570 = '#radM1710Never#',
							When_Anxious_M0580 = '#radM1720Never#',
							M1730_Depression = '#drpM1730#',
							M1730a = '#radLittleNotatall#',
							Assessment_note='#Comments#',					
							M1730b = '#radNotatall#'					
						WHERE Assessment_ID = '#session.cs.AssessmentId#'

			   </cfquery>
					</cfif>							  
				<cfreturn 'step15'>			
	</cffunction>
	
	
	<cffunction name="StartCareUPIN15" access="remote" returntype="string">
				<cfargument name="chkPT" required="yes" hint="SOC Step 15">
				<cfargument name="chkMemory" required="yes" hint="SOC Step 15">
				<cfargument name="radM1745Never" required="yes" hint="SOC Step 15">
				<cfargument name="radM1750Never" required="yes" hint="SOC Step 15">
				<cfargument name="txtNeuroOther" required="yes" hint="SOC Step 15">
				<cfargument name="Comments" required="yes" hint="SOC Step 15">
				
				<cfset CP=replace(txtNeuroOther,'!',',','All') />
				<cfset CM=replace(chkMemory,'!',',','All') />	

					<cfif isdefined('session.cs.AssessmentId')>
				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
						UPDATE Assessment_New SET 
							M0610_Assess = '#CP#',
							Patient_Behav_Weekly_M0610 = '#CM#',
							Patient_Behav_freq_M0620 = '#radM1745Never#',
							Assessment_note='#Comments#',					
							Psy_Nursing_M0630 = '#radM1750Never#'					
						WHERE Assessment_ID = '#session.cs.AssessmentId#'
			   </cfquery>
			   					</cfif>

							  
				<cfreturn 'step16'>			
	</cffunction>
	
	
	<cffunction name="StartCareUPIN16" access="remote" returntype="string">
				<cfargument name="chkMusculoTemp" required="yes" hint="SOC Step 16">
				<cfargument name="drptug1" required="yes" hint="SOC Step 16">
				<cfargument name="drpM1800" required="yes" hint="SOC Step 16">
				<cfargument name="drpM1810" required="yes" hint="SOC Step 16">
				<cfargument name="drpM1820" required="yes" hint="SOC Step 16">
				<cfargument name="drpM1830" required="yes" hint="SOC Step 16">
				<cfargument name="drpM1840" required="yes" hint="SOC Step 16">
				<cfargument name="drpM1845" required="yes" hint="SOC Step 16">
				<cfargument name="txtMusOther" required="yes" hint="SOC Step 16">
				<cfargument name="Comments" required="yes" hint="SOC Step 16">
				
				<cfset CT=replace(txtMusOther,'!',',','All') />
				
					<cfif isdefined('session.cs.AssessmentId')>
				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
						UPDATE Assessment_New SET 
							M0650_Assess = '#CT#',
							Inhalant_Meds_M0790p = '#drptug1#',
							Grooming_M0640 = '#drpM1800#',					
							Dress_Upper_M0650 = '#drpM1810#',
							Dress_Lower_M0660 = '#drpM1820#',
							Bathing_M0670 = '#drpM1830#',
							M1840_Toilet = '#drpM1840#',
							Assessment_note='#Comments#',					
							M1845_Toilet = '#drpM1845#'										
						WHERE Assessment_ID = '#session.cs.AssessmentId#'
			   </cfquery>
					</cfif>
							  
				<cfreturn 'step17'>			
	</cffunction>
	
	
	
	<cffunction name="StartCareUPIN17" access="remote" returntype="string">				
				<cfargument name="drpM1850" required="yes" hint="SOC Step 17">
				<cfargument name="drptug1" required="yes" hint="SOC Step 17">
				<cfargument name="drpM1860" required="yes" hint="SOC Step 17">
				<cfargument name="drpM1870" required="yes" hint="SOC Step 17">
				<cfargument name="drpM1880" required="yes" hint="SOC Step 17">
				<cfargument name="drpM1890" required="yes" hint="SOC Step 17">
				<cfargument name="Comments" required="yes" hint="SOC Step 17">				

					<cfif isdefined('session.cs.AssessmentId')>
				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
						UPDATE Assessment_New SET 
							Transferring_M0690 = '#drpM1850#',
							Inhalant_Meds_M0790p = '#drptug1#',
							Ambulation_M0700 = '#drpM1860#',					
							Eating_M0710 = '#drpM1870#',
							Meal_Prep_M0720 = '#drpM1880#',
							Assessment_note='#Comments#',
							Use_Phone_M0770 = '#drpM1890#'									
						WHERE Assessment_ID = '#session.cs.AssessmentId#'
			   </cfquery>
					</cfif>
							  
			   <cfreturn 'step18'>			
	</cffunction>
	
	
	
	
	<cffunction name="StartCareUPIN18" access="remote" returntype="string">				
				<cfargument name="rdnSelf" required="yes" hint="SOC Step 18">
				<cfargument name="drptug1" required="yes" hint="SOC Step 18">
				<cfargument name="rdnAmbulation" required="yes" hint="SOC Step 18">
				<cfargument name="rdnTransfer" required="yes" hint="SOC Step 18">
				<cfargument name="rdnHouseHold" required="yes" hint="SOC Step 18">
				<cfargument name="rdnM1910" required="yes" hint="SOC Step 18">	
				<cfargument name="Comments" required="yes" hint="SOC Step 18">			

					<cfif isdefined('session.cs.AssessmentId')>
				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
						UPDATE Assessment_New SET 
							M1900a_SelfCare = '#rdnSelf#',
							Inhalant_Meds_M0790p = '#drptug1#',
							M1900b_Amb = '#rdnAmbulation#',					
							M1900c_Transfer = '#rdnTransfer#',
							M1900d_House = '#rdnHouseHold#',
							Assessment_note='#Comments#',
							M1910_Fall_Risk = '#rdnM1910#'									
						WHERE Assessment_ID = '#session.cs.AssessmentId#'
			   </cfquery>
					</cfif>
							  
			   <cfreturn 'step19'>			
	</cffunction>
	
	
	
	<cffunction name="StartCareUPIN19" access="remote" returntype="string">				
				<cfargument name="rdnM2000" required="yes" hint="SOC Step 19">
				<cfargument name="rdnM2002" required="yes" hint="SOC Step 19">
				<cfargument name="drpM2010" required="yes" hint="SOC Step 19">
				<cfargument name="drpM2020" required="yes" hint="SOC Step 19">
				<cfargument name="drpM2030" required="yes" hint="SOC Step 19">
				<cfargument name="rdnOral" required="yes" hint="SOC Step 19">	
				<cfargument name="rdnInject" required="yes" hint="SOC Step 19">
				<cfargument name="Comments" required="yes" hint="SOC Step 19">				

					<cfif isdefined('session.cs.AssessmentId')>
				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
						UPDATE Assessment_New SET 
							M2000_Adverse = '#rdnM2000#',
							M2002_Med_FU = '#rdnM2002#',
							M2010_Med_Edu = '#drpM2010#',					
							Oral_Meds_M0780 = '#drpM2020#',
							Inject_Meds_M0800 = '#drpM2030#',
							Oral_Meds_M0780p = '#rdnOral#',	
							Assessment_note='#Comments#',
							Inject_Meds_m0800p = '#rdnInject#'								
						WHERE Assessment_ID = '#session.cs.AssessmentId#'
			   </cfquery>
					</cfif>
							  
			   <cfreturn 'step20'>			
	</cffunction>
	
	
	
	
	<cffunction name="StartCareUPIN20" access="remote" returntype="string">				
				<cfargument name="rdnADL" required="yes" hint="SOC Step 20">
				<cfargument name="rdnIADL" required="yes" hint="SOC Step 20">
				<cfargument name="rdnMedAdmin" required="yes" hint="SOC Step 20">
				<cfargument name="rdnMedtreatment" required="yes" hint="SOC Step 20">
				<cfargument name="rdnEquipMgt" required="yes" hint="SOC Step 20">
				<cfargument name="rdnSupervision" required="yes" hint="SOC Step 20">	
				<cfargument name="rdnAdvocacy" required="yes" hint="SOC Step 20">
				<cfargument name="rdnM2110" required="yes" hint="SOC Step 20">	
				<cfargument name="Comments" required="yes" hint="SOC Step 20">				

					<cfif isdefined('session.cs.AssessmentId')>
				
				<cfquery name="team" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
						UPDATE Assessment_New SET 
							M2100a_Equip = '#rdnADL#',
							M2100b_Equip = '#rdnIADL#',
							M2100c_Equip = '#rdnMedAdmin#',					
							M2100d_Equip = '#rdnMedtreatment#',
							M2100e_Equip = '#rdnEquipMgt#',
							M2100f_Equip = '#rdnSupervision#',	
							M2100g_Equip = '#rdnAdvocacy#',	
							Assessment_note='#Comments#',
							M2110_Assist_Freq = '#rdnM2110#'							
						WHERE Assessment_ID = '#session.cs.AssessmentId#'
			   </cfquery>
					</cfif>
							  
			   <cfreturn 'step21'>			
	</cffunction>
	
	
	<cffunction name="StartCareUPIN21" access="remote" returntype="string">				
				<cfargument name="txtTher" required="yes" hint="SOC Step 21">
				<cfargument name="chkNA" required="yes" hint="SOC Step 21">
				<cfargument name="chkWait" required="yes" hint="SOC Step 21">
				<cfargument name="rdnSpecific" required="yes" hint="SOC Step 21">
				<cfargument name="rdnDiabetic" required="yes" hint="SOC Step 21">
				<cfargument name="rdnFalls" required="yes" hint="SOC Step 21">	
				<cfargument name="rdnDepression" required="yes" hint="SOC Step 21">
				<cfargument name="rdnPain" required="yes" hint="SOC Step 21">	
				<cfargument name="rdnPressure" required="yes" hint="SOC Step 21">
				<cfargument name="rdnMoist" required="yes" hint="SOC Step 21">
				<cfargument name="dateass" required="yes" hint="SOC Step 21">	
				<cfargument name="M1010update" required="yes" hint="SOC M1010 Diagnosis Update">
				<cfargument name="M1012update" required="yes" hint="SOC M1012 Diagnosis Update">
				<cfargument name="M1016update" required="yes" hint="SOC M1016 Diagnosis Update">
				<cfargument name="M0230update" required="yes" hint="SOC M0230 Diagnosis Update">
				<cfargument name="Comments" required="yes" hint="SOC Step 21">
				<cfargument name="notvalidation" required="yes" hint="SOC Step 21">
				
				
				
				<cfif isdefined('session.cs.AssessmentId')>
				
			<cfquery name="team" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">
					UPDATE Assessment_New SET 
						M2250a_PhysNot = '#rdnSpecific#',
						M2250b_Diabetic = '#rdnDiabetic#',
						M2250c_FallsPrev = '#rdnFalls#',
						M2250d_Depress = '#rdnDepression#',
						M2250e_Pain = '#rdnPain#',	
						M2250f_PressUlc = '#rdnPressure#',
						M2250g_PressUlcMoist = '#rdnMoist#',
						M0826_Ther_Need = '#txtTher#',
						Assessment_Completed_M0090 = #CreateODBCDate(dateass)#,
						Assessment_note='#Comments#',
						M0826_NA = '#chkNA#',
						<cfif #notvalidation# eq '0'>
						AssessmentType_New = 1,
						Admission_Status='Complete',
						</cfif>
						Waiting_For_Eval = '#chkWait#'													
					WHERE Assessment_ID = '#session.cs.AssessmentId#'
			   </cfquery>
				</cfif>
			
			
			   
			
			<cfif IsDefined("cookie.PathwayDescription")>
				<cfif cookie.PathwayDescription NEQ "">

				<cfif isdefined('session.cs.AssessmentId')>			
			<cfquery name="AssID" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">

					Select Assessment_Tracker_ID,Patient_ID,Agency_ID From Assessment_New 
					where Assessment_ID='#session.cs.AssessmentId#'

			</cfquery>			 	
							</cfif>
			<cfloop index="Description" list ='#cookie.PathwayDescription#' delimiters=",">
			
				 <cfset Skillcount=0>
				 <cfset Desc=''>
				 <cfset Skill=''>
				 <cfloop index="DescandSkill" list=#Description# delimiters="*~*">
				 <cfset Skillcount=Skillcount+1>
				 <cfif Skillcount EQ 1>
				 <cfset Desc=#DescandSkill#>
				 </cfif>
				 <cfif Skillcount EQ 2>
				 <cfset Skill=#DescandSkill#>
				 </cfif>		 
				 </cfloop>	 

					<cfif isdefined('session.cs.AssessmentId')>				 
				<cfquery name="InsertPathway" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">

						INSERT INTO Pathway_Details(Agency_ID,Patient_ID,Assessment_Tracker_ID,Assessment_ID,Skill,Description) 			               		    VALUES('#AssID.Agency_ID#','#AssID.Patient_ID#',
						'#AssID.Assessment_Tracker_ID#','#session.cs.AssessmentId#',
						'#Skill#','#Desc#') 

				 </cfquery>
				 					</cfif>
				 <cfset Skillcount=0> 
				 <cfset Desc=''>
				 <cfset Skill=''>
			</cfloop>
			</cfif>
			</cfif>
			
			
					
			<cfif M1010update NEQ "">	
			<cfif isdefined('session.cs.AssessmentId')>
				<cfquery name="Updaterowsempty" datasource="#Application.DataSrc#">
				update Assessment_New set HHRG_175_Score="",HHRG_230_Score="",HHRG_250_Score="",HHRG_390_Score="",HHRG_420_Score="",HHRG_440_Score="" where assessment_id=#session.cs.AssessmentId#
				</cfquery>
			</cfif>
			<cfloop index="UpdateOrder" list ='#M1010update#' delimiters="!">
			<cfset UpdateDx=0>
			<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
			<cfset UpdateDx=UpdateDx+1>
			<cfif UpdateDx EQ 1>
			<cfset UpdateID=#UpdateDescandSkill#>
			</cfif>
			<cfif UpdateDx EQ 2>
			<cfset Order=#UpdateDescandSkill#>
			</cfif>				 
			</cfloop>	
			
			<cfif isdefined('session.cs.AssessmentId')>
				<cfif IsNumeric(Order)> 
					<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
					<cfsetting requesttimeout="1000">
							UPDATE Diagnosis SET Dx_Order = '#Order#' 
							WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
					</cfquery>
				</cfif>
				<cfquery name="geticd" datasource="#Application.DataSrc#">
				select ICD from Diagnosis where assessment_id=#session.cs.AssessmentId# and Dx_Order = '#Order#'
				</cfquery>
				<cfif Order eq 1>
						<cfquery name="primary" datasource="#Application.DataSrc#">
						 update Assessment_New set HHRG_175_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
						</cfquery>
					<cfelseif Order eq 2>
						<cfquery name="secondary" datasource="#Application.DataSrc#">
						 update Assessment_New set HHRG_230_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
						</cfquery>
					<cfelseif Order eq 3>
						<cfquery name="third" datasource="#Application.DataSrc#">
						 update Assessment_New set HHRG_250_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
						</cfquery>
					<cfelseif Order eq 4>
						<cfquery name="fourth" datasource="#Application.DataSrc#">
						 update Assessment_New set HHRG_390_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
						</cfquery>
					<cfelseif Order eq 5>
						<cfquery name="fifth" datasource="#Application.DataSrc#">
						 update Assessment_New set HHRG_420_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
						</cfquery>
					<cfelseif Order eq 6>
						<cfquery name="sixth" datasource="#Application.DataSrc#">
						 update Assessment_New set HHRG_440_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
						</cfquery>
				 </cfif>
			</cfif>
			<cfset UpdateDx=0> 
			</cfloop>
			</cfif>
			
			
			<cfif M1012update NEQ "">
			<cfloop index="UpdateOrder" list ='#M1012update#' delimiters="!">
			<cfset UpdateDx=0>
			<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
			<cfset UpdateDx=UpdateDx+1>
			<cfif UpdateDx EQ 1>
			<cfset UpdateID=#UpdateDescandSkill#>
			</cfif>
			<cfif UpdateDx EQ 2>
			<cfset Order=#UpdateDescandSkill#>
			</cfif>				 
			</cfloop>	
			
			<cfif isdefined('session.cs.AssessmentId')>
				<cfif IsNumeric(Order)> 
					<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
					<cfsetting requesttimeout="1000">
						UPDATE Diagnosis SET Dx_Order = '#Order#' 
						WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
					</cfquery>
				</cfif>
			</cfif>
			
			<cfset UpdateDx=0> 
			</cfloop>
			</cfif>
			
			<cfif M1016update NEQ "">
			<cfloop index="UpdateOrder" list ='#M1016update#' delimiters="!">
			<cfset UpdateDx=0>
			<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
			<cfset UpdateDx=UpdateDx+1>
			<cfif UpdateDx EQ 1>
			<cfset UpdateID=#UpdateDescandSkill#>
			</cfif>
			<cfif UpdateDx EQ 2>
			<cfset Order=#UpdateDescandSkill#>
			</cfif>				 
			</cfloop>	


			<cfif isdefined('session.cs.AssessmentId')>
				<cfif IsNumeric(Order)> 
					<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
					<cfsetting requesttimeout="1000">
						UPDATE Diagnosis SET Dx_Order = '#Order#' 
						WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
					</cfquery>
				</cfif>
			</cfif>
			
			
			<cfset UpdateDx=0> 
			</cfloop>
			</cfif>
			
			
			<cfif M0230update NEQ "">
			<cfloop index="First" list="#M0230update#" delimiters="!">
			<cfset Secondcount=0>
			<cfset severity=''>
			<cfset dxorder=0>
			<cfset primary=0>
			<cfset secondary=0>
			
			<cfloop index="Second1" list="#First#" delimiters="-">
				<cfset Secondcount=Secondcount+1>
				<cfif Secondcount eq 1>
					<cfset Id=#Second1#>
				</cfif>
				<cfif Secondcount eq 2>
					<cfset severity=#Second1#>
				</cfif>
				<cfif Secondcount eq 3>
					<cfset dxorder=#Second1#>
				</cfif>
				<cfif Secondcount eq 4>
					<cfset primary=#Second1#>
				</cfif>
				<cfif Secondcount eq 5>
					<cfset secondary=#Second1#>
				</cfif>
			</cfloop>
			<cfif trim(primary) eq "no">
				<cfset primary = 0>
			</cfif>

			<cfif trim(secondary) eq "no">
				<cfset secondary = 0>
			</cfif>
			
			<cfoutput>
			<cfif isdefined('Id') and Id neq ''>
			
			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery name="M1020upd" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">
					UPDATE Diagnosis SET Severity='#severity#',Primary_Diagnosis='#primary#',Secondary_Diagnosis='#secondary#',
					Dx_Order = '#dxorder#' where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#Id#	
			
			</cfquery>
				</cfif>
			</cfif>
			</cfoutput>
			
			<cfset Secondcount=0>
			<cfset Id=''>
			<cfset severity=''>
			<cfset dxorder=0>
			<cfset primary=0>
			<cfset secondary=0>
			
			</cfloop>
			</cfif>
							  
		<cfreturn 'Final'>			
	</cffunction>
	
	
	<cffunction name="StartCareUPWound" access="remote" returntype="string">
			<cfargument name="wndtype" required="yes" hint="SOC Step Wound">
			<cfargument name="wndsurr" required="yes" hint="SOC Step Wound">
			<cfargument name="wndchar" required="yes" hint="SOC Step Wound">
			<cfargument name="location" required="yes" hint="SOC Step Wound">
			<cfargument name="stage" required="yes" hint="SOC Step Wound">
			<cfargument name="status" required="yes" hint="SOC Step Wound">
			<cfargument name="lengh1" required="yes" hint="SOC Step Wound">
			<cfargument name="lengh2" required="yes" hint="SOC Step Wound">
			<cfargument name="width1" required="yes" hint="SOC Step Wound">
			<cfargument name="width2" required="yes" hint="SOC Step Wound">
			<cfargument name="depth1" required="yes" hint="SOC Step Wound">
			<cfargument name="depth2" required="yes" hint="SOC Step Wound">
			<cfargument name="notes" required="yes" hint="SOC Step Wound">
			
			<cfset WS=replace(wndsurr,'!',',','All') />
			<cfset WC=replace(wndchar,'!',',','All') />
			
			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery name="InsertPathway" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">
				
					 INSERT INTO Pathway_Details(Agency_ID,Patient_ID,Assessment_ID,Description,Type,Skill,Care_PathWay) VALUES                      ('#session.AgencyId#','#session.cs.patientid#','#session.cs.AssessmentId#','#wndtype#','Wound','SSN','25')

			</cfquery>
							</cfif>
			<cfquery name="LastPath" datasource="#Application.DataSrc#">
					select LAST_INSERT_ID() as keyvalue
			</cfquery>   
				
				<cfif isdefined('session.cs.AssessmentId')>		          
		   <cfquery name="WoundForm1" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="1000">
		   		
				   insert into PatientVisitDetails
				    			(Wnd_Type,
								Wnd_Location,
								Wnd_Stage,
								Wnd_Status,
								Wnd_Len_1,
								Wnd_Len_2,
								Wnd_Wid_1,
								Wnd_Wid_2,
								Wnd_Dep_1,
								Wnd_Dep_2,
								Wnd_Surr_Tiss,
								Wnd_Chara,
								Notes,
								Agency_ID,
								Patient_ID,
								Assessment_ID,
								Record_Creation_Date,
								Pathway_Details_ID,
								Type)
								values('#wndtype#',
									   '#location#',
									   '#left(stage,100)#',
									   '#status#',
									   '#lengh1#',
									   '#lengh2#',
									   '#width1#',
									   '#width2#',
									   '#depth1#',
									   '#depth2#',
									   '#WS#',
									   '#WC#',
									   '#notes#',
									   '#session.AgencyId#',
									   '#session.cs.patientid#',
									   '#session.cs.AssessmentId#',
									   '#DateFormat(now(),"yyyy-mm-dd")#',
									   '#LastPath.keyvalue#',
									   'Wound')         

		   </cfquery>
					</cfif>                        		   
					<cfif isdefined('session.cs.AssessmentId')>
		   <cfquery name="ViewWnd" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="1000">
		   		
					SELECT count(Wnd_Type) as CouNt from PatientVisitDetails 
					where Patient_ID='#session.cs.patientid#' and Assessment_ID='#session.cs.AssessmentId#' 
					and Wnd_Location<>'' and Wnd_Type<>'' and trim(Type)='Wound'
				
		   </cfquery>
		   <cfoutput><cfset cookie.WoundCount='#ViewWnd.CouNt#'></cfoutput>
		   </cfif>
        <cfreturn 'Wound'>
     </cffunction>
	 
	 <cffunction  name="StartCareUPVital" access="remote" returntype="string">
			<cfargument name="AssTrackID" required="yes" hint="SOC Step AddVital">
			<cfargument name="Type" required="no" hint="SOC Step AddVital">
			<cfargument name="Reading" required="no" hint="SOC Step AddVital">
			<cfargument name="Severity" required="no" hint="SOC Step AddVital">
			<cfargument name="Notes" required="no" hint="SOC Step AddVital">
	   <cfset patientid= Val(Trim(#session.cs.patientid#))>
       <cfset AssessmentTrackerID= Val(Trim(#AssTrackID#))>
       <cfset AssessmentID= Val(Trim(#session.cs.AssessmentId#))>
	   
	    <!---<cfif isdefined('session.cs.AssessmentId')>	
	  <cfquery name="InsertPathwayvital" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">
				INSERT INTO Pathway_Details(Agency_ID,Patient_ID,Assessment_Tracker_ID,Assessment_ID,Description,Type,Record_Creation_Date,Created_By) VALUES ('#Session.AgencyLogin#','#patientid#','#AssessmentTrackerID#','#AssessmentID#','#Type#','vital sign','#DateFormat(now(),"yyyy-mm-dd")#','#session.EmployeeID#')
	   </cfquery>
	   </cfif>
		<cfquery name="LastPathvital" datasource="#Application.DataSrc#">
				select LAST_INSERT_ID() as keyvalue
		</cfquery>  --->
		<cfif isdefined('session.cs.AssessmentId')>		          
		   <cfquery name="patientaddvital" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="1000">
		   		
				 INSERT INTO PatientVisitDetails(ScheduleItems_ID,Description,Agency_ID,
Patient_ID,Assessment_ID,Assessment_Tracker_ID,Record_Creation_Date,Type,Notes,Reading1<cfif isdefined('Severity')>,Severity</cfif>) VALUES ('#session.cs.ScheduleId#','#Type#','#Session.AgencyLogin#','#patientid#','#AssessmentID#','#AssessmentTrackerID#','#DateFormat(now(),"yyyy-mm-dd")#','vital sign','#Notes#','#Reading#'<cfif isdefined('Severity')>,'#Severity#'</cfif>)
		   </cfquery>
					</cfif>
					<cfquery name="patientaddvital1" datasource="#Application.DataSrc#">
					select LAST_INSERT_ID() as keyvalue
			     </cfquery>  
			
		<cfreturn 'AddVital'>
    </cffunction>
	 
	 
	 


	 <cffunction  name="StartCareUPPain" access="remote" returntype="string">
		<cfargument name="painlevel" required="yes" hint="SOC Step Pain">
		<cfargument name="chkthrobbing" required="yes" hint="SOC Step Pain">
		<cfargument name="radthreshold" required="yes" hint="SOC Step Pain">
		<cfargument name="radscale" required="yes" hint="SOC Step Pain">
		<cfargument name="raddose" required="yes" hint="SOC Step Pain">
		<cfargument name="chkphysical" required="yes" hint="SOC Step Pain">
		
		<cfset TB=replace(chkthrobbing,'!',',','All') />
		<cfset PC=replace(chkphysical,'!',',','All') />
			
		<cfif isdefined('session.cs.AssessmentId')>		
		<cfquery name="PainForm" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			
				  UPDATE Assessment_New SET
				  M0420_Assess='#painlevel#',
				  Pain1='#TB#',
				  Pain2='#radthreshold#',
				  Pain3='#radscale#',
				  Pain4='#raddose#',
				  Pain5='#PC#'
				  Where Assessment_New.Assessment_ID= '#session.cs.AssessmentId#'

		 </cfquery>
			</cfif>       
    <cfreturn 'Pain'>
    </cffunction>
	
	
	<cffunction  name="StartCareUPRisk" access="remote" returntype="string">
			<cfargument name="drlPresureUlcersSensory" required="yes" hint="SOC Step Risk">
			<cfargument name="drlPresureUlcersMoisture" required="yes" hint="SOC Step Risk">
			<cfargument name="drlPresureUlcersActivity" required="yes" hint="SOC Step Risk">
			<cfargument name="drlPresureUlcersMobility" required="yes" hint="SOC Step Risk">
			<cfargument name="drlPresureUlcersNutrition" required="yes" hint="SOC Step Risk">
			<cfargument name="drlPresureUlcersFriction" required="yes" hint="SOC Step Risk">
			
			<cfif isdefined('session.cs.AssessmentId')>
			 <cfquery name="RiskForm" datasource="#Application.DataSrc#">
			 <cfsetting requesttimeout="1000">
			 	
					UPDATE Assessment_New SET
					Braden_1_Sensory='#drlPresureUlcersSensory#',
					Braden_2_Moisture='#drlPresureUlcersMoisture#',
					Braden_3_Activity='#drlPresureUlcersActivity#',
					Braden_4_Mobility='#drlPresureUlcersMobility#',
					Braden_5_Nutrition='#drlPresureUlcersNutrition#',
					Braden_6_Friction='#drlPresureUlcersFriction#'
			  		Where Assessment_New.Assessment_ID= '#session.cs.AssessmentId#'

			</cfquery>       
				</cfif>			
        <cfreturn 'Risk'>
    </cffunction>
	
	
	<cffunction name="StartCareUPFallRisk" access="remote" returntype="string">
		<cfargument name="Fall_A" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_B" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_C" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_D" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_E" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_F" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_G" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_H" required="yes" hint="SOC Step Fall">
		<cfargument name="Fall_I" required="yes" hint="SOC Step Fall">
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery name="FallRiskForm" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			
				UPDATE Assessment_New SET
				Fall_A='#Fall_A#',
				Fall_B='#Fall_B#',
				Fall_C='#Fall_C#',
				Fall_D='#Fall_D#',
				Fall_E='#Fall_E#',
				Fall_F='#Fall_F#',
				Fall_G='#Fall_G#',
				Fall_H='#Fall_H#',
				Fall_I='#Fall_I#'
				Where Assessment_New.Assessment_ID= '#session.cs.AssessmentId#'

		</cfquery>
			</cfif>		
        <cfreturn 'fallRisk'>
    </cffunction>



	
	
	
	
	<cffunction  name="M1010Diagnosis" access="remote" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1010 Diagnosis">
		<cfargument name="vcode" required="yes" hint="SOC M1010 Diagnosis">
		
		<cfset DupDiagnosis="M1010">
		<cfset m02301='#session.cs.AssessmentId#'&' M0190'>
		
		<cfif isdefined('session.cs.AssessmentId')>
			<cfquery name="AssID" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">
				
					Select Assessment_Tracker_ID,Patient_ID,Agency_ID From Assessment_New 
					where Assessment_ID= '#session.cs.AssessmentId#'
	
			</cfquery>
			
			<cfquery name="M1010fetch" datasource="#Application.DataSrc#">	    
			<cfsetting requesttimeout="1000">
				
					select Diagnosis,ICD,Code_Type,Pathway_Type,Short_Diagnosis from diagnosis_list WHERE 
					diagnosis_list.id=#DiagnosisID# 	
				
			</cfquery>
			<cfset M1010fetchICD_1 = ''>
			<cfset M1010fetchICD_sub = ''>
			<cfset i =1>
			<cfif M1010fetch.ICD contains ".">
			<cfset M1010fetch_ICD = M1010fetch.ICD>
			<cfelse>
			<cfset M1010fetch_ICD = M1010fetch.ICD&'.'&'00'>
			</cfif>
			<cfloop list="#M1010fetch_ICD#" delimiters="." index="m">
			<cfif i eq 1>
		<cfoutput><cfset M1010fetchICD_1 = #m#></cfoutput>
			</cfif>
			<cfset i =0>
			<cfoutput><cfset M1010fetchICD_sub = #m#></cfoutput>
		</cfloop>
		
		<cfif len(M1010fetchICD_1) eq 1>
		<cfset M1010fetchICD_1 = '00'&#M1010fetchICD_1#>
		<cfelseif len(M1010fetchICD_1) eq 2>
		<cfset M1010fetchICD_1 = '0'&#M1010fetchICD_1#>
		</cfif>
		<cfif len(M1010fetchICD_sub) eq 1>
		<cfset M1010fetchICD_sub = M1010fetchICD_sub&'0'>
		</cfif>		
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#&'.'&#M1010fetchICD_sub#>
			
			<cfquery name="M1010count" datasource="#Application.DataSrc#">	     
			<cfsetting requesttimeout="1000">	
					select Count(Diagnosis.Diagnosis_ID) as M1010RecordCount from Diagnosis where 
					Diagnosis.Assessment_ID='#session.cs.AssessmentId#' and Diagnosis.Diagnosis LIKE '%#M1010fetch.Diagnosis#%' 
					and M0190_Link LIKE '%#m02301#%'
			</cfquery>
		</cfif>
		<cfif M1010count.M1010RecordCount eq 0>
		<cfset count = 1>		
		
		<cfset M1010fetchICD = M1010fetchICD_1>
		
		<cfif M1010fetchICD contains(".")>
			
		<cfelse>
			<cfif len(M1010fetchICD) lte "3" >	
				<cfset M1010fetchICD = M1010fetchICD & ".00">		
			</cfif>
		</cfif>
		
		<cfif isdefined('session.cs.AssessmentId')>
		<cfif vcode neq '00'>
		<cfquery name="M1010Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			
					INSERT INTO Diagnosis(Assessment_ID,Assessment_Tracker_ID, Patient_ID, Agency_ID, Diagnosis, ICD, Code_Type,  
					Pathway_Type,Short_Diagnosis,Text_ICD,M0190_Link,Dx_Order) VALUES 	
					('#session.cs.AssessmentId#','#AssID.Assessment_Tracker_ID#','#AssID.Patient_ID#','#AssID.Agency_ID#',
					'#M1010fetch.Diagnosis#','#vcode#','#M1010fetch.Code_Type#','#M1010fetch.Pathway_Type#',
					'#M1010fetch.Short_Diagnosis#','#vcode#','#m02301#','#count#')

		</cfquery>
		<cfelse>
		<cfquery name="M1010Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			
					INSERT INTO Diagnosis(Assessment_ID,Assessment_Tracker_ID, Patient_ID, Agency_ID, Diagnosis, ICD, Code_Type,  
					Pathway_Type,Short_Diagnosis,Text_ICD,M0190_Link,Dx_Order) VALUES 	
					('#session.cs.AssessmentId#','#AssID.Assessment_Tracker_ID#','#AssID.Patient_ID#','#AssID.Agency_ID#',
					'#M1010fetch.Diagnosis#','#M1010fetchICD#','#M1010fetch.Code_Type#','#M1010fetch.Pathway_Type#',
					'#M1010fetch.Short_Diagnosis#','#M1010fetchICD#','#m02301#','#count#')

		</cfquery>
		</cfif>
		</cfif> 				
		<cfset DupDiagnosis="M1010Added">
		<cfelse>
		<cfset DupDiagnosis="M1010DUP">		
		</cfif>		
       
    <cfreturn DupDiagnosis>
    </cffunction>
	
	
	<cffunction  name="M1012Diagnosis" access="remote" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1012 Diagnosis">
		
		<cfset DupDiagnosis="M1012">
		<cfset m02301='#session.cs.AssessmentId#'&' M1012'>

		<cfif isdefined('session.cs.AssessmentId')>		
		<cfquery name="AssID" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

				Select Assessment_Tracker_ID,Patient_ID,Agency_ID From Assessment_New
				 where Assessment_ID= '#session.cs.AssessmentId#'
		</cfquery>
			</cfif>

		
		<!---<cfquery name="M1012fetch" datasource="#Application.DataSrc#">	  
		<cfsetting requesttimeout="1000"> 
			select Diagnosis,ICD,Code_Type,Pathway_Type,Short_Diagnosis from diagnosis_list WHERE 
			diagnosis_list.id=#DiagnosisID# 
			
		</cfquery>--->
		
		<cfquery name="M1012fetch" datasource="#Application.DataSrc#">	  
		<cfsetting requesttimeout="1000"> 
			select s.id,s.CPT,s.Procedure,s.Short_Procedure from surgical_codes s  where id=#DiagnosisID# 
		</cfquery>
		

			<cfif isdefined('session.cs.AssessmentId')>		
				<cfquery name="M1012count" datasource="#Application.DataSrc#">	     
					<cfsetting requesttimeout="1000">	   
					select Count(Diagnosis.Diagnosis_ID) as M1012RecordCount from Diagnosis where 
					Diagnosis.Assessment_ID='#session.cs.AssessmentId#' and Diagnosis.Diagnosis LIKE '%#M1012fetch.Procedure#%' 
					and M1012_Link LIKE '%#m02301#%'
				</cfquery>
			</cfif>
					
		<cfif M1012count.M1012RecordCount eq 0>
		<cfset count = 1>	
		
					<cfif isdefined('session.cs.AssessmentId')>
		<cfquery name="M1012Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
				INSERT INTO  Diagnosis  (Assessment_ID, Assessment_Tracker_ID, Patient_ID, Agency_ID, Diagnosis,ICD, 
				Code_Type,Text_ICD,M1012_Link,Dx_Order) 
				VALUES 	
				('#session.cs.AssessmentId#', '#AssID.Assessment_Tracker_ID#', '#AssID.Patient_ID#', '#AssID.Agency_ID#', '#M1012fetch.Procedure#', '#M1012fetch.CPT#',
				 'CPT','#M1012fetch.CPT#','#m02301#','#count#') 

		</cfquery>
			</cfif>
							
		<cfset DupDiagnosis="M1012Added">
		<cfelse>
		<cfset DupDiagnosis="M1012DUP">		
		</cfif>		
       
    <cfreturn DupDiagnosis>
    </cffunction>
	
	
	<cffunction  name="M1016Diagnosis" access="remote" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1016 Diagnosis">
		<cfargument name="vcode" required="yes" hint="SOC M1010 Diagnosis">
		
		<cfset DupDiagnosis="M1016">
		<cfset m02301='#session.cs.AssessmentId#'&' M0210'>
		
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery name="AssID" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			
				Select Assessment_Tracker_ID,Patient_ID,Agency_ID From Assessment_New 
				where Assessment_ID= '#session.cs.AssessmentId#'

		</cfquery>
			</cfif>
					
		<cfquery name="M1016fetch" datasource="#Application.DataSrc#">	   
		<cfsetting requesttimeout="1000"> 
				select Diagnosis,ICD,Code_Type,Pathway_Type,Short_Diagnosis from diagnosis_list WHERE 
				diagnosis_list.id=#DiagnosisID# 	
		</cfquery>
		<cfset M1010fetchICD_1 = ''>
			<cfset M1010fetchICD_sub = ''>
			<cfset i =1>
			<cfif M1016fetch.ICD contains ".">
			<cfset M1010fetch_ICD = M1016fetch.ICD>
			<cfelse>
			<cfset M1010fetch_ICD = M1016fetch.ICD&'.'&'00'>
			</cfif>
			<cfloop list="#M1010fetch_ICD#" delimiters="." index="m">
			<cfif i eq 1>
		<cfoutput><cfset M1010fetchICD_1 = #m#></cfoutput>
			</cfif>
			<cfset i =0>
			<cfoutput><cfset M1010fetchICD_sub = #m#></cfoutput>
		</cfloop>
		
		<cfif len(M1010fetchICD_1) eq 1>
		<cfset M1010fetchICD_1 = '00'&#M1010fetchICD_1#>
		<cfelseif len(M1010fetchICD_1) eq 2>
		<cfset M1010fetchICD_1 = '0'&#M1010fetchICD_1#>
		</cfif>
		<cfif len(M1010fetchICD_sub) eq 1>
		<cfset M1010fetchICD_sub = M1010fetchICD_sub&'0'>
		</cfif>
		
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#&'.'&#M1010fetchICD_sub#>
		
		<cfif isdefined('session.cs.AssessmentId')>    	   
		<cfquery name="M1016count" datasource="#Application.DataSrc#">	
		<cfsetting requesttimeout="1000"> 
			
				select Count(Diagnosis.Diagnosis_ID) as M1016RecordCount from Diagnosis where 
				Diagnosis.Assessment_ID='#session.cs.AssessmentId#' and Diagnosis.Diagnosis LIKE '%#M1016fetch.Diagnosis#%' 
				and M0210_Link LIKE '%#m02301#%'

		</cfquery>
			</cfif>		
		<cfif M1016count.M1016RecordCount eq 0>
		<cfset count = 1>		
		
				<cfif isdefined('session.cs.AssessmentId')>
				<cfif vcode neq '00'>
		<cfquery name="M1016Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

		INSERT INTO Diagnosis(Assessment_ID,Assessment_Tracker_ID,Patient_ID,Agency_ID,Diagnosis,ICD,Code_Type,Pathway_Type,
					Short_Diagnosis,Text_ICD,M0210_Link,Dx_Order) VALUES 	
					('#session.cs.AssessmentId#','#AssID.Assessment_Tracker_ID#','#AssID.Patient_ID#','#AssID.Agency_ID#',
					'#M1016fetch.Diagnosis#','#vcode#','#M1016fetch.Code_Type#','#M1016fetch.Pathway_Type#',
					'#M1016fetch.Short_Diagnosis#','#vcode#','#m02301#','#count#') 

		</cfquery>
		<cfelse>
		<cfquery name="M1016Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

		INSERT INTO Diagnosis(Assessment_ID,Assessment_Tracker_ID,Patient_ID,Agency_ID,Diagnosis,ICD,Code_Type,Pathway_Type,
					Short_Diagnosis,Text_ICD,M0210_Link,Dx_Order) VALUES 	
					('#session.cs.AssessmentId#','#AssID.Assessment_Tracker_ID#','#AssID.Patient_ID#','#AssID.Agency_ID#',
					'#M1016fetch.Diagnosis#','#M1010fetchICD_1#','#M1016fetch.Code_Type#','#M1016fetch.Pathway_Type#',
					'#M1016fetch.Short_Diagnosis#','#M1010fetchICD_1#','#m02301#','#count#') 

		</cfquery>
		</cfif>
		</cfif>
						
		<cfset DupDiagnosis="M1016Added">
		<cfelse>
		<cfset DupDiagnosis="M1016DUP">		
		</cfif>		
       
    <cfreturn DupDiagnosis>
    </cffunction>
	
	<cffunction  name="M0230Diagnosis" access="remote" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="M0230Primary" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="M0230Secondary" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="M0230Severity" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="M0230Onset" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="vcodediag" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="vcodeicd" required="yes" hint="SOC M0230 Diagnosis">
		<cfargument name="typecode" required="yes" hint="SOC M0230 Diagnosis">
		
		<cfset DupDiagnosis="M0230">
		<cfset m02301='#session.cs.AssessmentId#'&' M0230'>
		
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery name="AssID" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			
				Select Assessment_Tracker_ID,Patient_ID,Agency_ID From Assessment_New 
				where Assessment_ID= '#session.cs.AssessmentId#'

		</cfquery>
			</cfif>
					
		<cfquery name="M0230fetch" datasource="#Application.DataSrc#">	    
		<cfsetting requesttimeout="1000">
			select Diagnosis,ICD,Code_Type,Pathway_Type,Short_Diagnosis,Other_DG from diagnosis_list WHERE 
			diagnosis_list.id=#DiagnosisID# 	
		</cfquery>
		<cfset M1010fetchICD_1 = ''>
			<cfset M1010fetchICD_sub = ''>
			<cfset i =1>
			<cfif M0230fetch.ICD contains ".">
			<cfset M1010fetch_ICD = M0230fetch.ICD>
			<cfelse>
			<cfset M1010fetch_ICD = M0230fetch.ICD&'.'&'00'>
			</cfif>
			<cfloop list="#M1010fetch_ICD#" delimiters="." index="m">
			<cfif i eq 1>
		<cfoutput><cfset M1010fetchICD_1 = #m#></cfoutput>
			</cfif>
			<cfset i =0>
			<cfoutput><cfset M1010fetchICD_sub = #m#></cfoutput>
		</cfloop>
		
		<cfif len(M1010fetchICD_1) eq 1>
		<cfset M1010fetchICD_1 = '00'&#M1010fetchICD_1#>
		<cfelseif len(M1010fetchICD_1) eq 2>
		<cfset M1010fetchICD_1 = '0'&#M1010fetchICD_1#>
		</cfif>
		<cfif len(M1010fetchICD_sub) eq 1>
		<cfset M1010fetchICD_sub = M1010fetchICD_sub&'0'>
		</cfif>		
		<cfset M1010fetchICD_1 = #M1010fetchICD_1#&'.'&#M1010fetchICD_sub#>
		
		<cfset strlen = len(#M0230fetch.Diagnosis#)>	
		
		<cfif isdefined('session.cs.AssessmentId')>     	   
		<cfquery name="M0230count" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">	
			
				 select Count(Diagnosis.Diagnosis_ID) as M0230RecordCount from Diagnosis where 
				Diagnosis.Assessment_ID='#session.cs.AssessmentId#' and Diagnosis.Diagnosis LIKE '%#M0230fetch.Diagnosis#%' 
				and M0230_Link LIKE '%#m02301#%'

		</cfquery>
			</cfif>
					
		<cfif M0230count.M0230RecordCount eq 0>	
		
		<cfset M0230fetchICD= M1010fetchICD_1> 
		<cfif M0230fetchICD contains(".")>
			<cfloop index="y" list="#M0230fetchICD#" delimiters=".">
				<cfset ans=#y#>
				<cfif len(ans) eq 1>
					<cfset M0230fetchICD = M0230fetchICD & "0">
				<cfelse>
					<cfset M0230fetchICD =M0230fetchICD>
				</cfif>
			</cfloop>
		<cfelse>
			<cfset  M0230fetchICD = M0230fetchICD & ".00">
		</cfif>
		
		<cfif isdefined('session.cs.AssessmentId')>
		<cfif #M0230fetch.Code_Type# eq 'V_Code'>		
		<cfquery name="M0230Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">		
		INSERT INTO Diagnosis(Assessment_ID,Assessment_Tracker_ID,Patient_ID,Agency_ID,Diagnosis,ICD,Code_Type,Pathway_Type,
		Short_Diagnosis,Text_ICD,M0230_Link,Severity,Primary_Diagnosis,Secondary_Diagnosis,Dx_Order,DG_Type,M0245a_Diagnosis,M0245_ICD) VALUES 	
		('#session.cs.AssessmentId#','#AssID.Assessment_Tracker_ID#','#AssID.Patient_ID#',
		'#AssID.Agency_ID#','#M0230fetch.Diagnosis#','#typecode#','#M0230fetch.Code_Type#','#M0230fetch.Pathway_Type#',
		'#M0230fetch.Short_Diagnosis#','#typecode#','#m02301#','#M0230Severity#','#M0230Primary#',
		'#M0230Secondary#','1','#M0230fetch.Other_DG#','#vcodediag#','#vcodeicd#')
		</cfquery>
		<cfelse>
		<cfquery name="M0230Insert" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">		
		INSERT INTO Diagnosis(Assessment_ID,Assessment_Tracker_ID,Patient_ID,Agency_ID,Diagnosis,ICD,Code_Type,Pathway_Type,
		Short_Diagnosis,Text_ICD,M0230_Link,Severity,Primary_Diagnosis,Secondary_Diagnosis,Dx_Order,DG_Type,M0245a_Diagnosis,M0245_ICD) VALUES 	
		('#session.cs.AssessmentId#','#AssID.Assessment_Tracker_ID#','#AssID.Patient_ID#',
		'#AssID.Agency_ID#','#M0230fetch.Diagnosis#','#M0230fetchICD#','#M0230fetch.Code_Type#','#M0230fetch.Pathway_Type#',
		'#M0230fetch.Short_Diagnosis#','#M0230fetchICD#','#m02301#','#M0230Severity#','#M0230Primary#',
		'#M0230Secondary#','1','#M0230fetch.Other_DG#','#vcodediag#','#vcodeicd#')	
		</cfquery>
		</cfif>
		</cfif>
						
		<cfset DupDiagnosis="M0230Added">
		<cfelse>
		<cfset DupDiagnosis="M0230DUP">		
		</cfif>		
       
    <cfreturn DupDiagnosis>
    </cffunction>
	
		
	<cffunction  name="M1010Delete" access="remote" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1010 Diagnosis Delete">
		<cfargument name="M1010update" required="yes" hint="SOC M1010 Diagnosis Update">
				
		<cfquery name="M1010Delete" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			 delete from Diagnosis where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#DiagnosisID#
		</cfquery>
		
		<cfloop index="UpdateOrder" list ='#M1010update#' delimiters="!">
			<cfset UpdateDx=0>
			<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
			<cfset UpdateDx=UpdateDx+1>
			<cfif UpdateDx EQ 1>
			<cfset UpdateID=#UpdateDescandSkill#>
			</cfif>
			<cfif UpdateDx EQ 2>
			<cfset Order=#UpdateDescandSkill#>
			</cfif>				 
			</cfloop>	
			
			<cfif IsNumeric(Order)> 
				<cfif isdefined('session.cs.AssessmentId')>
					<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
						<cfsetting requesttimeout="1000">
						UPDATE Diagnosis SET Dx_Order = '#Order#' 
						WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
					</cfquery>
					<cfquery name="geticd" datasource="#Application.DataSrc#">
					select ICD from Diagnosis where assessment_id=#session.cs.AssessmentId# and Dx_Order = '#Order#'
					</cfquery>
					<cfif Order eq 1>
							<cfquery name="primary" datasource="#Application.DataSrc#">
							 update Assessment_New set HHRG_175_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
							</cfquery>
						<cfelseif Order eq 2>
							<cfquery name="secondary" datasource="#Application.DataSrc#">
							 update Assessment_New set HHRG_230_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
							</cfquery>
						<cfelseif Order eq 3>
							<cfquery name="third" datasource="#Application.DataSrc#">
							 update Assessment_New set HHRG_250_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
							</cfquery>
						<cfelseif Order eq 4>
							<cfquery name="fourth" datasource="#Application.DataSrc#">
							 update Assessment_New set HHRG_390_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
							</cfquery>
						<cfelseif Order eq 5>
							<cfquery name="fifth" datasource="#Application.DataSrc#">
							 update Assessment_New set HHRG_420_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
							</cfquery>
						<cfelseif Order eq 6>
							<cfquery name="sixth" datasource="#Application.DataSrc#">
							 update Assessment_New set HHRG_440_Score ='#geticd.ICD#' where assessment_id=#session.cs.AssessmentId#
							</cfquery>
					 </cfif>
				</cfif>
			</cfif>
				
		<cfset UpdateDx=0> 
		</cfloop>
		       
    <cfreturn 'M1010Delete'>
    </cffunction>
	
	<cffunction  name="M1012Delete" access="remote" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1012 Diagnosis Delete">
		<cfargument name="M1012update" required="yes" hint="SOC M1012 Diagnosis Update">
			
			<cfif isdefined('session.cs.AssessmentId')>	
				<cfquery name="M1012Delete" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
					 delete from Diagnosis where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#DiagnosisID#
				</cfquery>
			</cfif>
					
		<cfloop index="UpdateOrder" list ='#M1012update#' delimiters="!">
			<cfset UpdateDx=0>
			<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
			<cfset UpdateDx=UpdateDx+1>
			<cfif UpdateDx EQ 1>
			<cfset UpdateID=#UpdateDescandSkill#>
			</cfif>
			<cfif UpdateDx EQ 2>
			<cfset Order=#UpdateDescandSkill#>
			</cfif>				 
			</cfloop>	
			
			<cfif IsNumeric(Order)> 

							<cfif isdefined('session.cs.AssessmentId')>
			<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
			<cfsetting requesttimeout="1000">

					UPDATE Diagnosis SET Dx_Order = '#Order#' 
					WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#

			</cfquery>
							</cfif>
							</cfif>
							
		<cfset UpdateDx=0> 
		</cfloop>
       
    <cfreturn 'M1012Delete'>
    </cffunction>
	
	<cffunction  name="M1016Delete" access="remote" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M1016 Diagnosis Delete">
		<cfargument name="M1016update" required="yes" hint="SOC M1016 Diagnosis Update">
			
			<cfif isdefined('session.cs.AssessmentId')>	
		<cfquery name="M1016Delete" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			
			 delete from Diagnosis where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#DiagnosisID#

		</cfquery>
			</cfif>
					
		<cfloop index="UpdateOrder" list ='#M1016update#' delimiters="!">
			<cfset UpdateDx=0>
			<cfloop index="UpdateDescandSkill" list=#UpdateOrder# delimiters="*~*">
			<cfset UpdateDx=UpdateDx+1>
			<cfif UpdateDx EQ 1>
			<cfset UpdateID=#UpdateDescandSkill#>
			</cfif>
			<cfif UpdateDx EQ 2>
			<cfset Order=#UpdateDescandSkill#>
			</cfif>				 
			</cfloop>	
			
						<cfif IsNumeric(Order)> 

			<cfif isdefined('session.cs.AssessmentId')>
				<cfquery name="UpdateDxOrder" datasource="#Application.DataSrc#">
				<cfsetting requesttimeout="1000">
					UPDATE Diagnosis SET Dx_Order = '#Order#' 
					WHERE Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#UpdateID#
				</cfquery>
				
			</cfif>
			</cfif>
		<cfset UpdateDx=0> 
		</cfloop>
       
    <cfreturn 'M1016Delete'>
    </cffunction>
	
	<cffunction  name="M0230Delete" access="remote" returntype="string">
		<cfargument name="DiagnosisID" required="yes" hint="SOC M0230 Diagnosis Delete">
		<cfargument name="M0230update" required="yes" hint="SOC M0230 Diagnosis Update"> 

			<cfif isdefined('session.cs.AssessmentId')>				
		<cfquery name="M0230Delete" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">

				 delete from Diagnosis where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#DiagnosisID#

		</cfquery>
			</cfif>
			
					
		<cfloop index="First" list="#M0230update#" delimiters="!">
		<cfset Secondcount=0>
		<cfloop index="Second1" list="#First#" delimiters="-">
		<cfset Secondcount=Secondcount+1>
		<cfif Secondcount eq 1>
		<cfset Id=#Second1#>
		</cfif>
		<cfif Secondcount eq 2>
		<cfset severity=#Second1#>
		</cfif>
		<cfif Secondcount eq 3>
		<cfset dxorder=#Second1#>
		</cfif>
		<cfif Secondcount eq 4>
		<cfset primary=#Second1#>
		</cfif>
		<cfif Secondcount eq 5>
		<cfset secondary=#Second1#>
		</cfif>
		</cfloop>
		
		<cfoutput>
			<cfif IsNumeric(dxorder)> 
				<cfif isdefined('session.cs.AssessmentId')>
					<cfquery name="M1020upd" datasource="#Application.DataSrc#">
					<cfsetting requesttimeout="1000">
					UPDATE Diagnosis SET Severity='#severity#',Primary_Diagnosis='#primary#',Secondary_Diagnosis='#secondary#',
					Dx_Order = '#dxorder#' where Diagnosis.Assessment_ID=#session.cs.AssessmentId# and Diagnosis_ID=#Id#	
					</cfquery>
				</cfif>
			</cfif>
		</cfoutput>
		
		<cfset Secondcount=0>
		<cfset Id=''>
		<cfset severity=''>
		<cfset dxorder=''>
		<cfset primary=''>
		<cfset secondary=''>
		
		</cfloop>
       
    <cfreturn 'M0230Delete'>
    </cffunction>
	
	
	
	<cffunction  name="WoundDelete" access="remote" returntype="string">
		<cfargument name="WoundID" required="yes" hint="SOC Wound Delete">		
				
		<cfquery name="WoundDelete" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			   delete from PatientVisitDetails where Progress_Details_ID='#WoundID#'
		</cfquery>
		
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery name="ViewWnd" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
			
				SELECT count(Wnd_Type) as CouNt from PatientVisitDetails 
				where Patient_ID='#session.cs.patientid#' and Assessment_ID='#session.cs.AssessmentId#' 
				and Wnd_Location<>'' and Wnd_Type<>'' and trim(Type)='Wound'

		   </cfquery>
		</cfif>   
		
		<cfoutput><cfset cookie.WoundCount='#ViewWnd.CouNt#'></cfoutput>
		
    <cfreturn 'WoundDel'>
    </cffunction>
	
	
	
	<cffunction  name="Medication" access="remote" returntype="string">
		<cfargument name="tradeid" required="yes" hint="SOC Medication">
		<cfargument name="doseid" required="yes" hint="SOC Medication">
						
		 <cfquery name="MDose" datasource="#Application.DataSrc#">
		 <cfsetting requesttimeout="1000"> 
		 SELECT Dose FROM Meds_New_Dose WHERE Dose_ID='#doseid#'
		 </cfquery>
		 <cfquery name="MName" datasource="#Application.DataSrc#">
		 <cfsetting requesttimeout="1000">
		 SELECT Name FROM Meds_New WHERE Trade_ID='#tradeid#'
		 </cfquery>
		  
		 <cfif MDose.Dose NEQ '' and MName.Name NEQ ''>	
		 <cfquery name="Insertpatientmeds" datasource="#Application.DataSrc#">
		 <cfsetting requesttimeout="1000">
		 INSERT INTO PatientMeds(Patient_ID,Medication_ID,Drug_Name,Dose,DateOrdered,Med_Status) VALUES 	
				('#session.cs.patientid#','#tradeid#','#MName.Name#','#MDose.Dose#',CURDATE(),'active') 
		 </cfquery>
		 </cfif>
		
    <cfreturn 'AMedication'>
    </cffunction>
	
	<cffunction  name="MedicationOwn1" access="remote" returntype="string">
		<cfargument name="typeown1" required="yes" hint="SOC Medication">
		
						
		<cfif typeown1 EQ '????'> 
		<cfquery name="Insertpatientmeds" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
		   INSERT INTO PatientMeds(Patient_ID,Drug_Name,DateOrdered) VALUES ('#session.cs.patientid#','????',CURDATE()) 
		</cfquery>
		</cfif>
		
    <cfreturn 'ATypeOwn1'>
    </cffunction>
	
	
	<cffunction  name="MedicationOwn2" access="remote" returntype="string">		
		<cfargument name="tradeid" required="yes" hint="SOC Medication">
								
		<cfif tradeid NEQ ''>	      
	       <cfquery name="TypeMName" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="1000">
			 SELECT Name FROM Meds_New WHERE Trade_ID='#tradeid#'
		   </cfquery>			 			 
		   <cfquery name="InsertTypepatientmeds" datasource="#Application.DataSrc#">
		   <cfsetting requesttimeout="1000">
			 INSERT INTO PatientMeds(Patient_ID,Medication_ID,Drug_Name,DateOrdered,Med_Status) VALUES 	
					('#session.cs.patientid#','#tradeid#','#TypeMName.Name#',CURDATE(),'active') 
		   </cfquery>
	    </cfif>
		
    <cfreturn 'ATypeOwn2'>
    </cffunction>
	
	
	<cffunction  name="UpMedication" access="remote" returntype="string">		
		<cfargument name="hdnPatientMedsID" required="yes" hint="SOC Update Medication">
		<cfargument name="hdnPatientMedsUpdate" required="yes" hint="SOC Update Medication">
		<cfargument name="hdnPatientMedsInsert" required="yes" hint="SOC Update Medication">
		
		<cfif isdefined('hdnPatientMedsID') and isdefined('hdnPatientMedsInsert') and isdefined('hdnPatientMedsUpdate')>
		
		<cfif hdnPatientMedsID neq ''>
		<cfquery name="DeletePatientMedsID" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
		delete from PatientMeds where Patient_ID='#session.cs.patientid#' and PatientMeds_ID not in(#hdnPatientMedsID#)
		</cfquery>
		</cfif>
		
		<cfif hdnPatientMedsUpdate NEQ "">
		<cfloop index="ContentUpdate" list ='#hdnPatientMedsUpdate#' delimiters=",">
		
		<cfset Medscount=0>
		<cfloop index="PatientMedsUpdate" list=#ContentUpdate# delimiters="*~*">
		<cfset Medscount=Medscount+1>
		
		
		<cfif Medscount EQ 1>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset Pmedid=''>
		<cfelse>
		<cfset Pmedid=#PatientMedsUpdate#>
		</cfif>
		</cfif>
				 
		<cfif Medscount EQ 2>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PName=''>
		<cfelse>
		<cfset PName=#PatientMedsUpdate#>
		</cfif>
		</cfif>
		
		<cfif Medscount EQ 3>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PDose=''>
		<cfelse>
		<cfset PDose=#PatientMedsUpdate#>
		</cfif>	 
		</cfif>
		
		<cfif Medscount EQ 4>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PUnitType=''>
		<cfelse>
		<cfset PUnitType=#PatientMedsUpdate#>
		</cfif>	
		</cfif>
		
		<cfif Medscount EQ 5>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PRoute=''>
		<cfelse>
		<cfset PRoute=#PatientMedsUpdate#>
		</cfif>	
		</cfif>
		
		<cfif Medscount EQ 6>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PFreq=''>
		<cfelse>
		<cfset PFreq=#PatientMedsUpdate#>
		</cfif>	 
		</cfif>
		
		<cfif Medscount EQ 7>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PNotes=''>
		<cfelse>
		<cfset PNotes=#PatientMedsUpdate#>
		</cfif>	 
		</cfif>
		
		<cfif Medscount EQ 8>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset POrdered=''>
		<cfelse>
		<cfset POrdered=#PatientMedsUpdate#>
		</cfif>	 
		</cfif>
		
		<cfif Medscount EQ 9>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PDiscontinued=''>
		<cfelse>
		<cfset PDiscontinued=#PatientMedsUpdate#>
		</cfif>	 
		</cfif>
		
		<cfif Medscount EQ 10>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset PTnewChange=''>
		<cfelse>
		<cfset PTnewChange=#PatientMedsUpdate#>
		</cfif>	 
		</cfif>
		
		<cfif Medscount EQ 11>
		<cfif PatientMedsUpdate EQ '00'>
		<cfset Pactive=''>
		<cfelse>
		<cfset Pactive=#PatientMedsUpdate#>
		</cfif>	
		</cfif>			 
		</cfloop> 
        <cfif POrdered eq 'undefined'><cfset POrdered=''></cfif>
        <cfif PDiscontinued eq 'undefined'><cfset PDiscontinued=''></cfif>
		<cfquery name="UpdatePatientMeds" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
		UPDATE PatientMeds SET Notes='#PNotes#',Med_Status='#Pactive#',DateOrdered=<cfif POrdered EQ ''>NULL<cfelse>
		'#DateFormat(POrdered,"yyyy-mm-dd")#'</cfif>,Dose='#PDose#',Route='#PRoute#', Freq='#PFreq#',Drug_Name='#PName#',
		DateDCed=<cfif PDiscontinued EQ ''>NULL<cfelse>'#DateFormat(PDiscontinued,"yyyy-mm-dd")#'</cfif>
		,Dose_Units='#PUnitType#',NewChanged='#PTnewChange#' WHERE Patient_ID='#session.cs.patientid#' and
		PatientMeds_ID='#Pmedid#' 
		</cfquery>
		<cfset Medscount=0>
		</cfloop>
		</cfif>
		
		<cfif hdnPatientMedsInsert NEQ "00*~*00*~*00*~*00*~*00*~*00*~*00*~*00*~*00*~*00*~*active" and hdnPatientMedsInsert NEQ ''>
		<cfloop index="ContentInsert" list ='#hdnPatientMedsInsert#' delimiters=",">
		<cfif ContentInsert NEQ "00*~*00*~*00*~*00*~*00*~*00*~*00*~*00*~*00*~*00*~*active">		
		<cfset Medscount=0>
		<cfloop index="PatientMedsInsert" list=#ContentInsert# delimiters="*~*">
		<cfset Medscount=Medscount+1>
		
		
		<cfif Medscount EQ 1>
		<cfif PatientMedsInsert EQ '00'>
		<cfset Pmedid=''>
		<cfelse>
		<cfset Pmedid=#PatientMedsInsert#>
		</cfif>
		</cfif>
				 
		<cfif Medscount EQ 2>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PName=''>
		<cfelse>
		<cfset PName=#PatientMedsInsert#>
		</cfif>
		</cfif>
		
		<cfif Medscount EQ 3>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PDose=''>
		<cfelse>
		<cfset PDose=#PatientMedsInsert#>
		</cfif>	 
		</cfif>
		
		<cfif Medscount EQ 4>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PUnitType=''>
		<cfelse>
		<cfset PUnitType=#PatientMedsInsert#>
		</cfif>	
		</cfif>
		
		<cfif Medscount EQ 5>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PRoute=''>
		<cfelse>
		<cfset PRoute=#PatientMedsInsert#>
		</cfif>	
		</cfif>
		
		<cfif Medscount EQ 6>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PFreq=''>
		<cfelse>
		<cfset PFreq=#PatientMedsInsert#>
		</cfif>	 
		</cfif>
		
		<cfif Medscount EQ 7>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PNotes=''>
		<cfelse>
		<cfset PNotes=#PatientMedsInsert#>
		</cfif>	 
		</cfif>
		
		<cfif Medscount EQ 8>
		<cfif PatientMedsInsert EQ '00'>
		<cfset POrdered=''>
		<cfelse>
		<cfset POrdered=#PatientMedsInsert#>
		</cfif>	 
		</cfif>
		
		<cfif Medscount EQ 9>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PDiscontinued=''>
		<cfelse>
		<cfset PDiscontinued=#PatientMedsInsert#>
		</cfif>	 
		</cfif>
		
		<cfif Medscount EQ 10>
		<cfif PatientMedsInsert EQ '00'>
		<cfset PTnewChange=''>
		<cfelse>
		<cfset PTnewChange=#PatientMedsInsert#>
		</cfif>	 
		</cfif>
		
		<cfif Medscount EQ 11>
		<cfif PatientMedsInsert EQ '00'>
		<cfset Pactive=''>
		<cfelse>
		<cfset Pactive=#PatientMedsInsert#>
		</cfif>	
		</cfif>			 
		</cfloop>	 
		
		
		<cfquery name="InsertPatientMeds" datasource="#Application.DataSrc#">
		<cfsetting requesttimeout="1000">
		INSERT INTO PatientMeds(Patient_ID,Notes,Med_Status,DateOrdered,Dose,Route,Freq,Drug_Name,DateDCed,Dose_Units,NewChanged)
		VALUES ('#session.cs.patientid#','#PNotes#','#Pactive#',<cfif POrdered EQ ''>NULL<cfelse>'#DateFormat(POrdered,"yyyy-mm-dd")#'
		</cfif>,'#PDose#','#PRoute#','#PFreq#','#PName#',<cfif PDiscontinued EQ ''>NULL<cfelse>
		'#DateFormat(PDiscontinued,"yyyy-mm-dd")#'</cfif>,'#PUnitType#','#PTnewChange#') 
		</cfquery>
		
		<cfset Medscount=0>
		</cfif>	  
		</cfloop>
		</cfif>
		
		
		
		</cfif>
								
		
		
    <cfreturn 'AUpMedication'>
    </cffunction>
	
	
	<cffunction  name="WoundAutoFill" access="remote" returntype="string">
	
	    <cfif isdefined('session.cs.AssessmentId')>	  
		<cfquery name="Assessment_Details" datasource="#Application.DataSrc#" timeout="1000">			
				SELECT  Patient_ID,Agency_Id,Assessment_Tracker_ID,Assessment_Reason_M0100,Discharged_From_M0175,
				Assessment_Completed_M0090 ,Braden_1_Sensory, Braden_2_Moisture, Braden_3_Activity, Braden_4_Mobility,
				Braden_5_Nutrition, Braden_6_Friction,M1310_1,M1308_d_3_Pressure,M1308_d_2_Pressure,Pressure_Ulcer_b_M0450,
				Pressure_Ulcer_c_M0450,Pressure_Ulcer_d_M0450,Pressure_Ulcer_e_M0450,M1300_Pressure,Stasis_Ulcer_M0468,
				Surgical_Wound_M0482
				FROM Assessment_New 
				WHERE Assessment_ID='#session.cs.AssessmentId#'			
		</cfquery>
		
		
		
		<cfset Surgical_Wound_M0482 = Assessment_Details.Surgical_Wound_M0482>
		<cfset Stasis_Ulcer_M0468 = Assessment_Details.Stasis_Ulcer_M0468>
		<cfset M1300_Pressure = Assessment_Details.M1300_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 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 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 Braden_1_Sensory = Assessment_Details.Braden_1_Sensory >
		<cfset Braden_2_Moisture = Assessment_Details.Braden_2_Moisture >
		<cfset Braden_3_Activity = Assessment_Details.Braden_3_Activity >
		<cfset Braden_4_Mobility = Assessment_Details.Braden_4_Mobility >
		<cfset Braden_5_Nutrition = Assessment_Details.Braden_5_Nutrition >
		<cfset Braden_6_Friction = Assessment_Details.Braden_6_Friction >
		<cfset M1310_1 = Assessment_Details.M1310_1 >
		
		
		<cfquery name="Wound_Details1" datasource="#Application.DataSrc#" timeout="1000">			
				SELECT Wnd_Len_1,Wnd_Len_2,Wnd_Wid_1,Wnd_Wid_2,Wnd_Dep_1,Wnd_Dep_2 FROM PatientVisitDetails 
				where assessment_id ='#session.cs.AssessmentId#' and 
				type='Wound' and wnd_type is not null limit 1			
		</cfquery>
		
		
		<cfif Wound_Details1.RecordCount gt 0>
			<cfset Wnd_Len_1 = Wound_Details1.Wnd_Len_1>
			<cfset Wnd_Len_2 = Wound_Details1.Wnd_Len_2>
			<cfset Wnd_Wid_1 = Wound_Details1.Wnd_Wid_1>
			<cfset Wnd_Wid_2 = Wound_Details1.Wnd_Wid_2>
			<cfset Wnd_Dep_1 = Wound_Details1.Wnd_Dep_1>
			<cfset Wnd_Dep_2 = Wound_Details1.Wnd_Dep_2>
		<cfelse>
			<cfset Wnd_Len_1 = 0>
			<cfset Wnd_Len_2 = 0>
			<cfset Wnd_Wid_1 = 0>
			<cfset Wnd_Wid_2 = 0>
			<cfset Wnd_Dep_1 = 0>
			<cfset Wnd_Dep_2 = 0>
		</cfif>
		
		
		<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">			
				SELECT Wnd_Type,Wnd_Stage,Wnd_Status FROM PatientVisitDetails 
				where assessment_id ='#session.cs.AssessmentId#' and 
				type='Wound' and wnd_type is not null 			
		</cfquery>
		
		
		<cfset Wnd_Stage = Wound_Details.Wnd_Stage>
		<cfset Wnd_Status = Wound_Details.Wnd_Status>
		
		
		
		<!---#set M1302  --->
		<cfset Braden_Risk = "" >	
		
		<cfset Braden_1 =left(Braden_1_Sensory,1)>
		<cfset Braden_2 =left(Braden_2_Moisture,1)>
		<cfset Braden_3 =left(Braden_3_Activity,1)>
		<cfset Braden_4 =left(Braden_4_Mobility,1)>
		<cfset Braden_5 =left(Braden_5_Nutrition,1)>
		<cfset Braden_6 =left(Braden_6_Friction,1)>
		
		<cfif trim(Braden_1) eq "">
			<cfset Braden_1=0>
		</cfif>
		<cfif trim(Braden_2) eq "">
			<cfset Braden_2=0>
		</cfif>
		<cfif trim(Braden_3) eq "">
			<cfset Braden_3=0>
		</cfif>
		<cfif trim(Braden_4) eq "">
			<cfset Braden_4=0>
		</cfif>
		<cfif trim(Braden_5) eq "">
			<cfset Braden_5=0>
		</cfif>
		<cfif trim(Braden_6) eq "">
			<cfset Braden_6=0>
		</cfif>
		
		<cfset Braden_Sum = Braden_1 + Braden_2 + Braden_3 + Braden_4 + Braden_5 + Braden_6 >
		
		<cfif Braden_1 eq 0 or Braden_2 eq 0 or Braden_3 eq 0 or Braden_4 eq 0 or Braden_5 eq 0 or Braden_6 eq 0 >
			<cfset Braden_Risk = "Braden scale incomplete" >	
		<cfelseif Braden_Sum lt 13>
			<cfset Braden_Risk = "HIGH RISK for Pressure Ulcers" >		
		<cfelseif Braden_Sum gt 12 and Braden_Sum lt 15>
			<cfset Braden_Risk = "MODERATE RISK for Pressure Ulcers" >		
		<cfelseif Braden_Sum gt 14>
			<cfset Braden_Risk = "LOW RISK for Pressure Ulcers" >		
		</cfif>
		
		<cfif Braden_Risk contains("MODERATE") or Braden_Risk contains("HIGH")>
		    <cfset M1302_Pressure = "1 - Yes">
			<cfset cookie.M1302Pressure="1 - Yes">
		<cfelse>
			<cfset cookie.M1302Pressure="0 - No">
			<cfset M1302_Pressure = "0 - No">
		</cfif>		
		
		<!--- #set M1306  --->
		
		<cfset Count_Stage_1  = 0 >
		<cfset Count_Stage_2  = 0 >
		<cfset Count_Stage_3  = 0 >
		<cfset Count_Stage_4  = 0 >
		<cfset Count_Stage_5  = 0 >
		<cfset Count_Stage_6  = 0 >
		<cfset Count_Stage_7  = 0 >
		
		<cfloop query="Wound_Details">
			<cfif Wnd_Stage contains("1") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_1  =  Count_Stage_1 + 1 >
			<cfelseif Wnd_Stage contains("2") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_2  = Count_Stage_2 + 1 >
			<cfelseif Wnd_Stage contains("3") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_3  = Count_Stage_3 + 1 >
			<cfelseif Wnd_Stage contains("4") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_4  = Count_Stage_4 + 1 >
			<cfelseif Wnd_Stage contains("5") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_5  = Count_Stage_5 + 1 >
			<cfelseif Wnd_Stage contains("6") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_6  = Count_Stage_6 + 1 >
			<cfelseif Wnd_Stage contains("7") and trim(Wnd_Type) contains("Pressure Ulcer")>
				<cfset Count_Stage_7  = Count_Stage_7 + 1 >
			</cfif>			
		</cfloop>
		
		<cfif Count_Stage_2 neq 0 or Count_Stage_3 neq 0 or Count_Stage_4 neq 0 or Count_Stage_5 neq 0 or Count_Stage_6 neq 0 or Count_Stage_7 neq 0 >
			<cfset cookie.M1306Unhealed="1 - Yes">
			<cfset M1306_Unhealed_Pressure="1 - Yes">			
		<cfelse>
			<cfset cookie.M1306Unhealed="0 - No">
			<cfset M1306_Unhealed_Pressure="0 - No">
		</cfif>		
		
		
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">			
				UPDATE Assessment_New SET					 					
					M1302_Pressure = '#cookie.M1302Pressure#',
					M1306_Unhealed_Pressure = '#cookie.M1306Unhealed#'																
				WHERE Assessment_ID = '#session.cs.AssessmentId#'			
		</cfquery>
	
		
		<!--- Set M1320 --->
					
		<cfset Count_Status_3 = 0 >
		<cfset Count_Status_2 = 0 >
		<cfset Count_Status_1 = 0 >
		
		<cfloop query="Wound_Details">
			<cfif Wnd_Status contains("3")>
				<cfset Count_Status_3 = Count_Status_3 + 1 >
			<cfelseif Wnd_Status contains("2")>
				<cfset Count_Status_2 = Count_Status_2 + 1 >
			<cfelseif Wnd_Status contains("1")>
				<cfset Count_Status_1 = Count_Status_1 + 1 >
			</cfif>
		</cfloop>
		
		<cfset cookie.PressureUlcerStatus = "">
		<cfset Pressure_Ulcer_Status_M0464 = "">
		<cfif M1310_1 eq "">
			<cfif Count_Status_1 neq 0>
				<cfset cookie.PressureUlcerStatus = "1 - Fully granulating" >
				<cfset Pressure_Ulcer_Status_M0464 = "1 - Fully granulating" >
			<cfelseif Count_Status_2 neq 0 >
				<cfset cookie.PressureUlcerStatus = "2 - Earty/partial granulation" >
				<cfset Pressure_Ulcer_Status_M0464 = "2 - Earty/partial granulation" >
			<cfelseif Count_Status_3 neq 0 >
				<cfset cookie.PressureUlcerStatus = "3 - Not healing" >
				<cfset Pressure_Ulcer_Status_M0464 = "3 - Not healing" >
			<cfelse>
				<cfset cookie.PressureUlcerStatus = "NA - No observable pressure ulcer" >
				<cfset Pressure_Ulcer_Status_M0464 = "NA - No observable pressure ulcer" >	
			</cfif>	
			<cfquery name="M1310_Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
				UPDATE Assessment_New SET					
					Pressure_Ulcer_Status_M0464='#cookie.PressureUlcerStatus#'															
				WHERE Assessment_ID = '#session.cs.AssessmentId#'
		    </cfquery>		
		</cfif>
		
		<cfif M1310_1 eq "">
			<cfif Pressure_Ulcer_Status_M0464 contains("NA -")>
				<!---set M1310 --->	
				<cfset cookie.M1310Length= Wnd_Len_1>
				<cfset cookie.M13101= Wnd_Len_2>
				<!---set M1312 --->	
				<cfset cookie.M1312Width= Wnd_Wid_1>
				<cfset cookie.M13121= Wnd_Wid_2>
				<!---set M1312 --->	
				<cfset cookie.M1314Depth= Wnd_Dep_1>
				<cfset cookie.M13141= Wnd_Dep_2>
				
				<!---set M1310 --->	
				<cfset M1310_Length = Wnd_Len_1>
				<cfset M1310_1 = Wnd_Len_2>
				
				<!---set M1312 --->	
				<cfset M1312_Width = Wnd_Wid_1>
				<cfset M1312_1 = Wnd_Wid_2>
				
				<!---set M1312 --->	
				<cfset M1314_Depth = Wnd_Dep_1>
				<cfset M1314_1 = Wnd_Dep_2>
								
			<cfelse>
			
				<cfset cookie.M1310Length= 0>
				<cfset cookie.M13101= 0>
				
				<cfset cookie.M1312Width= 0>
				<cfset cookie.M13121= 0>
				
				<cfset cookie.M1314Depth= 0>
				<cfset cookie.M13141= 0>
				
				<cfset M1310_Length = 0>
				<cfset M1310_1 = 0>
				
				<cfset M1312_Width = 0>
				<cfset M1312_1 = 0>
				
				<cfset M1314_Depth = 0>
				<cfset M1314_1 = 0>
					
			</cfif>
		    
			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery name="M1312_Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">				
					update Assessment_New Set 
						M1310_Length = '#cookie.M1310Length#',
						M1310_1 = '#cookie.M13101#',
						M1312_Width = '#cookie.M1312Width#',
						M1312_1 = '#cookie.M13121#',
						M1314_Depth = '#cookie.M1314Depth#',
						M1314_1 = '#cookie.M13141#'
					WHERE Assessment_ID='#session.cs.AssessmentId#'				
			</cfquery>	
			</cfif>	
		</cfif>		
		
		<cfif M1308_d_2_Pressure eq ""> 
			<cfset M1308_d_2_Pressure = 0>
		</cfif>
		
		<cfif M1308_d_3_Pressure eq ""> 
			<cfset M1308_d_3_Pressure = 0>
		</cfif>
		
		<cfif Pressure_Ulcer_b_M0450 eq ""> 
			<cfset Pressure_Ulcer_b_M0450 = 0>
		</cfif>
		
		<cfif Pressure_Ulcer_c_M0450 eq ""> 
			<cfset Pressure_Ulcer_c_M0450 = 0>
		</cfif>
		
		<cfif Pressure_Ulcer_d_M0450 eq ""> 
			<cfset Pressure_Ulcer_d_M0450 = 0>
		</cfif>
		
		<cfif Pressure_Ulcer_e_M0450 eq ""> 
			<cfset Pressure_Ulcer_e_M0450 = 0>
		</cfif>
		
		<cfif M1306_Unhealed_Pressure contains("1 -") and Pressure_Ulcer_Status_M0464 contains("3 -") and 
		(Pressure_Ulcer_b_M0450 gt 0 or  M1308_d_3_Pressure gt 0) and Pressure_Ulcer_c_M0450 lt 1 and Pressure_Ulcer_d_M0450 lt 1 
			and Pressure_Ulcer_e_M0450 lt 1 and M1308_d_2_Pressure lt 1>
			<cfset cookie.PressureUlcerStatus = "3 - Not healing" >
			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery name="M1310_Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">				
					UPDATE Assessment_New SET					
						Pressure_Ulcer_Status_M0464='#cookie.PressureUlcerStatus#'															
					WHERE Assessment_ID = '#session.cs.AssessmentId#'				
		    </cfquery>
			</cfif>
		</cfif>
		
				
		<!---Set M1308a --->
		
		<cfif Count_Stage_2 gt 0>
			<cfset Pressure_Ulcer_b_M0450 = Count_Stage_2>
			<cfset cookie.PressureUlcerbM0450 = Count_Stage_2>
		<cfelse>
			<cfset Pressure_Ulcer_b_M0450 = 0>
			<cfset cookie.PressureUlcerbM0450 = 0>
		</cfif>
		
		<!---Set M1308b --->
		
		<cfif Count_Stage_3 gt 0>
			<cfset Pressure_Ulcer_c_M0450 = Count_Stage_3>
			<cfset cookie.PressureUlcercM0450 = Count_Stage_3>
		<cfelse>
			<cfset Pressure_Ulcer_c_M0450 = 0>
			<cfset cookie.PressureUlcercM0450 = 0>
		</cfif>
		
		<!---Set M1308c --->
		
		<cfif Count_Stage_4 gt 0>
			<cfset Pressure_Ulcer_d_M0450 = Count_Stage_4>
			<cfset cookie.PressureUlcerdM0450 = Count_Stage_4>
		<cfelse>
			<cfset Pressure_Ulcer_d_M0450 = 0>
			<cfset cookie.PressureUlcerdM0450 = 0>
		</cfif>
		
		<!---Set M1308_d1 --->
		
		<cfif Count_Stage_5 gt 0>
			<cfset Pressure_Ulcer_e_M0450 = Count_Stage_5>
			<cfset cookie.PressureUlcereM0450 = Count_Stage_5>
		<cfelse>
			<cfset Pressure_Ulcer_e_M0450 = 0>
			<cfset cookie.PressureUlcereM0450 = 0>
		</cfif>
		
		<!---Set M1308_d2 --->
		
		<cfif Count_Stage_6 gt 0>
			<cfset M1308_d_2_Pressure = Count_Stage_6>
			<cfset cookie.M1308d2Pressure =  Count_Stage_6>
		<cfelse>
			<cfset M1308_d_2_Pressure = 0>
			<cfset cookie.M1308d2Pressure = 0>
		</cfif>
		
		<!---Set M1308_d3 --->
		
		<cfif Count_Stage_7 gt 0>
			<cfset M1308_d_3_Pressure = Count_Stage_7>
			<cfset cookie.M1308d3Pressure = Count_Stage_7>
		<cfelse>
			<cfset M1308_d_3_Pressure = 0>
			<cfset cookie.M1308d3Pressure = 0>
		</cfif>
		     
			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery name="M1308_Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
				
					update Assessment_New Set 
						Pressure_Ulcer_b_M0450 = '#cookie.PressureUlcerbM0450#',
						Pressure_Ulcer_c_M0450 = '#cookie.PressureUlcercM0450#',
						Pressure_Ulcer_d_M0450 = '#cookie.PressureUlcerdM0450#',
						Pressure_Ulcer_e_M0450 = '#cookie.PressureUlcereM0450#',
						M1308_d_2_Pressure = '#cookie.M1308d2Pressure#',
						M1308_d_3_Pressure = '#M1308_d_3_Pressure#'
					WHERE Assessment_ID='#session.cs.AssessmentId#'				
			</cfquery>
			</cfif>
			
			
		<cfset M1308_a_12_Pressure = 0 >
		<cfset M1308_b_12_Pressure = 0 >
		<cfset M1308_c_12_Pressure = 0 >
		<cfset M1308_d_12_Pressure = 0 >
		<cfset M1308_d_22_Pressure = 0 >
		<cfset M1308_d_32_Pressure = 0 >
		  
		<cfif Assessment_Reason_M0100.indexOf("1") neq "-1">
			<cfset M1308_a_12_Pressure = Pressure_Ulcer_b_M0450 >
			<cfset M1308_b_12_Pressure = Pressure_Ulcer_c_M0450 >
			<cfset M1308_c_12_Pressure = Pressure_Ulcer_d_M0450 >
			<cfset M1308_d_12_Pressure = Pressure_Ulcer_e_M0450 >
			<cfset M1308_d_22_Pressure = M1308_d_2_Pressure >
			<cfset M1308_d_32_Pressure = M1308_d_3_Pressure >
			
			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery name="M1308_PUpdate_Assessment" datasource="#Application.DataSrc#" timeout="1000">
				
					update Assessment_New Set 
					M1308_a_12_Pressure = '#M1308_a_12_Pressure#',
					M1308_b_12_Pressure = '#M1308_b_12_Pressure#',
					M1308_c_12_Pressure = '#M1308_c_12_Pressure#',
					M1308_d_12_Pressure = '#M1308_d_12_Pressure#',
					M1308_d_22_Pressure = '#M1308_d_22_Pressure#',
					M1308_d_32_Pressure = '#M1308_d_32_Pressure#'
					WHERE Assessment_ID='#session.cs.AssessmentId#'				
			</cfquery>
			</cfif>
		</cfif>
		
		
		
		<!---Set M1322 --->
		<cfset Pressure_Ulcer_a_M0450 = "">
		
		<cfif Count_Stage_1 eq 0 >
			<cfset Pressure_Ulcer_a_M0450 = "0 - Zero">
			<cfset cookie.PressureUlceraM0450 = "0 - Zero">
		<cfelseif Count_Stage_1 eq "2" >
			<cfset Pressure_Ulcer_a_M0450 = "1 - One">
			<cfset cookie.PressureUlceraM0450 = "1 - One">
		<cfelseif Count_Stage_1 eq "3" >
			<cfset Pressure_Ulcer_a_M0450 = "2 - Two">
			<cfset cookie.PressureUlceraM0450 = "2 - Two">
		<cfelseif Count_Stage_1 eq "4" >	
			<cfset Pressure_Ulcer_a_M0450 = "3 - Three">
			<cfset cookie.PressureUlceraM0450 = "3 - Three">
		<cfelseif Count_Stage_1 eq "5" >
			<cfset Pressure_Ulcer_a_M0450 = "4 - Four or more">
			<cfset cookie.PressureUlceraM0450 = "4 - Four or more">
		</cfif>
		
		<!---Set M1324 --->
		<cfset Pressure_Ulcer_Stage_M0460 = "" >
		
		<cfif Count_Stage_4 neq 0 >
			<cfset Pressure_Ulcer_Stage_M0460 = "4 - Stage IV">
			<cfset cookie.PressureUlcerStageM0460 = "4 - Stage IV">
		<cfelseif Count_Stage_3 neq 0 >
			<cfset Pressure_Ulcer_Stage_M0460 = "3 - Stage III">
			<cfset cookie.PressureUlcerStageM0460 = "3 - Stage III">
		<cfelseif Count_Stage_2 neq 0 >
			<cfset Pressure_Ulcer_Stage_M0460 = "2 - Stage II">
			<cfset cookie.PressureUlcerStageM0460 = "2 - Stage II">
		<cfelseif Count_Stage_1 neq 0 >	
			<cfset Pressure_Ulcer_Stage_M0460 = "1 - Stage I">
			<cfset cookie.PressureUlcerStageM0460 = "1 - Stage I">
		<cfelse>
			<cfset Pressure_Ulcer_Stage_M0460 = "NA - No observable pressure ulcer">
			<cfset cookie.PressureUlcerStageM0460 = "NA - No observable pressure ulcer">	
		</cfif>
		
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery name="M0450_Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">			
				update Assessment_New Set 
				Pressure_Ulcer_a_M0450 = '#cookie.PressureUlceraM0450#',
				Pressure_Ulcer_Stage_M0460 = '#cookie.PressureUlcerStageM0460#'
				WHERE Assessment_ID='#session.cs.AssessmentId#'			
		</cfquery>
		</cfif>
		
		<!--- --->
		
		<cfif M1300_Pressure contains("0 -")>
			<cfset M1302_Pressure = "" >
			<cfset cookie.M1302Pressure="">
			<cfif isdefined('session.cs.AssessmentId')>
			<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">				
					update Assessment_New Set M1302_Pressure = '#cookie.M1302Pressure#'
					WHERE Assessment_ID='#session.cs.AssessmentId#'				
			</cfquery>	
			</cfif>	
		</cfif>
		
		
		<!---<cfif M1306_Unhealed_Pressure contains("0 -")>
		<cfset Pressure_Ulcer_b_M0450 = 0>
		<cfset cookie.PressureUlcerbM0450 = 0>
		<cfset Pressure_Ulcer_c_M0450 = 0>
		<cfset cookie.PressureUlcercM0450 = 0>
		<cfset Pressure_Ulcer_d_M0450 = 0>
		<cfset cookie.PressureUlcerdM0450 = 0>
		<cfset Pressure_Ulcer_e_M0450 = 0>
		<cfset cookie.PressureUlcereM0450 = 0>
		<cfset M1308_a_12_Pressure = 0 >
		<cfset M1308_b_12_Pressure = 0 >
		<cfset M1308_c_12_Pressure = 0 >
		<cfset M1308_d_12_Pressure = 0 >
		<cfset M1308_d_22_Pressure = 0 >
		<cfset M1308_d_32_Pressure = 0 >
		<cfset M1308_d_2_Pressure = 0>
		<cfset cookie.M1308d2Pressure = 0>
		<cfset M1308_d_3_Pressure = 0>
		<cfset cookie.M1308d3Pressure = 0>
		<cfset Pressure_Ulcer_Status_M0464 = "" >
		<cfset cookie.PressureUlcerStatus = "" >
		<cfset M1310_Length = 0>
		<cfset M1310_1 = 0 >
		<cfset M1312_Width = 0>
		<cfset M1312_1 = 0 >
		<cfset M1314_Depth = 0>
		<cfset M1314_1 = 0>
		<cfset cookie.M1310Length= 0>
		<cfset cookie.M13101= 0>		
		<cfset cookie.M1312Width= 0>
		<cfset cookie.M13121= 0>		
		<cfset cookie.M1314Depth= 0>
		<cfset cookie.M13141= 0>
		
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">			
				update Assessment_New Set Pressure_Ulcer_b_M0450 = '#Pressure_Ulcer_b_M0450#',
				Pressure_Ulcer_c_M0450 = '#Pressure_Ulcer_c_M0450#',
				Pressure_Ulcer_d_M0450 = '#Pressure_Ulcer_d_M0450#',				
				Pressure_Ulcer_e_M0450 = '#Pressure_Ulcer_e_M0450#',
				M1308_a_12_Pressure = '#M1308_a_12_Pressure#',
				M1308_b_12_Pressure = '#M1308_b_12_Pressure#',
				M1308_c_12_Pressure = '#M1308_c_12_Pressure#',
				M1308_d_12_Pressure = '#M1308_d_12_Pressure#',
				M1308_d_22_Pressure = '#M1308_d_22_Pressure#',
				M1308_d_32_Pressure = '#M1308_d_32_Pressure#',
				M1308_d_2_Pressure = '#M1308_d_2_Pressure#',
				M1308_d_3_Pressure = '#M1308_d_3_Pressure#',
				Pressure_Ulcer_Status_M0464 = '#Pressure_Ulcer_Status_M0464#',
				M1310_Length = '#M1310_Length#',
				M1310_1 = '#M1310_1#',
				M1312_Width = '#M1312_Width#',
				M1312_1 = '#M1312_1#',
				M1314_Depth = '#M1314_Depth#',
				M1314_1 = '#M1314_1#'
				WHERE Assessment_ID='#session.cs.AssessmentId#'			
		</cfquery>
		</cfif>
	</cfif>--->
	
	
	
	<cfif Pressure_Ulcer_a_M0450 contains("0") and M1306_Unhealed_Pressure contains("0")>
		<cfset Pressure_Ulcer_Stage_M0460 = "NA - No observable pressure ulcer" >
		<cfset cookie.PressureUlcerStageM0460 = "NA - No observable pressure ulcer">
		<cfif isdefined('session.cs.AssessmentId')>
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">			
				update Assessment_New Set Pressure_Ulcer_Stage_M0460 = '#cookie.PressureUlcerStageM0460#'
				WHERE Assessment_ID='#session.cs.AssessmentId#'			
		</cfquery>
		</cfif>
	</cfif>
	
	<cfif Stasis_Ulcer_M0468 contains("0 -") or Stasis_Ulcer_M0468 contains("3 -")>
		<cfset Surgical_Wound_Status_M0488 = "" >
		<cfset cookie.SurgicalWoundStatusM0488 = "">

		
		<cfif isdefined('session.cs.AssessmentId')>		
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">			
				update Assessment_New Set Surgical_Wound_Status_M0488 = '#cookie.SurgicalWoundStatusM0488#'
				WHERE Assessment_ID='#session.cs.AssessmentId#'			
		</cfquery>
		</cfif>
	</cfif>	
	
	<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT * FROM PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Stasis Ulcer'  and type='Wound' 
	</cfquery>
	
	<Cfset Count_Stasis = Wound_Details.RecordCount>
	
	<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT count(Wnd_Status) as Wnd_StatusCount FROM PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Stasis Ulcer'  and type='Wound' and Wnd_Status like '%NA%'
	</cfquery>
	
	<cfset Count_Stasis_Status_NA =Wound_Details.Wnd_StatusCount>
	
	<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT count(Wnd_Status) as Wnd_StatusCount FROM PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Stasis Ulcer'  and type='Wound' and Wnd_Status like '%0%'
	</cfquery>
	
	<cfset Count_Stasis_Status_0 =Wound_Details.Wnd_StatusCount>
	
	<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT count(Wnd_Status) as Wnd_StatusCount FROM PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Stasis Ulcer'  and type='Wound' and Wnd_Status like '%1%'
	</cfquery>
	
	<cfset Count_Stasis_Status_1 =Wound_Details.Wnd_StatusCount>
	
	<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT count(Wnd_Status) as Wnd_StatusCount FROM PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Stasis Ulcer'  and type='Wound' and Wnd_Status like '%2%'
	</cfquery>
	
	<cfset Count_Stasis_Status_2 =Wound_Details.Wnd_StatusCount>
	
	
	<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT count(Wnd_Status) as Wnd_StatusCount FROM PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Stasis Ulcer'  and type='Wound' and Wnd_Status like '%3%'
	</cfquery>
	
	<cfset Count_Stasis_Status_3 =Wound_Details.Wnd_StatusCount>
	
	<!--- Set M0470 --->
	
	<cfif Count_Stasis neq 0 and Count_Stasis_Status_NA eq 0>
	    <cfset cookie.StasisUlcerM0468 = "2 - Yes, patient has observable stasis ulcers ONLY">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update Assessment_New Set Stasis_Ulcer_M0468 = '1 - Yes, patient has BOTH observable and unobservable stasis ulcers'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Stasis neq 0 and Count_Stasis_Status_NA neq 0 and Count_Stasis_Status_1 eq 0 
	and Count_Stasis_Status_2 eq 0 and Count_Stasis_Status_3 eq 0>
	    <cfset cookie.StasisUlcerM0468 = "1 - Yes, patient has BOTH observable and unobservable stasis ulcers">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update Assessment_New Set Stasis_Ulcer_M0468 = '2 - Yes, patient has observable stasis ulcers ONLY'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Stasis eq 0 >
		<cfset cookie.StasisUlcerM0468 = "0 - No">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update Assessment_New Set Stasis_Ulcer_M0468 = '0 - No'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelse>
	    <cfset cookie.StasisUlcerM0468 = "3 - Yes, patient has unobservable stasis ulcers ONLY (known but not observable due to non-removable dressing)">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update Assessment_New Set Stasis_Ulcer_M0468 = '3 - Yes, patient has unobservable stasis ulcers ONLY (known but not observable due to non-removable dressing)'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	</cfif>	
	
	<cfset Stasis_Ulcer_Num_M0470 = "">

	<cfif Count_Stasis eq 1>
	    <cfset cookie.StasisUlcerNumM0470 = "1 - One">
		<cfset Stasis_Ulcer_Num_M0470 = "1 - One">
	<cfelseif Count_Stasis eq 2>
		<cfset cookie.StasisUlcerNumM0470 = "2 - Two">
		<cfset Stasis_Ulcer_Num_M0470 = "2 - Two">
	<cfelseif Count_Stasis eq 3>
		<cfset cookie.StasisUlcerNumM0470 = "3 - Three">
		<cfset Stasis_Ulcer_Num_M0470 = "3 - Three">
	<cfelseif Count_Stasis eq 4>
		<cfset cookie.StasisUlcerNumM0470 = "4 - Four or more">
		<cfset Stasis_Ulcer_Num_M0470 = "4 - Four or more">
	<cfelse>		
		<cfset cookie.StasisUlcerNumM0470 = "0 - Zero">
		<cfset Stasis_Ulcer_Num_M0470 = "0 - Zero">	
	</cfif>
	
	<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update Assessment_New Set Stasis_Ulcer_Num_M0470 = '#Stasis_Ulcer_Num_M0470#'
		WHERE Assessment_ID='#session.cs.AssessmentId#'
	</cfquery>
	
	<cfset Stasis_Ulcer_Status_M0476 ="">
	<cfif Count_Stasis_Status_3 neq "">
		<cfset Stasis_Ulcer_Status_M0476 ="3 - Not healing">	
		<cfset cookie.StasisUlcerStatusM0476 = "3 - Not healing">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update Assessment_New Set Stasis_Ulcer_Status_M0476 = '#Stasis_Ulcer_Status_M0476#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Stasis_Status_2 neq "">
		<cfset Stasis_Ulcer_Status_M0476 ="2 - Early/partial granulation">	
		<cfset cookie.StasisUlcerStatusM0476 = "2 - Early/partial granulation">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update Assessment_New Set Stasis_Ulcer_Status_M0476 = '#Stasis_Ulcer_Status_M0476#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Stasis_Status_1 neq "">
		<cfset Stasis_Ulcer_Status_M0476 ="1 - Fully granulating">	
		<cfset cookie.StasisUlcerStatusM0476 = "1 - Fully granulating">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update Assessment_New Set Stasis_Ulcer_Status_M0476 = '#Stasis_Ulcer_Status_M0476#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelse>
		<cfset Stasis_Ulcer_Status_M0476 ="0 - Newly epithelialized">	
		<cfset cookie.StasisUlcerStatusM0476 = "0 - Newly epithelialized">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update Assessment_New Set Stasis_Ulcer_Status_M0476 = '#Stasis_Ulcer_Status_M0476#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	</cfif>
	
	
	<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
		SELECT * FROM PatientVisitDetails
		where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Surgical Wound'  and type='Wound' 
	</cfquery>
	
	<Cfset Count_Surgical = Wound_Details.RecordCount>
	
	<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT count(Wnd_Status) as Wnd_StatusCount FROM PatientVisitDetails
	where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Surgical Wound'  and type='Wound' and Wnd_Status like '%NA%'
	</cfquery>
	
	<cfset Count_Surgical_Status_NA =Wound_Details.Wnd_StatusCount>
	
	<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT count(Wnd_Status) as Wnd_StatusCount FROM PatientVisitDetails
	where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Surgical Wound'  and type='Wound' and Wnd_Status like '%0%'
	</cfquery>
	
	<cfset Count_Surgical_Status_0 =Wound_Details.Wnd_StatusCount>
	
	<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT count(Wnd_Status) as Wnd_StatusCount FROM PatientVisitDetails
	where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Surgical Wound'  and type='Wound' and Wnd_Status like '%1%'
	</cfquery>
	
	<cfset Count_Surgical_Status_1 =Wound_Details.Wnd_StatusCount>
	
	<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT count(Wnd_Status) as Wnd_StatusCount FROM PatientVisitDetails
	where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Surgical Wound'  and type='Wound' and Wnd_Status like '%2%'
	</cfquery>
	
	<cfset Count_Surgical_Status_2 =Wound_Details.Wnd_StatusCount>
	
	<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT count(Wnd_Status) as Wnd_StatusCount FROM PatientVisitDetails
	where assessment_id ='#session.cs.AssessmentId#' and  Wnd_Type='Surgical Wound'  and type='Wound' and Wnd_Status like '%3%'
	</cfquery>

	<cfset Count_Surgical_Status_3 =Wound_Details.Wnd_StatusCount>
	
	<cfif Count_Surgical neq 0 and Count_Surgical_Status_NA eq 0>
		<cfset cookie.SurgicalWoundM0482 = "1 - Yes, patient has at least one (observable) surgical wound">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update Assessment_New Set Surgical_Wound_M0482 = '1 - Yes, patient has at least one (observable) surgical wound'
		WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Surgical neq 0 and Count_Surgical_Status_NA neq 0 and Count_Surgical_Status_1 eq 0 
	and Count_Surgical_Status_2 eq 0 and Count_Surgical_Status_3 eq 0 >
		<cfset cookie.SurgicalWoundM0482 = "2 - Surgical wound known or likely but not observable due to non-removable dressing">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update Assessment_New Set Surgical_Wound_M0482 = '2 - Surgical wound known or likely but not observable due to non-removable dressing' WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Surgical eq 0 >
		<cfset cookie.SurgicalWoundM0482 = "0 - No">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update Assessment_New Set Surgical_Wound_M0482 = '0 - No'
		WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	</cfif>
	
	
	<cfset Surgical_Wound_Status_M0488 ="">
	<cfif Count_Surgical_Status_3 neq "">
		<cfset Surgical_Wound_Status_M0488 ="3 - Not healing">	
		<cfset cookie.SurgicalWoundStatusM0488 = "3 - Not healing">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update Assessment_New Set Surgical_Wound_Status_M0488 = '#Surgical_Wound_Status_M0488#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Surgical_Status_2 neq "">
		<cfset Surgical_Wound_Status_M0488 ="2 - Early/partial granulation">
		<cfset cookie.SurgicalWoundStatusM0488 = "2 - Early/partial granulation">	
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update Assessment_New Set Surgical_Wound_Status_M0488 = '#Surgical_Wound_Status_M0488#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelseif Count_Surgical_Status_1 neq "">
		<cfset Surgical_Wound_Status_M0488 ="1 - Fully granulating">
		<cfset cookie.SurgicalWoundStatusM0488 = "1 - Fully granulating">	
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update Assessment_New Set Surgical_Wound_Status_M0488 = '#Surgical_Wound_Status_M0488#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	<cfelse>
		<cfset Surgical_Wound_Status_M0488 ="0 - Newly epithelialized">	
		<cfset cookie.SurgicalWoundStatusM0488 = "0 - Newly epithelialized">
		<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
			update Assessment_New Set Surgical_Wound_Status_M0488 = '#Surgical_Wound_Status_M0488#'
			WHERE Assessment_ID='#session.cs.AssessmentId#'
		</cfquery>
	</cfif>
	
		
	<cfreturn 'AutoFillComplete'>	
	<cfelse>	
	<cflocation url="myhomecarebiz.com" addtoken="no">
	</cfif>
		
	</cffunction>
	
</cfcomponent>
