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 ---[H[J[2J[HGMRVQSYN 1889 printed Dec 13, 2024@01:57:28 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
