ABPVZMM.m

ABPVZMM ;FACILITY PVT-INS PACKAGE STARTUP ROUTINE;[ 06/03/91  2:45 PM ]

 ;;2.0;FACILITY PVT-INS TRACKING;*0*;IHS-OKC/KJR;AUGUST 7, 1991

 ;PROCEDURE TO PROCESS SYSTEM STARTUP TASKS

 D ^%AUCLS,^ABPVVAR W @ABPVROFF,@FF

 K ABPV("HD") S ABPV("HD",1)=ABPVTLE

 S ABPV("HD",2)="MASTER MENU" D ^ABPVHD

 Q

 ;--------------------------------------------------------------------

EOP ;TO PROCEDURE PROCESS CLEARING CRT TO END OF PAGE

 I $D(ABPVEOP)=1 I ABPVEOP'["[K" W @ABPVEOP

 I $D(ABPVEOP)=1 I ABPVEOP["[K" X ABPVEOP

 Q

 ;--------------------------------------------------------------------

PAUSE ;PROCEDURE TO PROCESS CRT PAUSE

 S IOP=$I D ^%ZIS K IOP W ! S DX=0,DY=22 X XY

 I $D(ABPVMESS)=0 D

 .S ABPVMESS="...Press any key to continue...",DY=23 X XY

 I $D(ABPVMESS(2))'=1 S DY=23 X XY

 D EOP W:IOST["QUME" ! W @ABPVRON,ABPVMESS,@ABPVROFF,"  "

 I $D(ABPVMESS(2))=1 W !,ABPVMESS(2),"  "

 R *X:DTIME G:'$T PAUSE K ABPVMESS S ABPVX=$C(X)

 Q

 ;--------------------------------------------------------------------

YN ;PROCEDURE TO PROCESS 'YES/NO' DECISION

 S DIR(0)="Y" S:$D(ABPVMESS)=1 DIR("A")=ABPVMESS W *7 D ^DIR

 Q

 ;---------------------------------------------------------------------

SCREEN ;PROCEDURE TO WRITE SCREEN HEADING

 K ABPV("HD") S ABPV("HD",1)=ABPVTLE,ABPV("HD",2)=X D ^ABPVHD

 Q

ABPVZMM   ;FACILITY PVT-INS PACKAGE STARTUP ROUTINE;[ 06/03/91  2:45 PM ]

 +1       ;;2.0;FACILITY PVT-INS TRACKING;*0*;IHS-OKC/KJR;AUGUST 7, 1991

 +2       ;PROCEDURE TO PROCESS SYSTEM STARTUP TASKS

 +3        DO ^%AUCLS

           DO ^ABPVVAR

           WRITE @ABPVROFF,@FF

 +4        KILL ABPV("HD")

           SET ABPV("HD",1)=ABPVTLE

 +5        SET ABPV("HD",2)="MASTER MENU"

           DO ^ABPVHD

 +6        QUIT 

 +7       ;--------------------------------------------------------------------

EOP       ;TO PROCEDURE PROCESS CLEARING CRT TO END OF PAGE

 +1        IF $DATA(ABPVEOP)=1

               IF ABPVEOP'["[K"

                   WRITE @ABPVEOP

 +2        IF $DATA(ABPVEOP)=1

               IF ABPVEOP["[K"

                   XECUTE ABPVEOP

 +3        QUIT 

 +4       ;--------------------------------------------------------------------

PAUSE     ;PROCEDURE TO PROCESS CRT PAUSE

 +1        SET IOP=$IO

           DO ^%ZIS

           KILL IOP

           WRITE !

           SET DX=0

           SET DY=22

           XECUTE XY

 +2        IF $DATA(ABPVMESS)=0

               Begin DoDot:1

 +3                SET ABPVMESS="...Press any key to continue..."

                   SET DY=23

                   XECUTE XY

               End DoDot:1

 +4        IF $DATA(ABPVMESS(2))'=1

               SET DY=23

               XECUTE XY

 +5        DO EOP

           IF IOST["QUME"

               WRITE !

           WRITE @ABPVRON,ABPVMESS,@ABPVROFF,"  "

 +6        IF $DATA(ABPVMESS(2))=1

               WRITE !,ABPVMESS(2),"  "

 +7        READ *X:DTIME

           IF '$TEST

               GOTO PAUSE

           KILL ABPVMESS

           SET ABPVX=$CHAR(X)

 +8        QUIT 

 +9       ;--------------------------------------------------------------------

YN        ;PROCEDURE TO PROCESS 'YES/NO' DECISION

 +1        SET DIR(0)="Y"

           IF $DATA(ABPVMESS)=1

               SET DIR("A")=ABPVMESS

           WRITE *7

           DO ^DIR

 +2        QUIT 

 +3       ;---------------------------------------------------------------------

SCREEN    ;PROCEDURE TO WRITE SCREEN HEADING

 +1        KILL ABPV("HD")

           SET ABPV("HD",1)=ABPVTLE

           SET ABPV("HD",2)=X

           DO ^ABPVHD

 +2        QUIT