©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
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 |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| 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 | Line Occurrences |
|---|---|
| $$DES | R2B+3 |
| $$NONREP | R3+3 |
| R1 | RESOLVE+1 |
| R2 | RESOLVE+2 |
| R2A | R2+5 |
| R2B | R2+6 |
| R2CUR | R2+5, R2+6 |
| R3 | RESOLVE+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| 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! |