APCM13CI ;IHS/CMI/LAB - MU REPORT;
;;1.0;IHS MU PERFORMANCE REPORTS;**2**;MAR 26, 2012;Build 11
;
CALCIND ;EP - CALCULATE ALL MEASURES
;for this patient get all of their visits in the EHR reporting period and save in APCMVSTS for use in all measures
K APCMVSTS,APCMHVTP
D ALLV^APCLAPIU(DFN,APCMBDAT,APCMEDAT,"APCMVSTS")
I APCMRPTT=1 S APCMP=0 F S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP D
.S APCMHV=$$HADV(DFN,APCMP,APCMBDAT,APCMEDAT,.APCMVSTS)
.I APCMHV S APCMHVTP(APCMP)=APCMHV
;all measures except attestation and non-patient
I APCMRPTT=2 D
.S APCMHV=$$HADVH(DFN,APCMFAC,APCMBDAT,APCMEDAT,.APCMVSTS) I APCMHV S APCMHVTP(APCMFAC)=APCMHV
.S APCMVDOD=$$VDOD(DFN,APCMFAC,APCMBDAT,APCMEDAT,.APCMVSTS) ;did patient have an H visit with Death as discharge type
S APCMIC=0 F S APCMIC=$O(APCMIND(APCMIC)) Q:APCMIC'=+APCMIC D
.Q:$P(^APCM13OB(APCMIC,0),U,6)="A"
.Q:$P(^APCM13OB(APCMIC,0),U,12)=0
.K APCMSTOP,APCMVAL,APCMVALU,A,B,C,D,E,F,G,H,I,J,K,M,N,O,P,Q,R,S,T,V,W,X,Y,Z
.S APCMVALU=""
.I $D(^APCM13OB(APCMIC,1)) X ^APCM13OB(APCMIC,1)
Q
CALCINDA ;EP - CALCULATE ATTESTATION MEASURES
S APCMIC=0 F S APCMIC=$O(APCMIND(APCMIC)) Q:APCMIC'=+APCMIC D
.;Q:$P(^APCM13OB(APCMIC,0),U,6)="R"
.Q:$P(^APCM13OB(APCMIC,0),U,12)=1
.K APCMSTOP,APCMVAL,APCMVALU,A,B,C,D,E,F,G,H,I,J,K,M,N,O,P,Q,R,S,T,V,W,X,Y,Z,APCMVALU
.K APCMN1,APCMD1
.S APCMVALU=""
.I $D(^APCM13OB(APCMIC,1)) X ^APCM13OB(APCMIC,1)
Q
S1(BQITYP,BQIVAL) ; Return data by patient for iCare into global reference BQIGREF
;Input Variables
; BQITYP - Type of value
; D = Denominator
; N = Numerator
; BQIVAL - Value of the type; 0 or 1
;Assumed variables
; APCMVALUE - the measure value
; BQIGREF - global reference where data will be stored temporarily
; APCMIC - Indicator IEN
; APCMI - Individual Indicator IEN
; DFN - Patient IEN
;
; If no value of BQIGREF, then it's the regular GPRA report calling the code
; and nothing needs to be set for iCare.
Q:$G(BQIGREF)=""
;
; If no denominator or numerator value, then it doesn't need to be set for iCare
I '$G(BQIVAL) Q
;
NEW BQITIT,BQILTIT,BQILTIT1,BQILTIT2,BQILTIT3,BQILDTI1,BQILDTI2
NEW BQIDTIT,BQIFTIT,BQITWEN,BQICURR,BQIIDTA,BQIDTA,BQILDTI3
S BQIIDTA=$G(^APCM13OB(APCMI,0))
S BQIDTA=$G(^APCM13OB(APCMI,14))
;
; Get the Individual Indicator TITLE (1404)
S BQITIT=$P(BQIDTA,U,4)
;
; Get the Individual Indicator LINE TITLE 1 (.15)
S BQILTIT1=$P(BQIIDTA,U,15)
I BQILTIT1="" Q
; Get the Individual Indicator LINE TITLE 2 and 3 (.16,.19)
S BQILTIT2=$P(BQIIDTA,U,16)
S BQILTIT3=$P(BQIIDTA,U,19)
S BQILTIT=BQILTIT1_" "_BQILTIT2_" "_BQILTIT3
;
; Get the Individual Indicator LOCAL DENOM TITLE 1, 2, and 3 (.17,.18,.21)
S BQILDTI1=$P(BQIIDTA,U,17)
S BQILDTI2=$P(BQIIDTA,U,18)
S BQILDTI3=$P(BQIIDTA,U,21)
S BQIDTIT=BQILDTI1_" "_BQILDTI2_" "_BQILDTI3
;
; Full title is all title fields
S BQIFTIT=BQITIT_" "_BQILTIT_" "_BQIDTIT
S $P(@BQIGREF@(DFN,APCMIC,APCMI),"^",1)=BQIFTIT
;
; Get the GOAL 2013 value and the GOAL 06 value
S BQITWEN=$P(BQIDTA,U,3)
S BQICURR=$P(BQIDTA,U,8)
;
I BQITYP="N" S $P(@BQIGREF@(DFN,APCMIC,APCMI),"^",2)=$G(BQIVAL)
;
I BQITYP="D" S $P(@BQIGREF@(DFN,APCMIC,APCMI),"^",3)=$G(BQIVAL)
;
; Set the Indicator TITLE (.03)
S $P(@BQIGREF@(DFN,APCMIC),U,1)=$P(^APCM13OB(APCMIC,0),U,3)
S $P(@BQIGREF@(DFN,APCMIC),U,2)=$G(APCMVALU)
I BQITWEN'="" S $P(@BQIGREF@(DFN,APCMIC),U,3)=BQITWEN
I BQICURR'="" S $P(@BQIGREF@(DFN,APCMIC),U,4)=BQICURR
Q
HADV(P,R,BD,ED,VSTS) ;EP - had visit of A, O, R, S with provider R in time frame BD-ED
;PATCH 1 excludes ER and case management clinics
;patch 1 provider must be primary only
; so, in summary, the patient must have at least 1 A,O,R,M, non-ER, non-case man visit
; where this provider is the primary provider
I '$G(P) Q ""
I '$G(R) Q ""
I '$G(BD) Q ""
I '$G(ED) Q ""
I '$D(^AUPNPAT(P,0)) Q ""
I '$D(^VA(200,R,0)) Q ""
NEW V,X,Y,G
S G=""
S X=0 F S X=$O(VSTS(X)) Q:X'=+X!(G) D
.S V=$P(VSTS(X),U,5)
.I '$D(^AUPNVSIT(V,0)) Q
.I $P(^AUPNVSIT(V,0),U,11) Q ;deleted
.I "AOSM"'[$P(^AUPNVSIT(V,0),U,7) Q ;not correct service category
.S C=$$CLINIC^APCLV(V,"C")
.I C=30 Q ;no ER per Carmen patch 1
.I C=77 Q ;no case management clinic 77 per Chris
.I C=76 Q ;no lab
.I C=63 Q ;no radiology
.I C=39 Q ;no pharmacy
.S Y=$$PRIMPROV^APCLV(V,"I")
.I 'Y Q
.I Y'=R Q ;not this provider
.;S Y=0 F S Y=$O(^AUPNVPRV("AD",V,Y)) Q:Y'=+Y!(G) D
.;.I $P($G(^AUPNVPRV(Y,0)),U)'=R Q
.S G=$$VD^APCLV(V)
Q G ;quit on the date of the visit
;
HADVH(P,R,BD,ED,VSTS) ;EP - had visit H or ER A,O,S,M
I '$G(P) Q ""
I '$G(R) Q ""
I '$G(BD) Q ""
I '$G(ED) Q ""
I '$D(^AUPNPAT(P,0)) Q ""
I '$D(^DIC(4,R,0)) Q ""
NEW V,X,Y,G,C
S G=""
S X=0 F S X=$O(VSTS(X)) Q:X'=+X!(G) D
.S V=$P(VSTS(X),U,5)
.I '$D(^AUPNVSIT(V,0)) Q
.I $P(^AUPNVSIT(V,0),U,11) Q ;deleted
.I $P(^AUPNVSIT(V,0),U,6)'=R Q ;not correct facility
.I $P(^AUPNVSIT(V,0),U,7)="H" S G=$$VD^APCLV(V) Q
.I $P(^AUPNVSIT(V,0),U,7)'="A" Q ;not correct service category
.S C=$$CLINIC^APCLV(V,"C")
.;I C'=80,C'=30 Q
.I C'=30 Q ;per call on Feb. 18 (Hays)
.S G=$$VD^APCLV(V)
Q G ;quit on the date of the visit
VDOD(P,R,BD,ED,VSTS) ;EP - had visit H or ER A,O,S,M
I '$G(P) Q ""
I '$G(R) Q ""
I '$G(BD) Q ""
I '$G(ED) Q ""
I '$D(^AUPNPAT(P,0)) Q ""
I '$D(^DIC(4,R,0)) Q ""
NEW V,X,Y,G,C,H,D
S G=""
S X=0 F S X=$O(VSTS(X)) Q:X'=+X!(G) D
.S V=$P(VSTS(X),U,5)
.I '$D(^AUPNVSIT(V,0)) Q
.I $P(^AUPNVSIT(V,0),U,11) Q ;deleted
.I $P(^AUPNVSIT(V,0),U,6)'=R Q ;not correct facility
.I $P(^AUPNVSIT(V,0),U,7)'="H" Q
.S H=$O(^AUPNVINP("AD",V,0))
.Q:'H
.;get discharge type
.S D=$$VAL^XBDIQ1(9000010.02,H,.06)
.I D["DEATH" S G=V
.;I $$VAL^XBDIQ1(9000010.02,H,6102)="EXPIRED"
Q G ;quit on the date of the visit
APCM13CI ;IHS/CMI/LAB - MU REPORT;
+1 ;;1.0;IHS MU PERFORMANCE REPORTS;**2**;MAR 26, 2012;Build 11
+2 ;
CALCIND ;EP - CALCULATE ALL MEASURES
+1 ;for this patient get all of their visits in the EHR reporting period and save in APCMVSTS for use in all measures
+2 KILL APCMVSTS,APCMHVTP
+3 DO ALLV^APCLAPIU(DFN,APCMBDAT,APCMEDAT,"APCMVSTS")
+4 IF APCMRPTT=1
SET APCMP=0
FOR
SET APCMP=$ORDER(APCMPRV(APCMP))
IF APCMP'=+APCMP
QUIT
Begin DoDot:1
+5 SET APCMHV=$$HADV(DFN,APCMP,APCMBDAT,APCMEDAT,.APCMVSTS)
+6 IF APCMHV
SET APCMHVTP(APCMP)=APCMHV
End DoDot:1
+7 ;all measures except attestation and non-patient
+8 IF APCMRPTT=2
Begin DoDot:1
+9 SET APCMHV=$$HADVH(DFN,APCMFAC,APCMBDAT,APCMEDAT,.APCMVSTS)
IF APCMHV
SET APCMHVTP(APCMFAC)=APCMHV
+10 ;did patient have an H visit with Death as discharge type
SET APCMVDOD=$$VDOD(DFN,APCMFAC,APCMBDAT,APCMEDAT,.APCMVSTS)
End DoDot:1
+11 SET APCMIC=0
FOR
SET APCMIC=$ORDER(APCMIND(APCMIC))
IF APCMIC'=+APCMIC
QUIT
Begin DoDot:1
+12 IF $PIECE(^APCM13OB(APCMIC,0),U,6)="A"
QUIT
+13 IF $PIECE(^APCM13OB(APCMIC,0),U,12)=0
QUIT
+14 KILL APCMSTOP,APCMVAL,APCMVALU,A,B,C,D,E,F,G,H,I,J,K,M,N,O,P,Q,R,S,T,V,W,X,Y,Z
+15 SET APCMVALU=""
+16 IF $DATA(^APCM13OB(APCMIC,1))
XECUTE ^APCM13OB(APCMIC,1)
End DoDot:1
+17 QUIT
CALCINDA ;EP - CALCULATE ATTESTATION MEASURES
+1 SET APCMIC=0
FOR
SET APCMIC=$ORDER(APCMIND(APCMIC))
IF APCMIC'=+APCMIC
QUIT
Begin DoDot:1
+2 ;Q:$P(^APCM13OB(APCMIC,0),U,6)="R"
+3 IF $PIECE(^APCM13OB(APCMIC,0),U,12)=1
QUIT
+4 KILL APCMSTOP,APCMVAL,APCMVALU,A,B,C,D,E,F,G,H,I,J,K,M,N,O,P,Q,R,S,T,V,W,X,Y,Z,APCMVALU
+5 KILL APCMN1,APCMD1
+6 SET APCMVALU=""
+7 IF $DATA(^APCM13OB(APCMIC,1))
XECUTE ^APCM13OB(APCMIC,1)
End DoDot:1
+8 QUIT
S1(BQITYP,BQIVAL) ; Return data by patient for iCare into global reference BQIGREF
+1 ;Input Variables
+2 ; BQITYP - Type of value
+3 ; D = Denominator
+4 ; N = Numerator
+5 ; BQIVAL - Value of the type; 0 or 1
+6 ;Assumed variables
+7 ; APCMVALUE - the measure value
+8 ; BQIGREF - global reference where data will be stored temporarily
+9 ; APCMIC - Indicator IEN
+10 ; APCMI - Individual Indicator IEN
+11 ; DFN - Patient IEN
+12 ;
+13 ; If no value of BQIGREF, then it's the regular GPRA report calling the code
+14 ; and nothing needs to be set for iCare.
+15 IF $GET(BQIGREF)=""
QUIT
+16 ;
+17 ; If no denominator or numerator value, then it doesn't need to be set for iCare
+18 IF '$GET(BQIVAL)
QUIT
+19 ;
+20 NEW BQITIT,BQILTIT,BQILTIT1,BQILTIT2,BQILTIT3,BQILDTI1,BQILDTI2
+21 NEW BQIDTIT,BQIFTIT,BQITWEN,BQICURR,BQIIDTA,BQIDTA,BQILDTI3
+22 SET BQIIDTA=$GET(^APCM13OB(APCMI,0))
+23 SET BQIDTA=$GET(^APCM13OB(APCMI,14))
+24 ;
+25 ; Get the Individual Indicator TITLE (1404)
+26 SET BQITIT=$PIECE(BQIDTA,U,4)
+27 ;
+28 ; Get the Individual Indicator LINE TITLE 1 (.15)
+29 SET BQILTIT1=$PIECE(BQIIDTA,U,15)
+30 IF BQILTIT1=""
QUIT
+31 ; Get the Individual Indicator LINE TITLE 2 and 3 (.16,.19)
+32 SET BQILTIT2=$PIECE(BQIIDTA,U,16)
+33 SET BQILTIT3=$PIECE(BQIIDTA,U,19)
+34 SET BQILTIT=BQILTIT1_" "_BQILTIT2_" "_BQILTIT3
+35 ;
+36 ; Get the Individual Indicator LOCAL DENOM TITLE 1, 2, and 3 (.17,.18,.21)
+37 SET BQILDTI1=$PIECE(BQIIDTA,U,17)
+38 SET BQILDTI2=$PIECE(BQIIDTA,U,18)
+39 SET BQILDTI3=$PIECE(BQIIDTA,U,21)
+40 SET BQIDTIT=BQILDTI1_" "_BQILDTI2_" "_BQILDTI3
+41 ;
+42 ; Full title is all title fields
+43 SET BQIFTIT=BQITIT_" "_BQILTIT_" "_BQIDTIT
+44 SET $PIECE(@BQIGREF@(DFN,APCMIC,APCMI),"^",1)=BQIFTIT
+45 ;
+46 ; Get the GOAL 2013 value and the GOAL 06 value
+47 SET BQITWEN=$PIECE(BQIDTA,U,3)
+48 SET BQICURR=$PIECE(BQIDTA,U,8)
+49 ;
+50 IF BQITYP="N"
SET $PIECE(@BQIGREF@(DFN,APCMIC,APCMI),"^",2)=$GET(BQIVAL)
+51 ;
+52 IF BQITYP="D"
SET $PIECE(@BQIGREF@(DFN,APCMIC,APCMI),"^",3)=$GET(BQIVAL)
+53 ;
+54 ; Set the Indicator TITLE (.03)
+55 SET $PIECE(@BQIGREF@(DFN,APCMIC),U,1)=$PIECE(^APCM13OB(APCMIC,0),U,3)
+56 SET $PIECE(@BQIGREF@(DFN,APCMIC),U,2)=$GET(APCMVALU)
+57 IF BQITWEN'=""
SET $PIECE(@BQIGREF@(DFN,APCMIC),U,3)=BQITWEN
+58 IF BQICURR'=""
SET $PIECE(@BQIGREF@(DFN,APCMIC),U,4)=BQICURR
+59 QUIT
HADV(P,R,BD,ED,VSTS) ;EP - had visit of A, O, R, S with provider R in time frame BD-ED
+1 ;PATCH 1 excludes ER and case management clinics
+2 ;patch 1 provider must be primary only
+3 ; so, in summary, the patient must have at least 1 A,O,R,M, non-ER, non-case man visit
+4 ; where this provider is the primary provider
+5 IF '$GET(P)
QUIT ""
+6 IF '$GET(R)
QUIT ""
+7 IF '$GET(BD)
QUIT ""
+8 IF '$GET(ED)
QUIT ""
+9 IF '$DATA(^AUPNPAT(P,0))
QUIT ""
+10 IF '$DATA(^VA(200,R,0))
QUIT ""
+11 NEW V,X,Y,G
+12 SET G=""
+13 SET X=0
FOR
SET X=$ORDER(VSTS(X))
IF X'=+X!(G)
QUIT
Begin DoDot:1
+14 SET V=$PIECE(VSTS(X),U,5)
+15 IF '$DATA(^AUPNVSIT(V,0))
QUIT
+16 ;deleted
IF $PIECE(^AUPNVSIT(V,0),U,11)
QUIT
+17 ;not correct service category
IF "AOSM"'[$PIECE(^AUPNVSIT(V,0),U,7)
QUIT
+18 SET C=$$CLINIC^APCLV(V,"C")
+19 ;no ER per Carmen patch 1
IF C=30
QUIT
+20 ;no case management clinic 77 per Chris
IF C=77
QUIT
+21 ;no lab
IF C=76
QUIT
+22 ;no radiology
IF C=63
QUIT
+23 ;no pharmacy
IF C=39
QUIT
+24 SET Y=$$PRIMPROV^APCLV(V,"I")
+25 IF 'Y
QUIT
+26 ;not this provider
IF Y'=R
QUIT
+27 ;S Y=0 F S Y=$O(^AUPNVPRV("AD",V,Y)) Q:Y'=+Y!(G) D
+28 ;.I $P($G(^AUPNVPRV(Y,0)),U)'=R Q
+29 SET G=$$VD^APCLV(V)
End DoDot:1
+30 ;quit on the date of the visit
QUIT G
+31 ;
HADVH(P,R,BD,ED,VSTS) ;EP - had visit H or ER A,O,S,M
+1 IF '$GET(P)
QUIT ""
+2 IF '$GET(R)
QUIT ""
+3 IF '$GET(BD)
QUIT ""
+4 IF '$GET(ED)
QUIT ""
+5 IF '$DATA(^AUPNPAT(P,0))
QUIT ""
+6 IF '$DATA(^DIC(4,R,0))
QUIT ""
+7 NEW V,X,Y,G,C
+8 SET G=""
+9 SET X=0
FOR
SET X=$ORDER(VSTS(X))
IF X'=+X!(G)
QUIT
Begin DoDot:1
+10 SET V=$PIECE(VSTS(X),U,5)
+11 IF '$DATA(^AUPNVSIT(V,0))
QUIT
+12 ;deleted
IF $PIECE(^AUPNVSIT(V,0),U,11)
QUIT
+13 ;not correct facility
IF $PIECE(^AUPNVSIT(V,0),U,6)'=R
QUIT
+14 IF $PIECE(^AUPNVSIT(V,0),U,7)="H"
SET G=$$VD^APCLV(V)
QUIT
+15 ;not correct service category
IF $PIECE(^AUPNVSIT(V,0),U,7)'="A"
QUIT
+16 SET C=$$CLINIC^APCLV(V,"C")
+17 ;I C'=80,C'=30 Q
+18 ;per call on Feb. 18 (Hays)
IF C'=30
QUIT
+19 SET G=$$VD^APCLV(V)
End DoDot:1
+20 ;quit on the date of the visit
QUIT G
VDOD(P,R,BD,ED,VSTS) ;EP - had visit H or ER A,O,S,M
+1 IF '$GET(P)
QUIT ""
+2 IF '$GET(R)
QUIT ""
+3 IF '$GET(BD)
QUIT ""
+4 IF '$GET(ED)
QUIT ""
+5 IF '$DATA(^AUPNPAT(P,0))
QUIT ""
+6 IF '$DATA(^DIC(4,R,0))
QUIT ""
+7 NEW V,X,Y,G,C,H,D
+8 SET G=""
+9 SET X=0
FOR
SET X=$ORDER(VSTS(X))
IF X'=+X!(G)
QUIT
Begin DoDot:1
+10 SET V=$PIECE(VSTS(X),U,5)
+11 IF '$DATA(^AUPNVSIT(V,0))
QUIT
+12 ;deleted
IF $PIECE(^AUPNVSIT(V,0),U,11)
QUIT
+13 ;not correct facility
IF $PIECE(^AUPNVSIT(V,0),U,6)'=R
QUIT
+14 IF $PIECE(^AUPNVSIT(V,0),U,7)'="H"
QUIT
+15 SET H=$ORDER(^AUPNVINP("AD",V,0))
+16 IF 'H
QUIT
+17 ;get discharge type
+18 SET D=$$VAL^XBDIQ1(9000010.02,H,.06)
+19 IF D["DEATH"
SET G=V
+20 ;I $$VAL^XBDIQ1(9000010.02,H,6102)="EXPIRED"
End DoDot:1
+21 ;quit on the date of the visit
QUIT G
