- 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 Feb 18, 2025@23:29:22 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