Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMPTU

GMPTU.m

Go to the documentation of this file.
  1. GMPTU ; ISL Miscellaneous Lexicon Utilities ; 10-25-96
  1. ;;2.0;LEXICON UTILITY;**2**;Aug 15, 1996
  1. ;
  1. ; Replaces Clinical Lexicon Utility v 1.0 GMPTU and re-directs
  1. ; call to Lexicon Utility v 2.0 LEXU
  1. ;
  1. ICDONE(LEX) ; Return one ICD code for an expression - LEX=IEN
  1. S LEX=$$ICDONE^LEXU(+($G(LEX))) Q LEX
  1. ICD(LEX) ; Return all ICD codes for an expression - LEX=IEN
  1. S LEX=$$ICD^LEXU(+($G(LEX))) Q LEX