source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY23403.m@ 1770

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

initial load of FOIAVistA 6/30/08 version
File size: 7.7 KB
Line 
1ORY23403 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*234) ;MAY 13,2005 at 09:31
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**234**;Dec 17,1997
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5S ;
6 ;
7 D DOT^ORY234ES
8 ;
9 ;
10 K REMOTE,LOCAL,OPCODE,REF
11 F LINE=1:1:500 S TEXT=$P($T(DATA+LINE),";",2,999) Q:TEXT I $L(TEXT) D Q:QUIT
12 .S ^TMP("OCXRULE",$J,$O(^TMP("OCXRULE",$J,"A"),-1)+1)=TEXT
13 ;
14 G ^ORY23404
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;D^HL7 FILLER
21 ;;R^"863.4:",.02,"E"
22 ;;D^HL7FILLR
23 ;;R^"863.4:","863.41:1",.01,"E"
24 ;;D^DATA TYPE
25 ;;R^"863.4:","863.41:1",1,"E"
26 ;;D^FREE TEXT
27 ;;EOR^
28 ;;KEY^863.4:^IEN
29 ;;R^"863.4:",.01,"E"
30 ;;D^IEN
31 ;;R^"863.4:","863.41:1",.01,"E"
32 ;;D^DATA TYPE
33 ;;R^"863.4:","863.41:1",1,"E"
34 ;;D^NUMERIC
35 ;;EOR^
36 ;;KEY^863.4:^ORDER MODE
37 ;;R^"863.4:",.01,"E"
38 ;;D^ORDER MODE
39 ;;R^"863.4:","863.41:1",.01,"E"
40 ;;D^DATA TYPE
41 ;;R^"863.4:","863.41:1",1,"E"
42 ;;D^FREE TEXT
43 ;;EOR^
44 ;;KEY^863.4:^ORDER PATIENT
45 ;;R^"863.4:",.01,"E"
46 ;;D^ORDER PATIENT
47 ;;R^"863.4:","863.41:1",.01,"E"
48 ;;D^DATA TYPE
49 ;;R^"863.4:","863.41:1",1,"E"
50 ;;D^NUMERIC
51 ;;EOR^
52 ;;KEY^863.4:^ORDERABLE ITEM IEN
53 ;;R^"863.4:",.01,"E"
54 ;;D^ORDERABLE ITEM IEN
55 ;;R^"863.4:","863.41:1",.01,"E"
56 ;;D^DATA TYPE
57 ;;R^"863.4:","863.41:1",1,"E"
58 ;;D^NUMERIC
59 ;;EOR^
60 ;;EOF^OCXS(863.4)^1
61 ;;SOF^863.2 OCX MDD SUBJECT
62 ;;KEY^863.2:^PATIENT
63 ;;R^"863.2:",.01,"E"
64 ;;D^PATIENT
65 ;;R^"863.2:","863.21:1",.01,"E"
66 ;;D^FILE
67 ;;R^"863.2:","863.21:1",1,"E"
68 ;;D^2
69 ;;EOR^
70 ;;EOF^OCXS(863.2)^1
71 ;;SOF^863.3 OCX MDD LINK
72 ;;KEY^863.3:^PATIENT.CONTR_MED_CODE
73 ;;R^"863.3:",.01,"E"
74 ;;D^PATIENT.CONTR_MED_CODE
75 ;;R^"863.3:",.02,"E"
76 ;;D^PATIENT
77 ;;R^"863.3:",.05,"E"
78 ;;D^CONTRAST MEDIA CODE
79 ;;R^"863.3:",.06,"E"
80 ;;D^99
81 ;;R^"863.3:","863.32:1",.01,"E"
82 ;;D^OCXO EXTERNAL FUNCTION CALL
83 ;;R^"863.3:","863.32:1",1,"E"
84 ;;D^CM^ORQQRA(|ORDERABLE ITEM IEN|)
85 ;;R^"863.3:","863.32:2",.01,"E"
86 ;;D^OCXO UP-ARROW PIECE NUMBER
87 ;;EOR^
88 ;;KEY^863.3:^PATIENT.CONT_MED_ALGY
89 ;;R^"863.3:",.01,"E"
90 ;;D^PATIENT.CONT_MED_ALGY
91 ;;R^"863.3:",.02,"E"
92 ;;D^PATIENT
93 ;;R^"863.3:",.05,"E"
94 ;;D^CONTRAST MEDIA ALLERGY FLAG
95 ;;R^"863.3:",.06,"E"
96 ;;D^99
97 ;;R^"863.3:","863.32:1",.01,"E"
98 ;;D^OCXO EXTERNAL FUNCTION CALL
99 ;;R^"863.3:","863.32:1",1,"E"
100 ;;D^ORCHK^GMRAOR(|PATIENT IEN|,"CM","")
101 ;;EOR^
102 ;;KEY^863.3:^PATIENT.CON_MEDIA_TRANS
103 ;;R^"863.3:",.01,"E"
104 ;;D^PATIENT.CON_MEDIA_TRANS
105 ;;R^"863.3:",.02,"E"
106 ;;D^PATIENT
107 ;;R^"863.3:",.05,"E"
108 ;;D^CONTRAST MEDIA
109 ;;R^"863.3:",.06,"E"
110 ;;D^99
111 ;;R^"863.3:","863.32:1",.01,"E"
112 ;;D^OCXO EXTERNAL FUNCTION CALL
113 ;;R^"863.3:","863.32:1",1,"E"
114 ;;D^CONTRANS(|CONTRAST MEDIA CODE|)
115 ;;EOR^
116 ;;KEY^863.3:^PATIENT.HL7_FILLER
117 ;;R^"863.3:",.01,"E"
118 ;;D^PATIENT.HL7_FILLER
119 ;;R^"863.3:",.02,"E"
120 ;;D^PATIENT
121 ;;R^"863.3:",.04,"E"
122 ;;D^HL7
123 ;;R^"863.3:",.05,"E"
124 ;;D^HL7 FILLER
125 ;;R^"863.3:","863.32:1",.01,"E"
126 ;;D^OCXO VT-BAR PIECE NUMBER
127 ;;R^"863.3:","863.32:2",.01,"E"
128 ;;D^OCXO UP-ARROW PIECE NUMBER
129 ;;R^"863.3:","863.32:2",1,"E"
130 ;;D^2
131 ;;R^"863.3:","863.32:3",.01,"E"
132 ;;D^OCXO VARIABLE NAME
133 ;;R^"863.3:","863.32:3",1,"E"
134 ;;D^OCXODATA("ORC",3)
135 ;;R^"863.3:","863.32:4",.01,"E"
136 ;;D^OCXO HL7 SEGMENT ID
137 ;;R^"863.3:","863.32:5",.01,"E"
138 ;;D^OCXO DATA DRIVE SOURCE
139 ;;R^"863.3:","863.32:5",1,"E"
140 ;;D^HL7
141 ;;R^"863.3:","863.32:6",.01,"E"
142 ;;D^OCXO FILE POINTER
143 ;;EOR^
144 ;;KEY^863.3:^PATIENT.HL7_PATIENT_ID
145 ;;R^"863.3:",.01,"E"
146 ;;D^PATIENT.HL7_PATIENT_ID
147 ;;R^"863.3:",.02,"E"
148 ;;D^PATIENT
149 ;;R^"863.3:",.04,"E"
150 ;;D^HL7
151 ;;R^"863.3:",.05,"E"
152 ;;D^IEN
153 ;;R^"863.3:",.06,"E"
154 ;;D^99
155 ;;R^"863.3:","863.32:1",.01,"E"
156 ;;D^OCXO HL7 SEGMENT ID
157 ;;R^"863.3:","863.32:2",.01,"E"
158 ;;D^OCXO VT-BAR PIECE NUMBER
159 ;;R^"863.3:","863.32:3",.01,"E"
160 ;;D^OCXO VARIABLE NAME
161 ;;R^"863.3:","863.32:3",1,"E"
162 ;;D^OCXODATA("PID",3)
163 ;;EOR^
164 ;;KEY^863.3:^PATIENT.IEN
165 ;;R^"863.3:",.01,"E"
166 ;;D^PATIENT.IEN
167 ;;R^"863.3:",.02,"E"
168 ;;D^PATIENT
169 ;;R^"863.3:",.05,"E"
170 ;;D^IEN
171 ;;R^"863.3:",.06,"E"
172 ;;D^99
173 ;;R^"863.3:","863.32:1",.01,"E"
174 ;;D^OCXO VARIABLE NAME
175 ;;R^"863.3:","863.32:1",1,"E"
176 ;;D^DFN
177 ;;EOR^
178 ;;KEY^863.3:^PATIENT.OERR_ORDER_PATIENT
179 ;;R^"863.3:",.01,"E"
180 ;;D^PATIENT.OERR_ORDER_PATIENT
181 ;;R^"863.3:",.02,"E"
182 ;;D^PATIENT
183 ;;R^"863.3:",.05,"E"
184 ;;D^ORDER PATIENT
185 ;;R^"863.3:",.06,"E"
186 ;;D^5567
187 ;;R^"863.3:","863.32:1",.01,"E"
188 ;;D^OCXO VARIABLE NAME
189 ;;R^"863.3:","863.32:1",1,"E"
190 ;;D^OCXORD
191 ;;R^"863.3:","863.32:2",.01,"E"
192 ;;D^OCXO UP-ARROW PIECE NUMBER
193 ;;R^"863.3:","863.32:2",1,"E"
194 ;;D^1
195 ;;EOR^
196 ;;KEY^863.3:^PATIENT.OPS_FILLER
197 ;;R^"863.3:",.01,"E"
198 ;;D^PATIENT.OPS_FILLER
199 ;;R^"863.3:",.02,"E"
200 ;;D^PATIENT
201 ;;R^"863.3:",.04,"E"
202 ;;D^OPS
203 ;;R^"863.3:",.05,"E"
204 ;;D^FILLER
205 ;;R^"863.3:",.06,"E"
206 ;;D^99
207 ;;R^"863.3:","863.32:1",.01,"E"
208 ;;D^OCXO VARIABLE NAME
209 ;;R^"863.3:","863.32:1",1,"E"
210 ;;D^OCXPSD
211 ;;R^"863.3:","863.32:2",.01,"E"
212 ;;D^OCXO VT-BAR PIECE NUMBER
213 ;;R^"863.3:","863.32:2",1,"E"
214 ;;D^1
215 ;;EOR^
216 ;;KEY^863.3:^PATIENT.OPS_ORD_MODE
217 ;;R^"863.3:",.01,"E"
218 ;;D^PATIENT.OPS_ORD_MODE
219 ;;R^"863.3:",.02,"E"
220 ;;D^PATIENT
221 ;;R^"863.3:",.04,"E"
222 ;;D^OPS
223 ;;R^"863.3:",.05,"E"
224 ;;D^ORDER MODE
225 ;;R^"863.3:",.06,"E"
226 ;;D^99
227 ;;R^"863.3:","863.32:1",.01,"E"
228 ;;D^OCXO VARIABLE NAME
229 ;;R^"863.3:","863.32:1",1,"E"
230 ;;D^OCXPSM
231 ;;EOR^
232 ;;KEY^863.3:^PATIENT.ORDER_ITEM_IEN
233 ;;R^"863.3:",.01,"E"
234 ;;D^PATIENT.ORDER_ITEM_IEN
235 ;;R^"863.3:",.02,"E"
236 ;;D^PATIENT
237 ;;R^"863.3:",.05,"E"
238 ;;D^ORDERABLE ITEM IEN
239 ;;R^"863.3:",.06,"E"
240 ;;D^99
241 ;;R^"863.3:","863.32:1",.01,"E"
242 ;;D^OCXO VARIABLE NAME
243 ;;R^"863.3:","863.32:1",1,"E"
244 ;;D^OCXPSD
245 ;;R^"863.3:","863.32:2",.01,"E"
246 ;;D^OCXO VT-BAR PIECE NUMBER
247 ;;R^"863.3:","863.32:2",1,"E"
248 ;;D^0
249 ;;EOR^
250 ;;EOF^OCXS(863.3)^1
251 ;;SOF^860.9 ORDER CHECK NATIONAL TERM
252 ;;KEY^860.9:^ANGIOGRAM (PERIPHERAL)
253 ;;R^"860.9:",.01,"E"
254 ;;D^ANGIOGRAM (PERIPHERAL)
255 ;;R^"860.9:",.02,"E"
256 ;;D^101.43
257 ;;EOR^
258 ;;KEY^860.9:^BLOOD SPECIMEN
259 ;;R^"860.9:",.01,"E"
260 ;;D^BLOOD SPECIMEN
261 ;;R^"860.9:",.02,"E"
262 ;;D^61
263 ;;EOR^
264 ;;KEY^860.9:^DANGEROUS MEDS FOR PTS > 64
265 ;;R^"860.9:",.01,"E"
266 ;;D^DANGEROUS MEDS FOR PTS > 64
267 ;;R^"860.9:",.02,"E"
268 ;;D^101.43
269 ;;R^"860.9:",2,"E"
270 ;;D^I $P($G(^ORD(100.98,$P($G(^ORD(101.43,+Y,0)),U,5),0)),U)="PHARMACY"
271 ;;EOR^
272 ;;KEY^860.9:^DNR
273 ;;R^"860.9:",.01,"E"
274 ;;D^DNR
275 ;;R^"860.9:",.02,"E"
276 ;;D^101.43
277 ;;EOR^
278 ;;KEY^860.9:^EGFR
279 ;;R^"860.9:",.01,"E"
280 ;;D^EGFR
281 ;;R^"860.9:",.02,"E"
282 ;;D^60
283 ;;EOR^
284 ;;KEY^860.9:^FOOD-DRUG INTERACTION MED
285 ;;R^"860.9:",.01,"E"
286 ;;D^FOOD-DRUG INTERACTION MED
287 ;;R^"860.9:",.02,"E"
288 ;;D^101.43
289 ;;R^"860.9:",2,"E"
290 ;;D^I $P($G(^ORD(100.98,$P($G(^ORD(101.43,+Y,0)),U,5),0)),U)="PHARMACY"
291 ;;EOR^
292 ;;KEY^860.9:^NPO
293 ;;R^"860.9:",.01,"E"
294 ;;D^NPO
295 ;;R^"860.9:",.02,"E"
296 ;;D^101.43
297 ;;EOR^
298 ;;KEY^860.9:^ONE TIME MED
299 ;;R^"860.9:",.01,"E"
300 ;;D^ONE TIME MED
301 ;;R^"860.9:",.02,"E"
302 ;;D^51.1
303 ;;R^"860.9:",2,"E"
304 ;;D^I $E($P(^(0),U,4),1,2)="PS"
305 ;;EOR^
306 ;;KEY^860.9:^PARTIAL THROMBOPLASTIN TIME
307 ;;R^"860.9:",.01,"E"
308 ;;D^PARTIAL THROMBOPLASTIN TIME
309 ;;R^"860.9:",.02,"E"
310 ;;D^101.43
311 ;;EOR^
312 ;;KEY^860.9:^PROTHROMBIN TIME
313 ;;R^"860.9:",.01,"E"
314 ;;D^PROTHROMBIN TIME
315 ;;R^"860.9:",.02,"E"
316 ;;D^101.43
317 ;;EOR^
318 ;;KEY^860.9:^SERUM CREATININE
319 ;;R^"860.9:",.01,"E"
320 ;;D^SERUM CREATININE
321 ;;R^"860.9:",.02,"E"
322 ;;D^60
323 ;;EOR^
324 ;;KEY^860.9:^SERUM SPECIMEN
325 ;;R^"860.9:",.01,"E"
326 ;;D^SERUM SPECIMEN
327 ;;R^"860.9:",.02,"E"
328 ;;D^61
329 ;;EOR^
330 ;;KEY^860.9:^SERUM UREA NITROGEN
331 ;;R^"860.9:",.01,"E"
332 ;;D^SERUM UREA NITROGEN
333 ;;R^"860.9:",.02,"E"
334 ;;D^60
335 ;;EOR^
336 ;;KEY^860.9:^WBC
337 ;;R^"860.9:",.01,"E"
338 ;;D^WBC
339 ;;R^"860.9:",.02,"E"
340 ;;D^60
341 ;;EOR^
342 ;;EOF^OCXS(860.9)^1
343 ;;SOF^860.8 ORDER CHECK COMPILER FUNCTIONS
344 ;;KEY^860.8:^CONTRAST MEDIA CODE TRANSLATION
345 ;;R^"860.8:",.01,"E"
346 ;;D^CONTRAST MEDIA CODE TRANSLATION
347 ;;R^"860.8:",.02,"E"
348 ;;D^CONTRANS
349 ;;R^"860.8:",100,1
350 ;;D^ ;CONTRANS(OCXC) ;
351 ;;R^"860.8:",100,2
352 ;;D^ ; ;
353 ;;R^"860.8:",100,3
354 ;;D^ ; N OCXX
355 ;;R^"860.8:",100,4
356 ;;D^ ; Q:'$L($G(OCXC)) "" S OCXX=$S((OCXC["B"):"Barium",1:"")
357 ;1;
358 ;
Note: See TracBrowser for help on using the repository browser.