source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY26703.m@ 1607

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

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