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