<cfform name="HIPPSCAREPLAN">
  <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,
        Assessment_New.HIPPS_Code
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 p.patient_ID='#Diagnosispatient_ID#'
        AND p.assessment_ID='#DiagnosisAssessment_ID#'
		and p.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>
  <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">
    <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">
    <cfset HIPPS_2008_1 = "4" />
   </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  />
  
  <!--Find Clinical_01-->
  
  <cfset Equation_Calc_Run = Equation_Calc_Actual />
  <cfset Equation_Calc = Equation_Calc_Actual />
  
  <cfif Equation_Calc_Run neq "1" AND Diagnosis_Case_Mix_All.indexof("Blind") neq "-1">
     <cfset Clinical_01="0" />
  <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Blind") neq "-1">
    <cfset Clinical_01="0" />
  <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Blind") neq "-1">
    <cfset Clinical_01="0" />
  <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Blind") neq "-1">
    <cfset Clinical_01="0" />
  </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-->
  
  
  <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="0" />
	<cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Blood") neq "-1">
    <cfset Clinical_02="2" />
	<cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Blood") neq "-1">
    <cfset Clinical_02="0" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Blood") neq "-1">
    <cfset Clinical_02="0" />
  </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="0" />
    <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Cancer") neq "-1">
    <cfset Clinical_03="5" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Cancer") neq "-1">
    <cfset Clinical_03="0" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Cancer") neq "-1">
    <cfset Clinical_03="5" />
  </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="0" />
    <cfelseif Equation_Calc eq "2" AND T01_Primary_Diagnosis_LinkDG_Type.indexof("Diabetes") neq "-1">
    <cfset Clinical_04="4" />
    <cfelseif Equation_Calc eq "3" AND T01_Primary_Diagnosis_LinkDG_Type.indexof("Diabetes") neq "-1">
    <cfset Clinical_04="0" />
    <cfelseif Equation_Calc eq "4" AND T01_Primary_Diagnosis_LinkDG_Type.indexof("Diabetes") neq "-1">
    <cfset Clinical_04="2" />
  </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="1" />
    <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_Other.indexof("Diabetes") neq "-1">
    <cfset Clinical_05="0" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_Other.indexof("Diabetes") neq "-1">
    <cfset Clinical_05="0" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_Other.indexof("Diabetes") neq "-1">
    <cfset Clinical_05="0" />
  </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="18" />
	<cfelseif Equation_Calc eq "3" 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 "4" AND Diagnosis_Case_Mix_All.indexof("Dysphagia") neq "-1" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1">
    <cfset Clinical_06="12" />
  </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 "1">
    <cfset Clinical_07="2" />
	<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" />
	<cfelseif Diagnosis_Case_Mix_All.indexof("Dysphagia") neq "-1" AND Therapies_Home_M0250.indexof("3 - ") neq "-1" AND Equation_Calc eq "3">
    <cfset Clinical_07="0" />
	<cfelseif Diagnosis_Case_Mix_All.indexof("Dysphagia") neq "-1" AND Therapies_Home_M0250.indexof("3 - ") neq "-1" AND Equation_Calc eq "4">
    <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="0" />
    <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Gastrointestinal") neq "-1" >
    <cfset Clinical_08="0" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Gastrointestinal") neq "-1" >
    <cfset Clinical_08="0" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Gastrointestinal") neq "-1" >
    <cfset Clinical_08="0" />
  </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="7" />
  </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="0" />
  </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="1" />
    <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Cardiac") neq "-1" >
    <cfset Clinical_11="2" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Cardiac") neq "-1" >
    <cfset Clinical_11="0" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Cardiac") neq "-1" >
    <cfset Clinical_11="2" />
    <cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Hypertension") neq "-1" >
    <cfset Clinical_11="1" />
    <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Hypertension") neq "-1" >
    <cfset Clinical_11="2" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Hypertension") neq "-1" >
    <cfset Clinical_11="0" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Hypertension") neq "-1" >
    <cfset Clinical_11="2" />
  </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="2" />
    <cfelseif Equation_Calc eq "2" AND Diagnosis_CaseMix_1.indexof("Neuro 1") neq "-1" >
    <cfset Clinical_12="12" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_CaseMix_1.indexof("Neuro 1") neq "-1" >
    <cfset Clinical_12="7" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_CaseMix_1.indexof("Neuro 1") neq "-1" >
    <cfset Clinical_12="12" />
  </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="0" />
    <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="3" />
    <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="0" />
    <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="3" />
  </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="3" />
    <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="1" />
    <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="3" />
  </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 "1">
    <cfset Clinical_15="3" />
	<cfelseif Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Equation_Calc eq "2">
    <cfset Clinical_15="12" />
	<cfelseif Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Equation_Calc eq "3">
    <cfset Clinical_15="2" />
	<cfelseif Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Equation_Calc eq "4">
    <cfset Clinical_15="5" />
  </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="0" />
    <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Clinical_14_M0826 eq "1">
    <cfset Clinical_16="0" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Clinical_14_M0826 eq "1">
    <cfset Clinical_16="0" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Clinical_14_M0826 eq "1">
    <cfset Clinical_16="0" />
  </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="0" />
    <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="0" />
  </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="7" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Neuro 4") neq "-1" AND Clinical_18_M0826 eq "1" >
    <cfset Clinical_18="6" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Neuro 4") neq "-1" AND Clinical_18_M0826 eq "1" >
    <cfset Clinical_18="11" />
  </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="8" />
	 <cfelseif Equation_Calc eq "2" 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="1" />
	 <cfelseif Equation_Calc eq "3" 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="7" />
	 <cfelseif Equation_Calc eq "4" 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="0" />
  </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="3" />
    <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="0" />
	<cfelseif Equation_Calc eq "3" 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="3" />
	<cfelseif Equation_Calc eq "4" 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="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" />
    <cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Psych 1") neq "-1" >
    <cfset Clinical_21="0" />
    <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Psych 1") neq "-1" >
    <cfset Clinical_21="0" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Psych 1") neq "-1" >
    <cfset Clinical_21="0" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Psych 1") neq "-1" >
    <cfset Clinical_21="0" />
  </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="0" />
    <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Psych 2") neq "-1" >
    <cfset Clinical_22="0" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Psych 2") neq "-1" >
    <cfset Clinical_22="0" />
  </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="0" />
    <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Pulmonary") neq "-1" >
    <cfset Clinical_23="0" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Pulmonary") neq "-1" >
    <cfset Clinical_23="0" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Pulmonary") neq "-1" >
    <cfset Clinical_23="1" />
  </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 "2" 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="4" />
    <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="7" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_CaseMix_1.indexof("Skin 1") neq "-1" >
    <cfset Clinical_25="18" />
  </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="7" />
    <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_Other.indexof("Skin 1") neq "-1" >
    <cfset Clinical_26="15" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_Other.indexof("Skin 1") neq "-1" >
    <cfset Clinical_26="8" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_Other.indexof("Skin 1") neq "-1" >
    <cfset Clinical_26="15" />
  </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="3" />
    <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="0" />
  </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="2" />
    <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Skin 2") neq "-1" >
    <cfset Clinical_28="17" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Skin 2") neq "-1" >
    <cfset Clinical_28="8" />
    <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Skin 2") neq "-1" >
    <cfset Clinical_28="17" />
  </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="17" />
    <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Trache") neq "-1" >
    <cfset Clinical_29="4" />
	<cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Trache") neq "-1" >
    <cfset Clinical_29="17" />
  </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="0" />
    <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="18" />
    <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="0" />
    <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="13" />
  </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="0" />
    <cfelseif Equation_Calc eq "2" AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
    <cfset Clinical_31="17" />
    <cfelseif Equation_Calc eq "3" AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
    <cfset Clinical_31="6" />
    <cfelseif Equation_Calc eq "4" AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
    <cfset Clinical_31="17" />
  </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="0" />
    <cfelseif Equation_Calc eq "2" AND Therapies_Home_M0250.indexof("3 -") neq "-1" >
    <cfset Clinical_32="16" />
    <cfelseif Equation_Calc eq "4" AND Therapies_Home_M0250.indexof("3 -") neq "-1" >
    <cfset Clinical_32="9" />
  </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="0" />
    <cfelseif Equation_Calc eq "4" AND (Vision_M0390.indexof("1") neq "-1" OR Vision_M0390.indexof("2") neq "-1") >
    <cfset Clinical_33="0" />
  </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="3" />
	<cfelseif Equation_Calc eq "3" AND (Freq_of_Pain_M0420.indexof("3 -") neq "-1" OR Freq_of_Pain_M0420.indexof("4 -") neq "-1") >
    <cfset Clinical_34="2" />
  </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 "3") 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 "1" OR Equation_Calc eq "3") 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" />
    <cfelseif (Equation_Calc eq "2" 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="10" />
    <cfelseif (Equation_Calc eq "2" 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="10" />
  </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="4" />
    <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="19" />
    <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="7" />
    <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="16" />
  </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="9" />
    <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="32" />
    <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="11" />
    <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="26" />
  </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 Equation_Calc eq "1" and Stasis_Ulcer_Status_M0476.indexof("2 -") neq "-1" >
    <cfset Clinical_38="4" />
	 <cfelseif Equation_Calc eq "2" and Stasis_Ulcer_Status_M0476.indexof("2 -") neq "-1" >
    <cfset Clinical_38="15" />
	 <cfelseif Equation_Calc eq "3" and Stasis_Ulcer_Status_M0476.indexof("2 -") neq "-1" >
    <cfset Clinical_38="8" />
	 <cfelseif Equation_Calc eq "4" and Stasis_Ulcer_Status_M0476.indexof("2 -") neq "-1" >
    <cfset Clinical_38="15" />
  </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" />
	<cfelseif Equation_Calc neq "1" AND Stasis_Ulcer_Status_M0476.indexof("3 - ") neq "-1" >
    <cfset Clinical_39="7" />
	<cfelseif Equation_Calc neq "2" AND Stasis_Ulcer_Status_M0476.indexof("3 - ") neq "-1" >
    <cfset Clinical_39="17" />
	<cfelseif Equation_Calc neq "3" AND Stasis_Ulcer_Status_M0476.indexof("3 - ") neq "-1" >
    <cfset Clinical_39="10" />
	<cfelseif Equation_Calc neq "4" AND Stasis_Ulcer_Status_M0476.indexof("3 - ") neq "-1" >
    <cfset Clinical_39="17" />
  </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 "1" AND Surgical_Wound_Status_M0488.indexof("2 -") neq "-1" >
    <cfset Clinical_40="2" />
	<cfelseif Equation_Calc eq "2" AND Surgical_Wound_Status_M0488.indexof("2 -") neq "-1" >
    <cfset Clinical_40="7" />
    <cfelseif Equation_Calc eq "3" AND Surgical_Wound_Status_M0488.indexof("2 -") neq "-1" >
    <cfset Clinical_40="5" />
	<cfelseif Equation_Calc eq "4" AND Surgical_Wound_Status_M0488.indexof("2 -") neq "-1" >
    <cfset Clinical_40="11" />
  </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" />
	<cfelseif Equation_Calc neq "1"  AND Surgical_Wound_Status_M0488.indexof("3 - ") neq "-1"  >
    <cfset Clinical_41="0" />
	<cfelseif Equation_Calc neq "2"  AND Surgical_Wound_Status_M0488.indexof("3 - ") neq "-1"  >
    <cfset Clinical_41="6" />
	<cfelseif Equation_Calc neq "3"  AND Surgical_Wound_Status_M0488.indexof("3 - ") neq "-1"  >
    <cfset Clinical_41="4" />
	<cfelseif Equation_Calc neq "4"  AND Surgical_Wound_Status_M0488.indexof("3 - ") neq "-1"  >
    <cfset Clinical_41="9" />
  </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="0" />
    <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="0" />
  </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="0" />
    <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="4" />
    <cfelseif Equation_Calc eq "4" 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="3" />
  </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="4" />
    <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="12" />
    <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="2" />
    <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="8" />
  </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="0" />
    <cfelseif Equation_Calc eq "2" AND Inject_Meds_M0800.indexof("NA ") eq "-1"  AND Inject_Meds_M0800 neq "" >
    <cfset Clinical_45="0" />
    <cfelseif Equation_Calc eq "3" AND Inject_Meds_M0800.indexof("NA ") eq "-1"  AND Inject_Meds_M0800 neq "" >
    <cfset Clinical_45="0" />
    <cfelseif Equation_Calc eq "4" AND Inject_Meds_M0800.indexof("NA ") eq "-1"  AND Inject_Meds_M0800 neq "" >
    <cfset Clinical_45="0" />
  </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  "1" >
    <cfset Actual_2008_C_Score="C1" />
    <cfelseif Equation_Calc_Actual eq "1" AND Sum_Act_Clini_2008 gte  "2" AND Sum_Act_Clini_2008 lte  "3">
    <cfset Actual_2008_C_Score="C2" />
    <cfelseif Equation_Calc_Actual eq "1" AND Sum_Act_Clini_2008 gte  "4" >
    <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  "1">
    <cfset Actual_2008_C_Score="C1" />
    <cfelseif Equation_Calc_Actual eq "2" AND Sum_Act_Clini_2008 gte  "2" AND Sum_Act_Clini_2008 lte  "7" >
    <cfset Actual_2008_C_Score="C2" />
    <cfelseif Equation_Calc_Actual eq "2" AND Sum_Act_Clini_2008 gte  "8">
    <cfset Actual_2008_C_Score="C3" />
    <cfelseif Equation_Calc_Actual eq "3" AND Sum_Act_Clini_2008 lte  "1" >
    <cfset Actual_2008_C_Score="C1" />
    <cfelseif Equation_Calc_Actual eq "3" AND Sum_Act_Clini_2008 eq  "2">
    <cfset Actual_2008_C_Score="C2" />
    <cfelseif Equation_Calc_Actual eq "3" AND Sum_Act_Clini_2008 gte  "3" >
    <cfset Actual_2008_C_Score="C3" />
    <cfelseif Equation_Calc_Actual eq "4" AND Sum_Act_Clini_2008 lte  "1" >
    <cfset Actual_2008_C_Score="C1" />
    <cfelseif Equation_Calc_Actual eq "4" AND Sum_Act_Clini_2008 gte  "2" AND Sum_Act_Clini_2008 lte  "9" >
    <cfset Actual_2008_C_Score="C2" />
    <cfelseif Equation_Calc_Actual eq "4" AND Sum_Act_Clini_2008 gte  "10" >
    <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="1" />
    <cfelseif Equation_Calc eq "2" AND Clinical_14_M0826 eq "1"  >
    <cfset Clinical_46="0" />
    <cfelseif Equation_Calc eq "3" AND Clinical_14_M0826 eq "1"  >
    <cfset Clinical_46="1" />
    <cfelseif Equation_Calc eq "4" AND Clinical_14_M0826 eq "1"  >
    <cfset Clinical_46="0" />
  </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 = "6" />
    <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 = "5" />
    <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 = "5" />
    <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 = "2" />
  </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 = "1" />
    <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 = "2" />
    <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 = "0" />
    <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 = "1" />
    <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 = "2" />
    <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 = "0" />
  </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 "1" 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 = "3" />
	<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 = "1" />
	<cfelseif Equation_Calc eq "3" 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 "1" )>
    <cfset Clinical_50="7" />
	<cfelseif (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 "2" )>
    <cfset Clinical_50="0" />
	<cfelseif (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="4" />
  </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="8" />
    <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="9" />
    <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="6" />
    <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="8" />
  </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  "13" >
    <cfset Actual_2008_F_Score="F1" />
    <cfelseif Equation_Calc_Actual eq "1" AND Sum_Act_Func_2008 eq  "14" >
    <cfset Actual_2008_F_Score="F2" />
    <cfelseif Equation_Calc_Actual eq "1" AND Sum_Act_Func_2008 gte  "15" >
    <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 gte  "7" AND Sum_Act_Func_2008 lte  "13">
    <cfset Actual_2008_F_Score="F2" />
    <cfelseif Equation_Calc_Actual eq "2" AND Sum_Act_Func_2008 gte  "14"  >
    <cfset Actual_2008_F_Score="F3" />
    <cfelseif Equation_Calc_Actual eq "3" AND Sum_Act_Func_2008 lt  "7">
    <cfset Actual_2008_F_Score="F1" />
    <cfelseif Equation_Calc_Actual eq "3"AND Sum_Act_Func_2008 gte  "7" AND Sum_Act_Func_2008 lte  "10">
    <cfset Actual_2008_F_Score="F2" />
    <cfelseif Equation_Calc_Actual eq "3" AND Sum_Act_Func_2008 gte  "11" >
    <cfset Actual_2008_F_Score="F3" />
    <cfelseif Equation_Calc_Actual eq "4" AND Sum_Act_Func_2008 gte  "0" AND Sum_Act_Func_2008 lte  "1" >
    <cfset Actual_2008_F_Score="F1" />
    <cfelseif Equation_Calc_Actual eq "4" AND Sum_Act_Func_2008 gte  "2"  AND Sum_Act_Func_2008 lte  "9">
    <cfset Actual_2008_F_Score="F2" />
    <cfelseif Equation_Calc_Actual eq "4" AND Sum_Act_Func_2008 gte  "10" >
    <cfset Actual_2008_F_Score="F3" />
	<cfelseif Equation_Calc_Actual eq "5" AND Sum_Act_Func_2008 gte  "0" AND Sum_Act_Func_2008 lte  "2" >
    <cfset Actual_2008_F_Score="F1" />
    <cfelseif Equation_Calc_Actual eq "5" AND Sum_Act_Func_2008 gte  "3"  AND Sum_Act_Func_2008 lte  "6">
    <cfset Actual_2008_F_Score="F2" />
    <cfelseif Equation_Calc_Actual eq "5" AND Sum_Act_Func_2008 gte  "7" >
    <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 gte "0" and  M0826_Ther_Need lte "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 gte "7" and  M0826_Ther_Need lte "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 gte "11" and  M0826_Ther_Need lte "13" >
    <cfset Actual_2008_S_Score = "S5" />
    <cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need gte "14" and  M0826_Ther_Need lte "15" >
    <cfset Actual_2008_S_Score = "S1" />
	<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need gte "16" and  M0826_Ther_Need lte "17" >
    <cfset Actual_2008_S_Score = "S2" />
	<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need gte "18" and  M0826_Ther_Need lte "19" >
    <cfset Actual_2008_S_Score = "S3" />
	<cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need gt "20" >
    <cfset Actual_2008_S_Score = "S4" />
    <cfelseif M0110_Episode_Timing.indexof("2") neq "-1" AND M0826_Ther_Need gt "30" >
    <cfset Actual_2008_S_Score = "S5" />
	<cfelseif M0110_Episode_Timing.indexof("3") neq "-1" AND M0826_Ther_Need gte "0" and  M0826_Ther_Need lte "5" >
    <cfset Actual_2008_S_Score = "S1" />
    <cfelseif M0110_Episode_Timing.indexof("3") neq "-1" AND M0826_Ther_Need eq "6" >
    <cfset Actual_2008_S_Score = "S2" />
    <cfelseif M0110_Episode_Timing.indexof("3") neq "-1" AND M0826_Ther_Need gte "7" and  M0826_Ther_Need lte "9" >
    <cfset Actual_2008_S_Score = "S3" />
     <cfelseif M0110_Episode_Timing.indexof("3") neq "-1" AND M0826_Ther_Need eq "10" >
    <cfset Actual_2008_S_Score = "S4" />
    <cfelseif M0110_Episode_Timing.indexof("3") neq "-1"  AND M0826_Ther_Need gte "11" and  M0826_Ther_Need lte "13" >
    <cfset Actual_2008_S_Score = "S5" />
    <cfelseif M0110_Episode_Timing.indexof("4") neq "-1" AND M0826_Ther_Need gte "14" and  M0826_Ther_Need lte "15" >
    <cfset Actual_2008_S_Score = "S1" />
	<cfelseif M0110_Episode_Timing.indexof("4") neq "-1" AND M0826_Ther_Need gte "16" and  M0826_Ther_Need lte "17" >
    <cfset Actual_2008_S_Score = "S2" />
	<cfelseif M0110_Episode_Timing.indexof("4") neq "-1" AND M0826_Ther_Need gte "18" and  M0826_Ther_Need lte "19" >
    <cfset Actual_2008_S_Score = "S3" />
	<cfelseif M0110_Episode_Timing.indexof("4") neq "-1" AND M0826_Ther_Need gt "20" >
    <cfset Actual_2008_S_Score = "S4" />
    <cfelseif M0110_Episode_Timing.indexof("4") neq "-1" AND M0826_Ther_Need gt "30" >
    <cfset Actual_2008_S_Score = "S5" />
	<cfelseif M0110_Episode_Timing.indexof("5") neq "-1" AND M0826_Ther_Need gt "20" >
    <cfset Actual_2008_S_Score = "S1" />
	<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 />--->
  
  <cfset HIPPSCode="" />
  <cfset HHRGCode="" />
  <cfset HIPPSCode=HIPPS_2008_1&HIPPS_2008_2&HIPPS_2008_3&HIPPS_2008_4&HIPPS_2008_5 />
  <cfset HHRGCode=Actual_2008_C_Score&Actual_2008_F_Score&Actual_2008_S_Score />
  <cfif HippsCalc.HIPPS_Code eq ''>
  <cfquery name="updateHippscode" datasource="#Application.DataSrc#">
UPDATE #Request.prefix_db_agency#.Assessment_New SET HIPPS_Code='#HIPPSCode#',HHRG_Classification='#HHRGCode#'  WHERE Assessment_New.Assessment_ID='#session.cs.AssessmentId#'
</cfquery>
 </cfif>
  <cfquery name="Getdata" datasource="#Application.DataSrc#">
 SELECT 
   Assessment_New.HIPPS_Code
   ,case_mix.Weight
   ,case_mix.HIPPS
   ,Agency.Wage_Index
   ,Agency.Rural    
 FROM  #Request.prefix_db_agency#.Assessment_New, #Request.prefix_db_lookup#.Agency, #Request.prefix_db_lookup#.case_mix
 WHERE Assessment_New.Assessment_ID='#session.cs.AssessmentId#'
 and Assessment_New.Agency_ID = Agency.Agency_ID
 and Left(Assessment_New.HIPPS_Code,4) = case_mix.HIPPS
 </cfquery>
  <cfset PatientHippsCode=#GetData.HIPPS_Code# />
  <!--- Assessment_New.HIPPS_Code --->
  <cfset CaseMixWeight=#GetData.Weight# />
  <!---Matching first 4 digits of Patient HIPPS to case_mix table --->
  <cfset AgencyWageIndex=#GetData.Wage_Index# />
  <!--- Agency.Wage_Index --->
  <cfif GetData.Rural neq 1>
    <cfset NatStandardPayment=2137.73 />
    <cfelse>
    <cfset NatStandardPayment=2201.86 />
  </cfif>
  <!--- Always this value --->
  <cfset LaborA=.78535 />
  <!--- Always this value --->
  <cfset NonLaborB=.21465 />
  <!--- Always this value --->
  <cfset LaborNonLaborSupply=0 />
  <cfif #CaseMixWeight# neq "">
    <cfset C=#CaseMixWeight#*#NatStandardPayment# />
    <cfset CAWage=#NumberFormat((#C#*#LaborA#)*#AgencyWageIndex#, "_______.__")# />
    <cfset CB=#NumberFormat(#C#*#NonLaborB#, "_______.__")# />
    <cfset SupplyBase=#MID(PatientHippsCode,5,1)# />
    <cfset SupplyAmount=0 />
    <cfif SupplyBase eq "S">
      <cfset SupplyAmount=14.12 />
      <cfelseif SupplyBase eq "T">
      <cfset SupplyAmount=51.00 />
      <cfelseif SupplyBase eq "U">
      <cfset SupplyAmount=139.84 />
      <cfelseif SupplyBase eq "V">
      <cfset SupplyAmount=207.76 />
      <cfelseif SupplyBase eq "W">
      <cfset SupplyAmount=320.37 />
      <cfelseif SupplyBase eq "X">
      <cfset SupplyAmount=551.00 />
    </cfif>
    <cfset LaborNonLaborSupply=#NumberFormat(#CAWage#+#CB#+#SupplyAmount#, "_______.__")# />
    <!---
								!!!!!!#HIPPS_Code#::#Wage_Index#::#Weight#::#CAWage#::#CB#::#SupplyBase#::#SupplyAmount#::#LaborNonLaborSupply#!!!!!
							--->
  </cfif>
  
  <cfquery name="updateHomebound" datasource="#Application.DataSrc#">
UPDATE #Request.prefix_db_agency#.Assessment_New SET Homebound_Status='#NumberFormat(LaborNonLaborSupply,'_____.__')#' WHERE Assessment_New.Assessment_ID='#session.cs.AssessmentId#'
</cfquery>
  <br />
  <br />
  
  <!---TREATMENT AUTH NUMBER--->
  
  <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="0" />
    </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="0" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Blood") neq "-1">
      <cfset Clinical_02="2" />
    </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="0" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Cancer") neq "-1">
      <cfset Clinical_03="5" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Cancer") neq "-1">
      <cfset Clinical_03="0" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Cancer") neq "-1">
      <cfset Clinical_03="5" />
    </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="0" />
      <cfelseif Equation_Calc eq "2" AND T01_Primary_Diagnosis_LinkDG_Type.indexof("Diabetes") neq "-1">
      <cfset Clinical_04="4" />
      <cfelseif Equation_Calc eq "3" AND T01_Primary_Diagnosis_LinkDG_Type.indexof("Diabetes") neq "-1">
      <cfset Clinical_04="0" />
      <cfelseif Equation_Calc eq "4" AND T01_Primary_Diagnosis_LinkDG_Type.indexof("Diabetes") neq "-1">
      <cfset Clinical_04="2" />
    </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="1" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_Other.indexof("Diabetes") neq "-1">
      <cfset Clinical_05="0" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_Other.indexof("Diabetes") neq "-1">
      <cfset Clinical_05="0" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_Other.indexof("Diabetes") neq "-1">
      <cfset Clinical_05="0" />
    </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="18" />
	  <cfelseif Equation_Calc eq "3" 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 "4" AND Diagnosis_Case_Mix_All.indexof("Dysphagia") neq "-1" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1">
      <cfset Clinical_06="12" />
    </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 "1">
      <cfset Clinical_07="6" />
	  <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" />
	  <cfelseif Diagnosis_Case_Mix_All.indexof("Dysphagia") neq "-1" AND Therapies_Home_M0250.indexof("3 - ") neq "-1" AND Equation_Calc eq "4">
      <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="0" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Gastrointestinal") neq "-1" >
      <cfset Clinical_08="0" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Gastrointestinal") neq "-1" >
      <cfset Clinical_08="0" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Gastrointestinal") neq "-1" >
      <cfset Clinical_08="0" />
    </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 "2" 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="7" />
    </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 "1" >
      <cfset Clinical_10="0" />
    </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="1" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Cardiac") neq "-1" >
      <cfset Clinical_11="2" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Cardiac") neq "-1" >
      <cfset Clinical_11="0" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Cardiac") neq "-1" >
      <cfset Clinical_11="2" />
      <cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Hypertension") neq "-1" >
      <cfset Clinical_11="1" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Hypertension") neq "-1" >
      <cfset Clinical_11="2" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Hypertension") neq "-1" >
      <cfset Clinical_11="0" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Hypertension") neq "-1" >
      <cfset Clinical_11="2" />
    </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="2" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_CaseMix_1.indexof("Neuro 1") neq "-1" >
      <cfset Clinical_12="12" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_CaseMix_1.indexof("Neuro 1") neq "-1" >
      <cfset Clinical_12="7" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_CaseMix_1.indexof("Neuro 1") neq "-1" >
      <cfset Clinical_12="12" />
    </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="0" />
      <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="3" />
      <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="0" />
      <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="3" />
    </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="3" />
      <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="1" />
      <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="3" />
    </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 "1">
      <cfset Clinical_15="3" />
      <cfelseif Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Equation_Calc eq "2">
      <cfset Clinical_15="12" />
	  <cfelseif Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Equation_Calc eq "3">
      <cfset Clinical_15="2" />
	  <cfelseif Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Equation_Calc eq "4">
      <cfset Clinical_15="5" />
    </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="0" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Clinical_14_M0826 eq "1">
      <cfset Clinical_16="0" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Clinical_14_M0826 eq "1">
      <cfset Clinical_16="0" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Neuro 3") neq "-1" AND Clinical_14_M0826 eq "1">
      <cfset Clinical_16="0" />
    </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="0" />
      <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="0" />
    </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="7" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Neuro 4") neq "-1" AND Clinical_18_M0826 eq "1" >
      <cfset Clinical_18="6" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Neuro 4") neq "-1" AND Clinical_18_M0826 eq "1" >
      <cfset Clinical_18="11" />
    </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="8" />
	   <cfelseif Equation_Calc eq "2" 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="1" />
	   <cfelseif Equation_Calc eq "3" 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="7" />
	   <cfelseif Equation_Calc eq "4" 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="0" />
    </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="3" />
      <cfelseif Equation_Calc eq "3" 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="3" />
	  <cfelseif Equation_Calc eq "4" 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="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" />
      <cfelseif Equation_Calc eq "1" AND Diagnosis_Case_Mix_All.indexof("Psych 1") neq "-1" >
      <cfset Clinical_21="0" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Psych 1") neq "-1" >
      <cfset Clinical_21="0" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Psych 1") neq "-1" >
      <cfset Clinical_21="0" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Psych 1") neq "-1" >
      <cfset Clinical_21="0" />
    </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="0" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Psych 2") neq "-1" >
      <cfset Clinical_22="0" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Psych 2") neq "-1" >
      <cfset Clinical_22="0" />
    </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="0" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Pulmonary") neq "-1" >
      <cfset Clinical_23="0" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Pulmonary") neq "-1" >
      <cfset Clinical_23="0" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Pulmonary") neq "-1" >
      <cfset Clinical_23="1" />
    </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="4" />
      <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="7" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_CaseMix_1.indexof("Skin 1") neq "-1" >
      <cfset Clinical_25="18" />
    </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="7" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_Other.indexof("Skin 1") neq "-1" >
      <cfset Clinical_26="15" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_Other.indexof("Skin 1") neq "-1" >
      <cfset Clinical_26="8" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_Other.indexof("Skin 1") neq "-1" >
      <cfset Clinical_26="15" />
    </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="3" />
      <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="0" />
    </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="2" />
      <cfelseif Equation_Calc eq "2" AND Diagnosis_Case_Mix_All.indexof("Skin 2") neq "-1" >
      <cfset Clinical_28="17" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Skin 2") neq "-1" >
      <cfset Clinical_28="8" />
      <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Skin 2") neq "-1" >
      <cfset Clinical_28="17" />
    </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="17" />
      <cfelseif Equation_Calc eq "3" AND Diagnosis_Case_Mix_All.indexof("Trache") neq "-1" >
      <cfset Clinical_29="4" />
	  <cfelseif Equation_Calc eq "4" AND Diagnosis_Case_Mix_All.indexof("Trache") neq "-1" >
      <cfset Clinical_29="17" />
    </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="0" />
      <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="18" />
      <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="0" />
      <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="13" />
    </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="0" />
      <cfelseif Equation_Calc eq "2" AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
      <cfset Clinical_31="17" />
      <cfelseif Equation_Calc eq "3" AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
      <cfset Clinical_31="6" />
      <cfelseif Equation_Calc eq "4" AND (Therapies_Home_M0250.indexof("1 -") neq "-1" OR Therapies_Home_M0250.indexof("2 -") neq "-1" )>
      <cfset Clinical_31="17" />
    </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="0" />
      <cfelseif Equation_Calc eq "2" AND Therapies_Home_M0250.indexof("3 -") neq "-1" >
      <cfset Clinical_32="16" />
      <cfelseif Equation_Calc eq "4" AND Therapies_Home_M0250.indexof("3 -") neq "-1" >
      <cfset Clinical_32="9" />
    </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="0" />
      <cfelseif Equation_Calc eq "4" AND (Vision_M0390.indexof("1") neq "-1" OR Vision_M0390.indexof("2") neq "-1") >
      <cfset Clinical_33="0" />
    </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="3" />
	  <cfelseif Equation_Calc eq "3" AND (Freq_of_Pain_M0420.indexof("3 -") neq "-1" OR Freq_of_Pain_M0420.indexof("4 -") neq "-1") >
      <cfset Clinical_34="2" />
    </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 "3") 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 "1" OR Equation_Calc eq "3") 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" />
      <cfelseif (Equation_Calc eq "2" 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="10" />
      <cfelseif (Equation_Calc eq "2" 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="10" />
    </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="4" />
      <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="19" />
      <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="7" />
      <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="16" />
    </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="9" />
      <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="32" />
      <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="11" />
      <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="26" />
    </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 Equation_Calc eq "1" AND  Stasis_Ulcer_Status_M0476.indexof("2 -") neq "-1" >
      <cfset Clinical_38="4" />
	  <cfelseif Equation_Calc eq "2" AND  Stasis_Ulcer_Status_M0476.indexof("2 -") neq "-1" >
      <cfset Clinical_38="15" />
	  <cfelseif Equation_Calc eq "3" AND  Stasis_Ulcer_Status_M0476.indexof("2 -") neq "-1" >
      <cfset Clinical_38="8" />
	  <cfelseif Equation_Calc eq "4" AND  Stasis_Ulcer_Status_M0476.indexof("2 -") neq "-1" >
      <cfset Clinical_38="15" />
    </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 eq "1" AND Stasis_Ulcer_Status_M0476.indexof("3 - ") neq "-1" >
      <cfset Clinical_39="7" />
	  <cfelseif Equation_Calc eq "2" AND Stasis_Ulcer_Status_M0476.indexof("3 - ") neq "-1" >
      <cfset Clinical_39="17" />
	  <cfelseif Equation_Calc eq "3" AND Stasis_Ulcer_Status_M0476.indexof("3 - ") neq "-1" >
      <cfset Clinical_39="10" />
	  <cfelseif Equation_Calc eq "4" AND Stasis_Ulcer_Status_M0476.indexof("3 - ") neq "-1" >
      <cfset Clinical_39="17" />
	  
    </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 "1" AND Surgical_Wound_Status_M0488.indexof("2 -") neq "-1" >
      <cfset Clinical_40="2" />
      <cfelseif Equation_Calc eq "2" AND Surgical_Wound_Status_M0488.indexof("2 -") neq "-1" >
      <cfset Clinical_40="7" />
      <cfelseif Equation_Calc eq "3" AND Surgical_Wound_Status_M0488.indexof("2 -") neq "-1" >
      <cfset Clinical_40="5" />
	  <cfelseif Equation_Calc eq "11" AND Surgical_Wound_Status_M0488.indexof("2 -") neq "-1" >
      <cfset Clinical_40="11" />
    </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 eq "2" AND Surgical_Wound_M0482.indexof("1 -") neq "-1"  AND Surgical_Wound_Status_M0488.indexof("3 - ") neq "-1"  >
      <cfset Clinical_41="6" />
	  <cfelseif Equation_Calc eq "3" AND Surgical_Wound_M0482.indexof("1 -") neq "-1"  AND Surgical_Wound_Status_M0488.indexof("3 - ") neq "-1"  >
      <cfset Clinical_41="4" />
	  <cfelseif Equation_Calc eq "4" AND Surgical_Wound_M0482.indexof("1 -") neq "-1"  AND Surgical_Wound_Status_M0488.indexof("3 - ") neq "-1"  >
      <cfset Clinical_41="9" />
    </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="0" />
      <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="0" />
    </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="0" />
      <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="4" />
      <cfelseif Equation_Calc eq "4" 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="3" />
    </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="4" />
      <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="12" />
      <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="2" />
      <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="8" />
    </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="0" />
      <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="3" />
    </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="1" />
      <cfelseif Equation_Calc eq "2" AND Clinical_14_M0826 eq "1"  >
      <cfset Clinical_46="0" />
      <cfelseif Equation_Calc eq "3" AND Clinical_14_M0826 eq "1"  >
      <cfset Clinical_46="1" />
      <cfelseif Equation_Calc eq "4" AND Clinical_14_M0826 eq "1"  >
      <cfset Clinical_46="0" />
    </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 = "6" />
      <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 = "5" />
      <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 = "5" />
      <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 = "2" />
    </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 = "1" />
      <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 = "2" />
      <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 = "0" />
      <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 = "1" />
      <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 = "2" />
      <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 = "0" />
    </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 "1" 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 = "3" />
	   <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 = "1" />
	   <cfelseif Equation_Calc eq "3" 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" >
      <cfset Clinical_50="7" />
	  <cfelseif (Ambulation_M0700.indexof("1") neq "-1" OR Ambulation_M0700.indexof("2") neq "-1" OR Ambulation_M0700.indexof("3") neq "-1")AND Equation_Calc eq "3">
      <cfset Clinical_50="4" />
    </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="8" />
      <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="9" />
      <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="6" />
      <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="8" />
    </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>--->
  
  <cfset TreatAuthNumber=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  />
  <cfquery name="updateHippscode" datasource="#Application.DataSrc#">
	UPDATE #Request.prefix_db_agency#.Assessment_New SET Claim_Key='#TreatAuthNumber#'  WHERE Assessment_New.Assessment_ID='#session.cs.AssessmentId#'
</cfquery>
  <cfquery name="GetVisitCount" datasource="#Application.DataSrc#">
	SELECT count(*) as visitcount from #Request.prefix_db_agency#.PatientVisitDetails 
    where Assessment_Id = '#session.cs.AssessmentId#' 
    and ScheduleItems_ID != 0 
    and Type != 'vital sign'
    and Type != 'wound'
</cfquery>
  <cfquery name="GetCarePlanCount" datasource="#Application.DataSrc#">
	SELECT count(*) as careplancount from #Request.prefix_db_agency#.Pathway_Details where Assessment_Id = '#session.cs.AssessmentId#' and Type != 'vital sign';
</cfquery>
  
  <!---<cfoutput>#GetVisitCount.visitcount#</cfoutput>
<cfoutput>#GetCarePlanCount.careplancount#</cfoutput>--->
  
  <cfset thereason = Assessment_Reason_M0100 />
  <cfif LEFT(thereason,1) eq '1'>
    <cfset thereason = 'Start of Care' />
    <cfelseif LEFT(thereason,1) eq '3'>
    <cfset thereason = 'Resumption of Care' />
    <cfelseif LEFT(thereason,1) eq '4'>
    <cfset thereason = 'Recertification' />
    <cfelseif LEFT(thereason,1) eq '5'>
    <cfset thereason = 'Other Follow Up' />
    <cfelseif LEFT(thereason,1) eq '6'>
    <cfset thereason = '6 - Transferred to Inpatient Facility' />
    <cfelseif LEFT(thereason,1) eq '7'>
    <cfset thereason = 'Transferred to Inpatient Facility' />
    <cfelseif LEFT(thereason,1) eq '8'>
    <cfset thereason = 'Death' />
    <cfelseif LEFT(thereason,1) eq '9'>
    <cfset thereason = 'Discharge' />
	<cfelseif thereason contains 'Hospice Discharge'>
    <cfset thereason = 'Hospice Discharge' />
	<cfelseif thereason contains 'Hospice Comp'>
    <cfset thereason = 'H - Hospice Comprehensive' />
    <cfelseif thereason eq 'SN Ped'>
    <cfset thereason = 'SN Pediatric Evaluation' />
 </cfif>
 <!---<cfdump var="#thereason#">
 <cfabort>--->
  <cfset thereason=#rereplacenocase(thereason,"recertification","Recertification","ALL")# />
  <cfif GetVisitCount.visitcount eq 0>
    <cfif GetCarePlanCount.careplancount eq 0>
	<cfif session.EmployeeID eq 2 or session.EmployeeID eq 3124>
      <cflocation url="index.cfm?page=patient&cat=GenerateCarePlan" addtoken="no">
      <cfelse>
      <cflocation url="index.cfm?page=patient&cat=GenerateCarePlan" addtoken="no">
      </cfif>
<!---      <cflocation url="index.cfm?page=patient&cat=GenerateCarePlan" addtoken="no">
--->      <!---CAREPLAN LOCATION--->
      <cfelse>
      <script language="JavaScript" type="text/javascript">
			if(confirm('Would you like to replace careplan for this assessment? (click cancel for "no")'))
			{
				location.href="index.cfm?page=patient&cat=GenerateCarePlan&deleted=yes";				
			}
			else
			{
				window.location= '/patientadmin_new/index.cfm?a=1&page=patient&px=y&cat=assessment_form&type=<cfoutput>#thereason#</cfoutput>';
				<!---LOCATION--->
			}
		</script>
    </cfif>
    <cfelse>
    <script language="JavaScript" type="text/javascript">
		alert('You can not replace the careplan for this assessment! Progress notes already done for this assessment!');	
		window.location= '../patientadmin_new/index.cfm?a=1&page=patient&px=y&cat=assessment_form&type=<cfoutput>#thereason#</cfoutput>';	
	</script>
  </cfif>
  
  <!---<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>

