source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/OCXOZ0H.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: 8.4 KB
Line 
1OCXOZ0H ;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 ;
13EL56 ; Examine every rule that involves Element #56 [PATIENT DISCHARGE]
14 ; Called from SCAN+9^OCXOZ01.
15 ;
16 Q:$G(OCXOERR)
17 ;
18 D R19R1A^OCXOZ0N ; Check Relation #1 in Rule #19 'PATIENT DISCHARGE'
19 Q
20 ;
21EL47 ; Examine every rule that involves Element #47 [ORDER REQUIRES CO-SIGNATURE]
22 ; Called from SCAN+9^OCXOZ01.
23 ;
24 Q:$G(OCXOERR)
25 ;
26 D R22R1A^OCXOZ0O ; Check Relation #1 in Rule #22 'ORDER REQUIRES CO-SIGNATURE'
27 Q
28 ;
29EL5 ; Examine every rule that involves Element #5 [HL7 FINAL LAB RESULT]
30 ; Called from SCAN+9^OCXOZ01.
31 ;
32 Q:$G(OCXOERR)
33 ;
34 D R24R1A^OCXOZ0O ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
35 D R66R1A^OCXOZ0Z ; Check Relation #1 in Rule #66 'LAB RESULTS'
36 D R69R1A^OCXOZ11 ; Check Relation #1 in Rule #69 'LAB THRESHOLD'
37 Q
38 ;
39EL49 ; Examine every rule that involves Element #49 [ORDER FLAGGED FOR RESULTS]
40 ; Called from SCAN+9^OCXOZ01.
41 ;
42 Q:$G(OCXOERR)
43 ;
44 D R24R1A^OCXOZ0O ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
45 Q
46 ;
47EL55 ; Examine every rule that involves Element #55 [CONSULT FINAL RESULTS]
48 ; Called from SCAN+9^OCXOZ01.
49 ;
50 Q:$G(OCXOERR)
51 ;
52 D R24R1A^OCXOZ0O ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
53 Q
54 ;
55EL101 ; Examine every rule that involves Element #101 [HL7 FINAL IMAGING RESULT]
56 ; Called from SCAN+9^OCXOZ01.
57 ;
58 Q:$G(OCXOERR)
59 ;
60 D R24R1A^OCXOZ0O ; Check Relation #1 in Rule #24 'ORDERER FLAGGED RESULTS AVAILABLE'
61 Q
62 ;
63EL60 ; Examine every rule that involves Element #60 [NEW OBR STAT ORDER]
64 ; Called from SCAN+9^OCXOZ01.
65 ;
66 Q:$G(OCXOERR)
67 ;
68 D R28R1A^OCXOZ0P ; Check Relation #1 in Rule #28 'STAT ORDER PLACED'
69 Q
70 ;
71EL61 ; Examine every rule that involves Element #61 [NEW ORC STAT ORDER]
72 ; Called from SCAN+9^OCXOZ01.
73 ;
74 Q:$G(OCXOERR)
75 ;
76 D R28R1A^OCXOZ0P ; Check Relation #1 in Rule #28 'STAT ORDER PLACED'
77 Q
78 ;
79EL42 ; Examine every rule that involves Element #42 [PATIENT TRANSFERRED FROM PSYCH WARD]
80 ; Called from SCAN+9^OCXOZ01.
81 ;
82 Q:$G(OCXOERR)
83 ;
84 D R32R1A^OCXOZ0P ; Check Relation #1 in Rule #32 'PATIENT TRANSFERRED FROM PSYCHIATRY TO ANOTHER UNIT'
85 Q
86 ;
87EL20 ; Examine every rule that involves Element #20 [HL7 LAB ORDER CANCELLED]
88 ; Called from SCAN+9^OCXOZ01.
89 ;
90 Q:$G(OCXOERR)
91 ;
92 D R35R1A^OCXOZ0Q ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
93 Q
94 ;
95EL40 ; Examine every rule that involves Element #40 [HL7 LAB REQUEST CANCELLED]
96 ; Called from SCAN+9^OCXOZ01.
97 ;
98 Q:$G(OCXOERR)
99 ;
100 D R35R1A^OCXOZ0Q ; Check Relation #1 in Rule #35 'LAB ORDER CANCELLED'
101 Q
102 ;
103EL6 ; Examine every rule that involves Element #6 [HL7 NEW OERR ORDER]
104 ; Called from SCAN+9^OCXOZ01.
105 ;
106 Q:$G(OCXOERR)
107 ;
108 D R38R1A^OCXOZ0Q ; Check Relation #1 in Rule #38 'NEW ORDER PLACED'
109 Q
110 ;
111EL126 ; Examine every rule that involves Element #126 [HL7 DCED OERR ORDER]
112 ; Called from SCAN+9^OCXOZ01.
113 ;
114 Q:$G(OCXOERR)
115 ;
116 D R38R2A^OCXOZ0Q ; Check Relation #2 in Rule #38 'NEW ORDER PLACED'
117 Q
118 ;
119EL23 ; Examine every rule that involves Element #23 [HL7 LAB ORDER RESULTS ABNORMAL]
120 ; Called from SCAN+9^OCXOZ01.
121 ;
122 Q:$G(OCXOERR)
123 ;
124 D R42R1A^OCXOZ0R ; Check Relation #1 in Rule #42 'ABNORMAL LAB RESULTS'
125 Q
126 ;
127EL103 ; Examine every rule that involves Element #103 [HL7 LAB TEST RESULTS ABNORMAL]
128 ; Called from SCAN+9^OCXOZ01.
129 ;
130 Q:$G(OCXOERR)
131 ;
132 D R42R2A^OCXOZ0R ; Check Relation #2 in Rule #42 'ABNORMAL LAB RESULTS'
133 Q
134 ;
135EL48 ; Examine every rule that involves Element #48 [ORDER REQUIRES ELECTRONIC SIGNATURE]
136 ; Called from SCAN+9^OCXOZ01.
137 ;
138 Q:$G(OCXOERR)
139 ;
140 D R44R1A^OCXOZ0R ; Check Relation #1 in Rule #44 'ORDER REQUIRES ELECTRONIC SIGNATURE'
141 Q
142 ;
143EL58 ; Examine every rule that involves Element #58 [NEW SITE FLAGGED ORDER]
144 ; Called from SCAN+9^OCXOZ01.
145 ;
146 Q:$G(OCXOERR)
147 ;
148 D R48R1A^OCXOZ0S ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
149 D R48R2A^OCXOZ0S ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
150 Q
151 ;
152EL127 ; Examine every rule that involves Element #127 [INPATIENT]
153 ; Called from SCAN+9^OCXOZ01.
154 ;
155 Q:$G(OCXOERR)
156 ;
157 D R48R1A^OCXOZ0S ; Check Relation #1 in Rule #48 'SITE FLAGGED ORDER'
158 D R49R1A^OCXOZ0T ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
159 Q
160 ;
161EL128 ; Examine every rule that involves Element #128 [OUTPATIENT]
162 ; Called from SCAN+9^OCXOZ01.
163 ;
164 Q:$G(OCXOERR)
165 ;
166 D R48R2A^OCXOZ0S ; Check Relation #2 in Rule #48 'SITE FLAGGED ORDER'
167 D R49R2A^OCXOZ0U ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
168 Q
169 ;
170EL59 ; Examine every rule that involves Element #59 [SITE FLAGGED FINAL LAB RESULT]
171 ; Called from SCAN+9^OCXOZ01.
172 ;
173 Q:$G(OCXOERR)
174 ;
175 D R49R1A^OCXOZ0T ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
176 D R49R2A^OCXOZ0U ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
177 Q
178 ;
179EL102 ; Examine every rule that involves Element #102 [SITE FLAGGED FINAL IMAGING RESULT]
180 ; Called from SCAN+9^OCXOZ01.
181 ;
182 Q:$G(OCXOERR)
183 ;
184 D R49R1A^OCXOZ0T ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
185 D R49R2A^OCXOZ0U ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
186 Q
187 ;
188EL109 ; Examine every rule that involves Element #109 [SITE FLAGGED FINAL CONSULT RESULT]
189 ; Called from SCAN+9^OCXOZ01.
190 ;
191 Q:$G(OCXOERR)
192 ;
193 D R49R1A^OCXOZ0T ; Check Relation #1 in Rule #49 'SITE FLAGGED RESULT'
194 D R49R2A^OCXOZ0U ; Check Relation #2 in Rule #49 'SITE FLAGGED RESULT'
195 Q
196 ;
197EL129 ; Examine every rule that involves Element #129 [ABNORMAL RENAL RESULTS]
198 ; Called from SCAN+9^OCXOZ01.
199 ;
200 Q:$G(OCXOERR)
201 ;
202 D R50R1A^OCXOZ0U ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
203 Q
204 ;
205EL130 ; Examine every rule that involves Element #130 [CONTRAST MEDIA ORDER]
206 ; Called from SCAN+9^OCXOZ01.
207 ;
208 Q:$G(OCXOERR)
209 ;
210 D R50R1A^OCXOZ0U ; Check Relation #1 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
211 D R50R2A^OCXOZ0V ; Check Relation #2 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
212 Q
213 ;
214EL133 ; Examine every rule that involves Element #133 [NO CREAT RESULTS W/IN X DAYS]
215 ; Called from SCAN+9^OCXOZ01.
216 ;
217 Q:$G(OCXOERR)
218 ;
219 D R50R2A^OCXOZ0V ; Check Relation #2 in Rule #50 'BIOCHEM ABNORMALITIES/CONTRAST MEDIA CHECK'
220 Q
221 ;
222EL63 ; Examine every rule that involves Element #63 [PATIENT HAS RECENT CHOLECYSTOGRAM]
223 ; Called from SCAN+9^OCXOZ01.
224 ;
225 Q:$G(OCXOERR)
226 ;
227 D R51R1A^OCXOZ0V ; Check Relation #1 in Rule #51 'RECENT CHOLECYSTOGRAM ORDER'
228 Q
229 ;
230EL64 ; Examine every rule that involves Element #64 [PHARMACY PATIENT OVER 65]
231 ; Called from SCAN+9^OCXOZ01.
232 ;
233 Q:$G(OCXOERR)
234 ;
235 D R53R1A^OCXOZ0V ; Check Relation #1 in Rule #53 'RENAL FUNCTIONS OVER AGE 65 CHECK'
236 Q
237 ;
238EL65 ; Examine every rule that involves Element #65 [SESSION ORDER FOR ANGIOGRAM]
239 ; Called from SCAN+9^OCXOZ01.
240 ;
241 Q:$G(OCXOERR)
242 ;
243 D R54R1A^OCXOZ0V ; Check Relation #1 in Rule #54 'CONCURRENT LAB ORDERS FOR ANGIOGRAM, CATH - PERIPHERAL'
244 Q
245 ;
246EL66 ; Examine every rule that involves Element #66 [CONTRAST MEDIA ALLERGY]
247 ; Called from SCAN+9^OCXOZ01.
248 ;
249 Q:$G(OCXOERR)
250 ;
251 D R55R1A^OCXOZ0V ; Check Relation #1 in Rule #55 'ALLERGY - CONTRAST MEDIA REACTION'
252 Q
253 ;
254EL67 ; Examine every rule that involves Element #67 [RECENT BARIUM STUDY ORDERED]
255 ; Called from SCAN+9^OCXOZ01.
256 ;
257 Q:$G(OCXOERR)
258 ;
259 D R56R1A^OCXOZ0W ; Check Relation #1 in Rule #56 'RECENT BARIUM STUDY'
260 Q
261 ;
262EL116 ; Examine every rule that involves Element #116 [CLOZAPINE DRUG SELECTED]
263 ; Called from SCAN+9^OCXOZ01.
264 ;
265 Q:$G(OCXOERR)
266 ;
267 D R57R1A^OCXOZ0W ; Check Relation #1 in Rule #57 'CLOZAPINE'
268 D R57R2A^OCXOZ0W ; Check Relation #2 in Rule #57 'CLOZAPINE'
269 D R57R3A^OCXOZ0W ; Check Relation #3 in Rule #57 'CLOZAPINE'
270 D R57R4A^OCXOZ0W ; Check Relation #4 in Rule #57 'CLOZAPINE'
271 Q
272 ;
273EL117 ; Examine every rule that involves Element #117 [CLOZAPINE NO ANC W/IN 7 DAYS]
274 ; Called from SCAN+9^OCXOZ01.
275 ;
276 Q:$G(OCXOERR)
277 ;
278 D R57R1A^OCXOZ0W ; Check Relation #1 in Rule #57 'CLOZAPINE'
279 Q
280 ;
281EL118 ; Examine every rule that involves Element #118 [CLOZAPINE NO WBC W/IN 7 DAYS]
282 ; Called from SCAN+9^OCXOZ01.
283 ;
284 Q:$G(OCXOERR)
285 ;
286 D R57R1A^OCXOZ0W ; Check Relation #1 in Rule #57 'CLOZAPINE'
287 Q
288 ;
Note: See TracBrowser for help on using the repository browser.