BGPMUH13 ; IHS/MSC/MGH - MU measure NQF0374-VTE-4 ;02-Mar-2011 16:23;DU
;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
;meaningful use hospital measure VTE-4 - Platelet Count Monitoring for Patients given IV UFH
ENTRY ;PEP VTE-4 - Platelet Count Monitoring for Patients given IV UFH
N START,END,BGPIEN,DFN,BGPVST,BGPAGEE,VTE,BGPUFHIP,DEN,EXC,NUM,BGPDIS
N BGPCHOL,BGPLIPID,BGPBIRTH,BGPADMIT,BGPDD
;Start by finding all admissions during the reporting period
S START=BGPBDATE
S END=BGPEDATE_".2359"
F S START=$O(^DGPM("B",START)) Q:START=""!(START>END) D
.S BGPIEN="" F S BGPIEN=$O(^DGPM("B",START,BGPIEN)) Q:BGPIEN="" D
..Q:$P($G(^DGPM(BGPIEN,0)),U,2)'=1 ;Only include admissions
..S DFN=$P($G(^DGPM(BGPIEN,0)),U,3)
..S BGPAGEE=$$AGE^AUPNPAT(DFN,BGPEDATE)
..S BGPBIRTH=$$DOB^AUPNPAT(DFN)
..Q:DFN=""
..S BGPACTUP=$$ACTUPAP^BGPMUEHD(DFN,BGPBDATE,BGPEDATE,BGPBEN)
..I 'BGPACTUP,'$G(BGPXPXPX),'$G(BGPIISO) Q
..S BGPVST=$P($G(^DGPM(BGPIEN,0)),U,27) ;Get the visit
..Q:BGPVST=""
..S BGPDIS=$P($G(^DGPM(BGPIEN,0)),U,17) ;Don't use if pt is still an inpt
..Q:BGPDIS=""
..;Get the admit time & discharge times
..S BGPADMIT=$P($G(^DGPM(BGPIEN,0)),U,1)
..S BGPDD=$P($G(^DGPM(BGPDIS,0)),U,1)
..;Check for a diagnosis of VTE
..S VTE=0,UFHRX=0,DEN=0,EXC=0,NUM=0
..S BGPVDX=$$VSTPOVB^BGPMUUT3(DFN,BGPVST,"BGPMU VTE DX")
..I +BGPVDX S VTE=1
..Q:'VTE
..;Get discharge date
..S BGPDD=$P($G(^DGPM(BGPDIS,0)),U,1)
..;Pt must have been administered IV UFH during the visit
..S BGPUFHIP=$$FIND^BGPMUUT4(DFN,"BGPMU UFH THERAPY NDCS",$P($G(^DGPM(BGPIEN,0)),U,1),"IV",$P($G(^DGPM(BGPDIS,0)),U,1))
..Q:'BGPUFHIP
..S DEN=1_U_BGPVST_";"_BGPIEN_";"_$P(BGPVDX,U,2)
..;Next check for exclusions
..S EXC=$$EXCLUDE(DFN,BGPIEN,BGPVST,BGPDIS)
..;If no exclusions see if they have Platelet monitoring around IV UFH admin
..I EXC="" S NUM=$$NUMER(DFN,BGPVST,BGPIEN,BGPDIS)
..;Now add it all up
..D TOTAL(BGPIEN)
Q
TOTAL(BGPIEN) ;add up the totals
N PTCNT,EXCCT,DENCT,NUMCT,TOTALS,DATE,PTDATA,NOTCT
S TOTALS=$G(^TMP("BGPMU0374",$J,BGPMUTF,"TOT"))
S DENCT=+$G(^TMP("BGPMU0374",$J,BGPMUTF,"DEN"))
S NUMCT=+$G(^TMP("BGPMU0374",$J,BGPMUTF,"NUM"))
S EXCCT=+$G(^TMP("BGPMU0374",$J,BGPMUTF,"EXC"))
S NOTCT=+$G(^TMP("BGPMU0374",$J,BGPMUTF,"NOT"))
S PTCNT=TOTALS
S PTCNT=PTCNT+1
S DATE=$$DATE^BGPMUUTL($P($G(^DGPM(BGPIEN,0)),U,1))
; DATA STRING FOR OUTPUT
; DFN ^ VISIT DATE ^ EXCLUSION REASON ^ DENOMINATOR CRITERIA ^ NUMERATOR CRITERIA
; EXCLUSION = EXCLUSION REASON
; DENOMINATOR = VISIT IEN ; MOVEMENT IEN ; VTE DX DATA
; NUMERATOR = IV UFH DATE ; PLATELET TEST 1 DATE ; PLATELET 2 DATE ; PLATELET 3 DATE
S PTDATA=DFN_U_DATE_U_$P(EXC,U,2)_U_$P(DEN,U,2)_U_$P(NUM,U,2)
S DENCT=DENCT+1 S ^TMP("BGPMU0374",$J,BGPMUTF,"DEN")=DENCT
I EXC'="" D
.S EXCCT=EXCCT+1 S ^TMP("BGPMU0374",$J,BGPMUTF,"EXC")=EXCCT
.I BGPMUTF="C" S ^TMP("BGPMU0374",$J,"PAT",BGPMUTF,"EXC",PTCNT)=PTDATA
I EXC="" D
.I +NUM=1 D
..S NUMCT=NUMCT+1 S ^TMP("BGPMU0374",$J,BGPMUTF,"NUM")=NUMCT
..S ^TMP("BGPMU0374",$J,"PAT",BGPMUTF,"NUM",PTCNT)=PTDATA_U_DATE_U_$P(NUM,U,3)_U_$P(NUM,U,2)
.I +NUM=0 D
..S NOTCT=NOTCT+1 S ^TMP("BGPMU0374",$J,BGPMUTF,"NOT")=NOTCT
..S ^TMP("BGPMU0374",$J,"PAT",BGPMUTF,"NOT",PTCNT)=PTDATA_U_DATE_U_$P(NUM,U,3)_U_$P(NUM,U,2)
S ^TMP("BGPMU0374",$J,BGPMUTF,"TOT")=PTCNT
S BGPICARE("MU.VTE.0374.1",BGPMUTF,DFN)=1_U_+$G(NUM)_U_+EXC_U_DATE_";"_$P($G(NUM),U,3)_";"_$P(EXC,U,2)
Q
EXCLUDE(DFN,BGPIEN,BGPVST,BGPDIS) ;See if there are exclusions
N REASON,BGPLOS,BGPHOS,BGPCLIN,BGPUFHIP,BGPATH,DTYPE1,DTYPE2,VTECPT,VTEICD,VTERCODE
S REASON=""
I BGPAGEE<18 S REASON="1^AGE" Q REASON
;Check for LOS
S BGPLOS=$$LOS^BGPMUH08(BGPIEN,BGPDIS)
I BGPLOS>120 S REASON="1^LOS" Q REASON
;Check for hospice care
S BGPHOS=$$HOSPICE^BGPMUH08(DFN,BGPVST)
I +BGPHOS S REASON=BGPHOS Q REASON
;Check for clinical trials
S BGPCLIN=$$TRIAL^BGPMUH08(DFN,BGPVST)
I +BGPCLIN S REASON=BGPCLIN Q REASON
;Check if IV UFH wasn't performed - this definitely doesn't make sense now that Den inclusion logic checks this SAME thing
S BGPUFHIP=$$FIND^BGPMUUT4(DFN,"BGPMU UFH THERAPY NDCS",$P($G(^DGPM(BGPIEN,0)),U,1),"IV",$P($G(^DGPM(BGPDIS,0)),U,1))
I 'BGPUFHIP S REASON="1^No IV UFH" Q REASON
;Check if VTE diagnostic procedure performed - exclude if none performed
;S VTEICD=$$VSTICD0^BGPMUUT3(DFN,BGPVST,"BGPMU VTE TEST ICD0") ;not in ORT
S VTERCODE=$$FIND^BGPMUUT7(DFN,"BGPMU VTE TEST CPT",BGPADMIT,BGPDD)
S VTECPT=$$VSTCPT^BGPMUUT1(DFN,BGPVST,"BGPMU VTE TEST CPT")
;I 'VTECPT&('VTERCODE)&('VTEICD) S REASON="1^No VTE Test" Q REASON
I 'VTECPT&('VTERCODE) S REASON="1^No VTE Test" Q REASON
Q REASON
NUMER(DFN,BGPVST,BGPIEN,BGPDIS) ;Check to see if pt is in the numerator
N %,UFHIP,PLATES,DAYB4,DAYAFTER,DAY3,DONE,PLATE1,PLATE2,PLATE3,VSTDT,DISDT,ADMINDT
S (%,UFHIP,PLATE1,PLATE2,PLATE3)=0
S VSTDT=$P($G(^DGPM(BGPIEN,0)),U,1)
S DISDT=$P($G(^DGPM(BGPDIS,0)),U,1)
;Check if IV UFH was performed
S UFHIP=$$FIND^BGPMUUT4(DFN,"BGPMU UFH THERAPY NDCS",$P($G(^DGPM(BGPIEN,0)),U,1),"IV",$P($G(^DGPM(BGPDIS,0)),U,1))
;shouldn't get here if no IV UFH since it's an exclusion criteria, but quit here if none for uniformity
Q:'UFHIP %
S ADMINDT=$P(UFHIP,U,3) ;;
I +ADMINDT D
.D LAB^BGPMUUT5(.PLATES,DFN,"BGPMU LAB LOINC PLATELETS",VSTDT,DISDT)
.S DAYB4=$P(9999999-$$FMADD^XLFDT(ADMINDT,-1),".",1),DAYAFTER=$P(9999999-$$FMADD^XLFDT(ADMINDT,1),".",1),DAY3=$P(9999999-$$FMADD^XLFDT(ADMINDT,3),".",1)
.;S PLATE1=$O(PLATES(DAYB4))
.S I="" F S I=$O(PLATES(I)) Q:I="" D
..I $P(I,".",1)=DAYB4 S PLATE1=PLATES(I)
..I $P(I,".",1)=DAYAFTER S PLATE2=PLATES(I)
..I $P(I,".",1)=DAY3 S PLATE3=PLATES(I)
.;I +PLATE1 S PLATE2=$O(PLATES(DAY3)) I PLATE2>DAYAFTER S PLATE2=""
.;I +PLATE2 S PLATE3=$O(PLATES("")) I PLATE3>DAY3 S PLATE3=""
I +UFHIP,+PLATE1,+PLATE2,+PLATE3 S %=1
Q %_U_$P(UFHIP,U,2)_";"_PLATE1_";"_PLATE2_";"_PLATE3_U_BGPDD
BGPMUH13 ; IHS/MSC/MGH - MU measure NQF0374-VTE-4 ;02-Mar-2011 16:23;DU
+1 ;;11.0;IHS CLINICAL REPORTING;**4**;JAN 06, 2011;Build 84
+2 ;meaningful use hospital measure VTE-4 - Platelet Count Monitoring for Patients given IV UFH
ENTRY ;PEP VTE-4 - Platelet Count Monitoring for Patients given IV UFH
+1 NEW START,END,BGPIEN,DFN,BGPVST,BGPAGEE,VTE,BGPUFHIP,DEN,EXC,NUM,BGPDIS
+2 NEW BGPCHOL,BGPLIPID,BGPBIRTH,BGPADMIT,BGPDD
+3 ;Start by finding all admissions during the reporting period
+4 SET START=BGPBDATE
+5 SET END=BGPEDATE_".2359"
+6 FOR
SET START=$ORDER(^DGPM("B",START))
IF START=""!(START>END)
QUIT
Begin DoDot:1
+7 SET BGPIEN=""
FOR
SET BGPIEN=$ORDER(^DGPM("B",START,BGPIEN))
IF BGPIEN=""
QUIT
Begin DoDot:2
+8 ;Only include admissions
IF $PIECE($GET(^DGPM(BGPIEN,0)),U,2)'=1
QUIT
+9 SET DFN=$PIECE($GET(^DGPM(BGPIEN,0)),U,3)
+10 SET BGPAGEE=$$AGE^AUPNPAT(DFN,BGPEDATE)
+11 SET BGPBIRTH=$$DOB^AUPNPAT(DFN)
+12 IF DFN=""
QUIT
+13 SET BGPACTUP=$$ACTUPAP^BGPMUEHD(DFN,BGPBDATE,BGPEDATE,BGPBEN)
+14 IF 'BGPACTUP
IF '$GET(BGPXPXPX)
IF '$GET(BGPIISO)
QUIT
+15 ;Get the visit
SET BGPVST=$PIECE($GET(^DGPM(BGPIEN,0)),U,27)
+16 IF BGPVST=""
QUIT
+17 ;Don't use if pt is still an inpt
SET BGPDIS=$PIECE($GET(^DGPM(BGPIEN,0)),U,17)
+18 IF BGPDIS=""
QUIT
+19 ;Get the admit time & discharge times
+20 SET BGPADMIT=$PIECE($GET(^DGPM(BGPIEN,0)),U,1)
+21 SET BGPDD=$PIECE($GET(^DGPM(BGPDIS,0)),U,1)
+22 ;Check for a diagnosis of VTE
+23 SET VTE=0
SET UFHRX=0
SET DEN=0
SET EXC=0
SET NUM=0
+24 SET BGPVDX=$$VSTPOVB^BGPMUUT3(DFN,BGPVST,"BGPMU VTE DX")
+25 IF +BGPVDX
SET VTE=1
+26 IF 'VTE
QUIT
+27 ;Get discharge date
+28 SET BGPDD=$PIECE($GET(^DGPM(BGPDIS,0)),U,1)
+29 ;Pt must have been administered IV UFH during the visit
+30 SET BGPUFHIP=$$FIND^BGPMUUT4(DFN,"BGPMU UFH THERAPY NDCS",$PIECE($GET(^DGPM(BGPIEN,0)),U,1),"IV",$PIECE($GET(^DGPM(BGPDIS,0)),U,1))
+31 IF 'BGPUFHIP
QUIT
+32 SET DEN=1_U_BGPVST_";"_BGPIEN_";"_$PIECE(BGPVDX,U,2)
+33 ;Next check for exclusions
+34 SET EXC=$$EXCLUDE(DFN,BGPIEN,BGPVST,BGPDIS)
+35 ;If no exclusions see if they have Platelet monitoring around IV UFH admin
+36 IF EXC=""
SET NUM=$$NUMER(DFN,BGPVST,BGPIEN,BGPDIS)
+37 ;Now add it all up
+38 DO TOTAL(BGPIEN)
End DoDot:2
End DoDot:1
+39 QUIT
TOTAL(BGPIEN) ;add up the totals
+1 NEW PTCNT,EXCCT,DENCT,NUMCT,TOTALS,DATE,PTDATA,NOTCT
+2 SET TOTALS=$GET(^TMP("BGPMU0374",$JOB,BGPMUTF,"TOT"))
+3 SET DENCT=+$GET(^TMP("BGPMU0374",$JOB,BGPMUTF,"DEN"))
+4 SET NUMCT=+$GET(^TMP("BGPMU0374",$JOB,BGPMUTF,"NUM"))
+5 SET EXCCT=+$GET(^TMP("BGPMU0374",$JOB,BGPMUTF,"EXC"))
+6 SET NOTCT=+$GET(^TMP("BGPMU0374",$JOB,BGPMUTF,"NOT"))
+7 SET PTCNT=TOTALS
+8 SET PTCNT=PTCNT+1
+9 SET DATE=$$DATE^BGPMUUTL($PIECE($GET(^DGPM(BGPIEN,0)),U,1))
+10 ; DATA STRING FOR OUTPUT
+11 ; DFN ^ VISIT DATE ^ EXCLUSION REASON ^ DENOMINATOR CRITERIA ^ NUMERATOR CRITERIA
+12 ; EXCLUSION = EXCLUSION REASON
+13 ; DENOMINATOR = VISIT IEN ; MOVEMENT IEN ; VTE DX DATA
+14 ; NUMERATOR = IV UFH DATE ; PLATELET TEST 1 DATE ; PLATELET 2 DATE ; PLATELET 3 DATE
+15 SET PTDATA=DFN_U_DATE_U_$PIECE(EXC,U,2)_U_$PIECE(DEN,U,2)_U_$PIECE(NUM,U,2)
+16 SET DENCT=DENCT+1
SET ^TMP("BGPMU0374",$JOB,BGPMUTF,"DEN")=DENCT
+17 IF EXC'=""
Begin DoDot:1
+18 SET EXCCT=EXCCT+1
SET ^TMP("BGPMU0374",$JOB,BGPMUTF,"EXC")=EXCCT
+19 IF BGPMUTF="C"
SET ^TMP("BGPMU0374",$JOB,"PAT",BGPMUTF,"EXC",PTCNT)=PTDATA
End DoDot:1
+20 IF EXC=""
Begin DoDot:1
+21 IF +NUM=1
Begin DoDot:2
+22 SET NUMCT=NUMCT+1
SET ^TMP("BGPMU0374",$JOB,BGPMUTF,"NUM")=NUMCT
+23 SET ^TMP("BGPMU0374",$JOB,"PAT",BGPMUTF,"NUM",PTCNT)=PTDATA_U_DATE_U_$PIECE(NUM,U,3)_U_$PIECE(NUM,U,2)
End DoDot:2
+24 IF +NUM=0
Begin DoDot:2
+25 SET NOTCT=NOTCT+1
SET ^TMP("BGPMU0374",$JOB,BGPMUTF,"NOT")=NOTCT
+26 SET ^TMP("BGPMU0374",$JOB,"PAT",BGPMUTF,"NOT",PTCNT)=PTDATA_U_DATE_U_$PIECE(NUM,U,3)_U_$PIECE(NUM,U,2)
End DoDot:2
End DoDot:1
+27 SET ^TMP("BGPMU0374",$JOB,BGPMUTF,"TOT")=PTCNT
+28 SET BGPICARE("MU.VTE.0374.1",BGPMUTF,DFN)=1_U_+$GET(NUM)_U_+EXC_U_DATE_";"_$PIECE($GET(NUM),U,3)_";"_$PIECE(EXC,U,2)
+29 QUIT
EXCLUDE(DFN,BGPIEN,BGPVST,BGPDIS) ;See if there are exclusions
+1 NEW REASON,BGPLOS,BGPHOS,BGPCLIN,BGPUFHIP,BGPATH,DTYPE1,DTYPE2,VTECPT,VTEICD,VTERCODE
+2 SET REASON=""
+3 IF BGPAGEE<18
SET REASON="1^AGE"
QUIT REASON
+4 ;Check for LOS
+5 SET BGPLOS=$$LOS^BGPMUH08(BGPIEN,BGPDIS)
+6 IF BGPLOS>120
SET REASON="1^LOS"
QUIT REASON
+7 ;Check for hospice care
+8 SET BGPHOS=$$HOSPICE^BGPMUH08(DFN,BGPVST)
+9 IF +BGPHOS
SET REASON=BGPHOS
QUIT REASON
+10 ;Check for clinical trials
+11 SET BGPCLIN=$$TRIAL^BGPMUH08(DFN,BGPVST)
+12 IF +BGPCLIN
SET REASON=BGPCLIN
QUIT REASON
+13 ;Check if IV UFH wasn't performed - this definitely doesn't make sense now that Den inclusion logic checks this SAME thing
+14 SET BGPUFHIP=$$FIND^BGPMUUT4(DFN,"BGPMU UFH THERAPY NDCS",$PIECE($GET(^DGPM(BGPIEN,0)),U,1),"IV",$PIECE($GET(^DGPM(BGPDIS,0)),U,1))
+15 IF 'BGPUFHIP
SET REASON="1^No IV UFH"
QUIT REASON
+16 ;Check if VTE diagnostic procedure performed - exclude if none performed
+17 ;S VTEICD=$$VSTICD0^BGPMUUT3(DFN,BGPVST,"BGPMU VTE TEST ICD0") ;not in ORT
+18 SET VTERCODE=$$FIND^BGPMUUT7(DFN,"BGPMU VTE TEST CPT",BGPADMIT,BGPDD)
+19 SET VTECPT=$$VSTCPT^BGPMUUT1(DFN,BGPVST,"BGPMU VTE TEST CPT")
+20 ;I 'VTECPT&('VTERCODE)&('VTEICD) S REASON="1^No VTE Test" Q REASON
+21 IF 'VTECPT&('VTERCODE)
SET REASON="1^No VTE Test"
QUIT REASON
+22 QUIT REASON
NUMER(DFN,BGPVST,BGPIEN,BGPDIS) ;Check to see if pt is in the numerator
+1 NEW %,UFHIP,PLATES,DAYB4,DAYAFTER,DAY3,DONE,PLATE1,PLATE2,PLATE3,VSTDT,DISDT,ADMINDT
+2 SET (%,UFHIP,PLATE1,PLATE2,PLATE3)=0
+3 SET VSTDT=$PIECE($GET(^DGPM(BGPIEN,0)),U,1)
+4 SET DISDT=$PIECE($GET(^DGPM(BGPDIS,0)),U,1)
+5 ;Check if IV UFH was performed
+6 SET UFHIP=$$FIND^BGPMUUT4(DFN,"BGPMU UFH THERAPY NDCS",$PIECE($GET(^DGPM(BGPIEN,0)),U,1),"IV",$PIECE($GET(^DGPM(BGPDIS,0)),U,1))
+7 ;shouldn't get here if no IV UFH since it's an exclusion criteria, but quit here if none for uniformity
+8 IF 'UFHIP
QUIT %
+9 ;;
SET ADMINDT=$PIECE(UFHIP,U,3)
+10 IF +ADMINDT
Begin DoDot:1
+11 DO LAB^BGPMUUT5(.PLATES,DFN,"BGPMU LAB LOINC PLATELETS",VSTDT,DISDT)
+12 SET DAYB4=$PIECE(9999999-$$FMADD^XLFDT(ADMINDT,-1),".",1)
SET DAYAFTER=$PIECE(9999999-$$FMADD^XLFDT(ADMINDT,1),".",1)
SET DAY3=$PIECE(9999999-$$FMADD^XLFDT(ADMINDT,3),".",1)
+13 ;S PLATE1=$O(PLATES(DAYB4))
+14 SET I=""
FOR
SET I=$ORDER(PLATES(I))
IF I=""
QUIT
Begin DoDot:2
+15 IF $PIECE(I,".",1)=DAYB4
SET PLATE1=PLATES(I)
+16 IF $PIECE(I,".",1)=DAYAFTER
SET PLATE2=PLATES(I)
+17 IF $PIECE(I,".",1)=DAY3
SET PLATE3=PLATES(I)
End DoDot:2
+18 ;I +PLATE1 S PLATE2=$O(PLATES(DAY3)) I PLATE2>DAYAFTER S PLATE2=""
+19 ;I +PLATE2 S PLATE3=$O(PLATES("")) I PLATE3>DAY3 S PLATE3=""
End DoDot:1
+20 IF +UFHIP
IF +PLATE1
IF +PLATE2
IF +PLATE3
SET %=1
+21 QUIT %_U_$PIECE(UFHIP,U,2)_";"_PLATE1_";"_PLATE2_";"_PLATE3_U_BGPDD
