GMRVXCHT ;HIRMFO/RM-CONVERSION TABLE FOR QUALIFIERS ;7/22/96
;;4.0;Vitals/Measurements;;Apr 25, 1997
BLDTABL ; THIS PROCEDURE WILL CREATE THE CONVERSION TABLE IN THE ^TMP($J
; ARRAY.
; Output Variables:
; ^TMP($J,"GMRVCHAR",CHAR)=VP
; ^TMP($J,"GMRVCHAR",CHAR,TYPE)=CATEGORY
; ^TMP($J,"GMRVCAT",CATEGORY,TYPE)=^MAX^^PORD^EORD^DEFCH
; where CHAR=Qualifier name (free text)
; TYPE=Vital Type (ptr to 120.51 file)
; VP=Variable ptr address of this qualifier in
; pre-converted system, i.e., 1;GMRD(120.52,
; CATEGORY=Category of Qualifier (free text)
; MAX=Maximum Entries (numeric)
; PORD=Print Order (numeric)
; EORD=Edit Order (numeric)
; DEFCH=Default Qualifier (free text)
;
N GMRVFILE,GMRVCAT,GMRVCHAR,GMRVLINE,GMRVP,GMRVPTR,GMRVTXT,GMRVTYP
F GMRVTXT=1:1 S GMRVLINE=$P($T(CHRTABL+GMRVTXT),";;",2) Q:GMRVLINE="" D
. S GMRVTYP=$P(GMRVLINE,";",2) Q:GMRVTYP=""
. S GMRVTYP=$O(^GMRD(120.51,"B",GMRVTYP,"")) Q:GMRVTYP'>0
. S GMRVCHAR=$P(GMRVLINE,";")
. Q:GMRVCHAR=""
. S GMRVP="" F GMRVFILE=120.52,120.53 D Q:+GMRVP
. . S GMRVPTR=$O(^GMRD(GMRVFILE,"B",GMRVCHAR,"")) Q:GMRVPTR'>0
. . S GMRVP=GMRVPTR_";GMRD("_GMRVFILE_","
. . Q
. S ^TMP($J,"GMRVCHAR",GMRVCHAR)=GMRVP
. S ^TMP($J,"GMRVCHAR",GMRVCHAR,GMRVTYP)=$P(GMRVLINE,";",3)
. Q
F GMRVTXT=1:1 S GMRVLINE=$P($T(CATTABL+GMRVTXT),";;",2) Q:GMRVLINE="" D
. S GMRVCAT=$P(GMRVLINE,";") Q:GMRVCAT=""
. S GMRVTYP=$P(GMRVLINE,";",2) Q:GMRVTYP=""
. S GMRVTYP=$O(^GMRD(120.51,"B",GMRVTYP,"")) Q:GMRVTYP'>0
. S ^TMP($J,"GMRVCAT",GMRVCAT,GMRVTYP)=$P(GMRVLINE,";",3)
. Q
Q
CHRTABL ;;CHACTERISTIC;TYPE;CATEGORY
;;L ARM;BLOOD PRESSURE;LOCATION
;;L LEG;BLOOD PRESSURE;LOCATION
;;R ARM;BLOOD PRESSURE;LOCATION
;;R LEG;BLOOD PRESSURE;LOCATION
;;LYING;BLOOD PRESSURE;POSITION
;;SITTING;BLOOD PRESSURE;POSITION
;;STANDING;BLOOD PRESSURE;POSITION
;;APICAL;PULSE;LOCATION
;;BILATERAL PERIPHERALS;PULSE;LOCATION
;;CAROTID;PULSE;LOCATION
;;OTHER;PULSE;LOCATION
;;PERIPHERAL;PULSE;LOCATION
;;RADIAL;PULSE;LOCATION
;;ASSISTED VENTILATOR;RESPIRATION;METHOD
;;CONTROLLED VENTILATOR;RESPIRATION;METHOD
;;SPONTANEOUS;RESPIRATION;METHOD
;;AXILLARY;TEMPERATURE;LOCATION
;;CORE;TEMPERATURE;LOCATION
;;ORAL;TEMPERATURE;LOCATION
;;RECTAL;TEMPERATURE;LOCATION
;;SKIN;TEMPERATURE;LOCATION
;;TYMPANIC;TEMPERATURE;LOCATION
;;ACTUAL;WEIGHT;QUALITY
;;DRY;WEIGHT;QUALITY
;;ESTIMATED;WEIGHT;QUALITY
Q
CATTABL ;;CATEGORY;TYPE;^MAX^^PRINT ORDER^EDIT ORDER^DEFAULT CHAR.
;;LOCATION;BLOOD PRESSURE;^1^^1^1
;;LOCATION;PULSE;^1^^2^1^RADIAL
;;LOCATION;TEMPERATURE;^1^^1^1^ORAL
;;METHOD;RESPIRATION;^1^^1^1^SPONTANEOUS
;;POSITION;BLOOD PRESSURE;^1^^2^2
;;QUALITY;WEIGHT;^1^^1^1^ACTUAL
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HGMRVXCHT 2860 printed Dec 13, 2024@01:57:57 Page 2
GMRVXCHT ;HIRMFO/RM-CONVERSION TABLE FOR QUALIFIERS ;7/22/96
+1 ;;4.0;Vitals/Measurements;;Apr 25, 1997
BLDTABL ; THIS PROCEDURE WILL CREATE THE CONVERSION TABLE IN THE ^TMP($J
+1 ; ARRAY.
+2 ; Output Variables:
+3 ; ^TMP($J,"GMRVCHAR",CHAR)=VP
+4 ; ^TMP($J,"GMRVCHAR",CHAR,TYPE)=CATEGORY
+5 ; ^TMP($J,"GMRVCAT",CATEGORY,TYPE)=^MAX^^PORD^EORD^DEFCH
+6 ; where CHAR=Qualifier name (free text)
+7 ; TYPE=Vital Type (ptr to 120.51 file)
+8 ; VP=Variable ptr address of this qualifier in
+9 ; pre-converted system, i.e., 1;GMRD(120.52,
+10 ; CATEGORY=Category of Qualifier (free text)
+11 ; MAX=Maximum Entries (numeric)
+12 ; PORD=Print Order (numeric)
+13 ; EORD=Edit Order (numeric)
+14 ; DEFCH=Default Qualifier (free text)
+15 ;
+16 NEW GMRVFILE,GMRVCAT,GMRVCHAR,GMRVLINE,GMRVP,GMRVPTR,GMRVTXT,GMRVTYP
+17 FOR GMRVTXT=1:1
SET GMRVLINE=$PIECE($TEXT(CHRTABL+GMRVTXT),";;",2)
if GMRVLINE=""
QUIT
Begin DoDot:1
+18 SET GMRVTYP=$PIECE(GMRVLINE,";",2)
if GMRVTYP=""
QUIT
+19 SET GMRVTYP=$ORDER(^GMRD(120.51,"B",GMRVTYP,""))
if GMRVTYP'>0
QUIT
+20 SET GMRVCHAR=$PIECE(GMRVLINE,";")
+21 if GMRVCHAR=""
QUIT
+22 SET GMRVP=""
FOR GMRVFILE=120.52,120.53
Begin DoDot:2
+23 SET GMRVPTR=$ORDER(^GMRD(GMRVFILE,"B",GMRVCHAR,""))
if GMRVPTR'>0
QUIT
+24 SET GMRVP=GMRVPTR_";GMRD("_GMRVFILE_","
+25 QUIT
End DoDot:2
if +GMRVP
QUIT
+26 SET ^TMP($JOB,"GMRVCHAR",GMRVCHAR)=GMRVP
+27 SET ^TMP($JOB,"GMRVCHAR",GMRVCHAR,GMRVTYP)=$PIECE(GMRVLINE,";",3)
+28 QUIT
End DoDot:1
+29 FOR GMRVTXT=1:1
SET GMRVLINE=$PIECE($TEXT(CATTABL+GMRVTXT),";;",2)
if GMRVLINE=""
QUIT
Begin DoDot:1
+30 SET GMRVCAT=$PIECE(GMRVLINE,";")
if GMRVCAT=""
QUIT
+31 SET GMRVTYP=$PIECE(GMRVLINE,";",2)
if GMRVTYP=""
QUIT
+32 SET GMRVTYP=$ORDER(^GMRD(120.51,"B",GMRVTYP,""))
if GMRVTYP'>0
QUIT
+33 SET ^TMP($JOB,"GMRVCAT",GMRVCAT,GMRVTYP)=$PIECE(GMRVLINE,";",3)
+34 QUIT
End DoDot:1
+35 QUIT
CHRTABL ;;CHACTERISTIC;TYPE;CATEGORY
+1 ;;L ARM;BLOOD PRESSURE;LOCATION
+2 ;;L LEG;BLOOD PRESSURE;LOCATION
+3 ;;R ARM;BLOOD PRESSURE;LOCATION
+4 ;;R LEG;BLOOD PRESSURE;LOCATION
+5 ;;LYING;BLOOD PRESSURE;POSITION
+6 ;;SITTING;BLOOD PRESSURE;POSITION
+7 ;;STANDING;BLOOD PRESSURE;POSITION
+8 ;;APICAL;PULSE;LOCATION
+9 ;;BILATERAL PERIPHERALS;PULSE;LOCATION
+10 ;;CAROTID;PULSE;LOCATION
+11 ;;OTHER;PULSE;LOCATION
+12 ;;PERIPHERAL;PULSE;LOCATION
+13 ;;RADIAL;PULSE;LOCATION
+14 ;;ASSISTED VENTILATOR;RESPIRATION;METHOD
+15 ;;CONTROLLED VENTILATOR;RESPIRATION;METHOD
+16 ;;SPONTANEOUS;RESPIRATION;METHOD
+17 ;;AXILLARY;TEMPERATURE;LOCATION
+18 ;;CORE;TEMPERATURE;LOCATION
+19 ;;ORAL;TEMPERATURE;LOCATION
+20 ;;RECTAL;TEMPERATURE;LOCATION
+21 ;;SKIN;TEMPERATURE;LOCATION
+22 ;;TYMPANIC;TEMPERATURE;LOCATION
+23 ;;ACTUAL;WEIGHT;QUALITY
+24 ;;DRY;WEIGHT;QUALITY
+25 ;;ESTIMATED;WEIGHT;QUALITY
+26 QUIT
CATTABL ;;CATEGORY;TYPE;^MAX^^PRINT ORDER^EDIT ORDER^DEFAULT CHAR.
+1 ;;LOCATION;BLOOD PRESSURE;^1^^1^1
+2 ;;LOCATION;PULSE;^1^^2^1^RADIAL
+3 ;;LOCATION;TEMPERATURE;^1^^1^1^ORAL
+4 ;;METHOD;RESPIRATION;^1^^1^1^SPONTANEOUS
+5 ;;POSITION;BLOOD PRESSURE;^1^^2^2
+6 ;;QUALITY;WEIGHT;^1^^1^1^ACTUAL
+7 QUIT
