XQ93.m

XQ93 ; SF-ISC.SEA/JLI - CHECK FOR NEEDING TO BE QUEUED ;12/7/89  15:34 ;10/22/92  12:58 PM [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 ;;8.0;KERNEL;;Jul 10, 1995

EN ; Check whether option can be run at present time, otherwise kill

 ; off value of IO and display next non-prohibited time option can be run

 N X,Y S X="N",%DT="T" D ^%DT S X=Y D ^XQ92 Q:X'=""  S Y=+XQY D NEXT^XQ92

 I X="" W !,$C(7),"CAN'T QUEUE IT WITHIN THE NEXT WEEK",! S DIUT=1 Q

 N X1,X2 S Y=X S X2=X\1,X1=DT D D^%DTC S Y="T"_$S(X>0:"+"_X,1:"")_"@"_$E(Y_"00",9,10)_":"_$E(Y_"0000",11,12) W !,$C(7),"THIS OPTION CANNOT BE RUN NOW --  IT CAN BE QUEUED FOR ",Y,!

 K IO

 Q

 ;

CHKQ ; Check for queued job date/time (returns next run time)

 ;    On entry X contains the specified date/time for queueing the job

 ;    On exit X contains the original date/time, or the next available

 ;        date/time the option can be run, or if not within a week a

 ;        NULL value of X.

 ;    The value of XQY is the selected option number

 N Y D ^XQ92 Q:X'=""  S Y=+XQY D NEXT^XQ92

 Q

XQ93      ; SF-ISC.SEA/JLI - CHECK FOR NEEDING TO BE QUEUED ;12/7/89  15:34 ;10/22/92  12:58 PM [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;;Jul 10, 1995

EN        ; Check whether option can be run at present time, otherwise kill

 +1       ; off value of IO and display next non-prohibited time option can be run

 +2        NEW X,Y

           SET X="N"

           SET %DT="T"

           DO ^%DT

           SET X=Y

           DO ^XQ92

           IF X'=""

               QUIT 

           SET Y=+XQY

           DO NEXT^XQ92

 +3        IF X=""

               WRITE !,$CHAR(7),"CAN'T QUEUE IT WITHIN THE NEXT WEEK",!

               SET DIUT=1

               QUIT 

 +4        NEW X1,X2

           SET Y=X

           SET X2=X\1

           SET X1=DT

           DO D^%DTC

           SET Y="T"_$SELECT(X>0:"+"_X,1:"")_"@"_$EXTRACT(Y_"00",9,10)_":"_$EXTRACT(Y_"0000",11,12)

           WRITE !,$CHAR(7),"THIS OPTION CANNOT BE RUN NOW --  IT CAN BE QUEUED FOR ",Y,!

 +5        KILL IO

 +6        QUIT 

 +7       ;

CHKQ      ; Check for queued job date/time (returns next run time)

 +1       ;    On entry X contains the specified date/time for queueing the job

 +2       ;    On exit X contains the original date/time, or the next available

 +3       ;        date/time the option can be run, or if not within a week a

 +4       ;        NULL value of X.

 +5       ;    The value of XQY is the selected option number

 +6        NEW Y

           DO ^XQ92

           IF X'=""

               QUIT 

           SET Y=+XQY

           DO NEXT^XQ92

 +7        QUIT