XQ93 ; SF-ISC.SEA/JLI - CHECK FOR NEEDING TO BE QUEUED ;12/7/89 15:34 ;10/22/92 12:58 PM
;;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXQ93 1015 printed Dec 13, 2024@02:05:15 Page 2
XQ93 ; SF-ISC.SEA/JLI - CHECK FOR NEEDING TO BE QUEUED ;12/7/89 15:34 ;10/22/92 12:58 PM
+1 ;;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
