©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
AUMI10U ;IHS/OIT/NKD - UTILITY FOR ICD10 - 09/04/2018 ;
Source file <AUMI10U.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | (FILE,UPDATE)^DIE IX^DIK |
| DRG Grouper | 1 | ($$CODEC,$$ROOT,MD)^ICDEX |
| IHS VA Utilities | 1 | ^XBFMK |
| Kernel | 1 | $$UP^XLFSTR |
| Table Maintenance | 1 | ($$SYS,RLOG)^AUMI10D |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PCSPRE | ; EP - ICD10 OPERATION/PROCEDURE FILE PRE-TRANSFORM
; P1 = CODE ;P2 = HEADER ;P3 = SHORT ;P4 = LONG ;P5 = MS-DRG ;P6 = N/A ; P7 = N/A ;P8 = N/A ;P9 = N/A ;P10= SEX ;P11= N/A |
|
| IEN(SYS) | ; EP - FIND NEXT AVAILABLE IEN BASED ON SYS
|
|
| CMPRE | ; EP - ICD10 DIAGNOSIS FILE PRE-TRANSFORM
; P1 = CODE ;P2 = HEADER ;P3 = SHORT ;P4 = LONG ;P5 = MS-DRG ;P6 = CC/MCC ; P7 = PDX CC ;P8 = AGE LOW ;P9 = AGE HIGH ;P10= SEX ;P11= UNACC PDX ;P12 = POA |
|
| PCSDRG | ; EP - ICD10 OPERATION/PROCEDURE FILE DRG UPDATE
|
|
| EXC(IEN) | ; EP - EXCLUDE ONE CODE FROM LOOKUP
|
|
| CMDRG | ; EP - ICD10 DIAGNOSIS FILE DRG UPDATE
|
| FileNo | Call Tags |
|---|---|
| ^ICD9 - [#80] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AICDZEXC( | EXC+3* |
| ^ICD0 - [#80.1] | PCSDRG+15 |
| ^ICD9 - [#80] | EXC+3, EXC+4!, EXC+5, CMDRG+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AUMC | CMPRE+3~, CMPRE+8*, CMPRE+9, CMPRE+11, CMPRE+12, PCSPRE+3~, PCSPRE+8*, PCSPRE+9, PCSPRE+11, PCSPRE+12 , CMDRG+1~, CMDRG+4*, CMDRG+9*, CMDRG+14*, CMDRG+20*, PCSDRG+1~, PCSDRG+4*, PCSDRG+9*, PCSDRG+10*, PCSDRG+15* , PCSDRG+21*, PCSDRG+22, PCSDRG+23 |
| AUMC2 | CMPRE+3~, CMPRE+11*, CMPRE+12, CMPRE+15*, PCSPRE+3~, PCSPRE+11*, PCSPRE+12, PCSPRE+15*, CMDRG+1~, CMDRG+9* , PCSDRG+1~, PCSDRG+9*, PCSDRG+23* |
| AUMC3 | CMPRE+3~, CMPRE+14*, PCSPRE+3~, PCSPRE+14* |
| AUMD0 | CMDRG+1~, CMDRG+3, CMDRG+6, PCSDRG+1~, PCSDRG+3, PCSDRG+6 |
| AUMD0( | CMDRG+9, PCSDRG+9 |
| AUMD0("" | CMDRG+9 |
| AUMD1 | PCSDRG+1~ |
| AUMD1( | PCSDRG+9*, PCSDRG+10 |
| >> AUMDT | CMDRG+3, CMDRG+14, CMDRG+18, PCSDRG+3, PCSDRG+15, PCSDRG+19 |
| AUMFR | CMDRG+1~, CMDRG+4*, CMDRG+9*, CMDRG+10, CMDRG+22, PCSDRG+1~, PCSDRG+4*, PCSDRG+10*, PCSDRG+11, PCSDRG+25 |
| >> AUMI | CMDRG+3, CMDRG+14, CMDRG+18, CMDRG+20, PCSDRG+3, PCSDRG+15, PCSDRG+19, PCSDRG+22, PCSDRG+23 |
| >> AUML | CMDRG+22, PCSDRG+25 |
| >> AUMM | CMDRG+24*, PCSDRG+27* |
| AUMMDC | CMPRE+3~, CMPRE+8*, CMPRE+9*, CMPRE+15, PCSPRE+3~, PCSPRE+8*, PCSPRE+9*, PCSPRE+15 |
| >> AUMT | CMDRG+3, PCSDRG+3 |
| AUMTMP | CMPRE+3~, CMPRE+10!, CMPRE+12*, CMPRE+13, CMPRE+14, PCSPRE+3~, PCSPRE+10!, PCSPRE+12*, PCSPRE+13, PCSPRE+14 |
| AUMTMP( | CMPRE+14*, CMPRE+15, PCSPRE+14*, PCSPRE+15 |
| AUMTO | CMDRG+1~, CMDRG+4*, CMDRG+7, CMDRG+10, CMDRG+20, CMDRG+22, PCSDRG+1~, PCSDRG+4*, PCSDRG+7, PCSDRG+11 , PCSDRG+25 |
| AUMU | CMDRG+1~, CMDRG+4*, CMDRG+7*, CMDRG+10*, CMDRG+11, PCSDRG+1~, PCSDRG+4*, PCSDRG+7*, PCSDRG+11*, PCSDRG+12 |
| CNT | IEN+1~, IEN+3*, IEN+4*, EXC+1~, EXC+5* |
| CODE | EXC+1~, EXC+2* |
| DA | EXC+1~, EXC+7* |
| DIK | EXC+1~, EXC+7* |
| ERR | EXC+1~, EXC+9 |
| ERR("DIERR" | EXC+9 |
| FDA | EXC+1~, EXC+6, CMDRG+1~, CMDRG+13!, CMDRG+15, CMDRG+17!, PCSDRG+1~, PCSDRG+14!, PCSDRG+16, PCSDRG+18! |
| FDA( | EXC+5*, CMDRG+14*, CMDRG+18*, CMDRG+20*, PCSDRG+15*, PCSDRG+19*, PCSDRG+22*, PCSDRG+23* |
| IEN | IEN+1~, IEN+2*, IEN+3*, IEN+4*, IEN+5, EXC~, EXC+1*, EXC+2, EXC+3, EXC+4 , EXC+5, EXC+7 |
| >> INA | CMPRE+4, CMPRE+5*, PCSPRE+4, PCSPRE+5* |
| NEWIEN | CMDRG+1~, PCSDRG+1~ |
| >> P2 | CMPRE+4*, CMPRE+5, PCSPRE+4*, PCSPRE+5 |
| >> P4 | CMPRE+6*, PCSPRE+6* |
| >> P5 | CMPRE+8, CMPRE+9, CMPRE+11, CMPRE+12, PCSPRE+8, PCSPRE+9, PCSPRE+11, PCSPRE+12 |
| >> P5( | CMPRE+15*, PCSPRE+15*, CMDRG+4, PCSDRG+4, PCSDRG+21, PCSDRG+23 |
| >> P5(0 | CMPRE+16 |
| >> P5A | CMPRE+16* |
| ROOT | IEN+1~, IEN+2*, IEN+3, IEN+4 |
| SYS | IEN~, IEN+2, IEN+3, IEN+4 |
| U | CMPRE+15, PCSPRE+15, CMDRG+20, CMDRG+22, PCSDRG+23, PCSDRG+25 |