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

PXUCUM.m

Go to the documentation of this file.
  1. PXUCUM ;SLC/PKR - Utility for UCUM codes. ;04/04/2022
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**217**;Aug 12, 1996;Build 134
  1. ;
  1. ; API ICR#
  1. ;UCUMDATA^LEXMUCUM 6225
  1. ;
  1. ;===================
  1. UCUMFIELDS(IDEN,FIELDS) ;Given an identifier, which can be an IEN, a
  1. ;Description, or a UCUM and a semicolon separated list of fields return
  1. ;the fields as a semicolon separated string. Return -1 is the UCUM entry
  1. ;does not exist. The fields that can be returned are: COMMENTS, DESCRIPTIION,
  1. ;IEN, ROW, UCUM CODE,
  1. N FIELD,FIELDSTRING,IEN,IND,NFIELDS,UCUMDATA
  1. S NFIELDS=$L(FIELDS,";")
  1. I NFIELDS=0 Q 0
  1. D UCUMDATA^LEXMUCUM(IDEN,.UCUMDATA)
  1. S IEN=$O(UCUMDATA(""))
  1. I $D(UCUMDATA(IEN,"ERROR")) Q -1_";"_UCUMDATA(IEN,"ERROR")
  1. S FIELD=$P(FIELDS,";",1)
  1. S FIELDSTRING=UCUMDATA(IEN,FIELD)
  1. F IND=2:1:NFIELDS D
  1. . S FIELD=$P(FIELDS,";",IND)
  1. . S FIELDSTRING=FIELDSTRING_";"_UCUMDATA(IEN,FIELD)
  1. Q FIELDSTRING
  1. ;