Produced by Araxis Merge on 6/12/2018 12:04:36 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 | DG-5.3-948.KID | Wed Jun 6 15:15:06 2018 UTC |
2 | MASS.zip\MASS | DG-5.3-948.KID | Tue Jun 12 16:55:23 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 11 | 24158 |
Changed | 11 | 22 |
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 DG*5. 3*948 | |
4 | **INSTALL NAME** | |
5 | DG*5.3*948 | |
6 | "BLD",1058 7,0) | |
7 | DG*5.3*948 ^REGISTRAT ION^0^3180 504^y | |
8 | "BLD",1058 7,1,0) | |
9 | ^^559^559^ 3180308^^ | |
10 | "BLD",1058 7,1,1,0) | |
11 | Associated patches: SD*5.3*676 , DG*5.3*7 54, DG*5.3 *578, DG*5 .3*149 | |
12 | "BLD",1058 7,1,2,0) | |
13 | ||
14 | "BLD",1058 7,1,3,0) | |
15 | Subject: MASS Regis tration Pa ckage | |
16 | "BLD",1058 7,1,4,0) | |
17 | ||
18 | "BLD",1058 7,1,5,0) | |
19 | Category: ROUTINE, PROTOCOLS, INTERFACE S | |
20 | "BLD",1058 7,1,6,0) | |
21 | ||
22 | "BLD",1058 7,1,7,0) | |
23 | ||
24 | "BLD",1058 7,1,8,0) | |
25 | Descriptio n: | |
26 | "BLD",1058 7,1,9,0) | |
27 | ---------- -- | |
28 | "BLD",1058 7,1,10,0) | |
29 | This patch contains the Regist ration por tions of t he Medical Appointme nt | |
30 | "BLD",1058 7,1,11,0) | |
31 | Scheduling System (M ASS) proje ct. The MA SS program is deploy ing a | |
32 | "BLD",1058 7,1,12,0) | |
33 | commercial schedulin g applicat ion to sup port sched ulers, and ultimatel y | |
34 | "BLD",1058 7,1,13,0) | |
35 | our Vetera ns, within the Depar tment of V eterans Af fairs (VA) . | |
36 | "BLD",1058 7,1,14,0) | |
37 | ||
38 | "BLD",1058 7,1,15,0) | |
39 | ||
40 | "BLD",1058 7,1,16,0) | |
41 | Patch Comp onents: | |
42 | "BLD",1058 7,1,17,0) | |
43 | ---------- ------- | |
44 | "BLD",1058 7,1,18,0) | |
45 | ||
46 | "BLD",1058 7,1,19,0) | |
47 | Parameters : | |
48 | "BLD",1058 7,1,20,0) | |
49 | DG MX MASS EN ABLED - En ables send ing HL7 me ssages to MASS when | |
50 | "BLD",1058 7,1,21,0) | |
51 | patient-re lated fiel ds change in VistA. | |
52 | "BLD",1058 7,1,22,0) | |
53 | DG MX PATIENT IEN ASSIG NING - Set s the Pati ent ID Ass igning | |
54 | "BLD",1058 7,1,23,0) | |
55 | Authority to be sent in PID-3. 4 of MASS HL7 messag es. | |
56 | "BLD",1058 7,1,24,0) | |
57 | DG MX CONV TH READS - Sp ecifies ho w many out going HLO Logical Li nks | |
58 | "BLD",1058 7,1,25,0) | |
59 | are used f or sending messages from the D GMX . util ity. The L ink names | |
60 | "BLD",1058 7,1,26,0) | |
61 | must be in the forma t DG ADT O <n>, where <n> is an increment ing intege r | |
62 | "BLD",1058 7,1,27,0) | |
63 | starting a t 1. | |
64 | "BLD",1058 7,1,28,0) | |
65 | ||
66 | "BLD",1058 7,1,29,0) | |
67 | <Additiona l patch co mponents c an be adde d alphabet ically if needed (e. g., | |
68 | "BLD",1058 7,1,30,0) | |
69 | APIs, Bull etins, Par ameters, R PCs, etc.) .> | |
70 | "BLD",1058 7,1,31,0) | |
71 | ||
72 | "BLD",1058 7,1,32,0) | |
73 | ||
74 | "BLD",1058 7,1,33,0) | |
75 | Files & Fi elds Assoc iated: | |
76 | "BLD",1058 7,1,34,0) | |
77 | ||
78 | "BLD",1058 7,1,35,0) | |
79 | File Name (Number) Field Name (Numb er) Ne w/Modified /Deleted | |
80 | "BLD",1058 7,1,36,0) | |
81 | ---------- -------- ------ ---------- --- -- ---------- -------- | |
82 | "BLD",1058 7,1,37,0) | |
83 | PATIENT (2 ) Name ( .01) Mo dified | |
84 | "BLD",1058 7,1,38,0) | |
85 | PATIENT (2 ) Sex (. 02) Mo dified | |
86 | "BLD",1058 7,1,39,0) | |
87 | PATIENT (2 ) SELD I DENTIFIED GENDER (.0 24) Modifi ed | |
88 | "BLD",1058 7,1,40,0) | |
89 | PATIENT (2 ) DOB (. 03) Mo dified | |
90 | "BLD",1058 7,1,41,0) | |
91 | PATIENT (2 ) SSN (. 09) Mo dified | |
92 | "BLD",1058 7,1,42,0) | |
93 | PATIENT (2 ) ZIP CO DE (.116) Modified | |
94 | "BLD",1058 7,1,43,0) | |
95 | PATIENT (2 ) BAD AD DRESS INDI CATOR | |
96 | "BLD",1058 7,1,44,0) | |
97 | (.12 1) Modified | |
98 | "BLD",1058 7,1,45,0) | |
99 | PATIENT (2 ) TEMPOR ARY STREET | |
100 | "BLD",1058 7,1,46,0) | |
101 | [LIN E 1] (.121 1) Modified | |
102 | "BLD",1058 7,1,47,0) | |
103 | PATIENT (2 ) TEMPOR ARY STREET | |
104 | "BLD",1058 7,1,48,0) | |
105 | [LIN E 2] (.121 2) Modified | |
106 | "BLD",1058 7,1,49,0) | |
107 | PATIENT (2 ) TEMPOR ARY STREET | |
108 | "BLD",1058 7,1,50,0) | |
109 | [LIN E 3] (.121 3) Modified | |
110 | "BLD",1058 7,1,51,0) | |
111 | PATIENT (2 ) TEMPOR ARY CITY ( .1214) Mo dified | |
112 | "BLD",1058 7,1,52,0) | |
113 | PATIENT (2 ) TEMPOR ARY STATE (.1215) Mo dified | |
114 | "BLD",1058 7,1,53,0) | |
115 | PATIENT (2 ) TEMPOR ARY ZIP CO DE | |
116 | "BLD",1058 7,1,54,0) | |
117 | (.12 16) Modified | |
118 | "BLD",1058 7,1,55,0) | |
119 | PATIENT (2 ) TEMPOR ARY ADDRES S | |
120 | "BLD",1058 7,1,56,0) | |
121 | STAR T DATE (.1 217) Modified | |
122 | "BLD",1058 7,1,57,0) | |
123 | PATIENT (2 ) TEMPOR ARY ADDRES S | |
124 | "BLD",1058 7,1,58,0) | |
125 | END DATE (.121 8) Modified | |
126 | "BLD",1058 7,1,59,0) | |
127 | PATIENT (2 ) TEMPOR ARY ADDRES S | |
128 | "BLD",1058 7,1,60,0) | |
129 | COUN TRY (.1223 ) Modified | |
130 | "BLD",1058 7,1,61,0) | |
131 | PATIENT (2 ) EMAIL ADDRESS (. 133) Modi fied | |
132 | "BLD",1058 7,1,62,0) | |
133 | PATIENT (2 ) PHONE NUMBER | |
134 | "BLD",1058 7,1,63,0) | |
135 | [CEL LULAR] (.1 34) Modified | |
136 | "BLD",1058 7,1,64,0) | |
137 | PATIENT (2 ) CONFID ENTIAL STR EET | |
138 | "BLD",1058 7,1,65,0) | |
139 | [LIN E 1] (.141 1) Modified | |
140 | "BLD",1058 7,1,66,0) | |
141 | PATIENT (2 ) CONFID ENTIAL ADD R | |
142 | "BLD",1058 7,1,67,0) | |
143 | COUN TRY (.1411 6) Modified | |
144 | "BLD",1058 7,1,68,0) | |
145 | PATIENT (2 ) CONFID ENTIAL STR EET | |
146 | "BLD",1058 7,1,69,0) | |
147 | [LIN E 2] (.141 2) Modified | |
148 | "BLD",1058 7,1,70,0) | |
149 | PATIENT (2 ) CONFID ENTIAL STR EET | |
150 | "BLD",1058 7,1,71,0) | |
151 | [LIN E 3] (.141 3) Modified | |
152 | "BLD",1058 7,1,72,0) | |
153 | PATIENT (2 ) CONFID ENTIAL ADD RESS | |
154 | "BLD",1058 7,1,73,0) | |
155 | CITY (.1414) Modified | |
156 | "BLD",1058 7,1,74,0) | |
157 | PATIENT (2 ) CONFID ENTIAL ADD RESS | |
158 | "BLD",1058 7,1,75,0) | |
159 | STAT E (.1415) Modified | |
160 | "BLD",1058 7,1,76,0) | |
161 | PATIENT (2 ) CONFID ENTIAL ADD RESS | |
162 | "BLD",1058 7,1,77,0) | |
163 | ZIP CODE (.141 6) Modified | |
164 | "BLD",1058 7,1,78,0) | |
165 | PATIENT (2 ) CONFID ENTIAL STA RT | |
166 | "BLD",1058 7,1,79,0) | |
167 | DATE (.1417) Modified | |
168 | "BLD",1058 7,1,80,0) | |
169 | PATIENT (2 ) CONFID ENTIAL END | |
170 | "BLD",1058 7,1,81,0) | |
171 | DATE (.1418) Modified | |
172 | "BLD",1058 7,1,82,0) | |
173 | PATIENT (2 ) E-NAME (.331) Mo dified | |
174 | "BLD",1058 7,1,83,0) | |
175 | PATIENT (2 ) E-RELA TIONSHIP T O | |
176 | "BLD",1058 7,1,84,0) | |
177 | PATI ENT (.332) Modified | |
178 | "BLD",1058 7,1,85,0) | |
179 | PATIENT (2 ) E-STRE ET ADDRESS | |
180 | "BLD",1058 7,1,86,0) | |
181 | [LIN E 1] (.333 ) Modified | |
182 | "BLD",1058 7,1,87,0) | |
183 | PATIENT (2 ) E-STRE ET ADDRESS | |
184 | "BLD",1058 7,1,88,0) | |
185 | [LIN E 2] (.334 ) Modified | |
186 | "BLD",1058 7,1,89,0) | |
187 | PATIENT (2 ) E-STRE ET ADDRESS | |
188 | "BLD",1058 7,1,90,0) | |
189 | [LIN E 3] (.335 ) Modified | |
190 | "BLD",1058 7,1,91,0) | |
191 | PATIENT (2 ) E-CITY (.336) Mo dified | |
192 | "BLD",1058 7,1,92,0) | |
193 | PATIENT (2 ) E-STAT E (.337) Modified | |
194 | "BLD",1058 7,1,93,0) | |
195 | PATIENT (2 ) E-ZIP CODE (.338 ) Mo dified | |
196 | "BLD",1058 7,1,94,0) | |
197 | PATIENT (2 ) E-PHON E NUMBER ( .339) Mo dified | |
198 | "BLD",1058 7,1,95,0) | |
199 | PATIENT (2 ) PRIMAR Y ELIGIBIL ITY | |
200 | "BLD",1058 7,1,96,0) | |
201 | CODE (.361) Modified | |
202 | "BLD",1058 7,1,97,0) | |
203 | PATIENT (2 ) ELIGIB ILITY STAT US | |
204 | "BLD",1058 7,1,98,0) | |
205 | (.36 11) Modified | |
206 | "BLD",1058 7,1,99,0) | |
207 | PATIENT (2 ) COMBAT SERVICE | |
208 | "BLD",1058 7,1,100,0) | |
209 | INDI CATED (.52 91) Modified | |
210 | "BLD",1058 7,1,101,0) | |
211 | PATIENT (2 ) COMBAT VETERAN E ND | |
212 | "BLD",1058 7,1,102,0) | |
213 | DATE (.5295) Modified | |
214 | "BLD",1058 7,1,103,0) | |
215 | PATIENT (2 ) ALIAS (1,.01) Mo dified | |
216 | "BLD",1058 7,1,104,0) | |
217 | PATIENT (2 ) DENTAL CLASSIFIC ATION | |
218 | "BLD",1058 7,1,105,0) | |
219 | (220 ) Modified | |
220 | "BLD",1058 7,1,106,0) | |
221 | PATIENT (2 ) APPOIN TMENT REQU EST ON MO DIFIED | |
222 | "BLD",1058 7,1,107,0) | |
223 | 1010 EZ (1010.1 59) | |
224 | "BLD",1058 7,1,108,0) | |
225 | PATIENT (2 ) APPOIN TMENT REQU EST MO DIFIED | |
226 | "BLD",1058 7,1,109,0) | |
227 | STAT US (1010.1 61) | |
228 | "BLD",1058 7,1,110,0) | |
229 | PRF ASSIGN MENT | |
230 | "BLD",1058 7,1,111,0) | |
231 | HISTORY (2 6.14) ACTI ON (.03) Modified | |
232 | "BLD",1058 7,1,112,0) | |
233 | DG SECURIT Y | |
234 | "BLD",1058 7,1,113,0) | |
235 | LOG (38.1) SECURI TY LEVEL ( 2) Mo dified | |
236 | "BLD",1058 7,1,114,0) | |
237 | PRE-REGIST RATION | |
238 | "BLD",1058 7,1,115,0) | |
239 | AUDIT (41. 41) DATE C HANGED (1) Mo dified | |
240 | "BLD",1058 7,1,116,0) | |
241 | ADT/HL7 PI VOT (391.7 1) ENTRY WAS CREATE D BY | |
242 | "BLD",1058 7,1,117,0) | |
243 | MASS EPIC (.11) New | |
244 | "BLD",1058 7,1,118,0) | |
245 | ||
246 | "BLD",1058 7,1,119,0) | |
247 | Patch Comp onents: | |
248 | "BLD",1058 7,1,120,0) | |
249 | ---------- ------- | |
250 | "BLD",1058 7,1,121,0) | |
251 | ||
252 | "BLD",1058 7,1,122,0) | |
253 | HLO Applic ations: | |
254 | "BLD",1058 7,1,123,0) | |
255 | DG-REG-OUT | |
256 | "BLD",1058 7,1,124,0) | |
257 | ||
258 | "BLD",1058 7,1,125,0) | |
259 | HLO Logica l Links: | |
260 | "BLD",1058 7,1,126,0) | |
261 | DG ADT OUT | |
262 | "BLD",1058 7,1,127,0) | |
263 | DG ORU OUT | |
264 | "BLD",1058 7,1,128,0) | |
265 | ||
266 | "BLD",1058 7,1,129,0) | |
267 | Parameters : | |
268 | "BLD",1058 7,1,130,0) | |
269 | DGMX MASS ENABLE | |
270 | "BLD",1058 7,1,131,0) | |
271 | DGMX PATIE NT IEN ASS IGNING | |
272 | "BLD",1058 7,1,132,0) | |
273 | DGMC CONV THREADS | |
274 | "BLD",1058 7,1,133,0) | |
275 | ||
276 | "BLD",1058 7,1,134,0) | |
277 | ||
278 | "BLD",1058 7,1,135,0) | |
279 | Forms Asso ciated: | |
280 | "BLD",1058 7,1,136,0) | |
281 | ||
282 | "BLD",1058 7,1,137,0) | |
283 | Form Name File # New/Mo dified/Del eted | |
284 | "BLD",1058 7,1,138,0) | |
285 | --------- ---- -- ------ ---------- ---- | |
286 | "BLD",1058 7,1,139,0) | |
287 | N/A | |
288 | "BLD",1058 7,1,140,0) | |
289 | ||
290 | "BLD",1058 7,1,141,0) | |
291 | ||
292 | "BLD",1058 7,1,142,0) | |
293 | Mail Group s Associat ed: | |
294 | "BLD",1058 7,1,143,0) | |
295 | ||
296 | "BLD",1058 7,1,144,0) | |
297 | Mail Group Name New/ Modified/D eleted | |
298 | "BLD",1058 7,1,145,0) | |
299 | ---------- ----- ---- ---------- ------ | |
300 | "BLD",1058 7,1,146,0) | |
301 | N/A | |
302 | "BLD",1058 7,1,147,0) | |
303 | ||
304 | "BLD",1058 7,1,148,0) | |
305 | ||
306 | "BLD",1058 7,1,149,0) | |
307 | Options As sociated: | |
308 | "BLD",1058 7,1,150,0) | |
309 | ||
310 | "BLD",1058 7,1,151,0) | |
311 | Option Nam e Type New/Mo dified/Del eted | |
312 | "BLD",1058 7,1,152,0) | |
313 | ---------- - ---- ------ ---------- ---- | |
314 | "BLD",1058 7,1,153,0) | |
315 | N/A | |
316 | "BLD",1058 7,1,154,0) | |
317 | ||
318 | "BLD",1058 7,1,155,0) | |
319 | ||
320 | "BLD",1058 7,1,156,0) | |
321 | Protocols Associated : | |
322 | "BLD",1058 7,1,157,0) | |
323 | ||
324 | "BLD",1058 7,1,158,0) | |
325 | Protocol N ame New/Mo dified/Del eted | |
326 | "BLD",1058 7,1,159,0) | |
327 | ---------- --- ------ ---------- ---- | |
328 | "BLD",1058 7,1,160,0) | |
329 | DGMX DEMOG RAPHICS MO NITOR New | |
330 | "BLD",1058 7,1,161,0) | |
331 | DGMX MASS Demographi cs Update New | |
332 | "BLD",1058 7,1,162,0) | |
333 | ||
334 | "BLD",1058 7,1,163,0) | |
335 | Security K eys Associ ated: | |
336 | "BLD",1058 7,1,164,0) | |
337 | ||
338 | "BLD",1058 7,1,165,0) | |
339 | Security K ey Name | |
340 | "BLD",1058 7,1,166,0) | |
341 | ---------- ------- | |
342 | "BLD",1058 7,1,167,0) | |
343 | N/A | |
344 | "BLD",1058 7,1,168,0) | |
345 | ||
346 | "BLD",1058 7,1,169,0) | |
347 | ||
348 | "BLD",1058 7,1,170,0) | |
349 | Templates Associated : | |
350 | "BLD",1058 7,1,171,0) | |
351 | ||
352 | "BLD",1058 7,1,172,0) | |
353 | Template N ame Type File N ame (Numbe r) New/Mo dified/Del eted | |
354 | "BLD",1058 7,1,173,0) | |
355 | ---------- --- ---- ------ ---------- -- ------ ---------- ---- | |
356 | "BLD",1058 7,1,174,0) | |
357 | N/A | |
358 | "BLD",1058 7,1,175,0) | |
359 | ||
360 | "BLD",1058 7,1,176,0) | |
361 | ||
362 | "BLD",1058 7,1,177,0) | |
363 | Additional Informati on: | |
364 | "BLD",1058 7,1,178,0) | |
365 | N/A | |
366 | "BLD",1058 7,1,179,0) | |
367 | ||
368 | "BLD",1058 7,1,180,0) | |
369 | ||
370 | "BLD",1058 7,1,181,0) | |
371 | New Servic e Requests (NSRs): | |
372 | "BLD",1058 7,1,182,0) | |
373 | ---------- ---------- -------- | |
374 | "BLD",1058 7,1,183,0) | |
375 | N/A | |
376 | "BLD",1058 7,1,184,0) | |
377 | ||
378 | "BLD",1058 7,1,185,0) | |
379 | ||
380 | "BLD",1058 7,1,186,0) | |
381 | Patient Sa fety Issue s (PSIs): | |
382 | "BLD",1058 7,1,187,0) | |
383 | ---------- ---------- --------- | |
384 | "BLD",1058 7,1,188,0) | |
385 | N/A | |
386 | "BLD",1058 7,1,189,0) | |
387 | ||
388 | "BLD",1058 7,1,190,0) | |
389 | ||
390 | "BLD",1058 7,1,191,0) | |
391 | Defect Tra cking Syst em Ticket( s) & Overv iew: | |
392 | "BLD",1058 7,1,192,0) | |
393 | ---------- ---------- ---------- ---------- ---- | |
394 | "BLD",1058 7,1,193,0) | |
395 | N/A | |
396 | "BLD",1058 7,1,194,0) | |
397 | ||
398 | "BLD",1058 7,1,195,0) | |
399 | Problem: | |
400 | "BLD",1058 7,1,196,0) | |
401 | ------- | |
402 | "BLD",1058 7,1,197,0) | |
403 | N/A | |
404 | "BLD",1058 7,1,198,0) | |
405 | ||
406 | "BLD",1058 7,1,199,0) | |
407 | Resolution : | |
408 | "BLD",1058 7,1,200,0) | |
409 | ---------- | |
410 | "BLD",1058 7,1,201,0) | |
411 | N/A | |
412 | "BLD",1058 7,1,202,0) | |
413 | ||
414 | "BLD",1058 7,1,203,0) | |
415 | Test Sites : | |
416 | "BLD",1058 7,1,204,0) | |
417 | ---------- | |
418 | "BLD",1058 7,1,205,0) | |
419 | Columbus, OH | |
420 | "BLD",1058 7,1,206,0) | |
421 | ||
422 | "BLD",1058 7,1,207,0) | |
423 | ||
424 | "BLD",1058 7,1,208,0) | |
425 | Software a nd Documen tation Ret rieval Ins tructions: | |
426 | "BLD",1058 7,1,209,0) | |
427 | ---------- ---------- ---------- ---------- ---------- -- | |
428 | "BLD",1058 7,1,210,0) | |
429 | Software b eing relea sed as a h ost file a nd/or docu mentation describing | |
430 | "BLD",1058 7,1,211,0) | |
431 | the new fu nctionalit y introduc ed by this patch are available . | |
432 | "BLD",1058 7,1,212,0) | |
433 | ||
434 | "BLD",1058 7,1,213,0) | |
435 | The prefer red method is to ret rieve file s from dow nload. DNS . DNS . | |
436 | "BLD",1058 7,1,214,0) | |
437 | This trans mits the f iles from the first available server. Si tes may | |
438 | "BLD",1058 7,1,215,0) | |
439 | also elect to retrie ve files d irectly fr om a speci fic server . | |
440 | "BLD",1058 7,1,216,0) | |
441 | ||
442 | "BLD",1058 7,1,217,0) | |
443 | Sites may retrieve t he softwar e and/or d ocumentati on directl y using | |
444 | "BLD",1058 7,1,218,0) | |
445 | Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE | |
446 | "BLD",1058 7,1,219,0) | |
447 | directory at the fol lowing | |
448 | "BLD",1058 7,1,220,0) | |
449 | OI Field O ffices: | |
450 | "BLD",1058 7,1,221,0) | |
451 | ||
452 | "BLD",1058 7,1,222,0) | |
453 | Albany: DN S .UR L | |
454 | "BLD",1058 7,1,223,0) | |
455 | Hines: DN S .URL | |
456 | "BLD",1058 7,1,224,0) | |
457 | Salt Lake City:
|
|
458 | "BLD",1058 7,1,225,0) | |
459 | ||
460 | "BLD",1058 7,1,226,0) | |
461 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | |
462 | "BLD",1058 7,1,227,0) | |
463 | at: | |
464 | "BLD",1058 7,1,228,0) | |
465 | http://www . DNS /vdl/ | |
466 | "BLD",1058 7,1,229,0) | |
467 | ||
468 | "BLD",1058 7,1,230,0) | |
469 | ||
470 | "BLD",1058 7,1,231,0) | |
471 | Title Fi le Name FTP Mo de | |
472 | "BLD",1058 7,1,232,0) | |
473 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- - | |
474 | "BLD",1058 7,1,233,0) | |
475 | MASS VistA Technical Manual | |
476 | "BLD",1058 7,1,234,0) | |
477 | ||
478 | "BLD",1058 7,1,235,0) | |
479 | Patch Inst allation: | |
480 | "BLD",1058 7,1,236,0) | |
481 | ||
482 | "BLD",1058 7,1,237,0) | |
483 | ||
484 | "BLD",1058 7,1,238,0) | |
485 | Pre/Post I nstallatio n Overview : | |
486 | "BLD",1058 7,1,239,0) | |
487 | ---------- ---------- ---------- - | |
488 | "BLD",1058 7,1,240,0) | |
489 | N/A | |
490 | "BLD",1058 7,1,241,0) | |
491 | ||
492 | "BLD",1058 7,1,242,0) | |
493 | ||
494 | "BLD",1058 7,1,243,0) | |
495 | Pre-Instal lation Ins tructions: | |
496 | "BLD",1058 7,1,244,0) | |
497 | ---------- ---------- ---------- | |
498 | "BLD",1058 7,1,245,0) | |
499 | ||
500 | "BLD",1058 7,1,246,0) | |
501 | This patch may be in stalled wi th users o n the syst em althoug h it is | |
502 | "BLD",1058 7,1,247,0) | |
503 | recommende d that it be install ed during non-peak h ours to mi nimize | |
504 | "BLD",1058 7,1,248,0) | |
505 | potential disruption to users. This pat ch should take less than 5 | |
506 | "BLD",1058 7,1,249,0) | |
507 | minutes | |
508 | "BLD",1058 7,1,250,0) | |
509 | to install . | |
510 | "BLD",1058 7,1,251,0) | |
511 | ||
512 | "BLD",1058 7,1,252,0) | |
513 | ||
514 | "BLD",1058 7,1,253,0) | |
515 | Installati on Instruc tions: | |
516 | "BLD",1058 7,1,254,0) | |
517 | ---------- ---------- ------ | |
518 | "BLD",1058 7,1,255,0) | |
519 | ||
520 | "BLD",1058 7,1,256,0) | |
521 | ||
522 | "BLD",1058 7,1,257,0) | |
523 | 1. Ch oose the P ackMan mes sage conta ining this patch. | |
524 | "BLD",1058 7,1,258,0) | |
525 | ||
526 | "BLD",1058 7,1,259,0) | |
527 | 2. Ch oose the I NSTALL/CHE CK MESSAGE PackMan o ption. | |
528 | "BLD",1058 7,1,260,0) | |
529 | ||
530 | "BLD",1058 7,1,261,0) | |
531 | 3. Fr om the Ker nel Instal lation and Distribut ion System Menu, sel ect | |
532 | "BLD",1058 7,1,262,0) | |
533 | the Instal lation Men u (See Ins tall Promp ts Sample below for more | |
534 | "BLD",1058 7,1,263,0) | |
535 | detail). From this menu, you may elect to use the following options. | |
536 | "BLD",1058 7,1,264,0) | |
537 | When promp ted for th e INSTALL NAME enter the patch DG*5.3*94 8: | |
538 | "BLD",1058 7,1,265,0) | |
539 | a. Ba ckup a Tra nsport Glo bal - This option wi ll create a backup | |
540 | "BLD",1058 7,1,266,0) | |
541 | message of any routi nes export ed with th is patch. It will no t backup a ny | |
542 | "BLD",1058 7,1,267,0) | |
543 | other chan ges such a s DDs or t emplates. | |
544 | "BLD",1058 7,1,268,0) | |
545 | b. Co mpare Tran sport Glob al to Curr ent System - This op tion will | |
546 | "BLD",1058 7,1,269,0) | |
547 | (allow you to view a ll changes that will be made w hen this p atch | |
548 | "BLD",1058 7,1,270,0) | |
549 | is install ed. It co mpares all component s of this patch rout ines, DDs, | |
550 | "BLD",1058 7,1,271,0) | |
551 | templates, etc.). | |
552 | "BLD",1058 7,1,272,0) | |
553 | c. Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow you | |
554 | "BLD",1058 7,1,273,0) | |
555 | to ensure the integr ity of the routines that are i n the tran sport glob al. | |
556 | "BLD",1058 7,1,274,0) | |
557 | 4. F rom the In stallation Menu, sel ect the In stall Pack age(s) opt ion | |
558 | "BLD",1058 7,1,275,0) | |
559 | and choose the patch to instal l. | |
560 | "BLD",1058 7,1,276,0) | |
561 | ||
562 | "BLD",1058 7,1,277,0) | |
563 | 5. Wh en prompte d 'Want KI DS to Rebu ild Menu T rees Upon Completion of | |
564 | "BLD",1058 7,1,278,0) | |
565 | Install? N O//' No | |
566 | "BLD",1058 7,1,279,0) | |
567 | ||
568 | "BLD",1058 7,1,280,0) | |
569 | 6. Wh en prompte d 'Want KI DS to INHI BIT LOGONs during th e install? | |
570 | "BLD",1058 7,1,281,0) | |
571 | NO//'No | |
572 | "BLD",1058 7,1,282,0) | |
573 | ||
574 | "BLD",1058 7,1,283,0) | |
575 | 7. Wh en prompte d 'Want to DISABLE S cheduled O ptions, Me nu Options , | |
576 | "BLD",1058 7,1,284,0) | |
577 | and Protoc ols? NO//' No | |
578 | "BLD",1058 7,1,285,0) | |
579 | ||
580 | "BLD",1058 7,1,286,0) | |
581 | 8. If prompted 'Delay Ins tall (Minu tes): (0 - 60): 0// ' respond 0. | |
582 | "BLD",1058 7,1,287,0) | |
583 | ||
584 | "BLD",1058 7,1,288,0) | |
585 | ||
586 | "BLD",1058 7,1,289,0) | |
587 | Install Pr ompts Samp le: | |
588 | "BLD",1058 7,1,290,0) | |
589 | ---------- ---------- ------ | |
590 | "BLD",1058 7,1,291,0) | |
591 | ||
592 | "BLD",1058 7,1,292,0) | |
593 | ||
594 | "BLD",1058 7,1,293,0) | |
595 | VISTA>D ^X UP | |
596 | "BLD",1058 7,1,294,0) | |
597 | ||
598 | "BLD",1058 7,1,295,0) | |
599 | Setting up programme r environm ent | |
600 | "BLD",1058 7,1,296,0) | |
601 | This is a TEST accou nt. | |
602 | "BLD",1058 7,1,297,0) | |
603 | ||
604 | "BLD",1058 7,1,298,0) | |
605 | Terminal T ype set to : C-VT100 | |
606 | "BLD",1058 7,1,299,0) | |
607 | ||
608 | "BLD",1058 7,1,300,0) | |
609 | Select OPT ION NAME: XPD LOAD D ISTRIBUTIO N Lo ad a Distr ibution | |
610 | "BLD",1058 7,1,301,0) | |
611 | Load a Dis tribution | |
612 | "BLD",1058 7,1,302,0) | |
613 | Enter a Ho st File: C :\HFS\DG_5 _3_948.KID | |
614 | "BLD",1058 7,1,303,0) | |
615 | ||
616 | "BLD",1058 7,1,304,0) | |
617 | KIDS Distr ibution sa ved on Dec 11, 2017@ 17:29:13 | |
618 | "BLD",1058 7,1,305,0) | |
619 | Comment: D G*5.3*948 12/11/17 | |
620 | "BLD",1058 7,1,306,0) | |
621 | ||
622 | "BLD",1058 7,1,307,0) | |
623 | This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s): | |
624 | "BLD",1058 7,1,308,0) | |
625 | Build DG*5 .3*948 has been load ed before, here is w hen: | |
626 | "BLD",1058 7,1,309,0) | |
627 | DG*5 .3*948 I nstall Com pleted | |
628 | "BLD",1058 7,1,310,0) | |
629 | w as loaded on Oct 03, 2017@15:4 5:55 | |
630 | "BLD",1058 7,1,311,0) | |
631 | DG*5 .3*948 I nstall Com pleted | |
632 | "BLD",1058 7,1,312,0) | |
633 | w as loaded on Oct 03, 2017@20:5 4:59 | |
634 | "BLD",1058 7,1,313,0) | |
635 | DG*5 .3*948 I nstall Com pleted | |
636 | "BLD",1058 7,1,314,0) | |
637 | w as loaded on Oct 10, 2017@15:2 2:03 | |
638 | "BLD",1058 7,1,315,0) | |
639 | DG*5 .3*948 I nstall Com pleted | |
640 | "BLD",1058 7,1,316,0) | |
641 | w as loaded on Oct 31, 2017@13:4 4:06 | |
642 | "BLD",1058 7,1,317,0) | |
643 | DG*5 .3*948 I nstall Com pleted | |
644 | "BLD",1058 7,1,318,0) | |
645 | w as loaded on Nov 15, 2017@00:1 1:34 | |
646 | "BLD",1058 7,1,319,0) | |
647 | DG*5 .3*948 I nstall Com pleted | |
648 | "BLD",1058 7,1,320,0) | |
649 | w as loaded on Nov 20, 2017@14:5 8 | |
650 | "BLD",1058 7,1,321,0) | |
651 | DG*5 .3*948 I nstall Com pleted | |
652 | "BLD",1058 7,1,322,0) | |
653 | w as loaded on Nov 21, 2017@15:3 8:42 | |
654 | "BLD",1058 7,1,323,0) | |
655 | DG*5 .3*948 I nstall Com pleted | |
656 | "BLD",1058 7,1,324,0) | |
657 | w as loaded on Nov 30, 2017@15:0 4:49 | |
658 | "BLD",1058 7,1,325,0) | |
659 | DG*5 .3*948 I nstall Com pleted | |
660 | "BLD",1058 7,1,326,0) | |
661 | w as loaded on Dec 05, 2017@16:1 4:51 | |
662 | "BLD",1058 7,1,327,0) | |
663 | OK to cont inue with Load? NO// YES | |
664 | "BLD",1058 7,1,328,0) | |
665 | ||
666 | "BLD",1058 7,1,329,0) | |
667 | Distributi on OK! | |
668 | "BLD",1058 7,1,330,0) | |
669 | ||
670 | "BLD",1058 7,1,331,0) | |
671 | Want to Co ntinue wit h Load? YE S// | |
672 | "BLD",1058 7,1,332,0) | |
673 | Loading Di stribution ... | |
674 | "BLD",1058 7,1,333,0) | |
675 | ||
676 | "BLD",1058 7,1,334,0) | |
677 | DG*5.3* 948 | |
678 | "BLD",1058 7,1,335,0) | |
679 | Use INSTAL L NAME: DG *5.3*948 t o install this Distr ibution. | |
680 | "BLD",1058 7,1,336,0) | |
681 | ||
682 | "BLD",1058 7,1,337,0) | |
683 | VISTA>D ^X UP | |
684 | "BLD",1058 7,1,338,0) | |
685 | ||
686 | "BLD",1058 7,1,339,0) | |
687 | Setting up programme r environm ent | |
688 | "BLD",1058 7,1,340,0) | |
689 | This is a TEST accou nt. | |
690 | "BLD",1058 7,1,341,0) | |
691 | ||
692 | "BLD",1058 7,1,342,0) | |
693 | Terminal T ype set to : C-VT100 | |
694 | "BLD",1058 7,1,343,0) | |
695 | ||
696 | "BLD",1058 7,1,344,0) | |
697 | Select OPT ION NAME: XPD INS | |
698 | "BLD",1058 7,1,345,0) | |
699 | 1 X PD INSTALL BUILD Install Package(s ) | |
700 | "BLD",1058 7,1,346,0) | |
701 | 2 X PD INSTALL ATION MENU Ins tallation | |
702 | "BLD",1058 7,1,347,0) | |
703 | CHOOSE 1-2 : 1 XPD I NSTALL BUI LD Ins tall Packa ge(s) | |
704 | "BLD",1058 7,1,348,0) | |
705 | Install Pa ckage(s) | |
706 | "BLD",1058 7,1,349,0) | |
707 | Select INS TALL NAME: DG*5.3 *948 L oaded from Distribut ion | |
708 | "BLD",1058 7,1,350,0) | |
709 | 12/12/17@2 3:4 | |
710 | "BLD",1058 7,1,351,0) | |
711 | 5:01 | |
712 | "BLD",1058 7,1,352,0) | |
713 | => DG *5.3*948 1 2/11/17 ; Created on Dec 11, 2 017@17:29: 13 | |
714 | "BLD",1058 7,1,353,0) | |
715 | ||
716 | "BLD",1058 7,1,354,0) | |
717 | This Distr ibution wa s loaded o n Dec 12, 2017@23:45 :01 with h eader of | |
718 | "BLD",1058 7,1,355,0) | |
719 | DG*5.3* 948 12/11/ 17 ;Creat ed on Dec 11, 2017@1 7:29:13 | |
720 | "BLD",1058 7,1,356,0) | |
721 | It cons isted of t he followi ng Install (s): | |
722 | "BLD",1058 7,1,357,0) | |
723 | DG*5. 3*948 | |
724 | "BLD",1058 7,1,358,0) | |
725 | Checking I nstall for Package D G*5.3*948 | |
726 | "BLD",1058 7,1,359,0) | |
727 | ||
728 | "BLD",1058 7,1,360,0) | |
729 | Install Qu estions fo r DG*5.3*9 48 | |
730 | "BLD",1058 7,1,361,0) | |
731 | ||
732 | "BLD",1058 7,1,362,0) | |
733 | Incoming F iles: | |
734 | "BLD",1058 7,1,363,0) | |
735 | ||
736 | "BLD",1058 7,1,364,0) | |
737 | ||
738 | "BLD",1058 7,1,365,0) | |
739 | 2 PATIENT (Partial Definitio n) | |
740 | "BLD",1058 7,1,366,0) | |
741 | Note: You already h ave the 'P ATIENT' Fi le. | |
742 | "BLD",1058 7,1,367,0) | |
743 | ||
744 | "BLD",1058 7,1,368,0) | |
745 | ||
746 | "BLD",1058 7,1,369,0) | |
747 | 26.14 PRF ASS IGNMENT HI STORY (Pa rtial Defi nition) | |
748 | "BLD",1058 7,1,370,0) | |
749 | Note: You already h ave the 'P RF ASSIGNM ENT HISTOR Y' File. | |
750 | "BLD",1058 7,1,371,0) | |
751 | ||
752 | "BLD",1058 7,1,372,0) | |
753 | ||
754 | "BLD",1058 7,1,373,0) | |
755 | 38.1 DG SECU RITY LOG (Partial D efinition) | |
756 | "BLD",1058 7,1,374,0) | |
757 | Note: You already h ave the 'D G SECURITY LOG' File . | |
758 | "BLD",1058 7,1,375,0) | |
759 | ||
760 | "BLD",1058 7,1,376,0) | |
761 | ||
762 | "BLD",1058 7,1,377,0) | |
763 | 41.41 PRE-REG ISTRATION AUDIT (Pa rtial Defi nition) | |
764 | "BLD",1058 7,1,378,0) | |
765 | Note: You already h ave the 'P RE-REGISTR ATION AUDI T' File. | |
766 | "BLD",1058 7,1,379,0) | |
767 | ||
768 | "BLD",1058 7,1,380,0) | |
769 | ||
770 | "BLD",1058 7,1,381,0) | |
771 | 391.71 ADT/HL7 PIVOT (P artial Def inition) | |
772 | "BLD",1058 7,1,382,0) | |
773 | Note: You already h ave the 'A DT/HL7 PIV OT' File. | |
774 | "BLD",1058 7,1,383,0) | |
775 | ||
776 | "BLD",1058 7,1,384,0) | |
777 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install? NO// | |
778 | "BLD",1058 7,1,385,0) | |
779 | ||
780 | "BLD",1058 7,1,386,0) | |
781 | ||
782 | "BLD",1058 7,1,387,0) | |
783 | Want KIDS to INHIBIT LOGONs du ring the i nstall? NO // | |
784 | "BLD",1058 7,1,388,0) | |
785 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls? NO// | |
786 | "BLD",1058 7,1,389,0) | |
787 | ||
788 | "BLD",1058 7,1,390,0) | |
789 | Enter the Device you want to p rint the I nstall mes sages. | |
790 | "BLD",1058 7,1,391,0) | |
791 | You can qu eue the in stall by e nter a 'Q' at the de vice promp t. | |
792 | "BLD",1058 7,1,392,0) | |
793 | Enter a '^ ' to abort the insta ll. | |
794 | "BLD",1058 7,1,393,0) | |
795 | ||
796 | "BLD",1058 7,1,394,0) | |
797 | DEVICE: HO ME// ;;999 999 CONSO LE | |
798 | "BLD",1058 7,1,395,0) | |
799 | ||
800 | "BLD",1058 7,1,396,0) | |
801 | Install S tarted for DG*5.3*94 8 : | |
802 | "BLD",1058 7,1,397,0) | |
803 | Dec 1 2, 2017@23 :45:18 | |
804 | "BLD",1058 7,1,398,0) | |
805 | ||
806 | "BLD",1058 7,1,399,0) | |
807 | Build Dist ribution D ate: Dec 1 1, 2017 | |
808 | "BLD",1058 7,1,400,0) | |
809 | ||
810 | "BLD",1058 7,1,401,0) | |
811 | Installin g Routines : | |
812 | "BLD",1058 7,1,402,0) | |
813 | Dec 1 2, 2017@23 :45:19 | |
814 | "BLD",1058 7,1,403,0) | |
815 | ||
816 | "BLD",1058 7,1,404,0) | |
817 | Installin g Data Dic tionaries: | |
818 | "BLD",1058 7,1,405,0) | |
819 | Dec 1 2, 2017@23 :45:24 | |
820 | "BLD",1058 7,1,406,0) | |
821 | ||
822 | "BLD",1058 7,1,407,0) | |
823 | Installin g PACKAGE COMPONENTS : | |
824 | "BLD",1058 7,1,408,0) | |
825 | ||
826 | "BLD",1058 7,1,409,0) | |
827 | Installin g PROTOCOL | |
828 | "BLD",1058 7,1,410,0) | |
829 | ||
830 | "BLD",1058 7,1,411,0) | |
831 | Installin g OPTION | |
832 | "BLD",1058 7,1,412,0) | |
833 | ||
834 | "BLD",1058 7,1,413,0) | |
835 | Installin g PARAMETE R DEFINITI ON | |
836 | "BLD",1058 7,1,414,0) | |
837 | ||
838 | "BLD",1058 7,1,415,0) | |
839 | Installin g HLO APPL ICATION RE GISTRY | |
840 | "BLD",1058 7,1,416,0) | |
841 | Dec 1 2, 2017@23 :45:24 | |
842 | "BLD",1058 7,1,417,0) | |
843 | ||
844 | "BLD",1058 7,1,418,0) | |
845 | Updating Routine fi le... | |
846 | "BLD",1058 7,1,419,0) | |
847 | ||
848 | "BLD",1058 7,1,420,0) | |
849 | Updating KIDS files ... | |
850 | "BLD",1058 7,1,421,0) | |
851 | ||
852 | "BLD",1058 7,1,422,0) | |
853 | DG*5.3*94 8 Installe d. | |
854 | "BLD",1058 7,1,423,0) | |
855 | Dec 1 2, 2017@23 :45:25 | |
856 | "BLD",1058 7,1,424,0) | |
857 | ||
858 | "BLD",1058 7,1,425,0) | |
859 | No link t o PACKAGE file | |
860 | "BLD",1058 7,1,426,0) | |
861 | ||
862 | "BLD",1058 7,1,427,0) | |
863 | NO Instal l Message sent | |
864 | "BLD",1058 7,1,428,0) | |
865 | ||
866 | "BLD",1058 7,1,429,0) | |
867 | Install Co mpleted | |
868 | "BLD",1058 7,1,430,0) | |
869 | ||
870 | "BLD",1058 7,1,431,0) | |
871 | VISTA> | |
872 | "BLD",1058 7,1,432,0) | |
873 | ||
874 | "BLD",1058 7,1,433,0) | |
875 | ||
876 | "BLD",1058 7,1,434,0) | |
877 | Patch Back out Instru ctions: | |
878 | "BLD",1058 7,1,435,0) | |
879 | ---------- ---------- ------ | |
880 | "BLD",1058 7,1,436,0) | |
881 | 1. Go to MailMa n menu, ch oose optio n Read/Man age Messag es and sel ect | |
882 | "BLD",1058 7,1,437,0) | |
883 | the backup message t hat was cr eating dur ing Instal lation ste p 3.c - Ba ckup | |
884 | "BLD",1058 7,1,438,0) | |
885 | 2. Wh en prompte d 'Type <E nter> to c ontinue or '^' to ex it:' type '^' | |
886 | "BLD",1058 7,1,439,0) | |
887 | and then < Enter> | |
888 | "BLD",1058 7,1,440,0) | |
889 | 3. Wh en prompte d 'Enter m essage act ion:' type 'Xtract P ackMan' an d | |
890 | "BLD",1058 7,1,441,0) | |
891 | then <Ente r> | |
892 | "BLD",1058 7,1,442,0) | |
893 | 4. Th e followin g message and the pr ompt will display: | |
894 | "BLD",1058 7,1,443,0) | |
895 | Warning: I nstalling this messa ge will ca use a perm anent upda te of glob als | |
896 | "BLD",1058 7,1,444,0) | |
897 | and routin es. | |
898 | "BLD",1058 7,1,445,0) | |
899 | Do you rea lly want t o do this? NO//' typ e 'YES' an d then <En ter> | |
900 | "BLD",1058 7,1,446,0) | |
901 | 5. Wh en prompte d: | |
902 | "BLD",1058 7,1,447,0) | |
903 | 'Shall I p reserve th e routines on disk i n a separa te back-up message? | |
904 | "BLD",1058 7,1,448,0) | |
905 | YES//' typ e 'NO' and then <Ent er> | |
906 | "BLD",1058 7,1,449,0) | |
907 | 6. Th e system w ill displa y the foll owing mess age and sh ow all the | |
908 | "BLD",1058 7,1,450,0) | |
909 | routines t hat were u nloaded co nfirming t hat all th e routines in the bu ild | |
910 | "BLD",1058 7,1,451,0) | |
911 | have been restored t o the prio r version (unloaded) : | |
912 | "BLD",1058 7,1,452,0) | |
913 | 'No backup message b uilt. | |
914 | "BLD",1058 7,1,453,0) | |
915 | ***LIST o f routines from back up. See fu ll routine list at t he end of the | |
916 | "BLD",1058 7,1,454,0) | |
917 | document** * | |
918 | "BLD",1058 7,1,455,0) | |
919 | ||
920 | "BLD",1058 7,1,456,0) | |
921 | Select Pac kMan funct ion: and t hen <Enter >' | |
922 | "BLD",1058 7,1,457,0) | |
923 | 7. ne xVerify th at all six routines are listed as above have been | |
924 | "BLD",1058 7,1,458,0) | |
925 | backed out : | |
926 | "BLD",1058 7,1,459,0) | |
927 | No backup message bu ilt. | |
928 | "BLD",1058 7,1,460,0) | |
929 | When promp ted 'Want KIDS to IN HIBIT LOGO Ns during the instal l? NO//' | |
930 | "BLD",1058 7,1,461,0) | |
931 | Press <Ent er>. | |
932 | "BLD",1058 7,1,462,0) | |
933 | When promp ted 'Want to DISABLE Scheduled Options, Menu Optio ns, and | |
934 | "BLD",1058 7,1,463,0) | |
935 | Protocols? NO//' | |
936 | "BLD",1058 7,1,464,0) | |
937 | Press <Ent er>. | |
938 | "BLD",1058 7,1,465,0) | |
939 | If prompte d 'Delay I nstall (Mi nutes): ( 0 - 60): 0 //' respon d 0. | |
940 | "BLD",1058 7,1,466,0) | |
941 | ||
942 | "BLD",1058 7,1,467,0) | |
943 | 8. Th ere are no globals t hat are be ing saved off for th is patch t o | |
944 | "BLD",1058 7,1,468,0) | |
945 | restore. A ll other o bjects sho uld be man ually back ed out or deleted | |
946 | "BLD",1058 7,1,469,0) | |
947 | Fileman. | |
948 | "BLD",1058 7,1,470,0) | |
949 | 9. De leting Fil es: | |
950 | "BLD",1058 7,1,471,0) | |
951 | The follow ing filema n files sh ould be de leted unde r their re spective | |
952 | "BLD",1058 7,1,472,0) | |
953 | groups. To delete th e file, op en fileman for the f ile specif ied. Look for | |
954 | "BLD",1058 7,1,473,0) | |
955 | the name a nd once se lected ent er @ to en ter the de lete optio n. | |
956 | "BLD",1058 7,1,474,0) | |
957 | ||
958 | "BLD",1058 7,1,475,0) | |
959 | Example: | |
960 | "BLD",1058 7,1,476,0) | |
961 | VA FileMan 22.2 | |
962 | "BLD",1058 7,1,477,0) | |
963 | ||
964 | "BLD",1058 7,1,478,0) | |
965 | ||
966 | "BLD",1058 7,1,479,0) | |
967 | Select OPT ION: 1 EN TER OR EDI T FILE ENT RIES | |
968 | "BLD",1058 7,1,480,0) | |
969 | ||
970 | "BLD",1058 7,1,481,0) | |
971 | ||
972 | "BLD",1058 7,1,482,0) | |
973 | ||
974 | "BLD",1058 7,1,483,0) | |
975 | Input to w hat File: PROTOCOL// (4498 en tries) | |
976 | "BLD",1058 7,1,484,0) | |
977 | EDIT WHICH FIELD: AL L// | |
978 | "BLD",1058 7,1,485,0) | |
979 | ||
980 | "BLD",1058 7,1,486,0) | |
981 | ||
982 | "BLD",1058 7,1,487,0) | |
983 | Select PRO TOCOL NAME : SD SIU T RIGGER SD SIU TRIGGER | |
984 | "BLD",1058 7,1,488,0) | |
985 | NAME: SD S IU TRIGGER // @ | |
986 | "BLD",1058 7,1,489,0) | |
987 | SURE YO U WANT TO DELETE THE ENTIRE 'S D SIU TRIG GER' PROTO COL? | |
988 | "BLD",1058 7,1,490,0) | |
989 | ||
990 | "BLD",1058 7,1,491,0) | |
991 | ||
992 | "BLD",1058 7,1,492,0) | |
993 | HLO Applic ations: | |
994 | "BLD",1058 7,1,493,0) | |
995 | DG-REG-OUT | |
996 | "BLD",1058 7,1,494,0) | |
997 | ||
998 | "BLD",1058 7,1,495,0) | |
999 | HLO Logica l Links: | |
1000 | "BLD",1058 7,1,496,0) | |
1001 | DG ADT OUT | |
1002 | "BLD",1058 7,1,497,0) | |
1003 | ||
1004 | "BLD",1058 7,1,498,0) | |
1005 | Parameters : | |
1006 | "BLD",1058 7,1,499,0) | |
1007 | DGMX MASS ENABLE | |
1008 | "BLD",1058 7,1,500,0) | |
1009 | SDMX PATIE NT IEN ASS IGNING | |
1010 | "BLD",1058 7,1,501,0) | |
1011 | DGMC CONV THREADS | |
1012 | "BLD",1058 7,1,502,0) | |
1013 | ||
1014 | "BLD",1058 7,1,503,0) | |
1015 | Protocol: | |
1016 | "BLD",1058 7,1,504,0) | |
1017 | DGMX DEMOG RAPHICS MO NITOR | |
1018 | "BLD",1058 7,1,505,0) | |
1019 | DGMX MASS Demographi cs Update | |
1020 | "BLD",1058 7,1,506,0) | |
1021 | ||
1022 | "BLD",1058 7,1,507,0) | |
1023 | ||
1024 | "BLD",1058 7,1,508,0) | |
1025 | 10. To clean up the cross references run BACKO UT^DGMXPOS T to clean up | |
1026 | "BLD",1058 7,1,509,0) | |
1027 | the cross references . | |
1028 | "BLD",1058 7,1,510,0) | |
1029 | ||
1030 | "BLD",1058 7,1,511,0) | |
1031 | ||
1032 | "BLD",1058 7,1,512,0) | |
1033 | ||
1034 | "BLD",1058 7,1,513,0) | |
1035 | ||
1036 | "BLD",1058 7,1,514,0) | |
1037 | ||
1038 | "BLD",1058 7,1,515,0) | |
1039 | Post-Insta llation In structions : | |
1040 | "BLD",1058 7,1,516,0) | |
1041 | ---------- ---------- ---------- - | |
1042 | "BLD",1058 7,1,517,0) | |
1043 | See Techni cal Manual for cross reference /object co ntents ver ification | |
1044 | "BLD",1058 7,1,518,0) | |
1045 | ||
1046 | "BLD",1058 7,1,519,0) | |
1047 | Check list to Verify : | |
1048 | "BLD",1058 7,1,520,0) | |
1049 | 1. It em list ab ove for th e Patient, PRF ASSIG NMENT HIST ORY, DG | |
1050 | "BLD",1058 7,1,521,0) | |
1051 | SECURITY L OG, PRE-RE GISTARTION AUDIT, an d ADT/HL7 PIVOT fil e. | |
1052 | "BLD",1058 7,1,522,0) | |
1053 | 2. HL O Applicat ions | |
1054 | "BLD",1058 7,1,523,0) | |
1055 | 3. HL Logical L inks | |
1056 | "BLD",1058 7,1,524,0) | |
1057 | 4. Pr otocol | |
1058 | "BLD",1058 7,1,525,0) | |
1059 | 5. Pa rameters | |
1060 | "BLD",1058 7,1,526,0) | |
1061 | 6. Op tions | |
1062 | "BLD",1058 7,1,527,0) | |
1063 | ||
1064 | "BLD",1058 7,1,528,0) | |
1065 | ||
1066 | "BLD",1058 7,1,529,0) | |
1067 | ||
1068 | "BLD",1058 7,1,530,0) | |
1069 | ||
1070 | "BLD",1058 7,1,531,0) | |
1071 | ||
1072 | "BLD",1058 7,1,532,0) | |
1073 | ||
1074 | "BLD",1058 7,1,533,0) | |
1075 | ||
1076 | "BLD",1058 7,1,534,0) | |
1077 | ||
1078 | "BLD",1058 7,1,535,0) | |
1079 | ||
1080 | "BLD",1058 7,1,536,0) | |
1081 | ||
1082 | "BLD",1058 7,1,537,0) | |
1083 | ||
1084 | "BLD",1058 7,1,538,0) | |
1085 | ||
1086 | "BLD",1058 7,1,539,0) | |
1087 | ||
1088 | "BLD",1058 7,1,540,0) | |
1089 | ||
1090 | "BLD",1058 7,1,541,0) | |
1091 | ||
1092 | "BLD",1058 7,1,542,0) | |
1093 | ||
1094 | "BLD",1058 7,1,543,0) | |
1095 | ||
1096 | "BLD",1058 7,1,544,0) | |
1097 | ||
1098 | "BLD",1058 7,1,545,0) | |
1099 | ||
1100 | "BLD",1058 7,1,546,0) | |
1101 | ||
1102 | "BLD",1058 7,1,547,0) | |
1103 | *;OCTOBER 05,2017 | |
1104 | "BLD",1058 7,1,548,0) | |
1105 | ||
1106 | "BLD",1058 7,1,549,0) | |
1107 | VAFCDD01 | |
1108 | "BLD",1058 7,1,550,0) | |
1109 | VAFCDD01 ; ALB/JRP,LT L-DATA DIC TIONARY UT ILITIES ;0 5-SEP-1996 | |
1110 | "BLD",1058 7,1,551,0) | |
1111 | VAFCMSG | |
1112 | "BLD",1058 7,1,552,0) | |
1113 | VAFCMSG ;A LB/JRP-BAC KGROUND JO B TO TRANS MIT ENTRIE S IN PIVOT FILE ; | |
1114 | "BLD",1058 7,1,553,0) | |
1115 | 3/2/04 12: 54pm | |
1116 | "BLD",1058 7,1,554,0) | |
1117 | ;; 5.3;Regist ration;**9 1,149,530, 578,948**; Jun 06, 19 96;Build 5 | |
1118 | "BLD",1058 7,1,555,0) | |
1119 | ||
1120 | "BLD",1058 7,1,556,0) | |
1121 | VAFHLZSP | |
1122 | "BLD",1058 7,1,557,0) | |
1123 | VAFHLZSP ; ALB/RJS,TD M,PJH - ZS P SEGMENT - 3/18/96 ; 5/30/07 4:21pm | |
1124 | "BLD",1058 7,1,558,0) | |
1125 | ;; 5.3;Regist ration;**9 4,106,122, 220,653,75 4,948**;Au g 13, | |
1126 | "BLD",1058 7,1,559,0) | |
1127 | 1993;Build 5 | |
1128 | "BLD",1058 7,4,0) | |
1129 | ^9.64PA^27 .11^6 | |
1130 | "BLD",1058 7,4,2,0) | |
1131 | 2 | |
1132 | "BLD",1058 7,4,2,2,0) | |
1133 | ^9.641^2.0 361^3 | |
1134 | "BLD",1058 7,4,2,2,2, 0) | |
1135 | PATIENT ( File-top l evel) | |
1136 | "BLD",1058 7,4,2,2,2, 1,0) | |
1137 | ^9.6411^.0 24^43 | |
1138 | "BLD",1058 7,4,2,2,2, 1,.01,0) | |
1139 | NAME | |
1140 | "BLD",1058 7,4,2,2,2, 1,.02,0) | |
1141 | SEX | |
1142 | "BLD",1058 7,4,2,2,2, 1,.024,0) | |
1143 | SELF IDENT IFIED GEND ER | |
1144 | "BLD",1058 7,4,2,2,2, 1,.03,0) | |
1145 | DATE OF BI RTH | |
1146 | "BLD",1058 7,4,2,2,2, 1,.09,0) | |
1147 | SOCIAL SEC URITY NUMB ER | |
1148 | "BLD",1058 7,4,2,2,2, 1,.116,0) | |
1149 | ZIP CODE | |
1150 | "BLD",1058 7,4,2,2,2, 1,.121,0) | |
1151 | BAD ADDRES S INDICATO R | |
1152 | "BLD",1058 7,4,2,2,2, 1,.1211,0) | |
1153 | TEMPORARY STREET [LI NE 1] | |
1154 | "BLD",1058 7,4,2,2,2, 1,.1212,0) | |
1155 | TEMPORARY STREET [LI NE 2] | |
1156 | "BLD",1058 7,4,2,2,2, 1,.1213,0) | |
1157 | TEMPORARY STREET [LI NE 3] | |
1158 | "BLD",1058 7,4,2,2,2, 1,.1214,0) | |
1159 | TEMPORARY CITY | |
1160 | "BLD",1058 7,4,2,2,2, 1,.1215,0) | |
1161 | TEMPORARY STATE | |
1162 | "BLD",1058 7,4,2,2,2, 1,.1216,0) | |
1163 | TEMPORARY ZIP CODE | |
1164 | "BLD",1058 7,4,2,2,2, 1,.1217,0) | |
1165 | TEMPORARY ADDRESS ST ART DATE | |
1166 | "BLD",1058 7,4,2,2,2, 1,.1218,0) | |
1167 | TEMPORARY ADDRESS EN D DATE | |
1168 | "BLD",1058 7,4,2,2,2, 1,.1223,0) | |
1169 | TEMPORARY ADDRESS CO UNTRY | |
1170 | "BLD",1058 7,4,2,2,2, 1,.133,0) | |
1171 | EMAIL ADDR ESS | |
1172 | "BLD",1058 7,4,2,2,2, 1,.134,0) | |
1173 | PHONE NUMB ER [CELLUL AR] | |
1174 | "BLD",1058 7,4,2,2,2, 1,.1411,0) | |
1175 | CONFIDENTI AL STREET [LINE 1] | |
1176 | "BLD",1058 7,4,2,2,2, 1,.14116,0 ) | |
1177 | CONFIDENTI AL ADDR CO UNTRY | |
1178 | "BLD",1058 7,4,2,2,2, 1,.1412,0) | |
1179 | CONFIDENTI AL STREET [LINE 2] | |
1180 | "BLD",1058 7,4,2,2,2, 1,.1413,0) | |
1181 | CONFIDENTI AL STREET [LINE 3] | |
1182 | "BLD",1058 7,4,2,2,2, 1,.1414,0) | |
1183 | CONFIDENTI AL ADDRESS CITY | |
1184 | "BLD",1058 7,4,2,2,2, 1,.1415,0) | |
1185 | CONFIDENTI AL ADDRESS STATE | |
1186 | "BLD",1058 7,4,2,2,2, 1,.1416,0) | |
1187 | CONFIDENTI AL ADDRESS ZIP CODE | |
1188 | "BLD",1058 7,4,2,2,2, 1,.1417,0) | |
1189 | CONFIDENTI AL START D ATE | |
1190 | "BLD",1058 7,4,2,2,2, 1,.1418,0) | |
1191 | CONFIDENTI AL END DAT E | |
1192 | "BLD",1058 7,4,2,2,2, 1,.331,0) | |
1193 | E-NAME | |
1194 | "BLD",1058 7,4,2,2,2, 1,.332,0) | |
1195 | E-RELATION SHIP TO PA TIENT | |
1196 | "BLD",1058 7,4,2,2,2, 1,.333,0) | |
1197 | E-STREET A DDRESS [LI NE 1] | |
1198 | "BLD",1058 7,4,2,2,2, 1,.334,0) | |
1199 | E-STREET A DDRESS [LI NE 2] | |
1200 | "BLD",1058 7,4,2,2,2, 1,.335,0) | |
1201 | E-STREET A DDRESS [LI NE 3] | |
1202 | "BLD",1058 7,4,2,2,2, 1,.336,0) | |
1203 | E-CITY | |
1204 | "BLD",1058 7,4,2,2,2, 1,.337,0) | |
1205 | E-STATE | |
1206 | "BLD",1058 7,4,2,2,2, 1,.338,0) | |
1207 | E-ZIP CODE | |
1208 | "BLD",1058 7,4,2,2,2, 1,.339,0) | |
1209 | E-PHONE NU MBER | |
1210 | "BLD",1058 7,4,2,2,2, 1,.361,0) | |
1211 | PRIMARY EL IGIBILITY CODE | |
1212 | "BLD",1058 7,4,2,2,2, 1,.3611,0) | |
1213 | ELIGIBILIT Y STATUS | |
1214 | "BLD",1058 7,4,2,2,2, 1,.5291,0) | |
1215 | COMBAT SER VICE INDIC ATED? | |
1216 | "BLD",1058 7,4,2,2,2, 1,.5295,0) | |
1217 | COMBAT VET ERAN END D ATE | |
1218 | "BLD",1058 7,4,2,2,2, 1,220,0) | |
1219 | DENTAL CLA SSIFICATIO N | |
1220 | "BLD",1058 7,4,2,2,2, 1,1010.159 ,0) | |
1221 | APPOINTMEN T REQUEST ON 1010EZ | |
1222 | "BLD",1058 7,4,2,2,2, 1,1010.161 ,0) | |
1223 | APPOINTMEN T REQUEST STATUS | |
1224 | "BLD",1058 7,4,2,2,2. 01,0) | |
1225 | ALIAS (su b-file) | |
1226 | "BLD",1058 7,4,2,2,2. 01,1,0) | |
1227 | ^9.6411^.0 1^1 | |
1228 | "BLD",1058 7,4,2,2,2. 01,1,.01,0 ) | |
1229 | ALIAS | |
1230 | "BLD",1058 7,4,2,2,2. 0361,0) | |
1231 | PATIENT EL IGIBILITIE S (sub-fi le) | |
1232 | "BLD",1058 7,4,2,2,2. 0361,1,0) | |
1233 | ^9.6411^.0 1^1 | |
1234 | "BLD",1058 7,4,2,2,2. 0361,1,.01 ,0) | |
1235 | ELIGIBILIT Y | |
1236 | "BLD",1058 7,4,2,222) | |
1237 | y^y^p^^^^n ^^n | |
1238 | "BLD",1058 7,4,2,224) | |
1239 | ||
1240 | "BLD",1058 7,4,26.14, 0) | |
1241 | 26.14 | |
1242 | "BLD",1058 7,4,26.14, 2,0) | |
1243 | ^9.641^26. 14^1 | |
1244 | "BLD",1058 7,4,26.14, 2,26.14,0) | |
1245 | PRF ASSIGN MENT HISTO RY (File- top level) | |
1246 | "BLD",1058 7,4,26.14, 2,26.14,1, 0) | |
1247 | ^9.6411^.0 3^1 | |
1248 | "BLD",1058 7,4,26.14, 2,26.14,1, .03,0) | |
1249 | ACTION | |
1250 | "BLD",1058 7,4,26.14, 222) | |
1251 | y^y^p^^^^n ^^n | |
1252 | "BLD",1058 7,4,26.14, 224) | |
1253 | ||
1254 | "BLD",1058 7,4,27.11, 0) | |
1255 | 27.11 | |
1256 | "BLD",1058 7,4,27.11, 2,0) | |
1257 | ^9.641^27. 11^1 | |
1258 | "BLD",1058 7,4,27.11, 2,27.11,0) | |
1259 | PATIENT EN ROLLMENT (File-top level) | |
1260 | "BLD",1058 7,4,27.11, 2,27.11,1, 0) | |
1261 | ^9.6411^.0 4^2 | |
1262 | "BLD",1058 7,4,27.11, 2,27.11,1, .02,0) | |
1263 | PATIENT | |
1264 | "BLD",1058 7,4,27.11, 2,27.11,1, .04,0) | |
1265 | ENROLLMENT STATUS | |
1266 | "BLD",1058 7,4,27.11, 222) | |
1267 | y^y^p^^^^n ^^n | |
1268 | "BLD",1058 7,4,27.11, 224) | |
1269 | ||
1270 | "BLD",1058 7,4,38.1,0 ) | |
1271 | 38.1 | |
1272 | "BLD",1058 7,4,38.1,2 ,0) | |
1273 | ^9.641^38. 1^1 | |
1274 | "BLD",1058 7,4,38.1,2 ,38.1,0) | |
1275 | DG SECURIT Y LOG (Fi le-top lev el) | |
1276 | "BLD",1058 7,4,38.1,2 ,38.1,1,0) | |
1277 | ^9.6411^2^ 1 | |
1278 | "BLD",1058 7,4,38.1,2 ,38.1,1,2, 0) | |
1279 | SECURITY L EVEL | |
1280 | "BLD",1058 7,4,38.1,2 22) | |
1281 | y^y^p^^^^n ^^n | |
1282 | "BLD",1058 7,4,38.1,2 24) | |
1283 | ||
1284 | "BLD",1058 7,4,41.41, 0) | |
1285 | 41.41 | |
1286 | "BLD",1058 7,4,41.41, 2,0) | |
1287 | ^9.641^41. 41^1 | |
1288 | "BLD",1058 7,4,41.41, 2,41.41,0) | |
1289 | PRE-REGIST RATION AUD IT (File- top level) | |
1290 | "BLD",1058 7,4,41.41, 2,41.41,1, 0) | |
1291 | ^9.6411^1^ 1 | |
1292 | "BLD",1058 7,4,41.41, 2,41.41,1, 1,0) | |
1293 | DATE CHANG ED | |
1294 | "BLD",1058 7,4,41.41, 222) | |
1295 | y^y^p^^^^n ^^n | |
1296 | "BLD",1058 7,4,41.41, 224) | |
1297 | ||
1298 | "BLD",1058 7,4,391.71 ,0) | |
1299 | 391.71 | |
1300 | "BLD",1058 7,4,391.71 ,2,0) | |
1301 | ^9.641^391 .71^1 | |
1302 | "BLD",1058 7,4,391.71 ,2,391.71, 0) | |
1303 | ADT/HL7 PI VOT (File -top level ) | |
1304 | "BLD",1058 7,4,391.71 ,2,391.71, 1,0) | |
1305 | ^9.6411^.1 1^1 | |
1306 | "BLD",1058 7,4,391.71 ,2,391.71, 1,.11,0) | |
1307 | ENTRY WAS CREATED BY MASS EPIC | |
1308 | "BLD",1058 7,4,391.71 ,222) | |
1309 | y^y^p^^^^n ^^n | |
1310 | "BLD",1058 7,4,391.71 ,224) | |
1311 | ||
1312 | "BLD",1058 7,4,"APDD" ,2,2) | |
1313 | ||
1314 | "BLD",1058 7,4,"APDD" ,2,2,.01) | |
1315 | ||
1316 | "BLD",1058 7,4,"APDD" ,2,2,.02) | |
1317 | ||
1318 | "BLD",1058 7,4,"APDD" ,2,2,.024) | |
1319 | ||
1320 | "BLD",1058 7,4,"APDD" ,2,2,.03) | |
1321 | ||
1322 | "BLD",1058 7,4,"APDD" ,2,2,.09) | |
1323 | ||
1324 | "BLD",1058 7,4,"APDD" ,2,2,.116) | |
1325 | ||
1326 | "BLD",1058 7,4,"APDD" ,2,2,.121) | |
1327 | ||
1328 | "BLD",1058 7,4,"APDD" ,2,2,.1211 ) | |
1329 | ||
1330 | "BLD",1058 7,4,"APDD" ,2,2,.1212 ) | |
1331 | ||
1332 | "BLD",1058 7,4,"APDD" ,2,2,.1213 ) | |
1333 | ||
1334 | "BLD",1058 7,4,"APDD" ,2,2,.1214 ) | |
1335 | ||
1336 | "BLD",1058 7,4,"APDD" ,2,2,.1215 ) | |
1337 | ||
1338 | "BLD",1058 7,4,"APDD" ,2,2,.1216 ) | |
1339 | ||
1340 | "BLD",1058 7,4,"APDD" ,2,2,.1217 ) | |
1341 | ||
1342 | "BLD",1058 7,4,"APDD" ,2,2,.1218 ) | |
1343 | ||
1344 | "BLD",1058 7,4,"APDD" ,2,2,.1223 ) | |
1345 | ||
1346 | "BLD",1058 7,4,"APDD" ,2,2,.133) | |
1347 | ||
1348 | "BLD",1058 7,4,"APDD" ,2,2,.134) | |
1349 | ||
1350 | "BLD",1058 7,4,"APDD" ,2,2,.1411 ) | |
1351 | ||
1352 | "BLD",1058 7,4,"APDD" ,2,2,.1411 6) | |
1353 | ||
1354 | "BLD",1058 7,4,"APDD" ,2,2,.1412 ) | |
1355 | ||
1356 | "BLD",1058 7,4,"APDD" ,2,2,.1413 ) | |
1357 | ||
1358 | "BLD",1058 7,4,"APDD" ,2,2,.1414 ) | |
1359 | ||
1360 | "BLD",1058 7,4,"APDD" ,2,2,.1415 ) | |
1361 | ||
1362 | "BLD",1058 7,4,"APDD" ,2,2,.1416 ) | |
1363 | ||
1364 | "BLD",1058 7,4,"APDD" ,2,2,.1417 ) | |
1365 | ||
1366 | "BLD",1058 7,4,"APDD" ,2,2,.1418 ) | |
1367 | ||
1368 | "BLD",1058 7,4,"APDD" ,2,2,.331) | |
1369 | ||
1370 | "BLD",1058 7,4,"APDD" ,2,2,.332) | |
1371 | ||
1372 | "BLD",1058 7,4,"APDD" ,2,2,.333) | |
1373 | ||
1374 | "BLD",1058 7,4,"APDD" ,2,2,.334) | |
1375 | ||
1376 | "BLD",1058 7,4,"APDD" ,2,2,.335) | |
1377 | ||
1378 | "BLD",1058 7,4,"APDD" ,2,2,.336) | |
1379 | ||
1380 | "BLD",1058 7,4,"APDD" ,2,2,.337) | |
1381 | ||
1382 | "BLD",1058 7,4,"APDD" ,2,2,.338) | |
1383 | ||
1384 | "BLD",1058 7,4,"APDD" ,2,2,.339) | |
1385 | ||
1386 | "BLD",1058 7,4,"APDD" ,2,2,.361) | |
1387 | ||
1388 | "BLD",1058 7,4,"APDD" ,2,2,.3611 ) | |
1389 | ||
1390 | "BLD",1058 7,4,"APDD" ,2,2,.5291 ) | |
1391 | ||
1392 | "BLD",1058 7,4,"APDD" ,2,2,.5295 ) | |
1393 | ||
1394 | "BLD",1058 7,4,"APDD" ,2,2,220) | |
1395 | ||
1396 | "BLD",1058 7,4,"APDD" ,2,2,1010. 159) | |
1397 | ||
1398 | "BLD",1058 7,4,"APDD" ,2,2,1010. 161) | |
1399 | ||
1400 | "BLD",1058 7,4,"APDD" ,2,2.01) | |
1401 | ||
1402 | "BLD",1058 7,4,"APDD" ,2,2.01,.0 1) | |
1403 | ||
1404 | "BLD",1058 7,4,"APDD" ,2,2.0361) | |
1405 | ||
1406 | "BLD",1058 7,4,"APDD" ,2,2.0361, .01) | |
1407 | ||
1408 | "BLD",1058 7,4,"APDD" ,26.14,26. 14) | |
1409 | ||
1410 | "BLD",1058 7,4,"APDD" ,26.14,26. 14,.03) | |
1411 | ||
1412 | "BLD",1058 7,4,"APDD" ,27.11,27. 11) | |
1413 | ||
1414 | "BLD",1058 7,4,"APDD" ,27.11,27. 11,.02) | |
1415 | ||
1416 | "BLD",1058 7,4,"APDD" ,27.11,27. 11,.04) | |
1417 | ||
1418 | "BLD",1058 7,4,"APDD" ,38.1,38.1 ) | |
1419 | ||
1420 | "BLD",1058 7,4,"APDD" ,38.1,38.1 ,2) | |
1421 | ||
1422 | "BLD",1058 7,4,"APDD" ,41.41,41. 41) | |
1423 | ||
1424 | "BLD",1058 7,4,"APDD" ,41.41,41. 41,1) | |
1425 | ||
1426 | "BLD",1058 7,4,"APDD" ,391.71,39 1.71) | |
1427 | ||
1428 | "BLD",1058 7,4,"APDD" ,391.71,39 1.71,.11) | |
1429 | ||
1430 | "BLD",1058 7,4,"B",2, 2) | |
1431 | ||
1432 | "BLD",1058 7,4,"B",26 .14,26.14) | |
1433 | ||
1434 | "BLD",1058 7,4,"B",27 .11,27.11) | |
1435 | ||
1436 | "BLD",1058 7,4,"B",38 .1,38.1) | |
1437 | ||
1438 | "BLD",1058 7,4,"B",41 .41,41.41) | |
1439 | ||
1440 | "BLD",1058 7,4,"B",39 1.71,391.7 1) | |
1441 | ||
1442 | "BLD",1058 7,6.3) | |
1443 | 66 | |
1444 | "BLD",1058 7,"ABPKG") | |
1445 | n | |
1446 | "BLD",1058 7,"INI") | |
1447 | DGMXPRE | |
1448 | "BLD",1058 7,"INID") | |
1449 | ^n^n | |
1450 | "BLD",1058 7,"INIT") | |
1451 | DGMXPOST | |
1452 | "BLD",1058 7,"KRN",0) | |
1453 | ^9.67PA^77 9.2^20 | |
1454 | "BLD",1058 7,"KRN",.4 ,0) | |
1455 | .4 | |
1456 | "BLD",1058 7,"KRN",.4 01,0) | |
1457 | .401 | |
1458 | "BLD",1058 7,"KRN",.4 02,0) | |
1459 | .402 | |
1460 | "BLD",1058 7,"KRN",.4 03,0) | |
1461 | .403 | |
1462 | "BLD",1058 7,"KRN",.5 ,0) | |
1463 | .5 | |
1464 | "BLD",1058 7,"KRN",.8 4,0) | |
1465 | .84 | |
1466 | "BLD",1058 7,"KRN",3. 6,0) | |
1467 | 3.6 | |
1468 | "BLD",1058 7,"KRN",3. 8,0) | |
1469 | 3.8 | |
1470 | "BLD",1058 7,"KRN",9. 2,0) | |
1471 | 9.2 | |
1472 | "BLD",1058 7,"KRN",9. 8,0) | |
1473 | 9.8 | |
1474 | "BLD",1058 7,"KRN",9. 8,"NM",0) | |
1475 | ^9.68A^10^ 10 | |
1476 | "BLD",1058 7,"KRN",9. 8,"NM",1,0 ) | |
1477 | VAFCMSG^^0 ^B20895268 | |
1478 | "BLD",1058 7,"KRN",9. 8,"NM",2,0 ) | |
1479 | VAFCDD01^^ 0^B3902066 7 | |
1480 | "BLD",1058 7,"KRN",9. 8,"NM",3,0 ) | |
1481 | VAFHLZSP^^ 0^B5738866 | |
1482 | "BLD",1058 7,"KRN",9. 8,"NM",4,0 ) | |
1483 | DGMXADT^^0 ^B28572628 | |
1484 | "BLD",1058 7,"KRN",9. 8,"NM",5,0 ) | |
1485 | DGMXHL7^^0 ^B28578796 3 | |
1486 | "BLD",1058 7,"KRN",9. 8,"NM",6,0 ) | |
1487 | DGMXVLD^^0 ^B14924583 | |
1488 | "BLD",1058 7,"KRN",9. 8,"NM",7,0 ) | |
1489 | DGMXORU^^0 ^B54754724 | |
1490 | "BLD",1058 7,"KRN",9. 8,"NM",8,0 ) | |
1491 | DGMXCONV^^ 0^B4477612 3 | |
1492 | "BLD",1058 7,"KRN",9. 8,"NM",9,0 ) | |
1493 | DGMXPRE^^0 ^B1675692 | |
1494 | "BLD",1058 7,"KRN",9. 8,"NM",10, 0) | |
1495 | DGMXPOST^^ 0^B2249025 | |
1496 | "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXADT" ,4) | |
1497 | ||
1498 | "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXCONV ",8) | |
1499 | ||
1500 | "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXHL7" ,5) | |
1501 | ||
1502 | "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXORU" ,7) | |
1503 | ||
1504 | "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXPOST ",10) | |
1505 | ||
1506 | "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXPRE" ,9) | |
1507 | ||
1508 | "BLD",1058 7,"KRN",9. 8,"NM","B" ,"DGMXVLD" ,6) | |
1509 | ||
1510 | "BLD",1058 7,"KRN",9. 8,"NM","B" ,"VAFCDD01 ",2) | |
1511 | ||
1512 | "BLD",1058 7,"KRN",9. 8,"NM","B" ,"VAFCMSG" ,1) | |
1513 | ||
1514 | "BLD",1058 7,"KRN",9. 8,"NM","B" ,"VAFHLZSP ",3) | |
1515 | ||
1516 | "BLD",1058 7,"KRN",19 ,0) | |
1517 | 19 | |
1518 | "BLD",1058 7,"KRN",19 ,"NM",0) | |
1519 | ^9.68A^^0 | |
1520 | "BLD",1058 7,"KRN",19 .1,0) | |
1521 | 19.1 | |
1522 | "BLD",1058 7,"KRN",10 1,0) | |
1523 | 101 | |
1524 | "BLD",1058 7,"KRN",10 1,"NM",0) | |
1525 | ^9.68A^2^2 | |
1526 | "BLD",1058 7,"KRN",10 1,"NM",1,0 ) | |
1527 | DGMX DEMOG RAPHICS MO NITOR^^0 | |
1528 | "BLD",1058 7,"KRN",10 1,"NM",2,0 ) | |
1529 | DGMX MASS Demographi cs Update^ ^0 | |
1530 | "BLD",1058 7,"KRN",10 1,"NM","B" ,"DGMX DEM OGRAPHICS MONITOR",1 ) | |
1531 | ||
1532 | "BLD",1058 7,"KRN",10 1,"NM","B" ,"DGMX MAS S Demograp hics Updat e",2) | |
1533 | ||
1534 | "BLD",1058 7,"KRN",40 9.61,0) | |
1535 | 409.61 | |
1536 | "BLD",1058 7,"KRN",77 1,0) | |
1537 | 771 | |
1538 | "BLD",1058 7,"KRN",77 9.2,0) | |
1539 | 779.2 | |
1540 | "BLD",1058 7,"KRN",77 9.2,"NM",0 ) | |
1541 | ^9.68A^2^2 | |
1542 | "BLD",1058 7,"KRN",77 9.2,"NM",1 ,0) | |
1543 | DG-REG-OUT ^^0 | |
1544 | "BLD",1058 7,"KRN",77 9.2,"NM",2 ,0) | |
1545 | DG-ORU-OUT ^^0 | |
1546 | "BLD",1058 7,"KRN",77 9.2,"NM"," B","DG-ORU -OUT",2) | |
1547 | ||
1548 | "BLD",1058 7,"KRN",77 9.2,"NM"," B","DG-REG -OUT",1) | |
1549 | ||
1550 | "BLD",1058 7,"KRN",87 0,0) | |
1551 | 870 | |
1552 | "BLD",1058 7,"KRN",87 0,"NM",0) | |
1553 | ^9.68A^^0 | |
1554 | "BLD",1058 7,"KRN",89 89.51,0) | |
1555 | 8989.51 | |
1556 | "BLD",1058 7,"KRN",89 89.51,"NM" ,0) | |
1557 | ^9.68A^3^3 | |
1558 | "BLD",1058 7,"KRN",89 89.51,"NM" ,1,0) | |
1559 | DGMX PATIE NT IEN ASS IGNING^^0 | |
1560 | "BLD",1058 7,"KRN",89 89.51,"NM" ,2,0) | |
1561 | DGMX MASS ENABLED^^0 | |
1562 | "BLD",1058 7,"KRN",89 89.51,"NM" ,3,0) | |
1563 | DGMX CONV THREADS^^0 | |
1564 | "BLD",1058 7,"KRN",89 89.51,"NM" ,"B","DGMX CONV THRE ADS",3) | |
1565 | ||
1566 | "BLD",1058 7,"KRN",89 89.51,"NM" ,"B","DGMX MASS ENAB LED",2) | |
1567 | ||
1568 | "BLD",1058 7,"KRN",89 89.51,"NM" ,"B","DGMX PATIENT I EN ASSIGNI NG",1) | |
1569 | ||
1570 | "BLD",1058 7,"KRN",89 89.52,0) | |
1571 | 8989.52 | |
1572 | "BLD",1058 7,"KRN",89 94,0) | |
1573 | 8994 | |
1574 | "BLD",1058 7,"KRN","B ",.4,.4) | |
1575 | ||
1576 | "BLD",1058 7,"KRN","B ",.401,.40 1) | |
1577 | ||
1578 | "BLD",1058 7,"KRN","B ",.402,.40 2) | |
1579 | ||
1580 | "BLD",1058 7,"KRN","B ",.403,.40 3) | |
1581 | ||
1582 | "BLD",1058 7,"KRN","B ",.5,.5) | |
1583 | ||
1584 | "BLD",1058 7,"KRN","B ",.84,.84) | |
1585 | ||
1586 | "BLD",1058 7,"KRN","B ",3.6,3.6) | |
1587 | ||
1588 | "BLD",1058 7,"KRN","B ",3.8,3.8) | |
1589 | ||
1590 | "BLD",1058 7,"KRN","B ",9.2,9.2) | |
1591 | ||
1592 | "BLD",1058 7,"KRN","B ",9.8,9.8) | |
1593 | ||
1594 | "BLD",1058 7,"KRN","B ",19,19) | |
1595 | ||
1596 | "BLD",1058 7,"KRN","B ",19.1,19. 1) | |
1597 | ||
1598 | "BLD",1058 7,"KRN","B ",101,101) | |
1599 | ||
1600 | "BLD",1058 7,"KRN","B ",409.61,4 09.61) | |
1601 | ||
1602 | "BLD",1058 7,"KRN","B ",771,771) | |
1603 | ||
1604 | "BLD",1058 7,"KRN","B ",779.2,77 9.2) | |
1605 | ||
1606 | "BLD",1058 7,"KRN","B ",870,870) | |
1607 | ||
1608 | "BLD",1058 7,"KRN","B ",8989.51, 8989.51) | |
1609 | ||
1610 | "BLD",1058 7,"KRN","B ",8989.52, 8989.52) | |
1611 | ||
1612 | "BLD",1058 7,"KRN","B ",8994,899 4) | |
1613 | ||
1614 | "BLD",1058 7,"PRET") | |
1615 | ||
1616 | "BLD",1058 7,"QDEF") | |
1617 | ^^^^NO^^^^ NO^^NO | |
1618 | "BLD",1058 7,"QUES",0 ) | |
1619 | ^9.62^^ | |
1620 | "BLD",1058 7,"REQB",0 ) | |
1621 | ^9.611^4^4 | |
1622 | "BLD",1058 7,"REQB",1 ,0) | |
1623 | DG*5.3*754 ^2 | |
1624 | "BLD",1058 7,"REQB",2 ,0) | |
1625 | DG*5.3*578 ^2 | |
1626 | "BLD",1058 7,"REQB",3 ,0) | |
1627 | DG*5.3*149 ^2 | |
1628 | "BLD",1058 7,"REQB",4 ,0) | |
1629 | SD*5.3*676 ^2 | |
1630 | "BLD",1058 7,"REQB"," B","DG*5.3 *149",3) | |
1631 | ||
1632 | "BLD",1058 7,"REQB"," B","DG*5.3 *578",2) | |
1633 | ||
1634 | "BLD",1058 7,"REQB"," B","DG*5.3 *754",1) | |
1635 | ||
1636 | "BLD",1058 7,"REQB"," B","SD*5.3 *676",4) | |
1637 | ||
1638 | "FIA",2) | |
1639 | PATIENT | |
1640 | "FIA",2,0) | |
1641 | ^DPT( | |
1642 | "FIA",2,0, 0) | |
1643 | 2I | |
1644 | "FIA",2,0, 1) | |
1645 | y^y^p^^^^n ^^n | |
1646 | "FIA",2,0, 10) | |
1647 | ||
1648 | "FIA",2,0, 11) | |
1649 | ||
1650 | "FIA",2,0, "RLRO") | |
1651 | ||
1652 | "FIA",2,0, "VR") | |
1653 | 5.3^DG | |
1654 | "FIA",2,2) | |
1655 | 1 | |
1656 | "FIA",2,2, .01) | |
1657 | ||
1658 | "FIA",2,2, .02) | |
1659 | ||
1660 | "FIA",2,2, .024) | |
1661 | ||
1662 | "FIA",2,2, .03) | |
1663 | ||
1664 | "FIA",2,2, .09) | |
1665 | ||
1666 | "FIA",2,2, .116) | |
1667 | ||
1668 | "FIA",2,2, .121) | |
1669 | ||
1670 | "FIA",2,2, .1211) | |
1671 | ||
1672 | "FIA",2,2, .1212) | |
1673 | ||
1674 | "FIA",2,2, .1213) | |
1675 | ||
1676 | "FIA",2,2, .1214) | |
1677 | ||
1678 | "FIA",2,2, .1215) | |
1679 | ||
1680 | "FIA",2,2, .1216) | |
1681 | ||
1682 | "FIA",2,2, .1217) | |
1683 | ||
1684 | "FIA",2,2, .1218) | |
1685 | ||
1686 | "FIA",2,2, .1223) | |
1687 | ||
1688 | "FIA",2,2, .133) | |
1689 | ||
1690 | "FIA",2,2, .134) | |
1691 | ||
1692 | "FIA",2,2, .1411) | |
1693 | ||
1694 | "FIA",2,2, .14116) | |
1695 | ||
1696 | "FIA",2,2, .1412) | |
1697 | ||
1698 | "FIA",2,2, .1413) | |
1699 | ||
1700 | "FIA",2,2, .1414) | |
1701 | ||
1702 | "FIA",2,2, .1415) | |
1703 | ||
1704 | "FIA",2,2, .1416) | |
1705 | ||
1706 | "FIA",2,2, .1417) | |
1707 | ||
1708 | "FIA",2,2, .1418) | |
1709 | ||
1710 | "FIA",2,2, .331) | |
1711 | ||
1712 | "FIA",2,2, .332) | |
1713 | ||
1714 | "FIA",2,2, .333) | |
1715 | ||
1716 | "FIA",2,2, .334) | |
1717 | ||
1718 | "FIA",2,2, .335) | |
1719 | ||
1720 | "FIA",2,2, .336) | |
1721 | ||
1722 | "FIA",2,2, .337) | |
1723 | ||
1724 | "FIA",2,2, .338) | |
1725 | ||
1726 | "FIA",2,2, .339) | |
1727 | ||
1728 | "FIA",2,2, .361) | |
1729 | ||
1730 | "FIA",2,2, .3611) | |
1731 | ||
1732 | "FIA",2,2, .5291) | |
1733 | ||
1734 | "FIA",2,2, .5295) | |
1735 | ||
1736 | "FIA",2,2, 1) | |
1737 | ||
1738 | "FIA",2,2, 220) | |
1739 | ||
1740 | "FIA",2,2, 361) | |
1741 | ||
1742 | "FIA",2,2, 1010.159) | |
1743 | ||
1744 | "FIA",2,2, 1010.161) | |
1745 | ||
1746 | "FIA",2,2. 01) | |
1747 | 1 | |
1748 | "FIA",2,2. 01,.01) | |
1749 | ||
1750 | "FIA",2,2. 0361) | |
1751 | 1 | |
1752 | "FIA",2,2. 0361,.01) | |
1753 | ||
1754 | "FIA",26.1 4) | |
1755 | PRF ASSIGN MENT HISTO RY | |
1756 | "FIA",26.1 4,0) | |
1757 | ^DGPF(26.1 4, | |
1758 | "FIA",26.1 4,0,0) | |
1759 | 26.14IP | |
1760 | "FIA",26.1 4,0,1) | |
1761 | y^y^p^^^^n ^^n | |
1762 | "FIA",26.1 4,0,10) | |
1763 | ||
1764 | "FIA",26.1 4,0,11) | |
1765 | ||
1766 | "FIA",26.1 4,0,"RLRO" ) | |
1767 | ||
1768 | "FIA",26.1 4,0,"VR") | |
1769 | 5.3^DG | |
1770 | "FIA",26.1 4,26.14) | |
1771 | 1 | |
1772 | "FIA",26.1 4,26.14,.0 3) | |
1773 | ||
1774 | "FIA",27.1 1) | |
1775 | PATIENT EN ROLLMENT | |
1776 | "FIA",27.1 1,0) | |
1777 | ^DGEN(27.1 1, | |
1778 | "FIA",27.1 1,0,0) | |
1779 | 27.11OID | |
1780 | "FIA",27.1 1,0,1) | |
1781 | y^y^p^^^^n ^^n | |
1782 | "FIA",27.1 1,0,10) | |
1783 | ||
1784 | "FIA",27.1 1,0,11) | |
1785 | ||
1786 | "FIA",27.1 1,0,"RLRO" ) | |
1787 | ||
1788 | "FIA",27.1 1,0,"VR") | |
1789 | 5.3^DG | |
1790 | "FIA",27.1 1,27.11) | |
1791 | 1 | |
1792 | "FIA",27.1 1,27.11,.0 2) | |
1793 | ||
1794 | "FIA",27.1 1,27.11,.0 4) | |
1795 | ||
1796 | "FIA",38.1 ) | |
1797 | DG SECURIT Y LOG | |
1798 | "FIA",38.1 ,0) | |
1799 | ^DGSL(38.1 , | |
1800 | "FIA",38.1 ,0,0) | |
1801 | 38.1IP | |
1802 | "FIA",38.1 ,0,1) | |
1803 | y^y^p^^^^n ^^n | |
1804 | "FIA",38.1 ,0,10) | |
1805 | ||
1806 | "FIA",38.1 ,0,11) | |
1807 | ||
1808 | "FIA",38.1 ,0,"RLRO") | |
1809 | ||
1810 | "FIA",38.1 ,0,"VR") | |
1811 | 5.3^DG | |
1812 | "FIA",38.1 ,38.1) | |
1813 | 1 | |
1814 | "FIA",38.1 ,38.1,2) | |
1815 | ||
1816 | "FIA",41.4 1) | |
1817 | PRE-REGIST RATION AUD IT | |
1818 | "FIA",41.4 1,0) | |
1819 | ^DGS(41.41 , | |
1820 | "FIA",41.4 1,0,0) | |
1821 | 41.41PI | |
1822 | "FIA",41.4 1,0,1) | |
1823 | y^y^p^^^^n ^^n | |
1824 | "FIA",41.4 1,0,10) | |
1825 | ||
1826 | "FIA",41.4 1,0,11) | |
1827 | ||
1828 | "FIA",41.4 1,0,"RLRO" ) | |
1829 | ||
1830 | "FIA",41.4 1,0,"VR") | |
1831 | 5.3^DG | |
1832 | "FIA",41.4 1,41.41) | |
1833 | 1 | |
1834 | "FIA",41.4 1,41.41,1) | |
1835 | ||
1836 | "FIA",391. 71) | |
1837 | ADT/HL7 PI VOT | |
1838 | "FIA",391. 71,0) | |
1839 | ^VAT(391.7 1, | |
1840 | "FIA",391. 71,0,0) | |
1841 | 391.71I | |
1842 | "FIA",391. 71,0,1) | |
1843 | y^y^p^^^^n ^^n | |
1844 | "FIA",391. 71,0,10) | |
1845 | ||
1846 | "FIA",391. 71,0,11) | |
1847 | ||
1848 | "FIA",391. 71,0,"RLRO ") | |
1849 | ||
1850 | "FIA",391. 71,0,"VR") | |
1851 | 5.3^DG | |
1852 | "FIA",391. 71,391.71) | |
1853 | 1 | |
1854 | "FIA",391. 71,391.71, .11) | |
1855 | ||
1856 | "INI") | |
1857 | DGMXPRE | |
1858 | "INIT") | |
1859 | DGMXPOST | |
1860 | "IX",2,2," ACVCOM",0) | |
1861 | 2^ACVCOM^U pdate Comb at Vet Eli gibility E nd Date^MU ^^R^^I^2^^ ^^^A | |
1862 | "IX",2,2," ACVCOM",.1 ,0) | |
1863 | ^^11^11^30 30613^ | |
1864 | "IX",2,2," ACVCOM",.1 ,1,0) | |
1865 | This multi -level MUM PS x-ref w ill trigge r an updat e to the C ombat Vet | |
1866 | "IX",2,2," ACVCOM",.1 ,2,0) | |
1867 | Eligibilit y End Date field und er the fol lowing con ditions: | |
1868 | "IX",2,2," ACVCOM",.1 ,3,0) | |
1869 | 1) Servi ce Separat ion Date [ Last] is p recise and > 2981111 AND EITHE R | |
1870 | "IX",2,2," ACVCOM",.1 ,4,0) | |
1871 | 2) Comba t To Date is after 1 1/11/98 OR | |
1872 | "IX",2,2," ACVCOM",.1 ,5,0) | |
1873 | Persi an Gulf To Date is a fter 11/11 /98 OR | |
1874 | "IX",2,2," ACVCOM",.1 ,6,0) | |
1875 | Somal ia To Date is after 11/11/98 O R | |
1876 | "IX",2,2," ACVCOM",.1 ,7,0) | |
1877 | Yugos lavia To D ate is aft er 11/11/9 8 | |
1878 | "IX",2,2," ACVCOM",.1 ,8,0) | |
1879 | ||
1880 | "IX",2,2," ACVCOM",.1 ,9,0) | |
1881 | The Combat vet field will be s et to the Service Se paration D ate + 2 | |
1882 | "IX",2,2," ACVCOM",.1 ,10,0) | |
1883 | years, and will only be update d if infor mation in these fiel ds has | |
1884 | "IX",2,2," ACVCOM",.1 ,11,0) | |
1885 | changed. | |
1886 | "IX",2,2," ACVCOM",1) | |
1887 | N DGZ S DG Z=$S(X2(10 ):X2(10),1 :X2(1)) D SETCV^DGCV (DA,DGZ) | |
1888 | "IX",2,2," ACVCOM",1. 4) | |
1889 | I '$P($G(^ DPT(DA,.52 )),"^",15) S X=$$CVE LIG^DGCV(D A) | |
1890 | "IX",2,2," ACVCOM",2) | |
1891 | Q | |
1892 | "IX",2,2," ACVCOM",2. 4) | |
1893 | Q | |
1894 | "IX",2,2," ACVCOM",11 .1,0) | |
1895 | ^.114IA^10 ^10 | |
1896 | "IX",2,2," ACVCOM",11 .1,1,0) | |
1897 | 1^F^2^.327 ^^^F | |
1898 | "IX",2,2," ACVCOM",11 .1,2,0) | |
1899 | 2^F^2^.529 4^^^F | |
1900 | "IX",2,2," ACVCOM",11 .1,3,0) | |
1901 | 3^F^2^.322 021^^^F | |
1902 | "IX",2,2," ACVCOM",11 .1,4,0) | |
1903 | 4^F^2^.322 018^^^F | |
1904 | "IX",2,2," ACVCOM",11 .1,5,0) | |
1905 | 5^F^2^.322 012^^^F | |
1906 | "IX",2,2," ACVCOM",11 .1,6,0) | |
1907 | 6^F^2^.529 1^^^F | |
1908 | "IX",2,2," ACVCOM",11 .1,7,0) | |
1909 | 7^F^2^.322 019^^^F | |
1910 | "IX",2,2," ACVCOM",11 .1,8,0) | |
1911 | 8^F^2^.322 016^^^F | |
1912 | "IX",2,2," ACVCOM",11 .1,9,0) | |
1913 | 9^F^2^.322 01^^^F | |
1914 | "IX",2,2," ACVCOM",11 .1,10,0) | |
1915 | 10^C | |
1916 | "IX",2,2," ACVCOM",11 .1,10,1.5) | |
1917 | S X=$P($$L AST^DGMSEU TL(DA),U,2 ) | |
1918 | "IX",2,2," ADGFMD01", 0) | |
1919 | 2^ADGFMD01 ^This x-re f calls th e DG FIELD MONITOR e vent point .^MU^^F^I^ I^2^^^^^A | |
1920 | "IX",2,2," ADGFMD01", .1,0) | |
1921 | ^^5^5^3021 116 | |
1922 | "IX",2,2," ADGFMD01", .1,1,0) | |
1923 | This cross reference activates the DG FI ELD MONITO R event po int. | |
1924 | "IX",2,2," ADGFMD01", .1,2,0) | |
1925 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
1926 | "IX",2,2," ADGFMD01", .1,3,0) | |
1927 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
1928 | "IX",2,2," ADGFMD01", .1,4,0) | |
1929 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
1930 | "IX",2,2," ADGFMD01", .1,5,0) | |
1931 | the inform ation avai lable at t he time of the event . | |
1932 | "IX",2,2," ADGFMD01", 1) | |
1933 | D FC^DGFCP ROT(.DA,2, .01,"SET", $H,$G(DUZ) ,.X,.X1,.X 2,$G(XQY0) ) Q | |
1934 | "IX",2,2," ADGFMD01", 2) | |
1935 | D FC^DGFCP ROT(.DA,2, .01,"KILL" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q | |
1936 | "IX",2,2," ADGFMD01", 11.1,0) | |
1937 | ^.114IA^1^ 1 | |
1938 | "IX",2,2," ADGFMD01", 11.1,1,0) | |
1939 | 1^F^2^.01^ ^^F | |
1940 | "IX",2,2," ADGFMD02", 0) | |
1941 | 2^ADGFMD02 ^This x-re f calls th e DG FIELD MONITOR e vent point .^MU^^F^I^ I^2^^^^^A | |
1942 | "IX",2,2," ADGFMD02", .1,0) | |
1943 | ^^2^2^3060 624^ | |
1944 | "IX",2,2," ADGFMD02", .1,1,0) | |
1945 | This cross reference activates the DG FI ELD MONITO R event po int if the | |
1946 | "IX",2,2," ADGFMD02", .1,2,0) | |
1947 | data in th e SEX (.02 ) field ch anges. | |
1948 | "IX",2,2," ADGFMD02", 1) | |
1949 | D FC^DGFCP ROT(.DA,2, .02,"SET", $H,$G(DUZ) ,.X,.X1,.X 2,$G(XQY0) ) Q | |
1950 | "IX",2,2," ADGFMD02", 2) | |
1951 | D FC^DGFCP ROT(.DA,2, .02,"KILL" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q | |
1952 | "IX",2,2," ADGFMD02", 11.1,0) | |
1953 | ^.114IA^1^ 1 | |
1954 | "IX",2,2," ADGFMD02", 11.1,1,0) | |
1955 | 1^F^2^.02^ ^^F | |
1956 | "IX",2,2," ADGFMD02", 11.1,1,3) | |
1957 | ||
1958 | "IX",2,2," ADGFMD03", 0) | |
1959 | 2^ADGFMD03 ^This x-re f calls th e DG FIELD MONITOR e vent point .^MU^^F^I^ I^2^^^^^A | |
1960 | "IX",2,2," ADGFMD03", .1,0) | |
1961 | ^^5^5^3021 116 | |
1962 | "IX",2,2," ADGFMD03", .1,1,0) | |
1963 | This cross reference activates the DG FI ELD MONITO R event po int. | |
1964 | "IX",2,2," ADGFMD03", .1,2,0) | |
1965 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
1966 | "IX",2,2," ADGFMD03", .1,3,0) | |
1967 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
1968 | "IX",2,2," ADGFMD03", .1,4,0) | |
1969 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
1970 | "IX",2,2," ADGFMD03", .1,5,0) | |
1971 | the inform ation avai lable at t he time of the event . | |
1972 | "IX",2,2," ADGFMD03", 1) | |
1973 | D FC^DGFCP ROT(.DA,2, .03,"SET", $H,$G(DUZ) ,.X,.X1,.X 2,$G(XQY0) ) Q | |
1974 | "IX",2,2," ADGFMD03", 2) | |
1975 | D FC^DGFCP ROT(.DA,2, .03,"KILL" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q | |
1976 | "IX",2,2," ADGFMD03", 11.1,0) | |
1977 | ^.114IA^1^ 1 | |
1978 | "IX",2,2," ADGFMD03", 11.1,1,0) | |
1979 | 1^F^2^.03^ ^^F | |
1980 | "IX",2,2," ADGFMD09", 0) | |
1981 | 2^ADGFMD09 ^This x-re f calls th e DG FIELD MONITOR e vent point .^MU^^F^I^ I^2^^^^^A | |
1982 | "IX",2,2," ADGFMD09", .1,0) | |
1983 | ^^5^5^3021 118 | |
1984 | "IX",2,2," ADGFMD09", .1,1,0) | |
1985 | This cross reference activates the DG FI ELD MONITO R event po int. | |
1986 | "IX",2,2," ADGFMD09", .1,2,0) | |
1987 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
1988 | "IX",2,2," ADGFMD09", .1,3,0) | |
1989 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
1990 | "IX",2,2," ADGFMD09", .1,4,0) | |
1991 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
1992 | "IX",2,2," ADGFMD09", .1,5,0) | |
1993 | the inform ation avai lable at t he time of the event . | |
1994 | "IX",2,2," ADGFMD09", 1) | |
1995 | D FC^DGFCP ROT(.DA,2, .09,"SET", $H,$G(DUZ) ,.X,.X1,.X 2,$G(XQY0) ) Q | |
1996 | "IX",2,2," ADGFMD09", 2) | |
1997 | D FC^DGFCP ROT(.DA,2, .09,"KILL" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q | |
1998 | "IX",2,2," ADGFMD09", 11.1,0) | |
1999 | ^.114IA^1^ 1 | |
2000 | "IX",2,2," ADGFMD09", 11.1,1,0) | |
2001 | 1^F^2^.09^ ^^F | |
2002 | "IX",2,2," ADGFMD116" ,0) | |
2003 | 2^ADGFMD11 6^This x-r ef calls t he DG FIEL D MONITOR event poin t.^MU^^F^I ^I^2^^^^^A | |
2004 | "IX",2,2," ADGFMD116" ,.1,0) | |
2005 | ^^5^5^3030 628 | |
2006 | "IX",2,2," ADGFMD116" ,.1,1,0) | |
2007 | This cross reference activates the DG FI ELD MONITO R event po int. | |
2008 | "IX",2,2," ADGFMD116" ,.1,2,0) | |
2009 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2010 | "IX",2,2," ADGFMD116" ,.1,3,0) | |
2011 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2012 | "IX",2,2," ADGFMD116" ,.1,4,0) | |
2013 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2014 | "IX",2,2," ADGFMD116" ,.1,5,0) | |
2015 | the inform ation avai lable at t he time of the event . | |
2016 | "IX",2,2," ADGFMD116" ,1) | |
2017 | D FC^DGFCP ROT(.DA,2, .116,"SET" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q | |
2018 | "IX",2,2," ADGFMD116" ,2) | |
2019 | D FC^DGFCP ROT(.DA,2, .116,"KILL ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2020 | "IX",2,2," ADGFMD116" ,11.1,0) | |
2021 | ^.114IA^1^ 1 | |
2022 | "IX",2,2," ADGFMD116" ,11.1,1,0) | |
2023 | 1^F^2^.116 ^^^F | |
2024 | "IX",2,2," ADGFMD1411 ",0) | |
2025 | 2^ADGFMD14 11^This x- ref calls the DG FIE LD MONITOR event poi nt.^MU^^F^ I^I^2^^^^^ A | |
2026 | "IX",2,2," ADGFMD1411 ",.1,0) | |
2027 | ^^5^5^3030 702 | |
2028 | "IX",2,2," ADGFMD1411 ",.1,1,0) | |
2029 | This cross reference activates the DG FI ELD MONITO R event po int. | |
2030 | "IX",2,2," ADGFMD1411 ",.1,2,0) | |
2031 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2032 | "IX",2,2," ADGFMD1411 ",.1,3,0) | |
2033 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2034 | "IX",2,2," ADGFMD1411 ",.1,4,0) | |
2035 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2036 | "IX",2,2," ADGFMD1411 ",.1,5,0) | |
2037 | the inform ation avai lable at t he time of the event . | |
2038 | "IX",2,2," ADGFMD1411 ",1) | |
2039 | D FC^DGFCP ROT(.DA,2, .1411,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2040 | "IX",2,2," ADGFMD1411 ",2) | |
2041 | D FC^DGFCP ROT(.DA,2, .1411,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q | |
2042 | "IX",2,2," ADGFMD1411 ",11.1,0) | |
2043 | ^.114IA^1^ 1 | |
2044 | "IX",2,2," ADGFMD1411 ",11.1,1,0 ) | |
2045 | 1^F^2^.141 1^^^F | |
2046 | "IX",2,2," ADGFMD1412 ",0) | |
2047 | 2^ADGFMD14 12^This x- ref calls the DG FIE LD MONITOR event poi nt.^MU^^F^ I^I^2^^^^^ A | |
2048 | "IX",2,2," ADGFMD1412 ",.1,0) | |
2049 | ^^5^5^3030 702 | |
2050 | "IX",2,2," ADGFMD1412 ",.1,1,0) | |
2051 | This cross reference activates the DG FI ELD MONITO R event po int. | |
2052 | "IX",2,2," ADGFMD1412 ",.1,2,0) | |
2053 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2054 | "IX",2,2," ADGFMD1412 ",.1,3,0) | |
2055 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2056 | "IX",2,2," ADGFMD1412 ",.1,4,0) | |
2057 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2058 | "IX",2,2," ADGFMD1412 ",.1,5,0) | |
2059 | the inform ation avai lable at t he time of the event . | |
2060 | "IX",2,2," ADGFMD1412 ",1) | |
2061 | D FC^DGFCP ROT(.DA,2, .1412,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2062 | "IX",2,2," ADGFMD1412 ",2) | |
2063 | D FC^DGFCP ROT(.DA,2, .1412,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q | |
2064 | "IX",2,2," ADGFMD1412 ",11.1,0) | |
2065 | ^.114IA^1^ 1 | |
2066 | "IX",2,2," ADGFMD1412 ",11.1,1,0 ) | |
2067 | 1^F^2^.141 2^^^F | |
2068 | "IX",2,2," ADGFMD1413 ",0) | |
2069 | 2^ADGFMD14 13^This x- ref calls the DG FIE LD MONITOR event poi nt.^MU^^F^ I^I^2^^^^^ A | |
2070 | "IX",2,2," ADGFMD1413 ",.1,0) | |
2071 | ^^5^5^3030 702 | |
2072 | "IX",2,2," ADGFMD1413 ",.1,1,0) | |
2073 | This cross reference activates the DG FI ELD MONITO R event po int. | |
2074 | "IX",2,2," ADGFMD1413 ",.1,2,0) | |
2075 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2076 | "IX",2,2," ADGFMD1413 ",.1,3,0) | |
2077 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2078 | "IX",2,2," ADGFMD1413 ",.1,4,0) | |
2079 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2080 | "IX",2,2," ADGFMD1413 ",.1,5,0) | |
2081 | the inform ation avai lable at t he time of the event . | |
2082 | "IX",2,2," ADGFMD1413 ",1) | |
2083 | D FC^DGFCP ROT(.DA,2, .1413,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2084 | "IX",2,2," ADGFMD1413 ",2) | |
2085 | D FC^DGFCP ROT(.DA,2, .1413,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q | |
2086 | "IX",2,2," ADGFMD1413 ",11.1,0) | |
2087 | ^.114IA^1^ 1 | |
2088 | "IX",2,2," ADGFMD1413 ",11.1,1,0 ) | |
2089 | 1^F^2^.141 3^^^F | |
2090 | "IX",2,2," ADGFMD1414 ",0) | |
2091 | 2^ADGFMD14 14^This x- ref calls the DG FIE LD MONITOR event poi nt.^MU^^F^ I^I^2^^^^^ A | |
2092 | "IX",2,2," ADGFMD1414 ",.1,0) | |
2093 | ^^5^5^3030 702 | |
2094 | "IX",2,2," ADGFMD1414 ",.1,1,0) | |
2095 | This cross reference activates the DG FI ELD MONITO R event po int. | |
2096 | "IX",2,2," ADGFMD1414 ",.1,2,0) | |
2097 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2098 | "IX",2,2," ADGFMD1414 ",.1,3,0) | |
2099 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2100 | "IX",2,2," ADGFMD1414 ",.1,4,0) | |
2101 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2102 | "IX",2,2," ADGFMD1414 ",.1,5,0) | |
2103 | the inform ation avai lable at t he time of the event . | |
2104 | "IX",2,2," ADGFMD1414 ",1) | |
2105 | D FC^DGFCP ROT(.DA,2, .1414,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2106 | "IX",2,2," ADGFMD1414 ",2) | |
2107 | D FC^DGFCP ROT(.DA,2, .1414,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q | |
2108 | "IX",2,2," ADGFMD1414 ",11.1,0) | |
2109 | ^.114IA^1^ 1 | |
2110 | "IX",2,2," ADGFMD1414 ",11.1,1,0 ) | |
2111 | 1^F^2^.141 4^^^F | |
2112 | "IX",2,2," ADGFMD1415 ",0) | |
2113 | 2^ADGFMD14 15^This x- ref calls the DG FIE LD MONITOR event poi nt.^MU^^F^ I^I^2^^^^^ A | |
2114 | "IX",2,2," ADGFMD1415 ",.1,0) | |
2115 | ^^5^5^3030 702 | |
2116 | "IX",2,2," ADGFMD1415 ",.1,1,0) | |
2117 | This cross reference activates the DG FI ELD MONITO R event po int. | |
2118 | "IX",2,2," ADGFMD1415 ",.1,2,0) | |
2119 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2120 | "IX",2,2," ADGFMD1415 ",.1,3,0) | |
2121 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2122 | "IX",2,2," ADGFMD1415 ",.1,4,0) | |
2123 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2124 | "IX",2,2," ADGFMD1415 ",.1,5,0) | |
2125 | the inform ation avai lable at t he time of the event . | |
2126 | "IX",2,2," ADGFMD1415 ",1) | |
2127 | D FC^DGFCP ROT(.DA,2, .1415,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2128 | "IX",2,2," ADGFMD1415 ",2) | |
2129 | D FC^DGFCP ROT(.DA,2, .1415,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q | |
2130 | "IX",2,2," ADGFMD1415 ",11.1,0) | |
2131 | ^.114IA^1^ 1 | |
2132 | "IX",2,2," ADGFMD1415 ",11.1,1,0 ) | |
2133 | 1^F^2^.141 5^^^F | |
2134 | "IX",2,2," ADGFMD1416 ",0) | |
2135 | 2^ADGFMD14 16^This x- ref calls the DG FIE LD MONITOR event poi nt.^MU^^F^ I^I^2^^^^^ A | |
2136 | "IX",2,2," ADGFMD1416 ",.1,0) | |
2137 | ^^5^5^3030 702 | |
2138 | "IX",2,2," ADGFMD1416 ",.1,1,0) | |
2139 | This cross reference activates the DG FI ELD MONITO R event po int. | |
2140 | "IX",2,2," ADGFMD1416 ",.1,2,0) | |
2141 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2142 | "IX",2,2," ADGFMD1416 ",.1,3,0) | |
2143 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2144 | "IX",2,2," ADGFMD1416 ",.1,4,0) | |
2145 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2146 | "IX",2,2," ADGFMD1416 ",.1,5,0) | |
2147 | the inform ation avai lable at t he time of the event . | |
2148 | "IX",2,2," ADGFMD1416 ",1) | |
2149 | D FC^DGFCP ROT(.DA,2, .1416,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2150 | "IX",2,2," ADGFMD1416 ",2) | |
2151 | D FC^DGFCP ROT(.DA,2, .1416,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q | |
2152 | "IX",2,2," ADGFMD1416 ",11.1,0) | |
2153 | ^.114IA^1^ 1 | |
2154 | "IX",2,2," ADGFMD1416 ",11.1,1,0 ) | |
2155 | 1^F^2^.141 6^^^F | |
2156 | "IX",2,2," ADGFMD1417 ",0) | |
2157 | 2^ADGFMD14 17^This x- ref calls the DG FIE LD MONITOR event poi nt.^MU^^F^ I^I^2^^^^^ A | |
2158 | "IX",2,2," ADGFMD1417 ",.1,0) | |
2159 | ^^5^5^3030 702 | |
2160 | "IX",2,2," ADGFMD1417 ",.1,1,0) | |
2161 | This cross reference activates the DG FI ELD MONITO R event po int. | |
2162 | "IX",2,2," ADGFMD1417 ",.1,2,0) | |
2163 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2164 | "IX",2,2," ADGFMD1417 ",.1,3,0) | |
2165 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2166 | "IX",2,2," ADGFMD1417 ",.1,4,0) | |
2167 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2168 | "IX",2,2," ADGFMD1417 ",.1,5,0) | |
2169 | the inform ation avai lable at t he time of the event . | |
2170 | "IX",2,2," ADGFMD1417 ",1) | |
2171 | D FC^DGFCP ROT(.DA,2, .1417,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2172 | "IX",2,2," ADGFMD1417 ",2) | |
2173 | D FC^DGFCP ROT(.DA,2, .1417,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q | |
2174 | "IX",2,2," ADGFMD1417 ",11.1,0) | |
2175 | ^.114IA^1^ 1 | |
2176 | "IX",2,2," ADGFMD1417 ",11.1,1,0 ) | |
2177 | 1^F^2^.141 7^^^F | |
2178 | "IX",2,2," ADGFMD1418 ",0) | |
2179 | 2^ADGFMD14 18^This x- ref calls the DG FIE LD MONITOR event poi nt.^MU^^F^ I^I^2^^^^^ A | |
2180 | "IX",2,2," ADGFMD1418 ",.1,0) | |
2181 | ^^5^5^3030 702 | |
2182 | "IX",2,2," ADGFMD1418 ",.1,1,0) | |
2183 | This cross reference activates the DG FI ELD MONITO R event po int. | |
2184 | "IX",2,2," ADGFMD1418 ",.1,2,0) | |
2185 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2186 | "IX",2,2," ADGFMD1418 ",.1,3,0) | |
2187 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2188 | "IX",2,2," ADGFMD1418 ",.1,4,0) | |
2189 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2190 | "IX",2,2," ADGFMD1418 ",.1,5,0) | |
2191 | the inform ation avai lable at t he time of the event . | |
2192 | "IX",2,2," ADGFMD1418 ",1) | |
2193 | D FC^DGFCP ROT(.DA,2, .1418,"SET ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2194 | "IX",2,2," ADGFMD1418 ",2) | |
2195 | D FC^DGFCP ROT(.DA,2, .1418,"KIL L",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q | |
2196 | "IX",2,2," ADGFMD1418 ",11.1,0) | |
2197 | ^.114IA^1^ 1 | |
2198 | "IX",2,2," ADGFMD1418 ",11.1,1,0 ) | |
2199 | 1^F^2^.141 8^^^F | |
2200 | "IX",2,2," ADGFMD361" ,0) | |
2201 | 2^ADGFMD36 1^THhis x- ref calls the DG FIE LD MONITOR event poi nt.^MU^^F^ I^I^2^^^^^ A | |
2202 | "IX",2,2," ADGFMD361" ,.1,0) | |
2203 | ^^2^2^3060 624^ | |
2204 | "IX",2,2," ADGFMD361" ,.1,1,0) | |
2205 | This cross reference activates the DG FI ELD MONITO R event po int if the | |
2206 | "IX",2,2," ADGFMD361" ,.1,2,0) | |
2207 | PRIMARY EL IGIBILITY CODE (#.36 1)field ch anges. | |
2208 | "IX",2,2," ADGFMD361" ,1) | |
2209 | D FC^DGFCP ROT(.DA,2, .361,"SET" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q | |
2210 | "IX",2,2," ADGFMD361" ,2) | |
2211 | D FC^DGFCP ROT(.DA,2, .361,"KILL ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2212 | "IX",2,2," ADGFMD361" ,11.1,0) | |
2213 | ^.114IA^1^ 1 | |
2214 | "IX",2,2," ADGFMD361" ,11.1,1,0) | |
2215 | 1^F^2^.361 ^^^F | |
2216 | "IX",2,2," ADGMX",0) | |
2217 | 2^ADGMX^Th is x-ref u pdates MAS S with dem ographics changes.^M U^^R^I^I^2 ^^^^^A | |
2218 | "IX",2,2," ADGMX",.1, 0) | |
2219 | ^^1^1^3171 214^^^ | |
2220 | "IX",2,2," ADGMX",.1, 1,0) | |
2221 | This cross -reference updates M ASS when d emographic s change o n a patien t. | |
2222 | "IX",2,2," ADGMX",1) | |
2223 | D MONITOR^ DGMXADT(.D A,"SET",.X ,.X1,.X2) Q | |
2224 | "IX",2,2," ADGMX",2) | |
2225 | D MONITOR^ DGMXADT(.D A,"KILL",. X,.X1,.X2) Q | |
2226 | "IX",2,2," ADGMX",11. 1,0) | |
2227 | ^.114IA^4^ 4 | |
2228 | "IX",2,2," ADGMX",11. 1,1,0) | |
2229 | 1^F^2^.03^ ^^F | |
2230 | "IX",2,2," ADGMX",11. 1,2,0) | |
2231 | 2^F^2^.01^ ^^F | |
2232 | "IX",2,2," ADGMX",11. 1,3,0) | |
2233 | 3^F^2^.02^ ^^F | |
2234 | "IX",2,2," ADGMX",11. 1,4,0) | |
2235 | 4^F^2^.09^ ^^F | |
2236 | "IX",2,2," ADTTM1",0) | |
2237 | 2^ADTTM1^T EMPORARY A DDRESS Cro ss-Referen ce^MU^^R^^ I^2^^^^^A | |
2238 | "IX",2,2," ADTTM1",.1 ,0) | |
2239 | ^^2^2^3050 810 | |
2240 | "IX",2,2," ADTTM1",.1 ,1,0) | |
2241 | This cross -reference will upda te the TEM PORARY ADD RESS CHANG E DT/TM fi eld | |
2242 | "IX",2,2," ADTTM1",.1 ,2,0) | |
2243 | when the T emporary A ddress dat a changes for a pati ent. | |
2244 | "IX",2,2," ADTTM1",1) | |
2245 | D TEMP^DGD DDTTM | |
2246 | "IX",2,2," ADTTM1",2) | |
2247 | D TEMP^DGD DDTTM | |
2248 | "IX",2,2," ADTTM1",11 .1,0) | |
2249 | ^.114IA^13 ^13 | |
2250 | "IX",2,2," ADTTM1",11 .1,1,0) | |
2251 | 1^F^2^.121 1^^^F | |
2252 | "IX",2,2," ADTTM1",11 .1,2,0) | |
2253 | 2^F^2^.121 2^^^F | |
2254 | "IX",2,2," ADTTM1",11 .1,3,0) | |
2255 | 3^F^2^.121 3^^^F | |
2256 | "IX",2,2," ADTTM1",11 .1,4,0) | |
2257 | 4^F^2^.121 4^^^F | |
2258 | "IX",2,2," ADTTM1",11 .1,5,0) | |
2259 | 5^F^2^.121 5^^^F | |
2260 | "IX",2,2," ADTTM1",11 .1,6,0) | |
2261 | 6^F^2^.121 6^^^F | |
2262 | "IX",2,2," ADTTM1",11 .1,7,0) | |
2263 | 7^F^2^.121 7^^^F | |
2264 | "IX",2,2," ADTTM1",11 .1,8,0) | |
2265 | 8^F^2^.121 8^^^F | |
2266 | "IX",2,2," ADTTM1",11 .1,9,0) | |
2267 | 9^F^2^.121 05^^^F | |
2268 | "IX",2,2," ADTTM1",11 .1,10,0) | |
2269 | 10^F^2^.12 112^^^F | |
2270 | "IX",2,2," ADTTM1",11 .1,11,0) | |
2271 | 11^F^2^.12 21^^^F | |
2272 | "IX",2,2," ADTTM1",11 .1,11,3) | |
2273 | ||
2274 | "IX",2,2," ADTTM1",11 .1,12,0) | |
2275 | 12^F^2^.12 22^^^F | |
2276 | "IX",2,2," ADTTM1",11 .1,12,3) | |
2277 | ||
2278 | "IX",2,2," ADTTM1",11 .1,13,0) | |
2279 | 13^F^2^.12 23^^^F | |
2280 | "IX",2,2," ADTTM1",11 .1,13,3) | |
2281 | ||
2282 | "IX",2,2," ADTTM2",0) | |
2283 | 2^ADTTM2^C ONFIDENTIA L ADDRESS Cross-Refe rence^MU^^ R^^I^2^^^^ ^A | |
2284 | "IX",2,2," ADTTM2",.1 ,0) | |
2285 | ^^2^2^3080 811^^ | |
2286 | "IX",2,2," ADTTM2",.1 ,1,0) | |
2287 | This cross -reference will upda te the CON FIDENTIAL ADDR CHANG E DT/TM fi eld | |
2288 | "IX",2,2," ADTTM2",.1 ,2,0) | |
2289 | when the c onfidentia l address data chang es for a p atient. | |
2290 | "IX",2,2," ADTTM2",1) | |
2291 | D CONF^DGD DDTTM | |
2292 | "IX",2,2," ADTTM2",2) | |
2293 | D CONF^DGD DDTTM | |
2294 | "IX",2,2," ADTTM2",11 .1,0) | |
2295 | ^.114IA^14 ^14 | |
2296 | "IX",2,2," ADTTM2",11 .1,1,0) | |
2297 | 1^F^2^.141 1^^^F | |
2298 | "IX",2,2," ADTTM2",11 .1,2,0) | |
2299 | 2^F^2^.141 2^^^F | |
2300 | "IX",2,2," ADTTM2",11 .1,3,0) | |
2301 | 3^F^2^.141 3^^^F | |
2302 | "IX",2,2," ADTTM2",11 .1,4,0) | |
2303 | 4^F^2^.141 4^^^F | |
2304 | "IX",2,2," ADTTM2",11 .1,5,0) | |
2305 | 5^F^2^.141 5^^^F | |
2306 | "IX",2,2," ADTTM2",11 .1,6,0) | |
2307 | 6^F^2^.141 6^^^F | |
2308 | "IX",2,2," ADTTM2",11 .1,7,0) | |
2309 | 7^F^2^.141 7^^^F | |
2310 | "IX",2,2," ADTTM2",11 .1,8,0) | |
2311 | 8^F^2^.141 8^^^F | |
2312 | "IX",2,2," ADTTM2",11 .1,9,0) | |
2313 | 9^F^2^.141 05^^^F | |
2314 | "IX",2,2," ADTTM2",11 .1,10,0) | |
2315 | 10^F^2^.14 114^^^F | |
2316 | "IX",2,2," ADTTM2",11 .1,11,0) | |
2317 | 11^F^2^.14 115^^^F | |
2318 | "IX",2,2," ADTTM2",11 .1,12,0) | |
2319 | 12^F^2^.14 116^^^F | |
2320 | "IX",2,2," ADTTM2",11 .1,13,0) | |
2321 | 13^F^2^.14 111^^^F | |
2322 | "IX",2,2," ADTTM2",11 .1,14,0) | |
2323 | 14^F^2^.13 15^^^F | |
2324 | "IX",2,2," ADTTM2",11 .1,14,3) | |
2325 | ||
2326 | "IX",2,2," ADTTM5",0) | |
2327 | 2^ADTTM5^E -CONTACT C ross-Refer ence^MU^^R ^^I^2^^^^^ A | |
2328 | "IX",2,2," ADTTM5",.1 ,0) | |
2329 | ^^2^2^3050 813 | |
2330 | "IX",2,2," ADTTM5",.1 ,1,0) | |
2331 | This cross -reference will upda te the E-C ONTACT CHA NGE DATE/T IME field when | |
2332 | "IX",2,2," ADTTM5",.1 ,2,0) | |
2333 | the Emerge ncy Contac t data cha nges for a patient. | |
2334 | "IX",2,2," ADTTM5",1) | |
2335 | D ECON^DGD DDTTM | |
2336 | "IX",2,2," ADTTM5",2) | |
2337 | D ECON^DGD DDTTM | |
2338 | "IX",2,2," ADTTM5",11 .1,0) | |
2339 | ^.114IA^12 ^12 | |
2340 | "IX",2,2," ADTTM5",11 .1,1,0) | |
2341 | 1^F^2^.331 ^^^F | |
2342 | "IX",2,2," ADTTM5",11 .1,2,0) | |
2343 | 2^F^2^.332 ^^^F | |
2344 | "IX",2,2," ADTTM5",11 .1,3,0) | |
2345 | 3^F^2^.333 ^^^F | |
2346 | "IX",2,2," ADTTM5",11 .1,4,0) | |
2347 | 4^F^2^.334 ^^^F | |
2348 | "IX",2,2," ADTTM5",11 .1,5,0) | |
2349 | 5^F^2^.335 ^^^F | |
2350 | "IX",2,2," ADTTM5",11 .1,6,0) | |
2351 | 6^F^2^.336 ^^^F | |
2352 | "IX",2,2," ADTTM5",11 .1,6,3) | |
2353 | ||
2354 | "IX",2,2," ADTTM5",11 .1,7,0) | |
2355 | 7^F^2^.337 ^^^F | |
2356 | "IX",2,2," ADTTM5",11 .1,8,0) | |
2357 | 8^F^2^.338 ^^^F | |
2358 | "IX",2,2," ADTTM5",11 .1,9,0) | |
2359 | 9^F^2^.330 5^^^F | |
2360 | "IX",2,2," ADTTM5",11 .1,10,0) | |
2361 | 10^F^2^.22 01^^^F | |
2362 | "IX",2,2," ADTTM5",11 .1,11,0) | |
2363 | 11^F^2^.33 9^^^F | |
2364 | "IX",2,2," ADTTM5",11 .1,11,3) | |
2365 | ||
2366 | "IX",2,2," ADTTM5",11 .1,12,0) | |
2367 | 12^F^2^.33 011^^^F | |
2368 | "IX",2,2," ADTTM5",11 .1,12,3) | |
2369 | ||
2370 | "IX",2,2," AEAR",0) | |
2371 | 2^AEAR^Con tains YES entries^R^ ^F^IR^I^2^ ^^^^S | |
2372 | "IX",2,2," AEAR",.1,0 ) | |
2373 | ^^1^1^3080 401^^ | |
2374 | "IX",2,2," AEAR",.1,1 ,0) | |
2375 | This cross reference contains 'yes' entr ies | |
2376 | "IX",2,2," AEAR",1) | |
2377 | S ^DPT("AE AR",X,DA)= "" | |
2378 | "IX",2,2," AEAR",1.4) | |
2379 | S X=X(1)=1 | |
2380 | "IX",2,2," AEAR",2) | |
2381 | K ^DPT("AE AR",X,DA) | |
2382 | "IX",2,2," AEAR",2.5) | |
2383 | K ^DPT("AE AR") | |
2384 | "IX",2,2," AEAR",11.1 ,0) | |
2385 | ^.114IA^1^ 1 | |
2386 | "IX",2,2," AEAR",11.1 ,1,0) | |
2387 | 1^F^2^1010 .159^^1^F | |
2388 | "IX",2,2," AEAR",11.1 ,1,3) | |
2389 | ||
2390 | "IX",2,2," ANAM01",0) | |
2391 | 2^ANAM01^T his index keeps the NAME COMPO NENTS file in synch with the . 01 field.^ MU^^F^IR^I ^2^^^^^A | |
2392 | "IX",2,2," ANAM01",.1 ,0) | |
2393 | ^^3^3^3050 611 | |
2394 | "IX",2,2," ANAM01",.1 ,1,0) | |
2395 | This cross reference uses Kern el name st andardizat ion APIs t o keep the NAME | |
2396 | "IX",2,2," ANAM01",.1 ,2,0) | |
2397 | COMPONENTS (#20) fil e record a ssociated with the # .01 field synchroniz ed | |
2398 | "IX",2,2," ANAM01",.1 ,3,0) | |
2399 | with the d ata value stored in that field . | |
2400 | "IX",2,2," ANAM01",1) | |
2401 | I '$G(XUNO TRIG) N XU NOTRIG S X UNOTRIG=1, DG20NAME=X D NARY^XL FNAME7(.DG 20NAME),UP DCOMP^XLFN AME2(2,.DA ,.01,.DG20 NAME,1.01, +$P($G(^DP T(DA,"NAME ")),U),"CL 30") K DG2 0NAME Q | |
2402 | "IX",2,2," ANAM01",2) | |
2403 | I '$G(XUNO TRIG) N XU NOTRIG S X UNOTRIG=1 D DELCOMP^ XLFNAME2(2 ,.DA,.01,1 .01) Q | |
2404 | "IX",2,2," ANAM01",11 .1,0) | |
2405 | ^.114IA^1^ 1 | |
2406 | "IX",2,2," ANAM01",11 .1,1,0) | |
2407 | 1^F^2^.01^ ^1^F | |
2408 | "IX",2,2," ANAM201",0 ) | |
2409 | 2^ANAM201^ This index keeps the NAME COMP ONENTS fil e in synch with the .01 field. ^MU^^F^IR^ W^2.01^^^^ ^A | |
2410 | "IX",2,2," ANAM201",. 1,0) | |
2411 | ^^3^3^3050 611 | |
2412 | "IX",2,2," ANAM201",. 1,1,0) | |
2413 | This cross reference uses Kern el name st andardizat ion APIs t o keep the NAME | |
2414 | "IX",2,2," ANAM201",. 1,2,0) | |
2415 | COMPONENTS (#20) fil e record a ssociated with the # .01 field synchroniz ed | |
2416 | "IX",2,2," ANAM201",. 1,3,0) | |
2417 | with the d ata value stored in that field . | |
2418 | "IX",2,2," ANAM201",1 ) | |
2419 | I '$G(XUNO TRIG) N XU NOTRIG S X UNOTRIG=1, DG20NAME=X D NARY^XL FNAME7(.DG 20NAME),UP DCOMP^XLFN AME2(2.01, .DA,.01,.D G20NAME,10 0.03,,"CL3 0") K DG20 NAME Q | |
2420 | "IX",2,2," ANAM201",2 ) | |
2421 | I '$G(XUNO TRIG) N XU NOTRIG S X UNOTRIG=1 D DELCOMP^ XLFNAME2(2 .01,.DA,.0 1,100.03) Q | |
2422 | "IX",2,2," ANAM201",1 1.1,0) | |
2423 | ^.114IA^1^ 1 | |
2424 | "IX",2,2," ANAM201",1 1.1,1,0) | |
2425 | 1^F^2.01^. 01^^1^F | |
2426 | "IX",2,2," ANAM331",0 ) | |
2427 | 2^ANAM331^ This index keeps the NAME COMP ONENTS fil e in synch with fiel d #.331.^M U^^F^IR^I^ 2^^^^^A | |
2428 | "IX",2,2," ANAM331",. 1,0) | |
2429 | ^^3^3^3050 611 | |
2430 | "IX",2,2," ANAM331",. 1,1,0) | |
2431 | This cross reference uses Kern el name st andardizat ion APIs t o keep the NAME | |
2432 | "IX",2,2," ANAM331",. 1,2,0) | |
2433 | COMPONENTS (#20) fil e record a ssociated with the # .331 field synchroni zed | |
2434 | "IX",2,2," ANAM331",. 1,3,0) | |
2435 | with the d ata value stored in that field . | |
2436 | "IX",2,2," ANAM331",1 ) | |
2437 | I '$G(XUNO TRIG) N XU NOTRIG S X UNOTRIG=1, DG20NAME=X D NARY^XL FNAME7(.DG 20NAME),UP DCOMP^XLFN AME2(2,.DA ,.331,.DG2 0NAME,1.07 ,+$P($G(^D PT(DA,"NAM E")),U,7), "CL35") K DG20NAME Q | |
2438 | "IX",2,2," ANAM331",2 ) | |
2439 | I '$G(XUNO TRIG) N XU NOTRIG S X UNOTRIG=1 D DELCOMP^ XLFNAME2(2 ,.DA,.331, 1.07) Q | |
2440 | "IX",2,2," ANAM331",1 1.1,0) | |
2441 | ^.114IA^1^ 1 | |
2442 | "IX",2,2," ANAM331",1 1.1,1,0) | |
2443 | 1^F^2^.331 ^^1^F | |
2444 | "IX",2,2," AVAFC024", 0) | |
2445 | 2^AVAFC024 ^This x-re f calls th e DG FIELD MONITOR e vent point .^MU^^F^I^ I^2^^^^^A | |
2446 | "IX",2,2," AVAFC024", .1,0) | |
2447 | ^^5^5^3140 415 | |
2448 | "IX",2,2," AVAFC024", .1,1,0) | |
2449 | This cross -reference activates the DG FI ELD MONITO R event po int. | |
2450 | "IX",2,2," AVAFC024", .1,2,0) | |
2451 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2452 | "IX",2,2," AVAFC024", .1,3,0) | |
2453 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2454 | "IX",2,2," AVAFC024", .1,4,0) | |
2455 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2456 | "IX",2,2," AVAFC024", .1,5,0) | |
2457 | the inform ation avai lable at t he time of the event . | |
2458 | "IX",2,2," AVAFC024", 1) | |
2459 | D FC^DGFCP ROT(.DA,2, .024,"SET" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q | |
2460 | "IX",2,2," AVAFC024", 2) | |
2461 | D FC^DGFCP ROT(.DA,2, .024,"KILL ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2462 | "IX",2,2," AVAFC024", 11.1,0) | |
2463 | ^.114IA^1^ 1 | |
2464 | "IX",2,2," AVAFC024", 11.1,1,0) | |
2465 | 1^F^2^.024 ^^^F | |
2466 | "IX",2,2," AVAFC121", 0) | |
2467 | 2^AVAFC121 ^This x-re f calls th e DG FIELD MONITOR e vent point .^MU^^F^I^ I^2^^^^^A | |
2468 | "IX",2,2," AVAFC121", .1,0) | |
2469 | ^^5^5^3090 724 | |
2470 | "IX",2,2," AVAFC121", .1,1,0) | |
2471 | This cross -reference activates the DG FI ELD MONITO R event po int. | |
2472 | "IX",2,2," AVAFC121", .1,2,0) | |
2473 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2474 | "IX",2,2," AVAFC121", .1,3,0) | |
2475 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2476 | "IX",2,2," AVAFC121", .1,4,0) | |
2477 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2478 | "IX",2,2," AVAFC121", .1,5,0) | |
2479 | the inform ation avai lable at t he time of the event . | |
2480 | "IX",2,2," AVAFC121", 1) | |
2481 | D FC^DGFCP ROT(.DA,2, .121,"SET" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q | |
2482 | "IX",2,2," AVAFC121", 2) | |
2483 | D FC^DGFCP ROT(.DA,2, .121,"KILL ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2484 | "IX",2,2," AVAFC121", 11.1,0) | |
2485 | ^.114IA^1^ 1 | |
2486 | "IX",2,2," AVAFC121", 11.1,1,0) | |
2487 | 1^F^2^.121 ^^^F | |
2488 | "IX",2,2," AVAFC133", 0) | |
2489 | 2^AVAFC133 ^This x-re f calls th e DG FIELD MONITOR e vent point .^MU^^F^I^ I^2^^^^^A | |
2490 | "IX",2,2," AVAFC133", .1,0) | |
2491 | ^^5^5^3090 724 | |
2492 | "IX",2,2," AVAFC133", .1,1,0) | |
2493 | This cross -reference activates the DG FI ELD MONITO R event po int. | |
2494 | "IX",2,2," AVAFC133", .1,2,0) | |
2495 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2496 | "IX",2,2," AVAFC133", .1,3,0) | |
2497 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2498 | "IX",2,2," AVAFC133", .1,4,0) | |
2499 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2500 | "IX",2,2," AVAFC133", .1,5,0) | |
2501 | the inform ation avai lable at t he time of the event . | |
2502 | "IX",2,2," AVAFC133", 1) | |
2503 | D FC^DGFCP ROT(.DA,2, .133,"SET" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q | |
2504 | "IX",2,2," AVAFC133", 2) | |
2505 | D FC^DGFCP ROT(.DA,2, .133,"KILL ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2506 | "IX",2,2," AVAFC133", 11.1,0) | |
2507 | ^.114IA^1^ 1 | |
2508 | "IX",2,2," AVAFC133", 11.1,1,0) | |
2509 | 1^F^2^.133 ^^^F | |
2510 | "IX",2,2," AVAFC134", 0) | |
2511 | 2^AVAFC134 ^This x-re f calls th e DG FIELD MONITOR e vent point .^MU^^F^I^ I^2^^^^^A | |
2512 | "IX",2,2," AVAFC134", .1,0) | |
2513 | ^^5^5^3090 724 | |
2514 | "IX",2,2," AVAFC134", .1,1,0) | |
2515 | This cross -reference activates the DG FI ELD MONITO R event po int. | |
2516 | "IX",2,2," AVAFC134", .1,2,0) | |
2517 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2518 | "IX",2,2," AVAFC134", .1,3,0) | |
2519 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2520 | "IX",2,2," AVAFC134", .1,4,0) | |
2521 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2522 | "IX",2,2," AVAFC134", .1,5,0) | |
2523 | the inform ation avai lable at t he time of the event . | |
2524 | "IX",2,2," AVAFC134", 1) | |
2525 | D FC^DGFCP ROT(.DA,2, .134,"SET" ,$H,$G(DUZ ),.X,.X1,. X2,$G(XQY0 )) Q | |
2526 | "IX",2,2," AVAFC134", 2) | |
2527 | D FC^DGFCP ROT(.DA,2, .134,"KILL ",$H,$G(DU Z),.X,.X1, .X2,$G(XQY 0)) Q | |
2528 | "IX",2,2," AVAFC134", 11.1,0) | |
2529 | ^.114IA^1^ 1 | |
2530 | "IX",2,2," AVAFC134", 11.1,1,0) | |
2531 | 1^F^2^.134 ^^^F | |
2532 | "IX",2,2," AX",0) | |
2533 | 2^AX^This cross refe rence crea tes an ent ry in the ADT/HL7 PI VOT file ( #391.71).^ MU^^F^IR^W ^2.0361^^^ ^^A | |
2534 | "IX",2,2," AX",.1,0) | |
2535 | ^^19^19^31 80205^^ | |
2536 | "IX",2,2," AX",.1,1,0 ) | |
2537 | This cross reference is used t o remember that chan ges were m ade to the | |
2538 | "IX",2,2," AX",.1,2,0 ) | |
2539 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
2540 | "IX",2,2," AX",.1,3,0 ) | |
2541 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
2542 | "IX",2,2," AX",.1,4,0 ) | |
2543 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
2544 | "IX",2,2," AX",.1,5,0 ) | |
2545 | ||
2546 | "IX",2,2," AX",.1,6,0 ) | |
2547 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
2548 | "IX",2,2," AX",.1,7,0 ) | |
2549 | executed b ecause the change is being mad e from wit hin the Re gistration | |
2550 | "IX",2,2," AX",.1,8,0 ) | |
2551 | process. | |
2552 | "IX",2,2," AX",.1,9,0 ) | |
2553 | ||
2554 | "IX",2,2," AX",.1,10, 0) | |
2555 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
2556 | "IX",2,2," AX",.1,11, 0) | |
2557 | variable V AFCA08 equ al to 1. | |
2558 | "IX",2,2," AX",.1,12, 0) | |
2559 | ||
2560 | "IX",2,2," AX",.1,13, 0) | |
2561 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
2562 | "IX",2,2," AX",.1,14, 0) | |
2563 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
2564 | "IX",2,2," AX",.1,15, 0) | |
2565 | (#391.71). | |
2566 | "IX",2,2," AX",.1,16, 0) | |
2567 | ||
2568 | "IX",2,2," AX",.1,17, 0) | |
2569 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
2570 | "IX",2,2," AX",.1,18, 0) | |
2571 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
2572 | "IX",2,2," AX",.1,19, 0) | |
2573 | transmissi on only. | |
2574 | "IX",2,2," AX",1) | |
2575 | S VAFCF="2 .0361,.01; ",DGMXEPIC =1 D AVAFC ^VAFCDD01( DFN) | |
2576 | "IX",2,2," AX",2) | |
2577 | S VAFCF="2 .0361,.01; ",DGMXEPIC =1 D AVAFC ^VAFCDD01( DFN) | |
2578 | "IX",2,2," AX",11.1,0 ) | |
2579 | ^.114IA^1^ 1 | |
2580 | "IX",2,2," AX",11.1,1 ,0) | |
2581 | 1^F^2.0361 ^.01^15^1^ F | |
2582 | "IX",2,2," AXCCNTRY", 0) | |
2583 | 2^AXCCNTRY ^Clears co untry spec ific field s when tri ggered^MU^ ^F^R^I^2^^ ^^^A | |
2584 | "IX",2,2," AXCCNTRY", .1,0) | |
2585 | ^^8^8^3060 210^ | |
2586 | "IX",2,2," AXCCNTRY", .1,1,0) | |
2587 | This cross reference is fired whenever t he field C ONFIDENTIA L ADDR | |
2588 | "IX",2,2," AXCCNTRY", .1,2,0) | |
2589 | COUNTRY is changed. It will c lear data in fields associated with | |
2590 | "IX",2,2," AXCCNTRY", .1,3,0) | |
2591 | whether t he COUNTRY value is domestic o r foreign. In the c ase of a | |
2592 | "IX",2,2," AXCCNTRY", .1,4,0) | |
2593 | foreign a ddress, th is cross r eference w ill clear the CONFID ENTIAL ADD R | |
2594 | "IX",2,2," AXCCNTRY", .1,5,0) | |
2595 | STATE, CON FIDENTIAL ADDR COUNT Y and CONF IDENTIAL A DDR ZIP+4 fields. F or a | |
2596 | "IX",2,2," AXCCNTRY", .1,6,0) | |
2597 | domestic C ONFIDENTIA L address, this cros s referenc e will cle ar the | |
2598 | "IX",2,2," AXCCNTRY", .1,7,0) | |
2599 | CONFIDENTI AL PROVIN CE and CON FIDENTIAL POSTAL COD E fields. See routi ne | |
2600 | "IX",2,2," AXCCNTRY", .1,8,0) | |
2601 | ^DGCNTRY f or modify ing which fields are cleared b y this cro ss referen ce. | |
2602 | "IX",2,2," AXCCNTRY", 1) | |
2603 | I ($T(EN^D GCNTRY)'=" ") D EN^DG CNTRY(2,"C ONF",.1411 6) | |
2604 | "IX",2,2," AXCCNTRY", 2) | |
2605 | Q | |
2606 | "IX",2,2," AXCCNTRY", 11.1,0) | |
2607 | ^.114IA^1^ 1 | |
2608 | "IX",2,2," AXCCNTRY", 11.1,1,0) | |
2609 | 1^F^2^.141 16^^^F | |
2610 | "IX",2,2," AXENR13",0 ) | |
2611 | 2^AXENR13^ TRIGGER A MESSAGE FO R ANY CHAN GE TO THES E FIELDS^M U^^R^R^I^2 ^^^^^A | |
2612 | "IX",2,2," AXENR13",. 1,0) | |
2613 | ^^2^2^3060 213^ | |
2614 | "IX",2,2," AXENR13",. 1,1,0) | |
2615 | This cross -reference will trig ger a mess age to the HEC anyti me one of the | |
2616 | "IX",2,2," AXENR13",. 1,2,0) | |
2617 | related fi elds is ch anged. | |
2618 | "IX",2,2," AXENR13",1 ) | |
2619 | D EVENT^IV MPLOG(DA) | |
2620 | "IX",2,2," AXENR13",2 ) | |
2621 | D EVENT^IV MPLOG(DA) | |
2622 | "IX",2,2," AXENR13",1 1.1,0) | |
2623 | ^.114IA^3^ 3 | |
2624 | "IX",2,2," AXENR13",1 1.1,1,0) | |
2625 | 1^F^2^.133 ^^^F | |
2626 | "IX",2,2," AXENR13",1 1.1,2,0) | |
2627 | 2^F^2^.134 ^^^F | |
2628 | "IX",2,2," AXENR13",1 1.1,3,0) | |
2629 | 3^F^2^.135 ^^^F | |
2630 | "IX",2,2," AXTCNTRY", 0) | |
2631 | 2^AXTCNTRY ^Clear tem porary add r fields w hen countr y changes^ MU^^F^R^I^ 2^^^^^A | |
2632 | "IX",2,2," AXTCNTRY", .1,0) | |
2633 | ^^8^8^3060 117^ | |
2634 | "IX",2,2," AXTCNTRY", .1,1,0) | |
2635 | This cros s referenc e is fired whenever the field TEMPORARY ADDRESS | |
2636 | "IX",2,2," AXTCNTRY", .1,2,0) | |
2637 | COUNTRY is changed. It will c lear data in fields associated with whet her | |
2638 | "IX",2,2," AXTCNTRY", .1,3,0) | |
2639 | the COUNTR Y value is domestic or foreign . In the case of a foreign | |
2640 | "IX",2,2," AXTCNTRY", .1,4,0) | |
2641 | address, t his cross reference will clear the TEMPO RARY ADDRE SS STATE, | |
2642 | "IX",2,2," AXTCNTRY", .1,5,0) | |
2643 | TEMPORARY ADDRESS CO UNTY and T EMPORARY A DDRESS ZIP +4 fields. For a | |
2644 | "IX",2,2," AXTCNTRY", .1,6,0) | |
2645 | domestic t emporary a ddress, th is cross r eference w ill clear the TEMPOR ARY | |
2646 | "IX",2,2," AXTCNTRY", .1,7,0) | |
2647 | PROVINCE a nd TEMPORA RY POSTAL CODE field s. See ro utine ^DGC NTRY for | |
2648 | "IX",2,2," AXTCNTRY", .1,8,0) | |
2649 | modifying which fiel ds are cle ared by th is cross r eference. | |
2650 | "IX",2,2," AXTCNTRY", 1) | |
2651 | I ($T(EN^D GCNTRY)'=" ") D EN^DG CNTRY(2,"T EMP",.1223 ) | |
2652 | "IX",2,2," AXTCNTRY", 2) | |
2653 | Q | |
2654 | "IX",2,2," AXTCNTRY", 11.1,0) | |
2655 | ^.114IA^1^ 1 | |
2656 | "IX",2,2," AXTCNTRY", 11.1,1,0) | |
2657 | 1^F^2^.122 3^^^F | |
2658 | "IX",2,2," AZIPLNK2", 0) | |
2659 | 2^AZIPLNK2 ^Update Ci ty, State, and Count y fields b ased on Zi pcode^MU^^ F^^I^2^^^^ ^S | |
2660 | "IX",2,2," AZIPLNK2", 1) | |
2661 | Q | |
2662 | "IX",2,2," AZIPLNK2", 1.4) | |
2663 | I X1(1)'=X 2(1) | |
2664 | "IX",2,2," AZIPLNK2", 2) | |
2665 | K EASDO2 | |
2666 | "IX",2,2," AZIPLNK2", 2.4) | |
2667 | I X1(1)'=X 2(1) | |
2668 | "IX",2,2," AZIPLNK2", 11.1,0) | |
2669 | ^.114IA^2^ 2 | |
2670 | "IX",2,2," AZIPLNK2", 11.1,1,0) | |
2671 | 1^F^2^.116 ^^^F | |
2672 | "IX",2,2," AZIPLNK2", 11.1,2,0) | |
2673 | 2^C | |
2674 | "IX",2,2," AZIPLNK2", 11.1,2,1.5 ) | |
2675 | S:'$G(EASD O2) X=$$ZI P^DGREGDD1 (DA,X(1)), EASDO2=1 | |
2676 | "IX",2,2," NOP",0) | |
2677 | 2^NOP^Inde x of stand ardized va lues that don't matc h .01 valu e.^R^^F^IR ^I^2^^^^^L S | |
2678 | "IX",2,2," NOP",.1,0) | |
2679 | ^^5^5^3050 611 | |
2680 | "IX",2,2," NOP",.1,1, 0) | |
2681 | This cross reference facilitat es PATIENT file look ups by a s tandardize d name | |
2682 | "IX",2,2," NOP",.1,2, 0) | |
2683 | value. In addition to the sta ndardizati on applied by Kernel name util ities, | |
2684 | "IX",2,2," NOP",.1,3, 0) | |
2685 | hyphens an d apostrop hes are al so removed from the name value . This cr oss | |
2686 | "IX",2,2," NOP",.1,4, 0) | |
2687 | reference is only se t if the s tandardize d name is different than the p atient | |
2688 | "IX",2,2," NOP",.1,5, 0) | |
2689 | name value stored in the NAME (#.01) fie ld. | |
2690 | "IX",2,2," NOP",1) | |
2691 | S ^DPT("NO P",$E(X,1, 30),DA)="" | |
2692 | "IX",2,2," NOP",2) | |
2693 | K ^DPT("NO P",$E(X,1, 30),DA) | |
2694 | "IX",2,2," NOP",2.5) | |
2695 | K ^DPT("NO P") | |
2696 | "IX",2,2," NOP",11.1, 0) | |
2697 | ^.114IA^1^ 1 | |
2698 | "IX",2,2," NOP",11.1, 1,0) | |
2699 | 1^F^2^.01^ 30^1^F | |
2700 | "IX",2,2," NOP",11.1, 1,2) | |
2701 | S X=$$NOP^ XLFNAME7(X ) | |
2702 | "IX",2,2," NOP",11.1, 1,4) | |
2703 | S X=$$NOP^ XLFNAME7(X ) | |
2704 | "IX",2,2.0 1,"AVAFC20 101",0) | |
2705 | 2.01^AVAFC 20101^This x-ref cal ls the DG FIELD MONI TOR event point.^MU^ ^F^I^I^2.0 1^^^^^A | |
2706 | "IX",2,2.0 1,"AVAFC20 101",.1,0) | |
2707 | ^^5^5^3040 702 | |
2708 | "IX",2,2.0 1,"AVAFC20 101",.1,1, 0) | |
2709 | This cross reference activates the DG FI ELD MONITO R event po int. | |
2710 | "IX",2,2.0 1,"AVAFC20 101",.1,2, 0) | |
2711 | Applicatio ns that wi sh to moni tor edit a ctivity re lated to t his field may | |
2712 | "IX",2,2.0 1,"AVAFC20 101",.1,3, 0) | |
2713 | subscribe to that ev ent point and take a ction as i ndicated b y the chan ges | |
2714 | "IX",2,2.0 1,"AVAFC20 101",.1,4, 0) | |
2715 | that occur . Refer t o the DG F IELD MONIT OR protoco l for a de scription of | |
2716 | "IX",2,2.0 1,"AVAFC20 101",.1,5, 0) | |
2717 | the inform ation avai lable at t he time of the event . | |
2718 | "IX",2,2.0 1,"AVAFC20 101",1) | |
2719 | D FC^DGFCP ROT(.DA,2. 01,.01,"SE T",$H,$G(D UZ),.X,.X1 ,.X2,$G(XQ Y0)) Q | |
2720 | "IX",2,2.0 1,"AVAFC20 101",2) | |
2721 | D FC^DGFCP ROT(.DA,2. 01,.01,"KI LL",$H,$G( DUZ),.X,.X 1,.X2,$G(X QY0)) Q | |
2722 | "IX",2,2.0 1,"AVAFC20 101",11.1, 0) | |
2723 | ^.114IA^1^ 1 | |
2724 | "IX",2,2.0 1,"AVAFC20 101",11.1, 1,0) | |
2725 | 1^F^2.01^. 01^^^F | |
2726 | "IX",27.11 ,27.11,"AD ",0) | |
2727 | 27.11^AD^T rigger NEA R Order on Enrollmen t Update^M U^^R^IR^I^ 27.11^^^^^ A | |
2728 | "IX",27.11 ,27.11,"AD ",.1,0) | |
2729 | ^^1^1^3180 206^^ | |
2730 | "IX",27.11 ,27.11,"AD ",.1,1,0) | |
2731 | Trigger NE AR Order o n Enrollme nt Update. | |
2732 | "IX",27.11 ,27.11,"AD ",1) | |
2733 | D TRFRMENR ^ORMXTR | |
2734 | "IX",27.11 ,27.11,"AD ",2) | |
2735 | Q | |
2736 | "IX",27.11 ,27.11,"AD ",11.1,0) | |
2737 | ^.114IA^2^ 2 | |
2738 | "IX",27.11 ,27.11,"AD ",11.1,1,0 ) | |
2739 | 1^F^27.11^ .04^^^F | |
2740 | "IX",27.11 ,27.11,"AD ",11.1,2,0 ) | |
2741 | 2^F^27.11^ .02^^^F | |
2742 | "KRN",101, 5008,-1) | |
2743 | 0^1 | |
2744 | "KRN",101, 5008,0) | |
2745 | DGMX DEMOG RAPHICS MO NITOR^DGMX DEMOGRAPH ICS MONITO R^^X^^^^^^ ^^ | |
2746 | "KRN",101, 5008,1,0) | |
2747 | ^^10^10^31 70914^ | |
2748 | "KRN",101, 5008,1,1,0 ) | |
2749 | This proto col is an event poin t which mo nitors the editing o f fields t hat | |
2750 | "KRN",101, 5008,1,2,0 ) | |
2751 | should be updated in MASS when they are changed. T he followi ng variabl es | |
2752 | "KRN",101, 5008,1,3,0 ) | |
2753 | are availa ble for us e by subsc ribers of this proto col: | |
2754 | "KRN",101, 5008,1,4,0 ) | |
2755 | ||
2756 | "KRN",101, 5008,1,5,0 ) | |
2757 | DGMXDFN - Record ID that is be ing modifi ed | |
2758 | "KRN",101, 5008,1,6,0 ) | |
2759 | DGMXFLD - Field numb er of chan ged field | |
2760 | "KRN",101, 5008,1,7,0 ) | |
2761 | DGMXTYPE - Type of c ross refer ence actio n (ADD, DE LETE, or U PDATE) | |
2762 | "KRN",101, 5008,1,8,0 ) | |
2763 | DGMXFMX - X array as documente d for File man new st yle x-refs | |
2764 | "KRN",101, 5008,1,9,0 ) | |
2765 | DGMXFMX1 - X1 array as documen ted for Fi leman new style x-re fs | |
2766 | "KRN",101, 5008,1,10, 0) | |
2767 | DGMXFMX2 - X2 array as documen ted for Fi leman new style x-re fs | |
2768 | "KRN",101, 5008,10,0) | |
2769 | ^101.01PA^ 1^1 | |
2770 | "KRN",101, 5008,10,1, 0) | |
2771 | 5009^^^ | |
2772 | "KRN",101, 5008,10,1, "^") | |
2773 | DGMX MASS Demographi cs Update | |
2774 | "KRN",101, 5008,99) | |
2775 | 64567,3288 4 | |
2776 | "KRN",101, 5009,-1) | |
2777 | 0^2 | |
2778 | "KRN",101, 5009,0) | |
2779 | DGMX MASS Demographi cs Update^ Send an AD T message to update MASS with demographi cs changes .^^A^^^^^^ ^^ | |
2780 | "KRN",101, 5009,1,0) | |
2781 | ^^2^2^3170 914^ | |
2782 | "KRN",101, 5009,1,1,0 ) | |
2783 | This proto col subscr ibes to DG MX DEMOGRA PHICS MONI TOR in ord er to trig ger | |
2784 | "KRN",101, 5009,1,2,0 ) | |
2785 | an HL7 ADT message t o MASS whe n a patien t's demogr aphics cha nge. | |
2786 | "KRN",101, 5009,20) | |
2787 | D TRIGGER^ DGMXADT(DG MXDFN,DGMX TYPE) | |
2788 | "KRN",101, 5009,99) | |
2789 | 64567,3288 4 | |
2790 | "KRN",779. 2,24,-1) | |
2791 | 0^1 | |
2792 | "KRN",779. 2,24,0) | |
2793 | DG-REG-OUT | |
2794 | "KRN",779. 2,24,2) | |
2795 | REGISTRATI ON | |
2796 | "KRN",779. 2,26,-1) | |
2797 | 0^2 | |
2798 | "KRN",779. 2,26,0) | |
2799 | DG-ORU-OUT | |
2800 | "KRN",779. 2,26,2) | |
2801 | REGISTRATI ON | |
2802 | "KRN",8989 .51,847,-1 ) | |
2803 | 0^1 | |
2804 | "KRN",8989 .51,847,0) | |
2805 | DGMX PATIE NT IEN ASS IGNING^PAT IENT IEN A SSIGNING A UTHORITY^0 | |
2806 | "KRN",8989 .51,847,1) | |
2807 | F | |
2808 | "KRN",8989 .51,847,20 ,0) | |
2809 | ^^2^2^3171 128^ | |
2810 | "KRN",8989 .51,847,20 ,1,0) | |
2811 | The IEN as signing au thority id entifies t he deploym ent that g enerates | |
2812 | "KRN",8989 .51,847,20 ,2,0) | |
2813 | patient id entifiers. | |
2814 | "KRN",8989 .51,847,30 ,0) | |
2815 | ^8989.513I ^1^1 | |
2816 | "KRN",8989 .51,847,30 ,1,0) | |
2817 | 1^4.2 | |
2818 | "KRN",8989 .51,856,-1 ) | |
2819 | 0^2 | |
2820 | "KRN",8989 .51,856,0) | |
2821 | DGMX MASS ENABLED^En able MASS Functional ity^0^^^0 | |
2822 | "KRN",8989 .51,856,1) | |
2823 | Y^^Set to Yes to ena ble MASS | |
2824 | "KRN",8989 .51,856,20 ,0) | |
2825 | ^^2^2^3171 129^ | |
2826 | "KRN",8989 .51,856,20 ,1,0) | |
2827 | Determines if MASS d emographic s interfac ing is ena bled. Set to Yes to | |
2828 | "KRN",8989 .51,856,20 ,2,0) | |
2829 | enable MAS S. | |
2830 | "KRN",8989 .51,856,30 ,0) | |
2831 | ^8989.513I ^1^1 | |
2832 | "KRN",8989 .51,856,30 ,1,0) | |
2833 | 1^4.2 | |
2834 | "KRN",8989 .51,858,-1 ) | |
2835 | 0^3 | |
2836 | "KRN",8989 .51,858,0) | |
2837 | DGMX CONV THREADS^^0 ^^^0 | |
2838 | "KRN",8989 .51,858,1) | |
2839 | N^^Enter t he number of threads for the d emographic s conversi on interfa ce | |
2840 | "KRN",8989 .51,858,20 ,0) | |
2841 | ^^2^2^3171 130^ | |
2842 | "KRN",8989 .51,858,20 ,1,0) | |
2843 | When trigg ering the conversion this will allow mul tiple HL L ogical Lin ks | |
2844 | "KRN",8989 .51,858,20 ,2,0) | |
2845 | to be used . | |
2846 | "KRN",8989 .51,858,30 ,0) | |
2847 | ^8989.513I ^1^1 | |
2848 | "KRN",8989 .51,858,30 ,1,0) | |
2849 | 1^4.2 | |
2850 | "MBREQ") | |
2851 | 0 | |
2852 | "ORD",15,1 01) | |
2853 | 101;15;;;P RO^XPDTA;P ROF1^XPDIA ;PROE1^XPD IA;PROF2^X PDIA;;PROD EL^XPDIA | |
2854 | "ORD",15,1 01,0) | |
2855 | PROTOCOL | |
2856 | "ORD",20,8 989.51) | |
2857 | 8989.51;20 ;;;PAR1E1^ XPDTA2;PAR 1F1^XPDIA3 ;PAR1E1^XP DIA3;PAR1F 2^XPDIA3;; PAR1DEL^XP DIA3(%) | |
2858 | "ORD",20,8 989.51,0) | |
2859 | PARAMETER DEFINITION | |
2860 | "ORD",22,7 79.2) | |
2861 | 779.2;22;1 ;;HLOAP^XP DTA1;;HLOE ^XPDIA1;;; | |
2862 | "ORD",22,7 79.2,0) | |
2863 | HLO APPLIC ATION REGI STRY | |
2864 | "PKG",47,- 1) | |
2865 | 1^1 | |
2866 | "PKG",47,0 ) | |
2867 | REGISTRATI ON^DG^PATI ENT REGIST RATION, AD MISSION, D ISCHARGE, EMBOSSER | |
2868 | "PKG",47,2 0,0) | |
2869 | ^9.402P^^ | |
2870 | "PKG",47,2 2,0) | |
2871 | ^9.49I^1^1 | |
2872 | "PKG",47,2 2,1,0) | |
2873 | 5.3^305111 9^2960613 | |
2874 | "PKG",47,2 2,1,"PAH", 1,0) | |
2875 | 948^318050 4 | |
2876 | "PKG",47,2 2,1,"PAH", 1,1,0) | |
2877 | ^^559^559^ 3180504 | |
2878 | "PKG",47,2 2,1,"PAH", 1,1,1,0) | |
2879 | Associated patches: SD*5.3*676 , DG*5.3*7 54, DG*5.3 *578, DG*5 .3*149 | |
2880 | "PKG",47,2 2,1,"PAH", 1,1,2,0) | |
2881 | ||
2882 | "PKG",47,2 2,1,"PAH", 1,1,3,0) | |
2883 | Subject: MASS Regis tration Pa ckage | |
2884 | "PKG",47,2 2,1,"PAH", 1,1,4,0) | |
2885 | ||
2886 | "PKG",47,2 2,1,"PAH", 1,1,5,0) | |
2887 | Category: ROUTINE, PROTOCOLS, INTERFACE S | |
2888 | "PKG",47,2 2,1,"PAH", 1,1,6,0) | |
2889 | ||
2890 | "PKG",47,2 2,1,"PAH", 1,1,7,0) | |
2891 | ||
2892 | "PKG",47,2 2,1,"PAH", 1,1,8,0) | |
2893 | Descriptio n: | |
2894 | "PKG",47,2 2,1,"PAH", 1,1,9,0) | |
2895 | ---------- -- | |
2896 | "PKG",47,2 2,1,"PAH", 1,1,10,0) | |
2897 | This patch contains the Regist ration por tions of t he Medical Appointme nt | |
2898 | "PKG",47,2 2,1,"PAH", 1,1,11,0) | |
2899 | Scheduling System (M ASS) proje ct. The MA SS program is deploy ing a | |
2900 | "PKG",47,2 2,1,"PAH", 1,1,12,0) | |
2901 | commercial schedulin g applicat ion to sup port sched ulers, and ultimatel y | |
2902 | "PKG",47,2 2,1,"PAH", 1,1,13,0) | |
2903 | our Vetera ns, within the Depar tment of V eterans Af fairs (VA) . | |
2904 | "PKG",47,2 2,1,"PAH", 1,1,14,0) | |
2905 | ||
2906 | "PKG",47,2 2,1,"PAH", 1,1,15,0) | |
2907 | ||
2908 | "PKG",47,2 2,1,"PAH", 1,1,16,0) | |
2909 | Patch Comp onents: | |
2910 | "PKG",47,2 2,1,"PAH", 1,1,17,0) | |
2911 | ---------- ------- | |
2912 | "PKG",47,2 2,1,"PAH", 1,1,18,0) | |
2913 | ||
2914 | "PKG",47,2 2,1,"PAH", 1,1,19,0) | |
2915 | Parameters : | |
2916 | "PKG",47,2 2,1,"PAH", 1,1,20,0) | |
2917 | DG MX MASS EN ABLED - En ables send ing HL7 me ssages to MASS when | |
2918 | "PKG",47,2 2,1,"PAH", 1,1,21,0) | |
2919 | patient-re lated fiel ds change in VistA. | |
2920 | "PKG",47,2 2,1,"PAH", 1,1,22,0) | |
2921 | DG MX PATIENT IEN ASSIG NING - Set s the Pati ent ID Ass igning | |
2922 | "PKG",47,2 2,1,"PAH", 1,1,23,0) | |
2923 | Authority to be sent in PID-3. 4 of MASS HL7 messag es. | |
2924 | "PKG",47,2 2,1,"PAH", 1,1,24,0) | |
2925 | DG MX CONV TH READS - Sp ecifies ho w many out going HLO Logical Li nks | |
2926 | "PKG",47,2 2,1,"PAH", 1,1,25,0) | |
2927 | are used f or sending messages from the D GMX . util ity. The L ink names | |
2928 | "PKG",47,2 2,1,"PAH", 1,1,26,0) | |
2929 | must be in the forma t DG ADT O <n>, where <n> is an increment ing intege r | |
2930 | "PKG",47,2 2,1,"PAH", 1,1,27,0) | |
2931 | starting a t 1. | |
2932 | "PKG",47,2 2,1,"PAH", 1,1,28,0) | |
2933 | ||
2934 | "PKG",47,2 2,1,"PAH", 1,1,29,0) | |
2935 | <Additiona l patch co mponents c an be adde d alphabet ically if needed (e. g., | |
2936 | "PKG",47,2 2,1,"PAH", 1,1,30,0) | |
2937 | APIs, Bull etins, Par ameters, R PCs, etc.) .> | |
2938 | "PKG",47,2 2,1,"PAH", 1,1,31,0) | |
2939 | ||
2940 | "PKG",47,2 2,1,"PAH", 1,1,32,0) | |
2941 | ||
2942 | "PKG",47,2 2,1,"PAH", 1,1,33,0) | |
2943 | Files & Fi elds Assoc iated: | |
2944 | "PKG",47,2 2,1,"PAH", 1,1,34,0) | |
2945 | ||
2946 | "PKG",47,2 2,1,"PAH", 1,1,35,0) | |
2947 | File Name (Number) Field Name (Numb er) Ne w/Modified /Deleted | |
2948 | "PKG",47,2 2,1,"PAH", 1,1,36,0) | |
2949 | ---------- -------- ------ ---------- --- -- ---------- -------- | |
2950 | "PKG",47,2 2,1,"PAH", 1,1,37,0) | |
2951 | PATIENT (2 ) Name ( .01) Mo dified | |
2952 | "PKG",47,2 2,1,"PAH", 1,1,38,0) | |
2953 | PATIENT (2 ) Sex (. 02) Mo dified | |
2954 | "PKG",47,2 2,1,"PAH", 1,1,39,0) | |
2955 | PATIENT (2 ) SELD I DENTIFIED GENDER (.0 24) Modifi ed | |
2956 | "PKG",47,2 2,1,"PAH", 1,1,40,0) | |
2957 | PATIENT (2 ) DOB (. 03) Mo dified | |
2958 | "PKG",47,2 2,1,"PAH", 1,1,41,0) | |
2959 | PATIENT (2 ) SSN (. 09) Mo dified | |
2960 | "PKG",47,2 2,1,"PAH", 1,1,42,0) | |
2961 | PATIENT (2 ) ZIP CO DE (.116) Modified | |
2962 | "PKG",47,2 2,1,"PAH", 1,1,43,0) | |
2963 | PATIENT (2 ) BAD AD DRESS INDI CATOR | |
2964 | "PKG",47,2 2,1,"PAH", 1,1,44,0) | |
2965 | (.12 1) Modified | |
2966 | "PKG",47,2 2,1,"PAH", 1,1,45,0) | |
2967 | PATIENT (2 ) TEMPOR ARY STREET | |
2968 | "PKG",47,2 2,1,"PAH", 1,1,46,0) | |
2969 | [LIN E 1] (.121 1) Modified | |
2970 | "PKG",47,2 2,1,"PAH", 1,1,47,0) | |
2971 | PATIENT (2 ) TEMPOR ARY STREET | |
2972 | "PKG",47,2 2,1,"PAH", 1,1,48,0) | |
2973 | [LIN E 2] (.121 2) Modified | |
2974 | "PKG",47,2 2,1,"PAH", 1,1,49,0) | |
2975 | PATIENT (2 ) TEMPOR ARY STREET | |
2976 | "PKG",47,2 2,1,"PAH", 1,1,50,0) | |
2977 | [LIN E 3] (.121 3) Modified | |
2978 | "PKG",47,2 2,1,"PAH", 1,1,51,0) | |
2979 | PATIENT (2 ) TEMPOR ARY CITY ( .1214) Mo dified | |
2980 | "PKG",47,2 2,1,"PAH", 1,1,52,0) | |
2981 | PATIENT (2 ) TEMPOR ARY STATE (.1215) Mo dified | |
2982 | "PKG",47,2 2,1,"PAH", 1,1,53,0) | |
2983 | PATIENT (2 ) TEMPOR ARY ZIP CO DE | |
2984 | "PKG",47,2 2,1,"PAH", 1,1,54,0) | |
2985 | (.12 16) Modified | |
2986 | "PKG",47,2 2,1,"PAH", 1,1,55,0) | |
2987 | PATIENT (2 ) TEMPOR ARY ADDRES S | |
2988 | "PKG",47,2 2,1,"PAH", 1,1,56,0) | |
2989 | STAR T DATE (.1 217) Modified | |
2990 | "PKG",47,2 2,1,"PAH", 1,1,57,0) | |
2991 | PATIENT (2 ) TEMPOR ARY ADDRES S | |
2992 | "PKG",47,2 2,1,"PAH", 1,1,58,0) | |
2993 | END DATE (.121 8) Modified | |
2994 | "PKG",47,2 2,1,"PAH", 1,1,59,0) | |
2995 | PATIENT (2 ) TEMPOR ARY ADDRES S | |
2996 | "PKG",47,2 2,1,"PAH", 1,1,60,0) | |
2997 | COUN TRY (.1223 ) Modified | |
2998 | "PKG",47,2 2,1,"PAH", 1,1,61,0) | |
2999 | PATIENT (2 ) EMAIL ADDRESS (. 133) Modi fied | |
3000 | "PKG",47,2 2,1,"PAH", 1,1,62,0) | |
3001 | PATIENT (2 ) PHONE NUMBER | |
3002 | "PKG",47,2 2,1,"PAH", 1,1,63,0) | |
3003 | [CEL LULAR] (.1 34) Modified | |
3004 | "PKG",47,2 2,1,"PAH", 1,1,64,0) | |
3005 | PATIENT (2 ) CONFID ENTIAL STR EET | |
3006 | "PKG",47,2 2,1,"PAH", 1,1,65,0) | |
3007 | [LIN E 1] (.141 1) Modified | |
3008 | "PKG",47,2 2,1,"PAH", 1,1,66,0) | |
3009 | PATIENT (2 ) CONFID ENTIAL ADD R | |
3010 | "PKG",47,2 2,1,"PAH", 1,1,67,0) | |
3011 | COUN TRY (.1411 6) Modified | |
3012 | "PKG",47,2 2,1,"PAH", 1,1,68,0) | |
3013 | PATIENT (2 ) CONFID ENTIAL STR EET | |
3014 | "PKG",47,2 2,1,"PAH", 1,1,69,0) | |
3015 | [LIN E 2] (.141 2) Modified | |
3016 | "PKG",47,2 2,1,"PAH", 1,1,70,0) | |
3017 | PATIENT (2 ) CONFID ENTIAL STR EET | |
3018 | "PKG",47,2 2,1,"PAH", 1,1,71,0) | |
3019 | [LIN E 3] (.141 3) Modified | |
3020 | "PKG",47,2 2,1,"PAH", 1,1,72,0) | |
3021 | PATIENT (2 ) CONFID ENTIAL ADD RESS | |
3022 | "PKG",47,2 2,1,"PAH", 1,1,73,0) | |
3023 | CITY (.1414) Modified | |
3024 | "PKG",47,2 2,1,"PAH", 1,1,74,0) | |
3025 | PATIENT (2 ) CONFID ENTIAL ADD RESS | |
3026 | "PKG",47,2 2,1,"PAH", 1,1,75,0) | |
3027 | STAT E (.1415) Modified | |
3028 | "PKG",47,2 2,1,"PAH", 1,1,76,0) | |
3029 | PATIENT (2 ) CONFID ENTIAL ADD RESS | |
3030 | "PKG",47,2 2,1,"PAH", 1,1,77,0) | |
3031 | ZIP CODE (.141 6) Modified | |
3032 | "PKG",47,2 2,1,"PAH", 1,1,78,0) | |
3033 | PATIENT (2 ) CONFID ENTIAL STA RT | |
3034 | "PKG",47,2 2,1,"PAH", 1,1,79,0) | |
3035 | DATE (.1417) Modified | |
3036 | "PKG",47,2 2,1,"PAH", 1,1,80,0) | |
3037 | PATIENT (2 ) CONFID ENTIAL END | |
3038 | "PKG",47,2 2,1,"PAH", 1,1,81,0) | |
3039 | DATE (.1418) Modified | |
3040 | "PKG",47,2 2,1,"PAH", 1,1,82,0) | |
3041 | PATIENT (2 ) E-NAME (.331) Mo dified | |
3042 | "PKG",47,2 2,1,"PAH", 1,1,83,0) | |
3043 | PATIENT (2 ) E-RELA TIONSHIP T O | |
3044 | "PKG",47,2 2,1,"PAH", 1,1,84,0) | |
3045 | PATI ENT (.332) Modified | |
3046 | "PKG",47,2 2,1,"PAH", 1,1,85,0) | |
3047 | PATIENT (2 ) E-STRE ET ADDRESS | |
3048 | "PKG",47,2 2,1,"PAH", 1,1,86,0) | |
3049 | [LIN E 1] (.333 ) Modified | |
3050 | "PKG",47,2 2,1,"PAH", 1,1,87,0) | |
3051 | PATIENT (2 ) E-STRE ET ADDRESS | |
3052 | "PKG",47,2 2,1,"PAH", 1,1,88,0) | |
3053 | [LIN E 2] (.334 ) Modified | |
3054 | "PKG",47,2 2,1,"PAH", 1,1,89,0) | |
3055 | PATIENT (2 ) E-STRE ET ADDRESS | |
3056 | "PKG",47,2 2,1,"PAH", 1,1,90,0) | |
3057 | [LIN E 3] (.335 ) Modified | |
3058 | "PKG",47,2 2,1,"PAH", 1,1,91,0) | |
3059 | PATIENT (2 ) E-CITY (.336) Mo dified | |
3060 | "PKG",47,2 2,1,"PAH", 1,1,92,0) | |
3061 | PATIENT (2 ) E-STAT E (.337) Modified | |
3062 | "PKG",47,2 2,1,"PAH", 1,1,93,0) | |
3063 | PATIENT (2 ) E-ZIP CODE (.338 ) Mo dified | |
3064 | "PKG",47,2 2,1,"PAH", 1,1,94,0) | |
3065 | PATIENT (2 ) E-PHON E NUMBER ( .339) Mo dified | |
3066 | "PKG",47,2 2,1,"PAH", 1,1,95,0) | |
3067 | PATIENT (2 ) PRIMAR Y ELIGIBIL ITY | |
3068 | "PKG",47,2 2,1,"PAH", 1,1,96,0) | |
3069 | CODE (.361) Modified | |
3070 | "PKG",47,2 2,1,"PAH", 1,1,97,0) | |
3071 | PATIENT (2 ) ELIGIB ILITY STAT US | |
3072 | "PKG",47,2 2,1,"PAH", 1,1,98,0) | |
3073 | (.36 11) Modified | |
3074 | "PKG",47,2 2,1,"PAH", 1,1,99,0) | |
3075 | PATIENT (2 ) COMBAT SERVICE | |
3076 | "PKG",47,2 2,1,"PAH", 1,1,100,0) | |
3077 | INDI CATED (.52 91) Modified | |
3078 | "PKG",47,2 2,1,"PAH", 1,1,101,0) | |
3079 | PATIENT (2 ) COMBAT VETERAN E ND | |
3080 | "PKG",47,2 2,1,"PAH", 1,1,102,0) | |
3081 | DATE (.5295) Modified | |
3082 | "PKG",47,2 2,1,"PAH", 1,1,103,0) | |
3083 | PATIENT (2 ) ALIAS (1,.01) Mo dified | |
3084 | "PKG",47,2 2,1,"PAH", 1,1,104,0) | |
3085 | PATIENT (2 ) DENTAL CLASSIFIC ATION | |
3086 | "PKG",47,2 2,1,"PAH", 1,1,105,0) | |
3087 | (220 ) Modified | |
3088 | "PKG",47,2 2,1,"PAH", 1,1,106,0) | |
3089 | PATIENT (2 ) APPOIN TMENT REQU EST ON MO DIFIED | |
3090 | "PKG",47,2 2,1,"PAH", 1,1,107,0) | |
3091 | 1010 EZ (1010.1 59) | |
3092 | "PKG",47,2 2,1,"PAH", 1,1,108,0) | |
3093 | PATIENT (2 ) APPOIN TMENT REQU EST MO DIFIED | |
3094 | "PKG",47,2 2,1,"PAH", 1,1,109,0) | |
3095 | STAT US (1010.1 61) | |
3096 | "PKG",47,2 2,1,"PAH", 1,1,110,0) | |
3097 | PRF ASSIGN MENT | |
3098 | "PKG",47,2 2,1,"PAH", 1,1,111,0) | |
3099 | HISTORY (2 6.14) ACTI ON (.03) Modified | |
3100 | "PKG",47,2 2,1,"PAH", 1,1,112,0) | |
3101 | DG SECURIT Y | |
3102 | "PKG",47,2 2,1,"PAH", 1,1,113,0) | |
3103 | LOG (38.1) SECURI TY LEVEL ( 2) Mo dified | |
3104 | "PKG",47,2 2,1,"PAH", 1,1,114,0) | |
3105 | PRE-REGIST RATION | |
3106 | "PKG",47,2 2,1,"PAH", 1,1,115,0) | |
3107 | AUDIT (41. 41) DATE C HANGED (1) Mo dified | |
3108 | "PKG",47,2 2,1,"PAH", 1,1,116,0) | |
3109 | ADT/HL7 PI VOT (391.7 1) ENTRY WAS CREATE D BY | |
3110 | "PKG",47,2 2,1,"PAH", 1,1,117,0) | |
3111 | MASS EPIC (.11) New | |
3112 | "PKG",47,2 2,1,"PAH", 1,1,118,0) | |
3113 | ||
3114 | "PKG",47,2 2,1,"PAH", 1,1,119,0) | |
3115 | Patch Comp onents: | |
3116 | "PKG",47,2 2,1,"PAH", 1,1,120,0) | |
3117 | ---------- ------- | |
3118 | "PKG",47,2 2,1,"PAH", 1,1,121,0) | |
3119 | ||
3120 | "PKG",47,2 2,1,"PAH", 1,1,122,0) | |
3121 | HLO Applic ations: | |
3122 | "PKG",47,2 2,1,"PAH", 1,1,123,0) | |
3123 | DG-REG-OUT | |
3124 | "PKG",47,2 2,1,"PAH", 1,1,124,0) | |
3125 | ||
3126 | "PKG",47,2 2,1,"PAH", 1,1,125,0) | |
3127 | HLO Logica l Links: | |
3128 | "PKG",47,2 2,1,"PAH", 1,1,126,0) | |
3129 | DG ADT OUT | |
3130 | "PKG",47,2 2,1,"PAH", 1,1,127,0) | |
3131 | DG ORU OUT | |
3132 | "PKG",47,2 2,1,"PAH", 1,1,128,0) | |
3133 | ||
3134 | "PKG",47,2 2,1,"PAH", 1,1,129,0) | |
3135 | Parameters : | |
3136 | "PKG",47,2 2,1,"PAH", 1,1,130,0) | |
3137 | DGMX MASS ENABLE | |
3138 | "PKG",47,2 2,1,"PAH", 1,1,131,0) | |
3139 | DGMX PATIE NT IEN ASS IGNING | |
3140 | "PKG",47,2 2,1,"PAH", 1,1,132,0) | |
3141 | DGMC CONV THREADS | |
3142 | "PKG",47,2 2,1,"PAH", 1,1,133,0) | |
3143 | ||
3144 | "PKG",47,2 2,1,"PAH", 1,1,134,0) | |
3145 | ||
3146 | "PKG",47,2 2,1,"PAH", 1,1,135,0) | |
3147 | Forms Asso ciated: | |
3148 | "PKG",47,2 2,1,"PAH", 1,1,136,0) | |
3149 | ||
3150 | "PKG",47,2 2,1,"PAH", 1,1,137,0) | |
3151 | Form Name File # New/Mo dified/Del eted | |
3152 | "PKG",47,2 2,1,"PAH", 1,1,138,0) | |
3153 | --------- ---- -- ------ ---------- ---- | |
3154 | "PKG",47,2 2,1,"PAH", 1,1,139,0) | |
3155 | N/A | |
3156 | "PKG",47,2 2,1,"PAH", 1,1,140,0) | |
3157 | ||
3158 | "PKG",47,2 2,1,"PAH", 1,1,141,0) | |
3159 | ||
3160 | "PKG",47,2 2,1,"PAH", 1,1,142,0) | |
3161 | Mail Group s Associat ed: | |
3162 | "PKG",47,2 2,1,"PAH", 1,1,143,0) | |
3163 | ||
3164 | "PKG",47,2 2,1,"PAH", 1,1,144,0) | |
3165 | Mail Group Name New/ Modified/D eleted | |
3166 | "PKG",47,2 2,1,"PAH", 1,1,145,0) | |
3167 | ---------- ----- ---- ---------- ------ | |
3168 | "PKG",47,2 2,1,"PAH", 1,1,146,0) | |
3169 | N/A | |
3170 | "PKG",47,2 2,1,"PAH", 1,1,147,0) | |
3171 | ||
3172 | "PKG",47,2 2,1,"PAH", 1,1,148,0) | |
3173 | ||
3174 | "PKG",47,2 2,1,"PAH", 1,1,149,0) | |
3175 | Options As sociated: | |
3176 | "PKG",47,2 2,1,"PAH", 1,1,150,0) | |
3177 | ||
3178 | "PKG",47,2 2,1,"PAH", 1,1,151,0) | |
3179 | Option Nam e Type New/Mo dified/Del eted | |
3180 | "PKG",47,2 2,1,"PAH", 1,1,152,0) | |
3181 | ---------- - ---- ------ ---------- ---- | |
3182 | "PKG",47,2 2,1,"PAH", 1,1,153,0) | |
3183 | N/A | |
3184 | "PKG",47,2 2,1,"PAH", 1,1,154,0) | |
3185 | ||
3186 | "PKG",47,2 2,1,"PAH", 1,1,155,0) | |
3187 | ||
3188 | "PKG",47,2 2,1,"PAH", 1,1,156,0) | |
3189 | Protocols Associated : | |
3190 | "PKG",47,2 2,1,"PAH", 1,1,157,0) | |
3191 | ||
3192 | "PKG",47,2 2,1,"PAH", 1,1,158,0) | |
3193 | Protocol N ame New/Mo dified/Del eted | |
3194 | "PKG",47,2 2,1,"PAH", 1,1,159,0) | |
3195 | ---------- --- ------ ---------- ---- | |
3196 | "PKG",47,2 2,1,"PAH", 1,1,160,0) | |
3197 | DGMX DEMOG RAPHICS MO NITOR New | |
3198 | "PKG",47,2 2,1,"PAH", 1,1,161,0) | |
3199 | DGMX MASS Demographi cs Update New | |
3200 | "PKG",47,2 2,1,"PAH", 1,1,162,0) | |
3201 | ||
3202 | "PKG",47,2 2,1,"PAH", 1,1,163,0) | |
3203 | Security K eys Associ ated: | |
3204 | "PKG",47,2 2,1,"PAH", 1,1,164,0) | |
3205 | ||
3206 | "PKG",47,2 2,1,"PAH", 1,1,165,0) | |
3207 | Security K ey Name | |
3208 | "PKG",47,2 2,1,"PAH", 1,1,166,0) | |
3209 | ---------- ------- | |
3210 | "PKG",47,2 2,1,"PAH", 1,1,167,0) | |
3211 | N/A | |
3212 | "PKG",47,2 2,1,"PAH", 1,1,168,0) | |
3213 | ||
3214 | "PKG",47,2 2,1,"PAH", 1,1,169,0) | |
3215 | ||
3216 | "PKG",47,2 2,1,"PAH", 1,1,170,0) | |
3217 | Templates Associated : | |
3218 | "PKG",47,2 2,1,"PAH", 1,1,171,0) | |
3219 | ||
3220 | "PKG",47,2 2,1,"PAH", 1,1,172,0) | |
3221 | Template N ame Type File N ame (Numbe r) New/Mo dified/Del eted | |
3222 | "PKG",47,2 2,1,"PAH", 1,1,173,0) | |
3223 | ---------- --- ---- ------ ---------- -- ------ ---------- ---- | |
3224 | "PKG",47,2 2,1,"PAH", 1,1,174,0) | |
3225 | N/A | |
3226 | "PKG",47,2 2,1,"PAH", 1,1,175,0) | |
3227 | ||
3228 | "PKG",47,2 2,1,"PAH", 1,1,176,0) | |
3229 | ||
3230 | "PKG",47,2 2,1,"PAH", 1,1,177,0) | |
3231 | Additional Informati on: | |
3232 | "PKG",47,2 2,1,"PAH", 1,1,178,0) | |
3233 | N/A | |
3234 | "PKG",47,2 2,1,"PAH", 1,1,179,0) | |
3235 | ||
3236 | "PKG",47,2 2,1,"PAH", 1,1,180,0) | |
3237 | ||
3238 | "PKG",47,2 2,1,"PAH", 1,1,181,0) | |
3239 | New Servic e Requests (NSRs): | |
3240 | "PKG",47,2 2,1,"PAH", 1,1,182,0) | |
3241 | ---------- ---------- -------- | |
3242 | "PKG",47,2 2,1,"PAH", 1,1,183,0) | |
3243 | N/A | |
3244 | "PKG",47,2 2,1,"PAH", 1,1,184,0) | |
3245 | ||
3246 | "PKG",47,2 2,1,"PAH", 1,1,185,0) | |
3247 | ||
3248 | "PKG",47,2 2,1,"PAH", 1,1,186,0) | |
3249 | Patient Sa fety Issue s (PSIs): | |
3250 | "PKG",47,2 2,1,"PAH", 1,1,187,0) | |
3251 | ---------- ---------- --------- | |
3252 | "PKG",47,2 2,1,"PAH", 1,1,188,0) | |
3253 | N/A | |
3254 | "PKG",47,2 2,1,"PAH", 1,1,189,0) | |
3255 | ||
3256 | "PKG",47,2 2,1,"PAH", 1,1,190,0) | |
3257 | ||
3258 | "PKG",47,2 2,1,"PAH", 1,1,191,0) | |
3259 | Defect Tra cking Syst em Ticket( s) & Overv iew: | |
3260 | "PKG",47,2 2,1,"PAH", 1,1,192,0) | |
3261 | ---------- ---------- ---------- ---------- ---- | |
3262 | "PKG",47,2 2,1,"PAH", 1,1,193,0) | |
3263 | N/A | |
3264 | "PKG",47,2 2,1,"PAH", 1,1,194,0) | |
3265 | ||
3266 | "PKG",47,2 2,1,"PAH", 1,1,195,0) | |
3267 | Problem: | |
3268 | "PKG",47,2 2,1,"PAH", 1,1,196,0) | |
3269 | ------- | |
3270 | "PKG",47,2 2,1,"PAH", 1,1,197,0) | |
3271 | N/A | |
3272 | "PKG",47,2 2,1,"PAH", 1,1,198,0) | |
3273 | ||
3274 | "PKG",47,2 2,1,"PAH", 1,1,199,0) | |
3275 | Resolution : | |
3276 | "PKG",47,2 2,1,"PAH", 1,1,200,0) | |
3277 | ---------- | |
3278 | "PKG",47,2 2,1,"PAH", 1,1,201,0) | |
3279 | N/A | |
3280 | "PKG",47,2 2,1,"PAH", 1,1,202,0) | |
3281 | ||
3282 | "PKG",47,2 2,1,"PAH", 1,1,203,0) | |
3283 | Test Sites : | |
3284 | "PKG",47,2 2,1,"PAH", 1,1,204,0) | |
3285 | ---------- | |
3286 | "PKG",47,2 2,1,"PAH", 1,1,205,0) | |
3287 | Columbus, OH | |
3288 | "PKG",47,2 2,1,"PAH", 1,1,206,0) | |
3289 | ||
3290 | "PKG",47,2 2,1,"PAH", 1,1,207,0) | |
3291 | ||
3292 | "PKG",47,2 2,1,"PAH", 1,1,208,0) | |
3293 | Software a nd Documen tation Ret rieval Ins tructions: | |
3294 | "PKG",47,2 2,1,"PAH", 1,1,209,0) | |
3295 | ---------- ---------- ---------- ---------- ---------- -- | |
3296 | "PKG",47,2 2,1,"PAH", 1,1,210,0) | |
3297 | Software b eing relea sed as a h ost file a nd/or docu mentation describing | |
3298 | "PKG",47,2 2,1,"PAH", 1,1,211,0) | |
3299 | the new fu nctionalit y introduc ed by this patch are available . | |
3300 | "PKG",47,2 2,1,"PAH", 1,1,212,0) | |
3301 | ||
3302 | "PKG",47,2 2,1,"PAH", 1,1,213,0) | |
3303 | The prefer red method is to ret rieve file s from dow nload. DNS . DNS . | |
3304 | "PKG",47,2 2,1,"PAH", 1,1,214,0) | |
3305 | This trans mits the f iles from the first available server. Si tes may | |
3306 | "PKG",47,2 2,1,"PAH", 1,1,215,0) | |
3307 | also elect to retrie ve files d irectly fr om a speci fic server . | |
3308 | "PKG",47,2 2,1,"PAH", 1,1,216,0) | |
3309 | ||
3310 | "PKG",47,2 2,1,"PAH", 1,1,217,0) | |
3311 | Sites may retrieve t he softwar e and/or d ocumentati on directl y using | |
3312 | "PKG",47,2 2,1,"PAH", 1,1,218,0) | |
3313 | Secure Fil e Transfer Protocol (SFTP) fro m the ANON YMOUS.SOFT WARE | |
3314 | "PKG",47,2 2,1,"PAH", 1,1,219,0) | |
3315 | directory at the fol lowing | |
3316 | "PKG",47,2 2,1,"PAH", 1,1,220,0) | |
3317 | OI Field O ffices: | |
3318 | "PKG",47,2 2,1,"PAH", 1,1,221,0) | |
3319 | ||
3320 | "PKG",47,2 2,1,"PAH", 1,1,222,0) | |
3321 | Albany: DN S .UR L | |
3322 | "PKG",47,2 2,1,"PAH", 1,1,223,0) | |
3323 | Hines: DN S .URL | |
3324 | "PKG",47,2 2,1,"PAH", 1,1,224,0) | |
3325 | Salt Lake City:
|
|
3326 | "PKG",47,2 2,1,"PAH", 1,1,225,0) | |
3327 | ||
3328 | "PKG",47,2 2,1,"PAH", 1,1,226,0) | |
3329 | Documentat ion can al so be foun d on the V A Software Documenta tion Libra ry | |
3330 | "PKG",47,2 2,1,"PAH", 1,1,227,0) | |
3331 | at: | |
3332 | "PKG",47,2 2,1,"PAH", 1,1,228,0) | |
3333 | http://www . DNS /vdl/ | |
3334 | "PKG",47,2 2,1,"PAH", 1,1,229,0) | |
3335 | ||
3336 | "PKG",47,2 2,1,"PAH", 1,1,230,0) | |
3337 | ||
3338 | "PKG",47,2 2,1,"PAH", 1,1,231,0) | |
3339 | Title Fi le Name FTP Mo de | |
3340 | "PKG",47,2 2,1,"PAH", 1,1,232,0) | |
3341 | ---------- ---------- ---------- ---------- ---------- ---------- ---------- - | |
3342 | "PKG",47,2 2,1,"PAH", 1,1,233,0) | |
3343 | MASS VistA Technical Manual | |
3344 | "PKG",47,2 2,1,"PAH", 1,1,234,0) | |
3345 | ||
3346 | "PKG",47,2 2,1,"PAH", 1,1,235,0) | |
3347 | Patch Inst allation: | |
3348 | "PKG",47,2 2,1,"PAH", 1,1,236,0) | |
3349 | ||
3350 | "PKG",47,2 2,1,"PAH", 1,1,237,0) | |
3351 | ||
3352 | "PKG",47,2 2,1,"PAH", 1,1,238,0) | |
3353 | Pre/Post I nstallatio n Overview : | |
3354 | "PKG",47,2 2,1,"PAH", 1,1,239,0) | |
3355 | ---------- ---------- ---------- - | |
3356 | "PKG",47,2 2,1,"PAH", 1,1,240,0) | |
3357 | N/A | |
3358 | "PKG",47,2 2,1,"PAH", 1,1,241,0) | |
3359 | ||
3360 | "PKG",47,2 2,1,"PAH", 1,1,242,0) | |
3361 | ||
3362 | "PKG",47,2 2,1,"PAH", 1,1,243,0) | |
3363 | Pre-Instal lation Ins tructions: | |
3364 | "PKG",47,2 2,1,"PAH", 1,1,244,0) | |
3365 | ---------- ---------- ---------- | |
3366 | "PKG",47,2 2,1,"PAH", 1,1,245,0) | |
3367 | ||
3368 | "PKG",47,2 2,1,"PAH", 1,1,246,0) | |
3369 | This patch may be in stalled wi th users o n the syst em althoug h it is | |
3370 | "PKG",47,2 2,1,"PAH", 1,1,247,0) | |
3371 | recommende d that it be install ed during non-peak h ours to mi nimize | |
3372 | "PKG",47,2 2,1,"PAH", 1,1,248,0) | |
3373 | potential disruption to users. This pat ch should take less than 5 | |
3374 | "PKG",47,2 2,1,"PAH", 1,1,249,0) | |
3375 | minutes | |
3376 | "PKG",47,2 2,1,"PAH", 1,1,250,0) | |
3377 | to install . | |
3378 | "PKG",47,2 2,1,"PAH", 1,1,251,0) | |
3379 | ||
3380 | "PKG",47,2 2,1,"PAH", 1,1,252,0) | |
3381 | ||
3382 | "PKG",47,2 2,1,"PAH", 1,1,253,0) | |
3383 | Installati on Instruc tions: | |
3384 | "PKG",47,2 2,1,"PAH", 1,1,254,0) | |
3385 | ---------- ---------- ------ | |
3386 | "PKG",47,2 2,1,"PAH", 1,1,255,0) | |
3387 | ||
3388 | "PKG",47,2 2,1,"PAH", 1,1,256,0) | |
3389 | ||
3390 | "PKG",47,2 2,1,"PAH", 1,1,257,0) | |
3391 | 1. Ch oose the P ackMan mes sage conta ining this patch. | |
3392 | "PKG",47,2 2,1,"PAH", 1,1,258,0) | |
3393 | ||
3394 | "PKG",47,2 2,1,"PAH", 1,1,259,0) | |
3395 | 2. Ch oose the I NSTALL/CHE CK MESSAGE PackMan o ption. | |
3396 | "PKG",47,2 2,1,"PAH", 1,1,260,0) | |
3397 | ||
3398 | "PKG",47,2 2,1,"PAH", 1,1,261,0) | |
3399 | 3. Fr om the Ker nel Instal lation and Distribut ion System Menu, sel ect | |
3400 | "PKG",47,2 2,1,"PAH", 1,1,262,0) | |
3401 | the Instal lation Men u (See Ins tall Promp ts Sample below for more | |
3402 | "PKG",47,2 2,1,"PAH", 1,1,263,0) | |
3403 | detail). From this menu, you may elect to use the following options. | |
3404 | "PKG",47,2 2,1,"PAH", 1,1,264,0) | |
3405 | When promp ted for th e INSTALL NAME enter the patch DG*5.3*94 8: | |
3406 | "PKG",47,2 2,1,"PAH", 1,1,265,0) | |
3407 | a. Ba ckup a Tra nsport Glo bal - This option wi ll create a backup | |
3408 | "PKG",47,2 2,1,"PAH", 1,1,266,0) | |
3409 | message of any routi nes export ed with th is patch. It will no t backup a ny | |
3410 | "PKG",47,2 2,1,"PAH", 1,1,267,0) | |
3411 | other chan ges such a s DDs or t emplates. | |
3412 | "PKG",47,2 2,1,"PAH", 1,1,268,0) | |
3413 | b. Co mpare Tran sport Glob al to Curr ent System - This op tion will | |
3414 | "PKG",47,2 2,1,"PAH", 1,1,269,0) | |
3415 | (allow you to view a ll changes that will be made w hen this p atch | |
3416 | "PKG",47,2 2,1,"PAH", 1,1,270,0) | |
3417 | is install ed. It co mpares all component s of this patch rout ines, DDs, | |
3418 | "PKG",47,2 2,1,"PAH", 1,1,271,0) | |
3419 | templates, etc.). | |
3420 | "PKG",47,2 2,1,"PAH", 1,1,272,0) | |
3421 | c. Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow you | |
3422 | "PKG",47,2 2,1,"PAH", 1,1,273,0) | |
3423 | to ensure the integr ity of the routines that are i n the tran sport glob al. | |
3424 | "PKG",47,2 2,1,"PAH", 1,1,274,0) | |
3425 | 4. F rom the In stallation Menu, sel ect the In stall Pack age(s) opt ion | |
3426 | "PKG",47,2 2,1,"PAH", 1,1,275,0) | |
3427 | and choose the patch to instal l. | |
3428 | "PKG",47,2 2,1,"PAH", 1,1,276,0) | |
3429 | ||
3430 | "PKG",47,2 2,1,"PAH", 1,1,277,0) | |
3431 | 5. Wh en prompte d 'Want KI DS to Rebu ild Menu T rees Upon Completion of | |
3432 | "PKG",47,2 2,1,"PAH", 1,1,278,0) | |
3433 | Install? N O//' No | |
3434 | "PKG",47,2 2,1,"PAH", 1,1,279,0) | |
3435 | ||
3436 | "PKG",47,2 2,1,"PAH", 1,1,280,0) | |
3437 | 6. Wh en prompte d 'Want KI DS to INHI BIT LOGONs during th e install? | |
3438 | "PKG",47,2 2,1,"PAH", 1,1,281,0) | |
3439 | NO//'No | |
3440 | "PKG",47,2 2,1,"PAH", 1,1,282,0) | |
3441 | ||
3442 | "PKG",47,2 2,1,"PAH", 1,1,283,0) | |
3443 | 7. Wh en prompte d 'Want to DISABLE S cheduled O ptions, Me nu Options , | |
3444 | "PKG",47,2 2,1,"PAH", 1,1,284,0) | |
3445 | and Protoc ols? NO//' No | |
3446 | "PKG",47,2 2,1,"PAH", 1,1,285,0) | |
3447 | ||
3448 | "PKG",47,2 2,1,"PAH", 1,1,286,0) | |
3449 | 8. If prompted 'Delay Ins tall (Minu tes): (0 - 60): 0// ' respond 0. | |
3450 | "PKG",47,2 2,1,"PAH", 1,1,287,0) | |
3451 | ||
3452 | "PKG",47,2 2,1,"PAH", 1,1,288,0) | |
3453 | ||
3454 | "PKG",47,2 2,1,"PAH", 1,1,289,0) | |
3455 | Install Pr ompts Samp le: | |
3456 | "PKG",47,2 2,1,"PAH", 1,1,290,0) | |
3457 | ---------- ---------- ------ | |
3458 | "PKG",47,2 2,1,"PAH", 1,1,291,0) | |
3459 | ||
3460 | "PKG",47,2 2,1,"PAH", 1,1,292,0) | |
3461 | ||
3462 | "PKG",47,2 2,1,"PAH", 1,1,293,0) | |
3463 | VISTA>D ^X UP | |
3464 | "PKG",47,2 2,1,"PAH", 1,1,294,0) | |
3465 | ||
3466 | "PKG",47,2 2,1,"PAH", 1,1,295,0) | |
3467 | Setting up programme r environm ent | |
3468 | "PKG",47,2 2,1,"PAH", 1,1,296,0) | |
3469 | This is a TEST accou nt. | |
3470 | "PKG",47,2 2,1,"PAH", 1,1,297,0) | |
3471 | ||
3472 | "PKG",47,2 2,1,"PAH", 1,1,298,0) | |
3473 | Terminal T ype set to : C-VT100 | |
3474 | "PKG",47,2 2,1,"PAH", 1,1,299,0) | |
3475 | ||
3476 | "PKG",47,2 2,1,"PAH", 1,1,300,0) | |
3477 | Select OPT ION NAME: XPD LOAD D ISTRIBUTIO N Lo ad a Distr ibution | |
3478 | "PKG",47,2 2,1,"PAH", 1,1,301,0) | |
3479 | Load a Dis tribution | |
3480 | "PKG",47,2 2,1,"PAH", 1,1,302,0) | |
3481 | Enter a Ho st File: C :\HFS\DG_5 _3_948.KID | |
3482 | "PKG",47,2 2,1,"PAH", 1,1,303,0) | |
3483 | ||
3484 | "PKG",47,2 2,1,"PAH", 1,1,304,0) | |
3485 | KIDS Distr ibution sa ved on Dec 11, 2017@ 17:29:13 | |
3486 | "PKG",47,2 2,1,"PAH", 1,1,305,0) | |
3487 | Comment: D G*5.3*948 12/11/17 | |
3488 | "PKG",47,2 2,1,"PAH", 1,1,306,0) | |
3489 | ||
3490 | "PKG",47,2 2,1,"PAH", 1,1,307,0) | |
3491 | This Distr ibution co ntains Tra nsport Glo bals for t he followi ng Package (s): | |
3492 | "PKG",47,2 2,1,"PAH", 1,1,308,0) | |
3493 | Build DG*5 .3*948 has been load ed before, here is w hen: | |
3494 | "PKG",47,2 2,1,"PAH", 1,1,309,0) | |
3495 | DG*5 .3*948 I nstall Com pleted | |
3496 | "PKG",47,2 2,1,"PAH", 1,1,310,0) | |
3497 | w as loaded on Oct 03, 2017@15:4 5:55 | |
3498 | "PKG",47,2 2,1,"PAH", 1,1,311,0) | |
3499 | DG*5 .3*948 I nstall Com pleted | |
3500 | "PKG",47,2 2,1,"PAH", 1,1,312,0) | |
3501 | w as loaded on Oct 03, 2017@20:5 4:59 | |
3502 | "PKG",47,2 2,1,"PAH", 1,1,313,0) | |
3503 | DG*5 .3*948 I nstall Com pleted | |
3504 | "PKG",47,2 2,1,"PAH", 1,1,314,0) | |
3505 | w as loaded on Oct 10, 2017@15:2 2:03 | |
3506 | "PKG",47,2 2,1,"PAH", 1,1,315,0) | |
3507 | DG*5 .3*948 I nstall Com pleted | |
3508 | "PKG",47,2 2,1,"PAH", 1,1,316,0) | |
3509 | w as loaded on Oct 31, 2017@13:4 4:06 | |
3510 | "PKG",47,2 2,1,"PAH", 1,1,317,0) | |
3511 | DG*5 .3*948 I nstall Com pleted | |
3512 | "PKG",47,2 2,1,"PAH", 1,1,318,0) | |
3513 | w as loaded on Nov 15, 2017@00:1 1:34 | |
3514 | "PKG",47,2 2,1,"PAH", 1,1,319,0) | |
3515 | DG*5 .3*948 I nstall Com pleted | |
3516 | "PKG",47,2 2,1,"PAH", 1,1,320,0) | |
3517 | w as loaded on Nov 20, 2017@14:5 8 | |
3518 | "PKG",47,2 2,1,"PAH", 1,1,321,0) | |
3519 | DG*5 .3*948 I nstall Com pleted | |
3520 | "PKG",47,2 2,1,"PAH", 1,1,322,0) | |
3521 | w as loaded on Nov 21, 2017@15:3 8:42 | |
3522 | "PKG",47,2 2,1,"PAH", 1,1,323,0) | |
3523 | DG*5 .3*948 I nstall Com pleted | |
3524 | "PKG",47,2 2,1,"PAH", 1,1,324,0) | |
3525 | w as loaded on Nov 30, 2017@15:0 4:49 | |
3526 | "PKG",47,2 2,1,"PAH", 1,1,325,0) | |
3527 | DG*5 .3*948 I nstall Com pleted | |
3528 | "PKG",47,2 2,1,"PAH", 1,1,326,0) | |
3529 | w as loaded on Dec 05, 2017@16:1 4:51 | |
3530 | "PKG",47,2 2,1,"PAH", 1,1,327,0) | |
3531 | OK to cont inue with Load? NO// YES | |
3532 | "PKG",47,2 2,1,"PAH", 1,1,328,0) | |
3533 | ||
3534 | "PKG",47,2 2,1,"PAH", 1,1,329,0) | |
3535 | Distributi on OK! | |
3536 | "PKG",47,2 2,1,"PAH", 1,1,330,0) | |
3537 | ||
3538 | "PKG",47,2 2,1,"PAH", 1,1,331,0) | |
3539 | Want to Co ntinue wit h Load? YE S// | |
3540 | "PKG",47,2 2,1,"PAH", 1,1,332,0) | |
3541 | Loading Di stribution ... | |
3542 | "PKG",47,2 2,1,"PAH", 1,1,333,0) | |
3543 | ||
3544 | "PKG",47,2 2,1,"PAH", 1,1,334,0) | |
3545 | DG*5.3* 948 | |
3546 | "PKG",47,2 2,1,"PAH", 1,1,335,0) | |
3547 | Use INSTAL L NAME: DG *5.3*948 t o install this Distr ibution. | |
3548 | "PKG",47,2 2,1,"PAH", 1,1,336,0) | |
3549 | ||
3550 | "PKG",47,2 2,1,"PAH", 1,1,337,0) | |
3551 | VISTA>D ^X UP | |
3552 | "PKG",47,2 2,1,"PAH", 1,1,338,0) | |
3553 | ||
3554 | "PKG",47,2 2,1,"PAH", 1,1,339,0) | |
3555 | Setting up programme r environm ent | |
3556 | "PKG",47,2 2,1,"PAH", 1,1,340,0) | |
3557 | This is a TEST accou nt. | |
3558 | "PKG",47,2 2,1,"PAH", 1,1,341,0) | |
3559 | ||
3560 | "PKG",47,2 2,1,"PAH", 1,1,342,0) | |
3561 | Terminal T ype set to : C-VT100 | |
3562 | "PKG",47,2 2,1,"PAH", 1,1,343,0) | |
3563 | ||
3564 | "PKG",47,2 2,1,"PAH", 1,1,344,0) | |
3565 | Select OPT ION NAME: XPD INS | |
3566 | "PKG",47,2 2,1,"PAH", 1,1,345,0) | |
3567 | 1 X PD INSTALL BUILD Install Package(s ) | |
3568 | "PKG",47,2 2,1,"PAH", 1,1,346,0) | |
3569 | 2 X PD INSTALL ATION MENU Ins tallation | |
3570 | "PKG",47,2 2,1,"PAH", 1,1,347,0) | |
3571 | CHOOSE 1-2 : 1 XPD I NSTALL BUI LD Ins tall Packa ge(s) | |
3572 | "PKG",47,2 2,1,"PAH", 1,1,348,0) | |
3573 | Install Pa ckage(s) | |
3574 | "PKG",47,2 2,1,"PAH", 1,1,349,0) | |
3575 | Select INS TALL NAME: DG*5.3 *948 L oaded from Distribut ion | |
3576 | "PKG",47,2 2,1,"PAH", 1,1,350,0) | |
3577 | 12/12/17@2 3:4 | |
3578 | "PKG",47,2 2,1,"PAH", 1,1,351,0) | |
3579 | 5:01 | |
3580 | "PKG",47,2 2,1,"PAH", 1,1,352,0) | |
3581 | => DG *5.3*948 1 2/11/17 ; Created on Dec 11, 2 017@17:29: 13 | |
3582 | "PKG",47,2 2,1,"PAH", 1,1,353,0) | |
3583 | ||
3584 | "PKG",47,2 2,1,"PAH", 1,1,354,0) | |
3585 | This Distr ibution wa s loaded o n Dec 12, 2017@23:45 :01 with h eader of | |
3586 | "PKG",47,2 2,1,"PAH", 1,1,355,0) | |
3587 | DG*5.3* 948 12/11/ 17 ;Creat ed on Dec 11, 2017@1 7:29:13 | |
3588 | "PKG",47,2 2,1,"PAH", 1,1,356,0) | |
3589 | It cons isted of t he followi ng Install (s): | |
3590 | "PKG",47,2 2,1,"PAH", 1,1,357,0) | |
3591 | DG*5. 3*948 | |
3592 | "PKG",47,2 2,1,"PAH", 1,1,358,0) | |
3593 | Checking I nstall for Package D G*5.3*948 | |
3594 | "PKG",47,2 2,1,"PAH", 1,1,359,0) | |
3595 | ||
3596 | "PKG",47,2 2,1,"PAH", 1,1,360,0) | |
3597 | Install Qu estions fo r DG*5.3*9 48 | |
3598 | "PKG",47,2 2,1,"PAH", 1,1,361,0) | |
3599 | ||
3600 | "PKG",47,2 2,1,"PAH", 1,1,362,0) | |
3601 | Incoming F iles: | |
3602 | "PKG",47,2 2,1,"PAH", 1,1,363,0) | |
3603 | ||
3604 | "PKG",47,2 2,1,"PAH", 1,1,364,0) | |
3605 | ||
3606 | "PKG",47,2 2,1,"PAH", 1,1,365,0) | |
3607 | 2 PATIENT (Partial Definitio n) | |
3608 | "PKG",47,2 2,1,"PAH", 1,1,366,0) | |
3609 | Note: You already h ave the 'P ATIENT' Fi le. | |
3610 | "PKG",47,2 2,1,"PAH", 1,1,367,0) | |
3611 | ||
3612 | "PKG",47,2 2,1,"PAH", 1,1,368,0) | |
3613 | ||
3614 | "PKG",47,2 2,1,"PAH", 1,1,369,0) | |
3615 | 26.14 PRF ASS IGNMENT HI STORY (Pa rtial Defi nition) | |
3616 | "PKG",47,2 2,1,"PAH", 1,1,370,0) | |
3617 | Note: You already h ave the 'P RF ASSIGNM ENT HISTOR Y' File. | |
3618 | "PKG",47,2 2,1,"PAH", 1,1,371,0) | |
3619 | ||
3620 | "PKG",47,2 2,1,"PAH", 1,1,372,0) | |
3621 | ||
3622 | "PKG",47,2 2,1,"PAH", 1,1,373,0) | |
3623 | 38.1 DG SECU RITY LOG (Partial D efinition) | |
3624 | "PKG",47,2 2,1,"PAH", 1,1,374,0) | |
3625 | Note: You already h ave the 'D G SECURITY LOG' File . | |
3626 | "PKG",47,2 2,1,"PAH", 1,1,375,0) | |
3627 | ||
3628 | "PKG",47,2 2,1,"PAH", 1,1,376,0) | |
3629 | ||
3630 | "PKG",47,2 2,1,"PAH", 1,1,377,0) | |
3631 | 41.41 PRE-REG ISTRATION AUDIT (Pa rtial Defi nition) | |
3632 | "PKG",47,2 2,1,"PAH", 1,1,378,0) | |
3633 | Note: You already h ave the 'P RE-REGISTR ATION AUDI T' File. | |
3634 | "PKG",47,2 2,1,"PAH", 1,1,379,0) | |
3635 | ||
3636 | "PKG",47,2 2,1,"PAH", 1,1,380,0) | |
3637 | ||
3638 | "PKG",47,2 2,1,"PAH", 1,1,381,0) | |
3639 | 391.71 ADT/HL7 PIVOT (P artial Def inition) | |
3640 | "PKG",47,2 2,1,"PAH", 1,1,382,0) | |
3641 | Note: You already h ave the 'A DT/HL7 PIV OT' File. | |
3642 | "PKG",47,2 2,1,"PAH", 1,1,383,0) | |
3643 | ||
3644 | "PKG",47,2 2,1,"PAH", 1,1,384,0) | |
3645 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install? NO// | |
3646 | "PKG",47,2 2,1,"PAH", 1,1,385,0) | |
3647 | ||
3648 | "PKG",47,2 2,1,"PAH", 1,1,386,0) | |
3649 | ||
3650 | "PKG",47,2 2,1,"PAH", 1,1,387,0) | |
3651 | Want KIDS to INHIBIT LOGONs du ring the i nstall? NO // | |
3652 | "PKG",47,2 2,1,"PAH", 1,1,388,0) | |
3653 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls? NO// | |
3654 | "PKG",47,2 2,1,"PAH", 1,1,389,0) | |
3655 | ||
3656 | "PKG",47,2 2,1,"PAH", 1,1,390,0) | |
3657 | Enter the Device you want to p rint the I nstall mes sages. | |
3658 | "PKG",47,2 2,1,"PAH", 1,1,391,0) | |
3659 | You can qu eue the in stall by e nter a 'Q' at the de vice promp t. | |
3660 | "PKG",47,2 2,1,"PAH", 1,1,392,0) | |
3661 | Enter a '^ ' to abort the insta ll. | |
3662 | "PKG",47,2 2,1,"PAH", 1,1,393,0) | |
3663 | ||
3664 | "PKG",47,2 2,1,"PAH", 1,1,394,0) | |
3665 | DEVICE: HO ME// ;;999 999 CONSO LE | |
3666 | "PKG",47,2 2,1,"PAH", 1,1,395,0) | |
3667 | ||
3668 | "PKG",47,2 2,1,"PAH", 1,1,396,0) | |
3669 | Install S tarted for DG*5.3*94 8 : | |
3670 | "PKG",47,2 2,1,"PAH", 1,1,397,0) | |
3671 | Dec 1 2, 2017@23 :45:18 | |
3672 | "PKG",47,2 2,1,"PAH", 1,1,398,0) | |
3673 | ||
3674 | "PKG",47,2 2,1,"PAH", 1,1,399,0) | |
3675 | Build Dist ribution D ate: Dec 1 1, 2017 | |
3676 | "PKG",47,2 2,1,"PAH", 1,1,400,0) | |
3677 | ||
3678 | "PKG",47,2 2,1,"PAH", 1,1,401,0) | |
3679 | Installin g Routines : | |
3680 | "PKG",47,2 2,1,"PAH", 1,1,402,0) | |
3681 | Dec 1 2, 2017@23 :45:19 | |
3682 | "PKG",47,2 2,1,"PAH", 1,1,403,0) | |
3683 | ||
3684 | "PKG",47,2 2,1,"PAH", 1,1,404,0) | |
3685 | Installin g Data Dic tionaries: | |
3686 | "PKG",47,2 2,1,"PAH", 1,1,405,0) | |
3687 | Dec 1 2, 2017@23 :45:24 | |
3688 | "PKG",47,2 2,1,"PAH", 1,1,406,0) | |
3689 | ||
3690 | "PKG",47,2 2,1,"PAH", 1,1,407,0) | |
3691 | Installin g PACKAGE COMPONENTS : | |
3692 | "PKG",47,2 2,1,"PAH", 1,1,408,0) | |
3693 | ||
3694 | "PKG",47,2 2,1,"PAH", 1,1,409,0) | |
3695 | Installin g PROTOCOL | |
3696 | "PKG",47,2 2,1,"PAH", 1,1,410,0) | |
3697 | ||
3698 | "PKG",47,2 2,1,"PAH", 1,1,411,0) | |
3699 | Installin g OPTION | |
3700 | "PKG",47,2 2,1,"PAH", 1,1,412,0) | |
3701 | ||
3702 | "PKG",47,2 2,1,"PAH", 1,1,413,0) | |
3703 | Installin g PARAMETE R DEFINITI ON | |
3704 | "PKG",47,2 2,1,"PAH", 1,1,414,0) | |
3705 | ||
3706 | "PKG",47,2 2,1,"PAH", 1,1,415,0) | |
3707 | Installin g HLO APPL ICATION RE GISTRY | |
3708 | "PKG",47,2 2,1,"PAH", 1,1,416,0) | |
3709 | Dec 1 2, 2017@23 :45:24 | |
3710 | "PKG",47,2 2,1,"PAH", 1,1,417,0) | |
3711 | ||
3712 | "PKG",47,2 2,1,"PAH", 1,1,418,0) | |
3713 | Updating Routine fi le... | |
3714 | "PKG",47,2 2,1,"PAH", 1,1,419,0) | |
3715 | ||
3716 | "PKG",47,2 2,1,"PAH", 1,1,420,0) | |
3717 | Updating KIDS files ... | |
3718 | "PKG",47,2 2,1,"PAH", 1,1,421,0) | |
3719 | ||
3720 | "PKG",47,2 2,1,"PAH", 1,1,422,0) | |
3721 | DG*5.3*94 8 Installe d. | |
3722 | "PKG",47,2 2,1,"PAH", 1,1,423,0) | |
3723 | Dec 1 2, 2017@23 :45:25 | |
3724 | "PKG",47,2 2,1,"PAH", 1,1,424,0) | |
3725 | ||
3726 | "PKG",47,2 2,1,"PAH", 1,1,425,0) | |
3727 | No link t o PACKAGE file | |
3728 | "PKG",47,2 2,1,"PAH", 1,1,426,0) | |
3729 | ||
3730 | "PKG",47,2 2,1,"PAH", 1,1,427,0) | |
3731 | NO Instal l Message sent | |
3732 | "PKG",47,2 2,1,"PAH", 1,1,428,0) | |
3733 | ||
3734 | "PKG",47,2 2,1,"PAH", 1,1,429,0) | |
3735 | Install Co mpleted | |
3736 | "PKG",47,2 2,1,"PAH", 1,1,430,0) | |
3737 | ||
3738 | "PKG",47,2 2,1,"PAH", 1,1,431,0) | |
3739 | VISTA> | |
3740 | "PKG",47,2 2,1,"PAH", 1,1,432,0) | |
3741 | ||
3742 | "PKG",47,2 2,1,"PAH", 1,1,433,0) | |
3743 | ||
3744 | "PKG",47,2 2,1,"PAH", 1,1,434,0) | |
3745 | Patch Back out Instru ctions: | |
3746 | "PKG",47,2 2,1,"PAH", 1,1,435,0) | |
3747 | ---------- ---------- ------ | |
3748 | "PKG",47,2 2,1,"PAH", 1,1,436,0) | |
3749 | 1. Go to MailMa n menu, ch oose optio n Read/Man age Messag es and sel ect | |
3750 | "PKG",47,2 2,1,"PAH", 1,1,437,0) | |
3751 | the backup message t hat was cr eating dur ing Instal lation ste p 3.c - Ba ckup | |
3752 | "PKG",47,2 2,1,"PAH", 1,1,438,0) | |
3753 | 2. Wh en prompte d 'Type <E nter> to c ontinue or '^' to ex it:' type '^' | |
3754 | "PKG",47,2 2,1,"PAH", 1,1,439,0) | |
3755 | and then < Enter> | |
3756 | "PKG",47,2 2,1,"PAH", 1,1,440,0) | |
3757 | 3. Wh en prompte d 'Enter m essage act ion:' type 'Xtract P ackMan' an d | |
3758 | "PKG",47,2 2,1,"PAH", 1,1,441,0) | |
3759 | then <Ente r> | |
3760 | "PKG",47,2 2,1,"PAH", 1,1,442,0) | |
3761 | 4. Th e followin g message and the pr ompt will display: | |
3762 | "PKG",47,2 2,1,"PAH", 1,1,443,0) | |
3763 | Warning: I nstalling this messa ge will ca use a perm anent upda te of glob als | |
3764 | "PKG",47,2 2,1,"PAH", 1,1,444,0) | |
3765 | and routin es. | |
3766 | "PKG",47,2 2,1,"PAH", 1,1,445,0) | |
3767 | Do you rea lly want t o do this? NO//' typ e 'YES' an d then <En ter> | |
3768 | "PKG",47,2 2,1,"PAH", 1,1,446,0) | |
3769 | 5. Wh en prompte d: | |
3770 | "PKG",47,2 2,1,"PAH", 1,1,447,0) | |
3771 | 'Shall I p reserve th e routines on disk i n a separa te back-up message? | |
3772 | "PKG",47,2 2,1,"PAH", 1,1,448,0) | |
3773 | YES//' typ e 'NO' and then <Ent er> | |
3774 | "PKG",47,2 2,1,"PAH", 1,1,449,0) | |
3775 | 6. Th e system w ill displa y the foll owing mess age and sh ow all the | |
3776 | "PKG",47,2 2,1,"PAH", 1,1,450,0) | |
3777 | routines t hat were u nloaded co nfirming t hat all th e routines in the bu ild | |
3778 | "PKG",47,2 2,1,"PAH", 1,1,451,0) | |
3779 | have been restored t o the prio r version (unloaded) : | |
3780 | "PKG",47,2 2,1,"PAH", 1,1,452,0) | |
3781 | 'No backup message b uilt. | |
3782 | "PKG",47,2 2,1,"PAH", 1,1,453,0) | |
3783 | ***LIST o f routines from back up. See fu ll routine list at t he end of the | |
3784 | "PKG",47,2 2,1,"PAH", 1,1,454,0) | |
3785 | document** * | |
3786 | "PKG",47,2 2,1,"PAH", 1,1,455,0) | |
3787 | ||
3788 | "PKG",47,2 2,1,"PAH", 1,1,456,0) | |
3789 | Select Pac kMan funct ion: and t hen <Enter >' | |
3790 | "PKG",47,2 2,1,"PAH", 1,1,457,0) | |
3791 | 7. ne xVerify th at all six routines are listed as above have been | |
3792 | "PKG",47,2 2,1,"PAH", 1,1,458,0) | |
3793 | backed out : | |
3794 | "PKG",47,2 2,1,"PAH", 1,1,459,0) | |
3795 | No backup message bu ilt. | |
3796 | "PKG",47,2 2,1,"PAH", 1,1,460,0) | |
3797 | When promp ted 'Want KIDS to IN HIBIT LOGO Ns during the instal l? NO//' | |
3798 | "PKG",47,2 2,1,"PAH", 1,1,461,0) | |
3799 | Press <Ent er>. | |
3800 | "PKG",47,2 2,1,"PAH", 1,1,462,0) | |
3801 | When promp ted 'Want to DISABLE Scheduled Options, Menu Optio ns, and | |
3802 | "PKG",47,2 2,1,"PAH", 1,1,463,0) | |
3803 | Protocols? NO//' | |
3804 | "PKG",47,2 2,1,"PAH", 1,1,464,0) | |
3805 | Press <Ent er>. | |
3806 | "PKG",47,2 2,1,"PAH", 1,1,465,0) | |
3807 | If prompte d 'Delay I nstall (Mi nutes): ( 0 - 60): 0 //' respon d 0. | |
3808 | "PKG",47,2 2,1,"PAH", 1,1,466,0) | |
3809 | ||
3810 | "PKG",47,2 2,1,"PAH", 1,1,467,0) | |
3811 | 8. Th ere are no globals t hat are be ing saved off for th is patch t o | |
3812 | "PKG",47,2 2,1,"PAH", 1,1,468,0) | |
3813 | restore. A ll other o bjects sho uld be man ually back ed out or deleted | |
3814 | "PKG",47,2 2,1,"PAH", 1,1,469,0) | |
3815 | Fileman. | |
3816 | "PKG",47,2 2,1,"PAH", 1,1,470,0) | |
3817 | 9. De leting Fil es: | |
3818 | "PKG",47,2 2,1,"PAH", 1,1,471,0) | |
3819 | The follow ing filema n files sh ould be de leted unde r their re spective | |
3820 | "PKG",47,2 2,1,"PAH", 1,1,472,0) | |
3821 | groups. To delete th e file, op en fileman for the f ile specif ied. Look for | |
3822 | "PKG",47,2 2,1,"PAH", 1,1,473,0) | |
3823 | the name a nd once se lected ent er @ to en ter the de lete optio n. | |
3824 | "PKG",47,2 2,1,"PAH", 1,1,474,0) | |
3825 | ||
3826 | "PKG",47,2 2,1,"PAH", 1,1,475,0) | |
3827 | Example: | |
3828 | "PKG",47,2 2,1,"PAH", 1,1,476,0) | |
3829 | VA FileMan 22.2 | |
3830 | "PKG",47,2 2,1,"PAH", 1,1,477,0) | |
3831 | ||
3832 | "PKG",47,2 2,1,"PAH", 1,1,478,0) | |
3833 | ||
3834 | "PKG",47,2 2,1,"PAH", 1,1,479,0) | |
3835 | Select OPT ION: 1 EN TER OR EDI T FILE ENT RIES | |
3836 | "PKG",47,2 2,1,"PAH", 1,1,480,0) | |
3837 | ||
3838 | "PKG",47,2 2,1,"PAH", 1,1,481,0) | |
3839 | ||
3840 | "PKG",47,2 2,1,"PAH", 1,1,482,0) | |
3841 | ||
3842 | "PKG",47,2 2,1,"PAH", 1,1,483,0) | |
3843 | Input to w hat File: PROTOCOL// (4498 en tries) | |
3844 | "PKG",47,2 2,1,"PAH", 1,1,484,0) | |
3845 | EDIT WHICH FIELD: AL L// | |
3846 | "PKG",47,2 2,1,"PAH", 1,1,485,0) | |
3847 | ||
3848 | "PKG",47,2 2,1,"PAH", 1,1,486,0) | |
3849 | ||
3850 | "PKG",47,2 2,1,"PAH", 1,1,487,0) | |
3851 | Select PRO TOCOL NAME : SD SIU T RIGGER SD SIU TRIGGER | |
3852 | "PKG",47,2 2,1,"PAH", 1,1,488,0) | |
3853 | NAME: SD S IU TRIGGER // @ | |
3854 | "PKG",47,2 2,1,"PAH", 1,1,489,0) | |
3855 | SURE YO U WANT TO DELETE THE ENTIRE 'S D SIU TRIG GER' PROTO COL? | |
3856 | "PKG",47,2 2,1,"PAH", 1,1,490,0) | |
3857 | ||
3858 | "PKG",47,2 2,1,"PAH", 1,1,491,0) | |
3859 | ||
3860 | "PKG",47,2 2,1,"PAH", 1,1,492,0) | |
3861 | HLO Applic ations: | |
3862 | "PKG",47,2 2,1,"PAH", 1,1,493,0) | |
3863 | DG-REG-OUT | |
3864 | "PKG",47,2 2,1,"PAH", 1,1,494,0) | |
3865 | ||
3866 | "PKG",47,2 2,1,"PAH", 1,1,495,0) | |
3867 | HLO Logica l Links: | |
3868 | "PKG",47,2 2,1,"PAH", 1,1,496,0) | |
3869 | DG ADT OUT | |
3870 | "PKG",47,2 2,1,"PAH", 1,1,497,0) | |
3871 | ||
3872 | "PKG",47,2 2,1,"PAH", 1,1,498,0) | |
3873 | Parameters : | |
3874 | "PKG",47,2 2,1,"PAH", 1,1,499,0) | |
3875 | DGMX MASS ENABLE | |
3876 | "PKG",47,2 2,1,"PAH", 1,1,500,0) | |
3877 | SDMX PATIE NT IEN ASS IGNING | |
3878 | "PKG",47,2 2,1,"PAH", 1,1,501,0) | |
3879 | DGMC CONV THREADS | |
3880 | "PKG",47,2 2,1,"PAH", 1,1,502,0) | |
3881 | ||
3882 | "PKG",47,2 2,1,"PAH", 1,1,503,0) | |
3883 | Protocol: | |
3884 | "PKG",47,2 2,1,"PAH", 1,1,504,0) | |
3885 | DGMX DEMOG RAPHICS MO NITOR | |
3886 | "PKG",47,2 2,1,"PAH", 1,1,505,0) | |
3887 | DGMX MASS Demographi cs Update | |
3888 | "PKG",47,2 2,1,"PAH", 1,1,506,0) | |
3889 | ||
3890 | "PKG",47,2 2,1,"PAH", 1,1,507,0) | |
3891 | ||
3892 | "PKG",47,2 2,1,"PAH", 1,1,508,0) | |
3893 | 10. To clean up the cross references run BACKO UT^DGMXPOS T to clean up | |
3894 | "PKG",47,2 2,1,"PAH", 1,1,509,0) | |
3895 | the cross references . | |
3896 | "PKG",47,2 2,1,"PAH", 1,1,510,0) | |
3897 | ||
3898 | "PKG",47,2 2,1,"PAH", 1,1,511,0) | |
3899 | ||
3900 | "PKG",47,2 2,1,"PAH", 1,1,512,0) | |
3901 | ||
3902 | "PKG",47,2 2,1,"PAH", 1,1,513,0) | |
3903 | ||
3904 | "PKG",47,2 2,1,"PAH", 1,1,514,0) | |
3905 | ||
3906 | "PKG",47,2 2,1,"PAH", 1,1,515,0) | |
3907 | Post-Insta llation In structions : | |
3908 | "PKG",47,2 2,1,"PAH", 1,1,516,0) | |
3909 | ---------- ---------- ---------- - | |
3910 | "PKG",47,2 2,1,"PAH", 1,1,517,0) | |
3911 | See Techni cal Manual for cross reference /object co ntents ver ification | |
3912 | "PKG",47,2 2,1,"PAH", 1,1,518,0) | |
3913 | ||
3914 | "PKG",47,2 2,1,"PAH", 1,1,519,0) | |
3915 | Check list to Verify : | |
3916 | "PKG",47,2 2,1,"PAH", 1,1,520,0) | |
3917 | 1. It em list ab ove for th e Patient, PRF ASSIG NMENT HIST ORY, DG | |
3918 | "PKG",47,2 2,1,"PAH", 1,1,521,0) | |
3919 | SECURITY L OG, PRE-RE GISTARTION AUDIT, an d ADT/HL7 PIVOT fil e. | |
3920 | "PKG",47,2 2,1,"PAH", 1,1,522,0) | |
3921 | 2. HL O Applicat ions | |
3922 | "PKG",47,2 2,1,"PAH", 1,1,523,0) | |
3923 | 3. HL Logical L inks | |
3924 | "PKG",47,2 2,1,"PAH", 1,1,524,0) | |
3925 | 4. Pr otocol | |
3926 | "PKG",47,2 2,1,"PAH", 1,1,525,0) | |
3927 | 5. Pa rameters | |
3928 | "PKG",47,2 2,1,"PAH", 1,1,526,0) | |
3929 | 6. Op tions | |
3930 | "PKG",47,2 2,1,"PAH", 1,1,527,0) | |
3931 | ||
3932 | "PKG",47,2 2,1,"PAH", 1,1,528,0) | |
3933 | ||
3934 | "PKG",47,2 2,1,"PAH", 1,1,529,0) | |
3935 | ||
3936 | "PKG",47,2 2,1,"PAH", 1,1,530,0) | |
3937 | ||
3938 | "PKG",47,2 2,1,"PAH", 1,1,531,0) | |
3939 | ||
3940 | "PKG",47,2 2,1,"PAH", 1,1,532,0) | |
3941 | ||
3942 | "PKG",47,2 2,1,"PAH", 1,1,533,0) | |
3943 | ||
3944 | "PKG",47,2 2,1,"PAH", 1,1,534,0) | |
3945 | ||
3946 | "PKG",47,2 2,1,"PAH", 1,1,535,0) | |
3947 | ||
3948 | "PKG",47,2 2,1,"PAH", 1,1,536,0) | |
3949 | ||
3950 | "PKG",47,2 2,1,"PAH", 1,1,537,0) | |
3951 | ||
3952 | "PKG",47,2 2,1,"PAH", 1,1,538,0) | |
3953 | ||
3954 | "PKG",47,2 2,1,"PAH", 1,1,539,0) | |
3955 | ||
3956 | "PKG",47,2 2,1,"PAH", 1,1,540,0) | |
3957 | ||
3958 | "PKG",47,2 2,1,"PAH", 1,1,541,0) | |
3959 | ||
3960 | "PKG",47,2 2,1,"PAH", 1,1,542,0) | |
3961 | ||
3962 | "PKG",47,2 2,1,"PAH", 1,1,543,0) | |
3963 | ||
3964 | "PKG",47,2 2,1,"PAH", 1,1,544,0) | |
3965 | ||
3966 | "PKG",47,2 2,1,"PAH", 1,1,545,0) | |
3967 | ||
3968 | "PKG",47,2 2,1,"PAH", 1,1,546,0) | |
3969 | ||
3970 | "PKG",47,2 2,1,"PAH", 1,1,547,0) | |
3971 | *;OCTOBER 05,2017 | |
3972 | "PKG",47,2 2,1,"PAH", 1,1,548,0) | |
3973 | ||
3974 | "PKG",47,2 2,1,"PAH", 1,1,549,0) | |
3975 | VAFCDD01 | |
3976 | "PKG",47,2 2,1,"PAH", 1,1,550,0) | |
3977 | VAFCDD01 ; ALB/JRP,LT L-DATA DIC TIONARY UT ILITIES ;0 5-SEP-1996 | |
3978 | "PKG",47,2 2,1,"PAH", 1,1,551,0) | |
3979 | VAFCMSG | |
3980 | "PKG",47,2 2,1,"PAH", 1,1,552,0) | |
3981 | VAFCMSG ;A LB/JRP-BAC KGROUND JO B TO TRANS MIT ENTRIE S IN PIVOT FILE ; | |
3982 | "PKG",47,2 2,1,"PAH", 1,1,553,0) | |
3983 | 3/2/04 12: 54pm | |
3984 | "PKG",47,2 2,1,"PAH", 1,1,554,0) | |
3985 | ;; 5.3;Regist ration;**9 1,149,530, 578,948**; Jun 06, 19 96;Build 5 | |
3986 | "PKG",47,2 2,1,"PAH", 1,1,555,0) | |
3987 | ||
3988 | "PKG",47,2 2,1,"PAH", 1,1,556,0) | |
3989 | VAFHLZSP | |
3990 | "PKG",47,2 2,1,"PAH", 1,1,557,0) | |
3991 | VAFHLZSP ; ALB/RJS,TD M,PJH - ZS P SEGMENT - 3/18/96 ; 5/30/07 4:21pm | |
3992 | "PKG",47,2 2,1,"PAH", 1,1,558,0) | |
3993 | ;; 5.3;Regist ration;**9 4,106,122, 220,653,75 4,948**;Au g 13, | |
3994 | "PKG",47,2 2,1,"PAH", 1,1,559,0) | |
3995 | 1993;Build 5 | |
3996 | "QUES","XP F1",0) | |
3997 | Y | |
3998 | "QUES","XP F1","??") | |
3999 | ^D REP^XPD H | |
4000 | "QUES","XP F1","A") | |
4001 | Shall I wr ite over y our |FLAG| File | |
4002 | "QUES","XP F1","B") | |
4003 | YES | |
4004 | "QUES","XP F1","M") | |
4005 | D XPF1^XPD IQ | |
4006 | "QUES","XP F2",0) | |
4007 | Y | |
4008 | "QUES","XP F2","??") | |
4009 | ^D DTA^XPD H | |
4010 | "QUES","XP F2","A") | |
4011 | Want my da ta |FLAG| yours | |
4012 | "QUES","XP F2","B") | |
4013 | YES | |
4014 | "QUES","XP F2","M") | |
4015 | D XPF2^XPD IQ | |
4016 | "QUES","XP I1",0) | |
4017 | YO | |
4018 | "QUES","XP I1","??") | |
4019 | ^D INHIBIT ^XPDH | |
4020 | "QUES","XP I1","A") | |
4021 | Want KIDS to INHIBIT LOGONs du ring the i nstall | |
4022 | "QUES","XP I1","B") | |
4023 | NO | |
4024 | "QUES","XP I1","M") | |
4025 | D XPI1^XPD IQ | |
4026 | "QUES","XP M1",0) | |
4027 | PO^VA(200, :EM | |
4028 | "QUES","XP M1","??") | |
4029 | ^D MG^XPDH | |
4030 | "QUES","XP M1","A") | |
4031 | Enter the Coordinato r for Mail Group '|F LAG|' | |
4032 | "QUES","XP M1","B") | |
4033 | ||
4034 | "QUES","XP M1","M") | |
4035 | D XPM1^XPD IQ | |
4036 | "QUES","XP O1",0) | |
4037 | Y | |
4038 | "QUES","XP O1","??") | |
4039 | ^D MENU^XP DH | |
4040 | "QUES","XP O1","A") | |
4041 | Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install | |
4042 | "QUES","XP O1","B") | |
4043 | NO | |
4044 | "QUES","XP O1","M") | |
4045 | D XPO1^XPD IQ | |
4046 | "QUES","XP Z1",0) | |
4047 | Y | |
4048 | "QUES","XP Z1","??") | |
4049 | ^D OPT^XPD H | |
4050 | "QUES","XP Z1","A") | |
4051 | Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls | |
4052 | "QUES","XP Z1","B") | |
4053 | NO | |
4054 | "QUES","XP Z1","M") | |
4055 | D XPZ1^XPD IQ | |
4056 | "QUES","XP Z2",0) | |
4057 | Y | |
4058 | "QUES","XP Z2","??") | |
4059 | ^D RTN^XPD H | |
4060 | "QUES","XP Z2","A") | |
4061 | Want to MO VE routine s to other CPUs | |
4062 | "QUES","XP Z2","B") | |
4063 | NO | |
4064 | "QUES","XP Z2","M") | |
4065 | D XPZ2^XPD IQ | |
4066 | "RTN") | |
4067 | 10 | |
4068 | "RTN","DGM XADT") | |
4069 | 0^4^B28572 628 | |
4070 | "RTN","DGM XADT",1,0) | |
4071 | DGMXADT ; MASS/RPR - ADT Trigg er Code;8/ 24/17;2018 -03-01 10: 18:50 | |
4072 | "RTN","DGM XADT",2,0) | |
4073 | ;;5.3;Reg istration; **948**;SE PTEMBER 5, 2017;Build 66 | |
4074 | "RTN","DGM XADT",3,0) | |
4075 | ;Per VA D IRECTIVE 6 402, this routine sh ould not b e modified . | |
4076 | "RTN","DGM XADT",4,0) | |
4077 | ; | |
4078 | "RTN","DGM XADT",5,0) | |
4079 | ; ICR# S upported R eferences | |
4080 | "RTN","DGM XADT",6,0) | |
4081 | ; 4716 $ $ADDSEG^HL OAPI | |
4082 | "RTN","DGM XADT",7,0) | |
4083 | ; 4716 $ $NEWMSG^HL OAPI | |
4084 | "RTN","DGM XADT",8,0) | |
4085 | ; 4717 $ $SENDONE^H LOAPI1 | |
4086 | "RTN","DGM XADT",9,0) | |
4087 | ; 10063 D ^%ZTLOAD | |
4088 | "RTN","DGM XADT",10,0 ) | |
4089 | ; 10103 $ $NOW^XLFDT | |
4090 | "RTN","DGM XADT",11,0 ) | |
4091 | ; 2263 $ $GET^XPAR | |
4092 | "RTN","DGM XADT",12,0 ) | |
4093 | ; | |
4094 | "RTN","DGM XADT",13,0 ) | |
4095 | Q | |
4096 | "RTN","DGM XADT",14,0 ) | |
4097 | MONITOR(DG MXDFN,DGMX TYPE,DGMXF MX,DGMXFMX 1,DGMXFMX2 ) ; Send A DT message s to subsc ribers whe n demograp hics chang e | |
4098 | "RTN","DGM XADT",15,0 ) | |
4099 | ; DGMXD FN - Patie nt edited (required) | |
4100 | "RTN","DGM XADT",16,0 ) | |
4101 | ; DGMXT YPE - Type of cross- reference action ("S ET" or "KI LL") (requ ired) | |
4102 | "RTN","DGM XADT",17,0 ) | |
4103 | ; DGMXF MX - X arr ay for Fil eMan new s tyle x-ref s (require d) | |
4104 | "RTN","DGM XADT",18,0 ) | |
4105 | ; DGMXF MX1 - X1 a rray for F ileMan new style x-r efs (requi red) | |
4106 | "RTN","DGM XADT",19,0 ) | |
4107 | ; DGMXF MX2 - X2 a rray for F ileMan new style x-r efs (requi red) | |
4108 | "RTN","DGM XADT",20,0 ) | |
4109 | ; | |
4110 | "RTN","DGM XADT",21,0 ) | |
4111 | ; Validat e Inputs | |
4112 | "RTN","DGM XADT",22,0 ) | |
4113 | I $G(DGMX DFN)="" Q ; Quit if no pati ent | |
4114 | "RTN","DGM XADT",23,0 ) | |
4115 | I $G(DGMX FMX)="" Q ; Quit if setting or killin g null val ue | |
4116 | "RTN","DGM XADT",24,0 ) | |
4117 | I $G(DGMX TYPE)="" Q ; Quit if no edit type | |
4118 | "RTN","DGM XADT",25,0 ) | |
4119 | S DGMXFMX 1=$G(DGMXF MX1),DGMXF MX2=$G(DGM XFMX2) ;D efine thes e variable s if they are undefi ned | |
4120 | "RTN","DGM XADT",26,0 ) | |
4121 | ; | |
4122 | "RTN","DGM XADT",27,0 ) | |
4123 | I (DGMXTY PE="KILL") ,(DGMXFMX2 '="") Q ; Skip kill action on data upda te | |
4124 | "RTN","DGM XADT",28,0 ) | |
4125 | ; | |
4126 | "RTN","DGM XADT",29,0 ) | |
4127 | ; Set edi t type | |
4128 | "RTN","DGM XADT",30,0 ) | |
4129 | S DGMXTYP E=$S(DGMXT YPE="KILL" :"DELETE", DGMXTYPE=" SET":"ADD" ,1:DGMXTYP E) | |
4130 | "RTN","DGM XADT",31,0 ) | |
4131 | I (DGMXFM X1'=""),(D GMXFMX2'=" ") S DGMXT YPE="UPDAT E" | |
4132 | "RTN","DGM XADT",32,0 ) | |
4133 | ; | |
4134 | "RTN","DGM XADT",33,0 ) | |
4135 | ; Task of f (Taskman ) driver r outine. | |
4136 | "RTN","DGM XADT",34,0 ) | |
4137 | N ZTRTN,Z TDESC,ZTIO ,ZTDTH,ZTS AVE,ZTSK,D GMXVAR,BXR EF,SUBSCR, ZTREQ | |
4138 | "RTN","DGM XADT",35,0 ) | |
4139 | S ZTRTN=" INIT^DGMXA DT",ZTDESC ="DGMX DEM OGRAPHICS MONITOR" | |
4140 | "RTN","DGM XADT",36,0 ) | |
4141 | S ZTIO="D GMX DEMOGR APHICS MON ITOR",ZTDT H=$$NOW^XL FDT() | |
4142 | "RTN","DGM XADT",37,0 ) | |
4143 | F DGMXVAR ="DGMXDFN" ,"DGMXDFN( ","DGMXTYP E","DGMXFM X","DGMXFM X(","DGMXF MX1","DGMX FX1(","DGM XFMX2","DG MXFMX2(" S ZTSAVE(DG MXVAR)="" | |
4144 | "RTN","DGM XADT",38,0 ) | |
4145 | ; If ther e are no s ubscribers , do not c all Taskma n | |
4146 | "RTN","DGM XADT",39,0 ) | |
4147 | S BXREF=0 ,BXREF=$O( ^ORD(101," B","DGMX D EMOGRAPHIC S MONITOR" ,BXREF)) | |
4148 | "RTN","DGM XADT",40,0 ) | |
4149 | S SUBSCR= 0,SUBSCR=$ O(^ORD(101 ,BXREF,10, SUBSCR)) | |
4150 | "RTN","DGM XADT",41,0 ) | |
4151 | I 'SUBSCR Q | |
4152 | "RTN","DGM XADT",42,0 ) | |
4153 | D ^%ZTLOA D | |
4154 | "RTN","DGM XADT",43,0 ) | |
4155 | Q | |
4156 | "RTN","DGM XADT",44,0 ) | |
4157 | INIT N X ; Loop thr ough the s ubscribers to DGMX D EMOGRAPHIC S MONITOR and execut e them | |
4158 | "RTN","DGM XADT",45,0 ) | |
4159 | S X=$O(^O RD(101,"B" ,"DGMX DEM OGRAPHICS MONITOR",0 ))_";ORD(1 01," D EN1 ^XQOR | |
4160 | "RTN","DGM XADT",46,0 ) | |
4161 | I $D(ZTQU EUED) S ZT REQ="@" | |
4162 | "RTN","DGM XADT",47,0 ) | |
4163 | K DGMXDFN ,DGMXTYPE, DGMXFMX,DG MXFMX1,DGM XFMX2 | |
4164 | "RTN","DGM XADT",48,0 ) | |
4165 | Q | |
4166 | "RTN","DGM XADT",49,0 ) | |
4167 | TRIGGER(DF N,EDITTYPE ,SKIPCHK,T HREAD) ; Trigger HL 7 messages when pati ent edits are made | |
4168 | "RTN","DGM XADT",50,0 ) | |
4169 | ; DFN - Patient I EN (requir ed) | |
4170 | "RTN","DGM XADT",51,0 ) | |
4171 | ; EDITT YPE - Type of modifi cation mad e to patie nt ("ADD", "UPDATE", or "DELET E") | |
4172 | "RTN","DGM XADT",52,0 ) | |
4173 | ; SKIPC HK - Skip checking w hether MAS S is enabl ed for con versions | |
4174 | "RTN","DGM XADT",53,0 ) | |
4175 | ; THREA D - Thread to send m essage to for conver sions. | |
4176 | "RTN","DGM XADT",54,0 ) | |
4177 | ; | |
4178 | "RTN","DGM XADT",55,0 ) | |
4179 | S SKIPCHK =$G(SKIPCH K),THREAD= $G(THREAD) | |
4180 | "RTN","DGM XADT",56,0 ) | |
4181 | I ('SKIPC HK),('$$GE T^XPAR("SY S","DGMX M ASS ENABLE D")) Q ; do not sen d messages if MASS n ot enabled | |
4182 | "RTN","DGM XADT",57,0 ) | |
4183 | I ($G(DFN )="")!($G( EDITTYPE)= "") Q ; v alidate in puts | |
4184 | "RTN","DGM XADT",58,0 ) | |
4185 | I EDITTYP E="ADD" D TRIGDEM(DF N,"A28",TH READ) Q | |
4186 | "RTN","DGM XADT",59,0 ) | |
4187 | I EDITTYP E="UPDATE" D TRIGDEM (DFN,"A08" ,THREAD) Q | |
4188 | "RTN","DGM XADT",60,0 ) | |
4189 | I EDITTYP E="DELETE" D TRIGA40 (DFN,THREA D) | |
4190 | "RTN","DGM XADT",61,0 ) | |
4191 | Q | |
4192 | "RTN","DGM XADT",62,0 ) | |
4193 | TRIGDEM(DF N,EVENT,TH READ) ; T riggers a Patient Up date Messa ge | |
4194 | "RTN","DGM XADT",63,0 ) | |
4195 | ; DFN - Patien t IEN | |
4196 | "RTN","DGM XADT",64,0 ) | |
4197 | ; EVENT - Event type to tr igger. Tri gger an A2 8 for new patients. | |
4198 | "RTN","DGM XADT",65,0 ) | |
4199 | ; THREAD - Number of thread s. Only us e for init ial conver sion utili ty. | |
4200 | "RTN","DGM XADT",66,0 ) | |
4201 | ; | |
4202 | "RTN","DGM XADT",67,0 ) | |
4203 | I $G(DFN) ="" Q | |
4204 | "RTN","DGM XADT",68,0 ) | |
4205 | N SEG,MSG ,PARAMS,ER ROR,WHOTO, OK,ENR,MAS SESC,ESCCH AR | |
4206 | "RTN","DGM XADT",69,0 ) | |
4207 | S PARAMS( "MESSAGE T YPE")="ADT " | |
4208 | "RTN","DGM XADT",70,0 ) | |
4209 | I $G(EVEN T)="" S PA RAMS("EVEN T")="A08" | |
4210 | "RTN","DGM XADT",71,0 ) | |
4211 | E S PARA MS("EVENT" )=EVENT | |
4212 | "RTN","DGM XADT",72,0 ) | |
4213 | S PARAMS( "SENDING A PPLICATION ")="DG-REG -OUT" | |
4214 | "RTN","DGM XADT",73,0 ) | |
4215 | S WHOTO(" RECEIVING APPLICATIO N")="MASS" | |
4216 | "RTN","DGM XADT",74,0 ) | |
4217 | I $G(THRE AD)'="" S WHOTO("FAC ILITY LINK NAME")="D G ADT O"_T HREAD | |
4218 | "RTN","DGM XADT",75,0 ) | |
4219 | E S WHOT O("FACILIT Y LINK NAM E")="DG AD T OUT" ; HL Logic al Link | |
4220 | "RTN","DGM XADT",76,0 ) | |
4221 | S ENR=$P( $G(^DPT(DF N,"ENR")), "^",1) ; Ge t Enrollme nt informa tion | |
4222 | "RTN","DGM XADT",77,0 ) | |
4223 | S MASSESC =$$GET^XPA R("SYS","M ASS ASCII CHARACTER SWITCH") | |
4224 | "RTN","DGM XADT",78,0 ) | |
4225 | S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII CHAR REPLA CEMENT") | |
4226 | "RTN","DGM XADT",79,0 ) | |
4227 | ; | |
4228 | "RTN","DGM XADT",80,0 ) | |
4229 | ; Start n ew message | |
4230 | "RTN","DGM XADT",81,0 ) | |
4231 | I '$$NEWM SG^HLOAPI( .PARAMS,.M SG) Q | |
4232 | "RTN","DGM XADT",82,0 ) | |
4233 | ; | |
4234 | "RTN","DGM XADT",83,0 ) | |
4235 | D PID^DGM XHL7(DFN,1 ,.SEG) ; Bui ld PID (re quired) | |
4236 | "RTN","DGM XADT",84,0 ) | |
4237 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
4238 | "RTN","DGM XADT",85,0 ) | |
4239 | I '$$ADDS EG^HLOAPI( .MSG,.SEG) Q | |
4240 | "RTN","DGM XADT",86,0 ) | |
4241 | D NTE^DGM XHL7(DFN,1 ,.SEG) ; Bui ld NTE | |
4242 | "RTN","DGM XADT",87,0 ) | |
4243 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
4244 | "RTN","DGM XADT",88,0 ) | |
4245 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
4246 | "RTN","DGM XADT",89,0 ) | |
4247 | D PV1^DGM XHL7(DFN,1 ,.SEG) ; Bui ld PV1 | |
4248 | "RTN","DGM XADT",90,0 ) | |
4249 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
4250 | "RTN","DGM XADT",91,0 ) | |
4251 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
4252 | "RTN","DGM XADT",92,0 ) | |
4253 | D ZCT^DGM XHL7(DFN,1 ,.SEG) ; Bui ld ZCT | |
4254 | "RTN","DGM XADT",93,0 ) | |
4255 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
4256 | "RTN","DGM XADT",94,0 ) | |
4257 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
4258 | "RTN","DGM XADT",95,0 ) | |
4259 | D BLDZEL^ DGMXHL7(DF N,.SEG,.MS G) ; Bui ld ZEL (re peating) | |
4260 | "RTN","DGM XADT",96,0 ) | |
4261 | D ZEN^DGM XHL7(ENR,1 ,.SEG) ; Bui ld ZEN | |
4262 | "RTN","DGM XADT",97,0 ) | |
4263 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
4264 | "RTN","DGM XADT",98,0 ) | |
4265 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
4266 | "RTN","DGM XADT",99,0 ) | |
4267 | D ZSP^DGM XHL7(DFN,1 ,.SEG) ; Bui ld ZSP | |
4268 | "RTN","DGM XADT",100, 0) | |
4269 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
4270 | "RTN","DGM XADT",101, 0) | |
4271 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
4272 | "RTN","DGM XADT",102, 0) | |
4273 | ; | |
4274 | "RTN","DGM XADT",103, 0) | |
4275 | ; Send me ssage | |
4276 | "RTN","DGM XADT",104, 0) | |
4277 | S OK=$$SE NDONE^HLOA PI1(.MSG,. PARAMS,.WH OTO,.ERROR ) | |
4278 | "RTN","DGM XADT",105, 0) | |
4279 | Q | |
4280 | "RTN","DGM XADT",106, 0) | |
4281 | TRIGA40(PR EVID,THREA D) ; Trigg ers an A40 Message ( Patient Me rge), give n the sour ce patient . | |
4282 | "RTN","DGM XADT",107, 0) | |
4283 | ; The so urce patie nt record is merged INTO the ( surviving) target pa tient reco rd. | |
4284 | "RTN","DGM XADT",108, 0) | |
4285 | ; PREVID - Source Patient IE N | |
4286 | "RTN","DGM XADT",109, 0) | |
4287 | ; THREAD - Number of thread s. Only us e for init ial conver sion utili ty. | |
4288 | "RTN","DGM XADT",110, 0) | |
4289 | ; | |
4290 | "RTN","DGM XADT",111, 0) | |
4291 | I $G(PREV ID)="" Q | |
4292 | "RTN","DGM XADT",112, 0) | |
4293 | N SEG,MSG ,PARAMS,ER ROR,WHOTO, DFN,OK,MAS SESC,ESCCH AR | |
4294 | "RTN","DGM XADT",113, 0) | |
4295 | S PARAMS( "MESSAGE T YPE")="ADT " | |
4296 | "RTN","DGM XADT",114, 0) | |
4297 | S PARAMS( "EVENT")=" A40" | |
4298 | "RTN","DGM XADT",115, 0) | |
4299 | S PARAMS( "SENDING A PPLICATION ")="DG-REG -OUT" | |
4300 | "RTN","DGM XADT",116, 0) | |
4301 | S WHOTO(" RECEIVING APPLICATIO N")="MASS" | |
4302 | "RTN","DGM XADT",117, 0) | |
4303 | I $G(THRE AD)'="" S WHOTO("FAC ILITY LINK NAME")="D G ADT O"_T HREAD | |
4304 | "RTN","DGM XADT",118, 0) | |
4305 | E S WHOT O("FACILIT Y LINK NAM E")="DG AD T OUT" ; HL Logic al Link | |
4306 | "RTN","DGM XADT",119, 0) | |
4307 | S DFN=$G( ^DPT(PREVI D,-9)) ; Tar get Patien t | |
4308 | "RTN","DGM XADT",120, 0) | |
4309 | I DFN="" Q | |
4310 | "RTN","DGM XADT",121, 0) | |
4311 | S MASSESC =$$GET^XPA R("SYS","M ASS ASCII CHARACTER SWITCH") | |
4312 | "RTN","DGM XADT",122, 0) | |
4313 | S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII CHAR REPLA CEMENT") | |
4314 | "RTN","DGM XADT",123, 0) | |
4315 | ; | |
4316 | "RTN","DGM XADT",124, 0) | |
4317 | ; Start n ew message | |
4318 | "RTN","DGM XADT",125, 0) | |
4319 | I '$$NEWM SG^HLOAPI( .PARAMS,.M SG) Q | |
4320 | "RTN","DGM XADT",126, 0) | |
4321 | D PID^DGM XHL7(DFN,1 ,.SEG) ; Build PID (required) | |
4322 | "RTN","DGM XADT",127, 0) | |
4323 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
4324 | "RTN","DGM XADT",128, 0) | |
4325 | I '$$ADDS EG^HLOAPI( .MSG,.SEG) Q | |
4326 | "RTN","DGM XADT",129, 0) | |
4327 | D MRG^DGM XHL7(PREVI D,.SEG) ; Build MRG (required) | |
4328 | "RTN","DGM XADT",130, 0) | |
4329 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
4330 | "RTN","DGM XADT",131, 0) | |
4331 | I '$$ADDS EG^HLOAPI( .MSG,.SEG) Q | |
4332 | "RTN","DGM XADT",132, 0) | |
4333 | ; | |
4334 | "RTN","DGM XADT",133, 0) | |
4335 | ; Send me ssage | |
4336 | "RTN","DGM XADT",134, 0) | |
4337 | S OK=$$SE NDONE^HLOA PI1(.MSG,. PARAMS,.WH OTO,.ERROR ) | |
4338 | "RTN","DGM XADT",135, 0) | |
4339 | Q | |
4340 | "RTN","DGM XADT",136, 0) | |
4341 | ; | |
4342 | "RTN","DGM XCONV") | |
4343 | 0^8^B44776 123 | |
4344 | "RTN","DGM XCONV",1,0 ) | |
4345 | DGMXCONV ; MASS/DXL - Demograp hics conve rsion util ity;11/30/ 17 | |
4346 | "RTN","DGM XCONV",2,0 ) | |
4347 | ;;5.3;Reg istration; **948**;NO VEMBER 20, 2017;Build 66 | |
4348 | "RTN","DGM XCONV",3,0 ) | |
4349 | ;Per VA D IRECTIVE 6 402, this routine sh ould not b e modified . | |
4350 | "RTN","DGM XCONV",4,0 ) | |
4351 | ; | |
4352 | "RTN","DGM XCONV",5,0 ) | |
4353 | ; ICR# Supported References | |
4354 | "RTN","DGM XCONV",6,0 ) | |
4355 | ; 2051 ^DIC | |
4356 | "RTN","DGM XCONV",7,0 ) | |
4357 | ; YN^DICN | |
4358 | "RTN","DGM XCONV",8,0 ) | |
4359 | ; 2056 $$GET1^DIQ | |
4360 | "RTN","DGM XCONV",9,0 ) | |
4361 | ; ^DIR | |
4362 | "RTN","DGM XCONV",10, 0) | |
4363 | ; 2263 $$GET^XPAR | |
4364 | "RTN","DGM XCONV",11, 0) | |
4365 | ; | |
4366 | "RTN","DGM XCONV",12, 0) | |
4367 | Q | |
4368 | "RTN","DGM XCONV",13, 0) | |
4369 | ENTRY ; En try functi on for MAS S demograp hics conve rsion util ity | |
4370 | "RTN","DGM XCONV",14, 0) | |
4371 | N DIR,TYP E,Y | |
4372 | "RTN","DGM XCONV",15, 0) | |
4373 | ; | |
4374 | "RTN","DGM XCONV",16, 0) | |
4375 | ; Type Pr ompt | |
4376 | "RTN","DGM XCONV",17, 0) | |
4377 | S DIR(0)= "S^1:PATIE NT;2:PATIE NT RECORD FLAG;3:BAD ADDRESS I NDICATOR;4 :SENSITIVI TY FLAG;5: DEMOGRAPHI CS VERIFIC ATION DATE " | |
4378 | "RTN","DGM XCONV",18, 0) | |
4379 | D ^DIR | |
4380 | "RTN","DGM XCONV",19, 0) | |
4381 | S TYPE=$G (Y) | |
4382 | "RTN","DGM XCONV",20, 0) | |
4383 | ; | |
4384 | "RTN","DGM XCONV",21, 0) | |
4385 | ; Validat e input an d call mai n | |
4386 | "RTN","DGM XCONV",22, 0) | |
4387 | I '$$INST RING^SDMXC ORE(TYPE," 1,2,3,4,5" ,",") Q | |
4388 | "RTN","DGM XCONV",23, 0) | |
4389 | S TYPE=$S (TYPE=1:"P AT",TYPE=2 :"PRF",TYP E=3:"BAD", TYPE=4:"SE N",TYPE=5: "VER",1:"" ) | |
4390 | "RTN","DGM XCONV",24, 0) | |
4391 | D MAIN(TY PE) | |
4392 | "RTN","DGM XCONV",25, 0) | |
4393 | Q | |
4394 | "RTN","DGM XCONV",26, 0) | |
4395 | MAIN(TYPE) ; Trigger messages for all r ecord or a subset of records | |
4396 | "RTN","DGM XCONV",27, 0) | |
4397 | ; TYPE - Specifie s the type of conver sion to ex ecute. Val id options are: | |
4398 | "RTN","DGM XCONV",28, 0) | |
4399 | ; "PAT" : Patient (File 2 ) | |
4400 | "RTN","DGM XCONV",29, 0) | |
4401 | ; "PRF" : Patient Re cord Flag (File 2 6.13) | |
4402 | "RTN","DGM XCONV",30, 0) | |
4403 | ; "BAD" : Bad Addres s Indicato r (File 2 , Field .1 21) | |
4404 | "RTN","DGM XCONV",31, 0) | |
4405 | ; "SEN" : Sensitivit y Flag (File 3 8.1) | |
4406 | "RTN","DGM XCONV",32, 0) | |
4407 | ; "VER" : Demographi cs Verific ation Date (File 4 1.41) | |
4408 | "RTN","DGM XCONV",33, 0) | |
4409 | ; | |
4410 | "RTN","DGM XCONV",34, 0) | |
4411 | ; Initial ize | |
4412 | "RTN","DGM XCONV",35, 0) | |
4413 | I $G(TYPE )="" Q | |
4414 | "RTN","DGM XCONV",36, 0) | |
4415 | N DFN,Y,L IST,DONE,N UMREC,%,DI C,COUNT | |
4416 | "RTN","DGM XCONV",37, 0) | |
4417 | ; | |
4418 | "RTN","DGM XCONV",38, 0) | |
4419 | ; Main Pr ompt | |
4420 | "RTN","DGM XCONV",39, 0) | |
4421 | W !,"Trig ger messag es for ALL records i n the syst em" | |
4422 | "RTN","DGM XCONV",40, 0) | |
4423 | S %=2 ; Defau lt no | |
4424 | "RTN","DGM XCONV",41, 0) | |
4425 | D YN^DICN | |
4426 | "RTN","DGM XCONV",42, 0) | |
4427 | ; | |
4428 | "RTN","DGM XCONV",43, 0) | |
4429 | ; 1) Yes - Trigger messages f or ALL rec ords | |
4430 | "RTN","DGM XCONV",44, 0) | |
4431 | I %=1 D Q | |
4432 | "RTN","DGM XCONV",45, 0) | |
4433 | . K % | |
4434 | "RTN","DGM XCONV",46, 0) | |
4435 | . ; Final confirmat ion check | |
4436 | "RTN","DGM XCONV",47, 0) | |
4437 | . S NUMRE C=$$GETNUM R(TYPE) | |
4438 | "RTN","DGM XCONV",48, 0) | |
4439 | . W !,"Th is will tr igger appr oximately "_NUMREC_" patients. Are you s ure" | |
4440 | "RTN","DGM XCONV",49, 0) | |
4441 | . S %=2 ; Defau lt no | |
4442 | "RTN","DGM XCONV",50, 0) | |
4443 | . D YN^DI CN | |
4444 | "RTN","DGM XCONV",51, 0) | |
4445 | . I %'=1 Q | |
4446 | "RTN","DGM XCONV",52, 0) | |
4447 | . ; | |
4448 | "RTN","DGM XCONV",53, 0) | |
4449 | . ; Execu tes the co nversion f unction | |
4450 | "RTN","DGM XCONV",54, 0) | |
4451 | . D PICKC ONV(TYPE,. COUNT) | |
4452 | "RTN","DGM XCONV",55, 0) | |
4453 | . I COUNT >0 W !,"Me ssages Tri ggered: "_ COUNT | |
4454 | "RTN","DGM XCONV",56, 0) | |
4455 | ; | |
4456 | "RTN","DGM XCONV",57, 0) | |
4457 | ; 2) No - Trigger m essages fo r subset o f records | |
4458 | "RTN","DGM XCONV",58, 0) | |
4459 | I %'=2 Q | |
4460 | "RTN","DGM XCONV",59, 0) | |
4461 | S DONE=0 | |
4462 | "RTN","DGM XCONV",60, 0) | |
4463 | D GETDIC( TYPE,.DIC) | |
4464 | "RTN","DGM XCONV",61, 0) | |
4465 | F D Q:D ONE=1 ; C ontinually prompt us er for rec ords | |
4466 | "RTN","DGM XCONV",62, 0) | |
4467 | . D ^DIC | |
4468 | "RTN","DGM XCONV",63, 0) | |
4469 | . S DFN=+ Y | |
4470 | "RTN","DGM XCONV",64, 0) | |
4471 | . I DFN<0 S DONE=1 Q | |
4472 | "RTN","DGM XCONV",65, 0) | |
4473 | . I $G(LI ST)="" S L IST=DFN Q | |
4474 | "RTN","DGM XCONV",66, 0) | |
4475 | . S LIST= LIST_","_D FN | |
4476 | "RTN","DGM XCONV",67, 0) | |
4477 | ; | |
4478 | "RTN","DGM XCONV",68, 0) | |
4479 | ; Loop th rough reco rds and tr igger mess ages | |
4480 | "RTN","DGM XCONV",69, 0) | |
4481 | I $G(LIST )="" Q | |
4482 | "RTN","DGM XCONV",70, 0) | |
4483 | D TRIGSUB S(TYPE,LIS T) | |
4484 | "RTN","DGM XCONV",71, 0) | |
4485 | Q | |
4486 | "RTN","DGM XCONV",72, 0) | |
4487 | PATCONV() ; Loops th rough File 2 and tri ggers an A DT message for each patient. E xcludes st ub patient records. | |
4488 | "RTN","DGM XCONV",73, 0) | |
4489 | ; Returns the numbe r of messa ges trigge red | |
4490 | "RTN","DGM XCONV",74, 0) | |
4491 | N DFN,THR EADS,THREA D,NUMCONVS ,DONE | |
4492 | "RTN","DGM XCONV",75, 0) | |
4493 | S THREADS =$$GET^XPA R("SYS","D GMX CONV T HREADS") | |
4494 | "RTN","DGM XCONV",76, 0) | |
4495 | I THREADS '>0 S THRE ADS=1 | |
4496 | "RTN","DGM XCONV",77, 0) | |
4497 | S NUMCONV S=0,DFN=0, DONE=0 | |
4498 | "RTN","DGM XCONV",78, 0) | |
4499 | F S DFN= $O(^DPT(DF N)) Q:DFN= ""!DONE=1 D | |
4500 | "RTN","DGM XCONV",79, 0) | |
4501 | . I +DFN= 0 S DONE=1 Q | |
4502 | "RTN","DGM XCONV",80, 0) | |
4503 | . I $G(^D PT(DFN,-9) )'="" Q | |
4504 | "RTN","DGM XCONV",81, 0) | |
4505 | . S THREA D=(NUMCONV S#THREADS) +1 ; Cycle through t he number of threads | |
4506 | "RTN","DGM XCONV",82, 0) | |
4507 | . S NUMCO NVS=NUMCON VS+1 | |
4508 | "RTN","DGM XCONV",83, 0) | |
4509 | . D TRIGG ER^DGMXADT (DFN,"ADD" ,1,THREAD) | |
4510 | "RTN","DGM XCONV",84, 0) | |
4511 | Q NUMCONV S | |
4512 | "RTN","DGM XCONV",85, 0) | |
4513 | PRFCONV() ; Loops th rough File 26.13 and triggers an ORU mes sage for e ach patien t with pat ient recor d flags. | |
4514 | "RTN","DGM XCONV",86, 0) | |
4515 | ; Returns the numbe r of messa ges trigge red | |
4516 | "RTN","DGM XCONV",87, 0) | |
4517 | N DFN,THR EADS,THREA D,NUMCONVS | |
4518 | "RTN","DGM XCONV",88, 0) | |
4519 | S THREADS =$$GET^XPA R("SYS","D GMX CONV T HREADS") | |
4520 | "RTN","DGM XCONV",89, 0) | |
4521 | I THREADS '>0 S THRE ADS=1 | |
4522 | "RTN","DGM XCONV",90, 0) | |
4523 | S NUMCONV S=0,DFN=0 | |
4524 | "RTN","DGM XCONV",91, 0) | |
4525 | F S DFN= $O(^DGPF(2 6.13,"B",D FN)) Q:DFN ="" D ; Loop through pa tient reco rd flags | |
4526 | "RTN","DGM XCONV",92, 0) | |
4527 | . S THREA D=(NUMCONV S#THREADS) +1 ; Cycle through t he number of threads | |
4528 | "RTN","DGM XCONV",93, 0) | |
4529 | . S NUMCO NVS=NUMCON VS+1 | |
4530 | "RTN","DGM XCONV",94, 0) | |
4531 | . D TRIGP RF^DGMXORU ($O(^DGPF( 26.13,"B", DFN,"")),1 ,THREAD) ; Pass fla g DFN to O RU constru ctor | |
4532 | "RTN","DGM XCONV",95, 0) | |
4533 | Q NUMCONV S | |
4534 | "RTN","DGM XCONV",96, 0) | |
4535 | BADCONV() ; Loops th rough File 2 and tri ggers an O RU message for each patient wi th a bad a ddress ind icator. | |
4536 | "RTN","DGM XCONV",97, 0) | |
4537 | ; Returns the numbe r of messa ges trigge red | |
4538 | "RTN","DGM XCONV",98, 0) | |
4539 | N DFN,THR EADS,THREA D,NUMCONVS ,DONE | |
4540 | "RTN","DGM XCONV",99, 0) | |
4541 | S THREADS =$$GET^XPA R("SYS","D GMX CONV T HREADS") | |
4542 | "RTN","DGM XCONV",100 ,0) | |
4543 | I THREADS '>0 S THRE ADS=1 | |
4544 | "RTN","DGM XCONV",101 ,0) | |
4545 | S NUMCONV S=0,DFN=0, DONE=0 | |
4546 | "RTN","DGM XCONV",102 ,0) | |
4547 | F S DFN= $O(^DPT(DF N)) Q:DFN= ""!DONE=1 D | |
4548 | "RTN","DGM XCONV",103 ,0) | |
4549 | . I +DFN= 0 S DONE=1 | |
4550 | "RTN","DGM XCONV",104 ,0) | |
4551 | . I $G(^D PT(DFN,-9) )'="" Q | |
4552 | "RTN","DGM XCONV",105 ,0) | |
4553 | . I $$GET 1^DIQ(2,DF N,.121)="" Q ; Q uit if no bad addres s indicato r | |
4554 | "RTN","DGM XCONV",106 ,0) | |
4555 | . S THREA D=(NUMCONV S#THREADS) +1 ; C ycle throu gh the num ber of thr eads | |
4556 | "RTN","DGM XCONV",107 ,0) | |
4557 | . S NUMCO NVS=NUMCON VS+1 | |
4558 | "RTN","DGM XCONV",108 ,0) | |
4559 | . D TRIGB AD^DGMXORU (DFN,"ACTI VE",1,THRE AD) | |
4560 | "RTN","DGM XCONV",109 ,0) | |
4561 | Q NUMCONV S | |
4562 | "RTN","DGM XCONV",110 ,0) | |
4563 | SENCONV() ; Loops th rough File 38.1 and triggers a n ORU mess age for ea ch patient with a se nsitivity flag. | |
4564 | "RTN","DGM XCONV",111 ,0) | |
4565 | ; Returns the numbe r of messa ges trigge red | |
4566 | "RTN","DGM XCONV",112 ,0) | |
4567 | N DFN,DFN 2,THREADS, THREAD,NUM CONVS | |
4568 | "RTN","DGM XCONV",113 ,0) | |
4569 | S THREADS =$$GET^XPA R("SYS","D GMX CONV T HREADS") | |
4570 | "RTN","DGM XCONV",114 ,0) | |
4571 | I THREADS '>0 S THRE ADS=1 | |
4572 | "RTN","DGM XCONV",115 ,0) | |
4573 | S NUMCONV S=0,DFN=0 | |
4574 | "RTN","DGM XCONV",116 ,0) | |
4575 | F S DFN= $O(^DGSL(3 8.1,"B",DF N)) Q:DFN= "" D | |
4576 | "RTN","DGM XCONV",117 ,0) | |
4577 | . S THREA D=(NUMCONV S#THREADS) +1 ; C ycle throu gh the num ber of thr eads | |
4578 | "RTN","DGM XCONV",118 ,0) | |
4579 | . S NUMCO NVS=NUMCON VS+1 | |
4580 | "RTN","DGM XCONV",119 ,0) | |
4581 | . S DFN2= $O(^DGSL(3 8.1,"B",DF N,"")) ; Get the patie nt sensiti vity flag DFN | |
4582 | "RTN","DGM XCONV",120 ,0) | |
4583 | . D TRIGS EN^DGMXORU (DFN2,$$GE T1^DIQ(38. 1,DFN2,2," I"),1,THRE AD) ; Pas s in the s ensitivity flag stat us | |
4584 | "RTN","DGM XCONV",121 ,0) | |
4585 | Q NUMCONV S | |
4586 | "RTN","DGM XCONV",122 ,0) | |
4587 | VERCONV() ; Loops th rough File 41.41 and triggers an ORU mes sage for e ach patien t with a d emographic verificat ion date. | |
4588 | "RTN","DGM XCONV",123 ,0) | |
4589 | ; Returns the numbe r of messa ges trigge red | |
4590 | "RTN","DGM XCONV",124 ,0) | |
4591 | N DFN,THR EADS,THREA D,NUMCONVS | |
4592 | "RTN","DGM XCONV",125 ,0) | |
4593 | S THREADS =$$GET^XPA R("SYS","D GMX CONV T HREADS") | |
4594 | "RTN","DGM XCONV",126 ,0) | |
4595 | I THREADS '>0 S THRE ADS=1 | |
4596 | "RTN","DGM XCONV",127 ,0) | |
4597 | S NUMCONV S=0,DFN=0 | |
4598 | "RTN","DGM XCONV",128 ,0) | |
4599 | F S DFN= $O(^DGS(41 .41,"B",DF N)) Q:DFN= "" D | |
4600 | "RTN","DGM XCONV",129 ,0) | |
4601 | . S THREA D=(NUMCONV S#THREADS) +1 ; C ycle throu gh the num ber of thr eads | |
4602 | "RTN","DGM XCONV",130 ,0) | |
4603 | . S NUMCO NVS=NUMCON VS+1 | |
4604 | "RTN","DGM XCONV",131 ,0) | |
4605 | . D TRIGV ER^DGMXORU ($O(^DGS(4 1.41,"B",D FN,""),-1) ,1,THREAD) | |
4606 | "RTN","DGM XCONV",132 ,0) | |
4607 | Q NUMCONV S | |
4608 | "RTN","DGM XCONV",133 ,0) | |
4609 | PICKCONV(T YPE,COUNT) ; Execute s the appr opriate co nversion t ag | |
4610 | "RTN","DGM XCONV",134 ,0) | |
4611 | ; TYPE - Specifi es the typ e of conve rsion to e xecute | |
4612 | "RTN","DGM XCONV",135 ,0) | |
4613 | ; COUNT - Number of message s triggere d | |
4614 | "RTN","DGM XCONV",136 ,0) | |
4615 | ; | |
4616 | "RTN","DGM XCONV",137 ,0) | |
4617 | I $G(TYPE )="" Q | |
4618 | "RTN","DGM XCONV",138 ,0) | |
4619 | I TYPE="P AT" S COUN T=$$PATCON V() | |
4620 | "RTN","DGM XCONV",139 ,0) | |
4621 | I TYPE="P RF" S COUN T=$$PRFCON V() | |
4622 | "RTN","DGM XCONV",140 ,0) | |
4623 | I TYPE="B AD" S COUN T=$$BADCON V() | |
4624 | "RTN","DGM XCONV",141 ,0) | |
4625 | I TYPE="S EN" S COUN T=$$SENCON V() | |
4626 | "RTN","DGM XCONV",142 ,0) | |
4627 | I TYPE="V ER" S COUN T=$$VERCON V() | |
4628 | "RTN","DGM XCONV",143 ,0) | |
4629 | Q | |
4630 | "RTN","DGM XCONV",144 ,0) | |
4631 | TRIGSUBS(T YPE,LIST) ; Given a list of re cords, tri gger messa ges for th e subset | |
4632 | "RTN","DGM XCONV",145 ,0) | |
4633 | ; TYPE - Specifie s the type of conver sion to ex ecute | |
4634 | "RTN","DGM XCONV",146 ,0) | |
4635 | ; LIST - Comma-de limited li st of reco rds to tri gger messa ges for | |
4636 | "RTN","DGM XCONV",147 ,0) | |
4637 | ; | |
4638 | "RTN","DGM XCONV",148 ,0) | |
4639 | N LENGTH, IND,DFN,VA L,STATUS | |
4640 | "RTN","DGM XCONV",149 ,0) | |
4641 | I ($G(TYP E)="")!($G (LIST)="") Q | |
4642 | "RTN","DGM XCONV",150 ,0) | |
4643 | S LENGTH= $L(LIST,", ") | |
4644 | "RTN","DGM XCONV",151 ,0) | |
4645 | I LENGTH< 1 Q | |
4646 | "RTN","DGM XCONV",152 ,0) | |
4647 | I TYPE="P AT" F IND= 1:1:LENGTH D TRIGGER ^DGMXADT($ P(LIST,"," ,IND),"UPD ATE") ; P atient | |
4648 | "RTN","DGM XCONV",153 ,0) | |
4649 | I TYPE="P RF" F IND= 1:1:LENGTH D TRIGPRF ^DGMXORU($ P(LIST,"," ,IND)) ; P atient Rec ord Flag | |
4650 | "RTN","DGM XCONV",154 ,0) | |
4651 | I TYPE="B AD" D ; B ad Address Indicator | |
4652 | "RTN","DGM XCONV",155 ,0) | |
4653 | . F IND=1 :1:LENGTH D | |
4654 | "RTN","DGM XCONV",156 ,0) | |
4655 | . . S DFN =$P(LIST," ,",IND) | |
4656 | "RTN","DGM XCONV",157 ,0) | |
4657 | . . S VAL =$$GET1^DI Q(2,DFN,.1 21) | |
4658 | "RTN","DGM XCONV",158 ,0) | |
4659 | . . I VAL '="" S STA TUS="ACTIV E" | |
4660 | "RTN","DGM XCONV",159 ,0) | |
4661 | . . E S STATUS="IN ACTIVE" | |
4662 | "RTN","DGM XCONV",160 ,0) | |
4663 | . . D TRI GBAD^DGMXO RU(DFN,STA TUS) Q | |
4664 | "RTN","DGM XCONV",161 ,0) | |
4665 | I TYPE="S EN" D ; Patie nt Sensiti vity Flag | |
4666 | "RTN","DGM XCONV",162 ,0) | |
4667 | . F IND=1 :1:LENGTH D | |
4668 | "RTN","DGM XCONV",163 ,0) | |
4669 | . . S DFN =$P(LIST," ,",IND) | |
4670 | "RTN","DGM XCONV",164 ,0) | |
4671 | . . D TRI GSEN^DGMXO RU(DFN,$$G ET1^DIQ(38 .1,DFN,2," I")) | |
4672 | "RTN","DGM XCONV",165 ,0) | |
4673 | I TYPE="V ER" F IND= 1:1:LENGTH D TRIGVER ^DGMXORU($ P(LIST,"," ,IND)) ; Demog raphics Ve rification Date | |
4674 | "RTN","DGM XCONV",166 ,0) | |
4675 | W !,"Mess ages Trigg ered: "_LE NGTH | |
4676 | "RTN","DGM XCONV",167 ,0) | |
4677 | Q | |
4678 | "RTN","DGM XCONV",168 ,0) | |
4679 | GETNUMR(TY PE) ; Esti mate the n umber of r ecords tha t will be searched | |
4680 | "RTN","DGM XCONV",169 ,0) | |
4681 | ; TYPE - Specifie s the type of conver sion to ex ecute | |
4682 | "RTN","DGM XCONV",170 ,0) | |
4683 | ; | |
4684 | "RTN","DGM XCONV",171 ,0) | |
4685 | I $G(TYPE )="" Q | |
4686 | "RTN","DGM XCONV",172 ,0) | |
4687 | I TYPE="P AT" Q $P($ G(^DPT(0)) ,"^",4) | |
4688 | "RTN","DGM XCONV",173 ,0) | |
4689 | I TYPE="P RF" Q $P($ G(^DGPF(26 .13,0)),"^ ",4) | |
4690 | "RTN","DGM XCONV",174 ,0) | |
4691 | I TYPE="B AD" Q $P($ G(^DPT(0)) ,"^",4) | |
4692 | "RTN","DGM XCONV",175 ,0) | |
4693 | I TYPE="S EN" Q $P($ G(^DGSL(38 .1,0)),"^" ,4) | |
4694 | "RTN","DGM XCONV",176 ,0) | |
4695 | I TYPE="V ER" Q $P($ G(^DGS(41. 41,0)),"^" ,4) | |
4696 | "RTN","DGM XCONV",177 ,0) | |
4697 | Q "" | |
4698 | "RTN","DGM XCONV",178 ,0) | |
4699 | GETDIC(TYP E,DIC) ; G et the Dic tionary va lues for t he prompt | |
4700 | "RTN","DGM XCONV",179 ,0) | |
4701 | ; TYPE - Specifie s the type of conver sion to ex ecute | |
4702 | "RTN","DGM XCONV",180 ,0) | |
4703 | ; DIC - Dictionar y variable needed fo r menu pro mpt | |
4704 | "RTN","DGM XCONV",181 ,0) | |
4705 | ; | |
4706 | "RTN","DGM XCONV",182 ,0) | |
4707 | I $G(TYPE )="" Q | |
4708 | "RTN","DGM XCONV",183 ,0) | |
4709 | I TYPE="P AT" S DIC= 2,DIC(0)=" QEAMIZ",DI C("A")="Se lect PATIE NT: " | |
4710 | "RTN","DGM XCONV",184 ,0) | |
4711 | I TYPE="P RF" S DIC= 26.13,DIC( 0)="QEAMIZ ",DIC("A") ="Select P RF ASSIGNM ENT: " | |
4712 | "RTN","DGM XCONV",185 ,0) | |
4713 | I TYPE="B AD" S DIC= 2,DIC(0)=" QEAMIZ",DI C("A")="Se lect PATIE NT: " | |
4714 | "RTN","DGM XCONV",186 ,0) | |
4715 | I TYPE="S EN" S DIC= 38.1,DIC(0 )="QEAMIZ" ,DIC("A")= "Select DG SECURITY LOG: " | |
4716 | "RTN","DGM XCONV",187 ,0) | |
4717 | I TYPE="V ER" S DIC= 41.41,DIC( 0)="QEAMIZ ",DIC("A") ="Select P RE-REGISTR ATION AUDI T: " | |
4718 | "RTN","DGM XCONV",188 ,0) | |
4719 | Q | |
4720 | "RTN","DGM XHL7") | |
4721 | 0^5^B28578 7963 | |
4722 | "RTN","DGM XHL7",1,0) | |
4723 | DGMXHL7 ; MASS/DXL - HL7 Segme nt Build C ode;8/22/1 7 | |
4724 | "RTN","DGM XHL7",2,0) | |
4725 | ;;5.3;Reg istration; **948**;AU GUST 17,20 17;Build 6 6 | |
4726 | "RTN","DGM XHL7",3,0) | |
4727 | ;Per VA D IRECTIVE 6 402, this routine sh ould not b e modified . | |
4728 | "RTN","DGM XHL7",4,0) | |
4729 | ; | |
4730 | "RTN","DGM XHL7",5,0) | |
4731 | ; ICR# S upported R eferences | |
4732 | "RTN","DGM XHL7",6,0) | |
4733 | ; 2056 $ $GET1^DIQ | |
4734 | "RTN","DGM XHL7",7,0) | |
4735 | ; 2056 $ $GETS^DIQ | |
4736 | "RTN","DGM XHL7",8,0) | |
4737 | ; 2263 $ $GET^XPAR | |
4738 | "RTN","DGM XHL7",9,0) | |
4739 | ; 2701 $ $GETICN^MP IF001 | |
4740 | "RTN","DGM XHL7",10,0 ) | |
4741 | ; 3065 S TDNAME^XLF NAME | |
4742 | "RTN","DGM XHL7",11,0 ) | |
4743 | ; 4716 $ $ADDSEG^HL OAPI | |
4744 | "RTN","DGM XHL7",12,0 ) | |
4745 | ; 4716 S ET^HLOAPI | |
4746 | "RTN","DGM XHL7",13,0 ) | |
4747 | ; 4853 S ETAD^HLOAP I4 | |
4748 | "RTN","DGM XHL7",14,0 ) | |
4749 | ; 4853 S ETDT^HLOAP I4 | |
4750 | "RTN","DGM XHL7",15,0 ) | |
4751 | ; 4853 S ETXPN^HLOA PI4 | |
4752 | "RTN","DGM XHL7",16,0 ) | |
4753 | ; 10061 A DD^VADPT Patient Ad dress | |
4754 | "RTN","DGM XHL7",17,0 ) | |
4755 | ; 10061 D EM^VADPT Patient De mographics | |
4756 | "RTN","DGM XHL7",18,0 ) | |
4757 | ; 10061 E LIG^VADPT Patient El igibility | |
4758 | "RTN","DGM XHL7",19,0 ) | |
4759 | ; E SCINVLD^SD MXCORE | |
4760 | "RTN","DGM XHL7",20,0 ) | |
4761 | ; 3065 $ $NAMEFMT^X LFNAME1 | |
4762 | "RTN","DGM XHL7",21,0 ) | |
4763 | ; $ $VA2HL7TS^ SDMXCORE | |
4764 | "RTN","DGM XHL7",22,0 ) | |
4765 | ; $ $FMTPHONE^ SDMXCORE | |
4766 | "RTN","DGM XHL7",23,0 ) | |
4767 | ; 10035 ^ DPT | |
4768 | "RTN","DGM XHL7",24,0 ) | |
4769 | ; | |
4770 | "RTN","DGM XHL7",25,0 ) | |
4771 | Q | |
4772 | "RTN","DGM XHL7",26,0 ) | |
4773 | PID(DFN,SE Q,SEG) ; B uilds a PI D segment | |
4774 | "RTN","DGM XHL7",27,0 ) | |
4775 | ; DFN - Pat ID (IE N) | |
4776 | "RTN","DGM XHL7",28,0 ) | |
4777 | ; SEQ - Seg index | |
4778 | "RTN","DGM XHL7",29,0 ) | |
4779 | ; SEG - Seg output | |
4780 | "RTN","DGM XHL7",30,0 ) | |
4781 | ; | |
4782 | "RTN","DGM XHL7",31,0 ) | |
4783 | I $G(SEQ) ="" S SEQ= 1 | |
4784 | "RTN","DGM XHL7",32,0 ) | |
4785 | K SEG S S EG="" | |
4786 | "RTN","DGM XHL7",33,0 ) | |
4787 | I $G(DFN) ="" Q | |
4788 | "RTN","DGM XHL7",34,0 ) | |
4789 | ; | |
4790 | "RTN","DGM XHL7",35,0 ) | |
4791 | ; Get Pat ient Demog raphics | |
4792 | "RTN","DGM XHL7",36,0 ) | |
4793 | N NAME,DO B,SSN,ICN, ADDRESS | |
4794 | "RTN","DGM XHL7",37,0 ) | |
4795 | N SEX,ALI AS,TEMPADD R,CONFADDR ,HPHONE,WP HONE,TPHON E,DOD,EMAI L,HPEXT,WP EXT,TPEXT, DIND,CPHON E,CPEXT,MP HONE | |
4796 | "RTN","DGM XHL7",38,0 ) | |
4797 | D GETDEMO G(DFN,.NAM E,.DOB,.SS N,.SEX,.IC N,.DOD,.AL IAS,.DIND) | |
4798 | "RTN","DGM XHL7",39,0 ) | |
4799 | D GETADDR (DFN,.ADDR ESS,.CONFA DDR,.TEMPA DDR) | |
4800 | "RTN","DGM XHL7",40,0 ) | |
4801 | D GETTELE (DFN,.HPHO NE,.HPEXT, .WPHONE,.W PEXT,.TPHO NE,.TPEXT, .EMAIL,.CP HONE,.CPEX T,.MPHONE) | |
4802 | "RTN","DGM XHL7",41,0 ) | |
4803 | I $G(TEMP ADDR("ACTI VE"))=0 S (TPHONE,TP EXT)="" D SET1NULL(. TPHONE),SE T1NULL(.TP EXT) | |
4804 | "RTN","DGM XHL7",42,0 ) | |
4805 | I $G(CONF ADDR("ACTI VE"))=0 S (CPHONE,CP EXT)="" D SET1NULL(. CPHONE),SE T1NULL(.CP EXT) | |
4806 | "RTN","DGM XHL7",43,0 ) | |
4807 | ; | |
4808 | "RTN","DGM XHL7",44,0 ) | |
4809 | ; Sanitiz e Variable s | |
4810 | "RTN","DGM XHL7",45,0 ) | |
4811 | S HPHONE= $G(HPHONE) ,WPHONE=$G (WPHONE),T PHONE=$G(T PHONE),CPH ONE=$G(CPH ONE),MPHON E=$G(MPHON E) | |
4812 | "RTN","DGM XHL7",46,0 ) | |
4813 | S HPEXT=$ G(HPEXT),W PEXT=$G(WP EXT),TPEXT =$G(TPEXT) ,CPEXT=$G( CPEXT) | |
4814 | "RTN","DGM XHL7",47,0 ) | |
4815 | S ICN=$G( ICN),SEX=$ G(SEX),ALI AS=$G(ALIA S),SSN=$G( SSN),DOD=$ G(DOD) | |
4816 | "RTN","DGM XHL7",48,0 ) | |
4817 | ; | |
4818 | "RTN","DGM XHL7",49,0 ) | |
4819 | ; Build S egment | |
4820 | "RTN","DGM XHL7",50,0 ) | |
4821 | D SET^HLO API(.SEG," PID",0) | |
4822 | "RTN","DGM XHL7",51,0 ) | |
4823 | D SET^HLO API(.SEG,S EQ,1) | |
4824 | "RTN","DGM XHL7",52,0 ) | |
4825 | D BLDPID3 (.SEG,ICN, DFN,3) ; Identi fiers | |
4826 | "RTN","DGM XHL7",53,0 ) | |
4827 | D SETXPN^ HLOAPI4(.S EG,.NAME,5 ) ; Name | |
4828 | "RTN","DGM XHL7",54,0 ) | |
4829 | D SETDT^H LOAPI4(.SE G,DOB,7) ; Date o f Birth | |
4830 | "RTN","DGM XHL7",55,0 ) | |
4831 | D SET^HLO API(.SEG,S EX,8) ; Gender | |
4832 | "RTN","DGM XHL7",56,0 ) | |
4833 | D BLDPID9 (.SEG,ALIA S,9) ; Aliase s | |
4834 | "RTN","DGM XHL7",57,0 ) | |
4835 | D BLDPID1 1(.SEG,.AD DRESS,.CON FADDR,.TEM PADDR,11) ; Addres s | |
4836 | "RTN","DGM XHL7",58,0 ) | |
4837 | D BLDPID1 3(.SEG,HPH ONE,HPEXT, EMAIL,TPHO NE,TPEXT,C PHONE,CPEX T,MPHONE,1 3) ; Ph one/Email | |
4838 | "RTN","DGM XHL7",59,0 ) | |
4839 | D BLDPID1 4(.SEG,WPH ONE,WPEXT, 14) ; Work P hone | |
4840 | "RTN","DGM XHL7",60,0 ) | |
4841 | D SET^HLO API(.SEG,S SN,19) ; SSN | |
4842 | "RTN","DGM XHL7",61,0 ) | |
4843 | D SETDT^H LOAPI4(.SE G,DOD,29) ; Date o f Death | |
4844 | "RTN","DGM XHL7",62,0 ) | |
4845 | D SET^HLO API(.SEG,D IND,30) ; Death Indicator | |
4846 | "RTN","DGM XHL7",63,0 ) | |
4847 | Q | |
4848 | "RTN","DGM XHL7",64,0 ) | |
4849 | PV1(DFN,SE Q,SEG) ; B uilds a PV 1 segment | |
4850 | "RTN","DGM XHL7",65,0 ) | |
4851 | ; DFN - Pat ID (IE N) | |
4852 | "RTN","DGM XHL7",66,0 ) | |
4853 | ; SEQ - Seg index | |
4854 | "RTN","DGM XHL7",67,0 ) | |
4855 | ; SEG - Seg output | |
4856 | "RTN","DGM XHL7",68,0 ) | |
4857 | ; | |
4858 | "RTN","DGM XHL7",69,0 ) | |
4859 | I $G(SEQ) ="" S SEQ= 1 | |
4860 | "RTN","DGM XHL7",70,0 ) | |
4861 | K SEG S S EG="" | |
4862 | "RTN","DGM XHL7",71,0 ) | |
4863 | I $G(DFN) ="" Q | |
4864 | "RTN","DGM XHL7",72,0 ) | |
4865 | ; | |
4866 | "RTN","DGM XHL7",73,0 ) | |
4867 | ; Get Pat ient Type | |
4868 | "RTN","DGM XHL7",74,0 ) | |
4869 | N PTYPE | |
4870 | "RTN","DGM XHL7",75,0 ) | |
4871 | S PTYPE=$ $GET1^DIQ( 2,DFN,391) | |
4872 | "RTN","DGM XHL7",76,0 ) | |
4873 | ; | |
4874 | "RTN","DGM XHL7",77,0 ) | |
4875 | ; Build S egment | |
4876 | "RTN","DGM XHL7",78,0 ) | |
4877 | I $G(PTYP E)="" Q | |
4878 | "RTN","DGM XHL7",79,0 ) | |
4879 | D SET^HLO API(.SEG," PV1",0) | |
4880 | "RTN","DGM XHL7",80,0 ) | |
4881 | D SET^HLO API(.SEG,S EQ,1) | |
4882 | "RTN","DGM XHL7",81,0 ) | |
4883 | D SET^HLO API(.SEG,P TYPE,18) ; Patient t ype | |
4884 | "RTN","DGM XHL7",82,0 ) | |
4885 | Q | |
4886 | "RTN","DGM XHL7",83,0 ) | |
4887 | MRG(DFN,SE G) ; Build s an MRG s egment | |
4888 | "RTN","DGM XHL7",84,0 ) | |
4889 | ; DFN - Pat ID (IE N) - Sourc e patient | |
4890 | "RTN","DGM XHL7",85,0 ) | |
4891 | ; SEG - Seg output | |
4892 | "RTN","DGM XHL7",86,0 ) | |
4893 | ; | |
4894 | "RTN","DGM XHL7",87,0 ) | |
4895 | K SEG S S EG="" | |
4896 | "RTN","DGM XHL7",88,0 ) | |
4897 | I $G(DFN) ="" Q | |
4898 | "RTN","DGM XHL7",89,0 ) | |
4899 | ; | |
4900 | "RTN","DGM XHL7",90,0 ) | |
4901 | ; Build S egment | |
4902 | "RTN","DGM XHL7",91,0 ) | |
4903 | D SET^HLO API(.SEG," MRG",0) | |
4904 | "RTN","DGM XHL7",92,0 ) | |
4905 | D BLDPID3 (.SEG,-1,D FN,1) ; Old P atient ID | |
4906 | "RTN","DGM XHL7",93,0 ) | |
4907 | Q | |
4908 | "RTN","DGM XHL7",94,0 ) | |
4909 | OBR(SEQ,SE G,SUMMARY) ; Builds an OBR seg ment | |
4910 | "RTN","DGM XHL7",95,0 ) | |
4911 | ; SEQ - Seg index | |
4912 | "RTN","DGM XHL7",96,0 ) | |
4913 | ; SEG - Seg output | |
4914 | "RTN","DGM XHL7",97,0 ) | |
4915 | ; SUMMAR Y - Name o f the flag | |
4916 | "RTN","DGM XHL7",98,0 ) | |
4917 | ; | |
4918 | "RTN","DGM XHL7",99,0 ) | |
4919 | I $G(SEQ) ="" S SEQ= 1 | |
4920 | "RTN","DGM XHL7",100, 0) | |
4921 | K SEG S S EG="" | |
4922 | "RTN","DGM XHL7",101, 0) | |
4923 | ; | |
4924 | "RTN","DGM XHL7",102, 0) | |
4925 | I $G(SUMM ARY)="" Q | |
4926 | "RTN","DGM XHL7",103, 0) | |
4927 | D SET^HLO API(.SEG," OBR",0) | |
4928 | "RTN","DGM XHL7",104, 0) | |
4929 | D SET^HLO API(.SEG,S EQ,1) | |
4930 | "RTN","DGM XHL7",105, 0) | |
4931 | D SET^HLO API(.SEG,$ G(SUMMARY) ,4) ; F lag Name | |
4932 | "RTN","DGM XHL7",106, 0) | |
4933 | Q | |
4934 | "RTN","DGM XHL7",107, 0) | |
4935 | OBX(SEQ,SE G,TYPE,TEX T) ; Build s an OBX s egment | |
4936 | "RTN","DGM XHL7",108, 0) | |
4937 | ; SEQ - Seg index | |
4938 | "RTN","DGM XHL7",109, 0) | |
4939 | ; SEG - Seg output | |
4940 | "RTN","DGM XHL7",110, 0) | |
4941 | ; TYPE - Obs type | |
4942 | "RTN","DGM XHL7",111, 0) | |
4943 | ; TEXT - Obs value | |
4944 | "RTN","DGM XHL7",112, 0) | |
4945 | ; | |
4946 | "RTN","DGM XHL7",113, 0) | |
4947 | I $G(SEQ) ="" S SEQ= 1 | |
4948 | "RTN","DGM XHL7",114, 0) | |
4949 | K SEG S S EG="" | |
4950 | "RTN","DGM XHL7",115, 0) | |
4951 | ; | |
4952 | "RTN","DGM XHL7",116, 0) | |
4953 | ; Get Obs ervation T ypes | |
4954 | "RTN","DGM XHL7",117, 0) | |
4955 | N VALTYPE | |
4956 | "RTN","DGM XHL7",118, 0) | |
4957 | S TYPE=$G (TYPE) | |
4958 | "RTN","DGM XHL7",119, 0) | |
4959 | S VALTYPE =$S(TYPE=" NARRATIVE" :"TX",TYPE ="STATUS": "ST",1:TYP E) | |
4960 | "RTN","DGM XHL7",120, 0) | |
4961 | ; | |
4962 | "RTN","DGM XHL7",121, 0) | |
4963 | I $G(TEXT )="" Q | |
4964 | "RTN","DGM XHL7",122, 0) | |
4965 | D SET^HLO API(.SEG," OBX",0) | |
4966 | "RTN","DGM XHL7",123, 0) | |
4967 | D SET^HLO API(.SEG,S EQ,1) | |
4968 | "RTN","DGM XHL7",124, 0) | |
4969 | D SET^HLO API(.SEG,$ G(VALTYPE) ,2) ; V al Type | |
4970 | "RTN","DGM XHL7",125, 0) | |
4971 | D SET^HLO API(.SEG,$ G(TYPE),3) ; O bs Type | |
4972 | "RTN","DGM XHL7",126, 0) | |
4973 | D SET^HLO API(.SEG,$ G(TEXT),5) ; O bs Value | |
4974 | "RTN","DGM XHL7",127, 0) | |
4975 | Q | |
4976 | "RTN","DGM XHL7",128, 0) | |
4977 | ZCT(DFN,SE Q,SEG) ; B uilds a ZC T segment | |
4978 | "RTN","DGM XHL7",129, 0) | |
4979 | ; DFN - Pat ID (IE N) | |
4980 | "RTN","DGM XHL7",130, 0) | |
4981 | ; SEQ - Seg index | |
4982 | "RTN","DGM XHL7",131, 0) | |
4983 | ; SEG - Seg output | |
4984 | "RTN","DGM XHL7",132, 0) | |
4985 | ; | |
4986 | "RTN","DGM XHL7",133, 0) | |
4987 | I $G(SEQ) ="" S SEQ= 1 | |
4988 | "RTN","DGM XHL7",134, 0) | |
4989 | K SEG S S EG="" | |
4990 | "RTN","DGM XHL7",135, 0) | |
4991 | I $G(DFN) ="" Q | |
4992 | "RTN","DGM XHL7",136, 0) | |
4993 | ; | |
4994 | "RTN","DGM XHL7",137, 0) | |
4995 | ; Get Eme rgency Con tact Info | |
4996 | "RTN","DGM XHL7",138, 0) | |
4997 | N ENAME,E REL,EADDR, EPHONE | |
4998 | "RTN","DGM XHL7",139, 0) | |
4999 | S (ENAME, EREL,EADDR ,EPHONE)=" " | |
5000 | "RTN","DGM XHL7",140, 0) | |
5001 | D GETEINF O(DFN,.ENA ME,.EREL,. EADDR,.EPH ONE) | |
5002 | "RTN","DGM XHL7",141, 0) | |
5003 | ; | |
5004 | "RTN","DGM XHL7",142, 0) | |
5005 | ; Build S egment | |
5006 | "RTN","DGM XHL7",143, 0) | |
5007 | I $G(ENAM E)="",$G(E REL)="",'$ $HASADDR(. EADDR),$G( EPHONE)="" Q | |
5008 | "RTN","DGM XHL7",144, 0) | |
5009 | D SET^HLO API(.SEG," ZCT",0) | |
5010 | "RTN","DGM XHL7",145, 0) | |
5011 | D SET^HLO API(.SEG,S EQ,1) | |
5012 | "RTN","DGM XHL7",146, 0) | |
5013 | D SETXPN^ HLOAPI4(.S EG,.ENAME, 3) ; Name | |
5014 | "RTN","DGM XHL7",147, 0) | |
5015 | D SET^HLO API(.SEG,$ G(EREL),4) ; Rela tion | |
5016 | "RTN","DGM XHL7",148, 0) | |
5017 | D SETAD^H LOAPI4(.SE G,.EADDR,5 ) ; Addr ess | |
5018 | "RTN","DGM XHL7",149, 0) | |
5019 | D SET^HLO API(.SEG,$ G(EPHONE), 6) ; Phon e | |
5020 | "RTN","DGM XHL7",150, 0) | |
5021 | Q | |
5022 | "RTN","DGM XHL7",151, 0) | |
5023 | ZEL(SEQ,SE G,ELIGCODE ,ELIGSTAT, COMBSTAT,C OMBDATE) ; Builds a ZEL segmen t | |
5024 | "RTN","DGM XHL7",152, 0) | |
5025 | ; SEQ - Seg i ndex | |
5026 | "RTN","DGM XHL7",153, 0) | |
5027 | ; SEG - Seg o utput | |
5028 | "RTN","DGM XHL7",154, 0) | |
5029 | ; ELIGCO DE - Eligi bility cod e (File 8) | |
5030 | "RTN","DGM XHL7",155, 0) | |
5031 | ; ELIGST AT - Eligi bility sta tus | |
5032 | "RTN","DGM XHL7",156, 0) | |
5033 | ; COMBST AT - Comba t service indicated? | |
5034 | "RTN","DGM XHL7",157, 0) | |
5035 | ; COMBDA TE - Comba t veteran end date | |
5036 | "RTN","DGM XHL7",158, 0) | |
5037 | ; | |
5038 | "RTN","DGM XHL7",159, 0) | |
5039 | I $G(SEQ) ="" S SEQ= 1 | |
5040 | "RTN","DGM XHL7",160, 0) | |
5041 | K SEG S S EG="" | |
5042 | "RTN","DGM XHL7",161, 0) | |
5043 | ; | |
5044 | "RTN","DGM XHL7",162, 0) | |
5045 | ; Build S egment | |
5046 | "RTN","DGM XHL7",163, 0) | |
5047 | I $G(ELIG CODE)="",$ G(COMBSTAT )="" Q | |
5048 | "RTN","DGM XHL7",164, 0) | |
5049 | D SET^HLO API(.SEG," ZEL",0) | |
5050 | "RTN","DGM XHL7",165, 0) | |
5051 | D SET^HLO API(.SEG,S EQ,1) | |
5052 | "RTN","DGM XHL7",166, 0) | |
5053 | I $G(ELIG CODE)'="" D SET^HLOA PI(.SEG,$G (ELIGCODE) ,2) ; E lig Code | |
5054 | "RTN","DGM XHL7",167, 0) | |
5055 | I $G(ELIG STAT)'="" D SET^HLOA PI(.SEG,$G (ELIGSTAT) ,10) ; E lig Status | |
5056 | "RTN","DGM XHL7",168, 0) | |
5057 | I $G(COMB STAT)'="" D SET^HLOA PI(.SEG,$G (COMBSTAT) ,37) ; C ombat Elig Indicator | |
5058 | "RTN","DGM XHL7",169, 0) | |
5059 | I $G(COMB DATE)'="" D SET^HLOA PI(.SEG,$G (COMBDATE) ,38) ; C ombat Elig End Date | |
5060 | "RTN","DGM XHL7",170, 0) | |
5061 | Q | |
5062 | "RTN","DGM XHL7",171, 0) | |
5063 | ZEN(ENR,SE Q,SEG) ; B uilds a ZE N segment | |
5064 | "RTN","DGM XHL7",172, 0) | |
5065 | ; ENR - Enrollment (File 27. 11) | |
5066 | "RTN","DGM XHL7",173, 0) | |
5067 | ; SEQ - Seg index | |
5068 | "RTN","DGM XHL7",174, 0) | |
5069 | ; SEG - Seg output | |
5070 | "RTN","DGM XHL7",175, 0) | |
5071 | ; | |
5072 | "RTN","DGM XHL7",176, 0) | |
5073 | I $G(SEQ) ="" S SEQ= 1 | |
5074 | "RTN","DGM XHL7",177, 0) | |
5075 | K SEG S S EG="" | |
5076 | "RTN","DGM XHL7",178, 0) | |
5077 | ; | |
5078 | "RTN","DGM XHL7",179, 0) | |
5079 | I $G(ENR) ="" Q | |
5080 | "RTN","DGM XHL7",180, 0) | |
5081 | ; Get Enr ollment In formation | |
5082 | "RTN","DGM XHL7",181, 0) | |
5083 | N ENSTATU S,ENPRIORI ,ENSUBGRP | |
5084 | "RTN","DGM XHL7",182, 0) | |
5085 | D GETENR( ENR,.ENSTA TUS,.ENPRI ORI,.ENSUB GRP) | |
5086 | "RTN","DGM XHL7",183, 0) | |
5087 | ; | |
5088 | "RTN","DGM XHL7",184, 0) | |
5089 | ; Build S egment | |
5090 | "RTN","DGM XHL7",185, 0) | |
5091 | I $G(ENST ATUS)="",$ G(ENPRIORI )="",$G(EN SUBGRP)="" Q | |
5092 | "RTN","DGM XHL7",186, 0) | |
5093 | D SET^HLO API(.SEG," ZEN",0) | |
5094 | "RTN","DGM XHL7",187, 0) | |
5095 | D SET^HLO API(.SEG,S EQ,1) | |
5096 | "RTN","DGM XHL7",188, 0) | |
5097 | D SET^HLO API(.SEG,$ G(ENSTATUS ),4) ; S tatus | |
5098 | "RTN","DGM XHL7",189, 0) | |
5099 | D SET^HLO API(.SEG,$ G(ENPRIORI ),9) ; P riority | |
5100 | "RTN","DGM XHL7",190, 0) | |
5101 | D SET^HLO API(.SEG,$ G(ENSUBGRP ),13) ; S ubgroup | |
5102 | "RTN","DGM XHL7",191, 0) | |
5103 | Q | |
5104 | "RTN","DGM XHL7",192, 0) | |
5105 | ZSP(DFN,SE Q,SEG) ; B uilds a ZS P segment if Service Connected | |
5106 | "RTN","DGM XHL7",193, 0) | |
5107 | ; DFN - Pat ID (IE N) | |
5108 | "RTN","DGM XHL7",194, 0) | |
5109 | ; SEQ - Seg index | |
5110 | "RTN","DGM XHL7",195, 0) | |
5111 | ; SEG - Seg output | |
5112 | "RTN","DGM XHL7",196, 0) | |
5113 | ; | |
5114 | "RTN","DGM XHL7",197, 0) | |
5115 | I $G(SEQ) ="" S SEQ= 1 | |
5116 | "RTN","DGM XHL7",198, 0) | |
5117 | K SEG S S EG="" | |
5118 | "RTN","DGM XHL7",199, 0) | |
5119 | I $G(DFN) ="" Q | |
5120 | "RTN","DGM XHL7",200, 0) | |
5121 | ; | |
5122 | "RTN","DGM XHL7",201, 0) | |
5123 | ; Get Ser vice Conne cted Infor mation | |
5124 | "RTN","DGM XHL7",202, 0) | |
5125 | N ISSERCO N,SERCONPC ,DENTCLAS | |
5126 | "RTN","DGM XHL7",203, 0) | |
5127 | S (ISSERC ON,SERCONP C,DENTCLAS )="" | |
5128 | "RTN","DGM XHL7",204, 0) | |
5129 | D GETSERV C(DFN,.ISS ERCON,.SER CONPC,.DEN TCLAS) | |
5130 | "RTN","DGM XHL7",205, 0) | |
5131 | ; | |
5132 | "RTN","DGM XHL7",206, 0) | |
5133 | ; Build S egment | |
5134 | "RTN","DGM XHL7",207, 0) | |
5135 | I $G(ISSE RCON)="",$ G(SERCONPC )="",$G(DE NTCLAS)="" Q | |
5136 | "RTN","DGM XHL7",208, 0) | |
5137 | D SET^HLO API(.SEG," ZSP",0) | |
5138 | "RTN","DGM XHL7",209, 0) | |
5139 | D SET^HLO API(.SEG,S EQ,1) | |
5140 | "RTN","DGM XHL7",210, 0) | |
5141 | D SET^HLO API(.SEG,$ G(ISSERCON ),2) ; S ervice Con nected? | |
5142 | "RTN","DGM XHL7",211, 0) | |
5143 | D SET^HLO API(.SEG,$ G(SERCONPC ),3) ; P ercentage | |
5144 | "RTN","DGM XHL7",212, 0) | |
5145 | D SET^HLO API(.SEG,$ G(DENTCLAS ),12) ; D ental Clas sification | |
5146 | "RTN","DGM XHL7",213, 0) | |
5147 | Q | |
5148 | "RTN","DGM XHL7",214, 0) | |
5149 | NTE(DFN,SE Q,SEG) ; B uilds an N TE Segment | |
5150 | "RTN","DGM XHL7",215, 0) | |
5151 | ; DFN - Pat ID (IE N) | |
5152 | "RTN","DGM XHL7",216, 0) | |
5153 | ; SEQ - Seg index | |
5154 | "RTN","DGM XHL7",217, 0) | |
5155 | ; SEG - Seg output | |
5156 | "RTN","DGM XHL7",218, 0) | |
5157 | ; | |
5158 | "RTN","DGM XHL7",219, 0) | |
5159 | I $G(SEQ) ="" S SEQ= 1 | |
5160 | "RTN","DGM XHL7",220, 0) | |
5161 | K SEG S S EG="" | |
5162 | "RTN","DGM XHL7",221, 0) | |
5163 | I $G(DFN) ="" Q | |
5164 | "RTN","DGM XHL7",222, 0) | |
5165 | ; | |
5166 | "RTN","DGM XHL7",223, 0) | |
5167 | ; Get Sel f Identifi ed Gender | |
5168 | "RTN","DGM XHL7",224, 0) | |
5169 | N SIGENDE R | |
5170 | "RTN","DGM XHL7",225, 0) | |
5171 | S SIGENDE R=$$GET1^D IQ(2,DFN,. 024,"I") | |
5172 | "RTN","DGM XHL7",226, 0) | |
5173 | ; | |
5174 | "RTN","DGM XHL7",227, 0) | |
5175 | ; Build S egment | |
5176 | "RTN","DGM XHL7",228, 0) | |
5177 | I $G(SIGE NDER)="" Q | |
5178 | "RTN","DGM XHL7",229, 0) | |
5179 | D SET^HLO API(.SEG," NTE",0) | |
5180 | "RTN","DGM XHL7",230, 0) | |
5181 | D SET^HLO API(.SEG,S EQ,1) | |
5182 | "RTN","DGM XHL7",231, 0) | |
5183 | D SET^HLO API(.SEG,$ G(SIGENDER ),3) ; V alue | |
5184 | "RTN","DGM XHL7",232, 0) | |
5185 | D SET^HLO API(.SEG," RE",4) ; R emark | |
5186 | "RTN","DGM XHL7",233, 0) | |
5187 | Q | |
5188 | "RTN","DGM XHL7",234, 0) | |
5189 | BLDPID3(SE G,ICN,DFN, FIELD) ; B uilds pati ent identi fier list | |
5190 | "RTN","DGM XHL7",235, 0) | |
5191 | ; SEG - Seg outp ut | |
5192 | "RTN","DGM XHL7",236, 0) | |
5193 | ; ICN - Integrat ion Contro l Number | |
5194 | "RTN","DGM XHL7",237, 0) | |
5195 | ; DFN - Pat ID ( IEN) | |
5196 | "RTN","DGM XHL7",238, 0) | |
5197 | ; FIELD - Field In dex | |
5198 | "RTN","DGM XHL7",239, 0) | |
5199 | ; | |
5200 | "RTN","DGM XHL7",240, 0) | |
5201 | ; IEN | |
5202 | "RTN","DGM XHL7",241, 0) | |
5203 | N ASSIGNI NG | |
5204 | "RTN","DGM XHL7",242, 0) | |
5205 | S ASSIGNI NG=$$GET^X PAR("SYS", "DGMX PATI ENT IEN AS SIGNING") | |
5206 | "RTN","DGM XHL7",243, 0) | |
5207 | I $G(ASSI GNING)="" S ASSIGNIN G="USVHA" | |
5208 | "RTN","DGM XHL7",244, 0) | |
5209 | D SET^HLO API(.SEG,$ G(DFN),$G( FIELD),1,1 ,1) | |
5210 | "RTN","DGM XHL7",245, 0) | |
5211 | D SET^HLO API(.SEG,$ G(ASSIGNIN G),$G(FIEL D),4,1,1) | |
5212 | "RTN","DGM XHL7",246, 0) | |
5213 | D SET^HLO API(.SEG," IEN",$G(FI ELD),5,1,1 ) | |
5214 | "RTN","DGM XHL7",247, 0) | |
5215 | ; | |
5216 | "RTN","DGM XHL7",248, 0) | |
5217 | ; ICN | |
5218 | "RTN","DGM XHL7",249, 0) | |
5219 | I $P($G(I CN),"^",1) =-1 Q | |
5220 | "RTN","DGM XHL7",250, 0) | |
5221 | D SET^HLO API(.SEG,$ G(ICN),$G( FIELD),1,1 ,2) | |
5222 | "RTN","DGM XHL7",251, 0) | |
5223 | D SET^HLO API(.SEG," USVHA",$G( FIELD),4,1 ,2) | |
5224 | "RTN","DGM XHL7",252, 0) | |
5225 | D SET^HLO API(.SEG," NI",$G(FIE LD),5,1,2) | |
5226 | "RTN","DGM XHL7",253, 0) | |
5227 | Q | |
5228 | "RTN","DGM XHL7",254, 0) | |
5229 | BLDPID9(SE G,ALIAS,FI ELD) ; Bui lds patien t aliases | |
5230 | "RTN","DGM XHL7",255, 0) | |
5231 | ; SEG - Seg outp ut | |
5232 | "RTN","DGM XHL7",256, 0) | |
5233 | ; ALIAS - "^" deli mited list of aliase s | |
5234 | "RTN","DGM XHL7",257, 0) | |
5235 | ; FIELD - Field In dex | |
5236 | "RTN","DGM XHL7",258, 0) | |
5237 | ; | |
5238 | "RTN","DGM XHL7",259, 0) | |
5239 | N REP,LEN ,IND,VAL | |
5240 | "RTN","DGM XHL7",260, 0) | |
5241 | S (REP,LE N,IND,VAL) ="" | |
5242 | "RTN","DGM XHL7",261, 0) | |
5243 | S REP=1 | |
5244 | "RTN","DGM XHL7",262, 0) | |
5245 | S LEN=$L( $G(ALIAS), "^") | |
5246 | "RTN","DGM XHL7",263, 0) | |
5247 | ; | |
5248 | "RTN","DGM XHL7",264, 0) | |
5249 | F IND=1:1 :LEN D | |
5250 | "RTN","DGM XHL7",265, 0) | |
5251 | . S VAL=$ P($G(ALIAS ),"^",IND) | |
5252 | "RTN","DGM XHL7",266, 0) | |
5253 | . I VAL=" NONE" Q | |
5254 | "RTN","DGM XHL7",267, 0) | |
5255 | . D STDNA ME^XLFNAME (.VAL,"C") | |
5256 | "RTN","DGM XHL7",268, 0) | |
5257 | . D SETXP N^HLOAPI4( .SEG,.VAL, FIELD,"",R EP) | |
5258 | "RTN","DGM XHL7",269, 0) | |
5259 | . S REP=R EP+1 | |
5260 | "RTN","DGM XHL7",270, 0) | |
5261 | Q | |
5262 | "RTN","DGM XHL7",271, 0) | |
5263 | BLDPID11(S EG,PERMADD R,CONFADDR ,TEMPADDR, FIELD) ; B uilds pati ent addres ses | |
5264 | "RTN","DGM XHL7",272, 0) | |
5265 | ; SEG - Seg o utput | |
5266 | "RTN","DGM XHL7",273, 0) | |
5267 | ; PERMAD DR - Perma nent addre ss | |
5268 | "RTN","DGM XHL7",274, 0) | |
5269 | ; CONFAD DR - Confi dential ad dress | |
5270 | "RTN","DGM XHL7",275, 0) | |
5271 | ; TEMPAD DR - Temp address | |
5272 | "RTN","DGM XHL7",276, 0) | |
5273 | ; FIELD - Field Index | |
5274 | "RTN","DGM XHL7",277, 0) | |
5275 | ; | |
5276 | "RTN","DGM XHL7",278, 0) | |
5277 | N REP | |
5278 | "RTN","DGM XHL7",279, 0) | |
5279 | S REP=1 | |
5280 | "RTN","DGM XHL7",280, 0) | |
5281 | D SETAD^H LOAPI4(.SE G,.PERMADD R,FIELD,"" ,REP) | |
5282 | "RTN","DGM XHL7",281, 0) | |
5283 | S REP=2 | |
5284 | "RTN","DGM XHL7",282, 0) | |
5285 | D SETAD^H LOAPI4(.SE G,.TEMPADD R,FIELD,"" ,REP) | |
5286 | "RTN","DGM XHL7",283, 0) | |
5287 | D SET^HLO API(.SEG,$ G(TEMPADDR ("STARTDT" )),FIELD,1 3,"",REP) | |
5288 | "RTN","DGM XHL7",284, 0) | |
5289 | D SET^HLO API(.SEG,$ G(TEMPADDR ("ENDDT")) ,FIELD,14, "",REP) | |
5290 | "RTN","DGM XHL7",285, 0) | |
5291 | S REP=3 | |
5292 | "RTN","DGM XHL7",286, 0) | |
5293 | D SETAD^H LOAPI4(.SE G,.CONFADD R,FIELD,"" ,REP) | |
5294 | "RTN","DGM XHL7",287, 0) | |
5295 | D SET^HLO API(.SEG,$ G(CONFADDR ("STARTDT" )),FIELD,1 3,"",REP) | |
5296 | "RTN","DGM XHL7",288, 0) | |
5297 | D SET^HLO API(.SEG,$ G(CONFADDR ("ENDDT")) ,FIELD,14, "",REP) | |
5298 | "RTN","DGM XHL7",289, 0) | |
5299 | Q | |
5300 | "RTN","DGM XHL7",290, 0) | |
5301 | BLDPID13(S EG,HPHONE, HPEXT,EMAI L,TPHONE,T PEXT,CPHON E,CPEXT,MP HONE,FIELD ) ; Builds patient t elecoms | |
5302 | "RTN","DGM XHL7",291, 0) | |
5303 | ; SEG - Seg out put | |
5304 | "RTN","DGM XHL7",292, 0) | |
5305 | ; HPHONE - Home | |
5306 | "RTN","DGM XHL7",293, 0) | |
5307 | ; HPEXT - Ext | |
5308 | "RTN","DGM XHL7",294, 0) | |
5309 | ; EMAIL - Email | |
5310 | "RTN","DGM XHL7",295, 0) | |
5311 | ; TPHONE - Tempora ry | |
5312 | "RTN","DGM XHL7",296, 0) | |
5313 | ; TPEXT - Ext | |
5314 | "RTN","DGM XHL7",297, 0) | |
5315 | ; CPHONE - Confide ntial | |
5316 | "RTN","DGM XHL7",298, 0) | |
5317 | ; CPEXT - Ext | |
5318 | "RTN","DGM XHL7",299, 0) | |
5319 | ; MPHONE - Mobile | |
5320 | "RTN","DGM XHL7",300, 0) | |
5321 | ; FIELD - Field I ndex | |
5322 | "RTN","DGM XHL7",301, 0) | |
5323 | ; | |
5324 | "RTN","DGM XHL7",302, 0) | |
5325 | N REP | |
5326 | "RTN","DGM XHL7",303, 0) | |
5327 | S REP=1 | |
5328 | "RTN","DGM XHL7",304, 0) | |
5329 | D SET^HLO API(.SEG,H PHONE,FIEL D,1,"",REP ) | |
5330 | "RTN","DGM XHL7",305, 0) | |
5331 | D SET^HLO API(.SEG," P",FIELD,2 ,"",REP) | |
5332 | "RTN","DGM XHL7",306, 0) | |
5333 | D SET^HLO API(.SEG,H PEXT,FIELD ,8,"",REP) | |
5334 | "RTN","DGM XHL7",307, 0) | |
5335 | D SET^HLO API(.SEG,E MAIL,FIELD ,4,"",REP) | |
5336 | "RTN","DGM XHL7",308, 0) | |
5337 | S REP=2 | |
5338 | "RTN","DGM XHL7",309, 0) | |
5339 | D SET^HLO API(.SEG,T PHONE,FIEL D,1,"",REP ) | |
5340 | "RTN","DGM XHL7",310, 0) | |
5341 | D SET^HLO API(.SEG," T",FIELD,2 ,"",REP) | |
5342 | "RTN","DGM XHL7",311, 0) | |
5343 | D SET^HLO API(.SEG,T PEXT,FIELD ,8,"",REP) | |
5344 | "RTN","DGM XHL7",312, 0) | |
5345 | S REP=3 | |
5346 | "RTN","DGM XHL7",313, 0) | |
5347 | D SET^HLO API(.SEG,C PHONE,FIEL D,1,"",REP ) | |
5348 | "RTN","DGM XHL7",314, 0) | |
5349 | D SET^HLO API(.SEG," C",FIELD,2 ,"",REP) | |
5350 | "RTN","DGM XHL7",315, 0) | |
5351 | D SET^HLO API(.SEG,T PEXT,FIELD ,8,"",REP) | |
5352 | "RTN","DGM XHL7",316, 0) | |
5353 | S REP=4 | |
5354 | "RTN","DGM XHL7",317, 0) | |
5355 | D SET^HLO API(.SEG,M PHONE,FIEL D,1,"",REP ) | |
5356 | "RTN","DGM XHL7",318, 0) | |
5357 | D SET^HLO API(.SEG," P",FIELD,2 ,"",REP) | |
5358 | "RTN","DGM XHL7",319, 0) | |
5359 | D SET^HLO API(.SEG," M",FIELD,3 ,"",REP) | |
5360 | "RTN","DGM XHL7",320, 0) | |
5361 | Q | |
5362 | "RTN","DGM XHL7",321, 0) | |
5363 | BLDPID14(S EG,WPHONE, WPEXT,FIEL D) ; Build s patient work phone | |
5364 | "RTN","DGM XHL7",322, 0) | |
5365 | ; SEG - Seg out put | |
5366 | "RTN","DGM XHL7",323, 0) | |
5367 | ; WPHONE - Work ph one | |
5368 | "RTN","DGM XHL7",324, 0) | |
5369 | ; WPEXT - Work ph one extens ion | |
5370 | "RTN","DGM XHL7",325, 0) | |
5371 | ; FIELD - Field I ndex | |
5372 | "RTN","DGM XHL7",326, 0) | |
5373 | ; | |
5374 | "RTN","DGM XHL7",327, 0) | |
5375 | D SET^HLO API(.SEG,W PHONE,FIEL D,1) | |
5376 | "RTN","DGM XHL7",328, 0) | |
5377 | D SET^HLO API(.SEG,W PEXT,FIELD ,8) | |
5378 | "RTN","DGM XHL7",329, 0) | |
5379 | Q | |
5380 | "RTN","DGM XHL7",330, 0) | |
5381 | BLDZEL(DFN ,SEG,MSG,O NLYPRIM) ; Builds el igibility informatio n in ZEL s egments. | |
5382 | "RTN","DGM XHL7",331, 0) | |
5383 | ; These s egments ca n repeat, but the fi rst repeti tion | |
5384 | "RTN","DGM XHL7",332, 0) | |
5385 | ; contain s the prim ary eligib ility. | |
5386 | "RTN","DGM XHL7",333, 0) | |
5387 | ; DFN - Pat I D (IEN) - Used by EL IG^VADPT | |
5388 | "RTN","DGM XHL7",334, 0) | |
5389 | ; SEG - Seg o utput | |
5390 | "RTN","DGM XHL7",335, 0) | |
5391 | ; MSG - Messa ge output | |
5392 | "RTN","DGM XHL7",336, 0) | |
5393 | ; ONLYPR IM - Set t o 1 to onl y build th e primary eligibilit y | |
5394 | "RTN","DGM XHL7",337, 0) | |
5395 | ; | |
5396 | "RTN","DGM XHL7",338, 0) | |
5397 | ; Get Eli gibility i nformation | |
5398 | "RTN","DGM XHL7",339, 0) | |
5399 | N PECODE, PESTAT,SEQ ,LINE,VAHO W,VAEL,VAL ,COMBSTAT, COMBDATE,M ASSESC,ESC CHAR | |
5400 | "RTN","DGM XHL7",340, 0) | |
5401 | S (PECODE ,PESTAT,SE Q,LINE,VAH OW,VAEL,VA L,COMBSTAT ,COMBDATE, MASSESC,ES CCHAR)="" | |
5402 | "RTN","DGM XHL7",341, 0) | |
5403 | S SEQ=1,L INE=0,VAHO W=0 | |
5404 | "RTN","DGM XHL7",342, 0) | |
5405 | S MASSESC =$$GET^XPA R("SYS","M ASS ASCII CHARACTER SWITCH") | |
5406 | "RTN","DGM XHL7",343, 0) | |
5407 | S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII CHAR REPLA CEMENT") | |
5408 | "RTN","DGM XHL7",344, 0) | |
5409 | D ELIG^VA DPT | |
5410 | "RTN","DGM XHL7",345, 0) | |
5411 | D GETCOMB (DFN,.COMB STAT,.COMB DATE) | |
5412 | "RTN","DGM XHL7",346, 0) | |
5413 | ; | |
5414 | "RTN","DGM XHL7",347, 0) | |
5415 | ; Primary Eligibili ty | |
5416 | "RTN","DGM XHL7",348, 0) | |
5417 | S PECODE= $P($G(VAEL (1)),"^",2 ) | |
5418 | "RTN","DGM XHL7",349, 0) | |
5419 | S PESTAT= $P($G(VAEL (8)),"^",2 ) | |
5420 | "RTN","DGM XHL7",350, 0) | |
5421 | D ZEL(SEQ ,.SEG,PECO DE,PESTAT, $G(COMBSTA T),$G(COMB DATE)) | |
5422 | "RTN","DGM XHL7",351, 0) | |
5423 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
5424 | "RTN","DGM XHL7",352, 0) | |
5425 | I '$$ADDS EG^HLOAPI( .MSG,.SEG) Q | |
5426 | "RTN","DGM XHL7",353, 0) | |
5427 | I $G(ONLY PRIM)=1 Q | |
5428 | "RTN","DGM XHL7",354, 0) | |
5429 | ; | |
5430 | "RTN","DGM XHL7",355, 0) | |
5431 | ; Seconda ry Eligibi lity | |
5432 | "RTN","DGM XHL7",356, 0) | |
5433 | F S LINE =$O(VAEL(1 ,LINE)) Q: (LINE="") D | |
5434 | "RTN","DGM XHL7",357, 0) | |
5435 | . S VAL=$ P($G(VAEL( 1,LINE))," ^",2) | |
5436 | "RTN","DGM XHL7",358, 0) | |
5437 | . I VAL=P ECODE Q ; Do not bu ild primar y again | |
5438 | "RTN","DGM XHL7",359, 0) | |
5439 | . S SEQ=S EQ+1 | |
5440 | "RTN","DGM XHL7",360, 0) | |
5441 | . D ZEL(S EQ,.SEG,$G (VAL),"") | |
5442 | "RTN","DGM XHL7",361, 0) | |
5443 | . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR) | |
5444 | "RTN","DGM XHL7",362, 0) | |
5445 | . I '$$AD DSEG^HLOAP I(.MSG,.SE G) Q | |
5446 | "RTN","DGM XHL7",363, 0) | |
5447 | Q | |
5448 | "RTN","DGM XHL7",364, 0) | |
5449 | GETALIAS(D FN) ; Get Patient Al iases | |
5450 | "RTN","DGM XHL7",365, 0) | |
5451 | ; DFN - Pat ID (IE N) | |
5452 | "RTN","DGM XHL7",366, 0) | |
5453 | ; LIST - Output co ntains pat ient alias es in "^" delimited string. | |
5454 | "RTN","DGM XHL7",367, 0) | |
5455 | ; | |
5456 | "RTN","DGM XHL7",368, 0) | |
5457 | N LINE,LI ST,NAME | |
5458 | "RTN","DGM XHL7",369, 0) | |
5459 | S (LINE,L IST,NAME)= "" | |
5460 | "RTN","DGM XHL7",370, 0) | |
5461 | S LINE=0, LIST="" | |
5462 | "RTN","DGM XHL7",371, 0) | |
5463 | ; | |
5464 | "RTN","DGM XHL7",372, 0) | |
5465 | ; Get the patient a liases | |
5466 | "RTN","DGM XHL7",373, 0) | |
5467 | D GETS^DI Q(2,DFN,"1 *","E","AL IAS") | |
5468 | "RTN","DGM XHL7",374, 0) | |
5469 | ; | |
5470 | "RTN","DGM XHL7",375, 0) | |
5471 | ; Loop th rough and build retu rn string | |
5472 | "RTN","DGM XHL7",376, 0) | |
5473 | F S LINE =$O(ALIAS( 2.01,LINE) ) Q:LINE=" " D | |
5474 | "RTN","DGM XHL7",377, 0) | |
5475 | . S NAME= $G(ALIAS(2 .01,LINE,. 01,"E")) | |
5476 | "RTN","DGM XHL7",378, 0) | |
5477 | . I NAME= "" Q | |
5478 | "RTN","DGM XHL7",379, 0) | |
5479 | . I LIST= "" S LIST= NAME | |
5480 | "RTN","DGM XHL7",380, 0) | |
5481 | . E S LI ST=LIST_"^ "_NAME | |
5482 | "RTN","DGM XHL7",381, 0) | |
5483 | I LIST="" S LIST="N ONE" | |
5484 | "RTN","DGM XHL7",382, 0) | |
5485 | Q LIST | |
5486 | "RTN","DGM XHL7",383, 0) | |
5487 | GETDEMOG(D FN,NAME,DO B,SSN,SEX, ICN,DOD,AL IAS,DIND) ; Get Pati ent Demogr aphics | |
5488 | "RTN","DGM XHL7",384, 0) | |
5489 | ; DFN - Pat ID (I EN) | |
5490 | "RTN","DGM XHL7",385, 0) | |
5491 | ; NAME - Name | |
5492 | "RTN","DGM XHL7",386, 0) | |
5493 | ; DOB - Date of b irth | |
5494 | "RTN","DGM XHL7",387, 0) | |
5495 | ; SSN - SSN | |
5496 | "RTN","DGM XHL7",388, 0) | |
5497 | ; SEX - Sex | |
5498 | "RTN","DGM XHL7",389, 0) | |
5499 | ; ICN - Integrati on Control Number (I CN) | |
5500 | "RTN","DGM XHL7",390, 0) | |
5501 | ; DOD - Date of d eath | |
5502 | "RTN","DGM XHL7",391, 0) | |
5503 | ; ALIAS - Pat Alia ses | |
5504 | "RTN","DGM XHL7",392, 0) | |
5505 | ; DIND - Death Ind icator | |
5506 | "RTN","DGM XHL7",393, 0) | |
5507 | ; | |
5508 | "RTN","DGM XHL7",394, 0) | |
5509 | N VAHOW,V ADM | |
5510 | "RTN","DGM XHL7",395, 0) | |
5511 | S VAHOW=1 | |
5512 | "RTN","DGM XHL7",396, 0) | |
5513 | D DEM^VAD PT | |
5514 | "RTN","DGM XHL7",397, 0) | |
5515 | D GETNAME (.NAME,DFN ,2,.01) | |
5516 | "RTN","DGM XHL7",398, 0) | |
5517 | S ALIAS=$ $GETALIAS( DFN) | |
5518 | "RTN","DGM XHL7",399, 0) | |
5519 | S DOB=$P( $G(VADM("D B")),"^") | |
5520 | "RTN","DGM XHL7",400, 0) | |
5521 | S SSN=$P( $G(VADM("S S")),"^") | |
5522 | "RTN","DGM XHL7",401, 0) | |
5523 | S SEX=$P( $G(VADM("S X")),"^") | |
5524 | "RTN","DGM XHL7",402, 0) | |
5525 | S ICN=$$G ETICN^MPIF 001(DFN) | |
5526 | "RTN","DGM XHL7",403, 0) | |
5527 | S DOD=$P( $G(VADM("E X")),"^") | |
5528 | "RTN","DGM XHL7",404, 0) | |
5529 | S DIND=$S ($G(DOD)'= "":"Y",1:" N") | |
5530 | "RTN","DGM XHL7",405, 0) | |
5531 | Q | |
5532 | "RTN","DGM XHL7",406, 0) | |
5533 | GETNAME(NA ME,IEN,FIL E,FIELD) ; Get Patie nt Name | |
5534 | "RTN","DGM XHL7",407, 0) | |
5535 | ; NAME - Return ar ray | |
5536 | "RTN","DGM XHL7",408, 0) | |
5537 | ; IEN - Pat ID | |
5538 | "RTN","DGM XHL7",409, 0) | |
5539 | ; FILE - Vista fil e | |
5540 | "RTN","DGM XHL7",410, 0) | |
5541 | ; FIELD - Name fiel d | |
5542 | "RTN","DGM XHL7",411, 0) | |
5543 | ; | |
5544 | "RTN","DGM XHL7",412, 0) | |
5545 | I ($G(IEN )="")!($G( FILE)="")! ($G(FIELD) ="") Q | |
5546 | "RTN","DGM XHL7",413, 0) | |
5547 | K NAME | |
5548 | "RTN","DGM XHL7",414, 0) | |
5549 | N PARAMS, NAMESTR | |
5550 | "RTN","DGM XHL7",415, 0) | |
5551 | S PARAMS( "FILE")=FI LE | |
5552 | "RTN","DGM XHL7",416, 0) | |
5553 | S PARAMS( "FIELD")=F IELD | |
5554 | "RTN","DGM XHL7",417, 0) | |
5555 | S PARAMS( "IENS")=IE N | |
5556 | "RTN","DGM XHL7",418, 0) | |
5557 | S NAMESTR =$$NAMEFMT ^XLFNAME1( .PARAMS,"H ","PD","^" ) | |
5558 | "RTN","DGM XHL7",419, 0) | |
5559 | I $G(NAME STR)="" Q | |
5560 | "RTN","DGM XHL7",420, 0) | |
5561 | ; | |
5562 | "RTN","DGM XHL7",421, 0) | |
5563 | S NAME("F AMILY")=$P (NAMESTR," ^",1) | |
5564 | "RTN","DGM XHL7",422, 0) | |
5565 | S NAME("G IVEN")=$P( NAMESTR,"^ ",2) | |
5566 | "RTN","DGM XHL7",423, 0) | |
5567 | S NAME("S ECOND")=$P (NAMESTR," ^",3) | |
5568 | "RTN","DGM XHL7",424, 0) | |
5569 | S NAME("S UFFIX")=$P (NAMESTR," ^",4) | |
5570 | "RTN","DGM XHL7",425, 0) | |
5571 | S NAME("P REFIX")=$P (NAMESTR," ^",5) | |
5572 | "RTN","DGM XHL7",426, 0) | |
5573 | S NAME("D EGREE")=$P (NAMESTR," ^",6) | |
5574 | "RTN","DGM XHL7",427, 0) | |
5575 | Q | |
5576 | "RTN","DGM XHL7",428, 0) | |
5577 | GETADDR(DF N,PADDR,CA DDR,TADDR) ; Get Pat ient Addre sses | |
5578 | "RTN","DGM XHL7",429, 0) | |
5579 | ; DFN - Pat ID (IEN) | |
5580 | "RTN","DGM XHL7",430, 0) | |
5581 | ; PADDR - Perman ent addres s | |
5582 | "RTN","DGM XHL7",431, 0) | |
5583 | ; CADDR - Confid ential add ress | |
5584 | "RTN","DGM XHL7",432, 0) | |
5585 | ; TADDR - Tempor ary addres s | |
5586 | "RTN","DGM XHL7",433, 0) | |
5587 | ; | |
5588 | "RTN","DGM XHL7",434, 0) | |
5589 | N TADSTDT ,TADENDT,T ADFLAG,CAD STDT,CADEN DT,CADFLAG | |
5590 | "RTN","DGM XHL7",435, 0) | |
5591 | S DFN=$G( DFN) | |
5592 | "RTN","DGM XHL7",436, 0) | |
5593 | I DFN="" Q | |
5594 | "RTN","DGM XHL7",437, 0) | |
5595 | I '$D(^DP T(DFN)) Q | |
5596 | "RTN","DGM XHL7",438, 0) | |
5597 | ; | |
5598 | "RTN","DGM XHL7",439, 0) | |
5599 | D ; Per manent Add ress | |
5600 | "RTN","DGM XHL7",440, 0) | |
5601 | . S PADDR ("TYPE")=" P" | |
5602 | "RTN","DGM XHL7",441, 0) | |
5603 | . I $$GET 1^DIQ(2,DF N,.121)'=" " D SETNUL L(.PADDR) Q ; Bad address | |
5604 | "RTN","DGM XHL7",442, 0) | |
5605 | . S PADDR ("STREET1" )=$$GET1^D IQ(2,DFN,. 111) | |
5606 | "RTN","DGM XHL7",443, 0) | |
5607 | . S PADDR ("STREET2" )=$$GET1^D IQ(2,DFN,. 112) | |
5608 | "RTN","DGM XHL7",444, 0) | |
5609 | . S PADDR ("STREET3" )=$$GET1^D IQ(2,DFN,. 113) | |
5610 | "RTN","DGM XHL7",445, 0) | |
5611 | . S PADDR ("CITY")=$ $GET1^DIQ( 2,DFN,.114 ) | |
5612 | "RTN","DGM XHL7",446, 0) | |
5613 | . S PADDR ("STATE")= $$GET1^DIQ (5,$$GET1^ DIQ(2,DFN, .115,"I"), 1) | |
5614 | "RTN","DGM XHL7",447, 0) | |
5615 | . S PADDR ("ZIP")=$$ GET1^DIQ(2 ,DFN,.1112 ) | |
5616 | "RTN","DGM XHL7",448, 0) | |
5617 | . D SETNU LL(.PADDR) | |
5618 | "RTN","DGM XHL7",449, 0) | |
5619 | ; | |
5620 | "RTN","DGM XHL7",450, 0) | |
5621 | D ; Tem porary Add ress | |
5622 | "RTN","DGM XHL7",451, 0) | |
5623 | . S TADDR ("TYPE")=" T" | |
5624 | "RTN","DGM XHL7",452, 0) | |
5625 | . S TADST DT=$$GET1^ DIQ(2,DFN, .1217,"I") | |
5626 | "RTN","DGM XHL7",453, 0) | |
5627 | . S TADEN DT=$$GET1^ DIQ(2,DFN, .1218,"I") | |
5628 | "RTN","DGM XHL7",454, 0) | |
5629 | . S TADFL AG=$$GET1^ DIQ(2,DFN, .12105,"I" ) | |
5630 | "RTN","DGM XHL7",455, 0) | |
5631 | . S TADST DT=$G(TADS TDT),TADEN DT=$G(TADE NDT),TADFL AG=$G(TADF LAG) | |
5632 | "RTN","DGM XHL7",456, 0) | |
5633 | . S TADDR ("ACTIVE") =$$ISACTIV E(TADFLAG, TADSTDT,TA DENDT) | |
5634 | "RTN","DGM XHL7",457, 0) | |
5635 | . I TADDR ("ACTIVE") =0 D SETNU LL(.TADDR) Q | |
5636 | "RTN","DGM XHL7",458, 0) | |
5637 | . ; | |
5638 | "RTN","DGM XHL7",459, 0) | |
5639 | . S TADDR ("STREET1" )=$$GET1^D IQ(2,DFN,. 1211) | |
5640 | "RTN","DGM XHL7",460, 0) | |
5641 | . S TADDR ("STREET2" )=$$GET1^D IQ(2,DFN,. 1212) | |
5642 | "RTN","DGM XHL7",461, 0) | |
5643 | . S TADDR ("STREET3" )=$$GET1^D IQ(2,DFN,. 1213) | |
5644 | "RTN","DGM XHL7",462, 0) | |
5645 | . S TADDR ("CITY")=$ $GET1^DIQ( 2,DFN,.121 4) | |
5646 | "RTN","DGM XHL7",463, 0) | |
5647 | . S TADDR ("STATE")= $$GET1^DIQ (5,$$GET1^ DIQ(2,DFN, .1215,"I") ,1) | |
5648 | "RTN","DGM XHL7",464, 0) | |
5649 | . S TADDR ("ZIP")=$$ GET1^DIQ(2 ,DFN,.1216 ) | |
5650 | "RTN","DGM XHL7",465, 0) | |
5651 | . S TADDR ("STARTDT" )=$$VA2HL7 TS^SDMXCOR E(TADSTDT) | |
5652 | "RTN","DGM XHL7",466, 0) | |
5653 | . S TADDR ("ENDDT")= $$VA2HL7TS ^SDMXCORE( TADENDT) | |
5654 | "RTN","DGM XHL7",467, 0) | |
5655 | . D SETNU LL(.TADDR) | |
5656 | "RTN","DGM XHL7",468, 0) | |
5657 | ; | |
5658 | "RTN","DGM XHL7",469, 0) | |
5659 | D ; Con fidential Address | |
5660 | "RTN","DGM XHL7",470, 0) | |
5661 | . S CADDR ("TYPE")=" C" | |
5662 | "RTN","DGM XHL7",471, 0) | |
5663 | . S CADST DT=$$GET1^ DIQ(2,DFN, .1417,"I") | |
5664 | "RTN","DGM XHL7",472, 0) | |
5665 | . S CADEN DT=$$GET1^ DIQ(2,DFN, .1418,"I") | |
5666 | "RTN","DGM XHL7",473, 0) | |
5667 | . S CADFL AG=$$GET1^ DIQ(2,DFN, .14105,"I" ) | |
5668 | "RTN","DGM XHL7",474, 0) | |
5669 | . S CADST DT=$G(CADS TDT),CADEN DT=$G(CADE NDT),CADFL AG=$G(CADF LAG) | |
5670 | "RTN","DGM XHL7",475, 0) | |
5671 | . S CADDR ("ACTIVE") =$$ISACTIV E(CADFLAG, CADSTDT,CA DENDT) | |
5672 | "RTN","DGM XHL7",476, 0) | |
5673 | . I CADDR ("ACTIVE") =0 D SETNU LL(.CADDR) Q | |
5674 | "RTN","DGM XHL7",477, 0) | |
5675 | . ; | |
5676 | "RTN","DGM XHL7",478, 0) | |
5677 | . S CADDR ("STREET1" )=$$GET1^D IQ(2,DFN,. 1411) | |
5678 | "RTN","DGM XHL7",479, 0) | |
5679 | . S CADDR ("STREET2" )=$$GET1^D IQ(2,DFN,. 1412) | |
5680 | "RTN","DGM XHL7",480, 0) | |
5681 | . S CADDR ("STREET3" )=$$GET1^D IQ(2,DFN,. 1413) | |
5682 | "RTN","DGM XHL7",481, 0) | |
5683 | . S CADDR ("CITY")=$ $GET1^DIQ( 2,DFN,.141 4) | |
5684 | "RTN","DGM XHL7",482, 0) | |
5685 | . S CADDR ("STATE")= $$GET1^DIQ (5,$$GET1^ DIQ(2,DFN, .1415,"I") ,1) | |
5686 | "RTN","DGM XHL7",483, 0) | |
5687 | . S CADDR ("ZIP")=$$ GET1^DIQ(2 ,DFN,.1416 ) | |
5688 | "RTN","DGM XHL7",484, 0) | |
5689 | . S CADDR ("STARTDT" )=$$VA2HL7 TS^SDMXCOR E(CADSTDT) | |
5690 | "RTN","DGM XHL7",485, 0) | |
5691 | . S CADDR ("ENDDT")= $$VA2HL7TS ^SDMXCORE( CADENDT) | |
5692 | "RTN","DGM XHL7",486, 0) | |
5693 | . D SETNU LL(.CADDR) | |
5694 | "RTN","DGM XHL7",487, 0) | |
5695 | Q | |
5696 | "RTN","DGM XHL7",488, 0) | |
5697 | GETTELE(DF N,HPHONE,H PEXT,WPHON E,WPEXT,TP HONE,TPEXT ,EMAIL,CPH ONE,CPEXT, MPHONE) ; Get Teleco mmunicatio n informat ion | |
5698 | "RTN","DGM XHL7",489, 0) | |
5699 | ; DFN - Pat ID (IEN) | |
5700 | "RTN","DGM XHL7",490, 0) | |
5701 | ; HPHONE - Home P hone | |
5702 | "RTN","DGM XHL7",491, 0) | |
5703 | ; HPEXT - Home P hone Exten sion | |
5704 | "RTN","DGM XHL7",492, 0) | |
5705 | ; WPHONE - Work P hone | |
5706 | "RTN","DGM XHL7",493, 0) | |
5707 | ; WPEXT - Work P hone Exten sion | |
5708 | "RTN","DGM XHL7",494, 0) | |
5709 | ; TPHONE - Temp P hone | |
5710 | "RTN","DGM XHL7",495, 0) | |
5711 | ; TPEXT - Temp P hone Exten sion | |
5712 | "RTN","DGM XHL7",496, 0) | |
5713 | ; EMAIL - Email Address | |
5714 | "RTN","DGM XHL7",497, 0) | |
5715 | ; CPHONE - Conf P hone | |
5716 | "RTN","DGM XHL7",498, 0) | |
5717 | ; CPEXT - Conf P hone Exten sion | |
5718 | "RTN","DGM XHL7",499, 0) | |
5719 | ; MPHONE - Mobile (Cell) Ph one | |
5720 | "RTN","DGM XHL7",500, 0) | |
5721 | ; | |
5722 | "RTN","DGM XHL7",501, 0) | |
5723 | N OK | |
5724 | "RTN","DGM XHL7",502, 0) | |
5725 | S HPHONE= $$GET1^DIQ (2,DFN,.13 1) | |
5726 | "RTN","DGM XHL7",503, 0) | |
5727 | S OK=$$FM TPHONE^SDM XCORE(.HPH ONE,.HPEXT ) | |
5728 | "RTN","DGM XHL7",504, 0) | |
5729 | D SET1NUL L(.HPHONE) ,SET1NULL( .HPEXT) | |
5730 | "RTN","DGM XHL7",505, 0) | |
5731 | S WPHONE= $$GET1^DIQ (2,DFN,.13 2) | |
5732 | "RTN","DGM XHL7",506, 0) | |
5733 | S OK=$$FM TPHONE^SDM XCORE(.WPH ONE,.WPEXT ) | |
5734 | "RTN","DGM XHL7",507, 0) | |
5735 | D SET1NUL L(.WPHONE) ,SET1NULL( .WPEXT) | |
5736 | "RTN","DGM XHL7",508, 0) | |
5737 | S TPHONE= $$GET1^DIQ (2,DFN,.12 19) | |
5738 | "RTN","DGM XHL7",509, 0) | |
5739 | S OK=$$FM TPHONE^SDM XCORE(.TPH ONE,.TPEXT ) | |
5740 | "RTN","DGM XHL7",510, 0) | |
5741 | D SET1NUL L(.TPHONE) ,SET1NULL( .TPEXT) | |
5742 | "RTN","DGM XHL7",511, 0) | |
5743 | S CPHONE= $$GET1^DIQ (2,DFN,.13 15) | |
5744 | "RTN","DGM XHL7",512, 0) | |
5745 | S OK=$$FM TPHONE^SDM XCORE(.CPH ONE,.CPEXT ) | |
5746 | "RTN","DGM XHL7",513, 0) | |
5747 | D SET1NUL L(.CPHONE) ,SET1NULL( .CPEXT) | |
5748 | "RTN","DGM XHL7",514, 0) | |
5749 | S EMAIL=$ $GET1^DIQ( 2,DFN,.133 ) | |
5750 | "RTN","DGM XHL7",515, 0) | |
5751 | D SET1NUL L(.EMAIL) | |
5752 | "RTN","DGM XHL7",516, 0) | |
5753 | S MPHONE= $$GET1^DIQ (2,DFN,.13 4) | |
5754 | "RTN","DGM XHL7",517, 0) | |
5755 | S OK=$$FM TPHONE^SDM XCORE(.MPH ONE,"") | |
5756 | "RTN","DGM XHL7",518, 0) | |
5757 | D SET1NUL L(.MPHONE) | |
5758 | "RTN","DGM XHL7",519, 0) | |
5759 | Q | |
5760 | "RTN","DGM XHL7",520, 0) | |
5761 | GETEINFO(D FN,ENAME,E REL,EADDR, EPHONE) ; Gets the p atient's e mergency c ontact inf ormation | |
5762 | "RTN","DGM XHL7",521, 0) | |
5763 | ; DFN - Pat ID (IEN) | |
5764 | "RTN","DGM XHL7",522, 0) | |
5765 | ; ENAME - Contact name | |
5766 | "RTN","DGM XHL7",523, 0) | |
5767 | ; EREL - Contact relation to patient | |
5768 | "RTN","DGM XHL7",524, 0) | |
5769 | ; EADDR - Contact address | |
5770 | "RTN","DGM XHL7",525, 0) | |
5771 | ; EPHONE - Contact phone num ber | |
5772 | "RTN","DGM XHL7",526, 0) | |
5773 | ; | |
5774 | "RTN","DGM XHL7",527, 0) | |
5775 | N STATE,E PEXT,OK | |
5776 | "RTN","DGM XHL7",528, 0) | |
5777 | S (STATE, EPEXT,OK)= "" | |
5778 | "RTN","DGM XHL7",529, 0) | |
5779 | D GETNAME (.ENAME,DF N,2,.331) | |
5780 | "RTN","DGM XHL7",530, 0) | |
5781 | S EREL=$$ GET1^DIQ(2 ,DFN,.332) | |
5782 | "RTN","DGM XHL7",531, 0) | |
5783 | S EPHONE= $$GET1^DIQ (2,DFN,.33 9) | |
5784 | "RTN","DGM XHL7",532, 0) | |
5785 | S OK=$$FM TPHONE^SDM XCORE(.EPH ONE,.EPEXT ) | |
5786 | "RTN","DGM XHL7",533, 0) | |
5787 | I $G(EPEX T)'="" S E PHONE=$G(E PHONE)_"x" _$G(EPEXT) | |
5788 | "RTN","DGM XHL7",534, 0) | |
5789 | ; | |
5790 | "RTN","DGM XHL7",535, 0) | |
5791 | ; Address | |
5792 | "RTN","DGM XHL7",536, 0) | |
5793 | S EADDR(" STREET1")= $$GET1^DIQ (2,DFN,.33 3) | |
5794 | "RTN","DGM XHL7",537, 0) | |
5795 | S EADDR(" STREET2")= $$GET1^DIQ (2,DFN,.33 4) | |
5796 | "RTN","DGM XHL7",538, 0) | |
5797 | S EADDR(" STREET3")= $$GET1^DIQ (2,DFN,.33 5) | |
5798 | "RTN","DGM XHL7",539, 0) | |
5799 | S EADDR(" CITY")=$$G ET1^DIQ(2, DFN,.336) | |
5800 | "RTN","DGM XHL7",540, 0) | |
5801 | S STATE=$ P($G(^DPT( DFN,.33)), "^",7) | |
5802 | "RTN","DGM XHL7",541, 0) | |
5803 | I STATE'= "" S EADDR ("STATE")= $P($G(^DIC (5,STATE,0 )),"^",2) | |
5804 | "RTN","DGM XHL7",542, 0) | |
5805 | S EADDR(" ZIP")=$$GE T1^DIQ(2,D FN,.338) | |
5806 | "RTN","DGM XHL7",543, 0) | |
5807 | Q | |
5808 | "RTN","DGM XHL7",544, 0) | |
5809 | GETSERVC(D FN,ISSERCO N,SERCONPC ,DENTCLAS) ; Gets th e patient' s service connected informatio n | |
5810 | "RTN","DGM XHL7",545, 0) | |
5811 | ; DFN - Pat I D (IEN) | |
5812 | "RTN","DGM XHL7",546, 0) | |
5813 | ; ISSERC ON - Servi ce connect ed? | |
5814 | "RTN","DGM XHL7",547, 0) | |
5815 | ; SERCON PC - Perce ntage | |
5816 | "RTN","DGM XHL7",548, 0) | |
5817 | ; DENTCL AS - Patie nt dental class | |
5818 | "RTN","DGM XHL7",549, 0) | |
5819 | ; | |
5820 | "RTN","DGM XHL7",550, 0) | |
5821 | N VAHOW,V AEL | |
5822 | "RTN","DGM XHL7",551, 0) | |
5823 | S VAHOW=0 D ELIG^VA DPT | |
5824 | "RTN","DGM XHL7",552, 0) | |
5825 | S ISSERCO N=$S($P($G (VAEL(3)), "^",1)=1:" Y",1:"N") | |
5826 | "RTN","DGM XHL7",553, 0) | |
5827 | S SERCONP C=$P($G(VA EL(3)),"^" ,2) | |
5828 | "RTN","DGM XHL7",554, 0) | |
5829 | S DENTCLA S=$$GET1^D IQ(2,DFN,2 20) | |
5830 | "RTN","DGM XHL7",555, 0) | |
5831 | Q | |
5832 | "RTN","DGM XHL7",556, 0) | |
5833 | GETENR(ENR ,ENSTATUS, ENPRIORI,E NSUBGRP) ; Gets the enrollment informati on | |
5834 | "RTN","DGM XHL7",557, 0) | |
5835 | ; ENR - Enrol lment ID ( IEN) | |
5836 | "RTN","DGM XHL7",558, 0) | |
5837 | ; ENSTAT US - Statu s | |
5838 | "RTN","DGM XHL7",559, 0) | |
5839 | ; ENPRIO RI - Prior ity | |
5840 | "RTN","DGM XHL7",560, 0) | |
5841 | ; ENSUBG RP - Subgr oup | |
5842 | "RTN","DGM XHL7",561, 0) | |
5843 | ; | |
5844 | "RTN","DGM XHL7",562, 0) | |
5845 | I $G(ENR) ="" Q | |
5846 | "RTN","DGM XHL7",563, 0) | |
5847 | S ENSTATU S=$$GET1^D IQ(27.11,E NR,.04) | |
5848 | "RTN","DGM XHL7",564, 0) | |
5849 | S ENPRIOR I=$$GET1^D IQ(27.11,E NR,.07) | |
5850 | "RTN","DGM XHL7",565, 0) | |
5851 | S ENSUBGR P=$$GET1^D IQ(27.11,E NR,.12) | |
5852 | "RTN","DGM XHL7",566, 0) | |
5853 | Q | |
5854 | "RTN","DGM XHL7",567, 0) | |
5855 | GETCOMB(DF N,COMBSTAT ,COMBDATE) ; Gets th e combat s ervice eli gibility i nformation | |
5856 | "RTN","DGM XHL7",568, 0) | |
5857 | ; DFN - Pat I D (IEN) | |
5858 | "RTN","DGM XHL7",569, 0) | |
5859 | ; COMBST AT - Comba t service indicated? | |
5860 | "RTN","DGM XHL7",570, 0) | |
5861 | ; COMBDA TE - Comba t veteran end date | |
5862 | "RTN","DGM XHL7",571, 0) | |
5863 | ; | |
5864 | "RTN","DGM XHL7",572, 0) | |
5865 | I $G(DFN) ="" Q | |
5866 | "RTN","DGM XHL7",573, 0) | |
5867 | S COMBSTA T=$$GET1^D IQ(2,DFN,. 5291) | |
5868 | "RTN","DGM XHL7",574, 0) | |
5869 | S COMBDAT E=$$VA2HL7 TS^SDMXCOR E($$GET1^D IQ(2,DFN,. 5295,"I")) | |
5870 | "RTN","DGM XHL7",575, 0) | |
5871 | Q | |
5872 | "RTN","DGM XHL7",576, 0) | |
5873 | HASADDR(AD DR) ; Chec ks nodes o f an addre ss array f or data. | |
5874 | "RTN","DGM XHL7",577, 0) | |
5875 | ; ADDR - Address i n standard array str ucture | |
5876 | "RTN","DGM XHL7",578, 0) | |
5877 | ; | |
5878 | "RTN","DGM XHL7",579, 0) | |
5879 | I $G(ADDR ("STREET1" ))'="" Q 1 | |
5880 | "RTN","DGM XHL7",580, 0) | |
5881 | I $G(ADDR ("STREET2" ))'="" Q 1 | |
5882 | "RTN","DGM XHL7",581, 0) | |
5883 | I $G(ADDR ("STREET3" ))'="" Q 1 | |
5884 | "RTN","DGM XHL7",582, 0) | |
5885 | I $G(ADDR ("CITY"))' ="" Q 1 | |
5886 | "RTN","DGM XHL7",583, 0) | |
5887 | I $G(ADDR ("ZIP"))'= "" Q 1 | |
5888 | "RTN","DGM XHL7",584, 0) | |
5889 | I $G(ADDR ("STATE")) '="" Q 1 | |
5890 | "RTN","DGM XHL7",585, 0) | |
5891 | Q 0 | |
5892 | "RTN","DGM XHL7",586, 0) | |
5893 | ISACTIVE(F LAG,STDT,E NDT) ; Det ermine if an address is active | |
5894 | "RTN","DGM XHL7",587, 0) | |
5895 | ; FLAG - Is Activ e? | |
5896 | "RTN","DGM XHL7",588, 0) | |
5897 | ; STDT - Start Da te | |
5898 | "RTN","DGM XHL7",589, 0) | |
5899 | ; ENDT - End Date | |
5900 | "RTN","DGM XHL7",590, 0) | |
5901 | ; | |
5902 | "RTN","DGM XHL7",591, 0) | |
5903 | I FLAG="N " Q 0 | |
5904 | "RTN","DGM XHL7",592, 0) | |
5905 | I STDT="" Q 0 | |
5906 | "RTN","DGM XHL7",593, 0) | |
5907 | I STDT>DT Q 0 | |
5908 | "RTN","DGM XHL7",594, 0) | |
5909 | I ENDT="" Q 1 | |
5910 | "RTN","DGM XHL7",595, 0) | |
5911 | I ENDT<DT Q 0 | |
5912 | "RTN","DGM XHL7",596, 0) | |
5913 | Q 1 | |
5914 | "RTN","DGM XHL7",597, 0) | |
5915 | SETXCN(SEG ,USERID,FI ELD) ; Set s an XCN f ield in an HLO messa ge | |
5916 | "RTN","DGM XHL7",598, 0) | |
5917 | ; SEG - HLO Seg | |
5918 | "RTN","DGM XHL7",599, 0) | |
5919 | ; USERID - Pat I D (IEN) | |
5920 | "RTN","DGM XHL7",600, 0) | |
5921 | ; FIELD - Field nu mber | |
5922 | "RTN","DGM XHL7",601, 0) | |
5923 | ; | |
5924 | "RTN","DGM XHL7",602, 0) | |
5925 | N NAME | |
5926 | "RTN","DGM XHL7",603, 0) | |
5927 | S NAME=$$ GET1^DIQ(2 00,USERID, .01) | |
5928 | "RTN","DGM XHL7",604, 0) | |
5929 | D STDNAME ^XLFNAME(. NAME,"C") | |
5930 | "RTN","DGM XHL7",605, 0) | |
5931 | D SET^HLO API(.SEG,U SERID,FIEL D,1) | |
5932 | "RTN","DGM XHL7",606, 0) | |
5933 | D SET^HLO API(.SEG,$ G(NAME("FA MILY")),FI ELD,2) | |
5934 | "RTN","DGM XHL7",607, 0) | |
5935 | D SET^HLO API(.SEG,$ G(NAME("GI VEN")),FIE LD,3) | |
5936 | "RTN","DGM XHL7",608, 0) | |
5937 | D SET^HLO API(.SEG,$ G(NAME("SE COND")),FI ELD,4) | |
5938 | "RTN","DGM XHL7",609, 0) | |
5939 | D SET^HLO API(.SEG,$ G(NAME("SU FFIX")),FI ELD,5) | |
5940 | "RTN","DGM XHL7",610, 0) | |
5941 | D SET^HLO API(.SEG,$ G(NAME("PR EFIX")),FI ELD,6) | |
5942 | "RTN","DGM XHL7",611, 0) | |
5943 | D SET^HLO API(.SEG,$ G(NAME("DE GREE")),FI ELD,7) | |
5944 | "RTN","DGM XHL7",612, 0) | |
5945 | Q | |
5946 | "RTN","DGM XHL7",613, 0) | |
5947 | SETNULL(AR Y) ; Sets an array to null va lue | |
5948 | "RTN","DGM XHL7",614, 0) | |
5949 | ; ARY - Address ar ray | |
5950 | "RTN","DGM XHL7",615, 0) | |
5951 | ; | |
5952 | "RTN","DGM XHL7",616, 0) | |
5953 | N NULL | |
5954 | "RTN","DGM XHL7",617, 0) | |
5955 | S NULL="" """" | |
5956 | "RTN","DGM XHL7",618, 0) | |
5957 | I $G(ARY( "STREET1") )="" S ARY ("STREET1" )=NULL | |
5958 | "RTN","DGM XHL7",619, 0) | |
5959 | I $G(ARY( "STREET2") )="" S ARY ("STREET2" )=NULL | |
5960 | "RTN","DGM XHL7",620, 0) | |
5961 | I $G(ARY( "STREET3") )="" S ARY ("STREET3" )=NULL | |
5962 | "RTN","DGM XHL7",621, 0) | |
5963 | I $G(ARY( "CITY"))=" " S ARY("C ITY")=NULL | |
5964 | "RTN","DGM XHL7",622, 0) | |
5965 | I $G(ARY( "STATE"))= "" S ARY(" STATE")=NU LL | |
5966 | "RTN","DGM XHL7",623, 0) | |
5967 | I $G(ARY( "ZIP"))="" S ARY("ZI P")=NULL | |
5968 | "RTN","DGM XHL7",624, 0) | |
5969 | I $G(ARY( "STARTDT") )="" S ARY ("STARTDT" )=NULL | |
5970 | "RTN","DGM XHL7",625, 0) | |
5971 | I $G(ARY( "ENDDT"))= "" S ARY(" ENDDT")=NU LL | |
5972 | "RTN","DGM XHL7",626, 0) | |
5973 | Q | |
5974 | "RTN","DGM XHL7",627, 0) | |
5975 | SET1NULL(V AR) ; Sets a variabl e to null value | |
5976 | "RTN","DGM XHL7",628, 0) | |
5977 | ; VAR - V ariable to set | |
5978 | "RTN","DGM XHL7",629, 0) | |
5979 | ; | |
5980 | "RTN","DGM XHL7",630, 0) | |
5981 | N NULL | |
5982 | "RTN","DGM XHL7",631, 0) | |
5983 | S NULL="" """" | |
5984 | "RTN","DGM XHL7",632, 0) | |
5985 | I $G(VAR) ="" S VAR= NULL | |
5986 | "RTN","DGM XHL7",633, 0) | |
5987 | Q | |
5988 | "RTN","DGM XORU") | |
5989 | 0^7^B54754 724 | |
5990 | "RTN","DGM XORU",1,0) | |
5991 | DGMXORU ; MASS/DXL - ORU Trigg er/Build C ode;10/05/ 17 ;2018-0 3-01 10:29 :20 | |
5992 | "RTN","DGM XORU",2,0) | |
5993 | ;;5.3;Reg istration; **948**;OC TOBER 05,2 017;Build 66 | |
5994 | "RTN","DGM XORU",3,0) | |
5995 | ;Per VA D IRECTIVE 6 402, this routine sh ould not b e modified . | |
5996 | "RTN","DGM XORU",4,0) | |
5997 | ; | |
5998 | "RTN","DGM XORU",5,0) | |
5999 | ; ICR# S upported R eferences | |
6000 | "RTN","DGM XORU",6,0) | |
6001 | ; $ $GETALL^DG PFAA | |
6002 | "RTN","DGM XORU",7,0) | |
6003 | ; 2056 $ $GET1^DIQ | |
6004 | "RTN","DGM XORU",8,0) | |
6005 | ; 2056 G ETS^DIQ | |
6006 | "RTN","DGM XORU",9,0) | |
6007 | ; 4716 $ $ADDSEG^HL OAPI | |
6008 | "RTN","DGM XORU",10,0 ) | |
6009 | ; 4716 $ $NEWMSG^HL OAPI | |
6010 | "RTN","DGM XORU",11,0 ) | |
6011 | ; 4717 $ $SENDONE^H LOAPI1 | |
6012 | "RTN","DGM XORU",12,0 ) | |
6013 | ; 2263 $ $GET^XPAR | |
6014 | "RTN","DGM XORU",13,0 ) | |
6015 | ; | |
6016 | "RTN","DGM XORU",14,0 ) | |
6017 | Q | |
6018 | "RTN","DGM XORU",15,0 ) | |
6019 | TRIGBAD(DF N,STATUS,S KIPCHK,THR EAD) ; Wra pper funct ion for Ba d address indicator | |
6020 | "RTN","DGM XORU",16,0 ) | |
6021 | ; DFN - VistA Inte rnal Entry Number (I EN) | |
6022 | "RTN","DGM XORU",17,0 ) | |
6023 | ; STATUS - Active or inactiv e flag | |
6024 | "RTN","DGM XORU",18,0 ) | |
6025 | ; SKIPCH K - Skip c hecking wh ether MASS is enable d | |
6026 | "RTN","DGM XORU",19,0 ) | |
6027 | ; THREAD - Thread to send me ssage to f or convers ions. | |
6028 | "RTN","DGM XORU",20,0 ) | |
6029 | ; | |
6030 | "RTN","DGM XORU",21,0 ) | |
6031 | I $G(SKIP CHK)="" S SKIPCHK=0 | |
6032 | "RTN","DGM XORU",22,0 ) | |
6033 | I ('SKIPC HK),('$$GE T^XPAR("SY S","DGMX M ASS ENABLE D")) Q | |
6034 | "RTN","DGM XORU",23,0 ) | |
6035 | I ($G(DFN )="")!($G( STATUS)="" ) Q | |
6036 | "RTN","DGM XORU",24,0 ) | |
6037 | N TRIGDAT A | |
6038 | "RTN","DGM XORU",25,0 ) | |
6039 | S TRIGDAT A("STATUS" )=STATUS | |
6040 | "RTN","DGM XORU",26,0 ) | |
6041 | D TRIGFLA G(DFN,"BAD ",.TRIGDAT A,$G(THREA D)) | |
6042 | "RTN","DGM XORU",27,0 ) | |
6043 | Q | |
6044 | "RTN","DGM XORU",28,0 ) | |
6045 | TRIGPRF(FL AGID,SKIPC HK,THREAD) ; Wrapper function for patien t record f lag | |
6046 | "RTN","DGM XORU",29,0 ) | |
6047 | ; FLAGID - Identif ier of the patient r ecord flag (Field .0 01 in File 26.13) | |
6048 | "RTN","DGM XORU",30,0 ) | |
6049 | ; SKIPCH K - Skip c hecking wh ether MASS is enable d | |
6050 | "RTN","DGM XORU",31,0 ) | |
6051 | ; THREAD - Thread to send me ssage to f or convers ions. | |
6052 | "RTN","DGM XORU",32,0 ) | |
6053 | ; | |
6054 | "RTN","DGM XORU",33,0 ) | |
6055 | I $G(SKIP CHK)="" S SKIPCHK=0 | |
6056 | "RTN","DGM XORU",34,0 ) | |
6057 | I $G(FLAG ID)="" Q | |
6058 | "RTN","DGM XORU",35,0 ) | |
6059 | I ('SKIPC HK),('$$GE T^XPAR("SY S","DGMX M ASS ENABLE D")) Q | |
6060 | "RTN","DGM XORU",36,0 ) | |
6061 | N DFN | |
6062 | "RTN","DGM XORU",37,0 ) | |
6063 | S DFN=$P( $G(^DGPF(2 6.13,FLAGI D,0)),"^", 1) ; Get the patie nt DFN | |
6064 | "RTN","DGM XORU",38,0 ) | |
6065 | I $G(DFN) ="" Q | |
6066 | "RTN","DGM XORU",39,0 ) | |
6067 | D TRIGFLA G(DFN,"PRF ","",$G(TH READ)) | |
6068 | "RTN","DGM XORU",40,0 ) | |
6069 | Q | |
6070 | "RTN","DGM XORU",41,0 ) | |
6071 | TRIGPRFH(H ISTID) ;W rapper fun ction for patient re cord flag history | |
6072 | "RTN","DGM XORU",42,0 ) | |
6073 | ; HISTID - Identif ier of the PRF ASSIG NMENT HIST ORY (File 26.14) | |
6074 | "RTN","DGM XORU",43,0 ) | |
6075 | ; | |
6076 | "RTN","DGM XORU",44,0 ) | |
6077 | I $G(HIST ID)="" Q | |
6078 | "RTN","DGM XORU",45,0 ) | |
6079 | N FLAGID | |
6080 | "RTN","DGM XORU",46,0 ) | |
6081 | S FLAGID= $$GET1^DIQ (26.14,HIS TID,.01,"I ") | |
6082 | "RTN","DGM XORU",47,0 ) | |
6083 | D TRIGPRF (FLAGID) | |
6084 | "RTN","DGM XORU",48,0 ) | |
6085 | Q | |
6086 | "RTN","DGM XORU",49,0 ) | |
6087 | TRIGSEN(DF N,STATUS,S KIPCHK,THR EAD) ; Wra pper funct ion for pa tient sens itivity fl ag | |
6088 | "RTN","DGM XORU",50,0 ) | |
6089 | ; DFN - VistA Inte rnal Entry Number (I EN) | |
6090 | "RTN","DGM XORU",51,0 ) | |
6091 | ; STATUS - Active or inactiv e flag | |
6092 | "RTN","DGM XORU",52,0 ) | |
6093 | ; SKIPCH K - Skip c hecking wh ether MASS is enable d | |
6094 | "RTN","DGM XORU",53,0 ) | |
6095 | ; THREAD - Thread to send me ssage to f or convers ions. | |
6096 | "RTN","DGM XORU",54,0 ) | |
6097 | ; | |
6098 | "RTN","DGM XORU",55,0 ) | |
6099 | I $G(SKIP CHK)="" S SKIPCHK=0 | |
6100 | "RTN","DGM XORU",56,0 ) | |
6101 | I ('SKIPC HK),('$$GE T^XPAR("SY S","DGMX M ASS ENABLE D")) Q | |
6102 | "RTN","DGM XORU",57,0 ) | |
6103 | I $G(DFN) ="" Q | |
6104 | "RTN","DGM XORU",58,0 ) | |
6105 | I $G(STAT US)="" Q | |
6106 | "RTN","DGM XORU",59,0 ) | |
6107 | N TRIGDAT A | |
6108 | "RTN","DGM XORU",60,0 ) | |
6109 | S STATUS= $S(STATUS= 1:"ACTIVE" ,STATUS=0: "INACTIVE" ,1:STATUS) | |
6110 | "RTN","DGM XORU",61,0 ) | |
6111 | S TRIGDAT A("STATUS" )=STATUS | |
6112 | "RTN","DGM XORU",62,0 ) | |
6113 | D TRIGFLA G(DFN,"SEN ",.TRIGDAT A,$G(THREA D)) | |
6114 | "RTN","DGM XORU",63,0 ) | |
6115 | Q | |
6116 | "RTN","DGM XORU",64,0 ) | |
6117 | TRIGVER(DF N,SKIPCHK, THREAD) ; Wrapper fu nction for patient d emographic s verifica tion date | |
6118 | "RTN","DGM XORU",65,0 ) | |
6119 | ; DFN - VistA Inte rnal Entry Number (I EN) | |
6120 | "RTN","DGM XORU",66,0 ) | |
6121 | ; SKIPCH K - Skip c hecking wh ether MASS is enable d | |
6122 | "RTN","DGM XORU",67,0 ) | |
6123 | ; THREAD - Thread to send me ssage to f or convers ions. | |
6124 | "RTN","DGM XORU",68,0 ) | |
6125 | ; | |
6126 | "RTN","DGM XORU",69,0 ) | |
6127 | I $G(SKIP CHK)="" S SKIPCHK=0 | |
6128 | "RTN","DGM XORU",70,0 ) | |
6129 | I ('SKIPC HK),('$$GE T^XPAR("SY S","DGMX M ASS ENABLE D")) Q | |
6130 | "RTN","DGM XORU",71,0 ) | |
6131 | I $G(DFN) ="" Q | |
6132 | "RTN","DGM XORU",72,0 ) | |
6133 | N PDFN,TR IGDATA | |
6134 | "RTN","DGM XORU",73,0 ) | |
6135 | S PDFN=$$ GET1^DIQ(4 1.41,DFN,. 01,"I") ; Get the patient D FN | |
6136 | "RTN","DGM XORU",74,0 ) | |
6137 | S TRIGDAT A("VERDFN" )=DFN | |
6138 | "RTN","DGM XORU",75,0 ) | |
6139 | D TRIGFLA G(PDFN,"VE R",.TRIGDA TA,$G(THRE AD)) | |
6140 | "RTN","DGM XORU",76,0 ) | |
6141 | Q | |
6142 | "RTN","DGM XORU",77,0 ) | |
6143 | TRIGFLAG(D FN,TYPE,TR IGDATA,THR EAD) ; Tri ggers an O RU message containin g patient flag infor mation. | |
6144 | "RTN","DGM XORU",78,0 ) | |
6145 | ; This cu rrently in cludes Pat ient Recor d Flags, B ad Address Indicator s, Patient Sensitivi ty, | |
6146 | "RTN","DGM XORU",79,0 ) | |
6147 | ; and Dem ographic V erificatio n Date. | |
6148 | "RTN","DGM XORU",80,0 ) | |
6149 | ; DFN - VistA Inte rnal Entry Number (I EN) | |
6150 | "RTN","DGM XORU",81,0 ) | |
6151 | ; TYPE - Type of f lag ("PRF" ,"BAD","SE N","VER") | |
6152 | "RTN","DGM XORU",82,0 ) | |
6153 | ; TRIGDA TA - Array containin g paramete rs for the build cod e. Nodes i nclude: | |
6154 | "RTN","DGM XORU",83,0 ) | |
6155 | ; ("STATU S") - For Bad Addres s/Sensitiv ity - Acti ve or inac tive flag | |
6156 | "RTN","DGM XORU",84,0 ) | |
6157 | ; ("VERDF N") - For Verificati on - DFN f or file 41 .41 | |
6158 | "RTN","DGM XORU",85,0 ) | |
6159 | ; THREAD - Thread to send me ssage to f or convers ions. | |
6160 | "RTN","DGM XORU",86,0 ) | |
6161 | ; | |
6162 | "RTN","DGM XORU",87,0 ) | |
6163 | I $G(DFN) ="" Q | |
6164 | "RTN","DGM XORU",88,0 ) | |
6165 | I $G(TYPE )="" Q | |
6166 | "RTN","DGM XORU",89,0 ) | |
6167 | N SEG,MSG ,PARAMS,ER ROR,WHOTO, OK,MASSESC ,ESCCHAR | |
6168 | "RTN","DGM XORU",90,0 ) | |
6169 | S PARAMS( "MESSAGE T YPE")="ORU " | |
6170 | "RTN","DGM XORU",91,0 ) | |
6171 | S PARAMS( "EVENT")=" R01" | |
6172 | "RTN","DGM XORU",92,0 ) | |
6173 | S PARAMS( "SENDING A PPLICATION ")="DG-ORU -OUT" | |
6174 | "RTN","DGM XORU",93,0 ) | |
6175 | S WHOTO(" RECEIVING APPLICATIO N")="MASS" | |
6176 | "RTN","DGM XORU",94,0 ) | |
6177 | I $G(THRE AD)'="" S WHOTO("FAC ILITY LINK NAME")="D G ORU O"_T HREAD | |
6178 | "RTN","DGM XORU",95,0 ) | |
6179 | E S WHOT O("FACILIT Y LINK NAM E")="DG OR U OUT" ; HL Lo gical Link | |
6180 | "RTN","DGM XORU",96,0 ) | |
6181 | S MASSESC =$$GET^XPA R("SYS","M ASS ASCII CHARACTER SWITCH") | |
6182 | "RTN","DGM XORU",97,0 ) | |
6183 | S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII CHAR REPLA CEMENT") | |
6184 | "RTN","DGM XORU",98,0 ) | |
6185 | ; | |
6186 | "RTN","DGM XORU",99,0 ) | |
6187 | ; Start n ew message | |
6188 | "RTN","DGM XORU",100, 0) | |
6189 | I '$$NEWM SG^HLOAPI( .PARAMS,.M SG) Q | |
6190 | "RTN","DGM XORU",101, 0) | |
6191 | D PID^DGM XHL7(DFN,1 ,.SEG) ; Build PID (required ) | |
6192 | "RTN","DGM XORU",102, 0) | |
6193 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6194 | "RTN","DGM XORU",103, 0) | |
6195 | I '$$ADDS EG^HLOAPI( .MSG,.SEG) Q | |
6196 | "RTN","DGM XORU",104, 0) | |
6197 | I TYPE="P RF" D BLDP RF(DFN,.SE G,.MSG) ; Patient r ecord flag s | |
6198 | "RTN","DGM XORU",105, 0) | |
6199 | I TYPE="B AD" D BLDB AD(DFN,.SE G,.MSG,.TR IGDATA) ; Bad addre ss indicat or | |
6200 | "RTN","DGM XORU",106, 0) | |
6201 | I TYPE="S EN" D BLDS EN(DFN,.SE G,.MSG,.TR IGDATA) ; Patient s ensitivity flag | |
6202 | "RTN","DGM XORU",107, 0) | |
6203 | I TYPE="V ER" D BLDV ER(DFN,.SE G,.MSG,.TR IGDATA) ; Demograph ics verifi cation dat e | |
6204 | "RTN","DGM XORU",108, 0) | |
6205 | ; | |
6206 | "RTN","DGM XORU",109, 0) | |
6207 | ; Send me ssage | |
6208 | "RTN","DGM XORU",110, 0) | |
6209 | S OK=$$SE NDONE^HLOA PI1(.MSG,. PARAMS,.WH OTO,.ERROR ) | |
6210 | "RTN","DGM XORU",111, 0) | |
6211 | Q | |
6212 | "RTN","DGM XORU",112, 0) | |
6213 | BLDPRF(DFN ,SEG,MSG) ; Build pa tient reco rd flags i n OBR-OBX segments | |
6214 | "RTN","DGM XORU",113, 0) | |
6215 | ; DFN - VistA Inte rnal Entry Number (I EN) | |
6216 | "RTN","DGM XORU",114, 0) | |
6217 | ; SEG - Segment ou tput | |
6218 | "RTN","DGM XORU",115, 0) | |
6219 | ; MSG - Message ou tput | |
6220 | "RTN","DGM XORU",116, 0) | |
6221 | ; | |
6222 | "RTN","DGM XORU",117, 0) | |
6223 | I $G(DFN) ="" Q | |
6224 | "RTN","DGM XORU",118, 0) | |
6225 | N IND,FLA GS,OK,LINE ,NARR,TEXT ,SUMMARY,O BRIND,OBXI ND,STATUS, MASSESC,ES CCHAR | |
6226 | "RTN","DGM XORU",119, 0) | |
6227 | S IND=0 | |
6228 | "RTN","DGM XORU",120, 0) | |
6229 | I '$$GETA LL^DGPFAA( DFN,.FLAGS ,"","") Q ; Nationa l and Loca l Flags | |
6230 | "RTN","DGM XORU",121, 0) | |
6231 | S MASSESC =$$GET^XPA R("SYS","M ASS ASCII CHARACTER SWITCH") | |
6232 | "RTN","DGM XORU",122, 0) | |
6233 | S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII CHAR REPLA CEMENT") | |
6234 | "RTN","DGM XORU",123, 0) | |
6235 | ; | |
6236 | "RTN","DGM XORU",124, 0) | |
6237 | S OBRIND= 1 | |
6238 | "RTN","DGM XORU",125, 0) | |
6239 | F S IND= $O(FLAGS(I ND)) Q:IND ="" D ; Loop Th rough Pati ent Flags | |
6240 | "RTN","DGM XORU",126, 0) | |
6241 | . ; | |
6242 | "RTN","DGM XORU",127, 0) | |
6243 | . ; Get F lag Info | |
6244 | "RTN","DGM XORU",128, 0) | |
6245 | . S SUMMA RY=$$GET1^ DIQ(26.13, IND,.02) ; Summary | |
6246 | "RTN","DGM XORU",129, 0) | |
6247 | . S STATU S=$$GET1^D IQ(26.13,I ND,.03) ; Status | |
6248 | "RTN","DGM XORU",130, 0) | |
6249 | . D GETS^ DIQ(26.13, IND,"1","" ,"NARR") ; Narrati ve Text | |
6250 | "RTN","DGM XORU",131, 0) | |
6251 | . ; | |
6252 | "RTN","DGM XORU",132, 0) | |
6253 | . ; Build OBR Segme nt | |
6254 | "RTN","DGM XORU",133, 0) | |
6255 | . D OBR^D GMXHL7(OBR IND,.SEG,S UMMARY) | |
6256 | "RTN","DGM XORU",134, 0) | |
6257 | . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR) | |
6258 | "RTN","DGM XORU",135, 0) | |
6259 | . I '$$AD DSEG^HLOAP I(.MSG,.SE G) Q | |
6260 | "RTN","DGM XORU",136, 0) | |
6261 | . S OBRIN D=OBRIND+1 | |
6262 | "RTN","DGM XORU",137, 0) | |
6263 | . ; | |
6264 | "RTN","DGM XORU",138, 0) | |
6265 | . ; Build Status OB X | |
6266 | "RTN","DGM XORU",139, 0) | |
6267 | . S OBXIN D=1 | |
6268 | "RTN","DGM XORU",140, 0) | |
6269 | . D OBX^D GMXHL7(OBX IND,.SEG," STATUS",ST ATUS) | |
6270 | "RTN","DGM XORU",141, 0) | |
6271 | . I MASSE SC D ESCIN VLD^SDMXCO RE(.SEG,ES CCHAR) | |
6272 | "RTN","DGM XORU",142, 0) | |
6273 | . S OK=$$ ADDSEG^HLO API(.MSG,. SEG) | |
6274 | "RTN","DGM XORU",143, 0) | |
6275 | . ; | |
6276 | "RTN","DGM XORU",144, 0) | |
6277 | . ; Build Narrative OBX(s) | |
6278 | "RTN","DGM XORU",145, 0) | |
6279 | . S LINE= 0,OBXIND=O BXIND+1 | |
6280 | "RTN","DGM XORU",146, 0) | |
6281 | . F S LI NE=$O(NARR (26.13,IND _",",1,LIN E)) Q:LINE ="" D | |
6282 | "RTN","DGM XORU",147, 0) | |
6283 | . . S TEX T=$G(NARR( 26.13,IND_ ",",1,LINE )) | |
6284 | "RTN","DGM XORU",148, 0) | |
6285 | . . D OBX ^DGMXHL7(O BXIND,.SEG ,"NARRATIV E",TEXT) | |
6286 | "RTN","DGM XORU",149, 0) | |
6287 | . . I MAS SESC D ESC INVLD^SDMX CORE(.SEG, ESCCHAR) | |
6288 | "RTN","DGM XORU",150, 0) | |
6289 | . . S OK= $$ADDSEG^H LOAPI(.MSG ,.SEG) | |
6290 | "RTN","DGM XORU",151, 0) | |
6291 | . . S OBX IND=OBXIND +1 | |
6292 | "RTN","DGM XORU",152, 0) | |
6293 | Q | |
6294 | "RTN","DGM XORU",153, 0) | |
6295 | BLDBAD(DFN ,SEG,MSG,T RIGDATA) ; Build bad address f lag in OBR -OBX segme nts | |
6296 | "RTN","DGM XORU",154, 0) | |
6297 | ; DFN - VistA Inte rnal Entry Number (I EN) | |
6298 | "RTN","DGM XORU",155, 0) | |
6299 | ; SEG - Segment ou tput | |
6300 | "RTN","DGM XORU",156, 0) | |
6301 | ; MSG - Message ou tput | |
6302 | "RTN","DGM XORU",157, 0) | |
6303 | ; TRIGDA TA - Param eter array containin g the acti on | |
6304 | "RTN","DGM XORU",158, 0) | |
6305 | ; ("STA TUS") - Ac tive or in active sta tus | |
6306 | "RTN","DGM XORU",159, 0) | |
6307 | ; | |
6308 | "RTN","DGM XORU",160, 0) | |
6309 | I $G(DFN) ="" Q | |
6310 | "RTN","DGM XORU",161, 0) | |
6311 | N OK,MASS ESC,ESCCHA R | |
6312 | "RTN","DGM XORU",162, 0) | |
6313 | S MASSESC =$$GET^XPA R("SYS","M ASS ASCII CHARACTER SWITCH") | |
6314 | "RTN","DGM XORU",163, 0) | |
6315 | S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII CHAR REPLA CEMENT") | |
6316 | "RTN","DGM XORU",164, 0) | |
6317 | D OBR^DGM XHL7(1,.SE G,"BAD ADD RESS") ; Build O BR | |
6318 | "RTN","DGM XORU",165, 0) | |
6319 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6320 | "RTN","DGM XORU",166, 0) | |
6321 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
6322 | "RTN","DGM XORU",167, 0) | |
6323 | D OBX^DGM XHL7(1,.SE G,"STATUS" ,$G(TRIGDA TA("STATUS "))) ; Build S tatus OBX | |
6324 | "RTN","DGM XORU",168, 0) | |
6325 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6326 | "RTN","DGM XORU",169, 0) | |
6327 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
6328 | "RTN","DGM XORU",170, 0) | |
6329 | D OBX^DGM XHL7(2,.SE G,"NARRATI VE",$$GET1 ^DIQ(2,DFN ,.121)) ; Build N arrative O BX | |
6330 | "RTN","DGM XORU",171, 0) | |
6331 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6332 | "RTN","DGM XORU",172, 0) | |
6333 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
6334 | "RTN","DGM XORU",173, 0) | |
6335 | Q | |
6336 | "RTN","DGM XORU",174, 0) | |
6337 | BLDSEN(DFN ,SEG,MSG,T RIGDATA) ; Build pat ient sensi tivity fla g in OBR-O BX segment s | |
6338 | "RTN","DGM XORU",175, 0) | |
6339 | ; DFN - VistA Inte rnal Entry Number (I EN) | |
6340 | "RTN","DGM XORU",176, 0) | |
6341 | ; SEG - Segment ou tput | |
6342 | "RTN","DGM XORU",177, 0) | |
6343 | ; MSG - Message ou tput | |
6344 | "RTN","DGM XORU",178, 0) | |
6345 | ; TRIGDA TA - Param eter array containin g the acti on | |
6346 | "RTN","DGM XORU",179, 0) | |
6347 | ; ("STA TUS") - Ac tive or in active sta tus | |
6348 | "RTN","DGM XORU",180, 0) | |
6349 | ; | |
6350 | "RTN","DGM XORU",181, 0) | |
6351 | I $G(DFN) ="" Q | |
6352 | "RTN","DGM XORU",182, 0) | |
6353 | N OK,MASS ESC,ESCCHA R | |
6354 | "RTN","DGM XORU",183, 0) | |
6355 | S MASSESC =$$GET^XPA R("SYS","M ASS ASCII CHARACTER SWITCH") | |
6356 | "RTN","DGM XORU",184, 0) | |
6357 | S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII CHAR REPLA CEMENT") | |
6358 | "RTN","DGM XORU",185, 0) | |
6359 | D OBR^DGM XHL7(1,.SE G,"SENSITI VITY") ; Build O BR | |
6360 | "RTN","DGM XORU",186, 0) | |
6361 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6362 | "RTN","DGM XORU",187, 0) | |
6363 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
6364 | "RTN","DGM XORU",188, 0) | |
6365 | D OBX^DGM XHL7(1,.SE G,"STATUS" ,$G(TRIGDA TA("STATUS "))) ; Build S tatus OBX | |
6366 | "RTN","DGM XORU",189, 0) | |
6367 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6368 | "RTN","DGM XORU",190, 0) | |
6369 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
6370 | "RTN","DGM XORU",191, 0) | |
6371 | Q | |
6372 | "RTN","DGM XORU",192, 0) | |
6373 | BLDVER(DFN ,SEG,MSG,T RIGDATA) ; Builds th e patient demographi cs verific ation date in OBR-OB X | |
6374 | "RTN","DGM XORU",193, 0) | |
6375 | ; DFN - VistA Internal Entry Numb er (IEN) - Used by E LIG^VADPT | |
6376 | "RTN","DGM XORU",194, 0) | |
6377 | ; SEG - Segme nt output | |
6378 | "RTN","DGM XORU",195, 0) | |
6379 | ; MSG - Messa ge output | |
6380 | "RTN","DGM XORU",196, 0) | |
6381 | ; TRIGDA TA - Param eter array containin g the veri fication D FN | |
6382 | "RTN","DGM XORU",197, 0) | |
6383 | ; ("VER DFN") - DF N of the V erificatio n record i n file 41. 41 | |
6384 | "RTN","DGM XORU",198, 0) | |
6385 | ; | |
6386 | "RTN","DGM XORU",199, 0) | |
6387 | I $G(DFN) ="" Q | |
6388 | "RTN","DGM XORU",200, 0) | |
6389 | N OK,VERD ATE,NARR,M ASSESC,ESC CHAR | |
6390 | "RTN","DGM XORU",201, 0) | |
6391 | S VERDATE =$$FMTE^XL FDT($P($$G ET1^DIQ(41 .41,$G(TRI GDATA("VER DFN")),1," I"),".",1) ,2) ; For mat Verifi cation dat e (MM/DD/Y Y) | |
6392 | "RTN","DGM XORU",202, 0) | |
6393 | I $G(VERD ATE)="" Q | |
6394 | "RTN","DGM XORU",203, 0) | |
6395 | S MASSESC =$$GET^XPA R("SYS","M ASS ASCII CHARACTER SWITCH") | |
6396 | "RTN","DGM XORU",204, 0) | |
6397 | S ESCCHAR =$$GET^XPA R("SYS","M ASS ASCII CHAR REPLA CEMENT") | |
6398 | "RTN","DGM XORU",205, 0) | |
6399 | S NARR="P re-Registe r Date: "_ VERDATE | |
6400 | "RTN","DGM XORU",206, 0) | |
6401 | D OBR^DGM XHL7(1,.SE G,"DEMOGRA PHIC VERIF ICATION") ; Build OBR | |
6402 | "RTN","DGM XORU",207, 0) | |
6403 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6404 | "RTN","DGM XORU",208, 0) | |
6405 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
6406 | "RTN","DGM XORU",209, 0) | |
6407 | D OBX^DGM XHL7(1,.SE G,"STATUS" ,"ACTIVE") ; Build Status OB X (Always send ACTIV E) | |
6408 | "RTN","DGM XORU",210, 0) | |
6409 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6410 | "RTN","DGM XORU",211, 0) | |
6411 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
6412 | "RTN","DGM XORU",212, 0) | |
6413 | D OBX^DGM XHL7(2,.SE G,"NARRATI VE",NARR) ; Build Narrative OBX | |
6414 | "RTN","DGM XORU",213, 0) | |
6415 | I MASSESC D ESCINVL D^SDMXCORE (.SEG,ESCC HAR) | |
6416 | "RTN","DGM XORU",214, 0) | |
6417 | S OK=$$AD DSEG^HLOAP I(.MSG,.SE G) | |
6418 | "RTN","DGM XORU",215, 0) | |
6419 | Q | |
6420 | "RTN","DGM XPOST") | |
6421 | 0^10^B2249 025 | |
6422 | "RTN","DGM XPOST",1,0 ) | |
6423 | DGMXPOST ; MASS/MKN - Post-ins tall routi ne;12/13/2 017 | |
6424 | "RTN","DGM XPOST",2,0 ) | |
6425 | ;;5.3;Reg istration; **948**;De cember 13, 2017;Build 66 | |
6426 | "RTN","DGM XPOST",3,0 ) | |
6427 | ;VA DIREC TIVE 6402, this rout ine should not be mo dified. | |
6428 | "RTN","DGM XPOST",4,0 ) | |
6429 | ; | |
6430 | "RTN","DGM XPOST",5,0 ) | |
6431 | EN ;The ac tual post install do es nothing . The purp ose of thi s routine is | |
6432 | "RTN","DGM XPOST",6,0 ) | |
6433 | ; to prov ide a "bac k out" fun ction at t ag BACKOUT | |
6434 | "RTN","DGM XPOST",7,0 ) | |
6435 | Q | |
6436 | "RTN","DGM XPOST",8,0 ) | |
6437 | ; | |
6438 | "RTN","DGM XPOST",9,0 ) | |
6439 | BACKOUT ; | |
6440 | "RTN","DGM XPOST",10, 0) | |
6441 | N FN,FNA, IEN97,N,NA ,X | |
6442 | "RTN","DGM XPOST",11, 0) | |
6443 | S IEN97=$ O(^XPD(9.7 ,"B","DG*5 .3*948","" ),-1),TEMP ="Temporar y backup f ile:" | |
6444 | "RTN","DGM XPOST",12, 0) | |
6445 | I 'IEN97 W !,"DG*5. 3*948 Inst all not fo und" Q | |
6446 | "RTN","DGM XPOST",13, 0) | |
6447 | S N=0,NA= "" F S N= $O(^XPD(9. 7,IEN97,"M ES",N)) Q: N="" S X= ^XPD(9.7,I EN97,"MES" ,N,0) D | |
6448 | "RTN","DGM XPOST",14, 0) | |
6449 | .I $E(X,1 ,$L(TEMP)) =TEMP S NA =$P(X,":", 2) | |
6450 | "RTN","DGM XPOST",15, 0) | |
6451 | I NA="" W !,"Backup file name not found in instal lation fil e" Q | |
6452 | "RTN","DGM XPOST",16, 0) | |
6453 | W !,"Back up file "_ TEMP_" fou nd; restor e commenci ng..." | |
6454 | "RTN","DGM XPOST",17, 0) | |
6455 | F FN=2,26 .14,27.11, 38.1,41.41 ,391.71 S FNA="File "_FN W !," Restoring data dicti onary for file #"_FN _"..." D | |
6456 | "RTN","DGM XPOST",18, 0) | |
6457 | .I '$D(@N A@(FNA)) W !,"File # "_FN_" not found in backup fil e" Q | |
6458 | "RTN","DGM XPOST",19, 0) | |
6459 | .K ^DD(FN ) M ^DD(FN )=@NA@(FNA ) | |
6460 | "RTN","DGM XPOST",20, 0) | |
6461 | W !,"DG*5 .3*948 Bac k out fini shed!" | |
6462 | "RTN","DGM XPOST",21, 0) | |
6463 | Q | |
6464 | "RTN","DGM XPOST",22, 0) | |
6465 | ; | |
6466 | "RTN","DGM XPRE") | |
6467 | 0^9^B16756 92 | |
6468 | "RTN","DGM XPRE",1,0) | |
6469 | DGMXPRE ; MASS/MKN - Pre-insta ll routine ;12/13/201 7 | |
6470 | "RTN","DGM XPRE",2,0) | |
6471 | ;;5.3;Reg istration; **948**;De cember 13, 2017;Build 66 | |
6472 | "RTN","DGM XPRE",3,0) | |
6473 | ;VA DIREC TIVE 6402, this rout ine should not be mo dified. | |
6474 | "RTN","DGM XPRE",4,0) | |
6475 | ; | |
6476 | "RTN","DGM XPRE",5,0) | |
6477 | ; ICR# Supported Reference s | |
6478 | "RTN","DGM XPRE",6,0) | |
6479 | ; 10103 $FMADD^XL FDT | |
6480 | "RTN","DGM XPRE",7,0) | |
6481 | ; | |
6482 | "RTN","DGM XPRE",8,0) | |
6483 | EN ;Make a copy of d ata dictio naries for the files in patch DG*5.3*948 | |
6484 | "RTN","DGM XPRE",9,0) | |
6485 | ; | |
6486 | "RTN","DGM XPRE",10,0 ) | |
6487 | N FN,NA | |
6488 | "RTN","DGM XPRE",11,0 ) | |
6489 | D MES^XPD UTL("Pre I nstall rou tine start ing. Savin g data dic tionaries. ..") | |
6490 | "RTN","DGM XPRE",12,0 ) | |
6491 | S NA=$NA( ^XTMP("DGM X_5_3_948" _$J)) K @N A S @NA@(0 )=$$FMADD^ XLFDT(DT,6 0)_U_DT | |
6492 | "RTN","DGM XPRE",13,0 ) | |
6493 | D MES^XPD UTL("This is the tem porary fil e that wou ld be used for a ""b ack out"": ") | |
6494 | "RTN","DGM XPRE",14,0 ) | |
6495 | D MES^XPD UTL("Tempo rary backu p file:"_N A) | |
6496 | "RTN","DGM XPRE",15,0 ) | |
6497 | F FN=2,26 .14,27.11, 38.1,41.41 ,391.71 D MES^XPDUTL ("Saving D D for file "_FN) M @ NA@("File "_FN)=^DD( FN) | |
6498 | "RTN","DGM XPRE",16,0 ) | |
6499 | ; | |
6500 | "RTN","DGM XPRE",17,0 ) | |
6501 | D MES^XPD UTL("Pre I nstall rou tine ended ") | |
6502 | "RTN","DGM XPRE",18,0 ) | |
6503 | Q | |
6504 | "RTN","DGM XPRE",19,0 ) | |
6505 | ; | |
6506 | "RTN","DGM XVLD") | |
6507 | 0^6^B14924 583 | |
6508 | "RTN","DGM XVLD",1,0) | |
6509 | DGMXVLD ; MASS/DXL - Incoming Patient Va lidation;1 0/05/17 | |
6510 | "RTN","DGM XVLD",2,0) | |
6511 | ;;5.3;Reg istration; **948**;OC TOBER 05,2 017;Build 66 | |
6512 | "RTN","DGM XVLD",3,0) | |
6513 | ;Per VA D IRECTIVE 6 402, this routine sh ould not b e modified . | |
6514 | "RTN","DGM XVLD",4,0) | |
6515 | ; | |
6516 | "RTN","DGM XVLD",5,0) | |
6517 | ; ICR# S upported R eferences | |
6518 | "RTN","DGM XVLD",6,0) | |
6519 | ; $ $FMTE^DILI BF | |
6520 | "RTN","DGM XVLD",7,0) | |
6521 | ; 4718 $ $GET^HLOPR S | |
6522 | "RTN","DGM XVLD",8,0) | |
6523 | ; $ $STRIP^XLF STR | |
6524 | "RTN","DGM XVLD",9,0) | |
6525 | ; $ $UP^XLFSTR | |
6526 | "RTN","DGM XVLD",10,0 ) | |
6527 | ; | |
6528 | "RTN","DGM XVLD",11,0 ) | |
6529 | Q | |
6530 | "RTN","DGM XVLD",12,0 ) | |
6531 | VLDPAT(PID ,DFN) ; Va lidates pa tient info rmation fr om an inco ming HL7 m essage. Re turns '1' for valid, '0' for i nvalid. | |
6532 | "RTN","DGM XVLD",13,0 ) | |
6533 | ; PID - C ontains th e PID segm ent from t he HL7 mes sage (in s tandard HL O array) | |
6534 | "RTN","DGM XVLD",14,0 ) | |
6535 | ; DFN - V istA Inter nal Entry Number (IE N) | |
6536 | "RTN","DGM XVLD",15,0 ) | |
6537 | ; | |
6538 | "RTN","DGM XVLD",16,0 ) | |
6539 | S PID=$G( PID),DFN=$ G(DFN) | |
6540 | "RTN","DGM XVLD",17,0 ) | |
6541 | N NAME,FN AME,LNAME, DOB,SEX,SS N,MSGFNAME ,MSGLNAME, MSGDOB,MSG SEX,MSGSSN ,ERRLIST,R ET | |
6542 | "RTN","DGM XVLD",18,0 ) | |
6543 | S RET=1,E RRLIST="", NAME="" | |
6544 | "RTN","DGM XVLD",19,0 ) | |
6545 | D GETDEMO G^DGMXHL7( $G(DFN),.N AME,.DOB,. SSN,.SEX) ; G et interna l patient demographi cs | |
6546 | "RTN","DGM XVLD",20,0 ) | |
6547 | S LNAME=$ P($G(NAME) ,",",1) ; P iece inter nal name | |
6548 | "RTN","DGM XVLD",21,0 ) | |
6549 | S FNAME=$ P($G(NAME) ,",",2) | |
6550 | "RTN","DGM XVLD",22,0 ) | |
6551 | D GETPID( .PID,.MSGL NAME,.MSGF NAME,.MSGD OB,.MSGSEX ,.MSGSSN) ; Get dem ographics from PID | |
6552 | "RTN","DGM XVLD",23,0 ) | |
6553 | ; | |
6554 | "RTN","DGM XVLD",24,0 ) | |
6555 | ; Sanitiz e variable s | |
6556 | "RTN","DGM XVLD",25,0 ) | |
6557 | S LNAME=$ G(LNAME),M SGLNAME=$G (MSGLNAME) | |
6558 | "RTN","DGM XVLD",26,0 ) | |
6559 | S FNAME=$ G(FNAME),M SGFNAME=$G (MSGFNAME) | |
6560 | "RTN","DGM XVLD",27,0 ) | |
6561 | S DOB=$G( DOB),MSGDO B=$G(MSGDO B) | |
6562 | "RTN","DGM XVLD",28,0 ) | |
6563 | S SEX=$G( SEX),MSGSE X=$G(MSGSE X) | |
6564 | "RTN","DGM XVLD",29,0 ) | |
6565 | S SSN=$G( SSN),MSGSS N=$G(MSGSS N) | |
6566 | "RTN","DGM XVLD",30,0 ) | |
6567 | ; | |
6568 | "RTN","DGM XVLD",31,0 ) | |
6569 | ; Check d emographic s | |
6570 | "RTN","DGM XVLD",32,0 ) | |
6571 | I (LNAME' =""),(MSGL NAME'=""), ($E(LNAME, 1,3)'=$E(M SGLNAME,1, 3)) D BLDE RR(.ERRLIS T,"Last Na me",LNAME, MSGLNAME) ; Last Name (firs t three ch aracters) | |
6572 | "RTN","DGM XVLD",33,0 ) | |
6573 | I (FNAME' =""),(MSGF NAME'=""), ($E(FNAME, 1,3)'=$E(M SGFNAME,1, 3)) D BLDE RR(.ERRLIS T,"First N ame",FNAME ,MSGFNAME) ; First Name (fir st three c haracters) | |
6574 | "RTN","DGM XVLD",34,0 ) | |
6575 | I (DOB'=" "),(MSGDOB '=""),(DOB '=MSGDOB) D BLDERR(. ERRLIST,"D OB",$$FMTE ^DILIBF(DO B),$$FMTE^ DILIBF(MSG DOB)) ; DOB ( readable f ormat) | |
6576 | "RTN","DGM XVLD",35,0 ) | |
6577 | I (SEX'=" "),(MSGSEX '=""),(SEX '=MSGSEX) D BLDERR(. ERRLIST,"G ender",SEX ,MSGSEX) ; Sex | |
6578 | "RTN","DGM XVLD",36,0 ) | |
6579 | I (SSN'=" "),(MSGSSN '=""),(SSN '=MSGSSN) D BLDERR(. ERRLIST,"S SN",SSN,MS GSSN) ; Socia l Security Number | |
6580 | "RTN","DGM XVLD",37,0 ) | |
6581 | I $G(ERRL IST)'="" D ERRLOG^SD MXERRO(313 ,ERRLIST,1 ) S RET=0 | |
6582 | "RTN","DGM XVLD",38,0 ) | |
6583 | Q RET | |
6584 | "RTN","DGM XVLD",39,0 ) | |
6585 | GETPID(PID ,MSGLNAME, MSGFNAME,M SGDOB,MSGS EX,MSGSSN) ; Pulls d emographic data from the PID s egment on an incomin g message | |
6586 | "RTN","DGM XVLD",40,0 ) | |
6587 | ; PID - C ontains th e PID segm ent from t he HL7 mes sage (in s tandard HL O array) | |
6588 | "RTN","DGM XVLD",41,0 ) | |
6589 | ; MSGLNAM E - Last n ame from t he message | |
6590 | "RTN","DGM XVLD",42,0 ) | |
6591 | ; MSGFNAM E - First name from the messag e | |
6592 | "RTN","DGM XVLD",43,0 ) | |
6593 | ; MSGDOB - Date o f birth fr om the mes sage | |
6594 | "RTN","DGM XVLD",44,0 ) | |
6595 | ; MSGSEX - Sex fr om the mes sage | |
6596 | "RTN","DGM XVLD",45,0 ) | |
6597 | ; MSGSSN - Social security number fro m the mess age | |
6598 | "RTN","DGM XVLD",46,0 ) | |
6599 | ; | |
6600 | "RTN","DGM XVLD",47,0 ) | |
6601 | ; Sanitiz e Inputs | |
6602 | "RTN","DGM XVLD",48,0 ) | |
6603 | S PID=$G( PID),MSGLN AME=$G(MSG LNAME),MSG FNAME=$G(M SGFNAME),M SGDOB=$G(M SGDOB),MSG SEX=$G(MSG SEX),MSGSS N=$G(MSGSS N) | |
6604 | "RTN","DGM XVLD",49,0 ) | |
6605 | ; | |
6606 | "RTN","DGM XVLD",50,0 ) | |
6607 | ; Get dat a from PID | |
6608 | "RTN","DGM XVLD",51,0 ) | |
6609 | S MSGLNAM E=$$GET^HL OPRS(.PID, 5,1) ; P ID-5.1 (La st Name) | |
6610 | "RTN","DGM XVLD",52,0 ) | |
6611 | S MSGFNAM E=$$GET^HL OPRS(.PID, 5,2) ; P ID-5.2 (Fi rst Name) | |
6612 | "RTN","DGM XVLD",53,0 ) | |
6613 | S MSGDOB= $$GET^HLOP RS(.PID,7) ; P ID-7 (Da te of Birt h) | |
6614 | "RTN","DGM XVLD",54,0 ) | |
6615 | S MSGSEX= $$GET^HLOP RS(.PID,8) ; P ID-8 (Se x) | |
6616 | "RTN","DGM XVLD",55,0 ) | |
6617 | S MSGSSN= $$GET^HLOP RS(.PID,19 ) ; P ID-19 (So cial Secur ity Number ) | |
6618 | "RTN","DGM XVLD",56,0 ) | |
6619 | ; | |
6620 | "RTN","DGM XVLD",57,0 ) | |
6621 | ; Format data from PID | |
6622 | "RTN","DGM XVLD",58,0 ) | |
6623 | S MSGLNAM E=$$UP^XLF STR($G(MSG LNAME)) ; Fir st three c haracters (uppercase ) | |
6624 | "RTN","DGM XVLD",59,0 ) | |
6625 | S MSGFNAM E=$$UP^XLF STR($G(MSG FNAME)) ; Fir st three c haracters (uppercase ) | |
6626 | "RTN","DGM XVLD",60,0 ) | |
6627 | S MSGDOB= $$HL72VATS ^SDMXCORE( $G(MSGDOB) ) ; HL7 timestamp to intern al time | |
6628 | "RTN","DGM XVLD",61,0 ) | |
6629 | S MSGSEX= $$UP^XLFST R($G(MSGSE X)) | |
6630 | "RTN","DGM XVLD",62,0 ) | |
6631 | S MSGSEX= $S(MSGSEX= "MALE":"M" ,MSGSEX="F EMALE":"F" ,1:MSGSEX) ; "M" or "F" gender | |
6632 | "RTN","DGM XVLD",63,0 ) | |
6633 | S MSGSSN= $$STRIP^XL FSTR($G(MS GSSN),"-") ; Str ip '-'s | |
6634 | "RTN","DGM XVLD",64,0 ) | |
6635 | ; | |
6636 | "RTN","DGM XVLD",65,0 ) | |
6637 | Q | |
6638 | "RTN","DGM XVLD",66,0 ) | |
6639 | BLDERR(ERR LIST,TYPE, INTVAL,MSG VAL) ; Bui lds a stri ng contain ing error informatio n for pati ent valida tion | |
6640 | "RTN","DGM XVLD",67,0 ) | |
6641 | ; The for mat of the error tex t is repea ting. Type s include: "Last Nam e","First Name","DOB ","Gender" ,"SSN" | |
6642 | "RTN","DGM XVLD",68,0 ) | |
6643 | N DROW,DC OL | |
6644 | "RTN","DGM XVLD",69,0 ) | |
6645 | S ERRLIST =$G(ERRLIS T),TYPE=$G (TYPE),INT VAL=$G(INT VAL),MSGVA L=$G(MSGVA L) | |
6646 | "RTN","DGM XVLD",70,0 ) | |
6647 | S DROW=" / " | |
6648 | "RTN","DGM XVLD",71,0 ) | |
6649 | S DCOL=": " | |
6650 | "RTN","DGM XVLD",72,0 ) | |
6651 | I $G(ERRL IST)="" S ERRLIST="T ype"_DCOL_ "Internal Value"_DCO L_"Msg Val ue"_DROW | |
6652 | "RTN","DGM XVLD",73,0 ) | |
6653 | S ERRLIST =ERRLIST_T YPE_DCOL_I NTVAL_DCOL _MSGVAL_DR OW | |
6654 | "RTN","DGM XVLD",74,0 ) | |
6655 | Q | |
6656 | "RTN","VAF CDD01") | |
6657 | 0^2^B39020 667 | |
6658 | "RTN","VAF CDD01",1,0 ) | |
6659 | VAFCDD01 ; ALB/JRP,LT L-DATA DIC TIONARY UT ILITIES ;0 5-SEP-1996 | |
6660 | "RTN","VAF CDD01",2,0 ) | |
6661 | ;;5.3;Reg istration; **91,149,9 48**;Jun 0 6, 1996;Bu ild 66 | |
6662 | "RTN","VAF CDD01",3,0 ) | |
6663 | AVAFC(DFN) ;AVAFC* c ross refer ence for P ATIENT fil e (#2) | |
6664 | "RTN","VAF CDD01",4,0 ) | |
6665 | ; | |
6666 | "RTN","VAF CDD01",5,0 ) | |
6667 | ;Input : IFN - Poi nter to en try in PAT IENT file (#2) | |
6668 | "RTN","VAF CDD01",6,0 ) | |
6669 | ; Variable VAFCEPIC m ay be pass ed to upda te field | |
6670 | "RTN","VAF CDD01",7,0 ) | |
6671 | ; ENTRY WAS CREATED B Y MASS EPI C (.11) in the | |
6672 | "RTN","VAF CDD01",8,0 ) | |
6673 | ; ADT/HL7 P IVOT file (#391.71) | |
6674 | "RTN","VAF CDD01",9,0 ) | |
6675 | ;Output : None | |
6676 | "RTN","VAF CDD01",10, 0) | |
6677 | ; VAFCFLG w ill be set to 1 if t he cross r eference i s | |
6678 | "RTN","VAF CDD01",11, 0) | |
6679 | ; not execu ted becaus e the chan ge is bein g made fro m | |
6680 | "RTN","VAF CDD01",12, 0) | |
6681 | ; within th e Registra tion proce ss. This notifies | |
6682 | "RTN","VAF CDD01",13, 0) | |
6683 | ; Registrat ion that a change wa s made and that this | |
6684 | "RTN","VAF CDD01",14, 0) | |
6685 | ; cross ref erence sho uld be exe cuted if t he Registr ation | |
6686 | "RTN","VAF CDD01",15, 0) | |
6687 | ; process i s aborted. | |
6688 | "RTN","VAF CDD01",16, 0) | |
6689 | ; | |
6690 | "RTN","VAF CDD01",17, 0) | |
6691 | ;Notes : The AVAFC * cross re ferences a re used to remember that | |
6692 | "RTN","VAF CDD01",18, 0) | |
6693 | ; changes w ere made t o the PATI ENT file ( #2) outsid e of | |
6694 | "RTN","VAF CDD01",19, 0) | |
6695 | ; the Regis tration pr ocess. Ex ecution of this cros s | |
6696 | "RTN","VAF CDD01",20, 0) | |
6697 | ; reference will crea te an entr y in the A DT/HL7 PIV OT | |
6698 | "RTN","VAF CDD01",21, 0) | |
6699 | ; file (#39 1.71) and mark it as requiring transmiss ion | |
6700 | "RTN","VAF CDD01",22, 0) | |
6701 | ; of an HL7 ADT-A08 m essage. | |
6702 | "RTN","VAF CDD01",23, 0) | |
6703 | ; | |
6704 | "RTN","VAF CDD01",24, 0) | |
6705 | ; : Execution of this c ross refer ence can b e prevente d by | |
6706 | "RTN","VAF CDD01",25, 0) | |
6707 | ; setting t he local v ariables: VAFCA08 eq ual to 1 | |
6708 | "RTN","VAF CDD01",26, 0) | |
6709 | ; VAFHCA08 e qual to 1 | |
6710 | "RTN","VAF CDD01",27, 0) | |
6711 | ; | |
6712 | "RTN","VAF CDD01",28, 0) | |
6713 | ; : If only o ne of the CA08 varia bles is se t to 1 an entry | |
6714 | "RTN","VAF CDD01",29, 0) | |
6715 | ; will be m ade in the pivot fil e (#391.71 ) but the | |
6716 | "RTN","VAF CDD01",30, 0) | |
6717 | ; correspon ding trans mission fl ag will no t be set. In this | |
6718 | "RTN","VAF CDD01",31, 0) | |
6719 | ; case sett ing VAFCA0 8=1 will p revent the REQUIRES TRANSMISSI ON | |
6720 | "RTN","VAF CDD01",32, 0) | |
6721 | ; flag from being set and setti ng VAFHCA0 8=1 will p revent the | |
6722 | "RTN","VAF CDD01",33, 0) | |
6723 | ; TRANSMITT ED-REQUIRE S TRANSMIS SION flag from being set. | |
6724 | "RTN","VAF CDD01",34, 0) | |
6725 | ; This allo ws control for sendi ng HL7 and /or HL7v2. 3 | |
6726 | "RTN","VAF CDD01",35, 0) | |
6727 | ; | |
6728 | "RTN","VAF CDD01",36, 0) | |
6729 | ;Check in put | |
6730 | "RTN","VAF CDD01",37, 0) | |
6731 | I +$G(DFN ),$D(^DPT( DFN,0)) | |
6732 | "RTN","VAF CDD01",38, 0) | |
6733 | E Q | |
6734 | "RTN","VAF CDD01",39, 0) | |
6735 | ;quit if re-indexin g | |
6736 | "RTN","VAF CDD01",40, 0) | |
6737 | Q:$D(DIU( 0)) | |
6738 | "RTN","VAF CDD01",41, 0) | |
6739 | ; | |
6740 | "RTN","VAF CDD01",42, 0) | |
6741 | N VARPTR, PIVOTNUM ; Declare va riables | |
6742 | "RTN","VAF CDD01",43, 0) | |
6743 | ; | |
6744 | "RTN","VAF CDD01",44, 0) | |
6745 | DO K VAF CF ; do HL 7 V2.3 MES SAGING | |
6746 | "RTN","VAF CDD01",45, 0) | |
6747 | .;CHECK T URNOFF FLA G | |
6748 | "RTN","VAF CDD01",46, 0) | |
6749 | .Q:$D(VAF CA08) | |
6750 | "RTN","VAF CDD01",47, 0) | |
6751 | .;IF SEND HL7 V2.3 MESSAGES I N MAS PARA METER FILE IS SET | |
6752 | "RTN","VAF CDD01",48, 0) | |
6753 | .;TO SEND /SUSPEND T HEN DO IT, ELSE QUIT | |
6754 | "RTN","VAF CDD01",49, 0) | |
6755 | .I '$P($$ SEND^VAFHU TL(),"^",2 ) Q | |
6756 | "RTN","VAF CDD01",50, 0) | |
6757 | .;IF in R egistratio n option, save field s edited | |
6758 | "RTN","VAF CDD01",51, 0) | |
6759 | .I $$REG( ) D Q | |
6760 | "RTN","VAF CDD01",52, 0) | |
6761 | . . Q:$G( VAFCF)="" | |
6762 | "RTN","VAF CDD01",53, 0) | |
6763 | . . S VAF CFLDS(VAFC F)="" | |
6764 | "RTN","VAF CDD01",54, 0) | |
6765 | .;IF NOT IN REGISTR ATION DO T HIS | |
6766 | "RTN","VAF CDD01",55, 0) | |
6767 | .D PVT4A0 8(DFN) | |
6768 | "RTN","VAF CDD01",56, 0) | |
6769 | .I PIVOTN UM<0 Q | |
6770 | "RTN","VAF CDD01",57, 0) | |
6771 | .; set ne ed to tran smit flag | |
6772 | "RTN","VAF CDD01",58, 0) | |
6773 | .D XMITFL AG(0,PIVOT NUM) | |
6774 | "RTN","VAF CDD01",59, 0) | |
6775 | ; | |
6776 | "RTN","VAF CDD01",60, 0) | |
6777 | DO ; do HL7 V2. 2 MESSAGIN G | |
6778 | "RTN","VAF CDD01",61, 0) | |
6779 | .Q:$G(VAF HCA08) | |
6780 | "RTN","VAF CDD01",62, 0) | |
6781 | .Q:$G(VAF CFLG) | |
6782 | "RTN","VAF CDD01",63, 0) | |
6783 | .I $$EN^V AFHREG() S VAFCFLG=1 Q | |
6784 | "RTN","VAF CDD01",64, 0) | |
6785 | .I '$$SEN D^VAFHUTL( ) Q | |
6786 | "RTN","VAF CDD01",65, 0) | |
6787 | .I +$G(PI VOTNUM)<0 Q ; its alr eady been called and failed qu it | |
6788 | "RTN","VAF CDD01",66, 0) | |
6789 | .I '$G(PI VOTNUM) D PVT4A08(DF N) ; set ac xr ef and piv ot | |
6790 | "RTN","VAF CDD01",67, 0) | |
6791 | .I PIVOTN UM<0 Q | |
6792 | "RTN","VAF CDD01",68, 0) | |
6793 | .; set re quires tra nsmission- Yes flag | |
6794 | "RTN","VAF CDD01",69, 0) | |
6795 | .D SETTFL AG(0,PIVOT NUM) | |
6796 | "RTN","VAF CDD01",70, 0) | |
6797 | .;done | |
6798 | "RTN","VAF CDD01",71, 0) | |
6799 | QUIT | |
6800 | "RTN","VAF CDD01",72, 0) | |
6801 | ; | |
6802 | "RTN","VAF CDD01",73, 0) | |
6803 | PVT4A08(DF N) ;Create entry in ADT/HL7 PI VOT file f or an ADT- A08 event | |
6804 | "RTN","VAF CDD01",74, 0) | |
6805 | ; and mar k it for t ransmissio n | |
6806 | "RTN","VAF CDD01",75, 0) | |
6807 | ; | |
6808 | "RTN","VAF CDD01",76, 0) | |
6809 | ;Input : IFN - Poi nter to en try in PAT IENT file (#2) | |
6810 | "RTN","VAF CDD01",77, 0) | |
6811 | ;Output : None | |
6812 | "RTN","VAF CDD01",78, 0) | |
6813 | ;Notes : There are no checks to determ ine if the entry sho uld be | |
6814 | "RTN","VAF CDD01",79, 0) | |
6815 | ; created ( other than input of a valid DF N) | |
6816 | "RTN","VAF CDD01",80, 0) | |
6817 | ; | |
6818 | "RTN","VAF CDD01",81, 0) | |
6819 | ;Check in put | |
6820 | "RTN","VAF CDD01",82, 0) | |
6821 | I +$G(DFN ),$D(^DPT( DFN,0)) | |
6822 | "RTN","VAF CDD01",83, 0) | |
6823 | E QUIT | |
6824 | "RTN","VAF CDD01",84, 0) | |
6825 | ;Declare variables don't new for call from top | |
6826 | "RTN","VAF CDD01",85, 0) | |
6827 | ;N VARPTR ,PIVOTNUM | |
6828 | "RTN","VAF CDD01",86, 0) | |
6829 | ;Set vari able point er used by ADT/HL7 P IVOT file | |
6830 | "RTN","VAF CDD01",87, 0) | |
6831 | S VARPTR= DFN_";DPT( " | |
6832 | "RTN","VAF CDD01",88, 0) | |
6833 | ;Create e ntry | |
6834 | "RTN","VAF CDD01",89, 0) | |
6835 | S PIVOTNU M=+$$PIVNW ^VAFHPIVT( DFN,$P(DT, "."),4,VAR PTR) | |
6836 | "RTN","VAF CDD01",90, 0) | |
6837 | Q:(PIVOTN UM<0) | |
6838 | "RTN","VAF CDD01",91, 0) | |
6839 | ;Mark ent ry as requ ires trans mission | |
6840 | "RTN","VAF CDD01",92, 0) | |
6841 | I $P($$SE ND^VAFHUTL (),"^",2) D XMITFLAG (0,PIVOTNU M) | |
6842 | "RTN","VAF CDD01",93, 0) | |
6843 | ;Mark ent ry as tran smitted fi eld YES | |
6844 | "RTN","VAF CDD01",94, 0) | |
6845 | I $G(VAFC FLG),$$SEN D^VAFHUTL( ) D SETTFL AG(0,PIVOT NUM) | |
6846 | "RTN","VAF CDD01",95, 0) | |
6847 | ;Done | |
6848 | "RTN","VAF CDD01",96, 0) | |
6849 | Q | |
6850 | "RTN","VAF CDD01",97, 0) | |
6851 | ; | |
6852 | "RTN","VAF CDD01",98, 0) | |
6853 | PROCESS() ; | |
6854 | "RTN","VAF CDD01",99, 0) | |
6855 | ;This cal l simply p rocesses t he array e lements in the VAFCF LDS | |
6856 | "RTN","VAF CDD01",100 ,0) | |
6857 | ;variable into a st ring | |
6858 | "RTN","VAF CDD01",101 ,0) | |
6859 | Q:'$D(VAF CFLDS) -1 | |
6860 | "RTN","VAF CDD01",102 ,0) | |
6861 | N INDEX,R ETURN S IN DEX="",RET URN="" | |
6862 | "RTN","VAF CDD01",103 ,0) | |
6863 | F S INDE X=$O(VAFCF LDS(INDEX) ) Q:INDEX= "" D | |
6864 | "RTN","VAF CDD01",104 ,0) | |
6865 | . S RETUR N=RETURN_I NDEX | |
6866 | "RTN","VAF CDD01",105 ,0) | |
6867 | Q:$G(RETU RN)="" -1 | |
6868 | "RTN","VAF CDD01",106 ,0) | |
6869 | Q RETURN | |
6870 | "RTN","VAF CDD01",107 ,0) | |
6871 | ; | |
6872 | "RTN","VAF CDD01",108 ,0) | |
6873 | REGEDIT(PI VOTNUM,FIE LDS) ; | |
6874 | "RTN","VAF CDD01",109 ,0) | |
6875 | ;This cal l is used to generat e an HL7 V ERSION 2.3 A04 or A0 8 message | |
6876 | "RTN","VAF CDD01",110 ,0) | |
6877 | ;from the pivot fil e the A04 is generat ed from DG REG00 when a | |
6878 | "RTN","VAF CDD01",111 ,0) | |
6879 | ;Registra tion is kn own to hav e been com pleted. Th e A08 mess age | |
6880 | "RTN","VAF CDD01",112 ,0) | |
6881 | ;is gener ated from DGREG0 whe n the Regi stration o ption was used | |
6882 | "RTN","VAF CDD01",113 ,0) | |
6883 | ;to edit some field s, but the Registrat ion was ne ver comple ted. | |
6884 | "RTN","VAF CDD01",114 ,0) | |
6885 | ;FIELDS v ariable co ntains the fields ed ited durin g the sess ion. | |
6886 | "RTN","VAF CDD01",115 ,0) | |
6887 | S DIE="39 1.71",DA=P IVOTNUM | |
6888 | "RTN","VAF CDD01",116 ,0) | |
6889 | S DR="2.1 ///^S X=FI ELDS" | |
6890 | "RTN","VAF CDD01",117 ,0) | |
6891 | D ^DIE | |
6892 | "RTN","VAF CDD01",118 ,0) | |
6893 | K DIE,DA, DR | |
6894 | "RTN","VAF CDD01",119 ,0) | |
6895 | Q | |
6896 | "RTN","VAF CDD01",120 ,0) | |
6897 | TRANSMIT(P IVOTNUM) ; | |
6898 | "RTN","VAF CDD01",121 ,0) | |
6899 | ;This cal l is used to simply set the 'R equires Tr ansmission ' | |
6900 | "RTN","VAF CDD01",122 ,0) | |
6901 | ;flag in the pivot file | |
6902 | "RTN","VAF CDD01",123 ,0) | |
6903 | S DIE="39 1.71",DA=P IVOTNUM | |
6904 | "RTN","VAF CDD01",124 ,0) | |
6905 | S DR=".08 ///^S X=1" | |
6906 | "RTN","VAF CDD01",125 ,0) | |
6907 | D ^DIE | |
6908 | "RTN","VAF CDD01",126 ,0) | |
6909 | K DIE,DA, DR | |
6910 | "RTN","VAF CDD01",127 ,0) | |
6911 | Q | |
6912 | "RTN","VAF CDD01",128 ,0) | |
6913 | ; | |
6914 | "RTN","VAF CDD01",129 ,0) | |
6915 | MESSAGE(PI VOTPTR,NUM BER) ; | |
6916 | "RTN","VAF CDD01",130 ,0) | |
6917 | ;This tag stuffs th e message id from hl 7 into piv ot file | |
6918 | "RTN","VAF CDD01",131 ,0) | |
6919 | S DIE="39 1.71",DA=P IVOTPTR | |
6920 | "RTN","VAF CDD01",132 ,0) | |
6921 | S DR="1.1 ///^S X=NU MBER" | |
6922 | "RTN","VAF CDD01",133 ,0) | |
6923 | D ^DIE | |
6924 | "RTN","VAF CDD01",134 ,0) | |
6925 | K DIE,DA, DR | |
6926 | "RTN","VAF CDD01",135 ,0) | |
6927 | Q | |
6928 | "RTN","VAF CDD01",136 ,0) | |
6929 | ; | |
6930 | "RTN","VAF CDD01",137 ,0) | |
6931 | REG() ; | |
6932 | "RTN","VAF CDD01",138 ,0) | |
6933 | ;this tag looks at what optio n the user is in at the time | |
6934 | "RTN","VAF CDD01",139 ,0) | |
6935 | ; | |
6936 | "RTN","VAF CDD01",140 ,0) | |
6937 | I $P($G(X QY0),"^")= "DG REGIST ER PATIENT " Q 1 | |
6938 | "RTN","VAF CDD01",141 ,0) | |
6939 | I $P($G(X QY0),"^")= "DGRPT 10- 10T REGIST RATION" Q 1 | |
6940 | "RTN","VAF CDD01",142 ,0) | |
6941 | Q 0 | |
6942 | "RTN","VAF CDD01",143 ,0) | |
6943 | ; | |
6944 | "RTN","VAF CDD01",144 ,0) | |
6945 | HL7A08 ; | |
6946 | "RTN","VAF CDD01",145 ,0) | |
6947 | I $D(VAFH MRG) D KIL L^VAFHUTL2 (DFN,VAFHB EF) | |
6948 | "RTN","VAF CDD01",146 ,0) | |
6949 | ;Registra tion proce ss was abo rted and c hanges wer e made | |
6950 | "RTN","VAF CDD01",147 ,0) | |
6951 | ;to key d emographic data. Cr eate an HL 7 V2.3 ent ry in | |
6952 | "RTN","VAF CDD01",148 ,0) | |
6953 | ;the ADT/ HL PIVOT f ile so tha t demograp hic change s will be | |
6954 | "RTN","VAF CDD01",149 ,0) | |
6955 | ;broadcas t. VAFCFLD S is set i n routine VAFCDD01. It contain s the | |
6956 | "RTN","VAF CDD01",150 ,0) | |
6957 | ;fields t hat were e dited. | |
6958 | "RTN","VAF CDD01",151 ,0) | |
6959 | I $D(VAFC FLDS) D | |
6960 | "RTN","VAF CDD01",152 ,0) | |
6961 | . N PIVOT NUM,IEN,PT R | |
6962 | "RTN","VAF CDD01",153 ,0) | |
6963 | . S PTR=D FN_";DPT(" | |
6964 | "RTN","VAF CDD01",154 ,0) | |
6965 | . S PIVOT NUM=+$$PIV NW^VAFHPIV T(DFN,DT,4 ,PTR) | |
6966 | "RTN","VAF CDD01",155 ,0) | |
6967 | . Q:PIVOT NUM'>0 | |
6968 | "RTN","VAF CDD01",156 ,0) | |
6969 | . S IEN=$ O(^VAT(391 .71,"D",PI VOTNUM,"") ) | |
6970 | "RTN","VAF CDD01",157 ,0) | |
6971 | . Q:IEN'> 0 | |
6972 | "RTN","VAF CDD01",158 ,0) | |
6973 | . S VAFCF LDS=$$PROC ESS^VAFCDD 01() | |
6974 | "RTN","VAF CDD01",159 ,0) | |
6975 | . I VAFCF LDS'=-1 D | |
6976 | "RTN","VAF CDD01",160 ,0) | |
6977 | . . D REG EDIT^VAFCD D01(IEN,VA FCFLDS) | |
6978 | "RTN","VAF CDD01",161 ,0) | |
6979 | . . D TRA NSMIT^VAFC DD01(IEN) | |
6980 | "RTN","VAF CDD01",162 ,0) | |
6981 | K VAFCFLD S | |
6982 | "RTN","VAF CDD01",163 ,0) | |
6983 | Q | |
6984 | "RTN","VAF CDD01",164 ,0) | |
6985 | ; | |
6986 | "RTN","VAF CDD01",165 ,0) | |
6987 | SECA08(DFN ) ;PUT ENT RY IN PIVO T FILE WHE N USER FLA GS A PT AS SENSITIVE IN | |
6988 | "RTN","VAF CDD01",166 ,0) | |
6989 | ;FILE 38. 1 THIS IS TRIGGERED OUT OF ROU TINE DGSEC 1 | |
6990 | "RTN","VAF CDD01",167 ,0) | |
6991 | N PIVOTNU M,IEN,PTR | |
6992 | "RTN","VAF CDD01",168 ,0) | |
6993 | S PTR=DFN _";DPT(" | |
6994 | "RTN","VAF CDD01",169 ,0) | |
6995 | S PIVOTNU M=+$$PIVNW ^VAFHPIVT( DFN,DT,4,P TR) | |
6996 | "RTN","VAF CDD01",170 ,0) | |
6997 | Q:PIVOTNU M'>0 | |
6998 | "RTN","VAF CDD01",171 ,0) | |
6999 | S IEN=$O( ^VAT(391.7 1,"D",PIVO TNUM,"")) | |
7000 | "RTN","VAF CDD01",172 ,0) | |
7001 | Q:IEN'>0 | |
7002 | "RTN","VAF CDD01",173 ,0) | |
7003 | ;SET EVEN T CODE FIE LD TO 97 I NDICATING A SENSITIV ITY UPDATE | |
7004 | "RTN","VAF CDD01",174 ,0) | |
7005 | S DIE="39 1.71",DA=I EN | |
7006 | "RTN","VAF CDD01",175 ,0) | |
7007 | S DR=".1/ //^S X=97" | |
7008 | "RTN","VAF CDD01",176 ,0) | |
7009 | D ^DIE | |
7010 | "RTN","VAF CDD01",177 ,0) | |
7011 | K DIE,DA, DR | |
7012 | "RTN","VAF CDD01",178 ,0) | |
7013 | D TRANSMI T^VAFCDD01 (IEN) | |
7014 | "RTN","VAF CDD01",179 ,0) | |
7015 | Q | |
7016 | "RTN","VAF CDD01",180 ,0) | |
7017 | ; | |
7018 | "RTN","VAF CDD01",181 ,0) | |
7019 | XMITFLAG(P IVOTPTR,PI VOTNUM,TUR NOFF) ;Tur n transmis sion flag for entry | |
7020 | "RTN","VAF CDD01",182 ,0) | |
7021 | ; in ADT/ HL7 PIVOT file on/of f | |
7022 | "RTN","VAF CDD01",183 ,0) | |
7023 | ; | |
7024 | "RTN","VAF CDD01",184 ,0) | |
7025 | ;Input : PIVOTPTR - Pointer to entry i n ADT/HL7 PIVOT file (#391.71) | |
7026 | "RTN","VAF CDD01",185 ,0) | |
7027 | ; - Use this parameter if the en try number is known | |
7028 | "RTN","VAF CDD01",186 ,0) | |
7029 | ; - Not requ ired if us ing PIVOTN UM paramet er | |
7030 | "RTN","VAF CDD01",187 ,0) | |
7031 | ; - Use of t his parame ter takes precedence over use | |
7032 | "RTN","VAF CDD01",188 ,0) | |
7033 | ; the PIVO TNUM param eter | |
7034 | "RTN","VAF CDD01",189 ,0) | |
7035 | ; PIVOTNUM - PIVOT NU MBER value (field #. 02) for en try | |
7036 | "RTN","VAF CDD01",190 ,0) | |
7037 | ; in ADT/H L7 PIVOT f ile (#391. 71) | |
7038 | "RTN","VAF CDD01",191 ,0) | |
7039 | ; - Use this parameter if the pi vot number is known | |
7040 | "RTN","VAF CDD01",192 ,0) | |
7041 | ; - Not requ ired if us ing PIVOTP TR paramet er | |
7042 | "RTN","VAF CDD01",193 ,0) | |
7043 | ; TURNOFF - Denotes i f REQUIRES TRANSMISS ION field (#.08) sho uld | |
7044 | "RTN","VAF CDD01",194 ,0) | |
7045 | ; be turned on (set t o 'YES') o r off (set to 'NO') | |
7046 | "RTN","VAF CDD01",195 ,0) | |
7047 | ; 1 = Turns t ransmissio n off | |
7048 | "RTN","VAF CDD01",196 ,0) | |
7049 | ; 0 = Turns t ransmissio n on (defa ult) | |
7050 | "RTN","VAF CDD01",197 ,0) | |
7051 | ;Output : None | |
7052 | "RTN","VAF CDD01",198 ,0) | |
7053 | ; | |
7054 | "RTN","VAF CDD01",199 ,0) | |
7055 | ;Check in put | |
7056 | "RTN","VAF CDD01",200 ,0) | |
7057 | S PIVOTPT R=+$G(PIVO TPTR) | |
7058 | "RTN","VAF CDD01",201 ,0) | |
7059 | S PIVOTNU M=+$G(PIVO TNUM) | |
7060 | "RTN","VAF CDD01",202 ,0) | |
7061 | Q:(('PIVO TPTR)&('PI VOTNUM)) | |
7062 | "RTN","VAF CDD01",203 ,0) | |
7063 | S TURNOFF =+$G(TURNO FF) | |
7064 | "RTN","VAF CDD01",204 ,0) | |
7065 | ;Declare variables | |
7066 | "RTN","VAF CDD01",205 ,0) | |
7067 | N VALUE,N ODE,XREFNU M,DA,X | |
7068 | "RTN","VAF CDD01",206 ,0) | |
7069 | ;Passed p ointer - v alidate | |
7070 | "RTN","VAF CDD01",207 ,0) | |
7071 | I (PIVOTP TR) Q:('$D (^VAT(391. 71,PIVOTPT R,0))) | |
7072 | "RTN","VAF CDD01",208 ,0) | |
7073 | ;Passed p ivot numbe r - conver t to point er | |
7074 | "RTN","VAF CDD01",209 ,0) | |
7075 | I ('PIVOT PTR) S PIV OTPTR=+$O( ^VAT(391.7 1,"D",PIVO TNUM,0)) Q :('PIVOTPT R) | |
7076 | "RTN","VAF CDD01",210 ,0) | |
7077 | ;Set File Man variab les | |
7078 | "RTN","VAF CDD01",211 ,0) | |
7079 | S DA=PIVO TPTR | |
7080 | "RTN","VAF CDD01",212 ,0) | |
7081 | S X='TURN OFF | |
7082 | "RTN","VAF CDD01",213 ,0) | |
7083 | ;If alrea dy transmi tted, empt y field(s) edited, c an't do 8t h piece "" | |
7084 | "RTN","VAF CDD01",214 ,0) | |
7085 | ;I $G(VAF CF),'$P($G (^VAT(391. 71,DA,0)), U,8),$G(^V AT(391.71, DA,2)) S $ P(^VAT(391 .71,DA,2), U)="" | |
7086 | "RTN","VAF CDD01",215 ,0) | |
7087 | ;Hard set field | |
7088 | "RTN","VAF CDD01",216 ,0) | |
7089 | S $P(^VAT (391.71,DA ,0),"^",8) =X | |
7090 | "RTN","VAF CDD01",217 ,0) | |
7091 | ;Hard set fields ed ited | |
7092 | "RTN","VAF CDD01",218 ,0) | |
7093 | S:$G(VAFC F)&($P($G( ^VAT(391.7 1,DA,2)),U )'[$G(VAFC F)) $P(^VA T(391.71,D A,2),U)=$P ($G(^VAT(3 91.71,DA,2 )),U)_$G(V AFCF) | |
7094 | "RTN","VAF CDD01",219 ,0) | |
7095 | S $P(^VAT (391.71,DA ,0),U,11)= +$G(VAFCEP IC) | |
7096 | "RTN","VAF CDD01",220 ,0) | |
7097 | ;Execute cross refe rences | |
7098 | "RTN","VAF CDD01",221 ,0) | |
7099 | S XREFNUM =0 | |
7100 | "RTN","VAF CDD01",222 ,0) | |
7101 | F S XREF NUM=+$O(^D D(391.71,. 08,1,XREFN UM)) Q:('X REFNUM) D | |
7102 | "RTN","VAF CDD01",223 ,0) | |
7103 | .;Execute kill logi c | |
7104 | "RTN","VAF CDD01",224 ,0) | |
7105 | .S NODE=$ G(^DD(391. 71,.08,1,X REFNUM,2)) | |
7106 | "RTN","VAF CDD01",225 ,0) | |
7107 | .I (NODE' ="") X NOD E | |
7108 | "RTN","VAF CDD01",226 ,0) | |
7109 | .;Execute set logic | |
7110 | "RTN","VAF CDD01",227 ,0) | |
7111 | .S NODE=$ G(^DD(391. 71,.08,1,X REFNUM,1)) | |
7112 | "RTN","VAF CDD01",228 ,0) | |
7113 | .I (NODE' ="") X NOD E | |
7114 | "RTN","VAF CDD01",229 ,0) | |
7115 | Q | |
7116 | "RTN","VAF CDD01",230 ,0) | |
7117 | ; | |
7118 | "RTN","VAF CDD01",231 ,0) | |
7119 | SETTFLAG(P IVOTPTR,PI VOTNUM,TUR NOFF) ;Tur n transmis sion flag for entry | |
7120 | "RTN","VAF CDD01",232 ,0) | |
7121 | ; in ADT /HL7 PIVOT file on/o ff | |
7122 | "RTN","VAF CDD01",233 ,0) | |
7123 | ; | |
7124 | "RTN","VAF CDD01",234 ,0) | |
7125 | ;Input : PIVOTPTR - Pointer to entry i n ADT/HL7 PIVOT file (#391.71) | |
7126 | "RTN","VAF CDD01",235 ,0) | |
7127 | ; - Use this parameter if the en try number is known | |
7128 | "RTN","VAF CDD01",236 ,0) | |
7129 | ; - Not requ ired if us ing PIVOTN UM paramet er | |
7130 | "RTN","VAF CDD01",237 ,0) | |
7131 | ; - Use of t his parame ter takes precedence over use | |
7132 | "RTN","VAF CDD01",238 ,0) | |
7133 | ; the PIVO TNUM param eter | |
7134 | "RTN","VAF CDD01",239 ,0) | |
7135 | ; PIVOTNUM - PIVOT NU MBER value (field #. 02) for en try | |
7136 | "RTN","VAF CDD01",240 ,0) | |
7137 | ; in ADT/H L7 PIVOT f ile (#391. 71) | |
7138 | "RTN","VAF CDD01",241 ,0) | |
7139 | ; - Use this parameter if the pi vot number is known | |
7140 | "RTN","VAF CDD01",242 ,0) | |
7141 | ; - Not requ ired if us ing PIVOTP TR paramet er | |
7142 | "RTN","VAF CDD01",243 ,0) | |
7143 | ; TURNOFF - Denotes i f TRANSMIT TED field (#.06) sho uld | |
7144 | "RTN","VAF CDD01",244 ,0) | |
7145 | ; be turned on (set t o 'YES') o r off (set to 'NO') | |
7146 | "RTN","VAF CDD01",245 ,0) | |
7147 | ; 1 = Turns t ransmissio n off | |
7148 | "RTN","VAF CDD01",246 ,0) | |
7149 | ; 0 = Turns t ransmissio n on (defa ult) | |
7150 | "RTN","VAF CDD01",247 ,0) | |
7151 | ;Output : None | |
7152 | "RTN","VAF CDD01",248 ,0) | |
7153 | ; | |
7154 | "RTN","VAF CDD01",249 ,0) | |
7155 | ;Check in put | |
7156 | "RTN","VAF CDD01",250 ,0) | |
7157 | S PIVOTPT R=+$G(PIVO TPTR) | |
7158 | "RTN","VAF CDD01",251 ,0) | |
7159 | S PIVOTNU M=+$G(PIVO TNUM) | |
7160 | "RTN","VAF CDD01",252 ,0) | |
7161 | Q:(('PIVO TPTR)&('PI VOTNUM)) | |
7162 | "RTN","VAF CDD01",253 ,0) | |
7163 | S TURNOFF =+$G(TURNO FF) | |
7164 | "RTN","VAF CDD01",254 ,0) | |
7165 | ;Declare variables | |
7166 | "RTN","VAF CDD01",255 ,0) | |
7167 | N VALUE,N ODE,XREFNU M,DA,X | |
7168 | "RTN","VAF CDD01",256 ,0) | |
7169 | ;Passed p ointer - v alidate | |
7170 | "RTN","VAF CDD01",257 ,0) | |
7171 | I (PIVOTP TR) Q:('$D (^VAT(391. 71,PIVOTPT R,0))) | |
7172 | "RTN","VAF CDD01",258 ,0) | |
7173 | ;Passed p ivot numbe r - conver t to point er | |
7174 | "RTN","VAF CDD01",259 ,0) | |
7175 | I ('PIVOT PTR) S PIV OTPTR=+$O( ^VAT(391.7 1,"D",PIVO TNUM,0)) Q :('PIVOTPT R) | |
7176 | "RTN","VAF CDD01",260 ,0) | |
7177 | ;Set File Man variab les | |
7178 | "RTN","VAF CDD01",261 ,0) | |
7179 | S DA=PIVO TPTR | |
7180 | "RTN","VAF CDD01",262 ,0) | |
7181 | S X='TURN OFF | |
7182 | "RTN","VAF CDD01",263 ,0) | |
7183 | ;Hard set field | |
7184 | "RTN","VAF CDD01",264 ,0) | |
7185 | S $P(^VAT (391.71,DA ,0),"^",6) =X | |
7186 | "RTN","VAF CDD01",265 ,0) | |
7187 | ;Execute cross refe rences | |
7188 | "RTN","VAF CDD01",266 ,0) | |
7189 | S XREFNUM =0 | |
7190 | "RTN","VAF CDD01",267 ,0) | |
7191 | F S XREF NUM=+$O(^D D(391.71,. 06,1,XREFN UM)) Q:('X REFNUM) D | |
7192 | "RTN","VAF CDD01",268 ,0) | |
7193 | .;Execute kill logi c | |
7194 | "RTN","VAF CDD01",269 ,0) | |
7195 | .S NODE=$ G(^DD(391. 71,.06,1,X REFNUM,2)) | |
7196 | "RTN","VAF CDD01",270 ,0) | |
7197 | .I (NODE' ="") X NOD E | |
7198 | "RTN","VAF CDD01",271 ,0) | |
7199 | .;Execute set logic | |
7200 | "RTN","VAF CDD01",272 ,0) | |
7201 | .S NODE=$ G(^DD(391. 71,.06,1,X REFNUM,1)) | |
7202 | "RTN","VAF CDD01",273 ,0) | |
7203 | .I (NODE' ="") X NOD E | |
7204 | "RTN","VAF CDD01",274 ,0) | |
7205 | Q | |
7206 | "RTN","VAF CMSG") | |
7207 | 0^1^B20895 268 | |
7208 | "RTN","VAF CMSG",1,0) | |
7209 | VAFCMSG ;A LB/JRP-BAC KGROUND JO B TO TRANS MIT ENTRIE S IN PIVOT FILE ; 3/ 2/04 12:54 pm | |
7210 | "RTN","VAF CMSG",2,0) | |
7211 | ;;5.3;Reg istration; **91,149,5 30,578,948 **;Jun 06, 1996;Buil d 66 | |
7212 | "RTN","VAF CMSG",3,0) | |
7213 | ; | |
7214 | "RTN","VAF CMSG",4,0) | |
7215 | MAIN ;Main entry poi nt for bac kground jo b | |
7216 | "RTN","VAF CMSG",5,0) | |
7217 | ; | |
7218 | "RTN","VAF CMSG",6,0) | |
7219 | ;attempt to lock no n existant global. | |
7220 | "RTN","VAF CMSG",7,0) | |
7221 | L +^VAT(3 91.71,"VAF C BATCH UP DATE ADT/H L7"):1 I ' $T Q | |
7222 | "RTN","VAF CMSG",8,0) | |
7223 | ;Send mes sages ? 0= STOP,2=SUS PEND | |
7224 | "RTN","VAF CMSG",9,0) | |
7225 | N VAFCEPI C,SEND | |
7226 | "RTN","VAF CMSG",10,0 ) | |
7227 | S VAFCEPI C=0,SEND=$ P($$SEND^V AFHUTL()," ^",2) | |
7228 | "RTN","VAF CMSG",11,0 ) | |
7229 | I (SEND=0 )!(SEND=2) L -^VAT(3 91.71,"VAF C BATCH UP DATE ADT/H L7") Q | |
7230 | "RTN","VAF CMSG",12,0 ) | |
7231 | ;Send Reg istration messages | |
7232 | "RTN","VAF CMSG",13,0 ) | |
7233 | D BCSTA04 | |
7234 | "RTN","VAF CMSG",14,0 ) | |
7235 | ;Send cha nges to pa tient's de mographica l data (AD T-A08) | |
7236 | "RTN","VAF CMSG",15,0 ) | |
7237 | D:'VAFCEP IC BCSTA08 | |
7238 | "RTN","VAF CMSG",16,0 ) | |
7239 | ;Send cha nges to pa tient's tr eating fac ility list (MFU-M05) | |
7240 | "RTN","VAF CMSG",17,0 ) | |
7241 | D:'VAFCEP IC BCKTFMF U^VAFCTFMF | |
7242 | "RTN","VAF CMSG",18,0 ) | |
7243 | ;unlock g lobal | |
7244 | "RTN","VAF CMSG",19,0 ) | |
7245 | L -^VAT(3 91.71,"VAF C BATCH UP DATE ADT/H L7") | |
7246 | "RTN","VAF CMSG",20,0 ) | |
7247 | ;K DIC,X, Y | |
7248 | "RTN","VAF CMSG",21,0 ) | |
7249 | Q | |
7250 | "RTN","VAF CMSG",22,0 ) | |
7251 | ; | |
7252 | "RTN","VAF CMSG",23,0 ) | |
7253 | BCSTA08 ;B roadcast A DT-A08 mes sages for all entrie s in ADT/H L PIVOT fi le | |
7254 | "RTN","VAF CMSG",24,0 ) | |
7255 | ;(#391.71 ) that hav e been mar ked for tr ansmission | |
7256 | "RTN","VAF CMSG",25,0 ) | |
7257 | ; | |
7258 | "RTN","VAF CMSG",26,0 ) | |
7259 | ;Input : None | |
7260 | "RTN","VAF CMSG",27,0 ) | |
7261 | ;Output : None | |
7262 | "RTN","VAF CMSG",28,0 ) | |
7263 | ; | |
7264 | "RTN","VAF CMSG",29,0 ) | |
7265 | ;Declare variables | |
7266 | "RTN","VAF CMSG",30,0 ) | |
7267 | N PIVOTPT R,NODE,DFN ,EDITDATE, TMP,INFOAR R | |
7268 | "RTN","VAF CMSG",31,0 ) | |
7269 | S INFOARR ="^TMP(""V AFCMSG""," _$J_",""EV NTINFO"")" | |
7270 | "RTN","VAF CMSG",32,0 ) | |
7271 | K @INFOAR R | |
7272 | "RTN","VAF CMSG",33,0 ) | |
7273 | ;Loop thr ough pivot file base d on demog raphic upd ates | |
7274 | "RTN","VAF CMSG",34,0 ) | |
7275 | S PIVOTPT R=0 | |
7276 | "RTN","VAF CMSG",35,0 ) | |
7277 | F S PIVO TPTR=+$O(^ VAT(391.71 ,"AXMIT",4 ,PIVOTPTR) ) Q:('PIVO TPTR) D | |
7278 | "RTN","VAF CMSG",36,0 ) | |
7279 | .;Bad ent ry in cros s referenc e - delete it and qu it | |
7280 | "RTN","VAF CMSG",37,0 ) | |
7281 | .I ('$D(^ VAT(391.71 ,PIVOTPTR) )) K ^VAT( 391.71,"AX MIT",4,PIV OTPTR) Q | |
7282 | "RTN","VAF CMSG",38,0 ) | |
7283 | .;Get eve nt date an d pointer to patient | |
7284 | "RTN","VAF CMSG",39,0 ) | |
7285 | .S NODE=$ G(^VAT(391 .71,PIVOTP TR,0)) | |
7286 | "RTN","VAF CMSG",40,0 ) | |
7287 | .S EDITDA TE=+NODE | |
7288 | "RTN","VAF CMSG",41,0 ) | |
7289 | .S DFN=+$ P(NODE,"^" ,3) | |
7290 | "RTN","VAF CMSG",42,0 ) | |
7291 | .;PATCH 5 30 check g lobal for lock statu s - quit i f locked. | |
7292 | "RTN","VAF CMSG",43,0 ) | |
7293 | .L +^DPT( DFN):1 I ' $T Q | |
7294 | "RTN","VAF CMSG",44,0 ) | |
7295 | .;Bad poi nter to pa tient - ma rk entry a s transmit ted and qu it | |
7296 | "RTN","VAF CMSG",45,0 ) | |
7297 | .I ('$D(^ DPT(DFN,0) ))!($G(^DP T(DFN,-9)) ) D XMITFL AG^VAFCDD0 1(PIVOTPTR ,"",1) Q | |
7298 | "RTN","VAF CMSG",46,0 ) | |
7299 | .I $P(^DP T(DFN,0),U )="" D XMI TFLAG^VAFC DD01(PIVOT PTR,"",1) Q | |
7300 | "RTN","VAF CMSG",47,0 ) | |
7301 | .I '$D(^D PT("B",$P( ^DPT(DFN,0 ),U),DFN)) D XMITFLA G^VAFCDD01 (PIVOTPTR, "",1) Q | |
7302 | "RTN","VAF CMSG",48,0 ) | |
7303 | .D TRIGDE M^DGMXADT( DFN) | |
7304 | "RTN","VAF CMSG",49,0 ) | |
7305 | .;Check i f the Pivo t File ent ry was cre ated by MA SS/EPIC | |
7306 | "RTN","VAF CMSG",50,0 ) | |
7307 | .I $P(NOD E,U,11)=1 S VAFCEPIC =1 D XMITF LAG^VAFCDD 01(PIVOTPT R,"",1) Q | |
7308 | "RTN","VAF CMSG",51,0 ) | |
7309 | .;Store i nfo into e vent infor mation arr ay | |
7310 | "RTN","VAF CMSG",52,0 ) | |
7311 | .K @INFOA RR | |
7312 | "RTN","VAF CMSG",53,0 ) | |
7313 | .S @INFOA RR@("PIVOT ")=PIVOTPT R | |
7314 | "RTN","VAF CMSG",54,0 ) | |
7315 | .;Event r eason code | |
7316 | "RTN","VAF CMSG",55,0 ) | |
7317 | .; 99 = Death 98 = Resur rection 97=Sensiti vity Updat e | |
7318 | "RTN","VAF CMSG",56,0 ) | |
7319 | .; Death will over write any other reas on code. I t is the | |
7320 | "RTN","VAF CMSG",57,0 ) | |
7321 | .; domin ant reason code. | |
7322 | "RTN","VAF CMSG",58,0 ) | |
7323 | .S @INFOA RR@("REASO N",1)="" | |
7324 | "RTN","VAF CMSG",59,0 ) | |
7325 | .S @INFOA RR@("REASO N",1)=$P($ G(^VAT(391 .71,PIVOTP TR,0)),"^" ,10) | |
7326 | "RTN","VAF CMSG",60,0 ) | |
7327 | .I (+$G(^ DPT(DFN,.3 5))) S @IN FOARR@("RE ASON",1)=9 9 | |
7328 | "RTN","VAF CMSG",61,0 ) | |
7329 | .; | |
7330 | "RTN","VAF CMSG",62,0 ) | |
7331 | .; user/o perator na me from du z | |
7332 | "RTN","VAF CMSG",63,0 ) | |
7333 | .S DIC="^ VA(200,",D IC(0)="MZO ",X="`"_+$ P(NODE,"^" ,9) D ^DIC | |
7334 | "RTN","VAF CMSG",64,0 ) | |
7335 | .S @INFOA RR@("USER" )=$P($G(Y) ,"^",2) | |
7336 | "RTN","VAF CMSG",65,0 ) | |
7337 | .; | |
7338 | "RTN","VAF CMSG",66,0 ) | |
7339 | .S @INFOA RR@("EVENT -NUM")=$P( NODE,"^",2 ) | |
7340 | "RTN","VAF CMSG",67,0 ) | |
7341 | .S @INFOA RR@("VAR-P TR")=$P(NO DE,"^",5) | |
7342 | "RTN","VAF CMSG",68,0 ) | |
7343 | .; | |
7344 | "RTN","VAF CMSG",69,0 ) | |
7345 | .;Broadca st ADT-A08 message | |
7346 | "RTN","VAF CMSG",70,0 ) | |
7347 | .S TMP=$$ BCSTADT^VA FCMSG0(DFN ,"A08",EDI TDATE,INFO ARR) | |
7348 | "RTN","VAF CMSG",71,0 ) | |
7349 | .;Store r esult in p ivot file | |
7350 | "RTN","VAF CMSG",72,0 ) | |
7351 | .S:$P(TMP ,U,2)]"" T MP=$P(TMP, U,2) D FIL ERM^VAFCUT L(PIVOTPTR ,TMP) | |
7352 | "RTN","VAF CMSG",73,0 ) | |
7353 | .;Error b roadcastin g message | |
7354 | "RTN","VAF CMSG",74,0 ) | |
7355 | .Q:(TMP<0 ) | |
7356 | "RTN","VAF CMSG",75,0 ) | |
7357 | .;Mark en try in piv ot file as transmitt ed | |
7358 | "RTN","VAF CMSG",76,0 ) | |
7359 | .D XMITFL AG^VAFCDD0 1(PIVOTPTR ,"",1) | |
7360 | "RTN","VAF CMSG",77,0 ) | |
7361 | .;PATCH 5 30 if lock ed by chec k unlock. | |
7362 | "RTN","VAF CMSG",78,0 ) | |
7363 | .L -^DPT( DFN) | |
7364 | "RTN","VAF CMSG",79,0 ) | |
7365 | ;Done - c lean up an d quit | |
7366 | "RTN","VAF CMSG",80,0 ) | |
7367 | K @INFOAR R | |
7368 | "RTN","VAF CMSG",81,0 ) | |
7369 | Q | |
7370 | "RTN","VAF CMSG",82,0 ) | |
7371 | ; | |
7372 | "RTN","VAF CMSG",83,0 ) | |
7373 | BCSTA04 ;B roadcast A DT-A04 mes sages for all entrie s in ADT/H L PIVOT fi le | |
7374 | "RTN","VAF CMSG",84,0 ) | |
7375 | ;(#391.71 ) that hav e been mar ked for tr ansmission | |
7376 | "RTN","VAF CMSG",85,0 ) | |
7377 | ; | |
7378 | "RTN","VAF CMSG",86,0 ) | |
7379 | ;Input : None | |
7380 | "RTN","VAF CMSG",87,0 ) | |
7381 | ;Output : None | |
7382 | "RTN","VAF CMSG",88,0 ) | |
7383 | ; | |
7384 | "RTN","VAF CMSG",89,0 ) | |
7385 | ;Declare variables | |
7386 | "RTN","VAF CMSG",90,0 ) | |
7387 | N PIVOTPT R,NODE,DFN ,EDITDATE, FIELDS,RES ULT,USER | |
7388 | "RTN","VAF CMSG",91,0 ) | |
7389 | S PIVOTPT R=0 | |
7390 | "RTN","VAF CMSG",92,0 ) | |
7391 | F S PIVO TPTR=+$O(^ VAT(391.71 ,"AXMIT",3 ,PIVOTPTR) ) Q:('PIVO TPTR) D | |
7392 | "RTN","VAF CMSG",93,0 ) | |
7393 | .;Bad ent ry in cros s referenc e - delete it and qu it | |
7394 | "RTN","VAF CMSG",94,0 ) | |
7395 | .I ('$D(^ VAT(391.71 ,PIVOTPTR) )) K ^VAT( 391.71,"AX MIT",3,PIV OTPTR) Q | |
7396 | "RTN","VAF CMSG",95,0 ) | |
7397 | .;Get eve nt date an d pointer to patient | |
7398 | "RTN","VAF CMSG",96,0 ) | |
7399 | .S NODE=$ G(^VAT(391 .71,PIVOTP TR,0)) | |
7400 | "RTN","VAF CMSG",97,0 ) | |
7401 | .S FIELDS =$G(^VAT(3 91.71,PIVO TPTR,2)) | |
7402 | "RTN","VAF CMSG",98,0 ) | |
7403 | .S USER=+ $P(NODE,"^ ",9) | |
7404 | "RTN","VAF CMSG",99,0 ) | |
7405 | .S EDITDA TE=+NODE | |
7406 | "RTN","VAF CMSG",100, 0) | |
7407 | .S DFN=+$ P(NODE,"^" ,3) | |
7408 | "RTN","VAF CMSG",101, 0) | |
7409 | .;PATCH 5 30 check f or locked record - q uit if loc ked. | |
7410 | "RTN","VAF CMSG",102, 0) | |
7411 | .L +^DPT( DFN):1 I ' $T Q | |
7412 | "RTN","VAF CMSG",103, 0) | |
7413 | .;Bad poi nter to pa tient - ma rk entry a s transmit ted and qu it | |
7414 | "RTN","VAF CMSG",104, 0) | |
7415 | .I ('$D(^ DPT(DFN,0) ))!($G(^DP T(DFN,-9)) ) D XMITFL AG^VAFCDD0 1(PIVOTPTR ,"",1) Q | |
7416 | "RTN","VAF CMSG",105, 0) | |
7417 | .I $P(^DP T(DFN,0),U )="" D XMI TFLAG^VAFC DD01(PIVOT PTR,"",1) Q | |
7418 | "RTN","VAF CMSG",106, 0) | |
7419 | .I '$D(^D PT("B",$P( ^DPT(DFN,0 ),U),DFN)) D XMITFLA G^VAFCDD01 (PIVOTPTR, "",1) Q | |
7420 | "RTN","VAF CMSG",107, 0) | |
7421 | .D TRIGDE M^DGMXADT( DFN) | |
7422 | "RTN","VAF CMSG",108, 0) | |
7423 | .;Check i f the Pivo t File ent ry was cre ated by MA SS/EPIC | |
7424 | "RTN","VAF CMSG",109, 0) | |
7425 | .I $P(NOD E,U,11)=1 S VAFCEPIC =1 D XMITF LAG^VAFCDD 01(PIVOTPT R,"",1) Q | |
7426 | "RTN","VAF CMSG",110, 0) | |
7427 | .;Broadca st ADT-A04 message | |
7428 | "RTN","VAF CMSG",111, 0) | |
7429 | .S RESULT =$$EN^VAFC A04(DFN,ED ITDATE,USE R,PIVOTPTR ) | |
7430 | "RTN","VAF CMSG",112, 0) | |
7431 | .D XMITFL AG^VAFCDD0 1(PIVOTPTR ,"",1) | |
7432 | "RTN","VAF CMSG",113, 0) | |
7433 | .L -^DPT( DFN) | |
7434 | "RTN","VAF CMSG",114, 0) | |
7435 | ;Done - q uit | |
7436 | "RTN","VAF CMSG",115, 0) | |
7437 | Q | |
7438 | "RTN","VAF HLZSP") | |
7439 | 0^3^B57388 66 | |
7440 | "RTN","VAF HLZSP",1,0 ) | |
7441 | VAFHLZSP ; ALB/RJS,TD M,PJH - ZS P SEGMENT - 3/18/96 ; 5/30/07 4:21pm | |
7442 | "RTN","VAF HLZSP",2,0 ) | |
7443 | ;;5.3;Reg istration; **94,106,1 22,220,653 ,754,948** ;Aug 13, 1 993;Build 66 | |
7444 | "RTN","VAF HLZSP",3,0 ) | |
7445 | EN(DFN,VAF NUM,VAFAMB ) ; | |
7446 | "RTN","VAF HLZSP",4,0 ) | |
7447 | N VAROOT, VAFHROOT,V AFY,VAFNOD E,VIETSRV, SERVCONN,P ERCENT,POS ,RETURN | |
7448 | "RTN","VAF HLZSP",5,0 ) | |
7449 | S VAROOT= "VAFHROOT" | |
7450 | "RTN","VAF HLZSP",6,0 ) | |
7451 | D ELIG^VA DPT | |
7452 | "RTN","VAF HLZSP",7,0 ) | |
7453 | ;- ALB/ES D - Added VAFNUM as part of Am bulatory C are Report ing Projec t | |
7454 | "RTN","VAF HLZSP",8,0 ) | |
7455 | ; requir ements. | |
7456 | "RTN","VAF HLZSP",9,0 ) | |
7457 | S VAFNUM= $S($G(VAFN UM):VAFNUM ,1:1) | |
7458 | "RTN","VAF HLZSP",10, 0) | |
7459 | S VAFAMB= +$G(VAFAMB ,1) | |
7460 | "RTN","VAF HLZSP",11, 0) | |
7461 | I $P(VAFH ROOT(3),U, 1)=1 S SER VCONN="Y", PERCENT=$P (VAFHROOT( 3),U,2) | |
7462 | "RTN","VAF HLZSP",12, 0) | |
7463 | I $P(VAFH ROOT(3),U, 1)=0 S SER VCONN="N" | |
7464 | "RTN","VAF HLZSP",13, 0) | |
7465 | I VAFHROO T(2)'="" S POS=$P($G (^DIC(21,+ VAFHROOT(2 ),0)),U,3) | |
7466 | "RTN","VAF HLZSP",14, 0) | |
7467 | I '$D(SER VCONN) S S ERVCONN="" """" | |
7468 | "RTN","VAF HLZSP",15, 0) | |
7469 | I '$D(PER CENT) S PE RCENT="""" "" | |
7470 | "RTN","VAF HLZSP",16, 0) | |
7471 | I '$D(POS ) S POS="" """" | |
7472 | "RTN","VAF HLZSP",17, 0) | |
7473 | ; | |
7474 | "RTN","VAF HLZSP",18, 0) | |
7475 | ;- Conver t Y/N to 1 /0 (HL7 Ta ble VA01) | |
7476 | "RTN","VAF HLZSP",19, 0) | |
7477 | I $D(SERV CONN) S SE RVCONN=$$Y N^VAFHLFNC (SERVCONN) | |
7478 | "RTN","VAF HLZSP",20, 0) | |
7479 | S RETURN= "ZSP"_HLFS _VAFNUM_HL FS_SERVCON N_HLFS_PER CENT_HLFS_ POS | |
7480 | "RTN","VAF HLZSP",21, 0) | |
7481 | ;- ALB/ES D - Get 'V ietnam Ser vice Indic ated?' fie ld from PA TIENT file | |
7482 | "RTN","VAF HLZSP",22, 0) | |
7483 | ; (requi red by Amb ulatory Ca re Reporti ng Project ). | |
7484 | "RTN","VAF HLZSP",23, 0) | |
7485 | ;I +$G(VA FAMB)=1 D | |
7486 | "RTN","VAF HLZSP",24, 0) | |
7487 | ;. ; | |
7488 | "RTN","VAF HLZSP",25, 0) | |
7489 | ;. ;- 'Vi etnam Serv ice Indica ted?' fiel d = Y, N, or U (UNKN OWN) | |
7490 | "RTN","VAF HLZSP",26, 0) | |
7491 | ;. S VIET SRV=$P($G( ^DPT(DFN,. 321)),"^") | |
7492 | "RTN","VAF HLZSP",27, 0) | |
7493 | ;. I $G(V IETSRV)="" S VIETSRV ="""""" | |
7494 | "RTN","VAF HLZSP",28, 0) | |
7495 | ;. S RETU RN=RETURN_ HLFS_VIETS RV | |
7496 | "RTN","VAF HLZSP",29, 0) | |
7497 | ; | |
7498 | "RTN","VAF HLZSP",30, 0) | |
7499 | ;- DG*5.3 *220 REMOV ED CHECK F OR VAFAMB PARAMETER | |
7500 | "RTN","VAF HLZSP",31, 0) | |
7501 | ;'Vietnam Service I ndicated?' field = Y , N, or U (UNKNOWN) | |
7502 | "RTN","VAF HLZSP",32, 0) | |
7503 | S VIETSRV =$P($G(^DP T(DFN,.321 )),"^") | |
7504 | "RTN","VAF HLZSP",33, 0) | |
7505 | I $G(VIET SRV)="" S VIETSRV="" """" | |
7506 | "RTN","VAF HLZSP",34, 0) | |
7507 | S RETURN= RETURN_HLF S_VIETSRV | |
7508 | "RTN","VAF HLZSP",35, 0) | |
7509 | ; | |
7510 | "RTN","VAF HLZSP",36, 0) | |
7511 | ; **** AL B/KCL - Pa tch DG*5.3 *122; Add additional data fiel ds **** | |
7512 | "RTN","VAF HLZSP",37, 0) | |
7513 | S VAFNODE =$G(^DPT(D FN,.3)) | |
7514 | "RTN","VAF HLZSP",38, 0) | |
7515 | S $P(VAFY ,HLFS,3)=" ",HLQ=$S($ D(HLQ):HLQ ,1:"""""") | |
7516 | "RTN","VAF HLZSP",39, 0) | |
7517 | S $P(VAFY ,HLFS,1)=$ S($P(VAFNO DE,"^",4)] "":$$YN^VA FHLFNC($P( VAFNODE,"^ ",4)),1:HL Q) ; P&T | |
7518 | "RTN","VAF HLZSP",40, 0) | |
7519 | S $P(VAFY ,HLFS,2)=$ S($P(VAFNO DE,"^",5)] "":$$YN^VA FHLFNC($P( VAFNODE,"^ ",5)),1:HL Q) ; Unemp loyable | |
7520 | "RTN","VAF HLZSP",41, 0) | |
7521 | S $P(VAFY ,HLFS,3)=$ S($P(VAFNO DE,"^",12) ]"":$$HLDA TE^HLFNC($ P(VAFNODE, "^",12)),1 :HLQ) ; SC Award Dat e | |
7522 | "RTN","VAF HLZSP",42, 0) | |
7523 | S $P(VAFY ,HLFS,5)=$ S($P(VAFNO DE,"^",13) ]"":$$HLDA TE^HLFNC($ P(VAFNODE, "^",13)),1 :HLQ) ; P& T Effectiv e Date | |
7524 | "RTN","VAF HLZSP",43, 0) | |
7525 | ; **** PJ H - Patch DG*5.3*754 ; Add addi tional dat a field ** ** | |
7526 | "RTN","VAF HLZSP",44, 0) | |
7527 | S $P(VAFY ,HLFS,6)=$ S($P(VAFNO DE,"^",14) ]"":$$HLDA TE^HLFNC($ P(VAFNODE, "^",14)),1 :HLQ) ; Co mbined SC percent Ef fective Da te | |
7528 | "RTN","VAF HLZSP",45, 0) | |
7529 | S $P(VAFY ,HLFS,7)=$ $GET1^DIQ( 2,DFN_",", 220) ;Dent al Classif ication | |
7530 | "RTN","VAF HLZSP",46, 0) | |
7531 | ; | |
7532 | "RTN","VAF HLZSP",47, 0) | |
7533 | S RETURN= RETURN_HLF S_$G(VAFY) | |
7534 | "RTN","VAF HLZSP",48, 0) | |
7535 | ; | |
7536 | "RTN","VAF HLZSP",49, 0) | |
7537 | ; | |
7538 | "RTN","VAF HLZSP",50, 0) | |
7539 | D KVAR^VA DPT | |
7540 | "RTN","VAF HLZSP",51, 0) | |
7541 | Q RETURN | |
7542 | "UP",2,2.0 1,-1) | |
7543 | 2^.01 | |
7544 | "UP",2,2.0 1,0) | |
7545 | 2.01 | |
7546 | "UP",2,2.0 361,-1) | |
7547 | 2^E | |
7548 | "UP",2,2.0 361,0) | |
7549 | 2.0361 | |
7550 | "VER") | |
7551 | 8.0^22.2 | |
7552 | "^DD",2,2, .01,0) | |
7553 | NAME^RFXa^ ^0;1^K:$L( X)>30!($L( X)<3) X I $D(X) S DG 20NAME=X,( X,DG20NAME )=$$FORMAT ^XLFNAME7( .DG20NAME, 3,30) K:'$ L(X) X,DG2 0NAME S:$D (X) DGNEWV AL=X | |
7554 | "^DD",2,2, .01,.1) | |
7555 | ||
7556 | "^DD",2,2, .01,1,0) | |
7557 | ^.1^^-1 | |
7558 | "^DD",2,2, .01,1,1,0) | |
7559 | 2^B | |
7560 | "^DD",2,2, .01,1,1,1) | |
7561 | S ^DPT("B" ,$E(X,1,30 ),DA)="" | |
7562 | "^DD",2,2, .01,1,1,2) | |
7563 | K ^DPT("B" ,$E(X,1,30 ),DA) | |
7564 | "^DD",2,2, .01,1,2,0) | |
7565 | 2^BS5^MUMP S | |
7566 | "^DD",2,2, .01,1,2,1) | |
7567 | Q:$P(^DPT( DA,0),U,9) ']"" S ^D PT("BS5",$ E(X,1)_$E( $P(^(0),U, 9),6,9),DA )="" | |
7568 | "^DD",2,2, .01,1,2,2) | |
7569 | Q:$P(^DPT( DA,0),U,9) ']"" K ^D PT("BS5",$ E(X,1)_$E( $P(^(0),U, 9),6,9),DA ) | |
7570 | "^DD",2,2, .01,1,4,0) | |
7571 | 2^AODS2^MU MPS | |
7572 | "^DD",2,2, .01,1,4,1) | |
7573 | S A1B2TAG= "PAT" D ^A 1B2XFR | |
7574 | "^DD",2,2, .01,1,4,2) | |
7575 | S A1B2TAG= "PAT" D ^A 1B2XFR | |
7576 | "^DD",2,2, .01,1,5,0) | |
7577 | 2^ABUL^MUM PS | |
7578 | "^DD",2,2, .01,1,5,1) | |
7579 | K DGNEWVAL Q | |
7580 | "^DD",2,2, .01,1,5,2) | |
7581 | S DFN=DA D ^DGPATN K DGNEWVAL Q | |
7582 | "^DD",2,2, .01,1,5,"% D",0) | |
7583 | ^^2^2^2950 110^ | |
7584 | "^DD",2,2, .01,1,5,"% D",1,0) | |
7585 | This cross -reference will gene rate a mai l message when a pat ient is de leted | |
7586 | "^DD",2,2, .01,1,5,"% D",2,0) | |
7587 | or the pat ient's nam e is chang ed. | |
7588 | "^DD",2,2, .01,1,5,"D T") | |
7589 | 2950110 | |
7590 | "^DD",2,2, .01,1,301, 0) | |
7591 | 2^IVM01^MU MPS | |
7592 | "^DD",2,2, .01,1,301, 1) | |
7593 | S IVMX=X,X ="IVMPXFR" X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX | |
7594 | "^DD",2,2, .01,1,301, 2) | |
7595 | S IVMX=X,X ="IVMPXFR" X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX | |
7596 | "^DD",2,2, .01,1,301, "%D",0) | |
7597 | ^^5^5^2930 513^ | |
7598 | "^DD",2,2, .01,1,301, "%D",1,0) | |
7599 | This cross -reference will chec k the IVM PATIENT fi le to see if a chang e | |
7600 | "^DD",2,2, .01,1,301, "%D",2,0) | |
7601 | to this fi eld will r equire tra nsmission to the IVM Center. If it does , | |
7602 | "^DD",2,2, .01,1,301, "%D",3,0) | |
7603 | the IVM PA TIENT file entry's T RANSMISSIO N STATUS w ill be set to 0 and | |
7604 | "^DD",2,2, .01,1,301, "%D",4,0) | |
7605 | the nightl y backgrou nd job wil l transmit the updat ed informa tion. | |
7606 | "^DD",2,2, .01,1,301, "DT") | |
7607 | 2930513 | |
7608 | "^DD",2,2, .01,1,991, 0) | |
7609 | 2^AVAFC01^ MUMPS | |
7610 | "^DD",2,2, .01,1,991, 1) | |
7611 | I '$D(DFN) ,($T(AVAFC ^VAFCDD01) '="") S VA FCF=".01;" D AVAFC^V AFCDD01(DA ) | |
7612 | "^DD",2,2, .01,1,991, 2) | |
7613 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".01; " D AVAFC^ VAFCDD01(D A) | |
7614 | "^DD",2,2, .01,1,991, "%D",0) | |
7615 | ^^15^15^29 90204^^^^ | |
7616 | "^DD",2,2, .01,1,991, "%D",1,0) | |
7617 | This cross reference is used t o remember that chan ges were m ade to the | |
7618 | "^DD",2,2, .01,1,991, "%D",2,0) | |
7619 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
7620 | "^DD",2,2, .01,1,991, "%D",3,0) | |
7621 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
7622 | "^DD",2,2, .01,1,991, "%D",4,0) | |
7623 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
7624 | "^DD",2,2, .01,1,991, "%D",5,0) | |
7625 | ||
7626 | "^DD",2,2, .01,1,991, "%D",6,0) | |
7627 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is | |
7628 | "^DD",2,2, .01,1,991, "%D",7,0) | |
7629 | not execut ed because the chang e is being made from within th e Registra tion | |
7630 | "^DD",2,2, .01,1,991, "%D",8,0) | |
7631 | process. | |
7632 | "^DD",2,2, .01,1,991, "%D",9,0) | |
7633 | ||
7634 | "^DD",2,2, .01,1,991, "%D",10,0) | |
7635 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
7636 | "^DD",2,2, .01,1,991, "%D",11,0) | |
7637 | variable V AFCA08 equ al to 1. | |
7638 | "^DD",2,2, .01,1,991, "%D",12,0) | |
7639 | ||
7640 | "^DD",2,2, .01,1,991, "%D",13,0) | |
7641 | The local variable V AFCF is us ed to iden tify the f ield edite d. | |
7642 | "^DD",2,2, .01,1,991, "%D",14,0) | |
7643 | This data is stored in the FIE LD(S) EDIT ED (#2.1) field in t he | |
7644 | "^DD",2,2, .01,1,991, "%D",15,0) | |
7645 | ADT/HL7 PI VOT file ( #391.71). | |
7646 | "^DD",2,2, .01,1,991, "DT") | |
7647 | 2970825 | |
7648 | "^DD",2,2, .01,1,992, 0) | |
7649 | 2^AMPIMIS^ MUMPS | |
7650 | "^DD",2,2, .01,1,992, 1) | |
7651 | I $T(SET^V AFCMIS)'=" "&('$D(VAF CNO)) D SE T^VAFCMIS( DA) | |
7652 | "^DD",2,2, .01,1,992, 2) | |
7653 | I $T(KILL^ VAFCMIS)'= ""&('$D(VA FCNO)) D K ILL^VAFCMI S(DA) | |
7654 | "^DD",2,2, .01,1,992, "%D",0) | |
7655 | ^^4^4^2980 114^^^^ | |
7656 | "^DD",2,2, .01,1,992, "%D",1,0) | |
7657 | Temporary cross refe rence that lets the MPI Missin g ICN job know that a | |
7658 | "^DD",2,2, .01,1,992, "%D",2,0) | |
7659 | patient wa s added to the Patie nt file, v ia another package o ther than | |
7660 | "^DD",2,2, .01,1,992, "%D",3,0) | |
7661 | PIMS, and needs to g et an ICN. Once the ICN is as signed (lo cal or | |
7662 | "^DD",2,2, .01,1,992, "%D",4,0) | |
7663 | national) the cross reference is killed. | |
7664 | "^DD",2,2, .01,1,992, "DT") | |
7665 | 3030603 | |
7666 | "^DD",2,2, .01,1,993, 0) | |
7667 | 2^ADGRU01^ MUMPS | |
7668 | "^DD",2,2, .01,1,993, 1) | |
7669 | D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA) | |
7670 | "^DD",2,2, .01,1,993, 2) | |
7671 | D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA) | |
7672 | "^DD",2,2, .01,1,993, "%D",0) | |
7673 | ^^9^9^3000 208^ | |
7674 | "^DD",2,2, .01,1,993, "%D",1,0) | |
7675 | This cross reference is used t o remember that chan ges were m ade to a | |
7676 | "^DD",2,2, .01,1,993, "%D",2,0) | |
7677 | monitored data field in the PA TIENT File (#2) requ ired for a vendor | |
7678 | "^DD",2,2, .01,1,993, "%D",3,0) | |
7679 | RAI/MDS CO TS system. Executio n of this cross refe rence will create an | |
7680 | "^DD",2,2, .01,1,993, "%D",4,0) | |
7681 | entry in t he ADT/HL7 PIVOT fil e (#391.71 ) and mark it as req uiring | |
7682 | "^DD",2,2, .01,1,993, "%D",5,0) | |
7683 | transmissi on of an H L7 demogra phic A08 u pdate mess age to the COTS | |
7684 | "^DD",2,2, .01,1,993, "%D",6,0) | |
7685 | interface. | |
7686 | "^DD",2,2, .01,1,993, "%D",7,0) | |
7687 | ||
7688 | "^DD",2,2, .01,1,993, "%D",8,0) | |
7689 | The local variable D GRUGA08 wi ll be set to 1 if th e cross re ference is not | |
7690 | "^DD",2,2, .01,1,993, "%D",9,0) | |
7691 | to be exec uted as pa rt of a re -indexing. | |
7692 | "^DD",2,2, .01,1,993, "DT") | |
7693 | 3000208 | |
7694 | "^DD",2,2, .01,3) | |
7695 | Enter name in 'LAST, FIRST MIDD LE SUFFIX' format, m ust be 3-3 0 characte rs in leng th. | |
7696 | "^DD",2,2, .01,7.5) | |
7697 | D INPUT^DG RPDD1 | |
7698 | "^DD",2,2, .01,20,0) | |
7699 | ^.3LA^1^1 | |
7700 | "^DD",2,2, .01,20,1,0 ) | |
7701 | DEMOG^ | |
7702 | "^DD",2,2, .01,21,0) | |
7703 | ^^4^4^2990 208^^^^ | |
7704 | "^DD",2,2, .01,21,1,0 ) | |
7705 | Enter the patient's name in 'L AST,FIRST MIDDLE SUF FIX' forma t. | |
7706 | "^DD",2,2, .01,21,2,0 ) | |
7707 | This value must be 3 -30 charac ters in le ngth and m ay contain only uppe rcase | |
7708 | "^DD",2,2, .01,21,3,0 ) | |
7709 | alpha char acters, sp aces, apos trophes, h yphens and one comma . All oth er | |
7710 | "^DD",2,2, .01,21,4,0 ) | |
7711 | characters and paren thetical t ext will b e removed. | |
7712 | "^DD",2,2, .01,"AUDIT ") | |
7713 | y | |
7714 | "^DD",2,2, .01,"AX") | |
7715 | I 1 | |
7716 | "^DD",2,2, .01,"DEL", 100,0) | |
7717 | I $D(^OR(1 00,"ACT",D A_";DPT(") ) D EN^DDI OL("Patien t orders m ust be del eted first .","","!?0 ") | |
7718 | "^DD",2,2, .01,"DEL", 401,0) | |
7719 | I $O(^DGPM ("C",DA,0) ) W *7,!," Delete Pat ient Movem ents First ",! | |
7720 | "^DD",2,2, .01,"DEL", 1900,0) | |
7721 | I $N(^DPT( DA,"S",DT) )+1 W *7,! ,"APPOINTM ENT(S) PEN DING!" | |
7722 | "^DD",2,2, .01,"DEL", 3000,0) | |
7723 | I $N(^PS(5 5,DA,"P",0 ))+1 W *7, !,"PATIENT HAS OUTPA TIENT PRES CRIPTIONS" | |
7724 | "^DD",2,2, .01,"DEL", 999999,0) | |
7725 | D DEL^DPTL K2 | |
7726 | "^DD",2,2, .01,"DT") | |
7727 | 3060923 | |
7728 | "^DD",2,2, .02,0) | |
7729 | SEX^RSa^M: MALE;F:FEM ALE;^0;2^Q | |
7730 | "^DD",2,2, .02,1,0) | |
7731 | ^.1^^-1 | |
7732 | "^DD",2,2, .02,1,1,0) | |
7733 | 2^ASX | |
7734 | "^DD",2,2, .02,1,1,1) | |
7735 | S ^DPT("AS X",$E(X,1, 30),DA)="" | |
7736 | "^DD",2,2, .02,1,1,2) | |
7737 | K ^DPT("AS X",$E(X,1, 30),DA) | |
7738 | "^DD",2,2, .02,1,2,0) | |
7739 | 2^AENR02^M UMPS | |
7740 | "^DD",2,2, .02,1,2,1) | |
7741 | D EVENT^IV MPLOG(DA) | |
7742 | "^DD",2,2, .02,1,2,2) | |
7743 | D EVENT^IV MPLOG(DA) | |
7744 | "^DD",2,2, .02,1,2,3) | |
7745 | DO NOT DEL ETE | |
7746 | "^DD",2,2, .02,1,2,"% D",0) | |
7747 | ^^2^2^2971 007^^^ | |
7748 | "^DD",2,2, .02,1,2,"% D",1,0) | |
7749 | This cross -reference is used t o notify H EC of chan ges that m ay affect | |
7750 | "^DD",2,2, .02,1,2,"% D",2,0) | |
7751 | enrollment . | |
7752 | "^DD",2,2, .02,1,2,"D T") | |
7753 | 2971007 | |
7754 | "^DD",2,2, .02,1,301, 0) | |
7755 | 2^IVM02^MU MPS | |
7756 | "^DD",2,2, .02,1,301, 1) | |
7757 | S IVMX=X,X ="IVMPXFR" X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX | |
7758 | "^DD",2,2, .02,1,301, 2) | |
7759 | S IVMX=X,I VMKILL=2,X ="IVMPXFR" X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX ,IVMKILL | |
7760 | "^DD",2,2, .02,1,301, "%D",0) | |
7761 | ^^8^8^2991 027^ | |
7762 | "^DD",2,2, .02,1,301, "%D",1,0) | |
7763 | This cross -reference will chec k the IVM PATIENT fi le to see if a chang e | |
7764 | "^DD",2,2, .02,1,301, "%D",2,0) | |
7765 | to this fi eld will r equire tra nsmission to the IVM Center. If it does , | |
7766 | "^DD",2,2, .02,1,301, "%D",3,0) | |
7767 | the IVM PA TIENT file entry's T RANSMISSIO N STATUS w ill be set to 0 and | |
7768 | "^DD",2,2, .02,1,301, "%D",4,0) | |
7769 | the nightl y backgrou nd job wil l transmit the updat ed informa tion. | |
7770 | "^DD",2,2, .02,1,301, "%D",5,0) | |
7771 | ||
7772 | "^DD",2,2, .02,1,301, "%D",6,0) | |
7773 | Also, if t his field is edited, this cros s-referenc e will che ck to see if the | |
7774 | "^DD",2,2, .02,1,301, "%D",7,0) | |
7775 | patient re quires a f inancial q uery to be sent to t he IVM Cen ter (Data | |
7776 | "^DD",2,2, .02,1,301, "%D",8,0) | |
7777 | Collection Division (DCD). | |
7778 | "^DD",2,2, .02,1,301, "DT") | |
7779 | 2991027 | |
7780 | "^DD",2,2, .02,1,991, 0) | |
7781 | 2^AVAFC02^ MUMPS | |
7782 | "^DD",2,2, .02,1,991, 1) | |
7783 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".02; " D AVAFC^ VAFCDD01(D A) | |
7784 | "^DD",2,2, .02,1,991, 2) | |
7785 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".02; " D AVAFC^ VAFCDD01(D A) | |
7786 | "^DD",2,2, .02,1,991, "%D",0) | |
7787 | ^^15^15^29 90204^^^^ | |
7788 | "^DD",2,2, .02,1,991, "%D",1,0) | |
7789 | This cross reference is used t o remember that chan ges were m ade to the | |
7790 | "^DD",2,2, .02,1,991, "%D",2,0) | |
7791 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
7792 | "^DD",2,2, .02,1,991, "%D",3,0) | |
7793 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
7794 | "^DD",2,2, .02,1,991, "%D",4,0) | |
7795 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
7796 | "^DD",2,2, .02,1,991, "%D",5,0) | |
7797 | ||
7798 | "^DD",2,2, .02,1,991, "%D",6,0) | |
7799 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is | |
7800 | "^DD",2,2, .02,1,991, "%D",7,0) | |
7801 | not execut ed because the chang e is being made from within th e Registra tion | |
7802 | "^DD",2,2, .02,1,991, "%D",8,0) | |
7803 | process. | |
7804 | "^DD",2,2, .02,1,991, "%D",9,0) | |
7805 | ||
7806 | "^DD",2,2, .02,1,991, "%D",10,0) | |
7807 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
7808 | "^DD",2,2, .02,1,991, "%D",11,0) | |
7809 | variable V AFCA08 equ al to 1. | |
7810 | "^DD",2,2, .02,1,991, "%D",12,0) | |
7811 | ||
7812 | "^DD",2,2, .02,1,991, "%D",13,0) | |
7813 | The local variable V AFCF is us ed to iden tify the f ield edite d. | |
7814 | "^DD",2,2, .02,1,991, "%D",14,0) | |
7815 | This data is stored in the FIE LD(S) EDIT ED (#2.1) field in t he | |
7816 | "^DD",2,2, .02,1,991, "%D",15,0) | |
7817 | ADT/HL7 PI VOT file ( #391.71). | |
7818 | "^DD",2,2, .02,1,991, "DT") | |
7819 | 2970825 | |
7820 | "^DD",2,2, .02,1,992, 0) | |
7821 | 2^ADGRU02^ MUMPS | |
7822 | "^DD",2,2, .02,1,992, 1) | |
7823 | D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA) | |
7824 | "^DD",2,2, .02,1,992, 2) | |
7825 | D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA) | |
7826 | "^DD",2,2, .02,1,992, "%D",0) | |
7827 | ^^9^9^2990 920^ | |
7828 | "^DD",2,2, .02,1,992, "%D",1,0) | |
7829 | This cross reference is used t o remember that chan ges were m ade to a | |
7830 | "^DD",2,2, .02,1,992, "%D",2,0) | |
7831 | monitored data field in the PA TIENT File (#2) requ ired for a vendor | |
7832 | "^DD",2,2, .02,1,992, "%D",3,0) | |
7833 | RAI/MDS CO TS system. Executio n of this cross refe rence will create | |
7834 | "^DD",2,2, .02,1,992, "%D",4,0) | |
7835 | an entry i n the ADT/ HL7 PIVOT file (#391 .71) and m ark it as requiring | |
7836 | "^DD",2,2, .02,1,992, "%D",5,0) | |
7837 | transmissi on of an H L7 demogra phic A08 u pdate mess age to the COTS | |
7838 | "^DD",2,2, .02,1,992, "%D",6,0) | |
7839 | interface. | |
7840 | "^DD",2,2, .02,1,992, "%D",7,0) | |
7841 | ||
7842 | "^DD",2,2, .02,1,992, "%D",8,0) | |
7843 | The local variable D GRUGA08 wi ll be set to 1 if th e cross re ference is | |
7844 | "^DD",2,2, .02,1,992, "%D",9,0) | |
7845 | not to be executed a s part of a re-index ing. | |
7846 | "^DD",2,2, .02,1,992, "DT") | |
7847 | 2990920 | |
7848 | "^DD",2,2, .02,3) | |
7849 | Enter 'M' for MALE, or 'F' for FEMALE. | |
7850 | "^DD",2,2, .02,20,0) | |
7851 | ^.3LA^1^1 | |
7852 | "^DD",2,2, .02,20,1,0 ) | |
7853 | DEMOG^ | |
7854 | "^DD",2,2, .02,21,0) | |
7855 | ^^1^1^2920 721^^^ | |
7856 | "^DD",2,2, .02,21,1,0 ) | |
7857 | Enter 'M' if this ap plicant is a male, o r 'F' if f emale. | |
7858 | "^DD",2,2, .02,"AUDIT ") | |
7859 | y | |
7860 | "^DD",2,2, .02,"DT") | |
7861 | 3060624 | |
7862 | "^DD",2,2, .024,0) | |
7863 | SELF IDENT IFIED GEND ER^Sa^M:Ma le;F:Femal e;TM:Trans male/Trans man/Female -to-Male;T F:Transfem ale/Transw oman/Male- to-Female; O:Other;N: individual chooses n ot to answ er;^.24;4^ Q | |
7864 | "^DD",2,2, .024,1,0) | |
7865 | ^.1 | |
7866 | "^DD",2,2, .024,1,1,0 ) | |
7867 | 2^AZ^MUMPS | |
7868 | "^DD",2,2, .024,1,1,1 ) | |
7869 | S VAFCF=". 024;",DGMX EPIC=1 D A VAFC^VAFCD D01(DA) | |
7870 | "^DD",2,2, .024,1,1,2 ) | |
7871 | S VAFCF=". 024;",DGMX EPIC=1 D A VAFC^VAFCD D01(DA) | |
7872 | "^DD",2,2, .024,1,1," %D",0) | |
7873 | ^.101^19^1 9^3180208^ ^^ | |
7874 | "^DD",2,2, .024,1,1," %D",1,0) | |
7875 | This cross reference is used t o remember that chan ges were m ade to the | |
7876 | "^DD",2,2, .024,1,1," %D",2,0) | |
7877 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
7878 | "^DD",2,2, .024,1,1," %D",3,0) | |
7879 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
7880 | "^DD",2,2, .024,1,1," %D",4,0) | |
7881 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
7882 | "^DD",2,2, .024,1,1," %D",5,0) | |
7883 | ||
7884 | "^DD",2,2, .024,1,1," %D",6,0) | |
7885 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
7886 | "^DD",2,2, .024,1,1," %D",7,0) | |
7887 | executed b ecause the change is being mad e from wit hin the Re gistration | |
7888 | "^DD",2,2, .024,1,1," %D",8,0) | |
7889 | process. | |
7890 | "^DD",2,2, .024,1,1," %D",9,0) | |
7891 | ||
7892 | "^DD",2,2, .024,1,1," %D",10,0) | |
7893 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
7894 | "^DD",2,2, .024,1,1," %D",11,0) | |
7895 | variable V AFCA08 equ al to 1. | |
7896 | "^DD",2,2, .024,1,1," %D",12,0) | |
7897 | ||
7898 | "^DD",2,2, .024,1,1," %D",13,0) | |
7899 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
7900 | "^DD",2,2, .024,1,1," %D",14,0) | |
7901 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
7902 | "^DD",2,2, .024,1,1," %D",15,0) | |
7903 | (#391.71). | |
7904 | "^DD",2,2, .024,1,1," %D",16,0) | |
7905 | ||
7906 | "^DD",2,2, .024,1,1," %D",17,0) | |
7907 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
7908 | "^DD",2,2, .024,1,1," %D",18,0) | |
7909 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
7910 | "^DD",2,2, .024,1,1," %D",19,0) | |
7911 | transmissi on only. | |
7912 | "^DD",2,2, .024,1,1," DT") | |
7913 | 3180208 | |
7914 | "^DD",2,2, .024,3) | |
7915 | Select the code that specifies the patie nt's prefe rred gende r. | |
7916 | "^DD",2,2, .024,21,0) | |
7917 | ^^2^2^3170 320^ | |
7918 | "^DD",2,2, .024,21,1, 0) | |
7919 | This SELF IDENTIFIED GENDER va lue indica tes the pa tient's vi ew of thei r | |
7920 | "^DD",2,2, .024,21,2, 0) | |
7921 | gender ide ntity, if they choos e to provi de it. | |
7922 | "^DD",2,2, .024,"AUDI T") | |
7923 | y | |
7924 | "^DD",2,2, .024,"DT") | |
7925 | 3180208 | |
7926 | "^DD",2,2, .03,0) | |
7927 | DATE OF BI RTH^RDXOa^ ^0;3^S %DT ="EP" D ^% DT S X=Y K :1701231>X !(DT<X) X I $D(X) D BIRTH^DGLO CK | |
7928 | "^DD",2,2, .03,.1) | |
7929 | DOB | |
7930 | "^DD",2,2, .03,1,0) | |
7931 | ^.1 | |
7932 | "^DD",2,2, .03,1,1,0) | |
7933 | 2^ADOB | |
7934 | "^DD",2,2, .03,1,1,1) | |
7935 | S ^DPT("AD OB",$E(X,1 ,30),DA)=" " | |
7936 | "^DD",2,2, .03,1,1,2) | |
7937 | K ^DPT("AD OB",$E(X,1 ,30),DA) | |
7938 | "^DD",2,2, .03,1,2,0) | |
7939 | ^^TRIGGER^ 2^.083 | |
7940 | "^DD",2,2, .03,1,2,1) | |
7941 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,0)):^(0), 1:"") S X= $P(Y(1),U, 20),X=X S DIU=X K Y S X=DIV S X="1" S DI H=$G(^DPT( DIV(0),0)) ,DIV=X S $ P(^(0),U,2 0)=DIV,DIH =2,DIG=.08 3 D ^DICR | |
7942 | "^DD",2,2, .03,1,2,2) | |
7943 | Q | |
7944 | "^DD",2,2, .03,1,2,"C REATE VALU E") | |
7945 | "1" | |
7946 | "^DD",2,2, .03,1,2,"D ELETE VALU E") | |
7947 | NO EFFECT | |
7948 | "^DD",2,2, .03,1,2,"D T") | |
7949 | 3080310 | |
7950 | "^DD",2,2, .03,1,2,"F IELD") | |
7951 | #.083 | |
7952 | "^DD",2,2, .03,1,3,0) | |
7953 | 2^AODS3^MU MPS | |
7954 | "^DD",2,2, .03,1,3,1) | |
7955 | S A1B2TAG= "PAT" D ^A 1B2XFR | |
7956 | "^DD",2,2, .03,1,3,2) | |
7957 | S A1B2TAG= "PAT" D ^A 1B2XFR | |
7958 | "^DD",2,2, .03,1,301, 0) | |
7959 | 2^IVM03^MU MPS | |
7960 | "^DD",2,2, .03,1,301, 1) | |
7961 | S IVMX=X,X ="IVMPXFR" X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX | |
7962 | "^DD",2,2, .03,1,301, 2) | |
7963 | S IVMX=X,I VMKILL=3,X ="IVMPXFR" X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX ,IVMKILL | |
7964 | "^DD",2,2, .03,1,301, "%D",0) | |
7965 | ^^8^8^2991 027^ | |
7966 | "^DD",2,2, .03,1,301, "%D",1,0) | |
7967 | This cross -reference will chec k the IVM PATIENT fi le to see if a chang e | |
7968 | "^DD",2,2, .03,1,301, "%D",2,0) | |
7969 | to this fi eld will r equire tra nsmission to the IVM Center. If it does , | |
7970 | "^DD",2,2, .03,1,301, "%D",3,0) | |
7971 | the IVM PA TIENT file entry's T RANSMISSIO N STATUS w ill be set to 0 and | |
7972 | "^DD",2,2, .03,1,301, "%D",4,0) | |
7973 | the nightl y backgrou nd job wil l transmit the updat ed informa tion. | |
7974 | "^DD",2,2, .03,1,301, "%D",5,0) | |
7975 | ||
7976 | "^DD",2,2, .03,1,301, "%D",6,0) | |
7977 | Also, if t his field is edited, this cros s-referenc e will che ck to see if the | |
7978 | "^DD",2,2, .03,1,301, "%D",7,0) | |
7979 | patient re quires a f inancial q uery to be sent to t he IVM Cen ter (Data | |
7980 | "^DD",2,2, .03,1,301, "%D",8,0) | |
7981 | Collection Division (DCD). | |
7982 | "^DD",2,2, .03,1,301, "DT") | |
7983 | 2991027 | |
7984 | "^DD",2,2, .03,1,991, 0) | |
7985 | 2^AVAFC03^ MUMPS | |
7986 | "^DD",2,2, .03,1,991, 1) | |
7987 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".03; " D AVAFC^ VAFCDD01(D A) | |
7988 | "^DD",2,2, .03,1,991, 2) | |
7989 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".03; " D AVAFC^ VAFCDD01(D A) | |
7990 | "^DD",2,2, .03,1,991, "%D",0) | |
7991 | ^.101^15^1 5^3171101^ ^^^ | |
7992 | "^DD",2,2, .03,1,991, "%D",1,0) | |
7993 | This cross reference is used t o remember that chan ges were m ade to the | |
7994 | "^DD",2,2, .03,1,991, "%D",2,0) | |
7995 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
7996 | "^DD",2,2, .03,1,991, "%D",3,0) | |
7997 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
7998 | "^DD",2,2, .03,1,991, "%D",4,0) | |
7999 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
8000 | "^DD",2,2, .03,1,991, "%D",5,0) | |
8001 | ||
8002 | "^DD",2,2, .03,1,991, "%D",6,0) | |
8003 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is | |
8004 | "^DD",2,2, .03,1,991, "%D",7,0) | |
8005 | not execut ed because the chang e is being made from within th e Registra tion | |
8006 | "^DD",2,2, .03,1,991, "%D",8,0) | |
8007 | process. | |
8008 | "^DD",2,2, .03,1,991, "%D",9,0) | |
8009 | ||
8010 | "^DD",2,2, .03,1,991, "%D",10,0) | |
8011 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
8012 | "^DD",2,2, .03,1,991, "%D",11,0) | |
8013 | variable V AFCA08 equ al to 1. | |
8014 | "^DD",2,2, .03,1,991, "%D",12,0) | |
8015 | ||
8016 | "^DD",2,2, .03,1,991, "%D",13,0) | |
8017 | The local variable V AFCF is us ed to iden tify the f ield edite d. | |
8018 | "^DD",2,2, .03,1,991, "%D",14,0) | |
8019 | This data is stored in the FIE LD(S) EDIT ED (#2.1) field in t he | |
8020 | "^DD",2,2, .03,1,991, "%D",15,0) | |
8021 | ADT/HL7 PI VOT file ( #391.71). | |
8022 | "^DD",2,2, .03,1,991, "DT") | |
8023 | 2980501 | |
8024 | "^DD",2,2, .03,1,992, 0) | |
8025 | 2^ADGRU03^ MUMPS | |
8026 | "^DD",2,2, .03,1,992, 1) | |
8027 | D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA) | |
8028 | "^DD",2,2, .03,1,992, 2) | |
8029 | D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA) | |
8030 | "^DD",2,2, .03,1,992, "%D",0) | |
8031 | ^^9^9^2990 920^ | |
8032 | "^DD",2,2, .03,1,992, "%D",1,0) | |
8033 | This cross reference is used t o remember that chan ges were m ade to a | |
8034 | "^DD",2,2, .03,1,992, "%D",2,0) | |
8035 | monitored data field in the PA TIENT File (#2) requ ired for a vendor | |
8036 | "^DD",2,2, .03,1,992, "%D",3,0) | |
8037 | RAI/MDS CO TS system. Executio n of this cross refe rence will create | |
8038 | "^DD",2,2, .03,1,992, "%D",4,0) | |
8039 | an entry i n the ADT/ HL7 PIVOT file (#391 .71) and m ark it as requiring | |
8040 | "^DD",2,2, .03,1,992, "%D",5,0) | |
8041 | transmissi on of an H L7 demogra phic A08 u pdate mess age to the COTS | |
8042 | "^DD",2,2, .03,1,992, "%D",6,0) | |
8043 | interface. | |
8044 | "^DD",2,2, .03,1,992, "%D",7,0) | |
8045 | ||
8046 | "^DD",2,2, .03,1,992, "%D",8,0) | |
8047 | The local variable D GRUGA08 wi ll be set to 1 if th e cross re ference is | |
8048 | "^DD",2,2, .03,1,992, "%D",9,0) | |
8049 | not to be executed a s part of a re-index ing. | |
8050 | "^DD",2,2, .03,1,992, "DT") | |
8051 | 2990920 | |
8052 | "^DD",2,2, .03,2) | |
8053 | S Y(0)=Y S X=Y(0) S: X X=$E(X,4 ,5)_"/"_$E (X,6,7)_"/ "_(1700+$E (X,1,3)) S Y=X | |
8054 | "^DD",2,2, .03,2.1) | |
8055 | NUMDATE4(D OB) | |
8056 | "^DD",2,2, .03,3) | |
8057 | Enter the patient's DATE OF BI RTH which must be la ter than 1 2/31/1870. DATE OF BIRTH cann ot be a da te after t he benefic iary 'Inel igible Dat e' or a da te after t he 'Enroll ment Appli cation Dat e'. | |
8058 | "^DD",2,2, .03,20,0) | |
8059 | ^.3LA^1^1 | |
8060 | "^DD",2,2, .03,20,1,0 ) | |
8061 | DEMOG^ | |
8062 | "^DD",2,2, .03,21,0) | |
8063 | ^.001^3^3^ 3101213^^^ ^ | |
8064 | "^DD",2,2, .03,21,1,0 ) | |
8065 | Enter the patient's DATE OF BI RTH which must be la ter than 1 2/31/1870. | |
8066 | "^DD",2,2, .03,21,2,0 ) | |
8067 | DATE OF BI RTH cannot be a date after the beneficia ry 'Inelig ible Date' | |
8068 | "^DD",2,2, .03,21,3,0 ) | |
8069 | or a date after the 'Enrollmen t Applicat ion Date'. | |
8070 | "^DD",2,2, .03,"AUDIT ") | |
8071 | y | |
8072 | "^DD",2,2, .03,"DT") | |
8073 | 3090904 | |
8074 | "^DD",2,2, .09,0) | |
8075 | SOCIAL SEC URITY NUMB ER^RFXa^^0 ;9^K:X[""" "!($A(X)=4 5) X I $D( X) S:'$D(D PTX) DFN=D A D SSN^DG INP Q I $ L(X)>10 | |
8076 | "^DD",2,2, .09,.1) | |
8077 | SSN | |
8078 | "^DD",2,2, .09,1,0) | |
8079 | ^.1^^-1 | |
8080 | "^DD",2,2, .09,1,1,0) | |
8081 | 2^BS^MUMPS | |
8082 | "^DD",2,2, .09,1,1,1) | |
8083 | S ^DPT("BS ",$E(X,6,9 ),DA)="" | |
8084 | "^DD",2,2, .09,1,1,2) | |
8085 | K:$E(X,6,9 )'="" ^DPT ("BS",$E(X ,6,9),DA) | |
8086 | "^DD",2,2, .09,1,2,0) | |
8087 | ^^TRIGGER^ 2^.083 | |
8088 | "^DD",2,2, .09,1,2,1) | |
8089 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,0)):^(0), 1:"") S X= $P(Y(1),U, 20),X=X S DIU=X K Y S X=DIV S X="1" X ^D D(2,.09,1, 2,1.4) | |
8090 | "^DD",2,2, .09,1,2,1. 4) | |
8091 | S DIH=$S($ D(^DPT(DIV (0),0)):^( 0),1:""),D IV=X X "F %=0:0 Q:$L ($P(DIH,U, 19,99)) S DIH=DIH_U " S %=$P(D IH,U,21,99 9),DIU=$P( DIH,U,20), ^(0)=$P(DI H,U,1,19)_ U_DIV_$S(% ]"":U_%,1: ""),DIH=2, DIG=.083 D ^DICR | |
8092 | "^DD",2,2, .09,1,2,2) | |
8093 | Q | |
8094 | "^DD",2,2, .09,1,2,"C REATE VALU E") | |
8095 | "1" | |
8096 | "^DD",2,2, .09,1,2,"D ELETE VALU E") | |
8097 | NO EFFECT | |
8098 | "^DD",2,2, .09,1,2,"F IELD") | |
8099 | #.083 | |
8100 | "^DD",2,2, .09,1,3,0) | |
8101 | 2^BS5^MUMP S | |
8102 | "^DD",2,2, .09,1,3,1) | |
8103 | S ^DPT("BS 5",$E(^DPT (DA,0),1)_ $E(X,6,9), DA)="" | |
8104 | "^DD",2,2, .09,1,3,2) | |
8105 | K ^DPT("BS 5",$E(^DPT (DA,0),1)_ $E(X,6,9), DA) | |
8106 | "^DD",2,2, .09,1,4,0) | |
8107 | 2^AODS1^MU MPS | |
8108 | "^DD",2,2, .09,1,4,1) | |
8109 | S A1B2TAG= "PAT" D ^A 1B2XFR | |
8110 | "^DD",2,2, .09,1,4,2) | |
8111 | S A1B2TAG= "PAT" D ^A 1B2XFR | |
8112 | "^DD",2,2, .09,1,5,0) | |
8113 | 2^ATP^MUMP S | |
8114 | "^DD",2,2, .09,1,5,1) | |
8115 | I $E(X,1,5 )="00000" D SET^DGRE GDD1(DA,.6 ,0,21,1) | |
8116 | "^DD",2,2, .09,1,5,2) | |
8117 | D KILL^DGR EGDD1(DA,. 6,0,21,0) | |
8118 | "^DD",2,2, .09,1,5,"% D",0) | |
8119 | ^^2^2^2951 026^^^^ | |
8120 | "^DD",2,2, .09,1,5,"% D",1,0) | |
8121 | This cross reference is used t o indentif y test pat ients. Tes t patients are | |
8122 | "^DD",2,2, .09,1,5,"% D",2,0) | |
8123 | designated by five l eading zer os in the SSN. | |
8124 | "^DD",2,2, .09,1,5,"D T") | |
8125 | 2951026 | |
8126 | "^DD",2,2, .09,1,7,0) | |
8127 | 2^SSN | |
8128 | "^DD",2,2, .09,1,7,1) | |
8129 | S ^DPT("SS N",$E(X,1, 30),DA)="" | |
8130 | "^DD",2,2, .09,1,7,2) | |
8131 | K ^DPT("SS N",$E(X,1, 30),DA) | |
8132 | "^DD",2,2, .09,1,8,0) | |
8133 | 2^AVADPT6^ MUMPS | |
8134 | "^DD",2,2, .09,1,8,1) | |
8135 | S VADFN=DA D SET^VAD PT6 K VADF N | |
8136 | "^DD",2,2, .09,1,8,2) | |
8137 | S VADFN=DA D KILL^VA DPT6 K VAD FN | |
8138 | "^DD",2,2, .09,1,9,0) | |
8139 | 2^AD^MUMPS | |
8140 | "^DD",2,2, .09,1,9,1) | |
8141 | S PPP=X,X= "PPPFMX" X ^%ZOSF("T EST") D:$T SNSSN^PPP FMX S X=PP P K PPP | |
8142 | "^DD",2,2, .09,1,9,2) | |
8143 | S PPP=X,X= "PPPFMX" X ^%ZOSF("T EST") D:$T KNSSN^PPP FMX S X=PP P K PPP | |
8144 | "^DD",2,2, .09,1,9,"% D",0) | |
8145 | ^.101^2^2^ 3010423^^ | |
8146 | "^DD",2,2, .09,1,9,"% D",1,0) | |
8147 | This cross -reference is used t o add a ne w SSN to t he Prescri ption | |
8148 | "^DD",2,2, .09,1,9,"% D",2,0) | |
8149 | Practices Files when a new pat ient is ad ded to the patient f ile. | |
8150 | "^DD",2,2, .09,1,9,"D T") | |
8151 | 2920611 | |
8152 | "^DD",2,2, .09,1,10,0 ) | |
8153 | ^^TRIGGER^ 2^.0906 | |
8154 | "^DD",2,2, .09,1,10,1 ) | |
8155 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(0)=X S X=Y(0)'[" P" I X S X =DIV S Y(1 )=$S($D(^D PT(D0,"SSN ")):^("SSN "),1:"") S X=$P(Y(1) ,U,1),X=X S DIU=X K Y S X="" X ^DD(2,.09 ,1,10,1.4) | |
8156 | "^DD",2,2, .09,1,10,1 .4) | |
8157 | S DIH=$G(^ DPT(DIV(0) ,"SSN")),D IV=X S $P( ^("SSN"),U ,1)=DIV,DI H=2,DIG=.0 906 D ^DIC R | |
8158 | "^DD",2,2, .09,1,10,2 ) | |
8159 | Q | |
8160 | "^DD",2,2, .09,1,10," %D",0) | |
8161 | ^^1^1^3051 128^ | |
8162 | "^DD",2,2, .09,1,10," %D",1,0) | |
8163 | Pseudo SSN Reason wi ll have a value only if SSN is a Pseudo SSN. | |
8164 | "^DD",2,2, .09,1,10," CREATE CON DITION") | |
8165 | #.09'["P" | |
8166 | "^DD",2,2, .09,1,10," CREATE VAL UE") | |
8167 | @ | |
8168 | "^DD",2,2, .09,1,10," DELETE VAL UE") | |
8169 | NO EFFECT | |
8170 | "^DD",2,2, .09,1,10," DT") | |
8171 | 3051003 | |
8172 | "^DD",2,2, .09,1,10," FIELD") | |
8173 | PSEUDO SSN REAS | |
8174 | "^DD",2,2, .09,1,301, 0) | |
8175 | 2^IVM09^MU MPS | |
8176 | "^DD",2,2, .09,1,301, 1) | |
8177 | S IVMX=X,X ="IVMPXFR" X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX | |
8178 | "^DD",2,2, .09,1,301, 2) | |
8179 | S IVMX=X,X ="IVMPXFR" X ^%ZOSF( "TEST") D: $T DPT^IVM PXFR S X=I VMX K IVMX | |
8180 | "^DD",2,2, .09,1,301, "%D",0) | |
8181 | ^.101^4^4^ 3010423^^ | |
8182 | "^DD",2,2, .09,1,301, "%D",1,0) | |
8183 | This cross -reference will chec k the IVM PATIENT fi le to see if a chang e | |
8184 | "^DD",2,2, .09,1,301, "%D",2,0) | |
8185 | to this fi eld will r equire tra nsmission to the IVM Center. If it does , | |
8186 | "^DD",2,2, .09,1,301, "%D",3,0) | |
8187 | the IVM PA TIENT file entry's T RANSMISSIO N STATUS w ill be set to 0 and | |
8188 | "^DD",2,2, .09,1,301, "%D",4,0) | |
8189 | the nightl y backgrou nd job wil l transmit the updat ed informa tion. | |
8190 | "^DD",2,2, .09,1,301, "DT") | |
8191 | 2930605 | |
8192 | "^DD",2,2, .09,1,800, 0) | |
8193 | 2^PX09^MUM PS | |
8194 | "^DD",2,2, .09,1,800, 1) | |
8195 | S PX=X,X=" PXXDPT" X ^%ZOSF("TE ST") D:$T SETSSN^PXX DPT S X=PX K PX | |
8196 | "^DD",2,2, .09,1,800, 2) | |
8197 | S PX=X,X=" PXXDPT" X ^%ZOSF("TE ST") D:$T KILLSSN^PX XDPT S X=P X K PX | |
8198 | "^DD",2,2, .09,1,800, "%D",0) | |
8199 | ^^2^2^2960 624^^^ | |
8200 | "^DD",2,2, .09,1,800, "%D",1,0) | |
8201 | This cross -reference is used t o add a ne w SSN to t he 9000001 IHS Patie nt | |
8202 | "^DD",2,2, .09,1,800, "%D",2,0) | |
8203 | File when a new pati ent is add ed to the Patient Fi le. | |
8204 | "^DD",2,2, .09,1,800, "DT") | |
8205 | 2930908 | |
8206 | "^DD",2,2, .09,1,991, 0) | |
8207 | 2^AVAFC09^ MUMPS | |
8208 | "^DD",2,2, .09,1,991, 1) | |
8209 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".09; " D AVAFC^ VAFCDD01(D A) | |
8210 | "^DD",2,2, .09,1,991, 2) | |
8211 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".09; " D AVAFC^ VAFCDD01(D A) | |
8212 | "^DD",2,2, .09,1,991, "%D",0) | |
8213 | ^^15^15^29 90204^^^^ | |
8214 | "^DD",2,2, .09,1,991, "%D",1,0) | |
8215 | This cross reference is used t o remember that chan ges were m ade to the | |
8216 | "^DD",2,2, .09,1,991, "%D",2,0) | |
8217 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
8218 | "^DD",2,2, .09,1,991, "%D",3,0) | |
8219 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
8220 | "^DD",2,2, .09,1,991, "%D",4,0) | |
8221 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
8222 | "^DD",2,2, .09,1,991, "%D",5,0) | |
8223 | ||
8224 | "^DD",2,2, .09,1,991, "%D",6,0) | |
8225 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is | |
8226 | "^DD",2,2, .09,1,991, "%D",7,0) | |
8227 | not execut ed because the chang e is being made from within th e Registra tion | |
8228 | "^DD",2,2, .09,1,991, "%D",8,0) | |
8229 | process. | |
8230 | "^DD",2,2, .09,1,991, "%D",9,0) | |
8231 | ||
8232 | "^DD",2,2, .09,1,991, "%D",10,0) | |
8233 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
8234 | "^DD",2,2, .09,1,991, "%D",11,0) | |
8235 | variable V AFCA08 equ al to 1. | |
8236 | "^DD",2,2, .09,1,991, "%D",12,0) | |
8237 | ||
8238 | "^DD",2,2, .09,1,991, "%D",13,0) | |
8239 | The local variable V AFCF is us ed to iden tify the f ield edite d. | |
8240 | "^DD",2,2, .09,1,991, "%D",14,0) | |
8241 | This data is stored in the FIE LD(S) EDIT ED (#2.1) field in t he | |
8242 | "^DD",2,2, .09,1,991, "%D",15,0) | |
8243 | ADT/HL7 PI VOT file ( #391.71). | |
8244 | "^DD",2,2, .09,1,991, "DT") | |
8245 | 2970825 | |
8246 | "^DD",2,2, .09,1,992, 0) | |
8247 | 2^ADGRU09^ MUMPS | |
8248 | "^DD",2,2, .09,1,992, 1) | |
8249 | D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA) | |
8250 | "^DD",2,2, .09,1,992, 2) | |
8251 | D:($T(ADGR U^DGRUDD01 )'="") ADG RU^DGRUDD0 1(DA) | |
8252 | "^DD",2,2, .09,1,992, "%D",0) | |
8253 | ^^9^9^3000 202^^^^ | |
8254 | "^DD",2,2, .09,1,992, "%D",1,0) | |
8255 | This cross reference is used t o remember that chan ges were m ade to a | |
8256 | "^DD",2,2, .09,1,992, "%D",2,0) | |
8257 | monitored data field in the PA TIENT File (#2) requ ired for a vendor | |
8258 | "^DD",2,2, .09,1,992, "%D",3,0) | |
8259 | RAI/MDS CO TS system. Executio n of this cross refe rence will create | |
8260 | "^DD",2,2, .09,1,992, "%D",4,0) | |
8261 | an entry i n the ADT/ HL7 PIVOT file (#391 .71) and m ark it as requiring | |
8262 | "^DD",2,2, .09,1,992, "%D",5,0) | |
8263 | transmissi on of an H L7 demogra phic A08 u pdate mess age to the COTS | |
8264 | "^DD",2,2, .09,1,992, "%D",6,0) | |
8265 | interface. | |
8266 | "^DD",2,2, .09,1,992, "%D",7,0) | |
8267 | ||
8268 | "^DD",2,2, .09,1,992, "%D",8,0) | |
8269 | The local variable D GRUGA08 wi ll be set to 1 if th e cross re ference is | |
8270 | "^DD",2,2, .09,1,992, "%D",9,0) | |
8271 | not to be executed a s part of a re-index ing. | |
8272 | "^DD",2,2, .09,1,992, "DT") | |
8273 | 3000202 | |
8274 | "^DD",2,2, .09,2) | |
8275 | S Y(0)=Y S :$L(Y)=11 Y=$E(Y,10, 11)_$E(Y,1 ,9) | |
8276 | "^DD",2,2, .09,2.1) | |
8277 | S:$L(Y)=11 Y=$E(Y,10 ,11)_$E(Y, 1,9) | |
8278 | "^DD",2,2, .09,3) | |
8279 | Enter 9-di git SSN or 'P' for p seudo-SSN. | |
8280 | "^DD",2,2, .09,10) | |
8281 | 10/10 FORM | |
8282 | "^DD",2,2, .09,11,0) | |
8283 | ^.2LAP^^0 | |
8284 | "^DD",2,2, .09,11,1,0 ) | |
8285 | 1^ | |
8286 | "^DD",2,2, .09,11,2,0 ) | |
8287 | 2^ | |
8288 | "^DD",2,2, .09,20,0) | |
8289 | ^.3LA^1^1 | |
8290 | "^DD",2,2, .09,20,1,0 ) | |
8291 | DEMOG^ | |
8292 | "^DD",2,2, .09,21,0) | |
8293 | ^^14^14^30 81021^ | |
8294 | "^DD",2,2, .09,21,1,0 ) | |
8295 | Answer wit h the indi vidual's s ocial secu rity numbe r. Answer must be 9 | |
8296 | "^DD",2,2, .09,21,2,0 ) | |
8297 | numbers in length. T he SSN wil l be sent to the SSA for verif ication. | |
8298 | "^DD",2,2, .09,21,3,0 ) | |
8299 | This will be display ed next to the SSN. Once an S SN has rec eived a | |
8300 | "^DD",2,2, .09,21,4,0 ) | |
8301 | status of Verified, it is lock ed from us er updatin g and a "V ERIFIED" | |
8302 | "^DD",2,2, .09,21,5,0 ) | |
8303 | will be di splayed by the SSN f ield. Onl y the Iden tity Manag ement Data | |
8304 | "^DD",2,2, .09,21,6,0 ) | |
8305 | QUality Te am are abl e to chang e a benefi ciary's (v eteran/non veteran) | |
8306 | "^DD",2,2, .09,21,7,0 ) | |
8307 | SSN. If a n Invalid per SSA st atus is re ceived for the SSN, then an | |
8308 | "^DD",2,2, .09,21,8,0 ) | |
8309 | "INVALID" will appea r next to the invali d SSN of t he individ ual. | |
8310 | "^DD",2,2, .09,21,9,0 ) | |
8311 | Facilities should ma ke every e ffort to o btain the accurate S SN from th e | |
8312 | "^DD",2,2, .09,21,10, 0) | |
8313 | individual for any i nvalid or pseudo SSN entry. | |
8314 | "^DD",2,2, .09,21,11, 0) | |
8315 | ||
8316 | "^DD",2,2, .09,21,12, 0) | |
8317 | If a valid SSN is no t known, t hen a "P" will be en tered at t he SSN | |
8318 | "^DD",2,2, .09,21,13, 0) | |
8319 | prompt for the syste m to autom atically a ssign a Ps eudo-SSN. If a | |
8320 | "^DD",2,2, .09,21,14, 0) | |
8321 | Pseudo SSN is entere d, a Reaso n for ente ring it wi ll be requ ired. | |
8322 | "^DD",2,2, .09,"AUDIT ") | |
8323 | y | |
8324 | "^DD",2,2, .09,"DT") | |
8325 | 3051006 | |
8326 | "^DD",2,2, .116,0) | |
8327 | ZIP CODE^F ^^.11;6^K: X[""""!($A (X)=45) X I $D(X) K: $L(X)>5!($ L(X)<5)!'( X?5N) X | |
8328 | "^DD",2,2, .116,1,0) | |
8329 | ^.1 | |
8330 | "^DD",2,2, .116,1,1,0 ) | |
8331 | 2^AODS116^ MUMPS | |
8332 | "^DD",2,2, .116,1,1,1 ) | |
8333 | S A1B2TAG= "PAT" D ^A 1B2XFR | |
8334 | "^DD",2,2, .116,1,1,2 ) | |
8335 | S A1B2TAG= "PAT" D ^A 1B2XFR | |
8336 | "^DD",2,2, .116,1,2,0 ) | |
8337 | 2^AZIP^MUM PS | |
8338 | "^DD",2,2, .116,1,2,1 ) | |
8339 | D SET^DGRE GDD1(DA,.1 112,.11,12 ,X) | |
8340 | "^DD",2,2, .116,1,2,2 ) | |
8341 | D KILL^DGR EGDD1(DA,. 1112,.11,1 2,X) | |
8342 | "^DD",2,2, .116,1,2," %D",0) | |
8343 | ^^2^2^2930 603^^^^ | |
8344 | "^DD",2,2, .116,1,2," %D",1,0) | |
8345 | This sets the corres ponding zi p+4 field to be equa l to the z ip field | |
8346 | "^DD",2,2, .116,1,2," %D",2,0) | |
8347 | after the zip is edi ted. | |
8348 | "^DD",2,2, .116,1,2," DT") | |
8349 | 2930413 | |
8350 | "^DD",2,2, .116,1,3,0 ) | |
8351 | ^^TRIGGER^ 2^.118 | |
8352 | "^DD",2,2, .116,1,3,1 ) | |
8353 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,.11)):^(. 11),1:"") S X=$P(Y(1 ),U,13),X= X S DIU=X K Y S X=DI V S X=$$NO W^XLFDT() S DIH=$G(^ DPT(DIV(0) ,.11)),DIV =X S $P(^( .11),U,13) =DIV,DIH=2 ,DIG=.118 D ^DICR | |
8354 | "^DD",2,2, .116,1,3,2 ) | |
8355 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,.11)):^(. 11),1:"") S X=$P(Y(1 ),U,13),X= X S DIU=X K Y S X=DI V S X=$$NO W^XLFDT() S DIH=$G(^ DPT(DIV(0) ,.11)),DIV =X S $P(^( .11),U,13) =DIV,DIH=2 ,DIG=.118 D ^DICR | |
8356 | "^DD",2,2, .116,1,3," %D",0) | |
8357 | ^^2^2^3020 703^ | |
8358 | "^DD",2,2, .116,1,3," %D",1,0) | |
8359 | This cross -reference will upda te the Add ress Chang e DT/TM fi eld when | |
8360 | "^DD",2,2, .116,1,3," %D",2,0) | |
8361 | address da ta changes for a pat ient. | |
8362 | "^DD",2,2, .116,1,3," CREATE VAL UE") | |
8363 | S X=$$NOW^ XLFDT() | |
8364 | "^DD",2,2, .116,1,3," DELETE VAL UE") | |
8365 | S X=$$NOW^ XLFDT() | |
8366 | "^DD",2,2, .116,1,3," DT") | |
8367 | 3020703 | |
8368 | "^DD",2,2, .116,1,3," FIELD") | |
8369 | ADDRESS CH ANGE DT | |
8370 | "^DD",2,2, .116,1,991 ,0) | |
8371 | 2^AVAFC116 ^MUMPS | |
8372 | "^DD",2,2, .116,1,991 ,1) | |
8373 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".116 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
8374 | "^DD",2,2, .116,1,991 ,2) | |
8375 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".116 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
8376 | "^DD",2,2, .116,1,991 ,"%D",0) | |
8377 | ^.101^19^1 9^3180209^ ^^^ | |
8378 | "^DD",2,2, .116,1,991 ,"%D",1,0) | |
8379 | This cross reference is used t o remember that chan ges were m ade to the | |
8380 | "^DD",2,2, .116,1,991 ,"%D",2,0) | |
8381 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
8382 | "^DD",2,2, .116,1,991 ,"%D",3,0) | |
8383 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
8384 | "^DD",2,2, .116,1,991 ,"%D",4,0) | |
8385 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
8386 | "^DD",2,2, .116,1,991 ,"%D",5,0) | |
8387 | ||
8388 | "^DD",2,2, .116,1,991 ,"%D",6,0) | |
8389 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
8390 | "^DD",2,2, .116,1,991 ,"%D",7,0) | |
8391 | executed b ecause the change is being mad e from wit hin the Re gistration | |
8392 | "^DD",2,2, .116,1,991 ,"%D",8,0) | |
8393 | process. | |
8394 | "^DD",2,2, .116,1,991 ,"%D",9,0) | |
8395 | ||
8396 | "^DD",2,2, .116,1,991 ,"%D",10,0 ) | |
8397 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
8398 | "^DD",2,2, .116,1,991 ,"%D",11,0 ) | |
8399 | variable V AFCA08 equ al to 1. | |
8400 | "^DD",2,2, .116,1,991 ,"%D",12,0 ) | |
8401 | ||
8402 | "^DD",2,2, .116,1,991 ,"%D",13,0 ) | |
8403 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
8404 | "^DD",2,2, .116,1,991 ,"%D",14,0 ) | |
8405 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
8406 | "^DD",2,2, .116,1,991 ,"%D",15,0 ) | |
8407 | (#391.71). | |
8408 | "^DD",2,2, .116,1,991 ,"%D",16,0 ) | |
8409 | ||
8410 | "^DD",2,2, .116,1,991 ,"%D",17,0 ) | |
8411 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
8412 | "^DD",2,2, .116,1,991 ,"%D",18,0 ) | |
8413 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
8414 | "^DD",2,2, .116,1,991 ,"%D",19,0 ) | |
8415 | transmissi on only. | |
8416 | "^DD",2,2, .116,1,991 ,"DT") | |
8417 | 3170914 | |
8418 | "^DD",2,2, .116,3) | |
8419 | Enter the zip code f or the cit y in which this appl icant resi des. | |
8420 | "^DD",2,2, .116,20,0) | |
8421 | ^.3LA^1^1 | |
8422 | "^DD",2,2, .116,20,1, 0) | |
8423 | DEMOG | |
8424 | "^DD",2,2, .116,21,0) | |
8425 | ^^2^2^2951 026^^^^ | |
8426 | "^DD",2,2, .116,21,1, 0) | |
8427 | Enter the zip code [ 5 numerics ] for the city in wh ich this a pplicant | |
8428 | "^DD",2,2, .116,21,2, 0) | |
8429 | resides. | |
8430 | "^DD",2,2, .116,23,0) | |
8431 | ^^4^4^2951 026^^ | |
8432 | "^DD",2,2, .116,23,1, 0) | |
8433 | This field will beco me un-edit able in a later rele ase. Prog rammers | |
8434 | "^DD",2,2, .116,23,2, 0) | |
8435 | should mod ify code f rom this f ield (.116 ) to the Z IP+4 field (.1112) | |
8436 | "^DD",2,2, .116,23,3, 0) | |
8437 | Currently, modificat ions to th is field w ill create an entry in the | |
8438 | "^DD",2,2, .116,23,4, 0) | |
8439 | ZIP+4 fiel d (without the +4 of course). | |
8440 | "^DD",2,2, .116,"DT") | |
8441 | 3170914 | |
8442 | "^DD",2,2, .121,0) | |
8443 | BAD ADDRES S INDICATO R^*S^1:UND ELIVERABLE ;2:HOMELES S;3:OTHER; 4:ADDRESS NOT FOUND; ^.11;16^Q | |
8444 | "^DD",2,2, .121,1,0) | |
8445 | ^.1 | |
8446 | "^DD",2,2, .121,1,1,0 ) | |
8447 | 2^AENR121^ MUMPS | |
8448 | "^DD",2,2, .121,1,1,1 ) | |
8449 | D EVENT^IV MPLOG(DA) | |
8450 | "^DD",2,2, .121,1,1,2 ) | |
8451 | D EVENT^IV MPLOG(DA) | |
8452 | "^DD",2,2, .121,1,1,3 ) | |
8453 | DO NOT DEL ETE | |
8454 | "^DD",2,2, .121,1,1," %D",0) | |
8455 | ^^2^2^3060 911^ | |
8456 | "^DD",2,2, .121,1,1," %D",1,0) | |
8457 | This cross -reference is used t o notify H EC of chan ges that m ay affect | |
8458 | "^DD",2,2, .121,1,1," %D",2,0) | |
8459 | enrollment . | |
8460 | "^DD",2,2, .121,1,1," DT") | |
8461 | 3060911 | |
8462 | "^DD",2,2, .121,1,2,0 ) | |
8463 | ^^TRIGGER^ 2^.118 | |
8464 | "^DD",2,2, .121,1,2,1 ) | |
8465 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,.11)):^(. 11),1:"") S X=$P(Y(1 ),U,13),X= X S DIU=X K Y S X=DI V S X=$$NO W^XLFDT() S DIH=$G(^ DPT(DIV(0) ,.11)),DIV =X S $P(^( .11),U,13) =DIV,DIH=2 ,DIG=.118 D ^DICR | |
8466 | "^DD",2,2, .121,1,2,2 ) | |
8467 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,.11)):^(. 11),1:"") S X=$P(Y(1 ),U,13),X= X S DIU=X K Y S X=DI V S X=$$NO W^XLFDT() S DIH=$G(^ DPT(DIV(0) ,.11)),DIV =X S $P(^( .11),U,13) =DIV,DIH=2 ,DIG=.118 D ^DICR | |
8468 | "^DD",2,2, .121,1,2," %D",0) | |
8469 | ^.101^2^2^ 3061030^^ | |
8470 | "^DD",2,2, .121,1,2," %D",1,0) | |
8471 | This cross -reference will be u sed to upd ate the Da te/Time st amp for an | |
8472 | "^DD",2,2, .121,1,2," %D",2,0) | |
8473 | Address Ch ange. | |
8474 | "^DD",2,2, .121,1,2," CREATE VAL UE") | |
8475 | S X=$$NOW^ XLFDT() | |
8476 | "^DD",2,2, .121,1,2," DELETE VAL UE") | |
8477 | S X=$$NOW^ XLFDT() | |
8478 | "^DD",2,2, .121,1,2," DT") | |
8479 | 3061010 | |
8480 | "^DD",2,2, .121,1,2," FIELD") | |
8481 | #.118 | |
8482 | "^DD",2,2, .121,1,991 ,0) | |
8483 | 2^AVAFCMX1 21^MUMPS | |
8484 | "^DD",2,2, .121,1,991 ,1) | |
8485 | D TRIGBAD^ DGMXORU(DA ,"ACTIVE") | |
8486 | "^DD",2,2, .121,1,991 ,2) | |
8487 | D TRIGBAD^ DGMXORU(DA ,"INACTIVE ") | |
8488 | "^DD",2,2, .121,1,991 ,"%D",0) | |
8489 | ^.101^19^1 9^3171205^ ^^^ | |
8490 | "^DD",2,2, .121,1,991 ,"%D",1,0) | |
8491 | This cross reference is used t o remember that chan ges were m ade to the | |
8492 | "^DD",2,2, .121,1,991 ,"%D",2,0) | |
8493 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
8494 | "^DD",2,2, .121,1,991 ,"%D",3,0) | |
8495 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
8496 | "^DD",2,2, .121,1,991 ,"%D",4,0) | |
8497 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
8498 | "^DD",2,2, .121,1,991 ,"%D",5,0) | |
8499 | ||
8500 | "^DD",2,2, .121,1,991 ,"%D",6,0) | |
8501 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
8502 | "^DD",2,2, .121,1,991 ,"%D",7,0) | |
8503 | executed b ecause the change is being mad e from wit hin the Re gistration | |
8504 | "^DD",2,2, .121,1,991 ,"%D",8,0) | |
8505 | process. | |
8506 | "^DD",2,2, .121,1,991 ,"%D",9,0) | |
8507 | ||
8508 | "^DD",2,2, .121,1,991 ,"%D",10,0 ) | |
8509 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
8510 | "^DD",2,2, .121,1,991 ,"%D",11,0 ) | |
8511 | variable V AFCA08 equ al to 1. | |
8512 | "^DD",2,2, .121,1,991 ,"%D",12,0 ) | |
8513 | ||
8514 | "^DD",2,2, .121,1,991 ,"%D",13,0 ) | |
8515 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
8516 | "^DD",2,2, .121,1,991 ,"%D",14,0 ) | |
8517 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
8518 | "^DD",2,2, .121,1,991 ,"%D",15,0 ) | |
8519 | (#391.71). | |
8520 | "^DD",2,2, .121,1,991 ,"%D",16,0 ) | |
8521 | ||
8522 | "^DD",2,2, .121,1,991 ,"%D",17,0 ) | |
8523 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
8524 | "^DD",2,2, .121,1,991 ,"%D",18,0 ) | |
8525 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
8526 | "^DD",2,2, .121,1,991 ,"%D",19,0 ) | |
8527 | transmissi on only. | |
8528 | "^DD",2,2, .121,1,991 ,"DT") | |
8529 | 3171204 | |
8530 | "^DD",2,2, .121,3) | |
8531 | Please ent er 1 if th e address is 'UNDELI VERABLE', 2 if the p atient is 'HOMELESS' , or 3 for 'OTHER' b ad address reasons. Enter "@" to remove the indica tor. | |
8532 | "^DD",2,2, .121,12) | |
8533 | Only 1-3 m ay be sele cted. | |
8534 | "^DD",2,2, .121,12.1) | |
8535 | S DIC("S") ="I Y'=4" | |
8536 | "^DD",2,2, .121,21,0) | |
8537 | ^^15^15^31 40707^ | |
8538 | "^DD",2,2, .121,21,1, 0) | |
8539 | The Bad Ad dress Indi cator fiel d applies to the add ress at wh ich the pa tient | |
8540 | "^DD",2,2, .121,21,2, 0) | |
8541 | resides. This field should be set as fo llows (if applicable ): | |
8542 | "^DD",2,2, .121,21,3, 0) | |
8543 | ||
8544 | "^DD",2,2, .121,21,4, 0) | |
8545 | "UNDEL IVERABLE" - Bad Addr ess based on returne d mail. | |
8546 | "^DD",2,2, .121,21,5, 0) | |
8547 | "HOMEL ESS" - Pat ient is kn own to be homeless. | |
8548 | "^DD",2,2, .121,21,6, 0) | |
8549 | "OTHER " - Other Bad Addres s Reason | |
8550 | "^DD",2,2, .121,21,7, 0) | |
8551 | ||
8552 | "^DD",2,2, .121,21,8, 0) | |
8553 | Setting th is field w ill preven t a Bad Ad dress from being sha red with H EC | |
8554 | "^DD",2,2, .121,21,9, 0) | |
8555 | and other VAMC facil ities. | |
8556 | "^DD",2,2, .121,21,10 ,0) | |
8557 | ||
8558 | "^DD",2,2, .121,21,11 ,0) | |
8559 | ||
8560 | "^DD",2,2, .121,21,12 ,0) | |
8561 | Once the B ad Address Indicator is set, i ncoming "n ewer" addr esses will | |
8562 | "^DD",2,2, .121,21,13 ,0) | |
8563 | automatica lly remove the Bad A ddress Ind icator, an d allow th e "updated " | |
8564 | "^DD",2,2, .121,21,14 ,0) | |
8565 | address to be transm itted to H EC and oth er VAMC fa cilities. To manuall y | |
8566 | "^DD",2,2, .121,21,15 ,0) | |
8567 | remove the Bad Addre ss Indicat or enter t he "@" sym bol. | |
8568 | "^DD",2,2, .121,23,0) | |
8569 | ^.001^9^9^ 3140707^^^ ^ | |
8570 | "^DD",2,2, .121,23,1, 0) | |
8571 | This field is being used in co njunction with Patie nt Address fields | |
8572 | "^DD",2,2, .121,23,2, 0) | |
8573 | .111, .111 2, .112, . 113, .114, .115, .11 6, and .11 7, which a re located | |
8574 | "^DD",2,2, .121,23,3, 0) | |
8575 | in the Pat ient (#2) file. | |
8576 | "^DD",2,2, .121,23,4, 0) | |
8577 | ||
8578 | "^DD",2,2, .121,23,5, 0) | |
8579 | A programm er API, $$ BADADR^DGU TL3(DFN) w ill allow the return of the Ba d | |
8580 | "^DD",2,2, .121,23,6, 0) | |
8581 | Address In dicator. The follow ing parame ters are u sed: | |
8582 | "^DD",2,2, .121,23,7, 0) | |
8583 | ||
8584 | "^DD",2,2, .121,23,8, 0) | |
8585 | Input Para meter: DFN - interna l entry nu mber for t he Patient file (#2) | |
8586 | "^DD",2,2, .121,23,9, 0) | |
8587 | Return value: int ernal valu e of the B ad Address Indicator or <null> | |
8588 | "^DD",2,2, .121,"AUDI T") | |
8589 | ||
8590 | "^DD",2,2, .121,"DT") | |
8591 | 3171204 | |
8592 | "^DD",2,2, .1211,0) | |
8593 | TEMPORARY STREET [LI NE 1]^FX^^ .121;1^K:X [""""!($A( X)=45) X I $D(X) K:$ L(X)>30!($ L(X)<2) X I $D(X) S DFN=DA D T AD^DGLOCK | |
8594 | "^DD",2,2, .1211,.1) | |
8595 | ||
8596 | "^DD",2,2, .1211,1,0) | |
8597 | ^.1 | |
8598 | "^DD",2,2, .1211,1,1, 0) | |
8599 | 2^AXR12^MU MPS | |
8600 | "^DD",2,2, .1211,1,1, 1) | |
8601 | Q | |
8602 | "^DD",2,2, .1211,1,1, 2) | |
8603 | S DGXRF=.1 211 D ^DGD DC Q | |
8604 | "^DD",2,2, .1211,1,99 1,0) | |
8605 | 2^AVAFC121 1^MUMPS | |
8606 | "^DD",2,2, .1211,1,99 1,1) | |
8607 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
8608 | "^DD",2,2, .1211,1,99 1,2) | |
8609 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
8610 | "^DD",2,2, .1211,1,99 1,"%D",0) | |
8611 | ^.101^19^1 9^3170913^ ^ | |
8612 | "^DD",2,2, .1211,1,99 1,"%D",1,0 ) | |
8613 | This cross reference is used t o remember that chan ges were m ade to the | |
8614 | "^DD",2,2, .1211,1,99 1,"%D",2,0 ) | |
8615 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
8616 | "^DD",2,2, .1211,1,99 1,"%D",3,0 ) | |
8617 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
8618 | "^DD",2,2, .1211,1,99 1,"%D",4,0 ) | |
8619 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
8620 | "^DD",2,2, .1211,1,99 1,"%D",5,0 ) | |
8621 | ||
8622 | "^DD",2,2, .1211,1,99 1,"%D",6,0 ) | |
8623 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
8624 | "^DD",2,2, .1211,1,99 1,"%D",7,0 ) | |
8625 | executed b ecause the change is being mad e from wit hin the Re gistration | |
8626 | "^DD",2,2, .1211,1,99 1,"%D",8,0 ) | |
8627 | process. | |
8628 | "^DD",2,2, .1211,1,99 1,"%D",9,0 ) | |
8629 | ||
8630 | "^DD",2,2, .1211,1,99 1,"%D",10, 0) | |
8631 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
8632 | "^DD",2,2, .1211,1,99 1,"%D",11, 0) | |
8633 | variable V AFCA08 equ al to 1. | |
8634 | "^DD",2,2, .1211,1,99 1,"%D",12, 0) | |
8635 | ||
8636 | "^DD",2,2, .1211,1,99 1,"%D",13, 0) | |
8637 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
8638 | "^DD",2,2, .1211,1,99 1,"%D",14, 0) | |
8639 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
8640 | "^DD",2,2, .1211,1,99 1,"%D",15, 0) | |
8641 | (#391.71). | |
8642 | "^DD",2,2, .1211,1,99 1,"%D",16, 0) | |
8643 | ||
8644 | "^DD",2,2, .1211,1,99 1,"%D",17, 0) | |
8645 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
8646 | "^DD",2,2, .1211,1,99 1,"%D",18, 0) | |
8647 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
8648 | "^DD",2,2, .1211,1,99 1,"%D",19, 0) | |
8649 | transmissi on only. | |
8650 | "^DD",2,2, .1211,1,99 1,"DT") | |
8651 | 3170913 | |
8652 | "^DD",2,2, .1211,3) | |
8653 | Enter the first line of this a pplicants temporary address [2 -30 charac ters]. | |
8654 | "^DD",2,2, .1211,20,0 ) | |
8655 | ^.3LA^1^1 | |
8656 | "^DD",2,2, .1211,20,1 ,0) | |
8657 | TAD | |
8658 | "^DD",2,2, .1211,21,0 ) | |
8659 | ^^5^5^2870 728^^^^ | |
8660 | "^DD",2,2, .1211,21,1 ,0) | |
8661 | If the WAN T TO ENTER A TEMPORA RY ADDRESS prompt is answered YES | |
8662 | "^DD",2,2, .1211,21,2 ,0) | |
8663 | enter the first line of the te mporary st reet addre ss for thi s | |
8664 | "^DD",2,2, .1211,21,3 ,0) | |
8665 | applicant [2-30 char acters] ot herwise no thing may be entered . This | |
8666 | "^DD",2,2, .1211,21,4 ,0) | |
8667 | field cann ot be dele ted as lon g as the n eed for a temporary address | |
8668 | "^DD",2,2, .1211,21,5 ,0) | |
8669 | is indicat ed. | |
8670 | "^DD",2,2, .1211,"DEL ",1,0) | |
8671 | S DFN=DA D TADD^DGLO CK1 I '$D( X) | |
8672 | "^DD",2,2, .1211,"DT" ) | |
8673 | 3170913 | |
8674 | "^DD",2,2, .1212,0) | |
8675 | TEMPORARY STREET [LI NE 2]^FX^^ .121;2^K:X [""""!($A( X)=45) X I $D(X) K:$ L(X)>30!($ L(X)<2) X I $D(X) S DFN=DA D T AD^DGLOCK | |
8676 | "^DD",2,2, .1212,.1) | |
8677 | ||
8678 | "^DD",2,2, .1212,1,0) | |
8679 | ^.1 | |
8680 | "^DD",2,2, .1212,1,1, 0) | |
8681 | 2^AXR13^MU MPS | |
8682 | "^DD",2,2, .1212,1,1, 1) | |
8683 | Q | |
8684 | "^DD",2,2, .1212,1,1, 2) | |
8685 | S DGXRF=.1 212 D ^DGD DC Q | |
8686 | "^DD",2,2, .1212,1,99 1,0) | |
8687 | 2^AVAFC121 2^MUMPS | |
8688 | "^DD",2,2, .1212,1,99 1,1) | |
8689 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 2;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
8690 | "^DD",2,2, .1212,1,99 1,2) | |
8691 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 2;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
8692 | "^DD",2,2, .1212,1,99 1,"%D",0) | |
8693 | ^^19^19^31 70913^ | |
8694 | "^DD",2,2, .1212,1,99 1,"%D",1,0 ) | |
8695 | This cross reference is used t o remember that chan ges were m ade to the | |
8696 | "^DD",2,2, .1212,1,99 1,"%D",2,0 ) | |
8697 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
8698 | "^DD",2,2, .1212,1,99 1,"%D",3,0 ) | |
8699 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
8700 | "^DD",2,2, .1212,1,99 1,"%D",4,0 ) | |
8701 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
8702 | "^DD",2,2, .1212,1,99 1,"%D",5,0 ) | |
8703 | ||
8704 | "^DD",2,2, .1212,1,99 1,"%D",6,0 ) | |
8705 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
8706 | "^DD",2,2, .1212,1,99 1,"%D",7,0 ) | |
8707 | executed b ecause the change is being mad e from wit hin the Re gistration | |
8708 | "^DD",2,2, .1212,1,99 1,"%D",8,0 ) | |
8709 | process. | |
8710 | "^DD",2,2, .1212,1,99 1,"%D",9,0 ) | |
8711 | ||
8712 | "^DD",2,2, .1212,1,99 1,"%D",10, 0) | |
8713 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
8714 | "^DD",2,2, .1212,1,99 1,"%D",11, 0) | |
8715 | variable V AFCA08 equ al to 1. | |
8716 | "^DD",2,2, .1212,1,99 1,"%D",12, 0) | |
8717 | ||
8718 | "^DD",2,2, .1212,1,99 1,"%D",13, 0) | |
8719 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
8720 | "^DD",2,2, .1212,1,99 1,"%D",14, 0) | |
8721 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
8722 | "^DD",2,2, .1212,1,99 1,"%D",15, 0) | |
8723 | (#391.71). | |
8724 | "^DD",2,2, .1212,1,99 1,"%D",16, 0) | |
8725 | ||
8726 | "^DD",2,2, .1212,1,99 1,"%D",17, 0) | |
8727 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
8728 | "^DD",2,2, .1212,1,99 1,"%D",18, 0) | |
8729 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
8730 | "^DD",2,2, .1212,1,99 1,"%D",19, 0) | |
8731 | transmissi on only. | |
8732 | "^DD",2,2, .1212,1,99 1,"DT") | |
8733 | 3170913 | |
8734 | "^DD",2,2, .1212,3) | |
8735 | Enter, if necessary, the secon d line of this appli cants temp orary addr ess [2-30 characters ]. | |
8736 | "^DD",2,2, .1212,20,0 ) | |
8737 | ^.3LA^1^1 | |
8738 | "^DD",2,2, .1212,20,1 ,0) | |
8739 | TAD | |
8740 | "^DD",2,2, .1212,21,0 ) | |
8741 | ^^5^5^2861 007^^^^ | |
8742 | "^DD",2,2, .1212,21,1 ,0) | |
8743 | If the WAN T TO ENTER A TEMPORA RY ADDRESS prompt is answered YES | |
8744 | "^DD",2,2, .1212,21,2 ,0) | |
8745 | enter the second lin e of the t emporary s treet addr ess [2-30 | |
8746 | "^DD",2,2, .1212,21,3 ,0) | |
8747 | characters ], if nece ssary, oth erwise not hing may b e entered. This | |
8748 | "^DD",2,2, .1212,21,4 ,0) | |
8749 | field may not be del eted as lo ng as the need for a temporary | |
8750 | "^DD",2,2, .1212,21,5 ,0) | |
8751 | address is indicated . | |
8752 | "^DD",2,2, .1212,"DT" ) | |
8753 | 3170913 | |
8754 | "^DD",2,2, .1213,0) | |
8755 | TEMPORARY STREET [LI NE 3]^FX^^ .121;3^K:$ L(X)>30!($ L(X)<2) X I $D(X) S DFN=DA D T AD^DGLOCK | |
8756 | "^DD",2,2, .1213,.1) | |
8757 | ||
8758 | "^DD",2,2, .1213,1,0) | |
8759 | ^.1 | |
8760 | "^DD",2,2, .1213,1,99 1,0) | |
8761 | 2^AVAFC121 3^MUMPS | |
8762 | "^DD",2,2, .1213,1,99 1,1) | |
8763 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 3;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
8764 | "^DD",2,2, .1213,1,99 1,2) | |
8765 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 3;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
8766 | "^DD",2,2, .1213,1,99 1,"%D",0) | |
8767 | ^^19^19^31 70913^ | |
8768 | "^DD",2,2, .1213,1,99 1,"%D",1,0 ) | |
8769 | This cross reference is used t o remember that chan ges were m ade to the | |
8770 | "^DD",2,2, .1213,1,99 1,"%D",2,0 ) | |
8771 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
8772 | "^DD",2,2, .1213,1,99 1,"%D",3,0 ) | |
8773 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
8774 | "^DD",2,2, .1213,1,99 1,"%D",4,0 ) | |
8775 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
8776 | "^DD",2,2, .1213,1,99 1,"%D",5,0 ) | |
8777 | ||
8778 | "^DD",2,2, .1213,1,99 1,"%D",6,0 ) | |
8779 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
8780 | "^DD",2,2, .1213,1,99 1,"%D",7,0 ) | |
8781 | executed b ecause the change is being mad e from wit hin the Re gistration | |
8782 | "^DD",2,2, .1213,1,99 1,"%D",8,0 ) | |
8783 | process. | |
8784 | "^DD",2,2, .1213,1,99 1,"%D",9,0 ) | |
8785 | ||
8786 | "^DD",2,2, .1213,1,99 1,"%D",10, 0) | |
8787 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
8788 | "^DD",2,2, .1213,1,99 1,"%D",11, 0) | |
8789 | variable V AFCA08 equ al to 1. | |
8790 | "^DD",2,2, .1213,1,99 1,"%D",12, 0) | |
8791 | ||
8792 | "^DD",2,2, .1213,1,99 1,"%D",13, 0) | |
8793 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
8794 | "^DD",2,2, .1213,1,99 1,"%D",14, 0) | |
8795 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
8796 | "^DD",2,2, .1213,1,99 1,"%D",15, 0) | |
8797 | (#391.71). | |
8798 | "^DD",2,2, .1213,1,99 1,"%D",16, 0) | |
8799 | ||
8800 | "^DD",2,2, .1213,1,99 1,"%D",17, 0) | |
8801 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
8802 | "^DD",2,2, .1213,1,99 1,"%D",18, 0) | |
8803 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
8804 | "^DD",2,2, .1213,1,99 1,"%D",19, 0) | |
8805 | transmissi on only. | |
8806 | "^DD",2,2, .1213,1,99 1,"DT") | |
8807 | 3170913 | |
8808 | "^DD",2,2, .1213,3) | |
8809 | Enter, if necessary, the third line of t his applic ants tempo rary addre ss [2-30 c haracters] . | |
8810 | "^DD",2,2, .1213,20,0 ) | |
8811 | ^.3LA^1^1 | |
8812 | "^DD",2,2, .1213,20,1 ,0) | |
8813 | TAD | |
8814 | "^DD",2,2, .1213,21,0 ) | |
8815 | ^^5^5^2861 007^^ | |
8816 | "^DD",2,2, .1213,21,1 ,0) | |
8817 | If the WAN T TO ENTER A TEMPORA RY ADDRESS prompt is answered YES | |
8818 | "^DD",2,2, .1213,21,2 ,0) | |
8819 | enter the third line of the te mporary st reet addre ss [2-30 | |
8820 | "^DD",2,2, .1213,21,3 ,0) | |
8821 | characters ], if nece ssary, oth erwise not hing may b e entered. | |
8822 | "^DD",2,2, .1213,21,4 ,0) | |
8823 | This field may not b e deleted as long as the need for a temp orary | |
8824 | "^DD",2,2, .1213,21,5 ,0) | |
8825 | address is indicated . | |
8826 | "^DD",2,2, .1213,"DT" ) | |
8827 | 3170913 | |
8828 | "^DD",2,2, .1214,0) | |
8829 | TEMPORARY CITY^FX^^. 121;4^K:$L (X)>30!($L (X)<2) X I $D(X) S D FN=DA D TA D^DGLOCK | |
8830 | "^DD",2,2, .1214,.1) | |
8831 | ||
8832 | "^DD",2,2, .1214,1,0) | |
8833 | ^.1 | |
8834 | "^DD",2,2, .1214,1,99 1,0) | |
8835 | 2^AVAFC121 4^MUMPS | |
8836 | "^DD",2,2, .1214,1,99 1,1) | |
8837 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 4;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
8838 | "^DD",2,2, .1214,1,99 1,2) | |
8839 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 4;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
8840 | "^DD",2,2, .1214,1,99 1,"%D",0) | |
8841 | ^^19^19^31 70913^ | |
8842 | "^DD",2,2, .1214,1,99 1,"%D",1,0 ) | |
8843 | This cross reference is used t o remember that chan ges were m ade to the | |
8844 | "^DD",2,2, .1214,1,99 1,"%D",2,0 ) | |
8845 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
8846 | "^DD",2,2, .1214,1,99 1,"%D",3,0 ) | |
8847 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
8848 | "^DD",2,2, .1214,1,99 1,"%D",4,0 ) | |
8849 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
8850 | "^DD",2,2, .1214,1,99 1,"%D",5,0 ) | |
8851 | ||
8852 | "^DD",2,2, .1214,1,99 1,"%D",6,0 ) | |
8853 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
8854 | "^DD",2,2, .1214,1,99 1,"%D",7,0 ) | |
8855 | executed b ecause the change is being mad e from wit hin the Re gistration | |
8856 | "^DD",2,2, .1214,1,99 1,"%D",8,0 ) | |
8857 | process. | |
8858 | "^DD",2,2, .1214,1,99 1,"%D",9,0 ) | |
8859 | ||
8860 | "^DD",2,2, .1214,1,99 1,"%D",10, 0) | |
8861 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
8862 | "^DD",2,2, .1214,1,99 1,"%D",11, 0) | |
8863 | variable V AFCA08 equ al to 1. | |
8864 | "^DD",2,2, .1214,1,99 1,"%D",12, 0) | |
8865 | ||
8866 | "^DD",2,2, .1214,1,99 1,"%D",13, 0) | |
8867 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
8868 | "^DD",2,2, .1214,1,99 1,"%D",14, 0) | |
8869 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
8870 | "^DD",2,2, .1214,1,99 1,"%D",15, 0) | |
8871 | (#391.71). | |
8872 | "^DD",2,2, .1214,1,99 1,"%D",16, 0) | |
8873 | ||
8874 | "^DD",2,2, .1214,1,99 1,"%D",17, 0) | |
8875 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
8876 | "^DD",2,2, .1214,1,99 1,"%D",18, 0) | |
8877 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
8878 | "^DD",2,2, .1214,1,99 1,"%D",19, 0) | |
8879 | transmissi on only. | |
8880 | "^DD",2,2, .1214,1,99 1,"DT") | |
8881 | 3170913 | |
8882 | "^DD",2,2, .1214,3) | |
8883 | Enter the city in wh ich this a pplicant i s temporar ily residi ng [2-30 c haracters] . | |
8884 | "^DD",2,2, .1214,20,0 ) | |
8885 | ^.3LA^1^1 | |
8886 | "^DD",2,2, .1214,20,1 ,0) | |
8887 | TAD | |
8888 | "^DD",2,2, .1214,21,0 ) | |
8889 | ^^4^4^2861 007^^^^ | |
8890 | "^DD",2,2, .1214,21,1 ,0) | |
8891 | If the WAN T TO ENTER A TEMPORA RY ADDRESS prompt is answered YES | |
8892 | "^DD",2,2, .1214,21,2 ,0) | |
8893 | enter the city in wh ich the te mporary ad dress lies [2-30 cha racters], | |
8894 | "^DD",2,2, .1214,21,3 ,0) | |
8895 | otherwise nothing ma y be enter ed. This field may not be del eted as | |
8896 | "^DD",2,2, .1214,21,4 ,0) | |
8897 | long as th e need for a tempora ry address is indica ted. | |
8898 | "^DD",2,2, .1214,"DEL ",1,0) | |
8899 | S DFN=DA D TADD^DGLO CK1 I '$D( X) | |
8900 | "^DD",2,2, .1214,"DT" ) | |
8901 | 3170913 | |
8902 | "^DD",2,2, .1215,0) | |
8903 | TEMPORARY STATE^*P5' X^DIC(5,^. 121;5^S DI C("S")="I $P(^DIC(5, Y,0),U,6)= 1" D ^DIC K DIC S DI C=DIE,X=+Y K:Y<0 X I $D(X) S D FN=DA D TA D^DGLOCK Q | |
8904 | "^DD",2,2, .1215,.1) | |
8905 | ||
8906 | "^DD",2,2, .1215,1,0) | |
8907 | ^.1 | |
8908 | "^DD",2,2, .1215,1,99 1,0) | |
8909 | 2^AVAFC121 5^MUMPS | |
8910 | "^DD",2,2, .1215,1,99 1,1) | |
8911 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 5;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
8912 | "^DD",2,2, .1215,1,99 1,2) | |
8913 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 5;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
8914 | "^DD",2,2, .1215,1,99 1,"%D",0) | |
8915 | ^^19^19^31 70913^ | |
8916 | "^DD",2,2, .1215,1,99 1,"%D",1,0 ) | |
8917 | This cross reference is used t o remember that chan ges were m ade to the | |
8918 | "^DD",2,2, .1215,1,99 1,"%D",2,0 ) | |
8919 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
8920 | "^DD",2,2, .1215,1,99 1,"%D",3,0 ) | |
8921 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
8922 | "^DD",2,2, .1215,1,99 1,"%D",4,0 ) | |
8923 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
8924 | "^DD",2,2, .1215,1,99 1,"%D",5,0 ) | |
8925 | ||
8926 | "^DD",2,2, .1215,1,99 1,"%D",6,0 ) | |
8927 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
8928 | "^DD",2,2, .1215,1,99 1,"%D",7,0 ) | |
8929 | executed b ecause the change is being mad e from wit hin the Re gistration | |
8930 | "^DD",2,2, .1215,1,99 1,"%D",8,0 ) | |
8931 | process. | |
8932 | "^DD",2,2, .1215,1,99 1,"%D",9,0 ) | |
8933 | ||
8934 | "^DD",2,2, .1215,1,99 1,"%D",10, 0) | |
8935 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
8936 | "^DD",2,2, .1215,1,99 1,"%D",11, 0) | |
8937 | variable V AFCA08 equ al to 1. | |
8938 | "^DD",2,2, .1215,1,99 1,"%D",12, 0) | |
8939 | ||
8940 | "^DD",2,2, .1215,1,99 1,"%D",13, 0) | |
8941 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
8942 | "^DD",2,2, .1215,1,99 1,"%D",14, 0) | |
8943 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
8944 | "^DD",2,2, .1215,1,99 1,"%D",15, 0) | |
8945 | (#391.71). | |
8946 | "^DD",2,2, .1215,1,99 1,"%D",16, 0) | |
8947 | ||
8948 | "^DD",2,2, .1215,1,99 1,"%D",17, 0) | |
8949 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
8950 | "^DD",2,2, .1215,1,99 1,"%D",18, 0) | |
8951 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
8952 | "^DD",2,2, .1215,1,99 1,"%D",19, 0) | |
8953 | transmissi on only. | |
8954 | "^DD",2,2, .1215,1,99 1,"DT") | |
8955 | 3170913 | |
8956 | "^DD",2,2, .1215,3) | |
8957 | Enter the state in w hich this applicant is tempora rily resid ing. | |
8958 | "^DD",2,2, .1215,12) | |
8959 | This scree n will res trict the entry of a state to valid US s tates or p ossessions . | |
8960 | "^DD",2,2, .1215,12.1 ) | |
8961 | S DIC("S") ="I $P(^DI C(5,Y,0),U ,6)=1" | |
8962 | "^DD",2,2, .1215,20,0 ) | |
8963 | ^.3LA^1^1 | |
8964 | "^DD",2,2, .1215,20,1 ,0) | |
8965 | TAD | |
8966 | "^DD",2,2, .1215,21,0 ) | |
8967 | ^.001^5^5^ 3070626^^^ ^ | |
8968 | "^DD",2,2, .1215,21,1 ,0) | |
8969 | If the WAN T TO ENTER A TEMPORA RY ADDRESS prompt is answered YES | |
8970 | "^DD",2,2, .1215,21,2 ,0) | |
8971 | select fro m the avai lable list ing the st ate in whi ch the tem porary | |
8972 | "^DD",2,2, .1215,21,3 ,0) | |
8973 | address li es, otherw ise nothin g may be e ntered. T his field may | |
8974 | "^DD",2,2, .1215,21,4 ,0) | |
8975 | not be del eted as lo ng as the need for a temporary address i s | |
8976 | "^DD",2,2, .1215,21,5 ,0) | |
8977 | indicated. | |
8978 | "^DD",2,2, .1215,"DEL ",1,0) | |
8979 | S DFN=DA D TADD^DGLO CK1 I '$D( X) | |
8980 | "^DD",2,2, .1215,"DT" ) | |
8981 | 3170913 | |
8982 | "^DD",2,2, .1216,0) | |
8983 | TEMPORARY ZIP CODE^F X^^.121;6^ K:X[""""!( $A(X)=45) X I $D(X) K:$L(X)>5! ($L(X)<5)! '(X?5N) X I $D(X) S DFN=DA D T AD^DGLOCK | |
8984 | "^DD",2,2, .1216,.1) | |
8985 | ||
8986 | "^DD",2,2, .1216,1,0) | |
8987 | ^.1 | |
8988 | "^DD",2,2, .1216,1,1, 0) | |
8989 | 2^ATZIP^MU MPS | |
8990 | "^DD",2,2, .1216,1,1, 1) | |
8991 | D SET^DGRE GDD1(DA,.1 2112,.121, 12,X) | |
8992 | "^DD",2,2, .1216,1,1, 2) | |
8993 | D KILL^DGR EGDD1(DA,. 12112,.121 ,12,X) | |
8994 | "^DD",2,2, .1216,1,1, "%D",0) | |
8995 | ^^1^1^2930 603^^^^ | |
8996 | "^DD",2,2, .1216,1,1, "%D",1,0) | |
8997 | This sets the corres ponding zi p+4 field to be equa l to this field's va lue. | |
8998 | "^DD",2,2, .1216,1,1, "DT") | |
8999 | 2930413 | |
9000 | "^DD",2,2, .1216,1,99 1,0) | |
9001 | 2^AVAFC121 6^MUMPS | |
9002 | "^DD",2,2, .1216,1,99 1,1) | |
9003 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 6;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9004 | "^DD",2,2, .1216,1,99 1,2) | |
9005 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 6;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9006 | "^DD",2,2, .1216,1,99 1,"%D",0) | |
9007 | ^^19^19^31 70913^ | |
9008 | "^DD",2,2, .1216,1,99 1,"%D",1,0 ) | |
9009 | This cross reference is used t o remember that chan ges were m ade to the | |
9010 | "^DD",2,2, .1216,1,99 1,"%D",2,0 ) | |
9011 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9012 | "^DD",2,2, .1216,1,99 1,"%D",3,0 ) | |
9013 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9014 | "^DD",2,2, .1216,1,99 1,"%D",4,0 ) | |
9015 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9016 | "^DD",2,2, .1216,1,99 1,"%D",5,0 ) | |
9017 | ||
9018 | "^DD",2,2, .1216,1,99 1,"%D",6,0 ) | |
9019 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9020 | "^DD",2,2, .1216,1,99 1,"%D",7,0 ) | |
9021 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9022 | "^DD",2,2, .1216,1,99 1,"%D",8,0 ) | |
9023 | process. | |
9024 | "^DD",2,2, .1216,1,99 1,"%D",9,0 ) | |
9025 | ||
9026 | "^DD",2,2, .1216,1,99 1,"%D",10, 0) | |
9027 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9028 | "^DD",2,2, .1216,1,99 1,"%D",11, 0) | |
9029 | variable V AFCA08 equ al to 1. | |
9030 | "^DD",2,2, .1216,1,99 1,"%D",12, 0) | |
9031 | ||
9032 | "^DD",2,2, .1216,1,99 1,"%D",13, 0) | |
9033 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9034 | "^DD",2,2, .1216,1,99 1,"%D",14, 0) | |
9035 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9036 | "^DD",2,2, .1216,1,99 1,"%D",15, 0) | |
9037 | (#391.71). | |
9038 | "^DD",2,2, .1216,1,99 1,"%D",16, 0) | |
9039 | ||
9040 | "^DD",2,2, .1216,1,99 1,"%D",17, 0) | |
9041 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9042 | "^DD",2,2, .1216,1,99 1,"%D",18, 0) | |
9043 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9044 | "^DD",2,2, .1216,1,99 1,"%D",19, 0) | |
9045 | transmissi on only. | |
9046 | "^DD",2,2, .1216,1,99 1,"DT") | |
9047 | 3170913 | |
9048 | "^DD",2,2, .1216,3) | |
9049 | Enter the zip code o f the temp orary addr ess at whi ch this pa tient is c urrently r esiding. | |
9050 | "^DD",2,2, .1216,20,0 ) | |
9051 | ^.3LA^1^1 | |
9052 | "^DD",2,2, .1216,20,1 ,0) | |
9053 | TAD | |
9054 | "^DD",2,2, .1216,21,0 ) | |
9055 | ^^4^4^2930 603^^^^ | |
9056 | "^DD",2,2, .1216,21,1 ,0) | |
9057 | If the WAN T TO ENTER A TEMPORA RY ADDRESS prompt is answered YES | |
9058 | "^DD",2,2, .1216,21,2 ,0) | |
9059 | enter the zip code a ssigned to the tempo rary city [5 numeric s], | |
9060 | "^DD",2,2, .1216,21,3 ,0) | |
9061 | otherwise nothing ma y be enter ed. This field may not be del eted | |
9062 | "^DD",2,2, .1216,21,4 ,0) | |
9063 | as long as the need for a temp orary addr ess is ind icated. | |
9064 | "^DD",2,2, .1216,23,0 ) | |
9065 | ^^4^4^2930 603^^ | |
9066 | "^DD",2,2, .1216,23,1 ,0) | |
9067 | This five- digit zip code assoc iated with the tempo rary addre ss is | |
9068 | "^DD",2,2, .1216,23,2 ,0) | |
9069 | populated by the fiv e or nine digit TEMP ORARY ZIP+ 4 field (v ia a trigg er). | |
9070 | "^DD",2,2, .1216,23,3 ,0) | |
9071 | The TEMPOR ARY ZIP CO DE field w ill be mad e un-editi able sever al months | |
9072 | "^DD",2,2, .1216,23,4 ,0) | |
9073 | following the releas e of PIMS 5.3. | |
9074 | "^DD",2,2, .1216,"DEL ",1,0) | |
9075 | S DFN=DA D TADD^DGLO CK1 I '$D( X) | |
9076 | "^DD",2,2, .1216,"DT" ) | |
9077 | 3170913 | |
9078 | "^DD",2,2, .1217,0) | |
9079 | TEMPORARY ADDRESS ST ART DATE^D X^^.121;7^ S %DT="E" D ^%DT S X =Y K:Y<1 X I $D(X) S DFN=DA D TAD^DGLOCK | |
9080 | "^DD",2,2, .1217,.1) | |
9081 | START DATE OF TEMP A DDRESS | |
9082 | "^DD",2,2, .1217,1,0) | |
9083 | ^.1 | |
9084 | "^DD",2,2, .1217,1,1, 0) | |
9085 | 2^AGU1^MUM PS | |
9086 | "^DD",2,2, .1217,1,1, 1) | |
9087 | Q | |
9088 | "^DD",2,2, .1217,1,1, 2) | |
9089 | Q | |
9090 | "^DD",2,2, .1217,1,99 1,0) | |
9091 | 2^AVAFC121 7^MUMPS | |
9092 | "^DD",2,2, .1217,1,99 1,1) | |
9093 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 7;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9094 | "^DD",2,2, .1217,1,99 1,2) | |
9095 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 7;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9096 | "^DD",2,2, .1217,1,99 1,"%D",0) | |
9097 | ^.101^19^1 9^3170914^ ^ | |
9098 | "^DD",2,2, .1217,1,99 1,"%D",1,0 ) | |
9099 | This cross reference is used t o remember that chan ges were m ade to the | |
9100 | "^DD",2,2, .1217,1,99 1,"%D",2,0 ) | |
9101 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9102 | "^DD",2,2, .1217,1,99 1,"%D",3,0 ) | |
9103 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9104 | "^DD",2,2, .1217,1,99 1,"%D",4,0 ) | |
9105 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9106 | "^DD",2,2, .1217,1,99 1,"%D",5,0 ) | |
9107 | ||
9108 | "^DD",2,2, .1217,1,99 1,"%D",6,0 ) | |
9109 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9110 | "^DD",2,2, .1217,1,99 1,"%D",7,0 ) | |
9111 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9112 | "^DD",2,2, .1217,1,99 1,"%D",8,0 ) | |
9113 | process. | |
9114 | "^DD",2,2, .1217,1,99 1,"%D",9,0 ) | |
9115 | ||
9116 | "^DD",2,2, .1217,1,99 1,"%D",10, 0) | |
9117 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9118 | "^DD",2,2, .1217,1,99 1,"%D",11, 0) | |
9119 | variable V AFCA08 equ al to 1. | |
9120 | "^DD",2,2, .1217,1,99 1,"%D",12, 0) | |
9121 | ||
9122 | "^DD",2,2, .1217,1,99 1,"%D",13, 0) | |
9123 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9124 | "^DD",2,2, .1217,1,99 1,"%D",14, 0) | |
9125 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9126 | "^DD",2,2, .1217,1,99 1,"%D",15, 0) | |
9127 | (#391.71). | |
9128 | "^DD",2,2, .1217,1,99 1,"%D",16, 0) | |
9129 | ||
9130 | "^DD",2,2, .1217,1,99 1,"%D",17, 0) | |
9131 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9132 | "^DD",2,2, .1217,1,99 1,"%D",18, 0) | |
9133 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9134 | "^DD",2,2, .1217,1,99 1,"%D",19, 0) | |
9135 | transmissi on only. | |
9136 | "^DD",2,2, .1217,1,99 1,"DT") | |
9137 | 3170913 | |
9138 | "^DD",2,2, .1217,3) | |
9139 | Enter the date on wh ich the pa tient will first be found at t he tempora ry address indicated . | |
9140 | "^DD",2,2, .1217,20,0 ) | |
9141 | ^.3LA^1^1 | |
9142 | "^DD",2,2, .1217,20,1 ,0) | |
9143 | TAD | |
9144 | "^DD",2,2, .1217,21,0 ) | |
9145 | ^^5^5^2890 113^^^ | |
9146 | "^DD",2,2, .1217,21,1 ,0) | |
9147 | If the WAN T TO ENTER A TEMPORA RY ADDRESS prompt is answered YES | |
9148 | "^DD",2,2, .1217,21,2 ,0) | |
9149 | enter the date on wh ich the ap plicant wi ll commenc e being co ntacted | |
9150 | "^DD",2,2, .1217,21,3 ,0) | |
9151 | at the tem porary add ress indic ated, othe rwise noth ing may be | |
9152 | "^DD",2,2, .1217,21,4 ,0) | |
9153 | entered. This field may not b e deleted as long as the need for a | |
9154 | "^DD",2,2, .1217,21,5 ,0) | |
9155 | temporary address is indicated . | |
9156 | "^DD",2,2, .1217,"DEL ",1,0) | |
9157 | S DFN=DA D TADD^DGLO CK1 I '$D( X) | |
9158 | "^DD",2,2, .1217,"DT" ) | |
9159 | 3170913 | |
9160 | "^DD",2,2, .1218,0) | |
9161 | TEMPORARY ADDRESS EN D DATE^DX^ ^.121;8^S %DT="E" D ^%DT S X=Y K:Y<1 X I $D(X) S D FN=DA D TA D^DGLOCK I $D(X),(X< $P(^DPT(DF N,.121),"^ ",7)) K X | |
9162 | "^DD",2,2, .1218,.1) | |
9163 | END DATE O F TEMP ADD RESS | |
9164 | "^DD",2,2, .1218,1,0) | |
9165 | ^.1 | |
9166 | "^DD",2,2, .1218,1,99 1,0) | |
9167 | 2^AVAFC121 8^MUMPS | |
9168 | "^DD",2,2, .1218,1,99 1,1) | |
9169 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 8;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9170 | "^DD",2,2, .1218,1,99 1,2) | |
9171 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".121 8;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9172 | "^DD",2,2, .1218,1,99 1,"%D",0) | |
9173 | ^^19^19^31 70913^ | |
9174 | "^DD",2,2, .1218,1,99 1,"%D",1,0 ) | |
9175 | This cross reference is used t o remember that chan ges were m ade to the | |
9176 | "^DD",2,2, .1218,1,99 1,"%D",2,0 ) | |
9177 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9178 | "^DD",2,2, .1218,1,99 1,"%D",3,0 ) | |
9179 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9180 | "^DD",2,2, .1218,1,99 1,"%D",4,0 ) | |
9181 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9182 | "^DD",2,2, .1218,1,99 1,"%D",5,0 ) | |
9183 | ||
9184 | "^DD",2,2, .1218,1,99 1,"%D",6,0 ) | |
9185 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9186 | "^DD",2,2, .1218,1,99 1,"%D",7,0 ) | |
9187 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9188 | "^DD",2,2, .1218,1,99 1,"%D",8,0 ) | |
9189 | process. | |
9190 | "^DD",2,2, .1218,1,99 1,"%D",9,0 ) | |
9191 | ||
9192 | "^DD",2,2, .1218,1,99 1,"%D",10, 0) | |
9193 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9194 | "^DD",2,2, .1218,1,99 1,"%D",11, 0) | |
9195 | variable V AFCA08 equ al to 1. | |
9196 | "^DD",2,2, .1218,1,99 1,"%D",12, 0) | |
9197 | ||
9198 | "^DD",2,2, .1218,1,99 1,"%D",13, 0) | |
9199 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9200 | "^DD",2,2, .1218,1,99 1,"%D",14, 0) | |
9201 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9202 | "^DD",2,2, .1218,1,99 1,"%D",15, 0) | |
9203 | (#391.71). | |
9204 | "^DD",2,2, .1218,1,99 1,"%D",16, 0) | |
9205 | ||
9206 | "^DD",2,2, .1218,1,99 1,"%D",17, 0) | |
9207 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9208 | "^DD",2,2, .1218,1,99 1,"%D",18, 0) | |
9209 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9210 | "^DD",2,2, .1218,1,99 1,"%D",19, 0) | |
9211 | transmissi on only. | |
9212 | "^DD",2,2, .1218,1,99 1,"DT") | |
9213 | 3170913 | |
9214 | "^DD",2,2, .1218,3) | |
9215 | Enter the date as of which the patient w ill no lon ger be at the tempor ary addres s indicate d. | |
9216 | "^DD",2,2, .1218,20,0 ) | |
9217 | ^.3LA^1^1 | |
9218 | "^DD",2,2, .1218,20,1 ,0) | |
9219 | TAD | |
9220 | "^DD",2,2, .1218,21,0 ) | |
9221 | ^^5^5^2861 007^^ | |
9222 | "^DD",2,2, .1218,21,1 ,0) | |
9223 | If the WAN T TO ENTER A TEMPORA RY ADDRESS prompt is answered YES | |
9224 | "^DD",2,2, .1218,21,2 ,0) | |
9225 | enter the date as of which the applicant will no l onger be c ontacted | |
9226 | "^DD",2,2, .1218,21,3 ,0) | |
9227 | at that te mporary ad dress, oth erwise not hing may b e entered. This | |
9228 | "^DD",2,2, .1218,21,4 ,0) | |
9229 | field may not be del eted as lo ng as the need for a temporary | |
9230 | "^DD",2,2, .1218,21,5 ,0) | |
9231 | address is indicated . | |
9232 | "^DD",2,2, .1218,"DEL ",1,0) | |
9233 | S DFN=DA D TADD^DGLO CK1 I '$D( X) | |
9234 | "^DD",2,2, .1218,"DT" ) | |
9235 | 3170913 | |
9236 | "^DD",2,2, .1223,0) | |
9237 | TEMPORARY ADDRESS CO UNTRY^P779 .004'^HL(7 79.004,^.1 22;3^Q | |
9238 | "^DD",2,2, .1223,1,0) | |
9239 | ^.1 | |
9240 | "^DD",2,2, .1223,1,99 1,0) | |
9241 | 2^AVAFC122 3^MUMPS | |
9242 | "^DD",2,2, .1223,1,99 1,1) | |
9243 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".122 3;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9244 | "^DD",2,2, .1223,1,99 1,2) | |
9245 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".122 3;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9246 | "^DD",2,2, .1223,1,99 1,"%D",0) | |
9247 | ^^19^19^31 70913^ | |
9248 | "^DD",2,2, .1223,1,99 1,"%D",1,0 ) | |
9249 | This cross reference is used t o remember that chan ges were m ade to the | |
9250 | "^DD",2,2, .1223,1,99 1,"%D",2,0 ) | |
9251 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9252 | "^DD",2,2, .1223,1,99 1,"%D",3,0 ) | |
9253 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9254 | "^DD",2,2, .1223,1,99 1,"%D",4,0 ) | |
9255 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9256 | "^DD",2,2, .1223,1,99 1,"%D",5,0 ) | |
9257 | ||
9258 | "^DD",2,2, .1223,1,99 1,"%D",6,0 ) | |
9259 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9260 | "^DD",2,2, .1223,1,99 1,"%D",7,0 ) | |
9261 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9262 | "^DD",2,2, .1223,1,99 1,"%D",8,0 ) | |
9263 | process. | |
9264 | "^DD",2,2, .1223,1,99 1,"%D",9,0 ) | |
9265 | ||
9266 | "^DD",2,2, .1223,1,99 1,"%D",10, 0) | |
9267 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9268 | "^DD",2,2, .1223,1,99 1,"%D",11, 0) | |
9269 | variable V AFCA08 equ al to 1. | |
9270 | "^DD",2,2, .1223,1,99 1,"%D",12, 0) | |
9271 | ||
9272 | "^DD",2,2, .1223,1,99 1,"%D",13, 0) | |
9273 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9274 | "^DD",2,2, .1223,1,99 1,"%D",14, 0) | |
9275 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9276 | "^DD",2,2, .1223,1,99 1,"%D",15, 0) | |
9277 | (#391.71). | |
9278 | "^DD",2,2, .1223,1,99 1,"%D",16, 0) | |
9279 | ||
9280 | "^DD",2,2, .1223,1,99 1,"%D",17, 0) | |
9281 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9282 | "^DD",2,2, .1223,1,99 1,"%D",18, 0) | |
9283 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9284 | "^DD",2,2, .1223,1,99 1,"%D",19, 0) | |
9285 | transmissi on only. | |
9286 | "^DD",2,2, .1223,1,99 1,"DT") | |
9287 | 3170913 | |
9288 | "^DD",2,2, .1223,21,0 ) | |
9289 | ^^4^4^3060 131^ | |
9290 | "^DD",2,2, .1223,21,1 ,0) | |
9291 | Enter the country wh ere the pa tient's te mporary ad dress is l ocated. | |
9292 | "^DD",2,2, .1223,21,2 ,0) | |
9293 | ||
9294 | "^DD",2,2, .1223,21,3 ,0) | |
9295 | If enterin g an Army/ Air Force Post Offic e (APO) or a Fleet P ost Office | |
9296 | "^DD",2,2, .1223,21,4 ,0) | |
9297 | (FPO) addr ess select United St ates as th e country. | |
9298 | "^DD",2,2, .1223,"DT" ) | |
9299 | 3170913 | |
9300 | "^DD",2,2, .133,0) | |
9301 | EMAIL ADDR ESS^F^^.13 ;3^K:$L(X) >50!($L(X) <3)!'(X?1. E1"@"1.E1" ."1.E) X | |
9302 | "^DD",2,2, .133,.1) | |
9303 | Email Addr ess | |
9304 | "^DD",2,2, .133,1,0) | |
9305 | ^.1 | |
9306 | "^DD",2,2, .133,1,1,0 ) | |
9307 | ^^TRIGGER^ 2^.136 | |
9308 | "^DD",2,2, .133,1,1,1 ) | |
9309 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,.13)):^(. 13),1:"") S X=$P(Y(1 ),U,6),X=X S DIU=X K Y S X=DIV S X=$$NOW ^XLFDT() S DIH=$G(^D PT(DIV(0), .13)),DIV= X S $P(^(. 13),U,6)=D IV,DIH=2,D IG=.136 D ^DICR | |
9310 | "^DD",2,2, .133,1,1,2 ) | |
9311 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,.13)):^(. 13),1:"") S X=$P(Y(1 ),U,6),X=X S DIU=X K Y S X=DIV S X=$$NOW ^XLFDT() S DIH=$G(^D PT(DIV(0), .13)),DIV= X S $P(^(. 13),U,6)=D IV,DIH=2,D IG=.136 D ^DICR | |
9312 | "^DD",2,2, .133,1,1,3 ) | |
9313 | DO NOT DE LETE | |
9314 | "^DD",2,2, .133,1,1," %D",0) | |
9315 | ^^2^2^3060 411^ | |
9316 | "^DD",2,2, .133,1,1," %D",1,0) | |
9317 | This cross reference will upda te the EMA IL ADDRESS CHANGE DT /TM field | |
9318 | "^DD",2,2, .133,1,1," %D",2,0) | |
9319 | with curre nt date an d time sta mp each ti me this fi eld is cha nged. | |
9320 | "^DD",2,2, .133,1,1," CREATE VAL UE") | |
9321 | S X=$$NOW^ XLFDT() | |
9322 | "^DD",2,2, .133,1,1," DELETE VAL UE") | |
9323 | S X=$$NOW^ XLFDT() | |
9324 | "^DD",2,2, .133,1,1," DT") | |
9325 | 3050608 | |
9326 | "^DD",2,2, .133,1,1," FIELD") | |
9327 | #.136 | |
9328 | "^DD",2,2, .133,1,991 ,0) | |
9329 | 2^AVAFCMX1 33^MUMPS | |
9330 | "^DD",2,2, .133,1,991 ,1) | |
9331 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".133 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
9332 | "^DD",2,2, .133,1,991 ,2) | |
9333 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".133 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
9334 | "^DD",2,2, .133,1,991 ,"%D",0) | |
9335 | ^^19^19^31 70913^ | |
9336 | "^DD",2,2, .133,1,991 ,"%D",1,0) | |
9337 | This cross reference is used t o remember that chan ges were m ade to the | |
9338 | "^DD",2,2, .133,1,991 ,"%D",2,0) | |
9339 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9340 | "^DD",2,2, .133,1,991 ,"%D",3,0) | |
9341 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9342 | "^DD",2,2, .133,1,991 ,"%D",4,0) | |
9343 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9344 | "^DD",2,2, .133,1,991 ,"%D",5,0) | |
9345 | ||
9346 | "^DD",2,2, .133,1,991 ,"%D",6,0) | |
9347 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9348 | "^DD",2,2, .133,1,991 ,"%D",7,0) | |
9349 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9350 | "^DD",2,2, .133,1,991 ,"%D",8,0) | |
9351 | process. | |
9352 | "^DD",2,2, .133,1,991 ,"%D",9,0) | |
9353 | ||
9354 | "^DD",2,2, .133,1,991 ,"%D",10,0 ) | |
9355 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9356 | "^DD",2,2, .133,1,991 ,"%D",11,0 ) | |
9357 | variable V AFCA08 equ al to 1. | |
9358 | "^DD",2,2, .133,1,991 ,"%D",12,0 ) | |
9359 | ||
9360 | "^DD",2,2, .133,1,991 ,"%D",13,0 ) | |
9361 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9362 | "^DD",2,2, .133,1,991 ,"%D",14,0 ) | |
9363 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9364 | "^DD",2,2, .133,1,991 ,"%D",15,0 ) | |
9365 | (#391.71). | |
9366 | "^DD",2,2, .133,1,991 ,"%D",16,0 ) | |
9367 | ||
9368 | "^DD",2,2, .133,1,991 ,"%D",17,0 ) | |
9369 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9370 | "^DD",2,2, .133,1,991 ,"%D",18,0 ) | |
9371 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9372 | "^DD",2,2, .133,1,991 ,"%D",19,0 ) | |
9373 | transmissi on only. | |
9374 | "^DD",2,2, .133,1,991 ,"DT") | |
9375 | 3170913 | |
9376 | "^DD",2,2, .133,3) | |
9377 | Enter the applicant' s email ad dress [3-5 0 characte rs]. The entry must include a n '@'. | |
9378 | "^DD",2,2, .133,4) | |
9379 | D 133^DGMT DD5 | |
9380 | "^DD",2,2, .133,"DT") | |
9381 | 3170913 | |
9382 | "^DD",2,2, .134,0) | |
9383 | PHONE NUMB ER [CELLUL AR]^FX^^.1 3;4^K:$L(X )>20!($L(X )<4) X I $ D(X) N CTR ,CHR,VAR S VAR=X F C TR=1:1:20 S CHR=$E(V AR,CTR) K: ("12345678 90 -()."'[ CHR) X | |
9384 | "^DD",2,2, .134,.1) | |
9385 | Cell Phone | |
9386 | "^DD",2,2, .134,1,0) | |
9387 | ^.1 | |
9388 | "^DD",2,2, .134,1,1,0 ) | |
9389 | ^^TRIGGER^ 2^.139 | |
9390 | "^DD",2,2, .134,1,1,1 ) | |
9391 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,.13)):^(. 13),1:"") S X=$P(Y(1 ),U,9),X=X S DIU=X K Y S X=DIV S X=$$NOW ^XLFDT() S DIH=$G(^D PT(DIV(0), .13)),DIV= X S $P(^(. 13),U,9)=D IV,DIH=2,D IG=.139 D ^DICR | |
9392 | "^DD",2,2, .134,1,1,2 ) | |
9393 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,.13)):^(. 13),1:"") S X=$P(Y(1 ),U,9),X=X S DIU=X K Y S X=DIV S X=$$NOW ^XLFDT() S DIH=$G(^D PT(DIV(0), .13)),DIV= X S $P(^(. 13),U,9)=D IV,DIH=2,D IG=.139 D ^DICR | |
9394 | "^DD",2,2, .134,1,1," %D",0) | |
9395 | ^^2^2^3060 411^ | |
9396 | "^DD",2,2, .134,1,1," %D",1,0) | |
9397 | This cross reference will upda te the CEL LULAR NUMB ER CHANGE DT/TM fiel d | |
9398 | "^DD",2,2, .134,1,1," %D",2,0) | |
9399 | with curre nt date an d time sta mp each ti me this fi eld is cha nged. | |
9400 | "^DD",2,2, .134,1,1," CREATE VAL UE") | |
9401 | S X=$$NOW^ XLFDT() | |
9402 | "^DD",2,2, .134,1,1," DELETE VAL UE") | |
9403 | S X=$$NOW^ XLFDT() | |
9404 | "^DD",2,2, .134,1,1," FIELD") | |
9405 | #.139 | |
9406 | "^DD",2,2, .134,1,991 ,0) | |
9407 | 2^AVAFCMX1 34^MUMPS | |
9408 | "^DD",2,2, .134,1,991 ,1) | |
9409 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".134 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
9410 | "^DD",2,2, .134,1,991 ,2) | |
9411 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".134 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
9412 | "^DD",2,2, .134,1,991 ,"%D",0) | |
9413 | ^^19^19^31 70913^ | |
9414 | "^DD",2,2, .134,1,991 ,"%D",1,0) | |
9415 | This cross reference is used t o remember that chan ges were m ade to the | |
9416 | "^DD",2,2, .134,1,991 ,"%D",2,0) | |
9417 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9418 | "^DD",2,2, .134,1,991 ,"%D",3,0) | |
9419 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9420 | "^DD",2,2, .134,1,991 ,"%D",4,0) | |
9421 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9422 | "^DD",2,2, .134,1,991 ,"%D",5,0) | |
9423 | ||
9424 | "^DD",2,2, .134,1,991 ,"%D",6,0) | |
9425 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9426 | "^DD",2,2, .134,1,991 ,"%D",7,0) | |
9427 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9428 | "^DD",2,2, .134,1,991 ,"%D",8,0) | |
9429 | process. | |
9430 | "^DD",2,2, .134,1,991 ,"%D",9,0) | |
9431 | ||
9432 | "^DD",2,2, .134,1,991 ,"%D",10,0 ) | |
9433 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9434 | "^DD",2,2, .134,1,991 ,"%D",11,0 ) | |
9435 | variable V AFCA08 equ al to 1. | |
9436 | "^DD",2,2, .134,1,991 ,"%D",12,0 ) | |
9437 | ||
9438 | "^DD",2,2, .134,1,991 ,"%D",13,0 ) | |
9439 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9440 | "^DD",2,2, .134,1,991 ,"%D",14,0 ) | |
9441 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9442 | "^DD",2,2, .134,1,991 ,"%D",15,0 ) | |
9443 | (#391.71). | |
9444 | "^DD",2,2, .134,1,991 ,"%D",16,0 ) | |
9445 | ||
9446 | "^DD",2,2, .134,1,991 ,"%D",17,0 ) | |
9447 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9448 | "^DD",2,2, .134,1,991 ,"%D",18,0 ) | |
9449 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9450 | "^DD",2,2, .134,1,991 ,"%D",19,0 ) | |
9451 | transmissi on only. | |
9452 | "^DD",2,2, .134,1,991 ,"DT") | |
9453 | 3170913 | |
9454 | "^DD",2,2, .134,3) | |
9455 | Answer mus t be 4-20 characters in length , be numer ic with on ly spaces, parenthes is, period s, and das hes for se parators. | |
9456 | "^DD",2,2, .134,21,0) | |
9457 | ^^2^2^3050 111^ | |
9458 | "^DD",2,2, .134,21,1, 0) | |
9459 | Enter the telephone number [4- 20 charact ers] to th e applican t's | |
9460 | "^DD",2,2, .134,21,2, 0) | |
9461 | mobile pho ne. | |
9462 | "^DD",2,2, .134,"DT") | |
9463 | 3170913 | |
9464 | "^DD",2,2, .1411,0) | |
9465 | CONFIDENTI AL STREET [LINE 1]^F X^^.141;1^ K:$L(X)>30 !($L(X)<2) X I $D(X) S DFN=DA D CAD^DGLO CK3 | |
9466 | "^DD",2,2, .1411,1,0) | |
9467 | ^.1 | |
9468 | "^DD",2,2, .1411,1,1, 0) | |
9469 | 2^AXR32^MU MPS | |
9470 | "^DD",2,2, .1411,1,1, 1) | |
9471 | Q | |
9472 | "^DD",2,2, .1411,1,1, 2) | |
9473 | S DGXRF=.1 411 D ^DGD DC Q | |
9474 | "^DD",2,2, .1411,1,1, "DT") | |
9475 | 3030113 | |
9476 | "^DD",2,2, .1411,1,99 1,0) | |
9477 | 2^AVAFC141 1^MUMPS | |
9478 | "^DD",2,2, .1411,1,99 1,1) | |
9479 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9480 | "^DD",2,2, .1411,1,99 1,2) | |
9481 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9482 | "^DD",2,2, .1411,1,99 1,"%D",0) | |
9483 | ^^19^19^31 70913^ | |
9484 | "^DD",2,2, .1411,1,99 1,"%D",1,0 ) | |
9485 | This cross reference is used t o remember that chan ges were m ade to the | |
9486 | "^DD",2,2, .1411,1,99 1,"%D",2,0 ) | |
9487 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9488 | "^DD",2,2, .1411,1,99 1,"%D",3,0 ) | |
9489 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9490 | "^DD",2,2, .1411,1,99 1,"%D",4,0 ) | |
9491 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9492 | "^DD",2,2, .1411,1,99 1,"%D",5,0 ) | |
9493 | ||
9494 | "^DD",2,2, .1411,1,99 1,"%D",6,0 ) | |
9495 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9496 | "^DD",2,2, .1411,1,99 1,"%D",7,0 ) | |
9497 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9498 | "^DD",2,2, .1411,1,99 1,"%D",8,0 ) | |
9499 | process. | |
9500 | "^DD",2,2, .1411,1,99 1,"%D",9,0 ) | |
9501 | ||
9502 | "^DD",2,2, .1411,1,99 1,"%D",10, 0) | |
9503 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9504 | "^DD",2,2, .1411,1,99 1,"%D",11, 0) | |
9505 | variable V AFCA08 equ al to 1. | |
9506 | "^DD",2,2, .1411,1,99 1,"%D",12, 0) | |
9507 | ||
9508 | "^DD",2,2, .1411,1,99 1,"%D",13, 0) | |
9509 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9510 | "^DD",2,2, .1411,1,99 1,"%D",14, 0) | |
9511 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9512 | "^DD",2,2, .1411,1,99 1,"%D",15, 0) | |
9513 | (#391.71). | |
9514 | "^DD",2,2, .1411,1,99 1,"%D",16, 0) | |
9515 | ||
9516 | "^DD",2,2, .1411,1,99 1,"%D",17, 0) | |
9517 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9518 | "^DD",2,2, .1411,1,99 1,"%D",18, 0) | |
9519 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9520 | "^DD",2,2, .1411,1,99 1,"%D",19, 0) | |
9521 | transmissi on only. | |
9522 | "^DD",2,2, .1411,1,99 1,"DT") | |
9523 | 3170913 | |
9524 | "^DD",2,2, .1411,3) | |
9525 | Enter the first line of the ap plicant's confidenti al street address [2 -30 charac ters]. | |
9526 | "^DD",2,2, .1411,21,0 ) | |
9527 | ^^4^4^3030 311^ | |
9528 | "^DD",2,2, .1411,21,1 ,0) | |
9529 | If the 'Co nfidential Address A ctive' pro mpt is ans wered YES, the | |
9530 | "^DD",2,2, .1411,21,2 ,0) | |
9531 | user will be prompte d for the first line of the co nfidential street | |
9532 | "^DD",2,2, .1411,21,3 ,0) | |
9533 | address. This field cannot be deleted a s long as the need f or a | |
9534 | "^DD",2,2, .1411,21,4 ,0) | |
9535 | confidenti al address is indica ted. | |
9536 | "^DD",2,2, .1411,"DEL ",1,0) | |
9537 | S DFN=DA D CADD1^DGL OCK3 I '$D (X) | |
9538 | "^DD",2,2, .1411,"DT" ) | |
9539 | 3170913 | |
9540 | "^DD",2,2, .14116,0) | |
9541 | CONFIDENTI AL ADDR CO UNTRY^P779 .004'^HL(7 79.004,^.1 41;16^Q | |
9542 | "^DD",2,2, .14116,1,0 ) | |
9543 | ^.1 | |
9544 | "^DD",2,2, .14116,1,9 91,0) | |
9545 | 2^AVAFC141 16^MUMPS | |
9546 | "^DD",2,2, .14116,1,9 91,1) | |
9547 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 16;",VAFCE PIC=1 D AV AFC^VAFCDD 01(DA) | |
9548 | "^DD",2,2, .14116,1,9 91,2) | |
9549 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 16;",VAFCE PIC=1 D AV AFC^VAFCDD 01(DA) | |
9550 | "^DD",2,2, .14116,1,9 91,"%D",0) | |
9551 | ^^19^19^31 70913^ | |
9552 | "^DD",2,2, .14116,1,9 91,"%D",1, 0) | |
9553 | This cross reference is used t o remember that chan ges were m ade to the | |
9554 | "^DD",2,2, .14116,1,9 91,"%D",2, 0) | |
9555 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9556 | "^DD",2,2, .14116,1,9 91,"%D",3, 0) | |
9557 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9558 | "^DD",2,2, .14116,1,9 91,"%D",4, 0) | |
9559 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9560 | "^DD",2,2, .14116,1,9 91,"%D",5, 0) | |
9561 | ||
9562 | "^DD",2,2, .14116,1,9 91,"%D",6, 0) | |
9563 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9564 | "^DD",2,2, .14116,1,9 91,"%D",7, 0) | |
9565 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9566 | "^DD",2,2, .14116,1,9 91,"%D",8, 0) | |
9567 | process. | |
9568 | "^DD",2,2, .14116,1,9 91,"%D",9, 0) | |
9569 | ||
9570 | "^DD",2,2, .14116,1,9 91,"%D",10 ,0) | |
9571 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9572 | "^DD",2,2, .14116,1,9 91,"%D",11 ,0) | |
9573 | variable V AFCA08 equ al to 1. | |
9574 | "^DD",2,2, .14116,1,9 91,"%D",12 ,0) | |
9575 | ||
9576 | "^DD",2,2, .14116,1,9 91,"%D",13 ,0) | |
9577 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9578 | "^DD",2,2, .14116,1,9 91,"%D",14 ,0) | |
9579 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9580 | "^DD",2,2, .14116,1,9 91,"%D",15 ,0) | |
9581 | (#391.71). | |
9582 | "^DD",2,2, .14116,1,9 91,"%D",16 ,0) | |
9583 | ||
9584 | "^DD",2,2, .14116,1,9 91,"%D",17 ,0) | |
9585 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9586 | "^DD",2,2, .14116,1,9 91,"%D",18 ,0) | |
9587 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9588 | "^DD",2,2, .14116,1,9 91,"%D",19 ,0) | |
9589 | transmissi on only. | |
9590 | "^DD",2,2, .14116,1,9 91,"DT") | |
9591 | 3170913 | |
9592 | "^DD",2,2, .14116,3) | |
9593 | Enter the country wh ere the pa tient's pe rmanent ad dress is l ocated. | |
9594 | "^DD",2,2, .14116,21, 0) | |
9595 | ^^4^4^3060 131^ | |
9596 | "^DD",2,2, .14116,21, 1,0) | |
9597 | Enter the country wh ere the pa tient's co nfidential address i s located. | |
9598 | "^DD",2,2, .14116,21, 2,0) | |
9599 | ||
9600 | "^DD",2,2, .14116,21, 3,0) | |
9601 | If enterin g an Army/ Air Force Post Offic e (APO) or a Fleet P ost Office | |
9602 | "^DD",2,2, .14116,21, 4,0) | |
9603 | (FPO) addr ess select United St ates as th e country. | |
9604 | "^DD",2,2, .14116,"DT ") | |
9605 | 3170913 | |
9606 | "^DD",2,2, .1412,0) | |
9607 | CONFIDENTI AL STREET [LINE 2]^F X^^.141;2^ K:$L(X)>30 !($L(X)<2) X I $D(X) S DFN=DA D CAD^DGLO CK3 | |
9608 | "^DD",2,2, .1412,1,0) | |
9609 | ^.1 | |
9610 | "^DD",2,2, .1412,1,1, 0) | |
9611 | 2^AXR33^MU MPS | |
9612 | "^DD",2,2, .1412,1,1, 1) | |
9613 | Q | |
9614 | "^DD",2,2, .1412,1,1, 2) | |
9615 | S DGXRF=.1 412 D ^DGD DC Q | |
9616 | "^DD",2,2, .1412,1,1, "DT") | |
9617 | 3030113 | |
9618 | "^DD",2,2, .1412,1,99 1,0) | |
9619 | 2^AVAFC141 2^MUMPS | |
9620 | "^DD",2,2, .1412,1,99 1,1) | |
9621 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 2;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9622 | "^DD",2,2, .1412,1,99 1,2) | |
9623 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 2;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9624 | "^DD",2,2, .1412,1,99 1,"%D",0) | |
9625 | ^^19^19^31 70913^ | |
9626 | "^DD",2,2, .1412,1,99 1,"%D",1,0 ) | |
9627 | This cross reference is used t o remember that chan ges were m ade to the | |
9628 | "^DD",2,2, .1412,1,99 1,"%D",2,0 ) | |
9629 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9630 | "^DD",2,2, .1412,1,99 1,"%D",3,0 ) | |
9631 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9632 | "^DD",2,2, .1412,1,99 1,"%D",4,0 ) | |
9633 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9634 | "^DD",2,2, .1412,1,99 1,"%D",5,0 ) | |
9635 | ||
9636 | "^DD",2,2, .1412,1,99 1,"%D",6,0 ) | |
9637 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9638 | "^DD",2,2, .1412,1,99 1,"%D",7,0 ) | |
9639 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9640 | "^DD",2,2, .1412,1,99 1,"%D",8,0 ) | |
9641 | process. | |
9642 | "^DD",2,2, .1412,1,99 1,"%D",9,0 ) | |
9643 | ||
9644 | "^DD",2,2, .1412,1,99 1,"%D",10, 0) | |
9645 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9646 | "^DD",2,2, .1412,1,99 1,"%D",11, 0) | |
9647 | variable V AFCA08 equ al to 1. | |
9648 | "^DD",2,2, .1412,1,99 1,"%D",12, 0) | |
9649 | ||
9650 | "^DD",2,2, .1412,1,99 1,"%D",13, 0) | |
9651 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9652 | "^DD",2,2, .1412,1,99 1,"%D",14, 0) | |
9653 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9654 | "^DD",2,2, .1412,1,99 1,"%D",15, 0) | |
9655 | (#391.71). | |
9656 | "^DD",2,2, .1412,1,99 1,"%D",16, 0) | |
9657 | ||
9658 | "^DD",2,2, .1412,1,99 1,"%D",17, 0) | |
9659 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9660 | "^DD",2,2, .1412,1,99 1,"%D",18, 0) | |
9661 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9662 | "^DD",2,2, .1412,1,99 1,"%D",19, 0) | |
9663 | transmissi on only. | |
9664 | "^DD",2,2, .1412,1,99 1,"DT") | |
9665 | 3170913 | |
9666 | "^DD",2,2, .1412,3) | |
9667 | If necessa ry, enter the second line of t his applic ant's conf idential a ddress [2- 30 charact ers]. | |
9668 | "^DD",2,2, .1412,21,0 ) | |
9669 | ^^4^4^3030 311^ | |
9670 | "^DD",2,2, .1412,21,1 ,0) | |
9671 | If the 'Co nfidential Address A ctive' pro mpt is ans wered YES, | |
9672 | "^DD",2,2, .1412,21,2 ,0) | |
9673 | the user w ill be pro mpted for the second line of t he confide ntial | |
9674 | "^DD",2,2, .1412,21,3 ,0) | |
9675 | street add ress [2-30 character s]. The s econd line of the st reet | |
9676 | "^DD",2,2, .1412,21,4 ,0) | |
9677 | address is optional and may be left blan k. | |
9678 | "^DD",2,2, .1412,"DT" ) | |
9679 | 3170913 | |
9680 | "^DD",2,2, .1413,0) | |
9681 | CONFIDENTI AL STREET [LINE 3]^F X^^.141;3^ K:$L(X)>30 !($L(X)<2) X I $D(X) S DFN=DA D CAD^DGLO CK3 | |
9682 | "^DD",2,2, .1413,1,0) | |
9683 | ^.1 | |
9684 | "^DD",2,2, .1413,1,99 1,0) | |
9685 | 2^AVAFC141 3^MUMPS | |
9686 | "^DD",2,2, .1413,1,99 1,1) | |
9687 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 3;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9688 | "^DD",2,2, .1413,1,99 1,2) | |
9689 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 3;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9690 | "^DD",2,2, .1413,1,99 1,"%D",0) | |
9691 | ^^19^19^31 70913^ | |
9692 | "^DD",2,2, .1413,1,99 1,"%D",1,0 ) | |
9693 | This cross reference is used t o remember that chan ges were m ade to the | |
9694 | "^DD",2,2, .1413,1,99 1,"%D",2,0 ) | |
9695 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9696 | "^DD",2,2, .1413,1,99 1,"%D",3,0 ) | |
9697 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9698 | "^DD",2,2, .1413,1,99 1,"%D",4,0 ) | |
9699 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9700 | "^DD",2,2, .1413,1,99 1,"%D",5,0 ) | |
9701 | ||
9702 | "^DD",2,2, .1413,1,99 1,"%D",6,0 ) | |
9703 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9704 | "^DD",2,2, .1413,1,99 1,"%D",7,0 ) | |
9705 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9706 | "^DD",2,2, .1413,1,99 1,"%D",8,0 ) | |
9707 | process. | |
9708 | "^DD",2,2, .1413,1,99 1,"%D",9,0 ) | |
9709 | ||
9710 | "^DD",2,2, .1413,1,99 1,"%D",10, 0) | |
9711 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9712 | "^DD",2,2, .1413,1,99 1,"%D",11, 0) | |
9713 | variable V AFCA08 equ al to 1. | |
9714 | "^DD",2,2, .1413,1,99 1,"%D",12, 0) | |
9715 | ||
9716 | "^DD",2,2, .1413,1,99 1,"%D",13, 0) | |
9717 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9718 | "^DD",2,2, .1413,1,99 1,"%D",14, 0) | |
9719 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9720 | "^DD",2,2, .1413,1,99 1,"%D",15, 0) | |
9721 | (#391.71). | |
9722 | "^DD",2,2, .1413,1,99 1,"%D",16, 0) | |
9723 | ||
9724 | "^DD",2,2, .1413,1,99 1,"%D",17, 0) | |
9725 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9726 | "^DD",2,2, .1413,1,99 1,"%D",18, 0) | |
9727 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9728 | "^DD",2,2, .1413,1,99 1,"%D",19, 0) | |
9729 | transmissi on only. | |
9730 | "^DD",2,2, .1413,1,99 1,"DT") | |
9731 | 3170913 | |
9732 | "^DD",2,2, .1413,3) | |
9733 | If necessa ry, enter the third line of th is applica nt's confi dential st reet addre ss [2-30 c haracters] | |
9734 | "^DD",2,2, .1413,21,0 ) | |
9735 | ^^4^4^3030 312^ | |
9736 | "^DD",2,2, .1413,21,1 ,0) | |
9737 | If the 'Co nfidential Address A ctive' pro mpt is ans wered YES, | |
9738 | "^DD",2,2, .1413,21,2 ,0) | |
9739 | the user w ill be pro mpted for the third line of th e confiden tial | |
9740 | "^DD",2,2, .1413,21,3 ,0) | |
9741 | street add ress. The third lin e of the s treet addr ess is opt ional | |
9742 | "^DD",2,2, .1413,21,4 ,0) | |
9743 | and may be left blan k. | |
9744 | "^DD",2,2, .1413,"DT" ) | |
9745 | 3170913 | |
9746 | "^DD",2,2, .1414,0) | |
9747 | CONFIDENTI AL ADDRESS CITY^FX^^ .141;4^K:$ L(X)>30!($ L(X)<2) X I $D(X) S DFN=DA D C AD^DGLOCK3 | |
9748 | "^DD",2,2, .1414,1,0) | |
9749 | ^.1 | |
9750 | "^DD",2,2, .1414,1,99 1,0) | |
9751 | 2^AVAFC141 4^MUMPS | |
9752 | "^DD",2,2, .1414,1,99 1,1) | |
9753 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 4;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9754 | "^DD",2,2, .1414,1,99 1,2) | |
9755 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 4;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9756 | "^DD",2,2, .1414,1,99 1,"%D",0) | |
9757 | ^^19^19^31 70913^ | |
9758 | "^DD",2,2, .1414,1,99 1,"%D",1,0 ) | |
9759 | This cross reference is used t o remember that chan ges were m ade to the | |
9760 | "^DD",2,2, .1414,1,99 1,"%D",2,0 ) | |
9761 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9762 | "^DD",2,2, .1414,1,99 1,"%D",3,0 ) | |
9763 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9764 | "^DD",2,2, .1414,1,99 1,"%D",4,0 ) | |
9765 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9766 | "^DD",2,2, .1414,1,99 1,"%D",5,0 ) | |
9767 | ||
9768 | "^DD",2,2, .1414,1,99 1,"%D",6,0 ) | |
9769 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9770 | "^DD",2,2, .1414,1,99 1,"%D",7,0 ) | |
9771 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9772 | "^DD",2,2, .1414,1,99 1,"%D",8,0 ) | |
9773 | process. | |
9774 | "^DD",2,2, .1414,1,99 1,"%D",9,0 ) | |
9775 | ||
9776 | "^DD",2,2, .1414,1,99 1,"%D",10, 0) | |
9777 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9778 | "^DD",2,2, .1414,1,99 1,"%D",11, 0) | |
9779 | variable V AFCA08 equ al to 1. | |
9780 | "^DD",2,2, .1414,1,99 1,"%D",12, 0) | |
9781 | ||
9782 | "^DD",2,2, .1414,1,99 1,"%D",13, 0) | |
9783 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9784 | "^DD",2,2, .1414,1,99 1,"%D",14, 0) | |
9785 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9786 | "^DD",2,2, .1414,1,99 1,"%D",15, 0) | |
9787 | (#391.71). | |
9788 | "^DD",2,2, .1414,1,99 1,"%D",16, 0) | |
9789 | ||
9790 | "^DD",2,2, .1414,1,99 1,"%D",17, 0) | |
9791 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9792 | "^DD",2,2, .1414,1,99 1,"%D",18, 0) | |
9793 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9794 | "^DD",2,2, .1414,1,99 1,"%D",19, 0) | |
9795 | transmissi on only. | |
9796 | "^DD",2,2, .1414,1,99 1,"DT") | |
9797 | 3170913 | |
9798 | "^DD",2,2, .1414,3) | |
9799 | Enter the city for t he applica nt's confi dential ad dress [2-3 0 characte rs]. | |
9800 | "^DD",2,2, .1414,21,0 ) | |
9801 | ^^4^4^3030 311^ | |
9802 | "^DD",2,2, .1414,21,1 ,0) | |
9803 | If the 'Co nfidential Address A ctive' pro mpt is ans wered YES, enter | |
9804 | "^DD",2,2, .1414,21,2 ,0) | |
9805 | the confid ential add ress city for this a pplicant [ 2-30 chara cters]. | |
9806 | "^DD",2,2, .1414,21,3 ,0) | |
9807 | This field may not b e deleted as long as the need for a conf idential | |
9808 | "^DD",2,2, .1414,21,4 ,0) | |
9809 | address is indicated . | |
9810 | "^DD",2,2, .1414,"DEL ",1,0) | |
9811 | S DFN=DA D CADD1^DGL OCK3 I '$D (X) | |
9812 | "^DD",2,2, .1414,"DT" ) | |
9813 | 3170913 | |
9814 | "^DD",2,2, .1415,0) | |
9815 | CONFIDENTI AL ADDRESS STATE^P5' X^DIC(5,^. 141;5^S DF N=DA D CAD ^DGLOCK3 Q | |
9816 | "^DD",2,2, .1415,1,0) | |
9817 | ^.1 | |
9818 | "^DD",2,2, .1415,1,99 1,0) | |
9819 | 2^AVAFC141 5^MUMPS | |
9820 | "^DD",2,2, .1415,1,99 1,1) | |
9821 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 5;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9822 | "^DD",2,2, .1415,1,99 1,2) | |
9823 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 5;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9824 | "^DD",2,2, .1415,1,99 1,"%D",0) | |
9825 | ^^19^19^31 70913^ | |
9826 | "^DD",2,2, .1415,1,99 1,"%D",1,0 ) | |
9827 | This cross reference is used t o remember that chan ges were m ade to the | |
9828 | "^DD",2,2, .1415,1,99 1,"%D",2,0 ) | |
9829 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9830 | "^DD",2,2, .1415,1,99 1,"%D",3,0 ) | |
9831 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9832 | "^DD",2,2, .1415,1,99 1,"%D",4,0 ) | |
9833 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9834 | "^DD",2,2, .1415,1,99 1,"%D",5,0 ) | |
9835 | ||
9836 | "^DD",2,2, .1415,1,99 1,"%D",6,0 ) | |
9837 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9838 | "^DD",2,2, .1415,1,99 1,"%D",7,0 ) | |
9839 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9840 | "^DD",2,2, .1415,1,99 1,"%D",8,0 ) | |
9841 | process. | |
9842 | "^DD",2,2, .1415,1,99 1,"%D",9,0 ) | |
9843 | ||
9844 | "^DD",2,2, .1415,1,99 1,"%D",10, 0) | |
9845 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9846 | "^DD",2,2, .1415,1,99 1,"%D",11, 0) | |
9847 | variable V AFCA08 equ al to 1. | |
9848 | "^DD",2,2, .1415,1,99 1,"%D",12, 0) | |
9849 | ||
9850 | "^DD",2,2, .1415,1,99 1,"%D",13, 0) | |
9851 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9852 | "^DD",2,2, .1415,1,99 1,"%D",14, 0) | |
9853 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9854 | "^DD",2,2, .1415,1,99 1,"%D",15, 0) | |
9855 | (#391.71). | |
9856 | "^DD",2,2, .1415,1,99 1,"%D",16, 0) | |
9857 | ||
9858 | "^DD",2,2, .1415,1,99 1,"%D",17, 0) | |
9859 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9860 | "^DD",2,2, .1415,1,99 1,"%D",18, 0) | |
9861 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9862 | "^DD",2,2, .1415,1,99 1,"%D",19, 0) | |
9863 | transmissi on only. | |
9864 | "^DD",2,2, .1415,1,99 1,"DT") | |
9865 | 3170913 | |
9866 | "^DD",2,2, .1415,3) | |
9867 | Enter the State for the applic ant's conf idential a ddress. | |
9868 | "^DD",2,2, .1415,21,0 ) | |
9869 | ^^4^4^3030 311^ | |
9870 | "^DD",2,2, .1415,21,1 ,0) | |
9871 | If the 'Co nfidential Address A ctive' pro mpt is ans wered YES, | |
9872 | "^DD",2,2, .1415,21,2 ,0) | |
9873 | the user w ill be ask ed to sele ct the con fidential address st ate | |
9874 | "^DD",2,2, .1415,21,3 ,0) | |
9875 | from the a vailable l isting. T his field may not be deleted a s | |
9876 | "^DD",2,2, .1415,21,4 ,0) | |
9877 | long as th e need for a confide ntial addr ess is ind icated. | |
9878 | "^DD",2,2, .1415,"DEL ",1,0) | |
9879 | S DFN=DA D CADD1^DGL OCK3 I '$D (X) | |
9880 | "^DD",2,2, .1415,"DT" ) | |
9881 | 3170913 | |
9882 | "^DD",2,2, .1416,0) | |
9883 | CONFIDENTI AL ADDRESS ZIP CODE^ FXO^^.141; 6^K:$L(X)> 20!($L(X)< 5) X I $D( X) S DFN=D A D CAD^DG LOCK3 I $D (X) D ZIPI N^VAFADDR | |
9884 | "^DD",2,2, .1416,1,0) | |
9885 | ^.1 | |
9886 | "^DD",2,2, .1416,1,99 1,0) | |
9887 | 2^AVAFC141 6^MUMPS | |
9888 | "^DD",2,2, .1416,1,99 1,1) | |
9889 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 6;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9890 | "^DD",2,2, .1416,1,99 1,2) | |
9891 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 6;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9892 | "^DD",2,2, .1416,1,99 1,"%D",0) | |
9893 | ^^19^19^31 70913^ | |
9894 | "^DD",2,2, .1416,1,99 1,"%D",1,0 ) | |
9895 | This cross reference is used t o remember that chan ges were m ade to the | |
9896 | "^DD",2,2, .1416,1,99 1,"%D",2,0 ) | |
9897 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9898 | "^DD",2,2, .1416,1,99 1,"%D",3,0 ) | |
9899 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9900 | "^DD",2,2, .1416,1,99 1,"%D",4,0 ) | |
9901 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9902 | "^DD",2,2, .1416,1,99 1,"%D",5,0 ) | |
9903 | ||
9904 | "^DD",2,2, .1416,1,99 1,"%D",6,0 ) | |
9905 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9906 | "^DD",2,2, .1416,1,99 1,"%D",7,0 ) | |
9907 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9908 | "^DD",2,2, .1416,1,99 1,"%D",8,0 ) | |
9909 | process. | |
9910 | "^DD",2,2, .1416,1,99 1,"%D",9,0 ) | |
9911 | ||
9912 | "^DD",2,2, .1416,1,99 1,"%D",10, 0) | |
9913 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9914 | "^DD",2,2, .1416,1,99 1,"%D",11, 0) | |
9915 | variable V AFCA08 equ al to 1. | |
9916 | "^DD",2,2, .1416,1,99 1,"%D",12, 0) | |
9917 | ||
9918 | "^DD",2,2, .1416,1,99 1,"%D",13, 0) | |
9919 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9920 | "^DD",2,2, .1416,1,99 1,"%D",14, 0) | |
9921 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9922 | "^DD",2,2, .1416,1,99 1,"%D",15, 0) | |
9923 | (#391.71). | |
9924 | "^DD",2,2, .1416,1,99 1,"%D",16, 0) | |
9925 | ||
9926 | "^DD",2,2, .1416,1,99 1,"%D",17, 0) | |
9927 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
9928 | "^DD",2,2, .1416,1,99 1,"%D",18, 0) | |
9929 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
9930 | "^DD",2,2, .1416,1,99 1,"%D",19, 0) | |
9931 | transmissi on only. | |
9932 | "^DD",2,2, .1416,1,99 1,"DT") | |
9933 | 3170913 | |
9934 | "^DD",2,2, .1416,2) | |
9935 | S Y(0)=Y D ZIPOUT^VA FADDR | |
9936 | "^DD",2,2, .1416,2.1) | |
9937 | D ZIPOUT^V AFADDR | |
9938 | "^DD",2,2, .1416,3) | |
9939 | Answer wit h either t he 5 digit or 9 digi t zip code . | |
9940 | "^DD",2,2, .1416,21,0 ) | |
9941 | ^.001^4^4^ 3030314^^ | |
9942 | "^DD",2,2, .1416,21,1 ,0) | |
9943 | If the 'Co nfidential Address A ctive' pro mpt is ans wered YES, | |
9944 | "^DD",2,2, .1416,21,2 ,0) | |
9945 | the user w ill be ask ed to ente r the zip code assig ned to the | |
9946 | "^DD",2,2, .1416,21,3 ,0) | |
9947 | city for t he confide ntial addr ess. This field may not be de leted | |
9948 | "^DD",2,2, .1416,21,4 ,0) | |
9949 | as long as the need for a conf idential a ddress is indicated. | |
9950 | "^DD",2,2, .1416,"DEL ",1,0) | |
9951 | S DFN=DA D CADD1^DGL OCK3 I '$D (X) | |
9952 | "^DD",2,2, .1416,"DT" ) | |
9953 | 3170913 | |
9954 | "^DD",2,2, .1417,0) | |
9955 | CONFIDENTI AL START D ATE^DX^^.1 41;7^S %DT ="EX",%DT( 0)=DT D ^% DT S X=Y K :Y<1 X K % DT(0) I $D (X) S DFN= DA D CAD^D GLOCK3 | |
9956 | "^DD",2,2, .1417,1,0) | |
9957 | ^.1 | |
9958 | "^DD",2,2, .1417,1,99 1,0) | |
9959 | 2^AVAFC141 7^MUMPS | |
9960 | "^DD",2,2, .1417,1,99 1,1) | |
9961 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 7;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9962 | "^DD",2,2, .1417,1,99 1,2) | |
9963 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 7;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
9964 | "^DD",2,2, .1417,1,99 1,"%D",0) | |
9965 | ^.101^19^1 9^3171020^ ^ | |
9966 | "^DD",2,2, .1417,1,99 1,"%D",1,0 ) | |
9967 | This cross reference is used t o remember that chan ges were m ade to the | |
9968 | "^DD",2,2, .1417,1,99 1,"%D",2,0 ) | |
9969 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
9970 | "^DD",2,2, .1417,1,99 1,"%D",3,0 ) | |
9971 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
9972 | "^DD",2,2, .1417,1,99 1,"%D",4,0 ) | |
9973 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
9974 | "^DD",2,2, .1417,1,99 1,"%D",5,0 ) | |
9975 | ||
9976 | "^DD",2,2, .1417,1,99 1,"%D",6,0 ) | |
9977 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
9978 | "^DD",2,2, .1417,1,99 1,"%D",7,0 ) | |
9979 | executed b ecause the change is being mad e from wit hin the Re gistration | |
9980 | "^DD",2,2, .1417,1,99 1,"%D",8,0 ) | |
9981 | process. | |
9982 | "^DD",2,2, .1417,1,99 1,"%D",9,0 ) | |
9983 | ||
9984 | "^DD",2,2, .1417,1,99 1,"%D",10, 0) | |
9985 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
9986 | "^DD",2,2, .1417,1,99 1,"%D",11, 0) | |
9987 | variable V AFCA08 equ al to 1. | |
9988 | "^DD",2,2, .1417,1,99 1,"%D",12, 0) | |
9989 | ||
9990 | "^DD",2,2, .1417,1,99 1,"%D",13, 0) | |
9991 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
9992 | "^DD",2,2, .1417,1,99 1,"%D",14, 0) | |
9993 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
9994 | "^DD",2,2, .1417,1,99 1,"%D",15, 0) | |
9995 | (#391.71). | |
9996 | "^DD",2,2, .1417,1,99 1,"%D",16, 0) | |
9997 | ||
9998 | "^DD",2,2, .1417,1,99 1,"%D",17, 0) | |
9999 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
10000 | "^DD",2,2, .1417,1,99 1,"%D",18, 0) | |
10001 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
10002 | "^DD",2,2, .1417,1,99 1,"%D",19, 0) | |
10003 | transmissi on only. | |
10004 | "^DD",2,2, .1417,1,99 1,"DT") | |
10005 | 3170913 | |
10006 | "^DD",2,2, .1417,3) | |
10007 | Enter the date to be gin contac ting the a pplicant a t the conf idential a ddress. D ate cannot be in the past. | |
10008 | "^DD",2,2, .1417,21,0 ) | |
10009 | ^^3^3^3060 829^ | |
10010 | "^DD",2,2, .1417,21,1 ,0) | |
10011 | If the 'Co nfidential Address A ctive' pro mpt is ans wered YES, | |
10012 | "^DD",2,2, .1417,21,2 ,0) | |
10013 | enter the date to be gin contac ting the a pplicant a t the | |
10014 | "^DD",2,2, .1417,21,3 ,0) | |
10015 | confidenti al address . | |
10016 | "^DD",2,2, .1417,23,0 ) | |
10017 | ^^10^10^30 60829^ | |
10018 | "^DD",2,2, .1417,23,1 ,0) | |
10019 | This field contains an input t ransform w hich does a number o f things. It | |
10020 | "^DD",2,2, .1417,23,2 ,0) | |
10021 | validates the date e ntered, do es not all ow a date prior to t he current | |
10022 | "^DD",2,2, .1417,23,3 ,0) | |
10023 | date, and prevents c hanges to this field if the Co nfidential Address i s | |
10024 | "^DD",2,2, .1417,23,4 ,0) | |
10025 | flagged IN ACTIVE. | |
10026 | "^DD",2,2, .1417,23,5 ,0) | |
10027 | ||
10028 | "^DD",2,2, .1417,23,6 ,0) | |
10029 | Special no te: the in put transf orm sets % DT(0)=DT t o validate the date | |
10030 | "^DD",2,2, .1417,23,7 ,0) | |
10031 | entered. Because ch anges to t his field will updat e the CONF IDENTIAL | |
10032 | "^DD",2,2, .1417,23,8 ,0) | |
10033 | ADDRESS CH ANGE DT/TM field, it is necess ary to kil l %DT(0) a fter the | |
10034 | "^DD",2,2, .1417,23,9 ,0) | |
10035 | validation . This va riable, if valued, c an prevent EVENT^IVM PLOG from | |
10036 | "^DD",2,2, .1417,23,1 0,0) | |
10037 | setting th e transmit flag if o nly the St art and En d dates ar e changed. | |
10038 | "^DD",2,2, .1417,"DEL ",1,0) | |
10039 | S DFN=DA D CADD1^DGL OCK3 I '$D (X) | |
10040 | "^DD",2,2, .1417,"DT" ) | |
10041 | 3170913 | |
10042 | "^DD",2,2, .1418,0) | |
10043 | CONFIDENTI AL END DAT E^DX^^.141 ;8^S %DT=" EX" D ^%DT S X=Y K:Y <1 X I $D( X) S DFN=D A D CAD^DG LOCK3 I $D (X),(X<$P( ^DPT(DFN,. 141),"^",7 )) K X | |
10044 | "^DD",2,2, .1418,1,0) | |
10045 | ^.1 | |
10046 | "^DD",2,2, .1418,1,99 1,0) | |
10047 | 2^AVAFC141 8^MUMPS | |
10048 | "^DD",2,2, .1418,1,99 1,1) | |
10049 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 8;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
10050 | "^DD",2,2, .1418,1,99 1,2) | |
10051 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".141 8;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
10052 | "^DD",2,2, .1418,1,99 1,"%D",0) | |
10053 | ^^19^19^31 70913^ | |
10054 | "^DD",2,2, .1418,1,99 1,"%D",1,0 ) | |
10055 | This cross reference is used t o remember that chan ges were m ade to the | |
10056 | "^DD",2,2, .1418,1,99 1,"%D",2,0 ) | |
10057 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
10058 | "^DD",2,2, .1418,1,99 1,"%D",3,0 ) | |
10059 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
10060 | "^DD",2,2, .1418,1,99 1,"%D",4,0 ) | |
10061 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
10062 | "^DD",2,2, .1418,1,99 1,"%D",5,0 ) | |
10063 | ||
10064 | "^DD",2,2, .1418,1,99 1,"%D",6,0 ) | |
10065 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
10066 | "^DD",2,2, .1418,1,99 1,"%D",7,0 ) | |
10067 | executed b ecause the change is being mad e from wit hin the Re gistration | |
10068 | "^DD",2,2, .1418,1,99 1,"%D",8,0 ) | |
10069 | process. | |
10070 | "^DD",2,2, .1418,1,99 1,"%D",9,0 ) | |
10071 | ||
10072 | "^DD",2,2, .1418,1,99 1,"%D",10, 0) | |
10073 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
10074 | "^DD",2,2, .1418,1,99 1,"%D",11, 0) | |
10075 | variable V AFCA08 equ al to 1. | |
10076 | "^DD",2,2, .1418,1,99 1,"%D",12, 0) | |
10077 | ||
10078 | "^DD",2,2, .1418,1,99 1,"%D",13, 0) | |
10079 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
10080 | "^DD",2,2, .1418,1,99 1,"%D",14, 0) | |
10081 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
10082 | "^DD",2,2, .1418,1,99 1,"%D",15, 0) | |
10083 | (#391.71). | |
10084 | "^DD",2,2, .1418,1,99 1,"%D",16, 0) | |
10085 | ||
10086 | "^DD",2,2, .1418,1,99 1,"%D",17, 0) | |
10087 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
10088 | "^DD",2,2, .1418,1,99 1,"%D",18, 0) | |
10089 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
10090 | "^DD",2,2, .1418,1,99 1,"%D",19, 0) | |
10091 | transmissi on only. | |
10092 | "^DD",2,2, .1418,1,99 1,"DT") | |
10093 | 3170913 | |
10094 | "^DD",2,2, .1418,3) | |
10095 | Enter the date the a pplicant w ill no lon ger be con tacted at the confid ential add ress. End date must be after start date . | |
10096 | "^DD",2,2, .1418,21,0 ) | |
10097 | ^.001^2^2^ 3030314^^ | |
10098 | "^DD",2,2, .1418,21,1 ,0) | |
10099 | If the 'Co nfidential Address A ctive' pro mpt is ans wered YES, enter | |
10100 | "^DD",2,2, .1418,21,2 ,0) | |
10101 | the date t he applica nt will no longer be contacted at this a ddress. | |
10102 | "^DD",2,2, .1418,"DEL ",1,0) | |
10103 | S DFN=DA D CADD1^DGL OCK3 I '$D (X) | |
10104 | "^DD",2,2, .1418,"DT" ) | |
10105 | 3170913 | |
10106 | "^DD",2,2, .331,0) | |
10107 | E-NAME^F^^ .33;1^K:$L (X)>35!($L (X)<3) X I $D(X) S D G20NAME=X, (X,DG20NAM E)=$$FORMA T^XLFNAME7 (.DG20NAME ,3,35) K:' $L(X) X,DG 20NAME | |
10108 | "^DD",2,2, .331,.1) | |
10109 | EMERGENCY CONTACT | |
10110 | "^DD",2,2, .331,1,0) | |
10111 | ^.1 | |
10112 | "^DD",2,2, .331,1,1,0 ) | |
10113 | 2^AXR4^MUM PS | |
10114 | "^DD",2,2, .331,1,1,1 ) | |
10115 | Q | |
10116 | "^DD",2,2, .331,1,1,2 ) | |
10117 | S DGXRF=.3 31 D ^DGDD C Q | |
10118 | "^DD",2,2, .331,1,991 ,0) | |
10119 | 2^AVAFC331 ^MUMPS | |
10120 | "^DD",2,2, .331,1,991 ,1) | |
10121 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".331 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10122 | "^DD",2,2, .331,1,991 ,2) | |
10123 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".331 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10124 | "^DD",2,2, .331,1,991 ,"%D",0) | |
10125 | ^.101^19^1 9^3180208^ ^^^ | |
10126 | "^DD",2,2, .331,1,991 ,"%D",1,0) | |
10127 | This cross reference is used t o remember that chan ges were m ade to the | |
10128 | "^DD",2,2, .331,1,991 ,"%D",2,0) | |
10129 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
10130 | "^DD",2,2, .331,1,991 ,"%D",3,0) | |
10131 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
10132 | "^DD",2,2, .331,1,991 ,"%D",4,0) | |
10133 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
10134 | "^DD",2,2, .331,1,991 ,"%D",5,0) | |
10135 | ||
10136 | "^DD",2,2, .331,1,991 ,"%D",6,0) | |
10137 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
10138 | "^DD",2,2, .331,1,991 ,"%D",7,0) | |
10139 | executed b ecause the change is being mad e from wit hin the Re gistration | |
10140 | "^DD",2,2, .331,1,991 ,"%D",8,0) | |
10141 | process. | |
10142 | "^DD",2,2, .331,1,991 ,"%D",9,0) | |
10143 | ||
10144 | "^DD",2,2, .331,1,991 ,"%D",10,0 ) | |
10145 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
10146 | "^DD",2,2, .331,1,991 ,"%D",11,0 ) | |
10147 | variable V AFCA08 equ al to 1. | |
10148 | "^DD",2,2, .331,1,991 ,"%D",12,0 ) | |
10149 | ||
10150 | "^DD",2,2, .331,1,991 ,"%D",13,0 ) | |
10151 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
10152 | "^DD",2,2, .331,1,991 ,"%D",14,0 ) | |
10153 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
10154 | "^DD",2,2, .331,1,991 ,"%D",15,0 ) | |
10155 | (#391.71). | |
10156 | "^DD",2,2, .331,1,991 ,"%D",16,0 ) | |
10157 | ||
10158 | "^DD",2,2, .331,1,991 ,"%D",17,0 ) | |
10159 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
10160 | "^DD",2,2, .331,1,991 ,"%D",18,0 ) | |
10161 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
10162 | "^DD",2,2, .331,1,991 ,"%D",19,0 ) | |
10163 | transmissi on only. | |
10164 | "^DD",2,2, .331,1,991 ,"DT") | |
10165 | 3170929 | |
10166 | "^DD",2,2, .331,3) | |
10167 | Enter name in 'LAST, FIRST MIDD LE SUFFIX' format, m ust be 3-3 5 characte rs in leng th. | |
10168 | "^DD",2,2, .331,20,0) | |
10169 | ^.3LA^1^1 | |
10170 | "^DD",2,2, .331,20,1, 0) | |
10171 | EC1 | |
10172 | "^DD",2,2, .331,21,0) | |
10173 | ^^4^4^2861 117^^^ | |
10174 | "^DD",2,2, .331,21,1, 0) | |
10175 | Enter the primary em ergency co ntact's na me in 'LAS T,FIRST MI DDLE SUFFI X' format. | |
10176 | "^DD",2,2, .331,21,2, 0) | |
10177 | This value must be 3 -35 charac ters in le ngth and m ay contain only uppe rcase | |
10178 | "^DD",2,2, .331,21,3, 0) | |
10179 | alpha char acters, sp aces, apos trophes, h yphens and one comma . All oth er | |
10180 | "^DD",2,2, .331,21,4, 0) | |
10181 | characters and paren thetical t ext will b e removed. | |
10182 | "^DD",2,2, .331,"DT") | |
10183 | 3170929 | |
10184 | "^DD",2,2, .332,0) | |
10185 | E-RELATION SHIP TO PA TIENT^FX^^ .33;2^K:$L (X)>30!($L (X)<2) X I $D(X) S D FN=DA D E1 ^DGLOCK2 | |
10186 | "^DD",2,2, .332,.1) | |
10187 | ||
10188 | "^DD",2,2, .332,1,0) | |
10189 | ^.1 | |
10190 | "^DD",2,2, .332,1,991 ,0) | |
10191 | 2^AVAFC332 ^MUMPS | |
10192 | "^DD",2,2, .332,1,991 ,1) | |
10193 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".332 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10194 | "^DD",2,2, .332,1,991 ,2) | |
10195 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".332 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10196 | "^DD",2,2, .332,1,991 ,"%D",0) | |
10197 | ^.101^19^1 9^3170929^ ^ | |
10198 | "^DD",2,2, .332,1,991 ,"%D",1,0) | |
10199 | This cross reference is used t o remember that chan ges were m ade to the | |
10200 | "^DD",2,2, .332,1,991 ,"%D",2,0) | |
10201 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
10202 | "^DD",2,2, .332,1,991 ,"%D",3,0) | |
10203 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
10204 | "^DD",2,2, .332,1,991 ,"%D",4,0) | |
10205 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
10206 | "^DD",2,2, .332,1,991 ,"%D",5,0) | |
10207 | ||
10208 | "^DD",2,2, .332,1,991 ,"%D",6,0) | |
10209 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
10210 | "^DD",2,2, .332,1,991 ,"%D",7,0) | |
10211 | executed b ecause the change is being mad e from wit hin the Re gistration | |
10212 | "^DD",2,2, .332,1,991 ,"%D",8,0) | |
10213 | process. | |
10214 | "^DD",2,2, .332,1,991 ,"%D",9,0) | |
10215 | ||
10216 | "^DD",2,2, .332,1,991 ,"%D",10,0 ) | |
10217 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
10218 | "^DD",2,2, .332,1,991 ,"%D",11,0 ) | |
10219 | variable V AFCA08 equ al to 1. | |
10220 | "^DD",2,2, .332,1,991 ,"%D",12,0 ) | |
10221 | ||
10222 | "^DD",2,2, .332,1,991 ,"%D",13,0 ) | |
10223 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
10224 | "^DD",2,2, .332,1,991 ,"%D",14,0 ) | |
10225 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
10226 | "^DD",2,2, .332,1,991 ,"%D",15,0 ) | |
10227 | (#391.71). | |
10228 | "^DD",2,2, .332,1,991 ,"%D",16,0 ) | |
10229 | ||
10230 | "^DD",2,2, .332,1,991 ,"%D",17,0 ) | |
10231 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
10232 | "^DD",2,2, .332,1,991 ,"%D",18,0 ) | |
10233 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
10234 | "^DD",2,2, .332,1,991 ,"%D",19,0 ) | |
10235 | transmissi on only. | |
10236 | "^DD",2,2, .332,1,991 ,"DT") | |
10237 | 3170929 | |
10238 | "^DD",2,2, .332,3) | |
10239 | Enter the relationsh ip of the emergency contact to the patie nt [3-35 c haracters] . | |
10240 | "^DD",2,2, .332,20,0) | |
10241 | ^.3LA^1^1 | |
10242 | "^DD",2,2, .332,20,1, 0) | |
10243 | EC1 | |
10244 | "^DD",2,2, .332,21,0) | |
10245 | ^^4^4^2861 007^ | |
10246 | "^DD",2,2, .332,21,1, 0) | |
10247 | If a prima ry emergen cy contact is specif ied enter the relati onship | |
10248 | "^DD",2,2, .332,21,2, 0) | |
10249 | of that pe rson to th e applican t [3-35 ch aracters], otherwise nothing | |
10250 | "^DD",2,2, .332,21,3, 0) | |
10251 | may be ent ered. Thi s field ca nnot be de leted as l ong as a p rimary | |
10252 | "^DD",2,2, .332,21,4, 0) | |
10253 | emergency contact is on file. | |
10254 | "^DD",2,2, .332,"DEL" ,1,0) | |
10255 | S DFN=DA D E1D^DGLOC K2 I '$D(X ) | |
10256 | "^DD",2,2, .332,"DT") | |
10257 | 3170929 | |
10258 | "^DD",2,2, .333,0) | |
10259 | E-STREET A DDRESS [LI NE 1]^FX^^ .33;3^K:X[ """"!($A(X )=45) X I $D(X) K:$L (X)>30!($L (X)<3) X I $D(X) S D FN=DA D E1 ^DGLOCK2 | |
10260 | "^DD",2,2, .333,.1) | |
10261 | ||
10262 | "^DD",2,2, .333,1,0) | |
10263 | ^.1 | |
10264 | "^DD",2,2, .333,1,1,0 ) | |
10265 | 2^AXR24^MU MPS | |
10266 | "^DD",2,2, .333,1,1,1 ) | |
10267 | Q | |
10268 | "^DD",2,2, .333,1,1,2 ) | |
10269 | S DGXRF=.3 33 D ^DGDD C Q | |
10270 | "^DD",2,2, .333,1,991 ,0) | |
10271 | 2^AVAFC333 ^MUMPS | |
10272 | "^DD",2,2, .333,1,991 ,1) | |
10273 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".333 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10274 | "^DD",2,2, .333,1,991 ,2) | |
10275 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".333 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10276 | "^DD",2,2, .333,1,991 ,"%D",0) | |
10277 | ^.101^19^1 9^3170929^ ^ | |
10278 | "^DD",2,2, .333,1,991 ,"%D",1,0) | |
10279 | This cross reference is used t o remember that chan ges were m ade to the | |
10280 | "^DD",2,2, .333,1,991 ,"%D",2,0) | |
10281 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
10282 | "^DD",2,2, .333,1,991 ,"%D",3,0) | |
10283 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
10284 | "^DD",2,2, .333,1,991 ,"%D",4,0) | |
10285 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
10286 | "^DD",2,2, .333,1,991 ,"%D",5,0) | |
10287 | ||
10288 | "^DD",2,2, .333,1,991 ,"%D",6,0) | |
10289 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
10290 | "^DD",2,2, .333,1,991 ,"%D",7,0) | |
10291 | executed b ecause the change is being mad e from wit hin the Re gistration | |
10292 | "^DD",2,2, .333,1,991 ,"%D",8,0) | |
10293 | process. | |
10294 | "^DD",2,2, .333,1,991 ,"%D",9,0) | |
10295 | ||
10296 | "^DD",2,2, .333,1,991 ,"%D",10,0 ) | |
10297 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
10298 | "^DD",2,2, .333,1,991 ,"%D",11,0 ) | |
10299 | variable V AFCA08 equ al to 1. | |
10300 | "^DD",2,2, .333,1,991 ,"%D",12,0 ) | |
10301 | ||
10302 | "^DD",2,2, .333,1,991 ,"%D",13,0 ) | |
10303 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
10304 | "^DD",2,2, .333,1,991 ,"%D",14,0 ) | |
10305 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
10306 | "^DD",2,2, .333,1,991 ,"%D",15,0 ) | |
10307 | (#391.71). | |
10308 | "^DD",2,2, .333,1,991 ,"%D",16,0 ) | |
10309 | ||
10310 | "^DD",2,2, .333,1,991 ,"%D",17,0 ) | |
10311 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
10312 | "^DD",2,2, .333,1,991 ,"%D",18,0 ) | |
10313 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
10314 | "^DD",2,2, .333,1,991 ,"%D",19,0 ) | |
10315 | transmissi on only. | |
10316 | "^DD",2,2, .333,1,991 ,"DT") | |
10317 | 3170929 | |
10318 | "^DD",2,2, .333,3) | |
10319 | Enter the first line of the em ergency co ntacts str eet addres s [3-30 ch aracters]. | |
10320 | "^DD",2,2, .333,20,0) | |
10321 | ^.3LA^1^1 | |
10322 | "^DD",2,2, .333,20,1, 0) | |
10323 | EC1 | |
10324 | "^DD",2,2, .333,21,0) | |
10325 | ^^4^4^2861 117^^ | |
10326 | "^DD",2,2, .333,21,1, 0) | |
10327 | If a prima ry emergen cy contact is specif ied enter the first line | |
10328 | "^DD",2,2, .333,21,2, 0) | |
10329 | of that pe rson's str eet addres s [3-30 ch aracters], otherwise | |
10330 | "^DD",2,2, .333,21,3, 0) | |
10331 | nothing ma y be enter ed. This field cann ot be dele ted as lon g as | |
10332 | "^DD",2,2, .333,21,4, 0) | |
10333 | a primary emergency contact is on file. | |
10334 | "^DD",2,2, .333,"DEL" ,1,0) | |
10335 | S DFN=DA D E1D^DGLOC K2 I '$D(X ) | |
10336 | "^DD",2,2, .333,"DT") | |
10337 | 3170929 | |
10338 | "^DD",2,2, .334,0) | |
10339 | E-STREET A DDRESS [LI NE 2]^FX^^ .33;4^K:X[ """"!($A(X )=45) X I $D(X) K:$L (X)>30!($L (X)<3) X I $D(X) S D FN=DA D E1 ^DGLOCK2 | |
10340 | "^DD",2,2, .334,.1) | |
10341 | ||
10342 | "^DD",2,2, .334,1,0) | |
10343 | ^.1 | |
10344 | "^DD",2,2, .334,1,1,0 ) | |
10345 | 2^AXR25^MU MPS | |
10346 | "^DD",2,2, .334,1,1,1 ) | |
10347 | Q | |
10348 | "^DD",2,2, .334,1,1,2 ) | |
10349 | S DGXRF=.3 34 D ^DGDD C Q | |
10350 | "^DD",2,2, .334,1,991 ,0) | |
10351 | 2^AVAFC334 ^MUMPS | |
10352 | "^DD",2,2, .334,1,991 ,1) | |
10353 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".334 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10354 | "^DD",2,2, .334,1,991 ,2) | |
10355 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".334 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10356 | "^DD",2,2, .334,1,991 ,"%D",0) | |
10357 | ^.101^19^1 9^3170929^ ^ | |
10358 | "^DD",2,2, .334,1,991 ,"%D",1,0) | |
10359 | This cross reference is used t o remember that chan ges were m ade to the | |
10360 | "^DD",2,2, .334,1,991 ,"%D",2,0) | |
10361 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
10362 | "^DD",2,2, .334,1,991 ,"%D",3,0) | |
10363 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
10364 | "^DD",2,2, .334,1,991 ,"%D",4,0) | |
10365 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
10366 | "^DD",2,2, .334,1,991 ,"%D",5,0) | |
10367 | ||
10368 | "^DD",2,2, .334,1,991 ,"%D",6,0) | |
10369 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
10370 | "^DD",2,2, .334,1,991 ,"%D",7,0) | |
10371 | executed b ecause the change is being mad e from wit hin the Re gistration | |
10372 | "^DD",2,2, .334,1,991 ,"%D",8,0) | |
10373 | process. | |
10374 | "^DD",2,2, .334,1,991 ,"%D",9,0) | |
10375 | ||
10376 | "^DD",2,2, .334,1,991 ,"%D",10,0 ) | |
10377 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
10378 | "^DD",2,2, .334,1,991 ,"%D",11,0 ) | |
10379 | variable V AFCA08 equ al to 1. | |
10380 | "^DD",2,2, .334,1,991 ,"%D",12,0 ) | |
10381 | ||
10382 | "^DD",2,2, .334,1,991 ,"%D",13,0 ) | |
10383 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
10384 | "^DD",2,2, .334,1,991 ,"%D",14,0 ) | |
10385 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
10386 | "^DD",2,2, .334,1,991 ,"%D",15,0 ) | |
10387 | (#391.71). | |
10388 | "^DD",2,2, .334,1,991 ,"%D",16,0 ) | |
10389 | ||
10390 | "^DD",2,2, .334,1,991 ,"%D",17,0 ) | |
10391 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
10392 | "^DD",2,2, .334,1,991 ,"%D",18,0 ) | |
10393 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
10394 | "^DD",2,2, .334,1,991 ,"%D",19,0 ) | |
10395 | transmissi on only. | |
10396 | "^DD",2,2, .334,1,991 ,"DT") | |
10397 | 3170929 | |
10398 | "^DD",2,2, .334,3) | |
10399 | Enter the second lin e of the e mergency c ontacts st reet addre ss [3-30 c haracters] . | |
10400 | "^DD",2,2, .334,20,0) | |
10401 | ^.3LA^1^1 | |
10402 | "^DD",2,2, .334,20,1, 0) | |
10403 | EC1 | |
10404 | "^DD",2,2, .334,21,0) | |
10405 | ^^4^4^2861 117^^ | |
10406 | "^DD",2,2, .334,21,1, 0) | |
10407 | If a prima ry emergen cy contact is specif ied enter the second line | |
10408 | "^DD",2,2, .334,21,2, 0) | |
10409 | of that pe rson's str eet addres s [3-30 ch aracters], if necess ary, | |
10410 | "^DD",2,2, .334,21,3, 0) | |
10411 | otherwise nothing ma y be enter ed. This field cann ot be dele ted as | |
10412 | "^DD",2,2, .334,21,4, 0) | |
10413 | long as a primary em ergency co ntact is o n file. | |
10414 | "^DD",2,2, .334,"DT") | |
10415 | 3170929 | |
10416 | "^DD",2,2, .335,0) | |
10417 | E-STREET A DDRESS [LI NE 3]^FX^^ .33;5^K:$L (X)>30!($L (X)<3) X I $D(X) S D FN=DA D E1 ^DGLOCK2 | |
10418 | "^DD",2,2, .335,.1) | |
10419 | ||
10420 | "^DD",2,2, .335,1,0) | |
10421 | ^.1 | |
10422 | "^DD",2,2, .335,1,991 ,0) | |
10423 | 2^AVAFC335 ^MUMPS | |
10424 | "^DD",2,2, .335,1,991 ,1) | |
10425 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".335 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10426 | "^DD",2,2, .335,1,991 ,2) | |
10427 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".335 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10428 | "^DD",2,2, .335,1,991 ,"%D",0) | |
10429 | ^.101^19^1 9^3170929^ ^ | |
10430 | "^DD",2,2, .335,1,991 ,"%D",1,0) | |
10431 | his cross reference is used to remember that chang es were ma de to the | |
10432 | "^DD",2,2, .335,1,991 ,"%D",2,0) | |
10433 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
10434 | "^DD",2,2, .335,1,991 ,"%D",3,0) | |
10435 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
10436 | "^DD",2,2, .335,1,991 ,"%D",4,0) | |
10437 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
10438 | "^DD",2,2, .335,1,991 ,"%D",5,0) | |
10439 | ||
10440 | "^DD",2,2, .335,1,991 ,"%D",6,0) | |
10441 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
10442 | "^DD",2,2, .335,1,991 ,"%D",7,0) | |
10443 | executed b ecause the change is being mad e from wit hin the Re gistration | |
10444 | "^DD",2,2, .335,1,991 ,"%D",8,0) | |
10445 | process. | |
10446 | "^DD",2,2, .335,1,991 ,"%D",9,0) | |
10447 | ||
10448 | "^DD",2,2, .335,1,991 ,"%D",10,0 ) | |
10449 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
10450 | "^DD",2,2, .335,1,991 ,"%D",11,0 ) | |
10451 | variable V AFCA08 equ al to 1. | |
10452 | "^DD",2,2, .335,1,991 ,"%D",12,0 ) | |
10453 | ||
10454 | "^DD",2,2, .335,1,991 ,"%D",13,0 ) | |
10455 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
10456 | "^DD",2,2, .335,1,991 ,"%D",14,0 ) | |
10457 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
10458 | "^DD",2,2, .335,1,991 ,"%D",15,0 ) | |
10459 | (#391.71). | |
10460 | "^DD",2,2, .335,1,991 ,"%D",16,0 ) | |
10461 | ||
10462 | "^DD",2,2, .335,1,991 ,"%D",17,0 ) | |
10463 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
10464 | "^DD",2,2, .335,1,991 ,"%D",18,0 ) | |
10465 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
10466 | "^DD",2,2, .335,1,991 ,"%D",19,0 ) | |
10467 | transmissi on only. | |
10468 | "^DD",2,2, .335,1,991 ,"DT") | |
10469 | 3170929 | |
10470 | "^DD",2,2, .335,3) | |
10471 | Enter the third line of the em ergency co ntacts add ress [3-30 character s]. | |
10472 | "^DD",2,2, .335,20,0) | |
10473 | ^.3LA^1^1 | |
10474 | "^DD",2,2, .335,20,1, 0) | |
10475 | EC1 | |
10476 | "^DD",2,2, .335,21,0) | |
10477 | ^^4^4^2861 117^^ | |
10478 | "^DD",2,2, .335,21,1, 0) | |
10479 | If a prima ry emergen cy contact is specif ied enter the third line | |
10480 | "^DD",2,2, .335,21,2, 0) | |
10481 | of that pe rson's str eet addres s [3-30 ch aracters], if necess ary, | |
10482 | "^DD",2,2, .335,21,3, 0) | |
10483 | otherwise nothing ma y be enter ed. This field cann ot be dele ted as | |
10484 | "^DD",2,2, .335,21,4, 0) | |
10485 | long as a primary em ergency co ntact is o n file. | |
10486 | "^DD",2,2, .335,"DT") | |
10487 | 3170929 | |
10488 | "^DD",2,2, .336,0) | |
10489 | E-CITY^FX^ ^.33;6^K:$ L(X)>30!($ L(X)<3) X I $D(X) S DFN=DA D E 1^DGLOCK2 | |
10490 | "^DD",2,2, .336,1,0) | |
10491 | ^.1 | |
10492 | "^DD",2,2, .336,1,991 ,0) | |
10493 | 2^AVAFC336 ^MUMPS | |
10494 | "^DD",2,2, .336,1,991 ,1) | |
10495 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".336 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10496 | "^DD",2,2, .336,1,991 ,2) | |
10497 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".336 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10498 | "^DD",2,2, .336,1,991 ,"%D",0) | |
10499 | ^.101^19^1 9^3170929^ ^ | |
10500 | "^DD",2,2, .336,1,991 ,"%D",1,0) | |
10501 | This cross reference is used t o remember that chan ges were m ade to the | |
10502 | "^DD",2,2, .336,1,991 ,"%D",2,0) | |
10503 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
10504 | "^DD",2,2, .336,1,991 ,"%D",3,0) | |
10505 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
10506 | "^DD",2,2, .336,1,991 ,"%D",4,0) | |
10507 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
10508 | "^DD",2,2, .336,1,991 ,"%D",5,0) | |
10509 | ||
10510 | "^DD",2,2, .336,1,991 ,"%D",6,0) | |
10511 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
10512 | "^DD",2,2, .336,1,991 ,"%D",7,0) | |
10513 | executed b ecause the change is being mad e from wit hin the Re gistration | |
10514 | "^DD",2,2, .336,1,991 ,"%D",8,0) | |
10515 | process. | |
10516 | "^DD",2,2, .336,1,991 ,"%D",9,0) | |
10517 | ||
10518 | "^DD",2,2, .336,1,991 ,"%D",10,0 ) | |
10519 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
10520 | "^DD",2,2, .336,1,991 ,"%D",11,0 ) | |
10521 | variable V AFCA08 equ al to 1. | |
10522 | "^DD",2,2, .336,1,991 ,"%D",12,0 ) | |
10523 | ||
10524 | "^DD",2,2, .336,1,991 ,"%D",13,0 ) | |
10525 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
10526 | "^DD",2,2, .336,1,991 ,"%D",14,0 ) | |
10527 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
10528 | "^DD",2,2, .336,1,991 ,"%D",15,0 ) | |
10529 | (#391.71). | |
10530 | "^DD",2,2, .336,1,991 ,"%D",16,0 ) | |
10531 | ||
10532 | "^DD",2,2, .336,1,991 ,"%D",17,0 ) | |
10533 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
10534 | "^DD",2,2, .336,1,991 ,"%D",18,0 ) | |
10535 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
10536 | "^DD",2,2, .336,1,991 ,"%D",19,0 ) | |
10537 | transmissi on only. | |
10538 | "^DD",2,2, .336,1,991 ,"DT") | |
10539 | 3170929 | |
10540 | "^DD",2,2, .336,3) | |
10541 | Enter the city in wh ich the em ergency co ntact resi des [3-30 characters ]. | |
10542 | "^DD",2,2, .336,20,0) | |
10543 | ^.3LA^1^1 | |
10544 | "^DD",2,2, .336,20,1, 0) | |
10545 | EC1 | |
10546 | "^DD",2,2, .336,21,0) | |
10547 | ^^4^4^2861 007^^ | |
10548 | "^DD",2,2, .336,21,1, 0) | |
10549 | If a prima ry emergen cy contact is specif ied enter the city i n | |
10550 | "^DD",2,2, .336,21,2, 0) | |
10551 | which that person re sides [3-3 0 characte rs], other wise nothi ng | |
10552 | "^DD",2,2, .336,21,3, 0) | |
10553 | may be ent ered. Thi s field ca nnot be de leted as l ong as a | |
10554 | "^DD",2,2, .336,21,4, 0) | |
10555 | primary em ergency co ntact is o n file. | |
10556 | "^DD",2,2, .336,"DEL" ,1,0) | |
10557 | S DFN=DA D E1D^DGLOC K2 I '$D(X ) | |
10558 | "^DD",2,2, .336,"DT") | |
10559 | 3170929 | |
10560 | "^DD",2,2, .337,0) | |
10561 | E-STATE^P5 'X^DIC(5,^ .33;7^I $D (X) S DFN= DA D E1^DG LOCK2 | |
10562 | "^DD",2,2, .337,1,0) | |
10563 | ^.1 | |
10564 | "^DD",2,2, .337,1,991 ,0) | |
10565 | 2^AVAFC337 ^MUMPS | |
10566 | "^DD",2,2, .337,1,991 ,1) | |
10567 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".337 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10568 | "^DD",2,2, .337,1,991 ,2) | |
10569 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".337 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10570 | "^DD",2,2, .337,1,991 ,"%D",0) | |
10571 | ^.101^19^1 9^3170929^ ^ | |
10572 | "^DD",2,2, .337,1,991 ,"%D",1,0) | |
10573 | This cross reference is used t o remember that chan ges were m ade to the | |
10574 | "^DD",2,2, .337,1,991 ,"%D",2,0) | |
10575 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
10576 | "^DD",2,2, .337,1,991 ,"%D",3,0) | |
10577 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
10578 | "^DD",2,2, .337,1,991 ,"%D",4,0) | |
10579 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
10580 | "^DD",2,2, .337,1,991 ,"%D",5,0) | |
10581 | ||
10582 | "^DD",2,2, .337,1,991 ,"%D",6,0) | |
10583 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
10584 | "^DD",2,2, .337,1,991 ,"%D",7,0) | |
10585 | executed b ecause the change is being mad e from wit hin the Re gistration | |
10586 | "^DD",2,2, .337,1,991 ,"%D",8,0) | |
10587 | process. | |
10588 | "^DD",2,2, .337,1,991 ,"%D",9,0) | |
10589 | ||
10590 | "^DD",2,2, .337,1,991 ,"%D",10,0 ) | |
10591 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
10592 | "^DD",2,2, .337,1,991 ,"%D",11,0 ) | |
10593 | variable V AFCA08 equ al to 1. | |
10594 | "^DD",2,2, .337,1,991 ,"%D",12,0 ) | |
10595 | ||
10596 | "^DD",2,2, .337,1,991 ,"%D",13,0 ) | |
10597 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
10598 | "^DD",2,2, .337,1,991 ,"%D",14,0 ) | |
10599 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
10600 | "^DD",2,2, .337,1,991 ,"%D",15,0 ) | |
10601 | (#391.71). | |
10602 | "^DD",2,2, .337,1,991 ,"%D",16,0 ) | |
10603 | ||
10604 | "^DD",2,2, .337,1,991 ,"%D",17,0 ) | |
10605 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
10606 | "^DD",2,2, .337,1,991 ,"%D",18,0 ) | |
10607 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
10608 | "^DD",2,2, .337,1,991 ,"%D",19,0 ) | |
10609 | transmissi on only. | |
10610 | "^DD",2,2, .337,1,991 ,"DT") | |
10611 | 3170929 | |
10612 | "^DD",2,2, .337,3) | |
10613 | Select fro m the list ing the st ate in whc ih the eme rgency con tact resid es. | |
10614 | "^DD",2,2, .337,20,0) | |
10615 | ^.3LA^1^1 | |
10616 | "^DD",2,2, .337,20,1, 0) | |
10617 | EC1 | |
10618 | "^DD",2,2, .337,21,0) | |
10619 | ^^4^4^2861 007^ | |
10620 | "^DD",2,2, .337,21,1, 0) | |
10621 | If a prima ry emergen cy contact is specif ied select from the | |
10622 | "^DD",2,2, .337,21,2, 0) | |
10623 | available listing th e state in which tha t person r esides, | |
10624 | "^DD",2,2, .337,21,3, 0) | |
10625 | otherwise nothing ma y be enter ed. This field cann ot be dele ted | |
10626 | "^DD",2,2, .337,21,4, 0) | |
10627 | as long as a primary emergency contact i s on file. | |
10628 | "^DD",2,2, .337,"DEL" ,1,0) | |
10629 | S DFN=DA D E1D^DGLOC K2 I '$D(X ) | |
10630 | "^DD",2,2, .337,"DT") | |
10631 | 3170929 | |
10632 | "^DD",2,2, .338,0) | |
10633 | E-ZIP CODE ^FX^^.33;8 ^K:X[""""! ($A(X)=45) X I $D(X) K:$L(X)>5 !($L(X)<5) !'(X?5N) X I $D(X) S DFN=DA D E1^DGLOCK2 | |
10634 | "^DD",2,2, .338,.1) | |
10635 | ||
10636 | "^DD",2,2, .338,1,0) | |
10637 | ^.1 | |
10638 | "^DD",2,2, .338,1,1,0 ) | |
10639 | 2^AEC1ZIP^ MUMPS | |
10640 | "^DD",2,2, .338,1,1,1 ) | |
10641 | D SET^DGRE GDD1(DA,.2 201,.22,1, X) | |
10642 | "^DD",2,2, .338,1,1,2 ) | |
10643 | D KILL^DGR EGDD1(DA,2 201,.22,1, X) | |
10644 | "^DD",2,2, .338,1,1," %D",0) | |
10645 | ^^2^2^2930 603^ | |
10646 | "^DD",2,2, .338,1,1," %D",1,0) | |
10647 | This sets the corres ponding zi p+4 field to be equa l to | |
10648 | "^DD",2,2, .338,1,1," %D",2,0) | |
10649 | this field 's value. | |
10650 | "^DD",2,2, .338,1,1," DT") | |
10651 | 2930603 | |
10652 | "^DD",2,2, .338,1,991 ,0) | |
10653 | 2^AVAFC338 ^MUMPS | |
10654 | "^DD",2,2, .338,1,991 ,1) | |
10655 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".338 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10656 | "^DD",2,2, .338,1,991 ,2) | |
10657 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".338 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10658 | "^DD",2,2, .338,1,991 ,"%D",0) | |
10659 | ^.101^19^1 9^3170929^ ^ | |
10660 | "^DD",2,2, .338,1,991 ,"%D",1,0) | |
10661 | This cross reference is used t o remember that chan ges were m ade to the | |
10662 | "^DD",2,2, .338,1,991 ,"%D",2,0) | |
10663 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
10664 | "^DD",2,2, .338,1,991 ,"%D",3,0) | |
10665 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
10666 | "^DD",2,2, .338,1,991 ,"%D",4,0) | |
10667 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
10668 | "^DD",2,2, .338,1,991 ,"%D",5,0) | |
10669 | ||
10670 | "^DD",2,2, .338,1,991 ,"%D",6,0) | |
10671 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
10672 | "^DD",2,2, .338,1,991 ,"%D",7,0) | |
10673 | executed b ecause the change is being mad e from wit hin the Re gistration | |
10674 | "^DD",2,2, .338,1,991 ,"%D",8,0) | |
10675 | process. | |
10676 | "^DD",2,2, .338,1,991 ,"%D",9,0) | |
10677 | ||
10678 | "^DD",2,2, .338,1,991 ,"%D",10,0 ) | |
10679 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
10680 | "^DD",2,2, .338,1,991 ,"%D",11,0 ) | |
10681 | variable V AFCA08 equ al to 1. | |
10682 | "^DD",2,2, .338,1,991 ,"%D",12,0 ) | |
10683 | ||
10684 | "^DD",2,2, .338,1,991 ,"%D",13,0 ) | |
10685 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
10686 | "^DD",2,2, .338,1,991 ,"%D",14,0 ) | |
10687 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
10688 | "^DD",2,2, .338,1,991 ,"%D",15,0 ) | |
10689 | (#391.71). | |
10690 | "^DD",2,2, .338,1,991 ,"%D",16,0 ) | |
10691 | ||
10692 | "^DD",2,2, .338,1,991 ,"%D",17,0 ) | |
10693 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
10694 | "^DD",2,2, .338,1,991 ,"%D",18,0 ) | |
10695 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
10696 | "^DD",2,2, .338,1,991 ,"%D",19,0 ) | |
10697 | transmissi on only. | |
10698 | "^DD",2,2, .338,1,991 ,"DT") | |
10699 | 3170929 | |
10700 | "^DD",2,2, .338,3) | |
10701 | Enter the zip code a s five num erics of t he emergen cy contact . | |
10702 | "^DD",2,2, .338,20,0) | |
10703 | ^.3LA^1^1 | |
10704 | "^DD",2,2, .338,20,1, 0) | |
10705 | EC1 | |
10706 | "^DD",2,2, .338,21,0) | |
10707 | ^^4^4^2930 603^^^^ | |
10708 | "^DD",2,2, .338,21,1, 0) | |
10709 | If a prima ry emergen cy contact is specif ied enter the zip co de | |
10710 | "^DD",2,2, .338,21,2, 0) | |
10711 | for the ci ty in whic h s/he res ides [5 nu merics], o therwise | |
10712 | "^DD",2,2, .338,21,3, 0) | |
10713 | nothing ma y be enter ed. This field cann ot be dele ted as lon g as | |
10714 | "^DD",2,2, .338,21,4, 0) | |
10715 | a primary emergency contact is on file. | |
10716 | "^DD",2,2, .338,"DEL" ,1,0) | |
10717 | S DFN=DA D E1D^DGLOC K2 I '$D(X ) | |
10718 | "^DD",2,2, .338,"DT") | |
10719 | 3170929 | |
10720 | "^DD",2,2, .339,0) | |
10721 | E-PHONE NU MBER^FX^^. 33;9^K:$L( X)>20!($L( X)<3) X I $D(X) S DF N=DA D E1^ DGLOCK2 | |
10722 | "^DD",2,2, .339,.1) | |
10723 | ||
10724 | "^DD",2,2, .339,1,0) | |
10725 | ^.1 | |
10726 | "^DD",2,2, .339,1,991 ,0) | |
10727 | 2^AVAFC339 ^MUMPS | |
10728 | "^DD",2,2, .339,1,991 ,1) | |
10729 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".339 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10730 | "^DD",2,2, .339,1,991 ,2) | |
10731 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".339 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10732 | "^DD",2,2, .339,1,991 ,"%D",0) | |
10733 | ^.101^19^1 9^3170929^ ^ | |
10734 | "^DD",2,2, .339,1,991 ,"%D",1,0) | |
10735 | This cross reference is used t o remember that chan ges were m ade to the | |
10736 | "^DD",2,2, .339,1,991 ,"%D",2,0) | |
10737 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
10738 | "^DD",2,2, .339,1,991 ,"%D",3,0) | |
10739 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
10740 | "^DD",2,2, .339,1,991 ,"%D",4,0) | |
10741 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
10742 | "^DD",2,2, .339,1,991 ,"%D",5,0) | |
10743 | ||
10744 | "^DD",2,2, .339,1,991 ,"%D",6,0) | |
10745 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
10746 | "^DD",2,2, .339,1,991 ,"%D",7,0) | |
10747 | executed b ecause the change is being mad e from wit hin the Re gistration | |
10748 | "^DD",2,2, .339,1,991 ,"%D",8,0) | |
10749 | process. | |
10750 | "^DD",2,2, .339,1,991 ,"%D",9,0) | |
10751 | ||
10752 | "^DD",2,2, .339,1,991 ,"%D",10,0 ) | |
10753 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
10754 | "^DD",2,2, .339,1,991 ,"%D",11,0 ) | |
10755 | variable V AFCA08 equ al to 1. | |
10756 | "^DD",2,2, .339,1,991 ,"%D",12,0 ) | |
10757 | ||
10758 | "^DD",2,2, .339,1,991 ,"%D",13,0 ) | |
10759 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
10760 | "^DD",2,2, .339,1,991 ,"%D",14,0 ) | |
10761 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
10762 | "^DD",2,2, .339,1,991 ,"%D",15,0 ) | |
10763 | (#391.71). | |
10764 | "^DD",2,2, .339,1,991 ,"%D",16,0 ) | |
10765 | ||
10766 | "^DD",2,2, .339,1,991 ,"%D",17,0 ) | |
10767 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
10768 | "^DD",2,2, .339,1,991 ,"%D",18,0 ) | |
10769 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
10770 | "^DD",2,2, .339,1,991 ,"%D",19,0 ) | |
10771 | transmissi on only. | |
10772 | "^DD",2,2, .339,1,991 ,"DT") | |
10773 | 3170929 | |
10774 | "^DD",2,2, .339,3) | |
10775 | Enter the phone numb er of the emergency contact [3 -20 charac ters]. | |
10776 | "^DD",2,2, .339,20,0) | |
10777 | ^.3LA^1^1 | |
10778 | "^DD",2,2, .339,20,1, 0) | |
10779 | EC1 | |
10780 | "^DD",2,2, .339,21,0) | |
10781 | ^^4^4^2861 007^ | |
10782 | "^DD",2,2, .339,21,1, 0) | |
10783 | If a prima ry emergen cy contact is specif ied enter the teleph one | |
10784 | "^DD",2,2, .339,21,2, 0) | |
10785 | number [3- 20 charact ers] at wh ich that p erson may be reached , | |
10786 | "^DD",2,2, .339,21,3, 0) | |
10787 | otherwise nothing ma y be enter ed. This field cann ot be dele ted | |
10788 | "^DD",2,2, .339,21,4, 0) | |
10789 | as long as a primary emergency contact i s on file. | |
10790 | "^DD",2,2, .339,"DT") | |
10791 | 3170929 | |
10792 | "^DD",2,2, .361,0) | |
10793 | PRIMARY EL IGIBILITY CODE^*P8'X a^DIC(8,^. 36;1^S DFN =DA D EV^D GLOCK I $D (X) D ECD^ DGLOCK1 | |
10794 | "^DD",2,2, .361,.1) | |
10795 | ||
10796 | "^DD",2,2, .361,1,0) | |
10797 | ^.1 | |
10798 | "^DD",2,2, .361,1,1,0 ) | |
10799 | 2^AG^MUMPS | |
10800 | "^DD",2,2, .361,1,1,1 ) | |
10801 | S DFN=DA D EN^DGMTR K DGREQF | |
10802 | "^DD",2,2, .361,1,1,2 ) | |
10803 | Q | |
10804 | "^DD",2,2, .361,1,1," DT") | |
10805 | 2920720 | |
10806 | "^DD",2,2, .361,1,2,0 ) | |
10807 | ^^TRIGGER^ 2.0361^.01 | |
10808 | "^DD",2,2, .361,1,2,1 ) | |
10809 | K DIV S DI V=X,D0=DA, DIV(0)=D0 X ^DD(2,.3 61,1,2,89. 4) S Y(102 )=$S($D(^D PT(D0,"E", D1,0)):^(0 ),1:"") S X=$S('$D(^ DIC(8,+$P( Y(102),U,1 ),0)):"",1 :$P(^(0),U ,1)) S D0= I(0,0) S D 1=I(1,0) S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(2,. 361,1,2,1. 4) | |
10810 | "^DD",2,2, .361,1,2,1 .4) | |
10811 | S DIH=$S($ D(^DPT(DIV (0),"E",DI V(1),0)):^ (0),1:""), DIV=X I $D (^(0)) S $ P(^(0),U,1 )=DIV,DIH= 2.0361,DIG =.01 D ^DI CR:$O(^DD( DIH,DIG,1, 0))>0 | |
10812 | "^DD",2,2, .361,1,2,2 ) | |
10813 | K DIV S DI V=X,D0=DA, DIV(0)=D0 X ^DD(2,.3 61,1,2,2.2 ) I DIV(1) >0 S DIK(0 )=DA,DIK=" ^DPT(DIV(0 ),""E"",", DA(1)=DIV( 0),DA=DIV( 1) D ^DIK S DA=DIK(0 ) K DIK | |
10814 | "^DD",2,2, .361,1,2,2 .2) | |
10815 | X ^DD(2,.3 61,1,2,99. 3) S X=$S( '$D(^DIC(8 ,+$P(Y(102 ),U,1),0)) :"",1:$P(^ (0),U,1)) S D0=I(0,0 ) S D1=I(1 ,0) S DIU= X K Y | |
10816 | "^DD",2,2, .361,1,2,3 ) | |
10817 | This trigg er stuffs the ELIGIB ILITY CODE into the PATIENT'S ELIGIBILIT IES multip le. | |
10818 | "^DD",2,2, .361,1,2,8 9.2) | |
10819 | S I(0,0)=$ S($D(D0):D 0,1:""),I( 1,0)=$S($D (D1):D1,1: ""),Y(2)=$ S($D(^DPT( D0,.36)):^ (.36),1:"" ) S X="`", Y(1)=X S X =$P(Y(2),U ,1),X=X S Y=X,X=Y(1) ,X=X S X=X | |
10820 | "^DD",2,2, .361,1,2,8 9.3) | |
10821 | X ^DD(2,.3 61,1,2,89. 2) S X=X_Y ,X=X S X=X | |
10822 | "^DD",2,2, .361,1,2,8 9.4) | |
10823 | X ^DD(2,.3 61,1,2,89. 3) K DIC S Y=-1,DIC= "^DPT(D0," "E"",",DIC (0)="NMFL" ,DIC("P")= "2.0361P", DIU(1)=$S( $D(DA(1)): DA(1),1:0) ,DA(1)=D0 D ^DIC:D0> 0 S (D,D1, DIV(1))=+Y ,DA(1)=DIU (1) | |
10824 | "^DD",2,2, .361,1,2,9 9.2) | |
10825 | S I(0,0)=$ S($D(D0):D 0,1:""),I( 1,0)=$S($D (D1):D1,1: ""),Y(2)=D IV S X="`" ,Y(1)=X S X=$P(Y(2), U,1),X=X S Y=X,X=Y(1 ),X=X S X= X | |
10826 | "^DD",2,2, .361,1,2,9 9.3) | |
10827 | X ^DD(2,.3 61,1,2,99. 2) S X=X_Y K DIC S Y =-1,DIC="^ DPT(D0,""E "",",DIC(0 )="NMF" D ^DIC:D0>0 S (D,D1,DI V(1))=+Y S Y(102)=$S ($D(^DPT(D 0,"E",D1,0 )):^(0),1: "") | |
10828 | "^DD",2,2, .361,1,2," CREATE VAL UE") | |
10829 | INTERNAL(E LIGIBILITY CODE) | |
10830 | "^DD",2,2, .361,1,2," DELETE VAL UE") | |
10831 | @ | |
10832 | "^DD",2,2, .361,1,2," DIC") | |
10833 | LOOKUP | |
10834 | "^DD",2,2, .361,1,2," DIK") | |
10835 | DELETE | |
10836 | "^DD",2,2, .361,1,2," FIELD") | |
10837 | "`"_INTERN AL(ELIGIBI LITY CODE) :#361:#.01 | |
10838 | "^DD",2,2, .361,1,3,0 ) | |
10839 | 2^AXR28^MU MPS | |
10840 | "^DD",2,2, .361,1,3,1 ) | |
10841 | Q | |
10842 | "^DD",2,2, .361,1,3,2 ) | |
10843 | I $S('$D(^ DIC(8,+X,0 )):0,$P(^( 0),"^",1)[ "DOM":0,'$ D(^DPT(DA, .36)):1,'$ D(^DIC(8,+ ^(.36),0)) :1,$P(^(0) ,"^",1)'[" DOM":1,1:0 ) S DGXRF= .361 D ^DG DDC Q | |
10844 | "^DD",2,2, .361,1,3," %D",0) | |
10845 | ^^8^8^2920 429^ | |
10846 | "^DD",2,2, .361,1,3," %D",1,0) | |
10847 | When the e ligibility code is c hanged, th is cross-r eference r emoves the | |
10848 | "^DD",2,2, .361,1,3," %D",2,0) | |
10849 | data in th e ELIGIBIL ITY STATUS field. T his only o ccurs if n either the | |
10850 | "^DD",2,2, .361,1,3," %D",3,0) | |
10851 | original e ligibility code nor the new el igibility code (the one being | |
10852 | "^DD",2,2, .361,1,3," %D",4,0) | |
10853 | entered) i s DOM. PAT IENT. If either is DOM. PATIE NT, no upd ate occurs . | |
10854 | "^DD",2,2, .361,1,3," %D",5,0) | |
10855 | ||
10856 | "^DD",2,2, .361,1,3," %D",6,0) | |
10857 | Since the DOM. PATIE NT eligibi lity is be ing inacti vated with MAS 5.2, | |
10858 | "^DD",2,2, .361,1,3," %D",7,0) | |
10859 | the condit ional on t his cross- reference will be re moved in a future | |
10860 | "^DD",2,2, .361,1,3," %D",8,0) | |
10861 | version of MAS. | |
10862 | "^DD",2,2, .361,1,3," DT") | |
10863 | 2920429 | |
10864 | "^DD",2,2, .361,1,4,0 ) | |
10865 | 2^AEL^MUMP S | |
10866 | "^DD",2,2, .361,1,4,1 ) | |
10867 | S ^DPT("AE L",DA,+X)= "" | |
10868 | "^DD",2,2, .361,1,4,2 ) | |
10869 | K ^DPT("AE L",DA,+X) | |
10870 | "^DD",2,2, .361,1,5,0 ) | |
10871 | 2^AENR361^ MUMPS | |
10872 | "^DD",2,2, .361,1,5,1 ) | |
10873 | D AUTOUPD^ DGENA2(DA) | |
10874 | "^DD",2,2, .361,1,5,2 ) | |
10875 | D AUTOUPD^ DGENA2(DA) | |
10876 | "^DD",2,2, .361,1,5,3 ) | |
10877 | DO NOT DEL ETE | |
10878 | "^DD",2,2, .361,1,5," %D",0) | |
10879 | ^^2^2^2970 715^^ | |
10880 | "^DD",2,2, .361,1,5," %D",1,0) | |
10881 | This cross -reference is used t o update t he patient 's current Patient E nrollment | |
10882 | "^DD",2,2, .361,1,5," %D",2,0) | |
10883 | record. | |
10884 | "^DD",2,2, .361,1,5," DT") | |
10885 | 2970715 | |
10886 | "^DD",2,2, .361,1,991 ,0) | |
10887 | 2^AVAFC361 ^MUMPS | |
10888 | "^DD",2,2, .361,1,991 ,1) | |
10889 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".361 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10890 | "^DD",2,2, .361,1,991 ,2) | |
10891 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".361 ;",VAFCEPI C=1 D AVAF C^VAFCDD01 (DA) | |
10892 | "^DD",2,2, .361,1,991 ,"%D",0) | |
10893 | ^^19^19^31 70913^ | |
10894 | "^DD",2,2, .361,1,991 ,"%D",1,0) | |
10895 | This cross reference is used t o remember that chan ges were m ade to the | |
10896 | "^DD",2,2, .361,1,991 ,"%D",2,0) | |
10897 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
10898 | "^DD",2,2, .361,1,991 ,"%D",3,0) | |
10899 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
10900 | "^DD",2,2, .361,1,991 ,"%D",4,0) | |
10901 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
10902 | "^DD",2,2, .361,1,991 ,"%D",5,0) | |
10903 | ||
10904 | "^DD",2,2, .361,1,991 ,"%D",6,0) | |
10905 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
10906 | "^DD",2,2, .361,1,991 ,"%D",7,0) | |
10907 | executed b ecause the change is being mad e from wit hin the Re gistration | |
10908 | "^DD",2,2, .361,1,991 ,"%D",8,0) | |
10909 | process. | |
10910 | "^DD",2,2, .361,1,991 ,"%D",9,0) | |
10911 | ||
10912 | "^DD",2,2, .361,1,991 ,"%D",10,0 ) | |
10913 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
10914 | "^DD",2,2, .361,1,991 ,"%D",11,0 ) | |
10915 | variable V AFCA08 equ al to 1. | |
10916 | "^DD",2,2, .361,1,991 ,"%D",12,0 ) | |
10917 | ||
10918 | "^DD",2,2, .361,1,991 ,"%D",13,0 ) | |
10919 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
10920 | "^DD",2,2, .361,1,991 ,"%D",14,0 ) | |
10921 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
10922 | "^DD",2,2, .361,1,991 ,"%D",15,0 ) | |
10923 | (#391.71). | |
10924 | "^DD",2,2, .361,1,991 ,"%D",16,0 ) | |
10925 | ||
10926 | "^DD",2,2, .361,1,991 ,"%D",17,0 ) | |
10927 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
10928 | "^DD",2,2, .361,1,991 ,"%D",18,0 ) | |
10929 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
10930 | "^DD",2,2, .361,1,991 ,"%D",19,0 ) | |
10931 | transmissi on only. | |
10932 | "^DD",2,2, .361,1,991 ,"DT") | |
10933 | 3170913 | |
10934 | "^DD",2,2, .361,3) | |
10935 | Select fro m the avai lable list the eligi bility cod e which be st defines this appl icant's pr imary enti tlement to care. Fo r more det ailed info rmation, e nter ??. | |
10936 | "^DD",2,2, .361,12) | |
10937 | Applicable code base d on veter an or non- veteran st atus. | |
10938 | "^DD",2,2, .361,12.1) | |
10939 | S DFN=DA D ECD^DGLOC K1 | |
10940 | "^DD",2,2, .361,20,0) | |
10941 | ^.3LA^1^1 | |
10942 | "^DD",2,2, .361,20,1, 0) | |
10943 | ECD | |
10944 | "^DD",2,2, .361,21,0) | |
10945 | ^.001^45^4 5^3060321^ ^^^ | |
10946 | "^DD",2,2, .361,21,1, 0) | |
10947 | Select fro m the avai lable list ing the ap propriate eligibilit y code for | |
10948 | "^DD",2,2, .361,21,2, 0) | |
10949 | this appli cant. For non-veter an applica nts a wide variety o f choices | |
10950 | "^DD",2,2, .361,21,3, 0) | |
10951 | are availa ble. For veteran ap plicants t he choices are scree ned [in th e | |
10952 | "^DD",2,2, .361,21,4, 0) | |
10953 | following order] dep endent on the respon ses to oth er prompts : | |
10954 | "^DD",2,2, .361,21,5, 0) | |
10955 | ||
10956 | "^DD",2,2, .361,21,6, 0) | |
10957 | 1. If the SERVICE C ONNECTED p rompt (fie ld .301) i s answered YES | |
10958 | "^DD",2,2, .361,21,7, 0) | |
10959 | only t he followi ng two cho ices are a vailable: | |
10960 | "^DD",2,2, .361,21,8, 0) | |
10961 | ||
10962 | "^DD",2,2, .361,21,9, 0) | |
10963 | a. If the SERVI CE CONNECT ED PERCENT AGE prompt (field .3 02) entere d | |
10964 | "^DD",2,2, .361,21,10 ,0) | |
10965 | is 50% or gr eater 'SER VICE CONNE CTED 50% T O 100%' ca n be | |
10966 | "^DD",2,2, .361,21,11 ,0) | |
10967 | se lected. | |
10968 | "^DD",2,2, .361,21,12 ,0) | |
10969 | ||
10970 | "^DD",2,2, .361,21,13 ,0) | |
10971 | b. Ot herwise, t he percent age is ass umed to be less than 50% and | |
10972 | "^DD",2,2, .361,21,14 ,0) | |
10973 | on ly 'SC, LE SS THAN 50 %' may be entered. | |
10974 | "^DD",2,2, .361,21,15 ,0) | |
10975 | ||
10976 | "^DD",2,2, .361,21,16 ,0) | |
10977 | 2. If the response to the WER E YOU A PR ISONER OF WAR field (# .525) | |
10978 | "^DD",2,2, .361,21,17 ,0) | |
10979 | is YES and the v eteran is not servic e connecte d, you mus t select | |
10980 | "^DD",2,2, .361,21,18 ,0) | |
10981 | PRISON ER OF WAR as the eli gibility c ode. | |
10982 | "^DD",2,2, .361,21,19 ,0) | |
10983 | ||
10984 | "^DD",2,2, .361,21,20 ,0) | |
10985 | 3. If the response to the CUR RENT PH IN DICATOR fi eld (#.531 ) | |
10986 | "^DD",2,2, .361,21,21 ,0) | |
10987 | is YES and the v eteran is not servic e connecte d and is n ot a Priso ner | |
10988 | "^DD",2,2, .361,21,22 ,0) | |
10989 | of War , you must select PU RPLE HEART RECIPIENT as the el igibility code. | |
10990 | "^DD",2,2, .361,21,23 ,0) | |
10991 | ||
10992 | "^DD",2,2, .361,21,24 ,0) | |
10993 | 4. If the veteran i s receivin g VA benef its, but d oes not me et the | |
10994 | "^DD",2,2, .361,21,25 ,0) | |
10995 | criter ia in item s 1 and 2 above, the n the foll owing choi ces may | |
10996 | "^DD",2,2, .361,21,26 ,0) | |
10997 | be pre sented for selection : | |
10998 | "^DD",2,2, .361,21,27 ,0) | |
10999 | ||
11000 | "^DD",2,2, .361,21,28 ,0) | |
11001 | If REC EIVING A&A BENEFITS is answere d YES, the eligibili ty code | |
11002 | "^DD",2,2, .361,21,29 ,0) | |
11003 | AID & ATTENDANCE may be se lected. | |
11004 | "^DD",2,2, .361,21,30 ,0) | |
11005 | ||
11006 | "^DD",2,2, .361,21,31 ,0) | |
11007 | If the RECEIVING HOUSEBOUN D BENEFITS is answer ed YES ,th e eligibil ity | |
11008 | "^DD",2,2, .361,21,32 ,0) | |
11009 | code H OUSEBOUND may be sel ected. | |
11010 | "^DD",2,2, .361,21,33 ,0) | |
11011 | ||
11012 | "^DD",2,2, .361,21,34 ,0) | |
11013 | If the above two prompts w ere answer ed NO, but the RECEI VING A VA | |
11014 | "^DD",2,2, .361,21,35 ,0) | |
11015 | PENSIO N prompt w as answere d YES, onl y the NSC, VA PENSIO N prompt | |
11016 | "^DD",2,2, .361,21,36 ,0) | |
11017 | may be selected. | |
11018 | "^DD",2,2, .361,21,37 ,0) | |
11019 | ||
11020 | "^DD",2,2, .361,21,38 ,0) | |
11021 | 5. If non e of the a bove perta in to this veteran, then the N SC eligibi lity | |
11022 | "^DD",2,2, .361,21,39 ,0) | |
11023 | will b e availabl e for sele ction. | |
11024 | "^DD",2,2, .361,21,40 ,0) | |
11025 | ||
11026 | "^DD",2,2, .361,21,41 ,0) | |
11027 | ** Depend ent on the birthdate of the ap plicant, t he followi ng two | |
11028 | "^DD",2,2, .361,21,42 ,0) | |
11029 | eligib ility code s may be d isplayed a long with those show n in items | |
11030 | "^DD",2,2, .361,21,43 ,0) | |
11031 | 3 thro ugh 5 abov e: WORLD WAR I and MEXICAN BO RDER WAR. These wou ld | |
11032 | "^DD",2,2, .361,21,44 ,0) | |
11033 | displa y for vete rans not m eeting the criteria in items 1 and 2, bu t | |
11034 | "^DD",2,2, .361,21,45 ,0) | |
11035 | whose date of bi rth is pri or to 1907 . | |
11036 | "^DD",2,2, .361,"AUDI T") | |
11037 | y | |
11038 | "^DD",2,2, .361,"DEL" ,1,0) | |
11039 | S DFN=DA D EV^DGLOCK I '$D(X) | |
11040 | "^DD",2,2, .361,"DT") | |
11041 | 3170913 | |
11042 | "^DD",2,2, .3611,0) | |
11043 | ELIGIBILIT Y STATUS^S X^P:PENDIN G VERIFICA TION;R:PEN DING RE-VE RIFICATION ;V:VERIFIE D;^.361;1^ D EK^DGLOC K Q:'$D(X) | |
11044 | "^DD",2,2, .3611,.1) | |
11045 | ELIG STATU S | |
11046 | "^DD",2,2, .3611,1,0) | |
11047 | ^.1 | |
11048 | "^DD",2,2, .3611,1,1, 0) | |
11049 | ^^TRIGGER^ 2^.3616 | |
11050 | "^DD",2,2, .3611,1,1, 1) | |
11051 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,.361)):^( .361),1:"" ) S X=$P(Y (1),U,6),X =X S DIU=X K Y X ^DD (2,.3611,1 ,1,1.1) X ^DD(2,.361 1,1,1,1.4) | |
11052 | "^DD",2,2, .3611,1,1, 1.1) | |
11053 | S X=DIV S X=$S(($D(D UZ)#2):DUZ ,1:"") | |
11054 | "^DD",2,2, .3611,1,1, 1.3) | |
11055 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(0)=X S Y(1)=$C(5 9)_$S($D(^ DD(2,.3611 ,0)):$P(^( 0),U,3),1: "") S X=$P ($P(Y(1),$ C(59)_Y(0) _":",2),$C (59),1)="V ERIFIED" | |
11056 | "^DD",2,2, .3611,1,1, 1.4) | |
11057 | S DIH=$S($ D(^DPT(DIV (0),.361)) :^(.361),1 :""),DIV=X X "F %=0: 0 Q:$L($P( DIH,U,5,99 )) S DIH= DIH_U" S % =$P(DIH,U, 7,999),DIU =$P(DIH,U, 6),^(.361) =$P(DIH,U, 1,5)_U_DIV _$S(%]"":U _%,1:""),D IH=2,DIG=. 3616 D ^DI CR:$N(^DD( DIH,DIG,1, 0))>0 | |
11058 | "^DD",2,2, .3611,1,1, 2) | |
11059 | Q | |
11060 | "^DD",2,2, .3611,1,1, 2.3) | |
11061 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(0)=X S Y(2)=$C(5 9)_$S($D(^ DD(2,.3611 ,0)):$P(^( 0),U,3),1: ""),Y(1)=$ S($D(^DPT( D0,.361)): ^(.361),1: "") S X=$P ($P(Y(2),$ C(59)_$P(Y (1),U,1)_" :",2),$C(5 9),1)'="VE RIFIED" | |
11062 | "^DD",2,2, .3611,1,1, 2.4) | |
11063 | S DIH=$S($ D(^DPT(DIV (0),.361)) :^(.361),1 :""),DIV=X X "F %=0: 0 Q:$L($P( DIH,U,5,99 )) S DIH= DIH_U" S % =$P(DIH,U, 7,999),DIU =$P(DIH,U, 6),^(.361) =$P(DIH,U, 1,5)_U_DIV _$S(%]"":U _%,1:""),D IH=2,DIG=. 3616 D ^DI CR:$N(^DD( DIH,DIG,1, 0))>0 | |
11064 | "^DD",2,2, .3611,1,1, "CREATE CO NDITION") | |
11065 | ELIG STATU S="VERIFIE D" | |
11066 | "^DD",2,2, .3611,1,1, "CREATE VA LUE") | |
11067 | S X=$S(($D (DUZ)#2):D UZ,1:"") | |
11068 | "^DD",2,2, .3611,1,1, "DELETE CO NDITION") | |
11069 | ELIG STATU S'="VERIFI ED" | |
11070 | "^DD",2,2, .3611,1,1, "DELETE VA LUE") | |
11071 | NO EFFECT | |
11072 | "^DD",2,2, .3611,1,1, "FIELD") | |
11073 | ELIGIBILIT Y STATUS E NTERED BY | |
11074 | "^DD",2,2, .3611,1,2, 0) | |
11075 | ^^TRIGGER^ 2^.3612 | |
11076 | "^DD",2,2, .3611,1,2, 1) | |
11077 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,.361)):^( .361),1:"" ) S X=$P(Y (1),U,2),X =X S DIU=X K Y S X=D IV N %I,%H ,% D NOW^% DTC X ^DD( 2,.3611,1, 2,1.4) | |
11078 | "^DD",2,2, .3611,1,2, 1.4) | |
11079 | S DIH=$S($ D(^DPT(DIV (0),.361)) :^(.361),1 :""),DIV=X S %=$P(DI H,U,3,999) ,DIU=$P(DI H,U,2),^(. 361)=$P(DI H,U,1,1)_U _DIV_$S(%] "":U_%,1:" "),DIH=2,D IG=.3612 D ^DICR:$N( ^DD(DIH,DI G,1,0))>0 | |
11080 | "^DD",2,2, .3611,1,2, 2) | |
11081 | Q | |
11082 | "^DD",2,2, .3611,1,2, "CREATE VA LUE") | |
11083 | TODAY | |
11084 | "^DD",2,2, .3611,1,2, "DELETE VA LUE") | |
11085 | NO EFFECT | |
11086 | "^DD",2,2, .3611,1,2, "FIELD") | |
11087 | ELIGIBILIT Y STATUS D ATE | |
11088 | "^DD",2,2, .3611,1,3, 0) | |
11089 | 2^AENR3611 ^MUMPS | |
11090 | "^DD",2,2, .3611,1,3, 1) | |
11091 | D EVENT^IV MPLOG(DA) | |
11092 | "^DD",2,2, .3611,1,3, 2) | |
11093 | D EVENT^IV MPLOG(DA) | |
11094 | "^DD",2,2, .3611,1,3, 3) | |
11095 | DO NOT DE LETE | |
11096 | "^DD",2,2, .3611,1,3, "%D",0) | |
11097 | ^.101^2^2^ 3060918^^^ ^ | |
11098 | "^DD",2,2, .3611,1,3, "%D",1,0) | |
11099 | This cross -reference is used t o notify H EC of chan ges that m ay affect | |
11100 | "^DD",2,2, .3611,1,3, "%D",2,0) | |
11101 | enrollment . | |
11102 | "^DD",2,2, .3611,1,3, "DT") | |
11103 | 3050606 | |
11104 | "^DD",2,2, .3611,1,99 1,0) | |
11105 | 2^AVAFC361 1^MUMPS | |
11106 | "^DD",2,2, .3611,1,99 1,1) | |
11107 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".361 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
11108 | "^DD",2,2, .3611,1,99 1,2) | |
11109 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".361 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
11110 | "^DD",2,2, .3611,1,99 1,"%D",0) | |
11111 | ^^19^19^31 70913^ | |
11112 | "^DD",2,2, .3611,1,99 1,"%D",1,0 ) | |
11113 | This cross reference is used t o remember that chan ges were m ade to the | |
11114 | "^DD",2,2, .3611,1,99 1,"%D",2,0 ) | |
11115 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
11116 | "^DD",2,2, .3611,1,99 1,"%D",3,0 ) | |
11117 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
11118 | "^DD",2,2, .3611,1,99 1,"%D",4,0 ) | |
11119 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
11120 | "^DD",2,2, .3611,1,99 1,"%D",5,0 ) | |
11121 | ||
11122 | "^DD",2,2, .3611,1,99 1,"%D",6,0 ) | |
11123 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
11124 | "^DD",2,2, .3611,1,99 1,"%D",7,0 ) | |
11125 | executed b ecause the change is being mad e from wit hin the Re gistration | |
11126 | "^DD",2,2, .3611,1,99 1,"%D",8,0 ) | |
11127 | process. | |
11128 | "^DD",2,2, .3611,1,99 1,"%D",9,0 ) | |
11129 | ||
11130 | "^DD",2,2, .3611,1,99 1,"%D",10, 0) | |
11131 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
11132 | "^DD",2,2, .3611,1,99 1,"%D",11, 0) | |
11133 | variable V AFCA08 equ al to 1. | |
11134 | "^DD",2,2, .3611,1,99 1,"%D",12, 0) | |
11135 | ||
11136 | "^DD",2,2, .3611,1,99 1,"%D",13, 0) | |
11137 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
11138 | "^DD",2,2, .3611,1,99 1,"%D",14, 0) | |
11139 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
11140 | "^DD",2,2, .3611,1,99 1,"%D",15, 0) | |
11141 | (#391.71). | |
11142 | "^DD",2,2, .3611,1,99 1,"%D",16, 0) | |
11143 | ||
11144 | "^DD",2,2, .3611,1,99 1,"%D",17, 0) | |
11145 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
11146 | "^DD",2,2, .3611,1,99 1,"%D",18, 0) | |
11147 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
11148 | "^DD",2,2, .3611,1,99 1,"%D",19, 0) | |
11149 | transmissi on only. | |
11150 | "^DD",2,2, .3611,1,99 1,"DT") | |
11151 | 3170913 | |
11152 | "^DD",2,2, .3611,3) | |
11153 | Select the status of this pati ent's elig ibility. | |
11154 | "^DD",2,2, .3611,5,1, 0) | |
11155 | 2^.361^3 | |
11156 | "^DD",2,2, .3611,20,0 ) | |
11157 | ^.3LA^1^1 | |
11158 | "^DD",2,2, .3611,20,1 ,0) | |
11159 | ECD | |
11160 | "^DD",2,2, .3611,21,0 ) | |
11161 | ^^3^3^2861 117^^ | |
11162 | "^DD",2,2, .3611,21,1 ,0) | |
11163 | Select fro m the avai lable list ing the ap propriate eligibilit y status | |
11164 | "^DD",2,2, .3611,21,2 ,0) | |
11165 | for this a pplicant. Only user s who hold the desig nated secu rity key | |
11166 | "^DD",2,2, .3611,21,3 ,0) | |
11167 | may enter/ edit this field. | |
11168 | "^DD",2,2, .3611,"DEL ",1,0) | |
11169 | D EK^DGLOC K I '$D(X) | |
11170 | "^DD",2,2, .3611,"DT" ) | |
11171 | 3170913 | |
11172 | "^DD",2,2, .5291,0) | |
11173 | COMBAT SER VICE INDIC ATED?^RSX^ Y:YES;N:NO ;^.52;11^S DFN=DA D SV^DGLOCK | |
11174 | "^DD",2,2, .5291,.1) | |
11175 | IN COMBAT (Y/N) | |
11176 | "^DD",2,2, .5291,1,0) | |
11177 | ^.1 | |
11178 | "^DD",2,2, .5291,1,1, 0) | |
11179 | ^^TRIGGER^ 2^.5292 | |
11180 | "^DD",2,2, .5291,1,1, 1) | |
11181 | X ^DD(2,.5 291,1,1,1. 3) I X S X =DIV S Y(1 )=$S($D(^D PT(D0,.52) ):^(.52),1 :"") S X=$ S('$D(^DIC (22,+$P(Y( 1),U,12),0 )):"",1:$P (^(0),U,1) ) S DIU=X K Y S X=DI V S X="" X ^DD(2,.52 91,1,1,1.4 ) | |
11182 | "^DD",2,2, .5291,1,1, 1.3) | |
11183 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(0)=X S Y(1)=$C(5 9)_$S($D(^ DD(2,.5291 ,0)):$P(^( 0),U,3),1: "") S X=$P ($P(Y(1),$ C(59)_Y(0) _":",2),$C (59),1)="N O" | |
11184 | "^DD",2,2, .5291,1,1, 1.4) | |
11185 | S DIH=$S($ D(^DPT(DIV (0),.52)): ^(.52),1:" "),DIV=X X "F %=0:0 Q:$L($P(DI H,U,11,99) ) S DIH=D IH_U" S %= $P(DIH,U,1 3,999),DIU =$P(DIH,U, 12),^(.52) =$P(DIH,U, 1,11)_U_DI V_$S(%]"": U_%,1:""), DIH=2,DIG= .5292 D ^D ICR | |
11186 | "^DD",2,2, .5291,1,1, 2) | |
11187 | Q | |
11188 | "^DD",2,2, .5291,1,1, 2.3) | |
11189 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(0)=X S Y(2)=$C(5 9)_$S($D(^ DD(2,.5291 ,0)):$P(^( 0),U,3),1: ""),Y(1)=$ S($D(^DPT( D0,.52)):^ (.52),1:"" ) S X=$P($ P(Y(2),$C( 59)_$P(Y(1 ),U,11)_": ",2),$C(59 ),1)="" | |
11190 | "^DD",2,2, .5291,1,1, 2.4) | |
11191 | S DIH=$S($ D(^DPT(DIV (0),.52)): ^(.52),1:" "),DIV=X X "F %=0:0 Q:$L($P(DI H,U,11,99) ) S DIH=D IH_U" S %= $P(DIH,U,1 3,999),DIU =$P(DIH,U, 12),^(.52) =$P(DIH,U, 1,11)_U_DI V_$S(%]"": U_%,1:""), DIH=2,DIG= .5292 D ^D ICR | |
11192 | "^DD",2,2, .5291,1,1, "CREATE CO NDITION") | |
11193 | IN COMBAT= "NO" | |
11194 | "^DD",2,2, .5291,1,1, "CREATE VA LUE") | |
11195 | @ | |
11196 | "^DD",2,2, .5291,1,1, "DELETE CO NDITION") | |
11197 | IN COMBAT= "" | |
11198 | "^DD",2,2, .5291,1,1, "DELETE VA LUE") | |
11199 | NO EFFECT | |
11200 | "^DD",2,2, .5291,1,1, "FIELD") | |
11201 | COMBAT WHE RE | |
11202 | "^DD",2,2, .5291,1,2, 0) | |
11203 | ^^TRIGGER^ 2^.5293 | |
11204 | "^DD",2,2, .5291,1,2, 1) | |
11205 | X ^DD(2,.5 291,1,2,1. 3) I X S X =DIV S Y(1 )=$S($D(^D PT(D0,.52) ):^(.52),1 :"") S X=$ P(Y(1),U,1 3) S DIU=X K Y S X=D IV S X="" X ^DD(2,.5 291,1,2,1. 4) | |
11206 | "^DD",2,2, .5291,1,2, 1.3) | |
11207 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(0)=X S Y(1)=$C(5 9)_$S($D(^ DD(2,.5291 ,0)):$P(^( 0),U,3),1: "") S X=$P ($P(Y(1),$ C(59)_Y(0) _":",2),$C (59),1)="N O" | |
11208 | "^DD",2,2, .5291,1,2, 1.4) | |
11209 | S DIH=$S($ D(^DPT(DIV (0),.52)): ^(.52),1:" "),DIV=X X "F %=0:0 Q:$L($P(DI H,U,12,99) ) S DIH=D IH_U" S %= $P(DIH,U,1 4,999),DIU =$P(DIH,U, 13),^(.52) =$P(DIH,U, 1,12)_U_DI V_$S(%]"": U_%,1:""), DIH=2,DIG= .5293 D ^D ICR | |
11210 | "^DD",2,2, .5291,1,2, 2) | |
11211 | Q | |
11212 | "^DD",2,2, .5291,1,2, 2.3) | |
11213 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(0)=X S Y(2)=$C(5 9)_$S($D(^ DD(2,.5291 ,0)):$P(^( 0),U,3),1: ""),Y(1)=$ S($D(^DPT( D0,.52)):^ (.52),1:"" ) S X=$P($ P(Y(2),$C( 59)_$P(Y(1 ),U,11)_": ",2),$C(59 ),1)="" | |
11214 | "^DD",2,2, .5291,1,2, 2.4) | |
11215 | S DIH=$S($ D(^DPT(DIV (0),.52)): ^(.52),1:" "),DIV=X X "F %=0:0 Q:$L($P(DI H,U,12,99) ) S DIH=D IH_U" S %= $P(DIH,U,1 4,999),DIU =$P(DIH,U, 13),^(.52) =$P(DIH,U, 1,12)_U_DI V_$S(%]"": U_%,1:""), DIH=2,DIG= .5293 D ^D ICR | |
11216 | "^DD",2,2, .5291,1,2, "CREATE CO NDITION") | |
11217 | IN COMBAT= "NO" | |
11218 | "^DD",2,2, .5291,1,2, "CREATE VA LUE") | |
11219 | @ | |
11220 | "^DD",2,2, .5291,1,2, "DELETE CO NDITION") | |
11221 | IN COMBAT= "" | |
11222 | "^DD",2,2, .5291,1,2, "DELETE VA LUE") | |
11223 | NO EFFECT | |
11224 | "^DD",2,2, .5291,1,2, "FIELD") | |
11225 | COMBAT FRO | |
11226 | "^DD",2,2, .5291,1,3, 0) | |
11227 | ^^TRIGGER^ 2^.5294 | |
11228 | "^DD",2,2, .5291,1,3, 1) | |
11229 | X ^DD(2,.5 291,1,3,1. 3) I X S X =DIV S Y(1 )=$S($D(^D PT(D0,.52) ):^(.52),1 :"") S X=$ P(Y(1),U,1 4) S DIU=X K Y S X=D IV S X="" X ^DD(2,.5 291,1,3,1. 4) | |
11230 | "^DD",2,2, .5291,1,3, 1.3) | |
11231 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(0)=X S Y(1)=$C(5 9)_$S($D(^ DD(2,.5291 ,0)):$P(^( 0),U,3),1: "") S X=$P ($P(Y(1),$ C(59)_Y(0) _":",2),$C (59),1)="N O" | |
11232 | "^DD",2,2, .5291,1,3, 1.4) | |
11233 | S DIH=$S($ D(^DPT(DIV (0),.52)): ^(.52),1:" "),DIV=X X "F %=0:0 Q:$L($P(DI H,U,13,99) ) S DIH=D IH_U" S %= $P(DIH,U,1 5,999),DIU =$P(DIH,U, 14),^(.52) =$P(DIH,U, 1,13)_U_DI V_$S(%]"": U_%,1:""), DIH=2,DIG= .5294 D ^D ICR | |
11234 | "^DD",2,2, .5291,1,3, 2) | |
11235 | Q | |
11236 | "^DD",2,2, .5291,1,3, 2.3) | |
11237 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(0)=X S Y(2)=$C(5 9)_$S($D(^ DD(2,.5291 ,0)):$P(^( 0),U,3),1: ""),Y(1)=$ S($D(^DPT( D0,.52)):^ (.52),1:"" ) S X=$P($ P(Y(2),$C( 59)_$P(Y(1 ),U,11)_": ",2),$C(59 ),1)="" | |
11238 | "^DD",2,2, .5291,1,3, 2.4) | |
11239 | S DIH=$S($ D(^DPT(DIV (0),.52)): ^(.52),1:" "),DIV=X X "F %=0:0 Q:$L($P(DI H,U,13,99) ) S DIH=D IH_U" S %= $P(DIH,U,1 5,999),DIU =$P(DIH,U, 14),^(.52) =$P(DIH,U, 1,13)_U_DI V_$S(%]"": U_%,1:""), DIH=2,DIG= .5294 D ^D ICR | |
11240 | "^DD",2,2, .5291,1,3, "CREATE CO NDITION") | |
11241 | IN COMBAT= "NO" | |
11242 | "^DD",2,2, .5291,1,3, "CREATE VA LUE") | |
11243 | @ | |
11244 | "^DD",2,2, .5291,1,3, "DELETE CO NDITION") | |
11245 | IN COMBAT= "" | |
11246 | "^DD",2,2, .5291,1,3, "DELETE VA LUE") | |
11247 | NO EFFECT | |
11248 | "^DD",2,2, .5291,1,3, "FIELD") | |
11249 | COMBAT TO DATE | |
11250 | "^DD",2,2, .5291,1,4, 0) | |
11251 | 2^AENR5291 ^MUMPS | |
11252 | "^DD",2,2, .5291,1,4, 1) | |
11253 | D EVENT^IV MPLOG(DA) | |
11254 | "^DD",2,2, .5291,1,4, 2) | |
11255 | D EVENT^IV MPLOG(DA) | |
11256 | "^DD",2,2, .5291,1,4, "%D",0) | |
11257 | ^^2^2^3040 614^ | |
11258 | "^DD",2,2, .5291,1,4, "%D",1,0) | |
11259 | This MUMPS cross-ref erence is used to no tify HEC o f changes to the | |
11260 | "^DD",2,2, .5291,1,4, "%D",2,0) | |
11261 | COMBAT SER VICE INDIC ATED? fiel d. | |
11262 | "^DD",2,2, .5291,1,4, "DT") | |
11263 | 3040614 | |
11264 | "^DD",2,2, .5291,1,5, 0) | |
11265 | 2^AI^MUMPS | |
11266 | "^DD",2,2, .5291,1,5, 1) | |
11267 | D CSI1010^ DGENDD(DA) | |
11268 | "^DD",2,2, .5291,1,5, 2) | |
11269 | Q | |
11270 | "^DD",2,2, .5291,1,5, "%D",0) | |
11271 | ^^4^4^3061 023^ | |
11272 | "^DD",2,2, .5291,1,5, "%D",1,0) | |
11273 | This MUMPS xref will trigger a n update t o the COMB AT | |
11274 | "^DD",2,2, .5291,1,5, "%D",2,0) | |
11275 | INDICATED ON 1010EZ field (2/1 010.157), so that wh en | |
11276 | "^DD",2,2, .5291,1,5, "%D",3,0) | |
11277 | COMBAT SER VICE INDIC ATED? is " NO," COMBA T INDICATE D | |
11278 | "^DD",2,2, .5291,1,5, "%D",4,0) | |
11279 | ON 1010EZ is set to "NO." | |
11280 | "^DD",2,2, .5291,1,5, "DT") | |
11281 | 3061023 | |
11282 | "^DD",2,2, .5291,1,99 1,0) | |
11283 | 2^AVAFC529 1^MUMPS | |
11284 | "^DD",2,2, .5291,1,99 1,1) | |
11285 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".529 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
11286 | "^DD",2,2, .5291,1,99 1,2) | |
11287 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".529 1;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
11288 | "^DD",2,2, .5291,1,99 1,"%D",0) | |
11289 | ^.101^19^1 9^3171108^ ^ | |
11290 | "^DD",2,2, .5291,1,99 1,"%D",1,0 ) | |
11291 | This cross reference is used t o remember that chan ges were m ade to the | |
11292 | "^DD",2,2, .5291,1,99 1,"%D",2,0 ) | |
11293 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
11294 | "^DD",2,2, .5291,1,99 1,"%D",3,0 ) | |
11295 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
11296 | "^DD",2,2, .5291,1,99 1,"%D",4,0 ) | |
11297 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
11298 | "^DD",2,2, .5291,1,99 1,"%D",5,0 ) | |
11299 | ||
11300 | "^DD",2,2, .5291,1,99 1,"%D",6,0 ) | |
11301 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
11302 | "^DD",2,2, .5291,1,99 1,"%D",7,0 ) | |
11303 | executed b ecause the change is being mad e from wit hin the Re gistration | |
11304 | "^DD",2,2, .5291,1,99 1,"%D",8,0 ) | |
11305 | process. | |
11306 | "^DD",2,2, .5291,1,99 1,"%D",9,0 ) | |
11307 | ||
11308 | "^DD",2,2, .5291,1,99 1,"%D",10, 0) | |
11309 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
11310 | "^DD",2,2, .5291,1,99 1,"%D",11, 0) | |
11311 | variable V AFCA08 equ al to 1. | |
11312 | "^DD",2,2, .5291,1,99 1,"%D",12, 0) | |
11313 | ||
11314 | "^DD",2,2, .5291,1,99 1,"%D",13, 0) | |
11315 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
11316 | "^DD",2,2, .5291,1,99 1,"%D",14, 0) | |
11317 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
11318 | "^DD",2,2, .5291,1,99 1,"%D",15, 0) | |
11319 | (#391.71). | |
11320 | "^DD",2,2, .5291,1,99 1,"%D",16, 0) | |
11321 | ||
11322 | "^DD",2,2, .5291,1,99 1,"%D",17, 0) | |
11323 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
11324 | "^DD",2,2, .5291,1,99 1,"%D",18, 0) | |
11325 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
11326 | "^DD",2,2, .5291,1,99 1,"%D",19, 0) | |
11327 | transmissi on only. | |
11328 | "^DD",2,2, .5291,1,99 1,"DT") | |
11329 | 3171020 | |
11330 | "^DD",2,2, .5291,3) | |
11331 | Did this p atient ser ve in comb at? | |
11332 | "^DD",2,2, .5291,20,0 ) | |
11333 | ^.3LA^1^1 | |
11334 | "^DD",2,2, .5291,20,1 ,0) | |
11335 | CS | |
11336 | "^DD",2,2, .5291,21,0 ) | |
11337 | ^^4^4^2861 006^ | |
11338 | "^DD",2,2, .5291,21,1 ,0) | |
11339 | For this v eteran app licant ent er 'Y' if s/he serve d in a com bat | |
11340 | "^DD",2,2, .5291,21,2 ,0) | |
11341 | zone, or ' N' if not. Once the service r ecord is v erified on ly | |
11342 | "^DD",2,2, .5291,21,3 ,0) | |
11343 | users who hold the d esignated security k ey may ent er/edit th is | |
11344 | "^DD",2,2, .5291,21,4 ,0) | |
11345 | field. | |
11346 | "^DD",2,2, .5291,"DEL ",1,0) | |
11347 | S DFN=DA D SV^DGLOCK I '$D(X) | |
11348 | "^DD",2,2, .5291,"DT" ) | |
11349 | 3171020 | |
11350 | "^DD",2,2, .5295,0) | |
11351 | COMBAT VET ERAN END D ATE^D^^.52 ;15^S %DT= "EX" D ^%D T S X=Y K: Y<1 X | |
11352 | "^DD",2,2, .5295,1,0) | |
11353 | ^.1 | |
11354 | "^DD",2,2, .5295,1,1, 0) | |
11355 | 2^AENR5295 ^MUMPS | |
11356 | "^DD",2,2, .5295,1,1, 1) | |
11357 | D EVENT^IV MPLOG(DA) | |
11358 | "^DD",2,2, .5295,1,1, 2) | |
11359 | D EVENT^IV MPLOG(DA) | |
11360 | "^DD",2,2, .5295,1,1, 3) | |
11361 | DO NOT DEL ETE | |
11362 | "^DD",2,2, .5295,1,1, "%D",0) | |
11363 | ^^2^2^3040 420^ | |
11364 | "^DD",2,2, .5295,1,1, "%D",1,0) | |
11365 | This cross -reference is used t o notify H EC of chan ges | |
11366 | "^DD",2,2, .5295,1,1, "%D",2,0) | |
11367 | to the COM BAT VETERA N END DATE field. | |
11368 | "^DD",2,2, .5295,1,1, "DT") | |
11369 | 3040420 | |
11370 | "^DD",2,2, .5295,1,2, 0) | |
11371 | ^^TRIGGER^ 2^.5296 | |
11372 | "^DD",2,2, .5295,1,2, 1) | |
11373 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,.52)):^(. 52),1:"") S X=$P(Y(1 ),U,16),X= X S DIU=X K Y S X=DI V S X=DT S DIH=$G(^D PT(DIV(0), .52)),DIV= X S $P(^(. 52),U,16)= DIV,DIH=2, DIG=.5296 D ^DICR | |
11374 | "^DD",2,2, .5295,1,2, 2) | |
11375 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,.52)):^(. 52),1:"") S X=$P(Y(1 ),U,16),X= X S DIU=X K Y S X=DI V S X=DT S DIH=$G(^D PT(DIV(0), .52)),DIV= X S $P(^(. 52),U,16)= DIV,DIH=2, DIG=.5296 D ^DICR | |
11376 | "^DD",2,2, .5295,1,2, "%D",0) | |
11377 | ^.101^2^2^ 3040628^^ | |
11378 | "^DD",2,2, .5295,1,2, "%D",1,0) | |
11379 | This trigg er x-ref i s used to update the date stam p when the CV | |
11380 | "^DD",2,2, .5295,1,2, "%D",2,0) | |
11381 | Eligibilit y End date is edited . | |
11382 | "^DD",2,2, .5295,1,2, "CREATE VA LUE") | |
11383 | S X=DT | |
11384 | "^DD",2,2, .5295,1,2, "DELETE VA LUE") | |
11385 | S X=DT | |
11386 | "^DD",2,2, .5295,1,2, "DT") | |
11387 | 3040614 | |
11388 | "^DD",2,2, .5295,1,2, "FIELD") | |
11389 | CV | |
11390 | "^DD",2,2, .5295,1,3, 0) | |
11391 | 2^AENR5295 1^MUMPS | |
11392 | "^DD",2,2, .5295,1,3, 1) | |
11393 | D AUTOUPD^ DGENA2(DA) | |
11394 | "^DD",2,2, .5295,1,3, 2) | |
11395 | D AUTOUPD^ DGENA2(DA) | |
11396 | "^DD",2,2, .5295,1,3, 3) | |
11397 | DO NOT DEL ETE | |
11398 | "^DD",2,2, .5295,1,3, "%D",0) | |
11399 | ^^1^1^3040 708^ | |
11400 | "^DD",2,2, .5295,1,3, "%D",1,0) | |
11401 | This cross -reference is used t o update t he patient 's current Patient E nrollment record. | |
11402 | "^DD",2,2, .5295,1,3, "DT") | |
11403 | 3040708 | |
11404 | "^DD",2,2, .5295,1,99 1,0) | |
11405 | 2^AVAFC529 5^MUMPS | |
11406 | "^DD",2,2, .5295,1,99 1,1) | |
11407 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".529 5;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
11408 | "^DD",2,2, .5295,1,99 1,2) | |
11409 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF=".529 5;",VAFCEP IC=1 D AVA FC^VAFCDD0 1(DA) | |
11410 | "^DD",2,2, .5295,1,99 1,"%D",0) | |
11411 | ^.101^19^1 9^3171108^ ^ | |
11412 | "^DD",2,2, .5295,1,99 1,"%D",1,0 ) | |
11413 | This cross reference is used t o remember that chan ges were m ade to the | |
11414 | "^DD",2,2, .5295,1,99 1,"%D",2,0 ) | |
11415 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
11416 | "^DD",2,2, .5295,1,99 1,"%D",3,0 ) | |
11417 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
11418 | "^DD",2,2, .5295,1,99 1,"%D",4,0 ) | |
11419 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
11420 | "^DD",2,2, .5295,1,99 1,"%D",5,0 ) | |
11421 | ||
11422 | "^DD",2,2, .5295,1,99 1,"%D",6,0 ) | |
11423 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
11424 | "^DD",2,2, .5295,1,99 1,"%D",7,0 ) | |
11425 | executed b ecause the change is being mad e from wit hin the Re gistration | |
11426 | "^DD",2,2, .5295,1,99 1,"%D",8,0 ) | |
11427 | process. | |
11428 | "^DD",2,2, .5295,1,99 1,"%D",9,0 ) | |
11429 | ||
11430 | "^DD",2,2, .5295,1,99 1,"%D",10, 0) | |
11431 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
11432 | "^DD",2,2, .5295,1,99 1,"%D",11, 0) | |
11433 | variable V AFCA08 equ al to 1. | |
11434 | "^DD",2,2, .5295,1,99 1,"%D",12, 0) | |
11435 | ||
11436 | "^DD",2,2, .5295,1,99 1,"%D",13, 0) | |
11437 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
11438 | "^DD",2,2, .5295,1,99 1,"%D",14, 0) | |
11439 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
11440 | "^DD",2,2, .5295,1,99 1,"%D",15, 0) | |
11441 | (#391.71). | |
11442 | "^DD",2,2, .5295,1,99 1,"%D",16, 0) | |
11443 | ||
11444 | "^DD",2,2, .5295,1,99 1,"%D",17, 0) | |
11445 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
11446 | "^DD",2,2, .5295,1,99 1,"%D",18, 0) | |
11447 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
11448 | "^DD",2,2, .5295,1,99 1,"%D",19, 0) | |
11449 | transmissi on only. | |
11450 | "^DD",2,2, .5295,1,99 1,"DT") | |
11451 | 3171020 | |
11452 | "^DD",2,2, .5295,20,0 ) | |
11453 | ^.3LA^1^1 | |
11454 | "^DD",2,2, .5295,20,1 ,0) | |
11455 | CS | |
11456 | "^DD",2,2, .5295,21,0 ) | |
11457 | ^.001^4^4^ 3040420^^^ ^ | |
11458 | "^DD",2,2, .5295,21,1 ,0) | |
11459 | This field represent s the last day for c ombat vet eligibilit y. This fi eld | |
11460 | "^DD",2,2, .5295,21,2 ,0) | |
11461 | will only be populat ed by cros s-referenc e when the veteran's combat ve t | |
11462 | "^DD",2,2, .5295,21,3 ,0) | |
11463 | eligibilit y has been determine d. This va lue will r emain afte r the comb at | |
11464 | "^DD",2,2, .5295,21,4 ,0) | |
11465 | vet eligib ility peri od has exp ired. | |
11466 | "^DD",2,2, .5295,"AUD IT") | |
11467 | ||
11468 | "^DD",2,2, .5295,"AX" ) | |
11469 | ||
11470 | "^DD",2,2, .5295,"DT" ) | |
11471 | 3171020 | |
11472 | "^DD",2,2, 1,0) | |
11473 | ALIAS^2.01 ^^.01;0 | |
11474 | "^DD",2,2, 1,3) | |
11475 | If this pa tient is k nown by an other name enter tha t name. | |
11476 | "^DD",2,2, 1,20,0) | |
11477 | ^.3LA^1^1 | |
11478 | "^DD",2,2, 1,20,1,0) | |
11479 | DEMOG | |
11480 | "^DD",2,2, 1,21,0) | |
11481 | ^^4^4^2911 214^^^^ | |
11482 | "^DD",2,2, 1,21,1,0) | |
11483 | If this ap plicant is known by any name o ther than that enter ed in | |
11484 | "^DD",2,2, 1,21,2,0) | |
11485 | the NAME f ield enter that/thos e other na me(s) here . Any ent ry | |
11486 | "^DD",2,2, 1,21,3,0) | |
11487 | to this fi eld will b e cross-re ferenced a nd the app licant may be | |
11488 | "^DD",2,2, 1,21,4,0) | |
11489 | called up using this alias. | |
11490 | "^DD",2,2, 220,0) | |
11491 | DENTAL CLA SSIFICATIO N^P220.2'^ DIC(220.2, ^DENT;1^Q | |
11492 | "^DD",2,2, 220,1,0) | |
11493 | ^.1 | |
11494 | "^DD",2,2, 220,1,991, 0) | |
11495 | 2^AVAFC220 ^MUMPS | |
11496 | "^DD",2,2, 220,1,991, 1) | |
11497 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF="220; ",VAFCEPIC =1 D AVAFC ^VAFCDD01( DA) | |
11498 | "^DD",2,2, 220,1,991, 2) | |
11499 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF="220; ",VAFCEPIC =1 D AVAFC ^VAFCDD01( DA) | |
11500 | "^DD",2,2, 220,1,991, "%D",0) | |
11501 | ^^19^19^31 70915^ | |
11502 | "^DD",2,2, 220,1,991, "%D",1,0) | |
11503 | This cross reference is used t o remember that chan ges were m ade to the | |
11504 | "^DD",2,2, 220,1,991, "%D",2,0) | |
11505 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
11506 | "^DD",2,2, 220,1,991, "%D",3,0) | |
11507 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
11508 | "^DD",2,2, 220,1,991, "%D",4,0) | |
11509 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
11510 | "^DD",2,2, 220,1,991, "%D",5,0) | |
11511 | ||
11512 | "^DD",2,2, 220,1,991, "%D",6,0) | |
11513 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
11514 | "^DD",2,2, 220,1,991, "%D",7,0) | |
11515 | executed b ecause the change is being mad e from wit hin the Re gistration | |
11516 | "^DD",2,2, 220,1,991, "%D",8,0) | |
11517 | process. | |
11518 | "^DD",2,2, 220,1,991, "%D",9,0) | |
11519 | ||
11520 | "^DD",2,2, 220,1,991, "%D",10,0) | |
11521 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
11522 | "^DD",2,2, 220,1,991, "%D",11,0) | |
11523 | variable V AFCA08 equ al to 1. | |
11524 | "^DD",2,2, 220,1,991, "%D",12,0) | |
11525 | ||
11526 | "^DD",2,2, 220,1,991, "%D",13,0) | |
11527 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
11528 | "^DD",2,2, 220,1,991, "%D",14,0) | |
11529 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
11530 | "^DD",2,2, 220,1,991, "%D",15,0) | |
11531 | (#391.71). | |
11532 | "^DD",2,2, 220,1,991, "%D",16,0) | |
11533 | ||
11534 | "^DD",2,2, 220,1,991, "%D",17,0) | |
11535 | The local variable V AFCEPIC is set to 1 to stop th e existing output of | |
11536 | "^DD",2,2, 220,1,991, "%D",18,0) | |
11537 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
11538 | "^DD",2,2, 220,1,991, "%D",19,0) | |
11539 | transmissi on only. | |
11540 | "^DD",2,2, 220,1,991, "DT") | |
11541 | 3170915 | |
11542 | "^DD",2,2, 220,21,0) | |
11543 | ^^1^1^2850 731^ | |
11544 | "^DD",2,2, 220,21,1,0 ) | |
11545 | For Dental Package | |
11546 | "^DD",2,2, 220,"DT") | |
11547 | 3170915 | |
11548 | "^DD",2,2, 361,0) | |
11549 | PATIENT EL IGIBILITIE S^2.0361IP ^^E;0 | |
11550 | "^DD",2,2, 361,3) | |
11551 | Choose fro m the avai lable list ing those eligibilit ies to whi ch this pa tient migh t be entit led which are not hi s primary eligibilit y. | |
11552 | "^DD",2,2, 361,20,0) | |
11553 | ^.3LA^1^1 | |
11554 | "^DD",2,2, 361,20,1,0 ) | |
11555 | ECD | |
11556 | "^DD",2,2, 361,21,0) | |
11557 | ^^3^3^2911 214^ | |
11558 | "^DD",2,2, 361,21,1,0 ) | |
11559 | This multi ple contai ns all eli gibilities under whi ch this pa tient can | |
11560 | "^DD",2,2, 361,21,2,0 ) | |
11561 | receive ca re. This includes h is primary eligibili ty and all other | |
11562 | "^DD",2,2, 361,21,3,0 ) | |
11563 | eligibilit ies he may have. | |
11564 | "^DD",2,2, 1010.159,0 ) | |
11565 | APPOINTMEN T REQUEST ON 1010EZ^ S^0:NO;1:Y ES;^1010.1 5;9^Q | |
11566 | "^DD",2,2, 1010.159,. 1) | |
11567 | Do you wan t an appt. with a VA doctor/pr ovider as soon as av ailable? | |
11568 | "^DD",2,2, 1010.159,1 ,0) | |
11569 | ^.1 | |
11570 | "^DD",2,2, 1010.159,1 ,1,0) | |
11571 | 2^AENR1010 159^MUMPS | |
11572 | "^DD",2,2, 1010.159,1 ,1,1) | |
11573 | D EVENT^IV MPLOG(DA) | |
11574 | "^DD",2,2, 1010.159,1 ,1,2) | |
11575 | D EVENT^IV MPLOG(DA) | |
11576 | "^DD",2,2, 1010.159,1 ,1,3) | |
11577 | DO NOT DE LETE | |
11578 | "^DD",2,2, 1010.159,1 ,1,"%D",0) | |
11579 | ^.101^2^2^ 3050627^^^ ^ | |
11580 | "^DD",2,2, 1010.159,1 ,1,"%D",1, 0) | |
11581 | This cross -reference is used t o notify H EC of chan ges that m ay affect | |
11582 | "^DD",2,2, 1010.159,1 ,1,"%D",2, 0) | |
11583 | enrollment . | |
11584 | "^DD",2,2, 1010.159,1 ,1,"DT") | |
11585 | 3050627 | |
11586 | "^DD",2,2, 1010.159,1 ,2,0) | |
11587 | 2^AMX^MUMP S | |
11588 | "^DD",2,2, 1010.159,1 ,2,1) | |
11589 | D TRNLMSG^ ORMXTR | |
11590 | "^DD",2,2, 1010.159,1 ,2,2) | |
11591 | Q | |
11592 | "^DD",2,2, 1010.159,1 ,2,"%D",0) | |
11593 | ^.101^1^1^ 3180126^^^ | |
11594 | "^DD",2,2, 1010.159,1 ,2,"%D",1, 0) | |
11595 | This sends a MASS HL 7 message to EPic wh en the fie ld changes . | |
11596 | "^DD",2,2, 1010.159,1 ,2,"DT") | |
11597 | 3171113 | |
11598 | "^DD",2,2, 1010.159,3 ) | |
11599 | Enter 'Y' if the vet eran appli cant has r equested a n appointm ent with a VA doctor /provider. | |
11600 | "^DD",2,2, 1010.159,4 ) | |
11601 | ||
11602 | "^DD",2,2, 1010.159,2 1,0) | |
11603 | ^.001^7^7^ 3050225^^^ ^ | |
11604 | "^DD",2,2, 1010.159,2 1,1,0) | |
11605 | Enter a 'Y ' if the v eteran app licant has requested an appoin tment with a | |
11606 | "^DD",2,2, 1010.159,2 1,2,0) | |
11607 | VA doctor or provide r and want s to be se en as soon as one be comes | |
11608 | "^DD",2,2, 1010.159,2 1,3,0) | |
11609 | available. Enter a 'N' if the veteran a pplicant h as not req uested an | |
11610 | "^DD",2,2, 1010.159,2 1,4,0) | |
11611 | appointmen t. | |
11612 | "^DD",2,2, 1010.159,2 1,5,0) | |
11613 | ||
11614 | "^DD",2,2, 1010.159,2 1,6,0) | |
11615 | This quest ion may ON LY be ente red ONCE f or the vet eran. The answer to | |
11616 | "^DD",2,2, 1010.159,2 1,7,0) | |
11617 | this quest ion CANNOT be change d after th e initial entry. | |
11618 | "^DD",2,2, 1010.159,2 3,0) | |
11619 | ^.001^2^2^ 3050225^^^ ^ | |
11620 | "^DD",2,2, 1010.159,2 3,1,0) | |
11621 | This field reflects the a requ est indica ted on the patient's initial | |
11622 | "^DD",2,2, 1010.159,2 3,2,0) | |
11623 | 1010EZ. | |
11624 | "^DD",2,2, 1010.159," DT") | |
11625 | 3171113 | |
11626 | "^DD",2,2, 1010.161,0 ) | |
11627 | APPOINTMEN T REQUEST STATUS^S^C :CANCELLED ;E:EWL;F:F ILLED;I:IN PROCESS/V ETERAN CON TACTED;^10 10.16;1^Q | |
11628 | "^DD",2,2, 1010.161,1 ,0) | |
11629 | ^.1 | |
11630 | "^DD",2,2, 1010.161,1 ,1,0) | |
11631 | ^^TRIGGER^ 2^1010.162 | |
11632 | "^DD",2,2, 1010.161,1 ,1,1) | |
11633 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,1010.16)) :^(1010.16 ),1:"") S X=$P(Y(1), U,2),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^D D(2,1010.1 61,1,1,1.4 ) | |
11634 | "^DD",2,2, 1010.161,1 ,1,1.4) | |
11635 | S DIH=$G(^ DPT(DIV(0) ,1010.16)) ,DIV=X S $ P(^(1010.1 6),U,2)=DI V,DIH=2,DI G=1010.162 D ^DICR | |
11636 | "^DD",2,2, 1010.161,1 ,1,2) | |
11637 | K DIV S DI V=X,D0=DA, DIV(0)=D0 S Y(1)=$S( $D(^DPT(D0 ,1010.16)) :^(1010.16 ),1:"") S X=$P(Y(1), U,2),X=X S DIU=X K Y S X="" S DIH=$G(^DP T(DIV(0),1 010.16)),D IV=X S $P( ^(1010.16) ,U,2)=DIV, DIH=2,DIG= 1010.162 D ^DICR | |
11638 | "^DD",2,2, 1010.161,1 ,1,"CREATE VALUE") | |
11639 | NOW | |
11640 | "^DD",2,2, 1010.161,1 ,1,"DELETE VALUE") | |
11641 | @ | |
11642 | "^DD",2,2, 1010.161,1 ,1,"FIELD" ) | |
11643 | DATE STATU S LA | |
11644 | "^DD",2,2, 1010.161,1 ,2,0) | |
11645 | 2^AY^MUMPS | |
11646 | "^DD",2,2, 1010.161,1 ,2,1) | |
11647 | Q | |
11648 | "^DD",2,2, 1010.161,1 ,2,2) | |
11649 | D TRNLMSG^ ORMXTR(1) | |
11650 | "^DD",2,2, 1010.161,1 ,2,"DT") | |
11651 | 3180208 | |
11652 | "^DD",2,2, 1010.161,3 ) | |
11653 | Enter stat us of appo intment re quest. | |
11654 | "^DD",2,2, 1010.161,2 1,0) | |
11655 | ^^3^3^3080 317^ | |
11656 | "^DD",2,2, 1010.161,2 1,1,0) | |
11657 | This field is the st atus of th e veteran' s new appo intment re quested. | |
11658 | "^DD",2,2, 1010.161,2 1,2,0) | |
11659 | This field is entere d by the u ser throug h the new enrollee a ppointment | |
11660 | "^DD",2,2, 1010.161,2 1,3,0) | |
11661 | request op tion. | |
11662 | "^DD",2,2, 1010.161," DT") | |
11663 | 3180208 | |
11664 | "^DD",2,2. 01,0) | |
11665 | ALIAS SUB- FIELD^NL^1 00.03^3 | |
11666 | "^DD",2,2. 01,0,"NM", "ALIAS") | |
11667 | ||
11668 | "^DD",2,2. 01,.01,0) | |
11669 | ALIAS^MFa^ ^0;1^K:$L( X)>30!($L( X)<3) X I $D(X) S DG 20NAME=X,( X,DG20NAME )=$$FORMAT ^XLFNAME7( .DG20NAME, 3,30) K:'$ L(X) X,DG2 0NAME | |
11670 | "^DD",2,2. 01,.01,1,0 ) | |
11671 | ^.1 | |
11672 | "^DD",2,2. 01,.01,1,1 ,0) | |
11673 | 2^B^MNEMON IC | |
11674 | "^DD",2,2. 01,.01,1,1 ,1) | |
11675 | S:'$D(^DPT ("B",$E(X, 1,30),DA(1 ),DA)) ^(D A)=1 | |
11676 | "^DD",2,2. 01,.01,1,1 ,2) | |
11677 | I $D(^DPT( "B",$E(X,1 ,30),DA(1) ,DA)),^(DA ) K ^(DA) | |
11678 | "^DD",2,2. 01,.01,1,9 91,0) | |
11679 | 2^AVAFC201 01^MUMPS | |
11680 | "^DD",2,2. 01,.01,1,9 91,1) | |
11681 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF="2.01 ,.01;",DGM XEPIC=1 D AVAFC^VAFC DD01(DA) | |
11682 | "^DD",2,2. 01,.01,1,9 91,2) | |
11683 | I ($T(AVAF C^VAFCDD01 )'="") S V AFCF="2.01 ,.01;",DGM XEPIC=1 D AVAFC^VAFC DD01(DA) | |
11684 | "^DD",2,2. 01,.01,1,9 91,"%D",0) | |
11685 | ^.101^19^1 9^3180125^ ^^^ | |
11686 | "^DD",2,2. 01,.01,1,9 91,"%D",1, 0) | |
11687 | This cross reference is used t o remember that chan ges were m ade to the | |
11688 | "^DD",2,2. 01,.01,1,9 91,"%D",2, 0) | |
11689 | PATIENT fi le (#2) ou tside of t he Registr ation proc ess. Exec ution of t his | |
11690 | "^DD",2,2. 01,.01,1,9 91,"%D",3, 0) | |
11691 | cross refe rence will create an entry in the ADT/HL 7 PIVOT fi le (#391.7 1) | |
11692 | "^DD",2,2. 01,.01,1,9 91,"%D",4, 0) | |
11693 | and mark i t as requi ring trans mission of an HL7 AD T-A08 mess age. | |
11694 | "^DD",2,2. 01,.01,1,9 91,"%D",5, 0) | |
11695 | ||
11696 | "^DD",2,2. 01,.01,1,9 91,"%D",6, 0) | |
11697 | The local variable V AFCFLG wil l be set t o 1 if the cross ref erence is not | |
11698 | "^DD",2,2. 01,.01,1,9 91,"%D",7, 0) | |
11699 | executed b ecause the change is being mad e from wit hin the Re gistration | |
11700 | "^DD",2,2. 01,.01,1,9 91,"%D",8, 0) | |
11701 | process. | |
11702 | "^DD",2,2. 01,.01,1,9 91,"%D",9, 0) | |
11703 | ||
11704 | "^DD",2,2. 01,.01,1,9 91,"%D",10 ,0) | |
11705 | Execution of this cr oss refere nce can be prevented by settin g the loca l | |
11706 | "^DD",2,2. 01,.01,1,9 91,"%D",11 ,0) | |
11707 | variable V AFCA08 equ al to 1. | |
11708 | "^DD",2,2. 01,.01,1,9 91,"%D",12 ,0) | |
11709 | ||
11710 | "^DD",2,2. 01,.01,1,9 91,"%D",13 ,0) | |
11711 | The local variable V AFCF is us ed to iden tify the f ield edite d. This d ata | |
11712 | "^DD",2,2. 01,.01,1,9 91,"%D",14 ,0) | |
11713 | is stored in the FIE LD(S) EDIT ED (#2.1) field in t he ADT/HL7 PIVOT fil e | |
11714 | "^DD",2,2. 01,.01,1,9 91,"%D",15 ,0) | |
11715 | (#391.71). | |
11716 | "^DD",2,2. 01,.01,1,9 91,"%D",16 ,0) | |
11717 | ||
11718 | "^DD",2,2. 01,.01,1,9 91,"%D",17 ,0) | |
11719 | The local variable D GMXEPIC is set to 1 to stop th e existing output of | |
11720 | "^DD",2,2. 01,.01,1,9 91,"%D",18 ,0) | |
11721 | messages t o MPI when the updat e to this field is f or the MAS S to Epic | |
11722 | "^DD",2,2. 01,.01,1,9 91,"%D",19 ,0) | |
11723 | transmissi on only. | |
11724 | "^DD",2,2. 01,.01,1,9 91,"DT") | |
11725 | 3170913 | |
11726 | "^DD",2,2. 01,.01,3) | |
11727 | Enter name in 'LAST, FIRST MIDD LE SUFFIX' format, m ust be 3-3 0 characte rs in leng th. | |
11728 | "^DD",2,2. 01,.01,21, 0) | |
11729 | ^^4^4^2861 007^ | |
11730 | "^DD",2,2. 01,.01,21, 1,0) | |
11731 | Enter the alias name in 'LAST, FIRST MIDD LE SUFFIX' format. | |
11732 | "^DD",2,2. 01,.01,21, 2,0) | |
11733 | This value must be 3 -30 charac ters in le ngth and m ay contain only uppe rcase | |
11734 | "^DD",2,2. 01,.01,21, 3,0) | |
11735 | alpha char acters, sp aces, apos trophes, h yphens and one comma . All oth er | |
11736 | "^DD",2,2. 01,.01,21, 4,0) | |
11737 | characters and paren thetical t ext will b e removed. | |
11738 | "^DD",2,2. 01,.01,"AU DIT") | |
11739 | y | |
11740 | "^DD",2,2. 01,.01,"DT ") | |
11741 | 3170913 | |
11742 | "^DD",2,2. 0361,0) | |
11743 | PATIENT EL IGIBILITIE S SUB-FIEL D^^.04^3 | |
11744 | "^DD",2,2. 0361,0,"NM ","PATIENT ELIGIBILI TIES") | |
11745 | ||
11746 | "^DD",2,2. 0361,.01,0 ) | |
11747 | ELIGIBILIT Y^M*P8'X^D IC(8,^0;1^ S DIC("S") ="I '$P(^( 0),U,7),$S ($P(^(0),U ,8):1,'$D( ^DPT(D0,.3 6)):0,1:Y= +^(.36)),$ $ELGCHK^DG RPTU(D0)" D ^DIC K D IC S DIC=D IE,X=+Y K: Y<0 X I $D (X) S DINU M=X | |
11748 | "^DD",2,2. 0361,.01,1 ,0) | |
11749 | ^.1^^-1 | |
11750 | "^DD",2,2. 0361,.01,1 ,1,0) | |
11751 | 2.0361^B | |
11752 | "^DD",2,2. 0361,.01,1 ,1,1) | |
11753 | S ^DPT(DA( 1),"E","B" ,$E(X,1,30 ),DA)="" | |
11754 | "^DD",2,2. 0361,.01,1 ,1,2) | |
11755 | K ^DPT(DA( 1),"E","B" ,$E(X,1,30 ),DA) | |
11756 | "^DD",2,2. 0361,.01,1 ,2,0) | |
11757 | 2^AEL1^MUM PS | |
11758 | "^DD",2,2. 0361,.01,1 ,2,1) | |
11759 | S ^DPT("AE L",DA(1),+ X)="" | |
11760 | "^DD",2,2. 0361,.01,1 ,2,2) | |
11761 | K ^DPT("AE L",DA(1),+ X) | |
11762 | "^DD",2,2. 0361,.01,1 ,3,0) | |
11763 | ^^TRIGGER^ 2.0361^.03 | |
11764 | "^DD",2,2. 0361,.01,1 ,3,1) | |
11765 | D E31^VADP T62 | |
11766 | "^DD",2,2. 0361,.01,1 ,3,1.1) | |
11767 | S X=DIV S X="" I $D( ^DIC(8,DA, 0)),$D(^DI C(8.2,+$P( ^(0),U,10) ,"LONG")) X ^("LONG" ) | |
11768 | "^DD",2,2. 0361,.01,1 ,3,1.4) | |
11769 | S DIH=$S($ D(^DPT(DIV (0),"E",DI V(1),0)):^ (0),1:""), DIV=X S $P (^(0),U,3) =DIV,DIH=2 .0361,DIG= .03 D ^DIC R:$N(^DD(D IH,DIG,1,0 ))>0 | |
11770 | "^DD",2,2. 0361,.01,1 ,3,2) | |
11771 | D E32^VADP T62 | |
11772 | "^DD",2,2. 0361,.01,1 ,3,2.4) | |
11773 | S DIH=$S($ D(^DPT(DIV (0),"E",DI V(1),0)):^ (0),1:""), DIV=X S $P (^(0),U,3) =DIV,DIH=2 .0361,DIG= .03 D ^DIC R:$N(^DD(D IH,DIG,1,0 ))>0 | |
11774 | "^DD",2,2. 0361,.01,1 ,3,"CREATE VALUE") | |
11775 | S X="" I $ D(^DIC(8,D A,0)),$D(^ DIC(8.2,+$ P(^(0),U,1 0),"LONG") ) X ^("LON G") | |
11776 | "^DD",2,2. 0361,.01,1 ,3,"DELETE VALUE") | |
11777 | @ | |
11778 | "^DD",2,2. 0361,.01,1 ,3,"FIELD" ) | |
11779 | LONG ID | |
11780 | "^DD",2,2. 0361,.01,1 ,4,0) | |
11781 | 2^AO^MUMPS | |
11782 | "^DD",2,2. 0361,.01,1 ,4,1) | |
11783 | S DFN=DA(1 ) D EN^DGM TR K DGREQ F | |
11784 | "^DD",2,2. 0361,.01,1 ,4,2) | |
11785 | S DFN=DA(1 ) D EN^DGM TR K DGREQ F | |
11786 | "^DD",2,2. 0361,.01,1 ,4,"%D",0) | |
11787 | ^^2^2^2970 923^^^^ | |
11788 | "^DD",2,2. 0361,.01,1 ,4,"%D",1, 0) | |
11789 | This cross -reference is used t o determin e whether or not a m eans test or | |
11790 | "^DD",2,2. 0361,.01,1 ,4,"%D",2, 0) | |
11791 | co-pay tes t is requi red. | |
11792 | "^DD",2,2. 0361,.01,1 ,4,"DT") | |
11793 | 2970923 | |
11794 | "^DD",2,2. 0361,.01,1 ,5,0) | |
11795 | 2^AENR01^M UMPS | |
11796 | "^DD",2,2. 0361,.01,1 ,5,1) | |
11797 | D AUTOUPD^ DGENA2(DA( 1)) | |
11798 | "^DD",2,2. 0361,.01,1 ,5,2) | |
11799 | D AUTOUPD^ DGENA2(DA( 1)) | |
11800 | "^DD",2,2. 0361,.01,1 ,5,3) | |
11801 | DO NOT DEL ETE | |
11802 | "^DD",2,2. 0361,.01,1 ,5,"%D",0) | |
11803 | ^^7^7^2970 820^^^^ | |
11804 | "^DD",2,2. 0361,.01,1 ,5,"%D",1, 0) | |
11805 | This cross -reference is used t o update t he patient 's current Patient E nrollment | |
11806 | "^DD",2,2. 0361,.01,1 ,5,"%D",2, 0) | |
11807 | record. | |
11808 | "^DD",2,2. 0361,.01,1 ,5,"%D",3, 0) | |
11809 | ||
11810 | "^DD",2,2. 0361,.01,1 ,5,"%D",4, 0) | |
11811 | When delet ing an eli gibility, at the poi nt the kil l logic of this x-re f | |
11812 | "^DD",2,2. 0361,.01,1 ,5,"%D",5, 0) | |
11813 | is execute d the data still exi sts in the global. To determi ne whether an | |
11814 | "^DD",2,2. 0361,.01,1 ,5,"%D",6, 0) | |
11815 | eligibilit y still ex ists the " B" x-ref i s checked - if not t here, the | |
11816 | "^DD",2,2. 0361,.01,1 ,5,"%D",7, 0) | |
11817 | eligibilit y is ignor ed. | |
11818 | "^DD",2,2. 0361,.01,1 ,5,"DT") | |
11819 | 2970715 | |
11820 | "^DD",2,2. 0361,.01,3 ) | |
11821 | Select oth er eligibi lities to which this patient m ay be enti tled. | |
11822 | "^DD",2,2. 0361,.01,5 ,1,0) | |
11823 | 2^.361^2 | |
11824 | "^DD",2,2. 0361,.01,1 2) | |
11825 | Select oth er eligibi lities for the patie nt. The pr imary may be selecte d but it m ust alread y exist. | |
11826 | "^DD",2,2. 0361,.01,1 2.1) | |
11827 | S DIC("S") ="I '$P(^( 0),U,7),$S ($P(^(0),U ,8):1,'$D( ^DPT(D0,.3 6)):0,1:Y= +^(.36)),$ $ELGCHK^DG RPTU(D0)" | |
11828 | "^DD",2,2. 0361,.01,2 1,0) | |
11829 | ^^3^3^2911 214^^^^ | |
11830 | "^DD",2,2. 0361,.01,2 1,1,0) | |
11831 | Enter all eligibilit ies under which this patient m ay receive care. Th e | |
11832 | "^DD",2,2. 0361,.01,2 1,2,0) | |
11833 | patients p rimary eli gibility a s well as all other eligibilit ies he is | |
11834 | "^DD",2,2. 0361,.01,2 1,3,0) | |
11835 | entitled t o is store d in this multiple. | |
11836 | "^DD",2,2. 0361,.01,2 3,0) | |
11837 | ^^9^9^2911 214^^^^ | |
11838 | "^DD",2,2. 0361,.01,2 3,1,0) | |
11839 | Unlike pre vious vers ions of th e PATIENT file, in t his | |
11840 | "^DD",2,2. 0361,.01,2 3,2,0) | |
11841 | version AL L the pati ent's elig ibilities are stored in this | |
11842 | "^DD",2,2. 0361,.01,2 3,3,0) | |
11843 | multiple. | |
11844 | "^DD",2,2. 0361,.01,2 3,4,0) | |
11845 | ||
11846 | "^DD",2,2. 0361,.01,2 3,5,0) | |
11847 | When the u ser enters /edits tha t patient' s PRIMARY ELIGIBILIT Y CODE, th at | |
11848 | "^DD",2,2. 0361,.01,2 3,6,0) | |
11849 | code is au tomaticall y stored i n the mult iple as we ll as in | |
11850 | "^DD",2,2. 0361,.01,2 3,7,0) | |
11851 | the PRIMAR Y ELIGIBIL ITY CODE f ield. | |
11852 | "^DD",2,2. 0361,.01,2 3,8,0) | |
11853 | ||
11854 | "^DD",2,2. 0361,.01,2 3,9,0) | |
11855 | This chang e was nece ssary to a ccomodate the VA/DOD sharing | |
11856 | "^DD",2,2. 0361,.01," DEL",1,0) | |
11857 | S DFN=DA(1 ) D EV^DGL OCK I '$D( X)!(+$G(^D PT(DA(1),. 36))=DA) W :$D(X) !?5 ,"Deleting primary e ligibility is not al lowed" | |
11858 | "^DD",2,2. 0361,.01," DT") | |
11859 | 3180205 | |
11860 | "^DD",26.1 4,26.14,.0 3,0) | |
11861 | ACTION^RSI ^1:NEW ASS IGNMENT;2: CONTINUE;3 :INACTIVAT E;4:REACTI VATE;5:ENT ERED IN ER ROR;^0;3^Q | |
11862 | "^DD",26.1 4,26.14,.0 3,1,0) | |
11863 | ^.1 | |
11864 | "^DD",26.1 4,26.14,.0 3,1,1,0) | |
11865 | 26.14^AC^M UMPS | |
11866 | "^DD",26.1 4,26.14,.0 3,1,1,1) | |
11867 | D TRIGPRFH ^DGMXORU(D A) | |
11868 | "^DD",26.1 4,26.14,.0 3,1,1,2) | |
11869 | D TRIGPRFH ^DGMXORU(D A) | |
11870 | "^DD",26.1 4,26.14,.0 3,1,1,"%D" ,0) | |
11871 | ^.101^3^3^ 3171204^^^ ^ | |
11872 | "^DD",26.1 4,26.14,.0 3,1,1,"%D" ,1,0) | |
11873 | This cross -reference sends an HL7 messag e from the MASS syst em to Epic | |
11874 | "^DD",26.1 4,26.14,.0 3,1,1,"%D" ,2,0) | |
11875 | Cadence so ftware whe n audit in formation is updated resulting from a | |
11876 | "^DD",26.1 4,26.14,.0 3,1,1,"%D" ,3,0) | |
11877 | patient re cord flag update to file #26.1 3 (PRF ASS IGNMENT). | |
11878 | "^DD",26.1 4,26.14,.0 3,1,1,"DT" ) | |
11879 | 3171130 | |
11880 | "^DD",26.1 4,26.14,.0 3,3) | |
11881 | Enter the action ass ociated wi th the ass ignment hi story. | |
11882 | "^DD",26.1 4,26.14,.0 3,21,0) | |
11883 | ^^3^3^3040 318^ | |
11884 | "^DD",26.1 4,26.14,.0 3,21,1,0) | |
11885 | This field contains the event that occur red to cre ate this P RF ASSIGNM ENT | |
11886 | "^DD",26.1 4,26.14,.0 3,21,2,0) | |
11887 | HISTORY re cord. Sam ple events are NEW A SSIGNMENT, CONTINUE, INACTIVAT E, | |
11888 | "^DD",26.1 4,26.14,.0 3,21,3,0) | |
11889 | REACTIVATE and ENTER ED IN ERRO R. | |
11890 | "^DD",26.1 4,26.14,.0 3,"DT") | |
11891 | 3171206 | |
11892 | "^DD",27.1 1,27.11,.0 2,0) | |
11893 | PATIENT^RP 2'I^DPT(^0 ;2^Q | |
11894 | "^DD",27.1 1,27.11,.0 2,1,0) | |
11895 | ^.1 | |
11896 | "^DD",27.1 1,27.11,.0 2,1,1,0) | |
11897 | 27.11^C | |
11898 | "^DD",27.1 1,27.11,.0 2,1,1,1) | |
11899 | S ^DGEN(27 .11,"C",$E (X,1,30),D A)="" | |
11900 | "^DD",27.1 1,27.11,.0 2,1,1,2) | |
11901 | K ^DGEN(27 .11,"C",$E (X,1,30),D A) | |
11902 | "^DD",27.1 1,27.11,.0 2,1,1,"%D" ,0) | |
11903 | ^^1^1^2970 612^ | |
11904 | "^DD",27.1 1,27.11,.0 2,1,1,"%D" ,1,0) | |
11905 | This cross -reference allows lo ok-up by p atient. | |
11906 | "^DD",27.1 1,27.11,.0 2,1,1,"DT" ) | |
11907 | 2970612 | |
11908 | "^DD",27.1 1,27.11,.0 2,3) | |
11909 | Enter the patient to enroll. | |
11910 | "^DD",27.1 1,27.11,.0 2,21,0) | |
11911 | ^^1^1^2970 519^^ | |
11912 | "^DD",27.1 1,27.11,.0 2,21,1,0) | |
11913 | The patien t associat ed with th e enrollme nt. | |
11914 | "^DD",27.1 1,27.11,.0 2,"DT") | |
11915 | 3180202 | |
11916 | "^DD",27.1 1,27.11,.0 4,0) | |
11917 | ENROLLMENT STATUS^RP 27.15'IX^D GEN(27.15, ^0;4^Q | |
11918 | "^DD",27.1 1,27.11,.0 4,1,0) | |
11919 | ^.1 | |
11920 | "^DD",27.1 1,27.11,.0 4,1,1,0) | |
11921 | 27.11^AENR C^MUMPS | |
11922 | "^DD",27.1 1,27.11,.0 4,1,1,1) | |
11923 | D SET2^DGE NDD(DA,X) | |
11924 | "^DD",27.1 1,27.11,.0 4,1,1,2) | |
11925 | D KILL2^DG ENDD(DA,X) | |
11926 | "^DD",27.1 1,27.11,.0 4,1,1,3) | |
11927 | DO NOT DEL ETE | |
11928 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,0) | |
11929 | ^.101^7^7^ 3180202^^^ ^ | |
11930 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,1,0) | |
11931 | This index sorts the patients by their c urrent enr ollment st atus. | |
11932 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,2,0) | |
11933 | The CURREN T ENROLLME NT field o f the PATI ENT file a lso trigge rs this | |
11934 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,3,0) | |
11935 | cross-refe rence. | |
11936 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,4,0) | |
11937 | ||
11938 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,5,0) | |
11939 | The format of the in dex is: | |
11940 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,6,0) | |
11941 | ||
11942 | "^DD",27.1 1,27.11,.0 4,1,1,"%D" ,7,0) | |
11943 | ^DPT("AENR C",<curren t enrollme nt status> ,<DFN>)="" | |
11944 | "^DD",27.1 1,27.11,.0 4,1,1,"DT" ) | |
11945 | 2970619 | |
11946 | "^DD",27.1 1,27.11,.0 4,1,2,0) | |
11947 | 27.11^AC^M UMPS | |
11948 | "^DD",27.1 1,27.11,.0 4,1,2,1) | |
11949 | D SETREM^D GENDD(DA,X ) | |
11950 | "^DD",27.1 1,27.11,.0 4,1,2,2) | |
11951 | D SETREM^D GENDD(DA,X ) | |
11952 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,0) | |
11953 | ^.101^6^6^ 3030226^^ | |
11954 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,1,0) | |
11955 | This cross -reference calls an API that w ill update the Remar ks field # .091 | |
11956 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,2,0) | |
11957 | of the Pat ient file #2 dependi ng on the value of t he enrollm ent status . | |
11958 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,3,0) | |
11959 | If the enr ollment st atus conta ins the wo rd REJECTE D, then th e Remarks | |
11960 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,4,0) | |
11961 | field will be update d with the message * *REJECTED* *. If the enrollmen t | |
11962 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,5,0) | |
11963 | status is not a Reje cted statu s then the message * *REJECTED* * will be | |
11964 | "^DD",27.1 1,27.11,.0 4,1,2,"%D" ,6,0) | |
11965 | removed fr om the Rem arks field . | |
11966 | "^DD",27.1 1,27.11,.0 4,1,2,"DT" ) | |
11967 | 3030225 | |
11968 | "^DD",27.1 1,27.11,.0 4,1,3,0) | |
11969 | 27.11^AENR 04^MUMPS | |
11970 | "^DD",27.1 1,27.11,.0 4,1,3,1) | |
11971 | D E2711^DG RTRIG(DA) | |
11972 | "^DD",27.1 1,27.11,.0 4,1,3,2) | |
11973 | D E2711^DG RTRIG(DA) | |
11974 | "^DD",27.1 1,27.11,.0 4,1,3,3) | |
11975 | DO NOT DE LETE | |
11976 | "^DD",27.1 1,27.11,.0 4,1,3,"%D" ,0) | |
11977 | ^.101^2^2^ 3050913^^^ ^ | |
11978 | "^DD",27.1 1,27.11,.0 4,1,3,"%D" ,1,0) | |
11979 | This cross -reference is used t o notify H EC of chan ges that m ay affect | |
11980 | "^DD",27.1 1,27.11,.0 4,1,3,"%D" ,2,0) | |
11981 | enrollment . | |
11982 | "^DD",27.1 1,27.11,.0 4,1,3,"DT" ) | |
11983 | 3050913 | |
11984 | "^DD",27.1 1,27.11,.0 4,3) | |
11985 | Enter the status of the applic ation for enrollment . | |
11986 | "^DD",27.1 1,27.11,.0 4,21,0) | |
11987 | ^^1^1^2990 507^^^^ | |
11988 | "^DD",27.1 1,27.11,.0 4,21,1,0) | |
11989 | The status of an app lication f or enrollm ent. | |
11990 | "^DD",27.1 1,27.11,.0 4,"DT") | |
11991 | 3180202 | |
11992 | "^DD",38.1 ,38.1,2,0) | |
11993 | SECURITY L EVEL^RSX^0 :NON-SENSI TIVE;1:SEN SITIVE;^0; 2^Q | |
11994 | "^DD",38.1 ,38.1,2,1, 0) | |
11995 | ^.1 | |
11996 | "^DD",38.1 ,38.1,2,1, 1,0) | |
11997 | 38.1^ABUL^ MUMPS | |
11998 | "^DD",38.1 ,38.1,2,1, 1,1) | |
11999 | Q | |
12000 | "^DD",38.1 ,38.1,2,1, 1,2) | |
12001 | I +X,'+$P( ^DGSL(38.1 ,DA,0),U,2 ) D BULTIN ^DGSEC1 | |
12002 | "^DD",38.1 ,38.1,2,1, 2,0) | |
12003 | 38.1^ANS^M UMPS | |
12004 | "^DD",38.1 ,38.1,2,1, 2,1) | |
12005 | I '+$P(^DG SL(38.1,DA ,0),U,2) S ^DGSL(38. 1,"ANS",DA )="" | |
12006 | "^DD",38.1 ,38.1,2,1, 2,2) | |
12007 | K ^DGSL(38 .1,"ANS",D A) | |
12008 | "^DD",38.1 ,38.1,2,1, 3,0) | |
12009 | 38.1^AE^MU MPS | |
12010 | "^DD",38.1 ,38.1,2,1, 3,1) | |
12011 | D TRIGSEN^ DGMXORU(DA ,X) | |
12012 | "^DD",38.1 ,38.1,2,1, 3,2) | |
12013 | D TRIGSEN^ DGMXORU(DA ,X) | |
12014 | "^DD",38.1 ,38.1,2,1, 3,"%D",0) | |
12015 | ^.101^2^2^ 3171204^^^ ^ | |
12016 | "^DD",38.1 ,38.1,2,1, 3,"%D",1,0 ) | |
12017 | This cross -reference sends an HL7 messag e from Vis tA to MASS Epic when a | |
12018 | "^DD",38.1 ,38.1,2,1, 3,"%D",2,0 ) | |
12019 | patient is entered o r deleted in this fi le. | |
12020 | "^DD",38.1 ,38.1,2,1, 3,"DT") | |
12021 | 3171204 | |
12022 | "^DD",38.1 ,38.1,2,3) | |
12023 | Is this pa tient reco rd conside red SENSIT IVE? | |
12024 | "^DD",38.1 ,38.1,2,21 ,0) | |
12025 | ^^2^2^2911 222^ | |
12026 | "^DD",38.1 ,38.1,2,21 ,1,0) | |
12027 | This field contains a 1 if the patient r ecord is p resently l isted as | |
12028 | "^DD",38.1 ,38.1,2,21 ,2,0) | |
12029 | sensitive or a 0 if the patien t's record is not cu rrently se nsitive. | |
12030 | "^DD",38.1 ,38.1,2,"D T") | |
12031 | 3171204 | |
12032 | "^DD",41.4 1,41.41,1, 0) | |
12033 | DATE CHANG ED^RD^^0;2 ^S %DT="ET X" D ^%DT S X=Y K:Y< 1 X | |
12034 | "^DD",41.4 1,41.41,1, 1,0) | |
12035 | ^.1 | |
12036 | "^DD",41.4 1,41.41,1, 1,1,0) | |
12037 | 41.41^ADC1 ^MUMPS | |
12038 | "^DD",41.4 1,41.41,1, 1,1,1) | |
12039 | N DG2 S DG 2=$P($G(^D GS(41.41,D A,0)),"^") I DG2 S ^ DGS(41.41, "ADC",DG2, X,DA)="" | |
12040 | "^DD",41.4 1,41.41,1, 1,1,2) | |
12041 | N DG2 S DG 2=$P($G(^D GS(41.41,D A,0)),"^") I DG2 K ^ DGS(41.41, "ADC",DG2, X,DA) | |
12042 | "^DD",41.4 1,41.41,1, 1,1,"%D",0 ) | |
12043 | ^^1^1^2961 216^^ | |
12044 | "^DD",41.4 1,41.41,1, 1,1,"%D",1 ,0) | |
12045 | Cross-refe rence by p atient and date | |
12046 | "^DD",41.4 1,41.41,1, 1,1,"DT") | |
12047 | 2961216 | |
12048 | "^DD",41.4 1,41.41,1, 1,2,0) | |
12049 | 41.41^AC^M UMPS | |
12050 | "^DD",41.4 1,41.41,1, 1,2,1) | |
12051 | D TRIGVER^ DGMXORU(DA ) | |
12052 | "^DD",41.4 1,41.41,1, 1,2,2) | |
12053 | Q | |
12054 | "^DD",41.4 1,41.41,1, 1,2,"%D",0 ) | |
12055 | ^.101^2^2^ 3171204^^ | |
12056 | "^DD",41.4 1,41.41,1, 1,2,"%D",1 ,0) | |
12057 | This cross -reference sends an HL7 messag e from Vis tA to MASS Epic when a | |
12058 | "^DD",41.4 1,41.41,1, 1,2,"%D",2 ,0) | |
12059 | verificati on date is entered f or a patie nt. | |
12060 | "^DD",41.4 1,41.41,1, 1,2,"DT") | |
12061 | 3171101 | |
12062 | "^DD",41.4 1,41.41,1, 3) | |
12063 | Enter date and time registrati on data wa s changed. | |
12064 | "^DD",41.4 1,41.41,1, 21,0) | |
12065 | ^^5^5^2970 212^^^ | |
12066 | "^DD",41.4 1,41.41,1, 21,1,0) | |
12067 | This is th e date and time the patient fi le registr ation info rmation wa s | |
12068 | "^DD",41.4 1,41.41,1, 21,2,0) | |
12069 | changed as a result of the pre -registrat ion proces s. After editing a | |
12070 | "^DD",41.4 1,41.41,1, 21,3,0) | |
12071 | patients d emographic data, the user will be asked if they wa nt to | |
12072 | "^DD",41.4 1,41.41,1, 21,4,0) | |
12073 | Date/Stamp the pre-r egistratio n. If the y answer ' Yes', this field wil l be | |
12074 | "^DD",41.4 1,41.41,1, 21,5,0) | |
12075 | completed. If they answer 'No ', no entr y will be made in th is file. | |
12076 | "^DD",41.4 1,41.41,1, "DT") | |
12077 | 3171101 | |
12078 | "^DD",391. 71,391.71, .11,0) | |
12079 | ENTRY WAS CREATED BY MASS EPIC ^S^0:NO;1: YES;^0;11^ Q | |
12080 | "^DD",391. 71,391.71, .11,3) | |
12081 | Enter 'Yes ' if this entry was created by the MASS Epic appli cation | |
12082 | "^DD",391. 71,391.71, .11,21,0) | |
12083 | ^.001^2^2^ 3180103^^ | |
12084 | "^DD",391. 71,391.71, .11,21,1,0 ) | |
12085 | This field is a flag to determ ine whethe r an HL7 m essage sho uld only b e | |
12086 | "^DD",391. 71,391.71, .11,21,2,0 ) | |
12087 | sent to Ep ic, not MV I. | |
12088 | "^DD",391. 71,391.71, .11,"DT") | |
12089 | 3180104 | |
12090 | $END KID D G*5.3*948 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.