source:
WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/GMPTU.m
| Last change on this file was 613, checked in by , 15 years ago | |
|---|---|
| File size: 416 bytes | |
| Line | |
|---|---|
| 1 | GMPTU ; ISL Miscellaneous Lexicon Utilities ; 10-25-96 |
| 2 | ;;2.0;LEXICON UTILITY;**2**;Aug 15, 1996;Build 1 |
| 3 | ; |
| 4 | ; Replaces Clinical Lexicon Utility v 1.0 GMPTU and re-directs |
| 5 | ; call to Lexicon Utility v 2.0 LEXU |
| 6 | ; |
| 7 | ICDONE(LEX) ; Return one ICD code for an expression - LEX=IEN |
| 8 | S LEX=$$ICDONE^LEXU(+($G(LEX))) Q LEX |
| 9 | ICD(LEX) ; Return all ICD codes for an expression - LEX=IEN |
| 10 | S LEX=$$ICD^LEXU(+($G(LEX))) Q LEX |
Note:
See TracBrowser
for help on using the repository browser.
