Routine: ADEGRL5A

Information

ADEGRL5A ; IHS/HQT/MJL - CODE EDITS ; [ 03/24/1999 9:04 AM ]

Package	Total	Call Graph
IHS Dental System	3	RESOLVE^ADEGRL5B $$DUPE^ADEGRL5C $$FY^ADEUTL
VA Fileman	2	^%DT C^%DTC

Package	Total	Caller Graph
IHS Dental System	2	ADEGRL3 ADEGRL5B

Name	Comments	DBIA/ICR reference
E2A3
E3A
CTRL
EDIT
RES	;$O THRU RESOLUTION TYPE XREF
RES1
EXIT
E2A	;
E2B
E4	;Permissible Opsites -use only with codes that require opsites ; and use only Resolution 1 (reject)
E1A
E2A2
E1B
E1	;EDIT TYPE 1 -- INCOMPATIBLE CODES
E3	;Age Screen
E2	;EDIT TYPE 2 -- TIME LIMIT ON CODES

Name	Line Occurrences (* Changed, ! Killed)
^ADEDIT - [#9002007.9]	EDIT, E1+3, E1+6, E1+7, E2+2, E2+5, E2+16, E2+17, E3+3, E3+9 , E3+10, E4+3
^ADEDIT("AC"	CTRL+1, RES+2, RES1+1
^ADEDIT("GRP" - [#9002007.91]	E1+4, E2+3, E4+4
^ADEOPS("B"	E4+7

Name	Field # of Occurrence
%DT	E2+4*!
ADECNT	E2A3~, E2A3+1, E2A3+2, E2A3+3
>> ADECOD	CTRL+1, RES+2, RES1+1, E1A, E1A+1, E1B, E2A+1, E3A, E4+9
ADECONF	CTRL~, EXIT+1!, E1+3, E1+4, E1A, E1A+1, E1B, E2+2, E2+3, E2A2 , E2B
ADED	E2A3~, E2A3+1, E2A3+2
ADEDTYP	CTRL~, EXIT+1!, EDIT+2*, EDIT+3, EDIT+4, EDIT+5, EDIT+6
>> ADEHXC(	E2B
>> ADEHXO(	E2A2, E2A3+2
ADEJJ	CTRL~, EXIT+1!, E1B*
ADEK	E1+1~, E2+1~, E2A+2, E2B, E3+1~, E3A+1, E4+2~, E4+5, E4+6, E4+11*
ADEKK	EXIT+2!, E1+1~, E1A, E1A+1, E2+1~, E2A2
ADELIM	CTRL~, EXIT+1!, E2+10, E2+13, E2A2, E2A3+1, E2B
ADENOD	CTRL~, EXIT+1!, EDIT*, EDIT+1, EDIT+2
ADEOP	E1+1~, E1A+1, E2+1~, E2A+1, E2A+2, E3+1~, E3A, E3A+1, E4+2~, E4+9 , E4+10, E4+11
ADEOPC	E1+1~, E1A+1, E2+1~, E2A+2, E2A2, E2A3+2, E3+1~, E3A+1, E4+2~, E4+11 , E4+12
ADEPC	CTRL~, EXIT+1!, E1+1~, E1A+1, E2+1~, E2A2, E2A3+2, E2B, E3+1~, E4+6 , E4+7*, E4+8
ADEPERM	E4+2~, E4+3, E4+4, E4+5, E4+6, E4+14!
ADEPERM(	E4+8*, E4+12
ADEQTY	E2+1~, E2+7*, E2A3+3
ADERDFN	CTRL~, EXIT+1!, RES1, RES1+1, EDIT, E1+3, E1+6, E1+7, E2+2, E2+5 , E2+16, E2+17, E3+3, E3+9, E3+10, E4+3
ADERTYP	CTRL~, RES+1, RES+2, EXIT+1!, RES1+1
ADETST	E3+1~, E3+3, E3+5, E3+7
>> ADEV(	RES+2, RES1+1, E1A, E1A+1, E1B, E2A+1, E3A, E4+9
>> ADEVDATE	E2+4, E2+10
ADEVFM	CTRL~, EXIT+1!, E1+1~, E2+1~, E2+4*, E2A2, E2A3+2, E2B
>> AUPNDAYS	E3+6
U	EDIT+1, EDIT+2, E1+6, E1+7, E1A+1, E2+5, E2+16, E2+17, E2A+1, E3+3 , E3+9, E3+10, E3A, E4+3, E4+4, E4+9
X	E2+4!, E2+13!, E3+6
>> X1	E2+4*
>> X2	E2+5, E2+6, E2+7, E2+8, E2+12
Y	E2+4!