Routine: XDRDPRGE

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIK ^DIR
Kernel	1	^%ZTLOAD

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"* This option is not available for PATIENTS" Line Location: FILE+1
Routine Call	DIC Line Location: FILE+5
Routine Call	DIR Line Location: ASK+6 ASK+11

FileNo	Call Tags
^VA(15 - [#15]	Classic Fileman Calls
^VA(15.1 - [#15.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC - [#1]	INIT+4
^VA(15 - [#15]	XREF+1

Name	Field # of Occurrence
>> %	QUEUE+2*
DA	XREF+3*, XREFX!
DIC	FILE+5*!
DIC("A"	FILE+4*
DIC("S"	FILE+2*
DIC(0	FILE+3*
DIK	XREF+3*, XREFX!
DIR	ASK+6!, ASK+11!
DIR("?"	ASK+3, ASK+4, ASK+5*
DIR("A"	ASK+2, ASK+10
DIR(0	ASK+1, ASK+9
>> DIRUT	ASK+7, ASK+12
U	FILE+7, XREF+2
X	FILE+5!
XDRDI1	XREF+3*, XREFX!
XDRDPRGE	EOJ+1!
XDRDPRGE("CHOICE"	DQ+1, ASK+8*
XDRDPRGE("GL"	XREF+2*, XREF+3, XREFX!
XDRDPRGE("RCDS"	XREF+3*
XDRDPRGE("XREF"	ASK+8, BOTH+1, BOTH+2*, XREF+1, XREF+2
XDRFL	INIT+4, FILE+7*, EOJ+1!
XDRGL	INIT+4*, XREF+2, EOJ+1!
>> XDRQFLG	START+1, START+2, INIT+1, INIT+3, FILE+6, ASK+7, ASK+12, QUEUE+4*
Y	FILE+6, FILE+7!, ASK+8!, ASK+13, ASKX!
Y(0	FILE+7
>> ZTDESC	QUEUE+1*
>> ZTIO	QUEUE+1*
>> ZTQUEUED	EOJ+2
>> ZTREQ	EOJ+2*
>> ZTRTN	QUEUE+1*
>> ZTSAVE(	QUEUE+2*
ZTSK	QUEUE+3!

Information