source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0I.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 7.0 KB
Line 
1OCXOZ0I ;SLC/RJS,CLA - Order Check Scan ;SEP 4,2007 at 23:12
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**32,221**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5 ; ***************************************************************
6 ; ** Warning: This routine is automatically generated by the **
7 ; ** Rule Compiler (^OCXOCMP) and ANY changes to this routine **
8 ; ** will be lost the next time the rule compiler executes. **
9 ; ***************************************************************
10 ;
11 Q
12 ;
13EL120 ; Examine every rule that involves Element #120 [CLOZAPINE WBC >= 3.0 & < 3.5]
14 ; Called from SCAN+9^OCXOZ01.
15 ;
16 Q:$G(OCXOERR)
17 ;
18 D R57R3A^OCXOZ0W ; Check Relation #3 in Rule #57 'CLOZAPINE'
19 D R57R4A^OCXOZ0W ; Check Relation #4 in Rule #57 'CLOZAPINE'
20 Q
21 ;
22EL115 ; Examine every rule that involves Element #115 [CLOZAPINE ANC >= 1.5]
23 ; Called from SCAN+9^OCXOZ01.
24 ;
25 Q:$G(OCXOERR)
26 ;
27 D R57R4A^OCXOZ0W ; Check Relation #4 in Rule #57 'CLOZAPINE'
28 Q
29 ;
30EL121 ; Examine every rule that involves Element #121 [CLOZAPINE WBC >= 3.5]
31 ; Called from SCAN+9^OCXOZ01.
32 ;
33 Q:$G(OCXOERR)
34 ;
35 D R57R5A^OCXOZ0X ; Check Relation #5 in Rule #57 'CLOZAPINE'
36 Q
37 ;
38EL71 ; Examine every rule that involves Element #71 [AMINOGLYCOSIDE ORDER SESSION]
39 ; Called from SCAN+9^OCXOZ01.
40 ;
41 Q:$G(OCXOERR)
42 ;
43 D R59R1A^OCXOZ0X ; Check Relation #1 in Rule #59 'AMINOGLYCOSIDE ORDER'
44 Q
45 ;
46EL72 ; Examine every rule that involves Element #72 [PATIENT OVER CT OR MRI DEVICE LIMITATIONS]
47 ; Called from SCAN+9^OCXOZ01.
48 ;
49 Q:$G(OCXOERR)
50 ;
51 D R60R1A^OCXOZ0X ; Check Relation #1 in Rule #60 'CT OR MRI PHYSICAL LIMIT CHECK'
52 Q
53 ;
54EL73 ; Examine every rule that involves Element #73 [CREATININE CLEARANCE ESTIMATE]
55 ; Called from SCAN+9^OCXOZ01.
56 ;
57 Q:$G(OCXOERR)
58 ;
59 D R61R1A^OCXOZ0Y ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
60 Q
61 ;
62EL96 ; Examine every rule that involves Element #96 [CREATININE CLEARANCE DATE/TIME]
63 ; Called from SCAN+9^OCXOZ01.
64 ;
65 Q:$G(OCXOERR)
66 ;
67 D R61R1A^OCXOZ0Y ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
68 Q
69 ;
70EL97 ; Examine every rule that involves Element #97 [RENAL RESULTS]
71 ; Called from SCAN+9^OCXOZ01.
72 ;
73 Q:$G(OCXOERR)
74 ;
75 D R61R1A^OCXOZ0Y ; Check Relation #1 in Rule #61 'CREATININE CLEARANCE ESTIMATION'
76 Q
77 ;
78EL84 ; Examine every rule that involves Element #84 [INPATIENT FOOD-DRUG REACTION]
79 ; Called from SCAN+9^OCXOZ01.
80 ;
81 Q:$G(OCXOERR)
82 ;
83 D R62R1A^OCXOZ0Z ; Check Relation #1 in Rule #62 'FOOD/DRUG INTERACTION'
84 Q
85 ;
86EL91 ; Examine every rule that involves Element #91 [PATIENT WITH GLUCOPHAGE MED]
87 ; Called from SCAN+9^OCXOZ01.
88 ;
89 Q:$G(OCXOERR)
90 ;
91 D R63R1A^OCXOZ0Z ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
92 Q
93 ;
94EL106 ; Examine every rule that involves Element #106 [RADIOLOGY PROCEDURE CONTAINS NON-BARIUM CONTRAST MEDIA]
95 ; Called from SCAN+9^OCXOZ01.
96 ;
97 Q:$G(OCXOERR)
98 ;
99 D R63R1A^OCXOZ0Z ; Check Relation #1 in Rule #63 'GLUCOPHAGE - CONTRAST MEDIA'
100 Q
101 ;
102EL95 ; Examine every rule that involves Element #95 [POLYPHARMACY]
103 ; Called from SCAN+9^OCXOZ01.
104 ;
105 Q:$G(OCXOERR)
106 ;
107 D R65R1A^OCXOZ0Z ; Check Relation #1 in Rule #65 'POLYPHARMACY'
108 Q
109 ;
110EL86 ; Examine every rule that involves Element #86 [GLUCOPHAGE ORDER]
111 ; Called from SCAN+9^OCXOZ01.
112 ;
113 Q:$G(OCXOERR)
114 ;
115 D R67R1A^OCXOZ10 ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
116 D R67R2A^OCXOZ10 ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
117 Q
118 ;
119EL111 ; Examine every rule that involves Element #111 [GLUCOPHAGE CREATININE > 1.5]
120 ; Called from SCAN+9^OCXOZ01.
121 ;
122 Q:$G(OCXOERR)
123 ;
124 D R67R1A^OCXOZ10 ; Check Relation #1 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
125 Q
126 ;
127EL112 ; Examine every rule that involves Element #112 [NO GLUCOPHAGE CREATININE]
128 ; Called from SCAN+9^OCXOZ01.
129 ;
130 Q:$G(OCXOERR)
131 ;
132 D R67R2A^OCXOZ10 ; Check Relation #2 in Rule #67 'GLUCOPHAGE - LAB RESULTS'
133 Q
134 ;
135EL122 ; Examine every rule that involves Element #122 [AMITRIPTYLINE ORDER]
136 ; Called from SCAN+9^OCXOZ01.
137 ;
138 Q:$G(OCXOERR)
139 ;
140 D R68R1A^OCXOZ11 ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
141 Q
142 ;
143EL125 ; Examine every rule that involves Element #125 [MED ORDER FOR PT > 64]
144 ; Called from SCAN+9^OCXOZ01.
145 ;
146 Q:$G(OCXOERR)
147 ;
148 D R68R1A^OCXOZ11 ; Check Relation #1 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
149 D R68R2A^OCXOZ11 ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
150 D R68R3A^OCXOZ11 ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
151 Q
152 ;
153EL123 ; Examine every rule that involves Element #123 [CHLORPROPAMIDE ORDER]
154 ; Called from SCAN+9^OCXOZ01.
155 ;
156 Q:$G(OCXOERR)
157 ;
158 D R68R2A^OCXOZ11 ; Check Relation #2 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
159 Q
160 ;
161EL124 ; Examine every rule that involves Element #124 [DIPYRIDAMOLE ORDER]
162 ; Called from SCAN+9^OCXOZ01.
163 ;
164 Q:$G(OCXOERR)
165 ;
166 D R68R3A^OCXOZ11 ; Check Relation #3 in Rule #68 'DANGEROUS MEDS OVER AGE 64'
167 Q
168 ;
169EL131 ; Examine every rule that involves Element #131 [GREATER THAN LAB THRESHOLD]
170 ; Called from SCAN+9^OCXOZ01.
171 ;
172 Q:$G(OCXOERR)
173 ;
174 D R69R1A^OCXOZ11 ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
175 Q
176 ;
177EL132 ; Examine every rule that involves Element #132 [LESS THAN LAB THRESHOLD]
178 ; Called from SCAN+9^OCXOZ01.
179 ;
180 Q:$G(OCXOERR)
181 ;
182 D R69R1A^OCXOZ11 ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
183 Q
184 ;
185EL28 ; Examine every rule that involves Element #28 [RADIOLOGY ORDER]
186 ; Called from SCAN+9^OCXOZ01.
187 ;
188 Q:$G(OCXOERR)
189 ;
190 D R70R1A^OCXOZ12 ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
191 Q
192 ;
193EL135 ; Examine every rule that involves Element #135 [DIET ORDER]
194 ; Called from SCAN+9^OCXOZ01.
195 ;
196 Q:$G(OCXOERR)
197 ;
198 D R70R1A^OCXOZ12 ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
199 Q
200 ;
201EL136 ; Examine every rule that involves Element #136 [NO ALLERGY ASSESSMENT]
202 ; Called from SCAN+9^OCXOZ01.
203 ;
204 Q:$G(OCXOERR)
205 ;
206 D R70R1A^OCXOZ12 ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
207 Q
208 ;
209EL137 ; Examine every rule that involves Element #137 [PHARMACY ORDER]
210 ; Called from SCAN+9^OCXOZ01.
211 ;
212 Q:$G(OCXOERR)
213 ;
214 D R70R1A^OCXOZ12 ; Check Relation #1 in Rule #70 'NO ALLERGY ASSESSMENT'
215 Q
216 ;
217EL138 ; Examine every rule that involves Element #138 [DUP OPIOID MEDS]
218 ; Called from SCAN+9^OCXOZ01.
219 ;
220 Q:$G(OCXOERR)
221 ;
222 D R71R1A^OCXOZ13 ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
223 Q
224 ;
225EL139 ; Examine every rule that involves Element #139 [OPIOID MED ORDER]
226 ; Called from SCAN+9^OCXOZ01.
227 ;
228 Q:$G(OCXOERR)
229 ;
230 D R71R1A^OCXOZ13 ; Check Relation #1 in Rule #71 'OPIOID MEDICATIONS'
231 Q
232 ;
233R3R1A ; Verify all Event/Elements of Rule #3 'CRITICAL LAB RESULTS' Relation #1 'CRITICAL LAB TEST'
234 ; Called from EL24+5^OCXOZ0G.
235 ;
236 Q:$G(OCXOERR)
237 ;
238 ; Local Extrinsic Functions
239 ; MCE24( -----------> Verify Event/Element: 'HL7 LAB TEST RESULTS CRITICAL'
240 ;
241 Q:$G(^OCXS(860.2,3,"INACT"))
242 ;
243 I $$MCE24 D R3R1B^OCXOZ0J
244 Q
245 ;
246MCE24() ; Verify Event/Element: HL7 LAB TEST RESULTS CRITICAL
247 ;
248 ;
249 N OCXRES
250 I $L(OCXDF(37)) S OCXRES(24,37)=OCXDF(37)
251 Q:'(OCXDF(37)) 0 I $D(^TMP("OCXCHK",$J,OCXDF(37),24)) Q $G(^TMP("OCXCHK",$J,OCXDF(37),24))
252 Q 0
253 ;
Note: See TracBrowser for help on using the repository browser.