source: FOIAVistA/trunk/r/GEN_MED_REC_VITALS-GMRV/GMRVXCHT.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.7 KB
Line 
1GMRVXCHT ;HIRMFO/RM-CONVERSION TABLE FOR QUALIFIERS ;7/22/96
2 ;;4.0;Vitals/Measurements;;Apr 25, 1997
3BLDTABL ; 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
39CHRTABL ;;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
66CATTABL ;;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
Note: See TracBrowser for help on using the repository browser.