Routine: DGJUTQ

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Information

DGJUTQ ;ALB/MRY - QUEUING UTILITY (%ZTLOAD) ; 23-AUG-2001

Source Information

Source file <DGJUTQ.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
VA FileMan	1	YMD^%DTC

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 6

Package	Total	Caller Graph
Incomplete Records Tracking	6	DGJOPRT1 DGJOPRT3 DGJOTP DGJOTP1 DGJPDEF DGJPDEF1

Entry Points

Name	Comments	DBIA/ICR reference
Q1
QUE
LOAD
ZIS
SAVE
ARRAY
CLOSE
END
DQ
DTQ

External References

Name	Field # of Occurrence
YMD^%DTC	DTQ
^%ZIS	ZIS
^%ZISC	CLOSE
^%ZTLOAD	LOAD
KILL^%ZTLOAD	DQ+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ZIS+0
Routine Call	%ZIS Line Location: ZIS

Label References

Name	Line Occurrences
@(	DQ
ARRAY	SAVE
CLOSE	QUE+2, LOAD, ZIS, DQ+1
END	LOAD
QUE	ZIS
SAVE	QUE+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	DTQ*
%ZIS	ZIS*!
DGI	SAVE*, END!
>> DGJ	ARRAY*
DGPGM	QUE+1, QUE+2*, QUE+4, END!, DQ
DGUTQND	LOAD, END!
DGVAR	QUE+3, SAVE*, END!
>> DGX	DTQ*
DGZTSAVE	QUE+3, SAVE, ARRAY, END!
IO	ZIS+1
IO("C"	END!
IO("Q"	QUE!, ZIS!, END!
ION	QUE
IOP	ZIS!
PGM	QUE+1, QUE+2, END!, DQ
POP	ZIS*, CLOSE~
VAR	QUE+3, END!
>> X	LOAD*, DTQ
>> Z	DTQ*
ZTDESC	QUE+1*, END!
ZTDTH	Q1*, END!
ZTIO	QUE*, END!
>> ZTQUEUED	CLOSE
ZTREQ	END!
ZTRTN	QUE+2*, END!
ZTSAVE	END!
ZTSAVE(	SAVE*
ZTSAVE("DGPGM"	QUE+4*
ZTSK	LOAD, END!
ZTSK("D"	DTQ
ZTUCI	END!