Produced by Araxis Merge on 6/1/2019 2:58:38 PM Eastern 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 | VSE_P2_SD_5.3_717.zip | SD_5.3_717.KIDS | Fri May 31 20:37:08 2019 UTC |
2 | VSE_P2_SD_5.3_717.zip | SD_5.3_717.KIDS | Sat Jun 1 18:35:50 2019 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 9 | 9410 |
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 | $END TXT | |
2 | $KID SD*5. 3*717 | |
3 | **INSTALL NAME** | |
4 | SD*5.3*717 | |
5 | "BLD",1036 4,0) | |
6 | SD*5.3*717 ^SCHEDULIN G^0^319032 6^y | |
7 | "BLD",1036 4,1,0) | |
8 | ^^294^294^ 3181106^ | |
9 | "BLD",1036 4,1,1,0) | |
10 | This patch corrects the proble m of appoi ntment pro cessing in VistA | |
11 | "BLD",1036 4,1,2,0) | |
12 | Scheduling (VS) GUI not invoki ng the eve nt driver protocol ( SDAM | |
13 | "BLD",1036 4,1,3,0) | |
14 | APPOINTMEN T | |
15 | "BLD",1036 4,1,4,0) | |
16 | EVENTS) th at roll an d scroll V istA does. This prot ocol allow s other ap ps | |
17 | "BLD",1036 4,1,5,0) | |
18 | to tie fun ctionality , includin g interfac es to exte rnal syste ms such as | |
19 | "BLD",1036 4,1,6,0) | |
20 | Pyxis, Omn icell, and EDIS,to a ppointment events. A ctions cur rently bei ng | |
21 | "BLD",1036 4,1,7,0) | |
22 | executed f or appoint ment event s in legac y VistA wi ll also be executed for | |
23 | "BLD",1036 4,1,8,0) | |
24 | appointmen ts when th ose events (make app ointment, check in, undo check in, | |
25 | "BLD",1036 4,1,9,0) | |
26 | check out, undo chec k out, can cel appoin tment, no show) are triggered by | |
27 | "BLD",1036 4,1,10,0) | |
28 | the GUI. ( However, t his patch does not r equire a G UI update. ) | |
29 | "BLD",1036 4,1,11,0) | |
30 | ||
31 | "BLD",1036 4,1,12,0) | |
32 | Patch Comp onents | |
33 | "BLD",1036 4,1,13,0) | |
34 | ========== ====== | |
35 | "BLD",1036 4,1,14,0) | |
36 | ||
37 | "BLD",1036 4,1,15,0) | |
38 | Files & Fi elds Assoc iated: | |
39 | "BLD",1036 4,1,16,0) | |
40 | ||
41 | "BLD",1036 4,1,17,0) | |
42 | File Name (#) Ne w/Modified / | |
43 | "BLD",1036 4,1,18,0) | |
44 | Sub-file Name (#) Field Na me (Number ) Deleted | |
45 | "BLD",1036 4,1,19,0) | |
46 | ---------- --------- -------- ---------- ---------- ----- -- ---------- - | |
47 | "BLD",1036 4,1,20,0) | |
48 | N/A | |
49 | "BLD",1036 4,1,21,0) | |
50 | ||
51 | "BLD",1036 4,1,22,0) | |
52 | Bulletins Associated : | |
53 | "BLD",1036 4,1,23,0) | |
54 | Ne w/Modified / | |
55 | "BLD",1036 4,1,24,0) | |
56 | Bulletin N ame Deleted | |
57 | "BLD",1036 4,1,25,0) | |
58 | ---------- --- -- ---------- - | |
59 | "BLD",1036 4,1,26,0) | |
60 | N/A | |
61 | "BLD",1036 4,1,27,0) | |
62 | ||
63 | "BLD",1036 4,1,28,0) | |
64 | ||
65 | "BLD",1036 4,1,29,0) | |
66 | ||
67 | "BLD",1036 4,1,30,0) | |
68 | Dialogs As sociated: | |
69 | "BLD",1036 4,1,31,0) | |
70 | Ne w/Modified / | |
71 | "BLD",1036 4,1,32,0) | |
72 | Dialog Nam e Deleted | |
73 | "BLD",1036 4,1,33,0) | |
74 | ---------- - -- ---------- - | |
75 | "BLD",1036 4,1,34,0) | |
76 | N/A | |
77 | "BLD",1036 4,1,35,0) | |
78 | ||
79 | "BLD",1036 4,1,36,0) | |
80 | ||
81 | "BLD",1036 4,1,37,0) | |
82 | ||
83 | "BLD",1036 4,1,38,0) | |
84 | Forms Asso ciated: | |
85 | "BLD",1036 4,1,39,0) | |
86 | Ne w/Modified / | |
87 | "BLD",1036 4,1,40,0) | |
88 | Form Name F ile Name ( Number) Deleted | |
89 | "BLD",1036 4,1,41,0) | |
90 | --------- - ---------- ------- -- ---------- - | |
91 | "BLD",1036 4,1,42,0) | |
92 | N/A | |
93 | "BLD",1036 4,1,43,0) | |
94 | ||
95 | "BLD",1036 4,1,44,0) | |
96 | ||
97 | "BLD",1036 4,1,45,0) | |
98 | ||
99 | "BLD",1036 4,1,46,0) | |
100 | Functions Associated : | |
101 | "BLD",1036 4,1,47,0) | |
102 | Ne w/Modified / | |
103 | "BLD",1036 4,1,48,0) | |
104 | Function N ame Deleted | |
105 | "BLD",1036 4,1,49,0) | |
106 | ---------- --- -- ---------- - | |
107 | "BLD",1036 4,1,50,0) | |
108 | N/A | |
109 | "BLD",1036 4,1,51,0) | |
110 | ||
111 | "BLD",1036 4,1,52,0) | |
112 | ||
113 | "BLD",1036 4,1,53,0) | |
114 | ||
115 | "BLD",1036 4,1,54,0) | |
116 | HL Logical Link: | |
117 | "BLD",1036 4,1,55,0) | |
118 | Ne w/Modified / | |
119 | "BLD",1036 4,1,56,0) | |
120 | HL Logical Name Deleted | |
121 | "BLD",1036 4,1,57,0) | |
122 | ---------- ----- -- ---------- - | |
123 | "BLD",1036 4,1,58,0) | |
124 | N/A | |
125 | "BLD",1036 4,1,59,0) | |
126 | ||
127 | "BLD",1036 4,1,60,0) | |
128 | ||
129 | "BLD",1036 4,1,61,0) | |
130 | ||
131 | "BLD",1036 4,1,62,0) | |
132 | HL7 Applic ation Para meters: | |
133 | "BLD",1036 4,1,63,0) | |
134 | Ne w/Modified / | |
135 | "BLD",1036 4,1,64,0) | |
136 | HL7 Parame ter Name Deleted | |
137 | "BLD",1036 4,1,65,0) | |
138 | ---------- -------- -- ---------- - | |
139 | "BLD",1036 4,1,66,0) | |
140 | N/A | |
141 | "BLD",1036 4,1,67,0) | |
142 | ||
143 | "BLD",1036 4,1,68,0) | |
144 | ||
145 | "BLD",1036 4,1,69,0) | |
146 | ||
147 | "BLD",1036 4,1,70,0) | |
148 | HLO Applic ation Regi stry: | |
149 | "BLD",1036 4,1,71,0) | |
150 | Ne w/Modified / | |
151 | "BLD",1036 4,1,72,0) | |
152 | HLO Regist ry Name Deleted | |
153 | "BLD",1036 4,1,73,0) | |
154 | ---------- ------- -- ---------- - | |
155 | "BLD",1036 4,1,74,0) | |
156 | N/A | |
157 | "BLD",1036 4,1,75,0) | |
158 | ||
159 | "BLD",1036 4,1,76,0) | |
160 | ||
161 | "BLD",1036 4,1,77,0) | |
162 | ||
163 | "BLD",1036 4,1,78,0) | |
164 | Help Frame s Associat ed: | |
165 | "BLD",1036 4,1,79,0) | |
166 | Ne w/Modified / | |
167 | "BLD",1036 4,1,80,0) | |
168 | Help Frame Name Deleted | |
169 | "BLD",1036 4,1,81,0) | |
170 | ---------- ----- -- ---------- - | |
171 | "BLD",1036 4,1,82,0) | |
172 | N/A | |
173 | "BLD",1036 4,1,83,0) | |
174 | ||
175 | "BLD",1036 4,1,84,0) | |
176 | ||
177 | "BLD",1036 4,1,85,0) | |
178 | ||
179 | "BLD",1036 4,1,86,0) | |
180 | Mail Group s Associat ed: | |
181 | "BLD",1036 4,1,87,0) | |
182 | Ne w/Modified / | |
183 | "BLD",1036 4,1,88,0) | |
184 | Mail Group Name Deleted | |
185 | "BLD",1036 4,1,89,0) | |
186 | ---------- ----- -- ---------- - | |
187 | "BLD",1036 4,1,90,0) | |
188 | N/A | |
189 | "BLD",1036 4,1,91,0) | |
190 | ||
191 | "BLD",1036 4,1,92,0) | |
192 | ||
193 | "BLD",1036 4,1,93,0) | |
194 | ||
195 | "BLD",1036 4,1,94,0) | |
196 | Options As sociated: | |
197 | "BLD",1036 4,1,95,0) | |
198 | ||
199 | "BLD",1036 4,1,96,0) | |
200 | New/Modifi ed/ | |
201 | "BLD",1036 4,1,97,0) | |
202 | Option Nam e Typ e | |
203 | "BLD",1036 4,1,98,0) | |
204 | Deleted | |
205 | "BLD",1036 4,1,99,0) | |
206 | ---------- - --- - | |
207 | "BLD",1036 4,1,100,0) | |
208 | ---------- --- | |
209 | "BLD",1036 4,1,101,0) | |
210 | N/A | |
211 | "BLD",1036 4,1,102,0) | |
212 | ||
213 | "BLD",1036 4,1,103,0) | |
214 | ||
215 | "BLD",1036 4,1,104,0) | |
216 | ||
217 | "BLD",1036 4,1,105,0) | |
218 | Parameter Definition s: | |
219 | "BLD",1036 4,1,106,0) | |
220 | Ne w/Modified / | |
221 | "BLD",1036 4,1,107,0) | |
222 | Parameter Name Deleted | |
223 | "BLD",1036 4,1,108,0) | |
224 | ---------- ---- -- ---------- - | |
225 | "BLD",1036 4,1,109,0) | |
226 | N/A | |
227 | "BLD",1036 4,1,110,0) | |
228 | ||
229 | "BLD",1036 4,1,111,0) | |
230 | ||
231 | "BLD",1036 4,1,112,0) | |
232 | ||
233 | "BLD",1036 4,1,113,0) | |
234 | Parameter Template: | |
235 | "BLD",1036 4,1,114,0) | |
236 | Ne w/Modified / | |
237 | "BLD",1036 4,1,115,0) | |
238 | Template N ame Deleted | |
239 | "BLD",1036 4,1,116,0) | |
240 | ---------- --- -- ---------- - | |
241 | "BLD",1036 4,1,117,0) | |
242 | N/A | |
243 | "BLD",1036 4,1,118,0) | |
244 | ||
245 | "BLD",1036 4,1,119,0) | |
246 | ||
247 | "BLD",1036 4,1,120,0) | |
248 | ||
249 | "BLD",1036 4,1,121,0) | |
250 | Protocols Associated : | |
251 | "BLD",1036 4,1,122,0) | |
252 | Ne w/Modified / | |
253 | "BLD",1036 4,1,123,0) | |
254 | Protocol N ame Deleted | |
255 | "BLD",1036 4,1,124,0) | |
256 | ---------- --- -- ---------- - | |
257 | "BLD",1036 4,1,125,0) | |
258 | N/A | |
259 | "BLD",1036 4,1,126,0) | |
260 | ||
261 | "BLD",1036 4,1,127,0) | |
262 | ||
263 | "BLD",1036 4,1,128,0) | |
264 | ||
265 | "BLD",1036 4,1,129,0) | |
266 | Remote Pro cedures As sociated: | |
267 | "BLD",1036 4,1,130,0) | |
268 | Ne w/Modified / | |
269 | "BLD",1036 4,1,131,0) | |
270 | Remote Pro cedure Nam e Deleted | |
271 | "BLD",1036 4,1,132,0) | |
272 | ---------- ---------- - -- ---------- - | |
273 | "BLD",1036 4,1,133,0) | |
274 | N/A | |
275 | "BLD",1036 4,1,134,0) | |
276 | ||
277 | "BLD",1036 4,1,135,0) | |
278 | ||
279 | "BLD",1036 4,1,136,0) | |
280 | ||
281 | "BLD",1036 4,1,137,0) | |
282 | Security K eys Associ ated: | |
283 | "BLD",1036 4,1,138,0) | |
284 | Ne w/Modified / | |
285 | "BLD",1036 4,1,139,0) | |
286 | Security K ey Name Deleted | |
287 | "BLD",1036 4,1,140,0) | |
288 | ---------- ------- -- ---------- - | |
289 | "BLD",1036 4,1,141,0) | |
290 | N/A | |
291 | "BLD",1036 4,1,142,0) | |
292 | ||
293 | "BLD",1036 4,1,143,0) | |
294 | ||
295 | "BLD",1036 4,1,144,0) | |
296 | ||
297 | "BLD",1036 4,1,145,0) | |
298 | Templates, Input Ass ociated: | |
299 | "BLD",1036 4,1,146,0) | |
300 | Ne w/Modified / | |
301 | "BLD",1036 4,1,147,0) | |
302 | Template N ame T ype F ile Name ( Number) Deleted | |
303 | "BLD",1036 4,1,148,0) | |
304 | ---------- --- - --- - ---------- ------- -- ---------- - | |
305 | "BLD",1036 4,1,149,0) | |
306 | N/A | |
307 | "BLD",1036 4,1,150,0) | |
308 | ||
309 | "BLD",1036 4,1,151,0) | |
310 | ||
311 | "BLD",1036 4,1,152,0) | |
312 | ||
313 | "BLD",1036 4,1,153,0) | |
314 | Templates, List Asso ciated: | |
315 | "BLD",1036 4,1,154,0) | |
316 | Ne w/Modified / | |
317 | "BLD",1036 4,1,155,0) | |
318 | Template N ame T ype Deleted | |
319 | "BLD",1036 4,1,156,0) | |
320 | ---------- --- - --- -- ---------- - | |
321 | "BLD",1036 4,1,157,0) | |
322 | N/A | |
323 | "BLD",1036 4,1,158,0) | |
324 | ||
325 | "BLD",1036 4,1,159,0) | |
326 | ||
327 | "BLD",1036 4,1,160,0) | |
328 | ||
329 | "BLD",1036 4,1,161,0) | |
330 | Templates, Print Ass ociated: | |
331 | "BLD",1036 4,1,162,0) | |
332 | New/Modifi ed/ | |
333 | "BLD",1036 4,1,163,0) | |
334 | Template N ame Type Fi le Name (N umber) Deleted | |
335 | "BLD",1036 4,1,164,0) | |
336 | ---------- --- ---- -- ---------- ------ ---------- --- | |
337 | "BLD",1036 4,1,165,0) | |
338 | N/A | |
339 | "BLD",1036 4,1,166,0) | |
340 | ||
341 | "BLD",1036 4,1,167,0) | |
342 | ||
343 | "BLD",1036 4,1,168,0) | |
344 | ||
345 | "BLD",1036 4,1,169,0) | |
346 | Templates, Sort Asso ciated: | |
347 | "BLD",1036 4,1,170,0) | |
348 | ||
349 | "BLD",1036 4,1,171,0) | |
350 | New/Modifi ed/ | |
351 | "BLD",1036 4,1,172,0) | |
352 | Template N ame Type File Name (Number) | |
353 | "BLD",1036 4,1,173,0) | |
354 | Deleted | |
355 | "BLD",1036 4,1,174,0) | |
356 | ---------- --- ---- --------- --------- | |
357 | "BLD",1036 4,1,175,0) | |
358 | ---------- --- | |
359 | "BLD",1036 4,1,176,0) | |
360 | N/A | |
361 | "BLD",1036 4,1,177,0) | |
362 | ||
363 | "BLD",1036 4,1,178,0) | |
364 | ||
365 | "BLD",1036 4,1,179,0) | |
366 | Additional Informati on: | |
367 | "BLD",1036 4,1,180,0) | |
368 | N/A | |
369 | "BLD",1036 4,1,181,0) | |
370 | ||
371 | "BLD",1036 4,1,182,0) | |
372 | ||
373 | "BLD",1036 4,1,183,0) | |
374 | New Servic e Requests (NSRs) | |
375 | "BLD",1036 4,1,184,0) | |
376 | ---------- ---------- -------- | |
377 | "BLD",1036 4,1,185,0) | |
378 | N/A | |
379 | "BLD",1036 4,1,186,0) | |
380 | ||
381 | "BLD",1036 4,1,187,0) | |
382 | ||
383 | "BLD",1036 4,1,188,0) | |
384 | Patient Sa fety Issue s (PSIs) | |
385 | "BLD",1036 4,1,189,0) | |
386 | ---------- ---------- --------- | |
387 | "BLD",1036 4,1,190,0) | |
388 | N/A | |
389 | "BLD",1036 4,1,191,0) | |
390 | ||
391 | "BLD",1036 4,1,192,0) | |
392 | ||
393 | "BLD",1036 4,1,193,0) | |
394 | ServiceNow Ticket(s) & Overvie w | |
395 | "BLD",1036 4,1,194,0) | |
396 | ---------- ---------- ---------- ---------- ------- | |
397 | "BLD",1036 4,1,195,0) | |
398 | I17005764F Y18 Pyxis and EDIS are not re cognizing clinic che ck in acti ons | |
399 | "BLD",1036 4,1,196,0) | |
400 | ||
401 | "BLD",1036 4,1,197,0) | |
402 | Problem: | |
403 | "BLD",1036 4,1,198,0) | |
404 | ------- | |
405 | "BLD",1036 4,1,199,0) | |
406 | When a use r performs appointme nt actions in VS GUI , downstre am systems | |
407 | "BLD",1036 4,1,200,0) | |
408 | such | |
409 | "BLD",1036 4,1,201,0) | |
410 | as Pyxis ( or other u nit dosing devices, such as Om nicell) an d EDIS are not | |
411 | "BLD",1036 4,1,202,0) | |
412 | updated, w hereas the y are when the appoi ntment act ions are t aken in le gacy | |
413 | "BLD",1036 4,1,203,0) | |
414 | VistA. | |
415 | "BLD",1036 4,1,204,0) | |
416 | ||
417 | "BLD",1036 4,1,205,0) | |
418 | Resolution : | |
419 | "BLD",1036 4,1,206,0) | |
420 | ---------- | |
421 | "BLD",1036 4,1,207,0) | |
422 | The GUI no w invokes the SDAM A PPOINTMENT EVENTS pr otocol jus t like leg acy | |
423 | "BLD",1036 4,1,208,0) | |
424 | VistA, mea ning that the downst ream syste ms will be notified in the sam e | |
425 | "BLD",1036 4,1,209,0) | |
426 | way whethe r actions are taken on them in GUI or le gacy. | |
427 | "BLD",1036 4,1,210,0) | |
428 | ||
429 | "BLD",1036 4,1,211,0) | |
430 | Test Sites : | |
431 | "BLD",1036 4,1,212,0) | |
432 | ---------- | |
433 | "BLD",1036 4,1,213,0) | |
434 | TBA | |
435 | "BLD",1036 4,1,214,0) | |
436 | ||
437 | "BLD",1036 4,1,215,0) | |
438 | Software a nd Documen tation Ret rieval Ins tructions: | |
439 | "BLD",1036 4,1,216,0) | |
440 | ---------- ---------- ---------- ---------- ---------- -- | |
441 | "BLD",1036 4,1,217,0) | |
442 | ||
443 | "BLD",1036 4,1,218,0) | |
444 | Software b eing relea sed as a h ost file a nd/or docu mentation describing | |
445 | "BLD",1036 4,1,219,0) | |
446 | the new fu nctionalit y introduc ed by this patch are available . | |
447 | "BLD",1036 4,1,220,0) | |
448 | ||
449 | "BLD",1036 4,1,221,0) | |
450 | The prefer red method is to ret rieve file s from dow nload. DNS . URL | |
451 | "BLD",1036 4,1,222,0) | |
452 | This trans mits the f iles from the first available server. Si tes may | |
453 | "BLD",1036 4,1,223,0) | |
454 | also elect to retrie ve files d irectly fr om a speci fic server . | |
455 | "BLD",1036 4,1,224,0) | |
456 | ||
457 | "BLD",1036 4,1,225,0) | |
458 | Sites may retrieve t he softwar e and/or d ocumentati on directl y using | |
459 | "BLD",1036 4,1,226,0) | |
460 | Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE | |
461 | "BLD",1036 4,1,227,0) | |
462 | directory at the fol lowing OI Field Offi ces: | |
463 | "BLD",1036 4,1,228,0) | |
464 | ||
465 | "BLD",1036 4,1,229,0) | |
466 | Hines: DNS .U RL | |
467 | "BLD",1036 4,1,230,0) | |
468 | Salt Lake City: DNS . URL | |
469 | "BLD",1036 4,1,231,0) | |
470 | ||
471 | "BLD",1036 4,1,232,0) | |
472 | ||
473 | "BLD",1036 4,1,233,0) | |
474 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | |
475 | "BLD",1036 4,1,234,0) | |
476 | at: | |
477 | "BLD",1036 4,1,235,0) | |
478 | http:// URL / | |
479 | "BLD",1036 4,1,236,0) | |
480 | ||
481 | "BLD",1036 4,1,237,0) | |
482 | Title Fil e Name FTP Mode | |
483 | "BLD",1036 4,1,238,0) | |
484 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---- | |
485 | "BLD",1036 4,1,239,0) | |
486 | VistA Sche duling Enh ancements GUI User G uide SCH EDULING_UG .PDF Bina ry | |
487 | "BLD",1036 4,1,240,0) | |
488 | VistA Sche duling Enh ancements Technical Manual SCH EDULING_TM .PDF Bina ry | |
489 | "BLD",1036 4,1,241,0) | |
490 | ||
491 | "BLD",1036 4,1,242,0) | |
492 | ||
493 | "BLD",1036 4,1,243,0) | |
494 | Patch Inst allation: | |
495 | "BLD",1036 4,1,244,0) | |
496 | ||
497 | "BLD",1036 4,1,245,0) | |
498 | ||
499 | "BLD",1036 4,1,246,0) | |
500 | Pre/Post I nstallatio n Overview | |
501 | "BLD",1036 4,1,247,0) | |
502 | ---------- ---------- ---------- | |
503 | "BLD",1036 4,1,248,0) | |
504 | There are no pre- or post-inst allation t asks for t his patch. | |
505 | "BLD",1036 4,1,249,0) | |
506 | ||
507 | "BLD",1036 4,1,250,0) | |
508 | Installati on Instruc tions | |
509 | "BLD",1036 4,1,251,0) | |
510 | ---------- ---------- ----- | |
511 | "BLD",1036 4,1,252,0) | |
512 | Install Ti me - less than 5 min utes. | |
513 | "BLD",1036 4,1,253,0) | |
514 | ||
515 | "BLD",1036 4,1,254,0) | |
516 | 1. Use the INSTAL L/CHECK ME SSAGE opti on on the PackMan me nu. | |
517 | "BLD",1036 4,1,255,0) | |
518 | ||
519 | "BLD",1036 4,1,256,0) | |
520 | 2. From the Kerne l Installa tion & Dis tribution System men u, select | |
521 | "BLD",1036 4,1,257,0) | |
522 | the Installati on menu. | |
523 | "BLD",1036 4,1,258,0) | |
524 | ||
525 | "BLD",1036 4,1,259,0) | |
526 | 3. From this menu , you may select to use the fo llowing op tions | |
527 | "BLD",1036 4,1,260,0) | |
528 | (whe n prompted for INSTA LL NAME, e nter SD*5. 3*717): | |
529 | "BLD",1036 4,1,261,0) | |
530 | a. Verify Checksums in Transp ort Global - This op tion will | |
531 | "BLD",1036 4,1,262,0) | |
532 | allow | |
533 | "BLD",1036 4,1,263,0) | |
534 | you to ensure th e integrit y of the r outines th at are in the | |
535 | "BLD",1036 4,1,264,0) | |
536 | transp ort global . | |
537 | "BLD",1036 4,1,265,0) | |
538 | b. Print Transport Global - T his option will allo w you to v iew | |
539 | "BLD",1036 4,1,266,0) | |
540 | the co mponents o f the KIDS build. | |
541 | "BLD",1036 4,1,267,0) | |
542 | c. Compar e Transpor t Global t o Current System - T his option | |
543 | "BLD",1036 4,1,268,0) | |
544 | will | |
545 | "BLD",1036 4,1,269,0) | |
546 | allow you to vie w all chan ges that w ill be mad e when thi s | |
547 | "BLD",1036 4,1,270,0) | |
548 | patch is install ed. It co mpares all component s of this | |
549 | "BLD",1036 4,1,271,0) | |
550 | patch (routines, DD's, tem plates, et c.). | |
551 | "BLD",1036 4,1,272,0) | |
552 | d. Backup a Transpo rt Global - This opt ion will c reate a ba ckup | |
553 | "BLD",1036 4,1,273,0) | |
554 | messag e of any r outines ex ported wit h this pat ch. It wil l | |
555 | "BLD",1036 4,1,274,0) | |
556 | not | |
557 | "BLD",1036 4,1,275,0) | |
558 | backup any other changes s uch as DD' s or templ ates. | |
559 | "BLD",1036 4,1,276,0) | |
560 | ||
561 | "BLD",1036 4,1,277,0) | |
562 | 4. Use the Instal l Package( s) option and select the packa ge SD*5.3* 717. | |
563 | "BLD",1036 4,1,278,0) | |
564 | ||
565 | "BLD",1036 4,1,279,0) | |
566 | 5. When prompted "Want KIDS to INHIBI T LOGONs d uring the install? N O//" | |
567 | "BLD",1036 4,1,280,0) | |
568 | resp ond NO. | |
569 | "BLD",1036 4,1,281,0) | |
570 | 6. When prompted "Want to D ISABLE Sch eduled Opt ions, Menu Options, and | |
571 | "BLD",1036 4,1,282,0) | |
572 | Prot ocols? NO/ /", respon d NO | |
573 | "BLD",1036 4,1,283,0) | |
574 | ||
575 | "BLD",1036 4,1,284,0) | |
576 | Back-Out/R oll Back P lan: | |
577 | "BLD",1036 4,1,285,0) | |
578 | ---------- ---------- ---- | |
579 | "BLD",1036 4,1,286,0) | |
580 | In the eve nt of a ca tastrophic failure, the Facili ty Chief I nformation | |
581 | "BLD",1036 4,1,287,0) | |
582 | Officer ma y make the decision to back-ou t the patc h. | |
583 | "BLD",1036 4,1,288,0) | |
584 | ||
585 | "BLD",1036 4,1,289,0) | |
586 | It is impe rative tha t you have performed a backup of the rou tines and | |
587 | "BLD",1036 4,1,290,0) | |
588 | the routin es include d matches the pre-pa tch checks um from th e patch | |
589 | "BLD",1036 4,1,291,0) | |
590 | descriptio n. | |
591 | "BLD",1036 4,1,292,0) | |
592 | ||
593 | "BLD",1036 4,1,293,0) | |
594 | This patch only cont ains routi ne updates . To back- out the pa tch please | |
595 | "BLD",1036 4,1,294,0) | |
596 | restore th e backup m essage fro m the patc h installa tion proce ss. | |
597 | "BLD",1036 4,4,0) | |
598 | ^9.64PA^^ | |
599 | "BLD",1036 4,6) | |
600 | 1^ | |
601 | "BLD",1036 4,6.3) | |
602 | 7 | |
603 | "BLD",1036 4,"KRN",0) | |
604 | ^9.67PA^1. 61^23 | |
605 | "BLD",1036 4,"KRN",.4 ,0) | |
606 | .4 | |
607 | "BLD",1036 4,"KRN",.4 01,0) | |
608 | .401 | |
609 | "BLD",1036 4,"KRN",.4 02,0) | |
610 | .402 | |
611 | "BLD",1036 4,"KRN",.4 03,0) | |
612 | .403 | |
613 | "BLD",1036 4,"KRN",.5 ,0) | |
614 | .5 | |
615 | "BLD",1036 4,"KRN",.8 4,0) | |
616 | .84 | |
617 | "BLD",1036 4,"KRN",1. 6,0) | |
618 | 1.6 | |
619 | "BLD",1036 4,"KRN",1. 61,0) | |
620 | 1.61 | |
621 | "BLD",1036 4,"KRN",1. 62,0) | |
622 | 1.62 | |
623 | "BLD",1036 4,"KRN",3. 6,0) | |
624 | 3.6 | |
625 | "BLD",1036 4,"KRN",3. 8,0) | |
626 | 3.8 | |
627 | "BLD",1036 4,"KRN",9. 2,0) | |
628 | 9.2 | |
629 | "BLD",1036 4,"KRN",9. 8,0) | |
630 | 9.8 | |
631 | "BLD",1036 4,"KRN",9. 8,"NM",0) | |
632 | ^9.68A^8^7 | |
633 | "BLD",1036 4,"KRN",9. 8,"NM",1,0 ) | |
634 | SDAMEVT^^0 ^B32857672 | |
635 | "BLD",1036 4,"KRN",9. 8,"NM",2,0 ) | |
636 | SDCO3^^0^B 4283789 | |
637 | "BLD",1036 4,"KRN",9. 8,"NM",3,0 ) | |
638 | SDCODEL^^0 ^B14749068 | |
639 | "BLD",1036 4,"KRN",9. 8,"NM",4,0 ) | |
640 | SDEC07B^^0 ^B86344811 | |
641 | "BLD",1036 4,"KRN",9. 8,"NM",5,0 ) | |
642 | SDEC08^^0^ B217036692 | |
643 | "BLD",1036 4,"KRN",9. 8,"NM",6,0 ) | |
644 | SDEC25^^0^ B151472805 | |
645 | "BLD",1036 4,"KRN",9. 8,"NM",8,0 ) | |
646 | SDEC31^^0^ B34969907 | |
647 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDAMEVT" ,1) | |
648 | ||
649 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDCO3",2 ) | |
650 | ||
651 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDCODEL" ,3) | |
652 | ||
653 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC07B" ,4) | |
654 | ||
655 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC08", 5) | |
656 | ||
657 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC25", 6) | |
658 | ||
659 | "BLD",1036 4,"KRN",9. 8,"NM","B" ,"SDEC31", 8) | |
660 | ||
661 | "BLD",1036 4,"KRN",19 ,0) | |
662 | 19 | |
663 | "BLD",1036 4,"KRN",19 .1,0) | |
664 | 19.1 | |
665 | "BLD",1036 4,"KRN",10 1,0) | |
666 | 101 | |
667 | "BLD",1036 4,"KRN",40 9.61,0) | |
668 | 409.61 | |
669 | "BLD",1036 4,"KRN",77 1,0) | |
670 | 771 | |
671 | "BLD",1036 4,"KRN",77 9.2,0) | |
672 | 779.2 | |
673 | "BLD",1036 4,"KRN",87 0,0) | |
674 | 870 | |
675 | "BLD",1036 4,"KRN",89 89.51,0) | |
676 | 8989.51 | |
677 | "BLD",1036 4,"KRN",89 89.52,0) | |
678 | 8989.52 | |
679 | "BLD",1036 4,"KRN",89 94,0) | |
680 | 8994 | |
681 | "BLD",1036 4,"KRN","B ",.4,.4) | |
682 | ||
683 | "BLD",1036 4,"KRN","B ",.401,.40 1) | |
684 | ||
685 | "BLD",1036 4,"KRN","B ",.402,.40 2) | |
686 | ||
687 | "BLD",1036 4,"KRN","B ",.403,.40 3) | |
688 | ||
689 | "BLD",1036 4,"KRN","B ",.5,.5) | |
690 | ||
691 | "BLD",1036 4,"KRN","B ",.84,.84) | |
692 | ||
693 | "BLD",1036 4,"KRN","B ",1.6,1.6) | |
694 | ||
695 | "BLD",1036 4,"KRN","B ",1.61,1.6 1) | |
696 | ||
697 | "BLD",1036 4,"KRN","B ",1.62,1.6 2) | |
698 | ||
699 | "BLD",1036 4,"KRN","B ",3.6,3.6) | |
700 | ||
701 | "BLD",1036 4,"KRN","B ",3.8,3.8) | |
702 | ||
703 | "BLD",1036 4,"KRN","B ",9.2,9.2) | |
704 | ||
705 | "BLD",1036 4,"KRN","B ",9.8,9.8) | |
706 | ||
707 | "BLD",1036 4,"KRN","B ",19,19) | |
708 | ||
709 | "BLD",1036 4,"KRN","B ",19.1,19. 1) | |
710 | ||
711 | "BLD",1036 4,"KRN","B ",101,101) | |
712 | ||
713 | "BLD",1036 4,"KRN","B ",409.61,4 09.61) | |
714 | ||
715 | "BLD",1036 4,"KRN","B ",771,771) | |
716 | ||
717 | "BLD",1036 4,"KRN","B ",779.2,77 9.2) | |
718 | ||
719 | "BLD",1036 4,"KRN","B ",870,870) | |
720 | ||
721 | "BLD",1036 4,"KRN","B ",8989.51, 8989.51) | |
722 | ||
723 | "BLD",1036 4,"KRN","B ",8989.52, 8989.52) | |
724 | ||
725 | "BLD",1036 4,"KRN","B ",8994,899 4) | |
726 | ||
727 | "BLD",1036 4,"QUES",0 ) | |
728 | ^9.62^^ | |
729 | "BLD",1036 4,"REQB",0 ) | |
730 | ^9.611^7^6 | |
731 | "BLD",1036 4,"REQB",1 ,0) | |
732 | DVBA*2.7*2 08^2 | |
733 | "BLD",1036 4,"REQB",2 ,0) | |
734 | SD*5.3*443 ^2 | |
735 | "BLD",1036 4,"REQB",3 ,0) | |
736 | SD*5.3*466 ^2 | |
737 | "BLD",1036 4,"REQB",5 ,0) | |
738 | SD*5.3*671 ^2 | |
739 | "BLD",1036 4,"REQB",6 ,0) | |
740 | SD*5.3*683 ^2 | |
741 | "BLD",1036 4,"REQB",7 ,0) | |
742 | SD*5.3*722 ^2 | |
743 | "BLD",1036 4,"REQB"," B","DVBA*2 .7*208",1) | |
744 | ||
745 | "BLD",1036 4,"REQB"," B","SD*5.3 *443",2) | |
746 | ||
747 | "BLD",1036 4,"REQB"," B","SD*5.3 *466",3) | |
748 | ||
749 | "BLD",1036 4,"REQB"," B","SD*5.3 *671",5) | |
750 | ||
751 | "BLD",1036 4,"REQB"," B","SD*5.3 *683",6) | |
752 | ||
753 | "BLD",1036 4,"REQB"," B","SD*5.3 *722",7) | |
754 | ||
755 | "MBREQ") | |
756 | 0 | |
757 | "PKG",48,- 1) | |
758 | 1^1 | |
759 | "PKG",48,0 ) | |
760 | SCHEDULING ^SD^APPOIN TMENTS,PRO FILES,LETT ERS,AMIS R EPORTS | |
761 | "PKG",48,2 2,0) | |
762 | ^9.49I^1^1 | |
763 | "PKG",48,2 2,1,0) | |
764 | 5.3^305111 9^2960613 | |
765 | "PKG",48,2 2,1,"PAH", 1,0) | |
766 | 717^319032 6^114 | |
767 | "PKG",48,2 2,1,"PAH", 1,1,0) | |
768 | ^^294^294^ 3190326 | |
769 | "PKG",48,2 2,1,"PAH", 1,1,1,0) | |
770 | This patch corrects the proble m of appoi ntment pro cessing in VistA | |
771 | "PKG",48,2 2,1,"PAH", 1,1,2,0) | |
772 | Scheduling (VS) GUI not invoki ng the eve nt driver protocol ( SDAM | |
773 | "PKG",48,2 2,1,"PAH", 1,1,3,0) | |
774 | APPOINTMEN T | |
775 | "PKG",48,2 2,1,"PAH", 1,1,4,0) | |
776 | EVENTS) th at roll an d scroll V istA does. This prot ocol allow s other ap ps | |
777 | "PKG",48,2 2,1,"PAH", 1,1,5,0) | |
778 | to tie fun ctionality , includin g interfac es to exte rnal syste ms such as | |
779 | "PKG",48,2 2,1,"PAH", 1,1,6,0) | |
780 | Pyxis, Omn icell, and EDIS,to a ppointment events. A ctions cur rently bei ng | |
781 | "PKG",48,2 2,1,"PAH", 1,1,7,0) | |
782 | executed f or appoint ment event s in legac y VistA wi ll also be executed for | |
783 | "PKG",48,2 2,1,"PAH", 1,1,8,0) | |
784 | appointmen ts when th ose events (make app ointment, check in, undo check in, | |
785 | "PKG",48,2 2,1,"PAH", 1,1,9,0) | |
786 | check out, undo chec k out, can cel appoin tment, no show) are triggered by | |
787 | "PKG",48,2 2,1,"PAH", 1,1,10,0) | |
788 | the GUI. ( However, t his patch does not r equire a G UI update. ) | |
789 | "PKG",48,2 2,1,"PAH", 1,1,11,0) | |
790 | ||
791 | "PKG",48,2 2,1,"PAH", 1,1,12,0) | |
792 | Patch Comp onents | |
793 | "PKG",48,2 2,1,"PAH", 1,1,13,0) | |
794 | ========== ====== | |
795 | "PKG",48,2 2,1,"PAH", 1,1,14,0) | |
796 | ||
797 | "PKG",48,2 2,1,"PAH", 1,1,15,0) | |
798 | Files & Fi elds Assoc iated: | |
799 | "PKG",48,2 2,1,"PAH", 1,1,16,0) | |
800 | ||
801 | "PKG",48,2 2,1,"PAH", 1,1,17,0) | |
802 | File Name (#) Ne w/Modified / | |
803 | "PKG",48,2 2,1,"PAH", 1,1,18,0) | |
804 | Sub-file Name (#) Field Na me (Number ) Deleted | |
805 | "PKG",48,2 2,1,"PAH", 1,1,19,0) | |
806 | ---------- --------- -------- ---------- ---------- ----- -- ---------- - | |
807 | "PKG",48,2 2,1,"PAH", 1,1,20,0) | |
808 | N/A | |
809 | "PKG",48,2 2,1,"PAH", 1,1,21,0) | |
810 | ||
811 | "PKG",48,2 2,1,"PAH", 1,1,22,0) | |
812 | Bulletins Associated : | |
813 | "PKG",48,2 2,1,"PAH", 1,1,23,0) | |
814 | Ne w/Modified / | |
815 | "PKG",48,2 2,1,"PAH", 1,1,24,0) | |
816 | Bulletin N ame Deleted | |
817 | "PKG",48,2 2,1,"PAH", 1,1,25,0) | |
818 | ---------- --- -- ---------- - | |
819 | "PKG",48,2 2,1,"PAH", 1,1,26,0) | |
820 | N/A | |
821 | "PKG",48,2 2,1,"PAH", 1,1,27,0) | |
822 | ||
823 | "PKG",48,2 2,1,"PAH", 1,1,28,0) | |
824 | ||
825 | "PKG",48,2 2,1,"PAH", 1,1,29,0) | |
826 | ||
827 | "PKG",48,2 2,1,"PAH", 1,1,30,0) | |
828 | Dialogs As sociated: | |
829 | "PKG",48,2 2,1,"PAH", 1,1,31,0) | |
830 | Ne w/Modified / | |
831 | "PKG",48,2 2,1,"PAH", 1,1,32,0) | |
832 | Dialog Nam e Deleted | |
833 | "PKG",48,2 2,1,"PAH", 1,1,33,0) | |
834 | ---------- - -- ---------- - | |
835 | "PKG",48,2 2,1,"PAH", 1,1,34,0) | |
836 | N/A | |
837 | "PKG",48,2 2,1,"PAH", 1,1,35,0) | |
838 | ||
839 | "PKG",48,2 2,1,"PAH", 1,1,36,0) | |
840 | ||
841 | "PKG",48,2 2,1,"PAH", 1,1,37,0) | |
842 | ||
843 | "PKG",48,2 2,1,"PAH", 1,1,38,0) | |
844 | Forms Asso ciated: | |
845 | "PKG",48,2 2,1,"PAH", 1,1,39,0) | |
846 | Ne w/Modified / | |
847 | "PKG",48,2 2,1,"PAH", 1,1,40,0) | |
848 | Form Name F ile Name ( Number) Deleted | |
849 | "PKG",48,2 2,1,"PAH", 1,1,41,0) | |
850 | --------- - ---------- ------- -- ---------- - | |
851 | "PKG",48,2 2,1,"PAH", 1,1,42,0) | |
852 | N/A | |
853 | "PKG",48,2 2,1,"PAH", 1,1,43,0) | |
854 | ||
855 | "PKG",48,2 2,1,"PAH", 1,1,44,0) | |
856 | ||
857 | "PKG",48,2 2,1,"PAH", 1,1,45,0) | |
858 | ||
859 | "PKG",48,2 2,1,"PAH", 1,1,46,0) | |
860 | Functions Associated : | |
861 | "PKG",48,2 2,1,"PAH", 1,1,47,0) | |
862 | Ne w/Modified / | |
863 | "PKG",48,2 2,1,"PAH", 1,1,48,0) | |
864 | Function N ame Deleted | |
865 | "PKG",48,2 2,1,"PAH", 1,1,49,0) | |
866 | ---------- --- -- ---------- - | |
867 | "PKG",48,2 2,1,"PAH", 1,1,50,0) | |
868 | N/A | |
869 | "PKG",48,2 2,1,"PAH", 1,1,51,0) | |
870 | ||
871 | "PKG",48,2 2,1,"PAH", 1,1,52,0) | |
872 | ||
873 | "PKG",48,2 2,1,"PAH", 1,1,53,0) | |
874 | ||
875 | "PKG",48,2 2,1,"PAH", 1,1,54,0) | |
876 | HL Logical Link: | |
877 | "PKG",48,2 2,1,"PAH", 1,1,55,0) | |
878 | Ne w/Modified / | |
879 | "PKG",48,2 2,1,"PAH", 1,1,56,0) | |
880 | HL Logical Name Deleted | |
881 | "PKG",48,2 2,1,"PAH", 1,1,57,0) | |
882 | ---------- ----- -- ---------- - | |
883 | "PKG",48,2 2,1,"PAH", 1,1,58,0) | |
884 | N/A | |
885 | "PKG",48,2 2,1,"PAH", 1,1,59,0) | |
886 | ||
887 | "PKG",48,2 2,1,"PAH", 1,1,60,0) | |
888 | ||
889 | "PKG",48,2 2,1,"PAH", 1,1,61,0) | |
890 | ||
891 | "PKG",48,2 2,1,"PAH", 1,1,62,0) | |
892 | HL7 Applic ation Para meters: | |
893 | "PKG",48,2 2,1,"PAH", 1,1,63,0) | |
894 | Ne w/Modified / | |
895 | "PKG",48,2 2,1,"PAH", 1,1,64,0) | |
896 | HL7 Parame ter Name Deleted | |
897 | "PKG",48,2 2,1,"PAH", 1,1,65,0) | |
898 | ---------- -------- -- ---------- - | |
899 | "PKG",48,2 2,1,"PAH", 1,1,66,0) | |
900 | N/A | |
901 | "PKG",48,2 2,1,"PAH", 1,1,67,0) | |
902 | ||
903 | "PKG",48,2 2,1,"PAH", 1,1,68,0) | |
904 | ||
905 | "PKG",48,2 2,1,"PAH", 1,1,69,0) | |
906 | ||
907 | "PKG",48,2 2,1,"PAH", 1,1,70,0) | |
908 | HLO Applic ation Regi stry: | |
909 | "PKG",48,2 2,1,"PAH", 1,1,71,0) | |
910 | Ne w/Modified / | |
911 | "PKG",48,2 2,1,"PAH", 1,1,72,0) | |
912 | HLO Regist ry Name Deleted | |
913 | "PKG",48,2 2,1,"PAH", 1,1,73,0) | |
914 | ---------- ------- -- ---------- - | |
915 | "PKG",48,2 2,1,"PAH", 1,1,74,0) | |
916 | N/A | |
917 | "PKG",48,2 2,1,"PAH", 1,1,75,0) | |
918 | ||
919 | "PKG",48,2 2,1,"PAH", 1,1,76,0) | |
920 | ||
921 | "PKG",48,2 2,1,"PAH", 1,1,77,0) | |
922 | ||
923 | "PKG",48,2 2,1,"PAH", 1,1,78,0) | |
924 | Help Frame s Associat ed: | |
925 | "PKG",48,2 2,1,"PAH", 1,1,79,0) | |
926 | Ne w/Modified / | |
927 | "PKG",48,2 2,1,"PAH", 1,1,80,0) | |
928 | Help Frame Name Deleted | |
929 | "PKG",48,2 2,1,"PAH", 1,1,81,0) | |
930 | ---------- ----- -- ---------- - | |
931 | "PKG",48,2 2,1,"PAH", 1,1,82,0) | |
932 | N/A | |
933 | "PKG",48,2 2,1,"PAH", 1,1,83,0) | |
934 | ||
935 | "PKG",48,2 2,1,"PAH", 1,1,84,0) | |
936 | ||
937 | "PKG",48,2 2,1,"PAH", 1,1,85,0) | |
938 | ||
939 | "PKG",48,2 2,1,"PAH", 1,1,86,0) | |
940 | Mail Group s Associat ed: | |
941 | "PKG",48,2 2,1,"PAH", 1,1,87,0) | |
942 | Ne w/Modified / | |
943 | "PKG",48,2 2,1,"PAH", 1,1,88,0) | |
944 | Mail Group Name Deleted | |
945 | "PKG",48,2 2,1,"PAH", 1,1,89,0) | |
946 | ---------- ----- -- ---------- - | |
947 | "PKG",48,2 2,1,"PAH", 1,1,90,0) | |
948 | N/A | |
949 | "PKG",48,2 2,1,"PAH", 1,1,91,0) | |
950 | ||
951 | "PKG",48,2 2,1,"PAH", 1,1,92,0) | |
952 | ||
953 | "PKG",48,2 2,1,"PAH", 1,1,93,0) | |
954 | ||
955 | "PKG",48,2 2,1,"PAH", 1,1,94,0) | |
956 | Options As sociated: | |
957 | "PKG",48,2 2,1,"PAH", 1,1,95,0) | |
958 | ||
959 | "PKG",48,2 2,1,"PAH", 1,1,96,0) | |
960 | New/Modifi ed/ | |
961 | "PKG",48,2 2,1,"PAH", 1,1,97,0) | |
962 | Option Nam e Typ e | |
963 | "PKG",48,2 2,1,"PAH", 1,1,98,0) | |
964 | Deleted | |
965 | "PKG",48,2 2,1,"PAH", 1,1,99,0) | |
966 | ---------- - --- - | |
967 | "PKG",48,2 2,1,"PAH", 1,1,100,0) | |
968 | ---------- --- | |
969 | "PKG",48,2 2,1,"PAH", 1,1,101,0) | |
970 | N/A | |
971 | "PKG",48,2 2,1,"PAH", 1,1,102,0) | |
972 | ||
973 | "PKG",48,2 2,1,"PAH", 1,1,103,0) | |
974 | ||
975 | "PKG",48,2 2,1,"PAH", 1,1,104,0) | |
976 | ||
977 | "PKG",48,2 2,1,"PAH", 1,1,105,0) | |
978 | Parameter Definition s: | |
979 | "PKG",48,2 2,1,"PAH", 1,1,106,0) | |
980 | Ne w/Modified / | |
981 | "PKG",48,2 2,1,"PAH", 1,1,107,0) | |
982 | Parameter Name Deleted | |
983 | "PKG",48,2 2,1,"PAH", 1,1,108,0) | |
984 | ---------- ---- -- ---------- - | |
985 | "PKG",48,2 2,1,"PAH", 1,1,109,0) | |
986 | N/A | |
987 | "PKG",48,2 2,1,"PAH", 1,1,110,0) | |
988 | ||
989 | "PKG",48,2 2,1,"PAH", 1,1,111,0) | |
990 | ||
991 | "PKG",48,2 2,1,"PAH", 1,1,112,0) | |
992 | ||
993 | "PKG",48,2 2,1,"PAH", 1,1,113,0) | |
994 | Parameter Template: | |
995 | "PKG",48,2 2,1,"PAH", 1,1,114,0) | |
996 | Ne w/Modified / | |
997 | "PKG",48,2 2,1,"PAH", 1,1,115,0) | |
998 | Template N ame Deleted | |
999 | "PKG",48,2 2,1,"PAH", 1,1,116,0) | |
1000 | ---------- --- -- ---------- - | |
1001 | "PKG",48,2 2,1,"PAH", 1,1,117,0) | |
1002 | N/A | |
1003 | "PKG",48,2 2,1,"PAH", 1,1,118,0) | |
1004 | ||
1005 | "PKG",48,2 2,1,"PAH", 1,1,119,0) | |
1006 | ||
1007 | "PKG",48,2 2,1,"PAH", 1,1,120,0) | |
1008 | ||
1009 | "PKG",48,2 2,1,"PAH", 1,1,121,0) | |
1010 | Protocols Associated : | |
1011 | "PKG",48,2 2,1,"PAH", 1,1,122,0) | |
1012 | Ne w/Modified / | |
1013 | "PKG",48,2 2,1,"PAH", 1,1,123,0) | |
1014 | Protocol N ame Deleted | |
1015 | "PKG",48,2 2,1,"PAH", 1,1,124,0) | |
1016 | ---------- --- -- ---------- - | |
1017 | "PKG",48,2 2,1,"PAH", 1,1,125,0) | |
1018 | N/A | |
1019 | "PKG",48,2 2,1,"PAH", 1,1,126,0) | |
1020 | ||
1021 | "PKG",48,2 2,1,"PAH", 1,1,127,0) | |
1022 | ||
1023 | "PKG",48,2 2,1,"PAH", 1,1,128,0) | |
1024 | ||
1025 | "PKG",48,2 2,1,"PAH", 1,1,129,0) | |
1026 | Remote Pro cedures As sociated: | |
1027 | "PKG",48,2 2,1,"PAH", 1,1,130,0) | |
1028 | Ne w/Modified / | |
1029 | "PKG",48,2 2,1,"PAH", 1,1,131,0) | |
1030 | Remote Pro cedure Nam e Deleted | |
1031 | "PKG",48,2 2,1,"PAH", 1,1,132,0) | |
1032 | ---------- ---------- - -- ---------- - | |
1033 | "PKG",48,2 2,1,"PAH", 1,1,133,0) | |
1034 | N/A | |
1035 | "PKG",48,2 2,1,"PAH", 1,1,134,0) | |
1036 | ||
1037 | "PKG",48,2 2,1,"PAH", 1,1,135,0) | |
1038 | ||
1039 | "PKG",48,2 2,1,"PAH", 1,1,136,0) | |
1040 | ||
1041 | "PKG",48,2 2,1,"PAH", 1,1,137,0) | |
1042 | Security K eys Associ ated: | |
1043 | "PKG",48,2 2,1,"PAH", 1,1,138,0) | |
1044 | Ne w/Modified / | |
1045 | "PKG",48,2 2,1,"PAH", 1,1,139,0) | |
1046 | Security K ey Name Deleted | |
1047 | "PKG",48,2 2,1,"PAH", 1,1,140,0) | |
1048 | ---------- ------- -- ---------- - | |
1049 | "PKG",48,2 2,1,"PAH", 1,1,141,0) | |
1050 | N/A | |
1051 | "PKG",48,2 2,1,"PAH", 1,1,142,0) | |
1052 | ||
1053 | "PKG",48,2 2,1,"PAH", 1,1,143,0) | |
1054 | ||
1055 | "PKG",48,2 2,1,"PAH", 1,1,144,0) | |
1056 | ||
1057 | "PKG",48,2 2,1,"PAH", 1,1,145,0) | |
1058 | Templates, Input Ass ociated: | |
1059 | "PKG",48,2 2,1,"PAH", 1,1,146,0) | |
1060 | Ne w/Modified / | |
1061 | "PKG",48,2 2,1,"PAH", 1,1,147,0) | |
1062 | Template N ame T ype F ile Name ( Number) Deleted | |
1063 | "PKG",48,2 2,1,"PAH", 1,1,148,0) | |
1064 | ---------- --- - --- - ---------- ------- -- ---------- - | |
1065 | "PKG",48,2 2,1,"PAH", 1,1,149,0) | |
1066 | N/A | |
1067 | "PKG",48,2 2,1,"PAH", 1,1,150,0) | |
1068 | ||
1069 | "PKG",48,2 2,1,"PAH", 1,1,151,0) | |
1070 | ||
1071 | "PKG",48,2 2,1,"PAH", 1,1,152,0) | |
1072 | ||
1073 | "PKG",48,2 2,1,"PAH", 1,1,153,0) | |
1074 | Templates, List Asso ciated: | |
1075 | "PKG",48,2 2,1,"PAH", 1,1,154,0) | |
1076 | Ne w/Modified / | |
1077 | "PKG",48,2 2,1,"PAH", 1,1,155,0) | |
1078 | Template N ame T ype Deleted | |
1079 | "PKG",48,2 2,1,"PAH", 1,1,156,0) | |
1080 | ---------- --- - --- -- ---------- - | |
1081 | "PKG",48,2 2,1,"PAH", 1,1,157,0) | |
1082 | N/A | |
1083 | "PKG",48,2 2,1,"PAH", 1,1,158,0) | |
1084 | ||
1085 | "PKG",48,2 2,1,"PAH", 1,1,159,0) | |
1086 | ||
1087 | "PKG",48,2 2,1,"PAH", 1,1,160,0) | |
1088 | ||
1089 | "PKG",48,2 2,1,"PAH", 1,1,161,0) | |
1090 | Templates, Print Ass ociated: | |
1091 | "PKG",48,2 2,1,"PAH", 1,1,162,0) | |
1092 | New/Modifi ed/ | |
1093 | "PKG",48,2 2,1,"PAH", 1,1,163,0) | |
1094 | Template N ame Type Fi le Name (N umber) Deleted | |
1095 | "PKG",48,2 2,1,"PAH", 1,1,164,0) | |
1096 | ---------- --- ---- -- ---------- ------ ---------- --- | |
1097 | "PKG",48,2 2,1,"PAH", 1,1,165,0) | |
1098 | N/A | |
1099 | "PKG",48,2 2,1,"PAH", 1,1,166,0) | |
1100 | ||
1101 | "PKG",48,2 2,1,"PAH", 1,1,167,0) | |
1102 | ||
1103 | "PKG",48,2 2,1,"PAH", 1,1,168,0) | |
1104 | ||
1105 | "PKG",48,2 2,1,"PAH", 1,1,169,0) | |
1106 | Templates, Sort Asso ciated: | |
1107 | "PKG",48,2 2,1,"PAH", 1,1,170,0) | |
1108 | ||
1109 | "PKG",48,2 2,1,"PAH", 1,1,171,0) | |
1110 | New/Modifi ed/ | |
1111 | "PKG",48,2 2,1,"PAH", 1,1,172,0) | |
1112 | Template N ame Type File Name (Number) | |
1113 | "PKG",48,2 2,1,"PAH", 1,1,173,0) | |
1114 | Deleted | |
1115 | "PKG",48,2 2,1,"PAH", 1,1,174,0) | |
1116 | ---------- --- ---- --------- --------- | |
1117 | "PKG",48,2 2,1,"PAH", 1,1,175,0) | |
1118 | ---------- --- | |
1119 | "PKG",48,2 2,1,"PAH", 1,1,176,0) | |
1120 | N/A | |
1121 | "PKG",48,2 2,1,"PAH", 1,1,177,0) | |
1122 | ||
1123 | "PKG",48,2 2,1,"PAH", 1,1,178,0) | |
1124 | ||
1125 | "PKG",48,2 2,1,"PAH", 1,1,179,0) | |
1126 | Additional Informati on: | |
1127 | "PKG",48,2 2,1,"PAH", 1,1,180,0) | |
1128 | N/A | |
1129 | "PKG",48,2 2,1,"PAH", 1,1,181,0) | |
1130 | ||
1131 | "PKG",48,2 2,1,"PAH", 1,1,182,0) | |
1132 | ||
1133 | "PKG",48,2 2,1,"PAH", 1,1,183,0) | |
1134 | New Servic e Requests (NSRs) | |
1135 | "PKG",48,2 2,1,"PAH", 1,1,184,0) | |
1136 | ---------- ---------- -------- | |
1137 | "PKG",48,2 2,1,"PAH", 1,1,185,0) | |
1138 | N/A | |
1139 | "PKG",48,2 2,1,"PAH", 1,1,186,0) | |
1140 | ||
1141 | "PKG",48,2 2,1,"PAH", 1,1,187,0) | |
1142 | ||
1143 | "PKG",48,2 2,1,"PAH", 1,1,188,0) | |
1144 | Patient Sa fety Issue s (PSIs) | |
1145 | "PKG",48,2 2,1,"PAH", 1,1,189,0) | |
1146 | ---------- ---------- --------- | |
1147 | "PKG",48,2 2,1,"PAH", 1,1,190,0) | |
1148 | N/A | |
1149 | "PKG",48,2 2,1,"PAH", 1,1,191,0) | |
1150 | ||
1151 | "PKG",48,2 2,1,"PAH", 1,1,192,0) | |
1152 | ||
1153 | "PKG",48,2 2,1,"PAH", 1,1,193,0) | |
1154 | ServiceNow Ticket(s) & Overvie w | |
1155 | "PKG",48,2 2,1,"PAH", 1,1,194,0) | |
1156 | ---------- ---------- ---------- ---------- ------- | |
1157 | "PKG",48,2 2,1,"PAH", 1,1,195,0) | |
1158 | I17005764F Y18 Pyxis and EDIS are not re cognizing clinic che ck in acti ons | |
1159 | "PKG",48,2 2,1,"PAH", 1,1,196,0) | |
1160 | ||
1161 | "PKG",48,2 2,1,"PAH", 1,1,197,0) | |
1162 | Problem: | |
1163 | "PKG",48,2 2,1,"PAH", 1,1,198,0) | |
1164 | ------- | |
1165 | "PKG",48,2 2,1,"PAH", 1,1,199,0) | |
1166 | When a use r performs appointme nt actions in VS GUI , downstre am systems | |
1167 | "PKG",48,2 2,1,"PAH", 1,1,200,0) | |
1168 | such | |
1169 | "PKG",48,2 2,1,"PAH", 1,1,201,0) | |
1170 | as Pyxis ( or other u nit dosing devices, such as Om nicell) an d EDIS are not | |
1171 | "PKG",48,2 2,1,"PAH", 1,1,202,0) | |
1172 | updated, w hereas the y are when the appoi ntment act ions are t aken in le gacy | |
1173 | "PKG",48,2 2,1,"PAH", 1,1,203,0) | |
1174 | VistA. | |
1175 | "PKG",48,2 2,1,"PAH", 1,1,204,0) | |
1176 | ||
1177 | "PKG",48,2 2,1,"PAH", 1,1,205,0) | |
1178 | Resolution : | |
1179 | "PKG",48,2 2,1,"PAH", 1,1,206,0) | |
1180 | ---------- | |
1181 | "PKG",48,2 2,1,"PAH", 1,1,207,0) | |
1182 | The GUI no w invokes the SDAM A PPOINTMENT EVENTS pr otocol jus t like leg acy | |
1183 | "PKG",48,2 2,1,"PAH", 1,1,208,0) | |
1184 | VistA, mea ning that the downst ream syste ms will be notified in the sam e | |
1185 | "PKG",48,2 2,1,"PAH", 1,1,209,0) | |
1186 | way whethe r actions are taken on them in GUI or le gacy. | |
1187 | "PKG",48,2 2,1,"PAH", 1,1,210,0) | |
1188 | ||
1189 | "PKG",48,2 2,1,"PAH", 1,1,211,0) | |
1190 | Test Sites : | |
1191 | "PKG",48,2 2,1,"PAH", 1,1,212,0) | |
1192 | ---------- | |
1193 | "PKG",48,2 2,1,"PAH", 1,1,213,0) | |
1194 | TBA | |
1195 | "PKG",48,2 2,1,"PAH", 1,1,214,0) | |
1196 | ||
1197 | "PKG",48,2 2,1,"PAH", 1,1,215,0) | |
1198 | Software a nd Documen tation Ret rieval Ins tructions: | |
1199 | "PKG",48,2 2,1,"PAH", 1,1,216,0) | |
1200 | ---------- ---------- ---------- ---------- ---------- -- | |
1201 | "PKG",48,2 2,1,"PAH", 1,1,217,0) | |
1202 | ||
1203 | "PKG",48,2 2,1,"PAH", 1,1,218,0) | |
1204 | Software b eing relea sed as a h ost file a nd/or docu mentation describing | |
1205 | "PKG",48,2 2,1,"PAH", 1,1,219,0) | |
1206 | the new fu nctionalit y introduc ed by this patch are available . | |
1207 | "PKG",48,2 2,1,"PAH", 1,1,220,0) | |
1208 | ||
1209 | "PKG",48,2 2,1,"PAH", 1,1,221,0) | |
1210 | The prefer red method is to ret rieve file s from dow nload. DNS . URL | |
1211 | "PKG",48,2 2,1,"PAH", 1,1,222,0) | |
1212 | This trans mits the f iles from the first available server. Si tes may | |
1213 | "PKG",48,2 2,1,"PAH", 1,1,223,0) | |
1214 | also elect to retrie ve files d irectly fr om a speci fic server . | |
1215 | "PKG",48,2 2,1,"PAH", 1,1,224,0) | |
1216 | ||
1217 | "PKG",48,2 2,1,"PAH", 1,1,225,0) | |
1218 | Sites may retrieve t he softwar e and/or d ocumentati on directl y using | |
1219 | "PKG",48,2 2,1,"PAH", 1,1,226,0) | |
1220 | Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE | |
1221 | "PKG",48,2 2,1,"PAH", 1,1,227,0) | |
1222 | directory at the fol lowing OI Field Offi ces: | |
1223 | "PKG",48,2 2,1,"PAH", 1,1,228,0) | |
1224 | ||
1225 | "PKG",48,2 2,1,"PAH", 1,1,229,0) | |
1226 | Hines: DNS .U RL | |
1227 | "PKG",48,2 2,1,"PAH", 1,1,230,0) | |
1228 | Salt Lake City: DNS . URL | |
1229 | "PKG",48,2 2,1,"PAH", 1,1,231,0) | |
1230 | ||
1231 | "PKG",48,2 2,1,"PAH", 1,1,232,0) | |
1232 | ||
1233 | "PKG",48,2 2,1,"PAH", 1,1,233,0) | |
1234 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | |
1235 | "PKG",48,2 2,1,"PAH", 1,1,234,0) | |
1236 | at: | |
1237 | "PKG",48,2 2,1,"PAH", 1,1,235,0) | |
1238 | http:// URL / | |
1239 | "PKG",48,2 2,1,"PAH", 1,1,236,0) | |
1240 | ||
1241 | "PKG",48,2 2,1,"PAH", 1,1,237,0) | |
1242 | Title Fil e Name FTP Mode | |
1243 | "PKG",48,2 2,1,"PAH", 1,1,238,0) | |
1244 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---- | |
1245 | "PKG",48,2 2,1,"PAH", 1,1,239,0) | |
1246 | VistA Sche duling Enh ancements GUI User G uide SCH EDULING_UG .PDF Bina ry | |
1247 | "PKG",48,2 2,1,"PAH", 1,1,240,0) | |
1248 | VistA Sche duling Enh ancements Technical Manual SCH EDULING_TM .PDF Bina ry | |
1249 | "PKG",48,2 2,1,"PAH", 1,1,241,0) | |
1250 | ||
1251 | "PKG",48,2 2,1,"PAH", 1,1,242,0) | |
1252 | ||
1253 | "PKG",48,2 2,1,"PAH", 1,1,243,0) | |
1254 | Patch Inst allation: | |
1255 | "PKG",48,2 2,1,"PAH", 1,1,244,0) | |
1256 | ||
1257 | "PKG",48,2 2,1,"PAH", 1,1,245,0) | |
1258 | ||
1259 | "PKG",48,2 2,1,"PAH", 1,1,246,0) | |
1260 | Pre/Post I nstallatio n Overview | |
1261 | "PKG",48,2 2,1,"PAH", 1,1,247,0) | |
1262 | ---------- ---------- ---------- | |
1263 | "PKG",48,2 2,1,"PAH", 1,1,248,0) | |
1264 | There are no pre- or post-inst allation t asks for t his patch. | |
1265 | "PKG",48,2 2,1,"PAH", 1,1,249,0) | |
1266 | ||
1267 | "PKG",48,2 2,1,"PAH", 1,1,250,0) | |
1268 | Installati on Instruc tions | |
1269 | "PKG",48,2 2,1,"PAH", 1,1,251,0) | |
1270 | ---------- ---------- ----- | |
1271 | "PKG",48,2 2,1,"PAH", 1,1,252,0) | |
1272 | Install Ti me - less than 5 min utes. | |
1273 | "PKG",48,2 2,1,"PAH", 1,1,253,0) | |
1274 | ||
1275 | "PKG",48,2 2,1,"PAH", 1,1,254,0) | |
1276 | 1. Use the INSTAL L/CHECK ME SSAGE opti on on the PackMan me nu. | |
1277 | "PKG",48,2 2,1,"PAH", 1,1,255,0) | |
1278 | ||
1279 | "PKG",48,2 2,1,"PAH", 1,1,256,0) | |
1280 | 2. From the Kerne l Installa tion & Dis tribution System men u, select | |
1281 | "PKG",48,2 2,1,"PAH", 1,1,257,0) | |
1282 | the Installati on menu. | |
1283 | "PKG",48,2 2,1,"PAH", 1,1,258,0) | |
1284 | ||
1285 | "PKG",48,2 2,1,"PAH", 1,1,259,0) | |
1286 | 3. From this menu , you may select to use the fo llowing op tions | |
1287 | "PKG",48,2 2,1,"PAH", 1,1,260,0) | |
1288 | (whe n prompted for INSTA LL NAME, e nter SD*5. 3*717): | |
1289 | "PKG",48,2 2,1,"PAH", 1,1,261,0) | |
1290 | a. Verify Checksums in Transp ort Global - This op tion will | |
1291 | "PKG",48,2 2,1,"PAH", 1,1,262,0) | |
1292 | allow | |
1293 | "PKG",48,2 2,1,"PAH", 1,1,263,0) | |
1294 | you to ensure th e integrit y of the r outines th at are in the | |
1295 | "PKG",48,2 2,1,"PAH", 1,1,264,0) | |
1296 | transp ort global . | |
1297 | "PKG",48,2 2,1,"PAH", 1,1,265,0) | |
1298 | b. Print Transport Global - T his option will allo w you to v iew | |
1299 | "PKG",48,2 2,1,"PAH", 1,1,266,0) | |
1300 | the co mponents o f the KIDS build. | |
1301 | "PKG",48,2 2,1,"PAH", 1,1,267,0) | |
1302 | c. Compar e Transpor t Global t o Current System - T his option | |
1303 | "PKG",48,2 2,1,"PAH", 1,1,268,0) | |
1304 | will | |
1305 | "PKG",48,2 2,1,"PAH", 1,1,269,0) | |
1306 | allow you to vie w all chan ges that w ill be mad e when thi s | |
1307 | "PKG",48,2 2,1,"PAH", 1,1,270,0) | |
1308 | patch is install ed. It co mpares all component s of this | |
1309 | "PKG",48,2 2,1,"PAH", 1,1,271,0) | |
1310 | patch (routines, DD's, tem plates, et c.). | |
1311 | "PKG",48,2 2,1,"PAH", 1,1,272,0) | |
1312 | d. Backup a Transpo rt Global - This opt ion will c reate a ba ckup | |
1313 | "PKG",48,2 2,1,"PAH", 1,1,273,0) | |
1314 | messag e of any r outines ex ported wit h this pat ch. It wil l | |
1315 | "PKG",48,2 2,1,"PAH", 1,1,274,0) | |
1316 | not | |
1317 | "PKG",48,2 2,1,"PAH", 1,1,275,0) | |
1318 | backup any other changes s uch as DD' s or templ ates. | |
1319 | "PKG",48,2 2,1,"PAH", 1,1,276,0) | |
1320 | ||
1321 | "PKG",48,2 2,1,"PAH", 1,1,277,0) | |
1322 | 4. Use the Instal l Package( s) option and select the packa ge SD*5.3* 717. | |
1323 | "PKG",48,2 2,1,"PAH", 1,1,278,0) | |
1324 | ||
1325 | "PKG",48,2 2,1,"PAH", 1,1,279,0) | |
1326 | 5. When prompted "Want KIDS to INHIBI T LOGONs d uring the install? N O//" | |
1327 | "PKG",48,2 2,1,"PAH", 1,1,280,0) | |
1328 | resp ond NO. | |
1329 | "PKG",48,2 2,1,"PAH", 1,1,281,0) | |
1330 | 6. When prompted "Want to D ISABLE Sch eduled Opt ions, Menu Options, and | |
1331 | "PKG",48,2 2,1,"PAH", 1,1,282,0) | |
1332 | Prot ocols? NO/ /", respon d NO | |
1333 | "PKG",48,2 2,1,"PAH", 1,1,283,0) | |
1334 | ||
1335 | "PKG",48,2 2,1,"PAH", 1,1,284,0) | |
1336 | Back-Out/R oll Back P lan: | |
1337 | "PKG",48,2 2,1,"PAH", 1,1,285,0) | |
1338 | ---------- ---------- ---- | |
1339 | "PKG",48,2 2,1,"PAH", 1,1,286,0) | |
1340 | In the eve nt of a ca tastrophic failure, the Facili ty Chief I nformation | |
1341 | "PKG",48,2 2,1,"PAH", 1,1,287,0) | |
1342 | Officer ma y make the decision to back-ou t the patc h. | |
1343 | "PKG",48,2 2,1,"PAH", 1,1,288,0) | |
1344 | ||
1345 | "PKG",48,2 2,1,"PAH", 1,1,289,0) | |
1346 | It is impe rative tha t you have performed a backup of the rou tines and | |
1347 | "PKG",48,2 2,1,"PAH", 1,1,290,0) | |
1348 | the routin es include d matches the pre-pa tch checks um from th e patch | |
1349 | "PKG",48,2 2,1,"PAH", 1,1,291,0) | |
1350 | descriptio n. | |
1351 | "PKG",48,2 2,1,"PAH", 1,1,292,0) | |
1352 | ||
1353 | "PKG",48,2 2,1,"PAH", 1,1,293,0) | |
1354 | This patch only cont ains routi ne updates . To back- out the pa tch please | |
1355 | "PKG",48,2 2,1,"PAH", 1,1,294,0) | |
1356 | restore th e backup m essage fro m the patc h installa tion proce ss. | |
1357 | "QUES","XP F1",0) | |
1358 | Y | |
1359 | "QUES","XP F1","??") | |
1360 | ^D REP^XPD H | |
1361 | "QUES","XP F1","A") | |
1362 | Shall I wr ite over y our |FLAG| File | |
1363 | "QUES","XP F1","B") | |
1364 | YES | |
1365 | "QUES","XP F1","M") | |
1366 | D XPF1^XPD IQ | |
1367 | "QUES","XP F2",0) | |
1368 | Y | |
1369 | "QUES","XP F2","??") | |
1370 | ^D DTA^XPD H | |
1371 | "QUES","XP F2","A") | |
1372 | Want my da ta |FLAG| yours | |
1373 | "QUES","XP F2","B") | |
1374 | YES | |
1375 | "QUES","XP F2","M") | |
1376 | D XPF2^XPD IQ | |
1377 | "QUES","XP I1",0) | |
1378 | YO | |
1379 | "QUES","XP I1","??") | |
1380 | ^D INHIBIT ^XPDH | |
1381 | "QUES","XP I1","A") | |
1382 | Want KIDS to INHIBIT LOGONs du ring the i nstall | |
1383 | "QUES","XP I1","B") | |
1384 | NO | |
1385 | "QUES","XP I1","M") | |
1386 | D XPI1^XPD IQ | |
1387 | "QUES","XP M1",0) | |
1388 | PO^VA(200, :EM | |
1389 | "QUES","XP M1","??") | |
1390 | ^D MG^XPDH | |
1391 | "QUES","XP M1","A") | |
1392 | Enter the Coordinato r for Mail Group '|F LAG|' | |
1393 | "QUES","XP M1","B") | |
1394 | ||
1395 | "QUES","XP M1","M") | |
1396 | D XPM1^XPD IQ | |
1397 | "QUES","XP O1",0) | |
1398 | Y | |
1399 | "QUES","XP O1","??") | |
1400 | ^D MENU^XP DH | |
1401 | "QUES","XP O1","A") | |
1402 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install | |
1403 | "QUES","XP O1","B") | |
1404 | NO | |
1405 | "QUES","XP O1","M") | |
1406 | D XPO1^XPD IQ | |
1407 | "QUES","XP Z1",0) | |
1408 | Y | |
1409 | "QUES","XP Z1","??") | |
1410 | ^D OPT^XPD H | |
1411 | "QUES","XP Z1","A") | |
1412 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls | |
1413 | "QUES","XP Z1","B") | |
1414 | NO | |
1415 | "QUES","XP Z1","M") | |
1416 | D XPZ1^XPD IQ | |
1417 | "QUES","XP Z2",0) | |
1418 | Y | |
1419 | "QUES","XP Z2","??") | |
1420 | ^D RTN^XPD H | |
1421 | "QUES","XP Z2","A") | |
1422 | Want to MO VE routine s to other CPUs | |
1423 | "QUES","XP Z2","B") | |
1424 | NO | |
1425 | "QUES","XP Z2","M") | |
1426 | D XPZ2^XPD IQ | |
1427 | "RTN") | |
1428 | 7 | |
1429 | "RTN","SDA MEVT") | |
1430 | 0^1^B32857 672^B27512 966 | |
1431 | "RTN","SDA MEVT",1,0) | |
1432 | SDAMEVT ;A LB/MJK - A ppt Event Driver Uti lities ; 1 2/1/91 [ 0 9/19/96 1 :39 PM ] | |
1433 | "RTN","SDA MEVT",2,0) | |
1434 | ;;5.3;Sch eduling;** 15,132,443 ,717**;Aug 13, 1993; Build 7 | |
1435 | "RTN","SDA MEVT",3,0) | |
1436 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | |
1437 | "RTN","SDA MEVT",4,0) | |
1438 | ; | |
1439 | "RTN","SDA MEVT",5,0) | |
1440 | BEFORE(SDA TA,DFN,SDT ,SDCL,SDDA ,SDHDL) ; -- get bef ore values | |
1441 | "RTN","SDA MEVT",6,0) | |
1442 | K ^TMP("S DAMEVT",$J ) | |
1443 | "RTN","SDA MEVT",7,0) | |
1444 | D CAPTURE ("BEFORE", .SDATA,.DF N,.SDT,.SD CL,.SDDA,. SDHDL) | |
1445 | "RTN","SDA MEVT",8,0) | |
1446 | Q | |
1447 | "RTN","SDA MEVT",9,0) | |
1448 | ; | |
1449 | "RTN","SDA MEVT",10,0 ) | |
1450 | AFTER(SDAT A,DFN,SDT, SDCL,SDDA, SDHDL) ; - - get afte r values | |
1451 | "RTN","SDA MEVT",11,0 ) | |
1452 | D CAPTURE ("AFTER",. SDATA,.DFN ,.SDT,.SDC L,.SDDA,.S DHDL) | |
1453 | "RTN","SDA MEVT",12,0 ) | |
1454 | Q | |
1455 | "RTN","SDA MEVT",13,0 ) | |
1456 | ; | |
1457 | "RTN","SDA MEVT",14,0 ) | |
1458 | HANDLE(SDO RG) ; -- g et evt han dle | |
1459 | "RTN","SDA MEVT",15,0 ) | |
1460 | ; SDORG = originat ing proces s (1=appt , 2=a/e , 3=disp) | |
1461 | "RTN","SDA MEVT",16,0 ) | |
1462 | S (Y,^($J ))=$G(^TMP ("SDEVT HA NDLE",$J)) +1 | |
1463 | "RTN","SDA MEVT",17,0 ) | |
1464 | Q Y | |
1465 | "RTN","SDA MEVT",18,0 ) | |
1466 | ; | |
1467 | "RTN","SDA MEVT",19,0 ) | |
1468 | CLEAN(SDHD L) ; | |
1469 | "RTN","SDA MEVT",20,0 ) | |
1470 | K ^TMP("S DEVT",$J,S DHDL) | |
1471 | "RTN","SDA MEVT",21,0 ) | |
1472 | Q | |
1473 | "RTN","SDA MEVT",22,0 ) | |
1474 | ; | |
1475 | "RTN","SDA MEVT",23,0 ) | |
1476 | HDLKILL ; -- kill of f handle d ata | |
1477 | "RTN","SDA MEVT",24,0 ) | |
1478 | K SDHDL,^ TMP("SDEVT HANDLE",$ J),^TMP("S DEVT",$J) | |
1479 | "RTN","SDA MEVT",25,0 ) | |
1480 | Q | |
1481 | "RTN","SDA MEVT",26,0 ) | |
1482 | ; | |
1483 | "RTN","SDA MEVT",27,0 ) | |
1484 | CAPTURE(SD CAP,SDATA, DFN,SDT,SD CL,SDDA,SD HDL) ; | |
1485 | "RTN","SDA MEVT",28,0 ) | |
1486 | N Z | |
1487 | "RTN","SDA MEVT",29,0 ) | |
1488 | S (Z,^TMP ("SDAMEVT" ,$J,SDCAP, "DPT"),^TM P("SDEVT", $J,SDHDL,1 ,"DPT",0,S DCAP))=$G( ^DPT(DFN," S",SDT,0)) | |
1489 | "RTN","SDA MEVT",30,0 ) | |
1490 | S (^TMP(" SDAMEVT",$ J,SDCAP,"S C"),^TMP(" SDEVT",$J, SDHDL,1,"S C",0,SDCAP ))=$G(^SC( SDCL,"S",S DT,1,+SDDA ,0)) | |
1491 | "RTN","SDA MEVT",31,0 ) | |
1492 | S (^TMP(" SDAMEVT",$ J,SDCAP,"S TATUS"),SD ATA(SDCAP, "STATUS")) =$TR($$STA TUS^SDAM1( DFN,SDT,SD CL,Z,SDDA) ,";","^") | |
1493 | "RTN","SDA MEVT",32,0 ) | |
1494 | D:$P(Z,U, 20) OE(.SD CAP,1,$P(Z ,U,20),.SD HDL) | |
1495 | "RTN","SDA MEVT",33,0 ) | |
1496 | Q | |
1497 | "RTN","SDA MEVT",34,0 ) | |
1498 | ; | |
1499 | "RTN","SDA MEVT",35,0 ) | |
1500 | ; | |
1501 | "RTN","SDA MEVT",36,0 ) | |
1502 | EVT(SDATA, SDAMEVT,SD MODE,SDHDL ) ; -- cal ls the sda m event pr otocol | |
1503 | "RTN","SDA MEVT",37,0 ) | |
1504 | N OROLD | |
1505 | "RTN","SDA MEVT",38,0 ) | |
1506 | K DTOUT,D IROUT | |
1507 | "RTN","SDA MEVT",39,0 ) | |
1508 | I $G(SDAT A("BEFORE" ,"STATUS") )=$G(SDATA ("AFTER"," STATUS")), '$$COMP^SD AMEVT4(SDH DL,SDAMEVT ) G EVTQ ; SD*5.3*4 43 | |
1509 | "RTN","SDA MEVT",40,0 ) | |
1510 | S:$P(SDAT A,U,3) $P( SDATA,U,5) =$$REQ^SDM 1A(+$P(SDA TA,U,3)) | |
1511 | "RTN","SDA MEVT",41,0 ) | |
1512 | I SDMODE= 2 N DGQUIE T S DGQUIE T=1 ;*zeb 10/4/18 7 17 set DGQ UIET to su ppress use r interact ion when c alled from GUI | |
1513 | "RTN","SDA MEVT",42,0 ) | |
1514 | S X=+$O(^ ORD(101,"B ","SDAM AP POINTMENT EVENTS",0) )_";ORD(10 1," | |
1515 | "RTN","SDA MEVT",43,0 ) | |
1516 | D EN^XQOR | |
1517 | "RTN","SDA MEVT",44,0 ) | |
1518 | EVTQ K XQO RPOP,X,^TM P("SDAMEVT ",$J) D CL EAN(SDHDL) Q | |
1519 | "RTN","SDA MEVT",45,0 ) | |
1520 | ; | |
1521 | "RTN","SDA MEVT",46,0 ) | |
1522 | ; | |
1523 | "RTN","SDA MEVT",47,0 ) | |
1524 | MAKE(DFN,S DT,SDCL,SD DA,SDMODE) ; -- make appt even t #1 | |
1525 | "RTN","SDA MEVT",48,0 ) | |
1526 | N SDATA,% ,SDMKHDL,S DHDL K ^TM P("SDAMEVT ",$J) | |
1527 | "RTN","SDA MEVT",49,0 ) | |
1528 | S SDMKHDL =$$HANDLE( 1) | |
1529 | "RTN","SDA MEVT",50,0 ) | |
1530 | S (^TMP(" SDAMEVT",$ J,"BEFORE" ,"DPT"),^T MP("SDAMEV T",$J,"BEF ORE","SC") ,SDATA("BE FORE","STA TUS"),^TMP ("SDAMEVT" ,$J,"BEFOR E","STATUS "),^TMP("S DEVT",$J,S DMKHDL,1," DPT",0,"BE FORE"),^TM P("SDEVT", $J,SDMKHDL ,1,"SC",0, "BEFORE")) ="" | |
1531 | "RTN","SDA MEVT",51,0 ) | |
1532 | D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDMKHD L) | |
1533 | "RTN","SDA MEVT",52,0 ) | |
1534 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | |
1535 | "RTN","SDA MEVT",53,0 ) | |
1536 | D EVT(.SD ATA,1,+$G( SDMODE),SD MKHDL) ;* zeb 10/25/ 18 717 fix typo with SDMODE so SDMODE is passed co rrectly | |
1537 | "RTN","SDA MEVT",54,0 ) | |
1538 | Q:SDMODE= 2 ;*zeb 1 0/24/18 71 7 don't ne ed check i n/out code below if calling fr om GUI | |
1539 | "RTN","SDA MEVT",55,0 ) | |
1540 | ; -- if a ppt d/t is less than NOW then check-in | |
1541 | "RTN","SDA MEVT",56,0 ) | |
1542 | D NOW^%DT C | |
1543 | "RTN","SDA MEVT",57,0 ) | |
1544 | I SDT<% W :'$G(SDMOD E) ! D | |
1545 | "RTN","SDA MEVT",58,0 ) | |
1546 | .N SDACT, SDCOQUIT | |
1547 | "RTN","SDA MEVT",59,0 ) | |
1548 | .S SDDA=+ SDATA,DFN= $P(SDATA,U ,2),SDT=$P (SDATA,U,3 ),SDCL=$P( SDATA,U,4) K SDATA | |
1549 | "RTN","SDA MEVT",60,0 ) | |
1550 | .I $$REQ^ SDM1A(SDT) ="CO",'$G( SDCOACT) D | |
1551 | "RTN","SDA MEVT",61,0 ) | |
1552 | ..S SDACT =$S(SDT<DT :"CO",1:$$ ASK^SDAMEX ) I SDACT' ]"" S SDCO QUIT=1 Q | |
1553 | "RTN","SDA MEVT",62,0 ) | |
1554 | ..I SDACT ="CO" D CO ^SDCO1(DFN ,SDT,SDCL, SDDA,0,SDT ) | |
1555 | "RTN","SDA MEVT",63,0 ) | |
1556 | .I '$G(SD COQUIT),$G (SDACT)'=" CO" D ONE^ SDAM2(DFN, SDCL,SDT,S DDA,0,SDT) | |
1557 | "RTN","SDA MEVT",64,0 ) | |
1558 | Q | |
1559 | "RTN","SDA MEVT",65,0 ) | |
1560 | ; | |
1561 | "RTN","SDA MEVT",66,0 ) | |
1562 | ; | |
1563 | "RTN","SDA MEVT",67,0 ) | |
1564 | CANCEL(SDA TA,DFN,SDT ,SDCL,SDDA ,SDMODE,SD HDL) ; -- cancel eve nt #2 | |
1565 | "RTN","SDA MEVT",68,0 ) | |
1566 | D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDHDL) | |
1567 | "RTN","SDA MEVT",69,0 ) | |
1568 | I (SDMODE '=2),("^5^ 7^9^10^"[( "^"_+SDATA ("AFTER"," STATUS")_" ^")),($P($ G(^DPT(DFN ,"S",SDT,0 )),"^",20) ) D EN^SDC ODEL(+$P(^ (0),"^",20 ),0,SDHDL) ,OENUL^SDA MEVT1("AFT ER",SDHDL) ;*zeb 10 /25/18 717 status ha s already changed fo r GUI call s | |
1569 | "RTN","SDA MEVT",70,0 ) | |
1570 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | |
1571 | "RTN","SDA MEVT",71,0 ) | |
1572 | D EVT(.SD ATA,2,$S(S DMODE=2:2, 1:0),SDHDL ) ;*zeb 1 0/25/18 71 7 don't as sume SDMOD E is 0 if it is 2 | |
1573 | "RTN","SDA MEVT",72,0 ) | |
1574 | Q | |
1575 | "RTN","SDA MEVT",73,0 ) | |
1576 | ; | |
1577 | "RTN","SDA MEVT",74,0 ) | |
1578 | ; | |
1579 | "RTN","SDA MEVT",75,0 ) | |
1580 | NOSHOW(SDA TA,DFN,SDT ,SDCL,SDDA ,SDMODE,SD HDL) ; -- no-show ev ent #3 | |
1581 | "RTN","SDA MEVT",76,0 ) | |
1582 | D AFTER(. SDATA,DFN, SDT,SDCL,S DDA,SDHDL) | |
1583 | "RTN","SDA MEVT",77,0 ) | |
1584 | I "^4^6^" [("^"_+SDA TA("AFTER" ,"STATUS") _"^"),$P($ G(^DPT(DFN ,"S",SDT,0 )),"^",20) D EN^SDCO DEL(+$P(^( 0),"^",20) ,0,SDHDL), OENUL^SDAM EVT1("AFTE R",SDHDL) | |
1585 | "RTN","SDA MEVT",78,0 ) | |
1586 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | |
1587 | "RTN","SDA MEVT",79,0 ) | |
1588 | D EVT(.SD ATA,3,0,SD HDL) | |
1589 | "RTN","SDA MEVT",80,0 ) | |
1590 | Q | |
1591 | "RTN","SDA MEVT",81,0 ) | |
1592 | ; | |
1593 | "RTN","SDA MEVT",82,0 ) | |
1594 | OE(SDCAP,S DORG,SDOE, SDHDL) ; - - set up e ncounter d ata | |
1595 | "RTN","SDA MEVT",83,0 ) | |
1596 | N I,OP,FI LE,X,SDKID | |
1597 | "RTN","SDA MEVT",84,0 ) | |
1598 | ; | |
1599 | "RTN","SDA MEVT",85,0 ) | |
1600 | ; -- set up 'OP'pos ite variab le | |
1601 | "RTN","SDA MEVT",86,0 ) | |
1602 | S OP=$S(S DCAP="BEFO RE":"AFTER ",1:"BEFOR E") | |
1603 | "RTN","SDA MEVT",87,0 ) | |
1604 | ; | |
1605 | "RTN","SDA MEVT",88,0 ) | |
1606 | ; -- set zero of oe | |
1607 | "RTN","SDA MEVT",89,0 ) | |
1608 | S X=$G(^S CE(SDOE,0) ) | |
1609 | "RTN","SDA MEVT",90,0 ) | |
1610 | S ^TMP("S DEVT",$J,S DHDL,SDORG ,"SDOE",SD OE,0,SDCAP )=X | |
1611 | "RTN","SDA MEVT",91,0 ) | |
1612 | S:'$D(^TM P("SDEVT", $J,SDHDL,S DORG,"SDOE ",SDOE,0,O P)) ^(OP)= "" | |
1613 | "RTN","SDA MEVT",92,0 ) | |
1614 | ; | |
1615 | "RTN","SDA MEVT",93,0 ) | |
1616 | ; -- save other dat a | |
1617 | "RTN","SDA MEVT",94,0 ) | |
1618 | S FILE=40 9.42 | |
1619 | "RTN","SDA MEVT",95,0 ) | |
1620 | S I=0 F S I=$O(^SD D(FILE,"OE ",SDOE,I)) Q:'I D | |
1621 | "RTN","SDA MEVT",96,0 ) | |
1622 | . S X=$G( ^SDD(FILE, I,0)) | |
1623 | "RTN","SDA MEVT",97,0 ) | |
1624 | . S ^TMP( "SDEVT",$J ,SDHDL,SDO RG,"SDOE", SDOE,"CL", I,0,SDCAP) =X | |
1625 | "RTN","SDA MEVT",98,0 ) | |
1626 | . S:'$D(^ TMP("SDEVT ",$J,SDHDL ,SDORG,"SD OE",SDOE," CL",I,0,OP )) ^(OP)=" " | |
1627 | "RTN","SDA MEVT",99,0 ) | |
1628 | ; | |
1629 | "RTN","SDA MEVT",100, 0) | |
1630 | IF SDORG' =1,SDORG'= 3 G OEQ | |
1631 | "RTN","SDA MEVT",101, 0) | |
1632 | ; | |
1633 | "RTN","SDA MEVT",102, 0) | |
1634 | ; -- gets children oe's | |
1635 | "RTN","SDA MEVT",103, 0) | |
1636 | S SDKID=0 | |
1637 | "RTN","SDA MEVT",104, 0) | |
1638 | F S SDKI D=$O(^SCE( "APAR",SDO E,SDKID)) Q:'SDKID D | |
1639 | "RTN","SDA MEVT",105, 0) | |
1640 | . S X=$G( ^SCE(SDKID ,0)) | |
1641 | "RTN","SDA MEVT",106, 0) | |
1642 | . IF $P(X ,U,8)'=4 Q ; -- mus t be a cre dit stop e ncounter | |
1643 | "RTN","SDA MEVT",107, 0) | |
1644 | . S ^TMP( "SDEVT",$J ,SDHDL,4," SDOE",SDKI D,0,SDCAP) =X | |
1645 | "RTN","SDA MEVT",108, 0) | |
1646 | . S:'$D(^ TMP("SDEVT ",$J,SDHDL ,4,"SDOE", SDKID,0,OP )) ^(OP)=" " | |
1647 | "RTN","SDA MEVT",109, 0) | |
1648 | OEQ Q | |
1649 | "RTN","SDA MEVT",110, 0) | |
1650 | ; | |
1651 | "RTN","SDA MEVT",111, 0) | |
1652 | OECHG(SDOR G,SDHDL) ; -- compar e befores and afters | |
1653 | "RTN","SDA MEVT",112, 0) | |
1654 | N Y,I,SDO E S (Y,SDO E)=0 | |
1655 | "RTN","SDA MEVT",113, 0) | |
1656 | F S SDOE =$O(^TMP(" SDEVT",$J, SDHDL,SDOR G,"SDOE",S DOE)) Q:'S DOE D Q: Y | |
1657 | "RTN","SDA MEVT",114, 0) | |
1658 | . S I=0 | |
1659 | "RTN","SDA MEVT",115, 0) | |
1660 | . F S I= $O(^TMP("S DEVT",$J,S DHDL,SDORG ,"SDOE",SD OE,"CL",I) ) Q:'I I $G(^(I,0," BEFORE"))= '$G(^("AFT ER")) S Y= 1 Q | |
1661 | "RTN","SDA MEVT",116, 0) | |
1662 | Q Y | |
1663 | "RTN","SDA MEVT",117, 0) | |
1664 | ; | |
1665 | "RTN","SDA MEVT",118, 0) | |
1666 | OEVT(SDOE, SDCAP,SDHD L,SDATA,SD OE0) ; -- event driv er calls b y oe | |
1667 | "RTN","SDA MEVT",119, 0) | |
1668 | ; SDATA o nly requir ed for app ts | |
1669 | "RTN","SDA MEVT",120, 0) | |
1670 | ; SDOE0 o nly requir ed for che ck out del etion AFTE R | |
1671 | "RTN","SDA MEVT",121, 0) | |
1672 | ; | |
1673 | "RTN","SDA MEVT",122, 0) | |
1674 | N SD0,SDO RG,SDT,DFN ,SDDA,SDCL ,SDOEP | |
1675 | "RTN","SDA MEVT",123, 0) | |
1676 | S SD0=$S( $D(^SCE(SD OE,0)):^(0 ),1:$G(SDO E0)),SDOEP =$P(SD0,U, 6) | |
1677 | "RTN","SDA MEVT",124, 0) | |
1678 | I SD0']"" !(SDOEP) G OEVTQ | |
1679 | "RTN","SDA MEVT",125, 0) | |
1680 | S SDT=+SD 0,DFN=+$P( SD0,U,2),S DCL=+$P(SD 0,U,4),SDO RG=+$P(SD0 ,U,8),SDDA =$P(SD0,U, 9) | |
1681 | "RTN","SDA MEVT",126, 0) | |
1682 | I SDCAP=" BEFORE" D | |
1683 | "RTN","SDA MEVT",127, 0) | |
1684 | .I SDORG= 1 D BEFORE (.SDATA,DF N,SDT,SDCL ,SDDA,SDHD L) Q | |
1685 | "RTN","SDA MEVT",128, 0) | |
1686 | .I SDORG= 2 D BEFORE ^SDAMEVT2( SDOE,SDHDL ) Q | |
1687 | "RTN","SDA MEVT",129, 0) | |
1688 | .I SDORG= 3 D BEFORE ^SDAMEVT3( DFN,SDT,9, SDHDL) | |
1689 | "RTN","SDA MEVT",130, 0) | |
1690 | I SDCAP=" AFTER" D | |
1691 | "RTN","SDA MEVT",131, 0) | |
1692 | .I SDORG= 1 S SDATA= SDDA_"^"_D FN_"^"_SDT _"^"_SDCL D AFTER(.S DATA,DFN,S DT,SDCL,SD DA,SDHDL), EVT(.SDATA ,5,0,SDHDL ) Q | |
1693 | "RTN","SDA MEVT",132, 0) | |
1694 | .I SDORG= 2 D EVT^SD AMEVT2(SDO E,7,SDHDL) Q | |
1695 | "RTN","SDA MEVT",133, 0) | |
1696 | .I SDORG= 3 D EVT^SD AMEVT3(DFN ,SDT,9,SDH DL) | |
1697 | "RTN","SDA MEVT",134, 0) | |
1698 | OEVTQ Q | |
1699 | "RTN","SDA MEVT",135, 0) | |
1700 | ; | |
1701 | "RTN","SDA MEVT",136, 0) | |
1702 | ; -- SEE SDAMEVT0 F OR DOC ON VARIABLES | |
1703 | "RTN","SDC O3") | |
1704 | 0^2^B42837 89^B391393 5 | |
1705 | "RTN","SDC O3",1,0) | |
1706 | SDCO3 ;ALB /RMO - Pro vider - Ch eck Out;08 DEC 1992 4:05 pm | |
1707 | "RTN","SDC O3",2,0) | |
1708 | ;;5.3;Sch eduling;** 28,27,44,6 7,71,132,4 66,717**;0 8/13/93;Bu ild 7 | |
1709 | "RTN","SDC O3",3,0) | |
1710 | ; | |
1711 | "RTN","SDC O3",4,0) | |
1712 | EN ;Entry point for SDCO PROVI DER protoc ol | |
1713 | "RTN","SDC O3",5,0) | |
1714 | ; Input -- SDOE | |
1715 | "RTN","SDC O3",6,0) | |
1716 | ; | |
1717 | "RTN","SDC O3",7,0) | |
1718 | S VALMBCK ="" | |
1719 | "RTN","SDC O3",8,0) | |
1720 | ; | |
1721 | "RTN","SDC O3",9,0) | |
1722 | ; -- if O LD encount er, quit | |
1723 | "RTN","SDC O3",10,0) | |
1724 | IF '$$EDI TOK($G(SDO E),1) G EN Q | |
1725 | "RTN","SDC O3",11,0) | |
1726 | ; | |
1727 | "RTN","SDC O3",12,0) | |
1728 | ; -- call PCE inter view | |
1729 | "RTN","SDC O3",13,0) | |
1730 | N SDVISIT ,SDHL | |
1731 | "RTN","SDC O3",14,0) | |
1732 | S SDVISIT =$P($G(^SC E(+SDOE,0) ),U,5) | |
1733 | "RTN","SDC O3",15,0) | |
1734 | S X=$$INT V^PXAPI("P RV","SD"," PIMS",SDVI SIT) | |
1735 | "RTN","SDC O3",16,0) | |
1736 | D BLD^SDC O S VALMBC K="R" | |
1737 | "RTN","SDC O3",17,0) | |
1738 | ENQ Q | |
1739 | "RTN","SDC O3",18,0) | |
1740 | ; | |
1741 | "RTN","SDC O3",19,0) | |
1742 | PRASK(SDOE ) ;Ask Pro vider on C heck Out | |
1743 | "RTN","SDC O3",20,0) | |
1744 | ; Input -- SDOE Outpati ent Encoun ter IEN | |
1745 | "RTN","SDC O3",21,0) | |
1746 | ; Output -- 0=No, 1 =Yes/Requi red, 2=Yes /Not Requi red | |
1747 | "RTN","SDC O3",22,0) | |
1748 | N SDCL,SD OE0,SDORG, Y | |
1749 | "RTN","SDC O3",23,0) | |
1750 | S SDOE0=$ G(^SCE(+SD OE,0)),SDC L=+$P(SDOE 0,"^",4),S DORG=+$P(S DOE0,"^",8 ) | |
1751 | "RTN","SDC O3",24,0) | |
1752 | I $$REQ^S DM1A(+SDOE 0)'="CO" G PRASKQ | |
1753 | "RTN","SDC O3",25,0) | |
1754 | I SDORG=1 ,'$$CLINIC ^SDAMU(SDC L) G PRASK Q | |
1755 | "RTN","SDC O3",26,0) | |
1756 | ;I "^1^2^ "[("^"_SDO RG_"^"),$$ INP^SDAM2( +$P(SDOE0, "^",2),+SD OE0)="I" G PRASKQ ; SD*5.3*466 allow pro vider chec k for inpa tients | |
1757 | "RTN","SDC O3",27,0) | |
1758 | I +SDOE0< 2961001 S Y=2 G PRAS KQ | |
1759 | "RTN","SDC O3",28,0) | |
1760 | I SDCL S Y=1 G PRAS KQ | |
1761 | "RTN","SDC O3",29,0) | |
1762 | I SDORG=3 S Y=1 | |
1763 | "RTN","SDC O3",30,0) | |
1764 | PRASKQ Q + $G(Y) | |
1765 | "RTN","SDC O3",31,0) | |
1766 | ; | |
1767 | "RTN","SDC O3",32,0) | |
1768 | SET(SDOE) ;Set-up Pr ovider Arr ay for Out patient En counter | |
1769 | "RTN","SDC O3",33,0) | |
1770 | ; Input -- SDOE Outpati ent Encoun ter IEN | |
1771 | "RTN","SDC O3",34,0) | |
1772 | ; Output -- SDPRY Provide r Array Su bscripted by a Numbe r | |
1773 | "RTN","SDC O3",35,0) | |
1774 | ; SDCNT Number of Array E ntries | |
1775 | "RTN","SDC O3",36,0) | |
1776 | N SDVA200 ,SDVPRV,SD PRVS | |
1777 | "RTN","SDC O3",37,0) | |
1778 | K SDPRY | |
1779 | "RTN","SDC O3",38,0) | |
1780 | D GETPRV^ SDOE(SDOE, "SDPRVS") | |
1781 | "RTN","SDC O3",39,0) | |
1782 | S (SDCNT, SDVPRV)=0 | |
1783 | "RTN","SDC O3",40,0) | |
1784 | F S SDVP RV=$O(SDPR VS(SDVPRV) ) Q:'SDVPR V D | |
1785 | "RTN","SDC O3",41,0) | |
1786 | . S SDVA2 00=+$G(SDP RVS(SDVPRV )) | |
1787 | "RTN","SDC O3",42,0) | |
1788 | . S SDCNT =SDCNT+1 | |
1789 | "RTN","SDC O3",43,0) | |
1790 | . S SDPRY (SDCNT)=SD VPRV_"^"_S DVA200 | |
1791 | "RTN","SDC O3",44,0) | |
1792 | SETQ Q | |
1793 | "RTN","SDC O3",45,0) | |
1794 | ; | |
1795 | "RTN","SDC O3",46,0) | |
1796 | LIST(SDPRY ) ;List Pr ovider Arr ay | |
1797 | "RTN","SDC O3",47,0) | |
1798 | ; Input -- SDPRY Provide r Array Su bscripted by a Numbe r | |
1799 | "RTN","SDC O3",48,0) | |
1800 | ; Output -- List Pr ovider Arr ay | |
1801 | "RTN","SDC O3",49,0) | |
1802 | N I | |
1803 | "RTN","SDC O3",50,0) | |
1804 | W ! | |
1805 | "RTN","SDC O3",51,0) | |
1806 | S I=0 F S I=$O(SDP RY(I)) Q:' I W !?2,I ," ",$$PR ^SDCO31(+$ P(SDPRY(I) ,"^",2)) | |
1807 | "RTN","SDC O3",52,0) | |
1808 | Q | |
1809 | "RTN","SDC O3",53,0) | |
1810 | ; | |
1811 | "RTN","SDC O3",54,0) | |
1812 | EDITOK(SDO E,SDMODE) ; -- ok to edit? | |
1813 | "RTN","SDC O3",55,0) | |
1814 | ; input: SDOE := ien of 40 9.68 [require d] | |
1815 | "RTN","SDC O3",56,0) | |
1816 | ; SDMODE := 1 -- inte ractive ; 0 -- silen t [require d] | |
1817 | "RTN","SDC O3",57,0) | |
1818 | ; | |
1819 | "RTN","SDC O3",58,0) | |
1820 | ; returne d: 1 -- y es, it's o k to edit or delete SDOE entry | |
1821 | "RTN","SDC O3",59,0) | |
1822 | ; 0 -- n o, cannot not change SDOE entr y | |
1823 | "RTN","SDC O3",60,0) | |
1824 | ; | |
1825 | "RTN","SDC O3",61,0) | |
1826 | N DIR,SDO K | |
1827 | "RTN","SDC O3",62,0) | |
1828 | S SDOK=$$ NEW^SDPCE( $P($G(^SCE (+$G(SDOE) ,0)),U)) | |
1829 | "RTN","SDC O3",63,0) | |
1830 | IF 'SDOK, SDMODE=1 D OLDMSG ; *zeb 10/25 /18 717 su pport SDMO DE=2 for G UI | |
1831 | "RTN","SDC O3",64,0) | |
1832 | EDITOKQ Q SDOK | |
1833 | "RTN","SDC O3",65,0) | |
1834 | ; | |
1835 | "RTN","SDC O3",66,0) | |
1836 | OLDMSG ; - - display message to user | |
1837 | "RTN","SDC O3",67,0) | |
1838 | W !!,">>> Editing a nd deletin g old enco unters not allowed." ,! | |
1839 | "RTN","SDC O3",68,0) | |
1840 | N DIR | |
1841 | "RTN","SDC O3",69,0) | |
1842 | S DIR(0)= "E" | |
1843 | "RTN","SDC O3",70,0) | |
1844 | S DIR("A" )="Press R eturn key to continu e" | |
1845 | "RTN","SDC O3",71,0) | |
1846 | D ^DIR | |
1847 | "RTN","SDC O3",72,0) | |
1848 | Q | |
1849 | "RTN","SDC O3",73,0) | |
1850 | ; | |
1851 | "RTN","SDC ODEL") | |
1852 | 0^3^B14749 068^B11313 917 | |
1853 | "RTN","SDC ODEL",1,0) | |
1854 | SDCODEL ;A LB/RMO - D elete Chec k Out ;JAN 15, 2016 | |
1855 | "RTN","SDC ODEL",2,0) | |
1856 | ;;5.3;Sch eduling;** 20,27,44,9 7,105,110, 132,257,62 7,717**;Au g 13, 1993 ;Build 7 | |
1857 | "RTN","SDC ODEL",3,0) | |
1858 | ; | |
1859 | "RTN","SDC ODEL",4,0) | |
1860 | EN(SDOE,SD MOD,SDELHD L,SDELSRC) ;Delete C heck Out | |
1861 | "RTN","SDC ODEL",5,0) | |
1862 | ; Input -- SDOE Outpatie nt Encount er file IE N | |
1863 | "RTN","SDC ODEL",6,0) | |
1864 | ; SDMOD 1=Intera ctive and 0=Non-inte ractive, 2 =Non-inter active/fro m GUI | |
1865 | "RTN","SDC ODEL",7,0) | |
1866 | ; SDELHDL Check Ou t Deletion Handle [ Optional] | |
1867 | "RTN","SDC ODEL",8,0) | |
1868 | ; SDELSRC Source o f delete | |
1869 | "RTN","SDC ODEL",9,0) | |
1870 | ; Output -- Delete Check Out | |
1871 | "RTN","SDC ODEL",10,0 ) | |
1872 | N DA,DFN, DE,DIE,DR, SDCL,SDDA, SDEVTF,SDO E0,SDOEP,S DORG,SDT,S DVSAV,SDVF LG | |
1873 | "RTN","SDC ODEL",11,0 ) | |
1874 | D SET(SDO E,.SDOE0,. SDT,.DFN,. SDCL,.SDOR G,.SDDA) | |
1875 | "RTN","SDC ODEL",12,0 ) | |
1876 | S SDVSAV= $P(SDOE0,U ,5) | |
1877 | "RTN","SDC ODEL",13,0 ) | |
1878 | ; | |
1879 | "RTN","SDC ODEL",14,0 ) | |
1880 | ; -- ok t o delete? | |
1881 | "RTN","SDC ODEL",15,0 ) | |
1882 | IF '$$EDI TOK^SDCO3( SDOE,SDMOD ) G ENQ | |
1883 | "RTN","SDC ODEL",16,0 ) | |
1884 | ; | |
1885 | "RTN","SDC ODEL",17,0 ) | |
1886 | S SDELSRC =$G(SDELSR C) ;*zeb+ 1 717 11/6 /18 suppre ss event i f coming f rom cancel appointme nt | |
1887 | "RTN","SDC ODEL",18,0 ) | |
1888 | IF SDELSR C'="PCE" S X=$$DELVF ILE^PXAPI( "ALL",$P($ G(^SCE(SDO E,0)),U,5) ,"","","", 1) | |
1889 | "RTN","SDC ODEL",19,0 ) | |
1890 | S SDVFLG= 1 | |
1891 | "RTN","SDC ODEL",20,0 ) | |
1892 | ; | |
1893 | "RTN","SDC ODEL",21,0 ) | |
1894 | ; -- get handle if not passed and do 'b efore' | |
1895 | "RTN","SDC ODEL",22,0 ) | |
1896 | I '$G(SDE LHDL),("^C ANCEL^NOSH OW^"'["^"_ SDELSRC_"^ ") N SDATA ,SDELHDL S SDEVTF=1 D EVT^SDCO U1(SDOE,"B EFORE",.SD ELHDL,.SDA TA) ;*zeb 717 11/6/ 18 suppres s event if coming fr om cancel or no show | |
1897 | "RTN","SDC ODEL",23,0 ) | |
1898 | ; | |
1899 | "RTN","SDC ODEL",24,0 ) | |
1900 | I $G(SDMO D)=1 W !!, ">>> Delet ing check out inform ation..." ;*zeb 10/ 25/18 717 fix test f or SDMOD=2 for GUI | |
1901 | "RTN","SDC ODEL",25,0 ) | |
1902 | ; | |
1903 | "RTN","SDC ODEL",26,0 ) | |
1904 | ; -- dele te child d ata for ap pts, dispo sition and stop code addition | |
1905 | "RTN","SDC ODEL",27,0 ) | |
1906 | I "^1^2^3 ^"[("^"_SD ORG_"^") D CHLD(SDOE ,SDMOD) ;S D/257 | |
1907 | "RTN","SDC ODEL",28,0 ) | |
1908 | ; | |
1909 | "RTN","SDC ODEL",29,0 ) | |
1910 | ; -- dele te SDOE po inters and co d/t | |
1911 | "RTN","SDC ODEL",30,0 ) | |
1912 | I SDORG=1 D | |
1913 | "RTN","SDC ODEL",31,0 ) | |
1914 | .S DA(1)= DFN,DA=SDT ,DIE="^DPT ("_DFN_"," "S"",",DR= "21///@" D ^DIE | |
1915 | "RTN","SDC ODEL",32,0 ) | |
1916 | .I $G(SDM OD) W !?3, "...deleti ng check o ut date/ti me" | |
1917 | "RTN","SDC ODEL",33,0 ) | |
1918 | .S DR="30 3///@" D D IE^SDCO1(S DCL,SDT,+S DDA,DR) | |
1919 | "RTN","SDC ODEL",34,0 ) | |
1920 | I SDORG=3 D | |
1921 | "RTN","SDC ODEL",35,0 ) | |
1922 | .S DA(1)= DFN,DA=+SD DA,DIE="^D PT("_DFN_" ,""DIS""," ,DR="18/// @" D ^DIE | |
1923 | "RTN","SDC ODEL",36,0 ) | |
1924 | ; | |
1925 | "RTN","SDC ODEL",37,0 ) | |
1926 | ; -- do f inal delet es for sdo e | |
1927 | "RTN","SDC ODEL",38,0 ) | |
1928 | D CO(SDOE ,SDMOD) | |
1929 | "RTN","SDC ODEL",39,0 ) | |
1930 | D OE(SDOE ,SDMOD) | |
1931 | "RTN","SDC ODEL",40,0 ) | |
1932 | D SDEC(DF N,SDT,SDCL ) ;delet e checkout in SDEC A PPOINTMENT ;alb/sat 627 | |
1933 | "RTN","SDC ODEL",41,0 ) | |
1934 | ; | |
1935 | "RTN","SDC ODEL",42,0 ) | |
1936 | I $G(SDMO D) W !,">> > done." | |
1937 | "RTN","SDC ODEL",43,0 ) | |
1938 | ; | |
1939 | "RTN","SDC ODEL",44,0 ) | |
1940 | ; -- if h andle not passed, th en 'after' and event | |
1941 | "RTN","SDC ODEL",45,0 ) | |
1942 | I $G(SDEV TF),(SDELS RC'="CANCE L") D EVT^ SDCOU1(SDO E,"AFTER", SDELHDL,.S DATA,SDOE0 ) ;*zeb 7 17 11/6/18 suppress event if c oming from cancel ap pointment | |
1943 | "RTN","SDC ODEL",46,0 ) | |
1944 | ; | |
1945 | "RTN","SDC ODEL",47,0 ) | |
1946 | ; -- call pce to ma ke sure it s data is gone | |
1947 | "RTN","SDC ODEL",48,0 ) | |
1948 | I $G(SDVF LG) D DEAD ^PXUTLSTP( SDVSAV) | |
1949 | "RTN","SDC ODEL",49,0 ) | |
1950 | ENQ Q | |
1951 | "RTN","SDC ODEL",50,0 ) | |
1952 | ; | |
1953 | "RTN","SDC ODEL",51,0 ) | |
1954 | CHLD(SDOEP ,SDMOD) ;D elete Chil dren | |
1955 | "RTN","SDC ODEL",52,0 ) | |
1956 | N DFN,SDC L,SDDA,SDO E0,SDOEC,S DORG,SDT | |
1957 | "RTN","SDC ODEL",53,0 ) | |
1958 | S SDOEC=0 | |
1959 | "RTN","SDC ODEL",54,0 ) | |
1960 | F S SDOE C=$O(^SCE( "APAR",SDO EP,SDOEC)) Q:'SDOEC D | |
1961 | "RTN","SDC ODEL",55,0 ) | |
1962 | .D SET(SD OEC,.SDOE0 ,.SDT,.DFN ,.SDCL,.SD ORG,.SDDA) | |
1963 | "RTN","SDC ODEL",56,0 ) | |
1964 | .D OE(SDO EC,SDMOD) | |
1965 | "RTN","SDC ODEL",57,0 ) | |
1966 | Q | |
1967 | "RTN","SDC ODEL",58,0 ) | |
1968 | ; | |
1969 | "RTN","SDC ODEL",59,0 ) | |
1970 | SET(SDOE,S DOE0,SDT,D FN,SDCL,SD ORG,SDDA) ;Set Varia bles | |
1971 | "RTN","SDC ODEL",60,0 ) | |
1972 | S SDOE0=$ G(^SCE(+SD OE,0)),SDT =+SDOE0,DF N=+$P(SDOE 0,"^",2),S DCL=+$P(SD OE0,"^",4) ,SDORG=+$P (SDOE0,"^" ,8),SDDA=$ P(SDOE0,"^ ",9) | |
1973 | "RTN","SDC ODEL",61,0 ) | |
1974 | Q | |
1975 | "RTN","SDC ODEL",62,0 ) | |
1976 | ; | |
1977 | "RTN","SDC ODEL",63,0 ) | |
1978 | CO(SDOE,SD MOD) ;Dele te Classif ication | |
1979 | "RTN","SDC ODEL",64,0 ) | |
1980 | N DA,DIK, SDFL,SDI | |
1981 | "RTN","SDC ODEL",65,0 ) | |
1982 | I $P($G(^ SCE(SDOE,0 )),"^",6) G COQ | |
1983 | "RTN","SDC ODEL",66,0 ) | |
1984 | I $O(^SDD (409.42,"A O",SDOE,0) )>0 D | |
1985 | "RTN","SDC ODEL",67,0 ) | |
1986 | .I $G(SDM OD) W !?3, "...deleti ng classif ications" | |
1987 | "RTN","SDC ODEL",68,0 ) | |
1988 | .D DEL(SD OE,409.42) | |
1989 | "RTN","SDC ODEL",69,0 ) | |
1990 | COQ Q | |
1991 | "RTN","SDC ODEL",70,0 ) | |
1992 | ; | |
1993 | "RTN","SDC ODEL",71,0 ) | |
1994 | DEL(SDOE,S DFL) ;Dele te Classif ication | |
1995 | "RTN","SDC ODEL",72,0 ) | |
1996 | N DA,DIK, SDI | |
1997 | "RTN","SDC ODEL",73,0 ) | |
1998 | S DIK="^S DD("_SDFL_ ",",SDI=0 | |
1999 | "RTN","SDC ODEL",74,0 ) | |
2000 | F S SDI= $O(^SDD(SD FL,"AO",SD OE,SDI)) Q :'SDI S D A=+$O(^(SD I,0)) D ^D IK | |
2001 | "RTN","SDC ODEL",75,0 ) | |
2002 | Q | |
2003 | "RTN","SDC ODEL",76,0 ) | |
2004 | ; | |
2005 | "RTN","SDC ODEL",77,0 ) | |
2006 | OE(SDOE,SD MOD) ;Dele te Outpati ent Encoun ter | |
2007 | "RTN","SDC ODEL",78,0 ) | |
2008 | N DA,DIK, SDVSIT,SDO RG,SDAT | |
2009 | "RTN","SDC ODEL",79,0 ) | |
2010 | IF '$$EDI TOK^SDCO3( SDOE,SDMOD ) G OEQ | |
2011 | "RTN","SDC ODEL",80,0 ) | |
2012 | S SDAT=$P ($G(^SCE(+ SDOE,0)),U ,1) | |
2013 | "RTN","SDC ODEL",81,0 ) | |
2014 | S SDVSIT= $P($G(^SCE (SDOE,0)), U,5),SDORG =$P($G(^SC E(SDOE,0)) ,U,8) | |
2015 | "RTN","SDC ODEL",82,0 ) | |
2016 | S DA=SDOE ,DIK="^SCE (" D ^DIK | |
2017 | "RTN","SDC ODEL",83,0 ) | |
2018 | S X=$$KIL L^VSITKIL( SDVSIT) | |
2019 | "RTN","SDC ODEL",84,0 ) | |
2020 | OEQ Q | |
2021 | "RTN","SDC ODEL",85,0 ) | |
2022 | ; | |
2023 | "RTN","SDC ODEL",86,0 ) | |
2024 | COMDT(SDOE ,SDMOD) ;D elete Chec k Out Proc ess Comple tion Date | |
2025 | "RTN","SDC ODEL",87,0 ) | |
2026 | N DA,DE,D IE,DQ,DR | |
2027 | "RTN","SDC ODEL",88,0 ) | |
2028 | I $G(SDMO D) W !?3," ...deletin g check ou t process completion date" | |
2029 | "RTN","SDC ODEL",89,0 ) | |
2030 | S DA=SDOE ,DIE="^SCE (",DR=".07 ///@" D ^D IE | |
2031 | "RTN","SDC ODEL",90,0 ) | |
2032 | Q | |
2033 | "RTN","SDC ODEL",91,0 ) | |
2034 | ; | |
2035 | "RTN","SDC ODEL",92,0 ) | |
2036 | SDEC(DFN,S DT,SDCL) ;delete c heck out i n SDEC APP OINTMENT ;alb/sat 6 27 | |
2037 | "RTN","SDC ODEL",93,0 ) | |
2038 | N SDECAPI D | |
2039 | "RTN","SDC ODEL",94,0 ) | |
2040 | S SDECAPI D=$$APPTGE T^SDECUTL( DFN,SDT,SD CL) | |
2041 | "RTN","SDC ODEL",95,0 ) | |
2042 | D CANAPPT ^SDEC25(SD ECAPID) | |
2043 | "RTN","SDC ODEL",96,0 ) | |
2044 | Q | |
2045 | "RTN","SDE C07B") | |
2046 | 0^4^B86344 811^B55538 827 | |
2047 | "RTN","SDE C07B",1,0) | |
2048 | SDEC07B ;A LB/SAT - V ISTA SCHED ULING RPCS ; 26 Mar 2019 7:44 AM | |
2049 | "RTN","SDE C07B",2,0) | |
2050 | ;;5.3;Sch eduling;** 627,658,66 5,669,722, 717**;Aug 13, 1993;B uild 7 | |
2051 | "RTN","SDE C07B",3,0) | |
2052 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | |
2053 | "RTN","SDE C07B",4,0) | |
2054 | ; | |
2055 | "RTN","SDE C07B",5,0) | |
2056 | Q | |
2057 | "RTN","SDE C07B",6,0) | |
2058 | ; | |
2059 | "RTN","SDE C07B",7,0) | |
2060 | MAKE(BSDR) ;PEP; cal l to store appt made | |
2061 | "RTN","SDE C07B",8,0) | |
2062 | ; | |
2063 | "RTN","SDE C07B",9,0) | |
2064 | ; Make ca ll using: S ERR=$$MA KE^SDEC07B (.ARRAY) | |
2065 | "RTN","SDE C07B",10,0 ) | |
2066 | ; | |
2067 | "RTN","SDE C07B",11,0 ) | |
2068 | ; Input A rray - | |
2069 | "RTN","SDE C07B",12,0 ) | |
2070 | ; BSDR("P AT") = ien of patien t in file 2 | |
2071 | "RTN","SDE C07B",13,0 ) | |
2072 | ; BSDR("C LN") = ien of clinic in file 4 4 | |
2073 | "RTN","SDE C07B",14,0 ) | |
2074 | ; BSDR("T YP") = C&P if appoin tment type is C&P, 3 for sched uled appts , 4 for wa lkins | |
2075 | "RTN","SDE C07B",15,0 ) | |
2076 | ; BSDR("C OL") = col lateral if appointme nt type is COLLATERA L OF VET. | |
2077 | "RTN","SDE C07B",16,0 ) | |
2078 | ; BSDR("A PT") = App ointment t ype pointe r to APPOI NTMENT TYP E file 409 .1 | |
2079 | "RTN","SDE C07B",17,0 ) | |
2080 | ; BSDR("A DT") = app ointment d ate and ti me | |
2081 | "RTN","SDE C07B",18,0 ) | |
2082 | ; BSDR("L EN") = app ointment l ength in m inutes (5- 120) | |
2083 | "RTN","SDE C07B",19,0 ) | |
2084 | ; BSDR("O I") = rea son for ap pt - up to 150 chara cters | |
2085 | "RTN","SDE C07B",20,0 ) | |
2086 | ; BSDR("U SR") = use r who made appt | |
2087 | "RTN","SDE C07B",21,0 ) | |
2088 | ; BSDR("R ES") = res ource poin ter to SDE C RESOURCE ^SDEC(409 .831, | |
2089 | "RTN","SDE C07B",22,0 ) | |
2090 | ; BSDR("M TR") = MTR C flag (mu ltiple app ointments) 0=False ( default) 1=True | |
2091 | "RTN","SDE C07B",23,0 ) | |
2092 | ; BSDR("D DT") = Des ired Date of Appt in fm format | |
2093 | "RTN","SDE C07B",24,0 ) | |
2094 | ; BSDR("R EQ") = Req uested By - valid va lues are 1 =PROVIDER 2=PATIENT or "" | |
2095 | "RTN","SDE C07B",25,0 ) | |
2096 | ; BSDR("L AB") = LAB date/time in fm for mat | |
2097 | "RTN","SDE C07B",26,0 ) | |
2098 | ; BSDR("E KG") = EKG date/time in fm for mat | |
2099 | "RTN","SDE C07B",27,0 ) | |
2100 | ; BSDR("X RA") = XRA Y date/tim e in fm fo rmat | |
2101 | "RTN","SDE C07B",28,0 ) | |
2102 | ; BSDR("C ON") = Con sult link - pointer to file 12 3 | |
2103 | "RTN","SDE C07B",29,0 ) | |
2104 | ; BSDR("O VB") = ove rbook flag - 1=yes, this is an overbook | |
2105 | "RTN","SDE C07B",30,0 ) | |
2106 | ; BSDR("E LG") = Pat ient Eligi bilty | |
2107 | "RTN","SDE C07B",31,0 ) | |
2108 | ; | |
2109 | "RTN","SDE C07B",32,0 ) | |
2110 | ;Output: error stat us and mes sage | |
2111 | "RTN","SDE C07B",33,0 ) | |
2112 | ; = 0 o r null: e verything okay | |
2113 | "RTN","SDE C07B",34,0 ) | |
2114 | ; = 1^m essage: e rror and r eason | |
2115 | "RTN","SDE C07B",35,0 ) | |
2116 | ; | |
2117 | "RTN","SDE C07B",36,0 ) | |
2118 | I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file: "_$G(BSDR ("PAT")) | |
2119 | "RTN","SDE C07B",37,0 ) | |
2120 | I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not on file: " _$G(BSDR(" CLN")) | |
2121 | "RTN","SDE C07B",38,0 ) | |
2122 | I "1234"' [$G(BSDR(" TYP")) Q 1 _U_"Appt T ype error: "_$G(BSDR ("TYP")) | |
2123 | "RTN","SDE C07B",39,0 ) | |
2124 | I $G(BSDR ("ADT")) S BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12) ;rem ove second s | |
2125 | "RTN","SDE C07B",40,0 ) | |
2126 | I $G(BSDR ("ADT"))'? 7N1".".4N Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT")) | |
2127 | "RTN","SDE C07B",41,0 ) | |
2128 | ; | |
2129 | "RTN","SDE C07B",42,0 ) | |
2130 | I ($G(BSD R("LEN"))< 5)!($G(BSD R("LEN"))> 240) Q 1_U _"Appt Len gth error: "_$G(BSDR ("LEN")) | |
2131 | "RTN","SDE C07B",43,0 ) | |
2132 | I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Made App t Error: " _$G(BSDR(" USR")) | |
2133 | "RTN","SDE C07B",44,0 ) | |
2134 | I $D(^DPT (BSDR("PAT "),"S",BSD R("ADT"),0 )),$P(^DPT (BSDR("PAT "),"S",BSD R("ADT"),0 ),U,2)'="C ",$P(^DPT( BSDR("PAT" ),"S",BSDR ("ADT"),0) ,U,2)'="PC " Q 1_U_"P atient "_$ $GET1^DIQ( 2,BSDR("PA T")_",",.0 1)_" alrea dy has app t at "_$$F MTE^XLFDT( BSDR("ADT" )) | |
2135 | "RTN","SDE C07B",45,0 ) | |
2136 | ; | |
2137 | "RTN","SDE C07B",46,0 ) | |
2138 | N DIC,DA, Y,X,DD,DO, DLAYGO | |
2139 | "RTN","SDE C07B",47,0 ) | |
2140 | N SDECERR | |
2141 | "RTN","SDE C07B",48,0 ) | |
2142 | N SDFU,SD NA,SDRET,S DSRT,PATCH 722,PATCH7 17 ; 717/7 22 WTC 3/2 6/19 | |
2143 | "RTN","SDE C07B",49,0 ) | |
2144 | S PATCH72 2=$$PATCHS TS(722) ; | |
2145 | "RTN","SDE C07B",50,0 ) | |
2146 | S PATCH71 7=$$PATCHS TS(717) ; | |
2147 | "RTN","SDE C07B",51,0 ) | |
2148 | ; | |
2149 | "RTN","SDE C07B",52,0 ) | |
2150 | S BSDR("A PT")=+$G(B SDR("APT") ) | |
2151 | "RTN","SDE C07B",53,0 ) | |
2152 | S BSDR("C OL")=+$G(B SDR("COL") ) | |
2153 | "RTN","SDE C07B",54,0 ) | |
2154 | ;get sche duling req uest type AND next a va. appt. indicator | |
2155 | "RTN","SDE C07B",55,0 ) | |
2156 | S SDSRT=$ $SDSRT(BSD R("TYP"),B SDR("MTR") ,BSDR("DDT "),BSDR("R EQ")) | |
2157 | "RTN","SDE C07B",56,0 ) | |
2158 | ; next av a.appt. in dicator fi eld 26 | |
2159 | "RTN","SDE C07B",57,0 ) | |
2160 | S SDNA=$P (SDSRT,U,2 ) | |
2161 | "RTN","SDE C07B",58,0 ) | |
2162 | ; schedul ing reques t type fie ld 25 | |
2163 | "RTN","SDE C07B",59,0 ) | |
2164 | S SDSRT=$ P(SDSRT,U, 1) | |
2165 | "RTN","SDE C07B",60,0 ) | |
2166 | ;determin e if Follo w-up visit field 28 | |
2167 | "RTN","SDE C07B",61,0 ) | |
2168 | S SDRET=" " | |
2169 | "RTN","SDE C07B",62,0 ) | |
2170 | D PCSTGET ^SDEC(.SDR ET,BSDR("P AT"),BSDR( "CLN")) | |
2171 | "RTN","SDE C07B",63,0 ) | |
2172 | S SDFU=$P ($P(@SDRET @(1),U,2), $C(30,31), 1) | |
2173 | "RTN","SDE C07B",64,0 ) | |
2174 | S SDFU=$S (SDFU="YES ":1,1:0) | |
2175 | "RTN","SDE C07B",65,0 ) | |
2176 | K @SDRET | |
2177 | "RTN","SDE C07B",66,0 ) | |
2178 | ;store | |
2179 | "RTN","SDE C07B",67,0 ) | |
2180 | N SDECCON D ; 722/7 17 wtc 3/2 6/2019 | |
2181 | "RTN","SDE C07B",68,0 ) | |
2182 | S SDECCON D=0 I $D(^ DPT(BSDR(" PAT"),"S", BSDR("ADT" ),0)),(($P (^DPT(BSDR ("PAT"),"S ",BSDR("AD T"),0),U,2 )="C")!($P (^DPT(BSDR ("PAT"),"S ",BSDR("AD T"),0),U,2 )="PC")) S SDECCOND= 1 ; | |
2183 | "RTN","SDE C07B",69,0 ) | |
2184 | ; | |
2185 | "RTN","SDE C07B",70,0 ) | |
2186 | I SDECCON D D | |
2187 | "RTN","SDE C07B",71,0 ) | |
2188 | . ; "un-c ancel" exi sting appt in file 2 | |
2189 | "RTN","SDE C07B",72,0 ) | |
2190 | . N SDECF DA,SDECIEN S,SDECMSG | |
2191 | "RTN","SDE C07B",73,0 ) | |
2192 | . S SDECI ENS=BSDR(" ADT")_","_ BSDR("PAT" )_"," | |
2193 | "RTN","SDE C07B",74,0 ) | |
2194 | . ; | |
2195 | "RTN","SDE C07B",75,0 ) | |
2196 | . I PATCH 722'=3 D ; Execute code if p atch 722 n ot install ed. | |
2197 | "RTN","SDE C07B",76,0 ) | |
2198 | .. S SDEC FDA(2.98,S DECIENS,". 01")=BSDR( "CLN") | |
2199 | "RTN","SDE C07B",77,0 ) | |
2200 | .. S SDEC FDA(2.98,S DECIENS,"3 ")=$S($G(^ DPT(+$G(BS DR("PAT")) ,.1))'="": "I",1:"") | |
2201 | "RTN","SDE C07B",78,0 ) | |
2202 | .. S SDEC FDA(2.98,S DECIENS,"5 ")=BSDR("L AB") ;l ab date/ti me | |
2203 | "RTN","SDE C07B",79,0 ) | |
2204 | .. S SDEC FDA(2.98,S DECIENS,"6 ")=BSDR("X RA") ;x ray date/t ime | |
2205 | "RTN","SDE C07B",80,0 ) | |
2206 | .. S SDEC FDA(2.98,S DECIENS,"7 ")=BSDR("E KG") ;e kg date/ti me | |
2207 | "RTN","SDE C07B",81,0 ) | |
2208 | .. S SDEC FDA(2.98,S DECIENS,"9 ")=BSDR("T YP") | |
2209 | "RTN","SDE C07B",82,0 ) | |
2210 | .. S:+BSD R("APT") S DECFDA(2.9 8,SDECIENS ,"9.5")=BS DR("APT") | |
2211 | "RTN","SDE C07B",83,0 ) | |
2212 | .. S:+BSD R("COL") S DECFDA(2.9 8,SDECIENS ,"13")=BSD R("COL") | |
2213 | "RTN","SDE C07B",84,0 ) | |
2214 | .. S SDEC FDA(2.98,S DECIENS,"1 4")="" | |
2215 | "RTN","SDE C07B",85,0 ) | |
2216 | .. S SDEC FDA(2.98,S DECIENS,"1 5")="" | |
2217 | "RTN","SDE C07B",86,0 ) | |
2218 | .. S SDEC FDA(2.98,S DECIENS,"1 6")="" | |
2219 | "RTN","SDE C07B",87,0 ) | |
2220 | .. S SDEC FDA(2.98,S DECIENS,"1 7")="" ; alb/sat 65 8 | |
2221 | "RTN","SDE C07B",88,0 ) | |
2222 | .. S SDEC FDA(2.98,S DECIENS,"1 9")=DUZ ;d ata entry clerk | |
2223 | "RTN","SDE C07B",89,0 ) | |
2224 | .. S SDEC FDA(2.98,S DECIENS,"2 0")=$$NOW^ XLFDT | |
2225 | "RTN","SDE C07B",90,0 ) | |
2226 | .. S SDEC FDA(2.98,S DECIENS,"2 5")=SDSRT ;s cheduling request ty pe | |
2227 | "RTN","SDE C07B",91,0 ) | |
2228 | .. S SDEC FDA(2.98,S DECIENS,"2 6")=SDNA ;n ext ava. a ppt. indic ator | |
2229 | "RTN","SDE C07B",92,0 ) | |
2230 | .. S SDEC FDA(2.98,S DECIENS,"2 7")=BSDR(" DDT") ;d esired dat e of appt | |
2231 | "RTN","SDE C07B",93,0 ) | |
2232 | .. S SDEC FDA(2.98,S DECIENS,"2 8")=SDFU ;f ollow-up v isit yes/ no | |
2233 | "RTN","SDE C07B",94,0 ) | |
2234 | . ; | |
2235 | "RTN","SDE C07B",95,0 ) | |
2236 | . I PATCH 722=3 D ; Excecute code if p atch 722 i s installe d | |
2237 | "RTN","SDE C07B",96,0 ) | |
2238 | .. S SDEC FDA(2.98,S DECIENS,". 01")=$$NUL LDEL(BSDR( "CLN")) ;* zeb+19 722 2/19/19 c ompletely replace ol d appt's d ata if ove rlaying; p revent chi mera appt | |
2239 | "RTN","SDE C07B",97,0 ) | |
2240 | .. S SDEC FDA(2.98,S DECIENS,"3 ")=$$NULLD EL($S($G(^ DPT(+$G(BS DR("PAT")) ,.1))'="": "I",1:"")) | |
2241 | "RTN","SDE C07B",98,0 ) | |
2242 | .. S SDEC FDA(2.98,S DECIENS,"5 ")=$$NULLD EL(BSDR("L AB")) ; lab date/t ime | |
2243 | "RTN","SDE C07B",99,0 ) | |
2244 | .. S SDEC FDA(2.98,S DECIENS,"6 ")=$$NULLD EL(BSDR("X RA")) ; xray date/ time | |
2245 | "RTN","SDE C07B",100, 0) | |
2246 | .. S SDEC FDA(2.98,S DECIENS,"7 ")=$$NULLD EL(BSDR("E KG")) ; ekg date/t ime | |
2247 | "RTN","SDE C07B",101, 0) | |
2248 | .. S SDEC FDA(2.98,S DECIENS,"9 ")=$$NULLD EL(BSDR("T YP")) | |
2249 | "RTN","SDE C07B",102, 0) | |
2250 | .. S SDEC FDA(2.98,S DECIENS,"9 .5")=$$NUL LDEL(BSDR( "APT")) | |
2251 | "RTN","SDE C07B",103, 0) | |
2252 | .. S SDEC FDA(2.98,S DECIENS,"1 3")=$$NULL DEL(BSDR(" COL")) | |
2253 | "RTN","SDE C07B",104, 0) | |
2254 | .. S SDEC FDA(2.98,S DECIENS,"1 4")="@" | |
2255 | "RTN","SDE C07B",105, 0) | |
2256 | .. S SDEC FDA(2.98,S DECIENS,"1 5")="@" | |
2257 | "RTN","SDE C07B",106, 0) | |
2258 | .. S SDEC FDA(2.98,S DECIENS,"1 6")="@" | |
2259 | "RTN","SDE C07B",107, 0) | |
2260 | .. S SDEC FDA(2.98,S DECIENS,"1 7")="@" ;alb/sat 6 58 | |
2261 | "RTN","SDE C07B",108, 0) | |
2262 | .. S SDEC FDA(2.98,S DECIENS,"1 9")=$$NULL DEL(DUZ) ; data entry clerk | |
2263 | "RTN","SDE C07B",109, 0) | |
2264 | .. S SDEC FDA(2.98,S DECIENS,"2 0")=$$NOW^ XLFDT | |
2265 | "RTN","SDE C07B",110, 0) | |
2266 | .. S SDEC FDA(2.98,S DECIENS,"2 1")="@" ; outpatient encounter ;*zeb 722 2/26/19 c lear to fi x OE link issue if c ancelled a gain | |
2267 | "RTN","SDE C07B",111, 0) | |
2268 | .. S SDEC FDA(2.98,S DECIENS,"2 5")=$$NULL DEL(SDSRT) ; scheduling request t ype | |
2269 | "RTN","SDE C07B",112, 0) | |
2270 | .. S SDEC FDA(2.98,S DECIENS,"2 6")=$$NULL DEL(SDNA) ; next ava. appt. indi cator | |
2271 | "RTN","SDE C07B",113, 0) | |
2272 | .. S SDEC FDA(2.98,S DECIENS,"2 7")=$$NULL DEL(BSDR(" DDT")) ; desired da te of appt | |
2273 | "RTN","SDE C07B",114, 0) | |
2274 | .. S SDEC FDA(2.98,S DECIENS,"2 8")=$$NULL DEL(SDFU) ; follow-up visit yes /no. ; | |
2275 | "RTN","SDE C07B",115, 0) | |
2276 | . ; | |
2277 | "RTN","SDE C07B",116, 0) | |
2278 | . D FILE^ DIE("","SD ECFDA","SD ECMSG") | |
2279 | "RTN","SDE C07B",117, 0) | |
2280 | . ; | |
2281 | "RTN","SDE C07B",118, 0) | |
2282 | . I PATCH 722'=3 N S DECTEMP S SDECTEMP=$ G(SDECMSG) | |
2283 | "RTN","SDE C07B",119, 0) | |
2284 | . I PATCH 722=3 N SD ECTEMP S S DECTEMP=$$ NULLDEL($G (SDECMSG)) | |
2285 | "RTN","SDE C07B",120, 0) | |
2286 | . ; | |
2287 | "RTN","SDE C07B",121, 0) | |
2288 | I 'SDECCO ND D I $G (SDECERR(1 )) Q 1_U_" FileMan ad d to DPT e rror: Pati ent="_BSDR ("PAT")_" Appt="_BSD R("ADT") | |
2289 | "RTN","SDE C07B",122, 0) | |
2290 | . ; add a ppt to fil e 2 | |
2291 | "RTN","SDE C07B",123, 0) | |
2292 | . N SDECF DA,SDECIEN S,SDECMSG | |
2293 | "RTN","SDE C07B",124, 0) | |
2294 | . S SDECI ENS="?+2," _BSDR("PAT ")_"," | |
2295 | "RTN","SDE C07B",125, 0) | |
2296 | . S SDECI ENS(2)=BSD R("ADT") | |
2297 | "RTN","SDE C07B",126, 0) | |
2298 | . S SDECF DA(2.98,SD ECIENS,.01 )=BSDR("CL N") | |
2299 | "RTN","SDE C07B",127, 0) | |
2300 | . S SDECF DA(2.98,SD ECIENS,"3" )=$S($G(^D PT(+$G(BSD R("PAT")), .1))'="":" I",1:"") | |
2301 | "RTN","SDE C07B",128, 0) | |
2302 | . S SDECF DA(2.98,SD ECIENS,"5" )=BSDR("LA B") ;la b date/tim e | |
2303 | "RTN","SDE C07B",129, 0) | |
2304 | . S SDECF DA(2.98,SD ECIENS,"6" )=BSDR("XR A") ;xr ay date/ti me | |
2305 | "RTN","SDE C07B",130, 0) | |
2306 | . S SDECF DA(2.98,SD ECIENS,"7" )=BSDR("EK G") ;ek g date/tim e | |
2307 | "RTN","SDE C07B",131, 0) | |
2308 | . S SDECF DA(2.98,SD ECIENS,"9" )=BSDR("TY P") | |
2309 | "RTN","SDE C07B",132, 0) | |
2310 | . S:+BSDR ("APT") SD ECFDA(2.98 ,SDECIENS, "9.5")=BSD R("APT") | |
2311 | "RTN","SDE C07B",133, 0) | |
2312 | . S:+BSDR ("COL") SD ECFDA(2.98 ,SDECIENS, "13")=BSDR ("COL") | |
2313 | "RTN","SDE C07B",134, 0) | |
2314 | . S SDECF DA(2.98,SD ECIENS,"14 ")="" | |
2315 | "RTN","SDE C07B",135, 0) | |
2316 | . S SDECF DA(2.98,SD ECIENS,"15 ")="" | |
2317 | "RTN","SDE C07B",136, 0) | |
2318 | . S SDECF DA(2.98,SD ECIENS,"16 ")="" | |
2319 | "RTN","SDE C07B",137, 0) | |
2320 | . S SDECF DA(2.98,SD ECIENS,"17 ")="" ;a lb/sat 658 | |
2321 | "RTN","SDE C07B",138, 0) | |
2322 | . S SDECF DA(2.98,SD ECIENS,"19 ")=DUZ ;da ta entry c lerk | |
2323 | "RTN","SDE C07B",139, 0) | |
2324 | . S SDECF DA(2.98,SD ECIENS,"20 ")=$$NOW^X LFDT | |
2325 | "RTN","SDE C07B",140, 0) | |
2326 | . S SDECF DA(2.98,SD ECIENS,"25 ")=SDSRT ;sc heduling r equest typ e | |
2327 | "RTN","SDE C07B",141, 0) | |
2328 | . S SDECF DA(2.98,SD ECIENS,"26 ")=SDNA ;ne xt ava. ap pt. indica tor | |
2329 | "RTN","SDE C07B",142, 0) | |
2330 | . S SDECF DA(2.98,SD ECIENS,"27 ")=BSDR("D DT") ;de sired date of appt | |
2331 | "RTN","SDE C07B",143, 0) | |
2332 | . S SDECF DA(2.98,SD ECIENS,"28 ")=SDFU ;fo llow-up vi sit yes/n o | |
2333 | "RTN","SDE C07B",144, 0) | |
2334 | . D UPDAT E^DIE(""," SDECFDA"," SDECIENS", "SDECERR(1 )") | |
2335 | "RTN","SDE C07B",145, 0) | |
2336 | ; | |
2337 | "RTN","SDE C07B",146, 0) | |
2338 | ; add app t to file 44 | |
2339 | "RTN","SDE C07B",147, 0) | |
2340 | K DIC,DA, X,Y,DLAYGO ,DD,DO | |
2341 | "RTN","SDE C07B",148, 0) | |
2342 | I '$D(^SC (BSDR("CLN "),"S",0)) S ^SC(BSD R("CLN")," S",0)="^44 .001DA^^" | |
2343 | "RTN","SDE C07B",149, 0) | |
2344 | I '$D(^SC (BSDR("CLN "),"S",BSD R("ADT"),0 )) D I Y< 1 Q 1_U_"E rror addin g date to file 44: C linic="_BS DR("CLN")_ " Date="_B SDR("ADT") | |
2345 | "RTN","SDE C07B",150, 0) | |
2346 | . S DIC=" ^SC("_BSDR ("CLN")_", ""S"",",DA (1)=BSDR(" CLN"),(X,D INUM)=BSDR ("ADT") | |
2347 | "RTN","SDE C07B",151, 0) | |
2348 | . S DIC(" P")="44.00 1DA",DIC(0 )="L",DLAY GO=44.001 | |
2349 | "RTN","SDE C07B",152, 0) | |
2350 | . S Y=1 I '$D(@(DIC _X_")")) D FILE^DICN | |
2351 | "RTN","SDE C07B",153, 0) | |
2352 | ; | |
2353 | "RTN","SDE C07B",154, 0) | |
2354 | K DIC,DA, X,Y,DLAYGO ,DD,DO,DIN UM | |
2355 | "RTN","SDE C07B",155, 0) | |
2356 | S DIC="^S C("_BSDR(" CLN")_","" S"","_BSDR ("ADT")_", 1," | |
2357 | "RTN","SDE C07B",156, 0) | |
2358 | S DA(2)=B SDR("CLN") ,DA(1)=BSD R("ADT"),X =BSDR("PAT ") | |
2359 | "RTN","SDE C07B",157, 0) | |
2360 | S DIC("DR ")="1////" _BSDR("LEN ")_";3///" _$E($G(BSD R("OI")),1 ,150)_";7/ ///"_BSDR( "USR")_";8 ////"_$$NO W^XLFDT_"; 30////"_BS DR("ELG")_ $S(+$G(BSD R("OVB")): ";9////O", 1:"") | |
2361 | "RTN","SDE C07B",158, 0) | |
2362 | S DIC("P" )="44.003P A",DIC(0)= "L",DLAYGO =44.003 | |
2363 | "RTN","SDE C07B",159, 0) | |
2364 | D FILE^DI CN | |
2365 | "RTN","SDE C07B",160, 0) | |
2366 | ;add cons ult link | |
2367 | "RTN","SDE C07B",161, 0) | |
2368 | I $G(BSDR ("CON")) D | |
2369 | "RTN","SDE C07B",162, 0) | |
2370 | .N SDFDA, SDIEN | |
2371 | "RTN","SDE C07B",163, 0) | |
2372 | .S SDIEN= +Y | |
2373 | "RTN","SDE C07B",164, 0) | |
2374 | .Q:SDIEN= -1 | |
2375 | "RTN","SDE C07B",165, 0) | |
2376 | .S SDFDA( 44.003,SDI EN_","_BSD R("ADT")_" ,"_BSDR("C LN")_",",6 88)=BSDR(" CON") | |
2377 | "RTN","SDE C07B",166, 0) | |
2378 | .D UPDATE ^DIE("","S DFDA") | |
2379 | "RTN","SDE C07B",167, 0) | |
2380 | ; | |
2381 | "RTN","SDE C07B",168, 0) | |
2382 | I PATCH71 7'=3 Q 0 ;*zeb 10/2 4/18 717 c omment out quit to e nable even t driver ; WTC 3/26/ 19 Enable line only if patch 7 17 not ins talled yet . | |
2383 | "RTN","SDE C07B",169, 0) | |
2384 | ; call ev ent driver | |
2385 | "RTN","SDE C07B",170, 0) | |
2386 | NEW DFN,S DT,SDCL,SD DA,SDMODE | |
2387 | "RTN","SDE C07B",171, 0) | |
2388 | S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2 | |
2389 | "RTN","SDE C07B",172, 0) | |
2390 | S SDDA=$$ SCIEN^SDEC U2(BSDR("P AT"),BSDR( "CLN"),BSD R("ADT")) | |
2391 | "RTN","SDE C07B",173, 0) | |
2392 | D MAKE^SD AMEVT(DFN, SDT,SDCL,S DDA,SDMODE ) | |
2393 | "RTN","SDE C07B",174, 0) | |
2394 | Q 0 | |
2395 | "RTN","SDE C07B",175, 0) | |
2396 | ; | |
2397 | "RTN","SDE C07B",176, 0) | |
2398 | NULLDEL(ST R) ;return "@" to de lete a fie ld if the new data w ould be nu ll ;*zeb+t ag 722 2/1 9/19 added to suppor t APPADD | |
2399 | "RTN","SDE C07B",177, 0) | |
2400 | Q $S(STR] "":STR,1:" @") | |
2401 | "RTN","SDE C07B",178, 0) | |
2402 | ; | |
2403 | "RTN","SDE C07B",179, 0) | |
2404 | SDSRT(TYP, MTR,DDT,RE Q) ;get SC HEDULING R EQUEST TYP E and NEXT AVA.APPT. INDICATOR | |
2405 | "RTN","SDE C07B",180, 0) | |
2406 | ;INPUT: | |
2407 | "RTN","SDE C07B",181, 0) | |
2408 | ; TYP = 3 for sche duled appt s, 4 for w alkins | |
2409 | "RTN","SDE C07B",182, 0) | |
2410 | ; MTR = M TRC flag ( multiple a ppointment s) 0=False (default) 1=True | |
2411 | "RTN","SDE C07B",183, 0) | |
2412 | ; DDT = D esired Dat e of Appt in fm form at | |
2413 | "RTN","SDE C07B",184, 0) | |
2414 | ; REQ = R equested B y - valid values are 1=PROVIDE R 2=PATIE NT or "" | |
2415 | "RTN","SDE C07B",185, 0) | |
2416 | ;RETURN: 2 ^ pieces : | |
2417 | "RTN","SDE C07B",186, 0) | |
2418 | ; 1 - SCHEDULIN G REQUEST TYPE inte rnal forma t - valid values: | |
2419 | "RTN","SDE C07B",187, 0) | |
2420 | ; N:'NEXT AVAILABLE' APPT. | |
2421 | "RTN","SDE C07B",188, 0) | |
2422 | ; C:OTHER THAN 'NEXT AVA.' (CL INICIAN RE Q.) | |
2423 | "RTN","SDE C07B",189, 0) | |
2424 | ; P:OTHER THAN 'NEXT AVA.' (PA TIENT REQ. ) | |
2425 | "RTN","SDE C07B",190, 0) | |
2426 | ; W:WALKIN APPT. | |
2427 | "RTN","SDE C07B",191, 0) | |
2428 | ; M:MULTIP LE APPT. B OOKING | |
2429 | "RTN","SDE C07B",192, 0) | |
2430 | ; A:AUTO R EBOOK | |
2431 | "RTN","SDE C07B",193, 0) | |
2432 | ; O:OTHER THAN 'NEXT AVA.' APP T. | |
2433 | "RTN","SDE C07B",194, 0) | |
2434 | ; 2 - NEXT AVA. APPT. IND ICATOR in ternal for mat - vali d values: | |
2435 | "RTN","SDE C07B",195, 0) | |
2436 | ; N:'NEXT AVAILABLE' APPT. | |
2437 | "RTN","SDE C07B",196, 0) | |
2438 | ; C:OTHER THAN 'NEXT AVA.' (CL INICIAN RE Q.) | |
2439 | "RTN","SDE C07B",197, 0) | |
2440 | ; P:OTHER THAN 'NEXT AVA.' (PA TIENT REQ. ) | |
2441 | "RTN","SDE C07B",198, 0) | |
2442 | ; W:WALKIN APPT. | |
2443 | "RTN","SDE C07B",199, 0) | |
2444 | ; M:MULTIP LE APPT. B OOKING | |
2445 | "RTN","SDE C07B",200, 0) | |
2446 | ; A:AUTO R EBOOK | |
2447 | "RTN","SDE C07B",201, 0) | |
2448 | ; O:OTHER THAN 'NEXT AVA.' APP T. | |
2449 | "RTN","SDE C07B",202, 0) | |
2450 | ; | |
2451 | "RTN","SDE C07B",203, 0) | |
2452 | N RET | |
2453 | "RTN","SDE C07B",204, 0) | |
2454 | S RET="" | |
2455 | "RTN","SDE C07B",205, 0) | |
2456 | ;1. If us er creates a walkin appointmen t would be W:WALKIN APPT, 0:NO T INDICATE D TO BE A 'NEXT AVA. ' APPT | |
2457 | "RTN","SDE C07B",206, 0) | |
2458 | I TYP=4 Q "W^0" | |
2459 | "RTN","SDE C07B",207, 0) | |
2460 | ;2. If us er creates an rm req uest with MTRC flagg ed | |
2461 | "RTN","SDE C07B",208, 0) | |
2462 | ; AND d esired dat e is 'toda y' | |
2463 | "RTN","SDE C07B",209, 0) | |
2464 | ; would b e M:MULTIP LE APPT. B OOKING, 3: 'NEXT AVA. ' APPT. IN DICATED BY USER & CA LCULATION | |
2465 | "RTN","SDE C07B",210, 0) | |
2466 | I +MTR,$P ($$NOW^XLF DT,".",1)= DDT Q "M^3 " | |
2467 | "RTN","SDE C07B",211, 0) | |
2468 | ;3. If us er creates an rm req uest with MTRC flagg ed | |
2469 | "RTN","SDE C07B",212, 0) | |
2470 | ; AND d esired dat e is not ' today' | |
2471 | "RTN","SDE C07B",213, 0) | |
2472 | ; would b e M:MULTIP LE APPT. B OOKING, 0: 'NOT INDIC ATED TO BE A 'NEXT A VA.' APPT | |
2473 | "RTN","SDE C07B",214, 0) | |
2474 | I +MTR,$P ($$NOW^XLF DT,".",1)' =DDT Q "M^ 0" | |
2475 | "RTN","SDE C07B",215, 0) | |
2476 | ;4. If th e user ent ers a desi red date f or the cli nic stop t hat is tod ay | |
2477 | "RTN","SDE C07B",216, 0) | |
2478 | ; then N :'NEXT AVA ILABLE' AP PT., 1:'NE XT AVA.' A PPT. INDIC ATED BY US ER | |
2479 | "RTN","SDE C07B",217, 0) | |
2480 | I $P($$NO W^XLFDT(), ".",1)=DDT Q "N^1" | |
2481 | "RTN","SDE C07B",218, 0) | |
2482 | ;5. If th e user ent ers a desi red date n ot today | |
2483 | "RTN","SDE C07B",219, 0) | |
2484 | ; AND t he request is by pat ient | |
2485 | "RTN","SDE C07B",220, 0) | |
2486 | ; then P: OTHER THAN 'NEXT AVA .' (PATIEN T REQ.); 0 :NOT INDIC ATED TO BE A 'NEXT A VA.' APPT. | |
2487 | "RTN","SDE C07B",221, 0) | |
2488 | I $P($$NO W^XLFDT(), ".",1)'=DD T,REQ=2 Q "P^0" | |
2489 | "RTN","SDE C07B",222, 0) | |
2490 | ;6. If th e user ent ers a desi red date n ot today | |
2491 | "RTN","SDE C07B",223, 0) | |
2492 | ; AND t he request is by pro vider | |
2493 | "RTN","SDE C07B",224, 0) | |
2494 | ; then C: OTHER THAN 'NEXT AVA .' (CLINIC IAN REQ.); 0:NOT IND ICATED TO BE A 'NEXT AVA.' APP T. | |
2495 | "RTN","SDE C07B",225, 0) | |
2496 | I $P($$NO W^XLFDT(), ".",1)'=DD T,REQ=1 Q "C^0" | |
2497 | "RTN","SDE C07B",226, 0) | |
2498 | Q RET | |
2499 | "RTN","SDE C07B",227, 0) | |
2500 | ; | |
2501 | "RTN","SDE C07B",228, 0) | |
2502 | ;Create A ppointment ;alb/sat 665 moved from SDEC 07 | |
2503 | "RTN","SDE C07B",229, 0) | |
2504 | APPVISTA(S DECLEN,SDE CNOTE,DFN, SDECRESD,S DECSTART,S DECWKIN,SD CL,SDECI) ; | |
2505 | "RTN","SDE C07B",230, 0) | |
2506 | N SDECC,S DECERR,SDE CRNOD | |
2507 | "RTN","SDE C07B",231, 0) | |
2508 | S SDECRNO D=$G(^SDEC (409.831,S DECRESD,0) ) | |
2509 | "RTN","SDE C07B",232, 0) | |
2510 | I SDECRNO D="" D ERR ^SDEC07(SD ECI+1,"SDE C07 Error: Unable to add appoi ntment -- invalid Re source ent ry.") Q 1 | |
2511 | "RTN","SDE C07B",233, 0) | |
2512 | S SDECERR ="" | |
2513 | "RTN","SDE C07B",234, 0) | |
2514 | I +SDCL,$ D(^SC(SDCL ,0)) D I +SDECERR D ERR^SDEC0 7(SDECI+1, SDECERR) Q SDECERR | |
2515 | "RTN","SDE C07B",235, 0) | |
2516 | . S SDECC ("PAT")=DF N | |
2517 | "RTN","SDE C07B",236, 0) | |
2518 | . S SDECC ("CLN")=SD CL | |
2519 | "RTN","SDE C07B",237, 0) | |
2520 | . S SDECC ("TYP")=3 ;3 for sch eduled app ts, 4 for walkins | |
2521 | "RTN","SDE C07B",238, 0) | |
2522 | . S:SDECW KIN SDECC( "TYP")=4 | |
2523 | "RTN","SDE C07B",239, 0) | |
2524 | . S SDECC ("ADT")=SD ECSTART | |
2525 | "RTN","SDE C07B",240, 0) | |
2526 | . S SDECC ("LEN")=SD ECLEN | |
2527 | "RTN","SDE C07B",241, 0) | |
2528 | . S SDECC ("OI")=$E( $G(SDECNOT E),1,150) ;File 44 h as 150 cha racter lim it on OTHE R field | |
2529 | "RTN","SDE C07B",242, 0) | |
2530 | . S SDECC ("OI")=$TR (SDECC("OI "),";"," " ) ;No semi colons all owed | |
2531 | "RTN","SDE C07B",243, 0) | |
2532 | . S SDECC ("OI")=$$S TRIP^SDEC0 7(SDECC("O I")) ;Stri p control characters from note | |
2533 | "RTN","SDE C07B",244, 0) | |
2534 | . S SDECC ("RES")=SD ECRESD | |
2535 | "RTN","SDE C07B",245, 0) | |
2536 | . S SDECC ("USR")=DU Z | |
2537 | "RTN","SDE C07B",246, 0) | |
2538 | . S SDECE RR=$$MAKE^ SDEC07B(.S DECC) | |
2539 | "RTN","SDE C07B",247, 0) | |
2540 | . Q:SDECE RR | |
2541 | "RTN","SDE C07B",248, 0) | |
2542 | . D AVUPD T^SDEC07(S DCL,SDECST ART,SDECLE N) | |
2543 | "RTN","SDE C07B",249, 0) | |
2544 | . ;L | |
2545 | "RTN","SDE C07B",250, 0) | |
2546 | . Q | |
2547 | "RTN","SDE C07B",251, 0) | |
2548 | Q +SDECER R | |
2549 | "RTN","SDE C07B",252, 0) | |
2550 | ; | |
2551 | "RTN","SDE C07B",253, 0) | |
2552 | PATCHSTS(N UMBER) ; 7 17/722 WTC 3/26/19 | |
2553 | "RTN","SDE C07B",254, 0) | |
2554 | ; | |
2555 | "RTN","SDE C07B",255, 0) | |
2556 | ; Determ ine if pat ch has bee n installe d. Return status fr om Install file (#9. 7). | |
2557 | "RTN","SDE C07B",256, 0) | |
2558 | ; | |
2559 | "RTN","SDE C07B",257, 0) | |
2560 | N X,DA ; | |
2561 | "RTN","SDE C07B",258, 0) | |
2562 | S DA=$O(^ XPD(9.7,"B ","SD*5.3* "_NUMBER,9 9999),-1) I 'DA Q "" ; | |
2563 | "RTN","SDE C07B",259, 0) | |
2564 | S X=$P($G (^XPD(9.7, DA,0)),U,9 ) Q X ; | |
2565 | "RTN","SDE C07B",260, 0) | |
2566 | ; | |
2567 | "RTN","SDE C08") | |
2568 | 0^5^B21703 6692^B2096 47726 | |
2569 | "RTN","SDE C08",1,0) | |
2570 | SDEC08 ;AL B/SAT/JSM - VISTA SC HEDULING R PCS ;JUN 2 1, 2017 | |
2571 | "RTN","SDE C08",2,0) | |
2572 | ;;5.3;Sch eduling;** 627,651,65 8,665,722, 717**;Aug 13, 1993;B uild 7 | |
2573 | "RTN","SDE C08",3,0) | |
2574 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | |
2575 | "RTN","SDE C08",4,0) | |
2576 | ; | |
2577 | "RTN","SDE C08",5,0) | |
2578 | Q | |
2579 | "RTN","SDE C08",6,0) | |
2580 | ; | |
2581 | "RTN","SDE C08",7,0) | |
2582 | APPDEL(SDE CY,SDECAPT ID,SDECTYP ,SDECCR,SD ECNOT,SDEC DATE,SDUSE R) ;Cancel s appointm ent | |
2583 | "RTN","SDE C08",8,0) | |
2584 | ;APPDEL(S DECY,SDECA PTID,SDECT YP,SDECCR, SDECNOT,SD ECDATE,SDU SER) exte rnal param eter tag i s in SDEC | |
2585 | "RTN","SDE C08",9,0) | |
2586 | ;SDECAPTI D - (requi red) point er to SDEC APPOINTME NT file | |
2587 | "RTN","SDE C08",10,0) | |
2588 | ;SDECTYP - (requi red) appoi ntment Sta tus valid values: | |
2589 | "RTN","SDE C08",11,0) | |
2590 | ; C= CANCELLED BY CLINIC | |
2591 | "RTN","SDE C08",12,0) | |
2592 | ; PC= CANCELLED BY PATIENT | |
2593 | "RTN","SDE C08",13,0) | |
2594 | ;SDECCR - (optio nal) point er to CANC ELLATION R EASON File (409.2) | |
2595 | "RTN","SDE C08",14,0) | |
2596 | ;SDECNOT - (optio nal) text representi ng user no te | |
2597 | "RTN","SDE C08",15,0) | |
2598 | ;SDECDATE - (opti onal) Canc el Date/Ti me in exte rnal forma t; default s to NOW | |
2599 | "RTN","SDE C08",16,0) | |
2600 | ;SDUSER - (opti onal) User that canc elled appt ; defaults to curren t user | |
2601 | "RTN","SDE C08",17,0) | |
2602 | ;Returns error code in record set field ERRORID | |
2603 | "RTN","SDE C08",18,0) | |
2604 | ; | |
2605 | "RTN","SDE C08",19,0) | |
2606 | N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CERR | |
2607 | "RTN","SDE C08",20,0) | |
2608 | N SDECLOC ,SDECLEN,S DECSCIEN,S DECSCIEN1 | |
2609 | "RTN","SDE C08",21,0) | |
2610 | N SDECNOE V,SDECSC1, SDRET | |
2611 | "RTN","SDE C08",22,0) | |
2612 | N %DT,X,Y | |
2613 | "RTN","SDE C08",23,0) | |
2614 | S SDECNOE V=1 ;Don't execute S DEC CANCEL APPOINTME NT protoco l | |
2615 | "RTN","SDE C08",24,0) | |
2616 | S SDECSCI EN1=0 | |
2617 | "RTN","SDE C08",25,0) | |
2618 | ; | |
2619 | "RTN","SDE C08",26,0) | |
2620 | S SDECI=0 | |
2621 | "RTN","SDE C08",27,0) | |
2622 | S SDECY=" ^TMP(""SDE C08"","_$J _",""APPDE L"")" | |
2623 | "RTN","SDE C08",28,0) | |
2624 | K @SDECY | |
2625 | "RTN","SDE C08",29,0) | |
2626 | S @SDECY@ (SDECI)="T 00020ERROR ID"_$C(30) | |
2627 | "RTN","SDE C08",30,0) | |
2628 | S SDECI=S DECI+1 | |
2629 | "RTN","SDE C08",31,0) | |
2630 | ;validate SDEC APPO INTMENT po inter (req uired) | |
2631 | "RTN","SDE C08",32,0) | |
2632 | I '$D(^SD EC(409.84, +$G(SDECAP TID),0)) D ERR(SDECI ,"SDEC08: Invalid Ap pointment ID") Q | |
2633 | "RTN","SDE C08",33,0) | |
2634 | ;validate appointme nt status type (requ ired) | |
2635 | "RTN","SDE C08",34,0) | |
2636 | S SDECTYP =$G(SDECTY P) | |
2637 | "RTN","SDE C08",35,0) | |
2638 | S SDECTYP =$S(SDECTY P="C":"C", SDECTYP="C ANCELLED B Y CLINIC": "C",SDECTY P="PC":"PC ",SDECTYP= "CANCELLED BY PATIEN T":"PC",1: "") | |
2639 | "RTN","SDE C08",36,0) | |
2640 | I SDECTYP ="" D ERR( SDECI,"SDE C08: Inval id status type") Q | |
2641 | "RTN","SDE C08",37,0) | |
2642 | ;validate CANCELLAT ION REASON pointer ( optional) | |
2643 | "RTN","SDE C08",38,0) | |
2644 | S SDECCR= $G(SDECCR) | |
2645 | "RTN","SDE C08",39,0) | |
2646 | I SDECCR' ="" I '$D( ^SD(409.2, +SDECCR,0) ) S SDECCR =$O(^SD(40 9.2,"B","S DECCR",0)) | |
2647 | "RTN","SDE C08",40,0) | |
2648 | ;validate SDECNOT | |
2649 | "RTN","SDE C08",41,0) | |
2650 | S SDECNOT =$TR(SDECN OT,"^"," " ) ;alb/sa t 658 - st rip out ^ | |
2651 | "RTN","SDE C08",42,0) | |
2652 | ;validate cancel da te/time | |
2653 | "RTN","SDE C08",43,0) | |
2654 | S SDECDAT E=$G(SDECD ATE) | |
2655 | "RTN","SDE C08",44,0) | |
2656 | I SDECDAT E'="" S %D T="T" S X= SDECDATE D ^%DT S SD ECDATE=Y I Y=-1 S SD ECDATE="" | |
2657 | "RTN","SDE C08",45,0) | |
2658 | I $G(SDEC DATE)="" S SDECDATE= $$NOW^XLFD T | |
2659 | "RTN","SDE C08",46,0) | |
2660 | ;validate user | |
2661 | "RTN","SDE C08",47,0) | |
2662 | S SDUSER= $G(SDUSER) | |
2663 | "RTN","SDE C08",48,0) | |
2664 | I SDUSER' ="" I '$D( ^VA(200,+S DUSER,0)) S SDUSER=" " | |
2665 | "RTN","SDE C08",49,0) | |
2666 | I SDUSER= "" S SDUSE R=DUZ | |
2667 | "RTN","SDE C08",50,0) | |
2668 | ; | |
2669 | "RTN","SDE C08",51,0) | |
2670 | TSTART | |
2671 | "RTN","SDE C08",52,0) | |
2672 | ; | |
2673 | "RTN","SDE C08",53,0) | |
2674 | ;Delete A PPOINTMENT entries | |
2675 | "RTN","SDE C08",54,0) | |
2676 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |
2677 | "RTN","SDE C08",55,0) | |
2678 | S SDECPAT ID=$P(SDEC NOD,U,5) | |
2679 | "RTN","SDE C08",56,0) | |
2680 | S SDECSTA RT=$P(SDEC NOD,U) | |
2681 | "RTN","SDE C08",57,0) | |
2682 | ; | |
2683 | "RTN","SDE C08",58,0) | |
2684 | ;Lock SDE C node | |
2685 | "RTN","SDE C08",59,0) | |
2686 | L +^SDEC( 409.84,SDE CPATID):5 I '$T D ER R(SDECI+1, "Another u ser is wor king with this patie nt's recor d. Please try again later") T ROLLBACK Q | |
2687 | "RTN","SDE C08",60,0) | |
2688 | ;cancel c heck-in if walk-in | |
2689 | "RTN","SDE C08",61,0) | |
2690 | I $P(SDEC NOD,U,13)= "y" D | |
2691 | "RTN","SDE C08",62,0) | |
2692 | .S SDRET= "" | |
2693 | "RTN","SDE C08",63,0) | |
2694 | .D CHECKI N^SDEC25(. SDRET,SDEC APTID,"@") | |
2695 | "RTN","SDE C08",64,0) | |
2696 | ;cancel S DEC APPOIN TMENT reco rd | |
2697 | "RTN","SDE C08",65,0) | |
2698 | D SDECCAN (SDECAPTID ,SDECTYP,S DECCR,SDEC NOT,SDECDA TE,SDUSER, 1) | |
2699 | "RTN","SDE C08",66,0) | |
2700 | ; | |
2701 | "RTN","SDE C08",67,0) | |
2702 | S SDECSC1 =$P(SDECNO D,U,7) ;RE SOURCEID | |
2703 | "RTN","SDE C08",68,0) | |
2704 | I SDECSC1 ]"",$D(^SD EC(409.831 ,SDECSC1,0 )) D I +$ G(SDECZ) S SDECERR=+ SDECZ D ER R(SDECI,$P (SDECZ,U,2 )) Q | |
2705 | "RTN","SDE C08",69,0) | |
2706 | . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0) | |
2707 | "RTN","SDE C08",70,0) | |
2708 | . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION | |
2709 | "RTN","SDE C08",71,0) | |
2710 | . Q:'+SDE CLOC | |
2711 | "RTN","SDE C08",72,0) | |
2712 | . S SDECS CIEN=$$SCI EN^SDECU2( SDECPATID, SDECLOC,SD ECSTART) I SDECSCIEN ="" D I ' SDECZ Q ; Q:SDECZ | |
2713 | "RTN","SDE C08",73,0) | |
2714 | . . S SDE CERR="SDEC 08: Unable to find a ssociated appointmen t for this patient. " | |
2715 | "RTN","SDE C08",74,0) | |
2716 | . . S SDE CZ=1 | |
2717 | "RTN","SDE C08",75,0) | |
2718 | . . I '$D (^SDEC(409 .831,SDECS C1,20)) S SDECZ=0 Q | |
2719 | "RTN","SDE C08",76,0) | |
2720 | . . N SDE C1 | |
2721 | "RTN","SDE C08",77,0) | |
2722 | . . S SDE C1=0 | |
2723 | "RTN","SDE C08",78,0) | |
2724 | . . F S SDEC1=$O(^ SDEC(409.8 31,SDECSC1 ,20,SDEC1) ) Q:'+SDEC 1 Q:SDECZ =0 D | |
2725 | "RTN","SDE C08",79,0) | |
2726 | . . . Q:' $D(^SDEC(4 09.831,SDE CSC1,20,SD EC1,0)) | |
2727 | "RTN","SDE C08",80,0) | |
2728 | . . . S S DECLOC=$P( ^SDEC(409. 831,SDECSC 1,20,SDEC1 ,0),U) | |
2729 | "RTN","SDE C08",81,0) | |
2730 | . . . S S DECSCIEN=$ $SCIEN^SDE CU2(SDECPA TID,SDECLO C,SDECSTAR T) I +SDEC SCIEN S SD ECZ=0 Q | |
2731 | "RTN","SDE C08",82,0) | |
2732 | . S SDECE RR="SDEC08 : CANCEL^S DEC08 Retu rned " | |
2733 | "RTN","SDE C08",83,0) | |
2734 | . I SDECL OC']"" S S DECZ="0^Un able to fi nd associa ted appoin tment for this patie nt." Q | |
2735 | "RTN","SDE C08",84,0) | |
2736 | . I '$D(^ SC(SDECLOC ,0)) S SDE CZ="0^Unab le to find associate d appointm ent for th is patient ." Q | |
2737 | "RTN","SDE C08",85,0) | |
2738 | . S SDECN OD=$G(^SC( SDECLOC,"S ",SDECSTAR T,1,+SDECS CIEN,0)) | |
2739 | "RTN","SDE C08",86,0) | |
2740 | . I SDECN OD="" S SD ECZ="0^Una ble to fin d associat ed appoint ment for t his patien t." Q | |
2741 | "RTN","SDE C08",87,0) | |
2742 | . S SDECL EN=$P(SDEC NOD,U,2) | |
2743 | "RTN","SDE C08",88,0) | |
2744 | . D APCAN (.SDECZ,SD ECLOC,SDEC PATID,SDEC START,SDEC APTID,SDEC LEN) | |
2745 | "RTN","SDE C08",89,0) | |
2746 | . Q:+$G(S DECZ) | |
2747 | "RTN","SDE C08",90,0) | |
2748 | . D AVUPD T(SDECLOC, SDECSTART, SDECLEN) | |
2749 | "RTN","SDE C08",91,0) | |
2750 | . D AR433 D^SDECAR2( SDECAPTID) | |
2751 | "RTN","SDE C08",92,0) | |
2752 | . ;L | |
2753 | "RTN","SDE C08",93,0) | |
2754 | ; | |
2755 | "RTN","SDE C08",94,0) | |
2756 | TCOMMIT | |
2757 | "RTN","SDE C08",95,0) | |
2758 | L -^SDEC( 409.84,SDE CPATID) | |
2759 | "RTN","SDE C08",96,0) | |
2760 | S SDECI=S DECI+1 | |
2761 | "RTN","SDE C08",97,0) | |
2762 | S @SDECY@ (SDECI)="" _$C(30) | |
2763 | "RTN","SDE C08",98,0) | |
2764 | S SDECI=S DECI+1 | |
2765 | "RTN","SDE C08",99,0) | |
2766 | S @SDECY@ (SDECI)=$C (31) | |
2767 | "RTN","SDE C08",100,0 ) | |
2768 | Q | |
2769 | "RTN","SDE C08",101,0 ) | |
2770 | ; | |
2771 | "RTN","SDE C08",102,0 ) | |
2772 | AVUPDT(SDE CSCD,SDECS TART,SDECL EN) ;Updat e Clinic a vailabilit y | |
2773 | "RTN","SDE C08",103,0 ) | |
2774 | ;See SDCN P0 | |
2775 | "RTN","SDE C08",104,0 ) | |
2776 | N HSI,I,S ,SB,SD,SDD IF,SI,SL,S S,ST,START DAY,STR,X, Y | |
2777 | "RTN","SDE C08",105,0 ) | |
2778 | S (SD,S)= SDECSTART | |
2779 | "RTN","SDE C08",106,0 ) | |
2780 | S I=SDECS CD | |
2781 | "RTN","SDE C08",107,0 ) | |
2782 | Q:'$D(^SC (I,"ST",SD \1,1)) | |
2783 | "RTN","SDE C08",108,0 ) | |
2784 | S SL=^SC( I,"SL"),X= $P(SL,U,3) ,STARTDAY= $S($L(X):X ,1:8),SB=S TARTDAY-1/ 100,X=$P(S L,U,6),HSI =$S(X:X,1: 4),SI=$S(X ="":4,X<3: 4,X:X,1:4) ,STR="#@!$ * XXWVUTSR QPONMLKJIH GFEDCBA012 3456789jkl mnopqrstuv wxyz",SDDI F=$S(HSI<3 :8/HSI,1:2 ) | |
2785 | "RTN","SDE C08",109,0 ) | |
2786 | S SL=SDEC LEN | |
2787 | "RTN","SDE C08",110,0 ) | |
2788 | S S=^SC(I ,"ST",SD\1 ,1),Y=SD#1 -SB*100,ST =Y#1*SI\.6 +(Y\1*SI), SS=SL*HSI/ 60 | |
2789 | "RTN","SDE C08",111,0 ) | |
2790 | I Y'<1 F I=ST+ST:SD DIF S Y=$E (STR,$F(ST R,$E(S,I+1 ))) Q:Y="" S S=$E(S ,1,I)_Y_$E (S,I+2,999 ),SS=SS-1 Q:SS'>0 | |
2791 | "RTN","SDE C08",112,0 ) | |
2792 | S ^SC(SDE CSCD,"ST", SD\1,1)=S | |
2793 | "RTN","SDE C08",113,0 ) | |
2794 | Q | |
2795 | "RTN","SDE C08",114,0 ) | |
2796 | ; | |
2797 | "RTN","SDE C08",115,0 ) | |
2798 | APCAN(SDEC Z,SDECLOC, SDECDFN,SD ECSD,SDECA PTID,SDECL EN) ; | |
2799 | "RTN","SDE C08",116,0 ) | |
2800 | ;Cancel a ppointment for patie nt SDECDFN in clinic SDECSC1 | |
2801 | "RTN","SDE C08",117,0 ) | |
2802 | ;at time SDECSD | |
2803 | "RTN","SDE C08",118,0 ) | |
2804 | N SDECPNO D,SDECC,DA ,DIE,DPTST ,DR,%H | |
2805 | "RTN","SDE C08",119,0 ) | |
2806 | ;save dat a into SDE C APPOINTM ENT in cas e of un-ca ncel (stat us & appt length) | |
2807 | "RTN","SDE C08",120,0 ) | |
2808 | S SDECPNO D=^DPT(SDE CPATID,"S" ,SDECSD,0) | |
2809 | "RTN","SDE C08",121,0 ) | |
2810 | S DPTST=$ P(SDECPNOD ,U,2) | |
2811 | "RTN","SDE C08",122,0 ) | |
2812 | S DIE=409 .84 | |
2813 | "RTN","SDE C08",123,0 ) | |
2814 | S DA=SDEC APTID | |
2815 | "RTN","SDE C08",124,0 ) | |
2816 | S DR=".17 ///"_DPTST _";"_".18/ //"_SDECLE N | |
2817 | "RTN","SDE C08",125,0 ) | |
2818 | D ^DIE | |
2819 | "RTN","SDE C08",126,0 ) | |
2820 | S SDECC(" PAT")=SDEC DFN | |
2821 | "RTN","SDE C08",127,0 ) | |
2822 | S SDECC(" CLN")=SDEC LOC | |
2823 | "RTN","SDE C08",128,0 ) | |
2824 | S SDECC(" TYP")=SDEC TYP | |
2825 | "RTN","SDE C08",129,0 ) | |
2826 | S SDECC(" ADT")=SDEC SD | |
2827 | "RTN","SDE C08",130,0 ) | |
2828 | S %H=$H D YMD^%DTC | |
2829 | "RTN","SDE C08",131,0 ) | |
2830 | S SDECC(" CDT")=SDEC DATE ;X+ % | |
2831 | "RTN","SDE C08",132,0 ) | |
2832 | S SDECC(" NOT")=SDEC NOT | |
2833 | "RTN","SDE C08",133,0 ) | |
2834 | S:+SDECCR SDECC("CR ")=SDECCR | |
2835 | "RTN","SDE C08",134,0 ) | |
2836 | S SDECC(" USR")=SDUS ER | |
2837 | "RTN","SDE C08",135,0 ) | |
2838 | ; | |
2839 | "RTN","SDE C08",136,0 ) | |
2840 | S SDECZ=$ $CANCEL(.S DECC) | |
2841 | "RTN","SDE C08",137,0 ) | |
2842 | Q | |
2843 | "RTN","SDE C08",138,0 ) | |
2844 | ; | |
2845 | "RTN","SDE C08",139,0 ) | |
2846 | SDECCAN(SD ECAPTID,SD ECTYP,SDEC CR,SDECNOT ,SDECDATE, SDUSER,SDF ) ;cancel SDEC APPOI NTMENT ent ry | |
2847 | "RTN","SDE C08",140,0 ) | |
2848 | ;SDECAPTI D - (requi red) point er to SDEC APPOINTME NT file | |
2849 | "RTN","SDE C08",141,0 ) | |
2850 | ;SDECTYP - (requi red) appoi ntment Sta tus valid values: | |
2851 | "RTN","SDE C08",142,0 ) | |
2852 | ; C= CANCELLED BY CLINIC | |
2853 | "RTN","SDE C08",143,0 ) | |
2854 | ; PC= CANCELLED BY PATIENT | |
2855 | "RTN","SDE C08",144,0 ) | |
2856 | ;SDECCR - (optio nal) point er to CANC ELLATION R EASON File (409.2) | |
2857 | "RTN","SDE C08",145,0 ) | |
2858 | ;SDECNOT - (optio nal) text representi ng user no te | |
2859 | "RTN","SDE C08",146,0 ) | |
2860 | ;SDECDATE - (opti onal) Canc el Date/Ti me in fm f ormat; def aults to N OW) ; | |
2861 | "RTN","SDE C08",147,0 ) | |
2862 | ;SDF - (optio nal) flags | |
2863 | "RTN","SDE C08",148,0 ) | |
2864 | ; 1. ca lled from GUI (updat e consult only if ca lled from GUI) | |
2865 | "RTN","SDE C08",149,0 ) | |
2866 | ; 2. ca lled from cancel in SDAM (CAN^ SDCNP0) (d o not reop en appt) | |
2867 | "RTN","SDE C08",150,0 ) | |
2868 | ;Cancel S DEC APPOIN TMENT entr y | |
2869 | "RTN","SDE C08",151,0 ) | |
2870 | N DFN,PRO VIEN,Y | |
2871 | "RTN","SDE C08",152,0 ) | |
2872 | N SAVESTR T,SDAPTYP, SDCL,SDI,S DIEN,SDECI ENS,SDECFD A,SDECMSG, SDECWP,SDR ES,SDT ; alb/sat 65 1 add SAVE STRT and S DRES | |
2873 | "RTN","SDE C08",153,0 ) | |
2874 | S SDF=$G( SDF,0) | |
2875 | "RTN","SDE C08",154,0 ) | |
2876 | S DFN=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 05) ;alb /sat 658 | |
2877 | "RTN","SDE C08",155,0 ) | |
2878 | S SDT=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 01,"I") | |
2879 | "RTN","SDE C08",156,0 ) | |
2880 | S SAVESTR T=$$GET1^D IQ(409.84, SDECAPTID_ ",",.01) ;alb/sat 651 | |
2881 | "RTN","SDE C08",157,0 ) | |
2882 | S SDRES=$ $GET1^DIQ( 409.84,SDE CAPTID_"," ,.07,"I") ;alb/sat 651 | |
2883 | "RTN","SDE C08",158,0 ) | |
2884 | S SDECIEN S=SDECAPTI D_"," | |
2885 | "RTN","SDE C08",159,0 ) | |
2886 | S SDECFDA (409.84,SD ECIENS,.12 )=$S($G(SD ECDATE)'=" ":SDECDATE ,1:$$NOW^X LFDT) | |
2887 | "RTN","SDE C08",160,0 ) | |
2888 | S SDECFDA (409.84,SD ECIENS,.12 1)=$S($G(S DUSER)'="" :SDUSER,1: DUZ) | |
2889 | "RTN","SDE C08",161,0 ) | |
2890 | S:$G(SDEC CR)'="" SD ECFDA(409. 84,SDECIEN S,.122)=SD ECCR | |
2891 | "RTN","SDE C08",162,0 ) | |
2892 | S SDECFDA (409.84,SD ECIENS,.17 )=SDECTYP | |
2893 | "RTN","SDE C08",163,0 ) | |
2894 | K SDECMSG | |
2895 | "RTN","SDE C08",164,0 ) | |
2896 | D FILE^DI E("","SDEC FDA","SDEC MSG") | |
2897 | "RTN","SDE C08",165,0 ) | |
2898 | S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" ) | |
2899 | "RTN","SDE C08",166,0 ) | |
2900 | ;alb/sat 658 modifi cation beg in | |
2901 | "RTN","SDE C08",167,0 ) | |
2902 | S SDECNOT =$G(SDECNO T),SDECNOT =$E(SDECNO T,1,160) | |
2903 | "RTN","SDE C08",168,0 ) | |
2904 | I $L(SDEC NOT)>2,'$E (SDF,2) K SDECFDA S SDECFDA(2. 98,SDT_"," _DFN_",",1 7)=SDECNOT D UPDATE^ DIE("","SD ECFDA") | |
2905 | "RTN","SDE C08",169,0 ) | |
2906 | ;alb/sat 658 modifi cation end | |
2907 | "RTN","SDE C08",170,0 ) | |
2908 | I $P(SDAP TYP,";",2) ="GMR(123, ",$E(SDF,1 ) D | |
2909 | "RTN","SDE C08",171,0 ) | |
2910 | .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID) | |
2911 | "RTN","SDE C08",172,0 ) | |
2912 | .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ") | |
2913 | "RTN","SDE C08",173,0 ) | |
2914 | .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",2, SDECTYP,SD ECNOT,SAVE STRT,SDRES ) ;alb/sa t 651 adde d SAVESTRT | |
2915 | "RTN","SDE C08",174,0 ) | |
2916 | I $P(SDAP TYP,";",2) ="SDWL(409 .3," D ; update EWL | |
2917 | "RTN","SDE C08",175,0 ) | |
2918 | .S DFN=$$ GET1^DIQ(4 09.3,$P(SD APTYP,";", 1)_",",.01 ,"I") | |
2919 | "RTN","SDE C08",176,0 ) | |
2920 | .Q:DFN="" | |
2921 | "RTN","SDE C08",177,0 ) | |
2922 | .S SDIEN= 0 F S SDI EN=$O(^SDW L(409.3,"B ",DFN,SDIE N)) Q:SDIE N="" D | |
2923 | "RTN","SDE C08",178,0 ) | |
2924 | ..I $$GET 1^DIQ(409. 3,SDIEN_", ",13,"I")= SDT D | |
2925 | "RTN","SDE C08",179,0 ) | |
2926 | ...K SDEC FDA,SDECMS G,SDECWP | |
2927 | "RTN","SDE C08",180,0 ) | |
2928 | ...;S SDI EN=$P(SDAP TYP,";",1) | |
2929 | "RTN","SDE C08",181,0 ) | |
2930 | ...S SDEC FDA(409.3, SDIEN_",", 13)="@" | |
2931 | "RTN","SDE C08",182,0 ) | |
2932 | ...S SDEC FDA(409.3, SDIEN_",", 13.1)="@" | |
2933 | "RTN","SDE C08",183,0 ) | |
2934 | ...S SDEC FDA(409.3, SDIEN_",", 13.2)="@" | |
2935 | "RTN","SDE C08",184,0 ) | |
2936 | ...S SDEC FDA(409.3, SDIEN_",", 13.3)="@" | |
2937 | "RTN","SDE C08",185,0 ) | |
2938 | ...S SDEC FDA(409.3, SDIEN_",", 13.4)="@" | |
2939 | "RTN","SDE C08",186,0 ) | |
2940 | ...S SDEC FDA(409.3, SDIEN_",", 13.5)="@" | |
2941 | "RTN","SDE C08",187,0 ) | |
2942 | ...S SDEC FDA(409.3, SDIEN_",", 13.6)="@" | |
2943 | "RTN","SDE C08",188,0 ) | |
2944 | ...S SDEC FDA(409.3, SDIEN_",", 13.7)="@" | |
2945 | "RTN","SDE C08",189,0 ) | |
2946 | ...S SDEC FDA(409.3, SDIEN_",", 13.8)="@" | |
2947 | "RTN","SDE C08",190,0 ) | |
2948 | ...D UPDA TE^DIE("", "SDECFDA") | |
2949 | "RTN","SDE C08",191,0 ) | |
2950 | ...D:'$E( SDF,2) WLO PEN^SDECWL ("","",SDI EN) ;alb/ jsm 658 do not reope n if calle d from SDE C^SDCNP0 | |
2951 | "RTN","SDE C08",192,0 ) | |
2952 | I $P(SDAP TYP,";",2) ="SDEC(409 .85," D ;update AP PT | |
2953 | "RTN","SDE C08",193,0 ) | |
2954 | .K SDECFD A,SDECMSG, SDECWP | |
2955 | "RTN","SDE C08",194,0 ) | |
2956 | .D:'$E(SD F,2) AROPE N^SDECAR(" ",SDECAPTI D) ;alb/j sm 658 do not reopen if called from SDEC ^SDCNP0 | |
2957 | "RTN","SDE C08",195,0 ) | |
2958 | .S SDIEN= $P(SDAPTYP ,";",1) | |
2959 | "RTN","SDE C08",196,0 ) | |
2960 | .S SDECFD A(409.85,S DIEN_",",1 3)="@" | |
2961 | "RTN","SDE C08",197,0 ) | |
2962 | .S SDECFD A(409.85,S DIEN_",",1 3.1)="@" | |
2963 | "RTN","SDE C08",198,0 ) | |
2964 | .S SDECFD A(409.85,S DIEN_",",1 3.2)="@" | |
2965 | "RTN","SDE C08",199,0 ) | |
2966 | .S SDECFD A(409.85,S DIEN_",",1 3.3)="@" | |
2967 | "RTN","SDE C08",200,0 ) | |
2968 | .S SDECFD A(409.85,S DIEN_",",1 3.4)="@" | |
2969 | "RTN","SDE C08",201,0 ) | |
2970 | .S SDECFD A(409.85,S DIEN_",",1 3.5)="@" | |
2971 | "RTN","SDE C08",202,0 ) | |
2972 | .S SDECFD A(409.85,S DIEN_",",1 3.6)="@" | |
2973 | "RTN","SDE C08",203,0 ) | |
2974 | .S SDECFD A(409.85,S DIEN_",",1 3.7)="@" | |
2975 | "RTN","SDE C08",204,0 ) | |
2976 | .S SDECFD A(409.85,S DIEN_",",1 3.8)="@" | |
2977 | "RTN","SDE C08",205,0 ) | |
2978 | .D UPDATE ^DIE("","S DECFDA") | |
2979 | "RTN","SDE C08",206,0 ) | |
2980 | Q | |
2981 | "RTN","SDE C08",207,0 ) | |
2982 | ; | |
2983 | "RTN","SDE C08",208,0 ) | |
2984 | CANEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CANCEL A PPOINTMENT event | |
2985 | "RTN","SDE C08",209,0 ) | |
2986 | ;when app ointments cancelled via PIMS i nterface. | |
2987 | "RTN","SDE C08",210,0 ) | |
2988 | ;Propagat es cancell ation to S DECAPPT an d raises r efresh eve nt to runn ing GUI cl ients | |
2989 | "RTN","SDE C08",211,0 ) | |
2990 | N SDECFOU ND,SDECRES | |
2991 | "RTN","SDE C08",212,0 ) | |
2992 | Q:+$G(SDE CNOEV) | |
2993 | "RTN","SDE C08",213,0 ) | |
2994 | Q:'+$G(SD ECSC) | |
2995 | "RTN","SDE C08",214,0 ) | |
2996 | S SDECFOU ND=0 | |
2997 | "RTN","SDE C08",215,0 ) | |
2998 | I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0)) S SDECFOU ND=$$CANEV T1(SDECRES ,SDECSTART ,SDECPAT) | |
2999 | "RTN","SDE C08",216,0 ) | |
3000 | I SDECFOU ND D CANEV T3(SDECRES ) Q | |
3001 | "RTN","SDE C08",217,0 ) | |
3002 | Q | |
3003 | "RTN","SDE C08",218,0 ) | |
3004 | ; | |
3005 | "RTN","SDE C08",219,0 ) | |
3006 | CANEVT1(SD ECRES,SDEC START,SDEC PAT) ; | |
3007 | "RTN","SDE C08",220,0 ) | |
3008 | ;Get appo intment id in SDECAP T | |
3009 | "RTN","SDE C08",221,0 ) | |
3010 | ;If found , call SDE CCAN(SDECA PPT) and r eturn 1 | |
3011 | "RTN","SDE C08",222,0 ) | |
3012 | ;else ret urn 0 | |
3013 | "RTN","SDE C08",223,0 ) | |
3014 | N SDECFOU ND,SDECAPP T | |
3015 | "RTN","SDE C08",224,0 ) | |
3016 | S SDECFOU ND=0 | |
3017 | "RTN","SDE C08",225,0 ) | |
3018 | Q:'+SDECR ES SDECFOU ND | |
3019 | "RTN","SDE C08",226,0 ) | |
3020 | Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND | |
3021 | "RTN","SDE C08",227,0 ) | |
3022 | S SDECAPP T=0 F S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT)) Q:'+SDECA PPT D Q: SDECFOUND | |
3023 | "RTN","SDE C08",228,0 ) | |
3024 | . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D="" | |
3025 | "RTN","SDE C08",229,0 ) | |
3026 | . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S SDECFOUND =1 Q | |
3027 | "RTN","SDE C08",230,0 ) | |
3028 | I SDECFOU ND,+$G(SDE CAPPT) D S DECCAN(SDE CAPPT,,,,, ,1) | |
3029 | "RTN","SDE C08",231,0 ) | |
3030 | Q SDECFOU ND | |
3031 | "RTN","SDE C08",232,0 ) | |
3032 | ; | |
3033 | "RTN","SDE C08",233,0 ) | |
3034 | CANEVT3(SD ECRES) ; | |
3035 | "RTN","SDE C08",234,0 ) | |
3036 | ;Call Rai seEvent to notify GU I clients | |
3037 | "RTN","SDE C08",235,0 ) | |
3038 | ; | |
3039 | "RTN","SDE C08",236,0 ) | |
3040 | Q | |
3041 | "RTN","SDE C08",237,0 ) | |
3042 | N SDECRES N | |
3043 | "RTN","SDE C08",238,0 ) | |
3044 | S SDECRES N=$G(^SDEC (409.831,S DECRES,0)) | |
3045 | "RTN","SDE C08",239,0 ) | |
3046 | Q:SDECRES N="" | |
3047 | "RTN","SDE C08",240,0 ) | |
3048 | S SDECRES N=$P(SDECR ESN,"^") | |
3049 | "RTN","SDE C08",241,0 ) | |
3050 | ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","") | |
3051 | "RTN","SDE C08",242,0 ) | |
3052 | ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN) | |
3053 | "RTN","SDE C08",243,0 ) | |
3054 | Q | |
3055 | "RTN","SDE C08",244,0 ) | |
3056 | ; | |
3057 | "RTN","SDE C08",245,0 ) | |
3058 | CANCEL(BSD R) ;EP; ca lled to ca ncel appt | |
3059 | "RTN","SDE C08",246,0 ) | |
3060 | ; | |
3061 | "RTN","SDE C08",247,0 ) | |
3062 | ; Make ca ll using: S ERR=$$CA NCEL^SDEC0 8(.ARRAY) | |
3063 | "RTN","SDE C08",248,0 ) | |
3064 | ; | |
3065 | "RTN","SDE C08",249,0 ) | |
3066 | ; Input A rray - | |
3067 | "RTN","SDE C08",250,0 ) | |
3068 | ; BSDR("P AT") = ien of patien t in file 2 | |
3069 | "RTN","SDE C08",251,0 ) | |
3070 | ; BSDR("C LN") = ien of clinic in file 4 4 | |
3071 | "RTN","SDE C08",252,0 ) | |
3072 | ; BSDR("T YP") = C f or cancele d by clini c; PC for patient ca nceled | |
3073 | "RTN","SDE C08",253,0 ) | |
3074 | ; BSDR("A DT") = app ointment d ate and ti me | |
3075 | "RTN","SDE C08",254,0 ) | |
3076 | ; BSDR("C DT") = can cel date a nd time | |
3077 | "RTN","SDE C08",255,0 ) | |
3078 | ; BSDR("U SR") = use r who canc eled appt | |
3079 | "RTN","SDE C08",256,0 ) | |
3080 | ; BSDR("C R") = can cel reason - pointer to file 4 09.2 | |
3081 | "RTN","SDE C08",257,0 ) | |
3082 | ; BSDR("N OT") = can cel remark s - option al notes t o 160 char acters | |
3083 | "RTN","SDE C08",258,0 ) | |
3084 | ; | |
3085 | "RTN","SDE C08",259,0 ) | |
3086 | ;Output: error stat us and mes sage | |
3087 | "RTN","SDE C08",260,0 ) | |
3088 | ; = 0 o r null: e verything okay | |
3089 | "RTN","SDE C08",261,0 ) | |
3090 | ; = 1^m essage: e rror and r eason | |
3091 | "RTN","SDE C08",262,0 ) | |
3092 | ; | |
3093 | "RTN","SDE C08",263,0 ) | |
3094 | I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file: "_$G(BSDR ("PAT")) | |
3095 | "RTN","SDE C08",264,0 ) | |
3096 | I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not on file: " _$G(BSDR(" CLN")) | |
3097 | "RTN","SDE C08",265,0 ) | |
3098 | I ($G(BSD R("TYP"))' ="C"),($G( BSDR("TYP" ))'="PC") Q 1_U_"Can cel Status error: "_ $G(BSDR("T YP")) | |
3099 | "RTN","SDE C08",266,0 ) | |
3100 | I $G(BSDR ("ADT")) S BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12) ;rem ove second s | |
3101 | "RTN","SDE C08",267,0 ) | |
3102 | I $G(BSDR ("ADT"))'? 7N1".".4N Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT")) | |
3103 | "RTN","SDE C08",268,0 ) | |
3104 | I $G(BSDR ("CDT")) S BSDR("CDT ")=+$E(BSD R("CDT"),1 ,12) ;rem ove second s | |
3105 | "RTN","SDE C08",269,0 ) | |
3106 | I $G(BSDR ("CDT"))'? 7N1".".4N Q 1_U_"Can cel Date/T ime error: "_$G(BSDR ("CDT")) | |
3107 | "RTN","SDE C08",270,0 ) | |
3108 | I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled Appt Erro r: "_$G(BS DR("USR")) | |
3109 | "RTN","SDE C08",271,0 ) | |
3110 | I '$D(^SD (409.2,+$G (BSDR("CR" )))) Q 1_U _"Cancel R eason erro r: "_$G(BS DR("CR")) | |
3111 | "RTN","SDE C08",272,0 ) | |
3112 | ; | |
3113 | "RTN","SDE C08",273,0 ) | |
3114 | NEW IEN,D IE,DA,DR,S DMODE,HLAP TIEN ;*zeb +1 722 2/2 1/19 save IEN for ca nceling ap pt | |
3115 | "RTN","SDE C08",274,0 ) | |
3116 | S IEN=$$S CIEN^SDECU 2(BSDR("PA T"),BSDR(" CLN"),BSDR ("ADT")),H LAPTIEN=IE N | |
3117 | "RTN","SDE C08",275,0 ) | |
3118 | I 'IEN Q 1_U_"Error trying to find appo intment fo r cancel: Patient="_ BSDR("PAT" )_" Clinic ="_BSDR("C LN")_" App t="_BSDR(" ADT") | |
3119 | "RTN","SDE C08",276,0 ) | |
3120 | ; | |
3121 | "RTN","SDE C08",277,0 ) | |
3122 | I $$CI^SD ECU2(BSDR( "PAT"),BSD R("CLN"),B SDR("ADT") ,IEN) Q 1_ U_"Patient already c hecked in; cannot ca ncel until check-in deleted: P atient="_B SDR("PAT") _" Clinic= "_BSDR("CL N")_" Appt ="_BSDR("A DT") | |
3123 | "RTN","SDE C08",278,0 ) | |
3124 | ; | |
3125 | "RTN","SDE C08",279,0 ) | |
3126 | ; remembe r before s tatus | |
3127 | "RTN","SDE C08",280,0 ) | |
3128 | NEW SDATA ,DFN,SDT,S DCL,SDDA,S DCPHDL | |
3129 | "RTN","SDE C08",281,0 ) | |
3130 | S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2 ,SDDA=IEN | |
3131 | "RTN","SDE C08",282,0 ) | |
3132 | S SDCPHDL =$$HANDLE^ SDAMEVT(1) ,SDATA=SDD A_U_DFN_U_ SDT_U_SDCL | |
3133 | "RTN","SDE C08",283,0 ) | |
3134 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCPHDL ) | |
3135 | "RTN","SDE C08",284,0 ) | |
3136 | ; | |
3137 | "RTN","SDE C08",285,0 ) | |
3138 | ; get use r who made appt and date appt made from ^SC | |
3139 | "RTN","SDE C08",286,0 ) | |
3140 | ; beca use data i n ^SC will be delete d | |
3141 | "RTN","SDE C08",287,0 ) | |
3142 | NEW USER, DATE | |
3143 | "RTN","SDE C08",288,0 ) | |
3144 | S USER=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,6) | |
3145 | "RTN","SDE C08",289,0 ) | |
3146 | S DATE=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,7) | |
3147 | "RTN","SDE C08",290,0 ) | |
3148 | ; | |
3149 | "RTN","SDE C08",291,0 ) | |
3150 | ; update file 2 inf o | |
3151 | "RTN","SDE C08",292,0 ) | |
3152 | NEW DIE,D A,DR | |
3153 | "RTN","SDE C08",293,0 ) | |
3154 | N SDFDA,S DIEN,SDMSG | |
3155 | "RTN","SDE C08",294,0 ) | |
3156 | S SDFDA=" SDFDA(2.98 ,SDT_"","" _DFN_"","" )" | |
3157 | "RTN","SDE C08",295,0 ) | |
3158 | S @SDFDA@ (3)=BSDR(" TYP") | |
3159 | "RTN","SDE C08",296,0 ) | |
3160 | S @SDFDA@ (14)=BSDR( "USR") | |
3161 | "RTN","SDE C08",297,0 ) | |
3162 | S @SDFDA@ (15)=BSDR( "CDT") | |
3163 | "RTN","SDE C08",298,0 ) | |
3164 | S:+$G(BSD R("CR")) @ SDFDA@(16) =BSDR("CR" ) | |
3165 | "RTN","SDE C08",299,0 ) | |
3166 | S:$G(BSDR ("NOT"))]" " @SDFDA@( 17)=$E(BSD R("NOT"),1 ,160) | |
3167 | "RTN","SDE C08",300,0 ) | |
3168 | S @SDFDA@ (19)=USER | |
3169 | "RTN","SDE C08",301,0 ) | |
3170 | S @SDFDA@ (20)=DATE | |
3171 | "RTN","SDE C08",302,0 ) | |
3172 | D UPDATE^ DIE("","SD FDA") | |
3173 | "RTN","SDE C08",303,0 ) | |
3174 | N SDPCE | |
3175 | "RTN","SDE C08",304,0 ) | |
3176 | S SDPCE=$ P($G(^DPT( DFN,"S",SD T,0)),U,20 ) | |
3177 | "RTN","SDE C08",305,0 ) | |
3178 | D:+SDPCE EN^SDCODEL (SDPCE,2," ","CANCEL" ) ;remove OUTPATIEN T ENCOUNTE R link ;* zeb 10/25/ 18 717 pas s in corre ct SDMODE and delete source | |
3179 | "RTN","SDE C08",306,0 ) | |
3180 | ; | |
3181 | "RTN","SDE C08",307,0 ) | |
3182 | ; cancel appointmen t in ^SC | |
3183 | "RTN","SDE C08",308,0 ) | |
3184 | ;NEW DIK, DA ;*zeb+ 4 722 2/21 /19 mark a s canceled instead o f (failing to) delet e so expan d entry wo rks correc tly | |
3185 | "RTN","SDE C08",309,0 ) | |
3186 | ;S DIK="^ SC("_BSDR( "CLN")_"," "S"","_BSD R("ADT")_" ,1," | |
3187 | "RTN","SDE C08",310,0 ) | |
3188 | ;S DA(2)= BSDR("CLN" ),DA(1)=BS DR("ADT"), DA=IEN | |
3189 | "RTN","SDE C08",311,0 ) | |
3190 | ;D ^DIK | |
3191 | "RTN","SDE C08",312,0 ) | |
3192 | S $P(^SC( BSDR("CLN" ),"S",BSDR ("ADT"),1, HLAPTIEN,0 ),"^",9)=" C" | |
3193 | "RTN","SDE C08",313,0 ) | |
3194 | ; call ev ent driver | |
3195 | "RTN","SDE C08",314,0 ) | |
3196 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | |
3197 | "RTN","SDE C08",315,0 ) | |
3198 | D CANCEL^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDMODE, SDCPHDL) ;*zeb 10/2 5/18 717 u ncomment t o re-enabl e event dr iver | |
3199 | "RTN","SDE C08",316,0 ) | |
3200 | Q 0 | |
3201 | "RTN","SDE C08",317,0 ) | |
3202 | ; | |
3203 | "RTN","SDE C08",318,0 ) | |
3204 | UNDOCANA(S DECY,SDECA PTID) ;Und o Cancel A ppointment | |
3205 | "RTN","SDE C08",319,0 ) | |
3206 | ;UNDOCANA (SDECY,SDE CAPTID) e xternal pa rameter ta g in SDEC | |
3207 | "RTN","SDE C08",320,0 ) | |
3208 | ;called b y SDEC UNC ANCEL APPT | |
3209 | "RTN","SDE C08",321,0 ) | |
3210 | ; SDECAPT ID = ien o f appointm ent in SDE C APPOINTM ENT (^SDEC APPT) file 409.84 | |
3211 | "RTN","SDE C08",322,0 ) | |
3212 | N SDECDAM ,SDECDEC,S DECI,SDECN OD,SDECPAT ID,SDECSTA RT | |
3213 | "RTN","SDE C08",323,0 ) | |
3214 | S SDECNOE V=1 ;Don't execute S DEC CANCEL APPOINTME NT protoco l ;is thi s used? | |
3215 | "RTN","SDE C08",324,0 ) | |
3216 | ; | |
3217 | "RTN","SDE C08",325,0 ) | |
3218 | S SDECI=0 | |
3219 | "RTN","SDE C08",326,0 ) | |
3220 | K ^TMP("S DEC",$J) | |
3221 | "RTN","SDE C08",327,0 ) | |
3222 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | |
3223 | "RTN","SDE C08",328,0 ) | |
3224 | S ^TMP("S DEC",$J,SD ECI)="T000 20ERRORID" _$C(30) | |
3225 | "RTN","SDE C08",329,0 ) | |
3226 | TSTART | |
3227 | "RTN","SDE C08",330,0 ) | |
3228 | I '+SDECA PTID TROLL BACK D ER R(SDECI+1, "Invalid A ppointment ID.") Q | |
3229 | "RTN","SDE C08",331,0 ) | |
3230 | I '$D(^SD EC(409.84, SDECAPTID, 0)) TROLLB ACK D ERR (SDECI+1," Invalid Ap pointment ID") Q | |
3231 | "RTN","SDE C08",332,0 ) | |
3232 | ;Make sur e appointm ent is can celled | |
3233 | "RTN","SDE C08",333,0 ) | |
3234 | I $$GET1^ DIQ(409.84 ,SDECAPTID _",",.12)= "" TROLLBA CK D ERR( SDECI+1,"A ppointment is not Ca ncelled.") Q | |
3235 | "RTN","SDE C08",334,0 ) | |
3236 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |
3237 | "RTN","SDE C08",335,0 ) | |
3238 | ;appts ca ncelled by patient c annot be u n-cancelle d. /* remo ved 9/17/2 010 */ | |
3239 | "RTN","SDE C08",336,0 ) | |
3240 | ;I $P(^DP T($P(SDECN OD,U,5),"S ",$P(SDECN OD,U,1),0) ,U,2)="PC" TROLLBACK D ERR(SD ECI+1,"Can celled by patient ap pointment cannot be uncancelle d.") Q | |
3241 | "RTN","SDE C08",337,0 ) | |
3242 | ;get appo intment da ta | |
3243 | "RTN","SDE C08",338,0 ) | |
3244 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |
3245 | "RTN","SDE C08",339,0 ) | |
3246 | S SDECDAM =$P(SDECNO D,U,9) ;date appt made | |
3247 | "RTN","SDE C08",340,0 ) | |
3248 | S SDECDEC =$P(SDECNO D,U,8) ;data entry cler k | |
3249 | "RTN","SDE C08",341,0 ) | |
3250 | S SDECLEN =$P(SDECNO D,U,18) ;lengt h of appt in minutes | |
3251 | "RTN","SDE C08",342,0 ) | |
3252 | S SDECNOT E=$G(^SDEC (409.84,SD ECAPTID,1, 1,0)) ;no te from SD EC APPOINT MENT | |
3253 | "RTN","SDE C08",343,0 ) | |
3254 | S SDECPAT ID=$P(SDEC NOD,U,5) ;point er to VA P ATIENT fil e 2 | |
3255 | "RTN","SDE C08",344,0 ) | |
3256 | S SDECSC1 =$P($G(SDE CNOD),U,7) ;resou rce | |
3257 | "RTN","SDE C08",345,0 ) | |
3258 | S SDECSTA RT=$P(SDEC NOD,U) ;appt start time | |
3259 | "RTN","SDE C08",346,0 ) | |
3260 | S SDECWKI N=$P($G(SD ECNOD),U,1 3) ;walk- in | |
3261 | "RTN","SDE C08",347,0 ) | |
3262 | ;lock SDE C node | |
3263 | "RTN","SDE C08",348,0 ) | |
3264 | L +^SDEC( 409.84,SDE CPATID):5 I '$T D ER R(SDECI+1, "Another u ser is wor king with this patie nt's recor d. Please try again later") T ROLLBACK Q | |
3265 | "RTN","SDE C08",349,0 ) | |
3266 | ;un-cance l SDEC APP OINTMENT | |
3267 | "RTN","SDE C08",350,0 ) | |
3268 | D SDECUCA N(SDECAPTI D) | |
3269 | "RTN","SDE C08",351,0 ) | |
3270 | I SDECSC1 ]"",$D(^SD EC(409.831 ,SDECSC1,0 )) D I +$ G(SDECZ) S SDECERR=S DECERR_$P( SDECZ,U,2) D ERR(SDE CI,SDECERR ) Q | |
3271 | "RTN","SDE C08",352,0 ) | |
3272 | . S SDECL OC="" | |
3273 | "RTN","SDE C08",353,0 ) | |
3274 | . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0) | |
3275 | "RTN","SDE C08",354,0 ) | |
3276 | . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION ;support f or single HOSPITAL L OCATION in SDEC RESO URCE | |
3277 | "RTN","SDE C08",355,0 ) | |
3278 | . I SDECL OC="" S SD ECLOC=$$SD CL^SDECUTL (SDECAPTID ) ;HOSPIT AL LOCATIO N | |
3279 | "RTN","SDE C08",356,0 ) | |
3280 | . Q:'+SDE CLOC | |
3281 | "RTN","SDE C08",357,0 ) | |
3282 | . ;un-can cel patien t appointm ent and re -instate c linic appo intment | |
3283 | "RTN","SDE C08",358,0 ) | |
3284 | . S SDECZ ="" | |
3285 | "RTN","SDE C08",359,0 ) | |
3286 | . D APUCA N(.SDECZ,S DECLOC,SDE CPATID,SDE CSTART,SDE CDAM,SDECD EC,SDECLEN ,SDECNOTE, SDECSC1,SD ECWKIN) | |
3287 | "RTN","SDE C08",360,0 ) | |
3288 | TCOMMIT | |
3289 | "RTN","SDE C08",361,0 ) | |
3290 | L -^SDEC( 409.84,SDE CPATID) | |
3291 | "RTN","SDE C08",362,0 ) | |
3292 | S SDECI=S DECI+1 | |
3293 | "RTN","SDE C08",363,0 ) | |
3294 | S ^TMP("S DEC",$J,SD ECI)=""_$C (30) | |
3295 | "RTN","SDE C08",364,0 ) | |
3296 | S SDECI=S DECI+1 | |
3297 | "RTN","SDE C08",365,0 ) | |
3298 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |
3299 | "RTN","SDE C08",366,0 ) | |
3300 | Q | |
3301 | "RTN","SDE C08",367,0 ) | |
3302 | ; | |
3303 | "RTN","SDE C08",368,0 ) | |
3304 | SDECUCAN(S DECAPTID) ;called in ternally t o update S DEC APPOIN TMENT by c learing ca ncel date/ time | |
3305 | "RTN","SDE C08",369,0 ) | |
3306 | N PROVIEN ,SDAPTYP,S DCL,SDRES | |
3307 | "RTN","SDE C08",370,0 ) | |
3308 | S SDECIEN S=SDECAPTI D_"," | |
3309 | "RTN","SDE C08",371,0 ) | |
3310 | S SDECFDA (409.84,SD ECIENS,.12 )="" | |
3311 | "RTN","SDE C08",372,0 ) | |
3312 | K SDECMSG | |
3313 | "RTN","SDE C08",373,0 ) | |
3314 | D FILE^DI E("","SDEC FDA","SDEC MSG") | |
3315 | "RTN","SDE C08",374,0 ) | |
3316 | S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" ) | |
3317 | "RTN","SDE C08",375,0 ) | |
3318 | I $P(SDAP TYP,";",2) ="GMR(123, " D | |
3319 | "RTN","SDE C08",376,0 ) | |
3320 | .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID) | |
3321 | "RTN","SDE C08",377,0 ) | |
3322 | .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ") | |
3323 | "RTN","SDE C08",378,0 ) | |
3324 | .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",1) | |
3325 | "RTN","SDE C08",379,0 ) | |
3326 | Q | |
3327 | "RTN","SDE C08",380,0 ) | |
3328 | ; | |
3329 | "RTN","SDE C08",381,0 ) | |
3330 | APUCAN(SDE CZ,SDECLOC ,SDECPATID ,SDECSTART ,SDECDAM,S DECDEC,SDE CLEN,SDECN OTE,SDECRE S,SDECWKIN ) ; | |
3331 | "RTN","SDE C08",382,0 ) | |
3332 | ;un-Cance l appointm ent for pa tient SDEC DFN in cli nic SDECSC 1 | |
3333 | "RTN","SDE C08",383,0 ) | |
3334 | ; SDECLO C = poin ter to hos pital loca tion ^SC f ile 44 | |
3335 | "RTN","SDE C08",384,0 ) | |
3336 | ; SDECPA TID = poin ter to VA Patient ^D PT file 2 | |
3337 | "RTN","SDE C08",385,0 ) | |
3338 | ; SDECST ART = Appo intment ti me | |
3339 | "RTN","SDE C08",386,0 ) | |
3340 | ; SDECDA M = Date appointme nt made in FM format | |
3341 | "RTN","SDE C08",387,0 ) | |
3342 | ; SDECDE C = Data entry cle rk - point er to NEW PERSON fil e 200 | |
3343 | "RTN","SDE C08",388,0 ) | |
3344 | N SDECC,% H | |
3345 | "RTN","SDE C08",389,0 ) | |
3346 | S SDECC(" PAT")=SDEC PATID | |
3347 | "RTN","SDE C08",390,0 ) | |
3348 | S SDECC(" CLN")=SDEC LOC | |
3349 | "RTN","SDE C08",391,0 ) | |
3350 | S SDECC(" ADT")=SDEC START | |
3351 | "RTN","SDE C08",392,0 ) | |
3352 | S SDECC(" NOTE")=SDE CNOTE ;us er note | |
3353 | "RTN","SDE C08",393,0 ) | |
3354 | S SDECC(" RES")=SDEC RES | |
3355 | "RTN","SDE C08",394,0 ) | |
3356 | S SDECC(" USR")=DUZ | |
3357 | "RTN","SDE C08",395,0 ) | |
3358 | S SDECC(" LEN")=SDEC LEN | |
3359 | "RTN","SDE C08",396,0 ) | |
3360 | S SDECC(" WKIN")=SDE CWKIN | |
3361 | "RTN","SDE C08",397,0 ) | |
3362 | ; | |
3363 | "RTN","SDE C08",398,0 ) | |
3364 | S SDECZ=$ $UNCANCEL( .SDECC) | |
3365 | "RTN","SDE C08",399,0 ) | |
3366 | Q | |
3367 | "RTN","SDE C08",400,0 ) | |
3368 | ; | |
3369 | "RTN","SDE C08",401,0 ) | |
3370 | UNCANCEL(B SDR) ;PEP; called to un-cancel appt | |
3371 | "RTN","SDE C08",402,0 ) | |
3372 | ; | |
3373 | "RTN","SDE C08",403,0 ) | |
3374 | ; Make ca ll using: S ERR=$$UN CANCEL(.AR RAY) | |
3375 | "RTN","SDE C08",404,0 ) | |
3376 | ; | |
3377 | "RTN","SDE C08",405,0 ) | |
3378 | ; Input A rray - | |
3379 | "RTN","SDE C08",406,0 ) | |
3380 | ; BSDR("P AT") = ien of patien t in file 2 | |
3381 | "RTN","SDE C08",407,0 ) | |
3382 | ; BSDR("C LN") = ien of clinic in file 4 4 | |
3383 | "RTN","SDE C08",408,0 ) | |
3384 | ; BSDR("A DT") = app ointment d ate and ti me | |
3385 | "RTN","SDE C08",409,0 ) | |
3386 | ; BSDR("U SR") = use r who un-c anceled ap pt | |
3387 | "RTN","SDE C08",410,0 ) | |
3388 | ; BSDR("N OTE") = ap pointment note from SDEC APPOI NTMENT | |
3389 | "RTN","SDE C08",411,0 ) | |
3390 | ; BSDR("L EN") = app t length i n minutes (numeric) | |
3391 | "RTN","SDE C08",412,0 ) | |
3392 | ; BSDR("R ES") = res ource | |
3393 | "RTN","SDE C08",413,0 ) | |
3394 | ; BSDR("W KIN")= wal k-in | |
3395 | "RTN","SDE C08",414,0 ) | |
3396 | ; | |
3397 | "RTN","SDE C08",415,0 ) | |
3398 | ;Output: error stat us and mes sage | |
3399 | "RTN","SDE C08",416,0 ) | |
3400 | ; = 0 o r null: e verything okay | |
3401 | "RTN","SDE C08",417,0 ) | |
3402 | ; = 1^m essage: e rror and r eason | |
3403 | "RTN","SDE C08",418,0 ) | |
3404 | ; | |
3405 | "RTN","SDE C08",419,0 ) | |
3406 | N DPTNOD, DPTNODR | |
3407 | "RTN","SDE C08",420,0 ) | |
3408 | I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file: "_$G(BSDR ("PAT")) | |
3409 | "RTN","SDE C08",421,0 ) | |
3410 | I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not on file: " _$G(BSDR(" CLN")) | |
3411 | "RTN","SDE C08",422,0 ) | |
3412 | I $G(BSDR ("ADT")) S BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12) ;rem ove second s | |
3413 | "RTN","SDE C08",423,0 ) | |
3414 | I $G(BSDR ("ADT"))'? 7N1".".4N Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT")) | |
3415 | "RTN","SDE C08",424,0 ) | |
3416 | I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled Appt Erro r: "_$G(BS DR("USR")) | |
3417 | "RTN","SDE C08",425,0 ) | |
3418 | ; | |
3419 | "RTN","SDE C08",426,0 ) | |
3420 | S SDECERR =$$APPVIST A^SDEC07B( BSDR("LEN" ),BSDR("NO TE"),BSDR( "PAT"),BSD R("RES"),B SDR("ADT") ,BSDR("WKI N"),BSDR(" CLN"),.SDE CI) ;alb/ sat 665 AP PVISTA mov ed to SDEC 07B | |
3421 | "RTN","SDE C08",427,0 ) | |
3422 | Q SDECERR | |
3423 | "RTN","SDE C08",428,0 ) | |
3424 | ; | |
3425 | "RTN","SDE C08",429,0 ) | |
3426 | ERR(SDECI, SDECERR) ; Error proc essing | |
3427 | "RTN","SDE C08",430,0 ) | |
3428 | S SDECI=S DECI+1 | |
3429 | "RTN","SDE C08",431,0 ) | |
3430 | S SDECERR =$TR(SDECE RR,"^","~" ) | |
3431 | "RTN","SDE C08",432,0 ) | |
3432 | TROLLBACK | |
3433 | "RTN","SDE C08",433,0 ) | |
3434 | S ^TMP("S DEC",$J,SD ECI)=SDECE RR_$C(30) | |
3435 | "RTN","SDE C08",434,0 ) | |
3436 | S SDECI=S DECI+1 | |
3437 | "RTN","SDE C08",435,0 ) | |
3438 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |
3439 | "RTN","SDE C08",436,0 ) | |
3440 | Q | |
3441 | "RTN","SDE C08",437,0 ) | |
3442 | ; | |
3443 | "RTN","SDE C08",438,0 ) | |
3444 | ETRAP ;EP Error trap entry | |
3445 | "RTN","SDE C08",439,0 ) | |
3446 | D ^%ZTER | |
3447 | "RTN","SDE C08",440,0 ) | |
3448 | I '$D(SDE CI) N SDEC I S SDECI= 999999 | |
3449 | "RTN","SDE C08",441,0 ) | |
3450 | S SDECI=S DECI+1 | |
3451 | "RTN","SDE C08",442,0 ) | |
3452 | D ERR(SDE CI,"SDEC08 Error") | |
3453 | "RTN","SDE C08",443,0 ) | |
3454 | Q | |
3455 | "RTN","SDE C25") | |
3456 | 0^6^B15147 2805^B1152 73682 | |
3457 | "RTN","SDE C25",1,0) | |
3458 | SDEC25 ;AL B/SAT - VI STA SCHEDU LING RPCS ;MAY 15, 2 017 | |
3459 | "RTN","SDE C25",2,0) | |
3460 | ;;5.3;Sch eduling;** 627,665,67 1,717**;Au g 13, 1993 ;Build 7 | |
3461 | "RTN","SDE C25",3,0) | |
3462 | ; | |
3463 | "RTN","SDE C25",4,0) | |
3464 | Q | |
3465 | "RTN","SDE C25",5,0) | |
3466 | ; | |
3467 | "RTN","SDE C25",6,0) | |
3468 | CHECKIN(SD ECY,SDECAP TID,SDECCD T,SDECCC,S DECPRV,SDE CROU,SDECV CL,SDECVFM ,SDECOG,SD ECCR,SDECP CC,SDECWHF ) ;Check i n appointm ent | |
3469 | "RTN","SDE C25",7,0) | |
3470 | ;CHECKIN( SDECY,SDEC APTID,SDEC CDT,SDECCC ,SDECPRV,S DECROU,SDE CVCL,SDECV FM,SDECOG, SDECCR,SDE CPCC,SDECW HF) | |
3471 | "RTN","SDE C25",8,0) | |
3472 | ; extern al paramet er tag is in SDEC | |
3473 | "RTN","SDE C25",9,0) | |
3474 | ; | |
3475 | "RTN","SDE C25",10,0) | |
3476 | ; INPUT: SDECAPTID - (require d) Appoint ment ID | |
3477 | "RTN","SDE C25",11,0) | |
3478 | ; SDECCDT - (optiona l) Check-i n date/tim e | |
3479 | "RTN","SDE C25",12,0) | |
3480 | ; "@" - i ndicates d elete chec k-in | |
3481 | "RTN","SDE C25",13,0) | |
3482 | ; SDECCC - (??????? ?) Clinic Stop point er to CLIN IC STOP fi le | |
3483 | "RTN","SDE C25",14,0) | |
3484 | ; SDECPRV - (optiona l) Provide r pointer to NEW PER SON file | |
3485 | "RTN","SDE C25",15,0) | |
3486 | ; default to curren t user | |
3487 | "RTN","SDE C25",16,0) | |
3488 | ; SDECROU - (optiona l) Print R outing Sli p flag, va lid values : | |
3489 | "RTN","SDE C25",17,0) | |
3490 | ; 0=fal se 1=tru e | |
3491 | "RTN","SDE C25",18,0) | |
3492 | ; SDECVCL - (??????? ?) Clinic pointer to HOSPITAL LOCATION | |
3493 | "RTN","SDE C25",19,0) | |
3494 | ; SDECVFM - FORM | |
3495 | "RTN","SDE C25",20,0) | |
3496 | ; SDECOG - OUTGUIDE FLAG | |
3497 | "RTN","SDE C25",21,0) | |
3498 | ; SDECCR - Generate Chart req uest upon check-in? (1-Yes, ot herwise no ) | |
3499 | "RTN","SDE C25",22,0) | |
3500 | ; SDECPCC - ien of P WH Type in HEALTH SU MMARY PWH TYPE file ^APCHPWHT | |
3501 | "RTN","SDE C25",23,0) | |
3502 | ; SDECWHF - Print Pa tient Well ness Hando ut flag | |
3503 | "RTN","SDE C25",24,0) | |
3504 | ; | |
3505 | "RTN","SDE C25",25,0) | |
3506 | ENDBG ; | |
3507 | "RTN","SDE C25",26,0) | |
3508 | N BSDVSTN ,EMSG | |
3509 | "RTN","SDE C25",27,0) | |
3510 | N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CIENS,SDEC VEN | |
3511 | "RTN","SDE C25",28,0) | |
3512 | N SDECNOE V,SDECCAN, SDECR1,%DT ,X,Y | |
3513 | "RTN","SDE C25",29,0) | |
3514 | S SDECNOE V=1 ;Don't execute p rotocol | |
3515 | "RTN","SDE C25",30,0) | |
3516 | S SDECCAN =0 | |
3517 | "RTN","SDE C25",31,0) | |
3518 | ; | |
3519 | "RTN","SDE C25",32,0) | |
3520 | S SDECI=0 | |
3521 | "RTN","SDE C25",33,0) | |
3522 | K ^TMP("S DEC",$J) | |
3523 | "RTN","SDE C25",34,0) | |
3524 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | |
3525 | "RTN","SDE C25",35,0) | |
3526 | S ^TMP("S DEC",$J,0) ="T00020ER RORID^T001 50MESSAGE" _$C(30) | |
3527 | "RTN","SDE C25",36,0) | |
3528 | ;validate SDEC appo intment ID | |
3529 | "RTN","SDE C25",37,0) | |
3530 | I '+$G(SD ECAPTID) D ERR("SDEC 25: Invali d Appointm ent ID") Q | |
3531 | "RTN","SDE C25",38,0) | |
3532 | I '$D(^SD EC(409.84, +SDECAPTID ,0)) D ERR ("SDEC25: Invalid Ap pointment ID") Q | |
3533 | "RTN","SDE C25",39,0) | |
3534 | ;validate checkin d ate/time ( required) | |
3535 | "RTN","SDE C25",40,0) | |
3536 | S SDECCDT =$G(SDECCD T) | |
3537 | "RTN","SDE C25",41,0) | |
3538 | S:SDECCDT ="@" SDECC AN=1 | |
3539 | "RTN","SDE C25",42,0) | |
3540 | I 'SDECCA N,SDECCDT' ="" S %DT= "T" S X=SD ECCDT D ^% DT S SDECC DT=Y I Y=- 1 S SDECCD T="" | |
3541 | "RTN","SDE C25",43,0) | |
3542 | I SDECCDT ="" D ERR( "SDEC25: I nvalid Che ck-In Time ") Q | |
3543 | "RTN","SDE C25",44,0) | |
3544 | ;validate clinic st op code | |
3545 | "RTN","SDE C25",45,0) | |
3546 | S SDECCC= $G(SDECCC) | |
3547 | "RTN","SDE C25",46,0) | |
3548 | I SDECCC' ="" I '$D( ^DIC(40.7, SDECCC,0)) S SDECCC= "" | |
3549 | "RTN","SDE C25",47,0) | |
3550 | ;validate provider (optional) | |
3551 | "RTN","SDE C25",48,0) | |
3552 | S SDECPRV =$G(SDECPR V) | |
3553 | "RTN","SDE C25",49,0) | |
3554 | I SDECPRV '="" I '$D (^VA(200,+ SDECPRV,0) ) S SDECPR V="" | |
3555 | "RTN","SDE C25",50,0) | |
3556 | ;I SDECPR V="" S SDE CPRV=DUZ | |
3557 | "RTN","SDE C25",51,0) | |
3558 | ;I SDECPR V="" S SDE CPRV="" | |
3559 | "RTN","SDE C25",52,0) | |
3560 | ;validate routine s lip flag ( optional) | |
3561 | "RTN","SDE C25",53,0) | |
3562 | S SDECROU =$$UP^XLFS TR($G(SDEC ROU)) | |
3563 | "RTN","SDE C25",54,0) | |
3564 | S SDECROU =$S(SDECRO U=1:"true" ,SDECROU=" TRUE":"tru e",1:0) | |
3565 | "RTN","SDE C25",55,0) | |
3566 | ;validate clinic | |
3567 | "RTN","SDE C25",56,0) | |
3568 | S SDECVCL =$G(SDECVC L) | |
3569 | "RTN","SDE C25",57,0) | |
3570 | I SDECVCL '="" I '$D (^SC(SDECV CL,0)) S S DECVCL="" | |
3571 | "RTN","SDE C25",58,0) | |
3572 | I SDECCC= "",SDECVCL '="" S SDE CCC=$P($G( ^SC(SDECVC L,0)),U,7) ;get cl inic stop from 44 | |
3573 | "RTN","SDE C25",59,0) | |
3574 | ; | |
3575 | "RTN","SDE C25",60,0) | |
3576 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |
3577 | "RTN","SDE C25",61,0) | |
3578 | S DFN=$P( SDECNOD,U, 5) | |
3579 | "RTN","SDE C25",62,0) | |
3580 | S SDECPAT ID=$P(SDEC NOD,U,5) | |
3581 | "RTN","SDE C25",63,0) | |
3582 | S SDECSTA RT=$P(SDEC NOD,U) | |
3583 | "RTN","SDE C25",64,0) | |
3584 | ; | |
3585 | "RTN","SDE C25",65,0) | |
3586 | S SDECR1= $P(SDECNOD ,U,7) ;RES OURCEID | |
3587 | "RTN","SDE C25",66,0) | |
3588 | ;if resou rceId is n ot null AN D there is a valid r esource re cord | |
3589 | "RTN","SDE C25",67,0) | |
3590 | I SDECR1] "",$D(^SDE C(409.831, SDECR1,0)) D I +$G( SDECZ) D E RR($P(SDEC Z,U,2)) Q | |
3591 | "RTN","SDE C25",68,0) | |
3592 | . S SDECN OD=^SDEC(4 09.831,SDE CR1,0) | |
3593 | "RTN","SDE C25",69,0) | |
3594 | . S SDECS C1=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION | |
3595 | "RTN","SDE C25",70,0) | |
3596 | . ;Hospit al Locatio n is requi red for CH ECKIN | |
3597 | "RTN","SDE C25",71,0) | |
3598 | . ;I 'SDE CSC1]"",'$ D(^SC(+SDE CSC1,0)) D ERR("SDEC 25: Clinic not defin ed for thi s Resource : "_$P(SDE CNOD,U,1)_ " ("_SDECS C1_")") Q | |
3599 | "RTN","SDE C25",72,0) | |
3600 | . I 'SDEC SC1]"",'$D (^SC(+SDEC SC1,0)) D ERR("Clini c not defi ned for th is Resourc e: "_$P(SD ECNOD,U,1) _" ("_SDEC SC1_")") Q | |
3601 | "RTN","SDE C25",73,0) | |
3602 | . ; | |
3603 | "RTN","SDE C25",74,0) | |
3604 | . ; Even t driver " BEFORE" ac tions - wt c SD*5.3*7 17 10/24/1 8 | |
3605 | "RTN","SDE C25",75,0) | |
3606 | . ; | |
3607 | "RTN","SDE C25",76,0) | |
3608 | . N SDATA ,SDDA,SDCI HDL ; | |
3609 | "RTN","SDE C25",77,0) | |
3610 | . S SDDA= $$FIND(DFN ,SDECSTART ,SDECSC1), SDATA=SDDA _U_DFN_U_S DECSTART_U _SDECSC1,S DCIHDL=$$H ANDLE^SDAM EVT(1) ; | |
3611 | "RTN","SDE C25",78,0) | |
3612 | . D BEFOR E^SDAMEVT( .SDATA,DFN ,SDECSTART ,SDECSC1,S DDA,SDCIHD L) ; | |
3613 | "RTN","SDE C25",79,0) | |
3614 | . ; | |
3615 | "RTN","SDE C25",80,0) | |
3616 | . I 'SDEC CAN D ; | |
3617 | "RTN","SDE C25",81,0) | |
3618 | .. ; | |
3619 | "RTN","SDE C25",82,0) | |
3620 | .. ; Che ckin SDEC APPOINTMEN T entry - wtc SD*5.3 *717 10/24 /18 | |
3621 | "RTN","SDE C25",83,0) | |
3622 | .. ; | |
3623 | "RTN","SDE C25",84,0) | |
3624 | .. D SDEC CHK(SDECAP TID,SDECCD T) ; sets field .03 (Checkin), in file 4 09.84 | |
3625 | "RTN","SDE C25",85,0) | |
3626 | .. D APCH K(.SDECZ,S DECSC1,SDE CPATID,SDE CCDT,SDECS TART) | |
3627 | "RTN","SDE C25",86,0) | |
3628 | .. I $G(S DECPRV) S DIE="^SDEC (409.84,", DA=SDECAPT ID,DR=".16 ///"_SDECP RV D ^DIE | |
3629 | "RTN","SDE C25",87,0) | |
3630 | . ; | |
3631 | "RTN","SDE C25",88,0) | |
3632 | . I SDECC AN D ; | |
3633 | "RTN","SDE C25",89,0) | |
3634 | .. ; | |
3635 | "RTN","SDE C25",90,0) | |
3636 | .. ; Can cel check in - wtc S D*5.3*717 10/24/18 | |
3637 | "RTN","SDE C25",91,0) | |
3638 | .. ; | |
3639 | "RTN","SDE C25",92,0) | |
3640 | .. D SDEC CHK(SDECAP TID,"") ; sets field .03 (Chec kin), in f ile 409.84 | |
3641 | "RTN","SDE C25",93,0) | |
3642 | .. D CANC HKIN(SDECP ATID,SDECS C1,SDECSTA RT) ; | |
3643 | "RTN","SDE C25",94,0) | |
3644 | . ; | |
3645 | "RTN","SDE C25",95,0) | |
3646 | . ; Even t driver " AFTER" act ions - wtc SD*5.3*71 7 10/24/18 | |
3647 | "RTN","SDE C25",96,0) | |
3648 | . ; | |
3649 | "RTN","SDE C25",97,0) | |
3650 | . D AFTER ^SDAMEVT(. SDATA,DFN, SDECSTART, SDECSC1,SD DA,SDCIHDL ) ; | |
3651 | "RTN","SDE C25",98,0) | |
3652 | . ; | |
3653 | "RTN","SDE C25",99,0) | |
3654 | . ; Exec ute event driver. 4 =check in (see #409. 66), 2=non -interacti ve - wtc S D*5.3*717 10/25/18 | |
3655 | "RTN","SDE C25",100,0 ) | |
3656 | . ; | |
3657 | "RTN","SDE C25",101,0 ) | |
3658 | . ;*zeb+1 717 3/19/ 19 prevent extra can cel check- in when ca nceling a checked-in appointme nt | |
3659 | "RTN","SDE C25",102,0 ) | |
3660 | . I '((SD ECCDT="@") &($G(SDECT YP)]"")) D EVT^SDAME VT(.SDATA, 4,2,SDCIHD L) ;assume s SDECTYP, which is defined if coming fr om APPDEL^ SDEC08 | |
3661 | "RTN","SDE C25",103,0 ) | |
3662 | ; | |
3663 | "RTN","SDE C25",104,0 ) | |
3664 | S SDECI=S DECI+1 | |
3665 | "RTN","SDE C25",105,0 ) | |
3666 | S ^TMP("S DEC",$J,SD ECI)="0^"_ $S($G(EMSG )'="":EMSG ,1:"")_$C( 30) | |
3667 | "RTN","SDE C25",106,0 ) | |
3668 | S SDECI=S DECI+1 | |
3669 | "RTN","SDE C25",107,0 ) | |
3670 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |
3671 | "RTN","SDE C25",108,0 ) | |
3672 | Q | |
3673 | "RTN","SDE C25",109,0 ) | |
3674 | ; | |
3675 | "RTN","SDE C25",110,0 ) | |
3676 | SDECCHK(SD ECAPTID,SD ECCDT) ; | |
3677 | "RTN","SDE C25",111,0 ) | |
3678 | N SDECFDA ,SDECMSG | |
3679 | "RTN","SDE C25",112,0 ) | |
3680 | S SDECIEN S=SDECAPTI D_"," | |
3681 | "RTN","SDE C25",113,0 ) | |
3682 | S SDECFDA (409.84,SD ECIENS,.03 )=SDECCDT | |
3683 | "RTN","SDE C25",114,0 ) | |
3684 | S SDECFDA (409.84,SD ECIENS,.04 )=$S(SDECC DT'="":$$N OW^XLFDT,1 :"") | |
3685 | "RTN","SDE C25",115,0 ) | |
3686 | D FILE^DI E("","SDEC FDA","SDEC MSG") | |
3687 | "RTN","SDE C25",116,0 ) | |
3688 | Q | |
3689 | "RTN","SDE C25",117,0 ) | |
3690 | ; | |
3691 | "RTN","SDE C25",118,0 ) | |
3692 | APCHK(SDEC Z,SDECSC1, SDECDFN,SD ECCDT,SDEC START) ; | |
3693 | "RTN","SDE C25",119,0 ) | |
3694 | ;Checkin appointmen t for pati ent SDECDF N in clini c SDECSC1 | |
3695 | "RTN","SDE C25",120,0 ) | |
3696 | ;at time SDECSD | |
3697 | "RTN","SDE C25",121,0 ) | |
3698 | N APTN,BS DMSG,SDECC | |
3699 | "RTN","SDE C25",122,0 ) | |
3700 | S SDECC(" PAT")=SDEC PATID | |
3701 | "RTN","SDE C25",123,0 ) | |
3702 | S SDECC(" HOS LOC")= SDECSC1 | |
3703 | "RTN","SDE C25",124,0 ) | |
3704 | S SDECC(" CLINIC COD E")=SDECCC | |
3705 | "RTN","SDE C25",125,0 ) | |
3706 | S SDECC(" PROVIDER") =SDECPRV | |
3707 | "RTN","SDE C25",126,0 ) | |
3708 | S SDECC(" APPT DATE" )=SDECSTAR T | |
3709 | "RTN","SDE C25",127,0 ) | |
3710 | S SDECC(" CDT")=SDEC CDT | |
3711 | "RTN","SDE C25",128,0 ) | |
3712 | S SDECC(" USR")=DUZ | |
3713 | "RTN","SDE C25",129,0 ) | |
3714 | ;find IEN in ^SC mu ltiple or null | |
3715 | "RTN","SDE C25",130,0 ) | |
3716 | S APTN=$$ FIND^SDAM2 (SDECC("PA T"),SDECC( "APPT DATE "),SDECC(" HOS LOC")) | |
3717 | "RTN","SDE C25",131,0 ) | |
3718 | ; | |
3719 | "RTN","SDE C25",132,0 ) | |
3720 | ;Required by NEW AP I: | |
3721 | "RTN","SDE C25",133,0 ) | |
3722 | S SDECC(" SRV CAT")= "A" | |
3723 | "RTN","SDE C25",134,0 ) | |
3724 | S SDECC(" TIME RANGE ")=-1 | |
3725 | "RTN","SDE C25",135,0 ) | |
3726 | S SDECC(" VISIT DATE ")=SDECCDT | |
3727 | "RTN","SDE C25",136,0 ) | |
3728 | S SDECC(" SITE")=$G( DUZ(2)) | |
3729 | "RTN","SDE C25",137,0 ) | |
3730 | S SDECC(" VISIT TYPE ")="V" | |
3731 | "RTN","SDE C25",138,0 ) | |
3732 | S SDECC(" CLN")=SDEC C("HOS LOC ") | |
3733 | "RTN","SDE C25",139,0 ) | |
3734 | S SDECC(" ADT")=SDEC C("APPT DA TE") | |
3735 | "RTN","SDE C25",140,0 ) | |
3736 | ; | |
3737 | "RTN","SDE C25",141,0 ) | |
3738 | ;Set up S DECVEN arr ay contain ing VEN EH P CLINIC, VEN EHP FO RM, OUTGUI DE FLAG | |
3739 | "RTN","SDE C25",142,0 ) | |
3740 | ;These va lues come from input param | |
3741 | "RTN","SDE C25",143,0 ) | |
3742 | S SDECVEN ("CLINIC") =SDECVCL | |
3743 | "RTN","SDE C25",144,0 ) | |
3744 | S SDECVEN ("FORM")=S DECVFM | |
3745 | "RTN","SDE C25",145,0 ) | |
3746 | S SDECVEN ("OUTGUIDE ")=SDECOG | |
3747 | "RTN","SDE C25",146,0 ) | |
3748 | ; | |
3749 | "RTN","SDE C25",147,0 ) | |
3750 | N SDECOUT | |
3751 | "RTN","SDE C25",148,0 ) | |
3752 | D GETVISI T^SDECAPI4 (.SDECC,.S DECOUT) | |
3753 | "RTN","SDE C25",149,0 ) | |
3754 | ;K SDECC | |
3755 | "RTN","SDE C25",150,0 ) | |
3756 | ;I SDECOU T(0)=1 S B SDVSTN=$O( SDECOUT(0) ) ;if match found, set visit IEN | |
3757 | "RTN","SDE C25",151,0 ) | |
3758 | ;D VISIT^ SDECV(SDEC C("HOS LOC "),SDECC(" APPT DATE" ),APTN,SDE CC("PAT"), SDECC("CLI NIC CODE") ,SDECC("PR OVIDER"),, .BSDMSG,.B SDVSTN,.SD ECC) ;re place GETV ISIT^SDECA PI4 to mak e sure all visit dat a is updat ed | |
3759 | "RTN","SDE C25",152,0 ) | |
3760 | Q | |
3761 | "RTN","SDE C25",153,0 ) | |
3762 | ; | |
3763 | "RTN","SDE C25",154,0 ) | |
3764 | CANCHKIN(D FN,SDCL,SD T) ; Logic to cancel a checkin if the ch eckin date /time is p assed in a s '@' | |
3765 | "RTN","SDE C25",155,0 ) | |
3766 | ; input: DFN := if n of patie nt | |
3767 | "RTN","SDE C25",156,0 ) | |
3768 | ; SDCL := cl inic# | |
3769 | "RTN","SDE C25",157,0 ) | |
3770 | ; SDT := ap pt d/t | |
3771 | "RTN","SDE C25",158,0 ) | |
3772 | ; | |
3773 | "RTN","SDE C25",159,0 ) | |
3774 | N SDDA | |
3775 | "RTN","SDE C25",160,0 ) | |
3776 | S SDDA=$$ FIND(DFN,S DT,SDCL) | |
3777 | "RTN","SDE C25",161,0 ) | |
3778 | ;I 'SDDA D ERR("SDE C25: Could not locat e appointm ent in dat abase or a ppointment is cancel led.") Q | |
3779 | "RTN","SDE C25",162,0 ) | |
3780 | ;I 'SDDA D ERR("Cou ld not loc ate appoin tment in d atabase or appointme nt is canc elled.") Q | |
3781 | "RTN","SDE C25",163,0 ) | |
3782 | ; | |
3783 | "RTN","SDE C25",164,0 ) | |
3784 | ; Disabl ed event d river call s as they are presen t above in CHECKIN. SD*5.3*71 7 wtc 10/2 5/2018 | |
3785 | "RTN","SDE C25",165,0 ) | |
3786 | ; | |
3787 | "RTN","SDE C25",166,0 ) | |
3788 | ;N SDATA, SDCIHDL,X S SDATA=SD DA_U_DFN_U _SDT_U_SDC L,SDCIHDL= $$HANDLE^S DAMEVT(1) | |
3789 | "RTN","SDE C25",167,0 ) | |
3790 | ;D BEFORE ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDCIHD L) | |
3791 | "RTN","SDE C25",168,0 ) | |
3792 | S FDA(44. 003,SDDA_" ,"_SDT_"," _SDCL_",", 309)="" D FILE^DIE(, "FDA","ERR ") | |
3793 | "RTN","SDE C25",169,0 ) | |
3794 | ;D AFTER^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) | |
3795 | "RTN","SDE C25",170,0 ) | |
3796 | ;D CHKEVT D(DFN,SDT, SDCL) | |
3797 | "RTN","SDE C25",171,0 ) | |
3798 | K FDA,ERR | |
3799 | "RTN","SDE C25",172,0 ) | |
3800 | Q | |
3801 | "RTN","SDE C25",173,0 ) | |
3802 | ; | |
3803 | "RTN","SDE C25",174,0 ) | |
3804 | FIND(DFN,S DT,SDCL) ; -- return appt ifn for pat | |
3805 | "RTN","SDE C25",175,0 ) | |
3806 | ; input : D FN := ifn of pat. | |
3807 | "RTN","SDE C25",176,0 ) | |
3808 | ; S DT := appt d/t | |
3809 | "RTN","SDE C25",177,0 ) | |
3810 | ; SD CL := ifn of clinic | |
3811 | "RTN","SDE C25",178,0 ) | |
3812 | ; output : [returne d] := ifn if pat has appt on d ate/time | |
3813 | "RTN","SDE C25",179,0 ) | |
3814 | ; | |
3815 | "RTN","SDE C25",180,0 ) | |
3816 | N Y | |
3817 | "RTN","SDE C25",181,0 ) | |
3818 | S Y=0 F S Y=$O(^SC (SDCL,"S", SDT,1,Y)) Q:'Y I $D (^(Y,0)),D FN=+^(0),$ D(^DPT(+DF N,"S",SDT, 0)),$$VALI D(DFN,SDCL ,SDT,Y) Q | |
3819 | "RTN","SDE C25",182,0 ) | |
3820 | Q Y | |
3821 | "RTN","SDE C25",183,0 ) | |
3822 | ; | |
3823 | "RTN","SDE C25",184,0 ) | |
3824 | VALID(DFN, SDCL,SDT,S DDA) ; -- return val id appt. | |
3825 | "RTN","SDE C25",185,0 ) | |
3826 | ; **NOTE: For spee d consider ation the ^SC and ^D PT nodes m ust be | |
3827 | "RTN","SDE C25",186,0 ) | |
3828 | ; check to see they exist prio r to calli ng this en try point. | |
3829 | "RTN","SDE C25",187,0 ) | |
3830 | ; input : D FN := ifn of pat. | |
3831 | "RTN","SDE C25",188,0 ) | |
3832 | ; S DT := appt d/t | |
3833 | "RTN","SDE C25",189,0 ) | |
3834 | ; SD CL := ifn of clinic | |
3835 | "RTN","SDE C25",190,0 ) | |
3836 | ; SD DA := ifn of appt | |
3837 | "RTN","SDE C25",191,0 ) | |
3838 | ; output : [returne d] := 1 fo r valid ap pt., 0 for not valid | |
3839 | "RTN","SDE C25",192,0 ) | |
3840 | Q $S($P(^ SC(SDCL,"S ",SDT,1,SD DA,0),U,9) '="C":1,$P (^DPT(DFN, "S",SDT,0) ,U,2)["C": 1,1:0) | |
3841 | "RTN","SDE C25",193,0 ) | |
3842 | ; | |
3843 | "RTN","SDE C25",194,0 ) | |
3844 | CHKEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CHECKIN APPOINTMEN T event | |
3845 | "RTN","SDE C25",195,0 ) | |
3846 | ;when app ointments CHECKIN vi a PIMS int erface. | |
3847 | "RTN","SDE C25",196,0 ) | |
3848 | ;Propagat es CHECKIN to SDECAP PT and rai ses refres h event to running G UI clients | |
3849 | "RTN","SDE C25",197,0 ) | |
3850 | ; | |
3851 | "RTN","SDE C25",198,0 ) | |
3852 | Q:+$G(SDE CNOEV) | |
3853 | "RTN","SDE C25",199,0 ) | |
3854 | Q:'+$G(SD ECSC) | |
3855 | "RTN","SDE C25",200,0 ) | |
3856 | N SDECSTA T,SDECFOUN D,SDECRES | |
3857 | "RTN","SDE C25",201,0 ) | |
3858 | S SDECSTA T="" | |
3859 | "RTN","SDE C25",202,0 ) | |
3860 | S:$G(SDAT A("AFTER", "STATUS")) ["CHECKED IN" SDECST AT=$P(SDAT A("AFTER", "STATUS"), "^",4) | |
3861 | "RTN","SDE C25",203,0 ) | |
3862 | S SDECFOU ND=0 | |
3863 | "RTN","SDE C25",204,0 ) | |
3864 | I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0)) S SDECFOU ND=$$CHKEV T1(SDECRES ,SDECSTART ,SDECPAT,S DECSTAT) | |
3865 | "RTN","SDE C25",205,0 ) | |
3866 | I SDECFOU ND D CHKEV T3(SDECRES ) Q | |
3867 | "RTN","SDE C25",206,0 ) | |
3868 | Q | |
3869 | "RTN","SDE C25",207,0 ) | |
3870 | ; | |
3871 | "RTN","SDE C25",208,0 ) | |
3872 | CHKEVT1(SD ECRES,SDEC START,SDEC PAT,SDECST AT) ; | |
3873 | "RTN","SDE C25",209,0 ) | |
3874 | ;Get appo intment id in SDECAP T | |
3875 | "RTN","SDE C25",210,0 ) | |
3876 | ;If found , call SDE CNOS(SDECA PPT) and r eturn 1 | |
3877 | "RTN","SDE C25",211,0 ) | |
3878 | ;else ret urn 0 | |
3879 | "RTN","SDE C25",212,0 ) | |
3880 | N SDECFOU ND,SDECAPP T | |
3881 | "RTN","SDE C25",213,0 ) | |
3882 | S SDECFOU ND=0 | |
3883 | "RTN","SDE C25",214,0 ) | |
3884 | Q:'+$G(SD ECRES) SDE CFOUND | |
3885 | "RTN","SDE C25",215,0 ) | |
3886 | Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND | |
3887 | "RTN","SDE C25",216,0 ) | |
3888 | S SDECAPP T=0 F S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT)) Q:'+SDECA PPT D Q: SDECFOUND | |
3889 | "RTN","SDE C25",217,0 ) | |
3890 | . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D="" | |
3891 | "RTN","SDE C25",218,0 ) | |
3892 | . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S SDECFOUND =1 Q | |
3893 | "RTN","SDE C25",219,0 ) | |
3894 | I SDECFOU ND,+$G(SDE CAPPT) D S DECCHK(SDE CAPPT,SDEC STAT) | |
3895 | "RTN","SDE C25",220,0 ) | |
3896 | Q SDECFOU ND | |
3897 | "RTN","SDE C25",221,0 ) | |
3898 | ; | |
3899 | "RTN","SDE C25",222,0 ) | |
3900 | CHKEVT3(SD ECRES) ; | |
3901 | "RTN","SDE C25",223,0 ) | |
3902 | ;Call Rai seEvent to notify GU I clients | |
3903 | "RTN","SDE C25",224,0 ) | |
3904 | ; | |
3905 | "RTN","SDE C25",225,0 ) | |
3906 | Q | |
3907 | "RTN","SDE C25",226,0 ) | |
3908 | N SDECRES N | |
3909 | "RTN","SDE C25",227,0 ) | |
3910 | S SDECRES N=$G(^SDEC (409.831,S DECRES,0)) | |
3911 | "RTN","SDE C25",228,0 ) | |
3912 | Q:SDECRES N="" | |
3913 | "RTN","SDE C25",229,0 ) | |
3914 | S SDECRES N=$P(SDECR ESN,"^") | |
3915 | "RTN","SDE C25",230,0 ) | |
3916 | ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","") | |
3917 | "RTN","SDE C25",231,0 ) | |
3918 | ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN) | |
3919 | "RTN","SDE C25",232,0 ) | |
3920 | Q | |
3921 | "RTN","SDE C25",233,0 ) | |
3922 | ; | |
3923 | "RTN","SDE C25",234,0 ) | |
3924 | CHKEVTD(SD ECPAT,SDEC START,SDEC SC) ;EP Ca lled by SD EC CHECKIN APPOINTME NT event | |
3925 | "RTN","SDE C25",235,0 ) | |
3926 | ;when an appointme nt CHECKIN is delete d via. | |
3927 | "RTN","SDE C25",236,0 ) | |
3928 | ;Deletes CHECKIN to and raise s refresh event to r unning GUI clients | |
3929 | "RTN","SDE C25",237,0 ) | |
3930 | ; | |
3931 | "RTN","SDE C25",238,0 ) | |
3932 | ; | |
3933 | "RTN","SDE C25",239,0 ) | |
3934 | Q:+$G(SDE CNOEV) | |
3935 | "RTN","SDE C25",240,0 ) | |
3936 | Q:'+$G(SD ECSC) | |
3937 | "RTN","SDE C25",241,0 ) | |
3938 | N SDECSTA T,SDECFOUN D,SDECRES | |
3939 | "RTN","SDE C25",242,0 ) | |
3940 | S SDECSTA T="" | |
3941 | "RTN","SDE C25",243,0 ) | |
3942 | S:$G(SDAT A("AFTER", "STATUS")) '="CHECKED IN" SDECS TAT=$P(SDA TA("AFTER" ,"STATUS") ,"^",4) | |
3943 | "RTN","SDE C25",244,0 ) | |
3944 | I SDECSTA T="" S SDE CRES=$O(^S DEC(409.83 1,"ALOC",S DECSC,0)) | |
3945 | "RTN","SDE C25",245,0 ) | |
3946 | I SDECRES D CHKEVT3 (SDECRES) Q | |
3947 | "RTN","SDE C25",246,0 ) | |
3948 | S SDECFOU ND=0 | |
3949 | "RTN","SDE C25",247,0 ) | |
3950 | ; | |
3951 | "RTN","SDE C25",248,0 ) | |
3952 | ;I $D(^SD EC(409.831 ,"ALOC",SD ECSC)) S S DECRES=$O( ^SDEC(409. 831,"ALOC" ,SDECSC,0) ) S SDECFO UND=$$CHKE VT1(SDECRE S,SDECSTAR T,SDECPAT, SDECSTAT) | |
3953 | "RTN","SDE C25",249,0 ) | |
3954 | ;I SDECFO UND D CHKE VT3(SDECRE S) Q | |
3955 | "RTN","SDE C25",250,0 ) | |
3956 | Q | |
3957 | "RTN","SDE C25",251,0 ) | |
3958 | ; | |
3959 | "RTN","SDE C25",252,0 ) | |
3960 | ;CHECK OU T APPOINTM ENT - RPC | |
3961 | "RTN","SDE C25",253,0 ) | |
3962 | CHECKOUT(S DECY,DFN,S DT,SDCODT, SDECAPTID, VPRV) ;Che ck Out app ointment | |
3963 | "RTN","SDE C25",254,0 ) | |
3964 | ;CHECKOUT (SDECY,DFN ,SDT,SDCOD T,SDECAPTI D,VPRV) e xternal pa rameter ta g is in SD EC | |
3965 | "RTN","SDE C25",255,0 ) | |
3966 | ; Returns SDECY | |
3967 | "RTN","SDE C25",256,0 ) | |
3968 | ; Input -- DFN Patient file IEN | |
3969 | "RTN","SDE C25",257,0 ) | |
3970 | ; SDT Appointm ent Date/T ime in FM format | |
3971 | "RTN","SDE C25",258,0 ) | |
3972 | ; SDCODT Date/Tim e of Check Out FM FO RMAT [REQU IRED] | |
3973 | "RTN","SDE C25",259,0 ) | |
3974 | ; SDECAPT ID - Appoi ntment ID | |
3975 | "RTN","SDE C25",260,0 ) | |
3976 | ; VPRV - V Pro vider | |
3977 | "RTN","SDE C25",261,0 ) | |
3978 | ;SETUP ER ROR TRACKI NG | |
3979 | "RTN","SDE C25",262,0 ) | |
3980 | N APIERR, CNT,ERR,%D T,X,Y | |
3981 | "RTN","SDE C25",263,0 ) | |
3982 | N SDCL,SD ASK,SDCOAC T,SDCOALBF ,SDDA,SDLN E,SDQUIET | |
3983 | "RTN","SDE C25",264,0 ) | |
3984 | N SDECI,S DECNOD,RPC PERM | |
3985 | "RTN","SDE C25",265,0 ) | |
3986 | S SDECI=0 | |
3987 | "RTN","SDE C25",266,0 ) | |
3988 | K ^TMP("S DEC",$J) | |
3989 | "RTN","SDE C25",267,0 ) | |
3990 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | |
3991 | "RTN","SDE C25",268,0 ) | |
3992 | S ^TMP("S DEC",$J,0) ="T00020ER RORID"_$C( 30) | |
3993 | "RTN","SDE C25",269,0 ) | |
3994 | S RPCPERM ="" | |
3995 | "RTN","SDE C25",270,0 ) | |
3996 | S RPCPERM =$$KCHK^XU SRB("SD SU PERVISOR", DUZ) I RPC PERM=0 D E RR("THE SD SUPERVISO R KEY IS R EQUIRED TO PERFORM T HIS ACTION .") Q | |
3997 | "RTN","SDE C25",271,0 ) | |
3998 | I '+SDECA PTID D ERR ("Invalid Appointmen t ID.") Q | |
3999 | "RTN","SDE C25",272,0 ) | |
4000 | I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( "Invalid A ppointment ID.") Q | |
4001 | "RTN","SDE C25",273,0 ) | |
4002 | ;INITIALI ZE VARIABL ES | |
4003 | "RTN","SDE C25",274,0 ) | |
4004 | S %DT="T" | |
4005 | "RTN","SDE C25",275,0 ) | |
4006 | S X=SDT | |
4007 | "RTN","SDE C25",276,0 ) | |
4008 | D ^%DT ; GET FM F ORMAT FOR APPOINTMEN T DATE/TIM E | |
4009 | "RTN","SDE C25",277,0 ) | |
4010 | S SDT=Y | |
4011 | "RTN","SDE C25",278,0 ) | |
4012 | S X=SDCOD T | |
4013 | "RTN","SDE C25",279,0 ) | |
4014 | D ^%DT ; GET FM F ORMAT FOR CHECKOUT D ATE/TIME | |
4015 | "RTN","SDE C25",280,0 ) | |
4016 | ;ChecOut time canno t be in th e future | |
4017 | "RTN","SDE C25",281,0 ) | |
4018 | S SDCODT= Y | |
4019 | "RTN","SDE C25",282,0 ) | |
4020 | I SDCODT> $$HTFM^XLF DT($H) D E RR("Check Out time c annot be i n the futu re.") Q | |
4021 | "RTN","SDE C25",283,0 ) | |
4022 | ; | |
4023 | "RTN","SDE C25",284,0 ) | |
4024 | ;appointm ent record | |
4025 | "RTN","SDE C25",285,0 ) | |
4026 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |
4027 | "RTN","SDE C25",286,0 ) | |
4028 | ;make sur e CHECKOUT time is a fter CHECK IN time | |
4029 | "RTN","SDE C25",287,0 ) | |
4030 | I SDCODT' >$P(SDECNO D,U,3) D E RR("Check Out time m ust be at least 1 mi nute after the Check In time o f "_$TR($$ FMTE^XLFDT ($P(SDECNO D,U,3)),"@ "," ")_"." ) Q ;alb /sat 665 | |
4031 | "RTN","SDE C25",288,0 ) | |
4032 | ;Hospital Location of RESOURC E | |
4033 | "RTN","SDE C25",289,0 ) | |
4034 | S SDECRES =$P(SDECNO D,U,7) ;RE SOURCEID | |
4035 | "RTN","SDE C25",290,0 ) | |
4036 | S SDECNOD =^SDEC(409 .831,SDECR ES,0) | |
4037 | "RTN","SDE C25",291,0 ) | |
4038 | S SDCL=$P (SDECNOD,U ,4) ;HOSPI TAL LOCATI ON | |
4039 | "RTN","SDE C25",292,0 ) | |
4040 | ; | |
4041 | "RTN","SDE C25",293,0 ) | |
4042 | S SDDA=0 | |
4043 | "RTN","SDE C25",294,0 ) | |
4044 | S SDASK=0 | |
4045 | "RTN","SDE C25",295,0 ) | |
4046 | S SDCOALB F="" | |
4047 | "RTN","SDE C25",296,0 ) | |
4048 | S SDCOACT ="CO" | |
4049 | "RTN","SDE C25",297,0 ) | |
4050 | S SDLNE=" " | |
4051 | "RTN","SDE C25",298,0 ) | |
4052 | S SDQUIET =1 | |
4053 | "RTN","SDE C25",299,0 ) | |
4054 | K APIERR | |
4055 | "RTN","SDE C25",300,0 ) | |
4056 | S APIERR= 0 | |
4057 | "RTN","SDE C25",301,0 ) | |
4058 | ; | |
4059 | "RTN","SDE C25",302,0 ) | |
4060 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | |
4061 | "RTN","SDE C25",303,0 ) | |
4062 | ; | |
4063 | "RTN","SDE C25",304,0 ) | |
4064 | N SDATA,S DDA,SDCIHD L ; | |
4065 | "RTN","SDE C25",305,0 ) | |
4066 | S SDDA=$$ FIND(DFN,S DT,SDCL),S DATA=SDDA_ U_DFN_U_SD T_U_SDCL,S DCIHDL=$$H ANDLE^SDAM EVT(1) ; | |
4067 | "RTN","SDE C25",306,0 ) | |
4068 | ; | |
4069 | "RTN","SDE C25",307,0 ) | |
4070 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | |
4071 | "RTN","SDE C25",308,0 ) | |
4072 | ; | |
4073 | "RTN","SDE C25",309,0 ) | |
4074 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) ; | |
4075 | "RTN","SDE C25",310,0 ) | |
4076 | ; | |
4077 | "RTN","SDE C25",311,0 ) | |
4078 | D CO^SDEC 25A(DFN,SD T,SDCL,SDD A,SDASK,SD CODT,SDCOA CT,SDLNE,. SDCOALBF,S DECAPTID,S DQUIET,VPR V,.APIERR) ;Appt Che ck Out | |
4079 | "RTN","SDE C25",312,0 ) | |
4080 | ; | |
4081 | "RTN","SDE C25",313,0 ) | |
4082 | ; Skip e vent drive r actions if error o ccurred ch ecking app ointment o ut. - wtc SD*5.3*717 10/25/201 8 | |
4083 | "RTN","SDE C25",314,0 ) | |
4084 | ; | |
4085 | "RTN","SDE C25",315,0 ) | |
4086 | I 'APIERR D ; | |
4087 | "RTN","SDE C25",316,0 ) | |
4088 | . ; | |
4089 | "RTN","SDE C25",317,0 ) | |
4090 | . ; Even t driver " AFTER" act ions - wtc SD*5.3*71 7 10/25/18 | |
4091 | "RTN","SDE C25",318,0 ) | |
4092 | . ; | |
4093 | "RTN","SDE C25",319,0 ) | |
4094 | . D AFTER ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDCIHD L) ; | |
4095 | "RTN","SDE C25",320,0 ) | |
4096 | . ; | |
4097 | "RTN","SDE C25",321,0 ) | |
4098 | . ; Exec ute event driver. 5 =check out (see #409 .66), 2=no n-interact ive - wtc SD*5.3*717 10/25/18 | |
4099 | "RTN","SDE C25",322,0 ) | |
4100 | . ; | |
4101 | "RTN","SDE C25",323,0 ) | |
4102 | . D EVT^S DAMEVT(.SD ATA,5,2,SD CIHDL) ; | |
4103 | "RTN","SDE C25",324,0 ) | |
4104 | ; | |
4105 | "RTN","SDE C25",325,0 ) | |
4106 | ;ERROR(S) FOUND | |
4107 | "RTN","SDE C25",326,0 ) | |
4108 | I APIERR> 0 D | |
4109 | "RTN","SDE C25",327,0 ) | |
4110 | . S CNT=" " | |
4111 | "RTN","SDE C25",328,0 ) | |
4112 | . F S CN T=$O(APIER R(CNT)) Q: CNT="" S ERR=APIERR (CNT) S SD ECI=SDECI+ 1 D ERR(ER R) | |
4113 | "RTN","SDE C25",329,0 ) | |
4114 | ;NO ERROR | |
4115 | "RTN","SDE C25",330,0 ) | |
4116 | I APIERR< 1 D | |
4117 | "RTN","SDE C25",331,0 ) | |
4118 | . S SDECI =SDECI+1 | |
4119 | "RTN","SDE C25",332,0 ) | |
4120 | . S ^TMP( "SDEC",$J, SDECI)="0" _$C(30) | |
4121 | "RTN","SDE C25",333,0 ) | |
4122 | . S SDECI =SDECI+1 | |
4123 | "RTN","SDE C25",334,0 ) | |
4124 | . S ^TMP( "SDEC",$J, SDECI)=$C( 31) | |
4125 | "RTN","SDE C25",335,0 ) | |
4126 | Q | |
4127 | "RTN","SDE C25",336,0 ) | |
4128 | ; | |
4129 | "RTN","SDE C25",337,0 ) | |
4130 | ;CHECK OU T APPOINTM ENT - RPC | |
4131 | "RTN","SDE C25",338,0 ) | |
4132 | CANCKOUT(S DECY,SDECA PTID) ;Can cel Check Out appoin tment | |
4133 | "RTN","SDE C25",339,0 ) | |
4134 | ;CANCKOUT (SDECY,SDE CAPTID) e xternal pa rameter ta g is in SD EC | |
4135 | "RTN","SDE C25",340,0 ) | |
4136 | ; Returns SDECY | |
4137 | "RTN","SDE C25",341,0 ) | |
4138 | ; Input -- SDECAPT ID - Appoi ntment ID | |
4139 | "RTN","SDE C25",342,0 ) | |
4140 | N APS,DA, DFN,DIE,DR ,RES | |
4141 | "RTN","SDE C25",343,0 ) | |
4142 | N SDCL,SD N,SDOE,SDT ,SDV | |
4143 | "RTN","SDE C25",344,0 ) | |
4144 | N SDECI,S DECNOD,RPC PERM | |
4145 | "RTN","SDE C25",345,0 ) | |
4146 | S SDECI=0 | |
4147 | "RTN","SDE C25",346,0 ) | |
4148 | K ^TMP("S DEC",$J) | |
4149 | "RTN","SDE C25",347,0 ) | |
4150 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | |
4151 | "RTN","SDE C25",348,0 ) | |
4152 | S ^TMP("S DEC",$J,0) ="T00020ER RORID"_$C( 30) | |
4153 | "RTN","SDE C25",349,0 ) | |
4154 | S RPCPERM ="" | |
4155 | "RTN","SDE C25",350,0 ) | |
4156 | S RPCPERM =$$KCHK^XU SRB("SD SU PERVISOR", DUZ) I RPC PERM=0 D E RR("THE SD SUPERVISO R KEY IS R EQUIRED TO PERFORM T HIS ACTION .") Q | |
4157 | "RTN","SDE C25",351,0 ) | |
4158 | I '+SDECA PTID D ERR ("Invalid Appointmen t ID.") Q | |
4159 | "RTN","SDE C25",352,0 ) | |
4160 | I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( "Invalid A ppointment ID.") Q | |
4161 | "RTN","SDE C25",353,0 ) | |
4162 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |
4163 | "RTN","SDE C25",354,0 ) | |
4164 | S APS=$P( SDECNOD,U, 19) | |
4165 | "RTN","SDE C25",355,0 ) | |
4166 | S DFN=$P( SDECNOD,U, 5) | |
4167 | "RTN","SDE C25",356,0 ) | |
4168 | S SDT=$P( SDECNOD,U) | |
4169 | "RTN","SDE C25",357,0 ) | |
4170 | S RES=$P( SDECNOD,U, 7) | |
4171 | "RTN","SDE C25",358,0 ) | |
4172 | S SDCL=$P (^SDEC(409 .831,RES,0 ),U,4) | |
4173 | "RTN","SDE C25",359,0 ) | |
4174 | I $P(SDEC NOD,U,14)= "" D ERR(" Appointmen t is not C hecked Out .") Q | |
4175 | "RTN","SDE C25",360,0 ) | |
4176 | ; | |
4177 | "RTN","SDE C25",361,0 ) | |
4178 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | |
4179 | "RTN","SDE C25",362,0 ) | |
4180 | ; | |
4181 | "RTN","SDE C25",363,0 ) | |
4182 | N SDATA,S DDA,SDCIHD L ; | |
4183 | "RTN","SDE C25",364,0 ) | |
4184 | S SDDA=$$ FIND(DFN,S DT,SDCL),S DATA=SDDA_ U_DFN_U_SD T_U_SDCL,S DCIHDL=$$H ANDLE^SDAM EVT(1) ; | |
4185 | "RTN","SDE C25",365,0 ) | |
4186 | ; | |
4187 | "RTN","SDE C25",366,0 ) | |
4188 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | |
4189 | "RTN","SDE C25",367,0 ) | |
4190 | ; | |
4191 | "RTN","SDE C25",368,0 ) | |
4192 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCIHDL ) ; | |
4193 | "RTN","SDE C25",369,0 ) | |
4194 | ; | |
4195 | "RTN","SDE C25",370,0 ) | |
4196 | ; ^SDECAP PT: update piece 8: Data Entry Clerk; cl ear piece 14: CHECKO UT; | |
4197 | "RTN","SDE C25",371,0 ) | |
4198 | S DIE="^S DEC(409.84 ," | |
4199 | "RTN","SDE C25",372,0 ) | |
4200 | S DA=SDEC APTID | |
4201 | "RTN","SDE C25",373,0 ) | |
4202 | S DR=".14 ////@;.08/ //"_DUZ | |
4203 | "RTN","SDE C25",374,0 ) | |
4204 | D ^DIE | |
4205 | "RTN","SDE C25",375,0 ) | |
4206 | ; ^SC fil e 44: clea r piece C; 3: CHECKED OUT; clea r piece C; 4: CHECK O UT USER; c lear C;6: CHECK OUT ENTERED | |
4207 | "RTN","SDE C25",376,0 ) | |
4208 | S DIE="^S C("_SDCL_" ,""S"","_S DT_",1," | |
4209 | "RTN","SDE C25",377,0 ) | |
4210 | S DA(2)=S DCL,DA(1)= SDT,(DA,SD N)=$$SCIEN ^SDECU2(DF N,SDCL,SDT ) | |
4211 | "RTN","SDE C25",378,0 ) | |
4212 | S DR="303 ///@;304// /@;306///@ " | |
4213 | "RTN","SDE C25",379,0 ) | |
4214 | D ^DIE | |
4215 | "RTN","SDE C25",380,0 ) | |
4216 | ; ^AUPNVS IT file 90 00010: cle ar piece 1 8: CHECK O UT DATE&TI ME | |
4217 | "RTN","SDE C25",381,0 ) | |
4218 | S SDOE=$$ GETAPT^SDV SIT2(DFN,S DT,SDCL) | |
4219 | "RTN","SDE C25",382,0 ) | |
4220 | S SDV=$$G ET1^DIQ(40 9.68,SDOE, .05,"I") | |
4221 | "RTN","SDE C25",383,0 ) | |
4222 | I +SDV D | |
4223 | "RTN","SDE C25",384,0 ) | |
4224 | . S DIE=" ^AUPNVSIT( ",DA=SDV | |
4225 | "RTN","SDE C25",385,0 ) | |
4226 | . S DR=". 18///@" | |
4227 | "RTN","SDE C25",386,0 ) | |
4228 | . D ^DIE | |
4229 | "RTN","SDE C25",387,0 ) | |
4230 | ; ^SCE fi le 409.68: Set piece 12 back t o CHECKED IN, pointe r to APPOI NTMENT STA TUS file 4 09.63; cle ar piece 7 : CHECK OU T PROCESS COMPLETION | |
4231 | "RTN","SDE C25",388,0 ) | |
4232 | I +APS D | |
4233 | "RTN","SDE C25",389,0 ) | |
4234 | . S DIE=4 09.68,DA=S DOE,DR=".0 7///@;.12/ //"_APS_"; 101///"_DU Z_";102/// "_$$NOW^XL FDT | |
4235 | "RTN","SDE C25",390,0 ) | |
4236 | . D ^DIE | |
4237 | "RTN","SDE C25",391,0 ) | |
4238 | ; | |
4239 | "RTN","SDE C25",392,0 ) | |
4240 | ; Event driver "AF TER" actio ns - wtc S D*5.3*717 10/25/18 | |
4241 | "RTN","SDE C25",393,0 ) | |
4242 | ; | |
4243 | "RTN","SDE C25",394,0 ) | |
4244 | D AFTER^S DAMEVT(.SD ATA,DFN,SD T,SDCL,SDD A,SDCIHDL) ; | |
4245 | "RTN","SDE C25",395,0 ) | |
4246 | ; | |
4247 | "RTN","SDE C25",396,0 ) | |
4248 | ; Execut e event dr iver. 5=c heck out ( see #409.6 6), 2=non- interactiv e - wtc SD *5.3*717 1 0/25/18 | |
4249 | "RTN","SDE C25",397,0 ) | |
4250 | ; | |
4251 | "RTN","SDE C25",398,0 ) | |
4252 | D EVT^SDA MEVT(.SDAT A,5,2,SDCI HDL) ; | |
4253 | "RTN","SDE C25",399,0 ) | |
4254 | ; | |
4255 | "RTN","SDE C25",400,0 ) | |
4256 | S SDECI=S DECI+1 | |
4257 | "RTN","SDE C25",401,0 ) | |
4258 | S ^TMP("S DEC",$J,SD ECI)="0"_$ C(30) | |
4259 | "RTN","SDE C25",402,0 ) | |
4260 | S SDECI=S DECI+1 | |
4261 | "RTN","SDE C25",403,0 ) | |
4262 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |
4263 | "RTN","SDE C25",404,0 ) | |
4264 | Q | |
4265 | "RTN","SDE C25",405,0 ) | |
4266 | ; | |
4267 | "RTN","SDE C25",406,0 ) | |
4268 | CANAPPT(SD ECAPTID) ;external call to ca ncel check out in SD EC APPOINT MENT calle d by SDCOD EL for Vis tA Delete Check Out | |
4269 | "RTN","SDE C25",407,0 ) | |
4270 | N APS,DA, DIE,DR,DFN ,RES,SDCL, SDT | |
4271 | "RTN","SDE C25",408,0 ) | |
4272 | N SDECNOD | |
4273 | "RTN","SDE C25",409,0 ) | |
4274 | I '+$G(SD ECAPTID) Q | |
4275 | "RTN","SDE C25",410,0 ) | |
4276 | I '$D(^SD EC(409.84, +SDECAPTID ,0)) Q | |
4277 | "RTN","SDE C25",411,0 ) | |
4278 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |
4279 | "RTN","SDE C25",412,0 ) | |
4280 | S APS=$P( SDECNOD,U, 19) | |
4281 | "RTN","SDE C25",413,0 ) | |
4282 | S DFN=$P( SDECNOD,U, 5) | |
4283 | "RTN","SDE C25",414,0 ) | |
4284 | S SDT=$P( SDECNOD,U) | |
4285 | "RTN","SDE C25",415,0 ) | |
4286 | S RES=$P( SDECNOD,U, 7) | |
4287 | "RTN","SDE C25",416,0 ) | |
4288 | S SDCL=$P (^SDEC(409 .831,RES,0 ),U,4) | |
4289 | "RTN","SDE C25",417,0 ) | |
4290 | I $P(SDEC NOD,U,14)= "" Q | |
4291 | "RTN","SDE C25",418,0 ) | |
4292 | ; ^SDEC(4 09.84: upd ate piece 8: Data En try Clerk; clear pie ce 14: CHE CKOUT; | |
4293 | "RTN","SDE C25",419,0 ) | |
4294 | S DIE="^S DEC(409.84 ," | |
4295 | "RTN","SDE C25",420,0 ) | |
4296 | S DA=SDEC APTID | |
4297 | "RTN","SDE C25",421,0 ) | |
4298 | S DR=".14 ////@;.08/ //"_DUZ | |
4299 | "RTN","SDE C25",422,0 ) | |
4300 | D ^DIE | |
4301 | "RTN","SDE C25",423,0 ) | |
4302 | Q | |
4303 | "RTN","SDE C25",424,0 ) | |
4304 | ; | |
4305 | "RTN","SDE C25",425,0 ) | |
4306 | ERROR ; | |
4307 | "RTN","SDE C25",426,0 ) | |
4308 | D ERR("VI STA Error" ) | |
4309 | "RTN","SDE C25",427,0 ) | |
4310 | Q | |
4311 | "RTN","SDE C25",428,0 ) | |
4312 | ; | |
4313 | "RTN","SDE C25",429,0 ) | |
4314 | ERR(ERRNO) ;Error pr ocessing | |
4315 | "RTN","SDE C25",430,0 ) | |
4316 | S SDECI=S DECI+1 | |
4317 | "RTN","SDE C25",431,0 ) | |
4318 | S ^TMP("S DEC",$J,SD ECI)=ERRNO _$C(30) | |
4319 | "RTN","SDE C25",432,0 ) | |
4320 | S SDECI=S DECI+1 | |
4321 | "RTN","SDE C25",433,0 ) | |
4322 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |
4323 | "RTN","SDE C25",434,0 ) | |
4324 | Q | |
4325 | "RTN","SDE C31") | |
4326 | 0^8^B34969 907^B26336 338 | |
4327 | "RTN","SDE C31",1,0) | |
4328 | SDEC31 ;AL B/SAT - VI STA SCHEDU LING RPCS ;JAN 15, 2 016 | |
4329 | "RTN","SDE C31",2,0) | |
4330 | ;;5.3;Sch eduling;** 627,683,71 7**;Aug 13 , 1993;Bui ld 7 | |
4331 | "RTN","SDE C31",3,0) | |
4332 | ; | |
4333 | "RTN","SDE C31",4,0) | |
4334 | Q | |
4335 | "RTN","SDE C31",5,0) | |
4336 | ; | |
4337 | "RTN","SDE C31",6,0) | |
4338 | NOSHOW(SDE CY,SDECAPT ID,SDECNS, USERIEN,SD ECDATE) ; Sets appoi ntment nos how flag i n SDEC APP OINTMENT f ile | |
4339 | "RTN","SDE C31",7,0) | |
4340 | ;NOSHOW(S DECY,SDECA PTID,SDECN S,USERIEN, SDECDATE) external parameter tag is in SDEC | |
4341 | "RTN","SDE C31",8,0) | |
4342 | ;Called b y SDEC NOS HOW | |
4343 | "RTN","SDE C31",9,0) | |
4344 | ;SDECAPTI D - (requi red) Appoi ntment ID - Pointer to SDEC AP POINTMENT file | |
4345 | "RTN","SDE C31",10,0) | |
4346 | ;SDECNS - (requi red) Cance l flag 1= YES (Set N OSHOW); 0= NO (Cancel NOSHOW) | |
4347 | "RTN","SDE C31",11,0) | |
4348 | ;USERIEN - (optio nal) User that enter ed NoShow pointer to NEW PERSO N | |
4349 | "RTN","SDE C31",12,0) | |
4350 | ; defau lt to curr ent user | |
4351 | "RTN","SDE C31",13,0) | |
4352 | ;SDECDATE - (optio nal) Date/ Time that No-show wa s entered in externa l format | |
4353 | "RTN","SDE C31",14,0) | |
4354 | ; defaul t to NOW. | |
4355 | "RTN","SDE C31",15,0) | |
4356 | ;Calls CA NCEL^SDEC0 8 to set n oshow data in ^DPT <<== NOT T RUE wtc 10 /25/18 | |
4357 | "RTN","SDE C31",16,0) | |
4358 | ;Returns error code in record set field ERRORID | |
4359 | "RTN","SDE C31",17,0) | |
4360 | ; | |
4361 | "RTN","SDE C31",18,0) | |
4362 | N SDECNOD ,DFN,SDECS TART,SDECI D,SDECI,SD ECZ,SDECER R,SDECMSG, SDFDA,SDEC IENS | |
4363 | "RTN","SDE C31",19,0) | |
4364 | N SDECNOE V,%DT,X,Y, SDECOE | |
4365 | "RTN","SDE C31",20,0) | |
4366 | S SDECNOE V=1 ;Don't execute p rotocol | |
4367 | "RTN","SDE C31",21,0) | |
4368 | ; | |
4369 | "RTN","SDE C31",22,0) | |
4370 | S SDECI=0 | |
4371 | "RTN","SDE C31",23,0) | |
4372 | K ^TMP("S DEC",$J) | |
4373 | "RTN","SDE C31",24,0) | |
4374 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | |
4375 | "RTN","SDE C31",25,0) | |
4376 | S ^TMP("S DEC",$J,SD ECI)="I000 20ERRORID^ T00030ERRO RTEXT"_$C( 30) | |
4377 | "RTN","SDE C31",26,0) | |
4378 | S SDECI=S DECI+1 | |
4379 | "RTN","SDE C31",27,0) | |
4380 | ;validate SDEC appo intment ID | |
4381 | "RTN","SDE C31",28,0) | |
4382 | I '+SDECA PTID D ERR (0,"SDEC31 : Invalid Appointmen t ID") Q | |
4383 | "RTN","SDE C31",29,0) | |
4384 | I '$D(^SD EC(409.84, SDECAPTID, 0)) D ERR( 0,"SDEC31: Invalid A ppointment ID") Q | |
4385 | "RTN","SDE C31",30,0) | |
4386 | ;validate cancel fl ag | |
4387 | "RTN","SDE C31",31,0) | |
4388 | S SDECNS= $G(SDECNS) | |
4389 | "RTN","SDE C31",32,0) | |
4390 | S SDECNS= $S(SDECNS= "YES":1,SD ECNS=1:1,S DECNS="NO" :0,SDECNS= 0:0,1:"") | |
4391 | "RTN","SDE C31",33,0) | |
4392 | I SDECNS= "" D ERR(0 ,"SDEC31: Invalid No Show valu e") Q | |
4393 | "RTN","SDE C31",34,0) | |
4394 | ;validate user IEN (optional) | |
4395 | "RTN","SDE C31",35,0) | |
4396 | S USERIEN =$G(USERIE N) | |
4397 | "RTN","SDE C31",36,0) | |
4398 | I USERIEN '="" I '$D (^VA(200,+ USERIEN,0) ) S USERIE N="" | |
4399 | "RTN","SDE C31",37,0) | |
4400 | I USERIEN ="" S USER IEN=DUZ | |
4401 | "RTN","SDE C31",38,0) | |
4402 | ;validate cancel da te/time (o ptional) | |
4403 | "RTN","SDE C31",39,0) | |
4404 | S SDECDAT E=$G(SDECD ATE) | |
4405 | "RTN","SDE C31",40,0) | |
4406 | I SDECDAT E'="" S %D T="T" S X= SDECDATE D ^%DT S SD ECDATE=Y I Y=-1 S SD ECDATE="" | |
4407 | "RTN","SDE C31",41,0) | |
4408 | I $G(SDEC DATE)="" S SDECDATE= $$NOW^XLFD T | |
4409 | "RTN","SDE C31",42,0) | |
4410 | TSTART | |
4411 | "RTN","SDE C31",43,0) | |
4412 | ; | |
4413 | "RTN","SDE C31",44,0) | |
4414 | ;Edit SDE C APPOINTM ENT entry NOSHOW fie ld | |
4415 | "RTN","SDE C31",45,0) | |
4416 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | |
4417 | "RTN","SDE C31",46,0) | |
4418 | ;I SDECNO D="" D ERR (0,"SDEC31 : Invalid Appointmen t ID") Q | |
4419 | "RTN","SDE C31",47,0) | |
4420 | S DFN=$P( SDECNOD,U, 5) | |
4421 | "RTN","SDE C31",48,0) | |
4422 | S SDECSTA RT=$P(SDEC NOD,U) | |
4423 | "RTN","SDE C31",49,0) | |
4424 | ; | |
4425 | "RTN","SDE C31",50,0) | |
4426 | ; Event driver "BE FORE" acti ons - wtc SD*5.3*717 10/25/18 | |
4427 | "RTN","SDE C31",51,0) | |
4428 | ; | |
4429 | "RTN","SDE C31",52,0) | |
4430 | N SDATA,S DDA,SDCIHD L,SDECR1,S DECSC1 ; | |
4431 | "RTN","SDE C31",53,0) | |
4432 | S SDECR1= $P(SDECNOD ,U,7) ;RES OURCEID | |
4433 | "RTN","SDE C31",54,0) | |
4434 | I SDECR1= "" D ERR(0 ,"SDEC31: Missing re source") Q ; | |
4435 | "RTN","SDE C31",55,0) | |
4436 | S SDECNOD =$G(^SDEC( 409.831,SD ECR1,0)) I SDECNOD=" " D ERR(0, "SDEC31: R esource no de missing ") Q ; | |
4437 | "RTN","SDE C31",56,0) | |
4438 | S SDECSC1 =$P(SDECNO D,U,4) ;HO SPITAL LOC ATION | |
4439 | "RTN","SDE C31",57,0) | |
4440 | I SDECSC1 ="" D ERR (0,"SDEC31 : No locat ion for re source") Q ; | |
4441 | "RTN","SDE C31",58,0) | |
4442 | I '$D(^SC (SDECSC1,0 )) D ERR(0 ,"SDEC31: Location n ode missin g") Q ; | |
4443 | "RTN","SDE C31",59,0) | |
4444 | ; | |
4445 | "RTN","SDE C31",60,0) | |
4446 | S SDDA=$$ FIND^SDEC2 5(DFN,SDEC START,SDEC SC1),SDATA =SDDA_U_DF N_U_SDECST ART_U_SDEC SC1,SDCIHD L=$$HANDLE ^SDAMEVT(1 ) ; | |
4447 | "RTN","SDE C31",61,0) | |
4448 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DECSTART,S DECSC1,SDD A,SDCIHDL) ; | |
4449 | "RTN","SDE C31",62,0) | |
4450 | ; | |
4451 | "RTN","SDE C31",63,0) | |
4452 | ; Proces s no show | |
4453 | "RTN","SDE C31",64,0) | |
4454 | ; | |
4455 | "RTN","SDE C31",65,0) | |
4456 | D SDECNOS (SDECAPTID ,SDECNS,US ERIEN,SDEC DATE) ; | |
4457 | "RTN","SDE C31",66,0) | |
4458 | I $D(SDEC MSG("DIERR ")) S SDEC MSG=$G(SDE CMSG("DIER R",1,"TEXT ",1)) D ER R(0,"SDEC3 1: "_SDECM SG) Q ; | |
4459 | "RTN","SDE C31",67,0) | |
4460 | D APNOSHO (.SDECZ,SD ECSC1,DFN, SDECSTART, SDECNS,USE RIEN,SDECD ATE,SDECAP TID) ; | |
4461 | "RTN","SDE C31",68,0) | |
4462 | I +$G(SDE CZ) S SDEC ERR="SDEC3 1: APNOSHO Returned: "_SDECZ D ERR(0,SDE CERR) Q ; | |
4463 | "RTN","SDE C31",69,0) | |
4464 | ; | |
4465 | "RTN","SDE C31",70,0) | |
4466 | ;*zeb+2 6 83 2/6/18 fix action required in PCE aft er no-show from GUI | |
4467 | "RTN","SDE C31",71,0) | |
4468 | S SDECOE= $P($G(^DPT (DFN,"S",S DECSTART,0 )),"^",20) | |
4469 | "RTN","SDE C31",72,0) | |
4470 | I SDECOE D EN^SDCOD EL(SDECOE, 2,"","NOSH OW") ;*ze b 717 11/1 3/18 suppr ess event logging fo r cancel c heckout wh en no-show ing | |
4471 | "RTN","SDE C31",73,0) | |
4472 | ; | |
4473 | "RTN","SDE C31",74,0) | |
4474 | ; Event driver "AF TER" actio ns - wtc S D*5.3*717 10/24/18 | |
4475 | "RTN","SDE C31",75,0) | |
4476 | ; | |
4477 | "RTN","SDE C31",76,0) | |
4478 | D AFTER^S DAMEVT(.SD ATA,DFN,SD ECSTART,SD ECSC1,SDDA ,SDCIHDL) ; | |
4479 | "RTN","SDE C31",77,0) | |
4480 | ; | |
4481 | "RTN","SDE C31",78,0) | |
4482 | ; Execut e event dr iver. 3=n o show (se e #409.66) , 2=non-in teractive - wtc SD*5 .3*717 10/ 25/18 | |
4483 | "RTN","SDE C31",79,0) | |
4484 | ; | |
4485 | "RTN","SDE C31",80,0) | |
4486 | D EVT^SDA MEVT(.SDAT A,3,2,SDCI HDL) ; | |
4487 | "RTN","SDE C31",81,0) | |
4488 | ; | |
4489 | "RTN","SDE C31",82,0) | |
4490 | TCOMMIT | |
4491 | "RTN","SDE C31",83,0) | |
4492 | S SDECI=S DECI+1 | |
4493 | "RTN","SDE C31",84,0) | |
4494 | S ^TMP("S DEC",$J,SD ECI)="1^"_ $C(30) | |
4495 | "RTN","SDE C31",85,0) | |
4496 | S SDECI=S DECI+1 | |
4497 | "RTN","SDE C31",86,0) | |
4498 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |
4499 | "RTN","SDE C31",87,0) | |
4500 | Q | |
4501 | "RTN","SDE C31",88,0) | |
4502 | ; | |
4503 | "RTN","SDE C31",89,0) | |
4504 | APNOSHO(SD ECZ,SDCL,D FN,SDT,SDE CNS,USERIE N,SDECCDT, SDAPID) ; | |
4505 | "RTN","SDE C31",90,0) | |
4506 | ; update file 2 inf o | |
4507 | "RTN","SDE C31",91,0) | |
4508 | ;Set nosh ow for pat ient DFN i n clinic S DCL | |
4509 | "RTN","SDE C31",92,0) | |
4510 | ;at time SDT | |
4511 | "RTN","SDE C31",93,0) | |
4512 | N SDECC,% H,SDECIEN, SDRTYP | |
4513 | "RTN","SDE C31",94,0) | |
4514 | N SDECIEN S,SDFDA,SD ECMSG,IEN | |
4515 | "RTN","SDE C31",95,0) | |
4516 | S %H=$H D YMD^%DTC | |
4517 | "RTN","SDE C31",96,0) | |
4518 | ; | |
4519 | "RTN","SDE C31",97,0) | |
4520 | S SDECIEN S=SDT_","_ DFN_"," | |
4521 | "RTN","SDE C31",98,0) | |
4522 | I +SDECNS D | |
4523 | "RTN","SDE C31",99,0) | |
4524 | . S SDFDA (2.98,SDEC IENS,3)="N " | |
4525 | "RTN","SDE C31",100,0 ) | |
4526 | . S SDFDA (2.98,SDEC IENS,14)=U SERIEN | |
4527 | "RTN","SDE C31",101,0 ) | |
4528 | . S SDFDA (2.98,SDEC IENS,15)=S DECCDT | |
4529 | "RTN","SDE C31",102,0 ) | |
4530 | E D | |
4531 | "RTN","SDE C31",103,0 ) | |
4532 | . S SDFDA (2.98,SDEC IENS,3)="" | |
4533 | "RTN","SDE C31",104,0 ) | |
4534 | . S SDFDA (2.98,SDEC IENS,14)=" " | |
4535 | "RTN","SDE C31",105,0 ) | |
4536 | . S SDFDA (2.98,SDEC IENS,15)=" " | |
4537 | "RTN","SDE C31",106,0 ) | |
4538 | K SDECIEN | |
4539 | "RTN","SDE C31",107,0 ) | |
4540 | D UPDATE^ DIE("","SD FDA","SDEC IEN","SDEC MSG") | |
4541 | "RTN","SDE C31",108,0 ) | |
4542 | S SDECZ=$ G(SDECMSG( "DIERR",1, "TEXT",1)) | |
4543 | "RTN","SDE C31",109,0 ) | |
4544 | S SDRTYP= $$GET1^DIQ (409.84,SD APID_",",. 22,"I") | |
4545 | "RTN","SDE C31",110,0 ) | |
4546 | I $P(SDRT YP,";",2)= "GMR(123," D | |
4547 | "RTN","SDE C31",111,0 ) | |
4548 | .S IEN=$$ SCIEN^SDEC U2(DFN,SDC L,SDT) | |
4549 | "RTN","SDE C31",112,0 ) | |
4550 | .D NOSHOW ^SDCNSLT(S DCL,SDT,DF N,$P(SDRTY P,";",1),I EN) ;, AUTO,NSDIE ,NSDA) | |
4551 | "RTN","SDE C31",113,0 ) | |
4552 | Q | |
4553 | "RTN","SDE C31",114,0 ) | |
4554 | ; | |
4555 | "RTN","SDE C31",115,0 ) | |
4556 | SDECNOS(SD ECAPTID,SD ECNS,USERI EN,SDECDAT E) ; | |
4557 | "RTN","SDE C31",116,0 ) | |
4558 | ; | |
4559 | "RTN","SDE C31",117,0 ) | |
4560 | N SDFDA,S DECIENS | |
4561 | "RTN","SDE C31",118,0 ) | |
4562 | S SDECIEN S=SDECAPTI D_"," | |
4563 | "RTN","SDE C31",119,0 ) | |
4564 | S SDFDA(4 09.84,SDEC IENS,.1)=S DECNS ;NOS HOW | |
4565 | "RTN","SDE C31",120,0 ) | |
4566 | S SDFDA(4 09.84,SDEC IENS,.101) =$S(+SDECN S:SDECDATE ,1:"") ;N OSHOW DATE | |
4567 | "RTN","SDE C31",121,0 ) | |
4568 | S SDFDA(4 09.84,SDEC IENS,.102) =$S(+SDECN S:USERIEN, 1:"") ;N OSHOW USER | |
4569 | "RTN","SDE C31",122,0 ) | |
4570 | S SDFDA(4 09.84,SDEC IENS,.17)= $S(+SDECNS :"N",1:"") ; Update STATUS SD *5.3*717 w tc 10/25/1 8 | |
4571 | "RTN","SDE C31",123,0 ) | |
4572 | D FILE^DI E("","SDFD A","SDECMS G") | |
4573 | "RTN","SDE C31",124,0 ) | |
4574 | ; | |
4575 | "RTN","SDE C31",125,0 ) | |
4576 | Q | |
4577 | "RTN","SDE C31",126,0 ) | |
4578 | ; | |
4579 | "RTN","SDE C31",127,0 ) | |
4580 | NOSEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C NOSHOW A PPOINTMENT event | |
4581 | "RTN","SDE C31",128,0 ) | |
4582 | ;when app ointments NOSHOW via PIMS inte rface. | |
4583 | "RTN","SDE C31",129,0 ) | |
4584 | ;Propagat es NOSHOW to SDECAPP T and rais es refresh event to running GU I clients | |
4585 | "RTN","SDE C31",130,0 ) | |
4586 | ; | |
4587 | "RTN","SDE C31",131,0 ) | |
4588 | Q:+$G(SDE CNOEV) | |
4589 | "RTN","SDE C31",132,0 ) | |
4590 | Q:'+$G(SD ECSC) | |
4591 | "RTN","SDE C31",133,0 ) | |
4592 | ;Q:$G(SDA TA("AFTER" ,"STATUS") )["AUTO RE -BOOK" | |
4593 | "RTN","SDE C31",134,0 ) | |
4594 | N SDECSTA T,SDECFOUN D,SDECRES | |
4595 | "RTN","SDE C31",135,0 ) | |
4596 | S SDECSTA T=1 | |
4597 | "RTN","SDE C31",136,0 ) | |
4598 | ;S:$G(SDA TA("BEFORE ","STATUS" ))["NO-SHO W" SDECSTA T=0 | |
4599 | "RTN","SDE C31",137,0 ) | |
4600 | S SDECFOU ND=0 | |
4601 | "RTN","SDE C31",138,0 ) | |
4602 | I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0)) S SDECFOU ND=$$NOSEV T1(SDECRES ,SDECSTART ,SDECPAT,S DECSTAT) | |
4603 | "RTN","SDE C31",139,0 ) | |
4604 | I SDECFOU ND D NOSEV T3(SDECRES ) Q | |
4605 | "RTN","SDE C31",140,0 ) | |
4606 | Q | |
4607 | "RTN","SDE C31",141,0 ) | |
4608 | ; | |
4609 | "RTN","SDE C31",142,0 ) | |
4610 | NOSEVT1(SD ECRES,SDEC START,SDEC PAT,SDECST AT) ; | |
4611 | "RTN","SDE C31",143,0 ) | |
4612 | ;Get appo intment id in SDECAP T | |
4613 | "RTN","SDE C31",144,0 ) | |
4614 | ;If found , call SDE CNOS(SDECA PPT) and r eturn 1 | |
4615 | "RTN","SDE C31",145,0 ) | |
4616 | ;else ret urn 0 | |
4617 | "RTN","SDE C31",146,0 ) | |
4618 | N SDECFOU ND,SDECAPP T | |
4619 | "RTN","SDE C31",147,0 ) | |
4620 | S SDECFOU ND=0 | |
4621 | "RTN","SDE C31",148,0 ) | |
4622 | Q:'+$G(SD ECRES) SDE CFOUND | |
4623 | "RTN","SDE C31",149,0 ) | |
4624 | Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND | |
4625 | "RTN","SDE C31",150,0 ) | |
4626 | S SDECAPP T=0 F S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT)) Q:'+SDECA PPT D Q: SDECFOUND | |
4627 | "RTN","SDE C31",151,0 ) | |
4628 | . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D="" | |
4629 | "RTN","SDE C31",152,0 ) | |
4630 | . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S SDECFOUND =1 Q | |
4631 | "RTN","SDE C31",153,0 ) | |
4632 | I SDECFOU ND,+$G(SDE CAPPT) D S DECNOS(SDE CAPPT,SDEC STAT) | |
4633 | "RTN","SDE C31",154,0 ) | |
4634 | Q SDECFOU ND | |
4635 | "RTN","SDE C31",155,0 ) | |
4636 | ; | |
4637 | "RTN","SDE C31",156,0 ) | |
4638 | NOSEVT3(SD ECRES) ; | |
4639 | "RTN","SDE C31",157,0 ) | |
4640 | ;Call Rai seEvent to notify GU I clients | |
4641 | "RTN","SDE C31",158,0 ) | |
4642 | ; | |
4643 | "RTN","SDE C31",159,0 ) | |
4644 | Q | |
4645 | "RTN","SDE C31",160,0 ) | |
4646 | N SDECRES N | |
4647 | "RTN","SDE C31",161,0 ) | |
4648 | S SDECRES N=$G(^SDEC (409.831,S DECRES,0)) | |
4649 | "RTN","SDE C31",162,0 ) | |
4650 | Q:SDECRES N="" | |
4651 | "RTN","SDE C31",163,0 ) | |
4652 | S SDECRES N=$P(SDECR ESN,"^") | |
4653 | "RTN","SDE C31",164,0 ) | |
4654 | ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN) | |
4655 | "RTN","SDE C31",165,0 ) | |
4656 | Q | |
4657 | "RTN","SDE C31",166,0 ) | |
4658 | ; | |
4659 | "RTN","SDE C31",167,0 ) | |
4660 | ; | |
4661 | "RTN","SDE C31",168,0 ) | |
4662 | ERR(SDECER ID,ERRTXT) ;Error pr ocessing | |
4663 | "RTN","SDE C31",169,0 ) | |
4664 | S:'+$G(SD ECI) SDECI =999999 | |
4665 | "RTN","SDE C31",170,0 ) | |
4666 | S SDECI=S DECI+1 | |
4667 | "RTN","SDE C31",171,0 ) | |
4668 | TROLLBACK | |
4669 | "RTN","SDE C31",172,0 ) | |
4670 | S ^TMP("S DEC",$J,SD ECI)=SDECE RID_"^"_ER RTXT_$C(30 ) | |
4671 | "RTN","SDE C31",173,0 ) | |
4672 | S SDECI=S DECI+1 | |
4673 | "RTN","SDE C31",174,0 ) | |
4674 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | |
4675 | "RTN","SDE C31",175,0 ) | |
4676 | Q | |
4677 | "RTN","SDE C31",176,0 ) | |
4678 | ; | |
4679 | "RTN","SDE C31",177,0 ) | |
4680 | ETRAP ;EP Error trap entry | |
4681 | "RTN","SDE C31",178,0 ) | |
4682 | D ^%ZTER | |
4683 | "RTN","SDE C31",179,0 ) | |
4684 | I '$D(SDE CI) N SDEC I S SDECI= 999999 | |
4685 | "RTN","SDE C31",180,0 ) | |
4686 | S SDECI=S DECI+1 | |
4687 | "RTN","SDE C31",181,0 ) | |
4688 | D ERR(0," SDEC31 Err or") | |
4689 | "RTN","SDE C31",182,0 ) | |
4690 | Q | |
4691 | "RTN","SDE C31",183,0 ) | |
4692 | ; | |
4693 | "RTN","SDE C31",184,0 ) | |
4694 | IMHERE(SDE CRES) ;I'm Here | |
4695 | "RTN","SDE C31",185,0 ) | |
4696 | ;IMHERE(S DECRES) e xternal pa rameter ta g is in SD EC | |
4697 | "RTN","SDE C31",186,0 ) | |
4698 | ;Entry po int for SD EC IM HERE remote pr ocedure | |
4699 | "RTN","SDE C31",187,0 ) | |
4700 | ; Returns a simple value to c lient. Us ed to esta blish cont inued exis tence | |
4701 | "RTN","SDE C31",188,0 ) | |
4702 | ; of the client to the server ; resets t he server READ timeo ut. | |
4703 | "RTN","SDE C31",189,0 ) | |
4704 | S SDECRES =1 | |
4705 | "RTN","SDE C31",190,0 ) | |
4706 | Q | |
4707 | "RTN","SDE C31",191,0 ) | |
4708 | ; | |
4709 | "VER") | |
4710 | 8.0^22.2 | |
4711 | "BLD",1036 4,6) | |
4712 | 4^ | |
4713 | $END KID S D*5.3*717 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.