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 ---[H[J[2J[HGMPTU 418 printed Dec 13, 2024@02:03:19 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
