Routine: ADEGRL5

Package	Total	Call Graph
IHS Dental System	2	LIST^ADEGRL3 ($$DELOP,$$DUPE)^ADEGRL5C
VA Fileman	2	^DIC MIX^DIC1
Kernel	1	EN^XQH

Package	Total	Caller Graph
IHS Dental System	2	ADEGRL3 ADEGRL5B

Entry Points

Name	Comments	DBIA/ICR reference
OPDFLT(ADEDEF)	;Creates default user input string from ADEV(ADECOD)
ADD1
S3	;
SPLIT(ADEOP)	;Splits Opsites and Surfaces from user input string
OPD1
PARSE	;
VQ
VERSFC(ADEX)	;Verify surface codes - Returns 1 if valid, 0 if not valid
VEROP	;B FHL 9/9/98
OPDEL
ADDOP(ADEOP,ADESFC,ADEVTMP)	;EP - Search for same opsite in existing ADEV(ADECOD).

External References

Name	Field # of Occurrence
LIST^ADEGRL3	S3+13, OPDEL+1
$$DELOP^ADEGRL5C	OPD1+2, ADD1
$$DUPE^ADEGRL5C	PARSE+4
^DIC	VEROP+4, VEROP+5
MIX^DIC1	VEROP+2, VEROP+3
EN^XQH	S3+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"OPSITE: " Line Location: S3+5
Function Call: READ	Timeout: DTIME Variable: ADEOP Line Location: S3+9
Function Call: WRITE	Prompt: !,"ADA Code: ",ADECOD Line Location: S3+13
Function Call: WRITE	Prompt: !,"FEE: ",$P(ADEV(ADECOD),U,3) Condition for execution: ADECON Line Location: S3+13
Function Call: WRITE	Prompt: *7,ADEPC," ??" Line Location: PARSE+3
Function Call: WRITE	Prompt: *7," --DUPE OPSITES NOT ALLOWED" Line Location: PARSE+4
Function Call: WRITE	Prompt: *7," '",ADEPC,"' IS NOT A VALID SURFACE" Line Location: PARSE+5
Function Call: WRITE	Prompt: !!,ADEPC Line Location: VEROP+5
Function Call: WRITE	Prompt: !,K Line Location: OPDEL+1
Function Call: WRITE	Prompt: !!,?2,ADECOD,?13,"DELETE WHICH OPSITE: " Line Location: OPDEL+2
Function Call: WRITE	Prompt: " ??",*7 Line Location: OPDEL+3
Routine Call	DIC Line Location: VEROP+4 VEROP+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ADEOPS - [#9002010.03]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADEOPS - [#9002010.03]	OPDFLT+5, OPDFLT+6

Label References

Name	Line Occurrences
$$ADDOP	PARSE+7
$$OPDFLT	S3+7
$$SPLIT	PARSE+1
$$VERSFC	PARSE+5
ADD1	ADDOP+4
OPD1	OPDEL
OPDEL	S3+14
S3	S3+13, S3+14, PARSE+3, PARSE+4, PARSE+5
VEROP	PARSE+2, OPD1
VQ	VEROP+2, VEROP+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADEADD	S3+15!*, PARSE+3!, PARSE+4!, PARSE+5!, PARSE+6, PARSE+9!
ADECNT	SPLIT+1~, SPLIT+2, SPLIT+3, SPLIT+4, SPLIT+5
>> ADECOD	S3+6, S3+11, S3+12, S3+13, S3+14, PARSE+6, PARSE+7, PARSE+8, OPDEL+2, OPD1+2
>> ADECON	S3+13
ADEDEF	S3+6, S3+7, S3+8, S3+10, S3+11, S3+12, OPDFLT~, OPDFLT+2, OPDFLT+3, OPDFLT+4 , OPDFLT+8
ADEDEL	S3+14, OPDEL, OPDEL+2, OPDEL+4, OPD1!, OPD1+1*, OPD1+2
>> ADEDENT	ADEGRL5+3*
>> ADEDES(	S3+11!, S3+12!
>> ADEDIC("S"	S3+1*, VEROP+2, VEROP+4, VEROP+5
ADEI	VERSFC+2~, VERSFC+7*
ADEJ	SPLIT+1~, SPLIT+3, SPLIT+5, SPLIT+7, OPDFLT+1~, OPDFLT+4, OPDFLT+5, OPDFLT+6, OPDFLT+8, ADDOP+2~ , ADDOP+4
ADEK	ADDOP+2~, ADD1*
ADENOOP	PARSE+2, PARSE+3!, VEROP+6*, OPD1!
ADEOP	S3+9, S3+10, S3+11, S3+12, S3+13, S3+14, S3+15, PARSE+1, PARSE+2, PARSE+3! , PARSE+4!, PARSE+5!, PARSE+7, PARSE+8, PARSE+9!, SPLIT~, SPLIT+3, SPLIT+5, SPLIT+7, SPLIT+8 , ADDOP~, ADDOP+4, ADDOP+5, ADDOP+6
ADEOPC	OPDFLT+1~, OPDFLT+7, OPDFLT+8
ADEOPS	OPDFLT+1~, OPDFLT+2, OPDFLT+5, OPDFLT+6, OPDFLT+8, OPDFLT+9, OPDFLT+10!
ADEP	VERSFC+2~, VERSFC+7*, VERSFC+9!
ADEPC	PARSE+2, PARSE+3, PARSE+5, VEROP+1, VEROP+5, OPD1, SPLIT+1~, SPLIT+3, SPLIT+7, OPDFLT+1~ , OPDFLT+8, ADDOP+2~, ADDOP+4*, ADD1
ADEPC2	ADDOP+2~, ADDOP+8!, ADD1*
>> ADEPLET	OPDFLT+5
ADESFC	PARSE+1, PARSE+3!, PARSE+4!, PARSE+5!, PARSE+7, PARSE+8, PARSE+9!, SPLIT+1~, SPLIT+2, SPLIT+3* , SPLIT+5, SPLIT+6, SPLIT+7, SPLIT+8, OPDFLT+1~, OPDFLT+3*, OPDFLT+8, ADDOP~, ADDOP+5, ADDOP+6
>> ADEV(	S3+6, S3+11!, S3+12!, S3+13, S3+14, PARSE+6, PARSE+7, PARSE+8, OPD1+2*
ADEVTMP	ADDOP~, ADDOP+4, ADDOP+5, ADDOP+6, ADDOP+7, ADDOP+8!, ADD1*
ADEX	VERSFC~, VERSFC+4, VERSFC+5, VERSFC+6, VERSFC+7
ADEY	VERSFC+2~, VERSFC+3, VERSFC+7, VERSFC+8
>> D	VEROP+2, VEROP+3
DIC	VEROP+1!*, VEROP+6!, VQ!
DIC("S"	VEROP+2, VEROP+4, VEROP+5*
DIC(0	VEROP+2, VEROP+3, VEROP+4, VEROP+5
DTIME	S3+9, OPDEL+2
>> J	PARSE+2, PARSE+5
K	OPDEL+1!*
U	ADEGRL5+3, S3+13, S3+14, PARSE+1, PARSE+8, OPDFLT+2, OPDFLT+3, OPDFLT+4, OPDFLT+5, OPDFLT+8 , ADDOP+5, ADDOP+6, ADD1
>> X	VEROP+1*, VEROP+3
XQH	S3+13*!
Y	PARSE+2, VEROP+1*, VEROP+2, VEROP+3, VEROP+4!, VEROP+5!, VEROP+6, OPD1+1
Y(0	ADEGRL5+3

Customize PDF page

Package: IHS Dental System

Routine: ADEGRL5

Information

Source Information

Call Graph

Call Graph Total: 5

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

Local Variables

Legend: