BARBAN.m

BARBAN ; IHS/SD/LSL - Accounts Receivable Banner FEB 4,1997 ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**3,4,22**;OCT 26, 2005;Build 38

 ;

 ;

BEG ;

 G XIT:'$D(DUZ(2))

 G XIT:(DUZ(2)'>0)

 S BAR("SITE")=$P(^DIC(4,DUZ(2),0),"^",1)

 I '$D(IOF)!'$D(IO) D

 . S IOP="HOME"

 . D ^%ZIS

 W $$EN^BARVDF("IOF")

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

 W !?11,"|"

 S BAR("VER")=$O(^DIC(9.4,"C","BAR",""))

 I BAR("VER")]"",$D(^DIC(9.4,BAR("VER"),"VERSION"))

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

 S BAR("VER")=BAR("VER")_$S(+$$LAST^ABMENVCK("IHS ACCOUNTS RECEIVABLE",$P(BAR("VER")," ",2))'=0:"p"_+$$LAST^ABMENVCK("IHS ACCOUNTS RECEIVABLE",$P(BAR("VER")," ",2)),1:"")  ;bar*1.8*22 SDR NOHEAT

 S BAR("TITL")="ACCOUNTS RECEIVABLE SYSTEM - VER "_$P(BAR("VER")," ",2)

 W ?80-$L(BAR("TITL"))\2,BAR("TITL"),?69,"|"

 S:'$D(BAR("SCRNTITL")) BAR("SCRNTITL")="??????"

 W !,?11,"+",?80-$L($P($G(XQY0),U,2))\2,$P($G(XQY0),U,2),?69,"+"

 W !?11,"|"

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

 W ?69,"|"

 ;UFMS BAR*1.8*3

 ;I $D(UFMSESID) D

 ;I $G(UFMSESID) D   ;IHS/SD/TPF BAR*1.8*4 IM26184  ;bar*1.8*22 SDR

 I $G(UFMSESID),$$CURSTAT^BARUFUT(DUZ,+$G(UFMSESID),"E")="OPEN" D  ;bar*1.8*22 SDR

 .S CASHMSG="** LOGGED INTO CASHIERING MODE **"

 .W !?11,"|"

 .W ?80-$L(CASHMSG)\2,CASHMSG

 .W ?69,"|"

 ;END UFMS BAR*1.8*3

 ;

END ;

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

 I $D(^VA(200,DUZ,0)) D

 .W !,?5,"User: ",$P(^VA(200,DUZ,0),U)

 .W ?35,$$VAL^XBDIQ1(200,DUZ,29)

 .D NOW^%DTC

 .W ?55,$$MDT^BARDUTL(%)

 ;

XIT ;

 K BAR

 Q

BARBAN    ; IHS/SD/LSL - Accounts Receivable Banner FEB 4,1997 ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**3,4,22**;OCT 26, 2005;Build 38

 +2       ;

 +3       ;

BEG       ;

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

               GOTO XIT

 +2        IF (DUZ(2)'>0)

               GOTO XIT

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

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

               Begin DoDot:1

 +5                SET IOP="HOME"

 +6                DO ^%ZIS

               End DoDot:1

 +7        WRITE $$EN^BARVDF("IOF")

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

 +9        WRITE !?11,"|"

 +10       SET BAR("VER")=$ORDER(^DIC(9.4,"C","BAR",""))

 +11       IF BAR("VER")]""

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

 +12       SET BAR("VER")=$SELECT('$TEST:"VERSION 1.0",1:"VERSION "_^DIC(9.4,BAR("VER"),"VERSION"))

 +13      ;bar*1.8*22 SDR NOHEAT

           SET BAR("VER")=BAR("VER")_$SELECT(+$$LAST^ABMENVCK("IHS ACCOUNTS RECEIVABLE",$PIECE(BAR("VER")," ",2))'=0:"p"_+$$LAST^ABMENVCK("IHS ACCOUNTS RECEIVABLE",$PIECE(BAR("VER")," ",2)),1:"")

 +14       SET BAR("TITL")="ACCOUNTS RECEIVABLE SYSTEM - VER "_$PIECE(BAR("VER")," ",2)

 +15       WRITE ?80-$LENGTH(BAR("TITL"))\2,BAR("TITL"),?69,"|"

 +16       IF '$DATA(BAR("SCRNTITL"))

               SET BAR("SCRNTITL")="??????"

 +17       WRITE !,?11,"+",?80-$LENGTH($PIECE($GET(XQY0),U,2))\2,$PIECE($GET(XQY0),U,2),?69,"+"

 +18       WRITE !?11,"|"

 +19       WRITE ?80-$LENGTH(BAR("SITE"))\2,BAR("SITE")

 +20       WRITE ?69,"|"

 +21      ;UFMS BAR*1.8*3

 +22      ;I $D(UFMSESID) D

 +23      ;I $G(UFMSESID) D   ;IHS/SD/TPF BAR*1.8*4 IM26184  ;bar*1.8*22 SDR

 +24      ;bar*1.8*22 SDR

           IF $GET(UFMSESID)

               IF $$CURSTAT^BARUFUT(DUZ,+$GET(UFMSESID),"E")="OPEN"

                   Begin DoDot:1

 +25                   SET CASHMSG="** LOGGED INTO CASHIERING MODE **"

 +26                   WRITE !?11,"|"

 +27                   WRITE ?80-$LENGTH(CASHMSG)\2,CASHMSG

 +28                   WRITE ?69,"|"

                   End DoDot:1

 +29      ;END UFMS BAR*1.8*3

 +30      ;

END       ;

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

 +2        IF $DATA(^VA(200,DUZ,0))

               Begin DoDot:1

 +3                WRITE !,?5,"User: ",$PIECE(^VA(200,DUZ,0),U)

 +4                WRITE ?35,$$VAL^XBDIQ1(200,DUZ,29)

 +5                DO NOW^%DTC

 +6                WRITE ?55,$$MDT^BARDUTL(%)

               End DoDot:1

 +7       ;

XIT       ;

 +1        KILL BAR

 +2        QUIT