1. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 4/26/2018 7:50:38 AM 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.

1.1 Files compared

#	Location	File	Last Modified
1	DI_222_10_T4.zip\DI_222_10_T4	DI_222_10T4.KID	Tue Apr 24 16:47:14 2018 UTC
2	DI_222_10_T4.zip\DI_222_10_T4	DI_222_10T4.KID	Thu Apr 26 12:31:38 2018 UTC

1.2 Comparison summary

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

1.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

1.4 Active regular expressions

No regular expressions were active.

1.5 Comparison detail

	1	KIDS Distr ibution sa ved on Mar 02, 2018@ 09:10:07
	2	DI22.210 TEST v4
	3	KIDS:D I22.210^
	4
	5	INSTALL NAME
	6	DI22.210
	7	"BLD",1613 ,0)
	8	DI22.210 ^VA FILEMA N^0^318030 2^y
	9	"BLD",1613 ,1,0)
	10	240^9.61A^ 240^240^31 80302^^^
	11	"BLD",1613 ,1,1,0)
	12	Patch DI2 2.210 rep airs the f ollowing d efects:
	13	"BLD",1613 ,1,2,0)
	14	1. DI WP only su pports str ings up to 999 chara cters
	15	"BLD",1613 ,1,3,0)
	16	2. NU MDATE fix in patch 7 was not a dded to DI NIT
	17	"BLD",1613 ,1,4,0)
	18	3. Th e variable DO is not killed af ter call t o DIE
	19	"BLD",1613 ,1,5,0)
	20	4. Ne w api EN^D ITP for re pointing d eleted rec ords
	21	"BLD",1613 ,1,6,0)
	22	5. Ne w options for editin g Data Typ es in patc h 2 have n o parent
	23	"BLD",1613 ,1,7,0)
	24	6. Ne w API CHKP T^DIUTL(fi le, ien, m essage)
	25	"BLD",1613 ,1,8,0)
	26
	27	"BLD",1613 ,1,9,0)
	28
	29	"BLD",1613 ,1,10,0)
	30	Patch Comp onents:
	31	"BLD",1613 ,1,11,0)
	32	---------- -------
	33	"BLD",1613 ,1,12,0)
	34	Files & F ields Asso ciated:
	35	"BLD",1613 ,1,13,0)
	36	New/Modif ied/
	37	"BLD",1613 ,1,14,0)
	38	File Name (#) Field Nam e (#) De leted
	39	"BLD",1613 ,1,15,0)
	40	---------- --- --------- ----- ------- ------
	41	"BLD",1613 ,1,16,0)
	42	N/A
	43	"BLD",1613 ,1,17,0)
	44
	45	"BLD",1613 ,1,18,0)
	46	Forms Asso ciated:
	47	"BLD",1613 ,1,19,0)
	48
	49	"BLD",1613 ,1,20,0)
	50	Form Name File # New/Modif ied/Delete d
	51	"BLD",1613 ,1,21,0)
	52	--------- ------ --------- ---------- -
	53	"BLD",1613 ,1,22,0)
	54	N/A
	55	"BLD",1613 ,1,23,0)
	56
	57	"BLD",1613 ,1,24,0)
	58	Mail Group s Associat ed:
	59	"BLD",1613 ,1,25,0)
	60
	61	"BLD",1613 ,1,26,0)
	62	Mail Group Name New/M odified/De leted
	63	"BLD",1613 ,1,27,0)
	64	---------- ----- ----- ---------- -----
	65	"BLD",1613 ,1,28,0)
	66	N/A
	67	"BLD",1613 ,1,29,0)
	68
	69	"BLD",1613 ,1,30,0)
	70	Options As sociated:
	71	"BLD",1613 ,1,31,0)
	72
	73	"BLD",1613 ,1,32,0)
	74	Option Nam e Type New/Modifi ed/Deleted
	75	"BLD",1613 ,1,33,0)
	76	---------- - ---- ---------- ----------
	77	"BLD",1613 ,1,34,0)
	78	DI DATA T YPE OPTION S Menu Deleted
	79	"BLD",1613 ,1,35,0)
	80	DI DATA T YPE FILE Run Routi ne Deleted
	81	"BLD",1613 ,1,36,0)
	82	DI DATA T YPE METHOD FILE Run Routi ne Deleted
	83	"BLD",1613 ,1,37,0)
	84	DI DATA T YPE PROPER TY FILE Run Routi ne Deleted
	85	"BLD",1613 ,1,38,0)
	86
	87	"BLD",1613 ,1,39,0)
	88
	89	"BLD",1613 ,1,40,0)
	90	Protocols Associated :
	91	"BLD",1613 ,1,41,0)
	92
	93	"BLD",1613 ,1,42,0)
	94	Protocol N ame New/Modifi ed/Deleted
	95	"BLD",1613 ,1,43,0)
	96	---------- --- ---------- ----------
	97	"BLD",1613 ,1,44,0)
	98	N/A
	99	"BLD",1613 ,1,45,0)
	100
	101	"BLD",1613 ,1,46,0)
	102	Security K eys Associ ated:
	103	"BLD",1613 ,1,47,0)
	104
	105	"BLD",1613 ,1,48,0)
	106	Security K ey Name
	107	"BLD",1613 ,1,49,0)
	108	---------- -------
	109	"BLD",1613 ,1,50,0)
	110	N/A
	111	"BLD",1613 ,1,51,0)
	112
	113	"BLD",1613 ,1,52,0)
	114	Templates Associated :
	115	"BLD",1613 ,1,53,0)
	116
	117	"BLD",1613 ,1,54,0)
	118	Template N ame Type File Name (Number ) New/Mod ified/Dele ted
	119	"BLD",1613 ,1,55,0)
	120	---------- --- ---- ---- ---------- ---------- - ------- ---------- ---
	121	"BLD",1613 ,1,56,0)
	122	N/A
	123	"BLD",1613 ,1,57,0)
	124
	125	"BLD",1613 ,1,58,0)
	126	Additional Informati on:
	127	"BLD",1613 ,1,59,0)
	128	---------- ---------- ---
	129	"BLD",1613 ,1,60,0)
	130	N/A
	131	"BLD",1613 ,1,61,0)
	132
	133	"BLD",1613 ,1,62,0)
	134	New Servic e Requests (NSRs):
	135	"BLD",1613 ,1,63,0)
	136	---------- ---------- --------
	137	"BLD",1613 ,1,64,0)
	138	N/A
	139	"BLD",1613 ,1,65,0)
	140
	141	"BLD",1613 ,1,66,0)
	142	Patient Sa fety Issue s (PSIs):
	143	"BLD",1613 ,1,67,0)
	144	---------- ---------- ---------
	145	"BLD",1613 ,1,68,0)
	146	N/A
	147	"BLD",1613 ,1,69,0)
	148
	149	"BLD",1613 ,1,70,0)
	150	Defect Tra cking Syst em Ticket( s) & Overv iew:
	151	"BLD",1613 ,1,71,0)
	152	---------- ---------- ---------- ---------- ----
	153	"BLD",1613 ,1,72,0)
	154	1. Ticket I13413576 FY17
	155	"BLD",1613 ,1,73,0)
	156	Problem:
	157	"BLD",1613 ,1,74,0)
	158	--------
	159	"BLD",1613 ,1,75,0)
	160	Word Proc essing can not parse a string g reater tha n 999 and the FM 22. 2
	161	"BLD",1613 ,1,76,0)
	162	allows st rings up t o 4K chara cters.
	163	"BLD",1613 ,1,77,0)
	164
	165	"BLD",1613 ,1,78,0)
	166	Resolutio n:
	167	"BLD",1613 ,1,79,0)
	168	--------- -
	169	"BLD",1613 ,1,80,0)
	170	Modified DIWP and c hanged 999 to 9999
	171	"BLD",1613 ,1,81,0)
	172
	173	"BLD",1613 ,1,82,0)
	174	2. Ticket I15917948 FY17
	175	"BLD",1613 ,1,83,0)
	176	Problem:
	177	"BLD",1613 ,1,84,0)
	178	--------
	179	"BLD",1613 ,1,85,0)
	180	Patch DI* 22.2*7 fix ed the NUM DATE funct ion in the FUNCTION file #.5,
	181	"BLD",1613 ,1,86,0)
	182	but DINI T restored the old f unction.
	183	"BLD",1613 ,1,87,0)
	184
	185	"BLD",1613 ,1,88,0)
	186	Resolutio n:
	187	"BLD",1613 ,1,89,0)
	188	--------- -
	189	"BLD",1613 ,1,90,0)
	190	Modified DINIT4 and added fix to NUMDAT E
	191	"BLD",1613 ,1,91,0)
	192
	193	"BLD",1613 ,1,92,0)
	194	3. Ticket I16009474 FY17
	195	"BLD",1613 ,1,93,0)
	196	Problem:
	197	"BLD",1613 ,1,94,0)
	198	--------
	199	"BLD",1613 ,1,95,0)
	200	The varia ble DO is not killed after a c all to DIE if a user asked for
	201	"BLD",1613 ,1,96,0)
	202	help in a multiple Date fiel d.
	203	"BLD",1613 ,1,97,0)
	204
	205	"BLD",1613 ,1,98,0)
	206	Resolutio n:
	207	"BLD",1613 ,1,99,0)
	208	--------- -
	209	"BLD",1613 ,1,100,0)
	210	Modified DIEQ and a dded DO to kill stat ement at l ine Q
	211	"BLD",1613 ,1,101,0)
	212
	213	"BLD",1613 ,1,102,0)
	214	4. Ticket R13102022 FY17
	215	"BLD",1613 ,1,103,0)
	216	Problem:
	217	"BLD",1613 ,1,104,0)
	218	--------
	219	"BLD",1613 ,1,105,0)
	220	Need API to repoint a deleted value in a record, similar to what happ ens
	221	"BLD",1613 ,1,106,0)
	222	when a p ointer fie ld value i s deleted.
	223	"BLD",1613 ,1,107,0)
	224
	225	"BLD",1613 ,1,108,0)
	226	Resolutio n:
	227	"BLD",1613 ,1,109,0)
	228	--------- -
	229	"BLD",1613 ,1,110,0)
	230	Modified DITP and a dded tag E N(file, li st) where file=file number,
	231	"BLD",1613 ,1,111,0)
	232	list= arr ay contain ing list o f entries to be repo inted(Pass ed by Refe rence)
	233	"BLD",1613 ,1,112,0)
	234
	235	"BLD",1613 ,1,113,0)
	236	5. Ticket R14175506 FY17
	237	"BLD",1613 ,1,114,0)
	238	Problem:
	239	"BLD",1613 ,1,115,0)
	240	--------
	241	"BLD",1613 ,1,116,0)
	242	New optio ns that we re for add ing new da ta types a nd release d as part of
	243	"BLD",1613 ,1,117,0)
	244	patch DI* 22.2*2 had no parent menu. Th ese option were not meant for
	245	"BLD",1613 ,1,118,0)
	246	general d istributio n. The op tions are: DI DATA T YPE OPTION S,
	247	"BLD",1613 ,1,119,0)
	248	DI DATA TYPE FILE, DI DATA T YPE METHOD FILE, and
	249	"BLD",1613 ,1,120,0)
	250	DI DATA TYPE PROPE RTY FILE.
	251	"BLD",1613 ,1,121,0)
	252
	253	"BLD",1613 ,1,122,0)
	254	Resolutio n:
	255	"BLD",1613 ,1,123,0)
	256	--------- -
	257	"BLD",1613 ,1,124,0)
	258	All four options wi ll be dele ted from t he OPTION file and a dded to th e
	259	"BLD",1613 ,1,125,0)
	260	hard code d options in the DII routine. Modified DII1 and D IFMEDT1
	261	"BLD",1613 ,1,126,0)
	262	routines.
	263	"BLD",1613 ,1,127,0)
	264
	265	"BLD",1613 ,1,128,0)
	266	6. No tic ket
	267	"BLD",1613 ,1,129,0)
	268	Problem:
	269	"BLD",1613 ,1,130,0)
	270	--------
	271	"BLD",1613 ,1,131,0)
	272	Developer needs API to check what entri es points to a parti cular reco rd
	273	"BLD",1613 ,1,132,0)
	274	in a fil e.
	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	CHKPT^DIU TL(file, i en, messag e).
	283	"BLD",1613 ,1,137,0)
	284	;INPUT: D IFILE=file number, D A=ien of r ecord, DIM SG=closed global roo t
	285	"BLD",1613 ,1,138,0)
	286	or local array
	287	"BLD",1613 ,1,139,0)
	288	;OUTPUT: DIMSG(0)=l ine count, DISMG(#)= "Entry ien in FILE ( file #)
	289	"BLD",1613 ,1,140,0)
	290	refers t o record D A"
	291	"BLD",1613 ,1,141,0)
	292
	293	"BLD",1613 ,1,142,0)
	294	Blood Ban k Clearanc e:
	295	"BLD",1613 ,1,143,0)
	296	--------- ---------- --
	297	"BLD",1613 ,1,144,0)
	298	EFFECT ON BLOOD BAN K FUNCTION AL REQUIRE MENTS: Pat ch DI22.2 10 contai ns
	299	"BLD",1613 ,1,145,0)
	300	changes t o a packag e referenc ed in ProP ath standa rd titled: BBM Team Review
	301	"BLD",1613 ,1,146,0)
	302	of VistA Patches. T his patch does not a lter or mo dify any V istA Blood Bank
	303	"BLD",1613 ,1,147,0)
	304	software design saf eguards or safety cr itical ele ments func tions.
	305	"BLD",1613 ,1,148,0)
	306
	307	"BLD",1613 ,1,149,0)
	308	RISK ANAL YSIS: Chan ges made b y patch DI 22.210 h ave no eff ect on Blo od Bank
	309	"BLD",1613 ,1,150,0)
	310	software functional ity, there fore RISK is none.
	311	"BLD",1613 ,1,151,0)
	312
	313	"BLD",1613 ,1,152,0)
	314
	315	"BLD",1613 ,1,153,0)
	316	Test Sites :
	317	"BLD",1613 ,1,154,0)
	318	---------- -
	319	"BLD",1613 ,1,155,0)
	320	Charlesto n
	321	"BLD",1613 ,1,156,0)
	322	West Palm Beach
	323	"BLD",1613 ,1,157,0)
	324
	325	"BLD",1613 ,1,158,0)
	326
	327	"BLD",1613 ,1,159,0)
	328	Software a nd Documen tation Ret rieval Ins tructions:
	329	"BLD",1613 ,1,160,0)
	330	---------- ---------- ---------- ---------- ----------
	331	"BLD",1613 ,1,161,0)
	332	Documentat ion descri bing the n ew api, EN ^DITP, can be found in the
	333	"BLD",1613 ,1,162,0)
	334	FM 22.2 De veloper's Guide
	335	"BLD",1613 ,1,163,0)
	336
	337	"BLD",1613 ,1,164,0)
	338	Current do cumentatio n is on th e VA Softw are Docume ntation Li brary
	339	"BLD",1613 ,1,165,0)
	340	at: http:/ /www. DNS /vdl/
	341	"BLD",1613 ,1,166,0)
	342
	343	"BLD",1613 ,1,167,0)
	344	Title Fil e Name SFTP Mode
	345	"BLD",1613 ,1,168,0)
	346	---------- ---------- ---------- ---------- ---------- ---------- -----
	347	"BLD",1613 ,1,169,0)
	348	FM 22.2 De veloper's Guide f m22_2dg.PD F Binar y
	349	"BLD",1613 ,1,170,0)
	350	FM 22.2 Us er Manual f m22_2um1.P DF Binar y
	351	"BLD",1613 ,1,171,0)
	352	FM 22.2 Ad vanced Use r Manual f m22_2um2.P DF Binar y
	353	"BLD",1613 ,1,172,0)
	354	FM 22.2 Te chnical Ma nual f m22_2tm.PD F Binar y
	355	"BLD",1613 ,1,173,0)
	356
	357	"BLD",1613 ,1,174,0)
	358
	359	"BLD",1613 ,1,175,0)
	360	Backout an d Rollback Procedure :
	361	"BLD",1613 ,1,176,0)
	362	---------- ---------- ---------- -
	363	"BLD",1613 ,1,177,0)
	364	This patch only cons ists of ro utines. Du ring the V istA Insta llation
	365	"BLD",1613 ,1,178,0)
	366	Procedure of the KID S build, t he install er should back up th e modified routines by the use of the 'B ackup a Tr ansport Gl obal' acti on
	367	"BLD",1613 ,1,179,0)
	368	(step 3b i n the Inst allations Instructio ns below).
	369	"BLD",1613 ,1,180,0)
	370
	371	"BLD",1613 ,1,181,0)
	372	If rollbac k/backout is require d, the ins taller can restore t he routine s
	373	"BLD",1613 ,1,182,0)
	374	using the MailMan me ssage that were save d prior to installin g the
	375	"BLD",1613 ,1,183,0)
	376	patch.
	377	"BLD",1613 ,1,184,0)
	378
	379	"BLD",1613 ,1,185,0)
	380
	381	"BLD",1613 ,1,186,0)
	382	Patch Inst allation:
	383	"BLD",1613 ,1,187,0)
	384
	385	"BLD",1613 ,1,188,0)
	386
	387	"BLD",1613 ,1,189,0)
	388	Pre-Instal lation Ins tructions:
	389	"BLD",1613 ,1,190,0)
	390	---------- ---------- ----------
	391	"BLD",1613 ,1,191,0)
	392	This patch can be qu eued for i nstallatio n. TaskMa n does not have to b e
	393	"BLD",1613 ,1,192,0)
	394	stopped, H L7 filers do not nee d to be st opped, and users may be on the
	395	"BLD",1613 ,1,193,0)
	396	system. T he patch s hould be i nstalled d uring non- peak hours to minimi ze
	397	"BLD",1613 ,1,194,0)
	398	potential for disrup tion to us ers. This patch sho uld take l ess than 1
	399	"BLD",1613 ,1,195,0)
	400	minute to install.
	401	"BLD",1613 ,1,196,0)
	402
	403	"BLD",1613 ,1,197,0)
	404
	405	"BLD",1613 ,1,198,0)
	406	Installati on Instruc tions:
	407	"BLD",1613 ,1,199,0)
	408	---------- ---------- ------
	409	"BLD",1613 ,1,200,0)
	410	1. Choose the MailM an message containin g this pat ch.
	411	"BLD",1613 ,1,201,0)
	412
	413	"BLD",1613 ,1,202,0)
	414	2. Choose the INSTA LL/CHECK M ESSAGE Pac kMan optio n.
	415	"BLD",1613 ,1,203,0)
	416
	417	"BLD",1613 ,1,204,0)
	418	3. From t he Kernel Installati on and Dis tribution System Men u, select
	419	"BLD",1613 ,1,205,0)
	420	the In stallation Menu. Fr om this me nu, you ma y elect to use the
	421	"BLD",1613 ,1,206,0)
	422	follow ing option s. When pr ompted for the INSTA LL NAME en ter DI22. 210.
	423	"BLD",1613 ,1,207,0)
	424	a. Pr int Transp ort Global - This op tion lets you print the conten ts
	425	"BLD",1613 ,1,208,0)
	426	of a Transpo rt Global that is cu rrently lo aded in th e ^XTMP
	427	"BLD",1613 ,1,209,0)
	428	gl obal.
	429	"BLD",1613 ,1,210,0)
	430	b. Ba ckup a Tra nsport Glo bal - This option wi ll create a backup
	431	"BLD",1613 ,1,211,0)
	432	me ssage of a ny routine s exported with this patch. It will not
	433	"BLD",1613 ,1,212,0)
	434	ba ckup any o ther chang es such as functions .
	435	"BLD",1613 ,1,213,0)
	436	c. Co mpare Tran sport Glob al to Curr ent System - This op tion will
	437	"BLD",1613 ,1,214,0)
	438	al low you to view all changes th at will be made when this patc h
	439	"BLD",1613 ,1,215,0)
	440	is installed . It comp ares all c omponents of this pa tch
	441	"BLD",1613 ,1,216,0)
	442	(r outines, D Ds, templa tes, etc.) .
	443	"BLD",1613 ,1,217,0)
	444	d. Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow
	445	"BLD",1613 ,1,218,0)
	446	yo u to ensur e the inte grity of t he routine s that are in the
	447	"BLD",1613 ,1,219,0)
	448	tr ansport gl obal.
	449	"BLD",1613 ,1,220,0)
	450
	451	"BLD",1613 ,1,221,0)
	452	4. From t he Install ation Menu , select t he Install Package(s ) option a nd
	453	"BLD",1613 ,1,222,0)
	454	When p rompted fo r the INST ALL NAME, enter DI2 2.210.
	455	"BLD",1613 ,1,223,0)
	456
	457	"BLD",1613 ,1,224,0)
	458	5. If pro mpted 'Wan t KIDS to Rebuild Me nu Trees U pon Comple tion of
	459	"BLD",1613 ,1,225,0)
	460	Instal l? NO//' r espond NO.
	461	"BLD",1613 ,1,226,0)
	462
	463	"BLD",1613 ,1,227,0)
	464	7. When p rompted "W ant KIDS t o INHIBIT LOGONs dur ing the in stall?
	465	"BLD",1613 ,1,228,0)
	466	NO//" respond NO .
	467	"BLD",1613 ,1,229,0)
	468
	469	"BLD",1613 ,1,230,0)
	470	8. If pro mpted "Wan t to DISAB LE Schedul ed Options , Menu Opt ions,
	471	"BLD",1613 ,1,231,0)
	472	and Pr otocols? N O//" respo nd NO.
	473	"BLD",1613 ,1,232,0)
	474
	475	"BLD",1613 ,1,233,0)
	476	9. If pro mpted "Del ay Install (Minutes) : (0 - 60 ): 0//" re spond 0.
	477	"BLD",1613 ,1,234,0)
	478
	479	"BLD",1613 ,1,235,0)
	480
	481	"BLD",1613 ,1,236,0)
	482	Post-Insta llation In structions :
	483	"BLD",1613 ,1,237,0)
	484	---------- ---------- ---------- -
	485	"BLD",1613 ,1,238,0)
	486	none
	487	"BLD",1613 ,1,239,0)
	488
	489	"BLD",1613 ,1,240,0)
	490
	491	"BLD",1613 ,4,0)
	492	^9.64PA^^
	493	"BLD",1613 ,6)
	494	4^
	495	"BLD",1613 ,6.3)
	496	11
	497	"BLD",1613 ,"KRN",0)
	498	^9.67PA^1. 5^24
	499	"BLD",1613 ,"KRN",.4, 0)
	500	.4
	501	"BLD",1613 ,"KRN",.40 1,0)
	502	.401
	503	"BLD",1613 ,"KRN",.40 2,0)
	504	.402
	505	"BLD",1613 ,"KRN",.40 3,0)
	506	.403
	507	"BLD",1613 ,"KRN",.5, 0)
	508	.5
	509	"BLD",1613 ,"KRN",.84 ,0)
	510	.84
	511	"BLD",1613 ,"KRN",1.5 ,0)
	512	1.5
	513	"BLD",1613 ,"KRN",1.6 ,0)
	514	1.6
	515	"BLD",1613 ,"KRN",1.6 1,0)
	516	1.61
	517	"BLD",1613 ,"KRN",1.6 2,0)
	518	1.62
	519	"BLD",1613 ,"KRN",3.6 ,0)
	520	3.6
	521	"BLD",1613 ,"KRN",3.8 ,0)
	522	3.8
	523	"BLD",1613 ,"KRN",9.2 ,0)
	524	9.2
	525	"BLD",1613 ,"KRN",9.8 ,0)
	526	9.8
	527	"BLD",1613 ,"KRN",9.8 ,"NM",0)
	528	^9.68A^8^7
	529	"BLD",1613 ,"KRN",9.8 ,"NM",1,0)
	530	DIEQ^^0^B1 6948298
	531	"BLD",1613 ,"KRN",9.8 ,"NM",3,0)
	532	DITP^^0^B1 8223422
	533	"BLD",1613 ,"KRN",9.8 ,"NM",4,0)
	534	DIWP^^0^B1 4095198
	535	"BLD",1613 ,"KRN",9.8 ,"NM",5,0)
	536	DINIT4^^0^ B12872917
	537	"BLD",1613 ,"KRN",9.8 ,"NM",6,0)
	538	DII1^^0^B2 240976
	539	"BLD",1613 ,"KRN",9.8 ,"NM",7,0)
	540	DIFMEDT1^^ 0^B3205089
	541	"BLD",1613 ,"KRN",9.8 ,"NM",8,0)
	542	DIUTL^^0^B 13688793
	543	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DIEQ",1)
	544
	545	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DIFMEDT1" ,7)
	546
	547	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DII1",6)
	548
	549	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DINIT4",5 )
	550
	551	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DITP",3)
	552
	553	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DIUTL",8)
	554
	555	"BLD",1613 ,"KRN",9.8 ,"NM","B", "DIWP",4)
	556
	557	"BLD",1613 ,"KRN",19, 0)
	558	19
	559	"BLD",1613 ,"KRN",19, "NM",0)
	560	^9.68A^4^4
	561	"BLD",1613 ,"KRN",19, "NM",1,0)
	562	DI DATA TY PE FILE^^1 ^
	563	"BLD",1613 ,"KRN",19, "NM",2,0)
	564	DI DATA TY PE PROPERT Y FILE^^1^
	565	"BLD",1613 ,"KRN",19, "NM",3,0)
	566	DI DATA TY PE METHOD FILE^^1^
	567	"BLD",1613 ,"KRN",19, "NM",4,0)
	568	DI DATA TY PE OPTIONS ^^1^
	569	"BLD",1613 ,"KRN",19, "NM","B"," DI DATA TY PE FILE",1 )
	570
	571	"BLD",1613 ,"KRN",19, "NM","B"," DI DATA TY PE METHOD FILE",3)
	572
	573	"BLD",1613 ,"KRN",19, "NM","B"," DI DATA TY PE OPTIONS ",4)
	574
	575	"BLD",1613 ,"KRN",19, "NM","B"," DI DATA TY PE PROPERT Y FILE",2)
	576
	577	"BLD",1613 ,"KRN",19. 1,0)
	578	19.1
	579	"BLD",1613 ,"KRN",101 ,0)
	580	101
	581	"BLD",1613 ,"KRN",409 .61,0)
	582	409.61
	583	"BLD",1613 ,"KRN",771 ,0)
	584	771
	585	"BLD",1613 ,"KRN",779 .2,0)
	586	779.2
	587	"BLD",1613 ,"KRN",870 ,0)
	588	870
	589	"BLD",1613 ,"KRN",898 9.51,0)
	590	8989.51
	591	"BLD",1613 ,"KRN",898 9.52,0)
	592	8989.52
	593	"BLD",1613 ,"KRN",899 4,0)
	594	8994
	595	"BLD",1613 ,"KRN","B" ,.4,.4)
	596
	597	"BLD",1613 ,"KRN","B" ,.401,.401 )
	598
	599	"BLD",1613 ,"KRN","B" ,.402,.402 )
	600
	601	"BLD",1613 ,"KRN","B" ,.403,.403 )
	602
	603	"BLD",1613 ,"KRN","B" ,.5,.5)
	604
	605	"BLD",1613 ,"KRN","B" ,.84,.84)
	606
	607	"BLD",1613 ,"KRN","B" ,1.5,1.5)
	608
	609	"BLD",1613 ,"KRN","B" ,1.6,1.6)
	610
	611	"BLD",1613 ,"KRN","B" ,1.61,1.61 )
	612
	613	"BLD",1613 ,"KRN","B" ,1.62,1.62 )
	614
	615	"BLD",1613 ,"KRN","B" ,3.6,3.6)
	616
	617	"BLD",1613 ,"KRN","B" ,3.8,3.8)
	618
	619	"BLD",1613 ,"KRN","B" ,9.2,9.2)
	620
	621	"BLD",1613 ,"KRN","B" ,9.8,9.8)
	622
	623	"BLD",1613 ,"KRN","B" ,19,19)
	624
	625	"BLD",1613 ,"KRN","B" ,19.1,19.1 )
	626
	627	"BLD",1613 ,"KRN","B" ,101,101)
	628
	629	"BLD",1613 ,"KRN","B" ,409.61,40 9.61)
	630
	631	"BLD",1613 ,"KRN","B" ,771,771)
	632
	633	"BLD",1613 ,"KRN","B" ,779.2,779 .2)
	634
	635	"BLD",1613 ,"KRN","B" ,870,870)
	636
	637	"BLD",1613 ,"KRN","B" ,8989.51,8 989.51)
	638
	639	"BLD",1613 ,"KRN","B" ,8989.52,8 989.52)
	640
	641	"BLD",1613 ,"KRN","B" ,8994,8994 )
	642
	643	"BLD",1613 ,"QDEF")
	644	^^^^NO^^^^ NO^^NO
	645	"BLD",1613 ,"QUES",0)
	646	^9.62^^
	647	"BLD",1613 ,"REQB",0)
	648	^9.611^^
	649	"KRN",19,1 760,-1)
	650	1^1
	651	"KRN",19,1 760,0)
	652	DI DATA TY PE FILE
	653	"KRN",19,1 761,-1)
	654	1^2
	655	"KRN",19,1 761,0)
	656	DI DATA TY PE PROPERT Y FILE
	657	"KRN",19,1 762,-1)
	658	1^3
	659	"KRN",19,1 762,0)
	660	DI DATA TY PE METHOD FILE
	661	"KRN",19,1 763,-1)
	662	1^4
	663	"KRN",19,1 763,0)
	664	DI DATA TY PE OPTIONS
	665	"MBREQ")
	666	0
	667	"ORD",18,1 9)
	668	19;18;;;OP T^XPDTA;OP TF1^XPDIA; OPTE1^XPDI A;OPTF2^XP DIA;;OPTDE L^XPDIA
	669	"ORD",18,1 9,0)
	670	OPTION
	671	"PKG",4,-1 )
	672	1^1
	673	"PKG",4,0)
	674	VA FILEMAN ^DI^FM INI T^
	675	"PKG",4,22 ,0)
	676	^9.49I^1^1
	677	"PKG",4,22 ,1,0)
	678	22.2^31601 05^3170815 ^6
	679	"PKG",4,22 ,1,"PAH",1 ,0)
	680	10^3180302 ^6
	681	"PKG",4,22 ,1,"PAH",1 ,1,0)
	682	^^240^240^ 3180302
	683	"PKG",4,22 ,1,"PAH",1 ,1,1,0)
	684	Patch DI2 2.210 rep airs the f ollowing d efects:
	685	"PKG",4,22 ,1,"PAH",1 ,1,2,0)
	686	1. DI WP only su pports str ings up to 999 chara cters
	687	"PKG",4,22 ,1,"PAH",1 ,1,3,0)
	688	2. NU MDATE fix in patch 7 was not a dded to DI NIT
	689	"PKG",4,22 ,1,"PAH",1 ,1,4,0)
	690	3. Th e variable DO is not killed af ter call t o DIE
	691	"PKG",4,22 ,1,"PAH",1 ,1,5,0)
	692	4. Ne w api EN^D ITP for re pointing d eleted rec ords
	693	"PKG",4,22 ,1,"PAH",1 ,1,6,0)
	694	5. Ne w options for editin g Data Typ es in patc h 2 have n o parent
	695	"PKG",4,22 ,1,"PAH",1 ,1,7,0)
	696	6. Ne w API CHKP T^DIUTL(fi le, ien, m essage)
	697	"PKG",4,22 ,1,"PAH",1 ,1,8,0)
	698
	699	"PKG",4,22 ,1,"PAH",1 ,1,9,0)
	700
	701	"PKG",4,22 ,1,"PAH",1 ,1,10,0)
	702	Patch Comp onents:
	703	"PKG",4,22 ,1,"PAH",1 ,1,11,0)
	704	---------- -------
	705	"PKG",4,22 ,1,"PAH",1 ,1,12,0)
	706	Files & F ields Asso ciated:
	707	"PKG",4,22 ,1,"PAH",1 ,1,13,0)
	708	New/Modif ied/
	709	"PKG",4,22 ,1,"PAH",1 ,1,14,0)
	710	File Name (#) Field Nam e (#) De leted
	711	"PKG",4,22 ,1,"PAH",1 ,1,15,0)
	712	---------- --- --------- ----- ------- ------
	713	"PKG",4,22 ,1,"PAH",1 ,1,16,0)
	714	N/A
	715	"PKG",4,22 ,1,"PAH",1 ,1,17,0)
	716
	717	"PKG",4,22 ,1,"PAH",1 ,1,18,0)
	718	Forms Asso ciated:
	719	"PKG",4,22 ,1,"PAH",1 ,1,19,0)
	720
	721	"PKG",4,22 ,1,"PAH",1 ,1,20,0)
	722	Form Name File # New/Modif ied/Delete d
	723	"PKG",4,22 ,1,"PAH",1 ,1,21,0)
	724	--------- ------ --------- ---------- -
	725	"PKG",4,22 ,1,"PAH",1 ,1,22,0)
	726	N/A
	727	"PKG",4,22 ,1,"PAH",1 ,1,23,0)
	728
	729	"PKG",4,22 ,1,"PAH",1 ,1,24,0)
	730	Mail Group s Associat ed:
	731	"PKG",4,22 ,1,"PAH",1 ,1,25,0)
	732
	733	"PKG",4,22 ,1,"PAH",1 ,1,26,0)
	734	Mail Group Name New/M odified/De leted
	735	"PKG",4,22 ,1,"PAH",1 ,1,27,0)
	736	---------- ----- ----- ---------- -----
	737	"PKG",4,22 ,1,"PAH",1 ,1,28,0)
	738	N/A
	739	"PKG",4,22 ,1,"PAH",1 ,1,29,0)
	740
	741	"PKG",4,22 ,1,"PAH",1 ,1,30,0)
	742	Options As sociated:
	743	"PKG",4,22 ,1,"PAH",1 ,1,31,0)
	744
	745	"PKG",4,22 ,1,"PAH",1 ,1,32,0)
	746	Option Nam e Type New/Modifi ed/Deleted
	747	"PKG",4,22 ,1,"PAH",1 ,1,33,0)
	748	---------- - ---- ---------- ----------
	749	"PKG",4,22 ,1,"PAH",1 ,1,34,0)
	750	DI DATA T YPE OPTION S Menu Deleted
	751	"PKG",4,22 ,1,"PAH",1 ,1,35,0)
	752	DI DATA T YPE FILE Run Routi ne Deleted
	753	"PKG",4,22 ,1,"PAH",1 ,1,36,0)
	754	DI DATA T YPE METHOD FILE Run Routi ne Deleted
	755	"PKG",4,22 ,1,"PAH",1 ,1,37,0)
	756	DI DATA T YPE PROPER TY FILE Run Routi ne Deleted
	757	"PKG",4,22 ,1,"PAH",1 ,1,38,0)
	758
	759	"PKG",4,22 ,1,"PAH",1 ,1,39,0)
	760
	761	"PKG",4,22 ,1,"PAH",1 ,1,40,0)
	762	Protocols Associated :
	763	"PKG",4,22 ,1,"PAH",1 ,1,41,0)
	764
	765	"PKG",4,22 ,1,"PAH",1 ,1,42,0)
	766	Protocol N ame New/Modifi ed/Deleted
	767	"PKG",4,22 ,1,"PAH",1 ,1,43,0)
	768	---------- --- ---------- ----------
	769	"PKG",4,22 ,1,"PAH",1 ,1,44,0)
	770	N/A
	771	"PKG",4,22 ,1,"PAH",1 ,1,45,0)
	772
	773	"PKG",4,22 ,1,"PAH",1 ,1,46,0)
	774	Security K eys Associ ated:
	775	"PKG",4,22 ,1,"PAH",1 ,1,47,0)
	776
	777	"PKG",4,22 ,1,"PAH",1 ,1,48,0)
	778	Security K ey Name
	779	"PKG",4,22 ,1,"PAH",1 ,1,49,0)
	780	---------- -------
	781	"PKG",4,22 ,1,"PAH",1 ,1,50,0)
	782	N/A
	783	"PKG",4,22 ,1,"PAH",1 ,1,51,0)
	784
	785	"PKG",4,22 ,1,"PAH",1 ,1,52,0)
	786	Templates Associated :
	787	"PKG",4,22 ,1,"PAH",1 ,1,53,0)
	788
	789	"PKG",4,22 ,1,"PAH",1 ,1,54,0)
	790	Template N ame Type File Name (Number ) New/Mod ified/Dele ted
	791	"PKG",4,22 ,1,"PAH",1 ,1,55,0)
	792	---------- --- ---- ---- ---------- ---------- - ------- ---------- ---
	793	"PKG",4,22 ,1,"PAH",1 ,1,56,0)
	794	N/A
	795	"PKG",4,22 ,1,"PAH",1 ,1,57,0)
	796
	797	"PKG",4,22 ,1,"PAH",1 ,1,58,0)
	798	Additional Informati on:
	799	"PKG",4,22 ,1,"PAH",1 ,1,59,0)
	800	---------- ---------- ---
	801	"PKG",4,22 ,1,"PAH",1 ,1,60,0)
	802	N/A
	803	"PKG",4,22 ,1,"PAH",1 ,1,61,0)
	804
	805	"PKG",4,22 ,1,"PAH",1 ,1,62,0)
	806	New Servic e Requests (NSRs):
	807	"PKG",4,22 ,1,"PAH",1 ,1,63,0)
	808	---------- ---------- --------
	809	"PKG",4,22 ,1,"PAH",1 ,1,64,0)
	810	N/A
	811	"PKG",4,22 ,1,"PAH",1 ,1,65,0)
	812
	813	"PKG",4,22 ,1,"PAH",1 ,1,66,0)
	814	Patient Sa fety Issue s (PSIs):
	815	"PKG",4,22 ,1,"PAH",1 ,1,67,0)
	816	---------- ---------- ---------
	817	"PKG",4,22 ,1,"PAH",1 ,1,68,0)
	818	N/A
	819	"PKG",4,22 ,1,"PAH",1 ,1,69,0)
	820
	821	"PKG",4,22 ,1,"PAH",1 ,1,70,0)
	822	Defect Tra cking Syst em Ticket( s) & Overv iew:
	823	"PKG",4,22 ,1,"PAH",1 ,1,71,0)
	824	---------- ---------- ---------- ---------- ----
	825	"PKG",4,22 ,1,"PAH",1 ,1,72,0)
	826	1. Ticket I13413576 FY17
	827	"PKG",4,22 ,1,"PAH",1 ,1,73,0)
	828	Problem:
	829	"PKG",4,22 ,1,"PAH",1 ,1,74,0)
	830	--------
	831	"PKG",4,22 ,1,"PAH",1 ,1,75,0)
	832	Word Proc essing can not parse a string g reater tha n 999 and the FM 22. 2
	833	"PKG",4,22 ,1,"PAH",1 ,1,76,0)
	834	allows st rings up t o 4K chara cters.
	835	"PKG",4,22 ,1,"PAH",1 ,1,77,0)
	836
	837	"PKG",4,22 ,1,"PAH",1 ,1,78,0)
	838	Resolutio n:
	839	"PKG",4,22 ,1,"PAH",1 ,1,79,0)
	840	--------- -
	841	"PKG",4,22 ,1,"PAH",1 ,1,80,0)
	842	Modified DIWP and c hanged 999 to 9999
	843	"PKG",4,22 ,1,"PAH",1 ,1,81,0)
	844
	845	"PKG",4,22 ,1,"PAH",1 ,1,82,0)
	846	2. Ticket I15917948 FY17
	847	"PKG",4,22 ,1,"PAH",1 ,1,83,0)
	848	Problem:
	849	"PKG",4,22 ,1,"PAH",1 ,1,84,0)
	850	--------
	851	"PKG",4,22 ,1,"PAH",1 ,1,85,0)
	852	Patch DI* 22.2*7 fix ed the NUM DATE funct ion in the FUNCTION file #.5,
	853	"PKG",4,22 ,1,"PAH",1 ,1,86,0)
	854	but DINI T restored the old f unction.
	855	"PKG",4,22 ,1,"PAH",1 ,1,87,0)
	856
	857	"PKG",4,22 ,1,"PAH",1 ,1,88,0)
	858	Resolutio n:
	859	"PKG",4,22 ,1,"PAH",1 ,1,89,0)
	860	--------- -
	861	"PKG",4,22 ,1,"PAH",1 ,1,90,0)
	862	Modified DINIT4 and added fix to NUMDAT E
	863	"PKG",4,22 ,1,"PAH",1 ,1,91,0)
	864
	865	"PKG",4,22 ,1,"PAH",1 ,1,92,0)
	866	3. Ticket I16009474 FY17
	867	"PKG",4,22 ,1,"PAH",1 ,1,93,0)
	868	Problem:
	869	"PKG",4,22 ,1,"PAH",1 ,1,94,0)
	870	--------
	871	"PKG",4,22 ,1,"PAH",1 ,1,95,0)
	872	The varia ble DO is not killed after a c all to DIE if a user asked for
	873	"PKG",4,22 ,1,"PAH",1 ,1,96,0)
	874	help in a multiple Date fiel d.
	875	"PKG",4,22 ,1,"PAH",1 ,1,97,0)
	876
	877	"PKG",4,22 ,1,"PAH",1 ,1,98,0)
	878	Resolutio n:
	879	"PKG",4,22 ,1,"PAH",1 ,1,99,0)
	880	--------- -
	881	"PKG",4,22 ,1,"PAH",1 ,1,100,0)
	882	Modified DIEQ and a dded DO to kill stat ement at l ine Q
	883	"PKG",4,22 ,1,"PAH",1 ,1,101,0)
	884
	885	"PKG",4,22 ,1,"PAH",1 ,1,102,0)
	886	4. Ticket R13102022 FY17
	887	"PKG",4,22 ,1,"PAH",1 ,1,103,0)
	888	Problem:
	889	"PKG",4,22 ,1,"PAH",1 ,1,104,0)
	890	--------
	891	"PKG",4,22 ,1,"PAH",1 ,1,105,0)
	892	Need API to repoint a deleted value in a record, similar to what happ ens
	893	"PKG",4,22 ,1,"PAH",1 ,1,106,0)
	894	when a p ointer fie ld value i s deleted.
	895	"PKG",4,22 ,1,"PAH",1 ,1,107,0)
	896
	897	"PKG",4,22 ,1,"PAH",1 ,1,108,0)
	898	Resolutio n:
	899	"PKG",4,22 ,1,"PAH",1 ,1,109,0)
	900	--------- -
	901	"PKG",4,22 ,1,"PAH",1 ,1,110,0)
	902	Modified DITP and a dded tag E N(file, li st) where file=file number,
	903	"PKG",4,22 ,1,"PAH",1 ,1,111,0)
	904	list= arr ay contain ing list o f entries to be repo inted(Pass ed by Refe rence)
	905	"PKG",4,22 ,1,"PAH",1 ,1,112,0)
	906
	907	"PKG",4,22 ,1,"PAH",1 ,1,113,0)
	908	5. Ticket R14175506 FY17
	909	"PKG",4,22 ,1,"PAH",1 ,1,114,0)
	910	Problem:
	911	"PKG",4,22 ,1,"PAH",1 ,1,115,0)
	912	--------
	913	"PKG",4,22 ,1,"PAH",1 ,1,116,0)
	914	New optio ns that we re for add ing new da ta types a nd release d as part of
	915	"PKG",4,22 ,1,"PAH",1 ,1,117,0)
	916	patch DI* 22.2*2 had no parent menu. Th ese option were not meant for
	917	"PKG",4,22 ,1,"PAH",1 ,1,118,0)
	918	general d istributio n. The op tions are: DI DATA T YPE OPTION S,
	919	"PKG",4,22 ,1,"PAH",1 ,1,119,0)
	920	DI DATA TYPE FILE, DI DATA T YPE METHOD FILE, and
	921	"PKG",4,22 ,1,"PAH",1 ,1,120,0)
	922	DI DATA TYPE PROPE RTY FILE.
	923	"PKG",4,22 ,1,"PAH",1 ,1,121,0)
	924
	925	"PKG",4,22 ,1,"PAH",1 ,1,122,0)
	926	Resolutio n:
	927	"PKG",4,22 ,1,"PAH",1 ,1,123,0)
	928	--------- -
	929	"PKG",4,22 ,1,"PAH",1 ,1,124,0)
	930	All four options wi ll be dele ted from t he OPTION file and a dded to th e
	931	"PKG",4,22 ,1,"PAH",1 ,1,125,0)
	932	hard code d options in the DII routine. Modified DII1 and D IFMEDT1
	933	"PKG",4,22 ,1,"PAH",1 ,1,126,0)
	934	routines.
	935	"PKG",4,22 ,1,"PAH",1 ,1,127,0)
	936
	937	"PKG",4,22 ,1,"PAH",1 ,1,128,0)
	938	6. No tic ket
	939	"PKG",4,22 ,1,"PAH",1 ,1,129,0)
	940	Problem:
	941	"PKG",4,22 ,1,"PAH",1 ,1,130,0)
	942	--------
	943	"PKG",4,22 ,1,"PAH",1 ,1,131,0)
	944	Developer needs API to check what entri es points to a parti cular reco rd
	945	"PKG",4,22 ,1,"PAH",1 ,1,132,0)
	946	in a fil e.
	947	"PKG",4,22 ,1,"PAH",1 ,1,133,0)
	948
	949	"PKG",4,22 ,1,"PAH",1 ,1,134,0)
	950	Resolutio n:
	951	"PKG",4,22 ,1,"PAH",1 ,1,135,0)
	952	--------- -
	953	"PKG",4,22 ,1,"PAH",1 ,1,136,0)
	954	CHKPT^DIU TL(file, i en, messag e).
	955	"PKG",4,22 ,1,"PAH",1 ,1,137,0)
	956	;INPUT: D IFILE=file number, D A=ien of r ecord, DIM SG=closed global roo t
	957	"PKG",4,22 ,1,"PAH",1 ,1,138,0)
	958	or local array
	959	"PKG",4,22 ,1,"PAH",1 ,1,139,0)
	960	;OUTPUT: DIMSG(0)=l ine count, DISMG(#)= "Entry ien in FILE ( file #)
	961	"PKG",4,22 ,1,"PAH",1 ,1,140,0)
	962	refers t o record D A"
	963	"PKG",4,22 ,1,"PAH",1 ,1,141,0)
	964
	965	"PKG",4,22 ,1,"PAH",1 ,1,142,0)
	966	Blood Ban k Clearanc e:
	967	"PKG",4,22 ,1,"PAH",1 ,1,143,0)
	968	--------- ---------- --
	969	"PKG",4,22 ,1,"PAH",1 ,1,144,0)
	970	EFFECT ON BLOOD BAN K FUNCTION AL REQUIRE MENTS: Pat ch DI22.2 10 contai ns
	971	"PKG",4,22 ,1,"PAH",1 ,1,145,0)
	972	changes t o a packag e referenc ed in ProP ath standa rd titled: BBM Team Review
	973	"PKG",4,22 ,1,"PAH",1 ,1,146,0)
	974	of VistA Patches. T his patch does not a lter or mo dify any V istA Blood Bank
	975	"PKG",4,22 ,1,"PAH",1 ,1,147,0)
	976	software design saf eguards or safety cr itical ele ments func tions.
	977	"PKG",4,22 ,1,"PAH",1 ,1,148,0)
	978
	979	"PKG",4,22 ,1,"PAH",1 ,1,149,0)
	980	RISK ANAL YSIS: Chan ges made b y patch DI 22.210 h ave no eff ect on Blo od Bank
	981	"PKG",4,22 ,1,"PAH",1 ,1,150,0)
	982	software functional ity, there fore RISK is none.
	983	"PKG",4,22 ,1,"PAH",1 ,1,151,0)
	984
	985	"PKG",4,22 ,1,"PAH",1 ,1,152,0)
	986
	987	"PKG",4,22 ,1,"PAH",1 ,1,153,0)
	988	Test Sites :
	989	"PKG",4,22 ,1,"PAH",1 ,1,154,0)
	990	---------- -
	991	"PKG",4,22 ,1,"PAH",1 ,1,155,0)
	992	Charlesto n
	993	"PKG",4,22 ,1,"PAH",1 ,1,156,0)
	994	West Palm Beach
	995	"PKG",4,22 ,1,"PAH",1 ,1,157,0)
	996
	997	"PKG",4,22 ,1,"PAH",1 ,1,158,0)
	998
	999	"PKG",4,22 ,1,"PAH",1 ,1,159,0)
	1000	Software a nd Documen tation Ret rieval Ins tructions:
	1001	"PKG",4,22 ,1,"PAH",1 ,1,160,0)
	1002	---------- ---------- ---------- ---------- ----------
	1003	"PKG",4,22 ,1,"PAH",1 ,1,161,0)
	1004	Documentat ion descri bing the n ew api, EN ^DITP, can be found in the
	1005	"PKG",4,22 ,1,"PAH",1 ,1,162,0)
	1006	FM 22.2 De veloper's Guide
	1007	"PKG",4,22 ,1,"PAH",1 ,1,163,0)
	1008
	1009	"PKG",4,22 ,1,"PAH",1 ,1,164,0)
	1010	Current do cumentatio n is on th e VA Softw are Docume ntation Li brary
	1011	"PKG",4,22 ,1,"PAH",1 ,1,165,0)
	1012	at: http:/ /www. DNS /vdl/
	1013	"PKG",4,22 ,1,"PAH",1 ,1,166,0)
	1014
	1015	"PKG",4,22 ,1,"PAH",1 ,1,167,0)
	1016	Title Fil e Name SFTP Mode
	1017	"PKG",4,22 ,1,"PAH",1 ,1,168,0)
	1018	---------- ---------- ---------- ---------- ---------- ---------- -----
	1019	"PKG",4,22 ,1,"PAH",1 ,1,169,0)
	1020	FM 22.2 De veloper's Guide f m22_2dg.PD F Binar y
	1021	"PKG",4,22 ,1,"PAH",1 ,1,170,0)
	1022	FM 22.2 Us er Manual f m22_2um1.P DF Binar y
	1023	"PKG",4,22 ,1,"PAH",1 ,1,171,0)
	1024	FM 22.2 Ad vanced Use r Manual f m22_2um2.P DF Binar y
	1025	"PKG",4,22 ,1,"PAH",1 ,1,172,0)
	1026	FM 22.2 Te chnical Ma nual f m22_2tm.PD F Binar y
	1027	"PKG",4,22 ,1,"PAH",1 ,1,173,0)
	1028
	1029	"PKG",4,22 ,1,"PAH",1 ,1,174,0)
	1030
	1031	"PKG",4,22 ,1,"PAH",1 ,1,175,0)
	1032	Backout an d Rollback Procedure :
	1033	"PKG",4,22 ,1,"PAH",1 ,1,176,0)
	1034	---------- ---------- ---------- -
	1035	"PKG",4,22 ,1,"PAH",1 ,1,177,0)
	1036	This patch only cons ists of ro utines. Du ring the V istA Insta llation
	1037	"PKG",4,22 ,1,"PAH",1 ,1,178,0)
	1038	Procedure of the KID S build, t he install er should back up th e modified routines by the use of the 'B ackup a Tr ansport Gl obal' acti on
	1039	"PKG",4,22 ,1,"PAH",1 ,1,179,0)
	1040	(step 3b i n the Inst allations Instructio ns below).
	1041	"PKG",4,22 ,1,"PAH",1 ,1,180,0)
	1042
	1043	"PKG",4,22 ,1,"PAH",1 ,1,181,0)
	1044	If rollbac k/backout is require d, the ins taller can restore t he routine s
	1045	"PKG",4,22 ,1,"PAH",1 ,1,182,0)
	1046	using the MailMan me ssage that were save d prior to installin g the
	1047	"PKG",4,22 ,1,"PAH",1 ,1,183,0)
	1048	patch.
	1049	"PKG",4,22 ,1,"PAH",1 ,1,184,0)
	1050
	1051	"PKG",4,22 ,1,"PAH",1 ,1,185,0)
	1052
	1053	"PKG",4,22 ,1,"PAH",1 ,1,186,0)
	1054	Patch Inst allation:
	1055	"PKG",4,22 ,1,"PAH",1 ,1,187,0)
	1056
	1057	"PKG",4,22 ,1,"PAH",1 ,1,188,0)
	1058
	1059	"PKG",4,22 ,1,"PAH",1 ,1,189,0)
	1060	Pre-Instal lation Ins tructions:
	1061	"PKG",4,22 ,1,"PAH",1 ,1,190,0)
	1062	---------- ---------- ----------
	1063	"PKG",4,22 ,1,"PAH",1 ,1,191,0)
	1064	This patch can be qu eued for i nstallatio n. TaskMa n does not have to b e
	1065	"PKG",4,22 ,1,"PAH",1 ,1,192,0)
	1066	stopped, H L7 filers do not nee d to be st opped, and users may be on the
	1067	"PKG",4,22 ,1,"PAH",1 ,1,193,0)
	1068	system. T he patch s hould be i nstalled d uring non- peak hours to minimi ze
	1069	"PKG",4,22 ,1,"PAH",1 ,1,194,0)
	1070	potential for disrup tion to us ers. This patch sho uld take l ess than 1
	1071	"PKG",4,22 ,1,"PAH",1 ,1,195,0)
	1072	minute to install.
	1073	"PKG",4,22 ,1,"PAH",1 ,1,196,0)
	1074
	1075	"PKG",4,22 ,1,"PAH",1 ,1,197,0)
	1076
	1077	"PKG",4,22 ,1,"PAH",1 ,1,198,0)
	1078	Installati on Instruc tions:
	1079	"PKG",4,22 ,1,"PAH",1 ,1,199,0)
	1080	---------- ---------- ------
	1081	"PKG",4,22 ,1,"PAH",1 ,1,200,0)
	1082	1. Choose the MailM an message containin g this pat ch.
	1083	"PKG",4,22 ,1,"PAH",1 ,1,201,0)
	1084
	1085	"PKG",4,22 ,1,"PAH",1 ,1,202,0)
	1086	2. Choose the INSTA LL/CHECK M ESSAGE Pac kMan optio n.
	1087	"PKG",4,22 ,1,"PAH",1 ,1,203,0)
	1088
	1089	"PKG",4,22 ,1,"PAH",1 ,1,204,0)
	1090	3. From t he Kernel Installati on and Dis tribution System Men u, select
	1091	"PKG",4,22 ,1,"PAH",1 ,1,205,0)
	1092	the In stallation Menu. Fr om this me nu, you ma y elect to use the
	1093	"PKG",4,22 ,1,"PAH",1 ,1,206,0)
	1094	follow ing option s. When pr ompted for the INSTA LL NAME en ter DI22. 210.
	1095	"PKG",4,22 ,1,"PAH",1 ,1,207,0)
	1096	a. Pr int Transp ort Global - This op tion lets you print the conten ts
	1097	"PKG",4,22 ,1,"PAH",1 ,1,208,0)
	1098	of a Transpo rt Global that is cu rrently lo aded in th e ^XTMP
	1099	"PKG",4,22 ,1,"PAH",1 ,1,209,0)
	1100	gl obal.
	1101	"PKG",4,22 ,1,"PAH",1 ,1,210,0)
	1102	b. Ba ckup a Tra nsport Glo bal - This option wi ll create a backup
	1103	"PKG",4,22 ,1,"PAH",1 ,1,211,0)
	1104	me ssage of a ny routine s exported with this patch. It will not
	1105	"PKG",4,22 ,1,"PAH",1 ,1,212,0)
	1106	ba ckup any o ther chang es such as functions .
	1107	"PKG",4,22 ,1,"PAH",1 ,1,213,0)
	1108	c. Co mpare Tran sport Glob al to Curr ent System - This op tion will
	1109	"PKG",4,22 ,1,"PAH",1 ,1,214,0)
	1110	al low you to view all changes th at will be made when this patc h
	1111	"PKG",4,22 ,1,"PAH",1 ,1,215,0)
	1112	is installed . It comp ares all c omponents of this pa tch
	1113	"PKG",4,22 ,1,"PAH",1 ,1,216,0)
	1114	(r outines, D Ds, templa tes, etc.) .
	1115	"PKG",4,22 ,1,"PAH",1 ,1,217,0)
	1116	d. Ve rify Check sums in Tr ansport Gl obal - Thi s option w ill allow
	1117	"PKG",4,22 ,1,"PAH",1 ,1,218,0)
	1118	yo u to ensur e the inte grity of t he routine s that are in the
	1119	"PKG",4,22 ,1,"PAH",1 ,1,219,0)
	1120	tr ansport gl obal.
	1121	"PKG",4,22 ,1,"PAH",1 ,1,220,0)
	1122
	1123	"PKG",4,22 ,1,"PAH",1 ,1,221,0)
	1124	4. From t he Install ation Menu , select t he Install Package(s ) option a nd
	1125	"PKG",4,22 ,1,"PAH",1 ,1,222,0)
	1126	When p rompted fo r the INST ALL NAME, enter DI2 2.210.
	1127	"PKG",4,22 ,1,"PAH",1 ,1,223,0)
	1128
	1129	"PKG",4,22 ,1,"PAH",1 ,1,224,0)
	1130	5. If pro mpted 'Wan t KIDS to Rebuild Me nu Trees U pon Comple tion of
	1131	"PKG",4,22 ,1,"PAH",1 ,1,225,0)
	1132	Instal l? NO//' r espond NO.
	1133	"PKG",4,22 ,1,"PAH",1 ,1,226,0)
	1134
	1135	"PKG",4,22 ,1,"PAH",1 ,1,227,0)
	1136	7. When p rompted "W ant KIDS t o INHIBIT LOGONs dur ing the in stall?
	1137	"PKG",4,22 ,1,"PAH",1 ,1,228,0)
	1138	NO//" respond NO .
	1139	"PKG",4,22 ,1,"PAH",1 ,1,229,0)
	1140
	1141	"PKG",4,22 ,1,"PAH",1 ,1,230,0)
	1142	8. If pro mpted "Wan t to DISAB LE Schedul ed Options , Menu Opt ions,
	1143	"PKG",4,22 ,1,"PAH",1 ,1,231,0)
	1144	and Pr otocols? N O//" respo nd NO.
	1145	"PKG",4,22 ,1,"PAH",1 ,1,232,0)
	1146
	1147	"PKG",4,22 ,1,"PAH",1 ,1,233,0)
	1148	9. If pro mpted "Del ay Install (Minutes) : (0 - 60 ): 0//" re spond 0.
	1149	"PKG",4,22 ,1,"PAH",1 ,1,234,0)
	1150
	1151	"PKG",4,22 ,1,"PAH",1 ,1,235,0)
	1152
	1153	"PKG",4,22 ,1,"PAH",1 ,1,236,0)
	1154	Post-Insta llation In structions :
	1155	"PKG",4,22 ,1,"PAH",1 ,1,237,0)
	1156	---------- ---------- ---------- -
	1157	"PKG",4,22 ,1,"PAH",1 ,1,238,0)
	1158	none
	1159	"PKG",4,22 ,1,"PAH",1 ,1,239,0)
	1160
	1161	"PKG",4,22 ,1,"PAH",1 ,1,240,0)
	1162
	1163	"QUES","XP F1",0)
	1164	Y
	1165	"QUES","XP F1","??")
	1166	^D REP^XPD H
	1167	"QUES","XP F1","A")
	1168	Shall I wr ite over y our \|FLAG\| File
	1169	"QUES","XP F1","B")
	1170	YES
	1171	"QUES","XP F1","M")
	1172	D XPF1^XPD IQ
	1173	"QUES","XP F2",0)
	1174	Y
	1175	"QUES","XP F2","??")
	1176	^D DTA^XPD H
	1177	"QUES","XP F2","A")
	1178	Want my da ta \|FLAG\| yours
	1179	"QUES","XP F2","B")
	1180	YES
	1181	"QUES","XP F2","M")
	1182	D XPF2^XPD IQ
	1183	"QUES","XP I1",0)
	1184	YO
	1185	"QUES","XP I1","??")
	1186	^D INHIBIT ^XPDH
	1187	"QUES","XP I1","A")
	1188	Want KIDS to INHIBIT LOGONs du ring the i nstall
	1189	"QUES","XP I1","B")
	1190	NO
	1191	"QUES","XP I1","M")
	1192	D XPI1^XPD IQ
	1193	"QUES","XP M1",0)
	1194	PO^VA(200, :EM
	1195	"QUES","XP M1","??")
	1196	^D MG^XPDH
	1197	"QUES","XP M1","A")
	1198	Enter the Coordinato r for Mail Group '\|F LAG\|'
	1199	"QUES","XP M1","B")
	1200
	1201	"QUES","XP M1","M")
	1202	D XPM1^XPD IQ
	1203	"QUES","XP O1",0)
	1204	Y
	1205	"QUES","XP O1","??")
	1206	^D MENU^XP DH
	1207	"QUES","XP O1","A")
	1208	Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install
	1209	"QUES","XP O1","B")
	1210	NO
	1211	"QUES","XP O1","M")
	1212	D XPO1^XPD IQ
	1213	"QUES","XP Z1",0)
	1214	Y
	1215	"QUES","XP Z1","??")
	1216	^D OPT^XPD H
	1217	"QUES","XP Z1","A")
	1218	Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls
	1219	"QUES","XP Z1","B")
	1220	NO
	1221	"QUES","XP Z1","M")
	1222	D XPZ1^XPD IQ
	1223	"QUES","XP Z2",0)
	1224	Y
	1225	"QUES","XP Z2","??")
	1226	^D RTN^XPD H
	1227	"QUES","XP Z2","A")
	1228	Want to MO VE routine s to other CPUs
	1229	"QUES","XP Z2","B")
	1230	NO
	1231	"QUES","XP Z2","M")
	1232	D XPZ2^XPD IQ
	1233	"RTN")
	1234	7
	1235	"RTN","DIE Q")
	1236	0^1^B16948 298^B16904 404
	1237	"RTN","DIE Q",1,0)
	1238	DIEQ ;SFIS C/XAK,YJK - HELP DUR ING INPUT ;14MAR2016
	1239	"RTN","DIE Q",2,0)
	1240	;;22.2;VA FileMan;* 2,7,5,10 *;Jan 05, 2016;Build 11
	1241	"RTN","DIE Q",3,0)
	1242	;;Per VA Directive 6402, this routine s hould not be modifie d.
	1243	"RTN","DIE Q",4,0)
	1244	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
	1245	"RTN","DIE Q",5,0)
	1246	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
	1247	"RTN","DIE Q",6,0)
	1248	;;License d under th e terms of the Apach e License, Version 2 .0.
	1249	"RTN","DIE Q",7,0)
	1250	;;GFT;**4 ,3,59,999, 1004,1024
	1251	"RTN","DIE Q",8,0)
	1252	;
	1253	"RTN","DIE Q",9,0)
	1254	BN S D=$P( DQ(DQ),U,4 ) S:DP+1 D =DIFLD
	1255	"RTN","DIE Q",10,0)
	1256	S DZ=X D EN1 G B^DI ED
	1257	"RTN","DIE Q",11,0)
	1258	QQ ;
	1259	"RTN","DIE Q",12,0)
	1260	I DV,DV[" *",$D(^DD( +DV,.01,0) ) S DQ(DQ) =$P(DQ(DQ) ,U,1,4)_U_ $P(^(0),U, 5,99)
	1261	"RTN","DIE Q",13,0)
	1262	EN1 ;N DDH ,DST,A1 S DDH=0 G M: DV I DP<0 D HP G P ; p7
	1263	"RTN","DIE Q",14,0)
	1264	N DST,A1 S DDH=0 G M:DV I DP <0 D HP G P
	1265	"RTN","DIE Q",15,0)
	1266	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
	1267	"RTN","DIE Q",16,0)
	1268	D H G:'$D (DZ) Q
	1269	"RTN","DIE Q",17,0)
	1270	;
	1271	"RTN","DIE Q",18,0)
	1272	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
	1273	"RTN","DIE Q",19,0)
	1274	VP S DU=DP S:DV DU=+ DO(2),D=.0 1 I DV["V" D V G Q
	1275	"RTN","DIE Q",20,0)
	1276	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
	1277	"RTN","DIE Q",21,0)
	1278	;.I %("X" )="" S %(" X")=$$GETM ETH^DIETLI BF(DU,D,"I NPUT TRANS FORM") ;p5
	1279	"RTN","DIE Q",22,0)
	1280	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")
	1281	"RTN","DIE Q",23,0)
	1282	.N A,A1,A 2
	1283	"RTN","DIE Q",24,0)
	1284	.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
	1285	"RTN","DIE Q",25,0)
	1286	.I $G(DUZ ("LANG"))> 1,A=$P(^DD (DP,D,0),U ,3) S A=$$ SETIN^DIAL OGZ_";" ;N AKED
	1287	"RTN","DIE Q",26,0)
	1288	.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
	1289	"RTN","DIE Q",27,0)
	1290	Q K DO,DST ,A1 S:$D(D IE) DIC=DI E S D=0 I $D(DDH)>10 D LIST^DD SU ;p10
	1291	"RTN","DIE Q",28,0)
	1292	D:DV UDA
	1293	"RTN","DIE Q",29,0)
	1294	Q
	1295	"RTN","DIE Q",30,0)
	1296	;
	1297	"RTN","DIE Q",31,0)
	1298	;
	1299	"RTN","DIE Q",32,0)
	1300	;
	1301	"RTN","DIE Q",33,0)
	1302	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
	1303	"RTN","DIE Q",34,0)
	1304	S X=DZ
	1305	"RTN","DIE Q",35,0)
	1306	Q
	1307	"RTN","DIE Q",36,0)
	1308	;
	1309	"RTN","DIE Q",37,0)
	1310	N1 S X=$P( X," ",%+1, $L(X," ")) Q
	1311	"RTN","DIE Q",38,0)
	1312	;
	1313	"RTN","DIE Q",39,0)
	1314	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
	1315	"RTN","DIE Q",40,0)
	1316	;
	1317	"RTN","DIE Q",41,0)
	1318	HP I $D(DQ (DQ,3)) S A1="T",DST =DQ(DQ,3) D DS
	1319	"RTN","DIE Q",42,0)
	1320	I $D(DQ(D Q,4)) S A1 ="X",DST=D Q(DQ,4) D DS
	1321	"RTN","DIE Q",43,0)
	1322	Q
	1323	"RTN","DIE Q",44,0)
	1324	;
	1325	"RTN","DIE Q",45,0)
	1326	% S %=$G(D IC("V")) K DIC S:%]" " DIC("V") =% Q
	1327	"RTN","DIE Q",46,0)
	1328	;
	1329	"RTN","DIE Q",47,0)
	1330	AST S:$D(X )[0 X="?" X $P(DQ(DQ ),U,5,99) K DIC G Q
	1331	"RTN","DIE Q",48,0)
	1332	D ^DIC K DIC,DICS,D ICW G Q
	1333	"RTN","DIE Q",49,0)
	1334	;
	1335	"RTN","DIE Q",50,0)
	1336	M ;COME HE RE FROM EN 1 ABOVE WH EN WE'RE I N A MULTIP LE FIELD
	1337	"RTN","DIE Q",51,0)
	1338	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
	1339	"RTN","DIE Q",52,0)
	1340	I '$D(@(D IC_"0)")) S DO=U_$P( DC,U,2) D DO2^DIC1
	1341	"RTN","DIE Q",53,0)
	1342	D:'$D(DO) DO^DIC1
	1343	"RTN","DIE Q",54,0)
	1344	D DDA,DQ^ DICQ D % G Q:'$D(DZ) !(DV["S") S X=DZ G P
	1345	"RTN","DIE Q",55,0)
	1346	;
	1347	"RTN","DIE Q",56,0)
	1348	H I '$G(DI SORT) D Q :'$D(DZ)
	1349	"RTN","DIE Q",57,0)
	1350	. I $G(DV )["t" S DS T=$$XHELP^ DIETLIBF(D P,D)
	1351	"RTN","DIE Q",58,0)
	1352	. E S DS T=$G(^DD(D P,D,4))
	1353	"RTN","DIE Q",59,0)
	1354	. I DST'? ."^" S A1= "X" D DS,L IST^DDSU
	1355	"RTN","DIE Q",60,0)
	1356	I $G(X)?1 "??".E,X'[ "BAD" D
	1357	"RTN","DIE Q",61,0)
	1358	. N DIDG, DG,DDD,DD, DIY,DIZ,DU OUT
	1359	"RTN","DIE Q",62,0)
	1360	. S DIDG= $P($G(^DD( DP,D,21,0) ),U,3)
	1361	"RTN","DIE Q",63,0)
	1362	. K DDSQ
	1363	"RTN","DIE Q",64,0)
	1364	. 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
	1365	"RTN","DIE Q",65,0)
	1366	. F DG=1: 1 Q:'$D(^D D(DP,D,21, DG,0)) Q: +DIDG&(DG> DIDG) D Q:$D(DDSQ)
	1367	"RTN","DIE Q",66,0)
	1368	. . I '($ G(DDH)#15) D LIST^DD SU I $G(DT OUT)!($G(D UOUT)) S D DSQ=1
	1369	"RTN","DIE Q",67,0)
	1370	. . Q:$D( DDSQ)
	1371	"RTN","DIE Q",68,0)
	1372	. . 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
	1373	"RTN","DIE Q",69,0)
	1374	. I '$D(D DSQ) Q:$D( DDH)'>10 D LIST^DDS U
	1375	"RTN","DIE Q",70,0)
	1376	. I $D(DD SQ) K DDSQ ,DDH
	1377	"RTN","DIE Q",71,0)
	1378	. Q
	1379	"RTN","DIE Q",72,0)
	1380	Q
	1381	"RTN","DIE Q",73,0)
	1382	;
	1383	"RTN","DIE Q",74,0)
	1384	BK S DDH=$ G(DDH)+1,D DH(DDH,"T" )=" " Q
	1385	"RTN","DIE Q",75,0)
	1386	;
	1387	"RTN","DIE Q",76,0)
	1388	V S DDH=+$ G(DDH),A1= "T",DST=$$ EZBLD^DIAL OG(8071) D DS
	1389	"RTN","DIE Q",77,0)
	1390	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
	1391	"RTN","DIE Q",78,0)
	1392	D BK S DS T=$$EZBLD^ DIALOG(807 3) D DS S DU="" D BK I DZ'?1"? ?".E K X,D Z Q
	1393	"RTN","DIE Q",79,0)
	1394	D T^DIEQ1 K X,DZ Q
	1395	"RTN","DIE Q",80,0)
	1396	;
	1397	"RTN","DIE Q",81,0)
	1398	DDA N T,%
	1399	"RTN","DIE Q",82,0)
	1400	S T=$T
	1401	"RTN","DIE Q",83,0)
	1402	F %=+$O(D A(" "),-1) :-1:1 K DA (%+1) S:$D (DA(%))#2 DA(%+1)=DA (%)
	1403	"RTN","DIE Q",84,0)
	1404	K DA(1) S :$D(DA)#2 DA(1)=DA
	1405	"RTN","DIE Q",85,0)
	1406	I T
	1407	"RTN","DIE Q",86,0)
	1408	Q
	1409	"RTN","DIE Q",87,0)
	1410	;
	1411	"RTN","DIE Q",88,0)
	1412	UDA N T,%
	1413	"RTN","DIE Q",89,0)
	1414	S T=$T
	1415	"RTN","DIE Q",90,0)
	1416	S DA=$G(D A(1)) ;K D A(1)
	1417	"RTN","DIE Q",91,0)
	1418	F %=2:1:+ $O(DA(" ") ,-1) I $D( DA(%))#2 S DA(%-1)=D A(%) K DA( %)
	1419	"RTN","DIE Q",92,0)
	1420	I T
	1421	"RTN","DIE Q",93,0)
	1422	Q
	1423	"RTN","DIE Q",94,0)
	1424	;
	1425	"RTN","DIE Q",95,0)
	1426	;#8071 E nter one o f the foll owing
	1427	"RTN","DIE Q",96,0)
	1428	;#8072 \| Prefix\|.En tryName to select a \|filename\|
	1429	"RTN","DIE Q",97,0)
	1430	;#8073 T o see the entries in any parti cular file type <Pre fix.?>
	1431	"RTN","DIF MEDT1")
	1432	0^7^B32050 89^B166568 0
	1433	"RTN","DIF MEDT1",1,0 )
	1434	DIFMEDT1 ; O-OIFO/BI - FM23 Ext ensible Da ta Types ; 27-Oct-201 5
	1435	"RTN","DIF MEDT1",2,0 )
	1436	;;22.2;VA FileMan;* 2,10*;Ja n 05, 2016 ;Build 11
	1437	"RTN","DIF MEDT1",3,0 )
	1438	;;Per VA Directive 6402, this routine s hould not be modifie d.
	1439	"RTN","DIF MEDT1",4,0 )
	1440	0 ;
	1441	"RTN","DIF MEDT1",5,0 )
	1442	S DIC="^D OPT(""DIFM EDT"","
	1443	"RTN","DIF MEDT1",6,0 )
	1444	G OPT:$D( ^DOPT("DIF MEDT",3)) S ^(0)="EX TENSIBLE D ATA TYPE O PTIONS^1.0 1" K ^("B" )
	1445	"RTN","DIF MEDT1",7,0 )
	1446	F X=1:1:3 S ^DOPT(" DIFMEDT",X ,0)=$P($T( @X),";;",2 )
	1447	"RTN","DIF MEDT1",8,0 )
	1448	S DIK=DIC D IXALL^D IK
	1449	"RTN","DIF MEDT1",9,0 )
	1450	OPT ;
	1451	"RTN","DIF MEDT1",10, 0)
	1452	S DIC(0)= "AEQIZ" D ^DIC G Q:Y <0 S DI=+Y D EN G 0
	1453	"RTN","DIF MEDT1",11, 0)
	1454	;
	1455	"RTN","DIF MEDT1",12, 0)
	1456	EN ;Entry point for all option s
	1457	"RTN","DIF MEDT1",13, 0)
	1458	D @DI W ! !
	1459	"RTN","DIF MEDT1",14, 0)
	1460	Q K %,DI,D IC,DIK,X,Y Q
	1461	"RTN","DIF MEDT1",15, 0)
	1462	;
	1463	"RTN","DIF MEDT1",16, 0)
	1464	1 ;;ENTER OR EDIT DA TA TYPE FI LE
	1465	"RTN","DIF MEDT1",17, 0)
	1466	G ENP81^D IFMEDT1
	1467	"RTN","DIF MEDT1",18, 0)
	1468	;
	1469	"RTN","DIF MEDT1",19, 0)
	1470	2 ;;ENTER OR EDIT DA TA TYPE ME THOD FILE
	1471	"RTN","DIF MEDT1",20, 0)
	1472	G ENP87^D IFMEDT1
	1473	"RTN","DIF MEDT1",21, 0)
	1474	;
	1475	"RTN","DIF MEDT1",22, 0)
	1476	3 ;;ENTER OR EDIT DA TA TYPE PR OPERTY FIL E
	1477	"RTN","DIF MEDT1",23, 0)
	1478	G ENP86^D IFMEDT1
	1479	"RTN","DIF MEDT1",24, 0)
	1480	;
	1481	"RTN","DIF MEDT1",25, 0)
	1482	;
	1483	"RTN","DIF MEDT1",26, 0)
	1484	ENP81 ; En try Point to Enter o r Edit DAT A TYPE FIL E (#.81)
	1485	"RTN","DIF MEDT1",27, 0)
	1486	D MAIN(.8 1) Q
	1487	"RTN","DIF MEDT1",28, 0)
	1488	;
	1489	"RTN","DIF MEDT1",29, 0)
	1490	ENP86 ; En try Point to Enter o r Edit DAT A TYPE PRO PERTY FILE (#.86)
	1491	"RTN","DIF MEDT1",30, 0)
	1492	D MAIN(.8 6) Q
	1493	"RTN","DIF MEDT1",31, 0)
	1494	;
	1495	"RTN","DIF MEDT1",32, 0)
	1496	ENP87 ; En try Point to Enter o r Edit DAT A TYPE MET HOD FILE ( #.87)
	1497	"RTN","DIF MEDT1",33, 0)
	1498	D MAIN(.8 7) Q
	1499	"RTN","DIF MEDT1",34, 0)
	1500	;
	1501	"RTN","DIF MEDT1",35, 0)
	1502	MAIN(FILE) ; Private Entry Poi nt
	1503	"RTN","DIF MEDT1",36, 0)
	1504	N DIC,DIR ,SCREEN,Y
	1505	"RTN","DIF MEDT1",37, 0)
	1506	S SCREEN= 0
	1507	"RTN","DIF MEDT1",38, 0)
	1508	;
	1509	"RTN","DIF MEDT1",39, 0)
	1510	; Ask abo ut using S creen-Mode
	1511	"RTN","DIF MEDT1",40, 0)
	1512	S DIR(0)= "Y"
	1513	"RTN","DIF MEDT1",41, 0)
	1514	S DIR("A" )="Do you want to us e the scre en-mode ve rsion"
	1515	"RTN","DIF MEDT1",42, 0)
	1516	S DIR("B" )="YES"
	1517	"RTN","DIF MEDT1",43, 0)
	1518	D ^DIR
	1519	"RTN","DIF MEDT1",44, 0)
	1520	S:Y>0 SCR EEN=1
	1521	"RTN","DIF MEDT1",45, 0)
	1522	;
	1523	"RTN","DIF MEDT1",46, 0)
	1524	SELECT ; P rivate Loo p for user input
	1525	"RTN","DIF MEDT1",47, 0)
	1526	; Select Prompt
	1527	"RTN","DIF MEDT1",48, 0)
	1528	S DIC="^D I("_FILE_" ,",DIC(0)= "AELMQ" D ^DIC
	1529	"RTN","DIF MEDT1",49, 0)
	1530	;
	1531	"RTN","DIF MEDT1",50, 0)
	1532	; Exit if nothing i s selected
	1533	"RTN","DIF MEDT1",51, 0)
	1534	Q:Y<1
	1535	"RTN","DIF MEDT1",52, 0)
	1536	;
	1537	"RTN","DIF MEDT1",53, 0)
	1538	; Use Scr een-Mode
	1539	"RTN","DIF MEDT1",54, 0)
	1540	D:SCREEN
	1541	"RTN","DIF MEDT1",55, 0)
	1542	. N DIC,D IE,DR,DA,D DSPARM,DDS FILE,DDSPA GE
	1543	"RTN","DIF MEDT1",56, 0)
	1544	. S DA=+Y ,DDSFILE=F ILE,DR="[D IP"_$P(FIL E,".",2)_" S]",DDSPAG E=1
	1545	"RTN","DIF MEDT1",57, 0)
	1546	. D ^DDS
	1547	"RTN","DIF MEDT1",58, 0)
	1548	;
	1549	"RTN","DIF MEDT1",59, 0)
	1550	; Use Rol l-And-Scro ll Mode
	1551	"RTN","DIF MEDT1",60, 0)
	1552	D:'SCREEN
	1553	"RTN","DIF MEDT1",61, 0)
	1554	. S DIE=" ^DI("_FILE _",",DA=+Y ,DR="[DIP" _$P(FILE," .",2)_"IT] " D ^DIE
	1555	"RTN","DIF MEDT1",62, 0)
	1556	. W !!
	1557	"RTN","DIF MEDT1",63, 0)
	1558	G SELECT
	1559	"RTN","DIF MEDT1",64, 0)
	1560	Q
	1561	"RTN","DII 1")
	1562	0^6^B22409 76^B210584 1
	1563	"RTN","DII 1",1,0)
	1564	DII1 ;SFIS C/XAK-OTHE R OPTIONS ;7/25/96 14:15
	1565	"RTN","DII 1",2,0)
	1566	;;22.2;VA FileMan;* 8,10*;Ja n 05, 2016 ;Build 11
	1567	"RTN","DII 1",3,0)
	1568	;;Per VA Directive 6402, this routine s hould not be modifie d.
	1569	"RTN","DII 1",4,0)
	1570	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
	1571	"RTN","DII 1",5,0)
	1572	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
	1573	"RTN","DII 1",6,0)
	1574	;;License d under th e terms of the Apach e License, Version 2 .0.
	1575	"RTN","DII 1",7,0)
	1576	;
	1577	"RTN","DII 1",8,0)
	1578	0 S DIC="^ DOPT(""DII 1"","
	1579	"RTN","DII 1",9,0)
	1580	G OPT:$D( ^DOPT("DII 1",11)) S ^(0)="OTHE R OPTION^1 .01" K ^(" B")
	1581	"RTN","DII 1",10,0)
	1582	F X=1:1:1 1 S ^DOPT( "DII1",X,0 )=$P($T(@X ),";;",2)
	1583	"RTN","DII 1",11,0)
	1584	S DIK=DIC D IXALL^D IK
	1585	"RTN","DII 1",12,0)
	1586	OPT ;
	1587	"RTN","DII 1",13,0)
	1588	S DIC(0)= "AEQIZ" D ^DIC G Q:Y <0 S DI=+Y D EN G 0
	1589	"RTN","DII 1",14,0)
	1590	;
	1591	"RTN","DII 1",15,0)
	1592	EN ;
	1593	"RTN","DII 1",16,0)
	1594	D @DI W ! !
	1595	"RTN","DII 1",17,0)
	1596	Q K %,DIC, DIK,DI,DA, I,J,X,Y Q
	1597	"RTN","DII 1",18,0)
	1598	;
	1599	"RTN","DII 1",19,0)
	1600	1 ;;FILEGR AMS
	1601	"RTN","DII 1",20,0)
	1602	G ^DIFGO
	1603	"RTN","DII 1",21,0)
	1604	;
	1605	"RTN","DII 1",22,0)
	1606	2 ;;ARCHIV ING
	1607	"RTN","DII 1",23,0)
	1608	G NOKL^DI AR
	1609	"RTN","DII 1",24,0)
	1610	;
	1611	"RTN","DII 1",25,0)
	1612	3 ;;AUDITI NG
	1613	"RTN","DII 1",26,0)
	1614	G ^DIAU
	1615	"RTN","DII 1",27,0)
	1616	;
	1617	"RTN","DII 1",28,0)
	1618	4 ;;SCREEN MAN
	1619	"RTN","DII 1",29,0)
	1620	G ^DDSOPT
	1621	"RTN","DII 1",30,0)
	1622	;
	1623	"RTN","DII 1",31,0)
	1624	5 ;;STATIS TICS
	1625	"RTN","DII 1",32,0)
	1626	G ^DIX
	1627	"RTN","DII 1",33,0)
	1628	;
	1629	"RTN","DII 1",34,0)
	1630	6 ;;EXTRAC T DATA TO FILEMAN FI LE
	1631	"RTN","DII 1",35,0)
	1632	G ^DIAX
	1633	"RTN","DII 1",36,0)
	1634	;
	1635	"RTN","DII 1",37,0)
	1636	7 ;;DATA E XPORT TO F OREIGN FOR MAT
	1637	"RTN","DII 1",38,0)
	1638	G NOKL^DD XP
	1639	"RTN","DII 1",39,0)
	1640	;
	1641	"RTN","DII 1",40,0)
	1642	8 ;;IMPORT DATA
	1643	"RTN","DII 1",41,0)
	1644	G EN^DDMP U
	1645	"RTN","DII 1",42,0)
	1646	;
	1647	"RTN","DII 1",43,0)
	1648	9 ;;BROWSE R
	1649	"RTN","DII 1",44,0)
	1650	G ^DDBR
	1651	"RTN","DII 1",45,0)
	1652	;
	1653	"RTN","DII 1",46,0)
	1654	10 ;;DATA ACCESS CON TROL
	1655	"RTN","DII 1",47,0)
	1656	G ^DIACOP T
	1657	"RTN","DII 1",48,0)
	1658	;
	1659	"RTN","DII 1",49,0)
	1660	11 ;;DATA TYPE OPTIO NS
	1661	"RTN","DII 1",50,0)
	1662	G ^DIFMED T1
	1663	"RTN","DIN IT4")
	1664	0^5^B12872 917^B12812 168
	1665	"RTN","DIN IT4",1,0)
	1666	DINIT4 ;SF ISC/GFT-IN ITIALIZE V A FILEMAN ;24SEP2009
	1667	"RTN","DIN IT4",2,0)
	1668	;;22.2;VA FileMan;* 10*;Jan 05, 2016;B uild 11
	1669	"RTN","DIN IT4",3,0)
	1670	;;Per VA Directive 6402, this routine s hould not be modifie d.
	1671	"RTN","DIN IT4",4,0)
	1672	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
	1673	"RTN","DIN IT4",5,0)
	1674	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
	1675	"RTN","DIN IT4",6,0)
	1676	;;License d under th e terms of the Apach e License, Version 2 .0.
	1677	"RTN","DIN IT4",7,0)
	1678	;
	1679	"RTN","DIN IT4",8,0)
	1680	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)
	1681	"RTN","DIN IT4",9,0)
	1682	;;SQUARER OOT;D SQR^ DIXC S X=$ S(X'>0:"", 1:Y);;;
	1683	"RTN","DIN IT4",10,0)
	1684	;;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";; ;
	1685	"RTN","DIN IT4",11,0)
	1686	;;MONTH;S X=$E(X,1, 5)_0_0 S:' X X="";D^D ;;
	1687	"RTN","DIN IT4",12,0)
	1688	;;YEAR;S X=$E(X,1,3 )_"0000" S :'X X="";D ^D;;
	1689	"RTN","DIN IT4",13,0)
	1690	;;DATE;S X=$P(X,"." ,1);D^D;;
	1691	"RTN","DIN IT4",14,0)
	1692	;;DAYOFWE EK;D DW^%D TC;^D;;
	1693	"RTN","DIN IT4",15,0)
	1694	;;CLOSE
	1695	"RTN","DIN IT4",16,0)
	1696	;;ABS;S:X <0 X=-X;;;
	1697	"RTN","DIN IT4",17,0)
	1698	;;INTERNA L;S X=X;;;
	1699	"RTN","DIN IT4",18,0)
	1700	;;MAX;S:X 1>X X=X1;O ;2;MAXIMUM OF 2 VALU ES
	1701	"RTN","DIN IT4",19,0)
	1702	;;MIN;S:X 1<X X=X1;O ;2;MINIMUM OF TWO VA LUES
	1703	"RTN","DIN IT4",20,0)
	1704	;;REVERSE ;S X=$RE(X );;;DATA C HARACTERS IN RIGHT-T O-LEFT ORD ER
	1705	"RTN","DIN IT4",21,0)
	1706	;;UPPERCA SE;S X=$$U P^DILIBF(X );;;
	1707	"RTN","DIN IT4",22,0)
	1708	;;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) ";;;
	1709	"RTN","DIN IT4",23,0)
	1710	;;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
	1711	"RTN","DIN IT4",24,0)
	1712	;;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
	1713	"RTN","DIN IT4",25,0)
	1714	;;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
	1715	"RTN","DIN IT4",26,0)
	1716	;;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
	1717	"RTN","DIN IT4",27,0)
	1718	;;NUMMONT H;S X=+$E( X,4,5);^D; ;MONTH NUM BER (0-12) FOR A DAT E
	1719	"RTN","DIN IT4",28,0)
	1720	;;NUMDAY; S X=+$E(X, 6,7);^D;;D AY NUMBER (0-31) FOR A DATE
	1721	"RTN","DIN IT4",29,0)
	1722	;;NUMYEAR ;S:X X=$E( X,2,3);^D; ;YEAR NUMB ER (00-99) FOR A DAT E
	1723	"RTN","DIN IT4",30,0)
	1724	;;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
	1725	"RTN","DIN IT4",31,0)
	1726	;;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
	1727	"RTN","DIN IT4",32,0)
	1728	;;NOW;N % I,%H,% D N OW^%DTC S X=%;D;0;CU RRENT DATE /TIME
	1729	"RTN","DIN IT4",33,0)
	1730	;;TODAY;N %I,%H,% D NOW^%DTC; D;0;CURREN T DATE
	1731	"RTN","DIN IT4",34,0)
	1732	;;PAGE;S X=$G(DC);; 0;PAGE NUM BER (OF OU TPUT)
	1733	"RTN","DIN IT4",35,0)
	1734	;;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
	1735	"RTN","DIN IT4",36,0)
	1736	;;RIGHT-J USTIFY;S X ="" S:'$D( DIWF) DIWF ="" S:DIWF '["R" DIWF =DIWF_"R"; ;0;;W
	1737	"RTN","DIN IT4",37,0)
	1738	;;DOUBLE- SPACE;S X= "" S:'$D(D IWF) DIWF= "" S:DIWF' ["D" DIWF= DIWF_"D";; 0;;W
	1739	"RTN","DIN IT4",38,0)
	1740	;;SINGLE- SPACE;S:'$ D(DIWF) DI WF="" S X= "",DIWF=$P (DIWF,"D", 1)_$P(DIWF ,"D",2);;0 ;;W
	1741	"RTN","DIT P")
	1742	0^3^B18223 422^B11755 027
	1743	"RTN","DIT P",1,0)
	1744	DITP ;SFIS C/GFT-TRAN SFER POINT ERS ;17MAY 2005
	1745	"RTN","DIT P",2,0)
	1746	;;22.2;VA FileMan;* 10*;Jan 05, 2016;B uild 11
	1747	"RTN","DIT P",3,0)
	1748	;;Per VA Directive 6402, this routine s hould not be modifie d.
	1749	"RTN","DIT P",4,0)
	1750	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
	1751	"RTN","DIT P",5,0)
	1752	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
	1753	"RTN","DIT P",6,0)
	1754	;;License d under th e terms of the Apach e License, Version 2 .0.
	1755	"RTN","DIT P",7,0)
	1756	;
	1757	"RTN","DIT P",8,0)
	1758	D ASK Q:% -1 G PTS
	1759	"RTN","DIT P",9,0)
	1760	;
	1761	"RTN","DIT P",10,0)
	1762	ASK ;
	1763	"RTN","DIT P",11,0)
	1764	I '$D(^UT ILITY("DIT ",$J,0,1)) S %=2 Q
	1765	"RTN","DIT P",12,0)
	1766	S %=$O(^( 1)),%Y=+^( 1) S:%="" %=-1
	1767	"RTN","DIT P",13,0)
	1768	U I $D(^DD (%Y,0,"UP" )) S %Y=^( "UP") G U
	1769	"RTN","DIT P",14,0)
	1770	W !,"SINC E THE "_$P ("TRANSFER RED^DELETE D",U,DH+1) _" ENTRY M AY HAVE BE EN 'POINTE D TO'"
	1771	"RTN","DIT P",15,0)
	1772	W !,"BY E NTRIES IN THE '"_$P( ^DIC(+%Y,0 ),U,1)_"' FILE," W:% >1 " ETC., "
	1773	"RTN","DIT P",16,0)
	1774	Q W !,"DO YOU WANT T HOSE POINT ERS UPDATE D (WHICH C OULD TAKE QUITE A WH ILE)"
	1775	"RTN","DIT P",17,0)
	1776	S %=2 D Y N^DICN Q:%
	1777	"RTN","DIT P",18,0)
	1778	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",!
	1779	"RTN","DIT P",19,0)
	1780	G Q
	1781	"RTN","DIT P",20,0)
	1782	;
	1783	"RTN","DIT P",21,0)
	1784	;
	1785	"RTN","DIT P",22,0)
	1786	;
	1787	"RTN","DIT P",23,0)
	1788	;
	1789	"RTN","DIT P",24,0)
	1790	EN(DIFILE, DILIST) ;I F THERE AR E POINTERS TO FILE ' DIFILE', G O THRU THE DILIST AN D CHANGE T HE POINTER S
	1791	"RTN","DIT P",25,0)
	1792	K ^UTILIT Y("DIT",$J )
	1793	"RTN","DIT P",26,0)
	1794	N Y,DIA,D TO,DL
	1795	"RTN","DIT P",27,0)
	1796	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
	1797	"RTN","DIT P",28,0)
	1798	D PTS^DIT
	1799	"RTN","DIT P",29,0)
	1800	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
	1801	"RTN","DIT P",30,0)
	1802	.I '%,"@" '[% K X Q
	1803	"RTN","DIT P",31,0)
	1804	.I %,'$D( @(DTO_"%)" )) K X Q
	1805	"RTN","DIT P",32,0)
	1806	.S X=X+1, ^UTILITY(" DIT",$J,+D ILIST(Y))= %_";"_$E(D TO,2,99)
	1807	"RTN","DIT P",33,0)
	1808	I X D P
	1809	"RTN","DIT P",34,0)
	1810	END K ^UTI LITY("DIT" ,$J)
	1811	"RTN","DIT P",35,0)
	1812	Q
	1813	"RTN","DIT P",36,0)
	1814	;
	1815	"RTN","DIT P",37,0)
	1816	PTS ;
	1817	"RTN","DIT P",38,0)
	1818	D WAIT^DI CD K IOP
	1819	"RTN","DIT P",39,0)
	1820	;At this point, e.g .^UTILITY( "DIT",$J,0 ,1)=801.41 ^15^V
	1821	"RTN","DIT P",40,0)
	1822	;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
	1823	"RTN","DIT P",41,0)
	1824	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
	1825	"RTN","DIT P",42,0)
	1826	K ^UTILIT Y("DIT",$J ) Q
	1827	"RTN","DIT P",43,0)
	1828	;
	1829	"RTN","DIT P",44,0)
	1830	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 .
	1831	"RTN","DIT P",45,0)
	1832	N DIPVP,D L,L,DHD,DI A,BY,DITPY ,DR,D,X,FL DS,DIOBEG, FR,TO,DIST OP,DIOBEG
	1833	"RTN","DIT P",46,0)
	1834	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
	1835	"RTN","DIT P",47,0)
	1836	S DL=1,DL (1)=DIPFIE LD_"////^D STUFF^DIT P("_(DIPVP )_")"
	1837	"RTN","DIT P",48,0)
	1838	;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)
	1839	"RTN","DIT P",49,0)
	1840	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,"_%_")"
	1841	"RTN","DIT P",50,0)
	1842	E S %="$ E(^("_L_") ,"_+$E(%,2 ,9)_","_$P (%,",",2)_ ")"
	1843	"RTN","DIT P",51,0)
	1844	S L=L_")) :"""","_%_ "?."" "":" ""","
	1845	"RTN","DIT P",52,0)
	1846	I DIPVP,D TO]"" S L= L_"$P("_%_ ","";"",2) '="""_$E(D TO,2,99)_" "":"""","
	1847	"RTN","DIT P",53,0)
	1848	S L=L_"'$ D(^UTILITY (""DIT"",$ J,+"_%_")) :"""","
	1849	"RTN","DIT P",54,0)
	1850	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
	1851	"RTN","DIT P",55,0)
	1852	S DHD=$O( ^("NM",0)) _" entries whose '"_ DHD_"' poi nters have been chan ged"
	1853	"RTN","DIT P",56,0)
	1854	Q:'$D(^DI C(%,0,"GL" )) S DIC= ^("GL"),DI TPY="S X=$ S('$D("_DI C_"D0,"
	1855	"RTN","DIT P",57,0)
	1856	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_","
	1857	"RTN","DIT P",58,0)
	1858	S DIA("P" )=%,%=$L(B Y,",") I % >2 S BY=$P (BY,",",%- 2)_",.01," _BY
	1859	"RTN","DIT P",59,0)
	1860	S DITPY=D ITPY_L_"1: D"_X_")",B Y=BY_"X DI TPY;@"
	1861	"RTN","DIT P",60,0)
	1862	;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 )
	1863	"RTN","DIT P",61,0)
	1864	S L=0,FLD S="",DISTO P=0,DHIT=" N DIFIXPT G LOOP^DIA 2",%ZIS="" ,DIOBEG="W !!" ;It w ill happen in DIA2
	1865	"RTN","DIT P",62,0)
	1866	I $G(DIQU IET) K DIO BEG S DIFI XPT=1 ;DHD ="@@"
	1867	"RTN","DIT P",63,0)
	1868	D EN1^DIP
	1869	"RTN","DIT P",64,0)
	1870	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'
	1871	"RTN","DIT P",65,0)
	1872	;
	1873	"RTN","DIT P",66,0)
	1874	STUFF(VP) ;VP=BOOLEA N
	1875	"RTN","DIT P",67,0)
	1876	S X="" Q: $G(DE(DQ)) =""
	1877	"RTN","DIT P",68,0)
	1878	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
	1879	"RTN","DIT P",69,0)
	1880	S X=^(+%) I 'VP S X =+X
	1881	"RTN","DIT P",70,0)
	1882	E S X=$S ($P(X,";", 2)'=$P(%," ;",2):"",' X:"@",1:X) W:X="" " (no cha nge)" Q
	1883	"RTN","DIT P",71,0)
	1884	S:'X X="@ "
	1885	"RTN","DIT P",72,0)
	1886	Q
	1887	"RTN","DIT P",73,0)
	1888	;
	1889	"RTN","DIT P",74,0)
	1890	PTRPT Q:'$ G(DIFIXPTC ) N I,J,X
	1891	"RTN","DIT P",75,0)
	1892	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
	1893	"RTN","DIT P",76,0)
	1894	. 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
	1895	"RTN","DIT P",77,0)
	1896	. Q
	1897	"RTN","DIT P",78,0)
	1898	Q
	1899	"RTN","DIU TL")
	1900	0^8^B13688 793^B70826 19
	1901	"RTN","DIU TL",1,0)
	1902	DIUTL ;GFT /GFT - TIM SON'S UTIL ITIES;24JA N2013
	1903	"RTN","DIU TL",2,0)
	1904	;;22.2;VA FileMan;* 10*;Jan 05, 2016;B uild 11
	1905	"RTN","DIU TL",3,0)
	1906	;;Per VA Directive 6402, this routine s hould not be modifie d.
	1907	"RTN","DIU TL",4,0)
	1908	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
	1909	"RTN","DIU TL",5,0)
	1910	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
	1911	"RTN","DIU TL",6,0)
	1912	;;License d under th e terms of the Apach e License, Version 2 .0.
	1913	"RTN","DIU TL",7,0)
	1914	;
	1915	"RTN","DIU TL",8,0)
	1916	;
	1917	"RTN","DIU TL",9,0)
	1918	NAKED(DIUT LREF) ;The argument is evaluat ed and ret urned, whi le keeping the naked reference as it was !
	1919	"RTN","DIU TL",10,0)
	1920	N DIUTLNK D ;THIS WI LL BE THE NAME OF TH E NAKED
	1921	"RTN","DIU TL",11,0)
	1922	X "I $ZRE FERENCE="" """ I S D IUTLNKD="^ TMP(""DI D UMMY"",0)"
	1923	"RTN","DIU TL",12,0)
	1924	E S DIUT LNKD=$NA(^ (0))
	1925	"RTN","DIU TL",13,0)
	1926	X "S DIUT LREF="_DIU TLREF
	1927	"RTN","DIU TL",14,0)
	1928	D Q DIUT LREF
	1929	"RTN","DIU TL",15,0)
	1930	.I $D(@DI UTLNKD)
	1931	"RTN","DIU TL",16,0)
	1932	;
	1933	"RTN","DIU TL",17,0)
	1934	;
	1935	"RTN","DIU TL",18,0)
	1936	DATE(Y) ;* *CCO/NI RETURN A D ATE
	1937	"RTN","DIU TL",19,0)
	1938	;I Y X ^D D("DD")
	1939	"RTN","DIU TL",20,0)
	1940	Q $$FMTE^ DILIBF(Y," 1U")
	1941	"RTN","DIU TL",21,0)
	1942	;
	1943	"RTN","DIU TL",22,0)
	1944	;
	1945	"RTN","DIU TL",23,0)
	1946	NOWINT() ; INTERNAL V ERSION OF NOW
	1947	"RTN","DIU TL",24,0)
	1948	N %,%I,%H ,%M,%D,%Y, X
	1949	"RTN","DIU TL",25,0)
	1950	D NOW^%DT C Q %
	1951	"RTN","DIU TL",26,0)
	1952	;
	1953	"RTN","DIU TL",27,0)
	1954	;
	1955	"RTN","DIU TL",28,0)
	1956	NOW() ;EXT ERNAL NOW
	1957	"RTN","DIU TL",29,0)
	1958	N X S X=$ $NOWINT Q $$DATE(X-( X#.0001))
	1959	"RTN","DIU TL",30,0)
	1960	;
	1961	"RTN","DIU TL",31,0)
	1962	;
	1963	"RTN","DIU TL",32,0)
	1964	WP(DIRF,DI WL,DIWR,DI WPUT) ;Wri te out WP field (if any) store d at DIRF, or put it in DIWPUT array
	1965	"RTN","DIU TL",33,0)
	1966	N DIWF,Z, A1,D,X,DIW ,DIWT,DN,I ,DIWI,DIWT C,DIWX
	1967	"RTN","DIU TL",34,0)
	1968	K ^UTILIT Y($J,"W")
	1969	"RTN","DIU TL",35,0)
	1970	S DIWF=$E ("W",'$D(D IWPUT))_"\| " S:'$G(IO M) IOM=80 S:'$G(DIWR ) DIWR=IOM S:'$G(DIW L) DIWL=1
	1971	"RTN","DIU TL",36,0)
	1972	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
	1973	"RTN","DIU TL",37,0)
	1974	I $G(DIWP UT)]"" D Q 1
	1975	"RTN","DIU TL",38,0)
	1976	.K @DIWPU T M @DIWPU T=^UTILITY ($J,"W")
	1977	"RTN","DIU TL",39,0)
	1978	D ^DIWW
	1979	"RTN","DIU TL",40,0)
	1980	QWP I $G(D N)'=0 Q 1
	1981	"RTN","DIU TL",41,0)
	1982	K DIOEND Q 0
	1983	"RTN","DIU TL",42,0)
	1984	;
	1985	"RTN","DIU TL",43,0)
	1986	IJ(N) ;bui ld I & J a rrays give n subfile number N
	1987	"RTN","DIU TL",44,0)
	1988	N A K I,J
	1989	"RTN","DIU TL",45,0)
	1990	S J(0)=N, N=0
	1991	"RTN","DIU TL",46,0)
	1992	0 I $D(^DI C(J(0),0," GL")) S I( 0)=^("GL") Q
	1993	"RTN","DIU TL",47,0)
	1994	S A=$G(^D D(J(0),0," UP")) Q:A= ""
	1995	"RTN","DIU TL",48,0)
	1996	S I=$O(^D D(A,"SB",J (0),0)) Q: 'I
	1997	"RTN","DIU TL",49,0)
	1998	S I=$P($P ($G(^DD(A, I,0)),U,4) ,";") Q:I= ""
	1999	"RTN","DIU TL",50,0)
	2000	I +I'=I S I=""""_I_ """"
	2001	"RTN","DIU TL",51,0)
	2002	F J=N:-1: 0 S J(J+1) =J(J) S:J I(J+1)=I(J )
	2003	"RTN","DIU TL",52,0)
	2004	S J(0)=A, I(1)=I,N=N +1 G 0
	2005	"RTN","DIU TL",53,0)
	2006	;
	2007	"RTN","DIU TL",54,0)
	2008	;
	2009	"RTN","DIU TL",55,0)
	2010	DIVR(DI,DI FLD) ;veri fy
	2011	"RTN","DIU TL",56,0)
	2012	N DIVZ,S, A,DA,DICL, V,Z,DDC,DR ,N,Y,I,J,Q ,W,V,T,DQI
	2013	"RTN","DIU TL",57,0)
	2014	K ^UTILIT Y("DIVR",$ J),^DD(U,$ J)
	2015	"RTN","DIU TL",58,0)
	2016	D IJ(DI)
	2017	"RTN","DIU TL",59,0)
	2018	I '$O(@(I (0)_"0)")) Q ;File must have some entri es!
	2019	"RTN","DIU TL",60,0)
	2020	S S=";",Q ="""",V=$O (J(""),-1) ,A=DI,DA=D IFLD
	2021	"RTN","DIU TL",61,0)
	2022	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 )
	2023	"RTN","DIU TL",62,0)
	2024	Q:DR["W"! (DR["C")
	2025	"RTN","DIU TL",63,0)
	2026	F T="N"," S","V","P" ,"K","F" Q :DR[T
	2027	"RTN","DIU TL",64,0)
	2028	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"
	2029	"RTN","DIU TL",65,0)
	2030	S %=1 D Y N^DICN Q:% -1
	2031	"RTN","DIU TL",66,0)
	2032	;D ^%ZIS Q:POP
	2033	"RTN","DIU TL",67,0)
	2034	;U IO W ON'T WORK BECAUSE Q+ 3^DIVR ASK S TO STORE IN TEMPLA TE
	2035	"RTN","DIU TL",68,0)
	2036	D EN^DIVR (DI,DIFLD)
	2037	"RTN","DIU TL",69,0)
	2038	;D ^%ZISC
	2039	"RTN","DIU TL",70,0)
	2040	Q
	2041	"RTN","DIU TL",71,0)
	2042	;
	2043	"RTN","DIU TL",72,0)
	2044	CHKPT(DIFI LE,DA,DIMS G) ;check if any ent ries point s to this entry(DA) in file (D IFILE)
	2045	"RTN","DIU TL",73,0)
	2046	;INPUT: D IFILE=file number, D A=ien of r ecord, DIM SG=closed global roo t or local array
	2047	"RTN","DIU TL",74,0)
	2048	;OUTPUT: DIMSG(0)=l ine count, DISMG(#)= "Entry ien in FILE ( file #) re fers to it ."
	2049	"RTN","DIU TL",75,0)
	2050	;CODE CAM E FROM DEL ^DPTLK2
	2051	"RTN","DIU TL",76,0)
	2052	Q:$G(DIMS G)="" S @ DIMSG@(0)= 0
	2053	"RTN","DIU TL",77,0)
	2054	Q:'$G(DA) Q:$G(^DI C(+$G(DIFI LE),0))=""
	2055	"RTN","DIU TL",78,0)
	2056	N I,J,K,L ,A,B,C,G,T ,Q S Q=""" ",C=0
	2057	"RTN","DIU TL",79,0)
	2058	;find all files and fields th at point t o this fil e
	2059	"RTN","DIU TL",80,0)
	2060	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
	2061	"RTN","DIU TL",81,0)
	2062	.;check i f multiple , find top file leve l = T
	2063	"RTN","DIU TL",82,0)
	2064	. F S B= +$G(^DD(B, 0,"UP")) S :B T=B I ' B S G=$G(^ DIC(+T,0," GL")) Q
	2065	"RTN","DIU TL",83,0)
	2066	.;pointin g to file must have file level cross ref erence; fi le level ( +A=T), not mumps
	2067	"RTN","DIU TL",84,0)
	2068	. 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
	2069	"RTN","DIU TL",85,0)
	2070	.. Q:'$L (G)
	2071	"RTN","DIU TL",86,0)
	2072	..; if v ariable po inter, the n reset DA to contai n global r ef. DA;gr
	2073	"RTN","DIU TL",87,0)
	2074	.. 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
	2075	"RTN","DIU TL",88,0)
	2076	.. F L=0 :0 S L=$O( @(G_Q_$P(A ,U,2)_Q_", "_DA_",L)" )) Q:'L D
	2077	"RTN","DIU TL",89,0)
	2078	... S C= C+1,@DIMSG @(C)="Entr y "_L_" in "_$P($G(^ DIC(T,0)), U)_" ("_T_ ") refers to it."
	2079	"RTN","DIU TL",90,0)
	2080	.. Q
	2081	"RTN","DIU TL",91,0)
	2082	. Q
	2083	"RTN","DIU TL",92,0)
	2084	S @DIMSG@ (0)=C
	2085	"RTN","DIU TL",93,0)
	2086	Q
	2087	"RTN","DIW P")
	2088	0^4^B14095 198^B14057 388
	2089	"RTN","DIW P",1,0)
	2090	DIWP ;SFIS C/GFT-ASSE MBLE WP LI NE ;24APR2 012
	2091	"RTN","DIW P",2,0)
	2092	;;22.2;VA FileMan;* 10*;Jan 05, 2016;B uild 11
	2093	"RTN","DIW P",3,0)
	2094	;;Per VA Directive 6402, this routine s hould not be modifie d.
	2095	"RTN","DIW P",4,0)
	2096	;;Submitt ed to OSEH RA 5 Janua ry 2015 by the VISTA Expertise Network.
	2097	"RTN","DIW P",5,0)
	2098	;;Based o n Medspher e Systems Corporatio n's MSC Fi leMan 1051 .
	2099	"RTN","DIW P",6,0)
	2100	;;License d under th e terms of the Apach e License, Version 2 .0.
	2101	"RTN","DIW P",7,0)
	2102	;
	2103	"RTN","DIW P",8,0)
	2104	;The DIWF variable contains a string of one-lette r codes to control W -P output.
	2105	"RTN","DIW P",9,0)
	2106	;"\|" in D IWF means that "\|"-w indows are not to be evaluated , but are to be prin ted as
	2107	"RTN","DIW P",10,0)
	2108	; the y stand.
	2109	"RTN","DIW P",11,0)
	2110	;"X" mean s eXactly line-for-l ine, with "\|\|" print ed as "\|\|"
	2111	"RTN","DIW P",12,0)
	2112	;"W" in D IWF means that forma tted text will be wr itten out to
	2113	"RTN","DIW P",13,0)
	2114	; the current d evice as i t is assem bled.
	2115	"RTN","DIW P",14,0)
	2116	;"N" mean s NOWRAP-- text is a ssembled l ine-for-li ne
	2117	"RTN","DIW P",15,0)
	2118	;"R" mean s text wil l be assem bled Right -justified
	2119	"RTN","DIW P",16,0)
	2120	;"D" mean s text wil l be doubl e-spaced
	2121	"RTN","DIW P",17,0)
	2122	;"L" mean s internal line numb ers appear at the le ft margin
	2123	"RTN","DIW P",18,0)
	2124	;"C" foll owed by a number wil l cause fo rmatting o f text in a column
	2125	"RTN","DIW P",19,0)
	2126	; wid th specifi ed by the number.
	2127	"RTN","DIW P",20,0)
	2128	;"I" foll owed by a number wil l cause te xt to be i ndented th at number
	2129	"RTN","DIW P",21,0)
	2130	; of columns.
	2131	"RTN","DIW P",22,0)
	2132	;"?" mean s that, if user's te rminal is available, "\|"-windo ws that ca nnot
	2133	"RTN","DIW P",23,0)
	2134	; be evaluated will be as ked from t he user's terminal.
	2135	"RTN","DIW P",24,0)
	2136	;"B" foll owed by nu mber cause s new page when outp ut gets wi thin that
	2137	"RTN","DIW P",25,0)
	2138	; numbe r of lines from the bottom of the page ( as defined by IOSL).
	2139	"RTN","DIW P",26,0)
	2140	;
	2141	"RTN","DIW P",27,0)
	2142	;DIWTC is a Boolean -- Are we printing out in LIN E MODE?
	2143	"RTN","DIW P",28,0)
	2144	S:'$L(X) X=" "
	2145	"RTN","DIW P",29,0)
	2146	S DIWTC=X [($C(124)_ "TAB") S:' $D(DN) DN= 1
	2147	"RTN","DIW P",30,0)
	2148	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
	2149	"RTN","DIW P",31,0)
	2150	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
	2151	"RTN","DIW P",32,0)
	2152	S I=^(DIW L),DIWI=^( DIWL,I,0) I DIWI="" D DIWI G Z
	2153	"RTN","DIW P",33,0)
	2154	D NEW:DIW TC
	2155	"RTN","DIW P",34,0)
	2156	Z S Z=X?.P !DIWTC I X ?1" ".E!Z S DIWTC=1 D NEW:DIWI ]"" S DIWT C=Z
	2157	"RTN","DIW P",35,0)
	2158	DIW ;from RCR+5^DIWW
	2159	"RTN","DIW P",36,0)
	2160	I DIWF["X " S DIWTC= 1,X=DIWX,D IWX="" D C G D ;*DI 22152* Leave lin e unaltere d
	2161	"RTN","DIW P",37,0)
	2162	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
	2163	"RTN","DIW P",38,0)
	2164	S X=$P(DI WX,DIW,1) I $P(X,"TA B",1)="" D TAB G N
	2165	"RTN","DIW P",39,0)
	2166	I X="TOP" D PUT S ^ ("X")="S D IFF=1 X:$D (^UTILITY( $J,1)) ^(1 )" D NEW G N
	2167	"RTN","DIW P",40,0)
	2168	I DIWF'[D IW G U:X=" _" D PUT,R CR^DIWW G N:$D(X)
	2169	"RTN","DIW P",41,0)
	2170	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["\|"
	2171	"RTN","DIW P",42,0)
	2172	N K X S DI WX=$P(DIWX ,DIW,2,99) I DIWX]"" D ST:$D(D IWP) G DIW
	2173	"RTN","DIW P",43,0)
	2174	D K DIWP D PUT,PRE:D IWTC S:DIW TC DIWI="" Q
	2175	"RTN","DIW P",44,0)
	2176	;
	2177	"RTN","DIW P",45,0)
	2178	ST S DIWI= $E(DIWI,1, $L(DIWI)-1 ) K DIWP Q
	2179	"RTN","DIW P",46,0)
	2180	;
	2181	"RTN","DIW P",47,0)
	2182	DIWI S DIW I=$J("",+$ P(DIWF,"I" ,2)) I DIW F["L",$D(D )#2 S DIWL L=D
	2183	"RTN","DIW P",48,0)
	2184	Q
	2185	"RTN","DIW P",49,0)
	2186	PUT S I=^U TILITY($J, "W",DIWL), ^(DIWL,I,0 )=DIWI I D IWF["L",$D (DIWLL) S ^("L")=DIW LL
	2187	"RTN","DIW P",50,0)
	2188	Q
	2189	"RTN","DIW P",51,0)
	2190	L ;
	2191	"RTN","DIW P",52,0)
	2192	S DIWTC=1 G LN
	2193	"RTN","DIW P",53,0)
	2194	;
	2195	"RTN","DIW P",54,0)
	2196	TAB I X="" S X=DIW G C
	2197	"RTN","DIW P",55,0)
	2198	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)
	2199	"RTN","DIW P",56,0)
	2200	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)
	2201	"RTN","DIW P",57,0)
	2202	S J=J-1-$ L(DIWI) Q: J<1 S X=$ J("",J)
	2203	"RTN","DIW P",58,0)
	2204	C K DIWP I DIWTC S D IWI=DIWI_X Q
	2205	"RTN","DIW P",59,0)
	2206	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
	2207	"RTN","DIW P",60,0)
	2208	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
	2209	"RTN","DIW P",61,0)
	2210	FULL I $P( DIWF,"I",2 )'<$L(DIWI ) S DIWI=D IWI_$P(X," ",1),X=$P (X," ",2,9 999)
	2211	"RTN","DIW P",62,0)
	2212	S D PUT,NE W G B:X]"" Q
	2213	"RTN","DIW P",63,0)
	2214	;
	2215	"RTN","DIW P",64,0)
	2216	U S I=^UTI LITY($J,"W ",DIWL) I $D(DIWFU) S ^(DIWL,I ,"U",$L(DI WI)+1)="" K DIWFU G N
	2217	"RTN","DIW P",65,0)
	2218	S ^(DIWL, I,"U",$L(D IWI)+1)=X, DIWFU=1 G N
	2219	"RTN","DIW P",66,0)
	2220	;
	2221	"RTN","DIW P",67,0)
	2222	NEW D DIWI
	2223	"RTN","DIW P",68,0)
	2224	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) =""
	2225	"RTN","DIW P",69,0)
	2226	I $D(DIWF U) S ^("U" ,1+$P(DIWF ,"I",2))=" _"
	2227	"RTN","DIW P",70,0)
	2228	G P:DIWF' ["R"!DIWTC K % Q:'$D (^UTILITY( $J,"W",DIW L,I,0))
	2229	"RTN","DIW P",71,0)
	2230	S Y=^(0), %=$L(Y) F %=%:-1 Q:$ A(Y,%)-32
	2231	"RTN","DIW P",72,0)
	2232	S Y=$E(Y, 1,%),J=DIW R-DIWL-%+1 ,%X=0 G P: J<1
	2233	"RTN","DIW P",73,0)
	2234	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,%(% )=%(%)_" "
	2235	"RTN","DIW P",74,0)
	2236	PAD I J F Y=%\2+1:1: %-1,%\2:-1 S %(Y)=%( Y)_" ",J=J -1 G PAD:Y =1!'J
	2237	"RTN","DIW P",75,0)
	2238	S Y=%(%) F %=%-1:-1 :1 S Y=%(% )_" "_Y
	2239	"RTN","DIW P",76,0)
	2240	S ^(0)=$J ("",%X)_Y K %
	2241	"RTN","DIW P",77,0)
	2242	P I DIWF[" W" G NX^DI WW
	2243	"VER")
	2244	8.0^22.2
	2245	END
	2246	END