BCHBAN.m

BCHBAN ; IHS/CMI/LAB - Banner routine for CHR package ; 

 ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27

 ;

 ;Writes all menu banners.

EP ;EP

V ; GET VERSION

 S BCH("VERSION")="",BCH("VERSION")=$O(^DIC(9.4,"C","BCH",BCH("VERSION"))),BCH("VERSION")="2.0"

 I $G(BCHTEXT)="" S BCHTEXT="TEXT",BCHLINE=3 G PRINT

 S BCHTEXT="TEXT"_BCHTEXT

 F BCHJ=1:1 S BCHX=$T(@BCHTEXT+BCHJ),BCHX=$P(BCHX,";;",2) Q:BCHX="QUIT"!(BCHX="")  S BCHLINE=BCHJ

PRINT W:$D(IOF) @IOF

 F BCHJ=1:1:BCHLINE S BCHX=$T(@BCHTEXT+BCHJ),BCHX=$P(BCHX,";;",2) W !?80-$L(BCHX)\2,BCHX K BCHX

 S X=$P(^DIC(4,DUZ(2),0),U)

 W !?80-$L(X)/2,X

 W !?80-(8+$L(BCH("VERSION")))/2,"Version ",BCH("VERSION")

XIT ;

 K DIC,DA,X,Y,%Y,%,BCHJ,BCHX,BCHTEXT,BCHLINE

 Q

HIPAA ;EP

 W !!,"THIS SYSTEM CONTAINS CONFIDENTIAL PATIENT INFORMATION CONVERED BY THE PRIVACY"

 W !,"ACT.  UNAUTHORIZED USE OF THIS DATA IS ILLEGAL.",!!

 S DIR(0)="Y",DIR("A")="Do you wish to continue",DIR("B")="N" KILL DA D ^DIR KILL DIR

 I $D(DIRUT) S XQUIT=1 Q

 I 'Y S XQUIT=1 Q

 Q

TEXT ;chr

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

 ;;**     RPMS CHR/PCC REPORTING SYSTEM     **

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

 ;;QUIT

TEXTR ;reports menu

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

 ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 ;;**                 Reports                **

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

 ;;QUIT

TEXTX ;export utility

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

 ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 ;;**         CHR Export Utility        **

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

 ;;QUIT

TEXTE ;data entry menu

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

 ;;**     RPMS CHR/PCC REPORTING SYSTEM     **

 ;;**             Data Entry Menu           **

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

 ;;QUIT

TEXTC ;activity record counts

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

 ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 ;;**        Service Workload Reports       **

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

 ;;QUIT

TEXTA ;chris ii reports

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

 ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 ;;**             CHR REPORTS           **

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

 ;;QUIT

TEXTT ;tables menu

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

 ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 ;;**        Print CHR Standard Tables       **

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

 ;;QUIT

TEXTB ;encounter/record reports

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

 ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 ;;**        Encounter/Record Reports        **

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

 ;;QUIT

TEXTM ;manager utilities

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

 ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 ;;**            Manager Utilities           **

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

 ;;QUIT

TEXTU ;UNDUP reports

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

 ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 ;;**   Unduplicated Patient Count Reports   **

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

 ;;QUIT

BCHBAN    ; IHS/CMI/LAB - Banner routine for CHR package ; 

 +1       ;;2.0;IHS RPMS CHR SYSTEM;;OCT 23, 2012;Build 27

 +2       ;

 +3       ;Writes all menu banners.

EP        ;EP

V         ; GET VERSION

 +1        SET BCH("VERSION")=""

           SET BCH("VERSION")=$ORDER(^DIC(9.4,"C","BCH",BCH("VERSION")))

           SET BCH("VERSION")="2.0"

 +2        IF $GET(BCHTEXT)=""

               SET BCHTEXT="TEXT"

               SET BCHLINE=3

               GOTO PRINT

 +3        SET BCHTEXT="TEXT"_BCHTEXT

 +4        FOR BCHJ=1:1

               SET BCHX=$TEXT(@BCHTEXT+BCHJ)

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

               IF BCHX="QUIT"!(BCHX="")

                   QUIT 

               SET BCHLINE=BCHJ

PRINT      IF $DATA(IOF)

               WRITE @IOF

 +1        FOR BCHJ=1:1:BCHLINE

               SET BCHX=$TEXT(@BCHTEXT+BCHJ)

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

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

               KILL BCHX

 +2        SET X=$PIECE(^DIC(4,DUZ(2),0),U)

 +3        WRITE !?80-$LENGTH(X)/2,X

 +4        WRITE !?80-(8+$LENGTH(BCH("VERSION")))/2,"Version ",BCH("VERSION")

XIT       ;

 +1        KILL DIC,DA,X,Y,%Y,%,BCHJ,BCHX,BCHTEXT,BCHLINE

 +2        QUIT 

HIPAA     ;EP

 +1        WRITE !!,"THIS SYSTEM CONTAINS CONFIDENTIAL PATIENT INFORMATION CONVERED BY THE PRIVACY"

 +2        WRITE !,"ACT.  UNAUTHORIZED USE OF THIS DATA IS ILLEGAL.",!!

 +3        SET DIR(0)="Y"

           SET DIR("A")="Do you wish to continue"

           SET DIR("B")="N"

           KILL DA

           DO ^DIR

           KILL DIR

 +4        IF $DATA(DIRUT)

               SET XQUIT=1

               QUIT 

 +5        IF 'Y

               SET XQUIT=1

               QUIT 

 +6        QUIT 

TEXT      ;chr

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

 +2       ;;**     RPMS CHR/PCC REPORTING SYSTEM     **

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

 +4       ;;QUIT

TEXTR     ;reports menu

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

 +2       ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 +3       ;;**                 Reports                **

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

 +5       ;;QUIT

TEXTX     ;export utility

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

 +2       ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 +3       ;;**         CHR Export Utility        **

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

 +5       ;;QUIT

TEXTE     ;data entry menu

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

 +2       ;;**     RPMS CHR/PCC REPORTING SYSTEM     **

 +3       ;;**             Data Entry Menu           **

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

 +5       ;;QUIT

TEXTC     ;activity record counts

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

 +2       ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 +3       ;;**        Service Workload Reports       **

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

 +5       ;;QUIT

TEXTA     ;chris ii reports

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

 +2       ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 +3       ;;**             CHR REPORTS           **

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

 +5       ;;QUIT

TEXTT     ;tables menu

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

 +2       ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 +3       ;;**        Print CHR Standard Tables       **

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

 +5       ;;QUIT

TEXTB     ;encounter/record reports

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

 +2       ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 +3       ;;**        Encounter/Record Reports        **

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

 +5       ;;QUIT

TEXTM     ;manager utilities

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

 +2       ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 +3       ;;**            Manager Utilities           **

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

 +5       ;;QUIT

TEXTU     ;UNDUP reports

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

 +2       ;;**      RPMS CHR/PCC REPORTING SYSTEM     **

 +3       ;;**   Unduplicated Patient Count Reports   **

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

 +5       ;;QUIT