Produced by Araxis Merge on 6/12/2018 12:04:38 PM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | MASS.zip\MASS | GMRC-3.0-95.KID | Wed Jun 6 14:44:36 2018 UTC |
2 | MASS.zip\MASS | GMRC-3.0-95.KID | Tue Jun 12 14:58:24 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 9 | 5466 |
Changed | 9 | 18 |
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 | $TXT Creat ed by MARQ UEZ,JUSTO at DEVVFF.
|
|
2 | $END TXT | |
3 | $KID GMRC* 3.0*95 | |
4 | **INSTALL NAME** | |
5 | GMRC*3.0*9 5 | |
6 | "BLD",1063 7,0) | |
7 | GMRC*3.0*9 5^CONSULT/ REQUEST TR ACKING^0^3 180504^y | |
8 | "BLD",1063 7,1,0) | |
9 | ^^437^437^ 3180321^^ | |
10 | "BLD",1063 7,1,1,0) | |
11 | Associated patches: (v)GMRC*3* 75 <<= m ust be ins talled BEF ORE | |
12 | "BLD",1063 7,1,2,0) | |
13 | `GMRC*3*95 ' | |
14 | "BLD",1063 7,1,3,0) | |
15 | (v)GMRC*3* 90 <<= m ust be ins talled BEF ORE | |
16 | "BLD",1063 7,1,4,0) | |
17 | `GMRC*3*95 ' | |
18 | "BLD",1063 7,1,5,0) | |
19 | (u)DG*5.3* 948 <<= m ust be ins talled BEF ORE | |
20 | "BLD",1063 7,1,6,0) | |
21 | `GMRC*3*95 ' | |
22 | "BLD",1063 7,1,7,0) | |
23 | (u)SD*5.3* 676 <<= m ust be ins talled BEF ORE | |
24 | "BLD",1063 7,1,8,0) | |
25 | `GMRC*3*95 ' | |
26 | "BLD",1063 7,1,9,0) | |
27 | (u)OR*3*47 0 <<= m ust be ins talled BEF ORE | |
28 | "BLD",1063 7,1,10,0) | |
29 | `GMRC*3*95 ' | |
30 | "BLD",1063 7,1,11,0) | |
31 | ||
32 | "BLD",1063 7,1,12,0) | |
33 | ||
34 | "BLD",1063 7,1,13,0) | |
35 | Subject: MASS EPIC MODIFICATI ONS | |
36 | "BLD",1063 7,1,14,0) | |
37 | ||
38 | "BLD",1063 7,1,15,0) | |
39 | Category: OTHER | |
40 | "BLD",1063 7,1,16,0) | |
41 | ROUTINE | |
42 | "BLD",1063 7,1,17,0) | |
43 | ENHANCEME NT | |
44 | "BLD",1063 7,1,18,0) | |
45 | ||
46 | "BLD",1063 7,1,19,0) | |
47 | The follow ing patche s must be installed in order f or a succe ssful | |
48 | "BLD",1063 7,1,20,0) | |
49 | instalatio n: | |
50 | "BLD",1063 7,1,21,0) | |
51 | SD*5.3*67 6 | |
52 | "BLD",1063 7,1,22,0) | |
53 | DG*5.3*94 8 | |
54 | "BLD",1063 7,1,23,0) | |
55 | OR*3.0*47 0 | |
56 | "BLD",1063 7,1,24,0) | |
57 | GMRC*3.0* 95 | |
58 | "BLD",1063 7,1,25,0) | |
59 | DVBA*2.7* 202 | |
60 | "BLD",1063 7,1,26,0) | |
61 | ||
62 | "BLD",1063 7,1,27,0) | |
63 | ---------- -- | |
64 | "BLD",1063 7,1,28,0) | |
65 | The CONSUL T/REQUEST TRACKING G MRC*3.0*95 patch is the initia l release of | |
66 | "BLD",1063 7,1,29,0) | |
67 | the Medica l Appointm ent | |
68 | "BLD",1063 7,1,30,0) | |
69 | Scheduling System (M ASS) sched uling inte gration de velopment for the Vi stA | |
70 | "BLD",1063 7,1,31,0) | |
71 | Pilot at C olumbus, O H. This pa tch includ es all of the necess ary | |
72 | "BLD",1063 7,1,32,0) | |
73 | components that will enable ou tgoing HL7 (Health L evel 7) v2 | |
74 | "BLD",1063 7,1,33,0) | |
75 | ORM (order message) ordering i ntegration with MASS . | |
76 | "BLD",1063 7,1,34,0) | |
77 | ||
78 | "BLD",1063 7,1,35,0) | |
79 | ||
80 | "BLD",1063 7,1,36,0) | |
81 | Patch Comp onents: | |
82 | "BLD",1063 7,1,37,0) | |
83 | ---------- ---------- | |
84 | "BLD",1063 7,1,38,0) | |
85 | N/A (Not A pplicable) | |
86 | "BLD",1063 7,1,39,0) | |
87 | ||
88 | "BLD",1063 7,1,40,0) | |
89 | ||
90 | "BLD",1063 7,1,41,0) | |
91 | ||
92 | "BLD",1063 7,1,42,0) | |
93 | Files & Fi elds Assoc iated: | |
94 | "BLD",1063 7,1,43,0) | |
95 | ||
96 | "BLD",1063 7,1,44,0) | |
97 | File Name (Number) Field Name (Numb er) Ne w/Modified /Deleted | |
98 | "BLD",1063 7,1,45,0) | |
99 | ---------- -------- ------ ---------- --- -- ---------- -------- | |
100 | "BLD",1063 7,1,46,0) | |
101 | None N/A N/ A | |
102 | "BLD",1063 7,1,47,0) | |
103 | ||
104 | "BLD",1063 7,1,48,0) | |
105 | ||
106 | "BLD",1063 7,1,49,0) | |
107 | Forms Asso ciated: | |
108 | "BLD",1063 7,1,50,0) | |
109 | ||
110 | "BLD",1063 7,1,51,0) | |
111 | Form Name File # New/Mo dified/Del eted | |
112 | "BLD",1063 7,1,52,0) | |
113 | --------- ---- -- ------ ---------- ---- | |
114 | "BLD",1063 7,1,53,0) | |
115 | None N/A N/A | |
116 | "BLD",1063 7,1,54,0) | |
117 | ||
118 | "BLD",1063 7,1,55,0) | |
119 | ||
120 | "BLD",1063 7,1,56,0) | |
121 | Mail Group s Associat ed: | |
122 | "BLD",1063 7,1,57,0) | |
123 | ||
124 | "BLD",1063 7,1,58,0) | |
125 | Mail Group Name New/ Modified/D eleted | |
126 | "BLD",1063 7,1,59,0) | |
127 | ---------- ----- ---- ---------- ------ | |
128 | "BLD",1063 7,1,60,0) | |
129 | None N/A | |
130 | "BLD",1063 7,1,61,0) | |
131 | ||
132 | "BLD",1063 7,1,62,0) | |
133 | ||
134 | "BLD",1063 7,1,63,0) | |
135 | Options As sociated: | |
136 | "BLD",1063 7,1,64,0) | |
137 | ||
138 | "BLD",1063 7,1,65,0) | |
139 | Option Nam e Type New/Mo dified/Del eted | |
140 | "BLD",1063 7,1,66,0) | |
141 | ---------- - ---- ------ ---------- ---- | |
142 | "BLD",1063 7,1,67,0) | |
143 | None N/ A N/A | |
144 | "BLD",1063 7,1,68,0) | |
145 | ||
146 | "BLD",1063 7,1,69,0) | |
147 | ||
148 | "BLD",1063 7,1,70,0) | |
149 | Protocols Associated : | |
150 | "BLD",1063 7,1,71,0) | |
151 | ||
152 | "BLD",1063 7,1,72,0) | |
153 | Protocol N ame New/Mo dified/Del eted | |
154 | "BLD",1063 7,1,73,0) | |
155 | ---------- --- ------ ---------- ---- | |
156 | "BLD",1063 7,1,74,0) | |
157 | GMRC EVSEN D OR MODIFI ED | |
158 | "BLD",1063 7,1,75,0) | |
159 | ORMX ORM H L7 TRIGGER - CONSULT S NEW | |
160 | "BLD",1063 7,1,76,0) | |
161 | ||
162 | "BLD",1063 7,1,77,0) | |
163 | ||
164 | "BLD",1063 7,1,78,0) | |
165 | Security K eys Associ ated: | |
166 | "BLD",1063 7,1,79,0) | |
167 | ||
168 | "BLD",1063 7,1,80,0) | |
169 | Security K ey Name | |
170 | "BLD",1063 7,1,81,0) | |
171 | ---------- ------- | |
172 | "BLD",1063 7,1,82,0) | |
173 | N/A | |
174 | "BLD",1063 7,1,83,0) | |
175 | ||
176 | "BLD",1063 7,1,84,0) | |
177 | ||
178 | "BLD",1063 7,1,85,0) | |
179 | Templates Associated : | |
180 | "BLD",1063 7,1,86,0) | |
181 | ||
182 | "BLD",1063 7,1,87,0) | |
183 | Template N ame Type File N ame (Numbe r) New/Mo dified/Del eted | |
184 | "BLD",1063 7,1,88,0) | |
185 | ---------- --- ---- ------ ---------- -- ------ ---------- ---- | |
186 | "BLD",1063 7,1,89,0) | |
187 | None N/A N/A N/A | |
188 | "BLD",1063 7,1,90,0) | |
189 | ||
190 | "BLD",1063 7,1,91,0) | |
191 | ||
192 | "BLD",1063 7,1,92,0) | |
193 | Additional Informati on: N/A | |
194 | "BLD",1063 7,1,93,0) | |
195 | ||
196 | "BLD",1063 7,1,94,0) | |
197 | ||
198 | "BLD",1063 7,1,95,0) | |
199 | New Servic e Requests (NSRs): | |
200 | "BLD",1063 7,1,96,0) | |
201 | ---------- ---------- -------- | |
202 | "BLD",1063 7,1,97,0) | |
203 | N/A | |
204 | "BLD",1063 7,1,98,0) | |
205 | ||
206 | "BLD",1063 7,1,99,0) | |
207 | ||
208 | "BLD",1063 7,1,100,0) | |
209 | Patient Sa fety Issue s (PSIs): | |
210 | "BLD",1063 7,1,101,0) | |
211 | ---------- ---------- --------- | |
212 | "BLD",1063 7,1,102,0) | |
213 | N/A | |
214 | "BLD",1063 7,1,103,0) | |
215 | ||
216 | "BLD",1063 7,1,104,0) | |
217 | ||
218 | "BLD",1063 7,1,105,0) | |
219 | Defect Tra cking Syst em Ticket( s) & Overv iew: | |
220 | "BLD",1063 7,1,106,0) | |
221 | ---------- ---------- ---------- ---------- ---- | |
222 | "BLD",1063 7,1,107,0) | |
223 | N/A | |
224 | "BLD",1063 7,1,108,0) | |
225 | ||
226 | "BLD",1063 7,1,109,0) | |
227 | ||
228 | "BLD",1063 7,1,110,0) | |
229 | Problem: | |
230 | "BLD",1063 7,1,111,0) | |
231 | ------- | |
232 | "BLD",1063 7,1,112,0) | |
233 | N/A | |
234 | "BLD",1063 7,1,113,0) | |
235 | ||
236 | "BLD",1063 7,1,114,0) | |
237 | ||
238 | "BLD",1063 7,1,115,0) | |
239 | Resolution : | |
240 | "BLD",1063 7,1,116,0) | |
241 | ---------- | |
242 | "BLD",1063 7,1,117,0) | |
243 | N/A | |
244 | "BLD",1063 7,1,118,0) | |
245 | ||
246 | "BLD",1063 7,1,119,0) | |
247 | ||
248 | "BLD",1063 7,1,120,0) | |
249 | Test Sites : | |
250 | "BLD",1063 7,1,121,0) | |
251 | ---------- | |
252 | "BLD",1063 7,1,122,0) | |
253 | 1. EPIC DE VELOPMENT ACCOUNT | |
254 | "BLD",1063 7,1,123,0) | |
255 | 2. VISTA D EVVFF DEVE LOPMENT AC COUNT | |
256 | "BLD",1063 7,1,124,0) | |
257 | 3. Columbu s, OH (PRE -PRODUCTIO N and PROD UCTION) | |
258 | "BLD",1063 7,1,125,0) | |
259 | ||
260 | "BLD",1063 7,1,126,0) | |
261 | Software a nd Documen tation Ret rieval Ins tructions: | |
262 | "BLD",1063 7,1,127,0) | |
263 | ---------- ---------- ---------- ---------- ---------- -- | |
264 | "BLD",1063 7,1,128,0) | |
265 | Software b eing relea sed as a h ost file a nd/or docu mentation describing | |
266 | "BLD",1063 7,1,129,0) | |
267 | the new fu nctionalit y introduc ed by this patch are available . | |
268 | "BLD",1063 7,1,130,0) | |
269 | ||
270 | "BLD",1063 7,1,131,0) | |
271 | The prefer red method is to ret rieve file s from dow nload. DNS . DNS . | |
272 | "BLD",1063 7,1,132,0) | |
273 | This trans mits the f iles from the first available server. Si tes may | |
274 | "BLD",1063 7,1,133,0) | |
275 | also elect to retrie ve files d irectly fr om a speci fic server . | |
276 | "BLD",1063 7,1,134,0) | |
277 | ||
278 | "BLD",1063 7,1,135,0) | |
279 | Sites may retrieve t he softwar e and/or d ocumentati on directl y using | |
280 | "BLD",1063 7,1,136,0) | |
281 | Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE | |
282 | "BLD",1063 7,1,137,0) | |
283 | directory at the fol lowing | |
284 | "BLD",1063 7,1,138,0) | |
285 | OI Field O ffices: | |
286 | "BLD",1063 7,1,139,0) | |
287 | ||
288 | "BLD",1063 7,1,140,0) | |
289 | Hines: DN S .URL | |
290 | "BLD",1063 7,1,141,0) | |
291 | Salt Lake City:
|
|
292 | "BLD",1063 7,1,142,0) | |
293 | ||
294 | "BLD",1063 7,1,143,0) | |
295 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | |
296 | "BLD",1063 7,1,144,0) | |
297 | at: | |
298 | "BLD",1063 7,1,145,0) | |
299 | http://www . DNS /vdl/ | |
300 | "BLD",1063 7,1,146,0) | |
301 | ||
302 | "BLD",1063 7,1,147,0) | |
303 | Title File Name F TP Mode | |
304 | "BLD",1063 7,1,148,0) | |
305 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- - | |
306 | "BLD",1063 7,1,149,0) | |
307 | MASS VistA Technical Manual TBD B INARY | |
308 | "BLD",1063 7,1,150,0) | |
309 | ||
310 | "BLD",1063 7,1,151,0) | |
311 | ||
312 | "BLD",1063 7,1,152,0) | |
313 | Patch Inst allation: | |
314 | "BLD",1063 7,1,153,0) | |
315 | ||
316 | "BLD",1063 7,1,154,0) | |
317 | Pre/Post I nstallatio n Overview : | |
318 | "BLD",1063 7,1,155,0) | |
319 | ---------- ---------- ---------- - | |
320 | "BLD",1063 7,1,156,0) | |
321 | See Techni cal Manual for proje ct level i nstallatio n instruct ions. | |
322 | "BLD",1063 7,1,157,0) | |
323 | ||
324 | "BLD",1063 7,1,158,0) | |
325 | Pre-Instal lation Ins tructions: | |
326 | "BLD",1063 7,1,159,0) | |
327 | ---------- ---------- ---------- | |
328 | "BLD",1063 7,1,160,0) | |
329 | This patch may be in stalled wi th users o n the syst em althoug h it is | |
330 | "BLD",1063 7,1,161,0) | |
331 | recommende d that it be install ed during non-peak h ours to mi nimize | |
332 | "BLD",1063 7,1,162,0) | |
333 | potential disruption to users. This pat ch should take less than 5 | |
334 | "BLD",1063 7,1,163,0) | |
335 | minutes to install. | |
336 | "BLD",1063 7,1,164,0) | |
337 | ||
338 | "BLD",1063 7,1,165,0) | |
339 | There are no ListMan Options t hat need t o be disab led for th is patch. | |
340 | "BLD",1063 7,1,166,0) | |
341 | ||
342 | "BLD",1063 7,1,167,0) | |
343 | Installati on Instruc tions: | |
344 | "BLD",1063 7,1,168,0) | |
345 | ---------- ---------- ------ | |
346 | "BLD",1063 7,1,169,0) | |
347 | ||
348 | "BLD",1063 7,1,170,0) | |
349 | 1. Choose the PackM an message containin g this pat ch. | |
350 | "BLD",1063 7,1,171,0) | |
351 | ||
352 | "BLD",1063 7,1,172,0) | |
353 | 2. Choose the INSTA LL/CHECK M ESSAGE Pac kMan optio n. | |
354 | "BLD",1063 7,1,173,0) | |
355 | ||
356 | "BLD",1063 7,1,174,0) | |
357 | 3. From t he Kernel Installati on and Dis tribution System Men u, select | |
358 | "BLD",1063 7,1,175,0) | |
359 | the In stallation Menu (See Install P rompts Sam ple below for more | |
360 | "BLD",1063 7,1,176,0) | |
361 | detail ). From t his menu, you may el ect to use the follo wing optio ns. | |
362 | "BLD",1063 7,1,177,0) | |
363 | When p rompted fo r the INST ALL NAME e nter the p atch #(ex. XXX*X.X*X X): | |
364 | "BLD",1063 7,1,178,0) | |
365 | ||
366 | "BLD",1063 7,1,179,0) | |
367 | a. Ba ckup a Tra nsport Glo bal - This option wi ll create a backup | |
368 | "BLD",1063 7,1,180,0) | |
369 | me ssage of a ny routine s exported with this patch. It will not | |
370 | "BLD",1063 7,1,181,0) | |
371 | ba ckup any o ther chang es such as DDs or te mplates. | |
372 | "BLD",1063 7,1,182,0) | |
373 | ||
374 | "BLD",1063 7,1,183,0) | |
375 | b. Co mpare Tran sport Glob al to Curr ent System - This op tion will | |
376 | "BLD",1063 7,1,184,0) | |
377 | (a llow you t o view all changes t hat will b e made whe n this | |
378 | "BLD",1063 7,1,185,0) | |
379 | pa tch is ins talled.) | |
380 | "BLD",1063 7,1,186,0) | |
381 | It compares all compon ents of th is patch r outines, | |
382 | "BLD",1063 7,1,187,0) | |
383 | DD s, templat es, etc. | |
384 | "BLD",1063 7,1,188,0) | |
385 | ||
386 | "BLD",1063 7,1,189,0) | |
387 | c. Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow you | |
388 | "BLD",1063 7,1,190,0) | |
389 | to ensure th e integrit y of the r outines th at are in the transp ort | |
390 | "BLD",1063 7,1,191,0) | |
391 | gl obal. | |
392 | "BLD",1063 7,1,192,0) | |
393 | ||
394 | "BLD",1063 7,1,193,0) | |
395 | 4. From t he Install ation Menu , select t he Install Package(s ) option | |
396 | "BLD",1063 7,1,194,0) | |
397 | and ch oose the p atch to in stall. | |
398 | "BLD",1063 7,1,195,0) | |
399 | ||
400 | "BLD",1063 7,1,196,0) | |
401 | 5. When p rompted 'W ant KIDS t o Rebuild Menu Trees Upon Comp letion of | |
402 | "BLD",1063 7,1,197,0) | |
403 | Instal l? NO//' | |
404 | "BLD",1063 7,1,198,0) | |
405 | ||
406 | "BLD",1063 7,1,199,0) | |
407 | 6. When p rompted 'W ant KIDS t o INHIBIT LOGONs dur ing the in stall? NO/ /' | |
408 | "BLD",1063 7,1,200,0) | |
409 | ||
410 | "BLD",1063 7,1,201,0) | |
411 | 7. When p rompted 'W ant to DIS ABLE Sched uled Optio ns, Menu O ptions, | |
412 | "BLD",1063 7,1,202,0) | |
413 | and Pr otocols? N O//' | |
414 | "BLD",1063 7,1,203,0) | |
415 | ||
416 | "BLD",1063 7,1,204,0) | |
417 | 8. If pro mpted 'Del ay Install (Minutes) : (0 - 60 ): 0//' re spond 0. | |
418 | "BLD",1063 7,1,205,0) | |
419 | ||
420 | "BLD",1063 7,1,206,0) | |
421 | ||
422 | "BLD",1063 7,1,207,0) | |
423 | Install Pr ompts Samp le: | |
424 | "BLD",1063 7,1,208,0) | |
425 | ---------- ---------- ------ | |
426 | "BLD",1063 7,1,209,0) | |
427 | ||
428 | "BLD",1063 7,1,210,0) | |
429 | VISTA>D ^X UP | |
430 | "BLD",1063 7,1,211,0) | |
431 | ||
432 | "BLD",1063 7,1,212,0) | |
433 | Setting up programme r environm ent | |
434 | "BLD",1063 7,1,213,0) | |
435 | This is a TEST accou nt. | |
436 | "BLD",1063 7,1,214,0) | |
437 | ||
438 | "BLD",1063 7,1,215,0) | |
439 | Terminal T ype set to : C-VT100 | |
440 | "BLD",1063 7,1,216,0) | |
441 | ||
442 | "BLD",1063 7,1,217,0) | |
443 | Select OPT ION NAME: XPD LOAD D ISTRIBUTIO N Lo ad a Distr ibution | |
444 | "BLD",1063 7,1,218,0) | |
445 | Load a Dis tribution | |
446 | "BLD",1063 7,1,219,0) | |
447 | Enter a Ho st File: G MRC_3_0_95 .KID | |
448 | "BLD",1063 7,1,220,0) | |
449 | ||
450 | "BLD",1063 7,1,221,0) | |
451 | KIDS Distr ibution sa ved on Dec 11, 2017@ 17:30:10 | |
452 | "BLD",1063 7,1,222,0) | |
453 | Comment: G MRC*3.0*95 | |
454 | "BLD",1063 7,1,223,0) | |
455 | ||
456 | "BLD",1063 7,1,224,0) | |
457 | This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s): | |
458 | "BLD",1063 7,1,225,0) | |
459 | Build GMRC *3.0*95 ha s been loa ded before , here is when: | |
460 | "BLD",1063 7,1,226,0) | |
461 | GMRC *3.0*95 Install Co mpleted | |
462 | "BLD",1063 7,1,227,0) | |
463 | was loaded on Nov 15 , 2017@00: 13:28 | |
464 | "BLD",1063 7,1,228,0) | |
465 | GMRC *3.0*95 Install Co mpleted | |
466 | "BLD",1063 7,1,229,0) | |
467 | was loaded on Nov 20 , 2017@14: 59:53 | |
468 | "BLD",1063 7,1,230,0) | |
469 | GMRC *3.0*95 Install Co mpleted | |
470 | "BLD",1063 7,1,231,0) | |
471 | was loaded on Nov 21 , 2017@15: 39:21 | |
472 | "BLD",1063 7,1,232,0) | |
473 | GMRC *3.0*95 Install Co mpleted | |
474 | "BLD",1063 7,1,233,0) | |
475 | was loaded on Dec 05 , 2017@16: 16:01 | |
476 | "BLD",1063 7,1,234,0) | |
477 | OK to cont inue with Load? NO// YES | |
478 | "BLD",1063 7,1,235,0) | |
479 | ||
480 | "BLD",1063 7,1,236,0) | |
481 | Distributi on OK! | |
482 | "BLD",1063 7,1,237,0) | |
483 | ||
484 | "BLD",1063 7,1,238,0) | |
485 | Want to Co ntinue wit h Load? YE S// | |
486 | "BLD",1063 7,1,239,0) | |
487 | Loading Di stribution ... | |
488 | "BLD",1063 7,1,240,0) | |
489 | ||
490 | "BLD",1063 7,1,241,0) | |
491 | GMRC*3. 0*95 | |
492 | "BLD",1063 7,1,242,0) | |
493 | Use INSTAL L NAME: GM RC*3.0*95 to install this Dist ribution. | |
494 | "BLD",1063 7,1,243,0) | |
495 | ||
496 | "BLD",1063 7,1,244,0) | |
497 | VISTA>D ^X UP | |
498 | "BLD",1063 7,1,245,0) | |
499 | ||
500 | "BLD",1063 7,1,246,0) | |
501 | Setting up programme r environm ent | |
502 | "BLD",1063 7,1,247,0) | |
503 | This is a TEST accou nt. | |
504 | "BLD",1063 7,1,248,0) | |
505 | ||
506 | "BLD",1063 7,1,249,0) | |
507 | Terminal T ype set to : C-VT100 | |
508 | "BLD",1063 7,1,250,0) | |
509 | ||
510 | "BLD",1063 7,1,251,0) | |
511 | Select OPT ION NAME: XPD INS | |
512 | "BLD",1063 7,1,252,0) | |
513 | 1 X PD INSTALL BUILD Install Package(s ) | |
514 | "BLD",1063 7,1,253,0) | |
515 | 2 X PD INSTALL ATION MENU Ins tallation | |
516 | "BLD",1063 7,1,254,0) | |
517 | CHOOSE 1-2 : 1 XPD I NSTALL BUI LD Ins tall Packa ge(s) | |
518 | "BLD",1063 7,1,255,0) | |
519 | Install Pa ckage(s) | |
520 | "BLD",1063 7,1,256,0) | |
521 | Select INS TALL NAME: GMRC*3 .0*95 Loaded fro m Distribu tion | |
522 | "BLD",1063 7,1,257,0) | |
523 | 12/12/17@2 3:48:08 | |
524 | "BLD",1063 7,1,258,0) | |
525 | => GM RC*3.0*95 ;Created on Dec 11, 2017@17:3 0:10 | |
526 | "BLD",1063 7,1,259,0) | |
527 | ||
528 | "BLD",1063 7,1,260,0) | |
529 | This Distr ibution wa s loaded o n Dec 12, 2017@23:48 :08 with h eader of | |
530 | "BLD",1063 7,1,261,0) | |
531 | GMRC*3. 0*95 ;Cre ated on De c 11, 2017 @17:30:10 | |
532 | "BLD",1063 7,1,262,0) | |
533 | It cons isted of t he followi ng Install (s): | |
534 | "BLD",1063 7,1,263,0) | |
535 | GMRC*3 .0*95 | |
536 | "BLD",1063 7,1,264,0) | |
537 | Checking I nstall for Package G MRC*3.0*95 | |
538 | "BLD",1063 7,1,265,0) | |
539 | ||
540 | "BLD",1063 7,1,266,0) | |
541 | Install Qu estions fo r GMRC*3.0 *95 | |
542 | "BLD",1063 7,1,267,0) | |
543 | ||
544 | "BLD",1063 7,1,268,0) | |
545 | Want KIDS to INHIBIT LOGONs du ring the i nstall? NO // | |
546 | "BLD",1063 7,1,269,0) | |
547 | ||
548 | "BLD",1063 7,1,270,0) | |
549 | Press RETU RN to cont inue or '^ ' to stop | |
550 | "BLD",1063 7,1,271,0) | |
551 | ||
552 | "BLD",1063 7,1,272,0) | |
553 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls? NO// | |
554 | "BLD",1063 7,1,273,0) | |
555 | ||
556 | "BLD",1063 7,1,274,0) | |
557 | Enter the Device you want to p rint the I nstall mes sages. | |
558 | "BLD",1063 7,1,275,0) | |
559 | You can qu eue the in stall by e nter a 'Q' at the de vice promp t. | |
560 | "BLD",1063 7,1,276,0) | |
561 | Enter a '^ ' to abort the insta ll. | |
562 | "BLD",1063 7,1,277,0) | |
563 | ||
564 | "BLD",1063 7,1,278,0) | |
565 | DEVICE: HO ME// CON SOLE | |
566 | "BLD",1063 7,1,279,0) | |
567 | ||
568 | "BLD",1063 7,1,280,0) | |
569 | Install S tarted for GMRC*3.0* 95 : | |
570 | "BLD",1063 7,1,281,0) | |
571 | Dec 1 2, 2017@23 :48:17 | |
572 | "BLD",1063 7,1,282,0) | |
573 | ||
574 | "BLD",1063 7,1,283,0) | |
575 | Build Dist ribution D ate: Dec 1 1, 2017 | |
576 | "BLD",1063 7,1,284,0) | |
577 | ||
578 | "BLD",1063 7,1,285,0) | |
579 | Installin g Routines : | |
580 | "BLD",1063 7,1,286,0) | |
581 | ||
582 | "BLD",1063 7,1,287,0) | |
583 | Dec 12, 2017@2 3:48:17 | |
584 | "BLD",1063 7,1,288,0) | |
585 | ||
586 | "BLD",1063 7,1,289,0) | |
587 | Installin g PACKAGE COMPONENTS : | |
588 | "BLD",1063 7,1,290,0) | |
589 | ||
590 | "BLD",1063 7,1,291,0) | |
591 | Installin g PROTOCOL | |
592 | "BLD",1063 7,1,292,0) | |
593 | Dec 12, 2017@2 3:48:17 | |
594 | "BLD",1063 7,1,293,0) | |
595 | ||
596 | "BLD",1063 7,1,294,0) | |
597 | Updating Routine fi le... | |
598 | "BLD",1063 7,1,295,0) | |
599 | ||
600 | "BLD",1063 7,1,296,0) | |
601 | Updating KIDS files ... | |
602 | "BLD",1063 7,1,297,0) | |
603 | ||
604 | "BLD",1063 7,1,298,0) | |
605 | GMRC*3.0* 95 Install ed. | |
606 | "BLD",1063 7,1,299,0) | |
607 | Dec 1 2, 2017@23 :48:17 | |
608 | "BLD",1063 7,1,300,0) | |
609 | ||
610 | "BLD",1063 7,1,301,0) | |
611 | No link t o PACKAGE file | |
612 | "BLD",1063 7,1,302,0) | |
613 | ||
614 | "BLD",1063 7,1,303,0) | |
615 | NO Instal l Message sent | |
616 | "BLD",1063 7,1,304,0) | |
617 | ||
618 | "BLD",1063 7,1,305,0) | |
619 | Install Co mpleted | |
620 | "BLD",1063 7,1,306,0) | |
621 | ||
622 | "BLD",1063 7,1,307,0) | |
623 | VISTA> | |
624 | "BLD",1063 7,1,308,0) | |
625 | ||
626 | "BLD",1063 7,1,309,0) | |
627 | ||
628 | "BLD",1063 7,1,310,0) | |
629 | Patch Back out Instru ctions: | |
630 | "BLD",1063 7,1,311,0) | |
631 | ---------- ---------- ------ | |
632 | "BLD",1063 7,1,312,0) | |
633 | 1. Go to MailMan m enu, choos e option R ead/Manage Messages and select | |
634 | "BLD",1063 7,1,313,0) | |
635 | the b ackup mess age that w as creatin g during I nstallatio n | |
636 | "BLD",1063 7,1,314,0) | |
637 | step 3.c - Back up | |
638 | "BLD",1063 7,1,315,0) | |
639 | ||
640 | "BLD",1063 7,1,316,0) | |
641 | 2. When prompted ' Type <Ente r> to cont inue or '^ ' to exit: ' type '^' | |
642 | "BLD",1063 7,1,317,0) | |
643 | and t hen <Enter > | |
644 | "BLD",1063 7,1,318,0) | |
645 | ||
646 | "BLD",1063 7,1,319,0) | |
647 | 3. When prompted ' Enter mess age action :' type 'X tract Pack Man' and | |
648 | "BLD",1063 7,1,320,0) | |
649 | then <Enter> | |
650 | "BLD",1063 7,1,321,0) | |
651 | ||
652 | "BLD",1063 7,1,322,0) | |
653 | 4. The f ollowing m essage and the promp t will dis play: | |
654 | "BLD",1063 7,1,323,0) | |
655 | Warni ng: Instal ling this message wi ll cause a permanent update of | |
656 | "BLD",1063 7,1,324,0) | |
657 | globa ls and rou tines. | |
658 | "BLD",1063 7,1,325,0) | |
659 | Do yo u really w ant to do this? NO// ' type 'YE S' and the n <Enter> | |
660 | "BLD",1063 7,1,326,0) | |
661 | ||
662 | "BLD",1063 7,1,327,0) | |
663 | 5. When prompted: | |
664 | "BLD",1063 7,1,328,0) | |
665 | 'Shal l I preser ve the rou tines on d isk in a s eparate ba ck-up | |
666 | "BLD",1063 7,1,329,0) | |
667 | messa ge? | |
668 | "BLD",1063 7,1,330,0) | |
669 | YES// ' type 'NO ' and then <Enter> | |
670 | "BLD",1063 7,1,331,0) | |
671 | ||
672 | "BLD",1063 7,1,332,0) | |
673 | 6. The s ystem will display t he followi ng message and show all the | |
674 | "BLD",1063 7,1,333,0) | |
675 | routi nes that w ere unload ed confirm ing that a ll the rou tines in t he | |
676 | "BLD",1063 7,1,334,0) | |
677 | build have been restored to the pri or version (unloaded ): | |
678 | "BLD",1063 7,1,335,0) | |
679 | 'No b ackup mess age built. | |
680 | "BLD",1063 7,1,336,0) | |
681 | ***LI ST of rout ines from backup. Se e full rou tine list at the end of | |
682 | "BLD",1063 7,1,337,0) | |
683 | th e document *** | |
684 | "BLD",1063 7,1,338,0) | |
685 | Selec t PackMan function: and then < Enter>' | |
686 | "BLD",1063 7,1,339,0) | |
687 | ||
688 | "BLD",1063 7,1,340,0) | |
689 | 7. Verif y that all two routi nes are li sted as ab ove have b een | |
690 | "BLD",1063 7,1,341,0) | |
691 | backe d out: | |
692 | "BLD",1063 7,1,342,0) | |
693 | No ba ckup messa ge built. | |
694 | "BLD",1063 7,1,343,0) | |
695 | When prompted ' Want KIDS to INHIBIT LOGONs du ring the i nstall? NO //' | |
696 | "BLD",1063 7,1,344,0) | |
697 | Press <Enter>. | |
698 | "BLD",1063 7,1,345,0) | |
699 | When prompted ' Want to DI SABLE Sche duled Opti ons, Menu Options, a nd | |
700 | "BLD",1063 7,1,346,0) | |
701 | Proto cols? NO// ' | |
702 | "BLD",1063 7,1,347,0) | |
703 | Press <Enter>. | |
704 | "BLD",1063 7,1,348,0) | |
705 | If pr ompted 'De lay Instal l (Minutes ): (0 - 6 0): 0//' r espond 0. | |
706 | "BLD",1063 7,1,349,0) | |
707 | ||
708 | "BLD",1063 7,1,350,0) | |
709 | 8. There are no gl obals that are being saved off for this patch to | |
710 | "BLD",1063 7,1,351,0) | |
711 | resto re. All ot her object s should b e manually backed ou t VA. | |
712 | "BLD",1063 7,1,352,0) | |
713 | ||
714 | "BLD",1063 7,1,353,0) | |
715 | 9. Delet ing Files: | |
716 | "BLD",1063 7,1,354,0) | |
717 | The f ollowing V A FileMan files shou ld be dele ted under their | |
718 | "BLD",1063 7,1,355,0) | |
719 | respe ctive grou ps. | |
720 | "BLD",1063 7,1,356,0) | |
721 | To de lete the f ile, open VA FileMan for the f ile specif ied. | |
722 | "BLD",1063 7,1,357,0) | |
723 | Look for the na me and onc e selected enter @ t o enter | |
724 | "BLD",1063 7,1,358,0) | |
725 | the d elete opti on. | |
726 | "BLD",1063 7,1,359,0) | |
727 | ||
728 | "BLD",1063 7,1,360,0) | |
729 | Example: | |
730 | "BLD",1063 7,1,361,0) | |
731 | VA FileMan 22.2 | |
732 | "BLD",1063 7,1,362,0) | |
733 | ||
734 | "BLD",1063 7,1,363,0) | |
735 | Select OPT ION: 1 EN TER OR EDI T FILE ENT RIES | |
736 | "BLD",1063 7,1,364,0) | |
737 | ||
738 | "BLD",1063 7,1,365,0) | |
739 | Input to w hat File: PROTOCOL// (4498 en tries) | |
740 | "BLD",1063 7,1,366,0) | |
741 | EDIT WHICH FIELD: AL L// | |
742 | "BLD",1063 7,1,367,0) | |
743 | ||
744 | "BLD",1063 7,1,368,0) | |
745 | Select PRO TOCOL NAME : ORMX ORM HL7 TRIGG ER O RMX ORM HL 7 TRIGGER | |
746 | "BLD",1063 7,1,369,0) | |
747 | NAME: ORMX ORM HL7 T RIGGER// @ | |
748 | "BLD",1063 7,1,370,0) | |
749 | SURE YO U WANT TO DELETE THE ENTIRE 'O RMX ORM HL 7 TRIGGER' PROTOCOL? | |
750 | "BLD",1063 7,1,371,0) | |
751 | ||
752 | "BLD",1063 7,1,372,0) | |
753 | Protocol: | |
754 | "BLD",1063 7,1,373,0) | |
755 | ORMX ORM H L7 TRIGGER | |
756 | "BLD",1063 7,1,374,0) | |
757 | ||
758 | "BLD",1063 7,1,375,0) | |
759 | 10. Modif ying files : | |
760 | "BLD",1063 7,1,376,0) | |
761 | The f ollowing f iles can b e updated in VA File Man but th ey are | |
762 | "BLD",1063 7,1,377,0) | |
763 | exist ing files. | |
764 | "BLD",1063 7,1,378,0) | |
765 | They should not be delete d. Instead reverting them back will | |
766 | "BLD",1063 7,1,379,0) | |
767 | be th e correct approach. | |
768 | "BLD",1063 7,1,380,0) | |
769 | ||
770 | "BLD",1063 7,1,381,0) | |
771 | Example: | |
772 | "BLD",1063 7,1,382,0) | |
773 | VA FileMan 22.2 | |
774 | "BLD",1063 7,1,383,0) | |
775 | ||
776 | "BLD",1063 7,1,384,0) | |
777 | Select OPT ION: 1 EN TER OR EDI T FILE ENT RIES | |
778 | "BLD",1063 7,1,385,0) | |
779 | ||
780 | "BLD",1063 7,1,386,0) | |
781 | Input to w hat File: PROTOCOL// (4498 en tries) | |
782 | "BLD",1063 7,1,387,0) | |
783 | ||
784 | "BLD",1063 7,1,388,0) | |
785 | EDIT WHICH FIELD: AL L// item | |
786 | "BLD",1063 7,1,389,0) | |
787 | 1 I TEM (mu ltiple) | |
788 | "BLD",1063 7,1,390,0) | |
789 | 2 I TEM TEXT | |
790 | "BLD",1063 7,1,391,0) | |
791 | CHOOSE 1-2 : 1 ITEM (multiple ) | |
792 | "BLD",1063 7,1,392,0) | |
793 | EDIT WH ICH ITEM S UB-FIELD: ALL// | |
794 | "BLD",1063 7,1,393,0) | |
795 | THEN EDIT FIELD: | |
796 | "BLD",1063 7,1,394,0) | |
797 | ||
798 | "BLD",1063 7,1,395,0) | |
799 | Select PRO TOCOL NAME : ORMX ORM HL7 TRIGG ER ORMX ORM HL7 TRIGGE R | |
800 | "BLD",1063 7,1,396,0) | |
801 | ||
802 | "BLD",1063 7,1,397,0) | |
803 | Select ITE M: ORMX OR M HL7 TRIG GER// ORM X ORM HL7 TRIGGER | |
804 | "BLD",1063 7,1,398,0) | |
805 | . ..OK? Yes/ / (Yes) | |
806 | "BLD",1063 7,1,399,0) | |
807 | ||
808 | "BLD",1063 7,1,400,0) | |
809 | ITEM: OR MX ORM HL7 TRIGGER// @ | |
810 | "BLD",1063 7,1,401,0) | |
811 | ||
812 | "BLD",1063 7,1,402,0) | |
813 | SURE YO U WANT TO DELETE THE ENTIRE IT EM? | |
814 | "BLD",1063 7,1,403,0) | |
815 | ||
816 | "BLD",1063 7,1,404,0) | |
817 | Protocol: | |
818 | "BLD",1063 7,1,405,0) | |
819 | GMRC EVSEN D OR | |
820 | "BLD",1063 7,1,406,0) | |
821 | 1. Re move ORMX ORM HL7 TR IGGER | |
822 | "BLD",1063 7,1,407,0) | |
823 | ||
824 | "BLD",1063 7,1,408,0) | |
825 | ||
826 | "BLD",1063 7,1,409,0) | |
827 | Post-Insta llation In structions : | |
828 | "BLD",1063 7,1,410,0) | |
829 | ---------- ---------- ---------- - | |
830 | "BLD",1063 7,1,411,0) | |
831 | See Techni cal Manual for cross reference /object co ntents ver ification | |
832 | "BLD",1063 7,1,412,0) | |
833 | ||
834 | "BLD",1063 7,1,413,0) | |
835 | ||
836 | "BLD",1063 7,1,414,0) | |
837 | Routine In formation: | |
838 | "BLD",1063 7,1,415,0) | |
839 | ========== ========== | |
840 | "BLD",1063 7,1,416,0) | |
841 | ||
842 | "BLD",1063 7,1,417,0) | |
843 | The second line of e ach of the se routine s now look s like: | |
844 | "BLD",1063 7,1,418,0) | |
845 | ;;3.0;CON SULT/REQUE ST TRACKIN G;**[Patch List]**;D EC 27, 199 7;Build 24 | |
846 | "BLD",1063 7,1,419,0) | |
847 | ||
848 | "BLD",1063 7,1,420,0) | |
849 | The checks ums below are new ch ecksums, a nd | |
850 | "BLD",1063 7,1,421,0) | |
851 | can be ch ecked with CHECK1^XT SUMBLD. | |
852 | "BLD",1063 7,1,422,0) | |
853 | ||
854 | "BLD",1063 7,1,423,0) | |
855 | ||
856 | "BLD",1063 7,1,424,0) | |
857 | Routine Na me: GMRCAC MT | |
858 | "BLD",1063 7,1,425,0) | |
859 | Before : B2881986 7 After: B29717425 | |
860 | "BLD",1063 7,1,426,0) | |
861 | **4,14,18, 20,22,29,3 5,47,55,75 ,95** | |
862 | "BLD",1063 7,1,427,0) | |
863 | Routine Na me: GMRCGU IB | |
864 | "BLD",1063 7,1,428,0) | |
865 | Before : B5389911 7 After: B55018923 **4,12,1 8,20,17,22 ,29,30,35, | |
866 | "BLD",1063 7,1,429,0) | |
867 | 45,53,5 5,64,46,75 ,86,90,95* * | |
868 | "BLD",1063 7,1,430,0) | |
869 | ||
870 | "BLD",1063 7,1,431,0) | |
871 | Routine li st of prec eding patc hes: 90 | |
872 | "BLD",1063 7,1,432,0) | |
873 | ||
874 | "BLD",1063 7,1,433,0) | |
875 | ========== ========== ========== ========== ========== ========== ========== ==== | |
876 | "BLD",1063 7,1,434,0) | |
877 | ||
878 | "BLD",1063 7,1,435,0) | |
879 | User Infor mation: | |
880 | "BLD",1063 7,1,436,0) | |
881 | Entered By : NE EDHAM,MALC OLM D ate Entere d : NOV 14,2017 | |
882 | "BLD",1063 7,1,437,0) | |
883 | Complete d By: D ate Comple ted: | |
884 | "BLD",1063 7,4,0) | |
885 | ^9.64PA^^ | |
886 | "BLD",1063 7,6.3) | |
887 | 31 | |
888 | "BLD",1063 7,"ABPKG") | |
889 | n | |
890 | "BLD",1063 7,"KRN",0) | |
891 | ^9.67PA^77 9.2^20 | |
892 | "BLD",1063 7,"KRN",.4 ,0) | |
893 | .4 | |
894 | "BLD",1063 7,"KRN",.4 01,0) | |
895 | .401 | |
896 | "BLD",1063 7,"KRN",.4 02,0) | |
897 | .402 | |
898 | "BLD",1063 7,"KRN",.4 03,0) | |
899 | .403 | |
900 | "BLD",1063 7,"KRN",.5 ,0) | |
901 | .5 | |
902 | "BLD",1063 7,"KRN",.8 4,0) | |
903 | .84 | |
904 | "BLD",1063 7,"KRN",3. 6,0) | |
905 | 3.6 | |
906 | "BLD",1063 7,"KRN",3. 8,0) | |
907 | 3.8 | |
908 | "BLD",1063 7,"KRN",9. 2,0) | |
909 | 9.2 | |
910 | "BLD",1063 7,"KRN",9. 8,0) | |
911 | 9.8 | |
912 | "BLD",1063 7,"KRN",9. 8,"NM",0) | |
913 | ^9.68A^2^2 | |
914 | "BLD",1063 7,"KRN",9. 8,"NM",1,0 ) | |
915 | GMRCACMT^^ 0^B2971742 5 | |
916 | "BLD",1063 7,"KRN",9. 8,"NM",2,0 ) | |
917 | GMRCGUIB^^ 0^B5501892 3 | |
918 | "BLD",1063 7,"KRN",9. 8,"NM","B" ,"GMRCACMT ",1) | |
919 | ||
920 | "BLD",1063 7,"KRN",9. 8,"NM","B" ,"GMRCGUIB ",2) | |
921 | ||
922 | "BLD",1063 7,"KRN",19 ,0) | |
923 | 19 | |
924 | "BLD",1063 7,"KRN",19 .1,0) | |
925 | 19.1 | |
926 | "BLD",1063 7,"KRN",10 1,0) | |
927 | 101 | |
928 | "BLD",1063 7,"KRN",10 1,"NM",0) | |
929 | ^9.68A^2^2 | |
930 | "BLD",1063 7,"KRN",10 1,"NM",1,0 ) | |
931 | GMRC EVSEN D OR^^2 | |
932 | "BLD",1063 7,"KRN",10 1,"NM",2,0 ) | |
933 | ORMX ORM H L7 TRIGGER - CONSULT S^^0 | |
934 | "BLD",1063 7,"KRN",10 1,"NM","B" ,"GMRC EVS END OR",1) | |
935 | ||
936 | "BLD",1063 7,"KRN",10 1,"NM","B" ,"ORMX ORM HL7 TRIGG ER - CONSU LTS",2) | |
937 | ||
938 | "BLD",1063 7,"KRN",40 9.61,0) | |
939 | 409.61 | |
940 | "BLD",1063 7,"KRN",77 1,0) | |
941 | 771 | |
942 | "BLD",1063 7,"KRN",77 9.2,0) | |
943 | 779.2 | |
944 | "BLD",1063 7,"KRN",87 0,0) | |
945 | 870 | |
946 | "BLD",1063 7,"KRN",89 89.51,0) | |
947 | 8989.51 | |
948 | "BLD",1063 7,"KRN",89 89.52,0) | |
949 | 8989.52 | |
950 | "BLD",1063 7,"KRN",89 94,0) | |
951 | 8994 | |
952 | "BLD",1063 7,"KRN","B ",.4,.4) | |
953 | ||
954 | "BLD",1063 7,"KRN","B ",.401,.40 1) | |
955 | ||
956 | "BLD",1063 7,"KRN","B ",.402,.40 2) | |
957 | ||
958 | "BLD",1063 7,"KRN","B ",.403,.40 3) | |
959 | ||
960 | "BLD",1063 7,"KRN","B ",.5,.5) | |
961 | ||
962 | "BLD",1063 7,"KRN","B ",.84,.84) | |
963 | ||
964 | "BLD",1063 7,"KRN","B ",3.6,3.6) | |
965 | ||
966 | "BLD",1063 7,"KRN","B ",3.8,3.8) | |
967 | ||
968 | "BLD",1063 7,"KRN","B ",9.2,9.2) | |
969 | ||
970 | "BLD",1063 7,"KRN","B ",9.8,9.8) | |
971 | ||
972 | "BLD",1063 7,"KRN","B ",19,19) | |
973 | ||
974 | "BLD",1063 7,"KRN","B ",19.1,19. 1) | |
975 | ||
976 | "BLD",1063 7,"KRN","B ",101,101) | |
977 | ||
978 | "BLD",1063 7,"KRN","B ",409.61,4 09.61) | |
979 | ||
980 | "BLD",1063 7,"KRN","B ",771,771) | |
981 | ||
982 | "BLD",1063 7,"KRN","B ",779.2,77 9.2) | |
983 | ||
984 | "BLD",1063 7,"KRN","B ",870,870) | |
985 | ||
986 | "BLD",1063 7,"KRN","B ",8989.51, 8989.51) | |
987 | ||
988 | "BLD",1063 7,"KRN","B ",8989.52, 8989.52) | |
989 | ||
990 | "BLD",1063 7,"KRN","B ",8994,899 4) | |
991 | ||
992 | "BLD",1063 7,"QDEF") | |
993 | ^^^^NO^^^^ NO^^NO | |
994 | "BLD",1063 7,"QUES",0 ) | |
995 | ^9.62^^ | |
996 | "BLD",1063 7,"REQB",0 ) | |
997 | ^9.611^4^4 | |
998 | "BLD",1063 7,"REQB",1 ,0) | |
999 | GMRC*3.0*5 5^2 | |
1000 | "BLD",1063 7,"REQB",2 ,0) | |
1001 | DG*5.3*948 ^2 | |
1002 | "BLD",1063 7,"REQB",3 ,0) | |
1003 | OR*3.0*470 ^2 | |
1004 | "BLD",1063 7,"REQB",4 ,0) | |
1005 | SD*5.3*676 ^2 | |
1006 | "BLD",1063 7,"REQB"," B","DG*5.3 *948",2) | |
1007 | ||
1008 | "BLD",1063 7,"REQB"," B","GMRC*3 .0*55",1) | |
1009 | ||
1010 | "BLD",1063 7,"REQB"," B","OR*3.0 *470",3) | |
1011 | ||
1012 | "BLD",1063 7,"REQB"," B","SD*5.3 *676",4) | |
1013 | ||
1014 | "KRN",101, 1982,-1) | |
1015 | 2^1 | |
1016 | "KRN",101, 1982,0) | |
1017 | GMRC EVSEN D OR^Consu lts event sent to OE /RR^^X^145 ^^^^^^^44 | |
1018 | "KRN",101, 1982,10,0) | |
1019 | ^101.01PA^ 6^6 | |
1020 | "KRN",101, 1982,10,6, 0) | |
1021 | 5012^^^ | |
1022 | "KRN",101, 1982,10,6, "^") | |
1023 | ORMX ORM H L7 TRIGGER - CONSULT S | |
1024 | "KRN",101, 5012,-1) | |
1025 | 0^2 | |
1026 | "KRN",101, 5012,0) | |
1027 | ORMX ORM H L7 TRIGGER - CONSULT S^ORMX ORM HL7 TRIGG ER - CONSU LTS^^A^^^^ ^^^^ | |
1028 | "KRN",101, 5012,4) | |
1029 | ^^^24573 | |
1030 | "KRN",101, 5012,20) | |
1031 | D TRGMRMSG ^ORMXTR | |
1032 | "KRN",101, 5012,99) | |
1033 | 64667,3697 1 | |
1034 | "MBREQ") | |
1035 | 0 | |
1036 | "ORD",15,1 01) | |
1037 | 101;15;;;P RO^XPDTA;P ROF1^XPDIA ;PROE1^XPD IA;PROF2^X PDIA;;PROD EL^XPDIA | |
1038 | "ORD",15,1 01,0) | |
1039 | PROTOCOL | |
1040 | "PKG",44,- 1) | |
1041 | 1^1 | |
1042 | "PKG",44,0 ) | |
1043 | CONSULT/RE QUEST TRAC KING^GMRC^ CONSULTS/R EQUESTS | |
1044 | "PKG",44,2 0,0) | |
1045 | ^9.402P^^ | |
1046 | "PKG",44,2 2,0) | |
1047 | ^9.49I^1^1 | |
1048 | "PKG",44,2 2,1,0) | |
1049 | 3.0^305111 9^2990416^ 1 | |
1050 | "PKG",44,2 2,1,"PAH", 1,0) | |
1051 | 95^3180504 | |
1052 | "PKG",44,2 2,1,"PAH", 1,1,0) | |
1053 | ^^437^437^ 3180504 | |
1054 | "PKG",44,2 2,1,"PAH", 1,1,1,0) | |
1055 | Associated patches: (v)GMRC*3* 75 <<= m ust be ins talled BEF ORE | |
1056 | "PKG",44,2 2,1,"PAH", 1,1,2,0) | |
1057 | `GMRC*3*95 ' | |
1058 | "PKG",44,2 2,1,"PAH", 1,1,3,0) | |
1059 | (v)GMRC*3* 90 <<= m ust be ins talled BEF ORE | |
1060 | "PKG",44,2 2,1,"PAH", 1,1,4,0) | |
1061 | `GMRC*3*95 ' | |
1062 | "PKG",44,2 2,1,"PAH", 1,1,5,0) | |
1063 | (u)DG*5.3* 948 <<= m ust be ins talled BEF ORE | |
1064 | "PKG",44,2 2,1,"PAH", 1,1,6,0) | |
1065 | `GMRC*3*95 ' | |
1066 | "PKG",44,2 2,1,"PAH", 1,1,7,0) | |
1067 | (u)SD*5.3* 676 <<= m ust be ins talled BEF ORE | |
1068 | "PKG",44,2 2,1,"PAH", 1,1,8,0) | |
1069 | `GMRC*3*95 ' | |
1070 | "PKG",44,2 2,1,"PAH", 1,1,9,0) | |
1071 | (u)OR*3*47 0 <<= m ust be ins talled BEF ORE | |
1072 | "PKG",44,2 2,1,"PAH", 1,1,10,0) | |
1073 | `GMRC*3*95 ' | |
1074 | "PKG",44,2 2,1,"PAH", 1,1,11,0) | |
1075 | ||
1076 | "PKG",44,2 2,1,"PAH", 1,1,12,0) | |
1077 | ||
1078 | "PKG",44,2 2,1,"PAH", 1,1,13,0) | |
1079 | Subject: MASS EPIC MODIFICATI ONS | |
1080 | "PKG",44,2 2,1,"PAH", 1,1,14,0) | |
1081 | ||
1082 | "PKG",44,2 2,1,"PAH", 1,1,15,0) | |
1083 | Category: OTHER | |
1084 | "PKG",44,2 2,1,"PAH", 1,1,16,0) | |
1085 | ROUTINE | |
1086 | "PKG",44,2 2,1,"PAH", 1,1,17,0) | |
1087 | ENHANCEME NT | |
1088 | "PKG",44,2 2,1,"PAH", 1,1,18,0) | |
1089 | ||
1090 | "PKG",44,2 2,1,"PAH", 1,1,19,0) | |
1091 | The follow ing patche s must be installed in order f or a succe ssful | |
1092 | "PKG",44,2 2,1,"PAH", 1,1,20,0) | |
1093 | instalatio n: | |
1094 | "PKG",44,2 2,1,"PAH", 1,1,21,0) | |
1095 | SD*5.3*67 6 | |
1096 | "PKG",44,2 2,1,"PAH", 1,1,22,0) | |
1097 | DG*5.3*94 8 | |
1098 | "PKG",44,2 2,1,"PAH", 1,1,23,0) | |
1099 | OR*3.0*47 0 | |
1100 | "PKG",44,2 2,1,"PAH", 1,1,24,0) | |
1101 | GMRC*3.0* 95 | |
1102 | "PKG",44,2 2,1,"PAH", 1,1,25,0) | |
1103 | DVBA*2.7* 202 | |
1104 | "PKG",44,2 2,1,"PAH", 1,1,26,0) | |
1105 | ||
1106 | "PKG",44,2 2,1,"PAH", 1,1,27,0) | |
1107 | ---------- -- | |
1108 | "PKG",44,2 2,1,"PAH", 1,1,28,0) | |
1109 | The CONSUL T/REQUEST TRACKING G MRC*3.0*95 patch is the initia l release of | |
1110 | "PKG",44,2 2,1,"PAH", 1,1,29,0) | |
1111 | the Medica l Appointm ent | |
1112 | "PKG",44,2 2,1,"PAH", 1,1,30,0) | |
1113 | Scheduling System (M ASS) sched uling inte gration de velopment for the Vi stA | |
1114 | "PKG",44,2 2,1,"PAH", 1,1,31,0) | |
1115 | Pilot at C olumbus, O H. This pa tch includ es all of the necess ary | |
1116 | "PKG",44,2 2,1,"PAH", 1,1,32,0) | |
1117 | components that will enable ou tgoing HL7 (Health L evel 7) v2 | |
1118 | "PKG",44,2 2,1,"PAH", 1,1,33,0) | |
1119 | ORM (order message) ordering i ntegration with MASS . | |
1120 | "PKG",44,2 2,1,"PAH", 1,1,34,0) | |
1121 | ||
1122 | "PKG",44,2 2,1,"PAH", 1,1,35,0) | |
1123 | ||
1124 | "PKG",44,2 2,1,"PAH", 1,1,36,0) | |
1125 | Patch Comp onents: | |
1126 | "PKG",44,2 2,1,"PAH", 1,1,37,0) | |
1127 | ---------- ---------- | |
1128 | "PKG",44,2 2,1,"PAH", 1,1,38,0) | |
1129 | N/A (Not A pplicable) | |
1130 | "PKG",44,2 2,1,"PAH", 1,1,39,0) | |
1131 | ||
1132 | "PKG",44,2 2,1,"PAH", 1,1,40,0) | |
1133 | ||
1134 | "PKG",44,2 2,1,"PAH", 1,1,41,0) | |
1135 | ||
1136 | "PKG",44,2 2,1,"PAH", 1,1,42,0) | |
1137 | Files & Fi elds Assoc iated: | |
1138 | "PKG",44,2 2,1,"PAH", 1,1,43,0) | |
1139 | ||
1140 | "PKG",44,2 2,1,"PAH", 1,1,44,0) | |
1141 | File Name (Number) Field Name (Numb er) Ne w/Modified /Deleted | |
1142 | "PKG",44,2 2,1,"PAH", 1,1,45,0) | |
1143 | ---------- -------- ------ ---------- --- -- ---------- -------- | |
1144 | "PKG",44,2 2,1,"PAH", 1,1,46,0) | |
1145 | None N/A N/ A | |
1146 | "PKG",44,2 2,1,"PAH", 1,1,47,0) | |
1147 | ||
1148 | "PKG",44,2 2,1,"PAH", 1,1,48,0) | |
1149 | ||
1150 | "PKG",44,2 2,1,"PAH", 1,1,49,0) | |
1151 | Forms Asso ciated: | |
1152 | "PKG",44,2 2,1,"PAH", 1,1,50,0) | |
1153 | ||
1154 | "PKG",44,2 2,1,"PAH", 1,1,51,0) | |
1155 | Form Name File # New/Mo dified/Del eted | |
1156 | "PKG",44,2 2,1,"PAH", 1,1,52,0) | |
1157 | --------- ---- -- ------ ---------- ---- | |
1158 | "PKG",44,2 2,1,"PAH", 1,1,53,0) | |
1159 | None N/A N/A | |
1160 | "PKG",44,2 2,1,"PAH", 1,1,54,0) | |
1161 | ||
1162 | "PKG",44,2 2,1,"PAH", 1,1,55,0) | |
1163 | ||
1164 | "PKG",44,2 2,1,"PAH", 1,1,56,0) | |
1165 | Mail Group s Associat ed: | |
1166 | "PKG",44,2 2,1,"PAH", 1,1,57,0) | |
1167 | ||
1168 | "PKG",44,2 2,1,"PAH", 1,1,58,0) | |
1169 | Mail Group Name New/ Modified/D eleted | |
1170 | "PKG",44,2 2,1,"PAH", 1,1,59,0) | |
1171 | ---------- ----- ---- ---------- ------ | |
1172 | "PKG",44,2 2,1,"PAH", 1,1,60,0) | |
1173 | None N/A | |
1174 | "PKG",44,2 2,1,"PAH", 1,1,61,0) | |
1175 | ||
1176 | "PKG",44,2 2,1,"PAH", 1,1,62,0) | |
1177 | ||
1178 | "PKG",44,2 2,1,"PAH", 1,1,63,0) | |
1179 | Options As sociated: | |
1180 | "PKG",44,2 2,1,"PAH", 1,1,64,0) | |
1181 | ||
1182 | "PKG",44,2 2,1,"PAH", 1,1,65,0) | |
1183 | Option Nam e Type New/Mo dified/Del eted | |
1184 | "PKG",44,2 2,1,"PAH", 1,1,66,0) | |
1185 | ---------- - ---- ------ ---------- ---- | |
1186 | "PKG",44,2 2,1,"PAH", 1,1,67,0) | |
1187 | None N/ A N/A | |
1188 | "PKG",44,2 2,1,"PAH", 1,1,68,0) | |
1189 | ||
1190 | "PKG",44,2 2,1,"PAH", 1,1,69,0) | |
1191 | ||
1192 | "PKG",44,2 2,1,"PAH", 1,1,70,0) | |
1193 | Protocols Associated : | |
1194 | "PKG",44,2 2,1,"PAH", 1,1,71,0) | |
1195 | ||
1196 | "PKG",44,2 2,1,"PAH", 1,1,72,0) | |
1197 | Protocol N ame New/Mo dified/Del eted | |
1198 | "PKG",44,2 2,1,"PAH", 1,1,73,0) | |
1199 | ---------- --- ------ ---------- ---- | |
1200 | "PKG",44,2 2,1,"PAH", 1,1,74,0) | |
1201 | GMRC EVSEN D OR MODIFI ED | |
1202 | "PKG",44,2 2,1,"PAH", 1,1,75,0) | |
1203 | ORMX ORM H L7 TRIGGER - CONSULT S NEW | |
1204 | "PKG",44,2 2,1,"PAH", 1,1,76,0) | |
1205 | ||
1206 | "PKG",44,2 2,1,"PAH", 1,1,77,0) | |
1207 | ||
1208 | "PKG",44,2 2,1,"PAH", 1,1,78,0) | |
1209 | Security K eys Associ ated: | |
1210 | "PKG",44,2 2,1,"PAH", 1,1,79,0) | |
1211 | ||
1212 | "PKG",44,2 2,1,"PAH", 1,1,80,0) | |
1213 | Security K ey Name | |
1214 | "PKG",44,2 2,1,"PAH", 1,1,81,0) | |
1215 | ---------- ------- | |
1216 | "PKG",44,2 2,1,"PAH", 1,1,82,0) | |
1217 | N/A | |
1218 | "PKG",44,2 2,1,"PAH", 1,1,83,0) | |
1219 | ||
1220 | "PKG",44,2 2,1,"PAH", 1,1,84,0) | |
1221 | ||
1222 | "PKG",44,2 2,1,"PAH", 1,1,85,0) | |
1223 | Templates Associated : | |
1224 | "PKG",44,2 2,1,"PAH", 1,1,86,0) | |
1225 | ||
1226 | "PKG",44,2 2,1,"PAH", 1,1,87,0) | |
1227 | Template N ame Type File N ame (Numbe r) New/Mo dified/Del eted | |
1228 | "PKG",44,2 2,1,"PAH", 1,1,88,0) | |
1229 | ---------- --- ---- ------ ---------- -- ------ ---------- ---- | |
1230 | "PKG",44,2 2,1,"PAH", 1,1,89,0) | |
1231 | None N/A N/A N/A | |
1232 | "PKG",44,2 2,1,"PAH", 1,1,90,0) | |
1233 | ||
1234 | "PKG",44,2 2,1,"PAH", 1,1,91,0) | |
1235 | ||
1236 | "PKG",44,2 2,1,"PAH", 1,1,92,0) | |
1237 | Additional Informati on: N/A | |
1238 | "PKG",44,2 2,1,"PAH", 1,1,93,0) | |
1239 | ||
1240 | "PKG",44,2 2,1,"PAH", 1,1,94,0) | |
1241 | ||
1242 | "PKG",44,2 2,1,"PAH", 1,1,95,0) | |
1243 | New Servic e Requests (NSRs): | |
1244 | "PKG",44,2 2,1,"PAH", 1,1,96,0) | |
1245 | ---------- ---------- -------- | |
1246 | "PKG",44,2 2,1,"PAH", 1,1,97,0) | |
1247 | N/A | |
1248 | "PKG",44,2 2,1,"PAH", 1,1,98,0) | |
1249 | ||
1250 | "PKG",44,2 2,1,"PAH", 1,1,99,0) | |
1251 | ||
1252 | "PKG",44,2 2,1,"PAH", 1,1,100,0) | |
1253 | Patient Sa fety Issue s (PSIs): | |
1254 | "PKG",44,2 2,1,"PAH", 1,1,101,0) | |
1255 | ---------- ---------- --------- | |
1256 | "PKG",44,2 2,1,"PAH", 1,1,102,0) | |
1257 | N/A | |
1258 | "PKG",44,2 2,1,"PAH", 1,1,103,0) | |
1259 | ||
1260 | "PKG",44,2 2,1,"PAH", 1,1,104,0) | |
1261 | ||
1262 | "PKG",44,2 2,1,"PAH", 1,1,105,0) | |
1263 | Defect Tra cking Syst em Ticket( s) & Overv iew: | |
1264 | "PKG",44,2 2,1,"PAH", 1,1,106,0) | |
1265 | ---------- ---------- ---------- ---------- ---- | |
1266 | "PKG",44,2 2,1,"PAH", 1,1,107,0) | |
1267 | N/A | |
1268 | "PKG",44,2 2,1,"PAH", 1,1,108,0) | |
1269 | ||
1270 | "PKG",44,2 2,1,"PAH", 1,1,109,0) | |
1271 | ||
1272 | "PKG",44,2 2,1,"PAH", 1,1,110,0) | |
1273 | Problem: | |
1274 | "PKG",44,2 2,1,"PAH", 1,1,111,0) | |
1275 | ------- | |
1276 | "PKG",44,2 2,1,"PAH", 1,1,112,0) | |
1277 | N/A | |
1278 | "PKG",44,2 2,1,"PAH", 1,1,113,0) | |
1279 | ||
1280 | "PKG",44,2 2,1,"PAH", 1,1,114,0) | |
1281 | ||
1282 | "PKG",44,2 2,1,"PAH", 1,1,115,0) | |
1283 | Resolution : | |
1284 | "PKG",44,2 2,1,"PAH", 1,1,116,0) | |
1285 | ---------- | |
1286 | "PKG",44,2 2,1,"PAH", 1,1,117,0) | |
1287 | N/A | |
1288 | "PKG",44,2 2,1,"PAH", 1,1,118,0) | |
1289 | ||
1290 | "PKG",44,2 2,1,"PAH", 1,1,119,0) | |
1291 | ||
1292 | "PKG",44,2 2,1,"PAH", 1,1,120,0) | |
1293 | Test Sites : | |
1294 | "PKG",44,2 2,1,"PAH", 1,1,121,0) | |
1295 | ---------- | |
1296 | "PKG",44,2 2,1,"PAH", 1,1,122,0) | |
1297 | 1. EPIC DE VELOPMENT ACCOUNT | |
1298 | "PKG",44,2 2,1,"PAH", 1,1,123,0) | |
1299 | 2. VISTA D EVVFF DEVE LOPMENT AC COUNT | |
1300 | "PKG",44,2 2,1,"PAH", 1,1,124,0) | |
1301 | 3. Columbu s, OH (PRE -PRODUCTIO N and PROD UCTION) | |
1302 | "PKG",44,2 2,1,"PAH", 1,1,125,0) | |
1303 | ||
1304 | "PKG",44,2 2,1,"PAH", 1,1,126,0) | |
1305 | Software a nd Documen tation Ret rieval Ins tructions: | |
1306 | "PKG",44,2 2,1,"PAH", 1,1,127,0) | |
1307 | ---------- ---------- ---------- ---------- ---------- -- | |
1308 | "PKG",44,2 2,1,"PAH", 1,1,128,0) | |
1309 | Software b eing relea sed as a h ost file a nd/or docu mentation describing | |
1310 | "PKG",44,2 2,1,"PAH", 1,1,129,0) | |
1311 | the new fu nctionalit y introduc ed by this patch are available . | |
1312 | "PKG",44,2 2,1,"PAH", 1,1,130,0) | |
1313 | ||
1314 | "PKG",44,2 2,1,"PAH", 1,1,131,0) | |
1315 | The prefer red method is to ret rieve file s from dow nload. DNS . DNS . | |
1316 | "PKG",44,2 2,1,"PAH", 1,1,132,0) | |
1317 | This trans mits the f iles from the first available server. Si tes may | |
1318 | "PKG",44,2 2,1,"PAH", 1,1,133,0) | |
1319 | also elect to retrie ve files d irectly fr om a speci fic server . | |
1320 | "PKG",44,2 2,1,"PAH", 1,1,134,0) | |
1321 | ||
1322 | "PKG",44,2 2,1,"PAH", 1,1,135,0) | |
1323 | Sites may retrieve t he softwar e and/or d ocumentati on directl y using | |
1324 | "PKG",44,2 2,1,"PAH", 1,1,136,0) | |
1325 | Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE | |
1326 | "PKG",44,2 2,1,"PAH", 1,1,137,0) | |
1327 | directory at the fol lowing | |
1328 | "PKG",44,2 2,1,"PAH", 1,1,138,0) | |
1329 | OI Field O ffices: | |
1330 | "PKG",44,2 2,1,"PAH", 1,1,139,0) | |
1331 | ||
1332 | "PKG",44,2 2,1,"PAH", 1,1,140,0) | |
1333 | Hines: DN S .URL | |
1334 | "PKG",44,2 2,1,"PAH", 1,1,141,0) | |
1335 | Salt Lake City:
|
|
1336 | "PKG",44,2 2,1,"PAH", 1,1,142,0) | |
1337 | ||
1338 | "PKG",44,2 2,1,"PAH", 1,1,143,0) | |
1339 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | |
1340 | "PKG",44,2 2,1,"PAH", 1,1,144,0) | |
1341 | at: | |
1342 | "PKG",44,2 2,1,"PAH", 1,1,145,0) | |
1343 | http://www . DNS /vdl/ | |
1344 | "PKG",44,2 2,1,"PAH", 1,1,146,0) | |
1345 | ||
1346 | "PKG",44,2 2,1,"PAH", 1,1,147,0) | |
1347 | Title File Name F TP Mode | |
1348 | "PKG",44,2 2,1,"PAH", 1,1,148,0) | |
1349 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- - | |
1350 | "PKG",44,2 2,1,"PAH", 1,1,149,0) | |
1351 | MASS VistA Technical Manual TBD B INARY | |
1352 | "PKG",44,2 2,1,"PAH", 1,1,150,0) | |
1353 | ||
1354 | "PKG",44,2 2,1,"PAH", 1,1,151,0) | |
1355 | ||
1356 | "PKG",44,2 2,1,"PAH", 1,1,152,0) | |
1357 | Patch Inst allation: | |
1358 | "PKG",44,2 2,1,"PAH", 1,1,153,0) | |
1359 | ||
1360 | "PKG",44,2 2,1,"PAH", 1,1,154,0) | |
1361 | Pre/Post I nstallatio n Overview : | |
1362 | "PKG",44,2 2,1,"PAH", 1,1,155,0) | |
1363 | ---------- ---------- ---------- - | |
1364 | "PKG",44,2 2,1,"PAH", 1,1,156,0) | |
1365 | See Techni cal Manual for proje ct level i nstallatio n instruct ions. | |
1366 | "PKG",44,2 2,1,"PAH", 1,1,157,0) | |
1367 | ||
1368 | "PKG",44,2 2,1,"PAH", 1,1,158,0) | |
1369 | Pre-Instal lation Ins tructions: | |
1370 | "PKG",44,2 2,1,"PAH", 1,1,159,0) | |
1371 | ---------- ---------- ---------- | |
1372 | "PKG",44,2 2,1,"PAH", 1,1,160,0) | |
1373 | This patch may be in stalled wi th users o n the syst em althoug h it is | |
1374 | "PKG",44,2 2,1,"PAH", 1,1,161,0) | |
1375 | recommende d that it be install ed during non-peak h ours to mi nimize | |
1376 | "PKG",44,2 2,1,"PAH", 1,1,162,0) | |
1377 | potential disruption to users. This pat ch should take less than 5 | |
1378 | "PKG",44,2 2,1,"PAH", 1,1,163,0) | |
1379 | minutes to install. | |
1380 | "PKG",44,2 2,1,"PAH", 1,1,164,0) | |
1381 | ||
1382 | "PKG",44,2 2,1,"PAH", 1,1,165,0) | |
1383 | There are no ListMan Options t hat need t o be disab led for th is patch. | |
1384 | "PKG",44,2 2,1,"PAH", 1,1,166,0) | |
1385 | ||
1386 | "PKG",44,2 2,1,"PAH", 1,1,167,0) | |
1387 | Installati on Instruc tions: | |
1388 | "PKG",44,2 2,1,"PAH", 1,1,168,0) | |
1389 | ---------- ---------- ------ | |
1390 | "PKG",44,2 2,1,"PAH", 1,1,169,0) | |
1391 | ||
1392 | "PKG",44,2 2,1,"PAH", 1,1,170,0) | |
1393 | 1. Choose the PackM an message containin g this pat ch. | |
1394 | "PKG",44,2 2,1,"PAH", 1,1,171,0) | |
1395 | ||
1396 | "PKG",44,2 2,1,"PAH", 1,1,172,0) | |
1397 | 2. Choose the INSTA LL/CHECK M ESSAGE Pac kMan optio n. | |
1398 | "PKG",44,2 2,1,"PAH", 1,1,173,0) | |
1399 | ||
1400 | "PKG",44,2 2,1,"PAH", 1,1,174,0) | |
1401 | 3. From t he Kernel Installati on and Dis tribution System Men u, select | |
1402 | "PKG",44,2 2,1,"PAH", 1,1,175,0) | |
1403 | the In stallation Menu (See Install P rompts Sam ple below for more | |
1404 | "PKG",44,2 2,1,"PAH", 1,1,176,0) | |
1405 | detail ). From t his menu, you may el ect to use the follo wing optio ns. | |
1406 | "PKG",44,2 2,1,"PAH", 1,1,177,0) | |
1407 | When p rompted fo r the INST ALL NAME e nter the p atch #(ex. XXX*X.X*X X): | |
1408 | "PKG",44,2 2,1,"PAH", 1,1,178,0) | |
1409 | ||
1410 | "PKG",44,2 2,1,"PAH", 1,1,179,0) | |
1411 | a. Ba ckup a Tra nsport Glo bal - This option wi ll create a backup | |
1412 | "PKG",44,2 2,1,"PAH", 1,1,180,0) | |
1413 | me ssage of a ny routine s exported with this patch. It will not | |
1414 | "PKG",44,2 2,1,"PAH", 1,1,181,0) | |
1415 | ba ckup any o ther chang es such as DDs or te mplates. | |
1416 | "PKG",44,2 2,1,"PAH", 1,1,182,0) | |
1417 | ||
1418 | "PKG",44,2 2,1,"PAH", 1,1,183,0) | |
1419 | b. Co mpare Tran sport Glob al to Curr ent System - This op tion will | |
1420 | "PKG",44,2 2,1,"PAH", 1,1,184,0) | |
1421 | (a llow you t o view all changes t hat will b e made whe n this | |
1422 | "PKG",44,2 2,1,"PAH", 1,1,185,0) | |
1423 | pa tch is ins talled.) | |
1424 | "PKG",44,2 2,1,"PAH", 1,1,186,0) | |
1425 | It compares all compon ents of th is patch r outines, | |
1426 | "PKG",44,2 2,1,"PAH", 1,1,187,0) | |
1427 | DD s, templat es, etc. | |
1428 | "PKG",44,2 2,1,"PAH", 1,1,188,0) | |
1429 | ||
1430 | "PKG",44,2 2,1,"PAH", 1,1,189,0) | |
1431 | c. Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow you | |
1432 | "PKG",44,2 2,1,"PAH", 1,1,190,0) | |
1433 | to ensure th e integrit y of the r outines th at are in the transp ort | |
1434 | "PKG",44,2 2,1,"PAH", 1,1,191,0) | |
1435 | gl obal. | |
1436 | "PKG",44,2 2,1,"PAH", 1,1,192,0) | |
1437 | ||
1438 | "PKG",44,2 2,1,"PAH", 1,1,193,0) | |
1439 | 4. From t he Install ation Menu , select t he Install Package(s ) option | |
1440 | "PKG",44,2 2,1,"PAH", 1,1,194,0) | |
1441 | and ch oose the p atch to in stall. | |
1442 | "PKG",44,2 2,1,"PAH", 1,1,195,0) | |
1443 | ||
1444 | "PKG",44,2 2,1,"PAH", 1,1,196,0) | |
1445 | 5. When p rompted 'W ant KIDS t o Rebuild Menu Trees Upon Comp letion of | |
1446 | "PKG",44,2 2,1,"PAH", 1,1,197,0) | |
1447 | Instal l? NO//' | |
1448 | "PKG",44,2 2,1,"PAH", 1,1,198,0) | |
1449 | ||
1450 | "PKG",44,2 2,1,"PAH", 1,1,199,0) | |
1451 | 6. When p rompted 'W ant KIDS t o INHIBIT LOGONs dur ing the in stall? NO/ /' | |
1452 | "PKG",44,2 2,1,"PAH", 1,1,200,0) | |
1453 | ||
1454 | "PKG",44,2 2,1,"PAH", 1,1,201,0) | |
1455 | 7. When p rompted 'W ant to DIS ABLE Sched uled Optio ns, Menu O ptions, | |
1456 | "PKG",44,2 2,1,"PAH", 1,1,202,0) | |
1457 | and Pr otocols? N O//' | |
1458 | "PKG",44,2 2,1,"PAH", 1,1,203,0) | |
1459 | ||
1460 | "PKG",44,2 2,1,"PAH", 1,1,204,0) | |
1461 | 8. If pro mpted 'Del ay Install (Minutes) : (0 - 60 ): 0//' re spond 0. | |
1462 | "PKG",44,2 2,1,"PAH", 1,1,205,0) | |
1463 | ||
1464 | "PKG",44,2 2,1,"PAH", 1,1,206,0) | |
1465 | ||
1466 | "PKG",44,2 2,1,"PAH", 1,1,207,0) | |
1467 | Install Pr ompts Samp le: | |
1468 | "PKG",44,2 2,1,"PAH", 1,1,208,0) | |
1469 | ---------- ---------- ------ | |
1470 | "PKG",44,2 2,1,"PAH", 1,1,209,0) | |
1471 | ||
1472 | "PKG",44,2 2,1,"PAH", 1,1,210,0) | |
1473 | VISTA>D ^X UP | |
1474 | "PKG",44,2 2,1,"PAH", 1,1,211,0) | |
1475 | ||
1476 | "PKG",44,2 2,1,"PAH", 1,1,212,0) | |
1477 | Setting up programme r environm ent | |
1478 | "PKG",44,2 2,1,"PAH", 1,1,213,0) | |
1479 | This is a TEST accou nt. | |
1480 | "PKG",44,2 2,1,"PAH", 1,1,214,0) | |
1481 | ||
1482 | "PKG",44,2 2,1,"PAH", 1,1,215,0) | |
1483 | Terminal T ype set to : C-VT100 | |
1484 | "PKG",44,2 2,1,"PAH", 1,1,216,0) | |
1485 | ||
1486 | "PKG",44,2 2,1,"PAH", 1,1,217,0) | |
1487 | Select OPT ION NAME: XPD LOAD D ISTRIBUTIO N Lo ad a Distr ibution | |
1488 | "PKG",44,2 2,1,"PAH", 1,1,218,0) | |
1489 | Load a Dis tribution | |
1490 | "PKG",44,2 2,1,"PAH", 1,1,219,0) | |
1491 | Enter a Ho st File: G MRC_3_0_95 .KID | |
1492 | "PKG",44,2 2,1,"PAH", 1,1,220,0) | |
1493 | ||
1494 | "PKG",44,2 2,1,"PAH", 1,1,221,0) | |
1495 | KIDS Distr ibution sa ved on Dec 11, 2017@ 17:30:10 | |
1496 | "PKG",44,2 2,1,"PAH", 1,1,222,0) | |
1497 | Comment: G MRC*3.0*95 | |
1498 | "PKG",44,2 2,1,"PAH", 1,1,223,0) | |
1499 | ||
1500 | "PKG",44,2 2,1,"PAH", 1,1,224,0) | |
1501 | This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s): | |
1502 | "PKG",44,2 2,1,"PAH", 1,1,225,0) | |
1503 | Build GMRC *3.0*95 ha s been loa ded before , here is when: | |
1504 | "PKG",44,2 2,1,"PAH", 1,1,226,0) | |
1505 | GMRC *3.0*95 Install Co mpleted | |
1506 | "PKG",44,2 2,1,"PAH", 1,1,227,0) | |
1507 | was loaded on Nov 15 , 2017@00: 13:28 | |
1508 | "PKG",44,2 2,1,"PAH", 1,1,228,0) | |
1509 | GMRC *3.0*95 Install Co mpleted | |
1510 | "PKG",44,2 2,1,"PAH", 1,1,229,0) | |
1511 | was loaded on Nov 20 , 2017@14: 59:53 | |
1512 | "PKG",44,2 2,1,"PAH", 1,1,230,0) | |
1513 | GMRC *3.0*95 Install Co mpleted | |
1514 | "PKG",44,2 2,1,"PAH", 1,1,231,0) | |
1515 | was loaded on Nov 21 , 2017@15: 39:21 | |
1516 | "PKG",44,2 2,1,"PAH", 1,1,232,0) | |
1517 | GMRC *3.0*95 Install Co mpleted | |
1518 | "PKG",44,2 2,1,"PAH", 1,1,233,0) | |
1519 | was loaded on Dec 05 , 2017@16: 16:01 | |
1520 | "PKG",44,2 2,1,"PAH", 1,1,234,0) | |
1521 | OK to cont inue with Load? NO// YES | |
1522 | "PKG",44,2 2,1,"PAH", 1,1,235,0) | |
1523 | ||
1524 | "PKG",44,2 2,1,"PAH", 1,1,236,0) | |
1525 | Distributi on OK! | |
1526 | "PKG",44,2 2,1,"PAH", 1,1,237,0) | |
1527 | ||
1528 | "PKG",44,2 2,1,"PAH", 1,1,238,0) | |
1529 | Want to Co ntinue wit h Load? YE S// | |
1530 | "PKG",44,2 2,1,"PAH", 1,1,239,0) | |
1531 | Loading Di stribution ... | |
1532 | "PKG",44,2 2,1,"PAH", 1,1,240,0) | |
1533 | ||
1534 | "PKG",44,2 2,1,"PAH", 1,1,241,0) | |
1535 | GMRC*3. 0*95 | |
1536 | "PKG",44,2 2,1,"PAH", 1,1,242,0) | |
1537 | Use INSTAL L NAME: GM RC*3.0*95 to install this Dist ribution. | |
1538 | "PKG",44,2 2,1,"PAH", 1,1,243,0) | |
1539 | ||
1540 | "PKG",44,2 2,1,"PAH", 1,1,244,0) | |
1541 | VISTA>D ^X UP | |
1542 | "PKG",44,2 2,1,"PAH", 1,1,245,0) | |
1543 | ||
1544 | "PKG",44,2 2,1,"PAH", 1,1,246,0) | |
1545 | Setting up programme r environm ent | |
1546 | "PKG",44,2 2,1,"PAH", 1,1,247,0) | |
1547 | This is a TEST accou nt. | |
1548 | "PKG",44,2 2,1,"PAH", 1,1,248,0) | |
1549 | ||
1550 | "PKG",44,2 2,1,"PAH", 1,1,249,0) | |
1551 | Terminal T ype set to : C-VT100 | |
1552 | "PKG",44,2 2,1,"PAH", 1,1,250,0) | |
1553 | ||
1554 | "PKG",44,2 2,1,"PAH", 1,1,251,0) | |
1555 | Select OPT ION NAME: XPD INS | |
1556 | "PKG",44,2 2,1,"PAH", 1,1,252,0) | |
1557 | 1 X PD INSTALL BUILD Install Package(s ) | |
1558 | "PKG",44,2 2,1,"PAH", 1,1,253,0) | |
1559 | 2 X PD INSTALL ATION MENU Ins tallation | |
1560 | "PKG",44,2 2,1,"PAH", 1,1,254,0) | |
1561 | CHOOSE 1-2 : 1 XPD I NSTALL BUI LD Ins tall Packa ge(s) | |
1562 | "PKG",44,2 2,1,"PAH", 1,1,255,0) | |
1563 | Install Pa ckage(s) | |
1564 | "PKG",44,2 2,1,"PAH", 1,1,256,0) | |
1565 | Select INS TALL NAME: GMRC*3 .0*95 Loaded fro m Distribu tion | |
1566 | "PKG",44,2 2,1,"PAH", 1,1,257,0) | |
1567 | 12/12/17@2 3:48:08 | |
1568 | "PKG",44,2 2,1,"PAH", 1,1,258,0) | |
1569 | => GM RC*3.0*95 ;Created on Dec 11, 2017@17:3 0:10 | |
1570 | "PKG",44,2 2,1,"PAH", 1,1,259,0) | |
1571 | ||
1572 | "PKG",44,2 2,1,"PAH", 1,1,260,0) | |
1573 | This Distr ibution wa s loaded o n Dec 12, 2017@23:48 :08 with h eader of | |
1574 | "PKG",44,2 2,1,"PAH", 1,1,261,0) | |
1575 | GMRC*3. 0*95 ;Cre ated on De c 11, 2017 @17:30:10 | |
1576 | "PKG",44,2 2,1,"PAH", 1,1,262,0) | |
1577 | It cons isted of t he followi ng Install (s): | |
1578 | "PKG",44,2 2,1,"PAH", 1,1,263,0) | |
1579 | GMRC*3 .0*95 | |
1580 | "PKG",44,2 2,1,"PAH", 1,1,264,0) | |
1581 | Checking I nstall for Package G MRC*3.0*95 | |
1582 | "PKG",44,2 2,1,"PAH", 1,1,265,0) | |
1583 | ||
1584 | "PKG",44,2 2,1,"PAH", 1,1,266,0) | |
1585 | Install Qu estions fo r GMRC*3.0 *95 | |
1586 | "PKG",44,2 2,1,"PAH", 1,1,267,0) | |
1587 | ||
1588 | "PKG",44,2 2,1,"PAH", 1,1,268,0) | |
1589 | Want KIDS to INHIBIT LOGONs du ring the i nstall? NO // | |
1590 | "PKG",44,2 2,1,"PAH", 1,1,269,0) | |
1591 | ||
1592 | "PKG",44,2 2,1,"PAH", 1,1,270,0) | |
1593 | Press RETU RN to cont inue or '^ ' to stop | |
1594 | "PKG",44,2 2,1,"PAH", 1,1,271,0) | |
1595 | ||
1596 | "PKG",44,2 2,1,"PAH", 1,1,272,0) | |
1597 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls? NO// | |
1598 | "PKG",44,2 2,1,"PAH", 1,1,273,0) | |
1599 | ||
1600 | "PKG",44,2 2,1,"PAH", 1,1,274,0) | |
1601 | Enter the Device you want to p rint the I nstall mes sages. | |
1602 | "PKG",44,2 2,1,"PAH", 1,1,275,0) | |
1603 | You can qu eue the in stall by e nter a 'Q' at the de vice promp t. | |
1604 | "PKG",44,2 2,1,"PAH", 1,1,276,0) | |
1605 | Enter a '^ ' to abort the insta ll. | |
1606 | "PKG",44,2 2,1,"PAH", 1,1,277,0) | |
1607 | ||
1608 | "PKG",44,2 2,1,"PAH", 1,1,278,0) | |
1609 | DEVICE: HO ME// CON SOLE | |
1610 | "PKG",44,2 2,1,"PAH", 1,1,279,0) | |
1611 | ||
1612 | "PKG",44,2 2,1,"PAH", 1,1,280,0) | |
1613 | Install S tarted for GMRC*3.0* 95 : | |
1614 | "PKG",44,2 2,1,"PAH", 1,1,281,0) | |
1615 | Dec 1 2, 2017@23 :48:17 | |
1616 | "PKG",44,2 2,1,"PAH", 1,1,282,0) | |
1617 | ||
1618 | "PKG",44,2 2,1,"PAH", 1,1,283,0) | |
1619 | Build Dist ribution D ate: Dec 1 1, 2017 | |
1620 | "PKG",44,2 2,1,"PAH", 1,1,284,0) | |
1621 | ||
1622 | "PKG",44,2 2,1,"PAH", 1,1,285,0) | |
1623 | Installin g Routines : | |
1624 | "PKG",44,2 2,1,"PAH", 1,1,286,0) | |
1625 | ||
1626 | "PKG",44,2 2,1,"PAH", 1,1,287,0) | |
1627 | Dec 12, 2017@2 3:48:17 | |
1628 | "PKG",44,2 2,1,"PAH", 1,1,288,0) | |
1629 | ||
1630 | "PKG",44,2 2,1,"PAH", 1,1,289,0) | |
1631 | Installin g PACKAGE COMPONENTS : | |
1632 | "PKG",44,2 2,1,"PAH", 1,1,290,0) | |
1633 | ||
1634 | "PKG",44,2 2,1,"PAH", 1,1,291,0) | |
1635 | Installin g PROTOCOL | |
1636 | "PKG",44,2 2,1,"PAH", 1,1,292,0) | |
1637 | Dec 12, 2017@2 3:48:17 | |
1638 | "PKG",44,2 2,1,"PAH", 1,1,293,0) | |
1639 | ||
1640 | "PKG",44,2 2,1,"PAH", 1,1,294,0) | |
1641 | Updating Routine fi le... | |
1642 | "PKG",44,2 2,1,"PAH", 1,1,295,0) | |
1643 | ||
1644 | "PKG",44,2 2,1,"PAH", 1,1,296,0) | |
1645 | Updating KIDS files ... | |
1646 | "PKG",44,2 2,1,"PAH", 1,1,297,0) | |
1647 | ||
1648 | "PKG",44,2 2,1,"PAH", 1,1,298,0) | |
1649 | GMRC*3.0* 95 Install ed. | |
1650 | "PKG",44,2 2,1,"PAH", 1,1,299,0) | |
1651 | Dec 1 2, 2017@23 :48:17 | |
1652 | "PKG",44,2 2,1,"PAH", 1,1,300,0) | |
1653 | ||
1654 | "PKG",44,2 2,1,"PAH", 1,1,301,0) | |
1655 | No link t o PACKAGE file | |
1656 | "PKG",44,2 2,1,"PAH", 1,1,302,0) | |
1657 | ||
1658 | "PKG",44,2 2,1,"PAH", 1,1,303,0) | |
1659 | NO Instal l Message sent | |
1660 | "PKG",44,2 2,1,"PAH", 1,1,304,0) | |
1661 | ||
1662 | "PKG",44,2 2,1,"PAH", 1,1,305,0) | |
1663 | Install Co mpleted | |
1664 | "PKG",44,2 2,1,"PAH", 1,1,306,0) | |
1665 | ||
1666 | "PKG",44,2 2,1,"PAH", 1,1,307,0) | |
1667 | VISTA> | |
1668 | "PKG",44,2 2,1,"PAH", 1,1,308,0) | |
1669 | ||
1670 | "PKG",44,2 2,1,"PAH", 1,1,309,0) | |
1671 | ||
1672 | "PKG",44,2 2,1,"PAH", 1,1,310,0) | |
1673 | Patch Back out Instru ctions: | |
1674 | "PKG",44,2 2,1,"PAH", 1,1,311,0) | |
1675 | ---------- ---------- ------ | |
1676 | "PKG",44,2 2,1,"PAH", 1,1,312,0) | |
1677 | 1. Go to MailMan m enu, choos e option R ead/Manage Messages and select | |
1678 | "PKG",44,2 2,1,"PAH", 1,1,313,0) | |
1679 | the b ackup mess age that w as creatin g during I nstallatio n | |
1680 | "PKG",44,2 2,1,"PAH", 1,1,314,0) | |
1681 | step 3.c - Back up | |
1682 | "PKG",44,2 2,1,"PAH", 1,1,315,0) | |
1683 | ||
1684 | "PKG",44,2 2,1,"PAH", 1,1,316,0) | |
1685 | 2. When prompted ' Type <Ente r> to cont inue or '^ ' to exit: ' type '^' | |
1686 | "PKG",44,2 2,1,"PAH", 1,1,317,0) | |
1687 | and t hen <Enter > | |
1688 | "PKG",44,2 2,1,"PAH", 1,1,318,0) | |
1689 | ||
1690 | "PKG",44,2 2,1,"PAH", 1,1,319,0) | |
1691 | 3. When prompted ' Enter mess age action :' type 'X tract Pack Man' and | |
1692 | "PKG",44,2 2,1,"PAH", 1,1,320,0) | |
1693 | then <Enter> | |
1694 | "PKG",44,2 2,1,"PAH", 1,1,321,0) | |
1695 | ||
1696 | "PKG",44,2 2,1,"PAH", 1,1,322,0) | |
1697 | 4. The f ollowing m essage and the promp t will dis play: | |
1698 | "PKG",44,2 2,1,"PAH", 1,1,323,0) | |
1699 | Warni ng: Instal ling this message wi ll cause a permanent update of | |
1700 | "PKG",44,2 2,1,"PAH", 1,1,324,0) | |
1701 | globa ls and rou tines. | |
1702 | "PKG",44,2 2,1,"PAH", 1,1,325,0) | |
1703 | Do yo u really w ant to do this? NO// ' type 'YE S' and the n <Enter> | |
1704 | "PKG",44,2 2,1,"PAH", 1,1,326,0) | |
1705 | ||
1706 | "PKG",44,2 2,1,"PAH", 1,1,327,0) | |
1707 | 5. When prompted: | |
1708 | "PKG",44,2 2,1,"PAH", 1,1,328,0) | |
1709 | 'Shal l I preser ve the rou tines on d isk in a s eparate ba ck-up | |
1710 | "PKG",44,2 2,1,"PAH", 1,1,329,0) | |
1711 | messa ge? | |
1712 | "PKG",44,2 2,1,"PAH", 1,1,330,0) | |
1713 | YES// ' type 'NO ' and then <Enter> | |
1714 | "PKG",44,2 2,1,"PAH", 1,1,331,0) | |
1715 | ||
1716 | "PKG",44,2 2,1,"PAH", 1,1,332,0) | |
1717 | 6. The s ystem will display t he followi ng message and show all the | |
1718 | "PKG",44,2 2,1,"PAH", 1,1,333,0) | |
1719 | routi nes that w ere unload ed confirm ing that a ll the rou tines in t he | |
1720 | "PKG",44,2 2,1,"PAH", 1,1,334,0) | |
1721 | build have been restored to the pri or version (unloaded ): | |
1722 | "PKG",44,2 2,1,"PAH", 1,1,335,0) | |
1723 | 'No b ackup mess age built. | |
1724 | "PKG",44,2 2,1,"PAH", 1,1,336,0) | |
1725 | ***LI ST of rout ines from backup. Se e full rou tine list at the end of | |
1726 | "PKG",44,2 2,1,"PAH", 1,1,337,0) | |
1727 | th e document *** | |
1728 | "PKG",44,2 2,1,"PAH", 1,1,338,0) | |
1729 | Selec t PackMan function: and then < Enter>' | |
1730 | "PKG",44,2 2,1,"PAH", 1,1,339,0) | |
1731 | ||
1732 | "PKG",44,2 2,1,"PAH", 1,1,340,0) | |
1733 | 7. Verif y that all two routi nes are li sted as ab ove have b een | |
1734 | "PKG",44,2 2,1,"PAH", 1,1,341,0) | |
1735 | backe d out: | |
1736 | "PKG",44,2 2,1,"PAH", 1,1,342,0) | |
1737 | No ba ckup messa ge built. | |
1738 | "PKG",44,2 2,1,"PAH", 1,1,343,0) | |
1739 | When prompted ' Want KIDS to INHIBIT LOGONs du ring the i nstall? NO //' | |
1740 | "PKG",44,2 2,1,"PAH", 1,1,344,0) | |
1741 | Press <Enter>. | |
1742 | "PKG",44,2 2,1,"PAH", 1,1,345,0) | |
1743 | When prompted ' Want to DI SABLE Sche duled Opti ons, Menu Options, a nd | |
1744 | "PKG",44,2 2,1,"PAH", 1,1,346,0) | |
1745 | Proto cols? NO// ' | |
1746 | "PKG",44,2 2,1,"PAH", 1,1,347,0) | |
1747 | Press <Enter>. | |
1748 | "PKG",44,2 2,1,"PAH", 1,1,348,0) | |
1749 | If pr ompted 'De lay Instal l (Minutes ): (0 - 6 0): 0//' r espond 0. | |
1750 | "PKG",44,2 2,1,"PAH", 1,1,349,0) | |
1751 | ||
1752 | "PKG",44,2 2,1,"PAH", 1,1,350,0) | |
1753 | 8. There are no gl obals that are being saved off for this patch to | |
1754 | "PKG",44,2 2,1,"PAH", 1,1,351,0) | |
1755 | resto re. All ot her object s should b e manually backed ou t VA. | |
1756 | "PKG",44,2 2,1,"PAH", 1,1,352,0) | |
1757 | ||
1758 | "PKG",44,2 2,1,"PAH", 1,1,353,0) | |
1759 | 9. Delet ing Files: | |
1760 | "PKG",44,2 2,1,"PAH", 1,1,354,0) | |
1761 | The f ollowing V A FileMan files shou ld be dele ted under their | |
1762 | "PKG",44,2 2,1,"PAH", 1,1,355,0) | |
1763 | respe ctive grou ps. | |
1764 | "PKG",44,2 2,1,"PAH", 1,1,356,0) | |
1765 | To de lete the f ile, open VA FileMan for the f ile specif ied. | |
1766 | "PKG",44,2 2,1,"PAH", 1,1,357,0) | |
1767 | Look for the na me and onc e selected enter @ t o enter | |
1768 | "PKG",44,2 2,1,"PAH", 1,1,358,0) | |
1769 | the d elete opti on. | |
1770 | "PKG",44,2 2,1,"PAH", 1,1,359,0) | |
1771 | ||
1772 | "PKG",44,2 2,1,"PAH", 1,1,360,0) | |
1773 | Example: | |
1774 | "PKG",44,2 2,1,"PAH", 1,1,361,0) | |
1775 | VA FileMan 22.2 | |
1776 | "PKG",44,2 2,1,"PAH", 1,1,362,0) | |
1777 | ||
1778 | "PKG",44,2 2,1,"PAH", 1,1,363,0) | |
1779 | Select OPT ION: 1 EN TER OR EDI T FILE ENT RIES | |
1780 | "PKG",44,2 2,1,"PAH", 1,1,364,0) | |
1781 | ||
1782 | "PKG",44,2 2,1,"PAH", 1,1,365,0) | |
1783 | Input to w hat File: PROTOCOL// (4498 en tries) | |
1784 | "PKG",44,2 2,1,"PAH", 1,1,366,0) | |
1785 | EDIT WHICH FIELD: AL L// | |
1786 | "PKG",44,2 2,1,"PAH", 1,1,367,0) | |
1787 | ||
1788 | "PKG",44,2 2,1,"PAH", 1,1,368,0) | |
1789 | Select PRO TOCOL NAME : ORMX ORM HL7 TRIGG ER O RMX ORM HL 7 TRIGGER | |
1790 | "PKG",44,2 2,1,"PAH", 1,1,369,0) | |
1791 | NAME: ORMX ORM HL7 T RIGGER// @ | |
1792 | "PKG",44,2 2,1,"PAH", 1,1,370,0) | |
1793 | SURE YO U WANT TO DELETE THE ENTIRE 'O RMX ORM HL 7 TRIGGER' PROTOCOL? | |
1794 | "PKG",44,2 2,1,"PAH", 1,1,371,0) | |
1795 | ||
1796 | "PKG",44,2 2,1,"PAH", 1,1,372,0) | |
1797 | Protocol: | |
1798 | "PKG",44,2 2,1,"PAH", 1,1,373,0) | |
1799 | ORMX ORM H L7 TRIGGER | |
1800 | "PKG",44,2 2,1,"PAH", 1,1,374,0) | |
1801 | ||
1802 | "PKG",44,2 2,1,"PAH", 1,1,375,0) | |
1803 | 10. Modif ying files : | |
1804 | "PKG",44,2 2,1,"PAH", 1,1,376,0) | |
1805 | The f ollowing f iles can b e updated in VA File Man but th ey are | |
1806 | "PKG",44,2 2,1,"PAH", 1,1,377,0) | |
1807 | exist ing files. | |
1808 | "PKG",44,2 2,1,"PAH", 1,1,378,0) | |
1809 | They should not be delete d. Instead reverting them back will | |
1810 | "PKG",44,2 2,1,"PAH", 1,1,379,0) | |
1811 | be th e correct approach. | |
1812 | "PKG",44,2 2,1,"PAH", 1,1,380,0) | |
1813 | ||
1814 | "PKG",44,2 2,1,"PAH", 1,1,381,0) | |
1815 | Example: | |
1816 | "PKG",44,2 2,1,"PAH", 1,1,382,0) | |
1817 | VA FileMan 22.2 | |
1818 | "PKG",44,2 2,1,"PAH", 1,1,383,0) | |
1819 | ||
1820 | "PKG",44,2 2,1,"PAH", 1,1,384,0) | |
1821 | Select OPT ION: 1 EN TER OR EDI T FILE ENT RIES | |
1822 | "PKG",44,2 2,1,"PAH", 1,1,385,0) | |
1823 | ||
1824 | "PKG",44,2 2,1,"PAH", 1,1,386,0) | |
1825 | Input to w hat File: PROTOCOL// (4498 en tries) | |
1826 | "PKG",44,2 2,1,"PAH", 1,1,387,0) | |
1827 | ||
1828 | "PKG",44,2 2,1,"PAH", 1,1,388,0) | |
1829 | EDIT WHICH FIELD: AL L// item | |
1830 | "PKG",44,2 2,1,"PAH", 1,1,389,0) | |
1831 | 1 I TEM (mu ltiple) | |
1832 | "PKG",44,2 2,1,"PAH", 1,1,390,0) | |
1833 | 2 I TEM TEXT | |
1834 | "PKG",44,2 2,1,"PAH", 1,1,391,0) | |
1835 | CHOOSE 1-2 : 1 ITEM (multiple ) | |
1836 | "PKG",44,2 2,1,"PAH", 1,1,392,0) | |
1837 | EDIT WH ICH ITEM S UB-FIELD: ALL// | |
1838 | "PKG",44,2 2,1,"PAH", 1,1,393,0) | |
1839 | THEN EDIT FIELD: | |
1840 | "PKG",44,2 2,1,"PAH", 1,1,394,0) | |
1841 | ||
1842 | "PKG",44,2 2,1,"PAH", 1,1,395,0) | |
1843 | Select PRO TOCOL NAME : ORMX ORM HL7 TRIGG ER ORMX ORM HL7 TRIGGE R | |
1844 | "PKG",44,2 2,1,"PAH", 1,1,396,0) | |
1845 | ||
1846 | "PKG",44,2 2,1,"PAH", 1,1,397,0) | |
1847 | Select ITE M: ORMX OR M HL7 TRIG GER// ORM X ORM HL7 TRIGGER | |
1848 | "PKG",44,2 2,1,"PAH", 1,1,398,0) | |
1849 | . ..OK? Yes/ / (Yes) | |
1850 | "PKG",44,2 2,1,"PAH", 1,1,399,0) | |
1851 | ||
1852 | "PKG",44,2 2,1,"PAH", 1,1,400,0) | |
1853 | ITEM: OR MX ORM HL7 TRIGGER// @ | |
1854 | "PKG",44,2 2,1,"PAH", 1,1,401,0) | |
1855 | ||
1856 | "PKG",44,2 2,1,"PAH", 1,1,402,0) | |
1857 | SURE YO U WANT TO DELETE THE ENTIRE IT EM? | |
1858 | "PKG",44,2 2,1,"PAH", 1,1,403,0) | |
1859 | ||
1860 | "PKG",44,2 2,1,"PAH", 1,1,404,0) | |
1861 | Protocol: | |
1862 | "PKG",44,2 2,1,"PAH", 1,1,405,0) | |
1863 | GMRC EVSEN D OR | |
1864 | "PKG",44,2 2,1,"PAH", 1,1,406,0) | |
1865 | 1. Re move ORMX ORM HL7 TR IGGER | |
1866 | "PKG",44,2 2,1,"PAH", 1,1,407,0) | |
1867 | ||
1868 | "PKG",44,2 2,1,"PAH", 1,1,408,0) | |
1869 | ||
1870 | "PKG",44,2 2,1,"PAH", 1,1,409,0) | |
1871 | Post-Insta llation In structions : | |
1872 | "PKG",44,2 2,1,"PAH", 1,1,410,0) | |
1873 | ---------- ---------- ---------- - | |
1874 | "PKG",44,2 2,1,"PAH", 1,1,411,0) | |
1875 | See Techni cal Manual for cross reference /object co ntents ver ification | |
1876 | "PKG",44,2 2,1,"PAH", 1,1,412,0) | |
1877 | ||
1878 | "PKG",44,2 2,1,"PAH", 1,1,413,0) | |
1879 | ||
1880 | "PKG",44,2 2,1,"PAH", 1,1,414,0) | |
1881 | Routine In formation: | |
1882 | "PKG",44,2 2,1,"PAH", 1,1,415,0) | |
1883 | ========== ========== | |
1884 | "PKG",44,2 2,1,"PAH", 1,1,416,0) | |
1885 | ||
1886 | "PKG",44,2 2,1,"PAH", 1,1,417,0) | |
1887 | The second line of e ach of the se routine s now look s like: | |
1888 | "PKG",44,2 2,1,"PAH", 1,1,418,0) | |
1889 | ;;3.0;CON SULT/REQUE ST TRACKIN G;**[Patch List]**;D EC 27, 199 7;Build 24 | |
1890 | "PKG",44,2 2,1,"PAH", 1,1,419,0) | |
1891 | ||
1892 | "PKG",44,2 2,1,"PAH", 1,1,420,0) | |
1893 | The checks ums below are new ch ecksums, a nd | |
1894 | "PKG",44,2 2,1,"PAH", 1,1,421,0) | |
1895 | can be ch ecked with CHECK1^XT SUMBLD. | |
1896 | "PKG",44,2 2,1,"PAH", 1,1,422,0) | |
1897 | ||
1898 | "PKG",44,2 2,1,"PAH", 1,1,423,0) | |
1899 | ||
1900 | "PKG",44,2 2,1,"PAH", 1,1,424,0) | |
1901 | Routine Na me: GMRCAC MT | |
1902 | "PKG",44,2 2,1,"PAH", 1,1,425,0) | |
1903 | Before : B2881986 7 After: B29717425 | |
1904 | "PKG",44,2 2,1,"PAH", 1,1,426,0) | |
1905 | **4,14,18, 20,22,29,3 5,47,55,75 ,95** | |
1906 | "PKG",44,2 2,1,"PAH", 1,1,427,0) | |
1907 | Routine Na me: GMRCGU IB | |
1908 | "PKG",44,2 2,1,"PAH", 1,1,428,0) | |
1909 | Before : B5389911 7 After: B55018923 **4,12,1 8,20,17,22 ,29,30,35, | |
1910 | "PKG",44,2 2,1,"PAH", 1,1,429,0) | |
1911 | 45,53,5 5,64,46,75 ,86,90,95* * | |
1912 | "PKG",44,2 2,1,"PAH", 1,1,430,0) | |
1913 | ||
1914 | "PKG",44,2 2,1,"PAH", 1,1,431,0) | |
1915 | Routine li st of prec eding patc hes: 90 | |
1916 | "PKG",44,2 2,1,"PAH", 1,1,432,0) | |
1917 | ||
1918 | "PKG",44,2 2,1,"PAH", 1,1,433,0) | |
1919 | ========== ========== ========== ========== ========== ========== ========== ==== | |
1920 | "PKG",44,2 2,1,"PAH", 1,1,434,0) | |
1921 | ||
1922 | "PKG",44,2 2,1,"PAH", 1,1,435,0) | |
1923 | User Infor mation: | |
1924 | "PKG",44,2 2,1,"PAH", 1,1,436,0) | |
1925 | Entered By : NE EDHAM,MALC OLM D ate Entere d : NOV 14,2017 | |
1926 | "PKG",44,2 2,1,"PAH", 1,1,437,0) | |
1927 | Complete d By: D ate Comple ted: | |
1928 | "QUES","XP F1",0) | |
1929 | Y | |
1930 | "QUES","XP F1","??") | |
1931 | ^D REP^XPD H | |
1932 | "QUES","XP F1","A") | |
1933 | Shall I wr ite over y our |FLAG| File | |
1934 | "QUES","XP F1","B") | |
1935 | YES | |
1936 | "QUES","XP F1","M") | |
1937 | D XPF1^XPD IQ | |
1938 | "QUES","XP F2",0) | |
1939 | Y | |
1940 | "QUES","XP F2","??") | |
1941 | ^D DTA^XPD H | |
1942 | "QUES","XP F2","A") | |
1943 | Want my da ta |FLAG| yours | |
1944 | "QUES","XP F2","B") | |
1945 | YES | |
1946 | "QUES","XP F2","M") | |
1947 | D XPF2^XPD IQ | |
1948 | "QUES","XP I1",0) | |
1949 | YO | |
1950 | "QUES","XP I1","??") | |
1951 | ^D INHIBIT ^XPDH | |
1952 | "QUES","XP I1","A") | |
1953 | Want KIDS to INHIBIT LOGONs du ring the i nstall | |
1954 | "QUES","XP I1","B") | |
1955 | NO | |
1956 | "QUES","XP I1","M") | |
1957 | D XPI1^XPD IQ | |
1958 | "QUES","XP M1",0) | |
1959 | PO^VA(200, :EM | |
1960 | "QUES","XP M1","??") | |
1961 | ^D MG^XPDH | |
1962 | "QUES","XP M1","A") | |
1963 | Enter the Coordinato r for Mail Group '|F LAG|' | |
1964 | "QUES","XP M1","B") | |
1965 | ||
1966 | "QUES","XP M1","M") | |
1967 | D XPM1^XPD IQ | |
1968 | "QUES","XP O1",0) | |
1969 | Y | |
1970 | "QUES","XP O1","??") | |
1971 | ^D MENU^XP DH | |
1972 | "QUES","XP O1","A") | |
1973 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install | |
1974 | "QUES","XP O1","B") | |
1975 | NO | |
1976 | "QUES","XP O1","M") | |
1977 | D XPO1^XPD IQ | |
1978 | "QUES","XP Z1",0) | |
1979 | Y | |
1980 | "QUES","XP Z1","??") | |
1981 | ^D OPT^XPD H | |
1982 | "QUES","XP Z1","A") | |
1983 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls | |
1984 | "QUES","XP Z1","B") | |
1985 | NO | |
1986 | "QUES","XP Z1","M") | |
1987 | D XPZ1^XPD IQ | |
1988 | "QUES","XP Z2",0) | |
1989 | Y | |
1990 | "QUES","XP Z2","??") | |
1991 | ^D RTN^XPD H | |
1992 | "QUES","XP Z2","A") | |
1993 | Want to MO VE routine s to other CPUs | |
1994 | "QUES","XP Z2","B") | |
1995 | NO | |
1996 | "QUES","XP Z2","M") | |
1997 | D XPZ2^XPD IQ | |
1998 | "RTN") | |
1999 | 2 | |
2000 | "RTN","GMR CACMT") | |
2001 | 0^1^B29717 425 | |
2002 | "RTN","GMR CACMT",1,0 ) | |
2003 | GMRCACMT ; SLC/DLT,DC M,MA,JFR - Comment A ction and alerting ; 4/29/14 | |
2004 | "RTN","GMR CACMT",2,0 ) | |
2005 | ;;3.0;CON SULT/REQUE ST TRACKIN G;**4,14,1 8,20,22,29 ,35,47,55, 75,95**;DE C 27, 1997 ;Build 31 | |
2006 | "RTN","GMR CACMT",3,0 ) | |
2007 | ;;Per VA directive 6402, this routine s hould not be modifie d. | |
2008 | "RTN","GMR CACMT",4,0 ) | |
2009 | ; This ro utine invo kes IA #10 060 | |
2010 | "RTN","GMR CACMT",5,0 ) | |
2011 | ; | |
2012 | "RTN","GMR CACMT",6,0 ) | |
2013 | COMMENT(GM RCO) ;Add a comment without ch anging the status | |
2014 | "RTN","GMR CACMT",7,0 ) | |
2015 | K GMRCQIT ,GMRCQUT N GMRCA,X | |
2016 | "RTN","GMR CACMT",8,0 ) | |
2017 | I $D(IOTM ),$D(IOBM) ,$D(IOSTBM ) D FULL^V ALM1 | |
2018 | "RTN","GMR CACMT",9,0 ) | |
2019 | S GMRCNOW =$$NOW^XLF DT,GMRCAD= GMRCNOW | |
2020 | "RTN","GMR CACMT",10, 0) | |
2021 | S GMRCOM= 1,GMRCA=20 ,GMRCPROV= $P(^GMR(12 3,GMRCO,0) ,"^",14) D AUDIT^GMR CP | |
2022 | "RTN","GMR CACMT",11, 0) | |
2023 | ; GMRCOM= 1 defined the variab le and tel ls AUDIT^G MRCP that the | |
2024 | "RTN","GMR CACMT",12, 0) | |
2025 | ; word-pr ocessing l ogic shoul d be execu ted. If an actual co mment is | |
2026 | "RTN","GMR CACMT",13, 0) | |
2027 | ; added, $P(GMRCOM, "^",2)=1 ( send alert ), if not GMRCOM=1 a nd no '^' | |
2028 | "RTN","GMR CACMT",14, 0) | |
2029 | ; exists (do not se nd alert) | |
2030 | "RTN","GMR CACMT",15, 0) | |
2031 | I $G(GMRC ERR)=1 S G MRCMSG=GMR CERMS D EX AC^GMRCADC (GMRCMSG), END Q | |
2032 | "RTN","GMR CACMT",16, 0) | |
2033 | ;continue if no loc k problems occurred | |
2034 | "RTN","GMR CACMT",17, 0) | |
2035 | I $P(GMRC OM,"^",2) D | |
2036 | "RTN","GMR CACMT",18, 0) | |
2037 | . I $P($G (^GMR(123, GMRCO,12)) ,U,5)="F" D | |
2038 | "RTN","GMR CACMT",19, 0) | |
2039 | .. W !!," The orderi ng provide r for this inter-fac ility cons ult will" | |
2040 | "RTN","GMR CACMT",20, 0) | |
2041 | .. W " au tomaticall y be ",!," notified." ,! | |
2042 | "RTN","GMR CACMT",21, 0) | |
2043 | . D PROCA LRT("",1,2 0,GMRCO) | |
2044 | "RTN","GMR CACMT",22, 0) | |
2045 | . ;if a N on VA Care consult, notify HCP of the co mment | |
2046 | "RTN","GMR CACMT",23, 0) | |
2047 | . I $$FEE ^GMRCHL7H( $$GET1^DIQ (123,GMRCO ,1,"I")) D COMMENT^G MRCHL7H(GM RCO) | |
2048 | "RTN","GMR CACMT",24, 0) | |
2049 | . ;update LAST ACTI ON field e ven though no status change | |
2050 | "RTN","GMR CACMT",25, 0) | |
2051 | . N GMRCD R,GMRCSTS | |
2052 | "RTN","GMR CACMT",26, 0) | |
2053 | . S GMRCS TS="",GMRC DR="9////2 0" | |
2054 | "RTN","GMR CACMT",27, 0) | |
2055 | . D STATU S^GMRCP | |
2056 | "RTN","GMR CACMT",28, 0) | |
2057 | . S X=+$O (^ORD(101, "B","ORMX GMRC EVSEN D UPDATE", 0))_";ORD( 101," | |
2058 | "RTN","GMR CACMT",29, 0) | |
2059 | . D EN^XQ OR | |
2060 | "RTN","GMR CACMT",30, 0) | |
2061 | D END | |
2062 | "RTN","GMR CACMT",31, 0) | |
2063 | Q | |
2064 | "RTN","GMR CACMT",32, 0) | |
2065 | ; | |
2066 | "RTN","GMR CACMT",33, 0) | |
2067 | PROCALRT(G MRCORTX,GM RCDELR,ACT ION,GMRCO) ;Process alert for comments | |
2068 | "RTN","GMR CACMT",34, 0) | |
2069 | ;If GMRCD ELR=1, the ordering provider c an be dele ted from t he list. | |
2070 | "RTN","GMR CACMT",35, 0) | |
2071 | N GMRCADU Z,GMRCANS, NOTIF,GMRC QIT,GMRCTM | |
2072 | "RTN","GMR CACMT",36, 0) | |
2073 | ;S GMRCAN S=$$READ(" Y","Do You Wish To S end An Ale rt With Th is Comment ","N","Ent er Y to co ntinue wit h recipien t prompts. Otherwise , enter N. ",1) | |
2074 | "RTN","GMR CACMT",37, 0) | |
2075 | ;I (GMRCA NS[U)!(GMR CANS=0) D END Q | |
2076 | "RTN","GMR CACMT",38, 0) | |
2077 | ; | |
2078 | "RTN","GMR CACMT",39, 0) | |
2079 | D WHOTO | |
2080 | "RTN","GMR CACMT",40, 0) | |
2081 | ;I $G(GMR CQIT) D EN D Q ;User "^" at re questing p rovider. | |
2082 | "RTN","GMR CACMT",41, 0) | |
2083 | ; | |
2084 | "RTN","GMR CACMT",42, 0) | |
2085 | N GMRCALT | |
2086 | "RTN","GMR CACMT",43, 0) | |
2087 | S NOTIF=$ S(ACTION=2 0:63,ACTIO N=8:63,1:2 3) | |
2088 | "RTN","GMR CACMT",44, 0) | |
2089 | ; | |
2090 | "RTN","GMR CACMT",45, 0) | |
2091 | D SENDMSG (NOTIF,+GM RCO,$G(GMR CTM)) | |
2092 | "RTN","GMR CACMT",46, 0) | |
2093 | Q | |
2094 | "RTN","GMR CACMT",47, 0) | |
2095 | ; | |
2096 | "RTN","GMR CACMT",48, 0) | |
2097 | SENDMSG(NO TIF,GMRCO, GMRCATM) ; Send the a lert | |
2098 | "RTN","GMR CACMT",49, 0) | |
2099 | N GMRCDFN | |
2100 | "RTN","GMR CACMT",50, 0) | |
2101 | I '$D(GMR CADUZ) S G MRCADUZ="" | |
2102 | "RTN","GMR CACMT",51, 0) | |
2103 | W !,"Proc essing Ale rts..." | |
2104 | "RTN","GMR CACMT",52, 0) | |
2105 | S GMRCDFN =$P($G(^GM R(123,+GMR CO,0)),"^" ,2) | |
2106 | "RTN","GMR CACMT",53, 0) | |
2107 | I '$L(GMR CORTX) D | |
2108 | "RTN","GMR CACMT",54, 0) | |
2109 | . N TXT | |
2110 | "RTN","GMR CACMT",55, 0) | |
2111 | . S TXT=" Comment Ad ded to " | |
2112 | "RTN","GMR CACMT",56, 0) | |
2113 | . I $P($G (^GMR(123, GMRCO,12)) ,U,5)'="P" S GMRCORT X=TXT_"con sult " Q | |
2114 | "RTN","GMR CACMT",57, 0) | |
2115 | . S GMRCO RTX=TXT_"r emote cons ult " | |
2116 | "RTN","GMR CACMT",58, 0) | |
2117 | S GMRCORT X=GMRCORTX _$$ORTX^GM RCAU(+GMRC O) | |
2118 | "RTN","GMR CACMT",59, 0) | |
2119 | D MSG^GMR CP(GMRCDFN ,GMRCORTX, +GMRCO,NOT IF,.GMRCAD UZ,$G(GMRC ATM)) | |
2120 | "RTN","GMR CACMT",60, 0) | |
2121 | Q | |
2122 | "RTN","GMR CACMT",61, 0) | |
2123 | ; | |
2124 | "RTN","GMR CACMT",62, 0) | |
2125 | END ;kill off variab les and ex it | |
2126 | "RTN","GMR CACMT",63, 0) | |
2127 | K GMRC,GM RCA,GMRCMS G,GMRCOM,G MRCO,GMRCO RTX,GMRCER R,GMRCERMS ,GMRCQUT,G MRCUT | |
2128 | "RTN","GMR CACMT",64, 0) | |
2129 | I $D(DTOU T)!$D(DIRO UT) S GMRC QIT="" | |
2130 | "RTN","GMR CACMT",65, 0) | |
2131 | K DTOUT,D IROUT,DUOU T,DIRUT | |
2132 | "RTN","GMR CACMT",66, 0) | |
2133 | S:$D(^TMP ("GMRC",$J ,"CURRENT" ,"MENU")) XQORM("HIJ ACK")=^("M ENU") | |
2134 | "RTN","GMR CACMT",67, 0) | |
2135 | Q | |
2136 | "RTN","GMR CACMT",68, 0) | |
2137 | ; | |
2138 | "RTN","GMR CACMT",69, 0) | |
2139 | WHOTO ;Get the users who shoul d receive an alert | |
2140 | "RTN","GMR CACMT",70, 0) | |
2141 | ;Asks abo ut request ing provid er first, then promp ts for add itional us ers | |
2142 | "RTN","GMR CACMT",71, 0) | |
2143 | ;Returns GMRCADUZ a rray of us ers to sen d an alert to and GM RCQIT if " ^" | |
2144 | "RTN","GMR CACMT",72, 0) | |
2145 | N GMRCRP, GMRCANS,GM RCUPD | |
2146 | "RTN","GMR CACMT",73, 0) | |
2147 | S GMRCRP= +$P($G(^GM R(123,+GMR CO,0)),U,1 4) ;reques ting provi der entry | |
2148 | "RTN","GMR CACMT",74, 0) | |
2149 | S GMRCUPD =$$VALID^G MRCAU($P(^ GMR(123,+G MRCO,0),U, 5),GMRCO,D UZ) | |
2150 | "RTN","GMR CACMT",75, 0) | |
2151 | I GMRCRP= DUZ D ;al ert team i f ord. pro v. takes t he action | |
2152 | "RTN","GMR CACMT",76, 0) | |
2153 | . S GMRCT M=1 | |
2154 | "RTN","GMR CACMT",77, 0) | |
2155 | . W !,"Se rvice upda te users w ill be not ified.",! | |
2156 | "RTN","GMR CACMT",78, 0) | |
2157 | I +GMRCUP D>1,GMRCRP '=DUZ D ; alert ord . prov if update use rs takes a ction | |
2158 | "RTN","GMR CACMT",79, 0) | |
2159 | . S GMRCA DUZ(GMRCRP )="" | |
2160 | "RTN","GMR CACMT",80, 0) | |
2161 | . W !,"Re questing p rovider wi ll be noti fied.",! | |
2162 | "RTN","GMR CACMT",81, 0) | |
2163 | I '$G(GMR CTM),+GMRC UPD<2 D ; alert both if not or d. prov or update us er | |
2164 | "RTN","GMR CACMT",82, 0) | |
2165 | . S GMRCT M=1,GMRCAD UZ(GMRCRP) ="" | |
2166 | "RTN","GMR CACMT",83, 0) | |
2167 | . W !,"Re questing p rovider an d service update use rs will be notified. ",! | |
2168 | "RTN","GMR CACMT",84, 0) | |
2169 | ; | |
2170 | "RTN","GMR CACMT",85, 0) | |
2171 | ; | |
2172 | "RTN","GMR CACMT",86, 0) | |
2173 | ANDTO ;Ask for addit ional reci pients | |
2174 | "RTN","GMR CACMT",87, 0) | |
2175 | D NAMELIS T("Additio nal alert recipients : ",.GMRCA DUZ,GMRCDE LR) | |
2176 | "RTN","GMR CACMT",88, 0) | |
2177 | Q | |
2178 | "RTN","GMR CACMT",89, 0) | |
2179 | ; | |
2180 | "RTN","GMR CACMT",90, 0) | |
2181 | NAMELIST(G MRCP,GMRCO LD,GMRCDEL R) ;manage the list of recipie nts | |
2182 | "RTN","GMR CACMT",91, 0) | |
2183 | ; | |
2184 | "RTN","GMR CACMT",92, 0) | |
2185 | ; GMRCP - Prompt | |
2186 | "RTN","GMR CACMT",93, 0) | |
2187 | ; GMRCOLD - Origina l list wit h ordering provider. | |
2188 | "RTN","GMR CACMT",94, 0) | |
2189 | ; GMRCDEL R - 1 mean s the orig inal list may have n ames delet ed | |
2190 | "RTN","GMR CACMT",95, 0) | |
2191 | ; Returns final lis t in GMRCO LD array | |
2192 | "RTN","GMR CACMT",96, 0) | |
2193 | ; | |
2194 | "RTN","GMR CACMT",97, 0) | |
2195 | N GMRCNEW ,GMRCNT,GM RCDUZ,GMRC USER,GMRCQ ,GMRCADD,D IC,X,Y | |
2196 | "RTN","GMR CACMT",98, 0) | |
2197 | ; | |
2198 | "RTN","GMR CACMT",99, 0) | |
2199 | M GMRCNEW =GMRCOLD | |
2200 | "RTN","GMR CACMT",100 ,0) | |
2201 | I GMRCDEL R=1 K GMRC OLD S GMRC OLD="" ;Re move manda tory users from GMRC OLD | |
2202 | "RTN","GMR CACMT",101 ,0) | |
2203 | S GMRCNT= 0 F D Q: (GMRCUSER[ U) | |
2204 | "RTN","GMR CACMT",102 ,0) | |
2205 | .S GMRCUS ER=$$READ( "FAO;3;46" ,$S(GMRCNT :"And ",1: "")_GMRCP, "","^D NAM EHELP^GMRC ACMT") | |
2206 | "RTN","GMR CACMT",103 ,0) | |
2207 | .S:'$L(GM RCUSER) GM RCUSER=U Q :(GMRCUSER [U) | |
2208 | "RTN","GMR CACMT",104 ,0) | |
2209 | .I ($E(GM RCUSER,1)= "-") S GMR CADD=0,GMR CUSER=$E(G MRCUSER,2, $L(GMRCUSE R)) | |
2210 | "RTN","GMR CACMT",105 ,0) | |
2211 | .E S GMR CADD=1 | |
2212 | "RTN","GMR CACMT",106 ,0) | |
2213 | .; | |
2214 | "RTN","GMR CACMT",107 ,0) | |
2215 | .S X=GMRC USER,DIC=2 00,DIC(0)= "EMQ" D ^D IC | |
2216 | "RTN","GMR CACMT",108 ,0) | |
2217 | .; | |
2218 | "RTN","GMR CACMT",109 ,0) | |
2219 | .I (Y>0) D I 1 | |
2220 | "RTN","GMR CACMT",110 ,0) | |
2221 | ..;W $E($ P(Y,U,2),$ L(GMRCUSER )+1,$L($P( Y,U,2))) | |
2222 | "RTN","GMR CACMT",111 ,0) | |
2223 | ..; | |
2224 | "RTN","GMR CACMT",112 ,0) | |
2225 | ..I GMRCA DD D | |
2226 | "RTN","GMR CACMT",113 ,0) | |
2227 | ...I $D(G MRCNEW(+Y) ) W " alre ady in the list." Q | |
2228 | "RTN","GMR CACMT",114 ,0) | |
2229 | ...S GMRC NEW(+Y)="" W " added to the li st." S GMR CNT=GMRCNT +1 | |
2230 | "RTN","GMR CACMT",115 ,0) | |
2231 | ..; | |
2232 | "RTN","GMR CACMT",116 ,0) | |
2233 | ..I 'GMRC ADD D | |
2234 | "RTN","GMR CACMT",117 ,0) | |
2235 | ...I $D(G MRCOLD(+Y) ) W " can' t delete t his name f rom the li st." Q | |
2236 | "RTN","GMR CACMT",118 ,0) | |
2237 | ...I '$D( GMRCNEW(+Y )) W " not currently in the li st." Q | |
2238 | "RTN","GMR CACMT",119 ,0) | |
2239 | ...K GMRC NEW(+Y) S GMRCNT=GMR CNT-1 W " deleted fr om the lis t." | |
2240 | "RTN","GMR CACMT",120 ,0) | |
2241 | .; | |
2242 | "RTN","GMR CACMT",121 ,0) | |
2243 | .E I $L( GMRCUSER) W " Name not found. " | |
2244 | "RTN","GMR CACMT",122 ,0) | |
2245 | ; | |
2246 | "RTN","GMR CACMT",123 ,0) | |
2247 | M GMRCOLD =GMRCNEW | |
2248 | "RTN","GMR CACMT",124 ,0) | |
2249 | Q | |
2250 | "RTN","GMR CACMT",125 ,0) | |
2251 | ; | |
2252 | "RTN","GMR CACMT",126 ,0) | |
2253 | READ(GMRC0 ,GMRCA,GMR CB,GMRCH,G MRCL) ;rea d logic | |
2254 | "RTN","GMR CACMT",127 ,0) | |
2255 | ; | |
2256 | "RTN","GMR CACMT",128 ,0) | |
2257 | ; GMRC0 -> DIR(0) --- Type o f read | |
2258 | "RTN","GMR CACMT",129 ,0) | |
2259 | ; GMRCA -> DIR("A" ) - Prompt | |
2260 | "RTN","GMR CACMT",130 ,0) | |
2261 | ; GMRCB -> DIR("B" ) - Defaul t Answer | |
2262 | "RTN","GMR CACMT",131 ,0) | |
2263 | ; GMRCH -> DIR("?" ) - Help t ext or ^Ex ecute code | |
2264 | "RTN","GMR CACMT",132 ,0) | |
2265 | ; GMRCL -> Number of blank l ines to pu t before P rompt | |
2266 | "RTN","GMR CACMT",133 ,0) | |
2267 | ; | |
2268 | "RTN","GMR CACMT",134 ,0) | |
2269 | ; Return s "^" or a nswer | |
2270 | "RTN","GMR CACMT",135 ,0) | |
2271 | ; | |
2272 | "RTN","GMR CACMT",136 ,0) | |
2273 | N GMRCLIN E,DIR,DTOU T,DUOUT,DI RUT,DIROUT | |
2274 | "RTN","GMR CACMT",137 ,0) | |
2275 | Q:'$L($G( GMRC0)) U | |
2276 | "RTN","GMR CACMT",138 ,0) | |
2277 | S DIR(0)= GMRC0 | |
2278 | "RTN","GMR CACMT",139 ,0) | |
2279 | S:$L($G(G MRCA)) DIR ("A")=GMRC A | |
2280 | "RTN","GMR CACMT",140 ,0) | |
2281 | S:$L($G(G MRCB)) DIR ("B")=GMRC B | |
2282 | "RTN","GMR CACMT",141 ,0) | |
2283 | S:$L($G(G MRCH)) DIR ("?")=GMRC H | |
2284 | "RTN","GMR CACMT",142 ,0) | |
2285 | F GMRCLIN E=1:1:($G( GMRCL)-1) W ! | |
2286 | "RTN","GMR CACMT",143 ,0) | |
2287 | D ^DIR | |
2288 | "RTN","GMR CACMT",144 ,0) | |
2289 | I $D(DTOU T)!$D(DUOU T)!$D(DIRU T)!$D(DIRO UT) Q U | |
2290 | "RTN","GMR CACMT",145 ,0) | |
2291 | Q Y | |
2292 | "RTN","GMR CACMT",146 ,0) | |
2293 | ; | |
2294 | "RTN","GMR CACMT",147 ,0) | |
2295 | ; | |
2296 | "RTN","GMR CACMT",148 ,0) | |
2297 | NAMEHELP ; Help for t he recipie nt list lo gic | |
2298 | "RTN","GMR CACMT",149 ,0) | |
2299 | N GMRCDUZ | |
2300 | "RTN","GMR CACMT",150 ,0) | |
2301 | W !,"Ente r the name of the us er to send the alert to," | |
2302 | "RTN","GMR CACMT",151 ,0) | |
2303 | W !," or put a '-' in front o f a name t o delete f rom the li st." | |
2304 | "RTN","GMR CACMT",152 ,0) | |
2305 | W ! | |
2306 | "RTN","GMR CACMT",153 ,0) | |
2307 | W !," Ex ample:" | |
2308 | "RTN","GMR CACMT",154 ,0) | |
2309 | W !," SMITH,FRE D -> to add Fred t o the list ." | |
2310 | "RTN","GMR CACMT",155 ,0) | |
2311 | W !," -SMITH,FR ED -> to delete Fre d from the list." | |
2312 | "RTN","GMR CACMT",156 ,0) | |
2313 | W !,"Alre ady select ed: " | |
2314 | "RTN","GMR CACMT",157 ,0) | |
2315 | W ! | |
2316 | "RTN","GMR CACMT",158 ,0) | |
2317 | S GMRCDUZ =0 F S GM RCDUZ=$O(G MRCNEW(GMR CDUZ)) Q:' GMRCDUZ D | |
2318 | "RTN","GMR CACMT",159 ,0) | |
2319 | .W !,?5,$ P(^VA(200, GMRCDUZ,0) ,U,1) | |
2320 | "RTN","GMR CACMT",160 ,0) | |
2321 | .W:$D(GMR COLD(GMRCD UZ)) " <m andatory>" | |
2322 | "RTN","GMR CACMT",161 ,0) | |
2323 | W ! | |
2324 | "RTN","GMR CACMT",162 ,0) | |
2325 | Q | |
2326 | "RTN","GMR CACMT",163 ,0) | |
2327 | ; | |
2328 | "RTN","GMR CGUIB") | |
2329 | 0^2^B55018 923 | |
2330 | "RTN","GMR CGUIB",1,0 ) | |
2331 | GMRCGUIB ; SLC/DCM,JF R,MA - GUI actions f or consult s ;5/23/16 | |
2332 | "RTN","GMR CGUIB",2,0 ) | |
2333 | ;;3.0;CON SULT/REQUE ST TRACKIN G;**4,12,1 8,20,17,22 ,29,30,35, 45,53,55,6 4,46,75,86 ,90,95**;D EC 27, 199 7;Build 31 | |
2334 | "RTN","GMR CGUIB",3,0 ) | |
2335 | ;;Per VA directive 6402, this routine s hould not be modifie d. | |
2336 | "RTN","GMR CGUIB",4,0 ) | |
2337 | ; This ro utine invo kes IA #29 80 | |
2338 | "RTN","GMR CGUIB",5,0 ) | |
2339 | ; This ro utine invo kes IA #67 55 - DE674 5 - PB Apr 12, 2017 | |
2340 | "RTN","GMR CGUIB",6,0 ) | |
2341 | ; | |
2342 | "RTN","GMR CGUIB",7,0 ) | |
2343 | SETDA() ;s et DA of w here audit actions a re to be f iled | |
2344 | "RTN","GMR CGUIB",8,0 ) | |
2345 | S:'$D(^GM R(123,+GMR CO,40,0)) ^GMR(123,G MRCO,40,0) ="^123.02D A^^" | |
2346 | "RTN","GMR CGUIB",9,0 ) | |
2347 | S DA=$S($ P(^GMR(123 ,+GMRCO,40 ,0),"^",3) :$P(^(0)," ^",3)+1,1: 1) | |
2348 | "RTN","GMR CGUIB",10, 0) | |
2349 | S $P(^GMR (123,+GMRC O,40,0),"^ ",3,4)=DA_ "^"_DA | |
2350 | "RTN","GMR CGUIB",11, 0) | |
2351 | Q DA | |
2352 | "RTN","GMR CGUIB",12, 0) | |
2353 | REASON(GMR CFN,GMRCRQ ,GMRCDT) ; Load the r eason for the reques t into ^GM R(123,GMRC O,20 | |
2354 | "RTN","GMR CGUIB",13, 0) | |
2355 | ;GMRCFN=F ile 123 IF N; GMRCRQ= Array cont aining Rea son For Re quest | |
2356 | "RTN","GMR CGUIB",14, 0) | |
2357 | ;GMRCDT=D ate time o f entry | |
2358 | "RTN","GMR CGUIB",15, 0) | |
2359 | S ^GMR(12 3,GMRCFN,2 0,0)="^^^" _GMRCDT_"^ " | |
2360 | "RTN","GMR CGUIB",16, 0) | |
2361 | S L=0,LN= 1 F S L=$ O(GMRCRQ(L )) Q:L="" S ^GMR(12 3,GMRCFN,2 0,LN,0)=GM RCRQ(L),LN =LN+1 | |
2362 | "RTN","GMR CGUIB",17, 0) | |
2363 | S LN=LN-1 ,$P(^GMR(1 23,GMRCFN, 20,0),"^", 3)=LN | |
2364 | "RTN","GMR CGUIB",18, 0) | |
2365 | K LN,L | |
2366 | "RTN","GMR CGUIB",19, 0) | |
2367 | Q | |
2368 | "RTN","GMR CGUIB",20, 0) | |
2369 | SETCOM(COM MENT,WHO) ;Set comme nt array i nto tracki ng actions | |
2370 | "RTN","GMR CGUIB",21, 0) | |
2371 | N GMRCNOW ,DR,DIE | |
2372 | "RTN","GMR CGUIB",22, 0) | |
2373 | S GMRCNOW =$$NOW^XLF DT | |
2374 | "RTN","GMR CGUIB",23, 0) | |
2375 | I $P($G(^ GMR(123,+G MRCO,0))," ^",11)=$G( GMRCPA) S GMRCPA="" | |
2376 | "RTN","GMR CGUIB",24, 0) | |
2377 | S DIE="^G MR(123,GMR CO,40,",DA (1)=GMRCO, DR=".01/// /^S X=GMRC NOW;1////^ S X=GMRCA; 2////^S X= GMRCAD;3// //^S X=$G( GMRCORNP); 4////^S X= $S($G(WHO) :WHO,1:DUZ );6////^S X=$G(GMRCF R);8////^S X=$G(GMRC FF);7////^ S X=$G(GMR CPA)" | |
2378 | "RTN","GMR CGUIB",25, 0) | |
2379 | D ^DIE | |
2380 | "RTN","GMR CGUIB",26, 0) | |
2381 | S ^GMR(12 3,GMRCO,40 ,DA,1,0)=" ^^^^"_GMRC AD_"^" | |
2382 | "RTN","GMR CGUIB",27, 0) | |
2383 | S (GMRCND ,GMRCND1)= 0 F S GMR CND1=$O(CO MMENT(GMRC ND1)) Q:GM RCND1="" S GMRCND=G MRCND+1,^G MR(123,GMR CO,40,DA,1 ,GMRCND,0) =COMMENT(G MRCND) | |
2384 | "RTN","GMR CGUIB",28, 0) | |
2385 | S $P(^GMR (123,GMRCO ,40,DA,1,0 ),"^",3)=G MRCND,$P(^ (0),"^",4) =GMRCND,^G MR(123,GMR CO,40,"B", GMRCNOW,DA )="" | |
2386 | "RTN","GMR CGUIB",29, 0) | |
2387 | D:$D(^GMR (123,+GMRC O,0)) AG12 3S1^GMRCXR (+GMRCO) ;alb/sat 8 6 - update AG xref | |
2388 | "RTN","GMR CGUIB",30, 0) | |
2389 | ; | |
2390 | "RTN","GMR CGUIB",31, 0) | |
2391 | ; if an I FC, call e vent handl er to gene rate a msg to remote site | |
2392 | "RTN","GMR CGUIB",32, 0) | |
2393 | I $D(^GMR (123,+GMRC O,12)),$D( ^(40,DA)) D TRIGR^GM RCIEVT(GMR CO,DA) | |
2394 | "RTN","GMR CGUIB",33, 0) | |
2395 | ; | |
2396 | "RTN","GMR CGUIB",34, 0) | |
2397 | K GMRCND, GMRCND1 | |
2398 | "RTN","GMR CGUIB",35, 0) | |
2399 | Q | |
2400 | "RTN","GMR CGUIB",36, 0) | |
2401 | CMT(GMRCO, GMRCOM,GMR CADUZ,GMRC WHN,GMRCWH O) ;add co mment to c onsult | |
2402 | "RTN","GMR CGUIB",37, 0) | |
2403 | ; GMRCO = IEN from file 123 | |
2404 | "RTN","GMR CGUIB",38, 0) | |
2405 | ; GMRCOM = array of comments in format GMRCOM(1)= "xxxx", GM RCOM(2)="x xx" | |
2406 | "RTN","GMR CGUIB",39, 0) | |
2407 | ; GMRCADU Z = array of alert r ecipients as GMRCADU Z(DUZ)="" (optional) | |
2408 | "RTN","GMR CGUIB",40, 0) | |
2409 | ; GMRCWHO = IEN fro m file 200 who's res ponsible a ctivity (o ptional) | |
2410 | "RTN","GMR CGUIB",41, 0) | |
2411 | ; GMRCWHN = date ti me of acti vity in FM format | |
2412 | "RTN","GMR CGUIB",42, 0) | |
2413 | ; | |
2414 | "RTN","GMR CGUIB",43, 0) | |
2415 | N DA,GMRC A,GMRCAD,G MRCORTX,GM RCDFN,GMRC TM,GMRCRP, GMRCUPD,X | |
2416 | "RTN","GMR CGUIB",44, 0) | |
2417 | S DA=$$SE TDA ; get next activ ity tracki ng entry | |
2418 | "RTN","GMR CGUIB",45, 0) | |
2419 | S GMRCA=2 0,GMRCAD=G MRCWHN S:$ G(GMRCWHO) GMRCORNP= GMRCWHO | |
2420 | "RTN","GMR CGUIB",46, 0) | |
2421 | D SETCOM( .GMRCOM,$G (GMRCWHO)) | |
2422 | "RTN","GMR CGUIB",47, 0) | |
2423 | ;if a Non VA Care c onsult, no tify HCP o f the comm ent | |
2424 | "RTN","GMR CGUIB",48, 0) | |
2425 | I $$FEE^G MRCHL7H($$ GET1^DIQ(1 23,+GMRCO, 1,"I")) D COMMENT^GM RCHL7H(+GM RCO) | |
2426 | "RTN","GMR CGUIB",49, 0) | |
2427 | D ;updat e LAST ACT ION field even thoug h no statu s change | |
2428 | "RTN","GMR CGUIB",50, 0) | |
2429 | . N GMRCD R,GMRCSTS | |
2430 | "RTN","GMR CGUIB",51, 0) | |
2431 | . S GMRCS TS="",GMRC DR="9////2 0" | |
2432 | "RTN","GMR CGUIB",52, 0) | |
2433 | . D STATU S^GMRCP | |
2434 | "RTN","GMR CGUIB",53, 0) | |
2435 | S GMRCDFN =$P(^GMR(1 23,+GMRCO, 0),"^",2) | |
2436 | "RTN","GMR CGUIB",54, 0) | |
2437 | S GMRCORT X="Comment Added to Consult " | |
2438 | "RTN","GMR CGUIB",55, 0) | |
2439 | D POST^HM PEVNT(GMRC DFN,"consu lt",GMRCO, "") ; DE67 45 PB - Ad ded to mak e a call t o HMP to s ync the pa tient comm ents | |
2440 | "RTN","GMR CGUIB",56, 0) | |
2441 | I $P($G(^ GMR(123,GM RCO,12)),U ,5)="P" D | |
2442 | "RTN","GMR CGUIB",57, 0) | |
2443 | . S GMRCO RTX="Comme nt Added t o remote c onsult " | |
2444 | "RTN","GMR CGUIB",58, 0) | |
2445 | S GMRCORT X=GMRCORTX _$$ORTX^GM RCAU(+GMRC O) | |
2446 | "RTN","GMR CGUIB",59, 0) | |
2447 | S GMRCRP= +$P(^GMR(1 23,GMRCO,0 ),U,14) | |
2448 | "RTN","GMR CGUIB",60, 0) | |
2449 | S GMRCUPD =$$VALID^G MRCAU($P(^ GMR(123,+G MRCO,0),U, 5),GMRCO,D UZ) | |
2450 | "RTN","GMR CGUIB",61, 0) | |
2451 | I GMRCRP= DUZ D ;al ert team i f ord. pro v. takes t he action | |
2452 | "RTN","GMR CGUIB",62, 0) | |
2453 | . S GMRCT M=1 | |
2454 | "RTN","GMR CGUIB",63, 0) | |
2455 | I GMRCUPD >1,GMRCRP' =DUZ D ; alert ord. prov if u pdate user s takes ac tion | |
2456 | "RTN","GMR CGUIB",64, 0) | |
2457 | . S GMRCA DUZ(GMRCRP )="" | |
2458 | "RTN","GMR CGUIB",65, 0) | |
2459 | I '$G(GMR CTM),GMRCU PD<2 D ;a lert both if not ord . prov or update use r | |
2460 | "RTN","GMR CGUIB",66, 0) | |
2461 | . S GMRCT M=1,GMRCAD UZ(GMRCRP) ="" | |
2462 | "RTN","GMR CGUIB",67, 0) | |
2463 | D MSG^GMR CP(GMRCDFN ,GMRCORTX, +GMRCO,63, .GMRCADUZ, $G(GMRCTM) ) | |
2464 | "RTN","GMR CGUIB",68, 0) | |
2465 | S X=+$O(^ ORD(101,"B ","ORMX GM RC EVSEND UPDATE",0) )_";ORD(10 1," | |
2466 | "RTN","GMR CGUIB",69, 0) | |
2467 | D EN^XQOR | |
2468 | "RTN","GMR CGUIB",70, 0) | |
2469 | Q | |
2470 | "RTN","GMR CGUIB",71, 0) | |
2471 | SFILE(GMRC O,GMRCA,GM RCSF,GMRCO RNP,GMRCDU Z,GMRCOM,G MRCALF,GMR CATO,GMRCA D) ;Proces s various file updat e function s from the GUI for a consult | |
2472 | "RTN","GMR CGUIB",72, 0) | |
2473 | ; ADMIN C OMPLETE or SIGNIFICA NT FINDING S | |
2474 | "RTN","GMR CGUIB",73, 0) | |
2475 | ;Input va riables: | |
2476 | "RTN","GMR CGUIB",74, 0) | |
2477 | ;GMRCO=Fi le 123 IEN of the co nsult reco rd | |
2478 | "RTN","GMR CGUIB",75, 0) | |
2479 | ;GMRCA=po inter to R EQUEST ACT ION TYPES (#123.1) 1 0=complete , 4=Sig fi nd. | |
2480 | "RTN","GMR CGUIB",76, 0) | |
2481 | ;GMRCSF=S ignificant Findings flag: 'Y'= significa nt finding | |
2482 | "RTN","GMR CGUIB",77, 0) | |
2483 | ; : 'N'= no signif icant find ing | |
2484 | "RTN","GMR CGUIB",78, 0) | |
2485 | ; : 'U'= unknown si gnificant finding | |
2486 | "RTN","GMR CGUIB",79, 0) | |
2487 | ;GMRCORNP =Provider Responsibl e for acti on | |
2488 | "RTN","GMR CGUIB",80, 0) | |
2489 | ;GMRCDUZ= Person act ually doin g the acti on | |
2490 | "RTN","GMR CGUIB",81, 0) | |
2491 | ;GMRCOM=A n array of comments by referen ce ARRAY(1 )="xxx",AR RAY(2)="xx x" | |
2492 | "RTN","GMR CGUIB",82, 0) | |
2493 | ;GMRCALF= Flag to si gnal that alerts are to be sen t; 'N'=NO, 'Y'=YES | |
2494 | "RTN","GMR CGUIB",83, 0) | |
2495 | ;GMRCATO= Who alerts are to be sent to; a comma de limited st ring of DU Z's | |
2496 | "RTN","GMR CGUIB",84, 0) | |
2497 | ;GMRCAD = FM date/ti me of acti vity | |
2498 | "RTN","GMR CGUIB",85, 0) | |
2499 | ; | |
2500 | "RTN","GMR CGUIB",86, 0) | |
2501 | ;Output: | |
2502 | "RTN","GMR CGUIB",87, 0) | |
2503 | ; GMRCERR =Error Fla g: 0 if no error, 1 if error o ccurred | |
2504 | "RTN","GMR CGUIB",88, 0) | |
2505 | ; GMRCERM S - Error message or null | |
2506 | "RTN","GMR CGUIB",89, 0) | |
2507 | ; retu rned as GM RCERR^GMRC ERMS | |
2508 | "RTN","GMR CGUIB",90, 0) | |
2509 | ; | |
2510 | "RTN","GMR CGUIB",91, 0) | |
2511 | N GMRCERR ,GMRCERMS, GMRCTM | |
2512 | "RTN","GMR CGUIB",92, 0) | |
2513 | L +^GMR(1 23,GMRCO): 5 I '$T S GMRCERR=1, GMRCERMS=" Record Loc ked. File Update Not Accomplis hed." Q GM RCERR_"^"_ GMRCERMS | |
2514 | "RTN","GMR CGUIB",93, 0) | |
2515 | S GMRCERR =0,GMRCTM= 0,GMRCERMS ="",DR="", GMRCORTX=" " | |
2516 | "RTN","GMR CGUIB",94, 0) | |
2517 | N GMRCADU Z S GMRCAD UZ="" | |
2518 | "RTN","GMR CGUIB",95, 0) | |
2519 | S GMRCNOW =$$NOW^XLF DT,GMRCSTS =$P(^GMR(1 23,+GMRCO, 0),"^",12) ,GMRCDFN=$ P(^(0),"^" ,2) | |
2520 | "RTN","GMR CGUIB",96, 0) | |
2521 | I '$G(GMR CDUZ) S GM RCDUZ=DUZ | |
2522 | "RTN","GMR CGUIB",97, 0) | |
2523 | I '$G(GMR CAD) S GMR CAD=GMRCNO W | |
2524 | "RTN","GMR CGUIB",98, 0) | |
2525 | ;Insure c omment arr ay contain s text for Complete action. | |
2526 | "RTN","GMR CGUIB",99, 0) | |
2527 | I GMRCA=1 0 D I GMR CERR=1 S G MRCERMS="C omment fie ld must co ntain a te xt value!" Q GMRCERR _"^"_GMRCE RMS | |
2528 | "RTN","GMR CGUIB",100 ,0) | |
2529 | . S GMRCE RR=1 | |
2530 | "RTN","GMR CGUIB",101 ,0) | |
2531 | . I '$D(G MRCOM) Q | |
2532 | "RTN","GMR CGUIB",102 ,0) | |
2533 | . N GMRCO M1 S GMRCO M1="" | |
2534 | "RTN","GMR CGUIB",103 ,0) | |
2535 | . F S GM RCOM1=$O(G MRCOM(GMRC OM1)) Q:(G MRCOM1=""! (GMRCERR=0 )) D | |
2536 | "RTN","GMR CGUIB",104 ,0) | |
2537 | .. I $TR( $G(GMRCOM( GMRCOM1)), " ","")'=" " S GMRCER R=0 Q | |
2538 | "RTN","GMR CGUIB",105 ,0) | |
2539 | I +$G(GMR CA),GMRCA= 10 D | |
2540 | "RTN","GMR CGUIB",106 ,0) | |
2541 | .S GMRCSF =$G(GMRCSF ,"") | |
2542 | "RTN","GMR CGUIB",107 ,0) | |
2543 | .S GMRCST S=2 | |
2544 | "RTN","GMR CGUIB",108 ,0) | |
2545 | .S DR="8/ ///^S X=GM RCSTS;9/// /^S X=GMRC A;15////^S X=GMRCSF" | |
2546 | "RTN","GMR CGUIB",109 ,0) | |
2547 | .S GMRCOR TX="Comple ted Consul t "_$$ORTX ^GMRCAU(+G MRCO)_$S(G MRCSF="Y": " with Sig Findings" ,GMRCSF="N ":" with n o Sig Find ings",1:"" ) | |
2548 | "RTN","GMR CGUIB",110 ,0) | |
2549 | .I $P($G( ^GMR(123,+ GMRCO,0)), U,14),$P($ G(^GMR(123 ,+GMRCO,0) ),U,14)'=D UZ S GMRCA DUZ($P($G( ^(0)),U,14 ))="" | |
2550 | "RTN","GMR CGUIB",111 ,0) | |
2551 | .Q | |
2552 | "RTN","GMR CGUIB",112 ,0) | |
2553 | I $G(GMRC ALF)=1 D | |
2554 | "RTN","GMR CGUIB",113 ,0) | |
2555 | .N I | |
2556 | "RTN","GMR CGUIB",114 ,0) | |
2557 | .F I=1:1 S X=$P(GM RCATO,";", I) Q:X="" S GMRCADU Z(X)="" | |
2558 | "RTN","GMR CGUIB",115 ,0) | |
2559 | .Q | |
2560 | "RTN","GMR CGUIB",116 ,0) | |
2561 | I $L(GMRC A),GMRCA=4 S DR=DR_$ S($L(DR):" ;",1:"")_" 9////^S X= GMRCA;15// //^S X=GMR CSF" D | |
2562 | "RTN","GMR CGUIB",117 ,0) | |
2563 | .S GMRCOR TX=$S(GMRC SF="Y":"Si g Findings ",GMRCSF= "N":"No Si g Findings ",1:"Unkn own Sig Fi ndings ")_ "for consu lt "_$$ORT X^GMRCAU(G MRCO) | |
2564 | "RTN","GMR CGUIB",118 ,0) | |
2565 | .I $P($G( ^GMR(123,+ GMRCO,0)), U,14),$P($ G(^GMR(123 ,+GMRCO,0) ),U,14)'=D UZ S GMRCA DUZ($P($G( ^(0)),U,14 ))="" | |
2566 | "RTN","GMR CGUIB",119 ,0) | |
2567 | .S GMRCUP D=$$VALID^ GMRCAU($P( ^GMR(123,+ GMRCO,0),U ,5),GMRCO, DUZ) | |
2568 | "RTN","GMR CGUIB",120 ,0) | |
2569 | .I +GMRCU PD<2 S GMR CTM=1 | |
2570 | "RTN","GMR CGUIB",121 ,0) | |
2571 | .I +GMRCU PD>1,+$P($ G(^GMR(123 ,+GMRCO,0) ),U,14)=DU Z S GMRCTM =1 | |
2572 | "RTN","GMR CGUIB",122 ,0) | |
2573 | .Q | |
2574 | "RTN","GMR CGUIB",123 ,0) | |
2575 | I $L(DR) S DIE="^GM R(123,",DA =GMRCO D ^ DIE K DIE, DR | |
2576 | "RTN","GMR CGUIB",124 ,0) | |
2577 | I '$O(GMR COM(0)) D AUDIT^GMRC P | |
2578 | "RTN","GMR CGUIB",125 ,0) | |
2579 | I $D(GMRC OM),$O(GMR COM(0)) D | |
2580 | "RTN","GMR CGUIB",126 ,0) | |
2581 | .N DA | |
2582 | "RTN","GMR CGUIB",127 ,0) | |
2583 | .S DA=$$S ETDA() | |
2584 | "RTN","GMR CGUIB",128 ,0) | |
2585 | .D SETCOM (.GMRCOM,G MRCDUZ) | |
2586 | "RTN","GMR CGUIB",129 ,0) | |
2587 | .Q | |
2588 | "RTN","GMR CGUIB",130 ,0) | |
2589 | L -^GMR(1 23,GMRCO) | |
2590 | "RTN","GMR CGUIB",131 ,0) | |
2591 | ; | |
2592 | "RTN","GMR CGUIB",132 ,0) | |
2593 | D MSG^GMR CP(GMRCDFN ,GMRCORTX, +GMRCO,$S( GMRCA=20:6 3,1:23),.G MRCADUZ,GM RCTM) | |
2594 | "RTN","GMR CGUIB",133 ,0) | |
2595 | ; | |
2596 | "RTN","GMR CGUIB",134 ,0) | |
2597 | I $S(GMRC A=10:1,(GM RCA=4&($P( ^GMR(123,G MRCO,0),U, 12)=2)):1, 1:0) D | |
2598 | "RTN","GMR CGUIB",135 ,0) | |
2599 | . D EN^GM RCHL7($P(^ GMR(123,GM RCO,0),"^" ,2),GMRCO, $G(GMRCTYP E),$G(GMRC RB),"RE",G MRCORNP,$G (GMRCVSIT) ,.GMRCOM,, GMRCAD) | |
2600 | "RTN","GMR CGUIB",136 ,0) | |
2601 | K DIE,DR, DA,GMRCDT, GMRCNOW,GM RCAD,GMRCO RNP,GMRCDU Z,GMRCRSLT ,GMRCSTS,G MRCADUZ,GM RCORTX,GMR CDFN | |
2602 | "RTN","GMR CGUIB",137 ,0) | |
2603 | Q GMRCERR _"^"_GMRCE RMS | |
2604 | "RTN","GMR CGUIB",138 ,0) | |
2605 | ; | |
2606 | "RTN","GMR CGUIB",139 ,0) | |
2607 | SCH(GMRCO, GMRCORNP,G MRCAD,GMRC ADUZ,GMRCM T) ;schedu le a consu lt API | |
2608 | "RTN","GMR CGUIB",140 ,0) | |
2609 | ; Input v ariables: | |
2610 | "RTN","GMR CGUIB",141 ,0) | |
2611 | ;GMRCO - The intern al file nu mber of th e consult from File 123 | |
2612 | "RTN","GMR CGUIB",142 ,0) | |
2613 | ;GMRCORNP - Name of the perso n who actu ally 'Rece ived' the consult | |
2614 | "RTN","GMR CGUIB",143 ,0) | |
2615 | ;GMRCAD - Actual da te time th at consult was recei ved into t he service . | |
2616 | "RTN","GMR CGUIB",144 ,0) | |
2617 | ;GMRCADUZ - array o f alert re cipients a s chosen b y user (by reference ) | |
2618 | "RTN","GMR CGUIB",145 ,0) | |
2619 | ; ARRAY (DUZ)="" | |
2620 | "RTN","GMR CGUIB",146 ,0) | |
2621 | ;GMRCMT - array of comments i f entered (by refere nce) | |
2622 | "RTN","GMR CGUIB",147 ,0) | |
2623 | ; ARRAY (1)="FIRST LINE OF C OMMENT" | |
2624 | "RTN","GMR CGUIB",148 ,0) | |
2625 | ; ARRAY (2)="SECON D LINE OF COMMENT" | |
2626 | "RTN","GMR CGUIB",149 ,0) | |
2627 | ; | |
2628 | "RTN","GMR CGUIB",150 ,0) | |
2629 | ;Output: | |
2630 | "RTN","GMR CGUIB",151 ,0) | |
2631 | ;GMRCERR - Error Co ndition Co de: 0 = NO error, 1= error | |
2632 | "RTN","GMR CGUIB",152 ,0) | |
2633 | ;GMRCERMS - Error m essage or null | |
2634 | "RTN","GMR CGUIB",153 ,0) | |
2635 | ; return ed as GMRC ERR^GMRCER MS | |
2636 | "RTN","GMR CGUIB",154 ,0) | |
2637 | ; | |
2638 | "RTN","GMR CGUIB",155 ,0) | |
2639 | N DFN,GMR CSTS,GMRCN OW,GMRCERR ,GMRCERMS | |
2640 | "RTN","GMR CGUIB",156 ,0) | |
2641 | S GMRCERR =0,GMRCERM S="",GMRCN OW=$$NOW^X LFDT | |
2642 | "RTN","GMR CGUIB",157 ,0) | |
2643 | S:$G(GMRC AD)="" GMR CAD=GMRCNO W | |
2644 | "RTN","GMR CGUIB",158 ,0) | |
2645 | S:'$G(GMR CDUZ) GMRC DUZ=DUZ | |
2646 | "RTN","GMR CGUIB",159 ,0) | |
2647 | S DFN=$P( $G(^GMR(12 3,GMRCO,0) ),"^",2) I DFN="" D Q GMRCERR _"^"_GMRCE RMS | |
2648 | "RTN","GMR CGUIB",160 ,0) | |
2649 | . S GMRCE RR="1",GMR CERMS="Not A Valid C onsult - F ile Not Fo und." | |
2650 | "RTN","GMR CGUIB",161 ,0) | |
2651 | . D EXIT^ GMRCGUIA | |
2652 | "RTN","GMR CGUIB",162 ,0) | |
2653 | S GMRCSTS =8,GMRCA=8 | |
2654 | "RTN","GMR CGUIB",163 ,0) | |
2655 | D STATUS^ GMRCP I $D (GMRCQUT) D EXIT^GMR CGUIA Q GM RCERR_"^"_ GMRCERMS | |
2656 | "RTN","GMR CGUIB",164 ,0) | |
2657 | I '$O(GMR CMT(0)) D AUDIT^GMRC P | |
2658 | "RTN","GMR CGUIB",165 ,0) | |
2659 | I $O(GMRC MT(0)) D | |
2660 | "RTN","GMR CGUIB",166 ,0) | |
2661 | . S DA=$$ SETDA | |
2662 | "RTN","GMR CGUIB",167 ,0) | |
2663 | . D SETCO M(.GMRCMT, GMRCDUZ) | |
2664 | "RTN","GMR CGUIB",168 ,0) | |
2665 | D EN^GMRC HL7(DFN,GM RCO,"","", "SC",GMRCO RNP,"","", "",GMRCAD) | |
2666 | "RTN","GMR CGUIB",169 ,0) | |
2667 | D ;send alerts | |
2668 | "RTN","GMR CGUIB",170 ,0) | |
2669 | . N GMRCU PD,GMRCTM, TXT | |
2670 | "RTN","GMR CGUIB",171 ,0) | |
2671 | . S TXT=" Scheduled Consult: " _$$ORTX^GM RCAU(GMRCO ) | |
2672 | "RTN","GMR CGUIB",172 ,0) | |
2673 | . S GMRCT M=0 | |
2674 | "RTN","GMR CGUIB",173 ,0) | |
2675 | . I $P(^G MR(123,+GM RCO,0),U,1 4),$P(^GMR (123,+GMRC O,0),U,14) '=DUZ S GM RCADUZ($P( ^(0),U,14) )="" | |
2676 | "RTN","GMR CGUIB",174 ,0) | |
2677 | . S GMRCU PD=$$VALID ^GMRCAU($P (^GMR(123, +GMRCO,0), U,5),GMRCO ,DUZ) | |
2678 | "RTN","GMR CGUIB",175 ,0) | |
2679 | . I +GMRC UPD<2 S GM RCTM=1 | |
2680 | "RTN","GMR CGUIB",176 ,0) | |
2681 | . I +GMRC UPD>1,+$P( $G(^GMR(12 3,+GMRCO,0 )),U,14)=D UZ S GMRCT M=1 | |
2682 | "RTN","GMR CGUIB",177 ,0) | |
2683 | . D MSG^G MRCP(DFN,T XT,GMRCO,6 3,.GMRCADU Z,GMRCTM) | |
2684 | "RTN","GMR CGUIB",178 ,0) | |
2685 | D EXIT^GM RCGUIA | |
2686 | "RTN","GMR CGUIB",179 ,0) | |
2687 | Q GMRCERR _"^"_GMRCE RMS | |
2688 | "RTN","GMR CGUIB",180 ,0) | |
2689 | DOCLIST(GM RCAR,GMRCD A,GMRCMED) ;return list of li nked resul ts | |
2690 | "RTN","GMR CGUIB",181 ,0) | |
2691 | ; Input: | |
2692 | "RTN","GMR CGUIB",182 ,0) | |
2693 | ; GMRCAR - array t o return l ist, passe d by refer ence | |
2694 | "RTN","GMR CGUIB",183 ,0) | |
2695 | ; GMRCDA - ien fro m file 123 | |
2696 | "RTN","GMR CGUIB",184 ,0) | |
2697 | ; GMRCME D- 1 = inc lude med r esults; 0 = only TIU docs | |
2698 | "RTN","GMR CGUIB",185 ,0) | |
2699 | ; | |
2700 | "RTN","GMR CGUIB",186 ,0) | |
2701 | ; Output: | |
2702 | "RTN","GMR CGUIB",187 ,0) | |
2703 | ; GMRCAR - array i n format | |
2704 | "RTN","GMR CGUIB",188 ,0) | |
2705 | ; G MRCAR(0)=z ero node o f record | |
2706 | "RTN","GMR CGUIB",189 ,0) | |
2707 | ; G MRCAR(50,1 )="ien;glo bal ref," e.g. 5;TIU (8925, or 3;MCAR(691 , | |
2708 | "RTN","GMR CGUIB",190 ,0) | |
2709 | ; G MRCAR(50,2 )="ien;glo bal ref," | |
2710 | "RTN","GMR CGUIB",191 ,0) | |
2711 | ; | |
2712 | "RTN","GMR CGUIB",192 ,0) | |
2713 | I '$D(^GM R(123,GMRC DA,0)) Q | |
2714 | "RTN","GMR CGUIB",193 ,0) | |
2715 | S GMRCAR( 0)=^GMR(12 3,GMRCDA,0 ),$P(GMRCA R(0),U,20) ="" | |
2716 | "RTN","GMR CGUIB",194 ,0) | |
2717 | N RES,CNT S RES="", CNT=1 | |
2718 | "RTN","GMR CGUIB",195 ,0) | |
2719 | F S RES= $O(^GMR(12 3,GMRCDA,5 0,"B",RES) ) Q:RES="" D | |
2720 | "RTN","GMR CGUIB",196 ,0) | |
2721 | . I '$G(G MRCMED) Q: RES'["TIU( 8925" | |
2722 | "RTN","GMR CGUIB",197 ,0) | |
2723 | . S GMRCA R(50,CNT)= RES | |
2724 | "RTN","GMR CGUIB",198 ,0) | |
2725 | . I RES[" MCAR" D | |
2726 | "RTN","GMR CGUIB",199 ,0) | |
2727 | .. N ARR, STR | |
2728 | "RTN","GMR CGUIB",200 ,0) | |
2729 | .. D MEDL KUP^MCARUT L3(.ARR,+$ P(RES,"MCA R(",2),+RE S) | |
2730 | "RTN","GMR CGUIB",201 ,0) | |
2731 | .. I '+AR R K GMRCAR (50,CNT) Q | |
2732 | "RTN","GMR CGUIB",202 ,0) | |
2733 | .. S STR= $P(ARR,U,9 )_U_$P(ARR ,U,6)_$S($ P(ARR,U,10 ):"^^^^^^^ ^1",1:"") | |
2734 | "RTN","GMR CGUIB",203 ,0) | |
2735 | .. S GMRC AR(50,CNT) =GMRCAR(50 ,CNT)_U_ST R | |
2736 | "RTN","GMR CGUIB",204 ,0) | |
2737 | . S CNT=C NT+1 | |
2738 | "RTN","GMR CGUIB",205 ,0) | |
2739 | Q | |
2740 | "VER") | |
2741 | 8.0^22.2 | |
2742 | $END KID G MRC*3.0*95 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.