Routine: ADEPLV

Package

Total

Call Graph

(,HOME)^%ZIS ^%ZTLOAD

START^ADEPLV1

^%DT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Dental Level of Service Report",ADETITL,!! Line Location: START+0
Function Call: WRITE	Prompt: !,*7,"Beginning date must be before ending date." Line Location: DATE+9
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+11
Routine Call	%ZIS Line Location: ASKDEV+12
Routine Call	%ZIS Line Location: ASKDEV+3

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

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+9, QUIT!
ADECON	ADEPLV+5, QUIT!, CONTRACT+4, AUXIL+4, NON+4
ADEDIR	ADEPLV+5, QUIT!, CONTRACT+4, AUXIL+4, NON+4
ADEGBL	ADEPLV+2, ADEPLV+3, ASKDEV+4, ASKDEV+10, QUIT!, CONTRACT+1, CONTRACT+2, AUXIL+2, AUXIL+3, NON+1* , NON+2*, ADEU~, ADEU1, ADEU1+1, ADEU1+2, ADEU1+3
ADEIOP	ASKDEV!, ASKDEV+6*, QUIT!, QUE+6
ADEIOPAR	ASKDEV!, ASKDEV+7*, QUIT!
ADEJ	QUIT!, QUE~, QUE+2*, QUE+8!
ADEND	DATE!, DATE+8*, DATE+9, QUIT!
ADENON	ADEPLV+5, QUIT!, CONTRACT+4, AUXIL+4, NON+4
ADEOLD	QUIT!
ADEOTYP	QUIT!
ADEPDET	ADEPLV+5, QUIT!, CONTRACT+4, AUXIL+4, NON+4
ADEPRO	ADEPLV+5, QUIT!, CONTRACT+4, AUXIL+4, NON+4
ADETITL	ADEPLV+4, START, QUIT!, CONTRACT+3, AUXIL+1, NON+3
ADEU	ADEU+2~, ADEU+3, ADEU1, ADEU1+1*, ADEU1+2, ADEU1+3, ADEU1+4, ADEU1+5!
IO("HFSIO"	QUE+5
IO("Q"	ASKDEV+8
IOM	ASKDEV+6
ION	ASKDEV+6
IOP	ASKDEV!
>> IOPAR	ASKDEV+7
IOSL	ASKDEV+6
>> POP	ASKDEV+4
U	DATE+1*
>> X	DATE+6
>> Y	DATE+3, DATE+4, DATE+7, DATE+8
>> ZTDESC	QUE+1*
>> ZTIO	QUE+4, QUE+6
>> ZTRTN	QUE+3*
>> ZTSAVE(	QUE+2*
ZTSK	ASKDEV!

Information

Name	Comments	DBIA/ICR reference
QUIT
NON	;EP ENTER HERE FOR NON-INDIAN REPORT
ADEU1
CONTRACT	;EP ENTER HERE FOR CONTRACT SERVICES REPORT
START
QUE
DATE
ADEU(ADEGBL)	;GET UNIQUE SUBSCRIPT NUMBER AND LOCK REPORT NODE
AUXIL	;EP ENTER HERE FOR AUXILIARY REPORT
ASKDEV