GMPTU.m

GMPTU ; VA/SLC/KER Miscellaneous Lexicon Utilities      ; 05-15-96

 ;;2.0;LEXICON UTILITY;;Sep 23, 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

GMPTU     ; VA/SLC/KER Miscellaneous Lexicon Utilities      ; 05-15-96

 +1       ;;2.0;LEXICON UTILITY;;Sep 23, 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