PX1P94 ;PB - Cleanup Unresolved entries in Problem (#9000011) file ; 07/13/00
Source file <PX1P94.m>
Package | Total | Call Graph |
---|---|---|
Lexicon Utility | 1 | EN^LEXCODE |
VA FileMan | 1 | ^DIE |
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 |