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
|