Routine: ADEPQA3A

Package	Total	Call Graph
IHS Dental System	2	CDT4REM^ADECD49 $$HAT^ADEPQA
VA Fileman	2	IX^DIC ^DIR

Package

Total

Call Graph

IHS Dental System

CDT4REM^ADECD49 $$HAT^ADEPQA

VA Fileman

IX^DIC ^DIR

Package	Total	Caller Graph
IHS Dental System	1	ADEPQA

Package

Total

Caller Graph

IHS Dental System

ADEPQA

Entry Points

External References

Name	Field # of Occurrence
CDT4REM^ADECD49	ADAS1B+6
$$HAT^ADEPQA	ADAC1+1, ADAC2, ADAC3, ADAC4, ADAC5, ADAC6, ADAS6+5, ADAS5+5, ADAS4+4, ADAS1+4 , ADAS1+6, ADAS3+4, ADAS3+6, ADAS1B+2, ADAS2+3, ADAS2+7, ADAS2+8
IX^DIC	ADAS1B+5
^DIR	ADAS6+4, ADAS5+4, ADAS4+3, ADAS1+3, ADAS3+3, ADAS2+2, ADAS2+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADAS6+1
Function Call: WRITE	Prompt: ! Line Location: ADAS5+1
Function Call: WRITE	Prompt: ! Line Location: ADAS4+1
Function Call: WRITE	Prompt: ! Line Location: ADAS1+1
Function Call: WRITE	Prompt: ! Line Location: ADAS3+1
Function Call: READ	Prompt: "Select ADA CODE: " Formatting: ! Timeout: DTIME Variable: X Line Location: ADAS1B+4
Function Call: WRITE	Prompt: ! Line Location: ADAS2+1
Function Call: WRITE	Prompt: " --",X," ??" Line Location: ADA2+2
Function Call: WRITE	Prompt: !,"OK. I will look for procedures NOT followed by these codes." Line Location: ADA2+3
Function Call: WRITE	Prompt: " --",X," ??" Line Location: ADA2+5
Function Call: WRITE	Prompt: " --",ADEBEG," ??" Line Location: ADA2+7
Function Call: WRITE	Prompt: " --",ADEND," ??" Line Location: ADA2+8
Function Call: WRITE	Prompt: !,?5,ADEBEG,?15,$P(^AUTTADA(ADEY,0),U,2) Line Location: ADA2+15
Function Call: WRITE	Prompt: !,?5," -- Enter a single operative site or a range of PERMANENT TOOTH NUMBERS",!,?5,"separated by a dash, e.g. 6-9" Line Location: ADA4+1
Function Call: WRITE	Prompt: ?20,"--",ADEBEG,"?? Ranges can apply only to permanent tooth numbers." Line Location: ADA4+3
Function Call: WRITE	Prompt: ?20,"--",ADEND,"?? Ranges can apply only to permanent tooth numbers." Line Location: ADA4+4
Function Call: WRITE	Prompt: !,?5,ADEBEG,?15,$P(^ADEOPS(ADEY,0),U) Line Location: ADA4+5
Routine Call	DIR Line Location: ADAS6+4 ADAS5+4 ADAS4+3 ADAS1+3 ADAS3+3 ADAS2+2 ADAS2+7
Routine Call	DIC Line Location: ADAS1B+5

FileNo	Call Tags
^AUTTADA - [#9999999.31]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ADEOPS - [#9002010.03]	ADA4+5
^ADEOPS("B"	ADA4+5
^AUTTADA - [#9999999.31]	ADA2+15
^AUTTADA("BA"	ADA2+14, ADA2+15

Name	Line Occurrences
ADA2	ADAS1B+2
ADA3	ADA2, ADA2+15, ADA4, ADA4+5
ADA4	ADAS2+7
ADAC1	ADAC2
ADAC2	ADAC3
ADAC3	ADAC4, ADAC5, ADAC6
ADAS1	ADAC1+1, ADAS1+6
ADAS1B	ADAS1+6, ADAS3+6
ADAS2	ADAC2, ADAS2+8
ADAS3	ADAC3, ADAS3+6
ADAS4	ADAC4
ADAS5	ADAC5
ADAS6	ADAC6

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADEBEG	ADA+4~, ADA2+6, ADA2+7, ADA2+14, ADA2+15, ADA4+2, ADA4+3, ADA4+5*
ADECOD	ADA+4~, ADAC1+2, ADAC1+3, ADAC2, ADAC3, ADAC4, ADAC5, ADAC6, ADAS6, ADAS6+6 , ADAS5, ADAS5+6, ADAS4, ADAS4+5, ADAS1, ADAS3, ADAS2, ADA3, ADA3+1, ADA3+2*
ADEFLG	ADA+4~, ADA3*, ADA3+1, ADA3+2
ADEJ	ADA+4~
ADEK	ADA+4~, ADA3*
ADEND	ADA+4~, ADA2+6, ADA2+8, ADA2+15, ADA4+2, ADA4+4, ADA4+5
ADENOT	ADAC3~, ADAS3, ADA2+2, ADA2+4
ADERSP	ADA+4~, ADAC1+3, ADAC2, ADAC3, ADAC4, ADAC5, ADAC6, ADAC6+1, ADAC6+2!
ADEX	ADAS1B+1~*, ADAS1B+6
ADEXSEL	ADAS1B+1~, ADAS1B+6
ADEY	ADA+4~, ADAS1B+2, ADAS2+7, ADA2, ADA2+1, ADA2+5, ADA2+6, ADA2+15, ADA4, ADA4+1 , ADA4+2, ADA4+5, ADA3, ADA3+1, ADA3+2
>> D	ADAS1B+3*
DIC	ADAS1B~, ADAS1B+3*
DIC(0	ADAS1B+3*
DIR	ADA+4~, ADAS4!, ADAS1!, ADAS3!, ADAS2+5!, ADAS2+8!
DIR("A"	ADAS6+1, ADAS5+1, ADAS4+1, ADAS1+1, ADAS3+1, ADAS2+1
DIR("B"	ADAS6+3, ADAS5+3, ADAS1+2, ADAS3+2, ADAS2+2*
DIR(0	ADAS6+2, ADAS5+2, ADAS4+2, ADAS1+3, ADAS3+3, ADAS2+2, ADAS2+6*
DTIME	ADAS1B+4
>> DTOUT	ADAS1B+4*
U	ADAC1+3, ADAC2, ADAC3, ADAC4, ADAC5, ADAC6, ADAS1B+2, ADAS1B+4, ADAS1B+6, ADAS2+7 , ADA2+15, ADA4+5
>> X	ADAS1B+2, ADAS1B+4*, ADAS2+7, ADA2+1, ADA2+2, ADA2+5, ADA2+6, ADA4+1, ADA4+2
>> Y	ADAS6+6, ADAS5+6, ADAS4+5, ADAS1+5, ADAS3+5, ADAS1B+2, ADAS1B+6, ADAS2+4, ADAS2+7

Customize PDF page

Package: IHS Dental System

Routine: ADEPQA3A

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
ADACTRL	;Control Sequence
ADA3
ADA4
ADA2
ADAC1	;FHL 9/9/98
ADAC2
ADAC3
ADAC4
ADAC5
ADAC6
ADA()	;ENTRY POINT ; - Returns "1/0^Code DFN^Followed-by Code^NOT flag^Relative Date ; ^Same Opsite(Y/N)^Particular Opsite" (Codes and Opsite DFN)
ADAS1
ADAS2
ADAS3
ADAS4
ADAS5
ADAS6
ADAS1B