Routine: ADEGRL2

Package	Total	Call Graph
IHS Dental System	1	^ADECLS
Kernel	1	EN^XQH
VA Fileman	1	^%DT

Package	Total	Caller Graph
IHS Dental System	3	ADEATT ADEGRL ADELETE

Entry Points

External References

Name	Field # of Occurrence
^%DT	DOD, VSLOOK+7, VSLOOK+9
^ADECLS	VSHELP
EN^XQH	VSHELP

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"*Only CONTRACT Visits may be edited in this mode*" Line Location: DELIV+0
Function Call: WRITE	Prompt: !?5,"*CONTRACT Visits cannot be selected in this option*" Line Location: DELIV+1
Function Call: WRITE	Prompt: !?5,"*PATIENT DIED BEFORE THIS DATE",7 Line Location: DOD+1
Function Call: WRITE	Prompt: !?5,"*MUST BE AFTER 1 JANUARY 84",7 Line Location: DOD+2
Function Call: WRITE	Prompt: !,"Select Visit Number 1-",ADE,": " Line Location: VSLOOK+20
Function Call: WRITE	Prompt: *7," ??" Line Location: VSLOOK+23
Function Call: WRITE	Prompt: !,"You may enter a new visit if you wish." Line Location: VSHELP+1
Function Call: WRITE	Prompt: !,"Enter two question marks `??' for general help on entering dates, or" Line Location: VSHELP+2
Function Call: WRITE	Prompt: !,"Enter the Date of an old Visit" Line Location: VSHELP+3
Function Call: WRITE	Prompt: !,"Choose from:" Line Location: VSHELP+5
Function Call: WRITE	Prompt: ! Line Location: VSHELP1+3
Function Call: WRITE	Prompt: ADE,". " Condition for execution: +ADE Line Location: VSHELP1+3
Function Call: WRITE	Prompt: Y Line Location: VSHELP1+3
Function Call: WRITE	Prompt: ?20," ",$S($P(^ADEPCD(ADEDFN,0),U,9)="c":"CONTRACT",1:"DIRECT") Line Location: VSHELP1+4
Function Call: WRITE	Prompt: ?30," ",$P(^(0),U) Line Location: VSHELP1+5
Function Call: WRITE	Prompt: ?60,"<CANCELLATION>" Line Location: VSHELP1+6
Function Call: WRITE	Prompt: ?60,"<BROKEN APPT.>" Line Location: VSHELP1+7
Function Call: WRITE	Prompt: ?60,"<CANCELLATION>" Line Location: VSHELP1+9
Function Call: WRITE	Prompt: ?60,"<MISSED APPT.>" Line Location: VSHELP1+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADEPCD - [#9002007]	DELIV, DELIV+1, VSLOOK4, VSLOOK4+2, VSLOOK4+3, VSHELP1, VSHELP1+1, VSHELP1+2, VSHELP1+4, VSHELP1+5 , VSHELP1+6, VSHELP1+7, VSHELP1+9, VSHELP1+10
^ADEPCD("DATE"	VSLOOK+11, VSLOOK+15, VSHELP+4, VSHELP+6
^AUTTADA("B"	VSHELP1+6, VSHELP1+7, VSHELP1+9, VSHELP1+10
^DD("DD"	VSLOOK+7, VSLOOK+11, VSLOOK+13, VSHELP+6
^DIC(16 - [#16]	VSHELP1+5
^DPT - [#2]	DOD+1

Label References

Name	Line Occurrences
CTRL	CTRL+3, CTRL+5
DELIV	CTRL+5
DOD	CTRL+3
END	CTRL+1
VSHELP	VSLOOK+8
VSHELP1	VSLOOK+19, VSHELP+6
VSLOOK	CTRL, VSLOOK+7, VSLOOK+8, VSLOOK+9, VSLOOK+22, VSLOOK+23
VSLOOK4	VSLOOK+15

Naked Globals

Name	Field # of Occurrence
^(	DOD+1
^(0	VSHELP1+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DOD, VSLOOK+7!, VSLOOK+9*!
%DT(0	VSLOOK+7, VSLOOK+9
ADE	VSLOOK+15, VSLOOK+19, VSLOOK+20, VSLOOK+22!, VSLOOK+23!, VSLOOK+25!, VSHELP+6*, VSHELP1+3
>> ADECON	DELIV, VSLOOK4+3, VSHELP1+1
ADEDFN	DELIV, DELIV+1, VSLOOK+1!, VSLOOK+14, VSLOOK+15, VSLOOK+16, VSLOOK+19, VSLOOK+24, VSLOOK4, VSLOOK4+1 , VSLOOK4+2, VSLOOK4+3, VSHELP+6, VSHELP1, VSHELP1+1, VSHELP1+2, VSHELP1+4, VSHELP1+5, VSHELP1+6, VSHELP1+7 , VSHELP1+9, VSHELP1+10
>> ADEDIR	DELIV+1, VSLOOK4+1, VSLOOK4+2, VSHELP1+2
>> ADENEWVS	CTRL+5, VSLOOK+1, VSLOOK+7, VSLOOK+11, VSLOOK+16, VSLOOK+17, VSLOOK+24
>> ADEPAT	DOD+1, VSLOOK+11, VSLOOK+15, VSHELP+4, VSHELP+6
ADEQ	VSHELP+6*, VSHELP0!
ADETIMEE	VSLOOK+2~, VSLOOK+3*, VSLOOK+11
ADEVCNT	VSLOOK+14, VSLOOK+16, VSLOOK+17, VSLOOK+19, VSLOOK+22!, VSLOOK+23!, VSLOOK+25!, VSLOOK4+1, VSLOOK4+2, VSLOOK4+3
ADEVDATE	DOD, VSLOOK+1!, VSLOOK+7, VSLOOK+11, VSLOOK+13*, VSLOOK+22!, VSLOOK+23!
ADEVDFN	VSLOOK+16!, VSLOOK+22!, VSLOOK+23!, VSLOOK+25!
ADEVDFN(	VSLOOK+19, VSLOOK+24, VSLOOK4+1, VSLOOK4+2, VSLOOK4+3*
ADEVDFN(1	VSLOOK+16
ADEVFM	VSLOOK+13, VSLOOK+15, VSLOOK+22!, VSLOOK+23!, VSHELP+6
ADEX	VSLOOK+21*, VSLOOK+22, VSLOOK+23, VSLOOK+24, VSLOOK+25!
DT	VSLOOK+7, VSLOOK+9
DTIME	VSLOOK+4, VSLOOK+21
U	DELIV, DELIV+1, DOD+1, VSLOOK4+2, VSLOOK4+3, VSHELP1+1, VSHELP1+2, VSHELP1+4, VSHELP1+5
>> X	DOD, VSLOOK+4, VSLOOK+5, VSLOOK+7*, VSLOOK+8, VSHELP
XQH	VSHELP*!
>> Y	CTRL+1, CTRL+3, CTRL+5, DELIV, DELIV+1, DOD+1, DOD+2, DOD+3, VSLOOK+5, VSLOOK+7* , VSLOOK+9, VSLOOK+11, VSLOOK+13, VSLOOK+16, VSLOOK+17, VSLOOK+22, VSLOOK+24, VSHELP+6, VSHELP1+3

Customize PDF page

Package: IHS Dental System

Routine: ADEGRL2

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: