Routine: ADEGRL6

Package	Total	Call Graph
IHS Dental System	2	^ADEAPC ^ADEQUE
VA Fileman	2	FILE^DICN ^DIE
Kernel	1	^%ZTLOAD
MailMan	1	^XMB

Package	Total	Caller Graph
IHS Dental System	2	ADEDQUE ADEGRL

Entry Points

External References

Name	Field # of Occurrence
^%ZTLOAD	ADEGRL6+14
^ADEAPC	ZTM+13
^ADEQUE	ADEGRL6+12
FILE^DICN	NEWVS, FAIL+2
^DIE	SDEL1+2, STUFA, RO1A, FAIL+10
^XMB	MSG+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ADEV(",J,")=",ADEV(J) Line Location: ADEGRL6+4
Function Call: WRITE	Prompt: *7,!,"TASK MANAGER NOT RUNNING -- BACKGROUND WRITES DISABLED",!,"PLEASE WAIT WHILE I UPDATE THE DENTAL FILE",! Line Location: ADEGRL6+11
Routine Call	DIE Line Location: SDEL1+2 STUFA RO1A FAIL+10

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ADEPCD - [#9002007]	Classic Fileman Calls
^ADEPAT - [#9002010.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSCH("RUN"	ADEGRL6+11
^ADEFOL - [#9002003.2]	MSG, MSG+2
^ADEFOL("TYPE"	FOL+1, FOL+2
^ADEPARAM - [#9002006]	ADEGRL6+10
^ADEPAT - [#9002010.2]	FAIL+2, FAIL+5, FAIL+6, FAIL+11
^ADEPCD - [#9002007]	SDEL1, STUFB+1, RO1
^ADEUTL("ADEDQUE"	ADEGRL6+14*
^ADEUTL("ADELOCK"	END!
^AUTTADA("B"	ROLL
^AUTTSITE(1	ADEGRL6+10
^DIC(16 - [#16]	MSG+2
^DPT - [#2]	MSG+2

Label References

Name	Line Occurrences
END	ADEGRL6+6, ADEGRL6+7, ZTM+11
END1	ADEGRL6+15
FAIL	ZTM+11
FOL	ZTM+11
MSG	FOL+2
NEWVS	ZTM+1
RO1	ROLL
RO1B	RO1A
ROLL	RO1A+1
SDEL	ZTM+3
SDEL1	SDEL1+2
STUFA	ZTM+5
STUFB	ZTM+7
ZTM	ADEGRL6+9, ADEGRL6+10, ADEGRL6+11

Naked Globals

Name	Field # of Occurrence
^("RUN"	ADEGRL6+11
^(0	RO1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADECNT	END1!, RO1A*, RO1B, RO1B+1, RO1B+2
ADECOD	END1!
>> ADECON	STUFA, RO1A
ADEDEF	END1!
ADEDEL	END1!
ADEDENT	END1!
ADEDES	END1!
>> ADEDFN	NEWVS*, SDEL+1, SDEL1, STUFA, STUFB, RO1
ADEFLG	END1!
ADEHRN	END1!
ADEHXC	END1+1!
ADEHXF	END1+1!
ADEHXO	END1+1!
ADEI	END1!, ROLL*, RO1A
>> ADEJ	STUFB+1, ROLL, RO1A, RO1B, RO1B+1, RO1B+2
ADELOE	END1!
ADELOED	END1!, STUFA
ADEMDFN	FOL+2*, FOL+3!, MSG, MSG+2
ADENEWVS	ADEGRL6+7, ZTM+1, ZTM+3, ZTM+11, END1!
ADENOTE	END1!, STUFA
ADENOUPD	ADEGRL6+6, END1!
ADEOP	END1!
ADEPAT	END, END1!, NEWVS, FAIL+2, FAIL+3, FAIL+5, FAIL+6, FAIL+11, FOL+1, FOL+2 , MSG+2
ADEPNM	END1!
ADEPVNM	END1!
ADEPVNMD	END1!, STUFA
ADEQ	FOL+2*, FOL+3!
ADEQTY	END1!
ADER	FOL+2*, FOL+3!
ADERDNM	END1!
ADERDNMD	END1!, STUFA
ADESVC	SDEL+1, SDEL1, SDEL1+1!, SDEL1+2
ADETCH	END1!, STUFA
ADETCHF	END1!
ADETFE	END1!
ADETITL	END1!
ADETYP	FOL+2*, FOL+3!
ADEV	ADEGRL6+7, END1!
ADEV(	ROLL, RO1A, RO1B, RO1B+1, RO1B+2
ADEV("9130"	ZTM+11, FAIL+9
ADEV("9140"	ZTM+11
ADEV("9986"	ZTM+11, FAIL+9
ADEV("9987"	ZTM+11
ADEVDATE	END1!, NEWVS, FAIL+9, MSG+2
DA	ZTM+5!, ZTM+7!, SDEL+1, SDEL1+1!, STUFA, STUFB+1, RO1A, RO1, FAIL+1!, FAIL+5* , FAIL+6*, FAIL+11
DA(1	STUFB, STUFB+1, FAIL+3
DD	NEWVS!, FAIL+2!
DIC	ADEGRL6+3!, NEWVS, FAIL+1!, FAIL+2
DIC("DR"	NEWVS*
DIC(0	NEWVS, FAIL+2
DIE	ZTM+5!, ZTM+7!, SDEL+1, SDEL1+1!, STUFA, STUFB+1, FAIL+1!, FAIL+4
>> DINUM	FAIL+2*
DO	NEWVS!, FAIL+2!
DR	ZTM+5!, ZTM+7!, SDEL1+1!, SDEL1+2, STUFA, RO1A, RO1B, RO1B+1, RO1B+2, FAIL+1! , FAIL+9*
DR(2	SDEL+1*
U	ADEGRL6+10, NEWVS, RO1A, RO1B, RO1B+1, RO1B+2, RO1, FAIL+5, FAIL+11, MSG+2
X	NEWVS, FAIL+1!, FAIL+2
XMB	FOL+3!, MSG+1!, MSG+3, MSG+4*, MSG+7!
XMB(1	MSG+2*
XMB(2	MSG+2*
XMB(3	MSG+2*
>> XMDUZ	MSG+5*
Y	NEWVS, FAIL+1!
>> ZTDESC	ADEGRL6+14*
>> ZTDTH	ADEGRL6+14*
>> ZTIO	ADEGRL6+14*
>> ZTRTN	ADEGRL6+14*

Customize PDF page

Package: IHS Dental System

Routine: ADEGRL6

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ZTM	;------->IF NEW VISIT CREATE ENTRY IN ADEPCD (ENTRY POINT FOR ^ADEDQUE)
END1
END
RO1B
RO1A
FOL	;IF FAILED APPT SEND MESSG IF ON URGENT RECALL
MSG
STUFA
NEWVS
STUFB
FAIL	;
RO1
SDEL1
ROLL
SDEL	;