XQ92 ;SEA/JLI - DATE/TIME FOR PROHIBITED TIME/DAY ;7/23/91 14:11 ;4/6/92 1:02 PM
Source file <XQ92.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENTRY | ; Check that input values are legitimate
|
|
| ENT2 | ;
|
|
| CHK0 | ; Check zero node for old prohibited time
|
|
| CHKIT | ; Check for time within prohibited period
|
|
| CHKONE | ; Check for within prohibited period, if so KILL %XQX
|
|
| XQO | ; Entry from checking via menu mapping X=date/time, XQY=OPTION, XQZ=string
; of prohibited times/dates, joined by semicolons. |
|
| NEXT | ;Find next time which is NOT prohibited from current date/time
; Entry is with +Y equal to the option number ; Return is with the next non-prohibited date/time in X |
|
| NENT | ;
|
|
| CHKQUE | ;Entry point to check whether queueing is required, and if so the
|
