PXUCUM.m

PXUCUM ;SLC/PKR - Utility for UCUM codes. ;04/04/2022

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**217**;Aug 12, 1996;Build 134

 ;

 ;   API                   ICR#

 ;UCUMDATA^LEXMUCUM        6225

 ;

 ;===================

UCUMFIELDS(IDEN,FIELDS) ;Given an identifier, which can be an IEN, a

 ;Description, or a UCUM and a semicolon separated list of fields return

 ;the fields as a semicolon separated string. Return -1 is the UCUM entry

 ;does not exist. The fields that can be returned are: COMMENTS, DESCRIPTIION,

 ;IEN, ROW, UCUM CODE,

 N FIELD,FIELDSTRING,IEN,IND,NFIELDS,UCUMDATA

 S NFIELDS=$L(FIELDS,";")

 I NFIELDS=0 Q 0

 D UCUMDATA^LEXMUCUM(IDEN,.UCUMDATA)

 S IEN=$O(UCUMDATA(""))

 I $D(UCUMDATA(IEN,"ERROR")) Q -1_";"_UCUMDATA(IEN,"ERROR")

 S FIELD=$P(FIELDS,";",1)

 S FIELDSTRING=UCUMDATA(IEN,FIELD)

 F IND=2:1:NFIELDS D

 . S FIELD=$P(FIELDS,";",IND)

 . S FIELDSTRING=FIELDSTRING_";"_UCUMDATA(IEN,FIELD)

 Q FIELDSTRING

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXUCUM   947     printed  Apr 09, 2024@21:29:53                                                                                                                                                                                                       Page 2

PXUCUM    ;SLC/PKR - Utility for UCUM codes. ;04/04/2022

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**217**;Aug 12, 1996;Build 134

 +2       ;

 +3       ;   API                   ICR#

 +4       ;UCUMDATA^LEXMUCUM        6225

 +5       ;

 +6       ;===================

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

 +2       ;the fields as a semicolon separated string. Return -1 is the UCUM entry

 +3       ;does not exist. The fields that can be returned are: COMMENTS, DESCRIPTIION,

 +4       ;IEN, ROW, UCUM CODE,

 +5        NEW FIELD,FIELDSTRING,IEN,IND,NFIELDS,UCUMDATA

 +6        SET NFIELDS=$LENGTH(FIELDS,";")

 +7        IF NFIELDS=0

               QUIT 0

 +8        DO UCUMDATA^LEXMUCUM(IDEN,.UCUMDATA)

 +9        SET IEN=$ORDER(UCUMDATA(""))

 +10       IF $DATA(UCUMDATA(IEN,"ERROR"))

               QUIT -1_";"_UCUMDATA(IEN,"ERROR")

 +11       SET FIELD=$PIECE(FIELDS,";",1)

 +12       SET FIELDSTRING=UCUMDATA(IEN,FIELD)

 +13       FOR IND=2:1:NFIELDS

               Begin DoDot:1

 +14               SET FIELD=$PIECE(FIELDS,";",IND)

 +15               SET FIELDSTRING=FIELDSTRING_";"_UCUMDATA(IEN,FIELD)

               End DoDot:1

 +16       QUIT FIELDSTRING

 +17      ;