Routine: ADEGRL1

Package

Total

Call Graph

^ADECLS ($$UNIV,UNIV)^ADEGRL0

^DIC ^DIR

EN^XQH

Package	Total	Caller Graph
IHS Dental System	3	ADEGRL ADEGRL31 ADELETE

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Select Location of Encounter: ",$S($D(ADEFAC):ADEFAC_"// ",1:"") Line Location: FAC+1
Function Call: WRITE	Prompt: !,*7,"Only facilities entered into the LOCAL FACILITY field of the DENTAL SITE",!,"PARAMETERS file may be selected." Line Location: FAC+3
Function Call: WRITE	Prompt: $E(ADELIN,1,40-($L(ADETITL)/2)),ADETITL,$E(ADELIN,1,39-($L(ADETITL)/2)) Line Location: LINE+0
Function Call: WRITE	Prompt: !,"Enter the Health Record Number of a Patient: " Line Location: PTLOOK+2
Function Call: WRITE	Prompt: !!,"PATIENT'S RECORD CURRENTLY BEING EDITED. TRY LATER." Line Location: PTLOOK+9
Routine Call	DIC Line Location: FAC+2 REPD+2 PTLOOK+6
Routine Call	DIR Line Location: RESET4

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

Name	Line Occurrences (* Changed, ! Killed)
^ADEPARAM - [#9002006]	RESET+4
^ADEUTL("ADELOCK"	PTLOOK+9, PTLOOK+10*
^AUTTSITE(1	RESET+4
^DIC(16 - [#16]	SCRN1, RESET+6
^DIC(6 - [#6]	SCRN1, SCRN1+2, SCRN2, SCRN2+2
^DIC(7 - [#7]	SCRN1, SCRN2

Name	Field # of Occurrence
^(9999999	SCRN2

Name	Field # of Occurrence
>> ADECON	SCRN1
>> ADEDIR	RESET+4, RESET+5
>> ADEFAC	FAC+1, FAC+6, RESET4+3
>> ADEFACD	FAC+6, RESET3+2, RESET4+3*, RESET4+4
>> ADELIN	LINE
ADEPAT	PTLOOK+1!, PTLOOK+8*, PTLOOK+9!, PTLOOK+10
>> ADEPRO	RESET+2*
>> ADEPROD	RESET+2*
>> ADEREP	REPD+2, REPD+3, RESET+3, RESET+4, RESET+5, RESET+6
>> ADEREPD	REPD+3, RESET+3, RESET+4, RESET+5, RESET+6
>> ADETITL	LINE
>> ADETMP	FAC+4*
>> AUPNLK("ALL"	FAC+5!
DIC	FAC+2!, REPD!, REPD+2!, PTLOOK+1!, PTLOOK+6*!
DIC("A"	REPD*
DIC("B"	REPD+2*
DIC("S"	REPD+1*
DIC(0	FAC+2, REPD, PTLOOK+6*
DIR	RESET3~, RESET4+1!
DIR("A"	RESET3+4, RESET3+6, RESET3+7, RESET3+8, RESET3+9, RESET3+10, RESET3+11, RESET3+12, RESET3+13, RESET3+14 , RESET3+15, RESET3+17, RESET3+18, RESET3+19, RESET3+20, RESET3+21, RESET3+22*
DIR(0	RESET3+3*
>> DIROUT	HAT+1
DTIME	FAC+1, PTLOOK+3
>> DTOUT	HAT+1
>> DUOUT	HAT+1
DUZ(2	FAC+6*, RESET3+2
U	REPD+3, SCRN1, SCRN2, RESET+4, RESET+6, RESET4+1, RESET4+3, PTLOOK+8
X	FAC+1, FAC+2, RESET4+1, PTLOOK+3, PTLOOK+4, PTLOOK+5, PTLOOK+9!
XQH	PTLOOK+5*!
Y	FAC+2!, FAC+3, FAC+5, REPD!, REPD+2, REPD+3, SCRN1, SCRN1+2, SCRN2, SCRN2+2 , RESET+5, RESET4+2, RESET4+3, PTLOOK+1!, PTLOOK+4, PTLOOK+7, PTLOOK+8, PTLOOK+11*
Y(0	FAC+4, FAC+6, REPD+3, RESET4+3

Information

Name	Comments	DBIA/ICR reference
RESET	;EP
RESET3
PTLOOK	;EP
RESET4
HAT()	;EP - Returns 1 if dtout,duout,dirout
SCRN2
FAC	;EP
SCRN1
REPD
LINE