APCM2AE0.m

APCM2AE0 ;IHS/CMI/LAB - IHS MU REPORT; 

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

 ;

 ;

CALC(N,O) ;ENTRY POINT

 NEW Z

 S Z=N-O,Z=$FN(Z,"+,",1)

 Q Z

 ;

SB(X) ;EP - Strip 

 NEW %

 X ^DD("FUNC",$O(^DD("FUNC","B","STRIPBLANKS",0)),1)

 Q X

 ;

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)

 ;

CTR(X,Y) ;EP - Center X in a field Y wide.

 Q $J("",$S($D(Y):Y,1:IOM)-$L(X)\2)_X

 ;----------

EOP ;EP - End of page.

 Q:$E(IOST)'="C"

 Q:$D(ZTQUEUED)!'(IOT="TRM")!$D(IO("S"))

 NEW DIR

 K DIRUT,DFOUT,DLOUT,DTOUT,DUOUT

 S DIR(0)="E" D ^DIR

 Q

 ;----------

USR() ;EP - Return name .

 Q $S($G(DUZ):$S($D(^VA(200,DUZ,0)):$P(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")

 ;

SETN ;EP - set numerator fields

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

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

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

 Q

 ;

V(T,R,N,P,PROV,K,RT) ;EP

 NEW X,Y,Z,I,J

 I RT=1 S I=PROV_";VA(200,"

 I RT=2 S I=PROV_";AUTTLOC("

 I T=1 D  Q X

 .S J=$O(^APCMM25C(R,11,"B",I,0))

 .I 'J S X=0 Q

 .S X=$P($G(^APCMM25C(R,11,J,N)),U,P)

 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(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

MEDREC ;EP

 I APCMPTYP="P" D

 .D

 ..S M=APCMIC

 ..D W^APCM2AEH(" 7. Medication Rec 2016",0,2,APCMPTYP)

 ..;

 ..S T=">50%"

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

 ..;

 ..D SETND

 ..D WRATE

 ..;

 ..D WNUMDEN

 ..;

 ..D WEXCL

 ..;

 ..S I=$P(^APCM25OB(APCMIC,0),U,1)

 ..D W^APCM2AEH("N/A",0,0,APCMPTYP,,77)

 I APCMPTYP="D" D

 .D

 ..S M=APCMIC

 ..S APCMX="Medication Rec 2016"

 ..;

 ..S T=">50%"

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

 ..;

 ..D SETND

 ..D WRATE

 ..;

 ..D WNUMDEN

 ..;

 ..D WEXCL

 ..;

 ..S I=$P(^APCM25OB(APCMIC,0),U,1)

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

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

 Q

PEA ;EP

 I APCMPTYP="P" D

 .S M=APCMIC

 .D W^APCM2AEH(" 8. Patient Elec Access",0,2,APCMPTYP)

 .;

 .S T=">50%"

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

 .;

 .D SETND

 .D WRATE

 .;

 .D WNUMDEN

 .;

 .D WEXCL

 .;

 .D W^APCM2AEH("N/A",0,0,APCMPTYP,,77)

 I APCMPTYP="D" D

 .S M=APCMIC

 .S APCMX="Patient Elec Access"

 .;

 .S T=">50%"

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

 .;

 .D SETND

 .D WRATE

 .;

 .D WNUMDEN

 .;

 .D WEXCL

 .;

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

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

 ;VDT

 I APCMPTYP="P" D

 .D

 ..S M=$O(^APCM25OB("B","S2.020.EP.1",0))

 ..D W^APCM2AEH("    VDT 2016",0,1,APCMPTYP)

 ..;

 ..S T=">=1"

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

 ..;

 ..D SETND

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

 ..;

 ..D WNUMDEN

 ..;

 ..D WEXCL

 ..;

 ..S I=$O(^APCM25OB("B","S2.020.EP,1",0))

 ..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

 .D

 ..;S M=APCMIC

 ..S M=$O(^APCM25OB("B","S2.020.EP.1",0))  ;IHS/CMI/LAB - PATCH 8?

 ..S APCMX="VDT 2016"

 ..;

 ..S T=">=1"

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

 ..;

 ..D SETND

 ..S $P(APCMX,U,3)=+APCMCYN  ;IHS/CMI/LAB - PATCH 8 ADDED "+"

 ..;

 ..D WNUMDEN

 ..;

 ..D WEXCL

 ..;

 ..S I=$P(^APCM25OB(APCMIC,0),U,1)

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

 ..D W^APCM25EH(APCMX,0,1,APCMPTYP,1)

 ..I $G(APCMVDTE) D

 ...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

SEM ;EP

 I APCMPTYP="P" D

 .D

 ..S M=APCMIC

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

 ..;

 ..S T=">=1"

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

 ..;

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

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

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

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

 ..D W^APCM2AEH($$C(APCMCYN,0,9),0,0,APCMPTYP,,51),W^APCM2AEH($$C(APCMCYD,0,9),0,0,APCMPTYP,,61)

 ..;

 ..D WEXCL

 ..;

 ..S I=$P(^APCM25OB(APCMIC,0),U,1)

 ..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

 .D

 ..S M=APCMIC

 ..S APCMX="Secure Messaging 2016"

 ..;

 ..S T=">=1"

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

 ..;

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

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

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

 ..S $P(APCMX,U,4)=APCMCYN  ;NUMER

 ..S $P(APCMX,U,5)=APCMCYD  ;DENOM

 ..D WEXCL

 ..;

 ..S I=$P(^APCM25OB(APCMIC,0),U,1)

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

 ..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)

 .;

 .S T="Yes"

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

 .;

 .D SETND

 .D WRATE

 .;

 .D WNUMDEN

 .;

 .D WEXCL

 .;

 .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*+"

 .;

 .S T="Yes"

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

 .;

 .D SETND

 .D WRATE

 .;

 .D WNUMDEN

 .;

 .D WEXCL

 .;

 .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)

 .;

 .S T="Yes"

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

 .;

 .D SETND

 .D WRATE

 .;

 .D WNUMDEN

 .;

 .D WEXCL

 .;

 .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*+"

 .;

 .S T="Yes"

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

 .;

 .D SETND

 .D WRATE

 .;

 .D WNUMDEN

 .;

 .D WEXCL

 .;

 .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)

 .;

 .S T="Yes"

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

 .;

 .D SETND

 .D WRATE

 .;

 .D WNUMDEN

 .;

 .D WEXCL

 .;

 .D W^APCM2AEH("N/A",0,0,APCMPTYP,,77)

 I APCMPTYP="D" D

 .S M=APCMIC

 .S APCMX="Rept to Special Reg*+"

 .;

 .S T="Yes"

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

 .;

 .D SETND

 .D WRATE

 .;

 .D WNUMDEN

 .;

 .D WEXCL

 .;

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

 .D W^APCM25EH(APCMX,0,1,APCMPTYP,1)

 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(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,,71)

 .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,,71)

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

 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,,40)

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

 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,,51)

 .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,,61)

 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

APCM2AE0  ;IHS/CMI/LAB - IHS MU REPORT; 

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

 +2       ;

 +3       ;

CALC(N,O) ;ENTRY POINT

 +1        NEW Z

 +2        SET Z=N-O

           SET Z=$FNUMBER(Z,"+,",1)

 +3        QUIT Z

 +4       ;

SB(X)     ;EP - Strip 

 +1        NEW %

 +2        XECUTE ^DD("FUNC",$ORDER(^DD("FUNC","B","STRIPBLANKS",0)),1)

 +3        QUIT X

 +4       ;

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)

 +6       ;

CTR(X,Y)  ;EP - Center X in a field Y wide.

 +1        QUIT $JUSTIFY("",$SELECT($DATA(Y):Y,1:IOM)-$LENGTH(X)\2)_X

 +2       ;----------

EOP       ;EP - End of page.

 +1        IF $EXTRACT(IOST)'="C"

               QUIT 

 +2        IF $DATA(ZTQUEUED)!'(IOT="TRM")!$DATA(IO("S"))

               QUIT 

 +3        NEW DIR

 +4        KILL DIRUT,DFOUT,DLOUT,DTOUT,DUOUT

 +5        SET DIR(0)="E"

           DO ^DIR

 +6        QUIT 

 +7       ;----------

USR()     ;EP - Return name .

 +1        QUIT $SELECT($GET(DUZ):$SELECT($DATA(^VA(200,DUZ,0)):$PIECE(^(0),U),1:"UNKNOWN"),1:"DUZ UNDEFINED OR 0")

 +2       ;

SETN      ;EP - set numerator fields

 +1       ;SPDX

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

 +2       ;no % on attestation measures

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

               QUIT 

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

 +4        QUIT 

 +5       ;

V(T,R,N,P,PROV,K,RT) ;EP

 +1        NEW X,Y,Z,I,J

 +2        IF RT=1

               SET I=PROV_";VA(200,"

 +3        IF RT=2

               SET I=PROV_";AUTTLOC("

 +4        IF T=1

               Begin DoDot:1

 +5                SET J=$ORDER(^APCMM25C(R,11,"B",I,0))

 +6                IF 'J

                       SET X=0

                       QUIT 

 +7                SET X=$PIECE($GET(^APCMM25C(R,11,J,N)),U,P)

               End DoDot:1

               QUIT X

 +8        QUIT ""

SETND     ;

 +1        SET APCMDF=$PIECE(^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(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       ;numerator field

           SET APCMNF=$PIECE(^APCM25OB(M,0),U,9)

 +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 

MEDREC    ;EP

 +1        IF APCMPTYP="P"

               Begin DoDot:1

 +2                Begin DoDot:2

 +3                    SET M=APCMIC

 +4                    DO W^APCM2AEH(" 7. Medication Rec 2016",0,2,APCMPTYP)

 +5       ;

 +6                    SET T=">50%"

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

 +8       ;

 +9                    DO SETND

 +10                   DO WRATE

 +11      ;

 +12                   DO WNUMDEN

 +13      ;

 +14                   DO WEXCL

 +15      ;

 +16                   SET I=$PIECE(^APCM25OB(APCMIC,0),U,1)

 +17                   DO W^APCM2AEH("N/A",0,0,APCMPTYP,,77)

                   End DoDot:2

               End DoDot:1

 +18       IF APCMPTYP="D"

               Begin DoDot:1

 +19               Begin DoDot:2

 +20                   SET M=APCMIC

 +21                   SET APCMX="Medication Rec 2016"

 +22      ;

 +23                   SET T=">50%"

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

 +25      ;

 +26                   DO SETND

 +27                   DO WRATE

 +28      ;

 +29                   DO WNUMDEN

 +30      ;

 +31                   DO WEXCL

 +32      ;

 +33                   SET I=$PIECE(^APCM25OB(APCMIC,0),U,1)

 +34                   SET $PIECE(APCMX,U,7)="N/A"

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

                   End DoDot:2

               End DoDot:1

 +36       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       ;

 +5                SET T=">50%"

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

 +7       ;

 +8                DO SETND

 +9                DO WRATE

 +10      ;

 +11               DO WNUMDEN

 +12      ;

 +13               DO WEXCL

 +14      ;

 +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      ;

 +20               SET T=">50%"

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

 +22      ;

 +23               DO SETND

 +24               DO WRATE

 +25      ;

 +26               DO WNUMDEN

 +27      ;

 +28               DO WEXCL

 +29      ;

 +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               Begin DoDot:2

 +35                   SET M=$ORDER(^APCM25OB("B","S2.020.EP.1",0))

 +36                   DO W^APCM2AEH("    VDT 2016",0,1,APCMPTYP)

 +37      ;

 +38                   SET T=">=1"

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

 +40      ;

 +41                   DO SETND

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

 +43      ;

 +44                   DO WNUMDEN

 +45      ;

 +46                   DO WEXCL

 +47      ;

 +48                   SET I=$ORDER(^APCM25OB("B","S2.020.EP,1",0))

 +49                   DO W^APCM2AEH("N/A",0,0,APCMPTYP,,77)

 +50                   IF $GET(APCMVDTE)

                           Begin DoDot:3

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

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

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

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

                           End DoDot:3

                   End DoDot:2

               End DoDot:1

 +55       IF APCMPTYP="D"

               Begin DoDot:1

 +56               Begin DoDot:2

 +57      ;S M=APCMIC

 +58      ;IHS/CMI/LAB - PATCH 8?

                       SET M=$ORDER(^APCM25OB("B","S2.020.EP.1",0))

 +59                   SET APCMX="VDT 2016"

 +60      ;

 +61                   SET T=">=1"

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

 +63      ;

 +64                   DO SETND

 +65      ;IHS/CMI/LAB - PATCH 8 ADDED "+"

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

 +66      ;

 +67                   DO WNUMDEN

 +68      ;

 +69                   DO WEXCL

 +70      ;

 +71                   SET I=$PIECE(^APCM25OB(APCMIC,0),U,1)

 +72                   SET $PIECE(APCMX,U,7)="N/A"

 +73                   DO W^APCM25EH(APCMX,0,1,APCMPTYP,1)

 +74                   IF $GET(APCMVDTE)

                           Begin DoDot:3

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

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

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

                           End DoDot:3

                   End DoDot:2

               End DoDot:1

 +78       QUIT 

SEM       ;EP

 +1        IF APCMPTYP="P"

               Begin DoDot:1

 +2                Begin DoDot:2

 +3                    SET M=APCMIC

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

 +5       ;

 +6                    SET T=">=1"

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

 +8       ;

 +9       ;S (APCMCYN,APCMCYD,APCMCYP)=0

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

 +11                   SET APCMDF=31.02

                       SET APCMNF=31.01

                       DO SETND^APCM25EA

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

 +13                   DO W^APCM2AEH($$C(APCMCYN,0,9),0,0,APCMPTYP,,51)

                       DO W^APCM2AEH($$C(APCMCYD,0,9),0,0,APCMPTYP,,61)

 +14      ;

 +15                   DO WEXCL

 +16      ;

 +17                   SET I=$PIECE(^APCM25OB(APCMIC,0),U,1)

 +18                   DO W^APCM2AEH("N/A",0,0,APCMPTYP,,77)

 +19                   IF $GET(APCMSEME)

                           Begin DoDot:3

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

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

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

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

                           End DoDot:3

                   End DoDot:2

               End DoDot:1

 +24       IF APCMPTYP="D"

               Begin DoDot:1

 +25               Begin DoDot:2

 +26                   SET M=APCMIC

 +27                   SET APCMX="Secure Messaging 2016"

 +28      ;

 +29                   SET T=">=1"

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

 +31      ;

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

 +33                   SET APCMDF=31.02

                       SET APCMNF=31.01

                       DO SETND^APCM25EA

 +34      ;RATE IS NUMERATOR

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

 +35      ;NUMER

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

 +36      ;DENOM

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

 +37                   DO WEXCL

 +38      ;

 +39                   SET I=$PIECE(^APCM25OB(APCMIC,0),U,1)

 +40                   SET $PIECE(APCMX,U,7)="N/A"

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

 +42                   IF '$GET(APCMSEME)

                           QUIT 

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

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

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

                   End DoDot:2

               End DoDot:1

 +46       QUIT 

IMM       ;EP

 +1        IF APCMPTYP="P"

               Begin DoDot:1