source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0I.m@ 619

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

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