Routine: ADEGRL5B

Information

ADEGRL5B ; IHS/HQT/MJL - DENTAL CODE EDITS PT 2 ; [ 03/24/1999 9:04 AM ]

Source file <ADEGRL5B.m>

Package	Total	Call Graph
IHS Dental System	4	$$ADDOP^ADEGRL5 ^ADEGRL5A $$DES^ADEGRL5B ($$DELOP,$$GETSFC)^ADEGRL5C
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Dental System	3	ADEGRL3 ADEGRL5A ADEGRL5B

Name	Comments	DBIA/ICR reference
RESOLVE	;EP - DO APPROPRIATE RESOLUTION
RETURN	;EP - Press return to continue
R1	;RESOLUTION 1 - REJECT CODE (WITH MESSAGE)
R2	;RESOLUTION 2 - CHANGE CODE -- ONLY NON OPSITE CODES
R3	;RESOLUTION 3 - FLAG AS NON-REPORTABLE
NONREP(ADEOPC,ADEVCOD)	;Mark opsite ADEOPC in ADEVCOD unreportable
DES(ADETMP)	;EP - Returns short description of ADA CODE ADETMP
R2B
R2A	;First, delete the opsite from current adev(adecod)
R2CUR	;Call ADEGRL5A recursively

Name	Line Occurrences
Function Call: WRITE	Prompt: !,ADECOD," " Line Location: R1+4
Function Call: WRITE	Prompt: "OPSITE ",^ADEOPS(ADEOPC,88) Condition for execution: $D(ADEOPC) Line Location: R1+4
Function Call: WRITE	Prompt: ": " Line Location: R1+4
Function Call: WRITE	Prompt: !,ADECOD," OPSITE ",^ADEOPS(ADEOPC,88),": recoded to ",ADETMP Line Location: R2A+9
Function Call: WRITE	Prompt: !,ADECOD," recoded to ",ADETMP Line Location: R2B+1
Function Call: WRITE	Prompt: !,ADECOD," " Line Location: R3+4
Function Call: WRITE	Prompt: "OPSITE ",^ADEOPS(ADEOPC,88) Condition for execution: $D(ADEOPC) Line Location: R3+4
Function Call: WRITE	Prompt: ": " Line Location: R3+4
Function Call: WRITE	Prompt: !,ADECOD,":" Line Location: R3+5
Function Call: WRITE	Prompt: ! Line Location: RETURN+3
Routine Call	DIR Line Location: RETURN+3

Name	Line Occurrences (* Changed, ! Killed)
^ADEDIT - [#9002007.9]	R1+5, R2+4, R3+4, R3+5
^ADEOPS - [#9002010.03]	R1+4, R2A+9, R3+4
^AUTTADA - [#9999999.31]	DES+2
^AUTTADA("B"	DES+1

Name	Field # of Occurrence
ADECOD	R1+1, R1+2, R1+3, R1+4, R2CUR+1~, R2CUR+2*, R2A+2, R2A+3, R2A+4, R2A+9 , R2B, R2B+1, R2B+2, R3+1, R3+2, R3+3, R3+4, R3+5
>> ADEDES(	R2A+6, R2B+2!, R2B+3
ADEJ	NONREP+1~, NONREP+3*
ADENONR	NONREP+1~, NONREP+2, NONREP+3, NONREP+4
>> ADENRP(	R3+4, R3+5
ADEOPC	R1+1, R1+2, R1+3, R1+4, R2+5, R2+6, R2A+2, R2A+4, R2A+8, R2A+9 , R3+1, R3+2, R3+3, R3+4, R3+5, NONREP~, NONREP+3
>> ADERDFN	R1+5, R2+4, R3+4, R3+5
>> ADEREDO	R2+5, R2+6
>> ADERTYP	RESOLVE+1, RESOLVE+2, RESOLVE+3
>> ADES(	R2A+3!
ADESFC	R2A+1~, R2A+2*, R2A+8
ADETMP	R2+3~, R2+4, R2CUR+2, R2A+6, R2A+8, R2A+9, R2B, R2B+1, R2B+3, DES~ , DES+1, DES+2*, DES+3
ADETST	NONREP+1~, NONREP+2*, NONREP+3
>> ADEV(	R1+1!, R1+2!, R1+3, R2A+2, R2A+3!, R2A+4, R2A+6, R2A+8, R2B, R2B+2! , R3+1, R3+2, R3+3
ADEVCOD	NONREP~, NONREP+2, NONREP+3, NONREP+4*, NONREP+5, NONREP+6!
>> ADEXFLG	R1+7, R2A+10, R2B, R3+6
DIR	RETURN+1~, RETURN+4!
DIR("A"	RETURN+2*
DIR(0	RETURN+2*
DIROUT	RETURN+4!
DIRUT	RETURN+4!
DTOUT	RETURN+4!
DUOUT	RETURN+4!
U	R2+4, R3+1, R3+2, DES+2, NONREP+2, NONREP+4
X	RETURN+4!
Y	RETURN+4!