GMPTU.m

GMPTU ; ISL Miscellaneous Lexicon Utilities      ; 10-25-96

 ;;2.0;LEXICON UTILITY;**2**;Aug 15, 1996

 ;

 ; Replaces Clinical Lexicon Utility v 1.0 GMPTU and re-directs

 ; call to Lexicon Utility v 2.0 LEXU

 ; 

ICDONE(LEX) ; Return one ICD code for an expression - LEX=IEN

 S LEX=$$ICDONE^LEXU(+($G(LEX))) Q LEX

ICD(LEX) ; Return all ICD codes for an expression - LEX=IEN

 S LEX=$$ICD^LEXU(+($G(LEX))) Q LEX

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMPTU   418     printed  Apr 09, 2024@21:13:49                                                                                                                                                                                                        Page 2

GMPTU     ; ISL Miscellaneous Lexicon Utilities      ; 10-25-96

 +1       ;;2.0;LEXICON UTILITY;**2**;Aug 15, 1996

 +2       ;

 +3       ; Replaces Clinical Lexicon Utility v 1.0 GMPTU and re-directs

 +4       ; call to Lexicon Utility v 2.0 LEXU

 +5       ; 

ICDONE(LEX) ; Return one ICD code for an expression - LEX=IEN

 +1        SET LEX=$$ICDONE^LEXU(+($GET(LEX)))

           QUIT LEX

ICD(LEX)  ; Return all ICD codes for an expression - LEX=IEN

 +1        SET LEX=$$ICD^LEXU(+($GET(LEX)))

           QUIT LEX