BNIBAN.m

BNIBAN ; IHS/CMI/LAB - Banner routine for BNI package ;

 ;;1.0;BNI CPHD ACTIVITY DATASYSTEM;;DEC 20, 2006

 ;

 ;Writes all menu banners.

EP ;EP

V ; GET VERSION

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

 I $G(BNITEXT)="" S BNITEXT="TEXT",BNILINE=3 G PRINT

 S BNITEXT="TEXT"_BNITEXT

 F BNIJ=1:1 S BNIX=$T(@BNITEXT+BNIJ),BNIX=$P(BNIX,";;",2) Q:BNIX="QUIT"!(BNIX="")  S BNILINE=BNIJ

PRINT W:$D(IOF) @IOF

 F BNIJ=1:1:BNILINE S BNIX=$T(@BNITEXT+BNIJ),BNIX=$P(BNIX,";;",2) W !?80-$L(BNIX)\2,BNIX K BNIX

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

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

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

XIT ;

 K DIC,DA,X,Y,%Y,%,BNIJ,BNIX,BNITEXT,BNILINE

 Q

TEXT ;chr

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

 ;;** RPMS Computerized Public Health Activity Data System (CPHAD) **

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

 ;;QUIT

TEXTR ;reports menu

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

 ;;** RPMS Computerized Public Health Activity Data System (CPHAD) **

 ;;**                         Reports                              **

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

 ;;QUIT

TEXTT ;table listings

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

 ;;** RPMS Computerized Public Health Activity Data System (CPHAD) **

 ;;**                       Table Listings                         **

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

 ;;QUIT

BNIBAN    ; IHS/CMI/LAB - Banner routine for BNI package ;

 +1       ;;1.0;BNI CPHD ACTIVITY DATASYSTEM;;DEC 20, 2006

 +2       ;

 +3       ;Writes all menu banners.

EP        ;EP

V         ; GET VERSION

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

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

           SET BNI("VERSION")=^DIC(9.4,BNI("VERSION"),"VERSION")

 +2        IF $GET(BNITEXT)=""

               SET BNITEXT="TEXT"

               SET BNILINE=3

               GOTO PRINT

 +3        SET BNITEXT="TEXT"_BNITEXT

 +4        FOR BNIJ=1:1

               SET BNIX=$TEXT(@BNITEXT+BNIJ)

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

               IF BNIX="QUIT"!(BNIX="")

                   QUIT 

               SET BNILINE=BNIJ

PRINT      IF $DATA(IOF)

               WRITE @IOF

 +1        FOR BNIJ=1:1:BNILINE

               SET BNIX=$TEXT(@BNITEXT+BNIJ)

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

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

               KILL BNIX

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

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

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

XIT       ;

 +1        KILL DIC,DA,X,Y,%Y,%,BNIJ,BNIX,BNITEXT,BNILINE

 +2        QUIT 

TEXT      ;chr

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

 +2       ;;** RPMS Computerized Public Health Activity Data System (CPHAD) **

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

 +4       ;;QUIT

TEXTR     ;reports menu

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

 +2       ;;** RPMS Computerized Public Health Activity Data System (CPHAD) **

 +3       ;;**                         Reports                              **

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

 +5       ;;QUIT

TEXTT     ;table listings

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

 +2       ;;** RPMS Computerized Public Health Activity Data System (CPHAD) **

 +3       ;;**                       Table Listings                         **

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

 +5       ;;QUIT