Produced by Araxis Merge on 12/5/2018 3:28:15 PM Eastern Standard 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_SD5.3686_v8.zip | SD5.3686_v8.KID | Mon Dec 3 14:44:10 2018 UTC |
2 | VSE_P2_SD5.3686_v8.zip | SD5.3686_v8.KID | Wed Dec 5 16:25:27 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 7 | 22752 |
Changed | 6 | 21 |
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 | |||
2 | |||
3 | $KID SD*5. 3*686 | ||
4 | **INSTALL NAME** | ||
5 | SD*5.3*686 | ||
6 | "BLD",1034 0,0) | ||
7 | SD*5.3*686 ^SCHEDULIN G^0^318111 4^n | ||
8 | "BLD",1034 0,1,0) | ||
9 | ^^505^505^ 3180405^ | ||
10 | "BLD",1034 0,1,1,0) | ||
11 | ********** ********** ********** ********** ********** ********** ********** **** | ||
12 | "BLD",1034 0,1,2,0) | ||
13 | ** | ||
14 | "BLD",1034 0,1,3,0) | ||
15 | * GUI UPDATE | ||
16 | "BLD",1034 0,1,4,0) | ||
17 | NOTICE * | ||
18 | "BLD",1034 0,1,5,0) | ||
19 | *--------- ---------- ---------- ---------- ---------- ---------- ---------- ---- | ||
20 | "BLD",1034 0,1,6,0) | ||
21 | -* | ||
22 | "BLD",1034 0,1,7,0) | ||
23 | * This pat ch MUST be installed before th e GUI upda te for rel ease | ||
24 | "BLD",1034 0,1,8,0) | ||
25 | 1.5.1 * | ||
26 | "BLD",1034 0,1,9,0) | ||
27 | * of VistA Schedulin g GUI is i nstalled. The previo us 1.5 rel ease will | ||
28 | "BLD",1034 0,1,10,0) | ||
29 | work * | ||
30 | "BLD",1034 0,1,11,0) | ||
31 | * with no problems a fter this patch has been insta lled. Howe ver, if | ||
32 | "BLD",1034 0,1,12,0) | ||
33 | the * | ||
34 | "BLD",1034 0,1,13,0) | ||
35 | * 1.5.1 ve rsion is u sed withou t this pat ch, then a ll fields for | ||
36 | "BLD",1034 0,1,14,0) | ||
37 | selecting * | ||
38 | "BLD",1034 0,1,15,0) | ||
39 | * clinics, as well a s the Audi t Report, will not w ork | ||
40 | "BLD",1034 0,1,16,0) | ||
41 | properly. * | ||
42 | "BLD",1034 0,1,17,0) | ||
43 | ********** ********** ********** ********** ********** ********** ********** **** | ||
44 | "BLD",1034 0,1,18,0) | ||
45 | ** | ||
46 | "BLD",1034 0,1,19,0) | ||
47 | |||
48 | "BLD",1034 0,1,20,0) | ||
49 | This patch contains the VistA components necessary to suppor t the 1.5. 1 | ||
50 | "BLD",1034 0,1,21,0) | ||
51 | release of VistA Sch eduling En hancements (VSE) as well as ad dressing t he | ||
52 | "BLD",1034 0,1,22,0) | ||
53 | following issues: | ||
54 | "BLD",1034 0,1,23,0) | ||
55 | |||
56 | "BLD",1034 0,1,24,0) | ||
57 | 1. R181207 03FY18 - The VS GUI applicati on freezes when the Audit Repo rt | ||
58 | "BLD",1034 0,1,25,0) | ||
59 | is | ||
60 | "BLD",1034 0,1,26,0) | ||
61 | run for al l schedule rs due to performanc e issues. | ||
62 | "BLD",1034 0,1,27,0) | ||
63 | |||
64 | "BLD",1034 0,1,28,0) | ||
65 | 2. R178569 00FY18, - If an appo intment ha d been sch eduled for a consult , | ||
66 | "BLD",1034 0,1,29,0) | ||
67 | R185649 68FY18, then that consult wa s complete d, and fin ally the | ||
68 | "BLD",1034 0,1,30,0) | ||
69 | R186483 21FY18 appointmen t was canc eled, the consult wi ll be mark ed | ||
70 | "BLD",1034 0,1,31,0) | ||
71 | as active, even thou gh it shou ld remain as complet e. | ||
72 | "BLD",1034 0,1,32,0) | ||
73 | |||
74 | "BLD",1034 0,1,33,0) | ||
75 | 3. R174153 67FY18 - If a user locks an a ppointment request ( in this ca se, | ||
76 | "BLD",1034 0,1,34,0) | ||
77 | a consult request in particula r) by sele cting it i n | ||
78 | "BLD",1034 0,1,35,0) | ||
79 | the | ||
80 | "BLD",1034 0,1,36,0) | ||
81 | RM grid, t hen exits the GUI wi th it stil l locked, a | ||
82 | "BLD",1034 0,1,37,0) | ||
83 | user | ||
84 | "BLD",1034 0,1,38,0) | ||
85 | in VistA w ill be una ble to sel ect the sa me request , | ||
86 | "BLD",1034 0,1,39,0) | ||
87 | instead re ceiving a message st ating that the reque st | ||
88 | "BLD",1034 0,1,40,0) | ||
89 | is | ||
90 | "BLD",1034 0,1,41,0) | ||
91 | locked. | ||
92 | "BLD",1034 0,1,42,0) | ||
93 | |||
94 | "BLD",1034 0,1,43,0) | ||
95 | 4. R170391 75FY18 - When using clinic lo okup, if t he user pa uses the i nput | ||
96 | "BLD",1034 0,1,44,0) | ||
97 | is wiped out and has t o be re-en tered. | ||
98 | "BLD",1034 0,1,45,0) | ||
99 | |||
100 | "BLD",1034 0,1,46,0) | ||
101 | 5. R184776 70FY18 - When sched uling an a ppointment for an In ter-Facili ty | ||
102 | "BLD",1034 0,1,47,0) | ||
103 | Co nsult (IFC ), the rem ote facili ty is not | ||
104 | "BLD",1034 0,1,48,0) | ||
105 | notified. | ||
106 | "BLD",1034 0,1,49,0) | ||
107 | |||
108 | "BLD",1034 0,1,50,0) | ||
109 | This patch also cont ains modif ications t o routines (SDECAR1 and SDECAR 2) | ||
110 | "BLD",1034 0,1,51,0) | ||
111 | and RPCs ( SDEC ARGET and SDEC ARSET) as well chang es to File Man files | ||
112 | "BLD",1034 0,1,52,0) | ||
113 | (Appointme nt Request #409.85) related to a future enhancemen t - the | ||
114 | "BLD",1034 0,1,53,0) | ||
115 | integratio n of Sched uling Mana ger functi onality in to the VS GUI. | ||
116 | "BLD",1034 0,1,54,0) | ||
117 | |||
118 | "BLD",1034 0,1,55,0) | ||
119 | |||
120 | "BLD",1034 0,1,56,0) | ||
121 | |||
122 | "BLD",1034 0,1,57,0) | ||
123 | Patch Comp onents | ||
124 | "BLD",1034 0,1,58,0) | ||
125 | ========== ====== | ||
126 | "BLD",1034 0,1,59,0) | ||
127 | |||
128 | "BLD",1034 0,1,60,0) | ||
129 | Files & Fi elds Assoc iated: | ||
130 | "BLD",1034 0,1,61,0) | ||
131 | |||
132 | "BLD",1034 0,1,62,0) | ||
133 | File Name (#) Ne w/Modified / | ||
134 | "BLD",1034 0,1,63,0) | ||
135 | Sub-file Name (#) Field Na me (Number ) Deleted | ||
136 | "BLD",1034 0,1,64,0) | ||
137 | ---------- --------- -------- ---------- ---------- ----- -- ---------- - | ||
138 | "BLD",1034 0,1,65,0) | ||
139 | SDEC APPT REQUEST (# 409.85) MO DIFIED | ||
140 | "BLD",1034 0,1,66,0) | ||
141 | VAOS GUID (#5) | ||
142 | "BLD",1034 0,1,67,0) | ||
143 | NEW | ||
144 | "BLD",1034 0,1,68,0) | ||
145 | |||
146 | "BLD",1034 0,1,69,0) | ||
147 | SDEC CONTA CT (#409.8 6) MO DIFIED | ||
148 | "BLD",1034 0,1,70,0) | ||
149 | |||
150 | "BLD",1034 0,1,71,0) | ||
151 | SD AUDIT S TATISTICS (#409.97) NE W | ||
152 | "BLD",1034 0,1,72,0) | ||
153 | SCHEDULE R (#.01) NE W | ||
154 | "BLD",1034 0,1,73,0) | ||
155 | DATE (#1 ) NE W | ||
156 | "BLD",1034 0,1,74,0) | ||
157 | PATIENT CONTACTS ( #2) NE W | ||
158 | "BLD",1034 0,1,75,0) | ||
159 | APPT REQ UESTS (#3) NE W | ||
160 | "BLD",1034 0,1,76,0) | ||
161 | APPT APP OINTMENTS MADE (#4) NE W | ||
162 | "BLD",1034 0,1,77,0) | ||
163 | APPT CLO SED (#5) NE W | ||
164 | "BLD",1034 0,1,78,0) | ||
165 | MRTC OPE NED (#6) NE W | ||
166 | "BLD",1034 0,1,79,0) | ||
167 | MRTC CLO SED (#7) NE W | ||
168 | "BLD",1034 0,1,80,0) | ||
169 | EWL ENTR IES (#8) NE W | ||
170 | "BLD",1034 0,1,81,0) | ||
171 | EWL APPO INTMENTS M ADE (#9) NE W | ||
172 | "BLD",1034 0,1,82,0) | ||
173 | EWL CLOS ED (#10) NE W | ||
174 | "BLD",1034 0,1,83,0) | ||
175 | PtCSch E NTRIES (#1 1) NE W | ||
176 | "BLD",1034 0,1,84,0) | ||
177 | PtCSch A PPOINTMENT S MADE (#1 2) NE W | ||
178 | "BLD",1034 0,1,85,0) | ||
179 | CONSULT APPOINTMEN TS MADE (# 13) NE W | ||
180 | "BLD",1034 0,1,86,0) | ||
181 | APPOINTM ENTS CANCE LLED (#14) NE W | ||
182 | "BLD",1034 0,1,87,0) | ||
183 | TOTAL AC TIONS (#15 ) NE W | ||
184 | "BLD",1034 0,1,88,0) | ||
185 | |||
186 | "BLD",1034 0,1,89,0) | ||
187 | Bulletins Associated : | ||
188 | "BLD",1034 0,1,90,0) | ||
189 | Ne w/Modified / | ||
190 | "BLD",1034 0,1,91,0) | ||
191 | Bulletin N ame Deleted | ||
192 | "BLD",1034 0,1,92,0) | ||
193 | ---------- --- -- ---------- - | ||
194 | "BLD",1034 0,1,93,0) | ||
195 | N/A | ||
196 | "BLD",1034 0,1,94,0) | ||
197 | |||
198 | "BLD",1034 0,1,95,0) | ||
199 | |||
200 | "BLD",1034 0,1,96,0) | ||
201 | |||
202 | "BLD",1034 0,1,97,0) | ||
203 | Dialogs As sociated: | ||
204 | "BLD",1034 0,1,98,0) | ||
205 | Ne w/Modified / | ||
206 | "BLD",1034 0,1,99,0) | ||
207 | Dialog Nam e Deleted | ||
208 | "BLD",1034 0,1,100,0) | ||
209 | ---------- - -- ---------- - | ||
210 | "BLD",1034 0,1,101,0) | ||
211 | N/A | ||
212 | "BLD",1034 0,1,102,0) | ||
213 | |||
214 | "BLD",1034 0,1,103,0) | ||
215 | |||
216 | "BLD",1034 0,1,104,0) | ||
217 | |||
218 | "BLD",1034 0,1,105,0) | ||
219 | Forms Asso ciated: | ||
220 | "BLD",1034 0,1,106,0) | ||
221 | Ne w/Modified / | ||
222 | "BLD",1034 0,1,107,0) | ||
223 | Form Name F ile Name ( Number) Deleted | ||
224 | "BLD",1034 0,1,108,0) | ||
225 | --------- - ---------- ------- -- ---------- - | ||
226 | "BLD",1034 0,1,109,0) | ||
227 | N/A | ||
228 | "BLD",1034 0,1,110,0) | ||
229 | |||
230 | "BLD",1034 0,1,111,0) | ||
231 | |||
232 | "BLD",1034 0,1,112,0) | ||
233 | |||
234 | "BLD",1034 0,1,113,0) | ||
235 | Functions Associated : | ||
236 | "BLD",1034 0,1,114,0) | ||
237 | Ne w/Modified / | ||
238 | "BLD",1034 0,1,115,0) | ||
239 | Function N ame Deleted | ||
240 | "BLD",1034 0,1,116,0) | ||
241 | ---------- --- -- ---------- - | ||
242 | "BLD",1034 0,1,117,0) | ||
243 | N/A | ||
244 | "BLD",1034 0,1,118,0) | ||
245 | |||
246 | "BLD",1034 0,1,119,0) | ||
247 | |||
248 | "BLD",1034 0,1,120,0) | ||
249 | |||
250 | "BLD",1034 0,1,121,0) | ||
251 | HL Logical Link: | ||
252 | "BLD",1034 0,1,122,0) | ||
253 | Ne w/Modified / | ||
254 | "BLD",1034 0,1,123,0) | ||
255 | HL Logical Name Deleted | ||
256 | "BLD",1034 0,1,124,0) | ||
257 | ---------- ----- -- ---------- - | ||
258 | "BLD",1034 0,1,125,0) | ||
259 | N/A | ||
260 | "BLD",1034 0,1,126,0) | ||
261 | |||
262 | "BLD",1034 0,1,127,0) | ||
263 | |||
264 | "BLD",1034 0,1,128,0) | ||
265 | |||
266 | "BLD",1034 0,1,129,0) | ||
267 | HL7 Applic ation Para meters: | ||
268 | "BLD",1034 0,1,130,0) | ||
269 | Ne w/Modified / | ||
270 | "BLD",1034 0,1,131,0) | ||
271 | HL7 Parame ter Name Deleted | ||
272 | "BLD",1034 0,1,132,0) | ||
273 | ---------- -------- -- ---------- - | ||
274 | "BLD",1034 0,1,133,0) | ||
275 | N/A | ||
276 | "BLD",1034 0,1,134,0) | ||
277 | |||
278 | "BLD",1034 0,1,135,0) | ||
279 | |||
280 | "BLD",1034 0,1,136,0) | ||
281 | |||
282 | "BLD",1034 0,1,137,0) | ||
283 | HLO Applic ation Regi stry: | ||
284 | "BLD",1034 0,1,138,0) | ||
285 | Ne w/Modified / | ||
286 | "BLD",1034 0,1,139,0) | ||
287 | HLO Regist ry Name Deleted | ||
288 | "BLD",1034 0,1,140,0) | ||
289 | ---------- ------- -- ---------- - | ||
290 | "BLD",1034 0,1,141,0) | ||
291 | N/A | ||
292 | "BLD",1034 0,1,142,0) | ||
293 | |||
294 | "BLD",1034 0,1,143,0) | ||
295 | |||
296 | "BLD",1034 0,1,144,0) | ||
297 | |||
298 | "BLD",1034 0,1,145,0) | ||
299 | Help Frame s Associat ed: | ||
300 | "BLD",1034 0,1,146,0) | ||
301 | Ne w/Modified / | ||
302 | "BLD",1034 0,1,147,0) | ||
303 | Help Frame Name Deleted | ||
304 | "BLD",1034 0,1,148,0) | ||
305 | ---------- ----- -- ---------- - | ||
306 | "BLD",1034 0,1,149,0) | ||
307 | N/A | ||
308 | "BLD",1034 0,1,150,0) | ||
309 | |||
310 | "BLD",1034 0,1,151,0) | ||
311 | |||
312 | "BLD",1034 0,1,152,0) | ||
313 | |||
314 | "BLD",1034 0,1,153,0) | ||
315 | Mail Group s Associat ed: | ||
316 | "BLD",1034 0,1,154,0) | ||
317 | Ne w/Modified / | ||
318 | "BLD",1034 0,1,155,0) | ||
319 | Mail Group Name Deleted | ||
320 | "BLD",1034 0,1,156,0) | ||
321 | ---------- ----- -- ---------- - | ||
322 | "BLD",1034 0,1,157,0) | ||
323 | N/A | ||
324 | "BLD",1034 0,1,158,0) | ||
325 | |||
326 | "BLD",1034 0,1,159,0) | ||
327 | |||
328 | "BLD",1034 0,1,160,0) | ||
329 | |||
330 | "BLD",1034 0,1,161,0) | ||
331 | Options As sociated: | ||
332 | "BLD",1034 0,1,162,0) | ||
333 | |||
334 | "BLD",1034 0,1,163,0) | ||
335 | New/Modifi ed/ | ||
336 | "BLD",1034 0,1,164,0) | ||
337 | Option Nam e Typ e | ||
338 | "BLD",1034 0,1,165,0) | ||
339 | Deleted | ||
340 | "BLD",1034 0,1,166,0) | ||
341 | ---------- - --- - | ||
342 | "BLD",1034 0,1,167,0) | ||
343 | ---------- --- | ||
344 | "BLD",1034 0,1,168,0) | ||
345 | CLINICAL S CHEDULING PROCEDURE CALLS [SDE CRPC] Bro ker MODI FIED | ||
346 | "BLD",1034 0,1,169,0) | ||
347 | COMPILE AU DIT REPORT FOR A SEL ECTED Rou tine NEW | ||
348 | "BLD",1034 0,1,170,0) | ||
349 | DATE [S DEC COMPIL E AUDIT RE PORT] | ||
350 | "BLD",1034 0,1,171,0) | ||
351 | COMPILE YE STERDAY'S AUDIT REPO RT [SDEC A UDIT REPOR T JOB] Rou tine NEW | ||
352 | "BLD",1034 0,1,172,0) | ||
353 | RELEASE AP POINTMENT REQUEST LO CKS[SDEC R ELEASE LOC KS] Rou tine NEW | ||
354 | "BLD",1034 0,1,173,0) | ||
355 | SUPERVISOR MENU [SDS UP] Men u MODI FIED | ||
356 | "BLD",1034 0,1,174,0) | ||
357 | |||
358 | "BLD",1034 0,1,175,0) | ||
359 | |||
360 | "BLD",1034 0,1,176,0) | ||
361 | |||
362 | "BLD",1034 0,1,177,0) | ||
363 | Parameter Definition s: | ||
364 | "BLD",1034 0,1,178,0) | ||
365 | Ne w/Modified / | ||
366 | "BLD",1034 0,1,179,0) | ||
367 | Parameter Name Deleted | ||
368 | "BLD",1034 0,1,180,0) | ||
369 | ---------- ---- -- ---------- - | ||
370 | "BLD",1034 0,1,181,0) | ||
371 | N/A | ||
372 | "BLD",1034 0,1,182,0) | ||
373 | |||
374 | "BLD",1034 0,1,183,0) | ||
375 | |||
376 | "BLD",1034 0,1,184,0) | ||
377 | |||
378 | "BLD",1034 0,1,185,0) | ||
379 | Parameter Template: | ||
380 | "BLD",1034 0,1,186,0) | ||
381 | Ne w/Modified / | ||
382 | "BLD",1034 0,1,187,0) | ||
383 | Template N ame Deleted | ||
384 | "BLD",1034 0,1,188,0) | ||
385 | ---------- --- -- ---------- - | ||
386 | "BLD",1034 0,1,189,0) | ||
387 | N/A | ||
388 | "BLD",1034 0,1,190,0) | ||
389 | |||
390 | "BLD",1034 0,1,191,0) | ||
391 | |||
392 | "BLD",1034 0,1,192,0) | ||
393 | |||
394 | "BLD",1034 0,1,193,0) | ||
395 | Protocols Associated : | ||
396 | "BLD",1034 0,1,194,0) | ||
397 | Ne w/Modified / | ||
398 | "BLD",1034 0,1,195,0) | ||
399 | Protocol N ame Deleted | ||
400 | "BLD",1034 0,1,196,0) | ||
401 | ---------- --- -- ---------- - | ||
402 | "BLD",1034 0,1,197,0) | ||
403 | N/A | ||
404 | "BLD",1034 0,1,198,0) | ||
405 | |||
406 | "BLD",1034 0,1,199,0) | ||
407 | |||
408 | "BLD",1034 0,1,200,0) | ||
409 | |||
410 | "BLD",1034 0,1,201,0) | ||
411 | Remote Pro cedures As sociated: | ||
412 | "BLD",1034 0,1,202,0) | ||
413 | Ne w/Modified / | ||
414 | "BLD",1034 0,1,203,0) | ||
415 | Remote Pro cedure Nam e Deleted | ||
416 | "BLD",1034 0,1,204,0) | ||
417 | ---------- ---------- - -- ---------- - | ||
418 | "BLD",1034 0,1,205,0) | ||
419 | SDEC ARGET MO DIFIED | ||
420 | "BLD",1034 0,1,206,0) | ||
421 | SDEC ARSET MO DIFIED | ||
422 | "BLD",1034 0,1,207,0) | ||
423 | SDEC RESCE NE W | ||
424 | "BLD",1034 0,1,208,0) | ||
425 | SDEC SUMMG ET2 NE W | ||
426 | "BLD",1034 0,1,209,0) | ||
427 | |||
428 | "BLD",1034 0,1,210,0) | ||
429 | |||
430 | "BLD",1034 0,1,211,0) | ||
431 | |||
432 | "BLD",1034 0,1,212,0) | ||
433 | Security K eys Associ ated: | ||
434 | "BLD",1034 0,1,213,0) | ||
435 | Ne w/Modified / | ||
436 | "BLD",1034 0,1,214,0) | ||
437 | Security K ey Name Deleted | ||
438 | "BLD",1034 0,1,215,0) | ||
439 | ---------- ------- -- ---------- - | ||
440 | "BLD",1034 0,1,216,0) | ||
441 | N/A | ||
442 | "BLD",1034 0,1,217,0) | ||
443 | |||
444 | "BLD",1034 0,1,218,0) | ||
445 | |||
446 | "BLD",1034 0,1,219,0) | ||
447 | |||
448 | "BLD",1034 0,1,220,0) | ||
449 | Templates, Input Ass ociated: | ||
450 | "BLD",1034 0,1,221,0) | ||
451 | Ne w/Modified / | ||
452 | "BLD",1034 0,1,222,0) | ||
453 | Template N ame T ype F ile Name ( Number) Deleted | ||
454 | "BLD",1034 0,1,223,0) | ||
455 | ---------- --- - --- - ---------- ------- -- ---------- - | ||
456 | "BLD",1034 0,1,224,0) | ||
457 | N/A | ||
458 | "BLD",1034 0,1,225,0) | ||
459 | |||
460 | "BLD",1034 0,1,226,0) | ||
461 | |||
462 | "BLD",1034 0,1,227,0) | ||
463 | |||
464 | "BLD",1034 0,1,228,0) | ||
465 | Templates, List Asso ciated: | ||
466 | "BLD",1034 0,1,229,0) | ||
467 | Ne w/Modified / | ||
468 | "BLD",1034 0,1,230,0) | ||
469 | Template N ame T ype Deleted | ||
470 | "BLD",1034 0,1,231,0) | ||
471 | ---------- --- - --- -- ---------- - | ||
472 | "BLD",1034 0,1,232,0) | ||
473 | N/A | ||
474 | "BLD",1034 0,1,233,0) | ||
475 | |||
476 | "BLD",1034 0,1,234,0) | ||
477 | |||
478 | "BLD",1034 0,1,235,0) | ||
479 | |||
480 | "BLD",1034 0,1,236,0) | ||
481 | Templates, Print Ass ociated: | ||
482 | "BLD",1034 0,1,237,0) | ||
483 | New/Modifi ed/ | ||
484 | "BLD",1034 0,1,238,0) | ||
485 | Template N ame Type Fi le Name (N umber) Deleted | ||
486 | "BLD",1034 0,1,239,0) | ||
487 | ---------- --- ---- -- ---------- ------ ---------- --- | ||
488 | "BLD",1034 0,1,240,0) | ||
489 | SDEC AUDIT DATE PRIN T Print SD EC AUDIT S TATISTICS (#409.97) NEW | ||
490 | "BLD",1034 0,1,241,0) | ||
491 | |||
492 | "BLD",1034 0,1,242,0) | ||
493 | |||
494 | "BLD",1034 0,1,243,0) | ||
495 | |||
496 | "BLD",1034 0,1,244,0) | ||
497 | Templates, Sort Asso ciated: | ||
498 | "BLD",1034 0,1,245,0) | ||
499 | |||
500 | "BLD",1034 0,1,246,0) | ||
501 | New/Modifi ed/ | ||
502 | "BLD",1034 0,1,247,0) | ||
503 | Template N ame Type File Name (Number) | ||
504 | "BLD",1034 0,1,248,0) | ||
505 | Deleted | ||
506 | "BLD",1034 0,1,249,0) | ||
507 | ---------- --- ---- --------- --------- | ||
508 | "BLD",1034 0,1,250,0) | ||
509 | ---------- --- | ||
510 | "BLD",1034 0,1,251,0) | ||
511 | SDEC AUDIT REPORT BY DATE Sort SDEC AUDI T STATISTI CS (#409.9 7) NEW | ||
512 | "BLD",1034 0,1,252,0) | ||
513 | |||
514 | "BLD",1034 0,1,253,0) | ||
515 | |||
516 | "BLD",1034 0,1,254,0) | ||
517 | Additional Informati on: | ||
518 | "BLD",1034 0,1,255,0) | ||
519 | N/A | ||
520 | "BLD",1034 0,1,256,0) | ||
521 | |||
522 | "BLD",1034 0,1,257,0) | ||
523 | |||
524 | "BLD",1034 0,1,258,0) | ||
525 | New Servic e Requests (NSRs) | ||
526 | "BLD",1034 0,1,259,0) | ||
527 | ---------- ---------- -------- | ||
528 | "BLD",1034 0,1,260,0) | ||
529 | N/A | ||
530 | "BLD",1034 0,1,261,0) | ||
531 | |||
532 | "BLD",1034 0,1,262,0) | ||
533 | |||
534 | "BLD",1034 0,1,263,0) | ||
535 | Patient Sa fety Issue s (PSIs) | ||
536 | "BLD",1034 0,1,264,0) | ||
537 | ---------- ---------- --------- | ||
538 | "BLD",1034 0,1,265,0) | ||
539 | N/A | ||
540 | "BLD",1034 0,1,266,0) | ||
541 | |||
542 | "BLD",1034 0,1,267,0) | ||
543 | |||
544 | "BLD",1034 0,1,268,0) | ||
545 | Service De sk Manager (SDM) Tic ket(s) & O verview | ||
546 | "BLD",1034 0,1,269,0) | ||
547 | ---------- ---------- ---------- ---------- ------- | ||
548 | "BLD",1034 0,1,270,0) | ||
549 | 1. R181207 03FY18 Ca ncel Audit Data Erro r after se lecting AL L in Audit | ||
550 | "BLD",1034 0,1,271,0) | ||
551 | Report | ||
552 | "BLD",1034 0,1,272,0) | ||
553 | |||
554 | "BLD",1034 0,1,273,0) | ||
555 | Problem: | ||
556 | "BLD",1034 0,1,274,0) | ||
557 | ------- | ||
558 | "BLD",1034 0,1,275,0) | ||
559 | In the Aud it Report, when the user choos es ALL in order to r un the rep ort | ||
560 | "BLD",1034 0,1,276,0) | ||
561 | for | ||
562 | "BLD",1034 0,1,277,0) | ||
563 | all schedu lers, the system han gs for sev eral minut es attempt ing to loa d | ||
564 | "BLD",1034 0,1,278,0) | ||
565 | data, | ||
566 | "BLD",1034 0,1,279,0) | ||
567 | then final ly returns an RPCExc eption whe n the conn ection tim es out. Th is | ||
568 | "BLD",1034 0,1,280,0) | ||
569 | also | ||
570 | "BLD",1034 0,1,281,0) | ||
571 | terminate' s the user 's connect ion to Vis tA until t hey close and reopen VS | ||
572 | "BLD",1034 0,1,282,0) | ||
573 | GUI. | ||
574 | "BLD",1034 0,1,283,0) | ||
575 | |||
576 | "BLD",1034 0,1,284,0) | ||
577 | Resolution : | ||
578 | "BLD",1034 0,1,285,0) | ||
579 | ---------- | ||
580 | "BLD",1034 0,1,286,0) | ||
581 | The data f or the Aud it Report is now com piled by a nightly j ob so that | ||
582 | "BLD",1034 0,1,287,0) | ||
583 | much | ||
584 | "BLD",1034 0,1,288,0) | ||
585 | less data needs to b e transmit ted to the client in order to use the | ||
586 | "BLD",1034 0,1,289,0) | ||
587 | report. | ||
588 | "BLD",1034 0,1,290,0) | ||
589 | Users will now be ab le to run the report for all s chedulers without | ||
590 | "BLD",1034 0,1,291,0) | ||
591 | encounteri ng the tim eout. | ||
592 | "BLD",1034 0,1,292,0) | ||
593 | |||
594 | "BLD",1034 0,1,293,0) | ||
595 | 2. R178569 00FY18, R1 8564968FY1 8, R186483 21FY18 Rea ctivating completed | ||
596 | "BLD",1034 0,1,294,0) | ||
597 | consults | ||
598 | "BLD",1034 0,1,295,0) | ||
599 | |||
600 | "BLD",1034 0,1,296,0) | ||
601 | Problem: | ||
602 | "BLD",1034 0,1,297,0) | ||
603 | ------- | ||
604 | "BLD",1034 0,1,298,0) | ||
605 | If an appo intment is created f or a consu lt, then t he consult is marked as | ||
606 | "BLD",1034 0,1,299,0) | ||
607 | complete, then final ly the app ointment i s canceled , the cons ult return s | ||
608 | "BLD",1034 0,1,300,0) | ||
609 | to the | ||
610 | "BLD",1034 0,1,301,0) | ||
611 | active sta tus instea d of remai ning compl ete. | ||
612 | "BLD",1034 0,1,302,0) | ||
613 | |||
614 | "BLD",1034 0,1,303,0) | ||
615 | Resolution : | ||
616 | "BLD",1034 0,1,304,0) | ||
617 | ---------- | ||
618 | "BLD",1034 0,1,305,0) | ||
619 | In this si tuation, t he consult will now remain in the comple te status. | ||
620 | "BLD",1034 0,1,306,0) | ||
621 | |||
622 | "BLD",1034 0,1,307,0) | ||
623 | 3. R174153 67FY18 Inc orrect loc k handling in RM Gri d | ||
624 | "BLD",1034 0,1,308,0) | ||
625 | |||
626 | "BLD",1034 0,1,309,0) | ||
627 | Problem: | ||
628 | "BLD",1034 0,1,310,0) | ||
629 | ------- | ||
630 | "BLD",1034 0,1,311,0) | ||
631 | When a use r selects a request in the RM grid, the request is locked un til | ||
632 | "BLD",1034 0,1,312,0) | ||
633 | another re quest is s elected. I f the user exits the program, the lock i s | ||
634 | "BLD",1034 0,1,313,0) | ||
635 | not | ||
636 | "BLD",1034 0,1,314,0) | ||
637 | released. If a VistA user trie s to use t he previou sly locked request, they | ||
638 | "BLD",1034 0,1,315,0) | ||
639 | will be pr evented fr om doing s o. (To exa cerbate th is, the GU I was not | ||
640 | "BLD",1034 0,1,316,0) | ||
641 | handling | ||
642 | "BLD",1034 0,1,317,0) | ||
643 | locks corr ectly and would give the lock to any use r that tri ed to get it | ||
644 | "BLD",1034 0,1,318,0) | ||
645 | even | ||
646 | "BLD",1034 0,1,319,0) | ||
647 | if another user held the lock, so this i ssue was n ot visible to GUI | ||
648 | "BLD",1034 0,1,320,0) | ||
649 | users.) | ||
650 | "BLD",1034 0,1,321,0) | ||
651 | |||
652 | "BLD",1034 0,1,322,0) | ||
653 | Resolution : | ||
654 | "BLD",1034 0,1,323,0) | ||
655 | ---------- | ||
656 | "BLD",1034 0,1,324,0) | ||
657 | The reques t that a u ser had lo cked when they log o ut is now unlocked | ||
658 | "BLD",1034 0,1,325,0) | ||
659 | correctly. In additi on, if a u ser tries to work a request in the GUI t hat | ||
660 | "BLD",1034 0,1,326,0) | ||
661 | another us er has loc ked, they will recei ve a messa ge that th e request is | ||
662 | "BLD",1034 0,1,327,0) | ||
663 | locked and which use r holds th e lock. Fi nally, a V istA optio n on the | ||
664 | "BLD",1034 0,1,328,0) | ||
665 | Supervisor menu has been added that will release a ll locks h eld by a u ser. | ||
666 | "BLD",1034 0,1,329,0) | ||
667 | |||
668 | "BLD",1034 0,1,330,0) | ||
669 | 4. R170391 75FY18 Con sult looku p interact ion errors | ||
670 | "BLD",1034 0,1,331,0) | ||
671 | |||
672 | "BLD",1034 0,1,332,0) | ||
673 | Problem: | ||
674 | "BLD",1034 0,1,333,0) | ||
675 | ------- | ||
676 | "BLD",1034 0,1,334,0) | ||
677 | When using clinic lo okup in th e VS GUI, if the use r pauses t yping, the | ||
678 | "BLD",1034 0,1,335,0) | ||
679 | input | ||
680 | "BLD",1034 0,1,336,0) | ||
681 | is wiped o ut and has to be re- entered. A pop-up wi ndow appea rs if the | ||
682 | "BLD",1034 0,1,337,0) | ||
683 | user's | ||
684 | "BLD",1034 0,1,338,0) | ||
685 | input resu lts in mor e than 50 matches an d the inpu t is erase d. In | ||
686 | "BLD",1034 0,1,339,0) | ||
687 | addtion, | ||
688 | "BLD",1034 0,1,340,0) | ||
689 | the user c annot refi ne the lis t of clini cs returne d by typin g addition al | ||
690 | "BLD",1034 0,1,341,0) | ||
691 | characters . | ||
692 | "BLD",1034 0,1,342,0) | ||
693 | |||
694 | "BLD",1034 0,1,343,0) | ||
695 | Resolution : | ||
696 | "BLD",1034 0,1,344,0) | ||
697 | ---------- | ||
698 | "BLD",1034 0,1,345,0) | ||
699 | GUI change s made, el iminating the pop-up window an d respondi ng to the | ||
700 | "BLD",1034 0,1,346,0) | ||
701 | user's | ||
702 | "BLD",1034 0,1,347,0) | ||
703 | input incl uding narr owing the list of re turned val ues when e ach additi onal | ||
704 | "BLD",1034 0,1,348,0) | ||
705 | character is entered . A new RP C was crea ted for th e GUI to s upport thi s | ||
706 | "BLD",1034 0,1,349,0) | ||
707 | change. Th e new RPC returns a more limit ed amount of data so that the | ||
708 | "BLD",1034 0,1,350,0) | ||
709 | GUI can re spond more quickly t o the user 's input. | ||
710 | "BLD",1034 0,1,351,0) | ||
711 | |||
712 | "BLD",1034 0,1,352,0) | ||
713 | 5. R184776 70FY18 Rem ote facili ty not upd ated when appointmen ts made fo r | ||
714 | "BLD",1034 0,1,353,0) | ||
715 | IFCs | ||
716 | "BLD",1034 0,1,354,0) | ||
717 | |||
718 | "BLD",1034 0,1,355,0) | ||
719 | Problem: | ||
720 | "BLD",1034 0,1,356,0) | ||
721 | ------- | ||
722 | "BLD",1034 0,1,357,0) | ||
723 | When sched uling an a ppointment for an IF C, the rem ote facili ty is not | ||
724 | "BLD",1034 0,1,358,0) | ||
725 | notified. | ||
726 | "BLD",1034 0,1,359,0) | ||
727 | RPC code f or VS GUI did not in clude func tionality in VistA S cheduling for | ||
728 | "BLD",1034 0,1,360,0) | ||
729 | the | ||
730 | "BLD",1034 0,1,361,0) | ||
731 | generation of IFC no tification s. | ||
732 | "BLD",1034 0,1,362,0) | ||
733 | |||
734 | "BLD",1034 0,1,363,0) | ||
735 | Resolution : | ||
736 | "BLD",1034 0,1,364,0) | ||
737 | ---------- | ||
738 | "BLD",1034 0,1,365,0) | ||
739 | Modified t he RPC cod e to call a VistA Sc heduling A PI that ge nerates IF C | ||
740 | "BLD",1034 0,1,366,0) | ||
741 | notificati ons. | ||
742 | "BLD",1034 0,1,367,0) | ||
743 | |||
744 | "BLD",1034 0,1,368,0) | ||
745 | Test Sites : | ||
746 | "BLD",1034 0,1,369,0) | ||
747 | ---------- | ||
748 | "BLD",1034 0,1,370,0) | ||
749 | TBA | ||
750 | "BLD",1034 0,1,371,0) | ||
751 | |||
752 | "BLD",1034 0,1,372,0) | ||
753 | |||
754 | "BLD",1034 0,1,373,0) | ||
755 | Documentat ion Retrie val Instru ctions | ||
756 | "BLD",1034 0,1,374,0) | ||
757 | ---------- ---------- ---------- ------ | ||
758 | "BLD",1034 0,1,375,0) | ||
759 | Updated do cumentatio n describi ng the new functiona lity intro duced by t his | ||
760 | "BLD",1034 0,1,376,0) | ||
761 | patch is a vailable. | ||
762 | "BLD",1034 0,1,377,0) | ||
763 | |||
764 | "BLD",1034 0,1,378,0) | ||
765 | The prefer red method is to FTP the files from | ||
766 | "BLD",1034 0,1,379,0) | ||
767 | ftp://down load. DNS . URL /. | ||
768 | "BLD",1034 0,1,380,0) | ||
769 | This trans mits the f iles from the first available FTP server . Sites ma y | ||
770 | "BLD",1034 0,1,381,0) | ||
771 | also elect to retrie ve softwar e directly from a sp ecific ser ver as | ||
772 | "BLD",1034 0,1,382,0) | ||
773 | follows: | ||
774 | "BLD",1034 0,1,383,0) | ||
775 | |||
776 | "BLD",1034 0,1,38 DNS .URL DNS .URL > | ||
777 | "BLD",1034 0,1,385,0) DNS.URL > | ||
778 | "BLD",1034 0,1,386,0) | ||
779 | |||
780 | "BLD",1034 0,1,387,0) | ||
781 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | ||
782 | "BLD",1034 0,1,388,0) | ||
783 | at: | ||
784 | "BLD",1034 0,1,389,0) | ||
785 | http://DNS .URL/ | ||
786 | "BLD",1034 0,1,390,0) | ||
787 | |||
788 | "BLD",1034 0,1,391,0) | ||
789 | Title Fil e Name FTP Mode | ||
790 | "BLD",1034 0,1,392,0) | ||
791 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---- | ||
792 | "BLD",1034 0,1,393,0) | ||
793 | VistA Sche duling Enh ancements GUI User G uide VSE _VA_GUI_UG .PDF Bina ry | ||
794 | "BLD",1034 0,1,394,0) | ||
795 | VistA Sche duling Enh ancements Technical Manual VSE _TM.PDF Bina ry | ||
796 | "BLD",1034 0,1,395,0) | ||
797 | |||
798 | "BLD",1034 0,1,396,0) | ||
799 | |||
800 | "BLD",1034 0,1,397,0) | ||
801 | Patch Inst allation: | ||
802 | "BLD",1034 0,1,398,0) | ||
803 | |||
804 | "BLD",1034 0,1,399,0) | ||
805 | |||
806 | "BLD",1034 0,1,400,0) | ||
807 | Pre/Post I nstallatio n Overview | ||
808 | "BLD",1034 0,1,401,0) | ||
809 | ---------- ---------- ---------- | ||
810 | "BLD",1034 0,1,402,0) | ||
811 | Post-insta llation, t here are 3 tasks: 1) re-index the SDEC C ONTACT fil e, | ||
812 | "BLD",1034 0,1,403,0) | ||
813 | 2) schedul e the audi t statisti cs compile r to run e arly each morning in | ||
814 | "BLD",1034 0,1,404,0) | ||
815 | TaskMan an d 3) compi le enough previous a udit stati stics for reporting | ||
816 | "BLD",1034 0,1,405,0) | ||
817 | users. | ||
818 | "BLD",1034 0,1,406,0) | ||
819 | These task s will be detailed i n the Post -Installat ion Instru ctions | ||
820 | "BLD",1034 0,1,407,0) | ||
821 | section. | ||
822 | "BLD",1034 0,1,408,0) | ||
823 | |||
824 | "BLD",1034 0,1,409,0) | ||
825 | Installati on Instruc tions | ||
826 | "BLD",1034 0,1,410,0) | ||
827 | ---------- ---------- ----- | ||
828 | "BLD",1034 0,1,411,0) | ||
829 | Install Ti me - less than 5 min utes. | ||
830 | "BLD",1034 0,1,412,0) | ||
831 | |||
832 | "BLD",1034 0,1,413,0) | ||
833 | 1. Use the INSTAL L/CHECK ME SSAGE opti on on the PackMan me nu. | ||
834 | "BLD",1034 0,1,414,0) | ||
835 | |||
836 | "BLD",1034 0,1,415,0) | ||
837 | 2. From the Kerne l Installa tion & Dis tribution System men u, select | ||
838 | "BLD",1034 0,1,416,0) | ||
839 | the Installati on menu. | ||
840 | "BLD",1034 0,1,417,0) | ||
841 | |||
842 | "BLD",1034 0,1,418,0) | ||
843 | 3. From this menu , you may select to use the fo llowing op tions | ||
844 | "BLD",1034 0,1,419,0) | ||
845 | (whe n prompted for INSTA LL NAME, e nter SD*5. 3*686): | ||
846 | "BLD",1034 0,1,420,0) | ||
847 | a. Verify Checksums in Transp ort Global - This op tion will | ||
848 | "BLD",1034 0,1,421,0) | ||
849 | allow | ||
850 | "BLD",1034 0,1,422,0) | ||
851 | you to ensure th e integrit y of the r outines th at are in the | ||
852 | "BLD",1034 0,1,423,0) | ||
853 | transp ort global . | ||
854 | "BLD",1034 0,1,424,0) | ||
855 | b. Print Transport Global - T his option will allo w you to v iew | ||
856 | "BLD",1034 0,1,425,0) | ||
857 | the co mponents o f the KIDS build. | ||
858 | "BLD",1034 0,1,426,0) | ||
859 | c. Compar e Transpor t Global t o Current System - T his option | ||
860 | "BLD",1034 0,1,427,0) | ||
861 | will | ||
862 | "BLD",1034 0,1,428,0) | ||
863 | allow you to vie w all chan ges that w ill be mad e when thi s | ||
864 | "BLD",1034 0,1,429,0) | ||
865 | patch is install ed. It co mpares all component s of this | ||
866 | "BLD",1034 0,1,430,0) | ||
867 | patch (routines, DD's, tem plates, et c.). | ||
868 | "BLD",1034 0,1,431,0) | ||
869 | d. Backup a Transpo rt Global - This opt ion will c reate a ba ckup | ||
870 | "BLD",1034 0,1,432,0) | ||
871 | messag e of any r outines ex ported wit h this pat ch. It wil l | ||
872 | "BLD",1034 0,1,433,0) | ||
873 | not | ||
874 | "BLD",1034 0,1,434,0) | ||
875 | backup any other changes s uch as DD' s or templ ates. | ||
876 | "BLD",1034 0,1,435,0) | ||
877 | |||
878 | "BLD",1034 0,1,436,0) | ||
879 | 4. Use the Instal l Package( s) option and select the packa ge SD*5.3* 686. | ||
880 | "BLD",1034 0,1,437,0) | ||
881 | |||
882 | "BLD",1034 0,1,438,0) | ||
883 | 5. When prompted "Want KIDS to INHIBI T LOGONs d uring the install? N O//" | ||
884 | "BLD",1034 0,1,439,0) | ||
885 | resp ond NO. | ||
886 | "BLD",1034 0,1,440,0) | ||
887 | 6. When prompted "Want to D ISABLE Sch eduled Opt ions, Menu Options, and | ||
888 | "BLD",1034 0,1,441,0) | ||
889 | Prot ocols? NO/ /", respon d NO | ||
890 | "BLD",1034 0,1,442,0) | ||
891 | |||
892 | "BLD",1034 0,1,443,0) | ||
893 | Post-Insta llation In structions | ||
894 | "BLD",1034 0,1,444,0) | ||
895 | ---------- ---------- ---------- | ||
896 | "BLD",1034 0,1,445,0) | ||
897 | 1. RE-IND EX THE SDE C CONTACT FILE | ||
898 | "BLD",1034 0,1,446,0) | ||
899 | ------ ---------- ---------- ---- | ||
900 | "BLD",1034 0,1,447,0) | ||
901 | VA Fil eMan 22.2 | ||
902 | "BLD",1034 0,1,448,0) | ||
903 | |||
904 | "BLD",1034 0,1,449,0) | ||
905 | Select OPTION: U TILITY FUN CTIONS | ||
906 | "BLD",1034 0,1,450,0) | ||
907 | - --- | ||
908 | "BLD",1034 0,1,451,0) | ||
909 | |||
910 | "BLD",1034 0,1,452,0) | ||
911 | Select UTILITY O PTION: 4 RE-INDEX F ILE | ||
912 | "BLD",1034 0,1,453,0) | ||
913 | - | ||
914 | "BLD",1034 0,1,454,0) | ||
915 | |||
916 | "BLD",1034 0,1,455,0) | ||
917 | MODIFY WHAT FILE : SD Audit Statistic s// 409.86 SDEC CON TACT | ||
918 | "BLD",1034 0,1,456,0) | ||
919 | ------ | ||
920 | "BLD",1034 0,1,457,0) | ||
921 | (0 e ntries) | ||
922 | "BLD",1034 0,1,458,0) | ||
923 | |||
924 | "BLD",1034 0,1,459,0) | ||
925 | THERE ARE 3 INDI CES WITHIN THIS FILE | ||
926 | "BLD",1034 0,1,460,0) | ||
927 | DO YOU WISH TO R E-CROSS-RE FERENCE ON E PARTICUL AR INDEX? No// Y (Y es) | ||
928 | "BLD",1034 0,1,461,0) | ||
929 | - | ||
930 | "BLD",1034 0,1,462,0) | ||
931 | |||
932 | "BLD",1034 0,1,463,0) | ||
933 | What t ype of cro ss-referen ce (Tradit ional or N ew)? Tradi tional// N EW | ||
934 | "BLD",1034 0,1,464,0) | ||
935 | - -- | ||
936 | "BLD",1034 0,1,465,0) | ||
937 | |||
938 | "BLD",1034 0,1,466,0) | ||
939 | File: SDEC CONTA CT (#409.8 6) | ||
940 | "BLD",1034 0,1,467,0) | ||
941 | Select Subfile: 3 DATE/TI ME of CONT ACT (Subf ile #409.8 63) | ||
942 | "BLD",1034 0,1,468,0) | ||
943 | - | ||
944 | "BLD",1034 0,1,469,0) | ||
945 | |||
946 | "BLD",1034 0,1,470,0) | ||
947 | Curren t Indexes on subfile #409.863: | ||
948 | "BLD",1034 0,1,471,0) | ||
949 | 1404 'AD' wh ole file i ndex (resi des on fil e #409.86) | ||
950 | "BLD",1034 0,1,472,0) | ||
951 | |||
952 | "BLD",1034 0,1,473,0) | ||
953 | Which Index do y ou wish to re-cross- reference? 1404// AD | ||
954 | "BLD",1034 0,1,474,0) | ||
955 | -- | ||
956 | "BLD",1034 0,1,475,0) | ||
957 | |||
958 | "BLD",1034 0,1,476,0) | ||
959 | Do you want to d elete the existing ' AD' cross- reference? YES | ||
960 | "BLD",1034 0,1,477,0) | ||
961 | --- | ||
962 | "BLD",1034 0,1,478,0) | ||
963 | Do you want to r e-build th e 'AD' cro ss referen ce? YES . ..DONE! | ||
964 | "BLD",1034 0,1,479,0) | ||
965 | --- | ||
966 | "BLD",1034 0,1,480,0) | ||
967 | |||
968 | "BLD",1034 0,1,481,0) | ||
969 | 2. SCHEDU LE THE AUD IT REPORT JOB | ||
970 | "BLD",1034 0,1,482,0) | ||
971 | ------ ---------- ---------- --- | ||
972 | "BLD",1034 0,1,483,0) | ||
973 | Access the TASKM AN MANAGEM ENT option then sele ct Schedul e/Unschedu le | ||
974 | "BLD",1034 0,1,484,0) | ||
975 | option s. Schedul e the SDEC AUDIT REP ORT JOB op tion to ru n at some | ||
976 | "BLD",1034 0,1,485,0) | ||
977 | point | ||
978 | "BLD",1034 0,1,486,0) | ||
979 | in the early mor ning tomor row (such as 1:00 am ) with a r eschedulin g | ||
980 | "BLD",1034 0,1,487,0) | ||
981 | freque ncy of one day (1D). | ||
982 | "BLD",1034 0,1,488,0) | ||
983 | |||
984 | "BLD",1034 0,1,489,0) | ||
985 | 3. COMPIL E DATA FOR THE AUDIT REPORT | ||
986 | "BLD",1034 0,1,490,0) | ||
987 | ------ ---------- ---------- ------- | ||
988 | "BLD",1034 0,1,491,0) | ||
989 | Access the SDEC COMPILE AU DIT REPORT option. E nter the d ate range | ||
990 | "BLD",1034 0,1,492,0) | ||
991 | that | ||
992 | "BLD",1034 0,1,493,0) | ||
993 | you wa nt to be a ble to rep ort statis tics for. | ||
994 | "BLD",1034 0,1,494,0) | ||
995 | |||
996 | "BLD",1034 0,1,495,0) | ||
997 | NOTE: You can ru n the opti on as many times as needed to compile th e | ||
998 | "BLD",1034 0,1,496,0) | ||
999 | report statistic s. Compili ng will be skipped i f it has a lready bee n | ||
1000 | "BLD",1034 0,1,497,0) | ||
1001 | done | ||
1002 | "BLD",1034 0,1,498,0) | ||
1003 | for a day. It is recommend ed that yo u compile a single d ay the fir st | ||
1004 | "BLD",1034 0,1,499,0) | ||
1005 | time | ||
1006 | "BLD",1034 0,1,500,0) | ||
1007 | you us e the opti on to gaug e the amou nt of time required at your | ||
1008 | "BLD",1034 0,1,501,0) | ||
1009 | facility. | ||
1010 | "BLD",1034 0,1,502,0) | ||
1011 | Compil ing audit statistics can be do ne at any time after installat ion | ||
1012 | "BLD",1034 0,1,503,0) | ||
1013 | that | ||
1014 | "BLD",1034 0,1,504,0) | ||
1015 | is con venient, b ut users w ill only b e able to get data o n the audi t | ||
1016 | "BLD",1034 0,1,505,0) | ||
1017 | report that has been compi led. | ||
1018 | "BLD",1034 0,4,0) | ||
1019 | ^9.64PA^40 9.85^3 | ||
1020 | "BLD",1034 0,4,409.85 ,0) | ||
1021 | 409.85 | ||
1022 | "BLD",1034 0,4,409.85 ,222) | ||
1023 | y^y^f^^^^n | ||
1024 | "BLD",1034 0,4,409.86 ,0) | ||
1025 | 409.86 | ||
1026 | "BLD",1034 0,4,409.86 ,222) | ||
1027 | y^y^f^^^^n | ||
1028 | "BLD",1034 0,4,409.97 ,0) | ||
1029 | 409.97 | ||
1030 | "BLD",1034 0,4,409.97 ,222) | ||
1031 | y^y^f^^^^n | ||
1032 | "BLD",1034 0,4,"B",40 9.85,409.8 5) | ||
1033 | |||
1034 | "BLD",1034 0,4,"B",40 9.86,409.8 6) | ||
1035 | |||
1036 | "BLD",1034 0,4,"B",40 9.97,409.9 7) | ||
1037 | |||
1038 | "BLD",1034 0,6) | ||
1039 | 2^ | ||
1040 | "BLD",1034 0,6.3) | ||
1041 | 39 | ||
1042 | "BLD",1034 0,"KRN",0) | ||
1043 | ^9.67PA^77 9.2^20 | ||
1044 | "BLD",1034 0,"KRN",.4 ,0) | ||
1045 | .4 | ||
1046 | "BLD",1034 0,"KRN",.4 ,"NM",0) | ||
1047 | ^9.68A^1^1 | ||
1048 | "BLD",1034 0,"KRN",.4 ,"NM",1,0) | ||
1049 | SDEC AUDIT DATE PRIN T FILE #409.97^40 9.97^0 | ||
1050 | "BLD",1034 0,"KRN",.4 ,"NM","B", "SDEC AUDI T DATE PRI NT FILE #409.97", 1) | ||
1051 | |||
1052 | "BLD",1034 0,"KRN",.4 01,0) | ||
1053 | .401 | ||
1054 | "BLD",1034 0,"KRN",.4 01,"NM",0) | ||
1055 | ^9.68A^1^1 | ||
1056 | "BLD",1034 0,"KRN",.4 01,"NM",1, 0) | ||
1057 | SDEC AUDIT REPORT BY DATE F ILE #409.9 7^409.97^0 | ||
1058 | "BLD",1034 0,"KRN",.4 01,"NM","B ","SDEC AU DIT REPORT BY DATE FILE #40 9.97",1) | ||
1059 | |||
1060 | "BLD",1034 0,"KRN",.4 02,0) | ||
1061 | .402 | ||
1062 | "BLD",1034 0,"KRN",.4 03,0) | ||
1063 | .403 | ||
1064 | "BLD",1034 0,"KRN",.5 ,0) | ||
1065 | .5 | ||
1066 | "BLD",1034 0,"KRN",.8 4,0) | ||
1067 | .84 | ||
1068 | "BLD",1034 0,"KRN",3. 6,0) | ||
1069 | 3.6 | ||
1070 | "BLD",1034 0,"KRN",3. 8,0) | ||
1071 | 3.8 | ||
1072 | "BLD",1034 0,"KRN",9. 2,0) | ||
1073 | 9.2 | ||
1074 | "BLD",1034 0,"KRN",9. 8,0) | ||
1075 | 9.8 | ||
1076 | "BLD",1034 0,"KRN",9. 8,"NM",0) | ||
1077 | ^9.68A^11^ 11 | ||
1078 | "BLD",1034 0,"KRN",9. 8,"NM",1,0 ) | ||
1079 | SDEC01C^^0 ^B69927064 | ||
1080 | "BLD",1034 0,"KRN",9. 8,"NM",2,0 ) | ||
1081 | SDECAUD^^0 ^B10112112 2 | ||
1082 | "BLD",1034 0,"KRN",9. 8,"NM",3,0 ) | ||
1083 | SDEC^^0^B1 33133924 | ||
1084 | "BLD",1034 0,"KRN",9. 8,"NM",4,0 ) | ||
1085 | SDECCON^^0 ^B17988891 | ||
1086 | "BLD",1034 0,"KRN",9. 8,"NM",5,0 ) | ||
1087 | SDEC07A^^0 ^B86375854 | ||
1088 | "BLD",1034 0,"KRN",9. 8,"NM",6,0 ) | ||
1089 | SDECLK^^0^ B22769738 | ||
1090 | "BLD",1034 0,"KRN",9. 8,"NM",7,0 ) | ||
1091 | SDECAR1^^0 ^B16735125 1 | ||
1092 | "BLD",1034 0,"KRN",9. 8,"NM",8,0 ) | ||
1093 | SDECAR2^^0 ^B19996780 8 | ||
1094 | "BLD",1034 0,"KRN",9. 8,"NM",9,0 ) | ||
1095 | SDCNSLT^^0 ^B45406127 | ||
1096 | "BLD",1034 0,"KRN",9. 8,"NM",10, 0) | ||
1097 | SDEC07^^0^ B206327125 | ||
1098 | "BLD",1034 0,"KRN",9. 8,"NM",11, 0) | ||
1099 | SDEC08^^0^ B213030286 | ||
1100 | "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDCNSLT" ,9) | ||
1101 | |||
1102 | "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDEC",3) | ||
1103 | |||
1104 | "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDEC01C" ,1) | ||
1105 | |||
1106 | "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDEC07", 10) | ||
1107 | |||
1108 | "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDEC07A" ,5) | ||
1109 | |||
1110 | "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDEC08", 11) | ||
1111 | |||
1112 | "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDECAR1" ,7) | ||
1113 | |||
1114 | "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDECAR2" ,8) | ||
1115 | |||
1116 | "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDECAUD" ,2) | ||
1117 | |||
1118 | "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDECCON" ,4) | ||
1119 | |||
1120 | "BLD",1034 0,"KRN",9. 8,"NM","B" ,"SDECLK", 6) | ||
1121 | |||
1122 | "BLD",1034 0,"KRN",19 ,0) | ||
1123 | 19 | ||
1124 | "BLD",1034 0,"KRN",19 ,"NM",0) | ||
1125 | ^9.68A^6^6 | ||
1126 | "BLD",1034 0,"KRN",19 ,"NM",1,0) | ||
1127 | SDECRPC^^0 | ||
1128 | "BLD",1034 0,"KRN",19 ,"NM",2,0) | ||
1129 | SDEC AUDIT REPORT JO B^^0 | ||
1130 | "BLD",1034 0,"KRN",19 ,"NM",3,0) | ||
1131 | SDEC COMPI LE AUDIT R EPORT^^0 | ||
1132 | "BLD",1034 0,"KRN",19 ,"NM",4,0) | ||
1133 | SDEC RELEA SE LOCKS^^ 0 | ||
1134 | "BLD",1034 0,"KRN",19 ,"NM",5,0) | ||
1135 | SDSUP^^2 | ||
1136 | "BLD",1034 0,"KRN",19 ,"NM",6,0) | ||
1137 | SDEC PRINT AUDIT REP ORT^^0 | ||
1138 | "BLD",1034 0,"KRN",19 ,"NM","B", "SDEC AUDI T REPORT J OB",2) | ||
1139 | |||
1140 | "BLD",1034 0,"KRN",19 ,"NM","B", "SDEC COMP ILE AUDIT REPORT",3) | ||
1141 | |||
1142 | "BLD",1034 0,"KRN",19 ,"NM","B", "SDEC PRIN T AUDIT RE PORT",6) | ||
1143 | |||
1144 | "BLD",1034 0,"KRN",19 ,"NM","B", "SDEC RELE ASE LOCKS" ,4) | ||
1145 | |||
1146 | "BLD",1034 0,"KRN",19 ,"NM","B", "SDECRPC", 1) | ||
1147 | |||
1148 | "BLD",1034 0,"KRN",19 ,"NM","B", "SDSUP",5) | ||
1149 | |||
1150 | "BLD",1034 0,"KRN",19 .1,0) | ||
1151 | 19.1 | ||
1152 | "BLD",1034 0,"KRN",19 .1,"NM",0) | ||
1153 | ^9.68A^^ | ||
1154 | "BLD",1034 0,"KRN",10 1,0) | ||
1155 | 101 | ||
1156 | "BLD",1034 0,"KRN",40 9.61,0) | ||
1157 | 409.61 | ||
1158 | "BLD",1034 0,"KRN",77 1,0) | ||
1159 | 771 | ||
1160 | "BLD",1034 0,"KRN",77 9.2,0) | ||
1161 | 779.2 | ||
1162 | "BLD",1034 0,"KRN",87 0,0) | ||
1163 | 870 | ||
1164 | "BLD",1034 0,"KRN",89 89.51,0) | ||
1165 | 8989.51 | ||
1166 | "BLD",1034 0,"KRN",89 89.52,0) | ||
1167 | 8989.52 | ||
1168 | "BLD",1034 0,"KRN",89 94,0) | ||
1169 | 8994 | ||
1170 | "BLD",1034 0,"KRN",89 94,"NM",0) | ||
1171 | ^9.68A^5^5 | ||
1172 | "BLD",1034 0,"KRN",89 94,"NM",1, 0) | ||
1173 | SDEC SUMMG ET2^^0 | ||
1174 | "BLD",1034 0,"KRN",89 94,"NM",2, 0) | ||
1175 | SDEC RESCE ^^0 | ||
1176 | "BLD",1034 0,"KRN",89 94,"NM",3, 0) | ||
1177 | SDEC ARSET ^^0 | ||
1178 | "BLD",1034 0,"KRN",89 94,"NM",4, 0) | ||
1179 | SDEC ARGET ^^0 | ||
1180 | "BLD",1034 0,"KRN",89 94,"NM",5, 0) | ||
1181 | SDECAR1 AR GUID^^0 | ||
1182 | "BLD",1034 0,"KRN",89 94,"NM","B ","SDEC AR GET",4) | ||
1183 | |||
1184 | "BLD",1034 0,"KRN",89 94,"NM","B ","SDEC AR SET",3) | ||
1185 | |||
1186 | "BLD",1034 0,"KRN",89 94,"NM","B ","SDEC RE SCE",2) | ||
1187 | |||
1188 | "BLD",1034 0,"KRN",89 94,"NM","B ","SDEC SU MMGET2",1) | ||
1189 | |||
1190 | "BLD",1034 0,"KRN",89 94,"NM","B ","SDECAR1 ARGUID",5 ) | ||
1191 | |||
1192 | "BLD",1034 0,"KRN","B ",.4,.4) | ||
1193 | |||
1194 | "BLD",1034 0,"KRN","B ",.401,.40 1) | ||
1195 | |||
1196 | "BLD",1034 0,"KRN","B ",.402,.40 2) | ||
1197 | |||
1198 | "BLD",1034 0,"KRN","B ",.403,.40 3) | ||
1199 | |||
1200 | "BLD",1034 0,"KRN","B ",.5,.5) | ||
1201 | |||
1202 | "BLD",1034 0,"KRN","B ",.84,.84) | ||
1203 | |||
1204 | "BLD",1034 0,"KRN","B ",3.6,3.6) | ||
1205 | |||
1206 | "BLD",1034 0,"KRN","B ",3.8,3.8) | ||
1207 | |||
1208 | "BLD",1034 0,"KRN","B ",9.2,9.2) | ||
1209 | |||
1210 | "BLD",1034 0,"KRN","B ",9.8,9.8) | ||
1211 | |||
1212 | "BLD",1034 0,"KRN","B ",19,19) | ||
1213 | |||
1214 | "BLD",1034 0,"KRN","B ",19.1,19. 1) | ||
1215 | |||
1216 | "BLD",1034 0,"KRN","B ",101,101) | ||
1217 | |||
1218 | "BLD",1034 0,"KRN","B ",409.61,4 09.61) | ||
1219 | |||
1220 | "BLD",1034 0,"KRN","B ",771,771) | ||
1221 | |||
1222 | "BLD",1034 0,"KRN","B ",779.2,77 9.2) | ||
1223 | |||
1224 | "BLD",1034 0,"KRN","B ",870,870) | ||
1225 | |||
1226 | "BLD",1034 0,"KRN","B ",8989.51, 8989.51) | ||
1227 | |||
1228 | "BLD",1034 0,"KRN","B ",8989.52, 8989.52) | ||
1229 | |||
1230 | "BLD",1034 0,"KRN","B ",8994,899 4) | ||
1231 | |||
1232 | "BLD",1034 0,"QDEF") | ||
1233 | ^^^^^^^^YE S | ||
1234 | "BLD",1034 0,"QUES",0 ) | ||
1235 | ^9.62^^ | ||
1236 | "BLD",1034 0,"REQB",0 ) | ||
1237 | ^9.611^3^3 | ||
1238 | "BLD",1034 0,"REQB",1 ,0) | ||
1239 | SD*5.3*679 ^2 | ||
1240 | "BLD",1034 0,"REQB",2 ,0) | ||
1241 | SD*5.3*671 ^2 | ||
1242 | "BLD",1034 0,"REQB",3 ,0) | ||
1243 | SD*5.3*669 ^2 | ||
1244 | "BLD",1034 0,"REQB"," B","SD*5.3 *669",3) | ||
1245 | |||
1246 | "BLD",1034 0,"REQB"," B","SD*5.3 *671",2) | ||
1247 | |||
1248 | "BLD",1034 0,"REQB"," B","SD*5.3 *679",1) | ||
1249 | |||
1250 | "FIA",409. 85) | ||
1251 | SDEC APPT REQUEST | ||
1252 | "FIA",409. 85,0) | ||
1253 | ^SDEC(409. 85, | ||
1254 | "FIA",409. 85,0,0) | ||
1255 | 409.85P | ||
1256 | "FIA",409. 85,0,1) | ||
1257 | y^y^f^^^^n | ||
1258 | "FIA",409. 85,0,10) | ||
1259 | |||
1260 | "FIA",409. 85,0,11) | ||
1261 | |||
1262 | "FIA",409. 85,0,"RLRO ") | ||
1263 | |||
1264 | "FIA",409. 85,0,"VR") | ||
1265 | 5.3^SD | ||
1266 | "FIA",409. 85,409.85) | ||
1267 | 0 | ||
1268 | "FIA",409. 85,409.851 ) | ||
1269 | 0 | ||
1270 | "FIA",409. 85,409.852 ) | ||
1271 | 0 | ||
1272 | "FIA",409. 85,409.854 4) | ||
1273 | 0 | ||
1274 | "FIA",409. 85,409.854 5) | ||
1275 | 0 | ||
1276 | "FIA",409. 85,409.854 8) | ||
1277 | 0 | ||
1278 | "FIA",409. 86) | ||
1279 | SDEC CONTA CT | ||
1280 | "FIA",409. 86,0) | ||
1281 | ^SDEC(409. 86, | ||
1282 | "FIA",409. 86,0,0) | ||
1283 | 409.86P | ||
1284 | "FIA",409. 86,0,1) | ||
1285 | y^y^f^^^^n | ||
1286 | "FIA",409. 86,0,10) | ||
1287 | |||
1288 | "FIA",409. 86,0,11) | ||
1289 | |||
1290 | "FIA",409. 86,0,"RLRO ") | ||
1291 | |||
1292 | "FIA",409. 86,0,"VR") | ||
1293 | 5.3^SD | ||
1294 | "FIA",409. 86,409.86) | ||
1295 | 0 | ||
1296 | "FIA",409. 86,409.863 ) | ||
1297 | 0 | ||
1298 | "FIA",409. 97) | ||
1299 | SD Audit S tatistics | ||
1300 | "FIA",409. 97,0) | ||
1301 | ^SDAUDIT( | ||
1302 | "FIA",409. 97,0,0) | ||
1303 | 409.97P | ||
1304 | "FIA",409. 97,0,1) | ||
1305 | y^y^f^^^^n | ||
1306 | "FIA",409. 97,0,10) | ||
1307 | |||
1308 | "FIA",409. 97,0,11) | ||
1309 | |||
1310 | "FIA",409. 97,0,"RLRO ") | ||
1311 | |||
1312 | "FIA",409. 97,0,"VR") | ||
1313 | 5.3^SD | ||
1314 | "FIA",409. 97,409.97) | ||
1315 | 0 | ||
1316 | "IX",409.8 5,409.85," AC",0) | ||
1317 | 409.85^AC^ Index by C REATE DATE and ORIGI NATING USE R^R^^R^IR^ I^409.85^^ ^^^S | ||
1318 | "IX",409.8 5,409.85," AC",.1,0) | ||
1319 | ^^2^2^3160 607 | ||
1320 | "IX",409.8 5,409.85," AC",.1,1,0 ) | ||
1321 | This cross reference is used t o sort by CREATE DAT E and | ||
1322 | "IX",409.8 5,409.85," AC",.1,2,0 ) | ||
1323 | ORIGINATIN G USER. | ||
1324 | "IX",409.8 5,409.85," AC",1) | ||
1325 | S ^SDEC(40 9.85,"AC", X(1),X(2), DA)="" | ||
1326 | "IX",409.8 5,409.85," AC",2) | ||
1327 | K ^SDEC(40 9.85,"AC", X(1),X(2), DA) | ||
1328 | "IX",409.8 5,409.85," AC",2.5) | ||
1329 | K ^SDEC(40 9.85,"AC") | ||
1330 | "IX",409.8 5,409.85," AC",11.1,0 ) | ||
1331 | ^.114IA^2^ 2 | ||
1332 | "IX",409.8 5,409.85," AC",11.1,1 ,0) | ||
1333 | 1^F^409.85 ^9.5^^1^F | ||
1334 | "IX",409.8 5,409.85," AC",11.1,2 ,0) | ||
1335 | 2^F^409.85 ^9^^2^F | ||
1336 | "IX",409.8 5,409.85," AD",0) | ||
1337 | 409.85^AD^ Sort by DA TE ENTERED and ENTER ED BY USER of PATIEN T CONTACTS ^R^^R^IR^W ^409.8544^ ^^^^S | ||
1338 | "IX",409.8 5,409.85," AD",.1,0) | ||
1339 | ^^3^3^3160 607 | ||
1340 | "IX",409.8 5,409.85," AD",.1,1,0 ) | ||
1341 | This cross reference sorts the whole SDE C APPT REQ UEST file by the | ||
1342 | "IX",409.8 5,409.85," AD",.1,2,0 ) | ||
1343 | DATE ENTER ED and ENT ERED BY US ER of the PATIENT CO NTACTS mul tiple | ||
1344 | "IX",409.8 5,409.85," AD",.1,3,0 ) | ||
1345 | field #44. | ||
1346 | "IX",409.8 5,409.85," AD",1) | ||
1347 | S ^SDEC(40 9.85,"AD", X(1),X(2), DA(1),DA)= "" | ||
1348 | "IX",409.8 5,409.85," AD",2) | ||
1349 | K ^SDEC(40 9.85,"AD", X(1),X(2), DA(1),DA) | ||
1350 | "IX",409.8 5,409.85," AD",2.5) | ||
1351 | K ^SDEC(40 9.85,"AD") | ||
1352 | "IX",409.8 5,409.85," AD",11.1,0 ) | ||
1353 | ^.114IA^2^ 2 | ||
1354 | "IX",409.8 5,409.85," AD",11.1,1 ,0) | ||
1355 | 1^F^409.85 44^.01^^1^ F | ||
1356 | "IX",409.8 5,409.85," AD",11.1,2 ,0) | ||
1357 | 2^F^409.85 44^2^^2^F | ||
1358 | "IX",409.8 5,409.85," E",0) | ||
1359 | 409.85^E^I ndex by CU RRENT STAT US and CRE ATE DATE.^ R^^R^IR^I^ 409.85^^^^ ^S | ||
1360 | "IX",409.8 5,409.85," E",.1,0) | ||
1361 | ^^1^1^3160 506 | ||
1362 | "IX",409.8 5,409.85," E",.1,1,0) | ||
1363 | This cross reference is used t o sort by CURRENT ST ATUS and C REATE DATE . | ||
1364 | "IX",409.8 5,409.85," E",1) | ||
1365 | S ^SDEC(40 9.85,"E",X (1),X(2),D A)="" | ||
1366 | "IX",409.8 5,409.85," E",2) | ||
1367 | K ^SDEC(40 9.85,"E",X (1),X(2),D A) | ||
1368 | "IX",409.8 5,409.85," E",2.5) | ||
1369 | K ^SDEC(40 9.85,"E") | ||
1370 | "IX",409.8 5,409.85," E",11.1,0) | ||
1371 | ^.114IA^2^ 2 | ||
1372 | "IX",409.8 5,409.85," E",11.1,1, 0) | ||
1373 | 1^F^409.85 ^23^^1^F | ||
1374 | "IX",409.8 5,409.85," E",11.1,2, 0) | ||
1375 | 2^F^409.85 ^1^^2^F | ||
1376 | "IX",409.8 5,409.85," GC",0) | ||
1377 | 409.85^GC^ SORT BY CL INIC AND O RIGINATING DATE^R^^R ^IR^I^409. 85^^^^^LS | ||
1378 | "IX",409.8 5,409.85," GC",.1,0) | ||
1379 | ^^2^2^3170 510 | ||
1380 | "IX",409.8 5,409.85," GC",.1,1,0 ) | ||
1381 | This xref is used to sort Appo intment Re quest entr ies by the REQ SPECI FIC | ||
1382 | "IX",409.8 5,409.85," GC",.1,2,0 ) | ||
1383 | CLINIC fie ld (#8) an d the CREA TE DATE fi eld (#1). | ||
1384 | "IX",409.8 5,409.85," GC",1) | ||
1385 | S ^SDEC(40 9.85,"GC", X(1),X(2), DA)="" | ||
1386 | "IX",409.8 5,409.85," GC",2) | ||
1387 | K ^SDEC(40 9.85,"GC", X(1),X(2), DA) | ||
1388 | "IX",409.8 5,409.85," GC",2.5) | ||
1389 | K ^SDEC(40 9.85,"GC") | ||
1390 | "IX",409.8 5,409.85," GC",11.1,0 ) | ||
1391 | ^.114IA^2^ 2 | ||
1392 | "IX",409.8 5,409.85," GC",11.1,1 ,0) | ||
1393 | 1^F^409.85 ^8^^1^F | ||
1394 | "IX",409.8 5,409.85," GC",11.1,2 ,0) | ||
1395 | 2^F^409.85 ^1^^2^F | ||
1396 | "IX",409.8 5,409.85," GCC",0) | ||
1397 | 409.85^GCC ^SORT BY C LINIC AND CID/PREFER RED DATE^R ^^R^IR^I^4 09.85^^^^^ LS | ||
1398 | "IX",409.8 5,409.85," GCC",.1,0) | ||
1399 | ^^2^2^3170 510 | ||
1400 | "IX",409.8 5,409.85," GCC",.1,1, 0) | ||
1401 | This xref is used to sort Appo intment Re quest entr ies by the REQ SPECI FIC | ||
1402 | "IX",409.8 5,409.85," GCC",.1,2, 0) | ||
1403 | CLINIC fie ld (#8) an d the CID PREFERRED DATE OF AP PT field ( #22). | ||
1404 | "IX",409.8 5,409.85," GCC",1) | ||
1405 | S ^SDEC(40 9.85,"GCC" ,X(1),X(2) ,DA)="" | ||
1406 | "IX",409.8 5,409.85," GCC",2) | ||
1407 | K ^SDEC(40 9.85,"GCC" ,X(1),X(2) ,DA) | ||
1408 | "IX",409.8 5,409.85," GCC",2.5) | ||
1409 | K ^SDEC(40 9.85,"GCC" ) | ||
1410 | "IX",409.8 5,409.85," GCC",11.1, 0) | ||
1411 | ^.114IA^2^ 2 | ||
1412 | "IX",409.8 5,409.85," GCC",11.1, 1,0) | ||
1413 | 1^F^409.85 ^8^^1^F | ||
1414 | "IX",409.8 5,409.85," GCC",11.1, 2,0) | ||
1415 | 2^F^409.85 ^22^^2^F | ||
1416 | "IX",409.8 5,409.85," GS",0) | ||
1417 | 409.85^GS^ SORT BY RE Q SERVICE/ SPECIALTY ID AND ORI GINATING D ATE^R^^R^I R^I^409.85 ^^^^^LS | ||
1418 | "IX",409.8 5,409.85," GS",.1,0) | ||
1419 | ^^2^2^3170 510 | ||
1420 | "IX",409.8 5,409.85," GS",.1,1,0 ) | ||
1421 | This xref is used to sort Appo intment Re quest entr ies by the REQ | ||
1422 | "IX",409.8 5,409.85," GS",.1,2,0 ) | ||
1423 | SERVICE/SP ECIALTY fi eld (#8.5) and the C REATE DATE field (#1 ). | ||
1424 | "IX",409.8 5,409.85," GS",1) | ||
1425 | S ^SDEC(40 9.85,"GS", X(1),X(2), DA)="" | ||
1426 | "IX",409.8 5,409.85," GS",2) | ||
1427 | K ^SDEC(40 9.85,"GS", X(1),X(2), DA) | ||
1428 | "IX",409.8 5,409.85," GS",2.5) | ||
1429 | K ^SDEC(40 9.85,"GS") | ||
1430 | "IX",409.8 5,409.85," GS",11.1,0 ) | ||
1431 | ^.114IA^2^ 2 | ||
1432 | "IX",409.8 5,409.85," GS",11.1,1 ,0) | ||
1433 | 1^F^409.85 ^8.5^^1^F | ||
1434 | "IX",409.8 5,409.85," GS",11.1,2 ,0) | ||
1435 | 2^F^409.85 ^1^^2^F | ||
1436 | "IX",409.8 5,409.85," GSA",0) | ||
1437 | 409.85^GSA ^SORT BY R EQ SERVICE /SPECIALTY , SVC CONN ECTED, AND CREATE DA TE^R^^R^IR ^I^409.85^ ^^^^LS | ||
1438 | "IX",409.8 5,409.85," GSA",.1,0) | ||
1439 | ^^5^5^3170 510 | ||
1440 | "IX",409.8 5,409.85," GSA",.1,1, 0) | ||
1441 | This xref is used to sort Appo intment Re quest entr ies by the REQ | ||
1442 | "IX",409.8 5,409.85," GSA",.1,2, 0) | ||
1443 | SERVICE/SP ECIALTY fi eld (#8.5) , SERVICE CONNECTED, and the C REATE DATE | ||
1444 | "IX",409.8 5,409.85," GSA",.1,3, 0) | ||
1445 | field (#1) . | ||
1446 | "IX",409.8 5,409.85," GSA",.1,4, 0) | ||
1447 | SERVICE CO NNECTED is the SERVI CE CONNECT ED? field (#.301) in the PATIE NT | ||
1448 | "IX",409.8 5,409.85," GSA",.1,5, 0) | ||
1449 | file (#2). | ||
1450 | "IX",409.8 5,409.85," GSA",1) | ||
1451 | S ^SDEC(40 9.85,"GSA" ,X(1),X(2) ,X(3),DA)= "" | ||
1452 | "IX",409.8 5,409.85," GSA",2) | ||
1453 | K ^SDEC(40 9.85,"GSA" ,X(1),X(2) ,X(3),DA) | ||
1454 | "IX",409.8 5,409.85," GSA",2.5) | ||
1455 | K ^SDEC(40 9.85,"GSA" ) | ||
1456 | "IX",409.8 5,409.85," GSA",11.1, 0) | ||
1457 | ^.114IA^3^ 3 | ||
1458 | "IX",409.8 5,409.85," GSA",11.1, 1,0) | ||
1459 | 1^F^409.85 ^8.5^^1^F | ||
1460 | "IX",409.8 5,409.85," GSA",11.1, 2,0) | ||
1461 | 2^C^^^^2^F | ||
1462 | "IX",409.8 5,409.85," GSA",11.1, 2,1.5) | ||
1463 | N DFN S DF N=$P($G(^S DEC(409.85 ,DA,0)),U, 1) S X=$P( $G(^DPT(+D FN,.3)),U, 1) S:X="" X=0 | ||
1464 | "IX",409.8 5,409.85," GSA",11.1, 3,0) | ||
1465 | 3^F^409.85 ^1^^3^F | ||
1466 | "IX",409.8 5,409.85," GSB",0) | ||
1467 | 409.85^GSB ^SORT BY R EQ SERVICE /SPECIALTY , SVC CONN ECTED PRIO RITY, AND CREATE DAT E^R^^R^IR^ I^409.85^^ ^^^LS | ||
1468 | "IX",409.8 5,409.85," GSB",.1,0) | ||
1469 | ^^3^3^3170 510 | ||
1470 | "IX",409.8 5,409.85," GSB",.1,1, 0) | ||
1471 | This xref is used to sort Appo intment Re quest entr ies by the REQ | ||
1472 | "IX",409.8 5,409.85," GSB",.1,2, 0) | ||
1473 | SERVICE/SP ECIALTY fi eld (#8.5) , SERVICE CONNECTED PRIORITY f ield (#15) , | ||
1474 | "IX",409.8 5,409.85," GSB",.1,3, 0) | ||
1475 | and the CR EATE DATE field (#1) . | ||
1476 | "IX",409.8 5,409.85," GSB",1) | ||
1477 | S ^SDEC(40 9.85,"GSB" ,X(1),X(2) ,X(3),DA)= "" | ||
1478 | "IX",409.8 5,409.85," GSB",2) | ||
1479 | K ^SDEC(40 9.85,"GSB" ,X(1),X(2) ,X(3),DA) | ||
1480 | "IX",409.8 5,409.85," GSB",2.5) | ||
1481 | K ^SDEC(40 9.85,"GSB" ) | ||
1482 | "IX",409.8 5,409.85," GSB",11.1, 0) | ||
1483 | ^.114IA^3^ 3 | ||
1484 | "IX",409.8 5,409.85," GSB",11.1, 1,0) | ||
1485 | 1^F^409.85 ^8.5^^1^F | ||
1486 | "IX",409.8 5,409.85," GSB",11.1, 2,0) | ||
1487 | 2^F^409.85 ^15^^2^F | ||
1488 | "IX",409.8 5,409.85," GSB",11.1, 3,0) | ||
1489 | 3^F^409.85 ^1^^3^F | ||
1490 | "IX",409.8 5,409.85," GSC",0) | ||
1491 | 409.85^GSC ^SORT BY R EQ SERVICE /SPECIALTY ID AND CI D/PREFERRE D DATE OF APPT^R^^R^ IR^I^409.8 5^^^^^LS | ||
1492 | "IX",409.8 5,409.85," GSC",.1,0) | ||
1493 | ^^3^3^3170 510 | ||
1494 | "IX",409.8 5,409.85," GSC",.1,1, 0) | ||
1495 | This xref is used to sort Appo intment Re quest entr ies by the REQ | ||
1496 | "IX",409.8 5,409.85," GSC",.1,2, 0) | ||
1497 | SERVICE/SP ECIALTY fi eld (#8.5) and the C ID/PREFERR ED DATE OF APPT fiel d | ||
1498 | "IX",409.8 5,409.85," GSC",.1,3, 0) | ||
1499 | (#22). | ||
1500 | "IX",409.8 5,409.85," GSC",1) | ||
1501 | S ^SDEC(40 9.85,"GSC" ,X(1),X(2) ,DA)="" | ||
1502 | "IX",409.8 5,409.85," GSC",2) | ||
1503 | K ^SDEC(40 9.85,"GSC" ,X(1),X(2) ,DA) | ||
1504 | "IX",409.8 5,409.85," GSC",2.5) | ||
1505 | K ^SDEC(40 9.85,"GSC" ) | ||
1506 | "IX",409.8 5,409.85," GSC",11.1, 0) | ||
1507 | ^.114IA^2^ 2 | ||
1508 | "IX",409.8 5,409.85," GSC",11.1, 1,0) | ||
1509 | 1^F^409.85 ^8.5^^1^F | ||
1510 | "IX",409.8 5,409.85," GSC",11.1, 2,0) | ||
1511 | 2^F^409.85 ^22^^2^F | ||
1512 | "IX",409.8 5,409.85," GSP",0) | ||
1513 | 409.85^GSP ^SORT BY R EQ SERVICE /SPECIALTY , ENROLLME NT PRIORIT Y, AND CRE ATE DATE^R ^^R^IR^I^4 09.85^^^^^ LS | ||
1514 | "IX",409.8 5,409.85," GSP",.1,0) | ||
1515 | ^^7^7^3170 510 | ||
1516 | "IX",409.8 5,409.85," GSP",.1,1, 0) | ||
1517 | This xref is used to sort Appo intment Re quest entr ies by the REQ | ||
1518 | "IX",409.8 5,409.85," GSP",.1,2, 0) | ||
1519 | SERVICE/SP ECIALTY fi eld (#8.5) , Patient' s ENROLLME NT PRIORIT Y, and the | ||
1520 | "IX",409.8 5,409.85," GSP",.1,3, 0) | ||
1521 | CREATE DAT E field (# 1). | ||
1522 | "IX",409.8 5,409.85," GSP",.1,4, 0) | ||
1523 | The Patien t's ENROLL MENT PRIOR ITY comes from the E NROLLMENT PRIORITY | ||
1524 | "IX",409.8 5,409.85," GSP",.1,5, 0) | ||
1525 | field (#.0 7) of the PATIENT EN ROLLMENT f ile (#27.1 1). | ||
1526 | "IX",409.8 5,409.85," GSP",.1,6, 0) | ||
1527 | The CURREN T ENROLLME NT field ( #27.01) of the PATIE NT file (# 2) contain s | ||
1528 | "IX",409.8 5,409.85," GSP",.1,7, 0) | ||
1529 | the pointe r into the PATIENT E NROLLMENT FILE. | ||
1530 | "IX",409.8 5,409.85," GSP",1) | ||
1531 | S ^SDEC(40 9.85,"GSP" ,X(1),X(2) ,X(3),DA)= "" | ||
1532 | "IX",409.8 5,409.85," GSP",2) | ||
1533 | K ^SDEC(40 9.85,"GSP" ,X(1),X(2) ,X(3),DA) | ||
1534 | "IX",409.8 5,409.85," GSP",2.5) | ||
1535 | K ^SDEC(40 9.85,"GSP" ) | ||
1536 | "IX",409.8 5,409.85," GSP",11.1, 0) | ||
1537 | ^.114IA^3^ 3 | ||
1538 | "IX",409.8 5,409.85," GSP",11.1, 1,0) | ||
1539 | 1^F^409.85 ^8.5^^1^F | ||
1540 | "IX",409.8 5,409.85," GSP",11.1, 2,0) | ||
1541 | 2^C^^^^2^F | ||
1542 | "IX",409.8 5,409.85," GSP",11.1, 2,1.5) | ||
1543 | N DFN,PCE S DFN=$P($ G(^SDEC(40 9.85,DA,0) ),U,1),PCE =$P($G(^DP T(+DFN,"EN R")),U,1), X=+$P($G(^ DGEN(27.11 ,+PCE,0)), U,7) | ||
1544 | "IX",409.8 5,409.85," GSP",11.1, 3,0) | ||
1545 | 3^F^409.85 ^1^^3^F | ||
1546 | "IX",409.8 5,409.85," GUID",0) | ||
1547 | 409.85^GUI D^Stores p ointer to Oracle dat abase wher e VAOS app ointment r equests ar e stored.^ R^^F^IR^I^ 409.85^^^^ ^LS | ||
1548 | "IX",409.8 5,409.85," GUID",.1,0 ) | ||
1549 | ^^5^5^3180 420^ | ||
1550 | "IX",409.8 5,409.85," GUID",.1,1 ,0) | ||
1551 | The GUID i s the data base point er in the Oracle dat abase that stores VA OS | ||
1552 | "IX",409.8 5,409.85," GUID",.1,2 ,0) | ||
1553 | requests f or appoint ments. It is a 32 c haracter v alue. Thi s | ||
1554 | "IX",409.8 5,409.85," GUID",.1,3 ,0) | ||
1555 | cross-refe rence is u sed to lin k the VAOS request t o the Appo intment | ||
1556 | "IX",409.8 5,409.85," GUID",.1,4 ,0) | ||
1557 | Request st ored in Vi stA so tha t the VAOS database can be upd ated with | ||
1558 | "IX",409.8 5,409.85," GUID",.1,5 ,0) | ||
1559 | status cha nges when appointmen ts are mad e or cance lled using VS GUI. | ||
1560 | "IX",409.8 5,409.85," GUID",1) | ||
1561 | S ^SDEC(40 9.85,"GUID ",$E(X,1,3 2),DA)="" | ||
1562 | "IX",409.8 5,409.85," GUID",2) | ||
1563 | K ^SDEC(40 9.85,"GUID ",$E(X,1,3 2),DA) | ||
1564 | "IX",409.8 5,409.85," GUID",2.5) | ||
1565 | K ^SDEC(40 9.85,"GUID ") | ||
1566 | "IX",409.8 5,409.85," GUID",11.1 ,0) | ||
1567 | ^.114IA^1^ 1 | ||
1568 | "IX",409.8 5,409.85," GUID",11.1 ,1,0) | ||
1569 | 1^F^409.85 ^5^32^1^F | ||
1570 | "IX",409.8 6,409.86," AD",0) | ||
1571 | 409.86^AD^ Date/user entered cr oss-refere nce^R^^R^I R^W^409.86 3^^^^^S | ||
1572 | "IX",409.8 6,409.86," AD",.1,0) | ||
1573 | ^^2^2^3180 306^ | ||
1574 | "IX",409.8 6,409.86," AD",.1,1,0 ) | ||
1575 | Cross-refe rence by d ate/time e ntered and user ente red. Used by audit | ||
1576 | "IX",409.8 6,409.86," AD",.1,2,0 ) | ||
1577 | statistics compiler (SDECAUD). | ||
1578 | "IX",409.8 6,409.86," AD",1) | ||
1579 | S ^SDEC(40 9.86,"AD", X(1),X(2), DA(1),DA)= "" | ||
1580 | "IX",409.8 6,409.86," AD",2) | ||
1581 | K ^SDEC(40 9.86,"AD", X(1),X(2), DA(1),DA) | ||
1582 | "IX",409.8 6,409.86," AD",2.5) | ||
1583 | K ^SDEC(40 9.86,"AD") | ||
1584 | "IX",409.8 6,409.86," AD",11.1,0 ) | ||
1585 | ^.114IA^2^ 2 | ||
1586 | "IX",409.8 6,409.86," AD",11.1,1 ,0) | ||
1587 | 1^F^409.86 3^6^^1^F | ||
1588 | "IX",409.8 6,409.86," AD",11.1,1 ,3) | ||
1589 | |||
1590 | "IX",409.8 6,409.86," AD",11.1,2 ,0) | ||
1591 | 2^F^409.86 3^5^^2^F | ||
1592 | "IX",409.8 6,409.86," AD",11.1,2 ,3) | ||
1593 | |||
1594 | "IX",409.9 7,409.97," D",0) | ||
1595 | 409.97^D^D ATE AND SC HEDULER^R^ ^R^IR^I^40 9.97^^^^^L S | ||
1596 | "IX",409.9 7,409.97," D",.1,0) | ||
1597 | ^^1^1^3180 222^ | ||
1598 | "IX",409.9 7,409.97," D",.1,1,0) | ||
1599 | Used to se lect recor ds for pri nting on r eport by d ate. | ||
1600 | "IX",409.9 7,409.97," D",1) | ||
1601 | S ^SDAUDIT ("D",$E(X( 1),1,7),$E (X(2),1,20 ),DA)="" | ||
1602 | "IX",409.9 7,409.97," D",2) | ||
1603 | K ^SDAUDIT ("D",$E(X( 1),1,7),$E (X(2),1,20 ),DA) | ||
1604 | "IX",409.9 7,409.97," D",2.5) | ||
1605 | K ^SDAUDIT ("D") | ||
1606 | "IX",409.9 7,409.97," D",11.1,0) | ||
1607 | ^.114IA^2^ 2 | ||
1608 | "IX",409.9 7,409.97," D",11.1,1, 0) | ||
1609 | 1^F^409.97 ^1^7^1^F^D ATE AND SC HEDULER | ||
1610 | "IX",409.9 7,409.97," D",11.1,2, 0) | ||
1611 | 2^F^409.97 ^.01^20^2^ F^SCHEDULE R | ||
1612 | "IX",409.9 7,409.97," E",0) | ||
1613 | 409.97^E^S CHEDULER A ND DATE^R^ ^R^IR^I^40 9.97^^^^^L S | ||
1614 | "IX",409.9 7,409.97," E",.1,0) | ||
1615 | ^^2^2^3180 222^ | ||
1616 | "IX",409.9 7,409.97," E",.1,1,0) | ||
1617 | Used to se lect recor ds for pri nting on r eport by s cheduler f or a date | ||
1618 | "IX",409.9 7,409.97," E",.1,2,0) | ||
1619 | range. | ||
1620 | "IX",409.9 7,409.97," E",1) | ||
1621 | S ^SDAUDIT ("E",$E(X( 1),1,20),$ E(X(2),1,7 ),DA)="" | ||
1622 | "IX",409.9 7,409.97," E",2) | ||
1623 | K ^SDAUDIT ("E",$E(X( 1),1,20),$ E(X(2),1,7 ),DA) | ||
1624 | "IX",409.9 7,409.97," E",2.5) | ||
1625 | K ^SDAUDIT ("E") | ||
1626 | "IX",409.9 7,409.97," E",11.1,0) | ||
1627 | ^.114IA^2^ 2 | ||
1628 | "IX",409.9 7,409.97," E",11.1,1, 0) | ||
1629 | 1^F^409.97 ^.01^20^1^ F | ||
1630 | "IX",409.9 7,409.97," E",11.1,2, 0) | ||
1631 | 2^F^409.97 ^1^7^2^F^D ATE | ||
1632 | "KRN",.4,1 554,-1) | ||
1633 | 0^1 | ||
1634 | "KRN",.4,1 554,0) | ||
1635 | SDEC AUDIT DATE PRIN T^3180312. 0648^@^409 .97^^@^318 0412 | ||
1636 | "KRN",.4,1 554,"DCL", "409.97^10 ") | ||
1637 | & | ||
1638 | "KRN",.4,1 554,"DCL", "409.97^11 ") | ||
1639 | & | ||
1640 | "KRN",.4,1 554,"DCL", "409.97^12 ") | ||
1641 | & | ||
1642 | "KRN",.4,1 554,"DCL", "409.97^13 ") | ||
1643 | & | ||
1644 | "KRN",.4,1 554,"DCL", "409.97^14 ") | ||
1645 | & | ||
1646 | "KRN",.4,1 554,"DCL", "409.97^15 ") | ||
1647 | & | ||
1648 | "KRN",.4,1 554,"DCL", "409.97^2" ) | ||
1649 | & | ||
1650 | "KRN",.4,1 554,"DCL", "409.97^3" ) | ||
1651 | & | ||
1652 | "KRN",.4,1 554,"DCL", "409.97^4" ) | ||
1653 | & | ||
1654 | "KRN",.4,1 554,"DCL", "409.97^5" ) | ||
1655 | & | ||
1656 | "KRN",.4,1 554,"DCL", "409.97^6" ) | ||
1657 | & | ||
1658 | "KRN",.4,1 554,"DCL", "409.97^7" ) | ||
1659 | & | ||
1660 | "KRN",.4,1 554,"DCL", "409.97^8" ) | ||
1661 | & | ||
1662 | "KRN",.4,1 554,"DCL", "409.97^9" ) | ||
1663 | & | ||
1664 | "KRN",.4,1 554,"F",1) | ||
1665 | 1~.01~S DI P(1)=$S($D (^SDAUDIT( D0,0)):^(0 ),1:"") S X=$P(DIP(1 ),U,1),X=X W X K DIP ;"Schedule rIEN";Z;"I NTERNAL(SC HEDULER)"~ 2~3~4~5~6~ 7~8~9~10~1 1~12~13~14 ~ | ||
1666 | "KRN",.4,1 554,"F",2) | ||
1667 | 15~ | ||
1668 | "KRN",.4,1 554,"H") | ||
1669 | SD Audit S tatistics STATISTICS | ||
1670 | "KRN",.401 ,936,-1) | ||
1671 | 0^1 | ||
1672 | "KRN",.401 ,936,0) | ||
1673 | SDEC AUDIT REPORT BY DATE^3180 307.1024^@ ^409.97^^@ ^3180412 | ||
1674 | "KRN",.401 ,936,2,0) | ||
1675 | ^.4014^2^2 | ||
1676 | "KRN",.401 ,936,2,1,0 ) | ||
1677 | 409.97^1^D ATE^^^^^^^ 1 | ||
1678 | "KRN",.401 ,936,2,1," ASK") | ||
1679 | 1 | ||
1680 | "KRN",.401 ,936,2,1," F") | ||
1681 | 3150100.99 9999^JAN 1 ,2015^JAN 1,2015 | ||
1682 | "KRN",.401 ,936,2,1," GET") | ||
1683 | S DISX(1)= $P($G(^SDA UDIT(D0,0) ),U,2) | ||
1684 | "KRN",.401 ,936,2,1," IX") | ||
1685 | ^SDAUDIT(" C",^SDAUDI T(^2 | ||
1686 | "KRN",.401 ,936,2,1," QCON") | ||
1687 | I (DISX(1) ]]3150100. 999999)&(D ISX(1)']]3 180411.24) | ||
1688 | "KRN",.401 ,936,2,1," SER") | ||
1689 | 0.0000^0.0 000 | ||
1690 | "KRN",.401 ,936,2,1," T") | ||
1691 | 3180411.24 ^T-1@2400^ APR 11,201 8@24:00 | ||
1692 | "KRN",.401 ,936,2,1," TXT") | ||
1693 | DATE from JAN 1,2015 to APR 11 ,2018@24:0 0 | ||
1694 | "KRN",.401 ,936,2,2,0 ) | ||
1695 | 409.97^^SC HEDULER^". 01^^^^^^4 | ||
1696 | "KRN",.401 ,936,2,2," CM") | ||
1697 | S Y(1)=$S( $D(^SDAUDI T(D0,0)):^ (0),1:"") S X=$P($G( ^VA(200,+$ P(Y(1),U,1 ),0)),U) I D0>0 S DI SX(2)=X | ||
1698 | "KRN",.401 ,936,2,2," GET") | ||
1699 | S Y(1)=$S( $D(^SDAUDI T(D0,0)):^ (0),1:"") S X=$P($G( ^VA(200,+$ P(Y(1),U,1 ),0)),U) I D0>0 S DI SX(2)=X | ||
1700 | "KRN",.401 ,936,2,2," IX") | ||
1701 | ^SDAUDIT(" B",^SDAUDI T(^2 | ||
1702 | "KRN",.401 ,936,2,2," PTRIX") | ||
1703 | ^VA(200,"B ", | ||
1704 | "KRN",.401 ,936,2,2," QCON") | ||
1705 | I DISX(2)' ="" | ||
1706 | "KRN",.401 ,936,2,2," SER") | ||
1707 | 0.0000^0.0 000 | ||
1708 | "KRN",.401 ,936,2,2," TXT") | ||
1709 | SCHEDULER not null | ||
1710 | "KRN",.401 ,936,2,"B" ,409.97,1) | ||
1711 | |||
1712 | "KRN",.401 ,936,2,"B" ,409.97,2) | ||
1713 | |||
1714 | "KRN",19,2 202,-1) | ||
1715 | 2^5 | ||
1716 | "KRN",19,2 202,0) | ||
1717 | SDSUP^Supe rvisor Men u^^M^114^^ ^^^^^48 | ||
1718 | "KRN",19,2 202,10,0) | ||
1719 | ^19.01IP^2 2^22 | ||
1720 | "KRN",19,2 202,10,11, 0) | ||
1721 | 11715 | ||
1722 | "KRN",19,2 202,10,11, "^") | ||
1723 | SDEC RELEA SE LOCKS | ||
1724 | "KRN",19,2 202,"U") | ||
1725 | SUPERVISOR MENU | ||
1726 | "KRN",19,1 1630,-1) | ||
1727 | 0^1 | ||
1728 | "KRN",19,1 1630,0) | ||
1729 | SDECRPC^CL INICAL SCH EDULING PR OCEDURE CA LLS^^B^^^^ ^^^^SCHEDU LING | ||
1730 | "KRN",19,1 1630,1,0) | ||
1731 | ^19.06^2^2 ^3180807^^ ^^ | ||
1732 | "KRN",19,1 1630,1,1,0 ) | ||
1733 | This optio n hosts RP Cs in the SDEC names pace. CLI NICAL SCHE DULING use rs | ||
1734 | "KRN",19,1 1630,1,2,0 ) | ||
1735 | must have access to this optio n in order to use CL INICAL SCH EDULING. | ||
1736 | "KRN",19,1 1630,99.1) | ||
1737 | 64281,4317 6 | ||
1738 | "KRN",19,1 1630,"RPC" ,0) | ||
1739 | ^19.05P^21 0^210 | ||
1740 | "KRN",19,1 1630,"RPC" ,1,0) | ||
1741 | SDEC ACCGP TYG | ||
1742 | "KRN",19,1 1630,"RPC" ,2,0) | ||
1743 | SDEC ACCGR OUP | ||
1744 | "KRN",19,1 1630,"RPC" ,3,0) | ||
1745 | SDEC ACCTY PE | ||
1746 | "KRN",19,1 1630,"RPC" ,4,0) | ||
1747 | SDEC ADDAC CG | ||
1748 | "KRN",19,1 1630,"RPC" ,5,0) | ||
1749 | SDEC ADDAC CTY | ||
1750 | "KRN",19,1 1630,"RPC" ,6,0) | ||
1751 | SDEC ADDAG I | ||
1752 | "KRN",19,1 1630,"RPC" ,7,0) | ||
1753 | SDEC ADDRE S | ||
1754 | "KRN",19,1 1630,"RPC" ,8,0) | ||
1755 | SDEC ADDRE SU | ||
1756 | "KRN",19,1 1630,"RPC" ,9,0) | ||
1757 | SDEC ADDRG | ||
1758 | "KRN",19,1 1630,"RPC" ,10,0) | ||
1759 | SDEC ADDRG I | ||
1760 | "KRN",19,1 1630,"RPC" ,11,0) | ||
1761 | SDEC APBLK ALL | ||
1762 | "KRN",19,1 1630,"RPC" ,12,0) | ||
1763 | SDEC APBLK OV | ||
1764 | "KRN",19,1 1630,"RPC" ,13,0) | ||
1765 | SDEC APPAD D | ||
1766 | "KRN",19,1 1630,"RPC" ,14,0) | ||
1767 | SDEC APPDE L | ||
1768 | "KRN",19,1 1630,"RPC" ,15,0) | ||
1769 | SDEC APPTE VLG | ||
1770 | "KRN",19,1 1630,"RPC" ,16,0) | ||
1771 | SDEC APPTL ETR | ||
1772 | "KRN",19,1 1630,"RPC" ,17,0) | ||
1773 | SDEC APPTY PES | ||
1774 | "KRN",19,1 1630,"RPC" ,18,0) | ||
1775 | SDEC AVADD | ||
1776 | "KRN",19,1 1630,"RPC" ,19,0) | ||
1777 | SDEC AVDEL | ||
1778 | "KRN",19,1 1630,"RPC" ,20,0) | ||
1779 | SDEC AVDEL DT | ||
1780 | "KRN",19,1 1630,"RPC" ,21,0) | ||
1781 | SDEC CANCK OUT | ||
1782 | "KRN",19,1 1630,"RPC" ,22,0) | ||
1783 | SDEC CANRE AS | ||
1784 | "KRN",19,1 1630,"RPC" ,23,0) | ||
1785 | SDEC CHECK IN | ||
1786 | "KRN",19,1 1630,"RPC" ,24,0) | ||
1787 | SDEC CHECK OUT | ||
1788 | "KRN",19,1 1630,"RPC" ,25,0) | ||
1789 | SDEC CLINA LL | ||
1790 | "KRN",19,1 1630,"RPC" ,26,0) | ||
1791 | SDEC CLINC AN | ||
1792 | "KRN",19,1 1630,"RPC" ,27,0) | ||
1793 | SDEC CLIND IS | ||
1794 | "KRN",19,1 1630,"RPC" ,28,0) | ||
1795 | SDEC CLIND ISW | ||
1796 | "KRN",19,1 1630,"RPC" ,29,0) | ||
1797 | SDEC CLINL ET | ||
1798 | "KRN",19,1 1630,"RPC" ,30,0) | ||
1799 | SDEC CLINL ETW | ||
1800 | "KRN",19,1 1630,"RPC" ,31,0) | ||
1801 | SDEC CLINP ROV | ||
1802 | "KRN",19,1 1630,"RPC" ,32,0) | ||
1803 | SDEC CLINS ET | ||
1804 | "KRN",19,1 1630,"RPC" ,33,0) | ||
1805 | SDEC CLINS TOP | ||
1806 | "KRN",19,1 1630,"RPC" ,34,0) | ||
1807 | SDEC COPYA PPT | ||
1808 | "KRN",19,1 1630,"RPC" ,35,0) | ||
1809 | SDEC CPCAN C | ||
1810 | "KRN",19,1 1630,"RPC" ,36,0) | ||
1811 | SDEC CPSTA T | ||
1812 | "KRN",19,1 1630,"RPC" ,37,0) | ||
1813 | SDEC CRSCH ED | ||
1814 | "KRN",19,1 1630,"RPC" ,38,0) | ||
1815 | SDEC CSLOT SCH | ||
1816 | "KRN",19,1 1630,"RPC" ,39,0) | ||
1817 | SDEC CURFA CG | ||
1818 | "KRN",19,1 1630,"RPC" ,40,0) | ||
1819 | SDEC CVARA PPT | ||
1820 | "KRN",19,1 1630,"RPC" ,41,0) | ||
1821 | SDEC DELAG | ||
1822 | "KRN",19,1 1630,"RPC" ,42,0) | ||
1823 | SDEC DELAG I | ||
1824 | "KRN",19,1 1630,"RPC" ,43,0) | ||
1825 | SDEC DELRE SGP | ||
1826 | "KRN",19,1 1630,"RPC" ,44,0) | ||
1827 | SDEC DELRG I | ||
1828 | "KRN",19,1 1630,"RPC" ,45,0) | ||
1829 | SDEC DELRU | ||
1830 | "KRN",19,1 1630,"RPC" ,46,0) | ||
1831 | SDEC EDITA PPT | ||
1832 | "KRN",19,1 1630,"RPC" ,47,0) | ||
1833 | SDEC EHRPT | ||
1834 | "KRN",19,1 1630,"RPC" ,48,0) | ||
1835 | SDEC GETFA C | ||
1836 | "KRN",19,1 1630,"RPC" ,49,0) | ||
1837 | SDEC GETRE GA | ||
1838 | "KRN",19,1 1630,"RPC" ,50,0) | ||
1839 | SDEC HLTHS UMM | ||
1840 | "KRN",19,1 1630,"RPC" ,51,0) | ||
1841 | SDEC HOLID AY | ||
1842 | "KRN",19,1 1630,"RPC" ,52,0) | ||
1843 | SDEC HOSPL OC | ||
1844 | "KRN",19,1 1630,"RPC" ,53,0) | ||
1845 | SDEC IMHER E | ||
1846 | "KRN",19,1 1630,"RPC" ,54,0) | ||
1847 | SDEC NEWPE RS | ||
1848 | "KRN",19,1 1630,"RPC" ,55,0) | ||
1849 | SDEC NOSHO PAT | ||
1850 | "KRN",19,1 1630,"RPC" ,56,0) | ||
1851 | SDEC NOSHO W | ||
1852 | "KRN",19,1 1630,"RPC" ,57,0) | ||
1853 | SDEC OVBOO K | ||
1854 | "KRN",19,1 1630,"RPC" ,58,0) | ||
1855 | SDEC PATAP PTD | ||
1856 | "KRN",19,1 1630,"RPC" ,59,0) | ||
1857 | SDEC PATAP PTH | ||
1858 | "KRN",19,1 1630,"RPC" ,60,0) | ||
1859 | SDEC PROVA LL | ||
1860 | "KRN",19,1 1630,"RPC" ,61,0) | ||
1861 | SDEC PROVC LIN | ||
1862 | "KRN",19,1 1630,"RPC" ,62,0) | ||
1863 | SDEC PTLOO KRS | ||
1864 | "KRN",19,1 1630,"RPC" ,63,0) | ||
1865 | SDEC PWH | ||
1866 | "KRN",19,1 1630,"RPC" ,64,0) | ||
1867 | SDEC RAISE VNT | ||
1868 | "KRN",19,1 1630,"RPC" ,65,0) | ||
1869 | SDEC REBKC LIN | ||
1870 | "KRN",19,1 1630,"RPC" ,66,0) | ||
1871 | SDEC REBKL IST | ||
1872 | "KRN",19,1 1630,"RPC" ,67,0) | ||
1873 | SDEC REBKN EXT | ||
1874 | "KRN",19,1 1630,"RPC" ,68,0) | ||
1875 | SDEC REGEV ENT | ||
1876 | "KRN",19,1 1630,"RPC" ,69,0) | ||
1877 | SDEC RESGP USR | ||
1878 | "KRN",19,1 1630,"RPC" ,70,0) | ||
1879 | SDEC RESGR PUS | ||
1880 | "KRN",19,1 1630,"RPC" ,71,0) | ||
1881 | SDEC RESLE TRF | ||
1882 | "KRN",19,1 1630,"RPC" ,72,0) | ||
1883 | SDEC RESLE TRS | ||
1884 | "KRN",19,1 1630,"RPC" ,73,0) | ||
1885 | SDEC RESOU RCE | ||
1886 | "KRN",19,1 1630,"RPC" ,74,0) | ||
1887 | SDEC RESUS ER | ||
1888 | "KRN",19,1 1630,"RPC" ,75,0) | ||
1889 | SDEC SCHUS R | ||
1890 | "KRN",19,1 1630,"RPC" ,76,0) | ||
1891 | SDEC SEARC HAV | ||
1892 | "KRN",19,1 1630,"RPC" ,77,0) | ||
1893 | SDEC SETFA C | ||
1894 | "KRN",19,1 1630,"RPC" ,78,0) | ||
1895 | SDEC SETRB OOK | ||
1896 | "KRN",19,1 1630,"RPC" ,79,0) | ||
1897 | SDEC SPACE BAR | ||
1898 | "KRN",19,1 1630,"RPC" ,80,0) | ||
1899 | SDEC SUSRI NFO | ||
1900 | "KRN",19,1 1630,"RPC" ,81,0) | ||
1901 | SDEC SVSPA LL | ||
1902 | "KRN",19,1 1630,"RPC" ,82,0) | ||
1903 | SDEC SYSST AT | ||
1904 | "KRN",19,1 1630,"RPC" ,83,0) | ||
1905 | SDEC TPBLK OV | ||
1906 | "KRN",19,1 1630,"RPC" ,84,0) | ||
1907 | SDEC UNDOC ANA | ||
1908 | "KRN",19,1 1630,"RPC" ,85,0) | ||
1909 | SDEC UNREG EV | ||
1910 | "KRN",19,1 1630,"RPC" ,86,0) | ||
1911 | SDEC WAITL IST | ||
1912 | "KRN",19,1 1630,"RPC" ,87,0) | ||
1913 | SDEC WLCLO SE | ||
1914 | "KRN",19,1 1630,"RPC" ,88,0) | ||
1915 | SDEC WLGET | ||
1916 | "KRN",19,1 1630,"RPC" ,89,0) | ||
1917 | SDEC WLSET | ||
1918 | "KRN",19,1 1630,"RPC" ,90,0) | ||
1919 | SDEC PREFG ET | ||
1920 | "KRN",19,1 1630,"RPC" ,91,0) | ||
1921 | SDEC PREFG ETV | ||
1922 | "KRN",19,1 1630,"RPC" ,92,0) | ||
1923 | SDEC PREFS ET | ||
1924 | "KRN",19,1 1630,"RPC" ,93,0) | ||
1925 | SDEC FAPPT GET | ||
1926 | "KRN",19,1 1630,"RPC" ,94,0) | ||
1927 | SDEC RECAP GET | ||
1928 | "KRN",19,1 1630,"RPC" ,95,0) | ||
1929 | SDEC RECDS ET | ||
1930 | "KRN",19,1 1630,"RPC" ,96,0) | ||
1931 | SDEC RECGE T | ||
1932 | "KRN",19,1 1630,"RPC" ,97,0) | ||
1933 | SDEC RECPR GET | ||
1934 | "KRN",19,1 1630,"RPC" ,98,0) | ||
1935 | SDEC RECSE T | ||
1936 | "KRN",19,1 1630,"RPC" ,99,0) | ||
1937 | SDEC REQGE T | ||
1938 | "KRN",19,1 1630,"RPC" ,100,0) | ||
1939 | SDEC PCSTG ET | ||
1940 | "KRN",19,1 1630,"RPC" ,101,0) | ||
1941 | SDEC PCST2 GET | ||
1942 | "KRN",19,1 1630,"RPC" ,102,0) | ||
1943 | SDEC PCSGE T | ||
1944 | "KRN",19,1 1630,"RPC" ,103,0) | ||
1945 | SDEC PTSET | ||
1946 | "KRN",19,1 1630,"RPC" ,104,0) | ||
1947 | SDEC PTINQ | ||
1948 | "KRN",19,1 1630,"RPC" ,105,0) | ||
1949 | SDEC SUMMG ET | ||
1950 | "KRN",19,1 1630,"RPC" ,106,0) | ||
1951 | SDEC SUMMA GET | ||
1952 | "KRN",19,1 1630,"RPC" ,107,0) | ||
1953 | SDEC APPID GET | ||
1954 | "KRN",19,1 1630,"RPC" ,108,0) | ||
1955 | SDEC FACLI ST | ||
1956 | "KRN",19,1 1630,"RPC" ,109,0) | ||
1957 | SDEC CGET | ||
1958 | "KRN",19,1 1630,"RPC" ,110,0) | ||
1959 | SDEC ETHGE T | ||
1960 | "KRN",19,1 1630,"RPC" ,111,0) | ||
1961 | SDEC ETHCM GET | ||
1962 | "KRN",19,1 1630,"RPC" ,112,0) | ||
1963 | SDEC RACEG ET | ||
1964 | "KRN",19,1 1630,"RPC" ,113,0) | ||
1965 | SDEC REP1G ET | ||
1966 | "KRN",19,1 1630,"RPC" ,114,0) | ||
1967 | SDEC WLPCS ET | ||
1968 | "KRN",19,1 1630,"RPC" ,115,0) | ||
1969 | SDEC APPSD GET | ||
1970 | "KRN",19,1 1630,"RPC" ,116,0) | ||
1971 | SDEC WLOPE N | ||
1972 | "KRN",19,1 1630,"RPC" ,117,0) | ||
1973 | SDEC ARCLO SE | ||
1974 | "KRN",19,1 1630,"RPC" ,118,0) | ||
1975 | SDEC ARDGE T | ||
1976 | "KRN",19,1 1630,"RPC" ,119,0) | ||
1977 | SDEC ARGET | ||
1978 | "KRN",19,1 1630,"RPC" ,120,0) | ||
1979 | SDEC ARMRT GET | ||
1980 | "KRN",19,1 1630,"RPC" ,121,0) | ||
1981 | SDEC ARMRT SET | ||
1982 | "KRN",19,1 1630,"RPC" ,122,0) | ||
1983 | SDEC AROPE N | ||
1984 | "KRN",19,1 1630,"RPC" ,123,0) | ||
1985 | SDEC ARPCS ET | ||
1986 | "KRN",19,1 1630,"RPC" ,124,0) | ||
1987 | SDEC ARSET | ||
1988 | "KRN",19,1 1630,"RPC" ,125,0) | ||
1989 | SDEC HIDE | ||
1990 | "KRN",19,1 1630,"RPC" ,126,0) | ||
1991 | SDEC PRIV | ||
1992 | "KRN",19,1 1630,"RPC" ,127,0) | ||
1993 | SDEC WLHID E | ||
1994 | "KRN",19,1 1630,"RPC" ,128,0) | ||
1995 | SDECAR ARA PPT | ||
1996 | "KRN",19,1 1630,"RPC" ,129,0) | ||
1997 | SDECAR ARM RTC | ||
1998 | "KRN",19,1 1630,"RPC" ,130,0) | ||
1999 | SDECDEV DE VICE | ||
2000 | "KRN",19,1 1630,"RPC" ,131,0) | ||
2001 | SDECDIS DI SABIL | ||
2002 | "KRN",19,1 1630,"RPC" ,132,0) | ||
2003 | SDECIDX GE TREC | ||
2004 | "KRN",19,1 1630,"RPC" ,133,0) | ||
2005 | SDECIDX RE CCNT | ||
2006 | "KRN",19,1 1630,"RPC" ,134,0) | ||
2007 | SDECLK LOC K | ||
2008 | "KRN",19,1 1630,"RPC" ,135,0) | ||
2009 | SDECLK UNL OCK | ||
2010 | "KRN",19,1 1630,"RPC" ,136,0) | ||
2011 | SDECLOC PR IVLOC | ||
2012 | "KRN",19,1 1630,"RPC" ,137,0) | ||
2013 | SDECLOC UP DPRIV | ||
2014 | "KRN",19,1 1630,"RPC" ,138,0) | ||
2015 | SDECRMG RE CCNT | ||
2016 | "KRN",19,1 1630,"RPC" ,139,0) | ||
2017 | SDECRMG RM G | ||
2018 | "KRN",19,1 1630,"RPC" ,140,0) | ||
2019 | SDECRMG2 U RGENCY | ||
2020 | "KRN",19,1 1630,"RPC" ,141,0) | ||
2021 | DG SENSITI VE RECORD ACCESS | ||
2022 | "KRN",19,1 1630,"RPC" ,142,0) | ||
2023 | DG CHK BS5 XREF ARRA Y | ||
2024 | "KRN",19,1 1630,"RPC" ,143,0) | ||
2025 | ORPRF HASF LG | ||
2026 | "KRN",19,1 1630,"RPC" ,144,0) | ||
2027 | ORPRF GETF LG | ||
2028 | "KRN",19,1 1630,"RPC" ,145,0) | ||
2029 | ORWPT DIED ON | ||
2030 | "KRN",19,1 1630,"RPC" ,146,0) | ||
2031 | ORWPT ID I NFO | ||
2032 | "KRN",19,1 1630,"RPC" ,147,0) | ||
2033 | ORWPT LAST 5 | ||
2034 | "KRN",19,1 1630,"RPC" ,148,0) | ||
2035 | ORWPT LAST 5 RPL | ||
2036 | "KRN",19,1 1630,"RPC" ,149,0) | ||
2037 | ORWU USERI NFO | ||
2038 | "KRN",19,1 1630,"RPC" ,150,0) | ||
2039 | SD VSE FIL TER RPC | ||
2040 | "KRN",19,1 1630,"RPC" ,151,0) | ||
2041 | SD VSE REP ORT RPC | ||
2042 | "KRN",19,1 1630,"RPC" ,152,0) | ||
2043 | SDEC APPSL OTS | ||
2044 | "KRN",19,1 1630,"RPC" ,154,0) | ||
2045 | SDEC NETLO C | ||
2046 | "KRN",19,1 1630,"RPC" ,155,0) | ||
2047 | SDEC NOAVA IL | ||
2048 | "KRN",19,1 1630,"RPC" ,156,0) | ||
2049 | SDECAPP GE TYPE | ||
2050 | "KRN",19,1 1630,"RPC" ,157,0) | ||
2051 | SDECAR ARM ULT | ||
2052 | "KRN",19,1 1630,"RPC" ,158,0) | ||
2053 | SDECAR AUD ITGET | ||
2054 | "KRN",19,1 1630,"RPC" ,159,0) | ||
2055 | SDECCAP CA N | ||
2056 | "KRN",19,1 1630,"RPC" ,160,0) | ||
2057 | SDECCAP GE T | ||
2058 | "KRN",19,1 1630,"RPC" ,161,0) | ||
2059 | SDECCAP SE T | ||
2060 | "KRN",19,1 1630,"RPC" ,162,0) | ||
2061 | SDECWL AUD ITGET | ||
2062 | "KRN",19,1 1630,"RPC" ,163,0) | ||
2063 | ROR LIST S TATES | ||
2064 | "KRN",19,1 1630,"RPC" ,164,0) | ||
2065 | XUS SIGNON SETUP | ||
2066 | "KRN",19,1 1630,"RPC" ,165,0) | ||
2067 | XUS GET VI SITOR | ||
2068 | "KRN",19,1 1630,"RPC" ,166,0) | ||
2069 | XUS SET VI SITOR | ||
2070 | "KRN",19,1 1630,"RPC" ,167,0) | ||
2071 | XUS AV COD E | ||
2072 | "KRN",19,1 1630,"RPC" ,168,0) | ||
2073 | SDEC01 CLI NICS | ||
2074 | "KRN",19,1 1630,"RPC" ,169,0) | ||
2075 | SDEC57 OBM | ||
2076 | "KRN",19,1 1630,"RPC" ,170,0) | ||
2077 | SDECAR3 AR EDIT | ||
2078 | "KRN",19,1 1630,"RPC" ,171,0) | ||
2079 | SDECDEM MA RITAL | ||
2080 | "KRN",19,1 1630,"RPC" ,172,0) | ||
2081 | SDECDEM RE LIGION | ||
2082 | "KRN",19,1 1630,"RPC" ,173,0) | ||
2083 | SDECDEM ZI PLINK | ||
2084 | "KRN",19,1 1630,"RPC" ,174,0) | ||
2085 | SDECDEV DE V | ||
2086 | "KRN",19,1 1630,"RPC" ,175,0) | ||
2087 | SDECDEV PR INT | ||
2088 | "KRN",19,1 1630,"RPC" ,176,0) | ||
2089 | SDECRMGP G ETRMGUP | ||
2090 | "KRN",19,1 1630,"RPC" ,177,0) | ||
2091 | SDECRMGP P UTRMGUP | ||
2092 | "KRN",19,1 1630,"RPC" ,178,0) | ||
2093 | SDECU4 GET FONT | ||
2094 | "KRN",19,1 1630,"RPC" ,179,0) | ||
2095 | SDECU4 PUT FONT | ||
2096 | "KRN",19,1 1630,"RPC" ,180,0) | ||
2097 | ORWU CLINL OC | ||
2098 | "KRN",19,1 1630,"RPC" ,181,0) | ||
2099 | XUS GET US ER INFO | ||
2100 | "KRN",19,1 1630,"RPC" ,182,0) | ||
2101 | XUS GET CC OW TOKEN | ||
2102 | "KRN",19,1 1630,"RPC" ,183,0) | ||
2103 | ORWPT SHAR E | ||
2104 | "KRN",19,1 1630,"RPC" ,184,0) | ||
2105 | ORWPT TOP | ||
2106 | "KRN",19,1 1630,"RPC" ,185,0) | ||
2107 | DG SENSITI VE RECORD BULLETIN | ||
2108 | "KRN",19,1 1630,"RPC" ,186,0) | ||
2109 | SDEC EP CL ASSIFICATI ON | ||
2110 | "KRN",19,1 1630,"RPC" ,187,0) | ||
2111 | SDEC EP CP T | ||
2112 | "KRN",19,1 1630,"RPC" ,188,0) | ||
2113 | SDEC EP DE MOGRAPHICS | ||
2114 | "KRN",19,1 1630,"RPC" ,189,0) | ||
2115 | SDEC EP DI AGNOSIS | ||
2116 | "KRN",19,1 1630,"RPC" ,190,0) | ||
2117 | SDEC EP EV ENT LOG | ||
2118 | "KRN",19,1 1630,"RPC" ,191,0) | ||
2119 | SDEC EP PR OVIDER | ||
2120 | "KRN",19,1 1630,"RPC" ,192,0) | ||
2121 | SDEC EP PT INFO | ||
2122 | "KRN",19,1 1630,"RPC" ,193,0) | ||
2123 | SDEC EP ST OP CODE | ||
2124 | "KRN",19,1 1630,"RPC" ,194,0) | ||
2125 | SDEC EP WA IT TIME | ||
2126 | "KRN",19,1 1630,"RPC" ,195,0) | ||
2127 | SDEC APPT STATUS | ||
2128 | "KRN",19,1 1630,"RPC" ,196,0) | ||
2129 | SDEC ELIGI BILITY | ||
2130 | "KRN",19,1 1630,"RPC" ,197,0) | ||
2131 | SDEC CONTA CT DISPLAY | ||
2132 | "KRN",19,1 1630,"RPC" ,198,0) | ||
2133 | SDEC CONTA CT MULTI-D ISPLAY | ||
2134 | "KRN",19,1 1630,"RPC" ,199,0) | ||
2135 | SDEC CONTA CT NEW | ||
2136 | "KRN",19,1 1630,"RPC" ,200,0) | ||
2137 | SDEC CONTA CT SEQUENC E | ||
2138 | "KRN",19,1 1630,"RPC" ,201,0) | ||
2139 | SDEC CONTA CT STOP CO DE | ||
2140 | "KRN",19,1 1630,"RPC" ,202,0) | ||
2141 | SDEC CONTA CT UPDATE | ||
2142 | "KRN",19,1 1630,"RPC" ,203,0) | ||
2143 | SDEC GETPR ER | ||
2144 | "KRN",19,1 1630,"RPC" ,204,0) | ||
2145 | SDEC ELIG RETURN | ||
2146 | "KRN",19,1 1630,"RPC" ,205,0) | ||
2147 | SDEC BOOKH LDY | ||
2148 | "KRN",19,1 1630,"RPC" ,206,0) | ||
2149 | SDECAR1 AR GUID | ||
2150 | "KRN",19,1 1630,"RPC" ,207,0) | ||
2151 | SDECSTNG H ELPLINK | ||
2152 | "KRN",19,1 1630,"RPC" ,208,0) | ||
2153 | XWB GET VA RIABLE VAL UE | ||
2154 | "KRN",19,1 1630,"RPC" ,209,0) | ||
2155 | SDEC RESCE | ||
2156 | "KRN",19,1 1630,"RPC" ,210,0) | ||
2157 | SDECRMPA G ETREC | ||
2158 | "KRN",19,1 1630,"U") | ||
2159 | CLINICAL S CHEDULING PROCEDURE | ||
2160 | "KRN",19,1 1713,-1) | ||
2161 | 0^2 | ||
2162 | "KRN",19,1 1713,0) | ||
2163 | SDEC AUDIT REPORT JO B^Compile yesterday' s audit re port^^R^^^ ^^^^n^SCHE DULING | ||
2164 | "KRN",19,1 1713,2) | ||
2165 | y | ||
2166 | "KRN",19,1 1713,25) | ||
2167 | BKGND^SDEC AUD | ||
2168 | "KRN",19,1 1713,200.9 ) | ||
2169 | y | ||
2170 | "KRN",19,1 1713,"U") | ||
2171 | COMPILE YE STERDAY'S AUDIT REPO | ||
2172 | "KRN",19,1 1714,-1) | ||
2173 | 0^3 | ||
2174 | "KRN",19,1 1714,0) | ||
2175 | SDEC COMPI LE AUDIT R EPORT^Comp ile audit report for a selecte d date^^R^ ^SDECZMGR^ ^^^^^SCHED ULING | ||
2176 | "KRN",19,1 1714,25) | ||
2177 | SELECT^SDE CAUD | ||
2178 | "KRN",19,1 1714,99.1) | ||
2179 | 64714,4255 5 | ||
2180 | "KRN",19,1 1714,200.9 ) | ||
2181 | n | ||
2182 | "KRN",19,1 1714,"U") | ||
2183 | COMPILE AU DIT REPORT FOR A SEL | ||
2184 | "KRN",19,1 1715,-1) | ||
2185 | 0^4 | ||
2186 | "KRN",19,1 1715,0) | ||
2187 | SDEC RELEA SE LOCKS^R elease App ointment R equest Loc ks^^R^^^^^ ^^^SCHEDUL ING^^ | ||
2188 | "KRN",19,1 1715,1,0) | ||
2189 | ^^2^2^3180 321^ | ||
2190 | "KRN",19,1 1715,1,1,0 ) | ||
2191 | This optio n allows t he user to release a ll appoint ment reque st locks h eld | ||
2192 | "KRN",19,1 1715,1,2,0 ) | ||
2193 | by a selec ted user. | ||
2194 | "KRN",19,1 1715,20) | ||
2195 | |||
2196 | "KRN",19,1 1715,25) | ||
2197 | UNLKALL^SD ECLK | ||
2198 | "KRN",19,1 1715,"U") | ||
2199 | RELEASE AP POINTMENT REQUEST LO | ||
2200 | "KRN",19,1 1723,-1) | ||
2201 | 0^6 | ||
2202 | "KRN",19,1 1723,0) | ||
2203 | SDEC PRINT AUDIT REP ORT^Print VistA Sche duling Aud it Report^ ^P^^^^^^^y ^SCHEDULIN G | ||
2204 | "KRN",19,1 1723,1,0) | ||
2205 | ^^1^1^3180 412^ | ||
2206 | "KRN",19,1 1723,1,1,0 ) | ||
2207 | Prints com piled audi t report f or VistA S cheduling. | ||
2208 | "KRN",19,1 1723,60) | ||
2209 | SDAUDIT( | ||
2210 | "KRN",19,1 1723,62) | ||
2211 | 0 | ||
2212 | "KRN",19,1 1723,63) | ||
2213 | [SDEC AUDI T DATE PRI NT] | ||
2214 | "KRN",19,1 1723,64) | ||
2215 | [SDEC AUDI T REPORT B Y DATE] | ||
2216 | "KRN",19,1 1723,65) | ||
2217 | |||
2218 | "KRN",19,1 1723,66) | ||
2219 | |||
2220 | "KRN",19,1 1723,"U") | ||
2221 | PRINT VIST A SCHEDULI NG AUDIT R | ||
2222 | "KRN",8994 ,3559,-1) | ||
2223 | 0^3 | ||
2224 | "KRN",8994 ,3559,0) | ||
2225 | SDEC ARSET ^ARSET^SDE C^1^R^0^^0 | ||
2226 | "KRN",8994 ,3559,1,0) | ||
2227 | ^8994.01^1 ^1^3181019 ^^^ | ||
2228 | "KRN",8994 ,3559,1,1, 0) | ||
2229 | Appointmen t Request Set | ||
2230 | "KRN",8994 ,3559,2,0) | ||
2231 | ^8994.02A^ 1^1 | ||
2232 | "KRN",8994 ,3559,2,1, 0) | ||
2233 | INP^2^^1^1 | ||
2234 | "KRN",8994 ,3559,2,1, 1,0) | ||
2235 | ^^68^68^31 81019^ | ||
2236 | "KRN",8994 ,3559,2,1, 1,1,0) | ||
2237 | ; INP(1 ) = (inte ger) Wait List IEN point to | ||
2238 | "KRN",8994 ,3559,2,1, 1,2,0) | ||
2239 | ; SDEC APPT REQU EST file 4 09.85. | ||
2240 | "KRN",8994 ,3559,2,1, 1,3,0) | ||
2241 | ; If n ull, a new entry wil l be added | ||
2242 | "KRN",8994 ,3559,2,1, 1,4,0) | ||
2243 | ; INP(2 ) = (text ) DFN Pointer to the PATIE NT file 2 | ||
2244 | "KRN",8994 ,3559,2,1, 1,5,0) | ||
2245 | ; INP(3 ) = (date ) Orig inating Da te/time in external date form | ||
2246 | "KRN",8994 ,3559,2,1, 1,6,0) | ||
2247 | ; INP(4 ) = (text ) Inst itution na me NAME fi eld from t he | ||
2248 | "KRN",8994 ,3559,2,1, 1,7,0) | ||
2249 | INSTITUTIO N file | ||
2250 | "KRN",8994 ,3559,2,1, 1,8,0) | ||
2251 | ; INP(5 ) = (text ) Requ est Type | ||
2252 | "KRN",8994 ,3559,2,1, 1,9,0) | ||
2253 | ; INP(6 ) = (text ) REQ Specific C linic name - NAME fi eld in fil e 44 | ||
2254 | "KRN",8994 ,3559,2,1, 1,10,0) | ||
2255 | ; INP(7 ) = (text ) Orig inating Us er name - NAME fiel d in NEW | ||
2256 | "KRN",8994 ,3559,2,1, 1,11,0) | ||
2257 | PERSON fil e 200 | ||
2258 | "KRN",8994 ,3559,2,1, 1,12,0) | ||
2259 | ; INP(8 ) = (text ) Prio rity - 'AS AP' or 'FU TURE' | ||
2260 | "KRN",8994 ,3559,2,1, 1,13,0) | ||
2261 | ; INP(9 ) = (text ) Requ est By - ' PROVIDER' or 'PATIEN T' | ||
2262 | "KRN",8994 ,3559,2,1, 1,14,0) | ||
2263 | ; INP(1 0) = (text ) Prov ider name - NAME fi eld in NEW PERSON fi le | ||
2264 | "KRN",8994 ,3559,2,1, 1,15,0) | ||
2265 | 200 | ||
2266 | "KRN",8994 ,3559,2,1, 1,16,0) | ||
2267 | ; INP(1 1) = (date ) Desi red Date o f appointm ent in ext ernal form at. | ||
2268 | "KRN",8994 ,3559,2,1, 1,17,0) | ||
2269 | ; INP(1 2) = (text ) comm ent must b e 1-60 cha racters | ||
2270 | "KRN",8994 ,3559,2,1, 1,18,0) | ||
2271 | ; INP(1 3) = (text ) ENRO LLMENT PRI ORITY - Va lid Values are: | ||
2272 | "KRN",8994 ,3559,2,1, 1,19,0) | ||
2273 | ; GR OUP 1 | ||
2274 | "KRN",8994 ,3559,2,1, 1,20,0) | ||
2275 | ; GR OUP 2 | ||
2276 | "KRN",8994 ,3559,2,1, 1,21,0) | ||
2277 | ; GR OUP 3 | ||
2278 | "KRN",8994 ,3559,2,1, 1,22,0) | ||
2279 | ; GR OUP 4 | ||
2280 | "KRN",8994 ,3559,2,1, 1,23,0) | ||
2281 | ; GR OUP 5 | ||
2282 | "KRN",8994 ,3559,2,1, 1,24,0) | ||
2283 | ; GR OUP 6 | ||
2284 | "KRN",8994 ,3559,2,1, 1,25,0) | ||
2285 | ; GR OUP 7 | ||
2286 | "KRN",8994 ,3559,2,1, 1,26,0) | ||
2287 | ; GR OUP 8 | ||
2288 | "KRN",8994 ,3559,2,1, 1,27,0) | ||
2289 | ; INP(1 4) = (text ) MULT IPLE APPOI NTMENT RTC NO; YES | ||
2290 | "KRN",8994 ,3559,2,1, 1,28,0) | ||
2291 | ; INP(1 5) = (inte ger) MULT APPT RTC INTERVAL i nteger bet ween 1-365 | ||
2292 | "KRN",8994 ,3559,2,1, 1,29,0) | ||
2293 | ; INP(1 6) = (inte ger) MULT APPT NUMB ER integer between 1 -100 | ||
2294 | "KRN",8994 ,3559,2,1, 1,30,0) | ||
2295 | ; INP(1 7) = Patie nt Contact s separate d by :: | ||
2296 | "KRN",8994 ,3559,2,1, 1,31,0) | ||
2297 | ; Each :: piece h as the fol lowing ~~ pieces: | ||
2298 | "KRN",8994 ,3559,2,1, 1,32,0) | ||
2299 | ; 1) = (date) DATE ENTER ED externa l date/tim e | ||
2300 | "KRN",8994 ,3559,2,1, 1,33,0) | ||
2301 | ; 2) = (text) PC ENTERED BY USER I D or NAME - Pointer to | ||
2302 | "KRN",8994 ,3559,2,1, 1,34,0) | ||
2303 | ; NEW PERSON file or N AME | ||
2304 | "KRN",8994 ,3559,2,1, 1,35,0) | ||
2305 | ; 4) = (text) ACTION - ' Called' or 'Message Left' | ||
2306 | "KRN",8994 ,3559,2,1, 1,36,0) | ||
2307 | ; 5) = (optional) PATIENT P HONE Free- Text 4-20 characters | ||
2308 | "KRN",8994 ,3559,2,1, 1,37,0) | ||
2309 | ; INP(1 8) = (opti onal) SERV ICE CONNEC TED PRIORI TY valid v alues are NO | ||
2310 | "KRN",8994 ,3559,2,1, 1,38,0) | ||
2311 | YES | ||
2312 | "KRN",8994 ,3559,2,1, 1,39,0) | ||
2313 | ; INP(1 9) = (opti onal) SERV ICE CONNEC TED PERCEN TAGE = num eric 0-100 | ||
2314 | "KRN",8994 ,3559,2,1, 1,40,0) | ||
2315 | ; INP(2 0) = (opti onal) MRTC calculate d preferre d dates se parated by | ||
2316 | "KRN",8994 ,3559,2,1, 1,41,0) | ||
2317 | pipe |: | ||
2318 | "KRN",8994 ,3559,2,1, 1,42,0) | ||
2319 | ; Each date can be in exte rnal forma t with no | ||
2320 | "KRN",8994 ,3559,2,1, 1,43,0) | ||
2321 | time. | ||
2322 | "KRN",8994 ,3559,2,1, 1,44,0) | ||
2323 | ; INP(21 ) = (optio nal) CLINI C STOP poi nter to CL INIC STOP file 40.7 | ||
2324 | "KRN",8994 ,3559,2,1, 1,45,0) | ||
2325 | ; used to populat e the REQ SERVICE/SP ECIALTY fi eld | ||
2326 | "KRN",8994 ,3559,2,1, 1,46,0) | ||
2327 | in 409.85 | ||
2328 | "KRN",8994 ,3559,2,1, 1,47,0) | ||
2329 | ; INP(22 ) = (optio nal) Appoi ntment Typ e ID point er to APPO INTMENT TY PE | ||
2330 | "KRN",8994 ,3559,2,1, 1,48,0) | ||
2331 | file 409.1 | ||
2332 | "KRN",8994 ,3559,2,1, 1,49,0) | ||
2333 | ; INP(23 ) = (optio nal) Patie nt Status | ||
2334 | "KRN",8994 ,3559,2,1, 1,50,0) | ||
2335 | ; N = NEW | ||
2336 | "KRN",8994 ,3559,2,1, 1,51,0) | ||
2337 | ; E = ESTABLIS HED | ||
2338 | "KRN",8994 ,3559,2,1, 1,52,0) | ||
2339 | ; INP(24 ) = (optio nal) MULT APPTS MADE | ||
2340 | "KRN",8994 ,3559,2,1, 1,53,0) | ||
2341 | ; list of child poin ters to SD EC APPOINT MENT and/o r | ||
2342 | "KRN",8994 ,3559,2,1, 1,54,0) | ||
2343 | SDEC APPT REQUEST fi les separa ted by pip e | ||
2344 | "KRN",8994 ,3559,2,1, 1,55,0) | ||
2345 | ; each pip e piece co ntains the following ~ pieces: | ||
2346 | "KRN",8994 ,3559,2,1, 1,56,0) | ||
2347 | ; 1. Appointme nt Id poin ter to SDE C APPOINTM ENT file | ||
2348 | "KRN",8994 ,3559,2,1, 1,57,0) | ||
2349 | 409.84 | ||
2350 | "KRN",8994 ,3559,2,1, 1,58,0) | ||
2351 | ; 2. Request I d pointer to SDEC AP PT REQUEST file 409. 85 | ||
2352 | "KRN",8994 ,3559,2,1, 1,59,0) | ||
2353 | ; INP(25 ) = (optio nal) PAREN T REQUEST pointer to SDEC APPT REQUEST f ile | ||
2354 | "KRN",8994 ,3559,2,1, 1,60,0) | ||
2355 | 409.85 | ||
2356 | "KRN",8994 ,3559,2,1, 1,61,0) | ||
2357 | ; INP(26 ) = (optio nal) NLT ( No later t han) [CPRS RTC REQUI REMENT] | ||
2358 | "KRN",8994 ,3559,2,1, 1,62,0) | ||
2359 | ; INP(27 ) = (optio nal) PRERE Q (Prerequ isites) [C PRS RTC RE QUIREMENT] | ||
2360 | "KRN",8994 ,3559,2,1, 1,63,0) | ||
2361 | ; INP(28 ) = (optio nal) ORDER IEN [CPRS RTC REQUI REMENT] | ||
2362 | "KRN",8994 ,3559,2,1, 1,64,0) | ||
2363 | ; INP(29 ) = (optio nal) VAOS GUID <== wtc patch 686 3/21/1 8 added fo r | ||
2364 | "KRN",8994 ,3559,2,1, 1,65,0) | ||
2365 | VAOS reque sts | ||
2366 | "KRN",8994 ,3559,2,1, 1,66,0) | ||
2367 | ; INP(30 ) = (optio nal) sourc e of the c all. See Scheduling Events | ||
2368 | "KRN",8994 ,3559,2,1, 1,67,0) | ||
2369 | (#409.94), field 1 f or list of values. Default is "GUI". | ||
2370 | "KRN",8994 ,3559,2,1, 1,68,0) | ||
2371 | ; | ||
2372 | "KRN",8994 ,3559,2,"B ","INP",1) | ||
2373 | |||
2374 | "KRN",8994 ,3559,2,"P ARAMSEQ",1 ,1) | ||
2375 | |||
2376 | "KRN",8994 ,3559,3,0) | ||
2377 | ^8994.03^2 ^2^3181019 ^^^ | ||
2378 | "KRN",8994 ,3559,3,1, 0) | ||
2379 | Return a s ingle entr y in the G lobal Arra y with the fields ER RORID and | ||
2380 | "KRN",8994 ,3559,3,2, 0) | ||
2381 | ERRORTEXT. | ||
2382 | "KRN",8994 ,3562,-1) | ||
2383 | 0^4 | ||
2384 | "KRN",8994 ,3562,0) | ||
2385 | SDEC ARGET ^ARGET^SDE C^4^R^0^^0 | ||
2386 | "KRN",8994 ,3562,1,0) | ||
2387 | ^8994.01^1 ^1^3180419 ^^^ | ||
2388 | "KRN",8994 ,3562,1,1, 0) | ||
2389 | App[ointme nt Request GET | ||
2390 | "KRN",8994 ,3562,2,0) | ||
2391 | ^8994.02A^ 6^6 | ||
2392 | "KRN",8994 ,3562,2,1, 0) | ||
2393 | ARIEN1^1^^ 0^1 | ||
2394 | "KRN",8994 ,3562,2,1, 1,0) | ||
2395 | ^^1^1^3150 420^ | ||
2396 | "KRN",8994 ,3562,2,1, 1,1,0) | ||
2397 | Appt Reque st ID poin ter to the SDEC APPT REQUEST f iel 409.85 . | ||
2398 | "KRN",8994 ,3562,2,2, 0) | ||
2399 | MAXREC^1^^ 0^2 | ||
2400 | "KRN",8994 ,3562,2,2, 1,0) | ||
2401 | ^^1^1^3150 420^ | ||
2402 | "KRN",8994 ,3562,2,2, 1,1,0) | ||
2403 | Max record s returned . | ||
2404 | "KRN",8994 ,3562,2,3, 0) | ||
2405 | SDBEG^1^^0 ^3 | ||
2406 | "KRN",8994 ,3562,2,3, 1,0) | ||
2407 | ^^1^1^3150 420^ | ||
2408 | "KRN",8994 ,3562,2,3, 1,1,0) | ||
2409 | Begin Date in extern al format. | ||
2410 | "KRN",8994 ,3562,2,4, 0) | ||
2411 | SDEND^1^^0 ^4 | ||
2412 | "KRN",8994 ,3562,2,4, 1,0) | ||
2413 | ^^1^1^3150 420^ | ||
2414 | "KRN",8994 ,3562,2,4, 1,1,0) | ||
2415 | End date i n external format. | ||
2416 | "KRN",8994 ,3562,2,5, 0) | ||
2417 | DFN^1^^0^5 | ||
2418 | "KRN",8994 ,3562,2,5, 1,0) | ||
2419 | ^^1^1^3150 420^ | ||
2420 | "KRN",8994 ,3562,2,5, 1,1,0) | ||
2421 | Patient ID pointer t o PATIENT file 2. | ||
2422 | "KRN",8994 ,3562,2,6, 0) | ||
2423 | LASTSUB^1^ ^0^6 | ||
2424 | "KRN",8994 ,3562,2,6, 1,0) | ||
2425 | ^8994.021^ 1^1^318041 9^^^ | ||
2426 | "KRN",8994 ,3562,2,6, 1,1,0) | ||
2427 | Last subsc ript from previous c all. | ||
2428 | "KRN",8994 ,3562,2,"B ","ARIEN1" ,1) | ||
2429 | |||
2430 | "KRN",8994 ,3562,2,"B ","DFN",5) | ||
2431 | |||
2432 | "KRN",8994 ,3562,2,"B ","LASTSUB ",6) | ||
2433 | |||
2434 | "KRN",8994 ,3562,2,"B ","MAXREC" ,2) | ||
2435 | |||
2436 | "KRN",8994 ,3562,2,"B ","SDBEG", 3) | ||
2437 | |||
2438 | "KRN",8994 ,3562,2,"B ","SDEND", 4) | ||
2439 | |||
2440 | "KRN",8994 ,3562,2,"P ARAMSEQ",1 ,1) | ||
2441 | |||
2442 | "KRN",8994 ,3562,2,"P ARAMSEQ",2 ,2) | ||
2443 | |||
2444 | "KRN",8994 ,3562,2,"P ARAMSEQ",3 ,3) | ||
2445 | |||
2446 | "KRN",8994 ,3562,2,"P ARAMSEQ",4 ,4) | ||
2447 | |||
2448 | "KRN",8994 ,3562,2,"P ARAMSEQ",5 ,5) | ||
2449 | |||
2450 | "KRN",8994 ,3562,2,"P ARAMSEQ",6 ,6) | ||
2451 | |||
2452 | "KRN",8994 ,3562,3,0) | ||
2453 | ^^108^108^ 3180419^ | ||
2454 | "KRN",8994 ,3562,3,1, 0) | ||
2455 | DFN [1] ^ PATIENT N AME [2] ^ <not used> [3] ^ DOB [4] ^ SSN [5] ^ GEN DER | ||
2456 | "KRN",8994 ,3562,3,2, 0) | ||
2457 | [6] | ||
2458 | "KRN",8994 ,3562,3,3, 0) | ||
2459 | ^ WAIT LI ST IEN [7] ^ ORIGINA TING DATE [8] ^ INST ITUTION IE N [9] | ||
2460 | "KRN",8994 ,3562,3,4, 0) | ||
2461 | ^ INSTITU TION NAME [10] ^ APP TYPE [11] ^ SPECIFI C CLINIC I EN [12] | ||
2462 | "KRN",8994 ,3562,3,5, 0) | ||
2463 | ^ SPECIFI C CLINIC N AME [13] ^ ORIGINATI NG USER IE N [14] | ||
2464 | "KRN",8994 ,3562,3,6, 0) | ||
2465 | ^ ORIGINA TING USER NAME [15] ^ PRIORITY [16] ^ RE QUEST BY [ 17]\ | ||
2466 | "KRN",8994 ,3562,3,7, 0) | ||
2467 | ^ PROVIDE R IEN [18] ^ PROVIDE R NAME [19 ] ^ DESIRE D DATE OF APPOINTMEN T | ||
2468 | "KRN",8994 ,3562,3,8, 0) | ||
2469 | [20] | ||
2470 | "KRN",8994 ,3562,3,9, 0) | ||
2471 | ^ COMMENT S [21] ^ E NROLLMENT PRIORITY [ 22] | ||
2472 | "KRN",8994 ,3562,3,10 ,0) | ||
2473 | ^ MULTIPL E APPOINTM ENT RTC 0= NO; 1=YES [23] | ||
2474 | "KRN",8994 ,3562,3,11 ,0) | ||
2475 | ^ MULT AP PT RTC INT ERVAL-Inte ger betwee n 1-365 [2 4] | ||
2476 | "KRN",8994 ,3562,3,12 ,0) | ||
2477 | ^ MULT AP PT NUMBER- Integer be tween 1-10 0 [25] ^ P RIGRP [26] ^ ELIGIEN | ||
2478 | "KRN",8994 ,3562,3,13 ,0) | ||
2479 | [27] ^ | ||
2480 | "KRN",8994 ,3562,3,14 ,0) | ||
2481 | ^ELIGNAME [28] ^ SV CCONN [29] ^ SVCCONN P[30] ^ TY PEIEN [31] ^ TYPENAM E | ||
2482 | "KRN",8994 ,3562,3,15 ,0) | ||
2483 | [32] | ||
2484 | "KRN",8994 ,3562,3,16 ,0) | ||
2485 | ^ PCONTAC T [33] ^ A RDISPD [34 ] ^ ARDISP U [35] ^ A RDISPUN [3 6] ^ ARSVC CON | ||
2486 | "KRN",8994 ,3562,3,17 ,0) | ||
2487 | [37] | ||
2488 | "KRN",8994 ,3562,3,18 ,0) | ||
2489 | ^ PADDRES 1 [38] ^ P ADDRES2 [3 9] ^ PADDR ES3 [40] ^ PCITY [41 ] ^ PSTATE | ||
2490 | "KRN",8994 ,3562,3,19 ,0) | ||
2491 | [42] | ||
2492 | "KRN",8994 ,3562,3,20 ,0) | ||
2493 | ^ PCOUNTR Y [43] ^ P ZIP4 [44] ^ GAF [45] ^ DATE/TI ME ENTERED [46] | ||
2494 | "KRN",8994 ,3562,3,21 ,0) | ||
2495 | ^ MTRCDAT ES [47] ^ SENSITIVE [48] ^^^^^ ^^ LASTSUB [56] ^ ST OPIEN [57] | ||
2496 | "KRN",8994 ,3562,3,22 ,0) | ||
2497 | ^ STOPNAM E [58] ^ A PPT_SCHED_ DATE [59] ^ MRTCCOUN T [60] ^ P TPHONE [61 ] | ||
2498 | "KRN",8994 ,3562,3,23 ,0) | ||
2499 | ^ APPTYPE [62] ^ EE STAT [63] ^ PRHBLOC [64] ^ APP TPTRS [65] ^ CHILDRE N | ||
2500 | "KRN",8994 ,3562,3,24 ,0) | ||
2501 | [66] | ||
2502 | "KRN",8994 ,3562,3,25 ,0) | ||
2503 | ^ SDPAREN T [67] | ||
2504 | "KRN",8994 ,3562,3,26 ,0) | ||
2505 | 68 HRN = health rec ord number | ||
2506 | "KRN",8994 ,3562,3,27 ,0) | ||
2507 | 69 BADADD = BAD ADD RESS INDIC ATOR (.121 ) | ||
2508 | "KRN",8994 ,3562,3,28 ,0) | ||
2509 | 1=UNDEL IVERABLE | ||
2510 | "KRN",8994 ,3562,3,29 ,0) | ||
2511 | 2=HOMEL ESS | ||
2512 | "KRN",8994 ,3562,3,30 ,0) | ||
2513 | 3=OTHER | ||
2514 | "KRN",8994 ,3562,3,31 ,0) | ||
2515 | 4=ADDRE SS NOT FOU ND | ||
2516 | "KRN",8994 ,3562,3,32 ,0) | ||
2517 | 70 OPHONE = Office phone (.13 2) | ||
2518 | "KRN",8994 ,3562,3,33 ,0) | ||
2519 | 71 NOK - Primary Ne xt of Kin (.211) | ||
2520 | "KRN",8994 ,3562,3,34 ,0) | ||
2521 | 72 KNAME - Primary Next of Ki n name | ||
2522 | "KRN",8994 ,3562,3,35 ,0) | ||
2523 | 73 KREL - Primary N ext of Kin Relations hip to Pat ient (.212 ) | ||
2524 | "KRN",8994 ,3562,3,36 ,0) | ||
2525 | 74 KPHONE - Primary Next of K in Phone ( .219) | ||
2526 | "KRN",8994 ,3562,3,37 ,0) | ||
2527 | 75 KSTREE T - Primar y Next of Kin Street Address [ Line 1] (. 213) | ||
2528 | "KRN",8994 ,3562,3,38 ,0) | ||
2529 | 76 KSTREE T2 - Prima ry Next of Kin Stree t Address [Line 2] ( .214) | ||
2530 | "KRN",8994 ,3562,3,39 ,0) | ||
2531 | 77 KSTREE T3 - Prima ry Next of Kin Stree t Address [Line 3] ( .215) | ||
2532 | "KRN",8994 ,3562,3,40 ,0) | ||
2533 | 78 KCITY - Primary Next of Ki n City (.2 16) | ||
2534 | "KRN",8994 ,3562,3,41 ,0) | ||
2535 | 79 KSTATE - Primary Next of K in State ( .217) | ||
2536 | "KRN",8994 ,3562,3,42 ,0) | ||
2537 | 80 KZIP - Primary N ext of Kin Zip (.218 ) | ||
2538 | "KRN",8994 ,3562,3,43 ,0) | ||
2539 | 81 NOK2 - Secondary Next of K in (.2191) | ||
2540 | "KRN",8994 ,3562,3,44 ,0) | ||
2541 | 82 K2NAME - Seconda ry Next of Kin name (.2191) | ||
2542 | "KRN",8994 ,3562,3,45 ,0) | ||
2543 | 83 K2REL - Secondar y Next of Kin Relati onship to Patient (. 2192) | ||
2544 | "KRN",8994 ,3562,3,46 ,0) | ||
2545 | 84 K2PHON E - Second ary Next o f Kin Phon e (.2199) | ||
2546 | "KRN",8994 ,3562,3,47 ,0) | ||
2547 | 85 K2STRE ET - Secon dary Next of Kin Str eet Addres s [Line 1] (.2193) | ||
2548 | "KRN",8994 ,3562,3,48 ,0) | ||
2549 | 86 K2STRE ET2 - Seco ndary Next of Kin St reet Addre ss [Line 2 ] (.2194) | ||
2550 | "KRN",8994 ,3562,3,49 ,0) | ||
2551 | 87 K2STRE ET3 - Seco ndary Next of Kin St reet Addre ss [Line 3 ] (.2195) | ||
2552 | "KRN",8994 ,3562,3,50 ,0) | ||
2553 | 88 K2CITY - Seconda ry Next of Kin City (.2196) | ||
2554 | "KRN",8994 ,3562,3,51 ,0) | ||
2555 | 89 K2STAT E - Second ary Next o f Kin Stat e (.2197) | ||
2556 | "KRN",8994 ,3562,3,52 ,0) | ||
2557 | 90 K2ZIP - Secondar y Next of Kin Zip (. 2198) | ||
2558 | "KRN",8994 ,3562,3,53 ,0) | ||
2559 | 91 PCOUNT Y - Patien t County ( .117) | ||
2560 | "KRN",8994 ,3562,3,54 ,0) | ||
2561 | 92 PETH - List of P atient Eth nicities/N ames Eth|N ame^... Us e ETH^SDEC U2 | ||
2562 | "KRN",8994 ,3562,3,55 ,0) | ||
2563 | 93 PRACE - List of Patient Ra ces/Names RACE|NAME^ ... Use RA CELST^SDEC U2 | ||
2564 | "KRN",8994 ,3562,3,56 ,0) | ||
2565 | 94 PMARIT AL - Patie nt Marital Status | ||
2566 | "KRN",8994 ,3562,3,57 ,0) | ||
2567 | 95 PRELIG ION - Pati ent Religi ous Prefer ence | ||
2568 | "KRN",8994 ,3562,3,58 ,0) | ||
2569 | 96 PTACTI VE - Patie nt Tempora ry Address Active? ( .12105) | ||
2570 | "KRN",8994 ,3562,3,59 ,0) | ||
2571 | 97 PTADDR ESS1 - Pat ient Tempo rary Addre ss Line 1 (.1211) | ||
2572 | "KRN",8994 ,3562,3,60 ,0) | ||
2573 | 98 PTADDR ESS2 - Pat ient Tempo rary Addre ss Line 2 (.1212) | ||
2574 | "KRN",8994 ,3562,3,61 ,0) | ||
2575 | 99 PTADDR ESS3 - Pat ient Tempo rary Addre ss Line 3 (.1213) | ||
2576 | "KRN",8994 ,3562,3,62 ,0) | ||
2577 | 100 PTCIT Y - Patien t Temporar y City (.1 214) | ||
2578 | "KRN",8994 ,3562,3,63 ,0) | ||
2579 | 101 PTSTA TE - Patie nt Tempora ry State ( .1215) | ||
2580 | "KRN",8994 ,3562,3,64 ,0) | ||
2581 | 102 PTZIP - Patient Temporary Zip (.121 6) | ||
2582 | "KRN",8994 ,3562,3,65 ,0) | ||
2583 | 103 PTZIP +4 - Patie nt Tempora ry Zip+4 ( .12112) | ||
2584 | "KRN",8994 ,3562,3,66 ,0) | ||
2585 | 104 PTCOU NTRY - Pat ient Tempo rary Count ry (.1223) | ||
2586 | "KRN",8994 ,3562,3,67 ,0) | ||
2587 | 105 PTCOU NTY - Pati ent Tempor ary County (.12111) | ||
2588 | "KRN",8994 ,3562,3,68 ,0) | ||
2589 | 106 PTMPP HONE - Pat ient Tempo rary Phone (.1219) | ||
2590 | "KRN",8994 ,3562,3,69 ,0) | ||
2591 | 107 PTSTA RT - Patie nt Tempora ry Address Start Dat e (.1217) | ||
2592 | "KRN",8994 ,3562,3,70 ,0) | ||
2593 | 108 PTEND - Patient Temporary Address E nd Date (. 1218) | ||
2594 | "KRN",8994 ,3562,3,71 ,0) | ||
2595 | 109 PCELL - Patient Cell Phon e (.134) | ||
2596 | "KRN",8994 ,3562,3,72 ,0) | ||
2597 | 110 PPAGE R - Patien t Pager Nu mber (.135 ) | ||
2598 | "KRN",8994 ,3562,3,73 ,0) | ||
2599 | 111 PEMAI L - Patien t Email Ad dress (.13 3) | ||
2600 | "KRN",8994 ,3562,3,74 ,0) | ||
2601 | 112 PF_FF F - Patien t FUGITIVE FELON FLA G 1=YES | ||
2602 | "KRN",8994 ,3562,3,75 ,0) | ||
2603 | 113 PF_VC D - Patien t VETERAN CATASTROPH ICALLY DIS ABLED? Y=Y ES N=NO | ||
2604 | "KRN",8994 ,3562,3,76 ,0) | ||
2605 | 114 PFNAT IONAL - Pa tient nati onal Flags | ||
2606 | "KRN",8994 ,3562,3,77 ,0) | ||
2607 | (PRF ASSIGNMEN T/PRF NATI ONAL FLAG) separated by | ||
2608 | "KRN",8994 ,3562,3,78 ,0) | ||
2609 | | | ||
2610 | "KRN",8994 ,3562,3,79 ,0) | ||
2611 | E ach | piec e contains the follo wing ;; pi eces: | ||
2612 | "KRN",8994 ,3562,3,80 ,0) | ||
2613 | 1 . PRFAID - PRF Assig nment ID p ointer to PRF ASSIGN MENT file | ||
2614 | "KRN",8994 ,3562,3,81 ,0) | ||
2615 | (#26.13) | ||
2616 | "KRN",8994 ,3562,3,82 ,0) | ||
2617 | 2 . PRFSTAT - PRF Assi gnment Sta tus 0=INAC TIVE 1=ACT IVE | ||
2618 | "KRN",8994 ,3562,3,83 ,0) | ||
2619 | 3 . PRFNID - PRF Natio nal Flag I D pointer to PRF NAT IONAL FLAG | ||
2620 | "KRN",8994 ,3562,3,84 ,0) | ||
2621 | file (#26. 15) | ||
2622 | "KRN",8994 ,3562,3,85 ,0) | ||
2623 | 4 . PRFNNAME - PRF Nat ional Flag name | ||
2624 | "KRN",8994 ,3562,3,86 ,0) | ||
2625 | 5 . PRFNSTAT - PRF Nat ional Flag status 0= INACTIVE 1 =ACTIVE | ||
2626 | "KRN",8994 ,3562,3,87 ,0) | ||
2627 | 115 PFLO CAL - Pati ent Local Flags | ||
2628 | "KRN",8994 ,3562,3,88 ,0) | ||
2629 | (PRF AS SIGNMENT/P RF Local F LAG) separ ated by | | ||
2630 | "KRN",8994 ,3562,3,89 ,0) | ||
2631 | E ach | piec e contains the follo wing ;; pi eces: | ||
2632 | "KRN",8994 ,3562,3,90 ,0) | ||
2633 | 1 . PRFAID - PRF Assig nment ID p ointer to PRF ASSIGN MENT file | ||
2634 | "KRN",8994 ,3562,3,91 ,0) | ||
2635 | (#26.13) | ||
2636 | "KRN",8994 ,3562,3,92 ,0) | ||
2637 | 2 . PRFSTAT - PRF Assi gnment Sta tus 0=INAC TIVE 1=ACT IVE | ||
2638 | "KRN",8994 ,3562,3,93 ,0) | ||
2639 | 3 . PRFLID - PRF Local Flag ID p ointer to PRF LOCAL FLAG file | ||
2640 | "KRN",8994 ,3562,3,94 ,0) | ||
2641 | (#26.11) | ||
2642 | "KRN",8994 ,3562,3,95 ,0) | ||
2643 | 4 . PRFLNAME - PRF Loc al Flag na me | ||
2644 | "KRN",8994 ,3562,3,96 ,0) | ||
2645 | 5 . PRFLSTAT - PRF Loc al Flag st atus 0=INA CTIVE 1=AC TIVE | ||
2646 | "KRN",8994 ,3562,3,97 ,0) | ||
2647 | 116 SUBG RP - value from the ENROLLMENT SUBGROUP field of t he PATIENT | ||
2648 | "KRN",8994 ,3562,3,98 ,0) | ||
2649 | ENROLLMENT file | ||
2650 | "KRN",8994 ,3562,3,99 ,0) | ||
2651 | (#27. 11) | ||
2652 | "KRN",8994 ,3562,3,10 0,0) | ||
2653 | Valid values ar e a b c d e g | ||
2654 | "KRN",8994 ,3562,3,10 1,0) | ||
2655 | 117 CAT8G - Catego ry 8g flag - True if PriGRP =' Group 8' A ND SUBGRP- 'g' | ||
2656 | "KRN",8994 ,3562,3,10 2,0) | ||
2657 | 118 SIMIL AR = Simil ar Patient s | ||
2658 | "KRN",8994 ,3562,3,10 3,0) | ||
2659 | 121 VAOS_ GUID = Poi nter to VA OS for Vet eran-initi ated appoi ntment | ||
2660 | "KRN",8994 ,3562,3,10 4,0) | ||
2661 | requests | ||
2662 | "KRN",8994 ,3562,3,10 5,0) | ||
2663 | MESSSAG E | Patien ts | ||
2664 | "KRN",8994 ,3562,3,10 6,0) | ||
2665 | Patien ts separat ed by ;; | ||
2666 | "KRN",8994 ,3562,3,10 7,0) | ||
2667 | Each ;; piece contains t he followi ng ~ piece s | ||
2668 | "KRN",8994 ,3562,3,10 8,0) | ||
2669 | DFN ~ NAME ~ D OB ~ SSN | ||
2670 | "KRN",8994 ,3719,-1) | ||
2671 | 0^1 | ||
2672 | "KRN",8994 ,3719,0) | ||
2673 | SDEC SUMMG ET2^SUMMGE T2^SDEC^4^ R^0^^0 | ||
2674 | "KRN",8994 ,3719,1,0) | ||
2675 | ^^1^1^3180 228^ | ||
2676 | "KRN",8994 ,3719,1,1, 0) | ||
2677 | Get Audit Summary fo r a given data range . | ||
2678 | "KRN",8994 ,3719,2,0) | ||
2679 | ^8994.02A^ 3^3 | ||
2680 | "KRN",8994 ,3719,2,1, 0) | ||
2681 | SDBEG^1^^0 ^1 | ||
2682 | "KRN",8994 ,3719,2,1, 1,0) | ||
2683 | ^^1^1^3180 228^ | ||
2684 | "KRN",8994 ,3719,2,1, 1,1,0) | ||
2685 | Begin Date in extern al form; d efault to all dates | ||
2686 | "KRN",8994 ,3719,2,2, 0) | ||
2687 | SDEND^1^^0 ^2 | ||
2688 | "KRN",8994 ,3719,2,2, 1,0) | ||
2689 | ^^1^1^3180 228^ | ||
2690 | "KRN",8994 ,3719,2,2, 1,1,0) | ||
2691 | End Date i n external form; def ault to al l dates | ||
2692 | "KRN",8994 ,3719,2,3, 0) | ||
2693 | USER^1^^0^ 3 | ||
2694 | "KRN",8994 ,3719,2,3, 1,0) | ||
2695 | ^^2^2^3180 228^ | ||
2696 | "KRN",8994 ,3719,2,3, 1,1,0) | ||
2697 | User ID po inter to N EW PERSON file (#200 ) | ||
2698 | "KRN",8994 ,3719,2,3, 1,2,0) | ||
2699 | Used to fi lter by us er | ||
2700 | "KRN",8994 ,3719,2,"B ","SDBEG", 1) | ||
2701 | |||
2702 | "KRN",8994 ,3719,2,"B ","SDEND", 2) | ||
2703 | |||
2704 | "KRN",8994 ,3719,2,"B ","USER",3 ) | ||
2705 | |||
2706 | "KRN",8994 ,3719,2,"P ARAMSEQ",1 ,1) | ||
2707 | |||
2708 | "KRN",8994 ,3719,2,"P ARAMSEQ",2 ,2) | ||
2709 | |||
2710 | "KRN",8994 ,3719,2,"P ARAMSEQ",3 ,3) | ||
2711 | |||
2712 | "KRN",8994 ,3719,3,0) | ||
2713 | ^^18^18^31 80228^ | ||
2714 | "KRN",8994 ,3719,3,1, 0) | ||
2715 | Global Arr ay in whic h each arr ay entry c ontains su mmary data delimited by | ||
2716 | "KRN",8994 ,3719,3,2, 0) | ||
2717 | caret (^): | ||
2718 | "KRN",8994 ,3719,3,3, 0) | ||
2719 | 1. US ERIEN - P ointer to NEW PERSON file (#20 0) | ||
2720 | "KRN",8994 ,3719,3,4, 0) | ||
2721 | 2. US ERNAME - N AME from N EW PERSON file | ||
2722 | "KRN",8994 ,3719,3,5, 0) | ||
2723 | 3. CO NTACTS - N umber of p atient con tacts in d ate range | ||
2724 | "KRN",8994 ,3719,3,6, 0) | ||
2725 | 4. AP PTOPEN - N umber of A PPT reques ts opened | ||
2726 | "KRN",8994 ,3719,3,7, 0) | ||
2727 | 5. AP PTMADE - N umber of a ppointment s made fro m APPT req uests | ||
2728 | "KRN",8994 ,3719,3,8, 0) | ||
2729 | 6. AP PTCLSD - N umber of A PPT reques ts closed | ||
2730 | "KRN",8994 ,3719,3,9, 0) | ||
2731 | 7. MR TCOPEN - N umber of M RTC reques ts opened | ||
2732 | "KRN",8994 ,3719,3,10 ,0) | ||
2733 | 8. MR TCCLSD - N umber of M RTC reques ts closed | ||
2734 | "KRN",8994 ,3719,3,11 ,0) | ||
2735 | 9. EW LOPEN - N umber of E WL request s opened | ||
2736 | "KRN",8994 ,3719,3,12 ,0) | ||
2737 | 10. EW LMADE - N umber of a ppointment s made fro m EWL requ ests | ||
2738 | "KRN",8994 ,3719,3,13 ,0) | ||
2739 | 11. EW LCLSD - N umber of E WL request s closed | ||
2740 | "KRN",8994 ,3719,3,14 ,0) | ||
2741 | 12. PT CSOPEN - N umber of P tCSch requ ests opene d | ||
2742 | "KRN",8994 ,3719,3,15 ,0) | ||
2743 | 13. PT CSMADE - N umber of a ppointment s made fro m PtCSch r equests | ||
2744 | "KRN",8994 ,3719,3,16 ,0) | ||
2745 | 14. CN SLTMD - N umber of a ppointment s made fro m consults | ||
2746 | "KRN",8994 ,3719,3,17 ,0) | ||
2747 | 15. AP PTCXLD - N umber of a ppointment s canceled | ||
2748 | "KRN",8994 ,3719,3,18 ,0) | ||
2749 | 16. AC TIONS - T otal numbe r of user actions in date rang e | ||
2750 | "KRN",8994 ,3720,-1) | ||
2751 | 0^2 | ||
2752 | "KRN",8994 ,3720,0) | ||
2753 | SDEC RESCE ^RESOURCE^ SDEC01C^4^ S^0^^0^1 | ||
2754 | "KRN",8994 ,3720,1,0) | ||
2755 | ^8994.01^1 ^1^3180301 ^^ | ||
2756 | "KRN",8994 ,3720,1,1, 0) | ||
2757 | Returns al l active C linics | ||
2758 | "KRN",8994 ,3720,2,0) | ||
2759 | ^8994.02A^ 4^4 | ||
2760 | "KRN",8994 ,3720,2,1, 0) | ||
2761 | DUZ^1^^0^1 | ||
2762 | "KRN",8994 ,3720,2,1, 1,0) | ||
2763 | ^^2^2^3180 301^ | ||
2764 | "KRN",8994 ,3720,2,1, 1,1,0) | ||
2765 | Checks tha t THIS use r has the proper SEC URITY KEY | ||
2766 | "KRN",8994 ,3720,2,1, 1,2,0) | ||
2767 | Defaults t o current user. | ||
2768 | "KRN",8994 ,3720,2,2, 0) | ||
2769 | SDACT^1^^0 ^2 | ||
2770 | "KRN",8994 ,3720,2,2, 1,0) | ||
2771 | ^^1^1^3180 301^ | ||
2772 | "KRN",8994 ,3720,2,2, 1,1,0) | ||
2773 | Set to Yes - returns only acti ve clinics | ||
2774 | "KRN",8994 ,3720,2,3, 0) | ||
2775 | SDTYPE^1^^ 0^3 | ||
2776 | "KRN",8994 ,3720,2,3, 1,0) | ||
2777 | ^^1^1^3180 301^ | ||
2778 | "KRN",8994 ,3720,2,3, 1,1,0) | ||
2779 | Set to H - only retu rns Clinic s | ||
2780 | "KRN",8994 ,3720,2,4, 0) | ||
2781 | MAXREC^1^^ 0^4 | ||
2782 | "KRN",8994 ,3720,2,4, 1,0) | ||
2783 | ^8994.021^ 1^1^318030 1^^ | ||
2784 | "KRN",8994 ,3720,2,4, 1,1,0) | ||
2785 | Max nuber of records returned | ||
2786 | "KRN",8994 ,3720,2,"B ","DUZ",1) | ||
2787 | |||
2788 | "KRN",8994 ,3720,2,"B ","MAXREC" ,4) | ||
2789 | |||
2790 | "KRN",8994 ,3720,2,"B ","SDACT", 2) | ||
2791 | |||
2792 | "KRN",8994 ,3720,2,"B ","SDTYPE" ,3) | ||
2793 | |||
2794 | "KRN",8994 ,3720,2,"P ARAMSEQ",1 ,1) | ||
2795 | |||
2796 | "KRN",8994 ,3720,2,"P ARAMSEQ",2 ,2) | ||
2797 | |||
2798 | "KRN",8994 ,3720,2,"P ARAMSEQ",3 ,3) | ||
2799 | |||
2800 | "KRN",8994 ,3720,2,"P ARAMSEQ",4 ,4) | ||
2801 | |||
2802 | "KRN",8994 ,3720,3,0) | ||
2803 | ^^5^5^3180 301^ | ||
2804 | "KRN",8994 ,3720,3,1, 0) | ||
2805 | Returns a global arr ay in whic h each arr ay entry c ontains da ta from | ||
2806 | "KRN",8994 ,3720,3,2, 0) | ||
2807 | the HOSPI TAL LOCATI ON (clinic ). | ||
2808 | "KRN",8994 ,3720,3,3, 0) | ||
2809 | 1. RESOURC EID - Poin ter to the SDEC RESO URCE file | ||
2810 | "KRN",8994 ,3720,3,4, 0) | ||
2811 | 2. HOSPITA L_LOCATION _ID | ||
2812 | "KRN",8994 ,3720,3,5, 0) | ||
2813 | 3. CLINNAM E - Clini c Name fro m HOSPITAL LOCATION file 44 | ||
2814 | "KRN",8994 ,3721,-1) | ||
2815 | 0^5 | ||
2816 | "KRN",8994 ,3721,0) | ||
2817 | SDECAR1 AR GUID^ARGUI D^SDECAR1^ 4^P | ||
2818 | "KRN",8994 ,3721,1,0) | ||
2819 | ^^2^2^3180 419^ | ||
2820 | "KRN",8994 ,3721,1,1, 0) | ||
2821 | Returns Ap pointment Request da ta (same a s SDEC ARG ET) for a VAOS | ||
2822 | "KRN",8994 ,3721,1,2, 0) | ||
2823 | request. Lookup is done on th e GUID val ue. | ||
2824 | "KRN",8994 ,3721,2,0) | ||
2825 | ^8994.02A^ 1^1 | ||
2826 | "KRN",8994 ,3721,2,1, 0) | ||
2827 | GUID^1^32^ 1^1 | ||
2828 | "KRN",8994 ,3721,2,1, 1,0) | ||
2829 | ^^1^1^3180 419^ | ||
2830 | "KRN",8994 ,3721,2,1, 1,1,0) | ||
2831 | GUID is th e database pointer i n the VAOS database. | ||
2832 | "KRN",8994 ,3721,2,"B ","GUID",1 ) | ||
2833 | |||
2834 | "KRN",8994 ,3721,2,"P ARAMSEQ",1 ,1) | ||
2835 | |||
2836 | "KRN",8994 ,3721,3,0) | ||
2837 | ^^1^1^3180 419^ | ||
2838 | "KRN",8994 ,3721,3,1, 0) | ||
2839 | Return dat a is the s ame as for SDEC ARGE T RPC. | ||
2840 | "MBREQ") | ||
2841 | 0 | ||
2842 | "ORD",5,.4 ) | ||
2843 | .4;5;;;EDE OUT^DIFROM SO(.4,DA," ",XPDA);FP RE^DIFROMS I(.4,"",XP DA);EPRE^D IFROMSI(.4 ,DA,$E("N" ,$G(XPDNEW )),XPDA,"" ,OLDA);;EP OST^DIFROM SI(.4,DA," ",XPDA);DE L^DIFROMSK (.4,"",%) | ||
2844 | "ORD",5,.4 ,0) | ||
2845 | PRINT TEMP LATE | ||
2846 | "ORD",6,.4 01) | ||
2847 | .401;6;;;E DEOUT^DIFR OMSO(.401, DA,"",XPDA );FPRE^DIF ROMSI(.401 ,"",XPDA); EPRE^DIFRO MSI(.401,D A,$E("N",$ G(XPDNEW)) ,XPDA,"",O LDA);;EPOS T^DIFROMSI (.401,DA," ",XPDA);DE L^DIFROMSK (.401,"",% ) | ||
2848 | "ORD",6,.4 01,0) | ||
2849 | SORT TEMPL ATE | ||
2850 | "ORD",16,8 994) | ||
2851 | 8994;16;1; ;;;RPCE1^X PDIA1;;;RP CDEL^XPDIA 1 | ||
2852 | "ORD",16,8 994,0) | ||
2853 | REMOTE PRO CEDURE | ||
2854 | "ORD",18,1 9) | ||
2855 | 19;18;;;OP T^XPDTA;OP TF1^XPDIA; OPTE1^XPDI A;OPTF2^XP DIA;;OPTDE L^XPDIA | ||
2856 | "ORD",18,1 9,0) | ||
2857 | OPTION | ||
2858 | "PKG",48,- 1) | ||
2859 | 1^1 | ||
2860 | "PKG",48,0 ) | ||
2861 | SCHEDULING ^SD^APPOIN TMENTS,PRO FILES,LETT ERS,AMIS R EPORTS | ||
2862 | "PKG",48,2 2,0) | ||
2863 | ^9.49I^1^1 | ||
2864 | "PKG",48,2 2,1,0) | ||
2865 | 5.3^305111 9^2960613 | ||
2866 | "PKG",48,2 2,1,"PAH", 1,0) | ||
2867 | 686^318111 4^114 | ||
2868 | "PKG",48,2 2,1,"PAH", 1,1,0) | ||
2869 | ^^505^505^ 3181114 | ||
2870 | "PKG",48,2 2,1,"PAH", 1,1,1,0) | ||
2871 | ********** ********** ********** ********** ********** ********** ********** **** | ||
2872 | "PKG",48,2 2,1,"PAH", 1,1,2,0) | ||
2873 | ** | ||
2874 | "PKG",48,2 2,1,"PAH", 1,1,3,0) | ||
2875 | * GUI UPDATE | ||
2876 | "PKG",48,2 2,1,"PAH", 1,1,4,0) | ||
2877 | NOTICE * | ||
2878 | "PKG",48,2 2,1,"PAH", 1,1,5,0) | ||
2879 | *--------- ---------- ---------- ---------- ---------- ---------- ---------- ---- | ||
2880 | "PKG",48,2 2,1,"PAH", 1,1,6,0) | ||
2881 | -* | ||
2882 | "PKG",48,2 2,1,"PAH", 1,1,7,0) | ||
2883 | * This pat ch MUST be installed before th e GUI upda te for rel ease | ||
2884 | "PKG",48,2 2,1,"PAH", 1,1,8,0) | ||
2885 | 1.5.1 * | ||
2886 | "PKG",48,2 2,1,"PAH", 1,1,9,0) | ||
2887 | * of VistA Schedulin g GUI is i nstalled. The previo us 1.5 rel ease will | ||
2888 | "PKG",48,2 2,1,"PAH", 1,1,10,0) | ||
2889 | work * | ||
2890 | "PKG",48,2 2,1,"PAH", 1,1,11,0) | ||
2891 | * with no problems a fter this patch has been insta lled. Howe ver, if | ||
2892 | "PKG",48,2 2,1,"PAH", 1,1,12,0) | ||
2893 | the * | ||
2894 | "PKG",48,2 2,1,"PAH", 1,1,13,0) | ||
2895 | * 1.5.1 ve rsion is u sed withou t this pat ch, then a ll fields for | ||
2896 | "PKG",48,2 2,1,"PAH", 1,1,14,0) | ||
2897 | selecting * | ||
2898 | "PKG",48,2 2,1,"PAH", 1,1,15,0) | ||
2899 | * clinics, as well a s the Audi t Report, will not w ork | ||
2900 | "PKG",48,2 2,1,"PAH", 1,1,16,0) | ||
2901 | properly. * | ||
2902 | "PKG",48,2 2,1,"PAH", 1,1,17,0) | ||
2903 | ********** ********** ********** ********** ********** ********** ********** **** | ||
2904 | "PKG",48,2 2,1,"PAH", 1,1,18,0) | ||
2905 | ** | ||
2906 | "PKG",48,2 2,1,"PAH", 1,1,19,0) | ||
2907 | |||
2908 | "PKG",48,2 2,1,"PAH", 1,1,20,0) | ||
2909 | This patch contains the VistA components necessary to suppor t the 1.5. 1 | ||
2910 | "PKG",48,2 2,1,"PAH", 1,1,21,0) | ||
2911 | release of VistA Sch eduling En hancements (VSE) as well as ad dressing t he | ||
2912 | "PKG",48,2 2,1,"PAH", 1,1,22,0) | ||
2913 | following issues: | ||
2914 | "PKG",48,2 2,1,"PAH", 1,1,23,0) | ||
2915 | |||
2916 | "PKG",48,2 2,1,"PAH", 1,1,24,0) | ||
2917 | 1. R181207 03FY18 - The VS GUI applicati on freezes when the Audit Repo rt | ||
2918 | "PKG",48,2 2,1,"PAH", 1,1,25,0) | ||
2919 | is | ||
2920 | "PKG",48,2 2,1,"PAH", 1,1,26,0) | ||
2921 | run for al l schedule rs due to performanc e issues. | ||
2922 | "PKG",48,2 2,1,"PAH", 1,1,27,0) | ||
2923 | |||
2924 | "PKG",48,2 2,1,"PAH", 1,1,28,0) | ||
2925 | 2. R178569 00FY18, - If an appo intment ha d been sch eduled for a consult , | ||
2926 | "PKG",48,2 2,1,"PAH", 1,1,29,0) | ||
2927 | R185649 68FY18, then that consult wa s complete d, and fin ally the | ||
2928 | "PKG",48,2 2,1,"PAH", 1,1,30,0) | ||
2929 | R186483 21FY18 appointmen t was canc eled, the consult wi ll be mark ed | ||
2930 | "PKG",48,2 2,1,"PAH", 1,1,31,0) | ||
2931 | as active, even thou gh it shou ld remain as complet e. | ||
2932 | "PKG",48,2 2,1,"PAH", 1,1,32,0) | ||
2933 | |||
2934 | "PKG",48,2 2,1,"PAH", 1,1,33,0) | ||
2935 | 3. R174153 67FY18 - If a user locks an a ppointment request ( in this ca se, | ||
2936 | "PKG",48,2 2,1,"PAH", 1,1,34,0) | ||
2937 | a consult request in particula r) by sele cting it i n | ||
2938 | "PKG",48,2 2,1,"PAH", 1,1,35,0) | ||
2939 | the | ||
2940 | "PKG",48,2 2,1,"PAH", 1,1,36,0) | ||
2941 | RM grid, t hen exits the GUI wi th it stil l locked, a | ||
2942 | "PKG",48,2 2,1,"PAH", 1,1,37,0) | ||
2943 | user | ||
2944 | "PKG",48,2 2,1,"PAH", 1,1,38,0) | ||
2945 | in VistA w ill be una ble to sel ect the sa me request , | ||
2946 | "PKG",48,2 2,1,"PAH", 1,1,39,0) | ||
2947 | instead re ceiving a message st ating that the reque st | ||
2948 | "PKG",48,2 2,1,"PAH", 1,1,40,0) | ||
2949 | is | ||
2950 | "PKG",48,2 2,1,"PAH", 1,1,41,0) | ||
2951 | locked. | ||
2952 | "PKG",48,2 2,1,"PAH", 1,1,42,0) | ||
2953 | |||
2954 | "PKG",48,2 2,1,"PAH", 1,1,43,0) | ||
2955 | 4. R170391 75FY18 - When using clinic lo okup, if t he user pa uses the i nput | ||
2956 | "PKG",48,2 2,1,"PAH", 1,1,44,0) | ||
2957 | is wiped out and has t o be re-en tered. | ||
2958 | "PKG",48,2 2,1,"PAH", 1,1,45,0) | ||
2959 | |||
2960 | "PKG",48,2 2,1,"PAH", 1,1,46,0) | ||
2961 | 5. R184776 70FY18 - When sched uling an a ppointment for an In ter-Facili ty | ||
2962 | "PKG",48,2 2,1,"PAH", 1,1,47,0) | ||
2963 | Co nsult (IFC ), the rem ote facili ty is not | ||
2964 | "PKG",48,2 2,1,"PAH", 1,1,48,0) | ||
2965 | notified. | ||
2966 | "PKG",48,2 2,1,"PAH", 1,1,49,0) | ||
2967 | |||
2968 | "PKG",48,2 2,1,"PAH", 1,1,50,0) | ||
2969 | This patch also cont ains modif ications t o routines (SDECAR1 and SDECAR 2) | ||
2970 | "PKG",48,2 2,1,"PAH", 1,1,51,0) | ||
2971 | and RPCs ( SDEC ARGET and SDEC ARSET) as well chang es to File Man files | ||
2972 | "PKG",48,2 2,1,"PAH", 1,1,52,0) | ||
2973 | (Appointme nt Request #409.85) related to a future enhancemen t - the | ||
2974 | "PKG",48,2 2,1,"PAH", 1,1,53,0) | ||
2975 | integratio n of Sched uling Mana ger functi onality in to the VS GUI. | ||
2976 | "PKG",48,2 2,1,"PAH", 1,1,54,0) | ||
2977 | |||
2978 | "PKG",48,2 2,1,"PAH", 1,1,55,0) | ||
2979 | |||
2980 | "PKG",48,2 2,1,"PAH", 1,1,56,0) | ||
2981 | |||
2982 | "PKG",48,2 2,1,"PAH", 1,1,57,0) | ||
2983 | Patch Comp onents | ||
2984 | "PKG",48,2 2,1,"PAH", 1,1,58,0) | ||
2985 | ========== ====== | ||
2986 | "PKG",48,2 2,1,"PAH", 1,1,59,0) | ||
2987 | |||
2988 | "PKG",48,2 2,1,"PAH", 1,1,60,0) | ||
2989 | Files & Fi elds Assoc iated: | ||
2990 | "PKG",48,2 2,1,"PAH", 1,1,61,0) | ||
2991 | |||
2992 | "PKG",48,2 2,1,"PAH", 1,1,62,0) | ||
2993 | File Name (#) Ne w/Modified / | ||
2994 | "PKG",48,2 2,1,"PAH", 1,1,63,0) | ||
2995 | Sub-file Name (#) Field Na me (Number ) Deleted | ||
2996 | "PKG",48,2 2,1,"PAH", 1,1,64,0) | ||
2997 | ---------- --------- -------- ---------- ---------- ----- -- ---------- - | ||
2998 | "PKG",48,2 2,1,"PAH", 1,1,65,0) | ||
2999 | SDEC APPT REQUEST (# 409.85) MO DIFIED | ||
3000 | "PKG",48,2 2,1,"PAH", 1,1,66,0) | ||
3001 | VAOS GUID (#5) | ||
3002 | "PKG",48,2 2,1,"PAH", 1,1,67,0) | ||
3003 | NEW | ||
3004 | "PKG",48,2 2,1,"PAH", 1,1,68,0) | ||
3005 | |||
3006 | "PKG",48,2 2,1,"PAH", 1,1,69,0) | ||
3007 | SDEC CONTA CT (#409.8 6) MO DIFIED | ||
3008 | "PKG",48,2 2,1,"PAH", 1,1,70,0) | ||
3009 | |||
3010 | "PKG",48,2 2,1,"PAH", 1,1,71,0) | ||
3011 | SD AUDIT S TATISTICS (#409.97) NE W | ||
3012 | "PKG",48,2 2,1,"PAH", 1,1,72,0) | ||
3013 | SCHEDULE R (#.01) NE W | ||
3014 | "PKG",48,2 2,1,"PAH", 1,1,73,0) | ||
3015 | DATE (#1 ) NE W | ||
3016 | "PKG",48,2 2,1,"PAH", 1,1,74,0) | ||
3017 | PATIENT CONTACTS ( #2) NE W | ||
3018 | "PKG",48,2 2,1,"PAH", 1,1,75,0) | ||
3019 | APPT REQ UESTS (#3) NE W | ||
3020 | "PKG",48,2 2,1,"PAH", 1,1,76,0) | ||
3021 | APPT APP OINTMENTS MADE (#4) NE W | ||
3022 | "PKG",48,2 2,1,"PAH", 1,1,77,0) | ||
3023 | APPT CLO SED (#5) NE W | ||
3024 | "PKG",48,2 2,1,"PAH", 1,1,78,0) | ||
3025 | MRTC OPE NED (#6) NE W | ||
3026 | "PKG",48,2 2,1,"PAH", 1,1,79,0) | ||
3027 | MRTC CLO SED (#7) NE W | ||
3028 | "PKG",48,2 2,1,"PAH", 1,1,80,0) | ||
3029 | EWL ENTR IES (#8) NE W | ||
3030 | "PKG",48,2 2,1,"PAH", 1,1,81,0) | ||
3031 | EWL APPO INTMENTS M ADE (#9) NE W | ||
3032 | "PKG",48,2 2,1,"PAH", 1,1,82,0) | ||
3033 | EWL CLOS ED (#10) NE W | ||
3034 | "PKG",48,2 2,1,"PAH", 1,1,83,0) | ||
3035 | PtCSch E NTRIES (#1 1) NE W | ||
3036 | "PKG",48,2 2,1,"PAH", 1,1,84,0) | ||
3037 | PtCSch A PPOINTMENT S MADE (#1 2) NE W | ||
3038 | "PKG",48,2 2,1,"PAH", 1,1,85,0) | ||
3039 | CONSULT APPOINTMEN TS MADE (# 13) NE W | ||
3040 | "PKG",48,2 2,1,"PAH", 1,1,86,0) | ||
3041 | APPOINTM ENTS CANCE LLED (#14) NE W | ||
3042 | "PKG",48,2 2,1,"PAH", 1,1,87,0) | ||
3043 | TOTAL AC TIONS (#15 ) NE W | ||
3044 | "PKG",48,2 2,1,"PAH", 1,1,88,0) | ||
3045 | |||
3046 | "PKG",48,2 2,1,"PAH", 1,1,89,0) | ||
3047 | Bulletins Associated : | ||
3048 | "PKG",48,2 2,1,"PAH", 1,1,90,0) | ||
3049 | Ne w/Modified / | ||
3050 | "PKG",48,2 2,1,"PAH", 1,1,91,0) | ||
3051 | Bulletin N ame Deleted | ||
3052 | "PKG",48,2 2,1,"PAH", 1,1,92,0) | ||
3053 | ---------- --- -- ---------- - | ||
3054 | "PKG",48,2 2,1,"PAH", 1,1,93,0) | ||
3055 | N/A | ||
3056 | "PKG",48,2 2,1,"PAH", 1,1,94,0) | ||
3057 | |||
3058 | "PKG",48,2 2,1,"PAH", 1,1,95,0) | ||
3059 | |||
3060 | "PKG",48,2 2,1,"PAH", 1,1,96,0) | ||
3061 | |||
3062 | "PKG",48,2 2,1,"PAH", 1,1,97,0) | ||
3063 | Dialogs As sociated: | ||
3064 | "PKG",48,2 2,1,"PAH", 1,1,98,0) | ||
3065 | Ne w/Modified / | ||
3066 | "PKG",48,2 2,1,"PAH", 1,1,99,0) | ||
3067 | Dialog Nam e Deleted | ||
3068 | "PKG",48,2 2,1,"PAH", 1,1,100,0) | ||
3069 | ---------- - -- ---------- - | ||
3070 | "PKG",48,2 2,1,"PAH", 1,1,101,0) | ||
3071 | N/A | ||
3072 | "PKG",48,2 2,1,"PAH", 1,1,102,0) | ||
3073 | |||
3074 | "PKG",48,2 2,1,"PAH", 1,1,103,0) | ||
3075 | |||
3076 | "PKG",48,2 2,1,"PAH", 1,1,104,0) | ||
3077 | |||
3078 | "PKG",48,2 2,1,"PAH", 1,1,105,0) | ||
3079 | Forms Asso ciated: | ||
3080 | "PKG",48,2 2,1,"PAH", 1,1,106,0) | ||
3081 | Ne w/Modified / | ||
3082 | "PKG",48,2 2,1,"PAH", 1,1,107,0) | ||
3083 | Form Name F ile Name ( Number) Deleted | ||
3084 | "PKG",48,2 2,1,"PAH", 1,1,108,0) | ||
3085 | --------- - ---------- ------- -- ---------- - | ||
3086 | "PKG",48,2 2,1,"PAH", 1,1,109,0) | ||
3087 | N/A | ||
3088 | "PKG",48,2 2,1,"PAH", 1,1,110,0) | ||
3089 | |||
3090 | "PKG",48,2 2,1,"PAH", 1,1,111,0) | ||
3091 | |||
3092 | "PKG",48,2 2,1,"PAH", 1,1,112,0) | ||
3093 | |||
3094 | "PKG",48,2 2,1,"PAH", 1,1,113,0) | ||
3095 | Functions Associated : | ||
3096 | "PKG",48,2 2,1,"PAH", 1,1,114,0) | ||
3097 | Ne w/Modified / | ||
3098 | "PKG",48,2 2,1,"PAH", 1,1,115,0) | ||
3099 | Function N ame Deleted | ||
3100 | "PKG",48,2 2,1,"PAH", 1,1,116,0) | ||
3101 | ---------- --- -- ---------- - | ||
3102 | "PKG",48,2 2,1,"PAH", 1,1,117,0) | ||
3103 | N/A | ||
3104 | "PKG",48,2 2,1,"PAH", 1,1,118,0) | ||
3105 | |||
3106 | "PKG",48,2 2,1,"PAH", 1,1,119,0) | ||
3107 | |||
3108 | "PKG",48,2 2,1,"PAH", 1,1,120,0) | ||
3109 | |||
3110 | "PKG",48,2 2,1,"PAH", 1,1,121,0) | ||
3111 | HL Logical Link: | ||
3112 | "PKG",48,2 2,1,"PAH", 1,1,122,0) | ||
3113 | Ne w/Modified / | ||
3114 | "PKG",48,2 2,1,"PAH", 1,1,123,0) | ||
3115 | HL Logical Name Deleted | ||
3116 | "PKG",48,2 2,1,"PAH", 1,1,124,0) | ||
3117 | ---------- ----- -- ---------- - | ||
3118 | "PKG",48,2 2,1,"PAH", 1,1,125,0) | ||
3119 | N/A | ||
3120 | "PKG",48,2 2,1,"PAH", 1,1,126,0) | ||
3121 | |||
3122 | "PKG",48,2 2,1,"PAH", 1,1,127,0) | ||
3123 | |||
3124 | "PKG",48,2 2,1,"PAH", 1,1,128,0) | ||
3125 | |||
3126 | "PKG",48,2 2,1,"PAH", 1,1,129,0) | ||
3127 | HL7 Applic ation Para meters: | ||
3128 | "PKG",48,2 2,1,"PAH", 1,1,130,0) | ||
3129 | Ne w/Modified / | ||
3130 | "PKG",48,2 2,1,"PAH", 1,1,131,0) | ||
3131 | HL7 Parame ter Name Deleted | ||
3132 | "PKG",48,2 2,1,"PAH", 1,1,132,0) | ||
3133 | ---------- -------- -- ---------- - | ||
3134 | "PKG",48,2 2,1,"PAH", 1,1,133,0) | ||
3135 | N/A | ||
3136 | "PKG",48,2 2,1,"PAH", 1,1,134,0) | ||
3137 | |||
3138 | "PKG",48,2 2,1,"PAH", 1,1,135,0) | ||
3139 | |||
3140 | "PKG",48,2 2,1,"PAH", 1,1,136,0) | ||
3141 | |||
3142 | "PKG",48,2 2,1,"PAH", 1,1,137,0) | ||
3143 | HLO Applic ation Regi stry: | ||
3144 | "PKG",48,2 2,1,"PAH", 1,1,138,0) | ||
3145 | Ne w/Modified / | ||
3146 | "PKG",48,2 2,1,"PAH", 1,1,139,0) | ||
3147 | HLO Regist ry Name Deleted | ||
3148 | "PKG",48,2 2,1,"PAH", 1,1,140,0) | ||
3149 | ---------- ------- -- ---------- - | ||
3150 | "PKG",48,2 2,1,"PAH", 1,1,141,0) | ||
3151 | N/A | ||
3152 | "PKG",48,2 2,1,"PAH", 1,1,142,0) | ||
3153 | |||
3154 | "PKG",48,2 2,1,"PAH", 1,1,143,0) | ||
3155 | |||
3156 | "PKG",48,2 2,1,"PAH", 1,1,144,0) | ||
3157 | |||
3158 | "PKG",48,2 2,1,"PAH", 1,1,145,0) | ||
3159 | Help Frame s Associat ed: | ||
3160 | "PKG",48,2 2,1,"PAH", 1,1,146,0) | ||
3161 | Ne w/Modified / | ||
3162 | "PKG",48,2 2,1,"PAH", 1,1,147,0) | ||
3163 | Help Frame Name Deleted | ||
3164 | "PKG",48,2 2,1,"PAH", 1,1,148,0) | ||
3165 | ---------- ----- -- ---------- - | ||
3166 | "PKG",48,2 2,1,"PAH", 1,1,149,0) | ||
3167 | N/A | ||
3168 | "PKG",48,2 2,1,"PAH", 1,1,150,0) | ||
3169 | |||
3170 | "PKG",48,2 2,1,"PAH", 1,1,151,0) | ||
3171 | |||
3172 | "PKG",48,2 2,1,"PAH", 1,1,152,0) | ||
3173 | |||
3174 | "PKG",48,2 2,1,"PAH", 1,1,153,0) | ||
3175 | Mail Group s Associat ed: | ||
3176 | "PKG",48,2 2,1,"PAH", 1,1,154,0) | ||
3177 | Ne w/Modified / | ||
3178 | "PKG",48,2 2,1,"PAH", 1,1,155,0) | ||
3179 | Mail Group Name Deleted | ||
3180 | "PKG",48,2 2,1,"PAH", 1,1,156,0) | ||
3181 | ---------- ----- -- ---------- - | ||
3182 | "PKG",48,2 2,1,"PAH", 1,1,157,0) | ||
3183 | N/A | ||
3184 | "PKG",48,2 2,1,"PAH", 1,1,158,0) | ||
3185 | |||
3186 | "PKG",48,2 2,1,"PAH", 1,1,159,0) | ||
3187 | |||
3188 | "PKG",48,2 2,1,"PAH", 1,1,160,0) | ||
3189 | |||
3190 | "PKG",48,2 2,1,"PAH", 1,1,161,0) | ||
3191 | Options As sociated: | ||
3192 | "PKG",48,2 2,1,"PAH", 1,1,162,0) | ||
3193 | |||
3194 | "PKG",48,2 2,1,"PAH", 1,1,163,0) | ||
3195 | New/Modifi ed/ | ||
3196 | "PKG",48,2 2,1,"PAH", 1,1,164,0) | ||
3197 | Option Nam e Typ e | ||
3198 | "PKG",48,2 2,1,"PAH", 1,1,165,0) | ||
3199 | Deleted | ||
3200 | "PKG",48,2 2,1,"PAH", 1,1,166,0) | ||
3201 | ---------- - --- - | ||
3202 | "PKG",48,2 2,1,"PAH", 1,1,167,0) | ||
3203 | ---------- --- | ||
3204 | "PKG",48,2 2,1,"PAH", 1,1,168,0) | ||
3205 | CLINICAL S CHEDULING PROCEDURE CALLS [SDE CRPC] Bro ker MODI FIED | ||
3206 | "PKG",48,2 2,1,"PAH", 1,1,169,0) | ||
3207 | COMPILE AU DIT REPORT FOR A SEL ECTED Rou tine NEW | ||
3208 | "PKG",48,2 2,1,"PAH", 1,1,170,0) | ||
3209 | DATE [S DEC COMPIL E AUDIT RE PORT] | ||
3210 | "PKG",48,2 2,1,"PAH", 1,1,171,0) | ||
3211 | COMPILE YE STERDAY'S AUDIT REPO RT [SDEC A UDIT REPOR T JOB] Rou tine NEW | ||
3212 | "PKG",48,2 2,1,"PAH", 1,1,172,0) | ||
3213 | RELEASE AP POINTMENT REQUEST LO CKS[SDEC R ELEASE LOC KS] Rou tine NEW | ||
3214 | "PKG",48,2 2,1,"PAH", 1,1,173,0) | ||
3215 | SUPERVISOR MENU [SDS UP] Men u MODI FIED | ||
3216 | "PKG",48,2 2,1,"PAH", 1,1,174,0) | ||
3217 | |||
3218 | "PKG",48,2 2,1,"PAH", 1,1,175,0) | ||
3219 | |||
3220 | "PKG",48,2 2,1,"PAH", 1,1,176,0) | ||
3221 | |||
3222 | "PKG",48,2 2,1,"PAH", 1,1,177,0) | ||
3223 | Parameter Definition s: | ||
3224 | "PKG",48,2 2,1,"PAH", 1,1,178,0) | ||
3225 | Ne w/Modified / | ||
3226 | "PKG",48,2 2,1,"PAH", 1,1,179,0) | ||
3227 | Parameter Name Deleted | ||
3228 | "PKG",48,2 2,1,"PAH", 1,1,180,0) | ||
3229 | ---------- ---- -- ---------- - | ||
3230 | "PKG",48,2 2,1,"PAH", 1,1,181,0) | ||
3231 | N/A | ||
3232 | "PKG",48,2 2,1,"PAH", 1,1,182,0) | ||
3233 | |||
3234 | "PKG",48,2 2,1,"PAH", 1,1,183,0) | ||
3235 | |||
3236 | "PKG",48,2 2,1,"PAH", 1,1,184,0) | ||
3237 | |||
3238 | "PKG",48,2 2,1,"PAH", 1,1,185,0) | ||
3239 | Parameter Template: | ||
3240 | "PKG",48,2 2,1,"PAH", 1,1,186,0) | ||
3241 | Ne w/Modified / | ||
3242 | "PKG",48,2 2,1,"PAH", 1,1,187,0) | ||
3243 | Template N ame Deleted | ||
3244 | "PKG",48,2 2,1,"PAH", 1,1,188,0) | ||
3245 | ---------- --- -- ---------- - | ||
3246 | "PKG",48,2 2,1,"PAH", 1,1,189,0) | ||
3247 | N/A | ||
3248 | "PKG",48,2 2,1,"PAH", 1,1,190,0) | ||
3249 | |||
3250 | "PKG",48,2 2,1,"PAH", 1,1,191,0) | ||
3251 | |||
3252 | "PKG",48,2 2,1,"PAH", 1,1,192,0) | ||
3253 | |||
3254 | "PKG",48,2 2,1,"PAH", 1,1,193,0) | ||
3255 | Protocols Associated : | ||
3256 | "PKG",48,2 2,1,"PAH", 1,1,194,0) | ||
3257 | Ne w/Modified / | ||
3258 | "PKG",48,2 2,1,"PAH", 1,1,195,0) | ||
3259 | Protocol N ame Deleted | ||
3260 | "PKG",48,2 2,1,"PAH", 1,1,196,0) | ||
3261 | ---------- --- -- ---------- - | ||
3262 | "PKG",48,2 2,1,"PAH", 1,1,197,0) | ||
3263 | N/A | ||
3264 | "PKG",48,2 2,1,"PAH", 1,1,198,0) | ||
3265 | |||
3266 | "PKG",48,2 2,1,"PAH", 1,1,199,0) | ||
3267 | |||
3268 | "PKG",48,2 2,1,"PAH", 1,1,200,0) | ||
3269 | |||
3270 | "PKG",48,2 2,1,"PAH", 1,1,201,0) | ||
3271 | Remote Pro cedures As sociated: | ||
3272 | "PKG",48,2 2,1,"PAH", 1,1,202,0) | ||
3273 | Ne w/Modified / | ||
3274 | "PKG",48,2 2,1,"PAH", 1,1,203,0) | ||
3275 | Remote Pro cedure Nam e Deleted | ||
3276 | "PKG",48,2 2,1,"PAH", 1,1,204,0) | ||
3277 | ---------- ---------- - -- ---------- - | ||
3278 | "PKG",48,2 2,1,"PAH", 1,1,205,0) | ||
3279 | SDEC ARGET MO DIFIED | ||
3280 | "PKG",48,2 2,1,"PAH", 1,1,206,0) | ||
3281 | SDEC ARSET MO DIFIED | ||
3282 | "PKG",48,2 2,1,"PAH", 1,1,207,0) | ||
3283 | SDEC RESCE NE W | ||
3284 | "PKG",48,2 2,1,"PAH", 1,1,208,0) | ||
3285 | SDEC SUMMG ET2 NE W | ||
3286 | "PKG",48,2 2,1,"PAH", 1,1,209,0) | ||
3287 | |||
3288 | "PKG",48,2 2,1,"PAH", 1,1,210,0) | ||
3289 | |||
3290 | "PKG",48,2 2,1,"PAH", 1,1,211,0) | ||
3291 | |||
3292 | "PKG",48,2 2,1,"PAH", 1,1,212,0) | ||
3293 | Security K eys Associ ated: | ||
3294 | "PKG",48,2 2,1,"PAH", 1,1,213,0) | ||
3295 | Ne w/Modified / | ||
3296 | "PKG",48,2 2,1,"PAH", 1,1,214,0) | ||
3297 | Security K ey Name Deleted | ||
3298 | "PKG",48,2 2,1,"PAH", 1,1,215,0) | ||
3299 | ---------- ------- -- ---------- - | ||
3300 | "PKG",48,2 2,1,"PAH", 1,1,216,0) | ||
3301 | N/A | ||
3302 | "PKG",48,2 2,1,"PAH", 1,1,217,0) | ||
3303 | |||
3304 | "PKG",48,2 2,1,"PAH", 1,1,218,0) | ||
3305 | |||
3306 | "PKG",48,2 2,1,"PAH", 1,1,219,0) | ||
3307 | |||
3308 | "PKG",48,2 2,1,"PAH", 1,1,220,0) | ||
3309 | Templates, Input Ass ociated: | ||
3310 | "PKG",48,2 2,1,"PAH", 1,1,221,0) | ||
3311 | Ne w/Modified / | ||
3312 | "PKG",48,2 2,1,"PAH", 1,1,222,0) | ||
3313 | Template N ame T ype F ile Name ( Number) Deleted | ||
3314 | "PKG",48,2 2,1,"PAH", 1,1,223,0) | ||
3315 | ---------- --- - --- - ---------- ------- -- ---------- - | ||
3316 | "PKG",48,2 2,1,"PAH", 1,1,224,0) | ||
3317 | N/A | ||
3318 | "PKG",48,2 2,1,"PAH", 1,1,225,0) | ||
3319 | |||
3320 | "PKG",48,2 2,1,"PAH", 1,1,226,0) | ||
3321 | |||
3322 | "PKG",48,2 2,1,"PAH", 1,1,227,0) | ||
3323 | |||
3324 | "PKG",48,2 2,1,"PAH", 1,1,228,0) | ||
3325 | Templates, List Asso ciated: | ||
3326 | "PKG",48,2 2,1,"PAH", 1,1,229,0) | ||
3327 | Ne w/Modified / | ||
3328 | "PKG",48,2 2,1,"PAH", 1,1,230,0) | ||
3329 | Template N ame T ype Deleted | ||
3330 | "PKG",48,2 2,1,"PAH", 1,1,231,0) | ||
3331 | ---------- --- - --- -- ---------- - | ||
3332 | "PKG",48,2 2,1,"PAH", 1,1,232,0) | ||
3333 | N/A | ||
3334 | "PKG",48,2 2,1,"PAH", 1,1,233,0) | ||
3335 | |||
3336 | "PKG",48,2 2,1,"PAH", 1,1,234,0) | ||
3337 | |||
3338 | "PKG",48,2 2,1,"PAH", 1,1,235,0) | ||
3339 | |||
3340 | "PKG",48,2 2,1,"PAH", 1,1,236,0) | ||
3341 | Templates, Print Ass ociated: | ||
3342 | "PKG",48,2 2,1,"PAH", 1,1,237,0) | ||
3343 | New/Modifi ed/ | ||
3344 | "PKG",48,2 2,1,"PAH", 1,1,238,0) | ||
3345 | Template N ame Type Fi le Name (N umber) Deleted | ||
3346 | "PKG",48,2 2,1,"PAH", 1,1,239,0) | ||
3347 | ---------- --- ---- -- ---------- ------ ---------- --- | ||
3348 | "PKG",48,2 2,1,"PAH", 1,1,240,0) | ||
3349 | SDEC AUDIT DATE PRIN T Print SD EC AUDIT S TATISTICS (#409.97) NEW | ||
3350 | "PKG",48,2 2,1,"PAH", 1,1,241,0) | ||
3351 | |||
3352 | "PKG",48,2 2,1,"PAH", 1,1,242,0) | ||
3353 | |||
3354 | "PKG",48,2 2,1,"PAH", 1,1,243,0) | ||
3355 | |||
3356 | "PKG",48,2 2,1,"PAH", 1,1,244,0) | ||
3357 | Templates, Sort Asso ciated: | ||
3358 | "PKG",48,2 2,1,"PAH", 1,1,245,0) | ||
3359 | |||
3360 | "PKG",48,2 2,1,"PAH", 1,1,246,0) | ||
3361 | New/Modifi ed/ | ||
3362 | "PKG",48,2 2,1,"PAH", 1,1,247,0) | ||
3363 | Template N ame Type File Name (Number) | ||
3364 | "PKG",48,2 2,1,"PAH", 1,1,248,0) | ||
3365 | Deleted | ||
3366 | "PKG",48,2 2,1,"PAH", 1,1,249,0) | ||
3367 | ---------- --- ---- --------- --------- | ||
3368 | "PKG",48,2 2,1,"PAH", 1,1,250,0) | ||
3369 | ---------- --- | ||
3370 | "PKG",48,2 2,1,"PAH", 1,1,251,0) | ||
3371 | SDEC AUDIT REPORT BY DATE Sort SDEC AUDI T STATISTI CS (#409.9 7) NEW | ||
3372 | "PKG",48,2 2,1,"PAH", 1,1,252,0) | ||
3373 | |||
3374 | "PKG",48,2 2,1,"PAH", 1,1,253,0) | ||
3375 | |||
3376 | "PKG",48,2 2,1,"PAH", 1,1,254,0) | ||
3377 | Additional Informati on: | ||
3378 | "PKG",48,2 2,1,"PAH", 1,1,255,0) | ||
3379 | N/A | ||
3380 | "PKG",48,2 2,1,"PAH", 1,1,256,0) | ||
3381 | |||
3382 | "PKG",48,2 2,1,"PAH", 1,1,257,0) | ||
3383 | |||
3384 | "PKG",48,2 2,1,"PAH", 1,1,258,0) | ||
3385 | New Servic e Requests (NSRs) | ||
3386 | "PKG",48,2 2,1,"PAH", 1,1,259,0) | ||
3387 | ---------- ---------- -------- | ||
3388 | "PKG",48,2 2,1,"PAH", 1,1,260,0) | ||
3389 | N/A | ||
3390 | "PKG",48,2 2,1,"PAH", 1,1,261,0) | ||
3391 | |||
3392 | "PKG",48,2 2,1,"PAH", 1,1,262,0) | ||
3393 | |||
3394 | "PKG",48,2 2,1,"PAH", 1,1,263,0) | ||
3395 | Patient Sa fety Issue s (PSIs) | ||
3396 | "PKG",48,2 2,1,"PAH", 1,1,264,0) | ||
3397 | ---------- ---------- --------- | ||
3398 | "PKG",48,2 2,1,"PAH", 1,1,265,0) | ||
3399 | N/A | ||
3400 | "PKG",48,2 2,1,"PAH", 1,1,266,0) | ||
3401 | |||
3402 | "PKG",48,2 2,1,"PAH", 1,1,267,0) | ||
3403 | |||
3404 | "PKG",48,2 2,1,"PAH", 1,1,268,0) | ||
3405 | Service De sk Manager (SDM) Tic ket(s) & O verview | ||
3406 | "PKG",48,2 2,1,"PAH", 1,1,269,0) | ||
3407 | ---------- ---------- ---------- ---------- ------- | ||
3408 | "PKG",48,2 2,1,"PAH", 1,1,270,0) | ||
3409 | 1. R181207 03FY18 Ca ncel Audit Data Erro r after se lecting AL L in Audit | ||
3410 | "PKG",48,2 2,1,"PAH", 1,1,271,0) | ||
3411 | Report | ||
3412 | "PKG",48,2 2,1,"PAH", 1,1,272,0) | ||
3413 | |||
3414 | "PKG",48,2 2,1,"PAH", 1,1,273,0) | ||
3415 | Problem: | ||
3416 | "PKG",48,2 2,1,"PAH", 1,1,274,0) | ||
3417 | ------- | ||
3418 | "PKG",48,2 2,1,"PAH", 1,1,275,0) | ||
3419 | In the Aud it Report, when the user choos es ALL in order to r un the rep ort | ||
3420 | "PKG",48,2 2,1,"PAH", 1,1,276,0) | ||
3421 | for | ||
3422 | "PKG",48,2 2,1,"PAH", 1,1,277,0) | ||
3423 | all schedu lers, the system han gs for sev eral minut es attempt ing to loa d | ||
3424 | "PKG",48,2 2,1,"PAH", 1,1,278,0) | ||
3425 | data, | ||
3426 | "PKG",48,2 2,1,"PAH", 1,1,279,0) | ||
3427 | then final ly returns an RPCExc eption whe n the conn ection tim es out. Th is | ||
3428 | "PKG",48,2 2,1,"PAH", 1,1,280,0) | ||
3429 | also | ||
3430 | "PKG",48,2 2,1,"PAH", 1,1,281,0) | ||
3431 | terminate' s the user 's connect ion to Vis tA until t hey close and reopen VS | ||
3432 | "PKG",48,2 2,1,"PAH", 1,1,282,0) | ||
3433 | GUI. | ||
3434 | "PKG",48,2 2,1,"PAH", 1,1,283,0) | ||
3435 | |||
3436 | "PKG",48,2 2,1,"PAH", 1,1,284,0) | ||
3437 | Resolution : | ||
3438 | "PKG",48,2 2,1,"PAH", 1,1,285,0) | ||
3439 | ---------- | ||
3440 | "PKG",48,2 2,1,"PAH", 1,1,286,0) | ||
3441 | The data f or the Aud it Report is now com piled by a nightly j ob so that | ||
3442 | "PKG",48,2 2,1,"PAH", 1,1,287,0) | ||
3443 | much | ||
3444 | "PKG",48,2 2,1,"PAH", 1,1,288,0) | ||
3445 | less data needs to b e transmit ted to the client in order to use the | ||
3446 | "PKG",48,2 2,1,"PAH", 1,1,289,0) | ||
3447 | report. | ||
3448 | "PKG",48,2 2,1,"PAH", 1,1,290,0) | ||
3449 | Users will now be ab le to run the report for all s chedulers without | ||
3450 | "PKG",48,2 2,1,"PAH", 1,1,291,0) | ||
3451 | encounteri ng the tim eout. | ||
3452 | "PKG",48,2 2,1,"PAH", 1,1,292,0) | ||
3453 | |||
3454 | "PKG",48,2 2,1,"PAH", 1,1,293,0) | ||
3455 | 2. R178569 00FY18, R1 8564968FY1 8, R186483 21FY18 Rea ctivating completed | ||
3456 | "PKG",48,2 2,1,"PAH", 1,1,294,0) | ||
3457 | consults | ||
3458 | "PKG",48,2 2,1,"PAH", 1,1,295,0) | ||
3459 | |||
3460 | "PKG",48,2 2,1,"PAH", 1,1,296,0) | ||
3461 | Problem: | ||
3462 | "PKG",48,2 2,1,"PAH", 1,1,297,0) | ||
3463 | ------- | ||
3464 | "PKG",48,2 2,1,"PAH", 1,1,298,0) | ||
3465 | If an appo intment is created f or a consu lt, then t he consult is marked as | ||
3466 | "PKG",48,2 2,1,"PAH", 1,1,299,0) | ||
3467 | complete, then final ly the app ointment i s canceled , the cons ult return s | ||
3468 | "PKG",48,2 2,1,"PAH", 1,1,300,0) | ||
3469 | to the | ||
3470 | "PKG",48,2 2,1,"PAH", 1,1,301,0) | ||
3471 | active sta tus instea d of remai ning compl ete. | ||
3472 | "PKG",48,2 2,1,"PAH", 1,1,302,0) | ||
3473 | |||
3474 | "PKG",48,2 2,1,"PAH", 1,1,303,0) | ||
3475 | Resolution : | ||
3476 | "PKG",48,2 2,1,"PAH", 1,1,304,0) | ||
3477 | ---------- | ||
3478 | "PKG",48,2 2,1,"PAH", 1,1,305,0) | ||
3479 | In this si tuation, t he consult will now remain in the comple te status. | ||
3480 | "PKG",48,2 2,1,"PAH", 1,1,306,0) | ||
3481 | |||
3482 | "PKG",48,2 2,1,"PAH", 1,1,307,0) | ||
3483 | 3. R174153 67FY18 Inc orrect loc k handling in RM Gri d | ||
3484 | "PKG",48,2 2,1,"PAH", 1,1,308,0) | ||
3485 | |||
3486 | "PKG",48,2 2,1,"PAH", 1,1,309,0) | ||
3487 | Problem: | ||
3488 | "PKG",48,2 2,1,"PAH", 1,1,310,0) | ||
3489 | ------- | ||
3490 | "PKG",48,2 2,1,"PAH", 1,1,311,0) | ||
3491 | When a use r selects a request in the RM grid, the request is locked un til | ||
3492 | "PKG",48,2 2,1,"PAH", 1,1,312,0) | ||
3493 | another re quest is s elected. I f the user exits the program, the lock i s | ||
3494 | "PKG",48,2 2,1,"PAH", 1,1,313,0) | ||
3495 | not | ||
3496 | "PKG",48,2 2,1,"PAH", 1,1,314,0) | ||
3497 | released. If a VistA user trie s to use t he previou sly locked request, they | ||
3498 | "PKG",48,2 2,1,"PAH", 1,1,315,0) | ||
3499 | will be pr evented fr om doing s o. (To exa cerbate th is, the GU I was not | ||
3500 | "PKG",48,2 2,1,"PAH", 1,1,316,0) | ||
3501 | handling | ||
3502 | "PKG",48,2 2,1,"PAH", 1,1,317,0) | ||
3503 | locks corr ectly and would give the lock to any use r that tri ed to get it | ||
3504 | "PKG",48,2 2,1,"PAH", 1,1,318,0) | ||
3505 | even | ||
3506 | "PKG",48,2 2,1,"PAH", 1,1,319,0) | ||
3507 | if another user held the lock, so this i ssue was n ot visible to GUI | ||
3508 | "PKG",48,2 2,1,"PAH", 1,1,320,0) | ||
3509 | users.) | ||
3510 | "PKG",48,2 2,1,"PAH", 1,1,321,0) | ||
3511 | |||
3512 | "PKG",48,2 2,1,"PAH", 1,1,322,0) | ||
3513 | Resolution : | ||
3514 | "PKG",48,2 2,1,"PAH", 1,1,323,0) | ||
3515 | ---------- | ||
3516 | "PKG",48,2 2,1,"PAH", 1,1,324,0) | ||
3517 | The reques t that a u ser had lo cked when they log o ut is now unlocked | ||
3518 | "PKG",48,2 2,1,"PAH", 1,1,325,0) | ||
3519 | correctly. In additi on, if a u ser tries to work a request in the GUI t hat | ||
3520 | "PKG",48,2 2,1,"PAH", 1,1,326,0) | ||
3521 | another us er has loc ked, they will recei ve a messa ge that th e request is | ||
3522 | "PKG",48,2 2,1,"PAH", 1,1,327,0) | ||
3523 | locked and which use r holds th e lock. Fi nally, a V istA optio n on the | ||
3524 | "PKG",48,2 2,1,"PAH", 1,1,328,0) | ||
3525 | Supervisor menu has been added that will release a ll locks h eld by a u ser. | ||
3526 | "PKG",48,2 2,1,"PAH", 1,1,329,0) | ||
3527 | |||
3528 | "PKG",48,2 2,1,"PAH", 1,1,330,0) | ||
3529 | 4. R170391 75FY18 Con sult looku p interact ion errors | ||
3530 | "PKG",48,2 2,1,"PAH", 1,1,331,0) | ||
3531 | |||
3532 | "PKG",48,2 2,1,"PAH", 1,1,332,0) | ||
3533 | Problem: | ||
3534 | "PKG",48,2 2,1,"PAH", 1,1,333,0) | ||
3535 | ------- | ||
3536 | "PKG",48,2 2,1,"PAH", 1,1,334,0) | ||
3537 | When using clinic lo okup in th e VS GUI, if the use r pauses t yping, the | ||
3538 | "PKG",48,2 2,1,"PAH", 1,1,335,0) | ||
3539 | input | ||
3540 | "PKG",48,2 2,1,"PAH", 1,1,336,0) | ||
3541 | is wiped o ut and has to be re- entered. A pop-up wi ndow appea rs if the | ||
3542 | "PKG",48,2 2,1,"PAH", 1,1,337,0) | ||
3543 | user's | ||
3544 | "PKG",48,2 2,1,"PAH", 1,1,338,0) | ||
3545 | input resu lts in mor e than 50 matches an d the inpu t is erase d. In | ||
3546 | "PKG",48,2 2,1,"PAH", 1,1,339,0) | ||
3547 | addtion, | ||
3548 | "PKG",48,2 2,1,"PAH", 1,1,340,0) | ||
3549 | the user c annot refi ne the lis t of clini cs returne d by typin g addition al | ||
3550 | "PKG",48,2 2,1,"PAH", 1,1,341,0) | ||
3551 | characters . | ||
3552 | "PKG",48,2 2,1,"PAH", 1,1,342,0) | ||
3553 | |||
3554 | "PKG",48,2 2,1,"PAH", 1,1,343,0) | ||
3555 | Resolution : | ||
3556 | "PKG",48,2 2,1,"PAH", 1,1,344,0) | ||
3557 | ---------- | ||
3558 | "PKG",48,2 2,1,"PAH", 1,1,345,0) | ||
3559 | GUI change s made, el iminating the pop-up window an d respondi ng to the | ||
3560 | "PKG",48,2 2,1,"PAH", 1,1,346,0) | ||
3561 | user's | ||
3562 | "PKG",48,2 2,1,"PAH", 1,1,347,0) | ||
3563 | input incl uding narr owing the list of re turned val ues when e ach additi onal | ||
3564 | "PKG",48,2 2,1,"PAH", 1,1,348,0) | ||
3565 | character is entered . A new RP C was crea ted for th e GUI to s upport thi s | ||
3566 | "PKG",48,2 2,1,"PAH", 1,1,349,0) | ||
3567 | change. Th e new RPC returns a more limit ed amount of data so that the | ||
3568 | "PKG",48,2 2,1,"PAH", 1,1,350,0) | ||
3569 | GUI can re spond more quickly t o the user 's input. | ||
3570 | "PKG",48,2 2,1,"PAH", 1,1,351,0) | ||
3571 | |||
3572 | "PKG",48,2 2,1,"PAH", 1,1,352,0) | ||
3573 | 5. R184776 70FY18 Rem ote facili ty not upd ated when appointmen ts made fo r | ||
3574 | "PKG",48,2 2,1,"PAH", 1,1,353,0) | ||
3575 | IFCs | ||
3576 | "PKG",48,2 2,1,"PAH", 1,1,354,0) | ||
3577 | |||
3578 | "PKG",48,2 2,1,"PAH", 1,1,355,0) | ||
3579 | Problem: | ||
3580 | "PKG",48,2 2,1,"PAH", 1,1,356,0) | ||
3581 | ------- | ||
3582 | "PKG",48,2 2,1,"PAH", 1,1,357,0) | ||
3583 | When sched uling an a ppointment for an IF C, the rem ote facili ty is not | ||
3584 | "PKG",48,2 2,1,"PAH", 1,1,358,0) | ||
3585 | notified. | ||
3586 | "PKG",48,2 2,1,"PAH", 1,1,359,0) | ||
3587 | RPC code f or VS GUI did not in clude func tionality in VistA S cheduling for | ||
3588 | "PKG",48,2 2,1,"PAH", 1,1,360,0) | ||
3589 | the | ||
3590 | "PKG",48,2 2,1,"PAH", 1,1,361,0) | ||
3591 | generation of IFC no tification s. | ||
3592 | "PKG",48,2 2,1,"PAH", 1,1,362,0) | ||
3593 | |||
3594 | "PKG",48,2 2,1,"PAH", 1,1,363,0) | ||
3595 | Resolution : | ||
3596 | "PKG",48,2 2,1,"PAH", 1,1,364,0) | ||
3597 | ---------- | ||
3598 | "PKG",48,2 2,1,"PAH", 1,1,365,0) | ||
3599 | Modified t he RPC cod e to call a VistA Sc heduling A PI that ge nerates IF C | ||
3600 | "PKG",48,2 2,1,"PAH", 1,1,366,0) | ||
3601 | notificati ons. | ||
3602 | "PKG",48,2 2,1,"PAH", 1,1,367,0) | ||
3603 | |||
3604 | "PKG",48,2 2,1,"PAH", 1,1,368,0) | ||
3605 | Test Sites : | ||
3606 | "PKG",48,2 2,1,"PAH", 1,1,369,0) | ||
3607 | ---------- | ||
3608 | "PKG",48,2 2,1,"PAH", 1,1,370,0) | ||
3609 | TBA | ||
3610 | "PKG",48,2 2,1,"PAH", 1,1,371,0) | ||
3611 | |||
3612 | "PKG",48,2 2,1,"PAH", 1,1,372,0) | ||
3613 | |||
3614 | "PKG",48,2 2,1,"PAH", 1,1,373,0) | ||
3615 | Documentat ion Retrie val Instru ctions | ||
3616 | "PKG",48,2 2,1,"PAH", 1,1,374,0) | ||
3617 | ---------- ---------- ---------- ------ | ||
3618 | "PKG",48,2 2,1,"PAH", 1,1,375,0) | ||
3619 | Updated do cumentatio n describi ng the new functiona lity intro duced by t his | ||
3620 | "PKG",48,2 2,1,"PAH", 1,1,376,0) | ||
3621 | patch is a vailable. | ||
3622 | "PKG",48,2 2,1,"PAH", 1,1,377,0) | ||
3623 | |||
3624 | "PKG",48,2 2,1,"PAH", 1,1,378,0) | ||
3625 | The prefer red method is to FTP the files from | ||
3626 | "PKG",48,2 2,1,"PAH", 1,1,379,0) | ||
3627 | DNS.URL/. | ||
3628 | "PKG",48,2 2,1,"PAH", 1,1,380,0) | ||
3629 | This trans mits the f iles from the first available FTP server . Sites ma y | ||
3630 | "PKG",48,2 2,1,"PAH", 1,1,381,0) | ||
3631 | also elect to retrie ve softwar e directly from a sp ecific ser ver as | ||
3632 | "PKG",48,2 2,1,"PAH", 1,1,382,0) | ||
3633 | follows: | ||
3634 | "PKG",48,2 2,1,"PAH", 1,1,383,0) | ||
3635 | .DNS .URL > | ||
3636 | "PKG",48,2 2,1,"PAH", 1,1,385,0) DNS.URL > | ||
3637 | "PKG",48,2 2,1,"PAH", 1,1,386,0) | ||
3638 | |||
3639 | "PKG",48,2 2,1,"PAH", 1,1,387,0) | ||
3640 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | ||
3641 | "PKG",48,2 2,1,"PAH", 1,1,388,0) | ||
3642 | at: | ||
3643 | "PKG",48,2 2,1,"PAH", 1,1,389,0) | ||
3644 | http:// DNS.URL / | ||
3645 | "PKG",48,2 2,1,"PAH", 1,1,390,0) | ||
3646 | |||
3647 | "PKG",48,2 2,1,"PAH", 1,1,391,0) | ||
3648 | Title Fil e Name FTP Mode | ||
3649 | "PKG",48,2 2,1,"PAH", 1,1,392,0) | ||
3650 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- ---- | ||
3651 | "PKG",48,2 2,1,"PAH", 1,1,393,0) | ||
3652 | VistA Sche duling Enh ancements GUI User G uide VSE _VA_GUI_UG .PDF Bina ry | ||
3653 | "PKG",48,2 2,1,"PAH", 1,1,394,0) | ||
3654 | VistA Sche duling Enh ancements Technical Manual VSE _TM.PDF Bina ry | ||
3655 | "PKG",48,2 2,1,"PAH", 1,1,395,0) | ||
3656 | |||
3657 | "PKG",48,2 2,1,"PAH", 1,1,396,0) | ||
3658 | |||
3659 | "PKG",48,2 2,1,"PAH", 1,1,397,0) | ||
3660 | Patch Inst allation: | ||
3661 | "PKG",48,2 2,1,"PAH", 1,1,398,0) | ||
3662 | |||
3663 | "PKG",48,2 2,1,"PAH", 1,1,399,0) | ||
3664 | |||
3665 | "PKG",48,2 2,1,"PAH", 1,1,400,0) | ||
3666 | Pre/Post I nstallatio n Overview | ||
3667 | "PKG",48,2 2,1,"PAH", 1,1,401,0) | ||
3668 | ---------- ---------- ---------- | ||
3669 | "PKG",48,2 2,1,"PAH", 1,1,402,0) | ||
3670 | Post-insta llation, t here are 3 tasks: 1) re-index the SDEC C ONTACT fil e, | ||
3671 | "PKG",48,2 2,1,"PAH", 1,1,403,0) | ||
3672 | 2) schedul e the audi t statisti cs compile r to run e arly each morning in | ||
3673 | "PKG",48,2 2,1,"PAH", 1,1,404,0) | ||
3674 | TaskMan an d 3) compi le enough previous a udit stati stics for reporting | ||
3675 | "PKG",48,2 2,1,"PAH", 1,1,405,0) | ||
3676 | users. | ||
3677 | "PKG",48,2 2,1,"PAH", 1,1,406,0) | ||
3678 | These task s will be detailed i n the Post -Installat ion Instru ctions | ||
3679 | "PKG",48,2 2,1,"PAH", 1,1,407,0) | ||
3680 | section. | ||
3681 | "PKG",48,2 2,1,"PAH", 1,1,408,0) | ||
3682 | |||
3683 | "PKG",48,2 2,1,"PAH", 1,1,409,0) | ||
3684 | Installati on Instruc tions | ||
3685 | "PKG",48,2 2,1,"PAH", 1,1,410,0) | ||
3686 | ---------- ---------- ----- | ||
3687 | "PKG",48,2 2,1,"PAH", 1,1,411,0) | ||
3688 | Install Ti me - less than 5 min utes. | ||
3689 | "PKG",48,2 2,1,"PAH", 1,1,412,0) | ||
3690 | |||
3691 | "PKG",48,2 2,1,"PAH", 1,1,413,0) | ||
3692 | 1. Use the INSTAL L/CHECK ME SSAGE opti on on the PackMan me nu. | ||
3693 | "PKG",48,2 2,1,"PAH", 1,1,414,0) | ||
3694 | |||
3695 | "PKG",48,2 2,1,"PAH", 1,1,415,0) | ||
3696 | 2. From the Kerne l Installa tion & Dis tribution System men u, select | ||
3697 | "PKG",48,2 2,1,"PAH", 1,1,416,0) | ||
3698 | the Installati on menu. | ||
3699 | "PKG",48,2 2,1,"PAH", 1,1,417,0) | ||
3700 | |||
3701 | "PKG",48,2 2,1,"PAH", 1,1,418,0) | ||
3702 | 3. From this menu , you may select to use the fo llowing op tions | ||
3703 | "PKG",48,2 2,1,"PAH", 1,1,419,0) | ||
3704 | (whe n prompted for INSTA LL NAME, e nter SD*5. 3*686): | ||
3705 | "PKG",48,2 2,1,"PAH", 1,1,420,0) | ||
3706 | a. Verify Checksums in Transp ort Global - This op tion will | ||
3707 | "PKG",48,2 2,1,"PAH", 1,1,421,0) | ||
3708 | allow | ||
3709 | "PKG",48,2 2,1,"PAH", 1,1,422,0) | ||
3710 | you to ensure th e integrit y of the r outines th at are in the | ||
3711 | "PKG",48,2 2,1,"PAH", 1,1,423,0) | ||
3712 | transp ort global . | ||
3713 | "PKG",48,2 2,1,"PAH", 1,1,424,0) | ||
3714 | b. Print Transport Global - T his option will allo w you to v iew | ||
3715 | "PKG",48,2 2,1,"PAH", 1,1,425,0) | ||
3716 | the co mponents o f the KIDS build. | ||
3717 | "PKG",48,2 2,1,"PAH", 1,1,426,0) | ||
3718 | c. Compar e Transpor t Global t o Current System - T his option | ||
3719 | "PKG",48,2 2,1,"PAH", 1,1,427,0) | ||
3720 | will | ||
3721 | "PKG",48,2 2,1,"PAH", 1,1,428,0) | ||
3722 | allow you to vie w all chan ges that w ill be mad e when thi s | ||
3723 | "PKG",48,2 2,1,"PAH", 1,1,429,0) | ||
3724 | patch is install ed. It co mpares all component s of this | ||
3725 | "PKG",48,2 2,1,"PAH", 1,1,430,0) | ||
3726 | patch (routines, DD's, tem plates, et c.). | ||
3727 | "PKG",48,2 2,1,"PAH", 1,1,431,0) | ||
3728 | d. Backup a Transpo rt Global - This opt ion will c reate a ba ckup | ||
3729 | "PKG",48,2 2,1,"PAH", 1,1,432,0) | ||
3730 | messag e of any r outines ex ported wit h this pat ch. It wil l | ||
3731 | "PKG",48,2 2,1,"PAH", 1,1,433,0) | ||
3732 | not | ||
3733 | "PKG",48,2 2,1,"PAH", 1,1,434,0) | ||
3734 | backup any other changes s uch as DD' s or templ ates. | ||
3735 | "PKG",48,2 2,1,"PAH", 1,1,435,0) | ||
3736 | |||
3737 | "PKG",48,2 2,1,"PAH", 1,1,436,0) | ||
3738 | 4. Use the Instal l Package( s) option and select the packa ge SD*5.3* 686. | ||
3739 | "PKG",48,2 2,1,"PAH", 1,1,437,0) | ||
3740 | |||
3741 | "PKG",48,2 2,1,"PAH", 1,1,438,0) | ||
3742 | 5. When prompted "Want KIDS to INHIBI T LOGONs d uring the install? N O//" | ||
3743 | "PKG",48,2 2,1,"PAH", 1,1,439,0) | ||
3744 | resp ond NO. | ||
3745 | "PKG",48,2 2,1,"PAH", 1,1,440,0) | ||
3746 | 6. When prompted "Want to D ISABLE Sch eduled Opt ions, Menu Options, and | ||
3747 | "PKG",48,2 2,1,"PAH", 1,1,441,0) | ||
3748 | Prot ocols? NO/ /", respon d NO | ||
3749 | "PKG",48,2 2,1,"PAH", 1,1,442,0) | ||
3750 | |||
3751 | "PKG",48,2 2,1,"PAH", 1,1,443,0) | ||
3752 | Post-Insta llation In structions | ||
3753 | "PKG",48,2 2,1,"PAH", 1,1,444,0) | ||
3754 | ---------- ---------- ---------- | ||
3755 | "PKG",48,2 2,1,"PAH", 1,1,445,0) | ||
3756 | 1. RE-IND EX THE SDE C CONTACT FILE | ||
3757 | "PKG",48,2 2,1,"PAH", 1,1,446,0) | ||
3758 | ------ ---------- ---------- ---- | ||
3759 | "PKG",48,2 2,1,"PAH", 1,1,447,0) | ||
3760 | VA Fil eMan 22.2 | ||
3761 | "PKG",48,2 2,1,"PAH", 1,1,448,0) | ||
3762 | |||
3763 | "PKG",48,2 2,1,"PAH", 1,1,449,0) | ||
3764 | Select OPTION: U TILITY FUN CTIONS | ||
3765 | "PKG",48,2 2,1,"PAH", 1,1,450,0) | ||
3766 | - --- | ||
3767 | "PKG",48,2 2,1,"PAH", 1,1,451,0) | ||
3768 | |||
3769 | "PKG",48,2 2,1,"PAH", 1,1,452,0) | ||
3770 | Select UTILITY O PTION: 4 RE-INDEX F ILE | ||
3771 | "PKG",48,2 2,1,"PAH", 1,1,453,0) | ||
3772 | - | ||
3773 | "PKG",48,2 2,1,"PAH", 1,1,454,0) | ||
3774 | |||
3775 | "PKG",48,2 2,1,"PAH", 1,1,455,0) | ||
3776 | MODIFY WHAT FILE : SD Audit Statistic s// 409.86 SDEC CON TACT | ||
3777 | "PKG",48,2 2,1,"PAH", 1,1,456,0) | ||
3778 | ------ | ||
3779 | "PKG",48,2 2,1,"PAH", 1,1,457,0) | ||
3780 | (0 e ntries) | ||
3781 | "PKG",48,2 2,1,"PAH", 1,1,458,0) | ||
3782 | |||
3783 | "PKG",48,2 2,1,"PAH", 1,1,459,0) | ||
3784 | THERE ARE 3 INDI CES WITHIN THIS FILE | ||
3785 | "PKG",48,2 2,1,"PAH", 1,1,460,0) | ||
3786 | DO YOU WISH TO R E-CROSS-RE FERENCE ON E PARTICUL AR INDEX? No// Y (Y es) | ||
3787 | "PKG",48,2 2,1,"PAH", 1,1,461,0) | ||
3788 | - | ||
3789 | "PKG",48,2 2,1,"PAH", 1,1,462,0) | ||
3790 | |||
3791 | "PKG",48,2 2,1,"PAH", 1,1,463,0) | ||
3792 | What t ype of cro ss-referen ce (Tradit ional or N ew)? Tradi tional// N EW | ||
3793 | "PKG",48,2 2,1,"PAH", 1,1,464,0) | ||
3794 | - -- | ||
3795 | "PKG",48,2 2,1,"PAH", 1,1,465,0) | ||
3796 | |||
3797 | "PKG",48,2 2,1,"PAH", 1,1,466,0) | ||
3798 | File: SDEC CONTA CT (#409.8 6) | ||
3799 | "PKG",48,2 2,1,"PAH", 1,1,467,0) | ||
3800 | Select Subfile: 3 DATE/TI ME of CONT ACT (Subf ile #409.8 63) | ||
3801 | "PKG",48,2 2,1,"PAH", 1,1,468,0) | ||
3802 | - | ||
3803 | "PKG",48,2 2,1,"PAH", 1,1,469,0) | ||
3804 | |||
3805 | "PKG",48,2 2,1,"PAH", 1,1,470,0) | ||
3806 | Curren t Indexes on subfile #409.863: | ||
3807 | "PKG",48,2 2,1,"PAH", 1,1,471,0) | ||
3808 | 1404 'AD' wh ole file i ndex (resi des on fil e #409.86) | ||
3809 | "PKG",48,2 2,1,"PAH", 1,1,472,0) | ||
3810 | |||
3811 | "PKG",48,2 2,1,"PAH", 1,1,473,0) | ||
3812 | Which Index do y ou wish to re-cross- reference? 1404// AD | ||
3813 | "PKG",48,2 2,1,"PAH", 1,1,474,0) | ||
3814 | -- | ||
3815 | "PKG",48,2 2,1,"PAH", 1,1,475,0) | ||
3816 | |||
3817 | "PKG",48,2 2,1,"PAH", 1,1,476,0) | ||
3818 | Do you want to d elete the existing ' AD' cross- reference? YES | ||
3819 | "PKG",48,2 2,1,"PAH", 1,1,477,0) | ||
3820 | --- | ||
3821 | "PKG",48,2 2,1,"PAH", 1,1,478,0) | ||
3822 | Do you want to r e-build th e 'AD' cro ss referen ce? YES . ..DONE! | ||
3823 | "PKG",48,2 2,1,"PAH", 1,1,479,0) | ||
3824 | --- | ||
3825 | "PKG",48,2 2,1,"PAH", 1,1,480,0) | ||
3826 | |||
3827 | "PKG",48,2 2,1,"PAH", 1,1,481,0) | ||
3828 | 2. SCHEDU LE THE AUD IT REPORT JOB | ||
3829 | "PKG",48,2 2,1,"PAH", 1,1,482,0) | ||
3830 | ------ ---------- ---------- --- | ||
3831 | "PKG",48,2 2,1,"PAH", 1,1,483,0) | ||
3832 | Access the TASKM AN MANAGEM ENT option then sele ct Schedul e/Unschedu le | ||
3833 | "PKG",48,2 2,1,"PAH", 1,1,484,0) | ||
3834 | option s. Schedul e the SDEC AUDIT REP ORT JOB op tion to ru n at some | ||
3835 | "PKG",48,2 2,1,"PAH", 1,1,485,0) | ||
3836 | point | ||
3837 | "PKG",48,2 2,1,"PAH", 1,1,486,0) | ||
3838 | in the early mor ning tomor row (such as 1:00 am ) with a r eschedulin g | ||
3839 | "PKG",48,2 2,1,"PAH", 1,1,487,0) | ||
3840 | freque ncy of one day (1D). | ||
3841 | "PKG",48,2 2,1,"PAH", 1,1,488,0) | ||
3842 | |||
3843 | "PKG",48,2 2,1,"PAH", 1,1,489,0) | ||
3844 | 3. COMPIL E DATA FOR THE AUDIT REPORT | ||
3845 | "PKG",48,2 2,1,"PAH", 1,1,490,0) | ||
3846 | ------ ---------- ---------- ------- | ||
3847 | "PKG",48,2 2,1,"PAH", 1,1,491,0) | ||
3848 | Access the SDEC COMPILE AU DIT REPORT option. E nter the d ate range | ||
3849 | "PKG",48,2 2,1,"PAH", 1,1,492,0) | ||
3850 | that | ||
3851 | "PKG",48,2 2,1,"PAH", 1,1,493,0) | ||
3852 | you wa nt to be a ble to rep ort statis tics for. | ||
3853 | "PKG",48,2 2,1,"PAH", 1,1,494,0) | ||
3854 | |||
3855 | "PKG",48,2 2,1,"PAH", 1,1,495,0) | ||
3856 | NOTE: You can ru n the opti on as many times as needed to compile th e | ||
3857 | "PKG",48,2 2,1,"PAH", 1,1,496,0) | ||
3858 | report statistic s. Compili ng will be skipped i f it has a lready bee n | ||
3859 | "PKG",48,2 2,1,"PAH", 1,1,497,0) | ||
3860 | done | ||
3861 | "PKG",48,2 2,1,"PAH", 1,1,498,0) | ||
3862 | for a day. It is recommend ed that yo u compile a single d ay the fir st | ||
3863 | "PKG",48,2 2,1,"PAH", 1,1,499,0) | ||
3864 | time | ||
3865 | "PKG",48,2 2,1,"PAH", 1,1,500,0) | ||
3866 | you us e the opti on to gaug e the amou nt of time required at your | ||
3867 | "PKG",48,2 2,1,"PAH", 1,1,501,0) | ||
3868 | facility. | ||
3869 | "PKG",48,2 2,1,"PAH", 1,1,502,0) | ||
3870 | Compil ing audit statistics can be do ne at any time after installat ion | ||
3871 | "PKG",48,2 2,1,"PAH", 1,1,503,0) | ||
3872 | that | ||
3873 | "PKG",48,2 2,1,"PAH", 1,1,504,0) | ||
3874 | is con venient, b ut users w ill only b e able to get data o n the audi t | ||
3875 | "PKG",48,2 2,1,"PAH", 1,1,505,0) | ||
3876 | report that has been compi led. | ||
3877 | "QUES","XP F1",0) | ||
3878 | Y | ||
3879 | "QUES","XP F1","??") | ||
3880 | ^D REP^XPD H | ||
3881 | "QUES","XP F1","A") | ||
3882 | Shall I wr ite over y our |FLAG| File | ||
3883 | "QUES","XP F1","B") | ||
3884 | YES | ||
3885 | "QUES","XP F1","M") | ||
3886 | D XPF1^XPD IQ | ||
3887 | "QUES","XP F2",0) | ||
3888 | Y | ||
3889 | "QUES","XP F2","??") | ||
3890 | ^D DTA^XPD H | ||
3891 | "QUES","XP F2","A") | ||
3892 | Want my da ta |FLAG| yours | ||
3893 | "QUES","XP F2","B") | ||
3894 | YES | ||
3895 | "QUES","XP F2","M") | ||
3896 | D XPF2^XPD IQ | ||
3897 | "QUES","XP I1",0) | ||
3898 | YO | ||
3899 | "QUES","XP I1","??") | ||
3900 | ^D INHIBIT ^XPDH | ||
3901 | "QUES","XP I1","A") | ||
3902 | Want KIDS to INHIBIT LOGONs du ring the i nstall | ||
3903 | "QUES","XP I1","B") | ||
3904 | NO | ||
3905 | "QUES","XP I1","M") | ||
3906 | D XPI1^XPD IQ | ||
3907 | "QUES","XP M1",0) | ||
3908 | PO^VA(200, :EM | ||
3909 | "QUES","XP M1","??") | ||
3910 | ^D MG^XPDH | ||
3911 | "QUES","XP M1","A") | ||
3912 | Enter the Coordinato r for Mail Group '|F LAG|' | ||
3913 | "QUES","XP M1","B") | ||
3914 | |||
3915 | "QUES","XP M1","M") | ||
3916 | D XPM1^XPD IQ | ||
3917 | "QUES","XP O1",0) | ||
3918 | Y | ||
3919 | "QUES","XP O1","??") | ||
3920 | ^D MENU^XP DH | ||
3921 | "QUES","XP O1","A") | ||
3922 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install | ||
3923 | "QUES","XP O1","B") | ||
3924 | YES | ||
3925 | "QUES","XP O1","M") | ||
3926 | D XPO1^XPD IQ | ||
3927 | "QUES","XP Z1",0) | ||
3928 | Y | ||
3929 | "QUES","XP Z1","??") | ||
3930 | ^D OPT^XPD H | ||
3931 | "QUES","XP Z1","A") | ||
3932 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls | ||
3933 | "QUES","XP Z1","B") | ||
3934 | NO | ||
3935 | "QUES","XP Z1","M") | ||
3936 | D XPZ1^XPD IQ | ||
3937 | "QUES","XP Z2",0) | ||
3938 | Y | ||
3939 | "QUES","XP Z2","??") | ||
3940 | ^D RTN^XPD H | ||
3941 | "QUES","XP Z2","A") | ||
3942 | Want to MO VE routine s to other CPUs | ||
3943 | "QUES","XP Z2","B") | ||
3944 | NO | ||
3945 | "QUES","XP Z2","M") | ||
3946 | D XPZ2^XPD IQ | ||
3947 | "RTN") | ||
3948 | 11 | ||
3949 | "RTN","SDC NSLT") | ||
3950 | 0^9^B45406 127^B41631 358 | ||
3951 | "RTN","SDC NSLT",1,0) | ||
3952 | SDCNSLT ;A LB/HAG - L INK APPOIN TMENTS TO CONSULTS ; JAN 15, 20 16 | ||
3953 | "RTN","SDC NSLT",2,0) | ||
3954 | ;;5.3;Sch eduling;** 478,496,63 0,627,686* *;Aug 13, 1993;Build 39 | ||
3955 | "RTN","SDC NSLT",3,0) | ||
3956 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | ||
3957 | "RTN","SDC NSLT",4,0) | ||
3958 | A ;===GET ACTIVE AND PENDING C ONSULT | ||
3959 | "RTN","SDC NSLT",5,0) | ||
3960 | N A,ND,CN T,CONS,CPR STAT,DTENT R,DTIN,DTL MT,DTR,NOS ,NOSHOW,SE NDER,SERVI CE,SRV,P8, PROC,PT,PT NM,STATUS | ||
3961 | "RTN","SDC NSLT",6,0) | ||
3962 | K TMP S N OSHOW="no- show",CNT= 0,$P(DSH," -",IOM-1)= "",PT=DFN, X1=DT,X2=- 365 D C^%D TC S DTLMT =X | ||
3963 | "RTN","SDC NSLT",7,0) | ||
3964 | S A=":" F S A=$O(^ GMR(123,"F ",PT,A),-1 ) Q:'+A S ND=$G(^GM R(123,A,0) ) Q:ND="" S PROC=$P ($G(^GMR(1 23,A,1.11) ),U),DTENT R=$P(ND,U) I DTENTR> DTLMT S CP RSTAT=$P(N D,U,12) D: CPRSTAT=5! (CPRSTAT=6 )!(CPRSTAT =8)!(CPRST AT=13) | ||
3965 | "RTN","SDC NSLT",8,0) | ||
3966 | .Q:$D(^XT MP("SDECLK C-"_A)) ; do not dis play consu lt if lock ed by VS G UI ;alb/s at 627 | ||
3967 | "RTN","SDC NSLT",9,0) | ||
3968 | .I STPCOD '="" S SRV =$P(ND,U,5 ) Q:'+SRV I $D(^GMR (123.5,"AB 1",STPCOD, SRV)) S PT IEN=$P(ND, U,2) D | ||
3969 | "RTN","SDC NSLT",10,0 ) | ||
3970 | ..I CPRST AT=8 S SHO W=0 Q:$D(^ SC("AWAS1" ,A)) S NO S=$O(^GMR( 123,A,40," :"),-1) Q: '+NOS S X 2=$P($G(^G MR(123,A,4 0,NOS,0)), U),X1=DT D ^%DTC Q:X '=""&(X>18 0) D SCHE D(PTIEN,ST PCOD,.SHOW ) Q:'SHOW | ||
3971 | "RTN","SDC NSLT",11,0 ) | ||
3972 | ..;CPRSTA T 13 is a cancel | ||
3973 | "RTN","SDC NSLT",12,0 ) | ||
3974 | ..I CPRST AT=13 S NO S=$O(^GMR( 123,A,40," :"),-1) Q: '+NOS S N OS=$O(^GMR (123,A,40, NOS),-1) Q :'+NOS S X2=$P($G(^ GMR(123,A, 40,NOS,0)) ,U),X1=DT D ^%DTC Q: X'=""&(X>1 80) S COM MENT=$G(^G MR(123,A,4 0,NOS,1,1, 0)) Q:COMM ENT'[NOSHO W | ||
3975 | "RTN","SDC NSLT",13,0 ) | ||
3976 | ..S:+PTIE N PTNM=$P( ^DPT(PTIEN ,0),U) S S ERVICE=$P( ^GMR(123.5 ,SRV,0),U) ,STATUS=$P (^ORD(100. 01,CPRSTAT ,0),U),SEN DER=$P(ND, U,14) S:+S ENDER SEND ER=$P(^VA( 200,SENDER ,0),U) | ||
3977 | "RTN","SDC NSLT",14,0 ) | ||
3978 | ..S Y=DTE NTR D DD^% DT S DTIN= Y,DTR=$E(D TENTR,4,5) _"/"_$E(DT ENTR,6,7)_ "/"_$E(DTE NTR,2,3)_" @"_$P(Y,"@ ",2) | ||
3979 | "RTN","SDC NSLT",15,0 ) | ||
3980 | ..S CNT=C NT+1,TMP(C NT)=PTIEN_ U_SERVICE_ U_SENDER_U _STATUS_U_ DTR_U_A_U_ DTIN_U_$P( ND,U,17)_U _PROC | ||
3981 | "RTN","SDC NSLT",16,0 ) | ||
3982 | Q:'$D(TMP ) | ||
3983 | "RTN","SDC NSLT",17,0 ) | ||
3984 | QST N DIR, DTOUT,DUOU T,CNSULT | ||
3985 | "RTN","SDC NSLT",18,0 ) | ||
3986 | S DIR(0)= "Y",DIR("A ")="Will t his appoin tment be f or a CONSU LT/PROCEDU RE",DIR("B ")="YES",D IR("?")="A nswer 'Y'e s if appoi ntment is for a Cons ult or Pro cedure." W ! D ^DIR S CNSULT=Y | ||
3987 | "RTN","SDC NSLT",19,0 ) | ||
3988 | I CNSULT[ U!(CNSULT= 0)!(CNSULT ="") K TMP Q | ||
3989 | "RTN","SDC NSLT",20,0 ) | ||
3990 | HDR W !!," Please sel ect from t he list of consult(s ), press 0 for none. ",! ;LLS 0 5-JAN-2015 SD*5.3*63 0 | ||
3991 | "RTN","SDC NSLT",21,0 ) | ||
3992 | W !,PTNM, !!,"# Serv ice",?68," Cons #",!, DSH ;LLS 0 5-JAN-2015 SD*5.3*63 0 | ||
3993 | "RTN","SDC NSLT",22,0 ) | ||
3994 | S A=0 F S A=$O(TMP (A)) Q:'+A S ND=TMP (A),P8=$P( ND,U,8) D ;LLS 05-J AN-2015 SD *5.3*630 | ||
3995 | "RTN","SDC NSLT",23,0 ) | ||
3996 | . W !,A," .",?3,$S(P 8="P":$E($ P(ND,U,9), 1,63),1:$E ($P(ND,U,2 ),1,63)),? 68,$P(ND,U ,6) W !,?4 ,"Request DT: ",$E($ P(ND,U,5), 1,14),?31, "FROM: ",$ E($P(ND,U, 3),1,33),? 71,"TYPE: ",$S(P8="P ":"P",P8=" C":"C",1:" ") ;LLS 05 -JAN-2015 SD*5.3*630 | ||
3997 | "RTN","SDC NSLT",24,0 ) | ||
3998 | W ! | ||
3999 | "RTN","SDC NSLT",25,0 ) | ||
4000 | READ R !," Select Con sult: ",CO NS:DTIME G :CONS="" A | ||
4001 | "RTN","SDC NSLT",26,0 ) | ||
4002 | I CONS=0! (CONS[U) W " ... NON E." K TMP Q | ||
4003 | "RTN","SDC NSLT",27,0 ) | ||
4004 | I "? "[CO NS W !," S elect cons ult by num ber on the left side ." G READ | ||
4005 | "RTN","SDC NSLT",28,0 ) | ||
4006 | I '$D(TMP (CONS)) W *7," ?? Se lect consu lt by numb er on the left side. " G READ | ||
4007 | "RTN","SDC NSLT",29,0 ) | ||
4008 | S CNSLTLN K=$P(TMP(C ONS),U,6) | ||
4009 | "RTN","SDC NSLT",30,0 ) | ||
4010 | Q | ||
4011 | "RTN","SDC NSLT",31,0 ) | ||
4012 | SCHED(PTIE N,STPCOD,S HOW) ;===C ONSULT IS SCHEDULE N OW CHECK I F IT HAS A PPOINTMENT BY STOP C ODE. | ||
4013 | "RTN","SDC NSLT",32,0 ) | ||
4014 | N APT,CLN C,B,S1,S2, S3,S4,STOP ,STOPCOD,X ,Y | ||
4015 | "RTN","SDC NSLT",33,0 ) | ||
4016 | S %DT="ST ",X="T-1" D ^%DT S A PT=Y,S1=0, STOP=0 F S APT=$O(^ DPT(PTIEN, "S",APT)) Q:'+APT!(S TOP) S S1 =1,CLNC=$P (^DPT(PTIE N,"S",APT, 0),U) I CL NC'="" S S TOPCOD=$P( ^SC(CLNC,0 ),U,7) I S TOPCOD'="" S S2=0 I STOPCOD=ST PCOD S S2= 1 D | ||
4017 | "RTN","SDC NSLT",34,0 ) | ||
4018 | .S S3=0,S 4=0,B=0 F S B=$O(^S C(CLNC,"S" ,APT,1,B)) Q:'+B!(ST OP) S S3= 1 D | ||
4019 | "RTN","SDC NSLT",35,0 ) | ||
4020 | ..I ($P($ G(^SC(CLNC ,"S",APT,1 ,B,0)),U)= PTIEN) S S 4=1,STOP=1 ,SHOW=0 | ||
4021 | "RTN","SDC NSLT",36,0 ) | ||
4022 | I S1=0 S SHOW=1 Q ;show if n o appointm ent in the patient s ide | ||
4023 | "RTN","SDC NSLT",37,0 ) | ||
4024 | I S2=0 S SHOW=1 Q ;show if s top code d oes not ma tch | ||
4025 | "RTN","SDC NSLT",38,0 ) | ||
4026 | I S3=0 S SHOW=1 Q ;show if n o appointm ent in the clinic | ||
4027 | "RTN","SDC NSLT",39,0 ) | ||
4028 | I S4=0 S SHOW=1 Q ;show if p atient doe s not matc h in appoi ntment | ||
4029 | "RTN","SDC NSLT",40,0 ) | ||
4030 | Q | ||
4031 | "RTN","SDC NSLT",41,0 ) | ||
4032 | LINK(SC,SD Y,SD,CNSLT LNK) ;===L INK APPOIN TMENT TO C ONSULT | ||
4033 | "RTN","SDC NSLT",42,0 ) | ||
4034 | N DA,DIE, DR,TDA,X | ||
4035 | "RTN","SDC NSLT",43,0 ) | ||
4036 | S TDA=SDY ,DA(2)=SC, DA(1)=SD,D A=TDA,DIE= "^SC("_DA( 2)_",""S"" ,"_DA(1)_" ,1,",DR="6 88////^S X =CNSLTLNK" D ^DIE | ||
4037 | "RTN","SDC NSLT",44,0 ) | ||
4038 | Q | ||
4039 | "RTN","SDC NSLT",45,0 ) | ||
4040 | EDITCS(SD, TMPD,TMPYC LNC,CNSLTL NK) ;===MA RK CONSULT AS SCHEDU LED | ||
4041 | "RTN","SDC NSLT",46,0 ) | ||
4042 | N CSCHDT, SNDPRV,TME ,X,Y,COMME NT,ER | ||
4043 | "RTN","SDC NSLT",47,0 ) | ||
4044 | S %DT="ST ",X="NOW" D ^%DT S C SCHDT=Y | ||
4045 | "RTN","SDC NSLT",48,0 ) | ||
4046 | S SNDPRV= $P($G(^GMR (123,CNSLT LNK,0)),U, 14),Y=SD D DD^%DT S TME=$P($P( Y,"@",2)," :",1,2) | ||
4047 | "RTN","SDC NSLT",49,0 ) | ||
4048 | S COMMENT (1)=$P(TMP YCLNC,U,2) _" Consult Appt. on "_$E(SD,4, 5)_"/"_$E( SD,6,7)_"/ "_$E(SD,2, 3)_" @ "_T ME | ||
4049 | "RTN","SDC NSLT",50,0 ) | ||
4050 | S COMMENT (2)=TMPD | ||
4051 | "RTN","SDC NSLT",51,0 ) | ||
4052 | D SCH^SDQ QCN2(.ER,C NSLTLNK,SN DPRV,CSCHD T,0,,.COMM ENT) K COM MENT | ||
4053 | "RTN","SDC NSLT",52,0 ) | ||
4054 | Q | ||
4055 | "RTN","SDC NSLT",53,0 ) | ||
4056 | SDECCAN(SC LNK,SCSNOD ,SDTTM,SDS C,SDWH,SDP L,SDECNOTE ) ; patch 686 wtc/ze b 3.21.18 cancel con sult appoi ntment. c alled from SDEC07A. | ||
4057 | "RTN","SDC NSLT",54,0 ) | ||
4058 | S SNDPRV= $P($G(^GMR (123,SCLNK ,0)),U,14) ; | ||
4059 | "RTN","SDC NSLT",55,0 ) | ||
4060 | ; | ||
4061 | "RTN","SDC NSLT",56,0 ) | ||
4062 | CANCEL ;== =appt was cancelled then mark consult as edit/resu bmit, add comment. | ||
4063 | "RTN","SDC NSLT",57,0 ) | ||
4064 | N APPT,CO NSULT,CPRS STAT,ER,GM 40,GMRND,S DPATNT,USE R,SNDPRV,J | ||
4065 | "RTN","SDC NSLT",58,0 ) | ||
4066 | ;Variable s CNDIE, C NDA and CN INDX used in calling routine f or Cancel letter pri nted comme nt in cons ult. | ||
4067 | "RTN","SDC NSLT",59,0 ) | ||
4068 | ;TMPD is assumed by the exist ing code | ||
4069 | "RTN","SDC NSLT",60,0 ) | ||
4070 | S:$D(SDEC NOTE) TMPD =SDECNOTE_ $S($D(TMPD ):"; ",1:" ")_$G(TMPD ) ;*zeb 68 6 10/30/18 keep canc el comment from GUI | ||
4071 | "RTN","SDC NSLT",61,0 ) | ||
4072 | S:$D(SCLN K) CONSULT =SCLNK | ||
4073 | "RTN","SDC NSLT",62,0 ) | ||
4074 | S:'$D(SCL NK) CONSUL T=$P($G(^S C(SDSC,"S" ,SDTTM,1,S DPL,"CONS" )),U) | ||
4075 | "RTN","SDC NSLT",63,0 ) | ||
4076 | Q:'+CONSU LT | ||
4077 | "RTN","SDC NSLT",64,0 ) | ||
4078 | S:$D(SCSN OD) SDPATN T=$P(SCSNO D,U) | ||
4079 | "RTN","SDC NSLT",65,0 ) | ||
4080 | S:'$D(SCS NOD) SDPAT NT=$P($G(^ SC(SDSC,"S ",SDTTM,1, SDPL,0)),U ) | ||
4081 | "RTN","SDC NSLT",66,0 ) | ||
4082 | S CPRSSTA T=$P($G(^G MR(123,CON SULT,0)),U ,12) I CPR SSTAT'="" S CPRSSTAT =$P($G(^OR D(100.01,C PRSSTAT,0) ),U) Q:CPR SSTAT'="SC HEDULED" | ||
4083 | "RTN","SDC NSLT",67,0 ) | ||
4084 | S SNDPRV= $P($G(^GMR (123,CONSU LT,0)),U,1 4) | ||
4085 | "RTN","SDC NSLT",68,0 ) | ||
4086 | S USER=$P (^VA(200,D UZ,0),U),Y =SDTTM D D D^%DT S AP PT=$E(SDTT M,4,5)_"/" _$E(SDTTM, 6,7)_"/"_$ E(SDTTM,2, 3)_" @ "_$ P(Y,"@",2) | ||
4087 | "RTN","SDC NSLT",69,0 ) | ||
4088 | S COMMENT (1)=$P(^SC (SDSC,0),U )_" Appt. on "_APPT_ " was canc elled"_$S( $D(SDWH):$ S(SDWH["P" :" by the Patient.", SDWH["C":" by the Cl inic.",1:" ."),$D(SDA DM):" for administra tive purpo ses.",1:", whole cli nic.") | ||
4089 | "RTN","SDC NSLT",70,0 ) | ||
4090 | S CNINDX= 2 S:$D(TMP D) COMMENT (2)="Remar ks: "_TMPD ,CNINDX=CN INDX+1 K T MPD,SDECNO TE ;*zeb 6 86 10/30/1 8 clean up SDECNOTE in case SD ECCAN not used | ||
4091 | "RTN","SDC NSLT",71,0 ) | ||
4092 | N SDERR S SDERR=$$S TATUS^GMRC GUIS(CONSU LT,6,3,SND PRV,"","", .COMMENT) | ||
4093 | "RTN","SDC NSLT",72,0 ) | ||
4094 | S CNDIE=" ^GMR(123," _CONSULT_" ,40,",CNDA =+$G(COMME NT(0)) | ||
4095 | "RTN","SDC NSLT",73,0 ) | ||
4096 | K COMMENT ,DA | ||
4097 | "RTN","SDC NSLT",74,0 ) | ||
4098 | S AUTO(SD SC,SDTTM,S DPATNT)=CO NSULT | ||
4099 | "RTN","SDC NSLT",75,0 ) | ||
4100 | S DA(2)=S DSC,DA(1)= SDTTM,DA=S DPL,DIE="^ SC("_DA(2) _",""S""," _DA(1)_",1 ,",DR="688 ///@" D ^D IE | ||
4101 | "RTN","SDC NSLT",76,0 ) | ||
4102 | K SCSNOD, SDADM,SCLN K | ||
4103 | "RTN","SDC NSLT",77,0 ) | ||
4104 | Q | ||
4105 | "RTN","SDC NSLT",78,0 ) | ||
4106 | AUTOREB(SC ,NDATE,LNK ,CY) ;===A UTO REBOOK | ||
4107 | "RTN","SDC NSLT",79,0 ) | ||
4108 | N DIC,DA, DIE,DR,Y,T ME,SNDPRV, CSCHDT,COM MENT,ER | ||
4109 | "RTN","SDC NSLT",80,0 ) | ||
4110 | S DA(2)=S C,DA(1)=ND ATE,DA=CY, DIE="^SC(" _DA(2)_"," "S"","_DA( 1)_",1,",D R="688//// ^S X=LNK" D ^DIE | ||
4111 | "RTN","SDC NSLT",81,0 ) | ||
4112 | S Y=NDATE D DD^%DT S TME=$P(Y ,"@",2) | ||
4113 | "RTN","SDC NSLT",82,0 ) | ||
4114 | S COMMENT (1)=$P(^SC (SC,0),U)_ " Consult Appt. on " _$E(NDATE, 4,5)_"/"_$ E(NDATE,6, 7)_"/"_$E( NDATE,2,3) _" @ "_TME _" (Auto R ebooked)." | ||
4115 | "RTN","SDC NSLT",83,0 ) | ||
4116 | S %DT="ST ",X="NOW" D ^%DT S C SCHDT=Y | ||
4117 | "RTN","SDC NSLT",84,0 ) | ||
4118 | S SNDPRV= $P($G(^GMR (123,LNK,0 )),U,14) | ||
4119 | "RTN","SDC NSLT",85,0 ) | ||
4120 | D SCH^SDQ QCN2(.ER,L NK,SNDPRV, CSCHDT,0,, .COMMENT) K COMMENT | ||
4121 | "RTN","SDC NSLT",86,0 ) | ||
4122 | Q | ||
4123 | "RTN","SDC NSLT",87,0 ) | ||
4124 | NOSHOW(SC, SDDTM,CNPA T,CNSTLNK, CN,AUTO,NS DIE,NSDA) ; | ||
4125 | "RTN","SDC NSLT",88,0 ) | ||
4126 | ;Appt. wa s a NoShow , then mar k Consult as Edit/Re submit, ad d comment using sile nt call to notify us er. | ||
4127 | "RTN","SDC NSLT",89,0 ) | ||
4128 | ;Variable s NSDIE an d NSDA use d in calli ng routine for NoSho w letter p rinted com ment in co nsult. | ||
4129 | "RTN","SDC NSLT",90,0 ) | ||
4130 | N CSNOD,C PRSSTAT,NO SHOW,CSRQS RV,TPRNT,C SPRT,USER, Y,APPT,COM MENT,DA,DI C,DUZ2,DIC ,DR,GM40,G MRND,ER,SN DPRV,J | ||
4131 | "RTN","SDC NSLT",91,0 ) | ||
4132 | S CSNOD=$ G(^GMR(123 ,CNSTLNK,0 )),CPRSSTA T=$P(CSNOD ,U,12),SND PRV=$P(CSN OD,U,14),N OSHOW="no- show",AUTO (SC,SDDTM, CNPAT)=CNS TLNK | ||
4133 | "RTN","SDC NSLT",92,0 ) | ||
4134 | I CPRSSTA T'="" S CP RSSTAT=$P( $G(^ORD(10 0.01,CPRSS TAT,0)),U) Q:CPRSSTA T'="SCHEDU LED" | ||
4135 | "RTN","SDC NSLT",93,0 ) | ||
4136 | S CSRQSRV =$P(CSNOD, U,5) I CSR QSRV'="" S TPRNT=$P( $G(^GMR(12 3.5,CSRQSR V,123)),U, 9) I TPRNT '="" S:$P( $G(^%ZIS(1 ,TPRNT,0)) ,U)'="" CS PRT=$P(^(0 ),U) ;repr int consul t | ||
4137 | "RTN","SDC NSLT",94,0 ) | ||
4138 | S USER=$P (^VA(200,D UZ,0),U),Y =SDDTM D D D^%DT S AP PT=$E(SDDT M,4,5)_"/" _$E(SDDTM, 6,7)_"/"_$ E(SDDTM,2, 3)_" @ "_$ P(Y,"@",2) | ||
4139 | "RTN","SDC NSLT",95,0 ) | ||
4140 | S COMMENT (1)=$P(^SC (SC,0),U)_ " Appt. on "_APPT_" was a "_NO SHOW_"." ; no-show is a key wor d used by a search d o not chan ge | ||
4141 | "RTN","SDC NSLT",96,0 ) | ||
4142 | N SDERR S SDERR=$$S TATUS^GMRC GUIS(CNSTL NK,6,3,SND PRV,"","", .COMMENT) | ||
4143 | "RTN","SDC NSLT",97,0 ) | ||
4144 | S NSDIE=" ^GMR(123," _CNSTLNK_" ,40,",NSDA =+$G(COMME NT(0)) | ||
4145 | "RTN","SDC NSLT",98,0 ) | ||
4146 | K COMMENT ,DA | ||
4147 | "RTN","SDC NSLT",99,0 ) | ||
4148 | S DA(2)=S C,DA(1)=SD DTM,DA=CN, DIE="^SC(" _DA(2)_"," "S"","_DA( 1)_",1,",D R="688///@ " D ^DIE | ||
4149 | "RTN","SDC NSLT",100, 0) | ||
4150 | I $D(CSPR T) D EN^GM RCP5(CNSTL NK,"C",CSP RT) | ||
4151 | "RTN","SDC NSLT",101, 0) | ||
4152 | K CNSTLNK Q | ||
4153 | "RTN","SDE C") | ||
4154 | 0^3^B13313 3924^B1331 33924 | ||
4155 | "RTN","SDE C",1,0) | ||
4156 | SDEC ;ALB/ SAT - VIST A SCHEDULI NG RPCS ;M AR 15, 201 7 | ||
4157 | "RTN","SDE C",2,0) | ||
4158 | ;;5.3;Sch eduling;** 627,643,64 2,651,658, 665,672,67 9,686**;Au g 13, 1993 ;Build 39 | ||
4159 | "RTN","SDE C",3,0) | ||
4160 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | ||
4161 | "RTN","SDE C",4,0) | ||
4162 | Q | ||
4163 | "RTN","SDE C",5,0) | ||
4164 | ; | ||
4165 | "RTN","SDE C",6,0) | ||
4166 | ACCGROUP(S DECY) ;EP return act ive entrie s from the SDEC ACCE SS GROUP f ile 409.82 2 | ||
4167 | "RTN","SDE C",7,0) | ||
4168 | D ACCGROU P^SDEC45(. SDECY) Q | ||
4169 | "RTN","SDE C",8,0) | ||
4170 | ACCGPTYG(S DECY) ;EP Get access group typ es | ||
4171 | "RTN","SDE C",9,0) | ||
4172 | D ACCGPTY G^SDEC15(. SDECY) Q | ||
4173 | "RTN","SDE C",10,0) | ||
4174 | ACCTYPE(SD ECY) ;EP r eturn acti ve entries from the SDEC ACCES S TYPE fil e 409.823 | ||
4175 | "RTN","SDE C",11,0) | ||
4176 | D ACCTYPE ^SDEC45(.S DECY) Q | ||
4177 | "RTN","SDE C",12,0) | ||
4178 | ADDACCG(SD ECY,SDECVA L) ;EP ADD /EDIT ACCE SS GROUP | ||
4179 | "RTN","SDE C",13,0) | ||
4180 | D ADDACCG ^SDEC21(.S DECY,$G(SD ECVAL)) Q | ||
4181 | "RTN","SDE C",14,0) | ||
4182 | ADDACCTY(S DECY,SDECV AL) ;EP AD D/EDIT ACC ESS TYPE | ||
4183 | "RTN","SDE C",15,0) | ||
4184 | D ADDACCT Y^SDEC14(. SDECY,$G(S DECVAL)) Q | ||
4185 | "RTN","SDE C",16,0) | ||
4186 | ADDAGI(SDE CY,SDECIEN ,SDECIEN1) ;EP Add a ccess grou p item - A dds ACCESS GROUP TYP E file ent ry | ||
4187 | "RTN","SDE C",17,0) | ||
4188 | D ADDAGI^ SDEC22(.SD ECY,$G(SDE CIEN),$G(S DECIEN1)) Q | ||
4189 | "RTN","SDE C",18,0) | ||
4190 | ADDRES(SDE CY,SDECVAL ) ;EP ADD/ EDIT RESOU RCE | ||
4191 | "RTN","SDE C",19,0) | ||
4192 | D ADDRES^ SDEC16(.SD ECY,$G(SDE CVAL)) Q | ||
4193 | "RTN","SDE C",20,0) | ||
4194 | ADDRESU(SD ECY,SDECVA L) ;EP ADD /EDIT RESO URCE USER | ||
4195 | "RTN","SDE C",21,0) | ||
4196 | D ADDRESU ^SDEC18(.S DECY,$G(SD ECVAL)) Q | ||
4197 | "RTN","SDE C",22,0) | ||
4198 | ADDRG(SDEC Y,SDECVAL) ;EP ADD/E DIT RESOUR CE GROUP | ||
4199 | "RTN","SDE C",23,0) | ||
4200 | D ADDRG^S DEC19(.SDE CY,$G(SDEC VAL)) Q | ||
4201 | "RTN","SDE C",24,0) | ||
4202 | ADDRGI(SDE CY,SDECIEN ,SDECIEN1) ;EP Adds RESOURCEID SDECIEN1 to RESOURC E GROUP en try SDECIE N | ||
4203 | "RTN","SDE C",25,0) | ||
4204 | D ADDRGI^ SDEC20(.SD ECY,$G(SDE CIEN),$G(S DECIEN1)) Q | ||
4205 | "RTN","SDE C",26,0) | ||
4206 | APBLKALL(S DECY,SDECS TART,SDECE ND) ;EP Li st of all appointmen ts for all resources | ||
4207 | "RTN","SDE C",27,0) | ||
4208 | D APBLKAL L^SDEC05(. SDECY,$G(S DECSTART), $G(SDECEND )) Q | ||
4209 | "RTN","SDE C",28,0) | ||
4210 | APBLKOV(SD ECY,SDECST ART,SDECEN D,SDECRES, SDECWI) ;E P APPT BLO CKS OVERLA P | ||
4211 | "RTN","SDE C",29,0) | ||
4212 | D APBLKOV ^SDEC05(.S DECY,$G(SD ECSTART),$ G(SDECEND) ,$G(SDECRE S),$G(SDEC WI)) Q | ||
4213 | "RTN","SDE C",30,0) | ||
4214 | APPADD ;EP ADD NEW A PPOINTMENT | ||
4215 | "RTN","SDE C",31,0) | ||
4216 | Q ;rpc c alls direc tly to APP ADD^SDEC07 | ||
4217 | "RTN","SDE C",32,0) | ||
4218 | APPDEL(SDE CY,SDECAPT ID,SDECTYP ,SDECCR,SD ECNOT,SDEC DATE,SDUSE R) ;EP Can cels appoi ntment | ||
4219 | "RTN","SDE C",33,0) | ||
4220 | D APPDEL^ SDEC08(.SD ECY,$G(SDE CAPTID),$G (SDECTYP), $G(SDECCR) ,$G(SDECNO T),$G(SDEC DATE),$G(S DUSER)) Q | ||
4221 | "RTN","SDE C",34,0) | ||
4222 | APPIDGET(S DECY,SDID) ;GET SDEC APPOINTME NT ien for given Ext ernal ID | ||
4223 | "RTN","SDE C",35,0) | ||
4224 | D APPIDGE T^SDEC55(. SDECY,$G(S DID)) Q | ||
4225 | "RTN","SDE C",36,0) | ||
4226 | APPSDGET(S DECY,MAXRE C,LASTSUB, SDBEG,SDEN D,NOTEFLG, SDRES,DFN, SDID,SDIEN ) ;GET app ointment d ata from S DEC APPOIN TMENT file 409.84 | ||
4227 | "RTN","SDE C",37,0) | ||
4228 | D APPSDGE T^SDEC55A( .SDECY,$G( MAXREC),$G (LASTSUB), $G(SDBEG), $G(SDEND), $G(NOTEFLG ),$G(SDRES ),$G(DFN), $G(SDID),$ G(SDIEN)) Q | ||
4229 | "RTN","SDE C",38,0) | ||
4230 | APPSLOTS(S DECY,SDCL, SDBEG,SDEN D) ;return array of appt slots and avail ability - RPC | ||
4231 | "RTN","SDE C",39,0) | ||
4232 | D APPSLOT S^SDEC57(. SDECY,$G(S DCL),$G(SD BEG),$G(SD END)) Q | ||
4233 | "RTN","SDE C",40,0) | ||
4234 | APPTEVLG(S DECY,DFN) ;EP return appointme nt data fo r given pa tient - RP C | ||
4235 | "RTN","SDE C",41,0) | ||
4236 | D APPTEVL G^SDEC38(. SDECY,$G(D FN)) Q | ||
4237 | "RTN","SDE C",42,0) | ||
4238 | APPTLETR(S DECY,SDECA PID,LT) ;E P Print Ap pointment Letter | ||
4239 | "RTN","SDE C",43,0) | ||
4240 | D APPTLET R^SDEC40(. SDECY,$G(S DECAPID),$ G(LT)) Q | ||
4241 | "RTN","SDE C",44,0) | ||
4242 | APPTYPES(R ET,DFN) ; EP for SDE C APPTYPES - Return all active Appointme nt types f rom the AP POINTMENT TYPE file 409.1 | ||
4243 | "RTN","SDE C",45,0) | ||
4244 | D APPTYPE S^SDECWL(. RET,$G(DFN )) Q | ||
4245 | "RTN","SDE C",46,0) | ||
4246 | ARCLOSE(RE T,INP...) ; | ||
4247 | "RTN","SDE C",47,0) | ||
4248 | D ARCLOSE ^SDECAR(.R ET,.INP) Q | ||
4249 | "RTN","SDE C",48,0) | ||
4250 | ARCLOSE1(R ET,INP) ; Appt Reque st CLOSE (without . .. for Vis tA calls) | ||
4251 | "RTN","SDE C",49,0) | ||
4252 | D ARCLOSE ^SDECAR(.R ET,.INP) Q | ||
4253 | "RTN","SDE C",50,0) | ||
4254 | ARDGET(SDE CY) ;get v alues for dispositio n field of SDEC APPT REQUEST f ile | ||
4255 | "RTN","SDE C",51,0) | ||
4256 | D ARDGET^ SDECAR(.SD ECY) Q | ||
4257 | "RTN","SDE C",52,0) | ||
4258 | ARGET(RET, ARIEN1,MAX REC,SDBEG, SDEND,DFN, LASTSUB,SD TOP,SVCL,D ESDT,PRL,S VCR,SCVISI T,CLINIC,O RIGDT) ;EP Appt Requ est GET | ||
4259 | "RTN","SDE C",53,0) | ||
4260 | D ARGET^S DECAR1(.RE T,$G(ARIEN 1),$G(MAXR EC),$G(SDB EG),$G(SDE ND),$G(DFN ),$G(LASTS UB),$G(SDT OP),$G(SVC L),$G(DESD T),$G(PRL) ,$G(SVCR), $G(SCVISIT ),$G(CLINI C),$G(ORIG DT)) Q | ||
4261 | "RTN","SDE C",54,0) | ||
4262 | ARMRTGET(S DECY,ARIEN ) ;GET num ber of ent ries and v alues in M RTC CALC P REF DATES | ||
4263 | "RTN","SDE C",55,0) | ||
4264 | D ARMRTGE T^SDECAR(. SDECY,$G(A RIEN)) Q | ||
4265 | "RTN","SDE C",56,0) | ||
4266 | ARMRTSET(S DECY,ARIEN ,MRTC) ;SE T MRTC CAL C PREF DAT ES dates - clears th e multiple and sets the new on es that ar e passed i n | ||
4267 | "RTN","SDE C",57,0) | ||
4268 | D ARMRTSE T^SDECAR(. SDECY,$G(A RIEN),$G(M RTC)) Q | ||
4269 | "RTN","SDE C",58,0) | ||
4270 | AROPEN(RET ,ARAPP,ARI EN,ARDDT) ;Appt Requ est Open/r e-open | ||
4271 | "RTN","SDE C",59,0) | ||
4272 | D AROPEN^ SDECAR(.RE T,$G(ARAPP ),$G(ARIEN ),$G(ARDDT )) Q | ||
4273 | "RTN","SDE C",60,0) | ||
4274 | ARPCSET(SD ECY,INP,AR IEN) ;SET update pat ient conta cts in SDE C APPT REQ UEST file | ||
4275 | "RTN","SDE C",61,0) | ||
4276 | D ARPCSET ^SDECAR(.S DECY,$G(IN P),$G(ARIE N)) Q | ||
4277 | "RTN","SDE C",62,0) | ||
4278 | ARSET(RET, INP...) ;E P Appt Req uest Set | ||
4279 | "RTN","SDE C",63,0) | ||
4280 | D ARSET^S DECAR2(.RE T,.INP) Q | ||
4281 | "RTN","SDE C",64,0) | ||
4282 | ARSET1(RET ,INP) ;EP Appt Reque st Set (wi thout ... for VistA calls) | ||
4283 | "RTN","SDE C",65,0) | ||
4284 | D ARSET^S DECAR2(.RE T,.INP) Q | ||
4285 | "RTN","SDE C",66,0) | ||
4286 | AVADD(SDEC Y,SDECSTAR T,SDECEND, SDECTYPID, SDECRES,SD ECSLOTS,SD ECNOTE) ;E P SET Crea te entry i n SDEC ACC ESS BLOCK | ||
4287 | "RTN","SDE C",67,0) | ||
4288 | D AVADD^S DEC12(.SDE CY,$G(SDEC START),$G( SDECEND),$ G(SDECTYPI D),$G(SDEC RES),$G(SD ECSLOTS),$ G(SDECNOTE )) Q | ||
4289 | "RTN","SDE C",68,0) | ||
4290 | AVDEL(SDEC Y,SDECAVID ) ;EP Canc el Availab ility - De letes Acce ss Block | ||
4291 | "RTN","SDE C",69,0) | ||
4292 | D AVDEL^S DEC13(.SDE CY,$G(SDEC AVID)) Q | ||
4293 | "RTN","SDE C",70,0) | ||
4294 | AVDELDT(SD ECY,SDECRE SD,SDECSTA RT,SDECEND ) ;EP Canc el availab ility in a date rang e | ||
4295 | "RTN","SDE C",71,0) | ||
4296 | D AVDELDT ^SDEC13(.S DECY,$G(SD ECRESD),$G (SDECSTART ),$G(SDECE ND)) Q | ||
4297 | "RTN","SDE C",72,0) | ||
4298 | BOOKHLDY(S DECY,SDECC L) ; Retu rns can bo ok on holi day flag f or a clini c. 12/1/1 7 wtc 679 | ||
4299 | "RTN","SDE C",73,0) | ||
4300 | D BOOKHLD Y^SDEC32(. SDECY,SDEC CL) Q ; | ||
4301 | "RTN","SDE C",74,0) | ||
4302 | CANCKOUT(S DECY,SDECA PTID) ;EP Cancel Che ck Out app ointment | ||
4303 | "RTN","SDE C",75,0) | ||
4304 | D CANCKOU T^SDEC25(. SDECY,$G(S DECAPTID)) Q | ||
4305 | "RTN","SDE C",76,0) | ||
4306 | CANREAS(SD ECY,SDECIN ) ;EP retu rn active/ inactive e ntries fro m the CANC ELLATION R EASONS tab le 409.2 | ||
4307 | "RTN","SDE C",77,0) | ||
4308 | D CANREAS ^SDEC45(.S DECY,$G(SD ECIN)) Q | ||
4309 | "RTN","SDE C",78,0) | ||
4310 | CAP(SDECY, DFN,SDAMEV T,SDT,DVBA DA,SDAUTOR B,SDCANVET ) ; | ||
4311 | "RTN","SDE C",79,0) | ||
4312 | D CAP^SDE C58(.SDECY ,$G(DFN),$ G(SDAMEVT) ,$G(SDT),$ G(DVBADA), $G(SDAUTOR B),$G(SDCA NVET)) Q | ||
4313 | "RTN","SDE C",80,0) | ||
4314 | CGET(SDECY ) ;GET act ive Countr ies from t he COUNTRY CODE file 779.004 | ||
4315 | "RTN","SDE C",81,0) | ||
4316 | D CGET^SD EC55(.SDEC Y) Q | ||
4317 | "RTN","SDE C",82,0) | ||
4318 | CHECKIN(SD ECY,SDECAP TID,SDECCD T,SDECCC,S DECPRV,SDE CROU,SDECV CL,SDECVFM ,SDECOG,SD ECCR,SDECP CC,SDECWHF ) ;EP Chec k in appoi ntment | ||
4319 | "RTN","SDE C",83,0) | ||
4320 | D CHECKIN ^SDEC25(.S DECY,$G(SD ECAPTID),$ G(SDECCDT) ,$G(SDECCC ),$G(SDECP RV),$G(SDE CROU),$G(S DECVCL),$G (SDECVFM), $G(SDECOG) ,$G(SDECCR ),$G(SDECP CC),$G(SDE CWHF)) Q | ||
4321 | "RTN","SDE C",84,0) | ||
4322 | CHECKOUT(S DECY,DFN,S DT,SDCODT, SDECAPTID, VPRV) ;EP Check Out appointmen t | ||
4323 | "RTN","SDE C",85,0) | ||
4324 | D CHECKOU T^SDEC25(. SDECY,$G(D FN),$G(SDT ),$G(SDCOD T),$G(SDEC APTID),$G( VPRV)) Q | ||
4325 | "RTN","SDE C",86,0) | ||
4326 | CLINALL(RE T,MAXREC,S DECP) ; EP Return th e IEN and NAME for a ll entries in the SD WL CLINIC LOCATION file | ||
4327 | "RTN","SDE C",87,0) | ||
4328 | D CLINALL ^SDECWL(.R ET,$G(MAXR EC),$G(SDE CP)) Q | ||
4329 | "RTN","SDE C",88,0) | ||
4330 | CLINCAN(SD ECY,SDECCL ST,SDECBEG ,SDECEND) ;EP Return recordset of CANCEL LED patien t appointm ents | ||
4331 | "RTN","SDE C",89,0) | ||
4332 | D CLINCAN ^SDEC34(.S DECY,$G(SD ECCLST),$G (SDECBEG), $G(SDECEND )) Q | ||
4333 | "RTN","SDE C",90,0) | ||
4334 | CLINDIS(SD ECY,SDECCL ST,SDECBEG ,SDECEND,S DECWI) ;EP Return fo rmatted te xt output of the Cli nic Schedu les Report | ||
4335 | "RTN","SDE C",91,0) | ||
4336 | D CLINDIS ^SDEC47(.S DECY,$G(SD ECCLST),$G (SDECBEG), $G(SDECEND ),$G(SDECW I)) Q | ||
4337 | "RTN","SDE C",92,0) | ||
4338 | CLINDISW(S DECY,SDECC LST,SDECBE G,SDECEND) ;EP Retur n formatte d text out put of the Clinic Sc hedules Re port for W alkins | ||
4339 | "RTN","SDE C",93,0) | ||
4340 | D CLINDIS W^SDEC47(. SDECY,$G(S DECCLST),$ G(SDECBEG) ,$G(SDECEN D)) Q | ||
4341 | "RTN","SDE C",94,0) | ||
4342 | CLINLET(SD ECY,SDECCL ST,SDECBEG ,SDECEND,S DECWI) ;EP CLINIC LE TTERS Appo intment da ta | ||
4343 | "RTN","SDE C",95,0) | ||
4344 | D CLINLET ^SDEC27(.S DECY,$G(SD ECCLST),$G (SDECBEG), $G(SDECEND ),$G(SDECW I)) Q | ||
4345 | "RTN","SDE C",96,0) | ||
4346 | CLINLETW(S DECY,SDECC LST,SDECBE G,SDECEND) ;EP CLINI C LETTERS WALK-IN Ap pointment data for W alk-in App ointments only | ||
4347 | "RTN","SDE C",97,0) | ||
4348 | D CLINLET W^SDEC27(. SDECY,$G(S DECCLST),$ G(SDECBEG) ,$G(SDECEN D)) Q | ||
4349 | "RTN","SDE C",98,0) | ||
4350 | CLINPROV(S DECY,SDECC L) ;EP ret urn all pr oviders fo r a given clinic fro m the HOSP ITAL LOCAT ION file 4 4 | ||
4351 | "RTN","SDE C",99,0) | ||
4352 | D CLINPRO V^SDEC45(. SDECY,$G(S DECCL)) Q | ||
4353 | "RTN","SDE C",100,0) | ||
4354 | CLINSET(SD ECY,SDNOSL OT,SDIENS, SDECP,SDNO LET,MAXREC ) ;EP Retu rns CLINIC SETUP PAR AMETERS fo r clinics that are a ctive in t he HOSPITA L LOCATION file | ||
4355 | "RTN","SDE C",101,0) | ||
4356 | D CLINSET ^SDEC32(.S DECY,$G(SD NOSLOT),$G (SDIENS),$ G(SDECP),$ G(SDNOLET) ,$G(MAXREC )) Q | ||
4357 | "RTN","SDE C",102,0) | ||
4358 | CLINSTOP(S DECY,SDP) ;EP CLINIC STOP remo te procedu re | ||
4359 | "RTN","SDE C",103,0) | ||
4360 | D CLINSTO P^SDEC45(. SDECY,$G(S DP)) Q | ||
4361 | "RTN","SDE C",104,0) | ||
4362 | COPYAPPT(S DECY,SDECR ES,SDEC44, SDECBEG,SD ECEND) ;EP Copy appo intments f rom HOSPIT AL LOCATIO N to SDEC RESOURCE | ||
4363 | "RTN","SDE C",105,0) | ||
4364 | D COPYAPP T^SDEC29(. SDECY,$G(S DECRES),$G (SDEC44),$ G(SDECBEG) ,$G(SDECEN D)) Q | ||
4365 | "RTN","SDE C",106,0) | ||
4366 | CPCANC(SDE CY,SDECTSK ) ;EP Copy Appointme nt Cancel | ||
4367 | "RTN","SDE C",107,0) | ||
4368 | D CPCANC^ SDEC29(.SD ECY,$G(SDE CTSK)) Q | ||
4369 | "RTN","SDE C",108,0) | ||
4370 | CPSTAT(SDE CY,SDECTSK ) ;EP Copy Appointme nt Status | ||
4371 | "RTN","SDE C",109,0) | ||
4372 | D CPSTAT^ SDEC29(.SD ECY,$G(SDE CTSK)) Q | ||
4373 | "RTN","SDE C",110,0) | ||
4374 | CRSCHED(SD ECY,SDECRE S,SDECSTAR T,SDECEND, SDECWKIN,M AXREC,LAST SUB) ;EP C reate Reso urce Appoi ntment Sch edule ;al b/sat 672 | ||
4375 | "RTN","SDE C",111,0) | ||
4376 | D CRSCHED ^SDEC02(.S DECY,$G(SD ECRES),$G( SDECSTART) ,$G(SDECEN D),$G(SDEC WKIN),$G(M AXREC),$G( LASTSUB)) Q | ||
4377 | "RTN","SDE C",112,0) | ||
4378 | CSLOTSCH(S DECY,SDECR ES,SDECSTA RT,SDECEND ,SDECTYPES ,SDECSRCH) ;GET Crea te Assigne d Slot Sch edule | ||
4379 | "RTN","SDE C",113,0) | ||
4380 | D CSLOTSC H^SDEC04(. SDECY,$G(S DECRES),$G (SDECSTART ),$G(SDECE ND),$G(SDE CTYPES),$G (SDECSRCH) ) Q | ||
4381 | "RTN","SDE C",114,0) | ||
4382 | CURFACG(SD ECY,SDECDU Z) ;EP ge t current division/f acility fo r given us er | ||
4383 | "RTN","SDE C",115,0) | ||
4384 | D CURFACG ^SDEC46(.S DECY,$G(SD ECDUZ)) Q | ||
4385 | "RTN","SDE C",116,0) | ||
4386 | CVARAPPT(S DECY,SDCL) ;EP IS Cl inic Varia ble Appoin tment Leng th | ||
4387 | "RTN","SDE C",117,0) | ||
4388 | D CVARAPP T^SDEC37(. SDECY,$G(S DCL)) Q | ||
4389 | "RTN","SDE C",118,0) | ||
4390 | DELAG(SDEC Y,SDECGRP) ;EP Delet es entry h aving IEN SDECGRP fr om SDEC AC CESS GROUP file | ||
4391 | "RTN","SDE C",119,0) | ||
4392 | D DELAG^S DEC21(.SDE CY,$G(SDEC GRP)) Q | ||
4393 | "RTN","SDE C",120,0) | ||
4394 | DELAGI(SDE CY,SDECIEN ,SDECIEN1) ;EP Delet es entry h aving Acce ss Group S DECIEN and Access Ty pe SDECIEN 1 the SDEC ACCESS GR OUP TYPE f ile | ||
4395 | "RTN","SDE C",121,0) | ||
4396 | D DELAGI^ SDEC22(.SD ECY,$G(SDE CIEN),$G(S DECIEN1)) Q | ||
4397 | "RTN","SDE C",122,0) | ||
4398 | DELRESGP(S DECY,SDECG RP) ;EP De letes entr y name SDE CGRP from SDEC RESOU RCE GROUP file | ||
4399 | "RTN","SDE C",123,0) | ||
4400 | D DELRESG P^SDEC19(. SDECY,$G(S DECGRP)) Q | ||
4401 | "RTN","SDE C",124,0) | ||
4402 | DELRGI(SDE CY,SDECIEN ,SDECIEN1) ;EP Delet es entry S DECIEN1 fr om entry S DECIEN in the SDEC R ESOURCE GR OUP file | ||
4403 | "RTN","SDE C",125,0) | ||
4404 | D DELRGI^ SDEC20(.SD ECY,$G(SDE CIEN),$G(S DECIEN1)) Q | ||
4405 | "RTN","SDE C",126,0) | ||
4406 | DELRU(SDEC Y,SDECIEN) ;EP Delet e Resource User from SDEC RESO URCE USER file | ||
4407 | "RTN","SDE C",127,0) | ||
4408 | D DELRU^S DEC18(.SDE CY,$G(SDEC IEN)) Q | ||
4409 | "RTN","SDE C",128,0) | ||
4410 | EDITAPPT(S DECY,SDECA PTID,SDECN OTE,SDECLE N) ;EP Edi t appointm ent (only 'note text ' and appo intment le ngth can b e edited) | ||
4411 | "RTN","SDE C",129,0) | ||
4412 | D EDITAPP T^SDEC26(. SDECY,$G(S DECAPTID), $G(SDECNOT E),$G(SDEC LEN)) Q | ||
4413 | "RTN","SDE C",130,0) | ||
4414 | EHRPT(SDEC Y,SDECWID, SDECDFN) ; EP Raise p atient sel ection eve nt to EHR | ||
4415 | "RTN","SDE C",131,0) | ||
4416 | D EHRPT^S DEC30(.SDE CY,$G(SDEC WID),$G(SD ECDFN)) Q | ||
4417 | "RTN","SDE C",132,0) | ||
4418 | ETHGET(SDE CY) ;GET a ctive Ethn icities fr om the ETH NICITY fil e 10.2 | ||
4419 | "RTN","SDE C",133,0) | ||
4420 | D ETHGET^ SDEC55(.SD ECY) Q | ||
4421 | "RTN","SDE C",134,0) | ||
4422 | ETHCMGET(S DECY) ;GET values fr om the RAC E AND ETHN ICITY COLL ECTION MET HOD file 1 0.3 | ||
4423 | "RTN","SDE C",135,0) | ||
4424 | D ETHCMGE T^SDEC55(. SDECY) Q | ||
4425 | "RTN","SDE C",136,0) | ||
4426 | FACLIST(SD ECY,DFN) ; Return li st of remo te facilit ies for pa tient | ||
4427 | "RTN","SDE C",137,0) | ||
4428 | D PTINQ^S DECPT(.SDE CY,$G(DFN) ) Q | ||
4429 | "RTN","SDE C",138,0) | ||
4430 | FAPPTGET(S DECY,DFN,S DBEG,SDEND ,SDANC) ;G ET Future appointmen ts for giv en patient and date range | ||
4431 | "RTN","SDE C",139,0) | ||
4432 | D FAPPTGE T^SDEC50(. SDECY,$G(D FN),$G(SDB EG),$G(SDE ND),$G(SDA NC)) Q | ||
4433 | "RTN","SDE C",140,0) | ||
4434 | GETFAC(SDE CY,SDECDUZ ) ;EP Gets all facil ities for a user | ||
4435 | "RTN","SDE C",141,0) | ||
4436 | D GETFAC^ SDEC46(.SD ECY,$G(SDE CDUZ)) Q | ||
4437 | "RTN","SDE C",142,0) | ||
4438 | GETONE(SDE CY,SDGMR) ;EP Return data on o ne consult | ||
4439 | "RTN","SDE C",143,0) | ||
4440 | D GETONE^ SDEC51(.SD ECY,$G(SDG MR)) Q | ||
4441 | "RTN","SDE C",144,0) | ||
4442 | GETREGA(SD ECRET,DFN) ;EP retur n basic re g info/dem ographics for given patient | ||
4443 | "RTN","SDE C",145,0) | ||
4444 | D GETREGA ^SDEC09(.S DECRET,$G( DFN)) Q | ||
4445 | "RTN","SDE C",146,0) | ||
4446 | GETSITES(S DECY) ;ret urn active National VA site na mes and st ation numb ers | ||
4447 | "RTN","SDE C",147,0) | ||
4448 | D GETSITE S^SDEC59(. SDECY) Q | ||
4449 | "RTN","SDE C",148,0) | ||
4450 | GETVPRV(BG OY,VPRV) ; EP return data from the V PROV IDER file | ||
4451 | "RTN","SDE C",149,0) | ||
4452 | D GETVPRV ^SDEC44(.B GOY,$G(VPR V)) Q | ||
4453 | "RTN","SDE C",150,0) | ||
4454 | HIDE(SDECY ) ;Return clinics hi dden from display | ||
4455 | "RTN","SDE C",151,0) | ||
4456 | D HIDE^SD EC45(.SDEC Y) Q | ||
4457 | "RTN","SDE C",152,0) | ||
4458 | HOLIDAY(SD ECY,SDECBD ) ;EP retu rn all ent ries from the HOLIDA Y file 40. 5 | ||
4459 | "RTN","SDE C",153,0) | ||
4460 | D HOLIDAY ^SDEC45(.S DECY,$G(SD ECBD)) Q | ||
4461 | "RTN","SDE C",154,0) | ||
4462 | HOSPLOC(SD ECY,SDECP, MAXREC,LSU B) ;EP ret urn HOSPIT AL LOCATIO Ns | ||
4463 | "RTN","SDE C",155,0) | ||
4464 | D HOSPLOC ^SDEC32(.S DECY,$G(SD ECP),$G(MA XREC),$G(L SUB)) Q | ||
4465 | "RTN","SDE C",156,0) | ||
4466 | IMHERE(SDE CRES) ;EP I'm Here | ||
4467 | "RTN","SDE C",157,0) | ||
4468 | D IMHERE^ SDEC31(.SD ECRES) Q | ||
4469 | "RTN","SDE C",158,0) | ||
4470 | NETLOC(SDE CY,LOCATIO N) ;GET da ta from th e NETWORK LOCATION f ile 2005.2 | ||
4471 | "RTN","SDE C",159,0) | ||
4472 | D NETLOC^ SDEC59(.SD ECY,$G(LOC ATION)) Q | ||
4473 | "RTN","SDE C",160,0) | ||
4474 | NEWPERS(SD ECY,SDCLAS S,SDPART,M AXREC,LSUB ,INACT) ;r eturn entr ies from t he USR CLA SS MEMBERS HIP file t hat have t he given U SR CLASS ( default is PROVIDER) | ||
4475 | "RTN","SDE C",161,0) | ||
4476 | D NEWPERS ^SDEC45(.S DECY,$G(SD CLASS),$G( SDPART),$G (MAXREC),$ G(LSUB),$G (INACT)) Q | ||
4477 | "RTN","SDE C",162,0) | ||
4478 | NOSHOPAT(S DECY,DFN,S DCL) ;EP C OLLECT NO- SHOW DATA for Patien t | ||
4479 | "RTN","SDE C",163,0) | ||
4480 | D NOSHOPA T^SDEC37(. SDECY,$G(D FN),$G(SDC L)) Q | ||
4481 | "RTN","SDE C",164,0) | ||
4482 | NOSHOW(SDE CY,SDECAPT ID,SDECNS, USERIEN,SD ECDATE) ;E P Sets app ointment n oshow flag in SDEC A PPOINTMENT file | ||
4483 | "RTN","SDE C",165,0) | ||
4484 | D NOSHOW^ SDEC31(.SD ECY,$G(SDE CAPTID),$G (SDECNS),$ G(USERIEN) ,$G(SDECDA TE)) Q | ||
4485 | "RTN","SDE C",166,0) | ||
4486 | OVBOOK(SDE CY,SDCL,SD BEG,SDECRE S) ;EP RPC - OVERBOO K - CHECK FOR OVERBO OK FOR GIV EN CLINIC, DATE, AND RESOURCE | ||
4487 | "RTN","SDE C",167,0) | ||
4488 | D OVBOOK^ SDEC07A(.S DECY,$G(SD CL),$G(SDB EG),$G(SDE CRES)) Q | ||
4489 | "RTN","SDE C",168,0) | ||
4490 | PATAPPTD(S DECY,DFN) ;EP Return the Patie nt appoint ment displ ay | ||
4491 | "RTN","SDE C",169,0) | ||
4492 | D PATAPPT D^SDEC27(. SDECY,$G(D FN)) Q | ||
4493 | "RTN","SDE C",170,0) | ||
4494 | PATAPPTH(S DECY,DFN) ;EP return patient's appointme nt history for given patient - RPC | ||
4495 | "RTN","SDE C",171,0) | ||
4496 | D PATAPPT H^SDEC48(. SDECY,$G(D FN)) Q | ||
4497 | "RTN","SDE C",172,0) | ||
4498 | PCSGET(SDE CY,SDSVSP) ;GET clin ics for a service/sp ecialty (c linic stop ) | ||
4499 | "RTN","SDE C",173,0) | ||
4500 | D PCSGET^ SDEC50(.SD ECY,$G(SDS VSP)) Q | ||
4501 | "RTN","SDE C",174,0) | ||
4502 | PCSTGET(SD ECY,DFN,SD CL,SDBEG,S DEND) ;GET patient c linic stat us for a c linic for a given ti me frame - has the p atient bee n seen by the given Clinic in the past 2 4 months | ||
4503 | "RTN","SDE C",175,0) | ||
4504 | D PCSTGET ^SDEC50(.S DECY,$G(DF N),$G(SDCL ),$G(SDBEG ),$G(SDEND )) Q | ||
4505 | "RTN","SDE C",176,0) | ||
4506 | PCST2GET(S DECY,DFN,S TOP,SDBEG, SDEND) ;GE T patient clinic sta tus for a service/sp ecialty (c linic stop ) for a gi ven time f rame - has the patie nt been se en any cli nics with the given service/sp ecialty (c linic stop ) in the p ast 24 mon ths | ||
4507 | "RTN","SDE C",177,0) | ||
4508 | D PCST2GE T^SDEC50(. SDECY,$G(D FN),$G(STO P),$G(SDBE G),$G(SDEN D)) Q | ||
4509 | "RTN","SDE C",178,0) | ||
4510 | PREFGET(SD ECY,DFN,IN AC) ;EP Ge t values f rom SDEC P REFERENCES AND SPECI AL NEEDS f ile for gi ven patien t | ||
4511 | "RTN","SDE C",179,0) | ||
4512 | D PREFGET ^SDEC49(.S DECY,$G(DF N),$G(INAC )) Q | ||
4513 | "RTN","SDE C",180,0) | ||
4514 | PREFGETV(S DECY) ;EP Get all va lid PREFER ENCE text from SDEC PREFERENCE S AND SPEC IAL NEEDS file | ||
4515 | "RTN","SDE C",181,0) | ||
4516 | D PREFGET V^SDEC49(. SDECY) Q | ||
4517 | "RTN","SDE C",182,0) | ||
4518 | PREFSET(SD ECY,DFN,PR EF,REMARK) ;EP Set v alues to S DEC PREFER ENCES AND SPECIAL NE EDS file ;alb/sat 6 58 add REM ARK | ||
4519 | "RTN","SDE C",183,0) | ||
4520 | D PREFSET ^SDEC49(.S DECY,$G(DF N),$G(PREF ),$G(REMAR K)) Q | ||
4521 | "RTN","SDE C",184,0) | ||
4522 | PRIV(SDECY ,CLINIEN,U SER) ;IS t his USER i n the PRIV ILEGED USE R multiple for the c linic | ||
4523 | "RTN","SDE C",185,0) | ||
4524 | D PRIV^SD EC32(.SDEC Y,$G(CLINI EN),$G(USE R)) Q | ||
4525 | "RTN","SDE C",186,0) | ||
4526 | PROVALL(SD ECY,SDECCL ) ;EP retu rn all pro viders for a given c linic from the HOSPI TAL LOCATI ON file 44 | ||
4527 | "RTN","SDE C",187,0) | ||
4528 | D PROVALL ^SDEC45(.S DECY,$G(SD ECCL)) Q | ||
4529 | "RTN","SDE C",188,0) | ||
4530 | PROVCLIN(S DECY,SDECP RV) ;EP PR OVIDER CLI NICS remot e procedur e | ||
4531 | "RTN","SDE C",189,0) | ||
4532 | D PROVCLI N^SDEC45(. SDECY,$G(S DECPRV)) Q | ||
4533 | "RTN","SDE C",190,0) | ||
4534 | PTINQ(SDEC Y,DFN) ;GE T output f rom ORWPT PTINQ in D ataTable f ormat | ||
4535 | "RTN","SDE C",191,0) | ||
4536 | D PTINQ^S DECPT(.SDE CY,$G(DFN) ) Q | ||
4537 | "RTN","SDE C",192,0) | ||
4538 | PTLOOKRS(S DECY,SDECP ,SDECC,LAS TSUB) ;EP Patient Lo okup | ||
4539 | "RTN","SDE C",193,0) | ||
4540 | D PTLOOKR S^SDEC28(. SDECY,$G(S DECP),$G(S DECC),$G(L ASTSUB)) Q | ||
4541 | "RTN","SDE C",194,0) | ||
4542 | PTSET(SDEC Y,INP...) ;SET patie nt demogra phics | ||
4543 | "RTN","SDE C",195,0) | ||
4544 | D PTSET^S DEC53(.SDE CY,.INP) Q | ||
4545 | "RTN","SDE C",196,0) | ||
4546 | PTSET1(SDE CY,INP) ;S ET patient demograph ics (call from debug ) | ||
4547 | "RTN","SDE C",197,0) | ||
4548 | D PTSET^S DEC53(.SDE CY,.INP) Q | ||
4549 | "RTN","SDE C",198,0) | ||
4550 | RACEGET(SD ECY) ;GET active Rac e entries from the R ACE file 1 0 | ||
4551 | "RTN","SDE C",199,0) | ||
4552 | D RACEGET ^SDEC55(.S DECY) Q | ||
4553 | "RTN","SDE C",200,0) | ||
4554 | RAISEVNT(S DECY,SDECE VENT,SDECP ARAM,SDECS IP,SDECSPT ) ;EP RAIS E EVENT | ||
4555 | "RTN","SDE C",201,0) | ||
4556 | D RAISEVN T^SDEC23(. SDECY,$G(S DECEVENT), $G(SDECPAR AM),$G(SDE CSIP),$G(S DECSPT)) Q | ||
4557 | "RTN","SDE C",202,0) | ||
4558 | REBKCLIN(S DECY,SDECC LST,SDECBE G,SDECEND) ;EP Retur n recordse t of reboo ked patien t appointm ents betwe en given d ates | ||
4559 | "RTN","SDE C",203,0) | ||
4560 | D REBKCLI N^SDEC34(. SDECY,$G(S DECCLST),$ G(SDECBEG) ,$G(SDECEN D)) Q | ||
4561 | "RTN","SDE C",204,0) | ||
4562 | REBKLIST(S DECY,SDECL IST) ;EP p atient app ointments used in li sting REBO OKED appoi ntments fo r a list o f appointm entIDs. | ||
4563 | "RTN","SDE C",205,0) | ||
4564 | D REBKLIS T^SDEC34(. SDECY,$G(S DECLIST)) Q | ||
4565 | "RTN","SDE C",206,0) | ||
4566 | REBKNEXT(S DECY,SDECD ATE,SDECRE S,SDECTPID ) ;EP find the next ACCESS BLO CK in reso urce SDECR ES after S DECSTART | ||
4567 | "RTN","SDE C",207,0) | ||
4568 | D REBKNEX T^SDEC33(. SDECY,$G(S DECDATE),$ G(SDECRES) ,$G(SDECTP ID)) Q | ||
4569 | "RTN","SDE C",208,0) | ||
4570 | RECIEN(SDE CY,RECIEN) ;GET RECA LL REMINDE RS for giv en ID | ||
4571 | "RTN","SDE C",209,0) | ||
4572 | D RECIEN^ SDEC52(.SD ECY,$G(REC IEN)) Q | ||
4573 | "RTN","SDE C",210,0) | ||
4574 | RECGET(SDE CY,DFN,SDB EG,SDEND,M AXREC,LAST SUB,RECIEN ,SDSTOP,SD FLAGS,SDCL L) ; GET e ntries fro m the RECA LL REMINDE RS file 40 3.5 for a given Pati ent and Re call Date range. ;al b/sat 658 add SDCLL | ||
4575 | "RTN","SDE C",211,0) | ||
4576 | D RECGET^ SDEC52(.SD ECY,$G(DFN ),$G(SDBEG ),$G(SDEND ),$G(MAXRE C),$G(LAST SUB),$G(RE CIEN),$G(S DSTOP),$G( SDFLAGS),$ G(SDCLL)) Q | ||
4577 | "RTN","SDE C",212,0) | ||
4578 | RECSET(SDE CY,INP...) ; SET/EDI T/CANCEL/D ELETE an e ntry to th e RECALL R EMINDERS f ile 403.5 | ||
4579 | "RTN","SDE C",213,0) | ||
4580 | D RECSET^ SDEC52A(.S DECY,.INP) Q | ||
4581 | "RTN","SDE C",214,0) | ||
4582 | RECSET1(SD ECY,INP) ; SET/EDIT/ CANCEL/DEL ETE an ent ry to the RECALL REM INDERS fil e 403.5 | ||
4583 | "RTN","SDE C",215,0) | ||
4584 | D RECSET^ SDEC52A(.S DECY,.INP) Q | ||
4585 | "RTN","SDE C",216,0) | ||
4586 | RECDSET(SD ECY,RECALL IEN,SDRRFT R,SDCOMM) ; DELETE a n entry to the RECAL L REMINDER S file 403 .5 | ||
4587 | "RTN","SDE C",217,0) | ||
4588 | D RECDSET ^SDEC52A(. SDECY,$G(R ECALLIEN), $G(SDRRFTR ),$G(SDCOM M)) Q | ||
4589 | "RTN","SDE C",218,0) | ||
4590 | RECAPGET(S DECY) ; GE T entries from the R ECALL REMI NDERS APPT TYPE file 403.51 | ||
4591 | "RTN","SDE C",219,0) | ||
4592 | D RECAPGE T^SDEC52B( .SDECY) Q | ||
4593 | "RTN","SDE C",220,0) | ||
4594 | RECPRGET(S DECY,RECIN ACT,SDECP, MAXREC,LAS TSUB) ;GET entries f rom the RE CALL REMIN DERS PROVI DERS file 403.54 | ||
4595 | "RTN","SDE C",221,0) | ||
4596 | D RECPRGE T^SDEC52B( .SDECY,$G( RECINACT), $G(SDECP), $G(MAXREC) ,$G(LASTSU B)) Q | ||
4597 | "RTN","SDE C",222,0) | ||
4598 | REGEVENT(S DECY,SDECE VENT,SDECI P,SDECPORT ) ;EP Call ed by clie nt to info rm server of client' s interest in SDECEV ENT | ||
4599 | "RTN","SDE C",223,0) | ||
4600 | D REGEVEN T^SDEC23(. SDECY,$G(S DECEVENT), $G(SDECIP) ,$G(SDECPO RT)) Q | ||
4601 | "RTN","SDE C",224,0) | ||
4602 | REP1GET(SD ECY,MAXREC ,LASTSUB,P NAME) ;GET clinic da ta for rep ort | ||
4603 | "RTN","SDE C",225,0) | ||
4604 | D REP1GET ^SDEC56(.S DECY,$G(MA XREC),$G(L ASTSUB),$G (PNAME)) Q | ||
4605 | "RTN","SDE C",226,0) | ||
4606 | REQGET(SDE CY,SDBEG,S DEND,MAXRE C,LASTSUB, SDGMR) ; G ET entries with an A CTIVITY of RECEIVED, but do no t have an ACTIVITY o f SCHEDULE D from the REQUEST/C ONSULTATIN G file 123 | ||
4607 | "RTN","SDE C",227,0) | ||
4608 | D REQGET^ SDEC51(.SD ECY,$G(SDB EG),$G(SDE ND),$G(MAX REC),$G(LA STSUB),$G( SDGMR)) Q | ||
4609 | "RTN","SDE C",228,0) | ||
4610 | RESGPUSR(S DECY,SDECD UZ) ;EP GR OUP RESOUR CE | ||
4611 | "RTN","SDE C",229,0) | ||
4612 | D RESGPUS R^SDEC01(. SDECY,$G(S DECDUZ)) Q | ||
4613 | "RTN","SDE C",230,0) | ||
4614 | RESGRPUS(S DECY,SDECD UZ) ;EP re turn ACTIV E resource group nam es for the given use r | ||
4615 | "RTN","SDE C",231,0) | ||
4616 | D RESGRPU S^SDEC01(. SDECY,$G(S DECDUZ)) Q | ||
4617 | "RTN","SDE C",232,0) | ||
4618 | RESLETRF(S DECY,SDECR ES,SDECLT) ;EP Retur n formatte d text out put of the Resource' s Letter - either "L ETTER TEXT " (also us ed as Remi nder Lette r), NO SHO W LETTER, or CLINIC CANCELLATI ON LETTER. | ||
4619 | "RTN","SDE C",233,0) | ||
4620 | D RESLETR F^SDEC47(. SDECY,$G(S DECRES),$G (SDECLT)) Q | ||
4621 | "RTN","SDE C",234,0) | ||
4622 | RESLETRS(S DECY,SDECL IST,SDLTR, SDNOS,SDCA N) ;EP GET recordset of RESOUR CES and as sociated L ETTERS | ||
4623 | "RTN","SDE C",235,0) | ||
4624 | D RESLETR S^SDEC35(. SDECY,$G(S DECLIST),$ G(SDLTR),$ G(SDNOS),$ G(SDCAN)) Q | ||
4625 | "RTN","SDE C",236,0) | ||
4626 | RESUSER(SD ECY,SDRES) ;EP SDEC RESOURCE U SER remote procedure returns a ll entries from the SDEC RESOU RCE USER t able 409.8 33 | ||
4627 | "RTN","SDE C",237,0) | ||
4628 | D RESUSER ^SDEC45(.S DECY,$G(SD RES)) Q | ||
4629 | "RTN","SDE C",238,0) | ||
4630 | RESOURCE(S DECY,SDECD UZ,SDACT,S DTYPE,MAXR EC,LASTSUB I,SDIEN,SD ECP) ;EP R eturns ADO Recordset with ALL RESOURCE n ames | ||
4631 | "RTN","SDE C",239,0) | ||
4632 | D RESOURC E^SDEC01A( .SDECY,$G( SDECDUZ),$ G(SDACT),$ G(SDTYPE), $G(MAXREC) ,$G(LASTSU BI),$G(SDI EN),$G(SDE CP)) Q | ||
4633 | "RTN","SDE C",240,0) | ||
4634 | SCHUSR(SDE CY) ;EP Re turn recor dset of al l users in NEW PERSO N having S DECZMENU k ey | ||
4635 | "RTN","SDE C",241,0) | ||
4636 | D SCHUSR^ SDEC17(.SD ECY) Q | ||
4637 | "RTN","SDE C",242,0) | ||
4638 | SEARCHAV(S DECY,SDECR ES,SDECSTR T,SDECEND, SDECTYPES, SDECAMPM,S DECWKDY) ; EP Searche s availabi lity datab ase | ||
4639 | "RTN","SDE C",243,0) | ||
4640 | D SEARCHA V^SDEC24(. SDECY,$G(S DECRES),$G (SDECSTRT) ,$G(SDECEN D),$G(SDEC TYPES),$G( SDECAMPM), $G(SDECWKD Y)) Q | ||
4641 | "RTN","SDE C",244,0) | ||
4642 | SETFAC(SDE CY,SDECDUZ ,SDECFAC) ;EP SET FA CILITY | ||
4643 | "RTN","SDE C",245,0) | ||
4644 | D SETFAC^ SDEC46(.SD ECY,$G(SDE CDUZ),$G(S DECFAC)) Q | ||
4645 | "RTN","SDE C",246,0) | ||
4646 | SETRBOOK(S DECY,SDECA PPT,SDECDA TE) ;EP Se ts rebook date into appointmen t | ||
4647 | "RTN","SDE C",247,0) | ||
4648 | D SETRBOO K^SDEC33(. SDECY,$G(S DECAPPT),$ G(SDECDATE )) Q | ||
4649 | "RTN","SDE C",248,0) | ||
4650 | SPACEBAR(S DECY,SDECD IC,SDECVAL ) ;EP Upda te ^DISV w ith most r ecent look up value S DECVAL fro m file SDE CDIC | ||
4651 | "RTN","SDE C",249,0) | ||
4652 | D SPACEBA R^SDEC30(. SDECY,$G(S DECDIC),$G (SDECVAL)) Q | ||
4653 | "RTN","SDE C",250,0) | ||
4654 | SUMMGET(SD ECRET,SDBE G,SDEND,US ER,LSUB,MA XREC) ;GET Audit Sum mary for g iven date range | ||
4655 | "RTN","SDE C",251,0) | ||
4656 | D SUMMGET ^SDEC54(.S DECRET,$G( SDBEG),$G( SDEND),$G( USER),$G(L SUB),$G(MA XREC)) Q | ||
4657 | "RTN","SDE C",252,0) | ||
4658 | SUMMGET2(S DECRET,SDB EG,SDEND,U SER) ;Get compiled A udit Repor t for a gi ven date r ange | ||
4659 | "RTN","SDE C",253,0) | ||
4660 | D SUMMGET 2^SDECAUD( .SDECRET,$ G(SDBEG),$ G(SDEND),$ G(USER)) Q | ||
4661 | "RTN","SDE C",254,0) | ||
4662 | SUMMAGET(S DECY,SDBEG ,SDEND,USE R,LSUB,MAX REC) ;get ALL appoin tments wit h a cancel status fr om SDEC AP POINTMENT for given date range and user | ||
4663 | "RTN","SDE C",255,0) | ||
4664 | D SUMMAGE T^SDEC54A( .SDECY,$G( SDBEG),$G( SDEND),$G( USER),$G(L SUB),$G(MA XREC)) Q | ||
4665 | "RTN","SDE C",256,0) | ||
4666 | SUSRINFO(S DECY,SDECD UZ) ;EP SC HEDULING U SER INFO | ||
4667 | "RTN","SDE C",257,0) | ||
4668 | D SUSRINF O^SDEC01(. SDECY,$G(S DECDUZ)) Q | ||
4669 | "RTN","SDE C",258,0) | ||
4670 | SVSPALL(RE T) ; EP re turn IEN a nd NAME fo r all entr ies in the SD WL SER VICE/SPECI ALTY file | ||
4671 | "RTN","SDE C",259,0) | ||
4672 | D SVSPALL ^SDECWL(.R ET) Q | ||
4673 | "RTN","SDE C",260,0) | ||
4674 | SYSSTAT(SD ECY) ; EP SYSTEM STA TUS | ||
4675 | "RTN","SDE C",261,0) | ||
4676 | D SYSSTAT ^SDECUTL(. SDECY) Q | ||
4677 | "RTN","SDE C",262,0) | ||
4678 | TPBLKOV(SD ECY,SDECST ART,SDECEN D,SDECRES) ;EP TYPE BLOCKS OVE RLAP | ||
4679 | "RTN","SDE C",263,0) | ||
4680 | D TPBLKOV ^SDEC06(.S DECY,$G(SD ECSTART),$ G(SDECEND) ,$G(SDECRE S)) Q | ||
4681 | "RTN","SDE C",264,0) | ||
4682 | UNDOCANA(S DECY,SDECA PTID) ;EP Undo Canc el Appoint ment | ||
4683 | "RTN","SDE C",265,0) | ||
4684 | D UNDOCAN A^SDEC08(. SDECY,$G(S DECAPTID)) Q | ||
4685 | "RTN","SDE C",266,0) | ||
4686 | UNREGEV(SD ECY,SDECEV ENT,SDECIP ,SDECPORT) ;EP rpc S DE UNREGEV Called by client to Unregiste r client's interest in SDECEVE NT | ||
4687 | "RTN","SDE C",267,0) | ||
4688 | D UNREGEV ^SDEC23(.S DECY,$G(SD ECEVENT),$ G(SDECIP), $G(SDECPOR T)) Q | ||
4689 | "RTN","SDE C",268,0) | ||
4690 | WAITLIST(S DECY,SDECR ES) ;EP CO LLECT WAIT LIST DATA | ||
4691 | "RTN","SDE C",269,0) | ||
4692 | D WAITLIS T^SDEC36(. SDECY,$G(S DECRES)) Q | ||
4693 | "RTN","SDE C",270,0) | ||
4694 | WLCLOSE(RE T,INP...) ; Waitlist CLOSE | ||
4695 | "RTN","SDE C",271,0) | ||
4696 | D WLCLOSE ^SDECWL(.R ET,.INP) Q | ||
4697 | "RTN","SDE C",272,0) | ||
4698 | WLCLOSE1(R ET,INP) ; Waitlist C LOSE (wit hout ... f or VistA c alls) | ||
4699 | "RTN","SDE C",273,0) | ||
4700 | D WLCLOSE ^SDECWL(.R ET,.INP) Q | ||
4701 | "RTN","SDE C",274,0) | ||
4702 | WLGET(RET, WLIEN1,MAX REC,SDBEG, SDEND,DFN, LASTSUB,SD TOP,SVCL,D ESDT,PRI,S VCR,SCVISI T,CLINIC,O RIGDT) ;EP Waitlist GET ;alb /sat 658 a dd SVCL-SC VISIT | ||
4703 | "RTN","SDE C",275,0) | ||
4704 | D WLGET^S DECWL1(.RE T,$G(WLIEN 1),$G(MAXR EC),$G(SDB EG),$G(SDE ND),$G(DFN ),$G(LASTS UB),$G(SDT OP),$G(SVC L),$G(DESD T),$G(PRI) ,$G(SVCR), $G(SCVISIT ),$G(CLINI C),$G(ORIG DT)) Q | ||
4705 | "RTN","SDE C",276,0) | ||
4706 | WLHIDE(SDE CY,DFN,WLC L) ;GET wa it list en tries in w hich the a ssociated clinic's ' HIDE FROM DISPLAY?' field is ' YES' | ||
4707 | "RTN","SDE C",277,0) | ||
4708 | D WLHIDE^ SDECWL3(.S DECY,$G(DF N),$G(WLCL )) Q | ||
4709 | "RTN","SDE C",278,0) | ||
4710 | WLOPEN(RET ,WLAPP,WLI EN,WLDDT) ;SET Waitl ist Open/r e-open | ||
4711 | "RTN","SDE C",279,0) | ||
4712 | D WLOPEN^ SDECWL(.RE T,$G(WLAPP ),$G(WLIEN ),$G(WLDDT )) Q | ||
4713 | "RTN","SDE C",280,0) | ||
4714 | WLPCSET(SD ECY,INP,WL IEN) ;SET update pat ient conta cts in SD WAIT LIST file | ||
4715 | "RTN","SDE C",281,0) | ||
4716 | D WLPCSET ^SDECWL(.S DECY,$G(IN P),$G(WLIE N)) Q | ||
4717 | "RTN","SDE C",282,0) | ||
4718 | WLSET(RET, INP...) ;E P Waitlist Set | ||
4719 | "RTN","SDE C",283,0) | ||
4720 | D WLSET^S DECWL2(.RE T,.INP) Q | ||
4721 | "RTN","SDE C",284,0) | ||
4722 | WLSET1(RET ,INP) ;EP Waitlist S et (withou t ... for VistA call s) | ||
4723 | "RTN","SDE C",285,0) | ||
4724 | D WLSET^S DECWL2(.RE T,.INP) Q | ||
4725 | "RTN","SDE C01C") | ||
4726 | 0^1^B69927 064^n/a | ||
4727 | "RTN","SDE C01C",1,0) | ||
4728 | SDEC01C ;A LB/AJF - V ISTA SCHED ULING RPCS ;FEB 22, 2018 | ||
4729 | "RTN","SDE C01C",2,0) | ||
4730 | ;;5.3;Sch eduling;** 686**;;Bui ld 39 | ||
4731 | "RTN","SDE C01C",3,0) | ||
4732 | ; | ||
4733 | "RTN","SDE C01C",4,0) | ||
4734 | Q | ||
4735 | "RTN","SDE C01C",5,0) | ||
4736 | ; | ||
4737 | "RTN","SDE C01C",6,0) | ||
4738 | RESOURCE(S DECY,SDECD UZ,SDACT,S DTYPE,MAXR EC,LASTSUB I,SDIEN,SD ECP) ;Retu rns ADO Re cordset wi th ALL RES OURCE name s | ||
4739 | "RTN","SDE C01C",7,0) | ||
4740 | ; SDECD UZ = (opti onal) poin ter to NEW PERSON fi le | ||
4741 | "RTN","SDE C01C",8,0) | ||
4742 | ; Defau lts to cur rent user | ||
4743 | "RTN","SDE C01C",9,0) | ||
4744 | ; check s that ove rbook is a llowed | ||
4745 | "RTN","SDE C01C",10,0 ) | ||
4746 | ; SDACT = (opti onal) 1 or YES will return onl y active r esources | ||
4747 | "RTN","SDE C01C",11,0 ) | ||
4748 | ; 0, NO , or null will inclu de inactiv e | ||
4749 | "RTN","SDE C01C",12,0 ) | ||
4750 | ; SDTYP E = (op tional) nu ll will re turn all r esource ty pes | ||
4751 | "RTN","SDE C01C",13,0 ) | ||
4752 | ; H will only retu rn HOSPITA L LOCATION (clinic) resources | ||
4753 | "RTN","SDE C01C",14,0 ) | ||
4754 | ; P will only retu rn NEW PER SON (Provi der) resou rces | ||
4755 | "RTN","SDE C01C",15,0 ) | ||
4756 | ; A will only retu rn SDEC AD DITIONAL R ESOURCE re sources | ||
4757 | "RTN","SDE C01C",16,0 ) | ||
4758 | ; PH wil l only ret urn prohib ited clini cs | ||
4759 | "RTN","SDE C01C",17,0 ) | ||
4760 | ; MAXRE C - (opt ional) Max records r eturned | ||
4761 | "RTN","SDE C01C",18,0 ) | ||
4762 | ; LASTS UBI - (opt ional) las t subscrip ts from pr evious cal l | ||
4763 | "RTN","SDE C01C",19,0 ) | ||
4764 | ; SDIEN - (opt ional) poi nter to SD EC RESOURC E file | ||
4765 | "RTN","SDE C01C",20,0 ) | ||
4766 | ; onl y 1 record will be r eturned if SDIEN is present | ||
4767 | "RTN","SDE C01C",21,0 ) | ||
4768 | ; SDECP - (optio nal) Parti al name te xt | ||
4769 | "RTN","SDE C01C",22,0 ) | ||
4770 | ;RETURN: | ||
4771 | "RTN","SDE C01C",23,0 ) | ||
4772 | ; Succes sful Retur n: | ||
4773 | "RTN","SDE C01C",24,0 ) | ||
4774 | ; a glo bal array in which e ach array entry cont ains data from the | ||
4775 | "RTN","SDE C01C",25,0 ) | ||
4776 | ; SD EC RESOURC E file | ||
4777 | "RTN","SDE C01C",26,0 ) | ||
4778 | ; 1. RE SOURCEID - Pointer t o the SDEC RESOURCE file | ||
4779 | "RTN","SDE C01C",27,0 ) | ||
4780 | ; 2. HO SPITALID - Pointer t o the HOSP ITAL LOCAT ION file 4 4 | ||
4781 | "RTN","SDE C01C",28,0 ) | ||
4782 | ; 3. CL INNAME - Clinic Na me from HO SPITAL LOC ATION file 44 | ||
4783 | "RTN","SDE C01C",29,0 ) | ||
4784 | ; 4. AB BR - Abbreviat ion | ||
4785 | "RTN","SDE C01C",30,0 ) | ||
4786 | ; 5. RE SOURCE_NAM E - NAME f rom SDEC R ESOURCE fi le | ||
4787 | "RTN","SDE C01C",31,0 ) | ||
4788 | ; | ||
4789 | "RTN","SDE C01C",32,0 ) | ||
4790 | ; | ||
4791 | "RTN","SDE C01C",33,0 ) | ||
4792 | N SDA,SDC L,SDDATA,S DMSG,SDECE RR,SDECRET ,SDECIEN,S DECRES,SDE CDEP,SDECD DR,SDECDEP N,SDECRDAT ,SDECRNOD, SDECI,SDEC ,SDECLTR | ||
4793 | "RTN","SDE C01C",34,0 ) | ||
4794 | N ABBR,SD ECNOS,SDEC CAN,SDF,SD TYPR,SDX,S DPRO,PRO,S DH,SDK,SDR T,SDT,SDXT ,SDCN,SDHL | ||
4795 | "RTN","SDE C01C",35,0 ) | ||
4796 | S (SDF,SD RT,SDT,SDX )="",SDPRO =0 | ||
4797 | "RTN","SDE C01C",36,0 ) | ||
4798 | S SDECY=" ^TMP(""SDE C01C"","_$ J_",""RESO URCE"")" | ||
4799 | "RTN","SDE C01C",37,0 ) | ||
4800 | K @SDECY | ||
4801 | "RTN","SDE C01C",38,0 ) | ||
4802 | S SDECI=0 | ||
4803 | "RTN","SDE C01C",39,0 ) | ||
4804 | S (SDECER R,SDTYPR)= "" | ||
4805 | "RTN","SDE C01C",40,0 ) | ||
4806 | ; 1 2 3 | ||
4807 | "RTN","SDE C01C",41,0 ) | ||
4808 | S @SDECY@ (SDECI)="I 00010RESOU RCEID^I000 10HOSPITAL _LOCATION_ ID^T00030C LINNAME^T0 0030ABBR^T 00030RESOU RCE_NAME"_ $C(30) | ||
4809 | "RTN","SDE C01C",42,0 ) | ||
4810 | ;validate user | ||
4811 | "RTN","SDE C01C",43,0 ) | ||
4812 | S SDECDUZ =$G(SDECDU Z) | ||
4813 | "RTN","SDE C01C",44,0 ) | ||
4814 | I '+SDECD UZ S SDECD UZ=DUZ | ||
4815 | "RTN","SDE C01C",45,0 ) | ||
4816 | ;validate active | ||
4817 | "RTN","SDE C01C",46,0 ) | ||
4818 | S SDACT=1 | ||
4819 | "RTN","SDE C01C",47,0 ) | ||
4820 | ;S SDACT= $G(SDACT) | ||
4821 | "RTN","SDE C01C",48,0 ) | ||
4822 | ;S SDACT= $S(SDACT=1 :1,SDACT=" YES":1,1:0 ) | ||
4823 | "RTN","SDE C01C",49,0 ) | ||
4824 | ;validate type | ||
4825 | "RTN","SDE C01C",50,0 ) | ||
4826 | S SDTYPE= "H" | ||
4827 | "RTN","SDE C01C",51,0 ) | ||
4828 | ;MGH adde d new type | ||
4829 | "RTN","SDE C01C",52,0 ) | ||
4830 | ;I SDTYPE ="PH" S SD PRO=1 | ||
4831 | "RTN","SDE C01C",53,0 ) | ||
4832 | S SDTYPE= $S(SDTYPE= "H":"SC(", SDTYPE="P" :"VA(200", SDTYPE="A" :"SDEC",1: "") | ||
4833 | "RTN","SDE C01C",54,0 ) | ||
4834 | ;validate MAXREC | ||
4835 | "RTN","SDE C01C",55,0 ) | ||
4836 | S MAXREC= $G(MAXREC, 9999999) | ||
4837 | "RTN","SDE C01C",56,0 ) | ||
4838 | ;validate LASTSUBI | ||
4839 | "RTN","SDE C01C",57,0 ) | ||
4840 | S LASTSUB I=$G(LASTS UBI) | ||
4841 | "RTN","SDE C01C",58,0 ) | ||
4842 | ;validate SDIEN | ||
4843 | "RTN","SDE C01C",59,0 ) | ||
4844 | ;MGH chan ged to all ow multipl e IENS | ||
4845 | "RTN","SDE C01C",60,0 ) | ||
4846 | S SDIEN=$ G(SDIEN) | ||
4847 | "RTN","SDE C01C",61,0 ) | ||
4848 | I SDIEN'= "",'$D(^SD EC(409.831 ,+SDIEN,0) ) S SDIEN= "" | ||
4849 | "RTN","SDE C01C",62,0 ) | ||
4850 | I $G(SDIE N) D G RE SX | ||
4851 | "RTN","SDE C01C",63,0 ) | ||
4852 | .F SDK=1: 1:$L(SDIEN ,"|") D | ||
4853 | "RTN","SDE C01C",64,0 ) | ||
4854 | ..S SDECI EN=$P(SDIE N,"|",SDK) | ||
4855 | "RTN","SDE C01C",65,0 ) | ||
4856 | ..Q:'$D(^ SDEC(409.8 31,+SDECIE N,0)) | ||
4857 | "RTN","SDE C01C",66,0 ) | ||
4858 | ..S SDECR ES=SDECIEN | ||
4859 | "RTN","SDE C01C",67,0 ) | ||
4860 | ..D RES1 | ||
4861 | "RTN","SDE C01C",68,0 ) | ||
4862 | ;ien look up | ||
4863 | "RTN","SDE C01C",69,0 ) | ||
4864 | ;I +SDIEN S SDECRES =+SDIEN D RES1 G RES X | ||
4865 | "RTN","SDE C01C",70,0 ) | ||
4866 | ;validate SDECP | ||
4867 | "RTN","SDE C01C",71,0 ) | ||
4868 | S SDECP=$ G(SDECP) | ||
4869 | "RTN","SDE C01C",72,0 ) | ||
4870 | ;partial name looku p | ||
4871 | "RTN","SDE C01C",73,0 ) | ||
4872 | I SDECP'= "" D | ||
4873 | "RTN","SDE C01C",74,0 ) | ||
4874 | .S SDF=$S ($P(LASTSU BI,"|",1)' ="":$P(LAS TSUBI,"|", 1),1:"") | ||
4875 | "RTN","SDE C01C",75,0 ) | ||
4876 | .S (SDX,S DXT)=$S($P (LASTSUBI, "|",2)'="" :$$GETSUB^ SDEC56($P( LASTSUBI," |",2)),1:$ $GETSUB^SD EC56(SDECP )) | ||
4877 | "RTN","SDE C01C",76,0 ) | ||
4878 | .I ($P(LA STSUBI,"|" ,1)="")!($ P(LASTSUBI ,"|",1)="A BBR") S SD F="ABBR" F S SDX=$O (^SDEC(409 .831,"C",S DX)) Q:SDX ="" Q:SDX '[SDECP D Q:(+MAXR EC)&(SDECI '<MAXREC) | ||
4879 | "RTN","SDE C01C",77,0 ) | ||
4880 | ..S (SDEC RES,SDRT)= $S($P(LAST SUBI,"|",3 )'="":$P(L ASTSUBI,"| ",3),1:0) | ||
4881 | "RTN","SDE C01C",78,0 ) | ||
4882 | ..S LASTS UBI="" F S SDECRES= $O(^SDEC(4 09.831,"C" ,SDX,SDECR ES)) Q:'+S DECRES D RES1 Q:(+ MAXREC)&(S DECI'<MAXR EC) | ||
4883 | "RTN","SDE C01C",79,0 ) | ||
4884 | .I ($P(LA STSUBI,"|" ,1)="")!($ P(LASTSUBI ,"|",1)="F ULL") S SD F="FULL",S DX=SDXT F S SDX=$O( ^SDEC(409. 831,"B",SD X)) Q:SDX= "" Q:SDX' [SDECP D Q:(+MAXRE C)&(SDECI' <MAXREC) | ||
4885 | "RTN","SDE C01C",80,0 ) | ||
4886 | ..S (SDEC RES,SDRT)= $S($P(LAST SUBI,"|",3 )'="":$P(L ASTSUBI,"| ",3),SDRT' ="":SDRT,1 :0) | ||
4887 | "RTN","SDE C01C",81,0 ) | ||
4888 | ..S LASTS UBI="" F S SDECRES= $O(^SDEC(4 09.831,"B" ,SDX,SDECR ES)) Q:'+S DECRES D RES1 Q:(+ MAXREC)&(S DECI'<MAXR EC) | ||
4889 | "RTN","SDE C01C",82,0 ) | ||
4890 | ;$O THRU SDEC RESOU RCE File | ||
4891 | "RTN","SDE C01C",83,0 ) | ||
4892 | I SDECP=" ",'+SDIEN S SDECRES= $S($P(LAST SUBI,"|",2 )'="":$P(L ASTSUBI,"| ",2),1:0) F S SDECR ES=$O(^SDE C(409.831, SDECRES)) Q:'+SDECRE S D Q:(+ MAXREC)&(S DECI'<MAXR EC) | ||
4893 | "RTN","SDE C01C",84,0 ) | ||
4894 | .D RES1 | ||
4895 | "RTN","SDE C01C",85,0 ) | ||
4896 | RESX ; | ||
4897 | "RTN","SDE C01C",86,0 ) | ||
4898 | S @SDECY@ (SDECI)=@S DECY@(SDEC I)_$C(31) | ||
4899 | "RTN","SDE C01C",87,0 ) | ||
4900 | Q | ||
4901 | "RTN","SDE C01C",88,0 ) | ||
4902 | RES1 ; get data for 1 resource | ||
4903 | "RTN","SDE C01C",89,0 ) | ||
4904 | N FND | ||
4905 | "RTN","SDE C01C",90,0 ) | ||
4906 | S FND=0 | ||
4907 | "RTN","SDE C01C",91,0 ) | ||
4908 | Q:'$D(^SD EC(409.831 ,SDECRES,0 )) | ||
4909 | "RTN","SDE C01C",92,0 ) | ||
4910 | I SDF="FU LL",SDECP' ="" S FND= $$CHK(SDEC P,SDECRES) Q:+FND ;alb/sat 6 58 - stop if 'this' record fou nd in abbr eviations | ||
4911 | "RTN","SDE C01C",93,0 ) | ||
4912 | I SDECP'= "" S SDH=0 F S SDH= $O(^SDEC(4 09.831,"C" ,SDECP,SDH )) Q:SDH=" " S FND=S DH=SDECRES Q:FND | ||
4913 | "RTN","SDE C01C",94,0 ) | ||
4914 | S SDECRNO D=^SDEC(40 9.831,SDEC RES,0) | ||
4915 | "RTN","SDE C01C",95,0 ) | ||
4916 | I SDTYPE' ="" Q:$P(S DECRNOD,U, 11)'[SDTYP E | ||
4917 | "RTN","SDE C01C",96,0 ) | ||
4918 | S SDTYPR= $P(SDECRNO D,U,11) | ||
4919 | "RTN","SDE C01C",97,0 ) | ||
4920 | S $P(SDTY PR,"|",1)= $S($P(SDTY PR,";",2)= "SC(":"H", $P(SDTYPR, ";",2)="VA (200,":"P" ,$P(SDTYPR ,";",2)="S DEC(409.83 4,":"A",1: "") | ||
4921 | "RTN","SDE C01C",98,0 ) | ||
4922 | S $P(SDTY PR,"|",2)= $P($P(SDEC RNOD,U,11) ,";",1) | ||
4923 | "RTN","SDE C01C",99,0 ) | ||
4924 | S $P(SDTY PR,"|",3)= $$GET1^DIQ (409.831,S DECRES_"," ,.012) | ||
4925 | "RTN","SDE C01C",100, 0) | ||
4926 | I $P(SDTY PR,"|",1)= "P" D RESP RV1^SDEC01 B($P(SDTYP R,"|",2),$ P(SDECRNOD ,U,4)) ;d o not incl ude provid er resourc e if NEW P ERSON is n ot active | ||
4927 | "RTN","SDE C01C",101, 0) | ||
4928 | I $P(SDTY PR,"|",1)= "H" D CHKC ^SDEC01B($ P(SDTYPR," |",2),SDEC RES) | ||
4929 | "RTN","SDE C01C",102, 0) | ||
4930 | I +SDACT, $$GET1^DIQ (409.831,S DECRES_"," ,.02)="YES " Q ;do not includ e inactive entries | ||
4931 | "RTN","SDE C01C",103, 0) | ||
4932 | D GETACC( .SDECACC,S DECDUZ,SDE CRES) | ||
4933 | "RTN","SDE C01C",104, 0) | ||
4934 | K SDECRDA T | ||
4935 | "RTN","SDE C01C",105, 0) | ||
4936 | ;alb/sat 658 - begi n mod | ||
4937 | "RTN","SDE C01C",106, 0) | ||
4938 | ; | ||
4939 | "RTN","SDE C01C",107, 0) | ||
4940 | S $P(SDEC RDAT,U,1)= $P(SDECRNO D,U,1) | ||
4941 | "RTN","SDE C01C",108, 0) | ||
4942 | S $P(SDEC RDAT,U,2)= $P(SDECRNO D,U,2) | ||
4943 | "RTN","SDE C01C",109, 0) | ||
4944 | S $P(SDEC RDAT,U,3)= $P(SDECRNO D,U,3) | ||
4945 | "RTN","SDE C01C",110, 0) | ||
4946 | S $P(SDEC RDAT,U,4)= $P(SDECRNO D,U,4) | ||
4947 | "RTN","SDE C01C",111, 0) | ||
4948 | S SDHL=$P (SDECRNOD, U,4) | ||
4949 | "RTN","SDE C01C",112, 0) | ||
4950 | S SDCN=$$ GET1^DIQ(4 4,SDHL_"," ,.01) ;cl inic name | ||
4951 | "RTN","SDE C01C",113, 0) | ||
4952 | ;alb/sat 658 - end mod | ||
4953 | "RTN","SDE C01C",114, 0) | ||
4954 | S SDECRDA T=SDECRES_ U_SDECRDAT ;1,2-5 | ||
4955 | "RTN","SDE C01C",115, 0) | ||
4956 | S SDCL=$P (SDECRDAT, U,5) | ||
4957 | "RTN","SDE C01C",116, 0) | ||
4958 | Q:+$$GET1 ^DIQ(44,SD CL_",",50. 01,"I")=1 ;OOS? | ||
4959 | "RTN","SDE C01C",117, 0) | ||
4960 | S PRO=0 | ||
4961 | "RTN","SDE C01C",118, 0) | ||
4962 | ;MGH code for new t ype to onl y contain prohibited clinics | ||
4963 | "RTN","SDE C01C",119, 0) | ||
4964 | Q:$G(SDCL )=""&(SDPR O=1) | ||
4965 | "RTN","SDE C01C",120, 0) | ||
4966 | Q:$G(SDCL )&(SDPRO=1 )&($$GET1^ DIQ(44,SDC L_",",2500 )'="YES") | ||
4967 | "RTN","SDE C01C",121, 0) | ||
4968 | S $P(SDEC RDAT,U,3)= $$GET1^DIQ (409.831,S DECRES_"," ,.02) | ||
4969 | "RTN","SDE C01C",122, 0) | ||
4970 | ;Get lett er text fr om wp fiel d | ||
4971 | "RTN","SDE C01C",123, 0) | ||
4972 | S SDECLTR ="" | ||
4973 | "RTN","SDE C01C",124, 0) | ||
4974 | I 0,$D(^S DEC(409.83 1,SDECRES, 1)) D | ||
4975 | "RTN","SDE C01C",125, 0) | ||
4976 | . S SDECI EN=0 | ||
4977 | "RTN","SDE C01C",126, 0) | ||
4978 | . F S SD ECIEN=$O(^ SDEC(409.8 31,SDECRES ,1,SDECIEN )) Q:'+SDE CIEN D | ||
4979 | "RTN","SDE C01C",127, 0) | ||
4980 | . . S SDE CLTR=SDECL TR_$G(^SDE C(409.831, SDECRES,1, SDECIEN,0) ) | ||
4981 | "RTN","SDE C01C",128, 0) | ||
4982 | . . S SDE CLTR=SDECL TR_$C(13)_ $C(10) | ||
4983 | "RTN","SDE C01C",129, 0) | ||
4984 | S SDECNOS ="" | ||
4985 | "RTN","SDE C01C",130, 0) | ||
4986 | I 0,$D(^S DEC(409.83 1,SDECRES, 12)) D | ||
4987 | "RTN","SDE C01C",131, 0) | ||
4988 | . S SDECI EN=0 F S SDECIEN=$O (^SDEC(409 .831,SDECR ES,12,SDEC IEN)) Q:'+ SDECIEN D | ||
4989 | "RTN","SDE C01C",132, 0) | ||
4990 | . . S SDE CNOS=SDECN OS_$G(^SDE C(409.831, SDECRES,12 ,SDECIEN,0 )) | ||
4991 | "RTN","SDE C01C",133, 0) | ||
4992 | . . S SDE CNOS=SDECN OS_$C(13)_ $C(10) | ||
4993 | "RTN","SDE C01C",134, 0) | ||
4994 | S SDECCAN ="" | ||
4995 | "RTN","SDE C01C",135, 0) | ||
4996 | I 0,$D(^S DEC(409.83 1,SDECRES, 13)) D | ||
4997 | "RTN","SDE C01C",136, 0) | ||
4998 | . S SDECI EN=0 F S SDECIEN=$O (^SDEC(409 .831,SDECR ES,13,SDEC IEN)) Q:'+ SDECIEN D | ||
4999 | "RTN","SDE C01C",137, 0) | ||
5000 | . . S SDE CCAN=SDECC AN_$G(^SDE C(409.831, SDECRES,13 ,SDECIEN,0 )) | ||
5001 | "RTN","SDE C01C",138, 0) | ||
5002 | . . S SDE CCAN=SDECC AN_$C(13)_ $C(10) | ||
5003 | "RTN","SDE C01C",139, 0) | ||
5004 | N SDECACC ,SDECMGR | ||
5005 | "RTN","SDE C01C",140, 0) | ||
5006 | S SDECACC ="0^0^0^0" | ||
5007 | "RTN","SDE C01C",141, 0) | ||
5008 | S SDECMGR =$O(^DIC(1 9.1,"B","S DECZMGR",0 )) | ||
5009 | "RTN","SDE C01C",142, 0) | ||
5010 | I +SDECMG R,$D(^VA(2 00,SDECDUZ ,51,SDECMG R)) S SDEC ACC="1^1^1 ^1" | ||
5011 | "RTN","SDE C01C",143, 0) | ||
5012 | I SDECACC ="0^0^0^0" D | ||
5013 | "RTN","SDE C01C",144, 0) | ||
5014 | . N SDECN OD,SDECRUI D | ||
5015 | "RTN","SDE C01C",145, 0) | ||
5016 | . S SDECR UID=0 | ||
5017 | "RTN","SDE C01C",146, 0) | ||
5018 | . ;Get en try for th is user an d resource | ||
5019 | "RTN","SDE C01C",147, 0) | ||
5020 | . F S SD ECRUID=$O( ^SDEC(409. 833,"AC",S DECDUZ,SDE CRUID)) Q: '+SDECRUID I $D(^SD EC(409.833 ,SDECRUID, 0)),$P(^(0 ),U)=SDECR ES Q | ||
5021 | "RTN","SDE C01C",148, 0) | ||
5022 | . Q:'+SDE CRUID | ||
5023 | "RTN","SDE C01C",149, 0) | ||
5024 | . S $P(SD ECACC,U)=1 | ||
5025 | "RTN","SDE C01C",150, 0) | ||
5026 | . S SDECN OD=$G(^SDE C(409.833, SDECRUID,0 )) | ||
5027 | "RTN","SDE C01C",151, 0) | ||
5028 | . S $P(SD ECACC,U,2) =+$P(SDECN OD,U,3) | ||
5029 | "RTN","SDE C01C",152, 0) | ||
5030 | . S $P(SD ECACC,U,3) =+$P(SDECN OD,U,4) | ||
5031 | "RTN","SDE C01C",153, 0) | ||
5032 | . S $P(SD ECACC,U,4) =+$P(SDECN OD,U,5) | ||
5033 | "RTN","SDE C01C",154, 0) | ||
5034 | ; 6 7 8 9-12 | ||
5035 | "RTN","SDE C01C",155, 0) | ||
5036 | K SDDATA D GETS^DIQ (409.831,S DECRES_"," ,".01:.04" ,"IE","SDD ATA","SDMS G") | ||
5037 | "RTN","SDE C01C",156, 0) | ||
5038 | S SDA="SD DATA(409.8 31,"""_SDE CRES_","") " | ||
5039 | "RTN","SDE C01C",157, 0) | ||
5040 | S ABBR=@S DA@(.011," E") ;abb reviation | ||
5041 | "RTN","SDE C01C",158, 0) | ||
5042 | ;AJF ; 02 2718 ; Onl y return 7 variables | ||
5043 | "RTN","SDE C01C",159, 0) | ||
5044 | S SDECRDA T=SDECRES_ U_SDHL_U_S DCN_U_ABBR _U_$P(SDEC RNOD,U) | ||
5045 | "RTN","SDE C01C",160, 0) | ||
5046 | ;S SDECRD AT=SDECRES _U_SDHL_U_ SDCN | ||
5047 | "RTN","SDE C01C",161, 0) | ||
5048 | S $P(SDEC RDAT,U,4)= @SDA@(.011 ,"E") ;a bbreviatio n | ||
5049 | "RTN","SDE C01C",162, 0) | ||
5050 | S $P(SDEC RDAT,U,5)= $S(($G(SDF )="ABBR")& (@SDA@(.01 1,"E")'="" ):@SDA@(.0 11,"E")_" ",1:"")_$P (SDECRDAT, U,5) ;alb /sat 658 - include a bbr in nam e if found by C xref | ||
5051 | "RTN","SDE C01C",163, 0) | ||
5052 | ;S $P(SDE CRDAT,U,6) =SDF_"|"_S DX_"|"_SDE CRES ;LA STSUB | ||
5053 | "RTN","SDE C01C",164, 0) | ||
5054 | S SDECI=S DECI+1 | ||
5055 | "RTN","SDE C01C",165, 0) | ||
5056 | S @SDECY@ (SDECI)=SD ECRDAT_$C( 30) | ||
5057 | "RTN","SDE C01C",166, 0) | ||
5058 | Q | ||
5059 | "RTN","SDE C01C",167, 0) | ||
5060 | ; | ||
5061 | "RTN","SDE C01C",168, 0) | ||
5062 | GETACC(SDE CACC,SDECD UZ,SDECRES ) ;get vie w, overboo k, modify appt, and modify sch edule abil ities | ||
5063 | "RTN","SDE C01C",169, 0) | ||
5064 | ;INPUT: | ||
5065 | "RTN","SDE C01C",170, 0) | ||
5066 | ; SDECDUZ = user ID pointer t o NEW PERS ON file | ||
5067 | "RTN","SDE C01C",171, 0) | ||
5068 | ; SDECRES = resourc e ID point er to SDEC RESOURCE file | ||
5069 | "RTN","SDE C01C",172, 0) | ||
5070 | ;RETURN: | ||
5071 | "RTN","SDE C01C",173, 0) | ||
5072 | ; .SDECAC C = acces s separate d by ^: | ||
5073 | "RTN","SDE C01C",174, 0) | ||
5074 | ; 1. VI EW - User can VIEW 1 =YES; 0=NO | ||
5075 | "RTN","SDE C01C",175, 0) | ||
5076 | ; 2. OV ERBOOK - U ser can OV ERBOOK 1= YES; 0=NO | ||
5077 | "RTN","SDE C01C",176, 0) | ||
5078 | ; 3. MO DIFY SCHED ULE - User can Modif y Schedule 1=YES; 0 =NO | ||
5079 | "RTN","SDE C01C",177, 0) | ||
5080 | ; 4. MO DIFY APPOI NTMENTS Us er can mod ify appoin tments 1= YES; 0=NO | ||
5081 | "RTN","SDE C01C",178, 0) | ||
5082 | N SDECMGR | ||
5083 | "RTN","SDE C01C",179, 0) | ||
5084 | S SDECACC ="0^0^0^0" | ||
5085 | "RTN","SDE C01C",180, 0) | ||
5086 | S SDECMGR =$O(^DIC(1 9.1,"B","S DECZMGR",0 )) | ||
5087 | "RTN","SDE C01C",181, 0) | ||
5088 | I +SDECMG R,$D(^VA(2 00,SDECDUZ ,51,SDECMG R)) S SDEC ACC="1^1^1 ^1" | ||
5089 | "RTN","SDE C01C",182, 0) | ||
5090 | I SDECACC ="0^0^0^0" D | ||
5091 | "RTN","SDE C01C",183, 0) | ||
5092 | . N SDECN OD,SDECRUI D | ||
5093 | "RTN","SDE C01C",184, 0) | ||
5094 | . S SDECR UID=0 | ||
5095 | "RTN","SDE C01C",185, 0) | ||
5096 | . ;Get en try for th is user an d resource | ||
5097 | "RTN","SDE C01C",186, 0) | ||
5098 | . F S SD ECRUID=$O( ^SDEC(409. 833,"AC",S DECDUZ,SDE CRUID)) Q: '+SDECRUID I $D(^SD EC(409.833 ,SDECRUID, 0)),$P(^(0 ),U)=SDECR ES Q | ||
5099 | "RTN","SDE C01C",187, 0) | ||
5100 | . Q:'+SDE CRUID | ||
5101 | "RTN","SDE C01C",188, 0) | ||
5102 | . S $P(SD ECACC,U)=1 | ||
5103 | "RTN","SDE C01C",189, 0) | ||
5104 | . S SDECN OD=$G(^SDE C(409.833, SDECRUID,0 )) | ||
5105 | "RTN","SDE C01C",190, 0) | ||
5106 | . S $P(SD ECACC,U,2) =+$P(SDECN OD,U,3) | ||
5107 | "RTN","SDE C01C",191, 0) | ||
5108 | . S $P(SD ECACC,U,3) =+$P(SDECN OD,U,4) | ||
5109 | "RTN","SDE C01C",192, 0) | ||
5110 | . S $P(SD ECACC,U,4) =+$P(SDECN OD,U,5) | ||
5111 | "RTN","SDE C01C",193, 0) | ||
5112 | Q | ||
5113 | "RTN","SDE C01C",194, 0) | ||
5114 | ; | ||
5115 | "RTN","SDE C01C",195, 0) | ||
5116 | GETLTRS(SD ECLTR,SDEC NOS,SDECCA N,SDECRES, SDCL) ;get resource letters | ||
5117 | "RTN","SDE C01C",196, 0) | ||
5118 | ;INPUT: | ||
5119 | "RTN","SDE C01C",197, 0) | ||
5120 | ; SDECRES = resourc e ID point er to SDEC RESOURCE file | ||
5121 | "RTN","SDE C01C",198, 0) | ||
5122 | ; SDCL = clinic ID pointer to HOSPIT AL LOCATIO N file | ||
5123 | "RTN","SDE C01C",199, 0) | ||
5124 | ;RETURN: | ||
5125 | "RTN","SDE C01C",200, 0) | ||
5126 | ; .SDECLT R = LETTER TEXT | ||
5127 | "RTN","SDE C01C",201, 0) | ||
5128 | ; .SDECNO S = NO SHO W LETTER | ||
5129 | "RTN","SDE C01C",202, 0) | ||
5130 | ; .SDECCA N = CLINIC CANCELLAT ION LETTER | ||
5131 | "RTN","SDE C01C",203, 0) | ||
5132 | ; .Get le tter text from wp fi eld | ||
5133 | "RTN","SDE C01C",204, 0) | ||
5134 | N SDECIEN | ||
5135 | "RTN","SDE C01C",205, 0) | ||
5136 | S SDECLTR ="" | ||
5137 | "RTN","SDE C01C",206, 0) | ||
5138 | I $D(^SDE C(409.831, SDECRES,2, SDCL,1)) D | ||
5139 | "RTN","SDE C01C",207, 0) | ||
5140 | . S SDECI EN=0 F S SDECIEN=$O (^SDEC(409 .831,SDECR ES,2,SDCL, 1,SDECIEN) ) Q:'+SDEC IEN D | ||
5141 | "RTN","SDE C01C",208, 0) | ||
5142 | . . S SDE CLTR=SDECL TR_$G(^SDE C(409.831, SDECRES,2, SDCL,1,SDE CIEN,0)) | ||
5143 | "RTN","SDE C01C",209, 0) | ||
5144 | . . S SDE CLTR=SDECL TR_$C(13)_ $C(10) | ||
5145 | "RTN","SDE C01C",210, 0) | ||
5146 | S SDECNOS ="" | ||
5147 | "RTN","SDE C01C",211, 0) | ||
5148 | I $D(^SDE C(409.831, SDECRES,2, SDCL,12)) D | ||
5149 | "RTN","SDE C01C",212, 0) | ||
5150 | . S SDECI EN=0 F S SDECIEN=$O (^SDEC(409 .831,SDECR ES,2,SDCL, 12,SDECIEN )) Q:'+SDE CIEN D | ||
5151 | "RTN","SDE C01C",213, 0) | ||
5152 | . . S SDE CNOS=SDECN OS_$G(^SDE C(409.831, SDECRES,2, SDCL,12,SD ECIEN,0)) | ||
5153 | "RTN","SDE C01C",214, 0) | ||
5154 | . . S SDE CNOS=SDECN OS_$C(13)_ $C(10) | ||
5155 | "RTN","SDE C01C",215, 0) | ||
5156 | S SDECCAN ="" | ||
5157 | "RTN","SDE C01C",216, 0) | ||
5158 | I $D(^SDE C(409.831, SDECRES,13 )) D | ||
5159 | "RTN","SDE C01C",217, 0) | ||
5160 | . S SDECI EN=0 F S SDECIEN=$O (^SDEC(409 .831,SDECR ES,2,SDCL, 13,SDECIEN )) Q:'+SDE CIEN D | ||
5161 | "RTN","SDE C01C",218, 0) | ||
5162 | . . S SDE CCAN=SDECC AN_$G(^SDE C(409.831, SDECRES,2, SDCL,13,SD ECIEN,0)) | ||
5163 | "RTN","SDE C01C",219, 0) | ||
5164 | . . S SDE CCAN=SDECC AN_$C(13)_ $C(10) | ||
5165 | "RTN","SDE C01C",220, 0) | ||
5166 | Q | ||
5167 | "RTN","SDE C01C",221, 0) | ||
5168 | ; | ||
5169 | "RTN","SDE C01C",222, 0) | ||
5170 | CHK(SDECP, SDECRES) ;alb/sat 6 58 - stop if 'this' record fou nd in abbr eviations | ||
5171 | "RTN","SDE C01C",223, 0) | ||
5172 | N FND,SDR ,SDX | ||
5173 | "RTN","SDE C01C",224, 0) | ||
5174 | S FND=0 | ||
5175 | "RTN","SDE C01C",225, 0) | ||
5176 | S SDX=$$G ETSUB^SDEC 56(SDECP) | ||
5177 | "RTN","SDE C01C",226, 0) | ||
5178 | F S SDX= $O(^SDEC(4 09.831,"C" ,SDX)) Q:S DX="" Q:S DX'[SDECP D Q:+FND | ||
5179 | "RTN","SDE C01C",227, 0) | ||
5180 | .S SDR=0 F S SDR=$ O(^SDEC(40 9.831,"C", SDX,SDR)) Q:'+SDR S FND=SDR=S DECRES Q: +FND | ||
5181 | "RTN","SDE C01C",228, 0) | ||
5182 | Q FND | ||
5183 | "RTN","SDE C07") | ||
5184 | 0^10^B2063 27125^B200 567128 | ||
5185 | "RTN","SDE C07",1,0) | ||
5186 | SDEC07 ;AL B/SAT - VI STA SCHEDU LING RPCS ; 11 Sep 2 018 1:45 PM | ||
5187 | "RTN","SDE C07",2,0) | ||
5188 | ;;5.3;Sch eduling;** 627,642,65 1,658,665, 669,671,67 2,701,686* *;Aug 13, 1993;Build 39 | ||
5189 | "RTN","SDE C07",3,0) | ||
5190 | ; | ||
5191 | "RTN","SDE C07",4,0) | ||
5192 | ;Referenc e is made to ICR #48 37 | ||
5193 | "RTN","SDE C07",5,0) | ||
5194 | Q | ||
5195 | "RTN","SDE C07",6,0) | ||
5196 | ; | ||
5197 | "RTN","SDE C07",7,0) | ||
5198 | APPADD(SDE CY,SDECSTA RT,SDECEND ,DFN,SDECR ES,SDECLEN ,SDECNOTE, SDECATID,S DECCR,SDMR TC,SDDDT,S DREQBY,SDL AB,PROVIEN ,SDID,SDAP TYP,SDSVCP ,SDSVCPR,S DCL,SDEKG, SDXRAY,APP TYPE,EESTA T,OVB,SDPA RENT,SDEL) ;ADD NEW APPOINTMEN T | ||
5199 | "RTN","SDE C07",8,0) | ||
5200 | ; | ||
5201 | "RTN","SDE C07",9,0) | ||
5202 | N SDAPPTY P | ||
5203 | "RTN","SDE C07",10,0) | ||
5204 | N SDECERR ,SDECIEN,S DECDEP,SDE CI,SDECJ,S DECAPPTI,S DECDJ,SDEC RESD,SDECR NOD,SDECC, SDECERR,SD ECWKIN | ||
5205 | "RTN","SDE C07",11,0) | ||
5206 | N SDECNOE V,SDECDEV, SDECDERR,S DECTMP,SAV ESTRT,SDAR EQ0 | ||
5207 | "RTN","SDE C07",12,0) | ||
5208 | N %DT,X,Y ,DGQUIET,O BM,RET | ||
5209 | "RTN","SDE C07",13,0) | ||
5210 | N SDOE ; alb/sat 67 2 | ||
5211 | "RTN","SDE C07",14,0) | ||
5212 | S SDECNOE V=1 ;Don't execute S DEC ADD AP POINTMENT protocol | ||
5213 | "RTN","SDE C07",15,0) | ||
5214 | K ^TMP("S DEC07",$J) | ||
5215 | "RTN","SDE C07",16,0) | ||
5216 | S SDECERR =0 | ||
5217 | "RTN","SDE C07",17,0) | ||
5218 | S SDECI=0 | ||
5219 | "RTN","SDE C07",18,0) | ||
5220 | S SDECY=" ^TMP(""SDE C07"","_$J _")" | ||
5221 | "RTN","SDE C07",19,0) | ||
5222 | S ^TMP("S DEC07",$J, SDECI)="I0 0020APPOIN TMENTID^T0 0020ERRORI D"_$C(30) | ||
5223 | "RTN","SDE C07",20,0) | ||
5224 | S SDECI=S DECI+1 | ||
5225 | "RTN","SDE C07",21,0) | ||
5226 | ;Check in put data f or errors | ||
5227 | "RTN","SDE C07",22,0) | ||
5228 | S SDAREQ0 =$G(^SDEC( 409.85,+$P (SDAPTYP," |",2),0)) | ||
5229 | "RTN","SDE C07",23,0) | ||
5230 | I $P(SDAR EQ0,U,5)=" RTC",$P(SD AREQ0,U,17 )="C" D ER R(SDECI+1, "SDEC07 Er ror: This RTC reques t has been closed.") Q | ||
5231 | "RTN","SDE C07",24,0) | ||
5232 | S SAVESTR T=SDECSTAR T ;MGH save date/time for consul t request | ||
5233 | "RTN","SDE C07",25,0) | ||
5234 | S:SDECSTA RT["@0000" SDECSTART =$P(SDECST ART,"@") | ||
5235 | "RTN","SDE C07",26,0) | ||
5236 | S:SDECEND ["@0000" S DECEND=$P( SDECEND,"@ ") | ||
5237 | "RTN","SDE C07",27,0) | ||
5238 | S %DT="RX T",X=SDECS TART D ^%D T S SDECST ART=Y | ||
5239 | "RTN","SDE C07",28,0) | ||
5240 | I SDECSTA RT=-1 D ER R(SDECI+1, "SDEC07 Er ror: Inval id Start T ime") Q | ||
5241 | "RTN","SDE C07",29,0) | ||
5242 | S %DT="RX T",X=SDECE ND D ^%DT S SDECEND= Y | ||
5243 | "RTN","SDE C07",30,0) | ||
5244 | I SDECEND =-1 D ERR( SDECI+1,"S DEC07 Erro r: Invalid End Time" ) Q | ||
5245 | "RTN","SDE C07",31,0) | ||
5246 | I $L(SDEC END,".")=1 D ERR(SDE CI+1,"SDEC 07 Error: Invalid En d Time") Q | ||
5247 | "RTN","SDE C07",32,0) | ||
5248 | I SDECSTA RT>SDECEND S SDECTMP =SDECEND,S DECEND=SDE CSTART,SDE CSTART=SDE CTMP | ||
5249 | "RTN","SDE C07",33,0) | ||
5250 | S DFN=$G( DFN) | ||
5251 | "RTN","SDE C07",34,0) | ||
5252 | I DFN="" D ERR(SDEC I+1,"SDEC0 7: Patient ID requir ed.") Q | ||
5253 | "RTN","SDE C07",35,0) | ||
5254 | I '$D(^DP T(DFN,0)) D ERR(SDEC I+1,"SDEC0 7 Error: I nvalid Pat ient ID") Q | ||
5255 | "RTN","SDE C07",36,0) | ||
5256 | L +^DPT(D FN):3 I '$ T D ERR(SD ECI+1,"Pat ient is be ing edited . Try agai n later.") Q ;alb/ sat 665 | ||
5257 | "RTN","SDE C07",37,0) | ||
5258 | ;Validate Resource | ||
5259 | "RTN","SDE C07",38,0) | ||
5260 | S SDECERR =0 K SDECR ESD | ||
5261 | "RTN","SDE C07",39,0) | ||
5262 | S SDECRES =$G(SDECRE S) | ||
5263 | "RTN","SDE C07",40,0) | ||
5264 | I +SDECRE S,'$D(^SDE C(409.831, SDECRES,0) ) D ERR(SD ECI+1,"SDE C07 Error: Invalid R esource ID ") Q | ||
5265 | "RTN","SDE C07",41,0) | ||
5266 | I '+SDECR ES,'$D(^SD EC(409.831 ,"B",SDECR ES)) D ERR (SDECI+1," SDEC07 Err or: Invali d Resource ID") Q | ||
5267 | "RTN","SDE C07",42,0) | ||
5268 | S SDECRES D=$S(+SDEC RES:+SDECR ES,1:$O(^S DEC(409.83 1,"B",SDEC RES,0))) | ||
5269 | "RTN","SDE C07",43,0) | ||
5270 | S SDECRNO D=$G(^SDEC (409.831,S DECRESD,0) ) | ||
5271 | "RTN","SDE C07",44,0) | ||
5272 | I SDECRNO D="" D ERR (SDECI+1," SDEC07 Err or: Unable to add ap pointment -- invalid Resource entry.") Q | ||
5273 | "RTN","SDE C07",45,0) | ||
5274 | ; | ||
5275 | "RTN","SDE C07",46,0) | ||
5276 | ; Check that appoi ntment dat e is not l ater than clinic per mits or 39 0 days in future if no limit i n clinic f ile (#44). | ||
5277 | "RTN","SDE C07",47,0) | ||
5278 | ; | ||
5279 | "RTN","SDE C07",48,0) | ||
5280 | ; wtc 6/ 18/18 SD*5 .3*701 | ||
5281 | "RTN","SDE C07",49,0) | ||
5282 | ; | ||
5283 | "RTN","SDE C07",50,0) | ||
5284 | N PTR44,M AXDAYS S P TR44=$P(SD ECRNOD,"^" ,4),MAXDAY S=390 ; | ||
5285 | "RTN","SDE C07",51,0) | ||
5286 | I +PTR44, $D(^SC(PTR 44,"SDP")) S MAXDAYS =$P(^("SDP "),"^",2) S:MAXDAYS= "" MAXDAYS =390 ; | ||
5287 | "RTN","SDE C07",52,0) | ||
5288 | I SDECSTA RT>$$FMADD ^XLFDT($$N OW^XLFDT() ,MAXDAYS) D ERR(SDEC I+1,"Appoi ntment dat e too far in the fut ure") Q ; | ||
5289 | "RTN","SDE C07",53,0) | ||
5290 | ; | ||
5291 | "RTN","SDE C07",54,0) | ||
5292 | S SDECWKI N=0 | ||
5293 | "RTN","SDE C07",55,0) | ||
5294 | S SDECATI D=$G(SDECA TID) | ||
5295 | "RTN","SDE C07",56,0) | ||
5296 | I SDECATI D="WALKIN" S SDECWKI N=1 | ||
5297 | "RTN","SDE C07",57,0) | ||
5298 | I SDECATI D'?.N&(SDE CATID'="WA LKIN") S S DECATID="" | ||
5299 | "RTN","SDE C07",58,0) | ||
5300 | ;validate appointme nt length - if passe d in, must be 5-120 | ||
5301 | "RTN","SDE C07",59,0) | ||
5302 | S SDECLEN =$G(SDECLE N) | ||
5303 | "RTN","SDE C07",60,0) | ||
5304 | ;I SDECLE N'="",(+SD ECLEN<5)!( SDECLEN>12 0) D ERR(S DECI+1,"SD EC07 Error : Appointm ent length must be b etween 5 - 120.") Q | ||
5305 | "RTN","SDE C07",61,0) | ||
5306 | ;validate MTRC flag (optional ) | ||
5307 | "RTN","SDE C07",62,0) | ||
5308 | S SDMRTC= $$UP^XLFST R($G(SDMRT C)) | ||
5309 | "RTN","SDE C07",63,0) | ||
5310 | S SDMRTC= $S(SDMRTC= "TRUE":1,1 :0) | ||
5311 | "RTN","SDE C07",64,0) | ||
5312 | ;validate desired d ate of app t (optiona l) | ||
5313 | "RTN","SDE C07",65,0) | ||
5314 | S SDDDT=$ G(SDDDT) | ||
5315 | "RTN","SDE C07",66,0) | ||
5316 | I SDDDT'= "" S %DT=" " S X=$P(S DDDT,"@",1 ) D ^%DT S SDDDT=Y I Y=-1 S SD DDT="" | ||
5317 | "RTN","SDE C07",67,0) | ||
5318 | I SDDDT=" ",SDECATID '="WALKIN" S SDDDT=$ P(SDECSTAR T,".",1) | ||
5319 | "RTN","SDE C07",68,0) | ||
5320 | ;validate requested by | ||
5321 | "RTN","SDE C07",69,0) | ||
5322 | S SDREQBY =$$UP^XLFS TR($G(SDRE QBY)) | ||
5323 | "RTN","SDE C07",70,0) | ||
5324 | I SDREQBY '="" S SDR EQBY=$S(SD REQBY="PRO VIDER":1,S DREQBY="PA TIENT":2,1 :0) | ||
5325 | "RTN","SDE C07",71,0) | ||
5326 | ;validate lab date/ time (opti onal) | ||
5327 | "RTN","SDE C07",72,0) | ||
5328 | S SDLAB=$ G(SDLAB) | ||
5329 | "RTN","SDE C07",73,0) | ||
5330 | I SDLAB'= "" S %DT=" T" S X=SDL AB D ^%DT S SDLAB=Y I Y=-1 S S DLAB="" | ||
5331 | "RTN","SDE C07",74,0) | ||
5332 | ;validate EKG date/ time (opti onal) | ||
5333 | "RTN","SDE C07",75,0) | ||
5334 | S SDEKG=$ G(SDEKG) | ||
5335 | "RTN","SDE C07",76,0) | ||
5336 | I SDEKG'= "" S %DT=" T" S X=SDE KG D ^%DT S SDEKG=Y I Y=-1 S S DEKG="" | ||
5337 | "RTN","SDE C07",77,0) | ||
5338 | ;validate XRAY date /time (opt ional) | ||
5339 | "RTN","SDE C07",78,0) | ||
5340 | S SDXRAY= $G(SDXRAY) | ||
5341 | "RTN","SDE C07",79,0) | ||
5342 | I SDXRAY' ="" S %DT= "T" S X=SD XRAY D ^%D T S SDXRAY =Y I Y=-1 S SDXRAY=" " | ||
5343 | "RTN","SDE C07",80,0) | ||
5344 | ;validate provider | ||
5345 | "RTN","SDE C07",81,0) | ||
5346 | I '$D(^VA (200,+$G(P ROVIEN),0) ) S PROVIE N="" | ||
5347 | "RTN","SDE C07",82,0) | ||
5348 | S SDID=$G (SDID) | ||
5349 | "RTN","SDE C07",83,0) | ||
5350 | ;validate clinic | ||
5351 | "RTN","SDE C07",84,0) | ||
5352 | S SDCL=$G (SDCL) | ||
5353 | "RTN","SDE C07",85,0) | ||
5354 | I SDCL'=" " I '$D(^S C(SDCL,0)) S SDCL="" | ||
5355 | "RTN","SDE C07",86,0) | ||
5356 | I SDCL="" S SDCL=$$ GET1^DIQ(4 09.831,SDE CRESD_",", .04,"I") ;clinic I D ;suppo rt for sin gle HOSPIT AL LOCATIO N in SDEC RESOURCE | ||
5357 | "RTN","SDE C07",87,0) | ||
5358 | S OVB=+$G (OVB) ;al b/sat 665 | ||
5359 | "RTN","SDE C07",88,0) | ||
5360 | I 'OVB S OBM=$$OBM1 ^SDEC57(SD CL,SDECSTA RT,SDMRTC, ,+SDECWKIN ) I OBM'=" ",+OBM'=1 S SDECAPPT ID=0 D ERR (SDECI+1," OBM"_OBM) Q ;alb/s at 658 che ck if over book ;alb/ sat 665 cl ear SDECAP PTID | ||
5361 | "RTN","SDE C07",89,0) | ||
5362 | ;validate appt requ est type ( required) | ||
5363 | "RTN","SDE C07",90,0) | ||
5364 | S SDAPTYP =$G(SDAPTY P) | ||
5365 | "RTN","SDE C07",91,0) | ||
5366 | I SDAPTYP '="" D | ||
5367 | "RTN","SDE C07",92,0) | ||
5368 | .I $P(SDA PTYP,"|",1 )="E" I '$ D(^SDWL(40 9.3,+$P(SD APTYP,"|", 2),0)) S S DAPTYP="" | ||
5369 | "RTN","SDE C07",93,0) | ||
5370 | .I $P(SDA PTYP,"|",1 )="R" I '$ D(^SD(403. 5,+$P(SDAP TYP,"|",2) ,0)) S SDA PTYP="" | ||
5371 | "RTN","SDE C07",94,0) | ||
5372 | .I $P(SDA PTYP,"|",1 )="C" I '$ D(^GMR(123 ,+$P(SDAPT YP,"|",2), 0)) S SDAP TYP="" ;I CR 4837 | ||
5373 | "RTN","SDE C07",95,0) | ||
5374 | .I $P(SDA PTYP,"|",1 )="A" I '$ D(^SDEC(40 9.85,+$P(S DAPTYP,"|" ,2),0)) S SDAPTYP="" | ||
5375 | "RTN","SDE C07",96,0) | ||
5376 | .;I SDAPT YP="" D ER R(SDECI+1, "SDEC07 Er ror: Inval id appoint ment reque st type.") Q ;supp ort for mu ltiple HOS PITAL LOCA TIONs are implemente d in SDEC RESOURCE | ||
5377 | "RTN","SDE C07",97,0) | ||
5378 | I SDCL="" D | ||
5379 | "RTN","SDE C07",98,0) | ||
5380 | .S:$P(SDA PTYP,"|",1 )="E" SDCL =$$GET1^DI Q(409.3,$P (SDAPTYP," |",2)_",", 13.2,"I") | ||
5381 | "RTN","SDE C07",99,0) | ||
5382 | .S:$P(SDA PTYP,"|",1 )="R" SDCL =$$GET1^DI Q(403.5,$P (SDAPTYP," |",2)_",", 4.5,"I") | ||
5383 | "RTN","SDE C07",100,0 ) | ||
5384 | .S:$P(SDA PTYP,"|",1 )="C" SDCL =$P($G(^GM R(123,+$P( SDAPTYP,"| ",2),0)),U ,4) ;ICR 4837 ICR states 'Zero nod e read int o variable ' | ||
5385 | "RTN","SDE C07",101,0 ) | ||
5386 | .S:$P(SDA PTYP,"|",1 )="A" SDCL =$$GET1^DI Q(409.85,$ P(SDAPTYP, "|",2)_"," ,8,"I") | ||
5387 | "RTN","SDE C07",102,0 ) | ||
5388 | I SDCL="" D ERR(SDE CI+1,"SDEC 07 Error: Invalid cl inic ID.") Q | ||
5389 | "RTN","SDE C07",103,0 ) | ||
5390 | I $$INACT IVE^SDEC32 (SDCL) D E RR(SDECI+1 ,"SDEC07 E rror: "_$$ GET1^DIQ(4 4,SDCL_"," ,.01)_" is an inacti ve clinic. ") Q | ||
5391 | "RTN","SDE C07",104,0 ) | ||
5392 | ; | ||
5393 | "RTN","SDE C07",105,0 ) | ||
5394 | ; Rejec t if consu lt is is n ot active or pending . SD*5.3* 686 | ||
5395 | "RTN","SDE C07",106,0 ) | ||
5396 | ; | ||
5397 | "RTN","SDE C07",107,0 ) | ||
5398 | I $P(SDAP TYP,"|",1) ="C" N CNS LTSTS,NOTO K S CNSLTS TS=$P($G(^ GMR(123,+$ P(SDAPTYP, "|",2),0)) ,U,12),NOT OK=0 D Q: NOTOK ; | ||
5399 | "RTN","SDE C07",108,0 ) | ||
5400 | . I CNSLT STS'=5,CNS LTSTS'=6 D ERR(SDECI +1,"Consul t status i s not PEND ING or ACT IVE. It c annot be s cheduled." ) S NOTOK= 1 Q ; | ||
5401 | "RTN","SDE C07",109,0 ) | ||
5402 | ; | ||
5403 | "RTN","SDE C07",110,0 ) | ||
5404 | ;validate service c onnected | ||
5405 | "RTN","SDE C07",111,0 ) | ||
5406 | S SDSVCPR =$G(SDSVCP R) | ||
5407 | "RTN","SDE C07",112,0 ) | ||
5408 | I SDSVCPR '="" S:(+S DSVCPR<0)! (+SDSVCPR> 100) SDSVC PR="" | ||
5409 | "RTN","SDE C07",113,0 ) | ||
5410 | S SDSVCP= $G(SDSVCP) | ||
5411 | "RTN","SDE C07",114,0 ) | ||
5412 | S SDSVCP= $S(SDSVCP= 0:0,SDSVCP ="NO":0,SD SVCP=1:1,S DSVCP="YES ":1,1:"") | ||
5413 | "RTN","SDE C07",115,0 ) | ||
5414 | ;validate note | ||
5415 | "RTN","SDE C07",116,0 ) | ||
5416 | S SDECNOT E=$G(SDECN OTE) S:SDE CNOTE'="" SDECNOTE=$ TR($E(SDEC NOTE,1,150 ),"^"," ") ;alb/sa t 658 - on ly use 1st 150 chara cters | ||
5417 | "RTN","SDE C07",117,0 ) | ||
5418 | ;validate APPTYPE | ||
5419 | "RTN","SDE C07",118,0 ) | ||
5420 | S APPTYPE =$G(APPTYP E) I APPTY PE'="",'$D (^SD(409.1 ,+APPTYPE, 0)) S APPT YPE="" | ||
5421 | "RTN","SDE C07",119,0 ) | ||
5422 | ;validate Patient S tatus (EES TAT) | ||
5423 | "RTN","SDE C07",120,0 ) | ||
5424 | S EESTAT= $G(EESTAT) | ||
5425 | "RTN","SDE C07",121,0 ) | ||
5426 | I EESTAT= "" D | ||
5427 | "RTN","SDE C07",122,0 ) | ||
5428 | .I $P(SDA PTYP,"|",1 )="E" S EE STAT=$$GET 1^DIQ(409. 3,$P(SDAPT YP,"|",2)_ ",",27,"I" ) | ||
5429 | "RTN","SDE C07",123,0 ) | ||
5430 | .I $P(SDA PTYP,"|",1 )="A" S EE STAT=$$GET 1^DIQ(409. 3,$P(SDAPT YP,"|",2)_ ",",.02,"I ") | ||
5431 | "RTN","SDE C07",124,0 ) | ||
5432 | S EESTAT= $S(EESTAT= "N":"N",EE STAT="NEW" :"N",EESTA T="E":"E", EESTAT="ES TABLISHED" :"E",1:"") | ||
5433 | "RTN","SDE C07",125,0 ) | ||
5434 | ;validate OVB (over book) | ||
5435 | "RTN","SDE C07",126,0 ) | ||
5436 | S OVB=+$G (OVB) | ||
5437 | "RTN","SDE C07",127,0 ) | ||
5438 | I 'OVB D | ||
5439 | "RTN","SDE C07",128,0 ) | ||
5440 | .D OVBOOK ^SDEC(.RET ,SDCL,SDEC START,SDEC RES) | ||
5441 | "RTN","SDE C07",129,0 ) | ||
5442 | D | ||
5443 | "RTN","SDE C07",130,0 ) | ||
5444 | .S SDAPPT YP=+APPTYP E | ||
5445 | "RTN","SDE C07",131,0 ) | ||
5446 | .I 'SDAPP TYP D | ||
5447 | "RTN","SDE C07",132,0 ) | ||
5448 | ..I $P(SD APTYP,"|", 1)="E" S S DAPPTYP=$$ GET1^DIQ(4 09.3,+$P(S DAPTYP,"|" ,2)_",",8. 7,"I") | ||
5449 | "RTN","SDE C07",133,0 ) | ||
5450 | ..I $P(SD APTYP,"|", 1)="A" S S DAPPTYP=$$ GET1^DIQ(4 09.85,+$P( SDAPTYP,"| ",2)_",",8 .7,"I") | ||
5451 | "RTN","SDE C07",134,0 ) | ||
5452 | ..I $P(SD APTYP,"|", 1)="C",+AP PTYPE S SD APPTYP=+AP PTYPE | ||
5453 | "RTN","SDE C07",135,0 ) | ||
5454 | .S:'SDAPP TYP SDAPPT YP=$O(^SD( 409.1,"B", "REGULAR", 0)) | ||
5455 | "RTN","SDE C07",136,0 ) | ||
5456 | ;Lock SDE C node | ||
5457 | "RTN","SDE C07",137,0 ) | ||
5458 | L +^SDEC( 409.84,DFN ):5 I '$T D ERR(SDEC I+1,"Anoth er user is working w ith this p atient's r ecord. Pl ease try a gain later ") Q | ||
5459 | "RTN","SDE C07",138,0 ) | ||
5460 | ; | ||
5461 | "RTN","SDE C07",139,0 ) | ||
5462 | ;TSTART | ||
5463 | "RTN","SDE C07",140,0 ) | ||
5464 | S SDECAPP TID=$$SDEC ADD(SDECST ART,SDECEN D,DFN,SDEC RESD,SDECA TID,SDDDT, SDID,SDAPT YP,PROVIEN ,SDCL,SDEC NOTE,SAVES TRT,SDECRE S,SDAPPTYP ,EESTAT,1, +SDECLEN) ;alb/sat 665 add SD ECLEN | ||
5465 | "RTN","SDE C07",141,0 ) | ||
5466 | I 'SDECAP PTID D ERR (SDECI+1," SDEC07 Err or: Unable to add ap pointment to SDEC AP POINTMENT file.") Q | ||
5467 | "RTN","SDE C07",142,0 ) | ||
5468 | ;Save the Appointme nt and sta rt a new t ransaction that will get rolle d back if there's an error | ||
5469 | "RTN","SDE C07",143,0 ) | ||
5470 | ;TCOMMIT | ||
5471 | "RTN","SDE C07",144,0 ) | ||
5472 | ;TSTART | ||
5473 | "RTN","SDE C07",145,0 ) | ||
5474 | ; call ch art reques t | ||
5475 | "RTN","SDE C07",146,0 ) | ||
5476 | S SDECDEV ="" ;$$GE T1^DIQ(900 9020.2,$$D IV^SDECU,. 05) I SDEC DEV="" S S DECDERR="S DEC07 Erro r: No file room prin ter is def ined for t he chart r equest." | ||
5477 | "RTN","SDE C07",147,0 ) | ||
5478 | I SDECATI D="WALKIN" ,$G(SDECCR ),$G(SDECD EV)'="" S DGQUIET=1 D WISD^SDE CRT(DFN,$P (SDECSTART ,"."),"",S DECDEV) | ||
5479 | "RTN","SDE C07",148,0 ) | ||
5480 | I SDECNOT E]"" D SDE CWP(SDECAP PTID,SDECN OTE) | ||
5481 | "RTN","SDE C07",149,0 ) | ||
5482 | ; | ||
5483 | "RTN","SDE C07",150,0 ) | ||
5484 | ;Create A ppointment in VistA ;TODO: hav e this cal l APPVISTA ^SDEC07B | ||
5485 | "RTN","SDE C07",151,0 ) | ||
5486 | I +SDCL,$ D(^SC(SDCL ,0)) D I +SDECERR D ERR(SDECI +1,$P(SDEC ERR,U,2)) | ||
5487 | "RTN","SDE C07",152,0 ) | ||
5488 | . S SDECC ("PAT")=DF N | ||
5489 | "RTN","SDE C07",153,0 ) | ||
5490 | . S SDECC ("CLN")=SD CL | ||
5491 | "RTN","SDE C07",154,0 ) | ||
5492 | . S SDECC ("TYP")=$S (+SDECWKIN :4,SDAPPTY P=1:1,1:3) ;3 for scheduled appts, 4 f or walkins | ||
5493 | "RTN","SDE C07",155,0 ) | ||
5494 | . S SDECC ("COL")=$S (SDAPPTYP= 7:1,1:"") ;collate ral visit if appoint ment type is COLLATE RAL OF VET . | ||
5495 | "RTN","SDE C07",156,0 ) | ||
5496 | . S SDECC ("APT")=SD APPTYP | ||
5497 | "RTN","SDE C07",157,0 ) | ||
5498 | . S SDECC ("ADT")=SD ECSTART | ||
5499 | "RTN","SDE C07",158,0 ) | ||
5500 | . S SDECC ("LEN")=SD ECLEN | ||
5501 | "RTN","SDE C07",159,0 ) | ||
5502 | . S SDECC ("OI")=$E( $G(SDECNOT E),1,150) ;File 44 h as 150 cha racter lim it on OTHE R field | ||
5503 | "RTN","SDE C07",160,0 ) | ||
5504 | . S SDECC ("OI")=$TR (SDECC("OI "),";"," " ) ;No semi colons all owed | ||
5505 | "RTN","SDE C07",161,0 ) | ||
5506 | . S SDECC ("OI")=$$S TRIP(SDECC ("OI")) ;S trip contr ol charact ers from n ote | ||
5507 | "RTN","SDE C07",162,0 ) | ||
5508 | . S SDECC ("RES")=SD ECRESD | ||
5509 | "RTN","SDE C07",163,0 ) | ||
5510 | . S SDECC ("USR")=DU Z | ||
5511 | "RTN","SDE C07",164,0 ) | ||
5512 | . S SDECC ("MTR")=$G (SDMRTC) | ||
5513 | "RTN","SDE C07",165,0 ) | ||
5514 | . S SDECC ("DDT")=SD DDT | ||
5515 | "RTN","SDE C07",166,0 ) | ||
5516 | . S SDECC ("REQ")=SD REQBY | ||
5517 | "RTN","SDE C07",167,0 ) | ||
5518 | . S SDECC ("LAB")=SD LAB | ||
5519 | "RTN","SDE C07",168,0 ) | ||
5520 | . S SDECC ("XRA")=SD XRAY | ||
5521 | "RTN","SDE C07",169,0 ) | ||
5522 | . S SDECC ("EKG")=SD EKG | ||
5523 | "RTN","SDE C07",170,0 ) | ||
5524 | . S SDECC ("OVB")=+O VB | ||
5525 | "RTN","SDE C07",171,0 ) | ||
5526 | . S SDECC ("ELG")=SD EL | ||
5527 | "RTN","SDE C07",172,0 ) | ||
5528 | . S:$P(SD APTYP,"|", 1)="C" SDE CC("CON")= $P(SDAPTYP ,"|",2) | ||
5529 | "RTN","SDE C07",173,0 ) | ||
5530 | . S SDECE RR=$$MAKE^ SDEC07B(.S DECC) | ||
5531 | "RTN","SDE C07",174,0 ) | ||
5532 | . Q:SDECE RR | ||
5533 | "RTN","SDE C07",175,0 ) | ||
5534 | . ;Update Clinic av ailability | ||
5535 | "RTN","SDE C07",176,0 ) | ||
5536 | . D AVUPD T(SDCL,SDE CSTART,SDE CLEN) | ||
5537 | "RTN","SDE C07",177,0 ) | ||
5538 | . ;L | ||
5539 | "RTN","SDE C07",178,0 ) | ||
5540 | . Q | ||
5541 | "RTN","SDE C07",179,0 ) | ||
5542 | ;update w ait list | ||
5543 | "RTN","SDE C07",180,0 ) | ||
5544 | I $P(SDAP TYP,"|",1) ="E" D EWL ^SDEC07A($ P(SDAPTYP, "|",2),SDE CSTART,SDC L,SDSVCPR, SDSVCP,,SD APPTYP) ; alb/sat 65 8 do not p ass note | ||
5545 | "RTN","SDE C07",181,0 ) | ||
5546 | ;update a ppt reques t | ||
5547 | "RTN","SDE C07",182,0 ) | ||
5548 | I $P(SDAP TYP,"|",1) ="A" D | ||
5549 | "RTN","SDE C07",183,0 ) | ||
5550 | .D UPDATE ^SDECAR2($ P(SDAPTYP, "|",2),SDE CSTART,SDC L,SDSVCPR, SDSVCP,,SD APPTYP) ; alb/sat 65 8 do not p ass note | ||
5551 | "RTN","SDE C07",184,0 ) | ||
5552 | .I $G(SDM RTC),$G(SD PARENT) D AR433^SDEC AR2(SDPARE NT,SDECAPP TID_"~"_$P (SDAPTYP," |",2)) | ||
5553 | "RTN","SDE C07",185,0 ) | ||
5554 | .D:$G(SDP ARENT) AR4 38^SDECAR2 ($P(SDAPTY P,"|",2),S DPARENT) | ||
5555 | "RTN","SDE C07",186,0 ) | ||
5556 | N SDT S S DT=SDECSTA RT | ||
5557 | "RTN","SDE C07",187,0 ) | ||
5558 | ;add entr y to OUTPA TIENT ENCO UNTER file (#409.68) ;alb/sat 672 | ||
5559 | "RTN","SDE C07",188,0 ) | ||
5560 | I $$NEW^S DPCE(SDT) D | ||
5561 | "RTN","SDE C07",189,0 ) | ||
5562 | .N SDCOED | ||
5563 | "RTN","SDE C07",190,0 ) | ||
5564 | .S SDOE=$ $GETAPT^SD VSIT2(DFN, SDT,SDCL) | ||
5565 | "RTN","SDE C07",191,0 ) | ||
5566 | ; | ||
5567 | "RTN","SDE C07",192,0 ) | ||
5568 | ;Return R ecordset | ||
5569 | "RTN","SDE C07",193,0 ) | ||
5570 | ;TCOMMIT | ||
5571 | "RTN","SDE C07",194,0 ) | ||
5572 | L -^SDEC( 409.84,DFN ) | ||
5573 | "RTN","SDE C07",195,0 ) | ||
5574 | L -^DPT(D FN) | ||
5575 | "RTN","SDE C07",196,0 ) | ||
5576 | S SDECI=S DECI+1 | ||
5577 | "RTN","SDE C07",197,0 ) | ||
5578 | S ^TMP("S DEC07",$J, SDECI)=SDE CAPPTID_"^ "_$G(SDECD ERR)_$C(30 ) | ||
5579 | "RTN","SDE C07",198,0 ) | ||
5580 | S SDECI=S DECI+1 | ||
5581 | "RTN","SDE C07",199,0 ) | ||
5582 | S ^TMP("S DEC07",$J, SDECI)=$C( 31) | ||
5583 | "RTN","SDE C07",200,0 ) | ||
5584 | Q | ||
5585 | "RTN","SDE C07",201,0 ) | ||
5586 | ; | ||
5587 | "RTN","SDE C07",202,0 ) | ||
5588 | STRIP(SDEC Z) ;Replac e control characters with spac es | ||
5589 | "RTN","SDE C07",203,0 ) | ||
5590 | N SDECI | ||
5591 | "RTN","SDE C07",204,0 ) | ||
5592 | F SDECI=1 :1:$L(SDEC Z) I (32>$ A($E(SDECZ ,SDECI))) S SDECZ=$E (SDECZ,1,S DECI-1)_" "_$E(SDECZ ,SDECI+1,9 99) | ||
5593 | "RTN","SDE C07",205,0 ) | ||
5594 | Q SDECZ | ||
5595 | "RTN","SDE C07",206,0 ) | ||
5596 | ; | ||
5597 | "RTN","SDE C07",207,0 ) | ||
5598 | ;ADD SDEC APPOINTME NT ENTRY | ||
5599 | "RTN","SDE C07",208,0 ) | ||
5600 | SDECADD(SD ECSTART,SD ECEND,DFN, SDECRESD,S DECATID,SD DDT,SDID,S DAPTYP,PRO VIEN,SDCL, SDECNOTE,S AVESTRT,SD ECRES,SDAP PTYP,EESTA T,SDF,SDEC LEN) ;alb/ sat 665 ad d SDECLEN | ||
5601 | "RTN","SDE C07",209,0 ) | ||
5602 | ;SDF - (optio nal) flags | ||
5603 | "RTN","SDE C07",210,0 ) | ||
5604 | ; 1. ca lled from GUI (updat e consult only if ca lled from GUI) | ||
5605 | "RTN","SDE C07",211,0 ) | ||
5606 | ;Returns ien in SDE CAPPT or 0 if failed | ||
5607 | "RTN","SDE C07",212,0 ) | ||
5608 | ;called f rom SDEC A PPADD rpc and from V istA via S DM1A | ||
5609 | "RTN","SDE C07",213,0 ) | ||
5610 | ;Create e ntry in SD EC APPOINT MENT | ||
5611 | "RTN","SDE C07",214,0 ) | ||
5612 | N SDIEN,S DECAPPTID, SDECFDA,SD ECIEN,SDEC MSG,SL,X | ||
5613 | "RTN","SDE C07",215,0 ) | ||
5614 | S SDECSTA RT=$G(SDEC START) | ||
5615 | "RTN","SDE C07",216,0 ) | ||
5616 | S SAVESTR T=$G(SAVES TRT),SDECR ES=$G(SDEC RES) ;MGH sa ve date/ti me for con sult reque st | ||
5617 | "RTN","SDE C07",217,0 ) | ||
5618 | S DFN=$G( DFN) | ||
5619 | "RTN","SDE C07",218,0 ) | ||
5620 | S SDECRES D=$G(SDECR ESD) | ||
5621 | "RTN","SDE C07",219,0 ) | ||
5622 | S SDECATI D=$G(SDECA TID) | ||
5623 | "RTN","SDE C07",220,0 ) | ||
5624 | S SDDDT=$ G(SDDDT) | ||
5625 | "RTN","SDE C07",221,0 ) | ||
5626 | S SDID=$G (SDID) | ||
5627 | "RTN","SDE C07",222,0 ) | ||
5628 | S SDAPTYP =$G(SDAPTY P) | ||
5629 | "RTN","SDE C07",223,0 ) | ||
5630 | S SDAPPTY P=$G(SDAPP TYP) | ||
5631 | "RTN","SDE C07",224,0 ) | ||
5632 | S PROVIEN =$G(PROVIE N) | ||
5633 | "RTN","SDE C07",225,0 ) | ||
5634 | S SDCL=$G (SDCL) | ||
5635 | "RTN","SDE C07",226,0 ) | ||
5636 | S SDECEND =$G(SDECEN D) | ||
5637 | "RTN","SDE C07",227,0 ) | ||
5638 | ;alb/sat 665 begin modificati on | ||
5639 | "RTN","SDE C07",228,0 ) | ||
5640 | S SDECLEN =$G(SDECLE N) | ||
5641 | "RTN","SDE C07",229,0 ) | ||
5642 | I SDECLEN ="",SDECEN D="" S SDE CLEN=+$G(^ SC(SDCL,"S L")) S:'+S DECLEN SDE CLEN=30 S SDECEND=$$ FMADD^XLFD T(SDECSTAR T,,,+SDECL EN) ;no length or end date/t ime | ||
5643 | "RTN","SDE C07",230,0 ) | ||
5644 | I SDECLEN ="",SDECEN D'="" S SD ECLEN=$$FM DIFF^XLFDT (SDECEND,S DECSTART,2 )\60 ;no length | ||
5645 | "RTN","SDE C07",231,0 ) | ||
5646 | I SDECLEN '="",SDECE ND="" S SD ECEND=$$FM ADD^XLFDT( SDECSTART, ,,+SDECLEN ) ;no end date/time | ||
5647 | "RTN","SDE C07",232,0 ) | ||
5648 | ;alb/sat 665 end mo dification | ||
5649 | "RTN","SDE C07",233,0 ) | ||
5650 | S SDECNOT E=$G(SDECN OTE) | ||
5651 | "RTN","SDE C07",234,0 ) | ||
5652 | S SDF=$G( SDF,0) | ||
5653 | "RTN","SDE C07",235,0 ) | ||
5654 | I PROVIEN ="" D | ||
5655 | "RTN","SDE C07",236,0 ) | ||
5656 | .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ") | ||
5657 | "RTN","SDE C07",237,0 ) | ||
5658 | S SDIEN=$ $APPTGET^S DECUTL(DFN ,SDECSTART ,SDCL) | ||
5659 | "RTN","SDE C07",238,0 ) | ||
5660 | S SDIEN=$ S(SDIEN'=" ":SDIEN_", ",1:"+1,") | ||
5661 | "RTN","SDE C07",239,0 ) | ||
5662 | S SDECFDA (409.84,SD IEN,.01)=S DECSTART | ||
5663 | "RTN","SDE C07",240,0 ) | ||
5664 | S SDECFDA (409.84,SD IEN,.02)=S DECEND | ||
5665 | "RTN","SDE C07",241,0 ) | ||
5666 | S SDECFDA (409.84,SD IEN,.05)=D FN | ||
5667 | "RTN","SDE C07",242,0 ) | ||
5668 | S:+SDAPPT YP SDECFDA (409.84,SD IEN,.06)=S DAPPTYP | ||
5669 | "RTN","SDE C07",243,0 ) | ||
5670 | ;S:SDECAT ID?.N SDEC FDA(409.84 ,SDIEN,.06 )=SDECATID | ||
5671 | "RTN","SDE C07",244,0 ) | ||
5672 | S SDECFDA (409.84,SD IEN,.07)=S DECRESD | ||
5673 | "RTN","SDE C07",245,0 ) | ||
5674 | S SDECFDA (409.84,SD IEN,.08)=$ G(DUZ) | ||
5675 | "RTN","SDE C07",246,0 ) | ||
5676 | S SDECFDA (409.84,SD IEN,.09)=$ P($$NOW^XL FDT,".",1) | ||
5677 | "RTN","SDE C07",247,0 ) | ||
5678 | S SDECFDA (409.84,SD IEN,.1)="" | ||
5679 | "RTN","SDE C07",248,0 ) | ||
5680 | S SDECFDA (409.84,SD IEN,.101)= "" | ||
5681 | "RTN","SDE C07",249,0 ) | ||
5682 | S SDECFDA (409.84,SD IEN,.102)= "" | ||
5683 | "RTN","SDE C07",250,0 ) | ||
5684 | S SDECFDA (409.84,SD IEN,.11)=" " | ||
5685 | "RTN","SDE C07",251,0 ) | ||
5686 | S SDECFDA (409.84,SD IEN,.12)=" " | ||
5687 | "RTN","SDE C07",252,0 ) | ||
5688 | S SDECFDA (409.84,SD IEN,.121)= "" | ||
5689 | "RTN","SDE C07",253,0 ) | ||
5690 | S SDECFDA (409.84,SD IEN,.122)= "" | ||
5691 | "RTN","SDE C07",254,0 ) | ||
5692 | S:SDECATI D="WALKIN" SDECFDA(4 09.84,SDIE N,.13)="y" | ||
5693 | "RTN","SDE C07",255,0 ) | ||
5694 | S:PROVIEN '="" SDECF DA(409.84, SDIEN,.16) =PROVIEN | ||
5695 | "RTN","SDE C07",256,0 ) | ||
5696 | S SDECFDA (409.84,SD IEN,.17)=" " | ||
5697 | "RTN","SDE C07",257,0 ) | ||
5698 | S:$G(SDEC LEN)'="" S DECFDA(409 .84,SDIEN, .18)=SDECL EN | ||
5699 | "RTN","SDE C07",258,0 ) | ||
5700 | S SDECFDA (409.84,SD IEN,.2)=SD DDT | ||
5701 | "RTN","SDE C07",259,0 ) | ||
5702 | S:$G(SDID )'="" SDEC FDA(409.84 ,SDIEN,.21 )=SDID | ||
5703 | "RTN","SDE C07",260,0 ) | ||
5704 | S:SDAPTYP '="" SDECF DA(409.84, SDIEN,.22) =$P(SDAPTY P,"|",2)_" ;"_$S($P(S DAPTYP,"|" ,1)="E":"S DWL(409.3, ",$P(SDAPT YP,"|",1)= "C":"GMR(1 23,",$P(SD APTYP,"|", 1)="R":"SD (403.5,",$ P(SDAPTYP, "|",1)="A" :"SDEC(409 .85,",1:"" ) | ||
5705 | "RTN","SDE C07",261,0 ) | ||
5706 | S:$G(EEST AT)'="" SD ECFDA(409. 84,SDIEN,. 23)=EESTAT | ||
5707 | "RTN","SDE C07",262,0 ) | ||
5708 | K SDECIEN ,SDECMSG | ||
5709 | "RTN","SDE C07",263,0 ) | ||
5710 | D UPDATE^ DIE("","SD ECFDA","SD ECIEN","SD ECMSG") | ||
5711 | "RTN","SDE C07",264,0 ) | ||
5712 | S SDECAPP TID=$S(SDI EN'="+1,": +SDIEN,1:+ $G(SDECIEN (1))) | ||
5713 | "RTN","SDE C07",265,0 ) | ||
5714 | K SDECMSG | ||
5715 | "RTN","SDE C07",266,0 ) | ||
5716 | I SDECNOT E="" D WP^ DIE(409.84 ,$S(+$G(SD ECAPPTID): SDECAPPTID _",",1:SDI EN_","),1, "","@","SD ECMSG") | ||
5717 | "RTN","SDE C07",267,0 ) | ||
5718 | I SDECNOT E'="" N AR R D WP^SDE CUTL(.ARR, SDECNOTE) D WP^DIE(4 09.84,$S(+ $G(SDECAPP TID):SDECA PPTID_",", 1:SDIEN_", "),1,"","A RR","SDECM SG") | ||
5719 | "RTN","SDE C07",268,0 ) | ||
5720 | I SDECAPP TID'="" D | ||
5721 | "RTN","SDE C07",269,0 ) | ||
5722 | .I $P(SDA PTYP,"|",1 )="C",SDF D | ||
5723 | "RTN","SDE C07",270,0 ) | ||
5724 | ..D REQSE T^SDEC07A( $P(SDAPTYP ,"|",2),PR OVIEN,"",1 ,"",SDECNO TE,SAVESTR T,SDECRES) ;MGH ad ded 3 para meters to this call | ||
5725 | "RTN","SDE C07",271,0 ) | ||
5726 | Q SDECAPP TID | ||
5727 | "RTN","SDE C07",272,0 ) | ||
5728 | ; | ||
5729 | "RTN","SDE C07",273,0 ) | ||
5730 | SDECWP(SDE CAPPTID,SD ECNOTE) ; | ||
5731 | "RTN","SDE C07",274,0 ) | ||
5732 | ;Add WP f ield | ||
5733 | "RTN","SDE C07",275,0 ) | ||
5734 | I SDECNOT E]"" S SDE CNOTE(.5)= SDECNOTE,S DECNOTE="" | ||
5735 | "RTN","SDE C07",276,0 ) | ||
5736 | I $D(SDEC NOTE(0)) S SDECNOTE( .5)=SDECNO TE(0) K SD ECNOTE(0) | ||
5737 | "RTN","SDE C07",277,0 ) | ||
5738 | I $D(SDEC NOTE(.5)) D | ||
5739 | "RTN","SDE C07",278,0 ) | ||
5740 | . D WP^DI E(409.84,S DECAPPTID_ ",",1,""," SDECNOTE", "SDECMSG") | ||
5741 | "RTN","SDE C07",279,0 ) | ||
5742 | Q | ||
5743 | "RTN","SDE C07",280,0 ) | ||
5744 | ; | ||
5745 | "RTN","SDE C07",281,0 ) | ||
5746 | ADDEVT(DFN ,SDECSTART ,SDECSC,SD CLA) ;EP | ||
5747 | "RTN","SDE C07",282,0 ) | ||
5748 | ;Called b y SDEC ADD APPOINTME NT protoco l | ||
5749 | "RTN","SDE C07",283,0 ) | ||
5750 | ;SDECSC=I EN of clin ic in ^SC | ||
5751 | "RTN","SDE C07",284,0 ) | ||
5752 | ;SDCLA=IE N for ^SC( SDECSC,"S" ,SDECSTART ,1,SDCLA). Use to ge t Length & Note | ||
5753 | "RTN","SDE C07",285,0 ) | ||
5754 | ; | ||
5755 | "RTN","SDE C07",286,0 ) | ||
5756 | N SDECNOD ,SDECLEN,S DECAPPTID, SDECNODP,S DECWKIN,SD ECRES | ||
5757 | "RTN","SDE C07",287,0 ) | ||
5758 | Q:+$G(SDE CNOEV) | ||
5759 | "RTN","SDE C07",288,0 ) | ||
5760 | I $D(^SDE C(409.831, "ALOC",SDE CSC)) S SD ECRES=$O(^ SDEC(409.8 31,"ALOC", SDECSC,0)) | ||
5761 | "RTN","SDE C07",289,0 ) | ||
5762 | Q:'+$G(SD ECRES) | ||
5763 | "RTN","SDE C07",290,0 ) | ||
5764 | S SDECNOD =$G(^SC(SD ECSC,"S",S DECSTART,1 ,SDCLA,0)) | ||
5765 | "RTN","SDE C07",291,0 ) | ||
5766 | Q:SDECNOD ="" | ||
5767 | "RTN","SDE C07",292,0 ) | ||
5768 | S SDECNOD P=$G(^DPT( DFN,"S",SD ECSTART,0) ) | ||
5769 | "RTN","SDE C07",293,0 ) | ||
5770 | S SDECWKI N="" | ||
5771 | "RTN","SDE C07",294,0 ) | ||
5772 | S:$P(SDEC NODP,U,7)= 4 SDECWKIN ="WALKIN" ;Purpose o f Visit fi eld of DPT Appointme nt subfile | ||
5773 | "RTN","SDE C07",295,0 ) | ||
5774 | S SDECLEN =$P(SDECNO D,U,2) | ||
5775 | "RTN","SDE C07",296,0 ) | ||
5776 | Q:'+SDECL EN | ||
5777 | "RTN","SDE C07",297,0 ) | ||
5778 | S SDECEND =$$FMADD^X LFDT(SDECS TART,0,0,S DECLEN,0) | ||
5779 | "RTN","SDE C07",298,0 ) | ||
5780 | S SDECAPP TID=$$SDEC ADD(SDECST ART,SDECEN D,DFN,SDEC RES,SDECWK IN,,,,,SDE CSC,,,,,,1 ,+SDECLEN) ;alb/sat 665 add S DECLEN | ||
5781 | "RTN","SDE C07",299,0 ) | ||
5782 | Q:'+SDECA PPTID | ||
5783 | "RTN","SDE C07",300,0 ) | ||
5784 | S SDECNOT E=$P(SDECN OD,U,4) | ||
5785 | "RTN","SDE C07",301,0 ) | ||
5786 | I SDECNOT E]"" D SDE CWP(SDECAP PTID,SDECN OTE) | ||
5787 | "RTN","SDE C07",302,0 ) | ||
5788 | D ADDEVT3 (SDECRES) | ||
5789 | "RTN","SDE C07",303,0 ) | ||
5790 | Q | ||
5791 | "RTN","SDE C07",304,0 ) | ||
5792 | ; | ||
5793 | "RTN","SDE C07",305,0 ) | ||
5794 | ADDEVT3(SD ECRES) ; | ||
5795 | "RTN","SDE C07",306,0 ) | ||
5796 | ;Call Rai seEvent to notify GU I clients | ||
5797 | "RTN","SDE C07",307,0 ) | ||
5798 | Q | ||
5799 | "RTN","SDE C07",308,0 ) | ||
5800 | ; | ||
5801 | "RTN","SDE C07",309,0 ) | ||
5802 | ERR(SDECI, SDECERR) ; Error proc essing | ||
5803 | "RTN","SDE C07",310,0 ) | ||
5804 | S SDECI=S DECI+1 | ||
5805 | "RTN","SDE C07",311,0 ) | ||
5806 | S SDECERR =$TR(SDECE RR,"^","~" ) | ||
5807 | "RTN","SDE C07",312,0 ) | ||
5808 | S ^TMP("S DEC07",$J, SDECI)=$G( SDECAPPTID ,0)_"^"_SD ECERR_$C(3 0) | ||
5809 | "RTN","SDE C07",313,0 ) | ||
5810 | S SDECI=S DECI+1 | ||
5811 | "RTN","SDE C07",314,0 ) | ||
5812 | S ^TMP("S DEC07",$J, SDECI)=$C( 31) | ||
5813 | "RTN","SDE C07",315,0 ) | ||
5814 | L | ||
5815 | "RTN","SDE C07",316,0 ) | ||
5816 | Q | ||
5817 | "RTN","SDE C07",317,0 ) | ||
5818 | ; | ||
5819 | "RTN","SDE C07",318,0 ) | ||
5820 | ETRAP ;EP Error trap entry | ||
5821 | "RTN","SDE C07",319,0 ) | ||
5822 | D ^%ZTER | ||
5823 | "RTN","SDE C07",320,0 ) | ||
5824 | I '$D(SDE CI) N SDEC I S SDECI= 999999 | ||
5825 | "RTN","SDE C07",321,0 ) | ||
5826 | S SDECI=S DECI+1 | ||
5827 | "RTN","SDE C07",322,0 ) | ||
5828 | D ERR(SDE CI,"SDEC07 Error") | ||
5829 | "RTN","SDE C07",323,0 ) | ||
5830 | Q | ||
5831 | "RTN","SDE C07",324,0 ) | ||
5832 | DAY ;;^SUN ^MON^TUES^ WEDNES^THU RS^FRI^SAT UR | ||
5833 | "RTN","SDE C07",325,0 ) | ||
5834 | ; | ||
5835 | "RTN","SDE C07",326,0 ) | ||
5836 | DOW N SDTM P S SDTMP= $E(X,1,3), Y=$E(X,4,5 ),Y=Y>2&'( SDTMP#4)+$ E("1440250 36146",Y) | ||
5837 | "RTN","SDE C07",327,0 ) | ||
5838 | F SDTMP=S DTMP:-1:28 1 S Y=SDTM P#4=1+1+Y | ||
5839 | "RTN","SDE C07",328,0 ) | ||
5840 | S Y=$E(X, 6,7)+Y#7 | ||
5841 | "RTN","SDE C07",329,0 ) | ||
5842 | Q | ||
5843 | "RTN","SDE C07",330,0 ) | ||
5844 | ; | ||
5845 | "RTN","SDE C07",331,0 ) | ||
5846 | AVUPDT(SDC L,SDECSTAR T,SDECLEN) ;Update C linic avai lability | ||
5847 | "RTN","SDE C07",332,0 ) | ||
5848 | ;SEE SDM1 | ||
5849 | "RTN","SDE C07",333,0 ) | ||
5850 | N %,ABORT ,SDNOT,Y,D FN,SDVAL | ||
5851 | "RTN","SDE C07",334,0 ) | ||
5852 | N SL,STAR TDAY,X,SC, SB,HSI,SI, STR,SDDIF, SDMAX,SDDA TE,SDDMAX, SDSDATE,CC XN,MXOK,CO V,SDPROG | ||
5853 | "RTN","SDE C07",335,0 ) | ||
5854 | N X1,SDED T,X2,SD,SM ,SS,S,SDLO CK,ST,I,SD ECINC | ||
5855 | "RTN","SDE C07",336,0 ) | ||
5856 | S Y=SDCL ;,DFN=DF N ;rename d SDECPATI D to DFN | ||
5857 | "RTN","SDE C07",337,0 ) | ||
5858 | S SL=$G(^ SC(+Y,"SL" )),X=$P(SL ,U,3),STAR TDAY=$S($L (X):X,1:8) ,SC=Y,SB=S TARTDAY-1/ 100,X=$P(S L,U,6),HSI =$S(X=1:X, X:X,1:4),S I=$S(X="": 4,X<3:4,X: X,1:4),STR ="#@!$* XX WVUTSRQPON MLKJIHGFED CBA0123456 789jklmnop qrstuvwxyz ",SDDIF=$S (HSI<3:8/H SI,1:2) K Y | ||
5859 | "RTN","SDE C07",338,0 ) | ||
5860 | ;Determin e maximum days for s cheduling | ||
5861 | "RTN","SDE C07",339,0 ) | ||
5862 | S SDMAX(1 )=$P($G(^S C(+SC,"SDP ")),U,2) S :'SDMAX(1) SDMAX(1)= 365 | ||
5863 | "RTN","SDE C07",340,0 ) | ||
5864 | S (SDMAX, SDDMAX)=$$ FMADD^XLFD T(DT,SDMAX (1)) | ||
5865 | "RTN","SDE C07",341,0 ) | ||
5866 | S SDDATE= SDECSTART | ||
5867 | "RTN","SDE C07",342,0 ) | ||
5868 | S SDSDATE =SDDATE,SD DATE=SDDAT E\1 | ||
5869 | "RTN","SDE C07",343,0 ) | ||
5870 | 1 ;L Q:$D (SDXXX) S CCXN=0 K MXOK,COV,S DPROT Q:DF N<0 S SC= +SC | ||
5871 | "RTN","SDE C07",344,0 ) | ||
5872 | ;Q:$D(SDX XX) | ||
5873 | "RTN","SDE C07",345,0 ) | ||
5874 | S CCXN=0 K MXOK,COV ,SDPROT Q: $G(DFN)<0 S SC=+SC | ||
5875 | "RTN","SDE C07",346,0 ) | ||
5876 | S X1=DT,S DEDT=365 S :$D(^SC(SC ,"SDP")) S DEDT=$P(^S C(SC,"SDP" ),"^",2) | ||
5877 | "RTN","SDE C07",347,0 ) | ||
5878 | S X2=SDED T D C^%DTC S SDEDT=X | ||
5879 | "RTN","SDE C07",348,0 ) | ||
5880 | S Y=SDECS TART | ||
5881 | "RTN","SDE C07",349,0 ) | ||
5882 | EN1 S (X,S D)=Y,SM=0 D DOW | ||
5883 | "RTN","SDE C07",350,0 ) | ||
5884 | S I '$D(^S C(SC,"ST", $P(SD,".") ,1)) S SS= +$O(^SC(+S C,"T"_Y,SD )) Q:SS'>0 Q:^(SS,1 )="" S ^S C(+SC,"ST" ,$P(SD,"." ),1)=$E($P ($T(DAY),U ,Y+2),1,2) _" "_$E(SD ,6,7)_$J(" ",SI+SI-6) _^(1),^(0) =$P(SD,"." ) | ||
5885 | "RTN","SDE C07",351,0 ) | ||
5886 | S S=SDECL EN | ||
5887 | "RTN","SDE C07",352,0 ) | ||
5888 | ;Check if SDECLEN e venly divi sible by a ppointment length | ||
5889 | "RTN","SDE C07",353,0 ) | ||
5890 | S SDVAL=$ P(SL,U) | ||
5891 | "RTN","SDE C07",354,0 ) | ||
5892 | I SDECLEN <SDVAL S S DECLEN=SDV AL | ||
5893 | "RTN","SDE C07",355,0 ) | ||
5894 | I SDECLEN #SDVAL'=0 D | ||
5895 | "RTN","SDE C07",356,0 ) | ||
5896 | . S SDECI NC=SDECLEN \SDVAL | ||
5897 | "RTN","SDE C07",357,0 ) | ||
5898 | . S SDECI NC=SDECINC +1 | ||
5899 | "RTN","SDE C07",358,0 ) | ||
5900 | . S SDECL EN=SDVAL*S DECINC | ||
5901 | "RTN","SDE C07",359,0 ) | ||
5902 | S SL=S_U_ $P(SL,U,2, 99) | ||
5903 | "RTN","SDE C07",360,0 ) | ||
5904 | SC S SDLOC K=$S('$D(S DLOCK):1,1 :SDLOCK+1) Q:SDLOCK> 9 | ||
5905 | "RTN","SDE C07",361,0 ) | ||
5906 | L +^SC(SC ,"ST",$P(S D,"."),1): 5 G:'$T SC | ||
5907 | "RTN","SDE C07",362,0 ) | ||
5908 | S SDLOCK= 0,S=^SC(SC ,"ST",$P(S D,"."),1) | ||
5909 | "RTN","SDE C07",363,0 ) | ||
5910 | S I=SD#1- SB*100,ST= I#1*SI\.6+ ($P(I,".") *SI),SS=SL *HSI/60*SD DIF+ST+ST | ||
5911 | "RTN","SDE C07",364,0 ) | ||
5912 | I (I<1!'$ F(S,"["))& (S'["CAN") L -^SC(SC ,"ST",$P(S D,"."),1) Q | ||
5913 | "RTN","SDE C07",365,0 ) | ||
5914 | I SM<7 S %=$F(S,"[" ,SS-1) S:' %!($P(SL," ^",6)<3) % =999 I $F( S,"]",SS)' <%!(SDDIF= 2&$E(S,ST+ ST+1,SS-1) ["[") S SM =7 | ||
5915 | "RTN","SDE C07",366,0 ) | ||
5916 | ; | ||
5917 | "RTN","SDE C07",367,0 ) | ||
5918 | SP I ST+ST >$L(S),$L( S)<80 S S= S_" " G SP | ||
5919 | "RTN","SDE C07",368,0 ) | ||
5920 | S SDNOT=1 | ||
5921 | "RTN","SDE C07",369,0 ) | ||
5922 | S ABORT=0 | ||
5923 | "RTN","SDE C07",370,0 ) | ||
5924 | F I=ST+ST :SDDIF:SS- SDDIF D Q :ABORT | ||
5925 | "RTN","SDE C07",371,0 ) | ||
5926 | . S ST=$E (S,I+1) S: ST="" ST=" " | ||
5927 | "RTN","SDE C07",372,0 ) | ||
5928 | . S Y=$E( STR,$F(STR ,ST)-2) | ||
5929 | "RTN","SDE C07",373,0 ) | ||
5930 | . I S["CA N"!(ST="X" &($D(^SC(+ SC,"ST",$P (SD,".")," CAN")))) S ABORT=1 Q | ||
5931 | "RTN","SDE C07",374,0 ) | ||
5932 | . I Y="" S ABORT=1 Q | ||
5933 | "RTN","SDE C07",375,0 ) | ||
5934 | . S:Y'?1N L&(SM<6) S M=6 S ST=$ E(S,I+2,99 9) S:ST="" ST=" " S S=$E(S,1,I )_Y_ST | ||
5935 | "RTN","SDE C07",376,0 ) | ||
5936 | . Q | ||
5937 | "RTN","SDE C07",377,0 ) | ||
5938 | S ^SC(SC, "ST",$P(SD ,"."),1)=S | ||
5939 | "RTN","SDE C07",378,0 ) | ||
5940 | L -^SC(SC ,"ST",$P(S D,"."),1) | ||
5941 | "RTN","SDE C07",379,0 ) | ||
5942 | Q | ||
5943 | "RTN","SDE C07",380,0 ) | ||
5944 | ; | ||
5945 | "RTN","SDE C07",381,0 ) | ||
5946 | ERROR ; | ||
5947 | "RTN","SDE C07",382,0 ) | ||
5948 | D ERR1("E rror") | ||
5949 | "RTN","SDE C07",383,0 ) | ||
5950 | Q | ||
5951 | "RTN","SDE C07",384,0 ) | ||
5952 | ; | ||
5953 | "RTN","SDE C07",385,0 ) | ||
5954 | ERR1(SDECE RR) ;Error processin g | ||
5955 | "RTN","SDE C07",386,0 ) | ||
5956 | S SDECI=S DECI+1 | ||
5957 | "RTN","SDE C07",387,0 ) | ||
5958 | S ^TMP("S DEC07",$J, SDECI)=SDE CERR_$C(30 ) | ||
5959 | "RTN","SDE C07",388,0 ) | ||
5960 | S SDECI=S DECI+1 | ||
5961 | "RTN","SDE C07A") | ||
5962 | 0^5^B86375 854^B84573 487 | ||
5963 | "RTN","SDE C07A",1,0) | ||
5964 | SDEC07A ;A LB/SAT - V ISTA SCHED ULING RPCS ;JUL 19, 2016 | ||
5965 | "RTN","SDE C07A",2,0) | ||
5966 | ;;5.3;Sch eduling;** 627,642,65 1,679,686* *;Aug 13, 1993;Build 39 | ||
5967 | "RTN","SDE C07A",3,0) | ||
5968 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | ||
5969 | "RTN","SDE C07A",4,0) | ||
5970 | ;Referenc es made to ICR #6185 and #4837 | ||
5971 | "RTN","SDE C07A",5,0) | ||
5972 | Q | ||
5973 | "RTN","SDE C07A",6,0) | ||
5974 | ; | ||
5975 | "RTN","SDE C07A",7,0) | ||
5976 | OVBOOK(SDE CY,SDCL,NS DT,SDECRES ) ;RPC - O VERBOOK - Check if O verbook is allowed f or given C linic and Date. | ||
5977 | "RTN","SDE C07A",8,0) | ||
5978 | ;OVBOOK(S DECY,SDCL, NSDT,SDECR ES) exter nal parame ter tag is in SDEC | ||
5979 | "RTN","SDE C07A",9,0) | ||
5980 | ; .SDECY = retur ned pointe r to OVERB OOK data | ||
5981 | "RTN","SDE C07A",10,0 ) | ||
5982 | ; SDCL = clini c code - p ointer to Hospital L ocation fi le ^SC | ||
5983 | "RTN","SDE C07A",11,0 ) | ||
5984 | ; NSDT = date/ time of ne w appointm ent | ||
5985 | "RTN","SDE C07A",12,0 ) | ||
5986 | ; SDECR ES = resou rce to che ck for ove rbook | ||
5987 | "RTN","SDE C07A",13,0 ) | ||
5988 | N %DT,AP, SDECI,OB,S DBK,OBCNT, OBMAX,SDCL N,SDCLRES, SDCLSL,SDC NT,SDRET,S DT,SDTD,SD TE,X,Y | ||
5989 | "RTN","SDE C07A",14,0 ) | ||
5990 | N SD30,SD ARR,OBCNTS UM | ||
5991 | "RTN","SDE C07A",15,0 ) | ||
5992 | S OBCNTSU M=0 | ||
5993 | "RTN","SDE C07A",16,0 ) | ||
5994 | ; SDTD = new sched ule Date o nly in FM format | ||
5995 | "RTN","SDE C07A",17,0 ) | ||
5996 | ; SDT = loop valu e for $o t hrough sch edules | ||
5997 | "RTN","SDE C07A",18,0 ) | ||
5998 | ; SDTE = end of lo op schedul e | ||
5999 | "RTN","SDE C07A",19,0 ) | ||
6000 | ; NSDT = new appoi ntment sch edule Date /Time will be conver ted to FM format | ||
6001 | "RTN","SDE C07A",20,0 ) | ||
6002 | S SDECI=0 | ||
6003 | "RTN","SDE C07A",21,0 ) | ||
6004 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | ||
6005 | "RTN","SDE C07A",22,0 ) | ||
6006 | K @SDECY | ||
6007 | "RTN","SDE C07A",23,0 ) | ||
6008 | S @SDECY@ (0)="T0002 0ERRORID"_ $C(30) | ||
6009 | "RTN","SDE C07A",24,0 ) | ||
6010 | ;check fo r valid Ho spital loc ation | ||
6011 | "RTN","SDE C07A",25,0 ) | ||
6012 | I '+SDCL D ERR1("In valid Clin ic ID - Ca nnot deter mine if Ov erbook is allowed.") Q | ||
6013 | "RTN","SDE C07A",26,0 ) | ||
6014 | I '$D(^SC (SDCL,0)) D ERR1("In valid Clin ic ID - Ca nnot deter mine if Ov erbook is allowed.") Q | ||
6015 | "RTN","SDE C07A",27,0 ) | ||
6016 | ;check fo r valid re source ID | ||
6017 | "RTN","SDE C07A",28,0 ) | ||
6018 | I '+SDECR ES D ERR1( "Invalid R esource ID - Cannot determine if Overboo k is allow ed.") Q | ||
6019 | "RTN","SDE C07A",29,0 ) | ||
6020 | I '$D(^SD EC(409.831 ,SDECRES,0 )) D ERR1( "Invalid R esource ID - Cannot determine if Overboo k is allow ed.") Q | ||
6021 | "RTN","SDE C07A",30,0 ) | ||
6022 | ;check fo r valid DA TE/TIME | ||
6023 | "RTN","SDE C07A",31,0 ) | ||
6024 | S %DT="T" | ||
6025 | "RTN","SDE C07A",32,0 ) | ||
6026 | S X=NSDT | ||
6027 | "RTN","SDE C07A",33,0 ) | ||
6028 | D ^%DT ; GET FM F ORMAT FOR APPOINTMEN T DATE/TIM E | ||
6029 | "RTN","SDE C07A",34,0 ) | ||
6030 | S NSDT=Y | ||
6031 | "RTN","SDE C07A",35,0 ) | ||
6032 | I NSDT=-1 D ERR1("I nvalid App ointment D ate.") Q | ||
6033 | "RTN","SDE C07A",36,0 ) | ||
6034 | S SDTD=$P (NSDT,".") | ||
6035 | "RTN","SDE C07A",37,0 ) | ||
6036 | ; data he ader | ||
6037 | "RTN","SDE C07A",38,0 ) | ||
6038 | ; OVERBOO K 0=not o verbooked; 1=overboo ked | ||
6039 | "RTN","SDE C07A",39,0 ) | ||
6040 | S @SDECY@ (0)="T0002 0OVERBOOK" _$C(30) | ||
6041 | "RTN","SDE C07A",40,0 ) | ||
6042 | ;get allo wed number of overbo okings for clinic | ||
6043 | "RTN","SDE C07A",41,0 ) | ||
6044 | S SDCLSL= $G(^SC(SDC L,"SL")) | ||
6045 | "RTN","SDE C07A",42,0 ) | ||
6046 | S OBMAX=$ P(SDCLSL,U ,7) | ||
6047 | "RTN","SDE C07A",43,0 ) | ||
6048 | I '+OBMAX S (OBCNT, OBMAX)=0 G XIT | ||
6049 | "RTN","SDE C07A",44,0 ) | ||
6050 | N SDAB,SL OTSIZE | ||
6051 | "RTN","SDE C07A",45,0 ) | ||
6052 | S SDAB="^ TMP("_$J_" ,""SDEC"", ""BLKS"")" | ||
6053 | "RTN","SDE C07A",46,0 ) | ||
6054 | S SLOTSIZ E="^TMP("_ $J_",""SDE C"",""SLOT SIZE"")" | ||
6055 | "RTN","SDE C07A",47,0 ) | ||
6056 | K @SDAB,@ SLOTSIZE | ||
6057 | "RTN","SDE C07A",48,0 ) | ||
6058 | ;get orig inal slot sizes | ||
6059 | "RTN","SDE C07A",49,0 ) | ||
6060 | D GETSLOT S^SDEC04(S LOTSIZE,SD ECRES,SDTD ,SDTD_".23 59") | ||
6061 | "RTN","SDE C07A",50,0 ) | ||
6062 | ;get curr ent appt a vailabilit y | ||
6063 | "RTN","SDE C07A",51,0 ) | ||
6064 | D GETSLOT S^SDEC57(S DAB,SDECRE S,SDTD,SDT D_".2359") | ||
6065 | "RTN","SDE C07A",52,0 ) | ||
6066 | N IDX,SDR ,SDSTART,S DSTOP,SDSL OTS,XX,IDX 2,YY | ||
6067 | "RTN","SDE C07A",53,0 ) | ||
6068 | ;restore original s lot sizes into appts slots | ||
6069 | "RTN","SDE C07A",54,0 ) | ||
6070 | S IDX="" F S IDX=$ O(@SLOTSIZ E@(IDX)) Q :'IDX D | ||
6071 | "RTN","SDE C07A",55,0 ) | ||
6072 | .S XX=@SL OTSIZE@(ID X) | ||
6073 | "RTN","SDE C07A",56,0 ) | ||
6074 | .S SDSTAR T=$P(XX,U, 2),SDSTOP= $P(XX,U,3) ,SDSLOTS=$ P(XX,U,4) | ||
6075 | "RTN","SDE C07A",57,0 ) | ||
6076 | .S IDX2=" " F S IDX 2=$O(@SDAB @(IDX2)) Q :'IDX2 D | ||
6077 | "RTN","SDE C07A",58,0 ) | ||
6078 | ..S YY=@S DAB@(IDX2) | ||
6079 | "RTN","SDE C07A",59,0 ) | ||
6080 | ..S:($P(Y Y,U,2)'<SD START)&($P (YY,U,3)'> SDSTOP) $P (@SDAB@(ID X2),U,4)=S DSLOTS | ||
6081 | "RTN","SDE C07A",60,0 ) | ||
6082 | ;find ove rbooks | ||
6083 | "RTN","SDE C07A",61,0 ) | ||
6084 | S IDX="" F S IDX=$ O(@SDAB@(I DX)) Q:IDX ="" D | ||
6085 | "RTN","SDE C07A",62,0 ) | ||
6086 | .S XX=@SD AB@(IDX) | ||
6087 | "RTN","SDE C07A",63,0 ) | ||
6088 | .S SDSTAR T=$P(XX,U, 2),SDSTOP= $P(XX,U,3) ,SDSLOTS=$ P(XX,U,4) | ||
6089 | "RTN","SDE C07A",64,0 ) | ||
6090 | .;loop th ru schedul e | ||
6091 | "RTN","SDE C07A",65,0 ) | ||
6092 | .; SDBK(< appt time> ,<appt end time>)=co unter star ting at 0 | ||
6093 | "RTN","SDE C07A",66,0 ) | ||
6094 | .K SDBK ;overbook counter ar ray | ||
6095 | "RTN","SDE C07A",67,0 ) | ||
6096 | .S SDRET= "" D CRSCH ED^SDEC(.S DRET,SDECR ES,SDSTART ,SDSTOP) | ||
6097 | "RTN","SDE C07A",68,0 ) | ||
6098 | .K SDARR | ||
6099 | "RTN","SDE C07A",69,0 ) | ||
6100 | .S SD30=1 ,SDCNT=0,S DT=0 F S SDT=$O(@SD RET@(SDT)) Q:SDT="" D | ||
6101 | "RTN","SDE C07A",70,0 ) | ||
6102 | ..S SDR=$ G(@SDRET@( SDT)) | ||
6103 | "RTN","SDE C07A",71,0 ) | ||
6104 | ..I $P(SD R,U,1)[$c( 30) S SD30 =1 Q | ||
6105 | "RTN","SDE C07A",72,0 ) | ||
6106 | ..Q:SD30' =1 | ||
6107 | "RTN","SDE C07A",73,0 ) | ||
6108 | ..S SDCNT =SDCNT+1 | ||
6109 | "RTN","SDE C07A",74,0 ) | ||
6110 | ..S SDARR ($P(SDR,U, 1))="" | ||
6111 | "RTN","SDE C07A",75,0 ) | ||
6112 | ..S SD30= 0 | ||
6113 | "RTN","SDE C07A",76,0 ) | ||
6114 | .S SDCNT= 0 F S SDC NT=$O(SDAR R(SDCNT)) Q:SDCNT="" D | ||
6115 | "RTN","SDE C07A",77,0 ) | ||
6116 | ..S SDR=$ G(^SDEC(40 9.84,+SDCN T,0)) | ||
6117 | "RTN","SDE C07A",78,0 ) | ||
6118 | ..S SDT=$ P(SDR,U,1) | ||
6119 | "RTN","SDE C07A",79,0 ) | ||
6120 | ..S SDTE= $P(SDR,U,2 ) | ||
6121 | "RTN","SDE C07A",80,0 ) | ||
6122 | ..Q:$P(SD R,U,12)]"" ;don't c ount cance lled appts | ||
6123 | "RTN","SDE C07A",81,0 ) | ||
6124 | ..;if tim e ranges o verlap, ad d to SDBK array | ||
6125 | "RTN","SDE C07A",82,0 ) | ||
6126 | ..I (SDTE >SDT)&(((S DT'<SDSTAR T)&(SDT<SD STOP))!((S DTE>SDSTAR T)&(SDTE'> SDSTOP))!( (SDT'>SDST ART)&(SDTE '<SDSTOP)) ) D | ||
6127 | "RTN","SDE C07A",83,0 ) | ||
6128 | ...D CKOB (SDT,SDTE, .SDBK) | ||
6129 | "RTN","SDE C07A",84,0 ) | ||
6130 | ..;;D CKO B($P(SDT," .")_".0000 ",$P(SDTE, ".")_".235 9",.SDBK) | ||
6131 | "RTN","SDE C07A",85,0 ) | ||
6132 | .S OBCNT= $$CNTOB(.S DBK,SDECRE S,SDTD,OBM AX,SDAB) | ||
6133 | "RTN","SDE C07A",86,0 ) | ||
6134 | .S OBCNTS UM=OBCNTSU M+OBCNT | ||
6135 | "RTN","SDE C07A",87,0 ) | ||
6136 | .K @SDRET ,SDBK | ||
6137 | "RTN","SDE C07A",88,0 ) | ||
6138 | XIT ; | ||
6139 | "RTN","SDE C07A",89,0 ) | ||
6140 | S SDECI=S DECI+1 | ||
6141 | "RTN","SDE C07A",90,0 ) | ||
6142 | S @SDECY@ (SDECI)=$S (OBCNTSUM< OBMAX:"YES ",1:"NO") | ||
6143 | "RTN","SDE C07A",91,0 ) | ||
6144 | S SDECI=S DECI+1 | ||
6145 | "RTN","SDE C07A",92,0 ) | ||
6146 | S @SDECY@ (SDECI)=$C (30) | ||
6147 | "RTN","SDE C07A",93,0 ) | ||
6148 | S SDECI=S DECI+1 | ||
6149 | "RTN","SDE C07A",94,0 ) | ||
6150 | S @SDECY@ (SDECI)=$C (31) | ||
6151 | "RTN","SDE C07A",95,0 ) | ||
6152 | Q | ||
6153 | "RTN","SDE C07A",96,0 ) | ||
6154 | ; | ||
6155 | "RTN","SDE C07A",97,0 ) | ||
6156 | ;find app ointment i n SDEC APP OINTMENT f ile | ||
6157 | "RTN","SDE C07A",98,0 ) | ||
6158 | SDECAP(SDE CSDT,DFN) ; | ||
6159 | "RTN","SDE C07A",99,0 ) | ||
6160 | N SDECAPN ,SDECRES,I D | ||
6161 | "RTN","SDE C07A",100, 0) | ||
6162 | S SDECRES =0 | ||
6163 | "RTN","SDE C07A",101, 0) | ||
6164 | S ID=0 | ||
6165 | "RTN","SDE C07A",102, 0) | ||
6166 | F S ID=$ O(^SDEC(40 9.84,"B",S DECSDT,ID) ) Q:ID'>0 Q:SDECRES '=0 D | ||
6167 | "RTN","SDE C07A",103, 0) | ||
6168 | . S SDECA PN=$G(^SDE C(409.84,I D,0)) | ||
6169 | "RTN","SDE C07A",104, 0) | ||
6170 | . I $P(SD ECAPN,U,5) =DFN S SDE CRES=$P(SD ECAPN,U,7) | ||
6171 | "RTN","SDE C07A",105, 0) | ||
6172 | Q SDECRES | ||
6173 | "RTN","SDE C07A",106, 0) | ||
6174 | ; | ||
6175 | "RTN","SDE C07A",107, 0) | ||
6176 | ;check if appointme nt start/s top is in range of a n existing appointme nt | ||
6177 | "RTN","SDE C07A",108, 0) | ||
6178 | CKOB(START ,STOP,SDBK ) ;called internally | ||
6179 | "RTN","SDE C07A",109, 0) | ||
6180 | ; START = appoin tment star t date/tim e in FM fo rmat | ||
6181 | "RTN","SDE C07A",110, 0) | ||
6182 | ; STOP = appoin tment stop date/time in FM for mat | ||
6183 | "RTN","SDE C07A",111, 0) | ||
6184 | ; .SDBK = bookin gs Array - SDBK(<ap pt time>,< appt end t ime>)=coun ter starti ng at 0 | ||
6185 | "RTN","SDE C07A",112, 0) | ||
6186 | N B,E,OB, OBF | ||
6187 | "RTN","SDE C07A",113, 0) | ||
6188 | S OBF=0 | ||
6189 | "RTN","SDE C07A",114, 0) | ||
6190 | S B="" | ||
6191 | "RTN","SDE C07A",115, 0) | ||
6192 | F S B=$O (SDBK(B)) Q:B'>0 D Q:+OBF | ||
6193 | "RTN","SDE C07A",116, 0) | ||
6194 | . S E="" F S E=$O( SDBK(B,E)) Q:E'>0 D Q:+OBF | ||
6195 | "RTN","SDE C07A",117, 0) | ||
6196 | . . S OB= SDBK(B,E) | ||
6197 | "RTN","SDE C07A",118, 0) | ||
6198 | . . S OBF =1 | ||
6199 | "RTN","SDE C07A",119, 0) | ||
6200 | . . ;S OB F=(($$FMAD D^XLFDT(ST ART,B,2)'< 0)&($$FMAD D^XLFDT(ST ART,E,2)<0 ))!(($$FMA DD^XLFDT(S TOP,B,2)>0 )&($$FMADD ^XLFDT(STO P,E,2)'<0) ) | ||
6201 | "RTN","SDE C07A",120, 0) | ||
6202 | . . ;S OB F=(($P(STA RT,".",2)' <$P(B,".", 2))&($P(ST ART,".",2) '>$P(E,"." ,2)))!(($P (STOP,".", 2)>$P(B,". ",2))&($P( STOP,".",2 )'>$P(E,". ",2))) | ||
6203 | "RTN","SDE C07A",121, 0) | ||
6204 | . . I OBF S SDBK(B, E)=(OB+1) | ||
6205 | "RTN","SDE C07A",122, 0) | ||
6206 | I 'OBF S SDBK(START ,STOP)=1 | ||
6207 | "RTN","SDE C07A",123, 0) | ||
6208 | ; | ||
6209 | "RTN","SDE C07A",124, 0) | ||
6210 | Q | ||
6211 | "RTN","SDE C07A",125, 0) | ||
6212 | ; | ||
6213 | "RTN","SDE C07A",126, 0) | ||
6214 | ;count ov erbookings | ||
6215 | "RTN","SDE C07A",127, 0) | ||
6216 | CNTOB(SDBK ,SDECRES,S DTD,OBMAX, SDAB) ;cal led intern ally | ||
6217 | "RTN","SDE C07A",128, 0) | ||
6218 | N AB,ABF, ABN,CNT,BK ,SLOTS,B,E | ||
6219 | "RTN","SDE C07A",129, 0) | ||
6220 | S BK="" | ||
6221 | "RTN","SDE C07A",130, 0) | ||
6222 | S CNT=0 | ||
6223 | "RTN","SDE C07A",131, 0) | ||
6224 | S B="" F S B=$O(SD BK(B)) Q:B ="" D Q: CNT'<OBMAX | ||
6225 | "RTN","SDE C07A",132, 0) | ||
6226 | . S E="" F S E=$O( SDBK(B,E)) Q:E="" D Q:CNT'<O BMAX | ||
6227 | "RTN","SDE C07A",133, 0) | ||
6228 | . . S BK= SDBK(B,E) | ||
6229 | "RTN","SDE C07A",134, 0) | ||
6230 | . . Q:'+B K | ||
6231 | "RTN","SDE C07A",135, 0) | ||
6232 | . . S SLO TS=$$SLOTS (B,E,SDAB) ;find a ccess bloc k | ||
6233 | "RTN","SDE C07A",136, 0) | ||
6234 | . . I '+S LOTS S CNT =CNT+BK | ||
6235 | "RTN","SDE C07A",137, 0) | ||
6236 | . . E S BK=BK-SLOT S S:BK<0 B K=0 S CNT= CNT+BK | ||
6237 | "RTN","SDE C07A",138, 0) | ||
6238 | Q CNT | ||
6239 | "RTN","SDE C07A",139, 0) | ||
6240 | SLOTS(B,E, SDAB) ;fin d access b lock | ||
6241 | "RTN","SDE C07A",140, 0) | ||
6242 | N ABF,ABN ,SDI,SLOTS | ||
6243 | "RTN","SDE C07A",141, 0) | ||
6244 | S SLOTS=" " | ||
6245 | "RTN","SDE C07A",142, 0) | ||
6246 | S SDI=0 F S SDI=$O (@SDAB@(SD I)) Q:SDI' >0 D Q:+ ABF | ||
6247 | "RTN","SDE C07A",143, 0) | ||
6248 | .S ABN=@S DAB@(SDI) | ||
6249 | "RTN","SDE C07A",144, 0) | ||
6250 | .S ABF=(( B'<$P(ABN, U,2))&(B<$ P(ABN,U,3) ))!((E>$P( ABN,U,2))& (E'>$P(ABN ,U,3))) | ||
6251 | "RTN","SDE C07A",145, 0) | ||
6252 | .S:ABF SL OTS=+$P(AB N,U,4) | ||
6253 | "RTN","SDE C07A",146, 0) | ||
6254 | Q SLOTS | ||
6255 | "RTN","SDE C07A",147, 0) | ||
6256 | ; | ||
6257 | "RTN","SDE C07A",148, 0) | ||
6258 | REQSET(SDR IEN,SDPROV ,SDUSR,SDA CT,SDECTYP ,SDECNOTE, SAVESTRT,S DECRES) ;a dd SCHEDUL ED activit y to REQUE ST/CONSULT ATION file | ||
6259 | "RTN","SDE C07A",149, 0) | ||
6260 | ;INPUT: | ||
6261 | "RTN","SDE C07A",150, 0) | ||
6262 | ; SDRIEN - (requir ed) pointe r to RFEQU EST/CONSUL TATION fil e 123 | ||
6263 | "RTN","SDE C07A",151, 0) | ||
6264 | ; SDPROV - (requir ed) Provid er pointer to NEW PE RSON | ||
6265 | "RTN","SDE C07A",152, 0) | ||
6266 | ; SDUSR - (option al) User t hat entere d appointm ent pointe r to NEW P ERSON | ||
6267 | "RTN","SDE C07A",153, 0) | ||
6268 | ; SDACT - (requir ed) ACTIVI TY type to add 1=SC HEDULED 2 =STATUS CH ANGE | ||
6269 | "RTN","SDE C07A",154, 0) | ||
6270 | ; SDECTYP - (requir ed if SDAC T=2) appoi ntment Sta tus valid values: | ||
6271 | "RTN","SDE C07A",155, 0) | ||
6272 | ; C= CANCELLED BY CLINIC | ||
6273 | "RTN","SDE C07A",156, 0) | ||
6274 | ; PC= CANCELLED BY PATIENT | ||
6275 | "RTN","SDE C07A",157, 0) | ||
6276 | ; SDECNOT E - Commen ts from Ap pointment | ||
6277 | "RTN","SDE C07A",158, 0) | ||
6278 | ; SAVESTR T - Appoin tment time in extern al format ;alb/sa t 651 corr ected comm ent | ||
6279 | "RTN","SDE C07A",159, 0) | ||
6280 | ; SDECRES - Appoin tment Reso urce | ||
6281 | "RTN","SDE C07A",160, 0) | ||
6282 | N SDDT,SD FDA,SDI,SD IEN,SDOA,S DOS,SDPDC, SDSCHED,SD SCHEDF,SDS TAT,SDTXT, SDERR,Y,SD PCM | ||
6283 | "RTN","SDE C07A",161, 0) | ||
6284 | S SDACT=$ G(SDACT) | ||
6285 | "RTN","SDE C07A",162, 0) | ||
6286 | S SAVESTR T=$G(SAVES TRT) | ||
6287 | "RTN","SDE C07A",163, 0) | ||
6288 | S SDECRES =$G(SDECRE S) | ||
6289 | "RTN","SDE C07A",164, 0) | ||
6290 | Q:"12"'[S DACT | ||
6291 | "RTN","SDE C07A",165, 0) | ||
6292 | S SDSCHED F=0 | ||
6293 | "RTN","SDE C07A",166, 0) | ||
6294 | S SDUSR=$ G(SDUSR) | ||
6295 | "RTN","SDE C07A",167, 0) | ||
6296 | S:SDUSR=" " SDUSR=DU Z | ||
6297 | "RTN","SDE C07A",168, 0) | ||
6298 | S:'$D(^VA (200,+SDUS R,0)) SDUS R=DUZ ;ta ke this ou t | ||
6299 | "RTN","SDE C07A",169, 0) | ||
6300 | S SDSCHED =$$GETIEN^ SDEC51("SC HEDULED") | ||
6301 | "RTN","SDE C07A",170, 0) | ||
6302 | S SDSTAT= $$GETIEN^S DEC51("STA TUS CHANGE ") | ||
6303 | "RTN","SDE C07A",171, 0) | ||
6304 | S SDPDC=$ O(^ORD(100 .01,"B","D ISCONTINUE D",0)) | ||
6305 | "RTN","SDE C07A",172, 0) | ||
6306 | ;ajf ; Ch eck for co mpleted Co nsult | ||
6307 | "RTN","SDE C07A",173, 0) | ||
6308 | S SDPCM=$ O(^ORD(100 .01,"B","C OMPLETE",0 )) | ||
6309 | "RTN","SDE C07A",174, 0) | ||
6310 | I SDACT=1 ,SDSCHED=" " Q | ||
6311 | "RTN","SDE C07A",175, 0) | ||
6312 | I SDACT=2 ,SDSTAT="" Q | ||
6313 | "RTN","SDE C07A",176, 0) | ||
6314 | ;ajf ; Ch eck for co mpleted Co nsult | ||
6315 | "RTN","SDE C07A",177, 0) | ||
6316 | S SDCPS=$ $GET1^DIQ( 123,SDRIEN _",",8,"I" ) | ||
6317 | "RTN","SDE C07A",178, 0) | ||
6318 | Q:SDCPS=S DPDC!(SDCP S=SDPCM) | ||
6319 | "RTN","SDE C07A",179, 0) | ||
6320 | ;Q:$$GET1 ^DIQ(123,S DRIEN_",", 8,"I")=SDP DC ;neve r update f ile 123 if CPRS STAT US is DISC ONTINUED | ||
6321 | "RTN","SDE C07A",180, 0) | ||
6322 | ;Q:$$GET1 ^DIQ(123,S DRIEN_",", 8,"I")=SDP CM ;neve r update f ile 123 if CPRS STAT US is COMP LETE | ||
6323 | "RTN","SDE C07A",181, 0) | ||
6324 | S SDECNOT E=$G(SDECN OTE) | ||
6325 | "RTN","SDE C07A",182, 0) | ||
6326 | ;it is po ssible to have multi ple schedu led activi ties; make sure ther e is not a lready a S CHEDULED a ctivity | ||
6327 | "RTN","SDE C07A",183, 0) | ||
6328 | ;S SDI=0 F S SDI=$ O(^GMR(123 ,SDRIEN,40 ,SDI)) Q:S DI'>0 D Q:+SDSCHED F | ||
6329 | "RTN","SDE C07A",184, 0) | ||
6330 | ;.I $P($G (^GMR(123, SDRIEN,40, SDI,0)),U, 2)=SDSCHED S SDSCHED F=1 Q | ||
6331 | "RTN","SDE C07A",185, 0) | ||
6332 | ;Q:+SDSCH EDF | ||
6333 | "RTN","SDE C07A",186, 0) | ||
6334 | S SDDT=$$ NOW^XLFDT( ) ;*zeb 1 2/13/17 67 9 don't us e $E to re move secon ds | ||
6335 | "RTN","SDE C07A",187, 0) | ||
6336 | ; | ||
6337 | "RTN","SDE C07A",188, 0) | ||
6338 | ; Replace d with cal l to SDCNS LT below. wtc/zeb 3 .21.18 pat ch 686 ; | ||
6339 | "RTN","SDE C07A",189, 0) | ||
6340 | ; | ||
6341 | "RTN","SDE C07A",190, 0) | ||
6342 | ;S SDFDA( 123.02,"+1 ,"_SDRIEN_ ",",.01)=S DDT ;I CR 6185 | ||
6343 | "RTN","SDE C07A",191, 0) | ||
6344 | ;S SDFDA( 123.02,"+1 ,"_SDRIEN_ ",",1)=$S( SDACT=1:SD SCHED,SDAC T=2:SDSTAT ,1:"") ;I CR 6185 | ||
6345 | "RTN","SDE C07A",192, 0) | ||
6346 | ;S SDFDA( 123.02,"+1 ,"_SDRIEN_ ",",2)=SDD T ;I CR 6185 | ||
6347 | "RTN","SDE C07A",193, 0) | ||
6348 | ;S SDFDA( 123.02,"+1 ,"_SDRIEN_ ",",3)=SDP ROV ;I CR 6185 | ||
6349 | "RTN","SDE C07A",194, 0) | ||
6350 | ;S SDFDA( 123.02,"+1 ,"_SDRIEN_ ",",4)=SDU SR ;I CR 6185 | ||
6351 | "RTN","SDE C07A",195, 0) | ||
6352 | ;D UPDATE ^DIE("","S DFDA","SDI EN") | ||
6353 | "RTN","SDE C07A",196, 0) | ||
6354 | S SDTXT=" " | ||
6355 | "RTN","SDE C07A",197, 0) | ||
6356 | ;MGH modi fied to ad d in note text and a ppointment data | ||
6357 | "RTN","SDE C07A",198, 0) | ||
6358 | I SDACT=1 D | ||
6359 | "RTN","SDE C07A",199, 0) | ||
6360 | .; | ||
6361 | "RTN","SDE C07A",200, 0) | ||
6362 | .; Disabl ed lines b elow becau se they ex ist in SDC NSLT. | ||
6363 | "RTN","SDE C07A",201, 0) | ||
6364 | .; wtc/ze b 3.22.18 patch 686 | ||
6365 | "RTN","SDE C07A",202, 0) | ||
6366 | .; | ||
6367 | "RTN","SDE C07A",203, 0) | ||
6368 | .;S SDTXT (1)=$P($G( ^SDEC(409. 831,+SDECR ES,0)),U,1 )_" Consul t Appt. on "_SAVESTR T | ||
6369 | "RTN","SDE C07A",204, 0) | ||
6370 | .;I SDECN OTE'="" S SDTXT(2)=S DECNOTE | ||
6371 | "RTN","SDE C07A",205, 0) | ||
6372 | . N %DT,X ,SD,TMPYCL NC ; | ||
6373 | "RTN","SDE C07A",206, 0) | ||
6374 | . S X=SAV ESTRT,%DT= "T" D ^%DT S SD=Y ; | ||
6375 | "RTN","SDE C07A",207, 0) | ||
6376 | . S TMPYC LNC=$P($G( ^SDEC(409. 831,+SDECR ES,0)),U,4 ) I TMPYCL NC'="" S T MPYCLNC=TM PYCLNC_U_$ P(^SC(TMPY CLNC,0),U, 1) ; | ||
6377 | "RTN","SDE C07A",208, 0) | ||
6378 | . D EDITC S^SDCNSLT( SD,"",TMPY CLNC,SDRIE N) ; | ||
6379 | "RTN","SDE C07A",209, 0) | ||
6380 | I SDACT=2 D | ||
6381 | "RTN","SDE C07A",210, 0) | ||
6382 | .; | ||
6383 | "RTN","SDE C07A",211, 0) | ||
6384 | .; Disabl ed lines b elow becau se they ex ist in SDC NSLT. | ||
6385 | "RTN","SDE C07A",212, 0) | ||
6386 | .; wtc/ze b 3.22.18 patch 686 | ||
6387 | "RTN","SDE C07A",213, 0) | ||
6388 | .; | ||
6389 | "RTN","SDE C07A",214, 0) | ||
6390 | .;S SDECT YP=$G(SDEC TYP) | ||
6391 | "RTN","SDE C07A",215, 0) | ||
6392 | .;S SDTXT (1)=$P($G( ^SDEC(409. 831,+SDECR ES,0)),U,1 )_" Appt. on "_SAVES TRT_" was cancelled" _$S(SDECTY P["P":" by the Patie nt.",SDECT YP["C":" b y the Clin ic.",1:"." ) ;alb/s at 651 inc lude appt info | ||
6393 | "RTN","SDE C07A",216, 0) | ||
6394 | .;I SDECN OTE'="" S SDTXT(2)=" Remarks: " _SDECNOTE | ||
6395 | "RTN","SDE C07A",217, 0) | ||
6396 | . N DFN,% DT,X,SDTTM ,SDSC,SDPL ; | ||
6397 | "RTN","SDE C07A",218, 0) | ||
6398 | . S DFN=$ P($G(^GMR( 123,SDRIEN ,0)),U,2) ; | ||
6399 | "RTN","SDE C07A",219, 0) | ||
6400 | . S X=SAV ESTRT,%DT= "T" D ^%DT S SDTTM=Y ; | ||
6401 | "RTN","SDE C07A",220, 0) | ||
6402 | . S SDSC= $P($G(^SDE C(409.831, +SDECRES,0 )),U,4) ; | ||
6403 | "RTN","SDE C07A",221, 0) | ||
6404 | . S SDPL= 0 F S SDP L=$O(^SC(S DSC,"S",SD TTM,1,SDPL )) Q:'SDPL Q:$P(^(S DPL,0),U,1 )=DFN ; | ||
6405 | "RTN","SDE C07A",222, 0) | ||
6406 | . D SDECC AN^SDCNSLT (SDRIEN,DF N,SDTTM,SD SC,SDECTYP ,SDPL,SDEC NOTE) ;*ze b 686 10/3 0/18 send comments t o consult | ||
6407 | "RTN","SDE C07A",223, 0) | ||
6408 | Q ; | ||
6409 | "RTN","SDE C07A",224, 0) | ||
6410 | ; | ||
6411 | "RTN","SDE C07A",225, 0) | ||
6412 | ; Lines below disa bled by ca lls to SDC NSLT. | ||
6413 | "RTN","SDE C07A",226, 0) | ||
6414 | ; wtc/ze b 3.22.18 patch 686 | ||
6415 | "RTN","SDE C07A",227, 0) | ||
6416 | ; | ||
6417 | "RTN","SDE C07A",228, 0) | ||
6418 | ;I $D(SDT XT) D | ||
6419 | "RTN","SDE C07A",229, 0) | ||
6420 | ;.D WP^DI E(123.02,S DIEN(1)_", "_SDRIEN_" ,",5,"","S DTXT","SDE RR") ;IC R 6185 | ||
6421 | "RTN","SDE C07A",230, 0) | ||
6422 | ;K SDFDA ;alb/sat 651 | ||
6423 | "RTN","SDE C07A",231, 0) | ||
6424 | ;set CPRS status fi eld ICR 6 185 | ||
6425 | "RTN","SDE C07A",232, 0) | ||
6426 | ;S SDOS=$ O(^ORD(100 .01,"B","S CHEDULED", 0)) | ||
6427 | "RTN","SDE C07A",233, 0) | ||
6428 | ;S SDOA=$ O(^ORD(100 .01,"B","A CTIVE",0)) | ||
6429 | "RTN","SDE C07A",234, 0) | ||
6430 | ;I SDOS'= "" D | ||
6431 | "RTN","SDE C07A",235, 0) | ||
6432 | ;.;K SDFD A ;alb/sa t 651 move d up | ||
6433 | "RTN","SDE C07A",236, 0) | ||
6434 | ;.S SDFDA (123,SDRIE N_",",8)=$ S(SDACT=1: SDOS,1:SDO A) | ||
6435 | "RTN","SDE C07A",237, 0) | ||
6436 | ;.;D UPDA TE^DIE("", "SDFDA") ;ICR 6 185 ;alb/ sat 651 mo ved down o ut of IF s cope | ||
6437 | "RTN","SDE C07A",238, 0) | ||
6438 | ;S:+$G(SD SCHED) SDF DA(123,SDR IEN_",",9) =$S(SDACT= 1:SDSCHED, 1:SDSTAT) ;alb/ sat 651 - set LAST A CTION TAKE N ICR 48 37 | ||
6439 | "RTN","SDE C07A",239, 0) | ||
6440 | ;D:$D(SDF DA) UPDATE ^DIE("","S DFDA") ; alb/sat 65 1 | ||
6441 | "RTN","SDE C07A",240, 0) | ||
6442 | ;Q | ||
6443 | "RTN","SDE C07A",241, 0) | ||
6444 | ; | ||
6445 | "RTN","SDE C07A",242, 0) | ||
6446 | EWL(WLIEN, APPDT,SDCL ,SVCP,SVCP R,NOTE,SDA PPTYP) ;up date SD WA IT LIST at appointme nt add | ||
6447 | "RTN","SDE C07A",243, 0) | ||
6448 | ;INPUT: | ||
6449 | "RTN","SDE C07A",244, 0) | ||
6450 | ; WLIEN = Wait Lis t ID point er to SD W AIT LIST f ile 409.3 | ||
6451 | "RTN","SDE C07A",245, 0) | ||
6452 | ; APPDT = Appointm ent date/t ime (Sched uled Date of appt) i n fm forma t | ||
6453 | "RTN","SDE C07A",246, 0) | ||
6454 | ; SDCL = Clinic I D pointer to HOSPITA L LOCATION file 44 | ||
6455 | "RTN","SDE C07A",247, 0) | ||
6456 | ; SVCP = Service Connected Percentage numeric 0 -100 | ||
6457 | "RTN","SDE C07A",248, 0) | ||
6458 | ; SVCPR = Service Connected Priority 0:NO 1:YE S | ||
6459 | "RTN","SDE C07A",249, 0) | ||
6460 | ; NOTE = Comment only 1st 6 0 characte rs are use d | ||
6461 | "RTN","SDE C07A",250, 0) | ||
6462 | ; SDAPPT YP - (opti onal) Appo intment ty pe ID poin ter to APP OINTMENT T YPE file 4 09.1 | ||
6463 | "RTN","SDE C07A",251, 0) | ||
6464 | ; | ||
6465 | "RTN","SDE C07A",252, 0) | ||
6466 | ;all inpu t must be verified b y calling routine | ||
6467 | "RTN","SDE C07A",253, 0) | ||
6468 | N SDDIV,S DFDA,SDSN | ||
6469 | "RTN","SDE C07A",254, 0) | ||
6470 | S:+$G(SDA PPTYP) SDF DA(409.3,W LIEN_",",8 .7)=SDAPPT YP | ||
6471 | "RTN","SDE C07A",255, 0) | ||
6472 | S SDFDA(4 09.3,WLIEN _",",13)=A PPDT ;SCHE DULED DATE OF APPT = APP DT (SDECS TART) | ||
6473 | "RTN","SDE C07A",256, 0) | ||
6474 | S SDFDA(4 09.3,WLIEN _",",13.1) =$P($$NOW^ XLFDT,".", 1) ;DATE APPT. MAD E = TOD AY | ||
6475 | "RTN","SDE C07A",257, 0) | ||
6476 | S SDFDA(4 09.3,WLIEN _",",13.2) =SDCL ;APPT CLINIC = SDC L (SDECS CD) | ||
6477 | "RTN","SDE C07A",258, 0) | ||
6478 | S SDFDA(4 09.3,WLIEN _",",13.3) =$P($G(^SC (SDCL,0)), U,4) ;APPT INSTITUTI ON = Get from 44 u sing SDCL | ||
6479 | "RTN","SDE C07A",259, 0) | ||
6480 | S SDFDA(4 09.3,WLIEN _",",13.4) =$P($G(^SC (SDCL,0)), U,7) ;APPT STOP CODE = Get from 44 u sing SDCL | ||
6481 | "RTN","SDE C07A",260, 0) | ||
6482 | S SDDIV=$ P($G(^SC(S DCL,0)),U, 15) | ||
6483 | "RTN","SDE C07A",261, 0) | ||
6484 | S SDSN=$S (SDDIV'="" :$P($G(^DG (40.8,SDDI V,0)),U,2) ,1:"") | ||
6485 | "RTN","SDE C07A",262, 0) | ||
6486 | S SDFDA(4 09.3,WLIEN _",",13.6) =SDSN ;APPT STATION N UMBER | ||
6487 | "RTN","SDE C07A",263, 0) | ||
6488 | S SDFDA(4 09.3,WLIEN _",",13.7) =DUZ ;APPT CLERK = Cur rent User | ||
6489 | "RTN","SDE C07A",264, 0) | ||
6490 | S SDFDA(4 09.3,WLIEN _",",13.8) ="R" ;APPT STATUS = R:S cheduled/K ept | ||
6491 | "RTN","SDE C07A",265, 0) | ||
6492 | S:SVCP'=" " SDFDA(40 9.3,WLIEN_ ",",14)=SV CP ;SERVI CE CONNECT ED PERCENT AGE = SVCP (SDSVCP ) | ||
6493 | "RTN","SDE C07A",266, 0) | ||
6494 | S:SVCPR'= "" SDFDA(4 09.3,WLIEN _",",15)=S VCPR ;SERV ICE CONNEC TED PRIORI TY = SVC PR (SDSVC PR) | ||
6495 | "RTN","SDE C07A",267, 0) | ||
6496 | S:$G(NOTE )'="" SDFD A(409.3,WL IEN_",",25 )=NOTE | ||
6497 | "RTN","SDE C07A",268, 0) | ||
6498 | S SDFDA(4 09.3,WLIEN _",",27)=" U" ;EWL ENROLLEE S TATUS = U:U NDETERMINE D | ||
6499 | "RTN","SDE C07A",269, 0) | ||
6500 | S SDFDA(4 09.3,WLIEN _",",27.2) =0 ;EWL ENROLLEE D ATABASE FI LE = 0:N ONE | ||
6501 | "RTN","SDE C07A",270, 0) | ||
6502 | S SDFDA(4 09.3,WLIEN _",",28)=D UZ ;EDIT ING USER = Cur rent User | ||
6503 | "RTN","SDE C07A",271, 0) | ||
6504 | D UPDATE^ DIE("","SD FDA") | ||
6505 | "RTN","SDE C07A",272, 0) | ||
6506 | Q | ||
6507 | "RTN","SDE C07A",273, 0) | ||
6508 | ; | ||
6509 | "RTN","SDE C07A",274, 0) | ||
6510 | ERROR ; | ||
6511 | "RTN","SDE C07A",275, 0) | ||
6512 | D ERR1("E rror") | ||
6513 | "RTN","SDE C07A",276, 0) | ||
6514 | Q | ||
6515 | "RTN","SDE C07A",277, 0) | ||
6516 | ; | ||
6517 | "RTN","SDE C07A",278, 0) | ||
6518 | ERR1(SDECE RR) ;Error processin g | ||
6519 | "RTN","SDE C07A",279, 0) | ||
6520 | S SDECI=S DECI+1 | ||
6521 | "RTN","SDE C07A",280, 0) | ||
6522 | S ^TMP("S DEC",$J,SD ECI)=SDECE RR_$C(30) | ||
6523 | "RTN","SDE C07A",281, 0) | ||
6524 | S SDECI=S DECI+1 | ||
6525 | "RTN","SDE C07A",282, 0) | ||
6526 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | ||
6527 | "RTN","SDE C07A",283, 0) | ||
6528 | Q | ||
6529 | "RTN","SDE C08") | ||
6530 | 0^11^B2130 30286^B209 647726 | ||
6531 | "RTN","SDE C08",1,0) | ||
6532 | SDEC08 ;AL B/SAT/JSM - VISTA SC HEDULING R PCS ;JUN 2 1, 2017 | ||
6533 | "RTN","SDE C08",2,0) | ||
6534 | ;;5.3;Sch eduling;** 627,651,65 8,665,686* *;Aug 13, 1993;Build 39 | ||
6535 | "RTN","SDE C08",3,0) | ||
6536 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | ||
6537 | "RTN","SDE C08",4,0) | ||
6538 | ; | ||
6539 | "RTN","SDE C08",5,0) | ||
6540 | Q | ||
6541 | "RTN","SDE C08",6,0) | ||
6542 | ; | ||
6543 | "RTN","SDE C08",7,0) | ||
6544 | APPDEL(SDE CY,SDECAPT ID,SDECTYP ,SDECCR,SD ECNOT,SDEC DATE,SDUSE R) ;Cancel s appointm ent | ||
6545 | "RTN","SDE C08",8,0) | ||
6546 | ;APPDEL(S DECY,SDECA PTID,SDECT YP,SDECCR, SDECNOT,SD ECDATE,SDU SER) exte rnal param eter tag i s in SDEC | ||
6547 | "RTN","SDE C08",9,0) | ||
6548 | ;SDECAPTI D - (requi red) point er to SDEC APPOINTME NT file | ||
6549 | "RTN","SDE C08",10,0) | ||
6550 | ;SDECTYP - (requi red) appoi ntment Sta tus valid values: | ||
6551 | "RTN","SDE C08",11,0) | ||
6552 | ; C= CANCELLED BY CLINIC | ||
6553 | "RTN","SDE C08",12,0) | ||
6554 | ; PC= CANCELLED BY PATIENT | ||
6555 | "RTN","SDE C08",13,0) | ||
6556 | ;SDECCR - (optio nal) point er to CANC ELLATION R EASON File (409.2) | ||
6557 | "RTN","SDE C08",14,0) | ||
6558 | ;SDECNOT - (optio nal) text representi ng user no te | ||
6559 | "RTN","SDE C08",15,0) | ||
6560 | ;SDECDATE - (opti onal) Canc el Date/Ti me in exte rnal forma t; default s to NOW | ||
6561 | "RTN","SDE C08",16,0) | ||
6562 | ;SDUSER - (opti onal) User that canc elled appt ; defaults to curren t user | ||
6563 | "RTN","SDE C08",17,0) | ||
6564 | ;Returns error code in record set field ERRORID | ||
6565 | "RTN","SDE C08",18,0) | ||
6566 | ; | ||
6567 | "RTN","SDE C08",19,0) | ||
6568 | N SDECNOD ,SDECPATID ,SDECSTART ,DIK,DA,SD ECID,SDECI ,SDECZ,SDE CERR | ||
6569 | "RTN","SDE C08",20,0) | ||
6570 | N SDECLOC ,SDECLEN,S DECSCIEN,S DECSCIEN1 | ||
6571 | "RTN","SDE C08",21,0) | ||
6572 | N SDECNOE V,SDECSC1, SDRET | ||
6573 | "RTN","SDE C08",22,0) | ||
6574 | N %DT,X,Y | ||
6575 | "RTN","SDE C08",23,0) | ||
6576 | S SDECNOE V=1 ;Don't execute S DEC CANCEL APPOINTME NT protoco l | ||
6577 | "RTN","SDE C08",24,0) | ||
6578 | S SDECSCI EN1=0 | ||
6579 | "RTN","SDE C08",25,0) | ||
6580 | ; | ||
6581 | "RTN","SDE C08",26,0) | ||
6582 | S SDECI=0 | ||
6583 | "RTN","SDE C08",27,0) | ||
6584 | S SDECY=" ^TMP(""SDE C08"","_$J _",""APPDE L"")" | ||
6585 | "RTN","SDE C08",28,0) | ||
6586 | K @SDECY | ||
6587 | "RTN","SDE C08",29,0) | ||
6588 | S @SDECY@ (SDECI)="T 00020ERROR ID"_$C(30) | ||
6589 | "RTN","SDE C08",30,0) | ||
6590 | S SDECI=S DECI+1 | ||
6591 | "RTN","SDE C08",31,0) | ||
6592 | ;validate SDEC APPO INTMENT po inter (req uired) | ||
6593 | "RTN","SDE C08",32,0) | ||
6594 | I '$D(^SD EC(409.84, +$G(SDECAP TID),0)) D ERR(SDECI ,"SDEC08: Invalid Ap pointment ID") Q | ||
6595 | "RTN","SDE C08",33,0) | ||
6596 | ;validate appointme nt status type (requ ired) | ||
6597 | "RTN","SDE C08",34,0) | ||
6598 | S SDECTYP =$G(SDECTY P) | ||
6599 | "RTN","SDE C08",35,0) | ||
6600 | 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: "") | ||
6601 | "RTN","SDE C08",36,0) | ||
6602 | I SDECTYP ="" D ERR( SDECI,"SDE C08: Inval id status type") Q | ||
6603 | "RTN","SDE C08",37,0) | ||
6604 | ;validate CANCELLAT ION REASON pointer ( optional) | ||
6605 | "RTN","SDE C08",38,0) | ||
6606 | S SDECCR= $G(SDECCR) | ||
6607 | "RTN","SDE C08",39,0) | ||
6608 | I SDECCR' ="" I '$D( ^SD(409.2, +SDECCR,0) ) S SDECCR =$O(^SD(40 9.2,"B","S DECCR",0)) | ||
6609 | "RTN","SDE C08",40,0) | ||
6610 | ;validate SDECNOT | ||
6611 | "RTN","SDE C08",41,0) | ||
6612 | S SDECNOT =$TR(SDECN OT,"^"," " ) ;alb/sa t 658 - st rip out ^ | ||
6613 | "RTN","SDE C08",42,0) | ||
6614 | ;validate cancel da te/time | ||
6615 | "RTN","SDE C08",43,0) | ||
6616 | S SDECDAT E=$G(SDECD ATE) | ||
6617 | "RTN","SDE C08",44,0) | ||
6618 | I SDECDAT E'="" S %D T="T" S X= SDECDATE D ^%DT S SD ECDATE=Y I Y=-1 S SD ECDATE="" | ||
6619 | "RTN","SDE C08",45,0) | ||
6620 | I $G(SDEC DATE)="" S SDECDATE= $$NOW^XLFD T | ||
6621 | "RTN","SDE C08",46,0) | ||
6622 | ;validate user | ||
6623 | "RTN","SDE C08",47,0) | ||
6624 | S SDUSER= $G(SDUSER) | ||
6625 | "RTN","SDE C08",48,0) | ||
6626 | I SDUSER' ="" I '$D( ^VA(200,+S DUSER,0)) S SDUSER=" " | ||
6627 | "RTN","SDE C08",49,0) | ||
6628 | I SDUSER= "" S SDUSE R=DUZ | ||
6629 | "RTN","SDE C08",50,0) | ||
6630 | ; | ||
6631 | "RTN","SDE C08",51,0) | ||
6632 | TSTART | ||
6633 | "RTN","SDE C08",52,0) | ||
6634 | ; | ||
6635 | "RTN","SDE C08",53,0) | ||
6636 | ;Delete A PPOINTMENT entries | ||
6637 | "RTN","SDE C08",54,0) | ||
6638 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | ||
6639 | "RTN","SDE C08",55,0) | ||
6640 | S SDECPAT ID=$P(SDEC NOD,U,5) | ||
6641 | "RTN","SDE C08",56,0) | ||
6642 | S SDECSTA RT=$P(SDEC NOD,U) | ||
6643 | "RTN","SDE C08",57,0) | ||
6644 | ; | ||
6645 | "RTN","SDE C08",58,0) | ||
6646 | ;Lock SDE C node | ||
6647 | "RTN","SDE C08",59,0) | ||
6648 | 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 | ||
6649 | "RTN","SDE C08",60,0) | ||
6650 | ;cancel c heck-in if walk-in | ||
6651 | "RTN","SDE C08",61,0) | ||
6652 | I $P(SDEC NOD,U,13)= "y" D | ||
6653 | "RTN","SDE C08",62,0) | ||
6654 | .S SDRET= "" | ||
6655 | "RTN","SDE C08",63,0) | ||
6656 | .D CHECKI N^SDEC25(. SDRET,SDEC APTID,"@") | ||
6657 | "RTN","SDE C08",64,0) | ||
6658 | ;cancel S DEC APPOIN TMENT reco rd | ||
6659 | "RTN","SDE C08",65,0) | ||
6660 | D SDECCAN (SDECAPTID ,SDECTYP,S DECCR,SDEC NOT,SDECDA TE,SDUSER, 1) | ||
6661 | "RTN","SDE C08",66,0) | ||
6662 | ; | ||
6663 | "RTN","SDE C08",67,0) | ||
6664 | S SDECSC1 =$P(SDECNO D,U,7) ;RE SOURCEID | ||
6665 | "RTN","SDE C08",68,0) | ||
6666 | 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 | ||
6667 | "RTN","SDE C08",69,0) | ||
6668 | . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0) | ||
6669 | "RTN","SDE C08",70,0) | ||
6670 | . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION | ||
6671 | "RTN","SDE C08",71,0) | ||
6672 | . Q:'+SDE CLOC | ||
6673 | "RTN","SDE C08",72,0) | ||
6674 | . S SDECS CIEN=$$SCI EN^SDECU2( SDECPATID, SDECLOC,SD ECSTART) I SDECSCIEN ="" D I ' SDECZ Q ; Q:SDECZ | ||
6675 | "RTN","SDE C08",73,0) | ||
6676 | . . S SDE CERR="SDEC 08: Unable to find a ssociated appointmen t for this patient. " | ||
6677 | "RTN","SDE C08",74,0) | ||
6678 | . . S SDE CZ=1 | ||
6679 | "RTN","SDE C08",75,0) | ||
6680 | . . I '$D (^SDEC(409 .831,SDECS C1,20)) S SDECZ=0 Q | ||
6681 | "RTN","SDE C08",76,0) | ||
6682 | . . N SDE C1 | ||
6683 | "RTN","SDE C08",77,0) | ||
6684 | . . S SDE C1=0 | ||
6685 | "RTN","SDE C08",78,0) | ||
6686 | . . F S SDEC1=$O(^ SDEC(409.8 31,SDECSC1 ,20,SDEC1) ) Q:'+SDEC 1 Q:SDECZ =0 D | ||
6687 | "RTN","SDE C08",79,0) | ||
6688 | . . . Q:' $D(^SDEC(4 09.831,SDE CSC1,20,SD EC1,0)) | ||
6689 | "RTN","SDE C08",80,0) | ||
6690 | . . . S S DECLOC=$P( ^SDEC(409. 831,SDECSC 1,20,SDEC1 ,0),U) | ||
6691 | "RTN","SDE C08",81,0) | ||
6692 | . . . S S DECSCIEN=$ $SCIEN^SDE CU2(SDECPA TID,SDECLO C,SDECSTAR T) I +SDEC SCIEN S SD ECZ=0 Q | ||
6693 | "RTN","SDE C08",82,0) | ||
6694 | . S SDECE RR="SDEC08 : CANCEL^S DEC08 Retu rned " | ||
6695 | "RTN","SDE C08",83,0) | ||
6696 | . I SDECL OC']"" S S DECZ="0^Un able to fi nd associa ted appoin tment for this patie nt." Q | ||
6697 | "RTN","SDE C08",84,0) | ||
6698 | . I '$D(^ SC(SDECLOC ,0)) S SDE CZ="0^Unab le to find associate d appointm ent for th is patient ." Q | ||
6699 | "RTN","SDE C08",85,0) | ||
6700 | . S SDECN OD=$G(^SC( SDECLOC,"S ",SDECSTAR T,1,+SDECS CIEN,0)) | ||
6701 | "RTN","SDE C08",86,0) | ||
6702 | . I SDECN OD="" S SD ECZ="0^Una ble to fin d associat ed appoint ment for t his patien t." Q | ||
6703 | "RTN","SDE C08",87,0) | ||
6704 | . S SDECL EN=$P(SDEC NOD,U,2) | ||
6705 | "RTN","SDE C08",88,0) | ||
6706 | . D APCAN (.SDECZ,SD ECLOC,SDEC PATID,SDEC START,SDEC APTID,SDEC LEN) | ||
6707 | "RTN","SDE C08",89,0) | ||
6708 | . Q:+$G(S DECZ) | ||
6709 | "RTN","SDE C08",90,0) | ||
6710 | . D AVUPD T(SDECLOC, SDECSTART, SDECLEN) | ||
6711 | "RTN","SDE C08",91,0) | ||
6712 | . D AR433 D^SDECAR2( SDECAPTID) | ||
6713 | "RTN","SDE C08",92,0) | ||
6714 | . ;L | ||
6715 | "RTN","SDE C08",93,0) | ||
6716 | ; | ||
6717 | "RTN","SDE C08",94,0) | ||
6718 | TCOMMIT | ||
6719 | "RTN","SDE C08",95,0) | ||
6720 | L -^SDEC( 409.84,SDE CPATID) | ||
6721 | "RTN","SDE C08",96,0) | ||
6722 | S SDECI=S DECI+1 | ||
6723 | "RTN","SDE C08",97,0) | ||
6724 | S @SDECY@ (SDECI)="" _$C(30) | ||
6725 | "RTN","SDE C08",98,0) | ||
6726 | S SDECI=S DECI+1 | ||
6727 | "RTN","SDE C08",99,0) | ||
6728 | S @SDECY@ (SDECI)=$C (31) | ||
6729 | "RTN","SDE C08",100,0 ) | ||
6730 | Q | ||
6731 | "RTN","SDE C08",101,0 ) | ||
6732 | ; | ||
6733 | "RTN","SDE C08",102,0 ) | ||
6734 | AVUPDT(SDE CSCD,SDECS TART,SDECL EN) ;Updat e Clinic a vailabilit y | ||
6735 | "RTN","SDE C08",103,0 ) | ||
6736 | ;See SDCN P0 | ||
6737 | "RTN","SDE C08",104,0 ) | ||
6738 | N HSI,I,S ,SB,SD,SDD IF,SI,SL,S S,ST,START DAY,STR,X, Y | ||
6739 | "RTN","SDE C08",105,0 ) | ||
6740 | S (SD,S)= SDECSTART | ||
6741 | "RTN","SDE C08",106,0 ) | ||
6742 | S I=SDECS CD | ||
6743 | "RTN","SDE C08",107,0 ) | ||
6744 | Q:'$D(^SC (I,"ST",SD \1,1)) | ||
6745 | "RTN","SDE C08",108,0 ) | ||
6746 | 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 ) | ||
6747 | "RTN","SDE C08",109,0 ) | ||
6748 | S SL=SDEC LEN | ||
6749 | "RTN","SDE C08",110,0 ) | ||
6750 | 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 | ||
6751 | "RTN","SDE C08",111,0 ) | ||
6752 | 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 | ||
6753 | "RTN","SDE C08",112,0 ) | ||
6754 | S ^SC(SDE CSCD,"ST", SD\1,1)=S | ||
6755 | "RTN","SDE C08",113,0 ) | ||
6756 | Q | ||
6757 | "RTN","SDE C08",114,0 ) | ||
6758 | ; | ||
6759 | "RTN","SDE C08",115,0 ) | ||
6760 | APCAN(SDEC Z,SDECLOC, SDECDFN,SD ECSD,SDECA PTID,SDECL EN) ; | ||
6761 | "RTN","SDE C08",116,0 ) | ||
6762 | ;Cancel a ppointment for patie nt SDECDFN in clinic SDECSC1 | ||
6763 | "RTN","SDE C08",117,0 ) | ||
6764 | ;at time SDECSD | ||
6765 | "RTN","SDE C08",118,0 ) | ||
6766 | N SDECPNO D,SDECC,DA ,DIE,DPTST ,DR,%H | ||
6767 | "RTN","SDE C08",119,0 ) | ||
6768 | ;save dat a into SDE C APPOINTM ENT in cas e of un-ca ncel (stat us & appt length) | ||
6769 | "RTN","SDE C08",120,0 ) | ||
6770 | S SDECPNO D=^DPT(SDE CPATID,"S" ,SDECSD,0) | ||
6771 | "RTN","SDE C08",121,0 ) | ||
6772 | S DPTST=$ P(SDECPNOD ,U,2) | ||
6773 | "RTN","SDE C08",122,0 ) | ||
6774 | S DIE=409 .84 | ||
6775 | "RTN","SDE C08",123,0 ) | ||
6776 | S DA=SDEC APTID | ||
6777 | "RTN","SDE C08",124,0 ) | ||
6778 | S DR=".17 ///"_DPTST _";"_".18/ //"_SDECLE N | ||
6779 | "RTN","SDE C08",125,0 ) | ||
6780 | D ^DIE | ||
6781 | "RTN","SDE C08",126,0 ) | ||
6782 | S SDECC(" PAT")=SDEC DFN | ||
6783 | "RTN","SDE C08",127,0 ) | ||
6784 | S SDECC(" CLN")=SDEC LOC | ||
6785 | "RTN","SDE C08",128,0 ) | ||
6786 | S SDECC(" TYP")=SDEC TYP | ||
6787 | "RTN","SDE C08",129,0 ) | ||
6788 | S SDECC(" ADT")=SDEC SD | ||
6789 | "RTN","SDE C08",130,0 ) | ||
6790 | S %H=$H D YMD^%DTC | ||
6791 | "RTN","SDE C08",131,0 ) | ||
6792 | S SDECC(" CDT")=SDEC DATE ;X+ % | ||
6793 | "RTN","SDE C08",132,0 ) | ||
6794 | S SDECC(" NOT")=SDEC NOT | ||
6795 | "RTN","SDE C08",133,0 ) | ||
6796 | S:+SDECCR SDECC("CR ")=SDECCR | ||
6797 | "RTN","SDE C08",134,0 ) | ||
6798 | S SDECC(" USR")=SDUS ER | ||
6799 | "RTN","SDE C08",135,0 ) | ||
6800 | ; | ||
6801 | "RTN","SDE C08",136,0 ) | ||
6802 | S SDECZ=$ $CANCEL(.S DECC) | ||
6803 | "RTN","SDE C08",137,0 ) | ||
6804 | Q | ||
6805 | "RTN","SDE C08",138,0 ) | ||
6806 | ; | ||
6807 | "RTN","SDE C08",139,0 ) | ||
6808 | SDECCAN(SD ECAPTID,SD ECTYP,SDEC CR,SDECNOT ,SDECDATE, SDUSER,SDF ) ;cancel SDEC APPOI NTMENT ent ry | ||
6809 | "RTN","SDE C08",140,0 ) | ||
6810 | ;SDECAPTI D - (requi red) point er to SDEC APPOINTME NT file | ||
6811 | "RTN","SDE C08",141,0 ) | ||
6812 | ;SDECTYP - (requi red) appoi ntment Sta tus valid values: | ||
6813 | "RTN","SDE C08",142,0 ) | ||
6814 | ; C= CANCELLED BY CLINIC | ||
6815 | "RTN","SDE C08",143,0 ) | ||
6816 | ; PC= CANCELLED BY PATIENT | ||
6817 | "RTN","SDE C08",144,0 ) | ||
6818 | ;SDECCR - (optio nal) point er to CANC ELLATION R EASON File (409.2) | ||
6819 | "RTN","SDE C08",145,0 ) | ||
6820 | ;SDECNOT - (optio nal) text representi ng user no te | ||
6821 | "RTN","SDE C08",146,0 ) | ||
6822 | ;SDECDATE - (opti onal) Canc el Date/Ti me in fm f ormat; def aults to N OW) ; | ||
6823 | "RTN","SDE C08",147,0 ) | ||
6824 | ;SDF - (optio nal) flags | ||
6825 | "RTN","SDE C08",148,0 ) | ||
6826 | ; 1. ca lled from GUI (updat e consult only if ca lled from GUI) | ||
6827 | "RTN","SDE C08",149,0 ) | ||
6828 | ; 2. ca lled from cancel in SDAM (CAN^ SDCNP0) (d o not reop en appt) | ||
6829 | "RTN","SDE C08",150,0 ) | ||
6830 | ;Cancel S DEC APPOIN TMENT entr y | ||
6831 | "RTN","SDE C08",151,0 ) | ||
6832 | N DFN,PRO VIEN,Y | ||
6833 | "RTN","SDE C08",152,0 ) | ||
6834 | 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 | ||
6835 | "RTN","SDE C08",153,0 ) | ||
6836 | S SDF=$G( SDF,0) | ||
6837 | "RTN","SDE C08",154,0 ) | ||
6838 | S DFN=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 05) ;alb /sat 658 | ||
6839 | "RTN","SDE C08",155,0 ) | ||
6840 | S SDT=$$G ET1^DIQ(40 9.84,SDECA PTID_",",. 01,"I") | ||
6841 | "RTN","SDE C08",156,0 ) | ||
6842 | S SAVESTR T=$$GET1^D IQ(409.84, SDECAPTID_ ",",.01) ;alb/sat 651 | ||
6843 | "RTN","SDE C08",157,0 ) | ||
6844 | S SDRES=$ $GET1^DIQ( 409.84,SDE CAPTID_"," ,.07,"I") ;alb/sat 651 | ||
6845 | "RTN","SDE C08",158,0 ) | ||
6846 | S SDECIEN S=SDECAPTI D_"," | ||
6847 | "RTN","SDE C08",159,0 ) | ||
6848 | S SDECFDA (409.84,SD ECIENS,.12 )=$S($G(SD ECDATE)'=" ":SDECDATE ,1:$$NOW^X LFDT) | ||
6849 | "RTN","SDE C08",160,0 ) | ||
6850 | S SDECFDA (409.84,SD ECIENS,.12 1)=$S($G(S DUSER)'="" :SDUSER,1: DUZ) | ||
6851 | "RTN","SDE C08",161,0 ) | ||
6852 | S:$G(SDEC CR)'="" SD ECFDA(409. 84,SDECIEN S,.122)=SD ECCR | ||
6853 | "RTN","SDE C08",162,0 ) | ||
6854 | S SDECFDA (409.84,SD ECIENS,.17 )=SDECTYP | ||
6855 | "RTN","SDE C08",163,0 ) | ||
6856 | K SDECMSG | ||
6857 | "RTN","SDE C08",164,0 ) | ||
6858 | D FILE^DI E("","SDEC FDA","SDEC MSG") | ||
6859 | "RTN","SDE C08",165,0 ) | ||
6860 | S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" ) | ||
6861 | "RTN","SDE C08",166,0 ) | ||
6862 | ;alb/sat 658 modifi cation beg in | ||
6863 | "RTN","SDE C08",167,0 ) | ||
6864 | S SDECNOT =$G(SDECNO T),SDECNOT =$E(SDECNO T,1,160) | ||
6865 | "RTN","SDE C08",168,0 ) | ||
6866 | I $L(SDEC NOT)>2,'$E (SDF,2) K SDECFDA S SDECFDA(2. 98,SDT_"," _DFN_",",1 7)=SDECNOT D UPDATE^ DIE("","SD ECFDA") | ||
6867 | "RTN","SDE C08",169,0 ) | ||
6868 | ;alb/sat 658 modifi cation end | ||
6869 | "RTN","SDE C08",170,0 ) | ||
6870 | I $P(SDAP TYP,";",2) ="GMR(123, ",$E(SDF,1 ) D | ||
6871 | "RTN","SDE C08",171,0 ) | ||
6872 | .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID) | ||
6873 | "RTN","SDE C08",172,0 ) | ||
6874 | .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ") | ||
6875 | "RTN","SDE C08",173,0 ) | ||
6876 | .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",2, SDECTYP,SD ECNOT,SAVE STRT,SDRES ) ;alb/sa t 651 adde d SAVESTRT | ||
6877 | "RTN","SDE C08",174,0 ) | ||
6878 | I $P(SDAP TYP,";",2) ="SDWL(409 .3," D ; update EWL | ||
6879 | "RTN","SDE C08",175,0 ) | ||
6880 | .S DFN=$$ GET1^DIQ(4 09.3,$P(SD APTYP,";", 1)_",",.01 ,"I") | ||
6881 | "RTN","SDE C08",176,0 ) | ||
6882 | .Q:DFN="" | ||
6883 | "RTN","SDE C08",177,0 ) | ||
6884 | .S SDIEN= 0 F S SDI EN=$O(^SDW L(409.3,"B ",DFN,SDIE N)) Q:SDIE N="" D | ||
6885 | "RTN","SDE C08",178,0 ) | ||
6886 | ..I $$GET 1^DIQ(409. 3,SDIEN_", ",13,"I")= SDT D | ||
6887 | "RTN","SDE C08",179,0 ) | ||
6888 | ...K SDEC FDA,SDECMS G,SDECWP | ||
6889 | "RTN","SDE C08",180,0 ) | ||
6890 | ...;S SDI EN=$P(SDAP TYP,";",1) | ||
6891 | "RTN","SDE C08",181,0 ) | ||
6892 | ...S SDEC FDA(409.3, SDIEN_",", 13)="@" | ||
6893 | "RTN","SDE C08",182,0 ) | ||
6894 | ...S SDEC FDA(409.3, SDIEN_",", 13.1)="@" | ||
6895 | "RTN","SDE C08",183,0 ) | ||
6896 | ...S SDEC FDA(409.3, SDIEN_",", 13.2)="@" | ||
6897 | "RTN","SDE C08",184,0 ) | ||
6898 | ...S SDEC FDA(409.3, SDIEN_",", 13.3)="@" | ||
6899 | "RTN","SDE C08",185,0 ) | ||
6900 | ...S SDEC FDA(409.3, SDIEN_",", 13.4)="@" | ||
6901 | "RTN","SDE C08",186,0 ) | ||
6902 | ...S SDEC FDA(409.3, SDIEN_",", 13.5)="@" | ||
6903 | "RTN","SDE C08",187,0 ) | ||
6904 | ...S SDEC FDA(409.3, SDIEN_",", 13.6)="@" | ||
6905 | "RTN","SDE C08",188,0 ) | ||
6906 | ...S SDEC FDA(409.3, SDIEN_",", 13.7)="@" | ||
6907 | "RTN","SDE C08",189,0 ) | ||
6908 | ...S SDEC FDA(409.3, SDIEN_",", 13.8)="@" | ||
6909 | "RTN","SDE C08",190,0 ) | ||
6910 | ...D UPDA TE^DIE("", "SDECFDA") | ||
6911 | "RTN","SDE C08",191,0 ) | ||
6912 | ...D:'$E( SDF,2) WLO PEN^SDECWL ("","",SDI EN) ;alb/ jsm 658 do not reope n if calle d from SDE C^SDCNP0 | ||
6913 | "RTN","SDE C08",192,0 ) | ||
6914 | I $P(SDAP TYP,";",2) ="SDEC(409 .85," D ;update AP PT | ||
6915 | "RTN","SDE C08",193,0 ) | ||
6916 | .K SDECFD A,SDECMSG, SDECWP | ||
6917 | "RTN","SDE C08",194,0 ) | ||
6918 | .D:'$E(SD F,2) AROPE N^SDECAR(" ",SDECAPTI D) ;alb/j sm 658 do not reopen if called from SDEC ^SDCNP0 | ||
6919 | "RTN","SDE C08",195,0 ) | ||
6920 | .S SDIEN= $P(SDAPTYP ,";",1) | ||
6921 | "RTN","SDE C08",196,0 ) | ||
6922 | .S SDECFD A(409.85,S DIEN_",",1 3)="@" | ||
6923 | "RTN","SDE C08",197,0 ) | ||
6924 | .S SDECFD A(409.85,S DIEN_",",1 3.1)="@" | ||
6925 | "RTN","SDE C08",198,0 ) | ||
6926 | .S SDECFD A(409.85,S DIEN_",",1 3.2)="@" | ||
6927 | "RTN","SDE C08",199,0 ) | ||
6928 | .S SDECFD A(409.85,S DIEN_",",1 3.3)="@" | ||
6929 | "RTN","SDE C08",200,0 ) | ||
6930 | .S SDECFD A(409.85,S DIEN_",",1 3.4)="@" | ||
6931 | "RTN","SDE C08",201,0 ) | ||
6932 | .S SDECFD A(409.85,S DIEN_",",1 3.5)="@" | ||
6933 | "RTN","SDE C08",202,0 ) | ||
6934 | .S SDECFD A(409.85,S DIEN_",",1 3.6)="@" | ||
6935 | "RTN","SDE C08",203,0 ) | ||
6936 | .S SDECFD A(409.85,S DIEN_",",1 3.7)="@" | ||
6937 | "RTN","SDE C08",204,0 ) | ||
6938 | .S SDECFD A(409.85,S DIEN_",",1 3.8)="@" | ||
6939 | "RTN","SDE C08",205,0 ) | ||
6940 | .D UPDATE ^DIE("","S DECFDA") | ||
6941 | "RTN","SDE C08",206,0 ) | ||
6942 | Q | ||
6943 | "RTN","SDE C08",207,0 ) | ||
6944 | ; | ||
6945 | "RTN","SDE C08",208,0 ) | ||
6946 | CANEVT(SDE CPAT,SDECS TART,SDECS C) ;EP Cal led by SDE C CANCEL A PPOINTMENT event | ||
6947 | "RTN","SDE C08",209,0 ) | ||
6948 | ;when app ointments cancelled via PIMS i nterface. | ||
6949 | "RTN","SDE C08",210,0 ) | ||
6950 | ;Propagat es cancell ation to S DECAPPT an d raises r efresh eve nt to runn ing GUI cl ients | ||
6951 | "RTN","SDE C08",211,0 ) | ||
6952 | N SDECFOU ND,SDECRES | ||
6953 | "RTN","SDE C08",212,0 ) | ||
6954 | Q:+$G(SDE CNOEV) | ||
6955 | "RTN","SDE C08",213,0 ) | ||
6956 | Q:'+$G(SD ECSC) | ||
6957 | "RTN","SDE C08",214,0 ) | ||
6958 | S SDECFOU ND=0 | ||
6959 | "RTN","SDE C08",215,0 ) | ||
6960 | 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) | ||
6961 | "RTN","SDE C08",216,0 ) | ||
6962 | I SDECFOU ND D CANEV T3(SDECRES ) Q | ||
6963 | "RTN","SDE C08",217,0 ) | ||
6964 | Q | ||
6965 | "RTN","SDE C08",218,0 ) | ||
6966 | ; | ||
6967 | "RTN","SDE C08",219,0 ) | ||
6968 | CANEVT1(SD ECRES,SDEC START,SDEC PAT) ; | ||
6969 | "RTN","SDE C08",220,0 ) | ||
6970 | ;Get appo intment id in SDECAP T | ||
6971 | "RTN","SDE C08",221,0 ) | ||
6972 | ;If found , call SDE CCAN(SDECA PPT) and r eturn 1 | ||
6973 | "RTN","SDE C08",222,0 ) | ||
6974 | ;else ret urn 0 | ||
6975 | "RTN","SDE C08",223,0 ) | ||
6976 | N SDECFOU ND,SDECAPP T | ||
6977 | "RTN","SDE C08",224,0 ) | ||
6978 | S SDECFOU ND=0 | ||
6979 | "RTN","SDE C08",225,0 ) | ||
6980 | Q:'+SDECR ES SDECFOU ND | ||
6981 | "RTN","SDE C08",226,0 ) | ||
6982 | Q:'$D(^SD EC(409.84, "ARSRC",SD ECRES,SDEC START)) SD ECFOUND | ||
6983 | "RTN","SDE C08",227,0 ) | ||
6984 | S SDECAPP T=0 F S S DECAPPT=$O (^SDEC(409 .84,"ARSRC ",SDECRES, SDECSTART, SDECAPPT)) Q:'+SDECA PPT D Q: SDECFOUND | ||
6985 | "RTN","SDE C08",228,0 ) | ||
6986 | . S SDECN OD=$G(^SDE C(409.84,S DECAPPT,0) ) Q:SDECNO D="" | ||
6987 | "RTN","SDE C08",229,0 ) | ||
6988 | . I $P(SD ECNOD,U,5) =SDECPAT,$ P(SDECNOD, U,12)="" S SDECFOUND =1 Q | ||
6989 | "RTN","SDE C08",230,0 ) | ||
6990 | I SDECFOU ND,+$G(SDE CAPPT) D S DECCAN(SDE CAPPT,,,,, ,1) | ||
6991 | "RTN","SDE C08",231,0 ) | ||
6992 | Q SDECFOU ND | ||
6993 | "RTN","SDE C08",232,0 ) | ||
6994 | ; | ||
6995 | "RTN","SDE C08",233,0 ) | ||
6996 | CANEVT3(SD ECRES) ; | ||
6997 | "RTN","SDE C08",234,0 ) | ||
6998 | ;Call Rai seEvent to notify GU I clients | ||
6999 | "RTN","SDE C08",235,0 ) | ||
7000 | ; | ||
7001 | "RTN","SDE C08",236,0 ) | ||
7002 | Q | ||
7003 | "RTN","SDE C08",237,0 ) | ||
7004 | N SDECRES N | ||
7005 | "RTN","SDE C08",238,0 ) | ||
7006 | S SDECRES N=$G(^SDEC (409.831,S DECRES,0)) | ||
7007 | "RTN","SDE C08",239,0 ) | ||
7008 | Q:SDECRES N="" | ||
7009 | "RTN","SDE C08",240,0 ) | ||
7010 | S SDECRES N=$P(SDECR ESN,"^") | ||
7011 | "RTN","SDE C08",241,0 ) | ||
7012 | ;D EVENT^ SDEC23("SC HEDULE-"_S DECRESN,"" ,"","") | ||
7013 | "RTN","SDE C08",242,0 ) | ||
7014 | ;D EVENT^ BMXMEVN("S DEC SCHEDU LE",SDECRE SN) | ||
7015 | "RTN","SDE C08",243,0 ) | ||
7016 | Q | ||
7017 | "RTN","SDE C08",244,0 ) | ||
7018 | ; | ||
7019 | "RTN","SDE C08",245,0 ) | ||
7020 | CANCEL(BSD R) ;EP; ca lled to ca ncel appt | ||
7021 | "RTN","SDE C08",246,0 ) | ||
7022 | ; | ||
7023 | "RTN","SDE C08",247,0 ) | ||
7024 | ; Make ca ll using: S ERR=$$CA NCEL^SDEC0 8(.ARRAY) | ||
7025 | "RTN","SDE C08",248,0 ) | ||
7026 | ; | ||
7027 | "RTN","SDE C08",249,0 ) | ||
7028 | ; Input A rray - | ||
7029 | "RTN","SDE C08",250,0 ) | ||
7030 | ; BSDR("P AT") = ien of patien t in file 2 | ||
7031 | "RTN","SDE C08",251,0 ) | ||
7032 | ; BSDR("C LN") = ien of clinic in file 4 4 | ||
7033 | "RTN","SDE C08",252,0 ) | ||
7034 | ; BSDR("T YP") = C f or cancele d by clini c; PC for patient ca nceled | ||
7035 | "RTN","SDE C08",253,0 ) | ||
7036 | ; BSDR("A DT") = app ointment d ate and ti me | ||
7037 | "RTN","SDE C08",254,0 ) | ||
7038 | ; BSDR("C DT") = can cel date a nd time | ||
7039 | "RTN","SDE C08",255,0 ) | ||
7040 | ; BSDR("U SR") = use r who canc eled appt | ||
7041 | "RTN","SDE C08",256,0 ) | ||
7042 | ; BSDR("C R") = can cel reason - pointer to file 4 09.2 | ||
7043 | "RTN","SDE C08",257,0 ) | ||
7044 | ; BSDR("N OT") = can cel remark s - option al notes t o 160 char acters | ||
7045 | "RTN","SDE C08",258,0 ) | ||
7046 | ; | ||
7047 | "RTN","SDE C08",259,0 ) | ||
7048 | ;Output: error stat us and mes sage | ||
7049 | "RTN","SDE C08",260,0 ) | ||
7050 | ; = 0 o r null: e verything okay | ||
7051 | "RTN","SDE C08",261,0 ) | ||
7052 | ; = 1^m essage: e rror and r eason | ||
7053 | "RTN","SDE C08",262,0 ) | ||
7054 | ; | ||
7055 | "RTN","SDE C08",263,0 ) | ||
7056 | I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file: "_$G(BSDR ("PAT")) | ||
7057 | "RTN","SDE C08",264,0 ) | ||
7058 | I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not on file: " _$G(BSDR(" CLN")) | ||
7059 | "RTN","SDE C08",265,0 ) | ||
7060 | I ($G(BSD R("TYP"))' ="C"),($G( BSDR("TYP" ))'="PC") Q 1_U_"Can cel Status error: "_ $G(BSDR("T YP")) | ||
7061 | "RTN","SDE C08",266,0 ) | ||
7062 | I $G(BSDR ("ADT")) S BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12) ;rem ove second s | ||
7063 | "RTN","SDE C08",267,0 ) | ||
7064 | I $G(BSDR ("ADT"))'? 7N1".".4N Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT")) | ||
7065 | "RTN","SDE C08",268,0 ) | ||
7066 | I $G(BSDR ("CDT")) S BSDR("CDT ")=+$E(BSD R("CDT"),1 ,12) ;rem ove second s | ||
7067 | "RTN","SDE C08",269,0 ) | ||
7068 | I $G(BSDR ("CDT"))'? 7N1".".4N Q 1_U_"Can cel Date/T ime error: "_$G(BSDR ("CDT")) | ||
7069 | "RTN","SDE C08",270,0 ) | ||
7070 | I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled Appt Erro r: "_$G(BS DR("USR")) | ||
7071 | "RTN","SDE C08",271,0 ) | ||
7072 | I '$D(^SD (409.2,+$G (BSDR("CR" )))) Q 1_U _"Cancel R eason erro r: "_$G(BS DR("CR")) | ||
7073 | "RTN","SDE C08",272,0 ) | ||
7074 | ; | ||
7075 | "RTN","SDE C08",273,0 ) | ||
7076 | NEW IEN,D IE,DA,DR,S DMODE,SCAP TIEN ; WTC 686 11/13 /18 | ||
7077 | "RTN","SDE C08",274,0 ) | ||
7078 | S IEN=$$S CIEN^SDECU 2(BSDR("PA T"),BSDR(" CLN"),BSDR ("ADT")),S CAPTIEN=IE N ; WTC 68 6 11/13/18 | ||
7079 | "RTN","SDE C08",275,0 ) | ||
7080 | 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") | ||
7081 | "RTN","SDE C08",276,0 ) | ||
7082 | ; | ||
7083 | "RTN","SDE C08",277,0 ) | ||
7084 | 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") | ||
7085 | "RTN","SDE C08",278,0 ) | ||
7086 | ; | ||
7087 | "RTN","SDE C08",279,0 ) | ||
7088 | ; remembe r before s tatus | ||
7089 | "RTN","SDE C08",280,0 ) | ||
7090 | NEW SDATA ,DFN,SDT,S DCL,SDDA,S DCPHDL | ||
7091 | "RTN","SDE C08",281,0 ) | ||
7092 | S DFN=BSD R("PAT"),S DT=BSDR("A DT"),SDCL= BSDR("CLN" ),SDMODE=2 ,SDDA=IEN | ||
7093 | "RTN","SDE C08",282,0 ) | ||
7094 | S SDCPHDL =$$HANDLE^ SDAMEVT(1) ,SDATA=SDD A_U_DFN_U_ SDT_U_SDCL | ||
7095 | "RTN","SDE C08",283,0 ) | ||
7096 | D BEFORE^ SDAMEVT(.S DATA,DFN,S DT,SDCL,SD DA,SDCPHDL ) | ||
7097 | "RTN","SDE C08",284,0 ) | ||
7098 | ; | ||
7099 | "RTN","SDE C08",285,0 ) | ||
7100 | ; get use r who made appt and date appt made from ^SC | ||
7101 | "RTN","SDE C08",286,0 ) | ||
7102 | ; beca use data i n ^SC will be delete d | ||
7103 | "RTN","SDE C08",287,0 ) | ||
7104 | NEW USER, DATE | ||
7105 | "RTN","SDE C08",288,0 ) | ||
7106 | S USER=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,6) | ||
7107 | "RTN","SDE C08",289,0 ) | ||
7108 | S DATE=$P ($G(^SC(SD CL,"S",SDT ,1,IEN,0)) ,U,7) | ||
7109 | "RTN","SDE C08",290,0 ) | ||
7110 | ; | ||
7111 | "RTN","SDE C08",291,0 ) | ||
7112 | ; update file 2 inf o | ||
7113 | "RTN","SDE C08",292,0 ) | ||
7114 | NEW DIE,D A,DR | ||
7115 | "RTN","SDE C08",293,0 ) | ||
7116 | N SDFDA,S DIEN,SDMSG | ||
7117 | "RTN","SDE C08",294,0 ) | ||
7118 | S SDFDA=" SDFDA(2.98 ,SDT_"","" _DFN_"","" )" | ||
7119 | "RTN","SDE C08",295,0 ) | ||
7120 | S @SDFDA@ (3)=BSDR(" TYP") | ||
7121 | "RTN","SDE C08",296,0 ) | ||
7122 | S @SDFDA@ (14)=BSDR( "USR") | ||
7123 | "RTN","SDE C08",297,0 ) | ||
7124 | S @SDFDA@ (15)=BSDR( "CDT") | ||
7125 | "RTN","SDE C08",298,0 ) | ||
7126 | S:+$G(BSD R("CR")) @ SDFDA@(16) =BSDR("CR" ) | ||
7127 | "RTN","SDE C08",299,0 ) | ||
7128 | S:$G(BSDR ("NOT"))]" " @SDFDA@( 17)=$E(BSD R("NOT"),1 ,160) | ||
7129 | "RTN","SDE C08",300,0 ) | ||
7130 | S @SDFDA@ (19)=USER | ||
7131 | "RTN","SDE C08",301,0 ) | ||
7132 | S @SDFDA@ (20)=DATE | ||
7133 | "RTN","SDE C08",302,0 ) | ||
7134 | D UPDATE^ DIE("","SD FDA") | ||
7135 | "RTN","SDE C08",303,0 ) | ||
7136 | N SDPCE | ||
7137 | "RTN","SDE C08",304,0 ) | ||
7138 | S SDPCE=$ P($G(^DPT( DFN,"S",SD T,0)),U,20 ) | ||
7139 | "RTN","SDE C08",305,0 ) | ||
7140 | D:+SDPCE EN^SDCODEL (SDPCE,0) ;remove O UTPATIENT ENCOUNTER link | ||
7141 | "RTN","SDE C08",306,0 ) | ||
7142 | ; | ||
7143 | "RTN","SDE C08",307,0 ) | ||
7144 | ; delete data in ^S C | ||
7145 | "RTN","SDE C08",308,0 ) | ||
7146 | NEW DIK,D A | ||
7147 | "RTN","SDE C08",309,0 ) | ||
7148 | ; | ||
7149 | "RTN","SDE C08",310,0 ) | ||
7150 | ; WTC RE MOVED ^DIK and repla ced with S ET of 9th piece. | ||
7151 | "RTN","SDE C08",311,0 ) | ||
7152 | ; 686 11 /13/18 | ||
7153 | "RTN","SDE C08",312,0 ) | ||
7154 | ; | ||
7155 | "RTN","SDE C08",313,0 ) | ||
7156 | ;S DIK="^ SC("_BSDR( "CLN")_"," "S"","_BSD R("ADT")_" ,1," | ||
7157 | "RTN","SDE C08",314,0 ) | ||
7158 | ;S DA(2)= BSDR("CLN" ),DA(1)=BS DR("ADT"), DA=IEN | ||
7159 | "RTN","SDE C08",315,0 ) | ||
7160 | ;D ^DIK | ||
7161 | "RTN","SDE C08",316,0 ) | ||
7162 | S $P(^SC( BSDR("CLN" ),"S",BSDR ("ADT"),1, SCAPTIEN,0 ),"^",9)=" C" ; 686 11/13/18 ; call even t driver | ||
7163 | "RTN","SDE C08",317,0 ) | ||
7164 | S SDATA=S DDA_U_DFN_ U_SDT_U_SD CL | ||
7165 | "RTN","SDE C08",318,0 ) | ||
7166 | ;D CANCEL ^SDAMEVT(. SDATA,DFN, SDT,SDCL,S DDA,SDMODE ,SDCPHDL) | ||
7167 | "RTN","SDE C08",319,0 ) | ||
7168 | Q 0 | ||
7169 | "RTN","SDE C08",320,0 ) | ||
7170 | ; | ||
7171 | "RTN","SDE C08",321,0 ) | ||
7172 | UNDOCANA(S DECY,SDECA PTID) ;Und o Cancel A ppointment | ||
7173 | "RTN","SDE C08",322,0 ) | ||
7174 | ;UNDOCANA (SDECY,SDE CAPTID) e xternal pa rameter ta g in SDEC | ||
7175 | "RTN","SDE C08",323,0 ) | ||
7176 | ;called b y SDEC UNC ANCEL APPT | ||
7177 | "RTN","SDE C08",324,0 ) | ||
7178 | ; SDECAPT ID = ien o f appointm ent in SDE C APPOINTM ENT (^SDEC APPT) file 409.84 | ||
7179 | "RTN","SDE C08",325,0 ) | ||
7180 | N SDECDAM ,SDECDEC,S DECI,SDECN OD,SDECPAT ID,SDECSTA RT | ||
7181 | "RTN","SDE C08",326,0 ) | ||
7182 | S SDECNOE V=1 ;Don't execute S DEC CANCEL APPOINTME NT protoco l ;is thi s used? | ||
7183 | "RTN","SDE C08",327,0 ) | ||
7184 | ; | ||
7185 | "RTN","SDE C08",328,0 ) | ||
7186 | S SDECI=0 | ||
7187 | "RTN","SDE C08",329,0 ) | ||
7188 | K ^TMP("S DEC",$J) | ||
7189 | "RTN","SDE C08",330,0 ) | ||
7190 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | ||
7191 | "RTN","SDE C08",331,0 ) | ||
7192 | S ^TMP("S DEC",$J,SD ECI)="T000 20ERRORID" _$C(30) | ||
7193 | "RTN","SDE C08",332,0 ) | ||
7194 | TSTART | ||
7195 | "RTN","SDE C08",333,0 ) | ||
7196 | I '+SDECA PTID TROLL BACK D ER R(SDECI+1, "Invalid A ppointment ID.") Q | ||
7197 | "RTN","SDE C08",334,0 ) | ||
7198 | I '$D(^SD EC(409.84, SDECAPTID, 0)) TROLLB ACK D ERR (SDECI+1," Invalid Ap pointment ID") Q | ||
7199 | "RTN","SDE C08",335,0 ) | ||
7200 | ;Make sur e appointm ent is can celled | ||
7201 | "RTN","SDE C08",336,0 ) | ||
7202 | I $$GET1^ DIQ(409.84 ,SDECAPTID _",",.12)= "" TROLLBA CK D ERR( SDECI+1,"A ppointment is not Ca ncelled.") Q | ||
7203 | "RTN","SDE C08",337,0 ) | ||
7204 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | ||
7205 | "RTN","SDE C08",338,0 ) | ||
7206 | ;appts ca ncelled by patient c annot be u n-cancelle d. /* remo ved 9/17/2 010 */ | ||
7207 | "RTN","SDE C08",339,0 ) | ||
7208 | ;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 | ||
7209 | "RTN","SDE C08",340,0 ) | ||
7210 | ;get appo intment da ta | ||
7211 | "RTN","SDE C08",341,0 ) | ||
7212 | S SDECNOD =^SDEC(409 .84,SDECAP TID,0) | ||
7213 | "RTN","SDE C08",342,0 ) | ||
7214 | S SDECDAM =$P(SDECNO D,U,9) ;date appt made | ||
7215 | "RTN","SDE C08",343,0 ) | ||
7216 | S SDECDEC =$P(SDECNO D,U,8) ;data entry cler k | ||
7217 | "RTN","SDE C08",344,0 ) | ||
7218 | S SDECLEN =$P(SDECNO D,U,18) ;lengt h of appt in minutes | ||
7219 | "RTN","SDE C08",345,0 ) | ||
7220 | S SDECNOT E=$G(^SDEC (409.84,SD ECAPTID,1, 1,0)) ;no te from SD EC APPOINT MENT | ||
7221 | "RTN","SDE C08",346,0 ) | ||
7222 | S SDECPAT ID=$P(SDEC NOD,U,5) ;point er to VA P ATIENT fil e 2 | ||
7223 | "RTN","SDE C08",347,0 ) | ||
7224 | S SDECSC1 =$P($G(SDE CNOD),U,7) ;resou rce | ||
7225 | "RTN","SDE C08",348,0 ) | ||
7226 | S SDECSTA RT=$P(SDEC NOD,U) ;appt start time | ||
7227 | "RTN","SDE C08",349,0 ) | ||
7228 | S SDECWKI N=$P($G(SD ECNOD),U,1 3) ;walk- in | ||
7229 | "RTN","SDE C08",350,0 ) | ||
7230 | ;lock SDE C node | ||
7231 | "RTN","SDE C08",351,0 ) | ||
7232 | 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 | ||
7233 | "RTN","SDE C08",352,0 ) | ||
7234 | ;un-cance l SDEC APP OINTMENT | ||
7235 | "RTN","SDE C08",353,0 ) | ||
7236 | D SDECUCA N(SDECAPTI D) | ||
7237 | "RTN","SDE C08",354,0 ) | ||
7238 | 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 | ||
7239 | "RTN","SDE C08",355,0 ) | ||
7240 | . S SDECL OC="" | ||
7241 | "RTN","SDE C08",356,0 ) | ||
7242 | . S SDECN OD=^SDEC(4 09.831,SDE CSC1,0) | ||
7243 | "RTN","SDE C08",357,0 ) | ||
7244 | . S SDECL OC=$P(SDEC NOD,U,4) ; HOSPITAL L OCATION ;support f or single HOSPITAL L OCATION in SDEC RESO URCE | ||
7245 | "RTN","SDE C08",358,0 ) | ||
7246 | . I SDECL OC="" S SD ECLOC=$$SD CL^SDECUTL (SDECAPTID ) ;HOSPIT AL LOCATIO N | ||
7247 | "RTN","SDE C08",359,0 ) | ||
7248 | . Q:'+SDE CLOC | ||
7249 | "RTN","SDE C08",360,0 ) | ||
7250 | . ;un-can cel patien t appointm ent and re -instate c linic appo intment | ||
7251 | "RTN","SDE C08",361,0 ) | ||
7252 | . S SDECZ ="" | ||
7253 | "RTN","SDE C08",362,0 ) | ||
7254 | . D APUCA N(.SDECZ,S DECLOC,SDE CPATID,SDE CSTART,SDE CDAM,SDECD EC,SDECLEN ,SDECNOTE, SDECSC1,SD ECWKIN) | ||
7255 | "RTN","SDE C08",363,0 ) | ||
7256 | TCOMMIT | ||
7257 | "RTN","SDE C08",364,0 ) | ||
7258 | L -^SDEC( 409.84,SDE CPATID) | ||
7259 | "RTN","SDE C08",365,0 ) | ||
7260 | S SDECI=S DECI+1 | ||
7261 | "RTN","SDE C08",366,0 ) | ||
7262 | S ^TMP("S DEC",$J,SD ECI)=""_$C (30) | ||
7263 | "RTN","SDE C08",367,0 ) | ||
7264 | S SDECI=S DECI+1 | ||
7265 | "RTN","SDE C08",368,0 ) | ||
7266 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | ||
7267 | "RTN","SDE C08",369,0 ) | ||
7268 | Q | ||
7269 | "RTN","SDE C08",370,0 ) | ||
7270 | ; | ||
7271 | "RTN","SDE C08",371,0 ) | ||
7272 | SDECUCAN(S DECAPTID) ;called in ternally t o update S DEC APPOIN TMENT by c learing ca ncel date/ time | ||
7273 | "RTN","SDE C08",372,0 ) | ||
7274 | N PROVIEN ,SDAPTYP,S DCL,SDRES | ||
7275 | "RTN","SDE C08",373,0 ) | ||
7276 | S SDECIEN S=SDECAPTI D_"," | ||
7277 | "RTN","SDE C08",374,0 ) | ||
7278 | S SDECFDA (409.84,SD ECIENS,.12 )="" | ||
7279 | "RTN","SDE C08",375,0 ) | ||
7280 | K SDECMSG | ||
7281 | "RTN","SDE C08",376,0 ) | ||
7282 | D FILE^DI E("","SDEC FDA","SDEC MSG") | ||
7283 | "RTN","SDE C08",377,0 ) | ||
7284 | S SDAPTYP =$$GET1^DI Q(409.84,S DECAPTID_" ,",.22,"I" ) | ||
7285 | "RTN","SDE C08",378,0 ) | ||
7286 | I $P(SDAP TYP,";",2) ="GMR(123, " D | ||
7287 | "RTN","SDE C08",379,0 ) | ||
7288 | .S SDCL=$ $SDCL^SDEC UTL(SDECAP TID) | ||
7289 | "RTN","SDE C08",380,0 ) | ||
7290 | .S PROVIE N=$$GET1^D IQ(44,SDCL _",",16,"I ") | ||
7291 | "RTN","SDE C08",381,0 ) | ||
7292 | .D REQSET ^SDEC07A($ P(SDAPTYP, ";",1),PRO VIEN,"",1) | ||
7293 | "RTN","SDE C08",382,0 ) | ||
7294 | Q | ||
7295 | "RTN","SDE C08",383,0 ) | ||
7296 | ; | ||
7297 | "RTN","SDE C08",384,0 ) | ||
7298 | APUCAN(SDE CZ,SDECLOC ,SDECPATID ,SDECSTART ,SDECDAM,S DECDEC,SDE CLEN,SDECN OTE,SDECRE S,SDECWKIN ) ; | ||
7299 | "RTN","SDE C08",385,0 ) | ||
7300 | ;un-Cance l appointm ent for pa tient SDEC DFN in cli nic SDECSC 1 | ||
7301 | "RTN","SDE C08",386,0 ) | ||
7302 | ; SDECLO C = poin ter to hos pital loca tion ^SC f ile 44 | ||
7303 | "RTN","SDE C08",387,0 ) | ||
7304 | ; SDECPA TID = poin ter to VA Patient ^D PT file 2 | ||
7305 | "RTN","SDE C08",388,0 ) | ||
7306 | ; SDECST ART = Appo intment ti me | ||
7307 | "RTN","SDE C08",389,0 ) | ||
7308 | ; SDECDA M = Date appointme nt made in FM format | ||
7309 | "RTN","SDE C08",390,0 ) | ||
7310 | ; SDECDE C = Data entry cle rk - point er to NEW PERSON fil e 200 | ||
7311 | "RTN","SDE C08",391,0 ) | ||
7312 | N SDECC,% H | ||
7313 | "RTN","SDE C08",392,0 ) | ||
7314 | S SDECC(" PAT")=SDEC PATID | ||
7315 | "RTN","SDE C08",393,0 ) | ||
7316 | S SDECC(" CLN")=SDEC LOC | ||
7317 | "RTN","SDE C08",394,0 ) | ||
7318 | S SDECC(" ADT")=SDEC START | ||
7319 | "RTN","SDE C08",395,0 ) | ||
7320 | S SDECC(" NOTE")=SDE CNOTE ;us er note | ||
7321 | "RTN","SDE C08",396,0 ) | ||
7322 | S SDECC(" RES")=SDEC RES | ||
7323 | "RTN","SDE C08",397,0 ) | ||
7324 | S SDECC(" USR")=DUZ | ||
7325 | "RTN","SDE C08",398,0 ) | ||
7326 | S SDECC(" LEN")=SDEC LEN | ||
7327 | "RTN","SDE C08",399,0 ) | ||
7328 | S SDECC(" WKIN")=SDE CWKIN | ||
7329 | "RTN","SDE C08",400,0 ) | ||
7330 | ; | ||
7331 | "RTN","SDE C08",401,0 ) | ||
7332 | S SDECZ=$ $UNCANCEL( .SDECC) | ||
7333 | "RTN","SDE C08",402,0 ) | ||
7334 | Q | ||
7335 | "RTN","SDE C08",403,0 ) | ||
7336 | ; | ||
7337 | "RTN","SDE C08",404,0 ) | ||
7338 | UNCANCEL(B SDR) ;PEP; called to un-cancel appt | ||
7339 | "RTN","SDE C08",405,0 ) | ||
7340 | ; | ||
7341 | "RTN","SDE C08",406,0 ) | ||
7342 | ; Make ca ll using: S ERR=$$UN CANCEL(.AR RAY) | ||
7343 | "RTN","SDE C08",407,0 ) | ||
7344 | ; | ||
7345 | "RTN","SDE C08",408,0 ) | ||
7346 | ; Input A rray - | ||
7347 | "RTN","SDE C08",409,0 ) | ||
7348 | ; BSDR("P AT") = ien of patien t in file 2 | ||
7349 | "RTN","SDE C08",410,0 ) | ||
7350 | ; BSDR("C LN") = ien of clinic in file 4 4 | ||
7351 | "RTN","SDE C08",411,0 ) | ||
7352 | ; BSDR("A DT") = app ointment d ate and ti me | ||
7353 | "RTN","SDE C08",412,0 ) | ||
7354 | ; BSDR("U SR") = use r who un-c anceled ap pt | ||
7355 | "RTN","SDE C08",413,0 ) | ||
7356 | ; BSDR("N OTE") = ap pointment note from SDEC APPOI NTMENT | ||
7357 | "RTN","SDE C08",414,0 ) | ||
7358 | ; BSDR("L EN") = app t length i n minutes (numeric) | ||
7359 | "RTN","SDE C08",415,0 ) | ||
7360 | ; BSDR("R ES") = res ource | ||
7361 | "RTN","SDE C08",416,0 ) | ||
7362 | ; BSDR("W KIN")= wal k-in | ||
7363 | "RTN","SDE C08",417,0 ) | ||
7364 | ; | ||
7365 | "RTN","SDE C08",418,0 ) | ||
7366 | ;Output: error stat us and mes sage | ||
7367 | "RTN","SDE C08",419,0 ) | ||
7368 | ; = 0 o r null: e verything okay | ||
7369 | "RTN","SDE C08",420,0 ) | ||
7370 | ; = 1^m essage: e rror and r eason | ||
7371 | "RTN","SDE C08",421,0 ) | ||
7372 | ; | ||
7373 | "RTN","SDE C08",422,0 ) | ||
7374 | N DPTNOD, DPTNODR | ||
7375 | "RTN","SDE C08",423,0 ) | ||
7376 | I '$D(^DP T(+$G(BSDR ("PAT")),0 )) Q 1_U_" Patient no t on file: "_$G(BSDR ("PAT")) | ||
7377 | "RTN","SDE C08",424,0 ) | ||
7378 | I '$D(^SC (+$G(BSDR( "CLN")),0) ) Q 1_U_"C linic not on file: " _$G(BSDR(" CLN")) | ||
7379 | "RTN","SDE C08",425,0 ) | ||
7380 | I $G(BSDR ("ADT")) S BSDR("ADT ")=+$E(BSD R("ADT"),1 ,12) ;rem ove second s | ||
7381 | "RTN","SDE C08",426,0 ) | ||
7382 | I $G(BSDR ("ADT"))'? 7N1".".4N Q 1_U_"App t Date/Tim e error: " _$G(BSDR(" ADT")) | ||
7383 | "RTN","SDE C08",427,0 ) | ||
7384 | I '$D(^VA (200,+$G(B SDR("USR") ),0)) Q 1_ U_"User Wh o Canceled Appt Erro r: "_$G(BS DR("USR")) | ||
7385 | "RTN","SDE C08",428,0 ) | ||
7386 | ; | ||
7387 | "RTN","SDE C08",429,0 ) | ||
7388 | 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 | ||
7389 | "RTN","SDE C08",430,0 ) | ||
7390 | Q SDECERR | ||
7391 | "RTN","SDE C08",431,0 ) | ||
7392 | ; | ||
7393 | "RTN","SDE C08",432,0 ) | ||
7394 | ERR(SDECI, SDECERR) ; Error proc essing | ||
7395 | "RTN","SDE C08",433,0 ) | ||
7396 | S SDECI=S DECI+1 | ||
7397 | "RTN","SDE C08",434,0 ) | ||
7398 | S SDECERR =$TR(SDECE RR,"^","~" ) | ||
7399 | "RTN","SDE C08",435,0 ) | ||
7400 | TROLLBACK | ||
7401 | "RTN","SDE C08",436,0 ) | ||
7402 | S ^TMP("S DEC",$J,SD ECI)=SDECE RR_$C(30) | ||
7403 | "RTN","SDE C08",437,0 ) | ||
7404 | S SDECI=S DECI+1 | ||
7405 | "RTN","SDE C08",438,0 ) | ||
7406 | S ^TMP("S DEC",$J,SD ECI)=$C(31 ) | ||
7407 | "RTN","SDE C08",439,0 ) | ||
7408 | Q | ||
7409 | "RTN","SDE C08",440,0 ) | ||
7410 | ; | ||
7411 | "RTN","SDE C08",441,0 ) | ||
7412 | ETRAP ;EP Error trap entry | ||
7413 | "RTN","SDE C08",442,0 ) | ||
7414 | D ^%ZTER | ||
7415 | "RTN","SDE C08",443,0 ) | ||
7416 | I '$D(SDE CI) N SDEC I S SDECI= 999999 | ||
7417 | "RTN","SDE C08",444,0 ) | ||
7418 | S SDECI=S DECI+1 | ||
7419 | "RTN","SDE C08",445,0 ) | ||
7420 | D ERR(SDE CI,"SDEC08 Error") | ||
7421 | "RTN","SDE C08",446,0 ) | ||
7422 | Q | ||
7423 | "RTN","SDE CAR1") | ||
7424 | 0^7^B16735 1251^B1548 09357 | ||
7425 | "RTN","SDE CAR1",1,0) | ||
7426 | SDECAR1 ;A LB/SAT - V ISTA SCHED ULING RPCS ;MAR 15, 2017 | ||
7427 | "RTN","SDE CAR1",2,0) | ||
7428 | ;;5.3;Sch eduling;** 627,642,65 8,686**;Au g 13, 1993 ;Build 39 | ||
7429 | "RTN","SDE CAR1",3,0) | ||
7430 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | ||
7431 | "RTN","SDE CAR1",4,0) | ||
7432 | ; | ||
7433 | "RTN","SDE CAR1",5,0) | ||
7434 | Q | ||
7435 | "RTN","SDE CAR1",6,0) | ||
7436 | ; | ||
7437 | "RTN","SDE CAR1",7,0) | ||
7438 | ; Get SDE C APPOINTM ENT REQUES T for all entries in the user' s Institut ion | ||
7439 | "RTN","SDE CAR1",8,0) | ||
7440 | ; where t he Current Status is not C(los ed). | ||
7441 | "RTN","SDE CAR1",9,0) | ||
7442 | ARGET(RET, ARIEN1,MAX REC,SDBEG, SDEND,DFN, LASTSUB,SD TOP,SVCL,D ESDT,PRL,S VCR,SCVISI T,CLINIC,O RIGDT) ;Ap pt Req GET ;alb/sat 658 add S VCL-SCVISI T | ||
7443 | "RTN","SDE CAR1",10,0 ) | ||
7444 | ARGET1 ; | ||
7445 | "RTN","SDE CAR1",11,0 ) | ||
7446 | ;29 SVCC ONN - SER VICE CONNE CTED? fiel d .301 of the PATIEN T file | ||
7447 | "RTN","SDE CAR1",12,0 ) | ||
7448 | ;37 ARSV CCON - SER VICE CONNE CTED PRIOR ITY field 15 of the SDEC APPT REQUEST fi le | ||
7449 | "RTN","SDE CAR1",13,0 ) | ||
7450 | ; | ||
7451 | "RTN","SDE CAR1",14,0 ) | ||
7452 | N CLOSED, FNUM,NAME, DOB,SSN4,G ENDER,AROR IGDT,ARINS T,ARINSTNM ,ARTYPE,AR TEAM,ARPOS | ||
7453 | "RTN","SDE CAR1",15,0 ) | ||
7454 | N ELIGIEN ,ELIGNAME, FRULES,GLO REF,HRN,IN STIEN,INST NAME,PRIGR P,SVCCONN, SVCCONNP,T YPEIEN,TYP ENAME | ||
7455 | "RTN","SDE CAR1",16,0 ) | ||
7456 | N PCOUNTR Y,SDSUB,SD TMP,SSN,AR SSIEN,ARSS NAME,ARCLI EN,ARCLNAM E | ||
7457 | "RTN","SDE CAR1",17,0 ) | ||
7458 | N ARUSER, ARPRIO,ARR EQBY,ARPRO V,ARPROVNM ,ARDAPTDT, ARCOMM,ARE ESTAT,ARUS RNM | ||
7459 | "RTN","SDE CAR1",18,0 ) | ||
7460 | N ARCLIEN L,AREDT,AR IEN,PTINFO LSTA,ARDIS PD,ARDISPU ,ARDISPUN, ARSVCCON | ||
7461 | "RTN","SDE CAR1",19,0 ) | ||
7462 | N ARMAI,A RMAN,ARMAR ,ARSTAT,AR STOP,ARSTO PN,COUNT,D ES,SDK,STR ,SDRTMP | ||
7463 | "RTN","SDE CAR1",20,0 ) | ||
7464 | N PCITY,G AF,PSTATE, PZIP4,PADD RES1,PADDR ES2,PADDRE S3,PPC,PTP HONE,ARENP RI,ARASD,A RPC,ARDATA | ||
7465 | "RTN","SDE CAR1",21,0 ) | ||
7466 | N SDCL,SD I,SDJ,SDMT RC,SDPAREN T,SDPS,SDS ENS,SDDEMO ,X,Y,%DT,A PPTPTRS | ||
7467 | "RTN","SDE CAR1",22,0 ) | ||
7468 | N VAOSGUI D ; wtc pa tch 686 3/ 23/18 adde d for VAOS requests | ||
7469 | "RTN","SDE CAR1",23,0 ) | ||
7470 | S RET="^T MP(""SDEC" ","_$J_")" | ||
7471 | "RTN","SDE CAR1",24,0 ) | ||
7472 | K @RET | ||
7473 | "RTN","SDE CAR1",25,0 ) | ||
7474 | S FNUM=$$ FNUM^SDECA R,COUNT=0 | ||
7475 | "RTN","SDE CAR1",26,0 ) | ||
7476 | S MAXREC= +$G(MAXREC ,50) | ||
7477 | "RTN","SDE CAR1",27,0 ) | ||
7478 | D HDR | ||
7479 | "RTN","SDE CAR1",28,0 ) | ||
7480 | S GLOREF= $NA(^SDEC( 409.85,"C" ,DUZ(2))) | ||
7481 | "RTN","SDE CAR1",29,0 ) | ||
7482 | S FRULES= 1 | ||
7483 | "RTN","SDE CAR1",30,0 ) | ||
7484 | S ARIEN=0 | ||
7485 | "RTN","SDE CAR1",31,0 ) | ||
7486 | ;F S WLI EN=$O(@GLO REF@(WLIEN )) Q:'WLIE N D ONEPA T I MAXREC ,COUNT'<MA XREC Q | ||
7487 | "RTN","SDE CAR1",32,0 ) | ||
7488 | S SDBEG=$ G(SDBEG) | ||
7489 | "RTN","SDE CAR1",33,0 ) | ||
7490 | I SDBEG'= "" S %DT=" " S X=$P(S DBEG,"@",1 ) D ^%DT S SDBEG=Y I Y=-1 S SD BEG=310010 1 | ||
7491 | "RTN","SDE CAR1",34,0 ) | ||
7492 | I SDBEG=" " S SDBEG= 3100101 | ||
7493 | "RTN","SDE CAR1",35,0 ) | ||
7494 | S SDEND=$ G(SDEND) | ||
7495 | "RTN","SDE CAR1",36,0 ) | ||
7496 | I SDEND'= "" S %DT=" " S X=$P(S DEND,"@",1 ) D ^%DT S SDEND=Y I Y=-1 S SD END=$$FMAD D^XLFDT($E ($$NOW^XLF DT,1,12),- 90) | ||
7497 | "RTN","SDE CAR1",37,0 ) | ||
7498 | I SDEND=" " S SDEND= $$FMADD^XL FDT($E($$N OW^XLFDT,1 ,12),-90) | ||
7499 | "RTN","SDE CAR1",38,0 ) | ||
7500 | S DFN=$G( DFN) | ||
7501 | "RTN","SDE CAR1",39,0 ) | ||
7502 | I DFN'="" ,'$D(^DPT( DFN,0)) S DFN="" | ||
7503 | "RTN","SDE CAR1",40,0 ) | ||
7504 | S LASTSUB =$S(DFN="" :$G(LASTSU B),1:"") | ||
7505 | "RTN","SDE CAR1",41,0 ) | ||
7506 | S SDTOP=+ $G(SDTOP) | ||
7507 | "RTN","SDE CAR1",42,0 ) | ||
7508 | ;validate SVCL | ||
7509 | "RTN","SDE CAR1",43,0 ) | ||
7510 | S SVCL=$G (SVCL) | ||
7511 | "RTN","SDE CAR1",44,0 ) | ||
7512 | I SVCL'=" " D | ||
7513 | "RTN","SDE CAR1",45,0 ) | ||
7514 | .F SDI=$L (SVCL,"|") :-1:1 S SV C=$P(SVCL, "|",SDI) D | ||
7515 | "RTN","SDE CAR1",46,0 ) | ||
7516 | ..I (SVC= "")!('$D(^ DIC(40.7,+ SVC,0))) S SVCL=$$PD ^SDECUTL(S VCL,SDI,"| ") | ||
7517 | "RTN","SDE CAR1",47,0 ) | ||
7518 | ;validate DESDT | ||
7519 | "RTN","SDE CAR1",48,0 ) | ||
7520 | S DESDT=$ G(DESDT) | ||
7521 | "RTN","SDE CAR1",49,0 ) | ||
7522 | ;validate PRL | ||
7523 | "RTN","SDE CAR1",50,0 ) | ||
7524 | S PRL=$G( PRL) | ||
7525 | "RTN","SDE CAR1",51,0 ) | ||
7526 | I PRL'="" D | ||
7527 | "RTN","SDE CAR1",52,0 ) | ||
7528 | .N PR | ||
7529 | "RTN","SDE CAR1",53,0 ) | ||
7530 | .F SDI=$L (PRL,"|"): -1:1 S PR= $P(PRL,"|" ,SDI) D | ||
7531 | "RTN","SDE CAR1",54,0 ) | ||
7532 | ..I "0123 45678"'[PR S PR=$E(P R,7) | ||
7533 | "RTN","SDE CAR1",55,0 ) | ||
7534 | ..I "0123 45678"'[PR S PRL=$$P D^SDECUTL( PRL,SDI,"| ") | ||
7535 | "RTN","SDE CAR1",56,0 ) | ||
7536 | ;validate SVCR | ||
7537 | "RTN","SDE CAR1",57,0 ) | ||
7538 | S SVCR=$G (SVCR) S:S VCR'="" SV CR=$$UP^XL FSTR(SVCR) | ||
7539 | "RTN","SDE CAR1",58,0 ) | ||
7540 | I SVCR'=" " S SVCR=$ S(SVCR="Y" :1,SVCR="N ":0,SVCR=" YES":1,SVC R="NO":0,1 :"") | ||
7541 | "RTN","SDE CAR1",59,0 ) | ||
7542 | ;validate SCVISIT | ||
7543 | "RTN","SDE CAR1",60,0 ) | ||
7544 | S SCVISIT =$G(SCVISI T) S:SCVIS IT'="" SCV ISIT=$$UP^ XLFSTR(SCV ISIT) | ||
7545 | "RTN","SDE CAR1",61,0 ) | ||
7546 | I SCVISIT '="" S SCV ISIT=$S(SC VISIT="Y": "Y",SCVISI T="N":"N", SCVISIT="Y ES":"Y",SC VISIT="NO" :"N",1:"") | ||
7547 | "RTN","SDE CAR1",62,0 ) | ||
7548 | ;validate CLINIC | ||
7549 | "RTN","SDE CAR1",63,0 ) | ||
7550 | S CLINIC= $G(CLINIC) | ||
7551 | "RTN","SDE CAR1",64,0 ) | ||
7552 | ;validate ORIGDT | ||
7553 | "RTN","SDE CAR1",65,0 ) | ||
7554 | S ORIGDT= $G(ORIGDT) | ||
7555 | "RTN","SDE CAR1",66,0 ) | ||
7556 | ;single I EN | ||
7557 | "RTN","SDE CAR1",67,0 ) | ||
7558 | S ARIEN1= $G(ARIEN1) | ||
7559 | "RTN","SDE CAR1",68,0 ) | ||
7560 | I +ARIEN1 I '$D(^SD EC(409.85, +ARIEN1,0) ) S ARIEN 1="" | ||
7561 | "RTN","SDE CAR1",69,0 ) | ||
7562 | I +ARIEN1 D | ||
7563 | "RTN","SDE CAR1",70,0 ) | ||
7564 | .S ARIEN= +ARIEN1 | ||
7565 | "RTN","SDE CAR1",71,0 ) | ||
7566 | .S FRULES =0 ;no ru les - just return th e single r ecord | ||
7567 | "RTN","SDE CAR1",72,0 ) | ||
7568 | .D ONEPAT | ||
7569 | "RTN","SDE CAR1",73,0 ) | ||
7570 | I +ARIEN1 S @RET@(C OUNT)=@RET @(COUNT)_$ C(31) Q | ||
7571 | "RTN","SDE CAR1",74,0 ) | ||
7572 | ;by patie nt | ||
7573 | "RTN","SDE CAR1",75,0 ) | ||
7574 | I +DFN D | ||
7575 | "RTN","SDE CAR1",76,0 ) | ||
7576 | .I 'SDTOP S ARIEN=0 F S ARIE N=$O(^SDEC (409.85,"B ",+DFN,ARI EN)) Q:ARI EN'>0 D O NEPAT ;I MAXREC,COU NT'<MAXREC Q | ||
7577 | "RTN","SDE CAR1",77,0 ) | ||
7578 | .I +SDTOP S ARIEN=9 99999999 F S ARIEN= $O(^SDEC(4 09.85,"B", +DFN,ARIEN ),-1) Q:AR IEN'>0 D ONEPAT | ||
7579 | "RTN","SDE CAR1",78,0 ) | ||
7580 | ;clinic | ||
7581 | "RTN","SDE CAR1",79,0 ) | ||
7582 | I CLINIC' ="" D G A RX | ||
7583 | "RTN","SDE CAR1",80,0 ) | ||
7584 | .S SDI=$S ($P(LASTSU B,"|",1)'= "":$P(LAST SUB,"|",1) ,1:1) | ||
7585 | "RTN","SDE CAR1",81,0 ) | ||
7586 | .F SDI=SD I:1:$L(CLI NIC,"|") S SDCL=$P(C LINIC,"|", SDI) D I MAXREC,COU NT'<MAXREC Q | ||
7587 | "RTN","SDE CAR1",82,0 ) | ||
7588 | ..Q:SDCL= "" | ||
7589 | "RTN","SDE CAR1",83,0 ) | ||
7590 | ..I DESDT '="" D Q ;GCC DES DT desired dates by pipe | ||
7591 | "RTN","SDE CAR1",84,0 ) | ||
7592 | ...S SDT= $S($P(LAST SUB,"|",2) '="":$P(LA STSUB,"|", 2)-1,1:1) | ||
7593 | "RTN","SDE CAR1",85,0 ) | ||
7594 | ...F SDT= SDT:1:$L(D ESDT,"|") S DES=$P(D ESDT,"|",S DT) D I M AXREC,COUN T'<MAXREC Q | ||
7595 | "RTN","SDE CAR1",86,0 ) | ||
7596 | ....Q:DES ="" | ||
7597 | "RTN","SDE CAR1",87,0 ) | ||
7598 | ....S ARI EN=$S($P(L ASTSUB,"|" ,3)'="":$P (LASTSUB," |",3),1:0) | ||
7599 | "RTN","SDE CAR1",88,0 ) | ||
7600 | ....F S ARIEN=$O(^ SDEC(409.8 5,"GCC",SD CL,DES,ARI EN)) Q:ARI EN="" D I MAXREC,C OUNT'<MAXR EC S SDSUB =SDCL_"|"_ SDT_"|"_AR IEN Q | ||
7601 | "RTN","SDE CAR1",89,0 ) | ||
7602 | .....D ON EPAT | ||
7603 | "RTN","SDE CAR1",90,0 ) | ||
7604 | ..; | ||
7605 | "RTN","SDE CAR1",91,0 ) | ||
7606 | ..S SDT=$ S($P(LASTS UB,"|",2)' ="":$P(LAS TSUB,"|",2 )-1,ORIGDT '="":ORIGD T-1,1:SDBE G-1) ;GC | ||
7607 | "RTN","SDE CAR1",92,0 ) | ||
7608 | ..F S SD T=$O(^SDEC (409.85,"G C",SDCL,SD T)) Q:SDT= "" Q:((OR IGDT'="")& (SDT>ORIGD T)) Q:(OR IGDT="")&( SDT>SDEND) D I MAX REC,COUNT' <MAXREC Q | ||
7609 | "RTN","SDE CAR1",93,0 ) | ||
7610 | ...S ARIE N=$S($P(LA STSUB,"|", 3)'="":$P( LASTSUB,"| ",3),1:0) | ||
7611 | "RTN","SDE CAR1",94,0 ) | ||
7612 | ...F S A RIEN=$O(^S DEC(409.85 ,"GC",SDCL ,SDT,ARIEN )) Q:ARIEN ="" D I MAXREC,COU NT'<MAXREC S SDSUB=S DI_"|"_SDT _"|"_ARIEN Q | ||
7613 | "RTN","SDE CAR1",95,0 ) | ||
7614 | ....D ONE PAT | ||
7615 | "RTN","SDE CAR1",96,0 ) | ||
7616 | ;by servi ce | ||
7617 | "RTN","SDE CAR1",97,0 ) | ||
7618 | I SVCL'=" " D G ARX | ||
7619 | "RTN","SDE CAR1",98,0 ) | ||
7620 | .N PR1,SD T,SVC | ||
7621 | "RTN","SDE CAR1",99,0 ) | ||
7622 | .S SDI=$S ($P(LASTSU B,"|",1)'= "":$P(LAST SUB,"|",1) ,1:1) | ||
7623 | "RTN","SDE CAR1",100, 0) | ||
7624 | .F SDI=SD I:1:$L(SVC L,"|") S S VC=$P(SVCL ,"|",SDI) D I MAXRE C,COUNT'<M AXREC Q | ||
7625 | "RTN","SDE CAR1",101, 0) | ||
7626 | ..Q:SVC=" " | ||
7627 | "RTN","SDE CAR1",102, 0) | ||
7628 | ..;I DESD TR'="" D ;desired d ate range range <beg in> ~ <end > not impl emented | ||
7629 | "RTN","SDE CAR1",103, 0) | ||
7630 | ..I DESDT '="" D Q ;GSC DES DT desired dates by pipe | ||
7631 | "RTN","SDE CAR1",104, 0) | ||
7632 | ...S SDT= $S($P(LAST SUB,"|",2) '="":$P(LA STSUB,"|", 2)-1,1:1) | ||
7633 | "RTN","SDE CAR1",105, 0) | ||
7634 | ...F SDT= SDT:1:$L(D ESDT,"|") S DES=$P(D ESDT,"|",S DT) D I M AXREC,COUN T'<MAXREC Q | ||
7635 | "RTN","SDE CAR1",106, 0) | ||
7636 | ....Q:DES ="" | ||
7637 | "RTN","SDE CAR1",107, 0) | ||
7638 | ....S ARI EN=$S($P(L ASTSUB,"|" ,3)'="":$P (LASTSUB," |",3),1:0) | ||
7639 | "RTN","SDE CAR1",108, 0) | ||
7640 | ....F S ARIEN=$O(^ SDEC(409.8 5,"GSC",SV C,DES,ARIE N)) Q:ARIE N="" D I MAXREC,CO UNT'<MAXRE C S SDSUB= SVC_"|"_SD T_"|"_ARIE N Q | ||
7641 | "RTN","SDE CAR1",109, 0) | ||
7642 | .....D ON EPAT | ||
7643 | "RTN","SDE CAR1",110, 0) | ||
7644 | ..I PRL'= "" D Q ;GSP | ||
7645 | "RTN","SDE CAR1",111, 0) | ||
7646 | ...S SDK= $S($P(LAST SUB,"|",2) '="":$P(LA STSUB,"|", 2)-1,1:1) | ||
7647 | "RTN","SDE CAR1",112, 0) | ||
7648 | ...F SDK= SDK:1:$L(P RL,"|") S PR1=$P(PRL ,"|",SDK) D I MAXRE C,COUNT'<M AXREC Q | ||
7649 | "RTN","SDE CAR1",113, 0) | ||
7650 | ....S SDT =$S($P(LAS TSUB,"|",3 )'="":$P(L ASTSUB,"|" ,3)-1,1:SD BEG-1) | ||
7651 | "RTN","SDE CAR1",114, 0) | ||
7652 | ....F S SDT=$O(^SD EC(409.85, "GSP",SVC, PR1,SDT)) Q:SDT="" Q:SDT>SDEN D D I MA XREC,COUNT '<MAXREC Q | ||
7653 | "RTN","SDE CAR1",115, 0) | ||
7654 | .....S AR IEN=$S($P( LASTSUB,"| ",4)'="":$ P(LASTSUB, "|",4),1:0 ) | ||
7655 | "RTN","SDE CAR1",116, 0) | ||
7656 | .....F S ARIEN=$O( ^SDEC(409. 85,"GSP",S VC,PR1,SDT ,ARIEN)) Q :ARIEN="" D ONEPAT I MAXREC, COUNT'<MAX REC S SDSU B=SVC_"|"_ SDK_"|"_SD T_"|"_ARIE N Q | ||
7657 | "RTN","SDE CAR1",117, 0) | ||
7658 | ..I SVCR' ="" D Q ;GSB - WL service co nnected | ||
7659 | "RTN","SDE CAR1",118, 0) | ||
7660 | ...S SDT= $S($P(LAST SUB,"|",2) '="":$P(LA STSUB,"|", 2)-1,1:SDB EG-1) | ||
7661 | "RTN","SDE CAR1",119, 0) | ||
7662 | ...F S S DT=$O(^SDE C(409.85," GSB",SVC,$ E(SVCR),SD T)) Q:SDT= "" Q:SDT> SDEND D I MAXREC,C OUNT'<MAXR EC Q | ||
7663 | "RTN","SDE CAR1",120, 0) | ||
7664 | ....S ARI EN=$S($P(L ASTSUB,"|" ,3)'="":$P (LASTSUB," |",3),1:0) | ||
7665 | "RTN","SDE CAR1",121, 0) | ||
7666 | ....F S ARIEN=$O(^ SDEC(409.8 5,"GSB",SV C,$E(SVCR) ,SDT,ARIEN )) Q:ARIEN ="" D ONE PAT I MAX REC,COUNT' <MAXREC S SDSUB=SVC_ "|"_SDT_"| "_ARIEN Q | ||
7667 | "RTN","SDE CAR1",122, 0) | ||
7668 | ..I SCVIS IT'="" D Q ;GSA - Patient Se rvice Conn ected | ||
7669 | "RTN","SDE CAR1",123, 0) | ||
7670 | ...S SDT= $S($P(LAST SUB,"|",2) '="":$P(LA STSUB,"|", 2)-1,1:SDB EG-1) | ||
7671 | "RTN","SDE CAR1",124, 0) | ||
7672 | ...F S S DT=$O(^SDE C(409.85," GSA",SVC,$ E(SCVISIT) ,SDT)) Q:S DT="" Q:S DT>SDEND D I MAXRE C,COUNT'<M AXREC Q | ||
7673 | "RTN","SDE CAR1",125, 0) | ||
7674 | ....S ARI EN=$S($P(L ASTSUB,"|" ,3)'="":$P (LASTSUB," |",3),1:0) | ||
7675 | "RTN","SDE CAR1",126, 0) | ||
7676 | ....F S ARIEN=$O(^ SDEC(409.8 5,"GSA",SV C,$E(SCVIS IT),SDT,AR IEN)) Q:AR IEN="" D ONEPAT I MAXREC,COU NT'<MAXREC S SDSUB=S VC_"|"_SDT _"|"_ARIEN Q | ||
7677 | "RTN","SDE CAR1",127, 0) | ||
7678 | ..S SDT=$ S($P(LASTS UB,"|",2)' ="":$P(LAS TSUB,"|",2 )-1,1:SDBE G-1) ;GS | ||
7679 | "RTN","SDE CAR1",128, 0) | ||
7680 | ..F S SD T=$O(^SDEC (409.85,"G S",SVC,SDT )) Q:SDT=" " Q:SDT>S DEND D I MAXREC,CO UNT'<MAXRE C Q | ||
7681 | "RTN","SDE CAR1",129, 0) | ||
7682 | ...S ARIE N=$S($P(LA STSUB,"|", 3)'="":$P( LASTSUB,"| ",3),1:0) | ||
7683 | "RTN","SDE CAR1",130, 0) | ||
7684 | ...F S A RIEN=$O(^S DEC(409.85 ,"GS",SVC, SDT,ARIEN) ) Q:ARIEN= "" D I M AXREC,COUN T'<MAXREC S SDSUB=SD I_"|"_SDT_ "|"_ARIEN Q | ||
7685 | "RTN","SDE CAR1",131, 0) | ||
7686 | ....D ONE PAT | ||
7687 | "RTN","SDE CAR1",132, 0) | ||
7688 | ; | ||
7689 | "RTN","SDE CAR1",133, 0) | ||
7690 | ;all by d ate range | ||
7691 | "RTN","SDE CAR1",134, 0) | ||
7692 | I 'DFN D | ||
7693 | "RTN","SDE CAR1",135, 0) | ||
7694 | .I 'SDTOP D | ||
7695 | "RTN","SDE CAR1",136, 0) | ||
7696 | ..S SDJ=$ S($P(LASTS UB,"|",1)' ="":$P(LAS TSUB,"|",1 )-1,1:SDBE G-1) | ||
7697 | "RTN","SDE CAR1",137, 0) | ||
7698 | ..F S SD J=$O(^SDEC (409.85,"E ","O",SDJ) ) Q:SDJ'>0 Q:SDJ>SD END D I MAXREC,COU NT'<MAXREC Q | ||
7699 | "RTN","SDE CAR1",138, 0) | ||
7700 | ...S ARIE N=$S($P(LA STSUB,"|", 2)'="":$P( LASTSUB,"| ",2),1:0) | ||
7701 | "RTN","SDE CAR1",139, 0) | ||
7702 | ...F S A RIEN=$O(^S DEC(409.85 ,"E","O",S DJ,ARIEN)) Q:ARIEN'> 0 D I MA XREC,COUNT '<MAXREC S SDSUB=SDJ _"|"_ARIEN Q | ||
7703 | "RTN","SDE CAR1",140, 0) | ||
7704 | ....S SDS UB="" | ||
7705 | "RTN","SDE CAR1",141, 0) | ||
7706 | ....D ONE PAT | ||
7707 | "RTN","SDE CAR1",142, 0) | ||
7708 | .I +SDTOP D | ||
7709 | "RTN","SDE CAR1",143, 0) | ||
7710 | ..S SDJ=$ S($P(LASTS UB,"|",1)' ="":$P(LAS TSUB,"|",1 )+1,1:SDEN D+1) | ||
7711 | "RTN","SDE CAR1",144, 0) | ||
7712 | ..F S SD J=$O(^SDEC (409.85,"E ","O",SDJ) ,-1) Q:SDJ '>0 Q:SDJ <SDBEG D I MAXREC, COUNT'<MAX REC Q | ||
7713 | "RTN","SDE CAR1",145, 0) | ||
7714 | ...S ARIE N=$S($P(LA STSUB,"|", 2)'="":$P( LASTSUB,"| ",2),1:999 999999) | ||
7715 | "RTN","SDE CAR1",146, 0) | ||
7716 | ...F S A RIEN=$O(^S DEC(409.85 ,"E","O",S DJ,ARIEN), -1) Q:ARIE N'>0 D I MAXREC,CO UNT'<MAXRE C S SDSUB= SDJ_"|"_AR IEN Q | ||
7717 | "RTN","SDE CAR1",147, 0) | ||
7718 | ....S SDS UB="" | ||
7719 | "RTN","SDE CAR1",148, 0) | ||
7720 | ....D ONE PAT | ||
7721 | "RTN","SDE CAR1",149, 0) | ||
7722 | ARX S SDTM P=@RET@(CO UNT) S SDT MP=$P(SDTM P,$C(30),1 ) | ||
7723 | "RTN","SDE CAR1",150, 0) | ||
7724 | S:$G(SDSU B)'="" $P( SDTMP,U,56 )=SDSUB | ||
7725 | "RTN","SDE CAR1",151, 0) | ||
7726 | S @RET@(C OUNT)=SDTM P_$C(30,31 ) | ||
7727 | "RTN","SDE CAR1",152, 0) | ||
7728 | Q | ||
7729 | "RTN","SDE CAR1",153, 0) | ||
7730 | HDR ;Send back the h eader | ||
7731 | "RTN","SDE CAR1",154, 0) | ||
7732 | ; 1 2 | ||
7733 | "RTN","SDE CAR1",155, 0) | ||
7734 | S SDRTMP= "T00030DFN ^T00030NAM E" | ||
7735 | "RTN","SDE CAR1",156, 0) | ||
7736 | ; 3 4 5 6 7 8 | ||
7737 | "RTN","SDE CAR1",157, 0) | ||
7738 | S SDRTMP= SDRTMP_"^T 00030HRN^T 00030DOB^T 00030SSN^T 00030GENDE R^I00010IE N^D00030OR IGDT" | ||
7739 | "RTN","SDE CAR1",158, 0) | ||
7740 | ; 9 1 0 11 12 13 | ||
7741 | "RTN","SDE CAR1",159, 0) | ||
7742 | S SDRTMP= SDRTMP_"^T 00030INSTI EN^T00030I NSTNAME^T0 0030TYPE^T 00030CLINI EN^T00030C LINNAME" | ||
7743 | "RTN","SDE CAR1",160, 0) | ||
7744 | ; 14 1 5 16 17 18 19 | ||
7745 | "RTN","SDE CAR1",161, 0) | ||
7746 | S SDRTMP= SDRTMP_"^T 00030USERI EN^T00030U SERNAME^T0 0030PRIO^T 00030REQBY ^T00030PRO VIEN^T0003 0PROVNAME" | ||
7747 | "RTN","SDE CAR1",162, 0) | ||
7748 | ; 20 21 2 2 | ||
7749 | "RTN","SDE CAR1",163, 0) | ||
7750 | S SDRTMP= SDRTMP_"^T 00030DAPTD T^T00250CO MM^T00030E NROLLMENT_ PRIORITY" | ||
7751 | "RTN","SDE CAR1",164, 0) | ||
7752 | ; 23 24 25 | ||
7753 | "RTN","SDE CAR1",165, 0) | ||
7754 | S SDRTMP= SDRTMP_"^T 00010MULTI PLE APPOIN TMENT RTC^ T00010MULT APPT RTC INTERVAL^T 00010MULT APPT NUMBE R" | ||
7755 | "RTN","SDE CAR1",166, 0) | ||
7756 | ; 26 27 28 29 30 | ||
7757 | "RTN","SDE CAR1",167, 0) | ||
7758 | S SDRTMP= SDRTMP_"^T 00030PRIGR P^T00030EL IGIEN^T000 30ELIGNAME ^T00030SVC CONN^T0003 0SVCCONNP" | ||
7759 | "RTN","SDE CAR1",168, 0) | ||
7760 | ; 31 3 2 33 3 4 35 36 | ||
7761 | "RTN","SDE CAR1",169, 0) | ||
7762 | S SDRTMP= SDRTMP_"^T 00030TYPEI EN^T00030T YPENAME^T0 0100PCONTA CT^T00030A RDISPD^T00 030ARDISPU ^T00030ARD ISPUN" | ||
7763 | "RTN","SDE CAR1",170, 0) | ||
7764 | ; 37 38 39 40 41 | ||
7765 | "RTN","SDE CAR1",171, 0) | ||
7766 | S SDRTMP= SDRTMP_"^T 00030WLSVC CON^T00030 PADDRES1^T 00030PADDR ES2^T00030 PADDRES3^T 00030PCITY " | ||
7767 | "RTN","SDE CAR1",172, 0) | ||
7768 | ; 42 43 44 45 46 47 | ||
7769 | "RTN","SDE CAR1",173, 0) | ||
7770 | S SDRTMP= SDRTMP_"^T 00030PSTAT E^T00030PC OUNTRY^T00 030PZIP4^T 00050GAF^T 00030DATE^ T00030MTRC DATES" | ||
7771 | "RTN","SDE CAR1",174, 0) | ||
7772 | ; 48 49 50 51 52 53 | ||
7773 | "RTN","SDE CAR1",175, 0) | ||
7774 | S SDRTMP= SDRTMP_"^T 00100SENSI TIVE^T0003 0NU49^T000 30NU50^T00 030NU51^T0 0030NU52^T 00030NU53" | ||
7775 | "RTN","SDE CAR1",176, 0) | ||
7776 | ; 54 55 56 57 58 59 | ||
7777 | "RTN","SDE CAR1",177, 0) | ||
7778 | S SDRTMP= SDRTMP_"^T 00030NU54^ T00030NU55 ^T00030LAS TSUB^T0003 0STOPIEN^T 00030STOPN AME^T00250 APPT_SCHED _DATE" | ||
7779 | "RTN","SDE CAR1",178, 0) | ||
7780 | S SDRTMP= SDRTMP_"^T 00030MRTCC OUNT^T0003 0PTPHONE^T 00030APPTY PE^T00030E ESTAT^T000 30PRHBLOC^ T00030APPT PTRS" | ||
7781 | "RTN","SDE CAR1",179, 0) | ||
7782 | S SDRTMP= SDRTMP_"^T 00250CHILD REN^T00030 SDPARENT" | ||
7783 | "RTN","SDE CAR1",180, 0) | ||
7784 | S SDRTMP= SDRTMP_"^T 00030HRN^T 00030BADAD D^T00030OP HONE^T0003 0NOK^T0003 0^T00030KN AME^T00030 KREL^T0003 0KPHONE" | ||
7785 | "RTN","SDE CAR1",181, 0) | ||
7786 | S SDRTMP= SDRTMP_"^T 00030KSTRE ET^T00030K STREET2^T0 0030KSTREE T3^T00030K CITY^T0003 0KSTATE^T0 0030KZIP^T 00030" | ||
7787 | "RTN","SDE CAR1",182, 0) | ||
7788 | S SDRTMP= SDRTMP_"^T 00030NOK2^ T00030K2NA ME^T00030K 2REL^T0003 0K2PHONE" | ||
7789 | "RTN","SDE CAR1",183, 0) | ||
7790 | S SDRTMP= SDRTMP_"^T 00030K2STR EET^T00030 K2STREET2^ T00030K2ST REET3^T000 30K2CITY^T 00030K2STA TE^T00030K 2ZIP" | ||
7791 | "RTN","SDE CAR1",184, 0) | ||
7792 | S SDRTMP= SDRTMP_"^T 00030PCOUN TY^T00030P ETH^T00030 PRACE^T000 30PMARITAL ^T00030PRE LIGION^T00 030PTACTIV E" | ||
7793 | "RTN","SDE CAR1",185, 0) | ||
7794 | S SDRTMP= SDRTMP_"^T 00030PTADD RESS1^T000 30PTADDRES S2^T00030P TADDRESS3^ T00030PTCI TY^T00030P TSTATE^T00 030PTZIP^T 00030PTZIP +4" | ||
7795 | "RTN","SDE CAR1",186, 0) | ||
7796 | S SDRTMP= SDRTMP_"^T 00030PTCOU NTRY^T0003 0PTCOUNTY^ T00030PTMP PHONE^T000 30PTSTART^ T00030PTEN D^T00030PC ELL^T00030 PPAGER^T00 030PEMAIL" | ||
7797 | "RTN","SDE CAR1",187, 0) | ||
7798 | S SDRTMP= SDRTMP_"^T 00030PF_FF F^T00030PF _VCD^T0003 0PFNATIONA L^T00030PF LOCAL^T000 30SUBGRP^T 00030CAT8G ^T01000SIM ILAR" | ||
7799 | "RTN","SDE CAR1",188, 0) | ||
7800 | S SDRTMP= SDRTMP_"^T 00032VAOS_ GUID" ; w tc patch 6 86 3/23/18 added for VAOS requ ests | ||
7801 | "RTN","SDE CAR1",189, 0) | ||
7802 | S @RET@(C OUNT)=SDRT MP_$C(30) | ||
7803 | "RTN","SDE CAR1",190, 0) | ||
7804 | Q | ||
7805 | "RTN","SDE CAR1",191, 0) | ||
7806 | ; | ||
7807 | "RTN","SDE CAR1",192, 0) | ||
7808 | ONEPAT ; P rocess one patient | ||
7809 | "RTN","SDE CAR1",193, 0) | ||
7810 | N APPTYPE ,ARMRTC,CH ILDREN,SDI ,PRHBLOC | ||
7811 | "RTN","SDE CAR1",194, 0) | ||
7812 | K ARASD,A RDATA,ARSD OA,ARDAM,A RCLERK,ARC LERKN | ||
7813 | "RTN","SDE CAR1",195, 0) | ||
7814 | S FRULES= $G(FRULES) | ||
7815 | "RTN","SDE CAR1",196, 0) | ||
7816 | D GETS^DI Q(FNUM,ARI EN,"**","I E","ARDATA ","ARMSG") | ||
7817 | "RTN","SDE CAR1",197, 0) | ||
7818 | Q:'$D(ARD ATA) | ||
7819 | "RTN","SDE CAR1",198, 0) | ||
7820 | S ARSTAT= ARDATA(FNU M,ARIEN_", ",23,"I") | ||
7821 | "RTN","SDE CAR1",199, 0) | ||
7822 | I FRULES I '+$G(CLO SED) Q:ARS TAT="C" ; Ignore CL OSED recor ds; CLOSED setup and used from SDEC54 on ly | ||
7823 | "RTN","SDE CAR1",200, 0) | ||
7824 | S ARORIGD T=ARDATA(F NUM,ARIEN_ ",",1,"I") | ||
7825 | "RTN","SDE CAR1",201, 0) | ||
7826 | I FRULES I ($P(AROR IGDT,".",1 )<SDBEG)!( $P(ARORIGD T,".",1)>S DEND) Q | ||
7827 | "RTN","SDE CAR1",202, 0) | ||
7828 | S DFN=ARD ATA(FNUM,A RIEN_",",. 01,"I") | ||
7829 | "RTN","SDE CAR1",203, 0) | ||
7830 | Q:DFN="" | ||
7831 | "RTN","SDE CAR1",204, 0) | ||
7832 | S SDPS=AR DATA(FNUM, ARIEN_",", .02,"E") | ||
7833 | "RTN","SDE CAR1",205, 0) | ||
7834 | S SDCL=AR DATA(FNUM, ARIEN_",", 8,"I") | ||
7835 | "RTN","SDE CAR1",206, 0) | ||
7836 | Q:(SDCL'= "")&($$GET 1^DIQ(44,S DCL_",",50 .01,"I")=1 ) ;check OOS? in fi le 44 | ||
7837 | "RTN","SDE CAR1",207, 0) | ||
7838 | S PRHBLOC =$S($$GET1 ^DIQ(44,SD CL_",",250 0,"I")="Y" :1,1:0) | ||
7839 | "RTN","SDE CAR1",208, 0) | ||
7840 | ;collect demographi cs | ||
7841 | "RTN","SDE CAR1",209, 0) | ||
7842 | D PDEMO^S DECU3(.SDD EMO,DFN) ;alb/sat 6 58 PDEMO m oved to SD ECU3 | ||
7843 | "RTN","SDE CAR1",210, 0) | ||
7844 | S NAME=SD DEMO("NAME ") | ||
7845 | "RTN","SDE CAR1",211, 0) | ||
7846 | S DOB=SDD EMO("DOB") | ||
7847 | "RTN","SDE CAR1",212, 0) | ||
7848 | S GENDER= SDDEMO("GE NDER") | ||
7849 | "RTN","SDE CAR1",213, 0) | ||
7850 | S HRN=SDD EMO("HRN") | ||
7851 | "RTN","SDE CAR1",214, 0) | ||
7852 | S SSN=SDD EMO("SSN") | ||
7853 | "RTN","SDE CAR1",215, 0) | ||
7854 | S INSTIEN =SDDEMO("I NSTIEN") | ||
7855 | "RTN","SDE CAR1",216, 0) | ||
7856 | S INSTNAM E=SDDEMO(" INSTNAME") | ||
7857 | "RTN","SDE CAR1",217, 0) | ||
7858 | S PRIGRP= SDDEMO("PR IGRP") | ||
7859 | "RTN","SDE CAR1",218, 0) | ||
7860 | S ELIGIEN =SDDEMO("E LIGIEN") | ||
7861 | "RTN","SDE CAR1",219, 0) | ||
7862 | S ELIGNAM E=SDDEMO(" ELIGNAME") | ||
7863 | "RTN","SDE CAR1",220, 0) | ||
7864 | S SVCCONN =SDDEMO("S VCCONN") | ||
7865 | "RTN","SDE CAR1",221, 0) | ||
7866 | S SVCCONN P=SDDEMO(" SVCCONNP") | ||
7867 | "RTN","SDE CAR1",222, 0) | ||
7868 | S TYPEIEN =SDDEMO("T YPEIEN") | ||
7869 | "RTN","SDE CAR1",223, 0) | ||
7870 | S TYPENAM E=SDDEMO(" TYPENAME") | ||
7871 | "RTN","SDE CAR1",224, 0) | ||
7872 | S PADDRES 1=SDDEMO(" PADDRES1") | ||
7873 | "RTN","SDE CAR1",225, 0) | ||
7874 | S PADDRES 2=SDDEMO(" PADDRES2") | ||
7875 | "RTN","SDE CAR1",226, 0) | ||
7876 | S PADDRES 3=SDDEMO(" PADDRES3") | ||
7877 | "RTN","SDE CAR1",227, 0) | ||
7878 | S PCITY=S DDEMO("PCI TY") | ||
7879 | "RTN","SDE CAR1",228, 0) | ||
7880 | S PSTATE= SDDEMO("PS TATE") | ||
7881 | "RTN","SDE CAR1",229, 0) | ||
7882 | S PCOUNTR Y=SDDEMO(" PCOUNTRY") | ||
7883 | "RTN","SDE CAR1",230, 0) | ||
7884 | S PZIP4=S DDEMO("PZI P+4") | ||
7885 | "RTN","SDE CAR1",231, 0) | ||
7886 | ; | ||
7887 | "RTN","SDE CAR1",232, 0) | ||
7888 | S GAF=$$G AF^SDECU2( DFN) | ||
7889 | "RTN","SDE CAR1",233, 0) | ||
7890 | ; | ||
7891 | "RTN","SDE CAR1",234, 0) | ||
7892 | S PTPHONE =SDDEMO("H PHONE") ;ARDATA(F NUM,ARIEN_ ",",.05,"I ") ;msc/s at | ||
7893 | "RTN","SDE CAR1",235, 0) | ||
7894 | S ARINST= ARDATA(FNU M,ARIEN_", ",2,"I") | ||
7895 | "RTN","SDE CAR1",236, 0) | ||
7896 | S ARINSTN M=ARDATA(F NUM,ARIEN_ ",",2,"E") | ||
7897 | "RTN","SDE CAR1",237, 0) | ||
7898 | S ARTYPE= ARDATA(FNU M,ARIEN_", ",4,"I") | ||
7899 | "RTN","SDE CAR1",238, 0) | ||
7900 | S VAOSGUI D=ARDATA(F NUM,ARIEN_ ",",5,"I") ; wtc pa tch 686 3/ 23/18 adde d for VAOS requests | ||
7901 | "RTN","SDE CAR1",239, 0) | ||
7902 | S ARCLIEN L=ARDATA(F NUM,ARIEN_ ",",8,"I") | ||
7903 | "RTN","SDE CAR1",240, 0) | ||
7904 | S ARSTOP= ARDATA(FNU M,ARIEN_", ",8.5,"I") | ||
7905 | "RTN","SDE CAR1",241, 0) | ||
7906 | S ARSTOPN =ARDATA(FN UM,ARIEN_" ,",8.5,"E" ) | ||
7907 | "RTN","SDE CAR1",242, 0) | ||
7908 | ;S ARCLIE N=$P($G(^S DWL(409.32 ,+ARCLIENL ,0)),U,1) | ||
7909 | "RTN","SDE CAR1",243, 0) | ||
7910 | S ARCLIEN =ARCLIENL | ||
7911 | "RTN","SDE CAR1",244, 0) | ||
7912 | S ARCLNAM E=ARDATA(F NUM,ARIEN_ ",",8,"E") | ||
7913 | "RTN","SDE CAR1",245, 0) | ||
7914 | S APPTYPE =ARDATA(FN UM,ARIEN_" ,",8.7,"I" ) | ||
7915 | "RTN","SDE CAR1",246, 0) | ||
7916 | S ARUSER= ARDATA(FNU M,ARIEN_", ",9,"I") | ||
7917 | "RTN","SDE CAR1",247, 0) | ||
7918 | S ARUSRNM =ARDATA(FN UM,ARIEN_" ,",9,"E") | ||
7919 | "RTN","SDE CAR1",248, 0) | ||
7920 | S AREDT=$ G(ARDATA(F NUM,ARIEN_ ",",9.5,"E ")) ;53 | ||
7921 | "RTN","SDE CAR1",249, 0) | ||
7922 | S ARPRIO= ARDATA(FNU M,ARIEN_", ",10,"I") | ||
7923 | "RTN","SDE CAR1",250, 0) | ||
7924 | S ARENPRI =ARDATA(FN UM,ARIEN_" ,",10.5,"E ") ;msc/ sat | ||
7925 | "RTN","SDE CAR1",251, 0) | ||
7926 | S ARREQBY =ARDATA(FN UM,ARIEN_" ,",11,"I") | ||
7927 | "RTN","SDE CAR1",252, 0) | ||
7928 | S ARPROV= ARDATA(FNU M,ARIEN_", ",12,"I") | ||
7929 | "RTN","SDE CAR1",253, 0) | ||
7930 | S ARPROVN M=ARDATA(F NUM,ARIEN_ ",",12,"E" ) | ||
7931 | "RTN","SDE CAR1",254, 0) | ||
7932 | S ARSDOA= ARDATA(FNU M,ARIEN_", ",13,"E") ;sche duled date of appt | ||
7933 | "RTN","SDE CAR1",255, 0) | ||
7934 | S ARDAM=A RDATA(FNUM ,ARIEN_"," ,13.1,"E") ;date appt. mad e | ||
7935 | "RTN","SDE CAR1",256, 0) | ||
7936 | S ARCLERK =ARDATA(FN UM,ARIEN_" ,",13.7,"I ") ;appt clerk ien | ||
7937 | "RTN","SDE CAR1",257, 0) | ||
7938 | S ARCLERK N=ARDATA(F NUM,ARIEN_ ",",13.7," E") ;app t clerk na me | ||
7939 | "RTN","SDE CAR1",258, 0) | ||
7940 | S ARASD=" " | ||
7941 | "RTN","SDE CAR1",259, 0) | ||
7942 | S:ARSDOA' ="" $P(ARA SD,"~~",1) =ARSDOA | ||
7943 | "RTN","SDE CAR1",260, 0) | ||
7944 | S:ARCLERK '="" $P(AR ASD,"~~",1 2)=ARCLERK | ||
7945 | "RTN","SDE CAR1",261, 0) | ||
7946 | S:ARCLERK N'="" $P(A RASD,"~~", 13)=ARCLER KN | ||
7947 | "RTN","SDE CAR1",262, 0) | ||
7948 | S:ARDAM'= "" $P(ARAS D,"~~",17) =ARDAM | ||
7949 | "RTN","SDE CAR1",263, 0) | ||
7950 | S ARSVCCO N=ARDATA(F NUM,ARIEN_ ",",15,"E" ) | ||
7951 | "RTN","SDE CAR1",264, 0) | ||
7952 | S ARDAPTD T=ARDATA(F NUM,ARIEN_ ",",22,"I" ) | ||
7953 | "RTN","SDE CAR1",265, 0) | ||
7954 | S ARCOMM= ARDATA(FNU M,ARIEN_", ",25,"I") | ||
7955 | "RTN","SDE CAR1",266, 0) | ||
7956 | ;S AREEST AT=ARDATA( FNUM,ARIEN _",",27,"I ") | ||
7957 | "RTN","SDE CAR1",267, 0) | ||
7958 | S ARMAR=$ $GET1^DIQ( 409.85,ARI EN_",",41) | ||
7959 | "RTN","SDE CAR1",268, 0) | ||
7960 | S ARMAI=$ $GET1^DIQ( 409.85,ARI EN_",",42) | ||
7961 | "RTN","SDE CAR1",269, 0) | ||
7962 | S ARMAN=$ $GET1^DIQ( 409.85,ARI EN_",",43) | ||
7963 | "RTN","SDE CAR1",270, 0) | ||
7964 | S ARPC=$$ WLPC^SDECA R1A(.ARDAT A,ARIEN) | ||
7965 | "RTN","SDE CAR1",271, 0) | ||
7966 | S ARDISPD =ARDATA(FN UM,ARIEN_" ,",19,"E") | ||
7967 | "RTN","SDE CAR1",272, 0) | ||
7968 | S ARDISPU =ARDATA(FN UM,ARIEN_" ,",20,"I") | ||
7969 | "RTN","SDE CAR1",273, 0) | ||
7970 | S ARDISPU N=ARDATA(F NUM,ARIEN_ ",",20,"E" ) | ||
7971 | "RTN","SDE CAR1",274, 0) | ||
7972 | S APPTPTR S=$$GETAPP TS^SDECAR1 A(ARIEN) | ||
7973 | "RTN","SDE CAR1",275, 0) | ||
7974 | S CHILDRE N=$$CHILDR EN^SDECAR1 A(ARIEN) | ||
7975 | "RTN","SDE CAR1",276, 0) | ||
7976 | S ARMRTC= $$MRTC^SDE CAR(ARIEN) | ||
7977 | "RTN","SDE CAR1",277, 0) | ||
7978 | S SDPAREN T=ARDATA(F NUM,ARIEN_ ",",43.8," I") | ||
7979 | "RTN","SDE CAR1",278, 0) | ||
7980 | S SDSENS= $$PTSEC^SD ECUTL(DFN) | ||
7981 | "RTN","SDE CAR1",279, 0) | ||
7982 | S (SDI,SD MTRC)="" F S SDI=$O (ARDATA(40 9.857,SDI) ) Q:SDI="" S SDMTRC =$S(SDMTRC '="":SDMTR C_"|",1:"" )_ARDATA(4 09.857,SDI ,.01,"E") | ||
7983 | "RTN","SDE CAR1",280, 0) | ||
7984 | S COUNT=C OUNT+1 | ||
7985 | "RTN","SDE CAR1",281, 0) | ||
7986 | ; 1 2 3 4 5 6 7 8 9 10 11 | ||
7987 | "RTN","SDE CAR1",282, 0) | ||
7988 | S STR=DFN _U_""_U_"" _U_""_U_"" _U_""_U_AR IEN_U_AROR IGDT_U_ARI NST_U_ARIN STNM_U_ART YPE | ||
7989 | "RTN","SDE CAR1",283, 0) | ||
7990 | ; 12 13 14 15 16 17 18 | ||
7991 | "RTN","SDE CAR1",284, 0) | ||
7992 | S STR=STR _U_ARCLIEN _U_ARCLNAM E_U_ARUSER _U_ARUSRNM _U_ARPRIO_ U_ARREQBY_ U_ARPROV | ||
7993 | "RTN","SDE CAR1",285, 0) | ||
7994 | ; 19 20 21 22 23 24 25 | ||
7995 | "RTN","SDE CAR1",286, 0) | ||
7996 | S STR=STR _U_ARPROVN M_U_ARDAPT DT_U_ARCOM M_U_ARENPR I_U_ARMAR_ U_ARMAI_U_ ARMAN | ||
7997 | "RTN","SDE CAR1",287, 0) | ||
7998 | ; 26 27 28 29 30 31 32 33 | ||
7999 | "RTN","SDE CAR1",288, 0) | ||
8000 | S STR=STR _U_PRIGRP_ U_ELIGIEN_ U_ELIGNAME _U_SVCCONN _U_SVCCONN P_U_TYPEIE N_U_TYPENA ME_U_ARPC | ||
8001 | "RTN","SDE CAR1",289, 0) | ||
8002 | ; 34 35 36 37 38 39 40 41 42 | ||
8003 | "RTN","SDE CAR1",290, 0) | ||
8004 | S STR=STR _U_ARDISPD _U_ARDISPU _U_ARDISPU N_U_ARSVCC ON_U_""_U_ ""_U_""_U_ ""_U_"" | ||
8005 | "RTN","SDE CAR1",291, 0) | ||
8006 | ; 43 44 45 4 6 47 48 57 (sav e 56 for S DSUB) | ||
8007 | "RTN","SDE CAR1",292, 0) | ||
8008 | S STR=STR _U_""_U_"" _U_GAF_U_A REDT_U_SDM TRC_U_SDSE NS_U_U_U_U _U_U_U_U_U _ARSTOP_U_ ARSTOPN_U_ ARASD | ||
8009 | "RTN","SDE CAR1",293, 0) | ||
8010 | S STR=STR _U_ARMRTC_ U_PTPHONE_ U_APPTYPE_ U_SDPS_U_P RHBLOC_U_A PPTPTRS_U_ CHILDREN_U _SDPARENT | ||
8011 | "RTN","SDE CAR1",294, 0) | ||
8012 | D ARDEMO^ SDECAR1A(. STR,DFN) ;alb/sat 6 58 - get d emographic s | ||
8013 | "RTN","SDE CAR1",295, 0) | ||
8014 | S $P(STR, "^",121)=V AOSGUID ; wtc patch 686 3/23/ 18 added f or VAOS re quests. R evised to store in p iece 121. | ||
8015 | "RTN","SDE CAR1",296, 0) | ||
8016 | S @RET@(C OUNT)=STR_ $C(30) | ||
8017 | "RTN","SDE CAR1",297, 0) | ||
8018 | Q | ||
8019 | "RTN","SDE CAR1",298, 0) | ||
8020 | ; | ||
8021 | "RTN","SDE CAR1",299, 0) | ||
8022 | ARGUID(RET ,GUID) ; | ||
8023 | "RTN","SDE CAR1",300, 0) | ||
8024 | ; | ||
8025 | "RTN","SDE CAR1",301, 0) | ||
8026 | ; Return SDEC Appo intment Re quest data for a VAO S Request GUID. | ||
8027 | "RTN","SDE CAR1",302, 0) | ||
8028 | ; | ||
8029 | "RTN","SDE CAR1",303, 0) | ||
8030 | ; wtc SD *5.3*686 4/19/2018 | ||
8031 | "RTN","SDE CAR1",304, 0) | ||
8032 | ; | ||
8033 | "RTN","SDE CAR1",305, 0) | ||
8034 | N FNUM,AR IEN,SDTMP, COUNT ; | ||
8035 | "RTN","SDE CAR1",306, 0) | ||
8036 | S RET="^T MP(""SDEC" ","_$J_")" ; | ||
8037 | "RTN","SDE CAR1",307, 0) | ||
8038 | K @RET ; | ||
8039 | "RTN","SDE CAR1",308, 0) | ||
8040 | S FNUM=$$ FNUM^SDECA R,COUNT=0 ; | ||
8041 | "RTN","SDE CAR1",309, 0) | ||
8042 | S ARIEN=$ O(^SDEC(40 9.85,"GUID ",GUID,0)) ; | ||
8043 | "RTN","SDE CAR1",310, 0) | ||
8044 | D HDR ; | ||
8045 | "RTN","SDE CAR1",311, 0) | ||
8046 | I ARIEN>0 D ONEPAT ; | ||
8047 | "RTN","SDE CAR1",312, 0) | ||
8048 | G ARX ; | ||
8049 | "RTN","SDE CAR1",313, 0) | ||
8050 | ; | ||
8051 | "RTN","SDE CAR2") | ||
8052 | 0^8^B19996 7808^B1919 68590 | ||
8053 | "RTN","SDE CAR2",1,0) | ||
8054 | SDECAR2 ;A LB/SAT/JSM - VISTA S CHEDULING RPCS ;10:5 7 AM 3 Ju l 2017 | ||
8055 | "RTN","SDE CAR2",2,0) | ||
8056 | ;;5.3;Sch eduling;** 627,642,65 8,671,686* *;Aug 13, 1993;Build 39 | ||
8057 | "RTN","SDE CAR2",3,0) | ||
8058 | ; | ||
8059 | "RTN","SDE CAR2",4,0) | ||
8060 | Q | ||
8061 | "RTN","SDE CAR2",5,0) | ||
8062 | ; | ||
8063 | "RTN","SDE CAR2",6,0) | ||
8064 | ARSET(RET, INP) ;Appo intment Re quest Set | ||
8065 | "RTN","SDE CAR2",7,0) | ||
8066 | ;ARSET(RE T,INP...) external parameter tag in SDE C | ||
8067 | "RTN","SDE CAR2",8,0) | ||
8068 | ; INP(1) = (integ er) Wait List IEN p oint to | ||
8069 | "RTN","SDE CAR2",9,0) | ||
8070 | ; SDEC APPT REQUE ST file 40 9.85. | ||
8071 | "RTN","SDE CAR2",10,0 ) | ||
8072 | ; If nu ll, a new entry will be added | ||
8073 | "RTN","SDE CAR2",11,0 ) | ||
8074 | ; INP(2) = (text) DFN P ointer to the PATIEN T file 2 | ||
8075 | "RTN","SDE CAR2",12,0 ) | ||
8076 | ; INP(3) = (date) Origi nating Dat e/time in external d ate form | ||
8077 | "RTN","SDE CAR2",13,0 ) | ||
8078 | ; INP(4) = (text) Insti tution nam e NAME fie ld from th e INSTITUT ION file | ||
8079 | "RTN","SDE CAR2",14,0 ) | ||
8080 | ; INP(5) = (text) Reque st Type | ||
8081 | "RTN","SDE CAR2",15,0 ) | ||
8082 | ; INP(6) = (text) REQ S pecific Cl inic name - NAME fie ld in file 44 | ||
8083 | "RTN","SDE CAR2",16,0 ) | ||
8084 | ; INP(7) = (text) Origi nating Use r name - NAME field in NEW PE RSON file 200 | ||
8085 | "RTN","SDE CAR2",17,0 ) | ||
8086 | ; INP(8) = (text) Prior ity - 'ASA P' or 'FUT URE' | ||
8087 | "RTN","SDE CAR2",18,0 ) | ||
8088 | ; INP(9) = (text) Reque st By - 'P ROVIDER' o r 'PATIENT ' | ||
8089 | "RTN","SDE CAR2",19,0 ) | ||
8090 | ; INP(10 ) = (text) Provi der name - NAME fie ld in NEW PERSON fil e200 | ||
8091 | "RTN","SDE CAR2",20,0 ) | ||
8092 | ; INP(11 ) = (date) Desir ed Date of appointme nt in exte rnal forma t. | ||
8093 | "RTN","SDE CAR2",21,0 ) | ||
8094 | ; INP(12 ) = (text) comme nt must be 1-60 char acters | ||
8095 | "RTN","SDE CAR2",22,0 ) | ||
8096 | ; INP(13 ) = (text) ENROL LMENT PRIO RITY - Val id Values are: | ||
8097 | "RTN","SDE CAR2",23,0 ) | ||
8098 | ; GRO UP 1 | ||
8099 | "RTN","SDE CAR2",24,0 ) | ||
8100 | ; GRO UP 2 | ||
8101 | "RTN","SDE CAR2",25,0 ) | ||
8102 | ; GRO UP 3 | ||
8103 | "RTN","SDE CAR2",26,0 ) | ||
8104 | ; GRO UP 4 | ||
8105 | "RTN","SDE CAR2",27,0 ) | ||
8106 | ; GRO UP 5 | ||
8107 | "RTN","SDE CAR2",28,0 ) | ||
8108 | ; GRO UP 6 | ||
8109 | "RTN","SDE CAR2",29,0 ) | ||
8110 | ; GRO UP 7 | ||
8111 | "RTN","SDE CAR2",30,0 ) | ||
8112 | ; GRO UP 8 | ||
8113 | "RTN","SDE CAR2",31,0 ) | ||
8114 | ; INP(14 ) = (text) MULTI PLE APPOIN TMENT RTC NO; Y ES | ||
8115 | "RTN","SDE CAR2",32,0 ) | ||
8116 | ; INP(15 ) = (integ er) MULT APPT RTC I NTERVAL in teger betw een 1-365 | ||
8117 | "RTN","SDE CAR2",33,0 ) | ||
8118 | ; INP(16 ) = (integ er) MULT APPT NUMBE R integer between 1- 100 | ||
8119 | "RTN","SDE CAR2",34,0 ) | ||
8120 | ; INP(17 ) = Patien t Contacts separated by :: | ||
8121 | "RTN","SDE CAR2",35,0 ) | ||
8122 | ; Each : : piece ha s the foll owing ~~ p ieces: | ||
8123 | "RTN","SDE CAR2",36,0 ) | ||
8124 | ; 1) = ( date) D ATE ENTERE D external date/time | ||
8125 | "RTN","SDE CAR2",37,0 ) | ||
8126 | ; 2) = ( text) P C ENTERED BY USER ID or NAME - Pointer t oNEW PERSO N file or NAME | ||
8127 | "RTN","SDE CAR2",38,0 ) | ||
8128 | ; 4) = ( optional) ACTION - v alid value s are: | ||
8129 | "RTN","SDE CAR2",39,0 ) | ||
8130 | ; CALLED | ||
8131 | "RTN","SDE CAR2",40,0 ) | ||
8132 | ; MESSAGE L EFT | ||
8133 | "RTN","SDE CAR2",41,0 ) | ||
8134 | ; LETTER | ||
8135 | "RTN","SDE CAR2",42,0 ) | ||
8136 | ; 5) = ( optional) PATIENT PH ONE Free-T ext 4-20 c haracters | ||
8137 | "RTN","SDE CAR2",43,0 ) | ||
8138 | ; 6) = N OT USED (o ptional) C omment 1-1 60 charact ers | ||
8139 | "RTN","SDE CAR2",44,0 ) | ||
8140 | ; INP(18 ) = (optio nal) SERVI CE CONNECT ED PRIORIT Y valid va lues are N O YES | ||
8141 | "RTN","SDE CAR2",45,0 ) | ||
8142 | ; INP(19 ) = (optio nal) SERVI CE CONNECT ED PERCENT AGE = nume ric 0-100 | ||
8143 | "RTN","SDE CAR2",46,0 ) | ||
8144 | ; INP(20 ) = (optio nal) MRTC calculated preferred dates sep arated by pipe |: | ||
8145 | "RTN","SDE CAR2",47,0 ) | ||
8146 | ; Each date can b e in exter nal format with no t ime. | ||
8147 | "RTN","SDE CAR2",48,0 ) | ||
8148 | ; INP(21 ) = (optio nal) CLINI C STOP poi nter to CL INIC STOP file 40.7 | ||
8149 | "RTN","SDE CAR2",49,0 ) | ||
8150 | ; used to populat e the REQ SERVICE/SP ECIALTY fi eld in 409 .85 | ||
8151 | "RTN","SDE CAR2",50,0 ) | ||
8152 | ; INP(22 ) = (optio nal) Appoi ntment Typ e ID point er to APPO INTMENT TY PE file 40 9.1 | ||
8153 | "RTN","SDE CAR2",51,0 ) | ||
8154 | ; INP(23 ) = (optio nal) Patie nt Status | ||
8155 | "RTN","SDE CAR2",52,0 ) | ||
8156 | ; N = NEW | ||
8157 | "RTN","SDE CAR2",53,0 ) | ||
8158 | ; E = ESTABLIS HED | ||
8159 | "RTN","SDE CAR2",54,0 ) | ||
8160 | ; INP(24 ) = (optio nal) MULT APPTS MADE | ||
8161 | "RTN","SDE CAR2",55,0 ) | ||
8162 | ; list of child poin ters to SD EC APPOINT MENT and/o rSDEC APPT REQUEST f iles separ ated by pi pe | ||
8163 | "RTN","SDE CAR2",56,0 ) | ||
8164 | ; each pip e piece co ntains the following ~ pieces: | ||
8165 | "RTN","SDE CAR2",57,0 ) | ||
8166 | ; 1. Appointme nt Id poin ter to SDE C APPOINTM ENT file 4 09.84 | ||
8167 | "RTN","SDE CAR2",58,0 ) | ||
8168 | ; 2. Request I d pointer to SDEC AP PT REQUEST file 409. 85 | ||
8169 | "RTN","SDE CAR2",59,0 ) | ||
8170 | ; INP(25 ) = (optio nal) PAREN T REQUEST pointer to SDEC APPT REQUEST f ile 409.85 | ||
8171 | "RTN","SDE CAR2",60,0 ) | ||
8172 | ; INP(26 ) = (optio nal) NLT ( No later t han) [CPRS RTC REQUI REMENT] | ||
8173 | "RTN","SDE CAR2",61,0 ) | ||
8174 | ; INP(27 ) = (optio nal) PRERE Q (Prerequ isites) [C PRS RTC RE QUIREMENT] | ||
8175 | "RTN","SDE CAR2",62,0 ) | ||
8176 | ; INP(28 ) = (optio nal) ORDER IEN [CPRS RTC REQUI REMENT] | ||
8177 | "RTN","SDE CAR2",63,0 ) | ||
8178 | ; INP(29 ) = (optio nal) VAOS GUID <== wtc patch 686 3/21/1 8 added fo r VAOS req uests | ||
8179 | "RTN","SDE CAR2",64,0 ) | ||
8180 | N X,Y,%DT | ||
8181 | "RTN","SDE CAR2",65,0 ) | ||
8182 | N DFN,MI, ARAPTYP,AR IEN,ARORIG DT,ARORIGD TI,ARINST, ARINSTI,AR TYPE,ARTEA M,ARPOS,AR SRVSP,ARCL IN | ||
8183 | "RTN","SDE CAR2",66,0 ) | ||
8184 | N ARUSER, ARPRIO,ARR EQBY,ARPRO V,ARDAPTDT ,ARCOMM,AR EESTAT,ARE DT,ARQUIT | ||
8185 | "RTN","SDE CAR2",67,0 ) | ||
8186 | N FNUM,FD A,ARNEW,AR RET,ARMSG, ARDATA,ARE RR,ARHOSN, AUDF,SDREC | ||
8187 | "RTN","SDE CAR2",68,0 ) | ||
8188 | N ARMAI,A RMAN,ARMAR ,ARPARENT, ARPATTEL,A RENPRI,ARS TOP,ARSVCC ON,ARSVCCO P | ||
8189 | "RTN","SDE CAR2",69,0 ) | ||
8190 | N VAOSGUI D ; wtc pa tch 686 3/ 21/18 adde d for VAOS requests | ||
8191 | "RTN","SDE CAR2",70,0 ) | ||
8192 | S (ARQUIT ,AUDF)=0 | ||
8193 | "RTN","SDE CAR2",71,0 ) | ||
8194 | S FNUM=$$ FNUM^SDECA R | ||
8195 | "RTN","SDE CAR2",72,0 ) | ||
8196 | S RET="I0 0020ERRORI D^T00030ER RORTEXT"_$ C(30) | ||
8197 | "RTN","SDE CAR2",73,0 ) | ||
8198 | ; Use MER GE instead of SET so we can kn ow if valu es were ac tually spe cified or not. | ||
8199 | "RTN","SDE CAR2",74,0 ) | ||
8200 | ; This wa y, if a va lue is nul l, we will delete an y previous value, | ||
8201 | "RTN","SDE CAR2",75,0 ) | ||
8202 | ; but if it is miss ing, then we will ju st ignore it. | ||
8203 | "RTN","SDE CAR2",76,0 ) | ||
8204 | M ARIEN=I NP(1) | ||
8205 | "RTN","SDE CAR2",77,0 ) | ||
8206 | S DFN=$G( INP(2)) | ||
8207 | "RTN","SDE CAR2",78,0 ) | ||
8208 | I '+DFN S RET=RET_" -1^Invalid Patient I D."_$C(30, 31) Q | ||
8209 | "RTN","SDE CAR2",79,0 ) | ||
8210 | I '$D(^DP T(DFN,0)) S RET=RET_ "-1^Invali d Patient ID"_$C(30, 31) Q | ||
8211 | "RTN","SDE CAR2",80,0 ) | ||
8212 | S AREDT=$ P($G(INP(3 )),":",1,2 ) | ||
8213 | "RTN","SDE CAR2",81,0 ) | ||
8214 | S %DT="TX " S X=ARED T D ^%DT S AREDT=Y | ||
8215 | "RTN","SDE CAR2",82,0 ) | ||
8216 | I Y=-1 S RET=RET_"- 1^Invalid Originatio n date."_$ C(30,31) Q | ||
8217 | "RTN","SDE CAR2",83,0 ) | ||
8218 | S ARORIGD T=$P(AREDT ,".",1) | ||
8219 | "RTN","SDE CAR2",84,0 ) | ||
8220 | S ARINST= $G(INP(4)) I ARINST' ="" D | ||
8221 | "RTN","SDE CAR2",85,0 ) | ||
8222 | .I '+ARIN ST S ARINS T=$O(^DIC( 4,"B",ARIN ST,0)) | ||
8223 | "RTN","SDE CAR2",86,0 ) | ||
8224 | M ARTYPE= INP(5) | ||
8225 | "RTN","SDE CAR2",87,0 ) | ||
8226 | S ARCLIN= $G(INP(6)) | ||
8227 | "RTN","SDE CAR2",88,0 ) | ||
8228 | I ARCLIN' ="" D | ||
8229 | "RTN","SDE CAR2",89,0 ) | ||
8230 | .I +ARCLI N=ARCLIN D | ||
8231 | "RTN","SDE CAR2",90,0 ) | ||
8232 | ..I '$D(^ SC(+ARCLIN ,0)) S RET =RET_"-1^" _ARCLIN_" is an inva lid Clinic ID."_$C(3 0,31) S AR QUIT=1 Q | ||
8233 | "RTN","SDE CAR2",91,0 ) | ||
8234 | ..;S ARCL IN=$$GET1^ DIQ(44,ARC LIN_",",.0 1) | ||
8235 | "RTN","SDE CAR2",92,0 ) | ||
8236 | .I '(+ARC LIN=ARCLIN ) D | ||
8237 | "RTN","SDE CAR2",93,0 ) | ||
8238 | ..S ARCLI N=$O(^SC(" B",ARCLIN, 0)) | ||
8239 | "RTN","SDE CAR2",94,0 ) | ||
8240 | ..I ARCLI N="" S RET =RET_"-1^" _ARCLIN_" is an inva lid Clinic Name."_$C (30,31) S ARQUIT=1 Q | ||
8241 | "RTN","SDE CAR2",95,0 ) | ||
8242 | Q:ARQUIT= 1 | ||
8243 | "RTN","SDE CAR2",96,0 ) | ||
8244 | S ARUSER= $G(INP(7)) | ||
8245 | "RTN","SDE CAR2",97,0 ) | ||
8246 | I ARUSER' ="" I '+AR USER S ARU SER=$O(^VA (200,"B",A RUSER,0)) | ||
8247 | "RTN","SDE CAR2",98,0 ) | ||
8248 | I ARUSER= "" S ARUSE R=DUZ | ||
8249 | "RTN","SDE CAR2",99,0 ) | ||
8250 | S ARREQBY =$G(INP(9) ) I ARREQB Y'="" D | ||
8251 | "RTN","SDE CAR2",100, 0) | ||
8252 | .S ARREQB Y=$S(ARREQ BY="PATIEN T":2,ARREQ BY="PROVID ER":1,1:"" ) | ||
8253 | "RTN","SDE CAR2",101, 0) | ||
8254 | S ARPROV= $G(INP(10) ) I ARPROV '="" I '+A RPROV S AR PROV=$O(^V A(200,"B", ARPROV,0)) | ||
8255 | "RTN","SDE CAR2",102, 0) | ||
8256 | S ARDAPTD T=INP(11) | ||
8257 | "RTN","SDE CAR2",103, 0) | ||
8258 | S %DT="" S X=$P($G( ARDAPTDT), "@",1) D ^ %DT S ARPR IO=$S(Y=$P ($$NOW^XLF DT,".",1): "A",1:"F") | ||
8259 | "RTN","SDE CAR2",104, 0) | ||
8260 | S ARDAPTD T=Y | ||
8261 | "RTN","SDE CAR2",105, 0) | ||
8262 | I Y=-1 S ARDAPTDT=" " ;S RET =RET_"-1^I nvalid Des ired Date. "_$C(30,31 )Q | ||
8263 | "RTN","SDE CAR2",106, 0) | ||
8264 | S (INP(12 ),ARCOMM)= $TR($G(INP (12)),"^", " ") ;al b/sat 658 | ||
8265 | "RTN","SDE CAR2",107, 0) | ||
8266 | S ARENPRI =$G(INP(13 )) D | ||
8267 | "RTN","SDE CAR2",108, 0) | ||
8268 | .S:ARENPR I'="" AREN PRI=$S(ARE NPRI="GROU P 1":1,ARE NPRI="GROU P 2":2,ARE NPRI="GROU P3":3,AREN PRI="GROUP 4":4,ARENP RI="GROUP 5":5,ARENP RI="GROUP 6":6,ARENP RI="GROUP 7":7,ARENP RI="GROUP 8":8,1:ARE NPRI) | ||
8269 | "RTN","SDE CAR2",109, 0) | ||
8270 | S ARMAR=$ G(INP(14)) I ARMAR'= "" S ARMAR =$S(ARMAR= "YES":1,1: 0) | ||
8271 | "RTN","SDE CAR2",110, 0) | ||
8272 | M ARMAI=I NP(15) | ||
8273 | "RTN","SDE CAR2",111, 0) | ||
8274 | M ARMAN=I NP(16) | ||
8275 | "RTN","SDE CAR2",112, 0) | ||
8276 | S ARSVCCO N=$G(INP(1 8)) S:ARSV CCON'="" A RSVCCON=$S (ARSVCCON= "YES":1,1: 0) | ||
8277 | "RTN","SDE CAR2",113, 0) | ||
8278 | M ARSVCCO P=INP(19) I $G(ARSVC COP)'="" S ARSVCCOP= +$G(ARSVCC OP) S:(+AR SVCCOP<0)! (+ARSVCCOP >100) ARSV CCOP="" | ||
8279 | "RTN","SDE CAR2",114, 0) | ||
8280 | S ARSTOP= $G(INP(21) ) | ||
8281 | "RTN","SDE CAR2",115, 0) | ||
8282 | I ARSTOP' ="",ARCLIN '="" S RET =RET_"-1^C annot incl ude both C linic and Service."_ $C(30,31) Q | ||
8283 | "RTN","SDE CAR2",116, 0) | ||
8284 | S ARAPTYP =+$G(INP(2 2)) I +ARA PTYP,'$D(^ SD(409.1,A RAPTYP,0)) S ARAPTYP ="" | ||
8285 | "RTN","SDE CAR2",117, 0) | ||
8286 | S ARPAREN T=+$G(INP( 25)) I +AR PARENT,'$D (^SDEC(409 .85,+ARPAR ENT,0)) S ARPARENT=" " | ||
8287 | "RTN","SDE CAR2",118, 0) | ||
8288 | S ARNLT=+ $G(INP(26) ) | ||
8289 | "RTN","SDE CAR2",119, 0) | ||
8290 | S ARPRER= $G(INP(27) ) | ||
8291 | "RTN","SDE CAR2",120, 0) | ||
8292 | S ARORDN= +$G(INP(28 )) | ||
8293 | "RTN","SDE CAR2",121, 0) | ||
8294 | ;CHECK FO R MISSING NLT,PREREQ ,ORDER IEN ON MULTIP LE APPT RE QUESTS | ||
8295 | "RTN","SDE CAR2",122, 0) | ||
8296 | I +ARPARE NT>0&(+$G( INP(26))=0 ) D | ||
8297 | "RTN","SDE CAR2",123, 0) | ||
8298 | .S ARNLT= $P($G(^SDE C(409.85,+ ARPARENT,7 )),U,2) | ||
8299 | "RTN","SDE CAR2",124, 0) | ||
8300 | I +ARPARE NT>0&($G(I NP(27))="" ) D | ||
8301 | "RTN","SDE CAR2",125, 0) | ||
8302 | .N PRIEN, PR | ||
8303 | "RTN","SDE CAR2",126, 0) | ||
8304 | .S PRIEN= 0 F S PRI EN=$O(^SDE C(409.85,+ ARPARENT,8 ,PRIEN)) Q :PRIEN'>0 D | ||
8305 | "RTN","SDE CAR2",127, 0) | ||
8306 | ..S PR=$P ($G(^SDEC( 409.85,+AR PARENT,8,P RIEN,0))," ^") Q:PR=" " | ||
8307 | "RTN","SDE CAR2",128, 0) | ||
8308 | ..S ARPRE R=$S(ARPRE R'="":ARPR ER_";"_PR, 1:PR) | ||
8309 | "RTN","SDE CAR2",129, 0) | ||
8310 | I +ARPARE NT>0&(+$G( INP(28))=0 ) D | ||
8311 | "RTN","SDE CAR2",130, 0) | ||
8312 | .S ARORDN =$P($G(^SD EC(409.85, +ARPARENT, 7)),U,1) | ||
8313 | "RTN","SDE CAR2",131, 0) | ||
8314 | ; | ||
8315 | "RTN","SDE CAR2",132, 0) | ||
8316 | S VAOSGUI D=$G(INP(2 9)) ; <= = wtc patc h 686 3/21 /18 added for VAOS r equests | ||
8317 | "RTN","SDE CAR2",133, 0) | ||
8318 | S ARIEN=$ G(ARIEN) | ||
8319 | "RTN","SDE CAR2",134, 0) | ||
8320 | S ARNEW=A RIEN="" | ||
8321 | "RTN","SDE CAR2",135, 0) | ||
8322 | I ARNEW D | ||
8323 | "RTN","SDE CAR2",136, 0) | ||
8324 | . S AUDF= 1 | ||
8325 | "RTN","SDE CAR2",137, 0) | ||
8326 | . S FDA=$ NA(FDA(FNU M,"+1,")) | ||
8327 | "RTN","SDE CAR2",138, 0) | ||
8328 | . S @FDA@ (.01)=+DFN ;$S(+DF N:$P($G(^D PT(DFN,0)) ,U),1:DFN) | ||
8329 | "RTN","SDE CAR2",139, 0) | ||
8330 | . ;This h andles the date/time coming in as "8/27/ 2014 12:00 :00 AM" | ||
8331 | "RTN","SDE CAR2",140, 0) | ||
8332 | . S:$G(AR ORIGDT)'=" " @FDA@(1) =ARORIGDT | ||
8333 | "RTN","SDE CAR2",141, 0) | ||
8334 | . S:$G(AR INST)'="" @FDA@(2)=+ ARINST | ||
8335 | "RTN","SDE CAR2",142, 0) | ||
8336 | . S:$G(AR TYPE)'="" @FDA@(4)=$ S(ARTYPE=" APPOINTMEN T":"APPT", ARTYPE="MO BILE":"MOB ILE",1:ART YPE) | ||
8337 | "RTN","SDE CAR2",143, 0) | ||
8338 | . S:$G(VA OSGUID)'=" " @FDA@(5) =VAOSGUID ; <== wt c patch 68 6 3/21/18 added for VAOS reque sts | ||
8339 | "RTN","SDE CAR2",144, 0) | ||
8340 | . S:$G(AR CLIN)'="" @FDA@(8)=+ ARCLIN | ||
8341 | "RTN","SDE CAR2",145, 0) | ||
8342 | . S:$G(AR STOP)'="" @FDA@(8.5) =+ARSTOP | ||
8343 | "RTN","SDE CAR2",146, 0) | ||
8344 | . S:+ARAP TYP @FDA@( 8.7)=+ARAP TYP | ||
8345 | "RTN","SDE CAR2",147, 0) | ||
8346 | . S:$G(AR USER)'="" @FDA@(9)=+ ARUSER | ||
8347 | "RTN","SDE CAR2",148, 0) | ||
8348 | . S:$G(AR EDT)'="" @ FDA@(9.5)= AREDT | ||
8349 | "RTN","SDE CAR2",149, 0) | ||
8350 | . S:$G(AR PRIO)'="" @FDA@(10)= ARPRIO | ||
8351 | "RTN","SDE CAR2",150, 0) | ||
8352 | . S:$G(AR ENPRI)'="" @FDA@(10. 5)=ARENPRI | ||
8353 | "RTN","SDE CAR2",151, 0) | ||
8354 | . S:$G(AR REQBY)'="" @FDA@(11) =ARREQBY | ||
8355 | "RTN","SDE CAR2",152, 0) | ||
8356 | . S:$G(AR PROV)'="" @FDA@(12)= +ARPROV | ||
8357 | "RTN","SDE CAR2",153, 0) | ||
8358 | . S:$G(AR SVCCOP)'=" " @FDA@(14 )=ARSVCCOP | ||
8359 | "RTN","SDE CAR2",154, 0) | ||
8360 | . S:$G(AR SVCCON)'=" " @FDA@(15 )=+ARSVCCO N | ||
8361 | "RTN","SDE CAR2",155, 0) | ||
8362 | . S:$G(AR DAPTDT)'=" " @FDA@(22 )=ARDAPTDT | ||
8363 | "RTN","SDE CAR2",156, 0) | ||
8364 | . S:$G(AR NLT)'="" @ FDA@(47)=A RNLT | ||
8365 | "RTN","SDE CAR2",157, 0) | ||
8366 | . D FDAPR ER(.FDA,AR PRER,"+1") | ||
8367 | "RTN","SDE CAR2",158, 0) | ||
8368 | . S:$G(AR ORDN)'="" @FDA@(46)= ARORDN | ||
8369 | "RTN","SDE CAR2",159, 0) | ||
8370 | . S @FDA@ (23)="O" | ||
8371 | "RTN","SDE CAR2",160, 0) | ||
8372 | . S:$G(AR COMM)'="" @FDA@(25)= ARCOMM | ||
8373 | "RTN","SDE CAR2",161, 0) | ||
8374 | . S:$G(AR MAR)'="" @ FDA@(41)=A RMAR | ||
8375 | "RTN","SDE CAR2",162, 0) | ||
8376 | . I +ARMA R,$G(ARMAI )'="" S @F DA@(42)=AR MAI | ||
8377 | "RTN","SDE CAR2",163, 0) | ||
8378 | . I +ARMA R,$G(ARMAN )'="" S @F DA@(43)=AR MAN | ||
8379 | "RTN","SDE CAR2",164, 0) | ||
8380 | . S:$G(IN P(23))'="" @FDA@(.02 )=$S(INP(2 3)="N":"N" ,INP(23)=" NEW":"N",I NP(23)="E" :"E",INP(2 3)="ESTABL ISHED":"E" ,1:"") | ||
8381 | "RTN","SDE CAR2",165, 0) | ||
8382 | . S:+ARPA RENT @FDA@ (43.8)=+AR PARENT | ||
8383 | "RTN","SDE CAR2",166, 0) | ||
8384 | E D | ||
8385 | "RTN","SDE CAR2",167, 0) | ||
8386 | . S ARIEN =ARIEN_"," ; Append the comma for both | ||
8387 | "RTN","SDE CAR2",168, 0) | ||
8388 | . K ARDAT A,ARERR | ||
8389 | "RTN","SDE CAR2",169, 0) | ||
8390 | . D GETS^ DIQ(FNUM,A RIEN,"*"," IE","ARDAT A","ARERR" ) | ||
8391 | "RTN","SDE CAR2",170, 0) | ||
8392 | . I $D(AR ERR) M ARM SG=ARERR K FDA Q | ||
8393 | "RTN","SDE CAR2",171, 0) | ||
8394 | . S FDA=$ NA(FDA(FNU M,ARIEN)) | ||
8395 | "RTN","SDE CAR2",172, 0) | ||
8396 | . I $D(AR ORIGDT) D | ||
8397 | "RTN","SDE CAR2",173, 0) | ||
8398 | . . S ARO RIGDT=$P(A RORIGDT,"@ ",1) S %DT ="" S X=AR ORIGDT D ^ %DT S AROR IGDTI=Y | ||
8399 | "RTN","SDE CAR2",174, 0) | ||
8400 | . . I ARO RIGDTI'=AR DATA(FNUM, ARIEN,1,"I ") S @FDA@ (1)=$S(ARO RIGDT="":" @",1:ARORI GDT) | ||
8401 | "RTN","SDE CAR2",175, 0) | ||
8402 | . I $D(AR INST),ARIN ST'=ARDATA (FNUM,ARIE N,2,"I") S @FDA@(2)= +ARINST | ||
8403 | "RTN","SDE CAR2",176, 0) | ||
8404 | . I $D(AR TYPE),ARTY PE'=ARDATA (FNUM,ARIE N,4,"E") S @FDA@(4)= $S(ARTYPE= "APPOINTME NT":"APPT" ,ARTYPE="M OBILE":"MO BILE",1:AR TYPE) | ||
8405 | "RTN","SDE CAR2",177, 0) | ||
8406 | . I $G(VA OSGUID)'=" ",VAOSGUID '=ARDATA(F NUM,ARIEN, 5,"I") S @ FDA@(5)=VA OSGUID ; <== wtc p atch 686 3 /21/18 add ed for VAO S requests | ||
8407 | "RTN","SDE CAR2",178, 0) | ||
8408 | . I ARCLI N'="",ARCL IN'=ARDATA (FNUM,ARIE N,8,"I") S @FDA@(8)= +ARCLIN,AU DF=1 S:ARD ATA(FNUM,A RIEN,8.5," I")'="" @F DA@(8.5)=" @" | ||
8409 | "RTN","SDE CAR2",179, 0) | ||
8410 | . I ARSTO P'="",ARST OP'=ARDATA (FNUM,ARIE N,8.5,"I") S @FDA@(8 .5)=+ARSTO P,AUDF=1 S :ARDATA(FN UM,ARIEN,8 ,"I")'="" @FDA@(8)=" @" | ||
8411 | "RTN","SDE CAR2",180, 0) | ||
8412 | . S:+ARAP TYP @FDA@( 8.7)=+ARAP TYP | ||
8413 | "RTN","SDE CAR2",181, 0) | ||
8414 | . I $D(AR USER),ARUS ER'=ARDATA (FNUM,ARIE N,9,"I") S @FDA@(9)= +ARUSER | ||
8415 | "RTN","SDE CAR2",182, 0) | ||
8416 | . I $D(AR EDT),AREDT '=$G(ARDAT A(FNUM,ARI EN,9.5,"I" )) S @FDA@ (9.5)=ARED T | ||
8417 | "RTN","SDE CAR2",183, 0) | ||
8418 | . I $D(AR PRIO),ARPR IO'=ARDATA (FNUM,ARIE N,10,"I") S @FDA@(10 )=$S(ARPRI O="":"@",1 :ARPRIO) | ||
8419 | "RTN","SDE CAR2",184, 0) | ||
8420 | . I $D(AR ENPRI),ARE NPRI'=ARDA TA(FNUM,AR IEN,10.5," E") S @FDA @(10.5)=AR ENPRI | ||
8421 | "RTN","SDE CAR2",185, 0) | ||
8422 | . I $D(AR REQBY),ARR EQBY'=ARDA TA(FNUM,AR IEN,11,"I" ) S @FDA@( 11)=$S(ARR EQBY="":"@ ",1:ARREQB Y) | ||
8423 | "RTN","SDE CAR2",186, 0) | ||
8424 | . I $D(AR PROV),ARPR OV'=ARDATA (FNUM,ARIE N,12,"I") S @FDA@(12 )=+ARPROV | ||
8425 | "RTN","SDE CAR2",187, 0) | ||
8426 | . I $D(AR SVCCOP),AR SVCCOP'=$G (ARDATA(FN UM,ARIEN,1 4,"I")) S @FDA@(14)= ARSVCCOP | ||
8427 | "RTN","SDE CAR2",188, 0) | ||
8428 | . I $D(AR SVCCON),AR SVCCON'=AR DATA(FNUM, ARIEN,15," E") S @FDA @(15)=+ARS VCCON | ||
8429 | "RTN","SDE CAR2",189, 0) | ||
8430 | . I $D(AR DAPTDT),AR DAPTDT'=AR DATA(FNUM, ARIEN,22," I") S @FDA @(22)=$S(A RDAPTDT="" :"@",1:ARD APTDT) | ||
8431 | "RTN","SDE CAR2",190, 0) | ||
8432 | . I $D(AR COMM),ARCO MM'=ARDATA (FNUM,ARIE N,25,"I") S @FDA@(25 )=$S(ARCOM M="":"@",1 :ARCOMM) | ||
8433 | "RTN","SDE CAR2",191, 0) | ||
8434 | . S:$G(AR MAR)'="" @ FDA@(41)=A RMAR | ||
8435 | "RTN","SDE CAR2",192, 0) | ||
8436 | . S:$G(AR MAI)'="" @ FDA@(42)=A RMAI | ||
8437 | "RTN","SDE CAR2",193, 0) | ||
8438 | . S:$G(AR MAN)'="" @ FDA@(43)=A RMAN | ||
8439 | "RTN","SDE CAR2",194, 0) | ||
8440 | . S:$G(AR NLT)'="" @ FDA@(47)=A RNLT | ||
8441 | "RTN","SDE CAR2",195, 0) | ||
8442 | . D DELPR ER(+ARIEN) | ||
8443 | "RTN","SDE CAR2",196, 0) | ||
8444 | . D FDAPR ER(.FDA,AR PRER,+ARIE N) | ||
8445 | "RTN","SDE CAR2",197, 0) | ||
8446 | . S:$G(AR ORDN)'="" @FDA@(46)= ARORDN | ||
8447 | "RTN","SDE CAR2",198, 0) | ||
8448 | . S:$G(IN P(23))'="" @FDA@(.02 )=$S(INP(2 3)="N":"N" ,INP(23)=" NEW":"N",I NP(23)="E" :"E",INP(2 3)="ESTABL ISHED":"E" ,1:"") | ||
8449 | "RTN","SDE CAR2",199, 0) | ||
8450 | . S:+ARPA RENT @FDA@ (43.8)=+AR PARENT | ||
8451 | "RTN","SDE CAR2",200, 0) | ||
8452 | ; Only ca ll UPDATE^ DIE if the re are any array ent ries in FD A | ||
8453 | "RTN","SDE CAR2",201, 0) | ||
8454 | D:$D(FDA) >9 UPDATE^ DIE("","FD A","ARRET" ,"ARMSG") | ||
8455 | "RTN","SDE CAR2",202, 0) | ||
8456 | I $D(ARMS G) D | ||
8457 | "RTN","SDE CAR2",203, 0) | ||
8458 | . F MI=1: 1:$G(ARMSG ("DIERR")) S RET=RET _"-1^"_$G( ARMSG("DIE RR",MI,"TE XT",1))_$C (30) | ||
8459 | "RTN","SDE CAR2",204, 0) | ||
8460 | . S RET=R ET_$C(31) | ||
8461 | "RTN","SDE CAR2",205, 0) | ||
8462 | Q:$D(ARMS G) | ||
8463 | "RTN","SDE CAR2",206, 0) | ||
8464 | S ARINSTI =$P($G(^SD EC(409.85, $S(+ARIEN: ARIEN,1:AR RET(1)),0) ),U,3) | ||
8465 | "RTN","SDE CAR2",207, 0) | ||
8466 | I $G(INP( 17))'="" D AR23(INP( 17),$S(+AR IEN:ARIEN, 1:ARRET(1) )) ;pati ent contac ts | ||
8467 | "RTN","SDE CAR2",208, 0) | ||
8468 | I +ARMAR, $G(INP(20) )'="" D AR 435(INP(20 ),$S(+ARIE N:ARIEN,1: ARRET(1))) ;MRTC C ALC PREF D ATES | ||
8469 | "RTN","SDE CAR2",209, 0) | ||
8470 | I +AUDF D ARAUD($S( +ARIEN:+AR IEN,1:ARRE T(1)),ARCL IN,ARSTOP) ;VS AUD IT | ||
8471 | "RTN","SDE CAR2",210, 0) | ||
8472 | I $G(INP( 24))'="" N SDI F SDI =1:1:$L(IN P(24),"|") S SDREC=$ P(INP(24), "|",SDI) D AR433($S( +ARIEN:+AR IEN,1:ARRE T(1)),SDRE C) | ||
8473 | "RTN","SDE CAR2",211, 0) | ||
8474 | I +ARPARE NT D AR433 (+ARPARENT ,"~"_$S(+A RIEN:+ARIE N,1:ARRET( 1))) | ||
8475 | "RTN","SDE CAR2",212, 0) | ||
8476 | I +$G(ARR ET(1)) S R ET=RET_ARR ET(1)_U_$C (30,31) | ||
8477 | "RTN","SDE CAR2",213, 0) | ||
8478 | E S RET= RET_+ARIEN _U_$C(30,3 1) | ||
8479 | "RTN","SDE CAR2",214, 0) | ||
8480 | Q | ||
8481 | "RTN","SDE CAR2",215, 0) | ||
8482 | ; | ||
8483 | "RTN","SDE CAR2",216, 0) | ||
8484 | FDAPRER(FD A,ARPRER,A RIEN) ;Set up the FDA array for the PRERE QUISITE mu ltiple (#4 8) | ||
8485 | "RTN","SDE CAR2",217, 0) | ||
8486 | N ASEQ,DE LIM,PC,PR | ||
8487 | "RTN","SDE CAR2",218, 0) | ||
8488 | Q:$G(ARPR ER)="" | ||
8489 | "RTN","SDE CAR2",219, 0) | ||
8490 | S DELIM=" ;",ASEQ=80 | ||
8491 | "RTN","SDE CAR2",220, 0) | ||
8492 | F PC=1:1: $L(ARPRER, DELIM) D | ||
8493 | "RTN","SDE CAR2",221, 0) | ||
8494 | .S PR=$P( ARPRER,DEL IM,PC) Q:P R="" | ||
8495 | "RTN","SDE CAR2",222, 0) | ||
8496 | .S ASEQ=A SEQ+1,FDA( 409.8548," +"_ASEQ_", "_ARIEN_", ",.01)=PR | ||
8497 | "RTN","SDE CAR2",223, 0) | ||
8498 | Q | ||
8499 | "RTN","SDE CAR2",224, 0) | ||
8500 | ; | ||
8501 | "RTN","SDE CAR2",225, 0) | ||
8502 | DELPRER(AR IEN) ;Dele te all ent ries in th e PREREQUI SITE multi ple (#48) | ||
8503 | "RTN","SDE CAR2",226, 0) | ||
8504 | N DIK,DA | ||
8505 | "RTN","SDE CAR2",227, 0) | ||
8506 | Q:$G(ARIE N)'=+$G(AR IEN) Q:AR IEN'>0 | ||
8507 | "RTN","SDE CAR2",228, 0) | ||
8508 | S DIK="^S DEC(409.85 ,"_ARIEN_" ,8,",DA(1) =ARIEN | ||
8509 | "RTN","SDE CAR2",229, 0) | ||
8510 | S DA=0 F S DA=$O(^ SDEC(409.8 5,ARIEN,8, DA)) Q:DA' >0 D ^DIK | ||
8511 | "RTN","SDE CAR2",230, 0) | ||
8512 | Q | ||
8513 | "RTN","SDE CAR2",231, 0) | ||
8514 | ; | ||
8515 | "RTN","SDE CAR2",232, 0) | ||
8516 | GETPRER(RE T,ARIEN) ; Return the values in the PRERE QUISITE mu ltiple (#4 8) | ||
8517 | "RTN","SDE CAR2",233, 0) | ||
8518 | N CC,PR | ||
8519 | "RTN","SDE CAR2",234, 0) | ||
8520 | I $G(^SDE C(409.85,+ $G(ARIEN), 0))="" S R ET="-1^Inv alid SDEC APPT REQUE ST id "_$G (ARIEN) Q | ||
8521 | "RTN","SDE CAR2",235, 0) | ||
8522 | S RET="" | ||
8523 | "RTN","SDE CAR2",236, 0) | ||
8524 | S CC=0 F S CC=$O(^ SDEC(409.8 5,ARIEN,8, CC)) Q:CC' >0 D | ||
8525 | "RTN","SDE CAR2",237, 0) | ||
8526 | .S PR=$P( $G(^SDEC(4 09.85,ARIE N,8,CC,0)) ,U,1) Q:PR ="" | ||
8527 | "RTN","SDE CAR2",238, 0) | ||
8528 | .S RET=$S (RET'="":R ET_U_PR,1: PR) | ||
8529 | "RTN","SDE CAR2",239, 0) | ||
8530 | Q | ||
8531 | "RTN","SDE CAR2",240, 0) | ||
8532 | ; | ||
8533 | "RTN","SDE CAR2",241, 0) | ||
8534 | ARAUD(ARIE N,ARCLIN,A RSTOP,DATE ,USER) ;po pulate VS AUDIT mult iple field 45 | ||
8535 | "RTN","SDE CAR2",242, 0) | ||
8536 | ; ARIEN - (requir ed) pointe r to SDEC APPT REQUE ST file 40 9.85 | ||
8537 | "RTN","SDE CAR2",243, 0) | ||
8538 | ; ARCLIN - (option al) pointe r to HOSPI TAL LOCATI ON file 44 | ||
8539 | "RTN","SDE CAR2",244, 0) | ||
8540 | ; ARSTOP - (option al) pointe r to CLINI C STOP fil e | ||
8541 | "RTN","SDE CAR2",245, 0) | ||
8542 | ; DATE - (option al) date/t ime in fil eman forma t | ||
8543 | "RTN","SDE CAR2",246, 0) | ||
8544 | N SDFDA,S DP,SDPN | ||
8545 | "RTN","SDE CAR2",247, 0) | ||
8546 | S ARIEN=$ G(ARIEN) Q :ARIEN="" | ||
8547 | "RTN","SDE CAR2",248, 0) | ||
8548 | S ARCLIN= $G(ARCLIN) | ||
8549 | "RTN","SDE CAR2",249, 0) | ||
8550 | S ARSTOP= $G(ARSTOP) | ||
8551 | "RTN","SDE CAR2",250, 0) | ||
8552 | S SDP=$O( ^SDEC(409. 85,ARIEN,6 ,9999999), -1) | ||
8553 | "RTN","SDE CAR2",251, 0) | ||
8554 | I +SDP S SDPN=^SDEC (409.85,AR IEN,6,SDP, 0) I $P(SD PN,U,3)=AR CLIN,$P(SD PN,U,4)=AR STOP Q | ||
8555 | "RTN","SDE CAR2",252, 0) | ||
8556 | S DATE=$G (DATE) S:D ATE="" DAT E=$E($$NOW ^XLFDT,1,1 2) | ||
8557 | "RTN","SDE CAR2",253, 0) | ||
8558 | S USER=$G (USER) S:U SER="" USE R=DUZ | ||
8559 | "RTN","SDE CAR2",254, 0) | ||
8560 | S SDFDA(4 09.8545,"+ 1,"_ARIEN_ ",",.01)=D ATE | ||
8561 | "RTN","SDE CAR2",255, 0) | ||
8562 | S SDFDA(4 09.8545,"+ 1,"_ARIEN_ ",",1)=USE R | ||
8563 | "RTN","SDE CAR2",256, 0) | ||
8564 | S:ARCLIN' ="" SDFDA( 409.8545," +1,"_ARIEN _",",2)=AR CLIN | ||
8565 | "RTN","SDE CAR2",257, 0) | ||
8566 | S:ARSTOP' ="" SDFDA( 409.8545," +1,"_ARIEN _",",3)=AR STOP | ||
8567 | "RTN","SDE CAR2",258, 0) | ||
8568 | D UPDATE^ DIE("","SD FDA") | ||
8569 | "RTN","SDE CAR2",259, 0) | ||
8570 | Q | ||
8571 | "RTN","SDE CAR2",260, 0) | ||
8572 | ; | ||
8573 | "RTN","SDE CAR2",261, 0) | ||
8574 | AR433(ARIE N,SDEC) ;s et MULT AP PTS MADE | ||
8575 | "RTN","SDE CAR2",262, 0) | ||
8576 | ;INPUT: | ||
8577 | "RTN","SDE CAR2",263, 0) | ||
8578 | ; ARIEN = (requir ed) pointe r to SDEC APPT REQUE ST file 40 9.85 | ||
8579 | "RTN","SDE CAR2",264, 0) | ||
8580 | ; SDEC = (requir ed) child pointers t o SDEC APP OINTMENT a nd SDEC AP PTREQUEST file separ ated by pi pe | ||
8581 | "RTN","SDE CAR2",265, 0) | ||
8582 | ; each pip e piece co ntains the following ~ pieces: | ||
8583 | "RTN","SDE CAR2",266, 0) | ||
8584 | ; 1. Appointme nt Id poin ter to SDE C APPOINTM ENT file 4 09.84 | ||
8585 | "RTN","SDE CAR2",267, 0) | ||
8586 | ; 2. Request I d pointer to SDEC AP PT REQUEST file 409. 85 | ||
8587 | "RTN","SDE CAR2",268, 0) | ||
8588 | N SDAPP,S DFDA,SDI,S DIEN | ||
8589 | "RTN","SDE CAR2",269, 0) | ||
8590 | S ARIEN=$ G(ARIEN) | ||
8591 | "RTN","SDE CAR2",270, 0) | ||
8592 | Q:'$D(^SD EC(409.85, ARIEN,0)) | ||
8593 | "RTN","SDE CAR2",271, 0) | ||
8594 | S SDEC=$G (SDEC) | ||
8595 | "RTN","SDE CAR2",272, 0) | ||
8596 | F SDI=1:1 :$L(SDEC," |") D | ||
8597 | "RTN","SDE CAR2",273, 0) | ||
8598 | .K SDFDA | ||
8599 | "RTN","SDE CAR2",274, 0) | ||
8600 | .S SDAPP= $P(SDEC,"| ",SDI) | ||
8601 | "RTN","SDE CAR2",275, 0) | ||
8602 | .I $P(SDA PP,"~",2)= "",$P(SDAP P,"~",1)'= "" S $P(SD APP,"~",2) =$P($$GET1 ^DIQ(409.8 4,+SDAPP_" ,",.22,"I" ),";",1) | ||
8603 | "RTN","SDE CAR2",276, 0) | ||
8604 | .Q:$P(SDA PP,"~",2)= "" | ||
8605 | "RTN","SDE CAR2",277, 0) | ||
8606 | .S SDIEN= $O(^SDEC(4 09.85,ARIE N,2,"B",$P (SDAPP,"~" ,2),0)) | ||
8607 | "RTN","SDE CAR2",278, 0) | ||
8608 | .S SDIEN= $S(SDIEN'= "":SDIEN,1 :"+1") | ||
8609 | "RTN","SDE CAR2",279, 0) | ||
8610 | .I $D(^SD EC(409.85, +$P(SDAPP, "~",2),0)) S SDFDA(4 09.852,SDI EN_","_ARI EN_",",.01 )=+$P(SDAP P,"~",2) | ||
8611 | "RTN","SDE CAR2",280, 0) | ||
8612 | .I $D(^SD EC(409.84, +$P(SDAPP, "~",1),0)) S SDFDA(4 09.852,SDI EN_","_ARI EN_",",.02 )=+$P(SDAP P,"~",1) | ||
8613 | "RTN","SDE CAR2",281, 0) | ||
8614 | .D:$D(SDF DA) UPDATE ^DIE("","S DFDA") | ||
8615 | "RTN","SDE CAR2",282, 0) | ||
8616 | Q | ||
8617 | "RTN","SDE CAR2",283, 0) | ||
8618 | AR433D(SDE C) ;delete MULT APPT S MADE | ||
8619 | "RTN","SDE CAR2",284, 0) | ||
8620 | ;INPUT: | ||
8621 | "RTN","SDE CAR2",285, 0) | ||
8622 | ; SDEC = (requir ed) pointe rs to SDEC APPOINTME NT file 40 9.84 separ ated by pi pe | ||
8623 | "RTN","SDE CAR2",286, 0) | ||
8624 | N ARIEN,D FN,DIEN,SD APP,SDFDA, SDI,SDJ,SD TYP | ||
8625 | "RTN","SDE CAR2",287, 0) | ||
8626 | S SDEC=$G (SDEC) | ||
8627 | "RTN","SDE CAR2",288, 0) | ||
8628 | F SDI=1:1 :$L(SDEC," |") D | ||
8629 | "RTN","SDE CAR2",289, 0) | ||
8630 | .S SDAPP= $P(SDEC,"| ",SDI) | ||
8631 | "RTN","SDE CAR2",290, 0) | ||
8632 | .Q:'$D(^S DEC(409.84 ,SDAPP,0)) | ||
8633 | "RTN","SDE CAR2",291, 0) | ||
8634 | .S DFN=$$ GET1^DIQ(4 09.84,SDAP P_",",.05, "I") | ||
8635 | "RTN","SDE CAR2",292, 0) | ||
8636 | .S SDTYP= $$GET1^DIQ (409.84,SD APP_",",.2 2,"I"),DIE N=$P(SDTYP ,";",1) | ||
8637 | "RTN","SDE CAR2",293, 0) | ||
8638 | .I $P(SDT YP,";",2)= "SDEC(409. 85," S ARI EN="" F S ARIEN=$O( ^SDEC(409. 85,"B",DFN ,ARIEN)) Q :ARIEN="" D ; alb/ jsm 658 | ||
8639 | "RTN","SDE CAR2",294, 0) | ||
8640 | ..S SDJ=" " F S SDJ =$O(^SDEC( 409.85,ARI EN,2,"B",D IEN,SDJ)) Q:SDJ="" D | ||
8641 | "RTN","SDE CAR2",295, 0) | ||
8642 | ...S SDFD A(409.852, SDJ_","_AR IEN_",",.0 1)="@" | ||
8643 | "RTN","SDE CAR2",296, 0) | ||
8644 | ...D UPDA TE^DIE("", "SDFDA") | ||
8645 | "RTN","SDE CAR2",297, 0) | ||
8646 | Q | ||
8647 | "RTN","SDE CAR2",298, 0) | ||
8648 | AR438(ARIE N,SDPARENT ,SDEC) ;se t PARENT R EQUEST fie ld 43.8; s et as chil d in MULTA PPTS MADE in parent request | ||
8649 | "RTN","SDE CAR2",299, 0) | ||
8650 | N SDFDA | ||
8651 | "RTN","SDE CAR2",300, 0) | ||
8652 | I $G(SDPA RENT)'="" S SDFDA(40 9.85,ARIEN _",",43.8) =SDPARENT D UPDATE^D IE("","SDF DA") | ||
8653 | "RTN","SDE CAR2",301, 0) | ||
8654 | Q | ||
8655 | "RTN","SDE CAR2",302, 0) | ||
8656 | ; | ||
8657 | "RTN","SDE CAR2",303, 0) | ||
8658 | AR435(SDDT ,ARIEN) ;s et dates i nto MRTC C ALC PREF D ATES multi ple field 43.5 | ||
8659 | "RTN","SDE CAR2",304, 0) | ||
8660 | ;INPUT: | ||
8661 | "RTN","SDE CAR2",305, 0) | ||
8662 | ; ARIEN - Requested date ID p ointer to SDEC REQUE STED APPT file 409.8 5 | ||
8663 | "RTN","SDE CAR2",306, 0) | ||
8664 | ; SDDT - MRTC calc ulated pre ferred dat es separat ed by pipe |: | ||
8665 | "RTN","SDE CAR2",307, 0) | ||
8666 | ; Each date can be in external format wit h no time. | ||
8667 | "RTN","SDE CAR2",308, 0) | ||
8668 | N SDI,SDJ ,SDFDA,X,Y ,%DT | ||
8669 | "RTN","SDE CAR2",309, 0) | ||
8670 | F SDI=1:1 :$L(SDDT," |") D | ||
8671 | "RTN","SDE CAR2",310, 0) | ||
8672 | .S %DT="" S X=$P($P (SDDT,"|", SDI),"@",1 ) D ^%DT S SDJ=Y | ||
8673 | "RTN","SDE CAR2",311, 0) | ||
8674 | .Q:SDJ=-1 | ||
8675 | "RTN","SDE CAR2",312, 0) | ||
8676 | .Q:$O(^SD EC(409.85, ARIEN,5,"B ",SDJ,0)) ;don't a dd duplica tes | ||
8677 | "RTN","SDE CAR2",313, 0) | ||
8678 | .S SDFDA( 409.851,"+ 1,"_ARIEN_ ",",.01)=S DJ | ||
8679 | "RTN","SDE CAR2",314, 0) | ||
8680 | .D UPDATE ^DIE("","S DFDA") | ||
8681 | "RTN","SDE CAR2",315, 0) | ||
8682 | Q | ||
8683 | "RTN","SDE CAR2",316, 0) | ||
8684 | ; | ||
8685 | "RTN","SDE CAR2",317, 0) | ||
8686 | WLACT(NAME ) ; | ||
8687 | "RTN","SDE CAR2",318, 0) | ||
8688 | N ACTIVE, H | ||
8689 | "RTN","SDE CAR2",319, 0) | ||
8690 | S ACTIVE= "" | ||
8691 | "RTN","SDE CAR2",320, 0) | ||
8692 | S H="" F S H=$O(^D IC(40.7,"B ",NAME,H)) Q:H="" D Q:ACTIVE '="" | ||
8693 | "RTN","SDE CAR2",321, 0) | ||
8694 | .I $P(^DI C(40.7,H,0 ),U,3)'="" ,$P(^DIC(4 0.7,H,0),U ,3)<$$NOW^ XLFDT() Q | ||
8695 | "RTN","SDE CAR2",322, 0) | ||
8696 | .S ACTIVE =H | ||
8697 | "RTN","SDE CAR2",323, 0) | ||
8698 | Q ACTIVE | ||
8699 | "RTN","SDE CAR2",324, 0) | ||
8700 | ; | ||
8701 | "RTN","SDE CAR2",325, 0) | ||
8702 | AR23(INP17 ,ARI) ;Pat ient Conta cts | ||
8703 | "RTN","SDE CAR2",326, 0) | ||
8704 | N STR17,A RASD,ARASD H,ARDATA1, ARERR1,ARI 1,ARIENS,A RIENS1,ARR ET1,FDA | ||
8705 | "RTN","SDE CAR2",327, 0) | ||
8706 | N ARDT,AR USR,X,Y,%D T | ||
8707 | "RTN","SDE CAR2",328, 0) | ||
8708 | S ARIENS= ARI_"," | ||
8709 | "RTN","SDE CAR2",329, 0) | ||
8710 | F ARI1=1: 1:$L(INP17 ,"::") D | ||
8711 | "RTN","SDE CAR2",330, 0) | ||
8712 | .S STR17= $P(INP17," ::",ARI1) | ||
8713 | "RTN","SDE CAR2",331, 0) | ||
8714 | .K FDA | ||
8715 | "RTN","SDE CAR2",332, 0) | ||
8716 | .S %DT="T " S X=$P($ P(STR17,"~ ~",1),":", 1,2) D ^%D T S ARASD= Y | ||
8717 | "RTN","SDE CAR2",333, 0) | ||
8718 | .I (ARASD =-1)!(ARAS D="") Q | ||
8719 | "RTN","SDE CAR2",334, 0) | ||
8720 | .S ARDT=$ P($P(STR17 ,"~~",1)," :",1,2) | ||
8721 | "RTN","SDE CAR2",335, 0) | ||
8722 | .S ARASDH ="" ;$O( ^SDEC(409. 85,ARI,4," B",ARASD,0 )) | ||
8723 | "RTN","SDE CAR2",336, 0) | ||
8724 | .S ARIENS 1=$S(ARASD H'="":ARAS DH,1:"+1") _","_ARIEN S | ||
8725 | "RTN","SDE CAR2",337, 0) | ||
8726 | .S FDA=$N A(FDA(409. 8544,ARIEN S1)) | ||
8727 | "RTN","SDE CAR2",338, 0) | ||
8728 | .I ARASDH '="" D | ||
8729 | "RTN","SDE CAR2",339, 0) | ||
8730 | ..D GETS^ DIQ(409.85 44,ARIENS1 ,"*","IE", "ARDATA1", "ARERR1") | ||
8731 | "RTN","SDE CAR2",340, 0) | ||
8732 | ..I $P(ST R17,"~~",1 )'="" S @F DA@(.01)=A RDT ;DATE ENTERED ex ternal dat e/time | ||
8733 | "RTN","SDE CAR2",341, 0) | ||
8734 | ..I $P(ST R17,"~~",2 )'="" S AR USR=$P(STR 17,"~~",2) S @FDA@(2 )=$S(ARUSR ="":"@",+A RUSR:$P($G (^VA(200,A RUSR,0)),U ,1),1:ARUS ER) ;PC E NTERED BY USER | ||
8735 | "RTN","SDE CAR2",342, 0) | ||
8736 | ..I $P(ST R17,"~~",4 )'="" S @F DA@(3)=$P( STR17,"~~" ,4) ;A CTION C=C alled; M=M essage Lef t; L=LETTE R | ||
8737 | "RTN","SDE CAR2",343, 0) | ||
8738 | ..I $P(ST R17,"~~",5 )'="" S @F DA@(4)=$P( STR17,"~~" ,5) ;P ATIENT PHO NE | ||
8739 | "RTN","SDE CAR2",344, 0) | ||
8740 | ..;I $P(S TR17,"~~", 6)'="" S @ FDA@(5)=$E ($P(STR17, "~~",6),1, 160) ; COMMENT | ||
8741 | "RTN","SDE CAR2",345, 0) | ||
8742 | .I ARASDH ="" D | ||
8743 | "RTN","SDE CAR2",346, 0) | ||
8744 | ..I $P(ST R17,"~~",1 )'="" S @F DA@(.01)=A RDT ;DATE ENTERED ex ternal dat e/time | ||
8745 | "RTN","SDE CAR2",347, 0) | ||
8746 | ..I $P(ST R17,"~~",2 )'="" S AR USR=$P(STR 17,"~~",2) S @FDA@(2 )=$S(ARUSR ="":"@",+A RUSR:$P($G (^VA(200,A RUSR,0)),U ,1),1:ARUS R) ;PC ENTERED B Y USER | ||
8747 | "RTN","SDE CAR2",348, 0) | ||
8748 | ..I $P(ST R17,"~~",4 )'="" S @F DA@(3)=$P( STR17,"~~" ,4) ;A CTION C=C alled; M=M essage Lef t; L=LETTE R | ||
8749 | "RTN","SDE CAR2",349, 0) | ||
8750 | ..I $P(ST R17,"~~",5 )'="" S @F DA@(4)=$P( STR17,"~~" ,5) ;P ATIENT PHO NE | ||
8751 | "RTN","SDE CAR2",350, 0) | ||
8752 | ..;I $P(S TR17,"~~", 6)'="" S @ FDA@(5)=$E ($P(STR17, "~~",6),1, 160) ; COMMENT | ||
8753 | "RTN","SDE CAR2",351, 0) | ||
8754 | .D:$D(@FD A) UPDATE^ DIE("E","F DA","ARRET 1","ARMSG1 ") | ||
8755 | "RTN","SDE CAR2",352, 0) | ||
8756 | Q | ||
8757 | "RTN","SDE CAR2",353, 0) | ||
8758 | UPDATE(ARI EN,APPDT,S DCL,SVCP,S VCPR,NOTE, SDAPPTYP) ;update RE Q APPT REQ UEST at ap ointment a dd | ||
8759 | "RTN","SDE CAR2",354, 0) | ||
8760 | ;INPUT: | ||
8761 | "RTN","SDE CAR2",355, 0) | ||
8762 | ; ARIEN = Appt Req uest point er to SD W AIT LIST f ile 409.85 | ||
8763 | "RTN","SDE CAR2",356, 0) | ||
8764 | ; APPDT = Appointm ent date/t ime (Sched uled Date of appt) i n fm forma t | ||
8765 | "RTN","SDE CAR2",357, 0) | ||
8766 | ; SDCL = Clinic I D pointer to HOSPITA L LOCATION file 44 | ||
8767 | "RTN","SDE CAR2",358, 0) | ||
8768 | ; SVCP = Service Connected Percentage numeric 0 -100 | ||
8769 | "RTN","SDE CAR2",359, 0) | ||
8770 | ; SVCPR = Service Connected Priority 0:NO 1:YE S | ||
8771 | "RTN","SDE CAR2",360, 0) | ||
8772 | ; NOTE = Comment only 1st 6 0 characte rs are use d | ||
8773 | "RTN","SDE CAR2",361, 0) | ||
8774 | ; SDAPPT YP = (opti onal) Appo intment ty pe ID poin ter to APP OINTMENT T YPE file 4 09.1 | ||
8775 | "RTN","SDE CAR2",362, 0) | ||
8776 | ; | ||
8777 | "RTN","SDE CAR2",363, 0) | ||
8778 | ;all inpu t must be verified b y calling routine | ||
8779 | "RTN","SDE CAR2",364, 0) | ||
8780 | N SDDIV,S DFDA,SDSN, SDMSG | ||
8781 | "RTN","SDE CAR2",365, 0) | ||
8782 | S:+$G(SDA PPTYP) SDF DA(409.85, ARIEN_",", 8.7)=SDAPP TYP | ||
8783 | "RTN","SDE CAR2",366, 0) | ||
8784 | S SDFDA(4 09.85,ARIE N_",",13)= APPDT ;SCH EDULED DAT EOF APPT = APP DT (SDECS TART) | ||
8785 | "RTN","SDE CAR2",367, 0) | ||
8786 | S SDFDA(4 09.85,ARIE N_",",13.1 )=$P($$NOW ^XLFDT,"." ,1) ;DAT E APPT. MA DE= TODAY | ||
8787 | "RTN","SDE CAR2",368, 0) | ||
8788 | S SDFDA(4 09.85,ARIE N_",",13.2 )=SDCL ;APP T CLINIC= SDCL (SD ECSCD) | ||
8789 | "RTN","SDE CAR2",369, 0) | ||
8790 | S SDFDA(4 09.85,ARIE N_",",13.3 )=$P($G(^S C(SDCL,0)) ,U,4) ;APP T INSTITUT ION = Ge t from 44 using SDCL | ||
8791 | "RTN","SDE CAR2",370, 0) | ||
8792 | S SDFDA(4 09.85,ARIE N_",",13.4 )=$P($G(^S C(SDCL,0)) ,U,7) ;APP T STOP COD E= Get fro m 44 using SDCL | ||
8793 | "RTN","SDE CAR2",371, 0) | ||
8794 | S SDDIV=$ P($G(^SC(S DCL,0)),U, 15) | ||
8795 | "RTN","SDE CAR2",372, 0) | ||
8796 | S SDSN=$S (SDDIV'="" :$P($G(^DG (40.8,SDDI V,0)),U,2) ,1:"") | ||
8797 | "RTN","SDE CAR2",373, 0) | ||
8798 | S SDFDA(4 09.85,ARIE N_",",13.6 )=SDSN ;APP T STATION NUMBER | ||
8799 | "RTN","SDE CAR2",374, 0) | ||
8800 | S SDFDA(4 09.85,ARIE N_",",13.7 )=DUZ ;APP T CLERK= C urrent Use r | ||
8801 | "RTN","SDE CAR2",375, 0) | ||
8802 | S SDFDA(4 09.85,ARIE N_",",13.8 )="R" ;APP T STATUS= R:Schedule d/Kept | ||
8803 | "RTN","SDE CAR2",376, 0) | ||
8804 | S:SVCP'=" " SDFDA(40 9.85,ARIEN _",",14)=S VCP ;SERV ICE CONNEC TED PERCEN TAGE = SVC P (SDSVC P) | ||
8805 | "RTN","SDE CAR2",377, 0) | ||
8806 | S:SVCPR'= "" SDFDA(4 09.85,ARIE N_",",15)= SVCPR ;SER VICE CONNE CTED PRIOR ITY = SV CPR (SDSV CPR) | ||
8807 | "RTN","SDE CAR2",378, 0) | ||
8808 | S:$G(NOTE )'="" SDFD A(409.85,A RIEN_",",2 5)=NOTE | ||
8809 | "RTN","SDE CAR2",379, 0) | ||
8810 | D UPDATE^ DIE("","SD FDA","","S DMSG") | ||
8811 | "RTN","SDE CAR2",380, 0) | ||
8812 | Q | ||
8813 | "RTN","SDE CAUD") | ||
8814 | 0^2^B10112 1122^n/a | ||
8815 | "RTN","SDE CAUD",1,0) | ||
8816 | SDECAUD ; ALB/WTC - VISTA SCHE DULING - A udit Stati stics Comp iler ; | ||
8817 | "RTN","SDE CAUD",2,0) | ||
8818 | ;;5.3;Sch eduling;** 686**;Aug 13, 1993;B uild 39 | ||
8819 | "RTN","SDE CAUD",3,0) | ||
8820 | ;;Per VHA Directive 2004-038, this rout ine should not be mo dified | ||
8821 | "RTN","SDE CAUD",4,0) | ||
8822 | ; | ||
8823 | "RTN","SDE CAUD",5,0) | ||
8824 | Q ; | ||
8825 | "RTN","SDE CAUD",6,0) | ||
8826 | ; | ||
8827 | "RTN","SDE CAUD",7,0) | ||
8828 | BKGND ; | ||
8829 | "RTN","SDE CAUD",8,0) | ||
8830 | ; | ||
8831 | "RTN","SDE CAUD",9,0) | ||
8832 | ; Com pile stati stics for yesterday. | ||
8833 | "RTN","SDE CAUD",10,0 ) | ||
8834 | ; | ||
8835 | "RTN","SDE CAUD",11,0 ) | ||
8836 | D COMP ILE() ; | ||
8837 | "RTN","SDE CAUD",12,0 ) | ||
8838 | Q ; | ||
8839 | "RTN","SDE CAUD",13,0 ) | ||
8840 | ; | ||
8841 | "RTN","SDE CAUD",14,0 ) | ||
8842 | SELECT ; | ||
8843 | "RTN","SDE CAUD",15,0 ) | ||
8844 | ; | ||
8845 | "RTN","SDE CAUD",16,0 ) | ||
8846 | ; Com pile stati stics for selected d ate or ran ge of date s. | ||
8847 | "RTN","SDE CAUD",17,0 ) | ||
8848 | ; | ||
8849 | "RTN","SDE CAUD",18,0 ) | ||
8850 | N DATE ,DATE1,DAT E2,%DT,Y,I ,X1,X2,X,T ODAY ; | ||
8851 | "RTN","SDE CAUD",19,0 ) | ||
8852 | ; | ||
8853 | "RTN","SDE CAUD",20,0 ) | ||
8854 | D NOW^ %DTC S TOD AY=X ; | ||
8855 | "RTN","SDE CAUD",21,0 ) | ||
8856 | W !,"C ompile aud it statist ics for a date or da te range." ,! ; | ||
8857 | "RTN","SDE CAUD",22,0 ) | ||
8858 | SELECT1 ; | ||
8859 | "RTN","SDE CAUD",23,0 ) | ||
8860 | S %DT= "AEX",%DT( "A")="Begi n date: " D ^%DT Q:Y <0 I Y'<T ODAY W ".. .Must be e arlier tha n today.", ! G SELECT 1 ; | ||
8861 | "RTN","SDE CAUD",24,0 ) | ||
8862 | S DATE 1=Y ; | ||
8863 | "RTN","SDE CAUD",25,0 ) | ||
8864 | SELECT2 ; | ||
8865 | "RTN","SDE CAUD",26,0 ) | ||
8866 | S %DT= "AEX",%DT( "A")="End date: " D ^%DT Q:Y<0 I Y'<TOD AY W "...M ust be ear lier than today.",! G SELECT2 ; | ||
8867 | "RTN","SDE CAUD",27,0 ) | ||
8868 | S DATE 2=Y ; | ||
8869 | "RTN","SDE CAUD",28,0 ) | ||
8870 | I DATE 1>DATE2 W "... Dates entered o ut of sequ ence. Re- enter.",! G SELECT ; | ||
8871 | "RTN","SDE CAUD",29,0 ) | ||
8872 | ; | ||
8873 | "RTN","SDE CAUD",30,0 ) | ||
8874 | ; Com pile data for each d ate in ran ge but ski p a date i f compile previously run for t hat date. | ||
8875 | "RTN","SDE CAUD",31,0 ) | ||
8876 | ; | ||
8877 | "RTN","SDE CAUD",32,0 ) | ||
8878 | F I=0: 1 S X1=DAT E1,X2=I D C^%DTC S D ATE=X Q:DA TE>DATE2 D ; | ||
8879 | "RTN","SDE CAUD",33,0 ) | ||
8880 | . W ! S Y=DATE D DD^%DT W Y ; | ||
8881 | "RTN","SDE CAUD",34,0 ) | ||
8882 | . I $D (^SDAUDIT( "C",DATE)) W "...pre viously co mpiled. S kipped." Q ; | ||
8883 | "RTN","SDE CAUD",35,0 ) | ||
8884 | . D CO MPILE(DATE ) W "...co mpiled." ; | ||
8885 | "RTN","SDE CAUD",36,0 ) | ||
8886 | Q ; | ||
8887 | "RTN","SDE CAUD",37,0 ) | ||
8888 | ; | ||
8889 | "RTN","SDE CAUD",38,0 ) | ||
8890 | COMPILE(DA TE) ; | ||
8891 | "RTN","SDE CAUD",39,0 ) | ||
8892 | ; | ||
8893 | "RTN","SDE CAUD",40,0 ) | ||
8894 | ; Com pile audit statistic s for a da te. If da te not spe cified, us e yesterda y. | ||
8895 | "RTN","SDE CAUD",41,0 ) | ||
8896 | ; | ||
8897 | "RTN","SDE CAUD",42,0 ) | ||
8898 | K ^TMP ($J) ; | ||
8899 | "RTN","SDE CAUD",43,0 ) | ||
8900 | N D1,C LERK,DA,X, TYPE,MRTC, APPTDATE,S TATUS,PIEC E,GLOBAL,D IC,DA1,DLA YGO,FLD ; | ||
8901 | "RTN","SDE CAUD",44,0 ) | ||
8902 | ; | ||
8903 | "RTN","SDE CAUD",45,0 ) | ||
8904 | I $G(D ATE)="" S DATE=$$HTF M^XLFDT($H -1,1) ; | ||
8905 | "RTN","SDE CAUD",46,0 ) | ||
8906 | ; | ||
8907 | "RTN","SDE CAUD",47,0 ) | ||
8908 | ; Do not compil e if done previously . | ||
8909 | "RTN","SDE CAUD",48,0 ) | ||
8910 | ; | ||
8911 | "RTN","SDE CAUD",49,0 ) | ||
8912 | I $D(^ SDAUDIT("C ",DATE)) Q ; | ||
8913 | "RTN","SDE CAUD",50,0 ) | ||
8914 | ; | ||
8915 | "RTN","SDE CAUD",51,0 ) | ||
8916 | ; Loo p thru dat e/user cro ss-referen ce in the SDEC APPT REQUEST fi le (#409.8 5) and cou nt APPT an d MRTC Req uests open ed. | ||
8917 | "RTN","SDE CAUD",52,0 ) | ||
8918 | ; | ||
8919 | "RTN","SDE CAUD",53,0 ) | ||
8920 | S D1=D ATE-.001 F S D1=$O( ^SDEC(409. 85,"AC",D1 )) Q:'D1 Q:D1\1'=DA TE D ; | ||
8921 | "RTN","SDE CAUD",54,0 ) | ||
8922 | . ; | ||
8923 | "RTN","SDE CAUD",55,0 ) | ||
8924 | . S CLERK=0 F S CLERK=$ O(^SDEC(40 9.85,"AC", D1,CLERK)) Q:'CLERK D ; | ||
8925 | "RTN","SDE CAUD",56,0 ) | ||
8926 | .. ; | ||
8927 | "RTN","SDE CAUD",57,0 ) | ||
8928 | .. ; Initialize statistic s counters for the u ser. | ||
8929 | "RTN","SDE CAUD",58,0 ) | ||
8930 | .. ; | ||
8931 | "RTN","SDE CAUD",59,0 ) | ||
8932 | .. I '$D(^TMP($ J,CLERK,DA TE)) S ^TM P($J,CLERK ,DATE)="0^ 0^0^0^0^0^ 0^0^0^0^0^ 0^0" ; | ||
8933 | "RTN","SDE CAUD",60,0 ) | ||
8934 | .. ; | ||
8935 | "RTN","SDE CAUD",61,0 ) | ||
8936 | .. S DA=0 F S DA=$O(^SDE C(409.85," AC",D1,CLE RK,DA)) Q: 'DA S X=^ SDEC(409.8 5,DA,0) D ; | ||
8937 | "RTN","SDE CAUD",62,0 ) | ||
8938 | ... ; | ||
8939 | "RTN","SDE CAUD",63,0 ) | ||
8940 | ... ; Parse req uest data | ||
8941 | "RTN","SDE CAUD",64,0 ) | ||
8942 | ... ; | ||
8943 | "RTN","SDE CAUD",65,0 ) | ||
8944 | ... S TYPE=$P(X, "^",5),APP TDATE=$P(X ,"^",23),S TATUS=$P(X ,"^",17) ; | ||
8945 | "RTN","SDE CAUD",66,0 ) | ||
8946 | ... S MRTC=+$P($ G(^SDEC(40 9.85,DA,3) ),"^",1) ; | ||
8947 | "RTN","SDE CAUD",67,0 ) | ||
8948 | ... ; | ||
8949 | "RTN","SDE CAUD",68,0 ) | ||
8950 | ... ; APPT requ est made | ||
8951 | "RTN","SDE CAUD",69,0 ) | ||
8952 | ... ; | ||
8953 | "RTN","SDE CAUD",70,0 ) | ||
8954 | ... I TYPE="APPT ",MRTC=0 S $P(^(DATE ),"^",2)=$ P(^TMP($J, CLERK,DATE ),"^",2)+1 ; | ||
8955 | "RTN","SDE CAUD",71,0 ) | ||
8956 | ... ; | ||
8957 | "RTN","SDE CAUD",72,0 ) | ||
8958 | ... ; MRTC requ est | ||
8959 | "RTN","SDE CAUD",73,0 ) | ||
8960 | ... ; | ||
8961 | "RTN","SDE CAUD",74,0 ) | ||
8962 | ... I MRTC=1 S $ P(^(DATE), "^",5)=$P( ^TMP($J,CL ERK,DATE), "^",5)+1 ; | ||
8963 | "RTN","SDE CAUD",75,0 ) | ||
8964 | ; | ||
8965 | "RTN","SDE CAUD",76,0 ) | ||
8966 | ; L oop thru d ate/user c ross-refer ence in th e RECALL R EMINDERS f ile (#403. 5) and cou nt PtCSch entries ad ded. | ||
8967 | "RTN","SDE CAUD",77,0 ) | ||
8968 | ; | ||
8969 | "RTN","SDE CAUD",78,0 ) | ||
8970 | S D1=D ATE-.001 F S D1=$O( ^SD(403.5, "AC",D1)) Q:'D1 Q:D 1\1'=DATE D ; | ||
8971 | "RTN","SDE CAUD",79,0 ) | ||
8972 | . ; | ||
8973 | "RTN","SDE CAUD",80,0 ) | ||
8974 | . S CLERK=0 F S CLERK=$ O(^SD(403. 5,"AC",D1, CLERK)) Q: 'CLERK D ; | ||
8975 | "RTN","SDE CAUD",81,0 ) | ||
8976 | .. ; | ||
8977 | "RTN","SDE CAUD",82,0 ) | ||
8978 | .. I '$D(^TMP($ J,CLERK,DA TE)) S ^TM P($J,CLERK ,DATE)="0^ 0^0^0^0^0^ 0^0^0^0^0^ 0^0" ; | ||
8979 | "RTN","SDE CAUD",83,0 ) | ||
8980 | .. S $P(^(DATE) ,"^",10)=$ P(^TMP($J, CLERK,DATE ),"^",10)+ 1 ; | ||
8981 | "RTN","SDE CAUD",84,0 ) | ||
8982 | ; | ||
8983 | "RTN","SDE CAUD",85,0 ) | ||
8984 | ; L oop thru d ate/user c ross-refer ence in th e SD WAIT LIST file (#409.3) a nd count E WL entries made. | ||
8985 | "RTN","SDE CAUD",86,0 ) | ||
8986 | ; | ||
8987 | "RTN","SDE CAUD",87,0 ) | ||
8988 | S D1=D ATE-.001 F S D1=$O( ^SDWL(409. 3,"AC",D1) ) Q:'D1 Q :D1\1'=DAT E D ; | ||
8989 | "RTN","SDE CAUD",88,0 ) | ||
8990 | . ; | ||
8991 | "RTN","SDE CAUD",89,0 ) | ||
8992 | . S CLERK=0 F S CLERK=$ O(^SDWL(40 9.3,"AC",D 1,CLERK)) Q:'CLERK D ; | ||
8993 | "RTN","SDE CAUD",90,0 ) | ||
8994 | .. ; | ||
8995 | "RTN","SDE CAUD",91,0 ) | ||
8996 | .. I '$D(^TMP($ J,CLERK,DA TE)) S ^TM P($J,CLERK ,DATE)="0^ 0^0^0^0^0^ 0^0^0^0^0^ 0^0" ; | ||
8997 | "RTN","SDE CAUD",92,0 ) | ||
8998 | .. S $P(^(DATE) ,"^",7)=$P (^TMP($J,C LERK,DATE) ,"^",7)+1 ; | ||
8999 | "RTN","SDE CAUD",93,0 ) | ||
9000 | ; | ||
9001 | "RTN","SDE CAUD",94,0 ) | ||
9002 | ; Lo op thru da te appoint ment made cross-refe rence in t he SDEC AP POINTMENT file (#409 .84) and c ount appoi ntments | ||
9003 | "RTN","SDE CAUD",95,0 ) | ||
9004 | ; ma de by type (EWL, Con sult, PtCS ch, APPT). Incremen t request closed for each appo intment ma de. | ||
9005 | "RTN","SDE CAUD",96,0 ) | ||
9006 | ; | ||
9007 | "RTN","SDE CAUD",97,0 ) | ||
9008 | S DA=0 F S DA=$ O(^SDEC(40 9.84,"AC", DATE,DA)) Q:'DA S C LERK=$P(^S DEC(409.84 ,DA,0),"^" ,8),TYPE=$ P($G(^SDEC (409.84,DA ,2)),"^",1 ) D ; | ||
9009 | "RTN","SDE CAUD",98,0 ) | ||
9010 | . ; | ||
9011 | "RTN","SDE CAUD",99,0 ) | ||
9012 | . Q: CLERK="" ; Skip if data miss ing | ||
9013 | "RTN","SDE CAUD",100, 0) | ||
9014 | . ; | ||
9015 | "RTN","SDE CAUD",101, 0) | ||
9016 | . S PIECE=$S($ P(TYPE,";" ,2)="SDWL( 409.3,":8, $P(TYPE,"; ",2)="GMR( 123,":12,$ P(TYPE,";" ,2)="SD(40 3.5,":11,$ P(TYPE,";" ,2)="SDEC( 409.85,":3 ,1:0) ; | ||
9017 | "RTN","SDE CAUD",102, 0) | ||
9018 | . Q: 'PIECE ; | ||
9019 | "RTN","SDE CAUD",103, 0) | ||
9020 | . I '$D(^TMP($ J,CLERK,DA TE)) S ^TM P($J,CLERK ,DATE)="0^ 0^0^0^0^0^ 0^0^0^0^0^ 0^0" ; | ||
9021 | "RTN","SDE CAUD",104, 0) | ||
9022 | . ; | ||
9023 | "RTN","SDE CAUD",105, 0) | ||
9024 | . ; Update ap pointment made. | ||
9025 | "RTN","SDE CAUD",106, 0) | ||
9026 | . ; | ||
9027 | "RTN","SDE CAUD",107, 0) | ||
9028 | . S $P(^(DATE) ,"^",PIECE )=$P(^TMP( $J,CLERK,D ATE),"^",P IECE)+1 ; | ||
9029 | "RTN","SDE CAUD",108, 0) | ||
9030 | . ; | ||
9031 | "RTN","SDE CAUD",109, 0) | ||
9032 | . ; Update AP PT or EWL request cl osed. | ||
9033 | "RTN","SDE CAUD",110, 0) | ||
9034 | . ; | ||
9035 | "RTN","SDE CAUD",111, 0) | ||
9036 | . S PIECE=$S($ P(TYPE,";" ,2)="SDWL( 409.3,":9, $P(TYPE,"; ",2)="SDEC (409.85,": 4,1:0) Q:' PIECE ; | ||
9037 | "RTN","SDE CAUD",112, 0) | ||
9038 | . ; | ||
9039 | "RTN","SDE CAUD",113, 0) | ||
9040 | . ; Determine if APPT r equest is MRTC | ||
9041 | "RTN","SDE CAUD",114, 0) | ||
9042 | . ; | ||
9043 | "RTN","SDE CAUD",115, 0) | ||
9044 | . I $P(TYPE,"; ",2)="SDEC (409.85," S PTR=$P(T YPE,";",1) ,MRTC=+$P( $G(^SDEC(4 09.85,PTR, 3)),"^",1) I MRTC S PIECE=6 ; | ||
9045 | "RTN","SDE CAUD",116, 0) | ||
9046 | . ; | ||
9047 | "RTN","SDE CAUD",117, 0) | ||
9048 | . ; Update re quest clos ed | ||
9049 | "RTN","SDE CAUD",118, 0) | ||
9050 | . ; | ||
9051 | "RTN","SDE CAUD",119, 0) | ||
9052 | . S $P(^(DATE) ,"^",PIECE )=$P(^TMP( $J,CLERK,D ATE),"^",P IECE)+1 ; | ||
9053 | "RTN","SDE CAUD",120, 0) | ||
9054 | ; | ||
9055 | "RTN","SDE CAUD",121, 0) | ||
9056 | ; L oop thru d ate appoin tment canc elled cros s-referenc e in the S DEC APPOIN TMENT file (#409.84) and count cancellat ions. | ||
9057 | "RTN","SDE CAUD",122, 0) | ||
9058 | ; | ||
9059 | "RTN","SDE CAUD",123, 0) | ||
9060 | S D1=D ATE-.001 F S D1=$O( ^SDEC(409. 84,"AD",D1 )) Q:'D1 Q:D1\1'=DA TE D ; | ||
9061 | "RTN","SDE CAUD",124, 0) | ||
9062 | . ; | ||
9063 | "RTN","SDE CAUD",125, 0) | ||
9064 | . S DA=0 F S DA=$O(^SDE C(409.84," AD",D1,DA) ) Q:'DA S CLERK=$P( ^SDEC(409. 84,DA,0)," ^",21) D ; | ||
9065 | "RTN","SDE CAUD",126, 0) | ||
9066 | .. ; | ||
9067 | "RTN","SDE CAUD",127, 0) | ||
9068 | .. Q: CLERK="" ; Skip if data is m issing | ||
9069 | "RTN","SDE CAUD",128, 0) | ||
9070 | .. ; | ||
9071 | "RTN","SDE CAUD",129, 0) | ||
9072 | .. I '$D(^TMP($ J,CLERK,DA TE)) S ^TM P($J,CLERK ,DATE)="0^ 0^0^0^0^0^ 0^0^0^0^0^ 0^0" ; | ||
9073 | "RTN","SDE CAUD",130, 0) | ||
9074 | .. S $P(^(DATE) ,"^",13)=$ P(^TMP($J, CLERK,DATE ),"^",13)+ 1 ; | ||
9075 | "RTN","SDE CAUD",131, 0) | ||
9076 | ; | ||
9077 | "RTN","SDE CAUD",132, 0) | ||
9078 | ; L oop thru d ate/time-u ser cross- reference in SDEC CO NTACTS fil e (#409.86 ) and coun t contacts . | ||
9079 | "RTN","SDE CAUD",133, 0) | ||
9080 | ; | ||
9081 | "RTN","SDE CAUD",134, 0) | ||
9082 | S D1=D ATE-.001 F S D1=$O( ^SDEC(409. 86,"AD",D1 )) Q:'D1 Q:D1\1'=DA TE D ; | ||
9083 | "RTN","SDE CAUD",135, 0) | ||
9084 | . ; | ||
9085 | "RTN","SDE CAUD",136, 0) | ||
9086 | . S CLERK=0 F S CLERK=$ O(^SDEC(40 9.86,"AD", D1,CLERK)) Q:'CLERK D ; | ||
9087 | "RTN","SDE CAUD",137, 0) | ||
9088 | .. ; | ||
9089 | "RTN","SDE CAUD",138, 0) | ||
9090 | .. S DA=0 F S DA=$O(^SDE C(409.86," AD",D1,CLE RK,DA)) Q: 'DA D ; | ||
9091 | "RTN","SDE CAUD",139, 0) | ||
9092 | ... S DA1=0 F S DA1=$O(^S DEC(409.86 ,"AD",D1,C LERK,DA,DA 1)) Q:'DA1 D ; | ||
9093 | "RTN","SDE CAUD",140, 0) | ||
9094 | .... I '$D(^T MP($J,CLER K,DATE)) S ^TMP($J,C LERK,DATE) ="0^0^0^0^ 0^0^0^0^0^ 0^0^0^0" ; | ||
9095 | "RTN","SDE CAUD",141, 0) | ||
9096 | .... S $P(^(D ATE),"^",1 )=$P(^TMP( $J,CLERK,D ATE),"^",1 )+1 ; | ||
9097 | "RTN","SDE CAUD",142, 0) | ||
9098 | ; | ||
9099 | "RTN","SDE CAUD",143, 0) | ||
9100 | ; | ||
9101 | "RTN","SDE CAUD",144, 0) | ||
9102 | ; Upd ate the SD Audit Sta tistics fi le (#409.9 7) | ||
9103 | "RTN","SDE CAUD",145, 0) | ||
9104 | ; | ||
9105 | "RTN","SDE CAUD",146, 0) | ||
9106 | S GLOB AL=^DIC(40 9.97,0,"GL ") ; | ||
9107 | "RTN","SDE CAUD",147, 0) | ||
9108 | S CLER K=0 F S C LERK=$O(^T MP($J,CLER K)) Q:'CLE RK D ; | ||
9109 | "RTN","SDE CAUD",148, 0) | ||
9110 | . ; | ||
9111 | "RTN","SDE CAUD",149, 0) | ||
9112 | . K DO S DIC=G LOBAL,DIC( 0)="FL",DL AYGO="409. 97",X=CLER K,DIC("DR" )="1////"_ DATE ; | ||
9113 | "RTN","SDE CAUD",150, 0) | ||
9114 | . F FLD=2:1:14 S DIC("DR ")=DIC("DR ")_";"_FLD _"////"_$P (^TMP($J,C LERK,DATE) ,"^",FLD-1 ) ; | ||
9115 | "RTN","SDE CAUD",151, 0) | ||
9116 | . D FILE^DICN ; | ||
9117 | "RTN","SDE CAUD",152, 0) | ||
9118 | ; | ||
9119 | "RTN","SDE CAUD",153, 0) | ||
9120 | K ^TMP ($J) ; | ||
9121 | "RTN","SDE CAUD",154, 0) | ||
9122 | ; | ||
9123 | "RTN","SDE CAUD",155, 0) | ||
9124 | Q ; | ||
9125 | "RTN","SDE CAUD",156, 0) | ||
9126 | ; | ||
9127 | "RTN","SDE CAUD",157, 0) | ||
9128 | ;*zeb+ tag 2/28/1 8 686 retu rn compile d data | ||
9129 | "RTN","SDE CAUD",158, 0) | ||
9130 | ;----- ---------- ----- | ||
9131 | "RTN","SDE CAUD",159, 0) | ||
9132 | ;SUMMG ET2 - Retu rn compile d Audit Re port data via RPC | ||
9133 | "RTN","SDE CAUD",160, 0) | ||
9134 | ;----- ---------- ----- | ||
9135 | "RTN","SDE CAUD",161, 0) | ||
9136 | ;Param eters | ||
9137 | "RTN","SDE CAUD",162, 0) | ||
9138 | ;----- ----- | ||
9139 | "RTN","SDE CAUD",163, 0) | ||
9140 | ;SDECR ET - globa l referenc e to array with retu rn values | ||
9141 | "RTN","SDE CAUD",164, 0) | ||
9142 | ;SDBEG - start date for reporting; defaults to 1/2/184 1 | ||
9143 | "RTN","SDE CAUD",165, 0) | ||
9144 | ;SDEND - end d ate for re porting; d efaults to 10/15/211 4 | ||
9145 | "RTN","SDE CAUD",166, 0) | ||
9146 | ;USER - IEN o f a user t o report o n; default s to all u sers | ||
9147 | "RTN","SDE CAUD",167, 0) | ||
9148 | ;----- ----- | ||
9149 | "RTN","SDE CAUD",168, 0) | ||
9150 | ;Retur ns (one ro w for each user) | ||
9151 | "RTN","SDE CAUD",169, 0) | ||
9152 | ;----- ----- | ||
9153 | "RTN","SDE CAUD",170, 0) | ||
9154 | ;USERI EN - user 's IEN | ||
9155 | "RTN","SDE CAUD",171, 0) | ||
9156 | ;USERN AME - user 's name | ||
9157 | "RTN","SDE CAUD",172, 0) | ||
9158 | ;CONTA CTS - numb er of pati ent contac ts | ||
9159 | "RTN","SDE CAUD",173, 0) | ||
9160 | ;APPTO PEN - numb er of APPT requests opened | ||
9161 | "RTN","SDE CAUD",174, 0) | ||
9162 | ;APPTM ADE - numb er of appo intments m ade for AP PT request s | ||
9163 | "RTN","SDE CAUD",175, 0) | ||
9164 | ;APPTC LSD - numb er of APPT requests closed | ||
9165 | "RTN","SDE CAUD",176, 0) | ||
9166 | ;MRTCO PEN - numb er of MRTC requests opened | ||
9167 | "RTN","SDE CAUD",177, 0) | ||
9168 | ;MRTCC LSD - numb er of MRTC requests closed | ||
9169 | "RTN","SDE CAUD",178, 0) | ||
9170 | ;EWLOP EN - numb er of EWL requests o pened | ||
9171 | "RTN","SDE CAUD",179, 0) | ||
9172 | ;EWLMA DE - numb er of appo intments m ade for EW L requests | ||
9173 | "RTN","SDE CAUD",180, 0) | ||
9174 | ;EWLCL SD - numb er of EWL requests c losed | ||
9175 | "RTN","SDE CAUD",181, 0) | ||
9176 | ;PTCSO PEN - numb er of PtCS ch request s opened | ||
9177 | "RTN","SDE CAUD",182, 0) | ||
9178 | ;PTCSM ADE - numb er of appo intments m ade for Pt CSch reque sts | ||
9179 | "RTN","SDE CAUD",183, 0) | ||
9180 | ;CNSLT MD - numb er of appo intments m ade for co nsults | ||
9181 | "RTN","SDE CAUD",184, 0) | ||
9182 | ;APPTC XLD - numb er of appo intments c anceled | ||
9183 | "RTN","SDE CAUD",185, 0) | ||
9184 | ;ACTIO NS - tota l number o f actions | ||
9185 | "RTN","SDE CAUD",186, 0) | ||
9186 | SUMMGET2(S DECRET,SDB EG,SDEND,U SER) ;Get compiled Audit Repo rt for a g iven date range | ||
9187 | "RTN","SDE CAUD",187, 0) | ||
9188 | N X,Y,%DT ,U,X1,X2 | ||
9189 | "RTN","SDE CAUD",188, 0) | ||
9190 | N SDTMP,S DECLN,SDST ATS,SDPC,S DDT,SDASIE N,SDASDATA | ||
9191 | "RTN","SDE CAUD",189, 0) | ||
9192 | S U="^" | ||
9193 | "RTN","SDE CAUD",190, 0) | ||
9194 | ;translat e dates to FM format | ||
9195 | "RTN","SDE CAUD",191, 0) | ||
9196 | I SDBEG]" " S %DT="" S X=$P(SD BEG,"@",1) D ^%DT S SDBEG=Y S: Y=-1 SDBEG =1410102 I 1 | ||
9197 | "RTN","SDE CAUD",192, 0) | ||
9198 | E S SDBE G=1410102 ;default b egin date | ||
9199 | "RTN","SDE CAUD",193, 0) | ||
9200 | I SDEND]" " S %DT="" S X=$P(SD END,"@",1) D ^%DT S SDEND=Y S: Y=-1 SDEND =4141015 I 1 | ||
9201 | "RTN","SDE CAUD",194, 0) | ||
9202 | E S SDEN D=4141015 ;default e nd date | ||
9203 | "RTN","SDE CAUD",195, 0) | ||
9204 | ;check us er | ||
9205 | "RTN","SDE CAUD",196, 0) | ||
9206 | I USER]"" ,'$D(^VA(2 00,+USER,0 )) S USER= "" | ||
9207 | "RTN","SDE CAUD",197, 0) | ||
9208 | ;set up r eturn arra y | ||
9209 | "RTN","SDE CAUD",198, 0) | ||
9210 | S SDECRET ="^TMP(""S DECAUD""," _$J_",""SU MMGET2"")" ;global reference to return array | ||
9211 | "RTN","SDE CAUD",199, 0) | ||
9212 | K @SDECRE T | ||
9213 | "RTN","SDE CAUD",200, 0) | ||
9214 | S SDECLN= 0 | ||
9215 | "RTN","SDE CAUD",201, 0) | ||
9216 | ;set up c olumn head ers for re turn array | ||
9217 | "RTN","SDE CAUD",202, 0) | ||
9218 | ; 1 2 3 4 5 6 | ||
9219 | "RTN","SDE CAUD",203, 0) | ||
9220 | S SDTMP=" T00030USER IEN^T00030 USERNAME^T 00030CONTA CTS^T00030 APPTOPEN^T 00030APPTM ADE^T00030 APPTCLSD" | ||
9221 | "RTN","SDE CAUD",204, 0) | ||
9222 | ; 7 8 9 10 11 | ||
9223 | "RTN","SDE CAUD",205, 0) | ||
9224 | S SDTMP=S DTMP_"^T00 030MRTCOPE N^T00030MR TCCLSD^T00 030EWLOPEN ^T00030EWL MADE^T0003 0EWLCLSD" | ||
9225 | "RTN","SDE CAUD",206, 0) | ||
9226 | ; 12 13 14 15 16 | ||
9227 | "RTN","SDE CAUD",207, 0) | ||
9228 | S SDTMP=S DTMP_"^T00 030PTCSOPE N^T00030PT CSMADE^T00 030CNSLTMD ^T00030APP TCXLD^T000 30ACTIONS" | ||
9229 | "RTN","SDE CAUD",208, 0) | ||
9230 | S @SDECRE T@(SDECLN) =SDTMP_$C( 30) | ||
9231 | "RTN","SDE CAUD",209, 0) | ||
9232 | ;if a sin gle user i s specifie d, loop ov er x-ref f or dates f or that us er | ||
9233 | "RTN","SDE CAUD",210, 0) | ||
9234 | I USER]"" D I 1 | ||
9235 | "RTN","SDE CAUD",211, 0) | ||
9236 | .S SDSTAT S="0^0^0^0 ^0^0^0^0^0 ^0^0^0^0^0 " | ||
9237 | "RTN","SDE CAUD",212, 0) | ||
9238 | .S X1=SDB EG,X2=-1 D C^%DTC S SDDT=X | ||
9239 | "RTN","SDE CAUD",213, 0) | ||
9240 | .F S SDD T=$O(^SDAU DIT("E",US ER,SDDT)) Q:SDDT="" Q:SDDT>SD END D | ||
9241 | "RTN","SDE CAUD",214, 0) | ||
9242 | ..S SDASI EN="" | ||
9243 | "RTN","SDE CAUD",215, 0) | ||
9244 | ..F S SD ASIEN=$O(^ SDAUDIT("E ",USER,SDD T,SDASIEN) ) Q:SDASIE N="" D | ||
9245 | "RTN","SDE CAUD",216, 0) | ||
9246 | ...S SDAS DATA=^SDAU DIT(SDASIE N,0) | ||
9247 | "RTN","SDE CAUD",217, 0) | ||
9248 | ...S $P(S DASDATA,U, 16)=$$GET1 ^DIQ(409.9 7,SDASIEN_ ",",15) ;f ield 15 is computed, so isn't in global | ||
9249 | "RTN","SDE CAUD",218, 0) | ||
9250 | ...F SDPC =1:1:14 S $P(SDSTATS ,U,SDPC)=$ P(SDSTATS, U,SDPC)+$P (SDASDATA, U,SDPC+2) | ||
9251 | "RTN","SDE CAUD",219, 0) | ||
9252 | .S SDECLN =SDECLN+1 | ||
9253 | "RTN","SDE CAUD",220, 0) | ||
9254 | .S SDTMP= USER_U_$$G ET1^DIQ(20 0,USER_"," ,.01)_U_SD STATS | ||
9255 | "RTN","SDE CAUD",221, 0) | ||
9256 | .S @SDECR ET@(SDECLN )=SDTMP_$C (30) | ||
9257 | "RTN","SDE CAUD",222, 0) | ||
9258 | ;otherwis e, loop ov er x-ref f or users f or those d ates | ||
9259 | "RTN","SDE CAUD",223, 0) | ||
9260 | E D | ||
9261 | "RTN","SDE CAUD",224, 0) | ||
9262 | .F S USE R=$O(^SDAU DIT("E",US ER)) Q:USE R="" D | ||
9263 | "RTN","SDE CAUD",225, 0) | ||
9264 | ..S SDSTA TS="0^0^0^ 0^0^0^0^0^ 0^0^0^0^0^ 0" | ||
9265 | "RTN","SDE CAUD",226, 0) | ||
9266 | ..S X1=SD BEG,X2=-1 D C^%DTC S SDDT=X | ||
9267 | "RTN","SDE CAUD",227, 0) | ||
9268 | ..F S SD DT=$O(^SDA UDIT("E",U SER,SDDT)) Q:SDDT="" Q:SDDT>S DEND D | ||
9269 | "RTN","SDE CAUD",228, 0) | ||
9270 | ...S SDAS IEN="" | ||
9271 | "RTN","SDE CAUD",229, 0) | ||
9272 | ...F S S DASIEN=$O( ^SDAUDIT(" E",USER,SD DT,SDASIEN )) Q:SDASI EN="" D | ||
9273 | "RTN","SDE CAUD",230, 0) | ||
9274 | ....S SDA SDATA=^SDA UDIT(SDASI EN,0) | ||
9275 | "RTN","SDE CAUD",231, 0) | ||
9276 | ....S $P( SDASDATA,U ,16)=$$GET 1^DIQ(409. 97,SDASIEN _",",15) ; field 15 i s computed , so isn't in global | ||
9277 | "RTN","SDE CAUD",232, 0) | ||
9278 | ....F SDP C=1:1:14 S $P(SDSTAT S,U,SDPC)= $P(SDSTATS ,U,SDPC)+$ P(SDASDATA ,U,SDPC+2) | ||
9279 | "RTN","SDE CAUD",233, 0) | ||
9280 | ..Q:SDSTA TS="0^0^0^ 0^0^0^0^0^ 0^0^0^0^0^ 0" ;don't send back if user h as no data to send | ||
9281 | "RTN","SDE CAUD",234, 0) | ||
9282 | ..S SDECL N=SDECLN+1 | ||
9283 | "RTN","SDE CAUD",235, 0) | ||
9284 | ..S SDTMP =USER_U_$$ GET1^DIQ(2 00,USER_", ",.01)_U_S DSTATS | ||
9285 | "RTN","SDE CAUD",236, 0) | ||
9286 | ..S @SDEC RET@(SDECL N)=SDTMP_$ C(30) | ||
9287 | "RTN","SDE CAUD",237, 0) | ||
9288 | Q | ||
9289 | "RTN","SDE CCON") | ||
9290 | 0^4^B17988 891^B15794 027 | ||
9291 | "RTN","SDE CCON",1,0) | ||
9292 | SDECCON ;S PFO/DMR SC HEDULING E NHANCEMENT S VSE CONT ACT API | ||
9293 | "RTN","SDE CCON",2,0) | ||
9294 | ;;5.3;Sch eduling;** 669,686**; Aug 13 199 3;Build 39 | ||
9295 | "RTN","SDE CCON",3,0) | ||
9296 | ; | ||
9297 | "RTN","SDE CCON",4,0) | ||
9298 | ;This API provides SDEC CONTA CT(#409.86 )file info rmation to the VSE V S GUI. | ||
9299 | "RTN","SDE CCON",5,0) | ||
9300 | ; 3/6/18 - wtc/zeb Added new cross-refe rence for audit stat istics com piler. Pa tch 686 | ||
9301 | "RTN","SDE CCON",6,0) | ||
9302 | ; | ||
9303 | "RTN","SDE CCON",7,0) | ||
9304 | Q | ||
9305 | "RTN","SDE CCON",8,0) | ||
9306 | DISPLAY(RT U,DFN,CLN, PDT,REQT,S ER) ; | ||
9307 | "RTN","SDE CCON",9,0) | ||
9308 | Q:'$G(DFN ) | ||
9309 | "RTN","SDE CCON",10,0 ) | ||
9310 | Q:'$G(PDT ) | ||
9311 | "RTN","SDE CCON",11,0 ) | ||
9312 | Q:'$D(REQ T) | ||
9313 | "RTN","SDE CCON",12,0 ) | ||
9314 | S (CC,CC1 ,CC2,REC)= "" | ||
9315 | "RTN","SDE CCON",13,0 ) | ||
9316 | ; | ||
9317 | "RTN","SDE CCON",14,0 ) | ||
9318 | S CC="" F S CC=$O( ^SDEC(409. 86,"B",DFN ,CC)) Q:CC ="" D | ||
9319 | "RTN","SDE CCON",15,0 ) | ||
9320 | .S REC="" S REC=^SD EC(409.86, CC,0) | ||
9321 | "RTN","SDE CCON",16,0 ) | ||
9322 | .Q:PDT'=$ P($G(REC), "^",3) | ||
9323 | "RTN","SDE CCON",17,0 ) | ||
9324 | .I $G(CLN )'="" Q:$G (CLN)'=$P( $G(REC),"^ ",2) | ||
9325 | "RTN","SDE CCON",18,0 ) | ||
9326 | .I $G(SER )'="" Q:$G (SER)'=$P( $G(REC),"^ ",6) | ||
9327 | "RTN","SDE CCON",19,0 ) | ||
9328 | .Q:REQT'= $P($G(REC) ,"^",4) | ||
9329 | "RTN","SDE CCON",20,0 ) | ||
9330 | .S RTU=CC _"^"_REC | ||
9331 | "RTN","SDE CCON",21,0 ) | ||
9332 | .Q | ||
9333 | "RTN","SDE CCON",22,0 ) | ||
9334 | D EXIT | ||
9335 | "RTN","SDE CCON",23,0 ) | ||
9336 | Q | ||
9337 | "RTN","SDE CCON",24,0 ) | ||
9338 | DISMULT(RT T,CIEN) ; | ||
9339 | "RTN","SDE CCON",25,0 ) | ||
9340 | Q:'$G(CIE N) | ||
9341 | "RTN","SDE CCON",26,0 ) | ||
9342 | ; | ||
9343 | "RTN","SDE CCON",27,0 ) | ||
9344 | S (CC1,CC 2,REC1,REC 2,RTT,ENDT )="" | ||
9345 | "RTN","SDE CCON",28,0 ) | ||
9346 | ; | ||
9347 | "RTN","SDE CCON",29,0 ) | ||
9348 | S CC2="" F S CC2=$ O(^SDEC(40 9.86,CIEN, 1,CC2)) Q: CC2="" D | ||
9349 | "RTN","SDE CCON",30,0 ) | ||
9350 | .S REC2=" " S REC2=$ G(^SDEC(40 9.86,CIEN, 1,CC2,1)) Q:REC2="" D | ||
9351 | "RTN","SDE CCON",31,0 ) | ||
9352 | ..S ENDT= "" S ENDT= $P($G(^SDE C(409.86,C IEN,1,CC2, 0)),"^",1) | ||
9353 | "RTN","SDE CCON",32,0 ) | ||
9354 | ..S (ENTU ,ENTUN)="" S ENTUN=$ P(REC2,"^" ,5) I ENTU N>0 D | ||
9355 | "RTN","SDE CCON",33,0 ) | ||
9356 | ...S ENTU =$$GET1^DI Q(200,ENTU N,.01,"E") | ||
9357 | "RTN","SDE CCON",34,0 ) | ||
9358 | ..S RTT=R TT_CC1_"^" _REC2_"^"_ ENTU_"^"_E NDT_";" | ||
9359 | "RTN","SDE CCON",35,0 ) | ||
9360 | ..Q | ||
9361 | "RTN","SDE CCON",36,0 ) | ||
9362 | D EXIT | ||
9363 | "RTN","SDE CCON",37,0 ) | ||
9364 | Q | ||
9365 | "RTN","SDE CCON",38,0 ) | ||
9366 | ; | ||
9367 | "RTN","SDE CCON",39,0 ) | ||
9368 | NEW(RET,DF N,CLI,DTP, REQT,SRV,D TCON,CONT, COM,DTENT) ; | ||
9369 | "RTN","SDE CCON",40,0 ) | ||
9370 | Q:'$G(DFN ) | ||
9371 | "RTN","SDE CCON",41,0 ) | ||
9372 | Q:'$G(DTP ) | ||
9373 | "RTN","SDE CCON",42,0 ) | ||
9374 | Q:'$D(REQ T) | ||
9375 | "RTN","SDE CCON",43,0 ) | ||
9376 | Q:'$G(DTC ON) | ||
9377 | "RTN","SDE CCON",44,0 ) | ||
9378 | Q:'$D(CON T) | ||
9379 | "RTN","SDE CCON",45,0 ) | ||
9380 | Q:'$G(DTE NT) | ||
9381 | "RTN","SDE CCON",46,0 ) | ||
9382 | I '$D(COM ) S COM="" | ||
9383 | "RTN","SDE CCON",47,0 ) | ||
9384 | I '$G(CLI ) S CLI="" | ||
9385 | "RTN","SDE CCON",48,0 ) | ||
9386 | I '$G(SRV ) S SRV="" | ||
9387 | "RTN","SDE CCON",49,0 ) | ||
9388 | ; | ||
9389 | "RTN","SDE CCON",50,0 ) | ||
9390 | S (DFN2,C C1,CC2)="" | ||
9391 | "RTN","SDE CCON",51,0 ) | ||
9392 | ; | ||
9393 | "RTN","SDE CCON",52,0 ) | ||
9394 | S DFN2="" F S DFN2 =$O(^SDEC( 409.86,"B" ,DFN2)) Q: DFN2="" D | ||
9395 | "RTN","SDE CCON",53,0 ) | ||
9396 | .S CC1="" F S CC1= $O(^SDEC(4 09.86,"B", DFN2,CC1)) Q:CC1="" D | ||
9397 | "RTN","SDE CCON",54,0 ) | ||
9398 | ..S CC2=C C2+1 | ||
9399 | "RTN","SDE CCON",55,0 ) | ||
9400 | ..Q | ||
9401 | "RTN","SDE CCON",56,0 ) | ||
9402 | S CC2=CC2 +1 D | ||
9403 | "RTN","SDE CCON",57,0 ) | ||
9404 | .S ^SDEC( 409.86,0)= "SDEC CONT ACT^409.86 P^"_CC2_"^ "_CC2 | ||
9405 | "RTN","SDE CCON",58,0 ) | ||
9406 | .S ^SDEC( 409.86,CC2 ,0)=DFN_"^ "_CLI_"^"_ DTP_"^"_RE QT_"^"_1_S RV | ||
9407 | "RTN","SDE CCON",59,0 ) | ||
9408 | .S ^SDEC( 409.86,CC2 ,1,0)="^40 9.863D^1^1 " | ||
9409 | "RTN","SDE CCON",60,0 ) | ||
9410 | .S ^SDEC( 409.86,CC2 ,1,1,0)=DT CON | ||
9411 | "RTN","SDE CCON",61,0 ) | ||
9412 | .S ^SDEC( 409.86,CC2 ,1,1,1)=CO NT_"^"_COM _"^"_0_"^" _1_"^"_DUZ _"^"_DTENT | ||
9413 | "RTN","SDE CCON",62,0 ) | ||
9414 | .S ^SDEC( 409.86,"B" ,DFN,CC2)= "" | ||
9415 | "RTN","SDE CCON",63,0 ) | ||
9416 | .S ^SDEC( 409.86,CC2 ,1,"B",DTC ON,1)="" | ||
9417 | "RTN","SDE CCON",64,0 ) | ||
9418 | .S ^SDEC( 409.86,"AD ",DTENT,DU Z,CC2,1)=" " ; 3/6/1 8 WTC/ZEB create dat e/user cro ss-referen ce. | ||
9419 | "RTN","SDE CCON",65,0 ) | ||
9420 | .Q | ||
9421 | "RTN","SDE CCON",66,0 ) | ||
9422 | D EXIT | ||
9423 | "RTN","SDE CCON",67,0 ) | ||
9424 | Q | ||
9425 | "RTN","SDE CCON",68,0 ) | ||
9426 | SEQ(RE1,DF 1,CL1,PDAT E,RTYPE,SR R) ; | ||
9427 | "RTN","SDE CCON",69,0 ) | ||
9428 | Q:'$G(DF1 ) | ||
9429 | "RTN","SDE CCON",70,0 ) | ||
9430 | Q:'$G(PDA TE) | ||
9431 | "RTN","SDE CCON",71,0 ) | ||
9432 | I '$G(CL1 ) S CL1="" | ||
9433 | "RTN","SDE CCON",72,0 ) | ||
9434 | I '$G(SRR ) S SRR="" | ||
9435 | "RTN","SDE CCON",73,0 ) | ||
9436 | ; | ||
9437 | "RTN","SDE CCON",74,0 ) | ||
9438 | S (JJ,JJ1 ,RCD,SQU,D F2)="" | ||
9439 | "RTN","SDE CCON",75,0 ) | ||
9440 | ; | ||
9441 | "RTN","SDE CCON",76,0 ) | ||
9442 | S JJ="" F S JJ=$O( ^SDEC(409. 86,"B",DF1 ,JJ)) Q:JJ ="" D | ||
9443 | "RTN","SDE CCON",77,0 ) | ||
9444 | .S RCD="" S RCD=$G( ^SDEC(409. 86,JJ,0)) Q:RCD="" D | ||
9445 | "RTN","SDE CCON",78,0 ) | ||
9446 | ..S SQU=" " S SQU=$P ($G(^SDEC( 409.86,JJ, 1,0)),"^", 3) D | ||
9447 | "RTN","SDE CCON",79,0 ) | ||
9448 | ...Q:$G(S QU)="" | ||
9449 | "RTN","SDE CCON",80,0 ) | ||
9450 | ...Q:PDAT E'=$P($G(R CD),"^",3) | ||
9451 | "RTN","SDE CCON",81,0 ) | ||
9452 | ...Q:RTYP E'=$P($G(R CD),"^",4) | ||
9453 | "RTN","SDE CCON",82,0 ) | ||
9454 | ...I $P($ G(RCD),"^" ,2)=CL1 D | ||
9455 | "RTN","SDE CCON",83,0 ) | ||
9456 | ....S $P( ^SDEC(409. 86,JJ,0)," ^",5)=SQU+ 1 | ||
9457 | "RTN","SDE CCON",84,0 ) | ||
9458 | ....S RE1 =SQU+1 | ||
9459 | "RTN","SDE CCON",85,0 ) | ||
9460 | ....Q | ||
9461 | "RTN","SDE CCON",86,0 ) | ||
9462 | ...I $P($ G(RCD),"^" ,6)=SRR D | ||
9463 | "RTN","SDE CCON",87,0 ) | ||
9464 | ....S $P( ^SDEC(409. 86,JJ,0)," ^",5)=SQU+ 1 | ||
9465 | "RTN","SDE CCON",88,0 ) | ||
9466 | ....S RE1 =SQU+1 | ||
9467 | "RTN","SDE CCON",89,0 ) | ||
9468 | ....Q | ||
9469 | "RTN","SDE CCON",90,0 ) | ||
9470 | D EXIT | ||
9471 | "RTN","SDE CCON",91,0 ) | ||
9472 | Q | ||
9473 | "RTN","SDE CCON",92,0 ) | ||
9474 | UPDATE(RTT ,IEN,CONDT ,CTYPE,COM M,DTEN) ; | ||
9475 | "RTN","SDE CCON",93,0 ) | ||
9476 | Q:'$G(IEN ) | ||
9477 | "RTN","SDE CCON",94,0 ) | ||
9478 | Q:'$G(CON DT) | ||
9479 | "RTN","SDE CCON",95,0 ) | ||
9480 | Q:'$D(CTY PE) | ||
9481 | "RTN","SDE CCON",96,0 ) | ||
9482 | I '$D(COM M) S COMM= "" | ||
9483 | "RTN","SDE CCON",97,0 ) | ||
9484 | I '$G(DTE N) S DTEN= "" | ||
9485 | "RTN","SDE CCON",98,0 ) | ||
9486 | ; | ||
9487 | "RTN","SDE CCON",99,0 ) | ||
9488 | S (MULT,R TT,CC,CCC, COUNT,MULT N)="" | ||
9489 | "RTN","SDE CCON",100, 0) | ||
9490 | ; | ||
9491 | "RTN","SDE CCON",101, 0) | ||
9492 | S MULT="" S MULT=$G (^SDEC(409 .86,IEN,1, 0)) I MULT '="" D | ||
9493 | "RTN","SDE CCON",102, 0) | ||
9494 | .S MULTN= $P(MULT,"^ ",4) I MUL TN'="" D | ||
9495 | "RTN","SDE CCON",103, 0) | ||
9496 | ..S COUNT =MULTN | ||
9497 | "RTN","SDE CCON",104, 0) | ||
9498 | .Q | ||
9499 | "RTN","SDE CCON",105, 0) | ||
9500 | I COUNT'= "" S COUNT =COUNT+1 D | ||
9501 | "RTN","SDE CCON",106, 0) | ||
9502 | .S ^SDEC( 409.86,IEN ,1,0)="^40 9.863D^"_C OUNT_"^"_C OUNT | ||
9503 | "RTN","SDE CCON",107, 0) | ||
9504 | .S ^SDEC( 409.86,IEN ,1,COUNT,0 )=CONDT | ||
9505 | "RTN","SDE CCON",108, 0) | ||
9506 | .S ^SDEC( 409.86,IEN ,1,COUNT,1 )=CTYPE_"^ "_COMM_"^" _0_"^"_COU NT_"^"_DUZ _"^"_DTEN | ||
9507 | "RTN","SDE CCON",109, 0) | ||
9508 | .S ^SDEC( 409.86,IEN ,1,"B",CON DT,COUNT)= "" | ||
9509 | "RTN","SDE CCON",110, 0) | ||
9510 | .S ^SDEC( 409.86,"AD ",DTEN,DUZ ,IEN,COUNT )="" ; 3/ 6/18 WTC/Z EB create date/user cross-refe rence. | ||
9511 | "RTN","SDE CCON",111, 0) | ||
9512 | .Q | ||
9513 | "RTN","SDE CCON",112, 0) | ||
9514 | D EXIT | ||
9515 | "RTN","SDE CCON",113, 0) | ||
9516 | Q | ||
9517 | "RTN","SDE CCON",114, 0) | ||
9518 | GETSTC(RET ,CLIEN) ; | ||
9519 | "RTN","SDE CCON",115, 0) | ||
9520 | Q:CLIEN=" " | ||
9521 | "RTN","SDE CCON",116, 0) | ||
9522 | ; | ||
9523 | "RTN","SDE CCON",117, 0) | ||
9524 | ;CLIEN=Cl inic IEN | ||
9525 | "RTN","SDE CCON",118, 0) | ||
9526 | ;HLF0=Hos pital Loca tion File 0 node | ||
9527 | "RTN","SDE CCON",119, 0) | ||
9528 | ;SNUM=Sto pc Code IE N [0,7] | ||
9529 | "RTN","SDE CCON",120, 0) | ||
9530 | ;STPC=Sto p Code 40. 7 | ||
9531 | "RTN","SDE CCON",121, 0) | ||
9532 | ;CSNUM=Cr edit Stop IEN [0,18] | ||
9533 | "RTN","SDE CCON",122, 0) | ||
9534 | ;CSTPC=Cr edit Stop Code 40.7 | ||
9535 | "RTN","SDE CCON",123, 0) | ||
9536 | ; | ||
9537 | "RTN","SDE CCON",124, 0) | ||
9538 | S (HLF0,S NUM,STPC,C SNUM,CSTPC )="" | ||
9539 | "RTN","SDE CCON",125, 0) | ||
9540 | ; | ||
9541 | "RTN","SDE CCON",126, 0) | ||
9542 | S HLF0=$G (^SC(CLIEN ,0)) I HLF 0'="" D | ||
9543 | "RTN","SDE CCON",127, 0) | ||
9544 | .S SNUM=$ P($G(HLF0) ,"^",7) I SNUM'="" D | ||
9545 | "RTN","SDE CCON",128, 0) | ||
9546 | ..S STPC= $$GET1^DIQ (40.7,SNUM ,1) | ||
9547 | "RTN","SDE CCON",129, 0) | ||
9548 | .S CNUM=$ P($G(HLF0) ,"^",18) I CNUM'="" D | ||
9549 | "RTN","SDE CCON",130, 0) | ||
9550 | ..S CSTPC =$$GET1^DI Q(40.7,CNU M,1) | ||
9551 | "RTN","SDE CCON",131, 0) | ||
9552 | S RET=STP C_"^"_CSTP C | ||
9553 | "RTN","SDE CCON",132, 0) | ||
9554 | K HLF0,SN UM,STPC,CS NUM,CSTPC | ||
9555 | "RTN","SDE CCON",133, 0) | ||
9556 | Q | ||
9557 | "RTN","SDE CCON",134, 0) | ||
9558 | EXIT ; | ||
9559 | "RTN","SDE CCON",135, 0) | ||
9560 | K MULT,CC ,CCC,COUNT ,COMM,DTEN ,ENDT | ||
9561 | "RTN","SDE CCON",136, 0) | ||
9562 | K JJ,JJ1, RCD,SQU,DF 2,DFN2,CC1 ,CC2,RCD,S QU | ||
9563 | "RTN","SDE CCON",137, 0) | ||
9564 | K REC1,RE C2,ENDT,MU LTN,CLN,PD T,REQT,SER | ||
9565 | "RTN","SDE CCON",138, 0) | ||
9566 | Q | ||
9567 | "RTN","SDE CLK") | ||
9568 | 0^6^B22769 738^B92046 62 | ||
9569 | "RTN","SDE CLK",1,0) | ||
9570 | SDECLK ;AL B/SAT - VI STA SCHEDU LING RPCS ;JAN 15, 2 016 | ||
9571 | "RTN","SDE CLK",2,0) | ||
9572 | ;;5.3;Sch eduling;** 627,686**; Aug 13, 19 93;Build 3 9 | ||
9573 | "RTN","SDE CLK",3,0) | ||
9574 | ; | ||
9575 | "RTN","SDE CLK",4,0) | ||
9576 | Q | ||
9577 | "RTN","SDE CLK",5,0) | ||
9578 | ; | ||
9579 | "RTN","SDE CLK",6,0) | ||
9580 | LOCK(SDECY ,REQ) ; -- Attempt t o lock req uest recor d | ||
9581 | "RTN","SDE CLK",7,0) | ||
9582 | ;INPUT: | ||
9583 | "RTN","SDE CLK",8,0) | ||
9584 | ; REQ = R equest - ( required) Appt Reque st type - variable p ointer poi nter | ||
9585 | "RTN","SDE CLK",9,0) | ||
9586 | ; to one of these file s: | ||
9587 | "RTN","SDE CLK",10,0) | ||
9588 | ; SDE C APPT REQ UEST - A|<APPT IE N> A|1 23 | ||
9589 | "RTN","SDE CLK",11,0) | ||
9590 | ; SD WAIT LIST - E|<WL IEN> E|1 23 | ||
9591 | "RTN","SDE CLK",12,0) | ||
9592 | ; REQ UEST/CONSU LTATION - C|<CONSULT IEN> C|1 23 | ||
9593 | "RTN","SDE CLK",13,0) | ||
9594 | ; REC ALL REMIND ERS - R|^<RECALL IEN> R|1 23 | ||
9595 | "RTN","SDE CLK",14,0) | ||
9596 | ;RETURN: | ||
9597 | "RTN","SDE CLK",15,0) | ||
9598 | ; A singl e entry in the globa l array in dicating t he success /failure o f getting the lock: | ||
9599 | "RTN","SDE CLK",16,0) | ||
9600 | ; 1. CO DE - 1 if succes sful, or 0 ^Message i f could no t get lock | ||
9601 | "RTN","SDE CLK",17,0) | ||
9602 | ; 2. ME SSAGE - M essage Tex t | ||
9603 | "RTN","SDE CLK",18,0) | ||
9604 | N RET,SDI ,SDTYP,SDI EN | ||
9605 | "RTN","SDE CLK",19,0) | ||
9606 | N Y,SDECL K,NOW,NOW1 | ||
9607 | "RTN","SDE CLK",20,0) | ||
9608 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | ||
9609 | "RTN","SDE CLK",21,0) | ||
9610 | K @SDECY | ||
9611 | "RTN","SDE CLK",22,0) | ||
9612 | S @SDECY@ (0)="T0003 0CODE^T000 30MESSAGE" _$C(30) | ||
9613 | "RTN","SDE CLK",23,0) | ||
9614 | I $G(REQ) ="" S RET= "0^Invalid Request i nput"_$C(3 0,31) Q | ||
9615 | "RTN","SDE CLK",24,0) | ||
9616 | S SDTYP=$ P(REQ,"|", 1) I "ACER "'[SDTYP S @SDECY@(1 )="0^Inval id Request Type"_$C( 30,31) Q | ||
9617 | "RTN","SDE CLK",25,0) | ||
9618 | S SDIEN=$ P(REQ,"|", 2) I SDIEN '?1.N S @S DECY@(1)=" 0^Invalid Request ID "_$C(30,31 ) Q | ||
9619 | "RTN","SDE CLK",26,0) | ||
9620 | S SDECLK= $G(^XTMP(" SDECLK"_SD TYP_"-"_SD IEN,1)) I $P(SDECLK, U,1)=DUZ S @SDECY@(1 )="1^You a lready hav e the lock "_$C(30,31 ) Q ;*zeb 3/15/18 r eturn this result fo r user for any $J | ||
9621 | "RTN","SDE CLK",27,0) | ||
9622 | L +^XTMP( "SDECLK"_S DTYP_"-"_S DIEN):5 I '$T S @SDE CY@(1)="0^ "_$S(+SDEC LK:$P($G(^ VA(200,+SD ECLK,0)),U ),1:"Anoth er person" )_" is edi ting this request."_ $C(30,31) Q | ||
9623 | "RTN","SDE CLK",28,0) | ||
9624 | I SDECLK, $P(SDECLK, U,1)'=DUZ S @SDECY@( 1)="0^"_$S (+SDECLK:$ P($G(^VA(2 00,+SDECLK ,0)),U),1: "Another p erson")_" is editing this requ est."_$C(3 0,31) L -^ XTMP("SDEC LK"_SDTYP_ "-"_SDIEN) Q ;*zeb 3/15/18 re spect lock s from oth er users | ||
9625 | "RTN","SDE CLK",29,0) | ||
9626 | ;unlock u ser's prev ious locks | ||
9627 | "RTN","SDE CLK",30,0) | ||
9628 | S SDI="SD ECLK" F S SDI=$O(^X TMP(SDI)) Q:SDI'["SD ECLK" Q:S DI="" D | ||
9629 | "RTN","SDE CLK",31,0) | ||
9630 | .I ($P($G (^XTMP(SDI ,1)),U,1)= DUZ)!($P($ G(^XTMP(SD I,1)),U,1) ="") D | ||
9631 | "RTN","SDE CLK",32,0) | ||
9632 | ..L +^XTM P(SDI):5 ; *zeb+1 3/1 5/18 fix h andling of system lo cks | ||
9633 | "RTN","SDE CLK",33,0) | ||
9634 | ..Q:'$T | ||
9635 | "RTN","SDE CLK",34,0) | ||
9636 | ..K ^XTMP (SDI) | ||
9637 | "RTN","SDE CLK",35,0) | ||
9638 | ..L -^XTM P(SDI) | ||
9639 | "RTN","SDE CLK",36,0) | ||
9640 | S NOW=$$N OW^XLFDT,N OW1=$$FMAD D^XLFDT(NO W,1) | ||
9641 | "RTN","SDE CLK",37,0) | ||
9642 | S ^XTMP(" SDECLK"_SD TYP_"-"_SD IEN,0)=NOW 1_U_NOW_"^ VSE GUI Re quest Lock " | ||
9643 | "RTN","SDE CLK",38,0) | ||
9644 | S ^XTMP(" SDECLK"_SD TYP_"-"_SD IEN,1)=DUZ _U_$J | ||
9645 | "RTN","SDE CLK",39,0) | ||
9646 | S @SDECY@ (1)="1^Loc k successf ul"_$C(30, 31) | ||
9647 | "RTN","SDE CLK",40,0) | ||
9648 | L -^XTMP( "SDECLK"_S DTYP_"-"_S DIEN) ;*ze b 3/15/18 fix handli ng of syst em locks | ||
9649 | "RTN","SDE CLK",41,0) | ||
9650 | Q | ||
9651 | "RTN","SDE CLK",42,0) | ||
9652 | ; | ||
9653 | "RTN","SDE CLK",43,0) | ||
9654 | UNLOCK(SDE CY,REQ,FLG ) ; -- Unl ock reques t record | ||
9655 | "RTN","SDE CLK",44,0) | ||
9656 | ;INPUT: | ||
9657 | "RTN","SDE CLK",45,0) | ||
9658 | ; REQ = ( required) - Appt Req uest type - variable pointer p ointer | ||
9659 | "RTN","SDE CLK",46,0) | ||
9660 | ; to one of these file s: | ||
9661 | "RTN","SDE CLK",47,0) | ||
9662 | ; SDE C APPT REQ UEST - A|<APPT IE N> A|1 23 | ||
9663 | "RTN","SDE CLK",48,0) | ||
9664 | ; SD WAIT LIST - E|<WL IEN> E|1 23 | ||
9665 | "RTN","SDE CLK",49,0) | ||
9666 | ; REQ UEST/CONSU LTATION - C|<CONSULT IEN> C|1 23 | ||
9667 | "RTN","SDE CLK",50,0) | ||
9668 | ; REC ALL REMIND ERS - R|^<RECALL IEN> R|1 23 | ||
9669 | "RTN","SDE CLK",51,0) | ||
9670 | ; FLG = ( optional) Unlock if other job | ||
9671 | "RTN","SDE CLK",52,0) | ||
9672 | ; 0 = (defau lt) only u nlock if l ock belong s to curre nt user an d current $J job | ||
9673 | "RTN","SDE CLK",53,0) | ||
9674 | ; 1 = unlock even if t he lock do es not bel ong to cur rent user and curren t $J job | ||
9675 | "RTN","SDE CLK",54,0) | ||
9676 | ;RETURN: | ||
9677 | "RTN","SDE CLK",55,0) | ||
9678 | ; A singl e entry in the globa l array in dicating t he success of unlock ing the re cord: | ||
9679 | "RTN","SDE CLK",56,0) | ||
9680 | ; 1. CO DE - 1 if succes sful, or 0 ^Message i f could no t get lock | ||
9681 | "RTN","SDE CLK",57,0) | ||
9682 | ; 2. ME SSAGE - M essage Tex t | ||
9683 | "RTN","SDE CLK",58,0) | ||
9684 | ; I f message text="Not your lock" you can c all again and send 1 as the 2n d input to unlock an yway. | ||
9685 | "RTN","SDE CLK",59,0) | ||
9686 | N SDTYP,S DIEN | ||
9687 | "RTN","SDE CLK",60,0) | ||
9688 | N Y,SDECL K,NOW,NOW1 ,SDECUSER | ||
9689 | "RTN","SDE CLK",61,0) | ||
9690 | S SDECY=" ^TMP(""SDE C"","_$J_" )" | ||
9691 | "RTN","SDE CLK",62,0) | ||
9692 | K @SDECY | ||
9693 | "RTN","SDE CLK",63,0) | ||
9694 | S @SDECY@ (0)="T0003 0CODE^T000 30MESSAGE" _$C(30) | ||
9695 | "RTN","SDE CLK",64,0) | ||
9696 | I $G(REQ) ="" S @SDE CY@(1)="0^ Invalid Re quest inpu t"_$C(30,3 1) Q | ||
9697 | "RTN","SDE CLK",65,0) | ||
9698 | S SDTYP=$ P(REQ,"|", 1) I "ACER "'[SDTYP S @SDECY@(1 )="0^Inval id Request Type"_$C( 30,31) Q | ||
9699 | "RTN","SDE CLK",66,0) | ||
9700 | S SDIEN=$ P(REQ,"|", 2) I SDIEN '?1.N S @S DECY@(1)=" 0^Invalid Request ID "_$C(30,31 ) Q | ||
9701 | "RTN","SDE CLK",67,0) | ||
9702 | L +^XTMP( "SDECLK"_S DTYP_"-"_S DIEN):5 I '$T S @SDE CY@(1)="0^ Unable to access loc k table."_ $C(30,31) Q ;*zeb 3 /15/18 fix handling of system locks | ||
9703 | "RTN","SDE CLK",68,0) | ||
9704 | S SDECLK= $G(^XTMP(" SDECLK"_SD TYP_"-"_SD IEN,1)) ;* zeb+2 3/15 /18 only d o this onc e | ||
9705 | "RTN","SDE CLK",69,0) | ||
9706 | S SDECUSE R=$P(SDECL K,U,1) | ||
9707 | "RTN","SDE CLK",70,0) | ||
9708 | I $G(FLG) '=1,(SDECU SER]""),(S DECUSER'=D UZ) S @SDE CY@(1)="1^ Not your l ock"_$C(30 ,31) L -^X TMP("SDECL K"_SDTYP_" -"_SDIEN) Q ;*zeb 3 /22/18 fix handling of system locks | ||
9709 | "RTN","SDE CLK",71,0) | ||
9710 | ;the prev ious line is a silen t failure if the loc k doesn't exist or i f someone else has i t; they al ready have been beha ving as if they had the lock | ||
9711 | "RTN","SDE CLK",72,0) | ||
9712 | ;this is a "shouldn 't happen" scenario since the user had t he lock be fore they tried to g et rid of it, but we don't wan t to delet e the new user | ||
9713 | "RTN","SDE CLK",73,0) | ||
9714 | K ^XTMP(" SDECLK"_SD TYP_"-"_SD IEN) ;*zeb +1 3/15/18 change no de before unlocking it | ||
9715 | "RTN","SDE CLK",74,0) | ||
9716 | L -^XTMP( "SDECLK"_S DTYP_"-"_S DIEN) | ||
9717 | "RTN","SDE CLK",75,0) | ||
9718 | S @SDECY@ (1)="1^Unl ock succes sful"_$C(3 0,31) | ||
9719 | "RTN","SDE CLK",76,0) | ||
9720 | Q | ||
9721 | "RTN","SDE CLK",77,0) | ||
9722 | ; | ||
9723 | "RTN","SDE CLK",78,0) | ||
9724 | ;*zeb+tag 3/19/18 6 86 fix loc k handling | ||
9725 | "RTN","SDE CLK",79,0) | ||
9726 | ;-------- ---------- -- | ||
9727 | "RTN","SDE CLK",80,0) | ||
9728 | ;UNLKALL - Remove u sers' appo intment re quest lock s interact ively | ||
9729 | "RTN","SDE CLK",81,0) | ||
9730 | ;-------- ---------- -- | ||
9731 | "RTN","SDE CLK",82,0) | ||
9732 | UNLKALL ;i nteractive option to remove a user's loc ks | ||
9733 | "RTN","SDE CLK",83,0) | ||
9734 | N SDECUSE R,DIC,Y,U, SDNODE,SDL KDATA,SDLK USER,SDLKF ILE,SDLKIE N | ||
9735 | "RTN","SDE CLK",84,0) | ||
9736 | S Y="",U= "^" | ||
9737 | "RTN","SDE CLK",85,0) | ||
9738 | W !,"Rele ase all ap pointment request lo cks held b y a user", ! | ||
9739 | "RTN","SDE CLK",86,0) | ||
9740 | F D I Y =-1 Q | ||
9741 | "RTN","SDE CLK",87,0) | ||
9742 | .K DIC,Y | ||
9743 | "RTN","SDE CLK",88,0) | ||
9744 | .S DIC="^ VA(200," | ||
9745 | "RTN","SDE CLK",89,0) | ||
9746 | .S DIC(0) ="AEQ" | ||
9747 | "RTN","SDE CLK",90,0) | ||
9748 | .S DIC("A ")="Whose locks to r elease? " | ||
9749 | "RTN","SDE CLK",91,0) | ||
9750 | .D ^DIC | ||
9751 | "RTN","SDE CLK",92,0) | ||
9752 | .Q:(Y=-1) | ||
9753 | "RTN","SDE CLK",93,0) | ||
9754 | .S SDECUS ER=$P(Y,U, 1) | ||
9755 | "RTN","SDE CLK",94,0) | ||
9756 | .S SDNODE ="SDECLK" | ||
9757 | "RTN","SDE CLK",95,0) | ||
9758 | .F S SDN ODE=$O(^XT MP(SDNODE) ) Q:SDNODE '["SDECLK" D | ||
9759 | "RTN","SDE CLK",96,0) | ||
9760 | ..S SDLKD ATA=$G(^XT MP(SDNODE, 1)) | ||
9761 | "RTN","SDE CLK",97,0) | ||
9762 | ..S SDLKU SER=$P(SDL KDATA,U,1) | ||
9763 | "RTN","SDE CLK",98,0) | ||
9764 | ..Q:SDLKU SER'=SDECU SER ;only want lock s for this user | ||
9765 | "RTN","SDE CLK",99,0) | ||
9766 | ..K ^XTMP (SDNODE) | ||
9767 | "RTN","SDE CLK",100,0 ) | ||
9768 | ..S SDLKF ILE=$E(SDN ODE,7) | ||
9769 | "RTN","SDE CLK",101,0 ) | ||
9770 | ..S SDLKF ILE=$S(SDL KFILE="E": "EWL Reque st",SDLKFI LE="R":"Pt CSch Reque st",SDLKFI LE="C":"Co nsult",1:" APPT Reque st") | ||
9771 | "RTN","SDE CLK",102,0 ) | ||
9772 | ..S SDLKI EN=$P(SDNO DE,"-",2) | ||
9773 | "RTN","SDE CLK",103,0 ) | ||
9774 | ..W !,"Lo ck release d for "_SD LKFILE_" " _SDLKIEN | ||
9775 | "RTN","SDE CLK",104,0 ) | ||
9776 | Q | ||
9777 | "SEC","^DD ",409.86,4 09.863,5,9 ) | ||
9778 | |||
9779 | "SEC","^DI C",409.85, 409.85,0," AUDIT") | ||
9780 | |||
9781 | "SEC","^DI C",409.85, 409.85,0," DD") | ||
9782 | |||
9783 | "SEC","^DI C",409.85, 409.85,0," DEL") | ||
9784 | |||
9785 | "SEC","^DI C",409.85, 409.85,0," LAYGO") | ||
9786 | |||
9787 | "SEC","^DI C",409.85, 409.85,0," RD") | ||
9788 | |||
9789 | "SEC","^DI C",409.85, 409.85,0," WR") | ||
9790 | |||
9791 | "SEC","^DI C",409.86, 409.86,0," AUDIT") | ||
9792 | @ | ||
9793 | "SEC","^DI C",409.86, 409.86,0," DD") | ||
9794 | @ | ||
9795 | "SEC","^DI C",409.86, 409.86,0," DEL") | ||
9796 | @ | ||
9797 | "SEC","^DI C",409.86, 409.86,0," LAYGO") | ||
9798 | @ | ||
9799 | "SEC","^DI C",409.86, 409.86,0," RD") | ||
9800 | @ | ||
9801 | "SEC","^DI C",409.86, 409.86,0," WR") | ||
9802 | @ | ||
9803 | "SEC","^DI C",409.97, 409.97,0," AUDIT") | ||
9804 | @ | ||
9805 | "SEC","^DI C",409.97, 409.97,0," DD") | ||
9806 | @ | ||
9807 | "SEC","^DI C",409.97, 409.97,0," DEL") | ||
9808 | @ | ||
9809 | "SEC","^DI C",409.97, 409.97,0," LAYGO") | ||
9810 | @ | ||
9811 | "SEC","^DI C",409.97, 409.97,0," WR") | ||
9812 | @ | ||
9813 | "VER") | ||
9814 | 8.0^22.2 | ||
9815 | "^DD",409. 85,409.85, 0) | ||
9816 | FIELD^NL^4 8^44 | ||
9817 | "^DD",409. 85,409.85, 0,"DDA") | ||
9818 | N | ||
9819 | "^DD",409. 85,409.85, 0,"DT") | ||
9820 | 3180724 | ||
9821 | "^DD",409. 85,409.85, 0,"IX","B" ,409.85,.0 1) | ||
9822 | |||
9823 | "^DD",409. 85,409.85, 0,"IX","C" ,409.85,2) | ||
9824 | |||
9825 | "^DD",409. 85,409.85, 0,"IX","SC ",409.85,8 ) | ||
9826 | |||
9827 | "^DD",409. 85,409.85, 0,"IX","SC C",409.85, 8) | ||
9828 | |||
9829 | "^DD",409. 85,409.85, 0,"NM","SD EC APPT RE QUEST") | ||
9830 | |||
9831 | "^DD",409. 85,409.85, 0,"PT",409 .84,.22) | ||
9832 | |||
9833 | "^DD",409. 85,409.85, 0,"PT",409 .85,43.8) | ||
9834 | |||
9835 | "^DD",409. 85,409.85, 0,"PT",409 .852,.01) | ||
9836 | |||
9837 | "^DD",409. 85,409.85, 0,"PT",409 .94,3) | ||
9838 | |||
9839 | "^DD",409. 85,409.85, 0,"VRPK") | ||
9840 | SD | ||
9841 | "^DD",409. 85,409.85, .01,0) | ||
9842 | PATIENT^RP 2^DPT(^0;1 ^Q | ||
9843 | "^DD",409. 85,409.85, .01,1,0) | ||
9844 | ^.1 | ||
9845 | "^DD",409. 85,409.85, .01,1,1,0) | ||
9846 | 409.85^B | ||
9847 | "^DD",409. 85,409.85, .01,1,1,1) | ||
9848 | S ^SDEC(40 9.85,"B",$ E(X,1,30), DA)="" | ||
9849 | "^DD",409. 85,409.85, .01,1,1,2) | ||
9850 | K ^SDEC(40 9.85,"B",$ E(X,1,30), DA) | ||
9851 | "^DD",409. 85,409.85, .01,3) | ||
9852 | Enter the name of th e patient for this A ppt Reques t. | ||
9853 | "^DD",409. 85,409.85, .01,21,0) | ||
9854 | ^.001^2^2^ 3150423^^ | ||
9855 | "^DD",409. 85,409.85, .01,21,1,0 ) | ||
9856 | This is th e name of the patien t that is to be on t he SDEC AP PT REQUEST | ||
9857 | "^DD",409. 85,409.85, .01,21,2,0 ) | ||
9858 | list. | ||
9859 | "^DD",409. 85,409.85, .01,23,0) | ||
9860 | ^.001^2^2^ 3150423^^^ | ||
9861 | "^DD",409. 85,409.85, .01,23,1,0 ) | ||
9862 | The patien t selectio n is from the PATIEN T file #2. | ||
9863 | "^DD",409. 85,409.85, .01,23,2,0 ) | ||
9864 | The SDEC A PPT REQUES T is 'this ' file #40 9.85. | ||
9865 | "^DD",409. 85,409.85, .01,"DT") | ||
9866 | 3150625 | ||
9867 | "^DD",409. 85,409.85, .02,0) | ||
9868 | PATIENT ST ATUS^Sa^N: NEW;E:ESTA BLISHED;^0 ;7^Q | ||
9869 | "^DD",409. 85,409.85, .02,3) | ||
9870 | Enter N or NEW if th e patient is a new p atient. En ter E or E STABLISHED if this p atient has been seen in the pa st 24 mont hs. | ||
9871 | "^DD",409. 85,409.85, .02,21,0) | ||
9872 | ^.001^3^3^ 3150803^^ | ||
9873 | "^DD",409. 85,409.85, .02,21,1,0 ) | ||
9874 | This field represent s the stat us of the patient in regards t o being a | ||
9875 | "^DD",409. 85,409.85, .02,21,2,0 ) | ||
9876 | 'NEW' or ' ESTABLISHE D' patient . | ||
9877 | "^DD",409. 85,409.85, .02,21,3,0 ) | ||
9878 | An ESTABLI SHED patie nt has bee n seen wit hin the pa st 24 mont hs. | ||
9879 | "^DD",409. 85,409.85, .02,"AUDIT ") | ||
9880 | y | ||
9881 | "^DD",409. 85,409.85, .02,"AX") | ||
9882 | |||
9883 | "^DD",409. 85,409.85, .02,"DT") | ||
9884 | 3161102 | ||
9885 | "^DD",409. 85,409.85, 1,0) | ||
9886 | CREATE DAT E^D^^0;2^S %DT="EX" D ^%DT S X =Y K:Y<1 X | ||
9887 | "^DD",409. 85,409.85, 1,3) | ||
9888 | Enter the date the r equest was made. | ||
9889 | "^DD",409. 85,409.85, 1,21,0) | ||
9890 | ^^1^1^3150 423^ | ||
9891 | "^DD",409. 85,409.85, 1,21,1,0) | ||
9892 | This field represent s the date that the appointmen t request was made. | ||
9893 | "^DD",409. 85,409.85, 1,"DT") | ||
9894 | 3150625 | ||
9895 | "^DD",409. 85,409.85, 2,0) | ||
9896 | INSTITUTIO N^R*P4'^DI C(4,^0;3^S DIC("S")= "I $P(^(0) ,U,11)=""N "",$$TF^XU AF4(+Y)" D ^DIC K DI C S DIC=DI E,X=+Y K:Y <0 X | ||
9897 | "^DD",409. 85,409.85, 2,1,0) | ||
9898 | ^.1 | ||
9899 | "^DD",409. 85,409.85, 2,1,1,0) | ||
9900 | 409.85^C | ||
9901 | "^DD",409. 85,409.85, 2,1,1,1) | ||
9902 | S ^SDEC(40 9.85,"C",$ E(X,1,30), DA)="" | ||
9903 | "^DD",409. 85,409.85, 2,1,1,2) | ||
9904 | K ^SDEC(40 9.85,"C",$ E(X,1,30), DA) | ||
9905 | "^DD",409. 85,409.85, 2,1,1,"%D" ,0) | ||
9906 | ^^2^2^3150 418^ | ||
9907 | "^DD",409. 85,409.85, 2,1,1,"%D" ,1,0) | ||
9908 | This xref is used to speed up the lookup of Appoin tment Requ ests by | ||
9909 | "^DD",409. 85,409.85, 2,1,1,"%D" ,2,0) | ||
9910 | INSTITUTIO N. | ||
9911 | "^DD",409. 85,409.85, 2,1,1,"DT" ) | ||
9912 | 3150418 | ||
9913 | "^DD",409. 85,409.85, 2,3) | ||
9914 | Select an Institutio n | ||
9915 | "^DD",409. 85,409.85, 2,12) | ||
9916 | Only allow a Nationa l/Medical Institutio n. | ||
9917 | "^DD",409. 85,409.85, 2,12.1) | ||
9918 | S DIC("S") ="I $P(^(0 ),U,11)="" N"",$$TF^X UAF4(+Y)" | ||
9919 | "^DD",409. 85,409.85, 2,21,0) | ||
9920 | ^^2^2^3150 423^ | ||
9921 | "^DD",409. 85,409.85, 2,21,1,0) | ||
9922 | This field represent s the Inst itution as signed to identify t he specifi c | ||
9923 | "^DD",409. 85,409.85, 2,21,2,0) | ||
9924 | location. | ||
9925 | "^DD",409. 85,409.85, 2,"DT") | ||
9926 | 3150418 | ||
9927 | "^DD",409. 85,409.85, 4,0) | ||
9928 | REQUEST TY PE^RS^APPT :APPOINTME NT;MOBILE: MOBILE;W2V A:WELCOME TO VA;RTC: RETURN TO CLINIC;VET ERAN:VETER AN;^0;5^Q | ||
9929 | "^DD",409. 85,409.85, 4,3) | ||
9930 | Select an appointmen t request type | ||
9931 | "^DD",409. 85,409.85, 4,21,0) | ||
9932 | ^.001^3^3^ 3170605^^^ ^ | ||
9933 | "^DD",409. 85,409.85, 4,21,1,0) | ||
9934 | This field represent s the type of appoin tment requ est that b eing | ||
9935 | "^DD",409. 85,409.85, 4,21,2,0) | ||
9936 | requested. | ||
9937 | "^DD",409. 85,409.85, 4,21,3,0) | ||
9938 | . | ||
9939 | "^DD",409. 85,409.85, 4,"DT") | ||
9940 | 3180724 | ||
9941 | "^DD",409. 85,409.85, 5,0) | ||
9942 | VAOS GUID^ F^^0;8^K:$ L(X)>32!($ L(X)<1) X | ||
9943 | "^DD",409. 85,409.85, 5,1,0) | ||
9944 | ^.1^^0 | ||
9945 | "^DD",409. 85,409.85, 5,3) | ||
9946 | Answer mus t be 1-32 characters in length . | ||
9947 | "^DD",409. 85,409.85, 5,21,0) | ||
9948 | ^^2^2^3180 321^ | ||
9949 | "^DD",409. 85,409.85, 5,21,1,0) | ||
9950 | Stores poi nter to Or acle datab ase where VAOS appoi ntment req uests are | ||
9951 | "^DD",409. 85,409.85, 5,21,2,0) | ||
9952 | stored. | ||
9953 | "^DD",409. 85,409.85, 5,"DT") | ||
9954 | 3180420 | ||
9955 | "^DD",409. 85,409.85, 8,0) | ||
9956 | REQ SPECIF IC CLINIC^ RP44'a^SC( ^0;9^Q | ||
9957 | "^DD",409. 85,409.85, 8,1,0) | ||
9958 | ^.1 | ||
9959 | "^DD",409. 85,409.85, 8,1,1,0) | ||
9960 | 409.85^SC^ MUMPS | ||
9961 | "^DD",409. 85,409.85, 8,1,1,1) | ||
9962 | I $D(X) S ^SDEC(409. 85,"SC",$P (^SC(X,0), U,1),DA)=" " | ||
9963 | "^DD",409. 85,409.85, 8,1,1,2) | ||
9964 | K ^SDEC(40 9.85,"SC", $P(^SC(X,0 ),U,1),DA) | ||
9965 | "^DD",409. 85,409.85, 8,1,1,"%D" ,0) | ||
9966 | ^^1^1^3150 418^ | ||
9967 | "^DD",409. 85,409.85, 8,1,1,"%D" ,1,0) | ||
9968 | Sort and L ookup Appo intment Re quest by C linic name . | ||
9969 | "^DD",409. 85,409.85, 8,1,1,"DT" ) | ||
9970 | 3150418 | ||
9971 | "^DD",409. 85,409.85, 8,1,2,0) | ||
9972 | 409.85^SCC ^MUMPS | ||
9973 | "^DD",409. 85,409.85, 8,1,2,1) | ||
9974 | I $D(X) S ^SDEC(409. 85,"SCC",$ P(^SDEC(40 9.85,DA,0) ,U,1),X,DA )="" | ||
9975 | "^DD",409. 85,409.85, 8,1,2,2) | ||
9976 | K ^SDEC(40 9.85,"SCC" ,$P(^SDEC( 409.85,DA, 0),U,1),X, DA) | ||
9977 | "^DD",409. 85,409.85, 8,1,2,"%D" ,0) | ||
9978 | ^^1^1^3150 418^ | ||
9979 | "^DD",409. 85,409.85, 8,1,2,"%D" ,1,0) | ||
9980 | Sort/Looku p Appointm ent Reques t by Speci fic Clinic . | ||
9981 | "^DD",409. 85,409.85, 8,1,2,"DT" ) | ||
9982 | 3150418 | ||
9983 | "^DD",409. 85,409.85, 8,3) | ||
9984 | Select a c linic | ||
9985 | "^DD",409. 85,409.85, 8,21,0) | ||
9986 | ^^4^4^3150 423^ | ||
9987 | "^DD",409. 85,409.85, 8,21,1,0) | ||
9988 | This field represent s the clin ic that th is appoint ment reque st is for. | ||
9989 | "^DD",409. 85,409.85, 8,21,2,0) | ||
9990 | |||
9991 | "^DD",409. 85,409.85, 8,21,3,0) | ||
9992 | If the pat ient has b een assign ed to the APPT REQUE ST list, e nter the | ||
9993 | "^DD",409. 85,409.85, 8,21,4,0) | ||
9994 | clinic tha t the pati ent is wai ting for a n appointm ent. | ||
9995 | "^DD",409. 85,409.85, 8,"AUDIT") | ||
9996 | y | ||
9997 | "^DD",409. 85,409.85, 8,"AX") | ||
9998 | |||
9999 | "^DD",409. 85,409.85, 8,"DT") | ||
10000 | 3161102 | ||
10001 | "^DD",409. 85,409.85, 8.5,0) | ||
10002 | REQ SERVIC E/SPECIALT Y^*P40.7'a ^DIC(40.7, ^0;4^S DIC ("S")="I ( $P(^(0),U, 3)="""")!( $P($P(^(0) ,U,3),""." ",1)>$P($$ NOW^XLFDT, ""."",1))" D ^DIC K DIC S DIC= DIE,X=+Y K :Y<0 X | ||
10003 | "^DD",409. 85,409.85, 8.5,3) | ||
10004 | Select a C LINIC STOP | ||
10005 | "^DD",409. 85,409.85, 8.5,12) | ||
10006 | Allow only active CL INIC STOP entries. | ||
10007 | "^DD",409. 85,409.85, 8.5,12.1) | ||
10008 | S DIC("S") ="I ($P(^( 0),U,3)="" "")!($P($P (^(0),U,3) ,""."",1)> $P($$NOW^X LFDT,""."" ,1))" | ||
10009 | "^DD",409. 85,409.85, 8.5,21,0) | ||
10010 | ^.001^2^2^ 3150429^^ | ||
10011 | "^DD",409. 85,409.85, 8.5,21,1,0 ) | ||
10012 | This field represent s the CLIN IC STOP co de (also r eferred to as | ||
10013 | "^DD",409. 85,409.85, 8.5,21,2,0 ) | ||
10014 | SERVICE/SP ECIALTY) t hat is ass ociated wi th this ap pointment. | ||
10015 | "^DD",409. 85,409.85, 8.5,"AUDIT ") | ||
10016 | y | ||
10017 | "^DD",409. 85,409.85, 8.5,"AX") | ||
10018 | |||
10019 | "^DD",409. 85,409.85, 8.5,"DT") | ||
10020 | 3161102 | ||
10021 | "^DD",409. 85,409.85, 8.7,0) | ||
10022 | REQ APPOIN TMENT TYPE ^P409.1'a^ SD(409.1,^ 0;6^Q | ||
10023 | "^DD",409. 85,409.85, 8.7,3) | ||
10024 | Select an appointmen t type. | ||
10025 | "^DD",409. 85,409.85, 8.7,21,0) | ||
10026 | ^^1^1^3150 522^ | ||
10027 | "^DD",409. 85,409.85, 8.7,21,1,0 ) | ||
10028 | This field represent s the appo intment ty pe for thi s request. | ||
10029 | "^DD",409. 85,409.85, 8.7,"AUDIT ") | ||
10030 | y | ||
10031 | "^DD",409. 85,409.85, 8.7,"AX") | ||
10032 | |||
10033 | "^DD",409. 85,409.85, 8.7,"DT") | ||
10034 | 3161102 | ||
10035 | "^DD",409. 85,409.85, 9,0) | ||
10036 | ORIGINATIN G USER^P20 0'^VA(200, ^0;10^Q | ||
10037 | "^DD",409. 85,409.85, 9,3) | ||
10038 | Select a u ser | ||
10039 | "^DD",409. 85,409.85, 9,21,0) | ||
10040 | ^^1^1^3150 423^ | ||
10041 | "^DD",409. 85,409.85, 9,21,1,0) | ||
10042 | This is th e user tha t entered this appoi ntment req uest. | ||
10043 | "^DD",409. 85,409.85, 9,"DT") | ||
10044 | 3150418 | ||
10045 | "^DD",409. 85,409.85, 9.5,0) | ||
10046 | DATE/TIME ENTERED^D^ ^3;4^S %DT ="ETX" D ^ %DT S X=Y K:Y<1 X | ||
10047 | "^DD",409. 85,409.85, 9.5,3) | ||
10048 | Enter a da te. Time i s optional . | ||
10049 | "^DD",409. 85,409.85, 9.5,21,0) | ||
10050 | ^^2^2^3150 423^ | ||
10051 | "^DD",409. 85,409.85, 9.5,21,1,0 ) | ||
10052 | This is th e Date and optional Time that this appoi ntment req uest entry | ||
10053 | "^DD",409. 85,409.85, 9.5,21,2,0 ) | ||
10054 | was entere d. | ||
10055 | "^DD",409. 85,409.85, 9.5,"DT") | ||
10056 | 3150418 | ||
10057 | "^DD",409. 85,409.85, 10,0) | ||
10058 | PRIORITY^R S^A:ASAP;F :FUTURE;^0 ;11^Q | ||
10059 | "^DD",409. 85,409.85, 10,3) | ||
10060 | Enter A or ASAP to s et the pri ority as ' As Soon As Possible' . Enter F or FUTURE to set the priority as Future. | ||
10061 | "^DD",409. 85,409.85, 10,21,0) | ||
10062 | ^^7^7^3150 423^ | ||
10063 | "^DD",409. 85,409.85, 10,21,1,0) | ||
10064 | This repre sents the appointmen t priority . | ||
10065 | "^DD",409. 85,409.85, 10,21,2,0) | ||
10066 | |||
10067 | "^DD",409. 85,409.85, 10,21,3,0) | ||
10068 | Future ind icates tha t the pati ent needs an appoint ment in th e | ||
10069 | "^DD",409. 85,409.85, 10,21,4,0) | ||
10070 | future and a desired date will be entere d by the u ser. ASAP indicates | ||
10071 | "^DD",409. 85,409.85, 10,21,5,0) | ||
10072 | that the p atient nee ds an appo intment be fore the c urrently n ext availa ble | ||
10073 | "^DD",409. 85,409.85, 10,21,6,0) | ||
10074 | appointmen t (as soon as a slot opens). The desire d date for ASAP will be | ||
10075 | "^DD",409. 85,409.85, 10,21,7,0) | ||
10076 | set by the system as the curre nt date. | ||
10077 | "^DD",409. 85,409.85, 10,"DT") | ||
10078 | 3150418 | ||
10079 | "^DD",409. 85,409.85, 10.5,0) | ||
10080 | ENROLLMENT PRIORITY^ S^1:GROUP 1;2:GROUP 2;3:GROUP 3;4:GROUP 4;5:GROUP 5;6:GROUP 6;7:GROUP 7;8:GROUP 8;^0;25^Q | ||
10081 | "^DD",409. 85,409.85, 10.5,3) | ||
10082 | Select an enrollment priority. | ||
10083 | "^DD",409. 85,409.85, 10.5,21,0) | ||
10084 | ^^2^2^3150 423^ | ||
10085 | "^DD",409. 85,409.85, 10.5,21,1, 0) | ||
10086 | The ENROLL MENT PRIOR ITY field represents the appoi ntment Enr ollment | ||
10087 | "^DD",409. 85,409.85, 10.5,21,2, 0) | ||
10088 | Priority. | ||
10089 | "^DD",409. 85,409.85, 10.5,"DT") | ||
10090 | 3150418 | ||
10091 | "^DD",409. 85,409.85, 11,0) | ||
10092 | REQUESTED BY^RSa^1:P ROVIDER;2: PATIENT;^0 ;12^Q | ||
10093 | "^DD",409. 85,409.85, 11,3) | ||
10094 | Enter 1 or PROVIDER if the req uestor was a provide r. Enter 2 or PATIEN T if the r equestor w as the pat ient. | ||
10095 | "^DD",409. 85,409.85, 11,21,0) | ||
10096 | ^.001^2^2^ 3150423^^ | ||
10097 | "^DD",409. 85,409.85, 11,21,1,0) | ||
10098 | This field identifie s who requ ested the appointmen t - the pa tient or a | ||
10099 | "^DD",409. 85,409.85, 11,21,2,0) | ||
10100 | provider. | ||
10101 | "^DD",409. 85,409.85, 11,"AUDIT" ) | ||
10102 | y | ||
10103 | "^DD",409. 85,409.85, 11,"AX") | ||
10104 | |||
10105 | "^DD",409. 85,409.85, 11,"DT") | ||
10106 | 3161102 | ||
10107 | "^DD",409. 85,409.85, 12,0) | ||
10108 | PROVIDER^P 200'a^VA(2 00,^0;13^Q | ||
10109 | "^DD",409. 85,409.85, 12,3) | ||
10110 | Select the provider that reque sted the p atient's a ppointment . | ||
10111 | "^DD",409. 85,409.85, 12,21,0) | ||
10112 | ^^2^2^3150 423^ | ||
10113 | "^DD",409. 85,409.85, 12,21,1,0) | ||
10114 | This field represent s the prov ider that requested the appoin tment if t he | ||
10115 | "^DD",409. 85,409.85, 12,21,2,0) | ||
10116 | appointmen t was requ ested by a provider. | ||
10117 | "^DD",409. 85,409.85, 12,"AUDIT" ) | ||
10118 | y | ||
10119 | "^DD",409. 85,409.85, 12,"AX") | ||
10120 | |||
10121 | "^DD",409. 85,409.85, 12,"DT") | ||
10122 | 3161102 | ||
10123 | "^DD",409. 85,409.85, 13,0) | ||
10124 | SCHEDULED DATE OF AP PT^D^^0;23 ^S %DT="ET X" D ^%DT S X=Y K:Y< 1 X | ||
10125 | "^DD",409. 85,409.85, 13,3) | ||
10126 | Enter the date and o ptional ti me of the scheduled appointmen t for this request. | ||
10127 | "^DD",409. 85,409.85, 13,21,0) | ||
10128 | ^^3^3^3150 423^ | ||
10129 | "^DD",409. 85,409.85, 13,21,1,0) | ||
10130 | This is th e appointm ent date a nd optiona l time sch eduled for the patie nt. | ||
10131 | "^DD",409. 85,409.85, 13,21,2,0) | ||
10132 | This appoi ntment may be used a s a reason for closi ng 'this' appointmen t | ||
10133 | "^DD",409. 85,409.85, 13,21,3,0) | ||
10134 | request. | ||
10135 | "^DD",409. 85,409.85, 13,23,0) | ||
10136 | ^.001^1^1^ 3150423^^^ ^ | ||
10137 | "^DD",409. 85,409.85, 13,23,1,0) | ||
10138 | This is a date/time of the sch eduled app ointment r elated to this entry . | ||
10139 | "^DD",409. 85,409.85, 13,"DT") | ||
10140 | 3150418 | ||
10141 | "^DD",409. 85,409.85, 13.1,0) | ||
10142 | DATE APPT. MADE^D^^S DAPT;1^S % DT="EX" D ^%DT S X=Y K:Y<1 X | ||
10143 | "^DD",409. 85,409.85, 13.1,3) | ||
10144 | Enter the date that the appoin tment was made. | ||
10145 | "^DD",409. 85,409.85, 13.1,21,0) | ||
10146 | ^.001^1^1^ 3150423^^^ ^ | ||
10147 | "^DD",409. 85,409.85, 13.1,21,1, 0) | ||
10148 | This is th e date the appointme nt was cre ated. | ||
10149 | "^DD",409. 85,409.85, 13.1,23,0) | ||
10150 | ^.001^2^2^ 3150423^^^ ^ | ||
10151 | "^DD",409. 85,409.85, 13.1,23,1, 0) | ||
10152 | The Appoin tment Crea tion Date. It corres ponds to t he DATE AP PT. MADE | ||
10153 | "^DD",409. 85,409.85, 13.1,23,2, 0) | ||
10154 | field (#20 ) of the A PPOINTMENT multiple (#1900) in the PATIE NT file (# 2). | ||
10155 | "^DD",409. 85,409.85, 13.1,"DT") | ||
10156 | 3150423 | ||
10157 | "^DD",409. 85,409.85, 13.2,0) | ||
10158 | APPT CLINI C^P44'^SC( ^SDAPT;2^Q | ||
10159 | "^DD",409. 85,409.85, 13.2,3) | ||
10160 | Select the clinic th at this ap pointment is schedul ed for. | ||
10161 | "^DD",409. 85,409.85, 13.2,21,0) | ||
10162 | ^^1^1^3150 423^ | ||
10163 | "^DD",409. 85,409.85, 13.2,21,1, 0) | ||
10164 | This is th e clinic t his appoin tment was created fo r. | ||
10165 | "^DD",409. 85,409.85, 13.2,23,0) | ||
10166 | ^.001^1^1^ 3150423^^^ | ||
10167 | "^DD",409. 85,409.85, 13.2,23,1, 0) | ||
10168 | Pointer to the HOSPI TAL LOCATI ON file (# 44) of the related a ppointment . | ||
10169 | "^DD",409. 85,409.85, 13.2,"DT") | ||
10170 | 3150418 | ||
10171 | "^DD",409. 85,409.85, 13.3,0) | ||
10172 | APPT INSTI TUTION^P4' ^DIC(4,^SD APT;3^Q | ||
10173 | "^DD",409. 85,409.85, 13.3,3) | ||
10174 | Select an Institutio n. | ||
10175 | "^DD",409. 85,409.85, 13.3,21,0) | ||
10176 | ^^1^1^3150 423^ | ||
10177 | "^DD",409. 85,409.85, 13.3,21,1, 0) | ||
10178 | This is th e institut ion the cl inic appoi ntment bel ongs to. | ||
10179 | "^DD",409. 85,409.85, 13.3,23,0) | ||
10180 | ^.001^2^2^ 3150423^^^ ^ | ||
10181 | "^DD",409. 85,409.85, 13.3,23,1, 0) | ||
10182 | A pointer from the H OSPITAL LO CATION fil e of the s cheduled a ppointment to | ||
10183 | "^DD",409. 85,409.85, 13.3,23,2, 0) | ||
10184 | the INSTIT UTION file (#4). | ||
10185 | "^DD",409. 85,409.85, 13.3,"DT") | ||
10186 | 3150418 | ||
10187 | "^DD",409. 85,409.85, 13.4,0) | ||
10188 | APPT STOP CODE^P40.7 '^DIC(40.7 ,^SDAPT;4^ Q | ||
10189 | "^DD",409. 85,409.85, 13.4,3) | ||
10190 | Select a C LINIC STOP code. | ||
10191 | "^DD",409. 85,409.85, 13.4,21,0) | ||
10192 | ^^3^3^3150 423^ | ||
10193 | "^DD",409. 85,409.85, 13.4,21,1, 0) | ||
10194 | This is th e stop cod e/specialt y of a cli nic associ ated with the patien t | ||
10195 | "^DD",409. 85,409.85, 13.4,21,2, 0) | ||
10196 | appointmen t. This ma y be diffe rent that the STOP C ODE define d in the R EQ | ||
10197 | "^DD",409. 85,409.85, 13.4,21,3, 0) | ||
10198 | SERVICE/SP ECIALTY fi eld. | ||
10199 | "^DD",409. 85,409.85, 13.4,23,0) | ||
10200 | ^.001^2^2^ 3150423^^^ | ||
10201 | "^DD",409. 85,409.85, 13.4,23,1, 0) | ||
10202 | This is th e primary STOP CODE Number poi nter to th e CLINIC S TOP file | ||
10203 | "^DD",409. 85,409.85, 13.4,23,2, 0) | ||
10204 | (#40.7). | ||
10205 | "^DD",409. 85,409.85, 13.4,"DT") | ||
10206 | 3150418 | ||
10207 | "^DD",409. 85,409.85, 13.5,0) | ||
10208 | APPT CREDI T STOP COD E^P40.7'^D IC(40.7,^S DAPT;5^Q | ||
10209 | "^DD",409. 85,409.85, 13.5,3) | ||
10210 | Select a C LINIC STOP code. | ||
10211 | "^DD",409. 85,409.85, 13.5,21,0) | ||
10212 | ^^2^2^3150 423^ | ||
10213 | "^DD",409. 85,409.85, 13.5,21,1, 0) | ||
10214 | This is th e credit s top code o ptionally assigned t o the HOSP ITAL LOCAT ION | ||
10215 | "^DD",409. 85,409.85, 13.5,21,2, 0) | ||
10216 | file assoc iated with the sched uled appoi ntment. | ||
10217 | "^DD",409. 85,409.85, 13.5,23,0) | ||
10218 | ^.001^4^4^ 3150423^^^ | ||
10219 | "^DD",409. 85,409.85, 13.5,23,1, 0) | ||
10220 | This is th e secondar y (optiona l) Stop Co de Number pointer to the CLINI C | ||
10221 | "^DD",409. 85,409.85, 13.5,23,2, 0) | ||
10222 | STOP file (#40.7). | ||
10223 | "^DD",409. 85,409.85, 13.5,23,3, 0) | ||
10224 | This stop code is as signed to the HOSPIT AL LOCATIO N file ass ociated wi th | ||
10225 | "^DD",409. 85,409.85, 13.5,23,4, 0) | ||
10226 | the schedu led appoin tment. | ||
10227 | "^DD",409. 85,409.85, 13.5,"DT") | ||
10228 | 3150418 | ||
10229 | "^DD",409. 85,409.85, 13.6,0) | ||
10230 | APPT STATI ON NUMBER^ F^^SDAPT;6 ^K:$L(X)>6 !($L(X)<3) X | ||
10231 | "^DD",409. 85,409.85, 13.6,3) | ||
10232 | Answer mus t be 3-6 c haracters in length. | ||
10233 | "^DD",409. 85,409.85, 13.6,21,0) | ||
10234 | ^^2^2^3150 423^ | ||
10235 | "^DD",409. 85,409.85, 13.6,21,1, 0) | ||
10236 | This is th e 3-digit station nu mber assig ned to the facility plus up to 3 | ||
10237 | "^DD",409. 85,409.85, 13.6,21,2, 0) | ||
10238 | optional m odifiers. | ||
10239 | "^DD",409. 85,409.85, 13.6,23,0) | ||
10240 | ^.001^2^2^ 3150423^^^ | ||
10241 | "^DD",409. 85,409.85, 13.6,23,1, 0) | ||
10242 | This is th e STATION NUMBER fie ld (#99) o f the INST ITUTION fi le (#4) | ||
10243 | "^DD",409. 85,409.85, 13.6,23,2, 0) | ||
10244 | associated with the scheduled appointmen t. | ||
10245 | "^DD",409. 85,409.85, 13.6,"DT") | ||
10246 | 3150418 | ||
10247 | "^DD",409. 85,409.85, 13.7,0) | ||
10248 | APPT CLERK ^P200'^VA( 200,^SDAPT ;7^Q | ||
10249 | "^DD",409. 85,409.85, 13.7,3) | ||
10250 | Select an Appt Clerk | ||
10251 | "^DD",409. 85,409.85, 13.7,21,0) | ||
10252 | ^^1^1^3150 423^ | ||
10253 | "^DD",409. 85,409.85, 13.7,21,1, 0) | ||
10254 | This is th e person w ho assigne d the appo intment to the REQUE ST entry. | ||
10255 | "^DD",409. 85,409.85, 13.7,23,0) | ||
10256 | ^^2^2^3150 423^ | ||
10257 | "^DD",409. 85,409.85, 13.7,23,1, 0) | ||
10258 | This is a pointer to the NEW P ERSON file and it re presents a person wh o | ||
10259 | "^DD",409. 85,409.85, 13.7,23,2, 0) | ||
10260 | entered th e schedule d appointm ent into t he Appoint ment Reque st. | ||
10261 | "^DD",409. 85,409.85, 13.7,"DT") | ||
10262 | 3150418 | ||
10263 | "^DD",409. 85,409.85, 13.8,0) | ||
10264 | APPT STATU S^S^R:Sche duled/Kept ;I:Inpatie nt;NS:No-S how;NSR:No _Show, Res cheduled;C P:Canceled by Patien t;CPR:Canc eled by Pa tient, Res cheduled;C C:Canceled by Clinic ;CCR:Cance led by Cli nic, Resch eduled;NT: No Action Taken;^SDA PT;8^Q | ||
10265 | "^DD",409. 85,409.85, 13.8,3) | ||
10266 | Select an Appt Statu s | ||
10267 | "^DD",409. 85,409.85, 13.8,21,0) | ||
10268 | ^^2^2^3150 423^ | ||
10269 | "^DD",409. 85,409.85, 13.8,21,1, 0) | ||
10270 | This field identifie s the stat us of the appointmen t that is associated | ||
10271 | "^DD",409. 85,409.85, 13.8,21,2, 0) | ||
10272 | with this appointmen t request. | ||
10273 | "^DD",409. 85,409.85, 13.8,"DT") | ||
10274 | 3150418 | ||
10275 | "^DD",409. 85,409.85, 14,0) | ||
10276 | SERVICE CO NNECTED PE RCENTAGE^N J3,0^^SC;1 ^K:+X'=X!( X>100)!(X< 0)!(X?.E1" ."1N.N) X | ||
10277 | "^DD",409. 85,409.85, 14,3) | ||
10278 | Type a num ber betwee n 0 and 10 0, 0 decim al digits. | ||
10279 | "^DD",409. 85,409.85, 14,21,0) | ||
10280 | ^^2^2^3150 423^ | ||
10281 | "^DD",409. 85,409.85, 14,21,1,0) | ||
10282 | The SERVIC E CONNECTE D PERCENTA GE is used to determ ine the se rvice | ||
10283 | "^DD",409. 85,409.85, 14,21,2,0) | ||
10284 | connected priority. | ||
10285 | "^DD",409. 85,409.85, 14,"DT") | ||
10286 | 3150418 | ||
10287 | "^DD",409. 85,409.85, 15,0) | ||
10288 | SERVICE CO NNECTED PR IORITY^S^0 :NO;1:YES; ^SC;2^Q | ||
10289 | "^DD",409. 85,409.85, 15,3) | ||
10290 | Enter 0 or NO if the appointme nt does no t get a Se rvice Conn ected Prio rity. Ente r 1 or YES if the ap pointment DOES get a Service C onnected P riority. | ||
10291 | "^DD",409. 85,409.85, 15,21,0) | ||
10292 | ^^2^2^3150 423^ | ||
10293 | "^DD",409. 85,409.85, 15,21,1,0) | ||
10294 | This field represent s whether the appoin tment has a Service Connected | ||
10295 | "^DD",409. 85,409.85, 15,21,2,0) | ||
10296 | Priority. | ||
10297 | "^DD",409. 85,409.85, 15,"DT") | ||
10298 | 3150418 | ||
10299 | "^DD",409. 85,409.85, 19,0) | ||
10300 | DATE DISPO SITIONED^D ^^DIS;1^S %DT="EX" D ^%DT S X= Y K:Y<1 X | ||
10301 | "^DD",409. 85,409.85, 19,3) | ||
10302 | Enter a da te. | ||
10303 | "^DD",409. 85,409.85, 19,21,0) | ||
10304 | ^.001^2^2^ 3150423^^ | ||
10305 | "^DD",409. 85,409.85, 19,21,1,0) | ||
10306 | This repre sents the date that the patien t is dispo sitioned f rom the | ||
10307 | "^DD",409. 85,409.85, 19,21,2,0) | ||
10308 | Appointmen t Request list. | ||
10309 | "^DD",409. 85,409.85, 19,"DT") | ||
10310 | 3150423 | ||
10311 | "^DD",409. 85,409.85, 20,0) | ||
10312 | DISPOSITIO NED BY^P20 0'^VA(200, ^DIS;2^Q | ||
10313 | "^DD",409. 85,409.85, 20,3) | ||
10314 | Select a u ser/provid er | ||
10315 | "^DD",409. 85,409.85, 20,21,0) | ||
10316 | ^^2^2^3150 423^ | ||
10317 | "^DD",409. 85,409.85, 20,21,1,0) | ||
10318 | This repre sents the user who d isposition ed the pat ient from the | ||
10319 | "^DD",409. 85,409.85, 20,21,2,0) | ||
10320 | appointmen t request list. | ||
10321 | "^DD",409. 85,409.85, 20,"DT") | ||
10322 | 3150418 | ||
10323 | "^DD",409. 85,409.85, 21,0) | ||
10324 | DISPOSITIO N^S^D:DEAT H;NC:REMOV ED/NON-VA CARE;SA:RE MOVED/SCHE DULED-ASSI GNED;CC:RE MOVED/VA C ONTRACT CA RE;NN:REMO VED/NO LON GER NECESS ARY;ER:ENT ERED IN ER ROR;TR:TRA NSFERRED T O EWL;CL:C HANGED CLI NIC;MC:MRT C PARENT C LOSED;^DIS ;3^Q | ||
10325 | "^DD",409. 85,409.85, 21,3) | ||
10326 | Select a d isposition | ||
10327 | "^DD",409. 85,409.85, 21,21,0) | ||
10328 | ^.001^2^2^ 3180725^^^ | ||
10329 | "^DD",409. 85,409.85, 21,21,1,0) | ||
10330 | This field represent s the reas on this pa tient has been dispo sitioned f rom | ||
10331 | "^DD",409. 85,409.85, 21,21,2,0) | ||
10332 | this appoi ntment Req uest. | ||
10333 | "^DD",409. 85,409.85, 21,"DT") | ||
10334 | 3180725 | ||
10335 | "^DD",409. 85,409.85, 21.1,0) | ||
10336 | DISPOSITIO N CLOSED B Y CLEANUP^ S^Y:YES;N: NO;^DIS;4^ Q | ||
10337 | "^DD",409. 85,409.85, 21.1,3) | ||
10338 | Enter Yes if Disposi tion was d ue to Open Request b eing Close d with Cle anup Utili ty. Other wise enter No. | ||
10339 | "^DD",409. 85,409.85, 21.1,21,0) | ||
10340 | ^^2^2^3161 207^ | ||
10341 | "^DD",409. 85,409.85, 21.1,21,1, 0) | ||
10342 | Enter Yes if Disposi tion is re lated to O pen Reques t becoming Closed du e | ||
10343 | "^DD",409. 85,409.85, 21.1,21,2, 0) | ||
10344 | to the run ning of Cl eanup Util ity. Othe rwise ente r No. | ||
10345 | "^DD",409. 85,409.85, 21.1,"DT") | ||
10346 | 3161207 | ||
10347 | "^DD",409. 85,409.85, 22,0) | ||
10348 | CID/PREFER RED DATE O F APPT^RD^ ^0;16^S %D T="EX" D ^ %DT S X=Y K:Y<1 X | ||
10349 | "^DD",409. 85,409.85, 22,3) | ||
10350 | Enter the CID/Prefer red Date o f this app ointment. | ||
10351 | "^DD",409. 85,409.85, 22,21,0) | ||
10352 | ^^8^8^3150 423^ | ||
10353 | "^DD",409. 85,409.85, 22,21,1,0) | ||
10354 | This CID/P REFERRED D ATE OF APP T field re presents t he date th at the | ||
10355 | "^DD",409. 85,409.85, 22,21,2,0) | ||
10356 | patient or provider has reques ted for th e appointm ent. | ||
10357 | "^DD",409. 85,409.85, 22,21,3,0) | ||
10358 | |||
10359 | "^DD",409. 85,409.85, 22,21,4,0) | ||
10360 | |||
10361 | "^DD",409. 85,409.85, 22,21,5,0) | ||
10362 | If the pri ority is A SAP, this is the dat e the pati ent is pla ced on the | ||
10363 | "^DD",409. 85,409.85, 22,21,6,0) | ||
10364 | REQUEST Li st (SCHEDU LING). | ||
10365 | "^DD",409. 85,409.85, 22,21,7,0) | ||
10366 | If the pri ority is F UTURE, the user ente rs the dat e that the | ||
10367 | "^DD",409. 85,409.85, 22,21,8,0) | ||
10368 | patient/pr ovider is requesting that the appointmen t is to be scheduled . | ||
10369 | "^DD",409. 85,409.85, 22,"DT") | ||
10370 | 3150423 | ||
10371 | "^DD",409. 85,409.85, 23,0) | ||
10372 | CURRENT ST ATUS^Sa^O: OPEN;C:CLO SED;^0;17^ Q | ||
10373 | "^DD",409. 85,409.85, 23,3) | ||
10374 | Enter O or OPEN if t he APPT Re quest entr y is open. Enter C o r CLOSED i f the APPT Request e ntry is cl osed. | ||
10375 | "^DD",409. 85,409.85, 23,21,0) | ||
10376 | ^^3^3^3150 804^ | ||
10377 | "^DD",409. 85,409.85, 23,21,1,0) | ||
10378 | This field represent s the curr ent status of this a ppointment request. | ||
10379 | "^DD",409. 85,409.85, 23,21,2,0) | ||
10380 | If the APP T Request entry is d isposition ed, the st atus = | ||
10381 | "^DD",409. 85,409.85, 23,21,3,0) | ||
10382 | CLOSED, ot herwise, t he APPT Re quest entr y status = OPEN. | ||
10383 | "^DD",409. 85,409.85, 23,"AUDIT" ) | ||
10384 | y | ||
10385 | "^DD",409. 85,409.85, 23,"DT") | ||
10386 | 3161208 | ||
10387 | "^DD",409. 85,409.85, 25,0) | ||
10388 | COMMENTS^F a^^0;18^K: $L(X)>80!( $L(X)<1) X | ||
10389 | "^DD",409. 85,409.85, 25,3) | ||
10390 | Answer mus t be 1-80 characters in length . | ||
10391 | "^DD",409. 85,409.85, 25,21,0) | ||
10392 | ^.001^7^7^ 3160104^^ | ||
10393 | "^DD",409. 85,409.85, 25,21,1,0) | ||
10394 | This Free Text field represent s informat ion relate d to the a ppointment | ||
10395 | "^DD",409. 85,409.85, 25,21,2,0) | ||
10396 | request. | ||
10397 | "^DD",409. 85,409.85, 25,21,3,0) | ||
10398 | |||
10399 | "^DD",409. 85,409.85, 25,21,4,0) | ||
10400 | |||
10401 | "^DD",409. 85,409.85, 25,21,5,0) | ||
10402 | example: s ee progres s note dat e 5/01/02 this would direct th e scheduli ng | ||
10403 | "^DD",409. 85,409.85, 25,21,6,0) | ||
10404 | clerk to a note that may conta in lab, xr ay orders that need to be | ||
10405 | "^DD",409. 85,409.85, 25,21,7,0) | ||
10406 | completed prior to t he appoint ment. | ||
10407 | "^DD",409. 85,409.85, 25,"AUDIT" ) | ||
10408 | y | ||
10409 | "^DD",409. 85,409.85, 25,"AX") | ||
10410 | |||
10411 | "^DD",409. 85,409.85, 25,"DT") | ||
10412 | 3161102 | ||
10413 | "^DD",409. 85,409.85, 41,0) | ||
10414 | MULTIPLE A PPOINTMENT RTC^S^0:N O;1:YES;^3 ;1^Q | ||
10415 | "^DD",409. 85,409.85, 41,3) | ||
10416 | Select 1 o r YES if m ultiple ap pointments are neede d. Select 0 or NO if multiple appointmen ts are not needed. | ||
10417 | "^DD",409. 85,409.85, 41,21,0) | ||
10418 | ^^7^7^3150 423^ | ||
10419 | "^DD",409. 85,409.85, 41,21,1,0) | ||
10420 | This field represent s that Mul tiple Appo intments n eed to be made. | ||
10421 | "^DD",409. 85,409.85, 41,21,2,0) | ||
10422 | |||
10423 | "^DD",409. 85,409.85, 41,21,3,0) | ||
10424 | If set to NO (0 zero ), Multipl e Appointm ent (Retur n to Clini c) are not | ||
10425 | "^DD",409. 85,409.85, 41,21,4,0) | ||
10426 | scheduled. | ||
10427 | "^DD",409. 85,409.85, 41,21,5,0) | ||
10428 | |||
10429 | "^DD",409. 85,409.85, 41,21,6,0) | ||
10430 | If set to YES (1), M ultiple Ap pointment (Return to Clinic) c ould be | ||
10431 | "^DD",409. 85,409.85, 41,21,7,0) | ||
10432 | scheduled. | ||
10433 | "^DD",409. 85,409.85, 41,"DT") | ||
10434 | 3150418 | ||
10435 | "^DD",409. 85,409.85, 42,0) | ||
10436 | MULT APPT RTC INTERV AL^NJ3,0^^ 3;2^K:+X'= X!(X>365)! (X<0)!(X?. E1"."1N.N) X | ||
10437 | "^DD",409. 85,409.85, 42,3) | ||
10438 | Type a num ber betwee n 0 and 36 5, 0 decim al digits. | ||
10439 | "^DD",409. 85,409.85, 42,21,0) | ||
10440 | ^^2^2^3150 423^ | ||
10441 | "^DD",409. 85,409.85, 42,21,1,0) | ||
10442 | The MULT A PPT RTC IN TERVAL rep resents th e number o f Days bet ween | ||
10443 | "^DD",409. 85,409.85, 42,21,2,0) | ||
10444 | appointmen ts. | ||
10445 | "^DD",409. 85,409.85, 42,"DT") | ||
10446 | 3150418 | ||
10447 | "^DD",409. 85,409.85, 43,0) | ||
10448 | MULT APPT NUMBER^NJ3 ,0^^3;3^K: +X'=X!(X>1 00)!(X<0)! (X?.E1"."1 N.N) X | ||
10449 | "^DD",409. 85,409.85, 43,3) | ||
10450 | Type a num ber betwee n 0 and 10 0, 0 decim al digits. | ||
10451 | "^DD",409. 85,409.85, 43,21,0) | ||
10452 | ^^1^1^3150 423^ | ||
10453 | "^DD",409. 85,409.85, 43,21,1,0) | ||
10454 | This field represent s the numb er of appo intments t hat may be needed. | ||
10455 | "^DD",409. 85,409.85, 43,"DT") | ||
10456 | 3150418 | ||
10457 | "^DD",409. 85,409.85, 43.3,0) | ||
10458 | MULT APPTS MADE^409. 852P^^2;0 | ||
10459 | "^DD",409. 85,409.85, 43.3,21,0) | ||
10460 | ^.001^2^2^ 3160105^^^ | ||
10461 | "^DD",409. 85,409.85, 43.3,21,1, 0) | ||
10462 | These are the MRTC A ppointment s that hav e been mad e for this appointme nt | ||
10463 | "^DD",409. 85,409.85, 43.3,21,2, 0) | ||
10464 | request. | ||
10465 | "^DD",409. 85,409.85, 43.3,23,0) | ||
10466 | ^.001^1^1^ 3160105^^^ | ||
10467 | "^DD",409. 85,409.85, 43.3,23,1, 0) | ||
10468 | These appo intments a re pointer s to the S DEC APPOIN TMENT file 409.84. | ||
10469 | "^DD",409. 85,409.85, 43.5,0) | ||
10470 | MRTC CALC PREF DATES ^409.851D^ ^5;0 | ||
10471 | "^DD",409. 85,409.85, 43.5,21,0) | ||
10472 | ^^2^2^3150 423^ | ||
10473 | "^DD",409. 85,409.85, 43.5,21,1, 0) | ||
10474 | This multi ple field holds the dates that are reque sted for m ultiple | ||
10475 | "^DD",409. 85,409.85, 43.5,21,2, 0) | ||
10476 | appointmen ts. | ||
10477 | "^DD",409. 85,409.85, 43.8,0) | ||
10478 | PARENT REQ UEST^P409. 85'^SDEC(4 09.85,^3;5 ^Q | ||
10479 | "^DD",409. 85,409.85, 43.8,3) | ||
10480 | Select an appointmen t request | ||
10481 | "^DD",409. 85,409.85, 43.8,21,0) | ||
10482 | ^^1^1^3160 105^ | ||
10483 | "^DD",409. 85,409.85, 43.8,21,1, 0) | ||
10484 | This field represent s the pare nt appoint ment reque st. | ||
10485 | "^DD",409. 85,409.85, 43.8,"DT") | ||
10486 | 3160105 | ||
10487 | "^DD",409. 85,409.85, 44,0) | ||
10488 | PATIENT CO NTACT^409. 8544D^^4;0 | ||
10489 | "^DD",409. 85,409.85, 44,21,0) | ||
10490 | ^.001^1^1^ 3150902^^^ ^ | ||
10491 | "^DD",409. 85,409.85, 44,21,1,0) | ||
10492 | This multi ple record s the pati ent contac t events. | ||
10493 | "^DD",409. 85,409.85, 45,0) | ||
10494 | VS AUDIT^4 09.8545DA^ ^6;0 | ||
10495 | "^DD",409. 85,409.85, 45,21,0) | ||
10496 | ^^2^2^3151 201^ | ||
10497 | "^DD",409. 85,409.85, 45,21,1,0) | ||
10498 | This multi ple is lik e an audit trail for specific fields and is used b y | ||
10499 | "^DD",409. 85,409.85, 45,21,2,0) | ||
10500 | VistA Sche duling GUI . | ||
10501 | "^DD",409. 85,409.85, 46,0) | ||
10502 | ORDER ID^N J11,0^^7;1 ^K:+X'=X!( X>99999999 999)!(X<1) !(X?.E1"." 1N.N) X | ||
10503 | "^DD",409. 85,409.85, 46,3) | ||
10504 | Type a num ber betwee n 1 and 99 999999999, 0 decimal digits. | ||
10505 | "^DD",409. 85,409.85, 46,21,0) | ||
10506 | ^.001^1^1^ 3171107^^^ | ||
10507 | "^DD",409. 85,409.85, 46,21,1,0) | ||
10508 | This field is the HL 7 Message ID used fo r Return t o Clinic o rders. | ||
10509 | "^DD",409. 85,409.85, 46,23,0) | ||
10510 | ^.001^1^1^ 3171107^^^ | ||
10511 | "^DD",409. 85,409.85, 46,23,1,0) | ||
10512 | Message ID number fr om the ORD ER (#100) file. | ||
10513 | "^DD",409. 85,409.85, 46,"DT") | ||
10514 | 3170619 | ||
10515 | "^DD",409. 85,409.85, 47,0) | ||
10516 | TIME SENSI TIVE^S^0:N O;1:YES;^7 ;2^Q | ||
10517 | "^DD",409. 85,409.85, 47,3) | ||
10518 | Select 'YE S' or 'NO' | ||
10519 | "^DD",409. 85,409.85, 47,21,0) | ||
10520 | ^.001^1^1^ 3171107^^^ | ||
10521 | "^DD",409. 85,409.85, 47,21,1,0) | ||
10522 | Used to in dicate tim e sensitiv e Return t o Clinic o rder. | ||
10523 | "^DD",409. 85,409.85, 47,23,0) | ||
10524 | ^.001^1^1^ 3171107^^^ | ||
10525 | "^DD",409. 85,409.85, 47,23,1,0) | ||
10526 | Set of cod es '0' for 'NO' and '1' for 'Y ES'. | ||
10527 | "^DD",409. 85,409.85, 47,"DT") | ||
10528 | 3171107 | ||
10529 | "^DD",409. 85,409.85, 48,0) | ||
10530 | PREREQUISI TE^409.854 8^^8;0 | ||
10531 | "^DD",409. 85,409.85, 48,21,0) | ||
10532 | ^.001^1^1^ 3171107^^^ ^ | ||
10533 | "^DD",409. 85,409.85, 48,21,1,0) | ||
10534 | A list of all prereq uisites as sociated w ith this R eturn to C linic orde r. | ||
10535 | "^DD",409. 85,409.85, 48,23,0) | ||
10536 | ^.001^1^1^ 3171107^^^ ^ | ||
10537 | "^DD",409. 85,409.85, 48,23,1,0) | ||
10538 | Free text field 1 to 80 charac ters. | ||
10539 | "^DD",409. 85,409.85, 48,"DT") | ||
10540 | 3171107 | ||
10541 | "^DD",409. 85,409.851 ,0) | ||
10542 | MRTC CALC PREF DATES SUB-FIELD ^^.01^1 | ||
10543 | "^DD",409. 85,409.851 ,0,"DT") | ||
10544 | 3150418 | ||
10545 | "^DD",409. 85,409.851 ,0,"IX","B ",409.851, .01) | ||
10546 | |||
10547 | "^DD",409. 85,409.851 ,0,"NM","M RTC CALC P REF DATES" ) | ||
10548 | |||
10549 | "^DD",409. 85,409.851 ,0,"UP") | ||
10550 | 409.85 | ||
10551 | "^DD",409. 85,409.851 ,.01,0) | ||
10552 | MRTC CALC PREF DATES ^MD^^0;1^S %DT="EX" D ^%DT S X =Y K:Y<1 X | ||
10553 | "^DD",409. 85,409.851 ,.01,1,0) | ||
10554 | ^.1 | ||
10555 | "^DD",409. 85,409.851 ,.01,1,1,0 ) | ||
10556 | 409.851^B | ||
10557 | "^DD",409. 85,409.851 ,.01,1,1,1 ) | ||
10558 | S ^SDEC(40 9.85,DA(1) ,5,"B",$E( X,1,30),DA )="" | ||
10559 | "^DD",409. 85,409.851 ,.01,1,1,2 ) | ||
10560 | K ^SDEC(40 9.85,DA(1) ,5,"B",$E( X,1,30),DA ) | ||
10561 | "^DD",409. 85,409.851 ,.01,3) | ||
10562 | Enter a da te | ||
10563 | "^DD",409. 85,409.851 ,.01,21,0) | ||
10564 | ^^2^2^3150 423^ | ||
10565 | "^DD",409. 85,409.851 ,.01,21,1, 0) | ||
10566 | This field represent s one of t he dates r equested f or one of the multip le | ||
10567 | "^DD",409. 85,409.851 ,.01,21,2, 0) | ||
10568 | appointmen ts. | ||
10569 | "^DD",409. 85,409.851 ,.01,"DT") | ||
10570 | 3150418 | ||
10571 | "^DD",409. 85,409.852 ,0) | ||
10572 | MULT APPTS MADE SUB- FIELD^^.02 ^2 | ||
10573 | "^DD",409. 85,409.852 ,0,"DT") | ||
10574 | 3150511 | ||
10575 | "^DD",409. 85,409.852 ,0,"IX","B ",409.852, .01) | ||
10576 | |||
10577 | "^DD",409. 85,409.852 ,0,"NM","M ULT APPTS MADE") | ||
10578 | |||
10579 | "^DD",409. 85,409.852 ,0,"UP") | ||
10580 | 409.85 | ||
10581 | "^DD",409. 85,409.852 ,.01,0) | ||
10582 | CHILD REQU EST^MP409. 85'^SDEC(4 09.85,^0;1 ^Q | ||
10583 | "^DD",409. 85,409.852 ,.01,1,0) | ||
10584 | ^.1 | ||
10585 | "^DD",409. 85,409.852 ,.01,1,1,0 ) | ||
10586 | 409.852^B | ||
10587 | "^DD",409. 85,409.852 ,.01,1,1,1 ) | ||
10588 | S ^SDEC(40 9.85,DA(1) ,2,"B",$E( X,1,30),DA )="" | ||
10589 | "^DD",409. 85,409.852 ,.01,1,1,2 ) | ||
10590 | K ^SDEC(40 9.85,DA(1) ,2,"B",$E( X,1,30),DA ) | ||
10591 | "^DD",409. 85,409.852 ,.01,3) | ||
10592 | Select an appointmen t request. | ||
10593 | "^DD",409. 85,409.852 ,.01,21,0) | ||
10594 | ^^3^3^3160 105^ | ||
10595 | "^DD",409. 85,409.852 ,.01,21,1, 0) | ||
10596 | |||
10597 | "^DD",409. 85,409.852 ,.01,21,2, 0) | ||
10598 | |||
10599 | "^DD",409. 85,409.852 ,.01,21,3, 0) | ||
10600 | This field represent s a 'Child ' appointm ent reques t. | ||
10601 | "^DD",409. 85,409.852 ,.01,23,0) | ||
10602 | ^^1^1^3160 105^ | ||
10603 | "^DD",409. 85,409.852 ,.01,23,1, 0) | ||
10604 | Pointer to the SDEC APPT REQUE ST file 40 9.85. | ||
10605 | "^DD",409. 85,409.852 ,.01,"DT") | ||
10606 | 3160105 | ||
10607 | "^DD",409. 85,409.852 ,.02,0) | ||
10608 | MULT APPTS MADE^P409 .84'^SDEC( 409.84,^0; 2^Q | ||
10609 | "^DD",409. 85,409.852 ,.02,3) | ||
10610 | Select an appointmen t | ||
10611 | "^DD",409. 85,409.852 ,.02,21,0) | ||
10612 | ^^2^2^3160 105^ | ||
10613 | "^DD",409. 85,409.852 ,.02,21,1, 0) | ||
10614 | This field represent s one of t he Multipl e Appointm ents that have been | ||
10615 | "^DD",409. 85,409.852 ,.02,21,2, 0) | ||
10616 | made based on this a ppointment request. | ||
10617 | "^DD",409. 85,409.852 ,.02,23,0) | ||
10618 | ^^1^1^3160 105^ | ||
10619 | "^DD",409. 85,409.852 ,.02,23,1, 0) | ||
10620 | Pointer to SDEC APPO INTMENT fi le 409.84. | ||
10621 | "^DD",409. 85,409.852 ,.02,"DT") | ||
10622 | 3160105 | ||
10623 | "^DD",409. 85,409.854 4,0) | ||
10624 | PATIENT CO NTACT SUB- FIELD^^4^4 | ||
10625 | "^DD",409. 85,409.854 4,0,"DT") | ||
10626 | 3150902 | ||
10627 | "^DD",409. 85,409.854 4,0,"IX"," B",409.854 4,.01) | ||
10628 | |||
10629 | "^DD",409. 85,409.854 4,0,"NM"," PATIENT CO NTACT") | ||
10630 | |||
10631 | "^DD",409. 85,409.854 4,0,"UP") | ||
10632 | 409.85 | ||
10633 | "^DD",409. 85,409.854 4,.01,0) | ||
10634 | DATE ENTER ED^D^^0;1^ S %DT="ETX " D ^%DT S X=Y K:Y<1 X | ||
10635 | "^DD",409. 85,409.854 4,.01,1,0) | ||
10636 | ^.1 | ||
10637 | "^DD",409. 85,409.854 4,.01,1,1, 0) | ||
10638 | 409.8544^B | ||
10639 | "^DD",409. 85,409.854 4,.01,1,1, 1) | ||
10640 | S ^SDEC(40 9.85,DA(1) ,4,"B",$E( X,1,30),DA )="" | ||
10641 | "^DD",409. 85,409.854 4,.01,1,1, 2) | ||
10642 | K ^SDEC(40 9.85,DA(1) ,4,"B",$E( X,1,30),DA ) | ||
10643 | "^DD",409. 85,409.854 4,.01,3) | ||
10644 | Enter the date and o ptional ti me that th is patient was conta cted. | ||
10645 | "^DD",409. 85,409.854 4,.01,21,0 ) | ||
10646 | ^.001^3^3^ 3150423^^^ ^ | ||
10647 | "^DD",409. 85,409.854 4,.01,21,1 ,0) | ||
10648 | This DATE ENTERED fi eld repres ents the D ate that a n attempt was made t o | ||
10649 | "^DD",409. 85,409.854 4,.01,21,2 ,0) | ||
10650 | contact th e patient regarding 'this' app ointment R EQUEST. | ||
10651 | "^DD",409. 85,409.854 4,.01,21,3 ,0) | ||
10652 | The time c an also be optionall y entered. | ||
10653 | "^DD",409. 85,409.854 4,.01,"DT" ) | ||
10654 | 3150422 | ||
10655 | "^DD",409. 85,409.854 4,2,0) | ||
10656 | ENTERED BY USER^P200 '^VA(200,^ 0;2^Q | ||
10657 | "^DD",409. 85,409.854 4,2,3) | ||
10658 | Select a u ser/provid er | ||
10659 | "^DD",409. 85,409.854 4,2,21,0) | ||
10660 | ^^2^2^3150 423^ | ||
10661 | "^DD",409. 85,409.854 4,2,21,1,0 ) | ||
10662 | This ENTER ED BY USER field rep resents th e user/pro vider that made an | ||
10663 | "^DD",409. 85,409.854 4,2,21,2,0 ) | ||
10664 | attempt to contact t he patient regarding this appo intment re quest. | ||
10665 | "^DD",409. 85,409.854 4,2,"DT") | ||
10666 | 3150418 | ||
10667 | "^DD",409. 85,409.854 4,3,0) | ||
10668 | ACTION^S^C :CALLED;M: MESSAGE LE FT;L:LETTE R;^0;3^Q | ||
10669 | "^DD",409. 85,409.854 4,3,3) | ||
10670 | Select an action. | ||
10671 | "^DD",409. 85,409.854 4,3,21,0) | ||
10672 | ^.001^5^5^ 3150423^^ | ||
10673 | "^DD",409. 85,409.854 4,3,21,1,0 ) | ||
10674 | The ACTION field rep resents th e attempt that was m ade to con tact the | ||
10675 | "^DD",409. 85,409.854 4,3,21,2,0 ) | ||
10676 | patient re garding 't his' appoi ntment. | ||
10677 | "^DD",409. 85,409.854 4,3,21,3,0 ) | ||
10678 | C = Called | ||
10679 | "^DD",409. 85,409.854 4,3,21,4,0 ) | ||
10680 | M = Messag e Left | ||
10681 | "^DD",409. 85,409.854 4,3,21,5,0 ) | ||
10682 | L = Letter | ||
10683 | "^DD",409. 85,409.854 4,3,"DT") | ||
10684 | 3150418 | ||
10685 | "^DD",409. 85,409.854 4,4,0) | ||
10686 | PATIENT PH ONE^F^^0;4 ^K:$L(X)>2 0!($L(X)<4 ) X | ||
10687 | "^DD",409. 85,409.854 4,4,3) | ||
10688 | Answer mus t be 4-20 characters in length . | ||
10689 | "^DD",409. 85,409.854 4,4,21,0) | ||
10690 | ^.001^1^1^ 3150423^^ | ||
10691 | "^DD",409. 85,409.854 4,4,21,1,0 ) | ||
10692 | This is th e phone nu mber used to contact the patie nt. | ||
10693 | "^DD",409. 85,409.854 4,4,"DT") | ||
10694 | 3150418 | ||
10695 | "^DD",409. 85,409.854 5,0) | ||
10696 | VS AUDIT S UB-FIELD^^ 3^4 | ||
10697 | "^DD",409. 85,409.854 5,0,"DT") | ||
10698 | 3151201 | ||
10699 | "^DD",409. 85,409.854 5,0,"IX"," B",409.854 5,.01) | ||
10700 | |||
10701 | "^DD",409. 85,409.854 5,0,"NM"," VS AUDIT") | ||
10702 | |||
10703 | "^DD",409. 85,409.854 5,0,"UP") | ||
10704 | 409.85 | ||
10705 | "^DD",409. 85,409.854 5,.01,0) | ||
10706 | DATE EDITE D^MD^^0;1^ S %DT="ETX R" D ^%DT S X=Y K:Y< 1 X | ||
10707 | "^DD",409. 85,409.854 5,.01,1,0) | ||
10708 | ^.1 | ||
10709 | "^DD",409. 85,409.854 5,.01,1,1, 0) | ||
10710 | 409.8545^B | ||
10711 | "^DD",409. 85,409.854 5,.01,1,1, 1) | ||
10712 | S ^SDEC(40 9.85,DA(1) ,6,"B",$E( X,1,30),DA )="" | ||
10713 | "^DD",409. 85,409.854 5,.01,1,1, 2) | ||
10714 | K ^SDEC(40 9.85,DA(1) ,6,"B",$E( X,1,30),DA ) | ||
10715 | "^DD",409. 85,409.854 5,.01,3) | ||
10716 | Enter a da te and tim e | ||
10717 | "^DD",409. 85,409.854 5,.01,21,0 ) | ||
10718 | ^.001^2^2^ 3151201^^ | ||
10719 | "^DD",409. 85,409.854 5,.01,21,1 ,0) | ||
10720 | This is th e Date/Tim e in which the edits represent ed by this entry wer e | ||
10721 | "^DD",409. 85,409.854 5,.01,21,2 ,0) | ||
10722 | made. | ||
10723 | "^DD",409. 85,409.854 5,.01,"DT" ) | ||
10724 | 3151201 | ||
10725 | "^DD",409. 85,409.854 5,1,0) | ||
10726 | EDITED BY^ P200'^VA(2 00,^0;2^Q | ||
10727 | "^DD",409. 85,409.854 5,1,3) | ||
10728 | Enter a us er | ||
10729 | "^DD",409. 85,409.854 5,1,21,0) | ||
10730 | ^^1^1^3151 201^ | ||
10731 | "^DD",409. 85,409.854 5,1,21,1,0 ) | ||
10732 | This is th e user tha t edited t he current VS AUDIT entry. | ||
10733 | "^DD",409. 85,409.854 5,1,"DT") | ||
10734 | 3151201 | ||
10735 | "^DD",409. 85,409.854 5,2,0) | ||
10736 | REQ SPECIF IC CLINIC^ P44'^SC(^0 ;3^Q | ||
10737 | "^DD",409. 85,409.854 5,2,3) | ||
10738 | Select a c linic | ||
10739 | "^DD",409. 85,409.854 5,2,21,0) | ||
10740 | ^^1^1^3151 201^ | ||
10741 | "^DD",409. 85,409.854 5,2,21,1,0 ) | ||
10742 | This field represent s the clin ic that th is appoint ment reque st is for. | ||
10743 | "^DD",409. 85,409.854 5,2,"DT") | ||
10744 | 3151201 | ||
10745 | "^DD",409. 85,409.854 5,3,0) | ||
10746 | REQ SERVIC E/SPECIALT Y^P40.7'^D IC(40.7,^0 ;4^Q | ||
10747 | "^DD",409. 85,409.854 5,3,3) | ||
10748 | Select a C LINIC STOP | ||
10749 | "^DD",409. 85,409.854 5,3,21,0) | ||
10750 | ^^2^2^3151 201^ | ||
10751 | "^DD",409. 85,409.854 5,3,21,1,0 ) | ||
10752 | This field represent s the CLIN IC STOP co de (also r eferred to as | ||
10753 | "^DD",409. 85,409.854 5,3,21,2,0 ) | ||
10754 | SERVICE/SP ECIALTY) t hat is ass ociated wi th this ap pointment request. | ||
10755 | "^DD",409. 85,409.854 5,3,"DT") | ||
10756 | 3151201 | ||
10757 | "^DD",409. 85,409.854 8,0) | ||
10758 | PREREQUISI TE SUB-FIE LD^^.01^1 | ||
10759 | "^DD",409. 85,409.854 8,0,"DT") | ||
10760 | 3171107 | ||
10761 | "^DD",409. 85,409.854 8,0,"IX"," B",409.854 8,.01) | ||
10762 | |||
10763 | "^DD",409. 85,409.854 8,0,"NM"," PREREQUISI TE") | ||
10764 | |||
10765 | "^DD",409. 85,409.854 8,0,"UP") | ||
10766 | 409.85 | ||
10767 | "^DD",409. 85,409.854 8,.01,0) | ||
10768 | PREREQUISI TE^MFJ80^^ 0;1^K:$L(X )>80!($L(X )<1) X | ||
10769 | "^DD",409. 85,409.854 8,.01,1,0) | ||
10770 | ^.1 | ||
10771 | "^DD",409. 85,409.854 8,.01,1,1, 0) | ||
10772 | 409.8548^B | ||
10773 | "^DD",409. 85,409.854 8,.01,1,1, 1) | ||
10774 | S ^SDEC(40 9.85,DA(1) ,8,"B",$E( X,1,30),DA )="" | ||
10775 | "^DD",409. 85,409.854 8,.01,1,1, 2) | ||
10776 | K ^SDEC(40 9.85,DA(1) ,8,"B",$E( X,1,30),DA ) | ||
10777 | "^DD",409. 85,409.854 8,.01,3) | ||
10778 | Answer mus t be 1-80 characters in length . | ||
10779 | "^DD",409. 85,409.854 8,.01,21,0 ) | ||
10780 | ^.001^1^1^ 3171107^^^ ^ | ||
10781 | "^DD",409. 85,409.854 8,.01,21,1 ,0) | ||
10782 | Any appoin tment prer equisite a ssociated with this Return to Clinic ord er. | ||
10783 | "^DD",409. 85,409.854 8,.01,23,0 ) | ||
10784 | ^.001^1^1^ 3171107^^^ ^ | ||
10785 | "^DD",409. 85,409.854 8,.01,23,1 ,0) | ||
10786 | Free text field 1 to 80 charac ters. | ||
10787 | "^DD",409. 85,409.854 8,.01,"DT" ) | ||
10788 | 3171107 | ||
10789 | "^DD",409. 86,409.86, 0) | ||
10790 | FIELD^^1.1 ^7 | ||
10791 | "^DD",409. 86,409.86, 0,"DDA") | ||
10792 | N | ||
10793 | "^DD",409. 86,409.86, 0,"DT") | ||
10794 | 3170616 | ||
10795 | "^DD",409. 86,409.86, 0,"ID",1) | ||
10796 | S %I=Y,Y=$ S('$D(^(0) ):"",$D(^S C(+$P(^(0) ,U,2),0))# 2:$P(^(0), U,1),1:"") ,C=$P(^DD( 44,.01,0), U,2) D Y^D IQ:Y]"" W " ",Y,@( "$E("_DIC_ "%I,0),0)" ) S Y=%I K %I | ||
10797 | "^DD",409. 86,409.86, 0,"ID",2.1 ) | ||
10798 | W " ",@( "$P($P($C( 59)_$S($D( ^DD(409.86 ,2.1,0)):$ P(^(0),U,3 ),1:0)_$E( "_DIC_"Y,0 ),0),$C(59 )_$P(^(0), U,4)_"":"" ,2),$C(59) ,1)") | ||
10799 | "^DD",409. 86,409.86, 0,"ID","W1 .1") | ||
10800 | S %I=Y,Y=$ S('$D(^(0) ):"",$D(^D IC(40.7,+$ P(^(0),U,6 ),0))#2:$P (^(0),U,1) ,1:""),C=$ P(^DD(40.7 ,.01,0),U, 2) D Y^DIQ :Y]"" W " ",Y,@("$ E("_DIC_"% I,0),0)") S Y=%I K % I | ||
10801 | "^DD",409. 86,409.86, 0,"ID","W2 ") | ||
10802 | W " ",$$ NAKED^DIUT L("$$DATE^ DIUTL($P(^ (0),U,3))" ) | ||
10803 | "^DD",409. 86,409.86, 0,"IX","B" ,409.86,.0 1) | ||
10804 | |||
10805 | "^DD",409. 86,409.86, 0,"NM","SD EC CONTACT ") | ||
10806 | |||
10807 | "^DD",409. 86,409.86, 0,"PT",409 .94,3) | ||
10808 | |||
10809 | "^DD",409. 86,409.86, 0,"VRPK") | ||
10810 | SD | ||
10811 | "^DD",409. 86,409.86, .01,0) | ||
10812 | PATIENT^RP 2'^DPT(^0; 1^Q | ||
10813 | "^DD",409. 86,409.86, .01,1,0) | ||
10814 | ^.1 | ||
10815 | "^DD",409. 86,409.86, .01,1,1,0) | ||
10816 | 409.86^B | ||
10817 | "^DD",409. 86,409.86, .01,1,1,1) | ||
10818 | S ^SDEC(40 9.86,"B",$ E(X,1,30), DA)="" | ||
10819 | "^DD",409. 86,409.86, .01,1,1,2) | ||
10820 | K ^SDEC(40 9.86,"B",$ E(X,1,30), DA) | ||
10821 | "^DD",409. 86,409.86, .01,3) | ||
10822 | Please ent er current Patient! | ||
10823 | "^DD",409. 86,409.86, .01,21,0) | ||
10824 | ^^1^1^3170 611^ | ||
10825 | "^DD",409. 86,409.86, .01,21,1,0 ) | ||
10826 | This is th e Patient for this c ontact. | ||
10827 | "^DD",409. 86,409.86, .01,23,0) | ||
10828 | ^^1^1^3170 611^ | ||
10829 | "^DD",409. 86,409.86, .01,23,1,0 ) | ||
10830 | Pointer to the Patie nt(#2) fil e. | ||
10831 | "^DD",409. 86,409.86, .01,"DT") | ||
10832 | 3170417 | ||
10833 | "^DD",409. 86,409.86, 1,0) | ||
10834 | CLINIC^P44 '^SC(^0;2^ Q | ||
10835 | "^DD",409. 86,409.86, 1,3) | ||
10836 | Please ent er contact clinic! | ||
10837 | "^DD",409. 86,409.86, 1,21,0) | ||
10838 | ^^1^1^3170 611^ | ||
10839 | "^DD",409. 86,409.86, 1,21,1,0) | ||
10840 | This is th e Clinic f or this co ntact. | ||
10841 | "^DD",409. 86,409.86, 1,23,0) | ||
10842 | ^^1^1^3170 611^ | ||
10843 | "^DD",409. 86,409.86, 1,23,1,0) | ||
10844 | Pointer to the Hospi tal Locati on(#44) fi le. | ||
10845 | "^DD",409. 86,409.86, 1,"DT") | ||
10846 | 3170502 | ||
10847 | "^DD",409. 86,409.86, 1.1,0) | ||
10848 | SERVICE^P4 0.7'^DIC(4 0.7,^0;6^Q | ||
10849 | "^DD",409. 86,409.86, 1.1,3) | ||
10850 | Please ent er Service for this contact. | ||
10851 | "^DD",409. 86,409.86, 1.1,21,0) | ||
10852 | ^.001^1^1^ 3170611^^ | ||
10853 | "^DD",409. 86,409.86, 1.1,21,1,0 ) | ||
10854 | This is th e Service for this c ontact. | ||
10855 | "^DD",409. 86,409.86, 1.1,23,0) | ||
10856 | ^.001^1^1^ 3170611^^ | ||
10857 | "^DD",409. 86,409.86, 1.1,23,1,0 ) | ||
10858 | Pointer to the CLINI C STOP(#40 .7) file. | ||
10859 | "^DD",409. 86,409.86, 1.1,"DT") | ||
10860 | 3170611 | ||
10861 | "^DD",409. 86,409.86, 2,0) | ||
10862 | PREFERRED DATE^D^^0; 3^S %DT="E X" D ^%DT S X=Y K:Y< 1 X | ||
10863 | "^DD",409. 86,409.86, 2,3) | ||
10864 | Please ent er Preferr ed Date of appointme nt. | ||
10865 | "^DD",409. 86,409.86, 2,21,0) | ||
10866 | ^^1^1^3170 611^ | ||
10867 | "^DD",409. 86,409.86, 2,21,1,0) | ||
10868 | This is th e Preferre d Date of Appointmen t for this contact. | ||
10869 | "^DD",409. 86,409.86, 2,23,0) | ||
10870 | ^^2^2^3170 611^ | ||
10871 | "^DD",409. 86,409.86, 2,23,1,0) | ||
10872 | This date field cont ains the P referred D ate of App ointment f or this | ||
10873 | "^DD",409. 86,409.86, 2,23,2,0) | ||
10874 | contact. | ||
10875 | "^DD",409. 86,409.86, 2,"DT") | ||
10876 | 3170611 | ||
10877 | "^DD",409. 86,409.86, 2.1,0) | ||
10878 | REQUEST TY PE^RS^A:AP POINTMENT; C:CONSULT; R:RECALL;V :VETERAN;M :MOBILE;P: PROCEDURE; E:EWL;W:W2 VA;RTC:RET URN TO CLI NIC;^0;4^Q | ||
10879 | "^DD",409. 86,409.86, 2.1,3) | ||
10880 | Select the Request T ype for th is contact ! | ||
10881 | "^DD",409. 86,409.86, 2.1,21,0) | ||
10882 | ^^1^1^3170 611^ | ||
10883 | "^DD",409. 86,409.86, 2.1,21,1,0 ) | ||
10884 | This is th e Request Type of th is contact . | ||
10885 | "^DD",409. 86,409.86, 2.1,23,0) | ||
10886 | ^^1^1^3170 611^ | ||
10887 | "^DD",409. 86,409.86, 2.1,23,1,0 ) | ||
10888 | Contact Re quest Type is a set of codes. | ||
10889 | "^DD",409. 86,409.86, 2.1,"DT") | ||
10890 | 3170612 | ||
10891 | "^DD",409. 86,409.86, 2.2,0) | ||
10892 | MAIN SEQUE NCE^NJ2,0^ ^0;5^K:+X' =X!(X>99)! (X<0)!(X?. E1"."1N.N) X | ||
10893 | "^DD",409. 86,409.86, 2.2,3) | ||
10894 | Type a num ber betwee n 0 and 99 , 0 decima l digits. | ||
10895 | "^DD",409. 86,409.86, 2.2,21,0) | ||
10896 | ^.001^1^1^ 3170611^^^ | ||
10897 | "^DD",409. 86,409.86, 2.2,21,1,0 ) | ||
10898 | The Main S equence fi eld keeps track of t he number of contact s. | ||
10899 | "^DD",409. 86,409.86, 2.2,23,0) | ||
10900 | ^^2^2^3170 611^ | ||
10901 | "^DD",409. 86,409.86, 2.2,23,1,0 ) | ||
10902 | The Main S equence is a numeric field tha t tracks t he number contact of | ||
10903 | "^DD",409. 86,409.86, 2.2,23,2,0 ) | ||
10904 | attempts. | ||
10905 | "^DD",409. 86,409.86, 2.2,"DT") | ||
10906 | 3170429 | ||
10907 | "^DD",409. 86,409.86, 3,0) | ||
10908 | DATE/TIME of CONTACT ^409.863D^ ^1;0 | ||
10909 | "^DD",409. 86,409.86, 3,21,0) | ||
10910 | ^.001^1^1^ 3170612^^ | ||
10911 | "^DD",409. 86,409.86, 3,21,1,0) | ||
10912 | This is th e DATE/TIM E multiple of the co ntact. | ||
10913 | "^DD",409. 86,409.86, 3,23,0) | ||
10914 | ^^2^2^3170 612^ | ||
10915 | "^DD",409. 86,409.86, 3,23,1,0) | ||
10916 | DATE/TIME of CONTACT multiple tracks the number of contacts for this | ||
10917 | "^DD",409. 86,409.86, 3,23,2,0) | ||
10918 | patient. | ||
10919 | "^DD",409. 86,409.863 ,0) | ||
10920 | DATE/TIME of CONTACT SUB-FIELD ^^6^7 | ||
10921 | "^DD",409. 86,409.863 ,0,"DT") | ||
10922 | 3170612 | ||
10923 | "^DD",409. 86,409.863 ,0,"IX","B ",409.863, .01) | ||
10924 | |||
10925 | "^DD",409. 86,409.863 ,0,"NM","D ATE/TIME o f CONTACT" ) | ||
10926 | |||
10927 | "^DD",409. 86,409.863 ,0,"UP") | ||
10928 | 409.86 | ||
10929 | "^DD",409. 86,409.863 ,.01,0) | ||
10930 | DATE/TIME of CONTACT ^MRD^^0;1^ S %DT="ETX R" D ^%DT S X=Y K:Y< 1 X | ||
10931 | "^DD",409. 86,409.863 ,.01,1,0) | ||
10932 | ^.1^^-1 | ||
10933 | "^DD",409. 86,409.863 ,.01,1,1,0 ) | ||
10934 | 409.863^B | ||
10935 | "^DD",409. 86,409.863 ,.01,1,1,1 ) | ||
10936 | S ^SDEC(40 9.86,DA(1) ,1,"B",$E( X,1,30),DA )="" | ||
10937 | "^DD",409. 86,409.863 ,.01,1,1,2 ) | ||
10938 | K ^SDEC(40 9.86,DA(1) ,1,"B",$E( X,1,30),DA ) | ||
10939 | "^DD",409. 86,409.863 ,.01,3) | ||
10940 | Please ent er DATE/TI ME of CONT ACT. | ||
10941 | "^DD",409. 86,409.863 ,.01,21,0) | ||
10942 | ^^1^1^3170 611^ | ||
10943 | "^DD",409. 86,409.863 ,.01,21,1, 0) | ||
10944 | This is th e Date/Tim e of conta ct for thi s patient. | ||
10945 | "^DD",409. 86,409.863 ,.01,23,0) | ||
10946 | ^^2^2^3170 611^ | ||
10947 | "^DD",409. 86,409.863 ,.01,23,1, 0) | ||
10948 | This is a date/time field used to record the date/ time a con tact is | ||
10949 | "^DD",409. 86,409.863 ,.01,23,2, 0) | ||
10950 | entered. | ||
10951 | "^DD",409. 86,409.863 ,.01,"DT") | ||
10952 | 3170501 | ||
10953 | "^DD",409. 86,409.863 ,1,0) | ||
10954 | CONTACT TY PE^S^C:CAL L;L:LETTER ;^1;1^Q | ||
10955 | "^DD",409. 86,409.863 ,1,1,0) | ||
10956 | ^.1^^0 | ||
10957 | "^DD",409. 86,409.863 ,1,3) | ||
10958 | Select Con tact Type! | ||
10959 | "^DD",409. 86,409.863 ,1,21,0) | ||
10960 | ^^1^1^3170 611^ | ||
10961 | "^DD",409. 86,409.863 ,1,21,1,0) | ||
10962 | This field Contact T ype is how the patie nt is cont acted. | ||
10963 | "^DD",409. 86,409.863 ,1,23,0) | ||
10964 | ^^1^1^3170 611^ | ||
10965 | "^DD",409. 86,409.863 ,1,23,1,0) | ||
10966 | This field Contact T ype is a s et of code s of how a patient i s contacte d. | ||
10967 | "^DD",409. 86,409.863 ,1,"DT") | ||
10968 | 3170611 | ||
10969 | "^DD",409. 86,409.863 ,2,0) | ||
10970 | COMMENTS^F J80^^1;2^K :$L(X)>80! ($L(X)<1) X | ||
10971 | "^DD",409. 86,409.863 ,2,3) | ||
10972 | Answer mus t be 1-80 characters in length . | ||
10973 | "^DD",409. 86,409.863 ,2,21,0) | ||
10974 | ^^1^1^3170 611^ | ||
10975 | "^DD",409. 86,409.863 ,2,21,1,0) | ||
10976 | This is an y comments associate d with thi s contact. | ||
10977 | "^DD",409. 86,409.863 ,2,23,0) | ||
10978 | ^^1^1^3170 611^ | ||
10979 | "^DD",409. 86,409.863 ,2,23,1,0) | ||
10980 | This is a Free Text field used to enter comments f or this co ntact. | ||
10981 | "^DD",409. 86,409.863 ,2,"DT") | ||
10982 | 3170611 | ||
10983 | "^DD",409. 86,409.863 ,3,0) | ||
10984 | LEFT MESSA GE^S^0:NO; 1:YES;^1;3 ^Q | ||
10985 | "^DD",409. 86,409.863 ,3,3) | ||
10986 | Enter 'YES ' if patie nt was lef t a messag e, else en ter 'NO'. | ||
10987 | "^DD",409. 86,409.863 ,3,21,0) | ||
10988 | ^.001^1^1^ 3170612^^ | ||
10989 | "^DD",409. 86,409.863 ,3,21,1,0) | ||
10990 | This field is if the patient w as left a message. | ||
10991 | "^DD",409. 86,409.863 ,3,23,0) | ||
10992 | ^.001^1^1^ 3170612^^ | ||
10993 | "^DD",409. 86,409.863 ,3,23,1,0) | ||
10994 | The Left M essage fie ld is a se t of codes . | ||
10995 | "^DD",409. 86,409.863 ,3,"DT") | ||
10996 | 3170612 | ||
10997 | "^DD",409. 86,409.863 ,4,0) | ||
10998 | SEQUENCE^R NJ2,0^^1;4 ^K:+X'=X!( X>99)!(X<1 )!(X?.E1". "1N.N) X | ||
10999 | "^DD",409. 86,409.863 ,4,3) | ||
11000 | Type a num ber betwee n 1 and 99 , 0 decima l digits. | ||
11001 | "^DD",409. 86,409.863 ,4,21,0) | ||
11002 | ^^1^1^3170 611^ | ||
11003 | "^DD",409. 86,409.863 ,4,21,1,0) | ||
11004 | This is th e Sequence of this c ontact. | ||
11005 | "^DD",409. 86,409.863 ,4,23,0) | ||
11006 | ^^1^1^3170 611^ | ||
11007 | "^DD",409. 86,409.863 ,4,23,1,0) | ||
11008 | This field sequence is a numer ic field. | ||
11009 | "^DD",409. 86,409.863 ,4,"DT") | ||
11010 | 3170417 | ||
11011 | "^DD",409. 86,409.863 ,5,0) | ||
11012 | USER ENTER ED CONTACT ^P200'^VA( 200,^1;5^Q | ||
11013 | "^DD",409. 86,409.863 ,5,3) | ||
11014 | Enter user who enter ed the con tact! | ||
11015 | "^DD",409. 86,409.863 ,5,21,0) | ||
11016 | ^^1^1^3170 611^ | ||
11017 | "^DD",409. 86,409.863 ,5,21,1,0) | ||
11018 | This is th e user who entered t he contact . | ||
11019 | "^DD",409. 86,409.863 ,5,23,0) | ||
11020 | ^^1^1^3170 611^ | ||
11021 | "^DD",409. 86,409.863 ,5,23,1,0) | ||
11022 | The User E ntered Con tact field is a poin ter to fil e NEW PERS ON(#200). | ||
11023 | "^DD",409. 86,409.863 ,5,"DT") | ||
11024 | 3170611 | ||
11025 | "^DD",409. 86,409.863 ,6,0) | ||
11026 | DATE/TIME ENTERED^D^ ^1;6^S %DT ="ETX" D ^ %DT S X=Y K:Y<1 X | ||
11027 | "^DD",409. 86,409.863 ,6,3) | ||
11028 | Enter date /time cont act was en tered. | ||
11029 | "^DD",409. 86,409.863 ,6,21,0) | ||
11030 | ^.001^1^1^ 3170612^^ | ||
11031 | "^DD",409. 86,409.863 ,6,21,1,0) | ||
11032 | This is th e date/tim e the cont act was en tered. | ||
11033 | "^DD",409. 86,409.863 ,6,23,0) | ||
11034 | ^.001^1^1^ 3170612^^ | ||
11035 | "^DD",409. 86,409.863 ,6,23,1,0) | ||
11036 | This is a date/time field for when the c ontact was entered. | ||
11037 | "^DD",409. 86,409.863 ,6,"DT") | ||
11038 | 3170612 | ||
11039 | "^DD",409. 97,409.97, 0) | ||
11040 | FIELD^^15^ 16 | ||
11041 | "^DD",409. 97,409.97, 0,"DDA") | ||
11042 | N | ||
11043 | "^DD",409. 97,409.97, 0,"DT") | ||
11044 | 3180220 | ||
11045 | "^DD",409. 97,409.97, 0,"IX","B" ,409.97,.0 1) | ||
11046 | |||
11047 | "^DD",409. 97,409.97, 0,"IX","C" ,409.97,1) | ||
11048 | |||
11049 | "^DD",409. 97,409.97, 0,"NM","SD Audit Sta tistics") | ||
11050 | |||
11051 | "^DD",409. 97,409.97, 0,"VRPK") | ||
11052 | SD | ||
11053 | "^DD",409. 97,409.97, .01,0) | ||
11054 | SCHEDULER^ RP200'^VA( 200,^0;1^Q | ||
11055 | "^DD",409. 97,409.97, .01,1,0) | ||
11056 | ^.1 | ||
11057 | "^DD",409. 97,409.97, .01,1,1,0) | ||
11058 | 409.97^B | ||
11059 | "^DD",409. 97,409.97, .01,1,1,1) | ||
11060 | S ^SDAUDIT ("B",$E(X, 1,30),DA)= "" | ||
11061 | "^DD",409. 97,409.97, .01,1,1,2) | ||
11062 | K ^SDAUDIT ("B",$E(X, 1,30),DA) | ||
11063 | "^DD",409. 97,409.97, .01,3) | ||
11064 | Enter name of schedu ler. | ||
11065 | "^DD",409. 97,409.97, .01,21,0) | ||
11066 | ^.001^2^2^ 3180222^^^ | ||
11067 | "^DD",409. 97,409.97, .01,21,1,0 ) | ||
11068 | Scheduler (user of V SE GUI) wh o performs actions ( e.g., ente r appointm ent | ||
11069 | "^DD",409. 97,409.97, .01,21,2,0 ) | ||
11070 | requests). | ||
11071 | "^DD",409. 97,409.97, .01,23,0) | ||
11072 | ^.001^2^2^ 3180222^^ | ||
11073 | "^DD",409. 97,409.97, .01,23,1,0 ) | ||
11074 | Scheduler is extract ed from ac tivity fil es (e.g., 409.84, 40 9.85) by | ||
11075 | "^DD",409. 97,409.97, .01,23,2,0 ) | ||
11076 | audit comp iler (SDEC AUD). | ||
11077 | "^DD",409. 97,409.97, .01,"DT") | ||
11078 | 3180220 | ||
11079 | "^DD",409. 97,409.97, 1,0) | ||
11080 | DATE^D^^0; 2^S %DT="E X" D ^%DT S X=Y K:Y< 1 X | ||
11081 | "^DD",409. 97,409.97, 1,1,0) | ||
11082 | ^.1 | ||
11083 | "^DD",409. 97,409.97, 1,1,1,0) | ||
11084 | 409.97^C | ||
11085 | "^DD",409. 97,409.97, 1,1,1,1) | ||
11086 | S ^SDAUDIT ("C",$E(X, 1,30),DA)= "" | ||
11087 | "^DD",409. 97,409.97, 1,1,1,2) | ||
11088 | K ^SDAUDIT ("C",$E(X, 1,30),DA) | ||
11089 | "^DD",409. 97,409.97, 1,1,1,"%D" ,0) | ||
11090 | ^^1^1^3180 222^ | ||
11091 | "^DD",409. 97,409.97, 1,1,1,"%D" ,1,0) | ||
11092 | Date cross -reference for repor t of stati stics by d ate. | ||
11093 | "^DD",409. 97,409.97, 1,1,1,"DT" ) | ||
11094 | 3180220 | ||
11095 | "^DD",409. 97,409.97, 1,3) | ||
11096 | Enter the date the a ction was performed. | ||
11097 | "^DD",409. 97,409.97, 1,21,0) | ||
11098 | ^^1^1^3180 222^ | ||
11099 | "^DD",409. 97,409.97, 1,21,1,0) | ||
11100 | Date the s cheduler p erformed t he action. | ||
11101 | "^DD",409. 97,409.97, 1,23,0) | ||
11102 | ^^2^2^3180 222^ | ||
11103 | "^DD",409. 97,409.97, 1,23,1,0) | ||
11104 | Date is ex tracted fr om the rel evant file (e.g., 40 9.84) by t he audit | ||
11105 | "^DD",409. 97,409.97, 1,23,2,0) | ||
11106 | statistics compiler (SDECAUD). | ||
11107 | "^DD",409. 97,409.97, 1,"DT") | ||
11108 | 3180220 | ||
11109 | "^DD",409. 97,409.97, 2,0) | ||
11110 | PATIENT CO NTACTS^NJ8 ,0^^0;3^K: +X'=X!(X>9 9999999)!( X<0)!(X?.E 1"."1N.N) X | ||
11111 | "^DD",409. 97,409.97, 2,3) | ||
11112 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11113 | "^DD",409. 97,409.97, 2,21,0) | ||
11114 | ^^1^1^3180 222^ | ||
11115 | "^DD",409. 97,409.97, 2,21,1,0) | ||
11116 | Count of p atient con tacts perf ormed by t he schedul er on the date. | ||
11117 | "^DD",409. 97,409.97, 2,23,0) | ||
11118 | ^^2^2^3180 222^ | ||
11119 | "^DD",409. 97,409.97, 2,23,1,0) | ||
11120 | Counts are extracted by audit statistics compiler (SDECAUD) from files | ||
11121 | "^DD",409. 97,409.97, 2,23,2,0) | ||
11122 | 409.85 and 409.3. | ||
11123 | "^DD",409. 97,409.97, 2,"DT") | ||
11124 | 3180220 | ||
11125 | "^DD",409. 97,409.97, 3,0) | ||
11126 | APPT REQUE STS^NJ8,0^ ^0;4^K:+X' =X!(X>9999 9999)!(X<0 )!(X?.E1". "1N.N) X | ||
11127 | "^DD",409. 97,409.97, 3,3) | ||
11128 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11129 | "^DD",409. 97,409.97, 3,21,0) | ||
11130 | ^^1^1^3180 222^ | ||
11131 | "^DD",409. 97,409.97, 3,21,1,0) | ||
11132 | Number of appointmen ts request s entered by the sch eduler on the date. | ||
11133 | "^DD",409. 97,409.97, 3,23,0) | ||
11134 | ^^2^2^3180 222^ | ||
11135 | "^DD",409. 97,409.97, 3,23,1,0) | ||
11136 | Data is ex tracted by the audit statistic s compiler (SDECAUD) from file | ||
11137 | "^DD",409. 97,409.97, 3,23,2,0) | ||
11138 | #409.84. | ||
11139 | "^DD",409. 97,409.97, 3,"DT") | ||
11140 | 3180220 | ||
11141 | "^DD",409. 97,409.97, 4,0) | ||
11142 | APPT APPOI NTMENTS MA DE^NJ8,0^^ 0;5^K:+X'= X!(X>99999 999)!(X<0) !(X?.E1"." 1N.N) X | ||
11143 | "^DD",409. 97,409.97, 4,3) | ||
11144 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11145 | "^DD",409. 97,409.97, 4,21,0) | ||
11146 | ^.001^1^1^ 3180222^^ | ||
11147 | "^DD",409. 97,409.97, 4,21,1,0) | ||
11148 | Count of a ppointment s performe d by the s cheduler o n the date . | ||
11149 | "^DD",409. 97,409.97, 4,23,0) | ||
11150 | ^^2^2^3180 222^ | ||
11151 | "^DD",409. 97,409.97, 4,23,1,0) | ||
11152 | Data is ex tracted by the audit statistic s compiler (SDECAUD) from file | ||
11153 | "^DD",409. 97,409.97, 4,23,2,0) | ||
11154 | 409.84. | ||
11155 | "^DD",409. 97,409.97, 4,"DT") | ||
11156 | 3180220 | ||
11157 | "^DD",409. 97,409.97, 5,0) | ||
11158 | APPT CLOSE D^NJ8,0^^0 ;6^K:+X'=X !(X>999999 99)!(X<0)! (X?.E1"."1 N.N) X | ||
11159 | "^DD",409. 97,409.97, 5,3) | ||
11160 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11161 | "^DD",409. 97,409.97, 5,21,0) | ||
11162 | ^.001^1^1^ 3180222^^ | ||
11163 | "^DD",409. 97,409.97, 5,21,1,0) | ||
11164 | Number of appointmen ts cancell ed by the scheduler on the dat e. | ||
11165 | "^DD",409. 97,409.97, 5,23,0) | ||
11166 | ^.001^1^1^ 3180222^^ | ||
11167 | "^DD",409. 97,409.97, 5,23,1,0) | ||
11168 | Data is ex tracted by the audit statistic s compiler (SDECAUD) . | ||
11169 | "^DD",409. 97,409.97, 5,"DT") | ||
11170 | 3180220 | ||
11171 | "^DD",409. 97,409.97, 6,0) | ||
11172 | MRTC OPENE D^NJ8,0^^0 ;7^K:+X'=X !(X>999999 99)!(X<0)! (X?.E1"."1 N.N) X | ||
11173 | "^DD",409. 97,409.97, 6,3) | ||
11174 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11175 | "^DD",409. 97,409.97, 6,21,0) | ||
11176 | ^^1^1^3180 222^ | ||
11177 | "^DD",409. 97,409.97, 6,21,1,0) | ||
11178 | Number of MRTC appoi ntment req uests open ed by the scheduler on the dat e. | ||
11179 | "^DD",409. 97,409.97, 6,23,0) | ||
11180 | ^^2^2^3180 222^ | ||
11181 | "^DD",409. 97,409.97, 6,23,1,0) | ||
11182 | Counts are extracted by the au dit statis tics compi ler (SDECA UD) from f ile | ||
11183 | "^DD",409. 97,409.97, 6,23,2,0) | ||
11184 | 409.85. | ||
11185 | "^DD",409. 97,409.97, 6,"DT") | ||
11186 | 3180220 | ||
11187 | "^DD",409. 97,409.97, 7,0) | ||
11188 | MRTC CLOSE D^NJ8,0^^0 ;8^K:+X'=X !(X>999999 99)!(X<0)! (X?.E1"."1 N.N) X | ||
11189 | "^DD",409. 97,409.97, 7,3) | ||
11190 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11191 | "^DD",409. 97,409.97, 7,21,0) | ||
11192 | ^^1^1^3180 222^ | ||
11193 | "^DD",409. 97,409.97, 7,21,1,0) | ||
11194 | Number of MRTC appoi ntment req uests clos ed by the scheduler on the dat e. | ||
11195 | "^DD",409. 97,409.97, 7,23,0) | ||
11196 | ^^2^2^3180 222^ | ||
11197 | "^DD",409. 97,409.97, 7,23,1,0) | ||
11198 | Counts are extracted by the au dit static tics compi ler (SDECA UD) from f ile | ||
11199 | "^DD",409. 97,409.97, 7,23,2,0) | ||
11200 | 409.85. | ||
11201 | "^DD",409. 97,409.97, 7,"DT") | ||
11202 | 3180220 | ||
11203 | "^DD",409. 97,409.97, 8,0) | ||
11204 | EWL ENTRIE S^NJ8,0^^0 ;9^K:+X'=X !(X>999999 99)!(X<0)! (X?.E1"."1 N.N) X | ||
11205 | "^DD",409. 97,409.97, 8,3) | ||
11206 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11207 | "^DD",409. 97,409.97, 8,21,0) | ||
11208 | ^^1^1^3180 222^ | ||
11209 | "^DD",409. 97,409.97, 8,21,1,0) | ||
11210 | Number of wait list entries cr eated by t he schedul er on the date. | ||
11211 | "^DD",409. 97,409.97, 8,23,0) | ||
11212 | ^^2^2^3180 222^ | ||
11213 | "^DD",409. 97,409.97, 8,23,1,0) | ||
11214 | Data is ex tracted by the audit statistic s compiler (SDECAUD) from file | ||
11215 | "^DD",409. 97,409.97, 8,23,2,0) | ||
11216 | 409.3. | ||
11217 | "^DD",409. 97,409.97, 8,"DT") | ||
11218 | 3180220 | ||
11219 | "^DD",409. 97,409.97, 9,0) | ||
11220 | EWL APPOIN TMENTS MAD E^NJ8,0^^0 ;10^K:+X'= X!(X>99999 999)!(X<0) !(X?.E1"." 1N.N) X | ||
11221 | "^DD",409. 97,409.97, 9,3) | ||
11222 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11223 | "^DD",409. 97,409.97, 9,21,0) | ||
11224 | ^^1^1^3180 222^ | ||
11225 | "^DD",409. 97,409.97, 9,21,1,0) | ||
11226 | Number of appointmen ts made of f of the E WL by the scheduler on a date. | ||
11227 | "^DD",409. 97,409.97, 9,23,0) | ||
11228 | ^^2^2^3180 222^ | ||
11229 | "^DD",409. 97,409.97, 9,23,1,0) | ||
11230 | Data is ex tracted by the audit statistic s compiler (SDECAUD) from file | ||
11231 | "^DD",409. 97,409.97, 9,23,2,0) | ||
11232 | 409.84. | ||
11233 | "^DD",409. 97,409.97, 9,"DT") | ||
11234 | 3180220 | ||
11235 | "^DD",409. 97,409.97, 10,0) | ||
11236 | EWL CLOSED ^NJ8,0^^0; 11^K:+X'=X !(X>999999 99)!(X<0)! (X?.E1"."1 N.N) X | ||
11237 | "^DD",409. 97,409.97, 10,3) | ||
11238 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11239 | "^DD",409. 97,409.97, 10,21,0) | ||
11240 | ^^1^1^3180 222^ | ||
11241 | "^DD",409. 97,409.97, 10,21,1,0) | ||
11242 | Number of EWL appoin tment requ ests close d by the s cheduler o n the date . | ||
11243 | "^DD",409. 97,409.97, 10,23,0) | ||
11244 | ^^2^2^3180 222^ | ||
11245 | "^DD",409. 97,409.97, 10,23,1,0) | ||
11246 | Data is ex tracted by the audit statistic s compiler (SDECAUD) from file | ||
11247 | "^DD",409. 97,409.97, 10,23,2,0) | ||
11248 | 409.3. | ||
11249 | "^DD",409. 97,409.97, 10,"DT") | ||
11250 | 3180220 | ||
11251 | "^DD",409. 97,409.97, 11,0) | ||
11252 | PtCSch ENT RIES^NJ8,0 ^^0;12^K:+ X'=X!(X>99 999999)!(X <0)!(X?.E1 "."1N.N) X | ||
11253 | "^DD",409. 97,409.97, 11,3) | ||
11254 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11255 | "^DD",409. 97,409.97, 11,21,0) | ||
11256 | ^^2^2^3180 222^ | ||
11257 | "^DD",409. 97,409.97, 11,21,1,0) | ||
11258 | Number of patient re call (PtCS ch) reques ts entered by the sc heduler on | ||
11259 | "^DD",409. 97,409.97, 11,21,2,0) | ||
11260 | the date. | ||
11261 | "^DD",409. 97,409.97, 11,23,0) | ||
11262 | ^^2^2^3180 222^ | ||
11263 | "^DD",409. 97,409.97, 11,23,1,0) | ||
11264 | Data is ex tracted by the audit statistic s compiler (SDECAUD) from file | ||
11265 | "^DD",409. 97,409.97, 11,23,2,0) | ||
11266 | 403.5. | ||
11267 | "^DD",409. 97,409.97, 11,"DT") | ||
11268 | 3180220 | ||
11269 | "^DD",409. 97,409.97, 12,0) | ||
11270 | PtCSch APP OINTMENTS MADE^NJ8,0 ^^0;13^K:+ X'=X!(X>99 999999)!(X <0)!(X?.E1 "."1N.N) X | ||
11271 | "^DD",409. 97,409.97, 12,3) | ||
11272 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11273 | "^DD",409. 97,409.97, 12,21,0) | ||
11274 | ^^2^2^3180 222^ | ||
11275 | "^DD",409. 97,409.97, 12,21,1,0) | ||
11276 | Number of patient re call (PtCS ch) appoin tments ent ered by th e schedule r | ||
11277 | "^DD",409. 97,409.97, 12,21,2,0) | ||
11278 | on the dat e. | ||
11279 | "^DD",409. 97,409.97, 12,23,0) | ||
11280 | ^^2^2^3180 222^ | ||
11281 | "^DD",409. 97,409.97, 12,23,1,0) | ||
11282 | Data is ex tracted by the audit statistic s compiler (SDECAUD) from file | ||
11283 | "^DD",409. 97,409.97, 12,23,2,0) | ||
11284 | 409.84. | ||
11285 | "^DD",409. 97,409.97, 12,"DT") | ||
11286 | 3180220 | ||
11287 | "^DD",409. 97,409.97, 13,0) | ||
11288 | CONSULT AP POINTMENTS MADE^NJ8, 0^^0;14^K: +X'=X!(X>9 9999999)!( X<0)!(X?.E 1"."1N.N) X | ||
11289 | "^DD",409. 97,409.97, 13,3) | ||
11290 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11291 | "^DD",409. 97,409.97, 13,21,0) | ||
11292 | ^^1^1^3180 222^ | ||
11293 | "^DD",409. 97,409.97, 13,21,1,0) | ||
11294 | Number of consult ap pointments entered b y the sche duler on t he date. | ||
11295 | "^DD",409. 97,409.97, 13,23,0) | ||
11296 | ^^2^2^3180 222^ | ||
11297 | "^DD",409. 97,409.97, 13,23,1,0) | ||
11298 | Data is ex tracted by the audit statistic s compiler (SDECAUD) from file | ||
11299 | "^DD",409. 97,409.97, 13,23,2,0) | ||
11300 | 409.84. | ||
11301 | "^DD",409. 97,409.97, 13,"DT") | ||
11302 | 3180220 | ||
11303 | "^DD",409. 97,409.97, 14,0) | ||
11304 | APPOINTMEN TS CANCELL ED^NJ8,0^^ 0;15^K:+X' =X!(X>9999 9999)!(X<0 )!(X?.E1". "1N.N) X | ||
11305 | "^DD",409. 97,409.97, 14,3) | ||
11306 | Type a num ber betwee n 0 and 99 999999, 0 decimal di gits. | ||
11307 | "^DD",409. 97,409.97, 14,21,0) | ||
11308 | ^^1^1^3180 222^ | ||
11309 | "^DD",409. 97,409.97, 14,21,1,0) | ||
11310 | Number of appointmen ts cancell ed by the scheduler on the dat e. | ||
11311 | "^DD",409. 97,409.97, 14,23,0) | ||
11312 | ^^2^2^3180 222^ | ||
11313 | "^DD",409. 97,409.97, 14,23,1,0) | ||
11314 | Data is ex tracted by the audit statistic s compiler (SDECAUD) from file | ||
11315 | "^DD",409. 97,409.97, 14,23,2,0) | ||
11316 | 409.84. | ||
11317 | "^DD",409. 97,409.97, 14,"DT") | ||
11318 | 3180220 | ||
11319 | "^DD",409. 97,409.97, 15,0) | ||
11320 | TOTAL ACTI ONS^CJ8,0^ ^ ; ^X ^DD (409.97,15 ,9.3) S X= X+$P(Y(409 .97,15,1), U,14)+$P(Y (409.97,15 ,1),U,15) | ||
11321 | "^DD",409. 97,409.97, 15,9) | ||
11322 | ^ | ||
11323 | "^DD",409. 97,409.97, 15,9.01) | ||
11324 | 409.97^14; 409.97^13; 409.97^12; 409.97^11; 409.97^10; 409.97^9;4 09.97^8;40 9.97^7;409 .97^6;409. 97^5;409.9 7^4;409.97 ^3;409.97^ 2 | ||
11325 | "^DD",409. 97,409.97, 15,9.1) | ||
11326 | PATIENT CO NTACTS+APP T REQUESTS +APPT APPO INTMENTS M ADE+APPT C LOSED+MRTC OPENED+MR TC CLOSED+ EWL ENTRIE S+EWL APPO INTMENTS M ADE+EWL CL OSED+PtCSc h ENTRIES+ PtCSch APP OINTMENTS MADE+CONSU LT APPOINT MENTS MADE +APPOINTME NTS CANCEL LED | ||
11327 | "^DD",409. 97,409.97, 15,9.2) | ||
11328 | S Y(409.97 ,15,1)=$S( $D(^SDAUDI T(D0,0)):^ (0),1:"") S X=$P(Y(4 09.97,15,1 ),U,3)+$P( Y(409.97,1 5,1),U,4)+ $P(Y(409.9 7,15,1),U, 5)+$P(Y(40 9.97,15,1) ,U,6)+$P(Y (409.97,15 ,1),U,7) | ||
11329 | "^DD",409. 97,409.97, 15,9.3) | ||
11330 | X ^DD(409. 97,15,9.2) S X=X+$P( Y(409.97,1 5,1),U,8)+ $P(Y(409.9 7,15,1),U, 9)+$P(Y(40 9.97,15,1) ,U,10)+$P( Y(409.97,1 5,1),U,11) +$P(Y(409. 97,15,1),U ,12)+$P(Y( 409.97,15, 1),U,13) | ||
11331 | "^DIC",409 .85,409.85 ,0) | ||
11332 | SDEC APPT REQUEST^40 9.85 | ||
11333 | "^DIC",409 .85,409.85 ,0,"GL") | ||
11334 | ^SDEC(409. 85, | ||
11335 | "^DIC",409 .85,409.85 ,"%",0) | ||
11336 | ^1.005^^0 | ||
11337 | "^DIC",409 .85,409.85 ,"%D",0) | ||
11338 | ^^3^3^3150 423^ | ||
11339 | "^DIC",409 .85,409.85 ,"%D",1,0) | ||
11340 | This file contains t he SDEC Ap pt Request entries f or the App ointment | ||
11341 | "^DIC",409 .85,409.85 ,"%D",2,0) | ||
11342 | Scheduling applicati on. | ||
11343 | "^DIC",409 .85,409.85 ,"%D",3,0) | ||
11344 | Each entry represent s a unique appointme nt request . | ||
11345 | "^DIC",409 .85,"B","S DEC APPT R EQUEST",40 9.85) | ||
11346 | |||
11347 | "^DIC",409 .86,409.86 ,0) | ||
11348 | SDEC CONTA CT^409.86 | ||
11349 | "^DIC",409 .86,409.86 ,0,"GL") | ||
11350 | ^SDEC(409. 86, | ||
11351 | "^DIC",409 .86,409.86 ,"%",0) | ||
11352 | ^1.005^^0 | ||
11353 | "^DIC",409 .86,409.86 ,"%D",0) | ||
11354 | ^^4^4^3170 612^ | ||
11355 | "^DIC",409 .86,409.86 ,"%D",1,0) | ||
11356 | This file is used by the VSE V S GUI. The file cont ains patie nt contact | ||
11357 | "^DIC",409 .86,409.86 ,"%D",2,0) | ||
11358 | informatio n regardin g appointm ent follow up each t ime a pati ent is | ||
11359 | "^DIC",409 .86,409.86 ,"%D",3,0) | ||
11360 | contacted. This file should no t be edite d using Fi leman, the file is | ||
11361 | "^DIC",409 .86,409.86 ,"%D",4,0) | ||
11362 | updated us ing the VS E VS GUI. | ||
11363 | "^DIC",409 .86,"B","S DEC CONTAC T",409.86) | ||
11364 | |||
11365 | "^DIC",409 .97,409.97 ,0) | ||
11366 | SD Audit S tatistics^ 409.97 | ||
11367 | "^DIC",409 .97,409.97 ,0,"GL") | ||
11368 | ^SDAUDIT( | ||
11369 | "^DIC",409 .97,409.97 ,"%D",0) | ||
11370 | ^1.001^4^4 ^3180312^^ | ||
11371 | "^DIC",409 .97,409.97 ,"%D",1,0) | ||
11372 | The SD Aud it Statist ics file c ontains co unts of ac tivities p erformed b y a | ||
11373 | "^DIC",409 .97,409.97 ,"%D",2,0) | ||
11374 | scheduler on a date. The stat istics are compiled early each morning b y | ||
11375 | "^DIC",409 .97,409.97 ,"%D",3,0) | ||
11376 | the audit statistics compiler routine (S DECAUD) fr om data in files 403 .5, | ||
11377 | "^DIC",409 .97,409.97 ,"%D",4,0) | ||
11378 | 409.3, 409 .84 and 40 9.85." | ||
11379 | "^DIC",409 .97,"B","S D Audit St atistics", 409.97) | ||
11380 | |||
11381 | "BLD",1034 0,6) | ||
11382 | 8^ | ||
11383 | $END KID S D*5.3*686 | ||
11384 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.