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 |
Rev | Line | |
---|---|---|
[613] | 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.