|
Last change
on this file since 1073 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
997 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | XQ93 ; SF-ISC.SEA/JLI - CHECK FOR NEEDING TO BE QUEUED ;12/7/89 15:34 ;10/22/92 12:58 PM
|
|---|
| 2 | ;;8.0;KERNEL;;Jul 10, 1995
|
|---|
| 3 | EN ; Check whether option can be run at present time, otherwise kill
|
|---|
| 4 | ; off value of IO and display next non-prohibited time option can be run
|
|---|
| 5 | N X,Y S X="N",%DT="T" D ^%DT S X=Y D ^XQ92 Q:X'="" S Y=+XQY D NEXT^XQ92
|
|---|
| 6 | I X="" W !,$C(7),"CAN'T QUEUE IT WITHIN THE NEXT WEEK",! S DIUT=1 Q
|
|---|
| 7 | 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,!
|
|---|
| 8 | K IO
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | CHKQ ; Check for queued job date/time (returns next run time)
|
|---|
| 12 | ; On entry X contains the specified date/time for queueing the job
|
|---|
| 13 | ; On exit X contains the original date/time, or the next available
|
|---|
| 14 | ; date/time the option can be run, or if not within a week a
|
|---|
| 15 | ; NULL value of X.
|
|---|
| 16 | ; The value of XQY is the selected option number
|
|---|
| 17 | N Y D ^XQ92 Q:X'="" S Y=+XQY D NEXT^XQ92
|
|---|
| 18 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
