Routine: ADEGRL31

Package	Total	Call Graph
IHS Dental System	3	$$HAT^ADEGRL1 LIST^ADEGRL3 PROV^ADEGRL4
VA Fileman	2	YN^DICN ^DIR
Kernel	1	EN^XQH

Package	Total	Caller Graph
IHS Dental System	2	ADEATT2 ADEGRL3

Entry Points

Name	Comments	DBIA/ICR reference
TFEE	;EP
HYGCHK	;
FEE	;EP
CHK
EXIT	;EP
DEL	;EP
CON
D1

External References

Name	Field # of Occurrence
$$HAT^ADEGRL1	HYGCHK+10
LIST^ADEGRL3	DEL+1, FEE+5
PROV^ADEGRL4	HYGCHK+11
YN^DICN	CHK
^DIR	HYGCHK+9
EN^XQH	FEE+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DELETE WHICH CODE? " Line Location: D1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: D1+1
Function Call: WRITE	Prompt: !,?5,"ENTER AN ADA CODE FROM THE ABOVE LIST TO DELETE",!,?10,"OR PRESS 'RETURN' TO DELETE NOTHING" Line Location: D1+3
Function Call: WRITE	Prompt: *7,"??" Line Location: D1+4
Function Call: WRITE	Prompt: !!,?20,"*DATA ENTRY ABORTED",7 Line Location: EXIT+1
Function Call: WRITE	Prompt: !,*7,"YOU MUST ENTER A LOCATION OF ENCOUNTER. ENTER ^L AT THE 'Select ADA CODE",!,"(or Action)' PROMPT TO EDIT LOCATION OF ENCOUNTER." Line Location: EXIT+2
Function Call: WRITE	Prompt: !,*7,"YOU MUST ENTER AN ATTENDING DENTIST. ENTER ^D AT THE 'Select ADA CODE,",!,"(or Action)' PROMPT TO EDIT ATTENDING DENTIST." Line Location: EXIT+3
Function Call: WRITE	Prompt: !,*7,"You must enter a VISIT STATUS Code, either 0000, 0190, 9130, or 9140." Line Location: EXIT+5
Function Call: WRITE	Prompt: !,*7,"You must enter a VISIT STATUS Code, either 0000, 0190, 9986, or 9987." Line Location: EXIT+7
Function Call: WRITE	Prompt: !!,"Ready to file this record" Line Location: CHK+0
Function Call: WRITE	Prompt: !,?5,"Enter `Y' to save this visit permanently in the computer",!,?5,"Enter `N' to go back and continue editing the visit." Line Location: CHK+1
Function Call: WRITE	Prompt: !,"TOTAL CHARGE THIS VISIT: ",$J(ADETCH,4,2),"// " Line Location: TFEE+1
Function Call: WRITE	Prompt: !,"ENTER THE TOTAL CHARGE FOR THIS VISIT" Line Location: TFEE+4
Function Call: WRITE	Prompt: *7," ??" Line Location: TFEE+6
Function Call: READ	Prompt: "(Press ENTER to continue) " Formatting: ! Timeout: DTIME Variable: X Line Location: CON+0
Function Call: WRITE	Prompt: !,"FEE: " Line Location: FEE+1
Function Call: READ	Timeout: DTIME Variable: ADEFEE Line Location: FEE+3
Function Call: WRITE	Prompt: !,"ADA Code: ",ADECOD Line Location: FEE+5
Function Call: WRITE	Prompt: *7," ??" Line Location: FEE+7
Routine Call	DIR Line Location: HYGCHK+9

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CHK*, CHK+2, CHK+3
>> %Y	CHK+1
>> ADECOD	FEE+2, FEE+5, FEE+8
>> ADEDEF	FEE+2*, FEE+4
>> ADEDES(	D1+5!
ADEFEE	FEE+3, FEE+4, FEE+5, FEE+6, FEE+7*!, FEE+8
ADEFLG	HYGCHK+2~, HYGCHK+3, HYGCHK+4, HYGCHK+5
ADEGRP	HYGCHK+2~, HYGCHK+3*, HYGCHK+4, HYGCHK+13!
ADEHOLD	FEE+5*!
ADEJ	HYGCHK+2~, HYGCHK+4*
>> ADELOED	EXIT+2
>> ADENOUPD	EXIT+1*
>> ADEPVNM	HYGCHK+1
>> ADERDNMD	EXIT+3
>> ADETCH	TFEE+1, TFEE+7*
>> ADETCHF	TFEE+7*
>> ADEV	DEL+1
>> ADEV(	D1+4, D1+5!, HYGCHK+4, FEE+2, FEE+8*
>> ADEV("0000"	EXIT+7
>> ADEV("0190"	EXIT+7
>> ADEV("9130"	EXIT+7
>> ADEV("9140"	EXIT+7
>> ADEV("9986"	EXIT+7
>> ADEV("9987"	EXIT+7
>> ADEY	FEE+6*
DIR	HYGCHK+2~
DIR("A"	HYGCHK+6, HYGCHK+7
DIR("B"	HYGCHK+8*
DIR(0	HYGCHK+6*
DTIME	D1+1, TFEE+2, CON, FEE+3
U	HYGCHK+10, FEE+2, FEE+8
X	D1+1, D1+2, D1+3, D1+4, D1+5, EXIT+1, HYGCHK+10, TFEE+2, TFEE+3, TFEE+4 , TFEE+5, TFEE+6!, TFEE+7, CON!
XQH	FEE+5*!
>> Y	EXIT+1, EXIT+2, EXIT+3, EXIT+7, EXIT+10, EXIT+11, CHK+2, CHK+3, CHK+4, HYGCHK+10 , TFEE+3, TFEE+5, TFEE+7*
>> Y(0	FEE+5*

Customize PDF page

Package: IHS Dental System

Routine: ADEGRL31

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
CHK	EXIT+10, CHK+1
CON	EXIT+2, EXIT+3, EXIT+7
D1	D1+3, D1+4
FEE	FEE+5, FEE+7
HYGCHK	EXIT+9
TFEE	TFEE+4, TFEE+6