source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORY24303.m@ 1361

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

initial load of WorldVistAEHR

File size: 7.5 KB
RevLine 
[613]1ORY24303 ;SLC/RJS,CLA - OCX PACKAGE RULE TRANSPORT ROUTINE (Delete after Install of OR*3*243) ;NOV 2,2006 at 12:05
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**243**;Dec 17,1997;Build 242
3 ;; ;;ORDER CHECK EXPERT version 1.01 released OCT 29,1998
4 ;
5S ;
6 ;
7 D DOT^ORY243ES
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 ^ORY24304
15 ;
16 Q
17 ;
18DATA ;
19 ;
20 ;;D^IS LESS THAN
21 ;;R^"863.9:","863.91:3",.01,"E"
22 ;;D^OCXO GENERATE CODE FUNCTION
23 ;;R^"863.9:","863.91:3",1,"E"
24 ;;D^GCC NUMERIC LESS THAN
25 ;;EOR^
26 ;;KEY^863.9:^LOGICAL FALSE
27 ;;R^"863.9:",.01,"E"
28 ;;D^LOGICAL FALSE
29 ;;R^"863.9:",.02,"E"
30 ;;D^BOOLEAN
31 ;;R^"863.9:",.03,"E"
32 ;;D^GCC BOOLEAN LOGICAL FALSE
33 ;;R^"863.9:",.04,"E"
34 ;;D^IS FALSE
35 ;;R^"863.9:","863.91:1",.01,"E"
36 ;;D^OCXO GENERATE CODE FUNCTION
37 ;;R^"863.9:","863.91:1",1,"E"
38 ;;D^GCC BOOLEAN LOGICAL FALSE
39 ;;R^"863.9:","863.92:1",.01,"E"
40 ;;D^FALSE
41 ;;EOR^
42 ;;KEY^863.9:^LOGICAL TRUE
43 ;;R^"863.9:",.01,"E"
44 ;;D^LOGICAL TRUE
45 ;;R^"863.9:",.02,"E"
46 ;;D^BOOLEAN
47 ;;R^"863.9:",.03,"E"
48 ;;D^GCC BOOLEAN LOGICAL TRUE
49 ;;R^"863.9:",.04,"E"
50 ;;D^IS TRUE
51 ;;R^"863.9:","863.91:1",.01,"E"
52 ;;D^OCXO GENERATE CODE FUNCTION
53 ;;R^"863.9:","863.91:1",1,"E"
54 ;;D^GCC BOOLEAN LOGICAL TRUE
55 ;;R^"863.9:","863.92:1",.01,"E"
56 ;;D^TRUE
57 ;;EOR^
58 ;;KEY^863.9:^STARTS WITH
59 ;;R^"863.9:",.01,"E"
60 ;;D^STARTS WITH
61 ;;R^"863.9:",.02,"E"
62 ;;D^FREE TEXT
63 ;;R^"863.9:",.04,"E"
64 ;;D^STARTS WITH
65 ;;R^"863.9:","863.91:3",.01,"E"
66 ;;D^OCXO GENERATE CODE FUNCTION
67 ;;R^"863.9:","863.91:3",1,"E"
68 ;;D^GCC FREE TEXT STARTS WITH
69 ;;R^"863.9:","863.92:1",.01,"E"
70 ;;D^BEGINS WITH
71 ;;EOR^
72 ;;EOF^OCXS(863.9)^1
73 ;;SOF^863.4 OCX MDD ATTRIBUTE
74 ;;KEY^863.4:^CLOZAPINE ANC W/IN 7 FLAG
75 ;;R^"863.4:",.01,"E"
76 ;;D^CLOZAPINE ANC W/IN 7 FLAG
77 ;;R^"863.4:","863.41:1",.01,"E"
78 ;;D^DATA TYPE
79 ;;R^"863.4:","863.41:1",1,"E"
80 ;;D^BOOLEAN
81 ;;EOR^
82 ;;KEY^863.4:^CLOZAPINE ANC W/IN 7 RESULT
83 ;;R^"863.4:",.01,"E"
84 ;;D^CLOZAPINE ANC W/IN 7 RESULT
85 ;;R^"863.4:","863.41:1",.01,"E"
86 ;;D^DATA TYPE
87 ;;R^"863.4:","863.41:1",1,"E"
88 ;;D^NUMERIC
89 ;;EOR^
90 ;;KEY^863.4:^CLOZAPINE LAB RESULTS
91 ;;R^"863.4:",.01,"E"
92 ;;D^CLOZAPINE LAB RESULTS
93 ;;R^"863.4:","863.41:1",.01,"E"
94 ;;D^DATA TYPE
95 ;;R^"863.4:","863.41:1",1,"E"
96 ;;D^FREE TEXT
97 ;;EOR^
98 ;;KEY^863.4:^CLOZAPINE MED
99 ;;R^"863.4:",.01,"E"
100 ;;D^CLOZAPINE MED
101 ;;R^"863.4:","863.41:1",.01,"E"
102 ;;D^DATA TYPE
103 ;;R^"863.4:","863.41:1",1,"E"
104 ;;D^BOOLEAN
105 ;;EOR^
106 ;;KEY^863.4:^CLOZAPINE WBC W/IN 7 FLAG
107 ;;R^"863.4:",.01,"E"
108 ;;D^CLOZAPINE WBC W/IN 7 FLAG
109 ;;R^"863.4:","863.41:1",.01,"E"
110 ;;D^DATA TYPE
111 ;;R^"863.4:","863.41:1",1,"E"
112 ;;D^BOOLEAN
113 ;;EOR^
114 ;;KEY^863.4:^CLOZAPINE WBC W/IN 7 RESULT
115 ;;R^"863.4:",.01,"E"
116 ;;D^CLOZAPINE WBC W/IN 7 RESULT
117 ;;R^"863.4:","863.41:1",.01,"E"
118 ;;D^DATA TYPE
119 ;;R^"863.4:","863.41:1",1,"E"
120 ;;D^NUMERIC
121 ;;EOR^
122 ;;KEY^863.4:^DISPENSE DRUG
123 ;;R^"863.4:",.01,"E"
124 ;;D^DISPENSE DRUG
125 ;;R^"863.4:","863.41:1",.01,"E"
126 ;;D^DATA TYPE
127 ;;R^"863.4:","863.41:1",1,"E"
128 ;;D^FREE TEXT
129 ;;EOR^
130 ;;KEY^863.4:^FILLER
131 ;;R^"863.4:",.01,"E"
132 ;;D^FILLER
133 ;;R^"863.4:","863.41:1",.01,"E"
134 ;;D^DATA TYPE
135 ;;R^"863.4:","863.41:1",1,"E"
136 ;;D^FREE TEXT
137 ;;EOR^
138 ;;KEY^863.4:^HL7 FILLER
139 ;;R^"863.4:",.01,"E"
140 ;;D^HL7 FILLER
141 ;;R^"863.4:",.02,"E"
142 ;;D^HL7FILLR
143 ;;R^"863.4:","863.41:1",.01,"E"
144 ;;D^DATA TYPE
145 ;;R^"863.4:","863.41:1",1,"E"
146 ;;D^FREE TEXT
147 ;;EOR^
148 ;;KEY^863.4:^IEN
149 ;;R^"863.4:",.01,"E"
150 ;;D^IEN
151 ;;R^"863.4:","863.41:1",.01,"E"
152 ;;D^DATA TYPE
153 ;;R^"863.4:","863.41:1",1,"E"
154 ;;D^NUMERIC
155 ;;EOR^
156 ;;KEY^863.4:^ORDER MODE
157 ;;R^"863.4:",.01,"E"
158 ;;D^ORDER MODE
159 ;;R^"863.4:","863.41:1",.01,"E"
160 ;;D^DATA TYPE
161 ;;R^"863.4:","863.41:1",1,"E"
162 ;;D^FREE TEXT
163 ;;EOR^
164 ;;KEY^863.4:^ORDER PATIENT
165 ;;R^"863.4:",.01,"E"
166 ;;D^ORDER PATIENT
167 ;;R^"863.4:","863.41:1",.01,"E"
168 ;;D^DATA TYPE
169 ;;R^"863.4:","863.41:1",1,"E"
170 ;;D^NUMERIC
171 ;;EOR^
172 ;;EOF^OCXS(863.4)^1
173 ;;SOF^863.2 OCX MDD SUBJECT
174 ;;KEY^863.2:^PATIENT
175 ;;R^"863.2:",.01,"E"
176 ;;D^PATIENT
177 ;;R^"863.2:","863.21:1",.01,"E"
178 ;;D^FILE
179 ;;R^"863.2:","863.21:1",1,"E"
180 ;;D^2
181 ;;EOR^
182 ;;EOF^OCXS(863.2)^1
183 ;;SOF^863.3 OCX MDD LINK
184 ;;KEY^863.3:^PATIENT.CLOZAPINE MED
185 ;;R^"863.3:",.01,"E"
186 ;;D^PATIENT.CLOZAPINE MED
187 ;;R^"863.3:",.02,"E"
188 ;;D^PATIENT
189 ;;R^"863.3:",.05,"E"
190 ;;D^CLOZAPINE MED
191 ;;R^"863.3:",.06,"E"
192 ;;D^3555
193 ;;R^"863.3:","863.32:1",.01,"E"
194 ;;D^OCXO EXTERNAL FUNCTION CALL
195 ;;R^"863.3:","863.32:1",1,"E"
196 ;;D^CLOZLABS^ORKLR(|PATIENT IEN|,7,|DISP DRUG IEN|)
197 ;;R^"863.3:","863.32:2",.01,"E"
198 ;;D^OCXO UP-ARROW PIECE NUMBER
199 ;;R^"863.3:","863.32:2",1,"E"
200 ;;D^1
201 ;;EOR^
202 ;;KEY^863.3:^PATIENT.CLOZ_ANC_W/IN_7_FLAG
203 ;;R^"863.3:",.01,"E"
204 ;;D^PATIENT.CLOZ_ANC_W/IN_7_FLAG
205 ;;R^"863.3:",.02,"E"
206 ;;D^PATIENT
207 ;;R^"863.3:",.05,"E"
208 ;;D^CLOZAPINE ANC W/IN 7 FLAG
209 ;;R^"863.3:","863.32:1",.01,"E"
210 ;;D^OCXO EXTERNAL FUNCTION CALL
211 ;;R^"863.3:","863.32:1",1,"E"
212 ;;D^CLOZLABS^ORKLR(|PATIENT IEN|,7,|DISP DRUG IEN|)
213 ;;R^"863.3:","863.32:2",.01,"E"
214 ;;D^OCXO UP-ARROW PIECE NUMBER
215 ;;R^"863.3:","863.32:2",1,"E"
216 ;;D^3
217 ;;R^"863.3:","863.32:3",.01,"E"
218 ;;D^OCXO SEMI-COLON PIECE NUMBER
219 ;;R^"863.3:","863.32:3",1,"E"
220 ;;D^1
221 ;;EOR^
222 ;;KEY^863.3:^PATIENT.CLOZ_ANC_W/IN_7_RSLT
223 ;;R^"863.3:",.01,"E"
224 ;;D^PATIENT.CLOZ_ANC_W/IN_7_RSLT
225 ;;R^"863.3:",.02,"E"
226 ;;D^PATIENT
227 ;;R^"863.3:",.05,"E"
228 ;;D^CLOZAPINE ANC W/IN 7 RESULT
229 ;;R^"863.3:","863.32:1",.01,"E"
230 ;;D^OCXO EXTERNAL FUNCTION CALL
231 ;;R^"863.3:","863.32:1",1,"E"
232 ;;D^CLOZLABS^ORKLR(|PATIENT IEN|,7,|DISP DRUG IEN|)
233 ;;R^"863.3:","863.32:2",.01,"E"
234 ;;D^OCXO UP-ARROW PIECE NUMBER
235 ;;R^"863.3:","863.32:2",1,"E"
236 ;;D^3
237 ;;R^"863.3:","863.32:3",.01,"E"
238 ;;D^OCXO SEMI-COLON PIECE NUMBER
239 ;;R^"863.3:","863.32:3",1,"E"
240 ;;D^2
241 ;;EOR^
242 ;;KEY^863.3:^PATIENT.CLOZ_LAB_RESULTS
243 ;;R^"863.3:",.01,"E"
244 ;;D^PATIENT.CLOZ_LAB_RESULTS
245 ;;R^"863.3:",.02,"E"
246 ;;D^PATIENT
247 ;;R^"863.3:",.05,"E"
248 ;;D^CLOZAPINE LAB RESULTS
249 ;;R^"863.3:","863.32:1",.01,"E"
250 ;;D^OCXO EXTERNAL FUNCTION CALL
251 ;;R^"863.3:","863.32:1",1,"E"
252 ;;D^CLOZLABS^ORKLR(|PATIENT IEN|,"",|DISP DRUG IEN|)
253 ;;R^"863.3:","863.32:2",.01,"E"
254 ;;D^OCXO UP-ARROW PIECE NUMBER
255 ;;R^"863.3:","863.32:2",1,"E"
256 ;;D^4
257 ;;EOR^
258 ;;KEY^863.3:^PATIENT.CLOZ_WBC_W/IN_7_FLAG
259 ;;R^"863.3:",.01,"E"
260 ;;D^PATIENT.CLOZ_WBC_W/IN_7_FLAG
261 ;;R^"863.3:",.02,"E"
262 ;;D^PATIENT
263 ;;R^"863.3:",.05,"E"
264 ;;D^CLOZAPINE WBC W/IN 7 FLAG
265 ;;R^"863.3:",.06,"E"
266 ;;D^999
267 ;;R^"863.3:","863.32:1",.01,"E"
268 ;;D^OCXO EXTERNAL FUNCTION CALL
269 ;;R^"863.3:","863.32:1",1,"E"
270 ;;D^CLOZLABS^ORKLR(|PATIENT IEN|,7,|DISP DRUG IEN|)
271 ;;R^"863.3:","863.32:2",.01,"E"
272 ;;D^OCXO UP-ARROW PIECE NUMBER
273 ;;R^"863.3:","863.32:2",1,"E"
274 ;;D^2
275 ;;R^"863.3:","863.32:3",.01,"E"
276 ;;D^OCXO SEMI-COLON PIECE NUMBER
277 ;;R^"863.3:","863.32:3",1,"E"
278 ;;D^1
279 ;;EOR^
280 ;;KEY^863.3:^PATIENT.CLOZ_WBC_W/IN_7_RSLT
281 ;;R^"863.3:",.01,"E"
282 ;;D^PATIENT.CLOZ_WBC_W/IN_7_RSLT
283 ;;R^"863.3:",.02,"E"
284 ;;D^PATIENT
285 ;;R^"863.3:",.05,"E"
286 ;;D^CLOZAPINE WBC W/IN 7 RESULT
287 ;;R^"863.3:","863.32:1",.01,"E"
288 ;;D^OCXO EXTERNAL FUNCTION CALL
289 ;;R^"863.3:","863.32:1",1,"E"
290 ;;D^CLOZLABS^ORKLR(|PATIENT IEN|,7,|DISP DRUG IEN|)
291 ;;R^"863.3:","863.32:2",.01,"E"
292 ;;D^OCXO UP-ARROW PIECE NUMBER
293 ;;R^"863.3:","863.32:2",1,"E"
294 ;;D^2
295 ;;R^"863.3:","863.32:3",.01,"E"
296 ;;D^OCXO SEMI-COLON PIECE NUMBER
297 ;;R^"863.3:","863.32:3",1,"E"
298 ;;D^2
299 ;;EOR^
300 ;;KEY^863.3:^PATIENT.HL7_FILLER
301 ;;R^"863.3:",.01,"E"
302 ;;D^PATIENT.HL7_FILLER
303 ;;R^"863.3:",.02,"E"
304 ;;D^PATIENT
305 ;;R^"863.3:",.04,"E"
306 ;;D^HL7
307 ;;R^"863.3:",.05,"E"
308 ;;D^HL7 FILLER
309 ;;R^"863.3:","863.32:1",.01,"E"
310 ;;D^OCXO VT-BAR PIECE NUMBER
311 ;;R^"863.3:","863.32:2",.01,"E"
312 ;;D^OCXO UP-ARROW PIECE NUMBER
313 ;;R^"863.3:","863.32:2",1,"E"
314 ;;D^2
315 ;;R^"863.3:","863.32:3",.01,"E"
316 ;;D^OCXO VARIABLE NAME
317 ;1;
318 ;
Note: See TracBrowser for help on using the repository browser.