Routine: ADEGRL4

Package	Total	Call Graph
IHS Dental System	3	^ADECLS LIST^ADEGRL3 ^ADEHELP
VA Fileman	3	^%DT ^DIC ^DIR
IHS VA Utilities	1	$$FISCAL^XBDT
Kernel	1	EN^XQH

Package	Total	Caller Graph
IHS Dental System	3	ADEGRL3 ADEGRL31 ADEGRL32

Entry Points

Name	Comments	DBIA/ICR reference
NOTE	;EP
FYVIS(ADEPAT,ADEVDATE)	;EP - Returns "1/0^Visit Status"
PROV	;EP
REPD2
VSTAT2
VSTAT	;EP
VSTAT1
PROV2
FAC
REPD	;EP

External References

Name	Field # of Occurrence
^%DT	FYVIS+7
^ADECLS	VSTAT1+12
LIST^ADEGRL3	VSTAT1, VSTAT1+12
^ADEHELP	VSTAT1+12
^DIC	FAC, PROV+6, REPD+6
^DIR	PROV2+4, REPD2+3
$$FISCAL^XBDT	FYVIS+13
EN^XQH	VSTAT1+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Visit Status Codes:",!,?8,"1 First Visit of the Fiscal Year",?52,"(0000)",!,?8,"2 Revisit (for any reason)",?52,"(0190)" Line Location: VSTAT1+1
Function Call: WRITE	Prompt: !!,"Select Visit Status: " Line Location: VSTAT1+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: VSTAT1+6
Function Call: WRITE	Prompt: *7,"??" Line Location: VSTAT1+13
Function Call: WRITE	Prompt: *7,"??" Line Location: VSTAT1+14
Function Call: WRITE	Prompt: !,"Select HYGIENIST/THERAPIST: ",$S(ADEPVNM]"":ADEPVNM_"// ",1:"") Line Location: PROV+4
Function Call: WRITE	Prompt: !!,"Do you want to use this same HYGIENIST/THERAPIST for subsequent",!,"visits in this data entry session?" Line Location: PROV2+2
Function Call: WRITE	Prompt: !,"Select ATTENDING DENTIST: ",$S(ADERDNM]"":ADERDNM_"// ",1:"") Line Location: REPD+4
Function Call: WRITE	Prompt: !!,"Do you want to use this same ATTENDING DENTIST for subsequent",!,"visits in this data entry session?" Line Location: REPD2+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: NOTE+2
Function Call: WRITE	Prompt: *7 Line Location: NOTE+2
Function Call: WRITE	Prompt: *7," ??" Line Location: NOTE+5
Routine Call	DIC Line Location: FAC PROV+6 REPD+6
Routine Call	DIR Line Location: PROV2+4 REPD2+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ADEPARAM - [#9002006]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADEPCD - [#9002007]	FYVIS+34, FYVIS+35
^ADEPCD("AC"	FYVIS+18, FYVIS+19
^ADEPCD("DATE"	FYVIS+23, FYVIS+25, FYVIS+32, FYVIS+33
^AUTTADA("B"	FYVIS+30, FYVIS+31
^DD(9002007	NOTE+5

Label References

Name	Line Occurrences
$$FYVIS	VSTAT+2
NOTE	NOTE+5
PROV	PROV+9
PROV2	PROV+7
REPD	REPD+9
REPD2	REPD+7
VSTAT1	VSTAT1+12, VSTAT1+13, VSTAT1+14
VSTAT2	VSTAT+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	FYVIS+7*
ADECNT	FYVIS+6~, FYVIS+16, FYVIS+18, FYVIS+19, FYVIS+21
>> ADECON	VSTAT1+14
>> ADEDES("0000"	VSTAT2*
>> ADEDES("0190"	VSTAT2*
>> ADEDES("9130"	VSTAT2*
>> ADEDES("9140"	VSTAT2*
>> ADEDES("9986"	VSTAT2*
>> ADEDES("9987"	VSTAT2*
ADEDICS	PROV+7!, PROV+8!, PROV+11!, REPD+7!, REPD+8!, REPD+11!
>> ADEDIR	VSTAT1+4, VSTAT1+9, VSTAT1+13
>> ADEFLG	FYVIS+28, FYVIS+32, FYVIS+33, FYVIS+34, FYVIS+35*, FYVIS+36
ADEFV	FYVIS+6~, FYVIS+30*, FYVIS+34
ADEFY	FYVIS+6~, FYVIS+13*, FYVIS+14, FYVIS+16, FYVIS+18, FYVIS+24, FYVIS+25, FYVIS+29, FYVIS+38!
ADEJ	VSTAT+1~, VSTAT+2, VSTAT+3, FYVIS+6~, FYVIS+16, FYVIS+18, FYVIS+19, FYVIS+24, FYVIS+25, FYVIS+26 , FYVIS+29, FYVIS+32*, FYVIS+33
ADEK	FYVIS+6~, FYVIS+19, FYVIS+33, FYVIS+34, FYVIS+35
>> ADELOE	FAC, FAC+1*
>> ADELOED	FAC+1*
ADENDFY	FYVIS+6~, FYVIS+14*, FYVIS+26, FYVIS+38!
>> ADENOTE	NOTE+1, NOTE+4, NOTE+6
ADEPAT	VSTAT+2, FYVIS~, FYVIS+23, FYVIS+25, FYVIS+32, FYVIS+33
>> ADEPRO	PROV2+5*
>> ADEPROD	PROV2+5*
>> ADEPVNM	PROV+4, PROV+7, PROV+10, PROV2+5
>> ADEPVNMD	PROV+7, PROV+10, PROV2+5
>> ADERDNM	REPD+4, REPD+7, REPD+10, REPD2+4
>> ADERDNMD	REPD+7, REPD+10, REPD2+4
>> ADEREP	REPD2+4*
>> ADEREPD	REPD2+4*
ADERV	FYVIS+6~, FYVIS+31*, FYVIS+35
>> ADEV(	VSTAT+3, VSTAT1+17
ADEVDATE	VSTAT+2, FYVIS~, FYVIS+7
ADEVFM	FYVIS+6~, FYVIS+7*, FYVIS+12, FYVIS+13
>> DA(1	FAC*
DIC	FAC!, PROV+2!, PROV+7!, PROV+8!, PROV+11!, REPD+2!*, REPD+7!, REPD+8!, REPD+11!
DIC("A"	FAC*
DIC("B"	FAC*
DIC("S"	PROV+3, REPD+3
DIC(0	FAC, PROV+2, REPD+2*
DIR	PROV+1~, REPD+1~
DIR("B"	PROV2+3, REPD2+2
DIR(0	PROV2, REPD2
DTIME	VSTAT1+6, PROV+4, REPD+4, NOTE+2
DUZ(2	FAC
U	VSTAT+3, PROV+10, REPD+10, NOTE+5, FYVIS+13
>> X	VSTAT1+6, VSTAT1+9, VSTAT1+10, VSTAT1+11, VSTAT1+12, VSTAT1+13, VSTAT1+14, VSTAT1+17, PROV+4, PROV+7 , PROV+8, REPD+4, REPD+7, REPD+8, NOTE+2, NOTE+3, NOTE+4, NOTE+5, NOTE+6, FYVIS+7*
XQH	VSTAT1+12*!
Y	VSTAT1+6, VSTAT1+11, VSTAT2*, FAC!, PROV+2!, PROV+7!, PROV+8!, PROV+9, PROV+10, PROV2+5 , REPD+2!, REPD+7!, REPD+8!, REPD+9, REPD+10, REPD2+4, FYVIS+7
Y(0	FAC+1, PROV+10, REPD+10

Customize PDF page

Package: IHS Dental System

Routine: ADEGRL4

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: