BOPBAN.m

BOPBAN ;IHS/CIA/PLS - Banner for AUTOMATED DISPENSING INTERFACE Package;06-Apr-2005 13:41;SM

 ;;1.0;AUTOMATED DISPENSING INTERFACE;;Jul 26, 2005

 ;

 N VER,LP,SITE

 S VER=$$VERSION^XPDUTL("AUTOMATED DISPENSING INTERFACE")

 S SITE=$$GET1^DIQ(4,$G(DUZ(2)),.01)

 W:$D(IOF) @IOF

 F LP=1:1 S LINE=$T(TEXT+LP) Q:$P(LINE,";",3)=""  D

 .W !?80-$L($P(LINE,";",3))\2,$P(LINE,";",3)

 W !?80-(8+$L(VER))\2,"Version ",VER

 I $G(DUZ(2)) W !!,?80-$L(SITE)\2,SITE

 Q

 ;

TEXT ;Main banner

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

 ;;** IHS Pharmacy Automated Dispensing Interface System **

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

 ;;

BOPBAN    ;IHS/CIA/PLS - Banner for AUTOMATED DISPENSING INTERFACE Package;06-Apr-2005 13:41;SM

 +1       ;;1.0;AUTOMATED DISPENSING INTERFACE;;Jul 26, 2005

 +2       ;

 +3        NEW VER,LP,SITE

 +4        SET VER=$$VERSION^XPDUTL("AUTOMATED DISPENSING INTERFACE")

 +5        SET SITE=$$GET1^DIQ(4,$GET(DUZ(2)),.01)

 +6        IF $DATA(IOF)

               WRITE @IOF

 +7        FOR LP=1:1

               SET LINE=$TEXT(TEXT+LP)

               IF $PIECE(LINE,";",3)=""

                   QUIT 

               Begin DoDot:1

 +8                WRITE !?80-$LENGTH($PIECE(LINE,";",3))\2,$PIECE(LINE,";",3)

               End DoDot:1

 +9        WRITE !?80-(8+$LENGTH(VER))\2,"Version ",VER

 +10       IF $GET(DUZ(2))

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

 +11       QUIT 

 +12      ;

TEXT      ;Main banner

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

 +2       ;;** IHS Pharmacy Automated Dispensing Interface System **

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

 +4       ;;