BDPBAN.m

BDPBAN ; IHS/CMI/TMJ - Banner for BDP ; 

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

EP ;

V ; GET VERSION

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

 I $G(BDPTEXT)="" S BDPTEXT="TEXT",BDPLINE=3 G PRINT

 S BDPTEXT="TEXT"_BDPTEXT

 F BDPJ=1:1 S BDPX=$T(@BDPTEXT+BDPJ),BDPX=$P(BDPX,";;",2) Q:BDPX="QUIT"!(BDPX="")  S BDPLINE=BDPJ

PRINT W:$D(IOF) @IOF

 F BDPJ=1:1:BDPLINE S BDPX=$T(@BDPTEXT+BDPJ),BDPX=$P(BDPX,";;",2) W !?80-$L(BDPX)\2,BDPX K BDPX

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

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

XIT ;

 K DIC,DA,X,Y,%Y,%,BDPJ,BDPX,BDPTEXT,BDPLINE

 Q

 ;

TEXT ;Designated Prov Mgr System Banner

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

 ;;** Designated Provider Management System    **

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

 ;;QUIT

TEXTR ;reports menu

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

 ;;** Designated Provider Management System    **

 ;;**                  Reports              **

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

 ;;QUIT

TEXTE ;data entry menu

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

 ;;** Designated Provider Management System    **

 ;;**             Data Entry Menu           **

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

 ;;QUIT

TEXTM ;manager utilities

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

 ;;** Designated Provider Management System    **

 ;;**            Manager Utilities          **

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

 ;;QUIT

BDPBAN    ; IHS/CMI/TMJ - Banner for BDP ; 

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

EP        ;

V         ; GET VERSION

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

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

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

 +2        IF $GET(BDPTEXT)=""

               SET BDPTEXT="TEXT"

               SET BDPLINE=3

               GOTO PRINT

 +3        SET BDPTEXT="TEXT"_BDPTEXT

 +4        FOR BDPJ=1:1

               SET BDPX=$TEXT(@BDPTEXT+BDPJ)

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

               IF BDPX="QUIT"!(BDPX="")

                   QUIT 

               SET BDPLINE=BDPJ

PRINT      IF $DATA(IOF)

               WRITE @IOF

 +1        FOR BDPJ=1:1:BDPLINE

               SET BDPX=$TEXT(@BDPTEXT+BDPJ)

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

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

               KILL BDPX

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

SITE       IF '$DATA(DUZ(2))

               GOTO XIT

           IF 'DUZ(2)

               GOTO XIT

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

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

XIT       ;

 +1        KILL DIC,DA,X,Y,%Y,%,BDPJ,BDPX,BDPTEXT,BDPLINE

 +2        QUIT 

 +3       ;

TEXT      ;Designated Prov Mgr System Banner

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

 +2       ;;** Designated Provider Management System    **

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

 +4       ;;QUIT

TEXTR     ;reports menu

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

 +2       ;;** Designated Provider Management System    **

 +3       ;;**                  Reports              **

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

 +5       ;;QUIT

TEXTE     ;data entry menu

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

 +2       ;;** Designated Provider Management System    **

 +3       ;;**             Data Entry Menu           **

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

 +5       ;;QUIT

TEXTM     ;manager utilities

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

 +2       ;;** Designated Provider Management System    **

 +3       ;;**            Manager Utilities          **

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

 +5       ;;QUIT