APCM2AEA ; IHS/CMI/LAB - IHS MU ; 29 Jun 2016 5:29 PM
;;1.0;MU PERFORMANCE REPORTS;**7,8**;MAR 26, 2012;Build 22
;
ET ;
W ! S APCMZ=0 F S APCMZ=$O(^APCM25OB(APCMY,N,APCMZ)) Q:APCMZ'=+APCMZ W !,^APCM25OB(APCMY,N,APCMZ,0)
W !
Q
SS ;EP
Q
SSH ;EP
Q
IMMREG ;EP - ask additional exclusion questions for IMM REG
S APCMQ=0
S APCMY=$O(^APCM25OB("B",APCMX,0))
Q:'$D(APCMIND(APCMY)) ;measure not being run
;display exclusion text/narrative
I $O(^APCM25OB(APCMY,APCMQU,0)) S N=APCMQU W !! D ET
I APCMPLTY="SEL"!(APCMPLTY="TAX") D G:APCMIND=1 IMMIND Q
.W !!,"Do all selected providers included in this report meet this"
.S DIR(0)="Y",DIR("A")="exclusion",DIR("B")="YES" KILL DA D ^DIR KILL DIR
.I $D(DIRUT) S APCMQ=1 Q
.I 'Y S APCMIND=1 Q
.S APCMP=0 F S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP S APCMATTE(APCMX,APCMP)="N/A"
IMMIND ;ask individually
S APCMP=0 F S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP!(APCMQ) D
.S APCMZ=0 F S APCMZ=$O(^APCM25OB(APCMY,24,APCMZ)) Q:APCMZ'=+APCMZ W !,^APCM25OB(APCMY,24,APCMZ,0)
.W ! S DIR(0)="Y",DIR("A")="Does "_$E($P(^VA(200,APCMP,0),U,1),1,25)_" meet this exclusion",DIR("B")="YES" KILL DA D ^DIR KILL DIR
.I $D(DIRUT) S APCMQ=1 Q
.S APCMATTE(APCMX,APCMP)=$S(Y:"N/A",1:"")
IMM2 ;display exclusion text/narrative
S APCMP=0,E=0,T=0 F S APCMP=$O(APCMATTE(APCMX,APCMP)) Q:APCMP=""!(APCMQ) D
.S T=T+1
.I APCMATTE(APCMX,APCMP)="N/A" S E=E+1 ;excluded so don't ask
I E=T Q ;all excluded
I $O(^APCM25OB(APCMY,31,0)) S N=31 W !! D ET
;
IMMIND2 ;ask individually
S APCMP=0 F S APCMP=$O(APCMPRV(APCMP)) Q:APCMP'=+APCMP!(APCMQ) D
.Q:APCMATTE(APCMX,APCMP)="N/A" ;excluded
.W ! S DIR(0)="Y",DIR("A")="Does "_$E($P(^VA(200,APCMP,0),U,1),1,25)_" attest to this",DIR("B")="YES" KILL DA D ^DIR KILL DIR
.I $D(DIRUT) S APCMQ=1 Q
.S APCMATTE(APCMX,APCMP)=$S(Y:"Yes",1:"No")
Q
SPECREG ;EP
Q
IMMREGH ;EP - ask additional exclusion questions for IMM REG
S APCMQ=0
S APCMY=$O(^APCM25OB("B",APCMX,0))
Q:'$D(APCMIND(APCMY)) ;measure not being run
;display exclusion text/narrative
I $O(^APCM25OB(APCMY,19,0)) S N=19 W !! D ET
;ask individually
S APCMP=APCMFAC D
.S APCMZ=0 F S APCMZ=$O(^APCM25OB(APCMY,24,APCMZ)) Q:APCMZ'=+APCMZ W !,^APCM25OB(APCMY,24,APCMZ,0)
.W ! S DIR(0)="Y",DIR("A")="Does "_$E($P(^DIC(4,APCMP,0),U,1),1,25)_" meet this exclusion"
.S DIR("B")="YES"
.I $P(^APCM25OB(APCMY,0),U,1)="S2.025.H.1" S DIR("B")="NO"
.KILL DA D ^DIR KILL DIR
.I $D(DIRUT) S APCMQ=1 Q
.S APCMATTE(APCMX,APCMP)=$S(Y:"N/A",1:"")
IMMH2 ;display exclusion text/narrative
S APCMP=0,E=0,T=0 F S APCMP=$O(APCMATTE(APCMX,APCMP)) Q:APCMP=""!(APCMQ) D
.S T=T+1
.I APCMATTE(APCMX,APCMP)="N/A" S E=E+1 ;excluded so don't ask
I E=T Q ;all excluded
I $O(^APCM25OB(APCMY,31,0)) S N=31 W !! D ET
;
IMMINDH2 ;ask individually
S APCMP=APCMFAC D
.Q:APCMATTE(APCMX,APCMP)="N/A" ;excluded
.W ! S DIR(0)="Y",DIR("A")="Does "_$E($P(^DIC(4,APCMP,0),U,1),1,25)_" attest to this",DIR("B")="YES" KILL DA D ^DIR KILL DIR
.I $D(DIRUT) S APCMQ=1 Q
.S APCMATTE(APCMX,APCMP)=$S(Y:"Yes",1:"No")
Q
;
C(X,X2,X3) ;
S X3=""
I X'?.N Q $$LBLK^APCLUTL(X,7)
D COMMA^%DTC
S X=$$STRIP^XLFSTR(X," ")
Q $$LBLK^APCLUTL(X,7)
MEDREC ;EP
I APCMPTYP="P" D
.F X=1,2 D
..S M=APCMIC
..I X=1 D W^APCM2AEH(" 7. Medication Rec 2015",0,2,APCMPTYP)
..I X=2 D W^APCM2AEH(" Medication Rec 2016",0,1,APCMPTYP)
..;TARGET
..S T=">50%"
..D W^APCM2AEH(T,0,0,APCMPTYP,,35)
..;RATE
..D SETND^APCM2AER
..D WRATE^APCM2AER
..;NUM/DEN
..D WNUMDEN^APCM2AER
..;EXCL
..D WEXCL^APCM2AER
..;ALT EXCL
..S I=$P(^APCM25OB(APCMIC,0),U,1)
..I X=1 D W^APCM2AEH($G(APCMATTE(I,APCMPROV)),0,0,APCMPTYP,,77)
..I X=2 D W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
I APCMPTYP="D" D
.F X=1,2 D
..S M=APCMIC
..I X=1 S APCMX="Medication Rec 2015"
..I X=2 S APCMX="Medication Rec 2016"
..;TARGET
..S T=">50%"
..S $P(APCMX,U,2)=T
..;RATE
..D SETND^APCM2AER
..D WRATE^APCM2AER
..;NUM/DEN
..D WNUMDEN^APCM2AER
..;EXCL
..D WEXCL^APCM2AER
..;ALT EXCL
..S I=$P(^APCM25OB(APCMIC,0),U,1)
..I X=1 S $P(APCMX,U,7)=$G(APCMATTE(I,APCMPROV))
..I X=2 S $P(APCMX,U,7)="N/A"
..I X=1 D W^APCM25EH(APCMX,0,2,APCMPTYP,1)
..I X=2 D W^APCM25EH(APCMX,0,1,APCMPTYP,1)
Q
PEA ;EP
I APCMPTYP="P" D
.S M=APCMIC
.D W^APCM2AEH(" 8. Patient Elec Access",0,2,APCMPTYP)
.;TARGET
.S T=">50%"
.D W^APCM2AEH(T,0,0,APCMPTYP,,35)
.;RATE
.D SETND^APCM2AER
.D WRATE^APCM2AER
.;NUM/DEN
.D WNUMDEN^APCM2AER
.;EXCL
.D WEXCL^APCM2AER
.;ALT EXCL
.D W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
I APCMPTYP="D" D
.S M=APCMIC
.S APCMX="Patient Elec Access"
.;TARGET
.S T=">50%"
.S $P(APCMX,U,2)=T
.;RATE
.D SETND^APCM2AER
.D WRATE^APCM2AER
.;NUM/DEN
.D WNUMDEN^APCM2AER
.;EXCL
.D WEXCL^APCM2AER
.;ALT EXCL
.S $P(APCMX,U,7)="N/A"
.D W^APCM25EH(APCMX,0,2,APCMPTYP,1)
;VDT
I APCMPTYP="P" D
.F X=1,2 D
..S M=$O(^APCM25OB("B","S2.020.EP.1",0))
..I X=1 D W^APCM2AEH(" VDT 2015",0,1,APCMPTYP)
..I X=2 D W^APCM2AEH(" VDT 2016",0,1,APCMPTYP)
..;TARGET
..S T=">=1"
..D W^APCM2AEH(T,0,0,APCMPTYP,,35)
..;RATE
..D SETND^APCM2AER
..D W^APCM2AEH($$C^APCM2AER(APCMCYN,0,9),0,0,APCMPTYP,,40)
..;NUM/DEN
..D WNUMDEN^APCM2AER
..;EXCL
..D WEXCL^APCM2AER
..;ALT EXCL
..S I=$O(^APCM25OB("B","S2.020.EP,1",0))
..I X=1 D W^APCM2AEH($P($G(APCMATTE("S2.020.EP.1",APCMPROV)),U,2),0,0,APCMPTYP,,77)
..I X=2 D W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
.I $G(APCMVDTE) D
..D W^APCM25EH("Note: PHR Server access failed during report generation "_$P(APCMSEME,U,2)_" which may",0,1,APCMPTYP,,0)
..D W^APCM25EH("have affected the numerator results for this measure. Contact your IT staff to",0,1,APCMPTYP,,0)
..D W^APCM25EH("resolve the error and then regenerate the report again to obtain accurate",0,1,APCMPTYP,,0)
..D W^APCM25EH("results.",0,1,APCMPTYP,,0)
I APCMPTYP="D" D
.F X=1,2 D
..S M=APCMIC
..I X=1 S APCMX="VDT 2015"
..I X=2 S APCMX="VDT 2016"
..;TARGET
..S T=">=1"
..S $P(APCMX,U,2)=T
..;RATE
..D SETND^APCM2AER
..S $P(APCMX,U,3)=APCMCYN
..;NUM/DEN
..D WNUMDEN^APCM2AER
..;EXCL
..D WEXCL^APCM2AER
..;ALT EXCL
..S I=$P(^APCM25OB(APCMIC,0),U,1)
..I X=1 S $P(APCMX,U,7)=$P($G(APCMATTE("S2.020.EP.1",APCMPROV)),U,2)
..I X=2 S $P(APCMX,U,7)="N/A"
..D W^APCM25EH(APCMX,0,1,APCMPTYP,1)
.I $G(APCMVDTE) D
..D W^APCM25EH("NOTE: Access to the PHR server to obtain VDT data failed "_$P(APCMVDTE,U,2),0,1,APCMPTYP,1)
..D W^APCM25EH("for at least one patient. Generate the report for this measure again to ",0,1,APCMPTYP,1)
..D W^APCM25EH("obtain accurate results.",0,1,APCMPTYP,1)
Q
SEM ;EP
I APCMPTYP="P" D
.F X=1,2 D
..S M=APCMIC
..I X=1 D W^APCM2AEH(" 9. Secure Messaging 2015+",0,2,APCMPTYP)
..I X=2 D W^APCM2AEH(" Secure Messaging 2016",0,1,APCMPTYP)
..;TARGET
..I X=2 S T=">=1"
..I X=1 S T="Yes"
..D W^APCM2AEH(T,0,0,APCMPTYP,,35)
..;RATE
..I X=1 D SETND^APCM2AER
..I X=1 D WRATE^APCM2AER
..I X=2 S (APCMCYN,APCMCYD,APCMCYP)=0
..I X=2 D W^APCM2AEH($$C(APCMCYP,0,9),0,0,APCMPTYP,,40)
..;NUM/DEN
..I X=1 D WNUMDEN^APCM2AER
..I X=2 D W^APCM2AEH($$C(APCMCYN,0,9),0,0,APCMPTYP,,51),W^APCM2AEH($$C(APCMCYD,0,9),0,0,APCMPTYP,,61)
..;EXCL
..D WEXCL^APCM2AER
..;ALT EXCL
..S I=$P(^APCM25OB(APCMIC,0),U,1)
..I X=1 D W^APCM2AEH($P($G(APCMATTE(I,APCMPROV)),U,3),0,0,APCMPTYP,,77)
..I X=2 D W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
.I $G(APCMSEME) D
..D W^APCM25EH("Note: PHR Server access failed during report generation "_$P(APCMSEME,U,2)_" which may",0,1,APCMPTYP,,0)
..D W^APCM25EH("have affected the numerator results for this measure. Contact your IT staff to",0,1,APCMPTYP,,0)
..D W^APCM25EH("resolve the error and then regenerate the report again to obtain accurate",0,1,APCMPTYP,,0)
..D W^APCM25EH("results.",0,1,APCMPTYP,,0)
I APCMPTYP="D" D
.F X=1,2 D
..S M=APCMIC
..I X=1 S APCMX="Secure Messaging 2015+"
..I X=2 S APCMX="Secure Messaging 2016"
..;TARGET
..I X=2 S T=">=1"
..I X=1 S T="Yes"
..S $P(APCMX,U,2)=T
..;RATE
..I X=1 D SETND^APCM2AER
..I X=1 D WRATE^APCM2AER
..;NUM/DEN
..I X=1 D WNUMDEN^APCM2AER
..I X=2 S $P(APCMX,U,3)=0,$P(APCMX,U,4)=0,$P(APCMX,U,5)=0
..;EXCL
..D WEXCL^APCM2AER
..;ALT EXCL
..S I=$P(^APCM25OB(APCMIC,0),U,1)
..I X=1 S $P(APCMX,U,7)=$P($G(APCMATTE(I,APCMPROV)),U,2)
..I X=2 S $P(APCMX,U,7)="N/A"
..I X=2 D W^APCM25EH(APCMX,0,1,APCMPTYP,1)
..I X=1 D W^APCM25EH(APCMX,0,2,APCMPTYP,1)
.Q:'$G(APCMSEME)
.D W^APCM25EH("Note: PHR Server access failed during report generation "_$P(APCMSEME,U,2)_" which may",0,1,APCMPTYP,1)
.D W^APCM25EH("have affected the numerator results for this measure. Contact your IT staff to",0,1,APCMPTYP,1)
.D W^APCM25EH("resolve the error and then regenerate the report again to obtain accurate results.",0,1,APCMPTYP,1)
Q
IMM ;EP
I APCMPTYP="P" D
.S M=APCMIC
.D W^APCM2AEH("10. Public Health",0,2,APCMPTYP)
.D W^APCM2AEH(" Immunization Regis*+",0,1,APCMPTYP)
.;TARGET
.S T="Yes"
.D W^APCM2AEH(T,0,0,APCMPTYP,,35)
.;RATE
.D SETND^APCM2AER
.D WRATE^APCM2AER
.;NUM/DEN
.D WNUMDEN^APCM2AER
.;EXCL
.D WEXCL^APCM2AER
.;ALT EXCL
.D W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
I APCMPTYP="D" D
.S M=APCMIC
.S APCMX="Public Health" D W^APCM25EH(APCMX,0,2,APCMPTYP,1)
.S APCMX="Immunization Regis*+"
.;TARGET
.S T="Yes"
.S $P(APCMX,U,2)=T
.;RATE
.D SETND^APCM2AER
.D WRATE^APCM2AER
.;NUM/DEN
.D WNUMDEN^APCM2AER
.;EXCL
.D WEXCL^APCM2AER
.;ALT EXCL
.S $P(APCMX,U,7)="N/A"
.D W^APCM25EH(APCMX,0,1,APCMPTYP,1)
Q
SYN ;EP
I APCMPTYP="P" D
.S M=APCMIC
.;D W^APCM2AEH(" 9. Public Health",0,2,APCMPTYP)
.D W^APCM2AEH(" Syndromic Surveil*+",0,1,APCMPTYP)
.;TARGET
.S T="Yes"
.D W^APCM2AEH(T,0,0,APCMPTYP,,35)
.;RATE
.D SETND^APCM2AER
.D WRATE^APCM2AER
.;NUM/DEN
.D WNUMDEN^APCM2AER
.;EXCL
.D WEXCL^APCM2AER
.;ALT EXCL
.D W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
I APCMPTYP="D" D
.S M=APCMIC
.;S APCMX="Public Health" D W^APCM25EH(APCMX,0,2,APCMPTYP,1)
.S APCMX="Syndromic Surveil*+"
.;TARGET
.S T="Yes"
.S $P(APCMX,U,2)=T
.;RATE
.D SETND^APCM2AER
.D WRATE^APCM2AER
.;NUM/DEN
.D WNUMDEN^APCM2AER
.;EXCL
.D WEXCL^APCM2AER
.;ALT EXCL
.S $P(APCMX,U,7)="N/A"
.D W^APCM25EH(APCMX,0,1,APCMPTYP,1)
Q
SR ;EP
I APCMPTYP="P" D
.S M=APCMIC
.;D W^APCM2AEH(" 9. Public Health",0,2,APCMPTYP)
.D W^APCM2AEH(" Rept to Special Reg*+",0,1,APCMPTYP)
.;TARGET
.S T="Yes"
.D W^APCM2AEH(T,0,0,APCMPTYP,,35)
.;RATE
.D SETND^APCM2AER
.D WRATE^APCM2AER
.;NUM/DEN
.D WNUMDEN^APCM2AER
.;EXCL
.D WEXCL^APCM2AER
.;ALT EXCL
.D W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
I APCMPTYP="D" D
.S M=APCMIC
.;S APCMX="Public Health" D W^APCM25EH(APCMX,0,2,APCMPTYP,1)
.S APCMX="Rept to Special Reg*+"
.;TARGET
.S T="Yes"
.S $P(APCMX,U,2)=T
.;RATE
.D SETND^APCM2AER
.D WRATE^APCM2AER
.;NUM/DEN
.D WNUMDEN^APCM2AER
.;EXCL
.D WEXCL^APCM2AER
.;ALT EXCL
.S $P(APCMX,U,7)="N/A"
.D W^APCM25EH(APCMX,0,1,APCMPTYP,1)
Q
APCM2AEA ; IHS/CMI/LAB - IHS MU ; 29 Jun 2016 5:29 PM
+1 ;;1.0;MU PERFORMANCE REPORTS;**7,8**;MAR 26, 2012;Build 22
+2 ;
ET ;
+1 WRITE !
SET APCMZ=0
FOR
SET APCMZ=$ORDER(^APCM25OB(APCMY,N,APCMZ))
IF APCMZ'=+APCMZ
QUIT
WRITE !,^APCM25OB(APCMY,N,APCMZ,0)
+2 WRITE !
+3 QUIT
SS ;EP
+1 QUIT
SSH ;EP
+1 QUIT
IMMREG ;EP - ask additional exclusion questions for IMM REG
+1 SET APCMQ=0
+2 SET APCMY=$ORDER(^APCM25OB("B",APCMX,0))
+3 ;measure not being run
IF '$DATA(APCMIND(APCMY))
QUIT
+4 ;display exclusion text/narrative
+5 IF $ORDER(^APCM25OB(APCMY,APCMQU,0))
SET N=APCMQU
WRITE !!
DO ET
+6 IF APCMPLTY="SEL"!(APCMPLTY="TAX")
Begin DoDot:1
+7 WRITE !!,"Do all selected providers included in this report meet this"
+8 SET DIR(0)="Y"
SET DIR("A")="exclusion"
SET DIR("B")="YES"
KILL DA
DO ^DIR
KILL DIR
+9 IF $DATA(DIRUT)
SET APCMQ=1
QUIT
+10 IF 'Y
SET APCMIND=1
QUIT
+11 SET APCMP=0
FOR
SET APCMP=$ORDER(APCMPRV(APCMP))
IF APCMP'=+APCMP
QUIT
SET APCMATTE(APCMX,APCMP)="N/A"
End DoDot:1
IF APCMIND=1
GOTO IMMIND
QUIT
IMMIND ;ask individually
+1 SET APCMP=0
FOR
SET APCMP=$ORDER(APCMPRV(APCMP))
IF APCMP'=+APCMP!(APCMQ)
QUIT
Begin DoDot:1
+2 SET APCMZ=0
FOR
SET APCMZ=$ORDER(^APCM25OB(APCMY,24,APCMZ))
IF APCMZ'=+APCMZ
QUIT
WRITE !,^APCM25OB(APCMY,24,APCMZ,0)
+3 WRITE !
SET DIR(0)="Y"
SET DIR("A")="Does "_$EXTRACT($PIECE(^VA(200,APCMP,0),U,1),1,25)_" meet this exclusion"
SET DIR("B")="YES"
KILL DA
DO ^DIR
KILL DIR
+4 IF $DATA(DIRUT)
SET APCMQ=1
QUIT
+5 SET APCMATTE(APCMX,APCMP)=$SELECT(Y:"N/A",1:"")
End DoDot:1
IMM2 ;display exclusion text/narrative
+1 SET APCMP=0
SET E=0
SET T=0
FOR
SET APCMP=$ORDER(APCMATTE(APCMX,APCMP))
IF APCMP=""!(APCMQ)
QUIT
Begin DoDot:1
+2 SET T=T+1
+3 ;excluded so don't ask
IF APCMATTE(APCMX,APCMP)="N/A"
SET E=E+1
End DoDot:1
+4 ;all excluded
IF E=T
QUIT
+5 IF $ORDER(^APCM25OB(APCMY,31,0))
SET N=31
WRITE !!
DO ET
+6 ;
IMMIND2 ;ask individually
+1 SET APCMP=0
FOR
SET APCMP=$ORDER(APCMPRV(APCMP))
IF APCMP'=+APCMP!(APCMQ)
QUIT
Begin DoDot:1
+2 ;excluded
IF APCMATTE(APCMX,APCMP)="N/A"
QUIT
+3 WRITE !
SET DIR(0)="Y"
SET DIR("A")="Does "_$EXTRACT($PIECE(^VA(200,APCMP,0),U,1),1,25)_" attest to this"
SET DIR("B")="YES"
KILL DA
DO ^DIR
KILL DIR
+4 IF $DATA(DIRUT)
SET APCMQ=1
QUIT
+5 SET APCMATTE(APCMX,APCMP)=$SELECT(Y:"Yes",1:"No")
End DoDot:1
+6 QUIT
SPECREG ;EP
+1 QUIT
IMMREGH ;EP - ask additional exclusion questions for IMM REG
+1 SET APCMQ=0
+2 SET APCMY=$ORDER(^APCM25OB("B",APCMX,0))
+3 ;measure not being run
IF '$DATA(APCMIND(APCMY))
QUIT
+4 ;display exclusion text/narrative
+5 IF $ORDER(^APCM25OB(APCMY,19,0))
SET N=19
WRITE !!
DO ET
+6 ;ask individually
+7 SET APCMP=APCMFAC
Begin DoDot:1
+8 SET APCMZ=0
FOR
SET APCMZ=$ORDER(^APCM25OB(APCMY,24,APCMZ))
IF APCMZ'=+APCMZ
QUIT
WRITE !,^APCM25OB(APCMY,24,APCMZ,0)
+9 WRITE !
SET DIR(0)="Y"
SET DIR("A")="Does "_$EXTRACT($PIECE(^DIC(4,APCMP,0),U,1),1,25)_" meet this exclusion"
+10 SET DIR("B")="YES"
+11 IF $PIECE(^APCM25OB(APCMY,0),U,1)="S2.025.H.1"
SET DIR("B")="NO"
+12 KILL DA
DO ^DIR
KILL DIR
+13 IF $DATA(DIRUT)
SET APCMQ=1
QUIT
+14 SET APCMATTE(APCMX,APCMP)=$SELECT(Y:"N/A",1:"")
End DoDot:1
IMMH2 ;display exclusion text/narrative
+1 SET APCMP=0
SET E=0
SET T=0
FOR
SET APCMP=$ORDER(APCMATTE(APCMX,APCMP))
IF APCMP=""!(APCMQ)
QUIT
Begin DoDot:1
+2 SET T=T+1
+3 ;excluded so don't ask
IF APCMATTE(APCMX,APCMP)="N/A"
SET E=E+1
End DoDot:1
+4 ;all excluded
IF E=T
QUIT
+5 IF $ORDER(^APCM25OB(APCMY,31,0))
SET N=31
WRITE !!
DO ET
+6 ;
IMMINDH2 ;ask individually
+1 SET APCMP=APCMFAC
Begin DoDot:1
+2 ;excluded
IF APCMATTE(APCMX,APCMP)="N/A"
QUIT
+3 WRITE !
SET DIR(0)="Y"
SET DIR("A")="Does "_$EXTRACT($PIECE(^DIC(4,APCMP,0),U,1),1,25)_" attest to this"
SET DIR("B")="YES"
KILL DA
DO ^DIR
KILL DIR
+4 IF $DATA(DIRUT)
SET APCMQ=1
QUIT
+5 SET APCMATTE(APCMX,APCMP)=$SELECT(Y:"Yes",1:"No")
End DoDot:1
+6 QUIT
+7 ;
C(X,X2,X3) ;
+1 SET X3=""
+2 IF X'?.N
QUIT $$LBLK^APCLUTL(X,7)
+3 DO COMMA^%DTC
+4 SET X=$$STRIP^XLFSTR(X," ")
+5 QUIT $$LBLK^APCLUTL(X,7)
MEDREC ;EP
+1 IF APCMPTYP="P"
Begin DoDot:1
+2 FOR X=1,2
Begin DoDot:2
+3 SET M=APCMIC
+4 IF X=1
DO W^APCM2AEH(" 7. Medication Rec 2015",0,2,APCMPTYP)
+5 IF X=2
DO W^APCM2AEH(" Medication Rec 2016",0,1,APCMPTYP)
+6 ;TARGET
+7 SET T=">50%"
+8 DO W^APCM2AEH(T,0,0,APCMPTYP,,35)
+9 ;RATE
+10 DO SETND^APCM2AER
+11 DO WRATE^APCM2AER
+12 ;NUM/DEN
+13 DO WNUMDEN^APCM2AER
+14 ;EXCL
+15 DO WEXCL^APCM2AER
+16 ;ALT EXCL
+17 SET I=$PIECE(^APCM25OB(APCMIC,0),U,1)
+18 IF X=1
DO W^APCM2AEH($GET(APCMATTE(I,APCMPROV)),0,0,APCMPTYP,,77)
+19 IF X=2
DO W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
End DoDot:2
End DoDot:1
+20 IF APCMPTYP="D"
Begin DoDot:1
+21 FOR X=1,2
Begin DoDot:2
+22 SET M=APCMIC
+23 IF X=1
SET APCMX="Medication Rec 2015"
+24 IF X=2
SET APCMX="Medication Rec 2016"
+25 ;TARGET
+26 SET T=">50%"
+27 SET $PIECE(APCMX,U,2)=T
+28 ;RATE
+29 DO SETND^APCM2AER
+30 DO WRATE^APCM2AER
+31 ;NUM/DEN
+32 DO WNUMDEN^APCM2AER
+33 ;EXCL
+34 DO WEXCL^APCM2AER
+35 ;ALT EXCL
+36 SET I=$PIECE(^APCM25OB(APCMIC,0),U,1)
+37 IF X=1
SET $PIECE(APCMX,U,7)=$GET(APCMATTE(I,APCMPROV))
+38 IF X=2
SET $PIECE(APCMX,U,7)="N/A"
+39 IF X=1
DO W^APCM25EH(APCMX,0,2,APCMPTYP,1)
+40 IF X=2
DO W^APCM25EH(APCMX,0,1,APCMPTYP,1)
End DoDot:2
End DoDot:1
+41 QUIT
PEA ;EP
+1 IF APCMPTYP="P"
Begin DoDot:1
+2 SET M=APCMIC
+3 DO W^APCM2AEH(" 8. Patient Elec Access",0,2,APCMPTYP)
+4 ;TARGET
+5 SET T=">50%"
+6 DO W^APCM2AEH(T,0,0,APCMPTYP,,35)
+7 ;RATE
+8 DO SETND^APCM2AER
+9 DO WRATE^APCM2AER
+10 ;NUM/DEN
+11 DO WNUMDEN^APCM2AER
+12 ;EXCL
+13 DO WEXCL^APCM2AER
+14 ;ALT EXCL
+15 DO W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
End DoDot:1
+16 IF APCMPTYP="D"
Begin DoDot:1
+17 SET M=APCMIC
+18 SET APCMX="Patient Elec Access"
+19 ;TARGET
+20 SET T=">50%"
+21 SET $PIECE(APCMX,U,2)=T
+22 ;RATE
+23 DO SETND^APCM2AER
+24 DO WRATE^APCM2AER
+25 ;NUM/DEN
+26 DO WNUMDEN^APCM2AER
+27 ;EXCL
+28 DO WEXCL^APCM2AER
+29 ;ALT EXCL
+30 SET $PIECE(APCMX,U,7)="N/A"
+31 DO W^APCM25EH(APCMX,0,2,APCMPTYP,1)
End DoDot:1
+32 ;VDT
+33 IF APCMPTYP="P"
Begin DoDot:1
+34 FOR X=1,2
Begin DoDot:2
+35 SET M=$ORDER(^APCM25OB("B","S2.020.EP.1",0))
+36 IF X=1
DO W^APCM2AEH(" VDT 2015",0,1,APCMPTYP)
+37 IF X=2
DO W^APCM2AEH(" VDT 2016",0,1,APCMPTYP)
+38 ;TARGET
+39 SET T=">=1"
+40 DO W^APCM2AEH(T,0,0,APCMPTYP,,35)
+41 ;RATE
+42 DO SETND^APCM2AER
+43 DO W^APCM2AEH($$C^APCM2AER(APCMCYN,0,9),0,0,APCMPTYP,,40)
+44 ;NUM/DEN
+45 DO WNUMDEN^APCM2AER
+46 ;EXCL
+47 DO WEXCL^APCM2AER
+48 ;ALT EXCL
+49 SET I=$ORDER(^APCM25OB("B","S2.020.EP,1",0))
+50 IF X=1
DO W^APCM2AEH($PIECE($GET(APCMATTE("S2.020.EP.1",APCMPROV)),U,2),0,0,APCMPTYP,,77)
+51 IF X=2
DO W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
End DoDot:2
+52 IF $GET(APCMVDTE)
Begin DoDot:2
+53 DO W^APCM25EH("Note: PHR Server access failed during report generation "_$PIECE(APCMSEME,U,2)_" which may",0,1,APCMPTYP,,0)
+54 DO W^APCM25EH("have affected the numerator results for this measure. Contact your IT staff to",0,1,APCMPTYP,,0)
+55 DO W^APCM25EH("resolve the error and then regenerate the report again to obtain accurate",0,1,APCMPTYP,,0)
+56 DO W^APCM25EH("results.",0,1,APCMPTYP,,0)
End DoDot:2
End DoDot:1
+57 IF APCMPTYP="D"
Begin DoDot:1
+58 FOR X=1,2
Begin DoDot:2
+59 SET M=APCMIC
+60 IF X=1
SET APCMX="VDT 2015"
+61 IF X=2
SET APCMX="VDT 2016"
+62 ;TARGET
+63 SET T=">=1"
+64 SET $PIECE(APCMX,U,2)=T
+65 ;RATE
+66 DO SETND^APCM2AER
+67 SET $PIECE(APCMX,U,3)=APCMCYN
+68 ;NUM/DEN
+69 DO WNUMDEN^APCM2AER
+70 ;EXCL
+71 DO WEXCL^APCM2AER
+72 ;ALT EXCL
+73 SET I=$PIECE(^APCM25OB(APCMIC,0),U,1)
+74 IF X=1
SET $PIECE(APCMX,U,7)=$PIECE($GET(APCMATTE("S2.020.EP.1",APCMPROV)),U,2)
+75 IF X=2
SET $PIECE(APCMX,U,7)="N/A"
+76 DO W^APCM25EH(APCMX,0,1,APCMPTYP,1)
End DoDot:2
+77 IF $GET(APCMVDTE)
Begin DoDot:2
+78 DO W^APCM25EH("NOTE: Access to the PHR server to obtain VDT data failed "_$PIECE(APCMVDTE,U,2),0,1,APCMPTYP,1)
+79 DO W^APCM25EH("for at least one patient. Generate the report for this measure again to ",0,1,APCMPTYP,1)
+80 DO W^APCM25EH("obtain accurate results.",0,1,APCMPTYP,1)
End DoDot:2
End DoDot:1
+81 QUIT
SEM ;EP
+1 IF APCMPTYP="P"
Begin DoDot:1
+2 FOR X=1,2
Begin DoDot:2
+3 SET M=APCMIC
+4 IF X=1
DO W^APCM2AEH(" 9. Secure Messaging 2015+",0,2,APCMPTYP)
+5 IF X=2
DO W^APCM2AEH(" Secure Messaging 2016",0,1,APCMPTYP)
+6 ;TARGET
+7 IF X=2
SET T=">=1"
+8 IF X=1
SET T="Yes"
+9 DO W^APCM2AEH(T,0,0,APCMPTYP,,35)
+10 ;RATE
+11 IF X=1
DO SETND^APCM2AER
+12 IF X=1
DO WRATE^APCM2AER
+13 IF X=2
SET (APCMCYN,APCMCYD,APCMCYP)=0
+14 IF X=2
DO W^APCM2AEH($$C(APCMCYP,0,9),0,0,APCMPTYP,,40)
+15 ;NUM/DEN
+16 IF X=1
DO WNUMDEN^APCM2AER
+17 IF X=2
DO W^APCM2AEH($$C(APCMCYN,0,9),0,0,APCMPTYP,,51)
DO W^APCM2AEH($$C(APCMCYD,0,9),0,0,APCMPTYP,,61)
+18 ;EXCL
+19 DO WEXCL^APCM2AER
+20 ;ALT EXCL
+21 SET I=$PIECE(^APCM25OB(APCMIC,0),U,1)
+22 IF X=1
DO W^APCM2AEH($PIECE($GET(APCMATTE(I,APCMPROV)),U,3),0,0,APCMPTYP,,77)
+23 IF X=2
DO W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
End DoDot:2
+24 IF $GET(APCMSEME)
Begin DoDot:2
+25 DO W^APCM25EH("Note: PHR Server access failed during report generation "_$PIECE(APCMSEME,U,2)_" which may",0,1,APCMPTYP,,0)
+26 DO W^APCM25EH("have affected the numerator results for this measure. Contact your IT staff to",0,1,APCMPTYP,,0)
+27 DO W^APCM25EH("resolve the error and then regenerate the report again to obtain accurate",0,1,APCMPTYP,,0)
+28 DO W^APCM25EH("results.",0,1,APCMPTYP,,0)
End DoDot:2
End DoDot:1
+29 IF APCMPTYP="D"
Begin DoDot:1
+30 FOR X=1,2
Begin DoDot:2
+31 SET M=APCMIC
+32 IF X=1
SET APCMX="Secure Messaging 2015+"
+33 IF X=2
SET APCMX="Secure Messaging 2016"
+34 ;TARGET
+35 IF X=2
SET T=">=1"
+36 IF X=1
SET T="Yes"
+37 SET $PIECE(APCMX,U,2)=T
+38 ;RATE
+39 IF X=1
DO SETND^APCM2AER
+40 IF X=1
DO WRATE^APCM2AER
+41 ;NUM/DEN
+42 IF X=1
DO WNUMDEN^APCM2AER
+43 IF X=2
SET $PIECE(APCMX,U,3)=0
SET $PIECE(APCMX,U,4)=0
SET $PIECE(APCMX,U,5)=0
+44 ;EXCL
+45 DO WEXCL^APCM2AER
+46 ;ALT EXCL
+47 SET I=$PIECE(^APCM25OB(APCMIC,0),U,1)
+48 IF X=1
SET $PIECE(APCMX,U,7)=$PIECE($GET(APCMATTE(I,APCMPROV)),U,2)
+49 IF X=2
SET $PIECE(APCMX,U,7)="N/A"
+50 IF X=2
DO W^APCM25EH(APCMX,0,1,APCMPTYP,1)
+51 IF X=1
DO W^APCM25EH(APCMX,0,2,APCMPTYP,1)
End DoDot:2
+52 IF '$GET(APCMSEME)
QUIT
+53 DO W^APCM25EH("Note: PHR Server access failed during report generation "_$PIECE(APCMSEME,U,2)_" which may",0,1,APCMPTYP,1)
+54 DO W^APCM25EH("have affected the numerator results for this measure. Contact your IT staff to",0,1,APCMPTYP,1)
+55 DO W^APCM25EH("resolve the error and then regenerate the report again to obtain accurate results.",0,1,APCMPTYP,1)
End DoDot:1
+56 QUIT
IMM ;EP
+1 IF APCMPTYP="P"
Begin DoDot:1
+2 SET M=APCMIC
+3 DO W^APCM2AEH("10. Public Health",0,2,APCMPTYP)
+4 DO W^APCM2AEH(" Immunization Regis*+",0,1,APCMPTYP)
+5 ;TARGET
+6 SET T="Yes"
+7 DO W^APCM2AEH(T,0,0,APCMPTYP,,35)
+8 ;RATE
+9 DO SETND^APCM2AER
+10 DO WRATE^APCM2AER
+11 ;NUM/DEN
+12 DO WNUMDEN^APCM2AER
+13 ;EXCL
+14 DO WEXCL^APCM2AER
+15 ;ALT EXCL
+16 DO W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
End DoDot:1
+17 IF APCMPTYP="D"
Begin DoDot:1
+18 SET M=APCMIC
+19 SET APCMX="Public Health"
DO W^APCM25EH(APCMX,0,2,APCMPTYP,1)
+20 SET APCMX="Immunization Regis*+"
+21 ;TARGET
+22 SET T="Yes"
+23 SET $PIECE(APCMX,U,2)=T
+24 ;RATE
+25 DO SETND^APCM2AER
+26 DO WRATE^APCM2AER
+27 ;NUM/DEN
+28 DO WNUMDEN^APCM2AER
+29 ;EXCL
+30 DO WEXCL^APCM2AER
+31 ;ALT EXCL
+32 SET $PIECE(APCMX,U,7)="N/A"
+33 DO W^APCM25EH(APCMX,0,1,APCMPTYP,1)
End DoDot:1
+34 QUIT
SYN ;EP
+1 IF APCMPTYP="P"
Begin DoDot:1
+2 SET M=APCMIC
+3 ;D W^APCM2AEH(" 9. Public Health",0,2,APCMPTYP)
+4 DO W^APCM2AEH(" Syndromic Surveil*+",0,1,APCMPTYP)
+5 ;TARGET
+6 SET T="Yes"
+7 DO W^APCM2AEH(T,0,0,APCMPTYP,,35)
+8 ;RATE
+9 DO SETND^APCM2AER
+10 DO WRATE^APCM2AER
+11 ;NUM/DEN
+12 DO WNUMDEN^APCM2AER
+13 ;EXCL
+14 DO WEXCL^APCM2AER
+15 ;ALT EXCL
+16 DO W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
End DoDot:1
+17 IF APCMPTYP="D"
Begin DoDot:1
+18 SET M=APCMIC
+19 ;S APCMX="Public Health" D W^APCM25EH(APCMX,0,2,APCMPTYP,1)
+20 SET APCMX="Syndromic Surveil*+"
+21 ;TARGET
+22 SET T="Yes"
+23 SET $PIECE(APCMX,U,2)=T
+24 ;RATE
+25 DO SETND^APCM2AER
+26 DO WRATE^APCM2AER
+27 ;NUM/DEN
+28 DO WNUMDEN^APCM2AER
+29 ;EXCL
+30 DO WEXCL^APCM2AER
+31 ;ALT EXCL
+32 SET $PIECE(APCMX,U,7)="N/A"
+33 DO W^APCM25EH(APCMX,0,1,APCMPTYP,1)
End DoDot:1
+34 QUIT
SR ;EP
+1 IF APCMPTYP="P"
Begin DoDot:1
+2 SET M=APCMIC
+3 ;D W^APCM2AEH(" 9. Public Health",0,2,APCMPTYP)
+4 DO W^APCM2AEH(" Rept to Special Reg*+",0,1,APCMPTYP)
+5 ;TARGET
+6 SET T="Yes"
+7 DO W^APCM2AEH(T,0,0,APCMPTYP,,35)
+8 ;RATE
+9 DO SETND^APCM2AER
+10 DO WRATE^APCM2AER
+11 ;NUM/DEN
+12 DO WNUMDEN^APCM2AER
+13 ;EXCL
+14 DO WEXCL^APCM2AER
+15 ;ALT EXCL
+16 DO W^APCM2AEH("N/A",0,0,APCMPTYP,,77)
End DoDot:1
+17 IF APCMPTYP="D"
Begin DoDot:1
+18 SET M=APCMIC
+19 ;S APCMX="Public Health" D W^APCM25EH(APCMX,0,2,APCMPTYP,1)
+20 SET APCMX="Rept to Special Reg*+"
+21 ;TARGET
+22 SET T="Yes"
+23 SET $PIECE(APCMX,U,2)=T
+24 ;RATE
+25 DO SETND^APCM2AER
+26 DO WRATE^APCM2AER
+27 ;NUM/DEN
+28 DO WNUMDEN^APCM2AER
+29 ;EXCL
+30 DO WEXCL^APCM2AER
+31 ;ALT EXCL
+32 SET $PIECE(APCMX,U,7)="N/A"
+33 DO W^APCM25EH(APCMX,0,1,APCMPTYP,1)
End DoDot:1
+34 QUIT
