<cfparam name="url.rtn" default="assessment_form" />
<cfparam name='url.na' default='' />
<cfif url.na eq 'y'>
<cfset session.cs.AssessmentId = 0 />
</cfif>

<cfquery name="Treatment_Auth_Calc" datasource="#Application.DataSrc#">
	SELECT Assessment_New.Assessment_ID,
	Assessment_New.Start_of_Care_M0030,
	Assessment_New.Assessment_Completed_M0090,
	Assessment_New.Assessment_Reason_M0100,
	Assessment_New.M0110
	FROM #Request.prefix_db_agency#.Assessment_New
	WHERE Assessment_New.Assessment_ID='#session.cs.AssessmentId#'
</cfquery>
 
 
<!-- Find M0030_Year_Short  --->
<cfset Start_of_Care_M0030=Treatment_Auth_Calc.Start_of_Care_M0030 />
<cfset M0030_Year_Short=DateFormat(Start_of_Care_M0030, "yy")  />

<!-- Find M0030_Julian  --->
<cfset Yearfind=DateFormat(Start_of_Care_M0030, "yyyy") />
<cfset M0030_Julian="" />
<cfset monthday="01/01/" />
<cfset dtFrom = monthday & " " & Yearfind />
<cfset dtTo = #CreateODBCDate(Treatment_Auth_Calc.Start_of_Care_M0030)# />
<cfset dtDiff = (dtTo - dtFrom) />
<cfset Juliandays=dtDiff + 1 />

<cfquery name="visit_schedules" datasource="#Application.DataSrc#">
	SELECT JulianAlpha
	FROM #Request.prefix_db_lookup#.visit_schedules 
	where juliannumber=#Juliandays#;
</cfquery>
<cfset M0030_Julian=visit_schedules.JulianAlpha />

<!-- Find M0090_Year_Short  --->
<cfset Assessment_Completed_M0090=Treatment_Auth_Calc.Assessment_Completed_M0090 />
<cfset M0090_Year_Short=DateFormat(Assessment_Completed_M0090, "yy")  />

<!-- Find M0090_Julian  --->
<cfset Yearfind1=DateFormat(Assessment_Completed_M0090, "yyyy") />
<cfset M0090_Julian="" />
<cfset monthday1="01/01/" />
<cfset dtFrom1 = monthday1 & " " & Yearfind1 />
<cfset dtTo1 = #CreateODBCDate(Assessment_Completed_M0090)# />
<cfset dtDiff1 = (dtTo1 - dtFrom1) />
<cfset Juliandays1 = dtDiff1 + 1 />
<cfquery name="visit_schedules1" datasource="#Application.DataSrc#">
	SELECT JulianAlpha
	FROM #Request.prefix_db_lookup#.visit_schedules 
	where juliannumber=#Juliandays1#;
</cfquery>
<cfset M0090_Julian=visit_schedules1.JulianAlpha />


<!-- find M0100_Short -->
<cfset Assessment_Reason_M0100=Treatment_Auth_Calc.Assessment_Reason_M0100 />
<cfset M0100_Short=#Left(Assessment_Reason_M0100,1)# />

<!-- Find M0110_Short-->
<cfset M0110=Treatment_Auth_Calc.M0110 />
<cfset M0110_Short=#Left(M0110,1)# />


<cfquery name="HippsCalc" datasource="#Application.DataSrc#">
SELECT Assessment_New.Assessment_ID,
        Assessment_New.M0110,
        Assessment_New.M0826_Ther_Need,
        Assessment_New.Therapies_Home_M0250,
        Assessment_New.Ostomy_for_Bowel_M0550,
        Assessment_New.M1840_Toilet,
        Assessment_New.Dress_Upper_M0650,
        Assessment_New.Dress_Lower_M0660,
        Assessment_New.Ambulation_M0700,
        Assessment_New.Bathing_M0670,
        Assessment_New.Toileting_M0680,
        Assessment_New.Transferring_M0690,
        Assessment_New.Ambulation_M0700,
        Assessment_New.Pressure_Ulcer_Stage_M0460,
        Assessment_New.Pressure_Ulcer_a_M0450,
        Assessment_New.Pressure_Ulcer_b_M0450,
        Assessment_New.Pressure_Ulcer_c_M0450,
        Assessment_New.Pressure_Ulcer_d_M0450,
        Assessment_New.Pressure_Ulcer_e_M0450,
        Assessment_New.M1308_d_2_Pressure,
        Assessment_New.M1308_d_3_Pressure,
        Assessment_New.Vision_M0390,
        Assessment_New.Stasis_Ulcer_Num_M0470,
        Assessment_New.Freq_of_Pain_M0420,
        Assessment_New.Stasis_Ulcer_Num_M0470,
        Assessment_New.Pressure_Ulcer_c_M0450,
        Assessment_New.Pressure_Ulcer_d_M0450,
        Assessment_New.Pressure_Ulcer_Stage_M0460,
        Assessment_New.Stasis_Ulcer_Hidden_M0474,
        Assessment_New.Stasis_Ulcer_Status_M0476,
        Assessment_New.Surgical_Wound_Status_M0488,
        Assessment_New.Surgical_Wound_M0482,
        Assessment_New.Breathing_M0490,
        Assessment_New.Bowel_Incont_M0540,
        Assessment_New.Inject_Meds_M0800,
        Assessment_New.Assessment_Completed_M0090,
        Assessment_New.Toileting_M0680,
        Assessment_New.Urinary_INcont_M0520,
        Assessment_New.Bowel_Incont_M0540,
        Assessment_New.Transferring_M0690,
        Assessment_New.Ambulation_M0700,
        Assessment_New.patient_ID,
		Assessment_New.Surgical_Wound_M0482
FROM #Request.prefix_db_agency#.Assessment_New
        WHERE Assessment_New.Assessment_ID='#session.cs.AssessmentId#'
</cfquery>

<cfset Diagnosispatient_ID=HippsCalc.patient_ID />
<cfset DiagnosisAssessment_ID=HippsCalc.Assessment_ID />



<cfquery datasource="#Application.DataSrc#" name="Diagnosis">
        SELECT p.ICD,
        p.Code_Type,
        p.DG_Type
        FROM #Request.prefix_db_agency#.Diagnosis p where patient_ID=#Diagnosispatient_ID#
        AND assessment_ID=#DiagnosisAssessment_ID# and M0230_Link is not null order by p.Dx_Order
</cfquery>

<cfset Sum_Clinical_2008_1="" />
<cfset Sum_Clinical_2008_2="" />
<cfset Sum_Clinical_2008_3="" />
<cfset Sum_Clinical_2008_4="" />

<cfset Diagnosis_CaseMix_1="" />
<cfset Diagnosis_CaseMix_2="" />
<cfset Diagnosis_CaseMix_3="" />
<cfset Diagnosis_CaseMix_4="" />
<cfset Diagnosis_CaseMix_5="" />
<cfset Diagnosis_CaseMix_6="" />

<cfset Diagnosis1="" />
<cfset Diagnosis2="" />
<cfset Diagnosis3="" />
<cfset Diagnosis4="" />
<cfset Diagnosis5="" />
<cfset Diagnosis6="" />
<cfset Code_Type="" />

<cfset DiagnosisIndex=0 />

<cfloop query="Diagnosis">
       
        <cfif DiagnosisIndex eq 0>
                <cfset Code_Type=Diagnosis.Code_Type />
                <cfset Diagnosis_CaseMix_1=Diagnosis.DG_Type />
                <cfset Diagnosis1=Diagnosis.ICD />       
        </cfif>
       
        <cfif DiagnosisIndex eq 1>
                <cfset Diagnosis_CaseMix_2=Diagnosis.DG_Type />  
                <cfset Diagnosis2=Diagnosis.ICD />
        </cfif>
       
        <cfif DiagnosisIndex eq 2>
                <cfset Diagnosis_CaseMix_3=Diagnosis.DG_Type />  
                <cfset Diagnosis3=Diagnosis.ICD />

        </cfif>
       
        <cfif DiagnosisIndex eq 3>
                <cfset Diagnosis_CaseMix_4=Diagnosis.DG_Type />  
                <cfset Diagnosis4=Diagnosis.ICD />
        </cfif>
       
       
        <cfif DiagnosisIndex eq 4>
                <cfset Diagnosis_CaseMix_5=Diagnosis.DG_Type />
                <cfset Diagnosis5=Diagnosis.ICD />       
        </cfif>
       
        <cfif DiagnosisIndex eq 5>
                <cfset Diagnosis_CaseMix_6=Diagnosis.DG_Type />
                <cfset Diagnosis6=Diagnosis.ICD />
        </cfif>
       
       
        <cfset DiagnosisIndex=DiagnosisIndex+1 />
</cfloop>





<cfset M0110_Episode_Timing = HippsCalc.M0110 />
<cfset M0826_Ther_Need = HippsCalc.M0826_Ther_Need />
<cfset index =1 />
<cfloop from="1" to="4" index="i">
	<cfset Equation_Calc_Run = index />
	<cfset Sum_Clinical_2008 = "0" />
	
	<!--Find Clinical_01-->
	<cfset Clinical_01="0" />
	<cfset Link_Supply_1="" />
	<cfset Diagnosis_Case_Mix_All ="" />
	<!--Find Link_Supply_1-->
	
	<cfset ICD=Diagnosis1 />
	<cfset SupplyNo="" />
	<cfset T07_Diagnosis_ICDSupplyNo="" />
	<cfset T07_M0246SupplyNo="" />
	<cfset Surgical_Wound_M0482 = HippsCalc.Surgical_Wound_M0482 />
	<cfif Surgical_Wound_M0482.indexOf("1 - ") >
		<cfset Code_Type="CPT" />
	<cfelse>
		<cfset Code_Type=Code_Type />
	</cfif>

	
	<cfif Code_Type eq "ICD" AND ICD.indexOf("V55.5") eq "-1" AND ICD.indexOf("V55.6") eq "-1" AND ICD.indexOf("V55.0") eq "-1" >
			<cfset Link_Supply_1=SupplyNo />
	<cfelseif ICD.indexOf("V55.5") eq "-1" OR ICD.indexOf("V55.6") eq "-1" OR ICD.indexOf("V55.0") eq "-1" >
			<cfset Link_Supply_1=SupplyNo />
	<cfelseif Code_Type eq "V_Code" AND ICD.indexOf("V55.5") eq "-1" AND ICD.indexOf("V55.6") eq "-1" AND ICD.indexOf("V55.0") eq "-1">
			<cfset Link_Supply_1=SupplyNo />
	</cfif>
	<!--Find Diagnosis_Case_Mix_All-->
	
	
	<cfset Diagnosis_Case_Mix_All = Diagnosis_CaseMix_1 &" "& Diagnosis_CaseMix_2 &" "& Diagnosis_CaseMix_3 &" "& Diagnosis_CaseMix_4 &" "& Diagnosis_CaseMix_5 &" "& Diagnosis_CaseMix_6  />
	
	
	
	<cfif Equation_Calc_Run eq "5" AND Link_Supply_1 eq "1">
			<cfset Clinical_01="15" />
	<cfelseif Equation_Calc_Run neq "5" AND Diagnosis_Case_Mix_All.indexof("Blind") neq "-1">
			<cfset Clinical_01="3" />
	</cfif>
	
	<!--Find Clinical_02-->
	<cfset Clinical_02="0" />
	<cfset Link_Supply_2="" />
	<cfset Link_Supply_3="" />
	<cfset Link_Supply_4="" />
	<cfset Link_Supply_5="" />
	<cfset Link_Supply_6="" />
	<cfset ICD=Diagnosis1 />
	<cfset SupplyNo="" />
	
	
	<!--Find Link_Supply_2,Link_Supply_3,Link_Supply_4,Link_Supply_5,Link_Supply_6-->
	<cfif Code_Type eq "ICD" AND ICD.indexOf("V55.5") eq "-1" AND ICD.indexOf("V55.6") eq "-1" AND ICD.indexOf("V55.0") eq "-1" >
			<cfset Link_Supply_2=SupplyNo />
			<cfset Link_Supply_3=SupplyNo />
			<cfset Link_Supply_4=SupplyNo />
			<cfset Link_Supply_5=SupplyNo />
			<cfset Link_Supply_6=SupplyNo />
	<cfelseif ICD.indexOf("V55.5") eq "-1" OR ICD.indexOf("V55.6") eq "-1" OR ICD.indexOf("V55.0") eq "-1" >
			<cfset Link_Supply_2=SupplyNo />
			<cfset Link_Supply_3=SupplyNo />
			<cfset Link_Supply_4=SupplyNo />
			<cfset Link_Supply_5=SupplyNo />
			<cfset Link_Supply_6=SupplyNo />
	<cfelseif Code_Type eq "V_Code" AND ICD.indexOf("V55.5") eq "-1" AND ICD.indexOf("V55.6") eq "-1" AND ICD.indexOf("V55.0") eq "-1">
			<cfset Link_Supply_2=SupplyNo />
			<cfset Link_Supply_3=SupplyNo />
			<cfset Link_Supply_4=SupplyNo />
			<cfset Link_Supply_5=SupplyNo />
			<cfset Link_Supply_6=SupplyNo />
	</cfif>
	<!--Find Equation_Calc_Run-->
	
	<cfset Equation_Calc = Equation_Calc_Run />
	
	<cfif Equation_Calc eq "5" AND (Link_Supply_2 eq "1" OR Link_Supply_3 eq "1" OR Link_Supply_4 eq "1" OR Link_Supply_5 eq "1" OR Link_Supply_6 eq "1" )>
			<cfset Clinical_02="13" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Blood") neq "-1">
			<cfset Clinical_02="2" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Blood") neq "-1">
			<cfset Clinical_02="5" />
	</cfif>
	
	<!--Find Clinical_03-->
	
	<cfset Clinical_03="0" />
	
	<cfif Equation_Calc eq "5" AND Link_Supply_1 eq "2" >
			<cfset Clinical_03="14" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Cancer") neq "-1">
			<cfset Clinical_03="4" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Cancer") neq "-1">
			<cfset Clinical_03="7" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Cancer") neq "-1">
			<cfset Clinical_03="3" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Cancer") neq "-1">
			<cfset Clinical_03="10" />
	</cfif>
	
	<!--Find Clinical_04-->
	
	<cfset Clinical_04="0" />
	<cfset T01_Primary_Diagnosis_LinkDG_Type=Diagnosis_CaseMix_1 />
	
	<cfif Equation_Calc eq "5" AND ( Link_Supply_2 eq "2" OR Link_Supply_3 eq "2" OR Link_Supply_4 eq "2" OR Link_Supply_5 eq "2" OR Link_Supply_6 eq "2") >
			<cfset Clinical_04="8" />
	<cfelseif Equation_Calc eq "1" AND T01_Primary_Diagnosis_LinkDG_Type.indexof("Diabetes") neq "-1">
			<cfset Clinical_04="5" />
	<cfelseif Equation_Calc eq "2" AND T01_Primary_Diagnosis_LinkDG_Type.indexof("Diabetes") neq "-1">
			<cfset Clinical_04="12" />
	<cfelseif Equation_Calc eq "3" AND T01_Primary_Diagnosis_LinkDG_Type.indexof("Diabetes") neq "-1">
			<cfset Clinical_04="1" />
	<cfelseif Equation_Calc eq "4" AND T01_Primary_Diagnosis_LinkDG_Type.indexof("Diabetes") neq "-1">
			<cfset Clinical_04="8" />
	</cfif>
	
	
	<!--Find Clinical_05-->
	
	<cfset Clinical_05="0" />
	
	<!--Find Diagnosis_Case_Mix_Other-->
	<cfset Diagnosis_Case_Mix_Other=Diagnosis_CaseMix_2 &" "& Diagnosis_CaseMix_3 &" "& Diagnosis_CaseMix_4 &" "& Diagnosis_CaseMix_5 &" "& Diagnosis_CaseMix_6 />
	
	<!--Find Diagnoses_All-->
	
	<cfset Diagnoses_All = Diagnosis2 &" "& Diagnosis3 &" "& Diagnosis4 &" "& Diagnosis5 &" "& Diagnosis6 &" "& Diagnosis1 />
	
	
	<!--Find Supply_250_707-->
	
	<cfif Diagnoses_All.indexof("250.8") gte "0" OR Diagnoses_All.indexof("707.10") gte "0" OR Diagnoses_All.indexof("707.11") gte "0" OR Diagnoses_All.indexof("707.12") gte "0" OR Diagnoses_All.indexof("707.13") gte "0" OR Diagnoses_All.indexof("707.14") gte "0" OR Diagnoses_All.indexof("707.15") gte "0" OR Diagnoses_All.indexof("707.19") gte "0" OR Diagnoses_All.indexof("707.8") gte "0" OR Diagnoses_All.indexof("707.9") gte "0">
			<cfset Supply_250_707="Yes" />
	<cfelse>
			<cfset Supply_250_707="No" />
	</cfif>
	
	<cfif Equation_Calc eq "5" AND Supply_250_707 eq "Yes">
			<cfset Clinical_05="20" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_Other.indexof("Diabetes") neq "-1">
			<cfset Clinical_05="2" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_Other.indexof("Diabetes") neq "-1">
			<cfset Clinical_05="4" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_Other.indexof("Diabetes") neq "-1">
			<cfset Clinical_05="1" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_Other.indexof("Diabetes") neq "-1">
			<cfset Clinical_05="4" />
	</cfif>
	
	<!--Find Clinical_06-->
	
	<cfset Clinical_06="0" />
	
	<!--Find Diagnosis_Case_Mix_All-->
	
	<cfif Equation_Calc eq "5" AND Link_Supply_1 eq "4">
			<cfset Clinical_06="11" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Dysphagia") neq "-1" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1">
			<cfset Clinical_06="2" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Dysphagia") neq "-1" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1">
			<cfset Clinical_06="6" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Dysphagia") neq "-1" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1">
			<cfset Clinical_06="6" />
	</cfif>
	
	<!--Find Clinical_07-->
	
	<cfset Clinical_07="0" />
	
	
	<cfset Therapies_Home_M0250=HippsCalc.Therapies_Home_M0250 />
	
	<cfif (Link_Supply_2 eq "4" OR Link_Supply_3 eq "4" OR Link_Supply_4 eq "4" OR Link_Supply_5 eq "4" OR Link_Supply_6 eq "4") AND Equation_Calc eq "5">
			<cfset Clinical_07="8" />
	<cfelseif Diagnosis_Case_Mix_All.indexof("Dysphagia") neq "-1" AND Therapies_Home_M0250.indexof("3 - ") neq "-1" AND Equation_Calc eq "2">
			<cfset Clinical_07="6" />
	</cfif>
	
	<!--Find Clinical_08-->
	
	<cfset Clinical_08="0" />
	
	<cfif Equation_Calc eq "5" AND Link_Supply_1 eq "5">
			<cfset Clinical_08="15" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Gastrointestinal") neq "-1" >
			<cfset Clinical_08="2" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Gastrointestinal") neq "-1" >
			<cfset Clinical_08="6" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Gastrointestinal") neq "-1" >
			<cfset Clinical_08="1" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Gastrointestinal") neq "-1" >
			<cfset Clinical_08="4" />
	</cfif>
	
	<!--Find Clinical_09-->
	
	<cfset Clinical_09="0" />
	<cfset Ostomy_for_Bowel_M0550=HippsCalc.Ostomy_for_Bowel_M0550 />
	
	<cfif Equation_Calc eq "5" AND Link_Supply_2 eq "5" OR Link_Supply_3 eq "5" OR Link_Supply_4 eq "5" OR Link_Supply_5 eq "5" OR Link_Supply_6 eq "5">
			<cfset Clinical_09="4" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Gastrointestinal") neq "-1" AND Ostomy_for_Bowel_M0550.indexof("0") eq "-1" AND Ostomy_for_Bowel_M0550 neq "">
			<cfset Clinical_09="3" />
	</cfif>
	
	<!--Find Clinical_10-->
	
	<cfset Clinical_10="0" />
	
	<cfif Equation_Calc eq "5" AND Supply_250_707 eq "No" AND (Link_Supply_1 eq "6" OR Link_Supply_2 eq "6" OR Link_Supply_3 eq "6" OR Link_Supply_4 eq "6" OR Link_Supply_5 eq "6" OR Link_Supply_6 eq "6") >
				<cfset Clinical_10="13" />
	<cfelseif Diagnosis_Case_Mix_All.indexof("Gastrointestinal") neq "-1" AND Diagnosis_Case_Mix_All.indexof("Neuro") neq "-1" AND Equation_Calc eq "3" >
			<cfset Clinical_10="2" />
	</cfif>
	
	<!--Find Clinical_11-->
	
	<cfset Clinical_11="0" />
	
	<cfif Equation_Calc eq "5" AND Link_Supply_1 eq "7">
			<cfset Clinical_11="16" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Cardiac") neq "-1" >
			<cfset Clinical_11="3" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Cardiac") neq "-1" >
			<cfset Clinical_11="7" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Cardiac") neq "-1" >
			<cfset Clinical_11="1" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Cardiac") neq "-1" >
			<cfset Clinical_11="8" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Hypertension") neq "-1" >
			<cfset Clinical_11="3" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Hypertension") neq "-1" >
			<cfset Clinical_11="7" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Hypertension") neq "-1" >
			<cfset Clinical_11="1" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Hypertension") neq "-1" >
			<cfset Clinical_11="8" />
	</cfif>
	
	<!--Find Clinical_12-->
	
	<cfset Clinical_12="0" />
	
	<cfif (Link_Supply_2 eq "7" OR Link_Supply_3 eq "7" OR Link_Supply_4 eq "7" OR Link_Supply_5 eq "7" OR Link_Supply_6 eq "7") AND Equation_Calc eq "5" >
			<cfset Clinical_12="7" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_CaseMix_1.indexof("Neuro 1") neq "-1" >
			<cfset Clinical_12="3" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_CaseMix_1.indexof("Neuro 1") neq "-1" >
			<cfset Clinical_12="8" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_CaseMix_1.indexof("Neuro 1") neq "-1" >
			<cfset Clinical_12="5" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_CaseMix_1.indexof("Neuro 1") neq "-1" >
			<cfset Clinical_12="8" />
	</cfif>
	
	<!--Find Clinical_13-->
	
	<cfset Clinical_13="0" />
	<cfset M1840_Toilet = HippsCalc.M1840_Toilet />
	
	<cfif Link_Supply_1 eq "8" AND Equation_Calc eq "5" >
			<cfset Clinical_13="23" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Neuro 1") neq "-1" AND (M1840_Toilet.indexof("2 -") neq "-1" OR M1840_Toilet.indexof("3 -") neq "-1" OR M1840_Toilet.indexof("4 -") neq "-1") >
			<cfset Clinical_13="3" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Neuro 1") neq "-1" AND (M1840_Toilet.indexof("2 -") neq "-1" OR M1840_Toilet.indexof("3 -") neq "-1" OR M1840_Toilet.indexof("4 -") neq "-1") >
			<cfset Clinical_13="10" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Neuro 1") neq "-1" AND (M1840_Toilet.indexof("2 -") neq "-1" OR M1840_Toilet.indexof("3 -") neq "-1" OR M1840_Toilet.indexof("4 -") neq "-1") >
			<cfset Clinical_13="3" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Neuro 1") neq "-1" AND (M1840_Toilet.indexof("2 -") neq "-1" OR M1840_Toilet.indexof("3 -") neq "-1" OR M1840_Toilet.indexof("4 -") neq "-1") >
			<cfset Clinical_13="10" />
	</cfif>
	
	<!--Find Clinical_14-->
	
	<cfset Clinical_14="0" />
	
	<cfset Dress_Upper_M0650=HippsCalc.Dress_Upper_M0650 />
	<cfset Dress_Lower_M0660=HippsCalc.Dress_Lower_M0660 />
	
	<cfif Dress_Upper_M0650.indexof("1") neq "-1" OR Dress_Upper_M0650.indexof("2") neq "-1" OR Dress_Upper_M0650.indexof("3") neq "-1" OR Dress_Lower_M0660.indexof("1") neq "-1" OR Dress_Lower_M0660.indexof("2") neq "-1" OR Dress_Lower_M0660.indexof("3") neq "-1" >
			<cfset Clinical_14_M0826="1" />
	<cfelse>
			<cfset Clinical_14_M0826="0" />
	</cfif>
	
	
	<cfif (Link_Supply_2 eq "8" OR Link_Supply_3 eq "8" OR Link_Supply_4 eq "8" OR Link_Supply_5 eq "8" OR Link_Supply_6 eq "8") AND Equation_Calc eq "5" >
			<cfset Clinical_14="15" />
	<cfelseif Equation_Calc eq "1" AND (Diagnosis_Case_Mix_All.indexof("Neuro 1") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Neuro 2") neq "-1") AND Clinical_14_M0826 eq "1" >
			<cfset Clinical_14="2" />
	<cfelseif Equation_Calc eq "2" AND (Diagnosis_Case_Mix_All.indexof("Neuro 1") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Neuro 2") neq "-1") AND Clinical_14_M0826 eq "1" >
			<cfset Clinical_14="4" />
	<cfelseif Equation_Calc eq "3" AND (Diagnosis_Case_Mix_All.indexof("Neuro 1") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Neuro 2") neq "-1") AND Clinical_14_M0826 eq "1" >
			<cfset Clinical_14="2" />
	<cfelseif Equation_Calc eq "4" AND (Diagnosis_Case_Mix_All.indexof("Neuro 1") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Neuro 2") neq "-1") AND Clinical_14_M0826 eq "1" >
			<cfset Clinical_14="2" />
	
	</cfif>
	
	<!--Find Clinical_15-->
	
	<cfset Clinical_15="0" />
	
	<cfif Link_Supply_1 eq "9" AND Equation_Calc eq "5" >
			<cfset Clinical_15="19" />
	<cfelseif Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Equation_Calc eq "2">
			<cfset Clinical_15="1" />
	</cfif>
	
	<!--Find Clinical_16-->
	
	<cfset Clinical_16="0" />
	
	<cfif (Link_Supply_2 eq "9" OR Link_Supply_3 eq "9" OR Link_Supply_4 eq "9" OR Link_Supply_5 eq "9" OR Link_Supply_6 eq "9") AND Equation_Calc eq "5" >
			<cfset Clinical_16="8" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Clinical_14_M0826 eq "1">
			<cfset Clinical_16="1" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Clinical_14_M0826 eq "1">
			<cfset Clinical_16="3" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Clinical_14_M0826 eq "1">
			<cfset Clinical_16="2" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Clinical_14_M0826 eq "1">
			<cfset Clinical_16="8" />
	</cfif>
	
	
	<!--Find Clinical_17-->
	
	<cfset Clinical_17="0" />
	<cfset Ambulation_M0700=HippsCalc.Ambulation_M0700 />
	
	<cfif (Link_Supply_2 eq "10" OR Link_Supply_3 eq "10" OR Link_Supply_4 eq "10" OR Link_Supply_5 eq "10" OR Link_Supply_6 eq "10" OR Link_Supply_1 eq "10") AND Equation_Calc eq "5" >
			<cfset Clinical_17="16" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND (Ambulation_M0700.indexof("3") neq "-1" OR Ambulation_M0700.indexof("4") neq "-1" OR Ambulation_M0700.indexof("5") neq "-1" OR Ambulation_M0700.indexof("6") neq "-1" )>
			<cfset Clinical_17="1" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND (Ambulation_M0700.indexof("3") neq "-1" OR Ambulation_M0700.indexof("4") neq "-1" OR Ambulation_M0700.indexof("5") neq "-1" OR Ambulation_M0700.indexof("6") neq "-1" )>
			<cfset Clinical_17="5" />
	</cfif>
	
	<!--Find Clinical_18-->
	
	<cfset Clinical_18="0" />
	
	<cfset Bathing_M0670=HippsCalc.Bathing_M0670 />
	<cfset Toileting_M0680=HippsCalc.Toileting_M0680 />
	<cfset Transferring_M0690=HippsCalc.Transferring_M0690 />
	<cfset Ambulation_M0700=HippsCalc.Ambulation_M0700 />
	
	<cfif Bathing_M0670.indexof("2") neq "-1" OR Bathing_M0670.indexof("3") neq "-1" OR Bathing_M0670.indexof("4") neq "-1" OR Bathing_M0670.indexof("5") neq "-1" OR Toileting_M0680.indexof("2") neq "-1" OR Toileting_M0680.indexof("3") neq "-1" OR Toileting_M0680.indexof("4") neq "-1" OR Transferring_M0690.indexof("2") neq "-1" OR Transferring_M0690.indexof("3") neq "-1" OR Transferring_M0690.indexof("4") neq "-1" OR Transferring_M0690.indexof("5") neq "-1" OR Ambulation_M0700.indexof("3") neq "-1" OR Ambulation_M0700.indexof("4") neq "-1" OR Ambulation_M0700.indexof("5") neq "-1" >
			<cfset Clinical_18_M0826="1" />
	<cfelse>
			<cfset Clinical_18_M0826="0" />
	</cfif>
	
	<cfif (Link_Supply_1 eq "11" OR Link_Supply_2 eq "11" OR Link_Supply_3 eq "11" OR Link_Supply_4 eq "11" OR Link_Supply_5 eq "11" OR Link_Supply_6 eq "11") AND Equation_Calc eq "5" >
			<cfset Clinical_18="23" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Neuro 4") neq "-1" AND Clinical_18_M0826 eq "1" >
			<cfset Clinical_18="3" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Neuro 4") neq "-1" AND Clinical_18_M0826 eq "1" >
			<cfset Clinical_18="3" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Neuro 4") neq "-1" AND Clinical_18_M0826 eq "1" >
			<cfset Clinical_18="12" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Neuro 4") neq "-1" AND Clinical_18_M0826 eq "1" >
			<cfset Clinical_18="18" />
	</cfif>
	
	<!--Find Clinical_19-->
	
	<cfset Clinical_19="0" />
	<cfset Pressure_Ulcer_Stage_M0460=HippsCalc.Pressure_Ulcer_Stage_M0460 />
	
	<cfif (Link_Supply_1 eq "12" OR Link_Supply_2 eq "12" OR Link_Supply_3 eq "12" OR Link_Supply_4 eq "12" OR Link_Supply_5 eq "12" OR Link_Supply_6 eq "12") AND Equation_Calc eq "5" >
			<cfset Clinical_19="24" />
	<cfelseif Equation_Calc eq "1" AND (Diagnosis_Case_Mix_All.indexof("Ortho 1") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Gait") neq "-1" )AND Pressure_Ulcer_Stage_M0460.indexof("NA") eq "-1" AND Pressure_Ulcer_Stage_M0460 neq "">
			<cfset Clinical_19="2" />
	</cfif>
	
	<!--Find Clinical_20-->
	
	<cfset Clinical_20="0" />
	<cfset Pressure_Ulcer_a_M0450=HippsCalc.Pressure_Ulcer_a_M0450 />
	
	<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_a_M0450.indexof("1") neq "-1" OR Pressure_Ulcer_a_M0450.indexof("2") neq "-1" )>
			<cfset Clinical_20="4" />
	<cfelseif Equation_Calc eq "1" AND (Diagnosis_Case_Mix_All.indexof("Ortho 1") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Ortho 2") neq "-1" )AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
			<cfset Clinical_20="5" />
	<cfelseif Equation_Calc eq "2" AND (Diagnosis_Case_Mix_All.indexof("Ortho 1") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Ortho 2") neq "-1" )AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
			<cfset Clinical_20="5" />
	</cfif>
	
	<!--Find Clinical_21-->
	
	<cfset Clinical_21="0" />
	
	<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_a_M0450.indexof("3") neq "-1" OR Pressure_Ulcer_a_M0450.indexof("4") neq "-1" )>
			<cfset Clinical_21="6" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Psych 1") neq "-1" >
			<cfset Clinical_21="3" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Psych 1") neq "-1" >
			<cfset Clinical_21="5" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Psych 1") neq "-1" >
			<cfset Clinical_21="2" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Psych 1") neq "-1" >
			<cfset Clinical_21="5" />
	</cfif>
	
	<!--Find Clinical_22-->
	
	<cfset Clinical_22="0" />
	<cfset Pressure_Ulcer_b_M0450=HippsCalc.Pressure_Ulcer_b_M0450 />
	
	<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_b_M0450.indexof("1") neq "-1" )>
			<cfset Clinical_22="14" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Psych 2") neq "-1" >
			<cfset Clinical_22="1" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Psych 2") neq "-1" >
			<cfset Clinical_22="2" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Psych 2") neq "-1" >
			<cfset Clinical_22="2" />
	</cfif>
	
	<!--Find Clinical_23-->
	
	<cfset Clinical_23="0" />
	
	<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_b_M0450.indexof("2") neq "-1" )>
			<cfset Clinical_23="22" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Pulmonary") neq "-1" >
			<cfset Clinical_23="1" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Pulmonary") neq "-1" >
			<cfset Clinical_23="5" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Pulmonary") neq "-1" >
			<cfset Clinical_23="1" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Pulmonary") neq "-1" >
			<cfset Clinical_23="5" />
	</cfif>
	
	<!--Find Clinical_24-->
	
	<cfset Clinical_24="0" />
	
	<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_b_M0450.indexof("3") neq "-1" )>
			<cfset Clinical_24="22" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Pulmonary") neq "-1" AND Ambulation_M0700.indexof("0 -") eq "-1" AND  Ambulation_M0700 neq "">
			<cfset Clinical_24="1" />
	</cfif>
	
	<!--Find Clinical_25-->
	
	<cfset Clinical_25="0" />
	
	<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_b_M0450.indexof("4") neq "-1" )>
			<cfset Clinical_25="35" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_CaseMix_1.indexof("Skin 1") neq "-1" >
			<cfset Clinical_25="10" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_CaseMix_1.indexof("Skin 1") neq "-1" >
			<cfset Clinical_25="20" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_CaseMix_1.indexof("Skin 1") neq "-1" >
			<cfset Clinical_25="8" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_CaseMix_1.indexof("Skin 1") neq "-1" >
			<cfset Clinical_25="20" />
	</cfif>
	
	<!--Find Clinical_26-->
	
	<cfset Clinical_26="0" />
	
	<cfset Pressure_Ulcer_c_M0450=HippsCalc.Pressure_Ulcer_c_M0450 />
	
	<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_c_M0450.indexof("1") neq "-1" )>
			<cfset Clinical_26="29" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_Other.indexof("Skin 1") neq "-1" >
			<cfset Clinical_26="6" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_Other.indexof("Skin 1") neq "-1" >
			<cfset Clinical_26="6" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_Other.indexof("Skin 1") neq "-1" >
			<cfset Clinical_26="4" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_Other.indexof("Skin 1") neq "-1" >
			<cfset Clinical_26="4" />
	</cfif>
	
	<!--Find Clinical_27-->
	
	<cfset Clinical_27="0" />
	
	<cfif Equation_Calc eq "5" AND Pressure_Ulcer_c_M0450.indexof("2") neq "-1" >
			<cfset Clinical_27="41" />
	<cfelseif Equation_Calc eq "1" AND (Diagnosis_Case_Mix_All.indexof("Skin 1") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Skin 2") neq "-1" )AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
			<cfset Clinical_27="2" />
	<cfelseif Equation_Calc eq "3" AND (Diagnosis_Case_Mix_All.indexof("Skin 1") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Skin 2") neq "-1" )AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
			<cfset Clinical_27="2" />
	</cfif>
	
	<!--Find Clinical_28-->
	
	<cfset Clinical_28="0" />
	
	<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_c_M0450.indexof("3") neq "-1" )>
			<cfset Clinical_28="46" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Skin 2") neq "-1" >
			<cfset Clinical_28="6" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Skin 2") neq "-1" >
			<cfset Clinical_28="12" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Skin 2") neq "-1" >
			<cfset Clinical_28="5" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Skin 2") neq "-1" >
			<cfset Clinical_28="12" />
	</cfif>
	
	<!--Find Clinical_29-->
	
	<cfset Clinical_29="0" />
	
	<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_c_M0450.indexof("4") neq "-1" )>
			<cfset Clinical_29="58" />
	<cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Trache") neq "-1" >
			<cfset Clinical_29="4" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Trache") neq "-1" >
			<cfset Clinical_29="4" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Trache") neq "-1" >
			<cfset Clinical_29="4" />
	</cfif>
	
	<!--Find Clinical_30-->
	
	<cfset Clinical_30="0" />
	<cfset Pressure_Ulcer_d_M0450=HippsCalc.Pressure_Ulcer_d_M0450 />
	
	<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_d_M0450.indexof("1") neq "-1" )>
			<cfset Clinical_30="48" />
	<cfelseif Equation_Calc eq "1" AND (Diagnosis_Case_Mix_All.indexof("Urosto") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Cysto") neq "-1") >
			<cfset Clinical_30="6" />
	<cfelseif Equation_Calc eq "2" AND (Diagnosis_Case_Mix_All.indexof("Urosto") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Cysto") neq "-1") >
			<cfset Clinical_30="23" />
	<cfelseif Equation_Calc eq "3" AND (Diagnosis_Case_Mix_All.indexof("Urosto") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Cysto") neq "-1") >
			<cfset Clinical_30="4" />
	<cfelseif Equation_Calc eq "4" AND (Diagnosis_Case_Mix_All.indexof("Urosto") neq "-1" OR Diagnosis_Case_Mix_All.indexof("Cysto") neq "-1") >
			<cfset Clinical_30="23" />
	</cfif>
	
	<!--Find Clinical_31-->
	
	<cfset Clinical_31="0" />
	
	<cfif Equation_Calc eq "5" AND Pressure_Ulcer_d_M0450.indexof("2") neq "-1" >
			<cfset Clinical_31="67" />
	<cfelseif Equation_Calc eq "1" AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
			<cfset Clinical_31="8" />
	<cfelseif Equation_Calc eq "2" AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
			<cfset Clinical_31="15" />
	<cfelseif Equation_Calc eq "3" AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
			<cfset Clinical_31="5" />
	<cfelseif Equation_Calc eq "4" AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
			<cfset Clinical_31="21" />
	</cfif>
	
	<!--Find Clinical_32-->
	
	<cfset Clinical_32="0" />
	
	<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_d_M0450.indexof("3") neq "-1" OR Pressure_Ulcer_d_M0450.indexof("4") neq "-1") >
			<cfset Clinical_32="75" />
	<cfelseif Equation_Calc eq "1" AND Therapies_Home_M0250.indexof("3 -") neq "-1" >
			<cfset Clinical_32="4" />
	<cfelseif Equation_Calc eq "2" AND Therapies_Home_M0250.indexof("3 -") neq "-1" >
			<cfset Clinical_32="12" />
	<cfelseif Equation_Calc eq "4" AND Therapies_Home_M0250.indexof("3 -") neq "-1" >
			<cfset Clinical_32="12" />
	</cfif>
	
	<!--Find Clinical_33-->
	
	<cfset Clinical_33="0" />
	
	<cfset Pressure_Ulcer_e_M0450=HippsCalc.Pressure_Ulcer_e_M0450 />
	<cfset M1308_d_2_Pressure=HippsCalc.M1308_d_2_Pressure />
	<cfset M1308_d_3_Pressure=HippsCalc.M1308_d_3_Pressure />
	<cfset Vision_M0390=HippsCalc.Vision_M0390 />
	
	<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_e_M0450 gt "0" OR M1308_d_2_Pressure gt "0" OR M1308_d_3_Pressure gt "0")  >
			<cfset Clinical_33="17" />
	<cfelseif Equation_Calc eq "1" AND (Vision_M0390.indexof("1") neq "-1" OR Vision_M0390.indexof("2") neq "-1") >
			<cfset Clinical_33="1" />
	<cfelseif Equation_Calc eq "4" AND (Vision_M0390.indexof("1") neq "-1" OR Vision_M0390.indexof("2") neq "-1") >
			<cfset Clinical_33="1" />
	</cfif>
	
	<!--Find Clinical_34-->
	
	<cfset Clinical_34="0" />
	
	<cfset Stasis_Ulcer_Num_M0470 = HippsCalc.Stasis_Ulcer_Num_M0470 />
	<cfset Freq_of_Pain_M0420=HippsCalc.Freq_of_Pain_M0420 />
	
	<cfif Equation_Calc eq "5" AND (Stasis_Ulcer_Num_M0470.indexof("2") neq "-1" )  >
			<cfset Clinical_34="6" />
	<cfelseif Equation_Calc eq "1" AND (Freq_of_Pain_M0420.indexof("3 -") neq "-1" OR Freq_of_Pain_M0420.indexof("4 -") neq "-1") >
			<cfset Clinical_34="1" />
	</cfif>
	
	<!--Find Clinical_35-->
	
	<cfset Clinical_35="0" />
	
	<cfset Stasis_Ulcer_Num_M0470=HippsCalc.Stasis_Ulcer_Num_M0470 />
	<cfset Pressure_Ulcer_c_M0450=HippsCalc.Pressure_Ulcer_c_M0450 />
	<cfset Pressure_Ulcer_d_M0450=HippsCalc.Pressure_Ulcer_d_M0450 />
	
	<cfif Equation_Calc eq "5" AND Stasis_Ulcer_Num_M0470.indexof("3") neq "-1"  >
			<cfset Clinical_35="12" />
	<cfelseif (Equation_Calc eq "1" OR Equation_Calc eq "2") AND (Pressure_Ulcer_c_M0450.indexof("2") neq "-1" OR Pressure_Ulcer_c_M0450.indexof("3") neq "-1" OR Pressure_Ulcer_c_M0450.indexof("4") neq "-1") >
			<cfset Clinical_35="3" />
	<cfelseif (Equation_Calc eq "1" OR Equation_Calc eq "2") AND (Pressure_Ulcer_d_M0450.indexof("2") neq "-1" OR Pressure_Ulcer_d_M0450.indexof("3") neq "-1" OR Pressure_Ulcer_d_M0450.indexof("4") neq "-1") >
			<cfset Clinical_35="3" />
	<cfelseif (Equation_Calc eq "3" OR Equation_Calc eq "4") AND (Pressure_Ulcer_c_M0450.indexof("2") neq "-1" OR Pressure_Ulcer_c_M0450.indexof("3") neq "-1" OR Pressure_Ulcer_c_M0450.indexof("4") neq "-1") >
			<cfset Clinical_35="5" />
	<cfelseif (Equation_Calc eq "3" OR Equation_Calc eq "4") AND (Pressure_Ulcer_d_M0450.indexof("2") neq "-1" OR Pressure_Ulcer_d_M0450.indexof("3") neq "-1" OR Pressure_Ulcer_d_M0450.indexof("4") neq "-1") >
			<cfset Clinical_35="5" />
	</cfif>
	
	<!--Find Clinical_36-->
	
	<cfset Clinical_36="0" />
	
	<cfset Pressure_Ulcer_Stage_M0460=HippsCalc.Pressure_Ulcer_Stage_M0460 />
	
	<cfif Equation_Calc eq "5" AND Stasis_Ulcer_Num_M0470.indexof("4") neq "-1"  >
			<cfset Clinical_36="21" />
	<cfelseif (Equation_Calc eq "1") AND (Pressure_Ulcer_Stage_M0460.indexof("1 - ") neq "-1" OR Pressure_Ulcer_Stage_M0460.indexof("2 - ") neq "-1") >
			<cfset Clinical_36="5" />
	<cfelseif (Equation_Calc eq "2") AND (Pressure_Ulcer_Stage_M0460.indexof("1 - ") neq "-1" OR Pressure_Ulcer_Stage_M0460.indexof("2 - ") neq "-1") >
			<cfset Clinical_36="11" />
	<cfelseif (Equation_Calc eq "3") AND (Pressure_Ulcer_Stage_M0460.indexof("1 - ") neq "-1" OR Pressure_Ulcer_Stage_M0460.indexof("2 - ") neq "-1") >
			<cfset Clinical_36="5" />
	<cfelseif (Equation_Calc eq "4") AND (Pressure_Ulcer_Stage_M0460.indexof("1 - ") neq "-1" OR Pressure_Ulcer_Stage_M0460.indexof("2 - ") neq "-1") >
			<cfset Clinical_36="11" />
	</cfif>
	
	<!--Find Clinical_37-->
	
	<cfset Clinical_37="0" />
	<cfset Stasis_Ulcer_Hidden_M0474=HippsCalc.Stasis_Ulcer_Hidden_M0474 />
	
	<cfif Equation_Calc eq "5" AND Stasis_Ulcer_Hidden_M0474.indexof("1") neq "-1"  >
			<cfset Clinical_37="9" />
	<cfelseif (Equation_Calc eq "1") AND (Pressure_Ulcer_Stage_M0460.indexof("3 - ") neq "-1" OR Pressure_Ulcer_Stage_M0460.indexof("4 - ") neq "-1") >
			<cfset Clinical_37="16" />
	<cfelseif (Equation_Calc eq "2") AND (Pressure_Ulcer_Stage_M0460.indexof("3 - ") neq "-1" OR Pressure_Ulcer_Stage_M0460.indexof("4 - ") neq "-1") >
			<cfset Clinical_37="26" />
	<cfelseif (Equation_Calc eq "3") AND (Pressure_Ulcer_Stage_M0460.indexof("3 - ") neq "-1" OR Pressure_Ulcer_Stage_M0460.indexof("4 - ") neq "-1") >
			<cfset Clinical_37="12" />
	<cfelseif (Equation_Calc eq "4") AND (Pressure_Ulcer_Stage_M0460.indexof("3 - ") neq "-1" OR Pressure_Ulcer_Stage_M0460.indexof("4 - ") neq "-1") >
			<cfset Clinical_37="23" />
	</cfif>
	
	<!--Find Clinical_38-->
	
	<cfset Clinical_38="0" />
	
	<cfset Stasis_Ulcer_Status_M0476=HippsCalc.Stasis_Ulcer_Status_M0476 />
	
	<cfif Equation_Calc eq "5" AND Stasis_Ulcer_Status_M0476.indexof("1") neq "-1"  >
			<cfset Clinical_38="6" />
	<cfelseif Stasis_Ulcer_Status_M0476.indexof("2 -") neq "-1" >
			<cfset Clinical_38="8" />
	</cfif>
	
	<!--Find Clinical_39-->
	
	<cfset Clinical_39="0" />
	
	<cfif Equation_Calc eq "5" AND Stasis_Ulcer_Status_M0476.indexof("2") neq "-1"  >
			<cfset Clinical_39="25" />
	<cfelseif Equation_Calc neq "5" AND Stasis_Ulcer_Status_M0476.indexof("3 - ") neq "-1" >
			<cfset Clinical_39="11" />
	</cfif>
	
	<!--Find Clinical_40-->
	
	<cfset Clinical_40 = "0" />
	
	<cfset Surgical_Wound_Status_M0488 = HippsCalc.Surgical_Wound_Status_M0488 />
	
	<cfif Equation_Calc eq "5" AND Stasis_Ulcer_Status_M0476.indexof("3") neq "-1"  >
			<cfset Clinical_40="36" />
	<cfelseif Equation_Calc eq "2" AND Surgical_Wound_Status_M0488.indexof("2 -") neq "-1" >
			<cfset Clinical_40="2" />
	<cfelseif Equation_Calc eq "3" AND Surgical_Wound_Status_M0488.indexof("2 -") neq "-1" >
			<cfset Clinical_40="3" />
	</cfif>
	
	<!--Find Clinical_41-->
	
	<cfset Clinical_41 = "0" />
	<cfset Surgical_Wound_M0482=HippsCalc.Surgical_Wound_M0482 />
	
	<cfif Equation_Calc eq "5" AND Surgical_Wound_M0482.indexof("1 -") neq "-1"  AND Surgical_Wound_Status_M0488.indexof("2 -") neq "-1"  >
			<cfset Clinical_41="4" />
	<cfelseif Equation_Calc neq "5" AND Surgical_Wound_M0482.indexof("1 -") neq "-1"  AND Surgical_Wound_Status_M0488.indexof("3 - ") neq "-1"  >
			<cfset Clinical_41="4" />
	</cfif>
	
	<!--Find Clinical_42-->
	
	<cfset Clinical_42 = "0" />
	
	<cfset Breathing_M0490 = HippsCalc.Breathing_M0490 />
	
	<cfif Equation_Calc eq "5" AND Surgical_Wound_Status_M0488.indexof("3") neq "-1"   >
			<cfset Clinical_42="14" />
	<cfelseif Equation_Calc eq "1" AND (Breathing_M0490.indexof("2 -") neq "-1"  OR Breathing_M0490.indexof("3 -") neq "-1"  OR Breathing_M0490.indexof("4 -") neq "-1")  >
			<cfset Clinical_42="2" />
	<cfelseif Equation_Calc eq "2" AND (Breathing_M0490.indexof("2 -") neq "-1"  OR Breathing_M0490.indexof("3 -") neq "-1"  OR Breathing_M0490.indexof("4 -") neq "-1" ) >
			<cfset Clinical_42="2" />
	</cfif>
	
	<!--Find Clinical_43-->
	
	<cfset Clinical_43 = "0" />
	<cfset Bowel_Incont_M0540 = HippsCalc.Bowel_Incont_M0540 />
	
	<cfif Equation_Calc eq "5" AND Ostomy_for_Bowel_M0550.indexof("1") neq "-1"   >
			<cfset Clinical_43="27" />
	<cfelseif Equation_Calc eq "1" AND Bowel_Incont_M0540.indexof("NA -") eq "-1"  AND Bowel_Incont_M0540.indexof("0 -") eq "-1" AND Bowel_Incont_M0540.indexof("1 -") eq "-1"  AND Bowel_Incont_M0540 neq "" >
			<cfset Clinical_43="1" />
	<cfelseif Equation_Calc eq "2" AND Bowel_Incont_M0540.indexof("NA -") eq "-1"  AND Bowel_Incont_M0540.indexof("0 -") eq "-1" AND Bowel_Incont_M0540.indexof("1 -") eq "-1"  AND Bowel_Incont_M0540 neq "" >
			<cfset Clinical_43="2" />
	<cfelseif Equation_Calc eq "3" AND Bowel_Incont_M0540.indexof("NA -") eq "-1"  AND Bowel_Incont_M0540.indexof("0 -") eq "-1" AND Bowel_Incont_M0540.indexof("1 -") eq "-1"  AND Bowel_Incont_M0540 neq "" >
			<cfset Clinical_43="1" />
	</cfif>
	
	<!--Find Clinical_44-->
	
	<cfset Clinical_44 = "0" />
	
	<cfif Equation_Calc eq "5" AND Ostomy_for_Bowel_M0550.indexof("2") neq "-1"   >
			<cfset Clinical_44="45" />
	<cfelseif Equation_Calc eq "1" AND (Ostomy_for_Bowel_M0550.indexof("1 -") neq "-1"  OR Ostomy_for_Bowel_M0550.indexof("2 -") neq "-1") >
			<cfset Clinical_44="5" />
	<cfelseif Equation_Calc eq "2" AND (Ostomy_for_Bowel_M0550.indexof("1 -") neq "-1"  OR Ostomy_for_Bowel_M0550.indexof("2 -") neq "-1") >
			<cfset Clinical_44="9" />
	<cfelseif Equation_Calc eq "3" AND (Ostomy_for_Bowel_M0550.indexof("1 -")neq "-1"  OR Ostomy_for_Bowel_M0550.indexof("2 -") neq "-1") >
			<cfset Clinical_44="3" />
	<cfelseif Equation_Calc eq "4" AND (Ostomy_for_Bowel_M0550.indexof("1 -") neq "-1"  OR Ostomy_for_Bowel_M0550.indexof("2 -") neq "-1") >
			<cfset Clinical_44="9" />
	</cfif>
	
	<!--Find Clinical_45-->
	
	<cfset Clinical_45 = "0" />
	<cfset Inject_Meds_M0800 =HippsCalc.Inject_Meds_M0800 />
	<cfset Supply_All = Link_Supply_2 & " " & Link_Supply_3 & " " & Link_Supply_4 & " " & Link_Supply_5 & " " & Link_Supply_6 & " " & Link_Supply_1  />
	
	<cfif Supply_All neq "" OR Pressure_Ulcer_a_M0450.indexof("1") neq "-1"   OR Pressure_Ulcer_b_M0450.indexof("1") neq "-1"   OR Pressure_Ulcer_c_M0450.indexof("1") neq "-1" OR Pressure_Ulcer_d_M0450.indexof("1") neq "-1" OR Pressure_Ulcer_e_M0450.indexof("1") neq "-1"  OR Stasis_Ulcer_Num_M0470.indexof("1") neq "-1" OR Stasis_Ulcer_Hidden_M0474.indexof("1") neq "-1" OR Stasis_Ulcer_Status_M0476.indexof("1") neq "-1" OR Pressure_Ulcer_a_M0450.indexof("2") neq "-1"   OR Pressure_Ulcer_b_M0450.indexof("2") neq "-1"   OR Pressure_Ulcer_c_M0450.indexof("2") neq "-1" OR Pressure_Ulcer_d_M0450.indexof("2") neq "-1" OR Pressure_Ulcer_a_M0450.indexof("3") neq "-1"   OR Pressure_Ulcer_b_M0450.indexof("3") neq "-1"   OR Pressure_Ulcer_c_M0450.indexof("3") neq "-1" OR Pressure_Ulcer_d_M0450.indexof("3") neq "-1" OR Pressure_Ulcer_a_M0450.indexof("4") neq "-1"   OR Pressure_Ulcer_b_M0450.indexof("4") neq "-1"   OR Pressure_Ulcer_c_M0450.indexof("4") neq "-1" OR Pressure_Ulcer_d_M0450.indexof("4") neq "-1" OR Stasis_Ulcer_Num_M0470.indexof("2") neq "-1" OR Stasis_Ulcer_Hidden_M0474.indexof("2") neq "-1" OR Stasis_Ulcer_Status_M0476.indexof("2") neq "-1" OR Surgical_Wound_Status_M0488.indexof("2") neq "-1" OR Stasis_Ulcer_Num_M0470.indexof("3") neq "-1" OR Stasis_Ulcer_Hidden_M0474.indexof("3") neq "-1" OR Stasis_Ulcer_Status_M0476.indexof("3") neq "-1" OR Surgical_Wound_Status_M0488.indexof("3") neq "-1" OR Stasis_Ulcer_Num_M0470.indexof("4") neq "-1"     >
			<cfset Clinical_43_Supply="1" />
	<cfelse>
			<cfset Clinical_43_Supply="0" />
	</cfif>
	
	<cfif Equation_Calc eq "5" AND Ostomy_for_Bowel_M0550.indexof("1") neq "-1"  AND Clinical_43_Supply eq "1" >
			<cfset Clinical_45="14" />
	<cfelseif Equation_Calc eq "1" AND Inject_Meds_M0800.indexof("NA ") eq "-1"  AND Inject_Meds_M0800 neq "" >
			<cfset Clinical_45="1" />
	<cfelseif Equation_Calc eq "2" AND Inject_Meds_M0800.indexof("NA ") eq "-1"  AND Inject_Meds_M0800 neq "" >
			<cfset Clinical_45="1" />
	<cfelseif Equation_Calc eq "3" AND Inject_Meds_M0800.indexof("NA ") eq "-1"  AND Inject_Meds_M0800 neq "" >
			<cfset Clinical_45="2" />
	<cfelseif Equation_Calc eq "4" AND Inject_Meds_M0800.indexof("NA ") eq "-1"  AND Inject_Meds_M0800 neq "" >
			<cfset Clinical_45="4" />
	</cfif>
	
	
	<cfset Sum_Clinical_2008 = Clinical_01 + Clinical_02 + Clinical_03 + Clinical_04 + Clinical_05 + Clinical_06 + Clinical_07 + Clinical_08 + Clinical_09 + Clinical_10 + Clinical_11 + Clinical_12 + Clinical_13 + Clinical_14 + Clinical_15 + Clinical_16 + Clinical_17 + Clinical_18+ Clinical_19 + Clinical_20 + Clinical_21 + Clinical_22 + Clinical_23 + Clinical_24 + Clinical_25 + Clinical_26 + Clinical_27 + Clinical_28 + Clinical_29 + Clinical_30 + Clinical_31 + Clinical_32 + Clinical_33 + Clinical_34 + Clinical_35 + Clinical_36 + Clinical_37 + Clinical_38 + Clinical_39 + Clinical_40 + Clinical_41 + Clinical_42 + Clinical_43 + Clinical_44 + Clinical_45   />

		
	<cfif Sum_Clinical_2008 eq "1" OR Sum_Clinical_2008 eq "0">
		<cfset Sum_Clinical_2008_Alpha = "A"  />
	<cfelseif Sum_Clinical_2008 eq "2" >
		<cfset Sum_Clinical_2008_Alpha = "B"  />
	<cfelseif Sum_Clinical_2008 eq "3" >
		<cfset Sum_Clinical_2008_Alpha = "C"  />
	<cfelseif Sum_Clinical_2008 eq "4" >
		<cfset Sum_Clinical_2008_Alpha = "D"  />
	<cfelseif Sum_Clinical_2008 eq "5" >
		<cfset Sum_Clinical_2008_Alpha = "E"  />
	<cfelseif Sum_Clinical_2008 eq "6" >
		<cfset Sum_Clinical_2008_Alpha = "F"  />
	<cfelseif Sum_Clinical_2008 eq "7" >
		<cfset Sum_Clinical_2008_Alpha = "G"  />
	<cfelseif Sum_Clinical_2008 eq "8" >
		<cfset Sum_Clinical_2008_Alpha = "H"  />
	<cfelseif Sum_Clinical_2008 eq "9" >
		<cfset Sum_Clinical_2008_Alpha = "I"  />
	<cfelseif Sum_Clinical_2008 eq "10" >
		<cfset Sum_Clinical_2008_Alpha = "J"  />
	<cfelseif Sum_Clinical_2008 eq "11" >
		<cfset Sum_Clinical_2008_Alpha = "L"  />
	<cfelseif Sum_Clinical_2008 eq "12" >
		<cfset Sum_Clinical_2008_Alpha = "K"  />
	<cfelseif Sum_Clinical_2008 eq "13" >
		<cfset Sum_Clinical_2008_Alpha = "M"  />
	<cfelseif Sum_Clinical_2008 eq "14" >
		<cfset Sum_Clinical_2008_Alpha = "N"  />
	<cfelseif Sum_Clinical_2008 eq "15" >
		<cfset Sum_Clinical_2008_Alpha = "O"  />
	<cfelseif Sum_Clinical_2008 eq "16" >
		<cfset Sum_Clinical_2008_Alpha = "P"  />
	<cfelseif Sum_Clinical_2008 eq "17" >
		<cfset Sum_Clinical_2008_Alpha = "Q"  />
	<cfelseif Sum_Clinical_2008 eq "18" >
		<cfset Sum_Clinical_2008_Alpha = "R"  />
	<cfelseif Sum_Clinical_2008 eq "19" >
		<cfset Sum_Clinical_2008_Alpha = "S"  />
	<cfelseif Sum_Clinical_2008 eq "20" >
		<cfset Sum_Clinical_2008_Alpha = "T"  />
	<cfelseif Sum_Clinical_2008 eq "21" >
		<cfset Sum_Clinical_2008_Alpha = "U"  />
	<cfelseif Sum_Clinical_2008 eq "22" >
		<cfset Sum_Clinical_2008_Alpha = "V"  />
	<cfelseif Sum_Clinical_2008 eq "23" >
		<cfset Sum_Clinical_2008_Alpha = "W"  />
	<cfelseif Sum_Clinical_2008 eq "24" >
		<cfset Sum_Clinical_2008_Alpha = "X"  />
	<cfelseif Sum_Clinical_2008 eq "25" >
		<cfset Sum_Clinical_2008_Alpha = "Y"  />
	<cfelseif Sum_Clinical_2008 gte "26" >
		<cfset Sum_Clinical_2008_Alpha = "Z"  />
	</cfif>
	
	<cfif Equation_Calc_Run eq "1">
		<cfset Sum_Clinical_2008_1 = Sum_Clinical_2008_Alpha  />
	</cfif>
	
	<cfif Equation_Calc_Run eq "2">
		<cfset Sum_Clinical_2008_2 = Sum_Clinical_2008_Alpha  />
	</cfif>
	
	<cfif Equation_Calc_Run eq "3">
		<cfset Sum_Clinical_2008_3 = Sum_Clinical_2008_Alpha  />
	</cfif>
	
	<cfif Equation_Calc_Run eq "4">
		<cfset Sum_Clinical_2008_4 = Sum_Clinical_2008_Alpha  />
	</cfif>
	<cfset index = index + 1 />
</cfloop>


<cfset index = 1 />
	
<cfloop from="1" to="4" index="i">
	<cfset Equation_Calc_Run = index />
	<cfset Equation_Calc = Equation_Calc_Run />
	<cfset Sum_Functional_2008 = "0" />
	
	<!--Find Clinical_46-->
	
	<cfset Clinical_46 = "0" />
	
	<cfif Equation_Calc eq "5" AND Ostomy_for_Bowel_M0550.indexof("2") neq "-1"  AND Clinical_43_Supply eq "1" >
			<cfset Clinical_46="11" />
	<cfelseif Equation_Calc eq "1" AND Clinical_14_M0826 eq "1"  >
			<cfset Clinical_46="2" />
	<cfelseif Equation_Calc eq "2" AND Clinical_14_M0826 eq "1"  >
			<cfset Clinical_46="4" />
	<cfelseif Equation_Calc eq "3" AND Clinical_14_M0826 eq "1"  >
			<cfset Clinical_46="2" />
	<cfelseif Equation_Calc eq "4" AND Clinical_14_M0826 eq "1"  >
			<cfset Clinical_46="2" />
	</cfif>
	
	<!--Find Clinical_47-->
	
	<cfset Clinical_47 = "0" />
	
	<cfif Equation_Calc eq "5" AND Therapies_Home_M0250.indexof("1") neq "-1">
			<cfset Clinical_47 = "5" />
	<cfelseif Equation_Calc eq "1" AND (Bathing_M0670.indexof("2 -") neq "-1" OR Bathing_M0670.indexof("3 -") neq "-1" OR Bathing_M0670.indexof("4 -") neq "-1" OR Bathing_M0670.indexof("5 -") neq "-1" OR Bathing_M0670.indexof("6 -") neq "-1" )>
			<cfset Clinical_47 = "3" />
	<cfelseif Equation_Calc eq "2" AND (Bathing_M0670.indexof("2 -") neq "-1" OR Bathing_M0670.indexof("3 -")neq "-1" OR Bathing_M0670.indexof("4 -") neq "-1" OR Bathing_M0670.indexof("5 -") neq "-1" OR Bathing_M0670.indexof("6 -") neq "-1" )>
			<cfset Clinical_47 = "3" />
	<cfelseif Equation_Calc eq "3" AND (Bathing_M0670.indexof("2 -")neq "-1" OR Bathing_M0670.indexof("3 -") neq "-1" OR Bathing_M0670.indexof("4 -") neq "-1" OR Bathing_M0670.indexof("5 -") neq "-1" OR Bathing_M0670.indexof("6 -") neq "-1" )>
			<cfset Clinical_47 = "6" />
	<cfelseif Equation_Calc eq "4" AND (Bathing_M0670.indexof("2 -") neq "-1" OR Bathing_M0670.indexof("3 -") neq "-1" OR Bathing_M0670.indexof("4 -") neq "-1" OR Bathing_M0670.indexof("5 -") neq "-1" OR Bathing_M0670.indexof("6 -") neq "-1" )>
			<cfset Clinical_47 = "6" />
	</cfif>
	
	<!--Find Clinical_48-->
	
	<cfset Clinical_48 = "0" />
	<cfset Assessment_Completed_M0090=HippsCalc.Assessment_Completed_M0090 />
	<cfset CheckDate="12/31/2009" /><!--Default date Don't change.-->
	<cfset Toileting_M0680=HippsCalc.Toileting_M0680 />
	<cfset Urinary_INcont_M0520=HippsCalc.Urinary_INcont_M0520 />
	
	<cfif Assessment_Completed_M0090 gt CheckDate>
			<cfset OASIS_Version_Code_1 = "C-072009" />
	<cfelse>
			<cfset OASIS_Version_Code_1 = "B1-1202" />
	</cfif>
	
	
	<cfif Equation_Calc eq "5" AND Urinary_INcont_M0520.indexof("2") neq "-1">
			<cfset Clinical_48 = "9" />
			
	<cfelseif Equation_Calc eq "1" AND OASIS_Version_Code_1.indexof("B") neq "-1" AND (Toileting_M0680.indexof("2 -") neq "-1" OR Toileting_M0680.indexof("3 -") neq "-1" OR Toileting_M0680.indexof("4 -") neq "-1" )>
			<cfset Clinical_48 = "2" />
	<cfelseif Equation_Calc eq "2" AND OASIS_Version_Code_1.indexof("B") neq "-1" AND (Toileting_M0680.indexof("2 -") neq "-1" OR Toileting_M0680.indexof("3 -") neq "-1" OR Toileting_M0680.indexof("4 -") neq "-1" )>
			<cfset Clinical_48 = "3" />
	<cfelseif Equation_Calc eq "3" AND OASIS_Version_Code_1.indexof("B") neq "-1" AND (Toileting_M0680.indexof("2 -") neq "-1" OR Toileting_M0680.indexof("3 -") neq "-1" OR Toileting_M0680.indexof("4 -") neq "-1" )>
			<cfset Clinical_48 = "2" />
			
	<cfelseif Equation_Calc eq "1" AND OASIS_Version_Code_1.indexof("C") neq "-1" AND (M1840_Toilet.indexof("2 -") neq "-1" OR M1840_Toilet.indexof("3 -") neq "-1" OR M1840_Toilet.indexof("4 -") neq "-1" )>
			<cfset Clinical_48 = "2" />
	<cfelseif Equation_Calc eq "2" AND OASIS_Version_Code_1.indexof("C") neq "-1" AND (M1840_Toilet.indexof("2 -") neq "-1" OR M1840_Toilet.indexof("3 -") neq "-1" OR M1840_Toilet.indexof("4 -") neq "-1" )>
			<cfset Clinical_48 = "3" />
	<cfelseif Equation_Calc eq "3" AND OASIS_Version_Code_1.indexof("C") neq "-1" AND (M1840_Toilet.indexof("2 -") neq "-1" OR M1840_Toilet.indexof("3 -") neq "-1" OR M1840_Toilet.indexof("4 -") neq "-1" )>
			<cfset Clinical_48 = "2" />
	</cfif>
	
	<!--Find Clinical_49-->
	
	<cfset Clinical_49 = "0" />
	
	<cfset Bowel_Incont_M0540=HippsCalc.Bowel_Incont_M0540 />
	<cfset Transferring_M0690=HippsCalc.Transferring_M0690 />
	
	<cfif Equation_Calc eq "5" AND Bowel_Incont_M0540.indexof("4") neq "-1" OR Bowel_Incont_M0540.indexof("5") neq "-1" AND Equation_Calc eq "5">
			<cfset Clinical_49 = "10" />
	<cfelseif Equation_Calc eq "2" AND ( Transferring_M0690.indexof("2 -") neq "-1" OR Transferring_M0690.indexof("3 -") neq "-1" OR Transferring_M0690.indexof("4 -") neq "-1" OR Transferring_M0690.indexof("5 -") neq "-1" )>
			<cfset Clinical_49 = "2" />
	</cfif>
	
	<!--Find Clinical_50-->
	
	<cfset Clinical_50 = "0" />
	
	<cfset Ambulation_M0700=HippsCalc.Ambulation_M0700 />
	
	<cfif (Ambulation_M0700.indexof("1") neq "-1" OR Ambulation_M0700.indexof("2") neq "-1" OR Ambulation_M0700.indexof("3") neq "-1")AND (Equation_Calc eq "1" OR Equation_Calc eq "3" )>
			<cfset Clinical_50="1" />
	</cfif>
	
	
	<!--Find Clinical_51-->
	
	<cfset Clinical_51 = "0" />
	
	<cfif (Ambulation_M0700.indexof("4") neq "-1" OR Ambulation_M0700.indexof("5") neq "-1" OR Ambulation_M0700.indexof("6") neq "-1") AND Equation_Calc eq "1">
			<cfset Clinical_51="3" />
	<cfelseif (Ambulation_M0700.indexof("4") neq "-1" OR Ambulation_M0700.indexof("5") neq "-1" OR Ambulation_M0700.indexof("6") neq "-1") AND Equation_Calc eq "2">
			<cfset Clinical_51="4" />
	<cfelseif (Ambulation_M0700.indexof("4") neq "-1" OR Ambulation_M0700.indexof("5") neq "-1" OR Ambulation_M0700.indexof("6") neq "-1") AND Equation_Calc eq "3">
			<cfset Clinical_51="4" />
	<cfelseif (Ambulation_M0700.indexof("4") neq "-1" OR Ambulation_M0700.indexof("5") neq "-1" OR Ambulation_M0700.indexof("6") neq "-1") AND Equation_Calc eq "4">
			<cfset Clinical_51="5" />
	</cfif>
	
	
	<!--Find Sum_Functional_2008-->
	
	<cfset Sum_Functional_2008 = Clinical_46 + Clinical_47 + Clinical_48 + Clinical_49 + Clinical_50 + Clinical_51  />
		
	<cfif Sum_Functional_2008 eq "1" OR Sum_Functional_2008 eq "0">
		<cfset Sum_Functional_2008_Alpha = "A"  />
	<cfelseif Sum_Functional_2008 eq "2" >
		<cfset Sum_Functional_2008_Alpha = "B"  />
	<cfelseif Sum_Functional_2008 eq "3" >
		<cfset Sum_Functional_2008_Alpha = "C"  />
	<cfelseif Sum_Functional_2008 eq "4" >
		<cfset Sum_Functional_2008_Alpha = "D"  />
	<cfelseif Sum_Functional_2008 eq "5" >
		<cfset Sum_Functional_2008_Alpha = "E"  />
	<cfelseif Sum_Functional_2008 eq "6" >
		<cfset Sum_Functional_2008_Alpha = "F"  />
	<cfelseif Sum_Functional_2008 eq "7" >
		<cfset Sum_Functional_2008_Alpha = "G"  />
	<cfelseif Sum_Functional_2008 eq "8" >
		<cfset Sum_Functional_2008_Alpha = "H"  />
	<cfelseif Sum_Functional_2008 eq "9" >
		<cfset Sum_Functional_2008_Alpha = "I"  />
	<cfelseif Sum_Functional_2008 eq "10" >
		<cfset Sum_Functional_2008_Alpha = "J"  />
	<cfelseif Sum_Functional_2008 eq "11" >
		<cfset Sum_Functional_2008_Alpha = "L"  />
	<cfelseif Sum_Functional_2008 eq "12" >
		<cfset Sum_Functional_2008_Alpha = "K"  />
	<cfelseif Sum_Functional_2008 eq "13" >
		<cfset Sum_Functional_2008_Alpha = "M"  />
	<cfelseif Sum_Functional_2008 eq "14" >
		<cfset Sum_Functional_2008_Alpha = "N"  />
	<cfelseif Sum_Functional_2008 eq "15" >
		<cfset Sum_Functional_2008_Alpha = "O"  />
	<cfelseif Sum_Functional_2008 eq "16" >
		<cfset Sum_Functional_2008_Alpha = "P"  />
	<cfelseif Sum_Functional_2008 eq "17" >
		<cfset Sum_Functional_2008_Alpha = "Q"  />
	<cfelseif Sum_Functional_2008 eq "18" >
		<cfset Sum_Functional_2008_Alpha = "R"  />
	<cfelseif Sum_Functional_2008 eq "19" >
		<cfset Sum_Functional_2008_Alpha = "S"  />
	<cfelseif Sum_Functional_2008 eq "20" >
		<cfset Sum_Functional_2008_Alpha = "T"  />
	<cfelseif Sum_Functional_2008 eq "21" >
		<cfset Sum_Functional_2008_Alpha = "U"  />
	<cfelseif Sum_Functional_2008 eq "22" >
		<cfset Sum_Functional_2008_Alpha = "V"  />
	<cfelseif Sum_Functional_2008 eq "23" >
		<cfset Sum_Functional_2008_Alpha = "W"  />
	<cfelseif Sum_Functional_2008 eq "24" >
		<cfset Sum_Functional_2008_Alpha = "X"  />
	<cfelseif Sum_Functional_2008 eq "25" >
		<cfset Sum_Functional_2008_Alpha = "Y"  />
	<cfelseif Sum_Functional_2008 gte "26" >
		<cfset Sum_Functional_2008_Alpha = "Z"  />
	</cfif>
	
	<cfif Equation_Calc_Run eq "1">
		<cfset Sum_Functional_2008_1 = Sum_Functional_2008_Alpha  />
	</cfif>
	
	<cfif Equation_Calc_Run eq "2">
		<cfset Sum_Functional_2008_2 = Sum_Functional_2008_Alpha  />
	</cfif>
	
	<cfif Equation_Calc_Run eq "3">
		<cfset Sum_Functional_2008_3 = Sum_Functional_2008_Alpha  />
	</cfif>
	
	<cfif Equation_Calc_Run eq "4">
		<cfset Sum_Functional_2008_4 = Sum_Functional_2008_Alpha  />
	</cfif>
	
	<cfset index = index + 1 />
</cfloop>
<br/>

Treatment Auth No. :
<cfoutput >
#M0030_Year_Short##M0030_Julian##M0090_Year_Short##M0090_Julian##M0100_Short##M0110_Short##Sum_Clinical_2008_1##Sum_Functional_2008_1##Sum_Clinical_2008_2##Sum_Functional_2008_2##Sum_Clinical_2008_3##Sum_Functional_2008_3##Sum_Clinical_2008_4##Sum_Functional_2008_4#
</cfoutput>
