source: FOIAVistA/trunk/r/GEN_MED_REC_VITALS-GMRV/GMRVXCH1.m@ 813

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

initial load of FOIAVistA 6/30/08 version
File size: 4.1 KB
Line 
1GMRVXCH1 ;HIRMFO/YH-NEW QUALIFIER/CATEGORY ;8/21/96
2 ;;4.0;Vitals/Measurements;;Apr 25, 1997
3ADDCAT ;ADD NEW CATEGORIES TO #120.53
4 D BMES^XPDUTL("Adding new categories to 120.53 file...")
5 N GMRVTXT,GMRVCAT,GMRVTYP,GMRVLINE,GDA
6 F GMRVTXT=1:1 S GMRVLINE=$P($T(CATTABL+GMRVTXT),";;",2) Q:GMRVLINE="" S GMRVTYP=$P(GMRVLINE,";",2) Q:GMRVTYP="" S GMRVTYP(1)=$O(^GMRD(120.51,"B",GMRVTYP,"")) Q:GMRVTYP(1)'>0 S GMRVCAT=$P(GMRVLINE,";") Q:GMRVCAT="" D
7 . I $D(^GMRD(120.53,"B",GMRVCAT)) S GMRVCAT(1)=$O(^GMRD(120.53,"B",GMRVCAT,0)) D:$D(^GMRD(120.53,GMRVCAT(1),0)) Q
8 . . Q:$D(^GMRD(120.53,GMRVCAT(1),1,"B",GMRVTYP(1)))
9 . . I '$D(^GMRD(120.53,GMRVCAT(1),1,0)) S ^GMRD(120.53,GMRVCAT(1),1,0)="^120.531P^0^0"
10 . . S GDA=+$P(^GMRD(120.53,GMRVCAT(1),1,0),"^",3)+1
11 . . S ^GMRD(120.53,GMRVCAT(1),1,GDA,0)=GMRVTYP(1)_"^"_$P(GMRVLINE,";",3)
12 . . S ^GMRD(120.53,GMRVCAT(1),1,"B",GMRVTYP(1),GDA)="",^GMRD(120.53,"C",GMRVTYP(1),GMRVCAT(1),GDA)=""
13 . . S $P(^GMRD(120.53,GMRVCAT(1),1,0),"^",3)=GDA,$P(^(0),"^",4)=$P(^(0),"^",4)+1
14 . . Q
15 . E D
16 . . S GDA=+$P(^GMRD(120.53,0),"^",3)+1
17 . . S ^GMRD(120.53,GDA,0)=GMRVCAT,^GMRD(120.53,GDA,1,0)="^120.531P^1^1"
18 . . S ^GMRD(120.53,"B",GMRVCAT,GDA)=""
19 . . S ^GMRD(120.53,GDA,1,1,0)=GMRVTYP(1)_"^"_$P(GMRVLINE,";",3)
20 . . S ^GMRD(120.53,GDA,1,"B",GMRVTYP(1),1)=""
21 . . S ^GMRD(120.53,"C",GMRVTYP(1),GDA,1)=""
22 . . S $P(^GMRD(120.53,0),"^",3)=GDA,$P(^(0),"^",4)=$P(^(0),"^",4)+1
23 . . Q
24 . Q
25 Q
26ADDCHAR ;ADD NEW QUALIFIERS TO #120.52
27 D BMES^XPDUTL("Adding new qualifiers to 120.52 file...")
28 N GMRVTXT,GMRVCAT,GMRVCHA,GMRVTYP,GMRVLINE,GDA
29 F GMRVTXT=1:1 S GMRVLINE=$P($T(CHRTABL+GMRVTXT),";;",2) Q:GMRVLINE="" D
30 . S GMRVTYP=$P(GMRVLINE,";",2) Q:GMRVTYP="" S GMRVTYP(1)=$O(^GMRD(120.51,"B",GMRVTYP,0)) Q:GMRVTYP(1)'>0
31 . S GMRVCHA=$P(GMRVLINE,";") Q:GMRVCHA="" S GMRVCAT=$P(GMRVLINE,";",3),GMRVCAT(1)=$O(^GMRD(120.53,"B",GMRVCAT,0)) Q:GMRVCAT(1)'>0 I $D(^GMRD(120.53,GMRVCAT(1),0)) D
32 . . I $D(^GMRD(120.52,"B",GMRVCHA)) D OLD^GMRVXCH3 Q
33 . . D NEW^GMRVXCH3
34 . . Q
35 . Q
36 Q
37CHRTABL ;;QUALIFIER;TYPE;CATEGORY
38 ;;FEMORAL;PULSE;LOCATION
39 ;;POPLITEAL;PULSE;LOCATION
40 ;;POSTERIOR TIBIAL;PULSE;LOCATION
41 ;;DORSALIS PEDIS;PULSE;LOCATION
42 ;;BRACHIAL;PULSE;LOCATION
43 ;;ULNAR;PULSE;LOCATION
44 ;;PALPATED;PULSE;METHOD
45 ;;DOPPLER;PULSE;METHOD
46 ;;AUSCULTATE;PULSE;METHOD
47 ;;RIGHT;PULSE;SITE
48 ;;LEFT;PULSE;SITE
49 ;;CUFF;BLOOD PRESSURE;METHOD
50 ;;NON-INVASIVE;BLOOD PRESSURE;METHOD
51 ;;DOPPLER;BLOOD PRESSURE;METHOD
52 ;;PALPATED;BLOOD PRESSURE;METHOD
53 ;;ADULT;BLOOD PRESSURE;CUFF SIZE;
54 ;;SM ADULT;BLOOD PRESSURE;CUFF SIZE
55 ;;LG ADULT;BLOOD PRESSURE;CUFF SIZE
56 ;;THIGH;BLOOD PRESSURE;CUFF SIZE
57 ;;PEDIATRIC;BLOOD PRESSURE;CUFF SIZE
58 ;;CHAIR;WEIGHT;METHOD
59 ;;STANDING;WEIGHT;METHOD
60 ;;BED;WEIGHT;METHOD
61 ;;RIGHT;CIRCUMFERENCE/GIRTH;SITE
62 ;;LEFT;CIRCUMFERENCE/GIRTH;SITE
63 ;;HEAD;CIRCUMFERENCE/GIRTH;LOCATION
64 ;;ABDOMINAL;CIRCUMFERENCE/GIRTH;LOCATION
65 ;;CALF;CIRCUMFERENCE/GIRTH;LOCATION
66 ;;THIGH;CIRCUMFERENCE/GIRTH;LOCATION
67 ;;LOWER ARM;CIRCUMFERENCE/GIRTH;LOCATION
68 ;;UPPER ARM;CIRCUMFERENCE/GIRTH;LOCATION
69 ;;OTHER;CIRCUMFERENCE/GIRTH;LOCATION
70 ;;WRIST;CIRCUMFERENCE/GIRTH;LOCATION
71 ;;ANKLE;CIRCUMFERENCE/GIRTH;LOCATION
72 ;;ACTUAL;HEIGHT;QUALITY
73 ;;ESTIMATED;HEIGHT;QUALITY
74 ;;MASK;PULSE OXIMETRY;METHOD
75 ;;T-PIECE;PULSE OXIMETRY;METHOD
76 ;;FACE TENT;PULSE OXIMETRY;METHOD
77 ;;AEROSOL/HUMIDIFIED MASK;PULSE OXIMETRY;METHOD
78 ;;NASAL CANNULA;PULSE OXIMETRY;METHOD
79 ;;NON RE-BREATHER;PULSE OXIMETRY;METHOD
80 ;;PARTIAL RE-BREATHER;PULSE OXIMETRY;METHOD
81 ;;TRACHEOSTOMY COLLAR;PULSE OXIMETRY;METHOD
82 ;;VENTILATOR;PULSE OXIMETRY;METHOD
83 ;;VENTURI MASK;PULSE OXIMETRY;METHOD
84 ;;SITTING;RESPIRATION;POSITION
85 ;;STANDING;RESPIRATION;POSITION
86 ;;LYING;RESPIRATION;POSITION
87 ;;SITTING;PULSE;POSITION
88 ;;STANDING;PULSE;POSITION
89 ;;LYING;PULSE;POSITION
90 Q
91CATTABL ;;CATEGORY;TYPE;MIN^MAX^REQ^PRINT ORDER^EDIT ORDER^DEFAULT CHAR.
92 ;;METHOD;PULSE;^1^^3^3
93 ;;SITE;PULSE;^1^^1^2
94 ;;METHOD;BLOOD PRESSURE;^1^^3^3^PALPATED
95 ;;CUFF SIZE;BLOOD PRESSURE;^1^^4^4^ADULT
96 ;;METHOD;WEIGHT;^1^^2^2^STANDING
97 ;;SITE;CIRCUMFERENCE/GIRTH;^1^^1^2
98 ;;LOCATION;CIRCUMFERENCE/GIRTH;^1^^2^1
99 ;;QUALITY;HEIGHT;^1^^1^1^
100 ;;POSITION;RESPIRATION;^1^^2^2
101 ;;POSITION;PULSE;^1^^4^4
102 ;;METHOD;PULSE OXIMETRY;^1^^1^1
103 Q
Note: See TracBrowser for help on using the repository browser.