AGBAN.m

AGBAN ; IHS/ASDS/EFG - 3P Billing Banner MODIFIED FOR AG ;  

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

 S AGM(0)=$S($D(Y(0)):$P(Y(0),U,2),$D(XQU0):$P(ZQY0,U,2),1:$P($G(^XUTL("XQ",$J,"S")),U,3))

 D SET^XBSITE:'$D(DUZ(2)) I $D(DUZ(2)) S AGM("SITE")=$P(^DIC(4,DUZ(2),0),"^",1) I 1

 E  G XIT

 I '$D(IOF)!'$D(IO) S IOP=ION D ^%ZIS

 W $$S^AGVDF("IOF")

ENT W !!

 W !?11,"+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"

 W !?11,"|"

 S AGM("VER")=$O(^DIC(9.4,"C","AG","")) I AGM("VER")]"",$D(^DIC(9.4,AGM("VER"),"VERSION"))

 S AGM("VER")=$S('$T:"VERSION 4.4",1:"VERSION "_^DIC(9.4,AGM("VER"),"VERSION"))

 I '$D(AGM("PACKAGE")) S AGM("TITL")="PATIENT REGISTRATION SYSTEM - VER "_$P(AGM("VER")," ",2) W ?80-$L(AGM("TITL"))\2,AGM("TITL"),?69,"|"

 E  S AGM("TITL")="PATIENT REGISTRATION SYSTEM" W ?80-$L(AGM("TITL"))\2,AGM("TITL"),?69,"|"

 W !,?11,"+"

 I $D(AGM("PACKAGE")) W ?80-$L(AGM("VER"))\2,AGM("VER"),?69,"+"

 E  W ?80-$L($P(AGM(0),U,2))\2,$P(AGM(0),U,2),?69,"+"

 W !?11,"|"

 W ?80-$L(AGM("SITE"))\2,AGM("SITE")

 W ?69,"|"

END W !?11,"+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"

 W !

XIT K AGM

 Q

AGBAN     ; IHS/ASDS/EFG - 3P Billing Banner MODIFIED FOR AG ;  

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

 +3        SET AGM(0)=$SELECT($DATA(Y(0)):$PIECE(Y(0),U,2),$DATA(XQU0):$PIECE(ZQY0,U,2),1:$PIECE($GET(^XUTL("XQ",$JOB,"S")),U,3))

 +4        IF '$DATA(DUZ(2))

               DO SET^XBSITE

           IF $DATA(DUZ(2))

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

               IF 1

 +5       IF '$TEST

               GOTO XIT

 +6        IF '$DATA(IOF)!'$DATA(IO)

               SET IOP=ION

               DO ^%ZIS

 +7        WRITE $$S^AGVDF("IOF")

ENT        WRITE !!

 +1        WRITE !?11,"+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"

 +2        WRITE !?11,"|"

 +3        SET AGM("VER")=$ORDER(^DIC(9.4,"C","AG",""))

           IF AGM("VER")]""

               IF $DATA(^DIC(9.4,AGM("VER"),"VERSION"))

 +4        SET AGM("VER")=$SELECT('$TEST:"VERSION 4.4",1:"VERSION "_^DIC(9.4,AGM("VER"),"VERSION"))

 +5        IF '$DATA(AGM("PACKAGE"))

               SET AGM("TITL")="PATIENT REGISTRATION SYSTEM - VER "_$PIECE(AGM("VER")," ",2)

               WRITE ?80-$LENGTH(AGM("TITL"))\2,AGM("TITL"),?69,"|"

 +6       IF '$TEST

               SET AGM("TITL")="PATIENT REGISTRATION SYSTEM"

               WRITE ?80-$LENGTH(AGM("TITL"))\2,AGM("TITL"),?69,"|"

 +7        WRITE !,?11,"+"

 +8        IF $DATA(AGM("PACKAGE"))

               WRITE ?80-$LENGTH(AGM("VER"))\2,AGM("VER"),?69,"+"

 +9       IF '$TEST

               WRITE ?80-$LENGTH($PIECE(AGM(0),U,2))\2,$PIECE(AGM(0),U,2),?69,"+"

 +10       WRITE !?11,"|"

 +11       WRITE ?80-$LENGTH(AGM("SITE"))\2,AGM("SITE")

 +12       WRITE ?69,"|"

END        WRITE !?11,"+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"

 +1        WRITE !

XIT        KILL AGM

 +1        QUIT