XQ92 ;SEA/JLI - DATE/TIME FOR PROHIBITED TIME/DAY ;7/23/91 14:11 ;4/6/92 1:02 PM
Source file <XQ92.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | ^%DT (C,DOW)^%DTC |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
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
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(19 - [#19] | ENT2+1, ENT2+2, ENT2+4, CHK0+1, NEXT+4, CHKQUE+4 |
^HOLIDAY - [#40.5] | CHKONE+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | ENTRY+1~ |
%D | ENTRY+1~ |
>> %DT | NENT+1*, CHKQUE+4* |
%H | ENTRY+1~ |
%M | ENTRY+1~ |
%T | ENTRY+1~ |
%XQ1 | ENTRY+1~, CHKONE+1*, CHKONE+2, CHKONE+7*, CHKONE+9, XQO+2*, XQO+4! |
%XQ2 | ENTRY+1~, CHKONE+1*, CHKONE+2, CHKONE+4, XQO+4! |
%XQ3 | ENTRY+1~, CHKONE+1*, CHKONE+2, CHKONE+4*, CHKONE+5*, CHKONE+6*, CHKONE+7*, CHKONE+8*, CHKONE+9, XQO+4! |
%XQA | ENTRY+1~, ENT2+4*, ENT2+5!, CHKIT+1*, CHKONE+6, XQO+4! |
%XQB | ENTRY+1~, CHKONE+4*, XQO+4!, NENT+1*, NENT+2!, NENT+3! |
%XQB1 | NENT+1*, NENT+2, NENT+3! |
%XQI | ENT2+4*, ENT2+5!, CHKIT+2*, CHKONE+1, CHKONE+5, XQO+2*, XQO+4! |
%XQJ | XQO+4!, NENT+2*, NENT+3! |
%XQK | ENTRY+1~, CHKONE+6*, CHKONE+7! |
%XQK0 | ENTRY+1~, CHKONE+6*, CHKONE+7! |
%XQK1 | ENTRY+1~, CHKONE+4*, CHKONE+6*, CHKONE+7! |
%XQK2 | ENTRY+1~, CHKONE+6*, CHKONE+7! |
%XQOP | ENTRY+2~, ENTRY+3*, ENTRY+4!, ENT2+2, ENT2+4, CHK0+1, NEXT+4*, CHKQUE+4*! |
%XQX | ENTRY+2~, ENT2+2!, ENT2+5, CHK0+1!, CHKIT+3, CHKONE+9!, XQO+2!, XQO+3, XQO+4! |
%XQX( | ENT2+4*, CHKIT+2, CHKONE+1, CHKONE+5, XQO+2* |
%XQX(1 | CHK0+1* |
%XQX1 | NENT+1*! |
%XQX2 | NENT+1*! |
%Y | ENTRY+2~ |
U | ENT2+4, CHK0+1, CHKONE+8 |
>> X | ENTRY+3, ENT2+1, CHKIT+3*, CHKONE+1, CHKONE+4, CHKONE+7, CHKONE+8*, NENT+1*, NENT+2*, CHKQUE+4* |
>> X1 | NENT+1* |
>> X2 | NENT+1* |
XQUEFLG | ENTRY+2~, ENTRY+4!, CHKQUE+4*, CHKQUE+5* |
XQY | ENT2+1, ENT2+2, ENT2+4, CHK0+1, NEXT+3~*, NEXT+4, CHKQUE+4 |
>> XQZ | XQO+2 |
>> Y | CHKONE+8, NEXT+3, NENT+1, CHKQUE+4 |