Routine: ADEPSUB

Package	Total	Call Graph
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD
VA Fileman	2	EN1^DIP ^DIR
IHS Dental System	1	$$HAT^ADEPQA

Package	Total	Caller Graph
IHS Dental System	9	ADEKRP ADEKSAV ADEPDDM ADEPDDS ADEPDDY ADEPHY ADEPHYM ADEPHYY ADEPX

Entry Points

Name	Comments	DBIA/ICR reference
MMONTH()	;EP - Returns "1 or 0^Begin^End"
YDATE	;EP - DATE PROCESSING FOR ANNUAL REPORTS
ADEU1
MDATE	;EP - MONTHLY REPORTS
QDATE	;EP - DATE PROCESSING FOR QUARTERLY REPORTS
QMONTH()	;EP Returns "1 or 0^Begin^End"
MDAT1
QUE	;
PRINT(FLDS,ADEDHD)	;EP
PRNEND
YMONTH()	;EP Returns "1 or 0^Begin^End"
ADEU()	;GET UNIQUE SUBSCRIPT NUMBER AND LOCK REPORT NODE
YDAT1
QDAT1
ASKDEV(ADERTN,ADEDESC)	;EP - DEVICE SELECTION

External References

Name	Field # of Occurrence
^%ZIS	ASKDEV+6, PRINT+5
HOME^%ZIS	ASKDEV+14
^%ZTLOAD	QUE+14
$$HAT^ADEPQA	MDAT1+1, QDAT1+1, YDAT1+1
EN1^DIP	PRINT+16
^DIR	MDAT1, QDAT1, YDAT1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MMONTH+2
Function Call: WRITE	Prompt: !?5,"Please enter only the month and year" Line Location: MDAT1+3
Function Call: WRITE	Prompt: ! Line Location: QMONTH+2
Function Call: WRITE	Prompt: !?5,"Please enter only the month and year" Line Location: QDAT1+3
Function Call: WRITE	Prompt: ! Line Location: YMONTH+2
Function Call: WRITE	Prompt: !?5,"Please enter only the month and year" Line Location: YDAT1+3
Function Call: WRITE	Prompt: !!,"Enter 'Q' at the DEVICE prompt to queue this report to run in the background." Line Location: ASKDEV+4
Function Call: WRITE	Prompt: !,"REPORT IS QUEUED!" Line Location: ASKDEV+15
Routine Call	%ZIS Line Location: ASKDEV+14
Routine Call	DIR Line Location: MDAT1 QDAT1 YDAT1
Routine Call	%ZIS Line Location: ASKDEV+6 PRINT+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ADEDUM - [#9002006.9]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADEPARAM - [#9002006]	PRINT+9
^ADEPARAM(0	PRINT+9
^DD("DD"	PRINT+11
^DIC(4 - [#4]	PRINT+9
^TMP("ADEP"	ADEU1, ADEU1+1, PRINT+1, PRNEND+1!

Label References

Name	Line Occurrences
$$MMONTH	MDATE+4
$$QMONTH	QDATE+2
$$YMONTH	YDATE+2
ADEU1	ADEU1+1
ASKDEV	ASKDEV+13
MDAT1	MDAT1+3
PRNEND	PRINT+1
QDAT1	QDAT1+3
QUE	ASKDEV+11
YDAT1	YDAT1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ASKDEV+5*
>> %ZIS("IOPAR"	PRINT+4, PRINT+7
ADEBEG	MDATE+3~, MDATE+5, MDATE+7, MMONTH+1~, MDAT1+2, MDAT1+3, MDAT1+4, MDAT1+5, QDATE+1~, QDATE+3* , QDATE+8, QMONTH+1~, QDAT1+2, QDAT1+3, QDAT1+4, QDAT1+14, QDAT1+17, YDATE+1~, YDATE+3, YDATE+7 , YMONTH+1~, YDAT1+2*, YDAT1+3, YDAT1+4, YDAT1+5, YDAT1+6
ADECNT	MDATE+3~, MDATE+6, MDATE+7, QDATE+1~, QDATE+4, QDATE+6, YDATE+1~, YDATE+4, YDATE+5
ADED0	PRINT+2~, PRINT+13*
ADED1	PRINT+2~, PRINT+13*
ADED2	PRINT+2~, PRINT+13*
ADED3	PRINT+2~
>> ADEDATE	MDATE+4, MDATE+5, QDATE+2, QDATE+3, YDATE+2*, YDATE+3, PRINT+11
>> ADEDDS	QUE+8
ADEDESC	ASKDEV~, QUE+3
ADEDHD	PRINT~, PRINT+10
ADEIOP	ASKDEV+3!, ASKDEV+8*, ASKDEV+13!, QUE+13, PRINT+3, PRINT+6
ADEIOPAR	ASKDEV+3!, ASKDEV+9*, PRINT+4, PRINT+7
ADEJ	MDATE+3~, MDATE+7, QDATE+1~, QDATE+6, QDATE+15, YDATE+1~, YDATE+5, YDATE+8, QUE+1~, QUE+4
ADEMO	YDATE+12~, YDATE+14, YDATE+15, YDATE+16, YDATE+17, YDATE+18, YDATE+19!
ADEND	MMONTH+1~, MDAT1+4, MDAT1+5, QMONTH+1~, QDAT1+4, QDAT1+13, QDAT1+14, QDAT1+15, QDAT1+17, YMONTH+1~ , YDAT1+4, YDAT1+5*, YDAT1+6
>> ADENDM	QDAT1+13*, QDAT1+15
ADENDY	QMONTH+1~, QDAT1+14*, QDAT1+15, YMONTH+1~
ADENOLOK	PRINT+1*, PRNEND+1, PRNEND+2!
ADERTN	ASKDEV~, QUE+2
ADETMP	QDATE+7~, QDATE+15, QDATE+16, QDATE+17, QDATE+18, YDATE+6~, YDATE+8, YDATE+9*, YDATE+10
>> ADEU	ADEU+2, ADEU1, ADEU1+1*, ADEU1+2, PRINT+1, PRNEND+1
ADEWK	QDATE+7~, QDATE+8, QDATE+15, QDATE+16, QDATE+17, QDATE+18, QDATE+20, YDATE+6~, YDATE+7, YDATE+8 , YDATE+10, YDATE+11, YDATE+13, YDATE+14, YDATE+18, YDATE+20
>> ADEWK3	QUE+5
ADEX	MDATE+3~, MDATE+7, QDATE+1~, QDATE+6, QDATE+20, YDATE+1~, YDATE+5*, YDATE+20
>> ADEZTSK	PRINT+15*, PRINT+17
BY	PRINT+2~, PRINT+8*
DHD	PRINT+2~, PRINT+9, PRINT+10, PRINT+12*
DIC	PRINT+2~, PRINT+8*
DIR	MMONTH+1~, QMONTH+1~, YMONTH+1~
DIR("A"	MMONTH+2, QMONTH+2, YMONTH+2*
DIR(0	MMONTH+3, QMONTH+3, YMONTH+3*
DT	MMONTH+3, QMONTH+3, YMONTH+3
FLDS	PRINT~
>> FR	PRINT+8*
IO("HFSIO"	QUE+12
IO("Q"	ASKDEV+10
IOM	ASKDEV+8
ION	ASKDEV+8
IOP	ASKDEV+3!, ASKDEV+13!, PRINT+3, PRINT+6
>> IOPAR	ASKDEV+9
IOSL	ASKDEV+8
>> POP	ASKDEV+7
>> TO	PRINT+8*
U	MDATE+5, MDAT1+5, QDATE+3, QDAT1+17, YDATE+3, YDAT1+6, PRINT+9, PRINT+11
X	MMONTH+1~, QMONTH+1~, YMONTH+1~
Y	MMONTH+1~, MDAT1+2, QMONTH+1~, QDAT1+2, YMONTH+1~, YDAT1+2, PRINT+2~, PRINT+11*, PRINT+12
>> ZTDESC	QUE+3*
>> ZTIO	QUE+11, QUE+13
>> ZTQUEUED	ASKDEV+13, PRINT+1, PRINT+15, PRNEND
>> ZTREQ	PRNEND*
>> ZTRTN	QUE+2*
>> ZTSAVE(	QUE+4*
>> ZTSAVE("ADEDDS"	QUE+9*
>> ZTSAVE("ADEDNAM("	QUE+10*
>> ZTSAVE("ADEHNAM("	QUE+7*
>> ZTSAVE("ADEHYG"	QUE+6*
>> ZTSAVE("ADEWK3"	QUE+5*
ZTSK	ASKDEV+3!, PRINT+15!, PRINT+17*

Customize PDF page

Package: IHS Dental System

Routine: ADEPSUB

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: