Routine: ADEPENDA

Package	Total	Call Graph
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD

Package	Total	Caller Graph
IHS Dental System	1	ADEPEND

Entry Points

Name	Comments	DBIA/ICR reference
GROUP(ADENAM)	;EP - Retuns code group ADENAM from ^ADEDIT("GRP")
OPCOD(ADEOP)	;EP - Given "OPSITE,OPSITE,...OPSITE"
GRP	;EP - Sets up code and opsite groups
ADACOD(ADECOD)	;EP - Given "ADA CODE,ADA CODE,...ADA CODE"
QUE	;
DDS()	;EP
KILL	;EP - KILLS
ADEU()	;GET UNIQUE SUBSCRIPT NUMBER AND LOCK REPORT NODE
ADEU1
ASKDEV(ADERTN,ADEDESC)	;EP - DEVICE SELECTION

External References

Name	Field # of Occurrence
^%ZIS	ASKDEV+7
HOME^%ZIS	ASKDEV+15
^%ZTLOAD	QUE+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter 'Q' at the DEVICE prompt to queue this report to run in the background." Line Location: ASKDEV+5
Function Call: WRITE	Prompt: !,"REPORT IS QUEUED!" Line Location: ASKDEV+16
Routine Call	%ZIS Line Location: ASKDEV+15
Routine Call	%ZIS Line Location: ASKDEV+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADEDIT("GRP" - [#9002007.91]	GROUP+2, GROUP+3
^ADEOPS("B"	OPCOD+5
^AUTTADA("B"	ADACOD+5
^DIC(16 - [#16]	DDS+11
^DIC(6 - [#6]	DDS+6, DDS+7
^DIC(7 - [#7]	DDS+7
^TMP("ADEPEND"	ADEU1, ADEU1+1, ADEU1+2*

Label References

Name	Line Occurrences
$$ADACOD	GRP+1, GRP+2, GRP+3, GRP+4, GRP+5
$$GROUP	GRP+2, GRP+4, GRP+5, GRP+7, GRP+8
$$OPCOD	GRP+6, GRP+7, GRP+8, GRP+9
ADEU1	ADEU1+1
ASKDEV	ASKDEV+14
QUE	ASKDEV+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ASKDEV+6*
ADEADA	KILL+1!
ADEAGE	KILL+1!
ADECNT	KILL+1!
ADECOD	ADACOD~, ADACOD+4, KILL+1!
ADECOD("ACCESSED"	GRP+1*
ADECOD("COMPLETED"	GRP+3*
ADECOD("CROWNED"	GRP+5*
ADECOD("EXTRACTED"	GRP+2*
ADECOD("RESTORED"	GRP+4*
ADED0	KILL+1!
ADED1	KILL+1!
ADED2	KILL+1!
ADEDATE	KILL+1!
ADEDESC	ASKDEV~, QUE+3, KILL+4!
ADEDFN	ADACOD+2~, ADACOD+3, ADACOD+7, ADACOD+8, ADACOD+9, OPCOD+2~, OPCOD+3, OPCOD+7, OPCOD+8, OPCOD+9 , KILL+2!
ADEDUZ	KILL+2!
ADEEXT	KILL+2!
ADEHDFN	KILL+2!
ADEHDFNS	KILL+2!
ADEHNAM	KILL+2!
ADEHNAM(	DDS+11*
ADEHXC	KILL+5!
ADEHXO	KILL+5!
ADEHYG	DDS+3~, DDS+4, DDS+8, DDS+9, DDS+10, DDS+11, DDS+12, DDS+13, KILL+2!
ADEIOP	ASKDEV+4!, ASKDEV+9*, ASKDEV+14!, QUE+9
ADEIOPAR	ASKDEV+4!, ASKDEV+10*, ASKDEV+14!, KILL+4!
ADEJ	ADACOD+2~, ADACOD+4, ADACOD+8, OPCOD+2~, OPCOD+4, OPCOD+8, DDS+3~, DDS+5, DDS+6, DDS+7 , DDS+8, DDS+9, DDS+11, QUE+1~, QUE+4, KILL+2!
ADEK	KILL+2!
ADEL	KILL+2!
ADELOC	KILL+3!
ADENAM	GROUP~, GROUP+2, GROUP+3, GROUP+4*, GROUP+5, KILL+3!
ADENOD	KILL+6!
ADEOP	OPCOD~, OPCOD+4, KILL+3!
ADEOP("ANTERIORS"	GRP+8*
ADEOP("FIRST	MOLARS" , GRP+6*
ADEOP("OTHER	MOLARS" , GRP+9*
ADEOP("PREMOLARS"	GRP+7*
ADEPC	ADACOD+2~, ADACOD+4, ADACOD+5, ADACOD+6, ADACOD+7, ADACOD+8, OPCOD+2~, OPCOD+4, OPCOD+5, OPCOD+6 , OPCOD+7, OPCOD+8, KILL+3!
ADEPROV	KILL+3!
ADEREP	KILL+3!
ADEROPT	KILL+3!
ADERTN	ASKDEV~, QUE+2, KILL+4!
ADESTP	KILL+3!
ADETDFN	KILL+3!
ADETNAM	KILL+4!
ADEU	ADEU+2, ADEU1, ADEU1+1*, ADEU1+2, ADEU1+4, KILL+4!
ADEZTSK	KILL+4!
IO("HFSIO"	QUE+8
IO("Q"	ASKDEV+11
IOM	ASKDEV+9
ION	ASKDEV+9
IOP	ASKDEV+4!, ASKDEV+14!
>> IOPAR	ASKDEV+10
IOSL	ASKDEV+9
>> POP	ASKDEV+8
U	GROUP+3, DDS+7, DDS+11
>> ZTDESC	QUE+3*
>> ZTIO	QUE+7, QUE+9
>> ZTQUEUED	ASKDEV+14
>> ZTRTN	QUE+2*
>> ZTSAVE(	QUE+4*
>> ZTSAVE("ADEIOPAR"	QUE+5*
>> ZTSAVE("ADEU"	QUE+6*
ZTSK	ASKDEV+4!

Customize PDF page

Package: IHS Dental System

Routine: ADEPENDA

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: