©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
ICD1824A ;;ALB/EG/JAT - FY 2007 UPDATE; 6/19/05 4:08pm ; 6/24/05 3:29pm
Source file <ICD1824A.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | FILE^DICN (,UPDATE)^DIE |
| DRG Grouper | 1 | (DRGTITLE,INACTDRG,UPDTDRG)^ICD1824B |
| Kernel | 1 | (BMES,MES)^XPDUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REV | ;
|
|
| ADD | ;New DRGs
|
|
| ADDDRG | ; add new DRGs
|
|
| PRO | ;-update operation/procedure codes
; from Table 6B in Fed Reg - assumes new codes already added by Lexicon |
| 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 |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^ICD0 - [#80.1] | Classic Fileman Calls |
| ^ICD - [#80.2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ICD - [#80.2] | ADDDRG+11 |
| ^ICD0 - [#80.1] | PRO+9, PRO+18 |
| ^ICD0("BA" | PRO+6, PRO+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | ADDDRG+1~, ADDDRG+13!, ADDDRG+21!, ADDDRG+30!, ADDDRG+39!, PRO+3~, PRO+10* |
| DA(1 | ADDDRG+15*, ADDDRG+16, ADDDRG+22*, ADDDRG+23, ADDDRG+31*, ADDDRG+32 |
| DATA | PRO+3~, PRO+20*, PRO+25*, PRO+28, PRO+32, PRO+33, PRO+34, PRO+35, PRO+36, PRO+37 , PRO+38 |
| DIC | ADDDRG+1~, ADDDRG+5*, ADDDRG+13!, ADDDRG+16*, ADDDRG+21!, ADDDRG+23*, ADDDRG+30!, ADDDRG+32*, ADDDRG+39! |
| DIC("DR" | ADDDRG+8*, ADDDRG+26*, ADDDRG+35* |
| DIC(0 | ADDDRG+5*, ADDDRG+17*, ADDDRG+24*, ADDDRG+33* |
| DIE | PRO+3~, PRO+10* |
| DINUM | ADDDRG+1~ |
| DO | ADDDRG+12!, ADDDRG+19!, ADDDRG+28!, ADDDRG+37! |
| DR | PRO+3~, PRO+14* |
| DRGX | ADDDRG+1~, ADDDRG+50*, ADDDRG+51 |
| DRGY | ADDDRG+1~, ADDDRG+50*, ADDDRG+51 |
| ENTRY | PRO+3~, PRO+6*, PRO+7, PRO+9*, PRO+10, PRO+18, PRO+22, PRO+26, PRO+30 |
| FDA | ADDDRG+40~, PRO+3~ |
| FDA(1820 | ADDDRG+42*, ADDDRG+43*, ADDDRG+44!, ADDDRG+45*, ADDDRG+46*, ADDDRG+47*, PRO+22*, PRO+23*, PRO+24!, PRO+26* , PRO+27*, PRO+28*, PRO+29!, PRO+30*, PRO+31*, PRO+32*, PRO+33*, PRO+34*, PRO+35*, PRO+36* , PRO+37*, PRO+38*, PRO+39! |
| ICDDRG | ADDDRG+1~, ADDDRG+4*, ADDDRG+6, ADDDRG+7, ADDDRG+9, ADDDRG+11, ADDDRG+15, ADDDRG+18, ADDDRG+22, ADDDRG+31 , ADDDRG+41, ADDDRG+47, ADDDRG+50 |
| ICDIEN | ADDDRG+1~, ADDDRG+41*, ADDDRG+42, ADDDRG+45 |
| ICDPROC | PRO+3~, PRO+4*, PRO+5, PRO+6, PRO+9, PRO+12, PRO+13 |
| IDENT | PRO+3~, PRO+12*, PRO+15 |
| LINE | ADDDRG+1~, ADDDRG+4*, PRO+3~, PRO+4* |
| MDC | ADDDRG+1~, ADDDRG+6* |
| MDC24 | PRO+3~, PRO+13*, PRO+15 |
| ROUTINE | ADDDRG+1~, ADDDRG+34* |
| SUBLINE | PRO+3~, PRO+20*, PRO+21 |
| SURG | ADDDRG+1~, ADDDRG+7*, ADDDRG+25* |
| U | ADDDRG+6, ADDDRG+7, ADDDRG+9, ADDDRG+11, ADDDRG+15, ADDDRG+18, ADDDRG+22, ADDDRG+31, ADDDRG+41, ADDDRG+47 , ADDDRG+50, PRO+6, PRO+9, PRO+12, PRO+13, PRO+28, PRO+32, PRO+33, PRO+34, PRO+35 , PRO+36, PRO+37, PRO+38 |
| X | ADDDRG+1~, ADDDRG+4*, ADDDRG+9*, ADDDRG+18*, ADDDRG+27*, ADDDRG+36*, PRO+3~, PRO+4*, PRO+20* |
| Y | ADDDRG+1~ |
| Name | Field # of Occurrence |
|---|---|
| $T(ADD+LINE | ADDDRG+4 |
| $T(REV+LINE | PRO+4 |
| $T(REV+LINE+SUBLINE | PRO+20 |