Routine: XQ92

Information

XQ92 ;SEA/JLI - DATE/TIME FOR PROHIBITED TIME/DAY ;7/23/91 14:11 ;4/6/92 1:02 PM [ 04/02/2003 8:29 AM ]

Source file <XQ92.m>

Package	Total	Call Graph
VA Fileman	2	^%DT (C,DOW)^%DTC

Package	Total	Caller Graph
Kernel	9	%ZTLOAD2 XQ XQ75 XQ93 XQCHK XQCS XQSRV1 XQT XUTMUSE2
MSC RPC Broker	1	CIANBUTL

Name	Comments	DBIA/ICR reference
CHKIT	; Check for time within prohibited period
XQO	; Entry from checking via menu mapping X=date/time, XQY=OPTION, XQZ=string ; of prohibited times/dates, joined by semicolons.
CHKQUE	;Entry point to check whether queueing is required, and if so the
CHK0	; Check zero node for old prohibited time
CHKONE	; Check for within prohibited period, if so KILL %XQX
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	ICR #10077 Status: Active Usage: Supported
ENT2	;
NENT	;
ENTRY	; Check that input values are legitimate

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

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