Routine: %ZTLOAD2

Package	Total	Call Graph
Kernel	4	($$FMTE,$$FMTH,$$HTFM)^%ZTLOAD7 $$H3^%ZTM DQ^%ZTM4 (,NEXT)^XQ92
VA Fileman	1	^%DT

Package

Total

Call Graph

($$FMTE,$$FMTH,$$HTFM)^%ZTLOAD7 $$H3^%ZTM DQ^%ZTM4 (,NEXT)^XQ92

^%DT

Package	Total	Caller Graph
Kernel	2	%ZTLOAD %ZTLOAD1

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
OPTION	;GET--get option data
RESTRCT	;GET--flag tasks with output restricted from certain times; check.
BADDEV(MSG)	;GET--Reject task because of device issue.
SPOOL	;DEVICE--for predefined ZTIO spool device, pick up IO("DOC") if missing
REJECT(MSG)	;GET--reject bad task
AKS()	;Locked before called
ASK	;GET--ask for start time
EXIT	;Report back to app.
ZTKIL	;GET--convert forget time
ASKSTOP	;e.f. Called from ASKSTOP^%ZTLOAD

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"QUEUE INFORMATION MISSING - NOT QUEUED",!,MSG Line Location: REJECT+1
Function Call: WRITE	Prompt: !,"Queueing not allowed to device -- NOT QUEUED",!,MSG Line Location: BADDEV+1
Function Call: WRITE	Prompt: !,"Sorry--that time is restricted!",!,$C(7) Line Location: RESTRCT+5
Function Call: WRITE	Prompt: !,"Output is never allowed from this option!",$C(7),$C(7) Line Location: ASK+8
Function Call: WRITE	Prompt: !,"Output from this option is restricted during certain times." Line Location: ASK+11
Function Call: WRITE	Prompt: !!,"That is a restricted time!",!,$C(7) Line Location: ASK+12

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSCH(	AKS+8!
^%ZTSK - [#14.4]	ASKSTOP+3, ASKSTOP+5, AKS+2, AKS+4*, AKS+9
^DIC(19 - [#19]	OPTION+3

Name	Line Occurrences
$$AKS	ASKSTOP+4
EXIT	REJECT+2

Name	Field # of Occurrence
^(	AKS+2

Name	Field # of Occurrence
%	ASKSTOP+2~, ASKSTOP+4*, ASKSTOP+6
%DT	ASK+1~, ASK+3, ASK+6, ASK+9*, ASK+14!
%DT("A"	ASK+6*
%DT("B"	ASK+6, ASK+9
%DT(0	ASK+6*
%T	ASK+14!
%ZTIO	AKS+1~, AKS+9*
>> %ZTLOAD("ERROR"	EXIT+1*
DUZ	AKS+4
IO("DOC"	SPOOL+1, SPOOL+2, SPOOL+4, SPOOL+6
MSG	REJECT~, REJECT+1, BADDEV~, BADDEV+1, EXIT+1
U	OPTION+3, AKS+4, AKS+7
>> X	RESTRCT+5, ASK+3, ASK+7, ASK+8, ASK+9, ASK+12*
X5	ASK+14!
>> XQNOGO	ASK+11
>> XQY	ASK+8, OPTION+1
Y	ASK+1~, ASK+4, ASK+8, ASK+12, ASK+13
ZT	ASK+12*, ASK+14!
ZT1	AKS+1~
ZT2	AKS+1~
>> ZTA1	OPTION+2*
>> ZTA4	OPTION+1*, OPTION+2, OPTION+3
>> ZTA5	OPTION+3*
ZTDTH	RESTRCT+3, RESTRCT+4, RESTRCT+5, ASK+2, ASK+3, ASK+4, ASK+6, ASK+13, AKS+1~, AKS+7* , AKS+8
>> ZTIO	SPOOL+2, SPOOL+3, SPOOL+4, SPOOL+5, SPOOL+6
>> ZTKIL	ZTKIL+1*
>> ZTNAME	AKS+4
>> ZTNOGO	RESTRCT+2*, ASK+7, ASK+11, ASK+12
>> ZTQUEUED	REJECT+1, BADDEV+1, RESTRCT+1, ASK+2
>> ZTSAVE("XQY"	OPTION+1
>> ZTSK	ASKSTOP+2*, ASKSTOP+3, ASKSTOP+5, AKS+2, AKS+4, AKS+8, AKS+9
>> ZTSK(	AKS+2*, AKS+5, AKS+6
>> ZTSK(0	AKS+2*, AKS+3, AKS+7

Information