4. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 2/14/2018 10:18:26 AM Eastern Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

4.1 Files compared

#	Location	File	Last Modified
1	FileMan DI_22.2_10.zip\FileMan DI_22.2_10	DI_222_10T3.KID	Tue Feb 13 20:20:56 2018 UTC
2	FileMan DI_22.2_10.zip\FileMan DI_22.2_10	DI_222_10T3.KID	Wed Feb 14 14:56:27 2018 UTC

4.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	3	5260
Changed	2	4
Inserted	1	12
Removed	0	0

4.3 Comparison options

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

4.4 Active regular expressions

No regular expressions were active.

4.5 Comparison detail

1	KIDS Distr ibution sa ved on Oct 19, 2017@ 08:32:04
2	DI22.210 TEST v3
3	KIDS:D I22.210^
4
5	INSTALL NAME
6	DI22.210
7	"BLD",1613 ,0)
8	DI22.210 ^VA FILEMA N^0^317101 9^y
9	"BLD",1613 ,1,0)
10	^^276^276^ 3171017^^^ ^
11	"BLD",1613 ,1,1,0)
12	Descriptio n:
13	"BLD",1613 ,1,2,0)
14	Patch DI2 2.210 rep airs the f ollowing d efects:
15	"BLD",1613 ,1,3,0)
16	1. DI WP only su pports str ings up to 999 chara cters
17	"BLD",1613 ,1,4,0)
18	2. NU MDATE fix in patch 7 was not a dded to DI NIT
19	"BLD",1613 ,1,5,0)
20	3. %D T doesn't return err or for inc orrect tim e
21	"BLD",1613 ,1,6,0)
22	4. Th e variable DO is not killed af ter call t o DIE
23	"BLD",1613 ,1,7,0)
24	5. Ne w api EN^D ITP for re pointing d eleted rec ords
25	"BLD",1613 ,1,8,0)
26	6. Ne w options for editin g Data Typ es in patc h 2 have n o parent
27	"BLD",1613 ,1,9,0)
28	7. Ne w API CHKP T^DIUTL(fi le, ien, m essage)
29	"BLD",1613 ,1,10,0)
30
31	"BLD",1613 ,1,11,0)
32
33	"BLD",1613 ,1,12,0)
34	Patch Com ponents:
35	"BLD",1613 ,1,13,0)
36	--------- --------
37	"BLD",1613 ,1,14,0)
38	Files & F ields Asso ciated:
39	"BLD",1613 ,1,15,0)
40	New/Modi fied/
41	"BLD",1613 ,1,16,0)
42	File Name (#) Field Na me (#) Deleted
43	"BLD",1613 ,1,17,0)
44	--------- ---- -------- ------ -------- -----
45	"BLD",1613 ,1,18,0)
46	N/A
47	"BLD",1613 ,1,19,0)
48
49	"BLD",1613 ,1,20,0)
50	Forms Ass ociated:
51	"BLD",1613 ,1,21,0)
52
53	"BLD",1613 ,1,22,0)
54	Form Name File # New/Modi fied/Delet ed
55	"BLD",1613 ,1,23,0)
56	--------- ------ -------- ---------- --
57	"BLD",1613 ,1,24,0)
58	N/A
59	"BLD",1613 ,1,25,0)
60
61	"BLD",1613 ,1,26,0)
62	Mail Grou ps Associa ted:
63	"BLD",1613 ,1,27,0)
64
65	"BLD",1613 ,1,28,0)
66	Mail Grou p Name New/ Modified/D eleted
67	"BLD",1613 ,1,29,0)
68	--------- ------ ---- ---------- ------
69	"BLD",1613 ,1,30,0)
70	N/A
71	"BLD",1613 ,1,31,0)
72
73	"BLD",1613 ,1,32,0)
74	Options A ssociated:
75	"BLD",1613 ,1,33,0)
76
77	"BLD",1613 ,1,34,0)
78	Option Na me Type New/Modif ied/Delete d
79	"BLD",1613 ,1,35,0)
80	--------- -- ---- --------- ---------- -
81	"BLD",1613 ,1,36,0)
82	DI DATA T YPE OPTION S Menu Deleted
83	"BLD",1613 ,1,37,0)
84	DI DATA T YPE FILE Run Rout ine Deleted
85	"BLD",1613 ,1,38,0)
86	DI DATA T YPE METHOD FILE Run Rout ine Deleted
87	"BLD",1613 ,1,39,0)
88	DI DATA T YPE PROPER TY FILE Run Rout ine Deleted
89	"BLD",1613 ,1,40,0)
90
91	"BLD",1613 ,1,41,0)
92
93	"BLD",1613 ,1,42,0)
94	Protocols Associate d:
95	"BLD",1613 ,1,43,0)
96
97	"BLD",1613 ,1,44,0)
98	Protocol Name New/Modif ied/Delete d
99	"BLD",1613 ,1,45,0)
100	--------- ---- --------- ---------- -
101	"BLD",1613 ,1,46,0)
102	N/A
103	"BLD",1613 ,1,47,0)
104
105	"BLD",1613 ,1,48,0)
106	Security Keys Assoc iated:
107	"BLD",1613 ,1,49,0)
108
109	"BLD",1613 ,1,50,0)
110	Security Key Name
111	"BLD",1613 ,1,51,0)
112	--------- --------
113	"BLD",1613 ,1,52,0)
114	N/A
115	"BLD",1613 ,1,53,0)
116
117	"BLD",1613 ,1,54,0)
118	Templates Associate d:
119	"BLD",1613 ,1,55,0)
120
121	"BLD",1613 ,1,56,0)
122	Template Name Typ e Fil e Name (Numbe r) New/Mo dified/Del eted
123	"BLD",1613 ,1,57,0)
124	--------- ---- --- - --- ---------- ---------- -- ------ ---------- ----
125	"BLD",1613 ,1,58,0)
126	N/A
127	"BLD",1613 ,1,59,0)
128
129	"BLD",1613 ,1,60,0)
130	Additiona l Informat ion:
131	"BLD",1613 ,1,61,0)
132	--------- ---------- ----
133	"BLD",1613 ,1,62,0)
134	N/A
135	"BLD",1613 ,1,63,0)
136
137	"BLD",1613 ,1,64,0)
138	New Servi ce Request s (NSRs):
139	"BLD",1613 ,1,65,0)
140	--------- ---------- ---------
141	"BLD",1613 ,1,66,0)
142	N/A
143	"BLD",1613 ,1,67,0)
144
145	"BLD",1613 ,1,68,0)
146	Patient S afety Issu es (PSIs):
147	"BLD",1613 ,1,69,0)
148	--------- ---------- ----------
149	"BLD",1613 ,1,70,0)
150	N/A
151	"BLD",1613 ,1,71,0)
152
153	"BLD",1613 ,1,72,0)
154	Defect Tr acking Sys tem Ticket (s) & Over view:
155	"BLD",1613 ,1,73,0)
156	--------- ---------- ---------- ---------- -----
157	"BLD",1613 ,1,74,0)
158
159	"BLD",1613 ,1,75,0)
160	1. Ticket I13413576 FY17
161	"BLD",1613 ,1,76,0)
162	Problem:
163	"BLD",1613 ,1,77,0)
164	--------
165	"BLD",1613 ,1,78,0)
166	Word Proc essing can not parse a string g reater tha n 999 and the FM 22. 2
167	"BLD",1613 ,1,79,0)
168	allows st rings up t o 4K chara cters.
169	"BLD",1613 ,1,80,0)
170
171	"BLD",1613 ,1,81,0)
172	Resolutio n:
173	"BLD",1613 ,1,82,0)
174	--------- -
175	"BLD",1613 ,1,83,0)
176	Modified DIWP and c hanged 999 to 9999
177	"BLD",1613 ,1,84,0)
178
179	"BLD",1613 ,1,85,0)
180	2. Ticket I15917948 FY17
181	"BLD",1613 ,1,86,0)
182	Problem:
183	"BLD",1613 ,1,87,0)
184	--------
185	"BLD",1613 ,1,88,0)
186	Patch DI* 22.2*7 fix ed NUMDATE function in FUNCTIO N file #.5 , but DINI T
187	"BLD",1613 ,1,89,0)
188	restore t he old fun ction.
189	"BLD",1613 ,1,90,0)
190
191	"BLD",1613 ,1,91,0)
192	Resolutio n:
193	"BLD",1613 ,1,92,0)
194	--------- -
195	"BLD",1613 ,1,93,0)
196	Modified DINIT4 and added fix to NUMDAT E
197	"BLD",1613 ,1,94,0)
198
199	"BLD",1613 ,1,95,0)
200	3. Ticket I10027710 FY16
201	"BLD",1613 ,1,96,0)
202	Problem:
203	"BLD",1613 ,1,97,0)
204	--------
205	"BLD",1613 ,1,98,0)
206	%DT doesn 't return an error f or incorre ct time wh en time is required.
207	"BLD",1613 ,1,99,0)
208	%DT="XTSR " and X=31 60707.8
209	"BLD",1613 ,1,100,0)
210
211	"BLD",1613 ,1,101,0)
212	Resolutio n:
213	"BLD",1613 ,1,102,0)
214	--------- -
215	"BLD",1613 ,1,103,0)
216	Modified DIDT to no w return a n error
217	"BLD",1613 ,1,104,0)
218
219	"BLD",1613 ,1,105,0)
220	4. Ticket I16009474 FY17
221	"BLD",1613 ,1,106,0)
222	Problem:
223	"BLD",1613 ,1,107,0)
224	--------
225	"BLD",1613 ,1,108,0)
226	The varia ble DO is not killed after a c all to DIE if a user asked for
227	"BLD",1613 ,1,109,0)
228	help in a multiple Date field .
229	"BLD",1613 ,1,110,0)
230
231	"BLD",1613 ,1,111,0)
232	Resolutio n:
233	"BLD",1613 ,1,112,0)
234	--------- -
235	"BLD",1613 ,1,113,0)
236	Modified DIEQ and a dded DO to kill stat ement at l ine Q
237	"BLD",1613 ,1,114,0)
238
239	"BLD",1613 ,1,115,0)
240	5. Ticket R13102022 FY17
241	"BLD",1613 ,1,116,0)
242	Problem:
243	"BLD",1613 ,1,117,0)
244	--------
245	"BLD",1613 ,1,118,0)
246	Need API to repoint a deleted value in a record, similar to what happ ens
247	"BLD",1613 ,1,119,0)
248	when a po inter fiel d value is deleted.
249	"BLD",1613 ,1,120,0)
250
251	"BLD",1613 ,1,121,0)
252	Resolutio n:
253	"BLD",1613 ,1,122,0)
254	--------- -
255	"BLD",1613 ,1,123,0)
256	Modified DITP and a dded tag E N(file, li st) where file=file number, li st=
257	"BLD",1613 ,1,124,0)
258	array con taining li st of entr ies to be repointed (Passed by Reference ).
259	"BLD",1613 ,1,125,0)
260
261	"BLD",1613 ,1,126,0)
262	6. Ticket R14175506 FY17
263	"BLD",1613 ,1,127,0)
264	Problem:
265	"BLD",1613 ,1,128,0)
266	--------
267	"BLD",1613 ,1,129,0)
268	New optio ns that we re for add ing new da ta types a nd release d as part of
269	"BLD",1613 ,1,130,0)
270	patch DI* 22.2*2 had no parent menu. Th ese option were not meant for
271	"BLD",1613 ,1,131,0)
272	general d istributio n. The op tions are: DI DATA T YPE OPTION S, DI DATA
273	"BLD",1613 ,1,132,0)
274	TYPE FILE , DI DATA TYPE METHO D FILE, an d DI DATA TYPE PROPE RTY FILE.
275	"BLD",1613 ,1,133,0)
276
277	"BLD",1613 ,1,134,0)
278	Resolutio n:
279	"BLD",1613 ,1,135,0)
280	--------- -
281	"BLD",1613 ,1,136,0)
282	All four options wi ll be dele ted from t he OPTION file and a dded to th e
283	"BLD",1613 ,1,137,0)
284	hard code d options in the DII routine. Modified DII1 and D IFMEDT1
285	"BLD",1613 ,1,138,0)
286	routines.
287	"BLD",1613 ,1,139,0)
288
289	"BLD",1613 ,1,140,0)
290	7. No tic ket
291	"BLD",1613 ,1,141,0)
292	Problem:
293	"BLD",1613 ,1,142,0)
294	--------
295	"BLD",1613 ,1,143,0)
296	Developer needs API to check what entri es points to a parti cular reco rd
297	"BLD",1613 ,1,144,0)
298	in a file .
299	"BLD",1613 ,1,145,0)
300
301	"BLD",1613 ,1,146,0)
302	Resolutio n:
303	"BLD",1613 ,1,147,0)
304	--------- -
305	"BLD",1613 ,1,148,0)
306	CHKPT^DIU TL(file, i en, messag e).
307	"BLD",1613 ,1,149,0)
308	;INPUT: D IFILE=file number, D A=ien of r ecord, DIM SG=closed global roo t or
309	"BLD",1613 ,1,150,0)
310	local ar ray
311	"BLD",1613 ,1,151,0)
312	;OUTPUT: DIMSG(0)=l ine count, DISMG(#)= "Entry ien in FILE ( file #)
313	"BLD",1613 ,1,152,0)
314	refers t o record D A"
315	"BLD",1613 ,1,153,0)
316
317	"BLD",1613 ,1,154,0)
318
319	"BLD",1613 ,1,155,0)
320	Blood Ban k Clearanc e:
321	"BLD",1613 ,1,156,0)
322	--------- ---------- --
323	"BLD",1613 ,1,157,0)
324	EFFECT ON BLOOD BAN K FUNCTION AL REQUIRE MENTS: Pat ch DI22.2 10 contai ns
325	"BLD",1613 ,1,158,0)
326	changes t o a packag e referenc ed in ProP ath standa rd titled: BBM Team
327	"BLD",1613 ,1,159,0)
328	Review of VistA Pat ches. This patch doe s not alte r or modif y any Vist A
329	"BLD",1613 ,1,160,0)
330	Blood Ban k software design sa feguards o r safety c ritical el ements
331	"BLD",1613 ,1,161,0)
332	functions .
333	"BLD",1613 ,1,162,0)
334
335	"BLD",1613 ,1,163,0)
336	RISK ANAL YSIS: Chan ges made b y patch DI 22.210 h ave no eff ect on Blo od
337	"BLD",1613 ,1,164,0)
338	Bank soft ware funct ionality, therefore RISK is no ne.
339	"BLD",1613 ,1,165,0)
340
341	"BLD",1613 ,1,166,0)
342
343	"BLD",1613 ,1,167,0)
344	Test Site s:
345	"BLD",1613 ,1,168,0)
346	--------- --
347	"BLD",1613 ,1,169,0)
348
349	"BLD",1613 ,1,170,0)
350
351	"BLD",1613 ,1,171,0)
352
353	"BLD",1613 ,1,172,0)
354	Software and Docume ntation Re trieval In structions :
355	"BLD",1613 ,1,173,0)
356	--------- ---------- ---------- ---------- ---------- -
357	"BLD",1613 ,1,174,0)
358	Documenta tion descr ibing the new api, E N^DITP, ca n be found in the
359	"BLD",1613 ,1,175,0)
360	FM 22.2 D eveloper's Guide
361	"BLD",1613 ,1,176,0)
362
363	"BLD",1613 ,1,177,0)
364	Current d ocumentati on is on t he VA Soft ware Docum entation L ibrary
365	"BLD",1613 ,1,178,0)
366	at: http: // DNS . URL /
367	"BLD",1613 ,1,179,0)
368
369	"BLD",1613 ,1,180,0)
370	Title Fi le Name SFT P Mode
371	"BLD",1613 ,1,181,0)
372	--------- ---------- ---------- ---------- ---------- ---------- ------
373	"BLD",1613 ,1,182,0)
374	FM 22.2 D eveloper's Guide fm22_2dg.P DF Bina ry
375	"BLD",1613 ,1,183,0)
376	FM 22.2 U ser Manual fm22_2um1. PDF Bina ry
377	"BLD",1613 ,1,184,0)
378	FM 22.2 A dvanced Us er Manual fm22_2um2. PDF Bina ry
379	"BLD",1613 ,1,185,0)
380	FM 22.2 T echnical M anual fm22_2tm.P DF Bina ry
381	"BLD",1613 ,1,186,0)
382
383	"BLD",1613 ,1,187,0)
384
385	"BLD",1613 ,1,188,0)
386	Backout a nd Rollbac k Procedur e:
387	"BLD",1613 ,1,189,0)
388	--------- ---------- ---------- --
389	"BLD",1613 ,1,190,0)
390	This patc h only con sists of r outines. D uring the VistA Inst allation
391	"BLD",1613 ,1,191,0)
392	Procedure of the KI DS build, the instal ler should back up t he modifie d
393	"BLD",1613 ,1,192,0)
394	routines by the use of the 'B ackup a Tr ansport Gl obal' acti on
395	"BLD",1613 ,1,193,0)
396	(step 3a in the Ins tallations Instructi ons below) .
397	"BLD",1613 ,1,194,0)
398
399	"BLD",1613 ,1,195,0)
400	If rollba ck/backout is requir ed, the in staller ca n restore the routin es
401	"BLD",1613 ,1,196,0)
402	using the MailMan m essage tha t were sav ed prior t o installi ng the
403	"BLD",1613 ,1,197,0)
404	patch.
405	"BLD",1613 ,1,198,0)
406
407	"BLD",1613 ,1,199,0)
408
409	"BLD",1613 ,1,200,0)
410	Patch Ins tallation:
411	"BLD",1613 ,1,201,0)
412
413	"BLD",1613 ,1,202,0)
414	Pre-Insta llation In structions :
415	"BLD",1613 ,1,203,0)
416	--------- ---------- ---------- -
417	"BLD",1613 ,1,204,0)
418	This patc h can be q ueued for installati on. TaskM an does no t have to be
419	"BLD",1613 ,1,205,0)
420	stopped, HL7 filers do not ne ed to be s topped, an d users ma y be on th e
421	"BLD",1613 ,1,206,0)
422	system. The patch should be installed during non -peak hour s to minim ize
423	"BLD",1613 ,1,207,0)
424	potential for disru ption to u sers. Thi s patch sh ould take less than 1
425	"BLD",1613 ,1,208,0)
426	minute to install.
427	"BLD",1613 ,1,209,0)
428
429	"BLD",1613 ,1,210,0)
430
431	"BLD",1613 ,1,211,0)
432	Installat ion Instru ctions:
433	"BLD",1613 ,1,212,0)
434	--------- ---------- -------
435	"BLD",1613 ,1,213,0)
436	1. Choos e the Mail Man messag e containi ng this pa tch.
437	"BLD",1613 ,1,214,0)
438
439	"BLD",1613 ,1,215,0)
440	2. Choos e the INST ALL/CHECK MESSAGE Pa ckMan opti on.
441	"BLD",1613 ,1,216,0)
442
443	"BLD",1613 ,1,217,0)
444	3. From the Kernel Installat ion and Di stribution System Me nu, select
445	"BLD",1613 ,1,218,0)
446	the I nstallatio n Menu. F rom this m enu, you m ay elect t o use the
447	"BLD",1613 ,1,219,0)
448	follo wing optio ns. When p rompted fo r the INST ALL NAME e nter
449	"BLD",1613 ,1,220,0)
450	DI22.21 0.
451	"BLD",1613 ,1,221,0)
452	a. Pr int Transp ort Global - This op tion lets you print the conten ts
453	"BLD",1613 ,1,222,0)
454	o f a Transp ort Global that is c urrently l oaded in t he ^XTMP
455	"BLD",1613 ,1,223,0)
456	g lobal.
457	"BLD",1613 ,1,224,0)
458	b. Ba ckup a Tra nsport Glo bal - This option wi ll create a backup
459	"BLD",1613 ,1,225,0)
460	m essage of any routin es exporte d with thi s patch. I t will not
461	"BLD",1613 ,1,226,0)
462	b ackup any other chan ges such a s function s.
463	"BLD",1613 ,1,227,0)
464	c. Co mpare Tran sport Glob al to Curr ent System - This op tion will
465	"BLD",1613 ,1,228,0)
466	a llow you t o view all changes t hat will b e made whe n this pat ch
467	"BLD",1613 ,1,229,0)
468	i s installe d. It com pares all components of this p atch
469	"BLD",1613 ,1,230,0)
470	( routines, DDs, templ ates, etc. ).
471	"BLD",1613 ,1,231,0)
472	d. Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow
473	"BLD",1613 ,1,232,0)
474	y ou to ensu re the int egrity of the routin es that ar e in the
475	"BLD",1613 ,1,233,0)
476	t ransport g lobal.
477	"BLD",1613 ,1,234,0)
478
479	"BLD",1613 ,1,235,0)
480	4. From the Instal lation Men u, select the Instal l Package( s) option and
481	"BLD",1613 ,1,236,0)
482	When prompted f or the INS TALL NAME, enter DI* 22.2*10.
483	"BLD",1613 ,1,237,0)
484
485	"BLD",1613 ,1,238,0)
486	5. If pr ompted 'Wa nt KIDS to Rebuild M enu Trees Upon Compl etion of
487	"BLD",1613 ,1,239,0)
488	Insta ll? NO//' respond NO .
489	"BLD",1613 ,1,240,0)
490
491	"BLD",1613 ,1,241,0)
492	7. When prompted " Want KIDS to INHIBIT LOGONs du ring the i nstall?
493	"BLD",1613 ,1,242,0)
494	NO//" respond N O.
495	"BLD",1613 ,1,243,0)
496
497	"BLD",1613 ,1,244,0)
498	8. If pr ompted "Wa nt to DISA BLE Schedu led Option s, Menu Op tions,
499	"BLD",1613 ,1,245,0)
500	and P rotocols? NO//" resp ond NO.
501	"BLD",1613 ,1,246,0)
502
503	"BLD",1613 ,1,247,0)
504	9. If pr ompted "De lay Instal l (Minutes ): (0 - 6 0): 0//" r espond 0.
505	"BLD",1613 ,1,248,0)
506
507	"BLD",1613 ,1,249,0)
508
509	"BLD",1613 ,1,250,0)
510	Post-Inst allation I nstruction s:
511	"BLD",1613 ,1,251,0)
512	--------- ---------- ---------- --
513	"BLD",1613 ,1,252,0)
514	NA
515	"BLD",1613 ,1,253,0)
516	Routine In formation:
517	"BLD",1613 ,1,254,0)
518	========== ==========
519	"BLD",1613 ,1,255,0)
520	The second line of e ach of the se routine s now look s like:
521	"BLD",1613 ,1,256,0)
522	;;22.2;VA FileMan;* [Patch Li st]*;Jan 05, 2016;B uild 5
523	"BLD",1613 ,1,257,0)
524	The checks ums below are new ch ecksums, a nd
525	"BLD",1613 ,1,258,0)
526	can be ch ecked with CHECK1^XT SUMBLD.
527	"BLD",1613 ,1,259,0)
528	Routine Na me: DIDT
529	"BLD",1613 ,1,260,0)
530	Before : B2574673 3 After: B26128991 10
531	"BLD",1613 ,1,261,0)
532	Routine Na me: DIEQ
533	"BLD",1613 ,1,262,0)
534	Before : B1690440 4 After: B16948298 2,7,5, 10
535	"BLD",1613 ,1,263,0)
536	Routine Na me: DIFMED T1
537	"BLD",1613 ,1,264,0)
538	Before : B166568 0 After: B3205089 2,10
539	"BLD",1613 ,1,265,0)
540	Routine Na me: DII1
541	"BLD",1613 ,1,266,0)
542	Before : B210584 1 After: B2240976 8,10
543	"BLD",1613 ,1,267,0)
544	Routine Na me: DINIT4
545	"BLD",1613 ,1,268,0)
546	Before : B1281216 8 After: B12872917 10
547	"BLD",1613 ,1,269,0)
548	Routine Na me: DITP
549	"BLD",1613 ,1,270,0)
550	Before : B1175502 7 After: B18223422 10
551	"BLD",1613 ,1,271,0)
552	Routine Na me: DIUTL
553	"BLD",1613 ,1,272,0)
554	Before : B708261 9 After: B13688793 10
555	"BLD",1613 ,1,273,0)
556	Routine Na me: DIWP
557	"BLD",1613 ,1,274,0)
558	Before : B1405738 8 After: B14095198 10
559	"BLD",1613 ,1,275,0)
560
561	"BLD",1613 ,1,276,0)
562	Routine li st of prec eding patc hes: 5, 8
563	"BLD",1613 ,4,0)
564	^9.64PA^^
565	"BLD",1613 ,6)
566	2^
567	"BLD",1613 ,6.3)
568	13
569	"BLD",1613 ,"KRN",0)
570	^9.67PA^1. 5^24
571	"BLD",1613 ,"KRN",.4, 0)
572	.4
573	"BLD",1613 ,"KRN",.40 1,0)
574	.401
575	"BLD",1613 ,"KRN",.40 2,0)
576	.402
577	"BLD",1613 ,"KRN",.40 3,0)
578	.403
579	"BLD",1613 ,"KRN",.5, 0)
580	.5
581	"BLD",1613 ,"KRN",.84 ,0)
582	.84
583	"BLD",1613 ,"KRN",1.5 ,0)
584	1.5
585	"BLD",1613 ,"KRN",1.6 ,0)
586	1.6
587	"BLD",1613 ,"KRN",1.6 1,0)
588	1.61
589	"BLD",1613 ,"KRN",1.6 2,0)
590	1.62
591	"BLD",1613 ,"KRN",3.6 ,0)
592	3.6
593	"BLD",1613 ,"KRN",3.8 ,0)
594	3.8
595	"BLD",1613 ,"KRN",9.2 ,0)
596	9.2
597	"BLD",1613 ,"KRN",9.8 ,0)
598	9.8
599	"BLD",1613 ,"KRN",9.8 ,"NM",0)
600	^9.68A^8^8
601	"BLD",1613 ,"KRN",9.8 ,"NM",1,0)
602	DIEQ^^0^B1 6948298
603	"BLD",1613 ,"KRN",9.8 ,"NM",2,0)
604	DIDT^^0^B2 6128991
605	"BLD",1613 ,"KRN",9.8 ,"NM",3,0)
606	DITP^^0^B1 8223422
607	"BLD",1613 ,"KRN",9.8 ,"NM",4,0)
608	DIWP^^0^B1 4095198
609	"BLD",1613 ,"KRN",9.8 ,"NM",5,0)
610	DINIT4^^0^ B12872917
611	"BLD",1613 ,"KRN",9.8 ,"NM",6,0)
612	DII1^^0^B2 240976
613	"BLD",1613 ,"KRN",9.8 ,"NM",7,0)
614	DIFMEDT1^^ 0^B3205089
615	"BLD",1613 ,"KRN",9.8 ,"NM",8,0)
616	DIUTL^^0^B 13688793
617	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DIDT",2)
618
619	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DIEQ",1)
620
621	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DIFMEDT1" ,7)
622
623	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DII1",6)
624
625	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DINIT4",5 )
626
627	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DITP",3)
628
629	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DIUTL",8)
630
631	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DIWP",4)
632
633	"BLD",1613 ,"KRN",19, 0)
634	19
635	"BLD",1613 ,"KRN",19, "NM",0)
636	^9.68A^4^4
637	"BLD",1613 ,"KRN",19, "NM",1,0)
638	DI DATA TY PE FILE^^1 ^
639	"BLD",1613 ,"KRN",19, "NM",2,0)
640	DI DATA TY PE PROPERT Y FILE^^1^
641	"BLD",1613 ,"KRN",19, "NM",3,0)
642	DI DATA TY PE METHOD FILE^^1^
643	"BLD",1613 ,"KRN",19, "NM",4,0)
644	DI DATA TY PE OPTIONS ^^1^
645	"BLD",1613 ,"KRN",19, "NM","B"," DI DATA TY PE FILE",1 )
646
647	"BLD",1613 ,"KRN",19, "NM","B"," DI DATA TY PE METHOD FILE",3)
648
649	"BLD",1613 ,"KRN",19, "NM","B"," DI DATA TY PE OPTIONS ",4)
650
651	"BLD",1613 ,"KRN",19, "NM","B"," DI DATA TY PE PROPERT Y FILE",2)
652
653	"BLD",1613 ,"KRN",19. 1,0)
654	19.1
655	"BLD",1613 ,"KRN",101 ,0)
656	101
657	"BLD",1613 ,"KRN",409 .61,0)
658	409.61
659	"BLD",1613 ,"KRN",771 ,0)
660	771
661	"BLD",1613 ,"KRN",779 .2,0)
662	779.2
663	"BLD",1613 ,"KRN",870 ,0)
664	870
665	"BLD",1613 ,"KRN",898 9.51,0)
666	8989.51
667	"BLD",1613 ,"KRN",898 9.52,0)
668	8989.52
669	"BLD",1613 ,"KRN",899 4,0)
670	8994
671	"BLD",1613 ,"KRN","B" ,.4,.4)
672
673	"BLD",1613 ,"KRN","B" ,.401,.401 )
674
675	"BLD",1613 ,"KRN","B" ,.402,.402 )
676
677	"BLD",1613 ,"KRN","B" ,.403,.403 )
678
679	"BLD",1613 ,"KRN","B" ,.5,.5)
680
681	"BLD",1613 ,"KRN","B" ,.84,.84)
682
683	"BLD",1613 ,"KRN","B" ,1.5,1.5)
684
685	"BLD",1613 ,"KRN","B" ,1.6,1.6)
686
687	"BLD",1613 ,"KRN","B" ,1.61,1.61 )
688
689	"BLD",1613 ,"KRN","B" ,1.62,1.62 )
690
691	"BLD",1613 ,"KRN","B" ,3.6,3.6)
692
693	"BLD",1613 ,"KRN","B" ,3.8,3.8)
694
695	"BLD",1613 ,"KRN","B" ,9.2,9.2)
696
697	"BLD",1613 ,"KRN","B" ,9.8,9.8)
698
699	"BLD",1613 ,"KRN","B" ,19,19)
700
701	"BLD",1613 ,"KRN","B" ,19.1,19.1 )
702
703	"BLD",1613 ,"KRN","B" ,101,101)
704
705	"BLD",1613 ,"KRN","B" ,409.61,40 9.61)
706
707	"BLD",1613 ,"KRN","B" ,771,771)
708
709	"BLD",1613 ,"KRN","B" ,779.2,779 .2)
710
711	"BLD",1613 ,"KRN","B" ,870,870)
712
713	"BLD",1613 ,"KRN","B" ,8989.51,8 989.51)
714
715	"BLD",1613 ,"KRN","B" ,8989.52,8 989.52)
716
717	"BLD",1613 ,"KRN","B" ,8994,8994 )
718
719	"BLD",1613 ,"QDEF")
720	^^^^NO^^^^ NO^^NO
721	"BLD",1613 ,"QUES",0)
722	^9.62^^
723	"BLD",1613 ,"REQB",0)
724	^9.611^^
725	"KRN",19,1 760,-1)
726	1^1
727	"KRN",19,1 760,0)
728	DI DATA TY PE FILE
729	"KRN",19,1 761,-1)
730	1^2
731	"KRN",19,1 761,0)
732	DI DATA TY PE PROPERT Y FILE
733	"KRN",19,1 762,-1)
734	1^3
735	"KRN",19,1 762,0)
736	DI DATA TY PE METHOD FILE
737	"KRN",19,1 763,-1)
738	1^4
739	"KRN",19,1 763,0)
740	DI DATA TY PE OPTIONS
741	"MBREQ")
742	0
743	"ORD",18,1 9)
744	19;18;;;OP T^XPDTA;OP TF1^XPDIA; OPTE1^XPDI A;OPTF2^XP DIA;;OPTDE L^XPDIA
745	"ORD",18,1 9,0)
746	OPTION
747	"PKG",4,-1 )
748	1^1
749	"PKG",4,0)
750	VA FILEMAN ^DI^FM INI T^
751	"PKG",4,22 ,0)
752	^9.49I^1^1
753	"PKG",4,22 ,1,0)
754	22.2^31601 05^3170815 ^6
755	"PKG",4,22 ,1,"PAH",1 ,0)
756	10^3171019
757	"PKG",4,22 ,1,"PAH",1 ,1,0)
758	^^276^276^ 3171019
759	"PKG",4,22 ,1,"PAH",1 ,1,1,0)
760	Descriptio n:
761	"PKG",4,22 ,1,"PAH",1 ,1,2,0)
762	Patch DI2 2.210 rep airs the f ollowing d efects:
763	"PKG",4,22 ,1,"PAH",1 ,1,3,0)
764	1. DI WP only su pports str ings up to 999 chara cters
765	"PKG",4,22 ,1,"PAH",1 ,1,4,0)
766	2. NU MDATE fix in patch 7 was not a dded to DI NIT
767	"PKG",4,22 ,1,"PAH",1 ,1,5,0)
768	3. %D T doesn't return err or for inc orrect tim e
769	"PKG",4,22 ,1,"PAH",1 ,1,6,0)
770	4. Th e variable DO is not killed af ter call t o DIE
771	"PKG",4,22 ,1,"PAH",1 ,1,7,0)
772	5. Ne w api EN^D ITP for re pointing d eleted rec ords
773	"PKG",4,22 ,1,"PAH",1 ,1,8,0)
774	6. Ne w options for editin g Data Typ es in patc h 2 have n o parent
775	"PKG",4,22 ,1,"PAH",1 ,1,9,0)
776	7. Ne w API CHKP T^DIUTL(fi le, ien, m essage)
777	"PKG",4,22 ,1,"PAH",1 ,1,10,0)
778
779	"PKG",4,22 ,1,"PAH",1 ,1,11,0)
780
781	"PKG",4,22 ,1,"PAH",1 ,1,12,0)
782	Patch Com ponents:
783	"PKG",4,22 ,1,"PAH",1 ,1,13,0)
784	--------- --------
785	"PKG",4,22 ,1,"PAH",1 ,1,14,0)
786	Files & F ields Asso ciated:
787	"PKG",4,22 ,1,"PAH",1 ,1,15,0)
788	New/Modi fied/
789	"PKG",4,22 ,1,"PAH",1 ,1,16,0)
790	File Name (#) Field Na me (#) Deleted
791	"PKG",4,22 ,1,"PAH",1 ,1,17,0)
792	--------- ---- -------- ------ -------- -----
793	"PKG",4,22 ,1,"PAH",1 ,1,18,0)
794	N/A
795	"PKG",4,22 ,1,"PAH",1 ,1,19,0)
796
797	"PKG",4,22 ,1,"PAH",1 ,1,20,0)
798	Forms Ass ociated:
799	"PKG",4,22 ,1,"PAH",1 ,1,21,0)
800
801	"PKG",4,22 ,1,"PAH",1 ,1,22,0)
802	Form Name File # New/Modi fied/Delet ed
803	"PKG",4,22 ,1,"PAH",1 ,1,23,0)
804	--------- ------ -------- ---------- --
805	"PKG",4,22 ,1,"PAH",1 ,1,24,0)
806	N/A
807	"PKG",4,22 ,1,"PAH",1 ,1,25,0)
808
809	"PKG",4,22 ,1,"PAH",1 ,1,26,0)
810	Mail Grou ps Associa ted:
811	"PKG",4,22 ,1,"PAH",1 ,1,27,0)
812
813	"PKG",4,22 ,1,"PAH",1 ,1,28,0)
814	Mail Grou p Name New/ Modified/D eleted
815	"PKG",4,22 ,1,"PAH",1 ,1,29,0)
816	--------- ------ ---- ---------- ------
817	"PKG",4,22 ,1,"PAH",1 ,1,30,0)
818	N/A
819	"PKG",4,22 ,1,"PAH",1 ,1,31,0)
820
821	"PKG",4,22 ,1,"PAH",1 ,1,32,0)
822	Options A ssociated:
823	"PKG",4,22 ,1,"PAH",1 ,1,33,0)
824
825	"PKG",4,22 ,1,"PAH",1 ,1,34,0)
826	Option Na me Type New/Modif ied/Delete d
827	"PKG",4,22 ,1,"PAH",1 ,1,35,0)
828	--------- -- ---- --------- ---------- -
829	"PKG",4,22 ,1,"PAH",1 ,1,36,0)
830	DI DATA T YPE OPTION S Menu Deleted
831	"PKG",4,22 ,1,"PAH",1 ,1,37,0)
832	DI DATA T YPE FILE Run Rout ine Deleted
833	"PKG",4,22 ,1,"PAH",1 ,1,38,0)
834	DI DATA T YPE METHOD FILE Run Rout ine Deleted
835	"PKG",4,22 ,1,"PAH",1 ,1,39,0)
836	DI DATA T YPE PROPER TY FILE Run Rout ine Deleted
837	"PKG",4,22 ,1,"PAH",1 ,1,40,0)
838
839	"PKG",4,22 ,1,"PAH",1 ,1,41,0)
840
841	"PKG",4,22 ,1,"PAH",1 ,1,42,0)
842	Protocols Associate d:
843	"PKG",4,22 ,1,"PAH",1 ,1,43,0)
844
845	"PKG",4,22 ,1,"PAH",1 ,1,44,0)
846	Protocol Name New/Modif ied/Delete d
847	"PKG",4,22 ,1,"PAH",1 ,1,45,0)
848	--------- ---- --------- ---------- -
849	"PKG",4,22 ,1,"PAH",1 ,1,46,0)
850	N/A
851	"PKG",4,22 ,1,"PAH",1 ,1,47,0)
852
853	"PKG",4,22 ,1,"PAH",1 ,1,48,0)
854	Security Keys Assoc iated:
855	"PKG",4,22 ,1,"PAH",1 ,1,49,0)
856
857	"PKG",4,22 ,1,"PAH",1 ,1,50,0)
858	Security Key Name
859	"PKG",4,22 ,1,"PAH",1 ,1,51,0)
860	--------- --------
861	"PKG",4,22 ,1,"PAH",1 ,1,52,0)
862	N/A
863	"PKG",4,22 ,1,"PAH",1 ,1,53,0)
864
865	"PKG",4,22 ,1,"PAH",1 ,1,54,0)
866	Templates Associate d:
867	"PKG",4,22 ,1,"PAH",1 ,1,55,0)
868
869	"PKG",4,22 ,1,"PAH",1 ,1,56,0)
870	Template Name Typ e Fil e Name (Numbe r) New/Mo dified/Del eted
871	"PKG",4,22 ,1,"PAH",1 ,1,57,0)
872	--------- ---- --- - --- ---------- ---------- -- ------ ---------- ----
873	"PKG",4,22 ,1,"PAH",1 ,1,58,0)
874	N/A
875	"PKG",4,22 ,1,"PAH",1 ,1,59,0)
876
877	"PKG",4,22 ,1,"PAH",1 ,1,60,0)
878	Additiona l Informat ion:
879	"PKG",4,22 ,1,"PAH",1 ,1,61,0)
880	--------- ---------- ----
881	"PKG",4,22 ,1,"PAH",1 ,1,62,0)
882	N/A
883	"PKG",4,22 ,1,"PAH",1 ,1,63,0)
884
885	"PKG",4,22 ,1,"PAH",1 ,1,64,0)
886	New Servi ce Request s (NSRs):
887	"PKG",4,22 ,1,"PAH",1 ,1,65,0)
888	--------- ---------- ---------
889	"PKG",4,22 ,1,"PAH",1 ,1,66,0)
890	N/A
891	"PKG",4,22 ,1,"PAH",1 ,1,67,0)
892
893	"PKG",4,22 ,1,"PAH",1 ,1,68,0)
894	Patient S afety Issu es (PSIs):
895	"PKG",4,22 ,1,"PAH",1 ,1,69,0)
896	--------- ---------- ----------
897	"PKG",4,22 ,1,"PAH",1 ,1,70,0)
898	N/A
899	"PKG",4,22 ,1,"PAH",1 ,1,71,0)
900
901	"PKG",4,22 ,1,"PAH",1 ,1,72,0)
902	Defect Tr acking Sys tem Ticket (s) & Over view:
903	"PKG",4,22 ,1,"PAH",1 ,1,73,0)
904	--------- ---------- ---------- ---------- -----
905	"PKG",4,22 ,1,"PAH",1 ,1,74,0)
906
907	"PKG",4,22 ,1,"PAH",1 ,1,75,0)
908	1. Ticket I13413576 FY17
909	"PKG",4,22 ,1,"PAH",1 ,1,76,0)
910	Problem:
911	"PKG",4,22 ,1,"PAH",1 ,1,77,0)
912	--------
913	"PKG",4,22 ,1,"PAH",1 ,1,78,0)
914	Word Proc essing can not parse a string g reater tha n 999 and the FM 22. 2
915	"PKG",4,22 ,1,"PAH",1 ,1,79,0)
916	allows st rings up t o 4K chara cters.
917	"PKG",4,22 ,1,"PAH",1 ,1,80,0)
918
919	"PKG",4,22 ,1,"PAH",1 ,1,81,0)
920	Resolutio n:
921	"PKG",4,22 ,1,"PAH",1 ,1,82,0)
922	--------- -
923	"PKG",4,22 ,1,"PAH",1 ,1,83,0)
924	Modified DIWP and c hanged 999 to 9999
925	"PKG",4,22 ,1,"PAH",1 ,1,84,0)
926
927	"PKG",4,22 ,1,"PAH",1 ,1,85,0)
928	2. Ticket I15917948 FY17
929	"PKG",4,22 ,1,"PAH",1 ,1,86,0)
930	Problem:
931	"PKG",4,22 ,1,"PAH",1 ,1,87,0)
932	--------
933	"PKG",4,22 ,1,"PAH",1 ,1,88,0)
934	Patch DI* 22.2*7 fix ed NUMDATE function in FUNCTIO N file #.5 , but DINI T
935	"PKG",4,22 ,1,"PAH",1 ,1,89,0)
936	restore t he old fun ction.
937	"PKG",4,22 ,1,"PAH",1 ,1,90,0)
938
939	"PKG",4,22 ,1,"PAH",1 ,1,91,0)
940	Resolutio n:
941	"PKG",4,22 ,1,"PAH",1 ,1,92,0)
942	--------- -
943	"PKG",4,22 ,1,"PAH",1 ,1,93,0)
944	Modified DINIT4 and added fix to NUMDAT E
945	"PKG",4,22 ,1,"PAH",1 ,1,94,0)
946
947	"PKG",4,22 ,1,"PAH",1 ,1,95,0)
948	3. Ticket I10027710 FY16
949	"PKG",4,22 ,1,"PAH",1 ,1,96,0)
950	Problem:
951	"PKG",4,22 ,1,"PAH",1 ,1,97,0)
952	--------
953	"PKG",4,22 ,1,"PAH",1 ,1,98,0)
954	%DT doesn 't return an error f or incorre ct time wh en time is required.
955	"PKG",4,22 ,1,"PAH",1 ,1,99,0)
956	%DT="XTSR " and X=31 60707.8
957	"PKG",4,22 ,1,"PAH",1 ,1,100,0)
958
959	"PKG",4,22 ,1,"PAH",1 ,1,101,0)
960	Resolutio n:
961	"PKG",4,22 ,1,"PAH",1 ,1,102,0)
962	--------- -
963	"PKG",4,22 ,1,"PAH",1 ,1,103,0)
964	Modified DIDT to no w return a n error
965	"PKG",4,22 ,1,"PAH",1 ,1,104,0)
966
967	"PKG",4,22 ,1,"PAH",1 ,1,105,0)
968	4. Ticket I16009474 FY17
969	"PKG",4,22 ,1,"PAH",1 ,1,106,0)
970	Problem:
971	"PKG",4,22 ,1,"PAH",1 ,1,107,0)
972	--------
973	"PKG",4,22 ,1,"PAH",1 ,1,108,0)
974	The varia ble DO is not killed after a c all to DIE if a user asked for
975	"PKG",4,22 ,1,"PAH",1 ,1,109,0)
976	help in a multiple Date field .
977	"PKG",4,22 ,1,"PAH",1 ,1,110,0)
978
979	"PKG",4,22 ,1,"PAH",1 ,1,111,0)
980	Resolutio n:
981	"PKG",4,22 ,1,"PAH",1 ,1,112,0)
982	--------- -
983	"PKG",4,22 ,1,"PAH",1 ,1,113,0)
984	Modified DIEQ and a dded DO to kill stat ement at l ine Q
985	"PKG",4,22 ,1,"PAH",1 ,1,114,0)
986
987	"PKG",4,22 ,1,"PAH",1 ,1,115,0)
988	5. Ticket R13102022 FY17
989	"PKG",4,22 ,1,"PAH",1 ,1,116,0)
990	Problem:
991	"PKG",4,22 ,1,"PAH",1 ,1,117,0)
992	--------
993	"PKG",4,22 ,1,"PAH",1 ,1,118,0)
994	Need API to repoint a deleted value in a record, similar to what happ ens
995	"PKG",4,22 ,1,"PAH",1 ,1,119,0)
996	when a po inter fiel d value is deleted.
997	"PKG",4,22 ,1,"PAH",1 ,1,120,0)
998
999	"PKG",4,22 ,1,"PAH",1 ,1,121,0)
1000	Resolutio n:
1001	"PKG",4,22 ,1,"PAH",1 ,1,122,0)
1002	--------- -
1003	"PKG",4,22 ,1,"PAH",1 ,1,123,0)
1004	Modified DITP and a dded tag E N(file, li st) where file=file number, li st=
1005	"PKG",4,22 ,1,"PAH",1 ,1,124,0)
1006	array con taining li st of entr ies to be repointed (Passed by Reference ).
1007	"PKG",4,22 ,1,"PAH",1 ,1,125,0)
1008
1009	"PKG",4,22 ,1,"PAH",1 ,1,126,0)
1010	6. Ticket R14175506 FY17
1011	"PKG",4,22 ,1,"PAH",1 ,1,127,0)
1012	Problem:
1013	"PKG",4,22 ,1,"PAH",1 ,1,128,0)
1014	--------
1015	"PKG",4,22 ,1,"PAH",1 ,1,129,0)
1016	New optio ns that we re for add ing new da ta types a nd release d as part of
1017	"PKG",4,22 ,1,"PAH",1 ,1,130,0)
1018	patch DI* 22.2*2 had no parent menu. Th ese option were not meant for
1019	"PKG",4,22 ,1,"PAH",1 ,1,131,0)
1020	general d istributio n. The op tions are: DI DATA T YPE OPTION S, DI DATA
1021	"PKG",4,22 ,1,"PAH",1 ,1,132,0)
1022	TYPE FILE , DI DATA TYPE METHO D FILE, an d DI DATA TYPE PROPE RTY FILE.
1023	"PKG",4,22 ,1,"PAH",1 ,1,133,0)
1024
1025	"PKG",4,22 ,1,"PAH",1 ,1,134,0)
1026	Resolutio n:
1027	"PKG",4,22 ,1,"PAH",1 ,1,135,0)
1028	--------- -
1029	"PKG",4,22 ,1,"PAH",1 ,1,136,0)
1030	All four options wi ll be dele ted from t he OPTION file and a dded to th e
1031	"PKG",4,22 ,1,"PAH",1 ,1,137,0)
1032	hard code d options in the DII routine. Modified DII1 and D IFMEDT1
1033	"PKG",4,22 ,1,"PAH",1 ,1,138,0)
1034	routines.
1035	"PKG",4,22 ,1,"PAH",1 ,1,139,0)
1036
1037	"PKG",4,22 ,1,"PAH",1 ,1,140,0)
1038	7. No tic ket
1039	"PKG",4,22 ,1,"PAH",1 ,1,141,0)
1040	Problem:
1041	"PKG",4,22 ,1,"PAH",1 ,1,142,0)
1042	--------
1043	"PKG",4,22 ,1,"PAH",1 ,1,143,0)
1044	Developer needs API to check what entri es points to a parti cular reco rd
1045	"PKG",4,22 ,1,"PAH",1 ,1,144,0)
1046	in a file .
1047	"PKG",4,22 ,1,"PAH",1 ,1,145,0)
1048
1049	"PKG",4,22 ,1,"PAH",1 ,1,146,0)
1050	Resolutio n:
1051	"PKG",4,22 ,1,"PAH",1 ,1,147,0)
1052	--------- -
1053	"PKG",4,22 ,1,"PAH",1 ,1,148,0)
1054	CHKPT^DIU TL(file, i en, messag e).
1055	"PKG",4,22 ,1,"PAH",1 ,1,149,0)
1056	;INPUT: D IFILE=file number, D A=ien of r ecord, DIM SG=closed global roo t or
1057	"PKG",4,22 ,1,"PAH",1 ,1,150,0)
1058	local ar ray
1059	"PKG",4,22 ,1,"PAH",1 ,1,151,0)
1060	;OUTPUT: DIMSG(0)=l ine count, DISMG(#)= "Entry ien in FILE ( file #)
1061	"PKG",4,22 ,1,"PAH",1 ,1,152,0)
1062	refers t o record D A"
1063	"PKG",4,22 ,1,"PAH",1 ,1,153,0)
1064
1065	"PKG",4,22 ,1,"PAH",1 ,1,154,0)
1066
1067	"PKG",4,22 ,1,"PAH",1 ,1,155,0)
1068	Blood Ban k Clearanc e:
1069	"PKG",4,22 ,1,"PAH",1 ,1,156,0)
1070	--------- ---------- --
1071	"PKG",4,22 ,1,"PAH",1 ,1,157,0)
1072	EFFECT ON BLOOD BAN K FUNCTION AL REQUIRE MENTS: Pat ch DI22.2 10 contai ns
1073	"PKG",4,22 ,1,"PAH",1 ,1,158,0)
1074	changes t o a packag e referenc ed in ProP ath standa rd titled: BBM Team
1075	"PKG",4,22 ,1,"PAH",1 ,1,159,0)
1076	Review of VistA Pat ches. This patch doe s not alte r or modif y any Vist A
1077	"PKG",4,22 ,1,"PAH",1 ,1,160,0)
1078	Blood Ban k software design sa feguards o r safety c ritical el ements
1079	"PKG",4,22 ,1,"PAH",1 ,1,161,0)
1080	functions .
1081	"PKG",4,22 ,1,"PAH",1 ,1,162,0)
1082
1083	"PKG",4,22 ,1,"PAH",1 ,1,163,0)
1084	RISK ANAL YSIS: Chan ges made b y patch DI 22.210 h ave no eff ect on Blo od
1085	"PKG",4,22 ,1,"PAH",1 ,1,164,0)
1086	Bank soft ware funct ionality, therefore RISK is no ne.
1087	"PKG",4,22 ,1,"PAH",1 ,1,165,0)
1088
1089	"PKG",4,22 ,1,"PAH",1 ,1,166,0)
1090
1091	"PKG",4,22 ,1,"PAH",1 ,1,167,0)
1092	Test Site s:
1093	"PKG",4,22 ,1,"PAH",1 ,1,168,0)
1094	--------- --
1095	"PKG",4,22 ,1,"PAH",1 ,1,169,0)
1096
1097	"PKG",4,22 ,1,"PAH",1 ,1,170,0)
1098
1099	"PKG",4,22 ,1,"PAH",1 ,1,171,0)
1100
1101	"PKG",4,22 ,1,"PAH",1 ,1,172,0)
1102	Software and Docume ntation Re trieval In structions :
1103	"PKG",4,22 ,1,"PAH",1 ,1,173,0)
1104	--------- ---------- ---------- ---------- ---------- -
1105	"PKG",4,22 ,1,"PAH",1 ,1,174,0)
1106	Documenta tion descr ibing the new api, E N^DITP, ca n be found in the
1107	"PKG",4,22 ,1,"PAH",1 ,1,175,0)
1108	FM 22.2 D eveloper's Guide
1109	"PKG",4,22 ,1,"PAH",1 ,1,176,0)
1110
1111	"PKG",4,22 ,1,"PAH",1 ,1,177,0)
1112	Current d ocumentati on is on t he VA Soft ware Docum entation L ibrary
1113	"PKG",4,22 ,1,"PAH",1 ,1,178,0)
1114	at: http: // DNS . URL /
1115	"PKG",4,22 ,1,"PAH",1 ,1,179,0)
1116
1117	"PKG",4,22 ,1,"PAH",1 ,1,180,0)
1118	Title Fi le Name SFT P Mode
1119	"PKG",4,22 ,1,"PAH",1 ,1,181,0)
1120	--------- ---------- ---------- ---------- ---------- ---------- ------
1121	"PKG",4,22 ,1,"PAH",1 ,1,182,0)
1122	FM 22.2 D eveloper's Guide fm22_2dg.P DF Bina ry
1123	"PKG",4,22 ,1,"PAH",1 ,1,183,0)
1124	FM 22.2 U ser Manual fm22_2um1. PDF Bina ry
1125	"PKG",4,22 ,1,"PAH",1 ,1,184,0)
1126	FM 22.2 A dvanced Us er Manual fm22_2um2. PDF Bina ry
1127	"PKG",4,22 ,1,"PAH",1 ,1,185,0)
1128	FM 22.2 T echnical M anual fm22_2tm.P DF Bina ry
1129	"PKG",4,22 ,1,"PAH",1 ,1,186,0)
1130
1131	"PKG",4,22 ,1,"PAH",1 ,1,187,0)
1132
1133	"PKG",4,22 ,1,"PAH",1 ,1,188,0)
1134	Backout a nd Rollbac k Procedur e:
1135	"PKG",4,22 ,1,"PAH",1 ,1,189,0)
1136	--------- ---------- ---------- --
1137	"PKG",4,22 ,1,"PAH",1 ,1,190,0)
1138	This patc h only con sists of r outines. D uring the VistA Inst allation
1139	"PKG",4,22 ,1,"PAH",1 ,1,191,0)
1140	Procedure of the KI DS build, the instal ler should back up t he modifie d
1141	"PKG",4,22 ,1,"PAH",1 ,1,192,0)
1142	routines by the use of the 'B ackup a Tr ansport Gl obal' acti on
1143	"PKG",4,22 ,1,"PAH",1 ,1,193,0)
1144	(step 3a in the Ins tallations Instructi ons below) .
1145	"PKG",4,22 ,1,"PAH",1 ,1,194,0)
1146
1147	"PKG",4,22 ,1,"PAH",1 ,1,195,0)
1148	If rollba ck/backout is requir ed, the in staller ca n restore the routin es
1149	"PKG",4,22 ,1,"PAH",1 ,1,196,0)
1150	using the MailMan m essage tha t were sav ed prior t o installi ng the
1151	"PKG",4,22 ,1,"PAH",1 ,1,197,0)
1152	patch.
1153	"PKG",4,22 ,1,"PAH",1 ,1,198,0)
1154
1155	"PKG",4,22 ,1,"PAH",1 ,1,199,0)
1156
1157	"PKG",4,22 ,1,"PAH",1 ,1,200,0)
1158	Patch Ins tallation:
1159	"PKG",4,22 ,1,"PAH",1 ,1,201,0)
1160
1161	"PKG",4,22 ,1,"PAH",1 ,1,202,0)
1162	Pre-Insta llation In structions :
1163	"PKG",4,22 ,1,"PAH",1 ,1,203,0)
1164	--------- ---------- ---------- -
1165	"PKG",4,22 ,1,"PAH",1 ,1,204,0)
1166	This patc h can be q ueued for installati on. TaskM an does no t have to be
1167	"PKG",4,22 ,1,"PAH",1 ,1,205,0)
1168	stopped, HL7 filers do not ne ed to be s topped, an d users ma y be on th e
1169	"PKG",4,22 ,1,"PAH",1 ,1,206,0)
1170	system. The patch should be installed during non -peak hour s to minim ize
1171	"PKG",4,22 ,1,"PAH",1 ,1,207,0)
1172	potential for disru ption to u sers. Thi s patch sh ould take less than 1
1173	"PKG",4,22 ,1,"PAH",1 ,1,208,0)
1174	minute to install.
1175	"PKG",4,22 ,1,"PAH",1 ,1,209,0)
1176
1177	"PKG",4,22 ,1,"PAH",1 ,1,210,0)
1178
1179	"PKG",4,22 ,1,"PAH",1 ,1,211,0)
1180	Installat ion Instru ctions:
1181	"PKG",4,22 ,1,"PAH",1 ,1,212,0)
1182	--------- ---------- -------
1183	"PKG",4,22 ,1,"PAH",1 ,1,213,0)
1184	1. Choos e the Mail Man messag e containi ng this pa tch.
1185	"PKG",4,22 ,1,"PAH",1 ,1,214,0)
1186
1187	"PKG",4,22 ,1,"PAH",1 ,1,215,0)
1188	2. Choos e the INST ALL/CHECK MESSAGE Pa ckMan opti on.
1189	"PKG",4,22 ,1,"PAH",1 ,1,216,0)
1190
1191	"PKG",4,22 ,1,"PAH",1 ,1,217,0)
1192	3. From the Kernel Installat ion and Di stribution System Me nu, select
1193	"PKG",4,22 ,1,"PAH",1 ,1,218,0)
1194	the I nstallatio n Menu. F rom this m enu, you m ay elect t o use the
1195	"PKG",4,22 ,1,"PAH",1 ,1,219,0)
1196	follo wing optio ns. When p rompted fo r the INST ALL NAME e nter
1197	"PKG",4,22 ,1,"PAH",1 ,1,220,0)
1198	DI22.21 0.
1199	"PKG",4,22 ,1,"PAH",1 ,1,221,0)
1200	a. Pr int Transp ort Global - This op tion lets you print the conten ts
1201	"PKG",4,22 ,1,"PAH",1 ,1,222,0)
1202	o f a Transp ort Global that is c urrently l oaded in t he ^XTMP
1203	"PKG",4,22 ,1,"PAH",1 ,1,223,0)
1204	g lobal.
1205	"PKG",4,22 ,1,"PAH",1 ,1,224,0)
1206	b. Ba ckup a Tra nsport Glo bal - This option wi ll create a backup
1207	"PKG",4,22 ,1,"PAH",1 ,1,225,0)
1208	m essage of any routin es exporte d with thi s patch. I t will not
1209	"PKG",4,22 ,1,"PAH",1 ,1,226,0)
1210	b ackup any other chan ges such a s function s.
1211	"PKG",4,22 ,1,"PAH",1 ,1,227,0)
1212	c. Co mpare Tran sport Glob al to Curr ent System - This op tion will
1213	"PKG",4,22 ,1,"PAH",1 ,1,228,0)
1214	a llow you t o view all changes t hat will b e made whe n this pat ch
1215	"PKG",4,22 ,1,"PAH",1 ,1,229,0)
1216	i s installe d. It com pares all components of this p atch
1217	"PKG",4,22 ,1,"PAH",1 ,1,230,0)
1218	( routines, DDs, templ ates, etc. ).
1219	"PKG",4,22 ,1,"PAH",1 ,1,231,0)
1220	d. Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow
1221	"PKG",4,22 ,1,"PAH",1 ,1,232,0)
1222	y ou to ensu re the int egrity of the routin es that ar e in the
1223	"PKG",4,22 ,1,"PAH",1 ,1,233,0)
1224	t ransport g lobal.
1225	"PKG",4,22 ,1,"PAH",1 ,1,234,0)
1226
1227	"PKG",4,22 ,1,"PAH",1 ,1,235,0)
1228	4. From the Instal lation Men u, select the Instal l Package( s) option and
1229	"PKG",4,22 ,1,"PAH",1 ,1,236,0)
1230	When prompted f or the INS TALL NAME, enter DI* 22.2*10.
1231	"PKG",4,22 ,1,"PAH",1 ,1,237,0)
1232
1233	"PKG",4,22 ,1,"PAH",1 ,1,238,0)
1234	5. If pr ompted 'Wa nt KIDS to Rebuild M enu Trees Upon Compl etion of
1235	"PKG",4,22 ,1,"PAH",1 ,1,239,0)
1236	Insta ll? NO//' respond NO .
1237	"PKG",4,22 ,1,"PAH",1 ,1,240,0)
1238
1239	"PKG",4,22 ,1,"PAH",1 ,1,241,0)
1240	7. When prompted " Want KIDS to INHIBIT LOGONs du ring the i nstall?
1241	"PKG",4,22 ,1,"PAH",1 ,1,242,0)
1242	NO//" respond N O.
1243	"PKG",4,22 ,1,"PAH",1 ,1,243,0)
1244
1245	"PKG",4,22 ,1,"PAH",1 ,1,244,0)
1246	8. If pr ompted "Wa nt to DISA BLE Schedu led Option s, Menu Op tions,
1247	"PKG",4,22 ,1,"PAH",1 ,1,245,0)
1248	and P rotocols? NO//" resp ond NO.
1249	"PKG",4,22 ,1,"PAH",1 ,1,246,0)
1250
1251	"PKG",4,22 ,1,"PAH",1 ,1,247,0)
1252	9. If pr ompted "De lay Instal l (Minutes ): (0 - 6 0): 0//" r espond 0.
1253	"PKG",4,22 ,1,"PAH",1 ,1,248,0)
1254
1255	"PKG",4,22 ,1,"PAH",1 ,1,249,0)
1256
1257	"PKG",4,22 ,1,"PAH",1 ,1,250,0)
1258	Post-Inst allation I nstruction s:
1259	"PKG",4,22 ,1,"PAH",1 ,1,251,0)
1260	--------- ---------- ---------- --
1261	"PKG",4,22 ,1,"PAH",1 ,1,252,0)
1262	NA
1263	"PKG",4,22 ,1,"PAH",1 ,1,253,0)
1264	Routine In formation:
1265	"PKG",4,22 ,1,"PAH",1 ,1,254,0)
1266	========== ==========
1267	"PKG",4,22 ,1,"PAH",1 ,1,255,0)
1268	The second line of e ach of the se routine s now look s like:
1269	"PKG",4,22 ,1,"PAH",1 ,1,256,0)
1270	;;22.2;VA FileMan;* [Patch Li st]*;Jan 05, 2016;B uild 5
1271	"PKG",4,22 ,1,"PAH",1 ,1,257,0)
1272	The checks ums below are new ch ecksums, a nd
1273	"PKG",4,22 ,1,"PAH",1 ,1,258,0)
1274	can be ch ecked with CHECK1^XT SUMBLD.
1275	"PKG",4,22 ,1,"PAH",1 ,1,259,0)
1276	Routine Na me: DIDT
1277	"PKG",4,22 ,1,"PAH",1 ,1,260,0)
1278	Before : B2574673 3 After: B26128991 10
1279	"PKG",4,22 ,1,"PAH",1 ,1,261,0)
1280	Routine Na me: DIEQ
1281	"PKG",4,22 ,1,"PAH",1 ,1,262,0)
1282	Before : B1690440 4 After: B16948298 2,7,5, 10
1283	"PKG",4,22 ,1,"PAH",1 ,1,263,0)
1284	Routine Na me: DIFMED T1
1285	"PKG",4,22 ,1,"PAH",1 ,1,264,0)
1286	Before : B166568 0 After: B3205089 2,10
1287	"PKG",4,22 ,1,"PAH",1 ,1,265,0)
1288	Routine Na me: DII1
1289	"PKG",4,22 ,1,"PAH",1 ,1,266,0)
1290	Before : B210584 1 After: B2240976 8,10
1291	"PKG",4,22 ,1,"PAH",1 ,1,267,0)
1292	Routine Na me: DINIT4
1293	"PKG",4,22 ,1,"PAH",1 ,1,268,0)
1294	Before : B1281216 8 After: B12872917 10
1295	"PKG",4,22 ,1,"PAH",1 ,1,269,0)
1296	Routine Na me: DITP
1297	"PKG",4,22 ,1,"PAH",1 ,1,270,0)
1298	Before : B1175502 7 After: B18223422 10
1299	"PKG",4,22 ,1,"PAH",1 ,1,271,0)
1300	Routine Na me: DIUTL
1301	"PKG",4,22 ,1,"PAH",1 ,1,272,0)
1302	Before : B708261 9 After: B13688793 10
1303	"PKG",4,22 ,1,"PAH",1 ,1,273,0)
1304	Routine Na me: DIWP
1305	"PKG",4,22 ,1,"PAH",1 ,1,274,0)
1306	Before : B1405738 8 After: B14095198 10
1307	"PKG",4,22 ,1,"PAH",1 ,1,275,0)
1308
1309	"PKG",4,22 ,1,"PAH",1 ,1,276,0)
1310	Routine li st of prec eding patc hes: 5, 8
1311	"QUES","XP F1",0)
1312	Y
1313	"QUES","XP F1","??")
1314	^D REP^XPD H
1315	"QUES","XP F1","A")
1316	Shall I wr ite over y our \|FLAG\| File
1317	"QUES","XP F1","B")
1318	YES
1319	"QUES","XP F1","M")
1320	D XPF1^XPD IQ
1321	"QUES","XP F2",0)
1322	Y
1323	"QUES","XP F2","??")
1324	^D DTA^XPD H
1325	"QUES","XP F2","A")
1326	Want my da ta \|FLAG\| yours
1327	"QUES","XP F2","B")
1328	YES
1329	"QUES","XP F2","M")
1330	D XPF2^XPD IQ
1331	"QUES","XP I1",0)
1332	YO
1333	"QUES","XP I1","??")
1334	^D INHIBIT ^XPDH
1335	"QUES","XP I1","A")
1336	Want KIDS to INHIBIT LOGONs du ring the i nstall
1337	"QUES","XP I1","B")
1338	NO
1339	"QUES","XP I1","M")
1340	D XPI1^XPD IQ
1341	"QUES","XP M1",0)
1342	PO^VA(200, :EM
1343	"QUES","XP M1","??")
1344	^D MG^XPDH
1345	"QUES","XP M1","A")
1346	Enter the Coordinato r for Mail Group '\|F LAG\|'
1347	"QUES","XP M1","B")
1348
1349	"QUES","XP M1","M")
1350	D XPM1^XPD IQ
1351	"QUES","XP O1",0)
1352	Y
1353	"QUES","XP O1","??")
1354	^D MENU^XP DH
1355	"QUES","XP O1","A")
1356	Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install
1357	"QUES","XP O1","B")
1358	NO
1359	"QUES","XP O1","M")
1360	D XPO1^XPD IQ
1361	"QUES","XP Z1",0)
1362	Y
1363	"QUES","XP Z1","??")
1364	^D OPT^XPD H
1365	"QUES","XP Z1","A")
1366	Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls
1367	"QUES","XP Z1","B")
1368	NO
1369	"QUES","XP Z1","M")
1370	D XPZ1^XPD IQ
1371	"QUES","XP Z2",0)
1372	Y
1373	"QUES","XP Z2","??")
1374	^D RTN^XPD H
1375	"QUES","XP Z2","A")
1376	Want to MO VE routine s to other CPUs
1377	"QUES","XP Z2","B")
1378	NO
1379	"QUES","XP Z2","M")
1380	D XPZ2^XPD IQ
1381	"RTN")
1382	8
1383	"RTN","DID T")
1384	0^2^B26128 991
1385	"RTN","DID T",1,0)
1386	DIDT ;SFIS C/GFT-DATE /TIME UTIL ITY ;2014- 12-26 12: 32 PM
1387	"RTN","DID T",2,0)
1388	;;22.2;VA FileMan;* 10*;Jan 05, 2016;B uild 13
1389	"RTN","DID T",3,0)
1390	;;Per VA Directive 6402, this routine s hould not be modifie d.
1391	"RTN","DID T",4,0)
1392	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
1393	"RTN","DID T",5,0)
1394	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
1395	"RTN","DID T",6,0)
1396	;;License d under th e terms of the Apach e License, Version 2 .0.
1397	"RTN","DID T",7,0)
1398	;
1399	"RTN","DID T",8,0)
1400	%DT ;
1401	"RTN","DID T",9,0)
1402	I $G(DUZ( "LANG"))>1 ,($G(^DI(. 85,DUZ("LA NG"),20.2) )]"") X ^( 20.2) Q
1403	"RTN","DID T",10,0)
1404	CONT ;
1405	"RTN","DID T",11,0)
1406	K % S:$D( %DT)[0 %DT ="" S:$G(D IQUIET)!($ D(DDS)#2)! ($D(ZTQUEU ED)) %DT=$ P(%DT,"E") _$P(%DT,"E ",2) G NA: %DT'["A"
1407	"RTN","DID T",12,0)
1408	W !,$S($D (%DT("A")) :%DT("A"), 1:"DATE: " ),$S($D(%D T("B")):%D T("B")_"// ",1:"")
1409	"RTN","DID T",13,0)
1410	R X:$S($D (DTIME):DT IME,1:300) S:'$T X=" ^",DTOUT=1 G:$L(X)>3 9 1
1411	"RTN","DID T",14,0)
1412	I $D(%DT( "B")),X="" S X=%DT(" B")
1413	"RTN","DID T",15,0)
1414	I "^"[X S Y=-1 K %I ,% Q
1415	"RTN","DID T",16,0)
1416	NA S %(0)= X G 1:X'?. ANP,1:$P(X ,"@")?15.N ,1:$P(X,"@ ",2)?15.N, 1:$L(X)>39
1417	"RTN","DID T",17,0)
1418	F %=1:1:$ L(X) Q:X?. UNP S Y=$ E(X,%) I Y ?1L S X=$E (X,1,%-1)_ $C($A(Y)-3 2)_$E(X,%+ 1,99) ;UPP ER CASE
1419	"RTN","DID T",18,0)
1420	I %DT["E" ,X?."?" D HELP^%DTC G B
1421	"RTN","DID T",19,0)
1422	I %DT["N" ,X?.N G NO
1423	"RTN","DID T",20,0)
1424	I X?1.A,( X["MID"!(X ["NOON")) S X="@"_X
1425	"RTN","DID T",21,0)
1426	I X'?1"NO V".E,X?1"N ".1"OW".1P .E G N^%DT C:%DT["T"! (%DT["R")& (%DT'["M") S X=$E(X, 2,99),X="T "_$P(X,"OW ")_$P(X,"O W",2)
1427	"RTN","DID T",22,0)
1428	I X?1.N." "1.2A!(X? 1.N1":"2N. " ".2A)!(X ?1.N1":"2N 1":"2N." " .2A) S X=" T@"_X
1429	"RTN","DID T",23,0)
1430	I X?7N1". "1.N G R
1431	"RTN","DID T",24,0)
1432	I X'["@", %DT'["R" G R
1433	"RTN","DID T",25,0)
1434	I %DT'["T ",%DT'["R" G NO
1435	"RTN","DID T",26,0)
1436	I %DT["M" G NO
1437	"RTN","DID T",27,0)
1438	S Y=$P(X, "@",2,9),X =$P(X,"@")
1439	"RTN","DID T",28,0)
1440	F %=2,3 S %I=$P(Y," :",%) I %I ?1N.E,%I'? 2N.PA G 1
1441	"RTN","DID T",29,0)
1442	S:X="" X= "T" S Y=$P (Y,":")_$P (Y,":",2)_ $P(Y,":",3 ,9),%I=Y
1443	"RTN","DID T",30,0)
1444	I Y?1.A S Y=$S(Y["M ID":2400,Y ["NOON":12 00,1:"")
1445	"RTN","DID T",31,0)
1446	T G G:Y?4N ,G1:Y?6N&( %DT["S"),1 :Y'?1.6N." ".1(1"AM" ,1"A",1"A. M",1"PM",1 "P",1"P.M" ).P I %DT[ "R",Y="" G NO
1447	"RTN","DID T",32,0)
1448	S %I=$P(1 _%I,+(1_Y) ,2) S:%I]" " Y=$P(Y,% I)
1449	"RTN","DID T",33,0)
1450	I Y?5.6N G:%DT'["S" 1 S %(3)= $E(Y,$L(Y) -1,$L(Y)), Y=$E(Y,1,$ L(Y)-2) G 1:%(3)>59
1451	"RTN","DID T",34,0)
1452	I Y?1.2N G:Y'<13 1 S Y=Y_"00" S:$E(Y)=0 %I="A"
1453	"RTN","DID T",35,0)
1454	I %I["A" S Y=$S(Y=1 200&'$G(%( 3)):2400,Y >1159:Y-12 00,1:Y)
1455	"RTN","DID T",36,0)
1456	E I Y?1. 2"0"2N G:% I["P" 1
1457	"RTN","DID T",37,0)
1458	E I Y<12 00,%I["P"! (Y<600) S Y=Y+1200 ; ASSUME PM
1459	"RTN","DID T",38,0)
1460	G G 1:Y>24 00,1:Y#100 >59,1:('Y& ('$G(%(3)) )) S %(1)= $S('Y:".00 00",1:Y/10 000) G R
1461	"RTN","DID T",39,0)
1462	G1 G 1:Y>2 40000!'Y,1 :$E(Y,3,4) #100>59,1: $E(Y,5,6)# 100>59 S % (1)=Y/1000 000
1463	"RTN","DID T",40,0)
1464	R I %DT["F "!(%DT["P" ) D TY S % (9)=%
1465	"RTN","DID T",41,0)
1466	7 G 8:X'?7 N1".".E&(X '?7N) S Y= $E(X,8,16) ,%=$E(Y_"0 00000",2,7 )
1467	"RTN","DID T",42,0)
1468	I Y,%DT'[ "T"!(%DT[" M") G NO
1469	"RTN","DID T",43,0)
1470	;I %DT["E ",(%'?.N)! (%>240000) !($E(%,3,4 )>59)!($E( %,5,6)>59) G NO
1471	"RTN","DID T",44,0)
1472	I (%'?.N) !(%>240000 )!($E(%,3, 4)>59)!($E (%,5,6)>59 ) G NO ;p1 0
1473	"RTN","DID T",45,0)
1474	S:Y %(1)= +Y S X=$E( X,4,7)_($E (X,1,3)+17 00),%(7)=1
1475	"RTN","DID T",46,0)
1476	I %DT["I" ,'$D(%("AL PHA")) S X =$E(X,3,4) _$E(X,1,2) _$E(X,5,9)
1477	"RTN","DID T",47,0)
1478	8 S %I=0,% ="" I X'?. N G T^%DTC :"T+-"[$E( X),U:X["^" ,1:$E(X)?1 P,MTH:X?3. A&(%DT["M" ),X
1479	"RTN","DID T",48,0)
1480	I X?8N,X> 17999999,$ E(X,5,8)<1 300 S X=$E (X,5,8)_$E (X,1,4),%( "ALPHA")=1 ;MAY BE ' 200101231' FOR 2001D EC31
1481	"RTN","DID T",49,0)
1482	I %DT'["X ",X\300=6! (X?2N) S ( %I(1),%I(2 ))=0,%I(3) =X G 3
1483	"RTN","DID T",50,0)
1484	F %I=0:1 S Y=$E(X,1 ,2),X=$E(X ,3,9) G OT :Y="" D G :%I="" 1
1485	"RTN","DID T",51,0)
1486	. I %DT[" X",%DT'["M ",%I<2,'Y S %I="" Q
1487	"RTN","DID T",52,0)
1488	. S:%I=2 Y=Y_X,X=""
1489	"RTN","DID T",53,0)
1490	. I %DT[" X",%I=2,$L (Y)>2,Y'>1 799 S %I=" " Q
1491	"RTN","DID T",54,0)
1492	. S %I(%I +1)=Y Q
1493	"RTN","DID T",55,0)
1494	;
1495	"RTN","DID T",56,0)
1496	X S Y=$E(X ),X=$E(X,2 ,99) I Y?1 N G A:%?.N ,Y ;PEEL O FF CHARACT ER-BY-CHAR ACTER
1497	"RTN","DID T",57,0)
1498	I Y?1A G A:%?.A,Y
1499	"RTN","DID T",58,0)
1500	OT D:%]"" % G 1:%I>3 ,X:Y?1P,1: Y]"",@%I
1501	"RTN","DID T",59,0)
1502	Y D % S %= Y G 1:%I>3 ,X
1503	"RTN","DID T",60,0)
1504	A S %=%_Y G X
1505	"RTN","DID T",61,0)
1506	TY S %=$H# 1461,%=$H\ 1461*4+(%\ 365)+141-( %=1460) Q
1507	"RTN","DID T",62,0)
1508	0 ;
1509	"RTN","DID T",63,0)
1510	1 W:%DT["E "&'$D(DIER ) $C(7),$S ('$D(DDS): " ??",1:"" ) ;INPUT I S BAD!
1511	"RTN","DID T",64,0)
1512	B G %DT:%D T["A",NO
1513	"RTN","DID T",65,0)
1514	U S X="^", %(0)=X
1515	"RTN","DID T",66,0)
1516	;S Y=-1 G Q:%DT'["A ",Q:X["^" W $C(7)," ??" G %DT
1517	"RTN","DID T",67,0)
1518	NO S Y=-1 G Q:%DT'[" A"!(%DT'[" E"),Q:X["^ " W $C(7), " ??" G %D T ;p10
1519	"RTN","DID T",68,0)
1520	2 I %DT["M " S %I(3)= %I(2),%I(2 )=0 G 3
1521	"RTN","DID T",69,0)
1522	I %I(2)>3 1!'%I(2),% DT'["X" S %I(3)=%I(2 ),%I(2)=0 G 1:'%I(2) &$G(%(1)) G 3
1523	"RTN","DID T",70,0)
1524	D TY S %I (3)=% D PF ^%DTC:$D(% (9)) G C
1525	"RTN","DID T",71,0)
1526	3 I %I(1)> 1700 S %(" YF")=%I(1) ,%I(1)=%I( 2),%I(2)=% I(3),%I(3) =%("YF") ; YEAR FIRST : ALLOW '2 010-1-31'
1527	"RTN","DID T",72,0)
1528	I %I(3)?2 N D G C
1529	"RTN","DID T",73,0)
1530	. I '$D(% (9)) D TY S %(9)=%
1531	"RTN","DID T",74,0)
1532	. N A S A =$E(%(9))* 100
1533	"RTN","DID T",75,0)
1534	. I $E(%( 9),2,3)=%I (3) S %I(3 )=A+%I(3) Q
1535	"RTN","DID T",76,0)
1536	. I %DT[" P" S %I(3) =$S(%I(3)< $E(%(9),2, 3):A,1:A-1 00)+%I(3) Q
1537	"RTN","DID T",77,0)
1538	. I %DT[" F" S %I(3) =$S(%I(3)> $E(%(9),2, 3):A,1:A+1 00)+%I(3) Q
1539	"RTN","DID T",78,0)
1540	. S %I(3) =A+%I(3)
1541	"RTN","DID T",79,0)
1542	. I %(9)- %I(3)>80 S %I(3)=%I( 3)+100 Q
1543	"RTN","DID T",80,0)
1544	. I %I(3) -%(9)>20 S %I(3)=%I( 3)-100
1545	"RTN","DID T",81,0)
1546	. Q
1547	"RTN","DID T",82,0)
1548	S %I(3)=% I(3)-1700 G 1:%I(3)' ?3N
1549	"RTN","DID T",83,0)
1550	C I %DT["I ",'$D(%("A LPHA")),'$ D(%("YF")) ,%I(2)>0 S %=%I(2),% I(2)=%I(1) ,%I(1)=% ; INTERNATIO NAL: REVER SE MONTH/D AY
1551	"RTN","DID T",84,0)
1552	I %I(2)=" 00",'$G(%( 7)) G 1
1553	"RTN","DID T",85,0)
1554	I %DT["M" ,$G(%I(2)) G 1
1555	"RTN","DID T",86,0)
1556	I %I(1)>1 2!(%I(1)=" 00") G 1
1557	"RTN","DID T",87,0)
1558	I %I(2)>2 8,$E("3032 32332323", %I(1))+28< %I(2),%I(1 )-2!(%I(2) -29)!(%I(3 )#4)!('(%I (3)#100)&( %I(3)+1700 #400)) G 1
1559	"RTN","DID T",88,0)
1560	D I %DT["M ",$G(%I(2) ) S %I(2)= 0
1561	"RTN","DID T",89,0)
1562	D P
1563	"RTN","DID T",90,0)
1564	E I $D(%(1 )) S:$D(%( 3)) %(1)=$ E(%(1)_"00 0",1,5)_%( 3) S Y=+(Y _%(1))
1565	"RTN","DID T",91,0)
1566	I '$E(Y,6 ,7),Y["." G 1
1567	"RTN","DID T",92,0)
1568	I %DT["E" S %=Y D D D W " ("_ Y_")" S Y= %
1569	"RTN","DID T",93,0)
1570	I $D(%DT( 0)) S %=%D T(0),%I=$S (%["-":Y,1 :-Y) D:'% Z I $S(%DT ["S":%,1:% \.0001/100 00)+%I>0 G 1
1571	"RTN","DID T",94,0)
1572	Q S X=%(0) K %,%I,%H Q
1573	"RTN","DID T",95,0)
1574	;
1575	"RTN","DID T",96,0)
1576	Z I $P("NO W",%(0))=" " S %=Y
1577	"RTN","DID T",97,0)
1578	E D NOW^ %DTC
1579	"RTN","DID T",98,0)
1580	S:%DT(0)[ "-" %=-% Q
1581	"RTN","DID T",99,0)
1582	;
1583	"RTN","DID T",100,0)
1584	DD I $G(DU Z("LANG")) >1 S Y=$$O UT^DIALOGU (Y,"DD") Q ;create writable d ate from ' Y' to 'Y'
1585	"RTN","DID T",101,0)
1586	Q:'Y
1587	"RTN","DID T",102,0)
1588	N M,MI,CO MMA S M=$S ($E(Y,4,5) :$E($P($T( M)," ",$E( Y,4,5)+2), 1,3)_" ",1 :""),MI="" ,COMMA="," I $G(%DT) ["I" S MI= M,M="",COM MA="" ;INT ERNATIONAL (UK)
1589	"RTN","DID T",103,0)
1590	S Y=M_$S( $E(Y,6,7): $E(Y,6,7)_ COMMA_" ", 1:"")_MI_( $E(Y,1,3)+ 1700)_$S(Y [".":"."_$ P(Y,".",2) ,1:"")
1591	"RTN","DID T",104,0)
1592	I Y["." S Y=$P(Y,". ")_"@"_$E( Y_0,14,15) _":"_$E(Y_ "000",16,1 7)_$S($E(Y ,18,19):": "_$E(Y_0,1 8,19),1:"" )
1593	"RTN","DID T",105,0)
1594	I $D(%DT) #2,%DT["S" ,Y["@",$P( Y,":",3)=" " S Y=Y_": 00"
1595	"RTN","DID T",106,0)
1596	Q
1597	"RTN","DID T",107,0)
1598	;
1599	"RTN","DID T",108,0)
1600	P S Y=%I(3 )_$E(%I(1) +100,2,3)_ $E(%I(2)+1 00,2,3) Q
1601	"RTN","DID T",109,0)
1602	;
1603	"RTN","DID T",110,0)
1604	MTH S %=X D % G:%I>3 1
1605	"RTN","DID T",111,0)
1606	S %I(2)=0
1607	"RTN","DID T",112,0)
1608	D TY S %I (3)=% D:$D (%(9)) PF^ %DTC
1609	"RTN","DID T",113,0)
1610	G D
1611	"RTN","DID T",114,0)
1612	% ;I %DT[" I",%?3.A S %I=9 Q
1613	"RTN","DID T",115,0)
1614	I %?3.A S %=$F($T(M )," "_%) I %>0 S %=$ L($E($T(M) ,6,%-1)," ") D:%I=1 S %("ALPH A")=1 ;ONL Y MONTH IS ALPHA
1615	"RTN","DID T",116,0)
1616	. N T S T =%I(1),%I( 1)=%,%=T I $D(%("ALP HA")) S %I =9
1617	"RTN","DID T",117,0)
1618	S:%<1&(%' ="00")&(%I '=2) %I=9 S %I=%I+1, %I(%I)=%,% =""
1619	"RTN","DID T",118,0)
1620	M ;; JANUA RY FEBRUAR Y MARCH AP RIL MAY JU NE JULY AU GUST SEPTE MBER OCTOB ER NOVEMBE R DECEMBER
1621	"RTN","DIE Q")
1622	0^1^B16948 298
1623	"RTN","DIE Q",1,0)
1624	DIEQ ;SFIS C/XAK,YJK - HELP DUR ING INPUT ;14MAR2016
1625	"RTN","DIE Q",2,0)
1626	;;22.2;VA FileMan;* 2,7,5,10 *;Jan 05, 2016;Build 13
1627	"RTN","DIE Q",3,0)
1628	;;Per VA Directive 6402, this routine s hould not be modifie d.
1629	"RTN","DIE Q",4,0)
1630	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
1631	"RTN","DIE Q",5,0)
1632	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
1633	"RTN","DIE Q",6,0)
1634	;;License d under th e terms of the Apach e License, Version 2 .0.
1635	"RTN","DIE Q",7,0)
1636	;;GFT;**4 ,3,59,999, 1004,1024
1637	"RTN","DIE Q",8,0)
1638	;
1639	"RTN","DIE Q",9,0)
1640	BN S D=$P( DQ(DQ),U,4 ) S:DP+1 D =DIFLD
1641	"RTN","DIE Q",10,0)
1642	S DZ=X D EN1 G B^DI ED
1643	"RTN","DIE Q",11,0)
1644	QQ ;
1645	"RTN","DIE Q",12,0)
1646	I DV,DV[" *",$D(^DD( +DV,.01,0) ) S DQ(DQ) =$P(DQ(DQ) ,U,1,4)_U_ $P(^(0),U, 5,99)
1647	"RTN","DIE Q",13,0)
1648	EN1 ;N DDH ,DST,A1 S DDH=0 G M: DV I DP<0 D HP G P ; p7
1649	"RTN","DIE Q",14,0)
1650	N DST,A1 S DDH=0 G M:DV I DP <0 D HP G P
1651	"RTN","DIE Q",15,0)
1652	HELP I X=" ?"!(X["BAD ") S X=$$H ELP^DIALOG Z(DP,D),A1 ="T" D N:X ]"" I '$G( DISORT),$D (^DD(DP,D, 12)) S X=^ (12) D N ; HELP MESSA GE
1653	"RTN","DIE Q",16,0)
1654	D H G:'$D (DZ) Q
1655	"RTN","DIE Q",17,0)
1656	;
1657	"RTN","DIE Q",18,0)
1658	P I DV["P" K DO S DI C=U_DU,D=" B",DIC(0)= "M"_$E("L" ,DV'["'") G AST:DV[" *"&('$G(DI SORT)) D D Q^DICQ D % G Q
1659	"RTN","DIE Q",19,0)
1660	VP S DU=DP S:DV DU=+ DO(2),D=.0 1 I DV["V" D V G Q
1661	"RTN","DIE Q",20,0)
1662	D I DV["D" S %(0)=0, %("X")=$P( DQ(DQ),U,5 ,9) I DV'[ "t" D DT^D IEH1($P($P (%("X"),"% DT=""",2), """"),1) ; ONCE WAS A CALL TO H ELP^%DTC ; p5
1663	"RTN","DIE Q",21,0)
1664	;.I %("X" )="" S %(" X")=$$GETM ETH^DIETLI BF(DU,D,"I NPUT TRANS FORM") ;p5
1665	"RTN","DIE Q",22,0)
1666	S I DV["S" D:'$G(DIS ORT) SETSC R^DIR(DU,D ) S A1="T" ,DST=$$EZB LD^DIALOG( 8068)_" " D DS D K DIC("S")
1667	"RTN","DIE Q",23,0)
1668	.N A,A1,A 2
1669	"RTN","DIE Q",24,0)
1670	.S A=$P(D Q(DQ),U,3) I DV["t" S DG=$$GET PROP^DIETL IBF(DU,D," SET OF COD ES") I DG] "" S A=DG
1671	"RTN","DIE Q",25,0)
1672	.I $G(DUZ ("LANG"))> 1,A=$P(^DD (DP,D,0),U ,3) S A=$$ SETIN^DIAL OGZ_";" ;N AKED
1673	"RTN","DIE Q",26,0)
1674	.F DG=1:1 S Y=$P(A, ";",DG) Q: Y="" S D= $P(Y,":",2 ),Y=$P(Y," :") I 1 X: $D(DIC("S" )) DIC("S" ) I S A2= "",$P(A2," ",15-($L( Y)+7))=" " ,DST=" "_ Y_A2_" "_D D DS
1675	"RTN","DIE Q",27,0)
1676	Q K DO,DST ,A1 S:$D(D IE) DIC=DI E S D=0 I $D(DDH)>10 D LIST^DD SU ;p10
1677	"RTN","DIE Q",28,0)
1678	D:DV UDA
1679	"RTN","DIE Q",29,0)
1680	Q
1681	"RTN","DIE Q",30,0)
1682	;
1683	"RTN","DIE Q",31,0)
1684	;
1685	"RTN","DIE Q",32,0)
1686	;
1687	"RTN","DIE Q",33,0)
1688	N F Q:X=" " F %=$L( X," "):-1: 1 I $L($P( X," ",1,%) )<75 S DST =$P(X," ", 1,%) D DS D:X'="" N1 Q
1689	"RTN","DIE Q",34,0)
1690	S X=DZ
1691	"RTN","DIE Q",35,0)
1692	Q
1693	"RTN","DIE Q",36,0)
1694	;
1695	"RTN","DIE Q",37,0)
1696	N1 S X=$P( X," ",%+1, $L(X," ")) Q
1697	"RTN","DIE Q",38,0)
1698	;
1699	"RTN","DIE Q",39,0)
1700	DS S:'$D(A 1) A1="T" S DDH=$G(D DH)+1,DDH( DDH,A1)=$S (A1="X":"" ,1:" " )_DST K A1 ,DST Q
1701	"RTN","DIE Q",40,0)
1702	;
1703	"RTN","DIE Q",41,0)
1704	HP I $D(DQ (DQ,3)) S A1="T",DST =DQ(DQ,3) D DS
1705	"RTN","DIE Q",42,0)
1706	I $D(DQ(D Q,4)) S A1 ="X",DST=D Q(DQ,4) D DS
1707	"RTN","DIE Q",43,0)
1708	Q
1709	"RTN","DIE Q",44,0)
1710	;
1711	"RTN","DIE Q",45,0)
1712	% S %=$G(D IC("V")) K DIC S:%]" " DIC("V") =% Q
1713	"RTN","DIE Q",46,0)
1714	;
1715	"RTN","DIE Q",47,0)
1716	AST S:$D(X )[0 X="?" X $P(DQ(DQ ),U,5,99) K DIC G Q
1717	"RTN","DIE Q",48,0)
1718	D ^DIC K DIC,DICS,D ICW G Q
1719	"RTN","DIE Q",49,0)
1720	;
1721	"RTN","DIE Q",50,0)
1722	M ;COME HE RE FROM EN 1 ABOVE WH EN WE'RE I N A MULTIP LE FIELD
1723	"RTN","DIE Q",51,0)
1724	K DO S DZ =X,DIC=DIE _DA_","_$S (+$P(DC,U, 3)=$P(DC,U ,3):$P(DC, U,3),1:$C( 34)_$P(DC, U,3)_$C(34 ))_",",D=" B",DIC(0)= "LM",DZ(1) =0
1725	"RTN","DIE Q",52,0)
1726	I '$D(@(D IC_"0)")) S DO=U_$P( DC,U,2) D DO2^DIC1
1727	"RTN","DIE Q",53,0)
1728	D:'$D(DO) DO^DIC1
1729	"RTN","DIE Q",54,0)
1730	D DDA,DQ^ DICQ D % G Q:'$D(DZ) !(DV["S") S X=DZ G P
1731	"RTN","DIE Q",55,0)
1732	;
1733	"RTN","DIE Q",56,0)
1734	H I '$G(DI SORT) D Q :'$D(DZ)
1735	"RTN","DIE Q",57,0)
1736	. I $G(DV )["t" S DS T=$$XHELP^ DIETLIBF(D P,D)
1737	"RTN","DIE Q",58,0)
1738	. E S DS T=$G(^DD(D P,D,4))
1739	"RTN","DIE Q",59,0)
1740	. I DST'? ."^" S A1= "X" D DS,L IST^DDSU
1741	"RTN","DIE Q",60,0)
1742	I $G(X)?1 "??".E,X'[ "BAD" D
1743	"RTN","DIE Q",61,0)
1744	. N DIDG, DG,DDD,DD, DIY,DIZ,DU OUT
1745	"RTN","DIE Q",62,0)
1746	. S DIDG= $P($G(^DD( DP,D,21,0) ),U,3)
1747	"RTN","DIE Q",63,0)
1748	. K DDSQ
1749	"RTN","DIE Q",64,0)
1750	. I '$D(D DS) S DDD= 5,DD="",DI Y=99,DIZ=2 1 I $G(DIP GM)'="DICQ 1" N DIPGM S DIPGM=" DIEQ" D Z^ DDSU
1751	"RTN","DIE Q",65,0)
1752	. F DG=1: 1 Q:'$D(^D D(DP,D,21, DG,0)) Q: +DIDG&(DG> DIDG) D Q:$D(DDSQ)
1753	"RTN","DIE Q",66,0)
1754	. . I '($ G(DDH)#15) D LIST^DD SU I $G(DT OUT)!($G(D UOUT)) S D DSQ=1
1755	"RTN","DIE Q",67,0)
1756	. . Q:$D( DDSQ)
1757	"RTN","DIE Q",68,0)
1758	. . S DDH =$G(DDH)+1 ,DDH(DDH," T")=^DD(DP ,D,21,DG,0 ) ;S DST=^ DD(DP,D,21 ,DG,0) D D S Q ;GRAB DESCRIPTI ON NODE BY NODE
1759	"RTN","DIE Q",69,0)
1760	. I '$D(D DSQ) Q:$D( DDH)'>10 D LIST^DDS U
1761	"RTN","DIE Q",70,0)
1762	. I $D(DD SQ) K DDSQ ,DDH
1763	"RTN","DIE Q",71,0)
1764	. Q
1765	"RTN","DIE Q",72,0)
1766	Q
1767	"RTN","DIE Q",73,0)
1768	;
1769	"RTN","DIE Q",74,0)
1770	BK S DDH=$ G(DDH)+1,D DH(DDH,"T" )=" " Q
1771	"RTN","DIE Q",75,0)
1772	;
1773	"RTN","DIE Q",76,0)
1774	V S DDH=+$ G(DDH),A1= "T",DST=$$ EZBLD^DIAL OG(8071) D DS
1775	"RTN","DIE Q",77,0)
1776	EGP F Y=0: 0 S Y=$O(^ DD(DU,D,"V ",Y)) Q:Y' >0 I $D(^ (Y,0)) S Y (0)=^(0) X :$D(DIC("V ")) DIC("V ") I I $D (^DIC(+Y(0 ),0)) S Y( 1)=$P(Y(0) ,U,4),Y(2) =$$FILENAM E^DIALOGZ( +Y(0)),DST =$$EZBLD^D IALOG(8072 ,.Y) K Y(1 ),Y(2) D D S ;**CCO/N I V-P FILE NAMES
1777	"RTN","DIE Q",78,0)
1778	D BK S DS T=$$EZBLD^ DIALOG(807 3) D DS S DU="" D BK I DZ'?1"? ?".E K X,D Z Q
1779	"RTN","DIE Q",79,0)
1780	D T^DIEQ1 K X,DZ Q
1781	"RTN","DIE Q",80,0)
1782	;
1783	"RTN","DIE Q",81,0)
1784	DDA N T,%
1785	"RTN","DIE Q",82,0)
1786	S T=$T
1787	"RTN","DIE Q",83,0)
1788	F %=+$O(D A(" "),-1) :-1:1 K DA (%+1) S:$D (DA(%))#2 DA(%+1)=DA (%)
1789	"RTN","DIE Q",84,0)
1790	K DA(1) S :$D(DA)#2 DA(1)=DA
1791	"RTN","DIE Q",85,0)
1792	I T
1793	"RTN","DIE Q",86,0)
1794	Q
1795	"RTN","DIE Q",87,0)
1796	;
1797	"RTN","DIE Q",88,0)
1798	UDA N T,%
1799	"RTN","DIE Q",89,0)
1800	S T=$T
1801	"RTN","DIE Q",90,0)
1802	S DA=$G(D A(1)) ;K D A(1)
1803	"RTN","DIE Q",91,0)
1804	F %=2:1:+ $O(DA(" ") ,-1) I $D( DA(%))#2 S DA(%-1)=D A(%) K DA( %)
1805	"RTN","DIE Q",92,0)
1806	I T
1807	"RTN","DIE Q",93,0)
1808	Q
1809	"RTN","DIE Q",94,0)
1810	;
1811	"RTN","DIE Q",95,0)
1812	;#8071 E nter one o f the foll owing
1813	"RTN","DIE Q",96,0)
1814	;#8072 \| Prefix\|.En tryName to select a \|filename\|
1815	"RTN","DIE Q",97,0)
1816	;#8073 T o see the entries in any parti cular file type <Pre fix.?>
1817	"RTN","DIF MEDT1")
1818	0^7^B32050 89
1819	"RTN","DIF MEDT1",1,0 )
1820	DIFMEDT1 ; O-OIFO/BI - FM23 Ext ensible Da ta Types ; 27-Oct-201 5
1821	"RTN","DIF MEDT1",2,0 )
1822	;;22.2;VA FileMan;* 2,10*;Ja n 05, 2016 ;Build 13
1823	"RTN","DIF MEDT1",3,0 )
1824	;;Per VA Directive 6402, this routine s hould not be modifie d.
1825	"RTN","DIF MEDT1",4,0 )
1826	0 ;
1827	"RTN","DIF MEDT1",5,0 )
1828	S DIC="^D OPT(""DIFM EDT"","
1829	"RTN","DIF MEDT1",6,0 )
1830	G OPT:$D( ^DOPT("DIF MEDT",3)) S ^(0)="EX TENSIBLE D ATA TYPE O PTIONS^1.0 1" K ^("B" )
1831	"RTN","DIF MEDT1",7,0 )
1832	F X=1:1:3 S ^DOPT(" DIFMEDT",X ,0)=$P($T( @X),";;",2 )
1833	"RTN","DIF MEDT1",8,0 )
1834	S DIK=DIC D IXALL^D IK
1835	"RTN","DIF MEDT1",9,0 )
1836	OPT ;
1837	"RTN","DIF MEDT1",10, 0)
1838	S DIC(0)= "AEQIZ" D ^DIC G Q:Y <0 S DI=+Y D EN G 0
1839	"RTN","DIF MEDT1",11, 0)
1840	;
1841	"RTN","DIF MEDT1",12, 0)
1842	EN ;Entry point for all option s
1843	"RTN","DIF MEDT1",13, 0)
1844	D @DI W ! !
1845	"RTN","DIF MEDT1",14, 0)
1846	Q K %,DI,D IC,DIK,X,Y Q
1847	"RTN","DIF MEDT1",15, 0)
1848	;
1849	"RTN","DIF MEDT1",16, 0)
1850	1 ;;ENTER OR EDIT DA TA TYPE FI LE
1851	"RTN","DIF MEDT1",17, 0)
1852	G ENP81^D IFMEDT1
1853	"RTN","DIF MEDT1",18, 0)
1854	;
1855	"RTN","DIF MEDT1",19, 0)
1856	2 ;;ENTER OR EDIT DA TA TYPE ME THOD FILE
1857	"RTN","DIF MEDT1",20, 0)
1858	G ENP87^D IFMEDT1
1859	"RTN","DIF MEDT1",21, 0)
1860	;
1861	"RTN","DIF MEDT1",22, 0)
1862	3 ;;ENTER OR EDIT DA TA TYPE PR OPERTY FIL E
1863	"RTN","DIF MEDT1",23, 0)
1864	G ENP86^D IFMEDT1
1865	"RTN","DIF MEDT1",24, 0)
1866	;
1867	"RTN","DIF MEDT1",25, 0)
1868	;
1869	"RTN","DIF MEDT1",26, 0)
1870	ENP81 ; En try Point to Enter o r Edit DAT A TYPE FIL E (#.81)
1871	"RTN","DIF MEDT1",27, 0)
1872	D MAIN(.8 1) Q
1873	"RTN","DIF MEDT1",28, 0)
1874	;
1875	"RTN","DIF MEDT1",29, 0)
1876	ENP86 ; En try Point to Enter o r Edit DAT A TYPE PRO PERTY FILE (#.86)
1877	"RTN","DIF MEDT1",30, 0)
1878	D MAIN(.8 6) Q
1879	"RTN","DIF MEDT1",31, 0)
1880	;
1881	"RTN","DIF MEDT1",32, 0)
1882	ENP87 ; En try Point to Enter o r Edit DAT A TYPE MET HOD FILE ( #.87)
1883	"RTN","DIF MEDT1",33, 0)
1884	D MAIN(.8 7) Q
1885	"RTN","DIF MEDT1",34, 0)
1886	;
1887	"RTN","DIF MEDT1",35, 0)
1888	MAIN(FILE) ; Private Entry Poi nt
1889	"RTN","DIF MEDT1",36, 0)
1890	N DIC,DIR ,SCREEN,Y
1891	"RTN","DIF MEDT1",37, 0)
1892	S SCREEN= 0
1893	"RTN","DIF MEDT1",38, 0)
1894	;
1895	"RTN","DIF MEDT1",39, 0)
1896	; Ask abo ut using S creen-Mode
1897	"RTN","DIF MEDT1",40, 0)
1898	S DIR(0)= "Y"
1899	"RTN","DIF MEDT1",41, 0)
1900	S DIR("A" )="Do you want to us e the scre en-mode ve rsion"
1901	"RTN","DIF MEDT1",42, 0)
1902	S DIR("B" )="YES"
1903	"RTN","DIF MEDT1",43, 0)
1904	D ^DIR
1905	"RTN","DIF MEDT1",44, 0)
1906	S:Y>0 SCR EEN=1
1907	"RTN","DIF MEDT1",45, 0)
1908	;
1909	"RTN","DIF MEDT1",46, 0)
1910	SELECT ; P rivate Loo p for user input
1911	"RTN","DIF MEDT1",47, 0)
1912	; Select Prompt
1913	"RTN","DIF MEDT1",48, 0)
1914	S DIC="^D I("_FILE_" ,",DIC(0)= "AELMQ" D ^DIC
1915	"RTN","DIF MEDT1",49, 0)
1916	;
1917	"RTN","DIF MEDT1",50, 0)
1918	; Exit if nothing i s selected
1919	"RTN","DIF MEDT1",51, 0)
1920	Q:Y<1
1921	"RTN","DIF MEDT1",52, 0)
1922	;
1923	"RTN","DIF MEDT1",53, 0)
1924	; Use Scr een-Mode
1925	"RTN","DIF MEDT1",54, 0)
1926	D:SCREEN
1927	"RTN","DIF MEDT1",55, 0)
1928	. N DIC,D IE,DR,DA,D DSPARM,DDS FILE,DDSPA GE
1929	"RTN","DIF MEDT1",56, 0)
1930	. S DA=+Y ,DDSFILE=F ILE,DR="[D IP"_$P(FIL E,".",2)_" S]",DDSPAG E=1
1931	"RTN","DIF MEDT1",57, 0)
1932	. D ^DDS
1933	"RTN","DIF MEDT1",58, 0)
1934	;
1935	"RTN","DIF MEDT1",59, 0)
1936	; Use Rol l-And-Scro ll Mode
1937	"RTN","DIF MEDT1",60, 0)
1938	D:'SCREEN
1939	"RTN","DIF MEDT1",61, 0)
1940	. S DIE=" ^DI("_FILE _",",DA=+Y ,DR="[DIP" _$P(FILE," .",2)_"IT] " D ^DIE
1941	"RTN","DIF MEDT1",62, 0)
1942	. W !!
1943	"RTN","DIF MEDT1",63, 0)
1944	G SELECT
1945	"RTN","DIF MEDT1",64, 0)
1946	Q
1947	"RTN","DII 1")
1948	0^6^B22409 76
1949	"RTN","DII 1",1,0)
1950	DII1 ;SFIS C/XAK-OTHE R OPTIONS ;7/25/96 14:15
1951	"RTN","DII 1",2,0)
1952	;;22.2;VA FileMan;* 8,10*;Ja n 05, 2016 ;Build 13
1953	"RTN","DII 1",3,0)
1954	;;Per VA Directive 6402, this routine s hould not be modifie d.
1955	"RTN","DII 1",4,0)
1956	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
1957	"RTN","DII 1",5,0)
1958	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
1959	"RTN","DII 1",6,0)
1960	;;License d under th e terms of the Apach e License, Version 2 .0.
1961	"RTN","DII 1",7,0)
1962	;
1963	"RTN","DII 1",8,0)
1964	0 S DIC="^ DOPT(""DII 1"","
1965	"RTN","DII 1",9,0)
1966	G OPT:$D( ^DOPT("DII 1",11)) S ^(0)="OTHE R OPTION^1 .01" K ^(" B")
1967	"RTN","DII 1",10,0)
1968	F X=1:1:1 1 S ^DOPT( "DII1",X,0 )=$P($T(@X ),";;",2)
1969	"RTN","DII 1",11,0)
1970	S DIK=DIC D IXALL^D IK
1971	"RTN","DII 1",12,0)
1972	OPT ;
1973	"RTN","DII 1",13,0)
1974	S DIC(0)= "AEQIZ" D ^DIC G Q:Y <0 S DI=+Y D EN G 0
1975	"RTN","DII 1",14,0)
1976	;
1977	"RTN","DII 1",15,0)
1978	EN ;
1979	"RTN","DII 1",16,0)
1980	D @DI W ! !
1981	"RTN","DII 1",17,0)
1982	Q K %,DIC, DIK,DI,DA, I,J,X,Y Q
1983	"RTN","DII 1",18,0)
1984	;
1985	"RTN","DII 1",19,0)
1986	1 ;;FILEGR AMS
1987	"RTN","DII 1",20,0)
1988	G ^DIFGO
1989	"RTN","DII 1",21,0)
1990	;
1991	"RTN","DII 1",22,0)
1992	2 ;;ARCHIV ING
1993	"RTN","DII 1",23,0)
1994	G NOKL^DI AR
1995	"RTN","DII 1",24,0)
1996	;
1997	"RTN","DII 1",25,0)
1998	3 ;;AUDITI NG
1999	"RTN","DII 1",26,0)
2000	G ^DIAU
2001	"RTN","DII 1",27,0)
2002	;
2003	"RTN","DII 1",28,0)
2004	4 ;;SCREEN MAN
2005	"RTN","DII 1",29,0)
2006	G ^DDSOPT
2007	"RTN","DII 1",30,0)
2008	;
2009	"RTN","DII 1",31,0)
2010	5 ;;STATIS TICS
2011	"RTN","DII 1",32,0)
2012	G ^DIX
2013	"RTN","DII 1",33,0)
2014	;
2015	"RTN","DII 1",34,0)
2016	6 ;;EXTRAC T DATA TO FILEMAN FI LE
2017	"RTN","DII 1",35,0)
2018	G ^DIAX
2019	"RTN","DII 1",36,0)
2020	;
2021	"RTN","DII 1",37,0)
2022	7 ;;DATA E XPORT TO F OREIGN FOR MAT
2023	"RTN","DII 1",38,0)
2024	G NOKL^DD XP
2025	"RTN","DII 1",39,0)
2026	;
2027	"RTN","DII 1",40,0)
2028	8 ;;IMPORT DATA
2029	"RTN","DII 1",41,0)
2030	G EN^DDMP U
2031	"RTN","DII 1",42,0)
2032	;
2033	"RTN","DII 1",43,0)
2034	9 ;;BROWSE R
2035	"RTN","DII 1",44,0)
2036	G ^DDBR
2037	"RTN","DII 1",45,0)
2038	;
2039	"RTN","DII 1",46,0)
2040	10 ;;DATA ACCESS CON TROL
2041	"RTN","DII 1",47,0)
2042	G ^DIACOP T
2043	"RTN","DII 1",48,0)
2044	;
2045	"RTN","DII 1",49,0)
2046	11 ;;DATA TYPE OPTIO NS
2047	"RTN","DII 1",50,0)
2048	G ^DIFMED T1
2049	"RTN","DIN IT4")
2050	0^5^B12872 917
2051	"RTN","DIN IT4",1,0)
2052	DINIT4 ;SF ISC/GFT-IN ITIALIZE V A FILEMAN ;24SEP2009
2053	"RTN","DIN IT4",2,0)
2054	;;22.2;VA FileMan;* 10*;Jan 05, 2016;B uild 13
2055	"RTN","DIN IT4",3,0)
2056	;;Per VA Directive 6402, this routine s hould not be modifie d.
2057	"RTN","DIN IT4",4,0)
2058	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
2059	"RTN","DIN IT4",5,0)
2060	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
2061	"RTN","DIN IT4",6,0)
2062	;;License d under th e terms of the Apach e License, Version 2 .0.
2063	"RTN","DIN IT4",7,0)
2064	;
2065	"RTN","DIN IT4",8,0)
2066	DD F I=1:1 S X=$E($T (DD+I),4,9 99) G ^DIN IT41:X?.P S ^DD("FUN C",I,0)=$P (X,";",1), Y=1 F DU=1 ,2,3,9,10 S Y=Y+1 I $P(X,";",Y )]"" S ^(D U)=$P(X,"; ",Y)
2067	"RTN","DIN IT4",9,0)
2068	;;SQUARER OOT;D SQR^ DIXC S X=$ S(X'>0:"", 1:Y);;;
2069	"RTN","DIN IT4",10,0)
2070	;;TIME;S X=$E($P(X, ".",2)_"00 00",1,4),% =X>1159 S: X>1259 X=X -1200 S X= X\100_":"_ $E(X#100+1 00,2,3)_" "_$E("AP", %+1)_"M";; ;
2071	"RTN","DIN IT4",11,0)
2072	;;MONTH;S X=$E(X,1, 5)_0_0 S:' X X="";D^D ;;
2073	"RTN","DIN IT4",12,0)
2074	;;YEAR;S X=$E(X,1,3 )_"0000" S :'X X="";D ^D;;
2075	"RTN","DIN IT4",13,0)
2076	;;DATE;S X=$P(X,"." ,1);D^D;;
2077	"RTN","DIN IT4",14,0)
2078	;;DAYOFWE EK;D DW^%D TC;^D;;
2079	"RTN","DIN IT4",15,0)
2080	;;CLOSE
2081	"RTN","DIN IT4",16,0)
2082	;;ABS;S:X <0 X=-X;;;
2083	"RTN","DIN IT4",17,0)
2084	;;INTERNA L;S X=X;;;
2085	"RTN","DIN IT4",18,0)
2086	;;MAX;S:X 1>X X=X1;O ;2;MAXIMUM OF 2 VALU ES
2087	"RTN","DIN IT4",19,0)
2088	;;MIN;S:X 1<X X=X1;O ;2;MINIMUM OF TWO VA LUES
2089	"RTN","DIN IT4",20,0)
2090	;;REVERSE ;S X=$RE(X );;;DATA C HARACTERS IN RIGHT-T O-LEFT ORD ER
2091	"RTN","DIN IT4",21,0)
2092	;;UPPERCA SE;S X=$$U P^DILIBF(X );;;
2093	"RTN","DIN IT4",22,0)
2094	;;LOWERCA SE;X "F %= 2:1:$L(X) I $E(X,%)? 1U,$E(X,%- 1)?1A S X= $E(X,0,%-1 )_$C($A(X, %)+32)_$E( X,%+1,999) ";;;
2095	"RTN","DIN IT4",23,0)
2096	;;CENTER; S X=$J("", $S($D(DIWR )+$D(DIWL) =2:DIWR-DI WL+1,$D(IO M):IOM,1:8 0)-$L(X)\2 -$X)_X;;;; W
2097	"RTN","DIN IT4",24,0)
2098	;;UNDERLI NE;S %="", Y=$S($D(IO ST)[0:-1,$ A(IOST)-80 :-1,1:$L(X )<83) X:Y+ 1 "F Y=1:1 :$L(X) "_$ S(Y:"S %=$ C(8)_%",1: "W $E(X,Y) ,$C(8)")_" _""_""" S: Y+1 X=$S(% ]"":X_%,1: %);;;UNDER LINE (ARG) IF OUTPUT TING TO A PRINTER DE VICE;W
2099	"RTN","DIN IT4",25,0)
2100	;;PAGEFEE D;S %Y=1,% =$S($D(DIW F):$F(DIWF ,"B"),1:0) X:% "F %Y =%:1 Q:$E( DIWF,%Y)'? 1N" S:$D(D IWF) DIWF= $E(DIWF,1, %-2)_$E(DI WF,%Y,999) _"B"_(X\1) X:X>(IOSL -$Y)&$D(^U TILITY($J, 1))&'$D(^( "W"))&'$D( DIWF) ^(1) S X="";;; START NEW PAGE IF <A RG LINES L EFT;W
2101	"RTN","DIN IT4",26,0)
2102	;;BREAKAB LE;D:'$D(D ISYS) OS^D II X ^DD(" OS",DISYS, 1);;;OUTPU T DEVICE C AN BE INTE RRUPTED IF ARGUMENT IS NON-ZER O
2103	"RTN","DIN IT4",27,0)
2104	;;NUMMONT H;S X=+$E( X,4,5);^D; ;MONTH NUM BER (0-12) FOR A DAT E
2105	"RTN","DIN IT4",28,0)
2106	;;NUMDAY; S X=+$E(X, 6,7);^D;;D AY NUMBER (0-31) FOR A DATE
2107	"RTN","DIN IT4",29,0)
2108	;;NUMYEAR ;S:X X=$E( X,2,3);^D; ;YEAR NUMB ER (00-99) FOR A DAT E
2109	"RTN","DIN IT4",30,0)
2110	;;NUMDATE ;S:X X=$E( X,4,5)_"/" _$E(X,6,7) _"/"_$E(X, 2,3);^D;;D ATE IN 'NN /NN/NN' FO RMAT
2111	"RTN","DIN IT4",31,0)
2112	;;REPLACE ;X "F %=0: 0 S %=$F(X 2,X1,%) Q: %<2 S X2= $E(X2,1,%- $L(X1)-1)_ X_$E(X2,%, 999),%=%-$ L(X1)+$L(X )" S X=X2; ;3;THE 1ST ARGUMENT, WITH ALL OCCURRENCE S OF THE 2 ND ARGUMEN T REPLACED BY THE 3R D
2113	"RTN","DIN IT4",32,0)
2114	;;NOW;N % I,%H,% D N OW^%DTC S X=%;D;0;CU RRENT DATE /TIME
2115	"RTN","DIN IT4",33,0)
2116	;;TODAY;N %I,%H,% D NOW^%DTC; D;0;CURREN T DATE
2117	"RTN","DIN IT4",34,0)
2118	;;PAGE;S X=$G(DC);; 0;PAGE NUM BER (OF OU TPUT)
2119	"RTN","DIN IT4",35,0)
2120	;;SETTAB; S DIWT=X,X ="" F %=1: 1 S Y="X"_ % Q:'$D(@Y ) S DIWT= @Y_","_DIW T;;VARIABL E;SET TAB STOPS;W
2121	"RTN","DIN IT4",36,0)
2122	;;RIGHT-J USTIFY;S X ="" S:'$D( DIWF) DIWF ="" S:DIWF '["R" DIWF =DIWF_"R"; ;0;;W
2123	"RTN","DIN IT4",37,0)
2124	;;DOUBLE- SPACE;S X= "" S:'$D(D IWF) DIWF= "" S:DIWF' ["D" DIWF= DIWF_"D";; 0;;W
2125	"RTN","DIN IT4",38,0)
2126	;;SINGLE- SPACE;S:'$ D(DIWF) DI WF="" S X= "",DIWF=$P (DIWF,"D", 1)_$P(DIWF ,"D",2);;0 ;;W
2127	"RTN","DIT P")
2128	0^3^B18223 422
2129	"RTN","DIT P",1,0)
2130	DITP ;SFIS C/GFT-TRAN SFER POINT ERS ;17MAY 2005
2131	"RTN","DIT P",2,0)
2132	;;22.2;VA FileMan;* 10*;Jan 05, 2016;B uild 13
2133	"RTN","DIT P",3,0)
2134	;;Per VA Directive 6402, this routine s hould not be modifie d.
2135	"RTN","DIT P",4,0)
2136	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
2137	"RTN","DIT P",5,0)
2138	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
2139	"RTN","DIT P",6,0)
2140	;;License d under th e terms of the Apach e License, Version 2 .0.
2141	"RTN","DIT P",7,0)
2142	;
2143	"RTN","DIT P",8,0)
2144	D ASK Q:% -1 G PTS
2145	"RTN","DIT P",9,0)
2146	;
2147	"RTN","DIT P",10,0)
2148	ASK ;
2149	"RTN","DIT P",11,0)
2150	I '$D(^UT ILITY("DIT ",$J,0,1)) S %=2 Q
2151	"RTN","DIT P",12,0)
2152	S %=$O(^( 1)),%Y=+^( 1) S:%="" %=-1
2153	"RTN","DIT P",13,0)
2154	U I $D(^DD (%Y,0,"UP" )) S %Y=^( "UP") G U
2155	"RTN","DIT P",14,0)
2156	W !,"SINC E THE "_$P ("TRANSFER RED^DELETE D",U,DH+1) _" ENTRY M AY HAVE BE EN 'POINTE D TO'"
2157	"RTN","DIT P",15,0)
2158	W !,"BY E NTRIES IN THE '"_$P( ^DIC(+%Y,0 ),U,1)_"' FILE," W:% >1 " ETC., "
2159	"RTN","DIT P",16,0)
2160	Q W !,"DO YOU WANT T HOSE POINT ERS UPDATE D (WHICH C OULD TAKE QUITE A WH ILE)"
2161	"RTN","DIT P",17,0)
2162	S %=2 D Y N^DICN Q:%
2163	"RTN","DIT P",18,0)
2164	W !?4,"AN SWER 'YES' IF YOU TH INK THAT T HE ENTRY W HICH YOU H AVE JUST " _$P("MOVED ^DELETED", U,DH+1),!? 4,"MAY BE 'POINTED T O' BY SOME POINTER-T YPE FIELD VALUE SOME WHERE",!
2165	"RTN","DIT P",19,0)
2166	G Q
2167	"RTN","DIT P",20,0)
2168	;
2169	"RTN","DIT P",21,0)
2170	;
2171	"RTN","DIT P",22,0)
2172	;
2173	"RTN","DIT P",23,0)
2174	;
2175	"RTN","DIT P",24,0)
2176	EN(DIFILE, DILIST) ;I F THERE AR E POINTERS TO FILE ' DIFILE', G O THRU THE DILIST AN D CHANGE T HE POINTER S
2177	"RTN","DIT P",25,0)
2178	K ^UTILIT Y("DIT",$J )
2179	"RTN","DIT P",26,0)
2180	N Y,DIA,D TO,DL
2181	"RTN","DIT P",27,0)
2182	S (DIA("P "),Y)=DIFI LE,(DIA,DT O)=$G(^DIC (+DIFILE,0 ,"GL")) I DTO="" W " ERROR in s pecificati on" Q ;,D IA(1)=FROM
2183	"RTN","DIT P",28,0)
2184	D PTS^DIT
2185	"RTN","DIT P",29,0)
2186	S X=0 F Y =0:0 S Y=$ O(DILIST(Y )) Q:'Y S %=$P(DILI ST(Y),U,2) D I '$D( X) W "ERRO R in speci fication" G END
2187	"RTN","DIT P",30,0)
2188	.I '%,"@" '[% K X Q
2189	"RTN","DIT P",31,0)
2190	.I %,'$D( @(DTO_"%)" )) K X Q
2191	"RTN","DIT P",32,0)
2192	.S X=X+1, ^UTILITY(" DIT",$J,+D ILIST(Y))= %_";"_$E(D TO,2,99)
2193	"RTN","DIT P",33,0)
2194	I X D P
2195	"RTN","DIT P",34,0)
2196	END K ^UTI LITY("DIT" ,$J)
2197	"RTN","DIT P",35,0)
2198	Q
2199	"RTN","DIT P",36,0)
2200	;
2201	"RTN","DIT P",37,0)
2202	PTS ;
2203	"RTN","DIT P",38,0)
2204	D WAIT^DI CD K IOP
2205	"RTN","DIT P",39,0)
2206	;At this point, e.g .^UTILITY( "DIT",$J,0 ,1)=801.41 ^15^V
2207	"RTN","DIT P",40,0)
2208	;and ^UTI LITY("DIT" ,$J,38)="1 03;AUTTIMM (" meanin g that poi nters to e ntry 38 in ^AUTTIMM are being moved to 1 03
2209	"RTN","DIT P",41,0)
2210	P F S X=$ O(^UTILITY ("DIT",$J, 0,0)) Q:X= "" S Y=^U TILITY("DI T",$J,0,X) ,L=$P(Y,U, 2) K ^(X) D 1(+Y,L,. DTO) ;KILL NODES AS WE PROCESS THEM
2211	"RTN","DIT P",42,0)
2212	K ^UTILIT Y("DIT",$J ) Q
2213	"RTN","DIT P",43,0)
2214	;
2215	"RTN","DIT P",44,0)
2216	1(DIPFILE, DIPFIELD,D TO) ;CALL DIP PRINT MODULE ONC E TO GO TH RU CHANGIN G ONE FIEL D'S VALUE. 'DTO' IS ROOT OF F ILE BEING POINTED TO .
2217	"RTN","DIT P",45,0)
2218	N DIPVP,D L,L,DHD,DI A,BY,DITPY ,DR,D,X,FL DS,DIOBEG, FR,TO,DIST OP,DIOBEG
2219	"RTN","DIT P",46,0)
2220	S (BY,FR, TO)="",DIP VP=$P(^DD( DIPFILE,DI PFIELD,0), U,2)["V" Q :$P(^(0),U ,2) ;A MU LTIPLE CAN 'T POINT
2221	"RTN","DIT P",47,0)
2222	S DL=1,DL (1)=DIPFIE LD_"////^D STUFF^DIT P("_(DIPVP )_")"
2223	"RTN","DIT P",48,0)
2224	;S X=$S($ D(DE(DQ))[ 0:"""",$D( ^UTILITY(" "DIT"",$J, DE(DQ)))-1 :"""",^(DE (DQ)):"_$S ($P(Y,U,3) '["V":"+", 1:"")_"^(D E(DQ)),1:" "@"") I X] """",$G(DI FIXPT)=1 D PTRPT^DIT P" K ^(X)
2225	"RTN","DIT P",49,0)
2226	S L=$P(^D D(DIPFILE, DIPFIELD,0 ),U,4),%=$ P(L,";",2) ,L=""""_$P (L,";",1)_ """",DHD=$ P(^(0),U) I % S %="$ P(^("_L_") ,U,"_%_")"
2227	"RTN","DIT P",50,0)
2228	E S %="$ E(^("_L_") ,"_+$E(%,2 ,9)_","_$P (%,",",2)_ ")"
2229	"RTN","DIT P",51,0)
2230	S L=L_")) :"""","_%_ "?."" "":" ""","
2231	"RTN","DIT P",52,0)
2232	I DIPVP,D TO]"" S L= L_"$P("_%_ ","";"",2) '="""_$E(D TO,2,99)_" "":"""","
2233	"RTN","DIT P",53,0)
2234	S L=L_"'$ D(^UTILITY (""DIT"",$ J,+"_%_")) :"""","
2235	"RTN","DIT P",54,0)
2236	UP S (D(DL ),%)=+Y I $D(^DD(%,0 ,"UP")) S DL=DL+1,Y= ^("UP"),(D L(DL),%)=$ O(^DD(Y,"S B",%,0))_" ///",X(DL) =""""_$P($ P(^DD(Y,+% ,0),U,4)," ;")_"""",B Y=+%_","_B Y G UP
2237	"RTN","DIT P",55,0)
2238	S DHD=$O( ^("NM",0)) _" entries whose '"_ DHD_"' poi nters have been chan ged"
2239	"RTN","DIT P",56,0)
2240	Q:'$D(^DI C(%,0,"GL" )) S DIC= ^("GL"),DI TPY="S X=$ S('$D("_DI C_"D0,"
2241	"RTN","DIT P",57,0)
2242	F X=0:1:D L-1 S DR(X +1,D(DL-X) )=DL(DL-X) S:X DITPY =DITPY_X(D L+1-X)_",D "_X_","
2243	"RTN","DIT P",58,0)
2244	S DIA("P" )=%,%=$L(B Y,",") I % >2 S BY=$P (BY,",",%- 2)_",.01," _BY
2245	"RTN","DIT P",59,0)
2246	S DITPY=D ITPY_L_"1: D"_X_")",B Y=BY_"X DI TPY;@"
2247	"RTN","DIT P",60,0)
2248	;Now DITP Y=e.g. S X =$S('$D(^A UPNVIMM(D0 ,"0")):"", $P(^("0"), U,1)?." ": "",'$D(^UT ILITY("DIT ",$J,+$P(^ ("0"),U,1) )):"",1:D0 )
2249	"RTN","DIT P",61,0)
2250	S L=0,FLD S="",DISTO P=0,DHIT=" N DIFIXPT G LOOP^DIA 2",%ZIS="" ,DIOBEG="W !!" ;It w ill happen in DIA2
2251	"RTN","DIT P",62,0)
2252	I $G(DIQU IET) K DIO BEG S DIFI XPT=1 ;DHD ="@@"
2253	"RTN","DIT P",63,0)
2254	D EN1^DIP
2255	"RTN","DIT P",64,0)
2256	IOP S IOP= $S($G(IOS) :"`"_IOS,1 :$G(IO)) Q ;KEEP TH E SAME OUT PUT DEVICE AS WE GO THRU DIFFE RENT 'PRIN TINGS'
2257	"RTN","DIT P",65,0)
2258	;
2259	"RTN","DIT P",66,0)
2260	STUFF(VP) ;VP=BOOLEA N
2261	"RTN","DIT P",67,0)
2262	S X="" Q: $G(DE(DQ)) =""
2263	"RTN","DIT P",68,0)
2264	N % S %=D E(DQ) Q:'% !'$D(^UTIL ITY("DIT", $J,+%)) ; ^UTILITY(" DIT",$J,38 )="103;AUT TIMM(" mea ns 'CHANGE OLD 38 TO 103' if w e have a v ariable-po inter to ^ AUTTIMM
2265	"RTN","DIT P",69,0)
2266	S X=^(+%) I 'VP S X =+X
2267	"RTN","DIT P",70,0)
2268	E S X=$S ($P(X,";", 2)'=$P(%," ;",2):"",' X:"@",1:X) W:X="" " (no cha nge)" Q
2269	"RTN","DIT P",71,0)
2270	S:'X X="@ "
2271	"RTN","DIT P",72,0)
2272	Q
2273	"RTN","DIT P",73,0)
2274	;
2275	"RTN","DIT P",74,0)
2276	PTRPT Q:'$ G(DIFIXPTC ) N I,J,X
2277	"RTN","DIT P",75,0)
2278	F I=1:1:D L S J="" F S J=$O(D R(I,J)) Q: J="" I DR (I,J)["/// " S X=$P($ G(DR(I,J)) ,"///",1) I X]"" D
2279	"RTN","DIT P",76,0)
2280	. S ^TMP( "DIFIXPT", $J,DIFIXPT C)=^TMP("D IFIXPT",$J ,DIFIXPTC) _$S(I>1:" entry:"_$S (I=DL:$G(D A),1:$G(DA (DL-I))),1 :"")_$S(I= DL:" fie ld:",1:" mult.fld: ")_X
2281	"RTN","DIT P",77,0)
2282	. Q
2283	"RTN","DIT P",78,0)
2284	Q
2285	"RTN","DIU TL")
2286	0^8^B13688 793
2287	"RTN","DIU TL",1,0)
2288	DIUTL ;GFT /GFT - TIM SON'S UTIL ITIES;24JA N2013
2289	"RTN","DIU TL",2,0)
2290	;;22.2;VA FileMan;* 10*;Jan 05, 2016;B uild 13
2291	"RTN","DIU TL",3,0)
2292	;;Per VA Directive 6402, this routine s hould not be modifie d.
2293	"RTN","DIU TL",4,0)
2294	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
2295	"RTN","DIU TL",5,0)
2296	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
2297	"RTN","DIU TL",6,0)
2298	;;License d under th e terms of the Apach e License, Version 2 .0.
2299	"RTN","DIU TL",7,0)
2300	;
2301	"RTN","DIU TL",8,0)
2302	;
2303	"RTN","DIU TL",9,0)
2304	NAKED(DIUT LREF) ;The argument is evaluat ed and ret urned, whi le keeping the naked reference as it was !
2305	"RTN","DIU TL",10,0)
2306	N DIUTLNK D ;THIS WI LL BE THE NAME OF TH E NAKED
2307	"RTN","DIU TL",11,0)
2308	X "I $ZRE FERENCE="" """ I S D IUTLNKD="^ TMP(""DI D UMMY"",0)"
2309	"RTN","DIU TL",12,0)
2310	E S DIUT LNKD=$NA(^ (0))
2311	"RTN","DIU TL",13,0)
2312	X "S DIUT LREF="_DIU TLREF
2313	"RTN","DIU TL",14,0)
2314	D Q DIUT LREF
2315	"RTN","DIU TL",15,0)
2316	.I $D(@DI UTLNKD)
2317	"RTN","DIU TL",16,0)
2318	;
2319	"RTN","DIU TL",17,0)
2320	;
2321	"RTN","DIU TL",18,0)
2322	DATE(Y) ;* *CCO/NI RETURN A D ATE
2323	"RTN","DIU TL",19,0)
2324	;I Y X ^D D("DD")
2325	"RTN","DIU TL",20,0)
2326	Q $$FMTE^ DILIBF(Y," 1U")
2327	"RTN","DIU TL",21,0)
2328	;
2329	"RTN","DIU TL",22,0)
2330	;
2331	"RTN","DIU TL",23,0)
2332	NOWINT() ; INTERNAL V ERSION OF NOW
2333	"RTN","DIU TL",24,0)
2334	N %,%I,%H ,%M,%D,%Y, X
2335	"RTN","DIU TL",25,0)
2336	D NOW^%DT C Q %
2337	"RTN","DIU TL",26,0)
2338	;
2339	"RTN","DIU TL",27,0)
2340	;
2341	"RTN","DIU TL",28,0)
2342	NOW() ;EXT ERNAL NOW
2343	"RTN","DIU TL",29,0)
2344	N X S X=$ $NOWINT Q $$DATE(X-( X#.0001))
2345	"RTN","DIU TL",30,0)
2346	;
2347	"RTN","DIU TL",31,0)
2348	;
2349	"RTN","DIU TL",32,0)
2350	WP(DIRF,DI WL,DIWR,DI WPUT) ;Wri te out WP field (if any) store d at DIRF, or put it in DIWPUT array
2351	"RTN","DIU TL",33,0)
2352	N DIWF,Z, A1,D,X,DIW ,DIWT,DN,I ,DIWI,DIWT C,DIWX
2353	"RTN","DIU TL",34,0)
2354	K ^UTILIT Y($J,"W")
2355	"RTN","DIU TL",35,0)
2356	S DIWF=$E ("W",'$D(D IWPUT))_"\| " S:'$G(IO M) IOM=80 S:'$G(DIWR ) DIWR=IOM S:'$G(DIW L) DIWL=1
2357	"RTN","DIU TL",36,0)
2358	S A1=$P($ G(@DIRF@(0 )),U,3) F D=0:0 S D= $O(@DIRF@( D)) Q:D>A1 &A1!'D S X=^(D,0) D ^DIWP G Q WP:$G(DN)= 0
2359	"RTN","DIU TL",37,0)
2360	I $G(DIWP UT)]"" D Q 1
2361	"RTN","DIU TL",38,0)
2362	.K @DIWPU T M @DIWPU T=^UTILITY ($J,"W")
2363	"RTN","DIU TL",39,0)
2364	D ^DIWW
2365	"RTN","DIU TL",40,0)
2366	QWP I $G(D N)'=0 Q 1
2367	"RTN","DIU TL",41,0)
2368	K DIOEND Q 0
2369	"RTN","DIU TL",42,0)
2370	;
2371	"RTN","DIU TL",43,0)
2372	IJ(N) ;bui ld I & J a rrays give n subfile number N
2373	"RTN","DIU TL",44,0)
2374	N A K I,J
2375	"RTN","DIU TL",45,0)
2376	S J(0)=N, N=0
2377	"RTN","DIU TL",46,0)
2378	0 I $D(^DI C(J(0),0," GL")) S I( 0)=^("GL") Q
2379	"RTN","DIU TL",47,0)
2380	S A=$G(^D D(J(0),0," UP")) Q:A= ""
2381	"RTN","DIU TL",48,0)
2382	S I=$O(^D D(A,"SB",J (0),0)) Q: 'I
2383	"RTN","DIU TL",49,0)
2384	S I=$P($P ($G(^DD(A, I,0)),U,4) ,";") Q:I= ""
2385	"RTN","DIU TL",50,0)
2386	I +I'=I S I=""""_I_ """"
2387	"RTN","DIU TL",51,0)
2388	F J=N:-1: 0 S J(J+1) =J(J) S:J I(J+1)=I(J )
2389	"RTN","DIU TL",52,0)
2390	S J(0)=A, I(1)=I,N=N +1 G 0
2391	"RTN","DIU TL",53,0)
2392	;
2393	"RTN","DIU TL",54,0)
2394	;
2395	"RTN","DIU TL",55,0)
2396	DIVR(DI,DI FLD) ;veri fy
2397	"RTN","DIU TL",56,0)
2398	N DIVZ,S, A,DA,DICL, V,Z,DDC,DR ,N,Y,I,J,Q ,W,V,T,DQI
2399	"RTN","DIU TL",57,0)
2400	K ^UTILIT Y("DIVR",$ J),^DD(U,$ J)
2401	"RTN","DIU TL",58,0)
2402	D IJ(DI)
2403	"RTN","DIU TL",59,0)
2404	I '$O(@(I (0)_"0)")) Q ;File must have some entri es!
2405	"RTN","DIU TL",60,0)
2406	S S=";",Q ="""",V=$O (J(""),-1) ,A=DI,DA=D IFLD
2407	"RTN","DIU TL",61,0)
2408	S DR=$P(^ DD(DI,DIFL D,0),U,2), Z=$P(^(0), U,3),$P(Y( 0),U,4)=$P (^(0),U,4) ,DDC=$P(^( 0),U,5,999 )
2409	"RTN","DIU TL",62,0)
2410	Q:DR["W"! (DR["C")
2411	"RTN","DIU TL",63,0)
2412	F T="N"," S","V","P" ,"K","F" Q :DR[T
2413	"RTN","DIU TL",64,0)
2414	W !!,"SIN CE YOU HAV E CHANGED THE FIELD DEFINITION ,",!,"EXIS TING '",$P (^(0),U)," ' DATA WIL L NOW BE C HECKED FOR INCONSIST ENCIES",!, "OK"
2415	"RTN","DIU TL",65,0)
2416	S %=1 D Y N^DICN Q:% -1
2417	"RTN","DIU TL",66,0)
2418	;D ^%ZIS Q:POP
2419	"RTN","DIU TL",67,0)
2420	;U IO W ON'T WORK BECAUSE Q+ 3^DIVR ASK S TO STORE IN TEMPLA TE
2421	"RTN","DIU TL",68,0)
2422	D EN^DIVR (DI,DIFLD)
2423	"RTN","DIU TL",69,0)
2424	;D ^%ZISC
2425	"RTN","DIU TL",70,0)
2426	Q
2427	"RTN","DIU TL",71,0)
2428	;
2429	"RTN","DIU TL",72,0)
2430	CHKPT(DIFI LE,DA,DIMS G) ;check if any ent ries point s to this entry(DA) in file (D IFILE)
2431	"RTN","DIU TL",73,0)
2432	;INPUT: D IFILE=file number, D A=ien of r ecord, DIM SG=closed global roo t or local array
2433	"RTN","DIU TL",74,0)
2434	;OUTPUT: DIMSG(0)=l ine count, DISMG(#)= "Entry ien in FILE ( file #) re fers to it ."
2435	"RTN","DIU TL",75,0)
2436	;CODE CAM E FROM DEL ^DPTLK2
2437	"RTN","DIU TL",76,0)
2438	Q:$G(DIMS G)="" S @ DIMSG@(0)= 0
2439	"RTN","DIU TL",77,0)
2440	Q:'$G(DA) Q:$G(^DI C(+$G(DIFI LE),0))=""
2441	"RTN","DIU TL",78,0)
2442	N I,J,K,L ,A,B,C,G,T ,Q S Q=""" ",C=0
2443	"RTN","DIU TL",79,0)
2444	;find all files and fields th at point t o this fil e
2445	"RTN","DIU TL",80,0)
2446	F I=0:0 S I=$O(^DD( DIFILE,0," PT",I)) Q: 'I F J=0: 0 S J=+$O( ^DD(DIFILE ,0,"PT",I, J)),(B,T)= I Q:'J D
2447	"RTN","DIU TL",81,0)
2448	.;check i f multiple , find top file leve l = T
2449	"RTN","DIU TL",82,0)
2450	. F S B= +$G(^DD(B, 0,"UP")) S :B T=B I ' B S G=$G(^ DIC(+T,0," GL")) Q
2451	"RTN","DIU TL",83,0)
2452	.;pointin g to file must have file level cross ref erence; fi le level ( +A=T), not mumps
2453	"RTN","DIU TL",84,0)
2454	. F K=0:0 S K=$O(^D D(I,J,1,K) ) Q:'K S A=$G(^(K,0 )) I +A=T, $L($P(A,U, 2)),'$L($P (A,U,3)) D
2455	"RTN","DIU TL",85,0)
2456	.. Q:'$L (G)
2457	"RTN","DIU TL",86,0)
2458	..; if v ariable po inter, the n reset DA to contai n global r ef. DA;gr
2459	"RTN","DIU TL",87,0)
2460	.. I $P( ^DD(I,J,0) ,U,2)["V" S L=DA N D A S DA=Q_L _";"_$P($G (^DIC(DIFI LE,0,"GL") ),"^",2)_Q
2461	"RTN","DIU TL",88,0)
2462	.. F L=0 :0 S L=$O( @(G_Q_$P(A ,U,2)_Q_", "_DA_",L)" )) Q:'L D
2463	"RTN","DIU TL",89,0)
2464	... S C= C+1,@DIMSG @(C)="Entr y "_L_" in "_$P($G(^ DIC(T,0)), U)_" ("_T_ ") refers to it."
2465	"RTN","DIU TL",90,0)
2466	.. Q
2467	"RTN","DIU TL",91,0)
2468	. Q
2469	"RTN","DIU TL",92,0)
2470	S @DIMSG@ (0)=C
2471	"RTN","DIU TL",93,0)
2472	Q
2473	"RTN","DIW P")
2474	0^4^B14095 198
2475	"RTN","DIW P",1,0)
2476	DIWP ;SFIS C/GFT-ASSE MBLE WP LI NE ;24APR2 012
2477	"RTN","DIW P",2,0)
2478	;;22.2;VA FileMan;* 10*;Jan 05, 2016;B uild 13
2479	"RTN","DIW P",3,0)
2480	;;Per VA Directive 6402, this routine s hould not be modifie d.
2481	"RTN","DIW P",4,0)
2482	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
2483	"RTN","DIW P",5,0)
2484	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
2485	"RTN","DIW P",6,0)
2486	;;License d under th e terms of the Apach e License, Version 2 .0.
2487	"RTN","DIW P",7,0)
2488	;
2489	"RTN","DIW P",8,0)
2490	;The DIWF variable contains a string of one-lette r codes to control W -P output.
2491	"RTN","DIW P",9,0)
2492	;"\|" in D IWF means that "\|"-w indows are not to be evaluated , but are to be prin ted as
2493	"RTN","DIW P",10,0)
2494	; the y stand.
2495	"RTN","DIW P",11,0)
2496	;"X" mean s eXactly line-for-l ine, with "\|\|" print ed as "\|\|"
2497	"RTN","DIW P",12,0)
2498	;"W" in D IWF means that forma tted text will be wr itten out to
2499	"RTN","DIW P",13,0)
2500	; the current d evice as i t is assem bled.
2501	"RTN","DIW P",14,0)
2502	;"N" mean s NOWRAP-- text is a ssembled l ine-for-li ne
2503	"RTN","DIW P",15,0)
2504	;"R" mean s text wil l be assem bled Right -justified
2505	"RTN","DIW P",16,0)
2506	;"D" mean s text wil l be doubl e-spaced
2507	"RTN","DIW P",17,0)
2508	;"L" mean s internal line numb ers appear at the le ft margin
2509	"RTN","DIW P",18,0)
2510	;"C" foll owed by a number wil l cause fo rmatting o f text in a column
2511	"RTN","DIW P",19,0)
2512	; wid th specifi ed by the number.
2513	"RTN","DIW P",20,0)
2514	;"I" foll owed by a number wil l cause te xt to be i ndented th at number
2515	"RTN","DIW P",21,0)
2516	; of columns.
2517	"RTN","DIW P",22,0)
2518	;"?" mean s that, if user's te rminal is available, "\|"-windo ws that ca nnot
2519	"RTN","DIW P",23,0)
2520	; be evaluated will be as ked from t he user's terminal.
2521	"RTN","DIW P",24,0)
2522	;"B" foll owed by nu mber cause s new page when outp ut gets wi thin that
2523	"RTN","DIW P",25,0)
2524	; numbe r of lines from the bottom of the page ( as defined by IOSL).
2525	"RTN","DIW P",26,0)
2526	;
2527	"RTN","DIW P",27,0)
2528	;DIWTC is a Boolean -- Are we printing out in LIN E MODE?
2529	"RTN","DIW P",28,0)
2530	S:'$L(X) X=" "
2531	"RTN","DIW P",29,0)
2532	S DIWTC=X [($C(124)_ "TAB") S:' $D(DN) DN= 1
2533	"RTN","DIW P",30,0)
2534	LN S:'$D(D IWF) DIWF= "" S:'DIWT C DIWTC=DI WF["N" S D IWX=X,DIW= $C(124),I= $P(DIWF,"C ",2) I I S DIWR=DIWL +I-1
2535	"RTN","DIW P",31,0)
2536	I '$D(^UT ILITY($J," W",DIWL)) S ^(DIWL)= 1 K DIWFU, DIWFWU,DIW LL D DIWI S:'$D(DIWT ) DIWT="5, 10,15,20,2 5" G DIW
2537	"RTN","DIW P",32,0)
2538	S I=^(DIW L),DIWI=^( DIWL,I,0) I DIWI="" D DIWI G Z
2539	"RTN","DIW P",33,0)
2540	D NEW:DIW TC
2541	"RTN","DIW P",34,0)
2542	Z S Z=X?.P !DIWTC I X ?1" ".E!Z S DIWTC=1 D NEW:DIWI ]"" S DIWT C=Z
2543	"RTN","DIW P",35,0)
2544	DIW ;from RCR+5^DIWW
2545	"RTN","DIW P",36,0)
2546	I DIWF["X " S DIWTC= 1,X=DIWX,D IWX="" D C G D ;*DI 22152* Leave lin e unaltere d
2547	"RTN","DIW P",37,0)
2548	S X=$P(DI WX,DIW,1) D C:X]"" S X=$P(DIWX ,DIW,1),DI WX=$P(DIWX ,DIW,2,999 9) G D:DIW X="" I $D( DIWP),X'?. E1" " D ST
2549	"RTN","DIW P",38,0)
2550	S X=$P(DI WX,DIW,1) I $P(X,"TA B",1)="" D TAB G N
2551	"RTN","DIW P",39,0)
2552	I X="TOP" D PUT S ^ ("X")="S D IFF=1 X:$D (^UTILITY( $J,1)) ^(1 )" D NEW G N
2553	"RTN","DIW P",40,0)
2554	I DIWF'[D IW G U:X=" _" D PUT,R CR^DIWW G N:$D(X)
2555	"RTN","DIW P",41,0)
2556	S X=DIW_$ P(DIWX,DIW ,1) S:DIWX [DIW!(DIWF '[DIW) X=X _DIW D C ; DO NOT PUT GRATUITOU S "\|" AT E ND, IF DIW F["\|"
2557	"RTN","DIW P",42,0)
2558	N K X S DI WX=$P(DIWX ,DIW,2,99) I DIWX]"" D ST:$D(D IWP) G DIW
2559	"RTN","DIW P",43,0)
2560	D K DIWP D PUT,PRE:D IWTC S:DIW TC DIWI="" Q
2561	"RTN","DIW P",44,0)
2562	;
2563	"RTN","DIW P",45,0)
2564	ST S DIWI= $E(DIWI,1, $L(DIWI)-1 ) K DIWP Q
2565	"RTN","DIW P",46,0)
2566	;
2567	"RTN","DIW P",47,0)
2568	DIWI S DIW I=$J("",+$ P(DIWF,"I" ,2)) I DIW F["L",$D(D )#2 S DIWL L=D
2569	"RTN","DIW P",48,0)
2570	Q
2571	"RTN","DIW P",49,0)
2572	PUT S I=^U TILITY($J, "W",DIWL), ^(DIWL,I,0 )=DIWI I D IWF["L",$D (DIWLL) S ^("L")=DIW LL
2573	"RTN","DIW P",50,0)
2574	Q
2575	"RTN","DIW P",51,0)
2576	L ;
2577	"RTN","DIW P",52,0)
2578	S DIWTC=1 G LN
2579	"RTN","DIW P",53,0)
2580	;
2581	"RTN","DIW P",54,0)
2582	TAB I X="" S X=DIW G C
2583	"RTN","DIW P",55,0)
2584	S J=$P(DI WT,",",DIW TC),DIWTC= DIWTC+1 S: X?3A1P.P.N .E J=$E(X, 5,9) S:J?1 """".E1""" " J=$E(J,2 ,$L(J)-1)
2585	"RTN","DIW P",56,0)
2586	I J'>0 S %=$P(DIWX, DIW,2) Q:% ="" S J=$ S(J<0:1-$L (%)-J,J="C ":DIWR-DIW L-$L(%)\2, 1:0)
2587	"RTN","DIW P",57,0)
2588	S J=J-1-$ L(DIWI) Q: J<1 S X=$ J("",J)
2589	"RTN","DIW P",58,0)
2590	C K DIWP I DIWTC S D IWI=DIWI_X Q
2591	"RTN","DIW P",59,0)
2592	B S Z=DIWR -DIWL+1-$L (DIWI) G F ULL:$F(X," ")-1>Z F %=Z:-1 I " "[$E(X,%) S:$E(X,%+ 1)=" " %=% +1 Q
2593	"RTN","DIW P",60,0)
2594	S Z=$E(X, 1,%-1),X=$ E(X,%+1,99 99) I Z]"" S DIWI=DI WI_Z G S:X ]"" S %=$E (Z,$L(Z)) S:%'=" " D IWI=DIWI_$ J("",%="." +1),DIWP=1 Q
2595	"RTN","DIW P",61,0)
2596	FULL I $P( DIWF,"I",2 )'<$L(DIWI ) S DIWI=D IWI_$P(X," ",1),X=$P (X," ",2,9 999)
2597	"RTN","DIW P",62,0)
2598	S D PUT,NE W G B:X]"" Q
2599	"RTN","DIW P",63,0)
2600	;
2601	"RTN","DIW P",64,0)
2602	U S I=^UTI LITY($J,"W ",DIWL) I $D(DIWFU) S ^(DIWL,I ,"U",$L(DI WI)+1)="" K DIWFU G N
2603	"RTN","DIW P",65,0)
2604	S ^(DIWL, I,"U",$L(D IWI)+1)=X, DIWFU=1 G N
2605	"RTN","DIW P",66,0)
2606	;
2607	"RTN","DIW P",67,0)
2608	NEW D DIWI
2609	"RTN","DIW P",68,0)
2610	PRE S I=^U TILITY($J, "W",DIWL), ^(DIWL)=I+ 1,^(DIWL,I +1,0)="" I DIWF["D" S ^(0)=" " ,^UTILITY( $J,"W",DIW L)=I+2,^(D IWL,I+2,0) =""
2611	"RTN","DIW P",69,0)
2612	I $D(DIWF U) S ^("U" ,1+$P(DIWF ,"I",2))=" _"
2613	"RTN","DIW P",70,0)
2614	G P:DIWF' ["R"!DIWTC K % Q:'$D (^UTILITY( $J,"W",DIW L,I,0))
2615	"RTN","DIW P",71,0)
2616	S Y=^(0), %=$L(Y) F %=%:-1 Q:$ A(Y,%)-32
2617	"RTN","DIW P",72,0)
2618	S Y=$E(Y, 1,%),J=DIW R-DIWL-%+1 ,%X=0 G P: J<1
2619	"RTN","DIW P",73,0)
2620	F %=1:1 S %(%)=$P(Y ," ",1),Y= $P(Y," ",2 ,9999) G:Y ="" PAD:%- 1,P I $E(% (%),$L(%(% )))?.P S:% =1&(%(%)=" ") %=0,%X= %X+1 S:%&J J=J-1,%(% )=%(%)_" "
2621	"RTN","DIW P",74,0)
2622	PAD I J F Y=%\2+1:1: %-1,%\2:-1 S %(Y)=%( Y)_" ",J=J -1 G PAD:Y =1!'J
2623	"RTN","DIW P",75,0)
2624	S Y=%(%) F %=%-1:-1 :1 S Y=%(% )_" "_Y
2625	"RTN","DIW P",76,0)
2626	S ^(0)=$J ("",%X)_Y K %
2627	"RTN","DIW P",77,0)
2628	P I DIWF[" W" G NX^DI WW
2629	"VER")
2630	8.0^22.2
2631	END
2632	END
		2633
		2634
		2635
		2636
		2637
		2638
		2639
		2640
		2641
		2642
		2643
		2644