PX1P94 ;PB - Cleanup Unresolved entries in Problem (#9000011) file ; 07/13/00
Source file <PX1P94.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ; Entry point
|
|
| GETLEXCD(ICD9CODE) | ; Retrieve Lexicon Code for passed ICD9 code
|
|
| GETICD(IEN) | ; Retrieve ICD9 code
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPROB - [#9000011] | GETICD+3 |
| ^AUPNPROB("C" | START+5 |
| ^ICD9 - [#80] | GETICD+4, GETICD+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DA | START+1~, START+10* |
| DIE | START+1~, START+10* |
| DR | START+1~, START+10* |
| ICD9C | GETICD+1~, GETICD+5*, GETICD+6 |
| ICD9CODE | START+2~, START+3*, START+6*, START+7, GETLEXCD~, GETLEXCD+3 |
| ICDPTR | GETICD+1~, GETICD+3*, GETICD+4, GETICD+5 |
| IEN | START+2~, START+3*, START+5*, START+6, START+10, GETICD~, GETICD+3 |
| LEXCD | GETLEXCD+1~, GETLEXCD+2*, GETLEXCD+4*, GETLEXCD+5 |
| LEXCODE | START+2~, START+3*, START+7*, START+8 |
| LEXS | START+2~, GETLEXCD+1~ |
| LEXS("ICD" | GETLEXCD+4 |
| U | GETICD+3, GETICD+5 |