Routine: ADEATT

Package	Total	Call Graph
IHS Dental System	7	(,FEE)^ADEATT2 ^ADEATT3 ^ADEATT4 ^ADECLS (END,MOD)^ADEGRL ^ADEGRL2 (HRN,LIST)^ADEGRL3
Kernel	3	^%ZIS ^%ZTLOAD EN^XQH
VA Fileman	2	^DIC ^DIE

Package

Total

Call Graph

(,FEE)^ADEATT2 ^ADEATT3 ^ADEATT4 ^ADECLS (END,MOD)^ADEGRL ^ADEGRL2 (HRN,LIST)^ADEGRL3

^%ZIS ^%ZTLOAD EN^XQH

^DIC ^DIE

Package	Total	Caller Graph
IHS Dental System	1	ADEGRL3

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: " ??",*7 Line Location: VIS+1
Function Call: WRITE	Prompt: !,"REQUEST QUEUED." Line Location: INT+9
Function Call: READ	Prompt: "Press `Return' to continue: " Timeout: DTIME Variable: X Line Location: INS+3
Function Call: WRITE	Prompt: !?5,"Please provide Address information for this insurer (`^' to abort):" Line Location: INS2+4
Function Call: WRITE	Prompt: !?5,"*INCOMPLETE INSURER ADDRESS -- ABORTED*" Line Location: INS2+7
Routine Call	DIE Line Location: INS2+6
Routine Call	DIC Line Location: PTLOOK+4 INS+3 INS+5
Routine Call	%ZIS Line Location: INT+9

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUTNINS - [#9999999.18]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUTNINS - [#9999999.18]	INS3

Name	Field # of Occurrence
>> %ZIS	INT+9*
ADECON	CTRL+3, VIS+4, EN+1~, EN+2*, ENDINT+1!
ADEDIR	CTRL+3, VIS+4, EN+1~, EN+2*, ENDINT+1!
>> ADEDIT	INS2+3, INS2+7, INS3*
ADEFAST	CTRL+1, EN+1~, EN+2, ENDINT+1!
ADEINS	END+2!, INS+7*, INS2+5, INS3, ENDINT+1!
ADEINSN	INT+7, END+2!, INS+7*, ENDINT+1!
ADEINT	CTRL+1, RET+1, RET+2, END+2!, EN+2, ENDINT+1!
ADELIN	CTRL, EN+1~, EN+3, ENDINT+1!
>> ADENEWVS	CTRL+3*, VIS+1
ADENOD	END+2!, ENDINT+1!
ADEPAT	PTLOOK+1!, PTLOOK+6*
ADETCHF	INT*, EN+1~, ENDINT+1!
ADETITL	CTRL, EN+1~, EN+3
>> ADEV(	ENDINT*
>> AUPNLK("ALL"	CTRL+3*
DA	INS2+5*, INS2+6!
DIC	PTLOOK+1!, PTLOOK+4!, INS!, INS+2, INS+4*, INS+5!
DIC(0	PTLOOK+4, INS+2, INS+4*
DIE	INS2+5*, INS2+6!
DIE("NO^"	INS2+5*
DR	INS2+5*, INS2+6!
DTIME	PTLOOK+1, INS, INS+3
IO("Q"	INT+9!
>> J	INS3, ENDINT
>> POP	INT+9
U	PTLOOK+6, INS+7, INS3, ENDINT
>> X	PTLOOK+1, PTLOOK+2, PTLOOK+3, INS, INS+1, INS+3, ENDINT
XQH	PTLOOK+3*!
Y	CTRL+4, VIS+1, INT+3, INT+5, PTLOOK+1!, PTLOOK+2, PTLOOK+5, PTLOOK+6, PTLOOK+7, INS! , INS+1, INS+6, INS+7, INS+8, INS2+2, INS2+3, INS2+7, INS2+8
>> Z	QUE+1*
>> ZTDESC	QUE*
>> ZTRTN	QUE*
>> ZTSAVE(	QUE+1*

Information

Name	Comments	DBIA/ICR reference
EN	;EP
END	;------->END
DUZ2
DUZ1
CTRL
INT
PTLOOK	;
RET	;------->RETURN
INS
VIS	;------->VISIT LOOKUP
INS2	;Not allowed to edit the Insurer file
INS3
QUE
ENDINT