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 ---[H[J[2J[HPXUCUM 947 printed Dec 13, 2024@02:31:37 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 ;
