<cfset Assessment_ID = "175847" />

<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,M1310_1
	FROM #Request.prefix_db_agency#.Assessment_New 
	WHERE Assessment_ID='#Assessment_ID#'
</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 #Request.prefix_db_agency#.PatientVisitDetails 
	where assessment_id ='#Assessment_ID#' and 
	type='Wound' and wnd_type is not null limit 1
</cfquery>

<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 />

<cfquery name="Wound_Details" datasource="#Application.DataSrc#" timeout="1000">
	SELECT Wnd_Stage,Wnd_Status FROM #Request.prefix_db_agency#.PatientVisitDetails 
	where assessment_id ='#Assessment_ID#' 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 =Mid(Braden_1_Sensory,1,1) />
<cfset Braden_2 =Mid(Braden_2_Moisture,1,1) />
<cfset Braden_3 =Mid(Braden_3_Activity,1,1) />
<cfset Braden_4 =Mid(Braden_4_Mobility,1,1) />
<cfset Braden_5 =Mid(Braden_5_Nutrition,1,1) />
<cfset Braden_6 =Mid(Braden_6_Friction,1,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.indexOf("MODERATE") neq "-1" or Braden_Risk.indexOf("HIGH") neq "-1">
	<cfset M1302_Pressure = "1 - Yes" />
<cfelse>
	<cfset M1302_Pressure = "0 - No" />
</cfif>

	<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.Assessment_New Set M1302_Pressure = '#M1302_Pressure#'
		WHERE Assessment_ID='#Assessment_ID#'
	</cfquery>



<!--- #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.indexOf("1") neq "-1">
		<cfset Count_Stage_1  =  Count_Stage_1 + "1"  />
	<cfelseif Wnd_Stage.indexOf("2") neq "-1">
		<cfset Count_Stage_2  = Count_Stage_2 + "1"  />
	<cfelseif Wnd_Stage.indexOf("3") neq "-1">
		<cfset Count_Stage_3  = Count_Stage_3 + "1"  />
	<cfelseif Wnd_Stage.indexOf("4") neq "-1">
		<cfset Count_Stage_4  = Count_Stage_4 + "1"  />
	<cfelseif Wnd_Stage.indexOf("5") neq "-1">
		<cfset Count_Stage_5  = Count_Stage_5 + "1"  />
	<cfelseif Wnd_Stage.indexOf("6") neq "-1">
		<cfset Count_Stage_6  = Count_Stage_6 + "1"  />
	<cfelseif Wnd_Stage.indexOf("7") neq "-1">
		<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 M1306_Unhealed_Pressure="1 - Yes" />
<cfelse>
	<cfset M1306_Unhealed_Pressure="0 - No" />
</cfif>

<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
	update #Request.prefix_db_agency#.Assessment_New Set M1306_Unhealed_Pressure = '#M1306_Unhealed_Pressure#'
	WHERE Assessment_ID='#Assessment_ID#'
</cfquery>


<!--- Set M1320 --->

<cfset Pressure_Ulcer_Status_M0464 = ""  />

<cfset Count_Status_3 = "0"  />
<cfset Count_Status_2 = "0"  />
<cfset Count_Status_1 = "0"  />

<cfloop query="Wound_Details">
	<cfif Wnd_Status.indexOf("3") neq "-1">
		<cfset Count_Status_3 = Count_Status_3 + "1"  />
	<cfelseif Wnd_Status.indexOf("2") neq "-1">
		<cfset Count_Status_2 = Count_Status_2 + "1"  />
	<cfelseif Wnd_Status.indexOf("1") neq "-1">
		<cfset Count_Status_1 = Count_Status_1 + "1"  />
	</cfif>
</cfloop>

<cfif M1310_1 eq "">
	<cfif Count_Status_1 neq "0">
		<cfset Pressure_Ulcer_Status_M0464 = "1 - Fully granulating"  />
	<cfelseif Count_Status_2 neq "0" >
		<cfset Pressure_Ulcer_Status_M0464 = "2 - Early/partial granulation"  />
	<cfelseif Count_Status_3 neq "0" >
		<cfset Pressure_Ulcer_Status_M0464 = "3 - Not healing"  />
	<cfelse>
		<cfset Pressure_Ulcer_Status_M0464 = "NA - No observable pressure ulcer"  />	
	</cfif>
	
	<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.Assessment_New Set Pressure_Ulcer_Status_M0464='#Pressure_Ulcer_Status_M0464#'
		WHERE Assessment_ID='#Assessment_ID#'
	</cfquery>
</cfif>

<cfif M1310_1 eq "">
	<cfif Pressure_Ulcer_Status_M0464.indexOf("NA - ") eq "-1">
		<!---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 M1310_Length = "" />
		<cfset M1310_1 = "" />
		
		<cfset M1312_Width = "" />
		<cfset M1312_1 = "" />
		
		<cfset M1314_Depth = "" />
		<cfset M1314_1 = "" />
			
	</cfif>

	<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.Assessment_New Set 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='#Assessment_ID#'
	</cfquery>

	
</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.indexOf("1 -") neq "-1" and  Pressure_Ulcer_Status_M0464.indexOf("3 -") eq "-1" 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 Pressure_Ulcer_Status_M0464 = "3 - Not healing"  />
	<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.Assessment_New Set Pressure_Ulcer_Status_M0464 = '#Pressure_Ulcer_Status_M0464#'
		WHERE Assessment_ID='#Assessment_ID#'
	</cfquery>
</cfif>

<cfif Count_Stage_2 eq ""> 
	<cfset Count_Stage_2 = "0" />
</cfif>
<cfif Count_Stage_3 eq ""> 
	<cfset Count_Stage_3 = "0" />
</cfif>
<cfif Count_Stage_4 eq ""> 
	<cfset Count_Stage_4 = "0" />
</cfif>
<cfif Count_Stage_5 eq ""> 
	<cfset Count_Stage_5 = "0" />
</cfif>
<cfif Count_Stage_6 eq ""> 
	<cfset Count_Stage_6 = "0" />
</cfif>
<cfif Count_Stage_7 eq ""> 
	<cfset Count_Stage_7 = "0" />
</cfif>

<!---Set M1308a --->

<cfif Count_Stage_2 gt 0>
	<cfset Pressure_Ulcer_b_M0450 = Count_Stage_2 />
<cfelse>
	<cfset Pressure_Ulcer_b_M0450 = 0 />
</cfif>

<!---Set M1308b --->

<cfif Count_Stage_3 gt 0>
	<cfset Pressure_Ulcer_c_M0450 = Count_Stage_3 />
<cfelse>
	<cfset Pressure_Ulcer_c_M0450 = 0 />
</cfif>

<!---Set M1308c --->

<cfif Count_Stage_4 gt 0>
	<cfset Pressure_Ulcer_d_M0450 = Count_Stage_4 />
<cfelse>
	<cfset Pressure_Ulcer_d_M0450 = 0 />
</cfif>

<!---Set M1308_d1 --->

<cfif Count_Stage_5 gt 0>
	<cfset Pressure_Ulcer_e_M0450 = Count_Stage_5 />
<cfelse>
	<cfset Pressure_Ulcer_e_M0450 = 0 />
</cfif>

<!---Set M1308_d2 --->

<cfif Count_Stage_6 gt 0>
	<cfset M1308_d_2_Pressure = Count_Stage_6 />
<cfelse>
	<cfset M1308_d_2_Pressure = 0 />
</cfif>

<!---Set M1308_d3 --->

<cfif Count_Stage_7 gt 0>
	<cfset M1308_d_3_Pressure = Count_Stage_7 />
<cfelse>
	<cfset M1308_d_3_Pressure = 0 />
</cfif>

	<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.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_d_2_Pressure = '#M1308_d_2_Pressure#',M1308_d_3_Pressure = '#M1308_d_3_Pressure#'
		WHERE Assessment_ID='#Assessment_ID#'
	</cfquery>

<cfset M1308_a_12_Pressure = ""  />
<cfset M1308_b_12_Pressure = ""  />
<cfset M1308_c_12_Pressure = ""  />
<cfset M1308_d_12_Pressure = ""  />
<cfset M1308_d_22_Pressure = ""  />
<cfset M1308_d_32_Pressure = ""  />
  
<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  />
	<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.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='#Assessment_ID#'
	</cfquery>
</cfif>

<!---Set M1322 --->
<cfset Pressure_Ulcer_a_M0450 = "" />

<cfif Count_Stage_1 eq "0" >
	<cfset Pressure_Ulcer_a_M0450 = "0 - Zero" />
<cfelseif Count_Stage_1 eq "2" >
	<cfset Pressure_Ulcer_a_M0450 = "1 - One" />
<cfelseif Count_Stage_1 eq "3" >
	<cfset Pressure_Ulcer_a_M0450 = "2 - Two" />
<cfelseif Count_Stage_1 eq "4" >	
	<cfset Pressure_Ulcer_a_M0450 = "3 - Three" />
<cfelseif Count_Stage_1 eq "5" >
	<cfset Pressure_Ulcer_a_M0450 = "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" />
<cfelseif Count_Stage_3 neq "2" >
	<cfset Pressure_Ulcer_Stage_M0460 = "3 - Stage III" />
<cfelseif Count_Stage_2 eq "3" >
	<cfset Pressure_Ulcer_Stage_M0460 = "2 - Stage II" />
<cfelseif Count_Stage_1 eq "4" >	
	<cfset Pressure_Ulcer_Stage_M0460 = "1 - Stage I" />
<cfelse>
	<cfset Pressure_Ulcer_Stage_M0460 = "NA - No observable pressure ulcer or unhealed pressure ulcer" />	
</cfif>

<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.Assessment_New Set Pressure_Ulcer_a_M0450 = '#Pressure_Ulcer_a_M0450#',Pressure_Ulcer_Stage_M0460 = '#Pressure_Ulcer_Stage_M0460#'
		WHERE Assessment_ID='#Assessment_ID#'
</cfquery>

<!--- --->

<cfif M1300_Pressure.indexOf("0 -") neq "-1">
	<cfset M1302_Pressure = ""  />
	<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.Assessment_New Set M1302_Pressure = '#M1302_Pressure#'
		WHERE Assessment_ID='#Assessment_ID#'
	</cfquery>

</cfif>

<cfif M1306_Unhealed_Pressure.indexOf("0 -") neq "-1">
	<cfset Pressure_Ulcer_b_M0450 = "" />
	<cfset Pressure_Ulcer_c_M0450 = "" />
	<cfset Pressure_Ulcer_d_M0450 = "" />
	<cfset Pressure_Ulcer_e_M0450 = "" />
	<cfset M1308_a_12_Pressure = ""  />
	<cfset M1308_b_12_Pressure = ""  />
	<cfset M1308_c_12_Pressure = ""  />
	<cfset M1308_d_12_Pressure = ""  />
	<cfset M1308_d_22_Pressure = ""  />
	<cfset M1308_d_32_Pressure = ""  />
	<cfset M1308_d_2_Pressure = "" />
	<cfset M1308_d_3_Pressure = "" />
	<cfset Pressure_Ulcer_Status_M0464 = ""  />
	<cfset M1310_Length = "" />
	<cfset M1310_1 = ""  />
	<cfset M1312_Width = "" />
	<cfset M1312_1 = ""  />
	<cfset M1314_Depth = "" />
	<cfset M1314_1 = "" />
	
	<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.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_b_M0450 = '#Pressure_Ulcer_b_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='#Assessment_ID#'
	</cfquery>
</cfif>

<cfif Pressure_Ulcer_a_M0450.indexOf("0") neq "-1" and M1306_Unhealed_Pressure.indexOf("0") neq "-1">
	<cfset Pressure_Ulcer_Stage_M0460 = "NA - No observable pressure ulcer"  />
	<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.Assessment_New Set Pressure_Ulcer_Stage_M0460 = '#Pressure_Ulcer_Stage_M0460#'
		WHERE Assessment_ID='#Assessment_ID#'
	</cfquery>
</cfif>

<cfif Stasis_Ulcer_M0468.indexOf("0 -") neq "-1" or Stasis_Ulcer_M0468.indexOf("3 -") neq "-1">
	<cfset Surgical_Wound_Status_M0488 = ""  />
	<cfquery name="Update_Assessment" datasource="#Application.DataSrc#" timeout="1000">
		update #Request.prefix_db_agency#.Assessment_New Set Surgical_Wound_Status_M0488 = '#Surgical_Wound_Status_M0488#'
		WHERE Assessment_ID='#Assessment_ID#'
	</cfquery>
</cfif>


