APCMBAN.m

APCMBAN ; IHS/CMI/LAB - Banner routine for Management RPTS ; 28 Jun 2017  12:44 PM

 ;;1.0;IHS MU PERFORMANCE REPORTS;**2,4,5,6,7,8,9,10**;MAR 26, 2012;Build 31

V ; GET VERSION

 S APCM("VERSION")="1.0 (Patch 10)"  ;,APCM("VERSION")=$O(^DIC(9.4,"C","BJPC",APCM("VERSION"))),APCM("VERSION")=^DIC(9.4,APCM("VERSION"),"VERSION")

 I $G(APCMTEXT)="" S APCMTEXT="TEXT",APCMLINE=3 G PRINT

 S APCMTEXT="TEXT"_APCMTEXT

 F APCMJ=1:1 S APCMX=$T(@APCMTEXT+APCMJ),APCMX=$P(APCMX,";;",2) Q:APCMX="QUIT"!(APCMX="")  S APCMLINE=APCMJ

PRINT W:$D(IOF) @IOF

 F APCMJ=1:1:APCMLINE S APCMX=$T(@APCMTEXT+APCMJ),APCMX=$P(APCMX,";;",2) W !?80-$L(APCMX)\2,APCMX K APCMX

 W !,$$CTR("Version "_APCM("VERSION"))

SITE G XIT:'$D(DUZ(2)) G:'DUZ(2) XIT S APCM("SITE")=$P(^DIC(4,DUZ(2),0),"^") W !?80-$L(APCM("SITE"))\2,APCM("SITE")

 I APCMTEXT="TEXTM" W !!,"Current 2015-2018 Meaningful Use (MU) Modified (Mod) Stage 2 (S2) ",!,"Performance Reports"

XIT ;

 K DIC,DA,X,Y,%Y,%,APCMJ,APCMX,APCMTEXT,APCMLINE,APCM

 Q

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

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

 ;----------

TEXT ;

 ;;*********************************

 ;;**   PCC Management Reports    **

 ;;*********************************

 ;;QUIT

TEXTB ;EP

 ;;********************************************

 ;;**    IHS Performance Measure Reports     **

 ;;**    2013 Stage 1 Performance Reports    **

 ;;********************************************

 ;;QUIT

TEXTA ;

 ;;********************************************

 ;;**    IHS Performance Measure Reports     **

 ;;**    2011 Stage 1 Performance Reports    **

 ;;********************************************

 ;;QUIT

TEXTC ;EP

 ;;********************************************

 ;;**    IHS Performance Measure Reports     **

 ;;** 2014/2015 Stage 1 Performance Reports  **

 ;;********************************************

 ;;QUIT

TEXTD ;EP

 ;;********************************************

 ;;**    IHS Performance Measure Reports     **

 ;;** 2014/2015 Stage 2 Performance Reports  **

 ;;********************************************

 ;;QUIT

TEXTM ;EP

 ;;********************************************

 ;;**    IHS Performance Measure Reports     **

 ;;********************************************

 ;;QUIT

TEXTH ;;EP

 ;;********************************************

 ;;**    IHS Performance Measure Reports     **

 ;;**   Historical MU Performance Reports    **

 ;;********************************************

 ;;QUIT

APCMBAN   ; IHS/CMI/LAB - Banner routine for Management RPTS ; 28 Jun 2017  12:44 PM

 +1       ;;1.0;IHS MU PERFORMANCE REPORTS;**2,4,5,6,7,8,9,10**;MAR 26, 2012;Build 31

V         ; GET VERSION

 +1       ;,APCM("VERSION")=$O(^DIC(9.4,"C","BJPC",APCM("VERSION"))),APCM("VERSION")=^DIC(9.4,APCM("VERSION"),"VERSION")

           SET APCM("VERSION")="1.0 (Patch 10)"

 +2        IF $GET(APCMTEXT)=""

               SET APCMTEXT="TEXT"

               SET APCMLINE=3

               GOTO PRINT

 +3        SET APCMTEXT="TEXT"_APCMTEXT

 +4        FOR APCMJ=1:1

               SET APCMX=$TEXT(@APCMTEXT+APCMJ)

               SET APCMX=$PIECE(APCMX,";;",2)

               IF APCMX="QUIT"!(APCMX="")

                   QUIT 

               SET APCMLINE=APCMJ

PRINT      IF $DATA(IOF)

               WRITE @IOF

 +1        FOR APCMJ=1:1:APCMLINE

               SET APCMX=$TEXT(@APCMTEXT+APCMJ)

               SET APCMX=$PIECE(APCMX,";;",2)

               WRITE !?80-$LENGTH(APCMX)\2,APCMX

               KILL APCMX

 +2        WRITE !,$$CTR("Version "_APCM("VERSION"))

SITE       IF '$DATA(DUZ(2))

               GOTO XIT

           IF 'DUZ(2)

               GOTO XIT

           SET APCM("SITE")=$PIECE(^DIC(4,DUZ(2),0),"^")

           WRITE !?80-$LENGTH(APCM("SITE"))\2,APCM("SITE")

 +1        IF APCMTEXT="TEXTM"

               WRITE !!,"Current 2015-2018 Meaningful Use (MU) Modified (Mod) Stage 2 (S2) ",!,"Performance Reports"

XIT       ;

 +1        KILL DIC,DA,X,Y,%Y,%,APCMJ,APCMX,APCMTEXT,APCMLINE,APCM

 +2        QUIT 

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

TEXT      ;

 +1       ;;*********************************

 +2       ;;**   PCC Management Reports    **

 +3       ;;*********************************

 +4       ;;QUIT

TEXTB     ;EP

 +1       ;;********************************************

 +2       ;;**    IHS Performance Measure Reports     **

 +3       ;;**    2013 Stage 1 Performance Reports    **

 +4       ;;********************************************

 +5       ;;QUIT

TEXTA     ;

 +1       ;;********************************************

 +2       ;;**    IHS Performance Measure Reports     **

 +3       ;;**    2011 Stage 1 Performance Reports    **

 +4       ;;********************************************

 +5       ;;QUIT

TEXTC     ;EP

 +1       ;;********************************************

 +2       ;;**    IHS Performance Measure Reports     **

 +3       ;;** 2014/2015 Stage 1 Performance Reports  **

 +4       ;;********************************************

 +5       ;;QUIT

TEXTD     ;EP

 +1       ;;********************************************

 +2       ;;**    IHS Performance Measure Reports     **

 +3       ;;** 2014/2015 Stage 2 Performance Reports  **

 +4       ;;********************************************

 +5       ;;QUIT

TEXTM     ;EP

 +1       ;;********************************************

 +2       ;;**    IHS Performance Measure Reports     **

 +3       ;;********************************************

 +4       ;;QUIT

TEXTH     ;;EP

 +1       ;;********************************************

 +2       ;;**    IHS Performance Measure Reports     **

 +3       ;;**   Historical MU Performance Reports    **

 +4       ;;********************************************

 +5       ;;QUIT