Routine: ADEPQA4

Package	Total	Call Graph
IHS Dental System	1	$$HAT^ADEPQA
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Dental System	1	ADEPQA

Entry Points

Name	Comments	DBIA/ICR reference
CHK()	;EP - Returns 1 if user says parameters ok, otw 0
CHK2

External References

Name	Field # of Occurrence
$$HAT^ADEPQA	CHK+5, CHK+10
^DIR	CHK+4, CHK+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CHK+1
Function Call: WRITE	Prompt: ! Line Location: CHK+9
Function Call: WRITE	Prompt: !!,"This search includes dental visits which meet the following specifications:",!! Line Location: CHK2+0
Function Call: WRITE	Prompt: !,"Limited to entries in the ",$P(^DIBT($P(ADESTP,U,2),0),U)," Template." Line Location: CHK2+1
Function Call: WRITE	Prompt: !,"Limited to visits between " Line Location: CHK2+4
Function Call: WRITE	Prompt: Y Line Location: CHK2+5
Function Call: WRITE	Prompt: " and " Line Location: CHK2+6
Function Call: WRITE	Prompt: Y Line Location: CHK2+7
Function Call: WRITE	Prompt: !,"Limited to patients whose AGE AT TIME OF VISIT was between ",$P(ADEAGE,U,2)," and ",$P(ADEAGE,U,3)," (inclusive)." Line Location: CHK2+8
Function Call: WRITE	Prompt: !,"Limited to the following ATTENDING DENTISTS:",!,?5 Line Location: CHK2+9
Function Call: WRITE	Prompt: $P(^DIC(16,$P(^DIC(6,$P($P(ADEPROV,U,2),",",ADEJ),0),U),0),U)," " Line Location: CHK2+11
Function Call: WRITE	Prompt: !,"Limited to the following HYGIENISTS/THERAPISTS:",!,?5 Line Location: CHK2+12
Function Call: WRITE	Prompt: $P(^DIC(16,$P(^DIC(6,$P($P(ADEHYG,U,2),",",ADEJ),0),U),0),U)," " Line Location: CHK2+14
Function Call: WRITE	Prompt: !,"Limited to the following LOCATIONS:",!,?5 Line Location: CHK2+15
Function Call: WRITE	Prompt: $P(^DIC(4,$P($P(ADELOC,U,2),",",ADEJ),0),U)," " Line Location: CHK2+17
Function Call: WRITE	Prompt: !,"Limited to the following ADA CODES:",!,?5 Line Location: CHK2+21
Function Call: WRITE	Prompt: $P(^AUTTADA($P($P(ADESCN,U,2),",",ADEJ),0),U)," " Line Location: CHK2+23
Function Call: WRITE	Prompt: !,"Limited to the following OPERATIVE SITES:",!,?5 Line Location: CHK2+24
Function Call: WRITE	Prompt: $P(^ADEOPS($P($P(ADESCN,U,7),",",ADEJ),88),U)," " Line Location: CHK2+25
Function Call: WRITE	Prompt: ! Line Location: CHK2+27
Function Call: WRITE	Prompt: "NOT " Line Location: CHK2+28
Function Call: WRITE	Prompt: "Followed " Line Location: CHK2+29
Function Call: WRITE	Prompt: "on the SAME Operative Site " Line Location: CHK2+30
Function Call: WRITE	Prompt: "within ",$P(ADESCN,U,5)," days " Line Location: CHK2+31
Function Call: WRITE	Prompt: "by these ADA CODES: " Line Location: CHK2+32
Function Call: WRITE	Prompt: !,?5 Line Location: CHK2+32
Function Call: WRITE	Prompt: $P(^AUTTADA($P($P(ADESCN,U,3),",",ADEJ),0),U)," " Line Location: CHK2+33
Function Call: WRITE	Prompt: !,"Codes on the same visit ",$S($P(ADESCN,U,8)="Y":"WILL",1:"will NOT")," be included as 'FOLLOWED BY' codes." Line Location: CHK2+34
Routine Call	DIR Line Location: CHK+4 CHK+9

Name	Line Occurrences (* Changed, ! Killed)
^ADEOPS - [#9002010.03]	CHK2+25
^AUTTADA - [#9999999.31]	CHK2+23, CHK2+33
^DD("DD"	CHK2+5, CHK2+7
^DIBT(	CHK2+1
^DIC(16 - [#16]	CHK2+11, CHK2+14
^DIC(4 - [#4]	CHK2+17
^DIC(6 - [#6]	CHK2+11, CHK2+14

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADEADA(1	CHK2+19, CHK2+20
>> ADEAGE	CHK2+8
>> ADEDATE	CHK2+2, CHK2+5, CHK2+7
>> ADEHYG	CHK2+12, CHK2+14
ADEJ	CHK2+10~, CHK2+11, CHK2+13~, CHK2+14, CHK2+16~, CHK2+17, CHK2+22~, CHK2+23, CHK2+25, CHK2+33
>> ADELOC	CHK2+15, CHK2+17
>> ADEPROV	CHK2+9, CHK2+11
ADESCN	CHK2+20~*, CHK2+21, CHK2+23, CHK2+24, CHK2+25, CHK2+26, CHK2+28, CHK2+30, CHK2+31, CHK2+33 , CHK2+34, CHK2+36!
>> ADESTP	CHK2+1
DIR	CHK+2~, CHK+3!, CHK+8!
DIR("A"	CHK+4, CHK+9
DIR("B"	CHK+4, CHK+9
DIR(0	CHK+4, CHK+9
U	CHK2+1, CHK2+5, CHK2+7, CHK2+8, CHK2+11, CHK2+14, CHK2+17, CHK2+21, CHK2+23, CHK2+24 , CHK2+25, CHK2+26, CHK2+28, CHK2+30, CHK2+31, CHK2+33, CHK2+34
Y	CHK+6, CHK+11, CHK2+3~, CHK2+5, CHK2+7

Customize PDF page

Package: IHS Dental System

Routine: ADEPQA4

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: