ABPAVAR.m

ABPAVAR ;PVT INS VARIABLE INITIALIZER; [ 08/07/91  11:24 AM ]

 ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991

 D CRT G MISC

CRT ;ENTRY POINT - SET CRT PARAMETERS

 D DT^DICRW S U="^",ABPAHOME="",ABPARON="",ABPAROFF="",ABPAEOL=""

 S ABPAEOP="",ABPABON="",ABPABOFF=""

 S IOP=$I D ^%ZIS K IOP

 D CURRENT^%ZIS

 I $D(IOST(0))=1&($D(^%ZIS(2,IOST(0),5))=1) D

 .S ABPAHOME=$P(^%ZIS(2,IOST(0),5),"^",3)_",#"

 .S ABPARON=$P(^%ZIS(2,IOST(0),5),"^",4)

 .S ABPAROFF=$P(^%ZIS(2,IOST(0),5),"^",5)

 .S ABPAEOL=$P(^%ZIS(2,IOST(0),5),"^",6)

 .S ABPAEOP=$P(^%ZIS(2,IOST(0),5),"^",7) I ABPAEOL["[K" D

 ..S ABPAEOP="F ABPAI=1:1:IOSL-(DY+1) W *27,""[K"",! "

 ..S ABPAEOP=ABPAEOP_"I ABPAI=(IOSL-(DY+1)) X XY"

 .S ABPABON=$P(^%ZIS(2,IOST(0),5),"^",8)

 .S ABPABOFF=$P(^%ZIS(2,IOST(0),5),"^",9)

 Q

MISC ;

 S:$D(DUZ(2))'=1 DUZ(2)=$P(^AUTTSITE(1,0),"^")

TITLE ;

 S ABPATLE="AO 3P BILL TRACKING SYSTEM "

 S ABPAVER=$O(^DIC(9.4,"C","ABPA",""))

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

 .S ABPAVER="V."_^DIC(9.4,ABPAVER,"VERSION")

 .S ABPATLE=ABPATLE_ABPAVER Q

KERNEL ;

 S ABPAKVER=$O(^DIC(9.4,"B","KERNEL",""))

 I ABPAKVER]"" I $D(^DIC(9.4,ABPAKVER,"VERSION"))=1 D

 .S ABPAKVER=^("VERSION") Q

USER ;

 S ABPAUSER="??" I $D(^DIC(3,DUZ,.1))=1 S ABPAUSER=$P(^(.1),"^",4)

 S ABPADEV=$I

OPT ;

 D ^ABPAOPT

 Q

ABPAVAR   ;PVT INS VARIABLE INITIALIZER; [ 08/07/91  11:24 AM ]

 +1       ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991

 +2        DO CRT

           GOTO MISC

CRT       ;ENTRY POINT - SET CRT PARAMETERS

 +1        DO DT^DICRW

           SET U="^"

           SET ABPAHOME=""

           SET ABPARON=""

           SET ABPAROFF=""

           SET ABPAEOL=""

 +2        SET ABPAEOP=""

           SET ABPABON=""

           SET ABPABOFF=""

 +3        SET IOP=$IO

           DO ^%ZIS

           KILL IOP

 +4        DO CURRENT^%ZIS

 +5        IF $DATA(IOST(0))=1&($DATA(^%ZIS(2,IOST(0),5))=1)

               Begin DoDot:1

 +6                SET ABPAHOME=$PIECE(^%ZIS(2,IOST(0),5),"^",3)_",#"

 +7                SET ABPARON=$PIECE(^%ZIS(2,IOST(0),5),"^",4)

 +8                SET ABPAROFF=$PIECE(^%ZIS(2,IOST(0),5),"^",5)

 +9                SET ABPAEOL=$PIECE(^%ZIS(2,IOST(0),5),"^",6)

 +10               SET ABPAEOP=$PIECE(^%ZIS(2,IOST(0),5),"^",7)

                   IF ABPAEOL["[K"

                       Begin DoDot:2

 +11                       SET ABPAEOP="F ABPAI=1:1:IOSL-(DY+1) W *27,""[K"",! "

 +12                       SET ABPAEOP=ABPAEOP_"I ABPAI=(IOSL-(DY+1)) X XY"

                       End DoDot:2

 +13               SET ABPABON=$PIECE(^%ZIS(2,IOST(0),5),"^",8)

 +14               SET ABPABOFF=$PIECE(^%ZIS(2,IOST(0),5),"^",9)

               End DoDot:1

 +15       QUIT 

MISC      ;

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

               SET DUZ(2)=$PIECE(^AUTTSITE(1,0),"^")

TITLE     ;

 +1        SET ABPATLE="AO 3P BILL TRACKING SYSTEM "

 +2        SET ABPAVER=$ORDER(^DIC(9.4,"C","ABPA",""))

 +3        IF ABPAVER]""

               IF $DATA(^DIC(9.4,ABPAVER,"VERSION"))

                   Begin DoDot:1

 +4                    SET ABPAVER="V."_^DIC(9.4,ABPAVER,"VERSION")

 +5                    SET ABPATLE=ABPATLE_ABPAVER

                       QUIT 

                   End DoDot:1

KERNEL    ;

 +1        SET ABPAKVER=$ORDER(^DIC(9.4,"B","KERNEL",""))

 +2        IF ABPAKVER]""

               IF $DATA(^DIC(9.4,ABPAKVER,"VERSION"))=1

                   Begin DoDot:1

 +3                    SET ABPAKVER=^("VERSION")

                       QUIT 

                   End DoDot:1

USER      ;

 +1        SET ABPAUSER="??"

           IF $DATA(^DIC(3,DUZ,.1))=1

               SET ABPAUSER=$PIECE(^(.1),"^",4)

 +2        SET ABPADEV=$IO

OPT       ;

 +1        DO ^ABPAOPT

 +2        QUIT