source: WorldVistAEHR/trunk/r/LEXICON_UTILITY-LEX-GMPT/GMPTU.m@ 975

Last change on this file since 975 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 416 bytes
RevLine 
[613]1GMPTU ; 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 ;
7ICDONE(LEX) ; Return one ICD code for an expression - LEX=IEN
8 S LEX=$$ICDONE^LEXU(+($G(LEX))) Q LEX
9ICD(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.