©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
ICD18PT ;ALB/ESD - DRG V16 POST-INSTALL ; 10/23/00 11:57am
Source file <ICD18PT.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | ^DIC ^DIE EN1^DIK |
| DRG Grouper | 2 | ^ICD1697A ^ICD16P97 |
| Kernel | 1 | (BMES,MES)^XPDUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;- Post-Install entry point
|
|
| BEGWT | ;- Entry point for wts & trims update for 97
|
|
| FY | ;- Set FY multiple with FYR stats
|
|
| DRGEDIT | ;- Edit DRG records (Description change)
|
|
| UPD97 | ;- Load FY 97 WWU into ICD DRG file (#80.2)
|
|
| REVDRG | ;- Description edits
|
|
| ERRMSG(VAR,IN) | ;- Display error msg if DRG not found
|
|
| REMXREF | ;- Remove dup "B" xref on Description multiple and reindex
|
|
| SETVAR | ;- Set variables
|
|
| REMXDRG | ;- DRG dup "B" xref IENs
|
|
| MORE | ;- Set zero node with FY 97 stats
|
| Name | Field # of Occurrence |
|---|---|
| ^DIC | DRGEDIT+8 |
| ^DIE | DRGEDIT+15, DRGEDIT+21 |
| EN1^DIK | REMXREF+11 |
| ^ICD1697A | UPD97+4 |
| ^ICD16P97 | UPD97+3 |
| BMES^XPDUTL | EN+12, REMXREF+4, DRGEDIT+4, ERRMSG+3, UPD97+2 |
| MES^XPDUTL | EN+13, REMXREF+3, REMXREF+5, REMXREF+12, REMXREF+13, DRGEDIT+23, DRGEDIT+27, DRGEDIT+28, ERRMSG+4, UPD97+6 , UPD97+7 |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^ICD - [#80.2] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ICD - [#80.2] | REMXREF+7!, DRGEDIT+11, FY+1*, FY+2*, FY+3, FY+4*, MORE+1* |
| ^ICD("AFY" | UPD97+5* |
| Name | Line Occurrences |
|---|---|
| ERRMSG | DRGEDIT+24 |
| FY | UPD97+3, UPD97+4, MORE+2 |
| MORE | UPD97+3, UPD97+4 |
| SETVAR | UPD97+3, UPD97+4 |
| UPD97 | BEGWT+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | DRGEDIT+11 |
| ^(0 | FY+1*, MORE+1* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | DRGEDIT+2~, DRGEDIT+3*, DRGEDIT+22*, DRGEDIT+27 |
| DA | REMXREF+2~, REMXREF+8*, DRGEDIT+2~, DRGEDIT+12*, DRGEDIT+13, DRGEDIT+19* |
| DA(1 | REMXREF+8*, REMXREF+9, DRGEDIT+12*, DRGEDIT+13 |
| DIC | DRGEDIT+2~, DRGEDIT+6*, DRGEDIT+13, DRGEDIT+18 |
| DIC(0 | DRGEDIT+6* |
| DIE | DRGEDIT+2~, DRGEDIT+13*, DRGEDIT+18* |
| DIK | REMXREF+2~, REMXREF+9* |
| DIK(1 | REMXREF+10* |
| DR | DRGEDIT+2~, DRGEDIT+14*, DRGEDIT+20* |
| DRG | DRGEDIT+2~, DRGEDIT+5*, DRGEDIT+7, DRGEDIT+17, DRGEDIT+23, DRGEDIT+24, BEGWT+1~, FY+1, FY+2, FY+3 , FY+4, SETVAR+1*, MORE+1 |
| FYR | BEGWT+1~, UPD97+1*, FY+1, FY+2, FY+4 |
| I | REMXREF+2~, REMXREF+6*, DRGEDIT+2~, DRGEDIT+5*, BEGWT+1~, UPD97+3*, UPD97+4* |
| ICDCNT | BEGWT+1~, FY+3* |
| ICDESC | DRGEDIT+2~, DRGEDIT+10*, DRGEDIT+11* |
| ICDHIGH | BEGWT+1~, FY+1, SETVAR+1*, MORE+1 |
| ICDI | DRGEDIT+2~, DRGEDIT+12*, DRGEDIT+19 |
| ICDIEN | REMXREF+2~, REMXREF+6*, REMXREF+7, REMXREF+8, DRGEDIT+2~, DRGEDIT+11*, DRGEDIT+12 |
| ICDLOS | BEGWT+1~, FY+1, SETVAR+1*, MORE+1 |
| ICDLOW | BEGWT+1~, FY+1, SETVAR+1*, MORE+1 |
| ICDWWU | BEGWT+1~, FY+1, SETVAR+1*, MORE+1 |
| IN | ERRMSG~, ERRMSG+3 |
| J | BEGWT+1~, FY+3*, FY+4 |
| NOVAL | DRGEDIT+2~ |
| VAR | ERRMSG~, ERRMSG+2, ERRMSG+3 |
| WT | BEGWT+1~, UPD97+3*, UPD97+4*, SETVAR+1 |
| X | DRGEDIT+2~, DRGEDIT+7* |
| Y | DRGEDIT+2~, DRGEDIT+9, DRGEDIT+11, DRGEDIT+12 |
| Name | Field # of Occurrence |
|---|---|
| $T(REMXDRG+I | REMXREF+6 |
| $T(REVDRG+I | DRGEDIT+5 |
| $T(WW97+I^ICD1697A | UPD97+4 |
| $T(WW97+I^ICD16P97 | UPD97+3 |