Produced by Araxis Merge on 8/3/2017 10:10:45 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | V31A.zip\V31A\434 | CPRSV31A_COMBINED_BUILD_V114.KID | Thu Aug 3 12:23:34 2017 UTC |
2 | V31A.zip\V31A\434 | CPRSV31A_COMBINED_BUILD_V114.KID | Thu Aug 3 14:39:10 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 22088 |
Changed | 2 | 4 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | KIDS Distr ibution sa ved on Jun 29, 2017@ 09:18:38 | |
2 | CPRS31A_V1 14 COMBINE D KIDS BUI LD | |
3 | **KIDS**:C PRS V31A C OMBINED BU ILD 1.0^OR *3.0*434^G MRV*5.0*34 ^YS*5.01*1 28^ | |
4 | ||
5 | **INSTALL NAME** | |
6 | CPRS V31A COMBINED B UILD 1.0 | |
7 | "BLD",9674 ,0) | |
8 | CPRS V31A COMBINED B UILD 1.0^^ 1^3170629^ y | |
9 | "BLD",9674 ,6.3) | |
10 | 23 | |
11 | "BLD",9674 ,10,0) | |
12 | ^9.63^3^3 | |
13 | "BLD",9674 ,10,1,0) | |
14 | OR*3.0*434 ^1 | |
15 | "BLD",9674 ,10,2,0) | |
16 | GMRV*5.0*3 4^1 | |
17 | "BLD",9674 ,10,3,0) | |
18 | YS*5.01*12 8^1 | |
19 | "BLD",9674 ,10,"B","G MRV*5.0*34 ",2) | |
20 | ||
21 | "BLD",9674 ,10,"B","O R*3.0*434" ,1) | |
22 | ||
23 | "BLD",9674 ,10,"B","Y S*5.01*128 ",3) | |
24 | ||
25 | "BLD",9674 ,"KRN",0) | |
26 | ^9.67PA^77 9.2^20 | |
27 | "BLD",9674 ,"KRN",.4, 0) | |
28 | .4 | |
29 | "BLD",9674 ,"KRN",.40 1,0) | |
30 | .401 | |
31 | "BLD",9674 ,"KRN",.40 2,0) | |
32 | .402 | |
33 | "BLD",9674 ,"KRN",.40 3,0) | |
34 | .403 | |
35 | "BLD",9674 ,"KRN",.5, 0) | |
36 | .5 | |
37 | "BLD",9674 ,"KRN",.84 ,0) | |
38 | .84 | |
39 | "BLD",9674 ,"KRN",3.6 ,0) | |
40 | 3.6 | |
41 | "BLD",9674 ,"KRN",3.8 ,0) | |
42 | 3.8 | |
43 | "BLD",9674 ,"KRN",9.2 ,0) | |
44 | 9.2 | |
45 | "BLD",9674 ,"KRN",9.8 ,0) | |
46 | 9.8 | |
47 | "BLD",9674 ,"KRN",19, 0) | |
48 | 19 | |
49 | "BLD",9674 ,"KRN",19. 1,0) | |
50 | 19.1 | |
51 | "BLD",9674 ,"KRN",101 ,0) | |
52 | 101 | |
53 | "BLD",9674 ,"KRN",409 .61,0) | |
54 | 409.61 | |
55 | "BLD",9674 ,"KRN",771 ,0) | |
56 | 771 | |
57 | "BLD",9674 ,"KRN",779 .2,0) | |
58 | 779.2 | |
59 | "BLD",9674 ,"KRN",870 ,0) | |
60 | 870 | |
61 | "BLD",9674 ,"KRN",898 9.51,0) | |
62 | 8989.51 | |
63 | "BLD",9674 ,"KRN",898 9.52,0) | |
64 | 8989.52 | |
65 | "BLD",9674 ,"KRN",899 4,0) | |
66 | 8994 | |
67 | "BLD",9674 ,"KRN","B" ,.4,.4) | |
68 | ||
69 | "BLD",9674 ,"KRN","B" ,.401,.401 ) | |
70 | ||
71 | "BLD",9674 ,"KRN","B" ,.402,.402 ) | |
72 | ||
73 | "BLD",9674 ,"KRN","B" ,.403,.403 ) | |
74 | ||
75 | "BLD",9674 ,"KRN","B" ,.5,.5) | |
76 | ||
77 | "BLD",9674 ,"KRN","B" ,.84,.84) | |
78 | ||
79 | "BLD",9674 ,"KRN","B" ,3.6,3.6) | |
80 | ||
81 | "BLD",9674 ,"KRN","B" ,3.8,3.8) | |
82 | ||
83 | "BLD",9674 ,"KRN","B" ,9.2,9.2) | |
84 | ||
85 | "BLD",9674 ,"KRN","B" ,9.8,9.8) | |
86 | ||
87 | "BLD",9674 ,"KRN","B" ,19,19) | |
88 | ||
89 | "BLD",9674 ,"KRN","B" ,19.1,19.1 ) | |
90 | ||
91 | "BLD",9674 ,"KRN","B" ,101,101) | |
92 | ||
93 | "BLD",9674 ,"KRN","B" ,409.61,40 9.61) | |
94 | ||
95 | "BLD",9674 ,"KRN","B" ,771,771) | |
96 | ||
97 | "BLD",9674 ,"KRN","B" ,779.2,779 .2) | |
98 | ||
99 | "BLD",9674 ,"KRN","B" ,870,870) | |
100 | ||
101 | "BLD",9674 ,"KRN","B" ,8989.51,8 989.51) | |
102 | ||
103 | "BLD",9674 ,"KRN","B" ,8989.52,8 989.52) | |
104 | ||
105 | "BLD",9674 ,"KRN","B" ,8994,8994 ) | |
106 | ||
107 | "MBREQ") | |
108 | 0 | |
109 | "QUES","XP F1",0) | |
110 | Y | |
111 | "QUES","XP F1","??") | |
112 | ^D REP^XPD H | |
113 | "QUES","XP F1","A") | |
114 | Shall I wr ite over y our |FLAG| File | |
115 | "QUES","XP F1","B") | |
116 | YES | |
117 | "QUES","XP F1","M") | |
118 | D XPF1^XPD IQ | |
119 | "QUES","XP F2",0) | |
120 | Y | |
121 | "QUES","XP F2","??") | |
122 | ^D DTA^XPD H | |
123 | "QUES","XP F2","A") | |
124 | Want my da ta |FLAG| yours | |
125 | "QUES","XP F2","B") | |
126 | YES | |
127 | "QUES","XP F2","M") | |
128 | D XPF2^XPD IQ | |
129 | "QUES","XP I1",0) | |
130 | YO | |
131 | "QUES","XP I1","??") | |
132 | ^D INHIBIT ^XPDH | |
133 | "QUES","XP I1","A") | |
134 | Want KIDS to INHIBIT LOGONs du ring the i nstall | |
135 | "QUES","XP I1","B") | |
136 | NO | |
137 | "QUES","XP I1","M") | |
138 | D XPI1^XPD IQ | |
139 | "QUES","XP M1",0) | |
140 | PO^VA(200, :EM | |
141 | "QUES","XP M1","??") | |
142 | ^D MG^XPDH | |
143 | "QUES","XP M1","A") | |
144 | Enter the Coordinato r for Mail Group '|F LAG|' | |
145 | "QUES","XP M1","B") | |
146 | ||
147 | "QUES","XP M1","M") | |
148 | D XPM1^XPD IQ | |
149 | "QUES","XP O1",0) | |
150 | Y | |
151 | "QUES","XP O1","??") | |
152 | ^D MENU^XP DH | |
153 | "QUES","XP O1","A") | |
154 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install | |
155 | "QUES","XP O1","B") | |
156 | NO | |
157 | "QUES","XP O1","M") | |
158 | D XPO1^XPD IQ | |
159 | "QUES","XP Z1",0) | |
160 | Y | |
161 | "QUES","XP Z1","??") | |
162 | ^D OPT^XPD H | |
163 | "QUES","XP Z1","A") | |
164 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls | |
165 | "QUES","XP Z1","B") | |
166 | NO | |
167 | "QUES","XP Z1","M") | |
168 | D XPZ1^XPD IQ | |
169 | "QUES","XP Z2",0) | |
170 | Y | |
171 | "QUES","XP Z2","??") | |
172 | ^D RTN^XPD H | |
173 | "QUES","XP Z2","A") | |
174 | Want to MO VE routine s to other CPUs | |
175 | "QUES","XP Z2","B") | |
176 | NO | |
177 | "QUES","XP Z2","M") | |
178 | D XPZ2^XPD IQ | |
179 | "VER") | |
180 | 8.0^22.2 | |
181 | **INSTALL NAME** | |
182 | OR*3.0*434 | |
183 | "BLD",9670 ,0) | |
184 | OR*3.0*434 ^ORDER ENT RY/RESULTS REPORTING ^0^3170629 ^y | |
185 | "BLD",9670 ,4,0) | |
186 | ^9.64PA^10 0^4 | |
187 | "BLD",9670 ,4,100,0) | |
188 | 100 | |
189 | "BLD",9670 ,4,100,2,0 ) | |
190 | ^9.641^100 .008^1 | |
191 | "BLD",9670 ,4,100,2,1 00.008,0) | |
192 | ORDER ACTI ONS (sub- file) | |
193 | "BLD",9670 ,4,100,2,1 00.008,1,0 ) | |
194 | ^9.6411^41 ^2 | |
195 | "BLD",9670 ,4,100,2,1 00.008,1,4 0,0) | |
196 | DISPOSITIO N BY | |
197 | "BLD",9670 ,4,100,2,1 00.008,1,4 1,0) | |
198 | DISPOSITIO N DATE/TIM E | |
199 | "BLD",9670 ,4,100,222 ) | |
200 | y^^p^^^^n^ ^n | |
201 | "BLD",9670 ,4,100,224 ) | |
202 | ||
203 | "BLD",9670 ,4,100.9,0 ) | |
204 | 100.9 | |
205 | "BLD",9670 ,4,100.9,2 22) | |
206 | n^n^f^^y^^ y^o^n | |
207 | "BLD",9670 ,4,100.9,2 23) | |
208 | ||
209 | "BLD",9670 ,4,100.9,2 24) | |
210 | I +Y=91 | |
211 | "BLD",9670 ,4,100.98, 0) | |
212 | 100.98 | |
213 | "BLD",9670 ,4,100.98, 222) | |
214 | n^n^f^^y^^ y^r^n | |
215 | "BLD",9670 ,4,100.98, 224) | |
216 | I $P(^(0), U)="CLINIC SCHEDULIN G" | |
217 | "BLD",9670 ,4,101.41, 0) | |
218 | 101.41 | |
219 | "BLD",9670 ,4,101.41, 222) | |
220 | n^n^f^^y^^ y^o^n | |
221 | "BLD",9670 ,4,101.41, 224) | |
222 | I $$SENDDL G^ORY434($ P(^(0),U)) | |
223 | "BLD",9670 ,4,"APDD", 100,100.00 8) | |
224 | ||
225 | "BLD",9670 ,4,"APDD", 100,100.00 8,40) | |
226 | ||
227 | "BLD",9670 ,4,"APDD", 100,100.00 8,41) | |
228 | ||
229 | "BLD",9670 ,4,"B",100 ,100) | |
230 | ||
231 | "BLD",9670 ,4,"B",100 .9,100.9) | |
232 | ||
233 | "BLD",9670 ,4,"B",100 .98,100.98 ) | |
234 | ||
235 | "BLD",9670 ,4,"B",101 .41,101.41 ) | |
236 | ||
237 | "BLD",9670 ,6.3) | |
238 | 31 | |
239 | "BLD",9670 ,"ABPKG") | |
240 | n | |
241 | "BLD",9670 ,"INID") | |
242 | n | |
243 | "BLD",9670 ,"INIT") | |
244 | POST^ORY43 4 | |
245 | "BLD",9670 ,"KRN",0) | |
246 | ^9.67PA^77 9.2^20 | |
247 | "BLD",9670 ,"KRN",.4, 0) | |
248 | .4 | |
249 | "BLD",9670 ,"KRN",.4, "NM",0) | |
250 | ^9.68A^^ | |
251 | "BLD",9670 ,"KRN",.40 1,0) | |
252 | .401 | |
253 | "BLD",9670 ,"KRN",.40 2,0) | |
254 | .402 | |
255 | "BLD",9670 ,"KRN",.40 3,0) | |
256 | .403 | |
257 | "BLD",9670 ,"KRN",.5, 0) | |
258 | .5 | |
259 | "BLD",9670 ,"KRN",.84 ,0) | |
260 | .84 | |
261 | "BLD",9670 ,"KRN",3.6 ,0) | |
262 | 3.6 | |
263 | "BLD",9670 ,"KRN",3.8 ,0) | |
264 | 3.8 | |
265 | "BLD",9670 ,"KRN",9.2 ,0) | |
266 | 9.2 | |
267 | "BLD",9670 ,"KRN",9.8 ,0) | |
268 | 9.8 | |
269 | "BLD",9670 ,"KRN",9.8 ,"NM",0) | |
270 | ^9.68A^16^ 15 | |
271 | "BLD",9670 ,"KRN",9.8 ,"NM",1,0) | |
272 | ORUTL4^^0^ B10504145 | |
273 | "BLD",9670 ,"KRN",9.8 ,"NM",2,0) | |
274 | ORWCIRN^^0 ^B11495848 | |
275 | "BLD",9670 ,"KRN",9.8 ,"NM",3,0) | |
276 | ORWDSD1^^0 ^B8304455 | |
277 | "BLD",9670 ,"KRN",9.8 ,"NM",4,0) | |
278 | ORCDSD^^0^ B4634075 | |
279 | "BLD",9670 ,"KRN",9.8 ,"NM",5,0) | |
280 | ORWDXM4^^0 ^B43793101 | |
281 | "BLD",9670 ,"KRN",9.8 ,"NM",7,0) | |
282 | ORMBLD^^0^ B46482441 | |
283 | "BLD",9670 ,"KRN",9.8 ,"NM",8,0) | |
284 | ORMBLDSD^^ 0^B1483986 5 | |
285 | "BLD",9670 ,"KRN",9.8 ,"NM",9,0) | |
286 | ORM^^0^B18 341854 | |
287 | "BLD",9670 ,"KRN",9.8 ,"NM",10,0 ) | |
288 | ORB3FUP2^^ 0^B6992458 1 | |
289 | "BLD",9670 ,"KRN",9.8 ,"NM",11,0 ) | |
290 | ORMSD^^0^B 97189040 | |
291 | "BLD",9670 ,"KRN",9.8 ,"NM",12,0 ) | |
292 | ORWDXM1^^0 ^B11114424 9 | |
293 | "BLD",9670 ,"KRN",9.8 ,"NM",13,0 ) | |
294 | ORCACT0^^0 ^B67480788 | |
295 | "BLD",9670 ,"KRN",9.8 ,"NM",14,0 ) | |
296 | ORWDXM3^^0 ^B11836196 0 | |
297 | "BLD",9670 ,"KRN",9.8 ,"NM",15,0 ) | |
298 | ORQ20^^0^B 51272743 | |
299 | "BLD",9670 ,"KRN",9.8 ,"NM",16,0 ) | |
300 | ORWDXA^^0^ B119097370 | |
301 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORB3FUP2" ,10) | |
302 | ||
303 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORCACT0", 13) | |
304 | ||
305 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORCDSD",4 ) | |
306 | ||
307 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORM",9) | |
308 | ||
309 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORMBLD",7 ) | |
310 | ||
311 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORMBLDSD" ,8) | |
312 | ||
313 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORMSD",11 ) | |
314 | ||
315 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORQ20",15 ) | |
316 | ||
317 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORUTL4",1 ) | |
318 | ||
319 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORWCIRN", 2) | |
320 | ||
321 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORWDSD1", 3) | |
322 | ||
323 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORWDXA",1 6) | |
324 | ||
325 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORWDXM1", 12) | |
326 | ||
327 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORWDXM3", 14) | |
328 | ||
329 | "BLD",9670 ,"KRN",9.8 ,"NM","B", "ORWDXM4", 5) | |
330 | ||
331 | "BLD",9670 ,"KRN",19, 0) | |
332 | 19 | |
333 | "BLD",9670 ,"KRN",19, "NM",0) | |
334 | ^9.68A^1^1 | |
335 | "BLD",9670 ,"KRN",19, "NM",1,0) | |
336 | OR CPRS GU I CHART^^0 | |
337 | "BLD",9670 ,"KRN",19, "NM","B"," OR CPRS GU I CHART",1 ) | |
338 | ||
339 | "BLD",9670 ,"KRN",19. 1,0) | |
340 | 19.1 | |
341 | "BLD",9670 ,"KRN",101 ,0) | |
342 | 101 | |
343 | "BLD",9670 ,"KRN",101 ,"NM",0) | |
344 | ^9.68A^2^2 | |
345 | "BLD",9670 ,"KRN",101 ,"NM",1,0) | |
346 | OR EVSEND SD^^0 | |
347 | "BLD",9670 ,"KRN",101 ,"NM",2,0) | |
348 | OCX ORDER CHECK HL7 RECIEVE^^4 ^ | |
349 | "BLD",9670 ,"KRN",101 ,"NM","B", "OCX ORDER CHECK HL7 RECIEVE", 2) | |
350 | ||
351 | "BLD",9670 ,"KRN",101 ,"NM","B", "OR EVSEND SD",1) | |
352 | ||
353 | "BLD",9670 ,"KRN",409 .61,0) | |
354 | 409.61 | |
355 | "BLD",9670 ,"KRN",771 ,0) | |
356 | 771 | |
357 | "BLD",9670 ,"KRN",779 .2,0) | |
358 | 779.2 | |
359 | "BLD",9670 ,"KRN",870 ,0) | |
360 | 870 | |
361 | "BLD",9670 ,"KRN",898 9.51,0) | |
362 | 8989.51 | |
363 | "BLD",9670 ,"KRN",898 9.51,"NM", 0) | |
364 | ^9.68A^4^4 | |
365 | "BLD",9670 ,"KRN",898 9.51,"NM", 1,0) | |
366 | ORWRP LEGA CY VIEWER LABEL^^0 | |
367 | "BLD",9670 ,"KRN",898 9.51,"NM", 2,0) | |
368 | OR MOB DLL NAME^^0 | |
369 | "BLD",9670 ,"KRN",898 9.51,"NM", 3,0) | |
370 | OR SD ADDI TIONAL INF ORMATION | |
371 | "BLD",9670 ,"KRN",898 9.51,"NM", 4,0) | |
372 | OR SD DIAL OG PREREQ | |
373 | "BLD",9670 ,"KRN",898 9.51,"NM", "B","OR MO B DLL NAME ",2) | |
374 | ||
375 | "BLD",9670 ,"KRN",898 9.51,"NM", "B","OR SD ADDITIONA L INFORMAT ION",3) | |
376 | ||
377 | "BLD",9670 ,"KRN",898 9.51,"NM", "B","OR SD DIALOG PR EREQ",4) | |
378 | ||
379 | "BLD",9670 ,"KRN",898 9.51,"NM", "B","ORWRP LEGACY VI EWER LABEL ",1) | |
380 | ||
381 | "BLD",9670 ,"KRN",898 9.52,0) | |
382 | 8989.52 | |
383 | "BLD",9670 ,"KRN",898 9.52,"NM", 0) | |
384 | ^9.68A^^ | |
385 | "BLD",9670 ,"KRN",899 4,0) | |
386 | 8994 | |
387 | "BLD",9670 ,"KRN",899 4,"NM",0) | |
388 | ^9.68A^2^2 | |
389 | "BLD",9670 ,"KRN",899 4,"NM",1,0 ) | |
390 | ORWCIRN JL V LABEL^^0 | |
391 | "BLD",9670 ,"KRN",899 4,"NM",2,0 ) | |
392 | ORWDSD1 OD SLCT^^0 | |
393 | "BLD",9670 ,"KRN",899 4,"NM","B" ,"ORWCIRN JLV LABEL" ,1) | |
394 | ||
395 | "BLD",9670 ,"KRN",899 4,"NM","B" ,"ORWDSD1 ODSLCT",2) | |
396 | ||
397 | "BLD",9670 ,"KRN","B" ,.4,.4) | |
398 | ||
399 | "BLD",9670 ,"KRN","B" ,.401,.401 ) | |
400 | ||
401 | "BLD",9670 ,"KRN","B" ,.402,.402 ) | |
402 | ||
403 | "BLD",9670 ,"KRN","B" ,.403,.403 ) | |
404 | ||
405 | "BLD",9670 ,"KRN","B" ,.5,.5) | |
406 | ||
407 | "BLD",9670 ,"KRN","B" ,.84,.84) | |
408 | ||
409 | "BLD",9670 ,"KRN","B" ,3.6,3.6) | |
410 | ||
411 | "BLD",9670 ,"KRN","B" ,3.8,3.8) | |
412 | ||
413 | "BLD",9670 ,"KRN","B" ,9.2,9.2) | |
414 | ||
415 | "BLD",9670 ,"KRN","B" ,9.8,9.8) | |
416 | ||
417 | "BLD",9670 ,"KRN","B" ,19,19) | |
418 | ||
419 | "BLD",9670 ,"KRN","B" ,19.1,19.1 ) | |
420 | ||
421 | "BLD",9670 ,"KRN","B" ,101,101) | |
422 | ||
423 | "BLD",9670 ,"KRN","B" ,409.61,40 9.61) | |
424 | ||
425 | "BLD",9670 ,"KRN","B" ,771,771) | |
426 | ||
427 | "BLD",9670 ,"KRN","B" ,779.2,779 .2) | |
428 | ||
429 | "BLD",9670 ,"KRN","B" ,870,870) | |
430 | ||
431 | "BLD",9670 ,"KRN","B" ,8989.51,8 989.51) | |
432 | ||
433 | "BLD",9670 ,"KRN","B" ,8989.52,8 989.52) | |
434 | ||
435 | "BLD",9670 ,"KRN","B" ,8994,8994 ) | |
436 | ||
437 | "BLD",9670 ,"PRE") | |
438 | ORY434 | |
439 | "BLD",9670 ,"PRET") | |
440 | ||
441 | "BLD",9670 ,"QUES",0) | |
442 | ^9.62^^ | |
443 | "BLD",9670 ,"REQB",0) | |
444 | ^9.611^8^7 | |
445 | "BLD",9670 ,"REQB",1, 0) | |
446 | OR*3.0*423 ^2 | |
447 | "BLD",9670 ,"REQB",2, 0) | |
448 | XWB*1.1*64 ^2 | |
449 | "BLD",9670 ,"REQB",3, 0) | |
450 | XU*8.0*659 ^2 | |
451 | "BLD",9670 ,"REQB",5, 0) | |
452 | OR*3.0*424 ^2 | |
453 | "BLD",9670 ,"REQB",6, 0) | |
454 | OR*3.0*425 ^2 | |
455 | "BLD",9670 ,"REQB",7, 0) | |
456 | OR*3.0*421 ^2 | |
457 | "BLD",9670 ,"REQB",8, 0) | |
458 | OR*3.0*436 ^2 | |
459 | "BLD",9670 ,"REQB","B ","OR*3.0* 421",7) | |
460 | ||
461 | "BLD",9670 ,"REQB","B ","OR*3.0* 423",1) | |
462 | ||
463 | "BLD",9670 ,"REQB","B ","OR*3.0* 424",5) | |
464 | ||
465 | "BLD",9670 ,"REQB","B ","OR*3.0* 425",6) | |
466 | ||
467 | "BLD",9670 ,"REQB","B ","OR*3.0* 436",8) | |
468 | ||
469 | "BLD",9670 ,"REQB","B ","XU*8.0* 659",3) | |
470 | ||
471 | "BLD",9670 ,"REQB","B ","XWB*1.1 *64",2) | |
472 | ||
473 | "DATA",100 .9,91,0) | |
474 | APPOINTMEN T REQUEST CANCELLED^ OR^Appoint ment Reque st Cancell ed in Sche duling^PKG ^R^RTC^ORB 3FUP2 | |
475 | "DATA",100 .9,91,1) | |
476 | ^OR | |
477 | "DATA",100 .9,91,3) | |
478 | ^4 | |
479 | "DATA",100 .9,91,4) | |
480 | The purpos e of this notificati on to advi se the pro vider reci pients whe n an appoi ntment req uest is ca ncelled by the sched uling pack age. | |
481 | "DATA",100 .9,91,5,0) | |
482 | ^100.92S^2 ^2 | |
483 | "DATA",100 .9,91,5,1, 0) | |
484 | CD | |
485 | "DATA",100 .9,91,5,2, 0) | |
486 | ONPP | |
487 | "DATA",100 .98,280,0) | |
488 | CLINIC SCH EDULING^Cl inic Sched uling^CSDA M^391 | |
489 | "DATA",101 .41,391,0) | |
490 | SD RTC^Ret urn To Cli nic^^D^280 ^1^16^1^0 | |
491 | "DATA",101 .41,391,4) | |
492 | K ORSDTISE ,ORLEAD,OR TRAIL | |
493 | "DATA",101 .41,391,5) | |
494 | ^^^^175 | |
495 | "DATA",101 .41,391,10 ,0) | |
496 | ^101.412IA ^10^7 | |
497 | "DATA",101 .41,391,10 ,1,0) | |
498 | 1^183^^Cli nic Locati on: ^^1^0 | |
499 | "DATA",101 .41,391,10 ,1,.1) | |
500 | ||
501 | "DATA",101 .41,391,10 ,1,2) | |
502 | 5^^^Return to | |
503 | "DATA",101 .41,391,10 ,1,4) | |
504 | I $$VALCLI NC^ORCDSD( Y) | |
505 | "DATA",101 .41,391,10 ,3,0) | |
506 | 10^15820^^ Return to clinic dat e: ^^1 | |
507 | "DATA",101 .41,391,10 ,3,2) | |
508 | 15^^^@ORLE AD^@ORTRAI L | |
509 | "DATA",101 .41,391,10 ,3,5) | |
510 | Q:$G(ORTYP E)'="Z" I $G(ORDIAL OG(PROMPT, INST))'["T " K DONE W $C(7),!," Response m ust be rel ative date (e.g. TOD AY, T+7D, T+3M)" | |
511 | "DATA",101 .41,391,10 ,3,10) | |
512 | S ORLEAD=" on or arou nd (",ORTR AIL=")" S: $G(ORSDTIS E)="1" ORL EAD="on or before ", ORTRAIL="" | |
513 | "DATA",101 .41,391,10 ,4,0) | |
514 | 20^396^^Nu mber of Ap pointments : ^^1 | |
515 | "DATA",101 .41,391,10 ,4,2) | |
516 | 20^^^for a total of ^appointme nt(s)^1 | |
517 | "DATA",101 .41,391,10 ,4,5) | |
518 | ||
519 | "DATA",101 .41,391,10 ,4,7) | |
520 | S Y=1 | |
521 | "DATA",101 .41,391,10 ,4,10) | |
522 | I +$G(ORDI ALOG(PROMP T,INST))=1 S ORDIALO G($$PTR^OR CD("OR GTX SCH INTER VAL"),INST )="" | |
523 | "DATA",101 .41,391,10 ,5,0) | |
524 | 20.5^395^^ Interval: | |
525 | "DATA",101 .41,391,10 ,5,.1) | |
526 | ||
527 | "DATA",101 .41,391,10 ,5,1) | |
528 | Select an interval b etween 1 a nd 30 | |
529 | "DATA",101 .41,391,10 ,5,2) | |
530 | 30^^^with a frequenc y of every ^day(s) | |
531 | "DATA",101 .41,391,10 ,5,3) | |
532 | I +$$VAL^O RCD("NUMBE R OF APPOI NTMENTS")> 1 | |
533 | "DATA",101 .41,391,10 ,5,6) | |
534 | ||
535 | "DATA",101 .41,391,10 ,6,0) | |
536 | 30^397^^Pr erequisiti es: ^^0^1^ ^^^^99 | |
537 | "DATA",101 .41,391,10 ,6,.1) | |
538 | D PREREQV^ ORCDSD | |
539 | "DATA",101 .41,391,10 ,6,2) | |
540 | 35^^^Prere quisites:^ ^1 | |
541 | "DATA",101 .41,391,10 ,6,3) | |
542 | I $$PREREQ N^ORCDSD() >0 | |
543 | "DATA",101 .41,391,10 ,6,6) | |
544 | D PREREQH^ ORCDSD | |
545 | "DATA",101 .41,391,10 ,7,0) | |
546 | 40^16266^^ Comments: | |
547 | "DATA",101 .41,391,10 ,7,2) | |
548 | 45^^^^^1 | |
549 | "DATA",101 .41,391,10 ,10,0) | |
550 | 8^177^^Tim e sensitiv e: ^^0^0^^ ^^ | |
551 | "DATA",101 .41,391,10 ,10,1) | |
552 | Select Yes if this o rder is a time sensi tive order . | |
553 | "DATA",101 .41,391,10 ,10,2) | |
554 | ^^^ | |
555 | "DATA",101 .41,391,10 ,10,10) | |
556 | S ORSDTISE =$G(ORDIAL OG(PROMPT, INST)) | |
557 | "DATA",101 .41,391,99 ) | |
558 | 64461,6893 7 | |
559 | "DATA",101 .41,395,0) | |
560 | OR GTX SCH INTERVAL^ Interval^^ P | |
561 | "DATA",101 .41,395,1) | |
562 | N^0:30^SDI NT | |
563 | "DATA",101 .41,395,2, 0) | |
564 | ^101.411^2 ^2^3170508 ^^ | |
565 | "DATA",101 .41,395,2, 1,0) | |
566 | This provi de the use r to deter mine the f requency a patient s hould be s ee | |
567 | "DATA",101 .41,395,2, 2,0) | |
568 | when order ing multip le follow- up appoint ment. | |
569 | "DATA",101 .41,395,99 ) | |
570 | 64461,5239 7 | |
571 | "DATA",101 .41,396,0) | |
572 | OR GTX APP T NUM^Numb er of Appo intments^^ P | |
573 | "DATA",101 .41,396,1) | |
574 | N^1:60:0^S DNUM | |
575 | "DATA",101 .41,396,2, 0) | |
576 | ^101.411^1 ^1^3151015 ^^ | |
577 | "DATA",101 .41,396,2, 1,0) | |
578 | This promp t set the number of appointmen t. | |
579 | "DATA",101 .41,396,99 ) | |
580 | 64461,5239 7 | |
581 | "DATA",101 .41,397,0) | |
582 | OR GTX PRE REQ^Prere quisites^^ P | |
583 | "DATA",101 .41,397,1) | |
584 | F^3:30^PRE REQ | |
585 | "DATA",101 .41,397,99 ) | |
586 | 64461,5239 7 | |
587 | "DATA",101 .41,16266, 0) | |
588 | OR GTX SD COMMENT^Re turn to Cl inic Comme nt^^P | |
589 | "DATA",101 .41,16266, 1) | |
590 | F^1:75^SDC OMMENT | |
591 | "DATA",101 .41,16266, 2,0) | |
592 | ^^1^1^3170 510^ | |
593 | "DATA",101 .41,16266, 2,1,0) | |
594 | This promp ts for the comment f ield in th e Return t o Clinic O rder Dialo g. | |
595 | "DATA",101 .41,16266, 99) | |
596 | 64461,5239 9 | |
597 | "FIA",100) | |
598 | ORDER | |
599 | "FIA",100, 0) | |
600 | ^OR(100, | |
601 | "FIA",100, 0,0) | |
602 | 100I | |
603 | "FIA",100, 0,1) | |
604 | y^^p^^^^n^ ^n | |
605 | "FIA",100, 0,10) | |
606 | ||
607 | "FIA",100, 0,11) | |
608 | ||
609 | "FIA",100, 0,"RLRO") | |
610 | ||
611 | "FIA",100, 0,"VR") | |
612 | 3.0^OR | |
613 | "FIA",100, 100) | |
614 | 1 | |
615 | "FIA",100, 100.008) | |
616 | 1 | |
617 | "FIA",100, 100.008,40 ) | |
618 | ||
619 | "FIA",100, 100.008,41 ) | |
620 | ||
621 | "FIA",100. 9) | |
622 | OE/RR NOTI FICATIONS | |
623 | "FIA",100. 9,0) | |
624 | ^ORD(100.9 , | |
625 | "FIA",100. 9,0,0) | |
626 | 100.9 | |
627 | "FIA",100. 9,0,1) | |
628 | n^n^f^^y^^ y^o^n | |
629 | "FIA",100. 9,0,10) | |
630 | ||
631 | "FIA",100. 9,0,11) | |
632 | I +Y=91 | |
633 | "FIA",100. 9,0,"RLRO" ) | |
634 | ||
635 | "FIA",100. 9,0,"VR") | |
636 | 3.0^OR | |
637 | "FIA",100. 9,100.9) | |
638 | 0 | |
639 | "FIA",100. 9,100.92) | |
640 | 0 | |
641 | "FIA",100. 98) | |
642 | DISPLAY GR OUP | |
643 | "FIA",100. 98,0) | |
644 | ^ORD(100.9 8, | |
645 | "FIA",100. 98,0,0) | |
646 | 100.98I | |
647 | "FIA",100. 98,0,1) | |
648 | n^n^f^^y^^ y^r^n | |
649 | "FIA",100. 98,0,10) | |
650 | ||
651 | "FIA",100. 98,0,11) | |
652 | I $P(^(0), U)="CLINIC SCHEDULIN G" | |
653 | "FIA",100. 98,0,"RLRO ") | |
654 | ||
655 | "FIA",100. 98,0,"VR") | |
656 | 3.0^OR | |
657 | "FIA",100. 98,100.98) | |
658 | 0 | |
659 | "FIA",100. 98,100.981 ) | |
660 | 0 | |
661 | "FIA",100. 98,100.985 ) | |
662 | 0 | |
663 | "FIA",101. 41) | |
664 | ORDER DIAL OG | |
665 | "FIA",101. 41,0) | |
666 | ^ORD(101.4 1, | |
667 | "FIA",101. 41,0,0) | |
668 | 101.41I | |
669 | "FIA",101. 41,0,1) | |
670 | n^n^f^^y^^ y^o^n | |
671 | "FIA",101. 41,0,10) | |
672 | ||
673 | "FIA",101. 41,0,11) | |
674 | I $$SENDDL G^ORY434($ P(^(0),U)) | |
675 | "FIA",101. 41,0,"RLRO ") | |
676 | ||
677 | "FIA",101. 41,0,"VR") | |
678 | 3.0^OR | |
679 | "FIA",101. 41,101.41) | |
680 | 0 | |
681 | "FIA",101. 41,101.411 ) | |
682 | 0 | |
683 | "FIA",101. 41,101.412 ) | |
684 | 0 | |
685 | "FIA",101. 41,101.412 18) | |
686 | 0 | |
687 | "FIA",101. 41,101.415 ) | |
688 | 0 | |
689 | "FIA",101. 41,101.416 ) | |
690 | 0 | |
691 | "FIA",101. 41,101.416 2) | |
692 | 0 | |
693 | "FRV1",100 .98,"280,0 ",4) | |
694 | SD RTC | |
695 | "FRV1",100 .98,"280,0 ",4,"F") | |
696 | ;ORD(101.4 1, | |
697 | "FRV1",101 .41,"391,0 ",5) | |
698 | CLINIC SCH EDULING | |
699 | "FRV1",101 .41,"391,0 ",5,"F") | |
700 | ;ORD(100.9 8, | |
701 | "FRV1",101 .41,"391,0 ",7) | |
702 | SCHEDULING | |
703 | "FRV1",101 .41,"391,0 ",7,"F") | |
704 | ;DIC(9.4, | |
705 | "FRV1",101 .41,"391,1 0,1,0",2) | |
706 | OR GTX LOC ATION | |
707 | "FRV1",101 .41,"391,1 0,1,0",2," F") | |
708 | ;ORD(101.4 1, | |
709 | "FRV1",101 .41,"391,1 0,10,0",2) | |
710 | OR GTX YES /NO | |
711 | "FRV1",101 .41,"391,1 0,10,0",2, "F") | |
712 | ;ORD(101.4 1, | |
713 | "FRV1",101 .41,"391,1 0,3,0",2) | |
714 | OR GTX CLI NICALLY IN DICATED DA TE | |
715 | "FRV1",101 .41,"391,1 0,3,0",2," F") | |
716 | ;ORD(101.4 1, | |
717 | "FRV1",101 .41,"391,1 0,4,0",2) | |
718 | OR GTX APP T NUM | |
719 | "FRV1",101 .41,"391,1 0,4,0",2," F") | |
720 | ;ORD(101.4 1, | |
721 | "FRV1",101 .41,"391,1 0,5,0",2) | |
722 | OR GTX SCH INTERVAL | |
723 | "FRV1",101 .41,"391,1 0,5,0",2," F") | |
724 | ;ORD(101.4 1, | |
725 | "FRV1",101 .41,"391,1 0,6,0",2) | |
726 | OR GTX PRE REQ | |
727 | "FRV1",101 .41,"391,1 0,6,0",2," F") | |
728 | ;ORD(101.4 1, | |
729 | "FRV1",101 .41,"391,1 0,7,0",2) | |
730 | OR GTX SD COMMENT | |
731 | "FRV1",101 .41,"391,1 0,7,0",2," F") | |
732 | ;ORD(101.4 1, | |
733 | "INIT") | |
734 | POST^ORY43 4 | |
735 | "IX",101.4 1,101.41," B",0) | |
736 | 101.41^B^R egular B i ndex using full fiel d length^R ^^F^IR^I^1 01.41^^^^^ LS | |
737 | "IX",101.4 1,101.41," B",1) | |
738 | S ^ORD(101 .41,"B",$E (X,1,63),D A)="" | |
739 | "IX",101.4 1,101.41," B",2) | |
740 | K ^ORD(101 .41,"B",$E (X,1,63),D A) | |
741 | "IX",101.4 1,101.41," B",2.5) | |
742 | K ^ORD(101 .41,"B") | |
743 | "IX",101.4 1,101.41," B",11.1,0) | |
744 | ^.114IA^1^ 1 | |
745 | "IX",101.4 1,101.41," B",11.1,1, 0) | |
746 | 1^F^101.41 ^.01^63^1^ F | |
747 | "KRN",19,1 0989,-1) | |
748 | 0^1 | |
749 | "KRN",19,1 0989,0) | |
750 | OR CPRS GU I CHART^CP RSChart ve rsion 1.0. 31.114^^B^ ^^^^^^^ | |
751 | "KRN",19,1 0989,1,0) | |
752 | ^19.06^2^2 ^3170601^^ ^^ | |
753 | "KRN",19,1 0989,1,1,0 ) | |
754 | This optio n is requi red by the Kernel Br oker to gi ve access to the | |
755 | "KRN",19,1 0989,1,2,0 ) | |
756 | RPCs used by the CPR S GUI (CPR SChart.EXE ). | |
757 | "KRN",19,1 0989,99) | |
758 | 60921,4461 3 | |
759 | "KRN",19,1 0989,99.1) | |
760 | 64455,5147 1 | |
761 | "KRN",19,1 0989,"RPC" ,0) | |
762 | ^19.05P^21 58^2158 | |
763 | "KRN",19,1 0989,"RPC" ,1,0) | |
764 | GMRC LIST CONSULT RE QUESTS | |
765 | "KRN",19,1 0989,"RPC" ,218,0) | |
766 | XWB GET VA RIABLE VAL UE | |
767 | "KRN",19,1 0989,"RPC" ,219,0) | |
768 | TIU AUTHOR IZATION | |
769 | "KRN",19,1 0989,"RPC" ,220,0) | |
770 | TIU CAN CH ANGE COSIG NER? | |
771 | "KRN",19,1 0989,"RPC" ,221,0) | |
772 | TIU CREATE ADDENDUM RECORD | |
773 | "KRN",19,1 0989,"RPC" ,222,0) | |
774 | TIU CREATE RECORD | |
775 | "KRN",19,1 0989,"RPC" ,223,0) | |
776 | TIU DELETE RECORD | |
777 | "KRN",19,1 0989,"RPC" ,224,0) | |
778 | TIU DETAIL ED DISPLAY | |
779 | "KRN",19,1 0989,"RPC" ,225,0) | |
780 | TIU DOCUME NTS BY CON TEXT | |
781 | "KRN",19,1 0989,"RPC" ,226,0) | |
782 | TIU GET AD DITIONAL S IGNERS | |
783 | "KRN",19,1 0989,"RPC" ,227,0) | |
784 | TIU GET AL ERT INFO | |
785 | "KRN",19,1 0989,"RPC" ,228,0) | |
786 | TIU GET DO CUMENT PAR AMETERS | |
787 | "KRN",19,1 0989,"RPC" ,229,0) | |
788 | TIU GET DS TITLES | |
789 | "KRN",19,1 0989,"RPC" ,230,0) | |
790 | TIU GET DS URGENCIES | |
791 | "KRN",19,1 0989,"RPC" ,231,0) | |
792 | TIU GET PE RSONAL PRE FERENCES | |
793 | "KRN",19,1 0989,"RPC" ,232,0) | |
794 | TIU GET PN TITLES | |
795 | "KRN",19,1 0989,"RPC" ,233,0) | |
796 | TIU GET RE CORD TEXT | |
797 | "KRN",19,1 0989,"RPC" ,234,0) | |
798 | TIU IDENTI FY CONSULT S CLASS | |
799 | "KRN",19,1 0989,"RPC" ,235,0) | |
800 | TIU IS THI S A CONSUL T? | |
801 | "KRN",19,1 0989,"RPC" ,236,0) | |
802 | TIU JUSTIF Y DELETE? | |
803 | "KRN",19,1 0989,"RPC" ,237,0) | |
804 | TIU LOAD B OILERPLATE TEXT | |
805 | "KRN",19,1 0989,"RPC" ,238,0) | |
806 | TIU LOAD R ECORD FOR EDIT | |
807 | "KRN",19,1 0989,"RPC" ,239,0) | |
808 | TIU LOCK R ECORD | |
809 | "KRN",19,1 0989,"RPC" ,240,0) | |
810 | TIU LONG L IST CONSUL T TITLES | |
811 | "KRN",19,1 0989,"RPC" ,241,0) | |
812 | TIU LONG L IST OF TIT LES | |
813 | "KRN",19,1 0989,"RPC" ,242,0) | |
814 | TIU NOTES | |
815 | "KRN",19,1 0989,"RPC" ,243,0) | |
816 | TIU NOTES 16 BIT | |
817 | "KRN",19,1 0989,"RPC" ,244,0) | |
818 | TIU NOTES BY VISIT | |
819 | "KRN",19,1 0989,"RPC" ,245,0) | |
820 | TIU PERSON AL TITLE L IST | |
821 | "KRN",19,1 0989,"RPC" ,246,0) | |
822 | TIU PRINT RECORD | |
823 | "KRN",19,1 0989,"RPC" ,247,0) | |
824 | TIU REQUIR ES COSIGNA TURE | |
825 | "KRN",19,1 0989,"RPC" ,248,0) | |
826 | TIU SIGN R ECORD | |
827 | "KRN",19,1 0989,"RPC" ,249,0) | |
828 | TIU SUMMAR IES | |
829 | "KRN",19,1 0989,"RPC" ,250,0) | |
830 | TIU SUMMAR IES BY VIS IT | |
831 | "KRN",19,1 0989,"RPC" ,251,0) | |
832 | TIU UNLOCK RECORD | |
833 | "KRN",19,1 0989,"RPC" ,252,0) | |
834 | TIU UPDATE ADDITIONA L SIGNERS | |
835 | "KRN",19,1 0989,"RPC" ,253,0) | |
836 | TIU UPDATE RECORD | |
837 | "KRN",19,1 0989,"RPC" ,254,0) | |
838 | TIU WHICH SIGNATURE ACTION | |
839 | "KRN",19,1 0989,"RPC" ,1032,0) | |
840 | ORB DELETE ALERT | |
841 | "KRN",19,1 0989,"RPC" ,1033,0) | |
842 | ORB FOLLOW -UP ARRAY | |
843 | "KRN",19,1 0989,"RPC" ,1034,0) | |
844 | ORB FOLLOW -UP STRING | |
845 | "KRN",19,1 0989,"RPC" ,1035,0) | |
846 | ORB FOLLOW -UP TYPE | |
847 | "KRN",19,1 0989,"RPC" ,1036,0) | |
848 | ORB SORT M ETHOD | |
849 | "KRN",19,1 0989,"RPC" ,1037,0) | |
850 | ORK TRIGGE R | |
851 | "KRN",19,1 0989,"RPC" ,1038,0) | |
852 | ORQ NULL L IST | |
853 | "KRN",19,1 0989,"RPC" ,1039,0) | |
854 | ORQOR DETA IL | |
855 | "KRN",19,1 0989,"RPC" ,1040,0) | |
856 | TIU TEMPLA TE CHECK B OILERPLATE | |
857 | "KRN",19,1 0989,"RPC" ,1041,0) | |
858 | TIU TEMPLA TE CREATE/ MODIFY | |
859 | "KRN",19,1 0989,"RPC" ,1042,0) | |
860 | TIU TEMPLA TE DELETE | |
861 | "KRN",19,1 0989,"RPC" ,1045,0) | |
862 | TIU TEMPLA TE GETPROO T | |
863 | "KRN",19,1 0989,"RPC" ,1049,0) | |
864 | TIU TEMPLA TE LISTOWN R | |
865 | "KRN",19,1 0989,"RPC" ,1050,0) | |
866 | TIU TEMPLA TE SET ITE MS | |
867 | "KRN",19,1 0989,"RPC" ,1051,0) | |
868 | TIU GET LI ST OF OBJE CTS | |
869 | "KRN",19,1 0989,"RPC" ,1052,0) | |
870 | ORQOR LIST | |
871 | "KRN",19,1 0989,"RPC" ,1053,0) | |
872 | ORQORB SOR T | |
873 | "KRN",19,1 0989,"RPC" ,1054,0) | |
874 | ORQPT ATTE NDING/PRIM ARY | |
875 | "KRN",19,1 0989,"RPC" ,1055,0) | |
876 | ORQPT CLIN IC PATIENT S | |
877 | "KRN",19,1 0989,"RPC" ,1056,0) | |
878 | ORQPT CLIN ICS | |
879 | "KRN",19,1 0989,"RPC" ,1057,0) | |
880 | ORQPT DEFA ULT LIST S OURCE | |
881 | "KRN",19,1 0989,"RPC" ,1058,0) | |
882 | ORQPT DEFA ULT PATIEN T LIST | |
883 | "KRN",19,1 0989,"RPC" ,1059,0) | |
884 | ORQPT PATI ENT TEAM P ROVIDERS | |
885 | "KRN",19,1 0989,"RPC" ,1060,0) | |
886 | ORQPT PROV IDER PATIE NTS | |
887 | "KRN",19,1 0989,"RPC" ,1061,0) | |
888 | ORQPT PROV IDERS | |
889 | "KRN",19,1 0989,"RPC" ,1062,0) | |
890 | ORQPT SPEC IALTIES | |
891 | "KRN",19,1 0989,"RPC" ,1063,0) | |
892 | ORQPT SPEC IALTY PATI ENTS | |
893 | "KRN",19,1 0989,"RPC" ,1064,0) | |
894 | ORQPT TEAM PATIENTS | |
895 | "KRN",19,1 0989,"RPC" ,1065,0) | |
896 | ORQPT TEAM S | |
897 | "KRN",19,1 0989,"RPC" ,1066,0) | |
898 | ORQPT WARD PATIENTS | |
899 | "KRN",19,1 0989,"RPC" ,1067,0) | |
900 | ORQPT WARD RMBED | |
901 | "KRN",19,1 0989,"RPC" ,1068,0) | |
902 | ORQPT WARD S | |
903 | "KRN",19,1 0989,"RPC" ,1069,0) | |
904 | ORQQAL DET AIL | |
905 | "KRN",19,1 0989,"RPC" ,1070,0) | |
906 | ORQQAL LIS T | |
907 | "KRN",19,1 0989,"RPC" ,1071,0) | |
908 | ORQQAL LIS T REPORT | |
909 | "KRN",19,1 0989,"RPC" ,1072,0) | |
910 | ORQQCN ADD CMT | |
911 | "KRN",19,1 0989,"RPC" ,1073,0) | |
912 | ORQQCN ADM IN COMPLET E | |
913 | "KRN",19,1 0989,"RPC" ,1074,0) | |
914 | ORQQCN DET AIL | |
915 | "KRN",19,1 0989,"RPC" ,1075,0) | |
916 | ORQQCN DIS CONTINUE | |
917 | "KRN",19,1 0989,"RPC" ,1076,0) | |
918 | ORQQCN FIN D CONSULT | |
919 | "KRN",19,1 0989,"RPC" ,1077,0) | |
920 | ORQQCN FOR WARD | |
921 | "KRN",19,1 0989,"RPC" ,1078,0) | |
922 | ORQQCN GET CONSULT | |
923 | "KRN",19,1 0989,"RPC" ,1079,0) | |
924 | ORQQCN GET ORDER NUM BER | |
925 | "KRN",19,1 0989,"RPC" ,1080,0) | |
926 | ORQQCN GET PROC SVCS | |
927 | "KRN",19,1 0989,"RPC" ,1081,0) | |
928 | ORQQCN LIS T | |
929 | "KRN",19,1 0989,"RPC" ,1082,0) | |
930 | ORQQCN LOA D FOR EDIT | |
931 | "KRN",19,1 0989,"RPC" ,1083,0) | |
932 | ORQQCN MED RESULTS | |
933 | "KRN",19,1 0989,"RPC" ,1084,0) | |
934 | ORQQCN PRI NT SF513 | |
935 | "KRN",19,1 0989,"RPC" ,1085,0) | |
936 | ORQQCN REC EIVE | |
937 | "KRN",19,1 0989,"RPC" ,1086,0) | |
938 | ORQQCN RES UBMIT | |
939 | "KRN",19,1 0989,"RPC" ,1087,0) | |
940 | ORQQCN SET ACT MENUS | |
941 | "KRN",19,1 0989,"RPC" ,1088,0) | |
942 | ORQQCN SHO W SF513 | |
943 | "KRN",19,1 0989,"RPC" ,1089,0) | |
944 | ORQQCN SIG FIND | |
945 | "KRN",19,1 0989,"RPC" ,1090,0) | |
946 | ORQQCN STA TUS | |
947 | "KRN",19,1 0989,"RPC" ,1091,0) | |
948 | ORQQCN SVC LIST | |
949 | "KRN",19,1 0989,"RPC" ,1092,0) | |
950 | ORQQCN SVC TREE | |
951 | "KRN",19,1 0989,"RPC" ,1093,0) | |
952 | ORQQCN URG ENCIES | |
953 | "KRN",19,1 0989,"RPC" ,1094,0) | |
954 | ORQQCN2 GE T CONTEXT | |
955 | "KRN",19,1 0989,"RPC" ,1095,0) | |
956 | ORQQCN2 SA VE CONTEXT | |
957 | "KRN",19,1 0989,"RPC" ,1096,0) | |
958 | ORQQLR DET AIL | |
959 | "KRN",19,1 0989,"RPC" ,1097,0) | |
960 | ORQQLR SEA RCH RANGE INPT | |
961 | "KRN",19,1 0989,"RPC" ,1098,0) | |
962 | ORQQLR SEA RCH RANGE OUTPT | |
963 | "KRN",19,1 0989,"RPC" ,1099,0) | |
964 | ORQQPL ADD SAVE | |
965 | "KRN",19,1 0989,"RPC" ,1100,0) | |
966 | ORQQPL AUD IT HIST | |
967 | "KRN",19,1 0989,"RPC" ,1101,0) | |
968 | ORQQPL CHE CK DUP | |
969 | "KRN",19,1 0989,"RPC" ,1102,0) | |
970 | ORQQPL CLI N FILTER L IST | |
971 | "KRN",19,1 0989,"RPC" ,1103,0) | |
972 | ORQQPL CLI N SRCH | |
973 | "KRN",19,1 0989,"RPC" ,1104,0) | |
974 | ORQQPL DEL ETE | |
975 | "KRN",19,1 0989,"RPC" ,1105,0) | |
976 | ORQQPL DET AIL | |
977 | "KRN",19,1 0989,"RPC" ,1106,0) | |
978 | ORQQPL EDI T LOAD | |
979 | "KRN",19,1 0989,"RPC" ,1107,0) | |
980 | ORQQPL EDI T SAVE | |
981 | "KRN",19,1 0989,"RPC" ,1108,0) | |
982 | ORQQPL INA CTIVATE | |
983 | "KRN",19,1 0989,"RPC" ,1109,0) | |
984 | ORQQPL INI T PT | |
985 | "KRN",19,1 0989,"RPC" ,1110,0) | |
986 | ORQQPL INI T USER | |
987 | "KRN",19,1 0989,"RPC" ,1111,0) | |
988 | ORQQPL LIS T | |
989 | "KRN",19,1 0989,"RPC" ,1112,0) | |
990 | ORQQPL PRO B COMMENTS | |
991 | "KRN",19,1 0989,"RPC" ,1113,0) | |
992 | ORQQPL PRO BLEM LEX S EARCH | |
993 | "KRN",19,1 0989,"RPC" ,1114,0) | |
994 | ORQQPL PRO BLEM LIST | |
995 | "KRN",19,1 0989,"RPC" ,1115,0) | |
996 | ORQQPL PRO V FILTER L IST | |
997 | "KRN",19,1 0989,"RPC" ,1116,0) | |
998 | ORQQPL PRO VIDER LIST | |
999 | "KRN",19,1 0989,"RPC" ,1117,0) | |
1000 | ORQQPL REP LACE | |
1001 | "KRN",19,1 0989,"RPC" ,1118,0) | |
1002 | ORQQPL SAV EVIEW | |
1003 | "KRN",19,1 0989,"RPC" ,1119,0) | |
1004 | ORQQPL SER V FILTER L IST | |
1005 | "KRN",19,1 0989,"RPC" ,1120,0) | |
1006 | ORQQPL SRV C SRCH | |
1007 | "KRN",19,1 0989,"RPC" ,1121,0) | |
1008 | ORQQPL UPD ATE | |
1009 | "KRN",19,1 0989,"RPC" ,1122,0) | |
1010 | ORQQPL USE R PROB CAT S | |
1011 | "KRN",19,1 0989,"RPC" ,1123,0) | |
1012 | ORQQPL USE R PROB LIS T | |
1013 | "KRN",19,1 0989,"RPC" ,1124,0) | |
1014 | ORQQPL VER IFY | |
1015 | "KRN",19,1 0989,"RPC" ,1125,0) | |
1016 | ORQQPP LIS T | |
1017 | "KRN",19,1 0989,"RPC" ,1126,0) | |
1018 | ORQQPS DET AIL | |
1019 | "KRN",19,1 0989,"RPC" ,1127,0) | |
1020 | ORQQPS LIS T | |
1021 | "KRN",19,1 0989,"RPC" ,1133,0) | |
1022 | ORQQPX REM INDER DETA IL | |
1023 | "KRN",19,1 0989,"RPC" ,1135,0) | |
1024 | ORQQPX REM INDERS LIS T | |
1025 | "KRN",19,1 0989,"RPC" ,1136,0) | |
1026 | ORQQVI NOT EVIT | |
1027 | "KRN",19,1 0989,"RPC" ,1137,0) | |
1028 | ORQQVI VIT ALS | |
1029 | "KRN",19,1 0989,"RPC" ,1138,0) | |
1030 | ORQQVI VIT ALS FOR DA TE RANGE | |
1031 | "KRN",19,1 0989,"RPC" ,1139,0) | |
1032 | ORQQVI1 DE TAIL | |
1033 | "KRN",19,1 0989,"RPC" ,1140,0) | |
1034 | ORQQVI1 GR ID | |
1035 | "KRN",19,1 0989,"RPC" ,1141,0) | |
1036 | ORQQVI2 VI TALS HELP | |
1037 | "KRN",19,1 0989,"RPC" ,1142,0) | |
1038 | ORQQVI2 VI TALS RATE CHECK | |
1039 | "KRN",19,1 0989,"RPC" ,1144,0) | |
1040 | ORQQVI2 VI TALS VAL & STORE | |
1041 | "KRN",19,1 0989,"RPC" ,1145,0) | |
1042 | ORQQVI2 VI TALS VALID ATE | |
1043 | "KRN",19,1 0989,"RPC" ,1146,0) | |
1044 | ORQQVI2 VI TALS VALID ATE TYPE | |
1045 | "KRN",19,1 0989,"RPC" ,1147,0) | |
1046 | ORQQVS DET AIL NOTES | |
1047 | "KRN",19,1 0989,"RPC" ,1148,0) | |
1048 | ORQQVS DET AIL SUMMAR Y | |
1049 | "KRN",19,1 0989,"RPC" ,1149,0) | |
1050 | ORQQVS VIS ITS/APPTS | |
1051 | "KRN",19,1 0989,"RPC" ,1150,0) | |
1052 | ORQQXMB MA IL GROUPS | |
1053 | "KRN",19,1 0989,"RPC" ,1151,0) | |
1054 | ORQQXQA PA TIENT | |
1055 | "KRN",19,1 0989,"RPC" ,1152,0) | |
1056 | ORQQXQA US ER | |
1057 | "KRN",19,1 0989,"RPC" ,1153,0) | |
1058 | ORWCH LOAD ALL | |
1059 | "KRN",19,1 0989,"RPC" ,1154,0) | |
1060 | ORWCH LOAD SIZ | |
1061 | "KRN",19,1 0989,"RPC" ,1155,0) | |
1062 | ORWCH SAVE ALL | |
1063 | "KRN",19,1 0989,"RPC" ,1156,0) | |
1064 | ORWCH SAVE SIZ | |
1065 | "KRN",19,1 0989,"RPC" ,1157,0) | |
1066 | ORWCS LIST OF CONSUL T REPORTS | |
1067 | "KRN",19,1 0989,"RPC" ,1158,0) | |
1068 | ORWCS PRIN T REPORT | |
1069 | "KRN",19,1 0989,"RPC" ,1159,0) | |
1070 | ORWCS REPO RT TEXT | |
1071 | "KRN",19,1 0989,"RPC" ,1160,0) | |
1072 | ORWCV DTLV ST | |
1073 | "KRN",19,1 0989,"RPC" ,1161,0) | |
1074 | ORWCV LAB | |
1075 | "KRN",19,1 0989,"RPC" ,1162,0) | |
1076 | ORWCV POLL | |
1077 | "KRN",19,1 0989,"RPC" ,1163,0) | |
1078 | ORWCV STAR T | |
1079 | "KRN",19,1 0989,"RPC" ,1164,0) | |
1080 | ORWCV STOP | |
1081 | "KRN",19,1 0989,"RPC" ,1165,0) | |
1082 | ORWCV VST | |
1083 | "KRN",19,1 0989,"RPC" ,1166,0) | |
1084 | ORWD DEF | |
1085 | "KRN",19,1 0989,"RPC" ,1167,0) | |
1086 | ORWD DT | |
1087 | "KRN",19,1 0989,"RPC" ,1168,0) | |
1088 | ORWD FORMI D | |
1089 | "KRN",19,1 0989,"RPC" ,1169,0) | |
1090 | ORWD GET4E DIT | |
1091 | "KRN",19,1 0989,"RPC" ,1170,0) | |
1092 | ORWD KEY | |
1093 | "KRN",19,1 0989,"RPC" ,1171,0) | |
1094 | ORWD OI | |
1095 | "KRN",19,1 0989,"RPC" ,1172,0) | |
1096 | ORWD PROVK EY | |
1097 | "KRN",19,1 0989,"RPC" ,1173,0) | |
1098 | ORWD SAVE | |
1099 | "KRN",19,1 0989,"RPC" ,1174,0) | |
1100 | ORWD SAVEA CT | |
1101 | "KRN",19,1 0989,"RPC" ,1175,0) | |
1102 | ORWD SIGN | |
1103 | "KRN",19,1 0989,"RPC" ,1176,0) | |
1104 | ORWD VALID ACT | |
1105 | "KRN",19,1 0989,"RPC" ,1177,0) | |
1106 | ORWD1 PARA M | |
1107 | "KRN",19,1 0989,"RPC" ,1178,0) | |
1108 | ORWD1 PRIN TGUI | |
1109 | "KRN",19,1 0989,"RPC" ,1179,0) | |
1110 | ORWD1 RVPR INT | |
1111 | "KRN",19,1 0989,"RPC" ,1180,0) | |
1112 | ORWD2 DEVI NFO | |
1113 | "KRN",19,1 0989,"RPC" ,1181,0) | |
1114 | ORWD2 MANU AL | |
1115 | "KRN",19,1 0989,"RPC" ,1182,0) | |
1116 | ORWDAL32 A LLERGY MAT CH | |
1117 | "KRN",19,1 0989,"RPC" ,1183,0) | |
1118 | ORWDAL32 D EF | |
1119 | "KRN",19,1 0989,"RPC" ,1184,0) | |
1120 | ORWDAL32 S YMPTOMS | |
1121 | "KRN",19,1 0989,"RPC" ,1185,0) | |
1122 | ORWDCN32 D EF | |
1123 | "KRN",19,1 0989,"RPC" ,1186,0) | |
1124 | ORWDCN32 O RDRMSG | |
1125 | "KRN",19,1 0989,"RPC" ,1187,0) | |
1126 | ORWDCN32 P ROCEDURES | |
1127 | "KRN",19,1 0989,"RPC" ,1188,0) | |
1128 | ORWDCSLT D EF | |
1129 | "KRN",19,1 0989,"RPC" ,1189,0) | |
1130 | ORWDCSLT L OOK200 | |
1131 | "KRN",19,1 0989,"RPC" ,1190,0) | |
1132 | ORWDFH ADD LATE | |
1133 | "KRN",19,1 0989,"RPC" ,1191,0) | |
1134 | ORWDFH ATT R | |
1135 | "KRN",19,1 0989,"RPC" ,1192,0) | |
1136 | ORWDFH CUR ISO | |
1137 | "KRN",19,1 0989,"RPC" ,1193,0) | |
1138 | ORWDFH DIE TS | |
1139 | "KRN",19,1 0989,"RPC" ,1194,0) | |
1140 | ORWDFH FIN DTYP | |
1141 | "KRN",19,1 0989,"RPC" ,1195,0) | |
1142 | ORWDFH ISO IEN | |
1143 | "KRN",19,1 0989,"RPC" ,1196,0) | |
1144 | ORWDFH ISO LIST | |
1145 | "KRN",19,1 0989,"RPC" ,1197,0) | |
1146 | ORWDFH PAR AM | |
1147 | "KRN",19,1 0989,"RPC" ,1198,0) | |
1148 | ORWDFH QTY 2CC | |
1149 | "KRN",19,1 0989,"RPC" ,1199,0) | |
1150 | ORWDFH TFP ROD | |
1151 | "KRN",19,1 0989,"RPC" ,1200,0) | |
1152 | ORWDFH TXT | |
1153 | "KRN",19,1 0989,"RPC" ,1201,0) | |
1154 | ORWDGX LOA D | |
1155 | "KRN",19,1 0989,"RPC" ,1202,0) | |
1156 | ORWDGX VMD EF | |
1157 | "KRN",19,1 0989,"RPC" ,1203,0) | |
1158 | ORWDLR ABB SPEC | |
1159 | "KRN",19,1 0989,"RPC" ,1204,0) | |
1160 | ORWDLR ALL SAMP | |
1161 | "KRN",19,1 0989,"RPC" ,1205,0) | |
1162 | ORWDLR DEF | |
1163 | "KRN",19,1 0989,"RPC" ,1206,0) | |
1164 | ORWDLR LOA D | |
1165 | "KRN",19,1 0989,"RPC" ,1207,0) | |
1166 | ORWDLR OIP ARAM | |
1167 | "KRN",19,1 0989,"RPC" ,1208,0) | |
1168 | ORWDLR STO P | |
1169 | "KRN",19,1 0989,"RPC" ,1209,0) | |
1170 | ORWDLR32 A BBSPEC | |
1171 | "KRN",19,1 0989,"RPC" ,1210,0) | |
1172 | ORWDLR32 A LLSAMP | |
1173 | "KRN",19,1 0989,"RPC" ,1211,0) | |
1174 | ORWDLR32 A LLSPEC | |
1175 | "KRN",19,1 0989,"RPC" ,1212,0) | |
1176 | ORWDLR32 D EF | |
1177 | "KRN",19,1 0989,"RPC" ,1213,0) | |
1178 | ORWDLR32 I C DEFAULT | |
1179 | "KRN",19,1 0989,"RPC" ,1214,0) | |
1180 | ORWDLR32 I C VALID | |
1181 | "KRN",19,1 0989,"RPC" ,1215,0) | |
1182 | ORWDLR32 I MMED COLLE CT | |
1183 | "KRN",19,1 0989,"RPC" ,1216,0) | |
1184 | ORWDLR32 L AB COLL TI ME | |
1185 | "KRN",19,1 0989,"RPC" ,1217,0) | |
1186 | ORWDLR32 L OAD | |
1187 | "KRN",19,1 0989,"RPC" ,1218,0) | |
1188 | ORWDLR32 M AXDAYS | |
1189 | "KRN",19,1 0989,"RPC" ,1219,0) | |
1190 | ORWDLR32 O NE SAMPLE | |
1191 | "KRN",19,1 0989,"RPC" ,1220,0) | |
1192 | ORWDLR32 O NE SPECIME N | |
1193 | "KRN",19,1 0989,"RPC" ,1221,0) | |
1194 | ORWDLR32 S TOP | |
1195 | "KRN",19,1 0989,"RPC" ,1222,0) | |
1196 | ORWDOR VMS LCT | |
1197 | "KRN",19,1 0989,"RPC" ,1227,0) | |
1198 | ORWDPS32 A LLROUTE | |
1199 | "KRN",19,1 0989,"RPC" ,1228,0) | |
1200 | ORWDPS32 A UTH | |
1201 | "KRN",19,1 0989,"RPC" ,1229,0) | |
1202 | ORWDPS32 D LGSLCT | |
1203 | "KRN",19,1 0989,"RPC" ,1230,0) | |
1204 | ORWDPS32 D OSES | |
1205 | "KRN",19,1 0989,"RPC" ,1231,0) | |
1206 | ORWDPS32 D RUGMSG | |
1207 | "KRN",19,1 0989,"RPC" ,1232,0) | |
1208 | ORWDPS32 F ORMALT | |
1209 | "KRN",19,1 0989,"RPC" ,1233,0) | |
1210 | ORWDPS32 I SSPLY | |
1211 | "KRN",19,1 0989,"RPC" ,1234,0) | |
1212 | ORWDPS32 I VAMT | |
1213 | "KRN",19,1 0989,"RPC" ,1235,0) | |
1214 | ORWDPS32 M EDISIV | |
1215 | "KRN",19,1 0989,"RPC" ,1236,0) | |
1216 | ORWDPS32 O ISLCT | |
1217 | "KRN",19,1 0989,"RPC" ,1237,0) | |
1218 | ORWDPS32 S CSTS | |
1219 | "KRN",19,1 0989,"RPC" ,1238,0) | |
1220 | ORWDPS32 V ALQTY | |
1221 | "KRN",19,1 0989,"RPC" ,1239,0) | |
1222 | ORWDPS32 V ALRATE | |
1223 | "KRN",19,1 0989,"RPC" ,1240,0) | |
1224 | ORWDPS32 V ALSCH | |
1225 | "KRN",19,1 0989,"RPC" ,1241,0) | |
1226 | ORWDRA DEF | |
1227 | "KRN",19,1 0989,"RPC" ,1242,0) | |
1228 | ORWDRA32 A PPROVAL | |
1229 | "KRN",19,1 0989,"RPC" ,1243,0) | |
1230 | ORWDRA32 D EF | |
1231 | "KRN",19,1 0989,"RPC" ,1244,0) | |
1232 | ORWDRA32 I MTYPSEL | |
1233 | "KRN",19,1 0989,"RPC" ,1245,0) | |
1234 | ORWDRA32 I SOLATN | |
1235 | "KRN",19,1 0989,"RPC" ,1246,0) | |
1236 | ORWDRA32 L OCTYPE | |
1237 | "KRN",19,1 0989,"RPC" ,1247,0) | |
1238 | ORWDRA32 P ROCMSG | |
1239 | "KRN",19,1 0989,"RPC" ,1248,0) | |
1240 | ORWDRA32 R ADSRC | |
1241 | "KRN",19,1 0989,"RPC" ,1249,0) | |
1242 | ORWDRA32 R AORDITM | |
1243 | "KRN",19,1 0989,"RPC" ,1250,0) | |
1244 | ORWDX AGAI N | |
1245 | "KRN",19,1 0989,"RPC" ,1251,0) | |
1246 | ORWDX DGRP | |
1247 | "KRN",19,1 0989,"RPC" ,1252,0) | |
1248 | ORWDX DISM SG | |
1249 | "KRN",19,1 0989,"RPC" ,1253,0) | |
1250 | ORWDX DLGD EF | |
1251 | "KRN",19,1 0989,"RPC" ,1254,0) | |
1252 | ORWDX DLGI D | |
1253 | "KRN",19,1 0989,"RPC" ,1255,0) | |
1254 | ORWDX DLGQ UIK | |
1255 | "KRN",19,1 0989,"RPC" ,1256,0) | |
1256 | ORWDX FORM ID | |
1257 | "KRN",19,1 0989,"RPC" ,1257,0) | |
1258 | ORWDX LOAD RSP | |
1259 | "KRN",19,1 0989,"RPC" ,1258,0) | |
1260 | ORWDX LOCK | |
1261 | "KRN",19,1 0989,"RPC" ,1259,0) | |
1262 | ORWDX MSG | |
1263 | "KRN",19,1 0989,"RPC" ,1260,0) | |
1264 | ORWDX ORDI TM | |
1265 | "KRN",19,1 0989,"RPC" ,1261,0) | |
1266 | ORWDX SAVE | |
1267 | "KRN",19,1 0989,"RPC" ,1262,0) | |
1268 | ORWDX SEND | |
1269 | "KRN",19,1 0989,"RPC" ,1263,0) | |
1270 | ORWDX SEND P | |
1271 | "KRN",19,1 0989,"RPC" ,1264,0) | |
1272 | ORWDX UNLO CK | |
1273 | "KRN",19,1 0989,"RPC" ,1265,0) | |
1274 | ORWDX WRLS T | |
1275 | "KRN",19,1 0989,"RPC" ,1266,0) | |
1276 | ORWDXA ALE RT | |
1277 | "KRN",19,1 0989,"RPC" ,1267,0) | |
1278 | ORWDXA COM PLETE | |
1279 | "KRN",19,1 0989,"RPC" ,1268,0) | |
1280 | ORWDXA DC | |
1281 | "KRN",19,1 0989,"RPC" ,1269,0) | |
1282 | ORWDX2 DCR EASON | |
1283 | "KRN",19,1 0989,"RPC" ,1270,0) | |
1284 | ORWDXA DCR EQIEN | |
1285 | "KRN",19,1 0989,"RPC" ,1271,0) | |
1286 | ORWDXA FLA G | |
1287 | "KRN",19,1 0989,"RPC" ,1272,0) | |
1288 | ORWDXA FLA GTXT | |
1289 | "KRN",19,1 0989,"RPC" ,1273,0) | |
1290 | ORWDXA HOL D | |
1291 | "KRN",19,1 0989,"RPC" ,1274,0) | |
1292 | ORWDXA UNF LAG | |
1293 | "KRN",19,1 0989,"RPC" ,1275,0) | |
1294 | ORWDXA UNH OLD | |
1295 | "KRN",19,1 0989,"RPC" ,1276,0) | |
1296 | ORWDXA VAL ID | |
1297 | "KRN",19,1 0989,"RPC" ,1277,0) | |
1298 | ORWDXA VER IFY | |
1299 | "KRN",19,1 0989,"RPC" ,1278,0) | |
1300 | ORWDXA WCG ET | |
1301 | "KRN",19,1 0989,"RPC" ,1279,0) | |
1302 | ORWDXA WCP UT | |
1303 | "KRN",19,1 0989,"RPC" ,1280,0) | |
1304 | ORWDXC ACC EPT | |
1305 | "KRN",19,1 0989,"RPC" ,1281,0) | |
1306 | ORWDXC DEL AY | |
1307 | "KRN",19,1 0989,"RPC" ,1282,0) | |
1308 | ORWDXC DEL ORD | |
1309 | "KRN",19,1 0989,"RPC" ,1283,0) | |
1310 | ORWDXC DIS PLAY | |
1311 | "KRN",19,1 0989,"RPC" ,1284,0) | |
1312 | ORWDXC FIL LID | |
1313 | "KRN",19,1 0989,"RPC" ,1285,0) | |
1314 | ORWDXC ON | |
1315 | "KRN",19,1 0989,"RPC" ,1286,0) | |
1316 | ORWDXC SAV ECHK | |
1317 | "KRN",19,1 0989,"RPC" ,1287,0) | |
1318 | ORWDXC SES SION | |
1319 | "KRN",19,1 0989,"RPC" ,1288,0) | |
1320 | ORWDXM AUT OACK | |
1321 | "KRN",19,1 0989,"RPC" ,1289,0) | |
1322 | ORWDXM DLG NAME | |
1323 | "KRN",19,1 0989,"RPC" ,1290,0) | |
1324 | ORWDXM FOR MID | |
1325 | "KRN",19,1 0989,"RPC" ,1291,0) | |
1326 | ORWDXM LOA DSET | |
1327 | "KRN",19,1 0989,"RPC" ,1292,0) | |
1328 | ORWDXM MEN U | |
1329 | "KRN",19,1 0989,"RPC" ,1293,0) | |
1330 | ORWDXM MST YLE | |
1331 | "KRN",19,1 0989,"RPC" ,1294,0) | |
1332 | ORWDXM PRO MPTS | |
1333 | "KRN",19,1 0989,"RPC" ,1295,0) | |
1334 | ORWDXM1 BL DQRSP | |
1335 | "KRN",19,1 0989,"RPC" ,1296,0) | |
1336 | ORWDXM2 CL RRCL | |
1337 | "KRN",19,1 0989,"RPC" ,1297,0) | |
1338 | ORWDXQ DLG NAME | |
1339 | "KRN",19,1 0989,"RPC" ,1298,0) | |
1340 | ORWDXQ DLG SAVE | |
1341 | "KRN",19,1 0989,"RPC" ,1299,0) | |
1342 | ORWDXQ GET QLST | |
1343 | "KRN",19,1 0989,"RPC" ,1300,0) | |
1344 | ORWDXQ GET QNAM | |
1345 | "KRN",19,1 0989,"RPC" ,1301,0) | |
1346 | ORWDXQ PUT QLST | |
1347 | "KRN",19,1 0989,"RPC" ,1302,0) | |
1348 | ORWDXQ PUT QNAM | |
1349 | "KRN",19,1 0989,"RPC" ,1303,0) | |
1350 | ORWDXR ISR EL | |
1351 | "KRN",19,1 0989,"RPC" ,1304,0) | |
1352 | ORWDXR REN EW | |
1353 | "KRN",19,1 0989,"RPC" ,1305,0) | |
1354 | ORWDXR RNW FLDS | |
1355 | "KRN",19,1 0989,"RPC" ,1306,0) | |
1356 | ORWGEPT CL INRNG | |
1357 | "KRN",19,1 0989,"RPC" ,1307,0) | |
1358 | ORWLR CUMU LATIVE REP ORT | |
1359 | "KRN",19,1 0989,"RPC" ,1308,0) | |
1360 | ORWLR CUMU LATIVE SEC TION | |
1361 | "KRN",19,1 0989,"RPC" ,1309,0) | |
1362 | ORWLR REPO RT LISTS | |
1363 | "KRN",19,1 0989,"RPC" ,1310,0) | |
1364 | ORWLRR ALL TESTS | |
1365 | "KRN",19,1 0989,"RPC" ,1311,0) | |
1366 | ORWLRR ATE STS | |
1367 | "KRN",19,1 0989,"RPC" ,1312,0) | |
1368 | ORWLRR ATG | |
1369 | "KRN",19,1 0989,"RPC" ,1313,0) | |
1370 | ORWLRR ATO MICS | |
1371 | "KRN",19,1 0989,"RPC" ,1314,0) | |
1372 | ORWLRR CHA RT | |
1373 | "KRN",19,1 0989,"RPC" ,1315,0) | |
1374 | ORWLRR CHE MTEST | |
1375 | "KRN",19,1 0989,"RPC" ,1316,0) | |
1376 | ORWLRR GRI D | |
1377 | "KRN",19,1 0989,"RPC" ,1317,0) | |
1378 | ORWLRR INT ERIM | |
1379 | "KRN",19,1 0989,"RPC" ,1318,0) | |
1380 | ORWLRR INT ERIMG | |
1381 | "KRN",19,1 0989,"RPC" ,1319,0) | |
1382 | ORWLRR INT ERIMS | |
1383 | "KRN",19,1 0989,"RPC" ,1320,0) | |
1384 | ORWLRR MIC RO | |
1385 | "KRN",19,1 0989,"RPC" ,1321,0) | |
1386 | ORWLRR NEW OLD | |
1387 | "KRN",19,1 0989,"RPC" ,1322,0) | |
1388 | ORWLRR PAR AM | |
1389 | "KRN",19,1 0989,"RPC" ,1323,0) | |
1390 | ORWLRR SPE C | |
1391 | "KRN",19,1 0989,"RPC" ,1324,0) | |
1392 | ORWLRR TG | |
1393 | "KRN",19,1 0989,"RPC" ,1325,0) | |
1394 | ORWLRR USE RS | |
1395 | "KRN",19,1 0989,"RPC" ,1326,0) | |
1396 | ORWLRR UTG A | |
1397 | "KRN",19,1 0989,"RPC" ,1327,0) | |
1398 | ORWLRR UTG D | |
1399 | "KRN",19,1 0989,"RPC" ,1328,0) | |
1400 | ORWLRR UTG R | |
1401 | "KRN",19,1 0989,"RPC" ,1329,0) | |
1402 | ORWMC PATI ENT PROCED URES | |
1403 | "KRN",19,1 0989,"RPC" ,1330,0) | |
1404 | ORWOR RESU LT | |
1405 | "KRN",19,1 0989,"RPC" ,1331,0) | |
1406 | ORWOR SHEE TS | |
1407 | "KRN",19,1 0989,"RPC" ,1332,0) | |
1408 | ORWOR TSAL L | |
1409 | "KRN",19,1 0989,"RPC" ,1333,0) | |
1410 | ORWORB AUT OUNFLAG OR DERS | |
1411 | "KRN",19,1 0989,"RPC" ,1334,0) | |
1412 | ORWORB FAS TUSER | |
1413 | "KRN",19,1 0989,"RPC" ,1335,0) | |
1414 | ORWORB GET TIU ALERT INFO | |
1415 | "KRN",19,1 0989,"RPC" ,1336,0) | |
1416 | ORWORB GET DATA | |
1417 | "KRN",19,1 0989,"RPC" ,1337,0) | |
1418 | ORWORB KIL L UNSIG OR DERS ALERT | |
1419 | "KRN",19,1 0989,"RPC" ,1339,0) | |
1420 | ORWORDG AL LTREE | |
1421 | "KRN",19,1 0989,"RPC" ,1340,0) | |
1422 | ORWORDG GR PSEQB | |
1423 | "KRN",19,1 0989,"RPC" ,1341,0) | |
1424 | ORWORDG IE N | |
1425 | "KRN",19,1 0989,"RPC" ,1342,0) | |
1426 | ORWORDG MA PSEQ | |
1427 | "KRN",19,1 0989,"RPC" ,1343,0) | |
1428 | ORWORDG RE VSTS | |
1429 | "KRN",19,1 0989,"RPC" ,1344,0) | |
1430 | ORWORR AGE T | |
1431 | "KRN",19,1 0989,"RPC" ,1345,0) | |
1432 | ORWORR GET | |
1433 | "KRN",19,1 0989,"RPC" ,1346,0) | |
1434 | ORWORR GET 4LST | |
1435 | "KRN",19,1 0989,"RPC" ,1347,0) | |
1436 | ORWORR GET BYIFN | |
1437 | "KRN",19,1 0989,"RPC" ,1348,0) | |
1438 | ORWORR GET TXT | |
1439 | "KRN",19,1 0989,"RPC" ,1349,0) | |
1440 | ORWPCE ACT IVE PROV | |
1441 | "KRN",19,1 0989,"RPC" ,1350,0) | |
1442 | ORWPCE ACT PROB | |
1443 | "KRN",19,1 0989,"RPC" ,1351,0) | |
1444 | ORWPCE CPT REQD | |
1445 | "KRN",19,1 0989,"RPC" ,1352,0) | |
1446 | ORWPCE DEL ETE | |
1447 | "KRN",19,1 0989,"RPC" ,1353,0) | |
1448 | ORWPCE DIA G | |
1449 | "KRN",19,1 0989,"RPC" ,1354,0) | |
1450 | ORWPCE GET EDUCATION TOPICS | |
1451 | "KRN",19,1 0989,"RPC" ,1355,0) | |
1452 | ORWPCE GET EXAM TYPE | |
1453 | "KRN",19,1 0989,"RPC" ,1356,0) | |
1454 | ORWPCE GET HEALTH FA CTORS TY | |
1455 | "KRN",19,1 0989,"RPC" ,1357,0) | |
1456 | ORWPCE GET IMMUNIZAT ION TYPE | |
1457 | "KRN",19,1 0989,"RPC" ,1358,0) | |
1458 | ORWPCE GET SET OF CO DES | |
1459 | "KRN",19,1 0989,"RPC" ,1359,0) | |
1460 | ORWPCE GET SKIN TEST TYPE | |
1461 | "KRN",19,1 0989,"RPC" ,1360,0) | |
1462 | ORWPCE GET TREATMENT TYPE | |
1463 | "KRN",19,1 0989,"RPC" ,1361,0) | |
1464 | ORWPCE HF | |
1465 | "KRN",19,1 0989,"RPC" ,1362,0) | |
1466 | ORWPCE IMM | |
1467 | "KRN",19,1 0989,"RPC" ,1363,0) | |
1468 | ORWPCE LEX | |
1469 | "KRN",19,1 0989,"RPC" ,1364,0) | |
1470 | ORWPCE LEX CODE | |
1471 | "KRN",19,1 0989,"RPC" ,1366,0) | |
1472 | ORWPCE NOT EVSTR | |
1473 | "KRN",19,1 0989,"RPC" ,1367,0) | |
1474 | ORWPCE PCE 4NOTE | |
1475 | "KRN",19,1 0989,"RPC" ,1368,0) | |
1476 | ORWPCE PED | |
1477 | "KRN",19,1 0989,"RPC" ,1369,0) | |
1478 | ORWPCE PRO C | |
1479 | "KRN",19,1 0989,"RPC" ,1370,0) | |
1480 | ORWPCE SAV E | |
1481 | "KRN",19,1 0989,"RPC" ,1371,0) | |
1482 | ORWPCE SCD IS | |
1483 | "KRN",19,1 0989,"RPC" ,1372,0) | |
1484 | ORWPCE SCS EL | |
1485 | "KRN",19,1 0989,"RPC" ,1373,0) | |
1486 | ORWPCE SK | |
1487 | "KRN",19,1 0989,"RPC" ,1374,0) | |
1488 | ORWPCE TRT | |
1489 | "KRN",19,1 0989,"RPC" ,1375,0) | |
1490 | ORWPCE VIS IT | |
1491 | "KRN",19,1 0989,"RPC" ,1376,0) | |
1492 | ORWPCE XAM | |
1493 | "KRN",19,1 0989,"RPC" ,1377,0) | |
1494 | ORWPS ACTI VE | |
1495 | "KRN",19,1 0989,"RPC" ,1378,0) | |
1496 | ORWPS COVE R | |
1497 | "KRN",19,1 0989,"RPC" ,1379,0) | |
1498 | ORWPS DETA IL | |
1499 | "KRN",19,1 0989,"RPC" ,1380,0) | |
1500 | ORWPS1 NEW DLG | |
1501 | "KRN",19,1 0989,"RPC" ,1381,0) | |
1502 | ORWPS1 PIC KUP | |
1503 | "KRN",19,1 0989,"RPC" ,1382,0) | |
1504 | ORWPS1 REF ILL | |
1505 | "KRN",19,1 0989,"RPC" ,1383,0) | |
1506 | ORWPT ADMI TLST | |
1507 | "KRN",19,1 0989,"RPC" ,1384,0) | |
1508 | ORWPT APPT LST | |
1509 | "KRN",19,1 0989,"RPC" ,1385,0) | |
1510 | ORWPT CLIN RNG | |
1511 | "KRN",19,1 0989,"RPC" ,1386,0) | |
1512 | ORWPT CWAD | |
1513 | "KRN",19,1 0989,"RPC" ,1387,0) | |
1514 | ORWPT DFLT SRC | |
1515 | "KRN",19,1 0989,"RPC" ,1388,0) | |
1516 | ORWPT DIED ON | |
1517 | "KRN",19,1 0989,"RPC" ,1389,0) | |
1518 | ORWPT DISC HARGE | |
1519 | "KRN",19,1 0989,"RPC" ,1390,0) | |
1520 | ORWPT ENCT ITL | |
1521 | "KRN",19,1 0989,"RPC" ,1391,0) | |
1522 | ORWPT FULL SSN | |
1523 | "KRN",19,1 0989,"RPC" ,1392,0) | |
1524 | ORWPT ID I NFO | |
1525 | "KRN",19,1 0989,"RPC" ,1393,0) | |
1526 | ORWPT LAST 5 | |
1527 | "KRN",19,1 0989,"RPC" ,1394,0) | |
1528 | ORWPT LIST ALL | |
1529 | "KRN",19,1 0989,"RPC" ,1395,0) | |
1530 | ORWPT PTIN Q | |
1531 | "KRN",19,1 0989,"RPC" ,1396,0) | |
1532 | ORWPT SAVD FLT | |
1533 | "KRN",19,1 0989,"RPC" ,1397,0) | |
1534 | ORWPT SELC HK | |
1535 | "KRN",19,1 0989,"RPC" ,1398,0) | |
1536 | ORWPT SELE CT | |
1537 | "KRN",19,1 0989,"RPC" ,1399,0) | |
1538 | ORWPT SHAR E | |
1539 | "KRN",19,1 0989,"RPC" ,1400,0) | |
1540 | ORWPT TOP | |
1541 | "KRN",19,1 0989,"RPC" ,1401,0) | |
1542 | ORWPT1 PCD ETAIL | |
1543 | "KRN",19,1 0989,"RPC" ,1402,0) | |
1544 | ORWPT1 PRC ARE | |
1545 | "KRN",19,1 0989,"RPC" ,1403,0) | |
1546 | ORWPT16 AD MITLST | |
1547 | "KRN",19,1 0989,"RPC" ,1404,0) | |
1548 | ORWPT16 AP PTLST | |
1549 | "KRN",19,1 0989,"RPC" ,1405,0) | |
1550 | ORWPT16 DE MOG | |
1551 | "KRN",19,1 0989,"RPC" ,1406,0) | |
1552 | ORWPT16 GE TVSIT | |
1553 | "KRN",19,1 0989,"RPC" ,1407,0) | |
1554 | ORWPT16 ID INFO | |
1555 | "KRN",19,1 0989,"RPC" ,1408,0) | |
1556 | ORWPT16 LI ST ALL | |
1557 | "KRN",19,1 0989,"RPC" ,1409,0) | |
1558 | ORWPT16 LO OKUP | |
1559 | "KRN",19,1 0989,"RPC" ,1410,0) | |
1560 | ORWPT16 PS CNVT | |
1561 | "KRN",19,1 0989,"RPC" ,1411,0) | |
1562 | ORWRA DEFA ULT EXAM S ETTINGS | |
1563 | "KRN",19,1 0989,"RPC" ,1412,0) | |
1564 | ORWRA IMAG ING EXAMS | |
1565 | "KRN",19,1 0989,"RPC" ,1413,0) | |
1566 | ORWRA PRIN T REPORT | |
1567 | "KRN",19,1 0989,"RPC" ,1414,0) | |
1568 | ORWRA REPO RT TEXT | |
1569 | "KRN",19,1 0989,"RPC" ,1415,0) | |
1570 | ORWRP PRIN T LAB REPO RTS | |
1571 | "KRN",19,1 0989,"RPC" ,1416,0) | |
1572 | ORWRP PRIN T REPORT | |
1573 | "KRN",19,1 0989,"RPC" ,1417,0) | |
1574 | ORWRP REPO RT LISTS | |
1575 | "KRN",19,1 0989,"RPC" ,1418,0) | |
1576 | ORWRP REPO RT TEXT | |
1577 | "KRN",19,1 0989,"RPC" ,1419,0) | |
1578 | ORWRP1 LIS TNUTR | |
1579 | "KRN",19,1 0989,"RPC" ,1420,0) | |
1580 | ORWRP16 RE PORT LISTS | |
1581 | "KRN",19,1 0989,"RPC" ,1421,0) | |
1582 | ORWRP16 RE PORT TEXT | |
1583 | "KRN",19,1 0989,"RPC" ,1422,0) | |
1584 | ORWTIU GET DCSUMM CO NTEXT | |
1585 | "KRN",19,1 0989,"RPC" ,1423,0) | |
1586 | ORWTIU GET TIU CONTE XT | |
1587 | "KRN",19,1 0989,"RPC" ,1424,0) | |
1588 | ORWTIU SAV E DCSUMM C ONTEXT | |
1589 | "KRN",19,1 0989,"RPC" ,1425,0) | |
1590 | ORWTIU SAV E TIU CONT EXT | |
1591 | "KRN",19,1 0989,"RPC" ,1426,0) | |
1592 | ORWU CLINL OC | |
1593 | "KRN",19,1 0989,"RPC" ,1427,0) | |
1594 | ORWU DEVIC E | |
1595 | "KRN",19,1 0989,"RPC" ,1428,0) | |
1596 | ORWU DT | |
1597 | "KRN",19,1 0989,"RPC" ,1429,0) | |
1598 | ORWU EXTNA ME | |
1599 | "KRN",19,1 0989,"RPC" ,1430,0) | |
1600 | ORWU GBLRE F | |
1601 | "KRN",19,1 0989,"RPC" ,1431,0) | |
1602 | ORWU GENER IC | |
1603 | "KRN",19,1 0989,"RPC" ,1432,0) | |
1604 | ORWU HASKE Y | |
1605 | "KRN",19,1 0989,"RPC" ,1433,0) | |
1606 | ORWU HOSPL OC | |
1607 | "KRN",19,1 0989,"RPC" ,1434,0) | |
1608 | ORWU INPLO C | |
1609 | "KRN",19,1 0989,"RPC" ,1435,0) | |
1610 | ORWU NEWPE RS | |
1611 | "KRN",19,1 0989,"RPC" ,1436,0) | |
1612 | ORWU NPHAS KEY | |
1613 | "KRN",19,1 0989,"RPC" ,1437,0) | |
1614 | ORWU PATCH | |
1615 | "KRN",19,1 0989,"RPC" ,1438,0) | |
1616 | ORWU TOOLM ENU | |
1617 | "KRN",19,1 0989,"RPC" ,1439,0) | |
1618 | ORWU USERI NFO | |
1619 | "KRN",19,1 0989,"RPC" ,1440,0) | |
1620 | ORWU VALDT | |
1621 | "KRN",19,1 0989,"RPC" ,1441,0) | |
1622 | ORWU VALID SIG | |
1623 | "KRN",19,1 0989,"RPC" ,1442,0) | |
1624 | ORWU VERSR V | |
1625 | "KRN",19,1 0989,"RPC" ,1443,0) | |
1626 | ORWU16 DEV ICE | |
1627 | "KRN",19,1 0989,"RPC" ,1444,0) | |
1628 | ORWU16 HOS PLOC | |
1629 | "KRN",19,1 0989,"RPC" ,1445,0) | |
1630 | ORWU16 NEW PERS | |
1631 | "KRN",19,1 0989,"RPC" ,1446,0) | |
1632 | ORWU16 USE RINFO | |
1633 | "KRN",19,1 0989,"RPC" ,1447,0) | |
1634 | ORWU16 VAL DT | |
1635 | "KRN",19,1 0989,"RPC" ,1448,0) | |
1636 | ORWU16 VAL IDSIG | |
1637 | "KRN",19,1 0989,"RPC" ,1449,0) | |
1638 | ORWUH POPU P | |
1639 | "KRN",19,1 0989,"RPC" ,1450,0) | |
1640 | ORWUX SYMT AB | |
1641 | "KRN",19,1 0989,"RPC" ,1451,0) | |
1642 | ORWUXT LST | |
1643 | "KRN",19,1 0989,"RPC" ,1452,0) | |
1644 | ORWUXT REF | |
1645 | "KRN",19,1 0989,"RPC" ,1453,0) | |
1646 | ORWUXT VAL | |
1647 | "KRN",19,1 0989,"RPC" ,1454,0) | |
1648 | ORQQCN DEF AULT REQUE ST REASON | |
1649 | "KRN",19,1 0989,"RPC" ,1455,0) | |
1650 | ORWDX LOCK ORDER | |
1651 | "KRN",19,1 0989,"RPC" ,1456,0) | |
1652 | ORWDX UNLO CK ORDER | |
1653 | "KRN",19,1 0989,"RPC" ,1457,0) | |
1654 | ORWDCN32 N EWDLG | |
1655 | "KRN",19,1 0989,"RPC" ,1458,0) | |
1656 | ORQQCN GET SERVICE I EN | |
1657 | "KRN",19,1 0989,"RPC" ,1459,0) | |
1658 | ORQQCN PRO VDX | |
1659 | "KRN",19,1 0989,"RPC" ,1460,0) | |
1660 | TIU TEMPLA TE ACCESS LEVEL | |
1661 | "KRN",19,1 0989,"RPC" ,1461,0) | |
1662 | TIU GET DO CUMENT TIT LE | |
1663 | "KRN",19,1 0989,"RPC" ,1462,0) | |
1664 | ORWPT BYWA RD | |
1665 | "KRN",19,1 0989,"RPC" ,1463,0) | |
1666 | ORQQPX GET HIST LOCA TIONS | |
1667 | "KRN",19,1 0989,"RPC" ,1464,0) | |
1668 | ORQQPX NEW REMINDERS ACTIVE | |
1669 | "KRN",19,1 0989,"RPC" ,1465,0) | |
1670 | ORWPCE GET VISIT | |
1671 | "KRN",19,1 0989,"RPC" ,1480,0) | |
1672 | TIU GET RE QUEST | |
1673 | "KRN",19,1 0989,"RPC" ,1481,0) | |
1674 | ORWORB KIL L EXPIR ME D ALERT | |
1675 | "KRN",19,1 0989,"RPC" ,1482,0) | |
1676 | DG CHK BS5 XREF ARRA Y | |
1677 | "KRN",19,1 0989,"RPC" ,1483,0) | |
1678 | DG CHK BS5 XREF Y/N | |
1679 | "KRN",19,1 0989,"RPC" ,1484,0) | |
1680 | DG CHK PAT /DIV MEANS TEST | |
1681 | "KRN",19,1 0989,"RPC" ,1485,0) | |
1682 | DG SENSITI VE RECORD ACCESS | |
1683 | "KRN",19,1 0989,"RPC" ,1486,0) | |
1684 | DG SENSITI VE RECORD BULLETIN | |
1685 | "KRN",19,1 0989,"RPC" ,1487,0) | |
1686 | ORQQCN CAN EDIT | |
1687 | "KRN",19,1 0989,"RPC" ,1488,0) | |
1688 | ORQQCN EDI T DEFAULT REASON | |
1689 | "KRN",19,1 0989,"RPC" ,1489,0) | |
1690 | ORQQCN SF5 13 WINDOWS PRINT | |
1691 | "KRN",19,1 0989,"RPC" ,1490,0) | |
1692 | ORWCIRN FA CLIST | |
1693 | "KRN",19,1 0989,"RPC" ,1491,0) | |
1694 | ORWDLR32 G ET LAB TIM ES | |
1695 | "KRN",19,1 0989,"RPC" ,1492,0) | |
1696 | ORWPT LEGA CY | |
1697 | "KRN",19,1 0989,"RPC" ,1493,0) | |
1698 | ORWRP GET DEFAULT PR INTER | |
1699 | "KRN",19,1 0989,"RPC" ,1494,0) | |
1700 | ORWRP PRIN T WINDOWS REPORT | |
1701 | "KRN",19,1 0989,"RPC" ,1495,0) | |
1702 | ORWRP SAVE DEFAULT P RINTER | |
1703 | "KRN",19,1 0989,"RPC" ,1496,0) | |
1704 | ORWRP WINP RINT DEFAU LT | |
1705 | "KRN",19,1 0989,"RPC" ,1497,0) | |
1706 | ORWRP WINP RINT LAB R EPORTS | |
1707 | "KRN",19,1 0989,"RPC" ,1498,0) | |
1708 | ORWTIU WIN PRINT NOTE | |
1709 | "KRN",19,1 0989,"RPC" ,1500,0) | |
1710 | ORWPCE GAF OK | |
1711 | "KRN",19,1 0989,"RPC" ,1501,0) | |
1712 | ORWPCE MHC LINIC | |
1713 | "KRN",19,1 0989,"RPC" ,1502,0) | |
1714 | ORWPCE LOA DGAF | |
1715 | "KRN",19,1 0989,"RPC" ,1503,0) | |
1716 | ORWPCE SAV EGAF | |
1717 | "KRN",19,1 0989,"RPC" ,1504,0) | |
1718 | ORWPCE FOR CE | |
1719 | "KRN",19,1 0989,"RPC" ,1505,0) | |
1720 | TIU GET DE FAULT PROV IDER | |
1721 | "KRN",19,1 0989,"RPC" ,1506,0) | |
1722 | TIU GET SI TE PARAMET ERS | |
1723 | "KRN",19,1 0989,"RPC" ,1507,0) | |
1724 | TIU IS USE R A PROVID ER? | |
1725 | "KRN",19,1 0989,"RPC" ,1508,0) | |
1726 | ORWOR VWGE T | |
1727 | "KRN",19,1 0989,"RPC" ,1509,0) | |
1728 | ORWOR VWSE T | |
1729 | "KRN",19,1 0989,"RPC" ,1510,0) | |
1730 | ORWU PARAM | |
1731 | "KRN",19,1 0989,"RPC" ,1511,0) | |
1732 | ORWDOR LKS CRN | |
1733 | "KRN",19,1 0989,"RPC" ,1512,0) | |
1734 | ORWDOR VAL NUM | |
1735 | "KRN",19,1 0989,"RPC" ,1513,0) | |
1736 | ORWDPS32 V ALROUTE | |
1737 | "KRN",19,1 0989,"RPC" ,1515,0) | |
1738 | ORWORB UNS IG ORDERS FOLLOWUP | |
1739 | "KRN",19,1 0989,"RPC" ,1516,0) | |
1740 | ORWTIU GET LISTBOX I TEM | |
1741 | "KRN",19,1 0989,"RPC" ,1517,0) | |
1742 | ORWRP2 HS COMP FILES | |
1743 | "KRN",19,1 0989,"RPC" ,1518,0) | |
1744 | ORWRP2 HS COMPONENTS | |
1745 | "KRN",19,1 0989,"RPC" ,1519,0) | |
1746 | ORWRP2 HS FILE LOOKU P | |
1747 | "KRN",19,1 0989,"RPC" ,1520,0) | |
1748 | ORWRP2 HS REPORT TEX T | |
1749 | "KRN",19,1 0989,"RPC" ,1521,0) | |
1750 | ORWRP2 HS SUBITEMS | |
1751 | "KRN",19,1 0989,"RPC" ,1522,0) | |
1752 | ORWPCE HAS CPT | |
1753 | "KRN",19,1 0989,"RPC" ,1523,0) | |
1754 | ORWPCE ASK PCE | |
1755 | "KRN",19,1 0989,"RPC" ,1524,0) | |
1756 | ORWPCE MHT ESTOK | |
1757 | "KRN",19,1 0989,"RPC" ,1525,0) | |
1758 | ORWPCE GAF URL | |
1759 | "KRN",19,1 0989,"RPC" ,1526,0) | |
1760 | ORQQPXRM D IALOG PROM PTS | |
1761 | "KRN",19,1 0989,"RPC" ,1527,0) | |
1762 | ORQQPXRM E DUCATION S UBTOPICS | |
1763 | "KRN",19,1 0989,"RPC" ,1528,0) | |
1764 | ORQQPXRM E DUCATION S UMMARY | |
1765 | "KRN",19,1 0989,"RPC" ,1529,0) | |
1766 | ORQQPXRM E DUCATION T OPIC | |
1767 | "KRN",19,1 0989,"RPC" ,1530,0) | |
1768 | ORQQPXRM M ENTAL HEAL TH | |
1769 | "KRN",19,1 0989,"RPC" ,1531,0) | |
1770 | ORQQPXRM M ENTAL HEAL TH RESULTS | |
1771 | "KRN",19,1 0989,"RPC" ,1532,0) | |
1772 | ORQQPXRM M ENTAL HEAL TH SAVE | |
1773 | "KRN",19,1 0989,"RPC" ,1533,0) | |
1774 | ORQQPXRM P ROGRESS NO TE HEADER | |
1775 | "KRN",19,1 0989,"RPC" ,1534,0) | |
1776 | ORQQPXRM R EMINDER CA TEGORIES | |
1777 | "KRN",19,1 0989,"RPC" ,1535,0) | |
1778 | ORQQPXRM R EMINDER DE TAIL | |
1779 | "KRN",19,1 0989,"RPC" ,1536,0) | |
1780 | ORQQPXRM R EMINDER DI ALOG | |
1781 | "KRN",19,1 0989,"RPC" ,1537,0) | |
1782 | ORQQPXRM R EMINDER EV ALUATION | |
1783 | "KRN",19,1 0989,"RPC" ,1538,0) | |
1784 | ORQQPXRM R EMINDER IN QUIRY | |
1785 | "KRN",19,1 0989,"RPC" ,1539,0) | |
1786 | ORQQPXRM R EMINDER WE B | |
1787 | "KRN",19,1 0989,"RPC" ,1540,0) | |
1788 | ORQQPXRM R EMINDERS A PPLICABLE | |
1789 | "KRN",19,1 0989,"RPC" ,1541,0) | |
1790 | ORQQPXRM R EMINDERS U NEVALUATED | |
1791 | "KRN",19,1 0989,"RPC" ,1542,0) | |
1792 | ORWLRR INF O | |
1793 | "KRN",19,1 0989,"RPC" ,1543,0) | |
1794 | TIU GET PR INT NAME | |
1795 | "KRN",19,1 0989,"RPC" ,1544,0) | |
1796 | TIU WAS TH IS SAVED? | |
1797 | "KRN",19,1 0989,"RPC" ,1545,0) | |
1798 | ORWD1 COML OC | |
1799 | "KRN",19,1 0989,"RPC" ,1546,0) | |
1800 | ORWD1 SIG4 ANY | |
1801 | "KRN",19,1 0989,"RPC" ,1547,0) | |
1802 | ORWD1 SIG4 ONE | |
1803 | "KRN",19,1 0989,"RPC" ,1548,0) | |
1804 | ORWOR UNSI GN | |
1805 | "KRN",19,1 0989,"RPC" ,1549,0) | |
1806 | ORWPT INPL OC | |
1807 | "KRN",19,1 0989,"RPC" ,1553,0) | |
1808 | ORQQCN2 GE T PREREQUI SITE | |
1809 | "KRN",19,1 0989,"RPC" ,1554,0) | |
1810 | ORQQCN2 SC HEDULE CON SULT | |
1811 | "KRN",19,1 0989,"RPC" ,1555,0) | |
1812 | YS GAF API | |
1813 | "KRN",19,1 0989,"RPC" ,1556,0) | |
1814 | TIU LONG L IST BOILER PLATED | |
1815 | "KRN",19,1 0989,"RPC" ,1557,0) | |
1816 | ORWDLR33 F UTURE LAB COLLECTS | |
1817 | "KRN",19,1 0989,"RPC" ,1558,0) | |
1818 | ORWRP PRIN T REMOTE R EPORT | |
1819 | "KRN",19,1 0989,"RPC" ,1559,0) | |
1820 | ORWRP PRIN T WINDOWS REMOTE | |
1821 | "KRN",19,1 0989,"RPC" ,1560,0) | |
1822 | ORWRP PRIN T LAB REMO TE | |
1823 | "KRN",19,1 0989,"RPC" ,1561,0) | |
1824 | ORWRP PRIN T WINDOWS LAB REMOTE | |
1825 | "KRN",19,1 0989,"RPC" ,1562,0) | |
1826 | ORQQPXRM D IALOG ACTI VE | |
1827 | "KRN",19,1 0989,"RPC" ,1563,0) | |
1828 | ORWPCE MH TEST AUTHO RIZED | |
1829 | "KRN",19,1 0989,"RPC" ,1564,0) | |
1830 | TIU GET BO ILERPLATE | |
1831 | "KRN",19,1 0989,"RPC" ,1565,0) | |
1832 | ORWRP2 HS COMPONENT SUBS | |
1833 | "KRN",19,1 0989,"RPC" ,1566,0) | |
1834 | ORWCH SAVF ONT | |
1835 | "KRN",19,1 0989,"RPC" ,1567,0) | |
1836 | ORWDLR33 L ASTTIME | |
1837 | "KRN",19,1 0989,"RPC" ,1568,0) | |
1838 | ORWD1 SVON LY | |
1839 | "KRN",19,1 0989,"RPC" ,1569,0) | |
1840 | ORWPCE HAS VISIT | |
1841 | "KRN",19,1 0989,"RPC" ,1570,0) | |
1842 | ORWPCE GET MOD | |
1843 | "KRN",19,1 0989,"RPC" ,1571,0) | |
1844 | ORWPCE CPT MODS | |
1845 | "KRN",19,1 0989,"RPC" ,1572,0) | |
1846 | XWB REMOTE CLEAR | |
1847 | "KRN",19,1 0989,"RPC" ,1573,0) | |
1848 | XWB REMOTE GETDATA | |
1849 | "KRN",19,1 0989,"RPC" ,1574,0) | |
1850 | XWB REMOTE RPC | |
1851 | "KRN",19,1 0989,"RPC" ,1575,0) | |
1852 | XWB REMOTE STATUS CH ECK | |
1853 | "KRN",19,1 0989,"RPC" ,1576,0) | |
1854 | ORQQCN ASS IGNABLE ME D RESULTS | |
1855 | "KRN",19,1 0989,"RPC" ,1577,0) | |
1856 | ORQQCN ATT ACH MED RE SULTS | |
1857 | "KRN",19,1 0989,"RPC" ,1578,0) | |
1858 | ORQQCN GET MED RESUL T DETAILS | |
1859 | "KRN",19,1 0989,"RPC" ,1579,0) | |
1860 | ORQQCN REM OVABLE MED RESULTS | |
1861 | "KRN",19,1 0989,"RPC" ,1580,0) | |
1862 | ORQQCN REM OVE MED RE SULTS | |
1863 | "KRN",19,1 0989,"RPC" ,1581,0) | |
1864 | ORQQCN SVC W/SYNONYM S | |
1865 | "KRN",19,1 0989,"RPC" ,1582,0) | |
1866 | ORWCV1 COV ERSHEET LI ST | |
1867 | "KRN",19,1 0989,"RPC" ,1583,0) | |
1868 | ORWORB KIL L EXPIR OI ALERT | |
1869 | "KRN",19,1 0989,"RPC" ,1584,0) | |
1870 | ORWPCE GET SVC | |
1871 | "KRN",19,1 0989,"RPC" ,1585,0) | |
1872 | ORWRP LAB REPORT LIS TS | |
1873 | "KRN",19,1 0989,"RPC" ,1587,0) | |
1874 | ORWTPN GET CLASS | |
1875 | "KRN",19,1 0989,"RPC" ,1588,0) | |
1876 | ORWTPN GET TC | |
1877 | "KRN",19,1 0989,"RPC" ,1589,0) | |
1878 | ORWTPO CSA RNGD | |
1879 | "KRN",19,1 0989,"RPC" ,1590,0) | |
1880 | ORWTPO CSL ABD | |
1881 | "KRN",19,1 0989,"RPC" ,1591,0) | |
1882 | ORWTPO GET TABS | |
1883 | "KRN",19,1 0989,"RPC" ,1592,0) | |
1884 | ORWTPP ADD LIST | |
1885 | "KRN",19,1 0989,"RPC" ,1593,0) | |
1886 | ORWTPP CHK SURR | |
1887 | "KRN",19,1 0989,"RPC" ,1594,0) | |
1888 | ORWTPP CLD AYS | |
1889 | "KRN",19,1 0989,"RPC" ,1595,0) | |
1890 | ORWTPP CLE ARNOT | |
1891 | "KRN",19,1 0989,"RPC" ,1596,0) | |
1892 | ORWTPP CLR ANGE | |
1893 | "KRN",19,1 0989,"RPC" ,1597,0) | |
1894 | ORWTPP CSA RNG | |
1895 | "KRN",19,1 0989,"RPC" ,1598,0) | |
1896 | ORWTPP CSL AB | |
1897 | "KRN",19,1 0989,"RPC" ,1599,0) | |
1898 | ORWTPP DEL LIST | |
1899 | "KRN",19,1 0989,"RPC" ,1600,0) | |
1900 | ORWTPP GET COMBO | |
1901 | "KRN",19,1 0989,"RPC" ,1601,0) | |
1902 | ORWTPP GET COS | |
1903 | "KRN",19,1 0989,"RPC" ,1602,0) | |
1904 | ORWTPP GET DCOS | |
1905 | "KRN",19,1 0989,"RPC" ,1603,0) | |
1906 | ORWTPP GET NOT | |
1907 | "KRN",19,1 0989,"RPC" ,1604,0) | |
1908 | ORWTPP GET NOTO | |
1909 | "KRN",19,1 0989,"RPC" ,1605,0) | |
1910 | ORWTPP GET OC | |
1911 | "KRN",19,1 0989,"RPC" ,1606,0) | |
1912 | ORWTPP GET OTHER | |
1913 | "KRN",19,1 0989,"RPC" ,1607,0) | |
1914 | ORWTPP GET REM | |
1915 | "KRN",19,1 0989,"RPC" ,1608,0) | |
1916 | ORWTPP GET SUB | |
1917 | "KRN",19,1 0989,"RPC" ,1609,0) | |
1918 | ORWTPP GET SURR | |
1919 | "KRN",19,1 0989,"RPC" ,1610,0) | |
1920 | ORWTPP GET TD | |
1921 | "KRN",19,1 0989,"RPC" ,1611,0) | |
1922 | ORWTPP GET TU | |
1923 | "KRN",19,1 0989,"RPC" ,1612,0) | |
1924 | ORWTPP LSD EF | |
1925 | "KRN",19,1 0989,"RPC" ,1613,0) | |
1926 | ORWTPP NEW LIST | |
1927 | "KRN",19,1 0989,"RPC" ,1614,0) | |
1928 | ORWTPP PLI STS | |
1929 | "KRN",19,1 0989,"RPC" ,1615,0) | |
1930 | ORWTPP PLT EAMS | |
1931 | "KRN",19,1 0989,"RPC" ,1616,0) | |
1932 | ORWTPP REM LIST | |
1933 | "KRN",19,1 0989,"RPC" ,1617,0) | |
1934 | ORWTPP SAV ECD | |
1935 | "KRN",19,1 0989,"RPC" ,1618,0) | |
1936 | ORWTPP SAV ECS | |
1937 | "KRN",19,1 0989,"RPC" ,1619,0) | |
1938 | ORWTPP SAV ELIST | |
1939 | "KRN",19,1 0989,"RPC" ,1620,0) | |
1940 | ORWTPP SAV ENOT | |
1941 | "KRN",19,1 0989,"RPC" ,1621,0) | |
1942 | ORWTPP SAV ENOTO | |
1943 | "KRN",19,1 0989,"RPC" ,1622,0) | |
1944 | ORWTPP SAV EOC | |
1945 | "KRN",19,1 0989,"RPC" ,1623,0) | |
1946 | ORWTPP SAV EPLD | |
1947 | "KRN",19,1 0989,"RPC" ,1624,0) | |
1948 | ORWTPP SAV ESURR | |
1949 | "KRN",19,1 0989,"RPC" ,1625,0) | |
1950 | ORWTPP SAV ET | |
1951 | "KRN",19,1 0989,"RPC" ,1626,0) | |
1952 | ORWTPP SET COMBO | |
1953 | "KRN",19,1 0989,"RPC" ,1627,0) | |
1954 | ORWTPP SET DCOS | |
1955 | "KRN",19,1 0989,"RPC" ,1628,0) | |
1956 | ORWTPP SET OTHER | |
1957 | "KRN",19,1 0989,"RPC" ,1629,0) | |
1958 | ORWTPP SET REM | |
1959 | "KRN",19,1 0989,"RPC" ,1630,0) | |
1960 | ORWTPP SET SUB | |
1961 | "KRN",19,1 0989,"RPC" ,1631,0) | |
1962 | ORWTPP SOR TDEF | |
1963 | "KRN",19,1 0989,"RPC" ,1632,0) | |
1964 | ORWTPP TEA MS | |
1965 | "KRN",19,1 0989,"RPC" ,1633,0) | |
1966 | ORWTPT ATE AMS | |
1967 | "KRN",19,1 0989,"RPC" ,1634,0) | |
1968 | ORWTPT GET TEAM | |
1969 | "KRN",19,1 0989,"RPC" ,1635,0) | |
1970 | TIU TEMPLA TE GET DEF AULTS | |
1971 | "KRN",19,1 0989,"RPC" ,1636,0) | |
1972 | TIU TEMPLA TE GET DES CRIPTION | |
1973 | "KRN",19,1 0989,"RPC" ,1637,0) | |
1974 | TIU TEMPLA TE SET DEF AULTS | |
1975 | "KRN",19,1 0989,"RPC" ,1638,0) | |
1976 | ORWTIU IDN OTES INSTA LLED | |
1977 | "KRN",19,1 0989,"RPC" ,1639,0) | |
1978 | ORQQPX GET FOLDERS | |
1979 | "KRN",19,1 0989,"RPC" ,1640,0) | |
1980 | ORQQPX SET FOLDERS | |
1981 | "KRN",19,1 0989,"RPC" ,1641,0) | |
1982 | TIU FIELD CAN EDIT | |
1983 | "KRN",19,1 0989,"RPC" ,1642,0) | |
1984 | TIU FIELD DELETE | |
1985 | "KRN",19,1 0989,"RPC" ,1643,0) | |
1986 | TIU FIELD EXPORT | |
1987 | "KRN",19,1 0989,"RPC" ,1644,0) | |
1988 | TIU FIELD IMPORT | |
1989 | "KRN",19,1 0989,"RPC" ,1645,0) | |
1990 | TIU FIELD LIST | |
1991 | "KRN",19,1 0989,"RPC" ,1646,0) | |
1992 | TIU FIELD LOAD | |
1993 | "KRN",19,1 0989,"RPC" ,1647,0) | |
1994 | TIU FIELD LOAD BY IE N | |
1995 | "KRN",19,1 0989,"RPC" ,1648,0) | |
1996 | TIU FIELD LOCK | |
1997 | "KRN",19,1 0989,"RPC" ,1649,0) | |
1998 | TIU FIELD NAME IS UN IQUE | |
1999 | "KRN",19,1 0989,"RPC" ,1650,0) | |
2000 | TIU FIELD SAVE | |
2001 | "KRN",19,1 0989,"RPC" ,1651,0) | |
2002 | TIU FIELD UNLOCK | |
2003 | "KRN",19,1 0989,"RPC" ,1652,0) | |
2004 | ORWDPS1 CH K94 | |
2005 | "KRN",19,1 0989,"RPC" ,1653,0) | |
2006 | ORWDPS1 OD SLCT | |
2007 | "KRN",19,1 0989,"RPC" ,1654,0) | |
2008 | ORWDPS1 SC HALL | |
2009 | "KRN",19,1 0989,"RPC" ,1655,0) | |
2010 | ORWDPS2 AD MIN | |
2011 | "KRN",19,1 0989,"RPC" ,1656,0) | |
2012 | ORWDPS2 DA Y2QTY | |
2013 | "KRN",19,1 0989,"RPC" ,1657,0) | |
2014 | ORWDPS2 OI SLCT | |
2015 | "KRN",19,1 0989,"RPC" ,1658,0) | |
2016 | ORWDPS2 RE QST | |
2017 | "KRN",19,1 0989,"RPC" ,1659,0) | |
2018 | ORWDX DGNM | |
2019 | "KRN",19,1 0989,"RPC" ,1660,0) | |
2020 | ORWUL FV4D G | |
2021 | "KRN",19,1 0989,"RPC" ,1661,0) | |
2022 | ORWUL FVID X | |
2023 | "KRN",19,1 0989,"RPC" ,1662,0) | |
2024 | ORWUL FVSU B | |
2025 | "KRN",19,1 0989,"RPC" ,1663,0) | |
2026 | ORWUL QV4D G | |
2027 | "KRN",19,1 0989,"RPC" ,1664,0) | |
2028 | ORWUL QVID X | |
2029 | "KRN",19,1 0989,"RPC" ,1665,0) | |
2030 | ORWUL QVSU B | |
2031 | "KRN",19,1 0989,"RPC" ,1666,0) | |
2032 | ORWDPS1 DF LTSPLY | |
2033 | "KRN",19,1 0989,"RPC" ,1668,0) | |
2034 | PXRM REMIN DER DIALOG (TIU) | |
2035 | "KRN",19,1 0989,"RPC" ,1669,0) | |
2036 | ORWPCE ANY TIME | |
2037 | "KRN",19,1 0989,"RPC" ,1670,0) | |
2038 | ORQQPX GET DEF LOCAT IONS | |
2039 | "KRN",19,1 0989,"RPC" ,1671,0) | |
2040 | ORWTPP GET IMG | |
2041 | "KRN",19,1 0989,"RPC" ,1672,0) | |
2042 | ORWTPP SET IMG | |
2043 | "KRN",19,1 0989,"RPC" ,1673,0) | |
2044 | ORWTPO GET IMGD | |
2045 | "KRN",19,1 0989,"RPC" ,1674,0) | |
2046 | ORQQPX REM INSERT AT CURSOR | |
2047 | "KRN",19,1 0989,"RPC" ,1675,0) | |
2048 | TIU REMIND ER DIALOGS | |
2049 | "KRN",19,1 0989,"RPC" ,1676,0) | |
2050 | TIU REM DL G OK AS TE MPLATE | |
2051 | "KRN",19,1 0989,"RPC" ,1677,0) | |
2052 | ORWDPS2 MA XREF | |
2053 | "KRN",19,1 0989,"RPC" ,1678,0) | |
2054 | ORWDPS2 SC HREQ | |
2055 | "KRN",19,1 0989,"RPC" ,1679,0) | |
2056 | ORWRP COLU MN HEADERS | |
2057 | "KRN",19,1 0989,"RPC" ,1680,0) | |
2058 | TIU FIELD DOLMTEXT | |
2059 | "KRN",19,1 0989,"RPC" ,1681,0) | |
2060 | TIU TEMPLA TE PERSONA L OBJECTS | |
2061 | "KRN",19,1 0989,"RPC" ,1682,0) | |
2062 | ORWPCE AUT O VISIT TY PE SELECT | |
2063 | "KRN",19,1 0989,"RPC" ,1683,0) | |
2064 | ORWDPS2 QT Y2DAY | |
2065 | "KRN",19,1 0989,"RPC" ,1684,0) | |
2066 | ORWU HAS O PTION ACCE SS | |
2067 | "KRN",19,1 0989,"RPC" ,1685,0) | |
2068 | TIU TEMPLA TE LOCK | |
2069 | "KRN",19,1 0989,"RPC" ,1686,0) | |
2070 | ORQQPX LVR EMLST | |
2071 | "KRN",19,1 0989,"RPC" ,1687,0) | |
2072 | ORQQPX NEW COVER SHE ET ACTIVE | |
2073 | "KRN",19,1 0989,"RPC" ,1688,0) | |
2074 | ORQQPX NEW COVER SHE ET REMS | |
2075 | "KRN",19,1 0989,"RPC" ,1689,0) | |
2076 | ORQQPX SAV ELVL | |
2077 | "KRN",19,1 0989,"RPC" ,1690,0) | |
2078 | PXRM REMIN DER CATEGO RY | |
2079 | "KRN",19,1 0989,"RPC" ,1691,0) | |
2080 | PXRM REMIN DERS AND C ATEGORIES | |
2081 | "KRN",19,1 0989,"RPC" ,1692,0) | |
2082 | TIU DIV AN D CLASS IN FO | |
2083 | "KRN",19,1 0989,"RPC" ,1693,0) | |
2084 | TIU TEMPLA TE GETBOIL | |
2085 | "KRN",19,1 0989,"RPC" ,1694,0) | |
2086 | TIU TEMPLA TE GETITEM S | |
2087 | "KRN",19,1 0989,"RPC" ,1695,0) | |
2088 | TIU TEMPLA TE GETROOT S | |
2089 | "KRN",19,1 0989,"RPC" ,1696,0) | |
2090 | TIU TEMPLA TE GETTEXT | |
2091 | "KRN",19,1 0989,"RPC" ,1697,0) | |
2092 | TIU TEMPLA TE ISEDITO R | |
2093 | "KRN",19,1 0989,"RPC" ,1698,0) | |
2094 | TIU TEMPLA TE UNLOCK | |
2095 | "KRN",19,1 0989,"RPC" ,1699,0) | |
2096 | TIU USER C LASS LONG LIST | |
2097 | "KRN",19,1 0989,"RPC" ,1700,0) | |
2098 | ORWPCE ALW AYS CHECKO UT | |
2099 | "KRN",19,1 0989,"RPC" ,1701,0) | |
2100 | ORWPCE GET EXCLUDED | |
2101 | "KRN",19,1 0989,"RPC" ,1702,0) | |
2102 | ORWDPS1 FO RMALT | |
2103 | "KRN",19,1 0989,"RPC" ,1703,0) | |
2104 | ORQPT DEFA ULT LIST S ORT | |
2105 | "KRN",19,1 0989,"RPC" ,1704,0) | |
2106 | ORWDPS1 DO SEALT | |
2107 | "KRN",19,1 0989,"RPC" ,1705,0) | |
2108 | ORWTPR OCD ESC | |
2109 | "KRN",19,1 0989,"RPC" ,1706,0) | |
2110 | ORWTPR NOT DESC | |
2111 | "KRN",19,1 0989,"RPC" ,1707,0) | |
2112 | ORWDPS1 FA ILDEA | |
2113 | "KRN",19,1 0989,"RPC" ,1708,0) | |
2114 | ORQPT DEFA ULT CLINIC DATE RANG | |
2115 | "KRN",19,1 0989,"RPC" ,1709,0) | |
2116 | ORWTIU CAN LINK | |
2117 | "KRN",19,1 0989,"RPC" ,1710,0) | |
2118 | TIU ID ATT ACH ENTRY | |
2119 | "KRN",19,1 0989,"RPC" ,1711,0) | |
2120 | TIU ID CAN ATTACH | |
2121 | "KRN",19,1 0989,"RPC" ,1712,0) | |
2122 | TIU ID CAN RECEIVE | |
2123 | "KRN",19,1 0989,"RPC" ,1713,0) | |
2124 | TIU ID DET ACH ENTRY | |
2125 | "KRN",19,1 0989,"RPC" ,1714,0) | |
2126 | ORWCOM GET OBJS | |
2127 | "KRN",19,1 0989,"RPC" ,1715,0) | |
2128 | ORWCOM DET AILS | |
2129 | "KRN",19,1 0989,"RPC" ,1716,0) | |
2130 | ORWCOM PTO BJ | |
2131 | "KRN",19,1 0989,"RPC" ,1718,0) | |
2132 | TIU TEMPLA TE GETLINK | |
2133 | "KRN",19,1 0989,"RPC" ,1719,0) | |
2134 | TIU TEMPLA TE ALL TIT LES | |
2135 | "KRN",19,1 0989,"RPC" ,1720,0) | |
2136 | ORWSR LIST | |
2137 | "KRN",19,1 0989,"RPC" ,1721,0) | |
2138 | ORWSR SHOW SURG TAB | |
2139 | "KRN",19,1 0989,"RPC" ,1722,0) | |
2140 | ORWSR GET SURG CONTE XT | |
2141 | "KRN",19,1 0989,"RPC" ,1723,0) | |
2142 | ORWSR SAVE SURG CONT EXT | |
2143 | "KRN",19,1 0989,"RPC" ,1724,0) | |
2144 | ORWSR ONEC ASE | |
2145 | "KRN",19,1 0989,"RPC" ,1727,0) | |
2146 | ORWSR SHOW OPTOP WHE N SIGNING | |
2147 | "KRN",19,1 0989,"RPC" ,1728,0) | |
2148 | ORWSR IS N ON-OR PROC EDURE | |
2149 | "KRN",19,1 0989,"RPC" ,1729,0) | |
2150 | ORWSR CASE LIST | |
2151 | "KRN",19,1 0989,"RPC" ,1730,0) | |
2152 | ORQQCN GET PROC IEN | |
2153 | "KRN",19,1 0989,"RPC" ,1731,0) | |
2154 | ORWRP PRIN T V REPORT | |
2155 | "KRN",19,1 0989,"RPC" ,1732,0) | |
2156 | ORWRP3 EXP AND COLUMN S | |
2157 | "KRN",19,1 0989,"RPC" ,1733,0) | |
2158 | ORWTPD ACT DF | |
2159 | "KRN",19,1 0989,"RPC" ,1734,0) | |
2160 | ORWTPD DEL DFLT | |
2161 | "KRN",19,1 0989,"RPC" ,1735,0) | |
2162 | ORWTPD GET DFLT | |
2163 | "KRN",19,1 0989,"RPC" ,1736,0) | |
2164 | ORWTPD RSD FLT | |
2165 | "KRN",19,1 0989,"RPC" ,1737,0) | |
2166 | ORWTPD SUD F | |
2167 | "KRN",19,1 0989,"RPC" ,1738,0) | |
2168 | ORWTPD SUI NDV | |
2169 | "KRN",19,1 0989,"RPC" ,1739,0) | |
2170 | ORWTPD GET SETS | |
2171 | "KRN",19,1 0989,"RPC" ,1740,0) | |
2172 | ORWCOM ORD EROBJ | |
2173 | "KRN",19,1 0989,"RPC" ,1741,0) | |
2174 | ORWRP2 COM PABV | |
2175 | "KRN",19,1 0989,"RPC" ,1742,0) | |
2176 | ORWRP2 GET LKUP | |
2177 | "KRN",19,1 0989,"RPC" ,1743,0) | |
2178 | ORWRP2 SAV LKUP | |
2179 | "KRN",19,1 0989,"RPC" ,1744,0) | |
2180 | ORWRP2 COM PDISP | |
2181 | "KRN",19,1 0989,"RPC" ,1745,0) | |
2182 | ORWPCE ISC LINIC | |
2183 | "KRN",19,1 0989,"RPC" ,1746,0) | |
2184 | ORWCH SAVE COL | |
2185 | "KRN",19,1 0989,"RPC" ,1747,0) | |
2186 | ORWSR RPTL IST | |
2187 | "KRN",19,1 0989,"RPC" ,1748,0) | |
2188 | ORQQPXRM M ST UPDATE | |
2189 | "KRN",19,1 0989,"RPC" ,1749,0) | |
2190 | ORWMC PATI ENT PROCED URES1 | |
2191 | "KRN",19,1 0989,"RPC" ,1750,0) | |
2192 | ORWRA IMAG ING EXAMS1 | |
2193 | "KRN",19,1 0989,"RPC" ,1751,0) | |
2194 | ORWRA REPO RT TEXT1 | |
2195 | "KRN",19,1 0989,"RPC" ,1752,0) | |
2196 | ORWDPS4 CP INFO | |
2197 | "KRN",19,1 0989,"RPC" ,1753,0) | |
2198 | ORWDPS4 CP LST | |
2199 | "KRN",19,1 0989,"RPC" ,1754,0) | |
2200 | ORWORB KIL L UNVER ME DS ALERT | |
2201 | "KRN",19,1 0989,"RPC" ,1755,0) | |
2202 | ORWORB KIL L UNVER OR DERS ALERT | |
2203 | "KRN",19,1 0989,"RPC" ,1756,0) | |
2204 | ORWPCE HNC OK | |
2205 | "KRN",19,1 0989,"RPC" ,1757,0) | |
2206 | ORWPS MEDH IST | |
2207 | "KRN",19,1 0989,"RPC" ,1758,0) | |
2208 | TIU FIELD CHECK | |
2209 | "KRN",19,1 0989,"RPC" ,1759,0) | |
2210 | TIU FIELD LIST ADD | |
2211 | "KRN",19,1 0989,"RPC" ,1760,0) | |
2212 | TIU FIELD LIST IMPOR T | |
2213 | "KRN",19,1 0989,"RPC" ,1761,0) | |
2214 | TIU SET DO CUMENT TEX T | |
2215 | "KRN",19,1 0989,"RPC" ,1762,0) | |
2216 | ORWDPS2 CH KPI | |
2217 | "KRN",19,1 0989,"RPC" ,1763,0) | |
2218 | ORWDXR GTO RITM | |
2219 | "KRN",19,1 0989,"RPC" ,1764,0) | |
2220 | ORWDPS2 CH KGRP | |
2221 | "KRN",19,1 0989,"RPC" ,1765,0) | |
2222 | ORWDPS2 QO GRP | |
2223 | "KRN",19,1 0989,"RPC" ,1766,0) | |
2224 | ORWDXR GET PKG | |
2225 | "KRN",19,1 0989,"RPC" ,1767,0) | |
2226 | ORQPT MAKE RPL | |
2227 | "KRN",19,1 0989,"RPC" ,1768,0) | |
2228 | ORQPT READ RPL | |
2229 | "KRN",19,1 0989,"RPC" ,1769,0) | |
2230 | ORQPT KILL RPL | |
2231 | "KRN",19,1 0989,"RPC" ,1770,0) | |
2232 | ORWTIU GET SAVED CP FIELDS | |
2233 | "KRN",19,1 0989,"RPC" ,1771,0) | |
2234 | ORWDPS1 LO CPICK | |
2235 | "KRN",19,1 0989,"RPC" ,1772,0) | |
2236 | ORWPT LAST 5 RPL | |
2237 | "KRN",19,1 0989,"RPC" ,1773,0) | |
2238 | ORWPT FULL SSN RPL | |
2239 | "KRN",19,1 0989,"RPC" ,1774,0) | |
2240 | ORWOR PKIU SE | |
2241 | "KRN",19,1 0989,"RPC" ,1775,0) | |
2242 | ORWOR1 SIG | |
2243 | "KRN",19,1 0989,"RPC" ,1776,0) | |
2244 | ORWOR1 CHK DIG | |
2245 | "KRN",19,1 0989,"RPC" ,1777,0) | |
2246 | ORWOR1 GET DTEXT | |
2247 | "KRN",19,1 0989,"RPC" ,1778,0) | |
2248 | ORWOR1 GET DSIG | |
2249 | "KRN",19,1 0989,"RPC" ,1779,0) | |
2250 | ORWTPD GET IMG | |
2251 | "KRN",19,1 0989,"RPC" ,1780,0) | |
2252 | OREVNTX1 P RMPTID | |
2253 | "KRN",19,1 0989,"RPC" ,1781,0) | |
2254 | ORECS01 CH KESSO | |
2255 | "KRN",19,1 0989,"RPC" ,1782,0) | |
2256 | ORECS01 VS ITID | |
2257 | "KRN",19,1 0989,"RPC" ,1784,0) | |
2258 | OREVNTX LI ST | |
2259 | "KRN",19,1 0989,"RPC" ,1785,0) | |
2260 | OREVNTX PA T | |
2261 | "KRN",19,1 0989,"RPC" ,1786,0) | |
2262 | OREVNTX1 G TEVT | |
2263 | "KRN",19,1 0989,"RPC" ,1787,0) | |
2264 | OREVNTX1 C PACT | |
2265 | "KRN",19,1 0989,"RPC" ,1788,0) | |
2266 | OREVNTX1 C URSPE | |
2267 | "KRN",19,1 0989,"RPC" ,1789,0) | |
2268 | OREVNTX1 C HGEVT | |
2269 | "KRN",19,1 0989,"RPC" ,1790,0) | |
2270 | OREVNTX1 D ELPTEVT | |
2271 | "KRN",19,1 0989,"RPC" ,1791,0) | |
2272 | OREVNTX1 D FLTEVT | |
2273 | "KRN",19,1 0989,"RPC" ,1792,0) | |
2274 | OREVNTX AC TIVE | |
2275 | "KRN",19,1 0989,"RPC" ,1793,0) | |
2276 | OREVNTX1 P UTEVNT | |
2277 | "KRN",19,1 0989,"RPC" ,1794,0) | |
2278 | OREVNTX1 W RLSTED | |
2279 | "KRN",19,1 0989,"RPC" ,1795,0) | |
2280 | OREVNTX1 E VT | |
2281 | "KRN",19,1 0989,"RPC" ,1796,0) | |
2282 | OREVNTX1 N AME | |
2283 | "KRN",19,1 0989,"RPC" ,1797,0) | |
2284 | OREVNTX1 M ATCH | |
2285 | "KRN",19,1 0989,"RPC" ,1798,0) | |
2286 | OREVNTX1 E MPTY | |
2287 | "KRN",19,1 0989,"RPC" ,1799,0) | |
2288 | OREVNTX1 E XISTS | |
2289 | "KRN",19,1 0989,"RPC" ,1800,0) | |
2290 | OREVNTX1 G TEVT1 | |
2291 | "KRN",19,1 0989,"RPC" ,1801,0) | |
2292 | OREVNTX1 D IV | |
2293 | "KRN",19,1 0989,"RPC" ,1802,0) | |
2294 | OREVNTX1 D IV1 | |
2295 | "KRN",19,1 0989,"RPC" ,1803,0) | |
2296 | OREVNTX1 L OC | |
2297 | "KRN",19,1 0989,"RPC" ,1804,0) | |
2298 | OREVNTX1 L OC1 | |
2299 | "KRN",19,1 0989,"RPC" ,1805,0) | |
2300 | ORWDX SEND ED | |
2301 | "KRN",19,1 0989,"RPC" ,1806,0) | |
2302 | OREVNTX1 G ETDLG | |
2303 | "KRN",19,1 0989,"RPC" ,1807,0) | |
2304 | ORECS01 EC PRINT | |
2305 | "KRN",19,1 0989,"RPC" ,1811,0) | |
2306 | ORECS01 EC RPT | |
2307 | "KRN",19,1 0989,"RPC" ,1812,0) | |
2308 | OREVNTX1 I SDCOD | |
2309 | "KRN",19,1 0989,"RPC" ,1813,0) | |
2310 | OREVNTX1 S ETDFLT | |
2311 | "KRN",19,1 0989,"RPC" ,1815,0) | |
2312 | TIU IS THI S A CLINPR OC? | |
2313 | "KRN",19,1 0989,"RPC" ,1816,0) | |
2314 | TIU IDENTI FY CLINPRO C CLASS | |
2315 | "KRN",19,1 0989,"RPC" ,1817,0) | |
2316 | TIU LONG L IST CLINPR OC TITLES | |
2317 | "KRN",19,1 0989,"RPC" ,1819,0) | |
2318 | ORWDPS1 HA SOIPI | |
2319 | "KRN",19,1 0989,"RPC" ,1821,0) | |
2320 | OREVNTX1 D EFLTS | |
2321 | "KRN",19,1 0989,"RPC" ,1822,0) | |
2322 | OREVNTX1 M ULTS | |
2323 | "KRN",19,1 0989,"RPC" ,1823,0) | |
2324 | OREVNTX1 D ONE | |
2325 | "KRN",19,1 0989,"RPC" ,1824,0) | |
2326 | OREVNTX1 P ROMPT IDS | |
2327 | "KRN",19,1 0989,"RPC" ,1825,0) | |
2328 | ORWCIRN CH ECKLINK | |
2329 | "KRN",19,1 0989,"RPC" ,1826,0) | |
2330 | XWB DIRECT RPC | |
2331 | "KRN",19,1 0989,"RPC" ,1827,0) | |
2332 | ORWDPS1 HA SROUTE | |
2333 | "KRN",19,1 0989,"RPC" ,1828,0) | |
2334 | ORQQCN UNR ESOLVED | |
2335 | "KRN",19,1 0989,"RPC" ,1829,0) | |
2336 | OREVNTX1 D ELDFLT | |
2337 | "KRN",19,1 0989,"RPC" ,1830,0) | |
2338 | ORWCH LDFO NT | |
2339 | "KRN",19,1 0989,"RPC" ,1831,0) | |
2340 | ORWU1 NAME CVT | |
2341 | "KRN",19,1 0989,"RPC" ,1832,0) | |
2342 | OREVNTX1 D FLTDLG | |
2343 | "KRN",19,1 0989,"RPC" ,1833,0) | |
2344 | ORWDPS5 LE SAPI | |
2345 | "KRN",19,1 0989,"RPC" ,1834,0) | |
2346 | ORWDPS5 LE SGRP | |
2347 | "KRN",19,1 0989,"RPC" ,1839,0) | |
2348 | OREVNTX1 T YPEXT | |
2349 | "KRN",19,1 0989,"RPC" ,1840,0) | |
2350 | ORWORR RGE T | |
2351 | "KRN",19,1 0989,"RPC" ,1841,0) | |
2352 | OREVNTX1 A UTHMREL | |
2353 | "KRN",19,1 0989,"RPC" ,1842,0) | |
2354 | OREVNTX1 H AVEPRT | |
2355 | "KRN",19,1 0989,"RPC" ,1843,0) | |
2356 | OREVNTX1 C MEVTS | |
2357 | "KRN",19,1 0989,"RPC" ,1844,0) | |
2358 | OREVNTX1 O DPTEVID | |
2359 | "KRN",19,1 0989,"RPC" ,1845,0) | |
2360 | ORWOR PKIS ITE | |
2361 | "KRN",19,1 0989,"RPC" ,1846,0) | |
2362 | OREVNTX1 C OMP | |
2363 | "KRN",19,1 0989,"RPC" ,1847,0) | |
2364 | OREVNTX1 I SHDORD | |
2365 | "KRN",19,1 0989,"RPC" ,1848,0) | |
2366 | ORWDXR ORC PLX | |
2367 | "KRN",19,1 0989,"RPC" ,1849,0) | |
2368 | OREVNTX1 I SPASS | |
2369 | "KRN",19,1 0989,"RPC" ,1850,0) | |
2370 | OREVNTX1 I SPASS1 | |
2371 | "KRN",19,1 0989,"RPC" ,1851,0) | |
2372 | OREVNTX1 D LGIEN | |
2373 | "KRN",19,1 0989,"RPC" ,1852,0) | |
2374 | ORWDXR CAN RN | |
2375 | "KRN",19,1 0989,"RPC" ,1853,0) | |
2376 | ORWDXR ISC PLX | |
2377 | "KRN",19,1 0989,"RPC" ,1854,0) | |
2378 | ORWDXA OFC PLX | |
2379 | "KRN",19,1 0989,"RPC" ,1855,0) | |
2380 | ORQQPX GET NOT PURPO SE | |
2381 | "KRN",19,1 0989,"RPC" ,1856,0) | |
2382 | ORWDPS1 IV DEA | |
2383 | "KRN",19,1 0989,"RPC" ,1857,0) | |
2384 | ORWDXR ISN OW | |
2385 | "KRN",19,1 0989,"RPC" ,1858,0) | |
2386 | ORRHCQ QRY ITR | |
2387 | "KRN",19,1 0989,"RPC" ,1859,0) | |
2388 | OREVNTX1 G ETSTS | |
2389 | "KRN",19,1 0989,"RPC" ,1860,0) | |
2390 | ORWU DEFAU LT DIVISIO N | |
2391 | "KRN",19,1 0989,"RPC" ,1861,0) | |
2392 | ORWDXA ISA CTOI | |
2393 | "KRN",19,1 0989,"RPC" ,1862,0) | |
2394 | ORECS01 SA VPATH | |
2395 | "KRN",19,1 0989,"RPC" ,1863,0) | |
2396 | ORWOR RESU LT HISTORY | |
2397 | "KRN",19,1 0989,"RPC" ,1864,0) | |
2398 | XUS GET TO KEN | |
2399 | "KRN",19,1 0989,"RPC" ,1865,0) | |
2400 | ORQQPX IMM UN LIST | |
2401 | "KRN",19,1 0989,"RPC" ,1866,0) | |
2402 | XWB DEFERR ED CLEARAL L | |
2403 | "KRN",19,1 0989,"RPC" ,1867,0) | |
2404 | ORWOR1 SET DTEXT | |
2405 | "KRN",19,1 0989,"RPC" ,1868,0) | |
2406 | ORWOR1 GET DEA | |
2407 | "KRN",19,1 0989,"RPC" ,1869,0) | |
2408 | ORWOR1 GET DSCH | |
2409 | "KRN",19,1 0989,"RPC" ,1870,0) | |
2410 | ORWORB TEX T FOLLOWUP | |
2411 | "KRN",19,1 0989,"RPC" ,1871,0) | |
2412 | ORWU1 NEWL OC | |
2413 | "KRN",19,1 0989,"RPC" ,1872,0) | |
2414 | ORWPCE ACT IVE CODE | |
2415 | "KRN",19,1 0989,"RPC" ,1873,0) | |
2416 | ORQQPXRM G ET WH LETT ER TEXT | |
2417 | "KRN",19,1 0989,"RPC" ,1874,0) | |
2418 | ORQQPXRM G ET WH LETT ER TYPE | |
2419 | "KRN",19,1 0989,"RPC" ,1875,0) | |
2420 | ORQQPXRM G ET WH PROC RESULT | |
2421 | "KRN",19,1 0989,"RPC" ,1876,0) | |
2422 | ORQQPXRM W OMEN HEALT H SAVE | |
2423 | "KRN",19,1 0989,"RPC" ,1877,0) | |
2424 | ORB FORWAR D ALERT | |
2425 | "KRN",19,1 0989,"RPC" ,1878,0) | |
2426 | ORB RENEW ALERT | |
2427 | "KRN",19,1 0989,"RPC" ,1879,0) | |
2428 | ORPRF CLEA R | |
2429 | "KRN",19,1 0989,"RPC" ,1880,0) | |
2430 | ORPRF GETF LG | |
2431 | "KRN",19,1 0989,"RPC" ,1881,0) | |
2432 | ORPRF HASF LG | |
2433 | "KRN",19,1 0989,"RPC" ,1882,0) | |
2434 | ORWTPD GET OCM | |
2435 | "KRN",19,1 0989,"RPC" ,1883,0) | |
2436 | TIU ONE VI SIT NOTE? | |
2437 | "KRN",19,1 0989,"RPC" ,1884,0) | |
2438 | VAFCTFU CO NVERT ICN TO DFN | |
2439 | "KRN",19,1 0989,"RPC" ,1885,0) | |
2440 | ORIMO IMOL OC | |
2441 | "KRN",19,1 0989,"RPC" ,1886,0) | |
2442 | ORIMO IMOO D | |
2443 | "KRN",19,1 0989,"RPC" ,1887,0) | |
2444 | ORWDPS4 IP OD4OP | |
2445 | "KRN",19,1 0989,"RPC" ,1888,0) | |
2446 | ORWDPS4 UP DTDG | |
2447 | "KRN",19,1 0989,"RPC" ,1889,0) | |
2448 | TIU USER I NACTIVE? | |
2449 | "KRN",19,1 0989,"RPC" ,1890,0) | |
2450 | ORWTPD PUT OCM | |
2451 | "KRN",19,1 0989,"RPC" ,1891,0) | |
2452 | ORWOR ACTI ON TEXT | |
2453 | "KRN",19,1 0989,"RPC" ,1892,0) | |
2454 | ORQQPXRM G EC DIALOG | |
2455 | "KRN",19,1 0989,"RPC" ,1893,0) | |
2456 | ORQQPXRM G ET WH REPO RT TEXT | |
2457 | "KRN",19,1 0989,"RPC" ,1894,0) | |
2458 | ORWDXR01 C ANCHG | |
2459 | "KRN",19,1 0989,"RPC" ,1895,0) | |
2460 | ORWDXR01 S AVCHG | |
2461 | "KRN",19,1 0989,"RPC" ,1896,0) | |
2462 | TIU HAS AU THOR SIGNE D? | |
2463 | "KRN",19,1 0989,"RPC" ,1897,0) | |
2464 | ORQQPXRM C HECK REM V ERSION | |
2465 | "KRN",19,1 0989,"RPC" ,1898,0) | |
2466 | ORQQPXRM G EC STATUS PROMPT | |
2467 | "KRN",19,1 0989,"RPC" ,1899,0) | |
2468 | ORQQPXRM G EC STATUS PROMPT | |
2469 | "KRN",19,1 0989,"RPC" ,1900,0) | |
2470 | ORWDAL32 S END BULLET IN | |
2471 | "KRN",19,1 0989,"RPC" ,1901,0) | |
2472 | ORWDBA1 OR PKGTYP | |
2473 | "KRN",19,1 0989,"RPC" ,1902,0) | |
2474 | ORWDXR01 I SSPLY | |
2475 | "KRN",19,1 0989,"RPC" ,1903,0) | |
2476 | ORWDBA1 RC VORCI | |
2477 | "KRN",19,1 0989,"RPC" ,1904,0) | |
2478 | ORWPS REAS ON | |
2479 | "KRN",19,1 0989,"RPC" ,1905,0) | |
2480 | ORQQPXRM G EC FINISHE D? | |
2481 | "KRN",19,1 0989,"RPC" ,1906,0) | |
2482 | ORWDXM3 IS UDQO | |
2483 | "KRN",19,1 0989,"RPC" ,1908,0) | |
2484 | ORWDBA1 SC LST | |
2485 | "KRN",19,1 0989,"RPC" ,1909,0) | |
2486 | ORWDXR01 O XDATA | |
2487 | "KRN",19,1 0989,"RPC" ,1914,0) | |
2488 | ORWDBA1 BA STATUS | |
2489 | "KRN",19,1 0989,"RPC" ,1920,0) | |
2490 | ORWORB SET SORT | |
2491 | "KRN",19,1 0989,"RPC" ,1921,0) | |
2492 | ORWORB GET SORT | |
2493 | "KRN",19,1 0989,"RPC" ,1922,0) | |
2494 | ORWOR EXPI RED | |
2495 | "KRN",19,1 0989,"RPC" ,1928,0) | |
2496 | ORECS01 GE TDIV | |
2497 | "KRN",19,1 0989,"RPC" ,1933,0) | |
2498 | ORWTPD1 GE TEFDAT | |
2499 | "KRN",19,1 0989,"RPC" ,1934,0) | |
2500 | ORWTPD1 GE TEDATS | |
2501 | "KRN",19,1 0989,"RPC" ,1935,0) | |
2502 | ORWTPD1 PU TEDATS | |
2503 | "KRN",19,1 0989,"RPC" ,1936,0) | |
2504 | ORWTPD1 GE TCSDEF | |
2505 | "KRN",19,1 0989,"RPC" ,1937,0) | |
2506 | ORWTPD1 GE TCSRNG | |
2507 | "KRN",19,1 0989,"RPC" ,1938,0) | |
2508 | ORWTPD1 PU TCSRNG | |
2509 | "KRN",19,1 0989,"RPC" ,1939,0) | |
2510 | ORWTPD1 GE TEAFL | |
2511 | "KRN",19,1 0989,"RPC" ,1940,0) | |
2512 | ORWDBA1 GE TORDX | |
2513 | "KRN",19,1 0989,"RPC" ,1941,0) | |
2514 | ORWDBA3 HI NTS | |
2515 | "KRN",19,1 0989,"RPC" ,1942,0) | |
2516 | ORWDAL32 L OAD FOR ED IT | |
2517 | "KRN",19,1 0989,"RPC" ,1943,0) | |
2518 | ORWDAL32 S AVE ALLERG Y | |
2519 | "KRN",19,1 0989,"RPC" ,1944,0) | |
2520 | ORWDAL32 S ITE PARAMS | |
2521 | "KRN",19,1 0989,"RPC" ,1945,0) | |
2522 | ORWPCE CXN OSHOW | |
2523 | "KRN",19,1 0989,"RPC" ,1946,0) | |
2524 | ORWDBA2 AD DPDL | |
2525 | "KRN",19,1 0989,"RPC" ,1947,0) | |
2526 | ORWDBA2 DE LPDL | |
2527 | "KRN",19,1 0989,"RPC" ,1948,0) | |
2528 | ORWDBA2 GE TDUDC | |
2529 | "KRN",19,1 0989,"RPC" ,1949,0) | |
2530 | ORWDBA2 GE TPDL | |
2531 | "KRN",19,1 0989,"RPC" ,1950,0) | |
2532 | ORWDBA4 GE TBAUSR | |
2533 | "KRN",19,1 0989,"RPC" ,1951,0) | |
2534 | ORWDBA4 GE TTFCI | |
2535 | "KRN",19,1 0989,"RPC" ,1952,0) | |
2536 | ORWNSS NSS MSG | |
2537 | "KRN",19,1 0989,"RPC" ,1953,0) | |
2538 | ORWNSS QOS CH | |
2539 | "KRN",19,1 0989,"RPC" ,1954,0) | |
2540 | ORWNSS VAL SCH | |
2541 | "KRN",19,1 0989,"RPC" ,1955,0) | |
2542 | ORWNSS CHK SCH | |
2543 | "KRN",19,1 0989,"RPC" ,1956,0) | |
2544 | ORWDPS4 IS UDIV | |
2545 | "KRN",19,1 0989,"RPC" ,1957,0) | |
2546 | ORWDPS32 A UTHNVA | |
2547 | "KRN",19,1 0989,"RPC" ,1962,0) | |
2548 | ORWTIU CHK TXT | |
2549 | "KRN",19,1 0989,"RPC" ,1964,0) | |
2550 | ORWDPS5 IS VTP | |
2551 | "KRN",19,1 0989,"RPC" ,1965,0) | |
2552 | TIU IS THI S A SURGER Y? | |
2553 | "KRN",19,1 0989,"RPC" ,1966,0) | |
2554 | TIU IDENTI FY SURGERY CLASS | |
2555 | "KRN",19,1 0989,"RPC" ,1967,0) | |
2556 | TIU LONG L IST SURGER Y TITLES | |
2557 | "KRN",19,1 0989,"RPC" ,1968,0) | |
2558 | TIU GET DO CUMENTS FO R REQUEST | |
2559 | "KRN",19,1 0989,"RPC" ,1969,0) | |
2560 | TIU SET AD MINISTRATI VE CLOSURE | |
2561 | "KRN",19,1 0989,"RPC" ,1970,0) | |
2562 | ORBCMA5 GE TUDID | |
2563 | "KRN",19,1 0989,"RPC" ,1973,0) | |
2564 | ORIMO ISCL OC | |
2565 | "KRN",19,1 0989,"RPC" ,1974,0) | |
2566 | ORIMO ISIV QO | |
2567 | "KRN",19,1 0989,"RPC" ,1975,0) | |
2568 | ORWDBA7 GE TIEN9 | |
2569 | "KRN",19,1 0989,"RPC" ,1976,0) | |
2570 | ORWGN GNLO C | |
2571 | "KRN",19,1 0989,"RPC" ,1977,0) | |
2572 | ORWGN AUTH USR | |
2573 | "KRN",19,1 0989,"RPC" ,1978,0) | |
2574 | ORVAA VAA | |
2575 | "KRN",19,1 0989,"RPC" ,1981,0) | |
2576 | ORWDAL32 C LINUSER | |
2577 | "KRN",19,1 0989,"RPC" ,1982,0) | |
2578 | ORWDBA7 IS WITCH | |
2579 | "KRN",19,1 0989,"RPC" ,1983,0) | |
2580 | ORWDFH CUR RENT MEALS | |
2581 | "KRN",19,1 0989,"RPC" ,1984,0) | |
2582 | ORWDFH NFS LOC READY | |
2583 | "KRN",19,1 0989,"RPC" ,1985,0) | |
2584 | ORWDFH OPD IETS | |
2585 | "KRN",19,1 0989,"RPC" ,1986,0) | |
2586 | ORWMHV MHV | |
2587 | "KRN",19,1 0989,"RPC" ,1987,0) | |
2588 | ORWPCE1 NO NCOUNT | |
2589 | "KRN",19,1 0989,"RPC" ,1988,0) | |
2590 | ORWPFSS IS PFSS ACTI VE? | |
2591 | "KRN",19,1 0989,"RPC" ,1989,0) | |
2592 | GMV EXTRAC T REC | |
2593 | "KRN",19,1 0989,"RPC" ,1990,0) | |
2594 | GMV MARK E RROR | |
2595 | "KRN",19,1 0989,"RPC" ,1991,0) | |
2596 | ORWDXVB CO MPORD | |
2597 | "KRN",19,1 0989,"RPC" ,1992,0) | |
2598 | ORWDXVB GE TALL | |
2599 | "KRN",19,1 0989,"RPC" ,1993,0) | |
2600 | ORWDXVB RA W | |
2601 | "KRN",19,1 0989,"RPC" ,1994,0) | |
2602 | ORWDXVB RE SULTS | |
2603 | "KRN",19,1 0989,"RPC" ,1995,0) | |
2604 | ORWDXVB ST ATALOW | |
2605 | "KRN",19,1 0989,"RPC" ,1996,0) | |
2606 | ORWGRPC AL LITEMS | |
2607 | "KRN",19,1 0989,"RPC" ,1997,0) | |
2608 | ORWGRPC CL ASS | |
2609 | "KRN",19,1 0989,"RPC" ,1998,0) | |
2610 | ORWGRPC DA TEITEM | |
2611 | "KRN",19,1 0989,"RPC" ,1999,0) | |
2612 | ORWGRPC DE LVIEWS | |
2613 | "KRN",19,1 0989,"RPC" ,2000,0) | |
2614 | ORWGRPC DE TAILS | |
2615 | "KRN",19,1 0989,"RPC" ,2001,0) | |
2616 | ORWGRPC GE TDATES | |
2617 | "KRN",19,1 0989,"RPC" ,2002,0) | |
2618 | ORWGRPC GE TPREF | |
2619 | "KRN",19,1 0989,"RPC" ,2003,0) | |
2620 | ORWGRPC GE TVIEWS | |
2621 | "KRN",19,1 0989,"RPC" ,2004,0) | |
2622 | ORWGRPC IT EMDATA | |
2623 | "KRN",19,1 0989,"RPC" ,2005,0) | |
2624 | ORWGRPC IT EMS | |
2625 | "KRN",19,1 0989,"RPC" ,2006,0) | |
2626 | ORWGRPC LO OKUP | |
2627 | "KRN",19,1 0989,"RPC" ,2007,0) | |
2628 | ORWGRPC PU BLIC | |
2629 | "KRN",19,1 0989,"RPC" ,2008,0) | |
2630 | ORWGRPC RP TPARAM | |
2631 | "KRN",19,1 0989,"RPC" ,2009,0) | |
2632 | ORWGRPC SE TPREF | |
2633 | "KRN",19,1 0989,"RPC" ,2010,0) | |
2634 | ORWGRPC SE TVIEWS | |
2635 | "KRN",19,1 0989,"RPC" ,2011,0) | |
2636 | ORWGRPC TE STSPEC | |
2637 | "KRN",19,1 0989,"RPC" ,2012,0) | |
2638 | ORWGRPC TY PES | |
2639 | "KRN",19,1 0989,"RPC" ,2013,0) | |
2640 | TIU GET DO CUMENT STA TUS | |
2641 | "KRN",19,1 0989,"RPC" ,2014,0) | |
2642 | TIU GET PR F ACTIONS | |
2643 | "KRN",19,1 0989,"RPC" ,2015,0) | |
2644 | TIU ISPRF | |
2645 | "KRN",19,1 0989,"RPC" ,2016,0) | |
2646 | TIU LINK T O FLAG | |
2647 | "KRN",19,1 0989,"RPC" ,2017,0) | |
2648 | ORWGRPC DE TAIL | |
2649 | "KRN",19,1 0989,"RPC" ,2018,0) | |
2650 | ORWU VERSI ON | |
2651 | "KRN",19,1 0989,"RPC" ,2019,0) | |
2652 | GMV ALLERG Y | |
2653 | "KRN",19,1 0989,"RPC" ,2020,0) | |
2654 | ORWCIRN WE BADDR | |
2655 | "KRN",19,1 0989,"RPC" ,2023,0) | |
2656 | ORWGRPC TA X | |
2657 | "KRN",19,1 0989,"RPC" ,2024,0) | |
2658 | GMV DLL VE RSION | |
2659 | "KRN",19,1 0989,"RPC" ,2025,0) | |
2660 | ORWDX CHAN GE | |
2661 | "KRN",19,1 0989,"RPC" ,2026,0) | |
2662 | GMV ADD VM | |
2663 | "KRN",19,1 0989,"RPC" ,2027,0) | |
2664 | GMV CONVER T DATE | |
2665 | "KRN",19,1 0989,"RPC" ,2028,0) | |
2666 | GMV GET CA TEGORY IEN | |
2667 | "KRN",19,1 0989,"RPC" ,2029,0) | |
2668 | GMV GET CU RRENT TIME | |
2669 | "KRN",19,1 0989,"RPC" ,2030,0) | |
2670 | GMV GET VI TAL TYPE I EN | |
2671 | "KRN",19,1 0989,"RPC" ,2031,0) | |
2672 | GMV LATEST VM | |
2673 | "KRN",19,1 0989,"RPC" ,2032,0) | |
2674 | GMV MANAGE R | |
2675 | "KRN",19,1 0989,"RPC" ,2033,0) | |
2676 | GMV PARAME TER | |
2677 | "KRN",19,1 0989,"RPC" ,2034,0) | |
2678 | GMV USER | |
2679 | "KRN",19,1 0989,"RPC" ,2035,0) | |
2680 | GMV VITALS /CAT/QUAL | |
2681 | "KRN",19,1 0989,"RPC" ,2036,0) | |
2682 | GMV V/M AL LDATA | |
2683 | "KRN",19,1 0989,"RPC" ,2037,0) | |
2684 | TIU GET LI NKED PRF N OTES | |
2685 | "KRN",19,1 0989,"RPC" ,2038,0) | |
2686 | TIU GET PR F TITLE | |
2687 | "KRN",19,1 0989,"RPC" ,2039,0) | |
2688 | ORWDX1 PAT WARD | |
2689 | "KRN",19,1 0989,"RPC" ,2040,0) | |
2690 | ORWRP4 HDR MODIFY | |
2691 | "KRN",19,1 0989,"RPC" ,2041,0) | |
2692 | ORWDX1 STC HANGE | |
2693 | "KRN",19,1 0989,"RPC" ,2042,0) | |
2694 | ORWDX1 DCR EN | |
2695 | "KRN",19,1 0989,"RPC" ,2043,0) | |
2696 | ORQQPXRM M HV | |
2697 | "KRN",19,1 0989,"RPC" ,2044,0) | |
2698 | ORWGRPC GE TSIZE | |
2699 | "KRN",19,1 0989,"RPC" ,2045,0) | |
2700 | ORWGRPC SE TSIZE | |
2701 | "KRN",19,1 0989,"RPC" ,2046,0) | |
2702 | GMV LOCATI ON SELECT | |
2703 | "KRN",19,1 0989,"RPC" ,2047,0) | |
2704 | ORWCIRN AU TORDV | |
2705 | "KRN",19,1 0989,"RPC" ,2048,0) | |
2706 | ORPRF TRIG GER POPUP | |
2707 | "KRN",19,1 0989,"RPC" ,2049,0) | |
2708 | ORWCIRN HD RON | |
2709 | "KRN",19,1 0989,"RPC" ,2051,0) | |
2710 | ORCDLR2 CH ECK ALL LC TO WC | |
2711 | "KRN",19,1 0989,"RPC" ,2052,0) | |
2712 | ORCDLR2 CH ECK ONE LC TO WC | |
2713 | "KRN",19,1 0989,"RPC" ,2053,0) | |
2714 | ORALWORD A LLWORD | |
2715 | "KRN",19,1 0989,"RPC" ,2054,0) | |
2716 | ORWDX1 ORD MATCH | |
2717 | "KRN",19,1 0989,"RPC" ,2055,0) | |
2718 | ORWDX1 DCO RIG | |
2719 | "KRN",19,1 0989,"RPC" ,2056,0) | |
2720 | ORWDX1 UND CORIG | |
2721 | "KRN",19,1 0989,"RPC" ,2057,0) | |
2722 | ORWDXVB SU BCHK | |
2723 | "KRN",19,1 0989,"RPC" ,2058,0) | |
2724 | ORDDPAPI A DMTIME | |
2725 | "KRN",19,1 0989,"RPC" ,2059,0) | |
2726 | ORWU PARAM S | |
2727 | "KRN",19,1 0989,"RPC" ,2060,0) | |
2728 | ORWDPS1 DO WSCH | |
2729 | "KRN",19,1 0989,"RPC" ,2061,0) | |
2730 | ORWDPS33 C OMPLOC | |
2731 | "KRN",19,1 0989,"RPC" ,2062,0) | |
2732 | ORWGRPC FA STDATA | |
2733 | "KRN",19,1 0989,"RPC" ,2063,0) | |
2734 | ORWGRPC FA STITEM | |
2735 | "KRN",19,1 0989,"RPC" ,2064,0) | |
2736 | ORWGRPC FA STTASK | |
2737 | "KRN",19,1 0989,"RPC" ,2065,0) | |
2738 | ORWGRPC FA STLABS | |
2739 | "KRN",19,1 0989,"RPC" ,2066,0) | |
2740 | ORWDPS1 QO MEDALT | |
2741 | "KRN",19,1 0989,"RPC" ,2067,0) | |
2742 | ORWGRPC AL LVIEWS | |
2743 | "KRN",19,1 0989,"RPC" ,2068,0) | |
2744 | ORDDPAPI C LOZMSG | |
2745 | "KRN",19,1 0989,"RPC" ,2069,0) | |
2746 | ORWGRPC TE STING | |
2747 | "KRN",19,1 0989,"RPC" ,2070,0) | |
2748 | ORQQPXRM M HDLL | |
2749 | "KRN",19,1 0989,"RPC" ,2071,0) | |
2750 | ORWDLR33 L C TO WC | |
2751 | "KRN",19,1 0989,"RPC" ,2072,0) | |
2752 | ORWU2 COSI GNER | |
2753 | "KRN",19,1 0989,"RPC" ,2073,0) | |
2754 | ORWDXVB NU RSADMN | |
2755 | "KRN",19,1 0989,"RPC" ,2075,0) | |
2756 | TIU IS USE R A USR PR OVIDER | |
2757 | "KRN",19,1 0989,"RPC" ,2076,0) | |
2758 | ORWDPS33 I VDOSFRM | |
2759 | "KRN",19,1 0989,"RPC" ,2077,0) | |
2760 | ORWDPS32 A LLIVRTE | |
2761 | "KRN",19,1 0989,"RPC" ,2078,0) | |
2762 | ORWDXM1 SV RPC | |
2763 | "KRN",19,1 0989,"RPC" ,2079,0) | |
2764 | ORWDXVB VB TNS | |
2765 | "KRN",19,1 0989,"RPC" ,2080,0) | |
2766 | MAG4 REMOT E IMPORT | |
2767 | "KRN",19,1 0989,"RPC" ,2081,0) | |
2768 | ORWDX UNLK OTH | |
2769 | "KRN",19,1 0989,"RPC" ,2082,0) | |
2770 | OR GET COM BAT VET | |
2771 | "KRN",19,1 0989,"RPC" ,2083,0) | |
2772 | GMV CLOSES T READING | |
2773 | "KRN",19,1 0989,"RPC" ,2084,0) | |
2774 | ORQQCN ISP ROSVC | |
2775 | "KRN",19,1 0989,"RPC" ,2085,0) | |
2776 | ORQQPL PRO BLEM NTRT BULLETIN | |
2777 | "KRN",19,1 0989,"RPC" ,2086,0) | |
2778 | ORWPCE GET DX TEXT | |
2779 | "KRN",19,1 0989,"RPC" ,2087,0) | |
2780 | ORCHECK IS MONO | |
2781 | "KRN",19,1 0989,"RPC" ,2088,0) | |
2782 | ORCHECK GE TMONO | |
2783 | "KRN",19,1 0989,"RPC" ,2089,0) | |
2784 | ORCHECK GE TMONOL | |
2785 | "KRN",19,1 0989,"RPC" ,2090,0) | |
2786 | ORCHECK DE LMONO | |
2787 | "KRN",19,1 0989,"RPC" ,2091,0) | |
2788 | ORCHECK GE TXTRA | |
2789 | "KRN",19,1 0989,"RPC" ,2092,0) | |
2790 | ORWDPS33 G ETADDFR | |
2791 | "KRN",19,1 0989,"RPC" ,2093,0) | |
2792 | ORCNOTE GE T TOTAL | |
2793 | "KRN",19,1 0989,"RPC" ,2094,0) | |
2794 | ORVW FACLI ST | |
2795 | "KRN",19,1 0989,"RPC" ,2095,0) | |
2796 | ORWDXVB3 D IAGORD | |
2797 | "KRN",19,1 0989,"RPC" ,2096,0) | |
2798 | ORWDXVB3 C OLLTIM | |
2799 | "KRN",19,1 0989,"RPC" ,2097,0) | |
2800 | ORWDXVB3 S WPANEL | |
2801 | "KRN",19,1 0989,"RPC" ,2099,0) | |
2802 | XUS PKI GE T UPN | |
2803 | "KRN",19,1 0989,"RPC" ,2100,0) | |
2804 | ORDEA HASH INFO | |
2805 | "KRN",19,1 0989,"RPC" ,2101,0) | |
2806 | ORDEA ORDH INFO | |
2807 | "KRN",19,1 0989,"RPC" ,2102,0) | |
2808 | ORDEA DEAT EXT | |
2809 | "KRN",19,1 0989,"RPC" ,2103,0) | |
2810 | ORDEA CSVA LUE | |
2811 | "KRN",19,1 0989,"RPC" ,2104,0) | |
2812 | ORDEA SIGI NFO | |
2813 | "KRN",19,1 0989,"RPC" ,2106,0) | |
2814 | ORWPCE ICD VER | |
2815 | "KRN",19,1 0989,"RPC" ,2107,0) | |
2816 | ORDEA PINL KCHK | |
2817 | "KRN",19,1 0989,"RPC" ,2108,0) | |
2818 | ORDEA PINL KSET | |
2819 | "KRN",19,1 0989,"RPC" ,2109,0) | |
2820 | ORQQPL4 LE X | |
2821 | "KRN",19,1 0989,"RPC" ,2110,0) | |
2822 | ORDEA PNDH LD | |
2823 | "KRN",19,1 0989,"RPC" ,2111,0) | |
2824 | XUS PKI SE T UPN | |
2825 | "KRN",19,1 0989,"RPC" ,2112,0) | |
2826 | ORDEA LNKM SG | |
2827 | "KRN",19,1 0989,"RPC" ,2113,0) | |
2828 | ORWPCE4 LE X | |
2829 | "KRN",19,1 0989,"RPC" ,2114,0) | |
2830 | ORWLEX GET I10DX | |
2831 | "KRN",19,1 0989,"RPC" ,2115,0) | |
2832 | ORWPCE I10 IMPDT | |
2833 | "KRN",19,1 0989,"RPC" ,2131,0) | |
2834 | ORWLEX GET FREQ | |
2835 | "KRN",19,1 0989,"RPC" ,2132,0) | |
2836 | ORDEBUG SA VERPCS | |
2837 | "KRN",19,1 0989,"RPC" ,2133,0) | |
2838 | ORDEBUG SA VEDESC | |
2839 | "KRN",19,1 0989,"RPC" ,2144,0) | |
2840 | XWB ARE RP CS AVAILAB LE | |
2841 | "KRN",19,1 0989,"RPC" ,2145,0) | |
2842 | ORWRP1A RA DIO | |
2843 | "KRN",19,1 0989,"RPC" ,2146,0) | |
2844 | ORQQCN GET USER AUTH | |
2845 | "KRN",19,1 0989,"RPC" ,2147,0) | |
2846 | ORUTL ISCL ORD | |
2847 | "KRN",19,1 0989,"RPC" ,2148,0) | |
2848 | ORWU OVERD L | |
2849 | "KRN",19,1 0989,"RPC" ,2149,0) | |
2850 | ORBCMA5 JO B | |
2851 | "KRN",19,1 0989,"RPC" ,2150,0) | |
2852 | ORBCMA5 LO CK | |
2853 | "KRN",19,1 0989,"RPC" ,2151,0) | |
2854 | ORBCMA5 UN LOCK | |
2855 | "KRN",19,1 0989,"RPC" ,2152,0) | |
2856 | TIU CAN PR INT WORK/C HART COPY | |
2857 | "KRN",19,1 0989,"RPC" ,2154,0) | |
2858 | ORWGN IDTV ALID | |
2859 | "KRN",19,1 0989,"RPC" ,2155,0) | |
2860 | ORWGN MAXF RQ | |
2861 | "KRN",19,1 0989,"RPC" ,2156,0) | |
2862 | ORUTL4 DLL | |
2863 | "KRN",19,1 0989,"RPC" ,2157,0) | |
2864 | ORWCIRN JL V LABEL | |
2865 | "KRN",19,1 0989,"RPC" ,2158,0) | |
2866 | ORWDSD1 OD SLCT | |
2867 | "KRN",19,1 0989,"U") | |
2868 | CPRSCHART VERSION 1. 0.31.114 | |
2869 | "KRN",101, 3601,-1) | |
2870 | 4^2 | |
2871 | "KRN",101, 3601,0) | |
2872 | OCX ORDER CHECK HL7 RECIEVE | |
2873 | "KRN",101, 6356,-1) | |
2874 | 0^1 | |
2875 | "KRN",101, 6356,0) | |
2876 | OR EVSEND SD^APPOINT MENT REQUE ST EVENT^^ X^^^^^^^^ | |
2877 | "KRN",101, 6356,1,0) | |
2878 | ^101.06^2^ 2^3170509^ ^ | |
2879 | "KRN",101, 6356,1,1,0 ) | |
2880 | This proto col is use d to send return to clinic app ointment r equests to | |
2881 | "KRN",101, 6356,1,2,0 ) | |
2882 | Scheduling . | |
2883 | "KRN",101, 6356,10,0) | |
2884 | ^101.01PA^ 2^2 | |
2885 | "KRN",101, 6356,10,1, 0) | |
2886 | 3601^^2^ | |
2887 | "KRN",101, 6356,10,1, "^") | |
2888 | OCX ORDER CHECK HL7 RECIEVE | |
2889 | "KRN",101, 6356,99) | |
2890 | 64412,4676 2 | |
2891 | "KRN",8989 .5,22706,0 ) | |
2892 | 170;DIC(9. 4,^OR MOB DLL NAME^1 | |
2893 | "KRN",8989 .5,22706,1 ) | |
2894 | OrderCom.d ll | |
2895 | "KRN",8989 .51,864,-1 ) | |
2896 | 0^1 | |
2897 | "KRN",8989 .51,864,0) | |
2898 | ORWRP LEGA CY VIEWER LABEL^JLV Remote But ton Label Name^^^JLV REMOTE BU TTON LABEL NAME | |
2899 | "KRN",8989 .51,864,1) | |
2900 | F^^Enter t he name fo r the JLV/ VistaWeb R emote butt on | |
2901 | "KRN",8989 .51,864,20 ,0) | |
2902 | ^^7^7^3161 019^ | |
2903 | "KRN",8989 .51,864,20 ,1,0) | |
2904 | This param eter works in conjun ction with the ORWRP VISTAWEB | |
2905 | "KRN",8989 .51,864,20 ,2,0) | |
2906 | ADDRESS pa rameter fo r viewing external r emote data using the | |
2907 | "KRN",8989 .51,864,20 ,3,0) | |
2908 | WEB. Vista Web has be en the veh icle for v iewing ext ernal remo te | |
2909 | "KRN",8989 .51,864,20 ,4,0) | |
2910 | data, but the VA is transition ing to a n ew vehicle called JL V | |
2911 | "KRN",8989 .51,864,20 ,5,0) | |
2912 | (Joint Le gacy Viewe r). When a site move s to JLV, this param eter | |
2913 | "KRN",8989 .51,864,20 ,6,0) | |
2914 | value will need to b e set to " JLV" and t he URL wil l need to be | |
2915 | "KRN",8989 .51,864,20 ,7,0) | |
2916 | updated to point to the JLV we bsite. | |
2917 | "KRN",8989 .51,864,30 ,0) | |
2918 | ^8989.513I ^4^4 | |
2919 | "KRN",8989 .51,864,30 ,1,0) | |
2920 | 1^200 | |
2921 | "KRN",8989 .51,864,30 ,2,0) | |
2922 | 2^4 | |
2923 | "KRN",8989 .51,864,30 ,3,0) | |
2924 | 3^4.2 | |
2925 | "KRN",8989 .51,864,30 ,4,0) | |
2926 | 4^9.4 | |
2927 | "KRN",8989 .51,867,-1 ) | |
2928 | 0^2 | |
2929 | "KRN",8989 .51,867,0) | |
2930 | OR MOB DLL NAME^CPRS Med Order Button DL L file nam e^0^CPRS M OB DLL nam e^^0 | |
2931 | "KRN",8989 .51,867,1) | |
2932 | F^^Name of the DLL o n the wind ows file s ystem | |
2933 | "KRN",8989 .51,867,6) | |
2934 | F^free^Nam e of the C PRS MOB DL L | |
2935 | "KRN",8989 .51,867,20 ,0) | |
2936 | ^^2^2^3161 026^ | |
2937 | "KRN",8989 .51,867,20 ,1,0) | |
2938 | This param eter is us ed to stor e the name of the .d ll on the file syste m | |
2939 | "KRN",8989 .51,867,20 ,2,0) | |
2940 | of the CPR S users of this Vist A system. | |
2941 | "KRN",8989 .51,867,30 ,0) | |
2942 | ^8989.513I ^3^3 | |
2943 | "KRN",8989 .51,867,30 ,1,0) | |
2944 | 1^200 | |
2945 | "KRN",8989 .51,867,30 ,2,0) | |
2946 | 2^4.2 | |
2947 | "KRN",8989 .51,867,30 ,3,0) | |
2948 | 3^9.4 | |
2949 | "KRN",8989 .51,876,-1 ) | |
2950 | 0^4 | |
2951 | "KRN",8989 .51,876,0) | |
2952 | OR SD DIAL OG PREREQ^ RTC Order Dialog Pre requisites ^1^^RTC Or der Prereq uisites | |
2953 | "KRN",8989 .51,876,1) | |
2954 | F^^Enter p rerequisit es that sh ow in the RTC Order Dialog | |
2955 | "KRN",8989 .51,876,6) | |
2956 | F | |
2957 | "KRN",8989 .51,876,30 ,0) | |
2958 | ^8989.513I ^1^1 | |
2959 | "KRN",8989 .51,876,30 ,1,0) | |
2960 | 6^4.2 | |
2961 | "KRN",8989 .51,877,-1 ) | |
2962 | 0^3 | |
2963 | "KRN",8989 .51,877,0) | |
2964 | OR SD ADDI TIONAL INF ORMATION^R TC Order D ialog Addi tional Inf ormation^0 ^^Addition al Informa tion Messa ge Text | |
2965 | "KRN",8989 .51,877,1) | |
2966 | W^^Enter a message t o display when writi ng a Retur n to Clini c Order | |
2967 | "KRN",8989 .51,877,20 ,0) | |
2968 | ^8989.512^ 2^2^317050 9^ | |
2969 | "KRN",8989 .51,877,20 ,1,0) | |
2970 | This param eter allow s sites to set what text they would like the users to | |
2971 | "KRN",8989 .51,877,20 ,2,0) | |
2972 | see when p lacing a R eturn To C linic Orde r. | |
2973 | "KRN",8989 .51,877,30 ,0) | |
2974 | ^8989.513I ^2^2 | |
2975 | "KRN",8989 .51,877,30 ,1,0) | |
2976 | 6^4.2 | |
2977 | "KRN",8989 .51,877,30 ,2,0) | |
2978 | 5^4 | |
2979 | "KRN",8994 ,3567,-1) | |
2980 | 0^1 | |
2981 | "KRN",8994 ,3567,0) | |
2982 | ORWCIRN JL V LABEL^JL V^ORWCIRN^ 1 | |
2983 | "KRN",8994 ,3567,1,0) | |
2984 | ^^5^5^3161 019^ | |
2985 | "KRN",8994 ,3567,1,1, 0) | |
2986 | This RPC g ets the La bel/Captio n for the JLV/VistaW eb externa l | |
2987 | "KRN",8994 ,3567,1,2, 0) | |
2988 | remote dat a button. The label has histor ically had a value o f | |
2989 | "KRN",8994 ,3567,1,3, 0) | |
2990 | VistaWeb. With the addition o f this RPC and a new parameter , | |
2991 | "KRN",8994 ,3567,1,4, 0) | |
2992 | ORWRP LEGA CY VIEWER LABEL, the caption o f this but ton can be | |
2993 | "KRN",8994 ,3567,1,5, 0) | |
2994 | changed to JLV (Join t Legacy V iewer) whe n JLV beco mes availa ble. | |
2995 | "KRN",8994 ,3661,-1) | |
2996 | 0^2 | |
2997 | "KRN",8994 ,3661,0) | |
2998 | ORWDSD1 OD SLCT^ODSLC T^ORWDSD1^ 2 | |
2999 | "KRN",8994 ,3661,2,0) | |
3000 | ^8994.02A^ 2^2 | |
3001 | "KRN",8994 ,3661,2,1, 0) | |
3002 | DFN^1^^1^1 | |
3003 | "KRN",8994 ,3661,2,2, 0) | |
3004 | LOC^1^^1^2 | |
3005 | "KRN",8994 ,3661,2,"B ","DFN",1) | |
3006 | ||
3007 | "KRN",8994 ,3661,2,"B ","LOC",2) | |
3008 | ||
3009 | "KRN",8994 ,3661,2,"P ARAMSEQ",1 ,1) | |
3010 | ||
3011 | "KRN",8994 ,3661,2,"P ARAMSEQ",2 ,2) | |
3012 | ||
3013 | "MBREQ") | |
3014 | 1 | |
3015 | "ORD",15,1 01) | |
3016 | 101;15;;;P RO^XPDTA;P ROF1^XPDIA ;PROE1^XPD IA;PROF2^X PDIA;;PROD EL^XPDIA | |
3017 | "ORD",15,1 01,0) | |
3018 | PROTOCOL | |
3019 | "ORD",16,8 994) | |
3020 | 8994;16;1; ;;;;;;RPCD EL^XPDIA1 | |
3021 | "ORD",16,8 994,0) | |
3022 | REMOTE PRO CEDURE | |
3023 | "ORD",18,1 9) | |
3024 | 19;18;;;OP T^XPDTA;OP TF1^XPDIA; OPTE1^XPDI A;OPTF2^XP DIA;;OPTDE L^XPDIA | |
3025 | "ORD",18,1 9,0) | |
3026 | OPTION | |
3027 | "ORD",20,8 989.51) | |
3028 | 8989.51;20 ;;;PAR1E1^ XPDTA2;PAR 1F1^XPDIA3 ;PAR1E1^XP DIA3;PAR1F 2^XPDIA3;; PAR1DEL^XP DIA3(%) | |
3029 | "ORD",20,8 989.51,0) | |
3030 | PARAMETER DEFINITION | |
3031 | "PGL",100. 9,1,1,1) | |
3032 | NON-MENU T YPE OPTION ACTION^P1 9'^DIC(19, ^1;1^Q | |
3033 | "PGL",100. 98,0,4,4) | |
3034 | DEFAULT DI ALOG^P101. 41'^ORD(10 1.41,^0;4^ Q | |
3035 | "PGL",101. 41,0,5,5) | |
3036 | DISPLAY GR OUP^P100.9 8'^ORD(100 .98,^0;5^Q | |
3037 | "PGL",101. 41,0,7,7) | |
3038 | PACKAGE^P9 .4'^DIC(9. 4,^0;7^Q | |
3039 | "PGL",101. 412,0,2,2) | |
3040 | ITEM^P101. 41'X^ORD(1 01.41,^0;2 ^D TREE^OR DD41 | |
3041 | "PGL",101. 412,0,11,1 ) | |
3042 | PARENT^P10 1.41'^ORD( 101.41,^0; 11^Q | |
3043 | "PGL",101. 415,0,2,2) | |
3044 | ITEM^P101. 41'^ORD(10 1.41,^0;2^ Q | |
3045 | "PGL",101. 416,0,2,.0 2) | |
3046 | DIALOG^P10 1.41'^ORD( 101.41,^0; 2^Q | |
3047 | "PKG",170, -1) | |
3048 | 1^1 | |
3049 | "PKG",170, 0) | |
3050 | ORDER ENTR Y/RESULTS REPORTING^ OR^Order E ntry/Resul ts Reporti ng | |
3051 | "PKG",170, 20,0) | |
3052 | ^9.402P^^ | |
3053 | "PKG",170, 22,0) | |
3054 | ^9.49I^1^1 | |
3055 | "PKG",170, 22,1,0) | |
3056 | 3.0^297121 7^2980917^ 11712 | |
3057 | "PKG",170, 22,1,"PAH" ,1,0) | |
3058 | 434^317062 9^10000000 200 | |
3059 | "PRE") | |
3060 | ORY434 | |
3061 | "QUES","XP F1",0) | |
3062 | Y | |
3063 | "QUES","XP F1","??") | |
3064 | ^D REP^XPD H | |
3065 | "QUES","XP F1","A") | |
3066 | Shall I wr ite over y our |FLAG| File | |
3067 | "QUES","XP F1","B") | |
3068 | YES | |
3069 | "QUES","XP F1","M") | |
3070 | D XPF1^XPD IQ | |
3071 | "QUES","XP F2",0) | |
3072 | Y | |
3073 | "QUES","XP F2","??") | |
3074 | ^D DTA^XPD H | |
3075 | "QUES","XP F2","A") | |
3076 | Want my da ta |FLAG| yours | |
3077 | "QUES","XP F2","B") | |
3078 | YES | |
3079 | "QUES","XP F2","M") | |
3080 | D XPF2^XPD IQ | |
3081 | "QUES","XP I1",0) | |
3082 | YO | |
3083 | "QUES","XP I1","??") | |
3084 | ^D INHIBIT ^XPDH | |
3085 | "QUES","XP I1","A") | |
3086 | Want KIDS to INHIBIT LOGONs du ring the i nstall | |
3087 | "QUES","XP I1","B") | |
3088 | NO | |
3089 | "QUES","XP I1","M") | |
3090 | D XPI1^XPD IQ | |
3091 | "QUES","XP M1",0) | |
3092 | PO^VA(200, :EM | |
3093 | "QUES","XP M1","??") | |
3094 | ^D MG^XPDH | |
3095 | "QUES","XP M1","A") | |
3096 | Enter the Coordinato r for Mail Group '|F LAG|' | |
3097 | "QUES","XP M1","B") | |
3098 | ||
3099 | "QUES","XP M1","M") | |
3100 | D XPM1^XPD IQ | |
3101 | "QUES","XP O1",0) | |
3102 | Y | |
3103 | "QUES","XP O1","??") | |
3104 | ^D MENU^XP DH | |
3105 | "QUES","XP O1","A") | |
3106 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install | |
3107 | "QUES","XP O1","B") | |
3108 | NO | |
3109 | "QUES","XP O1","M") | |
3110 | D XPO1^XPD IQ | |
3111 | "QUES","XP Z1",0) | |
3112 | Y | |
3113 | "QUES","XP Z1","??") | |
3114 | ^D OPT^XPD H | |
3115 | "QUES","XP Z1","A") | |
3116 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls | |
3117 | "QUES","XP Z1","B") | |
3118 | NO | |
3119 | "QUES","XP Z1","M") | |
3120 | D XPZ1^XPD IQ | |
3121 | "QUES","XP Z2",0) | |
3122 | Y | |
3123 | "QUES","XP Z2","??") | |
3124 | ^D RTN^XPD H | |
3125 | "QUES","XP Z2","A") | |
3126 | Want to MO VE routine s to other CPUs | |
3127 | "QUES","XP Z2","B") | |
3128 | NO | |
3129 | "QUES","XP Z2","M") | |
3130 | D XPZ2^XPD IQ | |
3131 | "RTN") | |
3132 | 16 | |
3133 | "RTN","ORB 3FUP2") | |
3134 | 0^10^B6992 4581 | |
3135 | "RTN","ORB 3FUP2",1,0 ) | |
3136 | ORB3FUP2 ; slc/CLA - Routine t o support notificati on follow- up actions ;05/16/17 08:21 | |
3137 | "RTN","ORB 3FUP2",2,0 ) | |
3138 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**3 1,64,88,11 2,243,434* *;Dec 17, 1997;Build 31 | |
3139 | "RTN","ORB 3FUP2",3,0 ) | |
3140 | RESULT ;ST AT, ordere r-flagged and site-f lagged res ult follow -up | |
3141 | "RTN","ORB 3FUP2",4,0 ) | |
3142 | ;determin e what pkg to get re port/resul ts from th en do RPTL AB or RPTR AD | |
3143 | "RTN","ORB 3FUP2",5,0 ) | |
3144 | N ORBFILL S ORBFILL =$P($P(XQA DATA,"|",2 ),"@",2) | |
3145 | "RTN","ORB 3FUP2",6,0 ) | |
3146 | I ORBFILL ["LR" D RP TLAB | |
3147 | "RTN","ORB 3FUP2",7,0 ) | |
3148 | I ORBFILL ["RA" D RP TRAD | |
3149 | "RTN","ORB 3FUP2",8,0 ) | |
3150 | I ORBFILL ["GMRC" D RPTCON | |
3151 | "RTN","ORB 3FUP2",9,0 ) | |
3152 | Q | |
3153 | "RTN","ORB 3FUP2",10, 0) | |
3154 | CSPN ;co-s ign progre ss note(s) follow-up | |
3155 | "RTN","ORB 3FUP2",11, 0) | |
3156 | K XQAKILL | |
3157 | "RTN","ORB 3FUP2",12, 0) | |
3158 | N ORPT,OR BXQAID,ORY S ORBXQAI D=XQAID | |
3159 | "RTN","ORB 3FUP2",13, 0) | |
3160 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3161 | "RTN","ORB 3FUP2",14, 0) | |
3162 | I $G(OREN VIR)="GUI" ;entry pt to get no tes req co -sign then quit | |
3163 | "RTN","ORB 3FUP2",15, 0) | |
3164 | ;joel rtn to displa y notes re q co-signa ture and a llow co-si gn on vt | |
3165 | "RTN","ORB 3FUP2",16, 0) | |
3166 | ;if lm fu p action c ompleted D DEL^ORB3F UP1(.ORY,O RBXQAID) | |
3167 | "RTN","ORB 3FUP2",17, 0) | |
3168 | Q | |
3169 | "RTN","ORB 3FUP2",18, 0) | |
3170 | USPN ;unsi gned progr ess note(s ) follow-u p | |
3171 | "RTN","ORB 3FUP2",19, 0) | |
3172 | K XQAKILL | |
3173 | "RTN","ORB 3FUP2",20, 0) | |
3174 | N ORPT,OR BXQAID,ORY S ORBXQAI D=XQAID | |
3175 | "RTN","ORB 3FUP2",21, 0) | |
3176 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3177 | "RTN","ORB 3FUP2",22, 0) | |
3178 | I $G(OREN VIR)="GUI" ;entry pt to get un signed not es then qu it | |
3179 | "RTN","ORB 3FUP2",23, 0) | |
3180 | ;joel rtn to displa y notes re q signatur e and allo w signatur e on vt | |
3181 | "RTN","ORB 3FUP2",24, 0) | |
3182 | ;if lm fu p action c ompleted D DEL^ORB3F UP1(.ORY,O RBXQAID) | |
3183 | "RTN","ORB 3FUP2",25, 0) | |
3184 | Q | |
3185 | "RTN","ORB 3FUP2",26, 0) | |
3186 | EXMED ;exp iring med( s) follow- up | |
3187 | "RTN","ORB 3FUP2",27, 0) | |
3188 | K XQAKILL | |
3189 | "RTN","ORB 3FUP2",28, 0) | |
3190 | N ORPT,OR DG,ORBXQAI D,ORY,ORBL MDEL | |
3191 | "RTN","ORB 3FUP2",29, 0) | |
3192 | S ORBXQAI D=XQAID | |
3193 | "RTN","ORB 3FUP2",30, 0) | |
3194 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3195 | "RTN","ORB 3FUP2",31, 0) | |
3196 | ;the FLG code for E XPIRING or ders in OR Q1 is '5' | |
3197 | "RTN","ORB 3FUP2",32, 0) | |
3198 | I $G(OREN VIR)="GUI" D LIST^OR QOR1(.ORBY ,ORPT,"RX" ,5,"","") | |
3199 | "RTN","ORB 3FUP2",33, 0) | |
3200 | I $G(OREN VIR)'="GUI " D | |
3201 | "RTN","ORB 3FUP2",34, 0) | |
3202 | .D MSG^OR B3FUP1 | |
3203 | "RTN","ORB 3FUP2",35, 0) | |
3204 | .S ORDG=$ $DG^ORQOR1 ("RX") ;g et Display Group ien | |
3205 | "RTN","ORB 3FUP2",36, 0) | |
3206 | .D EN^ORC B(ORPT,5,O RDG,.ORBLM DEL) | |
3207 | "RTN","ORB 3FUP2",37, 0) | |
3208 | .K ^TMP(" ORR",$J) | |
3209 | "RTN","ORB 3FUP2",38, 0) | |
3210 | .Q:$G(ORB LMDEL)=1 ;if EN^ORC B rtns ORB LMDEL=1, a lert was r emoved in LM | |
3211 | "RTN","ORB 3FUP2",39, 0) | |
3212 | .D EN^ORQ 1(ORPT_";D PT(",ORDG, 5,"","","" ,0,0) | |
3213 | "RTN","ORB 3FUP2",40, 0) | |
3214 | .S X="",X =$O(^TMP(" ORR",$J,X) ) Q:X="" I +$G(^TMP ("ORR",$J, X,"TOT"))< 1 D | |
3215 | "RTN","ORB 3FUP2",41, 0) | |
3216 | ..D DEL^O RB3FUP1(.O RY,ORBXQAI D) ;if no more EXPI RING order s found, d elete the alert | |
3217 | "RTN","ORB 3FUP2",42, 0) | |
3218 | .K X,^TMP ("ORR",$J) | |
3219 | "RTN","ORB 3FUP2",43, 0) | |
3220 | Q | |
3221 | "RTN","ORB 3FUP2",44, 0) | |
3222 | UVMED ;unv erified me d(s) follo w-up | |
3223 | "RTN","ORB 3FUP2",45, 0) | |
3224 | K XQAKILL | |
3225 | "RTN","ORB 3FUP2",46, 0) | |
3226 | N ORPT,OR DG,ORBXQAI D,ORY,ORBL MDEL,ORADT | |
3227 | "RTN","ORB 3FUP2",47, 0) | |
3228 | S ORBXQAI D=XQAID | |
3229 | "RTN","ORB 3FUP2",48, 0) | |
3230 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3231 | "RTN","ORB 3FUP2",49, 0) | |
3232 | ;the FLG code for U NVERIFIED (NURSE) or ders in OR Q1 is '9' | |
3233 | "RTN","ORB 3FUP2",50, 0) | |
3234 | I $G(OREN VIR)="GUI" D LIST^OR QOR1(.ORBY ,ORPT,"RX" ,9,"","") | |
3235 | "RTN","ORB 3FUP2",51, 0) | |
3236 | I $G(OREN VIR)'="GUI " D | |
3237 | "RTN","ORB 3FUP2",52, 0) | |
3238 | .D MSG^OR B3FUP1 | |
3239 | "RTN","ORB 3FUP2",53, 0) | |
3240 | .S ORDG=$ $DG^ORQOR1 ("RX") ;g et Display Group ien | |
3241 | "RTN","ORB 3FUP2",54, 0) | |
3242 | .D EN^ORC B(ORPT,9,O RDG,.ORBLM DEL) | |
3243 | "RTN","ORB 3FUP2",55, 0) | |
3244 | .K ^TMP(" ORR",$J) | |
3245 | "RTN","ORB 3FUP2",56, 0) | |
3246 | .Q:$G(ORB LMDEL)=1 ;if EN^ORC B rtns ORB LMDEL=1, a lert was r emoved in LM | |
3247 | "RTN","ORB 3FUP2",57, 0) | |
3248 | .; | |
3249 | "RTN","ORB 3FUP2",58, 0) | |
3250 | .;if user doesn't h ave ORELSE or ORMAS keys (can' t verify), | |
3251 | "RTN","ORB 3FUP2",59, 0) | |
3252 | .; dele te user's alert afte r display: | |
3253 | "RTN","ORB 3FUP2",60, 0) | |
3254 | .I '$D(^X USEC("OREL SE",DUZ)), ('$D(^XUSE C("OREMAS" ,DUZ))) S XQAKILL=1 D DEL^ORB3 FUP1(.ORY, ORBXQAID) Q | |
3255 | "RTN","ORB 3FUP2",61, 0) | |
3256 | .; | |
3257 | "RTN","ORB 3FUP2",62, 0) | |
3258 | .;get cur rent admis sion date/ time: | |
3259 | "RTN","ORB 3FUP2",63, 0) | |
3260 | .N DFN S DFN=ORPT,V A200="" D INP^VADPT | |
3261 | "RTN","ORB 3FUP2",64, 0) | |
3262 | .S ORADT= $P($G(VAIN (7)),U) | |
3263 | "RTN","ORB 3FUP2",65, 0) | |
3264 | .S ORADT= $S('$L($G( ORADT)):$$ FMADD^XLFD T($$NOW^XL FDT,"-30") ,1:ORADT) | |
3265 | "RTN","ORB 3FUP2",66, 0) | |
3266 | .; | |
3267 | "RTN","ORB 3FUP2",67, 0) | |
3268 | .;if no m ore UNVERI FIED MED o rders foun d (within current ad mission or | |
3269 | "RTN","ORB 3FUP2",68, 0) | |
3270 | .; past 3 0 days), d elete the alert: | |
3271 | "RTN","ORB 3FUP2",69, 0) | |
3272 | .D EN^ORQ 1(ORPT_";D PT(",ORDG, 9,"",ORADT ,$$NOW^XLF DT,0,0) | |
3273 | "RTN","ORB 3FUP2",70, 0) | |
3274 | .S X="",X =$O(^TMP(" ORR",$J,X) ) Q:X="" I +$G(^TMP ("ORR",$J, X,"TOT"))< 1 D | |
3275 | "RTN","ORB 3FUP2",71, 0) | |
3276 | ..D DEL^O RB3FUP1(.O RY,ORBXQAI D) | |
3277 | "RTN","ORB 3FUP2",72, 0) | |
3278 | .K X,^TMP ("ORR",$J) ,VA200,VAI N | |
3279 | "RTN","ORB 3FUP2",73, 0) | |
3280 | Q | |
3281 | "RTN","ORB 3FUP2",74, 0) | |
3282 | UNVER ;unv erified or der(s) fol low-up | |
3283 | "RTN","ORB 3FUP2",75, 0) | |
3284 | K XQAKILL | |
3285 | "RTN","ORB 3FUP2",76, 0) | |
3286 | N ORPT,OR DG,ORBXQAI D,ORY,ORBL MDEL,ORADT | |
3287 | "RTN","ORB 3FUP2",77, 0) | |
3288 | S ORBXQAI D=XQAID | |
3289 | "RTN","ORB 3FUP2",78, 0) | |
3290 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3291 | "RTN","ORB 3FUP2",79, 0) | |
3292 | ;the FLG code for U NVERIFIED (NURSE) or ders in OR Q1 is '9' | |
3293 | "RTN","ORB 3FUP2",80, 0) | |
3294 | I $G(OREN VIR)="GUI" D LIST^OR QOR1(.ORBY ,ORPT,"ALL ",9,"","") | |
3295 | "RTN","ORB 3FUP2",81, 0) | |
3296 | I $G(OREN VIR)'="GUI " D | |
3297 | "RTN","ORB 3FUP2",82, 0) | |
3298 | .D MSG^OR B3FUP1 | |
3299 | "RTN","ORB 3FUP2",83, 0) | |
3300 | .S ORDG=$ $DG^ORQOR1 ("ALL") ; get Displa y Group ie n | |
3301 | "RTN","ORB 3FUP2",84, 0) | |
3302 | .D EN^ORC B(ORPT,9,O RDG,.ORBLM DEL) | |
3303 | "RTN","ORB 3FUP2",85, 0) | |
3304 | .K ^TMP(" ORR",$J) | |
3305 | "RTN","ORB 3FUP2",86, 0) | |
3306 | .Q:$G(ORB LMDEL)=1 ;if EN^ORC B rtns ORB LMDEL=1, a lert was r emoved in LM | |
3307 | "RTN","ORB 3FUP2",87, 0) | |
3308 | .; | |
3309 | "RTN","ORB 3FUP2",88, 0) | |
3310 | .;if user doesn't h ave ORELSE or ORMAS keys (can' t verify), | |
3311 | "RTN","ORB 3FUP2",89, 0) | |
3312 | .; dele te user's alert afte r display: | |
3313 | "RTN","ORB 3FUP2",90, 0) | |
3314 | .I '$D(^X USEC("OREL SE",DUZ)), ('$D(^XUSE C("OREMAS" ,DUZ))) S XQAKILL=1 D DEL^ORB3 FUP1(.ORY, ORBXQAID) Q | |
3315 | "RTN","ORB 3FUP2",91, 0) | |
3316 | .; | |
3317 | "RTN","ORB 3FUP2",92, 0) | |
3318 | .;get cur rent admis sion date/ time: | |
3319 | "RTN","ORB 3FUP2",93, 0) | |
3320 | .N DFN S DFN=ORPT,V A200="" D INP^VADPT | |
3321 | "RTN","ORB 3FUP2",94, 0) | |
3322 | .S ORADT= $P($G(VAIN (7)),U) | |
3323 | "RTN","ORB 3FUP2",95, 0) | |
3324 | .S ORADT= $S('$L($G( ORADT)):$$ FMADD^XLFD T($$NOW^XL FDT,"-30") ,1:ORADT) | |
3325 | "RTN","ORB 3FUP2",96, 0) | |
3326 | .; | |
3327 | "RTN","ORB 3FUP2",97, 0) | |
3328 | .;if no m ore UNVERI FIED order s found (w ithin curr ent admiss ion or pas t | |
3329 | "RTN","ORB 3FUP2",98, 0) | |
3330 | .; 30 day s), delete the alert : | |
3331 | "RTN","ORB 3FUP2",99, 0) | |
3332 | .D EN^ORQ 1(ORPT_";D PT(",ORDG, 9,"",ORADT ,$$NOW^XLF DT,0,0) | |
3333 | "RTN","ORB 3FUP2",100 ,0) | |
3334 | .S X="",X =$O(^TMP(" ORR",$J,X) ) Q:X="" I +$G(^TMP ("ORR",$J, X,"TOT"))< 1 D | |
3335 | "RTN","ORB 3FUP2",101 ,0) | |
3336 | ..D DEL^O RB3FUP1(.O RY,ORBXQAI D) | |
3337 | "RTN","ORB 3FUP2",102 ,0) | |
3338 | .K X,^TMP ("ORR",$J) ,VA200,VAI N | |
3339 | "RTN","ORB 3FUP2",103 ,0) | |
3340 | Q | |
3341 | "RTN","ORB 3FUP2",104 ,0) | |
3342 | NEWCON ;ne w consult/ request fo llow-up | |
3343 | "RTN","ORB 3FUP2",105 ,0) | |
3344 | K XQAKILL | |
3345 | "RTN","ORB 3FUP2",106 ,0) | |
3346 | N ORPT,OR BXQAID,ORY S ORBXQAI D=XQAID | |
3347 | "RTN","ORB 3FUP2",107 ,0) | |
3348 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3349 | "RTN","ORB 3FUP2",108 ,0) | |
3350 | ;I $G(ORE NVIR)="GUI " D ;comm ent out un til GUI fo llow-up | |
3351 | "RTN","ORB 3FUP2",109 ,0) | |
3352 | ;.entry p t to get n ew consult s then qui t | |
3353 | "RTN","ORB 3FUP2",110 ,0) | |
3354 | I $G(OREN VIR)'="GUI " D | |
3355 | "RTN","ORB 3FUP2",111 ,0) | |
3356 | .D MSG^OR B3FUP1 | |
3357 | "RTN","ORB 3FUP2",112 ,0) | |
3358 | .D EN^GMR CALRT(XQAD ATA,XQAID) ;display new c/r an d allow ac tion | |
3359 | "RTN","ORB 3FUP2",113 ,0) | |
3360 | .;D DEL^O RB3FUP1(.O RY,ORBXQAI D) ;Dwight does the delete in GMRC | |
3361 | "RTN","ORB 3FUP2",114 ,0) | |
3362 | Q | |
3363 | "RTN","ORB 3FUP2",115 ,0) | |
3364 | UPCON ;upd ated consu lt/request follow-up | |
3365 | "RTN","ORB 3FUP2",116 ,0) | |
3366 | K XQAKILL | |
3367 | "RTN","ORB 3FUP2",117 ,0) | |
3368 | N ORPT,OR BXQAID,ORY S ORBXQAI D=XQAID | |
3369 | "RTN","ORB 3FUP2",118 ,0) | |
3370 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3371 | "RTN","ORB 3FUP2",119 ,0) | |
3372 | I $G(OREN VIR)'="GUI " D | |
3373 | "RTN","ORB 3FUP2",120 ,0) | |
3374 | .D MSG^OR B3FUP1 | |
3375 | "RTN","ORB 3FUP2",121 ,0) | |
3376 | .D EN^GMR CALRT(XQAD ATA,XQAID) ;display updated c/ r and allo w action | |
3377 | "RTN","ORB 3FUP2",122 ,0) | |
3378 | Q | |
3379 | "RTN","ORB 3FUP2",123 ,0) | |
3380 | DCCON ;can celled, he ld or DCed consult/r equest fol low-up | |
3381 | "RTN","ORB 3FUP2",124 ,0) | |
3382 | K XQAKILL | |
3383 | "RTN","ORB 3FUP2",125 ,0) | |
3384 | N ORPT,NX QADATA | |
3385 | "RTN","ORB 3FUP2",126 ,0) | |
3386 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3387 | "RTN","ORB 3FUP2",127 ,0) | |
3388 | ;I $G(ORE NVIR)="GUI " D ;comm ent out un til GUI fo llow-up | |
3389 | "RTN","ORB 3FUP2",128 ,0) | |
3390 | ;.entry p t to get n ew consult s then qui t | |
3391 | "RTN","ORB 3FUP2",129 ,0) | |
3392 | I $G(OREN VIR)'="GUI " D | |
3393 | "RTN","ORB 3FUP2",130 ,0) | |
3394 | .D MSG^OR B3FUP1 | |
3395 | "RTN","ORB 3FUP2",131 ,0) | |
3396 | .I XQADAT A["GMRC" S NXQADATA= $P($P(XQAD ATA,"|",2) ,"@") D EN ^GMRCEDIT( NXQADATA,X QAID) | |
3397 | "RTN","ORB 3FUP2",132 ,0) | |
3398 | .I +$G(NX QADATA)<1 D EN^GMRCE DIT(XQADAT A,XQAID) | |
3399 | "RTN","ORB 3FUP2",133 ,0) | |
3400 | Q | |
3401 | "RTN","ORB 3FUP2",134 ,0) | |
3402 | RPTCON ;co nsult resu lt follow- up | |
3403 | "RTN","ORB 3FUP2",135 ,0) | |
3404 | K XQAKILL | |
3405 | "RTN","ORB 3FUP2",136 ,0) | |
3406 | N NXQADAT A | |
3407 | "RTN","ORB 3FUP2",137 ,0) | |
3408 | ;N ORPT,O RBXQAID,OR Y S ORBXQA ID=XQAID | |
3409 | "RTN","ORB 3FUP2",138 ,0) | |
3410 | ;S ORPT=$ P($P(XQAID ,";"),",", 2) ;get p t dfn from xqaid | |
3411 | "RTN","ORB 3FUP2",139 ,0) | |
3412 | I $G(OREN VIR)="GUI" D DETAIL^ ORQQCN(.OR BY,XQADATA ) | |
3413 | "RTN","ORB 3FUP2",140 ,0) | |
3414 | I $G(OREN VIR)'="GUI " D | |
3415 | "RTN","ORB 3FUP2",141 ,0) | |
3416 | .D MSG^OR B3FUP1 | |
3417 | "RTN","ORB 3FUP2",142 ,0) | |
3418 | .D EN^GMR CALRT(XQAD ATA,XQAID) | |
3419 | "RTN","ORB 3FUP2",143 ,0) | |
3420 | .;I XQADA TA["GMRC" S NXQADATA =$P($P(XQA DATA,"|",2 ),"@") D E N^GMRCALRT (NXQADATA, XQAID) | |
3421 | "RTN","ORB 3FUP2",144 ,0) | |
3422 | .;I +$G(N XQADATA)<1 D EN^GMRC ALRT(XQADA TA,XQAID) | |
3423 | "RTN","ORB 3FUP2",145 ,0) | |
3424 | .;D DEL^O RB3FUP1(.O RY,ORBXQAI D) ;Dwight does the delete in GMRC | |
3425 | "RTN","ORB 3FUP2",146 ,0) | |
3426 | Q | |
3427 | "RTN","ORB 3FUP2",147 ,0) | |
3428 | RPTAP ; AP lab resul t follow-u p | |
3429 | "RTN","ORB 3FUP2",148 ,0) | |
3430 | K XQAKILL | |
3431 | "RTN","ORB 3FUP2",149 ,0) | |
3432 | N ORPT,OR BXQAID,ORY S ORBXQAI D=XQAID | |
3433 | "RTN","ORB 3FUP2",150 ,0) | |
3434 | S ORPT=$P ($P(ORBXQA ID,";"),", ",2) ;get pt dfn fr om xqaid | |
3435 | "RTN","ORB 3FUP2",151 ,0) | |
3436 | N ORACCNU M,ORDTSTKN S ORACCNU M=$P(XQADA TA,U,2),OR DTSTKN=$P( XQADATA,U, 3) | |
3437 | "RTN","ORB 3FUP2",152 ,0) | |
3438 | I $G(OREN VIR)'="GUI " D | |
3439 | "RTN","ORB 3FUP2",153 ,0) | |
3440 | .D MSG^OR B3FUP1 | |
3441 | "RTN","ORB 3FUP2",154 ,0) | |
3442 | .D EN1^OR CXPND(ORPT ,ORACCNUM_ "-"_ORDTST KN,"LABS") | |
3443 | "RTN","ORB 3FUP2",155 ,0) | |
3444 | .D DEL^OR B3FUP1(.OR Y,ORBXQAID ) | |
3445 | "RTN","ORB 3FUP2",156 ,0) | |
3446 | Q | |
3447 | "RTN","ORB 3FUP2",157 ,0) | |
3448 | RPTLAB ;la b result f ollow-up | |
3449 | "RTN","ORB 3FUP2",158 ,0) | |
3450 | K XQAKILL | |
3451 | "RTN","ORB 3FUP2",159 ,0) | |
3452 | N ORPT,OR BXQAID,ORY S ORBXQAI D=XQAID | |
3453 | "RTN","ORB 3FUP2",160 ,0) | |
3454 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3455 | "RTN","ORB 3FUP2",161 ,0) | |
3456 | N ORDER,O RLAB S ORD ER=$P(XQAD ATA,"@") | |
3457 | "RTN","ORB 3FUP2",162 ,0) | |
3458 | I $G(OREN VIR)="GUI" D DETAIL^ ORQQLR(.OR BY,ORPT,OR DER) | |
3459 | "RTN","ORB 3FUP2",163 ,0) | |
3460 | I $G(OREN VIR)'="GUI " D | |
3461 | "RTN","ORB 3FUP2",164 ,0) | |
3462 | .D MSG^OR B3FUP1 | |
3463 | "RTN","ORB 3FUP2",165 ,0) | |
3464 | .;S ORLAB =$$OETOLAB ^ORQQLR1(O RDER) | |
3465 | "RTN","ORB 3FUP2",166 ,0) | |
3466 | .;Q:'$L($ G(ORLAB)) | |
3467 | "RTN","ORB 3FUP2",167 ,0) | |
3468 | .;D EN1^O RCXPND(ORP T,ORLAB,"L ABS") ;ap i used lab # pre-6/9 7 | |
3469 | "RTN","ORB 3FUP2",168 ,0) | |
3470 | .D EN1^OR CXPND(ORPT ,ORDER,"LA BS") | |
3471 | "RTN","ORB 3FUP2",169 ,0) | |
3472 | .D DEL^OR B3FUP1(.OR Y,ORBXQAID ) | |
3473 | "RTN","ORB 3FUP2",170 ,0) | |
3474 | Q | |
3475 | "RTN","ORB 3FUP2",171 ,0) | |
3476 | RPTRAD ;ra diology re sult follo w-up for H L7-trigger ed notific ations | |
3477 | "RTN","ORB 3FUP2",172 ,0) | |
3478 | K XQAKILL | |
3479 | "RTN","ORB 3FUP2",173 ,0) | |
3480 | N ORPT,OR BXQAID,ORY S ORBXQAI D=XQAID | |
3481 | "RTN","ORB 3FUP2",174 ,0) | |
3482 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3483 | "RTN","ORB 3FUP2",175 ,0) | |
3484 | N INVDT,C ASE S INVD T="",CASE= "" | |
3485 | "RTN","ORB 3FUP2",176 ,0) | |
3486 | ;XQADATA is differe nt for HL7 -triggered vs. radio logy pkg t riggered | |
3487 | "RTN","ORB 3FUP2",177 ,0) | |
3488 | S INVDT=$ P(XQADATA, "~",2),CAS E=$P($P(XQ ADATA,"~", 3),"@") | |
3489 | "RTN","ORB 3FUP2",178 ,0) | |
3490 | I $G(OREN VIR)="GUI" D DETAIL^ ORQQRA(.OR BY,ORPT,IN VDT,CASE) | |
3491 | "RTN","ORB 3FUP2",179 ,0) | |
3492 | I $G(OREN VIR)'="GUI " D | |
3493 | "RTN","ORB 3FUP2",180 ,0) | |
3494 | .D MSG^OR B3FUP1 | |
3495 | "RTN","ORB 3FUP2",181 ,0) | |
3496 | .D EN1^OR CXPND(ORPT ,INVDT_"-" _CASE,"XRA YS") | |
3497 | "RTN","ORB 3FUP2",182 ,0) | |
3498 | .D DEL^OR B3FUP1(.OR Y,ORBXQAID ) | |
3499 | "RTN","ORB 3FUP2",183 ,0) | |
3500 | Q | |
3501 | "RTN","ORB 3FUP2",184 ,0) | |
3502 | RPTRAD2 ;r adiology r esult foll ow-up for radiology pkg-trigge red notifi cations | |
3503 | "RTN","ORB 3FUP2",185 ,0) | |
3504 | K XQAKILL | |
3505 | "RTN","ORB 3FUP2",186 ,0) | |
3506 | N ORPT,OR BXQAID,ORY S ORBXQAI D=XQAID | |
3507 | "RTN","ORB 3FUP2",187 ,0) | |
3508 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3509 | "RTN","ORB 3FUP2",188 ,0) | |
3510 | N INVDT,C ASE S INVD T="",CASE= "" | |
3511 | "RTN","ORB 3FUP2",189 ,0) | |
3512 | ;XQADATA is differe nt for HL7 -triggered vs. radio logy pkg t riggered | |
3513 | "RTN","ORB 3FUP2",190 ,0) | |
3514 | S INVDT=$ P(XQADATA, "~",1),CAS E=$P(XQADA TA,"~",2) | |
3515 | "RTN","ORB 3FUP2",191 ,0) | |
3516 | I $G(OREN VIR)="GUI" D DETAIL^ ORQQRA(.OR BY,ORPT,IN VDT,CASE) | |
3517 | "RTN","ORB 3FUP2",192 ,0) | |
3518 | I $G(OREN VIR)'="GUI " D | |
3519 | "RTN","ORB 3FUP2",193 ,0) | |
3520 | .D MSG^OR B3FUP1 | |
3521 | "RTN","ORB 3FUP2",194 ,0) | |
3522 | .D EN1^OR CXPND(ORPT ,INVDT_"-" _CASE,"XRA YS") | |
3523 | "RTN","ORB 3FUP2",195 ,0) | |
3524 | .D DEL^OR B3FUP1(.OR Y,ORBXQAID ) | |
3525 | "RTN","ORB 3FUP2",196 ,0) | |
3526 | Q | |
3527 | "RTN","ORB 3FUP2",197 ,0) | |
3528 | EXOI ;expi ring flagg ed orderab le items f ollow-up | |
3529 | "RTN","ORB 3FUP2",198 ,0) | |
3530 | K XQAKILL | |
3531 | "RTN","ORB 3FUP2",199 ,0) | |
3532 | N ORPT,OR DG,ORBXQAI D,ORY,ORBL MDEL | |
3533 | "RTN","ORB 3FUP2",200 ,0) | |
3534 | S ORBXQAI D=XQAID | |
3535 | "RTN","ORB 3FUP2",201 ,0) | |
3536 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3537 | "RTN","ORB 3FUP2",202 ,0) | |
3538 | ;the FLG code for E XPIRING or ders in OR Q1 is '5' | |
3539 | "RTN","ORB 3FUP2",203 ,0) | |
3540 | I $G(OREN VIR)="GUI" D LIST^OR QOR1(.ORBY ,ORPT,"ALL ",5,"","") | |
3541 | "RTN","ORB 3FUP2",204 ,0) | |
3542 | I $G(OREN VIR)'="GUI " D | |
3543 | "RTN","ORB 3FUP2",205 ,0) | |
3544 | .D MSG^OR B3FUP1 | |
3545 | "RTN","ORB 3FUP2",206 ,0) | |
3546 | .S ORDG=$ $DG^ORQOR1 ("ALL") ; get Displa y Group ie n | |
3547 | "RTN","ORB 3FUP2",207 ,0) | |
3548 | .D EN^ORC B(ORPT,5,O RDG,.ORBLM DEL) | |
3549 | "RTN","ORB 3FUP2",208 ,0) | |
3550 | .K ^TMP(" ORR",$J) | |
3551 | "RTN","ORB 3FUP2",209 ,0) | |
3552 | .Q:$G(ORB LMDEL)=1 ;if EN^ORC B rtns ORB LMDEL=1, a lert was r emoved in LM | |
3553 | "RTN","ORB 3FUP2",210 ,0) | |
3554 | .D EN^ORQ 1(ORPT_";D PT(",ORDG, 5,"","","" ,0,0) | |
3555 | "RTN","ORB 3FUP2",211 ,0) | |
3556 | .S X="",X =$O(^TMP(" ORR",$J,X) ) Q:X="" I +$G(^TMP ("ORR",$J, X,"TOT"))< 1 D | |
3557 | "RTN","ORB 3FUP2",212 ,0) | |
3558 | ..D DEL^O RB3FUP1(.O RY,ORBXQAI D) ;if no more EXPI RING order s found, d elete the alert | |
3559 | "RTN","ORB 3FUP2",213 ,0) | |
3560 | .K X,^TMP ("ORR",$J) | |
3561 | "RTN","ORB 3FUP2",214 ,0) | |
3562 | Q | |
3563 | "RTN","ORB 3FUP2",215 ,0) | |
3564 | INTCON ;co nsult inte rpretation follow-up | |
3565 | "RTN","ORB 3FUP2",216 ,0) | |
3566 | K XQAKILL | |
3567 | "RTN","ORB 3FUP2",217 ,0) | |
3568 | N NXQADAT A | |
3569 | "RTN","ORB 3FUP2",218 ,0) | |
3570 | I $G(OREN VIR)'="GUI " D | |
3571 | "RTN","ORB 3FUP2",219 ,0) | |
3572 | .D MSG^OR B3FUP1 | |
3573 | "RTN","ORB 3FUP2",220 ,0) | |
3574 | .R !!?5," This alert must be p rocessed i n the CPRS GUI.",X:1 0 | |
3575 | "RTN","ORB 3FUP2",221 ,0) | |
3576 | .K X | |
3577 | "RTN","ORB 3FUP2",222 ,0) | |
3578 | Q | |
3579 | "RTN","ORB 3FUP2",223 ,0) | |
3580 | CHGRAD ;ra diology fo llow-up fo r #67 Imag ing Reques t Changed | |
3581 | "RTN","ORB 3FUP2",224 ,0) | |
3582 | K XQAKILL | |
3583 | "RTN","ORB 3FUP2",225 ,0) | |
3584 | N ORPT,OR BXQAID,ORY S ORBXQAI D=XQAID | |
3585 | "RTN","ORB 3FUP2",226 ,0) | |
3586 | S ORPT=$P ($P(XQAID, ";"),",",2 ) ;get pt dfn from xqaid | |
3587 | "RTN","ORB 3FUP2",227 ,0) | |
3588 | I $G(OREN VIR)'="GUI " D | |
3589 | "RTN","ORB 3FUP2",228 ,0) | |
3590 | .D MSG^OR B3FUP1 | |
3591 | "RTN","ORB 3FUP2",229 ,0) | |
3592 | .I $L($T( EN1^RAO7PC 4))>0 D | |
3593 | "RTN","ORB 3FUP2",230 ,0) | |
3594 | ..D EN1^R AO7PC4 ;d isplay bef ore and af ter change (s) | |
3595 | "RTN","ORB 3FUP2",231 ,0) | |
3596 | ..D DEL^O RB3FUP1(.O RY,ORBXQAI D) | |
3597 | "RTN","ORB 3FUP2",232 ,0) | |
3598 | Q | |
3599 | "RTN","ORB 3FUP2",233 ,0) | |
3600 | INFODEL ;f ollow-up a ction to d elete "inf ormational " alerts | |
3601 | "RTN","ORB 3FUP2",234 ,0) | |
3602 | K XQAKILL | |
3603 | "RTN","ORB 3FUP2",235 ,0) | |
3604 | N ORY,ORB XQAID | |
3605 | "RTN","ORB 3FUP2",236 ,0) | |
3606 | S ORBXQAI D=XQAID | |
3607 | "RTN","ORB 3FUP2",237 ,0) | |
3608 | D MSG^ORB 3FUP1 | |
3609 | "RTN","ORB 3FUP2",238 ,0) | |
3610 | D DEL^ORB 3FUP1(.ORY ,ORBXQAID) | |
3611 | "RTN","ORB 3FUP2",239 ,0) | |
3612 | Q | |
3613 | "RTN","ORB 3FUP2",240 ,0) | |
3614 | RTC ;follo wup action for RTC o rder alert | |
3615 | "RTN","ORB 3FUP2",241 ,0) | |
3616 | N ORY | |
3617 | "RTN","ORB 3FUP2",242 ,0) | |
3618 | W !,"You must use C PRS to pro cess this alert!" | |
3619 | "RTN","ORB 3FUP2",243 ,0) | |
3620 | D RENEW^O RB31(.ORY, XQAID) | |
3621 | "RTN","ORB 3FUP2",244 ,0) | |
3622 | Q | |
3623 | "RTN","ORB 3FUP2",245 ,0) | |
3624 | ; | |
3625 | "RTN","ORC ACT0") | |
3626 | 0^13^B6748 0788 | |
3627 | "RTN","ORC ACT0",1,0) | |
3628 | ORCACT0 ;S LC/MKB-Val idate orde r action ; 06/13/17 | |
3629 | "RTN","ORC ACT0",2,0) | |
3630 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**7 ,27,48,72, 86,92,94,1 41,165,177 ,173,190,2 15,243,289 ,204,306,3 50,425,434 **;Dec 17, 1997;Buil d 31 | |
3631 | "RTN","ORC ACT0",3,0) | |
3632 | ; | |
3633 | "RTN","ORC ACT0",4,0) | |
3634 | ;Referenc e to REFIL L^PSOREF s upported b y IA #2399 | |
3635 | "RTN","ORC ACT0",5,0) | |
3636 | ; | |
3637 | "RTN","ORC ACT0",6,0) | |
3638 | VALID(IFN, ACTION,ERR OR,NATR) ; -- Determ ines if ac tion is va lid for or der IFN | |
3639 | "RTN","ORC ACT0",7,0) | |
3640 | N OR0,OR3 ,ORA0,AIFN ,PKG,DG,OR DSTS,ACTST S,VER,X,Y, MEDPARM,CS ORD,ORDLG, ORENVIR K ERROR | |
3641 | "RTN","ORC ACT0",8,0) | |
3642 | S OR0=$G( ^OR(100,+I FN,0)),OR3 =$G(^(3)), PKG=$$NMSP ^ORCD($P(O R0,U,14)) | |
3643 | "RTN","ORC ACT0",9,0) | |
3644 | S ORENVIR =$S('$D(XQ Y0):"",$P( XQY0,U)="O R CPRS GUI CHART":"G UI",1:"") | |
3645 | "RTN","ORC ACT0",10,0 ) | |
3646 | I $G(OREN VIR)'="GUI "&(ACTION= "ES") D G VQ | |
3647 | "RTN","ORC ACT0",11,0 ) | |
3648 | . S CSORD ="" D CSVA LUE^ORDEA( .CSORD,+IF N) | |
3649 | "RTN","ORC ACT0",12,0 ) | |
3650 | . S ORDLG =$S($P(OR0 ,U,5)["101 .41":$P($G (^ORD(101. 41,+$P(OR0 ,U,5),0)), U),1:"") | |
3651 | "RTN","ORC ACT0",13,0 ) | |
3652 | . I CSORD &(ORDLG="P SO OERR") D | |
3653 | "RTN","ORC ACT0",14,0 ) | |
3654 | . . S ERR OR="Outpat ient contr olled subs tance orde r(s) canno t be signe d in VistA due to"_$ C(13,10) | |
3655 | "RTN","ORC ACT0",15,0 ) | |
3656 | . . S ERR OR=ERROR_" DEA r ules! Plea se sign yo ur order(s ) from the CPRS GUI. " | |
3657 | "RTN","ORC ACT0",16,0 ) | |
3658 | . . Q | |
3659 | "RTN","ORC ACT0",17,0 ) | |
3660 | S DG=$P($ G(^ORD(100 .98,+$P(OR 0,U,11),0) ),U,3) | |
3661 | "RTN","ORC ACT0",18,0 ) | |
3662 | S MEDPARM =$S($G(NAT R)="A":2,P KG'="PS":2 ,'$D(^XUSE C("OREMAS" ,DUZ)):2,D G="NV RX": $$GET^XPAR ("ALL","OR OREMAS NO N-VA MED O RDERS"),1: $$GET^XPAR ("ALL","OR OREMAS ME D ORDERS") ) | |
3663 | "RTN","ORC ACT0",19,0 ) | |
3664 | S AIFN=$P (IFN,";",2 ) S:'AIFN AIFN=+$P(O R3,U,7) | |
3665 | "RTN","ORC ACT0",20,0 ) | |
3666 | S ORA0=$G (^OR(100,+ IFN,8,AIFN ,0)),ACTST S=$P(ORA0, U,15) | |
3667 | "RTN","ORC ACT0",21,0 ) | |
3668 | S ORDSTS= $P(OR3,U,3 ),VER=$S($ P(OR0,U,5) ["101.41": 3,1:2) | |
3669 | "RTN","ORC ACT0",22,0 ) | |
3670 | CM ;I ACTI ON="CM" S ERROR="Thi s action i s no longe r availabl e!" G VQ ; ward comm ents - no restrictio ns | |
3671 | "RTN","ORC ACT0",23,0 ) | |
3672 | FL I ACTIO N="FL" D G VQ ; fla g | |
3673 | "RTN","ORC ACT0",24,0 ) | |
3674 | . I PKG=" SD" S ERRO R="Flaggin g not allo wed on Sch eduling or ders!" Q | |
3675 | "RTN","ORC ACT0",25,0 ) | |
3676 | . I +$G(^ OR(100,+IF N,8,AIFN,3 )) S ERROR ="This ord er is alre ady flagge d!" Q | |
3677 | "RTN","ORC ACT0",26,0 ) | |
3678 | UF I ACTIO N="UF" D G VQ ; unf lag | |
3679 | "RTN","ORC ACT0",27,0 ) | |
3680 | . I PKG=" SD" S ERRO R="Un-Flag ging not a llowed on Scheduling orders!" Q | |
3681 | "RTN","ORC ACT0",28,0 ) | |
3682 | . I '+$G( ^OR(100,+I FN,8,AIFN, 3)) S ERRO R="This or der is not flagged!" Q | |
3683 | "RTN","ORC ACT0",29,0 ) | |
3684 | DC1 I ACTI ON="DC",AC TSTS D G VQ ; disco ntinue/can cel unrel or canc or der | |
3685 | "RTN","ORC ACT0",30,0 ) | |
3686 | . I (ACTS TS=11)!(AC TSTS=10) D Q ; unr eleased | |
3687 | "RTN","ORC ACT0",31,0 ) | |
3688 | .. I 'MED PARM S ERR OR="You ar e not auth orized to cancel med orders!" Q | |
3689 | "RTN","ORC ACT0",32,0 ) | |
3690 | .. I $G(N ATR)="A" S X=$O(^ORE (100.2,"AO ",+IFN,0)) I X,'$G(^ ORE(100.2, X,1)) S ER ROR="Futur e event or ders may n ot be auto -discontin ued!" Q | |
3691 | "RTN","ORC ACT0",33,0 ) | |
3692 | . I ACTST S=12 S ERR OR="This o rder has b een dc'd d ue to edit !" Q | |
3693 | "RTN","ORC ACT0",34,0 ) | |
3694 | . I ACTST S=13 S ERR OR="This o rder has b een cancel led!" Q | |
3695 | "RTN","ORC ACT0",35,0 ) | |
3696 | ES I (ACTI ON="ES")!( ACTION="OC ")!(ACTION ="RS")!(AC TION="DS") D ES^ORCA CT01 G VQ ; sign | |
3697 | "RTN","ORC ACT0",36,0 ) | |
3698 | VR I ACTIO N="VR" D G VQ ; ver ify | |
3699 | "RTN","ORC ACT0",37,0 ) | |
3700 | . I $G(OR VER)="N",$ P(ORA0,U,9 ) S ERROR= "This orde r has been verified! " Q | |
3701 | "RTN","ORC ACT0",38,0 ) | |
3702 | . I $G(OR VER)="C",$ P(ORA0,U,1 1) S ERROR ="This ord er has bee n verified !" Q | |
3703 | "RTN","ORC ACT0",39,0 ) | |
3704 | . I $G(OR VER)="R",$ P(ORA0,U,1 9) S ERROR ="This ord er has bee n reviewed !" Q | |
3705 | "RTN","ORC ACT0",40,0 ) | |
3706 | . I (ACTS TS=11)!(AC TSTS=10) S ERROR="Th is order h as not bee n released to the se rvice." Q | |
3707 | "RTN","ORC ACT0",41,0 ) | |
3708 | . I AIFN= 1,ORDSTS=5 ,PKG="PS" S X=$$DISA BLED I X S ERROR=$P( X,U,2) Q | |
3709 | "RTN","ORC ACT0",42,0 ) | |
3710 | DIS S X=$$ DISABLED I X S ERROR =$P(X,U,2) G VQ | |
3711 | "RTN","ORC ACT0",43,0 ) | |
3712 | MN I ACTIO N="MN" D G VQ ; man ually rele ase (delay ed) | |
3713 | "RTN","ORC ACT0",44,0 ) | |
3714 | . I ACTST S'=10,ACTS TS'=11 S E RROR="This order has already b een releas ed!" Q | |
3715 | "RTN","ORC ACT0",45,0 ) | |
3716 | . ;I $P(O R0,U,12)=" I",'$G(^DP T(+ORVP,.1 05)) S ERR OR="This p atient is not curren tly admitt ed!" | |
3717 | "RTN","ORC ACT0",46,0 ) | |
3718 | GMRA I PKG ="GMRA" S ERROR="Thi s action i s not allo wed on an allergy/ad verse reac tion!" G V Q ; no act ions allow ed on Alle rgies | |
3719 | "RTN","ORC ACT0",47,0 ) | |
3720 | MEDS I PKG ="PS",'MED PARM S ERR OR="You ar e not auth orized to enter med orders!" G VQ | |
3721 | "RTN","ORC ACT0",48,0 ) | |
3722 | RW I ACTIO N="RW" D R W^ORCACT01 G VQ ; re write/copy | |
3723 | "RTN","ORC ACT0",49,0 ) | |
3724 | XFR I ACTI ON="XFR" D G VQ | |
3725 | "RTN","ORC ACT0",50,0 ) | |
3726 | . N A | |
3727 | "RTN","ORC ACT0",51,0 ) | |
3728 | . S A="" | |
3729 | "RTN","ORC ACT0",52,0 ) | |
3730 | . F S A= $O(^OR(100 ,+IFN,4.5, "ID","CONJ ",A)) Q:'A I ^OR(10 0,+IFN,4.5 ,A,1)="X" S ERROR="O rders with a conjunc tion of 'E XCEPT' may not be tr ansferred. " Q | |
3731 | "RTN","ORC ACT0",53,0 ) | |
3732 | . F S A= $O(^OR(100 ,+IFN,4.5, "ID","CONJ ",A)) Q:'A I ^OR(10 0,+IFN,4.5 ,A,1)="T" S ERROR="O rders with a conjunc tion of 'T HEN' may n ot be tran sferred." Q | |
3733 | "RTN","ORC ACT0",54,0 ) | |
3734 | . I $G(ER ROR)]"" Q | |
3735 | "RTN","ORC ACT0",55,0 ) | |
3736 | . D XFR^O RCACT01 ; transfer t o in/outpt | |
3737 | "RTN","ORC ACT0",56,0 ) | |
3738 | RN I ACTIO N="RN" D R N^ORCACT01 G VQ ; re new | |
3739 | "RTN","ORC ACT0",57,0 ) | |
3740 | TRM I $$DO NE G VQ ; ORDSTS=1,2 ,7,12,13 | |
3741 | "RTN","ORC ACT0",58,0 ) | |
3742 | EV I ACTIO N="EV" D G VQ ; cha nge delay event | |
3743 | "RTN","ORC ACT0",59,0 ) | |
3744 | . I ORDST S'=10,ORDS TS'=11 S E RROR="This order has been rele ased!" Q | |
3745 | "RTN","ORC ACT0",60,0 ) | |
3746 | . I DG="N V RX" S ER ROR="Non-V A Med orde rs do not support th is action! " Q | |
3747 | "RTN","ORC ACT0",61,0 ) | |
3748 | . I $$EVT ORDER^OREV NTX(IFN) S ERROR="Th e release event for this order may not b e changed! " Q | |
3749 | "RTN","ORC ACT0",62,0 ) | |
3750 | . S X=$P( ORA0,U,4) I X'=2,X'= 3 S ERROR= "Signed or ders may n ot be dela yed to ano ther event !" Q | |
3751 | "RTN","ORC ACT0",63,0 ) | |
3752 | DC2 I ACTI ON="DC",AC TSTS="" D G VQ ; DC released order | |
3753 | "RTN","ORC ACT0",64,0 ) | |
3754 | . I $G(NA TR)="A" D Q:$D(ERRO R) | |
3755 | "RTN","ORC ACT0",65,0 ) | |
3756 | .. S X=$O (^ORE(100. 2,"AO",+IF N,0)) I X S:'$G(^ORE (100.2,X,1 )) ERROR=" Future eve nt orders may not be auto-disc ontinued!" Q | |
3757 | "RTN","ORC ACT0",66,0 ) | |
3758 | .. I $$GE T1^DIQ(9.4 ,+$P(OR0,U ,14)_",",1 )="PSO",$G (DGPMT)=1 Q ;177 If admission auto-dc a nd order i s outpt me d then no further ch ecking nee ded | |
3759 | "RTN","ORC ACT0",67,0 ) | |
3760 | .. I $G(D GPMT)=1,$P ($G(^SC(+$ P(OR0,U,10 ),0)),U,3) '="C" S ER ROR="Only outpatient orders ma y be auto- discontinu ed!" Q | |
3761 | "RTN","ORC ACT0",68,0 ) | |
3762 | .. I $G(D GPMT)'=1,$ P($G(^SC(+ $P(OR0,U,1 0),0)),U,3 )="C",PKG' ="PS" S ER ROR="Only inpatient orders may be auto-d iscontinue d!" Q | |
3763 | "RTN","ORC ACT0",69,0 ) | |
3764 | . I PKG=" RA",ORDSTS =6 S ERROR ="Active R adiology o rders cann ot be disc ontinued!" Q | |
3765 | "RTN","ORC ACT0",70,0 ) | |
3766 | . I PKG=" VBEC",ORDS TS=6 S ERR OR="Active Blood Pro duct order s cannot b e disconti nued!" Q | |
3767 | "RTN","ORC ACT0",71,0 ) | |
3768 | . I PKG=" LR" D Q | |
3769 | "RTN","ORC ACT0",72,0 ) | |
3770 | .. I $$CO LLECTD S E RROR="Lab orders tha t have bee n collecte d may not be discont inued!" Q | |
3771 | "RTN","ORC ACT0",73,0 ) | |
3772 | .. I $G(N ATR)="A"," ^12^38^"'[ (U_$P($G(D GPMA),U,18 )_U),$$VAL UE^ORX8(+I FN,"COLLEC T")="SP",$ P(OR0,U,8) '<DT S ERR OR="Future Send Pati ent orders may not b e auto-dis continued! " Q | |
3773 | "RTN","ORC ACT0",74,0 ) | |
3774 | . I PKG=" GMRC",ORDS TS=9 S ERR OR="Consul ts orders with parti al results cannot be discontin ued!" Q | |
3775 | "RTN","ORC ACT0",75,0 ) | |
3776 | . I DG="D O",$G(DGPM T)'=3,ORDS TS=6,'$$NP O(+IFN) S ERROR="Act ive Diets cannot be discontinu ed; please order a n ew diet!" Q | |
3777 | "RTN","ORC ACT0",76,0 ) | |
3778 | RL I ACTIO N="RL" D G VQ ; re lease hold | |
3779 | "RTN","ORC ACT0",77,0 ) | |
3780 | . I ORDST S'=3 D Q | |
3781 | "RTN","ORC ACT0",78,0 ) | |
3782 | ..I $P(OR A0,U,4)=2 S ERROR="P roviders h as not yet signed th e hold ord er and the refor it c annot yet be release d" Q | |
3783 | "RTN","ORC ACT0",79,0 ) | |
3784 | ..S ERROR ="Orders n ot on hold cannot be released! " Q | |
3785 | "RTN","ORC ACT0",80,0 ) | |
3786 | . I ACTST S S ERROR= $$ACTION($ P(ORA0,U,2 ))_" order s cannot b e released from hold !" Q | |
3787 | "RTN","ORC ACT0",81,0 ) | |
3788 | . N NATR, ACT S ACT= $S($P(ORA0 ,U,2)="HD" :AIFN,1:+$ P(OR3,U,7) ) | |
3789 | "RTN","ORC ACT0",82,0 ) | |
3790 | . S NATR= +$P($G(^OR (100,+IFN, 8,ACT,0)), U,12),ACT= $P($G(^(0) ),U,2) | |
3791 | "RTN","ORC ACT0",83,0 ) | |
3792 | . I PKG=" RA"!(ACT'= "HD")!($P( $G(^ORD(10 0.02,NATR, 0)),U,2)=" S") S ERRO R="Orders held by a service mu st be rele ased from hold throu gh the ser vice!" Q | |
3793 | "RTN","ORC ACT0",84,0 ) | |
3794 | AIFN S X=$ P(ORA0,U,2 ) I AIFN>1 ,ACTSTS S ERROR="Thi s action i s not allo wed on a " _$$ACTION( X)_" order !" G VQ | |
3795 | "RTN","ORC ACT0",85,0 ) | |
3796 | RF I ACTIO N="RF" D G VQ | |
3797 | "RTN","ORC ACT0",86,0 ) | |
3798 | . I DG'=" O RX",DG'= "SPLY" S E RROR="Only Outpatien t Med and Supply ord ers may be refilled! " Q | |
3799 | "RTN","ORC ACT0",87,0 ) | |
3800 | . I ORDST S=5 S ERRO R="Pending orders ma y not be r efilled!" Q | |
3801 | "RTN","ORC ACT0",88,0 ) | |
3802 | . I ORDST S=7 S ERRO R="Expired orders ma y not be r efilled!" Q | |
3803 | "RTN","ORC ACT0",89,0 ) | |
3804 | . N X,PSI FN S PSIFN =$G(^OR(10 0,+IFN,4)) | |
3805 | "RTN","ORC ACT0",90,0 ) | |
3806 | . S X=$$R EFILL^PSOR EF(PSIFN) I X'>0 S E RROR=$P(X, U,2) Q | |
3807 | "RTN","ORC ACT0",91,0 ) | |
3808 | CP I ACTIO N="CP" D G VQ ; com plete | |
3809 | "RTN","ORC ACT0",92,0 ) | |
3810 | . I PKG'= "OR" S ERR OR="Only g eneric tex t orders m ay be comp leted thro ugh this o ption!" Q | |
3811 | "RTN","ORC ACT0",93,0 ) | |
3812 | . I ORDST S=11!(ORDS TS=10) S E RROR="This order has not been released!" Q | |
3813 | "RTN","ORC ACT0",94,0 ) | |
3814 | AL I ACTIO N="AL" D G VQ | |
3815 | "RTN","ORC ACT0",95,0 ) | |
3816 | . I PKG'= "LR",PKG'= "RA",PKG'= "GMRC" S E RROR="This order doe s not gene rate resul ts!" Q | |
3817 | "RTN","ORC ACT0",96,0 ) | |
3818 | . I $P(OR 3,U,10) S ERROR="Thi s order is already f lagged to alert the provider w hen result ed!" Q | |
3819 | "RTN","ORC ACT0",97,0 ) | |
3820 | XX I ACTIO N="XX" D G VQ ; edi t/change | |
3821 | "RTN","ORC ACT0",98,0 ) | |
3822 | . I PKG=" SD",ORDSTS '=11 S ERR OR="Change action no t allowed on Schedul ing orders !" Q | |
3823 | "RTN","ORC ACT0",99,0 ) | |
3824 | . I ORDST S=7 S ERRO R="Expired orders ma y not be c hanged!" Q | |
3825 | "RTN","ORC ACT0",100, 0) | |
3826 | . D XX^OR CACT01 | |
3827 | "RTN","ORC ACT0",101, 0) | |
3828 | HD I ACTIO N="HD" D G VQ ; hol d | |
3829 | "RTN","ORC ACT0",102, 0) | |
3830 | . I PKG=" FH" S ERRO R="Diet or ders canno t be held! " Q | |
3831 | "RTN","ORC ACT0",103, 0) | |
3832 | . I PKG=" LR" S ERRO R="Lab ord ers cannot be held!" Q | |
3833 | "RTN","ORC ACT0",104, 0) | |
3834 | . I PKG=" RA" S ERRO R="Radiolo gy orders cannot be held!" Q | |
3835 | "RTN","ORC ACT0",105, 0) | |
3836 | . I PKG=" GMRC" S ER ROR="Consu lt orders cannot be held!" Q | |
3837 | "RTN","ORC ACT0",106, 0) | |
3838 | . I DG="N V RX" S ER ROR="Non-V A Med orde rs cannot be held!" Q | |
3839 | "RTN","ORC ACT0",107, 0) | |
3840 | . I PKG=" SD" S ERRO R="Schedul ing orders cannot be held!" Q | |
3841 | "RTN","ORC ACT0",108, 0) | |
3842 | . I ORDST S=3 S ERRO R="This or der is alr eady on ho ld!" Q | |
3843 | "RTN","ORC ACT0",109, 0) | |
3844 | . I ORDST S'=6,PKG=" PS" S ERRO R="Only ac tive Pharm acy orders may be he ld!" Q | |
3845 | "RTN","ORC ACT0",110, 0) | |
3846 | . I (ORDS TS=11)!(OR DSTS=10) S ERROR="Th is order h as not bee n released to the se rvice." Q | |
3847 | "RTN","ORC ACT0",111, 0) | |
3848 | VQ S Y=$S( $D(ERROR): 0,1:1) | |
3849 | "RTN","ORC ACT0",112, 0) | |
3850 | Q Y | |
3851 | "RTN","ORC ACT0",113, 0) | |
3852 | ; | |
3853 | "RTN","ORC ACT0",114, 0) | |
3854 | ACTION(X) ; -- Retur n text of action X | |
3855 | "RTN","ORC ACT0",115, 0) | |
3856 | N Y S Y=$ S(X="NW":" New",X="DC ":"Discont inue",X="H D":"Hold", X="RL":"Re lease Hold ",X="RN":" Renew",1:X ) | |
3857 | "RTN","ORC ACT0",116, 0) | |
3858 | Q Y | |
3859 | "RTN","ORC ACT0",117, 0) | |
3860 | ; | |
3861 | "RTN","ORC ACT0",118, 0) | |
3862 | NPO(ORIFN) ; -- Retu rns 1 or 0 , if order ORIFN is for NPO | |
3863 | "RTN","ORC ACT0",119, 0) | |
3864 | N X,Y S X =$$VALUE^O RX8(+ORIFN ,"ORDERABL E",1,"E") | |
3865 | "RTN","ORC ACT0",120, 0) | |
3866 | S Y=$S($E (X,1,3)="N PO":1,1:0) | |
3867 | "RTN","ORC ACT0",121, 0) | |
3868 | Q Y | |
3869 | "RTN","ORC ACT0",122, 0) | |
3870 | ; | |
3871 | "RTN","ORC ACT0",123, 0) | |
3872 | COLLECTD() ; -- Lab order coll ected/acti ve (incl a ll childre n)? | |
3873 | "RTN","ORC ACT0",124, 0) | |
3874 | I (ORDSTS =11)!(ORDS TS=10) Q 0 ; unrelea sed | |
3875 | "RTN","ORC ACT0",125, 0) | |
3876 | I '$O(^OR (100,+IFN, 2,0)) Q (O RDSTS'=5) | |
3877 | "RTN","ORC ACT0",126, 0) | |
3878 | ;I ORDSTS '=6 Q 1 ; Parent -> active ins tead of pe nding | |
3879 | "RTN","ORC ACT0",127, 0) | |
3880 | N Y,Z S Y =1,Z=0 | |
3881 | "RTN","ORC ACT0",128, 0) | |
3882 | F S Z=$O (^OR(100,+ IFN,2,Z)) Q:Z'>0 I $P($G(^OR( 100,Z,3)), U,3)=5 S Y =0 Q | |
3883 | "RTN","ORC ACT0",129, 0) | |
3884 | Q Y | |
3885 | "RTN","ORC ACT0",130, 0) | |
3886 | ; | |
3887 | "RTN","ORC ACT0",131, 0) | |
3888 | DONE() ; - - sets ERR OR if term inal statu s | |
3889 | "RTN","ORC ACT0",132, 0) | |
3890 | I ORDSTS= 1 S ERROR= "This orde r has been discontin ued!" Q 1 | |
3891 | "RTN","ORC ACT0",133, 0) | |
3892 | I ORDSTS= 2 S ERROR= "This orde r has been completed !" Q 1 | |
3893 | "RTN","ORC ACT0",134, 0) | |
3894 | I ORDSTS= 7,DG'="O R X" S ERROR ="This ord er has exp ired!" Q 1 | |
3895 | "RTN","ORC ACT0",135, 0) | |
3896 | I ORDSTS= 12 S ERROR ="This ord er has bee n changed! " Q 1 | |
3897 | "RTN","ORC ACT0",136, 0) | |
3898 | I ORDSTS= 13 S ERROR ="This ord er has bee n cancelle d!" Q 1 | |
3899 | "RTN","ORC ACT0",137, 0) | |
3900 | I ORDSTS= 14 S ERROR ="This ord er has lap sed!" Q 1 | |
3901 | "RTN","ORC ACT0",138, 0) | |
3902 | I ORDSTS= 15 S ERROR ="This ord er has bee n renewed! " Q 1 | |
3903 | "RTN","ORC ACT0",139, 0) | |
3904 | Q 0 | |
3905 | "RTN","ORC ACT0",140, 0) | |
3906 | ; | |
3907 | "RTN","ORC ACT0",141, 0) | |
3908 | DISABLED() ; -- Orde r dialog [ or protoco l] disable d? | |
3909 | "RTN","ORC ACT0",142, 0) | |
3910 | N X,DLG S DLG=$P(OR 0,U,5),X=0 I +DLG'>0 Q X | |
3911 | "RTN","ORC ACT0",143, 0) | |
3912 | I VER'<3, DLG?1.N1"; ORD(101.41 ," S X=$$M SG^ORXD(+D LG) Q X | |
3913 | "RTN","ORC ACT0",144, 0) | |
3914 | S DLG=$S( PKG="RA":" RA OERR EX AM",PKG="G MRC":"GMRC OR CONSULT ",1:"") | |
3915 | "RTN","ORC ACT0",145, 0) | |
3916 | I $L(DLG) S DLG=+$O (^ORD(101. 41,"AB",DL G,0)),X=$$ MSG^ORXD(D LG) | |
3917 | "RTN","ORC ACT0",146, 0) | |
3918 | Q X | |
3919 | "RTN","ORC DSD") | |
3920 | 0^4^B46340 75 | |
3921 | "RTN","ORC DSD",1,0) | |
3922 | ORCDSD ;SL C/AGP Sche duling Ord er dialog utilities ;05/10/17 07:47 | |
3923 | "RTN","ORC DSD",2,0) | |
3924 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**4 34**;Dec 1 7, 1997;Bu ild 31 | |
3925 | "RTN","ORC DSD",3,0) | |
3926 | ;Per VHA Directive 2004-038, this routi ne should not be mod ified. | |
3927 | "RTN","ORC DSD",4,0) | |
3928 | Q | |
3929 | "RTN","ORC DSD",5,0) | |
3930 | ; | |
3931 | "RTN","ORC DSD",6,0) | |
3932 | INTERH ; | |
3933 | "RTN","ORC DSD",7,0) | |
3934 | N LIST,NA ME | |
3935 | "RTN","ORC DSD",8,0) | |
3936 | W !,"Sele ct one of the follow ing:" | |
3937 | "RTN","ORC DSD",9,0) | |
3938 | D INTERL( .LIST) | |
3939 | "RTN","ORC DSD",10,0) | |
3940 | S NAME="" F S NAME =$O(LIST(N AME)) Q:NA ME="" W ! ," "_NAME | |
3941 | "RTN","ORC DSD",11,0) | |
3942 | Q | |
3943 | "RTN","ORC DSD",12,0) | |
3944 | INTERL(LIS T) ; | |
3945 | "RTN","ORC DSD",13,0) | |
3946 | S LIST("W EEKLY")="" ,LIST("DAI LY")="" | |
3947 | "RTN","ORC DSD",14,0) | |
3948 | Q | |
3949 | "RTN","ORC DSD",15,0) | |
3950 | ; | |
3951 | "RTN","ORC DSD",16,0) | |
3952 | INTERV ; | |
3953 | "RTN","ORC DSD",17,0) | |
3954 | N NAME,LI ST,TMP | |
3955 | "RTN","ORC DSD",18,0) | |
3956 | S TMP=$$U P^XLFSTR(X ) | |
3957 | "RTN","ORC DSD",19,0) | |
3958 | D INTERL( .LIST) | |
3959 | "RTN","ORC DSD",20,0) | |
3960 | I $D(LIST (TMP)) Q | |
3961 | "RTN","ORC DSD",21,0) | |
3962 | W !!,X_"i s an inval id interva l",!! | |
3963 | "RTN","ORC DSD",22,0) | |
3964 | D INTERH | |
3965 | "RTN","ORC DSD",23,0) | |
3966 | W ! | |
3967 | "RTN","ORC DSD",24,0) | |
3968 | K X | |
3969 | "RTN","ORC DSD",25,0) | |
3970 | Q | |
3971 | "RTN","ORC DSD",26,0) | |
3972 | ; | |
3973 | "RTN","ORC DSD",27,0) | |
3974 | PREREQP(LI ST) ; | |
3975 | "RTN","ORC DSD",28,0) | |
3976 | N ERR | |
3977 | "RTN","ORC DSD",29,0) | |
3978 | D GETLST^ XPAR(.LIST ,"SYS","OR SD DIALOG PREREQ"," N",.ERR) | |
3979 | "RTN","ORC DSD",30,0) | |
3980 | Q | |
3981 | "RTN","ORC DSD",31,0) | |
3982 | ; | |
3983 | "RTN","ORC DSD",32,0) | |
3984 | PREREQH ; | |
3985 | "RTN","ORC DSD",33,0) | |
3986 | N CNT,LIS T | |
3987 | "RTN","ORC DSD",34,0) | |
3988 | D PREREQP (.LIST) | |
3989 | "RTN","ORC DSD",35,0) | |
3990 | I '$D(LIS T) W !,"No prerequis ites defin ed" | |
3991 | "RTN","ORC DSD",36,0) | |
3992 | W !,"Sele ct from tt he followi ng:" | |
3993 | "RTN","ORC DSD",37,0) | |
3994 | S CNT=0 F S CNT=$O (LIST(CNT) ) Q:CNT'>0 D | |
3995 | "RTN","ORC DSD",38,0) | |
3996 | .I $P(LIS T(CNT),U)= "" Q | |
3997 | "RTN","ORC DSD",39,0) | |
3998 | .W !," " _$P(LIST(C NT),U) | |
3999 | "RTN","ORC DSD",40,0) | |
4000 | Q | |
4001 | "RTN","ORC DSD",41,0) | |
4002 | ; | |
4003 | "RTN","ORC DSD",42,0) | |
4004 | PREREQN() ; | |
4005 | "RTN","ORC DSD",43,0) | |
4006 | N LIST,NU M | |
4007 | "RTN","ORC DSD",44,0) | |
4008 | D PREREQP (.LIST) | |
4009 | "RTN","ORC DSD",45,0) | |
4010 | I '$D(LIS T) Q 0 | |
4011 | "RTN","ORC DSD",46,0) | |
4012 | S NUM=LIS T | |
4013 | "RTN","ORC DSD",47,0) | |
4014 | Q NUM | |
4015 | "RTN","ORC DSD",48,0) | |
4016 | ; | |
4017 | "RTN","ORC DSD",49,0) | |
4018 | PREREQV ; | |
4019 | "RTN","ORC DSD",50,0) | |
4020 | N ARRAY,C NT,NODE,LI ST,TMP | |
4021 | "RTN","ORC DSD",51,0) | |
4022 | S TMP=$$U P^XLFSTR(X ) | |
4023 | "RTN","ORC DSD",52,0) | |
4024 | D PREREQP (.LIST) | |
4025 | "RTN","ORC DSD",53,0) | |
4026 | S CNT=0 F S CNT=$O (LIST(CNT) ) Q:CNT'>0 D | |
4027 | "RTN","ORC DSD",54,0) | |
4028 | .I $P(LIS T(CNT),U)= "" Q | |
4029 | "RTN","ORC DSD",55,0) | |
4030 | .S ARRAY( $$UP^XLFST R($P(LIST( CNT),U)))= "" | |
4031 | "RTN","ORC DSD",56,0) | |
4032 | I '$D(ARR AY(TMP)) W !,X_" is not a vali d prerequi site" K X Q | |
4033 | "RTN","ORC DSD",57,0) | |
4034 | I $G(X)=" " W !! D P REREQH | |
4035 | "RTN","ORC DSD",58,0) | |
4036 | Q | |
4037 | "RTN","ORC DSD",59,0) | |
4038 | ; | |
4039 | "RTN","ORC DSD",60,0) | |
4040 | SETSTOP() ; | |
4041 | "RTN","ORC DSD",61,0) | |
4042 | N %DT,CID C,RESULT,O FFSET,X,Y | |
4043 | "RTN","ORC DSD",62,0) | |
4044 | S RESULT= "T" | |
4045 | "RTN","ORC DSD",63,0) | |
4046 | S X=$$VAL ^ORCD("CLI NICALLY") | |
4047 | "RTN","ORC DSD",64,0) | |
4048 | S %DT="T" D ^%DT | |
4049 | "RTN","ORC DSD",65,0) | |
4050 | S OFFSET= $$GET^XPAR ("SYS","OR SD CIDC S TOP OFFSET ",1,"E") | |
4051 | "RTN","ORC DSD",66,0) | |
4052 | I Y>0 S R ESULT=$$FM ADD^XLFDT( Y,OFFSET) | |
4053 | "RTN","ORC DSD",67,0) | |
4054 | Q RESULT | |
4055 | "RTN","ORC DSD",68,0) | |
4056 | ; | |
4057 | "RTN","ORC DSD",69,0) | |
4058 | VALCLINC(Y ) ; | |
4059 | "RTN","ORC DSD",70,0) | |
4060 | ;N IEN | |
4061 | "RTN","ORC DSD",71,0) | |
4062 | ;S IEN=$O (^SC("B",X ,"")) I IE N'>0 Q 0 | |
4063 | "RTN","ORC DSD",72,0) | |
4064 | I ("C"'[$ P($G(^SC(Y ,0)),U,3)! ('$$ACTLOC ^ORWU(Y))) Q 0 | |
4065 | "RTN","ORC DSD",73,0) | |
4066 | Q 1 | |
4067 | "RTN","ORC DSD",74,0) | |
4068 | ; | |
4069 | "RTN","ORM ") | |
4070 | 0^9^B18341 854 | |
4071 | "RTN","ORM ",1,0) | |
4072 | ORM ; SLC/ MKB/JDL - ORM msg ro uter ;11/1 7/00 10:5 8 | |
4073 | "RTN","ORM ",2,0) | |
4074 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**3 ,97,141,18 7,195,434* *;Dec 17, 1997;Build 31 | |
4075 | "RTN","ORM ",3,0) | |
4076 | EN(MSG) ; -- main en try point for OR REC EIVE where MSG conta ins HL7 ms g | |
4077 | "RTN","ORM ",4,0) | |
4078 | N ORMSG,O RNMSP,ORTY PE,MSH,PID ,PV1,ORC,O RVP,ORTS,O RL,ORCAT,O RAPPT | |
4079 | "RTN","ORM ",5,0) | |
4080 | S ORAPPT= "",ORL=0 | |
4081 | "RTN","ORM ",6,0) | |
4082 | S ORMSG=$ S($L($G(MS G)):MSG,1: "MSG") ; M SG="NAME" or MSG(#)= message | |
4083 | "RTN","ORM ",7,0) | |
4084 | I '$O(@OR MSG@(0)) D EN^ORERR( "Missing H L7 message ",.ORMSG) Q | |
4085 | "RTN","ORM ",8,0) | |
4086 | S MSH=0 F S MSH=$O (@ORMSG@(M SH)) Q:MSH '>0 Q:$E( @ORMSG@(MS H),1,3)="M SH" | |
4087 | "RTN","ORM ",9,0) | |
4088 | I 'MSH D EN^ORERR(" Missing or invalid M SH segment ",.ORMSG) Q | |
4089 | "RTN","ORM ",10,0) | |
4090 | S ORNMSP= $$NMSP($P( @ORMSG@(MS H),"|",3)) ,ORTYPE=$P (@ORMSG@(M SH),"|",9) | |
4091 | "RTN","ORM ",11,0) | |
4092 | I ORTYPE= "SRM" D EN ^ORMSD(.MS G) Q | |
4093 | "RTN","ORM ",12,0) | |
4094 | I '$L(ORN MSP) D EN^ ORERR("Mis sing or in valid send ing applic ation",.OR MSG) Q | |
4095 | "RTN","ORM ",13,0) | |
4096 | D PID I ' $G(ORVP) D EN^ORERR( "Missing o r invalid patient ID ",.ORMSG) Q | |
4097 | "RTN","ORM ",14,0) | |
4098 | D PV1 S O RC=PID | |
4099 | "RTN","ORM ",15,0) | |
4100 | EN1 F S O RC=$O(@ORM SG@(+ORC)) Q:ORC'>0 I $E(@ORM SG@(ORC),1 ,3)="ORC" D | |
4101 | "RTN","ORM ",16,0) | |
4102 | . N ORDCN TRL,ORDSTS ,PKGIFN,OR IFN,ORNP,O RTN,ORERR, ORLOG,ORDU Z,ORQT,ORS TRT,ORSTOP ,ORURG,ORN ATR,OREASO N | |
4103 | "RTN","ORM ",17,0) | |
4104 | . S ORC=O RC_U_@ORMS G@(ORC),OR DCNTRL=$TR ($P(ORC,"| ",2),"@"," P") | |
4105 | "RTN","ORM ",18,0) | |
4106 | . I '$L(O RDCNTRL) S ORERR="In valid cont rol code" D ERROR Q | |
4107 | "RTN","ORM ",19,0) | |
4108 | . S ORIFN =$P($P(ORC ,"|",3),U) ,PKGIFN=$P ($P(ORC,"| ",4),U) | |
4109 | "RTN","ORM ",20,0) | |
4110 | . I ORIFN ,$D(^OR(10 0,+ORIFN,0 )),$P(^(0) ,U,2)'=ORV P S ORERR= "Patient d oesn't mat ch" D ERRO R Q | |
4111 | "RTN","ORM ",21,0) | |
4112 | . S ORDST S=$P(ORC," |",6),ORQT =$P(ORC,"| ",8) | |
4113 | "RTN","ORM ",22,0) | |
4114 | . S ORSTR T=$$FMDATE ($P(ORQT,U ,4)),ORSTO P=$$FMDATE ($P(ORQT,U ,5)) | |
4115 | "RTN","ORM ",23,0) | |
4116 | . S ORURG =$$URGENCY ($P(ORQT,U ,6)),ORLOG =$$FMDATE( $P(ORC,"|" ,10)) | |
4117 | "RTN","ORM ",24,0) | |
4118 | . S ORDUZ =+$P(ORC," |",11),ORN P=+$P(ORC, "|",13),OR EASON=$P(O RC,"|",17) | |
4119 | "RTN","ORM ",25,0) | |
4120 | . S ORNAT R=$S($P(OR EASON,U,3) ="99ORN":$ P(OREASON, U),1:"") | |
4121 | "RTN","ORM ",26,0) | |
4122 | . S ORTN= "EN^ORM"_O RNMSP D @O RTN I $D(O RERR) D ER ROR Q | |
4123 | "RTN","ORM ",27,0) | |
4124 | . I ORDCN TRL="SN",$ G(ORIFN) D MSG^ORMBL D(ORIFN,"N A") | |
4125 | "RTN","ORM ",28,0) | |
4126 | . I $G(DG PMT),ORDCN TRL="OD"!( ORDCNTRL=" OC") D XTM P | |
4127 | "RTN","ORM ",29,0) | |
4128 | Q | |
4129 | "RTN","ORM ",30,0) | |
4130 | ; | |
4131 | "RTN","ORM ",31,0) | |
4132 | NMSP(NAME) ; -- Retu rns pkg na mespace | |
4133 | "RTN","ORM ",32,0) | |
4134 | I NAME="R ADIOLOGY"! (NAME="IMA GING") Q " RA" | |
4135 | "RTN","ORM ",33,0) | |
4136 | I NAME="L ABORATORY" Q "LR" | |
4137 | "RTN","ORM ",34,0) | |
4138 | I NAME="D IETETICS" Q "FH" | |
4139 | "RTN","ORM ",35,0) | |
4140 | I NAME="P HARMACY" Q "PS" | |
4141 | "RTN","ORM ",36,0) | |
4142 | I NAME="C ONSULTS" Q "GMRC" | |
4143 | "RTN","ORM ",37,0) | |
4144 | I NAME="P ROCEDURES" Q "GMRC" | |
4145 | "RTN","ORM ",38,0) | |
4146 | I NAME="O RDER ENTRY " Q "ORG" | |
4147 | "RTN","ORM ",39,0) | |
4148 | I NAME="S CHEDULING" Q "SD" | |
4149 | "RTN","ORM ",40,0) | |
4150 | Q "" | |
4151 | "RTN","ORM ",41,0) | |
4152 | ; | |
4153 | "RTN","ORM ",42,0) | |
4154 | PID ; -- R eturns pat ient from PID segmen t in curre nt msg | |
4155 | "RTN","ORM ",43,0) | |
4156 | ; Sets PID, ORVP , ORTS if valid pati ent | |
4157 | "RTN","ORM ",44,0) | |
4158 | N I,DFN,S EG S I=MSH ,PID="" | |
4159 | "RTN","ORM ",45,0) | |
4160 | F S I=$O (@ORMSG@(I )) Q:I'>0 S SEG=$E( @ORMSG@(I) ,1,3) Q:SE G="ORC" I SEG="PID" D Q | |
4161 | "RTN","ORM ",46,0) | |
4162 | . S DFN=+ $P(@ORMSG@ (I),"|",4) ,PID=I | |
4163 | "RTN","ORM ",47,0) | |
4164 | . I $D(^D PT(DFN,0)) S ORVP=DF N_";DPT(", ORTS=$G(^D PT(DFN,.10 3)) Q | |
4165 | "RTN","ORM ",48,0) | |
4166 | . S:$L($P (@ORMSG@(I ),"|",5)) ORVP=$P(@O RMSG@(I)," |",5) ; al t ID for L ab | |
4167 | "RTN","ORM ",49,0) | |
4168 | Q | |
4169 | "RTN","ORM ",50,0) | |
4170 | ; | |
4171 | "RTN","ORM ",51,0) | |
4172 | PV1 ; -- R eturns pat ient locat ion in PV1 segment i n current msg | |
4173 | "RTN","ORM ",52,0) | |
4174 | ; Sets PV1, ORCA T, & ORL i f valid lo cation, OR APPT: IMO appointmen t | |
4175 | "RTN","ORM ",53,0) | |
4176 | N I,X,SEG S I=PID,P V1="" | |
4177 | "RTN","ORM ",54,0) | |
4178 | F S I=$O (@ORMSG@(I )) Q:I'>0 S SEG=$E( @ORMSG@(I) ,1,3) Q:SE G="ORC" I SEG="PV1" D Q | |
4179 | "RTN","ORM ",55,0) | |
4180 | . S X=+$P (@ORMSG@(I ),"|",4),O RCAT=$P(@O RMSG@(I)," |",3),PV1= I | |
4181 | "RTN","ORM ",56,0) | |
4182 | . S:$D(^S C(X,0)) OR L=X_";SC(" | |
4183 | "RTN","ORM ",57,0) | |
4184 | . S ORAPP T=$P(@ORMS G@(I),"|", 45) | |
4185 | "RTN","ORM ",58,0) | |
4186 | . S:+$G(O RAPPT) ORA PPT=$$FMDA TE($G(ORAP PT)) | |
4187 | "RTN","ORM ",59,0) | |
4188 | Q | |
4189 | "RTN","ORM ",60,0) | |
4190 | ; | |
4191 | "RTN","ORM ",61,0) | |
4192 | ORDITEM(US ID) ; -- R eturns poi nter to Or derable It em file fo r USID | |
4193 | "RTN","ORM ",62,0) | |
4194 | N ID,OI | |
4195 | "RTN","ORM ",63,0) | |
4196 | S ID=$P(U SID,U,4)_" ;"_$P(USID ,U,6) | |
4197 | "RTN","ORM ",64,0) | |
4198 | S OI=+$O( ^ORD(101.4 3,"ID",ID, 0)) | |
4199 | "RTN","ORM ",65,0) | |
4200 | Q OI | |
4201 | "RTN","ORM ",66,0) | |
4202 | ; | |
4203 | "RTN","ORM ",67,0) | |
4204 | URGENCY(CO DE) ; -- R eturn ptr to Order U rgency fil e #101.42 | |
4205 | "RTN","ORM ",68,0) | |
4206 | S:'$L(COD E) CODE="R " | |
4207 | "RTN","ORM ",69,0) | |
4208 | Q $O(^ORD (101.42,"C ",CODE,0)) | |
4209 | "RTN","ORM ",70,0) | |
4210 | ; | |
4211 | "RTN","ORM ",71,0) | |
4212 | FMDATE(Y) ; -- Conve rt HL7 dat e/time to FM format | |
4213 | "RTN","ORM ",72,0) | |
4214 | Q $$HL7TF M^XLFDT(Y) ;**97 | |
4215 | "RTN","ORM ",73,0) | |
4216 | ; | |
4217 | "RTN","ORM ",74,0) | |
4218 | ERROR ; -- Sends a D E reply to current m sg | |
4219 | "RTN","ORM ",75,0) | |
4220 | ; Uses OR VP, ORNMSP , ORDUZ, O RIFN, ORER R, and PKG IFN | |
4221 | "RTN","ORM ",76,0) | |
4222 | N ORV S O RV("XQY0") ="" D EN^O RERR(ORERR ,.ORMSG,.O RV) | |
4223 | "RTN","ORM ",77,0) | |
4224 | Q:ORTYPE= "ORR" Q:' $L($G(ORNM SP)) | |
4225 | "RTN","ORM ",78,0) | |
4226 | N OREMSG, ORVP,ORTS S:'$G(ORDU Z) ORDUZ=D UZ D:'$G(O RVP) PID | |
4227 | "RTN","ORM ",79,0) | |
4228 | S OREMSG( 1)=$$MSH^O RMBLD("ORR ",ORNMSP), OREMSG(2)= $$PID^ORMB LD($G(ORVP )) | |
4229 | "RTN","ORM ",80,0) | |
4230 | S OREMSG( 3)="ORC|DE |"_$S($G(O RIFN):ORIF N_"^OR",1: "")_"|"_$S ($L($G(PKG IFN)):PKGI FN_U_ORNMS P,1:"")_"| ||||||"_OR DUZ_"||||| |"_ORERR | |
4231 | "RTN","ORM ",81,0) | |
4232 | D MSG^XQO R("OR EVSE ND "_ORNMS P,.OREMSG) | |
4233 | "RTN","ORM ",82,0) | |
4234 | Q | |
4235 | "RTN","ORM ",83,0) | |
4236 | ; | |
4237 | "RTN","ORM ",84,0) | |
4238 | FIND(SEG,P IECE) ; -- Returns v alue in $P (@ORMSG@(S EG),"|",PI ECE) | |
4239 | "RTN","ORM ",85,0) | |
4240 | N X,Y,FLD S,I,DONE | |
4241 | "RTN","ORM ",86,0) | |
4242 | S X=$G(@O RMSG@(SEG) ),FLDS=$L( X,"|"),Y=" ",(I,DONE) =0 | |
4243 | "RTN","ORM ",87,0) | |
4244 | F D Q:D ONE | |
4245 | "RTN","ORM ",88,0) | |
4246 | . I PIECE <FLDS S Y= $P(X,"|",P IECE),DONE =1 Q | |
4247 | "RTN","ORM ",89,0) | |
4248 | . I PIECE =FLDS D Q | |
4249 | "RTN","ORM ",90,0) | |
4250 | . . S Y=$ P(X,"|",PI ECE),I=$O( @ORMSG@(SE G,I)),DONE =1 | |
4251 | "RTN","ORM ",91,0) | |
4252 | . . I I S Y=Y_$P($G (@ORMSG@(S EG,I)),"|" ) | |
4253 | "RTN","ORM ",92,0) | |
4254 | . S I=$O( @ORMSG@(SE G,I)) I 'I S Y="",DO NE=1 Q | |
4255 | "RTN","ORM ",93,0) | |
4256 | . S PIECE =PIECE-(FL DS-1),X=$G (@ORMSG@(S EG,I)),FLD S=$L(X,"|" ) | |
4257 | "RTN","ORM ",94,0) | |
4258 | FQ Q Y | |
4259 | "RTN","ORM ",95,0) | |
4260 | ; | |
4261 | "RTN","ORM ",96,0) | |
4262 | XTMP ; -- Save packa ge auto-dc 'd order n umbers in ^XTMP | |
4263 | "RTN","ORM ",97,0) | |
4264 | ; Uses ORIFN, OR NMSP | |
4265 | "RTN","ORM ",98,0) | |
4266 | Q:'$G(ORI FN) Q:"^1 ^13^"'[($P ($G(^OR(10 0,+ORIFN,3 )),U,3)_U) | |
4267 | "RTN","ORM ",99,0) | |
4268 | N ORNOW,O RDC S ORNO W=+$$NOW^X LFDT,ORDC= "ORDC-"_$G (DGPMDA) | |
4269 | "RTN","ORM ",100,0) | |
4270 | I $G(^XTM P(ORDC,0)) ,+^(0)<ORN OW K ^XTMP (ORDC) | |
4271 | "RTN","ORM ",101,0) | |
4272 | I '$G(^XT MP(ORDC,0) ) D | |
4273 | "RTN","ORM ",102,0) | |
4274 | . N ORNOW 1H S ORNOW 1H=$$FMADD ^XLFDT(ORN OW,,1) | |
4275 | "RTN","ORM ",103,0) | |
4276 | . S ^XTMP (ORDC,0)=O RNOW1H_U_O RNOW_"^Ord ers AutoDC 'd by Pack ages on Di scharge" | |
4277 | "RTN","ORM ",104,0) | |
4278 | S ^XTMP(O RDC,+ORIFN )=$G(ORNMS P) | |
4279 | "RTN","ORM ",105,0) | |
4280 | Q | |
4281 | "RTN","ORM BLD") | |
4282 | 0^7^B46482 441 | |
4283 | "RTN","ORM BLD",1,0) | |
4284 | ORMBLD ; S LC/MKB/JDL - Build o utgoing OR M msgs ;05 /10/17 10 :08 | |
4285 | "RTN","ORM BLD",2,0) | |
4286 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**3 ,33,26,45, 79,97,133, 168,187,19 0,195,215, 350,434**; Dec 17, 19 97;Build 3 1 | |
4287 | "RTN","ORM BLD",3,0) | |
4288 | ; | |
4289 | "RTN","ORM BLD",4,0) | |
4290 | ; | |
4291 | "RTN","ORM BLD",5,0) | |
4292 | ; | |
4293 | "RTN","ORM BLD",6,0) | |
4294 | NEW(IFN,CO DE) ; -- S end NW ord er message to pkg | |
4295 | "RTN","ORM BLD",7,0) | |
4296 | ;I $P($G( ^ORD(101.4 2,+$$VALUE ^ORCSAVE2( IFN,"URGEN CY"),0)),U )="DONE" D STATUS^OR CSAVE2(IFN ,2) Q ; c omplete -> don't sen d to pkg | |
4297 | "RTN","ORM BLD",8,0) | |
4298 | N ORPKG,O RMSG,DGQUI ET K ^TMP( "ORWORD",$ J) | |
4299 | "RTN","ORM BLD",9,0) | |
4300 | S DGQUIET =1 D Q:'$ O(ORMSG(0) ) ;build msg, ORDIA LOG gone w hen posted | |
4301 | "RTN","ORM BLD",10,0) | |
4302 | . N OR0,O R3,OR8,ORV P,ORDG,ORD IALOG,ORPA RENT S:'$D (CODE) COD E="NW" | |
4303 | "RTN","ORM BLD",11,0) | |
4304 | . S OR0=$ G(^OR(100, IFN,0)) Q: '$L(OR0) S OR3=$G(^ (3)),OR8=$ G(^(8,1,0) ) | |
4305 | "RTN","ORM BLD",12,0) | |
4306 | . S ORVP= $P(OR0,U,2 ),ORDG=$P( OR0,U,11), ORPKG=$$NM SP^ORCD($P (OR0,U,14) ) | |
4307 | "RTN","ORM BLD",13,0) | |
4308 | . Q:"^GMR A^GMRC^FH^ LR^PS^RA^O R^SD^"'[(U _ORPKG_U) | |
4309 | "RTN","ORM BLD",14,0) | |
4310 | . S ORDIA LOG=+$P(OR 0,U,5) Q:' ORDIALOG | |
4311 | "RTN","ORM BLD",15,0) | |
4312 | . D GETDL G1^ORCD(OR DIALOG),GE TORDER^ORC D(IFN) | |
4313 | "RTN","ORM BLD",16,0) | |
4314 | . S ORMSG (1)=$$MSH( "ORM",ORPK G),ORMSG(2 )=$$PID(OR VP) | |
4315 | "RTN","ORM BLD",17,0) | |
4316 | . S ORMSG (3)=$$PV1( ORVP,$P(OR 0,U,12),+$ P(OR0,U,10 ),"",$P(OR 0,U,18)) | |
4317 | "RTN","ORM BLD",18,0) | |
4318 | . S ORPAR ENT=$P(OR3 ,U,9) I OR PARENT,$G( ORDIALOG($ $PTR^ORCD( "OR GTX SC HEDULE"),1 ))="NOW"!' $O(^OR(100 ,+ORPARENT ,4.5,"ID", "CONJ",0)) S ORPAREN T="" ;no p arent if N OW or only child | |
4319 | "RTN","ORM BLD",19,0) | |
4320 | . S ORMSG (4)="ORC|" _CODE_"|"_ +OR0_";1^O R||||||"_O RPARENT_"| "_$$HL7DAT E($P(OR0,U ,7))_"|"_+ $P(OR0,U,6 )_"||"_+$P (OR0,U,4)_ "|||"_$$HL 7DATE($$NO W^XLFDT)_" |"_$$NATUR E($P(OR8,U ,12))_"^^^ " | |
4321 | "RTN","ORM BLD",20,0) | |
4322 | . D @ORPK G K ^TMP(" ORWORD",$J ) | |
4323 | "RTN","ORM BLD",21,0) | |
4324 | I $G(ORZT EST) M ORZ TEST=ORMSG Q ;testi ng only | |
4325 | "RTN","ORM BLD",22,0) | |
4326 | D MSG^XQO R("OR EVSE ND "_ORPKG ,.ORMSG) | |
4327 | "RTN","ORM BLD",23,0) | |
4328 | Q | |
4329 | "RTN","ORM BLD",24,0) | |
4330 | ; | |
4331 | "RTN","ORM BLD",25,0) | |
4332 | MSG(IFN,CO DE,REASON) ; -- Send all other order msg s | |
4333 | "RTN","ORM BLD",26,0) | |
4334 | N ORPKG,O RMSG,DGQUI ET K ^TMP( "ORWORD",$ J) | |
4335 | "RTN","ORM BLD",27,0) | |
4336 | S DGQUIET =1 D Q:'$ O(ORMSG(0) ) ; build message | |
4337 | "RTN","ORM BLD",28,0) | |
4338 | . N OR0,O R8,DG,PKGI D,I,TYPE,D A,PROV,NAT R,STS,OI | |
4339 | "RTN","ORM BLD",29,0) | |
4340 | . S OR0=$ G(^OR(100, +IFN,0)),P KGID=$G(^( 4)),STS=$P ($G(^(3)), U,3) | |
4341 | "RTN","ORM BLD",30,0) | |
4342 | . S ORPKG =$$NMSP^OR CD($P(OR0, U,14)) | |
4343 | "RTN","ORM BLD",31,0) | |
4344 | . I ORPKG ="VBEC" D: $L($T(CA^O RMBLDVB)) CA^ORMBLDV B(IFN,$G(R EASON)) Q | |
4345 | "RTN","ORM BLD",32,0) | |
4346 | . Q:"^GMR A^GMRC^FH^ LR^PS^RA^O R^SD^"'[(U _ORPKG_U) | |
4347 | "RTN","ORM BLD",33,0) | |
4348 | . I ORPKG ="LR" S OR PKG="LRCH" S:CODE="D C" CODE="C A" ;DC if VBEC child | |
4349 | "RTN","ORM BLD",34,0) | |
4350 | . S DA=+$ P(IFN,";", 2),OR8=$G( ^OR(100,+I FN,8,DA,0) ) | |
4351 | "RTN","ORM BLD",35,0) | |
4352 | . S PROV= $P(OR8,U,3 ),NATR=$P( OR8,U,12) S:'PROV PR OV=$G(ORNP ) | |
4353 | "RTN","ORM BLD",36,0) | |
4354 | . S TYPE= $S(CODE="N A"!(CODE=" DE"):"ORR" ,1:"ORM") | |
4355 | "RTN","ORM BLD",37,0) | |
4356 | . S ORMSG (1)=$$MSH( TYPE,ORPKG ),ORMSG(2) =$$PID($P( OR0,U,2)), I=2 | |
4357 | "RTN","ORM BLD",38,0) | |
4358 | . I ORPKG ="SD",CODE ="DC" D DC ^ORMBLDSD Q | |
4359 | "RTN","ORM BLD",39,0) | |
4360 | . I ORPKG ="PS"!(ORP KG="FH"&($ P(OR0,U,12 )="O")) S I=I+1,ORMS G(I)=$$PV1 ($P(OR0,U, 2),$P(OR0, U,12),+$P( OR0,U,10)) | |
4361 | "RTN","ORM BLD",40,0) | |
4362 | . S I=I+1 ,ORMSG(I)= "ORC|"_COD E_"|"_IFN_ "^OR|"_PKG ID_U_ORPKG _"||||||"_ $S($G(DGPM A):$$HL7DA TE($P(DGPM A,U)),1:"" )_"|"_DUZ_ "||"_PROV_ "|||"_$$HL 7DATE($$NO W^XLFDT)_" |"_$$REASO N(+$G(REAS ON),NATR) | |
4363 | "RTN","ORM BLD",41,0) | |
4364 | . I ORPKG ="FH",CODE ="SS" S $P (ORMSG(I), "|",6)=$S( STS=8:"SC" ,STS=6:"IP ",1:"") | |
4365 | "RTN","ORM BLD",42,0) | |
4366 | . I $E(OR PKG,1,2)=" LR" S OI=+ $O(^OR(100 ,+IFN,.1,0 )),OI=+$G( ^(OI,0)) S :OI I=I+1, ORMSG(I)=" OBR||||"_$ $USID(OI) | |
4367 | "RTN","ORM BLD",43,0) | |
4368 | . I $P(^O RD(100.98, $P(OR0,U,1 1),0),U)=" NON-VA MED ICATIONS" D | |
4369 | "RTN","ORM BLD",44,0) | |
4370 | . . I (CO DE="CA")!( CODE="DC") S I=I+1,O RMSG(I)="Z RN|N" | |
4371 | "RTN","ORM BLD",45,0) | |
4372 | . K ^TMP( "ORWORD",$ J) | |
4373 | "RTN","ORM BLD",46,0) | |
4374 | D MSG^XQO R("OR EVSE ND "_ORPKG ,.ORMSG) | |
4375 | "RTN","ORM BLD",47,0) | |
4376 | Q | |
4377 | "RTN","ORM BLD",48,0) | |
4378 | ; | |
4379 | "RTN","ORM BLD",49,0) | |
4380 | BHS(PAT) ; -- Send b atch heade r segment/ message to Lab | |
4381 | "RTN","ORM BLD",50,0) | |
4382 | N ORMSG S ORMSG(1)= "BHS|^~\&| ORDER ENTR Y|"_$G(DUZ (2))_"|LAB ORATORY|"_ $G(DUZ(2)) _"|"_$$HL7 DATE($$NOW ^XLFDT) | |
4383 | "RTN","ORM BLD",51,0) | |
4384 | S ORMSG(2 )=$$PID($G (PAT)) | |
4385 | "RTN","ORM BLD",52,0) | |
4386 | D MSG^XQO R("OR EVSE ND LRCH",. ORMSG) | |
4387 | "RTN","ORM BLD",53,0) | |
4388 | Q | |
4389 | "RTN","ORM BLD",54,0) | |
4390 | ; | |
4391 | "RTN","ORM BLD",55,0) | |
4392 | BTS(PAT) ; -- Send b atch trail er segment /message t o Lab | |
4393 | "RTN","ORM BLD",56,0) | |
4394 | N ORMSG S ORMSG(1)= "BTS",ORMS G(2)=$$PID ($G(PAT)) | |
4395 | "RTN","ORM BLD",57,0) | |
4396 | D MSG^XQO R("OR EVSE ND LRCH",. ORMSG) | |
4397 | "RTN","ORM BLD",58,0) | |
4398 | Q | |
4399 | "RTN","ORM BLD",59,0) | |
4400 | ; | |
4401 | "RTN","ORM BLD",60,0) | |
4402 | MSH(TYPE,T O) ; -- MS H segment | |
4403 | "RTN","ORM BLD",61,0) | |
4404 | N MSH | |
4405 | "RTN","ORM BLD",62,0) | |
4406 | S MSH="MS H|^~\&|ORD ER ENTRY|" _$G(DUZ(2) )_"|"_$$NA ME(TO)_"|" _$G(DUZ(2) )_"|"_$$HL 7DATE($$NO W^XLFDT)_" ||"_TYPE | |
4407 | "RTN","ORM BLD",63,0) | |
4408 | Q MSH | |
4409 | "RTN","ORM BLD",64,0) | |
4410 | ; | |
4411 | "RTN","ORM BLD",65,0) | |
4412 | NAME(NMSP) ; -- Retu rns name o f pkg NMSP | |
4413 | "RTN","ORM BLD",66,0) | |
4414 | I NMSP="G MRA" Q "AL LERGIES" | |
4415 | "RTN","ORM BLD",67,0) | |
4416 | I NMSP="G MRC" Q "CO NSULTS" | |
4417 | "RTN","ORM BLD",68,0) | |
4418 | I NMSP="F H" Q "DIET ETICS" | |
4419 | "RTN","ORM BLD",69,0) | |
4420 | I NMSP?1" LR".E Q "L ABORATORY" | |
4421 | "RTN","ORM BLD",70,0) | |
4422 | I NMSP="P S" Q "PHAR MACY" | |
4423 | "RTN","ORM BLD",71,0) | |
4424 | I NMSP="R A" Q "RADI OLOGY" | |
4425 | "RTN","ORM BLD",72,0) | |
4426 | I NMSP="O R" Q "ORDE R ENTRY" | |
4427 | "RTN","ORM BLD",73,0) | |
4428 | I NMSP="S D" Q "SCHE DULING" | |
4429 | "RTN","ORM BLD",74,0) | |
4430 | Q "" | |
4431 | "RTN","ORM BLD",75,0) | |
4432 | ; | |
4433 | "RTN","ORM BLD",76,0) | |
4434 | PID(DFN) ; -- PID se gment | |
4435 | "RTN","ORM BLD",77,0) | |
4436 | N PID,PTR ,ROOT | |
4437 | "RTN","ORM BLD",78,0) | |
4438 | S PTR=+$P (DFN,";"), ROOT=$P(DF N,";",2),P ID="PID||| " | |
4439 | "RTN","ORM BLD",79,0) | |
4440 | I ROOT="D PT(" S PID =PID_PTR_" ||"_$P($G( ^DPT(PTR,0 )),U) | |
4441 | "RTN","ORM BLD",80,0) | |
4442 | E S PID= PID_"|"_DF N_"|"_$S($ L(ROOT):$P ($G(@(U_RO OT_PTR_",0 )")),U),1: "") | |
4443 | "RTN","ORM BLD",81,0) | |
4444 | Q PID | |
4445 | "RTN","ORM BLD",82,0) | |
4446 | ; | |
4447 | "RTN","ORM BLD",83,0) | |
4448 | PV1(OBJ,TY PE,LOC,VIS IT,APPTDT) ; -- PV1 segment | |
4449 | "RTN","ORM BLD",84,0) | |
4450 | N PV1,RB, PACH S RB= "" | |
4451 | "RTN","ORM BLD",85,0) | |
4452 | S:$G(APPT DT) APPTDT =$$FMTHL7^ XLFDT(APPT DT) | |
4453 | "RTN","ORM BLD",86,0) | |
4454 | I TYPE="I ",+OBJ,$P( OBJ,";",2) ="DPT(" S RB=$P($G(^ DPT(+OBJ,. 101)),U) | |
4455 | "RTN","ORM BLD",87,0) | |
4456 | S PACH=$$ PATCH^XPDU TL("PSJ*5. 0*111") | |
4457 | "RTN","ORM BLD",88,0) | |
4458 | S:PACH PV 1="PV1||"_ TYPE_"|"_L OC_$S($L(R B):U_RB,1: "")_"||||| |||||||||| |"_$G(VISI T)_"|||||| |||||||||| |||||||||" _$G(APPTDT ) | |
4459 | "RTN","ORM BLD",89,0) | |
4460 | S:'PACH P V1="PV1||" _TYPE_"|"_ LOC_$S($L( RB):U_RB,1 :"")_"|||| |||||||||| ||"_$G(VIS IT) | |
4461 | "RTN","ORM BLD",90,0) | |
4462 | Q PV1 | |
4463 | "RTN","ORM BLD",91,0) | |
4464 | ; | |
4465 | "RTN","ORM BLD",92,0) | |
4466 | HL7DATE(DA TE) ; -- F M -> HL7 f ormat | |
4467 | "RTN","ORM BLD",93,0) | |
4468 | Q $$FMTHL 7^XLFDT(DA TE) ;**97 | |
4469 | "RTN","ORM BLD",94,0) | |
4470 | ; | |
4471 | "RTN","ORM BLD",95,0) | |
4472 | USID(OI) ; -- Return s Univ Ser v ID for O rderable I tem | |
4473 | "RTN","ORM BLD",96,0) | |
4474 | N OITEM,N ATL,LOCAL S OITEM=$G (^ORD(101. 43,+OI,0)) | |
4475 | "RTN","ORM BLD",97,0) | |
4476 | S NATL=$P (OITEM,U,3 )_U_U_$P(O ITEM,U,4) | |
4477 | "RTN","ORM BLD",98,0) | |
4478 | S LOCAL=$ P($P(OITEM ,U,2),";") _U_$P(OITE M,U)_U_$P( $P(OITEM,U ,2),";",2) | |
4479 | "RTN","ORM BLD",99,0) | |
4480 | Q NATL_U_ LOCAL | |
4481 | "RTN","ORM BLD",100,0 ) | |
4482 | ; | |
4483 | "RTN","ORM BLD",101,0 ) | |
4484 | NATURE(X) ; -- Retur ns 3 ^-pie ce identif ier for na ture X | |
4485 | "RTN","ORM BLD",102,0 ) | |
4486 | N ORN,Y S ORN=$G(^O RD(100.02, +$G(X),0)) | |
4487 | "RTN","ORM BLD",103,0 ) | |
4488 | S Y=$P(OR N,U,2)_U_$ P(ORN,U)_" ^99ORN" | |
4489 | "RTN","ORM BLD",104,0 ) | |
4490 | Q Y | |
4491 | "RTN","ORM BLD",105,0 ) | |
4492 | ; | |
4493 | "RTN","ORM BLD",106,0 ) | |
4494 | REASON(X,N ) ; -- Ret urns 6 ^-p iece forma t of reaso n X | |
4495 | "RTN","ORM BLD",107,0 ) | |
4496 | ; N ^ NATURE ^ 9 9ORN ^ # ^ Reason ^ 99ORR | |
4497 | "RTN","ORM BLD",108,0 ) | |
4498 | N Y,ORR S ORR=$G(^O RD(100.03, +$G(X),0)) | |
4499 | "RTN","ORM BLD",109,0 ) | |
4500 | S:'$G(N) N=+$P(ORR, U,7) S Y=$ $NATURE(N) | |
4501 | "RTN","ORM BLD",110,0 ) | |
4502 | S:$G(X) Y =Y_U_$S(OR PKG'="RA": +X,1:"")_U _$P(ORR,U) _"^99ORR" | |
4503 | "RTN","ORM BLD",111,0 ) | |
4504 | Q Y | |
4505 | "RTN","ORM BLD",112,0 ) | |
4506 | ; | |
4507 | "RTN","ORM BLD",113,0 ) | |
4508 | IP() ; -- Returns OR IFN^Type i f pt has a ctive isol ation orde r (or 0 if not) | |
4509 | "RTN","ORM BLD",114,0 ) | |
4510 | N TYPE,ST ART,ORIFN, Y | |
4511 | "RTN","ORM BLD",115,0 ) | |
4512 | S TYPE=$O (^ORD(100. 98,"B","PR EC",0)),ST ART=$$NOW^ XLFDT,Y=0 | |
4513 | "RTN","ORM BLD",116,0 ) | |
4514 | F S STAR T=$O(^OR(1 00,"AW",OR VP,TYPE,ST ART),-1) Q :START'>0 S ORIFN=$ O(^(START, 0)) I $P($ G(^OR(100, ORIFN,3)), U,3)=6 S Y =ORIFN Q | |
4515 | "RTN","ORM BLD",117,0 ) | |
4516 | I Y S TYP E=$$VALUE^ ORCSAVE2(O RIFN,"ISOL ATION"),Y= Y_U_$$GET1 ^DIQ(119.4 ,+TYPE_"," ,.01) | |
4517 | "RTN","ORM BLD",118,0 ) | |
4518 | Q Y | |
4519 | "RTN","ORM BLD",119,0 ) | |
4520 | ; | |
4521 | "RTN","ORM BLD",120,0 ) | |
4522 | OR ; -- ne w Generic order | |
4523 | "RTN","ORM BLD",121,0 ) | |
4524 | I ORDG=$O (^ORD(100. 98,"B","M. A.S.",0)) D ADT^ORMB LDOR Q | |
4525 | "RTN","ORM BLD",122,0 ) | |
4526 | D EN^ORMB LDOR | |
4527 | "RTN","ORM BLD",123,0 ) | |
4528 | Q | |
4529 | "RTN","ORM BLD",124,0 ) | |
4530 | ; | |
4531 | "RTN","ORM BLD",125,0 ) | |
4532 | GMRA ; -- new Allerg y order | |
4533 | "RTN","ORM BLD",126,0 ) | |
4534 | Q:$$PATCH ^XPDUTL("O R*3.0*216" ) ;195 qu it if patc h 216 is i n | |
4535 | "RTN","ORM BLD",127,0 ) | |
4536 | D:$L($T(A LG^ORMBLDA L)) ALG^OR MBLDAL | |
4537 | "RTN","ORM BLD",128,0 ) | |
4538 | Q | |
4539 | "RTN","ORM BLD",129,0 ) | |
4540 | ; | |
4541 | "RTN","ORM BLD",130,0 ) | |
4542 | GMRC ; -- new Consul t order | |
4543 | "RTN","ORM BLD",131,0 ) | |
4544 | D CSLT^OR MBLDGM | |
4545 | "RTN","ORM BLD",132,0 ) | |
4546 | Q | |
4547 | "RTN","ORM BLD",133,0 ) | |
4548 | ; | |
4549 | "RTN","ORM BLD",134,0 ) | |
4550 | FH ; -- ne w Diet ord er | |
4551 | "RTN","ORM BLD",135,0 ) | |
4552 | N ORPARAM D EN^FHWO R8(+ORVP,. ORPARAM) ; set param eters | |
4553 | "RTN","ORM BLD",136,0 ) | |
4554 | S:'$L($G( ORPARAM(3) )) ORPARAM (3)="T" | |
4555 | "RTN","ORM BLD",137,0 ) | |
4556 | I ORDG=$O (^ORD(100. 98,"B","PR ECAUTIONS" ,0)) D IP^ ORMBLDFH Q | |
4557 | "RTN","ORM BLD",138,0 ) | |
4558 | I ORDG=$O (^ORD(100. 98,"B","EA RLY/LATE T RAYS",0)) D TRAY^ORM BLDFH Q | |
4559 | "RTN","ORM BLD",139,0 ) | |
4560 | I ORDG=$O (^ORD(100. 98,"B","TU BEFEEDINGS ",0)) D TF ^ORMBLDFH Q | |
4561 | "RTN","ORM BLD",140,0 ) | |
4562 | I ORDG=$O (^ORD(100. 98,"B","DI ET ADDITIO NAL ORDERS ",0)) D AD DN^ORMBLDF H Q | |
4563 | "RTN","ORM BLD",141,0 ) | |
4564 | D DIET^OR MBLDFH | |
4565 | "RTN","ORM BLD",142,0 ) | |
4566 | Q | |
4567 | "RTN","ORM BLD",143,0 ) | |
4568 | ; | |
4569 | "RTN","ORM BLD",144,0 ) | |
4570 | LR ; -- ne w Lab orde r | |
4571 | "RTN","ORM BLD",145,0 ) | |
4572 | I CODE="X O" D XO^OR MBLDLR Q ; change | |
4573 | "RTN","ORM BLD",146,0 ) | |
4574 | D CH^ORMB LDLR S ORP KG="LRCH" Q ;no dif ference by subscript at this t ime | |
4575 | "RTN","ORM BLD",147,0 ) | |
4576 | N SUB S S UB=$P($G(^ ORD(100.98 ,ORDG,0)), U,3) | |
4577 | "RTN","ORM BLD",148,0 ) | |
4578 | S:(SUB="S P")!(SUB=" EM")!(SUB= "AU")!(SUB ="CY") SUB ="AP" | |
4579 | "RTN","ORM BLD",149,0 ) | |
4580 | S:(SUB="L AB")!(SUB= "MI")!(SUB ="HEMA") S UB="CH" | |
4581 | "RTN","ORM BLD",150,0 ) | |
4582 | D @(SUB_" ^ORMBLDLR" ) S ORPKG= ORPKG_SUB | |
4583 | "RTN","ORM BLD",151,0 ) | |
4584 | Q | |
4585 | "RTN","ORM BLD",152,0 ) | |
4586 | ; | |
4587 | "RTN","ORM BLD",153,0 ) | |
4588 | PS ; -- ne w Pharmacy order | |
4589 | "RTN","ORM BLD",154,0 ) | |
4590 | ;I ORDG=$ O(^ORD(100 .98,"B","O UTPATIENT MEDICATION S",0)) D O UT^ORMBLDP S Q | |
4591 | "RTN","ORM BLD",155,0 ) | |
4592 | ;D UD^ORM BLDPS | |
4593 | "RTN","ORM BLD",156,0 ) | |
4594 | N IVDLG S IVDLG=+$P (OR0,U,5) ;JD | |
4595 | "RTN","ORM BLD",157,0 ) | |
4596 | N PKG S P KG=$P(OR0, U,14),PKG= $$GET1^DIQ (9.4,+PKG_ ",",1) | |
4597 | "RTN","ORM BLD",158,0 ) | |
4598 | I +$$VALU E^ORCSAVE2 (IFN,"URGE NCY")=99,$ P(OR3,U,11 )'="B" D Q ;only s end DONE o rders from BCMA | |
4599 | "RTN","ORM BLD",159,0 ) | |
4600 | . D STATU S^ORCSAVE2 (IFN,2) K ORMSG | |
4601 | "RTN","ORM BLD",160,0 ) | |
4602 | . I $P(OR 3,U,11)=1, $P($G(^OR( 100,+$P(OR 3,U,5),3)) ,U,3)=5 D MSG(+$P(OR 3,U,5),"CA ") ;cancel original instead | |
4603 | "RTN","ORM BLD",161,0 ) | |
4604 | I ORDG=$O (^ORD(100. 98,"B","IV RX",0))!( ORDG=$O(^O RD(100.98, "B","TPN", 0)))!(IVDL G=$O(^ORD( 101.41,"B" ,"PSJI OR PAT FLUID OE",0)))!( IVDLG=$O(^ ORD(101.41 ,"B","CLIN IC OR PAT FLUID OE", 0))) D IV^ ORMBLDPS Q | |
4605 | "RTN","ORM BLD",162,0 ) | |
4606 | D @($S(PK G="PSIV":" IV",PKG="P SO":"OUT", PKG="PSH": "NVA",1:"U D")_"^ORMB LDPS") | |
4607 | "RTN","ORM BLD",163,0 ) | |
4608 | Q | |
4609 | "RTN","ORM BLD",164,0 ) | |
4610 | ; | |
4611 | "RTN","ORM BLD",165,0 ) | |
4612 | RA ; -- ne w Radiolog y order | |
4613 | "RTN","ORM BLD",166,0 ) | |
4614 | D EN^ORMB LDRA | |
4615 | "RTN","ORM BLD",167,0 ) | |
4616 | Q | |
4617 | "RTN","ORM BLD",168,0 ) | |
4618 | ; | |
4619 | "RTN","ORM BLD",169,0 ) | |
4620 | SD ; | |
4621 | "RTN","ORM BLD",170,0 ) | |
4622 | D EN^ORMB LDSD(CODE) | |
4623 | "RTN","ORM BLD",171,0 ) | |
4624 | Q | |
4625 | "RTN","ORM BLD",172,0 ) | |
4626 | ; | |
4627 | "RTN","ORM BLD",173,0 ) | |
4628 | TEST(ORIFN ) ; -- Bui ld/display HL7 msgs w/o sendin g | |
4629 | "RTN","ORM BLD",174,0 ) | |
4630 | K ORZTEST S ORZTEST =1 D NEW(O RIFN) ; le aves msg i n ORZTEST( ) on exit | |
4631 | "RTN","ORM BLD",175,0 ) | |
4632 | Q | |
4633 | "RTN","ORM BLDSD") | |
4634 | 0^8^B14839 865 | |
4635 | "RTN","ORM BLDSD",1,0 ) | |
4636 | ORMBLDSD ; SLC/MKB - Build out going SCHE DULING ORM msgs ;06/ 28/17 | |
4637 | "RTN","ORM BLDSD",2,0 ) | |
4638 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**4 34**;Dec 1 7, 1997;Bu ild 31 | |
4639 | "RTN","ORM BLDSD",3,0 ) | |
4640 | ; | |
4641 | "RTN","ORM BLDSD",4,0 ) | |
4642 | ; | |
4643 | "RTN","ORM BLDSD",5,0 ) | |
4644 | ; | |
4645 | "RTN","ORM BLDSD",6,0 ) | |
4646 | ESC(STR) ; | |
4647 | "RTN","ORM BLDSD",7,0 ) | |
4648 | Q $$ESC^O RHLESC(STR ,"~|\&^") | |
4649 | "RTN","ORM BLDSD",8,0 ) | |
4650 | ; | |
4651 | "RTN","ORM BLDSD",9,0 ) | |
4652 | HL7DATE(DA TE) ; -- F M -> HL7 f ormat | |
4653 | "RTN","ORM BLDSD",10, 0) | |
4654 | Q $$FMTHL 7^XLFDT(DA TE) ;**97 | |
4655 | "RTN","ORM BLDSD",11, 0) | |
4656 | ; | |
4657 | "RTN","ORM BLDSD",12, 0) | |
4658 | PTR(NAME) ; -- Retur ns ptr val ue of prom pt in Dial og file | |
4659 | "RTN","ORM BLDSD",13, 0) | |
4660 | Q $O(^ORD (101.41,"A B",$E("OR GTX "_NAME ,1,63),0)) | |
4661 | "RTN","ORM BLDSD",14, 0) | |
4662 | ; | |
4663 | "RTN","ORM BLDSD",15, 0) | |
4664 | DC ; | |
4665 | "RTN","ORM BLDSD",16, 0) | |
4666 | N OR0,ORD IALOG | |
4667 | "RTN","ORM BLDSD",17, 0) | |
4668 | S OR0=$G( ^OR(100,+I FN,0)) Q:' $L(OR0) | |
4669 | "RTN","ORM BLDSD",18, 0) | |
4670 | S ORDIALO G=+$P(OR0, U,5) Q:'OR DIALOG | |
4671 | "RTN","ORM BLDSD",19, 0) | |
4672 | D GETDLG1 ^ORCD(ORDI ALOG),GETO RDER^ORCD( +IFN) | |
4673 | "RTN","ORM BLDSD",20, 0) | |
4674 | D EN("DC" ) | |
4675 | "RTN","ORM BLDSD",21, 0) | |
4676 | Q | |
4677 | "RTN","ORM BLDSD",22, 0) | |
4678 | ; | |
4679 | "RTN","ORM BLDSD",23, 0) | |
4680 | EN(CODE) ; -- Segmen ts for new Schedulin g order | |
4681 | "RTN","ORM BLDSD",24, 0) | |
4682 | N A,ACT,D ATEUPD,ORN OW,APPTNUM ,APPTINV,C LINIC,COMM ENT,INC,IN ST,LOC,LOC SEG | |
4683 | "RTN","ORM BLDSD",25, 0) | |
4684 | N NODE,OR IFN,ORDER, PREREQ,PKG REF,PTR,RO OM,RTCDATE ,SEGCNT,ST ART,TIME,V ALUE | |
4685 | "RTN","ORM BLDSD",26, 0) | |
4686 | N TEMP,WH OENTER,WHO SIGN,X0,X1 ,X2,X3,X8 | |
4687 | "RTN","ORM BLDSD",27, 0) | |
4688 | S ACT=$S( IFN[";":$P (IFN,";",2 ),1:1),DAT EUPD=0 | |
4689 | "RTN","ORM BLDSD",28, 0) | |
4690 | S X0=$G(^ OR(100,+IF N,0)),X3=$ G(^OR(100, +IFN,3)),X 8=$G(^OR(1 00,+IFN,8, ACT,0)) | |
4691 | "RTN","ORM BLDSD",29, 0) | |
4692 | S PKGREF= $P($G(^OR( 100,+IFN,4 )),U) | |
4693 | "RTN","ORM BLDSD",30, 0) | |
4694 | S WHOSIGN =$P(X8,U,5 ),WHOENTER =$P(X0,U,6 ) | |
4695 | "RTN","ORM BLDSD",31, 0) | |
4696 | I WHOSIGN '>0 S WHOS IGN=$P(X8, U,7) | |
4697 | "RTN","ORM BLDSD",32, 0) | |
4698 | S WHOSIGN =WHOSIGN_U _$$GET1^DI Q(200,WHOS IGN,.01) | |
4699 | "RTN","ORM BLDSD",33, 0) | |
4700 | S WHOENTE R=WHOENTER _U_$$GET1^ DIQ(200,WH OENTER,.01 ) | |
4701 | "RTN","ORM BLDSD",34, 0) | |
4702 | I CODE'=" DC" S ORDE R=$P(ORMSG (4),"|",3) K ORMSG(4 ) | |
4703 | "RTN","ORM BLDSD",35, 0) | |
4704 | S SEGCNT= $S(CODE="D C":3,1:4) | |
4705 | "RTN","ORM BLDSD",36, 0) | |
4706 | S LOC=+$P (X0,U,10), LOCSEG="" | |
4707 | "RTN","ORM BLDSD",37, 0) | |
4708 | I LOC>0 S LOCSEG=+L OC_":"_$$G ET1^DIQ(44 ,LOC,.01)_ U | |
4709 | "RTN","ORM BLDSD",38, 0) | |
4710 | I $P($G(^ SC(LOC,0)) ,U,3)="W" S LOCSEG=L OCSEG_$P($ G(^DPT(+OR VP,.101)), U) | |
4711 | "RTN","ORM BLDSD",39, 0) | |
4712 | S ORIFN=$ S(IFN[";": IFN,1:IFN_ ";1") | |
4713 | "RTN","ORM BLDSD",40, 0) | |
4714 | ;I PKGREF '>0,CODE=" XO" D | |
4715 | "RTN","ORM BLDSD",41, 0) | |
4716 | ;.S ORPRE V=$P(X3,U, 5) I ORPRE V'>0 Q | |
4717 | "RTN","ORM BLDSD",42, 0) | |
4718 | ;.S PKGRE F=$P($G(^O R(100,ORPR EV,4)),U) | |
4719 | "RTN","ORM BLDSD",43, 0) | |
4720 | ;S ORMSG( SEGCNT)="A RQ|"_ORIFN _"^OR|"_PK GREF_"|||^ followup^^ ^^|"_$S(CO DE="DC":"S 05",CODE=" XO":"S03", 1:"S01")_" ||" | |
4721 | "RTN","ORM BLDSD",44, 0) | |
4722 | S ORMSG(S EGCNT)="AR Q|"_ORIFN_ "^OR|"_PKG REF_"|||^f ollowup^^^ ^|"_$S(COD E="DC":"S0 5",1:"S01" )_"||" | |
4723 | "RTN","ORM BLDSD",45, 0) | |
4724 | S $P(ORMS G(1),"|",9 )="SRM|"_O RIFN_U_$S( CODE="DC": "S05",CODE ="XX":"S03 ",1:"S01") | |
4725 | "RTN","ORM BLDSD",46, 0) | |
4726 | S A=$G(OR DIALOG($$P TR("CLINIC ALLY INDIC ATED DATE" ),1)) | |
4727 | "RTN","ORM BLDSD",47, 0) | |
4728 | I A["+" D | |
4729 | "RTN","ORM BLDSD",48, 0) | |
4730 | . S ORNOW =$$NOW^XLF DT() | |
4731 | "RTN","ORM BLDSD",49, 0) | |
4732 | . S X1=$P (ORNOW,"." ),X2=$P(A, "+",2) D C ^%DTC S A= X_$S(A?1"N ".E:"."_$P (ORNOW,"." ),1:"") | |
4733 | "RTN","ORM BLDSD",50, 0) | |
4734 | . S ORDIA LOG($$PTR( "CLINICALL Y INDICATE D DATE"),1 )=A,DATEUP D=1 | |
4735 | "RTN","ORM BLDSD",51, 0) | |
4736 | S RTCDATE =$$HL7DATE (A) | |
4737 | "RTN","ORM BLDSD",52, 0) | |
4738 | S START=$ P(X0,U,8), TIME=$G(OR DIALOG($$P TR("YES/NO "),1)) | |
4739 | "RTN","ORM BLDSD",53, 0) | |
4740 | S ORMSG(S EGCNT)=ORM SG(SEGCNT) _$S(TIME=1 :U_RTCDATE _"|T|",1:R TCDATE_U_" ||") | |
4741 | "RTN","ORM BLDSD",54, 0) | |
4742 | I +TIME=1 S ORLEAD= "on or aro und ",ORTR AIL="" | |
4743 | "RTN","ORM BLDSD",55, 0) | |
4744 | I +TIME=0 S ORLEAD= "on or aro und (",ORT RAIL=")" | |
4745 | "RTN","ORM BLDSD",56, 0) | |
4746 | S APPTNUM =$G(ORDIAL OG($$PTR(" APPT NUM") ,1)) | |
4747 | "RTN","ORM BLDSD",57, 0) | |
4748 | S APPTINV =+$G(ORDIA LOG($$PTR( "SCH INTER VAL"),1)) | |
4749 | "RTN","ORM BLDSD",58, 0) | |
4750 | S ORMSG(S EGCNT)=ORM SG(SEGCNT) _$S(APPTIN V>0:"Q"_AP PTINV_"D", 1:"")_"|" | |
4751 | "RTN","ORM BLDSD",59, 0) | |
4752 | S ORMSG(S EGCNT)=ORM SG(SEGCNT) _APPTNUM_" |" | |
4753 | "RTN","ORM BLDSD",60, 0) | |
4754 | S ORMSG(S EGCNT)=ORM SG(SEGCNT) _WHOSIGN_" ||||" | |
4755 | "RTN","ORM BLDSD",61, 0) | |
4756 | S ORMSG(S EGCNT)=ORM SG(SEGCNT) _WHOENTER_ "||" | |
4757 | "RTN","ORM BLDSD",62, 0) | |
4758 | S ORMSG(S EGCNT)=ORM SG(SEGCNT) _LOCSEG_"| ||" | |
4759 | "RTN","ORM BLDSD",63, 0) | |
4760 | S ORMSG(S EGCNT)=ORM SG(SEGCNT) _IFN_"|"_P KGREF_"|" | |
4761 | "RTN","ORM BLDSD",64, 0) | |
4762 | AIL ; | |
4763 | "RTN","ORM BLDSD",65, 0) | |
4764 | S SEGCNT= SEGCNT+1 | |
4765 | "RTN","ORM BLDSD",66, 0) | |
4766 | S CLINIC= $G(ORDIALO G($$PTR("L OCATION"), 1)) | |
4767 | "RTN","ORM BLDSD",67, 0) | |
4768 | S CLINIC= CLINIC_U_$ $GET1^DIQ( 44,CLINIC, .01) | |
4769 | "RTN","ORM BLDSD",68, 0) | |
4770 | S ORMSG(S EGCNT)="AI L|||"_CLIN IC | |
4771 | "RTN","ORM BLDSD",69, 0) | |
4772 | S PTR=$$P TR("PRE RE Q") | |
4773 | "RTN","ORM BLDSD",70, 0) | |
4774 | ; | |
4775 | "RTN","ORM BLDSD",71, 0) | |
4776 | AIG ; | |
4777 | "RTN","ORM BLDSD",72, 0) | |
4778 | S INST=0 F S INST= $O(ORDIALO G(PTR,INST )) Q:INST' >0 S PRER EQ(INST)=O RDIALOG(PT R,INST) | |
4779 | "RTN","ORM BLDSD",73, 0) | |
4780 | I $D(PRER EQ) D | |
4781 | "RTN","ORM BLDSD",74, 0) | |
4782 | .S SEGCNT =SEGCNT+1, INC=0 | |
4783 | "RTN","ORM BLDSD",75, 0) | |
4784 | .S INST=0 F S INST =$O(PREREQ (INST)) Q: INST'>0 D | |
4785 | "RTN","ORM BLDSD",76, 0) | |
4786 | ..S INC=I NC+1 | |
4787 | "RTN","ORM BLDSD",77, 0) | |
4788 | ..I INC=1 S ORMSG(S EGCNT)="AI G|"_INC_"| "_U_PREREQ (INST)_U_U _U_U_"|||| |||||||" Q | |
4789 | "RTN","ORM BLDSD",78, 0) | |
4790 | ..I INC>1 S ORMSG(S EGCNT,INC- 1)="AIG|"_ INC_"|"_U_ PREREQ(INS T)_U_U_U_U _"|||||||| |||" | |
4791 | "RTN","ORM BLDSD",79, 0) | |
4792 | NXT ; | |
4793 | "RTN","ORM BLDSD",80, 0) | |
4794 | S COMMENT =$G(ORDIAL OG($$PTR(" SD COMMENT "),1)) | |
4795 | "RTN","ORM BLDSD",81, 0) | |
4796 | I COMMENT '="" S SEG CNT=SEGCNT +1,ORMSG(S EGCNT)="NT E|6|P|"_$$ ESC(COMMEN T) | |
4797 | "RTN","ORM BLDSD",82, 0) | |
4798 | I DATEUPD =1 S ORIFN =+ORIFN K ^OR(100,OR IFN,4.5) D RESPONSE^ ORCSAVE,OR DTEXT^ORCS AVE1(ORIFN _";"_ACT) | |
4799 | "RTN","ORM BLDSD",83, 0) | |
4800 | Q | |
4801 | "RTN","ORM SD") | |
4802 | 0^11^B9718 9040 | |
4803 | "RTN","ORM SD",1,0) | |
4804 | ORMSD ; SL C/AGP - Pr ocess Sche duling ORM msgs ;06/ 19/17 | |
4805 | "RTN","ORM SD",2,0) | |
4806 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**4 34**;Dec 1 7, 1997;Bu ild 31 | |
4807 | "RTN","ORM SD",3,0) | |
4808 | ; | |
4809 | "RTN","ORM SD",4,0) | |
4810 | ;EN build s an resul ts array | |
4811 | "RTN","ORM SD",5,0) | |
4812 | ;INPUTS(" APPT IEN") =0 | |
4813 | "RTN","ORM SD",6,0) | |
4814 | ;INPUTS(" APPT TYPE" )="followu p" | |
4815 | "RTN","ORM SD",7,0) | |
4816 | ;INPUTS(" CLINIC")=" 240^20 MIN UTE" | |
4817 | "RTN","ORM SD",8,0) | |
4818 | ;INPUTS(" COMMENT")= "This is t he new com ment field " | |
4819 | "RTN","ORM SD",9,0) | |
4820 | ;INPUTS(" ENTERED BY ")="100000 00195^PULE O,ANTHONY" | |
4821 | "RTN","ORM SD",10,0) | |
4822 | ;INPUTS(" INTERVAL") ="Q7D" | |
4823 | "RTN","ORM SD",11,0) | |
4824 | ;INPUTS(" MSG ID")=" " | |
4825 | "RTN","ORM SD",12,0) | |
4826 | ;INPUTS(" DISCONTINU E")=1 | |
4827 | "RTN","ORM SD",13,0) | |
4828 | ;INPUTS(" ENTERED IN ERROR")=1 | |
4829 | "RTN","ORM SD",14,0) | |
4830 | ;INPUTS(" NLT")=1 | |
4831 | "RTN","ORM SD",15,0) | |
4832 | ;INPUTS(" NUMBER APP T")=4 | |
4833 | "RTN","ORM SD",16,0) | |
4834 | ;INPUTS(" ORDER IEN" )=14524362 | |
4835 | "RTN","ORM SD",17,0) | |
4836 | ;INPUTS(" PATIENT")= "346^" | |
4837 | "RTN","ORM SD",18,0) | |
4838 | ;INPUTS(" PREREQ",2) ="XRAY" | |
4839 | "RTN","ORM SD",19,0) | |
4840 | ;INPUTS(" PREREQ",3) ="VITALS" | |
4841 | "RTN","ORM SD",20,0) | |
4842 | ;INPUTS(" RTC DATE") =20170524 | |
4843 | "RTN","ORM SD",21,0) | |
4844 | ;INPUTS(" SIGNED BY" )="" | |
4845 | "RTN","ORM SD",22,0) | |
4846 | ; | |
4847 | "RTN","ORM SD",23,0) | |
4848 | ; | |
4849 | "RTN","ORM SD",24,0) | |
4850 | CREATACT(N ATURE) ; | |
4851 | "RTN","ORM SD",25,0) | |
4852 | N IEN | |
4853 | "RTN","ORM SD",26,0) | |
4854 | S IEN=$O( ^ORD(100.0 2,"C",NATU RE,"")) I IEN'>0 Q 0 | |
4855 | "RTN","ORM SD",27,0) | |
4856 | I +$P($G( ^ORD(100.0 2,IEN,1)), U)=1 Q 1 | |
4857 | "RTN","ORM SD",28,0) | |
4858 | Q 0 | |
4859 | "RTN","ORM SD",29,0) | |
4860 | ; | |
4861 | "RTN","ORM SD",30,0) | |
4862 | EN(MSG) ; -- main en try point for OR REC EIVE where MSG conta ins HL7 ms g | |
4863 | "RTN","ORM SD",31,0) | |
4864 | N ACTION, AIG,AIL,AR Q,DATE,ENT ER,ERROR,F AILMSA,FRE Q,HASMSA,I NST,MSH,NO DE,NUM,NXT ,ORMSG,PAT ,RESULT,X, PID,PV1,SE G,SIGN | |
4865 | "RTN","ORM SD",32,0) | |
4866 | S ERROR=" " | |
4867 | "RTN","ORM SD",33,0) | |
4868 | S ORMSG=$ S($L($G(MS G)):MSG,1: "MSG") ; M SG="NAME" or MSG(#)= message | |
4869 | "RTN","ORM SD",34,0) | |
4870 | I '$O(@OR MSG@(0)) D EN^ORERR( "Missing H L7 message ",.MSG) Q | |
4871 | "RTN","ORM SD",35,0) | |
4872 | S MSH=0 F S MSH=$O (@ORMSG@(M SH)) Q:MSH '>0 Q:$E( @ORMSG@(MS H),1,3)="M SH" | |
4873 | "RTN","ORM SD",36,0) | |
4874 | I 'MSH D EN^ORERR(" Missing or invalid M SH segment ",.MSG) | |
4875 | "RTN","ORM SD",37,0) | |
4876 | S X=0,FAI LMSA=0,HAS MSA=0 F S X=$O(@ORM SG@(X)) Q: X'>0!(ERRO R'="")!(HA SMSA=1) D | |
4877 | "RTN","ORM SD",38,0) | |
4878 | .S SEG=$P (@ORMSG@(X ),"|"),NOD E=$P(@ORMS G@(X),"|", 2,99) | |
4879 | "RTN","ORM SD",39,0) | |
4880 | .I SEG="M SA" S HASM SA=1 | |
4881 | "RTN","ORM SD",40,0) | |
4882 | .S SEG=SE G_"(.RESUL T,X,NODE,. ERROR)" | |
4883 | "RTN","ORM SD",41,0) | |
4884 | .D @SEG | |
4885 | "RTN","ORM SD",42,0) | |
4886 | I FAILMSA =1 D REJEC T(.RESULT) G ENX | |
4887 | "RTN","ORM SD",43,0) | |
4888 | I HASMSA= 1 D ACCEPT (.RESULT) G ENX | |
4889 | "RTN","ORM SD",44,0) | |
4890 | I $G(ERRO R)'="" D S ENDFAIL(.E RROR,.RESU LT) G ENX | |
4891 | "RTN","ORM SD",45,0) | |
4892 | I '$$VALI DATE(.RESU LT,.ERROR) D SENDFAI L(.ERROR,. RESULT) G ENX | |
4893 | "RTN","ORM SD",46,0) | |
4894 | D SAVEREC (.RESULT) | |
4895 | "RTN","ORM SD",47,0) | |
4896 | D SENDOK( .RESULT) | |
4897 | "RTN","ORM SD",48,0) | |
4898 | ENX ; | |
4899 | "RTN","ORM SD",49,0) | |
4900 | Q | |
4901 | "RTN","ORM SD",50,0) | |
4902 | ; | |
4903 | "RTN","ORM SD",51,0) | |
4904 | LASTACT(OR IFN) ; | |
4905 | "RTN","ORM SD",52,0) | |
4906 | N RESULT | |
4907 | "RTN","ORM SD",53,0) | |
4908 | I ORIFN[" ;" S RESUL T=$P(ORIFN ,";",2) G LASTACTX | |
4909 | "RTN","ORM SD",54,0) | |
4910 | S RESULT= $O(^OR(100 ,ORIFN,8," "),-1) | |
4911 | "RTN","ORM SD",55,0) | |
4912 | I RESULT= "" S RESUL T=1 | |
4913 | "RTN","ORM SD",56,0) | |
4914 | LASTACTX ; | |
4915 | "RTN","ORM SD",57,0) | |
4916 | Q RESULT | |
4917 | "RTN","ORM SD",58,0) | |
4918 | ; | |
4919 | "RTN","ORM SD",59,0) | |
4920 | MSH(RESULT ,X,SEG,ERR OR) ; | |
4921 | "RTN","ORM SD",60,0) | |
4922 | S RESULT( "MSG ID")= $P(SEG,"|" ,9) | |
4923 | "RTN","ORM SD",61,0) | |
4924 | S RESULT( "MSG DATE/ TIME")=$$H L7TFM^XLFD T($P(SEG," |",6),"L") | |
4925 | "RTN","ORM SD",62,0) | |
4926 | Q | |
4927 | "RTN","ORM SD",63,0) | |
4928 | ; | |
4929 | "RTN","ORM SD",64,0) | |
4930 | MSA(RESULT ,X,SEG,ERR OR) ; | |
4931 | "RTN","ORM SD",65,0) | |
4932 | N STATUS | |
4933 | "RTN","ORM SD",66,0) | |
4934 | I $P(SEG, "|")'="AR" D Q | |
4935 | "RTN","ORM SD",67,0) | |
4936 | .S STATUS =$P(SEG,"| ",2) | |
4937 | "RTN","ORM SD",68,0) | |
4938 | .S RESULT ("APPT IEN ")=$P(STAT US,U,2) | |
4939 | "RTN","ORM SD",69,0) | |
4940 | S RESULT( "REJECTION ERROR")=$ P(SEG,"|", 2) S FAILM SA=1 | |
4941 | "RTN","ORM SD",70,0) | |
4942 | ;S OREASO N=RESULT(" REJECTION ERROR") | |
4943 | "RTN","ORM SD",71,0) | |
4944 | Q | |
4945 | "RTN","ORM SD",72,0) | |
4946 | ; | |
4947 | "RTN","ORM SD",73,0) | |
4948 | SCH(RESULT ,X,SEG,ERR OR) ; | |
4949 | "RTN","ORM SD",74,0) | |
4950 | N TIME | |
4951 | "RTN","ORM SD",75,0) | |
4952 | S RESULT( "ORDER IEN ")=$P(SEG, "|",2),RES ULT("APPT IEN")=+$P( SEG,"|",1) | |
4953 | "RTN","ORM SD",76,0) | |
4954 | S RESULT( "APPT TYPE ")=$P($P(S EG,"|",5), U,2) | |
4955 | "RTN","ORM SD",77,0) | |
4956 | S ACTION= $P(SEG,"|" ,6) S RESU LT($S($P(A CTION,U)=" S15":"DISC ONTINUE",1 :"COMPLETE "))=1 | |
4957 | "RTN","ORM SD",78,0) | |
4958 | I $P(ACTI ON,U,2)="P ARTIAL" S RESULT("PA RTIAL")=1 | |
4959 | "RTN","ORM SD",79,0) | |
4960 | S DATE=$P (SEG,"|",8 ),TIME=$P( SEG,"|",9) | |
4961 | "RTN","ORM SD",80,0) | |
4962 | I TIME="T " S RESULT ("NLT")=1 | |
4963 | "RTN","ORM SD",81,0) | |
4964 | S RESULT( "RTC DATE" )=$$HL7TFM ^XLFDT($S( TIME="T":$ P(DATE,U,2 ),1:$P(DAT E,U)),"L") | |
4965 | "RTN","ORM SD",82,0) | |
4966 | S FREQ=$P (SEG,"|",1 0),NUM=+$P (SEG,"|",1 1) | |
4967 | "RTN","ORM SD",83,0) | |
4968 | S RESULT( "NUMBER AP PT")=NUM I NUM>0 S R ESULT("INT ERVAL")=+$ E(FREQ,2,3 ) | |
4969 | "RTN","ORM SD",84,0) | |
4970 | S RESULT( "SIGNED BY ")=$P(SEG, "|",14) | |
4971 | "RTN","ORM SD",85,0) | |
4972 | S RESULT( "DISPOSITI ON BY")=$P (SEG,"|",1 6) | |
4973 | "RTN","ORM SD",86,0) | |
4974 | Q | |
4975 | "RTN","ORM SD",87,0) | |
4976 | ; | |
4977 | "RTN","ORM SD",88,0) | |
4978 | AIL(RESULT ,X,SEG,ERR OR) ; | |
4979 | "RTN","ORM SD",89,0) | |
4980 | S RESULT( "CLINIC")= $P(SEG,"|" ,3) | |
4981 | "RTN","ORM SD",90,0) | |
4982 | Q | |
4983 | "RTN","ORM SD",91,0) | |
4984 | AIG(RESULT ,X,SEG,ERR OR) ; | |
4985 | "RTN","ORM SD",92,0) | |
4986 | N INST,NO DE | |
4987 | "RTN","ORM SD",93,0) | |
4988 | S RESULT( "PREREQ",$ P(SEG,"|") )=$P($P(SE G,"|",2),U ,2) | |
4989 | "RTN","ORM SD",94,0) | |
4990 | S INST=0 F S INST= $O(@ORMSG@ (X,INST)) Q:INST'>0 D | |
4991 | "RTN","ORM SD",95,0) | |
4992 | .S NODE=$ P(@ORMSG@( X,INST),"| ",2,99) | |
4993 | "RTN","ORM SD",96,0) | |
4994 | .S RESULT ("PREREQ", $P(NODE,"| "))=$P($P( NODE,"|",2 ),U,2) | |
4995 | "RTN","ORM SD",97,0) | |
4996 | Q | |
4997 | "RTN","ORM SD",98,0) | |
4998 | ; | |
4999 | "RTN","ORM SD",99,0) | |
5000 | NTE(RESULT ,X,SEG,ERR OR) ; | |
5001 | "RTN","ORM SD",100,0) | |
5002 | S RESULT( "COMMENT") =$P(SEG,"| ",3) | |
5003 | "RTN","ORM SD",101,0) | |
5004 | Q | |
5005 | "RTN","ORM SD",102,0) | |
5006 | ; | |
5007 | "RTN","ORM SD",103,0) | |
5008 | ; | |
5009 | "RTN","ORM SD",104,0) | |
5010 | PID(RESULT ,X,SEG,ERR OR) ; | |
5011 | "RTN","ORM SD",105,0) | |
5012 | S RESULT( "PATIENT") =$P(SEG,"| ",3)_U_$P( SEG,"|",5) | |
5013 | "RTN","ORM SD",106,0) | |
5014 | Q | |
5015 | "RTN","ORM SD",107,0) | |
5016 | ; | |
5017 | "RTN","ORM SD",108,0) | |
5018 | PV1(RESULT ,X,SEG,ERR OR) ; -- G ets Patien t location info. | |
5019 | "RTN","ORM SD",109,0) | |
5020 | ; may not be nee ded for sc heduling | |
5021 | "RTN","ORM SD",110,0) | |
5022 | Q | |
5023 | "RTN","ORM SD",111,0) | |
5024 | ; | |
5025 | "RTN","ORM SD",112,0) | |
5026 | FMDATE(Y) ; -- Conve rt HL7 dat e/time to FM format | |
5027 | "RTN","ORM SD",113,0) | |
5028 | Q $$HL7TF M^XLFDT(Y) | |
5029 | "RTN","ORM SD",114,0) | |
5030 | ; | |
5031 | "RTN","ORM SD",115,0) | |
5032 | REJECT(RES ULT) ; | |
5033 | "RTN","ORM SD",116,0) | |
5034 | N ORIFN,O RNATR | |
5035 | "RTN","ORM SD",117,0) | |
5036 | S ORIFN=$ P($G(RESUL T("MSG ID" )),U) Q:+O RIFN'>0 | |
5037 | "RTN","ORM SD",118,0) | |
5038 | S:'$G(ORN ATR) ORNAT R="X" ;Rej ected | |
5039 | "RTN","ORM SD",119,0) | |
5040 | S ^OR(100 ,+ORIFN,6) =$O(^ORD(1 00.02,"C", ORNATR,0)) _U_U_+$E($ $NOW^XLFDT ,1,12)_U_U _RESULT("R EJECTION E RROR") | |
5041 | "RTN","ORM SD",120,0) | |
5042 | I $P($G(^ OR(100,+OR IFN,3)),U, 11)=2 N OR IG S ORIG= $P(^(3),U, 5) S:ORIG $P(^OR(100 ,ORIG,3),U ,6)="" ;re move fwd p tr if pend ing renewa l | |
5043 | "RTN","ORM SD",121,0) | |
5044 | S ORERR=R ESULT("REJ ECTION ERR OR") | |
5045 | "RTN","ORM SD",122,0) | |
5046 | N ORDA S ORDA=+$P(O RIFN,";",2 ) I ORDA D | |
5047 | "RTN","ORM SD",123,0) | |
5048 | . S $P(^O R(100,+ORI FN,8,ORDA, 0),U,15)=1 3 ;request rejected | |
5049 | "RTN","ORM SD",124,0) | |
5050 | . S:$L(RE SULT("REJE CTION ERRO R")) ^OR(1 00,+ORIFN, 8,ORDA,1)= RESULT("RE JECTION ER ROR") | |
5051 | "RTN","ORM SD",125,0) | |
5052 | D STATUS^ ORCSAVE2(+ ORIFN,13) | |
5053 | "RTN","ORM SD",126,0) | |
5054 | Q | |
5055 | "RTN","ORM SD",127,0) | |
5056 | ; | |
5057 | "RTN","ORM SD",128,0) | |
5058 | ACCEPT(RES ULT) ; | |
5059 | "RTN","ORM SD",129,0) | |
5060 | N ORIFN | |
5061 | "RTN","ORM SD",130,0) | |
5062 | S ORIFN=$ P($G(RESUL T("MSG ID" )),U) | |
5063 | "RTN","ORM SD",131,0) | |
5064 | I $P(RESU LT("MSG ID "),U,2)'=" S05" D Q | |
5065 | "RTN","ORM SD",132,0) | |
5066 | .S ^OR(10 0,+ORIFN,4 )=$G(RESUL T("APPT IE N")) | |
5067 | "RTN","ORM SD",133,0) | |
5068 | .D STATUS ^ORCSAVE2( +ORIFN,5) | |
5069 | "RTN","ORM SD",134,0) | |
5070 | .D DATES^ ORCSAVE2(+ ORIFN,DT," ") | |
5071 | "RTN","ORM SD",135,0) | |
5072 | D DCACK(+ ORIFN,.RES ULT) | |
5073 | "RTN","ORM SD",136,0) | |
5074 | Q | |
5075 | "RTN","ORM SD",137,0) | |
5076 | ; | |
5077 | "RTN","ORM SD",138,0) | |
5078 | DCACK(ORIF N,RESULT) ; | |
5079 | "RTN","ORM SD",139,0) | |
5080 | N ORSTS | |
5081 | "RTN","ORM SD",140,0) | |
5082 | ;set stat us to disc ontinue us ed as a va riable for future co de changes | |
5083 | "RTN","ORM SD",141,0) | |
5084 | S ORSTS=1 | |
5085 | "RTN","ORM SD",142,0) | |
5086 | D EXPDT(O RIFN) | |
5087 | "RTN","ORM SD",143,0) | |
5088 | D STATUS^ ORCSAVE2(+ ORIFN,ORST S) | |
5089 | "RTN","ORM SD",144,0) | |
5090 | I $G(RESU LT("APPT I EN"))'="" S ^OR(100, +ORIFN,4)= RESULT("AP PT IEN") | |
5091 | "RTN","ORM SD",145,0) | |
5092 | Q | |
5093 | "RTN","ORM SD",146,0) | |
5094 | ; | |
5095 | "RTN","ORM SD",147,0) | |
5096 | GETSTAT(RE SULT) ; | |
5097 | "RTN","ORM SD",148,0) | |
5098 | I +$G(RES ULT("DISCO NTINUE")) Q $O(^ORD( 100.01,"B" ,"DISCONTI NUED","")) | |
5099 | "RTN","ORM SD",149,0) | |
5100 | I +$G(RES ULT("PARTI AL")) Q $O (^ORD(100. 01,"B","PA RTIAL RESU LTS","")) | |
5101 | "RTN","ORM SD",150,0) | |
5102 | Q $O(^ORD (100.01,"B ","COMPLET E","")) | |
5103 | "RTN","ORM SD",151,0) | |
5104 | ; | |
5105 | "RTN","ORM SD",152,0) | |
5106 | EXPDT(ORIF N) ; -- sa ve exp dat e when dc' d | |
5107 | "RTN","ORM SD",153,0) | |
5108 | N STOP S STOP=$P($G (^OR(100,+ ORIFN,0)), U,9) | |
5109 | "RTN","ORM SD",154,0) | |
5110 | I STOP,ST OP<$$NOW^X LFDT,'$P($ G(^OR(100, +ORIFN,6)) ,U,6) S $P (^(6),U,6) =STOP | |
5111 | "RTN","ORM SD",155,0) | |
5112 | Q | |
5113 | "RTN","ORM SD",156,0) | |
5114 | ; | |
5115 | "RTN","ORM SD",157,0) | |
5116 | VALIDATE(R ESULT,ERRO R) ; | |
5117 | "RTN","ORM SD",158,0) | |
5118 | ;INPUTS(" APPT IEN") =0 | |
5119 | "RTN","ORM SD",159,0) | |
5120 | ;INPUTS(" APPT TYPE" )="followu p" | |
5121 | "RTN","ORM SD",160,0) | |
5122 | ;INPUTS(" CLINIC")=" 240^20 MIN UTE" | |
5123 | "RTN","ORM SD",161,0) | |
5124 | ;INPUTS(" COMMENT")= "This is t he new com ment field " | |
5125 | "RTN","ORM SD",162,0) | |
5126 | ;INPUTS(" ENTERED BY ")="100000 00195^PULE O,ANTHONY" | |
5127 | "RTN","ORM SD",163,0) | |
5128 | ;INPUTS(" INTERVAL") ="Q7D" | |
5129 | "RTN","ORM SD",164,0) | |
5130 | ;INPUTS(" MSG ID")=" " | |
5131 | "RTN","ORM SD",165,0) | |
5132 | ;INPUTS(" DISCONTINU E")=1 | |
5133 | "RTN","ORM SD",166,0) | |
5134 | ;INPUTS(" ENTERED IN ERROR")=1 | |
5135 | "RTN","ORM SD",167,0) | |
5136 | ;INPUTS(" NLT")=1 | |
5137 | "RTN","ORM SD",168,0) | |
5138 | ;INPUTS(" NUMBER APP T")=4 | |
5139 | "RTN","ORM SD",169,0) | |
5140 | ;INPUTS(" ORDER IEN" )=14524362 | |
5141 | "RTN","ORM SD",170,0) | |
5142 | ;INPUTS(" PATIENT")= "346^" | |
5143 | "RTN","ORM SD",171,0) | |
5144 | ;INPUTS(" PREREQ",2) ="XRAY" | |
5145 | "RTN","ORM SD",172,0) | |
5146 | ;INPUTS(" PREREQ",3) ="VITALS" | |
5147 | "RTN","ORM SD",173,0) | |
5148 | ;INPUTS(" RTC DATE") =20170524 | |
5149 | "RTN","ORM SD",174,0) | |
5150 | ;INPUTS(" SIGNED BY" )="" | |
5151 | "RTN","ORM SD",175,0) | |
5152 | N OK,ORIF N,OR3,STS | |
5153 | "RTN","ORM SD",176,0) | |
5154 | S OK=1 | |
5155 | "RTN","ORM SD",177,0) | |
5156 | I +$G(RES ULT("CLINI C"))'>0 S ERROR="Cli nic locati on not def ined" S OK =0 G VALID ATX | |
5157 | "RTN","ORM SD",178,0) | |
5158 | I '$G(RES ULT("COMPL ETE")),'$G (RESULT("D ISCONTINUE ")) S ERRO R="Status not define d" S OK=0 G VALIDATX | |
5159 | "RTN","ORM SD",179,0) | |
5160 | I +$G(RES ULT("PATIE NT"))'>0 S ERROR="Pa tient is n ot defined " S OK=0 G VALIDATX | |
5161 | "RTN","ORM SD",180,0) | |
5162 | I +$G(RES ULT("PATIE NT"))_";DP T("'=$P($G (^OR(100,R ESULT("ORD ER IEN"),0 )),U,2) S ERROR="Pat ient doesn 't match" S OK=0 G V ALIDATX | |
5163 | "RTN","ORM SD",181,0) | |
5164 | I '+$G(RE SULT("DISP OSITION BY ")) S ERRO R="User wh o disposit ion the or der not de fined" S O K=0 G VALI DATX | |
5165 | "RTN","ORM SD",182,0) | |
5166 | S ORIFN=R ESULT("ORD ER IEN") I +ORIFN'>0 S ERROR=" Order numb er not def ined" S OK =0 G VALID ATX | |
5167 | "RTN","ORM SD",183,0) | |
5168 | S OR3=$G( ^OR(100,+O RIFN,3)),S TS=$P(OR3, U,3) | |
5169 | "RTN","ORM SD",184,0) | |
5170 | I STS=1!( STS=2) S E RROR="Orde r with a s tatus of " _$S(STS=1: "discontin ued",1:"co mplete")_" cannot be changed" S OK=0 G V ALIDATX | |
5171 | "RTN","ORM SD",185,0) | |
5172 | VALIDATX ; | |
5173 | "RTN","ORM SD",186,0) | |
5174 | Q OK | |
5175 | "RTN","ORM SD",187,0) | |
5176 | ; | |
5177 | "RTN","ORM SD",188,0) | |
5178 | SAVEREC(RE SULT) ; | |
5179 | "RTN","ORM SD",189,0) | |
5180 | N C,CREAT ACT,DISPBY ,I,ID,ISTI ME,OERR,OR DA,ORDG,OR DIALOG,ORI FN,ORNATR, ORNP,ORNOW ,ORPKG,ORS TRT,ORVP,O RWHO,STATU S,TYPE,WHO SIGN,X0,X8 | |
5181 | "RTN","ORM SD",190,0) | |
5182 | N ORLEAD, ORTRAIL | |
5183 | "RTN","ORM SD",191,0) | |
5184 | S ORWHO=+ RESULT("DI SPOSITION BY") | |
5185 | "RTN","ORM SD",192,0) | |
5186 | S ORNP=OR WHO | |
5187 | "RTN","ORM SD",193,0) | |
5188 | S ORNOW=+ $E($$NOW^X LFDT,1,12) | |
5189 | "RTN","ORM SD",194,0) | |
5190 | S ORDIALO G=+$O(^ORD (101.41,"A B","SD RTC ",0)) | |
5191 | "RTN","ORM SD",195,0) | |
5192 | S ORDG=+$ O(^ORD(100 .98,"B","C LINIC SCHE DULING",0) ) | |
5193 | "RTN","ORM SD",196,0) | |
5194 | S ORIFN=R ESULT("ORD ER IEN") | |
5195 | "RTN","ORM SD",197,0) | |
5196 | S ORVP=+R ESULT("PAT IENT")_";D PT(" | |
5197 | "RTN","ORM SD",198,0) | |
5198 | S ORPKG=+ $$PKG("SD" ) D GETDLG 1^ORCD(ORD IALOG),GET ORDER^ORCD (+ORIFN,"O RDIALOG") | |
5199 | "RTN","ORM SD",199,0) | |
5200 | ;set ORDI ALOG array to values returned from sched uling sing le instanc e | |
5201 | "RTN","ORM SD",200,0) | |
5202 | ;D UPDRES P(ORIFN,.O RDIALOG) | |
5203 | "RTN","ORM SD",201,0) | |
5204 | S ORDA=$P (ORIFN,";" ,2) I ORDA ="" S ORDA =1 | |
5205 | "RTN","ORM SD",202,0) | |
5206 | S X0=$G(^ OR(100,+OR IFN,0)),X8 =$G(^OR(10 0,ORIFN,8, ORDA,0)) | |
5207 | "RTN","ORM SD",203,0) | |
5208 | ;get whos igned and start date for later | |
5209 | "RTN","ORM SD",204,0) | |
5210 | S WHOSIGN =$P(X8,U,5 ),ORSTRT=$ P(X0,U,8) | |
5211 | "RTN","ORM SD",205,0) | |
5212 | ;update p ackage ref erence | |
5213 | "RTN","ORM SD",206,0) | |
5214 | S ^OR(100 ,+ORIFN,4) =$G(RESULT ("APPT IEN ")) | |
5215 | "RTN","ORM SD",207,0) | |
5216 | ;create n ew order a ction | |
5217 | "RTN","ORM SD",208,0) | |
5218 | ;set to c omplete st atus until next iter ation of V SE | |
5219 | "RTN","ORM SD",209,0) | |
5220 | ;S STATUS =$S(+$G(RE SULT("DISC ONTINUE")) :$O(^ORD(1 00.01,"B", "CANCELLED ","")),1:$ O(^ORD(100 .01,"B","C OMPLETE"," "))) | |
5221 | "RTN","ORM SD",210,0) | |
5222 | ;S STATUS =$S(+$G(RE SULT("DISC ONTINUE")) :$O(^ORD(1 00.01,"B", "DISCONTIN UED","")), +$G(RESULT ("PARTIAL" )):$O(^ORD (100.01,"B ","PARTIAL RESULTS", "")),1:$O( ^ORD(100.0 1,"B","COM PLETE","") )) | |
5223 | "RTN","ORM SD",211,0) | |
5224 | S STATUS= $$GETSTAT( .RESULT) | |
5225 | "RTN","ORM SD",212,0) | |
5226 | S TYPE=$S (+$G(RESUL T("DISCONT INUE")):"D C",1:"XX") | |
5227 | "RTN","ORM SD",213,0) | |
5228 | D STATUS^ ORCSAVE2(O RIFN,STATU S) | |
5229 | "RTN","ORM SD",214,0) | |
5230 | S CREATAC T=$$CREATA CT("I") | |
5231 | "RTN","ORM SD",215,0) | |
5232 | I CREATAC T=1 S ORDA =$$ACTION^ ORCSAVE(TY PE,ORIFN,W HOSIGN,$S( TYPE="DC": "Per Sched uling",1:" "),ORNOW,O RWHO) | |
5233 | "RTN","ORM SD",216,0) | |
5234 | I CREATAC T=0 S ORDA =$$LASTACT (ORIFN) | |
5235 | "RTN","ORM SD",217,0) | |
5236 | ;if order is not cr eated how to get thi s to exper t system | |
5237 | "RTN","ORM SD",218,0) | |
5238 | I ORDA'>0 S ORERR=" Cannot cre ate new or der action " Q | |
5239 | "RTN","ORM SD",219,0) | |
5240 | ;update s tatus to c ompete set indexes | |
5241 | "RTN","ORM SD",220,0) | |
5242 | ;I TYPE'= "DC" D SET ALL^ORDD10 0(ORIFN) | |
5243 | "RTN","ORM SD",221,0) | |
5244 | D SETALL^ ORDD100(OR IFN) | |
5245 | "RTN","ORM SD",222,0) | |
5246 | ;set the order as i t has been release t o scheduli ng with th e update | |
5247 | "RTN","ORM SD",223,0) | |
5248 | D RELEASE ^ORCSAVE2( ORIFN,ORDA ,ORNOW,ORW HO,"I") | |
5249 | "RTN","ORM SD",224,0) | |
5250 | S ORNATR= "I" | |
5251 | "RTN","ORM SD",225,0) | |
5252 | D SIGSTS^ ORCSAVE2(+ ORIFN,ORDA ) | |
5253 | "RTN","ORM SD",226,0) | |
5254 | ;update d ates | |
5255 | "RTN","ORM SD",227,0) | |
5256 | D DATES^O RCSAVE2(OR IFN,ORSTRT ,ORNOW) | |
5257 | "RTN","ORM SD",228,0) | |
5258 | ;set disp osition fi elds | |
5259 | "RTN","ORM SD",229,0) | |
5260 | N DA,DR,D IE | |
5261 | "RTN","ORM SD",230,0) | |
5262 | S DA(1)=O RIFN,DA=OR DA | |
5263 | "RTN","ORM SD",231,0) | |
5264 | S DIE="^O R(100,"_DA (1)_",8," | |
5265 | "RTN","ORM SD",232,0) | |
5266 | S DR="40/ ///"_ORWHO _";41////" _RESULT("M SG DATE/TI ME") | |
5267 | "RTN","ORM SD",233,0) | |
5268 | D ^DIE | |
5269 | "RTN","ORM SD",234,0) | |
5270 | S $P(^OR( 100,+ORIFN ,8,ORDA,0) ,U,14)=ORD A | |
5271 | "RTN","ORM SD",235,0) | |
5272 | S $P(^OR( 100,+ORIFN ,3),U,7)=O RDA | |
5273 | "RTN","ORM SD",236,0) | |
5274 | I TYPE="D C" D | |
5275 | "RTN","ORM SD",237,0) | |
5276 | .D CANCEL ^ORCSEND(+ ORIFN) | |
5277 | "RTN","ORM SD",238,0) | |
5278 | .D EN^ORB 3(91,+RESU LT("PATIEN T"),ORIFN, "","Appoin tment Requ est Cancel led in Sch eduling"," NEW,"_ORIF N) Q | |
5279 | "RTN","ORM SD",239,0) | |
5280 | ;Disconti nue update s only | |
5281 | "RTN","ORM SD",240,0) | |
5282 | ;I TYPE=" DC" D Q | |
5283 | "RTN","ORM SD",241,0) | |
5284 | ;.S ORNAT R="E" | |
5285 | "RTN","ORM SD",242,0) | |
5286 | ;.;D SIGS TS^ORCSAVE 2(+ORIFN,O RDA) | |
5287 | "RTN","ORM SD",243,0) | |
5288 | ;.S $P(^O R(100,+ORI FN,3),U,7) =ORDA | |
5289 | "RTN","ORM SD",244,0) | |
5290 | ;.D CANCE L^ORCSEND( +ORIFN) | |
5291 | "RTN","ORM SD",245,0) | |
5292 | ;update r esponses 4 .5 and SIG | |
5293 | "RTN","ORM SD",246,0) | |
5294 | S ISTIME= ORDIALOG($ $PTR($P("Y ES/NO",U)) ,1) | |
5295 | "RTN","ORM SD",247,0) | |
5296 | S ORLEAD= $S(ISTIME= 1:"on or b efore ",1: "on or aro und ("),OR TRAIL=$S(I STIME=1:"" ,1:")") | |
5297 | "RTN","ORM SD",248,0) | |
5298 | K ^OR(100 ,+ORIFN,4. 5) D RESPO NSE^ORCSAV E,ORDTEXT^ ORCSAVE1(+ ORIFN_";"_ ORDA) | |
5299 | "RTN","ORM SD",249,0) | |
5300 | ;update t he dialog and packag e fiels. T his may ha ve value i n future v ersion of VSE | |
5301 | "RTN","ORM SD",250,0) | |
5302 | S $P(^OR( 100,ORIFN, 0),U,5)=OR DIALOG_";O RD(101.41, ",$P(^(0), U,14)=ORPK G | |
5303 | "RTN","ORM SD",251,0) | |
5304 | ;validate display g roup and u pdate if n eeded | |
5305 | "RTN","ORM SD",252,0) | |
5306 | I $P(^OR( 100,ORIFN, 0),U,11)'= ORDG D | |
5307 | "RTN","ORM SD",253,0) | |
5308 | . N DA,DR ,DIE | |
5309 | "RTN","ORM SD",254,0) | |
5310 | . S DA=OR IFN,DR="23 ////"_ORDG ,DIE="^OR( 100," D ^D IE | |
5311 | "RTN","ORM SD",255,0) | |
5312 | ;S $P(^(8 ,ORDA,0),U ,14)=ORDA | |
5313 | "RTN","ORM SD",256,0) | |
5314 | ;send bac k ack back , because scheduling is using a SRM mess age this c ode is bra nched from | |
5315 | "RTN","ORM SD",257,0) | |
5316 | ;the stan dard OR HL 7 message. This hand le in the EN line ta g of this routine. | |
5317 | "RTN","ORM SD",258,0) | |
5318 | ;S ORIFN= ORIFN_";"_ ORDA,ORDCN TRL="SN" ; to send NA msg back | |
5319 | "RTN","ORM SD",259,0) | |
5320 | Q | |
5321 | "RTN","ORM SD",260,0) | |
5322 | ; | |
5323 | "RTN","ORM SD",261,0) | |
5324 | UPDRESP(OR IFN,ORDIAL OG) ; | |
5325 | "RTN","ORM SD",262,0) | |
5326 | N C,I,ID, TYPE | |
5327 | "RTN","ORM SD",263,0) | |
5328 | F ID="LOC ATION","CL INICALLY", "YN","SDNU M","SDINT" ,"SDCOMMEN T" D | |
5329 | "RTN","ORM SD",264,0) | |
5330 | .S TYPE=$ $PMPTMAP(I D) I ID="" Q | |
5331 | "RTN","ORM SD",265,0) | |
5332 | .I ID="SD INT",+$G(O RDIALOG($$ PTR($P(TYP E,U)),1))= 0,$P($G(RE SULT($P(TY PE,U,2))), U)=0 Q | |
5333 | "RTN","ORM SD",266,0) | |
5334 | .I $P($G( RESULT($P( TYPE,U,2)) ),U)'="" S ORDIALOG( $$PTR($P(T YPE,U)),1) =$P($G(RES ULT($P(TYP E,U,2))),U ) Q | |
5335 | "RTN","ORM SD",267,0) | |
5336 | .I $G(ORD IALOG($$PT R($P(TYPE, U)),1))'=" " S ORDIAL OG($$PTR($ P(TYPE,U)) ,1)="@" | |
5337 | "RTN","ORM SD",268,0) | |
5338 | ;set ORDI ALOG array to values returned from sched uling mult iple insta nces | |
5339 | "RTN","ORM SD",269,0) | |
5340 | ;I $D(RES ULT("PRERE Q")) D | |
5341 | "RTN","ORM SD",270,0) | |
5342 | ;.S C=0,I =0 F S I= $O(RESULT( "PREREQ",I )) Q:I'>0 D | |
5343 | "RTN","ORM SD",271,0) | |
5344 | ;..S C=C+ 1,ORDIALOG ($$PTR("PR E REQ"),C) =$G(RESULT ("PREREQ", I)) | |
5345 | "RTN","ORM SD",272,0) | |
5346 | Q | |
5347 | "RTN","ORM SD",273,0) | |
5348 | ; | |
5349 | "RTN","ORM SD",274,0) | |
5350 | PMPTMAP(ID ) ; | |
5351 | "RTN","ORM SD",275,0) | |
5352 | I ID="CLI NIC" Q "LO CATION"_U_ "CLINIC" | |
5353 | "RTN","ORM SD",276,0) | |
5354 | I ID="CLI NICALLY" Q "CLINICAL LY INDICAT ED DATE"_U _"RTC DATE " | |
5355 | "RTN","ORM SD",277,0) | |
5356 | I ID="SDN UM" Q "APP T NUM"_U_" NUMBER APP T" | |
5357 | "RTN","ORM SD",278,0) | |
5358 | I ID="SDI NT" Q "SCH INTERVAL" _U_"INTERV AL" | |
5359 | "RTN","ORM SD",279,0) | |
5360 | I ID="SDC OMMENT" Q "SD COMMEN T"_U_"COMM ENT" | |
5361 | "RTN","ORM SD",280,0) | |
5362 | I ID="YN" Q "YES/NO "_U_"NLT" | |
5363 | "RTN","ORM SD",281,0) | |
5364 | Q "" | |
5365 | "RTN","ORM SD",282,0) | |
5366 | ; | |
5367 | "RTN","ORM SD",283,0) | |
5368 | SENDFAIL(E RROR,RESUL T) ; | |
5369 | "RTN","ORM SD",284,0) | |
5370 | N ORV | |
5371 | "RTN","ORM SD",285,0) | |
5372 | S ORV("XQ Y0")="" D EN^ORERR(E RROR,.ORMS G,.ORV) | |
5373 | "RTN","ORM SD",286,0) | |
5374 | ;Q:ORTYPE ="ORR" Q: '$L($G(ORN MSP)) | |
5375 | "RTN","ORM SD",287,0) | |
5376 | N OREMSG | |
5377 | "RTN","ORM SD",288,0) | |
5378 | ;N ORVP,O RTS S:'$G( ORDUZ) ORD UZ=PAT_";D PT(" D:'$G (ORVP) PID | |
5379 | "RTN","ORM SD",289,0) | |
5380 | S OREMSG( 1)=$$MSH^O RMBLD("SRM ","SD")_"| "_$G(RESUL T("MSG ID" )) | |
5381 | "RTN","ORM SD",290,0) | |
5382 | S OREMSG( 2)="MSA|AR |"_ERROR_" |||207^"_E RROR | |
5383 | "RTN","ORM SD",291,0) | |
5384 | S OREMSG( 3)="ERR|^^ ^" | |
5385 | "RTN","ORM SD",292,0) | |
5386 | D MSG^XQO R("OR EVSE ND SD",.OR EMSG) | |
5387 | "RTN","ORM SD",293,0) | |
5388 | Q | |
5389 | "RTN","ORM SD",294,0) | |
5390 | ; | |
5391 | "RTN","ORM SD",295,0) | |
5392 | SENDOK(RES ULT) ; | |
5393 | "RTN","ORM SD",296,0) | |
5394 | N ORMSG | |
5395 | "RTN","ORM SD",297,0) | |
5396 | S ORMSG(1 )=$$MSH^OR MBLD("SRM" ,"SD")_"|" _RESULT("M SG ID") | |
5397 | "RTN","ORM SD",298,0) | |
5398 | S ORMSG(2 )="MSA|AA| OK|||" | |
5399 | "RTN","ORM SD",299,0) | |
5400 | D MSG^XQO R("OR EVSE ND SD",.OR MSG) | |
5401 | "RTN","ORM SD",300,0) | |
5402 | Q | |
5403 | "RTN","ORM SD",301,0) | |
5404 | ; | |
5405 | "RTN","ORM SD",302,0) | |
5406 | PKG(NMSP) ; -- Retur n Package file ptr f or NMSP | |
5407 | "RTN","ORM SD",303,0) | |
5408 | N I S I=0 | |
5409 | "RTN","ORM SD",304,0) | |
5410 | F S I=+$ O(^DIC(9.4 ,"C",NMSP, I)) Q:I<1 Q:'$O(^(I ,0)) ;no Addl Prefs | |
5411 | "RTN","ORM SD",305,0) | |
5412 | Q I | |
5413 | "RTN","ORM SD",306,0) | |
5414 | ; | |
5415 | "RTN","ORM SD",307,0) | |
5416 | PTR(X) ; - - Return p tr to prom pt OR GTX X | |
5417 | "RTN","ORM SD",308,0) | |
5418 | Q +$O(^OR D(101.41," AB","OR GT X "_X,0)) | |
5419 | "RTN","ORM SD",309,0) | |
5420 | ; | |
5421 | "RTN","ORM SD",310,0) | |
5422 | VALUE(ID) ; -- Retur n value of ID in ^OR (100,+ORIF N,4.5,"ID" ) | |
5423 | "RTN","ORM SD",311,0) | |
5424 | N I,Y I ' $L($G(ID)) Q "" | |
5425 | "RTN","ORM SD",312,0) | |
5426 | S I=+$O(^ OR(100,+OR IFN,4.5,"I D",ID,0)) | |
5427 | "RTN","ORM SD",313,0) | |
5428 | S Y=$G(^O R(100,+ORI FN,4.5,I,1 )) | |
5429 | "RTN","ORM SD",314,0) | |
5430 | Q Y | |
5431 | "RTN","ORQ 20") | |
5432 | 0^15^B5127 2743 | |
5433 | "RTN","ORQ 20",1,0) | |
5434 | ORQ20 ; SL C/MKB - De tailed Ord er Report cont ;3/6/ 08 10:25 | |
5435 | "RTN","ORQ 20",2,0) | |
5436 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**1 2,27,92,94 ,116,141,1 77,186,190 ,215,243,4 34**;Dec 1 7, 1997;Bu ild 31 | |
5437 | "RTN","ORQ 20",3,0) | |
5438 | ACT ; -- a dd Activit y [from ^O RQ2] | |
5439 | "RTN","ORQ 20",4,0) | |
5440 | N ORACT S ORACT=$P( ACTION,U,2 ) | |
5441 | "RTN","ORQ 20",5,0) | |
5442 | I ORACT'= "NW",$P(AC TION,U,4)= 5,$P(ACTIO N,U,15)=13 Q ;skip canc actio ns | |
5443 | "RTN","ORQ 20",6,0) | |
5444 | N NVA,USE R S:$P(^OR D(100.98,$ P(^OR(100, +ORIFN,0), U,11),0),U )="NON-VA MEDICATION S" NVA=1 | |
5445 | "RTN","ORQ 20",7,0) | |
5446 | S CNT=CNT +1,@ORY@(C NT)=$$DATE ($P(ACTION ,U))_" "_ $$ACTION(O RACT) | |
5447 | "RTN","ORQ 20",8,0) | |
5448 | I $P(ACTI ON,U,13) S @ORY@(CNT )=@ORY@(CN T)_" enter ed by "_$$ USER(+$P(A CTION,U,13 )) | |
5449 | "RTN","ORQ 20",9,0) | |
5450 | I ORACT=" NW" D ;Sh ow origina l order te xt | |
5451 | "RTN","ORQ 20",10,0) | |
5452 | . N ORZ,I ,ORIGVIEW S ORIGVIEW =2 D TEXT^ ORQ12(.ORZ ,ORIFN_";1 ",80) | |
5453 | "RTN","ORQ 20",11,0) | |
5454 | . S CNT=C NT+1,@ORY@ (CNT)=" Order Te xt: "_$G(ORZ( 1)) | |
5455 | "RTN","ORQ 20",12,0) | |
5456 | . S I=1 F S I=$O(O RZ(I)) Q:I '>0 S CNT =CNT+1,@OR Y@(CNT)=$$ REPEAT^XLF STR(" ",24 )_$G(ORZ(I )) | |
5457 | "RTN","ORQ 20",13,0) | |
5458 | I ORACT=" XX" D ;Ch anged - sh ow new tex t | |
5459 | "RTN","ORQ 20",14,0) | |
5460 | . N ORZ,I ,ORIGVIEW S ORIGVIEW =2 D TEXT^ ORQ12(.ORZ ,ORIFN_";" _ORI,80) | |
5461 | "RTN","ORQ 20",15,0) | |
5462 | . S CNT=C NT+1,@ORY@ (CNT)=" Changed to: "_$G(ORZ( 1)) | |
5463 | "RTN","ORQ 20",16,0) | |
5464 | . S I=1 F S I=$O(O RZ(I)) Q:I '>0 S CNT =CNT+1,@OR Y@(CNT)=$$ REPEAT^XLF STR(" ",24 )_$G(ORZ(I )) | |
5465 | "RTN","ORQ 20",17,0) | |
5466 | A1 I $P(AC TION,U,12) D ;Natur e of Order /Release | |
5467 | "RTN","ORQ 20",18,0) | |
5468 | . N ORZ S ORZ=$G(^O RD(100.02, +$P(ACTION ,U,12),0)) | |
5469 | "RTN","ORQ 20",19,0) | |
5470 | . S CNT=C NT+1,@ORY@ (CNT)=" Nature o f Order: "_$P(ORZ, U) | |
5471 | "RTN","ORQ 20",20,0) | |
5472 | . I $P(OR 0,U,17),(O RACT="NW") Q ;see e vent | |
5473 | "RTN","ORQ 20",21,0) | |
5474 | . I "^V^P ^"[(U_$P(O RZ,U,2)_U) ,$P(ACTION ,U,16) S C NT=CNT+1,@ ORY@(CNT)= " Rele ased by: "_$$U SER(+$P(AC TION,U,17) )_" on "_$ $DATE($P(A CTION,U,16 )) | |
5475 | "RTN","ORQ 20",22,0) | |
5476 | I $P(OR0, U,17)&(ORA CT="NW") D ;Delayed Release E vent | |
5477 | "RTN","ORQ 20",23,0) | |
5478 | . N EVT,X ,ORV,I S E VT=+$P(OR0 ,U,17),X=$ $NAME^OREV NTX(EVT) | |
5479 | "RTN","ORQ 20",24,0) | |
5480 | . S:$E(X, 1,8)="Dela yed " X=$E (X,9,99) | |
5481 | "RTN","ORQ 20",25,0) | |
5482 | . I $G(^O RE(100.2,E VT,1)),'$P (ACTION,U, 16) S X=X_ " on "_$$D ATE(+^(1)) | |
5483 | "RTN","ORQ 20",26,0) | |
5484 | . S CNT=C NT+1,@ORY@ (CNT)=" Delayed Until: "_X Q:'$P (ACTION,U, 16) | |
5485 | "RTN","ORQ 20",27,0) | |
5486 | . D EVENT (.ORV) S C NT=CNT+1,@ ORY@(CNT)= " Rele ased by: "_ORV (1) | |
5487 | "RTN","ORQ 20",28,0) | |
5488 | . S I=1 F S I=$O(O RV(I)) Q:I '>0 S CNT =CNT+1,@OR Y@(CNT)=$$ REPEAT^XLF STR(" ",24 )_$G(ORV(I )) | |
5489 | "RTN","ORQ 20",29,0) | |
5490 | A2 I $P(AC TION,U,5) S CNT=CNT+ 1,@ORY@(CN T)=$S($P(A CTION,U,4) =7:" Dig",1:" Elec")_ " Signatur e: "_$$ USER(+$P(A CTION,U,5) )_" on "_$ $DATE($P(A CTION,U,6) ) | |
5491 | "RTN","ORQ 20",30,0) | |
5492 | I '$P(ACT ION,U,5)!( $P(ACTION, U,3)'=$P(A CTION,U,5) ),'$$SERVC ORR S CNT= CNT+1,@ORY @(CNT)=" "_$S($D (NVA):"Doc umented by :",1:"Orde red by: ")_" " _$$USER(+$ P(ACTION,U ,3)) | |
5493 | "RTN","ORQ 20",31,0) | |
5494 | I '$P(ACT ION,U,5),$ L($P(ACTIO N,U,4)) D | |
5495 | "RTN","ORQ 20",32,0) | |
5496 | .I $P(ACT ION,U,4)=0 D | |
5497 | "RTN","ORQ 20",33,0) | |
5498 | ..S USER= $$USER(+$P (ACTION,U, 7)) | |
5499 | "RTN","ORQ 20",34,0) | |
5500 | ..S CNT=C NT+1 | |
5501 | "RTN","ORQ 20",35,0) | |
5502 | ..I USER' ="" S @ORY @(CNT)=" Release d by: "_USER_" on "_$$DA TE($P(ACTI ON,U,16)) | |
5503 | "RTN","ORQ 20",36,0) | |
5504 | ..I USER= "" S @ORY@ (CNT)=" Relea sed: "_$$DATE( $P(ACTION, U,16)) | |
5505 | "RTN","ORQ 20",37,0) | |
5506 | .S CNT=CN T+1,@ORY@( CNT)=" Signature : "_$$SIG($P (ACTION,U, 4)) ;186 | |
5507 | "RTN","ORQ 20",38,0) | |
5508 | ;I '$P(AC TION,U,5), $L($P(ACTI ON,U,4)) S :$P(ACTION ,U,4)=0 CN T=CNT+1,@O RY@(CNT)=" Relea sed by: "_$$US ER(+$P(ACT ION,U,7))_ " on "_$$D ATE($P(ACT ION,U,16)) S CNT=CNT +1,@ORY@(C NT)=" Signature: " _$$SIG($P( ACTION,U,4 )) ;186 | |
5509 | "RTN","ORQ 20",39,0) | |
5510 | I $P(ACTI ON,U,9) S CNT=CNT+1, @ORY@(CNT) =" Nur se Verifie d: "_$S ($P(ACTION ,U,8):$$US ER(+$P(ACT ION,U,8))_ " on ",1:" ")_$$DATE( $P(ACTION, U,9)) | |
5511 | "RTN","ORQ 20",40,0) | |
5512 | I $P(ACTI ON,U,11) S CNT=CNT+1 ,@ORY@(CNT )=" Cl erk Verifi ed: "_$ S($P(ACTIO N,U,10):$$ USER(+$P(A CTION,U,10 ))_" on ", 1:"")_$$DA TE($P(ACTI ON,U,11)) | |
5513 | "RTN","ORQ 20",41,0) | |
5514 | I $P(ACTI ON,U,19) S CNT=CNT+1 ,@ORY@(CNT )=" Ch art Review ed: "_$ S($P(ACTIO N,U,18):$$ USER(+$P(A CTION,U,18 ))_" on ", 1:"")_$$DA TE($P(ACTI ON,U,19)) | |
5515 | "RTN","ORQ 20",42,0) | |
5516 | A3 I $P(AC TION,U,2)= "DC",$L(OR 6) S X=$S( $L($P(OR6, U,5)):$P(O R6,U,5),$P (OR6,U,4): $P($G(^ORD (100.03,+$ P(OR6,U,4) ,0)),U),$P (OR6,U):$P ($G(^ORD(1 00.02,+$P( OR6,U),0)) ,U),1:"") S:$L(X) CN T=CNT+1,@O RY@(CNT)=" Reaso n for DC: "_X | |
5517 | "RTN","ORQ 20",43,0) | |
5518 | I $L($G(^ OR(100,ORI FN,8,ORI,1 ))) S X=^( 1) D ;add backdoor comments | |
5519 | "RTN","ORQ 20",44,0) | |
5520 | . N LBL,I S LBL="" | |
5521 | "RTN","ORQ 20",45,0) | |
5522 | . I $P(AC TION,U,15) ="",$P(ACT ION,U,2)'= "DC" S LBL =" Com ments: " ;D C shown ab ove | |
5523 | "RTN","ORQ 20",46,0) | |
5524 | . I $P(AC TION,U,15) =13,$P(ACT ION,U,2)'= "NW" S LBL =" Can celled: " ;N W shown in ORQ2 | |
5525 | "RTN","ORQ 20",47,0) | |
5526 | . Q:'$L(L BL) I $L( X)'>56 S C NT=CNT+1,@ ORY@(CNT)= LBL_X Q | |
5527 | "RTN","ORQ 20",48,0) | |
5528 | . S DIWL= 1,DIWR=56, DIWF="C56" K ^UTILIT Y($J,"W") D ^DIWP | |
5529 | "RTN","ORQ 20",49,0) | |
5530 | . S I=0 F S I=$O(^ UTILITY($J ,"W",DIWL, I)) Q:I'>0 S CNT=CN T+1,@ORY@( CNT)=LBL_^ (I,0),LBL= " " | |
5531 | "RTN","ORQ 20",50,0) | |
5532 | I $D(^OR( 100,ORIFN, 8,ORI,5)) D ;Ward c omments | |
5533 | "RTN","ORQ 20",51,0) | |
5534 | . N X,ORJ K ^UTILIT Y($J,"W") | |
5535 | "RTN","ORQ 20",52,0) | |
5536 | . S ORJ=0 F S ORJ= $O(^OR(100 ,ORIFN,8,O RI,5,ORJ)) Q:ORJ'>0 S X=^(ORJ ,0) D ^DIW P | |
5537 | "RTN","ORQ 20",53,0) | |
5538 | . S ORJ=0 F S ORJ= $O(^UTILIT Y($J,"W",D IWL,ORJ)) Q:ORJ'>0 S CNT=CNT+ 1,@ORY@(CN T)=$S(ORJ= 1:" Wa rd/Clinic Cmmts: ",1 :" ")_^ (ORJ,0) | |
5539 | "RTN","ORQ 20",54,0) | |
5540 | . K ^UTIL ITY($J,"W" ) | |
5541 | "RTN","ORQ 20",55,0) | |
5542 | A4 I $P(AC TION,U,2)= "HD",$G(^O R(100,ORIF N,8,ORI,2) ) S X2=^(2 ),CNT=CNT+ 1,@ORY@(CN T)=" H old Releas ed: "_ $$FMTE^XLF DT($P(X2,U ),"2P")_" by "_$$USE R($P(X2,U, 2)) | |
5543 | "RTN","ORQ 20",56,0) | |
5544 | I $D(^OR( 100,ORIFN, 8,ORI,3)) D ;Un-/Fl agged | |
5545 | "RTN","ORQ 20",57,0) | |
5546 | . N X S X =$G(^OR(10 0,ORIFN,8, ORI,3)) | |
5547 | "RTN","ORQ 20",58,0) | |
5548 | . S CNT=C NT+1,@ORY@ (CNT)=" Flagged by: "_$$USER( +$P(X,U,4) )_" on "_$ $DATE($P(X ,U,3)) | |
5549 | "RTN","ORQ 20",59,0) | |
5550 | . S CNT=C NT+1,@ORY@ (CNT)=" "_$P(X,U, 5) | |
5551 | "RTN","ORQ 20",60,0) | |
5552 | . Q:X S CNT=CNT+1, @ORY@(CNT) =" Unf lagged by: "_$$ USER(+$P(X ,U,7))_" o n "_$$DATE ($P(X,U,6) ) | |
5553 | "RTN","ORQ 20",61,0) | |
5554 | . S CNT=C NT+1,@ORY@ (CNT)=" "_$P(X,U, 8) | |
5555 | "RTN","ORQ 20",62,0) | |
5556 | A5 ;dispos ition/RTC Orders | |
5557 | "RTN","ORQ 20",63,0) | |
5558 | I $D(^OR( 100,ORIFN, 8,ORI,4)) D | |
5559 | "RTN","ORQ 20",64,0) | |
5560 | .N S S X= $G(^OR(100 ,ORIFN,8,O RI,4)) | |
5561 | "RTN","ORQ 20",65,0) | |
5562 | .I +$P(X, U)>0 S CNT =CNT+1,@OR Y@(CNT)=" Dispos ition by: "_$$USE R(+$P(X,U) )_" on "_$ $DATE($P(X ,U,2)) | |
5563 | "RTN","ORQ 20",66,0) | |
5564 | Q | |
5565 | "RTN","ORQ 20",67,0) | |
5566 | ; | |
5567 | "RTN","ORQ 20",68,0) | |
5568 | DC ; -- Ad d Reason f or DC | |
5569 | "RTN","ORQ 20",69,0) | |
5570 | S CNT=CNT +1,@ORY@(C NT)=$$DATE ($P(OR6,U, 3))_$S($P( OR6,U,8):" Auto-",1 :" ")_"Di scontinued " | |
5571 | "RTN","ORQ 20",70,0) | |
5572 | I $P(OR6, U,8) D Q | |
5573 | "RTN","ORQ 20",71,0) | |
5574 | . N EVT,P KG,ORV,I | |
5575 | "RTN","ORQ 20",72,0) | |
5576 | . S EVT=$ P(OR6,U,8) ,PKG=$P($G (^ORE(100. 2,+EVT,3,O RIFN,0)),U ,2) | |
5577 | "RTN","ORQ 20",73,0) | |
5578 | . S @ORY@ (CNT)=@ORY @(CNT)_" b y "_$S(PKG ="FH":"DIE TETICS",PK G="LR":"LA BORATORY", PKG="PS":" PHARMACY", 1:"CPRS") | |
5579 | "RTN","ORQ 20",74,0) | |
5580 | . D EVENT (.ORV,1) S CNT=CNT+1 ,@ORY@(CNT )=" Pa tient Move ment: "_O RV(1) | |
5581 | "RTN","ORQ 20",75,0) | |
5582 | . S I=1 F S I=$O(O RV(I)) Q:I '>0 S CNT =CNT+1,@OR Y@(CNT)=$$ REPEAT^XLF STR(" ",24 )_$G(ORV(I )) | |
5583 | "RTN","ORQ 20",76,0) | |
5584 | I $P(OR6, U,2),$P($G (^ORD(100. 02,+$P(OR6 ,U),0)),U, 2)'="A" S @ORY@(CNT) =@ORY@(CNT )_" by "_$ $USER($P(O R6,U,2)) ; don't show user name if auto-d c | |
5585 | "RTN","ORQ 20",77,0) | |
5586 | N X S X=$ S($L($P(OR 6,U,5)):$P (OR6,U,5), $P(OR6,U,4 ):$P($G(^O RD(100.03, +$P(OR6,U, 4),0)),U), $P(OR6,U): $P($G(^ORD (100.02,+$ P(OR6,U),0 )),U),1:"" ) S:$L(X) CNT=CNT+1, @ORY@(CNT) =" Rea son for DC : "_X | |
5587 | "RTN","ORQ 20",78,0) | |
5588 | Q | |
5589 | "RTN","ORQ 20",79,0) | |
5590 | ; | |
5591 | "RTN","ORQ 20",80,0) | |
5592 | ACTION(COD E) ; -- Re turn name of action CODE | |
5593 | "RTN","ORQ 20",81,0) | |
5594 | N NAME S NAME=$S(CO DE="NW":"N ew Order", CODE="DC": "Discontin ue",CODE=" HD":"Hold" ,CODE="RL" :"Release Hold",CODE ="RN":"Ren ewal",CODE ="XX":"Cha nge",1:"") | |
5595 | "RTN","ORQ 20",82,0) | |
5596 | I CODE="N W",$P(OR3, U,11) S NA ME=NAME_$S ($P(OR3,U, 11)=1:" (C hange)",$P (OR3,U,11) =2:" (Rene wal)",1:"" ) | |
5597 | "RTN","ORQ 20",83,0) | |
5598 | Q NAME | |
5599 | "RTN","ORQ 20",84,0) | |
5600 | ; | |
5601 | "RTN","ORQ 20",85,0) | |
5602 | XACT(X) ; -- Return name of tr ansaction code X | |
5603 | "RTN","ORQ 20",86,0) | |
5604 | N Y S X=$ G(X) | |
5605 | "RTN","ORQ 20",87,0) | |
5606 | S Y=$S(X= "XX":"Edit ed",X="DC" :"Disconti nued",X="H D":"Held", X="RL":"Ho ld Release d",X="FW": "Forwarded ",X="CA":" Cancelled" ,1:"") | |
5607 | "RTN","ORQ 20",88,0) | |
5608 | Q Y | |
5609 | "RTN","ORQ 20",89,0) | |
5610 | ; | |
5611 | "RTN","ORQ 20",90,0) | |
5612 | DATE(X) ; -- Return date forma tted as 00 /00/0000 0 0:00 | |
5613 | "RTN","ORQ 20",91,0) | |
5614 | N T,Y S T=$P(X,"." ,2)_"0000" | |
5615 | "RTN","ORQ 20",92,0) | |
5616 | S Y=$E(X, 4,5)_"/"_$ E(X,6,7)_" /"_(1700+$ E(X,1,3)) | |
5617 | "RTN","ORQ 20",93,0) | |
5618 | I T S Y=Y _" "_$E(T, 1,2)_":"_$ E(T,3,4) | |
5619 | "RTN","ORQ 20",94,0) | |
5620 | Q Y | |
5621 | "RTN","ORQ 20",95,0) | |
5622 | ; | |
5623 | "RTN","ORQ 20",96,0) | |
5624 | USER(X) ; -- Returns NAME (TIT LE) of New Person X | |
5625 | "RTN","ORQ 20",97,0) | |
5626 | N X0,Y S X0=$G(^VA( 200,+X,0)) ,Y=$P(X0,U ) | |
5627 | "RTN","ORQ 20",98,0) | |
5628 | S:$P(X0,U ,9) Y=Y_" ("_$E($P($ G(^DIC(3.1 ,+$P(X0,U, 9),0)),U), 1,15)_")" | |
5629 | "RTN","ORQ 20",99,0) | |
5630 | Q Y | |
5631 | "RTN","ORQ 20",100,0) | |
5632 | ; | |
5633 | "RTN","ORQ 20",101,0) | |
5634 | SIG(X) ; - - Returns text of si gnature st atus X | |
5635 | "RTN","ORQ 20",102,0) | |
5636 | N Y S Y=" " | |
5637 | "RTN","ORQ 20",103,0) | |
5638 | I X=0 S Y ="ON CHART WITH WRIT TEN ORDERS " | |
5639 | "RTN","ORQ 20",104,0) | |
5640 | I X=1 S Y ="ELECTRON ICALLY SIG NED" | |
5641 | "RTN","ORQ 20",105,0) | |
5642 | I X=2 S Y ="NOT SIGN ED" | |
5643 | "RTN","ORQ 20",106,0) | |
5644 | I X=3 S Y ="NOT REQU IRED" | |
5645 | "RTN","ORQ 20",107,0) | |
5646 | I X=4 S Y ="ON CHART WITH PRIN TED ORDERS " | |
5647 | "RTN","ORQ 20",108,0) | |
5648 | I X=5 S Y ="NOT REQU IRED DUE T O SERVICE CANCEL/LAP SE" | |
5649 | "RTN","ORQ 20",109,0) | |
5650 | I X=6 S Y ="SERVICE CORRECTION TO SIGNED ORDER" | |
5651 | "RTN","ORQ 20",110,0) | |
5652 | Q Y | |
5653 | "RTN","ORQ 20",111,0) | |
5654 | ; | |
5655 | "RTN","ORQ 20",112,0) | |
5656 | SERVCORR() ; -- Retu rns 1 or 0 , if curre nt ACTION is a serv corr chang e | |
5657 | "RTN","ORQ 20",113,0) | |
5658 | N Y,NATUR E,I,X S Y= 0 | |
5659 | "RTN","ORQ 20",114,0) | |
5660 | G:ORACT'= "XX" SCQ | |
5661 | "RTN","ORQ 20",115,0) | |
5662 | S NATURE= +$P(ACTION ,U,12),NAT URE=$P($G( ^ORD(100.0 2,NATURE,0 )),U,2) | |
5663 | "RTN","ORQ 20",116,0) | |
5664 | I "^S^I^" '[(U_NATUR E_U) G SCQ | |
5665 | "RTN","ORQ 20",117,0) | |
5666 | S I=$O(^O R(100,ORIF N,8,ORI),- 1),X=$G(^( I,0)) | |
5667 | "RTN","ORQ 20",118,0) | |
5668 | I $P(X,U, 3)'=$P(ACT ION,U,3),$ P(X,U,5)'= $P(ACTION, U,3) G SCQ ;show pro v | |
5669 | "RTN","ORQ 20",119,0) | |
5670 | S Y=1 | |
5671 | "RTN","ORQ 20",120,0) | |
5672 | SCQ Q Y | |
5673 | "RTN","ORQ 20",121,0) | |
5674 | ; | |
5675 | "RTN","ORQ 20",122,0) | |
5676 | EVENT(ORTX ,DC) ; -- Returns pa tient even t info for EVT | |
5677 | "RTN","ORQ 20",123,0) | |
5678 | N EVT1,RE L,X,Y,I,OR MAX | |
5679 | "RTN","ORQ 20",124,0) | |
5680 | S ORTX(1) ="" ;177 | |
5681 | "RTN","ORQ 20",125,0) | |
5682 | S EVT1=$G (^ORE(100. 2,EVT,1)), REL=$G(^OR E(100.2,EV T,2,ORIFN, 0)) | |
5683 | "RTN","ORQ 20",126,0) | |
5684 | ; Return event data if AutoDC or auto-r eleased by an event: | |
5685 | "RTN","ORQ 20",127,0) | |
5686 | I $G(DC)! (REL&'$L($ P(REL,U,2) )&($P(EVT1 ,U,2)!$P(E VT1,U,4))) D Q | |
5687 | "RTN","ORQ 20",128,0) | |
5688 | . S Y=$S( $P(EVT1,U, 5):$P(EVT1 ,U,5),1:EV T) ;parent owns Acti vity | |
5689 | "RTN","ORQ 20",129,0) | |
5690 | . S Y=+$O (^ORE(100. 2,+Y,10,0) ),Y=$G(^(Y ,0)),X=$P( Y,U,4) Q:' $L(X) | |
5691 | "RTN","ORQ 20",130,0) | |
5692 | . S X=$S( X="A":"ADM ISSION",X= "T":"TRANS FER",X="D" :"DISCHARG E",X="S":" SPECIALTY CHANGE",1: $S($P(EVT1 ,U)>$$DPI^ ORUTL1("SR *3.0*157") :"IN TO O. R.",1:"OUT OF O.R.") )_" on "_$ $DATE($P(E VT1,U)) ;2 43 | |
5693 | "RTN","ORQ 20",131,0) | |
5694 | . S ORTX( 1)=X,ORTX= 1,ORMAX=56 | |
5695 | "RTN","ORQ 20",132,0) | |
5696 | . I $P(Y, U,6) S X=$ S($P(Y,U,4 )="D":"fro m ",1:"to ")_$$GET1^ DIQ(45.7,+ $P(Y,U,6)_ ",",.01) D TXT^ORCHT AB | |
5697 | "RTN","ORQ 20",133,0) | |
5698 | . I $P(Y, U,7) S X=" on "_$$GET 1^DIQ(42,+ $P(Y,U,7)_ ",",.01) D TXT^ORCHT AB | |
5699 | "RTN","ORQ 20",134,0) | |
5700 | S X=$$USE R(+$P(ACTI ON,U,17))_ " on "_$$D ATE($P(ACT ION,U,16)) | |
5701 | "RTN","ORQ 20",135,0) | |
5702 | I ORIFN'= +$P($G(^OR E(100.2,EV T,0)),U,4) ,$P(REL,U, 2)="MN" S X=X_" (man ually rele ased)" | |
5703 | "RTN","ORQ 20",136,0) | |
5704 | S ORTX(1) =X | |
5705 | "RTN","ORQ 20",137,0) | |
5706 | Q | |
5707 | "RTN","ORU TL4") | |
5708 | 0^1^B10504 145 | |
5709 | "RTN","ORU TL4",1,0) | |
5710 | ORUTL4 ;SL C/CB/TC - OE/RR Util ities ;06/ 27/17 15: 02 | |
5711 | "RTN","ORU TL4",2,0) | |
5712 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**3 50,424,434 **;Dec 17, 1997;Buil d 31 | |
5713 | "RTN","ORU TL4",3,0) | |
5714 | ; | |
5715 | "RTN","ORU TL4",4,0) | |
5716 | ; | |
5717 | "RTN","ORU TL4",5,0) | |
5718 | ; | |
5719 | "RTN","ORU TL4",6,0) | |
5720 | DLL(ORRSLT S,ORDLLNME ,ORDLLVRS) ; Will ch eck DLL ve rsion agai nst the se rver to se e if it's valid | |
5721 | "RTN","ORU TL4",7,0) | |
5722 | ; Input p arameters | |
5723 | "RTN","ORU TL4",8,0) | |
5724 | ; 1. ORR SLTS RP C Return a rray | |
5725 | "RTN","ORU TL4",9,0) | |
5726 | ; 2. ORD LLNME Na me of Dll to look up | |
5727 | "RTN","ORU TL4",10,0) | |
5728 | ; 3. ORD LLVRS Ve rsion of t he DLL on the user's machine | |
5729 | "RTN","ORU TL4",11,0) | |
5730 | ; | |
5731 | "RTN","ORU TL4",12,0) | |
5732 | S ORDLLNM E=$$UP^XLF STR(ORDLLN ME) | |
5733 | "RTN","ORU TL4",13,0) | |
5734 | I ORDLLNM E="GMV_VIT ALSVIEWENT ER.DLL" D VITAL(.ORR SLTS,ORDLL VRS) | |
5735 | "RTN","ORU TL4",14,0) | |
5736 | I ORDLLNM E=$$UP^XLF STR($$GET^ XPAR("SYS" ,"YS MHA_A DLL NAME" )) D MENTA L(.ORRSLTS ,ORDLLVRS, ORDLLNME) | |
5737 | "RTN","ORU TL4",15,0) | |
5738 | I ORDLLNM E="CPRS MO B DLL" D C PRSMOB(.OR RSLTS,ORDL LVRS) S ^T MP($J,"OR MOB APP1") ="" | |
5739 | "RTN","ORU TL4",16,0) | |
5740 | I ORRSLTS ="" S ORRS LTS="-1" | |
5741 | "RTN","ORU TL4",17,0) | |
5742 | Q | |
5743 | "RTN","ORU TL4",18,0) | |
5744 | ; | |
5745 | "RTN","ORU TL4",19,0) | |
5746 | VITAL(ORRS LTS,ORDLLV RS) ; | |
5747 | "RTN","ORU TL4",20,0) | |
5748 | ; Input p arameters | |
5749 | "RTN","ORU TL4",21,0) | |
5750 | ; 1. ORR SLTS Th e return m essage | |
5751 | "RTN","ORU TL4",22,0) | |
5752 | ; 2. ORD LLVRS Ve rsion of t he DLL on the user's machine | |
5753 | "RTN","ORU TL4",23,0) | |
5754 | ; | |
5755 | "RTN","ORU TL4",24,0) | |
5756 | N ORVAL S ORRSLTS=" " | |
5757 | "RTN","ORU TL4",25,0) | |
5758 | S ORVAL=$ $GET^XPAR( "SYS","GMV DLL VERSI ON",ORDLLV RS,"E") | |
5759 | "RTN","ORU TL4",26,0) | |
5760 | I ORVAL=" YES" S ORR SLTS=1 | |
5761 | "RTN","ORU TL4",27,0) | |
5762 | E S ORRS LTS="-1^Th is version of the Vi tals Viewe r "_ORDLLV RS_" is no t compatib le with th e server s oftware. P lease cont act IRM to update th e GMV_Vita lsViewEnte r.dll file ." | |
5763 | "RTN","ORU TL4",28,0) | |
5764 | Q | |
5765 | "RTN","ORU TL4",29,0) | |
5766 | ; | |
5767 | "RTN","ORU TL4",30,0) | |
5768 | MENTAL(ORR SLTS,ORDLL VRS,ORDLLN ME) ; | |
5769 | "RTN","ORU TL4",31,0) | |
5770 | ; Input p arameters | |
5771 | "RTN","ORU TL4",32,0) | |
5772 | ; 1. ORR SLTS Th e return m essage | |
5773 | "RTN","ORU TL4",33,0) | |
5774 | ; 2. ORD LLVRS Ve rsion of t he DLL on the user's machine | |
5775 | "RTN","ORU TL4",34,0) | |
5776 | ; 3. ORD LLNME Na me of Dll to look up | |
5777 | "RTN","ORU TL4",35,0) | |
5778 | ; | |
5779 | "RTN","ORU TL4",36,0) | |
5780 | N ORYSLST ,ORYSVAL,O RREQVER S ORRSLTS="" | |
5781 | "RTN","ORU TL4",37,0) | |
5782 | D FIND^DI C(19,,1,"X ","YS BROK ER1",1,,,, "ORYSLST") | |
5783 | "RTN","ORU TL4",38,0) | |
5784 | I 'ORYSLS T("DILIST" ,0) S ORRS LTS="-1^Th e YS BROKE R1 option is not ins talled on this serve r. Please contact IR M to get t his instal led." Q | |
5785 | "RTN","ORU TL4",39,0) | |
5786 | S ORYSVAL =$G(ORYSLS T("DILIST" ,"ID",1,1) ) | |
5787 | "RTN","ORU TL4",40,0) | |
5788 | S ORREQVE R=$P($P(OR YSVAL,"ver sion ",2), "~",2) | |
5789 | "RTN","ORU TL4",41,0) | |
5790 | I ORDLLVR S=ORREQVER S ORRSLTS =1 | |
5791 | "RTN","ORU TL4",42,0) | |
5792 | E S ORRS LTS="-1^Th is is vers ion "_ORDL LVRS_" of "_ORDLLNME _". "_ORRE QVER_" is now the pr oper versi on in serv ice. Pleas e contact your local IRM or CP RS expert to obtain the update d version. " | |
5793 | "RTN","ORU TL4",43,0) | |
5794 | Q | |
5795 | "RTN","ORU TL4",44,0) | |
5796 | ; | |
5797 | "RTN","ORU TL4",45,0) | |
5798 | CPRSMOB(OR RSLTS,ORDL LVRS) ;get the expec ted versio n of the C PRS MOB DL L | |
5799 | "RTN","ORU TL4",46,0) | |
5800 | ; Input p arameters | |
5801 | "RTN","ORU TL4",47,0) | |
5802 | ; 1. ORR SLTS Th e return m essage | |
5803 | "RTN","ORU TL4",48,0) | |
5804 | ; 2. ORD LLVRS Ve rsion of t he DLL on the user's machine | |
5805 | "RTN","ORU TL4",49,0) | |
5806 | ; | |
5807 | "RTN","ORU TL4",50,0) | |
5808 | N ORREQVE R S ORRSLT S="" | |
5809 | "RTN","ORU TL4",51,0) | |
5810 | S ORREQVE R=$$GET^XP AR("SYS^PK G","OR MOB DLL VERSI ON") | |
5811 | "RTN","ORU TL4",52,0) | |
5812 | I ORDLLVR S=ORREQVER S ORRSLTS ="1^"_ORRE QVER | |
5813 | "RTN","ORU TL4",53,0) | |
5814 | E S ORRS LTS="-1^"_ ORREQVER_" ^This vers ion of the CPRS MOB "_ORDLLVRS _" is not compatible with the server sof tware. Ple ase contac t IRM to u pdate the OrderCom.d ll file." | |
5815 | "RTN","ORU TL4",54,0) | |
5816 | Q | |
5817 | "RTN","ORU TL4",55,0) | |
5818 | ; | |
5819 | "RTN","ORW CIRN") | |
5820 | 0^2^B11495 848 | |
5821 | "RTN","ORW CIRN",1,0) | |
5822 | ORWCIRN ;S LC/DCM,REV - FUNCTIO NS FOR GUI CIRN ACTI ONS ;03/17 /2015 10: 24 | |
5823 | "RTN","ORW CIRN",2,0) | |
5824 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**1 0,101,109, 132,141,16 0,208,239, 215,243,35 0,434**;De c 17, 1997 ;Build 31 | |
5825 | "RTN","ORW CIRN",3,0) | |
5826 | ; | |
5827 | "RTN","ORW CIRN",4,0) | |
5828 | FACLIST(OR Y,ORDFN) ; Return li st of remo te facilit ies for pa tient | |
5829 | "RTN","ORW CIRN",5,0) | |
5830 | ;Check to see if CI RN PD/MPI installed | |
5831 | "RTN","ORW CIRN",6,0) | |
5832 | N X,ORSIT ES,I,IFN,L OCAL,CTR,H DRFLG,GOTN HIN | |
5833 | "RTN","ORW CIRN",7,0) | |
5834 | S X="MPIF 001" X ^%Z OSF("TEST" ) | |
5835 | "RTN","ORW CIRN",8,0) | |
5836 | I '$T S O RY(0)="-1^ CIRN MPI n ot install ed." Q | |
5837 | "RTN","ORW CIRN",9,0) | |
5838 | S X="VAFC TFU1" X ^% ZOSF("TEST ") | |
5839 | "RTN","ORW CIRN",10,0 ) | |
5840 | I '$T S O RY(0)="-1^ Remote dat a view not installed ." Q | |
5841 | "RTN","ORW CIRN",11,0 ) | |
5842 | S X=$$GET ^XPAR("ALL ","ORWRP C IRN REMOTE DATA ALLO W",1,"I") | |
5843 | "RTN","ORW CIRN",12,0 ) | |
5844 | I 'X S OR Y(0)="-1^R emote acce ss not all owed" Q | |
5845 | "RTN","ORW CIRN",13,0 ) | |
5846 | D TFL^VAF CTFU1(.ORY ,ORDFN) | |
5847 | "RTN","ORW CIRN",14,0 ) | |
5848 | S (GOTNHI N,I)=0 F S I=$O(ORY (I)) Q:'I I $P(ORY( I),"^",5)= "OTHER" D ;Screen o ut Type 'O THER' loca tions | |
5849 | "RTN","ORW CIRN",15,0 ) | |
5850 | . I $P(OR Y(I),"^")= "200HD" Q ;HDR | |
5851 | "RTN","ORW CIRN",16,0 ) | |
5852 | . I $P(OR Y(I),"^")= "200NDD" Q ;DoD Cor related Pa tients | |
5853 | "RTN","ORW CIRN",17,0 ) | |
5854 | . S JLV=" VistAWeb" | |
5855 | "RTN","ORW CIRN",18,0 ) | |
5856 | . I $L($T (JLV^ORWCI RN)) D JLV (.X) S JLV =$S($L(X): X,1:"VistA Web") | |
5857 | "RTN","ORW CIRN",19,0 ) | |
5858 | . I $E($P (ORY(I),"^ "),1,4)="2 00N",'GOTN HIN S GOTN HIN=1,$P(O RY(I),"^", 2)="Non-VA Data may be Availab le - Use " _JLV_" to Access" Q ;NwHIN Ma ster Item | |
5859 | "RTN","ORW CIRN",20,0 ) | |
5860 | . K ORY(I ) | |
5861 | "RTN","ORW CIRN",21,0 ) | |
5862 | S HDRFLG= 0 | |
5863 | "RTN","ORW CIRN",22,0 ) | |
5864 | I $$GET^X PAR("ALL", "ORWRP CIR N SITES AL L",1,"I") D | |
5865 | "RTN","ORW CIRN",23,0 ) | |
5866 | . S (CTR, I)=0 | |
5867 | "RTN","ORW CIRN",24,0 ) | |
5868 | . F S I= $O(ORY(I)) Q:'I S $ P(ORY(I)," ^",5)=1,CT R=CTR+1 D | |
5869 | "RTN","ORW CIRN",25,0 ) | |
5870 | .. I $P(O RY(I),"^") =200 S $P( ORY(I),"^" ,2)="DEPT. OF DEFENS E" | |
5871 | "RTN","ORW CIRN",26,0 ) | |
5872 | .. I $P(O RY(I),"^") ="200HD" D | |
5873 | "RTN","ORW CIRN",27,0 ) | |
5874 | ... I +$$ GET^XPAR(" ALL","ORWR P HDR ON", 1,"I")=0 K ORY(I) S CTR=CTR-1 Q | |
5875 | "RTN","ORW CIRN",28,0 ) | |
5876 | ... S HDR FLG=I ; Re move comme nted out c ode to ena ble HDR + 1 other si te. | |
5877 | "RTN","ORW CIRN",29,0 ) | |
5878 | D GETLST^ XPAR(.ORSI TES,"ALL", "ORWRP CIR N SITES"," I") | |
5879 | "RTN","ORW CIRN",30,0 ) | |
5880 | S (CTR,I) =0,LOCAL=$ P($$SITE^V ASITE,"^", 3) | |
5881 | "RTN","ORW CIRN",31,0 ) | |
5882 | F S I=$O (ORY(I)) Q :'I D | |
5883 | "RTN","ORW CIRN",32,0 ) | |
5884 | . I +ORY( I)=+LOCAL K ORY(I) Q | |
5885 | "RTN","ORW CIRN",33,0 ) | |
5886 | . S IFN=$ $IEN^XUAF4 (ORY(I)),C TR=CTR+1 | |
5887 | "RTN","ORW CIRN",34,0 ) | |
5888 | . I IFN,$ G(ORSITES( IFN)) S $P (ORY(I),"^ ",5)=1 D | |
5889 | "RTN","ORW CIRN",35,0 ) | |
5890 | .. I $P(O RY(I),"^") =200 S $P( ORY(I),"^" ,2)="DEPT. OF DEFENS E" | |
5891 | "RTN","ORW CIRN",36,0 ) | |
5892 | . I IFN,$ G(ORSITES( IFN)),$P(O RY(I),"^") ="200HD" D | |
5893 | "RTN","ORW CIRN",37,0 ) | |
5894 | .. I +$$G ET^XPAR("A LL","ORWRP HDR ON",1 ,"I")=0 K ORY(I) S C TR=CTR-1 Q | |
5895 | "RTN","ORW CIRN",38,0 ) | |
5896 | .. S HDRF LG=I ; Rem ove commen ted out co de to enab le HDR + 1 other sit e. | |
5897 | "RTN","ORW CIRN",39,0 ) | |
5898 | I '$L($O( ORY(""))) S ORY(0)=" -1^Only lo cal data e xists for this patie nt" | |
5899 | "RTN","ORW CIRN",40,0 ) | |
5900 | I $G(HDRF LG),CTR'>1 K ORY(HDR FLG) S ORY (0)="-1^On ly HDR has data for this patie nt" | |
5901 | "RTN","ORW CIRN",41,0 ) | |
5902 | Q | |
5903 | "RTN","ORW CIRN",42,0 ) | |
5904 | RESTRICT(O RY,PATID) ;Check for sensitive patient | |
5905 | "RTN","ORW CIRN",43,0 ) | |
5906 | N DFN,ICN ,SITE | |
5907 | "RTN","ORW CIRN",44,0 ) | |
5908 | I '$G(PAT ID) S ORY( 1)="-1",OR Y(2)="Inva lid Patien t ID" Q | |
5909 | "RTN","ORW CIRN",45,0 ) | |
5910 | S ICN=$P( PATID,";", 2) | |
5911 | "RTN","ORW CIRN",46,0 ) | |
5912 | I 'ICN S ORY(1)="-1 ",ORY(2)=" Invalid IC N" Q | |
5913 | "RTN","ORW CIRN",47,0 ) | |
5914 | S SITE=$$ SITE^VASIT E,SITE=$P( SITE,"^",2 )_";"_$P(S ITE,"^",3) | |
5915 | "RTN","ORW CIRN",48,0 ) | |
5916 | S DFN=+$$ GETDFN^MPI F001(ICN) | |
5917 | "RTN","ORW CIRN",49,0 ) | |
5918 | I DFN<0 S ORY(1)="- 1",ORY(2)= "Patient n ot found o n remote s ystem ("_S ITE_")" Q | |
5919 | "RTN","ORW CIRN",50,0 ) | |
5920 | D PTSEC^D GSEC4(.ORY ,DFN) | |
5921 | "RTN","ORW CIRN",51,0 ) | |
5922 | Q | |
5923 | "RTN","ORW CIRN",52,0 ) | |
5924 | CHKLNK(ORY ) ;Check f or active HL7 TCP li nk on loca l system | |
5925 | "RTN","ORW CIRN",53,0 ) | |
5926 | S ORY=$$S TAT^HLCSLM | |
5927 | "RTN","ORW CIRN",54,0 ) | |
5928 | Q | |
5929 | "RTN","ORW CIRN",55,0 ) | |
5930 | WEBADDR(OR Y,PATID) ; Get VistaW eb Address | |
5931 | "RTN","ORW CIRN",56,0 ) | |
5932 | S ORY=$$G ET^XPAR("A LL","ORWRP VISTAWEB ADDRESS",1 ,"I") | |
5933 | "RTN","ORW CIRN",57,0 ) | |
5934 | I ORY="" S ORY="htt ps://vista web. URL " Q | |
5935 | "RTN","ORW CIRN",58,0 ) | |
5936 | I ORY="ht tps://vist aweb. URL " Q | |
5937 | "RTN","ORW CIRN",59,0 ) | |
5938 | S ORY=ORY _"?q9gtw0= "_$P($$SIT E^VASITE," ^",3)_"&xq i4z="_PATI D_"&yiicf= "_DUZ | |
5939 | "RTN","ORW CIRN",60,0 ) | |
5940 | Q | |
5941 | "RTN","ORW CIRN",61,0 ) | |
5942 | AUTORDV(OR Y) ;Get pa rameter va lue for OR WRP CIRN A UTOMATIC | |
5943 | "RTN","ORW CIRN",62,0 ) | |
5944 | S ORY=+$$ GET^XPAR(" ALL","ORWR P CIRN AUT OMATIC",1, "I") | |
5945 | "RTN","ORW CIRN",63,0 ) | |
5946 | Q | |
5947 | "RTN","ORW CIRN",64,0 ) | |
5948 | HDRON(ORY) ;Get para meter valu e for ORWR P HDR ON | |
5949 | "RTN","ORW CIRN",65,0 ) | |
5950 | S ORY=+$$ GET^XPAR(" ALL","ORWR P HDR ON", 1,"I") | |
5951 | "RTN","ORW CIRN",66,0 ) | |
5952 | Q | |
5953 | "RTN","ORW CIRN",67,0 ) | |
5954 | JLV(ORY) ; Get parame ter value for ORWRP LEGACY VIE WER LABEL | |
5955 | "RTN","ORW CIRN",68,0 ) | |
5956 | S ORY=$$G ET^XPAR("A LL","ORWRP LEGACY VI EWER LABEL ",1,"I") | |
5957 | "RTN","ORW CIRN",69,0 ) | |
5958 | Q | |
5959 | "RTN","ORW DSD1") | |
5960 | 0^3^B83044 55 | |
5961 | "RTN","ORW DSD1",1,0) | |
5962 | ORWDSD1 ;S LC/AGP - R eturn to C linic Call s for Wind ows Dialog ;05/22/17 07:45 | |
5963 | "RTN","ORW DSD1",2,0) | |
5964 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**4 34**;Dec 1 7, 1997;Bu ild 31 | |
5965 | "RTN","ORW DSD1",3,0) | |
5966 | ; | |
5967 | "RTN","ORW DSD1",4,0) | |
5968 | ODSLCT(LST ,DFN,LOC) ; return d efault lis ts for dia log | |
5969 | "RTN","ORW DSD1",5,0) | |
5970 | N ILST S ILST=0 | |
5971 | "RTN","ORW DSD1",6,0) | |
5972 | S ILST=IL ST+1,LST(I LST)="~Sho rtList" D SHORT | |
5973 | "RTN","ORW DSD1",7,0) | |
5974 | ;S ILST=I LST+1,LST( ILST)="~Cl inic" D CL INIC(.LST, .ILST,DFN, LOC) | |
5975 | "RTN","ORW DSD1",8,0) | |
5976 | ;S ILST=I LST+1,LST( ILST)="~Pr ovider" D PROVIDER(. LST,.ILST, DFN,LOC) | |
5977 | "RTN","ORW DSD1",9,0) | |
5978 | ;S ILST=I LST+1,LST( ILST)="~In terval" D INTERVAL(. LST,.ILST, DFN,LOC) | |
5979 | "RTN","ORW DSD1",10,0 ) | |
5980 | S ILST=IL ST+1,LST(I LST)="~Pre Req" D PRE REQ(.LST,. ILST,DFN,L OC) | |
5981 | "RTN","ORW DSD1",11,0 ) | |
5982 | ;S ILST=I LST+1,LST( ILST)="~Of fset" D OF FSET(.LST, .ILST,DFN, LOC) | |
5983 | "RTN","ORW DSD1",12,0 ) | |
5984 | S ILST=IL ST+1,LST(I LST)="~Inf o" D INFO( .LST,.ILST ,DFN,LOC) | |
5985 | "RTN","ORW DSD1",13,0 ) | |
5986 | Q | |
5987 | "RTN","ORW DSD1",14,0 ) | |
5988 | ; | |
5989 | "RTN","ORW DSD1",15,0 ) | |
5990 | CLINIC(LST ,ILST,DFN, LOC) ; | |
5991 | "RTN","ORW DSD1",16,0 ) | |
5992 | N CLST,CN T,FOUND,LC NT,IEN,NAM E,NODE,TMP | |
5993 | "RTN","ORW DSD1",17,0 ) | |
5994 | ; | |
5995 | "RTN","ORW DSD1",18,0 ) | |
5996 | S NAME="" ,FOUND=0 | |
5997 | "RTN","ORW DSD1",19,0 ) | |
5998 | I LOC>0 D | |
5999 | "RTN","ORW DSD1",20,0 ) | |
6000 | .S NODE=$ G(^SC(LOC, 0)) I $P(N ODE,U,3)'= "C" Q | |
6001 | "RTN","ORW DSD1",21,0 ) | |
6002 | .S NAME=$ P(NODE,U) I $L(NAME) <3 S TMP=N AME Q | |
6003 | "RTN","ORW DSD1",22,0 ) | |
6004 | .S TMP=$E (NAME,1,($ L(NAME)-1) ) | |
6005 | "RTN","ORW DSD1",23,0 ) | |
6006 | I $G(TMP) ="" Q | |
6007 | "RTN","ORW DSD1",24,0 ) | |
6008 | D NEWLOC^ ORWU1(.CLS T,TMP,1) | |
6009 | "RTN","ORW DSD1",25,0 ) | |
6010 | S CNT=0,L CNT=0 F S CNT=$O(CL ST(CNT)) Q :CNT'>0 D | |
6011 | "RTN","ORW DSD1",26,0 ) | |
6012 | .S LCNT=C NT | |
6013 | "RTN","ORW DSD1",27,0 ) | |
6014 | .I $P(CLS T(CNT),U)= LOC,NAME'= "" S ILST= ILST+1,LST (ILST)="d" _CLST(CNT) ,FOUND=1,I LST=ILST+1 ,LST(ILST) ="i"_CLST( CNT) Q | |
6015 | "RTN","ORW DSD1",28,0 ) | |
6016 | .S ILST=I LST+1,LST( ILST)="i"_ CLST(CNT) | |
6017 | "RTN","ORW DSD1",29,0 ) | |
6018 | I FOUND=0 ,NAME'="" S ILST=ILS T+1,LST(IL ST)="d"_LO C_U_NAME,I LST=ILST+1 ,LST(ILST) ="i"_LOC_U _NAME | |
6019 | "RTN","ORW DSD1",30,0 ) | |
6020 | Q | |
6021 | "RTN","ORW DSD1",31,0 ) | |
6022 | ; | |
6023 | "RTN","ORW DSD1",32,0 ) | |
6024 | INFO(LST,I LST,DFN,LO C) ; | |
6025 | "RTN","ORW DSD1",33,0 ) | |
6026 | N CNT,ERR ,X | |
6027 | "RTN","ORW DSD1",34,0 ) | |
6028 | D GETWP^X PAR(.X,"AL L","OR SD ADDITIONAL INFORMATI ON",.ERR) | |
6029 | "RTN","ORW DSD1",35,0 ) | |
6030 | S CNT=0 F S CNT=$O (X(CNT)) Q :CNT'>0 D | |
6031 | "RTN","ORW DSD1",36,0 ) | |
6032 | .S ILST=I LST+1,LST( ILST)="t"_ X(CNT,0) | |
6033 | "RTN","ORW DSD1",37,0 ) | |
6034 | Q | |
6035 | "RTN","ORW DSD1",38,0 ) | |
6036 | ; | |
6037 | "RTN","ORW DSD1",39,0 ) | |
6038 | INTERVAL(L ST,ILST,DF N,LOC) ; | |
6039 | "RTN","ORW DSD1",40,0 ) | |
6040 | S ILST=IL ST+1,LST(I LST)="id^D aily" | |
6041 | "RTN","ORW DSD1",41,0 ) | |
6042 | S ILST=IL ST+1,LST(I LST)="iw^W eekly" | |
6043 | "RTN","ORW DSD1",42,0 ) | |
6044 | Q | |
6045 | "RTN","ORW DSD1",43,0 ) | |
6046 | ; | |
6047 | "RTN","ORW DSD1",44,0 ) | |
6048 | OFFSET(LST ,ILST,DFN, LOC) ; | |
6049 | "RTN","ORW DSD1",45,0 ) | |
6050 | N OFFSET | |
6051 | "RTN","ORW DSD1",46,0 ) | |
6052 | S OFFSET= $$GET^XPAR ("SYS","OR SD CIDC S TOP OFFSET ",1,"E") | |
6053 | "RTN","ORW DSD1",47,0 ) | |
6054 | I OFFSET' >0 S OFFSE T=30 | |
6055 | "RTN","ORW DSD1",48,0 ) | |
6056 | S ILST=IL ST+1,LST(I LST)="i"_O FFSET_U_OF FSET | |
6057 | "RTN","ORW DSD1",49,0 ) | |
6058 | Q | |
6059 | "RTN","ORW DSD1",50,0 ) | |
6060 | PREREQ(LST ,ILST,DFN, LOC) ; | |
6061 | "RTN","ORW DSD1",51,0 ) | |
6062 | N PREREQS ,X | |
6063 | "RTN","ORW DSD1",52,0 ) | |
6064 | D PREREQP ^ORCDSD(.P REREQS) | |
6065 | "RTN","ORW DSD1",53,0 ) | |
6066 | ;F X=1:1: PREREQS I $G(PREREQS (X))'="" | |
6067 | "RTN","ORW DSD1",54,0 ) | |
6068 | S X=0 F S X=$O(PRE REQS(X)) Q :X'>0 I $ G(PREREQS( X))'="" S ILST=ILST+ 1,LST(ILST )="i"_$G(P REREQS(X)) | |
6069 | "RTN","ORW DSD1",55,0 ) | |
6070 | Q | |
6071 | "RTN","ORW DSD1",56,0 ) | |
6072 | ; | |
6073 | "RTN","ORW DSD1",57,0 ) | |
6074 | PROVIDER(L ST,ILST,DF N,LOC) ; | |
6075 | "RTN","ORW DSD1",58,0 ) | |
6076 | N CNT,PLS T | |
6077 | "RTN","ORW DSD1",59,0 ) | |
6078 | D NEWPERS ^ORWU(.PLS T,"",1,"PR OVIDER",DT ,0,"") | |
6079 | "RTN","ORW DSD1",60,0 ) | |
6080 | S CNT=0 F S CNT=$O (PLST(CNT) ) Q:CNT'>0 S ILST=I LST+1,LST( ILST)="i"_ PLST(CNT) | |
6081 | "RTN","ORW DSD1",61,0 ) | |
6082 | Q | |
6083 | "RTN","ORW DSD1",62,0 ) | |
6084 | ; | |
6085 | "RTN","ORW DSD1",63,0 ) | |
6086 | SHORT ; fr om DLGSLCT , get shor t list of med quick orders | |
6087 | "RTN","ORW DSD1",64,0 ) | |
6088 | N I,X,TMP | |
6089 | "RTN","ORW DSD1",65,0 ) | |
6090 | S X="CSDA M" | |
6091 | "RTN","ORW DSD1",66,0 ) | |
6092 | D GETQLST ^ORWDXQ(.T MP,X,"iQ") | |
6093 | "RTN","ORW DSD1",67,0 ) | |
6094 | S I=0 F S I=$O(TMP (I)) Q:'I S ILST=IL ST+1,LST(I LST)=TMP(I ) | |
6095 | "RTN","ORW DSD1",68,0 ) | |
6096 | Q | |
6097 | "RTN","ORW DSD1",69,0 ) | |
6098 | ; | |
6099 | "RTN","ORW DSD1",70,0 ) | |
6100 | RTC ; | |
6101 | "RTN","ORW DSD1",71,0 ) | |
6102 | N INT,NUM ,PROMPT | |
6103 | "RTN","ORW DSD1",72,0 ) | |
6104 | ;S PROMPT =$O(^ORD(1 01.41,"AB" ,"OR GTX S TOP DATE", 0)) | |
6105 | "RTN","ORW DSD1",73,0 ) | |
6106 | ;S ORDIAL OG(PROMPT, 1)=$$SETST OP^ORCDSD( ) | |
6107 | "RTN","ORW DSD1",74,0 ) | |
6108 | ;get numb er of appo intments a nd interva l | |
6109 | "RTN","ORW DSD1",75,0 ) | |
6110 | S PROMPT= $O(^ORD(10 1.41,"AB", "OR GTX AP PT NUM",0) ) | |
6111 | "RTN","ORW DSD1",76,0 ) | |
6112 | S NUM=$G( ORDIALOG(P ROMPT,1)) | |
6113 | "RTN","ORW DSD1",77,0 ) | |
6114 | S PROMPT= $O(^ORD(10 1.41,"AB", "OR GTX SC H INTERVAL ",0)) | |
6115 | "RTN","ORW DSD1",78,0 ) | |
6116 | S INT=$G( ORDIALOG(P ROMPT,1)) | |
6117 | "RTN","ORW DSD1",79,0 ) | |
6118 | ;check th at apppoin tment and interval m atch | |
6119 | "RTN","ORW DSD1",80,0 ) | |
6120 | I NUM>1,I NT="" S AU TOACK=0 Q | |
6121 | "RTN","ORW DSD1",81,0 ) | |
6122 | I INT'="" ,NUM=1 S A UTOACK=0 Q | |
6123 | "RTN","ORW DSD1",82,0 ) | |
6124 | Q | |
6125 | "RTN","ORW DSD1",83,0 ) | |
6126 | ; | |
6127 | "RTN","ORW DXA") | |
6128 | 0^16^B1190 97370 | |
6129 | "RTN","ORW DXA",1,0) | |
6130 | ORWDXA ; S LC/KCM/JLI - Utilite s for Orde r Actions ;06/21/17 09:42 | |
6131 | "RTN","ORW DXA",2,0) | |
6132 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**1 0,85,116,1 32,148,141 ,149,187,2 13,195,215 ,243,280,3 06,390,421 ,436,434** ;Dec 17, 1 997;Build 31 | |
6133 | "RTN","ORW DXA",3,0) | |
6134 | ;Per VA D irective 6 402, this routine sh ould not b e modified . | |
6135 | "RTN","ORW DXA",4,0) | |
6136 | ; | |
6137 | "RTN","ORW DXA",5,0) | |
6138 | ; | |
6139 | "RTN","ORW DXA",6,0) | |
6140 | VALID(VAL, ORID,ACTIO N,ORNP,ORW NAT) ; Is action val id for ord er? | |
6141 | "RTN","ORW DXA",7,0) | |
6142 | N DG,ORAC T,ORVP,ORV ER,ORIFN,P RTID S VAL ="",PRTID= 0 | |
6143 | "RTN","ORW DXA",8,0) | |
6144 | I +ORID=0 S VAL="Th is order h as been de leted." Q | |
6145 | "RTN","ORW DXA",9,0) | |
6146 | I '$D(^OR (100,+ORID ,0)) S VAL ="This ord er has bee n deleted! " Q | |
6147 | "RTN","ORW DXA",10,0) | |
6148 | I ACTION= "XFR",'$L( $T(XFR^ORC ACT01)) S ACTION="RW " ; for pr e-POE | |
6149 | "RTN","ORW DXA",11,0) | |
6150 | N ORNSS S ORNSS=1 | |
6151 | "RTN","ORW DXA",12,0) | |
6152 | I (ACTION ="RN") D V ALSCH^ORWN SS(.ORNSS, ORID) | |
6153 | "RTN","ORW DXA",13,0) | |
6154 | I ORNSS=0 S VAL="Th is order c ontains an invalid a dministrat ion schedu le." Q | |
6155 | "RTN","ORW DXA",14,0) | |
6156 | I (ACTION ="RN") D I SVALIV^ORW DPS33(.VAL ,ORID,ACTI ON) I $L(V AL)>0 Q | |
6157 | "RTN","ORW DXA",15,0) | |
6158 | S ORIFN=O RID,ORVP=$ P(^OR(100, +ORID,0),U ,2) ; ORC ACT0 expec ts | |
6159 | "RTN","ORW DXA",16,0) | |
6160 | I (ACTION ="RN") D Q:$L(VAL) | |
6161 | "RTN","ORW DXA",17,0) | |
6162 | . N DLG S DLG=$P(^O R(100,+ORI D,0),U,5) Q:DLG'[";O RD(101.41, " | |
6163 | "RTN","ORW DXA",18,0) | |
6164 | . I $G(^O RD(101.41, +DLG,3))'[ "PROVIDER^ ORCDPSIV" Q | |
6165 | "RTN","ORW DXA",19,0) | |
6166 | . D AUTH^ ORWDPS32(. VAL,ORNP,+ DLG) | |
6167 | "RTN","ORW DXA",20,0) | |
6168 | . I VAL S VAL=$P(VA L,U,2) | |
6169 | "RTN","ORW DXA",21,0) | |
6170 | . E S VA L="" | |
6171 | "RTN","ORW DXA",22,0) | |
6172 | S ORVER=$ S(ACTION=" CR":"R",$D (^XUSEC("O RELSE",DUZ )):"N",$D( ^XUSEC("OR EMAS",DUZ) ):"C",1:"^ ") | |
6173 | "RTN","ORW DXA",23,0) | |
6174 | I ACTION= "CR" S ACT ION="VR" | |
6175 | "RTN","ORW DXA",24,0) | |
6176 | I (ACTION ="ES")!(AC TION="OC") !(ACTION=" RS") S ORA CT=ACTION ; why not defined??? | |
6177 | "RTN","ORW DXA",25,0) | |
6178 | I (ACTION ="VR"),'($ D(^XUSEC(" ORELSE",DU Z))!$D(^XU SEC("OREMA S",DUZ))) D Q | |
6179 | "RTN","ORW DXA",26,0) | |
6180 | . S VAL=" You are no t authoriz ed to veri fy these o rders." | |
6181 | "RTN","ORW DXA",27,0) | |
6182 | I $L(VAL) Q | |
6183 | "RTN","ORW DXA",28,0) | |
6184 | N OIIEN,I SIV,IVOD | |
6185 | "RTN","ORW DXA",29,0) | |
6186 | S (ISIV,O IIEN,IVOD) =0 | |
6187 | "RTN","ORW DXA",30,0) | |
6188 | I (ACTION ="RW")!(AC TION="XX") !(ACTION=" XFR") D Q :$L(VAL) | |
6189 | "RTN","ORW DXA",31,0) | |
6190 | . S ISIV= $P(^OR(100 ,+ORID,0), U,11) | |
6191 | "RTN","ORW DXA",32,0) | |
6192 | . I ISIV, ($P(^ORD(1 00.98,ISIV ,0),U,3)=" IV RX") S IVOD=1 | |
6193 | "RTN","ORW DXA",33,0) | |
6194 | . D:'IVOD GTORITM^O RWDXR(.OII EN,+ORID) | |
6195 | "RTN","ORW DXA",34,0) | |
6196 | . D:OIIEN ISACTOI(. VAL,OIIEN) I $L(VAL) >0 Q | |
6197 | "RTN","ORW DXA",35,0) | |
6198 | . N DLG,F RM,A,ORDG, I,TYPE,B | |
6199 | "RTN","ORW DXA",36,0) | |
6200 | . S A=^OR (100,+ORID ,0),DLG=$P (A,U,5),OR DG=$P(A,"^ ",11),FRM= 0 | |
6201 | "RTN","ORW DXA",37,0) | |
6202 | . I $P(DL G,";",2)'= "ORD(101.4 1," S DLG= 0 | |
6203 | "RTN","ORW DXA",38,0) | |
6204 | . I DLG D FORMID^OR WDXM(.FRM, +DLG) | |
6205 | "RTN","ORW DXA",39,0) | |
6206 | . I '(DLG &FRM) D | |
6207 | "RTN","ORW DXA",40,0) | |
6208 | . . S VAL ="Copy & C hange are not implem ented for this order that pred ates CPRS. " | |
6209 | "RTN","ORW DXA",41,0) | |
6210 | . I ACTIO N="XX" D ;PATLOC is being pas sed in and not defin ed in this routine | |
6211 | "RTN","ORW DXA",42,0) | |
6212 | .. F I="U NIT DOSE M EDICATIONS ","INPATIE NT MEDICAT IONS","IV MEDICATION S" S A=$O( ^ORD(100.9 8,"B",I,"" )) I A S A (A)="" | |
6213 | "RTN","ORW DXA",43,0) | |
6214 | .. S TYPE ="" I $G(P ATLOC) S T YPE=$P(^SC (PATLOC,0) ,"^",3) | |
6215 | "RTN","ORW DXA",44,0) | |
6216 | .. I $D(A (ORDG)),TY PE="C" S B =1 D SDAUT HCL^SDAMA2 03(PATLOC, .B) I B=1 S VAL="Can not use a Clinic Loc ation for this chang e. Please check your encounter location. " | |
6217 | "RTN","ORW DXA",45,0) | |
6218 | S DG=$P(^ OR(100,+OR ID,0),U,11 ) | |
6219 | "RTN","ORW DXA",46,0) | |
6220 | I DG,($P( ^ORD(100.9 8,DG,0),U, 3)="CSDAM" ),$P($G(^O R(100,+ORI D,3)),U,3) =9 S VAL=" Partial Re turn to Cl inic Order s cannot b e disconti nued." Q | |
6221 | "RTN","ORW DXA",47,0) | |
6222 | N OREBUIL D | |
6223 | "RTN","ORW DXA",48,0) | |
6224 | ;I (ACTIO N="RW")!(A CTION="XFR ")!(ACTION ="RN") D I SVALIV^ORW DPS33(.VAL ,ORID,ACTI ON) I $L(V AL)>0 Q | |
6225 | "RTN","ORW DXA",49,0) | |
6226 | I $$VALID ^ORCACT0(O RID,ACTION ,.VAL,$G(O RWNAT)) S VAL="" ; V AL=error | |
6227 | "RTN","ORW DXA",50,0) | |
6228 | I ACTION= "RN",$$UPC TCHK(ORID) S VAL="Ca nnot renew this orde r due to a n illegal character ""^"" in t he comment s or patie nt instruc tions." | |
6229 | "RTN","ORW DXA",51,0) | |
6230 | I ACTION= "RW",$$UPC TCHK(ORID) S VAL="Ca nnot copy this order due to an illegal c haracter " "^"" in th e comments or patien t instruct ions." | |
6231 | "RTN","ORW DXA",52,0) | |
6232 | Q | |
6233 | "RTN","ORW DXA",53,0) | |
6234 | ; | |
6235 | "RTN","ORW DXA",54,0) | |
6236 | HOLD(REC,O RID,ORNP) ; Place or der on hol d | |
6237 | "RTN","ORW DXA",55,0) | |
6238 | N ACTDA | |
6239 | "RTN","ORW DXA",56,0) | |
6240 | S ACTDA=$ $ACTION^OR CSAVE("HD" ,+ORID,ORN P) | |
6241 | "RTN","ORW DXA",57,0) | |
6242 | D GETBYIF N^ORWORR(. REC,+ORID_ ";"_ACTDA) | |
6243 | "RTN","ORW DXA",58,0) | |
6244 | Q | |
6245 | "RTN","ORW DXA",59,0) | |
6246 | UNHOLD(REC ,ORID,ORNP ) ; Releas e order fr om hold | |
6247 | "RTN","ORW DXA",60,0) | |
6248 | N ACTDA | |
6249 | "RTN","ORW DXA",61,0) | |
6250 | S ACTDA=$ $ACTION^OR CSAVE("RL" ,+ORID,ORN P) | |
6251 | "RTN","ORW DXA",62,0) | |
6252 | D GETBYIF N^ORWORR(. REC,+ORID_ ";"_ACTDA) | |
6253 | "RTN","ORW DXA",63,0) | |
6254 | Q | |
6255 | "RTN","ORW DXA",64,0) | |
6256 | DC(REC,ORI D,ORNP,ORL ,REASON,DC ORIG,ISNEW ORD) ; Dis continue/C ancel/Dele te order | |
6257 | "RTN","ORW DXA",65,0) | |
6258 | N NATURE, CREATE,PRI NT,STATUS, ACTDA,SIGS TS | |
6259 | "RTN","ORW DXA",66,0) | |
6260 | N X3,X8,C URRACT | |
6261 | "RTN","ORW DXA",67,0) | |
6262 | Q:'+ORID | |
6263 | "RTN","ORW DXA",68,0) | |
6264 | I $G(DCOR IG)="" S D CORIG=0 | |
6265 | "RTN","ORW DXA",69,0) | |
6266 | S CURRACT =0 | |
6267 | "RTN","ORW DXA",70,0) | |
6268 | S ORL(2)= ORL_";SC(" ,ORL=ORL(2 ),NATURE=" " | |
6269 | "RTN","ORW DXA",71,0) | |
6270 | I REASON S NATURE=$ P(^ORD(100 .02,$P(^OR D(100.03,R EASON,0),U ,7),0),U,2 ) | |
6271 | "RTN","ORW DXA",72,0) | |
6272 | S:NATURE= "" NATURE= "W" ; S:O RNP=DUZ NA TURE="E" | |
6273 | "RTN","ORW DXA",73,0) | |
6274 | ;change t he way cre ate work t o support forcing si gnature fo r all DC | |
6275 | "RTN","ORW DXA",74,0) | |
6276 | ;reasons | |
6277 | "RTN","ORW DXA",75,0) | |
6278 | S CREATE= 1,PRINT=$$ PRINT^ORCA CT2(NATURE ) | |
6279 | "RTN","ORW DXA",76,0) | |
6280 | ;S CREATE =$$CREATE^ ORX1(NATUR E) | |
6281 | "RTN","ORW DXA",77,0) | |
6282 | S X3=$G(^ OR(100,+OR ID,3)) | |
6283 | "RTN","ORW DXA",78,0) | |
6284 | S CURRACT =$P(X3,U,7 ) S:CURRAC T<1 CURRAC T=+$O(^OR( 100,+ORID, 8,"?"),-1) | |
6285 | "RTN","ORW DXA",79,0) | |
6286 | I '$D(^OR (100,+ORID ,8,+$P(ORI D,";",2),0 )) D | |
6287 | "RTN","ORW DXA",80,0) | |
6288 | . S X8=$G (^OR(100,+ ORID,8,CUR RACT,0)) | |
6289 | "RTN","ORW DXA",81,0) | |
6290 | . S SIGST S=$P(X8,U, 4) | |
6291 | "RTN","ORW DXA",82,0) | |
6292 | . S $P(OR ID,";",2)= CURRACT | |
6293 | "RTN","ORW DXA",83,0) | |
6294 | E D | |
6295 | "RTN","ORW DXA",84,0) | |
6296 | . S X8=^O R(100,+ORI D,8,+$P(OR ID,";",2), 0) | |
6297 | "RTN","ORW DXA",85,0) | |
6298 | . S SIGST S=$P(X8,U, 4) | |
6299 | "RTN","ORW DXA",86,0) | |
6300 | I '$D(SIG STS) S SIG STS=1 | |
6301 | "RTN","ORW DXA",87,0) | |
6302 | S STATUS= $P($G(^OR( 100,+ORID, 8,+$P(ORID ,";",2),0) ),U,15) | |
6303 | "RTN","ORW DXA",88,0) | |
6304 | I (STATUS =10)!(STAT US=11) D Q ; dele te/cancel unreleased order | |
6305 | "RTN","ORW DXA",89,0) | |
6306 | . N RPLOR D | |
6307 | "RTN","ORW DXA",90,0) | |
6308 | . S RPLOR D=$P($G(^O R(100,+ORI D,3)),U,5) ; repl aced order | |
6309 | "RTN","ORW DXA",91,0) | |
6310 | . D GETBY IFN^ORWORR (.REC,ORID ) | |
6311 | "RTN","ORW DXA",92,0) | |
6312 | . I STATU S=10,($P(X 8,U,4)'=2) D ; CANC EL signed, delayed, unreleased | |
6313 | "RTN","ORW DXA",93,0) | |
6314 | . . ; tak en from CL RDLY^ORCAC T2 | |
6315 | "RTN","ORW DXA",94,0) | |
6316 | . . I REA SON D SET^ ORCACT2(+O RID,NATURE ,REASON,,D CORIG) | |
6317 | "RTN","ORW DXA",95,0) | |
6318 | . . I 'RE ASON D SET ^ORCACT2(+ ORID,"M"," ","Delayed Order Can celled",DC ORIG) | |
6319 | "RTN","ORW DXA",96,0) | |
6320 | . . D STA TUS^ORCSAV E2(+ORID,1 3) S $P(^O R(100,+ORI D,8,1,0),U ,15)=13 | |
6321 | "RTN","ORW DXA",97,0) | |
6322 | . . ;D CO MP^ORMBLDO R(+$G(ORID )) ; modi fied to tr igger an u nsolicited sync acti on when a signed ord er is disc ontinued | |
6323 | "RTN","ORW DXA",98,0) | |
6324 | . E D ; CANC EL OR DELE TE unsigne d, unrelea sed | |
6325 | "RTN","ORW DXA",99,0) | |
6326 | . . I $P( X8,U,2)="D C" K ^OR(1 00,+ORID,6 ) | |
6327 | "RTN","ORW DXA",100,0 ) | |
6328 | . . ; del ete fwd pt r to order about to be deleted | |
6329 | "RTN","ORW DXA",101,0 ) | |
6330 | . . I RPL ORD,$P(X8, U,2)="NW" S $P(^OR(1 00,RPLORD, 3),U,6)="" | |
6331 | "RTN","ORW DXA",102,0 ) | |
6332 | . . ; del ete ptr to order in Patient Ev ent file # 100.2 | |
6333 | "RTN","ORW DXA",103,0 ) | |
6334 | . . N EVT S EVT=$P( $G(^OR(100 ,+ORID,0)) ,U,17) I E VT,EVT=+$O (^ORE(100. 2,"AO",+OR ID,0)) S $ P(^ORE(100 .2,EVT,0), U,4)="" K ^ORE(100.2 ,"AO",+ORI D,EVT) | |
6335 | "RTN","ORW DXA",104,0 ) | |
6336 | . . I $G( ISNEWORD) D POST^HMP EVNT(+$P(^ OR(100,+OR ID,0),U,2) ,"order",+ ORID,"@") D | |
6337 | "RTN","ORW DXA",105,0 ) | |
6338 | . . . ; D elete the discontinu ed order i n HMP(8000 00, if the order is discontinu ed before it is sign ed it is d eleted in OR(100, | |
6339 | "RTN","ORW DXA",106,0 ) | |
6340 | . . . ; w e need to delete in HMP(800000 as since the order number can be reused by OR(100 | |
6341 | "RTN","ORW DXA",107,0 ) | |
6342 | . . . N H DFN S HDFN =+$P(^OR(1 00,+ORID,0 ),U,2) I $ D(^HMP(800 000,$$SRVR NO^HMPOR(H DFN),1,HDF N,1,+ORID, 0)) D DELO RDR^HMPOR( +HDFN,+ORI D) | |
6343 | "RTN","ORW DXA",108,0 ) | |
6344 | . . I $G( ISNEWORD) D DELETE^O RCSAVE2(OR ID) | |
6345 | "RTN","ORW DXA",109,0 ) | |
6346 | . . I '$G (ISNEWORD) D | |
6347 | "RTN","ORW DXA",110,0 ) | |
6348 | . . . ; U pdate acti on date/ti me in hmp orders sub file | |
6349 | "RTN","ORW DXA",111,0 ) | |
6350 | . . . N R SLT,VALS,H DFN | |
6351 | "RTN","ORW DXA",112,0 ) | |
6352 | . . . S H DFN=+$P(^O R(100,+ORI D,0),U,2) | |
6353 | "RTN","ORW DXA",113,0 ) | |
6354 | . . . S V ALS(.15)=$ $NOW^XLFDT | |
6355 | "RTN","ORW DXA",114,0 ) | |
6356 | . . . D U PDTORDR^HM POR(.RSLT, .VALS,+ORI D,HDFN) | |
6357 | "RTN","ORW DXA",115,0 ) | |
6358 | . . . ; h andle erro rs from UP DTORDR, Ca n't just q uit here | |
6359 | "RTN","ORW DXA",116,0 ) | |
6360 | . . . ; T rigger uns olicited u pdate | |
6361 | "RTN","ORW DXA",117,0 ) | |
6362 | . . . D P OST^HMPEVN T(+$P(^OR( 100,+ORID, 0),U,2),"o rder",+ORI D) | |
6363 | "RTN","ORW DXA",118,0 ) | |
6364 | . . . ; N ow cancel the order | |
6365 | "RTN","ORW DXA",119,0 ) | |
6366 | . . . D C ANCEL^ORCS AVE2(ORID) | |
6367 | "RTN","ORW DXA",120,0 ) | |
6368 | . I RPLOR D,'(SIGSTS =1) S ORID =RPLORD ; for Renew s & Change s, show re placed ord er | |
6369 | "RTN","ORW DXA",121,0 ) | |
6370 | . I '$D(^ OR(100,+OR ID)) D | |
6371 | "RTN","ORW DXA",122,0 ) | |
6372 | . . S $P( REC(1),U)= "~0",REC(2 )="tDELETE D: "_$E(RE C(2),2,245 ) | |
6373 | "RTN","ORW DXA",123,0 ) | |
6374 | . E D | |
6375 | "RTN","ORW DXA",124,0 ) | |
6376 | . . K REC | |
6377 | "RTN","ORW DXA",125,0 ) | |
6378 | . . D GET BYIFN^ORWO RR(.REC,+O RID_";"_$P ($G(^OR(10 0,+ORID,3) ),U,7)) | |
6379 | "RTN","ORW DXA",126,0 ) | |
6380 | . S $P(RE C(1),U,14) =2 ; DCTyp e = deleti on | |
6381 | "RTN","ORW DXA",127,0 ) | |
6382 | S ACTDA=$ $ACTION^OR CSAVE("DC" ,+ORID,ORN P) | |
6383 | "RTN","ORW DXA",128,0 ) | |
6384 | D SET^ORC ACT2(+ORID ,NATURE,RE ASON,,DCOR IG) | |
6385 | "RTN","ORW DXA",129,0 ) | |
6386 | D GETBYIF N^ORWORR(. REC,+ORID_ ";"_ACTDA) | |
6387 | "RTN","ORW DXA",130,0 ) | |
6388 | S $P(REC( 1),U,14)=$ S(CREATE:1 ,1:3) ;DC Type - 1=N ewOrder, 3 =NewStatus | |
6389 | "RTN","ORW DXA",131,0 ) | |
6390 | N PKG | |
6391 | "RTN","ORW DXA",132,0 ) | |
6392 | S PKG=$P( $G(^OR(100 ,+ORID,0)) ,U,14) | |
6393 | "RTN","ORW DXA",133,0 ) | |
6394 | S PKG=$$N MSP^ORCD(P KG) | |
6395 | "RTN","ORW DXA",134,0 ) | |
6396 | I REASON= 16&(PKG="P S") D | |
6397 | "RTN","ORW DXA",135,0 ) | |
6398 | . N XMB | |
6399 | "RTN","ORW DXA",136,0 ) | |
6400 | . S XMB=" OR DRUG OR DER CANCEL LED" | |
6401 | "RTN","ORW DXA",137,0 ) | |
6402 | . S XMB(1 )=$P($G(RE C(2)),"tDi scontinue" ,2),XMB(4) =$P($G(^VA (200,DUZ,0 )),U) | |
6403 | "RTN","ORW DXA",138,0 ) | |
6404 | . S XMB(2 )=+ORID | |
6405 | "RTN","ORW DXA",139,0 ) | |
6406 | . S XMB(3 )=+$P($G(^ OR(100,+OR ID,0)),U,2 ) | |
6407 | "RTN","ORW DXA",140,0 ) | |
6408 | . S XMB(3 )=$P($G(^D PT(XMB(3), 0)),U) | |
6409 | "RTN","ORW DXA",141,0 ) | |
6410 | . D ^XMB | |
6411 | "RTN","ORW DXA",142,0 ) | |
6412 | Q | |
6413 | "RTN","ORW DXA",143,0 ) | |
6414 | DCREQIEN(V AL) ; Retu rn IEN for Req Phys Cancelled reason | |
6415 | "RTN","ORW DXA",144,0 ) | |
6416 | S VAL=$O( ^ORD(100.0 3,"S","REQ ",0)) | |
6417 | "RTN","ORW DXA",145,0 ) | |
6418 | Q | |
6419 | "RTN","ORW DXA",146,0 ) | |
6420 | COMPLETE(R EC,ORID,ES CODE) ; Co mplete ord er (generi c) | |
6421 | "RTN","ORW DXA",147,0 ) | |
6422 | ;N X S X= +$E($$NOW^ XLFDT,1,12 ) | |
6423 | "RTN","ORW DXA",148,0 ) | |
6424 | ;D DATES^ ORCSAVE2(+ ORID,,X) | |
6425 | "RTN","ORW DXA",149,0 ) | |
6426 | ;D STATUS ^ORCSAVE2( +ORID,2) | |
6427 | "RTN","ORW DXA",150,0 ) | |
6428 | ; validat e ESCode | |
6429 | "RTN","ORW DXA",151,0 ) | |
6430 | D COMP^OR CSAVE2(ORI D) | |
6431 | "RTN","ORW DXA",152,0 ) | |
6432 | D COMP^OR MBLDOR(ORI D) | |
6433 | "RTN","ORW DXA",153,0 ) | |
6434 | D GETBYIF N^ORWORR(. REC,ORID) | |
6435 | "RTN","ORW DXA",154,0 ) | |
6436 | Q | |
6437 | "RTN","ORW DXA",155,0 ) | |
6438 | VERIFY(REC ,ORID,ESCO DE,ORVER) ; Verify o rder | |
6439 | "RTN","ORW DXA",156,0 ) | |
6440 | ; validat e ESCode | |
6441 | "RTN","ORW DXA",157,0 ) | |
6442 | S ORVER=$ G(ORVER,$S ($D(^XUSEC ("ORELSE", DUZ)):"N", $D(^XUSEC( "OREMAS",D UZ)):"C",1 :U)) | |
6443 | "RTN","ORW DXA",158,0 ) | |
6444 | I ORVER'= U D | |
6445 | "RTN","ORW DXA",159,0 ) | |
6446 | . N ORIFN ,ORES,ORI | |
6447 | "RTN","ORW DXA",160,0 ) | |
6448 | . ; VERIF Y any repl aced order s: | |
6449 | "RTN","ORW DXA",161,0 ) | |
6450 | . S ORIFN =ORID,ORES (ORIFN)="" D REPLCD^ ORCACT1 | |
6451 | "RTN","ORW DXA",162,0 ) | |
6452 | . S ORI=" " F S ORI =$O(ORES(O RI)) Q:ORI ="" D EN^ ORCSEND(OR I,"VR","", ""),UNLK1^ ORX2(+ORI) :ORI'=ORID ;ORID loc ked prior | |
6453 | "RTN","ORW DXA",163,0 ) | |
6454 | D GETBYIF N^ORWORR(. REC,ORID) | |
6455 | "RTN","ORW DXA",164,0 ) | |
6456 | Q | |
6457 | "RTN","ORW DXA",165,0 ) | |
6458 | ALERT(DUMM Y,ORID,ORD UZ) ; aler t user (OR DUZ) when order (ORI D) resulte d | |
6459 | "RTN","ORW DXA",166,0 ) | |
6460 | ;if no us er passed, use order ing provid er: | |
6461 | "RTN","ORW DXA",167,0 ) | |
6462 | I $G(ORDU Z)<1 S ORD UZ=+$$ORDE RER^ORQOR2 (+ORID) | |
6463 | "RTN","ORW DXA",168,0 ) | |
6464 | I $L($G(O RDUZ))<1 S ORDUZ=DUZ | |
6465 | "RTN","ORW DXA",169,0 ) | |
6466 | S DUMMY=1 ,$P(^OR(10 0,+ORID,3) ,U,10)=ORD UZ | |
6467 | "RTN","ORW DXA",170,0 ) | |
6468 | Q | |
6469 | "RTN","ORW DXA",171,0 ) | |
6470 | FLAG(REC,O RIFN,OREAS ON,ORNP) ; Flag orde r | |
6471 | "RTN","ORW DXA",172,0 ) | |
6472 | ;variable XMZ is no t defined by this se ction, but passed in (if avail able) | |
6473 | "RTN","ORW DXA",173,0 ) | |
6474 | N ORB,ORV P,DA,ORPS, ORNOW | |
6475 | "RTN","ORW DXA",174,0 ) | |
6476 | S ORNOW=$ $NOW^XLFDT | |
6477 | "RTN","ORW DXA",175,0 ) | |
6478 | D BULLETI N | |
6479 | "RTN","ORW DXA",176,0 ) | |
6480 | S DA=$P(O RIFN,";",2 ),ORVP=+$P (^OR(100,+ ORIFN,0),U ,2) | |
6481 | "RTN","ORW DXA",177,0 ) | |
6482 | K ^OR(100 ,+ORIFN,8, DA,3) S ^( 3)="1^"_$G (XMZ)_U_+$ E($$NOW^XL FDT,1,12)_ U_DUZ_U_OR EASON_$S($ G(ORNP):"^ ^^^"_+ORNP ,1:"") | |
6483 | "RTN","ORW DXA",178,0 ) | |
6484 | D KILL^XM ,MSG^ORCFL AG(ORIFN) | |
6485 | "RTN","ORW DXA",179,0 ) | |
6486 | S $P(^OR( 100,+ORIFN ,3),U)=ORN OW ; Last Activity | |
6487 | "RTN","ORW DXA",180,0 ) | |
6488 | I +$G(ORN P)<1 S ORN P=+$P($G(^ OR(100,+OR IFN,8,DA,0 )),U,3) | |
6489 | "RTN","ORW DXA",181,0 ) | |
6490 | S ORB=+OR VP_U_+ORIF N_U_ORNP_" ^1" D EN^O CXOERR(ORB ) ; notifi cation | |
6491 | "RTN","ORW DXA",182,0 ) | |
6492 | D GETBYIF N^ORWORR(. REC,ORIFN) | |
6493 | "RTN","ORW DXA",183,0 ) | |
6494 | D HMPFLAG (+ORIFN,OR VP,ORNOW,D UZ,"F",ORE ASON,DA) | |
6495 | "RTN","ORW DXA",184,0 ) | |
6496 | ; | |
6497 | "RTN","ORW DXA",185,0 ) | |
6498 | Q | |
6499 | "RTN","ORW DXA",186,0 ) | |
6500 | BULLETIN ; flagged o rder bulle tin | |
6501 | "RTN","ORW DXA",187,0 ) | |
6502 | ;variable s OREASON and ORIFN are assume d to be de fined by t he calling process a nd | |
6503 | "RTN","ORW DXA",188,0 ) | |
6504 | ;are neit her KILLed or NEWed in this se ction | |
6505 | "RTN","ORW DXA",189,0 ) | |
6506 | N OR0,OR3 ,ORDTXT,XM B,XMY,XMDU Z,ORENT,BU LL,ORSRV,O RUSR | |
6507 | "RTN","ORW DXA",190,0 ) | |
6508 | S OR0=$G( ^OR(100,+O RIFN,0)),O R3=$G(^(3) ) | |
6509 | "RTN","ORW DXA",191,0 ) | |
6510 | ;CLA - 3/ 21/96: | |
6511 | "RTN","ORW DXA",192,0 ) | |
6512 | S ORUSR=+ $P(OR0,U,4 ) | |
6513 | "RTN","ORW DXA",193,0 ) | |
6514 | S ORSRV=$ G(^VA(200, ORUSR,5)) I +ORSRV>0 S ORSRV=$ P(ORSRV,U) | |
6515 | "RTN","ORW DXA",194,0 ) | |
6516 | S ORENT=" USR.`"_ORU SR_"^SRV.` "_$G(ORSRV )_"^DIV^SY S^PKG" | |
6517 | "RTN","ORW DXA",195,0 ) | |
6518 | S BULL=$$ GET^XPAR(O RENT,"ORB FLAGGED OR DERS BULLE TIN",1,"Q" ) | |
6519 | "RTN","ORW DXA",196,0 ) | |
6520 | Q:$G(BULL )'="Y" ; quit if pa rm val not 'Y'es | |
6521 | "RTN","ORW DXA",197,0 ) | |
6522 | ; | |
6523 | "RTN","ORW DXA",198,0 ) | |
6524 | S XMB="OR FLAGGED O RDER",XMDU Z=DUZ,XMY( +$P(OR0,U, 4))="" | |
6525 | "RTN","ORW DXA",199,0 ) | |
6526 | S XMB(1)= $P(^DPT(+$ P(OR0,U,2) ,0),U),XMB (2)=$P(^(0 ),U,9),XMB (3)="" ;sb AGE | |
6527 | "RTN","ORW DXA",200,0 ) | |
6528 | S XMB(4)= $$FMTE^XLF DT($P(OR0, U,7)) | |
6529 | "RTN","ORW DXA",201,0 ) | |
6530 | D TEXT^OR Q12(.ORDTX T,+ORIFN,8 0) | |
6531 | "RTN","ORW DXA",202,0 ) | |
6532 | S XMB(5)= $G(ORDTXT( 1)),XMB(6) =$G(ORDTXT (2)),XMB(7 )=$G(ORDTX T(3)) | |
6533 | "RTN","ORW DXA",203,0 ) | |
6534 | S XMB(8)= $$FMTE^XLF DT($P(OR0, U,8)),XMB( 9)=$$FMTE^ XLFDT($P(O R0,U,9)),X MB(10)=ORE ASON | |
6535 | "RTN","ORW DXA",204,0 ) | |
6536 | S XMB(11) =$P($G(^OR D(100.01,+ $P(OR3,U,3 ),0)),U) | |
6537 | "RTN","ORW DXA",205,0 ) | |
6538 | D EN^XMB | |
6539 | "RTN","ORW DXA",206,0 ) | |
6540 | Q | |
6541 | "RTN","ORW DXA",207,0 ) | |
6542 | UNFLAG(REC ,ORIFN,ORE ASON) ; Un flag order | |
6543 | "RTN","ORW DXA",208,0 ) | |
6544 | N DA,ORB, ORNP,ORVP, ORPS,ORNOW | |
6545 | "RTN","ORW DXA",209,0 ) | |
6546 | S ORNOW=$ $NOW^XLFDT | |
6547 | "RTN","ORW DXA",210,0 ) | |
6548 | S DA=$P(O RIFN,";",2 ),ORVP=+$P (^OR(100,+ ORIFN,0),U ,2) | |
6549 | "RTN","ORW DXA",211,0 ) | |
6550 | S $P(^OR( 100,+ORIFN ,8,DA,3),U )=0,$P(^(3 ),U,6,8)=+ $E($$NOW^X LFDT,1,12) _U_DUZ_U_O REASON D M SG^ORCFLAG (ORIFN) | |
6551 | "RTN","ORW DXA",212,0 ) | |
6552 | S $P(^OR( 100,+ORIFN ,3),U)=ORN OW ; Last Activity | |
6553 | "RTN","ORW DXA",213,0 ) | |
6554 | S ORNP=+$ P($G(^OR(1 00,+ORIFN, 8,DA,0)),U ,3) | |
6555 | "RTN","ORW DXA",214,0 ) | |
6556 | S ORB=+OR VP_U_+ORIF N_U_ORNP_" ^0" D EN^O CXOERR(ORB ) ; notifi cation | |
6557 | "RTN","ORW DXA",215,0 ) | |
6558 | D GETBYIF N^ORWORR(. REC,ORIFN) | |
6559 | "RTN","ORW DXA",216,0 ) | |
6560 | D HMPFLAG (+ORIFN,OR VP,ORNOW,D UZ,"U",ORE ASON,DA) | |
6561 | "RTN","ORW DXA",217,0 ) | |
6562 | Q | |
6563 | "RTN","ORW DXA",218,0 ) | |
6564 | FLAGTXT(LS T,ORID) ; flag reaso n | |
6565 | "RTN","ORW DXA",219,0 ) | |
6566 | N FLAG | |
6567 | "RTN","ORW DXA",220,0 ) | |
6568 | S FLAG=$G (^OR(100,+ ORID,8,$P( ORID,";",2 ),3)) | |
6569 | "RTN","ORW DXA",221,0 ) | |
6570 | S LST(1)= "FLAGGED: "_$$FMTE^X LFDT($P(FL AG,U,3))_" by "_$P($ G(^VA(200, +$P(FLAG,U ,4),0)),U) | |
6571 | "RTN","ORW DXA",222,0 ) | |
6572 | S LST(2)= $P(FLAG,U, 5) ; reaso n | |
6573 | "RTN","ORW DXA",223,0 ) | |
6574 | Q | |
6575 | "RTN","ORW DXA",224,0 ) | |
6576 | WCGET(LST, ORID) ; wa rd comment s | |
6577 | "RTN","ORW DXA",225,0 ) | |
6578 | N I,ORIFN ,ACT S ORI FN=+ORID,A CT=+$P(ORI D,";",2) | |
6579 | "RTN","ORW DXA",226,0 ) | |
6580 | S I=0 F S I=$O(^OR (100,ORIFN ,8,ACT,5,I )) Q:'I S LST(I)=$G (^(I,0)) | |
6581 | "RTN","ORW DXA",227,0 ) | |
6582 | Q | |
6583 | "RTN","ORW DXA",228,0 ) | |
6584 | WCPUT(ERR, ORID,WCLST ) ; Set wa rd comment s | |
6585 | "RTN","ORW DXA",229,0 ) | |
6586 | N DIERR,E RRLST,ORIF N,ACT S OR IFN=+ORID, ACT=+$P(OR ID,";",2) | |
6587 | "RTN","ORW DXA",230,0 ) | |
6588 | D WP^DIE( 100.008,AC T_","_ORIF N_",",50," ","WCLST", "ERRLST") | |
6589 | "RTN","ORW DXA",231,0 ) | |
6590 | S ERR="" I $D(DIERR ) S ERR="A n error oc curred whi le saving comments." | |
6591 | "RTN","ORW DXA",232,0 ) | |
6592 | Q | |
6593 | "RTN","ORW DXA",233,0 ) | |
6594 | OFCPLX(ORY ,ORID,PRTO RDER) ; is ORID chil d of PRTOR DER | |
6595 | "RTN","ORW DXA",234,0 ) | |
6596 | N NUMCHDS ,NOWID,NOW VAL,X3,ORD A,ISNOW | |
6597 | "RTN","ORW DXA",235,0 ) | |
6598 | Q:'$D(^OR (100,+ORID ,0)) | |
6599 | "RTN","ORW DXA",236,0 ) | |
6600 | S ISNOW=0 | |
6601 | "RTN","ORW DXA",237,0 ) | |
6602 | D ISNOW^O RWDXR(.ISN OW,+ORID) | |
6603 | "RTN","ORW DXA",238,0 ) | |
6604 | Q:ISNOW | |
6605 | "RTN","ORW DXA",239,0 ) | |
6606 | N PKG | |
6607 | "RTN","ORW DXA",240,0 ) | |
6608 | S PKG=$P( $G(^OR(100 ,+ORID,0)) ,U,14) | |
6609 | "RTN","ORW DXA",241,0 ) | |
6610 | S PKG=$$N MSP^ORCD(P KG) | |
6611 | "RTN","ORW DXA",242,0 ) | |
6612 | I PKG'="P S" Q | |
6613 | "RTN","ORW DXA",243,0 ) | |
6614 | I $L($G(^ OR(100,+OR ID,3))),(' $L($P(^(3) ,U,9))) Q | |
6615 | "RTN","ORW DXA",244,0 ) | |
6616 | S (NUMCHD S,NOWID,NO WVAL,X3,OR DA)=0 | |
6617 | "RTN","ORW DXA",245,0 ) | |
6618 | S PRTORDE R=+$P(^(3) ,U,9) | |
6619 | "RTN","ORW DXA",246,0 ) | |
6620 | S X3=$G(^ OR(100,PRT ORDER,3)), ORDA=$P(X3 ,U,7) | |
6621 | "RTN","ORW DXA",247,0 ) | |
6622 | S PRTORDE R=PRTORDER _";"_ORDA | |
6623 | "RTN","ORW DXA",248,0 ) | |
6624 | S NUMCHDS =$P($G(^OR (100,+PRTO RDER,2,0)) ,U,4) | |
6625 | "RTN","ORW DXA",249,0 ) | |
6626 | I NUMCHDS >2 S ORY=" COMPLEX-PS I"_U_PRTOR DER | |
6627 | "RTN","ORW DXA",250,0 ) | |
6628 | S:$D(^OR( 100,+PRTOR DER,4.5,"I D","NOW")) NOWID=$O( ^("NOW",0) ) | |
6629 | "RTN","ORW DXA",251,0 ) | |
6630 | S:NOWID N OWVAL=$G(^ OR(100,+PR TORDER,4.5 ,NOWID,1)) | |
6631 | "RTN","ORW DXA",252,0 ) | |
6632 | I NOWVAL= 1 Q | |
6633 | "RTN","ORW DXA",253,0 ) | |
6634 | E S ORY= "COMPLEX-P SI"_U_PRTO RDER | |
6635 | "RTN","ORW DXA",254,0 ) | |
6636 | Q | |
6637 | "RTN","ORW DXA",255,0 ) | |
6638 | ISACTOI(OR Y,OI) ; Is ord item active? | |
6639 | "RTN","ORW DXA",256,0 ) | |
6640 | I $G(^ORD (101.43,+O I,.1)),^(. 1)'>$$NOW^ XLFDT D | |
6641 | "RTN","ORW DXA",257,0 ) | |
6642 | . S ORY=$ P($G(^ORD( 101.43,OI, 0)),U)_" h as been in activated and may no t be order ed anymore ." | |
6643 | "RTN","ORW DXA",258,0 ) | |
6644 | Q | |
6645 | "RTN","ORW DXA",259,0 ) | |
6646 | UPCTCHK(OR ID) ; | |
6647 | "RTN","ORW DXA",260,0 ) | |
6648 | ;ORID=ORD ER NUMBER | |
6649 | "RTN","ORW DXA",261,0 ) | |
6650 | ;RETURNS 1 IF THERE IS AN UPC ARET IN TH E ORDER'S COMMENTS | |
6651 | "RTN","ORW DXA",262,0 ) | |
6652 | N RET,COM MID,WPCNT, PIID S RET =0 | |
6653 | "RTN","ORW DXA",263,0 ) | |
6654 | S COMMID= $O(^OR(100 ,+ORID,4.5 ,"ID","COM MENT",0)) | |
6655 | "RTN","ORW DXA",264,0 ) | |
6656 | I COMMID S WPCNT=0 F S WPCNT =$O(^OR(10 0,+ORID,4. 5,COMMID,2 ,WPCNT)) Q :'WPCNT!(R ET) D | |
6657 | "RTN","ORW DXA",265,0 ) | |
6658 | .I $G(^OR (100,+ORID ,4.5,COMMI D,2,WPCNT, 0))["^" S RET=1 | |
6659 | "RTN","ORW DXA",266,0 ) | |
6660 | S PIID=$O (^OR(100,+ ORID,4.5," ID","PI",0 )) | |
6661 | "RTN","ORW DXA",267,0 ) | |
6662 | I PIID S WPCNT=0 F S WPCNT=$ O(^OR(100, +ORID,4.5, PIID,2,WPC NT)) Q:'WP CNT!(RET) D | |
6663 | "RTN","ORW DXA",268,0 ) | |
6664 | .I $G(^OR (100,+ORID ,4.5,PIID, 2,WPCNT,0) )["^" S RE T=1 | |
6665 | "RTN","ORW DXA",269,0 ) | |
6666 | Q RET | |
6667 | "RTN","ORW DXA",270,0 ) | |
6668 | HMPFLAG(OR IFN,HMDFN, WHEN,USR,F LGACTN,RSN ,ORACLVL) ; | |
6669 | "RTN","ORW DXA",271,0 ) | |
6670 | ; ORACLVL = ^OR(100 ,ORIFN,8,l evel) | |
6671 | "RTN","ORW DXA",272,0 ) | |
6672 | ; | |
6673 | "RTN","ORW DXA",273,0 ) | |
6674 | N RSLT,VA L ; resul t, FileMan values | |
6675 | "RTN","ORW DXA",274,0 ) | |
6676 | S VAL(.01 )=$G(WHEN) ; date/t ime of act ivity | |
6677 | "RTN","ORW DXA",275,0 ) | |
6678 | S VAL(.02 )=$G(FLGAC TN) ; fla g or unfla g | |
6679 | "RTN","ORW DXA",276,0 ) | |
6680 | S VAL(.03 )=$G(USR) ; DUZ | |
6681 | "RTN","ORW DXA",277,0 ) | |
6682 | S VAL(.04 )=$G(RSN) ; flag/un flag reaso n | |
6683 | "RTN","ORW DXA",278,0 ) | |
6684 | D ADDFLAG ^HMPOR(.RS LT,.VAL,+$ G(ORIFN),$ G(HMDFN),O RACLVL_";" _$G(FLGACT N)) | |
6685 | "RTN","ORW DXA",279,0 ) | |
6686 | Q:RSLT<0 D COMP^OR MBLDOR(+$G (ORIFN)) ;trigger u nsolicited synch for flag/unfl ag | |
6687 | "RTN","ORW DXA",280,0 ) | |
6688 | Q | |
6689 | "RTN","ORW DXM1") | |
6690 | 0^12^B1111 44249 | |
6691 | "RTN","ORW DXM1",1,0) | |
6692 | ORWDXM1 ;S LC/KCM - O rder Dialo gs, Menus ;05/22/17 11:15 | |
6693 | "RTN","ORW DXM1",2,0) | |
6694 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**1 0,85,131,1 32,141,178 ,185,187,2 15,243,280 ,331,388,3 50,423,434 **;Dec 17, 1997;Buil d 31 | |
6695 | "RTN","ORW DXM1",3,0) | |
6696 | ; | |
6697 | "RTN","ORW DXM1",4,0) | |
6698 | ; | |
6699 | "RTN","ORW DXM1",5,0) | |
6700 | BLDQRSP(LS T,ORIT,FLD S,ISIMO,EN CLOC) ; Bu ild respon ses for an order | |
6701 | "RTN","ORW DXM1",6,0) | |
6702 | ; LST=Qui ckLevel^Re sponseID(O RIT;$H)^Di alog^Type^ FormID^DGr p | |
6703 | "RTN","ORW DXM1",7,0) | |
6704 | ; LST(n)= verify or reject tex t | |
6705 | "RTN","ORW DXM1",8,0) | |
6706 | ; ORIT= p tr to 101. 41 for qui ck order, 100 for co py | |
6707 | "RTN","ORW DXM1",9,0) | |
6708 | ; 1 2 3 4 5 6 7 8 1 1-20 | |
6709 | "RTN","ORW DXM1",10,0 ) | |
6710 | ; FLDS=DF N^LOC^ORNP ^INPT^SEX^ AGE^EVENT^ SC%^^^Key Variables. .. | |
6711 | "RTN","ORW DXM1",11,0 ) | |
6712 | ; ORIT=+O RIT: ptr t o 101.41, $E(ORIT)=C : copy $E( ORIT)=X: c hange | |
6713 | "RTN","ORW DXM1",12,0 ) | |
6714 | ; !! SHOU LD CHECK f or PRE-CPR S ORDERS ( treat as t ext?) | |
6715 | "RTN","ORW DXM1",13,0 ) | |
6716 | K ^TMP($J ,"ORWDX LO ADRSP","QO SAVE") | |
6717 | "RTN","ORW DXM1",14,0 ) | |
6718 | K ^TMP("O RWDXMQ",$J ) | |
6719 | "RTN","ORW DXM1",15,0 ) | |
6720 | N ORWMODE ; 0:Dlg,Q uick 1:cop y 2:change | |
6721 | "RTN","ORW DXM1",16,0 ) | |
6722 | N TEMPCAT ; pt cat from DPT | |
6723 | "RTN","ORW DXM1",17,0 ) | |
6724 | N ISXFER ; Trnsfr o rder? | |
6725 | "RTN","ORW DXM1",18,0 ) | |
6726 | N ORIMO ; If IMO(inp t med on o pt) | |
6727 | "RTN","ORW DXM1",19,0 ) | |
6728 | N TEMPORI T | |
6729 | "RTN","ORW DXM1",20,0 ) | |
6730 | N ADMLOC, PATLOC,ORD LOC,LEVEL, DELAY,SCHL OC,SCHTYP | |
6731 | "RTN","ORW DXM1",21,0 ) | |
6732 | S PATLOC= $P(FLDS,U, 2) | |
6733 | "RTN","ORW DXM1",22,0 ) | |
6734 | S ORDLOC= $S(ORIT["C ":+$P($G(^ OR(100,+$P (ORIT,"C", 2),0)),U,1 0),1:0) | |
6735 | "RTN","ORW DXM1",23,0 ) | |
6736 | S ORIMO=$ G(ISIMO) | |
6737 | "RTN","ORW DXM1",24,0 ) | |
6738 | S ORWMODE =0,ISXFER= "" | |
6739 | "RTN","ORW DXM1",25,0 ) | |
6740 | S:$E(ORIT )="C" ORWM ODE=1 S:$E (ORIT)="T" ORWMODE=1 ,ISXFER="; T" ;treat xfer as co py | |
6741 | "RTN","ORW DXM1",26,0 ) | |
6742 | S:$E(ORIT )="X" ORWM ODE=2 | |
6743 | "RTN","ORW DXM1",27,0 ) | |
6744 | S TEMPORI T=ORIT | |
6745 | "RTN","ORW DXM1",28,0 ) | |
6746 | I ORWMODE S ORIT=$E (ORIT,2,99 9) | |
6747 | "RTN","ORW DXM1",29,0 ) | |
6748 | S LST(0)= "" | |
6749 | "RTN","ORW DXM1",30,0 ) | |
6750 | ;disable | |
6751 | "RTN","ORW DXM1",31,0 ) | |
6752 | D CHKDSBL ^ORWDXM3(. LST,ORIT,O RWMODE) Q: +LST(0)=8 | |
6753 | "RTN","ORW DXM1",32,0 ) | |
6754 | ;action | |
6755 | "RTN","ORW DXM1",33,0 ) | |
6756 | D CHKVACT ^ORWDXM3(. LST,ORIT,O RWMODE,$P( FLDS,U,3)) Q:+LST(0) =8 | |
6757 | "RTN","ORW DXM1",34,0 ) | |
6758 | ;no copy | |
6759 | "RTN","ORW DXM1",35,0 ) | |
6760 | I ORWMODE =1 D CHKCO PY^ORWDXM3 (.LST,ORIT ,FLDS) Q:+ LST(0)=8 | |
6761 | "RTN","ORW DXM1",36,0 ) | |
6762 | ;change | |
6763 | "RTN","ORW DXM1",37,0 ) | |
6764 | I ORWMODE =2 D BLD4C HG^ORWDXM3 (.LST,ORIT ,FLDS) Q | |
6765 | "RTN","ORW DXM1",38,0 ) | |
6766 | I 'ORWMOD E,($P(^ORD (101.41,+O RIT,0),U,4 )="D"),$P( ^ORD(101.4 1,+ORIT,0) ,"^",7)=$O (^DIC(9.4, "C","SD",0 )) S LST(0 )="0^0^"_$ $DLGINFO^O RWDXM3(ORI T,ORWMODE_ ISXFER) Q | |
6767 | "RTN","ORW DXM1",39,0 ) | |
6768 | I 'ORWMOD E,($P(^ORD (101.41,+O RIT,0),U,4 )="D"),'($ O(^DIC(9.4 ,"C","OR", 0))[$P(^OR D(101.41,+ ORIT,0),U, 7)) S LST( 0)="0^0^"_ $$DLGINFO^ ORWDXM3(OR IT,ORWMODE _ISXFER) Q | |
6769 | "RTN","ORW DXM1",40,0 ) | |
6770 | N ORIMTYP E,ORCOMP,O RTAS,LRFZX ,LRFSAMP,L RFSPEC,LRF DATE,LRFUR G,LRFSCH | |
6771 | "RTN","ORW DXM1",41,0 ) | |
6772 | N ORTIME, ORCOLLCT,O RMAX,ORTES T,ORIMTIME ,ORSMAX,OR STMS,ORSCH | |
6773 | "RTN","ORW DXM1",42,0 ) | |
6774 | N PSJNOPC ,ORMORE,OR INPT,ORXNP ,ORSCHED,O RQTY,ORNOU NS,ORXNP,O REFILLS | |
6775 | "RTN","ORW DXM1",43,0 ) | |
6776 | N ORCOMPL X,ORQTY,OR COPAY,ORDR UG,ORWPSPI K,ORWPSWRG ,ORSD,ORDS UP,ORWP94 | |
6777 | "RTN","ORW DXM1",44,0 ) | |
6778 | N ORPARAM ,ORNPO,ORT IME,ORMEAL ,ORTRAY,OR DATE,GMRCN OPD,GMRCNO AT,GMRCREA F | |
6779 | "RTN","ORW DXM1",45,0 ) | |
6780 | N ORTYPE, ORVP,ORL,O RNP,ORSEX, ORAGE,ORWA RD,OREVENT ,ORDIV,ORS C,KEYVAR | |
6781 | "RTN","ORW DXM1",46,0 ) | |
6782 | N ORDG,OR DIALOG,ORC AT,FIRST,O RQUIT,X,OR TRAIL,ORLE AD,RSPREF, AUTOACK | |
6783 | "RTN","ORW DXM1",47,0 ) | |
6784 | N OREVNTY P | |
6785 | "RTN","ORW DXM1",48,0 ) | |
6786 | S ORWP94= $O(^ORD(10 1.41,"AB", "PS MEDS", 0))>0 | |
6787 | "RTN","ORW DXM1",49,0 ) | |
6788 | S ORVP=$P (FLDS,U,1) _";DPT(",O RNP=+$P(FL DS,U,3),OR SC=$P(FLDS ,U,8) | |
6789 | "RTN","ORW DXM1",50,0 ) | |
6790 | S ORL=$P( FLDS,U,2)_ ";SC(",ORL (2)=ORL | |
6791 | "RTN","ORW DXM1",51,0 ) | |
6792 | S ORSEX=$ P(FLDS,U,5 ),ORAGE=$P (FLDS,U,6) ,ORTYPE="Q ",FIRST=1 | |
6793 | "RTN","ORW DXM1",52,0 ) | |
6794 | I $P(FLDS ,U,4),$G(^ SC(+ORL,42 )) S ORWAR D=+^SC(+OR L,42) | |
6795 | "RTN","ORW DXM1",53,0 ) | |
6796 | I $L($P(F LDS,U,7)) D | |
6797 | "RTN","ORW DXM1",54,0 ) | |
6798 | . S OREVE NT=$P(FLDS ,U,7) | |
6799 | "RTN","ORW DXM1",55,0 ) | |
6800 | . S OREVN TYP=$P(ORE VENT,";",2 ) | |
6801 | "RTN","ORW DXM1",56,0 ) | |
6802 | . S OREVE NT("TS")=$ P(OREVENT, ";",3) | |
6803 | "RTN","ORW DXM1",57,0 ) | |
6804 | . S OREVE NT("EFFECT IVE")=$P(O REVENT,";" ,4) | |
6805 | "RTN","ORW DXM1",58,0 ) | |
6806 | . S OREVE NT=+$P(ORE VENT,";",1 ) | |
6807 | "RTN","ORW DXM1",59,0 ) | |
6808 | I 'ORWMOD E D | |
6809 | "RTN","ORW DXM1",60,0 ) | |
6810 | . D SETKE YV^ORWDXM3 ($P(FLDS,U ,11,20)) ; from menu path | |
6811 | "RTN","ORW DXM1",61,0 ) | |
6812 | . S KEYVA R=$$KEYVAR ^ORWDXM3(O RIT) ; fro m entry ac tion | |
6813 | "RTN","ORW DXM1",62,0 ) | |
6814 | . D SETKE YV^ORWDXM3 (KEYVAR) | |
6815 | "RTN","ORW DXM1",63,0 ) | |
6816 | K ^TMP("O RWORD",$J) | |
6817 | "RTN","ORW DXM1",64,0 ) | |
6818 | ; init re turn recor d based on auto-acce pt | |
6819 | "RTN","ORW DXM1",65,0 ) | |
6820 | I ORWMODE S LST(0)= "2^"_ORIT ;verify on copy | |
6821 | "RTN","ORW DXM1",66,0 ) | |
6822 | E S LST( 0)=+$P($G( ^ORD(101.4 1,ORIT,5)) ,U,8)_U_OR IT | |
6823 | "RTN","ORW DXM1",67,0 ) | |
6824 | S TEMPCAT =$S($L($P( $G(^DPT(+O RVP,.1)),U )):"I",1:" O") | |
6825 | "RTN","ORW DXM1",68,0 ) | |
6826 | I TEMPCAT ="I",+$P(F LDS,U,4)=1 ,$E(TEMPOR IT)="C",$P ($G(^ORD(1 00.98,$P($ G(^OR(100, +ORIT,0)), U,11),0)), U)="OUTPAT IENT MEDIC ATIONS" S TEMPCAT="O " | |
6827 | "RTN","ORW DXM1",69,0 ) | |
6828 | I $L($G(O REVNTYP)) D | |
6829 | "RTN","ORW DXM1",70,0 ) | |
6830 | . S ORCAT =$S(OREVNT YP="A":"I" ,OREVNTYP= "T":"I",OR EVNTYP="O" :TEMPCAT,O REVNTYP="M ":TEMPCAT, OREVNTYP=" C":TEMPCAT ,1:"O") I $G(OREVENT ) D | |
6831 | "RTN","ORW DXM1",71,0 ) | |
6832 | .. N X S X=$$EVT^OR EVNTX(OREV ENT),X=$P( $G(^ORD(10 0.5,+X,0)) ,U,7) | |
6833 | "RTN","ORW DXM1",72,0 ) | |
6834 | .. I OREV NTYP="T",X ,X<4 S ORC AT="O" ;To pass=outp t | |
6835 | "RTN","ORW DXM1",73,0 ) | |
6836 | .. I OREV NTYP="D",X =41 S ORCA T="I" ;Fro m ASIH=inp t | |
6837 | "RTN","ORW DXM1",74,0 ) | |
6838 | E S ORCA T=TEMPCAT | |
6839 | "RTN","ORW DXM1",75,0 ) | |
6840 | D SETUP^O RWDXM4 Q:+ LST(0)=8 | |
6841 | "RTN","ORW DXM1",76,0 ) | |
6842 | S X="OR G TX START D ATE"_$S($G (ORWP94):" /TIME",1:" ") | |
6843 | "RTN","ORW DXM1",77,0 ) | |
6844 | I ORWMODE ,(ORDG=+$O (^ORD(100. 98,"B","O RX",0))) D ;remove old values | |
6845 | "RTN","ORW DXM1",78,0 ) | |
6846 | . K ORDIA LOG($$PTR^ ORCD(X),1) | |
6847 | "RTN","ORW DXM1",79,0 ) | |
6848 | . I ORWMO DE=2,$$DRA FT^ORWDX2( ORIT) Q ; keep comme nts | |
6849 | "RTN","ORW DXM1",80,0 ) | |
6850 | . K:ISXFE R'["T" ORD IALOG($$PT R^ORCD("OR GTX WORD PROCESSING 1"),1) | |
6851 | "RTN","ORW DXM1",81,0 ) | |
6852 | D SETUPS^ ORWDXM4 ;m oved to sa ve space, expects X | |
6853 | "RTN","ORW DXM1",82,0 ) | |
6854 | Q:+LST(0) =8 | |
6855 | "RTN","ORW DXM1",83,0 ) | |
6856 | I $G(ORQU IT) S LST( 0)="0^0^"_ $$DLGINFO^ ORWDXM3(OR IT,ORWMODE _ISXFER)_" ^"_$G(KEYV AR) Q | |
6857 | "RTN","ORW DXM1",84,0 ) | |
6858 | N SEQ,DA, XCODE,MUST ASK,PROMPT ,INST,KEY, IVFID,CLIV FID | |
6859 | "RTN","ORW DXM1",85,0 ) | |
6860 | S IVFID=$ O(^ORD(101 .41,"B","P SJI OR PAT FLUID OE" ,0)) | |
6861 | "RTN","ORW DXM1",86,0 ) | |
6862 | S CLIVFID =$O(^ORD(1 01.41,"B", "CLINIC OR PAT FLUID OE",0)) | |
6863 | "RTN","ORW DXM1",87,0 ) | |
6864 | S AUTOACK =$S($D(ORW PSWRG):0,1 :1) | |
6865 | "RTN","ORW DXM1",88,0 ) | |
6866 | ; If copy ing, clear bad dates . Later, S ETITEM wil l fill dat es with de fault valu es. ;DJE-V M *331 | |
6867 | "RTN","ORW DXM1",89,0 ) | |
6868 | I ORWMODE =1 D ; | |
6869 | "RTN","ORW DXM1",90,0 ) | |
6870 | . I $L($$ VAL^ORCD(" START DATE ")) D ; | |
6871 | "RTN","ORW DXM1",91,0 ) | |
6872 | . . S X=$ $VAL^ORCD( "START DAT E"),%DT="T X" D ^%DT | |
6873 | "RTN","ORW DXM1",92,0 ) | |
6874 | . . I Y'< $$DT^XLFDT ,(($L($$VA L^ORCD("ST OP DATE")) =0)!('$$FT DCOMP^ORCD ("START DA TE","STOP DATE",">") )) Q ;qui t if valid dates: st art not in the past or stop af ter start | |
6875 | "RTN","ORW DXM1",93,0 ) | |
6876 | . . K ORD IALOG($$PT R("START D ATE"),1),O RDIALOG($$ PTR("START DATE/TIME "),1) ;era se bad sta rt and sto p dates. | |
6877 | "RTN","ORW DXM1",94,0 ) | |
6878 | . . K ORD IALOG($$PT R("STOP DA TE"),1),OR DIALOG($$P TR("STOP D ATE/TIME") ,1) | |
6879 | "RTN","ORW DXM1",95,0 ) | |
6880 | . ; check start and stop date s found in diet orde rs | |
6881 | "RTN","ORW DXM1",96,0 ) | |
6882 | . I $L($$ VAL^ORCD(" EFFECTIVE DATE/TIME" )) D ; | |
6883 | "RTN","ORW DXM1",97,0 ) | |
6884 | . . S X=$ $VAL^ORCD( "EFFECTIVE DATE/TIME "),%DT="TX " D ^%DT | |
6885 | "RTN","ORW DXM1",98,0 ) | |
6886 | . . I Y'< $$DT^XLFDT ,(($L($$VA L^ORCD("EX PIRATION D ATE/TIME") )=0)!('$$F TDCOMP^ORC D("EFFECTI VE DATE/TI ME","EXPIR ATION DATE /TIME",">" ))) Q ;qu it if vali d dates: s tart not i n the past or stop a fter start | |
6887 | "RTN","ORW DXM1",99,0 ) | |
6888 | . . K ORD IALOG($P(O RDIALOG("B ","EFFECTI VE DATE/TI ME"),U,2), 1) ;erase bad start and stop d ates. | |
6889 | "RTN","ORW DXM1",100, 0) | |
6890 | . . K ORD IALOG($P(O RDIALOG("B ","EXPIRAT ION DATE/T IME"),U,2) ,1) | |
6891 | "RTN","ORW DXM1",101, 0) | |
6892 | . ; check date desi red field found in i maging ord ers | |
6893 | "RTN","ORW DXM1",102, 0) | |
6894 | . I $L($$ VAL^ORCD(" DATE DESIR ED")) D ; | |
6895 | "RTN","ORW DXM1",103, 0) | |
6896 | . . S X=$ $VAL^ORCD( "DATE DESI RED"),%DT= "TX" D ^%D T | |
6897 | "RTN","ORW DXM1",104, 0) | |
6898 | . . I Y'< $$DT^XLFDT Q ;quit if not a p ast date | |
6899 | "RTN","ORW DXM1",105, 0) | |
6900 | . . K ORD IALOG($P(O RDIALOG("B ","DATE DE SIRED"),U, 2),1) ;era se bad dat e | |
6901 | "RTN","ORW DXM1",106, 0) | |
6902 | . ; check collectio n date fie ld found i n lab orde rs | |
6903 | "RTN","ORW DXM1",107, 0) | |
6904 | . I $L($$ VAL^ORCD(" COLLECTION DATE/TIME ")) D ; | |
6905 | "RTN","ORW DXM1",108, 0) | |
6906 | . . S X=$ $VAL^ORCD( "COLLECTIO N DATE/TIM E") | |
6907 | "RTN","ORW DXM1",109, 0) | |
6908 | . . I X=" NEXT" Q ; No need to check thi s. | |
6909 | "RTN","ORW DXM1",110, 0) | |
6910 | . . S %DT ="TX" D ^% DT | |
6911 | "RTN","ORW DXM1",111, 0) | |
6912 | . . I $P( Y,".",2),Y '<$E($$NOW ^XLFDT,1,1 2) Q ;qui t if not a past date and time (lab is mo re precise than othe r dates) | |
6913 | "RTN","ORW DXM1",112, 0) | |
6914 | . . I $P( Y,".",2)=" ",Y'<$$DT^ XLFDT Q ; | |
6915 | "RTN","ORW DXM1",113, 0) | |
6916 | . . K ORD IALOG($P(O RDIALOG("B ","COLLECT ION DATE/T IME"),U,2) ,1) ;erase bad date | |
6917 | "RTN","ORW DXM1",114, 0) | |
6918 | S SEQ=0 F S SEQ=$O (^ORD(101. 41,+ORDIAL OG,10,"B", SEQ)) Q:'S EQ D | |
6919 | "RTN","ORW DXM1",115, 0) | |
6920 | . S DA=0 F S DA=$O (^ORD(101. 41,+ORDIAL OG,10,"B", SEQ,DA)) Q :'DA D | |
6921 | "RTN","ORW DXM1",116, 0) | |
6922 | . . ; ski p if child prmpt | |
6923 | "RTN","ORW DXM1",117, 0) | |
6924 | . . I $P( ^ORD(101.4 1,+ORDIALO G,10,DA,0) ,U,11) Q | |
6925 | "RTN","ORW DXM1",118, 0) | |
6926 | . . ; set dflt for prmpt, chk if intera ctive | |
6927 | "RTN","ORW DXM1",119, 0) | |
6928 | . . S PRO MPT=$P(^OR D(101.41,+ ORDIALOG,1 0,DA,0),U, 2) | |
6929 | "RTN","ORW DXM1",120, 0) | |
6930 | . . D SET ITEM(DA,PR OMPT,1,.MU STASK) | |
6931 | "RTN","ORW DXM1",121, 0) | |
6932 | . . I MUS TASK S AUT OACK=0 Q | |
6933 | "RTN","ORW DXM1",122, 0) | |
6934 | . . ; ite rate throu gh child i tems if pa rent & edi t only | |
6935 | "RTN","ORW DXM1",123, 0) | |
6936 | . . Q:'$D (^ORD(101. 41,+ORDIAL OG,10,"DAD ",PROMPT)) | |
6937 | "RTN","ORW DXM1",124, 0) | |
6938 | . . N CSE Q,CDA,CPRO MPT,INST,O RQUIT | |
6939 | "RTN","ORW DXM1",125, 0) | |
6940 | . . S CSE Q=0 F S C SEQ=$O(^OR D(101.41,+ ORDIALOG,1 0,"DAD",PR OMPT,CSEQ) ) Q:'CSEQ D Q:$G(O RQUIT) | |
6941 | "RTN","ORW DXM1",126, 0) | |
6942 | . . . S C DA=$O(^ORD (101.41,+O RDIALOG,10 ,"DAD",PRO MPT,CSEQ,0 )) | |
6943 | "RTN","ORW DXM1",127, 0) | |
6944 | . . . S C PROMPT=$P( ^ORD(101.4 1,+ORDIALO G,10,CDA,0 ),U,2) | |
6945 | "RTN","ORW DXM1",128, 0) | |
6946 | . . . ; i f req & no instances then need interacti on | |
6947 | "RTN","ORW DXM1",129, 0) | |
6948 | . . . I $ P(^ORD(101 .41,+ORDIA LOG,10,CDA ,0),U,6) D | |
6949 | "RTN","ORW DXM1",130, 0) | |
6950 | . . . . I ORDIALOG= IVFID!(ORD IALOG=CLIV FID) Q | |
6951 | "RTN","ORW DXM1",131, 0) | |
6952 | . . . . I '$O(ORDIA LOG(CPROMP T,0)) S AU TOACK=0 | |
6953 | "RTN","ORW DXM1",132, 0) | |
6954 | . . . S I NST=0 F S INST=$O(O RDIALOG(CP ROMPT,INST )) Q:'INST D | |
6955 | "RTN","ORW DXM1",133, 0) | |
6956 | . . . . N ORASK D V BASK^ORWDX M4(INST) ; set ORASK for VBECS | |
6957 | "RTN","ORW DXM1",134, 0) | |
6958 | . . . . ; set dflt for each c hild prmpt | |
6959 | "RTN","ORW DXM1",135, 0) | |
6960 | . . . . D SETITEM(C DA,CPROMPT ,INST,.MUS TASK) | |
6961 | "RTN","ORW DXM1",136, 0) | |
6962 | . . . . ; if no val & child p rmpt req'd then need interacti on | |
6963 | "RTN","ORW DXM1",137, 0) | |
6964 | . . . . I MUSTASK,$ P(^ORD(101 .41,+ORDIA LOG,10,CDA ,0),U,6) S AUTOACK=0 | |
6965 | "RTN","ORW DXM1",138, 0) | |
6966 | N IVDLG,C LINFDLG,SP LYDLG | |
6967 | "RTN","ORW DXM1",139, 0) | |
6968 | S IVDLG=$ O(^ORD(101 .41,"AB"," PSJI OR PA T FLUID OE ",0)) | |
6969 | "RTN","ORW DXM1",140, 0) | |
6970 | S CLINFDL G=$O(^ORD( 101.41,"AB ","CLINIC OR PAT FLU ID OE",0)) | |
6971 | "RTN","ORW DXM1",141, 0) | |
6972 | S SPLYDLG =$O(^ORD(1 01.41,"AB" ,"PSO SUPP LY",0)) | |
6973 | "RTN","ORW DXM1",142, 0) | |
6974 | I $$ISMED (ORIT),(OR DIALOG'=IV DLG),(ORDI ALOG'=CLIN FDLG),(ORD IALOG'=SPL YDLG),(ORC AT="I") D | |
6975 | "RTN","ORW DXM1",143, 0) | |
6976 | . N P | |
6977 | "RTN","ORW DXM1",144, 0) | |
6978 | . F P="PA TIENT INST RUCTIONS", "DAYS SUPP LY","QUANT ITY","REFI LLS","ROUT ING","SERV ICE CONNEC TED" K ORD IALOG($$PT R(P),1) | |
6979 | "RTN","ORW DXM1",145, 0) | |
6980 | . I '$$IS QO(ORIT) K ORDIALOG( $$PTR("STA RT DATE/TI ME"),1) ; kill if no t a non-VA med quick order. p3 88 | |
6981 | "RTN","ORW DXM1",146, 0) | |
6982 | S KEY=$S( ORWMODE:"C ",1:"")_OR IT_"-"_$P( $H,",",2), SEQ=0 | |
6983 | "RTN","ORW DXM1",147, 0) | |
6984 | I $$ISINP MED(ORIT) D | |
6985 | "RTN","ORW DXM1",148, 0) | |
6986 | .S LEVEL= $P(LST(0), U),DELAY=$ S($P($G(OR EVENT),";" )>0:1,1:0) | |
6987 | "RTN","ORW DXM1",149, 0) | |
6988 | .I LEVEL= 2!(ISIMO) D ADMTIME^ ORWDXM2(OR DLOC,PATLO C,ENCLOC,D ELAY,ISIMO ) | |
6989 | "RTN","ORW DXM1",150, 0) | |
6990 | I ($$ISME D(ORIT)),' ($$VALQO^O RWDXM3(ORI T)) S AUTO ACK=0 | |
6991 | "RTN","ORW DXM1",151, 0) | |
6992 | I $P(^ORD (101.41,+O RIT,0),"^" ,7)=$O(^DI C(9.4,"C", "SD",0)),' ($$SDRTCVE R^ORWDXM3( .ORDIALOG) ) S AUTOAC K=0 | |
6993 | "RTN","ORW DXM1",152, 0) | |
6994 | S PROMPT= 0 F S PRO MPT=$O(ORD IALOG(PROM PT)) Q:'PR OMPT D | |
6995 | "RTN","ORW DXM1",153, 0) | |
6996 | . I '$D(^ ORD(101.41 ,ORDIALOG, 10,"D",PRO MPT)) K OR DIALOG(PRO MPT) Q | |
6997 | "RTN","ORW DXM1",154, 0) | |
6998 | . S INST= 0 F S INS T=$O(ORDIA LOG(PROMPT ,INST)) Q: 'INST D | |
6999 | "RTN","ORW DXM1",155, 0) | |
7000 | . . S SEQ =SEQ+1,^TM P("ORWDXMQ ",$J,KEY,S EQ,0)=U_PR OMPT_U_INS T | |
7001 | "RTN","ORW DXM1",156, 0) | |
7002 | . . ; sav e word pro c val | |
7003 | "RTN","ORW DXM1",157, 0) | |
7004 | . . I $E( ORDIALOG(P ROMPT,0))= "W",$L(ORD IALOG(PROM PT,INST)) D | |
7005 | "RTN","ORW DXM1",158, 0) | |
7006 | . . . M ^ TMP("ORWDX MQ",$J,KEY ,SEQ,2)=@O RDIALOG(PR OMPT,INST) | |
7007 | "RTN","ORW DXM1",159, 0) | |
7008 | . . ; sav e other va l types | |
7009 | "RTN","ORW DXM1",160, 0) | |
7010 | . . E S ^TMP("ORWD XMQ",$J,KE Y,SEQ,1)=O RDIALOG(PR OMPT,INST) | |
7011 | "RTN","ORW DXM1",161, 0) | |
7012 | I AUTOACK D | |
7013 | "RTN","ORW DXM1",162, 0) | |
7014 | . I ORWMO DE S AUTOA CK=2 | |
7015 | "RTN","ORW DXM1",163, 0) | |
7016 | . I 'ORWM ODE,($P(^O RD(101.41, ORIT,0),U, 8)!'LST(0) ) S AUTOAC K=2 | |
7017 | "RTN","ORW DXM1",164, 0) | |
7018 | ;I ($$ISM ED(ORIT)), '($$VALQO^ ORWDXM3(OR IT)) S AUT OACK=0 | |
7019 | "RTN","ORW DXM1",165, 0) | |
7020 | I ORIMO,O RWMODE S A UTOACK=2 | |
7021 | "RTN","ORW DXM1",166, 0) | |
7022 | ; accept Herbal/OTC /NonVA Med quick ord ers | |
7023 | "RTN","ORW DXM1",167, 0) | |
7024 | I $L($G(^ ORD(101.41 ,+ORIT,0)) ),($P(^ORD (100.98,$P (^ORD(101. 41,+ORIT,0 ),U,5),0), U,3)="NV R X"),($P($G (^ORD(101. 41,+ORIT,5 )),U,8)) S AUTOACK=1 | |
7025 | "RTN","ORW DXM1",168, 0) | |
7026 | ;I AUTOAC K=2,$$ISME D(ORIT),(O RDIALOG=IV DLG),$$VER ORD^ORWDXM 3=0 S AUTO ACK=0 | |
7027 | "RTN","ORW DXM1",169, 0) | |
7028 | I AUTOACK =2,$$ISMED (ORIT),$$V ERORD^ORWD XM3(ORIT)= 0 S AUTOAC K=0 | |
7029 | "RTN","ORW DXM1",170, 0) | |
7030 | I AUTOACK =2 D VERTX T^ORWDXM2 | |
7031 | "RTN","ORW DXM1",171, 0) | |
7032 | S LST(0)= AUTOACK_U_ KEY_U_$$DL GINFO^ORWD XM3(ORIT,O RWMODE_ISX FER)_"^"_$ G(KEYVAR) | |
7033 | "RTN","ORW DXM1",172, 0) | |
7034 | I $P(LST( 0),U,4)="D " S $P(LST (0),U,4)=" Q" | |
7035 | "RTN","ORW DXM1",173, 0) | |
7036 | I ORWMODE =1 S $P(LS T(0),U,4)= "C" | |
7037 | "RTN","ORW DXM1",174, 0) | |
7038 | K ^TMP("O RWORD",$J) | |
7039 | "RTN","ORW DXM1",175, 0) | |
7040 | K ^TMP("P SJINS",$J) ,^TMP("PSJ MR",$J),^T MP("PSJNOU N",$J) | |
7041 | "RTN","ORW DXM1",176, 0) | |
7042 | Q | |
7043 | "RTN","ORW DXM1",177, 0) | |
7044 | SETITEM(DA ,PROMPT,IN ST,MUSTASK ) ; set df lt val & r eturn if m ust prompt | |
7045 | "RTN","ORW DXM1",178, 0) | |
7046 | N EDITONL Y,Y,VALIV, XCODE | |
7047 | "RTN","ORW DXM1",179, 0) | |
7048 | S MUSTASK =0,EDITONL Y=0,VALIV= 0 | |
7049 | "RTN","ORW DXM1",180, 0) | |
7050 | I $D(^TMP ("ORWDHTM" ,$J,ORDIAL OG,PROMPT) ) D | |
7051 | "RTN","ORW DXM1",181, 0) | |
7052 | . I $E(OR DIALOG(PRO MPT,0))="W " D | |
7053 | "RTN","ORW DXM1",182, 0) | |
7054 | . . S ^TM P("ORWORD" ,$J,PROMPT ,INST,1,0) =^TMP("ORW DHTM",$J,O RDIALOG,PR OMPT) | |
7055 | "RTN","ORW DXM1",183, 0) | |
7056 | . . S ORD IALOG(PROM PT,INST)=" ^TMP(""ORW ORD"","_$J _","_PROMP T_","_INST _")" | |
7057 | "RTN","ORW DXM1",184, 0) | |
7058 | . E S OR DIALOG(PRO MPT,INST)= ^TMP("ORWD HTM",$J,OR DIALOG,PRO MPT) | |
7059 | "RTN","ORW DXM1",185, 0) | |
7060 | I $D(^TMP ("ORWDHTM" ,$J,ORIT,P ROMPT)) D | |
7061 | "RTN","ORW DXM1",186, 0) | |
7062 | . S ORDIA LOG(PROMPT ,INST)=^TM P("ORWDHTM ",$J,ORIT, PROMPT) | |
7063 | "RTN","ORW DXM1",187, 0) | |
7064 | . ; NEED TO CLEAN U P ^TMP("OR WDHTM") af ter proces s order se t!!! | |
7065 | "RTN","ORW DXM1",188, 0) | |
7066 | ; | |
7067 | "RTN","ORW DXM1",189, 0) | |
7068 | ; skip if a value a lready exi sts for th is prompt and not WP | |
7069 | "RTN","ORW DXM1",190, 0) | |
7070 | Q:$D(ORDI ALOG(PROMP T,INST))&( $E(ORDIALO G(PROMPT,0 ))'="W") | |
7071 | "RTN","ORW DXM1",191, 0) | |
7072 | ; execute default a ction if n o value in QO, check ing EDITON LY afterwa rds | |
7073 | "RTN","ORW DXM1",192, 0) | |
7074 | I '$D(ORD IALOG(PROM PT,INST)) D | |
7075 | "RTN","ORW DXM1",193, 0) | |
7076 | . ; | |
7077 | "RTN","ORW DXM1",194, 0) | |
7078 | . ;Interm ittent IV orders do not requir e a soluti on or an i nfusion ra te | |
7079 | "RTN","ORW DXM1",195, 0) | |
7080 | . I PROMP T=$$PTR("I NFUSION RA TE"),$$GET IVTYP^ORWD XM3="I" S VALIV=1 Q | |
7081 | "RTN","ORW DXM1",196, 0) | |
7082 | . I PROMP T=$$PTR("O RDERABLE I TEM"),$$GE TIVTYP^ORW DXM3="I" S VALIV=1 Q | |
7083 | "RTN","ORW DXM1",197, 0) | |
7084 | . I $E(OR DIALOG(PRO MPT,0))="W ",$D(^ORD( 101.41,+OR DIALOG,10, DA,8))>9 D | |
7085 | "RTN","ORW DXM1",198, 0) | |
7086 | . . M ^TM P("ORWORD" ,$J,PROMPT ,INST)=^OR D(101.41,+ ORDIALOG,1 0,DA,8) | |
7087 | "RTN","ORW DXM1",199, 0) | |
7088 | . . S ORD IALOG(PROM PT,INST)=" ^TMP(""ORW ORD"","_$J _","_PROMP T_","_INST _")" | |
7089 | "RTN","ORW DXM1",200, 0) | |
7090 | . E D | |
7091 | "RTN","ORW DXM1",201, 0) | |
7092 | . . S XCO DE=$$SUBCO DE($G(^ORD (101.41,+O RDIALOG,10 ,DA,7))) | |
7093 | "RTN","ORW DXM1",202, 0) | |
7094 | . . I $L( XCODE) X X CODE S:$D( Y) ORDIALO G(PROMPT,I NST)=Y | |
7095 | "RTN","ORW DXM1",203, 0) | |
7096 | Q:VALIV=1 | |
7097 | "RTN","ORW DXM1",204, 0) | |
7098 | Q:$G(EDIT ONLY) | |
7099 | "RTN","ORW DXM1",205, 0) | |
7100 | I 'ORWMOD E,$P($G(^O RD(101.41, +ORDIALOG, 10,DA,0)), U,8) Q | |
7101 | "RTN","ORW DXM1",206, 0) | |
7102 | I ORWMODE ,($P($G(^O RD(101.41, +ORDIALOG, 10,DA,0)), U,9)'["W") ,'$P($G(^O RD(101.41, +ORDIALOG, 10,DA,0)), U,6)!$D(OR DIALOG(PRO MPT,INST)) Q | |
7103 | "RTN","ORW DXM1",207, 0) | |
7104 | I 'ORWMOD E,LST(0),$ D(ORDIALOG (PROMPT,IN ST)),($E(O RDIALOG(PR OMPT,0))=" W") Q | |
7105 | "RTN","ORW DXM1",208, 0) | |
7106 | I 'ORWMOD E,LST(0),' $P($G(^ORD (101.41,+O RDIALOG,10 ,DA,0)),U, 6) Q | |
7107 | "RTN","ORW DXM1",209, 0) | |
7108 | S XCODE=$ $SUBCODE($ G(^ORD(101 .41,+ORDIA LOG,10,DA, 3))) | |
7109 | "RTN","ORW DXM1",210, 0) | |
7110 | I $L(XCOD E) X XCODE Q:'$T | |
7111 | "RTN","ORW DXM1",211, 0) | |
7112 | S MUSTASK =1 | |
7113 | "RTN","ORW DXM1",212, 0) | |
7114 | Q | |
7115 | "RTN","ORW DXM1",213, 0) | |
7116 | SUBCODE(X) ; substit ute code | |
7117 | "RTN","ORW DXM1",214, 0) | |
7118 | I X["$$RE QDCOMM^ORC DLR" Q "I $$LRRQCM^O RWDXM2" | |
7119 | "RTN","ORW DXM1",215, 0) | |
7120 | I X["$$AS KSAMP^ORCD LR" Q "I $ $LRASMP^OR WDXM2" | |
7121 | "RTN","ORW DXM1",216, 0) | |
7122 | I X["$$SC HEDULD^ORC DRA1" Q "I $$SCHEDUL D^ORWDXM2" | |
7123 | "RTN","ORW DXM1",217, 0) | |
7124 | I X["(^PS X(550,""C" ")" Q "S Y =$E($$DEFP ICK^ORWDPS 32) K:'$L( Y) Y" | |
7125 | "RTN","ORW DXM1",218, 0) | |
7126 | I X["I $$ ASKURG^ORC DVBEC" Q " I 1" | |
7127 | "RTN","ORW DXM1",219, 0) | |
7128 | I X["K:$G (ORASK)" Q "I $G(ORA SK)" | |
7129 | "RTN","ORW DXM1",220, 0) | |
7130 | Q X | |
7131 | "RTN","ORW DXM1",221, 0) | |
7132 | PTR(NAME) ; -- Retur ns pointer to OR GTX NAME | |
7133 | "RTN","ORW DXM1",222, 0) | |
7134 | Q +$O(^OR D(101.41," AB",$E("OR GTX "_NAM E,1,63),0) ) | |
7135 | "RTN","ORW DXM1",223, 0) | |
7136 | ; | |
7137 | "RTN","ORW DXM1",224, 0) | |
7138 | ISINPMED(I FN) ; | |
7139 | "RTN","ORW DXM1",225, 0) | |
7140 | N PKG,RES ULT,Y | |
7141 | "RTN","ORW DXM1",226, 0) | |
7142 | I 'ORWMOD E S PKG=$P ($G(^ORD(1 01.41,IFN, 0)),U,7) | |
7143 | "RTN","ORW DXM1",227, 0) | |
7144 | E S PKG= $P($G(^OR( 100,+IFN,0 )),U,14) | |
7145 | "RTN","ORW DXM1",228, 0) | |
7146 | S Y=$$GET 1^DIQ(9.4, +PKG_",",1 ) | |
7147 | "RTN","ORW DXM1",229, 0) | |
7148 | S RESULT= $S($E(Y,1, 3)="PSJ":1 ,1:0) | |
7149 | "RTN","ORW DXM1",230, 0) | |
7150 | Q RESULT | |
7151 | "RTN","ORW DXM1",231, 0) | |
7152 | ; | |
7153 | "RTN","ORW DXM1",232, 0) | |
7154 | ISMED(IFN) ; return 1 if pharm acy order dlg used | |
7155 | "RTN","ORW DXM1",233, 0) | |
7156 | N PKG | |
7157 | "RTN","ORW DXM1",234, 0) | |
7158 | I 'ORWMOD E S PKG=$P ($G(^ORD(1 01.41,IFN, 0)),U,7) | |
7159 | "RTN","ORW DXM1",235, 0) | |
7160 | E S PKG= $P($G(^OR( 100,+IFN,0 )),U,14) | |
7161 | "RTN","ORW DXM1",236, 0) | |
7162 | Q $$NMSP^ ORCD(PKG)= "PS" | |
7163 | "RTN","ORW DXM1",237, 0) | |
7164 | SITEVAL() ;return 1 if site do es want th e reason f or study t o carry th rough from past orde rs of this ordering session | |
7165 | "RTN","ORW DXM1",238, 0) | |
7166 | I $$GET^X PAR("ALL^S RV.`"_+^VA (200,DUZ,5 ),"OR RA R FS CARRY O N")=0 Q 0 | |
7167 | "RTN","ORW DXM1",239, 0) | |
7168 | Q 1 | |
7169 | "RTN","ORW DXM1",240, 0) | |
7170 | SVRPC(RET, X) ;RPC FO R SITEVAL | |
7171 | "RTN","ORW DXM1",241, 0) | |
7172 | S RET=$$S ITEVAL | |
7173 | "RTN","ORW DXM1",242, 0) | |
7174 | Q | |
7175 | "RTN","ORW DXM1",243, 0) | |
7176 | ISQO(IFN) ;return 1 if a non-V A medicati on quick o rder type of order d ialog. p38 8 | |
7177 | "RTN","ORW DXM1",244, 0) | |
7178 | I $P($G(^ ORD(101.41 ,IFN,0)),U ,5)'=$O(^O RD(100.98, "B","NV RX ",0)) Q 0 | |
7179 | "RTN","ORW DXM1",245, 0) | |
7180 | I $P($G(^ ORD(101.41 ,IFN,0)),U ,4)="Q" Q 1 | |
7181 | "RTN","ORW DXM1",246, 0) | |
7182 | Q 0 | |
7183 | "RTN","ORW DXM3") | |
7184 | 0^14^B1183 61960 | |
7185 | "RTN","ORW DXM3",1,0) | |
7186 | ORWDXM3 ; SLC/KCM/JL I - Quick Orders ;06 /22/17 | |
7187 | "RTN","ORW DXM3",2,0) | |
7188 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**1 0,85,131,1 32,141,185 ,187,190,1 95,215,243 ,303,296,2 80,350,434 **;Dec 17, 1997;Buil d 31 | |
7189 | "RTN","ORW DXM3",3,0) | |
7190 | ; | |
7191 | "RTN","ORW DXM3",4,0) | |
7192 | ; | |
7193 | "RTN","ORW DXM3",5,0) | |
7194 | ; | |
7195 | "RTN","ORW DXM3",6,0) | |
7196 | VALCOUNT(N AME,ORDIAL OG) ; | |
7197 | "RTN","ORW DXM3",7,0) | |
7198 | N COUNT,I EN,NUM | |
7199 | "RTN","ORW DXM3",8,0) | |
7200 | S NUM=0,C OUNT=0 | |
7201 | "RTN","ORW DXM3",9,0) | |
7202 | S IEN=$P( $G(ORDIALO G("B",NAME )),U,2) Q: IEN'>0 | |
7203 | "RTN","ORW DXM3",10,0 ) | |
7204 | F S NUM= $O(ORDIALO G(IEN,NUM) ) Q:+NUM'> 0 S COUNT =COUNT+1 | |
7205 | "RTN","ORW DXM3",11,0 ) | |
7206 | Q COUNT | |
7207 | "RTN","ORW DXM3",12,0 ) | |
7208 | ; | |
7209 | "RTN","ORW DXM3",13,0 ) | |
7210 | ISMISSFL(O RDIALOG,IV TYPE) ; | |
7211 | "RTN","ORW DXM3",14,0 ) | |
7212 | N ADDCNT, RESULT,SOL CNT,STRCNT | |
7213 | "RTN","ORW DXM3",15,0 ) | |
7214 | S RESULT= 0 | |
7215 | "RTN","ORW DXM3",16,0 ) | |
7216 | S ADDCNT= $$VALCOUNT ("ADDITIVE ",.ORDIALO G) | |
7217 | "RTN","ORW DXM3",17,0 ) | |
7218 | S STRCNT= $$VALCOUNT ("STRENGTH ",.ORDIALO G) | |
7219 | "RTN","ORW DXM3",18,0 ) | |
7220 | S SOLCNT= $$VALCOUNT ("SOLUTION ",.ORDIALO G) | |
7221 | "RTN","ORW DXM3",19,0 ) | |
7222 | I IVTYPE' ="I",ADDCN T'=STRCNT S RESULT=1 | |
7223 | "RTN","ORW DXM3",20,0 ) | |
7224 | I IVTYPE= "I" D | |
7225 | "RTN","ORW DXM3",21,0 ) | |
7226 | .I ADDCNT =0,SOLCNT> 0 Q | |
7227 | "RTN","ORW DXM3",22,0 ) | |
7228 | .I ADDCNT =0 S RESUL T=1 Q | |
7229 | "RTN","ORW DXM3",23,0 ) | |
7230 | .I ADDCNT '=STRCNT S RESULT=1 Q | |
7231 | "RTN","ORW DXM3",24,0 ) | |
7232 | Q RESULT | |
7233 | "RTN","ORW DXM3",25,0 ) | |
7234 | ; | |
7235 | "RTN","ORW DXM3",26,0 ) | |
7236 | IVADFCHK(O RDIALOG) ; | |
7237 | "RTN","ORW DXM3",27,0 ) | |
7238 | ; This li ne tag che cks to see if there are the sa me number of values | |
7239 | "RTN","ORW DXM3",28,0 ) | |
7240 | ;for ADDI TIVE and A dditive Fr equency. T his also c hecks to s ee if | |
7241 | "RTN","ORW DXM3",29,0 ) | |
7242 | ;the valu e assigned to ADDFRE Q is one o f the thre e possible values | |
7243 | "RTN","ORW DXM3",30,0 ) | |
7244 | ;All Bags , 1 bag/da y, See Com ments. If See Commen ts it also checks | |
7245 | "RTN","ORW DXM3",31,0 ) | |
7246 | ;for text in the co mment sect ion. | |
7247 | "RTN","ORW DXM3",32,0 ) | |
7248 | N ADDCNT, ADDFCNT,AD DFREQ,COMM ENT,FREQ,I NST,RESULT | |
7249 | "RTN","ORW DXM3",33,0 ) | |
7250 | S ADDCNT= $$VALCOUNT ("ADDITIVE ",.ORDIALO G) | |
7251 | "RTN","ORW DXM3",34,0 ) | |
7252 | S ADDFCNT =$$VALCOUN T("ADDITIV E FREQUENC Y",.ORDIAL OG) | |
7253 | "RTN","ORW DXM3",35,0 ) | |
7254 | I ADDCNT' =ADDFCNT Q 0 | |
7255 | "RTN","ORW DXM3",36,0 ) | |
7256 | S ADDFREQ =$O(^ORD(1 01.41,"AB" ,"OR GTX A DDITIVE FR EQUENCY"," ")) | |
7257 | "RTN","ORW DXM3",37,0 ) | |
7258 | S COMMENT =$O(^ORD(1 01.41,"AB" ,"OR GTX W ORD PROCES SING 1","" )) | |
7259 | "RTN","ORW DXM3",38,0 ) | |
7260 | I +$G(ADD FREQ)'>0 Q 0 | |
7261 | "RTN","ORW DXM3",39,0 ) | |
7262 | S INST=0, RESULT=1 | |
7263 | "RTN","ORW DXM3",40,0 ) | |
7264 | F S INST =$O(ORDIAL OG(ADDFREQ ,INST)) Q: INST'>0!(R ESULT=0) D | |
7265 | "RTN","ORW DXM3",41,0 ) | |
7266 | .S FREQ=$ $ADDFRQCV^ ORMBLDP1($ G(ORDIALOG (ADDFREQ,I NST)),"O") | |
7267 | "RTN","ORW DXM3",42,0 ) | |
7268 | .I FREQ=" A"!(FREQ=1 ) Q | |
7269 | "RTN","ORW DXM3",43,0 ) | |
7270 | .I FREQ=" " S RESULT =0 Q | |
7271 | "RTN","ORW DXM3",44,0 ) | |
7272 | .I FREQ=" S",'$L($G( ORDIALOG(C OMMENT,1)) ) S RESULT =0 Q | |
7273 | "RTN","ORW DXM3",45,0 ) | |
7274 | Q RESULT | |
7275 | "RTN","ORW DXM3",46,0 ) | |
7276 | ; | |
7277 | "RTN","ORW DXM3",47,0 ) | |
7278 | KEYVAR(DLG ) ; Parse entry act ion for ke y variable s & return in string | |
7279 | "RTN","ORW DXM3",48,0 ) | |
7280 | ; RV=Coll Tp^Samp^Sp ec^CollDt^ Urg^Sched^ NoComm^NoD iag^NoProv ^NoRsn | |
7281 | "RTN","ORW DXM3",49,0 ) | |
7282 | N XCODE,R V,POS,Z | |
7283 | "RTN","ORW DXM3",50,0 ) | |
7284 | S XCODE=$ G(^ORD(101 .41,DLG,3) ),RV="" | |
7285 | "RTN","ORW DXM3",51,0 ) | |
7286 | I '$L(XCO DE) Q "" | |
7287 | "RTN","ORW DXM3",52,0 ) | |
7288 | S POS=$F( XCODE,"LRF ZX=") I POS S $P( RV,U,1)=$$ VALUE(XCOD E,POS) | |
7289 | "RTN","ORW DXM3",53,0 ) | |
7290 | S POS=$F( XCODE,"LRF SAMP=") I POS S $P( RV,U,2)=$$ VALUE(XCOD E,POS) | |
7291 | "RTN","ORW DXM3",54,0 ) | |
7292 | S POS=$F( XCODE,"LRF SPEC=") I POS S $P( RV,U,3)=$$ VALUE(XCOD E,POS) | |
7293 | "RTN","ORW DXM3",55,0 ) | |
7294 | S POS=$F( XCODE,"LRF DATE=") I POS S $P( RV,U,4)=$$ VALUE(XCOD E,POS) | |
7295 | "RTN","ORW DXM3",56,0 ) | |
7296 | S POS=$F( XCODE,"LRF URG=") I POS S $P( RV,U,5)=$$ VALUE(XCOD E,POS) | |
7297 | "RTN","ORW DXM3",57,0 ) | |
7298 | S POS=$F( XCODE,"LRF SCH=") I POS S $P( RV,U,6)=$$ VALUE(XCOD E,POS) | |
7299 | "RTN","ORW DXM3",58,0 ) | |
7300 | S POS=$F( XCODE,"PSJ NOPC=") I POS S $P( RV,U,7)=$$ VALUE(XCOD E,POS) | |
7301 | "RTN","ORW DXM3",59,0 ) | |
7302 | S POS=$F( XCODE,"GMR CNOPD=") I POS S $P( RV,U,8)=$$ VALUE(XCOD E,POS) | |
7303 | "RTN","ORW DXM3",60,0 ) | |
7304 | S POS=$F( XCODE,"GMR CNOAT=") I POS S $P( RV,U,9)=$$ VALUE(XCOD E,POS) | |
7305 | "RTN","ORW DXM3",61,0 ) | |
7306 | S POS=$F( XCODE,"GMR CREAF=") I POS S $P( RV,U,10)=$ $VALUE(XCO DE,POS) | |
7307 | "RTN","ORW DXM3",62,0 ) | |
7308 | S POS=$F( XCODE,"ORF ORGET=") I POS D | |
7309 | "RTN","ORW DXM3",63,0 ) | |
7310 | . ; need to change this so th at it is e xecuted in SETKEYV s o | |
7311 | "RTN","ORW DXM3",64,0 ) | |
7312 | . ; that it is exec uted each time menu is revisit ed | |
7313 | "RTN","ORW DXM3",65,0 ) | |
7314 | . N ORFOR GET S ORFO RGET=$$VAL UE(XCODE,P OS) | |
7315 | "RTN","ORW DXM3",66,0 ) | |
7316 | . I ORFOR GET K ^TMP ("ORECALL" ,$J,+ORFOR GET) | |
7317 | "RTN","ORW DXM3",67,0 ) | |
7318 | . E K ^T MP("ORECAL L",$J) | |
7319 | "RTN","ORW DXM3",68,0 ) | |
7320 | Q RV | |
7321 | "RTN","ORW DXM3",69,0 ) | |
7322 | VALUE(STR, BEG) ; Ret urn value of "var=" (copied fr om ORCONVR T) | |
7323 | "RTN","ORW DXM3",70,0 ) | |
7324 | N X,Y,I S X=$E(STR, BEG,999),Y ="" | |
7325 | "RTN","ORW DXM3",71,0 ) | |
7326 | S:$E(X)=" """ X=$E(X ,2,999) ; strip lead ing " | |
7327 | "RTN","ORW DXM3",72,0 ) | |
7328 | F I=1:1:$ L(X) S Z=$ E(X,I) Q:( Z=",")!(Z= " ")!(Z="" "") S Y=Y _Z | |
7329 | "RTN","ORW DXM3",73,0 ) | |
7330 | Q $TR(Y,U ,"") | |
7331 | "RTN","ORW DXM3",74,0 ) | |
7332 | ; | |
7333 | "RTN","ORW DXM3",75,0 ) | |
7334 | SETKEYV(X) ; Se t the key variables based on c ontents of X | |
7335 | "RTN","ORW DXM3",76,0 ) | |
7336 | I $L($P(X ,U,1)) S LRFZX=$P(X ,U,1) | |
7337 | "RTN","ORW DXM3",77,0 ) | |
7338 | I $L($P(X ,U,2)) S LRFSAMP=$P (X,U,2) | |
7339 | "RTN","ORW DXM3",78,0 ) | |
7340 | I $L($P(X ,U,3)) S LRFSPEC=$P (X,U,3) | |
7341 | "RTN","ORW DXM3",79,0 ) | |
7342 | I $L($P(X ,U,4)) S LRFDATE=$P (X,U,4) | |
7343 | "RTN","ORW DXM3",80,0 ) | |
7344 | I $L($P(X ,U,5)) S LRFURG=$P( X,U,5) | |
7345 | "RTN","ORW DXM3",81,0 ) | |
7346 | I $L($P(X ,U,6)) S LRFSCH=$P( X,U,6) | |
7347 | "RTN","ORW DXM3",82,0 ) | |
7348 | I $L($P(X ,U,7)) S PSJNOPC=$P (X,U,7) | |
7349 | "RTN","ORW DXM3",83,0 ) | |
7350 | I $L($P(X ,U,8)) S GMRCNOPD=$ P(X,U,8) | |
7351 | "RTN","ORW DXM3",84,0 ) | |
7352 | I $L($P(X ,U,9)) S GMRCNOAT=$ P(X,U,9) | |
7353 | "RTN","ORW DXM3",85,0 ) | |
7354 | I $L($P(X ,U,10)) S GMRCREAF=$ P(X,U,10) | |
7355 | "RTN","ORW DXM3",86,0 ) | |
7356 | Q | |
7357 | "RTN","ORW DXM3",87,0 ) | |
7358 | DLGINFO(IE N,MODE) ; return informatio n about a dialog | |
7359 | "RTN","ORW DXM3",88,0 ) | |
7360 | ; IEN=Dlg IEN or ORI FN, MODE=0 :Dlg,1:Cop y,2:Change | |
7361 | "RTN","ORW DXM3",89,0 ) | |
7362 | ; RESULT= DlgIEN^Dlg Type^FormI D^DGrp | |
7363 | "RTN","ORW DXM3",90,0 ) | |
7364 | ; If MODE ="1;T",don 't check " PS MEDS" f or transfe r order | |
7365 | "RTN","ORW DXM3",91,0 ) | |
7366 | ; PSMDGP= 1: Unit/Do se Group | |
7367 | "RTN","ORW DXM3",92,0 ) | |
7368 | ; PSMDGP= 2: OutPati ent Group | |
7369 | "RTN","ORW DXM3",93,0 ) | |
7370 | N X0,DLGI EN,TYP,FID ,DGRP,PSMD GP,ISXF | |
7371 | "RTN","ORW DXM3",94,0 ) | |
7372 | S PSMDGP= 0,ISXF="" | |
7373 | "RTN","ORW DXM3",95,0 ) | |
7374 | S ISXF=$P (MODE,";", 2) | |
7375 | "RTN","ORW DXM3",96,0 ) | |
7376 | S MODE=+M ODE | |
7377 | "RTN","ORW DXM3",97,0 ) | |
7378 | S DLGIEN= IEN I MODE ,(ISXF'="T ") D | |
7379 | "RTN","ORW DXM3",98,0 ) | |
7380 | . S DLGIE N=+$P($G(^ OR(100,+IE N,0)),U,5) | |
7381 | "RTN","ORW DXM3",99,0 ) | |
7382 | . I $P(^O RD(101.41, DLGIEN,0), U)="PS MED S" D | |
7383 | "RTN","ORW DXM3",100, 0) | |
7384 | . . N PTC AT S PTCAT =$P($G(^OR (100,+IEN, 0)),U,12) | |
7385 | "RTN","ORW DXM3",101, 0) | |
7386 | . . I PTC AT="I" S D LGIEN=$O(^ ORD(101.41 ,"B","PSJ OR PAT OE" ,0)),PSMDG P=1 | |
7387 | "RTN","ORW DXM3",102, 0) | |
7388 | . . I PTC AT="O" S D LGIEN=$O(^ ORD(101.41 ,"B","PSO OERR",0)), PSMDGP=2 | |
7389 | "RTN","ORW DXM3",103, 0) | |
7390 | I MODE,(I SXF="T") S DLGIEN=+$ P($G(^OR(1 00,+IEN,0) ),U,5) | |
7391 | "RTN","ORW DXM3",104, 0) | |
7392 | S X0=$G(^ ORD(101.41 ,DLGIEN,0) ),TYP=$P(X 0,U,4),DGR P=$P(X0,U, 5) | |
7393 | "RTN","ORW DXM3",105, 0) | |
7394 | I MODE S DGRP=+$P($ G(^OR(100, +IEN,0)),U ,11) | |
7395 | "RTN","ORW DXM3",106, 0) | |
7396 | ;JD NEW S TART 11/13 /02 | |
7397 | "RTN","ORW DXM3",107, 0) | |
7398 | I DLGIEN= $O(^ORD(10 1.41,"B"," PSJ OR PAT OE",0)) S PSMDGP=1 | |
7399 | "RTN","ORW DXM3",108, 0) | |
7400 | I DLGIEN= $O(^ORD(10 1.41,"B"," PSO OERR", 0)) S PSMD GP=2 | |
7401 | "RTN","ORW DXM3",109, 0) | |
7402 | ;JD NEW E ND 11/13/0 2 | |
7403 | "RTN","ORW DXM3",110, 0) | |
7404 | ; for cop y or chang e, if the base dialo g has chan ged, use i t's info | |
7405 | "RTN","ORW DXM3",111, 0) | |
7406 | I MODE,$G (ORDIALOG) ,(+DLGIEN' =+ORDIALOG ),(PSMDGP= 0) D | |
7407 | "RTN","ORW DXM3",112, 0) | |
7408 | . S DLGIE N=+ORDIALO G,DGRP=$P( ^ORD(101.4 1,+ORDIALO G,0),U,5) | |
7409 | "RTN","ORW DXM3",113, 0) | |
7410 | D FORMID^ ORWDXM(.FI D,DLGIEN) | |
7411 | "RTN","ORW DXM3",114, 0) | |
7412 | Q DLGIEN_ U_TYP_U_FI D_U_DGRP | |
7413 | "RTN","ORW DXM3",115, 0) | |
7414 | ; | |
7415 | "RTN","ORW DXM3",116, 0) | |
7416 | CHKDSBL(LS T,ID,MODE) ; return message i f dialog d isabled | |
7417 | "RTN","ORW DXM3",117, 0) | |
7418 | ; ID=DlgI EN or ORIF N, MODE=0: Dialog,1:C opy,2:Chan ge | |
7419 | "RTN","ORW DXM3",118, 0) | |
7420 | ; LST=QL_ REJECT + d isabled me ssage or u nchanged | |
7421 | "RTN","ORW DXM3",119, 0) | |
7422 | N PKG | |
7423 | "RTN","ORW DXM3",120, 0) | |
7424 | S DLGIEN= +ID I MODE S DLGIEN= +$P($G(^OR (100,+ID,0 )),U,5) | |
7425 | "RTN","ORW DXM3",121, 0) | |
7426 | S X0=$G(^ ORD(101.41 ,DLGIEN,0) ),X=$P(X0, U,3) | |
7427 | "RTN","ORW DXM3",122, 0) | |
7428 | I '$L(X), ($P(X0,U,4 )="Q") D ; check de fault dial og | |
7429 | "RTN","ORW DXM3",123, 0) | |
7430 | . S DLGIE N=+$$DEFDL G^ORWDXQ($ P(X0,U,5)) | |
7431 | "RTN","ORW DXM3",124, 0) | |
7432 | . S X=$P( $G(^ORD(10 1.41,DLGIE N,0)),U,3) | |
7433 | "RTN","ORW DXM3",125, 0) | |
7434 | I $L(X) D | |
7435 | "RTN","ORW DXM3",126, 0) | |
7436 | . I MODE D GETTXT^O RWORR(.LST ,ID) S LST (.6)="",LS T(.7)="Can not "_$S(M ODE=1:"Cop y",1:"Chan ge")_" -" | |
7437 | "RTN","ORW DXM3",127, 0) | |
7438 | . S LST(0 )="8^0",LS T(.5)="Dia log Disabl ed: "_X | |
7439 | "RTN","ORW DXM3",128, 0) | |
7440 | S PKG=$P( X0,"^",7) I PKG]"",$ P($G(^DIC( 9.4,PKG,0) ),"^",2)=" SD",'$$PAT CH^XPDUTL( "SD*5.3*67 1") S LST( 0)="8^0",L ST(.5)="Di alog Disab led: VSE p atch SD*5. 3*671 not installed" | |
7441 | "RTN","ORW DXM3",129, 0) | |
7442 | Q | |
7443 | "RTN","ORW DXM3",130, 0) | |
7444 | CHKVACT(LS T,ID,MODE, ORNP) ; r eturn mess age if act ion not va lid | |
7445 | "RTN","ORW DXM3",131, 0) | |
7446 | ; ID=DlgI EN or ORIF N, MODE=0: Dialog,1:C opy,2:Chan ge | |
7447 | "RTN","ORW DXM3",132, 0) | |
7448 | ; LST=QL_ REJECT + i nvalid act ion messag e or uncha nged | |
7449 | "RTN","ORW DXM3",133, 0) | |
7450 | Q:'MODE ; not an a ction on a n order | |
7451 | "RTN","ORW DXM3",134, 0) | |
7452 | N X,ACT S ACT=$S(MO DE=1:"RW", MODE=2:"XX ",1:"") | |
7453 | "RTN","ORW DXM3",135, 0) | |
7454 | D VALID^O RWDXA(.X,I D,ACT,ORNP ) | |
7455 | "RTN","ORW DXM3",136, 0) | |
7456 | I $L(X) D GETTXT^OR WORR(.LST, ID) D | |
7457 | "RTN","ORW DXM3",137, 0) | |
7458 | . S LST(0 )="8^0",LS T(.5)=X,LS T(.6)="",L ST(.7)="Ca nnot "_$S( MODE=1:"Co py",1:"Cha nge")_" -" | |
7459 | "RTN","ORW DXM3",138, 0) | |
7460 | Q | |
7461 | "RTN","ORW DXM3",139, 0) | |
7462 | CHKCOPY(LS T,ID,FLDS) ; return message i f can't co py this or der | |
7463 | "RTN","ORW DXM3",140, 0) | |
7464 | ; ID=ORIF N;ACT FLDS =EventType in 7th pi ece | |
7465 | "RTN","ORW DXM3",141, 0) | |
7466 | ; LST=QL_ REJECT + c annot copy message o r unchange d | |
7467 | "RTN","ORW DXM3",142, 0) | |
7468 | I "^A^D^T ^"'[(U_$E( $P(FLDS,U, 7))_U) Q ; not eve nt delayed | |
7469 | "RTN","ORW DXM3",143, 0) | |
7470 | N PKG S P KG=$P($G(^ OR(100,+ID ,0)),U,14) | |
7471 | "RTN","ORW DXM3",144, 0) | |
7472 | S PKG=$$N MSP^ORCD(P KG) I PKG= "OR"!(PKG= "PS") Q ; xfer me ds, generi cs | |
7473 | "RTN","ORW DXM3",145, 0) | |
7474 | N ORWCAT S ORWCAT=$ P($G(^OR(1 00,+ID,0)) ,U,12) | |
7475 | "RTN","ORW DXM3",146, 0) | |
7476 | I ORWCAT= "I",("^A^T ^"[(U_$E($ P(FLDS,U,7 ))_U)) Q ; admit, xfer inpt | |
7477 | "RTN","ORW DXM3",147, 0) | |
7478 | I ORWCAT= "O",$E($P( FLDS,U,7)) ="D" Q ; dischar ge outpt | |
7479 | "RTN","ORW DXM3",148, 0) | |
7480 | D GETTXT^ ORWORR(.LS T,ID) | |
7481 | "RTN","ORW DXM3",149, 0) | |
7482 | I ORWCAT= "I" S LST( .5)="inpat ient order to outpat ient -" | |
7483 | "RTN","ORW DXM3",150, 0) | |
7484 | I ORWCAT= "O" S LST( .5)="outpa tient orde r to inpat ient -" | |
7485 | "RTN","ORW DXM3",151, 0) | |
7486 | S:$D(LST( .5)) LST(. 5)="Cannot copy the following "_LST(.5) | |
7487 | "RTN","ORW DXM3",152, 0) | |
7488 | S LST(0)= "8^0",LST( .7)="" | |
7489 | "RTN","ORW DXM3",153, 0) | |
7490 | Q | |
7491 | "RTN","ORW DXM3",154, 0) | |
7492 | BLD4CHG(LS T,ID,FLDS) ; build responses for an edi t | |
7493 | "RTN","ORW DXM3",155, 0) | |
7494 | ; ID=ORIF N;ACT FLDS =unused ri ght now | |
7495 | "RTN","ORW DXM3",156, 0) | |
7496 | ; LST(0)= Qlvl^RespI D(XOrderID )^DlgIEN^D lgType^For mID^DGrp | |
7497 | "RTN","ORW DXM3",157, 0) | |
7498 | N OIDX,OI ,CNT | |
7499 | "RTN","ORW DXM3",158, 0) | |
7500 | S (OI,OID X,CNT)=0 | |
7501 | "RTN","ORW DXM3",159, 0) | |
7502 | S:$D(^OR( 100,+ID,4. 5,"ID","OR DERABLE")) OIDX=$O(^ OR(100,+ID ,4.5,"ID", "ORDERABLE ",0)) | |
7503 | "RTN","ORW DXM3",160, 0) | |
7504 | I $D(^OR( 100,+ID,4. 5,OIDX)) D | |
7505 | "RTN","ORW DXM3",161, 0) | |
7506 | . F S CN T=$O(^OR(1 00,+ID,4.5 ,OIDX,CNT) ) Q:'CNT D | |
7507 | "RTN","ORW DXM3",162, 0) | |
7508 | . . S OI= ^(CNT) D V ALDOI | |
7509 | "RTN","ORW DXM3",163, 0) | |
7510 | I +LST(0) =8 S LST(. 5)="You ca n not chan ge this or der." Q | |
7511 | "RTN","ORW DXM3",164, 0) | |
7512 | S LST(0)= "0^X"_ID_U _$$DLGINFO (+ID,2) | |
7513 | "RTN","ORW DXM3",165, 0) | |
7514 | S $P(LST( 0),U,4)="X " | |
7515 | "RTN","ORW DXM3",166, 0) | |
7516 | Q | |
7517 | "RTN","ORW DXM3",167, 0) | |
7518 | GETIVTYP() ; | |
7519 | "RTN","ORW DXM3",168, 0) | |
7520 | N RESULT, TYPEIEN | |
7521 | "RTN","ORW DXM3",169, 0) | |
7522 | S RESULT= "" | |
7523 | "RTN","ORW DXM3",170, 0) | |
7524 | S TYPEIEN =$O(^ORD(1 01.41,"B", "OR GTX IV TYPE","") ) I TYPEIE N'>0 Q RES ULT | |
7525 | "RTN","ORW DXM3",171, 0) | |
7526 | S RESULT= $G(ORDIALO G(TYPEIEN, 1)) | |
7527 | "RTN","ORW DXM3",172, 0) | |
7528 | Q RESULT | |
7529 | "RTN","ORW DXM3",173, 0) | |
7530 | ; | |
7531 | "RTN","ORW DXM3",174, 0) | |
7532 | VALDOI ; V alidate th e Orderabl e Items | |
7533 | "RTN","ORW DXM3",175, 0) | |
7534 | N ORQUIT, ORPS | |
7535 | "RTN","ORW DXM3",176, 0) | |
7536 | I $G(^ORD (101.43,OI ,.1)),^(.1 )'>$$NOW^X LFDT D | |
7537 | "RTN","ORW DXM3",177, 0) | |
7538 | . S ORQUI T=1 | |
7539 | "RTN","ORW DXM3",178, 0) | |
7540 | . S LST(0 )="8^0" | |
7541 | "RTN","ORW DXM3",179, 0) | |
7542 | I $D(ORQU IT) Q:ORQU IT | |
7543 | "RTN","ORW DXM3",180, 0) | |
7544 | S ORPS=$G (^ORD(101. 43,+OI,"PS ")) | |
7545 | "RTN","ORW DXM3",181, 0) | |
7546 | I $P(ORPS ,U,1,4)="0 ^0^0^0",($ P(ORPS,U,7 )=0) S LST (0)="8^0" | |
7547 | "RTN","ORW DXM3",182, 0) | |
7548 | Q | |
7549 | "RTN","ORW DXM3",183, 0) | |
7550 | VERDUR(ORD IALOG) ; | |
7551 | "RTN","ORW DXM3",184, 0) | |
7552 | ;check fo r duration value if a THEN con junation i s used | |
7553 | "RTN","ORW DXM3",185, 0) | |
7554 | N CONJ,CO NVALUE,DUR ,I,SUCC | |
7555 | "RTN","ORW DXM3",186, 0) | |
7556 | S SUCC=1 | |
7557 | "RTN","ORW DXM3",187, 0) | |
7558 | S CONJ=$$ PTR^ORCDPS 1("AND/THE N") | |
7559 | "RTN","ORW DXM3",188, 0) | |
7560 | S DUR=$$P TR^ORCDPS1 ("DURATION ") | |
7561 | "RTN","ORW DXM3",189, 0) | |
7562 | S I=0 F S I=$O(ORD IALOG(CONJ ,I)) Q:I'> 0!(SUCC=0) D | |
7563 | "RTN","ORW DXM3",190, 0) | |
7564 | . I $$UP^ XLFSTR($E( $G(ORDIALO G(CONJ,I)) ,1))="T" D | |
7565 | "RTN","ORW DXM3",191, 0) | |
7566 | . . I '$L ($G(ORDIAL OG(DUR,I)) ) S SUCC=0 | |
7567 | "RTN","ORW DXM3",192, 0) | |
7568 | Q SUCC | |
7569 | "RTN","ORW DXM3",193, 0) | |
7570 | ; | |
7571 | "RTN","ORW DXM3",194, 0) | |
7572 | VERORD(OIE N) ; | |
7573 | "RTN","ORW DXM3",195, 0) | |
7574 | N IFN,INF USE,INFUID ,ODG,ODP,A SSIV,SUCC, TYPE | |
7575 | "RTN","ORW DXM3",196, 0) | |
7576 | S SUCC=0, IFN=ORDIAL OG | |
7577 | "RTN","ORW DXM3",197, 0) | |
7578 | S ODP=+$P ($G(^ORD(1 01.41,+IFN ,0)),U,7), ODG=+$P($G (^(0)),U,5 ) | |
7579 | "RTN","ORW DXM3",198, 0) | |
7580 | S ODP=$$G ET1^DIQ(9. 4,+ODP_"," ,1),ODG=$P ($G(^ORD(1 00.98,ODG, 0)),U,3) | |
7581 | "RTN","ORW DXM3",199, 0) | |
7582 | I ODP'["P S" Q 1 | |
7583 | "RTN","ORW DXM3",200, 0) | |
7584 | I ODP="PS H" Q 1 | |
7585 | "RTN","ORW DXM3",201, 0) | |
7586 | ;check in fusion rat e for IV Q O | |
7587 | "RTN","ORW DXM3",202, 0) | |
7588 | I ODG="IV RX"!(ODG= "TPN") D Q SUCC | |
7589 | "RTN","ORW DXM3",203, 0) | |
7590 | .S TYPE=$ $GETIVTYP | |
7591 | "RTN","ORW DXM3",204, 0) | |
7592 | .I TYPE=" " | |
7593 | "RTN","ORW DXM3",205, 0) | |
7594 | .S PASSIV =$$IVRTECH K | |
7595 | "RTN","ORW DXM3",206, 0) | |
7596 | .I PASSIV =0 | |
7597 | "RTN","ORW DXM3",207, 0) | |
7598 | .S INFUID =$O(^ORD(1 01.41,"B", "OR GTX IN FUSION RAT E",0)) | |
7599 | "RTN","ORW DXM3",208, 0) | |
7600 | .S INFUSE =$G(ORDIAL OG(INFUID, 1)) | |
7601 | "RTN","ORW DXM3",209, 0) | |
7602 | .S SUCC=$ $VALINF(TY PE,INFUSE) | |
7603 | "RTN","ORW DXM3",210, 0) | |
7604 | .I SUCC=0 Q | |
7605 | "RTN","ORW DXM3",211, 0) | |
7606 | .I TYPE=" C" S SUCC= $$IVADFCHK (.ORDIALOG ) | |
7607 | "RTN","ORW DXM3",212, 0) | |
7608 | I (ODP="P SJ")!(ODP= "PSO"),ODG '="IV RX", ODG'="TPN" S SUCC=$$ VERDUR(.OR DIALOG) | |
7609 | "RTN","ORW DXM3",213, 0) | |
7610 | Q SUCC | |
7611 | "RTN","ORW DXM3",214, 0) | |
7612 | ; | |
7613 | "RTN","ORW DXM3",215, 0) | |
7614 | VALINF(TYP E,INFUSE) ; | |
7615 | "RTN","ORW DXM3",216, 0) | |
7616 | N SUCC | |
7617 | "RTN","ORW DXM3",217, 0) | |
7618 | S SUCC=0 | |
7619 | "RTN","ORW DXM3",218, 0) | |
7620 | I TYPE="I " D Q SUC C | |
7621 | "RTN","ORW DXM3",219, 0) | |
7622 | .I INFUSE ="" S SUCC =1 Q | |
7623 | "RTN","ORW DXM3",220, 0) | |
7624 | .I $TR(IN FUSE,"abcd efghijklmn opqrstuvwx yz","ABCDE FGHIJKLMNO PQRSTUVWXY Z")["INFUS E OVER" S SUCC=1 Q | |
7625 | "RTN","ORW DXM3",221, 0) | |
7626 | .I $L(INF USE)>4 Q | |
7627 | "RTN","ORW DXM3",222, 0) | |
7628 | Q 1 | |
7629 | "RTN","ORW DXM3",223, 0) | |
7630 | ; | |
7631 | "RTN","ORW DXM3",224, 0) | |
7632 | VALQO(IFN) ;Check to see if it 's a good QO med | |
7633 | "RTN","ORW DXM3",225, 0) | |
7634 | ;If it's an IV QO: check if i nfusion ra te entered | |
7635 | "RTN","ORW DXM3",226, 0) | |
7636 | ;If it's an UD QO: check if d osage ente red | |
7637 | "RTN","ORW DXM3",227, 0) | |
7638 | ;regular order trea ted as goo d QO | |
7639 | "RTN","ORW DXM3",228, 0) | |
7640 | ; | |
7641 | "RTN","ORW DXM3",229, 0) | |
7642 | I IFN[";" ,($$UPCTCH K^ORWDXA(+ IFN)) Q 0 | |
7643 | "RTN","ORW DXM3",230, 0) | |
7644 | I $P($G(^ ORD(101.41 ,IFN,0)),U ,4)'="Q" Q 1 | |
7645 | "RTN","ORW DXM3",231, 0) | |
7646 | N ODP,ODG ,INFUID,IN FUSE,DSAGE ID,SUCC,PA SSIV,TYPE, PRIORID,DO NEID,OK | |
7647 | "RTN","ORW DXM3",232, 0) | |
7648 | S SUCC=0 | |
7649 | "RTN","ORW DXM3",233, 0) | |
7650 | S ODP=+$P ($G(^ORD(1 01.41,IFN, 0)),U,7),O DG=+$P($G( ^(0)),U,5) | |
7651 | "RTN","ORW DXM3",234, 0) | |
7652 | S ODP=$$G ET1^DIQ(9. 4,+ODP_"," ,1),ODG=$P ($G(^ORD(1 00.98,ODG, 0)),U,3) | |
7653 | "RTN","ORW DXM3",235, 0) | |
7654 | I ODP'["P S" Q 1 | |
7655 | "RTN","ORW DXM3",236, 0) | |
7656 | I ODP="PS H" Q 1 | |
7657 | "RTN","ORW DXM3",237, 0) | |
7658 | ;check fo r DONE urg ency/prior ity on Out patient QO | |
7659 | "RTN","ORW DXM3",238, 0) | |
7660 | I ODG="O RX" D Q:' OK 0 | |
7661 | "RTN","ORW DXM3",239, 0) | |
7662 | . S OK=1, PRIORID=$O (^ORD(101. 41,"B","OR GTX URGEN CY",0)) Q: 'PRIORID | |
7663 | "RTN","ORW DXM3",240, 0) | |
7664 | . S DONEI D=$O(^ORD( 101.42,"B" ,"DONE",0) ) Q:'DONEI D | |
7665 | "RTN","ORW DXM3",241, 0) | |
7666 | . I $G(OR DIALOG(PRI ORID,1))=D ONEID S OK =0 | |
7667 | "RTN","ORW DXM3",242, 0) | |
7668 | ;check in fusion rat e for IV Q O | |
7669 | "RTN","ORW DXM3",243, 0) | |
7670 | I ODG="IV RX"!(ODG= "TPN") D | |
7671 | "RTN","ORW DXM3",244, 0) | |
7672 | . S INFUI D=$O(^ORD( 101.41,"B" ,"OR GTX I NFUSION RA TE",0)) | |
7673 | "RTN","ORW DXM3",245, 0) | |
7674 | . S TYPE= $$GETIVTYP | |
7675 | "RTN","ORW DXM3",246, 0) | |
7676 | . I TYPE= "" Q | |
7677 | "RTN","ORW DXM3",247, 0) | |
7678 | . I $D(OR DIALOG(INF UID,1)) D | |
7679 | "RTN","ORW DXM3",248, 0) | |
7680 | . . I TYP E="I" D Q | |
7681 | "RTN","ORW DXM3",249, 0) | |
7682 | . . . S I NFUSE=$G(O RDIALOG(IN FUID,1)) | |
7683 | "RTN","ORW DXM3",250, 0) | |
7684 | . . . I I NFUSE="" Q | |
7685 | "RTN","ORW DXM3",251, 0) | |
7686 | . . . I I NFUSE["INF USE OVER" S SUCC=1 Q | |
7687 | "RTN","ORW DXM3",252, 0) | |
7688 | . . . I $ L(INFUSE)> 4 Q | |
7689 | "RTN","ORW DXM3",253, 0) | |
7690 | . . . I + INFUSE>0 S INFUSE="I NFUSE OVER "_INFUSE_ " Minutes" | |
7691 | "RTN","ORW DXM3",254, 0) | |
7692 | . . . S O RDIALOG(IN FUID,1)=IN FUSE,SUCC= 1 | |
7693 | "RTN","ORW DXM3",255, 0) | |
7694 | . . S SUC C=1 | |
7695 | "RTN","ORW DXM3",256, 0) | |
7696 | . ; addit ive freque ncy check/ infusion r ate checks for conti nuous orde rs | |
7697 | "RTN","ORW DXM3",257, 0) | |
7698 | . I TYPE= "C" D I S UCC=0 Q | |
7699 | "RTN","ORW DXM3",258, 0) | |
7700 | . . I $D( ORDIALOG(I NFUID,1)) S SUCC=1 I SUCC=0 Q | |
7701 | "RTN","ORW DXM3",259, 0) | |
7702 | . . S SUC C=$$IVADFC HK(.ORDIAL OG) | |
7703 | "RTN","ORW DXM3",260, 0) | |
7704 | . I SUCC= 0 Q | |
7705 | "RTN","ORW DXM3",261, 0) | |
7706 | . I '$D(O RDIALOG(IN FUID,1)),T YPE="I" S SUCC=1 | |
7707 | "RTN","ORW DXM3",262, 0) | |
7708 | . S PASSI V=$$IVRTEC HK | |
7709 | "RTN","ORW DXM3",263, 0) | |
7710 | . I SUCC= 0 Q | |
7711 | "RTN","ORW DXM3",264, 0) | |
7712 | . I PASSI V=0 S SUCC =0 | |
7713 | "RTN","ORW DXM3",265, 0) | |
7714 | . I SUCC= 1,$$ISMISS FL(.ORDIAL OG,TYPE)=1 S SUCC=0 | |
7715 | "RTN","ORW DXM3",266, 0) | |
7716 | ;check do sage for U D QO | |
7717 | "RTN","ORW DXM3",267, 0) | |
7718 | I (ODP="P SJ")!(ODP= "PSO"),ODG '="IV RX", ODG'="TPN" D | |
7719 | "RTN","ORW DXM3",268, 0) | |
7720 | . S DSAGE ID=$O(^ORD (101.41,"B ","OR GTX INSTRUCTIO NS",0)) | |
7721 | "RTN","ORW DXM3",269, 0) | |
7722 | . I $D(OR DIALOG(DSA GEID,1)) S SUCC=1 | |
7723 | "RTN","ORW DXM3",270, 0) | |
7724 | . I SUCC= 0 Q | |
7725 | "RTN","ORW DXM3",271, 0) | |
7726 | . ; | |
7727 | "RTN","ORW DXM3",272, 0) | |
7728 | . S SUCC= $$VERDUR(. ORDIALOG) | |
7729 | "RTN","ORW DXM3",273, 0) | |
7730 | ; | |
7731 | "RTN","ORW DXM3",274, 0) | |
7732 | I SUCC=1, $P($G(^ORD (101.41,IF N,5)),U,8) D | |
7733 | "RTN","ORW DXM3",275, 0) | |
7734 | .N COMMID ,WPCNT | |
7735 | "RTN","ORW DXM3",276, 0) | |
7736 | .S COMMID =$O(^ORD(1 01.41,"B", "OR GTX WO RD PROCESS ING 1",0)) | |
7737 | "RTN","ORW DXM3",277, 0) | |
7738 | .S COMMID =$O(^ORD(1 01.41,IFN, 6,"D",COMM ID,0)) | |
7739 | "RTN","ORW DXM3",278, 0) | |
7740 | .I COMMID S WPCNT=0 F S WPCN T=$O(^ORD( 101.41,IFN ,6,COMMID, 2,WPCNT)) Q:'WPCNT!( 'SUCC) D | |
7741 | "RTN","ORW DXM3",279, 0) | |
7742 | ..I ^ORD( 101.41,IFN ,6,COMMID, 2,WPCNT,0) ["^" S SUC C=0 | |
7743 | "RTN","ORW DXM3",280, 0) | |
7744 | Q SUCC | |
7745 | "RTN","ORW DXM3",281, 0) | |
7746 | ; | |
7747 | "RTN","ORW DXM3",282, 0) | |
7748 | IVRTECHK() ; | |
7749 | "RTN","ORW DXM3",283, 0) | |
7750 | N RTIEN,R TVALUE,RES ULT | |
7751 | "RTN","ORW DXM3",284, 0) | |
7752 | N CNT,NUM ,ORDERIDS, OIIEN,OTYP E,ROUTE | |
7753 | "RTN","ORW DXM3",285, 0) | |
7754 | S CNT=0,R ESULT=0 | |
7755 | "RTN","ORW DXM3",286, 0) | |
7756 | S RTIEN=+ $P($G(ORDI ALOG("B"," ROUTE")),U ,2) I RTIE N'>0 Q RES ULT | |
7757 | "RTN","ORW DXM3",287, 0) | |
7758 | S RTVALUE =+$G(ORDIA LOG(RTIEN, 1)) I RTVA LUE'>0 Q R ESULT | |
7759 | "RTN","ORW DXM3",288, 0) | |
7760 | F OTYPE=" SOLUTION", "ADDITIVE" D | |
7761 | "RTN","ORW DXM3",289, 0) | |
7762 | .S OIIEN= +$P($G(ORD IALOG("B", OTYPE)),U, 2) I OIIEN >0 D | |
7763 | "RTN","ORW DXM3",290, 0) | |
7764 | ..S NUM=0 F S NUM= $O(ORDIALO G(OIIEN,NU M)) Q:NUM' >0 I +$G( ORDIALOG(O IIEN,NUM)) >0 D | |
7765 | "RTN","ORW DXM3",291, 0) | |
7766 | ...S CNT= CNT+1,ORDE RIDS(CNT)= ORDIALOG(O IIEN,NUM) | |
7767 | "RTN","ORW DXM3",292, 0) | |
7768 | I $D(ORDE RIDS)=0 Q | |
7769 | "RTN","ORW DXM3",293, 0) | |
7770 | S ROUTE=$ $IVQOVAL^O RWDPS33(.O RDERIDS,RT VALUE) | |
7771 | "RTN","ORW DXM3",294, 0) | |
7772 | I ROUTE=" " S ORDIAL OG(RTIEN,1 )=ROUTE | |
7773 | "RTN","ORW DXM3",295, 0) | |
7774 | I ROUTE'= "" S RESUL T=1 | |
7775 | "RTN","ORW DXM3",296, 0) | |
7776 | ;K ^TMP($ J,"ORWDXM3 IVRTECHK" ) | |
7777 | "RTN","ORW DXM3",297, 0) | |
7778 | ;D ALL^PS S51P2(RTVA LUE,,,,"OR WDXM3 IVRT ECHK") | |
7779 | "RTN","ORW DXM3",298, 0) | |
7780 | ;I +^TMP( $J,"ORWDXM 3 IVRTECHK ",RTVALUE, 6)'=1 S OR DIALOG(RTI EN,1)="",R ESULT=0 | |
7781 | "RTN","ORW DXM3",299, 0) | |
7782 | ;K ^TMP($ J,"ORWDXM3 IVRTECHK" ) | |
7783 | "RTN","ORW DXM3",300, 0) | |
7784 | Q RESULT | |
7785 | "RTN","ORW DXM3",301, 0) | |
7786 | ; | |
7787 | "RTN","ORW DXM3",302, 0) | |
7788 | ISUDQO(ORY ,DLGID) ;T rue: is un it dose qu ick order | |
7789 | "RTN","ORW DXM3",303, 0) | |
7790 | S ORY=0 | |
7791 | "RTN","ORW DXM3",304, 0) | |
7792 | Q:'$D(^OR D(101.41,D LGID,0)) | |
7793 | "RTN","ORW DXM3",305, 0) | |
7794 | N CLODGRP ,CLIVDGRP, UDGRP1,UDG RP2,DLGTYP ,DLGGRP | |
7795 | "RTN","ORW DXM3",306, 0) | |
7796 | S UDGRP1= $O(^ORD(10 0.98,"B"," UD RX",0)) | |
7797 | "RTN","ORW DXM3",307, 0) | |
7798 | S UDGRP2= $O(^ORD(10 0.98,"B"," I RX",0)) | |
7799 | "RTN","ORW DXM3",308, 0) | |
7800 | S CLODGRP =$O(^ORD(1 00.98,"B", "CLINIC ME DICATIONS" ,"")) | |
7801 | "RTN","ORW DXM3",309, 0) | |
7802 | S CLIVDGR P=$O(^ORD( 100.98,"B" ,"CLINIC I NFUSIONS", "")) | |
7803 | "RTN","ORW DXM3",310, 0) | |
7804 | S DLGTYP= $P($G(^ORD (101.41,DL GID,0)),U, 4) | |
7805 | "RTN","ORW DXM3",311, 0) | |
7806 | S DLGGRP= $P($G(^ORD (101.41,DL GID,0)),U, 5) | |
7807 | "RTN","ORW DXM3",312, 0) | |
7808 | I (DLGTYP ="Q"),((DL GGRP=UDGRP 1)!(DLGGRP =UDGRP2)!( DLGGRP=CLO DGRP)!(DLG GRP=CLIVDG RP)) S ORY =1 | |
7809 | "RTN","ORW DXM3",313, 0) | |
7810 | Q | |
7811 | "RTN","ORW DXM3",314, 0) | |
7812 | ; | |
7813 | "RTN","ORW DXM3",315, 0) | |
7814 | SDRTCVER(O RDIALOG) ; | |
7815 | "RTN","ORW DXM3",316, 0) | |
7816 | ;Return t o Clinic Q O verifier | |
7817 | "RTN","ORW DXM3",317, 0) | |
7818 | I +$$VAL^ ORCD("NUMB ER OF APPO INTMENTS") >1,+$$VAL^ ORCD("INTE RVAL")<1 Q 0 | |
7819 | "RTN","ORW DXM3",318, 0) | |
7820 | I +$$VAL^ ORCD("NUMB ER OF APPO INTMENTS") =1,+$$VAL^ ORCD("INTE RVAL")>0 Q 0 | |
7821 | "RTN","ORW DXM3",319, 0) | |
7822 | Q 1 | |
7823 | "RTN","ORW DXM3",320, 0) | |
7824 | ; | |
7825 | "RTN","ORW DXM4") | |
7826 | 0^5^B43793 101 | |
7827 | "RTN","ORW DXM4",1,0) | |
7828 | ORWDXM4 ; SLC/KCM - Order Dial ogs, Menus ;05/09/17 ;05/10/17 07:48 | |
7829 | "RTN","ORW DXM4",2,0) | |
7830 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**1 0,85,215,2 96,280,394 ,350,434** ;Dec 17, 1 997;Build 31 | |
7831 | "RTN","ORW DXM4",3,0) | |
7832 | ; | |
7833 | "RTN","ORW DXM4",4,0) | |
7834 | SETUP ; -- setup dia log (conti nued from ORWDXM1) | |
7835 | "RTN","ORW DXM4",5,0) | |
7836 | ; if x fer med or der, setup ORDIALOG differentl y | |
7837 | "RTN","ORW DXM4",6,0) | |
7838 | I ORWMODE ,$$ISMED(O RIT),$$CHG STS(ORCAT, ORIT) D ME DXFER Q | |
7839 | "RTN","ORW DXM4",7,0) | |
7840 | ; get base dialo g (based o n display group) & l ocation of responses | |
7841 | "RTN","ORW DXM4",8,0) | |
7842 | I ORWMODE D | |
7843 | "RTN","ORW DXM4",9,0) | |
7844 | . S ORDG= $P(^OR(100 ,+ORIT,0), U,11),ORDI ALOG=+$P(^ (0),U,5) | |
7845 | "RTN","ORW DXM4",10,0 ) | |
7846 | . S RSPRE F="^OR(100 ,"_+ORIT_" ,4.5)" | |
7847 | "RTN","ORW DXM4",11,0 ) | |
7848 | E D | |
7849 | "RTN","ORW DXM4",12,0 ) | |
7850 | . N X0 S X0=$G(^ORD (101.41,OR IT,0)) | |
7851 | "RTN","ORW DXM4",13,0 ) | |
7852 | . S ORDIA LOG=$S($P( X0,U,4)="D ":ORIT,1:0 ) | |
7853 | "RTN","ORW DXM4",14,0 ) | |
7854 | . S ORDG= $P(X0,U,5) Q:'ORDG | |
7855 | "RTN","ORW DXM4",15,0 ) | |
7856 | . I 'ORDI ALOG S ORD IALOG=+$$D EFDLG^ORWD XQ(ORDG) | |
7857 | "RTN","ORW DXM4",16,0 ) | |
7858 | . S RSPRE F="^ORD(10 1.41,"_ORI T_",6)" | |
7859 | "RTN","ORW DXM4",17,0 ) | |
7860 | ; setu p the ORDI ALOG array | |
7861 | "RTN","ORW DXM4",18,0 ) | |
7862 | D GETDLG^ ORCD(ORDIA LOG) | |
7863 | "RTN","ORW DXM4",19,0 ) | |
7864 | D GETORDE R^ORCD(RSP REF) | |
7865 | "RTN","ORW DXM4",20,0 ) | |
7866 | Q | |
7867 | "RTN","ORW DXM4",21,0 ) | |
7868 | SETUPS ; - - setup fo r specific types of dialogs (c ontinued f rom ORWDXM 1) | |
7869 | "RTN","ORW DXM4",22,0 ) | |
7870 | ; pharmac y uses ORC AT to know order pac kage | |
7871 | "RTN","ORW DXM4",23,0 ) | |
7872 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSO OERR ",0)) S OR CAT="O" | |
7873 | "RTN","ORW DXM4",24,0 ) | |
7874 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSJ OR P AT OE",0)) D | |
7875 | "RTN","ORW DXM4",25,0 ) | |
7876 | . I ORCAT ="O",'ORIM O S ORWPSW RG="" ; no t auto-ack , pt not i npt | |
7877 | "RTN","ORW DXM4",26,0 ) | |
7878 | . S ORCAT ="I" | |
7879 | "RTN","ORW DXM4",27,0 ) | |
7880 | I ORCAT=" O",$D(OREV ENT("EFFEC TIVE")),(O RDG=+$O(^O RD(100.98, "B","O RX" ,0))) D | |
7881 | "RTN","ORW DXM4",28,0 ) | |
7882 | . S ORDIA LOG($O(^OR D(101.41," B",X,0)),1 )=OREVENT( "EFFECTIVE ") | |
7883 | "RTN","ORW DXM4",29,0 ) | |
7884 | ;p394 for ce interac tive dialo g for imag ing QO for female of child-bea ring age. | |
7885 | "RTN","ORW DXM4",30,0 ) | |
7886 | N ORRAORD S ORRAORD =0 ;set is radiology flag to f alse (0) | |
7887 | "RTN","ORW DXM4",31,0 ) | |
7888 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"RA OERR EXAM",0)) D | |
7889 | "RTN","ORW DXM4",32,0 ) | |
7890 | . N ORPRM PT1,ORPRMP T2,ORCODE S ORRAORD= 1 | |
7891 | "RTN","ORW DXM4",33,0 ) | |
7892 | . Q:($G(O RTYPE)'="Q ")!($G(ORS EX)'="F") | |
7893 | "RTN","ORW DXM4",34,0 ) | |
7894 | . S ORPRM PT1=$O(^OR D(101.41," B","OR GTX PREGNANT" ,0)),ORPRM PT2=$P($G( ORDIALOG(O RPRMPT1)), "^") | |
7895 | "RTN","ORW DXM4",35,0 ) | |
7896 | . S ORCOD E=$G(^ORD( 101.41,ORD IALOG,10,O RPRMPT2,7) ) N Y S Y= "Y" X ORCO DE K ORCOD E | |
7897 | "RTN","ORW DXM4",36,0 ) | |
7898 | . S:Y="Y" ORWPSWRG= "" ; | |
7899 | "RTN","ORW DXM4",37,0 ) | |
7900 | I ORRAORD D RA^ORWD XM2 G XENV | |
7901 | "RTN","ORW DXM4",38,0 ) | |
7902 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"LR OTHER LAB TESTS ",0)) D LR^ORWDXM2 G XENV | |
7903 | "RTN","ORW DXM4",39,0 ) | |
7904 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"FHW1",0) ) D DO^ORWDXM2 G XENV | |
7905 | "RTN","ORW DXM4",40,0 ) | |
7906 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"FHW2",0) ) D EL^ORWDXM2 G XENV | |
7907 | "RTN","ORW DXM4",41,0 ) | |
7908 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSJ OR P AT OE",0)) D UD^ORWDXM2 G XENV | |
7909 | "RTN","ORW DXM4",42,0 ) | |
7910 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSJ OR C LINIC OE", 0)) D UD^ORWD XM2 G XENV | |
7911 | "RTN","ORW DXM4",43,0 ) | |
7912 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSJI OR PAT FLUID OE",0)) D IV^ORWDXM2 G XENV | |
7913 | "RTN","ORW DXM4",44,0 ) | |
7914 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"CLINIC O R PAT FLUI D OE",0)) D IV^ORWDX M2 G XENV | |
7915 | "RTN","ORW DXM4",45,0 ) | |
7916 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSO OERR ",0)) D OP^ORWDXM2 G XENV | |
7917 | "RTN","ORW DXM4",46,0 ) | |
7918 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"PSO SUPP LY",0)) D OP^ORWDXM2 G XENV | |
7919 | "RTN","ORW DXM4",47,0 ) | |
7920 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"PS MEDS" ,0)) D PS^ORWDPS3 G XENV | |
7921 | "RTN","ORW DXM4",48,0 ) | |
7922 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"VBEC BLO OD BANK",0 )) D VB^ORWDXM4 G XENV | |
7923 | "RTN","ORW DXM4",49,0 ) | |
7924 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"SD RTC", 0)) D RTC^ORWDS D1 G XENV | |
7925 | "RTN","ORW DXM4",50,0 ) | |
7926 | I ORDIALO G=$O(^ORD( 101.41,"B" ,"GMRAOR A LLERGY ENT ER/EDIT",0 )) S ORQUI T=1 | |
7927 | "RTN","ORW DXM4",51,0 ) | |
7928 | XENV ; end case | |
7929 | "RTN","ORW DXM4",52,0 ) | |
7930 | Q | |
7931 | "RTN","ORW DXM4",53,0 ) | |
7932 | MEDXFER ; -- setup O RDIALOG fo r a med th at is tran sferred (f rom SETUP) | |
7933 | "RTN","ORW DXM4",54,0 ) | |
7934 | ; | |
7935 | "RTN","ORW DXM4",55,0 ) | |
7936 | ; use ORW DPS3 if OR *3*94 inst alled | |
7937 | "RTN","ORW DXM4",56,0 ) | |
7938 | I ORWP94 G MEDXFER^ ORWDPS3 | |
7939 | "RTN","ORW DXM4",57,0 ) | |
7940 | ; | |
7941 | "RTN","ORW DXM4",58,0 ) | |
7942 | N UDLG,FD LG,ODLG,DL G,OI K ^TM P("PS",$J) | |
7943 | "RTN","ORW DXM4",59,0 ) | |
7944 | S UDLG=$O (^ORD(101. 41,"AB","P SJ OR PAT OE",0)) | |
7945 | "RTN","ORW DXM4",60,0 ) | |
7946 | S FDLG=$O (^ORD(101. 41,"AB","P SJI OR PAT FLUID OE" ,0)) | |
7947 | "RTN","ORW DXM4",61,0 ) | |
7948 | S ODLG=$O (^ORD(101. 41,"AB","P SO OERR",0 )) | |
7949 | "RTN","ORW DXM4",62,0 ) | |
7950 | S DLG=$P( $G(^OR(100 ,+ORIT,0)) ,U,5) | |
7951 | "RTN","ORW DXM4",63,0 ) | |
7952 | S ORDIALO G=$S(+DLG= UDLG:ODLG, +DLG=ODLG: UDLG,+DLG= FDLG:FDLG, 1:0) | |
7953 | "RTN","ORW DXM4",64,0 ) | |
7954 | I 'ORDIAL OG D SETER R(ORIT,"In complete O rder Recor d") Q | |
7955 | "RTN","ORW DXM4",65,0 ) | |
7956 | S ORDG=+$ P(^ORD(101 .41,ORDIAL OG,0),U,5) | |
7957 | "RTN","ORW DXM4",66,0 ) | |
7958 | D GETDLG^ ORCD(ORDIA LOG) | |
7959 | "RTN","ORW DXM4",67,0 ) | |
7960 | D GETORDE R^ORCD("^O R(100,"_+O RIT_",4.5) ") | |
7961 | "RTN","ORW DXM4",68,0 ) | |
7962 | S OI=$$VA L^ORCD("ME DICATION") | |
7963 | "RTN","ORW DXM4",69,0 ) | |
7964 | I '$$MEDO K(OI,ORCAT ) D SETERR (ORIT,"Thi s may not be ordered as an "_$ S(ORCAT="I ":"in",1:" out")_"pat ient drug. ") Q | |
7965 | "RTN","ORW DXM4",70,0 ) | |
7966 | I $G(^ORD (101.43,OI ,.1)),(^(. 1)<$$NOW^X LFDT) D SE TERR(ORIT, "This may no longer be ordered .") Q | |
7967 | "RTN","ORW DXM4",71,0 ) | |
7968 | K ORDIALO G($$PTR("D ISPENSE DR UG"),1) | |
7969 | "RTN","ORW DXM4",72,0 ) | |
7970 | K ORDIALO G($$PTR("W ORD PROCES SING 1"),1 ) | |
7971 | "RTN","ORW DXM4",73,0 ) | |
7972 | I ORDIALO G=ODLG D I N2OUT ; c ould call IN^ORCMED except fo r writes | |
7973 | "RTN","ORW DXM4",74,0 ) | |
7974 | I ORDIALO G=UDLG D O UT2IN ; c ould call OUT^ORCMED except fo r writes | |
7975 | "RTN","ORW DXM4",75,0 ) | |
7976 | Q | |
7977 | "RTN","ORW DXM4",76,0 ) | |
7978 | IN2OUT ; - - make inp atient res ponses int o outpatie nt | |
7979 | "RTN","ORW DXM4",77,0 ) | |
7980 | N I,DDRUG ,PKGID,DOS E | |
7981 | "RTN","ORW DXM4",78,0 ) | |
7982 | S DOSE=$G (ORDIALOG( $$PTR("INS TRUCTIONS" ),1)) | |
7983 | "RTN","ORW DXM4",79,0 ) | |
7984 | F I="INST RUCTIONS", "UNITS/DOS E","FREE T EXT","DISP ENSE DRUG" K ORDIALO G($$PTR(I) ,1) | |
7985 | "RTN","ORW DXM4",80,0 ) | |
7986 | S PKGID=$ G(^OR(100, +ORIT,4))_ ";"_$P(^(0 ),U,12) | |
7987 | "RTN","ORW DXM4",81,0 ) | |
7988 | D OEL^PSO ORRL(+ORVP ,PKGID) S DDRUG=$G(^ TMP("PS",$ J,"DD",1,0 )) | |
7989 | "RTN","ORW DXM4",82,0 ) | |
7990 | I $P(DDRU G,U,3) S O RDIALOG($$ PTR("DISPE NSE DRUG") ,1)=$P(DDR UG,U,3) | |
7991 | "RTN","ORW DXM4",83,0 ) | |
7992 | ; keep instructi ons if IV med, other wise use u nits retur ned | |
7993 | "RTN","ORW DXM4",84,0 ) | |
7994 | I $P($G(^ ORD(101.43 ,OI,"PS")) ,U)=2 S OR DIALOG($$P TR("INSTRU CTIONS"),1 )=DOSE | |
7995 | "RTN","ORW DXM4",85,0 ) | |
7996 | E S:$P(D DRUG,U,2) ORDIALOG($ $PTR("INST RUCTIONS") ,1)=$P(DDR UG,U,2) | |
7997 | "RTN","ORW DXM4",86,0 ) | |
7998 | ; chan ge orderab le item if new order able item returned | |
7999 | "RTN","ORW DXM4",87,0 ) | |
8000 | I $P(DDRU G,U,4),$P( DDRUG,U,4) '=+$P($G(^ ORD(101.43 ,OI,0)),U, 2) D | |
8001 | "RTN","ORW DXM4",88,0 ) | |
8002 | . S OI=+$ O(^ORD(101 .43,"ID",+ $P(DDRUG,U ,4)_";99PS P",0)) | |
8003 | "RTN","ORW DXM4",89,0 ) | |
8004 | . S:OI OR DIALOG($$P TR("ORDERA BLE ITEM") ,1)=OI | |
8005 | "RTN","ORW DXM4",90,0 ) | |
8006 | Q | |
8007 | "RTN","ORW DXM4",91,0 ) | |
8008 | OUT2IN ; m ake outpat ient respo nses into inpatient | |
8009 | "RTN","ORW DXM4",92,0 ) | |
8010 | N ORP,ORI ,PROMPT,PK GID,DDRUG, ONE | |
8011 | "RTN","ORW DXM4",93,0 ) | |
8012 | D CHANGED ^ORCDPS("X FR") ; Kil l extra va lues not i n inpt dia log | |
8013 | "RTN","ORW DXM4",94,0 ) | |
8014 | S PKGID=$ G(^OR(100, +ORIT,4))_ ";"_$P(^(0 ),U,12) | |
8015 | "RTN","ORW DXM4",95,0 ) | |
8016 | D OEL^PSO ORRL(+ORVP ,PKGID) S DDRUG=$G(^ TMP("PS",$ J,"DD",1,0 )) | |
8017 | "RTN","ORW DXM4",96,0 ) | |
8018 | S:$P(DDRU G,U,3) ORD IALOG($$PT R("DISPENS E DRUG"),1 )=$P(DDRUG ,U,3) | |
8019 | "RTN","ORW DXM4",97,0 ) | |
8020 | I $P(DDRU G,U,4),$P( DDRUG,U,4) '=+$P($G(^ ORD(101.43 ,+OI,0)),U ,2) D | |
8021 | "RTN","ORW DXM4",98,0 ) | |
8022 | . S OI=+$ O(^ORD(101 .43,"ID",+ $P(DDRUG,U ,4)_";99PS P",0)) | |
8023 | "RTN","ORW DXM4",99,0 ) | |
8024 | . S:OI OR DIALOG($$P TR("ORDERA BLE ITEM") ,1)=OI | |
8025 | "RTN","ORW DXM4",100, 0) | |
8026 | S ONE=$O( ORDIALOG($ $PTR("INST RUCTIONS") ,0)) ; fir st inst | |
8027 | "RTN","ORW DXM4",101, 0) | |
8028 | F ORP="RO UTE","SCHE DULE" D | |
8029 | "RTN","ORW DXM4",102, 0) | |
8030 | . S ORI=0 ,PROMPT=$$ PTR(ORP) | |
8031 | "RTN","ORW DXM4",103, 0) | |
8032 | . F S OR I=$O(ORDIA LOG(PROMPT ,ORI)) Q:O RI'>0 I O RDIALOG(PR OMPT,ORI)= ""!(ORI>ON E) K ORDIA LOG(PROMPT ,ORI) | |
8033 | "RTN","ORW DXM4",104, 0) | |
8034 | Q | |
8035 | "RTN","ORW DXM4",105, 0) | |
8036 | PTR(NAME) ; -- Retur ns pointer to OR GTX NAME (cop ied from O RCMED) | |
8037 | "RTN","ORW DXM4",106, 0) | |
8038 | Q +$O(^OR D(101.41," AB",$E("OR GTX "_NAM E,1,63),0) ) | |
8039 | "RTN","ORW DXM4",107, 0) | |
8040 | ; | |
8041 | "RTN","ORW DXM4",108, 0) | |
8042 | MEDOK(OI,C AT) ; re turn 1 if med may be ordered f or this pa tient cate gory | |
8043 | "RTN","ORW DXM4",109, 0) | |
8044 | N P S P=$ S(CAT="I": 1,1:2) | |
8045 | "RTN","ORW DXM4",110, 0) | |
8046 | Q $P($G(^ ORD(101.43 ,+OI,"PS") ),U,P) | |
8047 | "RTN","ORW DXM4",111, 0) | |
8048 | ; | |
8049 | "RTN","ORW DXM4",112, 0) | |
8050 | CHGSTS(ECA T,IFN) ; retu rn 1 if ou t to in or in to out | |
8051 | "RTN","ORW DXM4",113, 0) | |
8052 | N OCAT | |
8053 | "RTN","ORW DXM4",114, 0) | |
8054 | S OCAT=$P ($G(^OR(10 0,+IFN,0)) ,U,12) | |
8055 | "RTN","ORW DXM4",115, 0) | |
8056 | Q OCAT'=E CAT | |
8057 | "RTN","ORW DXM4",116, 0) | |
8058 | ; | |
8059 | "RTN","ORW DXM4",117, 0) | |
8060 | ISMED(IFN) ; re turn 1 if this is a pharmacy o rder | |
8061 | "RTN","ORW DXM4",118, 0) | |
8062 | N PKG S P KG=$P($G(^ OR(100,+IF N,0)),U,14 ) | |
8063 | "RTN","ORW DXM4",119, 0) | |
8064 | Q $$NMSP^ ORCD(PKG)= "PS" | |
8065 | "RTN","ORW DXM4",120, 0) | |
8066 | SETERR(ID, X) ; sets LST to rejecti on with er ror messag e | |
8067 | "RTN","ORW DXM4",121, 0) | |
8068 | D GETTXT^ ORWORR(.LS T,ID) | |
8069 | "RTN","ORW DXM4",122, 0) | |
8070 | S LST(0)= "8^0",LST( .5)=X,LST( .6)="" | |
8071 | "RTN","ORW DXM4",123, 0) | |
8072 | Q | |
8073 | "RTN","ORW DXM4",124, 0) | |
8074 | VB ; setup environme nt for VBE CS | |
8075 | "RTN","ORW DXM4",125, 0) | |
8076 | ; -- setu p ORTIME, ORIMTIME a rrays | |
8077 | "RTN","ORW DXM4",126, 0) | |
8078 | D GETIMES ^ORCDLR1 | |
8079 | "RTN","ORW DXM4",127, 0) | |
8080 | ; -- setu p ORCOMP, ORTEST, an d ORTAS | |
8081 | "RTN","ORW DXM4",128, 0) | |
8082 | S (ORCOMP ,ORTEST,OR TAS)="" | |
8083 | "RTN","ORW DXM4",129, 0) | |
8084 | N P,PROMP T,I,X,X0 | |
8085 | "RTN","ORW DXM4",130, 0) | |
8086 | S P=+$O(^ ORD(101.41 ,"AB","OR GTX ORDERA BLE ITEM", 0)) | |
8087 | "RTN","ORW DXM4",131, 0) | |
8088 | S I=0 F S I=$O(ORD IALOG(P,I) ) Q:I<1 S X=+$G(ORD IALOG(P,I) ) D | |
8089 | "RTN","ORW DXM4",132, 0) | |
8090 | . S X0=$G (^ORD(101. 43,X,"VB") ),X=+$P($G (^(0)),U,2 ) | |
8091 | "RTN","ORW DXM4",133, 0) | |
8092 | . I $P(X0 ,U) S ORCO MP=ORCOMP_ $S($L(ORCO MP):U,1:"" )_X Q | |
8093 | "RTN","ORW DXM4",134, 0) | |
8094 | . S ORTES T=ORTEST_$ S($L(ORTES T):U,1:"") _X | |
8095 | "RTN","ORW DXM4",135, 0) | |
8096 | . I X=2 S ORTAS=1 | |
8097 | "RTN","ORW DXM4",136, 0) | |
8098 | I '$D(ORT EST("Lab C ollSamp")) D | |
8099 | "RTN","ORW DXM4",137, 0) | |
8100 | . N I,V,T ,LC S LC=1 | |
8101 | "RTN","ORW DXM4",138, 0) | |
8102 | . F I=1:1 :$L(ORTEST ,U) S V=+$ P(ORTEST,U ,I) D Q:' LC ;no LC samp | |
8103 | "RTN","ORW DXM4",139, 0) | |
8104 | .. S T=$$ LAB60^ORCD VBEC(V) ;V BECS ID -> #60 ien | |
8105 | "RTN","ORW DXM4",140, 0) | |
8106 | .. I '$P( $G(^LAB(60 ,T,0)),U,9 ) S LC=0 Q | |
8107 | "RTN","ORW DXM4",141, 0) | |
8108 | . S ORTES T("Lab Col lSamp")=LC | |
8109 | "RTN","ORW DXM4",142, 0) | |
8110 | I '$D(ORT IME),'$D(O RIMTIME) D GETIMES^O RCDLR1 | |
8111 | "RTN","ORW DXM4",143, 0) | |
8112 | S PROMPT= $O(^ORD(10 1.41,"B"," OR GTX COL LECTION TY PE",0)) | |
8113 | "RTN","ORW DXM4",144, 0) | |
8114 | I $D(ORDI ALOG(PROMP T,1)) S OR COLLCT=ORD IALOG(PROM PT,1) I 1 | |
8115 | "RTN","ORW DXM4",145, 0) | |
8116 | E S EDIT ONLY=0,ORC OLLCT=$$CO LLTYPE^ORC DLR1 | |
8117 | "RTN","ORW DXM4",146, 0) | |
8118 | I ORCOLLC T="I" D | |
8119 | "RTN","ORW DXM4",147, 0) | |
8120 | . S PROMP T=$O(^ORD( 101.41,"B" ,"OR GTX S TART DATE/ TIME",0)) | |
8121 | "RTN","ORW DXM4",148, 0) | |
8122 | . D LRICT MOK^ORWDXM 2 | |
8123 | "RTN","ORW DXM4",149, 0) | |
8124 | Q | |
8125 | "RTN","ORW DXM4",150, 0) | |
8126 | VBASK(I) ; set the O RASK varia ble for ch ild compon ent prompt s in VBECS order | |
8127 | "RTN","ORW DXM4",151, 0) | |
8128 | I ORDIALO G'=$O(^ORD (101.41,"B ","VBEC BL OOD BANK", 0)) Q | |
8129 | "RTN","ORW DXM4",152, 0) | |
8130 | N P S P=+ $O(^ORD(10 1.41,"AB", "OR GTX OR DERABLE IT EM",0)) | |
8131 | "RTN","ORW DXM4",153, 0) | |
8132 | N OI S OI =+$G(ORDIA LOG(P,I)) | |
8133 | "RTN","ORW DXM4",154, 0) | |
8134 | I +$G(^OR D(101.43,+ $G(OI),"VB ")) S ORAS K=1 | |
8135 | "RTN","ORW DXM4",155, 0) | |
8136 | Q | |
8137 | "RTN","ORW DXM4",156, 0) | |
8138 | VBQO(IFN) ;Check to see if it' s a good V BECS QO | |
8139 | "RTN","ORW DXM4",157, 0) | |
8140 | ;regular order trea ted as goo d QO | |
8141 | "RTN","ORW DXM4",158, 0) | |
8142 | ; | |
8143 | "RTN","ORW DXM4",159, 0) | |
8144 | I $P($G(^ ORD(101.41 ,IFN,0)),U ,4)'="Q" Q 1 | |
8145 | "RTN","ORW DXM4",160, 0) | |
8146 | N ODP,ODG ,RESULT,P, TNS,I | |
8147 | "RTN","ORW DXM4",161, 0) | |
8148 | S RESULT= 0 | |
8149 | "RTN","ORW DXM4",162, 0) | |
8150 | S ODP=+$P ($G(^ORD(1 01.41,IFN, 0)),U,7),O DG=+$P($G( ^(0)),U,5) | |
8151 | "RTN","ORW DXM4",163, 0) | |
8152 | S ODP=$$G ET1^DIQ(9. 4,+ODP_"," ,1),ODG=$P ($G(^ORD(1 00.98,ODG, 0)),U,3) | |
8153 | "RTN","ORW DXM4",164, 0) | |
8154 | I ODP'["V BEC" Q 1 | |
8155 | "RTN","ORW DXM4",165, 0) | |
8156 | Q RESULT | |
8157 | "RTN","ORY 434") | |
8158 | 0^^B110365 55 | |
8159 | "RTN","ORY 434",1,0) | |
8160 | ORY434 ;IS L/JLC - EN VIRONMENT CHECK FOR CPRS VERSI ON 31A ;06 /27/17 | |
8161 | "RTN","ORY 434",2,0) | |
8162 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**4 34**;Dec 1 7, 1997;Bu ild 31 | |
8163 | "RTN","ORY 434",3,0) | |
8164 | ; | |
8165 | "RTN","ORY 434",4,0) | |
8166 | ; | |
8167 | "RTN","ORY 434",5,0) | |
8168 | Q | |
8169 | "RTN","ORY 434",6,0) | |
8170 | POST ;;SET THE MOB D LL VERSION | |
8171 | "RTN","ORY 434",7,0) | |
8172 | ;D PUT^XP AR("PKG"," OR MOB DLL VERSION", 1,"2.0.17. 0") | |
8173 | "RTN","ORY 434",8,0) | |
8174 | D PUT^XPA R("PKG","O R MOB DLL NAME",1,"O rderCom.dl l") | |
8175 | "RTN","ORY 434",9,0) | |
8176 | I $$PATCH ^XPDUTL("S D*5.3*671" ) D ADD^XP DPROT("OR EVSEND SD" ,"SD RECEI VE OR","", 1) | |
8177 | "RTN","ORY 434",10,0) | |
8178 | N TEXT | |
8179 | "RTN","ORY 434",11,0) | |
8180 | S TEXT(1) =" " | |
8181 | "RTN","ORY 434",12,0) | |
8182 | S TEXT(2) =" Adding 'Clinic S cheduling' Display G roup to" | |
8183 | "RTN","ORY 434",13,0) | |
8184 | S TEXT(3) =" the 'A ll Service s' Display Group..." | |
8185 | "RTN","ORY 434",14,0) | |
8186 | D MES^XPD UTL(.TEXT) | |
8187 | "RTN","ORY 434",15,0) | |
8188 | D SETDG | |
8189 | "RTN","ORY 434",16,0) | |
8190 | D MES^XPD UTL(" DON E") | |
8191 | "RTN","ORY 434",17,0) | |
8192 | S TEXT(1) =" " | |
8193 | "RTN","ORY 434",18,0) | |
8194 | S TEXT(2) =" Adding 'Clinic S cheduling' Display G roup to" | |
8195 | "RTN","ORY 434",19,0) | |
8196 | S TEXT(3) =" parame ter 'ORWOR CATEGORY SEQUENCE'. .." | |
8197 | "RTN","ORY 434",20,0) | |
8198 | D MES^XPD UTL(.TEXT) | |
8199 | "RTN","ORY 434",21,0) | |
8200 | D SETPAR | |
8201 | "RTN","ORY 434",22,0) | |
8202 | D MES^XPD UTL(" DON E") | |
8203 | "RTN","ORY 434",23,0) | |
8204 | ;SEND NEW NOTIFICAT ION | |
8205 | "RTN","ORY 434",24,0) | |
8206 | N ENT,EXI T,INST,ORM SG,LINE,OR I | |
8207 | "RTN","ORY 434",25,0) | |
8208 | D BMES^XP DUTL(" Lo ading para meter valu es for new notificat ion...") | |
8209 | "RTN","ORY 434",26,0) | |
8210 | S ENT="PK G.ORDER EN TRY/RESULT S REPORTIN G" | |
8211 | "RTN","ORY 434",27,0) | |
8212 | S ORI=91 D S EXIT= 0 | |
8213 | "RTN","ORY 434",28,0) | |
8214 | . F LINE= 1:1 Q:$G(E XIT) D | |
8215 | "RTN","ORY 434",29,0) | |
8216 | .. N TEXT ,ORERROR | |
8217 | "RTN","ORY 434",30,0) | |
8218 | .. S TEXT =$P($T(PAR AM+LINE)," ;;",2) | |
8219 | "RTN","ORY 434",31,0) | |
8220 | .. S INST =$P($G(^OR D(100.9,OR I,0)),U,1) | |
8221 | "RTN","ORY 434",32,0) | |
8222 | .. I $P(T EXT," ")=" ORB" D Q | |
8223 | "RTN","ORY 434",33,0) | |
8224 | ... D EN^ XPAR(ENT,$ P(TEXT,U), INST,$P(TE XT,U,2),.O RERROR) ; ICR #2336 | |
8225 | "RTN","ORY 434",34,0) | |
8226 | ... I +OR ERROR D | |
8227 | "RTN","ORY 434",35,0) | |
8228 | .... S OR MSG(1)=" " ,EXIT=2 | |
8229 | "RTN","ORY 434",36,0) | |
8230 | .... S OR MSG(2)="ER ROR: Unabl e to confi gure the n ew "_INST_ " notifica tion" | |
8231 | "RTN","ORY 434",37,0) | |
8232 | .... S OR MSG(3)="Ke rnel Param eter Tools Error #"_ +ORERROR_" : "_$P(ORE RROR,U,2) | |
8233 | "RTN","ORY 434",38,0) | |
8234 | .... D BM ES^XPDUTL( .ORMSG) | |
8235 | "RTN","ORY 434",39,0) | |
8236 | .. I TEXT ="" S EXIT =1 | |
8237 | "RTN","ORY 434",40,0) | |
8238 | D:$G(EXIT )<2 MES^XP DUTL(" Fi nished loa ding new n otificatio n values") | |
8239 | "RTN","ORY 434",41,0) | |
8240 | Q | |
8241 | "RTN","ORY 434",42,0) | |
8242 | PARAM ;PAR AMETER VAL UES TO LOA D | |
8243 | "RTN","ORY 434",43,0) | |
8244 | ;;ORB ARC HIVE PERIO D^30 | |
8245 | "RTN","ORY 434",44,0) | |
8246 | ;;ORB DEL ETE MECHAN ISM^Indivi dual Recip ient | |
8247 | "RTN","ORY 434",45,0) | |
8248 | ;;ORB FOR WARD BACKU P REVIEWER ^0 | |
8249 | "RTN","ORY 434",46,0) | |
8250 | ;;ORB FOR WARD SUPER VISOR^0 | |
8251 | "RTN","ORY 434",47,0) | |
8252 | ;;ORB FOR WARD SURRO GATES^0 | |
8253 | "RTN","ORY 434",48,0) | |
8254 | ;;ORB PRO CESSING FL AG^Disable d | |
8255 | "RTN","ORY 434",49,0) | |
8256 | ;;ORB PRO VIDER RECI PIENTS^O | |
8257 | "RTN","ORY 434",50,0) | |
8258 | ;;ORB URG ENCY^High | |
8259 | "RTN","ORY 434",51,0) | |
8260 | Q | |
8261 | "RTN","ORY 434",52,0) | |
8262 | SETDG ; | |
8263 | "RTN","ORY 434",53,0) | |
8264 | N DA,DIC, DLAYGO,ORD G,X | |
8265 | "RTN","ORY 434",54,0) | |
8266 | S ORDG=$O (^ORD(100. 98,"B","AL L SERVICES ",0)) Q:'O RDG | |
8267 | "RTN","ORY 434",55,0) | |
8268 | S X=$O(^O RD(100.98, "B","CLINI C SCHEDULI NG",0)),DA (1)=ORDG I 'X D MES^ XPDUTL(" 'Clinic Sc heduling' display gr oup not fo und") Q | |
8269 | "RTN","ORY 434",56,0) | |
8270 | I $O(^ORD (100.98,DA (1),1,"B", X,0)) D ME S^XPDUTL(" Display group alre ady attach ed") Q ; not first install - done. | |
8271 | "RTN","ORY 434",57,0) | |
8272 | S:'$D(^OR D(100.98,D A(1),1,0)) ^(0)="^10 0.981P^^" | |
8273 | "RTN","ORY 434",58,0) | |
8274 | S DIC="^O RD(100.98, "_DA(1)_", 1,",DIC(0) ="NLX",DLA YGO=100.98 | |
8275 | "RTN","ORY 434",59,0) | |
8276 | S X="CLIN IC SCHEDUL ING" D ^DI C | |
8277 | "RTN","ORY 434",60,0) | |
8278 | Q | |
8279 | "RTN","ORY 434",61,0) | |
8280 | SETPAR ; | |
8281 | "RTN","ORY 434",62,0) | |
8282 | N X | |
8283 | "RTN","ORY 434",63,0) | |
8284 | I '$D(^OR D(100.98," B","CLINIC SCHEDULIN G")) D MES ^XPDUTL(" Display g roup alrea dy attache d") Q | |
8285 | "RTN","ORY 434",64,0) | |
8286 | S X=0,X=$ O(^ORD(100 .98,"B","C LINIC SCHE DULING",X) ) Q:'X D | |
8287 | "RTN","ORY 434",65,0) | |
8288 | . D PUT^X PAR("PKG", "ORWOR CAT EGORY SEQU ENCE",135, X) | |
8289 | "RTN","ORY 434",66,0) | |
8290 | Q | |
8291 | "RTN","ORY 434",67,0) | |
8292 | SENDDLG(AN AME) ;Entr ies from 1 01.41 to s end | |
8293 | "RTN","ORY 434",68,0) | |
8294 | ;I ANAME= "OR GTX CL INIC LOCAT ION" Q 1 | |
8295 | "RTN","ORY 434",69,0) | |
8296 | I ANAME=" OR GTX SD COMMENT" Q 1 | |
8297 | "RTN","ORY 434",70,0) | |
8298 | I ANAME=" OR GTX APP T NUM" Q 1 | |
8299 | "RTN","ORY 434",71,0) | |
8300 | I ANAME=" OR GTX SCH INTERVAL" Q 1 | |
8301 | "RTN","ORY 434",72,0) | |
8302 | I ANAME=" OR GTX PRE REQ" Q 1 | |
8303 | "RTN","ORY 434",73,0) | |
8304 | I ANAME=" SD RTC" Q 1 | |
8305 | "RTN","ORY 434",74,0) | |
8306 | Q 0 | |
8307 | "UP",100,1 00.008,-1) | |
8308 | 100^8 | |
8309 | "UP",100,1 00.008,0) | |
8310 | 100.008 | |
8311 | "VER") | |
8312 | 8.0^22.2 | |
8313 | "^DD",100, 100.008,40 ,0) | |
8314 | DISPOSITIO N BY^P200' ^VA(200,^4 ;1^Q | |
8315 | "^DD",100, 100.008,40 ,3) | |
8316 | DO NOT EDI T THIS FIE LD | |
8317 | "^DD",100, 100.008,40 ,21,0) | |
8318 | ^^2^2^3170 620^ | |
8319 | "^DD",100, 100.008,40 ,21,1,0) | |
8320 | This is th e person w ho disposi tioned the order in the schedu ling packa ge. | |
8321 | "^DD",100, 100.008,40 ,21,2,0) | |
8322 | Only appli es to Sche duling ord ers. | |
8323 | "^DD",100, 100.008,40 ,"DT") | |
8324 | 3170620 | |
8325 | "^DD",100, 100.008,41 ,0) | |
8326 | DISPOSITIO N DATE/TIM E^D^^4;2^S %DT="ESTX R" D ^%DT S X=Y K:X< 1 X | |
8327 | "^DD",100, 100.008,41 ,3) | |
8328 | DO NOT EDI T THIS FIE LD | |
8329 | "^DD",100, 100.008,41 ,21,0) | |
8330 | ^^2^2^3170 620^ | |
8331 | "^DD",100, 100.008,41 ,21,1,0) | |
8332 | This is th e date/tim e a schedu ler dispos itioned an appointme nt request | |
8333 | "^DD",100, 100.008,41 ,21,2,0) | |
8334 | in the sch eduling pa ckage. Onl y applies to Return to Clinic Order. | |
8335 | "^DD",100, 100.008,41 ,"DT") | |
8336 | 3170620 | |
8337 | "^DD",100. 9,100.9,0) | |
8338 | FIELD^^2^1 3 | |
8339 | "^DD",100. 9,100.9,0, "DDA") | |
8340 | N | |
8341 | "^DD",100. 9,100.9,0, "DT") | |
8342 | 3140915 | |
8343 | "^DD",100. 9,100.9,0, "IX","B",1 00.9,.01) | |
8344 | ||
8345 | "^DD",100. 9,100.9,0, "IX","C",1 00.9,.02) | |
8346 | ||
8347 | "^DD",100. 9,100.9,0, "IX","D",1 00.9,.03) | |
8348 | ||
8349 | "^DD",100. 9,100.9,0, "NM","OE/R R NOTIFICA TIONS") | |
8350 | ||
8351 | "^DD",100. 9,100.9,0, "PT",100.2 1019,.01) | |
8352 | ||
8353 | "^DD",100. 9,100.9,0, "PT",860.2 2,3) | |
8354 | ||
8355 | "^DD",100. 9,100.9,0, "PT",21695 .2,.1) | |
8356 | ||
8357 | "^DD",100. 9,100.9,0, "PT",21695 .52,.01) | |
8358 | ||
8359 | "^DD",100. 9,100.9,0, "VRPK") | |
8360 | OR | |
8361 | "^DD",100. 9,100.9,.0 01,0) | |
8362 | NUMBER^NJ9 ,0X^^ ^K:+ X'=X!(X>99 999)!(X<1) !(X?.E1"." 1N.N)!('$$ VALNUM^ORB INPTR(X)) X | |
8363 | "^DD",100. 9,100.9,.0 01,3) | |
8364 | Enter your station n umber, fol lowed by 0 1 to 99. F or example , 66001. N umbers 1-9 999 are re served for National notificati ons only. | |
8365 | "^DD",100. 9,100.9,.0 01,21,0) | |
8366 | ^^11^11^31 21106^ | |
8367 | "^DD",100. 9,100.9,.0 01,21,1,0) | |
8368 | This is th e internal entry num ber assign ed to a no tification . Entries | |
8369 | "^DD",100. 9,100.9,.0 01,21,2,0) | |
8370 | 1 through 9999 are r eserved fo r National release b y the OE/R R | |
8371 | "^DD",100. 9,100.9,.0 01,21,3,0) | |
8372 | Notificati ons packag e. | |
8373 | "^DD",100. 9,100.9,.0 01,21,4,0) | |
8374 | ||
8375 | "^DD",100. 9,100.9,.0 01,21,5,0) | |
8376 | For local site-defin ed notific ations, th e internal entry num ber must b e | |
8377 | "^DD",100. 9,100.9,.0 01,21,6,0) | |
8378 | specific t o your VAM C in the f ollowing f ormat: | |
8379 | "^DD",100. 9,100.9,.0 01,21,7,0) | |
8380 | ||
8381 | "^DD",100. 9,100.9,.0 01,21,8,0) | |
8382 | <your stat ion number ><incremen tal notifi cation num ber 01-99> | |
8383 | "^DD",100. 9,100.9,.0 01,21,9,0) | |
8384 | ||
8385 | "^DD",100. 9,100.9,.0 01,21,10,0 ) | |
8386 | For exampl e, if your site is n umber 456, your firs t locally created | |
8387 | "^DD",100. 9,100.9,.0 01,21,11,0 ) | |
8388 | notificati on would b e 45601. | |
8389 | "^DD",100. 9,100.9,.0 01,23,0) | |
8390 | ^.001^3^3^ 3121106^^^ ^ | |
8391 | "^DD",100. 9,100.9,.0 01,23,1,0) | |
8392 | This field is used b y DHCP pac kages trig gering not ifications (Lab, MAS , etc) | |
8393 | "^DD",100. 9,100.9,.0 01,23,2,0) | |
8394 | to send th e correct message an d paramete rs to OE/R R. These numbers mu st not | |
8395 | "^DD",100. 9,100.9,.0 01,23,3,0) | |
8396 | be altered in any fa shion. | |
8397 | "^DD",100. 9,100.9,.0 01,"DT") | |
8398 | 3121026 | |
8399 | "^DD",100. 9,100.9,.0 1,0) | |
8400 | NAME^RF^^0 ;1^K:$L(X) >30!($L(X) <3)!'(X'?1 P.E) X | |
8401 | "^DD",100. 9,100.9,.0 1,1,0) | |
8402 | ^.1 | |
8403 | "^DD",100. 9,100.9,.0 1,1,1,0) | |
8404 | 100.9^B | |
8405 | "^DD",100. 9,100.9,.0 1,1,1,1) | |
8406 | S ^ORD(100 .9,"B",$E( X,1,30),DA )="" | |
8407 | "^DD",100. 9,100.9,.0 1,1,1,2) | |
8408 | K ^ORD(100 .9,"B",$E( X,1,30),DA ) | |
8409 | "^DD",100. 9,100.9,.0 1,1,2,0) | |
8410 | ^^TRIGGER^ 100.9^.02 | |
8411 | "^DD",100. 9,100.9,.0 1,1,2,1) | |
8412 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^ORD(10 0.9,D0,0)) :^(0),1:"" ) S X=$P(Y (1),U,2),X =X S DIU=X K Y S X=D IV S X="OR " X ^DD(10 0.9,.01,1, 2,1.4) | |
8413 | "^DD",100. 9,100.9,.0 1,1,2,1.4) | |
8414 | S DIH=$S($ D(^ORD(100 .9,DIV(0), 0)):^(0),1 :""),DIV=X S $P(^(0) ,U,2)=DIV, DIH=100.9, DIG=.02 D ^DICR:$O(^ DD(DIH,DIG ,1,0))>0 | |
8415 | "^DD",100. 9,100.9,.0 1,1,2,2) | |
8416 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^ORD(10 0.9,D0,0)) :^(0),1:"" ) S X=$P(Y (1),U,2),X =X S DIU=X K Y S X=D IV S X=X X ^DD(100.9 ,.01,1,2,2 .4) | |
8417 | "^DD",100. 9,100.9,.0 1,1,2,2.4) | |
8418 | S DIH=$S($ D(^ORD(100 .9,DIV(0), 0)):^(0),1 :""),DIV=X S $P(^(0) ,U,2)=DIV, DIH=100.9, DIG=.02 D ^DICR:$O(^ DD(DIH,DIG ,1,0))>0 | |
8419 | "^DD",100. 9,100.9,.0 1,1,2,"%D" ,0) | |
8420 | ^^2^2^2920 505^ | |
8421 | "^DD",100. 9,100.9,.0 1,1,2,"%D" ,1,0) | |
8422 | Automatica lly trigge r the sett ing of the PACKAGE I D field wi th "OR" | |
8423 | "^DD",100. 9,100.9,.0 1,1,2,"%D" ,2,0) | |
8424 | to indicat e ORder en try when a notificat ion is cre ated. | |
8425 | "^DD",100. 9,100.9,.0 1,1,2,"CRE ATE VALUE" ) | |
8426 | "OR" | |
8427 | "^DD",100. 9,100.9,.0 1,1,2,"DEL ETE VALUE" ) | |
8428 | OLD NAME | |
8429 | "^DD",100. 9,100.9,.0 1,1,2,"DT" ) | |
8430 | 2920505 | |
8431 | "^DD",100. 9,100.9,.0 1,1,2,"FIE LD") | |
8432 | PACKAGE ID | |
8433 | "^DD",100. 9,100.9,.0 1,3) | |
8434 | Answer mus t be 3-30 characters in length . Enter th e name of the notifi cation. T he name sh ould match the entry in the ME SSAGE TEXT field as closely as possible. | |
8435 | "^DD",100. 9,100.9,.0 1,21,0) | |
8436 | ^^4^4^2990 416^^^^ | |
8437 | "^DD",100. 9,100.9,.0 1,21,1,0) | |
8438 | This is th e name of the notifi cation. I t should m atch the t ext in the | |
8439 | "^DD",100. 9,100.9,.0 1,21,2,0) | |
8440 | MESSAGE TE XT field a s closely as possibl e (it may be an abbr eviated ve rsion | |
8441 | "^DD",100. 9,100.9,.0 1,21,3,0) | |
8442 | of the ent ry in MESS AGE TEXT.) This fie ld is disp layed to u sers when | |
8443 | "^DD",100. 9,100.9,.0 1,21,4,0) | |
8444 | selecting or reviewi ng entries in this f ile (100.9 ). | |
8445 | "^DD",100. 9,100.9,.0 1,"DT") | |
8446 | 2920505 | |
8447 | "^DD",100. 9,100.9,.0 2,0) | |
8448 | PACKAGE ID ^RFX^^0;2^ S X="OR" ; K:X[""""!( $A(X)=^ X I $D(X) K: $L(X)>20!( $L(X)<2) X | |
8449 | "^DD",100. 9,100.9,.0 2,1,0) | |
8450 | ^.1 | |
8451 | "^DD",100. 9,100.9,.0 2,1,1,0) | |
8452 | 100.9^C | |
8453 | "^DD",100. 9,100.9,.0 2,1,1,1) | |
8454 | S ^ORD(100 .9,"C",$E( X,1,30),DA )="" | |
8455 | "^DD",100. 9,100.9,.0 2,1,1,2) | |
8456 | K ^ORD(100 .9,"C",$E( X,1,30),DA ) | |
8457 | "^DD",100. 9,100.9,.0 2,1,1,"%D" ,0) | |
8458 | ^^2^2^2920 427^^ | |
8459 | "^DD",100. 9,100.9,.0 2,1,1,"%D" ,1,0) | |
8460 | This cross -reference provides a way to g roup notif ications b y package or | |
8461 | "^DD",100. 9,100.9,.0 2,1,1,"%D" ,2,0) | |
8462 | other cate gory. | |
8463 | "^DD",100. 9,100.9,.0 2,1,1,"DT" ) | |
8464 | 2910429 | |
8465 | "^DD",100. 9,100.9,.0 2,3) | |
8466 | Always ent er "OR" in this fiel d. This f ield is us ed to crea te the XQA ID field p assed to t he XQALERT entry poi nts. It w ill typica lly be the Package I D. | |
8467 | "^DD",100. 9,100.9,.0 2,5,1,0) | |
8468 | 100.9^.01^ 2 | |
8469 | "^DD",100. 9,100.9,.0 2,9) | |
8470 | ^ | |
8471 | "^DD",100. 9,100.9,.0 2,21,0) | |
8472 | ^^10^10^29 90416^^^^ | |
8473 | "^DD",100. 9,100.9,.0 2,21,1,0) | |
8474 | This entry should al ways be "O R" to indi cate the a lert (noti fication) is | |
8475 | "^DD",100. 9,100.9,.0 2,21,2,0) | |
8476 | processed by OE/RR. "OR" is s tuffed via a trigger x-ref in field .01. | |
8477 | "^DD",100. 9,100.9,.0 2,21,3,0) | |
8478 | This Packa ge ID will have ";DF N;NIEN" co ncatenated to the en d of it, t o | |
8479 | "^DD",100. 9,100.9,.0 2,21,4,0) | |
8480 | make the X QAID varia ble which is used by the XQALE RT routine to provid e a | |
8481 | "^DD",100. 9,100.9,.0 2,21,5,0) | |
8482 | unique cro ss-referen ce. The o rder entry notificat ion system will chec k | |
8483 | "^DD",100. 9,100.9,.0 2,21,6,0) | |
8484 | the New pe rson file to determi ne if this message i s already pending fo r | |
8485 | "^DD",100. 9,100.9,.0 2,21,7,0) | |
8486 | the user. If it alr eady exist s, the use r will not receive a second me ssage. | |
8487 | "^DD",100. 9,100.9,.0 2,21,8,0) | |
8488 | ||
8489 | "^DD",100. 9,100.9,.0 2,21,9,0) | |
8490 | DFN is the Patient F ile intern al entry n umber. | |
8491 | "^DD",100. 9,100.9,.0 2,21,10,0) | |
8492 | NIEN is th e Notifica tion File internal e ntry numbe r. | |
8493 | "^DD",100. 9,100.9,.0 2,"DT") | |
8494 | 2911008 | |
8495 | "^DD",100. 9,100.9,.0 3,0) | |
8496 | MESSAGE TE XT^RF^^0;3 ^K:X[""""! ($A(X)=45) X I $D(X) K:$L(X)>5 1!($L(X)<3 ) X | |
8497 | "^DD",100. 9,100.9,.0 3,1,0) | |
8498 | ^.1 | |
8499 | "^DD",100. 9,100.9,.0 3,1,1,0) | |
8500 | 100.9^D | |
8501 | "^DD",100. 9,100.9,.0 3,1,1,1) | |
8502 | S ^ORD(100 .9,"D",$E( X,1,30),DA )="" | |
8503 | "^DD",100. 9,100.9,.0 3,1,1,2) | |
8504 | K ^ORD(100 .9,"D",$E( X,1,30),DA ) | |
8505 | "^DD",100. 9,100.9,.0 3,1,1,"%D" ,0) | |
8506 | ^^1^1^2910 429^ | |
8507 | "^DD",100. 9,100.9,.0 3,1,1,"%D" ,1,0) | |
8508 | This cross reference provides a look-up based on t he Message Text. | |
8509 | "^DD",100. 9,100.9,.0 3,1,1,"DT" ) | |
8510 | 2910429 | |
8511 | "^DD",100. 9,100.9,.0 3,3) | |
8512 | Answer mus t be 3-51 characters in length . This en try is use d as the a ctual text of the no tification (MESSAGE TYPE = 'NO T') or the default t ext (MESSA GE TEXT = 'PKG'). | |
8513 | "^DD",100. 9,100.9,.0 3,21,0) | |
8514 | ^^6^6^2920 224^^^^ | |
8515 | "^DD",100. 9,100.9,.0 3,21,1,0) | |
8516 | This text will be ap pended to the Patien t last nam e and last 4 charact ers of | |
8517 | "^DD",100. 9,100.9,.0 3,21,2,0) | |
8518 | the social security number to create the order not ification text. | |
8519 | "^DD",100. 9,100.9,.0 3,21,3,0) | |
8520 | (e.g., SMI TH (4356): Unsigned orders. - Where "Uns igned orde rs." is th e | |
8521 | "^DD",100. 9,100.9,.0 3,21,4,0) | |
8522 | content of MESSAGE T EXT.) Tex t entered into this field is t he default text | |
8523 | "^DD",100. 9,100.9,.0 3,21,5,0) | |
8524 | for notifi cations wh ere the te xt message usually c omes from the packag e | |
8525 | "^DD",100. 9,100.9,.0 3,21,6,0) | |
8526 | (MESSAGE T YPE = PKG) . | |
8527 | "^DD",100. 9,100.9,.0 3,"DT") | |
8528 | 2911008 | |
8529 | "^DD",100. 9,100.9,.0 4,0) | |
8530 | MESSAGE TY PE^RS^PKG: PACKAGE PR OVIDES A V ARIABLE ME SSAGE;NOT: NOTIFICATI ON FILE PR OVIDES MES SAGE;^0;4^ Q | |
8531 | "^DD",100. 9,100.9,.0 4,3) | |
8532 | Messages c an be prov ided by th e NOTIFICA TION file where they are defin ed with th e notifica tion 'NOT' or they c an be vari able messa ges suppli ed by the package 'P KG' when t he notific ation is t riggered. | |
8533 | "^DD",100. 9,100.9,.0 4,21,0) | |
8534 | ^^1^1^2960 503^^^^ | |
8535 | "^DD",100. 9,100.9,.0 4,21,1,0) | |
8536 | MESSAGE TY PE field i s used as a flag to determine where the message te xt origina tes. If f rom the NO TIFICATION file, MES SAGE TYPE is 'NOT.' If the me ssage come s from the package, MESSAGE TY PE is 'PKG .' | |
8537 | "^DD",100. 9,100.9,.0 4,"DT") | |
8538 | 2910627 | |
8539 | "^DD",100. 9,100.9,.0 5,0) | |
8540 | ACTION FLA G^RS^I:INF ORMATION O NLY;R:RUN ROUTINE;^0 ;5^Q | |
8541 | "^DD",100. 9,100.9,.0 5,3) | |
8542 | Enter 'I' if the use r is to ta ke no foll ow-up acti on for thi s notifica tion. Ent er 'R' if the user i s to take a follow-u p action a fter viewi ng this no tification (e.g. Sig n an unsig ned order. ) | |
8543 | "^DD",100. 9,100.9,.0 5,21,0) | |
8544 | ^^7^7^2920 417^^^^ | |
8545 | "^DD",100. 9,100.9,.0 5,21,1,0) | |
8546 | This a man datory fla g used to regulate p rocessing in XQALERT processin g. | |
8547 | "^DD",100. 9,100.9,.0 5,21,2,0) | |
8548 | The flag i s set to I to indica te the not ification is for INF ORMATION O NLY - | |
8549 | "^DD",100. 9,100.9,.0 5,21,3,0) | |
8550 | no follow- up action is to be t aken. 'I' notificat ions are d eleted as each | |
8551 | "^DD",100. 9,100.9,.0 5,21,4,0) | |
8552 | user revie ws them. 'R' notifi cations ha ve a follo w-up actio n associat ed | |
8553 | "^DD",100. 9,100.9,.0 5,21,5,0) | |
8554 | with them. The user will be t aken to an other rout ine or opt ion when t hey | |
8555 | "^DD",100. 9,100.9,.0 5,21,6,0) | |
8556 | select a n otificatio n with ACT ION FLAG = R and a f ollow-up r outine/opt ion | |
8557 | "^DD",100. 9,100.9,.0 5,21,7,0) | |
8558 | is defined . | |
8559 | "^DD",100. 9,100.9,.0 5,"DT") | |
8560 | 2910627 | |
8561 | "^DD",100. 9,100.9,.0 6,0) | |
8562 | ENTRY POIN T^F^^0;6^K :$L(X)>8!( $L(X)<1) X | |
8563 | "^DD",100. 9,100.9,.0 6,3) | |
8564 | Answer mus t be 1-8 c haracters in length. This sho uld be the tag to be concatena ted with t he ROUTINE NAME (.07 ) field. It is the entry poin t for foll ow-up acti on in that routine. | |
8565 | "^DD",100. 9,100.9,.0 6,21,0) | |
8566 | ^^2^2^2920 224^^^ | |
8567 | "^DD",100. 9,100.9,.0 6,21,1,0) | |
8568 | This is an optional field used to create the XQARO U variable to be use d by | |
8569 | "^DD",100. 9,100.9,.0 6,21,2,0) | |
8570 | the XQALER T routine. This fie ld represe nts the TA G in tag^r outine. | |
8571 | "^DD",100. 9,100.9,.0 6,"DT") | |
8572 | 2910429 | |
8573 | "^DD",100. 9,100.9,.0 7,0) | |
8574 | ROUTINE NA ME^F^^0;7^ K:$L(X)>8! ($L(X)<2) X | |
8575 | "^DD",100. 9,100.9,.0 7,3) | |
8576 | Answer mus t be 2-8 c haracters in length. This is concatenat ed with th e ENTRY PO INT (.06) to create XQAROU. I t is the r outine whe re the fol low-up act ion (if an y) for thi s notifica tion is in itiated. | |
8577 | "^DD",100. 9,100.9,.0 7,21,0) | |
8578 | ^^2^2^2920 224^^^ | |
8579 | "^DD",100. 9,100.9,.0 7,21,1,0) | |
8580 | This is an optional variable i dentifying a routine or tag(fi eld .06)^r outine | |
8581 | "^DD",100. 9,100.9,.0 7,21,2,0) | |
8582 | used to cr eate XQARO U for proc essing by XQALERT. | |
8583 | "^DD",100. 9,100.9,.0 7,"DT") | |
8584 | 2910429 | |
8585 | "^DD",100. 9,100.9,1, 0) | |
8586 | NON-MENU T YPE OPTION ACTION^P1 9'^DIC(19, ^1;1^Q | |
8587 | "^DD",100. 9,100.9,1, 3) | |
8588 | This field is for fu ture enhan cements. It is curr ently (5/9 2) unused. | |
8589 | "^DD",100. 9,100.9,1, 21,0) | |
8590 | ^^5^5^2920 506^^^^ | |
8591 | "^DD",100. 9,100.9,1, 21,1,0) | |
8592 | This is an optional field used to create the varia ble XQAOPT for use | |
8593 | "^DD",100. 9,100.9,1, 21,2,0) | |
8594 | by XQALERT . It shou ld indicat e a non-me nu type op tion on th e user's | |
8595 | "^DD",100. 9,100.9,1, 21,3,0) | |
8596 | primary or secondary menu, not on the Co mmon menu. The phan tom jump | |
8597 | "^DD",100. 9,100.9,1, 21,4,0) | |
8598 | is used to navigate to the des tination o ption and will check pathway | |
8599 | "^DD",100. 9,100.9,1, 21,5,0) | |
8600 | restrictio ns in doin g so. | |
8601 | "^DD",100. 9,100.9,1, "DT") | |
8602 | 2910429 | |
8603 | "^DD",100. 9,100.9,1. 5,0) | |
8604 | RELATED PA CKAGE^F^^1 ;2^K:$L(X) >30!($L(X) <2) X | |
8605 | "^DD",100. 9,100.9,1. 5,3) | |
8606 | Answer mus t be 2-30 characters in length . Enter t he appropr iate name of the pac kage where the notif ication or iginates ( e.g., LAB, MAS, Phar macy.) | |
8607 | "^DD",100. 9,100.9,1. 5,21,0) | |
8608 | ^^1^1^2920 224^^^ | |
8609 | "^DD",100. 9,100.9,1. 5,21,1,0) | |
8610 | This field contains the name o f the pack age where the notifi cation ori ginates or is trigge red (e.g., LAB, MAS, Pharmacy. ) | |
8611 | "^DD",100. 9,100.9,1. 5,"DT") | |
8612 | 2910627 | |
8613 | "^DD",100. 9,100.9,2, 0) | |
8614 | PROCESSING FLAGS^100 .92S^^5;0 | |
8615 | "^DD",100. 9,100.9,2, 21,0) | |
8616 | ^^2^2^3140 701^ | |
8617 | "^DD",100. 9,100.9,2, 21,1,0) | |
8618 | This field tells the notificat ion system any speci al instruc tions to | |
8619 | "^DD",100. 9,100.9,2, 21,2,0) | |
8620 | follow whe n creating the notif ication. | |
8621 | "^DD",100. 9,100.9,4, 0) | |
8622 | DESCRIPTIO N^RF^^4;1^ K:$L(X)>25 0!($L(X)<3 ) X | |
8623 | "^DD",100. 9,100.9,4, 3) | |
8624 | Answer mus t be 3-250 character s in lengt h. Enter a descript ion of the notificat ion with e mphasis on what trig gers the n otificatio n and what actions d elete it. | |
8625 | "^DD",100. 9,100.9,4, 21,0) | |
8626 | ^^2^2^2950 711^^^ | |
8627 | "^DD",100. 9,100.9,4, 21,1,0) | |
8628 | This field contains free text describing the notif ication, h ow it is t rig- | |
8629 | "^DD",100. 9,100.9,4, 21,2,0) | |
8630 | gered and what actio n(s) delet e it. | |
8631 | "^DD",100. 9,100.9,4, "DT") | |
8632 | 2950424 | |
8633 | "^DD",100. 9,100.9,5, 0) | |
8634 | FOLLOW-UP TYPE^S^0:R EPORT;1:CO SIGN_PN;2: EXPIRING_O RDER;3:FLA GGED_ORDER ;4:ORDER;5 :UNLINKED; 6:NEW_CONS ULT;7:NEW_ ORDER;8:CO SIGN_ORDER ;9:ES_ORDE R;10:UNSIG N_PN;11:UN VERIFIED_M ED;^3;2^Q | |
8635 | "^DD",100. 9,100.9,5, 3) | |
8636 | Enter the follow-up code corre spond to t he notific ation's fo llow-up ac tion. If unsure, le ave blank. | |
8637 | "^DD",100. 9,100.9,5, 21,0) | |
8638 | ^^5^5^2990 412^^^^ | |
8639 | "^DD",100. 9,100.9,5, 21,1,0) | |
8640 | This field contains the type o f follow-u p action t o be taken . It is u sed | |
8641 | "^DD",100. 9,100.9,5, 21,2,0) | |
8642 | by the app lication m anaging th e follow-u p action (e.g. GUI interface) to | |
8643 | "^DD",100. 9,100.9,5, 21,3,0) | |
8644 | initiate t he proper follow-up action sep arate from the under lying data | |
8645 | "^DD",100. 9,100.9,5, 21,4,0) | |
8646 | base and a pplication layers. Example fo llow-up ty pes includ e: report, | |
8647 | "^DD",100. 9,100.9,5, 21,5,0) | |
8648 | e/s, flag. | |
8649 | "^DD",100. 9,100.9,5, 23,0) | |
8650 | ^^6^6^2990 412^^^^ | |
8651 | "^DD",100. 9,100.9,5, 23,1,0) | |
8652 | This field is basica lly a flag for the e nvironment (e.g. GUI - Delphi) | |
8653 | "^DD",100. 9,100.9,5, 23,2,0) | |
8654 | handling n otificatio n follow-u p to initi ate the ap propriate action. F or | |
8655 | "^DD",100. 9,100.9,5, 23,3,0) | |
8656 | example if the type was report , the data returned in the API call woul d be | |
8657 | "^DD",100. 9,100.9,5, 23,4,0) | |
8658 | stuffed in to a gener ic text bo x for disp lay; where as if the type was | |
8659 | "^DD",100. 9,100.9,5, 23,5,0) | |
8660 | flag, the follow-up action wou ld be to f ind and di splay all flagged or ders | |
8661 | "^DD",100. 9,100.9,5, 23,6,0) | |
8662 | for the pa tient and allow unfl agging. | |
8663 | "^DD",100. 9,100.9,5, "DT") | |
8664 | 2990412 | |
8665 | "^DD",100. 9,100.92,0 ) | |
8666 | PROCESSING FLAGS SUB -FIELD^^.0 1^1 | |
8667 | "^DD",100. 9,100.92,0 ,"DT") | |
8668 | 3140915 | |
8669 | "^DD",100. 9,100.92,0 ,"IX","B", 100.92,.01 ) | |
8670 | ||
8671 | "^DD",100. 9,100.92,0 ,"NM","PRO CESSING FL AGS") | |
8672 | ||
8673 | "^DD",100. 9,100.92,0 ,"UP") | |
8674 | 100.9 | |
8675 | "^DD",100. 9,100.92,. 01,0) | |
8676 | PROCESSING FLAG^MSX^ ONPP:GENER ATE ONE NO TIFICATION PER PATIE NT;CD:COMB INE DATA F ROM DUPLIC ATES;^0;1^ I X="ONPP" ,$P(^ORD(1 00.9,DA(1) ,0),U,6,7) ='"INDORDE R^ORB3FUP1 " K X | |
8677 | "^DD",100. 9,100.92,. 01,1,0) | |
8678 | ^.1 | |
8679 | "^DD",100. 9,100.92,. 01,1,1,0) | |
8680 | 100.92^B | |
8681 | "^DD",100. 9,100.92,. 01,1,1,1) | |
8682 | S ^ORD(100 .9,DA(1),5 ,"B",$E(X, 1,30),DA)= "" | |
8683 | "^DD",100. 9,100.92,. 01,1,1,2) | |
8684 | K ^ORD(100 .9,DA(1),5 ,"B",$E(X, 1,30),DA) | |
8685 | "^DD",100. 9,100.92,. 01,3) | |
8686 | Select the flag to c ontrol cre ation of t his notifi cation. | |
8687 | "^DD",100. 9,100.92,. 01,21,0) | |
8688 | ^^2^2^3140 701^ | |
8689 | "^DD",100. 9,100.92,. 01,21,1,0) | |
8690 | This field stores a special in struction that the n otificatio n system w ill | |
8691 | "^DD",100. 9,100.92,. 01,21,2,0) | |
8692 | follow whe n creating the notif ication. | |
8693 | "^DD",100. 9,100.92,. 01,"DT") | |
8694 | 3140915 | |
8695 | "^DD",100. 98,100.98, 0) | |
8696 | FIELD^NL^5 ^6 | |
8697 | "^DD",100. 98,100.98, 0,"DDA") | |
8698 | N | |
8699 | "^DD",100. 98,100.98, 0,"DT") | |
8700 | 3170504 | |
8701 | "^DD",100. 98,100.98, 0,"IX","AD ",100.981, .01) | |
8702 | ||
8703 | "^DD",100. 98,100.98, 0,"IX","B" ,100.98,.0 1) | |
8704 | ||
8705 | "^DD",100. 98,100.98, 0,"IX","B" ,100.98,3) | |
8706 | ||
8707 | "^DD",100. 98,100.98, 0,"NM","DI SPLAY GROU P") | |
8708 | ||
8709 | "^DD",100. 98,100.98, 0,"PT",100 ,23) | |
8710 | ||
8711 | "^DD",100. 98,100.98, 0,"PT",100 .65,.01) | |
8712 | ||
8713 | "^DD",100. 98,100.98, 0,"PT",100 .981,.01) | |
8714 | ||
8715 | "^DD",100. 98,100.98, 0,"PT",100 .995,1.1) | |
8716 | ||
8717 | "^DD",100. 98,100.98, 0,"PT",101 .41,5) | |
8718 | ||
8719 | "^DD",100. 98,100.98, 0,"PT",101 .43,5) | |
8720 | ||
8721 | "^DD",100. 98,100.98, 0,"PT",123 .5,123.01) | |
8722 | ||
8723 | "^DD",100. 98,100.98, 0,"VRPK") | |
8724 | ORDER ENTR Y/RESULTS REPORTING | |
8725 | "^DD",100. 98,100.98, .01,0) | |
8726 | NAME^RF^^0 ;1^K:X[""" "!($A(X)=4 5) X I $D( X) K:$L(X) >30!($L(X) <3)!'(X'?1 P.E) X | |
8727 | "^DD",100. 98,100.98, .01,1,0) | |
8728 | ^.1^^-1 | |
8729 | "^DD",100. 98,100.98, .01,1,1,0) | |
8730 | 100.98^B | |
8731 | "^DD",100. 98,100.98, .01,1,1,1) | |
8732 | S ^ORD(100 .98,"B",$E (X,1,30),D A)="" | |
8733 | "^DD",100. 98,100.98, .01,1,1,2) | |
8734 | K ^ORD(100 .98,"B",$E (X,1,30),D A) | |
8735 | "^DD",100. 98,100.98, .01,3) | |
8736 | ANSWER MUS T BE 3-30 CHARACTERS IN LENGTH | |
8737 | "^DD",100. 98,100.98, .01,4) | |
8738 | ||
8739 | "^DD",100. 98,100.98, .01,21,0) | |
8740 | ^^3^3^2920 224^^^^ | |
8741 | "^DD",100. 98,100.98, .01,21,1,0 ) | |
8742 | This is th e name of the displa y group fo r a partic ular kind of order. | |
8743 | "^DD",100. 98,100.98, .01,21,2,0 ) | |
8744 | The displa y group ge nerally co rresponds to a hospi tal servic e or part | |
8745 | "^DD",100. 98,100.98, .01,21,3,0 ) | |
8746 | of a servi ce. | |
8747 | "^DD",100. 98,100.98, .01,"DT") | |
8748 | 2890131 | |
8749 | "^DD",100. 98,100.98, 1,0) | |
8750 | MEMBER^100 .981P^^1;0 | |
8751 | "^DD",100. 98,100.98, 1,3) | |
8752 | Enter a di splay grou p as a mem ber. | |
8753 | "^DD",100. 98,100.98, 1,21,0) | |
8754 | ^^3^3^3161 110^ | |
8755 | "^DD",100. 98,100.98, 1,21,1,0) | |
8756 | This is a list of sp ecific dis play group s that `be long' to t he display | |
8757 | "^DD",100. 98,100.98, 1,21,2,0) | |
8758 | group list ed in the NAME field . (This i s similar to menu it ems in the | |
8759 | "^DD",100. 98,100.98, 1,21,3,0) | |
8760 | OPTION Fil e.) | |
8761 | "^DD",100. 98,100.98, 2,0) | |
8762 | MIXED NAME ^F^^0;2^K: $L(X)>30!( $L(X)<1) X | |
8763 | "^DD",100. 98,100.98, 2,3) | |
8764 | Answer mus t be 1-30 characters in length . | |
8765 | "^DD",100. 98,100.98, 2,21,0) | |
8766 | ^^3^3^2960 617^ | |
8767 | "^DD",100. 98,100.98, 2,21,1,0) | |
8768 | This field contains a mixed ca se name fo r the disp lay group. The name | |
8769 | "^DD",100. 98,100.98, 2,21,2,0) | |
8770 | should be as short a s possible without b eing obscu re. This name is | |
8771 | "^DD",100. 98,100.98, 2,21,3,0) | |
8772 | primarily intended f or use in the window s display of orders. | |
8773 | "^DD",100. 98,100.98, 2,"DT") | |
8774 | 2960617 | |
8775 | "^DD",100. 98,100.98, 3,0) | |
8776 | SHORT NAME ^F^^0;3^K: X[""""!($A (X)=45) X I $D(X) K: $L(X)>5!($ L(X)<1) X | |
8777 | "^DD",100. 98,100.98, 3,1,0) | |
8778 | ^.1 | |
8779 | "^DD",100. 98,100.98, 3,1,1,0) | |
8780 | 100.98^B^M NEMONIC | |
8781 | "^DD",100. 98,100.98, 3,1,1,1) | |
8782 | S:'$D(^ORD (100.98,"B ",$E(X,1,3 0),DA)) ^( DA)=1 | |
8783 | "^DD",100. 98,100.98, 3,1,1,2) | |
8784 | I $D(^ORD( 100.98,"B" ,$E(X,1,30 ),DA)),^(D A) K ^(DA) | |
8785 | "^DD",100. 98,100.98, 3,3) | |
8786 | ANSWER MUS T BE 1-5 C HARACTERS IN LENGTH | |
8787 | "^DD",100. 98,100.98, 3,21,0) | |
8788 | ^^2^2^2920 224^^^ | |
8789 | "^DD",100. 98,100.98, 3,21,1,0) | |
8790 | This is an abbreviat ion for th e display group to b e used in displays a nd | |
8791 | "^DD",100. 98,100.98, 3,21,2,0) | |
8792 | reports. | |
8793 | "^DD",100. 98,100.98, 3,"DT") | |
8794 | 2880308 | |
8795 | "^DD",100. 98,100.98, 4,0) | |
8796 | DEFAULT DI ALOG^P101. 41'^ORD(10 1.41,^0;4^ Q | |
8797 | "^DD",100. 98,100.98, 4,3) | |
8798 | Enter the default or dering dia log for th is display group. | |
8799 | "^DD",100. 98,100.98, 4,21,0) | |
8800 | ^^2^2^2960 815^^ | |
8801 | "^DD",100. 98,100.98, 4,21,1,0) | |
8802 | This is th e dialog t hat will b e used as the defaul t definiti on when | |
8803 | "^DD",100. 98,100.98, 4,21,2,0) | |
8804 | placing qu ick orders associate d with thi s display group. | |
8805 | "^DD",100. 98,100.98, 4,"DT") | |
8806 | 2960814 | |
8807 | "^DD",100. 98,100.98, 5,0) | |
8808 | SECURITY K EY^100.985 P^^2;0 | |
8809 | "^DD",100. 98,100.98, 5,21,0) | |
8810 | ^^2^2^3161 110^ | |
8811 | "^DD",100. 98,100.98, 5,21,1,0) | |
8812 | A list of Security K eys assign ed to a Di splay Grou p to be us ed for | |
8813 | "^DD",100. 98,100.98, 5,21,2,0) | |
8814 | validating a user's privileges when atte mpting to unflag an order. | |
8815 | "^DD",100. 98,100.981 ,0) | |
8816 | MEMBER SUB -FIELD^^.0 1^2 | |
8817 | "^DD",100. 98,100.981 ,0,"DT") | |
8818 | 2920601 | |
8819 | "^DD",100. 98,100.981 ,0,"IX","B ",100.981, .01) | |
8820 | ||
8821 | "^DD",100. 98,100.981 ,0,"NM","M EMBER") | |
8822 | ||
8823 | "^DD",100. 98,100.981 ,0,"UP") | |
8824 | 100.98 | |
8825 | "^DD",100. 98,100.981 ,.001,0) | |
8826 | SEQUENCE^N J5,1^^ ^K: +X'=X!(X>9 00)!(X<0)! (X?.E1"."2 N.N) X | |
8827 | "^DD",100. 98,100.981 ,.001,3) | |
8828 | Type a Num ber betwee n 0 and 90 0, 1 Decim al Digit | |
8829 | "^DD",100. 98,100.981 ,.001,21,0 ) | |
8830 | ^^2^2^2920 601^ | |
8831 | "^DD",100. 98,100.981 ,.001,21,1 ,0) | |
8832 | This is th e sequence of the me mber in th e display group for reporting | |
8833 | "^DD",100. 98,100.981 ,.001,21,2 ,0) | |
8834 | purposes. | |
8835 | "^DD",100. 98,100.981 ,.001,"DT" ) | |
8836 | 2920601 | |
8837 | "^DD",100. 98,100.981 ,.01,0) | |
8838 | MEMBER^MP1 00.98X^ORD (100.98,^0 ;1^S ORDDF =100.98 D TREE^ORDD1 01 | |
8839 | "^DD",100. 98,100.981 ,.01,1,0) | |
8840 | ^.1 | |
8841 | "^DD",100. 98,100.981 ,.01,1,1,0 ) | |
8842 | 100.981^B | |
8843 | "^DD",100. 98,100.981 ,.01,1,1,1 ) | |
8844 | S ^ORD(100 .98,DA(1), 1,"B",$E(X ,1,30),DA) ="" | |
8845 | "^DD",100. 98,100.981 ,.01,1,1,2 ) | |
8846 | K ^ORD(100 .98,DA(1), 1,"B",$E(X ,1,30),DA) | |
8847 | "^DD",100. 98,100.981 ,.01,1,2,0 ) | |
8848 | 100.98^AD^ MUMPS | |
8849 | "^DD",100. 98,100.981 ,.01,1,2,1 ) | |
8850 | S ^ORD(100 .98,"AD",$ E(X,1,30), DA(1),DA)= "" | |
8851 | "^DD",100. 98,100.981 ,.01,1,2,2 ) | |
8852 | K ^ORD(100 .98,"AD",$ E(X,1,30), DA(1),DA) | |
8853 | "^DD",100. 98,100.981 ,.01,1,2," %D",0) | |
8854 | ^^2^2^2971 217^^ | |
8855 | "^DD",100. 98,100.981 ,.01,1,2," %D",1,0) | |
8856 | ^ORD(100.9 8,"AD",ORM EM,ORGRP,D A) | |
8857 | "^DD",100. 98,100.981 ,.01,1,2," %D",2,0) | |
8858 | Provides b ackwards p ointer fro m member t o parent g roup. | |
8859 | "^DD",100. 98,100.981 ,.01,3) | |
8860 | Enter a di splay grou p. A disp lay group that is an ancestor may not al so be a me mber. | |
8861 | "^DD",100. 98,100.981 ,.01,4) | |
8862 | ||
8863 | "^DD",100. 98,100.981 ,.01,21,0) | |
8864 | ^^2^2^2920 224^^^ | |
8865 | "^DD",100. 98,100.981 ,.01,21,1, 0) | |
8866 | This is a display gr oup listed in the NA ME field. (This is s imilar to a | |
8867 | "^DD",100. 98,100.981 ,.01,21,2, 0) | |
8868 | menu item in the OPT ION File.) | |
8869 | "^DD",100. 98,100.981 ,.01,"DT") | |
8870 | 2890207 | |
8871 | "^DD",100. 98,100.985 ,0) | |
8872 | SECURITY K EY SUB-FIE LD^^.01^1 | |
8873 | "^DD",100. 98,100.985 ,0,"DT") | |
8874 | 3170208 | |
8875 | "^DD",100. 98,100.985 ,0,"IX","B ",100.985, .01) | |
8876 | ||
8877 | "^DD",100. 98,100.985 ,0,"NM","S ECURITY KE Y") | |
8878 | ||
8879 | "^DD",100. 98,100.985 ,0,"UP") | |
8880 | 100.98 | |
8881 | "^DD",100. 98,100.985 ,.01,0) | |
8882 | SECURITY K EY^P19.1'^ DIC(19.1,^ 0;1^Q | |
8883 | "^DD",100. 98,100.985 ,.01,1,0) | |
8884 | ^.1 | |
8885 | "^DD",100. 98,100.985 ,.01,1,1,0 ) | |
8886 | 100.985^B | |
8887 | "^DD",100. 98,100.985 ,.01,1,1,1 ) | |
8888 | S ^ORD(100 .98,DA(1), 2,"B",$E(X ,1,30),DA) ="" | |
8889 | "^DD",100. 98,100.985 ,.01,1,1,2 ) | |
8890 | K ^ORD(100 .98,DA(1), 2,"B",$E(X ,1,30),DA) | |
8891 | "^DD",100. 98,100.985 ,.01,3) | |
8892 | Enter a Se curity Key from file 19.1 to b e assigned to this D isplay Gro up | |
8893 | "^DD",100. 98,100.985 ,.01,21,0) | |
8894 | ^^2^2^3161 110^ | |
8895 | "^DD",100. 98,100.985 ,.01,21,1, 0) | |
8896 | A Security Key assig ned to thi s Display Group to b e used for | |
8897 | "^DD",100. 98,100.985 ,.01,21,2, 0) | |
8898 | validating a user's privileges when atte mpting to unflag an order. | |
8899 | "^DD",100. 98,100.985 ,.01,"DT") | |
8900 | 3161110 | |
8901 | "^DD",101. 41,101.41, 0) | |
8902 | FIELD^^99^ 30 | |
8903 | "^DD",101. 41,101.41, 0,"DDA") | |
8904 | N | |
8905 | "^DD",101. 41,101.41, 0,"DT") | |
8906 | 3170621 | |
8907 | "^DD",101. 41,101.41, 0,"IX","AB ",101.41,. 01) | |
8908 | ||
8909 | "^DD",101. 41,101.41, 0,"IX","AD ",101.412, 2) | |
8910 | ||
8911 | "^DD",101. 41,101.41, 0,"IX","AM ",101.41,9 9) | |
8912 | ||
8913 | "^DD",101. 41,101.41, 0,"IX","AM 2",101.41, 2) | |
8914 | ||
8915 | "^DD",101. 41,101.41, 0,"IX","AM 51",101.41 ,51) | |
8916 | ||
8917 | "^DD",101. 41,101.41, 0,"IX","AM 52",101.41 ,52) | |
8918 | ||
8919 | "^DD",101. 41,101.41, 0,"IX","AM M",101.412 ,.01) | |
8920 | ||
8921 | "^DD",101. 41,101.41, 0,"IX","AM M2",101.41 2,2) | |
8922 | ||
8923 | "^DD",101. 41,101.41, 0,"IX","AM M3",101.41 2,3) | |
8924 | ||
8925 | "^DD",101. 41,101.41, 0,"IX","AM M4",101.41 2,4) | |
8926 | ||
8927 | "^DD",101. 41,101.41, 0,"IX","AM M5",101.41 2,5) | |
8928 | ||
8929 | "^DD",101. 41,101.41, 0,"IX","AP KG",101.41 ,7) | |
8930 | ||
8931 | "^DD",101. 41,101.41, 0,"IX","C" ,101.41,2) | |
8932 | ||
8933 | "^DD",101. 41,101.41, 0,"NM","OR DER DIALOG ") | |
8934 | ||
8935 | "^DD",101. 41,101.41, 0,"PT",100 ,2) | |
8936 | ||
8937 | "^DD",101. 41,101.41, 0,"PT",100 ,7) | |
8938 | ||
8939 | "^DD",101. 41,101.41, 0,"PT",100 .045,.02) | |
8940 | ||
8941 | "^DD",101. 41,101.41, 0,"PT",100 .5,4) | |
8942 | ||
8943 | "^DD",101. 41,101.41, 0,"PT",100 .5,5) | |
8944 | ||
8945 | "^DD",101. 41,101.41, 0,"PT",100 .95,3) | |
8946 | ||
8947 | "^DD",101. 41,101.41, 0,"PT",100 .98,4) | |
8948 | ||
8949 | "^DD",101. 41,101.41, 0,"PT",101 .412,1) | |
8950 | ||
8951 | "^DD",101. 41,101.41, 0,"PT",101 .412,2) | |
8952 | ||
8953 | "^DD",101. 41,101.41, 0,"PT",101 .415,2) | |
8954 | ||
8955 | "^DD",101. 41,101.41, 0,"PT",101 .416,.02) | |
8956 | ||
8957 | "^DD",101. 41,101.41, 0,"PT",101 .441,.01) | |
8958 | ||
8959 | "^DD",101. 41,101.41, 0,"PT",801 .41,15) | |
8960 | ||
8961 | "^DD",101. 41,101.41, 0,"PT",801 .4118,.01) | |
8962 | ||
8963 | "^DD",101. 41,101.41, 0,"PT",800 001.05,.01 ) | |
8964 | ||
8965 | "^DD",101. 41,101.41, 0,"VRPK") | |
8966 | OR | |
8967 | "^DD",101. 41,101.41, .01,0) | |
8968 | NAME^RF^^0 ;1^K:X[""" "!($A(X)=4 5) X I $D( X) K:$L(X) >63!($L(X) <3)!'(X'?1 P.E) X | |
8969 | "^DD",101. 41,101.41, .01,1,0) | |
8970 | ^.1^^-1 | |
8971 | "^DD",101. 41,101.41, .01,1,2,0) | |
8972 | 101.41^AB | |
8973 | "^DD",101. 41,101.41, .01,1,2,1) | |
8974 | S ^ORD(101 .41,"AB",$ E(X,1,63), DA)="" | |
8975 | "^DD",101. 41,101.41, .01,1,2,2) | |
8976 | K ^ORD(101 .41,"AB",$ E(X,1,63), DA) | |
8977 | "^DD",101. 41,101.41, .01,1,2,"% D",0) | |
8978 | ^^1^1^2971 020^ | |
8979 | "^DD",101. 41,101.41, .01,1,2,"% D",1,0) | |
8980 | This is a regular in dex on the full 63 c haracters of the Nam e field. | |
8981 | "^DD",101. 41,101.41, .01,1,2,"D T") | |
8982 | 2971020 | |
8983 | "^DD",101. 41,101.41, .01,3) | |
8984 | Answer mus t be 3-63 characters in length . | |
8985 | "^DD",101. 41,101.41, .01,21,0) | |
8986 | ^^3^3^2971 219^ | |
8987 | "^DD",101. 41,101.41, .01,21,1,0 ) | |
8988 | This is th e name of the dialog ; entries that were converted from the | |
8989 | "^DD",101. 41,101.41, .01,21,2,0 ) | |
8990 | Protocol f ile will r etain the same name. Namespac ing is not required, | |
8991 | "^DD",101. 41,101.41, .01,21,3,0 ) | |
8992 | but still encouraged . | |
8993 | "^DD",101. 41,101.41, .01,"DT") | |
8994 | 2971020 | |
8995 | "^DD",101. 41,101.41, 2,0) | |
8996 | DISPLAY TE XT^FX^^0;2 ^K:$L(X)>8 0!($L(X)<3 )!($$CHKNA M^ORUTL(X) ) X | |
8997 | "^DD",101. 41,101.41, 2,1,0) | |
8998 | ^.1 | |
8999 | "^DD",101. 41,101.41, 2,1,1,0) | |
9000 | 101.41^C | |
9001 | "^DD",101. 41,101.41, 2,1,1,1) | |
9002 | S ^ORD(101 .41,"C",$$ UP^XLFSTR( $E(X,1,63) ),DA)="" | |
9003 | "^DD",101. 41,101.41, 2,1,1,2) | |
9004 | K ^ORD(101 .41,"C",$$ UP^XLFSTR( $E(X,1,63) ),DA) | |
9005 | "^DD",101. 41,101.41, 2,1,1,"DT" ) | |
9006 | 2950112 | |
9007 | "^DD",101. 41,101.41, 2,1,2,0) | |
9008 | 101.41^AM2 ^MUMPS | |
9009 | "^DD",101. 41,101.41, 2,1,2,1) | |
9010 | D REDOM^OR DD41 | |
9011 | "^DD",101. 41,101.41, 2,1,2,2) | |
9012 | D REDOM^OR DD41 | |
9013 | "^DD",101. 41,101.41, 2,1,2,"%D" ,0) | |
9014 | ^^1^1^2990 210^ | |
9015 | "^DD",101. 41,101.41, 2,1,2,"%D" ,1,0) | |
9016 | Update TIM ESTAMP whe never DISP LAY TEXT i s changed. | |
9017 | "^DD",101. 41,101.41, 2,1,2,"DT" ) | |
9018 | 2990210 | |
9019 | "^DD",101. 41,101.41, 2,3) | |
9020 | Answer mus t be 3-80 characters and canno t contain an up-arro w (^) or s emi-colon (;). | |
9021 | "^DD",101. 41,101.41, 2,21,0) | |
9022 | ^.001^1^1^ 3010913^^^ ^ | |
9023 | "^DD",101. 41,101.41, 2,21,1,0) | |
9024 | The text o f this dia log's name as it app ears on a menu or su bheader. | |
9025 | "^DD",101. 41,101.41, 2,"DT") | |
9026 | 3000823 | |
9027 | "^DD",101. 41,101.41, 3,0) | |
9028 | DISABLE^F^ ^0;3^K:$L( X)>40!($L( X)<1) X | |
9029 | "^DD",101. 41,101.41, 3,3) | |
9030 | Enter a me ssage here to disabl e this dia log, 1-40 characters in length . | |
9031 | "^DD",101. 41,101.41, 3,21,0) | |
9032 | ^^3^3^2950 112^ | |
9033 | "^DD",101. 41,101.41, 3,21,1,0) | |
9034 | This field disables use of thi s dialog w hen it con tains text . The tex t | |
9035 | "^DD",101. 41,101.41, 3,21,2,0) | |
9036 | should be a short me ssage expl aining why use of th is dialog has been | |
9037 | "^DD",101. 41,101.41, 3,21,3,0) | |
9038 | disabled, as it will be displa yed if thi s dialog i s selected . | |
9039 | "^DD",101. 41,101.41, 3,"DT") | |
9040 | 2950112 | |
9041 | "^DD",101. 41,101.41, 4,0) | |
9042 | TYPE^RS^P: prompt;D:d ialog;Q:qu ick order; O:order se t;M:menu;A :action;^0 ;4^Q | |
9043 | "^DD",101. 41,101.41, 4,3) | |
9044 | Specify a type for t his dialog . | |
9045 | "^DD",101. 41,101.41, 4,21,0) | |
9046 | ^^5^5^2950 716^^^^ | |
9047 | "^DD",101. 41,101.41, 4,21,1,0) | |
9048 | This field defines t he type of order dia log to be processed. Control | |
9049 | "^DD",101. 41,101.41, 4,21,2,0) | |
9050 | will be pa ssed to th e OE/RR Di alog Proce ssor for d ialog item s; menu ty pes | |
9051 | "^DD",101. 41,101.41, 4,21,3,0) | |
9052 | are used f or display ing and se lecting di alog items . Action types will only | |
9053 | "^DD",101. 41,101.41, 4,21,4,0) | |
9054 | execute th e entry an d exit act ions, igno ring any i tems that may exist; these | |
9055 | "^DD",101. 41,101.41, 4,21,5,0) | |
9056 | dialogs sh ould not c reate entr ies in the Orders fi le. | |
9057 | "^DD",101. 41,101.41, 4,"DT") | |
9058 | 2950716 | |
9059 | "^DD",101. 41,101.41, 5,0) | |
9060 | DISPLAY GR OUP^P100.9 8'^ORD(100 .98,^0;5^Q | |
9061 | "^DD",101. 41,101.41, 5,3) | |
9062 | Enter the display gr oup contai ning order able items defined b y this dia log. | |
9063 | "^DD",101. 41,101.41, 5,21,0) | |
9064 | ^^3^3^2950 112^ | |
9065 | "^DD",101. 41,101.41, 5,21,1,0) | |
9066 | This field determine s what dis play group this dial og has bee n defined for. | |
9067 | "^DD",101. 41,101.41, 5,21,2,0) | |
9068 | It will de fine which orderable items are selectabl e with thi s dialog, | |
9069 | "^DD",101. 41,101.41, 5,21,3,0) | |
9070 | as well as what serv ice to sen d the orde r to when it is comp lete. | |
9071 | "^DD",101. 41,101.41, 5,"DT") | |
9072 | 2950112 | |
9073 | "^DD",101. 41,101.41, 6,0) | |
9074 | SIGNATURE REQUIRED^S ^0:NONE;1: ORELSE;2:O RES;^0;6^Q | |
9075 | "^DD",101. 41,101.41, 6,3) | |
9076 | Enter the OR key req uired to s ign orders created b y this dia log | |
9077 | "^DD",101. 41,101.41, 6,21,0) | |
9078 | ^^6^6^2970 318^^ | |
9079 | "^DD",101. 41,101.41, 6,21,1,0) | |
9080 | This field indicates what sign ature will be requir ed for ord ers create d by | |
9081 | "^DD",101. 41,101.41, 6,21,2,0) | |
9082 | this dialo g, to be c onsidered complete a nd ready t o release to the ser vice | |
9083 | "^DD",101. 41,101.41, 6,21,3,0) | |
9084 | for action . If this flag is s et to NO a nd the dia log contai ns a promp t | |
9085 | "^DD",101. 41,101.41, 6,21,4,0) | |
9086 | for item(s ) from the Orderable Item file , the orde r created may still | |
9087 | "^DD",101. 41,101.41, 6,21,5,0) | |
9088 | require a signature if any of the items ordered ar e individu ally flagg ed | |
9089 | "^DD",101. 41,101.41, 6,21,6,0) | |
9090 | as requiri ng a signa ture. | |
9091 | "^DD",101. 41,101.41, 6,"DT") | |
9092 | 3170621 | |
9093 | "^DD",101. 41,101.41, 7,0) | |
9094 | PACKAGE^P9 .4'^DIC(9. 4,^0;7^Q | |
9095 | "^DD",101. 41,101.41, 7,1,0) | |
9096 | ^.1 | |
9097 | "^DD",101. 41,101.41, 7,1,1,0) | |
9098 | 101.41^APK G | |
9099 | "^DD",101. 41,101.41, 7,1,1,1) | |
9100 | S ^ORD(101 .41,"APKG" ,$E(X,1,30 ),DA)="" | |
9101 | "^DD",101. 41,101.41, 7,1,1,2) | |
9102 | K ^ORD(101 .41,"APKG" ,$E(X,1,30 ),DA) | |
9103 | "^DD",101. 41,101.41, 7,1,1,"DT" ) | |
9104 | 2970325 | |
9105 | "^DD",101. 41,101.41, 7,3) | |
9106 | Enter the VISTA pack age that i s to recei ve orders created by this dial og. | |
9107 | "^DD",101. 41,101.41, 7,21,0) | |
9108 | ^^3^3^2950 208^ | |
9109 | "^DD",101. 41,101.41, 7,21,1,0) | |
9110 | This is th e VISTA pa ckage that is intend ed to rece ive orders created b y | |
9111 | "^DD",101. 41,101.41, 7,21,2,0) | |
9112 | this dialo g; this is required for creati ng the HL7 messages to pass th e | |
9113 | "^DD",101. 41,101.41, 7,21,3,0) | |
9114 | order. | |
9115 | "^DD",101. 41,101.41, 7,"DT") | |
9116 | 2970325 | |
9117 | "^DD",101. 41,101.41, 8,0) | |
9118 | VERIFY ORD ER^S^1:YES ;0:NO;^0;8 ^Q | |
9119 | "^DD",101. 41,101.41, 8,3) | |
9120 | Enter YES to have or ders creat ed by this dialog pr esented to the user before sav ing, with the opport unity to e dit. | |
9121 | "^DD",101. 41,101.41, 8,21,0) | |
9122 | ^^3^3^2950 623^ | |
9123 | "^DD",101. 41,101.41, 8,21,1,0) | |
9124 | This field is a flag , which de termines i f the orde r created by this di alog | |
9125 | "^DD",101. 41,101.41, 8,21,2,0) | |
9126 | will be pr esented to the user for verifi cation bef ore saving in the Or ders | |
9127 | "^DD",101. 41,101.41, 8,21,3,0) | |
9128 | file; for most quick orders, t his flag s hould be s et to 0 (n o). | |
9129 | "^DD",101. 41,101.41, 8,"DT") | |
9130 | 3170621 | |
9131 | "^DD",101. 41,101.41, 9,0) | |
9132 | ASK FOR AN OTHER ORDE R^S^0:NO;1 :YES;2:YES -DON'T ASK ;^0;9^Q | |
9133 | "^DD",101. 41,101.41, 9,3) | |
9134 | Enter YES to have th e user ask ed to ente r another order from this dial og before exiting. | |
9135 | "^DD",101. 41,101.41, 9,21,0) | |
9136 | ^^6^6^2970 616^^^ | |
9137 | "^DD",101. 41,101.41, 9,21,1,0) | |
9138 | This field allows th e user to add anothe r order fr om this di alog, when the | |
9139 | "^DD",101. 41,101.41, 9,21,2,0) | |
9140 | initial or der is acc epted and placed; if set to YE S, the use r will be | |
9141 | "^DD",101. 41,101.41, 9,21,3,0) | |
9142 | asked "Add another < dialog dis play text> order?" t o allow fo r either | |
9143 | "^DD",101. 41,101.41, 9,21,4,0) | |
9144 | exiting th e processo r or addin g an addit ional orde r of the s ame type. | |
9145 | "^DD",101. 41,101.41, 9,21,5,0) | |
9146 | This field can also be set to YES-DON'T ASK to for ce the pro cessor to | |
9147 | "^DD",101. 41,101.41, 9,21,6,0) | |
9148 | automatica lly drop i nto prompt ing for an other orde r without asking fir st. | |
9149 | "^DD",101. 41,101.41, 9,"DT") | |
9150 | 2970616 | |
9151 | "^DD",101. 41,101.41, 10,0) | |
9152 | ITEMS^101. 412IA^^10; 0 | |
9153 | "^DD",101. 41,101.41, 10,21,0) | |
9154 | ^^5^5^2990 211^^^^ | |
9155 | "^DD",101. 41,101.41, 10,21,1,0) | |
9156 | This field contains the compon ents for d ialogs: | |
9157 | "^DD",101. 41,101.41, 10,21,2,0) | |
9158 | Dialo gs -> prompts | |
9159 | "^DD",101. 41,101.41, 10,21,3,0) | |
9160 | Quick orders -> prompts ( completed) | |
9161 | "^DD",101. 41,101.41, 10,21,4,0) | |
9162 | Order sets -> dialogs o r quick or ders | |
9163 | "^DD",101. 41,101.41, 10,21,5,0) | |
9164 | Menus -> dialogs, quick orde rs, or ord er sets | |
9165 | "^DD",101. 41,101.41, 11,0) | |
9166 | DATA TYPE^ S^D:date/t ime;R:free text date /time;F:fr ee text;N: numeric;S: set of cod es;Y:yes/n o;P:pointe r;W:word p rocessing; ^1;1^Q | |
9167 | "^DD",101. 41,101.41, 11,3) | |
9168 | Enter the type of da ta to be c ollected a t this pro mpt. | |
9169 | "^DD",101. 41,101.41, 11,21,0) | |
9170 | ^^2^2^2950 823^^ | |
9171 | "^DD",101. 41,101.41, 11,21,1,0) | |
9172 | This is th e type of data being prompted for; this field is u sed to def ine | |
9173 | "^DD",101. 41,101.41, 11,21,2,0) | |
9174 | a call to the reader (^DIR) in most case s. | |
9175 | "^DD",101. 41,101.41, 11,23,0) | |
9176 | ^^1^1^2950 823^^ | |
9177 | "^DD",101. 41,101.41, 11,23,1,0) | |
9178 | Used with Prompt-typ e only. | |
9179 | "^DD",101. 41,101.41, 11,"DT") | |
9180 | 2950407 | |
9181 | "^DD",101. 41,101.41, 12,0) | |
9182 | DOMAIN^F^^ 1;2^K:$L(X )>235!($L( X)<1) X | |
9183 | "^DD",101. 41,101.41, 12,3) | |
9184 | Answer mus t be 1-235 character s in lengt h. | |
9185 | "^DD",101. 41,101.41, 12,21,0) | |
9186 | ^^3^3^2990 225^^^^ | |
9187 | "^DD",101. 41,101.41, 12,21,1,0) | |
9188 | This is a parameter that may b e used to further sp ecify the data type. | |
9189 | "^DD",101. 41,101.41, 12,21,2,0) | |
9190 | The string stored he re should be appropr iate for t he second ^-piece of | |
9191 | "^DD",101. 41,101.41, 12,21,3,0) | |
9192 | DIR(0) whe n used wit h the data type fiel d. | |
9193 | "^DD",101. 41,101.41, 12,23,0) | |
9194 | ^^1^1^2990 225^^^^ | |
9195 | "^DD",101. 41,101.41, 12,23,1,0) | |
9196 | Used with Prompt-typ e only. | |
9197 | "^DD",101. 41,101.41, 12,"DT") | |
9198 | 2990225 | |
9199 | "^DD",101. 41,101.41, 13,0) | |
9200 | ID^F^^1;3^ K:$L(X)>10 !($L(X)<2) X | |
9201 | "^DD",101. 41,101.41, 13,3) | |
9202 | Answer mus t be 2-10 characters in length . | |
9203 | "^DD",101. 41,101.41, 13,21,0) | |
9204 | ^.001^20^2 0^3010727^ ^ | |
9205 | "^DD",101. 41,101.41, 13,21,1,0) | |
9206 | This field may conta in a singl e word ide ntifier wh ich will b e | |
9207 | "^DD",101. 41,101.41, 13,21,2,0) | |
9208 | stored wit h the user response in the Ord ers file # 100, where it | |
9209 | "^DD",101. 41,101.41, 13,21,3,0) | |
9210 | will be in dexed for quick refe rence to c ertain val ues in the | |
9211 | "^DD",101. 41,101.41, 13,21,4,0) | |
9212 | order dial og. The f ollowing a re some ex amples of values | |
9213 | "^DD",101. 41,101.41, 13,21,5,0) | |
9214 | currently in use: | |
9215 | "^DD",101. 41,101.41, 13,21,6,0) | |
9216 | ||
9217 | "^DD",101. 41,101.41, 13,21,7,0) | |
9218 | START -> Sta rt date/ti me | |
9219 | "^DD",101. 41,101.41, 13,21,8,0) | |
9220 | STOP -> Sto p date/tim e | |
9221 | "^DD",101. 41,101.41, 13,21,9,0) | |
9222 | SCHEDUL E -> Adm inistratio n Schedule | |
9223 | "^DD",101. 41,101.41, 13,21,10,0 ) | |
9224 | ORDERAB LE -> Ord erable Ite m | |
9225 | "^DD",101. 41,101.41, 13,21,11,0 ) | |
9226 | DRUG -> Dis pense Drug | |
9227 | "^DD",101. 41,101.41, 13,21,12,0 ) | |
9228 | CANCEL -> Can cel Future Orders fl ag | |
9229 | "^DD",101. 41,101.41, 13,21,13,0 ) | |
9230 | COMMENT -> Wor d processi ng comment s | |
9231 | "^DD",101. 41,101.41, 13,21,14,0 ) | |
9232 | ||
9233 | "^DD",101. 41,101.41, 13,21,15,0 ) | |
9234 | These valu es must be unique am ong entrie s within a n order di alog | |
9235 | "^DD",101. 41,101.41, 13,21,16,0 ) | |
9236 | but do not need to b e unique a cross the entire fil e. Be sur e to | |
9237 | "^DD",101. 41,101.41, 13,21,17,0 ) | |
9238 | check the IDs assign ed to gene ric text e ntries to make sure that | |
9239 | "^DD",101. 41,101.41, 13,21,18,0 ) | |
9240 | all IDs ar e unique. In order to avoid p otential p roblems it 's | |
9241 | "^DD",101. 41,101.41, 13,21,19,0 ) | |
9242 | recommende d that you use uniqu e IDs for any local entries th at you | |
9243 | "^DD",101. 41,101.41, 13,21,20,0 ) | |
9244 | create. | |
9245 | "^DD",101. 41,101.41, 13,"DT") | |
9246 | 2960215 | |
9247 | "^DD",101. 41,101.41, 17,0) | |
9248 | VALIDATION ^K^^7;E1,2 45^K:$L(X) >245 X D:$ D(X) ^DIM | |
9249 | "^DD",101. 41,101.41, 17,3) | |
9250 | This is St andard MUM PS code. | |
9251 | "^DD",101. 41,101.41, 17,9) | |
9252 | @ | |
9253 | "^DD",101. 41,101.41, 17,21,0) | |
9254 | ^^3^3^2960 912^ | |
9255 | "^DD",101. 41,101.41, 17,21,1,0) | |
9256 | This is MU MPS code t hat will b e executed at the ti me of rele asing an | |
9257 | "^DD",101. 41,101.41, 17,21,2,0) | |
9258 | order crea ted with t his dialog ; dialog r esponses m ay be chec ked again | |
9259 | "^DD",101. 41,101.41, 17,21,3,0) | |
9260 | here befor e releasin g the orde r to the s ervice. | |
9261 | "^DD",101. 41,101.41, 17,"DT") | |
9262 | 2960912 | |
9263 | "^DD",101. 41,101.41, 19,0) | |
9264 | ADDITIONAL TEXT^K^^9 ;E1,245^K: $L(X)>245 X D:$D(X) ^DIM | |
9265 | "^DD",101. 41,101.41, 19,3) | |
9266 | This is St andard MUM PS code. | |
9267 | "^DD",101. 41,101.41, 19,9) | |
9268 | @ | |
9269 | "^DD",101. 41,101.41, 19,21,0) | |
9270 | ^^3^3^2960 405^^ | |
9271 | "^DD",101. 41,101.41, 19,21,1,0) | |
9272 | This is MU MPS code t hat will b e executed when orde r ORIFN cr eated by t his | |
9273 | "^DD",101. 41,101.41, 19,21,2,0) | |
9274 | dialog is about to b e displaye d; any str ing that s hould be a ppended to the | |
9275 | "^DD",101. 41,101.41, 19,21,3,0) | |
9276 | order text should be returned in Y. | |
9277 | "^DD",101. 41,101.41, 19,"DT") | |
9278 | 2960405 | |
9279 | "^DD",101. 41,101.41, 20,0) | |
9280 | DESCRIPTIO N^101.411^ ^2;0 | |
9281 | "^DD",101. 41,101.41, 20,21,0) | |
9282 | ^^1^1^2971 219^ | |
9283 | "^DD",101. 41,101.41, 20,21,1,0) | |
9284 | This is a descriptio n of the d ialog and its uses. | |
9285 | "^DD",101. 41,101.41, 21,0) | |
9286 | RESPONSES^ 101.416^^6 ;0 | |
9287 | "^DD",101. 41,101.41, 21,21,0) | |
9288 | ^^2^2^2971 219^ | |
9289 | "^DD",101. 41,101.41, 21,21,1,0) | |
9290 | This multi ple contai ns any res ponses to prompts th at have be en pre-ans wered | |
9291 | "^DD",101. 41,101.41, 21,21,2,0) | |
9292 | to create a quick or der. | |
9293 | "^DD",101. 41,101.41, 30,0) | |
9294 | ENTRY ACTI ON^K^^3;E1 ,245^K:$L( X)>245 X D :$D(X) ^DI M | |
9295 | "^DD",101. 41,101.41, 30,3) | |
9296 | This is St andard MUM PS code. | |
9297 | "^DD",101. 41,101.41, 30,9) | |
9298 | @ | |
9299 | "^DD",101. 41,101.41, 30,21,0) | |
9300 | ^^4^4^2950 425^ | |
9301 | "^DD",101. 41,101.41, 30,21,1,0) | |
9302 | This is MU MPS code t hat will b e executed at the to p of a dia log, prior to | |
9303 | "^DD",101. 41,101.41, 30,21,2,0) | |
9304 | the execut ion of any prompts; it may per form funct ions such as listing | |
9305 | "^DD",101. 41,101.41, 30,21,3,0) | |
9306 | the recent Radiology exams bef ore orderi ng a new o ne, or ale rting the | |
9307 | "^DD",101. 41,101.41, 30,21,4,0) | |
9308 | user to an existing diet order before ma king a cha nge. | |
9309 | "^DD",101. 41,101.41, 30,"DT") | |
9310 | 2950425 | |
9311 | "^DD",101. 41,101.41, 31,0) | |
9312 | QUICK SETU P^K^^3.1;E 1,245^K:$L (X)>245 X D:$D(X) ^D IM | |
9313 | "^DD",101. 41,101.41, 31,3) | |
9314 | This is St andard MUM PS code. | |
9315 | "^DD",101. 41,101.41, 31,9) | |
9316 | @ | |
9317 | "^DD",101. 41,101.41, 31,21,0) | |
9318 | ^^3^3^2970 113^ | |
9319 | "^DD",101. 41,101.41, 31,21,1,0) | |
9320 | This is MU MPS code t hat will b e executed in the pl ace of the Entry Act ion | |
9321 | "^DD",101. 41,101.41, 31,21,2,0) | |
9322 | when creat ing quick orders for this dial og; variab les may be set here | |
9323 | "^DD",101. 41,101.41, 31,21,3,0) | |
9324 | instead to bypass th e usual de pendence o n specific patient v alues. | |
9325 | "^DD",101. 41,101.41, 31,"DT") | |
9326 | 2970113 | |
9327 | "^DD",101. 41,101.41, 40,0) | |
9328 | EXIT ACTIO N^K^^4;E1, 245^K:$L(X )>245 X D: $D(X) ^DIM | |
9329 | "^DD",101. 41,101.41, 40,3) | |
9330 | This is St andard MUM PS code. | |
9331 | "^DD",101. 41,101.41, 40,9) | |
9332 | @ | |
9333 | "^DD",101. 41,101.41, 40,21,0) | |
9334 | ^^2^2^2950 622^ | |
9335 | "^DD",101. 41,101.41, 40,21,1,0) | |
9336 | This is MU MPS code t hat will b e executed upon comp letion of processing the | |
9337 | "^DD",101. 41,101.41, 40,21,2,0) | |
9338 | dialog; it is curren tly used o nly with d ialog-type entries. | |
9339 | "^DD",101. 41,101.41, 40,"DT") | |
9340 | 2950622 | |
9341 | "^DD",101. 41,101.41, 50,0) | |
9342 | CONTROLS^1 01.415A^^5 0;0 | |
9343 | "^DD",101. 41,101.41, 51,0) | |
9344 | COLUMN WID TH^NJ3,0^^ 5;1^K:+X'= X!(X>240)! (X<20)!(X? .E1"."1N.N ) X | |
9345 | "^DD",101. 41,101.41, 51,1,0) | |
9346 | ^.1 | |
9347 | "^DD",101. 41,101.41, 51,1,1,0) | |
9348 | 101.41^AM5 1^MUMPS | |
9349 | "^DD",101. 41,101.41, 51,1,1,1) | |
9350 | D REDO^ORD D41 | |
9351 | "^DD",101. 41,101.41, 51,1,1,2) | |
9352 | D REDO^ORD D41 | |
9353 | "^DD",101. 41,101.41, 51,1,1,"%D ",0) | |
9354 | ^^1^1^2990 210^ | |
9355 | "^DD",101. 41,101.41, 51,1,1,"%D ",1,0) | |
9356 | Update TIM ESTAMP whe never COLU MN WIDTH i s changed. | |
9357 | "^DD",101. 41,101.41, 51,1,1,"DT ") | |
9358 | 2990210 | |
9359 | "^DD",101. 41,101.41, 51,3) | |
9360 | Type a Num ber betwee n 20 and 2 40, 0 Deci mal Digits | |
9361 | "^DD",101. 41,101.41, 51,21,0) | |
9362 | ^^2^2^2950 623^ | |
9363 | "^DD",101. 41,101.41, 51,21,1,0) | |
9364 | This is th e width, i n characte rs, for ea ch column in a menu. For exam ple, | |
9365 | "^DD",101. 41,101.41, 51,21,2,0) | |
9366 | to have 3 columns on an 80 cha racter dev ice, enter a width o f 26. | |
9367 | "^DD",101. 41,101.41, 51,"DT") | |
9368 | 2990210 | |
9369 | "^DD",101. 41,101.41, 52,0) | |
9370 | MNEMONIC W IDTH^NJ1,0 ^^5;2^K:+X '=X!(X>9)! (X<1)!(X?. E1"."1N.N) X | |
9371 | "^DD",101. 41,101.41, 52,1,0) | |
9372 | ^.1 | |
9373 | "^DD",101. 41,101.41, 52,1,1,0) | |
9374 | 101.41^AM5 2^MUMPS | |
9375 | "^DD",101. 41,101.41, 52,1,1,1) | |
9376 | D REDO^ORD D41 | |
9377 | "^DD",101. 41,101.41, 52,1,1,2) | |
9378 | D REDO^ORD D41 | |
9379 | "^DD",101. 41,101.41, 52,1,1,"%D ",0) | |
9380 | ^^1^1^2990 210^ | |
9381 | "^DD",101. 41,101.41, 52,1,1,"%D ",1,0) | |
9382 | Update TIM ESTAMP whe never MNEM ONIC WIDTH is change d. | |
9383 | "^DD",101. 41,101.41, 52,1,1,"DT ") | |
9384 | 2990210 | |
9385 | "^DD",101. 41,101.41, 52,3) | |
9386 | Type a Num ber betwee n 1 and 9, 0 Decimal Digits | |
9387 | "^DD",101. 41,101.41, 52,21,0) | |
9388 | ^^2^2^2950 623^ | |
9389 | "^DD",101. 41,101.41, 52,21,1,0) | |
9390 | This field allows th e width of item mnem onics to b e varied; the defaul t | |
9391 | "^DD",101. 41,101.41, 52,21,2,0) | |
9392 | value is 5 . | |
9393 | "^DD",101. 41,101.41, 52,"DT") | |
9394 | 2990210 | |
9395 | "^DD",101. 41,101.41, 53,0) | |
9396 | PATH SWITC H^S^1:YES; 0:NO;^5;3^ Q | |
9397 | "^DD",101. 41,101.41, 53,3) | |
9398 | Enter YES if this me nu should be redispl ayed when traversing back up t he menu tr ee. | |
9399 | "^DD",101. 41,101.41, 53,21,0) | |
9400 | ^^5^5^2950 623^ | |
9401 | "^DD",101. 41,101.41, 53,21,1,0) | |
9402 | This switc h allows t he user, w hen traver sing back UP the tre e of menus and | |
9403 | "^DD",101. 41,101.41, 53,21,2,0) | |
9404 | items, to select a n ew path ba ck down th e tree. I n other wo rds, the m enu | |
9405 | "^DD",101. 41,101.41, 53,21,3,0) | |
9406 | is redispl ayed when returning to that me nu's level in the tr ee and | |
9407 | "^DD",101. 41,101.41, 53,21,4,0) | |
9408 | processing back down the tree is possibl e from tha t point. If nothing is | |
9409 | "^DD",101. 41,101.41, 53,21,5,0) | |
9410 | selected f rom the me nu, the pa th continu es back up the tree. | |
9411 | "^DD",101. 41,101.41, 53,"DT") | |
9412 | 2950623 | |
9413 | "^DD",101. 41,101.41, 54,0) | |
9414 | LISTBOX TE XT^F^^5;4^ K:$L(X)>30 !($L(X)<1) X | |
9415 | "^DD",101. 41,101.41, 54,3) | |
9416 | Answer mus t be 1-30 characters in length . | |
9417 | "^DD",101. 41,101.41, 54,"DT") | |
9418 | 2960524 | |
9419 | "^DD",101. 41,101.41, 55,0) | |
9420 | WINDOW FOR M ID^NJ4,0 ^^5;5^K:+X '=X!(X>999 9)!(X<0)!( X?.E1"."1N .N) X | |
9421 | "^DD",101. 41,101.41, 55,3) | |
9422 | Type a Num ber betwee n 0 and 99 99, 0 Deci mal Digits | |
9423 | "^DD",101. 41,101.41, 55,21,0) | |
9424 | ^.001^23^2 3^3010727^ ^ | |
9425 | "^DD",101. 41,101.41, 55,21,1,0) | |
9426 | This field tells the GUI DELPH I code whi ch form to use to pr ocess the | |
9427 | "^DD",101. 41,101.41, 55,21,2,0) | |
9428 | order dial og. Each number rep resents a unique for m. Follow ing are so me | |
9429 | "^DD",101. 41,101.41, 55,21,3,0) | |
9430 | of the mor e common c odes and t heir corre sponding f orm in DEL PHI. | |
9431 | "^DD",101. 41,101.41, 55,21,4,0) | |
9432 | ||
9433 | "^DD",101. 41,101.41, 55,21,5,0) | |
9434 | Form N ame Wi ndows Form ID | |
9435 | "^DD",101. 41,101.41, 55,21,6,0) | |
9436 | ------ --- -- ---------- --- | |
9437 | "^DD",101. 41,101.41, 55,21,7,0) | |
9438 | OD_ACTIV ITY 100 | |
9439 | "^DD",101. 41,101.41, 55,21,8,0) | |
9440 | OD_ALLER GY 105 | |
9441 | "^DD",101. 41,101.41, 55,21,9,0) | |
9442 | OD_CONSU LT 110 | |
9443 | "^DD",101. 41,101.41, 55,21,10,0 ) | |
9444 | OD_PROCE DURE 112 | |
9445 | "^DD",101. 41,101.41, 55,21,11,0 ) | |
9446 | OD_DIET_ TXT 115 | |
9447 | "^DD",101. 41,101.41, 55,21,12,0 ) | |
9448 | OD_DIET 117 | |
9449 | "^DD",101. 41,101.41, 55,21,13,0 ) | |
9450 | OD_LAB 120 | |
9451 | "^DD",101. 41,101.41, 55,21,14,0 ) | |
9452 | OD_MEDIN PT 130 | |
9453 | "^DD",101. 41,101.41, 55,21,15,0 ) | |
9454 | OD_MEDS 135 | |
9455 | "^DD",101. 41,101.41, 55,21,16,0 ) | |
9456 | OD_MEDOU TPT 140 | |
9457 | "^DD",101. 41,101.41, 55,21,17,0 ) | |
9458 | OD_NURSI NG 150 | |
9459 | "^DD",101. 41,101.41, 55,21,18,0 ) | |
9460 | OD_MISC 151 | |
9461 | "^DD",101. 41,101.41, 55,21,19,0 ) | |
9462 | OD_GENER IC 152 | |
9463 | "^DD",101. 41,101.41, 55,21,20,0 ) | |
9464 | OD_IMAGI NG 160 | |
9465 | "^DD",101. 41,101.41, 55,21,21,0 ) | |
9466 | OD_VITAL S 171 | |
9467 | "^DD",101. 41,101.41, 55,21,22,0 ) | |
9468 | OD_MEDIV 180 | |
9469 | "^DD",101. 41,101.41, 55,21,23,0 ) | |
9470 | OD_TEXTO NLY 999 | |
9471 | "^DD",101. 41,101.41, 55,"DT") | |
9472 | 2960804 | |
9473 | "^DD",101. 41,101.41, 56,0) | |
9474 | CREATE PAR ENT ORDER^ S^1:YES;0: NO;^5;6^Q | |
9475 | "^DD",101. 41,101.41, 56,3) | |
9476 | Enter YES if a paren t order sh ould be cr eated for this order set | |
9477 | "^DD",101. 41,101.41, 56,21,0) | |
9478 | ^^6^6^2970 227^ | |
9479 | "^DD",101. 41,101.41, 56,21,1,0) | |
9480 | This flag indicates whether a parent ord er should be created to group | |
9481 | "^DD",101. 41,101.41, 56,21,2,0) | |
9482 | together a ll the ord ers create d by this order set; this flag is only | |
9483 | "^DD",101. 41,101.41, 56,21,3,0) | |
9484 | valid with SET type order dial ogs. If t his value is YES, a parent | |
9485 | "^DD",101. 41,101.41, 56,21,4,0) | |
9486 | order will be create d, and onl y the pare nt will be presented on the | |
9487 | "^DD",101. 41,101.41, 56,21,5,0) | |
9488 | orders lis t for disp lay and ac tion; NO w ill preven t a parent from bein g | |
9489 | "^DD",101. 41,101.41, 56,21,6,0) | |
9490 | created an d all orde rs will be created a nd display ed indepen dently. | |
9491 | "^DD",101. 41,101.41, 56,"DT") | |
9492 | 2970227 | |
9493 | "^DD",101. 41,101.41, 57,0) | |
9494 | DISPLAY SU BHEADER^S^ 1:YES;0:NO ;^5;7^Q | |
9495 | "^DD",101. 41,101.41, 57,3) | |
9496 | Enter YES if a subhe ader shoul d be displ ayed as ea ch order i n this set is proces sed | |
9497 | "^DD",101. 41,101.41, 57,21,0) | |
9498 | ^^3^3^2970 227^ | |
9499 | "^DD",101. 41,101.41, 57,21,1,0) | |
9500 | This flag indicates whether a subheader is to be d isplayed f or each or der | |
9501 | "^DD",101. 41,101.41, 57,21,2,0) | |
9502 | in this se t as it is processed and place d; this fl ag is only valid wit h | |
9503 | "^DD",101. 41,101.41, 57,21,3,0) | |
9504 | SET type o rder dialo gs. | |
9505 | "^DD",101. 41,101.41, 57,"DT") | |
9506 | 2970227 | |
9507 | "^DD",101. 41,101.41, 58,0) | |
9508 | AUTO-ACCEP T QUICK OR DER^S^1:YE S;^5;8^Q | |
9509 | "^DD",101. 41,101.41, 58,3) | |
9510 | Enter 'Yes ' if the o rder shoul d be place d without displaying the dialo g window. | |
9511 | "^DD",101. 41,101.41, 58,21,0) | |
9512 | ^^2^2^2980 902^ | |
9513 | "^DD",101. 41,101.41, 58,21,1,0) | |
9514 | This can b e set to y es for a q uick order so that i t can be p laced simp ly | |
9515 | "^DD",101. 41,101.41, 58,21,2,0) | |
9516 | by clickin g on it in the GUI ( no orderin g dialog i s displaye d). | |
9517 | "^DD",101. 41,101.41, 58,"DT") | |
9518 | 2980902 | |
9519 | "^DD",101. 41,101.41, 99,0) | |
9520 | TIMESTAMP^ F^^99;1^K: $L(X)>15!( $L(X)<1) X | |
9521 | "^DD",101. 41,101.41, 99,1,0) | |
9522 | ^.1 | |
9523 | "^DD",101. 41,101.41, 99,1,1,0) | |
9524 | 101.41^AM^ MUMPS | |
9525 | "^DD",101. 41,101.41, 99,1,1,1) | |
9526 | D SET^ORDD 41(DA) | |
9527 | "^DD",101. 41,101.41, 99,1,1,2) | |
9528 | D KILL^ORD D41(DA) | |
9529 | "^DD",101. 41,101.41, 99,1,1,"%D ",0) | |
9530 | ^^2^2^2990 210^ | |
9531 | "^DD",101. 41,101.41, 99,1,1,"%D ",1,0) | |
9532 | Recompiles order dia log menus in ^XUTL(" XQORM",<di alog#>_";O RD(101.41, ") | |
9533 | "^DD",101. 41,101.41, 99,1,1,"%D ",2,0) | |
9534 | whenever f ields nece ssary to d isplaying the menu a re changed . | |
9535 | "^DD",101. 41,101.41, 99,1,1,"DT ") | |
9536 | 2990210 | |
9537 | "^DD",101. 41,101.41, 99,3) | |
9538 | Answer mus t be 1-15 characters in length . | |
9539 | "^DD",101. 41,101.41, 99,21,0) | |
9540 | ^^2^2^2980 501^ | |
9541 | "^DD",101. 41,101.41, 99,21,1,0) | |
9542 | For menus, this cont ains the $ H time the menu was last compi led for us e | |
9543 | "^DD",101. 41,101.41, 99,21,2,0) | |
9544 | with the U nwinder ut ility (^XQ OR). | |
9545 | "^DD",101. 41,101.41, 99,"DT") | |
9546 | 2990210 | |
9547 | "^DD",101. 41,101.411 ,0) | |
9548 | DESCRIPTIO N SUB-FIEL D^^.01^1 | |
9549 | "^DD",101. 41,101.411 ,0,"DT") | |
9550 | 2950407 | |
9551 | "^DD",101. 41,101.411 ,0,"NM","D ESCRIPTION ") | |
9552 | ||
9553 | "^DD",101. 41,101.411 ,0,"UP") | |
9554 | 101.41 | |
9555 | "^DD",101. 41,101.411 ,.01,0) | |
9556 | DESCRIPTIO N^W^^0;1^Q | |
9557 | "^DD",101. 41,101.411 ,.01,3) | |
9558 | Enter a de scription of this di alog. | |
9559 | "^DD",101. 41,101.411 ,.01,21,0) | |
9560 | ^^1^1^2950 425^^ | |
9561 | "^DD",101. 41,101.411 ,.01,21,1, 0) | |
9562 | This field contains a descript ion of the content a nd use of this dialo g. | |
9563 | "^DD",101. 41,101.411 ,.01,"DT") | |
9564 | 2950407 | |
9565 | "^DD",101. 41,101.412 ,0) | |
9566 | ITEMS SUB- FIELD^^117 ^37 | |
9567 | "^DD",101. 41,101.412 ,0,"DT") | |
9568 | 2971117 | |
9569 | "^DD",101. 41,101.412 ,0,"ID","W RITE") | |
9570 | N OR0,ORNM S OR0=^(0 ) I $P(OR0 ,U,2) S OR NM=$P($G(^ ORD(101.41 ,+$P(OR0,U ,2),0)),U) D:$L(ORNM ) EN^DDIOL (ORNM,,"?1 0") | |
9571 | "^DD",101. 41,101.412 ,0,"IX","A TXT",101.4 12,21) | |
9572 | ||
9573 | "^DD",101. 41,101.412 ,0,"IX","B ",101.412, .01) | |
9574 | ||
9575 | "^DD",101. 41,101.412 ,0,"IX","D ",101.412, 2) | |
9576 | ||
9577 | "^DD",101. 41,101.412 ,0,"IX","D AD",101.41 2,1) | |
9578 | ||
9579 | "^DD",101. 41,101.412 ,0,"IX","D AD1",101.4 12,.01) | |
9580 | ||
9581 | "^DD",101. 41,101.412 ,0,"NM","I TEMS") | |
9582 | ||
9583 | "^DD",101. 41,101.412 ,0,"UP") | |
9584 | 101.41 | |
9585 | "^DD",101. 41,101.412 ,.01,0) | |
9586 | SEQUENCE^M NJ5,1^^0;1 ^K:+X'=X!( X>999.9)!( X<.1)!(X?. E1"."2N.N) X | |
9587 | "^DD",101. 41,101.412 ,.01,1,0) | |
9588 | ^.1 | |
9589 | "^DD",101. 41,101.412 ,.01,1,1,0 ) | |
9590 | 101.412^B | |
9591 | "^DD",101. 41,101.412 ,.01,1,1,1 ) | |
9592 | S ^ORD(101 .41,DA(1), 10,"B",$E( X,1,30),DA )="" | |
9593 | "^DD",101. 41,101.412 ,.01,1,1,2 ) | |
9594 | K ^ORD(101 .41,DA(1), 10,"B",$E( X,1,30),DA ) | |
9595 | "^DD",101. 41,101.412 ,.01,1,2,0 ) | |
9596 | 101.412^DA D1^MUMPS | |
9597 | "^DD",101. 41,101.412 ,.01,1,2,1 ) | |
9598 | N ORP S OR P=$P(^ORD( 101.41,DA( 1),10,DA,0 ),U,11) S: ORP ^ORD(1 01.41,DA(1 ),10,"DAD" ,ORP,X,DA) ="" | |
9599 | "^DD",101. 41,101.412 ,.01,1,2,2 ) | |
9600 | N ORP S OR P=$P(^ORD( 101.41,DA( 1),10,DA,0 ),U,11) K: ORP ^ORD(1 01.41,DA(1 ),10,"DAD" ,ORP,X,DA) | |
9601 | "^DD",101. 41,101.412 ,.01,1,2," %D",0) | |
9602 | ^^1^1^2950 511^ | |
9603 | "^DD",101. 41,101.412 ,.01,1,2," %D",1,0) | |
9604 | Allows ret rieval of 'child' pr ompts in s equence by parent. | |
9605 | "^DD",101. 41,101.412 ,.01,1,2," DT") | |
9606 | 2950511 | |
9607 | "^DD",101. 41,101.412 ,.01,1,3,0 ) | |
9608 | 101.41^AMM ^MUMPS | |
9609 | "^DD",101. 41,101.412 ,.01,1,3,1 ) | |
9610 | D REDOX^OR DD41 | |
9611 | "^DD",101. 41,101.412 ,.01,1,3,2 ) | |
9612 | D REDOX^OR DD41 | |
9613 | "^DD",101. 41,101.412 ,.01,1,3," %D",0) | |
9614 | ^^1^1^2990 210^ | |
9615 | "^DD",101. 41,101.412 ,.01,1,3," %D",1,0) | |
9616 | Update TIM ESTAMP whe never SEQU ENCE is ch anged. | |
9617 | "^DD",101. 41,101.412 ,.01,1,3," DT") | |
9618 | 2990210 | |
9619 | "^DD",101. 41,101.412 ,.01,3) | |
9620 | Type a Num ber betwee n .1 and 9 99.9, 1 De cimal Digi t | |
9621 | "^DD",101. 41,101.412 ,.01,21,0) | |
9622 | ^^2^2^2971 117^^^^ | |
9623 | "^DD",101. 41,101.412 ,.01,21,1, 0) | |
9624 | This field specifies the order in which this item will be di splayed or | |
9625 | "^DD",101. 41,101.412 ,.01,21,2, 0) | |
9626 | processed. | |
9627 | "^DD",101. 41,101.412 ,.01,"DT") | |
9628 | 2990210 | |
9629 | "^DD",101. 41,101.412 ,.1,0) | |
9630 | INPUT TRAN SFORM^K^^. 1;E1,245^K :$L(X)>245 X D:$D(X) ^DIM | |
9631 | "^DD",101. 41,101.412 ,.1,3) | |
9632 | This is St andard MUM PS code. | |
9633 | "^DD",101. 41,101.412 ,.1,9) | |
9634 | @ | |
9635 | "^DD",101. 41,101.412 ,.1,21,0) | |
9636 | ^^2^2^2950 816^ | |
9637 | "^DD",101. 41,101.412 ,.1,21,1,0 ) | |
9638 | This is co de that wi ll be used as the th ird piece of DIR(0) when askin g | |
9639 | "^DD",101. 41,101.412 ,.1,21,2,0 ) | |
9640 | this promp t. | |
9641 | "^DD",101. 41,101.412 ,.1,"DT") | |
9642 | 2950816 | |
9643 | "^DD",101. 41,101.412 ,1,0) | |
9644 | PARENT^P10 1.41'^ORD( 101.41,^0; 11^Q | |
9645 | "^DD",101. 41,101.412 ,1,1,0) | |
9646 | ^.1 | |
9647 | "^DD",101. 41,101.412 ,1,1,1,0) | |
9648 | 101.412^DA D^MUMPS | |
9649 | "^DD",101. 41,101.412 ,1,1,1,1) | |
9650 | S ^ORD(101 .41,DA(1), 10,"DAD",X ,$P(^ORD(1 01.41,DA(1 ),10,DA,0) ,U),DA)="" | |
9651 | "^DD",101. 41,101.412 ,1,1,1,2) | |
9652 | K ^ORD(101 .41,DA(1), 10,"DAD",X ,$P(^ORD(1 01.41,DA(1 ),10,DA,0) ,U),DA) | |
9653 | "^DD",101. 41,101.412 ,1,1,1,"%D ",0) | |
9654 | ^^1^1^2950 511^^ | |
9655 | "^DD",101. 41,101.412 ,1,1,1,"%D ",1,0) | |
9656 | Allows ret rieval of 'child' pr ompts in s equence by parent. | |
9657 | "^DD",101. 41,101.412 ,1,1,1,"DT ") | |
9658 | 2950511 | |
9659 | "^DD",101. 41,101.412 ,1,3) | |
9660 | If this pr ompt is su bordinate to another in this d ialog, ent er the par ent prompt here | |
9661 | "^DD",101. 41,101.412 ,1,21,0) | |
9662 | ^^4^4^2950 511^ | |
9663 | "^DD",101. 41,101.412 ,1,21,1,0) | |
9664 | This field controls the behavi or of this prompt. If a paren t is defin ed | |
9665 | "^DD",101. 41,101.412 ,1,21,2,0) | |
9666 | here, this prompt wi ll be aske d from wit hin the pa rent's dia log; when it | |
9667 | "^DD",101. 41,101.412 ,1,21,3,0) | |
9668 | is invoked independe ntly based on its po sition seq uence numb er, the ch ild | |
9669 | "^DD",101. 41,101.412 ,1,21,4,0) | |
9670 | prompt wil l be ignor ed. | |
9671 | "^DD",101. 41,101.412 ,1,"DT") | |
9672 | 2950511 | |
9673 | "^DD",101. 41,101.412 ,2,0) | |
9674 | ITEM^P101. 41'X^ORD(1 01.41,^0;2 ^D TREE^OR DD41 | |
9675 | "^DD",101. 41,101.412 ,2,1,0) | |
9676 | ^.1 | |
9677 | "^DD",101. 41,101.412 ,2,1,1,0) | |
9678 | 101.41^AD | |
9679 | "^DD",101. 41,101.412 ,2,1,1,1) | |
9680 | S ^ORD(101 .41,"AD",$ E(X,1,30), DA(1),DA)= "" | |
9681 | "^DD",101. 41,101.412 ,2,1,1,2) | |
9682 | K ^ORD(101 .41,"AD",$ E(X,1,30), DA(1),DA) | |
9683 | "^DD",101. 41,101.412 ,2,1,1,"DT ") | |
9684 | 2950123 | |
9685 | "^DD",101. 41,101.412 ,2,1,2,0) | |
9686 | 101.412^D | |
9687 | "^DD",101. 41,101.412 ,2,1,2,1) | |
9688 | S ^ORD(101 .41,DA(1), 10,"D",$E( X,1,30),DA )="" | |
9689 | "^DD",101. 41,101.412 ,2,1,2,2) | |
9690 | K ^ORD(101 .41,DA(1), 10,"D",$E( X,1,30),DA ) | |
9691 | "^DD",101. 41,101.412 ,2,1,2,"DT ") | |
9692 | 2950411 | |
9693 | "^DD",101. 41,101.412 ,2,1,3,0) | |
9694 | 101.41^AMM 2^MUMPS | |
9695 | "^DD",101. 41,101.412 ,2,1,3,1) | |
9696 | D REDOX^OR DD41 | |
9697 | "^DD",101. 41,101.412 ,2,1,3,2) | |
9698 | D REDOX^OR DD41 | |
9699 | "^DD",101. 41,101.412 ,2,1,3,"%D ",0) | |
9700 | ^^1^1^2990 210^ | |
9701 | "^DD",101. 41,101.412 ,2,1,3,"%D ",1,0) | |
9702 | Update TIM ESTAMP whe never ITEM is change d. | |
9703 | "^DD",101. 41,101.412 ,2,1,3,"DT ") | |
9704 | 2990210 | |
9705 | "^DD",101. 41,101.412 ,2,3) | |
9706 | Enter an o rder dialo g; a dialo g that is an ancesto r may not also be a sub-item. | |
9707 | "^DD",101. 41,101.412 ,2,21,0) | |
9708 | ^^3^3^2950 123^ | |
9709 | "^DD",101. 41,101.412 ,2,21,1,0) | |
9710 | This field points to an order dialog whi ch is subo rdinate to this dial og. | |
9711 | "^DD",101. 41,101.412 ,2,21,2,0) | |
9712 | NOTE: The parent di alog menu or one of its ancest ors may no t be enter ed | |
9713 | "^DD",101. 41,101.412 ,2,21,3,0) | |
9714 | as an item . | |
9715 | "^DD",101. 41,101.412 ,2,"DT") | |
9716 | 2990217 | |
9717 | "^DD",101. 41,101.412 ,3,0) | |
9718 | MNEMONIC^F X^^0;3^K:$ L(X)>4!($L (X)<1)!(+X =X&($L(X," .")>1))!($ $CHKMNE^OR UTL(X)) X | |
9719 | "^DD",101. 41,101.412 ,3,1,0) | |
9720 | ^.1 | |
9721 | "^DD",101. 41,101.412 ,3,1,1,0) | |
9722 | 101.41^AMM 3^MUMPS | |
9723 | "^DD",101. 41,101.412 ,3,1,1,1) | |
9724 | D REDOX^OR DD41 | |
9725 | "^DD",101. 41,101.412 ,3,1,1,2) | |
9726 | D REDOX^OR DD41 | |
9727 | "^DD",101. 41,101.412 ,3,1,1,"%D ",0) | |
9728 | ^^1^1^2990 210^ | |
9729 | "^DD",101. 41,101.412 ,3,1,1,"%D ",1,0) | |
9730 | Update TIM ESTAMP whe never MNEM ONIC is ch anged. | |
9731 | "^DD",101. 41,101.412 ,3,1,1,"DT ") | |
9732 | 2990210 | |
9733 | "^DD",101. 41,101.412 ,3,3) | |
9734 | Enter a mn emonic to be used wh en this di alog is di splayed fo r selectio n, 1-4 cha racters in length wi th no deci mal places if numeri c. Standar d list man ager mnemo nics may n ot be used . | |
9735 | "^DD",101. 41,101.412 ,3,21,0) | |
9736 | ^.001^2^2^ 3010727^^^ ^ | |
9737 | "^DD",101. 41,101.412 ,3,21,1,0) | |
9738 | This is a short abbr eviation f or this it em dialog to be used when this | |
9739 | "^DD",101. 41,101.412 ,3,21,2,0) | |
9740 | dialog is displayed for select ion. | |
9741 | "^DD",101. 41,101.412 ,3,"DT") | |
9742 | 3000822 | |
9743 | "^DD",101. 41,101.412 ,4,0) | |
9744 | DISPLAY TE XT^FX^^0;4 ^K:$L(X)>8 0!($L(X)<1 )!($$CHKNA M^ORUTL(X) ) X | |
9745 | "^DD",101. 41,101.412 ,4,1,0) | |
9746 | ^.1 | |
9747 | "^DD",101. 41,101.412 ,4,1,1,0) | |
9748 | 101.41^AMM 4^MUMPS | |
9749 | "^DD",101. 41,101.412 ,4,1,1,1) | |
9750 | D REDOX^OR DD41 | |
9751 | "^DD",101. 41,101.412 ,4,1,1,2) | |
9752 | D REDOX^OR DD41 | |
9753 | "^DD",101. 41,101.412 ,4,1,1,"%D ",0) | |
9754 | ^^1^1^2990 210^ | |
9755 | "^DD",101. 41,101.412 ,4,1,1,"%D ",1,0) | |
9756 | Update TIM ESTAMP whe never DISP LAY TEXT i s changed. | |
9757 | "^DD",101. 41,101.412 ,4,1,1,"DT ") | |
9758 | 2990210 | |
9759 | "^DD",101. 41,101.412 ,4,3) | |
9760 | Answer mus t be 1-80 characters in length and canno t contain an up-arro w (^) or s emi-colon (;). | |
9761 | "^DD",101. 41,101.412 ,4,21,0) | |
9762 | ^.001^2^2^ 3010419^^^ ^ | |
9763 | "^DD",101. 41,101.412 ,4,21,1,0) | |
9764 | This field allows th e text tha t normally appears f or this it em to be | |
9765 | "^DD",101. 41,101.412 ,4,21,2,0) | |
9766 | replaced w ith altern ate text f or use in this dialo g or menu. | |
9767 | "^DD",101. 41,101.412 ,4,"DT") | |
9768 | 3000823 | |
9769 | "^DD",101. 41,101.412 ,5,0) | |
9770 | DISPLAY ON LY?^S^0:NO ;1:YES;2:Y ES-HEADER; ^0;5^Q | |
9771 | "^DD",101. 41,101.412 ,5,1,0) | |
9772 | ^.1 | |
9773 | "^DD",101. 41,101.412 ,5,1,1,0) | |
9774 | 101.41^AMM 5^MUMPS | |
9775 | "^DD",101. 41,101.412 ,5,1,1,1) | |
9776 | D REDOX^OR DD41 | |
9777 | "^DD",101. 41,101.412 ,5,1,1,2) | |
9778 | D REDOX^OR DD41 | |
9779 | "^DD",101. 41,101.412 ,5,1,1,"%D ",0) | |
9780 | ^^1^1^2990 210^ | |
9781 | "^DD",101. 41,101.412 ,5,1,1,"%D ",1,0) | |
9782 | Update TIM ESTAMP whe never DISP LAY ONLY? is changed . | |
9783 | "^DD",101. 41,101.412 ,5,1,1,"DT ") | |
9784 | 2990210 | |
9785 | "^DD",101. 41,101.412 ,5,3) | |
9786 | Enter YES if this it em is text for displ ay only an d not a se lectable i tem. | |
9787 | "^DD",101. 41,101.412 ,5,21,0) | |
9788 | ^^3^3^2970 409^^^^ | |
9789 | "^DD",101. 41,101.412 ,5,21,1,0) | |
9790 | This field identifie s an item as being f ree text f or display purposes | |
9791 | "^DD",101. 41,101.412 ,5,21,2,0) | |
9792 | only. The text in t he Display Text fiel d will be displayed, but it | |
9793 | "^DD",101. 41,101.412 ,5,21,3,0) | |
9794 | is not sel ectable; i f designat ed as a he ader, the text will be underli ned. | |
9795 | "^DD",101. 41,101.412 ,5,"DT") | |
9796 | 2990210 | |
9797 | "^DD",101. 41,101.412 ,6,0) | |
9798 | REQUIRED^S ^1:YES;0:N O;^0;6^Q | |
9799 | "^DD",101. 41,101.412 ,6,3) | |
9800 | Enter YES if a respo nse to thi s prompt i s mandator y. | |
9801 | "^DD",101. 41,101.412 ,6,21,0) | |
9802 | ^^1^1^2950 407^ | |
9803 | "^DD",101. 41,101.412 ,6,21,1,0) | |
9804 | This field indicates that the user must enter a re sponse to this promp t. | |
9805 | "^DD",101. 41,101.412 ,6,"DT") | |
9806 | 2950407 | |
9807 | "^DD",101. 41,101.412 ,7,0) | |
9808 | MULTIPLE V ALUED^S^1: YES;0:NO;^ 0;7^Q | |
9809 | "^DD",101. 41,101.412 ,7,3) | |
9810 | Enter YES if this pr ompt is to be asked multiple t imes. | |
9811 | "^DD",101. 41,101.412 ,7,21,0) | |
9812 | ^^3^3^2950 407^ | |
9813 | "^DD",101. 41,101.412 ,7,21,1,0) | |
9814 | This field determine s if this prompt wil l be allow ed to have multiple | |
9815 | "^DD",101. 41,101.412 ,7,21,2,0) | |
9816 | values, or be prompt ed for onl y once; if this prom pt is a su b-dialog, | |
9817 | "^DD",101. 41,101.412 ,7,21,3,0) | |
9818 | the entire dialog wi ll be aske d once or many times , as a gro up. | |
9819 | "^DD",101. 41,101.412 ,7,"DT") | |
9820 | 2950407 | |
9821 | "^DD",101. 41,101.412 ,7.1,0) | |
9822 | MAX NUMBER OF MULTIP LES^NJ2,0^ ^0;12^K:+X '=X!(X>99) !(X<2)!(X? .E1"."1N.N ) X | |
9823 | "^DD",101. 41,101.412 ,7.1,3) | |
9824 | Type a Num ber betwee n 2 and 99 , 0 Decima l Digits | |
9825 | "^DD",101. 41,101.412 ,7.1,21,0) | |
9826 | ^^4^4^2950 815^ | |
9827 | "^DD",101. 41,101.412 ,7.1,21,1, 0) | |
9828 | This is th e maximum number of values tha t may be e ntered for this prom pt, | |
9829 | "^DD",101. 41,101.412 ,7.1,21,2, 0) | |
9830 | if it is f lagged as being mult iple-value d. For ex ample, a d iet order may | |
9831 | "^DD",101. 41,101.412 ,7.1,21,3, 0) | |
9832 | have up to 5 diet mo dification s entered, where 5 i s the maxi mum allowe d | |
9833 | "^DD",101. 41,101.412 ,7.1,21,4, 0) | |
9834 | that would be entere d here. | |
9835 | "^DD",101. 41,101.412 ,7.1,"DT") | |
9836 | 2950815 | |
9837 | "^DD",101. 41,101.412 ,7.2,0) | |
9838 | TITLE^F^^0 ;13^K:$L(X )>30!($L(X )<3) X | |
9839 | "^DD",101. 41,101.412 ,7.2,3) | |
9840 | Answer mus t be 3-30 characters in length . | |
9841 | "^DD",101. 41,101.412 ,7.2,21,0) | |
9842 | ^^8^8^2970 430^^ | |
9843 | "^DD",101. 41,101.412 ,7.2,21,1, 0) | |
9844 | This is te xt that wi ll be used in place of the pro mpt when t he order i s | |
9845 | "^DD",101. 41,101.412 ,7.2,21,2, 0) | |
9846 | displayed for place, edit, or cancel, or at the to p of a mul tiple-valu ed | |
9847 | "^DD",101. 41,101.412 ,7.2,21,3, 0) | |
9848 | prompt. T he Display Text for the prompt will be u sed togeth er with th e | |
9849 | "^DD",101. 41,101.412 ,7.2,21,4, 0) | |
9850 | instance n umber to p rompt for user input ; for exam ple if Tit le="Lab Te sts:" | |
9851 | "^DD",101. 41,101.412 ,7.2,21,5, 0) | |
9852 | and Displa y Text="Te st:" the u ser would see | |
9853 | "^DD",101. 41,101.412 ,7.2,21,6, 0) | |
9854 | Lab Test s: | |
9855 | "^DD",101. 41,101.412 ,7.2,21,7, 0) | |
9856 | 1. Test: | |
9857 | "^DD",101. 41,101.412 ,7.2,21,8, 0) | |
9858 | 2. Test: | |
9859 | "^DD",101. 41,101.412 ,7.2,"DT") | |
9860 | 2950815 | |
9861 | "^DD",101. 41,101.412 ,7.3,0) | |
9862 | PROMPT^F^^ 0;14^K:$L( X)>10!($L( X)<1) X | |
9863 | "^DD",101. 41,101.412 ,7.3,3) | |
9864 | Answer mus t be 1-10 characters in length . | |
9865 | "^DD",101. 41,101.412 ,7.3,21,0) | |
9866 | ^^3^3^2970 618^ | |
9867 | "^DD",101. 41,101.412 ,7.3,21,1, 0) | |
9868 | This field contains text that will be ap pended to the beginn ing of the | |
9869 | "^DD",101. 41,101.412 ,7.3,21,2, 0) | |
9870 | display te xt when pr ompting fo r addition al values; if this f ield is | |
9871 | "^DD",101. 41,101.412 ,7.3,21,3, 0) | |
9872 | empty, the n "Another " will be used. | |
9873 | "^DD",101. 41,101.412 ,7.3,"DT") | |
9874 | 2970618 | |
9875 | "^DD",101. 41,101.412 ,8,0) | |
9876 | ASK ON EDI T ONLY^S^1 :YES;0:NO; ^0;8^Q | |
9877 | "^DD",101. 41,101.412 ,8,3) | |
9878 | Enter YES if this pr ompt shoul d not be a sked initi ally when creating t his order, only if t he user ch ooses to e dit the or der. | |
9879 | "^DD",101. 41,101.412 ,8,21,0) | |
9880 | ^^4^4^2960 112^^^ | |
9881 | "^DD",101. 41,101.412 ,8,21,1,0) | |
9882 | This field determine s the beha viour of t he dialog driver for this prom pt; | |
9883 | "^DD",101. 41,101.412 ,8,21,2,0) | |
9884 | if no valu e or the d efined def ault is us ually corr ect for th is prompt, | |
9885 | "^DD",101. 41,101.412 ,8,21,3,0) | |
9886 | enter YES here to ha ve this pr ompt skipp ed on the first pass through t his | |
9887 | "^DD",101. 41,101.412 ,8,21,4,0) | |
9888 | dialog whe n creating an order. | |
9889 | "^DD",101. 41,101.412 ,8,"DT") | |
9890 | 2950407 | |
9891 | "^DD",101. 41,101.412 ,9,0) | |
9892 | ASK ON ACT ION^F^^0;9 ^K:$L(X)>3 !($L(X)<1) X | |
9893 | "^DD",101. 41,101.412 ,9,3) | |
9894 | Answer mus t be 1-3 c haracters in length. | |
9895 | "^DD",101. 41,101.412 ,9,21,0) | |
9896 | ^^6^6^2970 708^^^ | |
9897 | "^DD",101. 41,101.412 ,9,21,1,0) | |
9898 | This field determine s the beha viour of t he dialog driver for this prom pt | |
9899 | "^DD",101. 41,101.412 ,9,21,2,0) | |
9900 | when takin g a partic ular actio n on an or der create d by this dialog. I f | |
9901 | "^DD",101. 41,101.412 ,9,21,3,0) | |
9902 | this strin g contains "R", this prompt wi ll be aske d when ren ewing an o rder; | |
9903 | "^DD",101. 41,101.412 ,9,21,4,0) | |
9904 | if this st ring conta ins "C", t his prompt will be a sked when changing a n | |
9905 | "^DD",101. 41,101.412 ,9,21,5,0) | |
9906 | order; if this strin g contains "W", this prompt wi ll be aske d when | |
9907 | "^DD",101. 41,101.412 ,9,21,6,0) | |
9908 | rewriting an order. | |
9909 | "^DD",101. 41,101.412 ,9,"DT") | |
9910 | 2970708 | |
9911 | "^DD",101. 41,101.412 ,10,0) | |
9912 | INDEX^F^^0 ;10^K:$L(X )>25!($L(X )<1) X | |
9913 | "^DD",101. 41,101.412 ,10,3) | |
9914 | Answer mus t be 1-25 characters in length . | |
9915 | "^DD",101. 41,101.412 ,10,21,0) | |
9916 | ^^3^3^2950 713^^^ | |
9917 | "^DD",101. 41,101.412 ,10,21,1,0 ) | |
9918 | For pointe r-type pro mpts, this is the in dex to use when sear ching the file; | |
9919 | "^DD",101. 41,101.412 ,10,21,2,0 ) | |
9920 | it must be in the fo rm of a re gular cros s-referenc e. To sea rch on mul tiple | |
9921 | "^DD",101. 41,101.412 ,10,21,3,0 ) | |
9922 | indices, e nter a str ing of ind ex names s eparated b y semi-col ons, i.e. "B;C". | |
9923 | "^DD",101. 41,101.412 ,10,"DT") | |
9924 | 2950713 | |
9925 | "^DD",101. 41,101.412 ,11,0) | |
9926 | HELP MESSA GE^F^^1;1^ K:$L(X)>16 0!($L(X)<1 ) X | |
9927 | "^DD",101. 41,101.412 ,11,3) | |
9928 | Answer mus t be 1-160 character s in lengt h. | |
9929 | "^DD",101. 41,101.412 ,11,21,0) | |
9930 | ^^2^2^2970 609^^ | |
9931 | "^DD",101. 41,101.412 ,11,21,1,0 ) | |
9932 | This field contains the help m essage to be present ed when th e user ent ers | |
9933 | "^DD",101. 41,101.412 ,11,21,2,0 ) | |
9934 | a question mark at t his prompt . | |
9935 | "^DD",101. 41,101.412 ,11,"DT") | |
9936 | 2970609 | |
9937 | "^DD",101. 41,101.412 ,12,0) | |
9938 | SPECIAL LO OKUP ROUTI NE^F^^1;2^ K:$L(X)>20 !($L(X)<3) X | |
9939 | "^DD",101. 41,101.412 ,12,3) | |
9940 | Enter the routine to use inste ad of DIC to do this lookup, a s [TAG;]RO UTINE | |
9941 | "^DD",101. 41,101.412 ,12,21,0) | |
9942 | ^^3^3^2970 609^ | |
9943 | "^DD",101. 41,101.412 ,12,21,1,0 ) | |
9944 | This field contains a routine to execute that will replace t he standar d | |
9945 | "^DD",101. 41,101.412 ,12,21,2,0 ) | |
9946 | DIC lookup for this prompt; it must be e ntered her e as LINET AG;ROUTINE | |
9947 | "^DD",101. 41,101.412 ,12,21,3,0 ) | |
9948 | using a ; instead of ^ and whe re LINETAG is option al. | |
9949 | "^DD",101. 41,101.412 ,12,"DT") | |
9950 | 2970609 | |
9951 | "^DD",101. 41,101.412 ,13,0) | |
9952 | ASK ON CON DITION^K^^ 3;E1,245^K :$L(X)>245 X D:$D(X) ^DIM | |
9953 | "^DD",101. 41,101.412 ,13,3) | |
9954 | This is MU MPS code t hat sets $ T to deter mine if th is prompt should be asked, or given a de fault valu e and bypa ssed. | |
9955 | "^DD",101. 41,101.412 ,13,9) | |
9956 | @ | |
9957 | "^DD",101. 41,101.412 ,13,21,0) | |
9958 | ^^5^5^2950 407^ | |
9959 | "^DD",101. 41,101.412 ,13,21,1,0 ) | |
9960 | This is MU MPS code t hat sets $ T to deter mine if th is prompt should be asked | |
9961 | "^DD",101. 41,101.412 ,13,21,2,0 ) | |
9962 | or simply given a de fault valu e and pres ented to t he user fo r acceptan ce | |
9963 | "^DD",101. 41,101.412 ,13,21,3,0 ) | |
9964 | or editing . For exa mple, the prompt "Pr egnant: " may have c ode here t o | |
9965 | "^DD",101. 41,101.412 ,13,21,4,0 ) | |
9966 | check the sex of the current p atient, i. e. I ORSEX ="F" will allow it t o be | |
9967 | "^DD",101. 41,101.412 ,13,21,5,0 ) | |
9968 | asked only for femal e patients . | |
9969 | "^DD",101. 41,101.412 ,13,"DT") | |
9970 | 2950407 | |
9971 | "^DD",101. 41,101.412 ,14,0) | |
9972 | SCREEN^K^^ 4;E1,245^K :$L(X)>245 X D:$D(X) ^DIM | |
9973 | "^DD",101. 41,101.412 ,14,3) | |
9974 | This is St andard MUM PS code. | |
9975 | "^DD",101. 41,101.412 ,14,9) | |
9976 | @ | |
9977 | "^DD",101. 41,101.412 ,14,21,0) | |
9978 | ^^2^2^2950 407^ | |
9979 | "^DD",101. 41,101.412 ,14,21,1,0 ) | |
9980 | For pointe r-type pro mpts, this field may contain M UMPS code that will be | |
9981 | "^DD",101. 41,101.412 ,14,21,2,0 ) | |
9982 | set into D IC("S") to screen th e possible choices i n the poin ted-to fil e. | |
9983 | "^DD",101. 41,101.412 ,14,"DT") | |
9984 | 2950407 | |
9985 | "^DD",101. 41,101.412 ,15,0) | |
9986 | POST-SELEC TION ACTIO N^K^^5;E1, 245^K:$L(X )>245 X D: $D(X) ^DIM | |
9987 | "^DD",101. 41,101.412 ,15,3) | |
9988 | This is St andard MUM PS code. | |
9989 | "^DD",101. 41,101.412 ,15,9) | |
9990 | @ | |
9991 | "^DD",101. 41,101.412 ,15,21,0) | |
9992 | ^^3^3^2970 923^^^^ | |
9993 | "^DD",101. 41,101.412 ,15,21,1,0 ) | |
9994 | This is co de that wi ll be exec uted after a respons e is enter ed to this | |
9995 | "^DD",101. 41,101.412 ,15,21,2,0 ) | |
9996 | prompt; if this prom pt should be re-aske d, kill th e variable DONE. | |
9997 | "^DD",101. 41,101.412 ,15,21,3,0 ) | |
9998 | If executi on of the ordering d ialog shou ld be stop ped, set O RQUIT=1. | |
9999 | "^DD",101. 41,101.412 ,15,"DT") | |
10000 | 2970923 | |
10001 | "^DD",101. 41,101.412 ,16,0) | |
10002 | XECUTABLE HELP^K^^6; E1,245^K:$ L(X)>245 X D:$D(X) ^ DIM | |
10003 | "^DD",101. 41,101.412 ,16,3) | |
10004 | This is St andard MUM PS code. | |
10005 | "^DD",101. 41,101.412 ,16,9) | |
10006 | @ | |
10007 | "^DD",101. 41,101.412 ,16,21,0) | |
10008 | ^^2^2^2950 407^ | |
10009 | "^DD",101. 41,101.412 ,16,21,1,0 ) | |
10010 | This is co de that is to be exe cuted when the user enters two or more | |
10011 | "^DD",101. 41,101.412 ,16,21,2,0 ) | |
10012 | question m arks at th is prompt. | |
10013 | "^DD",101. 41,101.412 ,16,"DT") | |
10014 | 2950407 | |
10015 | "^DD",101. 41,101.412 ,17,0) | |
10016 | DEFAULT^K^ ^7;E1,245^ K:$L(X)>24 5 X D:$D(X ) ^DIM | |
10017 | "^DD",101. 41,101.412 ,17,3) | |
10018 | This is St andard MUM PS code. | |
10019 | "^DD",101. 41,101.412 ,17,9) | |
10020 | @ | |
10021 | "^DD",101. 41,101.412 ,17,21,0) | |
10022 | ^^2^2^2971 219^^^^ | |
10023 | "^DD",101. 41,101.412 ,17,21,1,0 ) | |
10024 | This is co de that is to be exe cuted to d etermine t he appropr iate defau lt | |
10025 | "^DD",101. 41,101.412 ,17,21,2,0 ) | |
10026 | value for this promp t, setting Y=interna l form of this value . | |
10027 | "^DD",101. 41,101.412 ,17,"DT") | |
10028 | 2950519 | |
10029 | "^DD",101. 41,101.412 ,18,0) | |
10030 | DEFAULT WO RD-PROCESS ING TEXT^1 01.41218^^ 8;0 | |
10031 | "^DD",101. 41,101.412 ,18,21,0) | |
10032 | ^^1^1^2971 219^ | |
10033 | "^DD",101. 41,101.412 ,18,21,1,0 ) | |
10034 | This is de fault text to be stu ffed into this word- processing prompt. | |
10035 | "^DD",101. 41,101.412 ,19,0) | |
10036 | ENTRY ACTI ON^K^^9;E1 ,245^K:$L( X)>245 X D :$D(X) ^DI M | |
10037 | "^DD",101. 41,101.412 ,19,3) | |
10038 | This is St andard MUM PS code. | |
10039 | "^DD",101. 41,101.412 ,19,9) | |
10040 | @ | |
10041 | "^DD",101. 41,101.412 ,19,21,0) | |
10042 | ^^3^3^2970 609^ | |
10043 | "^DD",101. 41,101.412 ,19,21,1,0 ) | |
10044 | This is co de that wi ll be exec uted at th e beginnin g of the p rocessing of | |
10045 | "^DD",101. 41,101.412 ,19,21,2,0 ) | |
10046 | this promp t, before the Defaul t and Ask on Conditi on fields are execut ed; | |
10047 | "^DD",101. 41,101.412 ,19,21,3,0 ) | |
10048 | any specia l setup re quired for this fiel d should b e done her e. | |
10049 | "^DD",101. 41,101.412 ,19,"DT") | |
10050 | 2970609 | |
10051 | "^DD",101. 41,101.412 ,20,0) | |
10052 | EXIT ACTIO N^K^^10;E1 ,245^K:$L( X)>245 X D :$D(X) ^DI M | |
10053 | "^DD",101. 41,101.412 ,20,3) | |
10054 | This is St andard MUM PS code. | |
10055 | "^DD",101. 41,101.412 ,20,9) | |
10056 | @ | |
10057 | "^DD",101. 41,101.412 ,20,21,0) | |
10058 | ^^3^3^2970 609^ | |
10059 | "^DD",101. 41,101.412 ,20,21,1,0 ) | |
10060 | This is co de that wi ll be exec uted at th e very end of the pr ocessing o f | |
10061 | "^DD",101. 41,101.412 ,20,21,2,0 ) | |
10062 | this promp t, after p rompting a nd the Val idation fi eld is exe cuted; | |
10063 | "^DD",101. 41,101.412 ,20,21,3,0 ) | |
10064 | any specia l cleanup should be done here. | |
10065 | "^DD",101. 41,101.412 ,20,"DT") | |
10066 | 2970609 | |
10067 | "^DD",101. 41,101.412 ,21,0) | |
10068 | ORDER TEXT SEQUENCE^ NJ5,2^^2;1 ^K:+X'=X!( X>99.99)!( X<1)!(X?.E 1"."3N.N) X | |
10069 | "^DD",101. 41,101.412 ,21,1,0) | |
10070 | ^.1 | |
10071 | "^DD",101. 41,101.412 ,21,1,1,0) | |
10072 | 101.412^AT XT | |
10073 | "^DD",101. 41,101.412 ,21,1,1,1) | |
10074 | S ^ORD(101 .41,DA(1), 10,"ATXT", $E(X,1,30) ,DA)="" | |
10075 | "^DD",101. 41,101.412 ,21,1,1,2) | |
10076 | K ^ORD(101 .41,DA(1), 10,"ATXT", $E(X,1,30) ,DA) | |
10077 | "^DD",101. 41,101.412 ,21,1,1,"% D",0) | |
10078 | ^^1^1^2960 226^ | |
10079 | "^DD",101. 41,101.412 ,21,1,1,"% D",1,0) | |
10080 | Used to bu ild order text. | |
10081 | "^DD",101. 41,101.412 ,21,1,1,"D T") | |
10082 | 2960226 | |
10083 | "^DD",101. 41,101.412 ,21,3) | |
10084 | Enter the order in w hich this value shou ld be adde d to the o rder text, as a numb er between 1 and 99. 99; leave this field blank to prevent th is value f rom being included | |
10085 | "^DD",101. 41,101.412 ,21,21,0) | |
10086 | ^^3^3^2970 607^^^ | |
10087 | "^DD",101. 41,101.412 ,21,21,1,0 ) | |
10088 | This field indicates the order in which values wil l be conca tenated | |
10089 | "^DD",101. 41,101.412 ,21,21,2,0 ) | |
10090 | together t o build th e order te xt; this m ay differ from the p rompting | |
10091 | "^DD",101. 41,101.412 ,21,21,3,0 ) | |
10092 | order defi ned in the .01 Seque nce field. | |
10093 | "^DD",101. 41,101.412 ,21,"DT") | |
10094 | 2960226 | |
10095 | "^DD",101. 41,101.412 ,22,0) | |
10096 | FORMAT^F^^ 2;2^K:$L(X )>10!($L(X )<1) X | |
10097 | "^DD",101. 41,101.412 ,22,3) | |
10098 | Answer mus t be 1-10 characters in length . | |
10099 | "^DD",101. 41,101.412 ,22,21,0) | |
10100 | ^^15^15^29 71207^^^^ | |
10101 | "^DD",101. 41,101.412 ,22,21,1,0 ) | |
10102 | This is a string of characters that will define an y exceptio ns to how | |
10103 | "^DD",101. 41,101.412 ,22,21,2,0 ) | |
10104 | the extern al form of this valu e is gener ated. Pos sible valu es include : | |
10105 | "^DD",101. 41,101.412 ,22,21,3,0 ) | |
10106 | Pointer -> <field #> ~<piece in RPC list of field # >, default =.01 | |
10107 | "^DD",101. 41,101.412 ,22,21,4,0 ) | |
10108 | Set of C odes -> 1~<piece in RPC lis t of code> to use co de for nam e | |
10109 | "^DD",101. 41,101.412 ,22,21,5,0 ) | |
10110 | Date/Tim e -> Format st ring to pa ss $$FMTE^ XLFDT (def ault = 2) | |
10111 | "^DD",101. 41,101.412 ,22,21,6,0 ) | |
10112 | ||
10113 | "^DD",101. 41,101.412 ,22,21,7,0 ) | |
10114 | Suppress value -> @ | |
10115 | "^DD",101. 41,101.412 ,22,21,8,0 ) | |
10116 | Replace value -> @<ptr> wh ere ptr is the Dialo g IEN of t he prompt | |
10117 | "^DD",101. 41,101.412 ,22,21,9,0 ) | |
10118 | whose va lue, when present, s upersedes this value | |
10119 | "^DD",101. 41,101.412 ,22,21,10, 0) | |
10120 | Required value -> *<ptr> wh ere ptr is the Dialo g IEN of t he prompt | |
10121 | "^DD",101. 41,101.412 ,22,21,11, 0) | |
10122 | whose va lue is req uired to b e present to include | |
10123 | "^DD",101. 41,101.412 ,22,21,12, 0) | |
10124 | this val ue | |
10125 | "^DD",101. 41,101.412 ,22,21,13, 0) | |
10126 | Ignore i f same -> =<ptr> wh ere ptr is the Dialo g IEN of t he prompt | |
10127 | "^DD",101. 41,101.412 ,22,21,14, 0) | |
10128 | whose va lue, if th e external form is t he same, | |
10129 | "^DD",101. 41,101.412 ,22,21,15, 0) | |
10130 | supersed es this va lue | |
10131 | "^DD",101. 41,101.412 ,22,"DT") | |
10132 | 2960226 | |
10133 | "^DD",101. 41,101.412 ,23,0) | |
10134 | OMIT TEXT^ F^^2;3^K:$ L(X)>30!($ L(X)<1) X | |
10135 | "^DD",101. 41,101.412 ,23,3) | |
10136 | Answer mus t be 1-30 characters in length . | |
10137 | "^DD",101. 41,101.412 ,23,21,0) | |
10138 | ^^3^3^2970 829^^^^ | |
10139 | "^DD",101. 41,101.412 ,23,21,1,0 ) | |
10140 | This is th e external form of a value tha t is not t o be inclu ded when b uilding | |
10141 | "^DD",101. 41,101.412 ,23,21,2,0 ) | |
10142 | the order text. E.g . to inclu de the urg ency in th e order te xt unless it | |
10143 | "^DD",101. 41,101.412 ,23,21,3,0 ) | |
10144 | is routine , enter "R OUTINE" he re. | |
10145 | "^DD",101. 41,101.412 ,23,"DT") | |
10146 | 2970829 | |
10147 | "^DD",101. 41,101.412 ,24,0) | |
10148 | LEADING TE XT^F^^2;4^ K:$L(X)>80 !($L(X)<1) X | |
10149 | "^DD",101. 41,101.412 ,24,3) | |
10150 | Answer mus t be 1-80 characters in length . | |
10151 | "^DD",101. 41,101.412 ,24,21,0) | |
10152 | ^^3^3^2970 724^^^^ | |
10153 | "^DD",101. 41,101.412 ,24,21,1,0 ) | |
10154 | This field contains text that will be ap pended to the order text | |
10155 | "^DD",101. 41,101.412 ,24,21,2,0 ) | |
10156 | immediatel y in front of this v alue, e.g. "Instruct ions:". I f this tex t | |
10157 | "^DD",101. 41,101.412 ,24,21,3,0 ) | |
10158 | is contain ed in a va riable, en ter @NAME where NAME is the va riable nam e. | |
10159 | "^DD",101. 41,101.412 ,24,"DT") | |
10160 | 2970724 | |
10161 | "^DD",101. 41,101.412 ,25,0) | |
10162 | TRAILING T EXT^F^^2;5 ^K:$L(X)>8 0!($L(X)<1 ) X | |
10163 | "^DD",101. 41,101.412 ,25,3) | |
10164 | Answer mus t be 1-80 characters in length . | |
10165 | "^DD",101. 41,101.412 ,25,21,0) | |
10166 | ^^3^3^2970 724^^^^ | |
10167 | "^DD",101. 41,101.412 ,25,21,1,0 ) | |
10168 | This field contains text that will be ap pended to the order text | |
10169 | "^DD",101. 41,101.412 ,25,21,2,0 ) | |
10170 | immediatel y followin g this val ue, e.g. " refills". If this t ext is | |
10171 | "^DD",101. 41,101.412 ,25,21,3,0 ) | |
10172 | contained in a varia ble, enter @NAME whe re NAME is the varia ble name. | |
10173 | "^DD",101. 41,101.412 ,25,"DT") | |
10174 | 2970724 | |
10175 | "^DD",101. 41,101.412 ,26,0) | |
10176 | START NEW LINE^S^1:Y ES;0:NO;^2 ;6^Q | |
10177 | "^DD",101. 41,101.412 ,26,3) | |
10178 | Enter YES if this va lue should begin on a new line in the or der text. | |
10179 | "^DD",101. 41,101.412 ,26,21,0) | |
10180 | 0^^2^2^297 0911^ | |
10181 | "^DD",101. 41,101.412 ,26,21,1,0 ) | |
10182 | This field determine s if this value is c oncatenate d onto the current l ine | |
10183 | "^DD",101. 41,101.412 ,26,21,2,0 ) | |
10184 | when build ing the or der text, or if a ne w line is started wi th this va lue. | |
10185 | "^DD",101. 41,101.412 ,26,"DT") | |
10186 | 2970911 | |
10187 | "^DD",101. 41,101.412 ,27,0) | |
10188 | WORD-WRAP^ S^1:DON'T WRAP;0:WRA P;^2;7^Q | |
10189 | "^DD",101. 41,101.412 ,27,3) | |
10190 | Enter 'Don 't Wrap' t o have the text be a dded line- by-line as it is sto red; the d efault for matting is 'Wrap'. | |
10191 | "^DD",101. 41,101.412 ,27,21,0) | |
10192 | ^^3^3^2970 926^^^ | |
10193 | "^DD",101. 41,101.412 ,27,21,1,0 ) | |
10194 | This field determine s if this text shoul d be wrapp ed when ad ded to the | |
10195 | "^DD",101. 41,101.412 ,27,21,2,0 ) | |
10196 | order text , or appen ded line b y line as stored in the file; this is on ly | |
10197 | "^DD",101. 41,101.412 ,27,21,3,0 ) | |
10198 | used for w ord-proces sing type prompts. | |
10199 | "^DD",101. 41,101.412 ,27,"DT") | |
10200 | 2970926 | |
10201 | "^DD",101. 41,101.412 ,101,0) | |
10202 | WINDOWS CO NTROL^F^^W ;1^K:$L(X) >30!($L(X) <1) X | |
10203 | "^DD",101. 41,101.412 ,101,3) | |
10204 | Answer mus t be 1-30 characters in length . | |
10205 | "^DD",101. 41,101.412 ,101,21,0) | |
10206 | ^^2^2^2950 715^ | |
10207 | "^DD",101. 41,101.412 ,101,21,1, 0) | |
10208 | Stores the type of W indows con trol neces sary to ge t the data for this | |
10209 | "^DD",101. 41,101.412 ,101,21,2, 0) | |
10210 | prompt. | |
10211 | "^DD",101. 41,101.412 ,101,"DT") | |
10212 | 2960517 | |
10213 | "^DD",101. 41,101.412 ,102,0) | |
10214 | API NAME^F ^^W;2^K:$L (X)>30!($L (X)<1) X | |
10215 | "^DD",101. 41,101.412 ,102,3) | |
10216 | Answer mus t be 1-30 characters in length . | |
10217 | "^DD",101. 41,101.412 ,102,21,0) | |
10218 | ^^3^3^2950 715^ | |
10219 | "^DD",101. 41,101.412 ,102,21,1, 0) | |
10220 | This is th e API that should be called wh en the con trol is us ed. How t he API | |
10221 | "^DD",101. 41,101.412 ,102,21,2, 0) | |
10222 | is used va rys with t he control . Example s are: fil ling list boxes, get ting | |
10223 | "^DD",101. 41,101.412 ,102,21,3, 0) | |
10224 | boilerplat e text, et c. | |
10225 | "^DD",101. 41,101.412 ,102,"DT") | |
10226 | 2951002 | |
10227 | "^DD",101. 41,101.412 ,103,0) | |
10228 | API PARAME TER #1^F^^ W;3^K:$L(X )>30!($L(X )<1) X | |
10229 | "^DD",101. 41,101.412 ,103,3) | |
10230 | Answer mus t be 1-30 characters in length . | |
10231 | "^DD",101. 41,101.412 ,103,21,0) | |
10232 | ^^1^1^2950 715^ | |
10233 | "^DD",101. 41,101.412 ,103,21,1, 0) | |
10234 | A paramete r that is used by th e API call may be st ored here. | |
10235 | "^DD",101. 41,101.412 ,103,"DT") | |
10236 | 2950715 | |
10237 | "^DD",101. 41,101.412 ,113,0) | |
10238 | WINDOWS CO NDITION^K^ ^W3;E1,245 ^K:$L(X)>2 45 X D:$D( X) ^DIM | |
10239 | "^DD",101. 41,101.412 ,113,3) | |
10240 | This is St andard MUM PS code. | |
10241 | "^DD",101. 41,101.412 ,113,9) | |
10242 | @ | |
10243 | "^DD",101. 41,101.412 ,113,21,0) | |
10244 | ^^3^3^2950 715^ | |
10245 | "^DD",101. 41,101.412 ,113,21,1, 0) | |
10246 | This is si lent code that is ex ecuted whe n building the dialo g for wind ows. | |
10247 | "^DD",101. 41,101.412 ,113,21,2, 0) | |
10248 | It identif ies which prompts sh ould be in cluded in the dialog . The con dition | |
10249 | "^DD",101. 41,101.412 ,113,21,3, 0) | |
10250 | should lea ve $T fals e if the p rompt shou ld not be asked. | |
10251 | "^DD",101. 41,101.412 ,113,"DT") | |
10252 | 2950715 | |
10253 | "^DD",101. 41,101.412 ,117,0) | |
10254 | WINDOWS DE FAULT^K^^W 7;E1,245^K :$L(X)>245 X D:$D(X) ^DIM | |
10255 | "^DD",101. 41,101.412 ,117,3) | |
10256 | This is St andard MUM PS code. | |
10257 | "^DD",101. 41,101.412 ,117,9) | |
10258 | @ | |
10259 | "^DD",101. 41,101.412 ,117,21,0) | |
10260 | ^^2^2^2950 715^ | |
10261 | "^DD",101. 41,101.412 ,117,21,1, 0) | |
10262 | This code should sil ently set the defaul t value of a prompt when it is | |
10263 | "^DD",101. 41,101.412 ,117,21,2, 0) | |
10264 | selected. | |
10265 | "^DD",101. 41,101.412 ,117,"DT") | |
10266 | 2950715 | |
10267 | "^DD",101. 41,101.412 18,0) | |
10268 | DEFAULT WO RD-PROCESS ING TEXT S UB-FIELD^^ .01^1 | |
10269 | "^DD",101. 41,101.412 18,0,"DT") | |
10270 | 2950407 | |
10271 | "^DD",101. 41,101.412 18,0,"NM", "DEFAULT W ORD-PROCES SING TEXT" ) | |
10272 | ||
10273 | "^DD",101. 41,101.412 18,0,"UP") | |
10274 | 101.412 | |
10275 | "^DD",101. 41,101.412 18,.01,0) | |
10276 | DEFAULT WO RD-PROCESS ING TEXT^W ^^0;1^Q | |
10277 | "^DD",101. 41,101.412 18,.01,3) | |
10278 | Enter the default re sponse for a word-pr ocessing t ype prompt . | |
10279 | "^DD",101. 41,101.412 18,.01,21, 0) | |
10280 | ^^2^2^2950 407^ | |
10281 | "^DD",101. 41,101.412 18,.01,21, 1,0) | |
10282 | This field contains the text t o be prese nted as th e default for this p rompt, | |
10283 | "^DD",101. 41,101.412 18,.01,21, 2,0) | |
10284 | for word-p rocessing type promp ts. | |
10285 | "^DD",101. 41,101.412 18,.01,"DT ") | |
10286 | 2950407 | |
10287 | "^DD",101. 41,101.415 ,0) | |
10288 | CONTROLS S UB-FIELD^^ 14^14 | |
10289 | "^DD",101. 41,101.415 ,0,"DT") | |
10290 | 2960202 | |
10291 | "^DD",101. 41,101.415 ,0,"IX","A C",101.415 ,3) | |
10292 | ||
10293 | "^DD",101. 41,101.415 ,0,"IX","B ",101.415, .01) | |
10294 | ||
10295 | "^DD",101. 41,101.415 ,0,"NM","C ONTROLS") | |
10296 | ||
10297 | "^DD",101. 41,101.415 ,0,"UP") | |
10298 | 101.41 | |
10299 | "^DD",101. 41,101.415 ,.01,0) | |
10300 | LOGICAL NA ME^MF^^0;1 ^K:$L(X)>8 !($L(X)<1) !'(X?1.8U) X | |
10301 | "^DD",101. 41,101.415 ,.01,1,0) | |
10302 | ^.1 | |
10303 | "^DD",101. 41,101.415 ,.01,1,1,0 ) | |
10304 | 101.415^B | |
10305 | "^DD",101. 41,101.415 ,.01,1,1,1 ) | |
10306 | S ^ORD(101 .41,DA(1), 50,"B",$E( X,1,30),DA )="" | |
10307 | "^DD",101. 41,101.415 ,.01,1,1,2 ) | |
10308 | K ^ORD(101 .41,DA(1), 50,"B",$E( X,1,30),DA ) | |
10309 | "^DD",101. 41,101.415 ,.01,3) | |
10310 | Answer mus t be 1-8 c haracters in length. | |
10311 | "^DD",101. 41,101.415 ,.01,21,0) | |
10312 | ^^1^1^2960 202^ | |
10313 | "^DD",101. 41,101.415 ,.01,21,1, 0) | |
10314 | This is th e name by which cont rols can r efer to ea ch other. | |
10315 | "^DD",101. 41,101.415 ,.01,"DT") | |
10316 | 2960202 | |
10317 | "^DD",101. 41,101.415 ,2,0) | |
10318 | ITEM^P101. 41'^ORD(10 1.41,^0;2^ Q | |
10319 | "^DD",101. 41,101.415 ,2,"DT") | |
10320 | 2960202 | |
10321 | "^DD",101. 41,101.415 ,3,0) | |
10322 | CREATE SEQ UENCE^NJ2, 0^^0;3^K:+ X'=X!(X>99 )!(X<1)!(X ?.E1"."1N. N) X | |
10323 | "^DD",101. 41,101.415 ,3,1,0) | |
10324 | ^.1 | |
10325 | "^DD",101. 41,101.415 ,3,1,1,0) | |
10326 | 101.415^AC | |
10327 | "^DD",101. 41,101.415 ,3,1,1,1) | |
10328 | S ^ORD(101 .41,DA(1), 50,"AC",$E (X,1,30),D A)="" | |
10329 | "^DD",101. 41,101.415 ,3,1,1,2) | |
10330 | K ^ORD(101 .41,DA(1), 50,"AC",$E (X,1,30),D A) | |
10331 | "^DD",101. 41,101.415 ,3,1,1,"%D ",0) | |
10332 | ^^2^2^2960 202^ | |
10333 | "^DD",101. 41,101.415 ,3,1,1,"%D ",1,0) | |
10334 | The 'AC' c ross-refer ence puts in window controls i n order by creation | |
10335 | "^DD",101. 41,101.415 ,3,1,1,"%D ",2,0) | |
10336 | sequence. | |
10337 | "^DD",101. 41,101.415 ,3,1,1,"DT ") | |
10338 | 2960202 | |
10339 | "^DD",101. 41,101.415 ,3,3) | |
10340 | Type a Num ber betwee n 1 and 99 , 0 Decima l Digits | |
10341 | "^DD",101. 41,101.415 ,3,"DT") | |
10342 | 2960202 | |
10343 | "^DD",101. 41,101.415 ,4,0) | |
10344 | CONTROL TY PE^S^0:Lab el;1:Butto n;2:Edit;3 :Memo;4:Li stBox;5:Si mpleCombo; 6:DropDown List;7:Lon gCombo;^0; 4^Q | |
10345 | "^DD",101. 41,101.415 ,4,"DT") | |
10346 | 2960202 | |
10347 | "^DD",101. 41,101.415 ,5,0) | |
10348 | LABEL^F^^0 ;5^K:$L(X) >30!($L(X) <1) X | |
10349 | "^DD",101. 41,101.415 ,5,3) | |
10350 | Answer mus t be 1-30 characters in length . | |
10351 | "^DD",101. 41,101.415 ,5,"DT") | |
10352 | 2960202 | |
10353 | "^DD",101. 41,101.415 ,6,0) | |
10354 | BESIDE^F^^ 0;6^K:$L(X )>8!($L(X) <1) X | |
10355 | "^DD",101. 41,101.415 ,6,3) | |
10356 | Answer mus t be 1-8 c haracters in length. | |
10357 | "^DD",101. 41,101.415 ,6,"DT") | |
10358 | 2960202 | |
10359 | "^DD",101. 41,101.415 ,7,0) | |
10360 | BELOW^F^^0 ;7^K:$L(X) >8!($L(X)< 1) X | |
10361 | "^DD",101. 41,101.415 ,7,3) | |
10362 | Answer mus t be 1-8 c haracters in length. | |
10363 | "^DD",101. 41,101.415 ,7,"DT") | |
10364 | 2960202 | |
10365 | "^DD",101. 41,101.415 ,8,0) | |
10366 | WIDTH^NJ6, 4^^0;8^K:+ X'=X!(X>1) !(X<0)!(X? .E1"."5N.N ) X | |
10367 | "^DD",101. 41,101.415 ,8,3) | |
10368 | Type a Num ber betwee n 0 and 1, 4 Decimal Digits | |
10369 | "^DD",101. 41,101.415 ,8,"DT") | |
10370 | 2960202 | |
10371 | "^DD",101. 41,101.415 ,9,0) | |
10372 | LEFT CONTR OL^F^^0;9^ K:$L(X)>8! ($L(X)<1) X | |
10373 | "^DD",101. 41,101.415 ,9,3) | |
10374 | Answer mus t be 1-8 c haracters in length. | |
10375 | "^DD",101. 41,101.415 ,9,"DT") | |
10376 | 2960202 | |
10377 | "^DD",101. 41,101.415 ,10,0) | |
10378 | RIGHT CONT ROL^F^^0;1 0^K:$L(X)> 8!($L(X)<1 ) X | |
10379 | "^DD",101. 41,101.415 ,10,3) | |
10380 | Answer mus t be 1-8 c haracters in length. | |
10381 | "^DD",101. 41,101.415 ,10,"DT") | |
10382 | 2960202 | |
10383 | "^DD",101. 41,101.415 ,11,0) | |
10384 | HEIGHT^NJ2 ,0^^0;11^K :+X'=X!(X> 15)!(X<1)! (X?.E1"."1 N.N) X | |
10385 | "^DD",101. 41,101.415 ,11,3) | |
10386 | Type a Num ber betwee n 1 and 15 , 0 Decima l Digits | |
10387 | "^DD",101. 41,101.415 ,11,"DT") | |
10388 | 2960202 | |
10389 | "^DD",101. 41,101.415 ,12,0) | |
10390 | UPPER CONT ROL^F^^0;1 2^K:$L(X)> 8!($L(X)<1 ) X | |
10391 | "^DD",101. 41,101.415 ,12,3) | |
10392 | Answer mus t be 1-8 c haracters in length. | |
10393 | "^DD",101. 41,101.415 ,12,"DT") | |
10394 | 2960202 | |
10395 | "^DD",101. 41,101.415 ,13,0) | |
10396 | LOWER CONT ROL^F^^0;1 3^K:$L(X)> 8!($L(X)<1 ) X | |
10397 | "^DD",101. 41,101.415 ,13,3) | |
10398 | Answer mus t be 1-8 c haracters in length. | |
10399 | "^DD",101. 41,101.415 ,13,"DT") | |
10400 | 2960202 | |
10401 | "^DD",101. 41,101.415 ,14,0) | |
10402 | TAB SEQUEN CE^NJ2,0^^ 0;14^K:+X' =X!(X>89)! (X<0)!(X?. E1"."1N.N) X | |
10403 | "^DD",101. 41,101.415 ,14,3) | |
10404 | Type a Num ber betwee n 0 and 89 , 0 Decima l Digits | |
10405 | "^DD",101. 41,101.415 ,14,"DT") | |
10406 | 2960202 | |
10407 | "^DD",101. 41,101.416 ,0) | |
10408 | RESPONSES SUB-FIELD^ ^2^5 | |
10409 | "^DD",101. 41,101.416 ,0,"DT") | |
10410 | 2960717 | |
10411 | "^DD",101. 41,101.416 ,0,"IX","D ",101.416, .02) | |
10412 | ||
10413 | "^DD",101. 41,101.416 ,0,"NM","R ESPONSES") | |
10414 | ||
10415 | "^DD",101. 41,101.416 ,0,"UP") | |
10416 | 101.41 | |
10417 | "^DD",101. 41,101.416 ,.01,0) | |
10418 | ITEM ENTRY ^MNJ7,0^^0 ;1^K:+X'=X !(X>999999 9)!(X<1)!( X?.E1"."1N .N) X | |
10419 | "^DD",101. 41,101.416 ,.01,1,0) | |
10420 | ^.1^^0 | |
10421 | "^DD",101. 41,101.416 ,.01,3) | |
10422 | Type a Num ber betwee n 1 and 99 99999, 0 D ecimal Dig its | |
10423 | "^DD",101. 41,101.416 ,.01,21,0) | |
10424 | ^^2^2^2971 219^^^ | |
10425 | "^DD",101. 41,101.416 ,.01,21,1, 0) | |
10426 | This is th e internal entry num ber of the prompt in the Item multiple | |
10427 | "^DD",101. 41,101.416 ,.01,21,2, 0) | |
10428 | by which t his respon se was obt ained. | |
10429 | "^DD",101. 41,101.416 ,.01,"DT") | |
10430 | 2961118 | |
10431 | "^DD",101. 41,101.416 ,.02,0) | |
10432 | DIALOG^P10 1.41'^ORD( 101.41,^0; 2^Q | |
10433 | "^DD",101. 41,101.416 ,.02,1,0) | |
10434 | ^.1 | |
10435 | "^DD",101. 41,101.416 ,.02,1,1,0 ) | |
10436 | 101.416^D | |
10437 | "^DD",101. 41,101.416 ,.02,1,1,1 ) | |
10438 | S ^ORD(101 .41,DA(1), 6,"D",$E(X ,1,30),DA) ="" | |
10439 | "^DD",101. 41,101.416 ,.02,1,1,2 ) | |
10440 | K ^ORD(101 .41,DA(1), 6,"D",$E(X ,1,30),DA) | |
10441 | "^DD",101. 41,101.416 ,.02,1,1," DT") | |
10442 | 2961118 | |
10443 | "^DD",101. 41,101.416 ,.02,3) | |
10444 | Select the dialog pr ompt from which this response was genera ted. | |
10445 | "^DD",101. 41,101.416 ,.02,21,0) | |
10446 | ^^2^2^2960 717^ | |
10447 | "^DD",101. 41,101.416 ,.02,21,1, 0) | |
10448 | This is a pointer to the dialo g prompt, which is i n the Orde r Dialog f ile | |
10449 | "^DD",101. 41,101.416 ,.02,21,2, 0) | |
10450 | as type pr ompt. | |
10451 | "^DD",101. 41,101.416 ,.02,"DT") | |
10452 | 2961118 | |
10453 | "^DD",101. 41,101.416 ,.03,0) | |
10454 | INSTANCE^N J7,0^^0;3^ K:+X'=X!(X >9999999)! (X<1)!(X?. E1"."1N.N) X | |
10455 | "^DD",101. 41,101.416 ,.03,3) | |
10456 | Type a Num ber betwee n 1 and 99 99999, 0 D ecimal Dig its | |
10457 | "^DD",101. 41,101.416 ,.03,21,0) | |
10458 | ^^2^2^2960 717^ | |
10459 | "^DD",101. 41,101.416 ,.03,21,1, 0) | |
10460 | In the cas e of multi ple answer s for the same item, this iden tifies the | |
10461 | "^DD",101. 41,101.416 ,.03,21,2, 0) | |
10462 | individual instance. | |
10463 | "^DD",101. 41,101.416 ,.03,"DT") | |
10464 | 2960717 | |
10465 | "^DD",101. 41,101.416 ,1,0) | |
10466 | VALUE^FO^^ 1;1^K:$L(X )>245!($L( X)<1) X | |
10467 | "^DD",101. 41,101.416 ,1,2) | |
10468 | S Y(0)=Y S Y=$$OUTPU T^ORCMEDT5 (Y) | |
10469 | "^DD",101. 41,101.416 ,1,2.1) | |
10470 | S Y=$$OUTP UT^ORCMEDT 5(Y) | |
10471 | "^DD",101. 41,101.416 ,1,3) | |
10472 | Answer mus t be 1-245 character s in lengt h. | |
10473 | "^DD",101. 41,101.416 ,1,21,0) | |
10474 | ^^2^2^2971 219^^ | |
10475 | "^DD",101. 41,101.416 ,1,21,1,0) | |
10476 | This conta ins the ac tual respo nse, unles s the valu e is a wor d processi ng | |
10477 | "^DD",101. 41,101.416 ,1,21,2,0) | |
10478 | type. | |
10479 | "^DD",101. 41,101.416 ,1,"DT") | |
10480 | 2980717 | |
10481 | "^DD",101. 41,101.416 ,2,0) | |
10482 | TEXT^101.4 162^^2;0 | |
10483 | "^DD",101. 41,101.416 ,2,21,0) | |
10484 | ^^1^1^2971 219^ | |
10485 | "^DD",101. 41,101.416 ,2,21,1,0) | |
10486 | This conta ins the ac tual respo nse, for w ord-proces sing type prompts. | |
10487 | "^DD",101. 41,101.416 ,2,"DT") | |
10488 | 2960717 | |
10489 | "^DD",101. 41,101.416 2,0) | |
10490 | TEXT SUB-F IELD^^.01^ 1 | |
10491 | "^DD",101. 41,101.416 2,0,"DT") | |
10492 | 2960717 | |
10493 | "^DD",101. 41,101.416 2,0,"NM"," TEXT") | |
10494 | ||
10495 | "^DD",101. 41,101.416 2,0,"UP") | |
10496 | 101.416 | |
10497 | "^DD",101. 41,101.416 2,.01,0) | |
10498 | TEXT^WL^^0 ;1^Q | |
10499 | "^DD",101. 41,101.416 2,.01,21,0 ) | |
10500 | ^^1^1^2960 717^^ | |
10501 | "^DD",101. 41,101.416 2,.01,21,1 ,0) | |
10502 | This conta ins respon ses to ite ms that ar e a word p rocessing type. | |
10503 | "^DD",101. 41,101.416 2,.01,"DT" ) | |
10504 | 2960717 | |
10505 | "^DIC",100 .9,100.9,0 ) | |
10506 | OE/RR NOTI FICATIONS^ 100.9 | |
10507 | "^DIC",100 .9,100.9,0 ,"GL") | |
10508 | ^ORD(100.9 , | |
10509 | "^DIC",100 .9,100.9," %D",0) | |
10510 | ^^5^5^2970 731^^^ | |
10511 | "^DIC",100 .9,100.9," %D",1,0) | |
10512 | This file contains d ata used t o generate notificat ions. Pac kages | |
10513 | "^DIC",100 .9,100.9," %D",2,0) | |
10514 | determine if a notif ication sh ould be se nt then se nd the pat ient ID an d | |
10515 | "^DIC",100 .9,100.9," %D",3,0) | |
10516 | notificati on ID (IEN in this f ile) to or der entry routines. Based on the | |
10517 | "^DIC",100 .9,100.9," %D",4,0) | |
10518 | notificati on IEN, da ta from th is file is used to g enerate th e notifica tion | |
10519 | "^DIC",100 .9,100.9," %D",5,0) | |
10520 | and help d etermine i ts recipie nts. | |
10521 | "^DIC",100 .9,"B","OE /RR NOTIFI CATIONS",1 00.9) | |
10522 | ||
10523 | "^DIC",100 .98,100.98 ,0) | |
10524 | DISPLAY GR OUP^100.98 I | |
10525 | "^DIC",100 .98,100.98 ,0,"GL") | |
10526 | ^ORD(100.9 8, | |
10527 | "^DIC",100 .98,100.98 ,"%D",0) | |
10528 | ^^5^5^2971 218^^^^ | |
10529 | "^DIC",100 .98,100.98 ,"%D",1,0) | |
10530 | This file allows ord ers to be clustered in groups other than by packag e. | |
10531 | "^DIC",100 .98,100.98 ,"%D",2,0) | |
10532 | It is simi lar in str ucture to the OPTION File (19) . This al lows displ ay | |
10533 | "^DIC",100 .98,100.98 ,"%D",3,0) | |
10534 | groups to be arrange d in a hie rarchy. T he main en try in thi s file | |
10535 | "^DIC",100 .98,100.98 ,"%D",4,0) | |
10536 | should be 'ALL SERVI CES'. Oth er entries should be logically subordina te | |
10537 | "^DIC",100 .98,100.98 ,"%D",5,0) | |
10538 | to the 'AL L SERVICES ' entry. | |
10539 | "^DIC",100 .98,"B","D ISPLAY GRO UP",100.98 ) | |
10540 | ||
10541 | "^DIC",101 .41,101.41 ,0) | |
10542 | ORDER DIAL OG^101.41 | |
10543 | "^DIC",101 .41,101.41 ,0,"GL") | |
10544 | ^ORD(101.4 1, | |
10545 | "^DIC",101 .41,101.41 ,"%D",0) | |
10546 | ^^2^2^2960 819^^ | |
10547 | "^DIC",101 .41,101.41 ,"%D",1,0) | |
10548 | This file contains t he informa tion neede d to defin e how to p rompt for each | |
10549 | "^DIC",101 .41,101.41 ,"%D",2,0) | |
10550 | order, wha t values a re accepta ble, etc. | |
10551 | "^DIC",101 .41,"B","O RDER DIALO G",101.41) | |
10552 | ||
10553 | **INSTALL NAME** | |
10554 | GMRV*5.0*3 4 | |
10555 | "BLD",9673 ,0) | |
10556 | GMRV*5.0*3 4^GEN. MED . REC. - V ITALS^0^31 70629^y | |
10557 | "BLD",9673 ,4,0) | |
10558 | ^9.64PA^^ | |
10559 | "BLD",9673 ,6.3) | |
10560 | 27 | |
10561 | "BLD",9673 ,"INIT") | |
10562 | EN^GMV34PS T | |
10563 | "BLD",9673 ,"KRN",0) | |
10564 | ^9.67PA^77 9.2^20 | |
10565 | "BLD",9673 ,"KRN",.4, 0) | |
10566 | .4 | |
10567 | "BLD",9673 ,"KRN",.40 1,0) | |
10568 | .401 | |
10569 | "BLD",9673 ,"KRN",.40 2,0) | |
10570 | .402 | |
10571 | "BLD",9673 ,"KRN",.40 3,0) | |
10572 | .403 | |
10573 | "BLD",9673 ,"KRN",.5, 0) | |
10574 | .5 | |
10575 | "BLD",9673 ,"KRN",.84 ,0) | |
10576 | .84 | |
10577 | "BLD",9673 ,"KRN",3.6 ,0) | |
10578 | 3.6 | |
10579 | "BLD",9673 ,"KRN",3.8 ,0) | |
10580 | 3.8 | |
10581 | "BLD",9673 ,"KRN",9.2 ,0) | |
10582 | 9.2 | |
10583 | "BLD",9673 ,"KRN",9.8 ,0) | |
10584 | 9.8 | |
10585 | "BLD",9673 ,"KRN",19, 0) | |
10586 | 19 | |
10587 | "BLD",9673 ,"KRN",19. 1,0) | |
10588 | 19.1 | |
10589 | "BLD",9673 ,"KRN",101 ,0) | |
10590 | 101 | |
10591 | "BLD",9673 ,"KRN",409 .61,0) | |
10592 | 409.61 | |
10593 | "BLD",9673 ,"KRN",771 ,0) | |
10594 | 771 | |
10595 | "BLD",9673 ,"KRN",779 .2,0) | |
10596 | 779.2 | |
10597 | "BLD",9673 ,"KRN",870 ,0) | |
10598 | 870 | |
10599 | "BLD",9673 ,"KRN",898 9.51,0) | |
10600 | 8989.51 | |
10601 | "BLD",9673 ,"KRN",898 9.52,0) | |
10602 | 8989.52 | |
10603 | "BLD",9673 ,"KRN",899 4,0) | |
10604 | 8994 | |
10605 | "BLD",9673 ,"KRN","B" ,.4,.4) | |
10606 | ||
10607 | "BLD",9673 ,"KRN","B" ,.401,.401 ) | |
10608 | ||
10609 | "BLD",9673 ,"KRN","B" ,.402,.402 ) | |
10610 | ||
10611 | "BLD",9673 ,"KRN","B" ,.403,.403 ) | |
10612 | ||
10613 | "BLD",9673 ,"KRN","B" ,.5,.5) | |
10614 | ||
10615 | "BLD",9673 ,"KRN","B" ,.84,.84) | |
10616 | ||
10617 | "BLD",9673 ,"KRN","B" ,3.6,3.6) | |
10618 | ||
10619 | "BLD",9673 ,"KRN","B" ,3.8,3.8) | |
10620 | ||
10621 | "BLD",9673 ,"KRN","B" ,9.2,9.2) | |
10622 | ||
10623 | "BLD",9673 ,"KRN","B" ,9.8,9.8) | |
10624 | ||
10625 | "BLD",9673 ,"KRN","B" ,19,19) | |
10626 | ||
10627 | "BLD",9673 ,"KRN","B" ,19.1,19.1 ) | |
10628 | ||
10629 | "BLD",9673 ,"KRN","B" ,101,101) | |
10630 | ||
10631 | "BLD",9673 ,"KRN","B" ,409.61,40 9.61) | |
10632 | ||
10633 | "BLD",9673 ,"KRN","B" ,771,771) | |
10634 | ||
10635 | "BLD",9673 ,"KRN","B" ,779.2,779 .2) | |
10636 | ||
10637 | "BLD",9673 ,"KRN","B" ,870,870) | |
10638 | ||
10639 | "BLD",9673 ,"KRN","B" ,8989.51,8 989.51) | |
10640 | ||
10641 | "BLD",9673 ,"KRN","B" ,8989.52,8 989.52) | |
10642 | ||
10643 | "BLD",9673 ,"KRN","B" ,8994,8994 ) | |
10644 | ||
10645 | "BLD",9673 ,"QUES",0) | |
10646 | ^9.62^^ | |
10647 | "BLD",9673 ,"REQB",0) | |
10648 | ^9.611^1^1 | |
10649 | "BLD",9673 ,"REQB",1, 0) | |
10650 | OR*3.0*434 ^2 | |
10651 | "BLD",9673 ,"REQB","B ","OR*3.0* 434",1) | |
10652 | ||
10653 | "INIT") | |
10654 | EN^GMV34PS T | |
10655 | "MBREQ") | |
10656 | 1 | |
10657 | "PKG",503, -1) | |
10658 | 1^1 | |
10659 | "PKG",503, 0) | |
10660 | GEN. MED. REC. - VIT ALS^GMRV^V itals/Meas urements M odule of G eneral Med ical Recor d. | |
10661 | "PKG",503, 20,0) | |
10662 | ^9.402P^^ | |
10663 | "PKG",503, 22,0) | |
10664 | ^9.49I^1^1 | |
10665 | "PKG",503, 22,1,0) | |
10666 | 5.0^302102 8^3030402^ 11748 | |
10667 | "PKG",503, 22,1,"PAH" ,1,0) | |
10668 | 34^3170629 ^100000002 00 | |
10669 | "QUES","XP F1",0) | |
10670 | Y | |
10671 | "QUES","XP F1","??") | |
10672 | ^D REP^XPD H | |
10673 | "QUES","XP F1","A") | |
10674 | Shall I wr ite over y our |FLAG| File | |
10675 | "QUES","XP F1","B") | |
10676 | YES | |
10677 | "QUES","XP F1","M") | |
10678 | D XPF1^XPD IQ | |
10679 | "QUES","XP F2",0) | |
10680 | Y | |
10681 | "QUES","XP F2","??") | |
10682 | ^D DTA^XPD H | |
10683 | "QUES","XP F2","A") | |
10684 | Want my da ta |FLAG| yours | |
10685 | "QUES","XP F2","B") | |
10686 | YES | |
10687 | "QUES","XP F2","M") | |
10688 | D XPF2^XPD IQ | |
10689 | "QUES","XP I1",0) | |
10690 | YO | |
10691 | "QUES","XP I1","??") | |
10692 | ^D INHIBIT ^XPDH | |
10693 | "QUES","XP I1","A") | |
10694 | Want KIDS to INHIBIT LOGONs du ring the i nstall | |
10695 | "QUES","XP I1","B") | |
10696 | NO | |
10697 | "QUES","XP I1","M") | |
10698 | D XPI1^XPD IQ | |
10699 | "QUES","XP M1",0) | |
10700 | PO^VA(200, :EM | |
10701 | "QUES","XP M1","??") | |
10702 | ^D MG^XPDH | |
10703 | "QUES","XP M1","A") | |
10704 | Enter the Coordinato r for Mail Group '|F LAG|' | |
10705 | "QUES","XP M1","B") | |
10706 | ||
10707 | "QUES","XP M1","M") | |
10708 | D XPM1^XPD IQ | |
10709 | "QUES","XP O1",0) | |
10710 | Y | |
10711 | "QUES","XP O1","??") | |
10712 | ^D MENU^XP DH | |
10713 | "QUES","XP O1","A") | |
10714 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install | |
10715 | "QUES","XP O1","B") | |
10716 | NO | |
10717 | "QUES","XP O1","M") | |
10718 | D XPO1^XPD IQ | |
10719 | "QUES","XP Z1",0) | |
10720 | Y | |
10721 | "QUES","XP Z1","??") | |
10722 | ^D OPT^XPD H | |
10723 | "QUES","XP Z1","A") | |
10724 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls | |
10725 | "QUES","XP Z1","B") | |
10726 | NO | |
10727 | "QUES","XP Z1","M") | |
10728 | D XPZ1^XPD IQ | |
10729 | "QUES","XP Z2",0) | |
10730 | Y | |
10731 | "QUES","XP Z2","??") | |
10732 | ^D RTN^XPD H | |
10733 | "QUES","XP Z2","A") | |
10734 | Want to MO VE routine s to other CPUs | |
10735 | "QUES","XP Z2","B") | |
10736 | NO | |
10737 | "QUES","XP Z2","M") | |
10738 | D XPZ2^XPD IQ | |
10739 | "RTN") | |
10740 | 1 | |
10741 | "RTN","GMV 34PST") | |
10742 | 0^^B860960 | |
10743 | "RTN","GMV 34PST",1,0 ) | |
10744 | GMV34PST ; SLCIO/JLC - FIX PARA METER SETT INGS ; 04/ 13/15 03:3 0pm | |
10745 | "RTN","GMV 34PST",2,0 ) | |
10746 | ;;5.0;GEN . MED. REC . - VITALS ;**34**;Oc t 31, 2002 ;Build 27 | |
10747 | "RTN","GMV 34PST",3,0 ) | |
10748 | Q | |
10749 | "RTN","GMV 34PST",4,0 ) | |
10750 | ; This ro utine uses the follo wing IAs: | |
10751 | "RTN","GMV 34PST",5,0 ) | |
10752 | ; 2263 - ^XPAR (suppor ted) | |
10753 | "RTN","GMV 34PST",6,0 ) | |
10754 | ; | |
10755 | "RTN","GMV 34PST",7,0 ) | |
10756 | EN ; main entry poin t | |
10757 | "RTN","GMV 34PST",8,0 ) | |
10758 | D DLL | |
10759 | "RTN","GMV 34PST",9,0 ) | |
10760 | Q | |
10761 | "RTN","GMV 34PST",10, 0) | |
10762 | DLL ; | |
10763 | "RTN","GMV 34PST",11, 0) | |
10764 | ; Variabl es: | |
10765 | "RTN","GMV 34PST",12, 0) | |
10766 | ; GMV: [Private ] Scratch | |
10767 | "RTN","GMV 34PST",13, 0) | |
10768 | ; GMVDLL : [Private ] Current version of DLL being installed | |
10769 | "RTN","GMV 34PST",14, 0) | |
10770 | ; GMVLST : [Private ] Scratch List | |
10771 | "RTN","GMV 34PST",15, 0) | |
10772 | ; | |
10773 | "RTN","GMV 34PST",16, 0) | |
10774 | ; New pri vate varia bles | |
10775 | "RTN","GMV 34PST",17, 0) | |
10776 | N GMV,GMV DLL,GMVLST | |
10777 | "RTN","GMV 34PST",18, 0) | |
10778 | ; Announc e my inten tions | |
10779 | "RTN","GMV 34PST",19, 0) | |
10780 | D BMES^XP DUTL("Upda ting DLL p arameter." ) | |
10781 | "RTN","GMV 34PST",20, 0) | |
10782 | ; Deactiv ate all pr evious ver sions from XPAR | |
10783 | "RTN","GMV 34PST",21, 0) | |
10784 | D GETLST^ XPAR(.GMVL ST,"SYS"," GMV DLL VE RSION") | |
10785 | "RTN","GMV 34PST",22, 0) | |
10786 | F GMV=0:0 S GMV=$O( GMVLST(GMV )) Q:'GMV D | |
10787 | "RTN","GMV 34PST",23, 0) | |
10788 | . D EN^XP AR("SYS"," GMV DLL VE RSION",$P( GMVLST(GMV ),"^",1),0 ) | |
10789 | "RTN","GMV 34PST",24, 0) | |
10790 | ; Add and /or activa te current client ve rsions | |
10791 | "RTN","GMV 34PST",25, 0) | |
10792 | S GMVDLL= "5.0.34.5" ;patch 34 | |
10793 | "RTN","GMV 34PST",26, 0) | |
10794 | D EN^XPAR ("SYS","GM V DLL VERS ION",GMVDL L,1) | |
10795 | "RTN","GMV 34PST",27, 0) | |
10796 | Q | |
10797 | "VER") | |
10798 | 8.0^22.2 | |
10799 | **INSTALL NAME** | |
10800 | YS*5.01*12 8 | |
10801 | "BLD",9676 ,0) | |
10802 | YS*5.01*12 8^MENTAL H EALTH^0^31 70629^y | |
10803 | "BLD",9676 ,4,0) | |
10804 | ^9.64PA^^ | |
10805 | "BLD",9676 ,6.3) | |
10806 | 23 | |
10807 | "BLD",9676 ,"ABPKG") | |
10808 | n | |
10809 | "BLD",9676 ,"INIT") | |
10810 | POST^YS128 PS0 | |
10811 | "BLD",9676 ,"KRN",0) | |
10812 | ^9.67PA^77 9.2^20 | |
10813 | "BLD",9676 ,"KRN",.4, 0) | |
10814 | .4 | |
10815 | "BLD",9676 ,"KRN",.40 1,0) | |
10816 | .401 | |
10817 | "BLD",9676 ,"KRN",.40 2,0) | |
10818 | .402 | |
10819 | "BLD",9676 ,"KRN",.40 3,0) | |
10820 | .403 | |
10821 | "BLD",9676 ,"KRN",.5, 0) | |
10822 | .5 | |
10823 | "BLD",9676 ,"KRN",.84 ,0) | |
10824 | .84 | |
10825 | "BLD",9676 ,"KRN",3.6 ,0) | |
10826 | 3.6 | |
10827 | "BLD",9676 ,"KRN",3.8 ,0) | |
10828 | 3.8 | |
10829 | "BLD",9676 ,"KRN",9.2 ,0) | |
10830 | 9.2 | |
10831 | "BLD",9676 ,"KRN",9.8 ,0) | |
10832 | 9.8 | |
10833 | "BLD",9676 ,"KRN",19, 0) | |
10834 | 19 | |
10835 | "BLD",9676 ,"KRN",19, "NM",0) | |
10836 | ^9.68A^^0 | |
10837 | "BLD",9676 ,"KRN",19. 1,0) | |
10838 | 19.1 | |
10839 | "BLD",9676 ,"KRN",101 ,0) | |
10840 | 101 | |
10841 | "BLD",9676 ,"KRN",409 .61,0) | |
10842 | 409.61 | |
10843 | "BLD",9676 ,"KRN",771 ,0) | |
10844 | 771 | |
10845 | "BLD",9676 ,"KRN",779 .2,0) | |
10846 | 779.2 | |
10847 | "BLD",9676 ,"KRN",870 ,0) | |
10848 | 870 | |
10849 | "BLD",9676 ,"KRN",898 9.51,0) | |
10850 | 8989.51 | |
10851 | "BLD",9676 ,"KRN",898 9.52,0) | |
10852 | 8989.52 | |
10853 | "BLD",9676 ,"KRN",899 4,0) | |
10854 | 8994 | |
10855 | "BLD",9676 ,"KRN","B" ,.4,.4) | |
10856 | ||
10857 | "BLD",9676 ,"KRN","B" ,.401,.401 ) | |
10858 | ||
10859 | "BLD",9676 ,"KRN","B" ,.402,.402 ) | |
10860 | ||
10861 | "BLD",9676 ,"KRN","B" ,.403,.403 ) | |
10862 | ||
10863 | "BLD",9676 ,"KRN","B" ,.5,.5) | |
10864 | ||
10865 | "BLD",9676 ,"KRN","B" ,.84,.84) | |
10866 | ||
10867 | "BLD",9676 ,"KRN","B" ,3.6,3.6) | |
10868 | ||
10869 | "BLD",9676 ,"KRN","B" ,3.8,3.8) | |
10870 | ||
10871 | "BLD",9676 ,"KRN","B" ,9.2,9.2) | |
10872 | ||
10873 | "BLD",9676 ,"KRN","B" ,9.8,9.8) | |
10874 | ||
10875 | "BLD",9676 ,"KRN","B" ,19,19) | |
10876 | ||
10877 | "BLD",9676 ,"KRN","B" ,19.1,19.1 ) | |
10878 | ||
10879 | "BLD",9676 ,"KRN","B" ,101,101) | |
10880 | ||
10881 | "BLD",9676 ,"KRN","B" ,409.61,40 9.61) | |
10882 | ||
10883 | "BLD",9676 ,"KRN","B" ,771,771) | |
10884 | ||
10885 | "BLD",9676 ,"KRN","B" ,779.2,779 .2) | |
10886 | ||
10887 | "BLD",9676 ,"KRN","B" ,870,870) | |
10888 | ||
10889 | "BLD",9676 ,"KRN","B" ,8989.51,8 989.51) | |
10890 | ||
10891 | "BLD",9676 ,"KRN","B" ,8989.52,8 989.52) | |
10892 | ||
10893 | "BLD",9676 ,"KRN","B" ,8994,8994 ) | |
10894 | ||
10895 | "BLD",9676 ,"QUES",0) | |
10896 | ^9.62^^ | |
10897 | "BLD",9676 ,"REQB",0) | |
10898 | ^9.611^2^2 | |
10899 | "BLD",9676 ,"REQB",1, 0) | |
10900 | OR*3.0*434 ^2 | |
10901 | "BLD",9676 ,"REQB",2, 0) | |
10902 | YS*5.01*11 6^2 | |
10903 | "BLD",9676 ,"REQB","B ","OR*3.0* 434",1) | |
10904 | ||
10905 | "BLD",9676 ,"REQB","B ","YS*5.01 *116",2) | |
10906 | ||
10907 | "INIT") | |
10908 | POST^YS128 PS0 | |
10909 | "MBREQ") | |
10910 | 1 | |
10911 | "PKG",166, -1) | |
10912 | 1^1 | |
10913 | "PKG",166, 0) | |
10914 | MENTAL HEA LTH^YS^Ver sion 5.01 of Mental Health | |
10915 | "PKG",166, 20,0) | |
10916 | ^9.402P^^ | |
10917 | "PKG",166, 22,0) | |
10918 | ^9.49I^1^1 | |
10919 | "PKG",166, 22,1,0) | |
10920 | 5.01^29412 30^2950310 | |
10921 | "PKG",166, 22,1,"PAH" ,1,0) | |
10922 | 128^317062 9 | |
10923 | "QUES","XP F1",0) | |
10924 | Y | |
10925 | "QUES","XP F1","??") | |
10926 | ^D REP^XPD H | |
10927 | "QUES","XP F1","A") | |
10928 | Shall I wr ite over y our |FLAG| File | |
10929 | "QUES","XP F1","B") | |
10930 | YES | |
10931 | "QUES","XP F1","M") | |
10932 | D XPF1^XPD IQ | |
10933 | "QUES","XP F2",0) | |
10934 | Y | |
10935 | "QUES","XP F2","??") | |
10936 | ^D DTA^XPD H | |
10937 | "QUES","XP F2","A") | |
10938 | Want my da ta |FLAG| yours | |
10939 | "QUES","XP F2","B") | |
10940 | YES | |
10941 | "QUES","XP F2","M") | |
10942 | D XPF2^XPD IQ | |
10943 | "QUES","XP I1",0) | |
10944 | YO | |
10945 | "QUES","XP I1","??") | |
10946 | ^D INHIBIT ^XPDH | |
10947 | "QUES","XP I1","A") | |
10948 | Want KIDS to INHIBIT LOGONs du ring the i nstall | |
10949 | "QUES","XP I1","B") | |
10950 | NO | |
10951 | "QUES","XP I1","M") | |
10952 | D XPI1^XPD IQ | |
10953 | "QUES","XP M1",0) | |
10954 | PO^VA(200, :EM | |
10955 | "QUES","XP M1","??") | |
10956 | ^D MG^XPDH | |
10957 | "QUES","XP M1","A") | |
10958 | Enter the Coordinato r for Mail Group '|F LAG|' | |
10959 | "QUES","XP M1","B") | |
10960 | ||
10961 | "QUES","XP M1","M") | |
10962 | D XPM1^XPD IQ | |
10963 | "QUES","XP O1",0) | |
10964 | Y | |
10965 | "QUES","XP O1","??") | |
10966 | ^D MENU^XP DH | |
10967 | "QUES","XP O1","A") | |
10968 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install | |
10969 | "QUES","XP O1","B") | |
10970 | NO | |
10971 | "QUES","XP O1","M") | |
10972 | D XPO1^XPD IQ | |
10973 | "QUES","XP Z1",0) | |
10974 | Y | |
10975 | "QUES","XP Z1","??") | |
10976 | ^D OPT^XPD H | |
10977 | "QUES","XP Z1","A") | |
10978 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls | |
10979 | "QUES","XP Z1","B") | |
10980 | NO | |
10981 | "QUES","XP Z1","M") | |
10982 | D XPZ1^XPD IQ | |
10983 | "QUES","XP Z2",0) | |
10984 | Y | |
10985 | "QUES","XP Z2","??") | |
10986 | ^D RTN^XPD H | |
10987 | "QUES","XP Z2","A") | |
10988 | Want to MO VE routine s to other CPUs | |
10989 | "QUES","XP Z2","B") | |
10990 | NO | |
10991 | "QUES","XP Z2","M") | |
10992 | D XPZ2^XPD IQ | |
10993 | "RTN") | |
10994 | 1 | |
10995 | "RTN","YS1 28PS0") | |
10996 | 0^^B140749 5 | |
10997 | "RTN","YS1 28PS0",1,0 ) | |
10998 | YS128PS0 ; SLC/JLC - Patch 128 post-init - utilitie s; 9/15/20 15 ;05/30/ 17 07:55 | |
10999 | "RTN","YS1 28PS0",2,0 ) | |
11000 | ;;5.01;ME NTAL HEALT H;**128**; Dec 30, 19 94;Build 2 3 | |
11001 | "RTN","YS1 28PS0",3,0 ) | |
11002 | ; | |
11003 | "RTN","YS1 28PS0",4,0 ) | |
11004 | ; | |
11005 | "RTN","YS1 28PS0",5,0 ) | |
11006 | Q | |
11007 | "RTN","YS1 28PS0",6,0 ) | |
11008 | ; | |
11009 | "RTN","YS1 28PS0",7,0 ) | |
11010 | UPDVER(WHI CH,VER) ; update MHA version n umber in b roker opti on | |
11011 | "RTN","YS1 28PS0",8,0 ) | |
11012 | ; WHICH: 1=server, 2="A" DLL, 3=MHA exe | |
11013 | "RTN","YS1 28PS0",9,0 ) | |
11014 | ; VER: ve rsion stri ng for WHI CH compone nt | |
11015 | "RTN","YS1 28PS0",10, 0) | |
11016 | N OPT,TXT ,VERPART,F DA,DIERR | |
11017 | "RTN","YS1 28PS0",11, 0) | |
11018 | S OPT=$$F IND1^DIC(1 9,"","X"," YS BROKER1 ","B") | |
11019 | "RTN","YS1 28PS0",12, 0) | |
11020 | I 'OPT D BMES^XPDUT L("ERROR: YS BROKER1 not found on this s ystem.") Q UIT | |
11021 | "RTN","YS1 28PS0",13, 0) | |
11022 | I $D(DIER R) D BMES^ XPDUTL("ER ROR: "_$G( ^TMP("DIER R",$J,1,"T EXT",1))) QUIT | |
11023 | "RTN","YS1 28PS0",14, 0) | |
11024 | S TXT=$$G ET1^DIQ(19 ,OPT_",",1 ),VERPART= $P(TXT,"ve rsion ",2) | |
11025 | "RTN","YS1 28PS0",15, 0) | |
11026 | S $P(VERP ART,"~",WH ICH)=VER,$ P(TXT,"ver sion ",2)= VERPART | |
11027 | "RTN","YS1 28PS0",16, 0) | |
11028 | S FDA(19, OPT_",",1) =TXT | |
11029 | "RTN","YS1 28PS0",17, 0) | |
11030 | D FILE^DI E("","FDA" ) | |
11031 | "RTN","YS1 28PS0",18, 0) | |
11032 | I $D(DIER R) D BMES^ XPDUTL("ER ROR: "_$G( ^TMP("DIER R",$J,1,"T EXT",1))) | |
11033 | "RTN","YS1 28PS0",19, 0) | |
11034 | D CLEAN^D ILF | |
11035 | "RTN","YS1 28PS0",20, 0) | |
11036 | Q | |
11037 | "RTN","YS1 28PS0",21, 0) | |
11038 | POST ;upda te DLL ver sion numbe r | |
11039 | "RTN","YS1 28PS0",22, 0) | |
11040 | D UPDVER( 2,"1.0.5.4 ") | |
11041 | "RTN","YS1 28PS0",23, 0) | |
11042 | Q | |
11043 | "VER") | |
11044 | 8.0^22.2 | |
11045 | **END** | |
11046 | **END** |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.