GMRVQSYN.m

GMRVQSYN ;HIRMFO/YH-INSERT SYNONYM TO GMRV VITAL QUALIFIER FILE (120.52) ;6/5/97

 ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997

SYNOT ;CREATES SYNONYM LOCAL ARRAY FOR THE EXPORTED QUALIFIERS

 K GMRVSYN N GMRVTXT,GMRVLN,GMRVQL

 F GMRVTXT=1:1 S GMRVLN=$P($T(QUAL+GMRVTXT),";;",2) Q:GMRVLN=""  D

 . S GMRVQL=$P(GMRVLN,"^"),GMRVSYN=$P(GMRVLN,"^",2)

 . I GMRVQL'="" S GMRVSYN(GMRVQL)=GMRVSYN

 D BMES^XPDUTL("Entering data to the SYNONYM field (GMRV Vital Qualifier file #120.52)...")

 K I S I="" F  S I=$O(^GMRD(120.52,"B",I)) Q:I=""  S I(1)=0 F  S I(1)=$O(^GMRD(120.52,"B",I,I(1))) Q:I(1)'>0  I $D(^GMRD(120.52,I(1),0)),$P(^(0),"^",2)="",$D(GMRVSYN(I)) D

 . S GMRVSYN="" S:$D(GMRVSYN(I)) X=GMRVSYN(I) S $P(^GMRD(120.52,I(1),0),"^",2)=X K DA S DA=I(1) D BSYNO^GMRVFSYN(1,.DA,X)

 D BMES^XPDUTL("Done.")

 K I,GMRVSYN,X

 Q

QUAL ;EXPORTED QUALIFIERS

 ;;R ARM^RA

 ;;L ARM^LA

 ;;R LEG^RL

 ;;L LEG^LL

 ;;AXILLARY^A

 ;;ORAL^O

 ;;RECTAL^R

 ;;APICAL^Ap

 ;;RADIAL^Rad

 ;;PERIPHERAL^Per

 ;;BILATERAL PERIPHERALS^BiP

 ;;CAROTID^Car

 ;;OTHER^Oth

 ;;CORE^C

 ;;ACTUAL^A

 ;;ESTIMATED^E

 ;;DRY^D

 ;;TYMPANIC^T

 ;;SKIN^S

 ;;SPONTANEOUS^S

 ;;CONTROLLED VENTILATOR^CV

 ;;ASSISTED VENTILATOR^AV

 ;;SITTING^Si

 ;;STANDING^St

 ;;LYING^Ly

 ;;FEMORAL^Fem

 ;;POPLITEAL^Pop

 ;;POSTERIOR TIBIAL^PT

 ;;DORSALIS PEDIS^DP

 ;;BRACHIAL^Bra

 ;;PALPATED^Pal

 ;;DOPPLER^Dop

 ;;RIGHT^Rt

 ;;LEFT^Lt

 ;;CUFF^Cu

 ;;NON-INVASIVE^N-I

 ;;ADULT^Ad

 ;;SM ADULT^SmA

 ;;LG ADULT^LgA

 ;;THIGH^Thi

 ;;PEDIATRIC^Ped

 ;;HEAD^Hd

 ;;ABDOMINAL^Abd

 ;;CALF^Clf

 ;;LOWER ARM^LrA

 ;;UPPER ARM^UpA

 ;;NON RE-BREATHER^NRB

 ;;MASK^M

 ;;T-PIECE^TP

 ;;AEROSOL/HUMIDIFIED MASK^AM

 ;;NASAL CANNULA^NC

 ;;TRACHEOSTOMY COLLAR^TC

 ;;VENTILATOR^Ven

 ;;VENTURI MASK^VM

 ;;PARTIAL RE-BREATHER^PRB

 ;;AUSCULTATE^Aus

 ;;CHAIR^C

 ;;BED^B

 ;;WRIST^Wri

 ;;ANKLE^Ank

 ;;FACE TENT^FT

 ;;ULNAR^Uln

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRVQSYN   1889     printed  Feb 18, 2025@23:23:50                                                                                                                                                                                                    Page 2

GMRVQSYN  ;HIRMFO/YH-INSERT SYNONYM TO GMRV VITAL QUALIFIER FILE (120.52) ;6/5/97

 +1       ;;4.0;Vitals/Measurements;**1**;Apr 25, 1997

SYNOT     ;CREATES SYNONYM LOCAL ARRAY FOR THE EXPORTED QUALIFIERS

 +1        KILL GMRVSYN

           NEW GMRVTXT,GMRVLN,GMRVQL

 +2        FOR GMRVTXT=1:1

               SET GMRVLN=$PIECE($TEXT(QUAL+GMRVTXT),";;",2)

               if GMRVLN=""

                   QUIT 

               Begin DoDot:1

 +3                SET GMRVQL=$PIECE(GMRVLN,"^")

                   SET GMRVSYN=$PIECE(GMRVLN,"^",2)

 +4                IF GMRVQL'=""

                       SET GMRVSYN(GMRVQL)=GMRVSYN

               End DoDot:1

 +5        DO BMES^XPDUTL("Entering data to the SYNONYM field (GMRV Vital Qualifier file #120.52)...")

 +6        KILL I

           SET I=""

           FOR 

               SET I=$ORDER(^GMRD(120.52,"B",I))

               if I=""

                   QUIT 

               SET I(1)=0

               FOR 

                   SET I(1)=$ORDER(^GMRD(120.52,"B",I,I(1)))

                   if I(1)'>0

                       QUIT 

                   IF $DATA(^GMRD(120.52,I(1),0))

                       IF $PIECE(^(0),"^",2)=""

                           IF $DATA(GMRVSYN(I))

                               Begin DoDot:1

 +7                                SET GMRVSYN=""

                                   if $DATA(GMRVSYN(I))

                                       SET X=GMRVSYN(I)

                                   SET $PIECE(^GMRD(120.52,I(1),0),"^",2)=X

                                   KILL DA

                                   SET DA=I(1)

                                   DO BSYNO^GMRVFSYN(1,.DA,X)

                               End DoDot:1

 +8        DO BMES^XPDUTL("Done.")

 +9        KILL I,GMRVSYN,X

 +10       QUIT 

QUAL      ;EXPORTED QUALIFIERS

 +1       ;;R ARM^RA

 +2       ;;L ARM^LA

 +3       ;;R LEG^RL

 +4       ;;L LEG^LL

 +5       ;;AXILLARY^A

 +6       ;;ORAL^O

 +7       ;;RECTAL^R

 +8       ;;APICAL^Ap

 +9       ;;RADIAL^Rad

 +10      ;;PERIPHERAL^Per

 +11      ;;BILATERAL PERIPHERALS^BiP

 +12      ;;CAROTID^Car

 +13      ;;OTHER^Oth

 +14      ;;CORE^C

 +15      ;;ACTUAL^A

 +16      ;;ESTIMATED^E

 +17      ;;DRY^D

 +18      ;;TYMPANIC^T

 +19      ;;SKIN^S

 +20      ;;SPONTANEOUS^S

 +21      ;;CONTROLLED VENTILATOR^CV

 +22      ;;ASSISTED VENTILATOR^AV

 +23      ;;SITTING^Si

 +24      ;;STANDING^St

 +25      ;;LYING^Ly

 +26      ;;FEMORAL^Fem

 +27      ;;POPLITEAL^Pop

 +28      ;;POSTERIOR TIBIAL^PT

 +29      ;;DORSALIS PEDIS^DP

 +30      ;;BRACHIAL^Bra

 +31      ;;PALPATED^Pal

 +32      ;;DOPPLER^Dop

 +33      ;;RIGHT^Rt

 +34      ;;LEFT^Lt

 +35      ;;CUFF^Cu

 +36      ;;NON-INVASIVE^N-I

 +37      ;;ADULT^Ad

 +38      ;;SM ADULT^SmA

 +39      ;;LG ADULT^LgA

 +40      ;;THIGH^Thi

 +41      ;;PEDIATRIC^Ped

 +42      ;;HEAD^Hd

 +43      ;;ABDOMINAL^Abd

 +44      ;;CALF^Clf

 +45      ;;LOWER ARM^LrA

 +46      ;;UPPER ARM^UpA

 +47      ;;NON RE-BREATHER^NRB

 +48      ;;MASK^M

 +49      ;;T-PIECE^TP

 +50      ;;AEROSOL/HUMIDIFIED MASK^AM

 +51      ;;NASAL CANNULA^NC

 +52      ;;TRACHEOSTOMY COLLAR^TC

 +53      ;;VENTILATOR^Ven

 +54      ;;VENTURI MASK^VM

 +55      ;;PARTIAL RE-BREATHER^PRB

 +56      ;;AUSCULTATE^Aus

 +57      ;;CHAIR^C

 +58      ;;BED^B

 +59      ;;WRIST^Wri

 +60      ;;ANKLE^Ank

 +61      ;;FACE TENT^FT

 +62      ;;ULNAR^Uln