| 1 | GMRVXCHT ;HIRMFO/RM-CONVERSION TABLE FOR QUALIFIERS ;7/22/96
|
|---|
| 2 | ;;4.0;Vitals/Measurements;;Apr 25, 1997
|
|---|
| 3 | BLDTABL ; THIS PROCEDURE WILL CREATE THE CONVERSION TABLE IN THE ^TMP($J
|
|---|
| 4 | ; ARRAY.
|
|---|
| 5 | ; Output Variables:
|
|---|
| 6 | ; ^TMP($J,"GMRVCHAR",CHAR)=VP
|
|---|
| 7 | ; ^TMP($J,"GMRVCHAR",CHAR,TYPE)=CATEGORY
|
|---|
| 8 | ; ^TMP($J,"GMRVCAT",CATEGORY,TYPE)=^MAX^^PORD^EORD^DEFCH
|
|---|
| 9 | ; where CHAR=Qualifier name (free text)
|
|---|
| 10 | ; TYPE=Vital Type (ptr to 120.51 file)
|
|---|
| 11 | ; VP=Variable ptr address of this qualifier in
|
|---|
| 12 | ; pre-converted system, i.e., 1;GMRD(120.52,
|
|---|
| 13 | ; CATEGORY=Category of Qualifier (free text)
|
|---|
| 14 | ; MAX=Maximum Entries (numeric)
|
|---|
| 15 | ; PORD=Print Order (numeric)
|
|---|
| 16 | ; EORD=Edit Order (numeric)
|
|---|
| 17 | ; DEFCH=Default Qualifier (free text)
|
|---|
| 18 | ;
|
|---|
| 19 | N GMRVFILE,GMRVCAT,GMRVCHAR,GMRVLINE,GMRVP,GMRVPTR,GMRVTXT,GMRVTYP
|
|---|
| 20 | F GMRVTXT=1:1 S GMRVLINE=$P($T(CHRTABL+GMRVTXT),";;",2) Q:GMRVLINE="" D
|
|---|
| 21 | . S GMRVTYP=$P(GMRVLINE,";",2) Q:GMRVTYP=""
|
|---|
| 22 | . S GMRVTYP=$O(^GMRD(120.51,"B",GMRVTYP,"")) Q:GMRVTYP'>0
|
|---|
| 23 | . S GMRVCHAR=$P(GMRVLINE,";")
|
|---|
| 24 | . Q:GMRVCHAR=""
|
|---|
| 25 | . S GMRVP="" F GMRVFILE=120.52,120.53 D Q:+GMRVP
|
|---|
| 26 | . . S GMRVPTR=$O(^GMRD(GMRVFILE,"B",GMRVCHAR,"")) Q:GMRVPTR'>0
|
|---|
| 27 | . . S GMRVP=GMRVPTR_";GMRD("_GMRVFILE_","
|
|---|
| 28 | . . Q
|
|---|
| 29 | . S ^TMP($J,"GMRVCHAR",GMRVCHAR)=GMRVP
|
|---|
| 30 | . S ^TMP($J,"GMRVCHAR",GMRVCHAR,GMRVTYP)=$P(GMRVLINE,";",3)
|
|---|
| 31 | . Q
|
|---|
| 32 | F GMRVTXT=1:1 S GMRVLINE=$P($T(CATTABL+GMRVTXT),";;",2) Q:GMRVLINE="" D
|
|---|
| 33 | . S GMRVCAT=$P(GMRVLINE,";") Q:GMRVCAT=""
|
|---|
| 34 | . S GMRVTYP=$P(GMRVLINE,";",2) Q:GMRVTYP=""
|
|---|
| 35 | . S GMRVTYP=$O(^GMRD(120.51,"B",GMRVTYP,"")) Q:GMRVTYP'>0
|
|---|
| 36 | . S ^TMP($J,"GMRVCAT",GMRVCAT,GMRVTYP)=$P(GMRVLINE,";",3)
|
|---|
| 37 | . Q
|
|---|
| 38 | Q
|
|---|
| 39 | CHRTABL ;;CHACTERISTIC;TYPE;CATEGORY
|
|---|
| 40 | ;;L ARM;BLOOD PRESSURE;LOCATION
|
|---|
| 41 | ;;L LEG;BLOOD PRESSURE;LOCATION
|
|---|
| 42 | ;;R ARM;BLOOD PRESSURE;LOCATION
|
|---|
| 43 | ;;R LEG;BLOOD PRESSURE;LOCATION
|
|---|
| 44 | ;;LYING;BLOOD PRESSURE;POSITION
|
|---|
| 45 | ;;SITTING;BLOOD PRESSURE;POSITION
|
|---|
| 46 | ;;STANDING;BLOOD PRESSURE;POSITION
|
|---|
| 47 | ;;APICAL;PULSE;LOCATION
|
|---|
| 48 | ;;BILATERAL PERIPHERALS;PULSE;LOCATION
|
|---|
| 49 | ;;CAROTID;PULSE;LOCATION
|
|---|
| 50 | ;;OTHER;PULSE;LOCATION
|
|---|
| 51 | ;;PERIPHERAL;PULSE;LOCATION
|
|---|
| 52 | ;;RADIAL;PULSE;LOCATION
|
|---|
| 53 | ;;ASSISTED VENTILATOR;RESPIRATION;METHOD
|
|---|
| 54 | ;;CONTROLLED VENTILATOR;RESPIRATION;METHOD
|
|---|
| 55 | ;;SPONTANEOUS;RESPIRATION;METHOD
|
|---|
| 56 | ;;AXILLARY;TEMPERATURE;LOCATION
|
|---|
| 57 | ;;CORE;TEMPERATURE;LOCATION
|
|---|
| 58 | ;;ORAL;TEMPERATURE;LOCATION
|
|---|
| 59 | ;;RECTAL;TEMPERATURE;LOCATION
|
|---|
| 60 | ;;SKIN;TEMPERATURE;LOCATION
|
|---|
| 61 | ;;TYMPANIC;TEMPERATURE;LOCATION
|
|---|
| 62 | ;;ACTUAL;WEIGHT;QUALITY
|
|---|
| 63 | ;;DRY;WEIGHT;QUALITY
|
|---|
| 64 | ;;ESTIMATED;WEIGHT;QUALITY
|
|---|
| 65 | Q
|
|---|
| 66 | CATTABL ;;CATEGORY;TYPE;^MAX^^PRINT ORDER^EDIT ORDER^DEFAULT CHAR.
|
|---|
| 67 | ;;LOCATION;BLOOD PRESSURE;^1^^1^1
|
|---|
| 68 | ;;LOCATION;PULSE;^1^^2^1^RADIAL
|
|---|
| 69 | ;;LOCATION;TEMPERATURE;^1^^1^1^ORAL
|
|---|
| 70 | ;;METHOD;RESPIRATION;^1^^1^1^SPONTANEOUS
|
|---|
| 71 | ;;POSITION;BLOOD PRESSURE;^1^^2^2
|
|---|
| 72 | ;;QUALITY;WEIGHT;^1^^1^1^ACTUAL
|
|---|
| 73 | Q
|
|---|
