<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="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 />
<!--<cfoutput>#DiagnosisAssessment_ID#</cfoutput>--->


<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 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>


<cfform name="HelloForm" method="post">


<cfset M0110_Episode_Timing = HippsCalc.M0110 />
<cfset M0826_Ther_Need = HippsCalc.M0826_Ther_Need />

<cfset HIPPS_2008_1="" />
<!--Genrate First Digit of HIPPS Code-->

<cfif M0110_Episode_Timing.indexOf("1") neq "-1" AND M0826_Ther_Need lt "14">
        <cfset HIPPS_2008_1 = "1" />
<cfelseif M0110_Episode_Timing.indexOf("1") neq "-1" AND M0826_Ther_Need gt "13" AND M0826_Ther_Need lt "20">
        <cfset HIPPS_2008_1 = "2" />
<cfelseif M0110_Episode_Timing.indexOf("2") neq "-1" AND M0826_Ther_Need lt "14">
        <cfset HIPPS_2008_1 = "3" />
<cfelseif M0110_Episode_Timing.indexOf("2") neq "-1" AND M0826_Ther_Need gt "13" AND M0826_Ther_Need lt "20">
        <cfset HIPPS_2008_1 = "4" />
<cfelseif M0110_Episode_Timing.indexOf("1") neq "-1" AND M0826_Ther_Need gt "19">
        <cfset HIPPS_2008_1 = "5" />
<cfelseif M0110_Episode_Timing.indexOf("2") neq "-1" AND M0826_Ther_Need gt "19">
        <cfset HIPPS_2008_1 = "5" />
</cfif>


<!--.-----------------------------------------------------Genrate Second Digit of HIPPS Code------------------------------------------------->

<!--Find Equation_Calc_Actual-->
<cfset Equation_Calc_Actual = "0" />
<cfif M0826_Ther_Need lt "14" AND M0110_Episode_Timing.indexOf("1") neq "-1" >
        <cfset Equation_Calc_Actual = "1" />
<cfelseif M0826_Ther_Need lt "14" AND M0110_Episode_Timing.indexOf("2") neq "-1" >
        <cfset Equation_Calc_Actual = "3" />
<cfelseif M0826_Ther_Need gt "13" AND M0110_Episode_Timing.indexOf("1") neq "-1" >
        <cfset Equation_Calc_Actual = "2" />
<cfelseif M0826_Ther_Need gt "13" AND M0110_Episode_Timing.indexOf("2") neq "-1" >
        <cfset Equation_Calc_Actual = "4" />
</cfif>

<!--Find Sum_Act_Clini_2008-->

<!--Find Clinical_01-->
<cfset Clinical_01="0" />
<cfset Equation_Calc_Run="" />
<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_Actual />

<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_Act_Clini_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   />


<!--Find Actual_2008_C_Score -->
<cfset Actual_2008_C_Score="" />
<cfif Equation_Calc_Actual eq "1" AND Sum_Act_Clini_2008 lte  "4" >
        <cfset Actual_2008_C_Score="C1" />
<cfelseif Equation_Calc_Actual eq "1" AND Sum_Act_Clini_2008 gte  "5" AND Sum_Act_Clini_2008 lte  "8">
        <cfset Actual_2008_C_Score="C2" />
<cfelseif Equation_Calc_Actual eq "1" AND Sum_Act_Clini_2008 gte  "9" >
        <cfset Actual_2008_C_Score="C3" />
<cfelseif Equation_Calc_Actual eq "2" AND Sum_Act_Clini_2008 gte  "0" AND Sum_Act_Clini_2008 lte  "6" AND M0826_Ther_Need lt "20">
        <cfset Actual_2008_C_Score="C1" />
<cfelseif Equation_Calc_Actual eq "2" AND Sum_Act_Clini_2008 gte  "7" AND Sum_Act_Clini_2008 lte  "14" AND M0826_Ther_Need lt "20">
        <cfset Actual_2008_C_Score="C2" />
<cfelseif Equation_Calc_Actual eq "2" AND Sum_Act_Clini_2008 gte  "15" AND M0826_Ther_Need lt "20">
        <cfset Actual_2008_C_Score="C3" />
<cfelseif Equation_Calc_Actual eq "3" AND Sum_Act_Clini_2008 lte  "2" >
        <cfset Actual_2008_C_Score="C1" />
<cfelseif Equation_Calc_Actual eq "3" AND Sum_Act_Clini_2008 gte  "3" AND Sum_Act_Clini_2008 lte  "5" >
        <cfset Actual_2008_C_Score="C2" />
<cfelseif Equation_Calc_Actual eq "3" AND Sum_Act_Clini_2008 gte  "6" >
        <cfset Actual_2008_C_Score="C3" />
<cfelseif Equation_Calc_Actual eq "4" AND M0826_Ther_Need lt "20" AND Sum_Act_Clini_2008 gte  "0" AND Sum_Act_Clini_2008 lte  "8" >
        <cfset Actual_2008_C_Score="C1" />
<cfelseif Equation_Calc_Actual eq "4" AND M0826_Ther_Need lt "20" AND Sum_Act_Clini_2008 gte  "9" AND Sum_Act_Clini_2008 lte  "16" >
        <cfset Actual_2008_C_Score="C2" />
<cfelseif Equation_Calc_Actual eq "4" AND M0826_Ther_Need lt "20" AND Sum_Act_Clini_2008 gte  "17" >
        <cfset Actual_2008_C_Score="C3" />
<cfelseif M0826_Ther_Need gte "20" AND Sum_Act_Clini_2008 lt  "8" >
        <cfset Actual_2008_C_Score="C1" />
<cfelseif M0826_Ther_Need gte "20" AND Sum_Act_Clini_2008 gte  "8" AND Sum_Act_Clini_2008 lte  "14" >
        <cfset Actual_2008_C_Score="C2" />
<cfelseif M0826_Ther_Need gte "20" AND Sum_Act_Clini_2008 gte  "15" >
        <cfset Actual_2008_C_Score="C3" />
</cfif>


<!--Find HIPPS_2008_2 -->

<cfset HIPPS_2008_2="" />

<cfif Actual_2008_C_Score eq "C1">
        <cfset HIPPS_2008_2 ="A" />
<cfelseif Actual_2008_C_Score eq "C2">
        <cfset HIPPS_2008_2 ="B" />
<cfelseif Actual_2008_C_Score eq "C3">
        <cfset HIPPS_2008_2 ="C" />
</cfif>

<!--.-----------------------------------------------------Genrate Third Digit of HIPPS Code------------------------------------------------->

<!--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_Act_Func_2008-->

<cfset Sum_Act_Func_2008= Clinical_46 + Clinical_47 + Clinical_48 + Clinical_49 + Clinical_50 + Clinical_51  />
	
	
<!-- Find Actual_2008_F_Score  -->
<cfset Actual_2008_F_Score="" />
<cfif Equation_Calc_Actual eq "1" AND Sum_Act_Func_2008 lte  "5" >
        <cfset Actual_2008_F_Score="F1" />
<cfelseif Equation_Calc_Actual eq "1" AND Sum_Act_Func_2008 eq  "6" >
        <cfset Actual_2008_F_Score="F2" />
<cfelseif Equation_Calc_Actual eq "1" AND Sum_Act_Func_2008 gte  "7" >
        <cfset Actual_2008_F_Score="F3" />
		
<cfelseif Equation_Calc_Actual eq "2" AND Sum_Act_Func_2008 lt  "7" >
        <cfset Actual_2008_F_Score="F1" />
<cfelseif Equation_Calc_Actual eq "2" AND Sum_Act_Func_2008 eq  "7" >
        <cfset Actual_2008_F_Score="F2" />
<cfelseif Equation_Calc_Actual eq "2" AND Sum_Act_Func_2008 gt  "7" >
        <cfset Actual_2008_F_Score="F3" />
		
<cfelseif Equation_Calc_Actual eq "3" AND Sum_Act_Func_2008 lte  "8" >
        <cfset Actual_2008_F_Score="F1" />
<cfelseif Equation_Calc_Actual eq "3" AND Sum_Act_Func_2008 eq  "9" >
        <cfset Actual_2008_F_Score="F2" />
<cfelseif Equation_Calc_Actual eq "3" AND Sum_Act_Func_2008 gte  "10" >
        <cfset Actual_2008_F_Score="F3" />
		
<cfelseif Equation_Calc_Actual eq "4" AND M0826_Ther_Need lt "20" AND Sum_Act_Func_2008 gte  "0" AND Sum_Act_Func_2008 lte  "7" >
        <cfset Actual_2008_F_Score="F1" />
<cfelseif Equation_Calc_Actual eq "4" AND M0826_Ther_Need lt "20" AND Sum_Act_Func_2008 eq  "8" >
        <cfset Actual_2008_F_Score="F2" />
<cfelseif Equation_Calc_Actual eq "4" AND M0826_Ther_Need lt "20" AND Sum_Act_Func_2008 gte  "9" >
        <cfset Actual_2008_F_Score="F3" />
		
<cfelseif M0826_Ther_Need gt "19" AND Sum_Act_Func_2008 gte  "0" AND Sum_Act_Func_2008 lte  "6" >
        <cfset Actual_2008_F_Score="F1" />
<cfelseif M0826_Ther_Need gt "19" AND Sum_Act_Func_2008 eq  "7" >
        <cfset Actual_2008_F_Score="F2" />
<cfelseif M0826_Ther_Need gt "19" AND Sum_Act_Func_2008 gte  "8" >
        <cfset Actual_2008_F_Score="F3" />
</cfif>

<cfset HIPPS_2008_3="" />

<cfif Actual_2008_F_Score eq "F1">
        <cfset HIPPS_2008_3 ="F" />
<cfelseif Actual_2008_F_Score eq "F2">
        <cfset HIPPS_2008_3 ="G" />
<cfelseif Actual_2008_F_Score eq "F3">
        <cfset HIPPS_2008_3 ="H" />
</cfif>

<!--.-----------------------------------------------------Genrate Fourth Digit of HIPPS Code------------------------------------------------->

<!-- Find Actual_2008_S_Score -->
<cfset Actual_2008_S_Score="" />
<cfif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "0" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "1" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "2" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "3" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "4" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "5" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "6" >
        <cfset Actual_2008_S_Score = "S2" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "7" >
        <cfset Actual_2008_S_Score = "S3" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "8" >
        <cfset Actual_2008_S_Score = "S3" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "9" >
        <cfset Actual_2008_S_Score = "S3" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "10" >
        <cfset Actual_2008_S_Score = "S4" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "11" >
        <cfset Actual_2008_S_Score = "S5" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "12" >
        <cfset Actual_2008_S_Score = "S5" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "13" >
        <cfset Actual_2008_S_Score = "S5" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "14" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "15" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "16" >
        <cfset Actual_2008_S_Score = "S2" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "17" >
        <cfset Actual_2008_S_Score = "S2" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "18" >
        <cfset Actual_2008_S_Score = "S3" />
<cfelseif M0110_Episode_Timing.indexof("1") neq "-1" AND M0826_Ther_Need eq "19" >
        <cfset Actual_2008_S_Score = "S3" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "0" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "1" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "2" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "3" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "4" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "5" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "6" >
        <cfset Actual_2008_S_Score = "S2" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "7" >
        <cfset Actual_2008_S_Score = "S3" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "8" >
        <cfset Actual_2008_S_Score = "S3" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "9" >
        <cfset Actual_2008_S_Score = "S3" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "10" >
        <cfset Actual_2008_S_Score = "S4" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "11" >
        <cfset Actual_2008_S_Score = "S5" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "12" >
        <cfset Actual_2008_S_Score = "S5" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "13" >
        <cfset Actual_2008_S_Score = "S5" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "14" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "15" >
        <cfset Actual_2008_S_Score = "S1" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "16" >
        <cfset Actual_2008_S_Score = "S2" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "17" >
        <cfset Actual_2008_S_Score = "S2" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "18" >
        <cfset Actual_2008_S_Score = "S3" />
<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need eq "19" >
        <cfset Actual_2008_S_Score = "S3" />
<cfelseif M0826_Ther_Need gt "20">
        <cfset Actual_2008_S_Score ="S1" />
</cfif>

<!--HIPPS_2008_4-->
<cfset HIPPS_2008_4="" />
<cfif Actual_2008_S_Score eq "S1">
        <cfset HIPPS_2008_4 = "K" />
<cfelseif Actual_2008_S_Score eq "S2">
        <cfset HIPPS_2008_4 = "L" />
<cfelseif Actual_2008_S_Score eq "S3">
        <cfset HIPPS_2008_4 = "M" />
<cfelseif Actual_2008_S_Score eq "S4">
        <cfset HIPPS_2008_4 = "N" />
<cfelseif Actual_2008_S_Score eq "S5">
        <cfset HIPPS_2008_4 = "P" />
</cfif>


<!--.-----------------------------------------------------Genrate Fifth Digit of HIPPS Code------------------------------------------------->

<!--Find Equation_Calc_Run-->

<cfset Equation_Calc_Run ="5" />

<cfset Equation_Calc = Equation_Calc_Run />

<!--Find Clinical_01-->

<cfset Clinical_01="0" />

<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" />
<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" />
</cfif>

<!--Find Clinical_03-->

<cfset Clinical_03="0" />

<cfif Equation_Calc eq "5" AND Link_Supply_1 eq "2" >
        <cfset Clinical_03="14" />
</cfif>

<!--Find Clinical_04-->

<cfset Clinical_04="0" />

<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" />
</cfif>

<!--Find Clinical_05-->

<cfset Clinical_05="0" />
<cfif Equation_Calc eq "5" AND Supply_250_707 eq "Yes">
        <cfset Clinical_05="20" />
</cfif>

<!--Find Clinical_06-->

<cfset Clinical_06="0" />


<cfif Equation_Calc eq "5" AND Link_Supply_1 eq "4">
        <cfset Clinical_06="11" />
</cfif>

<!--Find Clinical_07-->

<cfset Clinical_07="0" />

<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" />
</cfif>

<!--Find Clinical_08-->

<cfset Clinical_08="0" />

<cfif Equation_Calc eq "5" AND Link_Supply_1 eq "5">
        <cfset Clinical_08="15" />
</cfif>

<!--Find Clinical_09-->

<cfset Clinical_09="0" />


<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" />
</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" />
</cfif>

<!--Find Clinical_11-->

<cfset Clinical_11="0" />

<cfif Equation_Calc eq "5" AND Link_Supply_1 eq "7">
        <cfset Clinical_11="16" />
</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" />
</cfif>

<!--Find Clinical_13-->

<cfset Clinical_13="0" />

<cfif Link_Supply_1 eq "8" AND Equation_Calc eq "5" >
        <cfset Clinical_13="23" />
</cfif>

<!--Find Clinical_14-->

<cfset Clinical_14="0" />

<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" />
</cfif>

<!--Find Clinical_15-->

<cfset Clinical_15="0" />

<cfif Link_Supply_1 eq "9" AND Equation_Calc eq "5" >
        <cfset Clinical_15="19" />
</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" />
</cfif>

<!--Find Clinical_17-->

<cfset Clinical_17="0" />

<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" />
</cfif>

<!--Find Clinical_18-->

<cfset Clinical_18="0" />

<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" />
</cfif>

<!--Find Clinical_19-->

<cfset Clinical_19="0" />

<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" />
</cfif>

<!--Find Clinical_20-->

<cfset Clinical_20="0" />

<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" />
</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" />
</cfif>

<!--Find Clinical_22-->

<cfset Clinical_22="0" />

<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_b_M0450.indexof("1") neq "-1" )>
        <cfset Clinical_22="14" />
</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" />
</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="29" />
</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" />
</cfif>

<!--Find Clinical_26-->

<cfset Clinical_26="0" />


<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_c_M0450.indexof("1") neq "-1" )>
        <cfset Clinical_26="29" />
</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" />
</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" />
</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" />
</cfif>

<!--Find Clinical_30-->

<cfset Clinical_30="0" />

<cfif Equation_Calc eq "5" AND (Pressure_Ulcer_d_M0450.indexof("1") neq "-1" )>
        <cfset Clinical_30="48" />
</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" />
</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" />
</cfif>

<!--Find Clinical_33-->

<cfset Clinical_33="0" />


<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" />
</cfif>

<!--Find Clinical_34-->

<cfset Clinical_34="0" />


<cfif Equation_Calc eq "5" AND (Stasis_Ulcer_Num_M0470.indexof("2") neq "-1" )  >
        <cfset Clinical_34="6" />
</cfif>

<!--Find Clinical_35-->

<cfset Clinical_35="0" />

<cfif Equation_Calc eq "5" AND Stasis_Ulcer_Num_M0470.indexof("3") neq "-1"  >
        <cfset Clinical_35="12" />
</cfif>

<!--Find Clinical_36-->

<cfset Clinical_36="0" />

<cfif Equation_Calc eq "5" AND Stasis_Ulcer_Num_M0470.indexof("4") neq "-1"  >
        <cfset Clinical_36="21" />
</cfif>

<!--Find Clinical_37-->

<cfset Clinical_37="0" />


<cfif Equation_Calc eq "5" AND Stasis_Ulcer_Hidden_M0474.indexof("1") neq "-1"  >
        <cfset Clinical_37="9" />
</cfif>

<!--Find Clinical_38-->

<cfset Clinical_38="0" />


<cfif Equation_Calc eq "5" AND Stasis_Ulcer_Status_M0476.indexof("1") neq "-1"  >
        <cfset Clinical_38="6" />
</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" />



<cfif Equation_Calc eq "5" AND Stasis_Ulcer_Status_M0476.indexof("3") neq "-1"  >
        <cfset Clinical_40="36" />
</cfif>

<!--Find Clinical_41-->

<cfset Clinical_41 = "0" />


<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" />
</cfif>

<!--Find Clinical_42-->

<cfset Clinical_42 = "0" />

<cfif Equation_Calc eq "5" AND Surgical_Wound_Status_M0488.indexof("3") neq "-1"   >
        <cfset Clinical_42="14" />
</cfif>

<!--Find Clinical_43-->

<cfset Clinical_43 = "0" />

<cfif Equation_Calc eq "5" AND Ostomy_for_Bowel_M0550.indexof("1") neq "-1"   >
        <cfset Clinical_43="27" />
</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" />
</cfif>

<!--Find Clinical_45-->

<cfset Clinical_45 = "0" />


<cfif Equation_Calc eq "5" AND Ostomy_for_Bowel_M0550.indexof("1") neq "-1"  AND Clinical_43_Supply eq "1" >
        <cfset Clinical_45="14" />
</cfif>

<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" />
</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" />
</cfif>

<!--Find Clinical_48-->

<cfset Clinical_48 = "0" />

<cfif Equation_Calc eq "5" AND Urinary_INcont_M0520.indexof("2") neq "-1">
		<cfset Clinical_48 = "9" />
</cfif>

<!--Find Clinical_49-->

<cfset Clinical_49 = "0" />


<cfif Equation_Calc eq "5" AND (Bowel_Incont_M0540.indexof("4") neq "-1" OR Bowel_Incont_M0540.indexof("5") neq "-1") >
        <cfset Clinical_49 = "10" />
</cfif>

<!--Find Supplies_Total-->

<cfset Supplies_Total= 
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 + Clinical_46 + Clinical_47 + Clinical_48 + Clinical_49  />

<!--HIPPS_2008_5-->
<cfset HIPPS_2008_5="" />
<cfif Supplies_Total eq "0" AND M0110_Episode_Timing neq "">
        <cfset HIPPS_2008_5 = "S" />
<cfelseif Supplies_Total gte "1" AND Supplies_Total lte "14" >
        <cfset HIPPS_2008_5 = "T" />
<cfelseif Supplies_Total gte "15" AND Supplies_Total lte "27" >
        <cfset HIPPS_2008_5 = "U" />
<cfelseif Supplies_Total gte "28" AND Supplies_Total lte "48" >
        <cfset HIPPS_2008_5 = "V" />
<cfelseif Supplies_Total gte "49" AND Supplies_Total lte "98" >
        <cfset HIPPS_2008_5 = "W" />
<cfelseif Supplies_Total gte "99" >
        <cfset HIPPS_2008_5 = "X" />
</cfif>

<cfoutput>
	HIPPS Code: #HIPPS_2008_1##HIPPS_2008_2##HIPPS_2008_3##HIPPS_2008_4##HIPPS_2008_5#
</cfoutput>
<br />
<br />
<cfoutput>
	HHRG : #Actual_2008_C_Score##Actual_2008_F_Score##Actual_2008_S_Score#
</cfoutput>
<br />
<br />
<!---<cfoutput>
	Supplies_Total : #Supplies_Total#
</cfoutput>


<br/>
<cfoutput>
	Pressure_Ulcer_b_M0450: "#Pressure_Ulcer_b_M0450#"
</cfoutput>
<br/>


<br/>
<cfoutput>
	Pressure_Ulcer_c_M0450: "#Pressure_Ulcer_c_M0450#"
</cfoutput>
<br/>

<br/>
<cfoutput>
	Pressure_Ulcer_d_M0450: "#Pressure_Ulcer_d_M0450#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Pressure_Ulcer_e_M0450: "#Pressure_Ulcer_e_M0450#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	M1308_d_2_Pressure: "#M1308_d_2_Pressure#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	M1308_d_3_Pressure: "#M1308_d_3_Pressure#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Stasis_Ulcer_Num_M0470: "#Stasis_Ulcer_Num_M0470#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Stasis_Ulcer_Hidden_M0474: "#Stasis_Ulcer_Hidden_M0474#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Stasis_Ulcer_Status_M0476: "#Stasis_Ulcer_Status_M0476#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Surgical_Wound_M0482: "#Surgical_Wound_M0482#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Surgical_Wound_Status_M0488: "#Surgical_Wound_Status_M0488#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Ostomy_for_Bowel_M0550: "#Ostomy_for_Bowel_M0550#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Urinary_INcont_M0520: "#Urinary_INcont_M0520#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Bowel_Incont_M0540: "#Bowel_Incont_M0540#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Pressure_Ulcer_a_M0450: "#Pressure_Ulcer_a_M0450#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Pressure_Ulcer_b_M0450: "#Pressure_Ulcer_b_M0450#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Pressure_Ulcer_c_M0450: "#Pressure_Ulcer_c_M0450#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Therapies_Home_M0250: "#Therapies_Home_M0250#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_16: "#Clinical_16#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_17: "#Clinical_17#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_18: "#Clinical_18#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_19: "#Clinical_19#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_20: "#Clinical_20#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_21: "#Clinical_21#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_22: "#Clinical_22#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_23: "#Clinical_23#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_24: "#Clinical_24#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_25: "#Clinical_25#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_26: "#Clinical_26#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_27: "#Clinical_27#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_28: "#Clinical_28#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_29: "#Clinical_29#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_30: "#Clinical_30#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_31: "#Clinical_31#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_32: "#Clinical_32#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_33: "#Clinical_33#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_34: "#Clinical_34#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_35: "#Clinical_35#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_36: "#Clinical_36#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_37: "#Clinical_37#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_38: "#Clinical_38#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_39: "#Clinical_39#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_40: "#Clinical_40#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_41: "#Clinical_41#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_42: "#Clinical_42#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_43: "#Clinical_43#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_44: "#Clinical_44#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_45: "#Clinical_45#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_46: "#Clinical_46#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_47: "#Clinical_47#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_48: "#Clinical_48#"
</cfoutput>
<br/>
<br/>
<cfoutput>
	Clinical_49: "#Clinical_49#"
</cfoutput>
<br/>
<br/>--->

</cfform>