<!---cron_coding_SCRUB.cfm--->
<!---<cfset Request.prefix_db_agency = 'agency_631' />--->
<cfset session.cs.patientid = #url.ID# />
<cfset Patient_ID = #url.ID# />
<cfset Assessment_ID = #url.AID# />
<cfset Request.prefix_db_lookup = 'hhapowerpath' />
<cfset Diagnosis = '' />
<cfset dx_count = '' />
<cfset PDGM_1 = '' />
<cfset PDGM_2 = '' />
<cfset PDGM_3 = '' />
<cfset PDGM_4 = '' />
<cfset HIPPS_PDGM = '' />
<cfquery  name="Get_Primary" datasource="#Application.DataSrc#">
SELECT *
From #Request.prefix_db_agency#.patient p, #Request.prefix_db_lookup#.Dx_Comorbidities d
where p.Patient_ID = #url.ID#
and p.Safety_Hazards_M0320 = d.Descrip_1
</cfquery>
<cfquery  name="Get_assess" datasource="#Application.DataSrc#">
select  *
from #Request.prefix_db_agency#.Assessment_New
where	Assessment_ID = #url.AID#
</cfquery>
<cfif Get_assess.HIPPS_Code eq '^' or Len(Get_assess.HIPPS_Code) neq 5>
  <cfquery  name="Get_assess" datasource="#Application.DataSrc#">
Update #Request.prefix_db_agency#.Assessment_New
set HIPPS_Code = '1AFKS'
where	Assessment_ID = #url.AID#
and Patient_ID = #url.ID#
</cfquery>
</cfif>
<!---set 2020 HIPPS position 3--->
<cfif Mid(Get_assess.HIPPS_Code,3,1) eq "F">
  <cfset PDGM_3 = "A">
  <cfelseif Mid(Get_assess.HIPPS_Code,3,1) eq "G">
  <cfset PDGM_3 = "B">
  <cfelseif Mid(Get_assess.HIPPS_Code,3,1) eq "H">
  <cfset PDGM_3 = "C">
</cfif>
<!---set 2020 HIPPS position 2--->
<cfif Get_Primary.Safety_Hazards_M0320 eq '1'>
  <cfset PDGM_2 = "C">
  <cfelseif Get_Primary.Safety_Hazards_M0320 eq '2'>
  <cfset PDGM_2 = "B">
  <cfelseif Get_Primary.Safety_Hazards_M0320 eq '3'>
  <cfset PDGM_2 = "I">
  <cfelseif Get_Primary.Safety_Hazards_M0320 eq '4'>
  <cfset PDGM_2 = "E">
  <cfelseif Get_Primary.Safety_Hazards_M0320 contains '5'>
  <cfset PDGM_2 = "A">
  <cfelseif Get_Primary.Safety_Hazards_M0320 eq '6'>
  <cfset PDGM_2 = "H">
  <cfelseif Get_Primary.Safety_Hazards_M0320 eq '7'>
  <cfset PDGM_2 = "K">
  <cfelseif Get_Primary.Safety_Hazards_M0320 eq '8'>
  <cfset PDGM_2 = "G">
  <cfelseif Get_Primary.Safety_Hazards_M0320 eq '9'>
  <cfset PDGM_2 = "L">
  <cfelseif Get_Primary.Safety_Hazards_M0320 eq '10'>
  <cfset PDGM_2 = "D">
  <cfelseif Get_Primary.Safety_Hazards_M0320 eq '11'>
  <cfset PDGM_2 = "J">
  <cfelseif Get_Primary.Safety_Hazards_M0320 eq '12'>
  <cfset PDGM_2 = "F">
</cfif>

<cfset PDGM = '#Get_Primary.Safety_Hazards_M0320#'>

<!---MAKE SURE THERES A CASEMIX OR ALT CASEMIX IN THE FIRST PLACE--->

<cfquery name="Get_Any" datasource="#Application.DataSrc#">
      SELECT Assessment_ID, Order_ID, Diagnosis, Textfield_1, Textfield_3, count(*) AS count
      From #Request.prefix_db_agency#.Coding_Results
      where Assessment_ID = #url.AID#
      and Patient_ID = #url.ID#
      and (TextField_1 = '' and TextField_3 = '') or (TextField_1 != '#PDGM#' and TextField_3 != '#PDGM#')
      and Dx_Order = 1
  </cfquery>
<cfif Get_Any.count gte 1>
  <cfquery name="update" datasource="#Application.DataSrc#">
      Update #Request.prefix_db_agency#.Coding_Results
      set Memo = <cfif Get_Any.TextField_1 eq '' and Get_Any.TextField_3 eq ''>'This primary diagnosis is not a PDGM casemix and there is no available alternative.'<cfelse>'The primary diagnosis is inconsistent with the primary reason for home care.'</cfif>, Textfield_10 = 'A DIFFERENT PRIMARY DIAGNOSIS MUST BE SELECTED.'
      where Assessment_ID = #url.AID#
      and Patient_ID = #url.ID#
      and (TextField_1 = '' and TextField_3 = '') or (TextField_1 != '#PDGM#' and TextField_3 != '#PDGM#')
      and Dx_Order = 1
          </cfquery>
  <cfelse>
  
    <cfquery name="update" datasource="#Application.DataSrc#">
            Update #Request.prefix_db_agency#.Coding_Results
            set Memo = <cfif Get_DX_1.TextField_1 eq '#PDGM#'>'The user-entered diagnosis is a PDGM wound casemix and will optimize reimbursement.', Textfield_10 = '#Get_DX_1.Diagnosis#'<cfelse>'The user-entered diagnosis is not a PDGM casemix and will not optimize reimbursement. We recommend using the Coding Wizard-recommend casemix diagnosis replacement that will increase reimbursement by $407.38.', Textfield_10 = '#Get_DX_1.Diagnosis#'</cfif>
            where Assessment_ID = #url.AID#
            and Patient_ID = #url.ID# 
            and (TextField_1 = '#PDGM#' or TextField_3 = '#PDGM#')
            and Dx_Order = 1
            and Message_ID NOT IN (13,15)
            LIMIT 1
            </cfquery>
</cfif>

