BDWBAN.m

BDWBAN ; IHS/CMI/LAB - BANNER FOR DATA WAREHOUSE ;

 ;;1.0;IHS DATA WAREHOUSE;;JAN 23, 2006

V ; GET VERSION

 S BDW("VERSION")="1.0"

 I $G(BDWTEXT)="" S BDWTEXT="TEXT",BDWLINE=3 G PRINT

 S BDWTEXT="TEXT"_BDWTEXT

 F BDWJ=1:1 S BDWX=$T(@BDWTEXT+BDWJ),BDWX=$P(BDWX,";;",2) Q:BDWX="QUIT"!(BDWX="")  S BDWLINE=BDWJ

PRINT W:$D(IOF) @IOF

 F BDWJ=1:1:BDWLINE S BDWX=$T(@BDWTEXT+BDWJ),BDWX=$P(BDWX,";;",2) W !?80-$L(BDWX)\2,BDWX K BDWX

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

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

XIT ;

 K DIC,DA,X,Y,%Y,%,BDWJ,BDWX,BDWTEXT,BDWLINE

 Q

TEXT ;

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

 ;;**           Data Warehouse Export        **

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

 Q

TEXTB ;

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

 ;;**       Data Warehouse Export Module   **

 ;;**           BACKLOAD DATA MENU         **

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

 Q

TEXTR ;

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

 ;;**       Data Warehouse Export Module   **

 ;;**            REPORTS MODULE            **

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

 Q

BDWBAN    ; IHS/CMI/LAB - BANNER FOR DATA WAREHOUSE ;

 +1       ;;1.0;IHS DATA WAREHOUSE;;JAN 23, 2006

V         ; GET VERSION

 +1        SET BDW("VERSION")="1.0"

 +2        IF $GET(BDWTEXT)=""

               SET BDWTEXT="TEXT"

               SET BDWLINE=3

               GOTO PRINT

 +3        SET BDWTEXT="TEXT"_BDWTEXT

 +4        FOR BDWJ=1:1

               SET BDWX=$TEXT(@BDWTEXT+BDWJ)

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

               IF BDWX="QUIT"!(BDWX="")

                   QUIT 

               SET BDWLINE=BDWJ

PRINT      IF $DATA(IOF)

               WRITE @IOF

 +1        FOR BDWJ=1:1:BDWLINE

               SET BDWX=$TEXT(@BDWTEXT+BDWJ)

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

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

               KILL BDWX

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

SITE       IF '$DATA(DUZ(2))

               GOTO XIT

           IF 'DUZ(2)

               GOTO XIT

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

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

XIT       ;

 +1        KILL DIC,DA,X,Y,%Y,%,BDWJ,BDWX,BDWTEXT,BDWLINE

 +2        QUIT 

TEXT      ;

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

 +2       ;;**           Data Warehouse Export        **

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

 +4        QUIT 

TEXTB     ;

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

 +2       ;;**       Data Warehouse Export Module   **

 +3       ;;**           BACKLOAD DATA MENU         **

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

 +5        QUIT 

TEXTR     ;

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

 +2       ;;**       Data Warehouse Export Module   **

 +3       ;;**            REPORTS MODULE            **

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

 +5        QUIT