BDMBAN.m

BDMBAN ; IHS/CMI/LAB - Banner routine for Management RPTS ; [ 12/28/2008 5:24 PM ]

 ;;2.0;DIABETES MANAGEMENT SYSTEM;**2,6**;JUN 14, 2007;Build 6

V ; GET VERSION

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

 I $G(BDMTEXT)="" S BDMTEXT="TEXT",BDMLINE=3 G PRINT

 S BDMTEXT="TEXT"_BDMTEXT

 F BDMJ=1:1 S BDMX=$T(@BDMTEXT+BDMJ),BDMX=$P(BDMX,";;",2) Q:BDMX="QUIT"!(BDMX="")  S BDMLINE=BDMJ

PRINT W:$D(IOF) @IOF

 F BDMJ=1:1:BDMLINE S BDMX=$T(@BDMTEXT+BDMJ),BDMX=$P(BDMX,";;",2) W !?80-$L(BDMX)\2,BDMX K BDMX

 W !?80-(22+$L(BDM("VERSION")))/2,"IHS PCC Suite Version ",BDM("VERSION")

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

XIT ;

 K DIC,DA,X,Y,%Y,%,BDMJ,BDMX,BDMTEXT,BDMLINE,BDM

 Q

TEXT ;

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

 ;;**   IHS DIABETES MANAGEMENT   **

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

 ;;QUIT

TEXTD ;EP

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

 ;;**  Diabetes Management System   **

 ;;**  Diabetes Audit Report Menu   **

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

 ;;QUIT

BDMBAN    ; IHS/CMI/LAB - Banner routine for Management RPTS ; [ 12/28/2008 5:24 PM ]

 +1       ;;2.0;DIABETES MANAGEMENT SYSTEM;**2,6**;JUN 14, 2007;Build 6

V         ; GET VERSION

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

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

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

 +2        IF $GET(BDMTEXT)=""

               SET BDMTEXT="TEXT"

               SET BDMLINE=3

               GOTO PRINT

 +3        SET BDMTEXT="TEXT"_BDMTEXT

 +4        FOR BDMJ=1:1

               SET BDMX=$TEXT(@BDMTEXT+BDMJ)

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

               IF BDMX="QUIT"!(BDMX="")

                   QUIT 

               SET BDMLINE=BDMJ

PRINT      IF $DATA(IOF)

               WRITE @IOF

 +1        FOR BDMJ=1:1:BDMLINE

               SET BDMX=$TEXT(@BDMTEXT+BDMJ)

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

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

               KILL BDMX

 +2        WRITE !?80-(22+$LENGTH(BDM("VERSION")))/2,"IHS PCC Suite Version ",BDM("VERSION")

SITE       IF '$DATA(DUZ(2))

               GOTO XIT

           IF 'DUZ(2)

               GOTO XIT

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

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

XIT       ;

 +1        KILL DIC,DA,X,Y,%Y,%,BDMJ,BDMX,BDMTEXT,BDMLINE,BDM

 +2        QUIT 

TEXT      ;

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

 +2       ;;**   IHS DIABETES MANAGEMENT   **

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

 +4       ;;QUIT

TEXTD     ;EP

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

 +2       ;;**  Diabetes Management System   **

 +3       ;;**  Diabetes Audit Report Menu   **

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

 +5       ;;QUIT