- 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
- ;---------------------------------------------------------------------
- ;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 ;---------------------------------------------------------------------
- +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