Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BGPMUH11

BGPMUH11.m

Go to the documentation of this file.
  1. BGPMUH11 ;IHS/MSC/MGH - MI measure NQF0372-VTE-2 ;02-Mar-2011 15:59;DU
  1. ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
  1. ;ED meaningful use hospital measures
  1. ;BGPMUH10 - VTE Measure 1 - VTE started in 24hrs of arrival
  1. ;BGPMUH11 - VTE Measure 2 - VTE started in 24hrs of arrival to ICU
  1. ENTRY ;PEP Vte measure 2 - VTE started in 24hrs of arrival to ICU
  1. ; Print routine - VTE2^BGPMUHP6
  1. ; Delimited output - VTE2^BGPMUHD5
  1. N START,END,BGPIEN,DFN,BGPVST,BGPISDX,BGPHSDX,BGPAGEE,BGPIPROB,BGPHPROB,SECOND,EXC,NUM,BGPDIS
  1. N BGPER,BGPADTMI,BDPDD,BGWARD,BGPDD,BGPADMIT,BGPDD
  1. S BGWARD=0
  1. ;Start by finding all admissions during the reporting period
  1. S START=BGPBDATE
  1. S END=BGPEDATE_".2359"
  1. F S START=$O(^DGPM("B",START)) Q:START=""!(START>END) D
  1. .S BGPIEN="" F S BGPIEN=$O(^DGPM("B",START,BGPIEN)) Q:BGPIEN="" D
  1. ..Q:$P($G(^DGPM(BGPIEN,0)),U,2)'=1 ;Only include admissions
  1. ..S DFN=$P($G(^DGPM(BGPIEN,0)),U,3)
  1. ..Q:DFN=""
  1. ..S BGPACTUP=$$ACTUPAP^BGPMUEHD(DFN,BGPBDATE,BGPEDATE,BGPBEN)
  1. ..I 'BGPACTUP,'$G(BGPXPXPX),'$G(BGPIISO) Q
  1. ..S BGPVST=$P($G(^DGPM(BGPIEN,0)),U,27) ;Get the visit
  1. ..Q:BGPVST=""
  1. ..S BGPDIS=$P($G(^DGPM(BGPIEN,0)),U,17) ;Don't use if pt is still an inpt
  1. ..Q:BGPDIS=""
  1. ..;Get the admit time & discharge times
  1. ..S BGPADMIT=$P($G(^DGPM(BGPIEN,0)),U,1)
  1. ..S BGPDD=$P($G(^DGPM(BGPDIS,0)),U,1)
  1. ..;get age at admission
  1. ..S BGPAGEE=$$AGE^AUPNPAT(DFN,$P(BGPADMIT,".",1))
  1. ..;Check for ICU
  1. ..S BGPWARD=$$ICUADM^BGPMUH10(DFN,BGPIEN,BGPADMIT,BGPDIS)
  1. ..Q:'BGPWARD
  1. ..S EXC=$$EXCLUDE(DFN,BGPIEN,BGPVST,BGPDIS,.BGWARD)
  1. ..;If no exclusions see if they had tPA given in correct time frame
  1. ..I EXC="" S NUM=$$NUMER(DFN,BGPADMIT,BGWARD,BGPVST)
  1. ..;Now add it all up
  1. ..D TOTAL(BGPIEN)
  1. Q
  1. TOTAL(BGPIEN) ;add up the totals
  1. N PTCNT,EXCCT,DENCT,NUMCT,TOTALS,DATE,NOTCT
  1. S TOTALS=$G(^TMP("BGPMU0372",$J,BGPMUTF,"TOT"))
  1. S DENCT=+$G(^TMP("BGPMU0372",$J,BGPMUTF,"DEN"))
  1. S NUMCT=+$G(^TMP("BGPMU0372",$J,BGPMUTF,"NUM"))
  1. S EXCCT=+$G(^TMP("BGPMU0372",$J,BGPMUTF,"EXC"))
  1. S NOTCT=+$G(^TMP("BGPMU0372",$J,BGPMUTF,"NOT"))
  1. S PTCNT=TOTALS
  1. S PTCNT=PTCNT+1
  1. S DATE=$$DATE^BGPMUUTL($P($G(^DGPM(BGPIEN,0)),U,1))
  1. S DENCT=DENCT+1 S ^TMP("BGPMU0372",$J,BGPMUTF,"DEN")=DENCT
  1. I EXC'="" D
  1. .S EXCCT=EXCCT+1 S ^TMP("BGPMU0372",$J,BGPMUTF,"EXC")=EXCCT
  1. .I BGPMUTF="C" S ^TMP("BGPMU0372",$J,"PAT",BGPMUTF,"EXC",PTCNT)=DFN_U_DATE_U_$P(EXC,U,2)
  1. I EXC="" D
  1. .I +NUM=1 D
  1. ..S NUMCT=NUMCT+1 S ^TMP("BGPMU0372",$J,BGPMUTF,"NUM")=NUMCT
  1. ..S ^TMP("BGPMU0372",$J,"PAT",BGPMUTF,"NUM",PTCNT)=DFN_U_DATE_U_$P(NUM,U,3)_U_$P(NUM,U,2)
  1. .I +NUM=0 D
  1. ..S ^TMP("BGPMU0372",$J,"PAT",BGPMUTF,"NOT",PTCNT)=DFN_U_DATE_U_$P(NUM,U,3)_U_$P(NUM,U,2)
  1. ..S NOTCT=NOTCT+1 S ^TMP("BGPMU0372",$J,BGPMUTF,"NOT")=NOTCT
  1. S ^TMP("BGPMU0372",$J,BGPMUTF,"TOT")=PTCNT
  1. S BGPICARE("MU.VTE.0372.1",BGPMUTF,DFN)=1_U_+$G(NUM)_U_+EXC_U_DATE_";"_$P($G(NUM),U,3)_";"_$P(EXC,U,2)
  1. Q
  1. EXCLUDE(DFN,BGPIEN,BGPVST,BGPDIS,BGWARD) ;See if there are exclusions
  1. N REASON,BGPLOS,BGPHOS,BGPCLIN,BGPECI,BGPALL,BGPREF,BGPTS,BGPVTE
  1. S REASON=""
  1. I BGPAGEE<18 S REASON="1^AGE" Q REASON
  1. ;Check for LOS
  1. S BGPLOS=$$LOS^BGPMUH08(BGPIEN,BGPDIS)
  1. I BGPLOS>120 S REASON="1^LOS" Q REASON
  1. I BGPLOS<2 S REASON="1^LOS" Q REASON
  1. ;Check for OB
  1. S BGPTS=$$TS(DFN,BGPIEN,BGPDIS)
  1. I +BGPTS S REASON=BGPTS Q REASON
  1. ;Check for palliative Care
  1. S BGPHOS=$$HOSPICE^BGPMUH06(DFN,BGPVST,BGPADMIT)
  1. I +BGPHOS S REASON=BGPHOS Q REASON
  1. ;Check for clinical trial
  1. S BGPCLIN=$$TRIAL^BGPMUH08(DFN,BGPVST)
  1. I +BGPCLIN S REASON=BGPCLIN Q REASON
  1. ;Check for a diagnosis of VTE
  1. S BGPVTE=$$VSTPOV^BGPMUUT3(DFN,BGPVST,"BGPMU VTE DX")
  1. I +BGPVTE S REASON=BGPVTE Q REASON
  1. Q REASON
  1. NUMER(DFN,ADMIT,BGWARD,VST) ;Check to see if pt is in the numerator
  1. N TAX,MEDDTE,ENDDT,VTE,MEDIEN,STATUS,DRUG,DISPENSE
  1. N TEDS,FIRST,GIVEN,NOTGIV,PROP,PHARM,PHARMP,MECH,MECHP,CPT,MED,ICD0
  1. S VTE=0
  1. ;First, see if the pt has CPT for procedure in first 24hrs
  1. S FIRST=$$FMADD^XLFDT(ADMIT,+1)
  1. S TEDS=$$PALCPT^BGPMUUT3(DFN,VST,"BGPMU VTE DEVICES CPT",ADMIT)
  1. I +TEDS S VTE=TEDS_U_BGPDD Q VTE
  1. ;See, if the pt has ICD0 for procedures in first 24hrs
  1. S PROP=$$PALICD0^BGPMUUT3(DFN,VST,"BGP VTE DEVICES ICD0",ADMIT)
  1. I +PROP S VTE=PROP_U_BGPDD Q VTE
  1. ;See if the VTE CPT code was entered
  1. S GIVEN=$$PALCPT^BGPMUUT3(DFN,VST,"BGPMU VTE GIVEN CPT",ADMIT)
  1. I +GIVEN S VTE=GIVEN_U_BGPDD Q VTE
  1. ;Check for code that patient is not eligible
  1. S NOTGIV=$$PALCPT^BGPMUUT3(DFN,VST,"BGPMU VTE NOT GIVEN CPT",ADMIT)
  1. I +NOTGIV S VTE=$P(NOTGIV,U,1)_U_"NMI "_$P(NOTGIV,U,2)_U_BGPDD Q VTE
  1. ;Check diagnoses for whom VTE is not appropriate
  1. S PHARM=$$VSTPOV^BGPMUUT3(DFN,BGPVST,"BGPMU VTE EXCLUDE PHARM DXS")
  1. I +PHARM S VTE=$P(PHARM,U,1)_U_"NMI "_$P(PHARM,U,2)_U_BGPDD Q VTE
  1. S PHARMP=$$PLTAX^BGPMUUT1(DFN,"BGPMU VTE EXCLUDE PHARM DXS")
  1. I +PHARMP S VTE=$P(PHARMP,U,1)_U_"NMI "_$P(PHARMP,U,2)_U_BGPDD Q VTE
  1. S MECH=$$VSTPOV^BGPMUUT3(DFN,BGPVST,"BGPMU VTE EXCLUDE-MECH DX")
  1. I +MECH S VTE=$P(MECH,U,1)_U_"NMI "_$P(MECH,U,2)_U_BGPDD Q VTE
  1. S MECHP=$$PLTAX^BGPMUUT1(DFN,"BGPMU VTE EXCLUDE-MECH DX")
  1. I +MECHP S VTE=$P(MECHP,U,1)_U_"NMI "_$P(MECHP,U,2)_U_BGPDD Q VTE
  1. ;Check for refusal of VTE med
  1. S MED=$$MEDREF^BGPMUUT2(DFN,$P(ADMIT,"."),$P(FIRST,".")_".2359","BGPMU VTE PROPHYLAXIS")
  1. I +MED S VTE=$P(MED,U,1)_U_"REF "_$P(MED,U,2)_U_BGPDD Q VTE
  1. ;Check for refusals of procedures
  1. S CPT=$$REFTAX^BGPMUUT2(DFN,81,"BGPMU VTE DEVICES CPT",$P(ADMIT,"."),$P(FIRST,"."))
  1. I +CPT S VTE=$P(CPT,U,1)_U_"REF "_$P(CPT,U,2)_U_BGPDD Q VTE
  1. S ICD0=$$REFTAX^BGPMUUT2(DFN,80.1,"BGPMU VTE DEVICES ICD0",$P(ADMIT,"."),$P(FIRST,"."))
  1. I +ICD0 S VTE=$P(ICD0,U,1)_U_"REF "_$P(ICD0,U,2)_U_BGPDD Q VTE
  1. ;Finally check for a BMCA code for antithrombotics
  1. S MEDDTE=ADMIT
  1. F S MEDDTE=$O(^PSB(53.79,"AADT",DFN,MEDDTE)) Q:'+MEDDTE!(MEDDTE>FIRST)!(+VTE) D
  1. .S MEDIEN="" F S MEDIEN=$O(^PSB(53.79,"AADT",DFN,MEDDTE,MEDIEN)) Q:'+MEDIEN!(+VTE) D
  1. ..S STATUS=$P($G(^PSB(53.79,MEDIEN,0)),U,9)
  1. ..I STATUS="G"!(STATUS="I")!(STATUS="C") D ;Drug given
  1. ...S DISPENSE=0 F S DISPENSE=$O(^PSB(53.79,MEDIEN,.5,DISPENSE)) Q:'+DISPENSE!(+VTE) D
  1. ....S DRUG=$G(^PSB(53.79,MEDIEN,.5,DISPENSE,0))
  1. ....S DRUG=$P(DRUG,U,1)
  1. ....S TAX="BGPMU VTE PROPHYLAXIS"
  1. ....S VTE=$$NDC^BGPMUUT4(DRUG,TAX)
  1. ....I +VTE S VTE=$P(VTE,U,1)_U_"MED "_$P(VTE,U,2)_U_BGPDD
  1. I VTE=0&(BGWARD=1) S EXC="1^ICULOS"
  1. Q VTE
  1. TS(DFN,BGPIEN,BGPDIS) ;Check the treating specialty
  1. N IEN,TYPE,OBDX,TS
  1. S IEN=BGPIEN,TS=0
  1. S OBDX=$$VSTPOV^BGPMUUT3(DFN,BGPVST,"BGPMU VTE OB DXS")
  1. I +OBDX S TS=OBDX
  1. Q TS