Routine: ADEPV

Package

Total

Call Graph

(,HOME)^%ZIS ^%ZTLOAD

START^ADEPV1

^%DT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Do not enter from top!",!! Line Location: ADEPV+2
Function Call: WRITE	Prompt: !,*7,"Beginning date must be before ending date." Line Location: DATE+8
Function Call: WRITE	Prompt: !!,"Enter 'Q' at the DEVICE prompt to queue this report to run in the background." Line Location: ASKDEV+1
Function Call: WRITE	Prompt: !,"REQUEST QUEUED." Line Location: ASKDEV+10
Routine Call	%ZIS Line Location: ASKDEV+11
Routine Call	%ZIS Line Location: ASKDEV+3

Name	Line Occurrences (* Changed, ! Killed)
^TMP(	ADEU1, ADEU1+1, ADEU1+2!, ADEU1+3*

Name	Line Occurrences
$$ADEU	FACILITY+2, COMMUN+2, TRIBE+2
ADEU1	ADEU1+1
DATE	DATE+6, DATE+8, FACILITY+5, COMMUN+5, TRIBE+5
QUE	ASKDEV+8
QUIT	ADEPV+2, DATE+3, DATE+7, ASKDEV+4, ASKDEV+7

Name	Field # of Occurrence
%DT	DATE+1, DATE+2!, DATE+4, DATE+5!
%DT("A"	DATE+1, DATE+4
%DT(0	DATE+4*
>> %ZIS	ASKDEV+2*
ADEBDT	DATE!, DATE+4*, DATE+8, QUIT!
ADEGBL	ASKDEV+4, ASKDEV+9, QUIT!, FACILITY+2, FACILITY+3, COMMUN+2, COMMUN+3, TRIBE+2, TRIBE+3, ADEU~ , ADEU1, ADEU1+1, ADEU1+2, ADEU1+3
ADEIOP	ASKDEV!, ASKDEV+5*, QUE+6
ADEIOPAR	ASKDEV!, ASKDEV+6*
ADEJ	QUIT!, QUE~, QUE+3*, QUE+8!
ADEND	DATE!, DATE+7*, DATE+8, QUIT!
ADEOLD	QUIT!
ADEOPT	QUIT!
ADEOTYP	QUIT!
ADETITL	QUIT!, FACILITY+4, COMMUN+4, TRIBE+4*
ADEU	ADEU+2~, ADEU+3, ADEU1, ADEU1+1*, ADEU1+2, ADEU1+3, ADEU1+4, ZZ!
IO("HFSIO"	QUE+5
IO("Q"	ASKDEV+7
IOM	ASKDEV+5
ION	ASKDEV+5
IOP	ASKDEV!
>> IOPAR	ASKDEV+6
IOSL	ASKDEV+5
>> POP	ASKDEV+4
U	DATE+1*
>> X	DATE+6
>> Y	DATE+3, DATE+4, DATE+7
>> ZTDESC	QUE+2*
>> ZTIO	QUE+4, QUE+6
>> ZTRTN	QUE+1*
>> ZTSAVE(	QUE+3*
ZTSK	ASKDEV!, QUIT!

Information

Name	Comments	DBIA/ICR reference
QUIT
ADEU(ADEGBL)	;GET UNIQUE SUBSCRIPT NUMBER AND LOCK REPORT NODE
COMMUN	;EP
FACILITY	;EP
ADEU1
QUE
ZZ
DATE
TRIBE	;EP
ASKDEV