Produced by Araxis Merge on 6/12/2018 12:04:38 PM 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 | MASS.zip\MASS | OR-3.0-470.KID | Wed Jun 6 14:46:02 2018 UTC |
2 | MASS.zip\MASS | OR-3.0-470.KID | Tue Jun 12 14:58:28 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 9 | 17048 |
Changed | 8 | 16 |
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 04, 2018@ 12:46:29 | |
2 | OR*3.0*470 TEST v19 | |
3 | **KIDS**:O R*3.0*470^ | |
4 | ||
5 | **INSTALL NAME** | |
6 | OR*3.0*470 | |
7 | "BLD",1058 9,0) | |
8 | OR*3.0*470 ^ORDER ENT RY/RESULTS REPORTING ^0^3180604 ^y | |
9 | "BLD",1058 9,1,0) | |
10 | ^^614^614^ 3180511^ | |
11 | "BLD",1058 9,1,1,0) | |
12 | ||
13 | "BLD",1058 9,1,2,0) | |
14 | Associated patches: (v)OR*3*39 0 <<= m ust be ins talled BEF ORE `OR*3* 470' | |
15 | "BLD",1058 9,1,3,0) | |
16 | (u)DG*5.3* 948 <<= m ust be ins talled BEF ORE `OR*3* 470' | |
17 | "BLD",1058 9,1,4,0) | |
18 | (u)SD*5.3* 676 <<= m ust be ins talled BEF ORE `OR*3* 470' | |
19 | "BLD",1058 9,1,5,0) | |
20 | ||
21 | "BLD",1058 9,1,6,0) | |
22 | Subject: ORDER ENTR Y UPDATES FOR EPIC C ADENCE/VIS TA INTERFA CE | |
23 | "BLD",1058 9,1,7,0) | |
24 | ||
25 | "BLD",1058 9,1,8,0) | |
26 | Category: DATA DICT IONARY | |
27 | "BLD",1058 9,1,9,0) | |
28 | ROUTINE | |
29 | "BLD",1058 9,1,10,0) | |
30 | OTHER | |
31 | "BLD",1058 9,1,11,0) | |
32 | ||
33 | "BLD",1058 9,1,12,0) | |
34 | Associated patches: DG*5.3*948 , SD*5.3*6 76, OR*3.0 *390 | |
35 | "BLD",1058 9,1,13,0) | |
36 | Subject: MASS ORDER S PATCH | |
37 | "BLD",1058 9,1,14,0) | |
38 | ||
39 | "BLD",1058 9,1,15,0) | |
40 | Category: ORDERS, R OUTINE, PR OTOCOLS, I NTERFACES | |
41 | "BLD",1058 9,1,16,0) | |
42 | ||
43 | "BLD",1058 9,1,17,0) | |
44 | Descriptio n: | |
45 | "BLD",1058 9,1,18,0) | |
46 | ---------- -- | |
47 | "BLD",1058 9,1,19,0) | |
48 | The Medica l Appointm ent Schedu ling Syste m (MASS) p rogram wil l deploy a | |
49 | "BLD",1058 9,1,20,0) | |
50 | commercial schedulin g applicat ion to sup port sched ulers, and | |
51 | "BLD",1058 9,1,21,0) | |
52 | ultimately our Veter ans, withi n the Chal mers P. Wy lie Depart ment of | |
53 | "BLD",1058 9,1,22,0) | |
54 | Veterans A ffairs (VA ) Ambulato ry Care Ce nter in Co lumbus, OH . This | |
55 | "BLD",1058 9,1,23,0) | |
56 | deployment and integ ration wil l allow th e VA to mo ve from a | |
57 | "BLD",1058 9,1,24,0) | |
58 | clinic-bas ed schedul ing system to a reso urce-based schedulin g system, | |
59 | "BLD",1058 9,1,25,0) | |
60 | thereby st andardizin g and impr oving sche duling pro cesses, pr oviding | |
61 | "BLD",1058 9,1,26,0) | |
62 | resource s upply mana gement, an d deliveri ng improve d access t o care | |
63 | "BLD",1058 9,1,27,0) | |
64 | for our Ve terans. | |
65 | "BLD",1058 9,1,28,0) | |
66 | ||
67 | "BLD",1058 9,1,29,0) | |
68 | The MASS I ndefinite Delivery/I ndefinite Quantity ( IDIQ) cont ract | |
69 | "BLD",1058 9,1,30,0) | |
70 | establishe s the over arching re quirements for the M ASS Contra ctor to | |
71 | "BLD",1058 9,1,31,0) | |
72 | incrementa lly captur e requirem ents, desi gn, develo p, deploy, implement , | |
73 | "BLD",1058 9,1,32,0) | |
74 | and train MASS acros s the VA h ealth care enterpris e. This pr ogram | |
75 | "BLD",1058 9,1,33,0) | |
76 | involves i nitiation, design, a nd executi on of a pi lot site a t | |
77 | "BLD",1058 9,1,34,0) | |
78 | Chalmers P . Wylie VA Ambulator y Care Cen ter (herea fter refer red to as | |
79 | "BLD",1058 9,1,35,0) | |
80 | the Columb us ACC and its assoc iated Comm unity Base d Outpatie nt Clinics ) | |
81 | "BLD",1058 9,1,36,0) | |
82 | to demonst rate the M ASS busine ss value, the integr ation of M ASS within | |
83 | "BLD",1058 9,1,37,0) | |
84 | the VA ent erprise, t he impact MASS will have on va rious clin ical and | |
85 | "BLD",1058 9,1,38,0) | |
86 | administra tive proce sses and w orkflows, and the ef fort neces sary for t he | |
87 | "BLD",1058 9,1,39,0) | |
88 | affected s takeholder s to adopt these cha nges. | |
89 | "BLD",1058 9,1,40,0) | |
90 | ||
91 | "BLD",1058 9,1,41,0) | |
92 | The enterp rise-wide Medical Ap pointment Scheduling System (M ASS), | |
93 | "BLD",1058 9,1,42,0) | |
94 | enabled by Cadence, will manag e the appo intment li fecycle, i mprove | |
95 | "BLD",1058 9,1,43,0) | |
96 | clinical r esource ma nagement, and inform VHA manag ement at a ll | |
97 | "BLD",1058 9,1,44,0) | |
98 | organizati onal level s with rea l-time bus iness, res ource util ization | |
99 | "BLD",1058 9,1,45,0) | |
100 | and demand , supply, and qualit y service metrics in telligence . The MASS | |
101 | "BLD",1058 9,1,46,0) | |
102 | implementa tion will address cr itical cha llenges fo r stakehol der and us er | |
103 | "BLD",1058 9,1,47,0) | |
104 | adoption a cross the enterprise , seamless integrati on with Vi stA, and | |
105 | "BLD",1058 9,1,48,0) | |
106 | preserver local auto nomy while introduci ng nationa lly standa rdized | |
107 | "BLD",1058 9,1,49,0) | |
108 | rules and workflows. | |
109 | "BLD",1058 9,1,50,0) | |
110 | ||
111 | "BLD",1058 9,1,51,0) | |
112 | The OR*3.0 *470 patch is the in itial rele ase of the Medical A ppointment | |
113 | "BLD",1058 9,1,52,0) | |
114 | Scheduling System (M ASS) Sched uling inte gration de velopment for the Vi stA | |
115 | "BLD",1058 9,1,53,0) | |
116 | Pilot at C olumbus. T his patch includes a ll of the necessary components | |
117 | "BLD",1058 9,1,54,0) | |
118 | that will enable out going HL7 V2 ORM ord ering inte gration wi th MASS. | |
119 | "BLD",1058 9,1,55,0) | |
120 | ||
121 | "BLD",1058 9,1,56,0) | |
122 | OR*3.0*470 patch enh ancements include: | |
123 | "BLD",1058 9,1,57,0) | |
124 | ||
125 | "BLD",1058 9,1,58,0) | |
126 | 1. Ability to trigge r and buil d HL7v2 OR M messages for any M ASS | |
127 | "BLD",1058 9,1,59,0) | |
128 | schedul able order . | |
129 | "BLD",1058 9,1,60,0) | |
130 | 2. Placing orders, u pdating or ders, or c anceling o rders in V istA or | |
131 | "BLD",1058 9,1,61,0) | |
132 | CPRS ca n now trig ger HL7v2 messages. This inclu des adding comments | |
133 | "BLD",1058 9,1,62,0) | |
134 | to orde rs. | |
135 | "BLD",1058 9,1,63,0) | |
136 | 3. Ability to set th e "Schedul able" item on an ord erable rec ord using | |
137 | "BLD",1058 9,1,64,0) | |
138 | the "OR MX SET MAS S SCHEDULE ACTION" u tility to allow or p revent | |
139 | "BLD",1058 9,1,65,0) | |
140 | certain orderable s in VistA from trig gering HL7 v2 ORM mes sages. | |
141 | "BLD",1058 9,1,66,0) | |
142 | 4. Ability to trigge r HL7v2 OR M messages for conve rsion purp oses using | |
143 | "BLD",1058 9,1,67,0) | |
144 | the "OR MX CONV ME NU" utilit y. | |
145 | "BLD",1058 9,1,68,0) | |
146 | 5. Ability to comple te RTCs an d Recall R eminders f or convers ion purpos es | |
147 | "BLD",1058 9,1,69,0) | |
148 | using t he "ORMX C ONV MENU" utility. | |
149 | "BLD",1058 9,1,70,0) | |
150 | ||
151 | "BLD",1058 9,1,71,0) | |
152 | Patch Comp onents: | |
153 | "BLD",1058 9,1,72,0) | |
154 | ---------- ------- | |
155 | "BLD",1058 9,1,73,0) | |
156 | HLO Applic ations: | |
157 | "BLD",1058 9,1,74,0) | |
158 | OR-ORM-OUT | |
159 | "BLD",1058 9,1,75,0) | |
160 | ||
161 | "BLD",1058 9,1,76,0) | |
162 | HLO Logica l Links: | |
163 | "BLD",1058 9,1,77,0) | |
164 | OR ORM OUT | |
165 | "BLD",1058 9,1,78,0) | |
166 | ||
167 | "BLD",1058 9,1,79,0) | |
168 | Parameters : | |
169 | "BLD",1058 9,1,80,0) | |
170 | ORMX C&P D EPARTMENT ID | |
171 | "BLD",1058 9,1,81,0) | |
172 | ORMX CONV THREADS | |
173 | "BLD",1058 9,1,82,0) | |
174 | ORMX FACIL ITY ID | |
175 | "BLD",1058 9,1,83,0) | |
176 | ORMX NEAR DEPARTMENT ID | |
177 | "BLD",1058 9,1,84,0) | |
178 | ORMX RTC N LT PROMPT ID | |
179 | "BLD",1058 9,1,85,0) | |
180 | ORMX RTC O RDERABLE I D | |
181 | "BLD",1058 9,1,86,0) | |
182 | ORMX SCH D EFAULT FLA G | |
183 | "BLD",1058 9,1,87,0) | |
184 | ||
185 | "BLD",1058 9,1,88,0) | |
186 | List Templ ate: | |
187 | "BLD",1058 9,1,89,0) | |
188 | ORMX CONVE RSION | |
189 | "BLD",1058 9,1,90,0) | |
190 | ORMX SCHED ULABLE ACT ION | |
191 | "BLD",1058 9,1,91,0) | |
192 | ||
193 | "BLD",1058 9,1,92,0) | |
194 | Files & Fi elds Assoc iated: | |
195 | "BLD",1058 9,1,93,0) | |
196 | ||
197 | "BLD",1058 9,1,94,0) | |
198 | File Name (Number) Fie ld Name (N umber) New/Modif ied/Delete d | |
199 | "BLD",1058 9,1,95,0) | |
200 | ---------- -------- --- ---------- ------ --------- ---------- - | |
201 | "BLD",1058 9,1,96,0) | |
202 | ORDERABLE ITEMS (101 .43) MAS S SCHEDULA BLE NEW | |
203 | "BLD",1058 9,1,97,0) | |
204 | ACTION (11 ) | |
205 | "BLD",1058 9,1,98,0) | |
206 | ||
207 | "BLD",1058 9,1,99,0) | |
208 | Forms Asso ciated: | |
209 | "BLD",1058 9,1,100,0) | |
210 | ||
211 | "BLD",1058 9,1,101,0) | |
212 | Form Name File # New/Mo dified/Del eted | |
213 | "BLD",1058 9,1,102,0) | |
214 | --------- ---- -- ------ ---------- ---- | |
215 | "BLD",1058 9,1,103,0) | |
216 | None N/A N/A | |
217 | "BLD",1058 9,1,104,0) | |
218 | ||
219 | "BLD",1058 9,1,105,0) | |
220 | Mail Group s Associat ed: | |
221 | "BLD",1058 9,1,106,0) | |
222 | ||
223 | "BLD",1058 9,1,107,0) | |
224 | Mail Group Name New/Modifi ed/Deleted | |
225 | "BLD",1058 9,1,108,0) | |
226 | ---------- ----- ---------- ---------- | |
227 | "BLD",1058 9,1,109,0) | |
228 | None N/A | |
229 | "BLD",1058 9,1,110,0) | |
230 | ||
231 | "BLD",1058 9,1,111,0) | |
232 | Options As sociated: | |
233 | "BLD",1058 9,1,112,0) | |
234 | ||
235 | "BLD",1058 9,1,113,0) | |
236 | Option Nam e Type New/ Modified/D eleted | |
237 | "BLD",1058 9,1,114,0) | |
238 | ---------- - ---- ---- ---------- ------ | |
239 | "BLD",1058 9,1,115,0) | |
240 | ORMX SET M ASS SCHEDU LE RUN/RO UTINE NEW | |
241 | "BLD",1058 9,1,116,0) | |
242 | ACTION | |
243 | "BLD",1058 9,1,117,0) | |
244 | ||
245 | "BLD",1058 9,1,118,0) | |
246 | Protocols Associated : | |
247 | "BLD",1058 9,1,119,0) | |
248 | ||
249 | "BLD",1058 9,1,120,0) | |
250 | Protocol N ame New /Modified/ Deleted | |
251 | "BLD",1058 9,1,121,0) | |
252 | ---------- --- --- ---------- ------- | |
253 | "BLD",1058 9,1,122,0) | |
254 | OR EVSEND DGPM MOD IFIED | |
255 | "BLD",1058 9,1,123,0) | |
256 | OR EVSEND DVBA NEW | |
257 | "BLD",1058 9,1,124,0) | |
258 | OR EVSEND FH MOD IFIED | |
259 | "BLD",1058 9,1,125,0) | |
260 | OR EVSEND GMRC MOD IFIED | |
261 | "BLD",1058 9,1,126,0) | |
262 | OR EVSEND LRAP MOD IFIED | |
263 | "BLD",1058 9,1,127,0) | |
264 | OR EVSEND LRBB MOD IFIED | |
265 | "BLD",1058 9,1,128,0) | |
266 | OR EVSEND LRCH MOD IFIED | |
267 | "BLD",1058 9,1,129,0) | |
268 | OR EVSEND ORG MOD IFIED | |
269 | "BLD",1058 9,1,130,0) | |
270 | OR EVSEND PS MOD IFIED | |
271 | "BLD",1058 9,1,131,0) | |
272 | OR EVSEND RA MOD IFIED | |
273 | "BLD",1058 9,1,132,0) | |
274 | ORMX CHANG E DISPLAY GROUP NEW | |
275 | "BLD",1058 9,1,133,0) | |
276 | ORMX EVSEN D ADD COMM ENT NEW | |
277 | "BLD",1058 9,1,134,0) | |
278 | ORMX GMRC EVSEND UPD ATE NEW | |
279 | "BLD",1058 9,1,135,0) | |
280 | ORMX ORM H L7 TRIGGER NEW | |
281 | "BLD",1058 9,1,136,0) | |
282 | - ADD COMM ENTS | |
283 | "BLD",1058 9,1,137,0) | |
284 | ORMX ORM H L7 TRIGGER NEW | |
285 | "BLD",1058 9,1,138,0) | |
286 | - C&P UPDA TE | |
287 | "BLD",1058 9,1,139,0) | |
288 | ORMX ORM H L7 TRIGGER NEW | |
289 | "BLD",1058 9,1,140,0) | |
290 | - CONSULTS | |
291 | "BLD",1058 9,1,141,0) | |
292 | ORMX ORM H L7 TRIGGER NEW | |
293 | "BLD",1058 9,1,142,0) | |
294 | - ORDERS | |
295 | "BLD",1058 9,1,143,0) | |
296 | ORMX RUN C ONV NEW | |
297 | "BLD",1058 9,1,144,0) | |
298 | ORMX SCHED ULABLE ACT ION NEW | |
299 | "BLD",1058 9,1,145,0) | |
300 | ORMX SCHED ULABLE ACT ION NEW | |
301 | "BLD",1058 9,1,146,0) | |
302 | Menu | |
303 | "BLD",1058 9,1,147,0) | |
304 | ||
305 | "BLD",1058 9,1,148,0) | |
306 | ||
307 | "BLD",1058 9,1,149,0) | |
308 | Security K eys Associ ated: | |
309 | "BLD",1058 9,1,150,0) | |
310 | ||
311 | "BLD",1058 9,1,151,0) | |
312 | Security K ey Name | |
313 | "BLD",1058 9,1,152,0) | |
314 | ---------- ------- | |
315 | "BLD",1058 9,1,153,0) | |
316 | N/A | |
317 | "BLD",1058 9,1,154,0) | |
318 | ||
319 | "BLD",1058 9,1,155,0) | |
320 | Templates Associated : | |
321 | "BLD",1058 9,1,156,0) | |
322 | ||
323 | "BLD",1058 9,1,157,0) | |
324 | Template N ame Typ e File Name (Numb er) New/M odified/De leted | |
325 | "BLD",1058 9,1,158,0) | |
326 | ---------- --- --- - ----- ---------- --- ----- ---------- ----- | |
327 | "BLD",1058 9,1,159,0) | |
328 | None N/A N/A N/A | |
329 | "BLD",1058 9,1,160,0) | |
330 | ||
331 | "BLD",1058 9,1,161,0) | |
332 | Additional Informati on: | |
333 | "BLD",1058 9,1,162,0) | |
334 | N/A | |
335 | "BLD",1058 9,1,163,0) | |
336 | ||
337 | "BLD",1058 9,1,164,0) | |
338 | New Servic e Requests (NSRs): | |
339 | "BLD",1058 9,1,165,0) | |
340 | ---------- ---------- -------- | |
341 | "BLD",1058 9,1,166,0) | |
342 | N/A | |
343 | "BLD",1058 9,1,167,0) | |
344 | ||
345 | "BLD",1058 9,1,168,0) | |
346 | Patient Sa fety Issue s (PSIs): | |
347 | "BLD",1058 9,1,169,0) | |
348 | ---------- ---------- --------- | |
349 | "BLD",1058 9,1,170,0) | |
350 | N/A | |
351 | "BLD",1058 9,1,171,0) | |
352 | ||
353 | "BLD",1058 9,1,172,0) | |
354 | Defect Tra cking Syst em Ticket( s) & Overv iew: | |
355 | "BLD",1058 9,1,173,0) | |
356 | ---------- ---------- ---------- ---------- ---- | |
357 | "BLD",1058 9,1,174,0) | |
358 | N/A | |
359 | "BLD",1058 9,1,175,0) | |
360 | ||
361 | "BLD",1058 9,1,176,0) | |
362 | Problem: | |
363 | "BLD",1058 9,1,177,0) | |
364 | ------- | |
365 | "BLD",1058 9,1,178,0) | |
366 | N/A | |
367 | "BLD",1058 9,1,179,0) | |
368 | ||
369 | "BLD",1058 9,1,180,0) | |
370 | Resolution : | |
371 | "BLD",1058 9,1,181,0) | |
372 | ---------- | |
373 | "BLD",1058 9,1,182,0) | |
374 | N/A | |
375 | "BLD",1058 9,1,183,0) | |
376 | ||
377 | "BLD",1058 9,1,184,0) | |
378 | Test Sites : | |
379 | "BLD",1058 9,1,185,0) | |
380 | ---------- | |
381 | "BLD",1058 9,1,186,0) | |
382 | Columbus, OH | |
383 | "BLD",1058 9,1,187,0) | |
384 | ||
385 | "BLD",1058 9,1,188,0) | |
386 | Software a nd Documen tation Ret rieval Ins tructions: | |
387 | "BLD",1058 9,1,189,0) | |
388 | ---------- ---------- ---------- ---------- ---------- -- | |
389 | "BLD",1058 9,1,190,0) | |
390 | Software b eing relea sed as a h ost file a nd/or docu mentation describing | |
391 | "BLD",1058 9,1,191,0) | |
392 | the new fu nctionalit y introduc ed by this patch are available . | |
393 | "BLD",1058 9,1,192,0) | |
394 | ||
395 | "BLD",1058 9,1,193,0) | |
396 | The prefer red method is to ret rieve file s from dow nload. DNS . DNS . | |
397 | "BLD",1058 9,1,194,0) | |
398 | This trans mits the f iles from the first available server. Si tes may | |
399 | "BLD",1058 9,1,195,0) | |
400 | also elect to retrie ve files d irectly fr om a speci fic server . | |
401 | "BLD",1058 9,1,196,0) | |
402 | ||
403 | "BLD",1058 9,1,197,0) | |
404 | Sites may retrieve t he softwar e and/or d ocumentati on directl y using | |
405 | "BLD",1058 9,1,198,0) | |
406 | Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE | |
407 | "BLD",1058 9,1,199,0) | |
408 | directory at the fol lowing | |
409 | "BLD",1058 9,1,200,0) | |
410 | OI Field O ffices: | |
411 | "BLD",1058 9,1,201,0) | |
412 | ||
413 | "BLD",1058 9,1,202,0) | |
414 | Hines: DN S .URL | |
415 | "BLD",1058 9,1,203,0) | |
416 | Salt Lake City:
|
|
417 | "BLD",1058 9,1,204,0) | |
418 | ||
419 | "BLD",1058 9,1,205,0) | |
420 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | |
421 | "BLD",1058 9,1,206,0) | |
422 | at: | |
423 | "BLD",1058 9,1,207,0) | |
424 | http://www . DNS /vdl/ | |
425 | "BLD",1058 9,1,208,0) | |
426 | ||
427 | "BLD",1058 9,1,209,0) | |
428 | ||
429 | "BLD",1058 9,1,210,0) | |
430 | Title Fi le Name FTP Mo de | |
431 | "BLD",1058 9,1,211,0) | |
432 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- - | |
433 | "BLD",1058 9,1,212,0) | |
434 | N/A | |
435 | "BLD",1058 9,1,213,0) | |
436 | ||
437 | "BLD",1058 9,1,214,0) | |
438 | Patch Inst allation: | |
439 | "BLD",1058 9,1,215,0) | |
440 | ||
441 | "BLD",1058 9,1,216,0) | |
442 | Pre/Post I nstallatio n Overview : | |
443 | "BLD",1058 9,1,217,0) | |
444 | ---------- ---------- ---------- - | |
445 | "BLD",1058 9,1,218,0) | |
446 | N/A | |
447 | "BLD",1058 9,1,219,0) | |
448 | ||
449 | "BLD",1058 9,1,220,0) | |
450 | Pre-Instal lation Ins tructions: | |
451 | "BLD",1058 9,1,221,0) | |
452 | ---------- ---------- ---------- | |
453 | "BLD",1058 9,1,222,0) | |
454 | This patch may be in stalled wi th users o n the syst em althoug h it is | |
455 | "BLD",1058 9,1,223,0) | |
456 | recommende d that it be install ed during non-peak h ours to mi nimize | |
457 | "BLD",1058 9,1,224,0) | |
458 | potential disruption to users. This pat ch should take less than 5 | |
459 | "BLD",1058 9,1,225,0) | |
460 | minutes to install. | |
461 | "BLD",1058 9,1,226,0) | |
462 | ||
463 | "BLD",1058 9,1,227,0) | |
464 | There are no listman Options t hat need t o be disab led for th is patch. | |
465 | "BLD",1058 9,1,228,0) | |
466 | ||
467 | "BLD",1058 9,1,229,0) | |
468 | Installati on Instruc tions: | |
469 | "BLD",1058 9,1,230,0) | |
470 | ---------- ---------- ------ | |
471 | "BLD",1058 9,1,231,0) | |
472 | ||
473 | "BLD",1058 9,1,232,0) | |
474 | 1. Ch oose the P ackMan mes sage conta ining this patch. | |
475 | "BLD",1058 9,1,233,0) | |
476 | ||
477 | "BLD",1058 9,1,234,0) | |
478 | 2. Ch oose the I NSTALL/CHE CK MESSAGE PackMan o ption. | |
479 | "BLD",1058 9,1,235,0) | |
480 | ||
481 | "BLD",1058 9,1,236,0) | |
482 | 3. Fr om the Ker nel Instal lation and Distribut ion System Menu, sel ect | |
483 | "BLD",1058 9,1,237,0) | |
484 | the Instal lation Men u (See Ins tall Promp ts Sample below for more | |
485 | "BLD",1058 9,1,238,0) | |
486 | detail). From this menu, you may elect to use the following options. | |
487 | "BLD",1058 9,1,239,0) | |
488 | When promp ted for th e INSTALL NAME enter the patch OR*3.0*47 0: | |
489 | "BLD",1058 9,1,240,0) | |
490 | a. Ba ckup a Tra nsport Glo bal - This option wi ll create a backup | |
491 | "BLD",1058 9,1,241,0) | |
492 | message of any routi nes export ed with th is patch. It will no t backup a ny | |
493 | "BLD",1058 9,1,242,0) | |
494 | other chan ges such a s DDs or t emplates. | |
495 | "BLD",1058 9,1,243,0) | |
496 | b. Co mpare Tran sport Glob al to Curr ent System - This op tion will | |
497 | "BLD",1058 9,1,244,0) | |
498 | (allow you to view a ll changes that will be made w hen this p atch | |
499 | "BLD",1058 9,1,245,0) | |
500 | is install ed. It co mpares all component s of this patch rout ines, DDs, | |
501 | "BLD",1058 9,1,246,0) | |
502 | templates, etc.). | |
503 | "BLD",1058 9,1,247,0) | |
504 | c. Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow you | |
505 | "BLD",1058 9,1,248,0) | |
506 | to ensure the integr ity of the routines that are i n the tran sport glob al. | |
507 | "BLD",1058 9,1,249,0) | |
508 | 4. F rom the In stallation Menu, sel ect the In stall Pack age(s) opt ion | |
509 | "BLD",1058 9,1,250,0) | |
510 | and choose the patch to instal l. | |
511 | "BLD",1058 9,1,251,0) | |
512 | ||
513 | "BLD",1058 9,1,252,0) | |
514 | 5. Wh en prompte d 'Want KI DS to Rebu ild Menu T rees Upon Completion of | |
515 | "BLD",1058 9,1,253,0) | |
516 | Install? N O//' | |
517 | "BLD",1058 9,1,254,0) | |
518 | ||
519 | "BLD",1058 9,1,255,0) | |
520 | 6. Wh en prompte d 'Want KI DS to INHI BIT LOGONs during th e install? | |
521 | "BLD",1058 9,1,256,0) | |
522 | NO//' | |
523 | "BLD",1058 9,1,257,0) | |
524 | ||
525 | "BLD",1058 9,1,258,0) | |
526 | 7. Wh en prompte d 'Want to DISABLE S cheduled O ptions, Me nu Options , | |
527 | "BLD",1058 9,1,259,0) | |
528 | and Protoc ols? NO//' | |
529 | "BLD",1058 9,1,260,0) | |
530 | ||
531 | "BLD",1058 9,1,261,0) | |
532 | 8. If prompted 'Delay Ins tall (Minu tes): (0 - 60): 0// ' respond 0. | |
533 | "BLD",1058 9,1,262,0) | |
534 | ||
535 | "BLD",1058 9,1,263,0) | |
536 | ||
537 | "BLD",1058 9,1,264,0) | |
538 | Install Pr ompts Samp le: | |
539 | "BLD",1058 9,1,265,0) | |
540 | ---------- ---------- ------ | |
541 | "BLD",1058 9,1,266,0) | |
542 | ||
543 | "BLD",1058 9,1,267,0) | |
544 | VISTA>D ^X UP | |
545 | "BLD",1058 9,1,268,0) | |
546 | ||
547 | "BLD",1058 9,1,269,0) | |
548 | Setting up programme r environm ent | |
549 | "BLD",1058 9,1,270,0) | |
550 | This is a TEST accou nt. | |
551 | "BLD",1058 9,1,271,0) | |
552 | ||
553 | "BLD",1058 9,1,272,0) | |
554 | Terminal T ype set to : C-VT100 | |
555 | "BLD",1058 9,1,273,0) | |
556 | ||
557 | "BLD",1058 9,1,274,0) | |
558 | Select OPT ION NAME: XPD LOAD D ISTRIBUTIO N Lo ad a Distr ibution | |
559 | "BLD",1058 9,1,275,0) | |
560 | Load a Dis tribution | |
561 | "BLD",1058 9,1,276,0) | |
562 | ||
563 | "BLD",1058 9,1,277,0) | |
564 | Enter a Ho st File: C :\HFS\OR_3 _0_470.KID | |
565 | "BLD",1058 9,1,278,0) | |
566 | ||
567 | "BLD",1058 9,1,279,0) | |
568 | KIDS Distr ibution sa ved on Dec 11, 2017@ 17:30:33 | |
569 | "BLD",1058 9,1,280,0) | |
570 | Comment: O R*3.0*470 12/11/17 | |
571 | "BLD",1058 9,1,281,0) | |
572 | ||
573 | "BLD",1058 9,1,282,0) | |
574 | This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s): | |
575 | "BLD",1058 9,1,283,0) | |
576 | Build OR*3 .0*470 has been load ed before, here is w hen: | |
577 | "BLD",1058 9,1,284,0) | |
578 | OR*3 .0*470 I nstall Com pleted | |
579 | "BLD",1058 9,1,285,0) | |
580 | w as loaded on Oct 05, 2017@22:4 3:32 | |
581 | "BLD",1058 9,1,286,0) | |
582 | OR*3 .0*470 I nstall Com pleted | |
583 | "BLD",1058 9,1,287,0) | |
584 | w as loaded on Oct 05, 2017@22:4 8:51 | |
585 | "BLD",1058 9,1,288,0) | |
586 | OR*3 .0*470 I nstall Com pleted | |
587 | "BLD",1058 9,1,289,0) | |
588 | w as loaded on Oct 10, 2017@16:0 8:28 | |
589 | "BLD",1058 9,1,290,0) | |
590 | OR*3 .0*470 I nstall Com pleted | |
591 | "BLD",1058 9,1,291,0) | |
592 | w as loaded on Nov 15, 2017@00:1 2:12 | |
593 | "BLD",1058 9,1,292,0) | |
594 | OR*3 .0*470 I nstall Com pleted | |
595 | "BLD",1058 9,1,293,0) | |
596 | w as loaded on Nov 17, 2017@14:1 3:21 | |
597 | "BLD",1058 9,1,294,0) | |
598 | OR*3 .0*470 I nstall Com pleted | |
599 | "BLD",1058 9,1,295,0) | |
600 | w as loaded on Nov 17, 2017@14:1 5:43 | |
601 | "BLD",1058 9,1,296,0) | |
602 | OR*3 .0*470 I nstall Com pleted | |
603 | "BLD",1058 9,1,297,0) | |
604 | w as loaded on Nov 20, 2017@14:5 8:56 | |
605 | "BLD",1058 9,1,298,0) | |
606 | OR*3 .0*470 I nstall Com pleted | |
607 | "BLD",1058 9,1,299,0) | |
608 | w as loaded on Nov 21, 2017@15:4 0:15 | |
609 | "BLD",1058 9,1,300,0) | |
610 | OR*3 .0*470 I nstall Com pleted | |
611 | "BLD",1058 9,1,301,0) | |
612 | w as loaded on Nov 30, 2017@15:0 5:17 | |
613 | "BLD",1058 9,1,302,0) | |
614 | OR*3 .0*470 I nstall Com pleted | |
615 | "BLD",1058 9,1,303,0) | |
616 | w as loaded on Dec 05, 2017@16:1 6:23 | |
617 | "BLD",1058 9,1,304,0) | |
618 | OK to cont inue with Load? NO// YES | |
619 | "BLD",1058 9,1,305,0) | |
620 | ||
621 | "BLD",1058 9,1,306,0) | |
622 | Distributi on OK! | |
623 | "BLD",1058 9,1,307,0) | |
624 | ||
625 | "BLD",1058 9,1,308,0) | |
626 | Want to Co ntinue wit h Load? YE S// | |
627 | "BLD",1058 9,1,309,0) | |
628 | Loading Di stribution ... | |
629 | "BLD",1058 9,1,310,0) | |
630 | ||
631 | "BLD",1058 9,1,311,0) | |
632 | OR*3.0* 470 | |
633 | "BLD",1058 9,1,312,0) | |
634 | Use INSTAL L NAME: OR *3.0*470 t o install this Distr ibution. | |
635 | "BLD",1058 9,1,313,0) | |
636 | ||
637 | "BLD",1058 9,1,314,0) | |
638 | VISTA>D ^X UP | |
639 | "BLD",1058 9,1,315,0) | |
640 | ||
641 | "BLD",1058 9,1,316,0) | |
642 | Setting up programme r environm ent | |
643 | "BLD",1058 9,1,317,0) | |
644 | This is a TEST accou nt. | |
645 | "BLD",1058 9,1,318,0) | |
646 | Terminal T ype set to : C-VT100 | |
647 | "BLD",1058 9,1,319,0) | |
648 | ||
649 | "BLD",1058 9,1,320,0) | |
650 | Select OPT ION NAME: XPD INS | |
651 | "BLD",1058 9,1,321,0) | |
652 | 1 X PD INSTALL BUILD Install Package(s ) | |
653 | "BLD",1058 9,1,322,0) | |
654 | 2 X PD INSTALL ATION MENU Ins tallation | |
655 | "BLD",1058 9,1,323,0) | |
656 | CHOOSE 1-2 : 1 XPD I NSTALL BUI LD Ins tall Packa ge(s) | |
657 | "BLD",1058 9,1,324,0) | |
658 | Install Pa ckage(s) | |
659 | "BLD",1058 9,1,325,0) | |
660 | Select INS TALL NAME: OR*3.0 *470 L oaded from Distribut ion | |
661 | "BLD",1058 9,1,326,0) | |
662 | 12/12/17@2 3:4 | |
663 | "BLD",1058 9,1,327,0) | |
664 | 8:51 | |
665 | "BLD",1058 9,1,328,0) | |
666 | => OR *3.0*470 1 2/11/17 ; Created on Dec 11, 2 017@17:30: 33 | |
667 | "BLD",1058 9,1,329,0) | |
668 | ||
669 | "BLD",1058 9,1,330,0) | |
670 | This Distr ibution wa s loaded o n Dec 12, 2017@23:48 :51 with h eader of | |
671 | "BLD",1058 9,1,331,0) | |
672 | OR*3.0* 470 12/11/ 17 ;Creat ed on Dec 11, 2017@1 7:30:33 | |
673 | "BLD",1058 9,1,332,0) | |
674 | It cons isted of t he followi ng Install (s): | |
675 | "BLD",1058 9,1,333,0) | |
676 | OR*3. 0*470 | |
677 | "BLD",1058 9,1,334,0) | |
678 | Checking I nstall for Package O R*3.0*470 | |
679 | "BLD",1058 9,1,335,0) | |
680 | ||
681 | "BLD",1058 9,1,336,0) | |
682 | Install Qu estions fo r OR*3.0*4 70 | |
683 | "BLD",1058 9,1,337,0) | |
684 | ||
685 | "BLD",1058 9,1,338,0) | |
686 | Incoming F iles: | |
687 | "BLD",1058 9,1,339,0) | |
688 | ||
689 | "BLD",1058 9,1,340,0) | |
690 | ||
691 | "BLD",1058 9,1,341,0) | |
692 | 2 PATIENT (Partial Definitio n) | |
693 | "BLD",1058 9,1,342,0) | |
694 | Note: You already h ave the 'P ATIENT' Fi le. | |
695 | "BLD",1058 9,1,343,0) | |
696 | ||
697 | "BLD",1058 9,1,344,0) | |
698 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install? NO// | |
699 | "BLD",1058 9,1,345,0) | |
700 | Want KIDS to INHIBIT LOGONs du ring the i nstall? NO // | |
701 | "BLD",1058 9,1,346,0) | |
702 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls? NO// | |
703 | "BLD",1058 9,1,347,0) | |
704 | ||
705 | "BLD",1058 9,1,348,0) | |
706 | Enter the Device you want to p rint the I nstall mes sages. | |
707 | "BLD",1058 9,1,349,0) | |
708 | You can qu eue the in stall by e nter a 'Q' at the de vice promp t. | |
709 | "BLD",1058 9,1,350,0) | |
710 | Enter a '^ ' to abort the insta ll. | |
711 | "BLD",1058 9,1,351,0) | |
712 | ||
713 | "BLD",1058 9,1,352,0) | |
714 | DEVICE: HO ME// CON SOLE | |
715 | "BLD",1058 9,1,353,0) | |
716 | ||
717 | "BLD",1058 9,1,354,0) | |
718 | Install S tarted for OR*3.0*47 0 : | |
719 | "BLD",1058 9,1,355,0) | |
720 | Dec 1 2, 2017@23 :49:03 | |
721 | "BLD",1058 9,1,356,0) | |
722 | ||
723 | "BLD",1058 9,1,357,0) | |
724 | Build Dist ribution D ate: Dec 1 1, 2017 | |
725 | "BLD",1058 9,1,358,0) | |
726 | ||
727 | "BLD",1058 9,1,359,0) | |
728 | Installin g Routines : | |
729 | "BLD",1058 9,1,360,0) | |
730 | Dec 12, 2017@2 3:49:04 | |
731 | "BLD",1058 9,1,361,0) | |
732 | ||
733 | "BLD",1058 9,1,362,0) | |
734 | Installin g Data Dic tionaries: | |
735 | "BLD",1058 9,1,363,0) | |
736 | Dec 12, 2017@2 3:49:05 | |
737 | "BLD",1058 9,1,364,0) | |
738 | ||
739 | "BLD",1058 9,1,365,0) | |
740 | Installin g PACKAGE COMPONENTS : | |
741 | "BLD",1058 9,1,366,0) | |
742 | ||
743 | "BLD",1058 9,1,367,0) | |
744 | Installin g HL LOGIC AL LINK | |
745 | "BLD",1058 9,1,368,0) | |
746 | ||
747 | "BLD",1058 9,1,369,0) | |
748 | Installin g PROTOCOL | |
749 | "BLD",1058 9,1,370,0) | |
750 | Located in the OR (ORDER ENT RY/RESULTS REPORTING ) namespac e. | |
751 | "BLD",1058 9,1,371,0) | |
752 | Located in the OR (ORDER ENT RY/RESULTS REPORTING ) namespac e. | |
753 | "BLD",1058 9,1,372,0) | |
754 | ||
755 | "BLD",1058 9,1,373,0) | |
756 | Installin g LIST TEM PLATE | |
757 | "BLD",1058 9,1,374,0) | |
758 | ||
759 | "BLD",1058 9,1,375,0) | |
760 | Installin g OPTION | |
761 | "BLD",1058 9,1,376,0) | |
762 | ||
763 | "BLD",1058 9,1,377,0) | |
764 | Installin g PARAMETE R DEFINITI ON | |
765 | "BLD",1058 9,1,378,0) | |
766 | ||
767 | "BLD",1058 9,1,379,0) | |
768 | Installin g HLO APPL ICATION RE GISTRY | |
769 | "BLD",1058 9,1,380,0) | |
770 | Dec 12, 2017@2 3:49:06 | |
771 | "BLD",1058 9,1,381,0) | |
772 | ||
773 | "BLD",1058 9,1,382,0) | |
774 | Updating Routine fi le... | |
775 | "BLD",1058 9,1,383,0) | |
776 | ||
777 | "BLD",1058 9,1,384,0) | |
778 | Updating KIDS files ... | |
779 | "BLD",1058 9,1,385,0) | |
780 | ||
781 | "BLD",1058 9,1,386,0) | |
782 | OR*3.0*47 0 Installe d. | |
783 | "BLD",1058 9,1,387,0) | |
784 | Dec 1 2, 2017@23 :49:06 | |
785 | "BLD",1058 9,1,388,0) | |
786 | ||
787 | "BLD",1058 9,1,389,0) | |
788 | No link t o PACKAGE file | |
789 | "BLD",1058 9,1,390,0) | |
790 | ||
791 | "BLD",1058 9,1,391,0) | |
792 | NO Instal l Message sent | |
793 | "BLD",1058 9,1,392,0) | |
794 | ||
795 | "BLD",1058 9,1,393,0) | |
796 | Install Co mpleted | |
797 | "BLD",1058 9,1,394,0) | |
798 | ||
799 | "BLD",1058 9,1,395,0) | |
800 | VISTA> | |
801 | "BLD",1058 9,1,396,0) | |
802 | ||
803 | "BLD",1058 9,1,397,0) | |
804 | ||
805 | "BLD",1058 9,1,398,0) | |
806 | ||
807 | "BLD",1058 9,1,399,0) | |
808 | Patch Back out Instru ctions: | |
809 | "BLD",1058 9,1,400,0) | |
810 | ---------- ---------- ------ | |
811 | "BLD",1058 9,1,401,0) | |
812 | 1. Go to MailMa n menu, ch oose optio n Read/Man age Messag es and sel ect | |
813 | "BLD",1058 9,1,402,0) | |
814 | the backup message t hat was cr eating dur ing Instal lation ste p 3.c - Ba ckup | |
815 | "BLD",1058 9,1,403,0) | |
816 | 2. Wh en prompte d 'Type <E nter> to c ontinue or '^' to ex it:' type '^' | |
817 | "BLD",1058 9,1,404,0) | |
818 | and then < Enter> | |
819 | "BLD",1058 9,1,405,0) | |
820 | 3. Wh en prompte d 'Enter m essage act ion:' type 'Xtract P ackMan' an d | |
821 | "BLD",1058 9,1,406,0) | |
822 | then <Ente r> | |
823 | "BLD",1058 9,1,407,0) | |
824 | 4. Th e followin g message and the pr ompt will display: | |
825 | "BLD",1058 9,1,408,0) | |
826 | Warning: I nstalling this messa ge will ca use a perm anent upda te of glob als | |
827 | "BLD",1058 9,1,409,0) | |
828 | and routin es. | |
829 | "BLD",1058 9,1,410,0) | |
830 | Do you rea lly want t o do this? NO//' typ e 'YES' an d then <En ter> | |
831 | "BLD",1058 9,1,411,0) | |
832 | 5. Wh en prompte d: | |
833 | "BLD",1058 9,1,412,0) | |
834 | 'Shall I p reserve th e routines on disk i n a separa te back-up message? | |
835 | "BLD",1058 9,1,413,0) | |
836 | YES//' typ e 'NO' and then <Ent er> | |
837 | "BLD",1058 9,1,414,0) | |
838 | 6. Th e system w ill displa y the foll owing mess age and sh ow all the | |
839 | "BLD",1058 9,1,415,0) | |
840 | routines t hat were u nloaded co nfirming t hat all th e routines in the bu ild | |
841 | "BLD",1058 9,1,416,0) | |
842 | have been restored t o the prio r version (unloaded) : | |
843 | "BLD",1058 9,1,417,0) | |
844 | 'No backup message b uilt. | |
845 | "BLD",1058 9,1,418,0) | |
846 | ***LIST o f routines from back up. See fu ll routine list at t he end of the | |
847 | "BLD",1058 9,1,419,0) | |
848 | document** * | |
849 | "BLD",1058 9,1,420,0) | |
850 | ||
851 | "BLD",1058 9,1,421,0) | |
852 | Select Pac kMan funct ion: and t hen <Enter >' | |
853 | "BLD",1058 9,1,422,0) | |
854 | 7. ne xVerify th at all six routines are listed as above have been | |
855 | "BLD",1058 9,1,423,0) | |
856 | backed out : | |
857 | "BLD",1058 9,1,424,0) | |
858 | No backup message bu ilt. | |
859 | "BLD",1058 9,1,425,0) | |
860 | When promp ted 'Want KIDS to IN HIBIT LOGO Ns during the instal l? NO//' | |
861 | "BLD",1058 9,1,426,0) | |
862 | Press <Ent er>. | |
863 | "BLD",1058 9,1,427,0) | |
864 | When promp ted 'Want to DISABLE Scheduled Options, Menu Optio ns, and | |
865 | "BLD",1058 9,1,428,0) | |
866 | Protocols? NO//' | |
867 | "BLD",1058 9,1,429,0) | |
868 | Press <Ent er>. | |
869 | "BLD",1058 9,1,430,0) | |
870 | If prompte d 'Delay I nstall (Mi nutes): ( 0 - 60): 0 //' respon d 0. | |
871 | "BLD",1058 9,1,431,0) | |
872 | ||
873 | "BLD",1058 9,1,432,0) | |
874 | 8. Th ere are no globals t hat are be ing saved off for th is patch t o | |
875 | "BLD",1058 9,1,433,0) | |
876 | restore. A ll other o bjects sho uld be man ually back ed out or deleted | |
877 | "BLD",1058 9,1,434,0) | |
878 | Fileman. | |
879 | "BLD",1058 9,1,435,0) | |
880 | 9. De leting Fil es: | |
881 | "BLD",1058 9,1,436,0) | |
882 | The follow ing filema n files sh ould be de leted unde r their re spective | |
883 | "BLD",1058 9,1,437,0) | |
884 | groups. To delete th e file, op en fileman for the f ile specif ied. Look for | |
885 | "BLD",1058 9,1,438,0) | |
886 | the name a nd once se lected ent er @ to en ter the de lete optio n. | |
887 | "BLD",1058 9,1,439,0) | |
888 | ||
889 | "BLD",1058 9,1,440,0) | |
890 | Example: | |
891 | "BLD",1058 9,1,441,0) | |
892 | VA FileMan 22.2 | |
893 | "BLD",1058 9,1,442,0) | |
894 | ||
895 | "BLD",1058 9,1,443,0) | |
896 | ||
897 | "BLD",1058 9,1,444,0) | |
898 | Select OPT ION: 1 EN TER OR EDI T FILE ENT RIES | |
899 | "BLD",1058 9,1,445,0) | |
900 | ||
901 | "BLD",1058 9,1,446,0) | |
902 | Input to w hat File: PROTOCOL// (4498 en tries) | |
903 | "BLD",1058 9,1,447,0) | |
904 | EDIT WHICH FIELD: AL L// | |
905 | "BLD",1058 9,1,448,0) | |
906 | ||
907 | "BLD",1058 9,1,449,0) | |
908 | ||
909 | "BLD",1058 9,1,450,0) | |
910 | Select PRO TOCOL NAME : SD SIU T RIGGER SD SIU TRIGGER | |
911 | "BLD",1058 9,1,451,0) | |
912 | NAME: SD S IU TRIGGER // @ | |
913 | "BLD",1058 9,1,452,0) | |
914 | SURE YO U WANT TO DELETE THE ENTIRE 'S D SIU TRIG GER' PROTO COL? | |
915 | "BLD",1058 9,1,453,0) | |
916 | ||
917 | "BLD",1058 9,1,454,0) | |
918 | ||
919 | "BLD",1058 9,1,455,0) | |
920 | HLO Applic ations: | |
921 | "BLD",1058 9,1,456,0) | |
922 | OR-ORM-OUT | |
923 | "BLD",1058 9,1,457,0) | |
924 | ||
925 | "BLD",1058 9,1,458,0) | |
926 | HLO Logica l Links: | |
927 | "BLD",1058 9,1,459,0) | |
928 | OR ORM OUT | |
929 | "BLD",1058 9,1,460,0) | |
930 | ||
931 | "BLD",1058 9,1,461,0) | |
932 | Parameters : | |
933 | "BLD",1058 9,1,462,0) | |
934 | ORMX C&P D EPARTMENT ID | |
935 | "BLD",1058 9,1,463,0) | |
936 | ORMX CONV THREADS | |
937 | "BLD",1058 9,1,464,0) | |
938 | ORMX FACIL ITY ID | |
939 | "BLD",1058 9,1,465,0) | |
940 | ORMX NEAR DEPARTMENT ID | |
941 | "BLD",1058 9,1,466,0) | |
942 | ORMX RTC O RDERABLE I D | |
943 | "BLD",1058 9,1,467,0) | |
944 | ORMX SCH D EFAULT FLA G | |
945 | "BLD",1058 9,1,468,0) | |
946 | ||
947 | "BLD",1058 9,1,469,0) | |
948 | List Templ ate: | |
949 | "BLD",1058 9,1,470,0) | |
950 | ORMX CONVE RSION | |
951 | "BLD",1058 9,1,471,0) | |
952 | ORMX SCHED ULABLE ACT ION | |
953 | "BLD",1058 9,1,472,0) | |
954 | ||
955 | "BLD",1058 9,1,473,0) | |
956 | Option | |
957 | "BLD",1058 9,1,474,0) | |
958 | ORMX UTILI TY | |
959 | "BLD",1058 9,1,475,0) | |
960 | ||
961 | "BLD",1058 9,1,476,0) | |
962 | Protocol: | |
963 | "BLD",1058 9,1,477,0) | |
964 | OR EVSEND DVBA | |
965 | "BLD",1058 9,1,478,0) | |
966 | ORMX CHANG E DISPLAY GROUP | |
967 | "BLD",1058 9,1,479,0) | |
968 | ORMX EVSEN D ADD COMM ENT | |
969 | "BLD",1058 9,1,480,0) | |
970 | ORMX GMRC EVSEND UPD ATE | |
971 | "BLD",1058 9,1,481,0) | |
972 | ORMX ORM H L7 TRIGGER - ADD COM MENTS | |
973 | "BLD",1058 9,1,482,0) | |
974 | ORMX ORM H L7 TRIGGER - C&P Com ments | |
975 | "BLD",1058 9,1,483,0) | |
976 | ORMX ORM H L7 TRIGGER - CONSULT S | |
977 | "BLD",1058 9,1,484,0) | |
978 | ORMX ORM H L7 TRIGGER - ORDERS | |
979 | "BLD",1058 9,1,485,0) | |
980 | ORMX RUN C ONV | |
981 | "BLD",1058 9,1,486,0) | |
982 | ORMX SCHED ULABLE ACT ION | |
983 | "BLD",1058 9,1,487,0) | |
984 | ORMX SCHED ULABLE ACT ION MENU | |
985 | "BLD",1058 9,1,488,0) | |
986 | ||
987 | "BLD",1058 9,1,489,0) | |
988 | ||
989 | "BLD",1058 9,1,490,0) | |
990 | 10. Mo difying fi les: | |
991 | "BLD",1058 9,1,491,0) | |
992 | The follow ing files can be upd ated in Fi leman but they are e xisting | |
993 | "BLD",1058 9,1,492,0) | |
994 | files. The y should n ot be dele ted. Inste ad reverti ng them ba ck will be | |
995 | "BLD",1058 9,1,493,0) | |
996 | the correc t approach . | |
997 | "BLD",1058 9,1,494,0) | |
998 | ||
999 | "BLD",1058 9,1,495,0) | |
1000 | Example: | |
1001 | "BLD",1058 9,1,496,0) | |
1002 | VA FileMan 22.2 | |
1003 | "BLD",1058 9,1,497,0) | |
1004 | ||
1005 | "BLD",1058 9,1,498,0) | |
1006 | ||
1007 | "BLD",1058 9,1,499,0) | |
1008 | Select OPT ION: 1 EN TER OR EDI T FILE ENT RIES | |
1009 | "BLD",1058 9,1,500,0) | |
1010 | ||
1011 | "BLD",1058 9,1,501,0) | |
1012 | Input to w hat File: PROTOCOL// (4498 en tries) | |
1013 | "BLD",1058 9,1,502,0) | |
1014 | EDIT WHICH FIELD: AL L// item | |
1015 | "BLD",1058 9,1,503,0) | |
1016 | 1 I TEM (mu ltiple) | |
1017 | "BLD",1058 9,1,504,0) | |
1018 | 2 I TEM TEXT | |
1019 | "BLD",1058 9,1,505,0) | |
1020 | CHOOSE 1-2 : 1 ITEM (multiple ) | |
1021 | "BLD",1058 9,1,506,0) | |
1022 | EDIT WH ICH ITEM S UB-FIELD: ALL// | |
1023 | "BLD",1058 9,1,507,0) | |
1024 | THEN EDIT FIELD: | |
1025 | "BLD",1058 9,1,508,0) | |
1026 | ||
1027 | "BLD",1058 9,1,509,0) | |
1028 | ||
1029 | "BLD",1058 9,1,510,0) | |
1030 | Select PRO TOCOL NAME : SDAM APP OINTMENT E VENTS Appointm ent Event | |
1031 | "BLD",1058 9,1,511,0) | |
1032 | Driver | |
1033 | "BLD",1058 9,1,512,0) | |
1034 | ||
1035 | "BLD",1058 9,1,513,0) | |
1036 | Select ITE M: SD SIU TRIGGER// SD SIU TRI GGER SD SIU TR IGGER | |
1037 | "BLD",1058 9,1,514,0) | |
1038 | . ..OK? Yes/ / (Yes) | |
1039 | "BLD",1058 9,1,515,0) | |
1040 | ||
1041 | "BLD",1058 9,1,516,0) | |
1042 | ITEM: SD SIU TRIGG ER// @ | |
1043 | "BLD",1058 9,1,517,0) | |
1044 | SURE YO U WANT TO DELETE THE ENTIRE IT EM? | |
1045 | "BLD",1058 9,1,518,0) | |
1046 | ||
1047 | "BLD",1058 9,1,519,0) | |
1048 | Protocol: | |
1049 | "BLD",1058 9,1,520,0) | |
1050 | OR EVSEND DGPM | |
1051 | "BLD",1058 9,1,521,0) | |
1052 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
1053 | "BLD",1058 9,1,522,0) | |
1054 | ||
1055 | "BLD",1058 9,1,523,0) | |
1056 | OR EVSEND FH | |
1057 | "BLD",1058 9,1,524,0) | |
1058 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
1059 | "BLD",1058 9,1,525,0) | |
1060 | ||
1061 | "BLD",1058 9,1,526,0) | |
1062 | OR EVSEND GMRC | |
1063 | "BLD",1058 9,1,527,0) | |
1064 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
1065 | "BLD",1058 9,1,528,0) | |
1066 | ||
1067 | "BLD",1058 9,1,529,0) | |
1068 | OR EVSEND LRAP | |
1069 | "BLD",1058 9,1,530,0) | |
1070 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
1071 | "BLD",1058 9,1,531,0) | |
1072 | ||
1073 | "BLD",1058 9,1,532,0) | |
1074 | OR EVSEND LRBB | |
1075 | "BLD",1058 9,1,533,0) | |
1076 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
1077 | "BLD",1058 9,1,534,0) | |
1078 | ||
1079 | "BLD",1058 9,1,535,0) | |
1080 | OR EVSEND LRCH | |
1081 | "BLD",1058 9,1,536,0) | |
1082 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
1083 | "BLD",1058 9,1,537,0) | |
1084 | ||
1085 | "BLD",1058 9,1,538,0) | |
1086 | OR EVSEND ORG | |
1087 | "BLD",1058 9,1,539,0) | |
1088 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
1089 | "BLD",1058 9,1,540,0) | |
1090 | ||
1091 | "BLD",1058 9,1,541,0) | |
1092 | OR EVSEND PS | |
1093 | "BLD",1058 9,1,542,0) | |
1094 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
1095 | "BLD",1058 9,1,543,0) | |
1096 | ||
1097 | "BLD",1058 9,1,544,0) | |
1098 | OR EVSEND RA | |
1099 | "BLD",1058 9,1,545,0) | |
1100 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
1101 | "BLD",1058 9,1,546,0) | |
1102 | ||
1103 | "BLD",1058 9,1,547,0) | |
1104 | ||
1105 | "BLD",1058 9,1,548,0) | |
1106 | 11. De leting an item in a file | |
1107 | "BLD",1058 9,1,549,0) | |
1108 | Item 11 ca n be remov ed from th e orderabl e Items fi le by goin g into Mod ify | |
1109 | "BLD",1058 9,1,550,0) | |
1110 | File Attri butes in F ileman and using the @ to remo ve the ite m. | |
1111 | "BLD",1058 9,1,551,0) | |
1112 | Example: | |
1113 | "BLD",1058 9,1,552,0) | |
1114 | VA FileMan 22.2 | |
1115 | "BLD",1058 9,1,553,0) | |
1116 | ||
1117 | "BLD",1058 9,1,554,0) | |
1118 | Select OPT ION: 4 MO DIFY FILE ATTRIBUTES | |
1119 | "BLD",1058 9,1,555,0) | |
1120 | Do you wan t to use t he screen- mode versi on? YES// n NO | |
1121 | "BLD",1058 9,1,556,0) | |
1122 | ||
1123 | "BLD",1058 9,1,557,0) | |
1124 | Modify wha t File: PR OTOCOL// o rderable i tems (1 702 entrie s) | |
1125 | "BLD",1058 9,1,558,0) | |
1126 | ||
1127 | "BLD",1058 9,1,559,0) | |
1128 | ||
1129 | "BLD",1058 9,1,560,0) | |
1130 | Select FIE LD: 11 MA SS SCHEDUL ING ACTION | |
1131 | "BLD",1058 9,1,561,0) | |
1132 | LABEL: MAS S SCHEDULI NG ACTION Replace @ | |
1133 | "BLD",1058 9,1,562,0) | |
1134 | SURE YO U WANT TO DELETE THE ENTIRE 'M ASS SCHEDU LING ACTIO N' FIELD? | |
1135 | "BLD",1058 9,1,563,0) | |
1136 | ||
1137 | "BLD",1058 9,1,564,0) | |
1138 | Post-Insta llation In structions : | |
1139 | "BLD",1058 9,1,565,0) | |
1140 | ---------- ---------- ---------- - | |
1141 | "BLD",1058 9,1,566,0) | |
1142 | ||
1143 | "BLD",1058 9,1,567,0) | |
1144 | Check list to Verify : | |
1145 | "BLD",1058 9,1,568,0) | |
1146 | ||
1147 | "BLD",1058 9,1,569,0) | |
1148 | 1. It em 11 in t he orderab le items f ile. | |
1149 | "BLD",1058 9,1,570,0) | |
1150 | 2. HL O Applicat ions | |
1151 | "BLD",1058 9,1,571,0) | |
1152 | 3. HL Logical L inks | |
1153 | "BLD",1058 9,1,572,0) | |
1154 | 4. Pr otocol | |
1155 | "BLD",1058 9,1,573,0) | |
1156 | 5. Pa rameters | |
1157 | "BLD",1058 9,1,574,0) | |
1158 | 6. Op tions | |
1159 | "BLD",1058 9,1,575,0) | |
1160 | 7. Li st Templat e | |
1161 | "BLD",1058 9,1,576,0) | |
1162 | ||
1163 | "BLD",1058 9,1,577,0) | |
1164 | ||
1165 | "BLD",1058 9,1,578,0) | |
1166 | Routine In formation: | |
1167 | "BLD",1058 9,1,579,0) | |
1168 | ========== ========== | |
1169 | "BLD",1058 9,1,580,0) | |
1170 | ||
1171 | "BLD",1058 9,1,581,0) | |
1172 | ||
1173 | "BLD",1058 9,1,582,0) | |
1174 | The second line of e ach of the se routine s now look s like: | |
1175 | "BLD",1058 9,1,583,0) | |
1176 | ||
1177 | "BLD",1058 9,1,584,0) | |
1178 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**[ Patch List ]**;Dec 17 , 1997;Bui ld | |
1179 | "BLD",1058 9,1,585,0) | |
1180 | 62 | |
1181 | "BLD",1058 9,1,586,0) | |
1182 | ||
1183 | "BLD",1058 9,1,587,0) | |
1184 | The checks ums below are new ch ecksums, a nd | |
1185 | "BLD",1058 9,1,588,0) | |
1186 | can be ch ecked with CHECK1^XT SUMBLD. | |
1187 | "BLD",1058 9,1,589,0) | |
1188 | ||
1189 | "BLD",1058 9,1,590,0) | |
1190 | Routine Na me: ORCACT 1 | |
1191 | "BLD",1058 9,1,591,0) | |
1192 | Before : B5001844 2 After: B51038373 **7,27, 56,48,86,9 2,116,149, 215, | |
1193 | "BLD",1058 9,1,592,0) | |
1194 | 284,390 ,470** | |
1195 | "BLD",1058 9,1,593,0) | |
1196 | Routine Na me: ORMXCO NV | |
1197 | "BLD",1058 9,1,594,0) | |
1198 | Before : n/ a After: B23256152 8 **470** | |
1199 | "BLD",1058 9,1,595,0) | |
1200 | Routine Na me: ORMXFM T | |
1201 | "BLD",1058 9,1,596,0) | |
1202 | Before : n/ a After: B24275265 2 **470** | |
1203 | "BLD",1058 9,1,597,0) | |
1204 | Routine Na me: ORMXFM T1 | |
1205 | "BLD",1058 9,1,598,0) | |
1206 | Before : n/ a After: B83979073 **470** | |
1207 | "BLD",1058 9,1,599,0) | |
1208 | Routine Na me: ORMXTR | |
1209 | "BLD",1058 9,1,600,0) | |
1210 | Before : n/ a After: B19000351 3 **470** | |
1211 | "BLD",1058 9,1,601,0) | |
1212 | Routine Na me: ORMXUT IL | |
1213 | "BLD",1058 9,1,602,0) | |
1214 | Before : n/ a After: B11026599 **470** | |
1215 | "BLD",1058 9,1,603,0) | |
1216 | Rotuine Na me: ORMXHL 7 | |
1217 | "BLD",1058 9,1,604,0) | |
1218 | Before : n/ a After: B59928339 **470** | |
1219 | "BLD",1058 9,1,605,0) | |
1220 | ||
1221 | "BLD",1058 9,1,606,0) | |
1222 | Routine li st of prec eding patc hes: 390 | |
1223 | "BLD",1058 9,1,607,0) | |
1224 | ||
1225 | "BLD",1058 9,1,608,0) | |
1226 | ||
1227 | "BLD",1058 9,1,609,0) | |
1228 | ========== ========== ========== ========== ========== ========== ========== ==== | |
1229 | "BLD",1058 9,1,610,0) | |
1230 | User Infor mation: | |
1231 | "BLD",1058 9,1,611,0) | |
1232 | Entered By : NE EDHAM,MALC OLM D ate Entere d : OCT 3,2017 | |
1233 | "BLD",1058 9,1,612,0) | |
1234 | Complete d By: D ate Comple ted: | |
1235 | "BLD",1058 9,1,613,0) | |
1236 | Released By : D ate Releas ed : | |
1237 | "BLD",1058 9,1,614,0) | |
1238 | ========== ========== ========== ========== ========== ========== ========== === | |
1239 | "BLD",1058 9,4,0) | |
1240 | ^9.64PA^27 .11^4 | |
1241 | "BLD",1058 9,4,2,0) | |
1242 | 2 | |
1243 | "BLD",1058 9,4,2,2,0) | |
1244 | ^9.641^2^1 | |
1245 | "BLD",1058 9,4,2,2,2, 0) | |
1246 | PATIENT ( File-top l evel) | |
1247 | "BLD",1058 9,4,2,2,2, 1,0) | |
1248 | ^9.6411^10 10.161^2 | |
1249 | "BLD",1058 9,4,2,2,2, 1,1010.151 1,0) | |
1250 | APPOINTMEN T REQUEST DATE | |
1251 | "BLD",1058 9,4,2,2,2, 1,1010.161 ,0) | |
1252 | APPOINTMEN T REQUEST STATUS | |
1253 | "BLD",1058 9,4,2,222) | |
1254 | y^y^p^^^^n ^^n | |
1255 | "BLD",1058 9,4,2,224) | |
1256 | ||
1257 | "BLD",1058 9,4,27.11, 0) | |
1258 | 27.11 | |
1259 | "BLD",1058 9,4,27.11, 2,0) | |
1260 | ^9.641^27. 11^1 | |
1261 | "BLD",1058 9,4,27.11, 2,27.11,0) | |
1262 | PATIENT EN ROLLMENT (File-top level) | |
1263 | "BLD",1058 9,4,27.11, 2,27.11,1, 0) | |
1264 | ^9.6411^.0 4^1 | |
1265 | "BLD",1058 9,4,27.11, 2,27.11,1, .04,0) | |
1266 | ENROLLMENT STATUS | |
1267 | "BLD",1058 9,4,27.11, 222) | |
1268 | y^y^p^^^^n ^^n | |
1269 | "BLD",1058 9,4,27.11, 224) | |
1270 | ||
1271 | "BLD",1058 9,4,101.43 ,0) | |
1272 | 101.43 | |
1273 | "BLD",1058 9,4,101.43 ,2,0) | |
1274 | ^9.641^101 .43^1 | |
1275 | "BLD",1058 9,4,101.43 ,2,101.43, 0) | |
1276 | ORDERABLE ITEMS (Fi le-top lev el) | |
1277 | "BLD",1058 9,4,101.43 ,2,101.43, 1,0) | |
1278 | ^9.6411^11 ^1 | |
1279 | "BLD",1058 9,4,101.43 ,2,101.43, 1,11,0) | |
1280 | MASS SCHED ULING ACTI ON | |
1281 | "BLD",1058 9,4,101.43 ,222) | |
1282 | y^y^p^^^^n ^^n | |
1283 | "BLD",1058 9,4,101.43 ,224) | |
1284 | ||
1285 | "BLD",1058 9,4,396.4, 0) | |
1286 | 396.4 | |
1287 | "BLD",1058 9,4,396.4, 2,0) | |
1288 | ^9.641^396 .4^1 | |
1289 | "BLD",1058 9,4,396.4, 2,396.4,0) | |
1290 | 2507 EXAM (File-top level) | |
1291 | "BLD",1058 9,4,396.4, 2,396.4,1, 0) | |
1292 | ^9.6411^.0 4^3 | |
1293 | "BLD",1058 9,4,396.4, 2,396.4,1, .02,0) | |
1294 | 2507 REQUE ST | |
1295 | "BLD",1058 9,4,396.4, 2,396.4,1, .03,0) | |
1296 | EXAM TYPE | |
1297 | "BLD",1058 9,4,396.4, 2,396.4,1, .04,0) | |
1298 | STATUS | |
1299 | "BLD",1058 9,4,396.4, 222) | |
1300 | y^y^p^^^^n ^^n | |
1301 | "BLD",1058 9,4,396.4, 224) | |
1302 | ||
1303 | "BLD",1058 9,4,"APDD" ,2,2) | |
1304 | ||
1305 | "BLD",1058 9,4,"APDD" ,2,2,1010. 1511) | |
1306 | ||
1307 | "BLD",1058 9,4,"APDD" ,2,2,1010. 161) | |
1308 | ||
1309 | "BLD",1058 9,4,"APDD" ,27.11,27. 11) | |
1310 | ||
1311 | "BLD",1058 9,4,"APDD" ,27.11,27. 11,.04) | |
1312 | ||
1313 | "BLD",1058 9,4,"APDD" ,101.43,10 1.43) | |
1314 | ||
1315 | "BLD",1058 9,4,"APDD" ,101.43,10 1.43,11) | |
1316 | ||
1317 | "BLD",1058 9,4,"APDD" ,396.4,396 .4) | |
1318 | ||
1319 | "BLD",1058 9,4,"APDD" ,396.4,396 .4,.02) | |
1320 | ||
1321 | "BLD",1058 9,4,"APDD" ,396.4,396 .4,.03) | |
1322 | ||
1323 | "BLD",1058 9,4,"APDD" ,396.4,396 .4,.04) | |
1324 | ||
1325 | "BLD",1058 9,4,"B",2, 2) | |
1326 | ||
1327 | "BLD",1058 9,4,"B",27 .11,27.11) | |
1328 | ||
1329 | "BLD",1058 9,4,"B",10 1.43,101.4 3) | |
1330 | ||
1331 | "BLD",1058 9,4,"B",39 6.4,396.4) | |
1332 | ||
1333 | "BLD",1058 9,6.3) | |
1334 | 76 | |
1335 | "BLD",1058 9,"ABPKG") | |
1336 | n | |
1337 | "BLD",1058 9,"INI") | |
1338 | ||
1339 | "BLD",1058 9,"INID") | |
1340 | ^^ | |
1341 | "BLD",1058 9,"INIT") | |
1342 | ||
1343 | "BLD",1058 9,"KRN",0) | |
1344 | ^9.67PA^77 9.2^20 | |
1345 | "BLD",1058 9,"KRN",.4 ,0) | |
1346 | .4 | |
1347 | "BLD",1058 9,"KRN",.4 01,0) | |
1348 | .401 | |
1349 | "BLD",1058 9,"KRN",.4 02,0) | |
1350 | .402 | |
1351 | "BLD",1058 9,"KRN",.4 03,0) | |
1352 | .403 | |
1353 | "BLD",1058 9,"KRN",.5 ,0) | |
1354 | .5 | |
1355 | "BLD",1058 9,"KRN",.8 4,0) | |
1356 | .84 | |
1357 | "BLD",1058 9,"KRN",3. 6,0) | |
1358 | 3.6 | |
1359 | "BLD",1058 9,"KRN",3. 8,0) | |
1360 | 3.8 | |
1361 | "BLD",1058 9,"KRN",9. 2,0) | |
1362 | 9.2 | |
1363 | "BLD",1058 9,"KRN",9. 8,0) | |
1364 | 9.8 | |
1365 | "BLD",1058 9,"KRN",9. 8,"NM",0) | |
1366 | ^9.68A^7^7 | |
1367 | "BLD",1058 9,"KRN",9. 8,"NM",1,0 ) | |
1368 | ORMXFMT^^0 ^B24275265 2 | |
1369 | "BLD",1058 9,"KRN",9. 8,"NM",2,0 ) | |
1370 | ORMXTR^^0^ B207478225 | |
1371 | "BLD",1058 9,"KRN",9. 8,"NM",3,0 ) | |
1372 | ORMXCONV^^ 0^B2325615 28 | |
1373 | "BLD",1058 9,"KRN",9. 8,"NM",4,0 ) | |
1374 | ORMXUTIL^^ 0^B1102659 9 | |
1375 | "BLD",1058 9,"KRN",9. 8,"NM",5,0 ) | |
1376 | ORMXFMT1^^ 0^B8370888 7 | |
1377 | "BLD",1058 9,"KRN",9. 8,"NM",6,0 ) | |
1378 | ORCACT1^^0 ^B51038373 | |
1379 | "BLD",1058 9,"KRN",9. 8,"NM",7,0 ) | |
1380 | ORMXHL7^^0 ^B59928339 | |
1381 | "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORCACT1" ,6) | |
1382 | ||
1383 | "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORMXCONV ",3) | |
1384 | ||
1385 | "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORMXFMT" ,1) | |
1386 | ||
1387 | "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORMXFMT1 ",5) | |
1388 | ||
1389 | "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORMXHL7" ,7) | |
1390 | ||
1391 | "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORMXTR", 2) | |
1392 | ||
1393 | "BLD",1058 9,"KRN",9. 8,"NM","B" ,"ORMXUTIL ",4) | |
1394 | ||
1395 | "BLD",1058 9,"KRN",19 ,0) | |
1396 | 19 | |
1397 | "BLD",1058 9,"KRN",19 ,"NM",0) | |
1398 | ^9.68A^3^1 | |
1399 | "BLD",1058 9,"KRN",19 ,"NM",3,0) | |
1400 | ORMX SET M ASS SCHEDU LE ACTION^ ^0 | |
1401 | "BLD",1058 9,"KRN",19 ,"NM","B", "ORMX SET MASS SCHED ULE ACTION ",3) | |
1402 | ||
1403 | "BLD",1058 9,"KRN",19 .1,0) | |
1404 | 19.1 | |
1405 | "BLD",1058 9,"KRN",10 1,0) | |
1406 | 101 | |
1407 | "BLD",1058 9,"KRN",10 1,"NM",0) | |
1408 | ^9.68A^26^ 22 | |
1409 | "BLD",1058 9,"KRN",10 1,"NM",2,0 ) | |
1410 | ORMX ORM H L7 TRIGGER - CONSULT S^^0 | |
1411 | "BLD",1058 9,"KRN",10 1,"NM",4,0 ) | |
1412 | ORMX ORM H L7 TRIGGER - ORDERS^ ^0 | |
1413 | "BLD",1058 9,"KRN",10 1,"NM",5,0 ) | |
1414 | OR EVSEND RA^^2 | |
1415 | "BLD",1058 9,"KRN",10 1,"NM",6,0 ) | |
1416 | OR EVSEND LRCH^^2 | |
1417 | "BLD",1058 9,"KRN",10 1,"NM",7,0 ) | |
1418 | OR EVSEND LRAP^^2 | |
1419 | "BLD",1058 9,"KRN",10 1,"NM",8,0 ) | |
1420 | OR EVSEND DGPM^^2 | |
1421 | "BLD",1058 9,"KRN",10 1,"NM",9,0 ) | |
1422 | OR EVSEND FH^^2 | |
1423 | "BLD",1058 9,"KRN",10 1,"NM",10, 0) | |
1424 | OR EVSEND ORG^^2 | |
1425 | "BLD",1058 9,"KRN",10 1,"NM",11, 0) | |
1426 | OR EVSEND PS^^2 | |
1427 | "BLD",1058 9,"KRN",10 1,"NM",12, 0) | |
1428 | OR EVSEND GMRC^^2 | |
1429 | "BLD",1058 9,"KRN",10 1,"NM",14, 0) | |
1430 | ORMX GMRC EVSEND UPD ATE^^0 | |
1431 | "BLD",1058 9,"KRN",10 1,"NM",15, 0) | |
1432 | ORMX CHANG E DISPLAY GROUP^^0 | |
1433 | "BLD",1058 9,"KRN",10 1,"NM",16, 0) | |
1434 | ORMX SCHED ULABLE ACT ION^^0 | |
1435 | "BLD",1058 9,"KRN",10 1,"NM",17, 0) | |
1436 | OR EVSEND DVBA^^0 | |
1437 | "BLD",1058 9,"KRN",10 1,"NM",19, 0) | |
1438 | ORMX ORM H L7 TRIGGER - ADD COM MENTS^^0 | |
1439 | "BLD",1058 9,"KRN",10 1,"NM",20, 0) | |
1440 | ORMX ORM H L7 TRIGGER - C&P UPD ATE^^0 | |
1441 | "BLD",1058 9,"KRN",10 1,"NM",21, 0) | |
1442 | ORMX RUN C ONV^^0 | |
1443 | "BLD",1058 9,"KRN",10 1,"NM",22, 0) | |
1444 | ORMX SCHED ULABLE ACT ION MENU^^ 0 | |
1445 | "BLD",1058 9,"KRN",10 1,"NM",23, 0) | |
1446 | ORMX EVSEN D ADD COMM ENT^^0 | |
1447 | "BLD",1058 9,"KRN",10 1,"NM",24, 0) | |
1448 | OR EVSEND LRBB^^2 | |
1449 | "BLD",1058 9,"KRN",10 1,"NM",25, 0) | |
1450 | OR EVSEND SD^^2 | |
1451 | "BLD",1058 9,"KRN",10 1,"NM",26, 0) | |
1452 | ORMX CONV MENU^^0 | |
1453 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D DGPM",8) | |
1454 | ||
1455 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D DVBA",17 ) | |
1456 | ||
1457 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D FH",9) | |
1458 | ||
1459 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D GMRC",12 ) | |
1460 | ||
1461 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D LRAP",7) | |
1462 | ||
1463 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D LRBB",24 ) | |
1464 | ||
1465 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D LRCH",6) | |
1466 | ||
1467 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D ORG",10) | |
1468 | ||
1469 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D PS",11) | |
1470 | ||
1471 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D RA",5) | |
1472 | ||
1473 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"OR EVSEN D SD",25) | |
1474 | ||
1475 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX CHA NGE DISPLA Y GROUP",1 5) | |
1476 | ||
1477 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX CON V MENU",26 ) | |
1478 | ||
1479 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX EVS END ADD CO MMENT",23) | |
1480 | ||
1481 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX GMR C EVSEND U PDATE",14) | |
1482 | ||
1483 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX ORM HL7 TRIGG ER - ADD C OMMENTS",1 9) | |
1484 | ||
1485 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX ORM HL7 TRIGG ER - C&P U PDATE",20) | |
1486 | ||
1487 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX ORM HL7 TRIGG ER - CONSU LTS",2) | |
1488 | ||
1489 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX ORM HL7 TRIGG ER - ORDER S",4) | |
1490 | ||
1491 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX RUN CONV",21) | |
1492 | ||
1493 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX SCH EDULABLE A CTION",16) | |
1494 | ||
1495 | "BLD",1058 9,"KRN",10 1,"NM","B" ,"ORMX SCH EDULABLE A CTION MENU ",22) | |
1496 | ||
1497 | "BLD",1058 9,"KRN",40 9.61,0) | |
1498 | 409.61 | |
1499 | "BLD",1058 9,"KRN",40 9.61,"NM", 0) | |
1500 | ^9.68A^2^2 | |
1501 | "BLD",1058 9,"KRN",40 9.61,"NM", 1,0) | |
1502 | ORMX SCHED ULABLE ACT ION^^0 | |
1503 | "BLD",1058 9,"KRN",40 9.61,"NM", 2,0) | |
1504 | ORMX CONVE RSION^^0 | |
1505 | "BLD",1058 9,"KRN",40 9.61,"NM", "B","ORMX CONVERSION ",2) | |
1506 | ||
1507 | "BLD",1058 9,"KRN",40 9.61,"NM", "B","ORMX SCHEDULABL E ACTION", 1) | |
1508 | ||
1509 | "BLD",1058 9,"KRN",77 1,0) | |
1510 | 771 | |
1511 | "BLD",1058 9,"KRN",77 9.2,0) | |
1512 | 779.2 | |
1513 | "BLD",1058 9,"KRN",77 9.2,"NM",0 ) | |
1514 | ^9.68A^1^1 | |
1515 | "BLD",1058 9,"KRN",77 9.2,"NM",1 ,0) | |
1516 | OR-ORM-OUT ^^0 | |
1517 | "BLD",1058 9,"KRN",77 9.2,"NM"," B","OR-ORM -OUT",1) | |
1518 | ||
1519 | "BLD",1058 9,"KRN",87 0,0) | |
1520 | 870 | |
1521 | "BLD",1058 9,"KRN",87 0,"NM",0) | |
1522 | ^9.68A^^0 | |
1523 | "BLD",1058 9,"KRN",89 89.51,0) | |
1524 | 8989.51 | |
1525 | "BLD",1058 9,"KRN",89 89.51,"NM" ,0) | |
1526 | ^9.68A^7^7 | |
1527 | "BLD",1058 9,"KRN",89 89.51,"NM" ,1,0) | |
1528 | ORMX C&P D EPARTMENT ID^^0 | |
1529 | "BLD",1058 9,"KRN",89 89.51,"NM" ,2,0) | |
1530 | ORMX NEAR DEPARTMENT ID^^0 | |
1531 | "BLD",1058 9,"KRN",89 89.51,"NM" ,3,0) | |
1532 | ORMX FACIL ITY ID^^0 | |
1533 | "BLD",1058 9,"KRN",89 89.51,"NM" ,4,0) | |
1534 | ORMX RTC O RDERABLE I D^^0 | |
1535 | "BLD",1058 9,"KRN",89 89.51,"NM" ,5,0) | |
1536 | ORMX SCH D EFAULT FLA G^^0 | |
1537 | "BLD",1058 9,"KRN",89 89.51,"NM" ,6,0) | |
1538 | ORMX CONV THREADS^^0 | |
1539 | "BLD",1058 9,"KRN",89 89.51,"NM" ,7,0) | |
1540 | ORMX RTC N LT PROMPT ID^^0 | |
1541 | "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX C&P DEPAR TMENT ID", 1) | |
1542 | ||
1543 | "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX CONV THRE ADS",6) | |
1544 | ||
1545 | "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX FACILITY ID",3) | |
1546 | ||
1547 | "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX NEAR DEPA RTMENT ID" ,2) | |
1548 | ||
1549 | "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX RTC NLT P ROMPT ID", 7) | |
1550 | ||
1551 | "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX RTC ORDER ABLE ID",4 ) | |
1552 | ||
1553 | "BLD",1058 9,"KRN",89 89.51,"NM" ,"B","ORMX SCH DEFAU LT FLAG",5 ) | |
1554 | ||
1555 | "BLD",1058 9,"KRN",89 89.52,0) | |
1556 | 8989.52 | |
1557 | "BLD",1058 9,"KRN",89 94,0) | |
1558 | 8994 | |
1559 | "BLD",1058 9,"KRN","B ",.4,.4) | |
1560 | ||
1561 | "BLD",1058 9,"KRN","B ",.401,.40 1) | |
1562 | ||
1563 | "BLD",1058 9,"KRN","B ",.402,.40 2) | |
1564 | ||
1565 | "BLD",1058 9,"KRN","B ",.403,.40 3) | |
1566 | ||
1567 | "BLD",1058 9,"KRN","B ",.5,.5) | |
1568 | ||
1569 | "BLD",1058 9,"KRN","B ",.84,.84) | |
1570 | ||
1571 | "BLD",1058 9,"KRN","B ",3.6,3.6) | |
1572 | ||
1573 | "BLD",1058 9,"KRN","B ",3.8,3.8) | |
1574 | ||
1575 | "BLD",1058 9,"KRN","B ",9.2,9.2) | |
1576 | ||
1577 | "BLD",1058 9,"KRN","B ",9.8,9.8) | |
1578 | ||
1579 | "BLD",1058 9,"KRN","B ",19,19) | |
1580 | ||
1581 | "BLD",1058 9,"KRN","B ",19.1,19. 1) | |
1582 | ||
1583 | "BLD",1058 9,"KRN","B ",101,101) | |
1584 | ||
1585 | "BLD",1058 9,"KRN","B ",409.61,4 09.61) | |
1586 | ||
1587 | "BLD",1058 9,"KRN","B ",771,771) | |
1588 | ||
1589 | "BLD",1058 9,"KRN","B ",779.2,77 9.2) | |
1590 | ||
1591 | "BLD",1058 9,"KRN","B ",870,870) | |
1592 | ||
1593 | "BLD",1058 9,"KRN","B ",8989.51, 8989.51) | |
1594 | ||
1595 | "BLD",1058 9,"KRN","B ",8989.52, 8989.52) | |
1596 | ||
1597 | "BLD",1058 9,"KRN","B ",8994,899 4) | |
1598 | ||
1599 | "BLD",1058 9,"QDEF") | |
1600 | ^^^^NO^^^^ NO^^NO | |
1601 | "BLD",1058 9,"QUES",0 ) | |
1602 | ^9.62^^ | |
1603 | "BLD",1058 9,"REQB",0 ) | |
1604 | ^9.611^3^3 | |
1605 | "BLD",1058 9,"REQB",1 ,0) | |
1606 | OR*3.0*390 ^2 | |
1607 | "BLD",1058 9,"REQB",2 ,0) | |
1608 | DG*5.3*948 ^2 | |
1609 | "BLD",1058 9,"REQB",3 ,0) | |
1610 | SD*5.3*676 ^2 | |
1611 | "BLD",1058 9,"REQB"," B","DG*5.3 *948",2) | |
1612 | ||
1613 | "BLD",1058 9,"REQB"," B","OR*3.0 *390",1) | |
1614 | ||
1615 | "BLD",1058 9,"REQB"," B","SD*5.3 *676",3) | |
1616 | ||
1617 | "FIA",2) | |
1618 | PATIENT | |
1619 | "FIA",2,0) | |
1620 | ^DPT( | |
1621 | "FIA",2,0, 0) | |
1622 | 2I | |
1623 | "FIA",2,0, 1) | |
1624 | y^y^p^^^^n ^^n | |
1625 | "FIA",2,0, 10) | |
1626 | ||
1627 | "FIA",2,0, 11) | |
1628 | ||
1629 | "FIA",2,0, "RLRO") | |
1630 | ||
1631 | "FIA",2,0, "VR") | |
1632 | 3.0^OR | |
1633 | "FIA",2,2) | |
1634 | 1 | |
1635 | "FIA",2,2, 1010.1511) | |
1636 | ||
1637 | "FIA",2,2, 1010.161) | |
1638 | ||
1639 | "FIA",27.1 1) | |
1640 | PATIENT EN ROLLMENT | |
1641 | "FIA",27.1 1,0) | |
1642 | ^DGEN(27.1 1, | |
1643 | "FIA",27.1 1,0,0) | |
1644 | 27.11OID | |
1645 | "FIA",27.1 1,0,1) | |
1646 | y^y^p^^^^n ^^n | |
1647 | "FIA",27.1 1,0,10) | |
1648 | ||
1649 | "FIA",27.1 1,0,11) | |
1650 | ||
1651 | "FIA",27.1 1,0,"RLRO" ) | |
1652 | ||
1653 | "FIA",27.1 1,0,"VR") | |
1654 | 3.0^OR | |
1655 | "FIA",27.1 1,27.11) | |
1656 | 1 | |
1657 | "FIA",27.1 1,27.11,.0 4) | |
1658 | ||
1659 | "FIA",101. 43) | |
1660 | ORDERABLE ITEMS | |
1661 | "FIA",101. 43,0) | |
1662 | ^ORD(101.4 3, | |
1663 | "FIA",101. 43,0,0) | |
1664 | 101.43 | |
1665 | "FIA",101. 43,0,1) | |
1666 | y^y^p^^^^n ^^n | |
1667 | "FIA",101. 43,0,10) | |
1668 | ||
1669 | "FIA",101. 43,0,11) | |
1670 | ||
1671 | "FIA",101. 43,0,"RLRO ") | |
1672 | ||
1673 | "FIA",101. 43,0,"VR") | |
1674 | 3.0^OR | |
1675 | "FIA",101. 43,101.43) | |
1676 | 1 | |
1677 | "FIA",101. 43,101.43, 11) | |
1678 | ||
1679 | "FIA",396. 4) | |
1680 | 2507 EXAM | |
1681 | "FIA",396. 4,0) | |
1682 | ^DVB(396.4 , | |
1683 | "FIA",396. 4,0,0) | |
1684 | 396.4I | |
1685 | "FIA",396. 4,0,1) | |
1686 | y^y^p^^^^n ^^n | |
1687 | "FIA",396. 4,0,10) | |
1688 | ||
1689 | "FIA",396. 4,0,11) | |
1690 | ||
1691 | "FIA",396. 4,0,"RLRO" ) | |
1692 | ||
1693 | "FIA",396. 4,0,"VR") | |
1694 | 3.0^OR | |
1695 | "FIA",396. 4,396.4) | |
1696 | 1 | |
1697 | "FIA",396. 4,396.4,.0 2) | |
1698 | ||
1699 | "FIA",396. 4,396.4,.0 3) | |
1700 | ||
1701 | "FIA",396. 4,396.4,.0 4) | |
1702 | ||
1703 | "IX",27.11 ,27.11,"AD ",0) | |
1704 | 27.11^AD^T rigger NEA R Order on Enrollmen t Update^M U^^R^IR^I^ 27.11^^^^^ A | |
1705 | "IX",27.11 ,27.11,"AD ",.1,0) | |
1706 | ^^1^1^3180 206^^ | |
1707 | "IX",27.11 ,27.11,"AD ",.1,1,0) | |
1708 | Trigger NE AR Order o n Enrollme nt Update. | |
1709 | "IX",27.11 ,27.11,"AD ",1) | |
1710 | D TRFRMENR ^ORMXTR | |
1711 | "IX",27.11 ,27.11,"AD ",2) | |
1712 | Q | |
1713 | "IX",27.11 ,27.11,"AD ",11.1,0) | |
1714 | ^.114IA^2^ 2 | |
1715 | "IX",27.11 ,27.11,"AD ",11.1,1,0 ) | |
1716 | 1^F^27.11^ .04^^^F | |
1717 | "IX",27.11 ,27.11,"AD ",11.1,2,0 ) | |
1718 | 2^F^27.11^ .02^^^F | |
1719 | "IX",396.4 ,396.4,"AG ",0) | |
1720 | 396.4^AG^T his sends MASS order messages for exam s tatus chan ges^MU^^R^ IR^I^396.4 ^^^^^A | |
1721 | "IX",396.4 ,396.4,"AG ",.1,0) | |
1722 | ^^2^2^3171 117^ | |
1723 | "IX",396.4 ,396.4,"AG ",.1,1,0) | |
1724 | This cross -reference sends an HL7 messag e from MAS S to Epic Cadence wh en | |
1725 | "IX",396.4 ,396.4,"AG ",.1,2,0) | |
1726 | any of the fields in this cros s-referenc e change. | |
1727 | "IX",396.4 ,396.4,"AG ",1) | |
1728 | D TRCPMSG^ ORMXTR | |
1729 | "IX",396.4 ,396.4,"AG ",2) | |
1730 | Q | |
1731 | "IX",396.4 ,396.4,"AG ",11.1,0) | |
1732 | ^.114IA^3^ 3 | |
1733 | "IX",396.4 ,396.4,"AG ",11.1,1,0 ) | |
1734 | 1^F^396.4^ .02^^^F | |
1735 | "IX",396.4 ,396.4,"AG ",11.1,2,0 ) | |
1736 | 2^F^396.4^ .03^^^F | |
1737 | "IX",396.4 ,396.4,"AG ",11.1,3,0 ) | |
1738 | 3^F^396.4^ .04^^^F | |
1739 | "KRN",19,1 1813,-1) | |
1740 | 0^3 | |
1741 | "KRN",19,1 1813,0) | |
1742 | ORMX SET M ASS SCHEDU LE ACTION^ Set MASS S chedulable Action^^R ^^^^^^^^OR DER ENTRY/ RESULTS RE PORTING | |
1743 | "KRN",19,1 1813,1,0) | |
1744 | ^19.06^1^1 ^3171205^^ ^^ | |
1745 | "KRN",19,1 1813,1,1,0 ) | |
1746 | Use to set the MASS Schedulabl e Action f ield in OR D(101.43. | |
1747 | "KRN",19,1 1813,25) | |
1748 | SFEN^ORMXU TIL | |
1749 | "KRN",19,1 1813,"U") | |
1750 | SET MASS S CHEDULABLE ACTION | |
1751 | "KRN",101, 2180,-1) | |
1752 | 2^5 | |
1753 | "KRN",101, 2180,0) | |
1754 | OR EVSEND RA^OE/RR = > RAD/NM M ESSAGE EVE NT^^X^145^ ^^^^^^ | |
1755 | "KRN",101, 2180,10,0) | |
1756 | ^101.01PA^ 5^5 | |
1757 | "KRN",101, 2180,10,5, 0) | |
1758 | 5011^^^ | |
1759 | "KRN",101, 2180,10,5, "^") | |
1760 | ORMX ORM H L7 TRIGGER - ORDERS | |
1761 | "KRN",101, 2181,-1) | |
1762 | 2^6 | |
1763 | "KRN",101, 2181,0) | |
1764 | OR EVSEND LRCH^OE/RR => LAB ME SSAGE EVEN T^^X^145^^ ^^^^^ | |
1765 | "KRN",101, 2181,10,0) | |
1766 | ^101.01PA^ 7^6 | |
1767 | "KRN",101, 2181,10,7, 0) | |
1768 | 5011^^^ | |
1769 | "KRN",101, 2181,10,7, "^") | |
1770 | ORMX ORM H L7 TRIGGER - ORDERS | |
1771 | "KRN",101, 2183,-1) | |
1772 | 2^24 | |
1773 | "KRN",101, 2183,0) | |
1774 | OR EVSEND LRBB^OE/RR => BLOOD BANK MESSA GE EVENT^^ X^1^^^^^^^ | |
1775 | "KRN",101, 2183,10,0) | |
1776 | ^101.01PA^ 3^3 | |
1777 | "KRN",101, 2183,10,3, 0) | |
1778 | 5011^^^ | |
1779 | "KRN",101, 2183,10,3, "^") | |
1780 | ORMX ORM H L7 TRIGGER - ORDERS | |
1781 | "KRN",101, 2184,-1) | |
1782 | 2^7 | |
1783 | "KRN",101, 2184,0) | |
1784 | OR EVSEND LRAP^OE/RR => ANATOM IC PATH ME SSAGE EVEN T^^X^145^^ ^^^^^ | |
1785 | "KRN",101, 2184,10,0) | |
1786 | ^101.01PA^ 5^4 | |
1787 | "KRN",101, 2184,10,5, 0) | |
1788 | 5011^^^ | |
1789 | "KRN",101, 2184,10,5, "^") | |
1790 | ORMX ORM H L7 TRIGGER - ORDERS | |
1791 | "KRN",101, 2185,-1) | |
1792 | 2^8 | |
1793 | "KRN",101, 2185,0) | |
1794 | OR EVSEND DGPM^OE/RR => MAS ME SSAGE EVEN T^^X^145^^ ^^^^^ | |
1795 | "KRN",101, 2185,10,0) | |
1796 | ^101.01PA^ 3^3 | |
1797 | "KRN",101, 2185,10,3, 0) | |
1798 | 5011^^^ | |
1799 | "KRN",101, 2185,10,3, "^") | |
1800 | ORMX ORM H L7 TRIGGER - ORDERS | |
1801 | "KRN",101, 2186,-1) | |
1802 | 2^9 | |
1803 | "KRN",101, 2186,0) | |
1804 | OR EVSEND FH^OE/RR = > DIET MES SAGE EVENT ^^X^145^^^ ^^^^ | |
1805 | "KRN",101, 2186,10,0) | |
1806 | ^101.01PA^ 5^5 | |
1807 | "KRN",101, 2186,10,5, 0) | |
1808 | 5011^^^ | |
1809 | "KRN",101, 2186,10,5, "^") | |
1810 | ORMX ORM H L7 TRIGGER - ORDERS | |
1811 | "KRN",101, 2187,-1) | |
1812 | 2^10 | |
1813 | "KRN",101, 2187,0) | |
1814 | OR EVSEND ORG^OE/RR => GENERIC MESSAGE E VENT^^X^14 5^^^^^^^ | |
1815 | "KRN",101, 2187,10,0) | |
1816 | ^101.01PA^ 5^5 | |
1817 | "KRN",101, 2187,10,5, 0) | |
1818 | 5011^^^ | |
1819 | "KRN",101, 2187,10,5, "^") | |
1820 | ORMX ORM H L7 TRIGGER - ORDERS | |
1821 | "KRN",101, 2188,-1) | |
1822 | 2^11 | |
1823 | "KRN",101, 2188,0) | |
1824 | OR EVSEND PS^OE/RR = > PHARMACY MESSAGE E VENT^^X^14 5^^^^^^^ | |
1825 | "KRN",101, 2188,10,0) | |
1826 | ^101.01PA^ 5^5 | |
1827 | "KRN",101, 2188,10,5, 0) | |
1828 | 5011^^^ | |
1829 | "KRN",101, 2188,10,5, "^") | |
1830 | ORMX ORM H L7 TRIGGER - ORDERS | |
1831 | "KRN",101, 2190,-1) | |
1832 | 2^12 | |
1833 | "KRN",101, 2190,0) | |
1834 | OR EVSEND GMRC^OE/RR => CONSUL TS MESSAGE EVENT^^X^ 145^^^^^^^ | |
1835 | "KRN",101, 2190,10,0) | |
1836 | ^101.01PA^ 7^7 | |
1837 | "KRN",101, 2190,10,7, 0) | |
1838 | 5011^^^ | |
1839 | "KRN",101, 2190,10,7, "^") | |
1840 | ORMX ORM H L7 TRIGGER - ORDERS | |
1841 | "KRN",101, 5011,-1) | |
1842 | 0^4 | |
1843 | "KRN",101, 5011,0) | |
1844 | ORMX ORM H L7 TRIGGER - ORDERS^ ORMX ORM H L7 TRIGGER - ORDERS^ ^A^^^^^^^^ | |
1845 | "KRN",101, 5011,4) | |
1846 | ^^^24572 | |
1847 | "KRN",101, 5011,20) | |
1848 | D TRORDMSG ^ORMXTR | |
1849 | "KRN",101, 5011,99) | |
1850 | 64667,3697 1 | |
1851 | "KRN",101, 5012,-1) | |
1852 | 0^2 | |
1853 | "KRN",101, 5012,0) | |
1854 | ORMX ORM H L7 TRIGGER - CONSULT S^ORMX ORM HL7 TRIGG ER - CONSU LTS^^A^^^^ ^^^^ | |
1855 | "KRN",101, 5012,4) | |
1856 | ^^^24573 | |
1857 | "KRN",101, 5012,20) | |
1858 | D TRGMRMSG ^ORMXTR | |
1859 | "KRN",101, 5012,99) | |
1860 | 64667,3697 1 | |
1861 | "KRN",101, 5013,-1) | |
1862 | 2^25 | |
1863 | "KRN",101, 5013,0) | |
1864 | OR EVSEND SD^APPOINT MENT REQUE ST EVENT^^ X^110^^^^^ ^^ | |
1865 | "KRN",101, 5013,10,0) | |
1866 | ^101.01PA^ 3^3 | |
1867 | "KRN",101, 5013,10,3, 0) | |
1868 | 5011^^^ | |
1869 | "KRN",101, 5013,10,3, "^") | |
1870 | ORMX ORM H L7 TRIGGER - ORDERS | |
1871 | "KRN",101, 5014,-1) | |
1872 | 0^14 | |
1873 | "KRN",101, 5014,0) | |
1874 | ORMX GMRC EVSEND UPD ATE^ORMX G MRC EVSEND UPDATE^^X ^^^^^^^^ | |
1875 | "KRN",101, 5014,4) | |
1876 | ^^^24878 | |
1877 | "KRN",101, 5014,10,0) | |
1878 | ^101.01PA^ 1^1 | |
1879 | "KRN",101, 5014,10,1, 0) | |
1880 | 5012^^^ | |
1881 | "KRN",101, 5014,10,1, "^") | |
1882 | ORMX ORM H L7 TRIGGER - CONSULT S | |
1883 | "KRN",101, 5014,99) | |
1884 | 64667,3697 1 | |
1885 | "KRN",101, 5015,-1) | |
1886 | 0^16 | |
1887 | "KRN",101, 5015,0) | |
1888 | ORMX SCHED ULABLE ACT ION^SET SC HEDULABLE ACTION^^A^ ^^^^^^^ | |
1889 | "KRN",101, 5015,15) | |
1890 | Q | |
1891 | "KRN",101, 5015,20) | |
1892 | D SFRUN^OR MXUTIL | |
1893 | "KRN",101, 5015,99) | |
1894 | 64625,4345 0 | |
1895 | "KRN",101, 5016,-1) | |
1896 | 0^22 | |
1897 | "KRN",101, 5016,0) | |
1898 | ORMX SCHED ULABLE ACT ION MENU^O RMX SCHEDU LABLE ACTI ON MENU^^M ^^^^^^^^ | |
1899 | "KRN",101, 5016,4) | |
1900 | 40^9 | |
1901 | "KRN",101, 5016,10,0) | |
1902 | ^101.01PA^ 2^2 | |
1903 | "KRN",101, 5016,10,1, 0) | |
1904 | 5015^^^ | |
1905 | "KRN",101, 5016,10,1, "^") | |
1906 | ORMX SCHED ULABLE ACT ION | |
1907 | "KRN",101, 5016,10,2, 0) | |
1908 | 5017^^^ | |
1909 | "KRN",101, 5016,10,2, "^") | |
1910 | ORMX CHANG E DISPLAY GROUP | |
1911 | "KRN",101, 5016,26) | |
1912 | D SHOW^VAL M | |
1913 | "KRN",101, 5016,28) | |
1914 | Select Act ion: | |
1915 | "KRN",101, 5016,99) | |
1916 | 64625,4345 0 | |
1917 | "KRN",101, 5017,-1) | |
1918 | 0^15 | |
1919 | "KRN",101, 5017,0) | |
1920 | ORMX CHANG E DISPLAY GROUP^CHAN GE DISPLAY GROUP^^A^ ^^^^^^^ | |
1921 | "KRN",101, 5017,15) | |
1922 | Q | |
1923 | "KRN",101, 5017,20) | |
1924 | D SFCHDGRP ^ORMXUTIL | |
1925 | "KRN",101, 5017,99) | |
1926 | 64625,4345 0 | |
1927 | "KRN",101, 5018,-1) | |
1928 | 0^26 | |
1929 | "KRN",101, 5018,0) | |
1930 | ORMX CONV MENU^^^M^^ ^^^^^^ | |
1931 | "KRN",101, 5018,4) | |
1932 | 40^9 | |
1933 | "KRN",101, 5018,10,0) | |
1934 | ^101.01PA^ 1^1 | |
1935 | "KRN",101, 5018,10,1, 0) | |
1936 | 5019^RUN^1 ^ | |
1937 | "KRN",101, 5018,10,1, "^") | |
1938 | ORMX RUN C ONV | |
1939 | "KRN",101, 5018,26) | |
1940 | D SHOW^VAL M | |
1941 | "KRN",101, 5018,28) | |
1942 | Select Act ion | |
1943 | "KRN",101, 5018,99) | |
1944 | 64650,5039 8 | |
1945 | "KRN",101, 5019,-1) | |
1946 | 0^21 | |
1947 | "KRN",101, 5019,0) | |
1948 | ORMX RUN C ONV^Run Co nversion^^ A^^^^^^^^ | |
1949 | "KRN",101, 5019,4) | |
1950 | ^3 | |
1951 | "KRN",101, 5019,20) | |
1952 | D RUN^ORMX CONV | |
1953 | "KRN",101, 5019,99) | |
1954 | 64650,5039 8 | |
1955 | "KRN",101, 5020,-1) | |
1956 | 0^19 | |
1957 | "KRN",101, 5020,0) | |
1958 | ORMX ORM H L7 TRIGGER - ADD COM MENTS^ORMX ORM HL7 T RIGGER - A DD COMMENT S^^A^^^^^^ ^^ | |
1959 | "KRN",101, 5020,4) | |
1960 | ^^^24574 | |
1961 | "KRN",101, 5020,20) | |
1962 | D TRORCMT^ ORMXTR | |
1963 | "KRN",101, 5020,21,0) | |
1964 | ^101.021A | |
1965 | "KRN",101, 5020,99) | |
1966 | 64618,5865 3 | |
1967 | "KRN",101, 5021,-1) | |
1968 | 0^23 | |
1969 | "KRN",101, 5021,0) | |
1970 | ORMX EVSEN D ADD COMM ENT^ORMX E VSEND ADD COMMENT^^X ^^^^^^^^ | |
1971 | "KRN",101, 5021,4) | |
1972 | ^^^24575 | |
1973 | "KRN",101, 5021,10,0) | |
1974 | ^101.01PA^ 1^1 | |
1975 | "KRN",101, 5021,10,1, 0) | |
1976 | 5020^^^ | |
1977 | "KRN",101, 5021,10,1, "^") | |
1978 | ORMX ORM H L7 TRIGGER - ADD COM MENTS | |
1979 | "KRN",101, 5021,99) | |
1980 | 64618,5865 3 | |
1981 | "KRN",101, 5022,-1) | |
1982 | 0^17 | |
1983 | "KRN",101, 5022,0) | |
1984 | OR EVSEND DVBA^OE/RR => C&P ME SSAGE EVEN T^^X^^^^^^ ^^ | |
1985 | "KRN",101, 5022,10,0) | |
1986 | ^101.01PA^ 1^1 | |
1987 | "KRN",101, 5022,10,1, 0) | |
1988 | 5023^^^ | |
1989 | "KRN",101, 5022,10,1, "^") | |
1990 | ORMX ORM H L7 TRIGGER - C&P UPD ATE | |
1991 | "KRN",101, 5022,99) | |
1992 | 64618,5865 3 | |
1993 | "KRN",101, 5023,-1) | |
1994 | 0^20 | |
1995 | "KRN",101, 5023,0) | |
1996 | ORMX ORM H L7 TRIGGER - C&P UPD ATE^ORMX O RM HL7 TRI GGER - C&P UPDATE^^A ^^^^^^^^ | |
1997 | "KRN",101, 5023,20) | |
1998 | D TRCPCMT^ ORMXTR | |
1999 | "KRN",101, 5023,99) | |
2000 | 64618,5865 3 | |
2001 | "KRN",409. 61,763,-1) | |
2002 | 0^1 | |
2003 | "KRN",409. 61,763,0) | |
2004 | ORMX SCHED ULABLE ACT ION^1^^80^ 4^20^^^^OR MX SCHEDUL ABLE ACTIO N MENU^Sch edulable A ction Util ity | |
2005 | "KRN",409. 61,763,1) | |
2006 | ^VALM HIDD EN ACTIONS | |
2007 | "KRN",409. 61,763,"CO L",0) | |
2008 | ^409.621^4 ^4 | |
2009 | "KRN",409. 61,763,"CO L",1,0) | |
2010 | LINENO^2^5 ^Line^^1 | |
2011 | "KRN",409. 61,763,"CO L",2,0) | |
2012 | ORDERABLE^ 8^5^ID | |
2013 | "KRN",409. 61,763,"CO L",3,0) | |
2014 | NAME^14^59 ^NAME | |
2015 | "KRN",409. 61,763,"CO L",4,0) | |
2016 | ACTION^74^ 6^ACTION | |
2017 | "KRN",409. 61,763,"CO L","AIDENT ",1,1) | |
2018 | ||
2019 | "KRN",409. 61,763,"CO L","B","AC TION",4) | |
2020 | ||
2021 | "KRN",409. 61,763,"CO L","B","LI NENO",1) | |
2022 | ||
2023 | "KRN",409. 61,763,"CO L","B","NA ME",3) | |
2024 | ||
2025 | "KRN",409. 61,763,"CO L","B","OR DERABLE",2 ) | |
2026 | ||
2027 | "KRN",409. 61,763,"EX P") | |
2028 | D SFEXPND^ ORMXUTIL | |
2029 | "KRN",409. 61,763,"FN L") | |
2030 | D SFEXIT^O RMXUTIL | |
2031 | "KRN",409. 61,763,"HD R") | |
2032 | D SFHDR^OR MXUTIL | |
2033 | "KRN",409. 61,763,"HL P") | |
2034 | D SFHELP^O RMXUTIL | |
2035 | "KRN",409. 61,763,"IN IT") | |
2036 | D SFINIT^O RMXUTIL | |
2037 | "KRN",409. 61,764,-1) | |
2038 | 0^2 | |
2039 | "KRN",409. 61,764,0) | |
2040 | ORMX CONVE RSION^1^^8 0^5^14^0^1 ^^ORMX CON V MENU^ORM X Conversi on^1^^1 | |
2041 | "KRN",409. 61,764,1) | |
2042 | ^VALM HIDD EN ACTIONS | |
2043 | "KRN",409. 61,764,"FN L") | |
2044 | D EXIT^ORM XCONV | |
2045 | "KRN",409. 61,764,"HD R") | |
2046 | D HDR^ORMX CONV | |
2047 | "KRN",409. 61,764,"HL P") | |
2048 | D HELP^ORM XCONV | |
2049 | "KRN",409. 61,764,"IN IT") | |
2050 | D INIT^ORM XCONV | |
2051 | "KRN",779. 2,25,-1) | |
2052 | 0^1 | |
2053 | "KRN",779. 2,25,0) | |
2054 | OR-ORM-OUT | |
2055 | "KRN",779. 2,25,2) | |
2056 | ORDER ENTR Y/RESULTS REPORTING | |
2057 | "KRN",8989 .51,849,-1 ) | |
2058 | 0^3 | |
2059 | "KRN",8989 .51,849,0) | |
2060 | ORMX FACIL ITY ID^FAC ILITY ID F OR ORDERS^ 0 | |
2061 | "KRN",8989 .51,849,1) | |
2062 | F | |
2063 | "KRN",8989 .51,849,20 ,0) | |
2064 | ^^1^1^3171 114^ | |
2065 | "KRN",8989 .51,849,20 ,1,0) | |
2066 | The Order Facility I D is the u nique iden tifier of this VistA instance. | |
2067 | "KRN",8989 .51,849,30 ,0) | |
2068 | ^8989.513I ^1^1 | |
2069 | "KRN",8989 .51,849,30 ,1,0) | |
2070 | 1^4.2 | |
2071 | "KRN",8989 .51,850,-1 ) | |
2072 | 0^1 | |
2073 | "KRN",8989 .51,850,0) | |
2074 | ORMX C&P D EPARTMENT ID^C&P DEP ARTMENT ID ^0^^^0 | |
2075 | "KRN",8989 .51,850,1) | |
2076 | F^^Enter t he identif ier to sen d to MASS for C&P de partment. | |
2077 | "KRN",8989 .51,850,20 ,0) | |
2078 | ^8989.512^ 1^1^317112 9^^^^ | |
2079 | "KRN",8989 .51,850,20 ,1,0) | |
2080 | Identifier to send t o MASS for C&P depar tment. | |
2081 | "KRN",8989 .51,850,30 ,0) | |
2082 | ^8989.513I ^1^1 | |
2083 | "KRN",8989 .51,850,30 ,1,0) | |
2084 | 1^4.2 | |
2085 | "KRN",8989 .51,851,-1 ) | |
2086 | 0^2 | |
2087 | "KRN",8989 .51,851,0) | |
2088 | ORMX NEAR DEPARTMENT ID^NEAR L IST DEPART MENT ID^0^ ^^0 | |
2089 | "KRN",8989 .51,851,1) | |
2090 | F^^Enter t he identif ier to sen d to MASS for NEAR L ist depart ment. | |
2091 | "KRN",8989 .51,851,20 ,0) | |
2092 | ^8989.512^ 1^1^317112 9^^^ | |
2093 | "KRN",8989 .51,851,20 ,1,0) | |
2094 | Identifier to send t o MASS for NEAR List departmen t. | |
2095 | "KRN",8989 .51,851,30 ,0) | |
2096 | ^8989.513I ^1^1 | |
2097 | "KRN",8989 .51,851,30 ,1,0) | |
2098 | 1^4.2 | |
2099 | "KRN",8989 .51,852,-1 ) | |
2100 | 0^5 | |
2101 | "KRN",8989 .51,852,0) | |
2102 | ORMX SCH D EFAULT FLA G^SCHEDULA BLE ORDER DEFAULT FL AG^0^^^0 | |
2103 | "KRN",8989 .51,852,1) | |
2104 | N^^Default value for the order able item schedulabl e flag | |
2105 | "KRN",8989 .51,852,20 ,0) | |
2106 | ^^8^8^3171 130^ | |
2107 | "KRN",8989 .51,852,20 ,1,0) | |
2108 | This flag determines if ordera ble items that do no t have a s chedulable | |
2109 | "KRN",8989 .51,852,20 ,2,0) | |
2110 | flag speci fied are s chedulable . | |
2111 | "KRN",8989 .51,852,20 ,3,0) | |
2112 | ||
2113 | "KRN",8989 .51,852,20 ,4,0) | |
2114 | Options: | |
2115 | "KRN",8989 .51,852,20 ,5,0) | |
2116 | 0 - Unsche dulable in MASS | |
2117 | "KRN",8989 .51,852,20 ,6,0) | |
2118 | 1 - Schedu lable in M ASS | |
2119 | "KRN",8989 .51,852,20 ,7,0) | |
2120 | 2 - Schedu lable in M ASS and th e correspo nding orde r will be completed on | |
2121 | "KRN",8989 .51,852,20 ,8,0) | |
2122 | scheduling . | |
2123 | "KRN",8989 .51,852,30 ,0) | |
2124 | ^8989.513I ^1^1 | |
2125 | "KRN",8989 .51,852,30 ,1,0) | |
2126 | 1^4.2 | |
2127 | "KRN",8989 .51,854,-1 ) | |
2128 | 0^4 | |
2129 | "KRN",8989 .51,854,0) | |
2130 | ORMX RTC O RDERABLE I D^IEN OF R TC ORDERAB LE^0^^^0 | |
2131 | "KRN",8989 .51,854,1) | |
2132 | N^OR^Enter the inter nal ID of the ordera bles that correspond to RTCs | |
2133 | "KRN",8989 .51,854,30 ,0) | |
2134 | ^8989.513I ^1^1 | |
2135 | "KRN",8989 .51,854,30 ,1,0) | |
2136 | 1^4.2 | |
2137 | "KRN",8989 .51,859,-1 ) | |
2138 | 0^6 | |
2139 | "KRN",8989 .51,859,0) | |
2140 | ORMX CONV THREADS^^^ ^^0 | |
2141 | "KRN",8989 .51,859,1) | |
2142 | N^^Enter t he number of threads for the o rders conv ersion int erface | |
2143 | "KRN",8989 .51,859,20 ,0) | |
2144 | ^^2^2^3171 130^ | |
2145 | "KRN",8989 .51,859,20 ,1,0) | |
2146 | When trigg ering the conversion , this wil l allow mu ltiple app lication | |
2147 | "KRN",8989 .51,859,20 ,2,0) | |
2148 | registries to be use d | |
2149 | "KRN",8989 .51,859,30 ,0) | |
2150 | ^8989.513I ^1^1 | |
2151 | "KRN",8989 .51,859,30 ,1,0) | |
2152 | 1^4.2 | |
2153 | "KRN",8989 .51,861,-1 ) | |
2154 | 0^7 | |
2155 | "KRN",8989 .51,861,0) | |
2156 | ORMX RTC N LT PROMPT ID^IEN of the NLT fl ag ORDER D IALOG prom pt^0^^^0 | |
2157 | "KRN",8989 .51,861,1) | |
2158 | N^^Enter t he ORDER D IALOG entr y for the NLT flag p rompt | |
2159 | "KRN",8989 .51,861,20 ,0) | |
2160 | ^8989.512^ 2^2^318011 5^^^^ | |
2161 | "KRN",8989 .51,861,20 ,1,0) | |
2162 | This is th e IEN of a n ORDER DI ALOG file entry for the "No la ter than" | |
2163 | "KRN",8989 .51,861,20 ,2,0) | |
2164 | flag promp t on gener ic order r eturn to c linic orde rs | |
2165 | "KRN",8989 .51,861,30 ,0) | |
2166 | ^8989.513I ^1^1 | |
2167 | "KRN",8989 .51,861,30 ,1,0) | |
2168 | 1^4.2 | |
2169 | "MBREQ") | |
2170 | 0 | |
2171 | "ORD",15,1 01) | |
2172 | 101;15;;;P RO^XPDTA;P ROF1^XPDIA ;PROE1^XPD IA;PROF2^X PDIA;;PROD EL^XPDIA | |
2173 | "ORD",15,1 01,0) | |
2174 | PROTOCOL | |
2175 | "ORD",17,4 09.61) | |
2176 | 409.61;17; 1;;;;LME1^ XPDIA1;;;L MDEL^XPDIA 1 | |
2177 | "ORD",17,4 09.61,0) | |
2178 | LIST TEMPL ATE | |
2179 | "ORD",18,1 9) | |
2180 | 19;18;;;OP T^XPDTA;OP TF1^XPDIA; OPTE1^XPDI A;OPTF2^XP DIA;;OPTDE L^XPDIA | |
2181 | "ORD",18,1 9,0) | |
2182 | OPTION | |
2183 | "ORD",20,8 989.51) | |
2184 | 8989.51;20 ;;;PAR1E1^ XPDTA2;PAR 1F1^XPDIA3 ;PAR1E1^XP DIA3;PAR1F 2^XPDIA3;; PAR1DEL^XP DIA3(%) | |
2185 | "ORD",20,8 989.51,0) | |
2186 | PARAMETER DEFINITION | |
2187 | "ORD",22,7 79.2) | |
2188 | 779.2;22;1 ;;HLOAP^XP DTA1;;HLOE ^XPDIA1;;; | |
2189 | "ORD",22,7 79.2,0) | |
2190 | HLO APPLIC ATION REGI STRY | |
2191 | "PKG",35,- 1) | |
2192 | 1^1 | |
2193 | "PKG",35,0 ) | |
2194 | ORDER ENTR Y/RESULTS REPORTING^ OR^Order E ntry/Resul ts Reporti ng | |
2195 | "PKG",35,2 0,0) | |
2196 | ^9.402P^^ | |
2197 | "PKG",35,2 2,0) | |
2198 | ^9.49I^1^1 | |
2199 | "PKG",35,2 2,1,0) | |
2200 | 3.0^305111 9^2990416^ 1 | |
2201 | "PKG",35,2 2,1,"PAH", 1,0) | |
2202 | 470^318060 4 | |
2203 | "PKG",35,2 2,1,"PAH", 1,1,0) | |
2204 | ^^614^614^ 3180604 | |
2205 | "PKG",35,2 2,1,"PAH", 1,1,1,0) | |
2206 | ||
2207 | "PKG",35,2 2,1,"PAH", 1,1,2,0) | |
2208 | Associated patches: (v)OR*3*39 0 <<= m ust be ins talled BEF ORE `OR*3* 470' | |
2209 | "PKG",35,2 2,1,"PAH", 1,1,3,0) | |
2210 | (u)DG*5.3* 948 <<= m ust be ins talled BEF ORE `OR*3* 470' | |
2211 | "PKG",35,2 2,1,"PAH", 1,1,4,0) | |
2212 | (u)SD*5.3* 676 <<= m ust be ins talled BEF ORE `OR*3* 470' | |
2213 | "PKG",35,2 2,1,"PAH", 1,1,5,0) | |
2214 | ||
2215 | "PKG",35,2 2,1,"PAH", 1,1,6,0) | |
2216 | Subject: ORDER ENTR Y UPDATES FOR EPIC C ADENCE/VIS TA INTERFA CE | |
2217 | "PKG",35,2 2,1,"PAH", 1,1,7,0) | |
2218 | ||
2219 | "PKG",35,2 2,1,"PAH", 1,1,8,0) | |
2220 | Category: DATA DICT IONARY | |
2221 | "PKG",35,2 2,1,"PAH", 1,1,9,0) | |
2222 | ROUTINE | |
2223 | "PKG",35,2 2,1,"PAH", 1,1,10,0) | |
2224 | OTHER | |
2225 | "PKG",35,2 2,1,"PAH", 1,1,11,0) | |
2226 | ||
2227 | "PKG",35,2 2,1,"PAH", 1,1,12,0) | |
2228 | Associated patches: DG*5.3*948 , SD*5.3*6 76, OR*3.0 *390 | |
2229 | "PKG",35,2 2,1,"PAH", 1,1,13,0) | |
2230 | Subject: MASS ORDER S PATCH | |
2231 | "PKG",35,2 2,1,"PAH", 1,1,14,0) | |
2232 | ||
2233 | "PKG",35,2 2,1,"PAH", 1,1,15,0) | |
2234 | Category: ORDERS, R OUTINE, PR OTOCOLS, I NTERFACES | |
2235 | "PKG",35,2 2,1,"PAH", 1,1,16,0) | |
2236 | ||
2237 | "PKG",35,2 2,1,"PAH", 1,1,17,0) | |
2238 | Descriptio n: | |
2239 | "PKG",35,2 2,1,"PAH", 1,1,18,0) | |
2240 | ---------- -- | |
2241 | "PKG",35,2 2,1,"PAH", 1,1,19,0) | |
2242 | The Medica l Appointm ent Schedu ling Syste m (MASS) p rogram wil l deploy a | |
2243 | "PKG",35,2 2,1,"PAH", 1,1,20,0) | |
2244 | commercial schedulin g applicat ion to sup port sched ulers, and | |
2245 | "PKG",35,2 2,1,"PAH", 1,1,21,0) | |
2246 | ultimately our Veter ans, withi n the Chal mers P. Wy lie Depart ment of | |
2247 | "PKG",35,2 2,1,"PAH", 1,1,22,0) | |
2248 | Veterans A ffairs (VA ) Ambulato ry Care Ce nter in Co lumbus, OH . This | |
2249 | "PKG",35,2 2,1,"PAH", 1,1,23,0) | |
2250 | deployment and integ ration wil l allow th e VA to mo ve from a | |
2251 | "PKG",35,2 2,1,"PAH", 1,1,24,0) | |
2252 | clinic-bas ed schedul ing system to a reso urce-based schedulin g system, | |
2253 | "PKG",35,2 2,1,"PAH", 1,1,25,0) | |
2254 | thereby st andardizin g and impr oving sche duling pro cesses, pr oviding | |
2255 | "PKG",35,2 2,1,"PAH", 1,1,26,0) | |
2256 | resource s upply mana gement, an d deliveri ng improve d access t o care | |
2257 | "PKG",35,2 2,1,"PAH", 1,1,27,0) | |
2258 | for our Ve terans. | |
2259 | "PKG",35,2 2,1,"PAH", 1,1,28,0) | |
2260 | ||
2261 | "PKG",35,2 2,1,"PAH", 1,1,29,0) | |
2262 | The MASS I ndefinite Delivery/I ndefinite Quantity ( IDIQ) cont ract | |
2263 | "PKG",35,2 2,1,"PAH", 1,1,30,0) | |
2264 | establishe s the over arching re quirements for the M ASS Contra ctor to | |
2265 | "PKG",35,2 2,1,"PAH", 1,1,31,0) | |
2266 | incrementa lly captur e requirem ents, desi gn, develo p, deploy, implement , | |
2267 | "PKG",35,2 2,1,"PAH", 1,1,32,0) | |
2268 | and train MASS acros s the VA h ealth care enterpris e. This pr ogram | |
2269 | "PKG",35,2 2,1,"PAH", 1,1,33,0) | |
2270 | involves i nitiation, design, a nd executi on of a pi lot site a t | |
2271 | "PKG",35,2 2,1,"PAH", 1,1,34,0) | |
2272 | Chalmers P . Wylie VA Ambulator y Care Cen ter (herea fter refer red to as | |
2273 | "PKG",35,2 2,1,"PAH", 1,1,35,0) | |
2274 | the Columb us ACC and its assoc iated Comm unity Base d Outpatie nt Clinics ) | |
2275 | "PKG",35,2 2,1,"PAH", 1,1,36,0) | |
2276 | to demonst rate the M ASS busine ss value, the integr ation of M ASS within | |
2277 | "PKG",35,2 2,1,"PAH", 1,1,37,0) | |
2278 | the VA ent erprise, t he impact MASS will have on va rious clin ical and | |
2279 | "PKG",35,2 2,1,"PAH", 1,1,38,0) | |
2280 | administra tive proce sses and w orkflows, and the ef fort neces sary for t he | |
2281 | "PKG",35,2 2,1,"PAH", 1,1,39,0) | |
2282 | affected s takeholder s to adopt these cha nges. | |
2283 | "PKG",35,2 2,1,"PAH", 1,1,40,0) | |
2284 | ||
2285 | "PKG",35,2 2,1,"PAH", 1,1,41,0) | |
2286 | The enterp rise-wide Medical Ap pointment Scheduling System (M ASS), | |
2287 | "PKG",35,2 2,1,"PAH", 1,1,42,0) | |
2288 | enabled by Cadence, will manag e the appo intment li fecycle, i mprove | |
2289 | "PKG",35,2 2,1,"PAH", 1,1,43,0) | |
2290 | clinical r esource ma nagement, and inform VHA manag ement at a ll | |
2291 | "PKG",35,2 2,1,"PAH", 1,1,44,0) | |
2292 | organizati onal level s with rea l-time bus iness, res ource util ization | |
2293 | "PKG",35,2 2,1,"PAH", 1,1,45,0) | |
2294 | and demand , supply, and qualit y service metrics in telligence . The MASS | |
2295 | "PKG",35,2 2,1,"PAH", 1,1,46,0) | |
2296 | implementa tion will address cr itical cha llenges fo r stakehol der and us er | |
2297 | "PKG",35,2 2,1,"PAH", 1,1,47,0) | |
2298 | adoption a cross the enterprise , seamless integrati on with Vi stA, and | |
2299 | "PKG",35,2 2,1,"PAH", 1,1,48,0) | |
2300 | preserver local auto nomy while introduci ng nationa lly standa rdized | |
2301 | "PKG",35,2 2,1,"PAH", 1,1,49,0) | |
2302 | rules and workflows. | |
2303 | "PKG",35,2 2,1,"PAH", 1,1,50,0) | |
2304 | ||
2305 | "PKG",35,2 2,1,"PAH", 1,1,51,0) | |
2306 | The OR*3.0 *470 patch is the in itial rele ase of the Medical A ppointment | |
2307 | "PKG",35,2 2,1,"PAH", 1,1,52,0) | |
2308 | Scheduling System (M ASS) Sched uling inte gration de velopment for the Vi stA | |
2309 | "PKG",35,2 2,1,"PAH", 1,1,53,0) | |
2310 | Pilot at C olumbus. T his patch includes a ll of the necessary components | |
2311 | "PKG",35,2 2,1,"PAH", 1,1,54,0) | |
2312 | that will enable out going HL7 V2 ORM ord ering inte gration wi th MASS. | |
2313 | "PKG",35,2 2,1,"PAH", 1,1,55,0) | |
2314 | ||
2315 | "PKG",35,2 2,1,"PAH", 1,1,56,0) | |
2316 | OR*3.0*470 patch enh ancements include: | |
2317 | "PKG",35,2 2,1,"PAH", 1,1,57,0) | |
2318 | ||
2319 | "PKG",35,2 2,1,"PAH", 1,1,58,0) | |
2320 | 1. Ability to trigge r and buil d HL7v2 OR M messages for any M ASS | |
2321 | "PKG",35,2 2,1,"PAH", 1,1,59,0) | |
2322 | schedul able order . | |
2323 | "PKG",35,2 2,1,"PAH", 1,1,60,0) | |
2324 | 2. Placing orders, u pdating or ders, or c anceling o rders in V istA or | |
2325 | "PKG",35,2 2,1,"PAH", 1,1,61,0) | |
2326 | CPRS ca n now trig ger HL7v2 messages. This inclu des adding comments | |
2327 | "PKG",35,2 2,1,"PAH", 1,1,62,0) | |
2328 | to orde rs. | |
2329 | "PKG",35,2 2,1,"PAH", 1,1,63,0) | |
2330 | 3. Ability to set th e "Schedul able" item on an ord erable rec ord using | |
2331 | "PKG",35,2 2,1,"PAH", 1,1,64,0) | |
2332 | the "OR MX SET MAS S SCHEDULE ACTION" u tility to allow or p revent | |
2333 | "PKG",35,2 2,1,"PAH", 1,1,65,0) | |
2334 | certain orderable s in VistA from trig gering HL7 v2 ORM mes sages. | |
2335 | "PKG",35,2 2,1,"PAH", 1,1,66,0) | |
2336 | 4. Ability to trigge r HL7v2 OR M messages for conve rsion purp oses using | |
2337 | "PKG",35,2 2,1,"PAH", 1,1,67,0) | |
2338 | the "OR MX CONV ME NU" utilit y. | |
2339 | "PKG",35,2 2,1,"PAH", 1,1,68,0) | |
2340 | 5. Ability to comple te RTCs an d Recall R eminders f or convers ion purpos es | |
2341 | "PKG",35,2 2,1,"PAH", 1,1,69,0) | |
2342 | using t he "ORMX C ONV MENU" utility. | |
2343 | "PKG",35,2 2,1,"PAH", 1,1,70,0) | |
2344 | ||
2345 | "PKG",35,2 2,1,"PAH", 1,1,71,0) | |
2346 | Patch Comp onents: | |
2347 | "PKG",35,2 2,1,"PAH", 1,1,72,0) | |
2348 | ---------- ------- | |
2349 | "PKG",35,2 2,1,"PAH", 1,1,73,0) | |
2350 | HLO Applic ations: | |
2351 | "PKG",35,2 2,1,"PAH", 1,1,74,0) | |
2352 | OR-ORM-OUT | |
2353 | "PKG",35,2 2,1,"PAH", 1,1,75,0) | |
2354 | ||
2355 | "PKG",35,2 2,1,"PAH", 1,1,76,0) | |
2356 | HLO Logica l Links: | |
2357 | "PKG",35,2 2,1,"PAH", 1,1,77,0) | |
2358 | OR ORM OUT | |
2359 | "PKG",35,2 2,1,"PAH", 1,1,78,0) | |
2360 | ||
2361 | "PKG",35,2 2,1,"PAH", 1,1,79,0) | |
2362 | Parameters : | |
2363 | "PKG",35,2 2,1,"PAH", 1,1,80,0) | |
2364 | ORMX C&P D EPARTMENT ID | |
2365 | "PKG",35,2 2,1,"PAH", 1,1,81,0) | |
2366 | ORMX CONV THREADS | |
2367 | "PKG",35,2 2,1,"PAH", 1,1,82,0) | |
2368 | ORMX FACIL ITY ID | |
2369 | "PKG",35,2 2,1,"PAH", 1,1,83,0) | |
2370 | ORMX NEAR DEPARTMENT ID | |
2371 | "PKG",35,2 2,1,"PAH", 1,1,84,0) | |
2372 | ORMX RTC N LT PROMPT ID | |
2373 | "PKG",35,2 2,1,"PAH", 1,1,85,0) | |
2374 | ORMX RTC O RDERABLE I D | |
2375 | "PKG",35,2 2,1,"PAH", 1,1,86,0) | |
2376 | ORMX SCH D EFAULT FLA G | |
2377 | "PKG",35,2 2,1,"PAH", 1,1,87,0) | |
2378 | ||
2379 | "PKG",35,2 2,1,"PAH", 1,1,88,0) | |
2380 | List Templ ate: | |
2381 | "PKG",35,2 2,1,"PAH", 1,1,89,0) | |
2382 | ORMX CONVE RSION | |
2383 | "PKG",35,2 2,1,"PAH", 1,1,90,0) | |
2384 | ORMX SCHED ULABLE ACT ION | |
2385 | "PKG",35,2 2,1,"PAH", 1,1,91,0) | |
2386 | ||
2387 | "PKG",35,2 2,1,"PAH", 1,1,92,0) | |
2388 | Files & Fi elds Assoc iated: | |
2389 | "PKG",35,2 2,1,"PAH", 1,1,93,0) | |
2390 | ||
2391 | "PKG",35,2 2,1,"PAH", 1,1,94,0) | |
2392 | File Name (Number) Fie ld Name (N umber) New/Modif ied/Delete d | |
2393 | "PKG",35,2 2,1,"PAH", 1,1,95,0) | |
2394 | ---------- -------- --- ---------- ------ --------- ---------- - | |
2395 | "PKG",35,2 2,1,"PAH", 1,1,96,0) | |
2396 | ORDERABLE ITEMS (101 .43) MAS S SCHEDULA BLE NEW | |
2397 | "PKG",35,2 2,1,"PAH", 1,1,97,0) | |
2398 | ACTION (11 ) | |
2399 | "PKG",35,2 2,1,"PAH", 1,1,98,0) | |
2400 | ||
2401 | "PKG",35,2 2,1,"PAH", 1,1,99,0) | |
2402 | Forms Asso ciated: | |
2403 | "PKG",35,2 2,1,"PAH", 1,1,100,0) | |
2404 | ||
2405 | "PKG",35,2 2,1,"PAH", 1,1,101,0) | |
2406 | Form Name File # New/Mo dified/Del eted | |
2407 | "PKG",35,2 2,1,"PAH", 1,1,102,0) | |
2408 | --------- ---- -- ------ ---------- ---- | |
2409 | "PKG",35,2 2,1,"PAH", 1,1,103,0) | |
2410 | None N/A N/A | |
2411 | "PKG",35,2 2,1,"PAH", 1,1,104,0) | |
2412 | ||
2413 | "PKG",35,2 2,1,"PAH", 1,1,105,0) | |
2414 | Mail Group s Associat ed: | |
2415 | "PKG",35,2 2,1,"PAH", 1,1,106,0) | |
2416 | ||
2417 | "PKG",35,2 2,1,"PAH", 1,1,107,0) | |
2418 | Mail Group Name New/Modifi ed/Deleted | |
2419 | "PKG",35,2 2,1,"PAH", 1,1,108,0) | |
2420 | ---------- ----- ---------- ---------- | |
2421 | "PKG",35,2 2,1,"PAH", 1,1,109,0) | |
2422 | None N/A | |
2423 | "PKG",35,2 2,1,"PAH", 1,1,110,0) | |
2424 | ||
2425 | "PKG",35,2 2,1,"PAH", 1,1,111,0) | |
2426 | Options As sociated: | |
2427 | "PKG",35,2 2,1,"PAH", 1,1,112,0) | |
2428 | ||
2429 | "PKG",35,2 2,1,"PAH", 1,1,113,0) | |
2430 | Option Nam e Type New/ Modified/D eleted | |
2431 | "PKG",35,2 2,1,"PAH", 1,1,114,0) | |
2432 | ---------- - ---- ---- ---------- ------ | |
2433 | "PKG",35,2 2,1,"PAH", 1,1,115,0) | |
2434 | ORMX SET M ASS SCHEDU LE RUN/RO UTINE NEW | |
2435 | "PKG",35,2 2,1,"PAH", 1,1,116,0) | |
2436 | ACTION | |
2437 | "PKG",35,2 2,1,"PAH", 1,1,117,0) | |
2438 | ||
2439 | "PKG",35,2 2,1,"PAH", 1,1,118,0) | |
2440 | Protocols Associated : | |
2441 | "PKG",35,2 2,1,"PAH", 1,1,119,0) | |
2442 | ||
2443 | "PKG",35,2 2,1,"PAH", 1,1,120,0) | |
2444 | Protocol N ame New /Modified/ Deleted | |
2445 | "PKG",35,2 2,1,"PAH", 1,1,121,0) | |
2446 | ---------- --- --- ---------- ------- | |
2447 | "PKG",35,2 2,1,"PAH", 1,1,122,0) | |
2448 | OR EVSEND DGPM MOD IFIED | |
2449 | "PKG",35,2 2,1,"PAH", 1,1,123,0) | |
2450 | OR EVSEND DVBA NEW | |
2451 | "PKG",35,2 2,1,"PAH", 1,1,124,0) | |
2452 | OR EVSEND FH MOD IFIED | |
2453 | "PKG",35,2 2,1,"PAH", 1,1,125,0) | |
2454 | OR EVSEND GMRC MOD IFIED | |
2455 | "PKG",35,2 2,1,"PAH", 1,1,126,0) | |
2456 | OR EVSEND LRAP MOD IFIED | |
2457 | "PKG",35,2 2,1,"PAH", 1,1,127,0) | |
2458 | OR EVSEND LRBB MOD IFIED | |
2459 | "PKG",35,2 2,1,"PAH", 1,1,128,0) | |
2460 | OR EVSEND LRCH MOD IFIED | |
2461 | "PKG",35,2 2,1,"PAH", 1,1,129,0) | |
2462 | OR EVSEND ORG MOD IFIED | |
2463 | "PKG",35,2 2,1,"PAH", 1,1,130,0) | |
2464 | OR EVSEND PS MOD IFIED | |
2465 | "PKG",35,2 2,1,"PAH", 1,1,131,0) | |
2466 | OR EVSEND RA MOD IFIED | |
2467 | "PKG",35,2 2,1,"PAH", 1,1,132,0) | |
2468 | ORMX CHANG E DISPLAY GROUP NEW | |
2469 | "PKG",35,2 2,1,"PAH", 1,1,133,0) | |
2470 | ORMX EVSEN D ADD COMM ENT NEW | |
2471 | "PKG",35,2 2,1,"PAH", 1,1,134,0) | |
2472 | ORMX GMRC EVSEND UPD ATE NEW | |
2473 | "PKG",35,2 2,1,"PAH", 1,1,135,0) | |
2474 | ORMX ORM H L7 TRIGGER NEW | |
2475 | "PKG",35,2 2,1,"PAH", 1,1,136,0) | |
2476 | - ADD COMM ENTS | |
2477 | "PKG",35,2 2,1,"PAH", 1,1,137,0) | |
2478 | ORMX ORM H L7 TRIGGER NEW | |
2479 | "PKG",35,2 2,1,"PAH", 1,1,138,0) | |
2480 | - C&P UPDA TE | |
2481 | "PKG",35,2 2,1,"PAH", 1,1,139,0) | |
2482 | ORMX ORM H L7 TRIGGER NEW | |
2483 | "PKG",35,2 2,1,"PAH", 1,1,140,0) | |
2484 | - CONSULTS | |
2485 | "PKG",35,2 2,1,"PAH", 1,1,141,0) | |
2486 | ORMX ORM H L7 TRIGGER NEW | |
2487 | "PKG",35,2 2,1,"PAH", 1,1,142,0) | |
2488 | - ORDERS | |
2489 | "PKG",35,2 2,1,"PAH", 1,1,143,0) | |
2490 | ORMX RUN C ONV NEW | |
2491 | "PKG",35,2 2,1,"PAH", 1,1,144,0) | |
2492 | ORMX SCHED ULABLE ACT ION NEW | |
2493 | "PKG",35,2 2,1,"PAH", 1,1,145,0) | |
2494 | ORMX SCHED ULABLE ACT ION NEW | |
2495 | "PKG",35,2 2,1,"PAH", 1,1,146,0) | |
2496 | Menu | |
2497 | "PKG",35,2 2,1,"PAH", 1,1,147,0) | |
2498 | ||
2499 | "PKG",35,2 2,1,"PAH", 1,1,148,0) | |
2500 | ||
2501 | "PKG",35,2 2,1,"PAH", 1,1,149,0) | |
2502 | Security K eys Associ ated: | |
2503 | "PKG",35,2 2,1,"PAH", 1,1,150,0) | |
2504 | ||
2505 | "PKG",35,2 2,1,"PAH", 1,1,151,0) | |
2506 | Security K ey Name | |
2507 | "PKG",35,2 2,1,"PAH", 1,1,152,0) | |
2508 | ---------- ------- | |
2509 | "PKG",35,2 2,1,"PAH", 1,1,153,0) | |
2510 | N/A | |
2511 | "PKG",35,2 2,1,"PAH", 1,1,154,0) | |
2512 | ||
2513 | "PKG",35,2 2,1,"PAH", 1,1,155,0) | |
2514 | Templates Associated : | |
2515 | "PKG",35,2 2,1,"PAH", 1,1,156,0) | |
2516 | ||
2517 | "PKG",35,2 2,1,"PAH", 1,1,157,0) | |
2518 | Template N ame Typ e File Name (Numb er) New/M odified/De leted | |
2519 | "PKG",35,2 2,1,"PAH", 1,1,158,0) | |
2520 | ---------- --- --- - ----- ---------- --- ----- ---------- ----- | |
2521 | "PKG",35,2 2,1,"PAH", 1,1,159,0) | |
2522 | None N/A N/A N/A | |
2523 | "PKG",35,2 2,1,"PAH", 1,1,160,0) | |
2524 | ||
2525 | "PKG",35,2 2,1,"PAH", 1,1,161,0) | |
2526 | Additional Informati on: | |
2527 | "PKG",35,2 2,1,"PAH", 1,1,162,0) | |
2528 | N/A | |
2529 | "PKG",35,2 2,1,"PAH", 1,1,163,0) | |
2530 | ||
2531 | "PKG",35,2 2,1,"PAH", 1,1,164,0) | |
2532 | New Servic e Requests (NSRs): | |
2533 | "PKG",35,2 2,1,"PAH", 1,1,165,0) | |
2534 | ---------- ---------- -------- | |
2535 | "PKG",35,2 2,1,"PAH", 1,1,166,0) | |
2536 | N/A | |
2537 | "PKG",35,2 2,1,"PAH", 1,1,167,0) | |
2538 | ||
2539 | "PKG",35,2 2,1,"PAH", 1,1,168,0) | |
2540 | Patient Sa fety Issue s (PSIs): | |
2541 | "PKG",35,2 2,1,"PAH", 1,1,169,0) | |
2542 | ---------- ---------- --------- | |
2543 | "PKG",35,2 2,1,"PAH", 1,1,170,0) | |
2544 | N/A | |
2545 | "PKG",35,2 2,1,"PAH", 1,1,171,0) | |
2546 | ||
2547 | "PKG",35,2 2,1,"PAH", 1,1,172,0) | |
2548 | Defect Tra cking Syst em Ticket( s) & Overv iew: | |
2549 | "PKG",35,2 2,1,"PAH", 1,1,173,0) | |
2550 | ---------- ---------- ---------- ---------- ---- | |
2551 | "PKG",35,2 2,1,"PAH", 1,1,174,0) | |
2552 | N/A | |
2553 | "PKG",35,2 2,1,"PAH", 1,1,175,0) | |
2554 | ||
2555 | "PKG",35,2 2,1,"PAH", 1,1,176,0) | |
2556 | Problem: | |
2557 | "PKG",35,2 2,1,"PAH", 1,1,177,0) | |
2558 | ------- | |
2559 | "PKG",35,2 2,1,"PAH", 1,1,178,0) | |
2560 | N/A | |
2561 | "PKG",35,2 2,1,"PAH", 1,1,179,0) | |
2562 | ||
2563 | "PKG",35,2 2,1,"PAH", 1,1,180,0) | |
2564 | Resolution : | |
2565 | "PKG",35,2 2,1,"PAH", 1,1,181,0) | |
2566 | ---------- | |
2567 | "PKG",35,2 2,1,"PAH", 1,1,182,0) | |
2568 | N/A | |
2569 | "PKG",35,2 2,1,"PAH", 1,1,183,0) | |
2570 | ||
2571 | "PKG",35,2 2,1,"PAH", 1,1,184,0) | |
2572 | Test Sites : | |
2573 | "PKG",35,2 2,1,"PAH", 1,1,185,0) | |
2574 | ---------- | |
2575 | "PKG",35,2 2,1,"PAH", 1,1,186,0) | |
2576 | Columbus, OH | |
2577 | "PKG",35,2 2,1,"PAH", 1,1,187,0) | |
2578 | ||
2579 | "PKG",35,2 2,1,"PAH", 1,1,188,0) | |
2580 | Software a nd Documen tation Ret rieval Ins tructions: | |
2581 | "PKG",35,2 2,1,"PAH", 1,1,189,0) | |
2582 | ---------- ---------- ---------- ---------- ---------- -- | |
2583 | "PKG",35,2 2,1,"PAH", 1,1,190,0) | |
2584 | Software b eing relea sed as a h ost file a nd/or docu mentation describing | |
2585 | "PKG",35,2 2,1,"PAH", 1,1,191,0) | |
2586 | the new fu nctionalit y introduc ed by this patch are available . | |
2587 | "PKG",35,2 2,1,"PAH", 1,1,192,0) | |
2588 | ||
2589 | "PKG",35,2 2,1,"PAH", 1,1,193,0) | |
2590 | The prefer red method is to ret rieve file s from dow nload. DNS . DNS . | |
2591 | "PKG",35,2 2,1,"PAH", 1,1,194,0) | |
2592 | This trans mits the f iles from the first available server. Si tes may | |
2593 | "PKG",35,2 2,1,"PAH", 1,1,195,0) | |
2594 | also elect to retrie ve files d irectly fr om a speci fic server . | |
2595 | "PKG",35,2 2,1,"PAH", 1,1,196,0) | |
2596 | ||
2597 | "PKG",35,2 2,1,"PAH", 1,1,197,0) | |
2598 | Sites may retrieve t he softwar e and/or d ocumentati on directl y using | |
2599 | "PKG",35,2 2,1,"PAH", 1,1,198,0) | |
2600 | Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE | |
2601 | "PKG",35,2 2,1,"PAH", 1,1,199,0) | |
2602 | directory at the fol lowing | |
2603 | "PKG",35,2 2,1,"PAH", 1,1,200,0) | |
2604 | OI Field O ffices: | |
2605 | "PKG",35,2 2,1,"PAH", 1,1,201,0) | |
2606 | ||
2607 | "PKG",35,2 2,1,"PAH", 1,1,202,0) | |
2608 | Hines: DN S .URL | |
2609 | "PKG",35,2 2,1,"PAH", 1,1,203,0) | |
2610 | Salt Lake City:
|
|
2611 | "PKG",35,2 2,1,"PAH", 1,1,204,0) | |
2612 | ||
2613 | "PKG",35,2 2,1,"PAH", 1,1,205,0) | |
2614 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | |
2615 | "PKG",35,2 2,1,"PAH", 1,1,206,0) | |
2616 | at: | |
2617 | "PKG",35,2 2,1,"PAH", 1,1,207,0) | |
2618 | http://www . DNS /vdl/ | |
2619 | "PKG",35,2 2,1,"PAH", 1,1,208,0) | |
2620 | ||
2621 | "PKG",35,2 2,1,"PAH", 1,1,209,0) | |
2622 | ||
2623 | "PKG",35,2 2,1,"PAH", 1,1,210,0) | |
2624 | Title Fi le Name FTP Mo de | |
2625 | "PKG",35,2 2,1,"PAH", 1,1,211,0) | |
2626 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- - | |
2627 | "PKG",35,2 2,1,"PAH", 1,1,212,0) | |
2628 | N/A | |
2629 | "PKG",35,2 2,1,"PAH", 1,1,213,0) | |
2630 | ||
2631 | "PKG",35,2 2,1,"PAH", 1,1,214,0) | |
2632 | Patch Inst allation: | |
2633 | "PKG",35,2 2,1,"PAH", 1,1,215,0) | |
2634 | ||
2635 | "PKG",35,2 2,1,"PAH", 1,1,216,0) | |
2636 | Pre/Post I nstallatio n Overview : | |
2637 | "PKG",35,2 2,1,"PAH", 1,1,217,0) | |
2638 | ---------- ---------- ---------- - | |
2639 | "PKG",35,2 2,1,"PAH", 1,1,218,0) | |
2640 | N/A | |
2641 | "PKG",35,2 2,1,"PAH", 1,1,219,0) | |
2642 | ||
2643 | "PKG",35,2 2,1,"PAH", 1,1,220,0) | |
2644 | Pre-Instal lation Ins tructions: | |
2645 | "PKG",35,2 2,1,"PAH", 1,1,221,0) | |
2646 | ---------- ---------- ---------- | |
2647 | "PKG",35,2 2,1,"PAH", 1,1,222,0) | |
2648 | This patch may be in stalled wi th users o n the syst em althoug h it is | |
2649 | "PKG",35,2 2,1,"PAH", 1,1,223,0) | |
2650 | recommende d that it be install ed during non-peak h ours to mi nimize | |
2651 | "PKG",35,2 2,1,"PAH", 1,1,224,0) | |
2652 | potential disruption to users. This pat ch should take less than 5 | |
2653 | "PKG",35,2 2,1,"PAH", 1,1,225,0) | |
2654 | minutes to install. | |
2655 | "PKG",35,2 2,1,"PAH", 1,1,226,0) | |
2656 | ||
2657 | "PKG",35,2 2,1,"PAH", 1,1,227,0) | |
2658 | There are no listman Options t hat need t o be disab led for th is patch. | |
2659 | "PKG",35,2 2,1,"PAH", 1,1,228,0) | |
2660 | ||
2661 | "PKG",35,2 2,1,"PAH", 1,1,229,0) | |
2662 | Installati on Instruc tions: | |
2663 | "PKG",35,2 2,1,"PAH", 1,1,230,0) | |
2664 | ---------- ---------- ------ | |
2665 | "PKG",35,2 2,1,"PAH", 1,1,231,0) | |
2666 | ||
2667 | "PKG",35,2 2,1,"PAH", 1,1,232,0) | |
2668 | 1. Ch oose the P ackMan mes sage conta ining this patch. | |
2669 | "PKG",35,2 2,1,"PAH", 1,1,233,0) | |
2670 | ||
2671 | "PKG",35,2 2,1,"PAH", 1,1,234,0) | |
2672 | 2. Ch oose the I NSTALL/CHE CK MESSAGE PackMan o ption. | |
2673 | "PKG",35,2 2,1,"PAH", 1,1,235,0) | |
2674 | ||
2675 | "PKG",35,2 2,1,"PAH", 1,1,236,0) | |
2676 | 3. Fr om the Ker nel Instal lation and Distribut ion System Menu, sel ect | |
2677 | "PKG",35,2 2,1,"PAH", 1,1,237,0) | |
2678 | the Instal lation Men u (See Ins tall Promp ts Sample below for more | |
2679 | "PKG",35,2 2,1,"PAH", 1,1,238,0) | |
2680 | detail). From this menu, you may elect to use the following options. | |
2681 | "PKG",35,2 2,1,"PAH", 1,1,239,0) | |
2682 | When promp ted for th e INSTALL NAME enter the patch OR*3.0*47 0: | |
2683 | "PKG",35,2 2,1,"PAH", 1,1,240,0) | |
2684 | a. Ba ckup a Tra nsport Glo bal - This option wi ll create a backup | |
2685 | "PKG",35,2 2,1,"PAH", 1,1,241,0) | |
2686 | message of any routi nes export ed with th is patch. It will no t backup a ny | |
2687 | "PKG",35,2 2,1,"PAH", 1,1,242,0) | |
2688 | other chan ges such a s DDs or t emplates. | |
2689 | "PKG",35,2 2,1,"PAH", 1,1,243,0) | |
2690 | b. Co mpare Tran sport Glob al to Curr ent System - This op tion will | |
2691 | "PKG",35,2 2,1,"PAH", 1,1,244,0) | |
2692 | (allow you to view a ll changes that will be made w hen this p atch | |
2693 | "PKG",35,2 2,1,"PAH", 1,1,245,0) | |
2694 | is install ed. It co mpares all component s of this patch rout ines, DDs, | |
2695 | "PKG",35,2 2,1,"PAH", 1,1,246,0) | |
2696 | templates, etc.). | |
2697 | "PKG",35,2 2,1,"PAH", 1,1,247,0) | |
2698 | c. Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow you | |
2699 | "PKG",35,2 2,1,"PAH", 1,1,248,0) | |
2700 | to ensure the integr ity of the routines that are i n the tran sport glob al. | |
2701 | "PKG",35,2 2,1,"PAH", 1,1,249,0) | |
2702 | 4. F rom the In stallation Menu, sel ect the In stall Pack age(s) opt ion | |
2703 | "PKG",35,2 2,1,"PAH", 1,1,250,0) | |
2704 | and choose the patch to instal l. | |
2705 | "PKG",35,2 2,1,"PAH", 1,1,251,0) | |
2706 | ||
2707 | "PKG",35,2 2,1,"PAH", 1,1,252,0) | |
2708 | 5. Wh en prompte d 'Want KI DS to Rebu ild Menu T rees Upon Completion of | |
2709 | "PKG",35,2 2,1,"PAH", 1,1,253,0) | |
2710 | Install? N O//' | |
2711 | "PKG",35,2 2,1,"PAH", 1,1,254,0) | |
2712 | ||
2713 | "PKG",35,2 2,1,"PAH", 1,1,255,0) | |
2714 | 6. Wh en prompte d 'Want KI DS to INHI BIT LOGONs during th e install? | |
2715 | "PKG",35,2 2,1,"PAH", 1,1,256,0) | |
2716 | NO//' | |
2717 | "PKG",35,2 2,1,"PAH", 1,1,257,0) | |
2718 | ||
2719 | "PKG",35,2 2,1,"PAH", 1,1,258,0) | |
2720 | 7. Wh en prompte d 'Want to DISABLE S cheduled O ptions, Me nu Options , | |
2721 | "PKG",35,2 2,1,"PAH", 1,1,259,0) | |
2722 | and Protoc ols? NO//' | |
2723 | "PKG",35,2 2,1,"PAH", 1,1,260,0) | |
2724 | ||
2725 | "PKG",35,2 2,1,"PAH", 1,1,261,0) | |
2726 | 8. If prompted 'Delay Ins tall (Minu tes): (0 - 60): 0// ' respond 0. | |
2727 | "PKG",35,2 2,1,"PAH", 1,1,262,0) | |
2728 | ||
2729 | "PKG",35,2 2,1,"PAH", 1,1,263,0) | |
2730 | ||
2731 | "PKG",35,2 2,1,"PAH", 1,1,264,0) | |
2732 | Install Pr ompts Samp le: | |
2733 | "PKG",35,2 2,1,"PAH", 1,1,265,0) | |
2734 | ---------- ---------- ------ | |
2735 | "PKG",35,2 2,1,"PAH", 1,1,266,0) | |
2736 | ||
2737 | "PKG",35,2 2,1,"PAH", 1,1,267,0) | |
2738 | VISTA>D ^X UP | |
2739 | "PKG",35,2 2,1,"PAH", 1,1,268,0) | |
2740 | ||
2741 | "PKG",35,2 2,1,"PAH", 1,1,269,0) | |
2742 | Setting up programme r environm ent | |
2743 | "PKG",35,2 2,1,"PAH", 1,1,270,0) | |
2744 | This is a TEST accou nt. | |
2745 | "PKG",35,2 2,1,"PAH", 1,1,271,0) | |
2746 | ||
2747 | "PKG",35,2 2,1,"PAH", 1,1,272,0) | |
2748 | Terminal T ype set to : C-VT100 | |
2749 | "PKG",35,2 2,1,"PAH", 1,1,273,0) | |
2750 | ||
2751 | "PKG",35,2 2,1,"PAH", 1,1,274,0) | |
2752 | Select OPT ION NAME: XPD LOAD D ISTRIBUTIO N Lo ad a Distr ibution | |
2753 | "PKG",35,2 2,1,"PAH", 1,1,275,0) | |
2754 | Load a Dis tribution | |
2755 | "PKG",35,2 2,1,"PAH", 1,1,276,0) | |
2756 | ||
2757 | "PKG",35,2 2,1,"PAH", 1,1,277,0) | |
2758 | Enter a Ho st File: C :\HFS\OR_3 _0_470.KID | |
2759 | "PKG",35,2 2,1,"PAH", 1,1,278,0) | |
2760 | ||
2761 | "PKG",35,2 2,1,"PAH", 1,1,279,0) | |
2762 | KIDS Distr ibution sa ved on Dec 11, 2017@ 17:30:33 | |
2763 | "PKG",35,2 2,1,"PAH", 1,1,280,0) | |
2764 | Comment: O R*3.0*470 12/11/17 | |
2765 | "PKG",35,2 2,1,"PAH", 1,1,281,0) | |
2766 | ||
2767 | "PKG",35,2 2,1,"PAH", 1,1,282,0) | |
2768 | This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s): | |
2769 | "PKG",35,2 2,1,"PAH", 1,1,283,0) | |
2770 | Build OR*3 .0*470 has been load ed before, here is w hen: | |
2771 | "PKG",35,2 2,1,"PAH", 1,1,284,0) | |
2772 | OR*3 .0*470 I nstall Com pleted | |
2773 | "PKG",35,2 2,1,"PAH", 1,1,285,0) | |
2774 | w as loaded on Oct 05, 2017@22:4 3:32 | |
2775 | "PKG",35,2 2,1,"PAH", 1,1,286,0) | |
2776 | OR*3 .0*470 I nstall Com pleted | |
2777 | "PKG",35,2 2,1,"PAH", 1,1,287,0) | |
2778 | w as loaded on Oct 05, 2017@22:4 8:51 | |
2779 | "PKG",35,2 2,1,"PAH", 1,1,288,0) | |
2780 | OR*3 .0*470 I nstall Com pleted | |
2781 | "PKG",35,2 2,1,"PAH", 1,1,289,0) | |
2782 | w as loaded on Oct 10, 2017@16:0 8:28 | |
2783 | "PKG",35,2 2,1,"PAH", 1,1,290,0) | |
2784 | OR*3 .0*470 I nstall Com pleted | |
2785 | "PKG",35,2 2,1,"PAH", 1,1,291,0) | |
2786 | w as loaded on Nov 15, 2017@00:1 2:12 | |
2787 | "PKG",35,2 2,1,"PAH", 1,1,292,0) | |
2788 | OR*3 .0*470 I nstall Com pleted | |
2789 | "PKG",35,2 2,1,"PAH", 1,1,293,0) | |
2790 | w as loaded on Nov 17, 2017@14:1 3:21 | |
2791 | "PKG",35,2 2,1,"PAH", 1,1,294,0) | |
2792 | OR*3 .0*470 I nstall Com pleted | |
2793 | "PKG",35,2 2,1,"PAH", 1,1,295,0) | |
2794 | w as loaded on Nov 17, 2017@14:1 5:43 | |
2795 | "PKG",35,2 2,1,"PAH", 1,1,296,0) | |
2796 | OR*3 .0*470 I nstall Com pleted | |
2797 | "PKG",35,2 2,1,"PAH", 1,1,297,0) | |
2798 | w as loaded on Nov 20, 2017@14:5 8:56 | |
2799 | "PKG",35,2 2,1,"PAH", 1,1,298,0) | |
2800 | OR*3 .0*470 I nstall Com pleted | |
2801 | "PKG",35,2 2,1,"PAH", 1,1,299,0) | |
2802 | w as loaded on Nov 21, 2017@15:4 0:15 | |
2803 | "PKG",35,2 2,1,"PAH", 1,1,300,0) | |
2804 | OR*3 .0*470 I nstall Com pleted | |
2805 | "PKG",35,2 2,1,"PAH", 1,1,301,0) | |
2806 | w as loaded on Nov 30, 2017@15:0 5:17 | |
2807 | "PKG",35,2 2,1,"PAH", 1,1,302,0) | |
2808 | OR*3 .0*470 I nstall Com pleted | |
2809 | "PKG",35,2 2,1,"PAH", 1,1,303,0) | |
2810 | w as loaded on Dec 05, 2017@16:1 6:23 | |
2811 | "PKG",35,2 2,1,"PAH", 1,1,304,0) | |
2812 | OK to cont inue with Load? NO// YES | |
2813 | "PKG",35,2 2,1,"PAH", 1,1,305,0) | |
2814 | ||
2815 | "PKG",35,2 2,1,"PAH", 1,1,306,0) | |
2816 | Distributi on OK! | |
2817 | "PKG",35,2 2,1,"PAH", 1,1,307,0) | |
2818 | ||
2819 | "PKG",35,2 2,1,"PAH", 1,1,308,0) | |
2820 | Want to Co ntinue wit h Load? YE S// | |
2821 | "PKG",35,2 2,1,"PAH", 1,1,309,0) | |
2822 | Loading Di stribution ... | |
2823 | "PKG",35,2 2,1,"PAH", 1,1,310,0) | |
2824 | ||
2825 | "PKG",35,2 2,1,"PAH", 1,1,311,0) | |
2826 | OR*3.0* 470 | |
2827 | "PKG",35,2 2,1,"PAH", 1,1,312,0) | |
2828 | Use INSTAL L NAME: OR *3.0*470 t o install this Distr ibution. | |
2829 | "PKG",35,2 2,1,"PAH", 1,1,313,0) | |
2830 | ||
2831 | "PKG",35,2 2,1,"PAH", 1,1,314,0) | |
2832 | VISTA>D ^X UP | |
2833 | "PKG",35,2 2,1,"PAH", 1,1,315,0) | |
2834 | ||
2835 | "PKG",35,2 2,1,"PAH", 1,1,316,0) | |
2836 | Setting up programme r environm ent | |
2837 | "PKG",35,2 2,1,"PAH", 1,1,317,0) | |
2838 | This is a TEST accou nt. | |
2839 | "PKG",35,2 2,1,"PAH", 1,1,318,0) | |
2840 | Terminal T ype set to : C-VT100 | |
2841 | "PKG",35,2 2,1,"PAH", 1,1,319,0) | |
2842 | ||
2843 | "PKG",35,2 2,1,"PAH", 1,1,320,0) | |
2844 | Select OPT ION NAME: XPD INS | |
2845 | "PKG",35,2 2,1,"PAH", 1,1,321,0) | |
2846 | 1 X PD INSTALL BUILD Install Package(s ) | |
2847 | "PKG",35,2 2,1,"PAH", 1,1,322,0) | |
2848 | 2 X PD INSTALL ATION MENU Ins tallation | |
2849 | "PKG",35,2 2,1,"PAH", 1,1,323,0) | |
2850 | CHOOSE 1-2 : 1 XPD I NSTALL BUI LD Ins tall Packa ge(s) | |
2851 | "PKG",35,2 2,1,"PAH", 1,1,324,0) | |
2852 | Install Pa ckage(s) | |
2853 | "PKG",35,2 2,1,"PAH", 1,1,325,0) | |
2854 | Select INS TALL NAME: OR*3.0 *470 L oaded from Distribut ion | |
2855 | "PKG",35,2 2,1,"PAH", 1,1,326,0) | |
2856 | 12/12/17@2 3:4 | |
2857 | "PKG",35,2 2,1,"PAH", 1,1,327,0) | |
2858 | 8:51 | |
2859 | "PKG",35,2 2,1,"PAH", 1,1,328,0) | |
2860 | => OR *3.0*470 1 2/11/17 ; Created on Dec 11, 2 017@17:30: 33 | |
2861 | "PKG",35,2 2,1,"PAH", 1,1,329,0) | |
2862 | ||
2863 | "PKG",35,2 2,1,"PAH", 1,1,330,0) | |
2864 | This Distr ibution wa s loaded o n Dec 12, 2017@23:48 :51 with h eader of | |
2865 | "PKG",35,2 2,1,"PAH", 1,1,331,0) | |
2866 | OR*3.0* 470 12/11/ 17 ;Creat ed on Dec 11, 2017@1 7:30:33 | |
2867 | "PKG",35,2 2,1,"PAH", 1,1,332,0) | |
2868 | It cons isted of t he followi ng Install (s): | |
2869 | "PKG",35,2 2,1,"PAH", 1,1,333,0) | |
2870 | OR*3. 0*470 | |
2871 | "PKG",35,2 2,1,"PAH", 1,1,334,0) | |
2872 | Checking I nstall for Package O R*3.0*470 | |
2873 | "PKG",35,2 2,1,"PAH", 1,1,335,0) | |
2874 | ||
2875 | "PKG",35,2 2,1,"PAH", 1,1,336,0) | |
2876 | Install Qu estions fo r OR*3.0*4 70 | |
2877 | "PKG",35,2 2,1,"PAH", 1,1,337,0) | |
2878 | ||
2879 | "PKG",35,2 2,1,"PAH", 1,1,338,0) | |
2880 | Incoming F iles: | |
2881 | "PKG",35,2 2,1,"PAH", 1,1,339,0) | |
2882 | ||
2883 | "PKG",35,2 2,1,"PAH", 1,1,340,0) | |
2884 | ||
2885 | "PKG",35,2 2,1,"PAH", 1,1,341,0) | |
2886 | 2 PATIENT (Partial Definitio n) | |
2887 | "PKG",35,2 2,1,"PAH", 1,1,342,0) | |
2888 | Note: You already h ave the 'P ATIENT' Fi le. | |
2889 | "PKG",35,2 2,1,"PAH", 1,1,343,0) | |
2890 | ||
2891 | "PKG",35,2 2,1,"PAH", 1,1,344,0) | |
2892 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install? NO// | |
2893 | "PKG",35,2 2,1,"PAH", 1,1,345,0) | |
2894 | Want KIDS to INHIBIT LOGONs du ring the i nstall? NO // | |
2895 | "PKG",35,2 2,1,"PAH", 1,1,346,0) | |
2896 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls? NO// | |
2897 | "PKG",35,2 2,1,"PAH", 1,1,347,0) | |
2898 | ||
2899 | "PKG",35,2 2,1,"PAH", 1,1,348,0) | |
2900 | Enter the Device you want to p rint the I nstall mes sages. | |
2901 | "PKG",35,2 2,1,"PAH", 1,1,349,0) | |
2902 | You can qu eue the in stall by e nter a 'Q' at the de vice promp t. | |
2903 | "PKG",35,2 2,1,"PAH", 1,1,350,0) | |
2904 | Enter a '^ ' to abort the insta ll. | |
2905 | "PKG",35,2 2,1,"PAH", 1,1,351,0) | |
2906 | ||
2907 | "PKG",35,2 2,1,"PAH", 1,1,352,0) | |
2908 | DEVICE: HO ME// CON SOLE | |
2909 | "PKG",35,2 2,1,"PAH", 1,1,353,0) | |
2910 | ||
2911 | "PKG",35,2 2,1,"PAH", 1,1,354,0) | |
2912 | Install S tarted for OR*3.0*47 0 : | |
2913 | "PKG",35,2 2,1,"PAH", 1,1,355,0) | |
2914 | Dec 1 2, 2017@23 :49:03 | |
2915 | "PKG",35,2 2,1,"PAH", 1,1,356,0) | |
2916 | ||
2917 | "PKG",35,2 2,1,"PAH", 1,1,357,0) | |
2918 | Build Dist ribution D ate: Dec 1 1, 2017 | |
2919 | "PKG",35,2 2,1,"PAH", 1,1,358,0) | |
2920 | ||
2921 | "PKG",35,2 2,1,"PAH", 1,1,359,0) | |
2922 | Installin g Routines : | |
2923 | "PKG",35,2 2,1,"PAH", 1,1,360,0) | |
2924 | Dec 12, 2017@2 3:49:04 | |
2925 | "PKG",35,2 2,1,"PAH", 1,1,361,0) | |
2926 | ||
2927 | "PKG",35,2 2,1,"PAH", 1,1,362,0) | |
2928 | Installin g Data Dic tionaries: | |
2929 | "PKG",35,2 2,1,"PAH", 1,1,363,0) | |
2930 | Dec 12, 2017@2 3:49:05 | |
2931 | "PKG",35,2 2,1,"PAH", 1,1,364,0) | |
2932 | ||
2933 | "PKG",35,2 2,1,"PAH", 1,1,365,0) | |
2934 | Installin g PACKAGE COMPONENTS : | |
2935 | "PKG",35,2 2,1,"PAH", 1,1,366,0) | |
2936 | ||
2937 | "PKG",35,2 2,1,"PAH", 1,1,367,0) | |
2938 | Installin g HL LOGIC AL LINK | |
2939 | "PKG",35,2 2,1,"PAH", 1,1,368,0) | |
2940 | ||
2941 | "PKG",35,2 2,1,"PAH", 1,1,369,0) | |
2942 | Installin g PROTOCOL | |
2943 | "PKG",35,2 2,1,"PAH", 1,1,370,0) | |
2944 | Located in the OR (ORDER ENT RY/RESULTS REPORTING ) namespac e. | |
2945 | "PKG",35,2 2,1,"PAH", 1,1,371,0) | |
2946 | Located in the OR (ORDER ENT RY/RESULTS REPORTING ) namespac e. | |
2947 | "PKG",35,2 2,1,"PAH", 1,1,372,0) | |
2948 | ||
2949 | "PKG",35,2 2,1,"PAH", 1,1,373,0) | |
2950 | Installin g LIST TEM PLATE | |
2951 | "PKG",35,2 2,1,"PAH", 1,1,374,0) | |
2952 | ||
2953 | "PKG",35,2 2,1,"PAH", 1,1,375,0) | |
2954 | Installin g OPTION | |
2955 | "PKG",35,2 2,1,"PAH", 1,1,376,0) | |
2956 | ||
2957 | "PKG",35,2 2,1,"PAH", 1,1,377,0) | |
2958 | Installin g PARAMETE R DEFINITI ON | |
2959 | "PKG",35,2 2,1,"PAH", 1,1,378,0) | |
2960 | ||
2961 | "PKG",35,2 2,1,"PAH", 1,1,379,0) | |
2962 | Installin g HLO APPL ICATION RE GISTRY | |
2963 | "PKG",35,2 2,1,"PAH", 1,1,380,0) | |
2964 | Dec 12, 2017@2 3:49:06 | |
2965 | "PKG",35,2 2,1,"PAH", 1,1,381,0) | |
2966 | ||
2967 | "PKG",35,2 2,1,"PAH", 1,1,382,0) | |
2968 | Updating Routine fi le... | |
2969 | "PKG",35,2 2,1,"PAH", 1,1,383,0) | |
2970 | ||
2971 | "PKG",35,2 2,1,"PAH", 1,1,384,0) | |
2972 | Updating KIDS files ... | |
2973 | "PKG",35,2 2,1,"PAH", 1,1,385,0) | |
2974 | ||
2975 | "PKG",35,2 2,1,"PAH", 1,1,386,0) | |
2976 | OR*3.0*47 0 Installe d. | |
2977 | "PKG",35,2 2,1,"PAH", 1,1,387,0) | |
2978 | Dec 1 2, 2017@23 :49:06 | |
2979 | "PKG",35,2 2,1,"PAH", 1,1,388,0) | |
2980 | ||
2981 | "PKG",35,2 2,1,"PAH", 1,1,389,0) | |
2982 | No link t o PACKAGE file | |
2983 | "PKG",35,2 2,1,"PAH", 1,1,390,0) | |
2984 | ||
2985 | "PKG",35,2 2,1,"PAH", 1,1,391,0) | |
2986 | NO Instal l Message sent | |
2987 | "PKG",35,2 2,1,"PAH", 1,1,392,0) | |
2988 | ||
2989 | "PKG",35,2 2,1,"PAH", 1,1,393,0) | |
2990 | Install Co mpleted | |
2991 | "PKG",35,2 2,1,"PAH", 1,1,394,0) | |
2992 | ||
2993 | "PKG",35,2 2,1,"PAH", 1,1,395,0) | |
2994 | VISTA> | |
2995 | "PKG",35,2 2,1,"PAH", 1,1,396,0) | |
2996 | ||
2997 | "PKG",35,2 2,1,"PAH", 1,1,397,0) | |
2998 | ||
2999 | "PKG",35,2 2,1,"PAH", 1,1,398,0) | |
3000 | ||
3001 | "PKG",35,2 2,1,"PAH", 1,1,399,0) | |
3002 | Patch Back out Instru ctions: | |
3003 | "PKG",35,2 2,1,"PAH", 1,1,400,0) | |
3004 | ---------- ---------- ------ | |
3005 | "PKG",35,2 2,1,"PAH", 1,1,401,0) | |
3006 | 1. Go to MailMa n menu, ch oose optio n Read/Man age Messag es and sel ect | |
3007 | "PKG",35,2 2,1,"PAH", 1,1,402,0) | |
3008 | the backup message t hat was cr eating dur ing Instal lation ste p 3.c - Ba ckup | |
3009 | "PKG",35,2 2,1,"PAH", 1,1,403,0) | |
3010 | 2. Wh en prompte d 'Type <E nter> to c ontinue or '^' to ex it:' type '^' | |
3011 | "PKG",35,2 2,1,"PAH", 1,1,404,0) | |
3012 | and then < Enter> | |
3013 | "PKG",35,2 2,1,"PAH", 1,1,405,0) | |
3014 | 3. Wh en prompte d 'Enter m essage act ion:' type 'Xtract P ackMan' an d | |
3015 | "PKG",35,2 2,1,"PAH", 1,1,406,0) | |
3016 | then <Ente r> | |
3017 | "PKG",35,2 2,1,"PAH", 1,1,407,0) | |
3018 | 4. Th e followin g message and the pr ompt will display: | |
3019 | "PKG",35,2 2,1,"PAH", 1,1,408,0) | |
3020 | Warning: I nstalling this messa ge will ca use a perm anent upda te of glob als | |
3021 | "PKG",35,2 2,1,"PAH", 1,1,409,0) | |
3022 | and routin es. | |
3023 | "PKG",35,2 2,1,"PAH", 1,1,410,0) | |
3024 | Do you rea lly want t o do this? NO//' typ e 'YES' an d then <En ter> | |
3025 | "PKG",35,2 2,1,"PAH", 1,1,411,0) | |
3026 | 5. Wh en prompte d: | |
3027 | "PKG",35,2 2,1,"PAH", 1,1,412,0) | |
3028 | 'Shall I p reserve th e routines on disk i n a separa te back-up message? | |
3029 | "PKG",35,2 2,1,"PAH", 1,1,413,0) | |
3030 | YES//' typ e 'NO' and then <Ent er> | |
3031 | "PKG",35,2 2,1,"PAH", 1,1,414,0) | |
3032 | 6. Th e system w ill displa y the foll owing mess age and sh ow all the | |
3033 | "PKG",35,2 2,1,"PAH", 1,1,415,0) | |
3034 | routines t hat were u nloaded co nfirming t hat all th e routines in the bu ild | |
3035 | "PKG",35,2 2,1,"PAH", 1,1,416,0) | |
3036 | have been restored t o the prio r version (unloaded) : | |
3037 | "PKG",35,2 2,1,"PAH", 1,1,417,0) | |
3038 | 'No backup message b uilt. | |
3039 | "PKG",35,2 2,1,"PAH", 1,1,418,0) | |
3040 | ***LIST o f routines from back up. See fu ll routine list at t he end of the | |
3041 | "PKG",35,2 2,1,"PAH", 1,1,419,0) | |
3042 | document** * | |
3043 | "PKG",35,2 2,1,"PAH", 1,1,420,0) | |
3044 | ||
3045 | "PKG",35,2 2,1,"PAH", 1,1,421,0) | |
3046 | Select Pac kMan funct ion: and t hen <Enter >' | |
3047 | "PKG",35,2 2,1,"PAH", 1,1,422,0) | |
3048 | 7. ne xVerify th at all six routines are listed as above have been | |
3049 | "PKG",35,2 2,1,"PAH", 1,1,423,0) | |
3050 | backed out : | |
3051 | "PKG",35,2 2,1,"PAH", 1,1,424,0) | |
3052 | No backup message bu ilt. | |
3053 | "PKG",35,2 2,1,"PAH", 1,1,425,0) | |
3054 | When promp ted 'Want KIDS to IN HIBIT LOGO Ns during the instal l? NO//' | |
3055 | "PKG",35,2 2,1,"PAH", 1,1,426,0) | |
3056 | Press <Ent er>. | |
3057 | "PKG",35,2 2,1,"PAH", 1,1,427,0) | |
3058 | When promp ted 'Want to DISABLE Scheduled Options, Menu Optio ns, and | |
3059 | "PKG",35,2 2,1,"PAH", 1,1,428,0) | |
3060 | Protocols? NO//' | |
3061 | "PKG",35,2 2,1,"PAH", 1,1,429,0) | |
3062 | Press <Ent er>. | |
3063 | "PKG",35,2 2,1,"PAH", 1,1,430,0) | |
3064 | If prompte d 'Delay I nstall (Mi nutes): ( 0 - 60): 0 //' respon d 0. | |
3065 | "PKG",35,2 2,1,"PAH", 1,1,431,0) | |
3066 | ||
3067 | "PKG",35,2 2,1,"PAH", 1,1,432,0) | |
3068 | 8. Th ere are no globals t hat are be ing saved off for th is patch t o | |
3069 | "PKG",35,2 2,1,"PAH", 1,1,433,0) | |
3070 | restore. A ll other o bjects sho uld be man ually back ed out or deleted | |
3071 | "PKG",35,2 2,1,"PAH", 1,1,434,0) | |
3072 | Fileman. | |
3073 | "PKG",35,2 2,1,"PAH", 1,1,435,0) | |
3074 | 9. De leting Fil es: | |
3075 | "PKG",35,2 2,1,"PAH", 1,1,436,0) | |
3076 | The follow ing filema n files sh ould be de leted unde r their re spective | |
3077 | "PKG",35,2 2,1,"PAH", 1,1,437,0) | |
3078 | groups. To delete th e file, op en fileman for the f ile specif ied. Look for | |
3079 | "PKG",35,2 2,1,"PAH", 1,1,438,0) | |
3080 | the name a nd once se lected ent er @ to en ter the de lete optio n. | |
3081 | "PKG",35,2 2,1,"PAH", 1,1,439,0) | |
3082 | ||
3083 | "PKG",35,2 2,1,"PAH", 1,1,440,0) | |
3084 | Example: | |
3085 | "PKG",35,2 2,1,"PAH", 1,1,441,0) | |
3086 | VA FileMan 22.2 | |
3087 | "PKG",35,2 2,1,"PAH", 1,1,442,0) | |
3088 | ||
3089 | "PKG",35,2 2,1,"PAH", 1,1,443,0) | |
3090 | ||
3091 | "PKG",35,2 2,1,"PAH", 1,1,444,0) | |
3092 | Select OPT ION: 1 EN TER OR EDI T FILE ENT RIES | |
3093 | "PKG",35,2 2,1,"PAH", 1,1,445,0) | |
3094 | ||
3095 | "PKG",35,2 2,1,"PAH", 1,1,446,0) | |
3096 | Input to w hat File: PROTOCOL// (4498 en tries) | |
3097 | "PKG",35,2 2,1,"PAH", 1,1,447,0) | |
3098 | EDIT WHICH FIELD: AL L// | |
3099 | "PKG",35,2 2,1,"PAH", 1,1,448,0) | |
3100 | ||
3101 | "PKG",35,2 2,1,"PAH", 1,1,449,0) | |
3102 | ||
3103 | "PKG",35,2 2,1,"PAH", 1,1,450,0) | |
3104 | Select PRO TOCOL NAME : SD SIU T RIGGER SD SIU TRIGGER | |
3105 | "PKG",35,2 2,1,"PAH", 1,1,451,0) | |
3106 | NAME: SD S IU TRIGGER // @ | |
3107 | "PKG",35,2 2,1,"PAH", 1,1,452,0) | |
3108 | SURE YO U WANT TO DELETE THE ENTIRE 'S D SIU TRIG GER' PROTO COL? | |
3109 | "PKG",35,2 2,1,"PAH", 1,1,453,0) | |
3110 | ||
3111 | "PKG",35,2 2,1,"PAH", 1,1,454,0) | |
3112 | ||
3113 | "PKG",35,2 2,1,"PAH", 1,1,455,0) | |
3114 | HLO Applic ations: | |
3115 | "PKG",35,2 2,1,"PAH", 1,1,456,0) | |
3116 | OR-ORM-OUT | |
3117 | "PKG",35,2 2,1,"PAH", 1,1,457,0) | |
3118 | ||
3119 | "PKG",35,2 2,1,"PAH", 1,1,458,0) | |
3120 | HLO Logica l Links: | |
3121 | "PKG",35,2 2,1,"PAH", 1,1,459,0) | |
3122 | OR ORM OUT | |
3123 | "PKG",35,2 2,1,"PAH", 1,1,460,0) | |
3124 | ||
3125 | "PKG",35,2 2,1,"PAH", 1,1,461,0) | |
3126 | Parameters : | |
3127 | "PKG",35,2 2,1,"PAH", 1,1,462,0) | |
3128 | ORMX C&P D EPARTMENT ID | |
3129 | "PKG",35,2 2,1,"PAH", 1,1,463,0) | |
3130 | ORMX CONV THREADS | |
3131 | "PKG",35,2 2,1,"PAH", 1,1,464,0) | |
3132 | ORMX FACIL ITY ID | |
3133 | "PKG",35,2 2,1,"PAH", 1,1,465,0) | |
3134 | ORMX NEAR DEPARTMENT ID | |
3135 | "PKG",35,2 2,1,"PAH", 1,1,466,0) | |
3136 | ORMX RTC O RDERABLE I D | |
3137 | "PKG",35,2 2,1,"PAH", 1,1,467,0) | |
3138 | ORMX SCH D EFAULT FLA G | |
3139 | "PKG",35,2 2,1,"PAH", 1,1,468,0) | |
3140 | ||
3141 | "PKG",35,2 2,1,"PAH", 1,1,469,0) | |
3142 | List Templ ate: | |
3143 | "PKG",35,2 2,1,"PAH", 1,1,470,0) | |
3144 | ORMX CONVE RSION | |
3145 | "PKG",35,2 2,1,"PAH", 1,1,471,0) | |
3146 | ORMX SCHED ULABLE ACT ION | |
3147 | "PKG",35,2 2,1,"PAH", 1,1,472,0) | |
3148 | ||
3149 | "PKG",35,2 2,1,"PAH", 1,1,473,0) | |
3150 | Option | |
3151 | "PKG",35,2 2,1,"PAH", 1,1,474,0) | |
3152 | ORMX UTILI TY | |
3153 | "PKG",35,2 2,1,"PAH", 1,1,475,0) | |
3154 | ||
3155 | "PKG",35,2 2,1,"PAH", 1,1,476,0) | |
3156 | Protocol: | |
3157 | "PKG",35,2 2,1,"PAH", 1,1,477,0) | |
3158 | OR EVSEND DVBA | |
3159 | "PKG",35,2 2,1,"PAH", 1,1,478,0) | |
3160 | ORMX CHANG E DISPLAY GROUP | |
3161 | "PKG",35,2 2,1,"PAH", 1,1,479,0) | |
3162 | ORMX EVSEN D ADD COMM ENT | |
3163 | "PKG",35,2 2,1,"PAH", 1,1,480,0) | |
3164 | ORMX GMRC EVSEND UPD ATE | |
3165 | "PKG",35,2 2,1,"PAH", 1,1,481,0) | |
3166 | ORMX ORM H L7 TRIGGER - ADD COM MENTS | |
3167 | "PKG",35,2 2,1,"PAH", 1,1,482,0) | |
3168 | ORMX ORM H L7 TRIGGER - C&P Com ments | |
3169 | "PKG",35,2 2,1,"PAH", 1,1,483,0) | |
3170 | ORMX ORM H L7 TRIGGER - CONSULT S | |
3171 | "PKG",35,2 2,1,"PAH", 1,1,484,0) | |
3172 | ORMX ORM H L7 TRIGGER - ORDERS | |
3173 | "PKG",35,2 2,1,"PAH", 1,1,485,0) | |
3174 | ORMX RUN C ONV | |
3175 | "PKG",35,2 2,1,"PAH", 1,1,486,0) | |
3176 | ORMX SCHED ULABLE ACT ION | |
3177 | "PKG",35,2 2,1,"PAH", 1,1,487,0) | |
3178 | ORMX SCHED ULABLE ACT ION MENU | |
3179 | "PKG",35,2 2,1,"PAH", 1,1,488,0) | |
3180 | ||
3181 | "PKG",35,2 2,1,"PAH", 1,1,489,0) | |
3182 | ||
3183 | "PKG",35,2 2,1,"PAH", 1,1,490,0) | |
3184 | 10. Mo difying fi les: | |
3185 | "PKG",35,2 2,1,"PAH", 1,1,491,0) | |
3186 | The follow ing files can be upd ated in Fi leman but they are e xisting | |
3187 | "PKG",35,2 2,1,"PAH", 1,1,492,0) | |
3188 | files. The y should n ot be dele ted. Inste ad reverti ng them ba ck will be | |
3189 | "PKG",35,2 2,1,"PAH", 1,1,493,0) | |
3190 | the correc t approach . | |
3191 | "PKG",35,2 2,1,"PAH", 1,1,494,0) | |
3192 | ||
3193 | "PKG",35,2 2,1,"PAH", 1,1,495,0) | |
3194 | Example: | |
3195 | "PKG",35,2 2,1,"PAH", 1,1,496,0) | |
3196 | VA FileMan 22.2 | |
3197 | "PKG",35,2 2,1,"PAH", 1,1,497,0) | |
3198 | ||
3199 | "PKG",35,2 2,1,"PAH", 1,1,498,0) | |
3200 | ||
3201 | "PKG",35,2 2,1,"PAH", 1,1,499,0) | |
3202 | Select OPT ION: 1 EN TER OR EDI T FILE ENT RIES | |
3203 | "PKG",35,2 2,1,"PAH", 1,1,500,0) | |
3204 | ||
3205 | "PKG",35,2 2,1,"PAH", 1,1,501,0) | |
3206 | Input to w hat File: PROTOCOL// (4498 en tries) | |
3207 | "PKG",35,2 2,1,"PAH", 1,1,502,0) | |
3208 | EDIT WHICH FIELD: AL L// item | |
3209 | "PKG",35,2 2,1,"PAH", 1,1,503,0) | |
3210 | 1 I TEM (mu ltiple) | |
3211 | "PKG",35,2 2,1,"PAH", 1,1,504,0) | |
3212 | 2 I TEM TEXT | |
3213 | "PKG",35,2 2,1,"PAH", 1,1,505,0) | |
3214 | CHOOSE 1-2 : 1 ITEM (multiple ) | |
3215 | "PKG",35,2 2,1,"PAH", 1,1,506,0) | |
3216 | EDIT WH ICH ITEM S UB-FIELD: ALL// | |
3217 | "PKG",35,2 2,1,"PAH", 1,1,507,0) | |
3218 | THEN EDIT FIELD: | |
3219 | "PKG",35,2 2,1,"PAH", 1,1,508,0) | |
3220 | ||
3221 | "PKG",35,2 2,1,"PAH", 1,1,509,0) | |
3222 | ||
3223 | "PKG",35,2 2,1,"PAH", 1,1,510,0) | |
3224 | Select PRO TOCOL NAME : SDAM APP OINTMENT E VENTS Appointm ent Event | |
3225 | "PKG",35,2 2,1,"PAH", 1,1,511,0) | |
3226 | Driver | |
3227 | "PKG",35,2 2,1,"PAH", 1,1,512,0) | |
3228 | ||
3229 | "PKG",35,2 2,1,"PAH", 1,1,513,0) | |
3230 | Select ITE M: SD SIU TRIGGER// SD SIU TRI GGER SD SIU TR IGGER | |
3231 | "PKG",35,2 2,1,"PAH", 1,1,514,0) | |
3232 | . ..OK? Yes/ / (Yes) | |
3233 | "PKG",35,2 2,1,"PAH", 1,1,515,0) | |
3234 | ||
3235 | "PKG",35,2 2,1,"PAH", 1,1,516,0) | |
3236 | ITEM: SD SIU TRIGG ER// @ | |
3237 | "PKG",35,2 2,1,"PAH", 1,1,517,0) | |
3238 | SURE YO U WANT TO DELETE THE ENTIRE IT EM? | |
3239 | "PKG",35,2 2,1,"PAH", 1,1,518,0) | |
3240 | ||
3241 | "PKG",35,2 2,1,"PAH", 1,1,519,0) | |
3242 | Protocol: | |
3243 | "PKG",35,2 2,1,"PAH", 1,1,520,0) | |
3244 | OR EVSEND DGPM | |
3245 | "PKG",35,2 2,1,"PAH", 1,1,521,0) | |
3246 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
3247 | "PKG",35,2 2,1,"PAH", 1,1,522,0) | |
3248 | ||
3249 | "PKG",35,2 2,1,"PAH", 1,1,523,0) | |
3250 | OR EVSEND FH | |
3251 | "PKG",35,2 2,1,"PAH", 1,1,524,0) | |
3252 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
3253 | "PKG",35,2 2,1,"PAH", 1,1,525,0) | |
3254 | ||
3255 | "PKG",35,2 2,1,"PAH", 1,1,526,0) | |
3256 | OR EVSEND GMRC | |
3257 | "PKG",35,2 2,1,"PAH", 1,1,527,0) | |
3258 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
3259 | "PKG",35,2 2,1,"PAH", 1,1,528,0) | |
3260 | ||
3261 | "PKG",35,2 2,1,"PAH", 1,1,529,0) | |
3262 | OR EVSEND LRAP | |
3263 | "PKG",35,2 2,1,"PAH", 1,1,530,0) | |
3264 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
3265 | "PKG",35,2 2,1,"PAH", 1,1,531,0) | |
3266 | ||
3267 | "PKG",35,2 2,1,"PAH", 1,1,532,0) | |
3268 | OR EVSEND LRBB | |
3269 | "PKG",35,2 2,1,"PAH", 1,1,533,0) | |
3270 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
3271 | "PKG",35,2 2,1,"PAH", 1,1,534,0) | |
3272 | ||
3273 | "PKG",35,2 2,1,"PAH", 1,1,535,0) | |
3274 | OR EVSEND LRCH | |
3275 | "PKG",35,2 2,1,"PAH", 1,1,536,0) | |
3276 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
3277 | "PKG",35,2 2,1,"PAH", 1,1,537,0) | |
3278 | ||
3279 | "PKG",35,2 2,1,"PAH", 1,1,538,0) | |
3280 | OR EVSEND ORG | |
3281 | "PKG",35,2 2,1,"PAH", 1,1,539,0) | |
3282 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
3283 | "PKG",35,2 2,1,"PAH", 1,1,540,0) | |
3284 | ||
3285 | "PKG",35,2 2,1,"PAH", 1,1,541,0) | |
3286 | OR EVSEND PS | |
3287 | "PKG",35,2 2,1,"PAH", 1,1,542,0) | |
3288 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
3289 | "PKG",35,2 2,1,"PAH", 1,1,543,0) | |
3290 | ||
3291 | "PKG",35,2 2,1,"PAH", 1,1,544,0) | |
3292 | OR EVSEND RA | |
3293 | "PKG",35,2 2,1,"PAH", 1,1,545,0) | |
3294 | 1. Re move ORMX ORM HL7 TR IGGER - OR DERS | |
3295 | "PKG",35,2 2,1,"PAH", 1,1,546,0) | |
3296 | ||
3297 | "PKG",35,2 2,1,"PAH", 1,1,547,0) | |
3298 | ||
3299 | "PKG",35,2 2,1,"PAH", 1,1,548,0) | |
3300 | 11. De leting an item in a file | |
3301 | "PKG",35,2 2,1,"PAH", 1,1,549,0) | |
3302 | Item 11 ca n be remov ed from th e orderabl e Items fi le by goin g into Mod ify | |
3303 | "PKG",35,2 2,1,"PAH", 1,1,550,0) | |
3304 | File Attri butes in F ileman and using the @ to remo ve the ite m. | |
3305 | "PKG",35,2 2,1,"PAH", 1,1,551,0) | |
3306 | Example: | |
3307 | "PKG",35,2 2,1,"PAH", 1,1,552,0) | |
3308 | VA FileMan 22.2 | |
3309 | "PKG",35,2 2,1,"PAH", 1,1,553,0) | |
3310 | ||
3311 | "PKG",35,2 2,1,"PAH", 1,1,554,0) | |
3312 | Select OPT ION: 4 MO DIFY FILE ATTRIBUTES | |
3313 | "PKG",35,2 2,1,"PAH", 1,1,555,0) | |
3314 | Do you wan t to use t he screen- mode versi on? YES// n NO | |
3315 | "PKG",35,2 2,1,"PAH", 1,1,556,0) | |
3316 | ||
3317 | "PKG",35,2 2,1,"PAH", 1,1,557,0) | |
3318 | Modify wha t File: PR OTOCOL// o rderable i tems (1 702 entrie s) | |
3319 | "PKG",35,2 2,1,"PAH", 1,1,558,0) | |
3320 | ||
3321 | "PKG",35,2 2,1,"PAH", 1,1,559,0) | |
3322 | ||
3323 | "PKG",35,2 2,1,"PAH", 1,1,560,0) | |
3324 | Select FIE LD: 11 MA SS SCHEDUL ING ACTION | |
3325 | "PKG",35,2 2,1,"PAH", 1,1,561,0) | |
3326 | LABEL: MAS S SCHEDULI NG ACTION Replace @ | |
3327 | "PKG",35,2 2,1,"PAH", 1,1,562,0) | |
3328 | SURE YO U WANT TO DELETE THE ENTIRE 'M ASS SCHEDU LING ACTIO N' FIELD? | |
3329 | "PKG",35,2 2,1,"PAH", 1,1,563,0) | |
3330 | ||
3331 | "PKG",35,2 2,1,"PAH", 1,1,564,0) | |
3332 | Post-Insta llation In structions : | |
3333 | "PKG",35,2 2,1,"PAH", 1,1,565,0) | |
3334 | ---------- ---------- ---------- - | |
3335 | "PKG",35,2 2,1,"PAH", 1,1,566,0) | |
3336 | ||
3337 | "PKG",35,2 2,1,"PAH", 1,1,567,0) | |
3338 | Check list to Verify : | |
3339 | "PKG",35,2 2,1,"PAH", 1,1,568,0) | |
3340 | ||
3341 | "PKG",35,2 2,1,"PAH", 1,1,569,0) | |
3342 | 1. It em 11 in t he orderab le items f ile. | |
3343 | "PKG",35,2 2,1,"PAH", 1,1,570,0) | |
3344 | 2. HL O Applicat ions | |
3345 | "PKG",35,2 2,1,"PAH", 1,1,571,0) | |
3346 | 3. HL Logical L inks | |
3347 | "PKG",35,2 2,1,"PAH", 1,1,572,0) | |
3348 | 4. Pr otocol | |
3349 | "PKG",35,2 2,1,"PAH", 1,1,573,0) | |
3350 | 5. Pa rameters | |
3351 | "PKG",35,2 2,1,"PAH", 1,1,574,0) | |
3352 | 6. Op tions | |
3353 | "PKG",35,2 2,1,"PAH", 1,1,575,0) | |
3354 | 7. Li st Templat e | |
3355 | "PKG",35,2 2,1,"PAH", 1,1,576,0) | |
3356 | ||
3357 | "PKG",35,2 2,1,"PAH", 1,1,577,0) | |
3358 | ||
3359 | "PKG",35,2 2,1,"PAH", 1,1,578,0) | |
3360 | Routine In formation: | |
3361 | "PKG",35,2 2,1,"PAH", 1,1,579,0) | |
3362 | ========== ========== | |
3363 | "PKG",35,2 2,1,"PAH", 1,1,580,0) | |
3364 | ||
3365 | "PKG",35,2 2,1,"PAH", 1,1,581,0) | |
3366 | ||
3367 | "PKG",35,2 2,1,"PAH", 1,1,582,0) | |
3368 | The second line of e ach of the se routine s now look s like: | |
3369 | "PKG",35,2 2,1,"PAH", 1,1,583,0) | |
3370 | ||
3371 | "PKG",35,2 2,1,"PAH", 1,1,584,0) | |
3372 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**[ Patch List ]**;Dec 17 , 1997;Bui ld | |
3373 | "PKG",35,2 2,1,"PAH", 1,1,585,0) | |
3374 | 62 | |
3375 | "PKG",35,2 2,1,"PAH", 1,1,586,0) | |
3376 | ||
3377 | "PKG",35,2 2,1,"PAH", 1,1,587,0) | |
3378 | The checks ums below are new ch ecksums, a nd | |
3379 | "PKG",35,2 2,1,"PAH", 1,1,588,0) | |
3380 | can be ch ecked with CHECK1^XT SUMBLD. | |
3381 | "PKG",35,2 2,1,"PAH", 1,1,589,0) | |
3382 | ||
3383 | "PKG",35,2 2,1,"PAH", 1,1,590,0) | |
3384 | Routine Na me: ORCACT 1 | |
3385 | "PKG",35,2 2,1,"PAH", 1,1,591,0) | |
3386 | Before : B5001844 2 After: B51038373 **7,27, 56,48,86,9 2,116,149, 215, | |
3387 | "PKG",35,2 2,1,"PAH", 1,1,592,0) | |
3388 | 284,390 ,470** | |
3389 | "PKG",35,2 2,1,"PAH", 1,1,593,0) | |
3390 | Routine Na me: ORMXCO NV | |
3391 | "PKG",35,2 2,1,"PAH", 1,1,594,0) | |
3392 | Before : n/ a After: B23256152 8 **470** | |
3393 | "PKG",35,2 2,1,"PAH", 1,1,595,0) | |
3394 | Routine Na me: ORMXFM T | |
3395 | "PKG",35,2 2,1,"PAH", 1,1,596,0) | |
3396 | Before : n/ a After: B24275265 2 **470** | |
3397 | "PKG",35,2 2,1,"PAH", 1,1,597,0) | |
3398 | Routine Na me: ORMXFM T1 | |
3399 | "PKG",35,2 2,1,"PAH", 1,1,598,0) | |
3400 | Before : n/ a After: B83979073 **470** | |
3401 | "PKG",35,2 2,1,"PAH", 1,1,599,0) | |
3402 | Routine Na me: ORMXTR | |
3403 | "PKG",35,2 2,1,"PAH", 1,1,600,0) | |
3404 | Before : n/ a After: B19000351 3 **470** | |
3405 | "PKG",35,2 2,1,"PAH", 1,1,601,0) | |
3406 | Routine Na me: ORMXUT IL | |
3407 | "PKG",35,2 2,1,"PAH", 1,1,602,0) | |
3408 | Before : n/ a After: B11026599 **470** | |
3409 | "PKG",35,2 2,1,"PAH", 1,1,603,0) | |
3410 | Rotuine Na me: ORMXHL 7 | |
3411 | "PKG",35,2 2,1,"PAH", 1,1,604,0) | |
3412 | Before : n/ a After: B59928339 **470** | |
3413 | "PKG",35,2 2,1,"PAH", 1,1,605,0) | |
3414 | ||
3415 | "PKG",35,2 2,1,"PAH", 1,1,606,0) | |
3416 | Routine li st of prec eding patc hes: 390 | |
3417 | "PKG",35,2 2,1,"PAH", 1,1,607,0) | |
3418 | ||
3419 | "PKG",35,2 2,1,"PAH", 1,1,608,0) | |
3420 | ||
3421 | "PKG",35,2 2,1,"PAH", 1,1,609,0) | |
3422 | ========== ========== ========== ========== ========== ========== ========== ==== | |
3423 | "PKG",35,2 2,1,"PAH", 1,1,610,0) | |
3424 | User Infor mation: | |
3425 | "PKG",35,2 2,1,"PAH", 1,1,611,0) | |
3426 | Entered By : NE EDHAM,MALC OLM D ate Entere d : OCT 3,2017 | |
3427 | "PKG",35,2 2,1,"PAH", 1,1,612,0) | |
3428 | Complete d By: D ate Comple ted: | |
3429 | "PKG",35,2 2,1,"PAH", 1,1,613,0) | |
3430 | Released By : D ate Releas ed : | |
3431 | "PKG",35,2 2,1,"PAH", 1,1,614,0) | |
3432 | ========== ========== ========== ========== ========== ========== ========== === | |
3433 | "QUES","XP F1",0) | |
3434 | Y | |
3435 | "QUES","XP F1","??") | |
3436 | ^D REP^XPD H | |
3437 | "QUES","XP F1","A") | |
3438 | Shall I wr ite over y our |FLAG| File | |
3439 | "QUES","XP F1","B") | |
3440 | YES | |
3441 | "QUES","XP F1","M") | |
3442 | D XPF1^XPD IQ | |
3443 | "QUES","XP F2",0) | |
3444 | Y | |
3445 | "QUES","XP F2","??") | |
3446 | ^D DTA^XPD H | |
3447 | "QUES","XP F2","A") | |
3448 | Want my da ta |FLAG| yours | |
3449 | "QUES","XP F2","B") | |
3450 | YES | |
3451 | "QUES","XP F2","M") | |
3452 | D XPF2^XPD IQ | |
3453 | "QUES","XP I1",0) | |
3454 | YO | |
3455 | "QUES","XP I1","??") | |
3456 | ^D INHIBIT ^XPDH | |
3457 | "QUES","XP I1","A") | |
3458 | Want KIDS to INHIBIT LOGONs du ring the i nstall | |
3459 | "QUES","XP I1","B") | |
3460 | NO | |
3461 | "QUES","XP I1","M") | |
3462 | D XPI1^XPD IQ | |
3463 | "QUES","XP M1",0) | |
3464 | PO^VA(200, :EM | |
3465 | "QUES","XP M1","??") | |
3466 | ^D MG^XPDH | |
3467 | "QUES","XP M1","A") | |
3468 | Enter the Coordinato r for Mail Group '|F LAG|' | |
3469 | "QUES","XP M1","B") | |
3470 | ||
3471 | "QUES","XP M1","M") | |
3472 | D XPM1^XPD IQ | |
3473 | "QUES","XP O1",0) | |
3474 | Y | |
3475 | "QUES","XP O1","??") | |
3476 | ^D MENU^XP DH | |
3477 | "QUES","XP O1","A") | |
3478 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install | |
3479 | "QUES","XP O1","B") | |
3480 | NO | |
3481 | "QUES","XP O1","M") | |
3482 | D XPO1^XPD IQ | |
3483 | "QUES","XP Z1",0) | |
3484 | Y | |
3485 | "QUES","XP Z1","??") | |
3486 | ^D OPT^XPD H | |
3487 | "QUES","XP Z1","A") | |
3488 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls | |
3489 | "QUES","XP Z1","B") | |
3490 | NO | |
3491 | "QUES","XP Z1","M") | |
3492 | D XPZ1^XPD IQ | |
3493 | "QUES","XP Z2",0) | |
3494 | Y | |
3495 | "QUES","XP Z2","??") | |
3496 | ^D RTN^XPD H | |
3497 | "QUES","XP Z2","A") | |
3498 | Want to MO VE routine s to other CPUs | |
3499 | "QUES","XP Z2","B") | |
3500 | NO | |
3501 | "QUES","XP Z2","M") | |
3502 | D XPZ2^XPD IQ | |
3503 | "RTN") | |
3504 | 7 | |
3505 | "RTN","ORC ACT1") | |
3506 | 0^6^B51038 373 | |
3507 | "RTN","ORC ACT1",1,0) | |
3508 | ORCACT1 ;S LC/MKB,ASM R/BL-Act o n orders c ont ; 10/1 6/15 1:36p m | |
3509 | "RTN","ORC ACT1",2,0) | |
3510 | ;;3.0;ORD ER ENTRY/R ESULTS REP ORTING;**7 ,27,56,48, 86,92,116, 149,215,28 4,390,470* *;Dec 17, 1997;Build 76 | |
3511 | "RTN","ORC ACT1",3,0) | |
3512 | ;Per VA D irective 6 402, this routine sh ould not b e modified . | |
3513 | "RTN","ORC ACT1",4,0) | |
3514 | ; | |
3515 | "RTN","ORC ACT1",5,0) | |
3516 | FLAG ; -- flag order s | |
3517 | "RTN","ORC ACT1",6,0) | |
3518 | D EN("FL" ) Q | |
3519 | "RTN","ORC ACT1",7,0) | |
3520 | ; | |
3521 | "RTN","ORC ACT1",8,0) | |
3522 | UNFLAG ; - - unflag o rders | |
3523 | "RTN","ORC ACT1",9,0) | |
3524 | D EN("UF" ) Q | |
3525 | "RTN","ORC ACT1",10,0 ) | |
3526 | ; | |
3527 | "RTN","ORC ACT1",11,0 ) | |
3528 | COMMENT ; -- add war d comments to orders | |
3529 | "RTN","ORC ACT1",12,0 ) | |
3530 | D EN("CM" ) Q | |
3531 | "RTN","ORC ACT1",13,0 ) | |
3532 | ; | |
3533 | "RTN","ORC ACT1",14,0 ) | |
3534 | ALERT ; -- alert pro vider when results a vailable | |
3535 | "RTN","ORC ACT1",15,0 ) | |
3536 | D EN("AL" ) Q | |
3537 | "RTN","ORC ACT1",16,0 ) | |
3538 | ; | |
3539 | "RTN","ORC ACT1",17,0 ) | |
3540 | UNHOLD ; - - release hold on or ders - no longer in use | |
3541 | "RTN","ORC ACT1",18,0 ) | |
3542 | Q ; see UNHOLD^ORC ACT instea d | |
3543 | "RTN","ORC ACT1",19,0 ) | |
3544 | ; | |
3545 | "RTN","ORC ACT1",20,0 ) | |
3546 | EN(ORACT) ; -- Actio ns that do n't create orders | |
3547 | "RTN","ORC ACT1",21,0 ) | |
3548 | ; ORNM BR = #,#,. ..,# of se lected ord ers | |
3549 | "RTN","ORC ACT1",22,0 ) | |
3550 | ; ORAC T = actio n to be ta ken | |
3551 | "RTN","ORC ACT1",23,0 ) | |
3552 | ; | |
3553 | "RTN","ORC ACT1",24,0 ) | |
3554 | ; OREB UILD defin ed on retu rn if Orde rs tab nee ds to be r ebuilt | |
3555 | "RTN","ORC ACT1",25,0 ) | |
3556 | ; | |
3557 | "RTN","ORC ACT1",26,0 ) | |
3558 | N ORLK,OR I,NMBR,IDX ,ORIFN,ORD ITM,ORERR, ORQUIT | |
3559 | "RTN","ORC ACT1",27,0 ) | |
3560 | I '$G(ORN MBR) S ORN MBR=$$ORDE RS^ORCHART ("") Q:'OR NMBR | |
3561 | "RTN","ORC ACT1",28,0 ) | |
3562 | D FREEZE^ ORCMENU S VALMBCK="R " K OREBUI LD | |
3563 | "RTN","ORC ACT1",29,0 ) | |
3564 | F ORI=1:1 :$L(ORNMBR ,",") S NM BR=$P(ORNM BR,",",ORI ) D:NMBR Q:$D(ORQUI T) | |
3565 | "RTN","ORC ACT1",30,0 ) | |
3566 | . S IDX=$ G(^TMP("OR ",$J,ORTAB ,"IDX",NMB R)),ORIFN= $P(IDX,U) | |
3567 | "RTN","ORC ACT1",31,0 ) | |
3568 | . Q:'ORIF N S:'$P(O RIFN,";",2 ) ORIFN=+O RIFN_";1" | |
3569 | "RTN","ORC ACT1",32,0 ) | |
3570 | . I '$D(^ OR(100,+OR IFN,0)) W !,"This or der has be en deleted !" H 1 Q | |
3571 | "RTN","ORC ACT1",33,0 ) | |
3572 | . S ORDIT M=$$ORDITE M^ORCACT(O RIFN) D SU BHDR^ORCAC T(ORDITM) | |
3573 | "RTN","ORC ACT1",34,0 ) | |
3574 | . I '$$VA LID^ORCACT 0(ORIFN,OR ACT,.ORERR ) W !,ORER R H 1 Q | |
3575 | "RTN","ORC ACT1",35,0 ) | |
3576 | . S ORLK= $$LOCK1^OR X2(+ORIFN) I 'ORLK W !,$P(ORLK ,U,2) H 1 Q | |
3577 | "RTN","ORC ACT1",36,0 ) | |
3578 | . D @ORAC T,UNLK1^OR X2(+ORIFN) | |
3579 | "RTN","ORC ACT1",37,0 ) | |
3580 | ENQ Q | |
3581 | "RTN","ORC ACT1",38,0 ) | |
3582 | ; | |
3583 | "RTN","ORC ACT1",39,0 ) | |
3584 | FL ; -- Fl ag order O RIFN | |
3585 | "RTN","ORC ACT1",40,0 ) | |
3586 | D EN^ORCF LAG | |
3587 | "RTN","ORC ACT1",41,0 ) | |
3588 | Q | |
3589 | "RTN","ORC ACT1",42,0 ) | |
3590 | ; | |
3591 | "RTN","ORC ACT1",43,0 ) | |
3592 | UF ; -- Un flag order ORIFN | |
3593 | "RTN","ORC ACT1",44,0 ) | |
3594 | D UN^ORCF LAG | |
3595 | "RTN","ORC ACT1",45,0 ) | |
3596 | Q | |
3597 | "RTN","ORC ACT1",46,0 ) | |
3598 | ; | |
3599 | "RTN","ORC ACT1",47,0 ) | |
3600 | CM ; -- Wa rd Comment s on order ORIFN | |
3601 | "RTN","ORC ACT1",48,0 ) | |
3602 | N DIC,DWP K,DIWEPSE, DIWESUB,DD WRW | |
3603 | "RTN","ORC ACT1",49,0 ) | |
3604 | S DIC="^O R(100,"_+O RIFN_",8," _+$P(ORIFN ,";",2)_", 5,",(DWPK, DIWEPSE)=1 | |
3605 | "RTN","ORC ACT1",50,0 ) | |
3606 | S DIWESUB =ORDITM,DD WRW="B" ;g o to botto m of text | |
3607 | "RTN","ORC ACT1",51,0 ) | |
3608 | D EN^DIWE | |
3609 | "RTN","ORC ACT1",52,0 ) | |
3610 | S X=+$O(^ ORD(101,"B ","ORMX EV SEND ADD C OMMENT",0) )_";ORD(10 1," ; 470 | |
3611 | "RTN","ORC ACT1",53,0 ) | |
3612 | D EN^XQOR | |
3613 | "RTN","ORC ACT1",54,0 ) | |
3614 | Q | |
3615 | "RTN","ORC ACT1",55,0 ) | |
3616 | ; | |
3617 | "RTN","ORC ACT1",56,0 ) | |
3618 | AL ; -- Al ert when r esults are available for order ORIFN | |
3619 | "RTN","ORC ACT1",57,0 ) | |
3620 | S $P(^OR( 100,+ORIFN ,3),U,10)= 1 | |
3621 | "RTN","ORC ACT1",58,0 ) | |
3622 | W !?10,". .. done." H 1 | |
3623 | "RTN","ORC ACT1",59,0 ) | |
3624 | Q | |
3625 | "RTN","ORC ACT1",60,0 ) | |
3626 | ; | |
3627 | "RTN","ORC ACT1",61,0 ) | |
3628 | RL ; -- Re lease hold on order ORIFN [No longer use d] | |
3629 | "RTN","ORC ACT1",62,0 ) | |
3630 | D EN^ORCS END(+ORIFN ,ORACT,3,1 ,,,.ORERR) | |
3631 | "RTN","ORC ACT1",63,0 ) | |
3632 | W !,"... order "_$S ($G(ORERR) :"not ",1: "")_"relea sed from h old." | |
3633 | "RTN","ORC ACT1",64,0 ) | |
3634 | W:$L($P($ G(ORERR),U ,2)) !," >> "_$P(OR ERR,U,2) H 1 | |
3635 | "RTN","ORC ACT1",65,0 ) | |
3636 | S OREBUIL D=1 ; prin t? | |
3637 | "RTN","ORC ACT1",66,0 ) | |
3638 | Q | |
3639 | "RTN","ORC ACT1",67,0 ) | |
3640 | ; | |
3641 | "RTN","ORC ACT1",68,0 ) | |
3642 | VERIFY(ORV ER) ; -- V erify orde rs | |
3643 | "RTN","ORC ACT1",69,0 ) | |
3644 | N ORLK,OR I,NMBR,IDX ,ORIFN,ORD ITM,ORES,O RERR,ORSIG ,OROLDSTS, ORNEW,ORWA IT | |
3645 | "RTN","ORC ACT1",70,0 ) | |
3646 | I "^"[$G( ORVER) W $ C(7),!!,"Y ou must be a nurse o r clerk to verify th ese orders !" S VALMB CK="" H 2 Q | |
3647 | "RTN","ORC ACT1",71,0 ) | |
3648 | I '$G(ORN MBR) S ORN MBR=$$ORDE RS^ORCHART ("") Q:'OR NMBR | |
3649 | "RTN","ORC ACT1",72,0 ) | |
3650 | D FREEZE^ ORCMENU S VALMBCK="R " K OREBUI LD | |
3651 | "RTN","ORC ACT1",73,0 ) | |
3652 | F ORI=1:1 :$L(ORNMBR ,",") S NM BR=$P(ORNM BR,",",ORI ) D:NMBR Q:$D(ORQUI T) | |
3653 | "RTN","ORC ACT1",74,0 ) | |
3654 | . S IDX=$ G(^TMP("OR ",$J,ORTAB ,"IDX",NMB R)),ORIFN= $P(IDX,U) | |
3655 | "RTN","ORC ACT1",75,0 ) | |
3656 | . Q:'ORIF N S:'$P(O RIFN,";",2 ) ORIFN=+O RIFN_";1" Q:$D(ORES( ORIFN)) | |
3657 | "RTN","ORC ACT1",76,0 ) | |
3658 | . I '$$VA LID^ORCACT 0(ORIFN,"V R",.ORERR) W !!,$$OR DITEM^ORCA CT(ORIFN)_ " invalid. ",!," >> "_ORERR H 1 Q | |
3659 | "RTN","ORC ACT1",77,0 ) | |
3660 | . S ORLK= $$LOCK1^OR X2(+ORIFN) I 'ORLK W !!,$$ORDI TEM^ORCACT (ORIFN)_" invalid.", !," >> "_ $P(ORLK,U, 2) H 1 Q | |
3661 | "RTN","ORC ACT1",78,0 ) | |
3662 | . S ORES( ORIFN)="" D REPLCD | |
3663 | "RTN","ORC ACT1",79,0 ) | |
3664 | VR1 Q:'$O( ORES(0)) D COMPLX S ORSIG=$S( $$ESIG^ORC SIGN:1,1:0 ) | |
3665 | "RTN","ORC ACT1",80,0 ) | |
3666 | I 'ORSIG W !,"Nothi ng verifie d!" D UNLO CK H 1 Q | |
3667 | "RTN","ORC ACT1",81,0 ) | |
3668 | W !!,"Ver ifying ord ers ..." | |
3669 | "RTN","ORC ACT1",82,0 ) | |
3670 | S ORIFN=0 F S ORIF N=$O(ORES( ORIFN)) Q: ORIFN'>0 D | |
3671 | "RTN","ORC ACT1",83,0 ) | |
3672 | . S OROLD STS=+$P($G (^OR(100,+ ORIFN,3)), U,3) | |
3673 | "RTN","ORC ACT1",84,0 ) | |
3674 | . D EN^OR CSEND(ORIF N,"VR","", "",,,.ORER R),UNLK1^O RX2(+ORIFN ) | |
3675 | "RTN","ORC ACT1",85,0 ) | |
3676 | . I $G(OR ERR) D Q | |
3677 | "RTN","ORC ACT1",86,0 ) | |
3678 | . . W !,$ $ORDITEM^O RCACT(ORIF N)_" not v erified." | |
3679 | "RTN","ORC ACT1",87,0 ) | |
3680 | . . W:$L( $P($G(ORER R),U,2)) ! ," >> "_$ P(ORERR,U, 2) H 1 | |
3681 | "RTN","ORC ACT1",88,0 ) | |
3682 | . S ORNEW =+$P($G(^O R(100,+ORI FN,3)),U,3 ) I ORNEW' =OROLDSTS W !,$$ORDI TEM^ORCACT (ORIFN)_" is now "_$ $STS(ORNEW )_"." S OR WAIT=1 | |
3683 | "RTN","ORC ACT1",89,0 ) | |
3684 | S OREBUIL D=1 D:'$D( XQAID) CKA LERT I $G( ORWAIT) H 2 | |
3685 | "RTN","ORC ACT1",90,0 ) | |
3686 | VRQ Q | |
3687 | "RTN","ORC ACT1",91,0 ) | |
3688 | ; | |
3689 | "RTN","ORC ACT1",92,0 ) | |
3690 | STS(X) ; - - Return n ame of sta tus X | |
3691 | "RTN","ORC ACT1",93,0 ) | |
3692 | N Y S Y=$ P($G(^ORD( 100.01,+$G (X),0)),U) | |
3693 | "RTN","ORC ACT1",94,0 ) | |
3694 | Q Y | |
3695 | "RTN","ORC ACT1",95,0 ) | |
3696 | ; | |
3697 | "RTN","ORC ACT1",96,0 ) | |
3698 | REPLCD ; - - Ck for u nverified replaced o rders for ORIFN, add to ORES(o rder#) | |
3699 | "RTN","ORC ACT1",97,0 ) | |
3700 | ; [Exp ects ORVER ; also cal led from V ERIFY^ORWD XA,VERIFY^ ORRCOR] | |
3701 | "RTN","ORC ACT1",98,0 ) | |
3702 | N OR3,ORI G,ORFLD,OR DA,ORI,ORL K | |
3703 | "RTN","ORC ACT1",99,0 ) | |
3704 | S ORFLD=$ S($G(ORVER )="N":8,$G (ORVER)="R ":18,1:10) ,ORDA=+$P( ORIFN,";", 2) | |
3705 | "RTN","ORC ACT1",100, 0) | |
3706 | I ORDA>1 D Q ;ck for prior unverified actions | |
3707 | "RTN","ORC ACT1",101, 0) | |
3708 | . ;Q:$P($ G(^OR(100, +ORIFN,8,O RDA,0)),U, 2)'="XX" | |
3709 | "RTN","ORC ACT1",102, 0) | |
3710 | . S ORI=0 F S ORI= $O(^OR(100 ,+ORIFN,8, ORI)) Q:OR I<1 Q:ORI '<ORDA D | |
3711 | "RTN","ORC ACT1",103, 0) | |
3712 | .. Q:$P($ G(^OR(100, +ORIFN,8,O RI,0)),U,O RFLD) ;al ready veri fied | |
3713 | "RTN","ORC ACT1",104, 0) | |
3714 | .. S ORLK =$$LOCK1^O RX2(+ORIFN ) Q:'ORLK | |
3715 | "RTN","ORC ACT1",105, 0) | |
3716 | .. S ORES (+ORIFN_"; "_ORI)="" | |
3717 | "RTN","ORC ACT1",106, 0) | |
3718 | S OR3=$G( ^OR(100,+O RIFN,3)) Q :$P(OR3,U, 11)'=1 | |
3719 | "RTN","ORC ACT1",107, 0) | |
3720 | S ORIG=+$ P(OR3,U,5) Q:'ORIG Q:$P($G(^O R(100,ORIG ,3)),U,3)' =12 | |
3721 | "RTN","ORC ACT1",108, 0) | |
3722 | S ORDA=0 F S ORDA= $O(^OR(100 ,ORIG,8,OR DA)) Q:ORD A'>0 I '$ P($G(^(ORD A,0)),U,OR FLD) D | |
3723 | "RTN","ORC ACT1",109, 0) | |
3724 | . S ORLK= $$LOCK1^OR X2(ORIG) Q :'ORLK | |
3725 | "RTN","ORC ACT1",110, 0) | |
3726 | . S ORES( ORIG_";"_O RDA)="" | |
3727 | "RTN","ORC ACT1",111, 0) | |
3728 | Q | |
3729 | "RTN","ORC ACT1",112, 0) | |
3730 | ; | |
3731 | "RTN","ORC ACT1",113, 0) | |
3732 | COMPLX ; - - Ck for o ther child orders to be verifi ed at same time | |
3733 | "RTN","ORC ACT1",114, 0) | |
3734 | N IFN,DAD ,CHLD,ALL, P,X,I | |
3735 | "RTN","ORC ACT1",115, 0) | |
3736 | S P=$S(OR VER="N":9, ORVER="C": 11,ORVER=" R":19,1:0) Q:P<1 | |
3737 | "RTN","ORC ACT1",116, 0) | |
3738 | S IFN=0 F S IFN=$O (ORES(IFN) ) Q:IFN<1 D | |
3739 | "RTN","ORC ACT1",117, 0) | |
3740 | . S X=+$P ($G(^OR(10 0,+IFN,0)) ,U,14) Q:$ $NMSP^ORCD (X)'["PS" | |
3741 | "RTN","ORC ACT1",118, 0) | |
3742 | . S X=$P( $G(^OR(100 ,+IFN,8,+$ P(IFN,";", 2),0)),U,2 ) Q:X'="NW "&(X'="XX" ) | |
3743 | "RTN","ORC ACT1",119, 0) | |
3744 | . I $P($G (^OR(100,+ IFN,3)),U, 9) S DAD(+ $P(^(3),U, 9))="" | |
3745 | "RTN","ORC ACT1",120, 0) | |
3746 | Q:'$O(DAD (0)) S IF N=0 F S I FN=+$O(DAD (IFN)) Q:I FN<1 D | |
3747 | "RTN","ORC ACT1",121, 0) | |
3748 | . S CHLD= 0,ALL=1 | |
3749 | "RTN","ORC ACT1",122, 0) | |
3750 | . F S CH LD=+$O(^OR (100,IFN,2 ,CHLD)) Q: CHLD<1 F X="NW","XX " D | |
3751 | "RTN","ORC ACT1",123, 0) | |
3752 | .. S I=+$ O(^OR(100, CHLD,8,"C" ,X,0)) Q:I <1 | |
3753 | "RTN","ORC ACT1",124, 0) | |
3754 | .. Q:$P($ G(^OR(100, CHLD,8,I,0 )),U,P) Q :$D(ORES(C HLD_";"_I) ) | |
3755 | "RTN","ORC ACT1",125, 0) | |
3756 | .. S ORES (CHLD_";"_ I)="",ALL= 0 | |
3757 | "RTN","ORC ACT1",126, 0) | |
3758 | . Q:ALL S X=$$ORDI TEM^ORCACT (IFN) D SU BHDR^ORCAC T(X) | |
3759 | "RTN","ORC ACT1",127, 0) | |
3760 | . W !,"Al l doses of this comp lex order must be ve rified tog ether;" | |
3761 | "RTN","ORC ACT1",128, 0) | |
3762 | . W !,"ad ding remai ning doses to signat ure list.. ." | |
3763 | "RTN","ORC ACT1",129, 0) | |
3764 | Q | |
3765 | "RTN","ORC ACT1",130, 0) | |
3766 | ; | |
3767 | "RTN","ORC ACT1",131, 0) | |
3768 | CKALERT ; -- Ck if U nverified Orders ale rts can be deleted | |
3769 | "RTN","ORC ACT1",132, 0) | |
3770 | N ORNOW,O RBEG,ORLIS T,ORALL,OR MEDS S ORN OW=$$NOW^X LFDT | |
3771 | "RTN","ORC ACT1",133, 0) | |
3772 | S:'$G(ORW ARD) ORBEG =$$FMADD^X LFDT(ORNOW ,"-30") I $G(ORWARD) D | |
3773 | "RTN","ORC ACT1",134, 0) | |
3774 | . N DFN,V AIN,VAERR S DFN=+ORV P D INP^VA DPT | |
3775 | "RTN","ORC ACT1",135, 0) | |
3776 | . S ORBEG =$S($G(VAI N(7)):$P(V AIN(7),U), 1:$$FMADD^ XLFDT(ORNO W,-30)) | |
3777 | "RTN","ORC ACT1",136, 0) | |
3778 | D EN^ORQ1 (ORVP,,9,, ORBEG,ORNO W) ;see if any unver ified orde rs remain | |
3779 | "RTN","ORC ACT1",137, 0) | |
3780 | I $G(ORLI ST),$G(^TM P("ORR",$J ,ORLIST,"T OT")) D ; see if any are meds | |
3781 | "RTN","ORC ACT1",138, 0) | |
3782 | . N ORRX, ORGRP,I,IF N,DG S ORA LL=1 | |
3783 | "RTN","ORC ACT1",139, 0) | |
3784 | . S ORRX= +$O(^ORD(1 00.98,"B", "RX",0)) D GRP^ORQ1( ORRX) | |
3785 | "RTN","ORC ACT1",140, 0) | |
3786 | . S I=0 F S I=$O(^ TMP("ORR", $J,ORLIST, I)) Q:I'>0 S IFN=+^ (I),DG=+$P ($G(^OR(10 0,IFN,0)), U,11) I $D (ORGRP(DG) ) S ORMEDS =1 Q | |
3787 | "RTN","ORC ACT1",141, 0) | |
3788 | D:'$G(ORA LL) DELALR T("UNVERIF IED ORDER" ) | |
3789 | "RTN","ORC ACT1",142, 0) | |
3790 | D:'$G(ORM EDS) DELAL RT("UNVERI FIED MEDIC ATION ORDE R") | |
3791 | "RTN","ORC ACT1",143, 0) | |
3792 | Q | |
3793 | "RTN","ORC ACT1",144, 0) | |
3794 | ; | |
3795 | "RTN","ORC ACT1",145, 0) | |
3796 | DELALRT(X) ; -- dele te alert X | |
3797 | "RTN","ORC ACT1",146, 0) | |
3798 | N ORNIFN, XQAKILL,XQ AID | |
3799 | "RTN","ORC ACT1",147, 0) | |
3800 | S ORNIFN= +$O(^ORD(1 00.9,"B",X ,0)) Q:ORN IFN'>0 | |
3801 | "RTN","ORC ACT1",148, 0) | |
3802 | S XQAKILL =$$XQAKILL ^ORB3F1(OR NIFN) | |
3803 | "RTN","ORC ACT1",149, 0) | |
3804 | S XQAID=$ P($G(^ORD( 100.9,ORNI FN,0)),U,2 )_","_+ORV P_","_ORNI FN | |
3805 | "RTN","ORC ACT1",150, 0) | |
3806 | D DELETEA ^XQALERT | |
3807 | "RTN","ORC ACT1",151, 0) | |
3808 | Q | |
3809 | "RTN","ORC ACT1",152, 0) | |
3810 | ; | |
3811 | "RTN","ORC ACT1",153, 0) | |
3812 | UNLOCK ; - - Unlock o rders in O RES(ORIFN) [from VR1 ] | |
3813 | "RTN","ORC ACT1",154, 0) | |
3814 | F S ORIF N=$O(ORES( ORIFN)) Q: ORIFN'>0 D UNLK1^OR X2(+ORIFN) | |
3815 | "RTN","ORC ACT1",155, 0) | |
3816 | Q | |
3817 | "RTN","ORC ACT1",156, 0) | |
3818 | ; | |
3819 | "RTN","ORC ACT1",157, 0) | |
3820 | SIGNREQD(I FN) ; -- R eturns 2, 1, or 0, i f order/ac tions need ES | |
3821 | "RTN","ORC ACT1",158, 0) | |
3822 | Q +$P($G( ^OR(100,IF N,0)),U,16 ) | |
3823 | "RTN","ORC ACT1",159, 0) | |
3824 | ; | |
3825 | "RTN","ORC ACT1",160, 0) | |
3826 | SIGN ; -- Sign order s [no long er used] | |
3827 | "RTN","ORC ACT1",161, 0) | |
3828 | D EN^ORCS IGN | |
3829 | "RTN","ORC ACT1",162, 0) | |
3830 | Q | |
3831 | "RTN","ORC ACT1",163, 0) | |
3832 | ; | |
3833 | "RTN","ORC ACT1",164, 0) | |
3834 | COMPLETE ; -- comple te orders | |
3835 | "RTN","ORC ACT1",165, 0) | |
3836 | N ORLK,OR I,NMBR,IDX ,ORIFN,ORD ITM,ORES,O RERR,ORSIG ,ORSTOP | |
3837 | "RTN","ORC ACT1",166, 0) | |
3838 | I '$G(ORN MBR) S ORN MBR=$$ORDE RS^ORCHART ("complete ") Q:'ORNM BR | |
3839 | "RTN","ORC ACT1",167, 0) | |
3840 | D FREEZE^ ORCMENU S VALMBCK="R " K OREBUI LD | |
3841 | "RTN","ORC ACT1",168, 0) | |
3842 | F ORI=1:1 :$L(ORNMBR ) S NMBR=$ P(ORNMBR," ,",ORI) D: NMBR Q:$D (ORQUIT) | |
3843 | "RTN","ORC ACT1",169, 0) | |
3844 | . S IDX=$ G(^TMP("OR ",$J,ORTAB ,"IDX",NMB R)),ORIFN= $P(IDX,U) | |
3845 | "RTN","ORC ACT1",170, 0) | |
3846 | . Q:'ORIF N S:'$P(O RIFN,";",2 ) ORIFN=+O RIFN_";1" | |
3847 | "RTN","ORC ACT1",171, 0) | |
3848 | . I '$$VA LID^ORCACT 0(ORIFN,"C P",.ORERR) W !!,$$OR DITEM^ORCA CT(ORIFN)_ " invalid. ",!," >> "_ORERR H 1 Q | |
3849 | "RTN","ORC ACT1",172, 0) | |
3850 | . S ORLK= $$LOCK1^OR X2(+ORIFN) I 'ORLK W !!,$$ORDI TEM^ORCACT (ORIFN)_" invalid.", !," >> "_ $P(ORLK,U, 2) H 1 Q | |
3851 | "RTN","ORC ACT1",173, 0) | |
3852 | . S ORES( ORIFN)="" | |
3853 | "RTN","ORC ACT1",174, 0) | |
3854 | CP1 Q:'$O( ORES(0)) S ORSIG=$S ($$ESIG^OR CSIGN:1,1: 0) | |
3855 | "RTN","ORC ACT1",175, 0) | |
3856 | I 'ORSIG W !,"Nothi ng complet ed!" D UNL OCK H 1 Q | |
3857 | "RTN","ORC ACT1",176, 0) | |
3858 | W !!,"Com pleting or ders ..." S ORSTOP=+ $E($$NOW^X LFDT,1,12) ,ORIFN=0 | |
3859 | "RTN","ORC ACT1",177, 0) | |
3860 | F S ORIF N=$O(ORES( ORIFN)) Q: ORIFN'>0 D | |
3861 | "RTN","ORC ACT1",178, 0) | |
3862 | . D COMP^ ORCSAVE2(O RIFN,DUZ,O RSTOP),UNL K1^ORX2(+O RIFN) | |
3863 | "RTN","ORC ACT1",179, 0) | |
3864 | . D COMP^ ORMBLDOR(O RIFN) | |
3865 | "RTN","ORC ACT1",180, 0) | |
3866 | S OREBUIL D=1 | |
3867 | "RTN","ORC ACT1",181, 0) | |
3868 | CPQ Q | |
3869 | "RTN","ORC ACT1",182, 0) | |
3870 | ; | |
3871 | "RTN","ORM XCONV") | |
3872 | 0^3^B23256 1528 | |
3873 | "RTN","ORM XCONV",1,0 ) | |
3874 | ORMXCONV ; MASS/AWS - ORDER CON VERSION;10 /10/17 ;20 18-05-11 0 7:56:32;8. 3;gk52nUkn 6F/oFbXFr5 BPf7NXt1gu BzZpiksyAF a5aaU= | |
3875 | "RTN","ORM XCONV",2,0 ) | |
3876 | ;;3.0;Ord er Entry/R esults Rep orting;**4 70**;OCTOB ER 10,2017 ;Build 76 | |
3877 | "RTN","ORM XCONV",3,0 ) | |
3878 | ;;Per VA DIRECTIVE 6402, this routine s hould not be modifie d. | |
3879 | "RTN","ORM XCONV",4,0 ) | |
3880 | ; | |
3881 | "RTN","ORM XCONV",5,0 ) | |
3882 | ; ICR# S upported R eferences | |
3883 | "RTN","ORM XCONV",6,0 ) | |
3884 | ; 10013 ^DIK | |
3885 | "RTN","ORM XCONV",7,0 ) | |
3886 | ; 10026 ^DIR | |
3887 | "RTN","ORM XCONV",8,0 ) | |
3888 | ; ##### $$INSTRING ^SDMXCORE | |
3889 | "RTN","ORM XCONV",9,0 ) | |
3890 | ; ##### ERRLOG^SDM XERRO | |
3891 | "RTN","ORM XCONV",10, 0) | |
3892 | ; 10118 EN^VALM | |
3893 | "RTN","ORM XCONV",11, 0) | |
3894 | ; 10117 SET^VALM10 | |
3895 | "RTN","ORM XCONV",12, 0) | |
3896 | ; 2263 $$GET^XPAR | |
3897 | "RTN","ORM XCONV",13, 0) | |
3898 | ; 10102 DISP^XQORM 1 | |
3899 | "RTN","ORM XCONV",14, 0) | |
3900 | ; 10035 ^DPT | |
3901 | "RTN","ORM XCONV",15, 0) | |
3902 | ; ### ^OR | |
3903 | "RTN","ORM XCONV",16, 0) | |
3904 | ; ### ^DVB | |
3905 | "RTN","ORM XCONV",17, 0) | |
3906 | ; ### ^DGEN | |
3907 | "RTN","ORM XCONV",18, 0) | |
3908 | ; ### ^GMR | |
3909 | "RTN","ORM XCONV",19, 0) | |
3910 | ; 266 ^SD | |
3911 | "RTN","ORM XCONV",20, 0) | |
3912 | ; | |
3913 | "RTN","ORM XCONV",21, 0) | |
3914 | EN ; Main entry poin t for ORMX Conversio n Utility | |
3915 | "RTN","ORM XCONV",22, 0) | |
3916 | D EN^VALM ("ORMX CON VERSION") | |
3917 | "RTN","ORM XCONV",23, 0) | |
3918 | Q | |
3919 | "RTN","ORM XCONV",24, 0) | |
3920 | HDR ; Head er code fo r the ORMX Conversio n Utility | |
3921 | "RTN","ORM XCONV",25, 0) | |
3922 | S VALMHDR (1)="Order s Conversi on" | |
3923 | "RTN","ORM XCONV",26, 0) | |
3924 | Q | |
3925 | "RTN","ORM XCONV",27, 0) | |
3926 | INIT ; Set initial v ariables a nd list ar ray for th e ORMX Con version Ut ility | |
3927 | "RTN","ORM XCONV",28, 0) | |
3928 | D SET^VAL M10(1,1_". Orders Co nversion") | |
3929 | "RTN","ORM XCONV",29, 0) | |
3930 | D SET^VAL M10(2,2_". C&P Conve rsion") | |
3931 | "RTN","ORM XCONV",30, 0) | |
3932 | D SET^VAL M10(3,3_". NEAR Conv ersion") | |
3933 | "RTN","ORM XCONV",31, 0) | |
3934 | D SET^VAL M10(4,4_". Consults Conversion ") | |
3935 | "RTN","ORM XCONV",32, 0) | |
3936 | D SET^VAL M10(5,5_". Recall Re minder Con version") | |
3937 | "RTN","ORM XCONV",33, 0) | |
3938 | D SET^VAL M10(6,6_". Complete All Return To Clinic Orders") | |
3939 | "RTN","ORM XCONV",34, 0) | |
3940 | D SET^VAL M10(7,7_". Complete All Recall Reminders ") | |
3941 | "RTN","ORM XCONV",35, 0) | |
3942 | S VALMCNT =7 | |
3943 | "RTN","ORM XCONV",36, 0) | |
3944 | Q | |
3945 | "RTN","ORM XCONV",37, 0) | |
3946 | HELP ; Hel p code for the ORMX Conversion Utility | |
3947 | "RTN","ORM XCONV",38, 0) | |
3948 | S X="?" D DISP^XQOR M1 W !! | |
3949 | "RTN","ORM XCONV",39, 0) | |
3950 | Q | |
3951 | "RTN","ORM XCONV",40, 0) | |
3952 | EXIT ; Exi t code for the ORMX Conversion Utility | |
3953 | "RTN","ORM XCONV",41, 0) | |
3954 | Q | |
3955 | "RTN","ORM XCONV",42, 0) | |
3956 | EXPND ; Ex pand code for the OR MX Convers ion Utilit y | |
3957 | "RTN","ORM XCONV",43, 0) | |
3958 | Q | |
3959 | "RTN","ORM XCONV",44, 0) | |
3960 | RUN ; Run code for t he ORMX Co nversion U tility | |
3961 | "RTN","ORM XCONV",45, 0) | |
3962 | N DIR,DIR UT,DUOUT,X ,Y ; Neede d for call to ^DIR | |
3963 | "RTN","ORM XCONV",46, 0) | |
3964 | N TOTAL,S ENT,COMPLE TE,FAILED | |
3965 | "RTN","ORM XCONV",47, 0) | |
3966 | S (DIR,DI RUT,DUOUT, X,Y,TOTAL, SENT,COMPL ETE,FAILED )="" | |
3967 | "RTN","ORM XCONV",48, 0) | |
3968 | ; | |
3969 | "RTN","ORM XCONV",49, 0) | |
3970 | S DIR(0)= "N^1:"_$G( VALMCNT)_" :0" | |
3971 | "RTN","ORM XCONV",50, 0) | |
3972 | D ^DIR | |
3973 | "RTN","ORM XCONV",51, 0) | |
3974 | S VALMBCK ="R" | |
3975 | "RTN","ORM XCONV",52, 0) | |
3976 | ; | |
3977 | "RTN","ORM XCONV",53, 0) | |
3978 | S Y=$G(Y) | |
3979 | "RTN","ORM XCONV",54, 0) | |
3980 | I Y=1 D Q | |
3981 | "RTN","ORM XCONV",55, 0) | |
3982 | . D ORDCO NV^ORMXCON V(.TOTAL,. SENT,.FAIL ED) | |
3983 | "RTN","ORM XCONV",56, 0) | |
3984 | . S VALMS G="Orders conversion complete. " | |
3985 | "RTN","ORM XCONV",57, 0) | |
3986 | . D CONVR SLT(TOTAL, SENT,FAILE D) | |
3987 | "RTN","ORM XCONV",58, 0) | |
3988 | ; | |
3989 | "RTN","ORM XCONV",59, 0) | |
3990 | I Y=2 D Q | |
3991 | "RTN","ORM XCONV",60, 0) | |
3992 | . D CPCON V^ORMXCONV (.TOTAL,.S ENT,.FAILE D) | |
3993 | "RTN","ORM XCONV",61, 0) | |
3994 | . S VALMS G="C&P con version co mplete." | |
3995 | "RTN","ORM XCONV",62, 0) | |
3996 | . D CONVR SLT(TOTAL, SENT,FAILE D) | |
3997 | "RTN","ORM XCONV",63, 0) | |
3998 | ; | |
3999 | "RTN","ORM XCONV",64, 0) | |
4000 | I Y=3 D Q | |
4001 | "RTN","ORM XCONV",65, 0) | |
4002 | . D NLCON V^ORMXCONV (.TOTAL,.S ENT,.FAILE D) | |
4003 | "RTN","ORM XCONV",66, 0) | |
4004 | . S VALMS G="NEAR co nversion c omplete." | |
4005 | "RTN","ORM XCONV",67, 0) | |
4006 | . D CONVR SLT(TOTAL, SENT,FAILE D) | |
4007 | "RTN","ORM XCONV",68, 0) | |
4008 | ; | |
4009 | "RTN","ORM XCONV",69, 0) | |
4010 | I Y=4 D Q | |
4011 | "RTN","ORM XCONV",70, 0) | |
4012 | . D GMRCO NV^ORMXCON V(.TOTAL,. SENT,.FAIL ED) | |
4013 | "RTN","ORM XCONV",71, 0) | |
4014 | . S VALMS G="Consult conversio n complete ." | |
4015 | "RTN","ORM XCONV",72, 0) | |
4016 | . D CONVR SLT(TOTAL, SENT,FAILE D) | |
4017 | "RTN","ORM XCONV",73, 0) | |
4018 | ; | |
4019 | "RTN","ORM XCONV",74, 0) | |
4020 | I Y=5 D Q | |
4021 | "RTN","ORM XCONV",75, 0) | |
4022 | . D RCCON V^ORMXCONV (.TOTAL,.S ENT,.FAILE D) | |
4023 | "RTN","ORM XCONV",76, 0) | |
4024 | . S VALMS G="Recall conversion complete. " | |
4025 | "RTN","ORM XCONV",77, 0) | |
4026 | . D CONVR SLT(TOTAL, SENT,FAILE D) | |
4027 | "RTN","ORM XCONV",78, 0) | |
4028 | ; | |
4029 | "RTN","ORM XCONV",79, 0) | |
4030 | I Y=6 D Q | |
4031 | "RTN","ORM XCONV",80, 0) | |
4032 | . D RTCCO MP^ORMXCON V(.TOTAL,. COMPLETE,. FAILED) | |
4033 | "RTN","ORM XCONV",81, 0) | |
4034 | . S VALMS G="All Ret urn to Cli nic orders completed ." | |
4035 | "RTN","ORM XCONV",82, 0) | |
4036 | . D COMPR SLT(.TOTAL ,.COMPLETE ,.FAILED) | |
4037 | "RTN","ORM XCONV",83, 0) | |
4038 | ; | |
4039 | "RTN","ORM XCONV",84, 0) | |
4040 | I Y=7 D Q | |
4041 | "RTN","ORM XCONV",85, 0) | |
4042 | . D RCCOM P^ORMXCONV (.TOTAL,.C OMPLETE,.F AILED) | |
4043 | "RTN","ORM XCONV",86, 0) | |
4044 | . S VALMS G=" All re call remin ders were completed. " | |
4045 | "RTN","ORM XCONV",87, 0) | |
4046 | . D COMPR SLT(.TOTAL ,.COMPLETE ,.FAILED) | |
4047 | "RTN","ORM XCONV",88, 0) | |
4048 | ; | |
4049 | "RTN","ORM XCONV",89, 0) | |
4050 | Q | |
4051 | "RTN","ORM XCONV",90, 0) | |
4052 | CONVRSLT(T OTAL,SENT, FAILED) ; Print the results fr om the con version to the scree n | |
4053 | "RTN","ORM XCONV",91, 0) | |
4054 | ; TOTAL ( I,REQ) - The total number of records lo oped over during the conversio n | |
4055 | "RTN","ORM XCONV",92, 0) | |
4056 | ; SENT (I ,REQ) - The total number of HL7 messag es that we re success fully queu ed | |
4057 | "RTN","ORM XCONV",93, 0) | |
4058 | ; FAILED (I,REQ) - The total number of records th at failed to build o r queue an HL7 messa ge | |
4059 | "RTN","ORM XCONV",94, 0) | |
4060 | ; | |
4061 | "RTN","ORM XCONV",95, 0) | |
4062 | N FILTERE D | |
4063 | "RTN","ORM XCONV",96, 0) | |
4064 | ; | |
4065 | "RTN","ORM XCONV",97, 0) | |
4066 | S TOTAL=$ G(TOTAL),S ENT=$G(SEN T),FAILED= $G(FAILED) | |
4067 | "RTN","ORM XCONV",98, 0) | |
4068 | S FILTERE D=TOTAL-(S ENT+FAILED ) | |
4069 | "RTN","ORM XCONV",99, 0) | |
4070 | ; | |
4071 | "RTN","ORM XCONV",100 ,0) | |
4072 | W ! | |
4073 | "RTN","ORM XCONV",101 ,0) | |
4074 | W !,"Tota l records queried: " _TOTAL | |
4075 | "RTN","ORM XCONV",102 ,0) | |
4076 | W !,"Tota l records that were filtered f rom the co nversion: "_FILTERED | |
4077 | "RTN","ORM XCONV",103 ,0) | |
4078 | W !,"Tota l HL7 mess ages succe ssfully qu eued: "_SE NT | |
4079 | "RTN","ORM XCONV",104 ,0) | |
4080 | W !,"Tota l records that faile d to build or queue an HL7 mes sage: "_FA ILED | |
4081 | "RTN","ORM XCONV",105 ,0) | |
4082 | W ! | |
4083 | "RTN","ORM XCONV",106 ,0) | |
4084 | ; | |
4085 | "RTN","ORM XCONV",107 ,0) | |
4086 | S DIR(0)= "E" D ^DIR K DIR W ! | |
4087 | "RTN","ORM XCONV",108 ,0) | |
4088 | Q | |
4089 | "RTN","ORM XCONV",109 ,0) | |
4090 | COMPRSLT(T OTAL,COMPL ETE,FAILED ) ; Print the result s from the completio n conversi on to the screen | |
4091 | "RTN","ORM XCONV",110 ,0) | |
4092 | ; TOTAL ( I,REQ) - The tota l number o f records looped ove r during t he convers ion | |
4093 | "RTN","ORM XCONV",111 ,0) | |
4094 | ; COMPLET E (I,REQ) - The tota l number c ompleted | |
4095 | "RTN","ORM XCONV",112 ,0) | |
4096 | ; FAILED (I,REQ) - The tota l number n o complete d | |
4097 | "RTN","ORM XCONV",113 ,0) | |
4098 | ; | |
4099 | "RTN","ORM XCONV",114 ,0) | |
4100 | N FILTERE D | |
4101 | "RTN","ORM XCONV",115 ,0) | |
4102 | ; | |
4103 | "RTN","ORM XCONV",116 ,0) | |
4104 | S TOTAL=$ G(TOTAL),C OMPLETE=$G (COMPLETE) ,FAILED=$G (FAILED) | |
4105 | "RTN","ORM XCONV",117 ,0) | |
4106 | S FILTERE D=TOTAL-(C OMPLETE+FA ILED) | |
4107 | "RTN","ORM XCONV",118 ,0) | |
4108 | ; | |
4109 | "RTN","ORM XCONV",119 ,0) | |
4110 | W ! | |
4111 | "RTN","ORM XCONV",120 ,0) | |
4112 | W !,"Tota l records queried: " _TOTAL | |
4113 | "RTN","ORM XCONV",121 ,0) | |
4114 | W !,"Tota l records that were filtered f rom the co mpletion c onversion: "_FILTERE D | |
4115 | "RTN","ORM XCONV",122 ,0) | |
4116 | W !,"Tota l records completed: "_COMPLET E | |
4117 | "RTN","ORM XCONV",123 ,0) | |
4118 | W !,"Tota l records that could not be co mpleted: " _FAILED | |
4119 | "RTN","ORM XCONV",124 ,0) | |
4120 | W ! | |
4121 | "RTN","ORM XCONV",125 ,0) | |
4122 | ; | |
4123 | "RTN","ORM XCONV",126 ,0) | |
4124 | S DIR(0)= "E" D ^DIR K DIR W ! | |
4125 | "RTN","ORM XCONV",127 ,0) | |
4126 | Q | |
4127 | "RTN","ORM XCONV",128 ,0) | |
4128 | ORDCONV(TO TAL,SENT,F AILED) ; O rders conv ersion | |
4129 | "RTN","ORM XCONV",129 ,0) | |
4130 | ; TOTAL ( O,OPT) - The total number of records lo oped over during the conversio n | |
4131 | "RTN","ORM XCONV",130 ,0) | |
4132 | ; SENT (O ,OPT) - The total number of HL7 messag es that we re success fully queu ed | |
4133 | "RTN","ORM XCONV",131 ,0) | |
4134 | ; FAILED (O,OPT) - The total number of records th at failed to build o r queue an HL7 messa ge | |
4135 | "RTN","ORM XCONV",132 ,0) | |
4136 | ; | |
4137 | "RTN","ORM XCONV",133 ,0) | |
4138 | N ORDIEN, ORDABLE,HL OARR,ERROR ,SUCCESS,T HREADS,COU NT,LINK | |
4139 | "RTN","ORM XCONV",134 ,0) | |
4140 | S (ORDIEN ,ORDABLE,H LOARR,ERRO R,SUCCESS, THREADS,CO UNT,LINK)= "" | |
4141 | "RTN","ORM XCONV",135 ,0) | |
4142 | ; | |
4143 | "RTN","ORM XCONV",136 ,0) | |
4144 | S LINK="O R ORM OUT" | |
4145 | "RTN","ORM XCONV",137 ,0) | |
4146 | S TOTAL=0 ,SENT=0,FA ILED=0 | |
4147 | "RTN","ORM XCONV",138 ,0) | |
4148 | ; | |
4149 | "RTN","ORM XCONV",139 ,0) | |
4150 | S THREADS =$$GET^XPA R("SYS","O RMX CONV T HREADS") | |
4151 | "RTN","ORM XCONV",140 ,0) | |
4152 | F S ORDI EN=$O(^OR( 100,ORDIEN )) Q:ORDIE N="" D | |
4153 | "RTN","ORM XCONV",141 ,0) | |
4154 | . ; | |
4155 | "RTN","ORM XCONV",142 ,0) | |
4156 | . S TOTAL =TOTAL+1 | |
4157 | "RTN","ORM XCONV",143 ,0) | |
4158 | . ; | |
4159 | "RTN","ORM XCONV",144 ,0) | |
4160 | . ; Don't trigger m essages fo r consult orders sin ce they wi ll be hand led in GMR CONV | |
4161 | "RTN","ORM XCONV",145 ,0) | |
4162 | . I $D(^G MR(123,"AC ",ORDIEN)) Q | |
4163 | "RTN","ORM XCONV",146 ,0) | |
4164 | . ; | |
4165 | "RTN","ORM XCONV",147 ,0) | |
4166 | . ; Only trigger me ssages for PENDING [ 5] and ACT IVE [6] or ders. | |
4167 | "RTN","ORM XCONV",148 ,0) | |
4168 | . ; The l ist of sta tuses is f ound in ^O RD(100.01) | |
4169 | "RTN","ORM XCONV",149 ,0) | |
4170 | . I '$$IN STRING^SDM XCORE($P($ G(^OR(100, ORDIEN,3)) ,"^",3),"5 ,6",",") Q | |
4171 | "RTN","ORM XCONV",150 ,0) | |
4172 | . ; | |
4173 | "RTN","ORM XCONV",151 ,0) | |
4174 | . ; Don't trigger a message i f its a ty pe of orde r we won't schedule in Epic | |
4175 | "RTN","ORM XCONV",152 ,0) | |
4176 | . S ORDAB LE=$G(^OR( 100,ORDIEN ,.1,1,0)) | |
4177 | "RTN","ORM XCONV",153 ,0) | |
4178 | . I $$FIL TEROR^ORMX TR(ORDABLE ,ORDIEN) Q | |
4179 | "RTN","ORM XCONV",154 ,0) | |
4180 | . ; | |
4181 | "RTN","ORM XCONV",155 ,0) | |
4182 | . ; Don't trigger a message i f the pati ent associ ated with the order is dead | |
4183 | "RTN","ORM XCONV",156 ,0) | |
4184 | . I $$ISP TDEAD($P($ P($G(^OR(1 00,ORDIEN, 0)),"^",2) ,";",1)) Q | |
4185 | "RTN","ORM XCONV",157 ,0) | |
4186 | . ; | |
4187 | "RTN","ORM XCONV",158 ,0) | |
4188 | . ; handl e "Old-sty le" RTC or ders (gene ric text o rders) | |
4189 | "RTN","ORM XCONV",159 ,0) | |
4190 | . I $$ISO LDRTC(ORDI EN) D | |
4191 | "RTN","ORM XCONV",160 ,0) | |
4192 | . . S SUC CESS=$$OLD RTCFM("NW" ,ORDIEN,.H LOARR,.ERR OR) | |
4193 | "RTN","ORM XCONV",161 ,0) | |
4194 | . E D | |
4195 | "RTN","ORM XCONV",162 ,0) | |
4196 | . . ; For mat the HL OARR | |
4197 | "RTN","ORM XCONV",163 ,0) | |
4198 | . . S SUC CESS=$$FMT OR^ORMXFMT ("NW",ORDI EN,"",.HLO ARR,.ERROR ) | |
4199 | "RTN","ORM XCONV",164 ,0) | |
4200 | . ; | |
4201 | "RTN","ORM XCONV",165 ,0) | |
4202 | . ; If th ere is an error log it and qui t | |
4203 | "RTN","ORM XCONV",166 ,0) | |
4204 | . I SUCCE SS=-1 D Q | |
4205 | "RTN","ORM XCONV",167 ,0) | |
4206 | . . D ERR LOG^SDMXER RO(312,ERR OR,1) | |
4207 | "RTN","ORM XCONV",168 ,0) | |
4208 | . . S FAI LED=FAILED +1 | |
4209 | "RTN","ORM XCONV",169 ,0) | |
4210 | . ; | |
4211 | "RTN","ORM XCONV",170 ,0) | |
4212 | . ; Multi threading | |
4213 | "RTN","ORM XCONV",171 ,0) | |
4214 | . I $G(TH READS) D | |
4215 | "RTN","ORM XCONV",172 ,0) | |
4216 | . . S COU NT=SENT#TH READS+1 | |
4217 | "RTN","ORM XCONV",173 ,0) | |
4218 | . . S LIN K="OR ORM O"_COUNT | |
4219 | "RTN","ORM XCONV",174 ,0) | |
4220 | . ; | |
4221 | "RTN","ORM XCONV",175 ,0) | |
4222 | . ; Trigg er the mes sage | |
4223 | "RTN","ORM XCONV",176 ,0) | |
4224 | . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR,LIN K) | |
4225 | "RTN","ORM XCONV",177 ,0) | |
4226 | . I SUCCE SS=-1 D Q | |
4227 | "RTN","ORM XCONV",178 ,0) | |
4228 | . . D ERR LG314^ORMX HL7(ERROR, "ORDER",$G (HLOARR("O RDER ID")) ) | |
4229 | "RTN","ORM XCONV",179 ,0) | |
4230 | . . S FAI LED=FAILED +1 | |
4231 | "RTN","ORM XCONV",180 ,0) | |
4232 | . ; | |
4233 | "RTN","ORM XCONV",181 ,0) | |
4234 | . S SENT= SENT+1 | |
4235 | "RTN","ORM XCONV",182 ,0) | |
4236 | Q | |
4237 | "RTN","ORM XCONV",183 ,0) | |
4238 | GMRCONV(TO TAL,SENT,F AILED) ; C onsults co nversion | |
4239 | "RTN","ORM XCONV",184 ,0) | |
4240 | ; TOTAL ( O,OPT) - The total number of records lo oped over during the conversio n | |
4241 | "RTN","ORM XCONV",185 ,0) | |
4242 | ; SENT (O ,OPT) - The total number of HL7 messag es that we re success fully queu ed | |
4243 | "RTN","ORM XCONV",186 ,0) | |
4244 | ; FAILED (O,OPT) - The total number of records th at failed to build o r queue an HL7 messa ge | |
4245 | "RTN","ORM XCONV",187 ,0) | |
4246 | ; | |
4247 | "RTN","ORM XCONV",188 ,0) | |
4248 | N GMRIEN, HLOARR,ERR OR,SUCCESS ,ORDIEN,OR DABLE,THRE ADS,LINK,C OUNT | |
4249 | "RTN","ORM XCONV",189 ,0) | |
4250 | S (GMRIEN ,HLOARR,ER ROR,SUCCES S,ORDIEN,O RDABLE,THR EADS,LINK, COUNT)="" | |
4251 | "RTN","ORM XCONV",190 ,0) | |
4252 | ; | |
4253 | "RTN","ORM XCONV",191 ,0) | |
4254 | S LINK="O R ORM OUT" | |
4255 | "RTN","ORM XCONV",192 ,0) | |
4256 | S TOTAL=0 ,SENT=0,FA ILED=0 | |
4257 | "RTN","ORM XCONV",193 ,0) | |
4258 | ; | |
4259 | "RTN","ORM XCONV",194 ,0) | |
4260 | S THREADS =$$GET^XPA R("SYS","O RMX CONV T HREADS") | |
4261 | "RTN","ORM XCONV",195 ,0) | |
4262 | F S GMRI EN=$O(^GMR (123,GMRIE N)) Q:GMRI EN="" D | |
4263 | "RTN","ORM XCONV",196 ,0) | |
4264 | . ; | |
4265 | "RTN","ORM XCONV",197 ,0) | |
4266 | . S TOTAL =TOTAL+1 | |
4267 | "RTN","ORM XCONV",198 ,0) | |
4268 | . ; | |
4269 | "RTN","ORM XCONV",199 ,0) | |
4270 | . ; Only trigger me ssages for PENDING [ 5] and ACT IVE [6] an d SCHEDULE D [8] cons ults. | |
4271 | "RTN","ORM XCONV",200 ,0) | |
4272 | . ; The l ist of sta tuses is f ound in ^O RD(100.01) | |
4273 | "RTN","ORM XCONV",201 ,0) | |
4274 | . I '$$IN STRING^SDM XCORE($P($ G(^GMR(123 ,GMRIEN,0) ),"^",12), "5,6,8",", ") Q | |
4275 | "RTN","ORM XCONV",202 ,0) | |
4276 | . ; | |
4277 | "RTN","ORM XCONV",203 ,0) | |
4278 | . ; Don't trigger a message i f its a ty pe of orde r we won't schedule in Epic | |
4279 | "RTN","ORM XCONV",204 ,0) | |
4280 | . S ORDIE N=$P($G(^G MR(123,GMR IEN,0)),"^ ",3) | |
4281 | "RTN","ORM XCONV",205 ,0) | |
4282 | . I ORDIE N'="" S OR DABLE=$G(^ OR(100,$G( ORDIEN),.1 ,1,0)) | |
4283 | "RTN","ORM XCONV",206 ,0) | |
4284 | . I $$FIL TEROR^ORMX TR(ORDABLE ,ORDIEN) Q | |
4285 | "RTN","ORM XCONV",207 ,0) | |
4286 | . ; | |
4287 | "RTN","ORM XCONV",208 ,0) | |
4288 | . ; Don't trigger a message i f the pati ent associ ated with the order is dead | |
4289 | "RTN","ORM XCONV",209 ,0) | |
4290 | . I $$ISP TDEAD($P($ G(^GMR(123 ,GMRIEN,0) ),"^",2)) Q | |
4291 | "RTN","ORM XCONV",210 ,0) | |
4292 | . ; | |
4293 | "RTN","ORM XCONV",211 ,0) | |
4294 | . ; Forma t the HLOA RR | |
4295 | "RTN","ORM XCONV",212 ,0) | |
4296 | . S SUCCE SS=$$FMTGM RC^ORMXFMT ("NW",GMRI EN,ORDABLE ,.HLOARR,. ERROR) | |
4297 | "RTN","ORM XCONV",213 ,0) | |
4298 | . I SUCCE SS=-1 D Q | |
4299 | "RTN","ORM XCONV",214 ,0) | |
4300 | . . D ERR LOG^SDMXER RO(312,ERR OR,1) | |
4301 | "RTN","ORM XCONV",215 ,0) | |
4302 | . . S FAI LED=FAILED +1 | |
4303 | "RTN","ORM XCONV",216 ,0) | |
4304 | . ; | |
4305 | "RTN","ORM XCONV",217 ,0) | |
4306 | . ; Multi threading | |
4307 | "RTN","ORM XCONV",218 ,0) | |
4308 | . I $G(TH READS) D | |
4309 | "RTN","ORM XCONV",219 ,0) | |
4310 | . . S COU NT=SENT#TH READS+1 | |
4311 | "RTN","ORM XCONV",220 ,0) | |
4312 | . . S LIN K="OR ORM O"_COUNT | |
4313 | "RTN","ORM XCONV",221 ,0) | |
4314 | . ; | |
4315 | "RTN","ORM XCONV",222 ,0) | |
4316 | . ; Trigg er the mes sage | |
4317 | "RTN","ORM XCONV",223 ,0) | |
4318 | . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR,LIN K) | |
4319 | "RTN","ORM XCONV",224 ,0) | |
4320 | . I SUCCE SS=-1 D Q | |
4321 | "RTN","ORM XCONV",225 ,0) | |
4322 | . . D ERR LG314^ORMX HL7(ERROR, "CONSULT", $G(HLOARR( "ORDER ID" ))) | |
4323 | "RTN","ORM XCONV",226 ,0) | |
4324 | . . S FAI LED=FAILED +1 | |
4325 | "RTN","ORM XCONV",227 ,0) | |
4326 | . ; | |
4327 | "RTN","ORM XCONV",228 ,0) | |
4328 | . S SENT= SENT+1 | |
4329 | "RTN","ORM XCONV",229 ,0) | |
4330 | Q | |
4331 | "RTN","ORM XCONV",230 ,0) | |
4332 | CPCONV(TOT AL,SENT,FA ILED) ; C& P conversi on | |
4333 | "RTN","ORM XCONV",231 ,0) | |
4334 | ; TOTAL ( O,OPT) - The total number of records lo oped over during the conversio n | |
4335 | "RTN","ORM XCONV",232 ,0) | |
4336 | ; SENT (O ,OPT) - The total number of HL7 messag es that we re success fully queu ed | |
4337 | "RTN","ORM XCONV",233 ,0) | |
4338 | ; FAILED (O,OPT) - The total number of records th at failed to build o r queue an HL7 messa ge | |
4339 | "RTN","ORM XCONV",234 ,0) | |
4340 | ; | |
4341 | "RTN","ORM XCONV",235 ,0) | |
4342 | N DVBIEN, DVB0,HLOAR R,ERROR,SU CCESS,THRE ADS,LINK,C OUNT | |
4343 | "RTN","ORM XCONV",236 ,0) | |
4344 | S (DVBIEN ,DVB0,HLOA RR,ERROR,S UCCESS,THR EADS,LINK, COUNT)="" | |
4345 | "RTN","ORM XCONV",237 ,0) | |
4346 | ; | |
4347 | "RTN","ORM XCONV",238 ,0) | |
4348 | S LINK="O R ORM OUT" | |
4349 | "RTN","ORM XCONV",239 ,0) | |
4350 | S TOTAL=0 ,SENT=0,FA ILED=0 | |
4351 | "RTN","ORM XCONV",240 ,0) | |
4352 | ; | |
4353 | "RTN","ORM XCONV",241 ,0) | |
4354 | S THREADS =$$GET^XPA R("SYS","O RMX CONV T HREADS") | |
4355 | "RTN","ORM XCONV",242 ,0) | |
4356 | F S DVBI EN=$O(^DVB (396.4,DVB IEN)) Q:DV BIEN="" D | |
4357 | "RTN","ORM XCONV",243 ,0) | |
4358 | . ; | |
4359 | "RTN","ORM XCONV",244 ,0) | |
4360 | . S TOTAL =TOTAL+1 | |
4361 | "RTN","ORM XCONV",245 ,0) | |
4362 | . ; | |
4363 | "RTN","ORM XCONV",246 ,0) | |
4364 | . S DVB0= $G(^DVB(39 6.4,DVBIEN ,0)) | |
4365 | "RTN","ORM XCONV",247 ,0) | |
4366 | . I DVB0= "" Q | |
4367 | "RTN","ORM XCONV",248 ,0) | |
4368 | . ; | |
4369 | "RTN","ORM XCONV",249 ,0) | |
4370 | . ; Only trigger me ssages for OPEN ["O" ] requests . | |
4371 | "RTN","ORM XCONV",250 ,0) | |
4372 | . I $P(DV B0,"^",4)' ="O" Q | |
4373 | "RTN","ORM XCONV",251 ,0) | |
4374 | . ; | |
4375 | "RTN","ORM XCONV",252 ,0) | |
4376 | . ; Don't trigger a message i f the pati ent associ ated with the reques t is dead | |
4377 | "RTN","ORM XCONV",253 ,0) | |
4378 | . I $$ISP TDEAD($P($ G(^DVB(396 .3,$P(DVB0 ,"^",2),0) ),"^",1)) Q | |
4379 | "RTN","ORM XCONV",254 ,0) | |
4380 | . ; | |
4381 | "RTN","ORM XCONV",255 ,0) | |
4382 | . ; Forma t the HLOA RR | |
4383 | "RTN","ORM XCONV",256 ,0) | |
4384 | . S SUCCE SS=$$FMTCP ^ORMXFMT(" NW",DVBIEN ,.HLOARR,. ERROR) | |
4385 | "RTN","ORM XCONV",257 ,0) | |
4386 | . I SUCCE SS=-1 D Q | |
4387 | "RTN","ORM XCONV",258 ,0) | |
4388 | . . D ERR LOG^SDMXER RO(312,ERR OR,1) | |
4389 | "RTN","ORM XCONV",259 ,0) | |
4390 | . . S FAI LED=FAILED +1 | |
4391 | "RTN","ORM XCONV",260 ,0) | |
4392 | . ; | |
4393 | "RTN","ORM XCONV",261 ,0) | |
4394 | . ; Multi threading | |
4395 | "RTN","ORM XCONV",262 ,0) | |
4396 | . I $G(TH READS) D | |
4397 | "RTN","ORM XCONV",263 ,0) | |
4398 | . . S COU NT=SENT#TH READS+1 | |
4399 | "RTN","ORM XCONV",264 ,0) | |
4400 | . . S LIN K="OR ORM O"_COUNT | |
4401 | "RTN","ORM XCONV",265 ,0) | |
4402 | . ; | |
4403 | "RTN","ORM XCONV",266 ,0) | |
4404 | . ; Trigg er the mes sage | |
4405 | "RTN","ORM XCONV",267 ,0) | |
4406 | . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR,LIN K) | |
4407 | "RTN","ORM XCONV",268 ,0) | |
4408 | . I SUCCE SS=-1 D Q | |
4409 | "RTN","ORM XCONV",269 ,0) | |
4410 | . . D ERR LG314^ORMX HL7(ERROR, "C&P",$G(H LOARR("ORD ER ID"))) | |
4411 | "RTN","ORM XCONV",270 ,0) | |
4412 | . . S FAI LED=FAILED +1 | |
4413 | "RTN","ORM XCONV",271 ,0) | |
4414 | . ; | |
4415 | "RTN","ORM XCONV",272 ,0) | |
4416 | . S SENT= SENT+1 | |
4417 | "RTN","ORM XCONV",273 ,0) | |
4418 | Q | |
4419 | "RTN","ORM XCONV",274 ,0) | |
4420 | NLCONV(TOT AL,SENT,FA ILED) ; NE AR (new en rollee app ointment r equest) li st convers ion | |
4421 | "RTN","ORM XCONV",275 ,0) | |
4422 | ; TOTAL ( O,OPT) - The total number of records lo oped over during the conversio n | |
4423 | "RTN","ORM XCONV",276 ,0) | |
4424 | ; SENT (O ,OPT) - The total number of HL7 messag es that we re success fully queu ed | |
4425 | "RTN","ORM XCONV",277 ,0) | |
4426 | ; FAILED (O,OPT) - The total number of records th at failed to build o r queue an HL7 messa ge | |
4427 | "RTN","ORM XCONV",278 ,0) | |
4428 | ; | |
4429 | "RTN","ORM XCONV",279 ,0) | |
4430 | N DFN,DGE NIEN,ERROR ,SUCCESS,T HREADS,LIN K,COUNT | |
4431 | "RTN","ORM XCONV",280 ,0) | |
4432 | S (DFN,DG ENIEN,ERRO R,SUCCESS, THREADS,LI NK,COUNT)= "" | |
4433 | "RTN","ORM XCONV",281 ,0) | |
4434 | ; | |
4435 | "RTN","ORM XCONV",282 ,0) | |
4436 | S LINK="O R ORM OUT" | |
4437 | "RTN","ORM XCONV",283 ,0) | |
4438 | S TOTAL=0 ,SENT=0,FA ILED=0 | |
4439 | "RTN","ORM XCONV",284 ,0) | |
4440 | ; | |
4441 | "RTN","ORM XCONV",285 ,0) | |
4442 | S THREADS =$$GET^XPA R("SYS","O RMX CONV T HREADS") | |
4443 | "RTN","ORM XCONV",286 ,0) | |
4444 | F S DFN= $O(^DGEN(2 7.11,"C",D FN)) Q:DFN ="" D | |
4445 | "RTN","ORM XCONV",287 ,0) | |
4446 | . ; | |
4447 | "RTN","ORM XCONV",288 ,0) | |
4448 | . S TOTAL =TOTAL+1 | |
4449 | "RTN","ORM XCONV",289 ,0) | |
4450 | . ; | |
4451 | "RTN","ORM XCONV",290 ,0) | |
4452 | . S DGENI EN=$O(^DGE N(27.11,"C ",DFN,""), -1) | |
4453 | "RTN","ORM XCONV",291 ,0) | |
4454 | . I DGENI EN="" Q | |
4455 | "RTN","ORM XCONV",292 ,0) | |
4456 | . ; | |
4457 | "RTN","ORM XCONV",293 ,0) | |
4458 | . ; Only trigger me ssages for VERIFIED [2] reques ts. | |
4459 | "RTN","ORM XCONV",294 ,0) | |
4460 | . ; The l ist of sta tuses is f ound in ^D GEN(27.15) | |
4461 | "RTN","ORM XCONV",295 ,0) | |
4462 | . I '$$IN STRING^SDM XCORE($P($ G(^DGEN(27 .11,DGENIE N,0)),"^", 4),"2","," ) Q | |
4463 | "RTN","ORM XCONV",296 ,0) | |
4464 | . ; | |
4465 | "RTN","ORM XCONV",297 ,0) | |
4466 | . ; Don't trigger m essages if there is not an app ointment r equest for the patie nt. | |
4467 | "RTN","ORM XCONV",298 ,0) | |
4468 | . I $P($G (^DPT(DFN, 1010.15)), "^",9)'=1 Q | |
4469 | "RTN","ORM XCONV",299 ,0) | |
4470 | . ; | |
4471 | "RTN","ORM XCONV",300 ,0) | |
4472 | . ; If th e NEAR is filled, do n't trigge r messages | |
4473 | "RTN","ORM XCONV",301 ,0) | |
4474 | . I $P($G (^DPT($G(D FN),1010.1 6)),"^",1) ="F" Q | |
4475 | "RTN","ORM XCONV",302 ,0) | |
4476 | . ; | |
4477 | "RTN","ORM XCONV",303 ,0) | |
4478 | . ; Don't trigger a message i f the pati ent associ ated with the reques t is dead | |
4479 | "RTN","ORM XCONV",304 ,0) | |
4480 | . I $$ISP TDEAD(DFN) Q | |
4481 | "RTN","ORM XCONV",305 ,0) | |
4482 | . ; | |
4483 | "RTN","ORM XCONV",306 ,0) | |
4484 | . ; Forma t the HLOA RR | |
4485 | "RTN","ORM XCONV",307 ,0) | |
4486 | . S SUCCE SS=$$FMTNL ^ORMXFMT(" NW",DFN,.H LOARR,.ERR OR) | |
4487 | "RTN","ORM XCONV",308 ,0) | |
4488 | . I SUCCE SS=-1 D Q | |
4489 | "RTN","ORM XCONV",309 ,0) | |
4490 | . . D ERR LOG^SDMXER RO(312,ERR OR,1) | |
4491 | "RTN","ORM XCONV",310 ,0) | |
4492 | . . S FAI LED=FAILED +1 | |
4493 | "RTN","ORM XCONV",311 ,0) | |
4494 | . ; | |
4495 | "RTN","ORM XCONV",312 ,0) | |
4496 | . ; Multi threading | |
4497 | "RTN","ORM XCONV",313 ,0) | |
4498 | . I $G(TH READS) D | |
4499 | "RTN","ORM XCONV",314 ,0) | |
4500 | . . S COU NT=SENT#TH READS+1 | |
4501 | "RTN","ORM XCONV",315 ,0) | |
4502 | . . S LIN K="OR ORM O"_COUNT | |
4503 | "RTN","ORM XCONV",316 ,0) | |
4504 | . ; | |
4505 | "RTN","ORM XCONV",317 ,0) | |
4506 | . ; Trigg er the mes sage | |
4507 | "RTN","ORM XCONV",318 ,0) | |
4508 | . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR,LIN K) | |
4509 | "RTN","ORM XCONV",319 ,0) | |
4510 | . I SUCCE SS=-1 D Q | |
4511 | "RTN","ORM XCONV",320 ,0) | |
4512 | . . D ERR LG314^ORMX HL7(ERROR, "NEAR list patient", $G(HLOARR( "PATIENT") )) | |
4513 | "RTN","ORM XCONV",321 ,0) | |
4514 | . . S FAI LED=FAILED +1 | |
4515 | "RTN","ORM XCONV",322 ,0) | |
4516 | . ; | |
4517 | "RTN","ORM XCONV",323 ,0) | |
4518 | . S SENT= SENT+1 | |
4519 | "RTN","ORM XCONV",324 ,0) | |
4520 | Q | |
4521 | "RTN","ORM XCONV",325 ,0) | |
4522 | RCCONV(TOT AL,SENT,FA ILED) ; Re call Remin der conver sion | |
4523 | "RTN","ORM XCONV",326 ,0) | |
4524 | ; TOTAL ( O,OPT) - The total number of records lo oped over during the conversio n | |
4525 | "RTN","ORM XCONV",327 ,0) | |
4526 | ; SENT (O ,OPT) - The total number of HL7 messag es that we re success fully queu ed | |
4527 | "RTN","ORM XCONV",328 ,0) | |
4528 | ; FAILED (O,OPT) - The total number of records th at failed to build o r queue an HL7 messa ge | |
4529 | "RTN","ORM XCONV",329 ,0) | |
4530 | ; | |
4531 | "RTN","ORM XCONV",330 ,0) | |
4532 | N DFN,RCI FN,ERROR,S UCCESS,THR EADS,LINK, COUNT | |
4533 | "RTN","ORM XCONV",331 ,0) | |
4534 | S (DFN,RC IFN,ERROR, SUCCESS,TH READS,LINK ,COUNT)="" | |
4535 | "RTN","ORM XCONV",332 ,0) | |
4536 | ; | |
4537 | "RTN","ORM XCONV",333 ,0) | |
4538 | S LINK="O R ORM OUT" | |
4539 | "RTN","ORM XCONV",334 ,0) | |
4540 | S TOTAL=0 ,SENT=0,FA ILED=0 | |
4541 | "RTN","ORM XCONV",335 ,0) | |
4542 | ; | |
4543 | "RTN","ORM XCONV",336 ,0) | |
4544 | S THREADS =$$GET^XPA R("SYS","O RMX CONV T HREADS") | |
4545 | "RTN","ORM XCONV",337 ,0) | |
4546 | F S DFN= $O(^SD(403 .5,"B",DFN )) Q:DFN=" " D | |
4547 | "RTN","ORM XCONV",338 ,0) | |
4548 | . ; | |
4549 | "RTN","ORM XCONV",339 ,0) | |
4550 | . ; Don't trigger a message i f the pati ent associ ated with the reques t is dead | |
4551 | "RTN","ORM XCONV",340 ,0) | |
4552 | . I $$ISP TDEAD(DFN) Q | |
4553 | "RTN","ORM XCONV",341 ,0) | |
4554 | . ; | |
4555 | "RTN","ORM XCONV",342 ,0) | |
4556 | . S RCIFN ="" | |
4557 | "RTN","ORM XCONV",343 ,0) | |
4558 | . F S RC IFN=$O(^SD (403.5,"B" ,DFN,RCIFN )) Q:RCIFN ="" D | |
4559 | "RTN","ORM XCONV",344 ,0) | |
4560 | . . ; | |
4561 | "RTN","ORM XCONV",345 ,0) | |
4562 | . . S TOT AL=TOTAL+1 | |
4563 | "RTN","ORM XCONV",346 ,0) | |
4564 | . . ; | |
4565 | "RTN","ORM XCONV",347 ,0) | |
4566 | . . ; For mat the HL OARR | |
4567 | "RTN","ORM XCONV",348 ,0) | |
4568 | . . S SUC CESS=$$FMT RC^ORMXFMT ("NW",RCIF N,.HLOARR, .ERROR) | |
4569 | "RTN","ORM XCONV",349 ,0) | |
4570 | . . I SUC CESS=-1 D Q | |
4571 | "RTN","ORM XCONV",350 ,0) | |
4572 | . . . D E RRLOG^SDMX ERRO(312,E RROR,1) | |
4573 | "RTN","ORM XCONV",351 ,0) | |
4574 | . . . S F AILED=FAIL ED+1 | |
4575 | "RTN","ORM XCONV",352 ,0) | |
4576 | . . ; | |
4577 | "RTN","ORM XCONV",353 ,0) | |
4578 | . . ; Mul tithreadin g | |
4579 | "RTN","ORM XCONV",354 ,0) | |
4580 | . . I $G( THREADS) D | |
4581 | "RTN","ORM XCONV",355 ,0) | |
4582 | . . . S C OUNT=SENT# THREADS+1 | |
4583 | "RTN","ORM XCONV",356 ,0) | |
4584 | . . . S L INK="OR OR M O"_COUNT | |
4585 | "RTN","ORM XCONV",357 ,0) | |
4586 | . . ; | |
4587 | "RTN","ORM XCONV",358 ,0) | |
4588 | . . ; Tri gger the m essage | |
4589 | "RTN","ORM XCONV",359 ,0) | |
4590 | . . S SUC CESS=$$BLD ORMHL^ORMX HL7(.HLOAR R,.ERROR,L INK) | |
4591 | "RTN","ORM XCONV",360 ,0) | |
4592 | . . I SUC CESS=-1 D Q | |
4593 | "RTN","ORM XCONV",361 ,0) | |
4594 | . . . D E RRLG314^OR MXHL7(ERRO R,"Recall Reminder", $G(HLOARR( "ORDER ID" ))) | |
4595 | "RTN","ORM XCONV",362 ,0) | |
4596 | . . . S F AILED=FAIL ED+1 | |
4597 | "RTN","ORM XCONV",363 ,0) | |
4598 | . . ; | |
4599 | "RTN","ORM XCONV",364 ,0) | |
4600 | . . S SEN T=SENT+1 | |
4601 | "RTN","ORM XCONV",365 ,0) | |
4602 | Q | |
4603 | "RTN","ORM XCONV",366 ,0) | |
4604 | RCCOMP(TOT AL,COMPLET E,FAILED) ; Complete all recal l reminder s | |
4605 | "RTN","ORM XCONV",367 ,0) | |
4606 | ; TOTAL ( O,OPT) - The tota l number o f records looped ove r during t he convers ion | |
4607 | "RTN","ORM XCONV",368 ,0) | |
4608 | ; COMPLET E (O,OPT) - The tota l number c ompleted | |
4609 | "RTN","ORM XCONV",369 ,0) | |
4610 | ; FAILED (O,OPT) - The tota l number n o complete d | |
4611 | "RTN","ORM XCONV",370 ,0) | |
4612 | ; | |
4613 | "RTN","ORM XCONV",371 ,0) | |
4614 | N DFN,SDI EN,SDRRFTR | |
4615 | "RTN","ORM XCONV",372 ,0) | |
4616 | S (DFN,SD IEN,SDRRFT R)="" | |
4617 | "RTN","ORM XCONV",373 ,0) | |
4618 | ; | |
4619 | "RTN","ORM XCONV",374 ,0) | |
4620 | S TOTAL=0 ,COMPLETE= 0,FAILED=0 | |
4621 | "RTN","ORM XCONV",375 ,0) | |
4622 | F S DFN= $O(^SD(403 .5,"B",DFN )) Q:DFN=" " D | |
4623 | "RTN","ORM XCONV",376 ,0) | |
4624 | . F S SD IEN=$O(^SD (403.5,"B" ,DFN,SDIEN )) Q:SDIEN ="" D | |
4625 | "RTN","ORM XCONV",377 ,0) | |
4626 | . . ; | |
4627 | "RTN","ORM XCONV",378 ,0) | |
4628 | . . S TOT AL=TOTAL+1 | |
4629 | "RTN","ORM XCONV",379 ,0) | |
4630 | . . ; | |
4631 | "RTN","ORM XCONV",380 ,0) | |
4632 | . . S DA= SDIEN,SDRR FTR=7,DIK= "^SD(403.5 ," D ^DIK K DA,DIK | |
4633 | "RTN","ORM XCONV",381 ,0) | |
4634 | . . ; | |
4635 | "RTN","ORM XCONV",382 ,0) | |
4636 | . . I $G( ^SD(403.5, "B",DFN,SD IEN))="" S COMPLETE= COMPLETE+1 | |
4637 | "RTN","ORM XCONV",383 ,0) | |
4638 | . . E S FAILED=FAI LED+1 | |
4639 | "RTN","ORM XCONV",384 ,0) | |
4640 | Q | |
4641 | "RTN","ORM XCONV",385 ,0) | |
4642 | RTCCOMP(TO TAL,COMPLE TE,FAILED) ; Set old and new R TC orders to complet e | |
4643 | "RTN","ORM XCONV",386 ,0) | |
4644 | ; TOTAL ( O,OPT) - The tota l number o f records looped ove r during t he convers ion | |
4645 | "RTN","ORM XCONV",387 ,0) | |
4646 | ; COMPLET E (O,OPT) - The tota l number c ompleted | |
4647 | "RTN","ORM XCONV",388 ,0) | |
4648 | ; FAILED (O,OPT) - The tota l number n o complete d | |
4649 | "RTN","ORM XCONV",389 ,0) | |
4650 | ; | |
4651 | "RTN","ORM XCONV",390 ,0) | |
4652 | N ISRTC,O RDIEN,ERRO R | |
4653 | "RTN","ORM XCONV",391 ,0) | |
4654 | S (ISRTC, ORDIEN,ERR OR)="" | |
4655 | "RTN","ORM XCONV",392 ,0) | |
4656 | ; | |
4657 | "RTN","ORM XCONV",393 ,0) | |
4658 | S TOTAL=0 ,COMPLETE= 0,FAILED=0 | |
4659 | "RTN","ORM XCONV",394 ,0) | |
4660 | F S ORDI EN=$O(^OR( 100,ORDIEN )) Q:ORDIE N="" D | |
4661 | "RTN","ORM XCONV",395 ,0) | |
4662 | . ; | |
4663 | "RTN","ORM XCONV",396 ,0) | |
4664 | . ; Need to make su re the ord er is an R TC order | |
4665 | "RTN","ORM XCONV",397 ,0) | |
4666 | . I '($$I SRTCORD^OR MXTR(ORDIE N)!$$ISOLD RTC(ORDIEN )) Q | |
4667 | "RTN","ORM XCONV",398 ,0) | |
4668 | . ; | |
4669 | "RTN","ORM XCONV",399 ,0) | |
4670 | . S TOTAL =TOTAL+1 | |
4671 | "RTN","ORM XCONV",400 ,0) | |
4672 | . ; | |
4673 | "RTN","ORM XCONV",401 ,0) | |
4674 | . ; Updat e the stat us of the RTC order to "Comple te" | |
4675 | "RTN","ORM XCONV",402 ,0) | |
4676 | . I $$COM PRTC^ORMXT R(ORDIEN)= -1 D Q | |
4677 | "RTN","ORM XCONV",403 ,0) | |
4678 | . . S ERR OR="Could not get lo ck on RTC order "_OR DIEN_". Th e RTC orde r will nee d to be ma nually com pleted." | |
4679 | "RTN","ORM XCONV",404 ,0) | |
4680 | . . D ERR LOG^SDMXER RO(206,ERR OR,1) | |
4681 | "RTN","ORM XCONV",405 ,0) | |
4682 | . . S FAI LED=FAILED +1 | |
4683 | "RTN","ORM XCONV",406 ,0) | |
4684 | . ; | |
4685 | "RTN","ORM XCONV",407 ,0) | |
4686 | . S COMPL ETE=COMPLE TE+1 | |
4687 | "RTN","ORM XCONV",408 ,0) | |
4688 | Q | |
4689 | "RTN","ORM XCONV",409 ,0) | |
4690 | ISPTDEAD(D FN) ; Dete rmine if t he patient is dead | |
4691 | "RTN","ORM XCONV",410 ,0) | |
4692 | ; DFN (I, REQ) - Pat ient IEN | |
4693 | "RTN","ORM XCONV",411 ,0) | |
4694 | ; | |
4695 | "RTN","ORM XCONV",412 ,0) | |
4696 | ; Returns 1 if the patient is dead; 0 o therwise. | |
4697 | "RTN","ORM XCONV",413 ,0) | |
4698 | ; | |
4699 | "RTN","ORM XCONV",414 ,0) | |
4700 | S DFN=$G( DFN) | |
4701 | "RTN","ORM XCONV",415 ,0) | |
4702 | I ($G(DFN )'=""),($G (^DPT(DFN, .35))) Q 1 | |
4703 | "RTN","ORM XCONV",416 ,0) | |
4704 | Q 0 | |
4705 | "RTN","ORM XCONV",417 ,0) | |
4706 | ISOLDRTC(O RIEN) ; ch ecks if or der is an "old" styl e RTC | |
4707 | "RTN","ORM XCONV",418 ,0) | |
4708 | ; ORIEN - order IEN to check | |
4709 | "RTN","ORM XCONV",419 ,0) | |
4710 | ; | |
4711 | "RTN","ORM XCONV",420 ,0) | |
4712 | N ORDABLE | |
4713 | "RTN","ORM XCONV",421 ,0) | |
4714 | ; | |
4715 | "RTN","ORM XCONV",422 ,0) | |
4716 | S ORIEN=$ G(ORIEN) | |
4717 | "RTN","ORM XCONV",423 ,0) | |
4718 | I ORIEN=" " Q 0 | |
4719 | "RTN","ORM XCONV",424 ,0) | |
4720 | ; | |
4721 | "RTN","ORM XCONV",425 ,0) | |
4722 | S ORDABLE =$G(^OR(10 0,$G(ORIEN ),.1,1,0)) | |
4723 | "RTN","ORM XCONV",426 ,0) | |
4724 | Q $$INSTR ING^SDMXCO RE(ORDABLE ,$$GET^XPA R("SYS","O RMX RTC OR DERABLE ID "),",") | |
4725 | "RTN","ORM XCONV",427 ,0) | |
4726 | OLDRTCFM(C NTLCODE,OR DIEN,HLOAR R,ERROR) ; Formats o ld RTC ord ers | |
4727 | "RTN","ORM XCONV",428 ,0) | |
4728 | ; NOTE: B ased on FM TOR^ORMXFM T | |
4729 | "RTN","ORM XCONV",429 ,0) | |
4730 | ; | |
4731 | "RTN","ORM XCONV",430 ,0) | |
4732 | ; CNTLCOD E (I,REQ) - The mess age contro l code (i. e. NW, DC, CA, etc.) | |
4733 | "RTN","ORM XCONV",431 ,0) | |
4734 | ; ORDIEN (I,REQ) - Order IE N | |
4735 | "RTN","ORM XCONV",432 ,0) | |
4736 | ; HLOARR (O,REQ) - Array co ntaining t he order i nformation | |
4737 | "RTN","ORM XCONV",433 ,0) | |
4738 | ; ERROR ( O,OPT) - Contains the error reason if an error occurs | |
4739 | "RTN","ORM XCONV",434 ,0) | |
4740 | ; | |
4741 | "RTN","ORM XCONV",435 ,0) | |
4742 | ; Returns 1 if we w ere succes sfully abl e to build and forma t the HLOA RR; return s -1 other wise. | |
4743 | "RTN","ORM XCONV",436 ,0) | |
4744 | ; | |
4745 | "RTN","ORM XCONV",437 ,0) | |
4746 | N CLINIC, DIAGCNT,DI AGSEQ,DXIE N,RSNNODE, CMTNODE,CM TCNT,DXR,T OTLINES,LI NECNT,LNCO UNT | |
4747 | "RTN","ORM XCONV",438 ,0) | |
4748 | N ORTYPE, NODE,OR0,N LTFLAG,FAC ILITY,ISSC HBLE,DIAG, X,Y,DOMAIN ,DATATYPE, NLTPROMT | |
4749 | "RTN","ORM XCONV",439 ,0) | |
4750 | S (ORTYPE ,NODE,OR0, NLTFLAG,FA CILITY,ISS CHBLE,DIAG ,X,Y,DOMAI N,DATATYPE ,LNCOUNT)= "" | |
4751 | "RTN","ORM XCONV",440 ,0) | |
4752 | S (CLINIC ,DIAGCNT,D IAGSEQ,DXI EN,RSNNODE ,CMTNODE,C MTCNT,DXR, TOTLINES,L INECNT,NLT PROMT)="" | |
4753 | "RTN","ORM XCONV",441 ,0) | |
4754 | K ERROR S ERROR="" | |
4755 | "RTN","ORM XCONV",442 ,0) | |
4756 | ; | |
4757 | "RTN","ORM XCONV",443 ,0) | |
4758 | ; Validat e paramete rs | |
4759 | "RTN","ORM XCONV",444 ,0) | |
4760 | S CNTLCOD E=$G(CNTLC ODE),ORDIE N=$G(ORDIE N) | |
4761 | "RTN","ORM XCONV",445 ,0) | |
4762 | I (CNTLCO DE="")!(OR DIEN="") D Q -1 | |
4763 | "RTN","ORM XCONV",446 ,0) | |
4764 | . S ERROR ="Missing required p arameters for OLDRTC FM^ORMXCON V. Order I EN: "_ORDI EN_", Cont rol Code: "_CNTLCODE | |
4765 | "RTN","ORM XCONV",447 ,0) | |
4766 | ; | |
4767 | "RTN","ORM XCONV",448 ,0) | |
4768 | S OR0=$G( ^OR(100,OR DIEN,0)) | |
4769 | "RTN","ORM XCONV",449 ,0) | |
4770 | I OR0="" D Q -1 | |
4771 | "RTN","ORM XCONV",450 ,0) | |
4772 | . S ERROR ="The orde r does not exist in ^OR. The 0 node is m issing. Or der IEN: " _ORDIEN | |
4773 | "RTN","ORM XCONV",451 ,0) | |
4774 | ; | |
4775 | "RTN","ORM XCONV",452 ,0) | |
4776 | ; Initial ize HLOARR | |
4777 | "RTN","ORM XCONV",453 ,0) | |
4778 | D INITARR ^ORMXFMT1( .HLOARR) | |
4779 | "RTN","ORM XCONV",454 ,0) | |
4780 | ; | |
4781 | "RTN","ORM XCONV",455 ,0) | |
4782 | ; Add the order inf ormation i n HLOARR | |
4783 | "RTN","ORM XCONV",456 ,0) | |
4784 | S ORTYPE= $$TRANORCD ^ORMXFMT(2 ,"^OR(100" ) | |
4785 | "RTN","ORM XCONV",457 ,0) | |
4786 | S HLOARR( "ORDER ID" )=$P(OR0," ^",1)_$S(O RTYPE=-1:" ^",1:"^"_O RTYPE) | |
4787 | "RTN","ORM XCONV",458 ,0) | |
4788 | S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1($ P($P(OR0," ^",2),";") ) | |
4789 | "RTN","ORM XCONV",459 ,0) | |
4790 | S HLOARR( "ORDERING PHYSICIAN" )=$$FMTPRO V^ORMXFMT1 ($P(OR0,"^ ",4)) | |
4791 | "RTN","ORM XCONV",460 ,0) | |
4792 | S HLOARR( "ORDER DAT E")=$P(OR0 ,"^",7) | |
4793 | "RTN","ORM XCONV",461 ,0) | |
4794 | S HLOARR( "ORDER COD E")=CNTLCO DE | |
4795 | "RTN","ORM XCONV",462 ,0) | |
4796 | S HLOARR( "STOP DATE ")=$P(OR0, "^",9) | |
4797 | "RTN","ORM XCONV",463 ,0) | |
4798 | ; | |
4799 | "RTN","ORM XCONV",464 ,0) | |
4800 | ; Clinic | |
4801 | "RTN","ORM XCONV",465 ,0) | |
4802 | I $$FINDN ODE^ORMXFM T("LOCATIO N",.NODE,O RDIEN) D | |
4803 | "RTN","ORM XCONV",466 ,0) | |
4804 | . S CLINI C=+$G(^OR( 100,ORDIEN ,4.5,+NODE ,1)) | |
4805 | "RTN","ORM XCONV",467 ,0) | |
4806 | I CLINIC= "" S CLINI C=$P($P(OR 0,"^",10), ";") | |
4807 | "RTN","ORM XCONV",468 ,0) | |
4808 | ; | |
4809 | "RTN","ORM XCONV",469 ,0) | |
4810 | S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID") | |
4811 | "RTN","ORM XCONV",470 ,0) | |
4812 | ; | |
4813 | "RTN","ORM XCONV",471 ,0) | |
4814 | S HLOARR( "ORDERABLE ")=CLINIC_ "^"_$P($G( ^SC(CLINIC ,0)),"^",1 )_"^RTC"_F ACILITY | |
4815 | "RTN","ORM XCONV",472 ,0) | |
4816 | S HLOARR( "CLINIC")= $$FMTCLIN^ ORMXFMT1(C LINIC) | |
4817 | "RTN","ORM XCONV",473 ,0) | |
4818 | ; | |
4819 | "RTN","ORM XCONV",474 ,0) | |
4820 | D FMTORCM ^ORMXFMT1( ORDIEN,.HL OARR) | |
4821 | "RTN","ORM XCONV",475 ,0) | |
4822 | ; | |
4823 | "RTN","ORM XCONV",476 ,0) | |
4824 | ; Clinica lly indica ted date | |
4825 | "RTN","ORM XCONV",477 ,0) | |
4826 | I $$FINDN ODE^ORMXFM T("DATE",. NODE,ORDIE N) D | |
4827 | "RTN","ORM XCONV",478 ,0) | |
4828 | . S X=$G( ^OR(100,OR DIEN,4.5,+ NODE,1)) | |
4829 | "RTN","ORM XCONV",479 ,0) | |
4830 | . I '($E( X)?1A) S H LOARR("STA RT DATE")= X | |
4831 | "RTN","ORM XCONV",480 ,0) | |
4832 | . E D | |
4833 | "RTN","ORM XCONV",481 ,0) | |
4834 | . . S LNC OUNT=HLOAR R("COMMENT ",0) | |
4835 | "RTN","ORM XCONV",482 ,0) | |
4836 | . . I LNC OUNT>1 S L NCOUNT=LNC OUNT+1,HLO ARR("COMME NT",LNCOUN T)=" " | |
4837 | "RTN","ORM XCONV",483 ,0) | |
4838 | . . S LNC OUNT=LNCOU NT+1,HLOAR R("COMMENT ",LNCOUNT) ="Clinical ly Indicat ed Date (C ID) stored as: "_X | |
4839 | "RTN","ORM XCONV",484 ,0) | |
4840 | . . S HLO ARR("COMME NT",0)=LNC OUNT | |
4841 | "RTN","ORM XCONV",485 ,0) | |
4842 | ; | |
4843 | "RTN","ORM XCONV",486 ,0) | |
4844 | ; Loop th rough dial og prompt answers to find the NLT flag | |
4845 | "RTN","ORM XCONV",487 ,0) | |
4846 | S NLTPROM T=$$GET^XP AR("SYS"," ORMX RTC N LT PROMPT ID") | |
4847 | "RTN","ORM XCONV",488 ,0) | |
4848 | F LINECNT =1:1:$P($G (^OR(100,O RDIEN,4.5, 0)),"^",3) D | |
4849 | "RTN","ORM XCONV",489 ,0) | |
4850 | . I $P($G (^OR(100,O RDIEN,4.5, LINECNT,0) ),"^",2)'= NLTPROMT Q | |
4851 | "RTN","ORM XCONV",490 ,0) | |
4852 | . S NLTFL AG=+$G(^OR (100,ORDIE N,4.5,+LIN ECNT,1)) | |
4853 | "RTN","ORM XCONV",491 ,0) | |
4854 | . S HLOAR R("NO LATE R THAN")=$ S(NLTFLAG: "YES",1:"" ) ; should be a 1 fo r yes if n o later th an | |
4855 | "RTN","ORM XCONV",492 ,0) | |
4856 | Q 1 | |
4857 | "RTN","ORM XCONV",493 ,0) | |
4858 | ;;#eor# | |
4859 | "RTN","ORM XFMT") | |
4860 | 0^1^B24275 2652 | |
4861 | "RTN","ORM XFMT",1,0) | |
4862 | ORMXFMT ;M ASS/BHC - ORDER FORM ATTING;8/2 9/17;2018- 04-13 07:3 7:01;8.3;2 tH9XNTJy73 DIaCvjBRUJ VyaQ8KFfM4 tORRUJ16O1 Uw= | |
4863 | "RTN","ORM XFMT",2,0) | |
4864 | ;;3.0;Ord er Entry/R esults Rep orting;**4 70**;AUGUS T 29,2017; Build 76 | |
4865 | "RTN","ORM XFMT",3,0) | |
4866 | ;;Per VA DIRECTIVE 6402, this routine s hould not be modifie d. | |
4867 | "RTN","ORM XFMT",4,0) | |
4868 | ; Externa l Referenc es | |
4869 | "RTN","ORM XFMT",5,0) | |
4870 | ; ##### INSTRING ^SDMXCORE | |
4871 | "RTN","ORM XFMT",6,0) | |
4872 | ; ##### UP^XLFST R | |
4873 | "RTN","ORM XFMT",7,0) | |
4874 | ; 2263 GET^XPAR | |
4875 | "RTN","ORM XFMT",8,0) | |
4876 | ; ##### DT^ORCDL G2 | |
4877 | "RTN","ORM XFMT",9,0) | |
4878 | ; 10040 ^SC | |
4879 | "RTN","ORM XFMT",10,0 ) | |
4880 | ; 4685 ^ORD | |
4881 | "RTN","ORM XFMT",11,0 ) | |
4882 | ; ### ^OR | |
4883 | "RTN","ORM XFMT",12,0 ) | |
4884 | ; ### ^DVB | |
4885 | "RTN","ORM XFMT",13,0 ) | |
4886 | ; ### ^DGEN | |
4887 | "RTN","ORM XFMT",14,0 ) | |
4888 | ; ### ^GMR | |
4889 | "RTN","ORM XFMT",15,0 ) | |
4890 | ; 266 ^SD | |
4891 | "RTN","ORM XFMT",16,0 ) | |
4892 | FMTOR(CNTL CODE,ORDIE N,ORDABLE, HLOARR,ERR OR) ; Form at and bui ld the HLO ARR array from the O rder Entry Package. | |
4893 | "RTN","ORM XFMT",17,0 ) | |
4894 | ; See the format of the HLOAR R array at the top o f the rout ine. | |
4895 | "RTN","ORM XFMT",18,0 ) | |
4896 | ; | |
4897 | "RTN","ORM XFMT",19,0 ) | |
4898 | ; CNTLCOD E (I,REQ) - The mess age contro l code (i. e. NW, DC, CA, etc.) | |
4899 | "RTN","ORM XFMT",20,0 ) | |
4900 | ; ORDIEN (I,REQ) - Order IE N | |
4901 | "RTN","ORM XFMT",21,0 ) | |
4902 | ; ORDABLE (I,OPT) - Orderabl e | |
4903 | "RTN","ORM XFMT",22,0 ) | |
4904 | ; HLOARR (O,REQ) - Array co ntaining t he order i nformation | |
4905 | "RTN","ORM XFMT",23,0 ) | |
4906 | ; ERROR ( O,OPT) - Contains the error reason if an error occurs | |
4907 | "RTN","ORM XFMT",24,0 ) | |
4908 | ; | |
4909 | "RTN","ORM XFMT",25,0 ) | |
4910 | ; Returns 1 if we w ere succes sfully abl e to build and forma t the HLOA RR; return s -1 other wise. | |
4911 | "RTN","ORM XFMT",26,0 ) | |
4912 | ; | |
4913 | "RTN","ORM XFMT",27,0 ) | |
4914 | N CLINIC, DIAGCNT,DI AGSEQ,DXIE N,RSNNODE, CMTNODE,CM TCNT,DXR,T OTLINES,LI NECNT,STAT US | |
4915 | "RTN","ORM XFMT",28,0 ) | |
4916 | N ORTYPE, NODE,OR0,N LTFLAG,FAC ILITY,ISSC HBLE,DIAG, X,Y,DOMAIN ,DATATYPE | |
4917 | "RTN","ORM XFMT",29,0 ) | |
4918 | S (ORTYPE ,NODE,OR0, NLTFLAG,FA CILITY,ISS CHBLE,DIAG ,X,Y,DOMAI N,DATATYPE )="" | |
4919 | "RTN","ORM XFMT",30,0 ) | |
4920 | S (CLINIC ,DIAGCNT,D IAGSEQ,DXI EN,RSNNODE ,CMTNODE,C MTCNT,DXR, TOTLINES,L INECNT,STA TUS)="" | |
4921 | "RTN","ORM XFMT",31,0 ) | |
4922 | ; | |
4923 | "RTN","ORM XFMT",32,0 ) | |
4924 | ; Validat e paramete rs | |
4925 | "RTN","ORM XFMT",33,0 ) | |
4926 | K ERROR S ERROR="" | |
4927 | "RTN","ORM XFMT",34,0 ) | |
4928 | S CNTLCOD E=$G(CNTLC ODE),ORDIE N=$G(ORDIE N),ORDABLE =$G(ORDABL E) | |
4929 | "RTN","ORM XFMT",35,0 ) | |
4930 | I (CNTLCO DE="")!(OR DIEN="") D Q -1 | |
4931 | "RTN","ORM XFMT",36,0 ) | |
4932 | . S ERROR ="Missing required p arameters for FMTOR^ ORMXFMT. Order IEN: "_ORDIEN_ ", Control Code: "_C NTLCODE | |
4933 | "RTN","ORM XFMT",37,0 ) | |
4934 | ; | |
4935 | "RTN","ORM XFMT",38,0 ) | |
4936 | S OR0=$G( ^OR(100,OR DIEN,0)) | |
4937 | "RTN","ORM XFMT",39,0 ) | |
4938 | I OR0="" D Q -1 | |
4939 | "RTN","ORM XFMT",40,0 ) | |
4940 | . S ERROR ="The orde r does not exist in ^OR. The 0 node is m issing. O rder IEN: "_ORDIEN | |
4941 | "RTN","ORM XFMT",41,0 ) | |
4942 | ; | |
4943 | "RTN","ORM XFMT",42,0 ) | |
4944 | I ORDABLE ="" S ORDA BLE=$G(^OR (100,ORDIE N,.1,1,0)) | |
4945 | "RTN","ORM XFMT",43,0 ) | |
4946 | ; | |
4947 | "RTN","ORM XFMT",44,0 ) | |
4948 | ; Initial ize HLOARR | |
4949 | "RTN","ORM XFMT",45,0 ) | |
4950 | D INITARR ^ORMXFMT1( .HLOARR) | |
4951 | "RTN","ORM XFMT",46,0 ) | |
4952 | ; | |
4953 | "RTN","ORM XFMT",47,0 ) | |
4954 | ; Add the order inf ormation i n HLOARR | |
4955 | "RTN","ORM XFMT",48,0 ) | |
4956 | S ORTYPE= $$TRANORCD (2,"^OR(10 0") | |
4957 | "RTN","ORM XFMT",49,0 ) | |
4958 | S HLOARR( "ORDER ID" )=$P(OR0," ^",1)_$S(O RTYPE=-1:" ^",1:"^"_O RTYPE) | |
4959 | "RTN","ORM XFMT",50,0 ) | |
4960 | S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1($ P($P(OR0," ^",2),";") ) | |
4961 | "RTN","ORM XFMT",51,0 ) | |
4962 | S HLOARR( "ORDERING PHYSICIAN" )=$$FMTPRO V^ORMXFMT1 ($P(OR0,"^ ",4)) | |
4963 | "RTN","ORM XFMT",52,0 ) | |
4964 | S HLOARR( "ORDER DAT E")=$P(OR0 ,"^",7) | |
4965 | "RTN","ORM XFMT",53,0 ) | |
4966 | S HLOARR( "ORDER COD E")=CNTLCO DE | |
4967 | "RTN","ORM XFMT",54,0 ) | |
4968 | S HLOARR( "STOP DATE ")=$P(OR0, "^",9) | |
4969 | "RTN","ORM XFMT",55,0 ) | |
4970 | ; | |
4971 | "RTN","ORM XFMT",56,0 ) | |
4972 | ; RTC spe cific proc essing if the order is an RTC order | |
4973 | "RTN","ORM XFMT",57,0 ) | |
4974 | I $$ISRTC ORD^ORMXTR (ORDIEN) D FMTRTC(OR DIEN,.HLOA RR) | |
4975 | "RTN","ORM XFMT",58,0 ) | |
4976 | E D | |
4977 | "RTN","ORM XFMT",59,0 ) | |
4978 | . I ORDAB LE'="" S H LOARR("ORD ERABLE")=O RDABLE_"^" _$P($G(^OR D(101.43,O RDABLE,0)) ,"^")_$S(O RTYPE=-1:" ",1:"^"_OR TYPE) | |
4979 | "RTN","ORM XFMT",60,0 ) | |
4980 | . S HLOAR R("START D ATE")=$P(O R0,"^",8) | |
4981 | "RTN","ORM XFMT",61,0 ) | |
4982 | . S CLINI C=$P($P(OR 0,"^",10), ";") | |
4983 | "RTN","ORM XFMT",62,0 ) | |
4984 | . S HLOAR R("CLINIC" )=$$FMTCLI N^ORMXFMT1 (CLINIC) | |
4985 | "RTN","ORM XFMT",63,0 ) | |
4986 | . S STATU S=$P($G(^O R(100,ORDI EN,3)),"^" ,3) | |
4987 | "RTN","ORM XFMT",64,0 ) | |
4988 | . I STATU S'="" S HL OARR("CPRS STATUS")= $P($G(^ORD (100.01,ST ATUS,0))," ^",1) | |
4989 | "RTN","ORM XFMT",65,0 ) | |
4990 | ; | |
4991 | "RTN","ORM XFMT",66,0 ) | |
4992 | ; Add the diagnosis informati on in HLOA RR | |
4993 | "RTN","ORM XFMT",67,0 ) | |
4994 | S DIAGCNT =1,DIAGSEQ ="" | |
4995 | "RTN","ORM XFMT",68,0 ) | |
4996 | F S DIAG SEQ=$O(^OR (100,ORDIE N,5.1,DIAG SEQ)) Q:DI AGSEQ="" D | |
4997 | "RTN","ORM XFMT",69,0 ) | |
4998 | . ; | |
4999 | "RTN","ORM XFMT",70,0 ) | |
5000 | . ; Get t he diagnos es for an order | |
5001 | "RTN","ORM XFMT",71,0 ) | |
5002 | . S DXIEN =$P($G(^OR (100,ORDIE N,5.1,DIAG SEQ,0)),"^ ") ; DXIEN =pointer t o diagnosi s (ICD9) f ile #80 | |
5003 | "RTN","ORM XFMT",72,0 ) | |
5004 | . S DIAG= $$FMTDIAG^ ORMXFMT1(D XIEN,ORDIE N) | |
5005 | "RTN","ORM XFMT",73,0 ) | |
5006 | . I DIAG' ="" D | |
5007 | "RTN","ORM XFMT",74,0 ) | |
5008 | . . S HLO ARR("DIAGN OSIS",DIAG CNT)=DIAG | |
5009 | "RTN","ORM XFMT",75,0 ) | |
5010 | . . S DIA GCNT=DIAGC NT+1 | |
5011 | "RTN","ORM XFMT",76,0 ) | |
5012 | ; | |
5013 | "RTN","ORM XFMT",77,0 ) | |
5014 | S HLOARR( "DIAGNOSIS ",0)=DIAGC NT-1 | |
5015 | "RTN","ORM XFMT",78,0 ) | |
5016 | ; | |
5017 | "RTN","ORM XFMT",79,0 ) | |
5018 | S LINECNT =1 | |
5019 | "RTN","ORM XFMT",80,0 ) | |
5020 | ; | |
5021 | "RTN","ORM XFMT",81,0 ) | |
5022 | ; Add the reason fo r study in formation in HLOARR | |
5023 | "RTN","ORM XFMT",82,0 ) | |
5024 | I $$FINDN ODE("REASO N",.RSNNOD E,ORDIEN) D | |
5025 | "RTN","ORM XFMT",83,0 ) | |
5026 | . ; | |
5027 | "RTN","ORM XFMT",84,0 ) | |
5028 | . ; Reaso n for stud y will onl y have 1 l ine of tex t. | |
5029 | "RTN","ORM XFMT",85,0 ) | |
5030 | . S HLOAR R("REASON FOR STUDY" ,LINECNT)= "REASON FO R STUDY",L INECNT=LIN ECNT+1 | |
5031 | "RTN","ORM XFMT",86,0 ) | |
5032 | . S HLOAR R("REASON FOR STUDY" ,LINECNT)= $G(^OR(100 ,ORDIEN,4. 5,+RSNNODE ,1)),LINEC NT=LINECNT +1 | |
5033 | "RTN","ORM XFMT",87,0 ) | |
5034 | ; | |
5035 | "RTN","ORM XFMT",88,0 ) | |
5036 | S HLOARR( "REASON FO R STUDY",0 )=LINECNT- 1 | |
5037 | "RTN","ORM XFMT",89,0 ) | |
5038 | ; | |
5039 | "RTN","ORM XFMT",90,0 ) | |
5040 | ; Add the comments in HLOARR | |
5041 | "RTN","ORM XFMT",91,0 ) | |
5042 | D FMTORCM ^ORMXFMT1( ORDIEN,.HL OARR) | |
5043 | "RTN","ORM XFMT",92,0 ) | |
5044 | ; | |
5045 | "RTN","ORM XFMT",93,0 ) | |
5046 | Q 1 | |
5047 | "RTN","ORM XFMT",94,0 ) | |
5048 | FMTGMRC(CN TLCODE,GMR IEN,ORDABL E,HLOARR,E RROR) ; Fo rmat and b uild the H LOARR arra y from the Consult P ackage. | |
5049 | "RTN","ORM XFMT",95,0 ) | |
5050 | ; See the format of the HLOAR R array at the top o f the rout ine. | |
5051 | "RTN","ORM XFMT",96,0 ) | |
5052 | ; | |
5053 | "RTN","ORM XFMT",97,0 ) | |
5054 | ; CNTLCOD E (I,REQ) - The mess age contro l code (i. e. NW, DC, CA, etc.) | |
5055 | "RTN","ORM XFMT",98,0 ) | |
5056 | ; GMRIEN (I,REQ) - Consult IEN | |
5057 | "RTN","ORM XFMT",99,0 ) | |
5058 | ; ORDABLE (I,OPT) - Orderabl e | |
5059 | "RTN","ORM XFMT",100, 0) | |
5060 | ; HLOARR (IO,REQ) - Array co ntaining t he order i nformation | |
5061 | "RTN","ORM XFMT",101, 0) | |
5062 | ; ERROR ( O,OPT) - Contains the error reason if an error occurs | |
5063 | "RTN","ORM XFMT",102, 0) | |
5064 | ; | |
5065 | "RTN","ORM XFMT",103, 0) | |
5066 | ; Returns 1 if we w ere sucess fully able to build and format the HLOAR R; returns -1 otherw ise. | |
5067 | "RTN","ORM XFMT",104, 0) | |
5068 | ; | |
5069 | "RTN","ORM XFMT",105, 0) | |
5070 | N CLINIC, ORDIEN,RSN CNT,NTECNT ,CMTNODE,C MTCNT,TOTL INES,DIAGC NT,DXIEN,C MTSTS,ORTY PE,DIAG,UR GENCY,STAT US | |
5071 | "RTN","ORM XFMT",106, 0) | |
5072 | S (CLINIC ,ORDIEN,RS NCNT,NTECN T,CMTNODE, CMTCNT,TOT LINES,DIAG CNT,DXIEN, CMTSTS,ORT YPE,DIAG,U RGENCY,STA TUS)="" | |
5073 | "RTN","ORM XFMT",107, 0) | |
5074 | ; | |
5075 | "RTN","ORM XFMT",108, 0) | |
5076 | ; Validat e paramete rs | |
5077 | "RTN","ORM XFMT",109, 0) | |
5078 | K ERROR S ERROR="" | |
5079 | "RTN","ORM XFMT",110, 0) | |
5080 | S CNTLCOD E=$G(CNTLC ODE),GMRIE N=$G(GMRIE N),ORDABLE =$G(ORDABL E) | |
5081 | "RTN","ORM XFMT",111, 0) | |
5082 | I (CNTLCO DE="")!(GM RIEN="") D Q -1 | |
5083 | "RTN","ORM XFMT",112, 0) | |
5084 | . S ERROR ="Missing required p arameters for FMTGMR C^ORMXFMT. Consult IEN: "_GMR IEN_", Con trol Code: "_CNTLCOD E | |
5085 | "RTN","ORM XFMT",113, 0) | |
5086 | ; | |
5087 | "RTN","ORM XFMT",114, 0) | |
5088 | S ORDIEN= $P($G(^GMR (123,GMRIE N,0)),"^", 3) | |
5089 | "RTN","ORM XFMT",115, 0) | |
5090 | I ORDIEN= "" D Q -1 | |
5091 | "RTN","ORM XFMT",116, 0) | |
5092 | . S ERROR ="Can not find the a ssociated order for the consul t in ^OR. Consult IE N: "_GMRIE N | |
5093 | "RTN","ORM XFMT",117, 0) | |
5094 | ; | |
5095 | "RTN","ORM XFMT",118, 0) | |
5096 | S OR0=$G( ^OR(100,OR DIEN,0)) | |
5097 | "RTN","ORM XFMT",119, 0) | |
5098 | I OR0="" D Q -1 | |
5099 | "RTN","ORM XFMT",120, 0) | |
5100 | . S ERROR ="The orde r does not exist in ^OR. The 0 node is m issing. Co nsult IEN: "_GMRIEN_ ", Order I EN: "_ORDI EN | |
5101 | "RTN","ORM XFMT",121, 0) | |
5102 | ; | |
5103 | "RTN","ORM XFMT",122, 0) | |
5104 | I ORDABLE ="" S ORDA BLE=$G(^OR (100,ORDIE N,.1,1,0)) | |
5105 | "RTN","ORM XFMT",123, 0) | |
5106 | ; | |
5107 | "RTN","ORM XFMT",124, 0) | |
5108 | ; Initial ize HLOARR | |
5109 | "RTN","ORM XFMT",125, 0) | |
5110 | D INITARR ^ORMXFMT1( .HLOARR) | |
5111 | "RTN","ORM XFMT",126, 0) | |
5112 | ; | |
5113 | "RTN","ORM XFMT",127, 0) | |
5114 | ; Add the order inf ormation i n HLOARR | |
5115 | "RTN","ORM XFMT",128, 0) | |
5116 | S ORTYPE= $$TRANORCD (2,"^OR(10 0") | |
5117 | "RTN","ORM XFMT",129, 0) | |
5118 | S HLOARR( "ORDER ID" )=ORDIEN_$ S(ORTYPE=- 1:"",1:"^" _ORTYPE) | |
5119 | "RTN","ORM XFMT",130, 0) | |
5120 | S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1($ P($P(OR0," ^",2),";") ) | |
5121 | "RTN","ORM XFMT",131, 0) | |
5122 | I ORDABLE '="" S HLO ARR("ORDER ABLE")=ORD ABLE_"^"_$ P($G(^ORD( 101.43,ORD ABLE,0))," ^")_$S(ORT YPE=-1:"", 1:"^"_ORTY PE) | |
5123 | "RTN","ORM XFMT",132, 0) | |
5124 | ; | |
5125 | "RTN","ORM XFMT",133, 0) | |
5126 | S HLOARR( "ORDERING PHYSICIAN" )=$$FMTPRO V^ORMXFMT1 ($P(OR0,"^ ",4)) | |
5127 | "RTN","ORM XFMT",134, 0) | |
5128 | S HLOARR( "ORDER DAT E")=$P(OR0 ,"^",7) | |
5129 | "RTN","ORM XFMT",135, 0) | |
5130 | S HLOARR( "ORDER COD E")=CNTLCO DE | |
5131 | "RTN","ORM XFMT",136, 0) | |
5132 | ; | |
5133 | "RTN","ORM XFMT",137, 0) | |
5134 | ; Set the CPRS stat us | |
5135 | "RTN","ORM XFMT",138, 0) | |
5136 | S STATUS= $P($G(^GMR (123,GMRIE N,0)),"^", 12) | |
5137 | "RTN","ORM XFMT",139, 0) | |
5138 | I STATUS' ="" S HLOA RR("CPRS S TATUS")=$P ($G(^ORD(1 00.01,STAT US,0)),"^" ,1) | |
5139 | "RTN","ORM XFMT",140, 0) | |
5140 | ; | |
5141 | "RTN","ORM XFMT",141, 0) | |
5142 | ; If the control co de is "CA" (or cance l), set th e cancel r eason | |
5143 | "RTN","ORM XFMT",142, 0) | |
5144 | I CNTLCOD E="CA" D | |
5145 | "RTN","ORM XFMT",143, 0) | |
5146 | . ; | |
5147 | "RTN","ORM XFMT",144, 0) | |
5148 | . ; Set a specific cancel rea son for fo rwards | |
5149 | "RTN","ORM XFMT",145, 0) | |
5150 | . I $$INS TRING^SDMX CORE($P($G (^GMR(123, $G(GMRIEN) ,0)),"^",1 3),"17,25" ,",") S HL OARR("CANC EL REASON" )="FWD" | |
5151 | "RTN","ORM XFMT",146, 0) | |
5152 | . E S HL OARR("CANC EL REASON" )="" | |
5153 | "RTN","ORM XFMT",147, 0) | |
5154 | ; | |
5155 | "RTN","ORM XFMT",148, 0) | |
5156 | S HLOARR( "START DAT E")=$P($G( ^GMR(123,G MRIEN,0)), "^",24) | |
5157 | "RTN","ORM XFMT",149, 0) | |
5158 | I $G(HLOA RR("START DATE"))="" S HLOARR( "START DAT E")=$P(OR0 ,"^",8) ; Default th e order st art date i f no CID | |
5159 | "RTN","ORM XFMT",150, 0) | |
5160 | S HLOARR( "STOP DATE ")=$P(OR0, "^",9) | |
5161 | "RTN","ORM XFMT",151, 0) | |
5162 | ; | |
5163 | "RTN","ORM XFMT",152, 0) | |
5164 | ; URGENCY | |
5165 | "RTN","ORM XFMT",153, 0) | |
5166 | S URGENCY =$P($G(^GM R(123,GMRI EN,0)),"^" ,9) | |
5167 | "RTN","ORM XFMT",154, 0) | |
5168 | I URGENCY '="" S HLO ARR("URGEN CY")=$P($G (^ORD(101, URGENCY,0) ),"^",2) | |
5169 | "RTN","ORM XFMT",155, 0) | |
5170 | ; | |
5171 | "RTN","ORM XFMT",156, 0) | |
5172 | ; Add the clinic in formation in HLOARR | |
5173 | "RTN","ORM XFMT",157, 0) | |
5174 | S CLINIC= $P($P(OR0, "^",10),"; ") | |
5175 | "RTN","ORM XFMT",158, 0) | |
5176 | S HLOARR( "CLINIC")= $$FMTCLIN^ ORMXFMT1(C LINIC) | |
5177 | "RTN","ORM XFMT",159, 0) | |
5178 | ; | |
5179 | "RTN","ORM XFMT",160, 0) | |
5180 | ; Add the diagnosis informati on in HLOA RR | |
5181 | "RTN","ORM XFMT",161, 0) | |
5182 | S DIAGCNT =1 | |
5183 | "RTN","ORM XFMT",162, 0) | |
5184 | I $D(^GMR (123,"AC", ORDIEN)) D | |
5185 | "RTN","ORM XFMT",163, 0) | |
5186 | . S DXIEN =$P($G(^GM R(123,GMRI EN,30.1)), "^") ; DXI EN=pointer to diagno sis (ICD9) file #80 | |
5187 | "RTN","ORM XFMT",164, 0) | |
5188 | . S DIAG= $$FMTDIAG^ ORMXFMT1(D XIEN,ORDIE N) | |
5189 | "RTN","ORM XFMT",165, 0) | |
5190 | . I DIAG' ="" D | |
5191 | "RTN","ORM XFMT",166, 0) | |
5192 | . . S HLO ARR("DIAGN OSIS",DIAG CNT)=DIAG | |
5193 | "RTN","ORM XFMT",167, 0) | |
5194 | . . S DIA GCNT=DIAGC NT+1 | |
5195 | "RTN","ORM XFMT",168, 0) | |
5196 | ; | |
5197 | "RTN","ORM XFMT",169, 0) | |
5198 | S HLOARR( "DIAGNOSIS ",0)=DIAGC NT-1 | |
5199 | "RTN","ORM XFMT",170, 0) | |
5200 | ; | |
5201 | "RTN","ORM XFMT",171, 0) | |
5202 | ; Add the reason fo r study in formation in HLOARR | |
5203 | "RTN","ORM XFMT",172, 0) | |
5204 | S LINECNT =1 | |
5205 | "RTN","ORM XFMT",173, 0) | |
5206 | S TOTLINE S=$P($G(^G MR(123,GMR IEN,20,0)) ,"^",3) | |
5207 | "RTN","ORM XFMT",174, 0) | |
5208 | I TOTLINE S'="" D | |
5209 | "RTN","ORM XFMT",175, 0) | |
5210 | . ; | |
5211 | "RTN","ORM XFMT",176, 0) | |
5212 | . ; Loop through th e reason f or study a nd add to the HLOARR | |
5213 | "RTN","ORM XFMT",177, 0) | |
5214 | . S HLOAR R("REASON FOR STUDY" ,LINECNT)= "REASON FO R STUDY",L INECNT=LIN ECNT+1 | |
5215 | "RTN","ORM XFMT",178, 0) | |
5216 | . F RSNCN T=1:1:TOTL INES D | |
5217 | "RTN","ORM XFMT",179, 0) | |
5218 | . . S HLO ARR("REASO N FOR STUD Y",LINECNT )=$G(^GMR( 123,GMRIEN ,20,RSNCNT ,0)),LINEC NT=LINECNT +1 | |
5219 | "RTN","ORM XFMT",180, 0) | |
5220 | ; | |
5221 | "RTN","ORM XFMT",181, 0) | |
5222 | S HLOARR( "REASON FO R STUDY",0 )=LINECNT- 1 | |
5223 | "RTN","ORM XFMT",182, 0) | |
5224 | ; | |
5225 | "RTN","ORM XFMT",183, 0) | |
5226 | ; Add the comments in HLOARR | |
5227 | "RTN","ORM XFMT",184, 0) | |
5228 | D FMTGMRC M^ORMXFMT1 (ORDIEN,GM RIEN,.HLOA RR) | |
5229 | "RTN","ORM XFMT",185, 0) | |
5230 | ; | |
5231 | "RTN","ORM XFMT",186, 0) | |
5232 | Q 1 | |
5233 | "RTN","ORM XFMT",187, 0) | |
5234 | FMTFWGMR(C NTLCODE,GM RIEN,ORDAB LE,HLOARR, ERROR) ; F ormat and build the HLOARR arr ay from th e Consult Package. | |
5235 | "RTN","ORM XFMT",188, 0) | |
5236 | ; This ro utine is s pecific to forwards and does n ot rely on data from ^OR. See | |
5237 | "RTN","ORM XFMT",189, 0) | |
5238 | ; the for mat of the HLOARR ar ray at the top of th e routine. | |
5239 | "RTN","ORM XFMT",190, 0) | |
5240 | ; | |
5241 | "RTN","ORM XFMT",191, 0) | |
5242 | ; CNTLCOD E (I,REQ) - The mess age contro l code (i. e. NW, DC, CA, etc.) | |
5243 | "RTN","ORM XFMT",192, 0) | |
5244 | ; GMRIEN (I,REQ) - Consult IEN | |
5245 | "RTN","ORM XFMT",193, 0) | |
5246 | ; ORDABLE (I,OPT) - Orderabl e | |
5247 | "RTN","ORM XFMT",194, 0) | |
5248 | ; HLOARR (IO,REQ) - Array co ntaining t he order i nformation | |
5249 | "RTN","ORM XFMT",195, 0) | |
5250 | ; ERROR ( O,OPT) - Contains the error reason if an error occurs | |
5251 | "RTN","ORM XFMT",196, 0) | |
5252 | ; | |
5253 | "RTN","ORM XFMT",197, 0) | |
5254 | ; Returns 1 if we w ere sucess fully able to build and format the HLOAR R; returns -1 otherw ise. | |
5255 | "RTN","ORM XFMT",198, 0) | |
5256 | ; | |
5257 | "RTN","ORM XFMT",199, 0) | |
5258 | N CLINIC, RSNCNT,NTE CNT,CMTNOD E,CMTCNT,T OTLINES,DI AGCNT,DXIE N,CMTSTS,O RTYPE,DIAG ,URGENCY,S TATUS,REQS ERV,GMR0,P ROVNAME | |
5259 | "RTN","ORM XFMT",200, 0) | |
5260 | S (CLINIC ,RSNCNT,NT ECNT,CMTNO DE,CMTCNT, TOTLINES,D IAGCNT,DXI EN,CMTSTS, ORTYPE,DIA G,URGENCY, STATUS,REQ SERV,GMR0, PROVNAME)= "" | |
5261 | "RTN","ORM XFMT",201, 0) | |
5262 | ; | |
5263 | "RTN","ORM XFMT",202, 0) | |
5264 | ; Validat e paramete rs | |
5265 | "RTN","ORM XFMT",203, 0) | |
5266 | K ERROR S ERROR="" | |
5267 | "RTN","ORM XFMT",204, 0) | |
5268 | S CNTLCOD E=$G(CNTLC ODE),GMRIE N=$G(GMRIE N),ORDABLE =$G(ORDABL E) | |
5269 | "RTN","ORM XFMT",205, 0) | |
5270 | I (CNTLCO DE="")!(GM RIEN="") D Q -1 | |
5271 | "RTN","ORM XFMT",206, 0) | |
5272 | . S ERROR ="Missing required p arameters for FMTGMR C^ORMXFMT. Consult IEN: "_GMR IEN_", Con trol Code: "_CNTLCOD E | |
5273 | "RTN","ORM XFMT",207, 0) | |
5274 | ; | |
5275 | "RTN","ORM XFMT",208, 0) | |
5276 | I ORDABLE ="" D | |
5277 | "RTN","ORM XFMT",209, 0) | |
5278 | . S REQSE RV=$P($G(^ GMR(123,GM RIEN,0))," ^",5) | |
5279 | "RTN","ORM XFMT",210, 0) | |
5280 | . S ORDAB LE=$$ORDIT EM^ORM("^^ ^"_REQSERV _"^^99CON" ) | |
5281 | "RTN","ORM XFMT",211, 0) | |
5282 | ; | |
5283 | "RTN","ORM XFMT",212, 0) | |
5284 | S GMR0=$G (^GMR(123, GMRIEN,0)) | |
5285 | "RTN","ORM XFMT",213, 0) | |
5286 | I GMR0="" D Q -1 | |
5287 | "RTN","ORM XFMT",214, 0) | |
5288 | . S ERROR ="The 0 no de is miss ing in ^GM R for the consult. C onsult IEN : "_GMRIEN _", Contro l Code: "_ CNTLCODE | |
5289 | "RTN","ORM XFMT",215, 0) | |
5290 | ; | |
5291 | "RTN","ORM XFMT",216, 0) | |
5292 | ; Initial ize HLOARR | |
5293 | "RTN","ORM XFMT",217, 0) | |
5294 | D INITARR ^ORMXFMT1( .HLOARR) | |
5295 | "RTN","ORM XFMT",218, 0) | |
5296 | ; | |
5297 | "RTN","ORM XFMT",219, 0) | |
5298 | ; Add the order inf ormation i n HLOARR | |
5299 | "RTN","ORM XFMT",220, 0) | |
5300 | S ORTYPE= $$TRANORCD (2,"^GMR(1 23") | |
5301 | "RTN","ORM XFMT",221, 0) | |
5302 | S HLOARR( "ORDER ID" )=GMRIEN_$ S(ORTYPE=- 1:"",1:"^" _ORTYPE) | |
5303 | "RTN","ORM XFMT",222, 0) | |
5304 | S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1($ P($P(GMR0, "^",2),";" )) | |
5305 | "RTN","ORM XFMT",223, 0) | |
5306 | I ORDABLE '="" S HLO ARR("ORDER ABLE")=ORD ABLE_"^"_$ P($G(^ORD( 101.43,ORD ABLE,0))," ^")_$S(ORT YPE=-1:"", 1:"^"_ORTY PE) | |
5307 | "RTN","ORM XFMT",224, 0) | |
5308 | ; | |
5309 | "RTN","ORM XFMT",225, 0) | |
5310 | S PROVNAM E=$P($G(^G MR(123,GMR IEN,12))," ^",6) | |
5311 | "RTN","ORM XFMT",226, 0) | |
5312 | S HLOARR( "ORDERING PHYSICIAN" )="^"_$P(P ROVNAME,", ",1)_"^"_$ P(PROVNAME ,",",2)_"^ " | |
5313 | "RTN","ORM XFMT",227, 0) | |
5314 | S HLOARR( "ORDER DAT E")=$P(GMR 0,"^",7) | |
5315 | "RTN","ORM XFMT",228, 0) | |
5316 | S HLOARR( "ORDER COD E")=CNTLCO DE | |
5317 | "RTN","ORM XFMT",229, 0) | |
5318 | ; | |
5319 | "RTN","ORM XFMT",230, 0) | |
5320 | ; Set the CPRS stat us | |
5321 | "RTN","ORM XFMT",231, 0) | |
5322 | S STATUS= $P($G(^GMR (123,GMRIE N,0)),"^", 12) | |
5323 | "RTN","ORM XFMT",232, 0) | |
5324 | I STATUS' ="" S HLOA RR("CPRS S TATUS")=$P ($G(^ORD(1 00.01,STAT US,0)),"^" ,1) | |
5325 | "RTN","ORM XFMT",233, 0) | |
5326 | ; | |
5327 | "RTN","ORM XFMT",234, 0) | |
5328 | ; If the control co de is "CA" (or cance l), set th e cancel r eason | |
5329 | "RTN","ORM XFMT",235, 0) | |
5330 | I CNTLCOD E="CA" D | |
5331 | "RTN","ORM XFMT",236, 0) | |
5332 | . ; | |
5333 | "RTN","ORM XFMT",237, 0) | |
5334 | . ; Set a specific cancel rea son for fo rwards | |
5335 | "RTN","ORM XFMT",238, 0) | |
5336 | . I $$INS TRING^SDMX CORE($P($G (^GMR(123, $G(GMRIEN) ,0)),"^",1 3),"17,25" ,",") S HL OARR("CANC EL REASON" )="FWD" | |
5337 | "RTN","ORM XFMT",239, 0) | |
5338 | . E S HL OARR("CANC EL REASON" )="" | |
5339 | "RTN","ORM XFMT",240, 0) | |
5340 | ; | |
5341 | "RTN","ORM XFMT",241, 0) | |
5342 | S HLOARR( "START DAT E")=$P($G( ^GMR(123,G MRIEN,0)), "^",24) | |
5343 | "RTN","ORM XFMT",242, 0) | |
5344 | ; | |
5345 | "RTN","ORM XFMT",243, 0) | |
5346 | ; URGENCY | |
5347 | "RTN","ORM XFMT",244, 0) | |
5348 | S URGENCY =$P($G(^GM R(123,GMRI EN,0)),"^" ,9) | |
5349 | "RTN","ORM XFMT",245, 0) | |
5350 | I URGENCY '="" S HLO ARR("URGEN CY")=$P($G (^ORD(101, URGENCY,0) ),"^",2) | |
5351 | "RTN","ORM XFMT",246, 0) | |
5352 | ; | |
5353 | "RTN","ORM XFMT",247, 0) | |
5354 | ; Add the clinic in formation in HLOARR | |
5355 | "RTN","ORM XFMT",248, 0) | |
5356 | ; S CLINI C=$P($P(OR 0,"^",10), ";") | |
5357 | "RTN","ORM XFMT",249, 0) | |
5358 | ; S HLOAR R("CLINIC" )=$$FMTCLI N^ORMXFMT1 (CLINIC) | |
5359 | "RTN","ORM XFMT",250, 0) | |
5360 | ; | |
5361 | "RTN","ORM XFMT",251, 0) | |
5362 | ; Add the reason fo r study in formation in HLOARR | |
5363 | "RTN","ORM XFMT",252, 0) | |
5364 | S LINECNT =1 | |
5365 | "RTN","ORM XFMT",253, 0) | |
5366 | S TOTLINE S=$P($G(^G MR(123,GMR IEN,20,0)) ,"^",3) | |
5367 | "RTN","ORM XFMT",254, 0) | |
5368 | I TOTLINE S'="" D | |
5369 | "RTN","ORM XFMT",255, 0) | |
5370 | . ; | |
5371 | "RTN","ORM XFMT",256, 0) | |
5372 | . ; Loop through th e reason f or study a nd add to the HLOARR | |
5373 | "RTN","ORM XFMT",257, 0) | |
5374 | . S HLOAR R("REASON FOR STUDY" ,LINECNT)= "REASON FO R STUDY",L INECNT=LIN ECNT+1 | |
5375 | "RTN","ORM XFMT",258, 0) | |
5376 | . F RSNCN T=1:1:TOTL INES D | |
5377 | "RTN","ORM XFMT",259, 0) | |
5378 | . . S HLO ARR("REASO N FOR STUD Y",LINECNT )=$G(^GMR( 123,GMRIEN ,20,RSNCNT ,0)),LINEC NT=LINECNT +1 | |
5379 | "RTN","ORM XFMT",260, 0) | |
5380 | ; | |
5381 | "RTN","ORM XFMT",261, 0) | |
5382 | S HLOARR( "REASON FO R STUDY",0 )=LINECNT- 1 | |
5383 | "RTN","ORM XFMT",262, 0) | |
5384 | ; | |
5385 | "RTN","ORM XFMT",263, 0) | |
5386 | ; Add the comments in HLOARR | |
5387 | "RTN","ORM XFMT",264, 0) | |
5388 | D FMTGMRC M^ORMXFMT1 ("",GMRIEN ,.HLOARR) | |
5389 | "RTN","ORM XFMT",265, 0) | |
5390 | ; | |
5391 | "RTN","ORM XFMT",266, 0) | |
5392 | Q 1 | |
5393 | "RTN","ORM XFMT",267, 0) | |
5394 | FMTCP(CNTL CODE,DVBIE N,HLOARR,E RROR) ; Fo rmat and b uild the H LOARR arra y from the C&P Packa ge. See | |
5395 | "RTN","ORM XFMT",268, 0) | |
5396 | ; the for mat of the HLOARR ar ray at the top of th e routine. | |
5397 | "RTN","ORM XFMT",269, 0) | |
5398 | ; | |
5399 | "RTN","ORM XFMT",270, 0) | |
5400 | ; CNTLCOD E (I,REQ) - The mess age contro l code (i. e. NW, DC, CA, etc.) | |
5401 | "RTN","ORM XFMT",271, 0) | |
5402 | ; DVBIEN (I,REQ) - C&P IEN | |
5403 | "RTN","ORM XFMT",272, 0) | |
5404 | ; HLOARR (IO,REQ) - Array co ntaining t he order i nformation | |
5405 | "RTN","ORM XFMT",273, 0) | |
5406 | ; ERROR ( O,OPT) - Contains the error reason if an error occurs | |
5407 | "RTN","ORM XFMT",274, 0) | |
5408 | ; | |
5409 | "RTN","ORM XFMT",275, 0) | |
5410 | ; Returns 1 if we w ere sucess fully able to build and format the HLOAR R; returns -1 otherw ise. | |
5411 | "RTN","ORM XFMT",276, 0) | |
5412 | ; | |
5413 | "RTN","ORM XFMT",277, 0) | |
5414 | N DVB0,CP 0,ORTYPE,L INE,FACILI TY,LINECNT ,REQIEN | |
5415 | "RTN","ORM XFMT",278, 0) | |
5416 | S (DVB0,C P0,ORTYPE, LINE,FACIL ITY,LINECN T,REQIEN)= "" | |
5417 | "RTN","ORM XFMT",279, 0) | |
5418 | ; | |
5419 | "RTN","ORM XFMT",280, 0) | |
5420 | ; Validat e paramete rs | |
5421 | "RTN","ORM XFMT",281, 0) | |
5422 | K ERROR S ERROR="" | |
5423 | "RTN","ORM XFMT",282, 0) | |
5424 | S CNTLCOD E=$G(CNTLC ODE),DVBIE N=$G(DVBIE N) | |
5425 | "RTN","ORM XFMT",283, 0) | |
5426 | I (CNTLCO DE="")!(DV BIEN="") D Q -1 | |
5427 | "RTN","ORM XFMT",284, 0) | |
5428 | . S ERROR ="Missing required p arameters for FMTCP^ ORMXFMT. C &P IEN: "_ DVBIEN_", Control Co de: "_CNTL CODE | |
5429 | "RTN","ORM XFMT",285, 0) | |
5430 | ; | |
5431 | "RTN","ORM XFMT",286, 0) | |
5432 | S DVB0=$G (^DVB(396. 4,DVBIEN,0 )) | |
5433 | "RTN","ORM XFMT",287, 0) | |
5434 | I DVB0="" D Q -1 | |
5435 | "RTN","ORM XFMT",288, 0) | |
5436 | . S ERROR ="The C&P request do es not exi st in ^DVB . The 0 no de is miss ing. C&P I EN: "_DVBI EN | |
5437 | "RTN","ORM XFMT",289, 0) | |
5438 | ; | |
5439 | "RTN","ORM XFMT",290, 0) | |
5440 | ; Initial ize HLOARR | |
5441 | "RTN","ORM XFMT",291, 0) | |
5442 | D INITARR ^ORMXFMT1( .HLOARR) | |
5443 | "RTN","ORM XFMT",292, 0) | |
5444 | ; | |
5445 | "RTN","ORM XFMT",293, 0) | |
5446 | S CP0=$G( ^DVB(396.3 ,$P(DVB0," ^",2),0)) | |
5447 | "RTN","ORM XFMT",294, 0) | |
5448 | S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID") | |
5449 | "RTN","ORM XFMT",295, 0) | |
5450 | S ORTYPE= $$TRANORCD (2,"^DVB(3 96.4") | |
5451 | "RTN","ORM XFMT",296, 0) | |
5452 | ; | |
5453 | "RTN","ORM XFMT",297, 0) | |
5454 | S HLOARR( "ORDER ID" )=DVBIEN_$ S(ORTYPE=- 1:"",1:"^" _ORTYPE) | |
5455 | "RTN","ORM XFMT",298, 0) | |
5456 | S HLOARR( "ORDERABLE ")=$P(DVB0 ,"^",3)_"^ "_$P($G(^D VB(396.6,$ P(DVB0,"^" ,3),0)),"^ ",1)_$S(OR TYPE=-1:"" ,1:"^"_ORT YPE) | |
5457 | "RTN","ORM XFMT",299, 0) | |
5458 | S HLOARR( "CLINIC")= $$GET^XPAR ("SYS","OR MX C&P DEP ARTMENT ID ")_"^"_FAC ILITY_"^^S C"_FACILIT Y | |
5459 | "RTN","ORM XFMT",300, 0) | |
5460 | S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1($ P(CP0,"^", 1)) | |
5461 | "RTN","ORM XFMT",301, 0) | |
5462 | S HLOARR( "ORDER COD E")=CNTLCO DE | |
5463 | "RTN","ORM XFMT",302, 0) | |
5464 | ; | |
5465 | "RTN","ORM XFMT",303, 0) | |
5466 | S REQIEN= $P(DVB0,"^ ",2) | |
5467 | "RTN","ORM XFMT",304, 0) | |
5468 | I REQIEN' ="" D | |
5469 | "RTN","ORM XFMT",305, 0) | |
5470 | . S LINEC NT=$P($G(^ DVB(396.3, REQIEN,2,0 )),"^",3) | |
5471 | "RTN","ORM XFMT",306, 0) | |
5472 | . F LINE= 1:1:LINECN T D | |
5473 | "RTN","ORM XFMT",307, 0) | |
5474 | . . S HLO ARR("COMME NT",LINE)= $G(^DVB(39 6.3,REQIEN ,2,LINE,0) ) | |
5475 | "RTN","ORM XFMT",308, 0) | |
5476 | . ; | |
5477 | "RTN","ORM XFMT",309, 0) | |
5478 | . S HLOAR R("COMMENT ",0)=LINEC NT | |
5479 | "RTN","ORM XFMT",310, 0) | |
5480 | ; | |
5481 | "RTN","ORM XFMT",311, 0) | |
5482 | Q 1 | |
5483 | "RTN","ORM XFMT",312, 0) | |
5484 | FMTNL(CNTL CODE,DFN,H LOARR,ERRO R) ; Forma t and buil d the HLOA RR array f rom the NE AR Package . | |
5485 | "RTN","ORM XFMT",313, 0) | |
5486 | ; See the format of the HLOAR R array at the top o f the rout ine. | |
5487 | "RTN","ORM XFMT",314, 0) | |
5488 | ; | |
5489 | "RTN","ORM XFMT",315, 0) | |
5490 | ; CNTLCOD E (I,REQ) - The mess age contro l code (i. e. NW, DC, CA, etc.) | |
5491 | "RTN","ORM XFMT",316, 0) | |
5492 | ; DFN (I, REQ) - Patient IEN | |
5493 | "RTN","ORM XFMT",317, 0) | |
5494 | ; HLOARR (IO,REQ) - Array co ntaining t he order i nformation | |
5495 | "RTN","ORM XFMT",318, 0) | |
5496 | ; ERROR ( O,OPT) - Contains the error reason if an error occurs | |
5497 | "RTN","ORM XFMT",319, 0) | |
5498 | ; | |
5499 | "RTN","ORM XFMT",320, 0) | |
5500 | ; Returns 1 if we w ere sucess fully able to build and format the HLOAR R; returns -1 otherw ise. | |
5501 | "RTN","ORM XFMT",321, 0) | |
5502 | ; | |
5503 | "RTN","ORM XFMT",322, 0) | |
5504 | N DGENIEN ,ORTYPE,FA CILITY | |
5505 | "RTN","ORM XFMT",323, 0) | |
5506 | S (DGENIE N,ORTYPE,F ACILITY)=" " | |
5507 | "RTN","ORM XFMT",324, 0) | |
5508 | ; | |
5509 | "RTN","ORM XFMT",325, 0) | |
5510 | ; Validat e paramete rs | |
5511 | "RTN","ORM XFMT",326, 0) | |
5512 | K ERROR S ERROR="" | |
5513 | "RTN","ORM XFMT",327, 0) | |
5514 | S CNTLCOD E=$G(CNTLC ODE),DFN=$ G(DFN) | |
5515 | "RTN","ORM XFMT",328, 0) | |
5516 | I (CNTLCO DE="")!(DF N="") D Q -1 | |
5517 | "RTN","ORM XFMT",329, 0) | |
5518 | . S ERROR ="Missing required p arameters for FMTNL^ ORMXFMT. P atient IEN : "_DFN_", Control C ode: "_CNT LCODE | |
5519 | "RTN","ORM XFMT",330, 0) | |
5520 | ; | |
5521 | "RTN","ORM XFMT",331, 0) | |
5522 | ; Get the most rece nt enrollm ent record for the p atient | |
5523 | "RTN","ORM XFMT",332, 0) | |
5524 | S DGENIEN =$O(^DGEN( 27.11,"C", DFN,""),-1 ) | |
5525 | "RTN","ORM XFMT",333, 0) | |
5526 | I DGENIEN ="" D Q - 1 | |
5527 | "RTN","ORM XFMT",334, 0) | |
5528 | . S ERROR ="Unable t o retrieve the most recent enr ollment re cord for t he patient . Patient IEN: "_DF N | |
5529 | "RTN","ORM XFMT",335, 0) | |
5530 | ; | |
5531 | "RTN","ORM XFMT",336, 0) | |
5532 | ; Initial ize HLOARR | |
5533 | "RTN","ORM XFMT",337, 0) | |
5534 | D INITARR ^ORMXFMT1( .HLOARR) | |
5535 | "RTN","ORM XFMT",338, 0) | |
5536 | ; | |
5537 | "RTN","ORM XFMT",339, 0) | |
5538 | S ORTYPE= $$TRANORCD (2,"^DGEN( 27.11") | |
5539 | "RTN","ORM XFMT",340, 0) | |
5540 | S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID") | |
5541 | "RTN","ORM XFMT",341, 0) | |
5542 | ; | |
5543 | "RTN","ORM XFMT",342, 0) | |
5544 | S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1(D FN) | |
5545 | "RTN","ORM XFMT",343, 0) | |
5546 | S HLOARR( "ORDER COD E")=CNTLCO DE | |
5547 | "RTN","ORM XFMT",344, 0) | |
5548 | S HLOARR( "ORDER ID" )=DGENIEN_ $S(ORTYPE= -1:"",1:"^ "_ORTYPE) | |
5549 | "RTN","ORM XFMT",345, 0) | |
5550 | S HLOARR( "ORDERABLE ")="NEAR^N ew Enrolle e Appointm ent Reques t"_$S(ORTY PE=-1:"",1 :"^"_ORTYP E) | |
5551 | "RTN","ORM XFMT",346, 0) | |
5552 | S HLOARR( "CLINIC")= $$GET^XPAR ("SYS","OR MX NEAR DE PARTMENT I D")_"^"_FA CILITY_"^^ SC"_FACILI TY | |
5553 | "RTN","ORM XFMT",347, 0) | |
5554 | S HLOARR( "ORDER DAT E")=$P($G( ^DGEN(27.1 1,DGENIEN, 0)),"^",1) | |
5555 | "RTN","ORM XFMT",348, 0) | |
5556 | S HLOARR( "ORDERING PHYSICIAN" )=$$FMTPRO V^ORMXFMT1 ($P($G(^DG EN(27.11,D GENIEN,"U" )),"^",2)) | |
5557 | "RTN","ORM XFMT",349, 0) | |
5558 | S HLOARR( "START DAT E")=$P($G( ^DGEN(27.1 1,DGENIEN, "U")),"^", 1) | |
5559 | "RTN","ORM XFMT",350, 0) | |
5560 | ; | |
5561 | "RTN","ORM XFMT",351, 0) | |
5562 | Q 1 | |
5563 | "RTN","ORM XFMT",352, 0) | |
5564 | FMTRC(CNTL CODE,RCIFN ,HLOARR,ER ROR) ; For mat and bu ild the HL OARR array from the recall rem inder Pack age. | |
5565 | "RTN","ORM XFMT",353, 0) | |
5566 | ; See the format of the HLOAR R array at the top o f the rout ine. | |
5567 | "RTN","ORM XFMT",354, 0) | |
5568 | ; | |
5569 | "RTN","ORM XFMT",355, 0) | |
5570 | ; CNTLCOD E (I,REQ) - The mess age contro l code (i. e. NW, DC, CA, etc.) | |
5571 | "RTN","ORM XFMT",356, 0) | |
5572 | ; RCIFN ( I,REQ) - Recall r eminder IE N | |
5573 | "RTN","ORM XFMT",357, 0) | |
5574 | ; HLOARR (IO,REQ) - Array co ntaining t he order i nformation | |
5575 | "RTN","ORM XFMT",358, 0) | |
5576 | ; ERROR ( O,OPT) - Contains the error reason if an error occurs | |
5577 | "RTN","ORM XFMT",359, 0) | |
5578 | ; | |
5579 | "RTN","ORM XFMT",360, 0) | |
5580 | ; Returns 1 if we w ere sucess fully able to build and format the HLOAR R; | |
5581 | "RTN","ORM XFMT",361, 0) | |
5582 | ; returns -1 otherw ise. | |
5583 | "RTN","ORM XFMT",362, 0) | |
5584 | ; | |
5585 | "RTN","ORM XFMT",363, 0) | |
5586 | N SD0,ORT YPE,CLINIC ,COMMENT,F ACILITY,FA ST,LINECNT | |
5587 | "RTN","ORM XFMT",364, 0) | |
5588 | S (SD0,OR TYPE,CLINI C,COMMENT, FACILITY,F AST,LINECN T)="" | |
5589 | "RTN","ORM XFMT",365, 0) | |
5590 | ; | |
5591 | "RTN","ORM XFMT",366, 0) | |
5592 | ; Validat e paramete rs | |
5593 | "RTN","ORM XFMT",367, 0) | |
5594 | K ERROR S ERROR="" | |
5595 | "RTN","ORM XFMT",368, 0) | |
5596 | S CNTLCOD E=$G(CNTLC ODE),RCIFN =$G(RCIFN) | |
5597 | "RTN","ORM XFMT",369, 0) | |
5598 | I (CNTLCO DE="")!(RC IFN="") D Q -1 | |
5599 | "RTN","ORM XFMT",370, 0) | |
5600 | . S ERROR ="Missing required p arameters for FMTRC^ ORMXFMT. R ecall Remi nder IEN: "_RCIFN_", Control C ode: "_CNT LCODE | |
5601 | "RTN","ORM XFMT",371, 0) | |
5602 | ; | |
5603 | "RTN","ORM XFMT",372, 0) | |
5604 | S SD0=$G( ^SD(403.5, RCIFN,0)) | |
5605 | "RTN","ORM XFMT",373, 0) | |
5606 | I SD0="" D Q -1 | |
5607 | "RTN","ORM XFMT",374, 0) | |
5608 | . S ERROR ="The reca ll reminde r does not exist in ^SD. The 0 node is m issing. Re call Remin der IEN: " _RCIFN | |
5609 | "RTN","ORM XFMT",375, 0) | |
5610 | ; | |
5611 | "RTN","ORM XFMT",376, 0) | |
5612 | ; Initial ize HLOARR | |
5613 | "RTN","ORM XFMT",377, 0) | |
5614 | D INITARR ^ORMXFMT1( .HLOARR) | |
5615 | "RTN","ORM XFMT",378, 0) | |
5616 | ; | |
5617 | "RTN","ORM XFMT",379, 0) | |
5618 | S ORTYPE= $$TRANORCD (2,"^SD(40 3.5") | |
5619 | "RTN","ORM XFMT",380, 0) | |
5620 | S HLOARR( "PATIENT") =$$FMTPAT^ ORMXFMT1($ P(SD0,"^", 1)) | |
5621 | "RTN","ORM XFMT",381, 0) | |
5622 | S HLOARR( "ORDER COD E")=CNTLCO DE | |
5623 | "RTN","ORM XFMT",382, 0) | |
5624 | S HLOARR( "ORDER ID" )=RCIFN_$S (ORTYPE=-1 :"",1:"^"_ ORTYPE) | |
5625 | "RTN","ORM XFMT",383, 0) | |
5626 | S HLOARR( "ORDER DAT E")=$P(SD0 ,"^",14) | |
5627 | "RTN","ORM XFMT",384, 0) | |
5628 | S HLOARR( "ORDERING PHYSICIAN" )=$$FMTPRO V^ORMXFMT1 ($P(SD0,"^ ",5)) | |
5629 | "RTN","ORM XFMT",385, 0) | |
5630 | S HLOARR( "START DAT E")=$P(SD0 ,"^",6) | |
5631 | "RTN","ORM XFMT",386, 0) | |
5632 | ; | |
5633 | "RTN","ORM XFMT",387, 0) | |
5634 | ; Add the clinic in formation in HLOARR | |
5635 | "RTN","ORM XFMT",388, 0) | |
5636 | S CLINIC= $P(SD0,"^" ,2) | |
5637 | "RTN","ORM XFMT",389, 0) | |
5638 | S HLOARR( "CLINIC")= $$FMTCLIN^ ORMXFMT1(C LINIC) | |
5639 | "RTN","ORM XFMT",390, 0) | |
5640 | ; | |
5641 | "RTN","ORM XFMT",391, 0) | |
5642 | ; ORDERAB LE will be the clini c ID where the patie nt should return | |
5643 | "RTN","ORM XFMT",392, 0) | |
5644 | S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID") | |
5645 | "RTN","ORM XFMT",393, 0) | |
5646 | S HLOARR( "ORDERABLE ")=CLINIC_ "^"_$S(CLI NIC'="":$P ($G(^SC(CL INIC,0))," ^",1),1:"" )_"^RTC"_F ACILITY | |
5647 | "RTN","ORM XFMT",394, 0) | |
5648 | ; | |
5649 | "RTN","ORM XFMT",395, 0) | |
5650 | ; Add the comments in HLOARR | |
5651 | "RTN","ORM XFMT",396, 0) | |
5652 | S LINECNT =1 | |
5653 | "RTN","ORM XFMT",397, 0) | |
5654 | ; | |
5655 | "RTN","ORM XFMT",398, 0) | |
5656 | S COMMENT =$P(SD0,"^ ",7) | |
5657 | "RTN","ORM XFMT",399, 0) | |
5658 | I COMMENT '="" S HLO ARR("COMME NT",LINECN T)=COMMENT ,LINECNT=L INECNT+1 | |
5659 | "RTN","ORM XFMT",400, 0) | |
5660 | ; | |
5661 | "RTN","ORM XFMT",401, 0) | |
5662 | ; Store t he "Fast/N o Fast" it em as a co mment on t he order. | |
5663 | "RTN","ORM XFMT",402, 0) | |
5664 | S FAST=$$ UP^XLFSTR( $P(SD0,"^" ,8)) ; Con vert to UP PERCASE | |
5665 | "RTN","ORM XFMT",403, 0) | |
5666 | I FAST'=" " D | |
5667 | "RTN","ORM XFMT",404, 0) | |
5668 | . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)=" ",LIN ECNT=LINEC NT+1 | |
5669 | "RTN","ORM XFMT",405, 0) | |
5670 | . ; | |
5671 | "RTN","ORM XFMT",406, 0) | |
5672 | . ; If "F ," then th e patient needs to f ast. If "N " (or any other char acter), th e patient does not n eed to fas t | |
5673 | "RTN","ORM XFMT",407, 0) | |
5674 | . I FAST= "F" S HLOA RR("COMMEN T",LINECNT )="Lab tes t ordered, fasting R EQUIRED.", LINECNT=LI NECNT+1 | |
5675 | "RTN","ORM XFMT",408, 0) | |
5676 | . E S HL OARR("COMM ENT",LINEC NT)="Lab t est ordere d, fasting NOT REQUI RED.",LINE CNT=LINECN T+1 | |
5677 | "RTN","ORM XFMT",409, 0) | |
5678 | ; | |
5679 | "RTN","ORM XFMT",410, 0) | |
5680 | S HLOARR( "COMMENT", 0)=LINECNT -1 | |
5681 | "RTN","ORM XFMT",411, 0) | |
5682 | ; | |
5683 | "RTN","ORM XFMT",412, 0) | |
5684 | Q 1 | |
5685 | "RTN","ORM XFMT",413, 0) | |
5686 | FMTRTC(ORD IEN,HLOARR ) ; Return to Clinic specific processing | |
5687 | "RTN","ORM XFMT",414, 0) | |
5688 | ; ORDIEN - input, o rder id be ing proces sed | |
5689 | "RTN","ORM XFMT",415, 0) | |
5690 | ; HLOARR - array wh ere data s hould be s tored | |
5691 | "RTN","ORM XFMT",416, 0) | |
5692 | ; | |
5693 | "RTN","ORM XFMT",417, 0) | |
5694 | N NODE,CL INIC,OR0,F ACILITY,NL TFLAG,Y | |
5695 | "RTN","ORM XFMT",418, 0) | |
5696 | S (NODE,C LINIC,OR0, FACILITY,N LTFLAG,Y)= "" | |
5697 | "RTN","ORM XFMT",419, 0) | |
5698 | ; | |
5699 | "RTN","ORM XFMT",420, 0) | |
5700 | S ORDIEN= $G(ORDIEN) ,HLOARR=$G (HLOARR) | |
5701 | "RTN","ORM XFMT",421, 0) | |
5702 | I $G(ORDI EN)="" Q | |
5703 | "RTN","ORM XFMT",422, 0) | |
5704 | ; | |
5705 | "RTN","ORM XFMT",423, 0) | |
5706 | ; ORDERAB LE will be the clini c ID where the patie nt should return | |
5707 | "RTN","ORM XFMT",424, 0) | |
5708 | I $$FINDN ODE("LOCAT ION",.NODE ,ORDIEN) D | |
5709 | "RTN","ORM XFMT",425, 0) | |
5710 | . S CLINI C=+$G(^OR( 100,ORDIEN ,4.5,+NODE ,1)) | |
5711 | "RTN","ORM XFMT",426, 0) | |
5712 | I CLINIC= "" D | |
5713 | "RTN","ORM XFMT",427, 0) | |
5714 | . S OR0=$ G(^OR(100, ORDIEN,0)) | |
5715 | "RTN","ORM XFMT",428, 0) | |
5716 | . S CLINI C=$P($P(OR 0,"^",10), ";") | |
5717 | "RTN","ORM XFMT",429, 0) | |
5718 | ; | |
5719 | "RTN","ORM XFMT",430, 0) | |
5720 | S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID") | |
5721 | "RTN","ORM XFMT",431, 0) | |
5722 | ; | |
5723 | "RTN","ORM XFMT",432, 0) | |
5724 | S HLOARR( "ORDERABLE ")=CLINIC_ "^"_$P($G( ^SC(CLINIC ,0)),"^",1 )_"^RTC"_F ACILITY | |
5725 | "RTN","ORM XFMT",433, 0) | |
5726 | S HLOARR( "CLINIC")= $$FMTCLIN^ ORMXFMT1(C LINIC) | |
5727 | "RTN","ORM XFMT",434, 0) | |
5728 | ; | |
5729 | "RTN","ORM XFMT",435, 0) | |
5730 | ; Set the NLT flag | |
5731 | "RTN","ORM XFMT",436, 0) | |
5732 | I $$FINDN ODE("YN",. NODE,ORDIE N) D | |
5733 | "RTN","ORM XFMT",437, 0) | |
5734 | . S NLTFL AG=+$G(^OR (100,ORDIE N,4.5,+NOD E,1)) | |
5735 | "RTN","ORM XFMT",438, 0) | |
5736 | . S HLOAR R("NO LATE R THAN")=$ S(NLTFLAG: "YES",1:"" ) ; should be a 1 fo r yes if n o later th an | |
5737 | "RTN","ORM XFMT",439, 0) | |
5738 | ; | |
5739 | "RTN","ORM XFMT",440, 0) | |
5740 | ; Set the recurrenc es (if pop ulated) | |
5741 | "RTN","ORM XFMT",441, 0) | |
5742 | I $$FINDN ODE("SDNUM ",.NODE,OR DIEN) D | |
5743 | "RTN","ORM XFMT",442, 0) | |
5744 | . S HLOAR R("RECUR") =+$G(^OR(1 00,ORDIEN, 4.5,+NODE, 1)) | |
5745 | "RTN","ORM XFMT",443, 0) | |
5746 | ; | |
5747 | "RTN","ORM XFMT",444, 0) | |
5748 | ; Set the frequency (if popul ated) | |
5749 | "RTN","ORM XFMT",445, 0) | |
5750 | I $$FINDN ODE("SDINT ",.NODE,OR DIEN) D | |
5751 | "RTN","ORM XFMT",446, 0) | |
5752 | . S HLOAR R("FREQUEN CY")=$G(^O R(100,ORDI EN,4.5,+NO DE,1)) | |
5753 | "RTN","ORM XFMT",447, 0) | |
5754 | ; | |
5755 | "RTN","ORM XFMT",448, 0) | |
5756 | ; set the clinicall y indicate d date | |
5757 | "RTN","ORM XFMT",449, 0) | |
5758 | I $$FINDN ODE("CLINI CALLY",.NO DE,ORDIEN) D | |
5759 | "RTN","ORM XFMT",450, 0) | |
5760 | . ; If th e date is not stored as a rela tive date, we use it . Otherwis e we don't | |
5761 | "RTN","ORM XFMT",451, 0) | |
5762 | . S X=$G( ^OR(100,OR DIEN,4.5,+ NODE,1)) | |
5763 | "RTN","ORM XFMT",452, 0) | |
5764 | . I '($E( X)?1A) S H LOARR("STA RT DATE")= X | |
5765 | "RTN","ORM XFMT",453, 0) | |
5766 | ; | |
5767 | "RTN","ORM XFMT",454, 0) | |
5768 | Q | |
5769 | "RTN","ORM XFMT",455, 0) | |
5770 | FINDNODE(I D,NODE,ORD IEN) ; Fin ds the nod e number f or the spe cifed orde r dialog p rompt ID | |
5771 | "RTN","ORM XFMT",456, 0) | |
5772 | ; ID - st ring that identifies the node needed | |
5773 | "RTN","ORM XFMT",457, 0) | |
5774 | ; NODE - output of the node n umber that holds the data | |
5775 | "RTN","ORM XFMT",458, 0) | |
5776 | ; | |
5777 | "RTN","ORM XFMT",459, 0) | |
5778 | ; Returns 1 if we f ind a node that is o n the orde r with ID of "ID," o therwise 0 | |
5779 | "RTN","ORM XFMT",460, 0) | |
5780 | ; | |
5781 | "RTN","ORM XFMT",461, 0) | |
5782 | S ORDIEN= $G(ORDIEN) ,ID=$G(ID) | |
5783 | "RTN","ORM XFMT",462, 0) | |
5784 | I $G(ID)= "" Q 0 | |
5785 | "RTN","ORM XFMT",463, 0) | |
5786 | S NODE=$O (^OR(100,O RDIEN,4.5, "ID",ID,0) ) | |
5787 | "RTN","ORM XFMT",464, 0) | |
5788 | I NODE Q 1 ;if we f ind a valu e, quit 1 | |
5789 | "RTN","ORM XFMT",465, 0) | |
5790 | ; | |
5791 | "RTN","ORM XFMT",466, 0) | |
5792 | Q 0 | |
5793 | "RTN","ORM XFMT",467, 0) | |
5794 | TRANORCD(D IRECT,VALU E) ; Trans lates a fi le string to its HLO order typ e code and visa-vers a | |
5795 | "RTN","ORM XFMT",468, 0) | |
5796 | ; DIRECT (I,REQ) - 1 for outb ound, 2 fo r inbound | |
5797 | "RTN","ORM XFMT",469, 0) | |
5798 | ; VALUE ( I,REQ) - t he value t o be trans lated. Fi le for out bound | |
5799 | "RTN","ORM XFMT",470, 0) | |
5800 | ; o r the HLO order type code for inbound | |
5801 | "RTN","ORM XFMT",471, 0) | |
5802 | ; | |
5803 | "RTN","ORM XFMT",472, 0) | |
5804 | ; Returns the trans lated valu e if one i s found, o therwise r eturns -1 | |
5805 | "RTN","ORM XFMT",473, 0) | |
5806 | ; | |
5807 | "RTN","ORM XFMT",474, 0) | |
5808 | N TRANARY ,FACILITY | |
5809 | "RTN","ORM XFMT",475, 0) | |
5810 | ; | |
5811 | "RTN","ORM XFMT",476, 0) | |
5812 | ; Data va lidation | |
5813 | "RTN","ORM XFMT",477, 0) | |
5814 | S DIRECT= $G(DIRECT) ,VALUE=$G( VALUE) | |
5815 | "RTN","ORM XFMT",478, 0) | |
5816 | I (DIRECT ="")!(VALU E="") Q -1 | |
5817 | "RTN","ORM XFMT",479, 0) | |
5818 | ; | |
5819 | "RTN","ORM XFMT",480, 0) | |
5820 | ; Get Fac ility ID | |
5821 | "RTN","ORM XFMT",481, 0) | |
5822 | S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID") | |
5823 | "RTN","ORM XFMT",482, 0) | |
5824 | ; | |
5825 | "RTN","ORM XFMT",483, 0) | |
5826 | ; Setting up transl ation arra y | |
5827 | "RTN","ORM XFMT",484, 0) | |
5828 | S TRANARY (1,"OR"_FA CILITY)="^ OR(100" ; Orde rs | |
5829 | "RTN","ORM XFMT",485, 0) | |
5830 | S TRANARY (1,"GMR"_F ACILITY)=" ^GMR(123" ; Cons ults | |
5831 | "RTN","ORM XFMT",486, 0) | |
5832 | S TRANARY (1,"CP"_FA CILITY)="^ DVB(396.4" ; C&P e xams | |
5833 | "RTN","ORM XFMT",487, 0) | |
5834 | S TRANARY (1,"NEAR"_ FACILITY)= "^DGEN(27. 11" ; NEAR list entr ies | |
5835 | "RTN","ORM XFMT",488, 0) | |
5836 | S TRANARY (1,"RC"_FA CILITY)="^ SD(403.5" ; Reca ll reminde rs | |
5837 | "RTN","ORM XFMT",489, 0) | |
5838 | S TRANARY (2,"^OR(10 0")="OR"_F ACILITY | |
5839 | "RTN","ORM XFMT",490, 0) | |
5840 | S TRANARY (2,"^GMR(1 23")="GMR" _FACILITY | |
5841 | "RTN","ORM XFMT",491, 0) | |
5842 | S TRANARY (2,"^DVB(3 96.4")="CP "_FACILITY | |
5843 | "RTN","ORM XFMT",492, 0) | |
5844 | S TRANARY (2,"^DGEN( 27.11")="N EAR"_FACIL ITY | |
5845 | "RTN","ORM XFMT",493, 0) | |
5846 | S TRANARY (2,"^SD(40 3.5")="RC" _FACILITY | |
5847 | "RTN","ORM XFMT",494, 0) | |
5848 | ; | |
5849 | "RTN","ORM XFMT",495, 0) | |
5850 | I $D(TRAN ARY(DIRECT ,VALUE)) Q $G(TRANAR Y(DIRECT,V ALUE)) | |
5851 | "RTN","ORM XFMT",496, 0) | |
5852 | ; | |
5853 | "RTN","ORM XFMT",497, 0) | |
5854 | Q -1 | |
5855 | "RTN","ORM XFMT",498, 0) | |
5856 | ;;#eor# | |
5857 | "RTN","ORM XFMT1") | |
5858 | 0^5^B83708 887 | |
5859 | "RTN","ORM XFMT1",1,0 ) | |
5860 | ORMXFMT1 ; MASS/AWS - ORDER FOR MATTING;11 /30/17;201 8-05-11 08 :57:07;8.3 ;2tH9XNTJy 73DIaCvjBR UJaGi5rTjd D8PBB1Eyi8 0/Pc= | |
5861 | "RTN","ORM XFMT1",2,0 ) | |
5862 | ;;3.0;Ord er Entry/R esults Rep orting;**4 70**;Novem ber 30,201 7;Build 76 | |
5863 | "RTN","ORM XFMT1",3,0 ) | |
5864 | ;;Per VA DIRECTIVE 6402, this routine s hould not be modifie d. | |
5865 | "RTN","ORM XFMT1",4,0 ) | |
5866 | ; Externa l Referenc es | |
5867 | "RTN","ORM XFMT1",5,0 ) | |
5868 | ; 2263 GET^XPAR | |
5869 | "RTN","ORM XFMT1",6,0 ) | |
5870 | ; ##### ICDDX^IC DEXC | |
5871 | "RTN","ORM XFMT1",7,0 ) | |
5872 | ; ##### CODECS^I CDEX | |
5873 | "RTN","ORM XFMT1",8,0 ) | |
5874 | ; ##### INSTRING ^SDMXCORE | |
5875 | "RTN","ORM XFMT1",9,0 ) | |
5876 | ; 4853 SETDT^HL OAPI4 | |
5877 | "RTN","ORM XFMT1",10, 0) | |
5878 | ; 4716 SET^HLOA PI | |
5879 | "RTN","ORM XFMT1",11, 0) | |
5880 | ; 10035 ^DPT | |
5881 | "RTN","ORM XFMT1",12, 0) | |
5882 | ; 10040 ^SC | |
5883 | "RTN","ORM XFMT1",13, 0) | |
5884 | ; ### ^OR | |
5885 | "RTN","ORM XFMT1",14, 0) | |
5886 | ; ### ^GMR | |
5887 | "RTN","ORM XFMT1",15, 0) | |
5888 | ; 10060 ^VA | |
5889 | "RTN","ORM XFMT1",16, 0) | |
5890 | INITARR(HL OARR) ; In itialize t he HLO arr ay contain ing order informatio n | |
5891 | "RTN","ORM XFMT1",17, 0) | |
5892 | ; The for mat of the HLOARR is as follow s: | |
5893 | "RTN","ORM XFMT1",18, 0) | |
5894 | ; | |
5895 | "RTN","ORM XFMT1",19, 0) | |
5896 | ; HLOARR( "ORDER ID" ) - <Uniqu e order ID (per glob al)>^<A st ring to id entify the global in | |
5897 | "RTN","ORM XFMT1",20, 0) | |
5898 | ; VistA that the I D comes fr om> | |
5899 | "RTN","ORM XFMT1",21, 0) | |
5900 | ; HLOARR( "PATIENT") - <Patie nt Identif ier (e.g. IEN)>^<A s tring to i dentify Pa tient ID t ype> | |
5901 | "RTN","ORM XFMT1",22, 0) | |
5902 | ; HLOARR( "ORDERABLE ") - <Ident ifier for itemordere d>^<Free t ext name o f orderabl e>^<A stri ng to | |
5903 | "RTN","ORM XFMT1",23, 0) | |
5904 | ; identi fy the glo bal in Vis tA that th e Orderabl e ID comes from> | |
5905 | "RTN","ORM XFMT1",24, 0) | |
5906 | ; HLOARR( "ORDERING PHYSICIAN" ) - <Physi cian Ident ifier>^<Ph ysician La st Name>^< Physician First Name >^<A strin g to | |
5907 | "RTN","ORM XFMT1",25, 0) | |
5908 | ; identi fy Physici an ID type > | |
5909 | "RTN","ORM XFMT1",26, 0) | |
5910 | ; HLOARR( "ORDER DAT E") - <VistA format fo r Date/Tim e the orde r was plac ed> | |
5911 | "RTN","ORM XFMT1",27, 0) | |
5912 | ; HLOARR( "ORDER COD E") - <Uniqu e order co de, e.g."N W","CA", e tc.> | |
5913 | "RTN","ORM XFMT1",28, 0) | |
5914 | ; HLOARR( "START DAT E") - <VistA format fo r Date/Tim e the orde r is to be performed > | |
5915 | "RTN","ORM XFMT1",29, 0) | |
5916 | ; HLOARR( "STOP DATE ") - <VistA format fo r Date/Tim e the orde r expires> | |
5917 | "RTN","ORM XFMT1",30, 0) | |
5918 | ; HLOARR( "DIAGNOSIS ",0) - <Integ er number of diagnos es> | |
5919 | "RTN","ORM XFMT1",31, 0) | |
5920 | ; HLOARR( "DIAGNOSIS ",#) - <Diagn osis ID>^< Free text name of di agnosis>^< A string t o identify the | |
5921 | "RTN","ORM XFMT1",32, 0) | |
5922 | ; global in VistA that the D iagnosis I D comes fr om> | |
5923 | "RTN","ORM XFMT1",33, 0) | |
5924 | ; HLOARR( "CLINIC") - <Clini c ID where order was placed>^< Clinic fac ility ID>^ <Clinic Na me>^<A str ing | |
5925 | "RTN","ORM XFMT1",34, 0) | |
5926 | ; to ide ntify the clinic ID type> | |
5927 | "RTN","ORM XFMT1",35, 0) | |
5928 | ; HLOARR( "REASON FO R STUDY",0 ) - <Numbe r of lines for the r eason for study> | |
5929 | "RTN","ORM XFMT1",36, 0) | |
5930 | ; HLOARR( "REASON FO R STUDY",# ) - <Free text reaso n for stud y> | |
5931 | "RTN","ORM XFMT1",37, 0) | |
5932 | ; HLOARR( "COMMENT", 0) - <Numbe r of lines for the c omments> | |
5933 | "RTN","ORM XFMT1",38, 0) | |
5934 | ; HLOARR( "COMMENT", #) - <Free text comme nts> | |
5935 | "RTN","ORM XFMT1",39, 0) | |
5936 | ; HLOARR( "NO LATER THAN") - <No la ter than f lag> | |
5937 | "RTN","ORM XFMT1",40, 0) | |
5938 | ; HLOARR( "RECUR") - <Total occurrenc es> | |
5939 | "RTN","ORM XFMT1",41, 0) | |
5940 | ; HLOARR( "FREQUENCY ") - <Frequ ency> | |
5941 | "RTN","ORM XFMT1",42, 0) | |
5942 | ; HLOARR( "CANCEL RE ASON") - <Cance l reason f or cancele d orders> | |
5943 | "RTN","ORM XFMT1",43, 0) | |
5944 | ; HLOARR( "URGENCY") - <Urgen cy of a co nsult> | |
5945 | "RTN","ORM XFMT1",44, 0) | |
5946 | ; HLOARR( "CPRS STAT US") - <CPRS status for an order> | |
5947 | "RTN","ORM XFMT1",45, 0) | |
5948 | ; | |
5949 | "RTN","ORM XFMT1",46, 0) | |
5950 | K HLOARR S HLOARR=" " | |
5951 | "RTN","ORM XFMT1",47, 0) | |
5952 | ; | |
5953 | "RTN","ORM XFMT1",48, 0) | |
5954 | S HLOARR( "ORDER ID" )="" | |
5955 | "RTN","ORM XFMT1",49, 0) | |
5956 | S HLOARR( "PATIENT") ="" | |
5957 | "RTN","ORM XFMT1",50, 0) | |
5958 | S HLOARR( "ORDERABLE ")="" | |
5959 | "RTN","ORM XFMT1",51, 0) | |
5960 | S HLOARR( "ORDERING PHYSICIAN" )="" | |
5961 | "RTN","ORM XFMT1",52, 0) | |
5962 | S HLOARR( "ORDER DAT E")="" | |
5963 | "RTN","ORM XFMT1",53, 0) | |
5964 | S HLOARR( "ORDER COD E")="" | |
5965 | "RTN","ORM XFMT1",54, 0) | |
5966 | S HLOARR( "START DAT E")="" | |
5967 | "RTN","ORM XFMT1",55, 0) | |
5968 | S HLOARR( "STOP DATE ")="" | |
5969 | "RTN","ORM XFMT1",56, 0) | |
5970 | S HLOARR( "DIAGNOSIS ",0)=0 | |
5971 | "RTN","ORM XFMT1",57, 0) | |
5972 | S HLOARR( "CLINIC")= "" | |
5973 | "RTN","ORM XFMT1",58, 0) | |
5974 | S HLOARR( "REASON FO R STUDY",0 )=0 | |
5975 | "RTN","ORM XFMT1",59, 0) | |
5976 | S HLOARR( "COMMENT", 0)=0 | |
5977 | "RTN","ORM XFMT1",60, 0) | |
5978 | S HLOARR( "NO LATER THAN")="" | |
5979 | "RTN","ORM XFMT1",61, 0) | |
5980 | S HLOARR( "FREQUENCY ")="" | |
5981 | "RTN","ORM XFMT1",62, 0) | |
5982 | S HLOARR( "RECUR")=" " | |
5983 | "RTN","ORM XFMT1",63, 0) | |
5984 | S HLOARR( "CANCEL RE ASON")="" | |
5985 | "RTN","ORM XFMT1",64, 0) | |
5986 | S HLOARR( "URGENCY") ="" | |
5987 | "RTN","ORM XFMT1",65, 0) | |
5988 | S HLOARR( "CPRS STAT US")="" | |
5989 | "RTN","ORM XFMT1",66, 0) | |
5990 | ; | |
5991 | "RTN","ORM XFMT1",67, 0) | |
5992 | Q | |
5993 | "RTN","ORM XFMT1",68, 0) | |
5994 | FMTPAT(IEN ) ; Format s the pati ent ID giv en the IEN for the p atient | |
5995 | "RTN","ORM XFMT1",69, 0) | |
5996 | ; | |
5997 | "RTN","ORM XFMT1",70, 0) | |
5998 | ; IEN (I, REQ) - IEN for the p atient | |
5999 | "RTN","ORM XFMT1",71, 0) | |
6000 | ; | |
6001 | "RTN","ORM XFMT1",72, 0) | |
6002 | ; Returns the forma tted patie nt ID. If the IEN pa ssed in do es not mat ch | |
6003 | "RTN","ORM XFMT1",73, 0) | |
6004 | ; to a pa tient, the null stri ng will be returned. Format is "<ID>^<TY PE>" | |
6005 | "RTN","ORM XFMT1",74, 0) | |
6006 | ; | |
6007 | "RTN","ORM XFMT1",75, 0) | |
6008 | S IEN=$G( IEN) | |
6009 | "RTN","ORM XFMT1",76, 0) | |
6010 | I IEN="" Q "" | |
6011 | "RTN","ORM XFMT1",77, 0) | |
6012 | ; | |
6013 | "RTN","ORM XFMT1",78, 0) | |
6014 | I '$D(^DP T(IEN)) Q "" | |
6015 | "RTN","ORM XFMT1",79, 0) | |
6016 | ; | |
6017 | "RTN","ORM XFMT1",80, 0) | |
6018 | Q IEN_"^I EN" | |
6019 | "RTN","ORM XFMT1",81, 0) | |
6020 | FMTPROV(IE N) ; Forma ts the pro vider ID g iven the I EN for the provider | |
6021 | "RTN","ORM XFMT1",82, 0) | |
6022 | ; | |
6023 | "RTN","ORM XFMT1",83, 0) | |
6024 | ; IEN (I, REQ) - IEN for provi der to mat ch from fi le #200 | |
6025 | "RTN","ORM XFMT1",84, 0) | |
6026 | ; | |
6027 | "RTN","ORM XFMT1",85, 0) | |
6028 | ; Returns either th e NPI ID ( if one exi sts) or th e IEN for the provid er. | |
6029 | "RTN","ORM XFMT1",86, 0) | |
6030 | ; If the IEN passed in does n ot match t o a provid er from fi le #200, t he | |
6031 | "RTN","ORM XFMT1",87, 0) | |
6032 | ; null st ring will be returne d. Format is "<ID>^< LAST NAME> ^<FIRST NA ME>^<TYPE> " | |
6033 | "RTN","ORM XFMT1",88, 0) | |
6034 | ; | |
6035 | "RTN","ORM XFMT1",89, 0) | |
6036 | N NPI,NAM E,FIRSTNM, LASTNM,FAC ILITY | |
6037 | "RTN","ORM XFMT1",90, 0) | |
6038 | S (NPI,NA ME,FIRSTNM ,LASTNM,FA CILITY)="" | |
6039 | "RTN","ORM XFMT1",91, 0) | |
6040 | ; | |
6041 | "RTN","ORM XFMT1",92, 0) | |
6042 | S IEN=$G( IEN) | |
6043 | "RTN","ORM XFMT1",93, 0) | |
6044 | I IEN="" Q "" | |
6045 | "RTN","ORM XFMT1",94, 0) | |
6046 | ; | |
6047 | "RTN","ORM XFMT1",95, 0) | |
6048 | I '$D(^VA (200,IEN)) Q "" | |
6049 | "RTN","ORM XFMT1",96, 0) | |
6050 | ; | |
6051 | "RTN","ORM XFMT1",97, 0) | |
6052 | ; Set the name of t he provide r | |
6053 | "RTN","ORM XFMT1",98, 0) | |
6054 | S NAME=$P ($G(^VA(20 0,IEN,0)), "^",1) | |
6055 | "RTN","ORM XFMT1",99, 0) | |
6056 | I NAME'=" " D | |
6057 | "RTN","ORM XFMT1",100 ,0) | |
6058 | . S LASTN M=$P(NAME, ",",1) | |
6059 | "RTN","ORM XFMT1",101 ,0) | |
6060 | . S FIRST NM=$P(NAME ,",",2) | |
6061 | "RTN","ORM XFMT1",102 ,0) | |
6062 | ; | |
6063 | "RTN","ORM XFMT1",103 ,0) | |
6064 | ; If the NPI ID exi sts, use t hat ID for the provi der ID | |
6065 | "RTN","ORM XFMT1",104 ,0) | |
6066 | S NPI=$P( $G(^VA(200 ,IEN,"NPI" )),"^",1) ; NPI ID | |
6067 | "RTN","ORM XFMT1",105 ,0) | |
6068 | I NPI'="" Q NPI_"^" _LASTNM_"^ "_FIRSTNM_ "^"_"NPI" | |
6069 | "RTN","ORM XFMT1",106 ,0) | |
6070 | ; | |
6071 | "RTN","ORM XFMT1",107 ,0) | |
6072 | ; Get Fac ility ID | |
6073 | "RTN","ORM XFMT1",108 ,0) | |
6074 | S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID") | |
6075 | "RTN","ORM XFMT1",109 ,0) | |
6076 | ; | |
6077 | "RTN","ORM XFMT1",110 ,0) | |
6078 | ; Use the VA ID as the defaul t ID | |
6079 | "RTN","ORM XFMT1",111 ,0) | |
6080 | Q IEN_"^" _LASTNM_"^ "_FIRSTNM_ "^"_"VA"_F ACILITY | |
6081 | "RTN","ORM XFMT1",112 ,0) | |
6082 | FMTCLIN(IE N) ; Forma ts the cli nic ID giv en the IEN for the c linic | |
6083 | "RTN","ORM XFMT1",113 ,0) | |
6084 | ; | |
6085 | "RTN","ORM XFMT1",114 ,0) | |
6086 | ; IEN (I, REQ) - IEN for clini c | |
6087 | "RTN","ORM XFMT1",115 ,0) | |
6088 | ; | |
6089 | "RTN","ORM XFMT1",116 ,0) | |
6090 | ; Returns either th e clinic I D. If the IEN passed in does n ot match t o a clinic , the | |
6091 | "RTN","ORM XFMT1",117 ,0) | |
6092 | ; null st ring will be returne d. Format is "<CLINI C ID>^<CLI NIC FACILI TY ID>^<CL INIC NAME> ^<TYPE>" | |
6093 | "RTN","ORM XFMT1",118 ,0) | |
6094 | ; | |
6095 | "RTN","ORM XFMT1",119 ,0) | |
6096 | N FACILIT Y | |
6097 | "RTN","ORM XFMT1",120 ,0) | |
6098 | ; | |
6099 | "RTN","ORM XFMT1",121 ,0) | |
6100 | S IEN=$G( IEN) | |
6101 | "RTN","ORM XFMT1",122 ,0) | |
6102 | I IEN="" Q "" | |
6103 | "RTN","ORM XFMT1",123 ,0) | |
6104 | ; | |
6105 | "RTN","ORM XFMT1",124 ,0) | |
6106 | I '$D(^SC (IEN)) Q " " | |
6107 | "RTN","ORM XFMT1",125 ,0) | |
6108 | ; | |
6109 | "RTN","ORM XFMT1",126 ,0) | |
6110 | ; Get Fac ility ID | |
6111 | "RTN","ORM XFMT1",127 ,0) | |
6112 | S FACILIT Y=$$GET^XP AR("SYS"," ORMX FACIL ITY ID") | |
6113 | "RTN","ORM XFMT1",128 ,0) | |
6114 | ; | |
6115 | "RTN","ORM XFMT1",129 ,0) | |
6116 | Q IEN_"^" _FACILITY_ "^"_$P($G( ^SC(IEN,0) ),"^",1)_" ^"_"SC"_FA CILITY | |
6117 | "RTN","ORM XFMT1",130 ,0) | |
6118 | FMTDIAG(IE N,ORDIEN) ; Formats the diagno sis given the IEN fo r the diag nosis | |
6119 | "RTN","ORM XFMT1",131 ,0) | |
6120 | ; | |
6121 | "RTN","ORM XFMT1",132 ,0) | |
6122 | ; IEN (I, REQ) - IEN for diagn osis to ma tch from f ile #80 | |
6123 | "RTN","ORM XFMT1",133 ,0) | |
6124 | ; | |
6125 | "RTN","ORM XFMT1",134 ,0) | |
6126 | ; Returns the forma tted diagn osis. If t he IEN pas sed in doe s not matc h | |
6127 | "RTN","ORM XFMT1",135 ,0) | |
6128 | ; to a pr ovider fro m file #80 , the null string wi ll be retu rned. Form at | |
6129 | "RTN","ORM XFMT1",136 ,0) | |
6130 | ; is "<DI AGNOSIS ID >^<DIAGNOS IS NAME>^< TYPE>" | |
6131 | "RTN","ORM XFMT1",137 ,0) | |
6132 | ; | |
6133 | "RTN","ORM XFMT1",138 ,0) | |
6134 | N ICD,DXV ,ORDDTTM,D XR,CODE | |
6135 | "RTN","ORM XFMT1",139 ,0) | |
6136 | S (ICD,DX V,ORDDTTM, DXR,CODE)= "" | |
6137 | "RTN","ORM XFMT1",140 ,0) | |
6138 | ; | |
6139 | "RTN","ORM XFMT1",141 ,0) | |
6140 | S IEN=$G( IEN),ORDIE N=$G(ORDIE N) | |
6141 | "RTN","ORM XFMT1",142 ,0) | |
6142 | I IEN="" Q "" | |
6143 | "RTN","ORM XFMT1",143 ,0) | |
6144 | ; | |
6145 | "RTN","ORM XFMT1",144 ,0) | |
6146 | S ORDDTTM =$$ORFMDAT ^ORWDBA3(O RDIEN) | |
6147 | "RTN","ORM XFMT1",145 ,0) | |
6148 | S DXR=$$I CDDX^ICDEX C(IEN,ORDD TTM) | |
6149 | "RTN","ORM XFMT1",146 ,0) | |
6150 | I +DXR=-1 Q "" ; An error occ ured when retrieving codes | |
6151 | "RTN","ORM XFMT1",147 ,0) | |
6152 | ; | |
6153 | "RTN","ORM XFMT1",148 ,0) | |
6154 | ; Get dia gnosis ver biage and ICD code | |
6155 | "RTN","ORM XFMT1",149 ,0) | |
6156 | S ICD=$P( DXR,"^",2) | |
6157 | "RTN","ORM XFMT1",150 ,0) | |
6158 | S DXV=$P( DXR,"^",4) | |
6159 | "RTN","ORM XFMT1",151 ,0) | |
6160 | S CODE=$P ($$CODECS^ ICDEX(ICD) ,"^",2) | |
6161 | "RTN","ORM XFMT1",152 ,0) | |
6162 | ; | |
6163 | "RTN","ORM XFMT1",153 ,0) | |
6164 | I (ICD="" )!(DXV="") Q "" | |
6165 | "RTN","ORM XFMT1",154 ,0) | |
6166 | ; | |
6167 | "RTN","ORM XFMT1",155 ,0) | |
6168 | Q ICD_"^" _DXV_"^"_C ODE | |
6169 | "RTN","ORM XFMT1",156 ,0) | |
6170 | FMTORCM(OR DIEN,HLOAR R) ; Forma ts the ord er comment s given th e order ID | |
6171 | "RTN","ORM XFMT1",157 ,0) | |
6172 | ; This wi ll format the HLOARR ("COMMENT" ) array fo r orders. This shoul d | |
6173 | "RTN","ORM XFMT1",158 ,0) | |
6174 | ; not be called for consult o rders. | |
6175 | "RTN","ORM XFMT1",159 ,0) | |
6176 | ; | |
6177 | "RTN","ORM XFMT1",160 ,0) | |
6178 | ; ORDIEN (I,REQ) - IEN for th e order | |
6179 | "RTN","ORM XFMT1",161 ,0) | |
6180 | ; HLOARR (IO,REQ) - Array co ntaining t he order i nformation | |
6181 | "RTN","ORM XFMT1",162 ,0) | |
6182 | ; | |
6183 | "RTN","ORM XFMT1",163 ,0) | |
6184 | N LINECNT ,CMTNODE,T OTLINES,CM TCNT,NODEC NT | |
6185 | "RTN","ORM XFMT1",164 ,0) | |
6186 | S (LINECN T,CMTNODE, TOTLINES,C MTCNT,NODE CNT)="" | |
6187 | "RTN","ORM XFMT1",165 ,0) | |
6188 | ; | |
6189 | "RTN","ORM XFMT1",166 ,0) | |
6190 | S ORDIEN= $G(ORDIEN) | |
6191 | "RTN","ORM XFMT1",167 ,0) | |
6192 | I ORDIEN= "" Q | |
6193 | "RTN","ORM XFMT1",168 ,0) | |
6194 | ; | |
6195 | "RTN","ORM XFMT1",169 ,0) | |
6196 | ; Add the comments in HLOARR | |
6197 | "RTN","ORM XFMT1",170 ,0) | |
6198 | S LINECNT =1 | |
6199 | "RTN","ORM XFMT1",171 ,0) | |
6200 | ; | |
6201 | "RTN","ORM XFMT1",172 ,0) | |
6202 | ; Order t ext for RT C orders | |
6203 | "RTN","ORM XFMT1",173 ,0) | |
6204 | I ($$ISRT CORD^ORMXT R(ORDIEN)! $$ISOLDRTC ^ORMXCONV( ORDIEN)) D | |
6205 | "RTN","ORM XFMT1",174 ,0) | |
6206 | . ; | |
6207 | "RTN","ORM XFMT1",175 ,0) | |
6208 | . ; Add a blank lin e to delin iate betwe en comment s | |
6209 | "RTN","ORM XFMT1",176 ,0) | |
6210 | . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)=" ",LIN ECNT=LINEC NT+1 | |
6211 | "RTN","ORM XFMT1",177 ,0) | |
6212 | . S HLOAR R("COMMENT ",LINECNT) ="ORDER TE XT",LINECN T=LINECNT+ 1 | |
6213 | "RTN","ORM XFMT1",178 ,0) | |
6214 | . ; | |
6215 | "RTN","ORM XFMT1",179 ,0) | |
6216 | . ; Order text may have multi ple lines so we have to loop t hrough the m | |
6217 | "RTN","ORM XFMT1",180 ,0) | |
6218 | . S TOTLI NES=$P($G( ^OR(100,OR DIEN,8,1,. 1,0)),"^", 3) | |
6219 | "RTN","ORM XFMT1",181 ,0) | |
6220 | . F CMTCN T=1:1:TOTL INES D | |
6221 | "RTN","ORM XFMT1",182 ,0) | |
6222 | . . S HLO ARR("COMME NT",LINECN T)=$G(^OR( 100,ORDIEN ,8,1,.1,CM TCNT,0)),L INECNT=LIN ECNT+1 | |
6223 | "RTN","ORM XFMT1",183 ,0) | |
6224 | ; | |
6225 | "RTN","ORM XFMT1",184 ,0) | |
6226 | I $$FINDN ODE^ORMXFM T("COMMENT ",.CMTNODE ,ORDIEN) D | |
6227 | "RTN","ORM XFMT1",185 ,0) | |
6228 | . ; | |
6229 | "RTN","ORM XFMT1",186 ,0) | |
6230 | . ; Add a blank lin e to delin iate betwe en comment s | |
6231 | "RTN","ORM XFMT1",187 ,0) | |
6232 | . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)=" ",LIN ECNT=LINEC NT+1 | |
6233 | "RTN","ORM XFMT1",188 ,0) | |
6234 | . S HLOAR R("COMMENT ",LINECNT) ="COMMENTS ",LINECNT= LINECNT+1 | |
6235 | "RTN","ORM XFMT1",189 ,0) | |
6236 | . ; | |
6237 | "RTN","ORM XFMT1",190 ,0) | |
6238 | . S NODEC NT=0 ; no comments i n the 0 no de | |
6239 | "RTN","ORM XFMT1",191 ,0) | |
6240 | . F S NO DECNT=$O(^ OR(100,ORD IEN,4.5,CM TNODE,NODE CNT)) Q:NO DECNT="" D | |
6241 | "RTN","ORM XFMT1",192 ,0) | |
6242 | . . I $D( ^OR(100,OR DIEN,4.5,C MTNODE,NOD ECNT,0)) D | |
6243 | "RTN","ORM XFMT1",193 ,0) | |
6244 | . . . ; | |
6245 | "RTN","ORM XFMT1",194 ,0) | |
6246 | . . . ; C omments wi ll have mu ltiple lin es so we h ave to loo p through them | |
6247 | "RTN","ORM XFMT1",195 ,0) | |
6248 | . . . S T OTLINES=$P ($G(^OR(10 0,ORDIEN,4 .5,CMTNODE ,NODECNT,0 )),"^",3) | |
6249 | "RTN","ORM XFMT1",196 ,0) | |
6250 | . . . F C MTCNT=1:1: TOTLINES D | |
6251 | "RTN","ORM XFMT1",197 ,0) | |
6252 | . . . . S HLOARR("C OMMENT",LI NECNT)=$G( ^OR(100,OR DIEN,4.5,C MTNODE,NOD ECNT,CMTCN T,0)),LINE CNT=LINECN T+1 | |
6253 | "RTN","ORM XFMT1",198 ,0) | |
6254 | . . E S HLOARR("CO MMENT",LIN ECNT)=$G(^ OR(100,ORD IEN,4.5,CM TNODE,NODE CNT)),LINE CNT=LINECN T+1 | |
6255 | "RTN","ORM XFMT1",199 ,0) | |
6256 | ; | |
6257 | "RTN","ORM XFMT1",200 ,0) | |
6258 | F CMTNODE =1:1:$P($G (^OR(100,O RDIEN,8,0) ),"^",3) D | |
6259 | "RTN","ORM XFMT1",201 ,0) | |
6260 | . ; | |
6261 | "RTN","ORM XFMT1",202 ,0) | |
6262 | . S TOTLI NES=$P($G( ^OR(100,OR DIEN,8,CMT NODE,5,0)) ,"^",3) | |
6263 | "RTN","ORM XFMT1",203 ,0) | |
6264 | . I TOTLI NES="" Q | |
6265 | "RTN","ORM XFMT1",204 ,0) | |
6266 | . ; | |
6267 | "RTN","ORM XFMT1",205 ,0) | |
6268 | . ; Since the 8 nod e will als o be for a dded comme nts, just append "AD D COMMENTS " | |
6269 | "RTN","ORM XFMT1",206 ,0) | |
6270 | . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)=" ",LIN ECNT=LINEC NT+1 | |
6271 | "RTN","ORM XFMT1",207 ,0) | |
6272 | . S HLOAR R("COMMENT ",LINECNT) ="ADD COMM ENTS",LINE CNT=LINECN T+1 | |
6273 | "RTN","ORM XFMT1",208 ,0) | |
6274 | . ; | |
6275 | "RTN","ORM XFMT1",209 ,0) | |
6276 | . F CMTCN T=1:1:TOTL INES D | |
6277 | "RTN","ORM XFMT1",210 ,0) | |
6278 | . . S HLO ARR("COMME NT",LINECN T)=$G(^OR( 100,ORDIEN ,8,CMTNODE ,5,CMTCNT, 0)),LINECN T=LINECNT+ 1 | |
6279 | "RTN","ORM XFMT1",211 ,0) | |
6280 | ; | |
6281 | "RTN","ORM XFMT1",212 ,0) | |
6282 | S HLOARR( "COMMENT", 0)=LINECNT -1 | |
6283 | "RTN","ORM XFMT1",213 ,0) | |
6284 | ; | |
6285 | "RTN","ORM XFMT1",214 ,0) | |
6286 | Q | |
6287 | "RTN","ORM XFMT1",215 ,0) | |
6288 | FMTGMRCM(O RDIEN,GMRI EN,HLOARR) ; Formats the consu lt comment s given th e order ID | |
6289 | "RTN","ORM XFMT1",216 ,0) | |
6290 | ; This wi ll format the HLOARR ("COMMENT" ) array fo r consults . This sho uld | |
6291 | "RTN","ORM XFMT1",217 ,0) | |
6292 | ; not be called for orders ot her than c onsults. | |
6293 | "RTN","ORM XFMT1",218 ,0) | |
6294 | ; | |
6295 | "RTN","ORM XFMT1",219 ,0) | |
6296 | ; ORDIEN (I,REQ) - IEN for th e order. R equired if GMRIEN is null. We will attem pt to look up the | |
6297 | "RTN","ORM XFMT1",220 ,0) | |
6298 | ; GMRIEN if GMRIEN is null. | |
6299 | "RTN","ORM XFMT1",221 ,0) | |
6300 | ; GMRIEN (I,REQ) - IEN for th e consult. Required if ORDIEN is null. W e will att empt to lo okup the | |
6301 | "RTN","ORM XFMT1",222 ,0) | |
6302 | ; ORDIEN if ORDIEN is null. | |
6303 | "RTN","ORM XFMT1",223 ,0) | |
6304 | ; HLOARR (IO,REQ) - Array co ntaining t he order i nformation | |
6305 | "RTN","ORM XFMT1",224 ,0) | |
6306 | ; | |
6307 | "RTN","ORM XFMT1",225 ,0) | |
6308 | N LINECNT ,CMTNODE,T OTLINES,CM TCNT,CMTST S | |
6309 | "RTN","ORM XFMT1",226 ,0) | |
6310 | S (LINECN T,CMTNODE, TOTLINES,C MTCNT,CMTS TS)="" | |
6311 | "RTN","ORM XFMT1",227 ,0) | |
6312 | ; | |
6313 | "RTN","ORM XFMT1",228 ,0) | |
6314 | S ORDIEN= $G(ORDIEN) ,GMRIEN=$G (GMRIEN) | |
6315 | "RTN","ORM XFMT1",229 ,0) | |
6316 | ; | |
6317 | "RTN","ORM XFMT1",230 ,0) | |
6318 | I ORDIEN= "",GMRIEN' ="" S ORDI EN=$P($G(^ GMR(123,GM RIEN,0))," ^",3) | |
6319 | "RTN","ORM XFMT1",231 ,0) | |
6320 | I ORDIEN' ="",GMRIEN ="" S GMRI EN=$O(^GMR (123,"AC", ORDIEN,"") ) | |
6321 | "RTN","ORM XFMT1",232 ,0) | |
6322 | I GMRIEN= "" Q | |
6323 | "RTN","ORM XFMT1",233 ,0) | |
6324 | ; | |
6325 | "RTN","ORM XFMT1",234 ,0) | |
6326 | S LINECNT =1 | |
6327 | "RTN","ORM XFMT1",235 ,0) | |
6328 | I $D(^GMR (123,GMRIE N,30)) D | |
6329 | "RTN","ORM XFMT1",236 ,0) | |
6330 | . ; | |
6331 | "RTN","ORM XFMT1",237 ,0) | |
6332 | . ; Add a blank lin e to delin iate betwe en comment s | |
6333 | "RTN","ORM XFMT1",238 ,0) | |
6334 | . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)="",LINE CNT=LINECN T+1 | |
6335 | "RTN","ORM XFMT1",239 ,0) | |
6336 | . ; | |
6337 | "RTN","ORM XFMT1",240 ,0) | |
6338 | . S HLOAR R("COMMENT ",LINECNT) ="PROVISIO NAL DIAGNO SIS",LINEC NT=LINECNT +1 | |
6339 | "RTN","ORM XFMT1",241 ,0) | |
6340 | . S HLOAR R("COMMENT ",LINECNT) =$G(^GMR(1 23,GMRIEN, 30)),LINEC NT=LINECNT +1 | |
6341 | "RTN","ORM XFMT1",242 ,0) | |
6342 | ; | |
6343 | "RTN","ORM XFMT1",243 ,0) | |
6344 | I ORDIEN' ="" F CMTN ODE=1:1:$P ($G(^OR(10 0,ORDIEN,8 ,0)),"^",3 ) D | |
6345 | "RTN","ORM XFMT1",244 ,0) | |
6346 | . ; | |
6347 | "RTN","ORM XFMT1",245 ,0) | |
6348 | . S TOTLI NES=$P($G( ^OR(100,OR DIEN,8,CMT NODE,5,0)) ,"^",3) | |
6349 | "RTN","ORM XFMT1",246 ,0) | |
6350 | . I TOTLI NES="" Q | |
6351 | "RTN","ORM XFMT1",247 ,0) | |
6352 | . ; | |
6353 | "RTN","ORM XFMT1",248 ,0) | |
6354 | . ; Since the 8 nod e will als o be for a dded comme nts, just append "AD D COMMENTS " | |
6355 | "RTN","ORM XFMT1",249 ,0) | |
6356 | . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)=" ",LIN ECNT=LINEC NT+1 | |
6357 | "RTN","ORM XFMT1",250 ,0) | |
6358 | . S HLOAR R("COMMENT ",LINECNT) ="ADD COMM ENTS",LINE CNT=LINECN T+1 | |
6359 | "RTN","ORM XFMT1",251 ,0) | |
6360 | . ; | |
6361 | "RTN","ORM XFMT1",252 ,0) | |
6362 | . F CMTCN T=1:1:TOTL INES D | |
6363 | "RTN","ORM XFMT1",253 ,0) | |
6364 | . . S HLO ARR("COMME NT",LINECN T)=$G(^OR( 100,ORDIEN ,8,CMTNODE ,5,CMTCNT, 0)),LINECN T=LINECNT+ 1 | |
6365 | "RTN","ORM XFMT1",254 ,0) | |
6366 | ; | |
6367 | "RTN","ORM XFMT1",255 ,0) | |
6368 | F CMTNODE =1:1:$P($G (^GMR(123, GMRIEN,40, 0)),"^",3) D | |
6369 | "RTN","ORM XFMT1",256 ,0) | |
6370 | . ; | |
6371 | "RTN","ORM XFMT1",257 ,0) | |
6372 | . ; Only add commen ts if its an "Discon tinue", "U pdate", "F orward", " Cancel", o r "Receive " action | |
6373 | "RTN","ORM XFMT1",258 ,0) | |
6374 | . S CMTST S=$P($G(^G MR(123,GMR IEN,40,CMT NODE,0))," ^",2) | |
6375 | "RTN","ORM XFMT1",259 ,0) | |
6376 | . I '$$IN STRING^SDM XCORE(CMTS TS,"6,17,1 9,20,21"," ,") Q | |
6377 | "RTN","ORM XFMT1",260 ,0) | |
6378 | . ; | |
6379 | "RTN","ORM XFMT1",261 ,0) | |
6380 | . ; Quit out if the re are no comments | |
6381 | "RTN","ORM XFMT1",262 ,0) | |
6382 | . S TOTLI NES=$P($G( ^GMR(123,G MRIEN,40,C MTNODE,1,0 )),"^",3) | |
6383 | "RTN","ORM XFMT1",263 ,0) | |
6384 | . I TOTLI NES="" Q | |
6385 | "RTN","ORM XFMT1",264 ,0) | |
6386 | . ; | |
6387 | "RTN","ORM XFMT1",265 ,0) | |
6388 | . ; Add a blank lin e to delin iate betwe en comment s | |
6389 | "RTN","ORM XFMT1",266 ,0) | |
6390 | . I LINEC NT>1 S HLO ARR("COMME NT",LINECN T)=" ",LIN ECNT=LINEC NT+1 | |
6391 | "RTN","ORM XFMT1",267 ,0) | |
6392 | . ; | |
6393 | "RTN","ORM XFMT1",268 ,0) | |
6394 | . ; Set t he "commen t header" | |
6395 | "RTN","ORM XFMT1",269 ,0) | |
6396 | . D | |
6397 | "RTN","ORM XFMT1",270 ,0) | |
6398 | . . I CMT STS=6 S HL OARR("COMM ENT",LINEC NT)="DISCO NTINUE COM MENTS",LIN ECNT=LINEC NT+1 Q | |
6399 | "RTN","ORM XFMT1",271 ,0) | |
6400 | . . I CMT STS=17 S H LOARR("COM MENT",LINE CNT)="FORW ARD SERVIC E COMMENTS ",LINECNT= LINECNT+1 Q | |
6401 | "RTN","ORM XFMT1",272 ,0) | |
6402 | . . I CMT STS=19 S H LOARR("COM MENT",LINE CNT)="CANC EL COMMENT S",LINECNT =LINECNT+1 Q | |
6403 | "RTN","ORM XFMT1",273 ,0) | |
6404 | . . I CMT STS=20 S H LOARR("COM MENT",LINE CNT)="ADD COMMENTS", LINECNT=LI NECNT+1 Q | |
6405 | "RTN","ORM XFMT1",274 ,0) | |
6406 | . . I CMT STS=21 S H LOARR("COM MENT",LINE CNT)="RECE IVE COMMEN TS",LINECN T=LINECNT+ 1 Q | |
6407 | "RTN","ORM XFMT1",275 ,0) | |
6408 | . ; | |
6409 | "RTN","ORM XFMT1",276 ,0) | |
6410 | . ; Loop through th e comments and add t o the HLOA RR | |
6411 | "RTN","ORM XFMT1",277 ,0) | |
6412 | . F CMTCN T=1:1:TOTL INES D | |
6413 | "RTN","ORM XFMT1",278 ,0) | |
6414 | . . S HLO ARR("COMME NT",LINECN T)=$G(^GMR (123,GMRIE N,40,CMTNO DE,1,CMTCN T,0)),LINE CNT=LINECN T+1 | |
6415 | "RTN","ORM XFMT1",279 ,0) | |
6416 | ; | |
6417 | "RTN","ORM XFMT1",280 ,0) | |
6418 | S HLOARR( "COMMENT", 0)=LINECNT -1 | |
6419 | "RTN","ORM XFMT1",281 ,0) | |
6420 | ; | |
6421 | "RTN","ORM XFMT1",282 ,0) | |
6422 | Q | |
6423 | "RTN","ORM XFMT1",283 ,0) | |
6424 | ;;#eor# | |
6425 | "RTN","ORM XHL7") | |
6426 | 0^7^B59928 339 | |
6427 | "RTN","ORM XHL7",1,0) | |
6428 | ORMXHL7 ;M ASS/AWS - ORDER HL7 MESSAGE BU ILDING;05/ 10/18;2018 -05-10 15: 12:46;8.3; OJw4W5xBWg kJeYKckLHu 6hbE5eGFY2 B+t/EyJRSt b4s= | |
6429 | "RTN","ORM XHL7",2,0) | |
6430 | ;;3.0;Ord er Entry/R esults Rep orting;**4 70**;May 5 ,2018;Buil d 76 | |
6431 | "RTN","ORM XHL7",3,0) | |
6432 | ;;Per VA DIRECTIVE 6402, this routine s hould not be modifie d. | |
6433 | "RTN","ORM XHL7",4,0) | |
6434 | ; ICR# S upported R eferences | |
6435 | "RTN","ORM XHL7",5,0) | |
6436 | ; ##### PID^DGMXHL 7 | |
6437 | "RTN","ORM XHL7",6,0) | |
6438 | ; 4716 $$ADDSEG^H LOAPI | |
6439 | "RTN","ORM XHL7",7,0) | |
6440 | ; 4716 $$NEWMSG^H LOAPI | |
6441 | "RTN","ORM XHL7",8,0) | |
6442 | ; 4716 SET^HLOAPI | |
6443 | "RTN","ORM XHL7",9,0) | |
6444 | ; 4717 $$SENDONE^ HLOAPI1 | |
6445 | "RTN","ORM XHL7",10,0 ) | |
6446 | ; 4853 SETDT^HLOA PI4 | |
6447 | "RTN","ORM XHL7",11,0 ) | |
6448 | ; ##### ESCINVLD^S DMXCORE | |
6449 | "RTN","ORM XHL7",12,0 ) | |
6450 | ; ##### ERRLOG^SDM XERRO | |
6451 | "RTN","ORM XHL7",13,0 ) | |
6452 | ; 2263 $$GET^XPAR | |
6453 | "RTN","ORM XHL7",14,0 ) | |
6454 | ; | |
6455 | "RTN","ORM XHL7",15,0 ) | |
6456 | ERRLG314(E RROR,ORDTY PE,ORDNUM) ; Formats error tex t and logs error for error cod e 314, mes sage faile d build. | |
6457 | "RTN","ORM XHL7",16,0 ) | |
6458 | ; ERROR ( I,REQ) - E rror text from the H LOAPI rout ines. | |
6459 | "RTN","ORM XHL7",17,0 ) | |
6460 | ; ORDTYPE (I,REQ) - order typ e (consult , C&P, etc .) for the order tha t is | |
6461 | "RTN","ORM XHL7",18,0 ) | |
6462 | ; being pro cessed. U sed for co ntextual i nformation on | |
6463 | "RTN","ORM XHL7",19,0 ) | |
6464 | ; the error . | |
6465 | "RTN","ORM XHL7",20,0 ) | |
6466 | ; ORDNUM (I,REQ) - IEN of ord er that is being pro cessed. | |
6467 | "RTN","ORM XHL7",21,0 ) | |
6468 | ; | |
6469 | "RTN","ORM XHL7",22,0 ) | |
6470 | S ERROR=$ G(ERROR),O RDTYPE=$G( ORDTYPE),O RDNUM=$G(O RDNUM) | |
6471 | "RTN","ORM XHL7",23,0 ) | |
6472 | I $E(ERRO R,$L(ERROR ))'="." S ERROR=ERRO R_"." | |
6473 | "RTN","ORM XHL7",24,0 ) | |
6474 | S ERROR=E RROR_" "_O RDTYPE_": "_$S(ORDNU M'="":ORDN UM,1:"No I D availabl e") | |
6475 | "RTN","ORM XHL7",25,0 ) | |
6476 | D ERRLOG^ SDMXERRO(3 14,ERROR,1 ) | |
6477 | "RTN","ORM XHL7",26,0 ) | |
6478 | Q | |
6479 | "RTN","ORM XHL7",27,0 ) | |
6480 | BLDORMHL(H LOARR,ERRO R,LINK) ; Builds an ORM messag e using HL O APIs. | |
6481 | "RTN","ORM XHL7",28,0 ) | |
6482 | ; HLOARR (I,OPT) - Array cont aining the order inf ormation | |
6483 | "RTN","ORM XHL7",29,0 ) | |
6484 | ; ERROR ( O,OPT) - Contains t he error r eason if a n error oc curs | |
6485 | "RTN","ORM XHL7",30,0 ) | |
6486 | ; | |
6487 | "RTN","ORM XHL7",31,0 ) | |
6488 | ; Returns the messa ge number on success ; -1 other wise | |
6489 | "RTN","ORM XHL7",32,0 ) | |
6490 | ; | |
6491 | "RTN","ORM XHL7",33,0 ) | |
6492 | N PARMS,H LMSTATE,SE G,DFN,DIAG SEQ,NTECNT ,WHOTO,RSN CNT,CMTCNT ,OK,SUCCES S,MASSESC, ESCCHAR | |
6493 | "RTN","ORM XHL7",34,0 ) | |
6494 | S (PARMS, HLMSTATE,S EG,DFN,DIA GSEQ,NTECN T,WHOTO,RS NCNT,CMTCN T,OK,SUCCE SS,MASSESC ,ESCCHAR)= "" | |
6495 | "RTN","ORM XHL7",35,0 ) | |
6496 | S HLOARR= $G(HLOARR) ,ERROR=$G( ERROR),LIN K=$G(LINK) | |
6497 | "RTN","ORM XHL7",36,0 ) | |
6498 | K ERROR S ERROR="" | |
6499 | "RTN","ORM XHL7",37,0 ) | |
6500 | ; | |
6501 | "RTN","ORM XHL7",38,0 ) | |
6502 | ; Set nec essary var iables | |
6503 | "RTN","ORM XHL7",39,0 ) | |
6504 | S PARMS(" EVENT")="O 01" | |
6505 | "RTN","ORM XHL7",40,0 ) | |
6506 | S PARMS(" MESSAGE TY PE")="ORM" | |
6507 | "RTN","ORM XHL7",41,0 ) | |
6508 | S PARMS(" MESSAGE ST RUCTURE")= "ORM_O01" | |
6509 | "RTN","ORM XHL7",42,0 ) | |
6510 | S PARMS(" VERSION")= "2.4" | |
6511 | "RTN","ORM XHL7",43,0 ) | |
6512 | I $G(LINK )="" S LIN K="OR ORM OUT" | |
6513 | "RTN","ORM XHL7",44,0 ) | |
6514 | S MASSESC =$$GET^XPA R("SYS","M ASS ASCII CHARACTER SWITCH") | |
6515 | "RTN","ORM XHL7",45,0 ) | |
6516 | S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII CHAR REPLA CEMENT") | |
6517 | "RTN","ORM XHL7",46,0 ) | |
6518 | ; | |
6519 | "RTN","ORM XHL7",47,0 ) | |
6520 | I '$$NEWM SG^HLOAPI( .PARMS,.HL MSTATE,.ER ROR) Q -1 | |
6521 | "RTN","ORM XHL7",48,0 ) | |
6522 | ; | |
6523 | "RTN","ORM XHL7",49,0 ) | |
6524 | ; Build P ID segment | |
6525 | "RTN","ORM XHL7",50,0 ) | |
6526 | S DFN=$P( $G(HLOARR( "PATIENT") ),"^",1) | |
6527 | "RTN","ORM XHL7",51,0 ) | |
6528 | ; | |
6529 | "RTN","ORM XHL7",52,0 ) | |
6530 | D PID^DGM XHL7(DFN,1 ,.SEG) | |
6531 | "RTN","ORM XHL7",53,0 ) | |
6532 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6533 | "RTN","ORM XHL7",54,0 ) | |
6534 | I '$$ADDS EG^HLOAPI( .HLMSTATE, .SEG,.ERRO R) Q -1 | |
6535 | "RTN","ORM XHL7",55,0 ) | |
6536 | ; | |
6537 | "RTN","ORM XHL7",56,0 ) | |
6538 | ; Build P V1 segment | |
6539 | "RTN","ORM XHL7",57,0 ) | |
6540 | D PV1(.HL OARR,.SEG) | |
6541 | "RTN","ORM XHL7",58,0 ) | |
6542 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6543 | "RTN","ORM XHL7",59,0 ) | |
6544 | I '$$ADDS EG^HLOAPI( .HLMSTATE, .SEG,.ERRO R) Q -1 | |
6545 | "RTN","ORM XHL7",60,0 ) | |
6546 | ; | |
6547 | "RTN","ORM XHL7",61,0 ) | |
6548 | ; Build O RC segment | |
6549 | "RTN","ORM XHL7",62,0 ) | |
6550 | D ORC(.HL OARR,.SEG) | |
6551 | "RTN","ORM XHL7",63,0 ) | |
6552 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6553 | "RTN","ORM XHL7",64,0 ) | |
6554 | I '$$ADDS EG^HLOAPI( .HLMSTATE, .SEG,.ERRO R) Q -1 | |
6555 | "RTN","ORM XHL7",65,0 ) | |
6556 | ; | |
6557 | "RTN","ORM XHL7",66,0 ) | |
6558 | ; Build O BR segment | |
6559 | "RTN","ORM XHL7",67,0 ) | |
6560 | D OBR(.HL OARR,1,.SE G) | |
6561 | "RTN","ORM XHL7",68,0 ) | |
6562 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6563 | "RTN","ORM XHL7",69,0 ) | |
6564 | I '$$ADDS EG^HLOAPI( .HLMSTATE, .SEG,.ERRO R) Q -1 | |
6565 | "RTN","ORM XHL7",70,0 ) | |
6566 | ; | |
6567 | "RTN","ORM XHL7",71,0 ) | |
6568 | ; Build N TE segment s | |
6569 | "RTN","ORM XHL7",72,0 ) | |
6570 | S NTECNT= 1 | |
6571 | "RTN","ORM XHL7",73,0 ) | |
6572 | F RSNCNT= 1:1:$G(HLO ARR("REASO N FOR STUD Y",0)) D | |
6573 | "RTN","ORM XHL7",74,0 ) | |
6574 | . D NTE($ G(HLOARR(" REASON FOR STUDY",RS NCNT)),"CM T",NTECNT, .SEG) | |
6575 | "RTN","ORM XHL7",75,0 ) | |
6576 | . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR) | |
6577 | "RTN","ORM XHL7",76,0 ) | |
6578 | . I $$ADD SEG^HLOAPI (.HLMSTATE ,.SEG,.ERR OR) S NTEC NT=NTECNT+ 1 | |
6579 | "RTN","ORM XHL7",77,0 ) | |
6580 | ; | |
6581 | "RTN","ORM XHL7",78,0 ) | |
6582 | ; Add a b lank line between co mments | |
6583 | "RTN","ORM XHL7",79,0 ) | |
6584 | I (NTECNT >1),($G(HL OARR("COMM ENT",0))>0 ) D | |
6585 | "RTN","ORM XHL7",80,0 ) | |
6586 | . D NTE(" ","CMT",N TECNT,.SEG ) | |
6587 | "RTN","ORM XHL7",81,0 ) | |
6588 | . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR) | |
6589 | "RTN","ORM XHL7",82,0 ) | |
6590 | . I $$ADD SEG^HLOAPI (.HLMSTATE ,.SEG,.ERR OR) S NTEC NT=NTECNT+ 1 | |
6591 | "RTN","ORM XHL7",83,0 ) | |
6592 | ; | |
6593 | "RTN","ORM XHL7",84,0 ) | |
6594 | F CMTCNT= 1:1:$G(HLO ARR("COMME NT",0)) D | |
6595 | "RTN","ORM XHL7",85,0 ) | |
6596 | . D NTE($ G(HLOARR(" COMMENT",C MTCNT)),"C MT",NTECNT ,.SEG) | |
6597 | "RTN","ORM XHL7",86,0 ) | |
6598 | . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR) | |
6599 | "RTN","ORM XHL7",87,0 ) | |
6600 | . I $$ADD SEG^HLOAPI (.HLMSTATE ,.SEG,.ERR OR) S NTEC NT=NTECNT+ 1 | |
6601 | "RTN","ORM XHL7",88,0 ) | |
6602 | ; | |
6603 | "RTN","ORM XHL7",89,0 ) | |
6604 | I $G(HLOA RR("CPRS S TATUS"))'= "" D | |
6605 | "RTN","ORM XHL7",90,0 ) | |
6606 | . D NTE($ G(HLOARR(" CPRS STATU S")),"STS" ,NTECNT,.S EG) | |
6607 | "RTN","ORM XHL7",91,0 ) | |
6608 | . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR) | |
6609 | "RTN","ORM XHL7",92,0 ) | |
6610 | . I $$ADD SEG^HLOAPI (.HLMSTATE ,.SEG,.ERR OR) S NTEC NT=NTECNT+ 1 | |
6611 | "RTN","ORM XHL7",93,0 ) | |
6612 | ; | |
6613 | "RTN","ORM XHL7",94,0 ) | |
6614 | ; Build D G1 segment | |
6615 | "RTN","ORM XHL7",95,0 ) | |
6616 | F DIAGSEQ =1:1:$G(HL OARR("DIAG NOSIS",0)) D | |
6617 | "RTN","ORM XHL7",96,0 ) | |
6618 | . D DG1(. HLOARR,DIA GSEQ,.SEG) | |
6619 | "RTN","ORM XHL7",97,0 ) | |
6620 | . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR) | |
6621 | "RTN","ORM XHL7",98,0 ) | |
6622 | . S OK=$$ ADDSEG^HLO API(.HLMST ATE,.SEG,. ERROR) | |
6623 | "RTN","ORM XHL7",99,0 ) | |
6624 | ; | |
6625 | "RTN","ORM XHL7",100, 0) | |
6626 | I $G(HLOA RR("NO LAT ER THAN")) '="" D | |
6627 | "RTN","ORM XHL7",101, 0) | |
6628 | . D OBX(. HLOARR,.SE G) | |
6629 | "RTN","ORM XHL7",102, 0) | |
6630 | . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR) | |
6631 | "RTN","ORM XHL7",103, 0) | |
6632 | . S OK=$$ ADDSEG^HLO API(.HLMST ATE,.SEG,. ERROR) | |
6633 | "RTN","ORM XHL7",104, 0) | |
6634 | ; | |
6635 | "RTN","ORM XHL7",105, 0) | |
6636 | ; Send th e message | |
6637 | "RTN","ORM XHL7",106, 0) | |
6638 | S PARMS(" SENDING AP PLICATION" )="OR-ORM- OUT" | |
6639 | "RTN","ORM XHL7",107, 0) | |
6640 | S WHOTO(" RECEIVING APPLICATIO N")="EPIC" | |
6641 | "RTN","ORM XHL7",108, 0) | |
6642 | S WHOTO(" FACILITY L INK NAME") =LINK | |
6643 | "RTN","ORM XHL7",109, 0) | |
6644 | ; | |
6645 | "RTN","ORM XHL7",110, 0) | |
6646 | S SUCCESS =$$SENDONE ^HLOAPI1(. HLMSTATE,. PARMS,.WHO TO,.ERROR) | |
6647 | "RTN","ORM XHL7",111, 0) | |
6648 | ; | |
6649 | "RTN","ORM XHL7",112, 0) | |
6650 | Q $S(SUCC ESS=0:-1,1 :SUCCESS) | |
6651 | "RTN","ORM XHL7",113, 0) | |
6652 | PV1(HLOARR ,SEG) ; Bu ilds the P V1 segment using the HLO segme nt buildin g APIs. | |
6653 | "RTN","ORM XHL7",114, 0) | |
6654 | ; HLOARR (I,REQ) - The array containing the order informati on | |
6655 | "RTN","ORM XHL7",115, 0) | |
6656 | ; SEG (IO ,REQ) - The segmen t, returne d as a lis t of field s. | |
6657 | "RTN","ORM XHL7",116, 0) | |
6658 | ; | |
6659 | "RTN","ORM XHL7",117, 0) | |
6660 | N CLINIC | |
6661 | "RTN","ORM XHL7",118, 0) | |
6662 | K SEG S S EG="" ; Th e segment should sta rt off bla nk. | |
6663 | "RTN","ORM XHL7",119, 0) | |
6664 | ; | |
6665 | "RTN","ORM XHL7",120, 0) | |
6666 | D SET^HLO API(.SEG," PV1",0) ; Set the se gment type . | |
6667 | "RTN","ORM XHL7",121, 0) | |
6668 | ; | |
6669 | "RTN","ORM XHL7",122, 0) | |
6670 | ; Set Cli nic in int o PV1-3 (f ormat: <Cl inic ID> < Clinic fac ility ID>^ ^^<Clinic facility I D>^^^^^^^< Assigning authority> ) | |
6671 | "RTN","ORM XHL7",123, 0) | |
6672 | S CLINIC= $G(HLOARR( "CLINIC")) | |
6673 | "RTN","ORM XHL7",124, 0) | |
6674 | D SET^HLO API(.SEG,$ P(CLINIC," ^",1)_" "_ $P(CLINIC, "^",2),3,1 ,1,1) ; Cl inic ID | |
6675 | "RTN","ORM XHL7",125, 0) | |
6676 | D SET^HLO API(.SEG,$ P(CLINIC," ^",2),3,4, 1,1) ; Cl inic facil ity ID | |
6677 | "RTN","ORM XHL7",126, 0) | |
6678 | D SET^HLO API(.SEG,$ P(CLINIC," ^",4),3,11 ,1,1) ; Cl inic assig ning autho rity | |
6679 | "RTN","ORM XHL7",127, 0) | |
6680 | Q | |
6681 | "RTN","ORM XHL7",128, 0) | |
6682 | ORC(HLOARR ,SEG) ; Bu ilds the O RC segment using the HLO segme nt buildin g APIs. | |
6683 | "RTN","ORM XHL7",129, 0) | |
6684 | ; HLOARR (I,REQ) - The array containing the order informati on | |
6685 | "RTN","ORM XHL7",130, 0) | |
6686 | ; SEG (IO ,REQ) - The segmen t, returne d as a lis t of field s. | |
6687 | "RTN","ORM XHL7",131, 0) | |
6688 | ; | |
6689 | "RTN","ORM XHL7",132, 0) | |
6690 | K SEG S S EG="" ; Th e segment should sta rt off bla nk. | |
6691 | "RTN","ORM XHL7",133, 0) | |
6692 | ; | |
6693 | "RTN","ORM XHL7",134, 0) | |
6694 | D SET^HLO API(.SEG," ORC",0) ; Set the se gment type . | |
6695 | "RTN","ORM XHL7",135, 0) | |
6696 | D SET^HLO API(.SEG,$ G(HLOARR(" ORDER CODE ")),1) ;OR C-1 | |
6697 | "RTN","ORM XHL7",136, 0) | |
6698 | D SETDT^H LOAPI4(.SE G,$G(HLOAR R("ORDER D ATE")),9) ;ORC-9 | |
6699 | "RTN","ORM XHL7",137, 0) | |
6700 | D SET^HLO API(.SEG,$ G(HLOARR(" CANCEL REA SON")),16) ;ORC-16 | |
6701 | "RTN","ORM XHL7",138, 0) | |
6702 | Q | |
6703 | "RTN","ORM XHL7",139, 0) | |
6704 | OBR(HLOARR ,SEGCNT,SE G) ; Build s the OBR segment us ing the HL O segment building A PIs. | |
6705 | "RTN","ORM XHL7",140, 0) | |
6706 | ; HLOARR (I,REQ) - The array containing the order informati on | |
6707 | "RTN","ORM XHL7",141, 0) | |
6708 | ; SEGCNT (I,OPT) - Value for OBR-1. For the first occurrenc e of the s egment | |
6709 | "RTN","ORM XHL7",142, 0) | |
6710 | ; it should be set to 1, for the second 2, etc. If n o value | |
6711 | "RTN","ORM XHL7",143, 0) | |
6712 | ; is passed in, a defa ult value of 1 is as signed. | |
6713 | "RTN","ORM XHL7",144, 0) | |
6714 | ; SEG (O, REQ) - T he segment , returned as a list of fields . | |
6715 | "RTN","ORM XHL7",145, 0) | |
6716 | ; | |
6717 | "RTN","ORM XHL7",146, 0) | |
6718 | N ORDERAB L,ORDERID, PROVIDER,T YPE | |
6719 | "RTN","ORM XHL7",147, 0) | |
6720 | S (ORDERA BL,ORDERID ,PROVIDER, TYPE)="" | |
6721 | "RTN","ORM XHL7",148, 0) | |
6722 | S HLOARR= $G(HLOARR) ,SEGCNT=$G (SEGCNT),S EG=$G(SEG) | |
6723 | "RTN","ORM XHL7",149, 0) | |
6724 | K SEG S S EG="" ; Th e segment should sta rt off bla nk. | |
6725 | "RTN","ORM XHL7",150, 0) | |
6726 | ; | |
6727 | "RTN","ORM XHL7",151, 0) | |
6728 | D SET^HLO API(.SEG," OBR",0) ; Set the se gment type . | |
6729 | "RTN","ORM XHL7",152, 0) | |
6730 | ; | |
6731 | "RTN","ORM XHL7",153, 0) | |
6732 | ; Set OBR -1 | |
6733 | "RTN","ORM XHL7",154, 0) | |
6734 | I SEGCNT= "" D SET^H LOAPI(.SEG ,1,1) I 1 | |
6735 | "RTN","ORM XHL7",155, 0) | |
6736 | E D SET^ HLOAPI(.SE G,SEGCNT,1 ) | |
6737 | "RTN","ORM XHL7",156, 0) | |
6738 | ; | |
6739 | "RTN","ORM XHL7",157, 0) | |
6740 | ; Set ord er number in into OB R-2 (forma t: <Applic ation ID>- <ID>) | |
6741 | "RTN","ORM XHL7",158, 0) | |
6742 | S ORDERID =$G(HLOARR ("ORDER ID ")) | |
6743 | "RTN","ORM XHL7",159, 0) | |
6744 | D SET^HLO API(.SEG,$ P(ORDERID, "^",2)_"-" _$P(ORDERI D,"^",1),2 ,1,1,1) | |
6745 | "RTN","ORM XHL7",160, 0) | |
6746 | ; | |
6747 | "RTN","ORM XHL7",161, 0) | |
6748 | ; Set ord erable int o OBR-4 (f ormat: <ID >^<Name>^< Coding sys tem name>) | |
6749 | "RTN","ORM XHL7",162, 0) | |
6750 | S ORDERAB L=$G(HLOAR R("ORDERAB LE")) | |
6751 | "RTN","ORM XHL7",163, 0) | |
6752 | D SET^HLO API(.SEG,$ P(ORDERABL ,"^",1),4, 1,1,1) ; O rder ID | |
6753 | "RTN","ORM XHL7",164, 0) | |
6754 | D SET^HLO API(.SEG,$ P(ORDERABL ,"^",2),4, 2,1,1) ; O rder name | |
6755 | "RTN","ORM XHL7",165, 0) | |
6756 | D SET^HLO API(.SEG,$ P(ORDERABL ,"^",3),4, 3,1,1) ; O rder codin g system n ame | |
6757 | "RTN","ORM XHL7",166, 0) | |
6758 | ; | |
6759 | "RTN","ORM XHL7",167, 0) | |
6760 | ; Set Pro vider in i nto OBR-16 (format: <ID>^<Last name>^<Fi rst name>^ ^^^^^<Assi gning auth ority>^^^^ <ID type>) | |
6761 | "RTN","ORM XHL7",168, 0) | |
6762 | S PROVIDE R=$G(HLOAR R("ORDERIN G PHYSICIA N")) | |
6763 | "RTN","ORM XHL7",169, 0) | |
6764 | S TYPE=$P (PROVIDER, "^",4) | |
6765 | "RTN","ORM XHL7",170, 0) | |
6766 | D SET^HLO API(.SEG,$ P(PROVIDER ,"^",1),16 ,1,1,1) ; Provider ID | |
6767 | "RTN","ORM XHL7",171, 0) | |
6768 | D SET^HLO API(.SEG,$ P(PROVIDER ,"^",2),16 ,2,1,1) ; Provider last name | |
6769 | "RTN","ORM XHL7",172, 0) | |
6770 | D SET^HLO API(.SEG,$ P(PROVIDER ,"^",3),16 ,3,1,1) ; Provider first name | |
6771 | "RTN","ORM XHL7",173, 0) | |
6772 | D SET^HLO API(.SEG,T YPE,16,9,1 ,1) ; Pro vider assi gning auth ority | |
6773 | "RTN","ORM XHL7",174, 0) | |
6774 | D SET^HLO API(.SEG,T YPE,16,13, 1,1) ; Pro vider ID t ype | |
6775 | "RTN","ORM XHL7",175, 0) | |
6776 | ; | |
6777 | "RTN","ORM XHL7",176, 0) | |
6778 | D SETDT^H LOAPI4(.SE G,$G(HLOAR R("START D ATE")),27, 4,1) ;OBR- 27.4 | |
6779 | "RTN","ORM XHL7",177, 0) | |
6780 | D SETDT^H LOAPI4(.SE G,$G(HLOAR R("STOP DA TE")),27,5 ,1) ;OBR-2 7.5 | |
6781 | "RTN","ORM XHL7",178, 0) | |
6782 | D SET^HLO API(.SEG,$ G(HLOARR(" URGENCY")) ,27,6,1,1) ;urgency into OBR 2 7.6 | |
6783 | "RTN","ORM XHL7",179, 0) | |
6784 | ; | |
6785 | "RTN","ORM XHL7",180, 0) | |
6786 | ;Add in r eccurency informatio n (OBR-27. 2, OBR-27. 8, OBR-27. 12) | |
6787 | "RTN","ORM XHL7",181, 0) | |
6788 | I $G(HLOA RR("RECUR" ))>1 D | |
6789 | "RTN","ORM XHL7",182, 0) | |
6790 | . D SET^H LOAPI(.SEG ,$G(HLOARR ("FREQUENC Y")),27,2, 1,1) | |
6791 | "RTN","ORM XHL7",183, 0) | |
6792 | . D SET^H LOAPI(.SEG ,"STANDING ",27,8,1,1 ) | |
6793 | "RTN","ORM XHL7",184, 0) | |
6794 | . D SET^H LOAPI(.SEG ,$G(HLOARR ("RECUR")) ,27,12,1,1 ) | |
6795 | "RTN","ORM XHL7",185, 0) | |
6796 | Q | |
6797 | "RTN","ORM XHL7",186, 0) | |
6798 | OBX(HLOARR ,SEG) ; Bu ilds the O BX segment using the HLO segme nt buildin g APIs. | |
6799 | "RTN","ORM XHL7",187, 0) | |
6800 | ; HLOARR (I,REQ) - The array containing the order informati on | |
6801 | "RTN","ORM XHL7",188, 0) | |
6802 | ; SEG (IO ,REQ) - The segmen t, returne d as a lis t of field s. | |
6803 | "RTN","ORM XHL7",189, 0) | |
6804 | ; | |
6805 | "RTN","ORM XHL7",190, 0) | |
6806 | K SEG S S EG="" ; Th e segment should sta rt off bla nk. | |
6807 | "RTN","ORM XHL7",191, 0) | |
6808 | ; | |
6809 | "RTN","ORM XHL7",192, 0) | |
6810 | D SET^HLO API(.SEG," OBX",0) ; Set the se gment type . | |
6811 | "RTN","ORM XHL7",193, 0) | |
6812 | D SET^HLO API(.SEG,1 ,1) ;set i d into OBX -1 | |
6813 | "RTN","ORM XHL7",194, 0) | |
6814 | D SET^HLO API(.SEG," TX",2) ;OB X-2 to ST | |
6815 | "RTN","ORM XHL7",195, 0) | |
6816 | D SET^HLO API(.SEG," 1",3) ;OBX -3 to the observatio n type | |
6817 | "RTN","ORM XHL7",196, 0) | |
6818 | D SET^HLO API(.SEG,$ G(HLOARR(" NO LATER T HAN")),5) ;OBX-5 | |
6819 | "RTN","ORM XHL7",197, 0) | |
6820 | Q | |
6821 | "RTN","ORM XHL7",198, 0) | |
6822 | NTE(NTECMT ,NTETYPE,S EGCNT,SEG) ; Builds the NTE se gment usin g the HLO segment bu ilding API s. | |
6823 | "RTN","ORM XHL7",199, 0) | |
6824 | ; NTECMT (I,REQ) - Free text comment | |
6825 | "RTN","ORM XHL7",200, 0) | |
6826 | ; NTETYPE (I,OPT) - The comme nt type | |
6827 | "RTN","ORM XHL7",201, 0) | |
6828 | ; SEGCNT (I,REQ) - Value for NTE-1. Fo r the firs t occurren ce of the segment | |
6829 | "RTN","ORM XHL7",202, 0) | |
6830 | ; it should be set to 1, for th e second 2 , etc. | |
6831 | "RTN","ORM XHL7",203, 0) | |
6832 | ; SEG (O, REQ) - The segmen t, returne d as a lis t of field s. | |
6833 | "RTN","ORM XHL7",204, 0) | |
6834 | ; | |
6835 | "RTN","ORM XHL7",205, 0) | |
6836 | S NTECMT= $G(NTECMT) ,NTETYPE=$ G(NTETYPE) ,SEGCNT=$G (SEGCNT),S EG=$G(SEGC NT) | |
6837 | "RTN","ORM XHL7",206, 0) | |
6838 | K SEG S S EG="" ; Th e segment should sta rt off bla nk. | |
6839 | "RTN","ORM XHL7",207, 0) | |
6840 | ; | |
6841 | "RTN","ORM XHL7",208, 0) | |
6842 | D SET^HLO API(.SEG," NTE",0) ; Set the se gment type . | |
6843 | "RTN","ORM XHL7",209, 0) | |
6844 | D SET^HLO API(.SEG,S EGCNT,1) ; NTE-1 | |
6845 | "RTN","ORM XHL7",210, 0) | |
6846 | D SET^HLO API(.SEG,$ G(NTECMT), 3) ;NTE-3 | |
6847 | "RTN","ORM XHL7",211, 0) | |
6848 | D SET^HLO API(.SEG,$ G(NTETYPE) ,4) ;NTE-4 | |
6849 | "RTN","ORM XHL7",212, 0) | |
6850 | Q | |
6851 | "RTN","ORM XHL7",213, 0) | |
6852 | DG1(HLOARR ,SEGCNT,SE G) ; Build s the DG1 segment us ing the HL O segment building A PIs. | |
6853 | "RTN","ORM XHL7",214, 0) | |
6854 | ; HLOARR (I,REQ) - The array containing the diagn osis infor mation | |
6855 | "RTN","ORM XHL7",215, 0) | |
6856 | ; SEGCNT (I,REQ) - Value for DG1-1. For the first occurrenc e of the s egment | |
6857 | "RTN","ORM XHL7",216, 0) | |
6858 | ; it should be set to 1, for the second 2, etc. | |
6859 | "RTN","ORM XHL7",217, 0) | |
6860 | ; SEG (O, REQ) - T he segment , returned as a list of fields . | |
6861 | "RTN","ORM XHL7",218, 0) | |
6862 | ; | |
6863 | "RTN","ORM XHL7",219, 0) | |
6864 | N DIAGNSI S | |
6865 | "RTN","ORM XHL7",220, 0) | |
6866 | S HLOARR= $G(HLOARR) ,SEGCNT=$G (SEGCNT),S EG=$G(SEG) | |
6867 | "RTN","ORM XHL7",221, 0) | |
6868 | K SEG S S EG="" ;The segment s hould star t off blan k. | |
6869 | "RTN","ORM XHL7",222, 0) | |
6870 | ; | |
6871 | "RTN","ORM XHL7",223, 0) | |
6872 | D SET^HLO API(.SEG," DG1",0) ;S et the seg ment type. | |
6873 | "RTN","ORM XHL7",224, 0) | |
6874 | D SET^HLO API(.SEG,S EGCNT,1) ; DG1-1 | |
6875 | "RTN","ORM XHL7",225, 0) | |
6876 | S DIAGNSI S=$G(HLOAR R("DIAGNOS IS",SEGCNT )) | |
6877 | "RTN","ORM XHL7",226, 0) | |
6878 | D SET^HLO API(.SEG,$ P(DIAGNSIS ,"^",1),3, 1,1,1) ; D iagnosis I D | |
6879 | "RTN","ORM XHL7",227, 0) | |
6880 | D SET^HLO API(.SEG,$ P(DIAGNSIS ,"^",2),3, 2,1,1) ; D iagnosis n ame | |
6881 | "RTN","ORM XHL7",228, 0) | |
6882 | D SET^HLO API(.SEG,$ P(DIAGNSIS ,"^",3),3, 3,1,1) ; D iagnosis c ode set | |
6883 | "RTN","ORM XHL7",229, 0) | |
6884 | Q | |
6885 | "RTN","ORM XHL7",230, 0) | |
6886 | ;;#eor# | |
6887 | "RTN","ORM XTR") | |
6888 | 0^2^B20747 8225 | |
6889 | "RTN","ORM XTR",1,0) | |
6890 | ORMXTR ;MA SS/AWS - O RDER TRIGG ERING;08/2 2/17;2018- 05-30 13:5 4:35;8.3;u AFd6bku+Xb H9L0CuYq9L fPEhOnKwd5 j/SQBot6ob U8= | |
6891 | "RTN","ORM XTR",2,0) | |
6892 | ;;3.0;Ord er Entry/R esults Rep orting;**4 70**;AUGUS T 22,2017; Build 76 | |
6893 | "RTN","ORM XTR",3,0) | |
6894 | ;;Per VA DIRECTIVE 6402, this routine s hould not be modifie d. | |
6895 | "RTN","ORM XTR",4,0) | |
6896 | ; ICR# S upported R eferences | |
6897 | "RTN","ORM XTR",5,0) | |
6898 | ; 5903 STATUS^ORC SAVE2 | |
6899 | "RTN","ORM XTR",6,0) | |
6900 | ; ##### $$ORDITEM^ ORM | |
6901 | "RTN","ORM XTR",7,0) | |
6902 | ; ##### $$INCINTF^ SDMXCORE | |
6903 | "RTN","ORM XTR",8,0) | |
6904 | ; ##### $$INSTRING ^SDMXCORE | |
6905 | "RTN","ORM XTR",9,0) | |
6906 | ; ##### ERRLOG^SDM XERRO | |
6907 | "RTN","ORM XTR",10,0) | |
6908 | ; ##### $$LOCKORD^ SDMXLKRQ | |
6909 | "RTN","ORM XTR",11,0) | |
6910 | ; ##### $$ULOCKORD ^SDMXLKRQ | |
6911 | "RTN","ORM XTR",12,0) | |
6912 | ; 2263 $$GET^XPAR | |
6913 | "RTN","ORM XTR",13,0) | |
6914 | ; 10035 ^DPT | |
6915 | "RTN","ORM XTR",14,0) | |
6916 | ; 10040 ^SC | |
6917 | "RTN","ORM XTR",15,0) | |
6918 | ; 4685 ^ORD | |
6919 | "RTN","ORM XTR",16,0) | |
6920 | ; ### ^OR | |
6921 | "RTN","ORM XTR",17,0) | |
6922 | ; ### ^DVB | |
6923 | "RTN","ORM XTR",18,0) | |
6924 | ; ### ^DGEN | |
6925 | "RTN","ORM XTR",19,0) | |
6926 | ; ### ^GMR | |
6927 | "RTN","ORM XTR",20,0) | |
6928 | TRORDMSG(C NTLLIST) ; Entry poi nt for tri ggering an y (i.e. "N W","XO","C A") ORM me ssages for orders | |
6929 | "RTN","ORM XTR",21,0) | |
6930 | ; CNTLLIS T (I,OPT) - Set to a list of s pecific co ntrol code s (i.e. "N W", "XO", "NW,CA") y ou want to trigger a message f or | |
6931 | "RTN","ORM XTR",22,0) | |
6932 | ; | |
6933 | "RTN","ORM XTR",23,0) | |
6934 | ; Variabl es assumed to be set from call ing functi on/protoco l/cross re ference: | |
6935 | "RTN","ORM XTR",24,0) | |
6936 | ; CODE - The mes sage contr ol code (i .e. NW, DC , CA, etc. ) | |
6937 | "RTN","ORM XTR",25,0) | |
6938 | ; ORIFN - Order I D | |
6939 | "RTN","ORM XTR",26,0) | |
6940 | ; | |
6941 | "RTN","ORM XTR",27,0) | |
6942 | ; Called By: | |
6943 | "RTN","ORM XTR",28,0) | |
6944 | ; ORMX ORM HL7 TR IGGER - OR DERS actio n protocol | |
6945 | "RTN","ORM XTR",29,0) | |
6946 | ; OR EVSEND RA | |
6947 | "RTN","ORM XTR",30,0) | |
6948 | ; OR EVSEND LRC H | |
6949 | "RTN","ORM XTR",31,0) | |
6950 | ; OR EVSEND LRB B | |
6951 | "RTN","ORM XTR",32,0) | |
6952 | ; OR EVSEND LRA P | |
6953 | "RTN","ORM XTR",33,0) | |
6954 | ; OR EVSEND DGP M | |
6955 | "RTN","ORM XTR",34,0) | |
6956 | ; OR EVSEND FH | |
6957 | "RTN","ORM XTR",35,0) | |
6958 | ; OR EVSEND ORG | |
6959 | "RTN","ORM XTR",36,0) | |
6960 | ; OR EVSEND PS | |
6961 | "RTN","ORM XTR",37,0) | |
6962 | ; OR EVSEND GMR C | |
6963 | "RTN","ORM XTR",38,0) | |
6964 | ; | |
6965 | "RTN","ORM XTR",39,0) | |
6966 | S CNTLLIS T=$G(CNTLL IST) | |
6967 | "RTN","ORM XTR",40,0) | |
6968 | ; | |
6969 | "RTN","ORM XTR",41,0) | |
6970 | N ORIEN | |
6971 | "RTN","ORM XTR",42,0) | |
6972 | S (ORIEN) ="" | |
6973 | "RTN","ORM XTR",43,0) | |
6974 | ; | |
6975 | "RTN","ORM XTR",44,0) | |
6976 | ; If MASS isn't ena bled, don' t trigger messages | |
6977 | "RTN","ORM XTR",45,0) | |
6978 | I '$$GET^ XPAR("SYS" ,"SDMX MAS S ENABLED" ) Q | |
6979 | "RTN","ORM XTR",46,0) | |
6980 | ; | |
6981 | "RTN","ORM XTR",47,0) | |
6982 | ; Prevent s reboundi ng message s from inc oming sche duling | |
6983 | "RTN","ORM XTR",48,0) | |
6984 | I $$INCIN TF^SDMXCOR E() Q | |
6985 | "RTN","ORM XTR",49,0) | |
6986 | ; | |
6987 | "RTN","ORM XTR",50,0) | |
6988 | ; Check a ssumed var iables | |
6989 | "RTN","ORM XTR",51,0) | |
6990 | S ORIEN=$ P($G(ORIFN ),";",1) | |
6991 | "RTN","ORM XTR",52,0) | |
6992 | I ORIEN=" " Q | |
6993 | "RTN","ORM XTR",53,0) | |
6994 | ; | |
6995 | "RTN","ORM XTR",54,0) | |
6996 | ; Prevent s triggeri ng consult s as order s | |
6997 | "RTN","ORM XTR",55,0) | |
6998 | I $D(^GMR (123,"AC", ORIEN)) Q | |
6999 | "RTN","ORM XTR",56,0) | |
7000 | ; | |
7001 | "RTN","ORM XTR",57,0) | |
7002 | ; Prevent s triggeri ng message s for batc h header | |
7003 | "RTN","ORM XTR",58,0) | |
7004 | I '$D(COD E),CNTLLIS T="" Q | |
7005 | "RTN","ORM XTR",59,0) | |
7006 | ; | |
7007 | "RTN","ORM XTR",60,0) | |
7008 | ; Determi ne the eve nt (i.e. c ontrol cod e) | |
7009 | "RTN","ORM XTR",61,0) | |
7010 | I CNTLLIS T="" S CNT LLIST=$S($ G(CODE)="N W":"NW",$G (CODE)="XO ":"XO",$$I NSTRING^SD MXCORE($G( CODE),"CA, DC",","):" CA",1:"") | |
7011 | "RTN","ORM XTR",62,0) | |
7012 | I CNTLLIS T="" Q | |
7013 | "RTN","ORM XTR",63,0) | |
7014 | ; | |
7015 | "RTN","ORM XTR",64,0) | |
7016 | ; Prevent NW orders that were DCed from triggerin g | |
7017 | "RTN","ORM XTR",65,0) | |
7018 | I CNTLLIS T="NW",$P( $G(^OR(100 ,ORIEN,6)) ,"^",1)'=" " Q | |
7019 | "RTN","ORM XTR",66,0) | |
7020 | ; | |
7021 | "RTN","ORM XTR",67,0) | |
7022 | I $$ISRTC ORD(ORIEN) D SENDRTC (ORIEN,CNT LLIST) I 1 | |
7023 | "RTN","ORM XTR",68,0) | |
7024 | E D SEND OR(ORIEN,C NTLLIST) | |
7025 | "RTN","ORM XTR",69,0) | |
7026 | Q | |
7027 | "RTN","ORM XTR",70,0) | |
7028 | TRGMRMSG(C NTLLIST) ; Entry poi nt for tri ggering an y (i.e. "N W","XO","C A") ORM me ssages for consults | |
7029 | "RTN","ORM XTR",71,0) | |
7030 | ; CNTLLIS T (I,OPT) - Set to a list of s pecific co ntrol code s (i.e. "N W", "XO", "NW,CA") y ou want to trigger a message f or | |
7031 | "RTN","ORM XTR",72,0) | |
7032 | ; | |
7033 | "RTN","ORM XTR",73,0) | |
7034 | ; Variabl es assumed to be set from call ing functi on/protoco l/cross re ference: | |
7035 | "RTN","ORM XTR",74,0) | |
7036 | ; ORCTR L - Contro l code fro m EN^GMRCH L7 | |
7037 | "RTN","ORM XTR",75,0) | |
7038 | ; GMRCT RLC - Cont rol code f rom RETURN ^GMRCHL7U | |
7039 | "RTN","ORM XTR",76,0) | |
7040 | ; GMRCO - Consul t ID | |
7041 | "RTN","ORM XTR",77,0) | |
7042 | ; | |
7043 | "RTN","ORM XTR",78,0) | |
7044 | ; Called By: | |
7045 | "RTN","ORM XTR",79,0) | |
7046 | ; ORMX ORM HL7 TR IGGER - CO NSULTS act ion protoc ol | |
7047 | "RTN","ORM XTR",80,0) | |
7048 | ; GMR C EVSEND O R | |
7049 | "RTN","ORM XTR",81,0) | |
7050 | ; | |
7051 | "RTN","ORM XTR",82,0) | |
7052 | S CNTLLIS T=$G(CNTLL IST) | |
7053 | "RTN","ORM XTR",83,0) | |
7054 | ; | |
7055 | "RTN","ORM XTR",84,0) | |
7056 | N ACTION, ACTNODE,GM RIEN,CTRLC ODE | |
7057 | "RTN","ORM XTR",85,0) | |
7058 | S (ACTION ,ACTNODE,G MRIEN,CTRL CODE)="" | |
7059 | "RTN","ORM XTR",86,0) | |
7060 | ; | |
7061 | "RTN","ORM XTR",87,0) | |
7062 | ; assumed variables from the HL7 trigge rs to dete rmine the event for printing a ctions | |
7063 | "RTN","ORM XTR",88,0) | |
7064 | I $G(ORCT RL)'="" S CTRLCODE=$ P(ORCTRL," ^") | |
7065 | "RTN","ORM XTR",89,0) | |
7066 | I $G(GMRC TRLC)'="" S CTRLCODE =$P(GMRCTR LC,"^") | |
7067 | "RTN","ORM XTR",90,0) | |
7068 | ; | |
7069 | "RTN","ORM XTR",91,0) | |
7070 | ; If MASS isn't ena bled, don' t trigger messages | |
7071 | "RTN","ORM XTR",92,0) | |
7072 | I '$$GET^ XPAR("SYS" ,"SDMX MAS S ENABLED" ) Q | |
7073 | "RTN","ORM XTR",93,0) | |
7074 | ; | |
7075 | "RTN","ORM XTR",94,0) | |
7076 | ; Check a ssumed var iables | |
7077 | "RTN","ORM XTR",95,0) | |
7078 | S GMRIEN= $P($G(GMRC O),";",1) | |
7079 | "RTN","ORM XTR",96,0) | |
7080 | I GMRIEN= "" Q | |
7081 | "RTN","ORM XTR",97,0) | |
7082 | ; | |
7083 | "RTN","ORM XTR",98,0) | |
7084 | ; Determi ne the eve nt (i.e. c ontrol cod e) | |
7085 | "RTN","ORM XTR",99,0) | |
7086 | I CNTLLIS T="" D | |
7087 | "RTN","ORM XTR",100,0 ) | |
7088 | . ; | |
7089 | "RTN","ORM XTR",101,0 ) | |
7090 | . ; Retri eve the la st action taken | |
7091 | "RTN","ORM XTR",102,0 ) | |
7092 | . S ACTNO DE=$P($G(^ GMR(123,GM RIEN,40,0) ),"^",3) | |
7093 | "RTN","ORM XTR",103,0 ) | |
7094 | . I ACTNO DE'="" S A CTION=$P($ G(^GMR(123 ,GMRIEN,40 ,ACTNODE,0 )),"^",2) | |
7095 | "RTN","ORM XTR",104,0 ) | |
7096 | . ; | |
7097 | "RTN","ORM XTR",105,0 ) | |
7098 | . I $$ISC ONFWD(GMRI EN),ACTION =25 S CNTL LIST="NW" | |
7099 | "RTN","ORM XTR",106,0 ) | |
7100 | . E I AC TION=22 D | |
7101 | "RTN","ORM XTR",107,0 ) | |
7102 | . . I (AC TNODE>1) S ACTION=$P ($G(^GMR(1 23,GMRIEN, 40,ACTNODE -1,0)),"^" ,2) ; allo w checking for forwa rds | |
7103 | "RTN","ORM XTR",108,0 ) | |
7104 | . . I $$I NSTRING^SD MXCORE(ACT ION,"17,25 ",",") S C NTLLIST="C A,NW" Q ; special p rocessing for forwar ds | |
7105 | "RTN","ORM XTR",109,0 ) | |
7106 | . . I $$I NSTRING^SD MXCORE($G( CTRLCODE), "NW,XX",", ") S CNTLL IST="NW" Q | |
7107 | "RTN","ORM XTR",110,0 ) | |
7108 | . . I $$I NSTRING^SD MXCORE($G( CTRLCODE), "XO,SC",", ") S CNTLL IST="XO" Q | |
7109 | "RTN","ORM XTR",111,0 ) | |
7110 | . . I $$I NSTRING^SD MXCORE($G( CTRLCODE), "CA,OC,OD, DC",",") S CNTLLIST= "CA" Q | |
7111 | "RTN","ORM XTR",112,0 ) | |
7112 | . E D | |
7113 | "RTN","ORM XTR",113,0 ) | |
7114 | . . I $$I NSTRING^SD MXCORE(ACT ION,"2,11" ,",") S CN TLLIST="NW " Q | |
7115 | "RTN","ORM XTR",114,0 ) | |
7116 | . . I $$I NSTRING^SD MXCORE(ACT ION,"3,10, 20,21","," ) S CNTLLI ST="XO" Q | |
7117 | "RTN","ORM XTR",115,0 ) | |
7118 | . . I $$I NSTRING^SD MXCORE(ACT ION,"6,19" ,",") S CN TLLIST="CA " Q | |
7119 | "RTN","ORM XTR",116,0 ) | |
7120 | . . I $$I NSTRING^SD MXCORE(ACT ION,"17,25 ",",") S C NTLLIST="C A,NW" Q | |
7121 | "RTN","ORM XTR",117,0 ) | |
7122 | ; | |
7123 | "RTN","ORM XTR",118,0 ) | |
7124 | I $$ISCON FWD(GMRIEN ) D SENDFW D(GMRIEN,C NTLLIST) I 1 | |
7125 | "RTN","ORM XTR",119,0 ) | |
7126 | E D SEND GMR(GMRIEN ,CNTLLIST) | |
7127 | "RTN","ORM XTR",120,0 ) | |
7128 | Q | |
7129 | "RTN","ORM XTR",121,0 ) | |
7130 | TRORCMT() ; Entry po int for tr iggering a n "Add com ment" mess age when a comment i s added to an order/ consult in the CPRS "Orders" t ab | |
7131 | "RTN","ORM XTR",122,0 ) | |
7132 | ; Determi nes whethe r or not t he order i s a consul t order or not. If t he order i s a | |
7133 | "RTN","ORM XTR",123,0 ) | |
7134 | ; consult order, we will call TRGMRMSG to trigger the messa ge. If not , we will call TRORD MSG. | |
7135 | "RTN","ORM XTR",124,0 ) | |
7136 | ; | |
7137 | "RTN","ORM XTR",125,0 ) | |
7138 | ; Variabl es assumed to be set from call ing functi on/protoco l/cross re ference: | |
7139 | "RTN","ORM XTR",126,0 ) | |
7140 | ; ORIFN - Order I D | |
7141 | "RTN","ORM XTR",127,0 ) | |
7142 | ; | |
7143 | "RTN","ORM XTR",128,0 ) | |
7144 | ; Called By: | |
7145 | "RTN","ORM XTR",129,0 ) | |
7146 | ; ORMX ORM HL7 TR IGGER - AD D COMMENTS action pr otocol | |
7147 | "RTN","ORM XTR",130,0 ) | |
7148 | ; ORM X EVSEND A DD COMMENT | |
7149 | "RTN","ORM XTR",131,0 ) | |
7150 | ; | |
7151 | "RTN","ORM XTR",132,0 ) | |
7152 | N GMRCO | |
7153 | "RTN","ORM XTR",133,0 ) | |
7154 | S (GMRCO) ="" | |
7155 | "RTN","ORM XTR",134,0 ) | |
7156 | ; | |
7157 | "RTN","ORM XTR",135,0 ) | |
7158 | I $G(ORIF N)="" Q | |
7159 | "RTN","ORM XTR",136,0 ) | |
7160 | ; | |
7161 | "RTN","ORM XTR",137,0 ) | |
7162 | ; Check i f the orde r is a con sult order | |
7163 | "RTN","ORM XTR",138,0 ) | |
7164 | I $D(^GMR (123,"AC", $P($G(ORIF N),";",1)) ) D | |
7165 | "RTN","ORM XTR",139,0 ) | |
7166 | . ; | |
7167 | "RTN","ORM XTR",140,0 ) | |
7168 | . ; Set v ariables T RGMRMSG as sumes to b e set befo re calling | |
7169 | "RTN","ORM XTR",141,0 ) | |
7170 | . S GMRCO =$O(^GMR(1 23,"AC",$P ($G(ORIFN) ,";",1),"" )) | |
7171 | "RTN","ORM XTR",142,0 ) | |
7172 | . D TRGMR MSG("XO") | |
7173 | "RTN","ORM XTR",143,0 ) | |
7174 | E D TROR DMSG("XO") | |
7175 | "RTN","ORM XTR",144,0 ) | |
7176 | Q | |
7177 | "RTN","ORM XTR",145,0 ) | |
7178 | TRUPDMSG(G MRIEN) ; E ntry point for trigg ering an " XO" ORM me ssages for consults | |
7179 | "RTN","ORM XTR",146,0 ) | |
7180 | ; GMRIEN - Consult ID | |
7181 | "RTN","ORM XTR",147,0 ) | |
7182 | ; | |
7183 | "RTN","ORM XTR",148,0 ) | |
7184 | ; Called By: | |
7185 | "RTN","ORM XTR",149,0 ) | |
7186 | ; UPCON REQ^SDMXCA NC | |
7187 | "RTN","ORM XTR",150,0 ) | |
7188 | ; MAKE^ SDMXMAKE | |
7189 | "RTN","ORM XTR",151,0 ) | |
7190 | ; | |
7191 | "RTN","ORM XTR",152,0 ) | |
7192 | S GMRIEN= $G(GMRIEN) | |
7193 | "RTN","ORM XTR",153,0 ) | |
7194 | I GMRIEN= "" Q | |
7195 | "RTN","ORM XTR",154,0 ) | |
7196 | ; | |
7197 | "RTN","ORM XTR",155,0 ) | |
7198 | N GMRCO | |
7199 | "RTN","ORM XTR",156,0 ) | |
7200 | S GMRCO=G MRIEN | |
7201 | "RTN","ORM XTR",157,0 ) | |
7202 | ; | |
7203 | "RTN","ORM XTR",158,0 ) | |
7204 | D TRGMRMS G("XO") | |
7205 | "RTN","ORM XTR",159,0 ) | |
7206 | Q | |
7207 | "RTN","ORM XTR",160,0 ) | |
7208 | TRCPMSG(CN TLLIST) ; Entry poin t for trig gering any (i.e. "NW ","XO","CA ") ORM mes sages for C&P reques ts | |
7209 | "RTN","ORM XTR",161,0 ) | |
7210 | ; CNTLLIS T (I,OPT) - Set to a list of s pecific co ntrol code s (i.e. "N W", "XO", "NW,CA") y ou want to trigger a message f or | |
7211 | "RTN","ORM XTR",162,0 ) | |
7212 | ; | |
7213 | "RTN","ORM XTR",163,0 ) | |
7214 | ; Variabl es assumed to be set from call ing functi on/protoco l/cross re ference: | |
7215 | "RTN","ORM XTR",164,0 ) | |
7216 | ; D0 - C&P ID | |
7217 | "RTN","ORM XTR",165,0 ) | |
7218 | ; | |
7219 | "RTN","ORM XTR",166,0 ) | |
7220 | ; Called By: | |
7221 | "RTN","ORM XTR",167,0 ) | |
7222 | ; File #396.4 (ne w-style cr oss refere nce) | |
7223 | "RTN","ORM XTR",168,0 ) | |
7224 | ; Fie ld .02 (25 07 REQUEST ) | |
7225 | "RTN","ORM XTR",169,0 ) | |
7226 | ; Fie ld .03 (EX AM TYPE) | |
7227 | "RTN","ORM XTR",170,0 ) | |
7228 | ; Fie ld .04 (ST ATUS) | |
7229 | "RTN","ORM XTR",171,0 ) | |
7230 | ; | |
7231 | "RTN","ORM XTR",172,0 ) | |
7232 | S CNTLLIS T=$G(CNTLL IST) | |
7233 | "RTN","ORM XTR",173,0 ) | |
7234 | ; | |
7235 | "RTN","ORM XTR",174,0 ) | |
7236 | N DVB0,DV BIEN | |
7237 | "RTN","ORM XTR",175,0 ) | |
7238 | S (DVB0,D VBIEN)="" | |
7239 | "RTN","ORM XTR",176,0 ) | |
7240 | ; | |
7241 | "RTN","ORM XTR",177,0 ) | |
7242 | ; If MASS isn't ena bled, don' t trigger messages | |
7243 | "RTN","ORM XTR",178,0 ) | |
7244 | I '$$GET^ XPAR("SYS" ,"SDMX MAS S ENABLED" ) Q | |
7245 | "RTN","ORM XTR",179,0 ) | |
7246 | ; | |
7247 | "RTN","ORM XTR",180,0 ) | |
7248 | ; Prevent s reboundi ng message s from inc oming sche duling | |
7249 | "RTN","ORM XTR",181,0 ) | |
7250 | I $$INCIN TF^SDMXCOR E() Q | |
7251 | "RTN","ORM XTR",182,0 ) | |
7252 | ; | |
7253 | "RTN","ORM XTR",183,0 ) | |
7254 | ; Check a ssumed var iables | |
7255 | "RTN","ORM XTR",184,0 ) | |
7256 | S DVBIEN= $G(D0) | |
7257 | "RTN","ORM XTR",185,0 ) | |
7258 | I DVBIEN= "" Q | |
7259 | "RTN","ORM XTR",186,0 ) | |
7260 | ; | |
7261 | "RTN","ORM XTR",187,0 ) | |
7262 | ; Determi ne the eve nt (i.e. c ontrol cod e) | |
7263 | "RTN","ORM XTR",188,0 ) | |
7264 | S DVB0=$G (^DVB(396. 4,DVBIEN,0 )) | |
7265 | "RTN","ORM XTR",189,0 ) | |
7266 | I CNTLLIS T="" S CNT LLIST=$S($ P(DVB0,"^" ,4)="O":"N W",$$INSTR ING^SDMXCO RE($P(DVB0 ,"^",4),"X ,RX,T","," ):"CA",1:" ") | |
7267 | "RTN","ORM XTR",190,0 ) | |
7268 | ; | |
7269 | "RTN","ORM XTR",191,0 ) | |
7270 | D SENDCP( DVBIEN,CNT LLIST) | |
7271 | "RTN","ORM XTR",192,0 ) | |
7272 | Q | |
7273 | "RTN","ORM XTR",193,0 ) | |
7274 | TRCPCMT() ; Entry po int for tr iggering a "XO" mess age for ea ch exam wh en the com ments on t he C&P req uest are u pdated | |
7275 | "RTN","ORM XTR",194,0 ) | |
7276 | ; Variabl es assumed to be set from call ing functi on/protoco l/cross re ference: | |
7277 | "RTN","ORM XTR",195,0 ) | |
7278 | ; DA - The C&P r equest ID | |
7279 | "RTN","ORM XTR",196,0 ) | |
7280 | ; | |
7281 | "RTN","ORM XTR",197,0 ) | |
7282 | ; Called By: | |
7283 | "RTN","ORM XTR",198,0 ) | |
7284 | ; ORMX ORM HL7 TR IGGER - C& P UPDATE a ction prot ocol | |
7285 | "RTN","ORM XTR",199,0 ) | |
7286 | ; | |
7287 | "RTN","ORM XTR",200,0 ) | |
7288 | I $G(DA)= "" Q | |
7289 | "RTN","ORM XTR",201,0 ) | |
7290 | ; | |
7291 | "RTN","ORM XTR",202,0 ) | |
7292 | N D0 | |
7293 | "RTN","ORM XTR",203,0 ) | |
7294 | S D0="" | |
7295 | "RTN","ORM XTR",204,0 ) | |
7296 | ; | |
7297 | "RTN","ORM XTR",205,0 ) | |
7298 | ; Loop th rough all exams on r equest | |
7299 | "RTN","ORM XTR",206,0 ) | |
7300 | F S D0=$ O(^DVB(396 .4,"C",$G( DA),D0)) Q :D0="" D | |
7301 | "RTN","ORM XTR",207,0 ) | |
7302 | . D TRCPM SG("XO") | |
7303 | "RTN","ORM XTR",208,0 ) | |
7304 | Q | |
7305 | "RTN","ORM XTR",209,0 ) | |
7306 | TRNLMSG(CN TLLIST) ; Entry poin t for trig gering any (i.e. "NW ","XO","CA ") ORM mes sages for NEAR order s | |
7307 | "RTN","ORM XTR",210,0 ) | |
7308 | ; CNTLLIS T (I,OPT) - Set to a list of s pecific co ntrol code s (i.e. "N W", "XO", "NW,CA") y ou want to trigger a message f or | |
7309 | "RTN","ORM XTR",211,0 ) | |
7310 | ; | |
7311 | "RTN","ORM XTR",212,0 ) | |
7312 | ; Variabl es assumed to be set from call ing functi on/protoco l/cross re ference: | |
7313 | "RTN","ORM XTR",213,0 ) | |
7314 | ; DFN - Pati ent ID | |
7315 | "RTN","ORM XTR",214,0 ) | |
7316 | ; DGENR IEN - IEN of the NEA R request | |
7317 | "RTN","ORM XTR",215,0 ) | |
7318 | ; | |
7319 | "RTN","ORM XTR",216,0 ) | |
7320 | ; Called By: | |
7321 | "RTN","ORM XTR",217,0 ) | |
7322 | ; File #2 (tradit ional-styl e cross re ference) | |
7323 | "RTN","ORM XTR",218,0 ) | |
7324 | ; fie ld 1010.15 11 (APPOIN TMENT REQU EST ON 101 0EZ) - Und er "MUMPS 'G' INDEX OF FILE" c ross refer ence | |
7325 | "RTN","ORM XTR",219,0 ) | |
7326 | ; fie ld 1010.16 1 (APPOINT MENT REQUE ST STATUS) - Under " MUMPS 'AY' INDEX OF FILE" cros s referenc e - CNTLLI ST will be set to "C A,NW" | |
7327 | "RTN","ORM XTR",220,0 ) | |
7328 | ; | |
7329 | "RTN","ORM XTR",221,0 ) | |
7330 | S CNTLLIS T=$G(CNTLL IST),DFN=$ G(DFN),DGE NRIEN=$G(D GENRIEN) | |
7331 | "RTN","ORM XTR",222,0 ) | |
7332 | ; | |
7333 | "RTN","ORM XTR",223,0 ) | |
7334 | N FLAG,EN STATUS | |
7335 | "RTN","ORM XTR",224,0 ) | |
7336 | S (FLAG,E NSTATUS)=" " | |
7337 | "RTN","ORM XTR",225,0 ) | |
7338 | ; | |
7339 | "RTN","ORM XTR",226,0 ) | |
7340 | ; If MASS isn't ena bled, don' t trigger messages | |
7341 | "RTN","ORM XTR",227,0 ) | |
7342 | I '$$GET^ XPAR("SYS" ,"SDMX MAS S ENABLED" ) Q | |
7343 | "RTN","ORM XTR",228,0 ) | |
7344 | ; | |
7345 | "RTN","ORM XTR",229,0 ) | |
7346 | ; Setup i dentifiers for Patie nt IEN and enrollmen t IEN | |
7347 | "RTN","ORM XTR",230,0 ) | |
7348 | I (DFN'=" "),(DGENRI EN="") D ; Coming f rom DPT cr oss refere nce | |
7349 | "RTN","ORM XTR",231,0 ) | |
7350 | . S DGENR IEN=$P($G( ^DPT(DFN," ENR")),"^" ) | |
7351 | "RTN","ORM XTR",232,0 ) | |
7352 | ; | |
7353 | "RTN","ORM XTR",233,0 ) | |
7354 | ; If ther e is no ap pointment request, d on't trigg er | |
7355 | "RTN","ORM XTR",234,0 ) | |
7356 | I (DFN'=" "),($P($G( ^DPT(DFN,1 010.15))," ^",9)'=1) Q | |
7357 | "RTN","ORM XTR",235,0 ) | |
7358 | ; | |
7359 | "RTN","ORM XTR",236,0 ) | |
7360 | ; If the Enrollment is not "v erified," don't trig ger a mess age | |
7361 | "RTN","ORM XTR",237,0 ) | |
7362 | I DGENRIE N'="" S EN STATUS=$P( $G(^DGEN(2 7.11,DGENR IEN,0)),"^ ",4) | |
7363 | "RTN","ORM XTR",238,0 ) | |
7364 | I (ENSTAT US'=""),($ P($G(^DGEN (27.15,ENS TATUS,0)), "^",2)'="E ") Q | |
7365 | "RTN","ORM XTR",239,0 ) | |
7366 | ; | |
7367 | "RTN","ORM XTR",240,0 ) | |
7368 | I CNTLLIS T="" S CNT LLIST="NW" | |
7369 | "RTN","ORM XTR",241,0 ) | |
7370 | ; | |
7371 | "RTN","ORM XTR",242,0 ) | |
7372 | ; If the NEAR is fi lled, don' t trigger messages | |
7373 | "RTN","ORM XTR",243,0 ) | |
7374 | S FLAG=$P ($G(^DPT(D FN,1010.16 )),"^",1) | |
7375 | "RTN","ORM XTR",244,0 ) | |
7376 | I ($G(FLA G)="F"),(C NTLLIST="N W") Q | |
7377 | "RTN","ORM XTR",245,0 ) | |
7378 | ; | |
7379 | "RTN","ORM XTR",246,0 ) | |
7380 | D SENDNL( DFN,DGENRI EN,CNTLLIS T) | |
7381 | "RTN","ORM XTR",247,0 ) | |
7382 | Q | |
7383 | "RTN","ORM XTR",248,0 ) | |
7384 | TRFRMENR() ; Entry p oint for t riggering "NW" ORM m essages fo r NEAR whe n the Enro llment Sta tus (27.11 ;.04) is u pdated | |
7385 | "RTN","ORM XTR",249,0 ) | |
7386 | ; Variabl es assumed to be set from call ing functi on/protoco l/cross re ference: | |
7387 | "RTN","ORM XTR",250,0 ) | |
7388 | ; X1(1) - The old status of the NEAR request | |
7389 | "RTN","ORM XTR",251,0 ) | |
7390 | ; X2(1) - The new status of the NEAR request | |
7391 | "RTN","ORM XTR",252,0 ) | |
7392 | ; X2(2) - The pat ient ID | |
7393 | "RTN","ORM XTR",253,0 ) | |
7394 | ; | |
7395 | "RTN","ORM XTR",254,0 ) | |
7396 | ; Called By: | |
7397 | "RTN","ORM XTR",255,0 ) | |
7398 | ; File #27.11 (ne w-style cr oss refere nce) - Und er "1338 ' AE' index" | |
7399 | "RTN","ORM XTR",256,0 ) | |
7400 | ; fie ld .04 (EN ROLLMENT S TATUS) | |
7401 | "RTN","ORM XTR",257,0 ) | |
7402 | ; | |
7403 | "RTN","ORM XTR",258,0 ) | |
7404 | N OLDSTAT ,NEWSTAT,D FN,DGENRIE N,OLDCAT,N EWCAT | |
7405 | "RTN","ORM XTR",259,0 ) | |
7406 | S (OLDSTA T,NEWSTAT, DFN,DGENRI EN,OLDCAT, NEWCAT)="" | |
7407 | "RTN","ORM XTR",260,0 ) | |
7408 | ; | |
7409 | "RTN","ORM XTR",261,0 ) | |
7410 | S OLDSTAT =$G(X1(1)) | |
7411 | "RTN","ORM XTR",262,0 ) | |
7412 | S NEWSTAT =$G(X2(1)) | |
7413 | "RTN","ORM XTR",263,0 ) | |
7414 | S DFN=$G( X2(2)) | |
7415 | "RTN","ORM XTR",264,0 ) | |
7416 | S DGENRIE N=$P($G(^D PT(DFN,"EN R")),"^",1 ) | |
7417 | "RTN","ORM XTR",265,0 ) | |
7418 | S OLDCAT= $P($G(^DGE N(27.15,OL DSTAT,0)), "^",2) | |
7419 | "RTN","ORM XTR",266,0 ) | |
7420 | S NEWCAT= $P($G(^DGE N(27.15,NE WSTAT,0)), "^",2) | |
7421 | "RTN","ORM XTR",267,0 ) | |
7422 | ; | |
7423 | "RTN","ORM XTR",268,0 ) | |
7424 | ; If the Enrollment is not "v erified," don't trig ger a mess age | |
7425 | "RTN","ORM XTR",269,0 ) | |
7426 | I OLDCAT' ="E",NEWCA T="E" D TR NLMSG() | |
7427 | "RTN","ORM XTR",270,0 ) | |
7428 | Q | |
7429 | "RTN","ORM XTR",271,0 ) | |
7430 | SENDOR(ORI EN,CNTLLIS T) ; Build and send HL7 messag es for ord ers | |
7431 | "RTN","ORM XTR",272,0 ) | |
7432 | ; ORIEN ( I,REQ) - Order IE N | |
7433 | "RTN","ORM XTR",273,0 ) | |
7434 | ; CNTLLIS T (I,REQ) - Set to a list of s pecific co ntrol code s (i.e. "N W", "XO", "NW,CA") y ou want to trigger a message f or | |
7435 | "RTN","ORM XTR",274,0 ) | |
7436 | ; | |
7437 | "RTN","ORM XTR",275,0 ) | |
7438 | S ORIEN=$ G(ORIEN),C NTLLIST=$G (CNTLLIST) | |
7439 | "RTN","ORM XTR",276,0 ) | |
7440 | I (ORIEN= "")!(CNTLL IST="") Q | |
7441 | "RTN","ORM XTR",277,0 ) | |
7442 | ; | |
7443 | "RTN","ORM XTR",278,0 ) | |
7444 | N CURR,CN TLCODE,HLO ARR,SUCCES S,ERROR,OR DABLE | |
7445 | "RTN","ORM XTR",279,0 ) | |
7446 | S (CURR,C NTLCODE,HL OARR,SUCCE SS,ERROR,O RDABLE)="" | |
7447 | "RTN","ORM XTR",280,0 ) | |
7448 | ; | |
7449 | "RTN","ORM XTR",281,0 ) | |
7450 | S ORDABLE =$G(^OR(10 0,ORIEN,.1 ,1,0)) | |
7451 | "RTN","ORM XTR",282,0 ) | |
7452 | ; | |
7453 | "RTN","ORM XTR",283,0 ) | |
7454 | F CURR=1: 1:$L(CNTLL IST,",") D Q:(SUCCE SS=-1) | |
7455 | "RTN","ORM XTR",284,0 ) | |
7456 | . S CNTLC ODE=$P(CNT LLIST,",", CURR) | |
7457 | "RTN","ORM XTR",285,0 ) | |
7458 | . ; | |
7459 | "RTN","ORM XTR",286,0 ) | |
7460 | . I $$FIL TEROR(ORDA BLE,ORIEN, CNTLCODE) Q | |
7461 | "RTN","ORM XTR",287,0 ) | |
7462 | . ; | |
7463 | "RTN","ORM XTR",288,0 ) | |
7464 | . ; Build the HLOAR R with the necessary informati on | |
7465 | "RTN","ORM XTR",289,0 ) | |
7466 | . S SUCCE SS=$$FMTOR ^ORMXFMT(C NTLCODE,OR IEN,ORDABL E,.HLOARR, .ERROR) | |
7467 | "RTN","ORM XTR",290,0 ) | |
7468 | . I SUCCE SS=-1 D ER RLOG^SDMXE RRO(312,ER ROR,1) Q | |
7469 | "RTN","ORM XTR",291,0 ) | |
7470 | . ; | |
7471 | "RTN","ORM XTR",292,0 ) | |
7472 | . ; Trigg er the mes sage | |
7473 | "RTN","ORM XTR",293,0 ) | |
7474 | . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR) | |
7475 | "RTN","ORM XTR",294,0 ) | |
7476 | . I SUCCE SS=-1 D ER RLG314^ORM XHL7($G(ER ROR),"ORDE R",$G(HLOA RR("ORDER ID"))) Q | |
7477 | "RTN","ORM XTR",295,0 ) | |
7478 | Q | |
7479 | "RTN","ORM XTR",296,0 ) | |
7480 | SENDGMR(GM RIEN,CNTLL IST) ; Bui ld and sen d HL7 mess ages for c onsults | |
7481 | "RTN","ORM XTR",297,0 ) | |
7482 | ; GMRIEN (I,REQ) - Consult IEN | |
7483 | "RTN","ORM XTR",298,0 ) | |
7484 | ; CNTLLIS T (I,REQ) - Set to a list of s pecific co ntrol code s (i.e. "N W", "XO", "NW,CA") y ou want to trigger a message f or | |
7485 | "RTN","ORM XTR",299,0 ) | |
7486 | ; | |
7487 | "RTN","ORM XTR",300,0 ) | |
7488 | S GMRIEN= $G(GMRIEN) ,CNTLLIST= $G(CNTLLIS T) | |
7489 | "RTN","ORM XTR",301,0 ) | |
7490 | I (GMRIEN ="")!(CNTL LIST="") Q | |
7491 | "RTN","ORM XTR",302,0 ) | |
7492 | ; | |
7493 | "RTN","ORM XTR",303,0 ) | |
7494 | N CURR,CN TLCODE,HLO ARR,SUCCES S,ERROR,OR DABLE | |
7495 | "RTN","ORM XTR",304,0 ) | |
7496 | S (CURR,C NTLCODE,HL OARR,SUCCE SS,ERROR,O RDABLE)="" | |
7497 | "RTN","ORM XTR",305,0 ) | |
7498 | ; | |
7499 | "RTN","ORM XTR",306,0 ) | |
7500 | S ORIEN=$ P($G(^GMR( 123,GMRIEN ,0)),"^",3 ) | |
7501 | "RTN","ORM XTR",307,0 ) | |
7502 | ; | |
7503 | "RTN","ORM XTR",308,0 ) | |
7504 | F CURR=1: 1:$L(CNTLL IST,",") D Q:(SUCCE SS=-1) | |
7505 | "RTN","ORM XTR",309,0 ) | |
7506 | . S CNTLC ODE=$P(CNT LLIST,",", CURR) | |
7507 | "RTN","ORM XTR",310,0 ) | |
7508 | . ; | |
7509 | "RTN","ORM XTR",311,0 ) | |
7510 | . S ORDAB LE=$$GMROR DBL(GMRIEN ,CNTLCODE) | |
7511 | "RTN","ORM XTR",312,0 ) | |
7512 | . ; | |
7513 | "RTN","ORM XTR",313,0 ) | |
7514 | . ; Preve nt certain orders fr om trigger ing a mess age | |
7515 | "RTN","ORM XTR",314,0 ) | |
7516 | . I $$FIL TEROR(ORDA BLE,ORIEN, CNTLCODE) Q | |
7517 | "RTN","ORM XTR",315,0 ) | |
7518 | . ; | |
7519 | "RTN","ORM XTR",316,0 ) | |
7520 | . ; Build the HLOAR R with the necessary informati on | |
7521 | "RTN","ORM XTR",317,0 ) | |
7522 | . S SUCCE SS=$$FMTGM RC^ORMXFMT (CNTLCODE, $G(GMRCO), ORDABLE,.H LOARR,.ERR OR) | |
7523 | "RTN","ORM XTR",318,0 ) | |
7524 | . I SUCCE SS=-1 D ER RLOG^SDMXE RRO(312,$G (ERROR),1) Q | |
7525 | "RTN","ORM XTR",319,0 ) | |
7526 | . ; | |
7527 | "RTN","ORM XTR",320,0 ) | |
7528 | . ; Trigg er the mes sage | |
7529 | "RTN","ORM XTR",321,0 ) | |
7530 | . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR) | |
7531 | "RTN","ORM XTR",322,0 ) | |
7532 | . I SUCCE SS=-1 D ER RLG314^ORM XHL7($G(ER ROR),"CONS ULT",$G(HL OARR("ORDE R ID"))) Q | |
7533 | "RTN","ORM XTR",323,0 ) | |
7534 | Q | |
7535 | "RTN","ORM XTR",324,0 ) | |
7536 | SENDFWD(GM RIEN,CNTLL IST) ; Bui ld and sen d HL7 mess ages for f orwarded c onsults | |
7537 | "RTN","ORM XTR",325,0 ) | |
7538 | ; GMRIEN (I,REQ) - Consult IEN | |
7539 | "RTN","ORM XTR",326,0 ) | |
7540 | ; CNTLLIS T (I,REQ) - Set to a list of s pecific co ntrol code s (i.e. "N W", "XO", "NW,CA") y ou want to trigger a message f or | |
7541 | "RTN","ORM XTR",327,0 ) | |
7542 | ; | |
7543 | "RTN","ORM XTR",328,0 ) | |
7544 | S GMRIEN= $G(GMRIEN) ,CNTLLIST= $G(CNTLLIS T) | |
7545 | "RTN","ORM XTR",329,0 ) | |
7546 | I (GMRIEN ="")!(CNTL LIST="") Q | |
7547 | "RTN","ORM XTR",330,0 ) | |
7548 | ; | |
7549 | "RTN","ORM XTR",331,0 ) | |
7550 | N CURR,CN TLCODE,HLO ARR,SUCCES S,ERROR,OR DABLE | |
7551 | "RTN","ORM XTR",332,0 ) | |
7552 | S (CURR,C NTLCODE,HL OARR,SUCCE SS,ERROR,O RDABLE)="" | |
7553 | "RTN","ORM XTR",333,0 ) | |
7554 | ; | |
7555 | "RTN","ORM XTR",334,0 ) | |
7556 | F CURR=1: 1:$L(CNTLL IST,",") D Q:(SUCCE SS=-1) | |
7557 | "RTN","ORM XTR",335,0 ) | |
7558 | . S CNTLC ODE=$P(CNT LLIST,",", CURR) | |
7559 | "RTN","ORM XTR",336,0 ) | |
7560 | . ; | |
7561 | "RTN","ORM XTR",337,0 ) | |
7562 | . S ORDAB LE=$$GMROR DBL(GMRIEN ,CNTLCODE) | |
7563 | "RTN","ORM XTR",338,0 ) | |
7564 | . ; | |
7565 | "RTN","ORM XTR",339,0 ) | |
7566 | . ; Preve nt certain orders fr om trigger ing a mess age | |
7567 | "RTN","ORM XTR",340,0 ) | |
7568 | . I $$FIL TEROR(ORDA BLE,"",CNT LCODE) Q | |
7569 | "RTN","ORM XTR",341,0 ) | |
7570 | . ; | |
7571 | "RTN","ORM XTR",342,0 ) | |
7572 | . ; Build the HLOAR R with the necessary informati on | |
7573 | "RTN","ORM XTR",343,0 ) | |
7574 | . S SUCCE SS=$$FMTFW GMR^ORMXFM T(CNTLCODE ,GMRIEN,OR DABLE,.HLO ARR,.ERROR ) | |
7575 | "RTN","ORM XTR",344,0 ) | |
7576 | . I SUCCE SS=-1 D ER RLOG^SDMXE RRO(312,$G (ERROR),1) Q | |
7577 | "RTN","ORM XTR",345,0 ) | |
7578 | . ; | |
7579 | "RTN","ORM XTR",346,0 ) | |
7580 | . ; Trigg er the mes sage | |
7581 | "RTN","ORM XTR",347,0 ) | |
7582 | . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR) | |
7583 | "RTN","ORM XTR",348,0 ) | |
7584 | . I SUCCE SS=-1 D ER RLG314^ORM XHL7($G(ER ROR),"CONS ULT",$G(HL OARR("ORDE R ID"))) Q | |
7585 | "RTN","ORM XTR",349,0 ) | |
7586 | Q | |
7587 | "RTN","ORM XTR",350,0 ) | |
7588 | SENDNL(PAT IEN,DGENIE N,CNTLLIST ) ; Build and send H L7 message s for NEAR | |
7589 | "RTN","ORM XTR",351,0 ) | |
7590 | ; PATIEN (I,REQ) - Patient IEN | |
7591 | "RTN","ORM XTR",352,0 ) | |
7592 | ; DGENIEN (I,REQ) - IEN of t he NEAR | |
7593 | "RTN","ORM XTR",353,0 ) | |
7594 | ; CNTLLIS T (I,REQ) - Set to a list of s pecific co ntrol code s (i.e. "N W", "XO", "NW,CA") y ou want to trigger a message f or | |
7595 | "RTN","ORM XTR",354,0 ) | |
7596 | ; | |
7597 | "RTN","ORM XTR",355,0 ) | |
7598 | S PATIEN= $G(PATIEN) ,DGENIEN=$ G(DGENIEN) ,CNTLLIST= $G(CNTLLIS T) | |
7599 | "RTN","ORM XTR",356,0 ) | |
7600 | I (PATIEN ="")!(DGEN IEN="")!(C NTLLIST="" ) Q | |
7601 | "RTN","ORM XTR",357,0 ) | |
7602 | ; | |
7603 | "RTN","ORM XTR",358,0 ) | |
7604 | N CURR,CN TLCODE,SUC CESS | |
7605 | "RTN","ORM XTR",359,0 ) | |
7606 | S (CURR,C NTLCODE,SU CCESS)="" | |
7607 | "RTN","ORM XTR",360,0 ) | |
7608 | ; | |
7609 | "RTN","ORM XTR",361,0 ) | |
7610 | F CURR=1: 1:$L(CNTLL IST,",") D Q:(SUCCE SS=-1) | |
7611 | "RTN","ORM XTR",362,0 ) | |
7612 | . S CNTLC ODE=$P(CNT LLIST,",", CURR) | |
7613 | "RTN","ORM XTR",363,0 ) | |
7614 | . ; | |
7615 | "RTN","ORM XTR",364,0 ) | |
7616 | . ; Build the HLOAR R with the necessary informati on | |
7617 | "RTN","ORM XTR",365,0 ) | |
7618 | . S SUCCE SS=$$FMTNL ^ORMXFMT(C NTLCODE,PA TIEN,.HLOA RR,.ERROR) | |
7619 | "RTN","ORM XTR",366,0 ) | |
7620 | . I SUCCE SS=-1 D ER RLOG^SDMXE RRO(312,$G (ERROR),1) Q | |
7621 | "RTN","ORM XTR",367,0 ) | |
7622 | . ; | |
7623 | "RTN","ORM XTR",368,0 ) | |
7624 | . ; Trigg er the mes sage | |
7625 | "RTN","ORM XTR",369,0 ) | |
7626 | . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR) | |
7627 | "RTN","ORM XTR",370,0 ) | |
7628 | . I SUCCE SS=-1 D ER RLG314^ORM XHL7($G(ER ROR),"NEAR list pati ent",$G(HL OARR("PATI ENT"))) Q | |
7629 | "RTN","ORM XTR",371,0 ) | |
7630 | Q | |
7631 | "RTN","ORM XTR",372,0 ) | |
7632 | SENDCP(DVB IEN,CNTLLI ST) ; Buil d and send HL7 messa ges for C& P requests | |
7633 | "RTN","ORM XTR",373,0 ) | |
7634 | ; DVBIEN (I,REQ) - IEN of t he C&P req uest | |
7635 | "RTN","ORM XTR",374,0 ) | |
7636 | ; CNTLLIS T (I,REQ) - Set to a list of s pecific co ntrol code s (i.e. "N W", "XO", "NW,CA") y ou want to trigger a message f or | |
7637 | "RTN","ORM XTR",375,0 ) | |
7638 | ; | |
7639 | "RTN","ORM XTR",376,0 ) | |
7640 | S DVBIEN= $G(DVBIEN) ,CNTLLIST= $G(CNTLLIS T) | |
7641 | "RTN","ORM XTR",377,0 ) | |
7642 | I (DVBIEN ="")!(CNTL LIST="") Q | |
7643 | "RTN","ORM XTR",378,0 ) | |
7644 | ; | |
7645 | "RTN","ORM XTR",379,0 ) | |
7646 | N CURR,CN TLCODE,SUC CESS | |
7647 | "RTN","ORM XTR",380,0 ) | |
7648 | S (CURR,C NTLCODE,SU CCESS)="" | |
7649 | "RTN","ORM XTR",381,0 ) | |
7650 | ; | |
7651 | "RTN","ORM XTR",382,0 ) | |
7652 | F CURR=1: 1:$L(CNTLL IST,",") D Q:(SUCCE SS=-1) | |
7653 | "RTN","ORM XTR",383,0 ) | |
7654 | . S CNTLC ODE=$P(CNT LLIST,",", CURR) | |
7655 | "RTN","ORM XTR",384,0 ) | |
7656 | . ; | |
7657 | "RTN","ORM XTR",385,0 ) | |
7658 | . ; Build the HLOAR R with the necessary informati on | |
7659 | "RTN","ORM XTR",386,0 ) | |
7660 | . S SUCCE SS=$$FMTCP ^ORMXFMT(C NTLCODE,DV BIEN,.HLOA RR,.ERROR) | |
7661 | "RTN","ORM XTR",387,0 ) | |
7662 | . I SUCCE SS=-1 D ER RLOG^SDMXE RRO(312,$G (ERROR),1) Q | |
7663 | "RTN","ORM XTR",388,0 ) | |
7664 | . ; | |
7665 | "RTN","ORM XTR",389,0 ) | |
7666 | . ; Trigg er the mes sage | |
7667 | "RTN","ORM XTR",390,0 ) | |
7668 | . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR) | |
7669 | "RTN","ORM XTR",391,0 ) | |
7670 | . I SUCCE SS=-1 D ER RLG314^ORM XHL7($G(ER ROR),"C&P" ,$G(HLOARR ("ORDER ID "))) Q | |
7671 | "RTN","ORM XTR",392,0 ) | |
7672 | Q | |
7673 | "RTN","ORM XTR",393,0 ) | |
7674 | SENDRTC(OR IEN,CNTLLI ST) ; Buil d and send HL7 messa ges for RT C orders | |
7675 | "RTN","ORM XTR",394,0 ) | |
7676 | ; ORIEN(I ,REQ) - Order ID | |
7677 | "RTN","ORM XTR",395,0 ) | |
7678 | ; CNTLLIS T (I,REQ) - A list o f specific control c odes (i.e. "NW", "XO ", "NW,CA" ) we'll tr igger a me ssage for | |
7679 | "RTN","ORM XTR",396,0 ) | |
7680 | ; | |
7681 | "RTN","ORM XTR",397,0 ) | |
7682 | S ORIEN=$ G(ORIEN),C NTLLIST=$G (CNTLLIST) | |
7683 | "RTN","ORM XTR",398,0 ) | |
7684 | I (ORIEN= "")!(CNTLL IST="") Q | |
7685 | "RTN","ORM XTR",399,0 ) | |
7686 | ; | |
7687 | "RTN","ORM XTR",400,0 ) | |
7688 | N CURR,CN TLCODE,HLO ARR,SUCCES S,ERROR,OR DABLE | |
7689 | "RTN","ORM XTR",401,0 ) | |
7690 | S (CURR,C NTLCODE,HL OARR,SUCCE SS,ERROR,O RDABLE)="" | |
7691 | "RTN","ORM XTR",402,0 ) | |
7692 | ; | |
7693 | "RTN","ORM XTR",403,0 ) | |
7694 | S ORDABLE =$G(^OR(10 0,ORIEN,.1 ,1,0)) | |
7695 | "RTN","ORM XTR",404,0 ) | |
7696 | ; | |
7697 | "RTN","ORM XTR",405,0 ) | |
7698 | F CURR=1: 1:$L(CNTLL IST,",") D Q:(SUCCE SS=-1) | |
7699 | "RTN","ORM XTR",406,0 ) | |
7700 | . S CNTLC ODE=$P(CNT LLIST,",", CURR) | |
7701 | "RTN","ORM XTR",407,0 ) | |
7702 | . ; | |
7703 | "RTN","ORM XTR",408,0 ) | |
7704 | . ; Preve nt certain orders fr om trigger ing a mess age | |
7705 | "RTN","ORM XTR",409,0 ) | |
7706 | . I $$FIL TEROR(ORDA BLE,ORIEN, CNTLCODE) Q | |
7707 | "RTN","ORM XTR",410,0 ) | |
7708 | . ; | |
7709 | "RTN","ORM XTR",411,0 ) | |
7710 | . ; Build the HLOAR R with the necessary informati on | |
7711 | "RTN","ORM XTR",412,0 ) | |
7712 | . S SUCCE SS=$$FMTOR ^ORMXFMT(C NTLCODE,OR IEN,ORDABL E,.HLOARR, .ERROR) | |
7713 | "RTN","ORM XTR",413,0 ) | |
7714 | . I SUCCE SS=-1 D ER RLOG^SDMXE RRO(312,$G (ERROR),1) Q | |
7715 | "RTN","ORM XTR",414,0 ) | |
7716 | . ; | |
7717 | "RTN","ORM XTR",415,0 ) | |
7718 | . ; Trigg er the mes sage | |
7719 | "RTN","ORM XTR",416,0 ) | |
7720 | . S SUCCE SS=$$BLDOR MHL^ORMXHL 7(.HLOARR, .ERROR) | |
7721 | "RTN","ORM XTR",417,0 ) | |
7722 | . I SUCCE SS=-1 D ER RLG314^ORM XHL7($G(ER ROR),"ORDE R",$G(HLOA RR("ORDER ID"))) Q | |
7723 | "RTN","ORM XTR",418,0 ) | |
7724 | I SUCCESS =-1 Q | |
7725 | "RTN","ORM XTR",419,0 ) | |
7726 | ; | |
7727 | "RTN","ORM XTR",420,0 ) | |
7728 | ; Set the status of the RTC t o "Complet e" | |
7729 | "RTN","ORM XTR",421,0 ) | |
7730 | S SUCCESS =$$COMPRTC (ORIEN) | |
7731 | "RTN","ORM XTR",422,0 ) | |
7732 | I SUCCESS =-1 D | |
7733 | "RTN","ORM XTR",423,0 ) | |
7734 | . S ERROR ="Could no t get lock on RTC or der "_ORIE N_". Order will need to be man ually comp leted." | |
7735 | "RTN","ORM XTR",424,0 ) | |
7736 | . D ERRLO G^SDMXERRO (206,ERROR ,1) Q | |
7737 | "RTN","ORM XTR",425,0 ) | |
7738 | Q | |
7739 | "RTN","ORM XTR",426,0 ) | |
7740 | GMRORDBL(G MRIEN,CNTL CODE) ; De termine th e orderabl e for a co nsult reco rd | |
7741 | "RTN","ORM XTR",427,0 ) | |
7742 | ; GMRIEN( I,REQ) - Consult ID | |
7743 | "RTN","ORM XTR",428,0 ) | |
7744 | ; CNTLCOD E (I,REQ) - The cont rol code ( i.e. "NW", "XO", "CA ") we're t riggering a message for | |
7745 | "RTN","ORM XTR",429,0 ) | |
7746 | ; | |
7747 | "RTN","ORM XTR",430,0 ) | |
7748 | ; Returns the order able for a consult r ecord. If one cannot be found, return "" | |
7749 | "RTN","ORM XTR",431,0 ) | |
7750 | ; | |
7751 | "RTN","ORM XTR",432,0 ) | |
7752 | S GMRIEN= $G(GMRIEN) ,CNTLCODE= $G(CNTLCOD E) | |
7753 | "RTN","ORM XTR",433,0 ) | |
7754 | I GMRIEN= "" Q "" | |
7755 | "RTN","ORM XTR",434,0 ) | |
7756 | ; | |
7757 | "RTN","ORM XTR",435,0 ) | |
7758 | N ACTNODE ,ACTION,OR IEN,FWDFRO M,ORDABLE, REQSERV | |
7759 | "RTN","ORM XTR",436,0 ) | |
7760 | S (ACTNOD E,ACTION,O RIEN,FWDFR OM,ORDABLE ,REQSERV)= "" | |
7761 | "RTN","ORM XTR",437,0 ) | |
7762 | ; | |
7763 | "RTN","ORM XTR",438,0 ) | |
7764 | ; Retriev e the last action ta ken | |
7765 | "RTN","ORM XTR",439,0 ) | |
7766 | S ACTNODE =$P($G(^GM R(123,GMRI EN,40,0)), "^",3) | |
7767 | "RTN","ORM XTR",440,0 ) | |
7768 | I ACTNODE '="" S ACT ION=$P($G( ^GMR(123,G MRIEN,40,A CTNODE,0)) ,"^",2) | |
7769 | "RTN","ORM XTR",441,0 ) | |
7770 | E S ACTI ON="" | |
7771 | "RTN","ORM XTR",442,0 ) | |
7772 | ; | |
7773 | "RTN","ORM XTR",443,0 ) | |
7774 | I (ACTION =22),(ACTN ODE>1) S A CTNODE=ACT NODE-1,ACT ION=$P($G( ^GMR(123,G MRIEN,40,A CTNODE,0)) ,"^",2) ;s pecial pro cessing fo r printed forwards | |
7775 | "RTN","ORM XTR",444,0 ) | |
7776 | ; | |
7777 | "RTN","ORM XTR",445,0 ) | |
7778 | ; Grab th e order if one exist s | |
7779 | "RTN","ORM XTR",446,0 ) | |
7780 | S ORIEN=$ P($G(^GMR( 123,GMRIEN ,0)),"^",3 ) | |
7781 | "RTN","ORM XTR",447,0 ) | |
7782 | ; | |
7783 | "RTN","ORM XTR",448,0 ) | |
7784 | I ($$INST RING^SDMXC ORE(ACTION ,"17,25"," ,")),(CNTL CODE="CA") D | |
7785 | "RTN","ORM XTR",449,0 ) | |
7786 | . S FWDFR OM=$P($G(^ GMR(123,GM RIEN,40,AC TNODE,0)), "^",6) | |
7787 | "RTN","ORM XTR",450,0 ) | |
7788 | . S ORDAB LE=$$ORDIT EM^ORM("^^ ^"_FWDFROM _"^^99CON" ) | |
7789 | "RTN","ORM XTR",451,0 ) | |
7790 | E I $$IS CONFWD(GMR IEN) D | |
7791 | "RTN","ORM XTR",452,0 ) | |
7792 | . S REQSE RV=$P($G(^ GMR(123,GM RIEN,0))," ^",5) | |
7793 | "RTN","ORM XTR",453,0 ) | |
7794 | . S ORDAB LE=$$ORDIT EM^ORM("^^ ^"_REQSERV _"^^99CON" ) | |
7795 | "RTN","ORM XTR",454,0 ) | |
7796 | E I ORIE N'="" S OR DABLE=$G(^ OR(100,ORI EN,.1,1,0) ) | |
7797 | "RTN","ORM XTR",455,0 ) | |
7798 | Q ORDABLE | |
7799 | "RTN","ORM XTR",456,0 ) | |
7800 | ISCONFWD(G MRIEN) ; D etermine i f a consul t record i s a forwar ded consul t | |
7801 | "RTN","ORM XTR",457,0 ) | |
7802 | ; GMRIEN( I,REQ) - C onsult ID | |
7803 | "RTN","ORM XTR",458,0 ) | |
7804 | ; | |
7805 | "RTN","ORM XTR",459,0 ) | |
7806 | ; Returns 1 if the consult is a forward ed consult ; 0 otherw ise | |
7807 | "RTN","ORM XTR",460,0 ) | |
7808 | ; | |
7809 | "RTN","ORM XTR",461,0 ) | |
7810 | S GMRIEN= $G(GMRIEN) | |
7811 | "RTN","ORM XTR",462,0 ) | |
7812 | I GMRIEN= "" Q 0 | |
7813 | "RTN","ORM XTR",463,0 ) | |
7814 | Q $P($G(^ GMR(123,GM RIEN,12)), "^",5)="F" | |
7815 | "RTN","ORM XTR",464,0 ) | |
7816 | FILTEROR(O RDABLE,ORI EN,CNTLCOD E) ; Filte rs orders from trigg ering mess ages based on the ty pe of the order and whether or not the o rder is sc hedulable. | |
7817 | "RTN","ORM XTR",465,0 ) | |
7818 | ; ORDABLE (I,OPT) - Orderabl e ID | |
7819 | "RTN","ORM XTR",466,0 ) | |
7820 | ; ORIEN(I ,OPT) - Order ID | |
7821 | "RTN","ORM XTR",467,0 ) | |
7822 | ; CNTLLIS T (I,OPT) - A list o f specific control c odes (i.e. "NW", "XO ", "NW,CA" ) we'll tr igger a me ssage for | |
7823 | "RTN","ORM XTR",468,0 ) | |
7824 | ; | |
7825 | "RTN","ORM XTR",469,0 ) | |
7826 | ; Returns 1 if the order shou ld be filt ered; 0 ot herwise | |
7827 | "RTN","ORM XTR",470,0 ) | |
7828 | ; | |
7829 | "RTN","ORM XTR",471,0 ) | |
7830 | N ISSCHBL E,STATUS | |
7831 | "RTN","ORM XTR",472,0 ) | |
7832 | S ORDABLE =$G(ORDABL E),ORIEN=$ G(ORIEN),C NTLCODE=$G (CNTLCODE) | |
7833 | "RTN","ORM XTR",473,0 ) | |
7834 | ; | |
7835 | "RTN","ORM XTR",474,0 ) | |
7836 | I $$ISRTC ORD(ORIEN) Q 0 ; RTC s should n ot be filt ered. | |
7837 | "RTN","ORM XTR",475,0 ) | |
7838 | ; | |
7839 | "RTN","ORM XTR",476,0 ) | |
7840 | ; If noth ing was pa ssed in fo r the orde rable, ret rieve it f rom the da tabase. | |
7841 | "RTN","ORM XTR",477,0 ) | |
7842 | ; We will want to q uit out if there is no orderab le. | |
7843 | "RTN","ORM XTR",478,0 ) | |
7844 | I (ORDABL E=""),(ORI EN'="") S ORDABLE=$G (^OR(100,O RIEN,.1,1, 0)) | |
7845 | "RTN","ORM XTR",479,0 ) | |
7846 | I ORDABLE ="" Q 1 | |
7847 | "RTN","ORM XTR",480,0 ) | |
7848 | ; | |
7849 | "RTN","ORM XTR",481,0 ) | |
7850 | ; Get the schedulab le flag. F ilter the order if i t should n ot be sche duled in M ASS | |
7851 | "RTN","ORM XTR",482,0 ) | |
7852 | I ORDABLE '="" S ISS CHBLE=$P($ G(^ORD(101 .43,$G(ORD ABLE),0)), "^",9) | |
7853 | "RTN","ORM XTR",483,0 ) | |
7854 | E S ISSC HBLE="" | |
7855 | "RTN","ORM XTR",484,0 ) | |
7856 | I ISSCHBL E="" S ISS CHBLE=$$GE T^XPAR("SY S","ORMX S CH DEFAULT FLAG") | |
7857 | "RTN","ORM XTR",485,0 ) | |
7858 | I ISSCHBL E=0 Q 1 | |
7859 | "RTN","ORM XTR",486,0 ) | |
7860 | ; | |
7861 | "RTN","ORM XTR",487,0 ) | |
7862 | I ORIEN'= "" S STATU S=$P($G(^O R(100,ORIE N,3)),"^", 3) | |
7863 | "RTN","ORM XTR",488,0 ) | |
7864 | E S STAT US="" | |
7865 | "RTN","ORM XTR",489,0 ) | |
7866 | I $$INSTR ING^SDMXCO RE(STATUS, "11",",") Q 1 | |
7867 | "RTN","ORM XTR",490,0 ) | |
7868 | ; | |
7869 | "RTN","ORM XTR",491,0 ) | |
7870 | I CNTLCOD E="XO",$$I NSTRING^SD MXCORE(STA TUS,"1,13" ,",") Q 1 | |
7871 | "RTN","ORM XTR",492,0 ) | |
7872 | Q 0 | |
7873 | "RTN","ORM XTR",493,0 ) | |
7874 | ISRTCORD(O RIEN) ; De termine if the order is an RTC order by checking f or the Dis play Group entry "CL INIC SCHED ULING" | |
7875 | "RTN","ORM XTR",494,0 ) | |
7876 | ; ORIEN - Order ID | |
7877 | "RTN","ORM XTR",495,0 ) | |
7878 | ; | |
7879 | "RTN","ORM XTR",496,0 ) | |
7880 | ; Returns 1 if the order is a n RTC orde r; 0 other wise | |
7881 | "RTN","ORM XTR",497,0 ) | |
7882 | ; | |
7883 | "RTN","ORM XTR",498,0 ) | |
7884 | N DISPGRP ,RTCDISPG | |
7885 | "RTN","ORM XTR",499,0 ) | |
7886 | ; | |
7887 | "RTN","ORM XTR",500,0 ) | |
7888 | S ORIEN=$ G(ORIEN) | |
7889 | "RTN","ORM XTR",501,0 ) | |
7890 | I ORIEN=" " Q 0 | |
7891 | "RTN","ORM XTR",502,0 ) | |
7892 | ; | |
7893 | "RTN","ORM XTR",503,0 ) | |
7894 | S DISPGRP =$P($G(^OR (100,ORIEN ,0)),"^",1 1) | |
7895 | "RTN","ORM XTR",504,0 ) | |
7896 | S RTCDISP G=$O(^ORD( 100.98,"B" ,"CLINIC S CHEDULING" ,"")) | |
7897 | "RTN","ORM XTR",505,0 ) | |
7898 | Q DISPGRP =RTCDISPG | |
7899 | "RTN","ORM XTR",506,0 ) | |
7900 | COMPRTC(OR IEN) ; Set the statu s of an RT C order to "Complete " | |
7901 | "RTN","ORM XTR",507,0 ) | |
7902 | ; ORIEN - Order ID | |
7903 | "RTN","ORM XTR",508,0 ) | |
7904 | ; | |
7905 | "RTN","ORM XTR",509,0 ) | |
7906 | ; Returns 1 if the RTC order was comple ted; -1 ot herwise | |
7907 | "RTN","ORM XTR",510,0 ) | |
7908 | ; | |
7909 | "RTN","ORM XTR",511,0 ) | |
7910 | S ORIEN=$ G(ORIEN) | |
7911 | "RTN","ORM XTR",512,0 ) | |
7912 | I ORIEN=" " Q -1 | |
7913 | "RTN","ORM XTR",513,0 ) | |
7914 | ; | |
7915 | "RTN","ORM XTR",514,0 ) | |
7916 | I '$$LOCK ORD^SDMXLK RQ(ORIEN) Q -1 | |
7917 | "RTN","ORM XTR",515,0 ) | |
7918 | D STATUS^ ORCSAVE2(O RIEN,2) | |
7919 | "RTN","ORM XTR",516,0 ) | |
7920 | I '$$ULOC KORD^SDMXL KRQ(ORIEN) Q -1 | |
7921 | "RTN","ORM XTR",517,0 ) | |
7922 | Q 1 | |
7923 | "RTN","ORM XTR",518,0 ) | |
7924 | ;;#eor# | |
7925 | "RTN","ORM XUTIL") | |
7926 | 0^4^B11026 599 | |
7927 | "RTN","ORM XUTIL",1,0 ) | |
7928 | ORMXUTIL ; MASS/BHC - ORDER UTI LITIES;11/ 28/17 | |
7929 | "RTN","ORM XUTIL",2,0 ) | |
7930 | ;;3.0;Ord er Entry/R esults Rep orting;**4 70**;NOVEM BER 28,201 7;Build 76 | |
7931 | "RTN","ORM XUTIL",3,0 ) | |
7932 | ;;Per VA DIRECTIVE 6402, this routine s hould not be modifie d. | |
7933 | "RTN","ORM XUTIL",4,0 ) | |
7934 | ; | |
7935 | "RTN","ORM XUTIL",5,0 ) | |
7936 | SFEN ; Mai n entry po int for OR MX Schedul able Actio n Utility | |
7937 | "RTN","ORM XUTIL",6,0 ) | |
7938 | D EN^VALM ("ORMX SCH EDULABLE A CTION") | |
7939 | "RTN","ORM XUTIL",7,0 ) | |
7940 | Q | |
7941 | "RTN","ORM XUTIL",8,0 ) | |
7942 | SFHDR ; He ader code for the OR MX Schedul able Actio n Utility | |
7943 | "RTN","ORM XUTIL",9,0 ) | |
7944 | S VALMHDR (1)="ORMX Schedulabl e Action U tility" | |
7945 | "RTN","ORM XUTIL",10, 0) | |
7946 | Q | |
7947 | "RTN","ORM XUTIL",11, 0) | |
7948 | ; | |
7949 | "RTN","ORM XUTIL",12, 0) | |
7950 | SFINIT ; S et initial variables and list array for the ORMX S chedulable Action Ut ility | |
7951 | "RTN","ORM XUTIL",13, 0) | |
7952 | ; | |
7953 | "RTN","ORM XUTIL",14, 0) | |
7954 | ; Variabl es assumed to be set from call ing List M anager App lication: | |
7955 | "RTN","ORM XUTIL",15, 0) | |
7956 | ; DISPG RP - Inter nal Code f or Display Group (#1 00.98). If blank, wi ll display all | |
7957 | "RTN","ORM XUTIL",16, 0) | |
7958 | N LINE,OR DABLE,ORDN AME,LINEVA R,SHRTNAME ,ACTION,NA ME,ORD0 | |
7959 | "RTN","ORM XUTIL",17, 0) | |
7960 | S (LINE,O RDABLE,ORD NAME,LINEV AR,SHRTNAM E,ACTION,N AME,ORD0)= "" | |
7961 | "RTN","ORM XUTIL",18, 0) | |
7962 | S DISPGRP =$G(DISPGR P) | |
7963 | "RTN","ORM XUTIL",19, 0) | |
7964 | S LINE=0 | |
7965 | "RTN","ORM XUTIL",20, 0) | |
7966 | I DISPGRP '="" S SHR TNAME=$P($ G(^ORD(100 .98,DISPGR P,0)),"^", 3) | |
7967 | "RTN","ORM XUTIL",21, 0) | |
7968 | W !,SHRTN AME | |
7969 | "RTN","ORM XUTIL",22, 0) | |
7970 | I SHRTNAM E="" D | |
7971 | "RTN","ORM XUTIL",23, 0) | |
7972 | . S ORDAB LE=0 | |
7973 | "RTN","ORM XUTIL",24, 0) | |
7974 | . F S OR DABLE=$O(^ ORD(101.43 ,ORDABLE)) Q:'+ORDAB LE D | |
7975 | "RTN","ORM XUTIL",25, 0) | |
7976 | . . S LIN E=LINE+1 | |
7977 | "RTN","ORM XUTIL",26, 0) | |
7978 | . . S ORD 0=$G(^ORD( 101.43,ORD ABLE,0)) Q :ORD0="" | |
7979 | "RTN","ORM XUTIL",27, 0) | |
7980 | . . S NAM E=$P(ORD0, "^",1),ACT ION=$P(ORD 0,"^",9) | |
7981 | "RTN","ORM XUTIL",28, 0) | |
7982 | . . S LIN EVAR=$$SET FLD^VALM1( LINE_".",L INEVAR,"LI NENO") | |
7983 | "RTN","ORM XUTIL",29, 0) | |
7984 | . . S LIN EVAR=$$SET FLD^VALM1( ORDABLE,LI NEVAR,"ORD ERABLE") | |
7985 | "RTN","ORM XUTIL",30, 0) | |
7986 | . . S LIN EVAR=$$SET FLD^VALM1( NAME,LINEV AR,"NAME") | |
7987 | "RTN","ORM XUTIL",31, 0) | |
7988 | . . S LIN EVAR=$$SET FLD^VALM1( ACTION,LIN EVAR,"ACTI ON") | |
7989 | "RTN","ORM XUTIL",32, 0) | |
7990 | . . D SET ^VALM10(LI NE,LINEVAR ,ORDABLE) | |
7991 | "RTN","ORM XUTIL",33, 0) | |
7992 | E D | |
7993 | "RTN","ORM XUTIL",34, 0) | |
7994 | . F S OR DNAME=$O(^ ORD(101.43 ,"S."_SHRT NAME,ORDNA ME)) Q:ORD NAME="" D | |
7995 | "RTN","ORM XUTIL",35, 0) | |
7996 | . . S LIN E=LINE+1 | |
7997 | "RTN","ORM XUTIL",36, 0) | |
7998 | . . S ORD ABLE=$O(^O RD(101.43, "S."_SHRTN AME,ORDNAM E,"")) | |
7999 | "RTN","ORM XUTIL",37, 0) | |
8000 | . . S ORD 0=$G(^ORD( 101.43,ORD ABLE,0)) Q :ORD0="" | |
8001 | "RTN","ORM XUTIL",38, 0) | |
8002 | . . S NAM E=$P(ORD0, "^",1),ACT ION=$P(ORD 0,"^",9) | |
8003 | "RTN","ORM XUTIL",39, 0) | |
8004 | . . S LIN EVAR=$$SET FLD^VALM1( LINE_".",L INEVAR,"LI NENO") | |
8005 | "RTN","ORM XUTIL",40, 0) | |
8006 | . . S LIN EVAR=$$SET FLD^VALM1( ORDABLE,LI NEVAR,"ORD ERABLE") | |
8007 | "RTN","ORM XUTIL",41, 0) | |
8008 | . . S LIN EVAR=$$SET FLD^VALM1( NAME,LINEV AR,"NAME") | |
8009 | "RTN","ORM XUTIL",42, 0) | |
8010 | . . S LIN EVAR=$$SET FLD^VALM1( ACTION,LIN EVAR,"ACTI ON") | |
8011 | "RTN","ORM XUTIL",43, 0) | |
8012 | . . D SET ^VALM10(LI NE,LINEVAR ,ORDABLE) | |
8013 | "RTN","ORM XUTIL",44, 0) | |
8014 | S VALMCNT =LINE | |
8015 | "RTN","ORM XUTIL",45, 0) | |
8016 | Q | |
8017 | "RTN","ORM XUTIL",46, 0) | |
8018 | ; | |
8019 | "RTN","ORM XUTIL",47, 0) | |
8020 | SFHELP ; H elp code f or the ORM X Schedula ble Action Utility | |
8021 | "RTN","ORM XUTIL",48, 0) | |
8022 | N X | |
8023 | "RTN","ORM XUTIL",49, 0) | |
8024 | S X="?" D DISP^XQOR M1 W !! | |
8025 | "RTN","ORM XUTIL",50, 0) | |
8026 | Q | |
8027 | "RTN","ORM XUTIL",51, 0) | |
8028 | ; | |
8029 | "RTN","ORM XUTIL",52, 0) | |
8030 | SFEXIT ; E xit code f or the ORM X Schedula ble Action Utility | |
8031 | "RTN","ORM XUTIL",53, 0) | |
8032 | K @VALMAR ,DISPGRP | |
8033 | "RTN","ORM XUTIL",54, 0) | |
8034 | Q | |
8035 | "RTN","ORM XUTIL",55, 0) | |
8036 | ; | |
8037 | "RTN","ORM XUTIL",56, 0) | |
8038 | SFEXPND ; Expand cod e for the ORMX Sched ulable Act ion Utilit y | |
8039 | "RTN","ORM XUTIL",57, 0) | |
8040 | Q | |
8041 | "RTN","ORM XUTIL",58, 0) | |
8042 | ; | |
8043 | "RTN","ORM XUTIL",59, 0) | |
8044 | SFRUN ; Ru n code for the ORMX Schedulabl e Action U tility | |
8045 | "RTN","ORM XUTIL",60, 0) | |
8046 | N ORDABLE ,LINES,LIN E,ITER,NOD E,Y,DIR | |
8047 | "RTN","ORM XUTIL",61, 0) | |
8048 | S (ORDABL E,LINES,LI NE,ITER,NO DE,Y,DIR)= "" | |
8049 | "RTN","ORM XUTIL",62, 0) | |
8050 | ; Get Ord erables to set actio n | |
8051 | "RTN","ORM XUTIL",63, 0) | |
8052 | K DIR | |
8053 | "RTN","ORM XUTIL",64, 0) | |
8054 | S DIR(0)= "L^1:"_VAL MCNT | |
8055 | "RTN","ORM XUTIL",65, 0) | |
8056 | D ^DIR | |
8057 | "RTN","ORM XUTIL",66, 0) | |
8058 | I Y="^" S VALMBCK=" R" Q | |
8059 | "RTN","ORM XUTIL",67, 0) | |
8060 | S LINES=$ G(Y) | |
8061 | "RTN","ORM XUTIL",68, 0) | |
8062 | S NODE="" | |
8063 | "RTN","ORM XUTIL",69, 0) | |
8064 | F S NODE =$O(Y(NODE )) Q:NODE= "" F ITER =1:1:$L(Y( NODE),",") D | |
8065 | "RTN","ORM XUTIL",70, 0) | |
8066 | . S LINE= $P(Y(NODE) ,",",ITER) I LINE="" Q | |
8067 | "RTN","ORM XUTIL",71, 0) | |
8068 | . S ORDAB LE(LINE)=$ O(@VALMAR@ ("IDX",LIN E,"")) | |
8069 | "RTN","ORM XUTIL",72, 0) | |
8070 | ; | |
8071 | "RTN","ORM XUTIL",73, 0) | |
8072 | ; Get Act ion | |
8073 | "RTN","ORM XUTIL",74, 0) | |
8074 | K DIR | |
8075 | "RTN","ORM XUTIL",75, 0) | |
8076 | S DIR(0)= "SB^0:DO N OT SCHEDUL E;1:SCHEDU LE ONLY;2: SCHEDULE A ND COMPLET E" | |
8077 | "RTN","ORM XUTIL",76, 0) | |
8078 | D ^DIR | |
8079 | "RTN","ORM XUTIL",77, 0) | |
8080 | S Y=$G(Y) | |
8081 | "RTN","ORM XUTIL",78, 0) | |
8082 | I Y="^" S VALMBCK=" R" Q | |
8083 | "RTN","ORM XUTIL",79, 0) | |
8084 | ; | |
8085 | "RTN","ORM XUTIL",80, 0) | |
8086 | ; Set Act ion | |
8087 | "RTN","ORM XUTIL",81, 0) | |
8088 | I $$INSTR ING^SDMXCO RE(Y,"0,1, 2",",") D SFSET(.ORD ABLE,Y) | |
8089 | "RTN","ORM XUTIL",82, 0) | |
8090 | ; | |
8091 | "RTN","ORM XUTIL",83, 0) | |
8092 | S VALMBCK ="R" | |
8093 | "RTN","ORM XUTIL",84, 0) | |
8094 | Q | |
8095 | "RTN","ORM XUTIL",85, 0) | |
8096 | ; | |
8097 | "RTN","ORM XUTIL",86, 0) | |
8098 | SFSET(ORDA BLE,SFVAL) ; Set 0;9 of ^ORD(1 01.43,ORDA BLE to SFV AL | |
8099 | "RTN","ORM XUTIL",87, 0) | |
8100 | ;Update f ile entry | |
8101 | "RTN","ORM XUTIL",88, 0) | |
8102 | N ORDARR, LINE | |
8103 | "RTN","ORM XUTIL",89, 0) | |
8104 | S (ORDARR ,LINE)="" | |
8105 | "RTN","ORM XUTIL",90, 0) | |
8106 | S SFVAL=$ G(SFVAL) | |
8107 | "RTN","ORM XUTIL",91, 0) | |
8108 | F S LINE =$O(ORDABL E(LINE)) Q :'+LINE D | |
8109 | "RTN","ORM XUTIL",92, 0) | |
8110 | . I ORDAB LE(LINE)=" " Q | |
8111 | "RTN","ORM XUTIL",93, 0) | |
8112 | . S ORDAR R(101.43,O RDABLE(LIN E)_",",11) =SFVAL | |
8113 | "RTN","ORM XUTIL",94, 0) | |
8114 | . D FILE^ DIE("","OR DARR") | |
8115 | "RTN","ORM XUTIL",95, 0) | |
8116 | . ;repain t list man ager lines | |
8117 | "RTN","ORM XUTIL",96, 0) | |
8118 | . D FLDTE XT^VALM10( LINE,"ACTI ON",SFVAL) | |
8119 | "RTN","ORM XUTIL",97, 0) | |
8120 | . D WRITE ^VALM10(LI NE) | |
8121 | "RTN","ORM XUTIL",98, 0) | |
8122 | . K ORDAR R(101.43,O RDABLE(LIN E)_",",11) | |
8123 | "RTN","ORM XUTIL",99, 0) | |
8124 | Q | |
8125 | "RTN","ORM XUTIL",100 ,0) | |
8126 | ; | |
8127 | "RTN","ORM XUTIL",101 ,0) | |
8128 | SFCHDGRP ; prompts u ser for a orderable item displ ay group a nd | |
8129 | "RTN","ORM XUTIL",102 ,0) | |
8130 | ; redraws the list area with only order able items in that | |
8131 | "RTN","ORM XUTIL",103 ,0) | |
8132 | ; display group. | |
8133 | "RTN","ORM XUTIL",104 ,0) | |
8134 | N Y | |
8135 | "RTN","ORM XUTIL",105 ,0) | |
8136 | S Y="" | |
8137 | "RTN","ORM XUTIL",106 ,0) | |
8138 | S DIR(0)= "P^100.98" | |
8139 | "RTN","ORM XUTIL",107 ,0) | |
8140 | D ^DIR | |
8141 | "RTN","ORM XUTIL",108 ,0) | |
8142 | S DISPGRP =$P(Y,"^", 1) | |
8143 | "RTN","ORM XUTIL",109 ,0) | |
8144 | D CLEAN^V ALM10 | |
8145 | "RTN","ORM XUTIL",110 ,0) | |
8146 | D SFINIT | |
8147 | "RTN","ORM XUTIL",111 ,0) | |
8148 | D RE^VALM 4 | |
8149 | "RTN","ORM XUTIL",112 ,0) | |
8150 | Q | |
8151 | "RTN","ORM XUTIL",113 ,0) | |
8152 | ; | |
8153 | "VER") | |
8154 | 8.0^22.2 | |
8155 | "^DD",2,2, 1010.1511, 0) | |
8156 | APPOINTMEN T REQUEST DATE^D^^10 10.15;11^S %DT="EX" D ^%DT S X =Y K:Y<1 X | |
8157 | "^DD",2,2, 1010.1511, 1,0) | |
8158 | ^.1^^-1 | |
8159 | "^DD",2,2, 1010.1511, 1,1,0) | |
8160 | 2^AENR1010 1511^MUMPS | |
8161 | "^DD",2,2, 1010.1511, 1,1,1) | |
8162 | D EVENT^IV MPLOG(DA) | |
8163 | "^DD",2,2, 1010.1511, 1,1,2) | |
8164 | D EVENT^IV MPLOG(DA) | |
8165 | "^DD",2,2, 1010.1511, 1,1,3) | |
8166 | DO NOT DE LETE | |
8167 | "^DD",2,2, 1010.1511, 1,1,"%D",0 ) | |
8168 | ^.101^2^2^ 3171108^^^ ^ | |
8169 | "^DD",2,2, 1010.1511, 1,1,"%D",1 ,0) | |
8170 | This cross -reference is used t o notify H EC of chan ges that m ay affect | |
8171 | "^DD",2,2, 1010.1511, 1,1,"%D",2 ,0) | |
8172 | enrollment . | |
8173 | "^DD",2,2, 1010.1511, 1,1,"DT") | |
8174 | 3050913 | |
8175 | "^DD",2,2, 1010.1511, 1,2,0) | |
8176 | 2^AEACL | |
8177 | "^DD",2,2, 1010.1511, 1,2,1) | |
8178 | S ^DPT("AE ACL",$E(X, 1,30),DA)= "" | |
8179 | "^DD",2,2, 1010.1511, 1,2,2) | |
8180 | K ^DPT("AE ACL",$E(X, 1,30),DA) | |
8181 | "^DD",2,2, 1010.1511, 1,2,"%D",0 ) | |
8182 | ^.101^1^1^ 3171108^^ | |
8183 | "^DD",2,2, 1010.1511, 1,2,"%D",1 ,0) | |
8184 | This cross reference is used f or Enrolle e Appt. Ca ll List | |
8185 | "^DD",2,2, 1010.1511, 1,2,"DT") | |
8186 | 3080214 | |
8187 | "^DD",2,2, 1010.1511, 3) | |
8188 | Enter date VA was no tified the enrolling patient i s requesti ng an appo intment. | |
8189 | "^DD",2,2, 1010.1511, 21,0) | |
8190 | ^.001^2^2^ 3080214^^ | |
8191 | "^DD",2,2, 1010.1511, 21,1,0) | |
8192 | This field contains the date t he VA enro lling a pa tient for the first time | |
8193 | "^DD",2,2, 1010.1511, 21,2,0) | |
8194 | was notifi ed that th e patient requests a n appointm ent with a provider. | |
8195 | "^DD",2,2, 1010.1511, "DT") | |
8196 | 3171026 | |
8197 | "^DD",2,2, 1010.161,0 ) | |
8198 | APPOINTMEN T REQUEST STATUS^S^C :CANCELLED ;E:EWL;F:F ILLED;I:IN PROCESS/V ETERAN CON TACTED;^10 10.16;1^Q | |
8199 | "^DD",2,2, 1010.161,1 ,0) | |
8200 | ^.1 | |
8201 | "^DD",2,2, 1010.161,1 ,1,0) | |
8202 | ^^TRIGGER^ 2^1010.162 | |
8203 | "^DD",2,2, 1010.161,1 ,1,1) | |
8204 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,1010.16)) :^(1010.16 ),1:"") S X=$P(Y(1), U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^D D(2,1010.1 61,1,1,1.4 ) | |
8205 | "^DD",2,2, 1010.161,1 ,1,1.4) | |
8206 | S DIH=$G(^ DPT(DIV(0) ,1010.16)) ,DIV=X S $ P(^(1010.1 6),U,2)=DI V,DIH=2,DI G=1010.162 D ^DICR | |
8207 | "^DD",2,2, 1010.161,1 ,1,2) | |
8208 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,1010.16)) :^(1010.16 ),1:"") S X=$P(Y(1), U,2),X=X S DIU=X K Y S X="" S DIH=$G(^DP T(DIV(0),1 010.16)),D IV=X S $P( ^(1010.16) ,U,2)=DIV, DIH=2,DIG= 1010.162 D ^DICR | |
8209 | "^DD",2,2, 1010.161,1 ,1,"CREATE VALUE") | |
8210 | NOW | |
8211 | "^DD",2,2, 1010.161,1 ,1,"DELETE VALUE") | |
8212 | @ | |
8213 | "^DD",2,2, 1010.161,1 ,1,"FIELD" ) | |
8214 | DATE STATU S LA | |
8215 | "^DD",2,2, 1010.161,1 ,2,0) | |
8216 | 2^AY^MUMPS | |
8217 | "^DD",2,2, 1010.161,1 ,2,1) | |
8218 | Q | |
8219 | "^DD",2,2, 1010.161,1 ,2,2) | |
8220 | D TRNLMSG^ ORMXTR("CA ,NW") | |
8221 | "^DD",2,2, 1010.161,1 ,2,"DT") | |
8222 | 3180511 | |
8223 | "^DD",2,2, 1010.161,3 ) | |
8224 | Enter stat us of appo intment re quest. | |
8225 | "^DD",2,2, 1010.161,2 1,0) | |
8226 | ^^3^3^3080 317^ | |
8227 | "^DD",2,2, 1010.161,2 1,1,0) | |
8228 | This field is the st atus of th e veteran' s new appo intment re quested. | |
8229 | "^DD",2,2, 1010.161,2 1,2,0) | |
8230 | This field is entere d by the u ser throug h the new enrollee a ppointment | |
8231 | "^DD",2,2, 1010.161,2 1,3,0) | |
8232 | request op tion. | |
8233 | "^DD",2,2, 1010.161," DT") | |
8234 | 3180511 | |
8235 | "^DD",27.1 1,27.11,.0 4,0) | |
8236 | ENROLLMENT STATUS^RP 27.15'IX^D GEN(27.15, ^0;4^Q | |
8237 | "^DD",27.1 1,27.11,.0 4,1,0) | |
8238 | ^.1 | |
8239 | "^DD",27.1 1,27.11,.0 4,1,1,0) | |
8240 | 27.11^AENR C^MUMPS | |
8241 | "^DD",27.1 1,27.11,.0 4,1,1,1) | |
8242 | D SET2^DGE NDD(DA,X) | |
8243 | "^DD",27.1 1,27.11,.0 4,1,1,2) | |
8244 | D KILL2^DG ENDD(DA,X) | |
8245 | "^DD",27.1 1,27.11,.0 4,1,1,3) | |
8246 | DO NOT DEL ETE | |
8247 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,0) | |
8248 | ^.101^7^7^ 3180202^^^ ^ | |
8249 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,1,0) | |
8250 | This index sorts the patients by their c urrent enr ollment st atus. | |
8251 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,2,0) | |
8252 | The CURREN T ENROLLME NT field o f the PATI ENT file a lso trigge rs this | |
8253 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,3,0) | |
8254 | cross-refe rence. | |
8255 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,4,0) | |
8256 | ||
8257 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,5,0) | |
8258 | The format of the in dex is: | |
8259 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,6,0) | |
8260 | ||
8261 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,7,0) | |
8262 | ^DPT("AENR C",<curren t enrollme nt status> ,<DFN>)="" | |
8263 | "^DD",27.1 1,27.11,.0 4,1,1,"DT" ) | |
8264 | 2970619 | |
8265 | "^DD",27.1 1,27.11,.0 4,1,2,0) | |
8266 | 27.11^AC^M UMPS | |
8267 | "^DD",27.1 1,27.11,.0 4,1,2,1) | |
8268 | D SETREM^D GENDD(DA,X ) | |
8269 | "^DD",27.1 1,27.11,.0 4,1,2,2) | |
8270 | D SETREM^D GENDD(DA,X ) | |
8271 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,0) | |
8272 | ^.101^6^6^ 3030226^^ | |
8273 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,1,0) | |
8274 | This cross -reference calls an API that w ill update the Remar ks field # .091 | |
8275 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,2,0) | |
8276 | of the Pat ient file #2 dependi ng on the value of t he enrollm ent status . | |
8277 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,3,0) | |
8278 | If the enr ollment st atus conta ins the wo rd REJECTE D, then th e Remarks | |
8279 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,4,0) | |
8280 | field will be update d with the message * *REJECTED* *. If the enrollmen t | |
8281 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,5,0) | |
8282 | status is not a Reje cted statu s then the message * *REJECTED* * will be | |
8283 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,6,0) | |
8284 | removed fr om the Rem arks field . | |
8285 | "^DD",27.1 1,27.11,.0 4,1,2,"DT" ) | |
8286 | 3030225 | |
8287 | "^DD",27.1 1,27.11,.0 4,1,3,0) | |
8288 | 27.11^AENR 04^MUMPS | |
8289 | "^DD",27.1 1,27.11,.0 4,1,3,1) | |
8290 | D E2711^DG RTRIG(DA) | |
8291 | "^DD",27.1 1,27.11,.0 4,1,3,2) | |
8292 | D E2711^DG RTRIG(DA) | |
8293 | "^DD",27.1 1,27.11,.0 4,1,3,3) | |
8294 | DO NOT DE LETE | |
8295 | "^DD",27.1 1,27.11,.0 4,1,3,"%D" ,0) | |
8296 | ^.101^2^2^ 3050913^^^ ^ | |
8297 | "^DD",27.1 1,27.11,.0 4,1,3,"%D" ,1,0) | |
8298 | This cross -reference is used t o notify H EC of chan ges that m ay affect | |
8299 | "^DD",27.1 1,27.11,.0 4,1,3,"%D" ,2,0) | |
8300 | enrollment . | |
8301 | "^DD",27.1 1,27.11,.0 4,1,3,"DT" ) | |
8302 | 3050913 | |
8303 | "^DD",27.1 1,27.11,.0 4,3) | |
8304 | Enter the status of the applic ation for enrollment . | |
8305 | "^DD",27.1 1,27.11,.0 4,21,0) | |
8306 | ^^1^1^2990 507^^^^ | |
8307 | "^DD",27.1 1,27.11,.0 4,21,1,0) | |
8308 | The status of an app lication f or enrollm ent. | |
8309 | "^DD",27.1 1,27.11,.0 4,"DT") | |
8310 | 3180202 | |
8311 | "^DD",101. 43,101.43, 11,0) | |
8312 | MASS SCHED ULING ACTI ON^S^0:DO NOT SCHEDU LE;1:SCHED ULE ONLY;2 :SCHEDULE AND COMPLE TE;^0;9^Q | |
8313 | "^DD",101. 43,101.43, 11,3) | |
8314 | Should ord ers for th is item be scheduled in MASS a nd should scheduling the order complete it. | |
8315 | "^DD",101. 43,101.43, 11,21,0) | |
8316 | ^.001^3^3^ 3171116^^ | |
8317 | "^DD",101. 43,101.43, 11,21,1,0) | |
8318 | This field determine s if order s for this item are scheduled in | |
8319 | "^DD",101. 43,101.43, 11,21,2,0) | |
8320 | MASS and i f these or ders shoul d be marke d as compl ete upon | |
8321 | "^DD",101. 43,101.43, 11,21,3,0) | |
8322 | scheduling . | |
8323 | "^DD",101. 43,101.43, 11,"DT") | |
8324 | 3171116 | |
8325 | "^DD",396. 4,396.4,.0 2,0) | |
8326 | 2507 REQUE ST^RP396.3 'I^DVB(396 .3,^0;2^Q | |
8327 | "^DD",396. 4,396.4,.0 2,1,0) | |
8328 | ^.1^^-1 | |
8329 | "^DD",396. 4,396.4,.0 2,1,1,0) | |
8330 | 396.4^C | |
8331 | "^DD",396. 4,396.4,.0 2,1,1,1) | |
8332 | S ^DVB(396 .4,"C",$E( X,1,30),DA )="" | |
8333 | "^DD",396. 4,396.4,.0 2,1,1,2) | |
8334 | K ^DVB(396 .4,"C",$E( X,1,30),DA ) | |
8335 | "^DD",396. 4,396.4,.0 2,1,1,"%D" ,0) | |
8336 | ^.101^1^1^ 3170908^^ | |
8337 | "^DD",396. 4,396.4,.0 2,1,1,"%D" ,1,0) | |
8338 | This is a standard F M cross re ference fo r this fie ld. | |
8339 | "^DD",396. 4,396.4,.0 2,1,1,"DT" ) | |
8340 | 2930218 | |
8341 | "^DD",396. 4,396.4,.0 2,1,2,0) | |
8342 | 396.4^APS^ MUMPS | |
8343 | "^DD",396. 4,396.4,.0 2,1,2,1) | |
8344 | N A S A=^D VB(396.4,D A,0) I $P( A,U,3)]"", $P(A,U,4)] "" S ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$E(X ,1,30),0), U,1),$P(A, U,3),$P(A, U,4),DA)=" " | |
8345 | "^DD",396. 4,396.4,.0 2,1,2,2) | |
8346 | N A S A=^D VB(396.4,D A,0) I $P( A,U,3)]"", $P(A,U,4)] "" K ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$E(X ,1,30),0), U,1),$P(A, U,3),$P(A, U,4),DA) | |
8347 | "^DD",396. 4,396.4,.0 2,1,2,"%D" ,0) | |
8348 | ^^3^3^2930 510^^ | |
8349 | "^DD",396. 4,396.4,.0 2,1,2,"%D" ,1,0) | |
8350 | This cross reference contains the patien t's intern al file nu mber, the exam | |
8351 | "^DD",396. 4,396.4,.0 2,1,2,"%D" ,2,0) | |
8352 | IFN and th e exam sta tus. It i s set on t wo other f ields .03 and .04. | |
8353 | "^DD",396. 4,396.4,.0 2,1,2,"%D" ,3,0) | |
8354 | Recross re ferencing any one of these fie lds will b e acceptab le. | |
8355 | "^DD",396. 4,396.4,.0 2,1,2,"DT" ) | |
8356 | 2930422 | |
8357 | "^DD",396. 4,396.4,.0 2,1,3,0) | |
8358 | 396.4^APE^ MUMPS | |
8359 | "^DD",396. 4,396.4,.0 2,1,3,1) | |
8360 | N A,B S A= ^DVB(396.3 ,$E(X,1,30 ),0) I $P( A,U,1)]"", $P(A,U,2)] "" S B=^DV B(396.4,DA ,0) I $P(B ,U,3)]"" S ^DVB(396. 4,"APE",$P (A,U,1),$P (^DVB(396. 6,$P(B,U,3 ),0),U,1), $P(A,U,2), DA)="" | |
8361 | "^DD",396. 4,396.4,.0 2,1,3,2) | |
8362 | N A,B S A= ^DVB(396.3 ,$E(X,1,30 ),0) I $P( A,U,1)]"", $P(A,U,2)] "" S B=^DV B(396.4,DA ,0) I $P(B ,U,3)]"" K ^DVB(396. 4,"APE",$P (A,U,1),$P (^DVB(396. 6,$P(B,U,3 ),0),U,1), $P(A,U,2), DA) | |
8363 | "^DD",396. 4,396.4,.0 2,1,3,"%D" ,0) | |
8364 | ^^3^3^2930 510^ | |
8365 | "^DD",396. 4,396.4,.0 2,1,3,"%D" ,1,0) | |
8366 | This cross reference contains the patien t's IFN, t he exam na me, and th e | |
8367 | "^DD",396. 4,396.4,.0 2,1,3,"%D" ,2,0) | |
8368 | request da te. It is set on on e other fi eld .03. Recross re ferencing either | |
8369 | "^DD",396. 4,396.4,.0 2,1,3,"%D" ,3,0) | |
8370 | one of the se fields would be a cceptable. | |
8371 | "^DD",396. 4,396.4,.0 2,1,3,"DT" ) | |
8372 | 2930422 | |
8373 | "^DD",396. 4,396.4,.0 2,1,4,0) | |
8374 | 396.4^AF^M UMPS | |
8375 | "^DD",396. 4,396.4,.0 2,1,4,1) | |
8376 | N A S A=$P (^DVB(396. 4,DA,0),U, 3) I A]"" S ^DVB(396 .4,"ARQ"_X ,A,DA)="" | |
8377 | "^DD",396. 4,396.4,.0 2,1,4,2) | |
8378 | N A S A=$P (^DVB(396. 4,DA,0),U, 3) I A]"" K ^DVB(396 .4,"ARQ"_X ,A,DA) | |
8379 | "^DD",396. 4,396.4,.0 2,1,4,"%D" ,0) | |
8380 | ^.101^2^2^ 3171108^^^ ^ | |
8381 | "^DD",396. 4,396.4,.0 2,1,4,"%D" ,1,0) | |
8382 | This cross reference is used t o quickly find the c orrect exa ms that ar e | |
8383 | "^DD",396. 4,396.4,.0 2,1,4,"%D" ,2,0) | |
8384 | related to a specifi c request. | |
8385 | "^DD",396. 4,396.4,.0 2,1,4,"DT" ) | |
8386 | 2930902 | |
8387 | "^DD",396. 4,396.4,.0 2,3) | |
8388 | Enter the request th at this ex am belongs to. You will selec t the vete ran then w hich reque st. | |
8389 | "^DD",396. 4,396.4,.0 2,21,0) | |
8390 | ^^2^2^2940 721^^ | |
8391 | "^DD",396. 4,396.4,.0 2,21,1,0) | |
8392 | This field connects the given record wit h the 2507 request r ecord that | |
8393 | "^DD",396. 4,396.4,.0 2,21,2,0) | |
8394 | the exam i s on. | |
8395 | "^DD",396. 4,396.4,.0 2,23,0) | |
8396 | ^^1^1^2940 721^^ | |
8397 | "^DD",396. 4,396.4,.0 2,23,1,0) | |
8398 | A pointer to the 250 7 Request file (396. 3). | |
8399 | "^DD",396. 4,396.4,.0 2,"DT") | |
8400 | 3171003 | |
8401 | "^DD",396. 4,396.4,.0 3,0) | |
8402 | EXAM TYPE^ RP396.6'I^ DVB(396.6, ^0;3^Q | |
8403 | "^DD",396. 4,396.4,.0 3,1,0) | |
8404 | ^.1 | |
8405 | "^DD",396. 4,396.4,.0 3,1,1,0) | |
8406 | 396.4^ARQ^ MUMPS | |
8407 | "^DD",396. 4,396.4,.0 3,1,1,1) | |
8408 | N A S A=$P (^DVB(396. 4,DA,0),U, 2) I A]"" S ^DVB(396 .4,"ARQ"_A ,$E(X,1,30 ),DA)="" | |
8409 | "^DD",396. 4,396.4,.0 3,1,1,2) | |
8410 | N A S A=$P (^DVB(396. 4,DA,0),U, 2) I A]"" K ^DVB(396 .4,"ARQ"_A ,$E(X,1,30 ),DA) | |
8411 | "^DD",396. 4,396.4,.0 3,1,1,"%D" ,0) | |
8412 | ^^1^1^2930 902^ | |
8413 | "^DD",396. 4,396.4,.0 3,1,1,"%D" ,1,0) | |
8414 | This cross reference is to aid in the lo ok up on t he 2507 ex am file 39 6.4 | |
8415 | "^DD",396. 4,396.4,.0 3,1,1,"DT" ) | |
8416 | 2930902 | |
8417 | "^DD",396. 4,396.4,.0 3,1,2,0) | |
8418 | 396.4^AC^M UMPS | |
8419 | "^DD",396. 4,396.4,.0 3,1,2,1) | |
8420 | N A S A=^D VB(396.4,D A,0) I $P( A,U,2)]"", $P(A,U,4)] "" S ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$P(A ,U,2),0),U ,1),$E(X,1 ,30),$P(A, U,4),DA)=" " | |
8421 | "^DD",396. 4,396.4,.0 3,1,2,2) | |
8422 | N A S A=^D VB(396.4,D A,0) I $P( A,U,2)]"", $P(A,U,4)] "" K ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$P(A ,U,2),0),U ,1),$E(X,1 ,30),$P(A, U,4),DA) | |
8423 | "^DD",396. 4,396.4,.0 3,1,2,"%D" ,0) | |
8424 | ^^3^3^2930 510^^^^ | |
8425 | "^DD",396. 4,396.4,.0 3,1,2,"%D" ,1,0) | |
8426 | This cross reference contains the patien t's intern al file nu mber, the exam | |
8427 | "^DD",396. 4,396.4,.0 3,1,2,"%D" ,2,0) | |
8428 | IFN and th e exam sta tus. It i s set on t wo other f ields .02 and .04. | |
8429 | "^DD",396. 4,396.4,.0 3,1,2,"%D" ,3,0) | |
8430 | Recross re ferencing any one of these fie lds will b e acceptab le. | |
8431 | "^DD",396. 4,396.4,.0 3,1,2,"DT" ) | |
8432 | 2930422 | |
8433 | "^DD",396. 4,396.4,.0 3,1,3,0) | |
8434 | 396.4^AE^M UMPS | |
8435 | "^DD",396. 4,396.4,.0 3,1,3,1) | |
8436 | N A S A=$P (^DVB(396. 4,DA,0),U, 2) I A]"" S A=^DVB(3 96.3,A,0) I $P(A,U,1 )]"",$P(A, U,2)]"" S ^DVB(396.4 ,"APE",$P( A,U,1),$P( ^DVB(396.6 ,$E(X,1,30 ),0),U,1), $P(A,U,2), DA)="" | |
8437 | "^DD",396. 4,396.4,.0 3,1,3,2) | |
8438 | N A S A=$P (^DVB(396. 4,DA,0),U, 2) I A]"" S A=^DVB(3 96.3,A,0) I $P(A,U,1 )]"",$P(A, U,2)]"" K ^DVB(396.4 ,"APE",$P( A,U,1),$P( ^DVB(396.6 ,$E(X,1,30 ),0),U,1), $P(A,U,2), DA) | |
8439 | "^DD",396. 4,396.4,.0 3,1,3,"%D" ,0) | |
8440 | ^^3^3^2930 510^ | |
8441 | "^DD",396. 4,396.4,.0 3,1,3,"%D" ,1,0) | |
8442 | This cross reference contains the patien t's IFN, t he exam na me, and th e | |
8443 | "^DD",396. 4,396.4,.0 3,1,3,"%D" ,2,0) | |
8444 | request da te. It is set on on e other fi eld .03. Recross re ferencing either | |
8445 | "^DD",396. 4,396.4,.0 3,1,3,"%D" ,3,0) | |
8446 | one of the se fields would be a cceptable. | |
8447 | "^DD",396. 4,396.4,.0 3,1,3,"DT" ) | |
8448 | 2930422 | |
8449 | "^DD",396. 4,396.4,.0 3,1,4,0) | |
8450 | 396.4^F | |
8451 | "^DD",396. 4,396.4,.0 3,1,4,1) | |
8452 | S ^DVB(396 .4,"F",$E( X,1,30),DA )="" | |
8453 | "^DD",396. 4,396.4,.0 3,1,4,2) | |
8454 | K ^DVB(396 .4,"F",$E( X,1,30),DA ) | |
8455 | "^DD",396. 4,396.4,.0 3,1,4,"DT" ) | |
8456 | 2930218 | |
8457 | "^DD",396. 4,396.4,.0 3,1,5,0) | |
8458 | 396.4^AIT2 ^MUMPS | |
8459 | "^DD",396. 4,396.4,.0 3,1,5,1) | |
8460 | S:+$P(^DVB (396.4,DA, 0),U,11)>0 ^DVB(396. 4,"AIT",$P (^(0),U,11 ),$E(X,1,3 0),DA)="" | |
8461 | "^DD",396. 4,396.4,.0 3,1,5,2) | |
8462 | I +$P(^DVB (396.4,DA, 0),U,11)>0 K ^DVB(39 6.4,"AIT", $P(^(0),U, 11),$E(X,1 ,30),DA) | |
8463 | "^DD",396. 4,396.4,.0 3,1,5,"%D" ,0) | |
8464 | ^.101^2^2^ 3171108^^^ ^ | |
8465 | "^DD",396. 4,396.4,.0 3,1,5,"%D" ,1,0) | |
8466 | This cross reference is on the Insuffici ent Reason and Exam Type field s. | |
8467 | "^DD",396. 4,396.4,.0 3,1,5,"%D" ,2,0) | |
8468 | It is used by the th e Detailed Insuffici ent Exam R eport. | |
8469 | "^DD",396. 4,396.4,.0 3,1,5,"DT" ) | |
8470 | 2941116 | |
8471 | "^DD",396. 4,396.4,.0 3,3) | |
8472 | Enter the name of th e exam for this requ est. | |
8473 | "^DD",396. 4,396.4,.0 3,4) | |
8474 | ||
8475 | "^DD",396. 4,396.4,.0 3,21,0) | |
8476 | ^^1^1^2940 722^^ | |
8477 | "^DD",396. 4,396.4,.0 3,21,1,0) | |
8478 | Contains t he name of the exam. | |
8479 | "^DD",396. 4,396.4,.0 3,23,0) | |
8480 | ^^1^1^2940 722^^ | |
8481 | "^DD",396. 4,396.4,.0 3,23,1,0) | |
8482 | This field is a poin ter to the 2507 Exam File (396 .6). | |
8483 | "^DD",396. 4,396.4,.0 3,"DT") | |
8484 | 3171003 | |
8485 | "^DD",396. 4,396.4,.0 4,0) | |
8486 | STATUS^S^O :OPEN;C:CO MPLETED;X: CANCELED B Y MAS;RX:C ANCELED BY RO;T:TRAN SFERRED OU T;^0;4^Q | |
8487 | "^DD",396. 4,396.4,.0 4,1,0) | |
8488 | ^.1^^-1 | |
8489 | "^DD",396. 4,396.4,.0 4,1,1,0) | |
8490 | 396.4^AD^M UMPS | |
8491 | "^DD",396. 4,396.4,.0 4,1,1,1) | |
8492 | N A S A=^D VB(396.4,D A,0) I $P( A,U,2)]"", $P(A,U,3)] "" S ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$P(A ,U,2),0),U ,1),$P(A,U ,3),$E(X,1 ,30),DA)=" " | |
8493 | "^DD",396. 4,396.4,.0 4,1,1,2) | |
8494 | N A S A=^D VB(396.4,D A,0) I $P( A,U,2)]"", $P(A,U,3)] "" K ^DVB( 396.4,"APS ",$P(^DVB( 396.3,$P(A ,U,2),0),U ,1),$P(A,U ,3),$E(X,1 ,30),DA) | |
8495 | "^DD",396. 4,396.4,.0 4,1,1,"%D" ,0) | |
8496 | ^.101^3^3^ 3171108^^^ ^ | |
8497 | "^DD",396. 4,396.4,.0 4,1,1,"%D" ,1,0) | |
8498 | This cross reference contains the patien t's intern al file nu mber, the exam | |
8499 | "^DD",396. 4,396.4,.0 4,1,1,"%D" ,2,0) | |
8500 | IFN and th e exam sta tus. It i s set on t wo other f ields .02 and .03. | |
8501 | "^DD",396. 4,396.4,.0 4,1,1,"%D" ,3,0) | |
8502 | Recross re ferencing any one of these fie lds will b e acceptab le. | |
8503 | "^DD",396. 4,396.4,.0 4,1,1,"DT" ) | |
8504 | 2930422 | |
8505 | "^DD",396. 4,396.4,.0 4,3) | |
8506 | This is th e status o f the exam in AMIE. | |
8507 | "^DD",396. 4,396.4,.0 4,21,0) | |
8508 | ^.001^2^2^ 3040910^^ | |
8509 | "^DD",396. 4,396.4,.0 4,21,1,0) | |
8510 | The value of the sta tus of the exam reco rd. (Open , Closed, Transferre d or | |
8511 | "^DD",396. 4,396.4,.0 4,21,2,0) | |
8512 | Cancelled) | |
8513 | "^DD",396. 4,396.4,.0 4,21,3,0) | |
8514 | ||
8515 | "^DD",396. 4,396.4,.0 4,21,4,0) | |
8516 | This field is used a s part of the implem entation o f a Nation ally Contr olled | |
8517 | "^DD",396. 4,396.4,.0 4,21,5,0) | |
8518 | Procedure (AMIS 290) . Per VHA Directive 10-93-142 , the info rmation | |
8519 | "^DD",396. 4,396.4,.0 4,21,6,0) | |
8520 | contained in this fi eld is not to be cha nged as th e results of local ( site) | |
8521 | "^DD",396. 4,396.4,.0 4,21,7,0) | |
8522 | modificati ons. | |
8523 | "^DD",396. 4,396.4,.0 4,23,0) | |
8524 | ^.001^2^2^ 3040910^^ | |
8525 | "^DD",396. 4,396.4,.0 4,23,1,0) | |
8526 | This field is a set of codes. It contro ls what AM IE functio ns can be | |
8527 | "^DD",396. 4,396.4,.0 4,23,2,0) | |
8528 | performed on the exa m record. | |
8529 | "^DD",396. 4,396.4,.0 4,"DT") | |
8530 | 3171003 | |
8531 | **END** | |
8532 | **END** |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.