Routine: PXRMUCUM

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

 ;;2.0;CLINICAL REMINDERS;**65**;Feb 04, 2005;Build 438

 ;   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

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

UCDHTEXT ;UCUM DISPLAY executable help text.

 ;;This field specifies how the units are presented when a measurement is

 ;;displayed in CPRS, Clinical Reminders, and Health Summary. When the value

 ;;is C, the UCUM Code is displayed when the value is D, the Description is

 ;;displayed. When the value is N, no units are displayed.

 ;;**End Text**

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

UCDXHELP(FILENUM,DA) ;UCUM DISPLAY executable help.

 N DONE,DIR0,IND,TEXT,UCUMDATA,UCUMIEN

 S DONE=0

 F IND=1:1 Q:DONE  D

 . S TEXT(IND)=$P($T(UCDHTEXT+IND),";",3)

 . I TEXT(IND)="**End Text**" S TEXT(IND)=" ",DONE=1 Q

 S IND=IND-1

 ;Get the Description and UCUM Code.

 S UCUMIEN=$$GET^DDSVAL(FILENUM,DA,223)

 I UCUMIEN="" D

 . S IND=IND+1,TEXT(IND)="No units have been choosen yet, once they have, the Description and UCUM Code"

 . S IND=IND+1,TEXT(IND)="can be displayed to help you decide which to use."

 E  D

 . D UCUMDATA^LEXMUCUM(UCUMIEN,.UCUMDATA)

 . S IND=IND+1,TEXT(IND)="The UCUM CODE is: "_UCUMDATA(UCUMIEN,"UCUM CODE")

 . S IND=IND+1,TEXT(IND)="The description is: "_UCUMDATA(UCUMIEN,"DESCRIPTION")

 D BROWSE^DDBR("TEXT","NR","UCUM DISPLAY field Help")

 I $D(DDS) D REFRESH^DDSUTL S DY=IOSL-7,DX=0 X IOXY S $Y=DY,$X=DX

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMUCUM   2214     printed  Feb 18, 2025@23:16:02                                                                                                                                                                                                    Page 2

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

 +1       ;;2.0;CLINICAL REMINDERS;**65**;Feb 04, 2005;Build 438

 +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      ;

 +18      ;===================

UCDHTEXT  ;UCUM DISPLAY executable help text.

 +1       ;;This field specifies how the units are presented when a measurement is

 +2       ;;displayed in CPRS, Clinical Reminders, and Health Summary. When the value

 +3       ;;is C, the UCUM Code is displayed when the value is D, the Description is

 +4       ;;displayed. When the value is N, no units are displayed.

 +5       ;;**End Text**

 +6        QUIT

 +7       ;

 +8       ;===================

UCDXHELP(FILENUM,DA) ;UCUM DISPLAY executable help.

 +1        NEW DONE,DIR0,IND,TEXT,UCUMDATA,UCUMIEN

 +2        SET DONE=0

 +3        FOR IND=1:1

               if DONE

                   QUIT

               Begin DoDot:1

 +4                SET TEXT(IND)=$PIECE($TEXT(UCDHTEXT+IND),";",3)

 +5                IF TEXT(IND)="**End Text**"

                       SET TEXT(IND)=" "

                       SET DONE=1

                       QUIT

               End DoDot:1

 +6        SET IND=IND-1

 +7       ;

 +8       ;Get the Description and UCUM Code.

 +9        SET UCUMIEN=$$GET^DDSVAL(FILENUM,DA,223)

 +10       IF UCUMIEN=""

               Begin DoDot:1

 +11               SET IND=IND+1

                   SET TEXT(IND)="No units have been choosen yet, once they have, the Description and UCUM Code"

 +12               SET IND=IND+1

                   SET TEXT(IND)="can be displayed to help you decide which to use."

               End DoDot:1

 +13      IF '$TEST

               Begin DoDot:1

 +14               DO UCUMDATA^LEXMUCUM(UCUMIEN,.UCUMDATA)

 +15               SET IND=IND+1

                   SET TEXT(IND)="The UCUM CODE is: "_UCUMDATA(UCUMIEN,"UCUM CODE")

 +16               SET IND=IND+1

                   SET TEXT(IND)="The description is: "_UCUMDATA(UCUMIEN,"DESCRIPTION")

               End DoDot:1

 +17      ;

 +18       DO BROWSE^DDBR("TEXT","NR","UCUM DISPLAY field Help")

 +19       IF $DATA(DDS)

               DO REFRESH^DDSUTL

               SET DY=IOSL-7

               SET DX=0

               XECUTE IOXY

               SET $Y=DY

               SET $X=DX

 +20       QUIT

 +21      ;

PXRMUCUM.m