APCM25EA.m

APCM25EA ; IHS/CMI/LAB - IHS MU ;

 ;;1.0;MU PERFORMANCE REPORTS;**7,8,10**;MAR 26, 2012;Build 31

 ;

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,19,0)) S N=19 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)

SEM ;EP - PRINT OUT SEM

 ;W !!,"measure being worked on...will let you know when it is done." Q

 ;write label

 I APCMPTYP="P" D

 .;F X=1,2,3,4 D

 .S Y=$E(APCMPER,1,3)

 .S X=$S(Y=315:1,Y=316:2,Y=317:3,Y=318:4,1:9)

 .D

 ..S M=APCMIC

 ..I X=1 D W^APCM2AEH(" 9. Secure Messaging 2015+",0,2,APCMPTYP)

 ..I X>1 D W^APCM2AEH(" 9. Secure Messaging",0,2,APCMPTYP)

 ..;TARGET

 ..I X=2 S T=">=1"

 ..I X=1 S T="Yes"

 ..I X=3 S T=">5%"

 ..I X>3 S T=">5%"

 ..D W^APCM2AEH(T,0,0,APCMPTYP,,35)

 ..;RATE

 ..I X=1 D SETND^APCM2AER

 ..I X=1 D W^APCM2AEH($S(APCMCYD]"":$$LBLK^APCLUTL(APCMCYD,8),1:$$LBLK^APCLUTL("N/A",8)),0,0,APCMPTYP,,40)

 ..I X=2 D

 ...S (APCMCYN,APCMCYD,APCMCYP)=0

 ...S APCMDF=31.02,APCMNF=31.01 D SETND

 ...D W^APCM2AEH($$C(APCMCYN,0,9),0,0,APCMPTYP,,40)  ;RATE IS NUMERATOR

 ..I X=3 D

 ...S (APCMCYN,APCMCYD,APCMCYP)=0

 ...S APCMDF=31.04,APCMNF=31.03 D SETND

 ...D WRATE

 ..I X>3 D

 ...S (APCMCYN,APCMCYD,APCMCYP)=0

 ...S APCMDF=31.06,APCMNF=31.05 D SETND

 ...D WRATE

 ..;NUM/DEN

 ..I X=1 W ?55,"    N/A",?65,"    N/A"

 ..I X=2!(X=3)!(X>3) D WNUMDEN

 ..;EXCL

 ..D WEXCL

 .Q:'APCMSEME

 .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,3,4 D

 .S Y=$E(APCMPER,1,3)

 .S X=$S(Y=315:1,Y=316:2,Y=317:3,Y=318:4,1:9)

 .D

 ..S M=APCMIC

 ..I X=1 S APCMX="Secure Messaging 2015+"

 ..I X>1 S APCMX="Secure Messaging "

 ..;TARGET

 ..I X=2 S T=">=1"

 ..I X=1 S T="Yes"

 ..I X>2 S T=">5%"

 ..S $P(APCMX,U,2)=T

 ..;RATE

 ..I X=1 D SETND^APCM2AER S $P(APCMX,U,3)=APCMCYD

 ..I X=2 D

 ...S (APCMCYN,APCMCYD,APCMCYP)=0

 ...S APCMDF=31.02,APCMNF=31.01 D SETND

 ...S $P(APCMX,U,3)=APCMCYN  ;RATE IS NUMERATOR

 ..I X=3 D

 ...S (APCMCYN,APCMCYD,APCMCYP)=0

 ...S APCMDF=31.04,APCMNF=31.03 D SETND

 ...S $P(APCMX,U,3)=$$SB^APCM25ER($J(APCMCYP,8,2))_"%"

 ..I X>3 D

 ...S (APCMCYN,APCMCYD,APCMCYP)=0

 ...S APCMDF=31.06,APCMNF=31.05 D SETND

 ...S $P(APCMX,U,3)=$$SB^APCM25ER($J(APCMCYP,8,2))_"%"

 ..;NUM/DEN

 ..I X=1 S $P(APCMX,U,4)="N/A",$P(APCMX,U,5)="N/A"

 ..I X=2!(X=3)!(X>3) D WNUMDEN

 ..D WEXCL

 ..I X=2!(X=3)!(X>3) D W^APCM25EH(APCMX,0,2,APCMPTYP,1)

 ..I X=1 D W^APCM25EH(APCMX,0,2,APCMPTYP,1)

 .Q:'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

SETND ;

 ;S APCMDF=$P(^APCM25OB(M,0),U,8)

 S APCMNP=$P(^DD(9001304.0311,APCMDF,0),U,4),N=$P(APCMNP,";"),P=$P(APCMNP,";",2)

 S APCMCYD=$$V^APCM25ER(1,APCMRPT,N,P,APCMPROV,$S($G(APCMTOT):"T",1:"I"),APCMRPTT)

 I $P(^APCM25OB(M,0),U,6)="A" S (APCMPRN,APCMCYN)="" Q

 ;S APCMNF=$P(^APCM25OB(M,0),U,9)  ;numerator field

 S APCMNP=$P(^DD(9001304.0311,APCMNF,0),U,4),N=$P(APCMNP,";"),P=$P(APCMNP,";",2)

 D SETN

 Q

SETN ;EP - set numerator fields

 S APCMCYN=$$V^APCM25ER(1,APCMRPT,N,P,APCMPROV,$S($G(APCMTOT):"T",1:"I"),APCMRPTT) ;SPDX

 Q:$P(^APCM25OB(APCMIC,0),U,6)="A"  ;no % on attestation measures

 S APCMCYP=$S(APCMCYD:((APCMCYN/APCMCYD)*100),1:"")

 Q

WRATE ;

 I APCMPTYP="P" D  Q

 .I $P(^APCM25OB(M,0),U,6)="A" D W^APCM2AEH($S(APCMCYD]"":$$LBLK^APCLUTL(APCMCYD,8),1:$$LBLK^APCLUTL("N/A",8)),0,0,APCMPTYP,,42)

 .I $P(^APCM25OB(M,0),U,6)'="A" D W^APCM2AEH($J(APCMCYP,8,2)_"%",0,0,APCMPTYP,,42)

 I $P(^APCM25OB(M,0),U,6)="A" S $P(APCMX,U,3)=$S(APCMCYD]"":APCMCYD,1:"N/A")

 I $P(^APCM25OB(M,0),U,6)'="A" S $P(APCMX,U,3)=$S($P(^APCM25OB(M,0),U,6)="A":"N/A",1:$J(APCMCYP,8,2)_"%")

 Q

WNUMDEN ;

 I APCMPTYP="P" D  Q

 .D W^APCM2AEH($S($P(^APCM25OB(M,0),U,6)="A":"    N/A",APCMCYN'?.N:"    N/A",1:$$C(APCMCYN,0,9)),0,0,APCMPTYP,,55)

 .D W^APCM2AEH($S($P(^APCM25OB(M,0),U,6)="A":"    N/A",APCMCYD'?.N:"    N/A",1:$$C(APCMCYD,0,9)),0,0,APCMPTYP,,65)

 S $P(APCMX,U,4)=$S($P(^APCM25OB(M,0),U,6)="A":"N/A",1:+APCMCYN)

 S $P(APCMX,U,5)=$S($P(^APCM25OB(M,0),U,6)="A":"N/A",1:+APCMCYD)

 Q

WEXCL ;

 S APCMEF=$P(^APCM25OB(M,0),U,11)

 I APCMEF]"" D

 .S APCMNP=$P(^DD(9001304.0311,APCMEF,0),U,4),N=$P(APCMNP,";"),P=$P(APCMNP,";",2)

 .S APCMEV=$$V^APCM25ER(1,APCMRPT,N,P,APCMPROV,$S($G(APCMTOT):"T",1:"I"),APCMRPTT)

 .I APCMPTYP="P" D W^APCM25EH($S(APCMEV="N/A":"N/A",APCMEV]"":"Yes",1:"No"),0,0,APCMPTYP,,76)

 .I APCMPTYP="D" S $P(APCMX,U,6)=$S(APCMEV="N/A":"N/A",APCMEV]"":"Yes",1:"No")

 I APCMEF="" D

 .I APCMPTYP="P" D W^APCM25EH("N/A",0,0,APCMPTYP,,76)

 .S $P(APCMX,U,6)="N/A"

 Q

APCM25EA  ; IHS/CMI/LAB - IHS MU ;

 +1       ;;1.0;MU PERFORMANCE REPORTS;**7,8,10**;MAR 26, 2012;Build 31

 +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,19,0))

               SET N=19

               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)

SEM       ;EP - PRINT OUT SEM

 +1       ;W !!,"measure being worked on...will let you know when it is done." Q

 +2       ;write label

 +3        IF APCMPTYP="P"

               Begin DoDot:1

 +4       ;F X=1,2,3,4 D

 +5                SET Y=$EXTRACT(APCMPER,1,3)

 +6                SET X=$SELECT(Y=315:1,Y=316:2,Y=317:3,Y=318:4,1:9)

 +7                Begin DoDot:2

 +8                    SET M=APCMIC

 +9                    IF X=1

                           DO W^APCM2AEH(" 9. Secure Messaging 2015+",0,2,APCMPTYP)

 +10                   IF X>1

                           DO W^APCM2AEH(" 9. Secure Messaging",0,2,APCMPTYP)

 +11      ;TARGET

 +12                   IF X=2

                           SET T=">=1"

 +13                   IF X=1

                           SET T="Yes"

 +14                   IF X=3

                           SET T=">5%"

 +15                   IF X>3

                           SET T=">5%"

 +16                   DO W^APCM2AEH(T,0,0,APCMPTYP,,35)

 +17      ;RATE

 +18                   IF X=1

                           DO SETND^APCM2AER

 +19                   IF X=1

                           DO W^APCM2AEH($SELECT(APCMCYD]"":$$LBLK^APCLUTL(APCMCYD,8),1:$$LBLK^APCLUTL("N/A",8)),0,0,APCMPTYP,,40)

 +20                   IF X=2

                           Begin DoDot:3

 +21                           SET (APCMCYN,APCMCYD,APCMCYP)=0

 +22                           SET APCMDF=31.02

                               SET APCMNF=31.01

                               DO SETND

 +23      ;RATE IS NUMERATOR

                               DO W^APCM2AEH($$C(APCMCYN,0,9),0,0,APCMPTYP,,40)

                           End DoDot:3

 +24                   IF X=3

                           Begin DoDot:3

 +25                           SET (APCMCYN,APCMCYD,APCMCYP)=0

 +26                           SET APCMDF=31.04

                               SET APCMNF=31.03

                               DO SETND

 +27                           DO WRATE

                           End DoDot:3

 +28                   IF X>3

                           Begin DoDot:3

 +29                           SET (APCMCYN,APCMCYD,APCMCYP)=0

 +30                           SET APCMDF=31.06

                               SET APCMNF=31.05

                               DO SETND

 +31                           DO WRATE

                           End DoDot:3

 +32      ;NUM/DEN

 +33                   IF X=1

                           WRITE ?55,"    N/A",?65,"    N/A"

 +34                   IF X=2!(X=3)!(X>3)

                           DO WNUMDEN

 +35      ;EXCL

 +36                   DO WEXCL

                   End DoDot:2

 +37               IF 'APCMSEME

                       QUIT 

 +38               DO W^APCM25EH("Note: PHR Server access failed during report generation "_$PIECE(APCMSEME,U,2)_" which may",0,1,APCMPTYP,,0)

 +39               DO W^APCM25EH("have affected the numerator results for this measure. Contact your IT staff to",0,1,APCMPTYP,,0)

 +40               DO W^APCM25EH("resolve the error and then regenerate the report again to obtain accurate",0,1,APCMPTYP,,0)

 +41               DO W^APCM25EH("results.",0,1,APCMPTYP,,0)

               End DoDot:1

 +42       IF APCMPTYP="D"

               Begin DoDot:1

 +43      ;F X=1,2,3,4 D

 +44               SET Y=$EXTRACT(APCMPER,1,3)

 +45               SET X=$SELECT(Y=315:1,Y=316:2,Y=317:3,Y=318:4,1:9)

 +46               Begin DoDot:2

 +47                   SET M=APCMIC

 +48                   IF X=1

                           SET APCMX="Secure Messaging 2015+"

 +49                   IF X>1

                           SET APCMX="Secure Messaging "

 +50      ;TARGET

 +51                   IF X=2

                           SET T=">=1"

 +52                   IF X=1

                           SET T="Yes"

 +53                   IF X>2

                           SET T=">5%"

 +54                   SET $PIECE(APCMX,U,2)=T

 +55      ;RATE

 +56                   IF X=1

                           DO SETND^APCM2AER

                           SET $PIECE(APCMX,U,3)=APCMCYD

 +57                   IF X=2

                           Begin DoDot:3

 +58                           SET (APCMCYN,APCMCYD,APCMCYP)=0

 +59                           SET APCMDF=31.02

                               SET APCMNF=31.01

                               DO SETND

 +60      ;RATE IS NUMERATOR

                               SET $PIECE(APCMX,U,3)=APCMCYN

                           End DoDot:3

 +61                   IF X=3

                           Begin DoDot:3

 +62                           SET (APCMCYN,APCMCYD,APCMCYP)=0

 +63                           SET APCMDF=31.04

                               SET APCMNF=31.03

                               DO SETND

 +64                           SET $PIECE(APCMX,U,3)=$$SB^APCM25ER($JUSTIFY(APCMCYP,8,2))_"%"

                           End DoDot:3

 +65                   IF X>3

                           Begin DoDot:3

 +66                           SET (APCMCYN,APCMCYD,APCMCYP)=0

 +67                           SET APCMDF=31.06

                               SET APCMNF=31.05

                               DO SETND

 +68                           SET $PIECE(APCMX,U,3)=$$SB^APCM25ER($JUSTIFY(APCMCYP,8,2))_"%"

                           End DoDot:3

 +69      ;NUM/DEN

 +70                   IF X=1

                           SET $PIECE(APCMX,U,4)="N/A"

                           SET $PIECE(APCMX,U,5)="N/A"

 +71                   IF X=2!(X=3)!(X>3)

                           DO WNUMDEN

 +72                   DO WEXCL

 +73                   IF X=2!(X=3)!(X>3)

                           DO W^APCM25EH(APCMX,0,2,APCMPTYP,1)

 +74                   IF X=1

                           DO W^APCM25EH(APCMX,0,2,APCMPTYP,1)

                   End DoDot:2

 +75               IF 'APCMSEME

                       QUIT 

 +76               DO W^APCM25EH("Note: PHR Server access failed during report generation "_$PIECE(APCMSEME,U,2)_" which may",0,1,APCMPTYP,1)

 +77               DO W^APCM25EH("have affected the numerator results for this measure. Contact your IT staff to",0,1,APCMPTYP,1)

 +78               DO W^APCM25EH("resolve the error and then regenerate the report again to obtain accurate results.",0,1,APCMPTYP,1)

               End DoDot:1

 +79       QUIT 

SETND     ;

 +1       ;S APCMDF=$P(^APCM25OB(M,0),U,8)

 +2        SET APCMNP=$PIECE(^DD(9001304.0311,APCMDF,0),U,4)

           SET N=$PIECE(APCMNP,";")

           SET P=$PIECE(APCMNP,";",2)

 +3        SET APCMCYD=$$V^APCM25ER(1,APCMRPT,N,P,APCMPROV,$SELECT($GET(APCMTOT):"T",1:"I"),APCMRPTT)

 +4        IF $PIECE(^APCM25OB(M,0),U,6)="A"

               SET (APCMPRN,APCMCYN)=""

               QUIT 

 +5       ;S APCMNF=$P(^APCM25OB(M,0),U,9)  ;numerator field

 +6        SET APCMNP=$PIECE(^DD(9001304.0311,APCMNF,0),U,4)

           SET N=$PIECE(APCMNP,";")

           SET P=$PIECE(APCMNP,";",2)

 +7        DO SETN

 +8        QUIT 

SETN      ;EP - set numerator fields

 +1       ;SPDX

           SET APCMCYN=$$V^APCM25ER(1,APCMRPT,N,P,APCMPROV,$SELECT($GET(APCMTOT):"T",1:"I"),APCMRPTT)

 +2       ;no % on attestation measures

           IF $PIECE(^APCM25OB(APCMIC,0),U,6)="A"

               QUIT 

 +3        SET APCMCYP=$SELECT(APCMCYD:((APCMCYN/APCMCYD)*100),1:"")

 +4        QUIT 

WRATE     ;

 +1        IF APCMPTYP="P"

               Begin DoDot:1

 +2                IF $PIECE(^APCM25OB(M,0),U,6)="A"

                       DO W^APCM2AEH($SELECT(APCMCYD]"":$$LBLK^APCLUTL(APCMCYD,8),1:$$LBLK^APCLUTL("N/A",8)),0,0,APCMPTYP,,42)

 +3                IF $PIECE(^APCM25OB(M,0),U,6)'="A"

                       DO W^APCM2AEH($JUSTIFY(APCMCYP,8,2)_"%",0,0,APCMPTYP,,42)

               End DoDot:1

               QUIT 

 +4        IF $PIECE(^APCM25OB(M,0),U,6)="A"

               SET $PIECE(APCMX,U,3)=$SELECT(APCMCYD]"":APCMCYD,1:"N/A")

 +5        IF $PIECE(^APCM25OB(M,0),U,6)'="A"

               SET $PIECE(APCMX,U,3)=$SELECT($PIECE(^APCM25OB(M,0),U,6)="A":"N/A",1:$JUSTIFY(APCMCYP,8,2)_"%")

 +6        QUIT 

WNUMDEN   ;

 +1        IF APCMPTYP="P"

               Begin DoDot:1

 +2                DO W^APCM2AEH($SELECT($PIECE(^APCM25OB(M,0),U,6)="A":"    N/A",APCMCYN'?.N:"    N/A",1:$$C(APCMCYN,0,9)),0,0,APCMPTYP,,55)

 +3                DO W^APCM2AEH($SELECT($PIECE(^APCM25OB(M,0),U,6)="A":"    N/A",APCMCYD'?.N:"    N/A",1:$$C(APCMCYD,0,9)),0,0,APCMPTYP,,65)