1. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 7/26/2017 12:53:31 PM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.

1.1 Files compared

#	Location	File	Last Modified
1	TOOLKIT_XINDEX_73.zip	TOOLKIT_XINDEX_73.KID	Mon Jul 24 13:11:58 2017 UTC
2	TOOLKIT_XINDEX_73.zip	TOOLKIT_XINDEX_73.KID	Wed Jul 26 17:49:35 2017 UTC

1.2 Comparison summary

Description	Between Files 1 and 2
Description	Text Blocks	Lines
Unchanged	9	6312
Changed	8	16
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 May 23, 2017@ 06:04:18
	2	Patches: X U8661 & XT7.314 0
	3	KIDS:T OOLKIT XIN DEX 7.3^XU 8.0661^X T7.3140^
	4
	5	INSTALL NAME
	6	TOOLKIT XI NDEX 7.3
	7	"BLD",1553 ,0)
	8	TOOLKIT XI NDEX 7.3^^ 1^3170523^ y
	9	"BLD",1553 ,1,0)
	10	165^9.61A^ 64^64^3170 523^^
	11	"BLD",1553 ,1,1,0)
	12	Descriptio n:
	13	"BLD",1553 ,1,2,0)
	14	========== =
	15	"BLD",1553 ,1,3,0)
	16	This build deploys c hanges to XINDEX and the ZOSF routine vi a 2 patche s:
	17	"BLD",1553 ,1,4,0)
	18	1. Patch XT7.314 0
	19	"BLD",1553 ,1,5,0)
	20	a) Con tains 2 XI NDEX routi nes
	21	"BLD",1553 ,1,6,0)
	22	b) Wil l update t he XINDEX utility to support t he new cha nges to th e
	23	"BLD",1553 ,1,7,0)
	24	St andards an d Conventi ons (SAC). The foll owing chan ges have b een
	25	"BLD",1553 ,1,8,0)
	26	ap proved by SAC Commit tee:
	27	"BLD",1553 ,1,9,0)
	28	1) Routin e name and labels ca n be 16 up percase ch aracters
	29	"BLD",1553 ,1,10,0)
	30	2) Local variable n ames can b e 16 chara cters.
	31	"BLD",1553 ,1,11,0)
	32	3) Namesp aced varia bles must be all upp ercase.
	33	"BLD",1553 ,1,12,0)
	34	2. Patch XU8661
	35	"BLD",1553 ,1,13,0)
	36	a) The ZOSFONT r outine
	37	"BLD",1553 ,1,14,0)
	38	b) 14 fields fro m 8 files that refer ences a ro utine or t ag
	39	"BLD",1553 ,1,15,0)
	40
	41	"BLD",1553 ,1,16,0)
	42	Please see the patch 's Patch D escription s to see w hat each p atch
	43	"BLD",1553 ,1,17,0)
	44	changes/f ixes and f or the ins tallation instructio ns.
	45	"BLD",1553 ,1,18,0)
	46
	47	"BLD",1553 ,1,19,0)
	48
	49	"BLD",1553 ,1,20,0)
	50	Retrieve F iles:
	51	"BLD",1553 ,1,21,0)
	52	========== ====
	53	"BLD",1553 ,1,22,0)
	54	Download T OOLKIT_XIN DEX_73.KID from the ftp site. The prefe rred metho d is
	55	"BLD",1553 ,1,23,0)
	56	to SFTP th e file fro m sftp://d ownload. SERVER /. This trans mits the
	57	"BLD",1553 ,1,24,0)
	58	file from the first available SFTP serve r. Sites m ay also el ect to ret rieve
	59	"BLD",1553 ,1,25,0)
	60	software d irectly fr om a speci fic server as follow s:
	61	"BLD",1553 ,1,26,0)
	62
	63	"BLD",1553 ,1,27,0)
	64	ALBANY ftp.SE RVER
	65	"BLD",1553 ,1,28,0)
	66	Hines ft p.SERVER
	67	"BLD",1553 ,1,29,0)
	68	Salt Lake City ft p.SERVER
	69	"BLD",1553 ,1,30,0)
	70
	71	"BLD",1553 ,1,31,0)
	72	The necess ary file i s TOOLKIT_ XINDEX_73. KID, which is an ASC II file.
	73	"BLD",1553 ,1,32,0)
	74	Make a not e of the d irectory n ame where the file w as saved.
	75	"BLD",1553 ,1,33,0)
	76
	77	"BLD",1553 ,1,34,0)
	78
	79	"BLD",1553 ,1,35,0)
	80	Installati on Instruc tions:
	81	"BLD",1553 ,1,36,0)
	82	========== ========== =====
	83	"BLD",1553 ,1,37,0)
	84	TaskMan do esn't need to be sto pped or pa used
	85	"BLD",1553 ,1,38,0)
	86
	87	"BLD",1553 ,1,39,0)
	88	User can b e on the s ystem
	89	"BLD",1553 ,1,40,0)
	90
	91	"BLD",1553 ,1,41,0)
	92	Installati on should take less than a min ute.
	93	"BLD",1553 ,1,42,0)
	94
	95	"BLD",1553 ,1,43,0)
	96	1. From t he KIDS me nu select Installati on Menu.
	97	"BLD",1553 ,1,44,0)
	98
	99	"BLD",1553 ,1,45,0)
	100	2. Use th e Load a D istributio n option.
	101	"BLD",1553 ,1,46,0)
	102	You ma y need to prepend a directory name.
	103	"BLD",1553 ,1,47,0)
	104	When p rompted fo r Enter a Host File: , enter T OOLKIT_XIN DEX_73.KID
	105	"BLD",1553 ,1,48,0)
	106
	107	"BLD",1553 ,1,49,0)
	108	3. You ma y now use the follow ing option s:
	109	"BLD",1553 ,1,50,0)
	110
	111	"BLD",1553 ,1,51,0)
	112	Pr int Transp ort Global
	113	"BLD",1553 ,1,52,0)
	114	Co mpare Tran sport Glob al to Curr ent System
	115	"BLD",1553 ,1,53,0)
	116	Ve rify Check sums in Tr ansport Gl obal
	117	"BLD",1553 ,1,54,0)
	118	Ba ckup a Tra nsport Glo bal
	119	"BLD",1553 ,1,55,0)
	120
	121	"BLD",1553 ,1,56,0)
	122	4. When r eady, sele ct the Ins tall Packa ges option
	123	"BLD",1553 ,1,57,0)
	124
	125	"BLD",1553 ,1,58,0)
	126	Select Ins tallation Option: In stall Pack age(s)
	127	"BLD",1553 ,1,59,0)
	128	Select INS TALL NAME: TOOLKIT X INDEX 7.3
	129	"BLD",1553 ,1,60,0)
	130
	131	"BLD",1553 ,1,61,0)
	132	Want KIDS to IN HIBIT LOGO Ns during the instal l? NO//
	133	"BLD",1553 ,1,62,0)
	134
	135	"BLD",1553 ,1,63,0)
	136	Want to DISABLE Scheduled Options, Menu Optio ns, and Pr otocols? N O//
	137	"BLD",1553 ,1,64,0)
	138
	139	"BLD",1553 ,6.3)
	140	13
	141	"BLD",1553 ,10,0)
	142	^9.63^2^2
	143	"BLD",1553 ,10,1,0)
	144	XU8.0661 ^1
	145	"BLD",1553 ,10,2,0)
	146	XT7.3140 ^1
	147	"BLD",1553 ,10,"B","X T7.3140" ,2)
	148
	149	"BLD",1553 ,10,"B","X U8.0661" ,1)
	150
	151	"BLD",1553 ,"INID")
	152	^
	153	"BLD",1553 ,"INIT")
	154
	155	"BLD",1553 ,"KRN",0)
	156	^9.67PA^90 02226^22
	157	"BLD",1553 ,"KRN",.4, 0)
	158	.4
	159	"BLD",1553 ,"KRN",.40 1,0)
	160	.401
	161	"BLD",1553 ,"KRN",.40 2,0)
	162	.402
	163	"BLD",1553 ,"KRN",.40 3,0)
	164	.403
	165	"BLD",1553 ,"KRN",.5, 0)
	166	.5
	167	"BLD",1553 ,"KRN",.84 ,0)
	168	.84
	169	"BLD",1553 ,"KRN",3.6 ,0)
	170	3.6
	171	"BLD",1553 ,"KRN",3.8 ,0)
	172	3.8
	173	"BLD",1553 ,"KRN",9.2 ,0)
	174	9.2
	175	"BLD",1553 ,"KRN",9.8 ,0)
	176	9.8
	177	"BLD",1553 ,"KRN",19, 0)
	178	19
	179	"BLD",1553 ,"KRN",19. 1,0)
	180	19.1
	181	"BLD",1553 ,"KRN",101 ,0)
	182	101
	183	"BLD",1553 ,"KRN",409 .61,0)
	184	409.61
	185	"BLD",1553 ,"KRN",771 ,0)
	186	771
	187	"BLD",1553 ,"KRN",779 .2,0)
	188	779.2
	189	"BLD",1553 ,"KRN",870 ,0)
	190	870
	191	"BLD",1553 ,"KRN",898 9.51,0)
	192	8989.51
	193	"BLD",1553 ,"KRN",898 9.52,0)
	194	8989.52
	195	"BLD",1553 ,"KRN",899 3,0)
	196	8993
	197	"BLD",1553 ,"KRN",899 4,0)
	198	8994
	199	"BLD",1553 ,"KRN",900 2226,0)
	200	9002226
	201	"BLD",1553 ,"KRN","B" ,.4,.4)
	202
	203	"BLD",1553 ,"KRN","B" ,.401,.401 )
	204
	205	"BLD",1553 ,"KRN","B" ,.402,.402 )
	206
	207	"BLD",1553 ,"KRN","B" ,.403,.403 )
	208
	209	"BLD",1553 ,"KRN","B" ,.5,.5)
	210
	211	"BLD",1553 ,"KRN","B" ,.84,.84)
	212
	213	"BLD",1553 ,"KRN","B" ,3.6,3.6)
	214
	215	"BLD",1553 ,"KRN","B" ,3.8,3.8)
	216
	217	"BLD",1553 ,"KRN","B" ,9.2,9.2)
	218
	219	"BLD",1553 ,"KRN","B" ,9.8,9.8)
	220
	221	"BLD",1553 ,"KRN","B" ,19,19)
	222
	223	"BLD",1553 ,"KRN","B" ,19.1,19.1 )
	224
	225	"BLD",1553 ,"KRN","B" ,101,101)
	226
	227	"BLD",1553 ,"KRN","B" ,409.61,40 9.61)
	228
	229	"BLD",1553 ,"KRN","B" ,771,771)
	230
	231	"BLD",1553 ,"KRN","B" ,779.2,779 .2)
	232
	233	"BLD",1553 ,"KRN","B" ,870,870)
	234
	235	"BLD",1553 ,"KRN","B" ,8989.51,8 989.51)
	236
	237	"BLD",1553 ,"KRN","B" ,8989.52,8 989.52)
	238
	239	"BLD",1553 ,"KRN","B" ,8993,8993 )
	240
	241	"BLD",1553 ,"KRN","B" ,8994,8994 )
	242
	243	"BLD",1553 ,"KRN","B" ,9002226,9 002226)
	244
	245	"MBREQ")
	246	0
	247	"QUES","XP F1",0)
	248	Y
	249	"QUES","XP F1","??")
	250	^D REP^XPD H
	251	"QUES","XP F1","A")
	252	Shall I wr ite over y our \|FLAG\| File
	253	"QUES","XP F1","B")
	254	YES
	255	"QUES","XP F1","M")
	256	D XPF1^XPD IQ
	257	"QUES","XP F2",0)
	258	Y
	259	"QUES","XP F2","??")
	260	^D DTA^XPD H
	261	"QUES","XP F2","A")
	262	Want my da ta \|FLAG\| yours
	263	"QUES","XP F2","B")
	264	YES
	265	"QUES","XP F2","M")
	266	D XPF2^XPD IQ
	267	"QUES","XP I1",0)
	268	YO
	269	"QUES","XP I1","??")
	270	^D INHIBIT ^XPDH
	271	"QUES","XP I1","A")
	272	Want KIDS to INHIBIT LOGONs du ring the i nstall
	273	"QUES","XP I1","B")
	274	NO
	275	"QUES","XP I1","M")
	276	D XPI1^XPD IQ
	277	"QUES","XP M1",0)
	278	PO^VA(200, :EM
	279	"QUES","XP M1","??")
	280	^D MG^XPDH
	281	"QUES","XP M1","A")
	282	Enter the Coordinato r for Mail Group '\|F LAG\|'
	283	"QUES","XP M1","B")
	284
	285	"QUES","XP M1","M")
	286	D XPM1^XPD IQ
	287	"QUES","XP O1",0)
	288	Y
	289	"QUES","XP O1","??")
	290	^D MENU^XP DH
	291	"QUES","XP O1","A")
	292	Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install
	293	"QUES","XP O1","B")
	294	NO
	295	"QUES","XP O1","M")
	296	D XPO1^XPD IQ
	297	"QUES","XP Z1",0)
	298	Y
	299	"QUES","XP Z1","??")
	300	^D OPT^XPD H
	301	"QUES","XP Z1","A")
	302	Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls
	303	"QUES","XP Z1","B")
	304	NO
	305	"QUES","XP Z1","M")
	306	D XPZ1^XPD IQ
	307	"QUES","XP Z2",0)
	308	Y
	309	"QUES","XP Z2","??")
	310	^D RTN^XPD H
	311	"QUES","XP Z2","A")
	312	Want to MO VE routine s to other CPUs
	313	"QUES","XP Z2","B")
	314	NO
	315	"QUES","XP Z2","M")
	316	D XPZ2^XPD IQ
	317	"VER")
	318	8.0^22.2
	319	INSTALL NAME
	320	XU8.0661
	321	"BLD",1550 ,0)
	322	XU8.0661 ^KERNEL^0^ 3170523^y
	323	"BLD",1550 ,1,0)
	324	^^135^135^ 3170522^^^ ^
	325	"BLD",1550 ,1,1,0)
	326	Descriptio n:
	327	"BLD",1550 ,1,2,0)
	328	========== =
	329	"BLD",1550 ,1,3,0)
	330	This patch supports the change of the SA C for long er Tags an d Routine
	331	"BLD",1550 ,1,4,0)
	332	names. It increases the lengt h from 8 t o 16 chara cters.
	333	"BLD",1550 ,1,5,0)
	334
	335	"BLD",1550 ,1,6,0)
	336	This patch also make s several changes to the ZOSFO NT routine , but only
	337	"BLD",1550 ,1,7,0)
	338	the ^%ZOSF ("TEST") n ode will b e set.
	339	"BLD",1550 ,1,8,0)
	340
	341	"BLD",1550 ,1,9,0)
	342	The routin e ZOSFONT has the fo llowing ch anges:
	343	"BLD",1550 ,1,10,0)
	344	1. A ne w tag, NOA SK, allows the setup of the %Z OSF global
	345	"BLD",1550 ,1,11,0)
	346	with out user i nteraction .
	347	"BLD",1550 ,1,12,0)
	348
	349	"BLD",1550 ,1,13,0)
	350	2. A ne w tag, ONE (X) allows the setup of a sing le node in
	351	"BLD",1550 ,1,14,0)
	352	the %ZOSF glob al. This allows thi s patch to update ju st
	353	"BLD",1550 ,1,15,0)
	354	%ZOS F("TEST").
	355	"BLD",1550 ,1,16,0)
	356
	357	"BLD",1550 ,1,17,0)
	358	3. Ther e is now a short des cription f or each %Z OSF node i n
	359	"BLD",1550 ,1,18,0)
	360	the text.
	361	"BLD",1550 ,1,19,0)
	362
	363	"BLD",1550 ,1,20,0)
	364	There are 2 changes to the ^%Z OSF global :
	365	"BLD",1550 ,1,21,0)
	366	1. The n ode ^%ZOSF ("TEST") h as changed , the chec king of ro utine patt ern
	367	"BLD",1550 ,1,22,0)
	368	has b een remove d. It has changed f rom:
	369	"BLD",1550 ,1,23,0)
	370	I X? 1(1""%"",1 A).7AN,$D( ^$ROUTINE( X)) to
	371	"BLD",1550 ,1,24,0)
	372	I X] "",$D(^$RO UTINE(X)).
	373	"BLD",1550 ,1,25,0)
	374	The check ing of rou tine patte rn has bee n removed.
	375	"BLD",1550 ,1,26,0)
	376
	377	"BLD",1550 ,1,27,0)
	378	The post i nstall rou tine XU866 1 cleans u p the ^%ZO SF global.
	379	"BLD",1550 ,1,28,0)
	380	1. The node ^%ZOS F("GSEL;Se lect Globa ls") is de leted. Th is
	381	"BLD",1550 ,1,29,0)
	382	node was incor rectly def ined in pa tch XU83 65.
	383	"BLD",1550 ,1,30,0)
	384
	385	"BLD",1550 ,1,31,0)
	386	2. Sets ^%ZOSF("T EST")
	387	"BLD",1550 ,1,32,0)
	388
	389	"BLD",1550 ,1,33,0)
	390
	391	"BLD",1550 ,1,34,0)
	392	Blood Bank Clearance
	393	"BLD",1550 ,1,35,0)
	394	========== ==========
	395	"BLD",1550 ,1,36,0)
	396	EFFECT ON BLOOD BANK FUNCTIONA L REQUIREM ENTS: Patc h XU8.06 61 contain s
	397	"BLD",1550 ,1,37,0)
	398	changes to a package reference d in ProPa th standar d titled: BBM Team
	399	"BLD",1550 ,1,38,0)
	400	Review
	401	"BLD",1550 ,1,39,0)
	402	of VistA P atches. Th is patch d oes not al ter or mod ify any Vi stA Blood Bank
	403	"BLD",1550 ,1,40,0)
	404	software d esign safe guards or safety cri tical elem ents funct ions.
	405	"BLD",1550 ,1,41,0)
	406
	407	"BLD",1550 ,1,42,0)
	408	RISK ANALY SIS: Chang es made by patch XU* 8.0*661 ha ve no effe ct on Bloo d
	409	"BLD",1550 ,1,43,0)
	410	Bank
	411	"BLD",1550 ,1,44,0)
	412	software f unctionali ty, theref ore RISK i s none.
	413	"BLD",1550 ,1,45,0)
	414
	415	"BLD",1550 ,1,46,0)
	416
	417	"BLD",1550 ,1,47,0)
	418	Patch Comp onents
	419	"BLD",1550 ,1,48,0)
	420	========== ======
	421	"BLD",1550 ,1,49,0)
	422	Files & F ields Asso ciateed:
	423	"BLD",1550 ,1,50,0)
	424
	425	"BLD",1550 ,1,51,0)
	426	BUILD fil e #9.6 PRE-TRANSP ORTATION R OUTINE # 900
	427	"BLD",1550 ,1,52,0)
	428	ENVIRONMEN T CHECK RO UTINE # 913
	429	"BLD",1550 ,1,53,0)
	430	DEL ENV RO UTINE # 913.1
	431	"BLD",1550 ,1,54,0)
	432	POST-INSTA LL ROUINTE # 914
	433	"BLD",1550 ,1,55,0)
	434	PRE-INSTAL L ROUINTE # 916
	435	"BLD",1550 ,1,56,0)
	436	INSTALL f ile #9.7 ROUTINES multiple # 40
	437	"BLD",1550 ,1,57,0)
	438	ROUTINE f ile #9.8 NAME # .01
	439	"BLD",1550 ,1,58,0)
	440	TAG # 5
	441	"BLD",1550 ,1,59,0)
	442	TASKS fil e #14.4 Entry Poin t # .01
	443	"BLD",1550 ,1,60,0)
	444	Routine Na me # 2
	445	"BLD",1550 ,1,61,0)
	446	OPTION fi le #19 ROUTINE # 25
	447	"BLD",1550 ,1,62,0)
	448	XQAB ERRO RS LOGGED
	449	"BLD",1550 ,1,63,0)
	450	file 8 991.5 ROUTINE # .02
	451	"BLD",1550 ,1,64,0)
	452	ALERT TRA CKING file #8992.1 ROUTINE TA G # 1.03
	453	"BLD",1550 ,1,65,0)
	454	REMOTE PR OCEDURE fi le #8994 TAG # .02
	455	"BLD",1550 ,1,66,0)
	456	ROUTINE # .03
	457	"BLD",1550 ,1,67,0)
	458
	459	"BLD",1550 ,1,68,0)
	460	Forms Asso ciated:
	461	"BLD",1550 ,1,69,0)
	462	N/A
	463	"BLD",1550 ,1,70,0)
	464
	465	"BLD",1550 ,1,71,0)
	466	Mail Group s Associat ed:
	467	"BLD",1550 ,1,72,0)
	468	N/A
	469	"BLD",1550 ,1,73,0)
	470
	471	"BLD",1550 ,1,74,0)
	472	Options As sociated:
	473	"BLD",1550 ,1,75,0)
	474	N/A
	475	"BLD",1550 ,1,76,0)
	476
	477	"BLD",1550 ,1,77,0)
	478	Protocols Associated :
	479	"BLD",1550 ,1,78,0)
	480	N/A
	481	"BLD",1550 ,1,79,0)
	482
	483	"BLD",1550 ,1,80,0)
	484	Security K eys Associ ated:
	485	"BLD",1550 ,1,81,0)
	486	N/A
	487	"BLD",1550 ,1,82,0)
	488
	489	"BLD",1550 ,1,83,0)
	490	Templates Associated :
	491	"BLD",1550 ,1,84,0)
	492	N/A
	493	"BLD",1550 ,1,85,0)
	494
	495	"BLD",1550 ,1,86,0)
	496	New Servic e Requests (NSRs):
	497	"BLD",1550 ,1,87,0)
	498	N/A
	499	"BLD",1550 ,1,88,0)
	500
	501	"BLD",1550 ,1,89,0)
	502	Patient Sa fety Issue s (PSIs):
	503	"BLD",1550 ,1,90,0)
	504	N/A
	505	"BLD",1550 ,1,91,0)
	506
	507	"BLD",1550 ,1,92,0)
	508	Remedy Tic ket & Over view:
	509	"BLD",1550 ,1,93,0)
	510	N/A
	511	"BLD",1550 ,1,94,0)
	512
	513	"BLD",1550 ,1,95,0)
	514	Problem:
	515	"BLD",1550 ,1,96,0)
	516	XINDEX uti lity needs to suppor t routine name and l abels to 1 6 characte rs
	517	"BLD",1550 ,1,97,0)
	518	and local variables names to 16 charact ers
	519	"BLD",1550 ,1,98,0)
	520
	521	"BLD",1550 ,1,99,0)
	522	Resolution :
	523	"BLD",1550 ,1,100,0)
	524	Change %Z OSF("TEST" ) to check for 16 ch aracters i nstead of 8 in routi ne
	525	"BLD",1550 ,1,101,0)
	526	ZOSFONT
	527	"BLD",1550 ,1,102,0)
	528
	529	"BLD",1550 ,1,103,0)
	530
	531	"BLD",1550 ,1,104,0)
	532	Thanks to Test Sites
	533	"BLD",1550 ,1,105,0)
	534	========== ==========
	535	"BLD",1550 ,1,106,0)
	536	TBD
	537	"BLD",1550 ,1,107,0)
	538
	539	"BLD",1550 ,1,108,0)
	540
	541	"BLD",1550 ,1,109,0)
	542	Documentat ion Retriv iel Instru ctions:
	543	"BLD",1550 ,1,110,0)
	544	========== ========== ========== =======
	545	"BLD",1550 ,1,111,0)
	546	No changes have been made to K ernel docu mentation as a resul t of this
	547	"BLD",1550 ,1,112,0)
	548	patch. Ho wever, the most up-t o-date VA Kernel doc umentation is
	549	"BLD",1550 ,1,113,0)
	550	available on the VHA Software Documentat ion Librar y (VDL) at the
	551	"BLD",1550 ,1,114,0)
	552	following:
	553	"BLD",1550 ,1,115,0)
	554	http://www . DNS /vdl/appli cation.asp ?appid=10
	555	"BLD",1550 ,1,116,0)
	556
	557	"BLD",1550 ,1,117,0)
	558	Patch Inst allation:
	559	"BLD",1550 ,1,118,0)
	560	This patc h is part of the TOO LKIT XINDE X 7.3 bund le. Pleas e see
	561	"BLD",1550 ,1,119,0)
	562	the insta llation in struction in the TOO LKIT XINDE X 7.3 patc h.
	563	"BLD",1550 ,1,120,0)
	564
	565	"BLD",1550 ,1,121,0)
	566
	567	"BLD",1550 ,1,122,0)
	568	Routine In formation:
	569	"BLD",1550 ,1,123,0)
	570	========== ==========
	571	"BLD",1550 ,1,124,0)
	572	The second line of e ach of the se routine s now look s like:
	573	"BLD",1550 ,1,125,0)
	574	;;8.0;KER NEL;[Pat ch List] ;Jul 10, 1 995;Build 10
	575	"BLD",1550 ,1,126,0)
	576
	577	"BLD",1550 ,1,127,0)
	578	The checks ums below are new ch ecksums, a nd
	579	"BLD",1550 ,1,128,0)
	580	can be ch ecked with CHECK1^XT SUMBLD.
	581	"BLD",1550 ,1,129,0)
	582
	583	"BLD",1550 ,1,130,0)
	584	Routine N ame: XU8P6 61
	585	"BLD",1550 ,1,131,0)
	586	Before : n/ a After: B83899 661
	587	"BLD",1550 ,1,132,0)
	588	Routine N ame: ZOSFO NT
	589	"BLD",1550 ,1,133,0)
	590	Before : B1962533 4 After: B28658128 34,104 ,365,661
	591	"BLD",1550 ,1,134,0)
	592
	593	"BLD",1550 ,1,135,0)
	594	Routine li st of prec eding patc hes: 365
	595	"BLD",1550 ,4,0)
	596	^9.64PA^89 94^8
	597	"BLD",1550 ,4,9.6,0)
	598	9.6
	599	"BLD",1550 ,4,9.6,2,0 )
	600	^9.641^9.6 ^1
	601	"BLD",1550 ,4,9.6,2,9 .6,0)
	602	BUILD (Fi le-top lev el)
	603	"BLD",1550 ,4,9.6,2,9 .6,1,0)
	604	^9.6411^91 3.1^5
	605	"BLD",1550 ,4,9.6,2,9 .6,1,900,0 )
	606	PRE-TRANSP ORTATION R OUTINE
	607	"BLD",1550 ,4,9.6,2,9 .6,1,913,0 )
	608	ENVIRONMEN T CHECK RO UTINE
	609	"BLD",1550 ,4,9.6,2,9 .6,1,913.1 ,0)
	610	DELETE ENV ROUTINE
	611	"BLD",1550 ,4,9.6,2,9 .6,1,914,0 )
	612	POST-INSTA LL ROUTINE
	613	"BLD",1550 ,4,9.6,2,9 .6,1,916,0 )
	614	PRE-INSTAL L ROUTINE
	615	"BLD",1550 ,4,9.6,222 )
	616	y^n^p^^^^n ^^n
	617	"BLD",1550 ,4,9.6,224 )
	618
	619	"BLD",1550 ,4,9.7,0)
	620	9.7
	621	"BLD",1550 ,4,9.7,2,0 )
	622	^9.641^9.7 04^1
	623	"BLD",1550 ,4,9.7,2,9 .704,0)
	624	ROUTINES (sub-file)
	625	"BLD",1550 ,4,9.7,2,9 .704,1,0)
	626	^9.6411^^
	627	"BLD",1550 ,4,9.7,222 )
	628	y^n^p^^^^n ^^n
	629	"BLD",1550 ,4,9.7,224 )
	630
	631	"BLD",1550 ,4,9.8,0)
	632	9.8
	633	"BLD",1550 ,4,9.8,2,0 )
	634	^9.641^9.8 01^2
	635	"BLD",1550 ,4,9.8,2,9 .8,0)
	636	ROUTINE ( File-top l evel)
	637	"BLD",1550 ,4,9.8,2,9 .8,1,0)
	638	^9.6411^.0 1^1
	639	"BLD",1550 ,4,9.8,2,9 .8,1,.01,0 )
	640	NAME
	641	"BLD",1550 ,4,9.8,2,9 .801,0)
	642	TAG (sub- file)
	643	"BLD",1550 ,4,9.8,2,9 .801,1,0)
	644	^9.6411^.0 1^1
	645	"BLD",1550 ,4,9.8,2,9 .801,1,.01 ,0)
	646	TAG
	647	"BLD",1550 ,4,9.8,222 )
	648	y^n^p^^^^n ^^n
	649	"BLD",1550 ,4,9.8,224 )
	650
	651	"BLD",1550 ,4,14.4,0)
	652	14.4
	653	"BLD",1550 ,4,14.4,2, 0)
	654	^9.641^14. 4^1
	655	"BLD",1550 ,4,14.4,2, 14.4,0)
	656	TASKS (Fi le-top lev el)
	657	"BLD",1550 ,4,14.4,2, 14.4,1,0)
	658	^9.6411^2^ 2
	659	"BLD",1550 ,4,14.4,2, 14.4,1,.01 ,0)
	660	Entry Poin t
	661	"BLD",1550 ,4,14.4,2, 14.4,1,2,0 )
	662	Routine Na me
	663	"BLD",1550 ,4,14.4,22 2)
	664	y^n^p^^^^n ^^n
	665	"BLD",1550 ,4,14.4,22 4)
	666
	667	"BLD",1550 ,4,19,0)
	668	19
	669	"BLD",1550 ,4,19,2,0)
	670	^9.641^19^ 1
	671	"BLD",1550 ,4,19,2,19 ,0)
	672	OPTION (F ile-top le vel)
	673	"BLD",1550 ,4,19,2,19 ,1,0)
	674	^9.6411^25 ^1
	675	"BLD",1550 ,4,19,2,19 ,1,25,0)
	676	ROUTINE
	677	"BLD",1550 ,4,19,222)
	678	y^n^p^^^^n ^^n
	679	"BLD",1550 ,4,19,224)
	680
	681	"BLD",1550 ,4,8991.5, 0)
	682	8991.5
	683	"BLD",1550 ,4,8991.5, 2,0)
	684	^9.641^899 1.5^1
	685	"BLD",1550 ,4,8991.5, 2,8991.5,0 )
	686	XQAB ERROR S LOGGED (File-top level)
	687	"BLD",1550 ,4,8991.5, 2,8991.5,1 ,0)
	688	^9.6411^.0 2^1
	689	"BLD",1550 ,4,8991.5, 2,8991.5,1 ,.02,0)
	690	ROUTINE
	691	"BLD",1550 ,4,8991.5, 222)
	692	y^n^p^^^^n ^^n
	693	"BLD",1550 ,4,8991.5, 224)
	694
	695	"BLD",1550 ,4,8992.1, 0)
	696	8992.1
	697	"BLD",1550 ,4,8992.1, 2,0)
	698	^9.641^899 2.1^1
	699	"BLD",1550 ,4,8992.1, 2,8992.1,0 )
	700	ALERT TRAC KING (Fil e-top leve l)
	701	"BLD",1550 ,4,8992.1, 2,8992.1,1 ,0)
	702	^9.6411^1. 03^1
	703	"BLD",1550 ,4,8992.1, 2,8992.1,1 ,1.03,0)
	704	ROUTINE TA G
	705	"BLD",1550 ,4,8992.1, 222)
	706	y^n^p^^^^n ^^n
	707	"BLD",1550 ,4,8992.1, 224)
	708
	709	"BLD",1550 ,4,8994,0)
	710	8994
	711	"BLD",1550 ,4,8994,2, 0)
	712	^9.641^899 4^1
	713	"BLD",1550 ,4,8994,2, 8994,0)
	714	REMOTE PRO CEDURE (F ile-top le vel)
	715	"BLD",1550 ,4,8994,2, 8994,1,0)
	716	^9.6411^.0 3^2
	717	"BLD",1550 ,4,8994,2, 8994,1,.02 ,0)
	718	TAG
	719	"BLD",1550 ,4,8994,2, 8994,1,.03 ,0)
	720	ROUTINE
	721	"BLD",1550 ,4,8994,22 2)
	722	y^n^p^^^^n ^^n
	723	"BLD",1550 ,4,8994,22 4)
	724
	725	"BLD",1550 ,4,"APDD", 9.6,9.6)
	726
	727	"BLD",1550 ,4,"APDD", 9.6,9.6,90 0)
	728
	729	"BLD",1550 ,4,"APDD", 9.6,9.6,91 3)
	730
	731	"BLD",1550 ,4,"APDD", 9.6,9.6,91 3.1)
	732
	733	"BLD",1550 ,4,"APDD", 9.6,9.6,91 4)
	734
	735	"BLD",1550 ,4,"APDD", 9.6,9.6,91 6)
	736
	737	"BLD",1550 ,4,"APDD", 9.7,9.704)
	738
	739	"BLD",1550 ,4,"APDD", 9.8,9.8)
	740
	741	"BLD",1550 ,4,"APDD", 9.8,9.8,.0 1)
	742
	743	"BLD",1550 ,4,"APDD", 9.8,9.801)
	744
	745	"BLD",1550 ,4,"APDD", 9.8,9.801, .01)
	746
	747	"BLD",1550 ,4,"APDD", 14.4,14.4)
	748
	749	"BLD",1550 ,4,"APDD", 14.4,14.4, .01)
	750
	751	"BLD",1550 ,4,"APDD", 14.4,14.4, 2)
	752
	753	"BLD",1550 ,4,"APDD", 19,19)
	754
	755	"BLD",1550 ,4,"APDD", 19,19,25)
	756
	757	"BLD",1550 ,4,"APDD", 8991.5,899 1.5)
	758
	759	"BLD",1550 ,4,"APDD", 8991.5,899 1.5,.02)
	760
	761	"BLD",1550 ,4,"APDD", 8992.1,899 2.1)
	762
	763	"BLD",1550 ,4,"APDD", 8992.1,899 2.1,1.03)
	764
	765	"BLD",1550 ,4,"APDD", 8994,8994)
	766
	767	"BLD",1550 ,4,"APDD", 8994,8994, .02)
	768
	769	"BLD",1550 ,4,"APDD", 8994,8994, .03)
	770
	771	"BLD",1550 ,4,"B",9.6 ,9.6)
	772
	773	"BLD",1550 ,4,"B",9.7 ,9.7)
	774
	775	"BLD",1550 ,4,"B",9.8 ,9.8)
	776
	777	"BLD",1550 ,4,"B",14. 4,14.4)
	778
	779	"BLD",1550 ,4,"B",19, 19)
	780
	781	"BLD",1550 ,4,"B",899 1.5,8991.5 )
	782
	783	"BLD",1550 ,4,"B",899 2.1,8992.1 )
	784
	785	"BLD",1550 ,4,"B",899 4,8994)
	786
	787	"BLD",1550 ,6.3)
	788	15
	789	"BLD",1550 ,"INID")
	790	^y
	791	"BLD",1550 ,"INIT")
	792	XU8P661
	793	"BLD",1550 ,"KRN",0)
	794	^9.67PA^90 02226^22
	795	"BLD",1550 ,"KRN",.4, 0)
	796	.4
	797	"BLD",1550 ,"KRN",.40 1,0)
	798	.401
	799	"BLD",1550 ,"KRN",.40 2,0)
	800	.402
	801	"BLD",1550 ,"KRN",.40 3,0)
	802	.403
	803	"BLD",1550 ,"KRN",.5, 0)
	804	.5
	805	"BLD",1550 ,"KRN",.84 ,0)
	806	.84
	807	"BLD",1550 ,"KRN",3.6 ,0)
	808	3.6
	809	"BLD",1550 ,"KRN",3.8 ,0)
	810	3.8
	811	"BLD",1550 ,"KRN",9.2 ,0)
	812	9.2
	813	"BLD",1550 ,"KRN",9.8 ,0)
	814	9.8
	815	"BLD",1550 ,"KRN",9.8 ,"NM",0)
	816	^9.68A^1^1
	817	"BLD",1550 ,"KRN",9.8 ,"NM",1,0)
	818	ZOSFONT^^0 ^B28658128
	819	"BLD",1550 ,"KRN",9.8 ,"NM","B", "ZOSFONT", 1)
	820
	821	"BLD",1550 ,"KRN",19, 0)
	822	19
	823	"BLD",1550 ,"KRN",19. 1,0)
	824	19.1
	825	"BLD",1550 ,"KRN",101 ,0)
	826	101
	827	"BLD",1550 ,"KRN",409 .61,0)
	828	409.61
	829	"BLD",1550 ,"KRN",771 ,0)
	830	771
	831	"BLD",1550 ,"KRN",779 .2,0)
	832	779.2
	833	"BLD",1550 ,"KRN",870 ,0)
	834	870
	835	"BLD",1550 ,"KRN",898 9.51,0)
	836	8989.51
	837	"BLD",1550 ,"KRN",898 9.52,0)
	838	8989.52
	839	"BLD",1550 ,"KRN",899 3,0)
	840	8993
	841	"BLD",1550 ,"KRN",899 4,0)
	842	8994
	843	"BLD",1550 ,"KRN",900 2226,0)
	844	9002226
	845	"BLD",1550 ,"KRN","B" ,.4,.4)
	846
	847	"BLD",1550 ,"KRN","B" ,.401,.401 )
	848
	849	"BLD",1550 ,"KRN","B" ,.402,.402 )
	850
	851	"BLD",1550 ,"KRN","B" ,.403,.403 )
	852
	853	"BLD",1550 ,"KRN","B" ,.5,.5)
	854
	855	"BLD",1550 ,"KRN","B" ,.84,.84)
	856
	857	"BLD",1550 ,"KRN","B" ,3.6,3.6)
	858
	859	"BLD",1550 ,"KRN","B" ,3.8,3.8)
	860
	861	"BLD",1550 ,"KRN","B" ,9.2,9.2)
	862
	863	"BLD",1550 ,"KRN","B" ,9.8,9.8)
	864
	865	"BLD",1550 ,"KRN","B" ,19,19)
	866
	867	"BLD",1550 ,"KRN","B" ,19.1,19.1 )
	868
	869	"BLD",1550 ,"KRN","B" ,101,101)
	870
	871	"BLD",1550 ,"KRN","B" ,409.61,40 9.61)
	872
	873	"BLD",1550 ,"KRN","B" ,771,771)
	874
	875	"BLD",1550 ,"KRN","B" ,779.2,779 .2)
	876
	877	"BLD",1550 ,"KRN","B" ,870,870)
	878
	879	"BLD",1550 ,"KRN","B" ,8989.51,8 989.51)
	880
	881	"BLD",1550 ,"KRN","B" ,8989.52,8 989.52)
	882
	883	"BLD",1550 ,"KRN","B" ,8993,8993 )
	884
	885	"BLD",1550 ,"KRN","B" ,8994,8994 )
	886
	887	"BLD",1550 ,"KRN","B" ,9002226,9 002226)
	888
	889	"BLD",1550 ,"QDEF")
	890	^^^^NO^^^^ NO^^NO
	891	"BLD",1550 ,"QUES",0)
	892	^9.62^^
	893	"BLD",1550 ,"REQB",0)
	894	^9.611^^
	895	"FIA",9.6)
	896	BUILD
	897	"FIA",9.6, 0)
	898	^XPD(9.6,
	899	"FIA",9.6, 0,0)
	900	9.6I
	901	"FIA",9.6, 0,1)
	902	y^n^p^^^^n ^^n
	903	"FIA",9.6, 0,10)
	904
	905	"FIA",9.6, 0,11)
	906
	907	"FIA",9.6, 0,"RLRO")
	908
	909	"FIA",9.6, 0,"VR")
	910	8.0^XU
	911	"FIA",9.6, 9.6)
	912	1
	913	"FIA",9.6, 9.6,900)
	914
	915	"FIA",9.6, 9.6,913)
	916
	917	"FIA",9.6, 9.6,913.1)
	918
	919	"FIA",9.6, 9.6,914)
	920
	921	"FIA",9.6, 9.6,916)
	922
	923	"FIA",9.7)
	924	INSTALL
	925	"FIA",9.7, 0)
	926	^XPD(9.7,
	927	"FIA",9.7, 0,0)
	928	9.7I
	929	"FIA",9.7, 0,1)
	930	y^n^p^^^^n ^^n
	931	"FIA",9.7, 0,10)
	932
	933	"FIA",9.7, 0,11)
	934
	935	"FIA",9.7, 0,"RLRO")
	936
	937	"FIA",9.7, 0,"VR")
	938	8.0^XU
	939	"FIA",9.7, 9.7)
	940	1
	941	"FIA",9.7, 9.7,40)
	942
	943	"FIA",9.7, 9.704)
	944	0
	945	"FIA",9.8)
	946	ROUTINE
	947	"FIA",9.8, 0)
	948	^DIC(9.8,
	949	"FIA",9.8, 0,0)
	950	9.8
	951	"FIA",9.8, 0,1)
	952	y^n^p^^^^n ^^n
	953	"FIA",9.8, 0,10)
	954
	955	"FIA",9.8, 0,11)
	956
	957	"FIA",9.8, 0,"RLRO")
	958
	959	"FIA",9.8, 0,"VR")
	960	8.0^XU
	961	"FIA",9.8, 9.8)
	962	1
	963	"FIA",9.8, 9.8,.01)
	964
	965	"FIA",9.8, 9.8,5)
	966
	967	"FIA",9.8, 9.801)
	968	1
	969	"FIA",9.8, 9.801,.01)
	970
	971	"FIA",14.4 )
	972	TASKS
	973	"FIA",14.4 ,0)
	974	^%ZTSK(
	975	"FIA",14.4 ,0,0)
	976	14.4
	977	"FIA",14.4 ,0,1)
	978	y^n^p^^^^n ^^n
	979	"FIA",14.4 ,0,10)
	980
	981	"FIA",14.4 ,0,11)
	982
	983	"FIA",14.4 ,0,"RLRO")
	984
	985	"FIA",14.4 ,0,"VR")
	986	8.0^XU
	987	"FIA",14.4 ,14.4)
	988	1
	989	"FIA",14.4 ,14.4,.01)
	990
	991	"FIA",14.4 ,14.4,2)
	992
	993	"FIA",19)
	994	OPTION
	995	"FIA",19,0 )
	996	^DIC(19,
	997	"FIA",19,0 ,0)
	998	19I
	999	"FIA",19,0 ,1)
	1000	y^n^p^^^^n ^^n
	1001	"FIA",19,0 ,10)
	1002
	1003	"FIA",19,0 ,11)
	1004
	1005	"FIA",19,0 ,"RLRO")
	1006
	1007	"FIA",19,0 ,"VR")
	1008	8.0^XU
	1009	"FIA",19,1 9)
	1010	1
	1011	"FIA",19,1 9,25)
	1012
	1013	"FIA",8991 .5)
	1014	XQAB ERROR S LOGGED
	1015	"FIA",8991 .5,0)
	1016	^XTV(8991. 5,
	1017	"FIA",8991 .5,0,0)
	1018	8991.5
	1019	"FIA",8991 .5,0,1)
	1020	y^n^p^^^^n ^^n
	1021	"FIA",8991 .5,0,10)
	1022
	1023	"FIA",8991 .5,0,11)
	1024
	1025	"FIA",8991 .5,0,"RLRO ")
	1026
	1027	"FIA",8991 .5,0,"VR")
	1028	8.0^XU
	1029	"FIA",8991 .5,8991.5)
	1030	1
	1031	"FIA",8991 .5,8991.5, .02)
	1032
	1033	"FIA",8992 .1)
	1034	ALERT TRAC KING
	1035	"FIA",8992 .1,0)
	1036	^XTV(8992. 1,
	1037	"FIA",8992 .1,0,0)
	1038	8992.1A
	1039	"FIA",8992 .1,0,1)
	1040	y^n^p^^^^n ^^n
	1041	"FIA",8992 .1,0,10)
	1042
	1043	"FIA",8992 .1,0,11)
	1044
	1045	"FIA",8992 .1,0,"RLRO ")
	1046
	1047	"FIA",8992 .1,0,"VR")
	1048	8.0^XU
	1049	"FIA",8992 .1,8992.1)
	1050	1
	1051	"FIA",8992 .1,8992.1, 1.03)
	1052
	1053	"FIA",8994 )
	1054	REMOTE PRO CEDURE
	1055	"FIA",8994 ,0)
	1056	^XWB(8994,
	1057	"FIA",8994 ,0,0)
	1058	8994
	1059	"FIA",8994 ,0,1)
	1060	y^n^p^^^^n ^^n
	1061	"FIA",8994 ,0,10)
	1062
	1063	"FIA",8994 ,0,11)
	1064
	1065	"FIA",8994 ,0,"RLRO")
	1066
	1067	"FIA",8994 ,0,"VR")
	1068	8.0^XU
	1069	"FIA",8994 ,8994)
	1070	1
	1071	"FIA",8994 ,8994,.02)
	1072
	1073	"FIA",8994 ,8994,.03)
	1074
	1075	"INIT")
	1076	XU8P661
	1077	"MBREQ")
	1078	1
	1079	"PKG",3,-1 )
	1080	1^1
	1081	"PKG",3,0)
	1082	KERNEL^XU^ SIGN-ON, S ECURITY, M ENU DRIVER , DEVICES, TASKMAN^
	1083	"PKG",3,22 ,0)
	1084	^9.49I^1^1
	1085	"PKG",3,22 ,1,0)
	1086	8.0^309070 6^3090706^ 6
	1087	"PKG",3,22 ,1,"PAH",1 ,0)
	1088	661^317052 3
	1089	"PKG",3,22 ,1,"PAH",1 ,1,0)
	1090	^^135^135^ 3170523
	1091	"PKG",3,22 ,1,"PAH",1 ,1,1,0)
	1092	Descriptio n:
	1093	"PKG",3,22 ,1,"PAH",1 ,1,2,0)
	1094	========== =
	1095	"PKG",3,22 ,1,"PAH",1 ,1,3,0)
	1096	This patch supports the change of the SA C for long er Tags an d Routine
	1097	"PKG",3,22 ,1,"PAH",1 ,1,4,0)
	1098	names. It increases the lengt h from 8 t o 16 chara cters.
	1099	"PKG",3,22 ,1,"PAH",1 ,1,5,0)
	1100
	1101	"PKG",3,22 ,1,"PAH",1 ,1,6,0)
	1102	This patch also make s several changes to the ZOSFO NT routine , but only
	1103	"PKG",3,22 ,1,"PAH",1 ,1,7,0)
	1104	the ^%ZOSF ("TEST") n ode will b e set.
	1105	"PKG",3,22 ,1,"PAH",1 ,1,8,0)
	1106
	1107	"PKG",3,22 ,1,"PAH",1 ,1,9,0)
	1108	The routin e ZOSFONT has the fo llowing ch anges:
	1109	"PKG",3,22 ,1,"PAH",1 ,1,10,0)
	1110	1. A ne w tag, NOA SK, allows the setup of the %Z OSF global
	1111	"PKG",3,22 ,1,"PAH",1 ,1,11,0)
	1112	with out user i nteraction .
	1113	"PKG",3,22 ,1,"PAH",1 ,1,12,0)
	1114
	1115	"PKG",3,22 ,1,"PAH",1 ,1,13,0)
	1116	2. A ne w tag, ONE (X) allows the setup of a sing le node in
	1117	"PKG",3,22 ,1,"PAH",1 ,1,14,0)
	1118	the %ZOSF glob al. This allows thi s patch to update ju st
	1119	"PKG",3,22 ,1,"PAH",1 ,1,15,0)
	1120	%ZOS F("TEST").
	1121	"PKG",3,22 ,1,"PAH",1 ,1,16,0)
	1122
	1123	"PKG",3,22 ,1,"PAH",1 ,1,17,0)
	1124	3. Ther e is now a short des cription f or each %Z OSF node i n
	1125	"PKG",3,22 ,1,"PAH",1 ,1,18,0)
	1126	the text.
	1127	"PKG",3,22 ,1,"PAH",1 ,1,19,0)
	1128
	1129	"PKG",3,22 ,1,"PAH",1 ,1,20,0)
	1130	There are 2 changes to the ^%Z OSF global :
	1131	"PKG",3,22 ,1,"PAH",1 ,1,21,0)
	1132	1. The n ode ^%ZOSF ("TEST") h as changed , the chec king of ro utine patt ern
	1133	"PKG",3,22 ,1,"PAH",1 ,1,22,0)
	1134	has b een remove d. It has changed f rom:
	1135	"PKG",3,22 ,1,"PAH",1 ,1,23,0)
	1136	I X? 1(1""%"",1 A).7AN,$D( ^$ROUTINE( X)) to
	1137	"PKG",3,22 ,1,"PAH",1 ,1,24,0)
	1138	I X] "",$D(^$RO UTINE(X)).
	1139	"PKG",3,22 ,1,"PAH",1 ,1,25,0)
	1140	The check ing of rou tine patte rn has bee n removed.
	1141	"PKG",3,22 ,1,"PAH",1 ,1,26,0)
	1142
	1143	"PKG",3,22 ,1,"PAH",1 ,1,27,0)
	1144	The post i nstall rou tine XU866 1 cleans u p the ^%ZO SF global.
	1145	"PKG",3,22 ,1,"PAH",1 ,1,28,0)
	1146	1. The node ^%ZOS F("GSEL;Se lect Globa ls") is de leted. Th is
	1147	"PKG",3,22 ,1,"PAH",1 ,1,29,0)
	1148	node was incor rectly def ined in pa tch XU83 65.
	1149	"PKG",3,22 ,1,"PAH",1 ,1,30,0)
	1150
	1151	"PKG",3,22 ,1,"PAH",1 ,1,31,0)
	1152	2. Sets ^%ZOSF("T EST")
	1153	"PKG",3,22 ,1,"PAH",1 ,1,32,0)
	1154
	1155	"PKG",3,22 ,1,"PAH",1 ,1,33,0)
	1156
	1157	"PKG",3,22 ,1,"PAH",1 ,1,34,0)
	1158	Blood Bank Clearance
	1159	"PKG",3,22 ,1,"PAH",1 ,1,35,0)
	1160	========== ==========
	1161	"PKG",3,22 ,1,"PAH",1 ,1,36,0)
	1162	EFFECT ON BLOOD BANK FUNCTIONA L REQUIREM ENTS: Patc h XU8.06 61 contain s
	1163	"PKG",3,22 ,1,"PAH",1 ,1,37,0)
	1164	changes to a package reference d in ProPa th standar d titled: BBM Team
	1165	"PKG",3,22 ,1,"PAH",1 ,1,38,0)
	1166	Review
	1167	"PKG",3,22 ,1,"PAH",1 ,1,39,0)
	1168	of VistA P atches. Th is patch d oes not al ter or mod ify any Vi stA Blood Bank
	1169	"PKG",3,22 ,1,"PAH",1 ,1,40,0)
	1170	software d esign safe guards or safety cri tical elem ents funct ions.
	1171	"PKG",3,22 ,1,"PAH",1 ,1,41,0)
	1172
	1173	"PKG",3,22 ,1,"PAH",1 ,1,42,0)
	1174	RISK ANALY SIS: Chang es made by patch XU* 8.0*661 ha ve no effe ct on Bloo d
	1175	"PKG",3,22 ,1,"PAH",1 ,1,43,0)
	1176	Bank
	1177	"PKG",3,22 ,1,"PAH",1 ,1,44,0)
	1178	software f unctionali ty, theref ore RISK i s none.
	1179	"PKG",3,22 ,1,"PAH",1 ,1,45,0)
	1180
	1181	"PKG",3,22 ,1,"PAH",1 ,1,46,0)
	1182
	1183	"PKG",3,22 ,1,"PAH",1 ,1,47,0)
	1184	Patch Comp onents
	1185	"PKG",3,22 ,1,"PAH",1 ,1,48,0)
	1186	========== ======
	1187	"PKG",3,22 ,1,"PAH",1 ,1,49,0)
	1188	Files & F ields Asso ciateed:
	1189	"PKG",3,22 ,1,"PAH",1 ,1,50,0)
	1190
	1191	"PKG",3,22 ,1,"PAH",1 ,1,51,0)
	1192	BUILD fil e #9.6 PRE-TRANSP ORTATION R OUTINE # 900
	1193	"PKG",3,22 ,1,"PAH",1 ,1,52,0)
	1194	ENVIRONMEN T CHECK RO UTINE # 913
	1195	"PKG",3,22 ,1,"PAH",1 ,1,53,0)
	1196	DEL ENV RO UTINE # 913.1
	1197	"PKG",3,22 ,1,"PAH",1 ,1,54,0)
	1198	POST-INSTA LL ROUINTE # 914
	1199	"PKG",3,22 ,1,"PAH",1 ,1,55,0)
	1200	PRE-INSTAL L ROUINTE # 916
	1201	"PKG",3,22 ,1,"PAH",1 ,1,56,0)
	1202	INSTALL f ile #9.7 ROUTINES multiple # 40
	1203	"PKG",3,22 ,1,"PAH",1 ,1,57,0)
	1204	ROUTINE f ile #9.8 NAME # .01
	1205	"PKG",3,22 ,1,"PAH",1 ,1,58,0)
	1206	TAG # 5
	1207	"PKG",3,22 ,1,"PAH",1 ,1,59,0)
	1208	TASKS fil e #14.4 Entry Poin t # .01
	1209	"PKG",3,22 ,1,"PAH",1 ,1,60,0)
	1210	Routine Na me # 2
	1211	"PKG",3,22 ,1,"PAH",1 ,1,61,0)
	1212	OPTION fi le #19 ROUTINE # 25
	1213	"PKG",3,22 ,1,"PAH",1 ,1,62,0)
	1214	XQAB ERRO RS LOGGED
	1215	"PKG",3,22 ,1,"PAH",1 ,1,63,0)
	1216	file 8 991.5 ROUTINE # .02
	1217	"PKG",3,22 ,1,"PAH",1 ,1,64,0)
	1218	ALERT TRA CKING file #8992.1 ROUTINE TA G # 1.03
	1219	"PKG",3,22 ,1,"PAH",1 ,1,65,0)
	1220	REMOTE PR OCEDURE fi le #8994 TAG # .02
	1221	"PKG",3,22 ,1,"PAH",1 ,1,66,0)
	1222	ROUTINE # .03
	1223	"PKG",3,22 ,1,"PAH",1 ,1,67,0)
	1224
	1225	"PKG",3,22 ,1,"PAH",1 ,1,68,0)
	1226	Forms Asso ciated:
	1227	"PKG",3,22 ,1,"PAH",1 ,1,69,0)
	1228	N/A
	1229	"PKG",3,22 ,1,"PAH",1 ,1,70,0)
	1230
	1231	"PKG",3,22 ,1,"PAH",1 ,1,71,0)
	1232	Mail Group s Associat ed:
	1233	"PKG",3,22 ,1,"PAH",1 ,1,72,0)
	1234	N/A
	1235	"PKG",3,22 ,1,"PAH",1 ,1,73,0)
	1236
	1237	"PKG",3,22 ,1,"PAH",1 ,1,74,0)
	1238	Options As sociated:
	1239	"PKG",3,22 ,1,"PAH",1 ,1,75,0)
	1240	N/A
	1241	"PKG",3,22 ,1,"PAH",1 ,1,76,0)
	1242
	1243	"PKG",3,22 ,1,"PAH",1 ,1,77,0)
	1244	Protocols Associated :
	1245	"PKG",3,22 ,1,"PAH",1 ,1,78,0)
	1246	N/A
	1247	"PKG",3,22 ,1,"PAH",1 ,1,79,0)
	1248
	1249	"PKG",3,22 ,1,"PAH",1 ,1,80,0)
	1250	Security K eys Associ ated:
	1251	"PKG",3,22 ,1,"PAH",1 ,1,81,0)
	1252	N/A
	1253	"PKG",3,22 ,1,"PAH",1 ,1,82,0)
	1254
	1255	"PKG",3,22 ,1,"PAH",1 ,1,83,0)
	1256	Templates Associated :
	1257	"PKG",3,22 ,1,"PAH",1 ,1,84,0)
	1258	N/A
	1259	"PKG",3,22 ,1,"PAH",1 ,1,85,0)
	1260
	1261	"PKG",3,22 ,1,"PAH",1 ,1,86,0)
	1262	New Servic e Requests (NSRs):
	1263	"PKG",3,22 ,1,"PAH",1 ,1,87,0)
	1264	N/A
	1265	"PKG",3,22 ,1,"PAH",1 ,1,88,0)
	1266
	1267	"PKG",3,22 ,1,"PAH",1 ,1,89,0)
	1268	Patient Sa fety Issue s (PSIs):
	1269	"PKG",3,22 ,1,"PAH",1 ,1,90,0)
	1270	N/A
	1271	"PKG",3,22 ,1,"PAH",1 ,1,91,0)
	1272
	1273	"PKG",3,22 ,1,"PAH",1 ,1,92,0)
	1274	Remedy Tic ket & Over view:
	1275	"PKG",3,22 ,1,"PAH",1 ,1,93,0)
	1276	N/A
	1277	"PKG",3,22 ,1,"PAH",1 ,1,94,0)
	1278
	1279	"PKG",3,22 ,1,"PAH",1 ,1,95,0)
	1280	Problem:
	1281	"PKG",3,22 ,1,"PAH",1 ,1,96,0)
	1282	XINDEX uti lity needs to suppor t routine name and l abels to 1 6 characte rs
	1283	"PKG",3,22 ,1,"PAH",1 ,1,97,0)
	1284	and local variables names to 16 charact ers
	1285	"PKG",3,22 ,1,"PAH",1 ,1,98,0)
	1286
	1287	"PKG",3,22 ,1,"PAH",1 ,1,99,0)
	1288	Resolution :
	1289	"PKG",3,22 ,1,"PAH",1 ,1,100,0)
	1290	Change %Z OSF("TEST" ) to check for 16 ch aracters i nstead of 8 in routi ne
	1291	"PKG",3,22 ,1,"PAH",1 ,1,101,0)
	1292	ZOSFONT
	1293	"PKG",3,22 ,1,"PAH",1 ,1,102,0)
	1294
	1295	"PKG",3,22 ,1,"PAH",1 ,1,103,0)
	1296
	1297	"PKG",3,22 ,1,"PAH",1 ,1,104,0)
	1298	Thanks to Test Sites
	1299	"PKG",3,22 ,1,"PAH",1 ,1,105,0)
	1300	========== ==========
	1301	"PKG",3,22 ,1,"PAH",1 ,1,106,0)
	1302	TBD
	1303	"PKG",3,22 ,1,"PAH",1 ,1,107,0)
	1304
	1305	"PKG",3,22 ,1,"PAH",1 ,1,108,0)
	1306
	1307	"PKG",3,22 ,1,"PAH",1 ,1,109,0)
	1308	Documentat ion Retriv iel Instru ctions:
	1309	"PKG",3,22 ,1,"PAH",1 ,1,110,0)
	1310	========== ========== ========== =======
	1311	"PKG",3,22 ,1,"PAH",1 ,1,111,0)
	1312	No changes have been made to K ernel docu mentation as a resul t of this
	1313	"PKG",3,22 ,1,"PAH",1 ,1,112,0)
	1314	patch. Ho wever, the most up-t o-date VA Kernel doc umentation is
	1315	"PKG",3,22 ,1,"PAH",1 ,1,113,0)
	1316	available on the VHA Software Documentat ion Librar y (VDL) at the
	1317	"PKG",3,22 ,1,"PAH",1 ,1,114,0)
	1318	following:
	1319	"PKG",3,22 ,1,"PAH",1 ,1,115,0)
	1320	http://www . DNS /vdl/appli cation.asp ?appid=10
	1321	"PKG",3,22 ,1,"PAH",1 ,1,116,0)
	1322
	1323	"PKG",3,22 ,1,"PAH",1 ,1,117,0)
	1324	Patch Inst allation:
	1325	"PKG",3,22 ,1,"PAH",1 ,1,118,0)
	1326	This patc h is part of the TOO LKIT XINDE X 7.3 bund le. Pleas e see
	1327	"PKG",3,22 ,1,"PAH",1 ,1,119,0)
	1328	the insta llation in struction in the TOO LKIT XINDE X 7.3 patc h.
	1329	"PKG",3,22 ,1,"PAH",1 ,1,120,0)
	1330
	1331	"PKG",3,22 ,1,"PAH",1 ,1,121,0)
	1332
	1333	"PKG",3,22 ,1,"PAH",1 ,1,122,0)
	1334	Routine In formation:
	1335	"PKG",3,22 ,1,"PAH",1 ,1,123,0)
	1336	========== ==========
	1337	"PKG",3,22 ,1,"PAH",1 ,1,124,0)
	1338	The second line of e ach of the se routine s now look s like:
	1339	"PKG",3,22 ,1,"PAH",1 ,1,125,0)
	1340	;;8.0;KER NEL;[Pat ch List] ;Jul 10, 1 995;Build 10
	1341	"PKG",3,22 ,1,"PAH",1 ,1,126,0)
	1342
	1343	"PKG",3,22 ,1,"PAH",1 ,1,127,0)
	1344	The checks ums below are new ch ecksums, a nd
	1345	"PKG",3,22 ,1,"PAH",1 ,1,128,0)
	1346	can be ch ecked with CHECK1^XT SUMBLD.
	1347	"PKG",3,22 ,1,"PAH",1 ,1,129,0)
	1348
	1349	"PKG",3,22 ,1,"PAH",1 ,1,130,0)
	1350	Routine N ame: XU8P6 61
	1351	"PKG",3,22 ,1,"PAH",1 ,1,131,0)
	1352	Before : n/ a After: B83899 661
	1353	"PKG",3,22 ,1,"PAH",1 ,1,132,0)
	1354	Routine N ame: ZOSFO NT
	1355	"PKG",3,22 ,1,"PAH",1 ,1,133,0)
	1356	Before : B1962533 4 After: B28658128 34,104 ,365,661
	1357	"PKG",3,22 ,1,"PAH",1 ,1,134,0)
	1358
	1359	"PKG",3,22 ,1,"PAH",1 ,1,135,0)
	1360	Routine li st of prec eding patc hes: 365
	1361	"QUES","XP F1",0)
	1362	Y
	1363	"QUES","XP F1","??")
	1364	^D REP^XPD H
	1365	"QUES","XP F1","A")
	1366	Shall I wr ite over y our \|FLAG\| File
	1367	"QUES","XP F1","B")
	1368	YES
	1369	"QUES","XP F1","M")
	1370	D XPF1^XPD IQ
	1371	"QUES","XP F2",0)
	1372	Y
	1373	"QUES","XP F2","??")
	1374	^D DTA^XPD H
	1375	"QUES","XP F2","A")
	1376	Want my da ta \|FLAG\| yours
	1377	"QUES","XP F2","B")
	1378	YES
	1379	"QUES","XP F2","M")
	1380	D XPF2^XPD IQ
	1381	"QUES","XP I1",0)
	1382	YO
	1383	"QUES","XP I1","??")
	1384	^D INHIBIT ^XPDH
	1385	"QUES","XP I1","A")
	1386	Want KIDS to INHIBIT LOGONs du ring the i nstall
	1387	"QUES","XP I1","B")
	1388	NO
	1389	"QUES","XP I1","M")
	1390	D XPI1^XPD IQ
	1391	"QUES","XP M1",0)
	1392	PO^VA(200, :EM
	1393	"QUES","XP M1","??")
	1394	^D MG^XPDH
	1395	"QUES","XP M1","A")
	1396	Enter the Coordinato r for Mail Group '\|F LAG\|'
	1397	"QUES","XP M1","B")
	1398
	1399	"QUES","XP M1","M")
	1400	D XPM1^XPD IQ
	1401	"QUES","XP O1",0)
	1402	Y
	1403	"QUES","XP O1","??")
	1404	^D MENU^XP DH
	1405	"QUES","XP O1","A")
	1406	Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install
	1407	"QUES","XP O1","B")
	1408	NO
	1409	"QUES","XP O1","M")
	1410	D XPO1^XPD IQ
	1411	"QUES","XP Z1",0)
	1412	Y
	1413	"QUES","XP Z1","??")
	1414	^D OPT^XPD H
	1415	"QUES","XP Z1","A")
	1416	Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls
	1417	"QUES","XP Z1","B")
	1418	NO
	1419	"QUES","XP Z1","M")
	1420	D XPZ1^XPD IQ
	1421	"QUES","XP Z2",0)
	1422	Y
	1423	"QUES","XP Z2","??")
	1424	^D RTN^XPD H
	1425	"QUES","XP Z2","A")
	1426	Want to MO VE routine s to other CPUs
	1427	"QUES","XP Z2","B")
	1428	NO
	1429	"QUES","XP Z2","M")
	1430	D XPZ2^XPD IQ
	1431	"RTN")
	1432	2
	1433	"RTN","XU8 P661")
	1434	0^^B83899
	1435	"RTN","XU8 P661",1,0)
	1436	XU8P661 ;O AK/RD - Po st install for patch XU8661
	1437	"RTN","XU8 P661",2,0)
	1438	;;8.0;KER NEL;*661 *;Jul 10, 1995;Build 15
	1439	"RTN","XU8 P661",3,0)
	1440	;setup %Z OSF("TEST" )
	1441	"RTN","XU8 P661",4,0)
	1442	D ONE^ZOS FONT("TEST ")
	1443	"RTN","XU8 P661",5,0)
	1444	;remove i ncorrect n ode that w as set in patch 365
	1445	"RTN","XU8 P661",6,0)
	1446	K ^%ZOSF( "GSEL;Sele ct Globals ")
	1447	"RTN","XU8 P661",7,0)
	1448	Q
	1449	"RTN","ZOS FONT")
	1450	0^1^B28658 128
	1451	"RTN","ZOS FONT",1,0)
	1452	ZOSFONT ;S FISC/AC - SETS UP ^% ZOSF for C ache for N T/VMS ;09/ 29/09 15: 35
	1453	"RTN","ZOS FONT",2,0)
	1454	;;8.0;KER NEL;34,1 04,365,661 ;JUL 10, 1995;Buil d 15
	1455	"RTN","ZOS FONT",3,0)
	1456	;Per VHA Directive 2004-038, this routi ne should not be mod ified.
	1457	"RTN","ZOS FONT",4,0)
	1458	;For Cach e versions 2011 and above
	1459	"RTN","ZOS FONT",5,0)
	1460	S %Y=1
	1461	"RTN","ZOS FONT",6,0)
	1462	INIT ;
	1463	"RTN","ZOS FONT",7,0)
	1464	N ZO F I= "MGR","PRO D","VOL" S :$D(^%ZOSF (I)) ZO(I) =^%ZOSF(I)
	1465	"RTN","ZOS FONT",8,0)
	1466	F I=1:2 S Z=$P($T(Z +I),";;",2 ) Q:Z="" S X=$P($T( Z+1+I),";; ",2,99) S ^%ZOSF(Z)= $S($D(ZO(Z )):ZO(Z),1 :X)
	1467	"RTN","ZOS FONT",9,0)
	1468	;
	1469	"RTN","ZOS FONT",10,0 )
	1470	G:'$G(%Y) OS
	1471	"RTN","ZOS FONT",11,0 )
	1472	MGR W !,"N AME OF MAN AGER'S NAM ESPACE: "_ ^%ZOSF("MG R")_"// " R X:$S($G( DTIME):DTI ME,1:9999) I X]"" X ^("UCICHEC K") G MGR: 0[Y S ^%ZO SF("MGR")= X
	1473	"RTN","ZOS FONT",12,0 )
	1474	PROD W !," PRODUCTION (SIGN-ON) NAMESPACE : "_^%ZOSF ("PROD")_" // " R X:$ S($G(DTIME ):DTIME,1: 9999) I X] "" X ^("UC ICHECK") G PROD:0[Y S ^%ZOSF(" PROD")=Y
	1475	"RTN","ZOS FONT",13,0 )
	1476	VOL W !,"N AME OF THI S CONFIGUR ATION: "_^ %ZOSF("VOL ")_"//" R X:$S($G(DT IME):DTIME ,1:9999) I X]"" S:X? 1.22U ^%ZO SF("VOL")= X I X'?1.2 2U W "MUST BE 1-22 u ppercase c haracters. " G VOL
	1477	"RTN","ZOS FONT",14,0 )
	1478	;
	1479	"RTN","ZOS FONT",15,0 )
	1480	OS S $P(^% ZOSF("OS") ,"^",1)="O penM-NT" S :'$P(^%ZOS F("OS"),"^ ",2) $P(^% ZOSF("OS") ,"^",2)=18
	1481	"RTN","ZOS FONT",16,0 )
	1482	W !!,"ALL SET UP",! !
	1483	"RTN","ZOS FONT",17,0 )
	1484	Q
	1485	"RTN","ZOS FONT",18,0 )
	1486	;
	1487	"RTN","ZOS FONT",19,0 )
	1488	NOASK ;Set up %ZOSF w ithout ter minal inte raction
	1489	"RTN","ZOS FONT",20,0 )
	1490	S %Y=0
	1491	"RTN","ZOS FONT",21,0 )
	1492	G INIT
	1493	"RTN","ZOS FONT",22,0 )
	1494	;
	1495	"RTN","ZOS FONT",23,0 )
	1496	ONE(X) ;up date a sin gle global node
	1497	"RTN","ZOS FONT",24,0 )
	1498	Q:X=""
	1499	"RTN","ZOS FONT",25,0 )
	1500	F I=1:2 S Z=$P($T(Z +I),";;",2 ) Q:Z="" I Z=X S Y= $P($T(Z+1+ I),";;",2, 99),^%ZOSF (X)=Y Q
	1501	"RTN","ZOS FONT",26,0 )
	1502	Q
	1503	"RTN","ZOS FONT",27,0 )
	1504	Z ;;
	1505	"RTN","ZOS FONT",28,0 )
	1506	;;ACTJ;;A ctive Jobs
	1507	"RTN","ZOS FONT",29,0 )
	1508	;;S Y=$$A CTJ^%ZOSV( )
	1509	"RTN","ZOS FONT",30,0 )
	1510	;;AVJ;;Av ailable Jo bs
	1511	"RTN","ZOS FONT",31,0 )
	1512	;;S Y=$$A VJ^%ZOSV()
	1513	"RTN","ZOS FONT",32,0 )
	1514	;;BRK;;En able Break
	1515	"RTN","ZOS FONT",33,0 )
	1516	;;U $I:(" ":"+B")
	1517	"RTN","ZOS FONT",34,0 )
	1518	;;DEL;;De lete Routi ne
	1519	"RTN","ZOS FONT",35,0 )
	1520	;;X "ZR ZS @X"
	1521	"RTN","ZOS FONT",36,0 )
	1522	;;EOFF;;E cho off
	1523	"RTN","ZOS FONT",37,0 )
	1524	;;U $I:(" ":"+S")
	1525	"RTN","ZOS FONT",38,0 )
	1526	;;EON;;Ec ho On
	1527	"RTN","ZOS FONT",39,0 )
	1528	;;U $I:(" ":"-S")
	1529	"RTN","ZOS FONT",40,0 )
	1530	;;EOT;;En d of Tape
	1531	"RTN","ZOS FONT",41,0 )
	1532	;;S Y=$ZA \1024#2
	1533	"RTN","ZOS FONT",42,0 )
	1534	;;ERRTN;; Error Rout ine
	1535	"RTN","ZOS FONT",43,0 )
	1536	;;^%ZTER
	1537	"RTN","ZOS FONT",44,0 )
	1538	;;ETRP;;o bsolete
	1539	"RTN","ZOS FONT",45,0 )
	1540	;;Q
	1541	"RTN","ZOS FONT",46,0 )
	1542	;;GD;;Glo bal Direct ory
	1543	"RTN","ZOS FONT",47,0 )
	1544	;;D ^%GD
	1545	"RTN","ZOS FONT",48,0 )
	1546	;;GSEL;;S elect Glob als
	1547	"RTN","ZOS FONT",49,0 )
	1548	;;K ^Cach eTempJ($J) ,^UTILITY( $J) D ^%SY S.GSET M ^ UTILITY($J )=^CacheTe mpJ($J) K ^CacheTemp J($J)
	1549	"RTN","ZOS FONT",50,0 )
	1550	;;JOBPARA M;;Local J ob
	1551	"RTN","ZOS FONT",51,0 )
	1552	;;D JOBPA R^%ZOSV
	1553	"RTN","ZOS FONT",52,0 )
	1554	;;LABOFF; ;Special L ab Echo of f
	1555	"RTN","ZOS FONT",53,0 )
	1556	;;U IO:(" ":"+S+I-T" :$C(13,27) )
	1557	"RTN","ZOS FONT",54,0 )
	1558	;;LOAD;;L oad Routin e
	1559	"RTN","ZOS FONT",55,0 )
	1560	;;N %,%N S %N=0 X " ZL @X F XC NP=XCNP+1: 1 S %N=%N+ 1,%=$T(+%N ) Q:$L(%)= 0 S @(DIF _XCNP_"",0 )"")=%"
	1561	"RTN","ZOS FONT",56,0 )
	1562	;;LPC;;Lo ngitudinal Parity Ch eck
	1563	"RTN","ZOS FONT",57,0 )
	1564	;;S Y=$ZC (X)
	1565	"RTN","ZOS FONT",58,0 )
	1566	;;MAXSIZ; ;Set Parti tion Size
	1567	"RTN","ZOS FONT",59,0 )
	1568	;;S $ZS=X +X
	1569	"RTN","ZOS FONT",60,0 )
	1570	;;MGR
	1571	"RTN","ZOS FONT",61,0 )
	1572	;;%SYS
	1573	"RTN","ZOS FONT",62,0 )
	1574	;;MAGTAPE ;;Sets mag tape funct ions into %MT
	1575	"RTN","ZOS FONT",63,0 )
	1576	;;S %MT(" BS")="-1" ,%MT("FS") ="-2",%MT ("WTM")="* -3",%MT("W B")="-4", %MT("REW") ="-5",%MT ("RB")="- 6",%MT("RE L")="-7", %MT("WHL") ="-8",%MT ("WEL")=" -9"
	1577	"RTN","ZOS FONT",64,0 )
	1578	;;MTBOT;; Begining o f Tape
	1579	"RTN","ZOS FONT",65,0 )
	1580	;;S Y=$ZA \32#2
	1581	"RTN","ZOS FONT",66,0 )
	1582	;;MTONLIN E;;Magtape Online
	1583	"RTN","ZOS FONT",67,0 )
	1584	;;S Y=$ZA \64#2
	1585	"RTN","ZOS FONT",68,0 )
	1586	;;MTWPROT ;;Magtape Write Prot ected
	1587	"RTN","ZOS FONT",69,0 )
	1588	;;S Y=$ZA \4#2
	1589	"RTN","ZOS FONT",70,0 )
	1590	;;MTERR;; Magtape Er ror
	1591	"RTN","ZOS FONT",71,0 )
	1592	;;S Y=$ZA \32768#2
	1593	"RTN","ZOS FONT",72,0 )
	1594	;;NBRK;;N o break
	1595	"RTN","ZOS FONT",73,0 )
	1596	;;U $I:(" ":"-B")
	1597	"RTN","ZOS FONT",74,0 )
	1598	;;NO-PASS ALL;;Set t erminal to normal te xt mode
	1599	"RTN","ZOS FONT",75,0 )
	1600	;;U $I:(" ":"-I+T")
	1601	"RTN","ZOS FONT",76,0 )
	1602	;;NO-TYPE -AHEAD;;Tu rn off Typ e Ahead
	1603	"RTN","ZOS FONT",77,0 )
	1604	;;U $I:(" ":"+F":$C( 13,27))
	1605	"RTN","ZOS FONT",78,0 )
	1606	;;PASSALL ;;Set term inal to pa ss all cod es
	1607	"RTN","ZOS FONT",79,0 )
	1608	;;U $I:(" ":"+I-T")
	1609	"RTN","ZOS FONT",80,0 )
	1610	;;PRIINQ; ;Priority in current queue
	1611	"RTN","ZOS FONT",81,0 )
	1612	;;N %PRIO D ^%PRIO S Y=$S('%P RIO:5,%PRI O>0:8,1:3)
	1613	"RTN","ZOS FONT",82,0 )
	1614	;;PRIORIT Y;;set pri ority to X (1=low, 1 0=high)
	1615	"RTN","ZOS FONT",83,0 )
	1616	;;D @($S( X>7:"NORMA L",X>3:"NO RMAL",1:"L OW")_"^%PR IO") ;Don' t do HIGH
	1617	"RTN","ZOS FONT",84,0 )
	1618	;;PROGMOD E;;Checks Programmer Mode
	1619	"RTN","ZOS FONT",85,0 )
	1620	;;S Y=$ZJ OB#2
	1621	"RTN","ZOS FONT",86,0 )
	1622	;;PROD
	1623	"RTN","ZOS FONT",87,0 )
	1624	;;VAH
	1625	"RTN","ZOS FONT",88,0 )
	1626	;;RD;;Rou tine Direc tory
	1627	"RTN","ZOS FONT",89,0 )
	1628	;;D ^%RD
	1629	"RTN","ZOS FONT",90,0 )
	1630	;;RESJOB; ;Kill job on local n ode
	1631	"RTN","ZOS FONT",91,0 )
	1632	;;N OLD S OLD=$ZNSP ACE ZNSPAC E "%SYS" D ^RESJOB Z NSPACE OLD Q
	1633	"RTN","ZOS FONT",92,0 )
	1634	;;RM;;Set Right Mar gin for te rminal
	1635	"RTN","ZOS FONT",93,0 )
	1636	;;I $G(IO T)["TRM" U $I:X
	1637	"RTN","ZOS FONT",94,0 )
	1638	;;RSEL;;R outine Sel ect
	1639	"RTN","ZOS FONT",95,0 )
	1640	;;K ^UTIL ITY($J) D KERNEL^%RS ET K %ST ; Special en try point for VA
	1641	"RTN","ZOS FONT",96,0 )
	1642	;;RSUM;;R eturns Che cksum of R outine
	1643	"RTN","ZOS FONT",97,0 )
	1644	;;N %,%1, %3 ZL @X S Y=0 F %=1 ,3:1 S %1= $T(+%),%3= $F(%1," ") Q:'%3 S %3=$S($E(% 1,%3)'=";" :$L(%1),$E (%1,%3+1)= ";":$L(%1) ,1:%3-2) F %2=1:1:%3 S Y=$A(%1 ,%2)*%2+Y
	1645	"RTN","ZOS FONT",98,0 )
	1646	;;RSUM1;; Returns ne w Checksum of Routin e
	1647	"RTN","ZOS FONT",99,0 )
	1648	;;N %,%1, %3 ZL @X S Y=0 F %=1 ,3:1 S %1= $T(+%),%3= $F(%1," ") Q:'%3 S %3=$S($E(% 1,%3)'=";" :$L(%1),$E (%1,%3+1)= ";":$L(%1) ,1:%3-2) F %2=1:1:%3 S Y=$A(%1 ,%2)*(%2+% )+Y
	1649	"RTN","ZOS FONT",100, 0)
	1650	;;SS;;Sys tem Status
	1651	"RTN","ZOS FONT",101, 0)
	1652	;;D ^%SS
	1653	"RTN","ZOS FONT",102, 0)
	1654	;;SAVE;;S ave Routin e
	1655	"RTN","ZOS FONT",103, 0)
	1656	;;N XCS S XCS="F XC M=1:1 S XC N=$O(@(DIE _XCN_"")"" )) Q:+XCN' =XCN S %= ^(XCN,0) Q :$E(%,1)=" "$"" I $E (%,1)'=""; "" ZI %" X "ZR X XC S ZS @X"
	1657	"RTN","ZOS FONT",104, 0)
	1658	;;SIZE;;R outine siz e in Bytes
	1659	"RTN","ZOS FONT",105, 0)
	1660	;;S Y=0 F I=1:1 S % =$T(+I) Q: %="" S Y= Y+$L(%)+2
	1661	"RTN","ZOS FONT",106, 0)
	1662	;;TEST;;R outine exi st
	1663	"RTN","ZOS FONT",107, 0)
	1664	;;I X]"", $D(^$ROUTI NE(X))
	1665	"RTN","ZOS FONT",108, 0)
	1666	;;TMK;;Ma gtape Mark
	1667	"RTN","ZOS FONT",109, 0)
	1668	;;S Y=$ZA \4#2
	1669	"RTN","ZOS FONT",110, 0)
	1670	;;TRAP;;S ets Error Trap;S X=" ^%ET",@^%Z OSF("TRAP" ); User $E TRAP
	1671	"RTN","ZOS FONT",111, 0)
	1672	;;$ZT=X
	1673	"RTN","ZOS FONT",112, 0)
	1674	;;TRMOFF; ;Terminato rs off
	1675	"RTN","ZOS FONT",113, 0)
	1676	;;U $I:(" ":"-I-T":$ C(13,27))
	1677	"RTN","ZOS FONT",114, 0)
	1678	;;TRMON;; Terminator s on
	1679	"RTN","ZOS FONT",115, 0)
	1680	;;U $I:(" ":"+I+T")
	1681	"RTN","ZOS FONT",116, 0)
	1682	;;TRMRD;; Read Termi nator
	1683	"RTN","ZOS FONT",117, 0)
	1684	;;S Y=$A( $ZB),Y=$S( Y<32:Y,Y=1 27:Y,1:0)
	1685	"RTN","ZOS FONT",118, 0)
	1686	;;TYPE-AH EAD;;Allow s Type-ahe ad
	1687	"RTN","ZOS FONT",119, 0)
	1688	;;U $I:(" ":"-F":$C( 13,27))
	1689	"RTN","ZOS FONT",120, 0)
	1690	;;UCI;;Cu rrent UCI
	1691	"RTN","ZOS FONT",121, 0)
	1692	;;D UCI^% ZOSV
	1693	"RTN","ZOS FONT",122, 0)
	1694	;;UCICHEC K;;UCI Val id
	1695	"RTN","ZOS FONT",123, 0)
	1696	;;S Y=$$U CICHECK^%Z OSV(X)
	1697	"RTN","ZOS FONT",124, 0)
	1698	;;UPPERCA SE;;Conver t Lower ca se to Uppe r case
	1699	"RTN","ZOS FONT",125, 0)
	1700	;;S Y=$TR (X,"abcdef ghijklmnop qrstuvwxyz ","ABCDEFG HIJKLMNOPQ RSTUVWXYZ" )
	1701	"RTN","ZOS FONT",126, 0)
	1702	;;XY;;Set $X & $Y
	1703	"RTN","ZOS FONT",127, 0)
	1704	;;S $X=DX ,$Y=DY
	1705	"RTN","ZOS FONT",128, 0)
	1706	;;VOL;;VO LUME SET N AME
	1707	"RTN","ZOS FONT",129, 0)
	1708	;;ROU
	1709	"RTN","ZOS FONT",130, 0)
	1710	;;ZD;;$H to externa l
	1711	"RTN","ZOS FONT",131, 0)
	1712	;;S Y=$ZD (X)
	1713	"UP",9.7,9 .704,-1)
	1714	9.7^RTN
	1715	"UP",9.7,9 .704,0)
	1716	9.704
	1717	"UP",9.8,9 .801,-1)
	1718	9.8^T
	1719	"UP",9.8,9 .801,0)
	1720	9.801
	1721	"VER")
	1722	8.0^22.2
	1723	"^DD",9.6, 9.6,900,0)
	1724	PRE-TRANSP ORTATION R OUTINE^FJ3 3X^^PRET;E 1,240^K:$L (X)>33!($L (X)<3)!'(X ?.1UP.15UN .1"^"1UP.1 5UN) X
	1725	"^DD",9.6, 9.6,900,3)
	1726	Enter a ro utine, [TA G^]ROUTINE , up to 33 character s.
	1727	"^DD",9.6, 9.6,900,21 ,0)
	1728	^.001^6^6^ 3160307^^^ ^
	1729	"^DD",9.6, 9.6,900,21 ,1,0)
	1730	The name o f the rout ine which is run bef ore the Tr ansport Gl obal
	1731	"^DD",9.6, 9.6,900,21 ,2,0)
	1732	is sent. Y ou can use this rout ine to add nodes to the Transp ort
	1733	"^DD",9.6, 9.6,900,21 ,3,0)
	1734	Global. T he variabl e XPDGREF will be de fined to a closed gl obal
	1735	"^DD",9.6, 9.6,900,21 ,4,0)
	1736	root that could be u sed to set the nodes .
	1737	"^DD",9.6, 9.6,900,21 ,5,0)
	1738	example: S @XPDGREF @("mydata" ,1,0)="nod e one of d ata"
	1739	"^DD",9.6, 9.6,900,21 ,6,0)
	1740
	1741	"^DD",9.6, 9.6,900,"D T")
	1742	3160307
	1743	"^DD",9.6, 9.6,913,0)
	1744	ENVIRONMEN T CHECK RO UTINE^FXJ1 6^^PRE;1^K :$L(X)<3!( X'?1U.15UN ) X
	1745	"^DD",9.6, 9.6,913,.1 )
	1746	DEVELOPERS ROUTINE R UN BEFORE 'INIT' QUE STIONS ASK ED
	1747	"^DD",9.6, 9.6,913,3)
	1748	Enter name of develo per's envi ronment ch eck routin e (3-16 ch aracters) that runs before any user ques tions are asked. Th is routine should be used for environmen t check on ly and sho uld not al ter data.
	1749	"^DD",9.6, 9.6,913,21 ,0)
	1750	^.001^8^8^ 3160307^^^ ^
	1751	"^DD",9.6, 9.6,913,21 ,1,0)
	1752	The name o f the deve loper's ro utine whic h is run a t the begi nning of
	1753	"^DD",9.6, 9.6,913,21 ,2,0)
	1754	the instal l process. This sho uld just c heck the e nvironment
	1755	"^DD",9.6, 9.6,913,21 ,3,0)
	1756	and should not alter any data, since the user has no way to exit out o f
	1757	"^DD",9.6, 9.6,913,21 ,4,0)
	1758	the instal l process until this program r uns to com pletion.
	1759	"^DD",9.6, 9.6,913,21 ,5,0)
	1760	This routi ne can int eract with the user. If the va riable XPD QUIT is se t,
	1761	"^DD",9.6, 9.6,913,21 ,6,0)
	1762	the instal l process will termi nate.
	1763	"^DD",9.6, 9.6,913,21 ,7,0)
	1764	Note: Thi s routine must be se lf-contain ed, since it will be the only
	1765	"^DD",9.6, 9.6,913,21 ,8,0)
	1766	routine in stalled fr om this pa ckage at t his time.
	1767	"^DD",9.6, 9.6,913,"D T")
	1768	3160307
	1769	"^DD",9.6, 9.6,913.1, 0)
	1770	DELETE ENV ROUTINE^S ^y:Yes;n:N o;^INID;1^ Q
	1771	"^DD",9.6, 9.6,913.1, 3)
	1772	Enter 'Yes ' if you w ant the En vironment Check Rout ine delete d at the e nd of the install.
	1773	"^DD",9.6, 9.6,913.1, 21,0)
	1774	^.001^3^3^ 3160307^^^
	1775	"^DD",9.6, 9.6,913.1, 21,1,0)
	1776	Setting th is field t o YES will instruct KIDS to de lete the E nvironment
	1777	"^DD",9.6, 9.6,913.1, 21,2,0)
	1778	Check Rout ine at the end of th e install.
	1779	"^DD",9.6, 9.6,913.1, 21,3,0)
	1780
	1781	"^DD",9.6, 9.6,913.1, "DT")
	1782	3160307
	1783	"^DD",9.6, 9.6,914,0)
	1784	POST-INSTA LL ROUTINE ^FXJ33^^IN IT;E1,240^ K:$L(X)>33 !(X'?.1UP. 15UN.1"^"1 UP.15UN) X
	1785	"^DD",9.6, 9.6,914,.1 )
	1786
	1787	"^DD",9.6, 9.6,914,3)
	1788	Enter the name of th e develope r's post-i nitializat ion [TAG^] ROUTINE, u p to 33 ch aracters.
	1789	"^DD",9.6, 9.6,914,21 ,0)
	1790	^.001^3^3^ 3160307^^^ ^
	1791	"^DD",9.6, 9.6,914,21 ,1,0)
	1792	The name o f the deve loper's ro utine whic h is run i mmediately after the
	1793	"^DD",9.6, 9.6,914,21 ,2,0)
	1794	installati on of the package. This routi ne cannot be interac tive with
	1795	"^DD",9.6, 9.6,914,21 ,3,0)
	1796	the user, it might b e queued t o run at a later tim e.
	1797	"^DD",9.6, 9.6,914,"D T")
	1798	3160307
	1799	"^DD",9.6, 9.6,916,0)
	1800	PRE-INSTAL L ROUTINE^ FXJ33^^INI ;E1,240^K: $L(X)>33!( X'?.1UP.15 UN.1"^".1U P.15UN) X
	1801	"^DD",9.6, 9.6,916,.1 )
	1802
	1803	"^DD",9.6, 9.6,916,3)
	1804	Enter name of develo per's pre- init [TAG^ ]ROUTINE, up to 33 c haracters.
	1805	"^DD",9.6, 9.6,916,21 ,0)
	1806	^^6^6^2940 518^^^^
	1807	"^DD",9.6, 9.6,916,21 ,1,0)
	1808	Name of th e develope r's routin e that run s after th e user has answered all
	1809	"^DD",9.6, 9.6,916,21 ,2,0)
	1810	of the que stions, bu t before a ny data or DD has be en install ed. All of
	1811	"^DD",9.6, 9.6,916,21 ,3,0)
	1812	the routin es for thi s package will alrea dy be inst alled. Use d for data
	1813	"^DD",9.6, 9.6,916,21 ,4,0)
	1814	conversion s, etc. th at the dev eloper nee ds to do b efore brin ging in ne w
	1815	"^DD",9.6, 9.6,916,21 ,5,0)
	1816	data. Thi s routine cannot be interactiv e with the user, it might
	1817	"^DD",9.6, 9.6,916,21 ,6,0)
	1818	be queued to run at a later ti me.
	1819	"^DD",9.6, 9.6,916,"D T")
	1820	3160307
	1821	"^DD",9.7, 9.7,40,0)
	1822	ROUTINES^9 .704A^^RTN ;0
	1823	"^DD",9.7, 9.7,40,21, 0)
	1824	^^3^3^2941 128^^
	1825	"^DD",9.7, 9.7,40,21, 1,0)
	1826	This multi ple contai ns a list of all Rou tines that were inst alled for
	1827	"^DD",9.7, 9.7,40,21, 2,0)
	1828	this packa ge. It al so include s routines that were generated during th e
	1829	"^DD",9.7, 9.7,40,21, 3,0)
	1830	install. The Routin es came fr om calls t o DIEZ, DI PZ, and DI KZ.
	1831	"^DD",9.7, 9.7,40,"DT ")
	1832	2941128
	1833	"^DD",9.7, 9.704,0)
	1834	ROUTINES S UB-FIELD^^ .01^1
	1835	"^DD",9.7, 9.704,0,"D T")
	1836	2950314
	1837	"^DD",9.7, 9.704,0,"I X","B",9.7 04,.01)
	1838
	1839	"^DD",9.7, 9.704,0,"N M","ROUTIN ES")
	1840
	1841	"^DD",9.7, 9.704,0,"U P")
	1842	9.7
	1843	"^DD",9.7, 9.704,.01, 0)
	1844	ROUTINES^M FX^^0;1^K: $L(X)>16!( $L(X)<3) X
	1845	"^DD",9.7, 9.704,.01, 1,0)
	1846	^.1
	1847	"^DD",9.7, 9.704,.01, 1,1,0)
	1848	9.704^B
	1849	"^DD",9.7, 9.704,.01, 1,1,1)
	1850	S ^XPD(9.7 ,DA(1),"RT N","B",$E( X,1,30),DA )=""
	1851	"^DD",9.7, 9.704,.01, 1,1,2)
	1852	K ^XPD(9.7 ,DA(1),"RT N","B",$E( X,1,30),DA )
	1853	"^DD",9.7, 9.704,.01, 3)
	1854	Answer mus t be 3-16 characters in length .
	1855	"^DD",9.7, 9.704,.01, 21,0)
	1856	^^1^1^2941 128^^
	1857	"^DD",9.7, 9.704,.01, 21,1,0)
	1858	This is th e name of a Routine that is pa rt of this Package.
	1859	"^DD",9.7, 9.704,.01, "DT")
	1860	3151214
	1861	"^DD",9.8, 9.8,.01,0)
	1862	NAME^RX^^0 ;1^D CHKNA ME^XQ5 K:$ L(X)>16!($ L(X)<1)!'( X?.UN!(X?1 "%".UN)) X
	1863	"^DD",9.8, 9.8,.01,1, 0)
	1864	^.1
	1865	"^DD",9.8, 9.8,.01,1, 1,0)
	1866	9.8^B
	1867	"^DD",9.8, 9.8,.01,1, 1,1)
	1868	S ^DIC(9.8 ,"B",X,DA) =""
	1869	"^DD",9.8, 9.8,.01,1, 1,2)
	1870	K ^DIC(9.8 ,"B",X,DA)
	1871	"^DD",9.8, 9.8,.01,3)
	1872	Please ent er the NAM E (1-16 ch aracters), e.g. DIC, XM, ...
	1873	"^DD",9.8, 9.8,.01,21 ,0)
	1874	^.001^1^1^ 3151201^^^ ^
	1875	"^DD",9.8, 9.8,.01,21 ,1,0)
	1876	The name o f the PACK AGE, ROUTI NE, or PRO GRAM being documente d.
	1877	"^DD",9.8, 9.8,.01,"D T")
	1878	2851003
	1879	"^DD",9.8, 9.8,5,0)
	1880	TAG^9.801^ ^T;0
	1881	"^DD",9.8, 9.8,5,21,0 )
	1882	^.001^2^2^ 3151214^^^
	1883	"^DD",9.8, 9.8,5,21,1 ,0)
	1884	Any import ant TAGs o r ENTRY PO INTs in th e program are docume nted
	1885	"^DD",9.8, 9.8,5,21,2 ,0)
	1886	here.
	1887	"^DD",9.8, 9.801,0)
	1888	TAG SUB-FI ELD^NL^3^4
	1889	"^DD",9.8, 9.801,0,"N M","TAG")
	1890
	1891	"^DD",9.8, 9.801,.01, 0)
	1892	TAG^MF^^0; 1^K:X["""" !($A(X)=45 ) X I $D(X ) K:$L(X)> 16!($L(X)< 1) X
	1893	"^DD",9.8, 9.801,.01, 1,0)
	1894	^.1
	1895	"^DD",9.8, 9.801,.01, 1,1,0)
	1896	9.801^B
	1897	"^DD",9.8, 9.801,.01, 1,1,1)
	1898	S ^DIC(9.8 ,DA(1),"T" ,"B",$E(X, 1,30),DA)= ""
	1899	"^DD",9.8, 9.801,.01, 1,1,2)
	1900	K ^DIC(9.8 ,DA(1),"T" ,"B",$E(X, 1,30),DA)
	1901	"^DD",9.8, 9.801,.01, 3)
	1902	Please ent er the nam e of a lin e in the p rogram (1- 16 charact ers).
	1903	"^DD",9.8, 9.801,.01, 21,0)
	1904	^.001^2^2^ 3151214^^^ ^
	1905	"^DD",9.8, 9.801,.01, 21,1,0)
	1906	The name o f an impor tant Line Label ("TA G") or Ent ry Point i n
	1907	"^DD",9.8, 9.801,.01, 21,2,0)
	1908	this routi ne.
	1909	"^DD",9.8, 9.801,.01, "DT")
	1910	3151214
	1911	"^DD",14.4 ,14.4,.01, 0)
	1912	Entry Poin t^RF^^0;1^ K:$L(X)>16 !($L(X)<1) !'((X?1A.1 5AN)) X
	1913	"^DD",14.4 ,14.4,.01, 1,0)
	1914	^.1^^0
	1915	"^DD",14.4 ,14.4,.01, 3)
	1916	Answer mus t be 1-16 characters in length .
	1917	"^DD",14.4 ,14.4,.01, 9)
	1918	^
	1919	"^DD",14.4 ,14.4,.01, 21,0)
	1920	^.001^1^1^ 3151214^^
	1921	"^DD",14.4 ,14.4,.01, 21,1,0)
	1922	This is th e entry po int in the routine t o use.
	1923	"^DD",14.4 ,14.4,.01, "DT")
	1924	3151214
	1925	"^DD",14.4 ,14.4,2,0)
	1926	Routine Na me^RF^^0;2 ^K:$L(X)>2 8!($L(X)<1 )!'((X?1A. 15AN.1"(". E)!(X?1"%" .15AN.1"(" .E)) X
	1927	"^DD",14.4 ,14.4,2,3)
	1928	Answer mus t be 1-28 characters in length .
	1929	"^DD",14.4 ,14.4,2,9)
	1930	^
	1931	"^DD",14.4 ,14.4,2,21 ,0)
	1932	^^2^2^2940 630^
	1933	"^DD",14.4 ,14.4,2,21 ,1,0)
	1934	This is th e ROUTINE that shoul d be run w hen the sc heduled ti me
	1935	"^DD",14.4 ,14.4,2,21 ,2,0)
	1936	comes.
	1937	"^DD",14.4 ,14.4,2,"D T")
	1938	3151214
	1939	"^DD",19,1 9,25,0)
	1940	ROUTINE^FX J53^^25;E1 ,245^K:$L( X)>53!(X'? .1ANP.15AN .1"^"1ANP. 15AN.1"[". 1"(".E) X I $D(X),X[ "[",'$D(^X USEC("XUMG R",DUZ)) K X
	1941	"^DD",19,1 9,25,3)
	1942	Answer mus t be [TAG^ ]ROUTINE[( parameters )] to run, 1-53 char acters.
	1943	"^DD",19,1 9,25,21,0)
	1944	^.001^2^2^ 3160330^^^ ^
	1945	"^DD",19,1 9,25,21,1, 0)
	1946	Indicate t he name of the tag, routine, a nd paramet ers. e.g. ROUTINE, o r TAG^ROUT INE(parame ters).
	1947	"^DD",19,1 9,25,21,2, 0)
	1948
	1949	"^DD",19,1 9,25,"DT")
	1950	3160330
	1951	"^DD",8991 .5,8991.5, .02,0)
	1952	ROUTINE^FX ^^0;2^K:X[ """"!($A(X )=45) X I $D(X) K:$L (X)>16!($L (X)<2) X
	1953	"^DD",8991 .5,8991.5, .02,1,0)
	1954	^.1
	1955	"^DD",8991 .5,8991.5, .02,1,1,0)
	1956	8991.5^ROU
	1957	"^DD",8991 .5,8991.5, .02,1,1,1)
	1958	S ^XTV(899 1.5,"ROU", $E(X,1,30) ,DA)=""
	1959	"^DD",8991 .5,8991.5, .02,1,1,2)
	1960	K ^XTV(899 1.5,"ROU", $E(X,1,30) ,DA)
	1961	"^DD",8991 .5,8991.5, .02,1,1,"% D",0)
	1962	^^2^2^3160 307^
	1963	"^DD",8991 .5,8991.5, .02,1,1,"% D",1,0)
	1964	This cross reference allows lo okup by ro utine name .
	1965	"^DD",8991 .5,8991.5, .02,1,1,"% D",2,0)
	1966
	1967	"^DD",8991 .5,8991.5, .02,1,1,"D T")
	1968	2910926
	1969	"^DD",8991 .5,8991.5, .02,3)
	1970	Answer mus t be 2-16 characters in length .
	1971	"^DD",8991 .5,8991.5, .02,21,0)
	1972	^^1^1^3151 214^
	1973	"^DD",8991 .5,8991.5, .02,21,1,0 )
	1974	This is th e Routine were the e rror occur red.
	1975	"^DD",8991 .5,8991.5, .02,"DT")
	1976	3151214
	1977	"^DD",8992 .1,8992.1, 1.03,0)
	1978	ROUTINE TA G^FIX^^1;3 ^K:$L(X)>1 6!($L(X)<1 ) X
	1979	"^DD",8992 .1,8992.1, 1.03,3)
	1980	Enter the tag for th e Routine, 1 to 16 c haracters.
	1981	"^DD",8992 .1,8992.1, 1.03,21,0)
	1982	^^2^2^3151 214^
	1983	"^DD",8992 .1,8992.1, 1.03,21,1, 0)
	1984	This is th e tag indi cated for the routin e specifie d for use
	1985	"^DD",8992 .1,8992.1, 1.03,21,2, 0)
	1986	when the a lert is se lected.
	1987	"^DD",8992 .1,8992.1, 1.03,"DT")
	1988	3151214
	1989	"^DD",8994 ,8994,.02, 0)
	1990	TAG^FJ16^^ 0;2^K:$L(X )>16!($L(X )<1) X
	1991	"^DD",8994 ,8994,.02, 3)
	1992	Enter the TAG to be used as th e entry po int for th e routine, 1-16 char acters. L eave empty if a TAG is not req uired.
	1993	"^DD",8994 ,8994,.02, 21,0)
	1994	^^2^2^3151 214^
	1995	"^DD",8994 ,8994,.02, 21,1,0)
	1996	This is th e TAG to b e used as the entry point for the ROUTIN E. Leave t his
	1997	"^DD",8994 ,8994,.02, 21,2,0)
	1998	field empt y if a TAG is not re quired.
	1999	"^DD",8994 ,8994,.02, "DT")
	2000	3160308
	2001	"^DD",8994 ,8994,.03, 0)
	2002	ROUTINE^RF XJ16^^0;3^ K:$L(X)>16 !($L(X)<3) !'(X?1U1.1 5UN) X
	2003	"^DD",8994 ,8994,.03, 3)
	2004	Enter the name of th e Routine, 3 to 16 u ppercase c haracters.
	2005	"^DD",8994 ,8994,.03, 21,0)
	2006	^.001^1^1^ 3151214^^
	2007	"^DD",8994 ,8994,.03, 21,1,0)
	2008	This is th e name of the routin e used by this API.
	2009	"^DD",8994 ,8994,.03, "DT")
	2010	3160330
	2011	INSTALL NAME
	2012	XT7.3140
	2013	"BLD",1551 ,0)
	2014	XT7.3140 ^TOOLKIT^0 ^3170523^y
	2015	"BLD",1551 ,1,0)
	2016	^^101^101^ 3160517^
	2017	"BLD",1551 ,1,1,0)
	2018	Descriptio n:
	2019	"BLD",1551 ,1,2,0)
	2020	========== =
	2021	"BLD",1551 ,1,3,0)
	2022	This patch will upda te the XIN DEX utilit y to suppo rt the new changes t o
	2023	"BLD",1551 ,1,4,0)
	2024	the Standa rds and Co nventions (SAC). Th e followin g changes have been
	2025	"BLD",1551 ,1,5,0)
	2026	approved b y SAC Comm ittee:
	2027	"BLD",1551 ,1,6,0)
	2028	1. Rout ine name a nd labels can be 16 uppercase characters
	2029	"BLD",1551 ,1,7,0)
	2030	2. Loca l variable names can be 16 cha racters. Namespaced
	2031	"BLD",1551 ,1,8,0)
	2032	vari ables must be all up percase.
	2033	"BLD",1551 ,1,9,0)
	2034
	2035	"BLD",1551 ,1,10,0)
	2036	These chan ges are co ntains in the two ro utines: XI NDX2 and X INDX3
	2037	"BLD",1551 ,1,11,0)
	2038
	2039	"BLD",1551 ,1,12,0)
	2040
	2041	"BLD",1551 ,1,13,0)
	2042	Blood Bank Clearance
	2043	"BLD",1551 ,1,14,0)
	2044	========== ==========
	2045	"BLD",1551 ,1,15,0)
	2046	EFFECT ON BLOOD BANK FUNCTIONA L REQUIREM ENTS: Patc h XT7.31 40 contain s
	2047	"BLD",1551 ,1,16,0)
	2048	changes to a package reference d in ProPa th standar d titled: BBM Team
	2049	"BLD",1551 ,1,17,0)
	2050	Review of VistA Patc hes. This patch does not alter or modify any VistA
	2051	"BLD",1551 ,1,18,0)
	2052	Blood Bank software design saf eguards or safety cr itical ele ments
	2053	"BLD",1551 ,1,19,0)
	2054	functions.
	2055	"BLD",1551 ,1,20,0)
	2056
	2057	"BLD",1551 ,1,21,0)
	2058	RISK ANALY SIS: Chang es made by patch XT* 7.3*140 ha ve no effe ct on Bloo d
	2059	"BLD",1551 ,1,22,0)
	2060	Bank softw are functi onality, t herefore R ISK is non e.
	2061	"BLD",1551 ,1,23,0)
	2062
	2063	"BLD",1551 ,1,24,0)
	2064
	2065	"BLD",1551 ,1,25,0)
	2066	Patch Comp onents
	2067	"BLD",1551 ,1,26,0)
	2068	========== ======
	2069	"BLD",1551 ,1,27,0)
	2070	Files & Fi elds Assoc iateed:
	2071	"BLD",1551 ,1,28,0)
	2072	N/A
	2073	"BLD",1551 ,1,29,0)
	2074
	2075	"BLD",1551 ,1,30,0)
	2076	Forms Asso ciated:
	2077	"BLD",1551 ,1,31,0)
	2078	N/A
	2079	"BLD",1551 ,1,32,0)
	2080
	2081	"BLD",1551 ,1,33,0)
	2082	Forms Asso ciated:
	2083	"BLD",1551 ,1,34,0)
	2084	N/A
	2085	"BLD",1551 ,1,35,0)
	2086
	2087	"BLD",1551 ,1,36,0)
	2088	Mail Group s Associat ed:
	2089	"BLD",1551 ,1,37,0)
	2090	N/A
	2091	"BLD",1551 ,1,38,0)
	2092
	2093	"BLD",1551 ,1,39,0)
	2094	Options As sociated:
	2095	"BLD",1551 ,1,40,0)
	2096	N/A
	2097	"BLD",1551 ,1,41,0)
	2098
	2099	"BLD",1551 ,1,42,0)
	2100	Protocols Associated :
	2101	"BLD",1551 ,1,43,0)
	2102	N/A
	2103	"BLD",1551 ,1,44,0)
	2104
	2105	"BLD",1551 ,1,45,0)
	2106	Security K eys Associ ated:
	2107	"BLD",1551 ,1,46,0)
	2108	N/A
	2109	"BLD",1551 ,1,47,0)
	2110
	2111	"BLD",1551 ,1,48,0)
	2112	Templates Associated :
	2113	"BLD",1551 ,1,49,0)
	2114	N/A
	2115	"BLD",1551 ,1,50,0)
	2116
	2117	"BLD",1551 ,1,51,0)
	2118	New Servic e Requests (NSRs):
	2119	"BLD",1551 ,1,52,0)
	2120	N/A
	2121	"BLD",1551 ,1,53,0)
	2122
	2123	"BLD",1551 ,1,54,0)
	2124	Patient Sa fety Issue s (PSIs):
	2125	"BLD",1551 ,1,55,0)
	2126	N/A
	2127	"BLD",1551 ,1,56,0)
	2128
	2129	"BLD",1551 ,1,57,0)
	2130	Remedy Tic ket & Over view:
	2131	"BLD",1551 ,1,58,0)
	2132	N/A
	2133	"BLD",1551 ,1,59,0)
	2134
	2135	"BLD",1551 ,1,60,0)
	2136	Problem:
	2137	"BLD",1551 ,1,61,0)
	2138	XINDEX uti lity needs to suppor t routine name and l abels to 1 6 characte rs
	2139	"BLD",1551 ,1,62,0)
	2140	and local variables names to 16 charact ers
	2141	"BLD",1551 ,1,63,0)
	2142
	2143	"BLD",1551 ,1,64,0)
	2144	Resolution :
	2145	"BLD",1551 ,1,65,0)
	2146	Change XI NDX2 and X INDX3
	2147	"BLD",1551 ,1,66,0)
	2148
	2149	"BLD",1551 ,1,67,0)
	2150
	2151	"BLD",1551 ,1,68,0)
	2152	Thanks to Test Sites
	2153	"BLD",1551 ,1,69,0)
	2154	========== ==========
	2155	"BLD",1551 ,1,70,0)
	2156	TBD
	2157	"BLD",1551 ,1,71,0)
	2158
	2159	"BLD",1551 ,1,72,0)
	2160
	2161	"BLD",1551 ,1,73,0)
	2162	Documentat ion Retriv iel Instru ctions:
	2163	"BLD",1551 ,1,74,0)
	2164	========== ========== ========== =======
	2165	"BLD",1551 ,1,75,0)
	2166	No changes have been made to K ernel docu mentation as a resul t of this
	2167	"BLD",1551 ,1,76,0)
	2168	patch. Ho wever, the most up-t o-date VA Kernel doc umentation is
	2169	"BLD",1551 ,1,77,0)
	2170	available on the VHA Software Documentat ion Librar y (VDL) at the
	2171	"BLD",1551 ,1,78,0)
	2172	following:
	2173	"BLD",1551 ,1,79,0)
	2174	http://www . DNS /vdl/appli cation.asp ?appid=10
	2175	"BLD",1551 ,1,80,0)
	2176
	2177	"BLD",1551 ,1,81,0)
	2178	Patch Inst allation:
	2179	"BLD",1551 ,1,82,0)
	2180	This patc h is part of the TOO LKIT XINDE X 7.3 bund le. Pleas e see
	2181	"BLD",1551 ,1,83,0)
	2182	the insta llation in struction in the TOO LKIT XINDE X 7.3 patc h.
	2183	"BLD",1551 ,1,84,0)
	2184
	2185	"BLD",1551 ,1,85,0)
	2186
	2187	"BLD",1551 ,1,86,0)
	2188	Routine I nformation :
	2189	"BLD",1551 ,1,87,0)
	2190	========== ==========
	2191	"BLD",1551 ,1,88,0)
	2192
	2193	"BLD",1551 ,1,89,0)
	2194	The second line of e ach of the se routine s now look s like:
	2195	"BLD",1551 ,1,90,0)
	2196	;;7.3;TOOL KIT;[Pat ch List] ;Apr 25, 1 995;Build 10
	2197	"BLD",1551 ,1,91,0)
	2198
	2199	"BLD",1551 ,1,92,0)
	2200	The checks ums below are new ch ecksums, a nd
	2201	"BLD",1551 ,1,93,0)
	2202	can be ch ecked with CHECK1^XT SUMBLD.
	2203	"BLD",1551 ,1,94,0)
	2204
	2205	"BLD",1551 ,1,95,0)
	2206	Routine Na me: XINDX2
	2207	"BLD",1551 ,1,96,0)
	2208	Before : B2804246 2 After: B28068226 20,27, 48,110,121 ,133,140
	2209	"BLD",1551 ,1,97,0)
	2210	Routine Na me: XINDX3
	2211	"BLD",1551 ,1,98,0)
	2212	Before : B1508241 0 After: B15211078 **20,27, 61,68,110, 121,128,13 2,
	2213	"BLD",1551 ,1,99,0)
	2214	133,140 **
	2215	"BLD",1551 ,1,100,0)
	2216
	2217	"BLD",1551 ,1,101,0)
	2218	Routine li st of prec eding patc hes: 133
	2219	"BLD",1551 ,4,0)
	2220	^9.64PA^^
	2221	"BLD",1551 ,6.3)
	2222	23
	2223	"BLD",1551 ,"KRN",0)
	2224	^9.67PA^90 02226^22
	2225	"BLD",1551 ,"KRN",.4, 0)
	2226	.4
	2227	"BLD",1551 ,"KRN",.40 1,0)
	2228	.401
	2229	"BLD",1551 ,"KRN",.40 2,0)
	2230	.402
	2231	"BLD",1551 ,"KRN",.40 3,0)
	2232	.403
	2233	"BLD",1551 ,"KRN",.5, 0)
	2234	.5
	2235	"BLD",1551 ,"KRN",.84 ,0)
	2236	.84
	2237	"BLD",1551 ,"KRN",3.6 ,0)
	2238	3.6
	2239	"BLD",1551 ,"KRN",3.8 ,0)
	2240	3.8
	2241	"BLD",1551 ,"KRN",9.2 ,0)
	2242	9.2
	2243	"BLD",1551 ,"KRN",9.8 ,0)
	2244	9.8
	2245	"BLD",1551 ,"KRN",9.8 ,"NM",0)
	2246	^9.68A^2^2
	2247	"BLD",1551 ,"KRN",9.8 ,"NM",1,0)
	2248	XINDX2^^0^ B28068226
	2249	"BLD",1551 ,"KRN",9.8 ,"NM",2,0)
	2250	XINDX3^^0^ B15211078
	2251	"BLD",1551 ,"KRN",9.8 ,"NM","B", "XINDX2",1 )
	2252
	2253	"BLD",1551 ,"KRN",9.8 ,"NM","B", "XINDX3",2 )
	2254
	2255	"BLD",1551 ,"KRN",19, 0)
	2256	19
	2257	"BLD",1551 ,"KRN",19. 1,0)
	2258	19.1
	2259	"BLD",1551 ,"KRN",101 ,0)
	2260	101
	2261	"BLD",1551 ,"KRN",409 .61,0)
	2262	409.61
	2263	"BLD",1551 ,"KRN",771 ,0)
	2264	771
	2265	"BLD",1551 ,"KRN",779 .2,0)
	2266	779.2
	2267	"BLD",1551 ,"KRN",870 ,0)
	2268	870
	2269	"BLD",1551 ,"KRN",898 9.51,0)
	2270	8989.51
	2271	"BLD",1551 ,"KRN",898 9.52,0)
	2272	8989.52
	2273	"BLD",1551 ,"KRN",899 3,0)
	2274	8993
	2275	"BLD",1551 ,"KRN",899 4,0)
	2276	8994
	2277	"BLD",1551 ,"KRN",900 2226,0)
	2278	9002226
	2279	"BLD",1551 ,"KRN","B" ,.4,.4)
	2280
	2281	"BLD",1551 ,"KRN","B" ,.401,.401 )
	2282
	2283	"BLD",1551 ,"KRN","B" ,.402,.402 )
	2284
	2285	"BLD",1551 ,"KRN","B" ,.403,.403 )
	2286
	2287	"BLD",1551 ,"KRN","B" ,.5,.5)
	2288
	2289	"BLD",1551 ,"KRN","B" ,.84,.84)
	2290
	2291	"BLD",1551 ,"KRN","B" ,3.6,3.6)
	2292
	2293	"BLD",1551 ,"KRN","B" ,3.8,3.8)
	2294
	2295	"BLD",1551 ,"KRN","B" ,9.2,9.2)
	2296
	2297	"BLD",1551 ,"KRN","B" ,9.8,9.8)
	2298
	2299	"BLD",1551 ,"KRN","B" ,19,19)
	2300
	2301	"BLD",1551 ,"KRN","B" ,19.1,19.1 )
	2302
	2303	"BLD",1551 ,"KRN","B" ,101,101)
	2304
	2305	"BLD",1551 ,"KRN","B" ,409.61,40 9.61)
	2306
	2307	"BLD",1551 ,"KRN","B" ,771,771)
	2308
	2309	"BLD",1551 ,"KRN","B" ,779.2,779 .2)
	2310
	2311	"BLD",1551 ,"KRN","B" ,870,870)
	2312
	2313	"BLD",1551 ,"KRN","B" ,8989.51,8 989.51)
	2314
	2315	"BLD",1551 ,"KRN","B" ,8989.52,8 989.52)
	2316
	2317	"BLD",1551 ,"KRN","B" ,8993,8993 )
	2318
	2319	"BLD",1551 ,"KRN","B" ,8994,8994 )
	2320
	2321	"BLD",1551 ,"KRN","B" ,9002226,9 002226)
	2322
	2323	"BLD",1551 ,"QDEF")
	2324	^^^^NO^^^^ NO^^NO
	2325	"BLD",1551 ,"QUES",0)
	2326	^9.62^^
	2327	"MBREQ")
	2328	1
	2329	"PKG",6,-1 )
	2330	1^1
	2331	"PKG",6,0)
	2332	TOOLKIT^XT ^PROGRAMME RS OPTIONS , MULTI. T ERM LOOKUP ^
	2333	"PKG",6,22 ,0)
	2334	^9.49I^1^1
	2335	"PKG",6,22 ,1,0)
	2336	7.3^315110 2^2970513^ 2
	2337	"PKG",6,22 ,1,"PAH",1 ,0)
	2338	140^317052 3
	2339	"PKG",6,22 ,1,"PAH",1 ,1,0)
	2340	^^101^101^ 3170523
	2341	"PKG",6,22 ,1,"PAH",1 ,1,1,0)
	2342	Descriptio n:
	2343	"PKG",6,22 ,1,"PAH",1 ,1,2,0)
	2344	========== =
	2345	"PKG",6,22 ,1,"PAH",1 ,1,3,0)
	2346	This patch will upda te the XIN DEX utilit y to suppo rt the new changes t o
	2347	"PKG",6,22 ,1,"PAH",1 ,1,4,0)
	2348	the Standa rds and Co nventions (SAC). Th e followin g changes have been
	2349	"PKG",6,22 ,1,"PAH",1 ,1,5,0)
	2350	approved b y SAC Comm ittee:
	2351	"PKG",6,22 ,1,"PAH",1 ,1,6,0)
	2352	1. Rout ine name a nd labels can be 16 uppercase characters
	2353	"PKG",6,22 ,1,"PAH",1 ,1,7,0)
	2354	2. Loca l variable names can be 16 cha racters. Namespaced
	2355	"PKG",6,22 ,1,"PAH",1 ,1,8,0)
	2356	vari ables must be all up percase.
	2357	"PKG",6,22 ,1,"PAH",1 ,1,9,0)
	2358
	2359	"PKG",6,22 ,1,"PAH",1 ,1,10,0)
	2360	These chan ges are co ntains in the two ro utines: XI NDX2 and X INDX3
	2361	"PKG",6,22 ,1,"PAH",1 ,1,11,0)
	2362
	2363	"PKG",6,22 ,1,"PAH",1 ,1,12,0)
	2364
	2365	"PKG",6,22 ,1,"PAH",1 ,1,13,0)
	2366	Blood Bank Clearance
	2367	"PKG",6,22 ,1,"PAH",1 ,1,14,0)
	2368	========== ==========
	2369	"PKG",6,22 ,1,"PAH",1 ,1,15,0)
	2370	EFFECT ON BLOOD BANK FUNCTIONA L REQUIREM ENTS: Patc h XT7.31 40 contain s
	2371	"PKG",6,22 ,1,"PAH",1 ,1,16,0)
	2372	changes to a package reference d in ProPa th standar d titled: BBM Team
	2373	"PKG",6,22 ,1,"PAH",1 ,1,17,0)
	2374	Review of VistA Patc hes. This patch does not alter or modify any VistA
	2375	"PKG",6,22 ,1,"PAH",1 ,1,18,0)
	2376	Blood Bank software design saf eguards or safety cr itical ele ments
	2377	"PKG",6,22 ,1,"PAH",1 ,1,19,0)
	2378	functions.
	2379	"PKG",6,22 ,1,"PAH",1 ,1,20,0)
	2380
	2381	"PKG",6,22 ,1,"PAH",1 ,1,21,0)
	2382	RISK ANALY SIS: Chang es made by patch XT* 7.3*140 ha ve no effe ct on Bloo d
	2383	"PKG",6,22 ,1,"PAH",1 ,1,22,0)
	2384	Bank softw are functi onality, t herefore R ISK is non e.
	2385	"PKG",6,22 ,1,"PAH",1 ,1,23,0)
	2386
	2387	"PKG",6,22 ,1,"PAH",1 ,1,24,0)
	2388
	2389	"PKG",6,22 ,1,"PAH",1 ,1,25,0)
	2390	Patch Comp onents
	2391	"PKG",6,22 ,1,"PAH",1 ,1,26,0)
	2392	========== ======
	2393	"PKG",6,22 ,1,"PAH",1 ,1,27,0)
	2394	Files & Fi elds Assoc iateed:
	2395	"PKG",6,22 ,1,"PAH",1 ,1,28,0)
	2396	N/A
	2397	"PKG",6,22 ,1,"PAH",1 ,1,29,0)
	2398
	2399	"PKG",6,22 ,1,"PAH",1 ,1,30,0)
	2400	Forms Asso ciated:
	2401	"PKG",6,22 ,1,"PAH",1 ,1,31,0)
	2402	N/A
	2403	"PKG",6,22 ,1,"PAH",1 ,1,32,0)
	2404
	2405	"PKG",6,22 ,1,"PAH",1 ,1,33,0)
	2406	Forms Asso ciated:
	2407	"PKG",6,22 ,1,"PAH",1 ,1,34,0)
	2408	N/A
	2409	"PKG",6,22 ,1,"PAH",1 ,1,35,0)
	2410
	2411	"PKG",6,22 ,1,"PAH",1 ,1,36,0)
	2412	Mail Group s Associat ed:
	2413	"PKG",6,22 ,1,"PAH",1 ,1,37,0)
	2414	N/A
	2415	"PKG",6,22 ,1,"PAH",1 ,1,38,0)
	2416
	2417	"PKG",6,22 ,1,"PAH",1 ,1,39,0)
	2418	Options As sociated:
	2419	"PKG",6,22 ,1,"PAH",1 ,1,40,0)
	2420	N/A
	2421	"PKG",6,22 ,1,"PAH",1 ,1,41,0)
	2422
	2423	"PKG",6,22 ,1,"PAH",1 ,1,42,0)
	2424	Protocols Associated :
	2425	"PKG",6,22 ,1,"PAH",1 ,1,43,0)
	2426	N/A
	2427	"PKG",6,22 ,1,"PAH",1 ,1,44,0)
	2428
	2429	"PKG",6,22 ,1,"PAH",1 ,1,45,0)
	2430	Security K eys Associ ated:
	2431	"PKG",6,22 ,1,"PAH",1 ,1,46,0)
	2432	N/A
	2433	"PKG",6,22 ,1,"PAH",1 ,1,47,0)
	2434
	2435	"PKG",6,22 ,1,"PAH",1 ,1,48,0)
	2436	Templates Associated :
	2437	"PKG",6,22 ,1,"PAH",1 ,1,49,0)
	2438	N/A
	2439	"PKG",6,22 ,1,"PAH",1 ,1,50,0)
	2440
	2441	"PKG",6,22 ,1,"PAH",1 ,1,51,0)
	2442	New Servic e Requests (NSRs):
	2443	"PKG",6,22 ,1,"PAH",1 ,1,52,0)
	2444	N/A
	2445	"PKG",6,22 ,1,"PAH",1 ,1,53,0)
	2446
	2447	"PKG",6,22 ,1,"PAH",1 ,1,54,0)
	2448	Patient Sa fety Issue s (PSIs):
	2449	"PKG",6,22 ,1,"PAH",1 ,1,55,0)
	2450	N/A
	2451	"PKG",6,22 ,1,"PAH",1 ,1,56,0)
	2452
	2453	"PKG",6,22 ,1,"PAH",1 ,1,57,0)
	2454	Remedy Tic ket & Over view:
	2455	"PKG",6,22 ,1,"PAH",1 ,1,58,0)
	2456	N/A
	2457	"PKG",6,22 ,1,"PAH",1 ,1,59,0)
	2458
	2459	"PKG",6,22 ,1,"PAH",1 ,1,60,0)
	2460	Problem:
	2461	"PKG",6,22 ,1,"PAH",1 ,1,61,0)
	2462	XINDEX uti lity needs to suppor t routine name and l abels to 1 6 characte rs
	2463	"PKG",6,22 ,1,"PAH",1 ,1,62,0)
	2464	and local variables names to 16 charact ers
	2465	"PKG",6,22 ,1,"PAH",1 ,1,63,0)
	2466
	2467	"PKG",6,22 ,1,"PAH",1 ,1,64,0)
	2468	Resolution :
	2469	"PKG",6,22 ,1,"PAH",1 ,1,65,0)
	2470	Change XI NDX2 and X INDX3
	2471	"PKG",6,22 ,1,"PAH",1 ,1,66,0)
	2472
	2473	"PKG",6,22 ,1,"PAH",1 ,1,67,0)
	2474
	2475	"PKG",6,22 ,1,"PAH",1 ,1,68,0)
	2476	Thanks to Test Sites
	2477	"PKG",6,22 ,1,"PAH",1 ,1,69,0)
	2478	========== ==========
	2479	"PKG",6,22 ,1,"PAH",1 ,1,70,0)
	2480	TBD
	2481	"PKG",6,22 ,1,"PAH",1 ,1,71,0)
	2482
	2483	"PKG",6,22 ,1,"PAH",1 ,1,72,0)
	2484
	2485	"PKG",6,22 ,1,"PAH",1 ,1,73,0)
	2486	Documentat ion Retriv iel Instru ctions:
	2487	"PKG",6,22 ,1,"PAH",1 ,1,74,0)
	2488	========== ========== ========== =======
	2489	"PKG",6,22 ,1,"PAH",1 ,1,75,0)
	2490	No changes have been made to K ernel docu mentation as a resul t of this
	2491	"PKG",6,22 ,1,"PAH",1 ,1,76,0)
	2492	patch. Ho wever, the most up-t o-date VA Kernel doc umentation is
	2493	"PKG",6,22 ,1,"PAH",1 ,1,77,0)
	2494	available on the VHA Software Documentat ion Librar y (VDL) at the
	2495	"PKG",6,22 ,1,"PAH",1 ,1,78,0)
	2496	following:
	2497	"PKG",6,22 ,1,"PAH",1 ,1,79,0)
	2498	http://www . DNS /vdl/appli cation.asp ?appid=10
	2499	"PKG",6,22 ,1,"PAH",1 ,1,80,0)
	2500
	2501	"PKG",6,22 ,1,"PAH",1 ,1,81,0)
	2502	Patch Inst allation:
	2503	"PKG",6,22 ,1,"PAH",1 ,1,82,0)
	2504	This patc h is part of the TOO LKIT XINDE X 7.3 bund le. Pleas e see
	2505	"PKG",6,22 ,1,"PAH",1 ,1,83,0)
	2506	the insta llation in struction in the TOO LKIT XINDE X 7.3 patc h.
	2507	"PKG",6,22 ,1,"PAH",1 ,1,84,0)
	2508
	2509	"PKG",6,22 ,1,"PAH",1 ,1,85,0)
	2510
	2511	"PKG",6,22 ,1,"PAH",1 ,1,86,0)
	2512	Routine I nformation :
	2513	"PKG",6,22 ,1,"PAH",1 ,1,87,0)
	2514	========== ==========
	2515	"PKG",6,22 ,1,"PAH",1 ,1,88,0)
	2516
	2517	"PKG",6,22 ,1,"PAH",1 ,1,89,0)
	2518	The second line of e ach of the se routine s now look s like:
	2519	"PKG",6,22 ,1,"PAH",1 ,1,90,0)
	2520	;;7.3;TOOL KIT;[Pat ch List] ;Apr 25, 1 995;Build 10
	2521	"PKG",6,22 ,1,"PAH",1 ,1,91,0)
	2522
	2523	"PKG",6,22 ,1,"PAH",1 ,1,92,0)
	2524	The checks ums below are new ch ecksums, a nd
	2525	"PKG",6,22 ,1,"PAH",1 ,1,93,0)
	2526	can be ch ecked with CHECK1^XT SUMBLD.
	2527	"PKG",6,22 ,1,"PAH",1 ,1,94,0)
	2528
	2529	"PKG",6,22 ,1,"PAH",1 ,1,95,0)
	2530	Routine Na me: XINDX2
	2531	"PKG",6,22 ,1,"PAH",1 ,1,96,0)
	2532	Before : B2804246 2 After: B28068226 20,27, 48,110,121 ,133,140
	2533	"PKG",6,22 ,1,"PAH",1 ,1,97,0)
	2534	Routine Na me: XINDX3
	2535	"PKG",6,22 ,1,"PAH",1 ,1,98,0)
	2536	Before : B1508241 0 After: B15211078 **20,27, 61,68,110, 121,128,13 2,
	2537	"PKG",6,22 ,1,"PAH",1 ,1,99,0)
	2538	133,140 **
	2539	"PKG",6,22 ,1,"PAH",1 ,1,100,0)
	2540
	2541	"PKG",6,22 ,1,"PAH",1 ,1,101,0)
	2542	Routine li st of prec eding patc hes: 133
	2543	"QUES","XP F1",0)
	2544	Y
	2545	"QUES","XP F1","??")
	2546	^D REP^XPD H
	2547	"QUES","XP F1","A")
	2548	Shall I wr ite over y our \|FLAG\| File
	2549	"QUES","XP F1","B")
	2550	YES
	2551	"QUES","XP F1","M")
	2552	D XPF1^XPD IQ
	2553	"QUES","XP F2",0)
	2554	Y
	2555	"QUES","XP F2","??")
	2556	^D DTA^XPD H
	2557	"QUES","XP F2","A")
	2558	Want my da ta \|FLAG\| yours
	2559	"QUES","XP F2","B")
	2560	YES
	2561	"QUES","XP F2","M")
	2562	D XPF2^XPD IQ
	2563	"QUES","XP I1",0)
	2564	YO
	2565	"QUES","XP I1","??")
	2566	^D INHIBIT ^XPDH
	2567	"QUES","XP I1","A")
	2568	Want KIDS to INHIBIT LOGONs du ring the i nstall
	2569	"QUES","XP I1","B")
	2570	NO
	2571	"QUES","XP I1","M")
	2572	D XPI1^XPD IQ
	2573	"QUES","XP M1",0)
	2574	PO^VA(200, :EM
	2575	"QUES","XP M1","??")
	2576	^D MG^XPDH
	2577	"QUES","XP M1","A")
	2578	Enter the Coordinato r for Mail Group '\|F LAG\|'
	2579	"QUES","XP M1","B")
	2580
	2581	"QUES","XP M1","M")
	2582	D XPM1^XPD IQ
	2583	"QUES","XP O1",0)
	2584	Y
	2585	"QUES","XP O1","??")
	2586	^D MENU^XP DH
	2587	"QUES","XP O1","A")
	2588	Want KIDS to Rebuild Menu Tree s Upon Com pletion of Install
	2589	"QUES","XP O1","B")
	2590	NO
	2591	"QUES","XP O1","M")
	2592	D XPO1^XPD IQ
	2593	"QUES","XP Z1",0)
	2594	Y
	2595	"QUES","XP Z1","??")
	2596	^D OPT^XPD H
	2597	"QUES","XP Z1","A")
	2598	Want to DI SABLE Sche duled Opti ons, Menu Options, a nd Protoco ls
	2599	"QUES","XP Z1","B")
	2600	NO
	2601	"QUES","XP Z1","M")
	2602	D XPZ1^XPD IQ
	2603	"QUES","XP Z2",0)
	2604	Y
	2605	"QUES","XP Z2","??")
	2606	^D RTN^XPD H
	2607	"QUES","XP Z2","A")
	2608	Want to MO VE routine s to other CPUs
	2609	"QUES","XP Z2","B")
	2610	NO
	2611	"QUES","XP Z2","M")
	2612	D XPZ2^XPD IQ
	2613	"RTN")
	2614	2
	2615	"RTN","XIN DX2")
	2616	0^1^B28068 226
	2617	"RTN","XIN DX2",1,0)
	2618	XINDX2 ;IS C/REL,GRK, RWF - PROC ESS "GRB" ;4/2/08 1 6:35
	2619	"RTN","XIN DX2",2,0)
	2620	;;7.3;TOO LKIT;20, 27,48,110, 121,133,14 0;Apr 25 , 1995;Bui ld 23
	2621	"RTN","XIN DX2",3,0)
	2622	; Per VHA Directive 2004-038, this rout ine should not be mo dified.
	2623	"RTN","XIN DX2",4,0)
	2624	% S LINE=G RB,(CM,COM )="" F I=0 :0 S STR=$ P(LINE,$C( 9),1),LINE =$P(LINE,$ C(9),2,999 ),NOA=0 D: STR]"" ARG G Q:LINE'] ""
	2625	"RTN","XIN DX2",5,0)
	2626	Q
	2627	"RTN","XIN DX2",6,0)
	2628	;Process argument
	2629	"RTN","XIN DX2",7,0)
	2630	ARGG D ^XI NDX9 S I=0 ,AC=999 F %=0:0 S %= $O(LV(%)) Q:%'>0 S I(%)=0
	2631	"RTN","XIN DX2",8,0)
	2632	ARGS ;Proc cess all a gruments a t this lev el
	2633	"RTN","XIN DX2",9,0)
	2634	S AC=LI+A C F Q:AC' >LI D INC Q:S="" D ARG
	2635	"RTN","XIN DX2",10,0)
	2636	Q
	2637	"RTN","XIN DX2",11,0)
	2638	;
	2639	"RTN","XIN DX2",12,0)
	2640	ARG ;Proce ss one arg ument
	2641	"RTN","XIN DX2",13,0)
	2642	I CH="," D PEEK I " ,"[Y Q:$$O BJF() D E ^XINDX1(21 ):($$FNC() '="$$") Q ;if ",," must be fu nction of object met hod
	2643	"RTN","XIN DX2",14,0)
	2644	Q:CH=Q
	2645	"RTN","XIN DX2",15,0)
	2646	;Cache Ob jects; Pa ckage.Clas s.method o r ##class( package.cl ass).metho d
	2647	"RTN","XIN DX2",16,0)
	2648	I $D(LV(L V,"OBJ",LI )) G OBJ2: CH=".",OBJ 1
	2649	"RTN","XIN DX2",17,0)
	2650	I CH="#", $E(S,1,2)= "##" D OBJ Q
	2651	"RTN","XIN DX2",18,0)
	2652	I S'[".", (CH?1A)!(C H="%") D L OC Q
	2653	"RTN","XIN DX2",19,0)
	2654	I CH="^" S LOC="G" G NAK:S="^ ",EXTGLO:S ["[",EXTGL O:S["\|",GL O Q
	2655	"RTN","XIN DX2",20,0)
	2656	I CH="$" D FUN Q
	2657	"RTN","XIN DX2",21,0)
	2658	I CH="?" D PAT Q
	2659	"RTN","XIN DX2",22,0)
	2660	I CH="(" D INC S NO A=S D DN,I NC Q
	2661	"RTN","XIN DX2",23,0)
	2662	Q
	2663	"RTN","XIN DX2",24,0)
	2664	;
	2665	"RTN","XIN DX2",25,0)
	2666	NAK S LOC= "N"
	2667	"RTN","XIN DX2",26,0)
	2668	G GLO
	2669	"RTN","XIN DX2",27,0)
	2670	;
	2671	"RTN","XIN DX2",28,0)
	2672	EXTGLO D E ^XINDX1(50 ),EG,INC S S=U_S
	2673	"RTN","XIN DX2",29,0)
	2674	G GLO
	2675	"RTN","XIN DX2",30,0)
	2676	;
	2677	"RTN","XIN DX2",31,0)
	2678	EG N GK,LO C S GK="", LOC="L" ;H ANDLE EXTE NDED GLOBA L
	2679	"RTN","XIN DX2",32,0)
	2680	F D INC Q:"]"[CH Q:"\|"[CH D ARG
	2681	"RTN","XIN DX2",33,0)
	2682	Q
	2683	"RTN","XIN DX2",34,0)
	2684	GLO S X=$E (S,2,99) I X]"",S'[" ^$",X'?1(1 U,1"%").7U N D E^XIND X1(12)
	2685	"RTN","XIN DX2",35,0)
	2686	I GK["*", $E(S,1,2)[ "^%" D E^X INDX1(45)
	2687	"RTN","XIN DX2",36,0)
	2688	I S1="(" S S=S_S1 D PEEKDN S: (Y?1N.NP)! ($A(Y)=34) !("^$J^$I^ $H^"[(U_Y) ) S=S_Y
	2689	"RTN","XIN DX2",37,0)
	2690	D ST(LOC, S) I S1="( " D INC2 S NOA=S D D N,INC
	2691	"RTN","XIN DX2",38,0)
	2692	Q
	2693	"RTN","XIN DX2",39,0)
	2694	;
	2695	"RTN","XIN DX2",40,0)
	2696	LOC S LOC= "L" ;Check variables at end. I S'?1.8UN, S'?1"%".7U N,S'?1.8LN ,S'?1"%".7 LN D E^XIN DX1(11)
	2697	"RTN","XIN DX2",41,0)
	2698	I S1="(" S S=S_S1 D PEEKDN S: (Y?1.N)!($ A(Y)=34) S =S_Y
	2699	"RTN","XIN DX2",42,0)
	2700	D ST(LOC, S) I S1="( " D INC2 S NOA=S D D N,INC
	2701	"RTN","XIN DX2",43,0)
	2702	Q
	2703	"RTN","XIN DX2",44,0)
	2704	OBJ ;Cache Objects w ithin ##cl ass
	2705	"RTN","XIN DX2",45,0)
	2706	S LOC="O"
	2707	"RTN","XIN DX2",46,0)
	2708	I S1'="(" D E^XIND X1(3)
	2709	"RTN","XIN DX2",47,0)
	2710	D PEEKDN S S=Y I S[ ".",'$$OBJ TST(S) D E ^XINDX1(64 )
	2711	"RTN","XIN DX2",48,0)
	2712	D ST(LOC, S),INC2 S NOA=S D DN ,INC
	2713	"RTN","XIN DX2",49,0)
	2714	Q
	2715	"RTN","XIN DX2",50,0)
	2716	OBJ1 ;Cach e Objects not within ##class, contains " ."
	2717	"RTN","XIN DX2",51,0)
	2718	S LOC="O"
	2719	"RTN","XIN DX2",52,0)
	2720	D ST(LOC, S)
	2721	"RTN","XIN DX2",53,0)
	2722	Q
	2723	"RTN","XIN DX2",54,0)
	2724	OBJ2 ;Meth od
	2725	"RTN","XIN DX2",55,0)
	2726	D PEEKDN
	2727	"RTN","XIN DX2",56,0)
	2728	I 'Y D IN C2 S NOA=S D DN,INC
	2729	"RTN","XIN DX2",57,0)
	2730	Q
	2731	"RTN","XIN DX2",58,0)
	2732	;
	2733	"RTN","XIN DX2",59,0)
	2734	OBJF() ; r eturn line where obj ect has an open "(" for parame ters
	2735	"RTN","XIN DX2",60,0)
	2736	N %
	2737	"RTN","XIN DX2",61,0)
	2738	Q:LV<2 0 ;must be down at le ast 1 leve l
	2739	"RTN","XIN DX2",62,0)
	2740	S %=$O(LV (LV-1,"OBJ ",""),-1) ;find last object at previous level
	2741	"RTN","XIN DX2",63,0)
	2742	Q $S('%:0 ,LV(LV-1,% +1)="(":%, 1:0) ; ret urns 0 if can't find object or object ha s no param eter
	2743	"RTN","XIN DX2",64,0)
	2744	;
	2745	"RTN","XIN DX2",65,0)
	2746	PEEK S Y=$ G(LV(LV,LI +1))
	2747	"RTN","XIN DX2",66,0)
	2748	Q
	2749	"RTN","XIN DX2",67,0)
	2750	;
	2751	"RTN","XIN DX2",68,0)
	2752	INC2 S LI= LI+1 ;Drop into INC
	2753	"RTN","XIN DX2",69,0)
	2754	INC S LI=L I+1,S=$G(L V(LV,LI)), S1=$G(LV(L V,LI+1)),C H=$E(S) G: $A(S)=10 E RR
	2755	"RTN","XIN DX2",70,0)
	2756	Q
	2757	"RTN","XIN DX2",71,0)
	2758	;
	2759	"RTN","XIN DX2",72,0)
	2760	DN S LI(LV )=LI,LI(LV ,1)=AC,LV= LV+1,LI=LI (LV),AC=NO A
	2761	"RTN","XIN DX2",73,0)
	2762	D ARGS,UP
	2763	"RTN","XIN DX2",74,0)
	2764	Q
	2765	"RTN","XIN DX2",75,0)
	2766	UP ;Inc LI as we sav e to skip the $C(10) .
	2767	"RTN","XIN DX2",76,0)
	2768	D PEEK D: $A(Y)'=10 ERR S LI(L V)=LI+1,LV =LV-1,LI=L I(LV),AC=L I(LV,1)
	2769	"RTN","XIN DX2",77,0)
	2770	Q
	2771	"RTN","XIN DX2",78,0)
	2772	;
	2773	"RTN","XIN DX2",79,0)
	2774	PEEKDN S Y =$G(LV(LV+ 1,LI(LV+1) +1))
	2775	"RTN","XIN DX2",80,0)
	2776	Q
	2777	"RTN","XIN DX2",81,0)
	2778	;
	2779	"RTN","XIN DX2",82,0)
	2780	ERR D E^XI NDX1(43) S (S,S1,CH) ="" Q
	2781	"RTN","XIN DX2",83,0)
	2782	S Z=$P(LV (LV+1),$C( 9),LI(LV+1 ),99),Z=$P (Z,$C(10)) W !,"COUN T=",$L(Z," ,")
	2783	"RTN","XIN DX2",84,0)
	2784	;function s
	2785	"RTN","XIN DX2",85,0)
	2786	FUN N FUN S FUN=S G EXT:S["$$" ,PKG:S["$& ",SPV:S1'[ "(" S NOA= $P(S,"^",2 )
	2787	"RTN","XIN DX2",86,0)
	2788	D INC2 I S'>0 D E^X INDX1(43) ;Sit on NO A
	2789	"RTN","XIN DX2",87,0)
	2790	G:FUN["$T E" TEXT
	2791	"RTN","XIN DX2",88,0)
	2792	S Y=1 F Z 1=LI(LV+1) +1:1 S X=$ G(LV(LV+1, Z1)) Q:$A( X)=10!(X=" ") S:X=", " Y=Y+1
	2793	"RTN","XIN DX2",89,0)
	2794	I NOA,Y<N OA!(Y>$P(N OA,";",2)) D E^XINDX 1(43)
	2795	"RTN","XIN DX2",90,0)
	2796	S NOA=S D DN,INC
	2797	"RTN","XIN DX2",91,0)
	2798	Q
	2799	"RTN","XIN DX2",92,0)
	2800	;
	2801	"RTN","XIN DX2",93,0)
	2802	TEXT ; pro cess $T
	2803	"RTN","XIN DX2",94,0)
	2804	N X1,X2
	2805	"RTN","XIN DX2",95,0)
	2806	S Y=$$ASM ^XINDX3(LV +1,LI(LV+1 )+1,$C(10) ) D ST("MK ","$T("_$S ($E(Y)'="+ ":Y,1:""))
	2807	"RTN","XIN DX2",96,0)
	2808	I $$VT(Y) D ST("I", Y) ;intern al label
	2809	"RTN","XIN DX2",97,0)
	2810	;check if external routine
	2811	"RTN","XIN DX2",98,0)
	2812	I Y["^",$ $VT($P(Y," ^",2)) S X 1=$P(Y,"^" ),X2=$P(Y, "^",2),Y=X 1 D ST("X" ,X2_$S($$V T(X1):" "_ X1,1:""))
	2813	"RTN","XIN DX2",99,0)
	2814	D FLUSH(L V+1)
	2815	"RTN","XIN DX2",100,0 )
	2816	Q
	2817	"RTN","XIN DX2",101,0 )
	2818	;special variables
	2819	"RTN","XIN DX2",102,0 )
	2820	SPV ;
	2821	"RTN","XIN DX2",103,0 )
	2822	I "^$D^$E C^$ES^$ET^ $I^$K^$P^$ Q^$ST^$SY^ "[("^"_X_" ^") D ST(" MK",X)
	2823	"RTN","XIN DX2",104,0 )
	2824	Q
	2825	"RTN","XIN DX2",105,0 )
	2826	;
	2827	"RTN","XIN DX2",106,0 )
	2828	EXT ;Extri nsic funct ions
	2829	"RTN","XIN DX2",107,0 )
	2830	I $E(S1)= "^" S Y=$E (S1,2,99)_ " "_S D IN C S S=Y ;B uild S and fall thru
	2831	"RTN","XIN DX2",108,0 )
	2832	D ST($S(S [" ":"X",1 :"I"),S) ; Internal, eXternal
	2833	"RTN","XIN DX2",109,0 )
	2834	I S1["(" D INC2 S N OA=S D DN, INC ;Proce ss param.
	2835	"RTN","XIN DX2",110,0 )
	2836	Q
	2837	"RTN","XIN DX2",111,0 )
	2838	;
	2839	"RTN","XIN DX2",112,0 )
	2840	PKG ;Exter nal Packag e
	2841	"RTN","XIN DX2",113,0 )
	2842	D ST("X", S) ;Record External name
	2843	"RTN","XIN DX2",114,0 )
	2844	I S1["(" D INC2 S N OA=S D DN, INC ;Proce ss param.
	2845	"RTN","XIN DX2",115,0 )
	2846	Q
	2847	"RTN","XIN DX2",116,0 )
	2848	;
	2849	"RTN","XIN DX2",117,0 )
	2850	PAT D INC I $E(S)="@ " D INC,AR G Q
	2851	"RTN","XIN DX2",118,0 )
	2852	F D REPC NT,PATCODE Q:$E(S)=" "
	2853	"RTN","XIN DX2",119,0 )
	2854	Q
	2855	"RTN","XIN DX2",120,0 )
	2856	;
	2857	"RTN","XIN DX2",121,0 )
	2858	REPCNT F I =1:1 Q:("0 123456789. "'[$E(S,I) )!($E(S,I) ="")
	2859	"RTN","XIN DX2",122,0 )
	2860	S X=$E(S, 1,I-1),S=$ E(S,I,999) I ('$L(X) )!($L(X,". ")>2) S S= "" D E^XIN DX1(16)
	2861	"RTN","XIN DX2",123,0 )
	2862	Q
	2863	"RTN","XIN DX2",124,0 )
	2864	;
	2865	"RTN","XIN DX2",125,0 )
	2866	PATCODE I $E(S)=Q S I=1 D PATQ S S=$E(S, I,999) S:$ L(CH)&(",) "[CH) S=$E (S,2,999) Q
	2867	"RTN","XIN DX2",126,0 )
	2868	F I=1:1 Q :("ACELNPU acelnpu()" '[$E(S,I)) !($E(S,I)= "")
	2869	"RTN","XIN DX2",127,0 )
	2870	S X=$E(S, 1,I-1),S=$ E(S,I,999) I I=1 S S ="" D E^XI NDX1(16)
	2871	"RTN","XIN DX2",128,0 )
	2872	I $E(S)=" ," S S=$E( S,2,999) ; Pull ',' o ut of alte rnation
	2873	"RTN","XIN DX2",129,0 )
	2874	Q
	2875	"RTN","XIN DX2",130,0 )
	2876	;
	2877	"RTN","XIN DX2",131,0 )
	2878	PATQ F I=I +1:1 S CH= $E(S,I) Q: CH=""!(CH= Q)
	2879	"RTN","XIN DX2",132,0 )
	2880	S I=I+1 D :CH="" E^X INDX1(6) S CH=$E(S,I ) G:CH=Q P ATQ
	2881	"RTN","XIN DX2",133,0 )
	2882	Q
	2883	"RTN","XIN DX2",134,0 )
	2884	;
	2885	"RTN","XIN DX2",135,0 )
	2886	ST(LOC,S) S:'$D(V(LO C,S)) V(LO C,S)="" I $D(GK),GK] "",V(LOC,S )'[GK S V( LOC,S)=V(L OC,S)_GK
	2887	"RTN","XIN DX2",136,0 )
	2888	S GK=""
	2889	"RTN","XIN DX2",137,0 )
	2890	Q
	2891	"RTN","XIN DX2",138,0 )
	2892	;
	2893	"RTN","XIN DX2",139,0 )
	2894	VT(X) ;Che ck if a va lid label
	2895	"RTN","XIN DX2",140,0 )
	2896	Q (X?1A.3 1AN)!(X?1" %".31UN)!( X?1.31N)
	2897	"RTN","XIN DX2",141,0 )
	2898	;
	2899	"RTN","XIN DX2",142,0 )
	2900	VA(X) ;Che ck if VA S tandard la bel ;P140
	2901	"RTN","XIN DX2",143,0 )
	2902	Q (X?1U.1 5UN)!(X?1" %".15UN)!( X?1.16N)
	2903	"RTN","XIN DX2",144,0 )
	2904	;
	2905	"RTN","XIN DX2",145,0 )
	2906	FLUSH(L) ; Flush rest of list w ith this o ffset
	2907	"RTN","XIN DX2",146,0 )
	2908	N I,CH S I=LI(L)+1 F I=I:1 S CH=$G(LV(L ,I)) Q:$C( 10)[CH D: CH="(" FLU SH(L+1)
	2909	"RTN","XIN DX2",147,0 )
	2910	S LI(L)=I Q
	2911	"RTN","XIN DX2",148,0 )
	2912	;
	2913	"RTN","XIN DX2",149,0 )
	2914	FNC(NEW) ; Sets or re turns the current fu nction
	2915	"RTN","XIN DX2",150,0 )
	2916	I $D(NEW) S LV(LV+1 ,"FNC",LI) =NEW Q
	2917	"RTN","XIN DX2",151,0 )
	2918	N W
	2919	"RTN","XIN DX2",152,0 )
	2920	S W=+$S($ D(LV(LV,"F NC",LI)):L I,$O(LV(LV ,"FNC",LI) ,-1):$O(LV (LV,"FNC", LI),-1),1: $O(LV(LV," FNC",LI))) ;patch 11 9,121
	2921	"RTN","XIN DX2",153,0 )
	2922	Q $G(LV(L V,"FNC",W) )
	2923	"RTN","XIN DX2",154,0 )
	2924	;
	2925	"RTN","XIN DX2",155,0 )
	2926	OP(NEW) ;S ets or ret urns the c urrent ope rator
	2927	"RTN","XIN DX2",156,0 )
	2928	I $D(NEW) S LV(LV," OP",LI)=NE W Q
	2929	"RTN","XIN DX2",157,0 )
	2930	N W S W=+ $S($D(LV(L V,"OP",LI) ):LI,1:$O( LV(LV,"OP" ,LI),-1))
	2931	"RTN","XIN DX2",158,0 )
	2932	Q $G(LV(L V,"OP",W))
	2933	"RTN","XIN DX2",159,0 )
	2934	;
	2935	"RTN","XIN DX2",160,0 )
	2936	OBJTST(OBJ ) ;test if OBJ exist s, returns 1 if exis ts
	2937	"RTN","XIN DX2",161,0 )
	2938	Q:$G(OBJ) ="" 0
	2939	"RTN","XIN DX2",162,0 )
	2940	Q ##class (%Dictiona ry.ClassDe finition). %ExistsId( ""_OBJ_"")
	2941	"RTN","XIN DX2",163,0 )
	2942	;
	2943	"RTN","XIN DX3")
	2944	0^2^B15211 078
	2945	"RTN","XIN DX3",1,0)
	2946	XINDX3 ;IS C/REL,GRK, RWF - PROC ESS MERGE/ SET/READ/K ILL/NEW/OP EN COMMAND S ;06/24/0 8 15:44
	2947	"RTN","XIN DX3",2,0)
	2948	;;7.3;TOO LKIT;20, 27,61,68,1 10,121,128 ,132,133,1 40;Apr 2 5, 1995;Bu ild 23
	2949	"RTN","XIN DX3",3,0)
	2950	; Per VHA Directive 2004-038, this rout ine should not be mo dified.
	2951	"RTN","XIN DX3",4,0)
	2952	PEEK S Y=$ G(LV(LV,LI +1)) Q
	2953	"RTN","XIN DX3",5,0)
	2954	PEEK2 S Y= $G(LV(LV,L I+2)) Q
	2955	"RTN","XIN DX3",6,0)
	2956	INC2 S LI= LI+1 ;Drop into INC
	2957	"RTN","XIN DX3",7,0)
	2958	INC S LI=L I+1,S=$G(L V(LV,LI)), S1=$G(LV(L V,LI+1)),C H=$E(S)
	2959	"RTN","XIN DX3",8,0)
	2960	G ERR:$A( S)=10 Q
	2961	"RTN","XIN DX3",9,0)
	2962	DN S LI(LV )=LI,LI(LV ,1)=AC,LV= LV+1,LI=LI (LV),AC=NO A
	2963	"RTN","XIN DX3",10,0)
	2964	Q
	2965	"RTN","XIN DX3",11,0)
	2966	UP ;Inc LI as we sav e to skip the $C(10) .
	2967	"RTN","XIN DX3",12,0)
	2968	D PEEK S: $A(Y)=10 L I=LI+1 S L I(LV)=LI,L V=LV-1,LI= LI(LV),AC= LI(LV,1) Q
	2969	"RTN","XIN DX3",13,0)
	2970	PEEKDN S Y =$G(LV(LV+ 1,LI(LV+1) +1)) Q
	2971	"RTN","XIN DX3",14,0)
	2972	FIND F Y=L I:1:AC Q:L [$G(LV(LV, Y))
	2973	"RTN","XIN DX3",15,0)
	2974	ERR D E^XI NDX1(43) S (S,S1,CH) ="" Q
	2975	"RTN","XIN DX3",16,0)
	2976	Q
	2977	"RTN","XIN DX3",17,0)
	2978	Q
	2979	"RTN","XIN DX3",18,0)
	2980	S ;Set
	2981	"RTN","XIN DX3",19,0)
	2982	S STR=ARG ,ARG="",RH S=0 D ^XIN DX9
	2983	"RTN","XIN DX3",20,0)
	2984	S2 S GK="" D INC I S ="" D:'RHS E^XINDX1( 10) Q
	2985	"RTN","XIN DX3",21,0)
	2986	I CH=",", "!""#&)*+- ,./:;<=?\] _~"[$E(S1) ,RHS=1 D E ^XINDX1(10 ) G S2 ;pa tch 121
	2987	"RTN","XIN DX3",22,0)
	2988	I CH="," S RHS=0 G S2
	2989	"RTN","XIN DX3",23,0)
	2990	I CH="=" S RHS=1 I "!#&)*,/:; <=?\]_~"[$ E(S1) D:$E (S1,1,2)'= "##" E^XIN DX1(10) G S2 ;patch 119
	2991	"RTN","XIN DX3",24,0)
	2992	I CH="$", 'RHS D D: % E^XINDX1 (10) ;Can' t be on le ft side of set.
	2993	"RTN","XIN DX3",25,0)
	2994	. S %=1
	2995	"RTN","XIN DX3",26,0)
	2996	. I "$E$P $X$Y"[$E(S ,1,2) S %= 0 Q
	2997	"RTN","XIN DX3",27,0)
	2998	. I "$EC$ ET$QS"[$E( S,1,3) S % =0 Q
	2999	"RTN","XIN DX3",28,0)
	3000	. I "$ZE$ ZT"[$E(S,1 ,3) S %=0 Q ;Pickup in XINDX9
	3001	"RTN","XIN DX3",29,0)
	3002	. Q
	3003	"RTN","XIN DX3",30,0)
	3004	I CH="^" D FL G S2
	3005	"RTN","XIN DX3",31,0)
	3006	I CH="@" S Y=$$ASM( LV,LI,",") S:Y'["=" RHS=1 D IN C,ARG^XIND X2 G S2
	3007	"RTN","XIN DX3",32,0)
	3008	I CH="(", $D(LV(LV," OBJ",LI-1) ) D ARG^XI NDX2 G S2
	3009	"RTN","XIN DX3",33,0)
	3010	I CH="(" D MULT G S 2
	3011	"RTN","XIN DX3",34,0)
	3012	I CH="#", $E(S,1,2)= "##" D ARG ^XINDX2 G S2 ;Cache Objects
	3013	"RTN","XIN DX3",35,0)
	3014	D FL G S2
	3015	"RTN","XIN DX3",36,0)
	3016	;NOA=numb er of argu ments
	3017	"RTN","XIN DX3",37,0)
	3018	MULT D INC S NOA=S I S'>0 S ER R=5 G ^XIN DX1
	3019	"RTN","XIN DX3",38,0)
	3020	D DN S AC =AC+LI F Q:AC'>LI S:'RHS GK= "*" D INC, ARG^XINDX2
	3021	"RTN","XIN DX3",39,0)
	3022	D UP
	3023	"RTN","XIN DX3",40,0)
	3024	Q
	3025	"RTN","XIN DX3",41,0)
	3026	FL ;
	3027	"RTN","XIN DX3",42,0)
	3028	S:'RHS GK ="*" D ARG ^XINDX2
	3029	"RTN","XIN DX3",43,0)
	3030	Q
	3031	"RTN","XIN DX3",44,0)
	3032	VLNF(X) ;D rop into V LN
	3033	"RTN","XIN DX3",45,0)
	3034	VLN ;Valid Local Nam e > Variab le
	3035	"RTN","XIN DX3",46,0)
	3036	S ERR=0
	3037	"RTN","XIN DX3",47,0)
	3038	Q:X?1(1U, 1"%").15UN
	3039	"RTN","XIN DX3",48,0)
	3040	;lower/mi xed case, can't be n amespaced ;p140
	3041	"RTN","XIN DX3",49,0)
	3042	I X?1(1A, 1"%").15AN D:$E(RTN, 1,2)=$E(X, 1,2) E^XIN DX1(57) Q
	3043	"RTN","XIN DX3",50,0)
	3044	D E^XINDX 1(11) ;Too long or o ther probl em
	3045	"RTN","XIN DX3",51,0)
	3046	Q
	3047	"RTN","XIN DX3",52,0)
	3048	VGN ;Valid Global Na me
	3049	"RTN","XIN DX3",53,0)
	3050	S ERR=0 I X'?1(1U,1 "%").7UN D E^XINDX1( 12)
	3051	"RTN","XIN DX3",54,0)
	3052	Q
	3053	"RTN","XIN DX3",55,0)
	3054	KL ;Proces s KILL
	3055	"RTN","XIN DX3",56,0)
	3056	S STR=ARG ,ARG(1)=AR G,ARG="" D ^XINDX9
	3057	"RTN","XIN DX3",57,0)
	3058	A D INC Q: S="" G A: CH="," S L OC="L" D @ $S(CH="@": "KL1",CH=" ^":"KL2",C H="(":"KL4 ",1:"KL3") G A
	3059	"RTN","XIN DX3",58,0)
	3060	KL1 D INC, ARG^XINDX2 Q
	3061	"RTN","XIN DX3",59,0)
	3062	KL2 S GK=" !"
	3063	"RTN","XIN DX3",60,0)
	3064	I S1'="(" S ERR=24 D ^XINDX1
	3065	"RTN","XIN DX3",61,0)
	3066	G ARG^XIN DX2
	3067	"RTN","XIN DX3",62,0)
	3068	KL3 I "^DT ^DTIME^DUZ ^IOST^IOM^ U^"[("^"_S _"^") S ER R=39,ERR(1 )=S D ^XIN DX1
	3069	"RTN","XIN DX3",63,0)
	3070	I "IO"=S D:S1="(" P EEKDN S ER R=39,ERR(1 )=S_$S(S1[ "(":S1_Y_" )",1:"") D :S1'="(" ^ XINDX1 I S 1="(",("QC "'[$E(Y,2) ) D ^XINDX 1
	3071	"RTN","XIN DX3",64,0)
	3072	KL5 S GK=" !" D ARG^X INDX2 Q ; KILL SUBS
	3073	"RTN","XIN DX3",65,0)
	3074	Q
	3075	"RTN","XIN DX3",66,0)
	3076	KL4 S NOA= S1 D DN,AR GS^XINDX2, UP,INC2 Q
	3077	"RTN","XIN DX3",67,0)
	3078	NE ;NEW
	3079	"RTN","XIN DX3",68,0)
	3080	S ERR=$S( "("[$E(ARG ):26,1:0) I ERR G ^X INDX1 ;loo k for null or (
	3081	"RTN","XIN DX3",69,0)
	3082	S STR=ARG D ^XINDX9 K ERTX
	3083	"RTN","XIN DX3",70,0)
	3084	N2 D INC Q :S="" G N 2:CH=","
	3085	"RTN","XIN DX3",71,0)
	3086	;I CH?1P, ("%@()"'[C H)&("$E"'[ $E(S,1,2)) D E^XINDX 1(11) G N2
	3087	"RTN","XIN DX3",72,0)
	3088	;check fo r "@", fun ctions, sp ecial vari ables, or %variables
	3089	"RTN","XIN DX3",73,0)
	3090	I CH?1P,( CH'=S) D I $G(ERTX) ]"" K ERTX G N2
	3091	"RTN","XIN DX3",74,0)
	3092	. Q:"@("[ CH!(CH="%" &($E(S,2,8 )?.1A.E)) ;check wh at's indir ected on n ext pass o r
	3093	"RTN","XIN DX3",75,0)
	3094	. ;if not $ET or $E S must use indirecti on
	3095	"RTN","XIN DX3",76,0)
	3096	. I "$"[C H Q:$E(S,1 ,3)="$ET"! ($E(S,1,3) ="$ES") I LI>1,(LV( LV,LI-1)=" @") Q
	3097	"RTN","XIN DX3",77,0)
	3098	. D E^XIN DX1(11)
	3099	"RTN","XIN DX3",78,0)
	3100	. Q
	3101	"RTN","XIN DX3",79,0)
	3102	S GK="~" D ARG^XIND X2
	3103	"RTN","XIN DX3",80,0)
	3104	G N2
	3105	"RTN","XIN DX3",81,0)
	3106	;
	3107	"RTN","XIN DX3",82,0)
	3108	RD S STR=A RG D ^XIND X9 S ARG=" "
	3109	"RTN","XIN DX3",83,0)
	3110	RD1 D INC Q:S=""
	3111	"RTN","XIN DX3",84,0)
	3112	;I (CH="! ")!(CH="," )!(CH=Q)!( CH="#") G RD1
	3113	"RTN","XIN DX3",85,0)
	3114	;I CH="^" S ERR=11 D ^XINDX1
	3115	"RTN","XIN DX3",86,0)
	3116	I '((CH=" %")!(CH?1A )!(CH="*") ) D RD3 G RD1
	3117	"RTN","XIN DX3",87,0)
	3118	S Y=$$ASM (LV,LI,"," ) I Y'[":" S ERR=33, RDTIME=1 D ^XINDX1
	3119	"RTN","XIN DX3",88,0)
	3120	D RD2 G R D1
	3121	"RTN","XIN DX3",89,0)
	3122	RD2 Q:","[ CH
	3123	"RTN","XIN DX3",90,0)
	3124	I "*#"[CH D E^XINDX 1(41)
	3125	"RTN","XIN DX3",91,0)
	3126	I "#:"[CH D INC,ARG ^XINDX2,IN C G RD2
	3127	"RTN","XIN DX3",92,0)
	3128	I (CH="%" )!(CH?1A) S LOC="L", GK="*" D A RG^XINDX2, INC G RD2
	3129	"RTN","XIN DX3",93,0)
	3130	D INC G R D2
	3131	"RTN","XIN DX3",94,0)
	3132	RD3 Q:","[ CH I "!#? "[CH D INC G RD3
	3133	"RTN","XIN DX3",95,0)
	3134	I (CH="%" )!(CH?1A)! (CH="@") D ARG^XINDX 2,INC G RD 3
	3135	"RTN","XIN DX3",96,0)
	3136	Q
	3137	"RTN","XIN DX3",97,0)
	3138	O S STR=AR G,AC=99 D ^XINDX9,IN C S ARG="" I S["@" D ARGS^XIND X2 Q
	3139	"RTN","XIN DX3",98,0)
	3140	D ARG^XIN DX2,INC D D INC,ARG S^XINDX2 Q
	3141	"RTN","XIN DX3",99,0)
	3142	. F D IN C Q:":"[S
	3143	"RTN","XIN DX3",100,0 )
	3144	. Q
	3145	"RTN","XIN DX3",101,0 )
	3146	Q
	3147	"RTN","XIN DX3",102,0 )
	3148	ERRCP S ER R=5 D ^XIN DX1 Q
	3149	"RTN","XIN DX3",103,0 )
	3150	ST ;
	3151	"RTN","XIN DX3",104,0 )
	3152	S:'$D(V(L OC,S)) V(L OC,S)="" S :V(LOC,S)' [GK V(LOC, S)=V(LOC,S )_GK,GK="" Q
	3153	"RTN","XIN DX3",105,0 )
	3154	Q
	3155	"RTN","XIN DX3",106,0 )
	3156	ASM(WL,SI, L,SEP) ;as semble lin e Y from L V array
	3157	"RTN","XIN DX3",107,0 )
	3158	N %,CH,Y S SEP=$G(S EP),Y="" F %=SI:1 S CH=$G(LV(W L,%)) Q:L[ CH S Y=Y_ SEP_CH
	3159	"RTN","XIN DX3",108,0 )
	3160	Q Y
	3161	"VER")
	3162	8.0^22.2
	3163	END
	3164	END