ABPAMAIN.m

ABPAMAIN ;PACKAGE STARTUP ROUTINE;[ 07/25/91  11:26 AM ]

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

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

 ;PROCEDURE TO PROCESS SYSTEM START-UP PROCEDURES

 D ^ABPAVAR W @ABPAROFF,@IOF S ABPAHD1="MASTER MENU" D HEADER

 Q

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

EOP ;PROCEDURE TO PROCESS CLEARING CRT TO END OF PAGE

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

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

 Q

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

PAUSE ;PROCEDURE TO PROCESS CRT PAUSE

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

 I $D(ABPAMESS)=0 D

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

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

 D EOP W:IOST["QUME" ! W @ABPARON,ABPAMESS,@ABPAROFF,"  "

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

 R *X:DTIME K ABPAMESS S ABPAX=$C(X)

 Q

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

DTCVT ;PROCEDURE TO PROCESS FILEMAN DATE CONVERSION

 ;REQUIRES 'ABPA("DTIN")' BE DEFINED

 ;RETURNS 'ABPA("DTOUT")' IN MM/DD/YY FORMAT

 S ABPA("DTOUT")=+$E(ABPA("DTIN"),4,5)_"/"_+$E(ABPA("DTIN"),6,7)_"/"

 S ABPA("DTOUT")=ABPA("DTOUT")_+$E(ABPA("DTIN"),2,3)

 Q

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

HEADER ;PROCEDURE TO WRITE SCREEN HEADINGS

 ;REQUIRES 'ABPATLE' BE DEFINED

 K ABPA("HD") S ABPA("HD",1)=ABPATLE

 F I=1:1 Q:$D(@("ABPAHD"_I))'=1  S ABPA("HD",I+1)=@("ABPAHD"_I)

 D ^ABPAHD

 Q

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

QUEUED ;PROCEDURE TO PROCESS TASK MANAGER REQUEST MESSAGE

 ;REQUIRES 'ZTSK' BE DEFINED

 K ABPAMESS S ABPAMESS="REQUEST QUEUED!  Task Number: "_ZTSK

 S ABPAMESS(2)="... Press any key to continue ... " D PAUSE

 Q

ABPAMAIN  ;PACKAGE STARTUP ROUTINE;[ 07/25/91  11:26 AM ]

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

 +2       ;--------------------------------------------------------------------

 +3       ;PROCEDURE TO PROCESS SYSTEM START-UP PROCEDURES

 +4        DO ^ABPAVAR

           WRITE @ABPAROFF,@IOF

           SET ABPAHD1="MASTER MENU"

           DO HEADER

 +5        QUIT 

 +6       ;--------------------------------------------------------------------

EOP       ;PROCEDURE TO PROCESS CLEARING CRT TO END OF PAGE

 +1        IF $DATA(ABPAEOP)=1

               IF ABPAEOP'["[K"

                   WRITE @ABPAEOP

 +2        IF $DATA(ABPAEOP)=1

               IF ABPAEOP["[K"

                   XECUTE ABPAEOP

 +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(ABPAMESS)=0

               Begin DoDot:1

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

                   SET DY=23

                   XECUTE XY

               End DoDot:1

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

               SET DY=23

               XECUTE XY

 +5        DO EOP

           IF IOST["QUME"

               WRITE !

           WRITE @ABPARON,ABPAMESS,@ABPAROFF,"  "

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

               WRITE !,ABPAMESS(2),"  "

 +7        READ *X:DTIME

           KILL ABPAMESS

           SET ABPAX=$CHAR(X)

 +8        QUIT 

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

DTCVT     ;PROCEDURE TO PROCESS FILEMAN DATE CONVERSION

 +1       ;REQUIRES 'ABPA("DTIN")' BE DEFINED

 +2       ;RETURNS 'ABPA("DTOUT")' IN MM/DD/YY FORMAT

 +3        SET ABPA("DTOUT")=+$EXTRACT(ABPA("DTIN"),4,5)_"/"_+$EXTRACT(ABPA("DTIN"),6,7)_"/"

 +4        SET ABPA("DTOUT")=ABPA("DTOUT")_+$EXTRACT(ABPA("DTIN"),2,3)

 +5        QUIT 

 +6       ;---------------------------------------------------------------------

HEADER    ;PROCEDURE TO WRITE SCREEN HEADINGS

 +1       ;REQUIRES 'ABPATLE' BE DEFINED

 +2        KILL ABPA("HD")

           SET ABPA("HD",1)=ABPATLE

 +3        FOR I=1:1

               IF $DATA(@("ABPAHD"_I))'=1

                   QUIT 

               SET ABPA("HD",I+1)=@("ABPAHD"_I)

 +4        DO ^ABPAHD

 +5        QUIT 

 +6       ;---------------------------------------------------------------------

QUEUED    ;PROCEDURE TO PROCESS TASK MANAGER REQUEST MESSAGE

 +1       ;REQUIRES 'ZTSK' BE DEFINED

 +2        KILL ABPAMESS

           SET ABPAMESS="REQUEST QUEUED!  Task Number: "_ZTSK

 +3        SET ABPAMESS(2)="... Press any key to continue ... "

           DO PAUSE

 +4        QUIT