Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

C0E0_1_0_0_T5.KID@ 1559

Last change on this file since 1559 was 1265, checked in by George Lilly, 13 years ago
old version of EWD fileman file and sample applications
File size: 56.1 KB

Rev	Line
[726]	1	KIDS Distribution saved on Mar 06, 2010@13:34:24
	2	added first two lines to generated routines
	3	KIDS:C0E01.00^
	4
	5	INSTALL NAME
	6	C0E01.00
	7	"BLD",6969,0)
	8	C0E01.00^^0^3100306^n
	9	"BLD",6969,4,0)
	10	^9.64PA^70050^1
	11	"BLD",6969,4,70050,0)
	12	70050
	13	"BLD",6969,4,70050,222)
	14	y^y^f^^y^^y^o^n
	15	"BLD",6969,4,70050,224)
	16	I $$GET1^DIQ(70050,Y_",",.02)="screenman"
	17	"BLD",6969,4,"B",70050,70050)
	18
	19	"BLD",6969,6.3)
	20	6
	21	"BLD",6969,"KRN",0)
	22	^9.67PA^8989.52^19
	23	"BLD",6969,"KRN",.4,0)
	24	.4
	25	"BLD",6969,"KRN",.401,0)
	26	.401
	27	"BLD",6969,"KRN",.401,"NM",0)
	28	^9.68A^1^1
	29	"BLD",6969,"KRN",.401,"NM",1,0)
	30	C0E SCREENMAN RECORDS FILE #70050^70050^0
	31	"BLD",6969,"KRN",.401,"NM","B","C0E SCREENMAN RECORDS FILE #70050",1)
	32
	33	"BLD",6969,"KRN",.402,0)
	34	.402
	35	"BLD",6969,"KRN",.403,0)
	36	.403
	37	"BLD",6969,"KRN",.5,0)
	38	.5
	39	"BLD",6969,"KRN",.84,0)
	40	.84
	41	"BLD",6969,"KRN",3.6,0)
	42	3.6
	43	"BLD",6969,"KRN",3.8,0)
	44	3.8
	45	"BLD",6969,"KRN",9.2,0)
	46	9.2
	47	"BLD",6969,"KRN",9.8,0)
	48	9.8
	49	"BLD",6969,"KRN",9.8,"NM",0)
	50	^9.68A^8^8
	51	"BLD",6969,"KRN",9.8,"NM",1,0)
	52	C0CROB^^0^B1053192
	53	"BLD",6969,"KRN",9.8,"NM",2,0)
	54	C0CEX^^0^B811998
	55	"BLD",6969,"KRN",9.8,"NM",3,0)
	56	C0E0000A^^0^B15300816
	57	"BLD",6969,"KRN",9.8,"NM",4,0)
	58	C0E0000F^^0^B33308637
	59	"BLD",6969,"KRN",9.8,"NM",5,0)
	60	C0E0000E^^0^B28122696
	61	"BLD",6969,"KRN",9.8,"NM",6,0)
	62	C0E0000R^^0^B67797780
	63	"BLD",6969,"KRN",9.8,"NM",7,0)
	64	C0E0001I^^0^B20709402
	65	"BLD",6969,"KRN",9.8,"NM",8,0)
	66	C0E0002^^0^B94303815
	67	"BLD",6969,"KRN",9.8,"NM","B","C0CEX",2)
	68
	69	"BLD",6969,"KRN",9.8,"NM","B","C0CROB",1)
	70
	71	"BLD",6969,"KRN",9.8,"NM","B","C0E0000A",3)
	72
	73	"BLD",6969,"KRN",9.8,"NM","B","C0E0000E",5)
	74
	75	"BLD",6969,"KRN",9.8,"NM","B","C0E0000F",4)
	76
	77	"BLD",6969,"KRN",9.8,"NM","B","C0E0000R",6)
	78
	79	"BLD",6969,"KRN",9.8,"NM","B","C0E0001I",7)
	80
	81	"BLD",6969,"KRN",9.8,"NM","B","C0E0002",8)
	82
	83	"BLD",6969,"KRN",19,0)
	84	19
	85	"BLD",6969,"KRN",19.1,0)
	86	19.1
	87	"BLD",6969,"KRN",101,0)
	88	101
	89	"BLD",6969,"KRN",409.61,0)
	90	409.61
	91	"BLD",6969,"KRN",771,0)
	92	771
	93	"BLD",6969,"KRN",870,0)
	94	870
	95	"BLD",6969,"KRN",8989.51,0)
	96	8989.51
	97	"BLD",6969,"KRN",8989.52,0)
	98	8989.52
	99	"BLD",6969,"KRN",8994,0)
	100	8994
	101	"BLD",6969,"KRN","B",.4,.4)
	102
	103	"BLD",6969,"KRN","B",.401,.401)
	104
	105	"BLD",6969,"KRN","B",.402,.402)
	106
	107	"BLD",6969,"KRN","B",.403,.403)
	108
	109	"BLD",6969,"KRN","B",.5,.5)
	110
	111	"BLD",6969,"KRN","B",.84,.84)
	112
	113	"BLD",6969,"KRN","B",3.6,3.6)
	114
	115	"BLD",6969,"KRN","B",3.8,3.8)
	116
	117	"BLD",6969,"KRN","B",9.2,9.2)
	118
	119	"BLD",6969,"KRN","B",9.8,9.8)
	120
	121	"BLD",6969,"KRN","B",19,19)
	122
	123	"BLD",6969,"KRN","B",19.1,19.1)
	124
	125	"BLD",6969,"KRN","B",101,101)
	126
	127	"BLD",6969,"KRN","B",409.61,409.61)
	128
	129	"BLD",6969,"KRN","B",771,771)
	130
	131	"BLD",6969,"KRN","B",870,870)
	132
	133	"BLD",6969,"KRN","B",8989.51,8989.51)
	134
	135	"BLD",6969,"KRN","B",8989.52,8989.52)
	136
	137	"BLD",6969,"KRN","B",8994,8994)
	138
	139	"BLD",6969,"QUES",0)
	140	^9.62^^
	141	"DATA",70050,12,0)
	142	23407^screenman^ewdajaxerror
	143	"DATA",70050,13,0)
	144	23408^screenman^ewdajaxerrorredirect
	145	"DATA",70050,14,0)
	146	23409^screenman^ewderror
	147	"DATA",70050,15,0)
	148	23410^screenman^ewderrorredirect
	149	"DATA",70050,16,0)
	150	23411^screenman^index
	151	"DATA",70050,16,1,0)
	152	^^10^10^3100301^
	153	"DATA",70050,16,1,1,0)
	154	<ewd:config isfirstpage="true">
	155	"DATA",70050,16,1,2,0)
	156	<html>
	157	"DATA",70050,16,1,3,0)
	158	<header>
	159	"DATA",70050,16,1,4,0)
	160	<title>Screenman Menu</title>
	161	"DATA",70050,16,1,5,0)
	162	</header>
	163	"DATA",70050,16,1,6,0)
	164	<body>
	165	"DATA",70050,16,1,7,0)
	166	Hello World<br><br>
	167	"DATA",70050,16,1,8,0)
	168	<a href="test1.ewd">test1 page</a>
	169	"DATA",70050,16,1,9,0)
	170	</body>
	171	"DATA",70050,16,1,10,0)
	172	</html>
	173	"DATA",70050,17,0)
	174	23412^screenman^test1
	175	"DATA",70050,17,1,0)
	176	^^25^25^3100302^
	177	"DATA",70050,17,1,1,0)
	178	<ewd:config isfirstpage="false" prepagescript="TEST1^C0CROB">
	179	"DATA",70050,17,1,2,0)
	180	<html>
	181	"DATA",70050,17,1,3,0)
	182	<head>
	183	"DATA",70050,17,1,4,0)
	184	<script language="javascript">
	185	"DATA",70050,17,1,5,0)
	186	function ValidateTitle(value) {
	187	"DATA",70050,17,1,6,0)
	188	ewd:VALIDATETITLE^C0CROB(value);
	189	"DATA",70050,17,1,7,0)
	190	}
	191	"DATA",70050,17,1,8,0)
	192	</script>
	193	"DATA",70050,17,1,9,0)
	194	<title>Screenman Test</title>
	195	"DATA",70050,17,1,10,0)
	196	</head>
	197	"DATA",70050,17,1,11,0)
	198	<body>
	199	"DATA",70050,17,1,12,0)
	200	<form method="post" action="ewd">
	201	"DATA",70050,17,1,13,0)
	202	<center>Edit an Existing User</center>
	203	"DATA",70050,17,1,14,0)
	204	<div id="name">
	205	"DATA",70050,17,1,15,0)
	206	NAME: <?= #name ?>
	207	"DATA",70050,17,1,16,0)
	208	</div>
	209	"DATA",70050,17,1,17,0)
	210	<hr>
	211	"DATA",70050,17,1,18,0)
	212	TITLE: <input type="text" name="TITLE" value="*"
	213	"DATA",70050,17,1,19,0)
	214	onchange="ValidateTitle(this.value)" /><br><br>
	215	"DATA",70050,17,1,20,0)
	216	SSN: <input type="text" name="SSN" value="*" /><br><br>
	217	"DATA",70050,17,1,21,0)
	218	<input type="submit" name="submit" value="save" action="SAVEFORM^C0CROB"
	219	"DATA",70050,17,1,22,0)
	220	nextpage="test1" />
	221	"DATA",70050,17,1,23,0)
	222	</form>
	223	"DATA",70050,17,1,24,0)
	224	</body>
	225	"DATA",70050,17,1,25,0)
	226	</html>
	227	"FIA",70050)
	228	C0EWD ROUTINE MAP
	229	"FIA",70050,0)
	230	^C0E(70050,
	231	"FIA",70050,0,0)
	232	70050PI
	233	"FIA",70050,0,1)
	234	y^y^f^^y^^y^o^n
	235	"FIA",70050,0,10)
	236
	237	"FIA",70050,0,11)
	238	I $$GET1^DIQ(70050,Y_",",.02)="screenman"
	239	"FIA",70050,0,"RLRO")
	240
	241	"FIA",70050,70050)
	242	0
	243	"FIA",70050,70050.01)
	244	0
	245	"FIA",70050,70050.02)
	246	0
	247	"IX",70050,70050,"AZEWD",0)
	248	70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
	249	"IX",70050,70050,"AZEWD",1)
	250	D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
	251	"IX",70050,70050,"AZEWD",2)
	252	D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
	253	"IX",70050,70050,"AZEWD",11.1,0)
	254	^.114IA^3^3
	255	"IX",70050,70050,"AZEWD",11.1,1,0)
	256	1^F^70050^.01^^^F
	257	"IX",70050,70050,"AZEWD",11.1,2,0)
	258	2^F^70050^.02^^^F
	259	"IX",70050,70050,"AZEWD",11.1,3,0)
	260	3^F^70050^.03^^^F
	261	"IX",70050,70050,"C",0)
	262	70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
	263	"IX",70050,70050,"C",1)
	264	S ^C0E(70050,"C",$E(X,1,60),DA)=""
	265	"IX",70050,70050,"C",2)
	266	K ^C0E(70050,"C",$E(X,1,60),DA)
	267	"IX",70050,70050,"C",2.5)
	268	K ^C0E(70050,"C")
	269	"IX",70050,70050,"C",11.1,0)
	270	^.114IA^1^1
	271	"IX",70050,70050,"C",11.1,1,0)
	272	1^F^70050^.03^60^1^F
	273	"IX",70050,70050,"C",11.1,1,3)
	274
	275	"IX",70050,70050,"D",0)
	276	70050^D^REGULAR INDEX OF THE APPLICATION INDEX^R^^F^IR^I^70050^^^^^LS
	277	"IX",70050,70050,"D",1)
	278	S ^C0E(70050,"D",$E(X,1,60),DA)=""
	279	"IX",70050,70050,"D",2)
	280	K ^C0E(70050,"D",$E(X,1,60),DA)
	281	"IX",70050,70050,"D",2.5)
	282	K ^C0E(70050,"D")
	283	"IX",70050,70050,"D",11.1,0)
	284	^.114IA^1^1
	285	"IX",70050,70050,"D",11.1,1,0)
	286	1^F^70050^.02^60^1^F
	287	"IX",70050,70050,"D",11.1,1,3)
	288
	289	"KRN",.401,1794,-1)
	290	0^1
	291	"KRN",.401,1794,0)
	292	C0E SCREENMAN RECORDS^3100302.0014^@^70050^^@^3100302
	293	"KRN",.401,1794,2,0)
	294	^.4014^1^1
	295	"KRN",.401,1794,2,1,0)
	296	70050^.02^EWD APPLICATION^^^^^^^4
	297	"KRN",.401,1794,2,1,"F")
	298	screenmamz^screenman
	299	"KRN",.401,1794,2,1,"GET")
	300	S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
	301	"KRN",.401,1794,2,1,"QCON")
	302	I DISX(1)="screenman"
	303	"KRN",.401,1794,2,1,"T")
	304	screenman^screenman
	305	"KRN",.401,1794,2,1,"TXT")
	306	EWD APPLICATION equals screenman
	307	"KRN",.401,1794,2,"B",70050,1)
	308
	309	"MBREQ")
	310	0
	311	"ORD",6,.401)
	312	.401;6;;;EDEOUT^DIFROMSO(.401,DA,"",XPDA);FPRE^DIFROMSI(.401,"",XPDA);EPRE^DIFROMSI(.401,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.401,DA,"",XPDA);DEL^DIFROMSK(.401,"",%)
	313	"ORD",6,.401,0)
	314	SORT TEMPLATE
	315	"QUES","XPF1",0)
	316	Y
	317	"QUES","XPF1","??")
	318	^D REP^XPDH
	319	"QUES","XPF1","A")
	320	Shall I write over your \|FLAG\| File
	321	"QUES","XPF1","B")
	322	YES
	323	"QUES","XPF1","M")
	324	D XPF1^XPDIQ
	325	"QUES","XPF2",0)
	326	Y
	327	"QUES","XPF2","??")
	328	^D DTA^XPDH
	329	"QUES","XPF2","A")
	330	Want my data \|FLAG\| yours
	331	"QUES","XPF2","B")
	332	YES
	333	"QUES","XPF2","M")
	334	D XPF2^XPDIQ
	335	"QUES","XPI1",0)
	336	YO
	337	"QUES","XPI1","??")
	338	^D INHIBIT^XPDH
	339	"QUES","XPI1","A")
	340	Want KIDS to INHIBIT LOGONs during the install
	341	"QUES","XPI1","B")
	342	NO
	343	"QUES","XPI1","M")
	344	D XPI1^XPDIQ
	345	"QUES","XPM1",0)
	346	PO^VA(200,:EM
	347	"QUES","XPM1","??")
	348	^D MG^XPDH
	349	"QUES","XPM1","A")
	350	Enter the Coordinator for Mail Group '\|FLAG\|'
	351	"QUES","XPM1","B")
	352
	353	"QUES","XPM1","M")
	354	D XPM1^XPDIQ
	355	"QUES","XPO1",0)
	356	Y
	357	"QUES","XPO1","??")
	358	^D MENU^XPDH
	359	"QUES","XPO1","A")
	360	Want KIDS to Rebuild Menu Trees Upon Completion of Install
	361	"QUES","XPO1","B")
	362	NO
	363	"QUES","XPO1","M")
	364	D XPO1^XPDIQ
	365	"QUES","XPZ1",0)
	366	Y
	367	"QUES","XPZ1","??")
	368	^D OPT^XPDH
	369	"QUES","XPZ1","A")
	370	Want to DISABLE Scheduled Options, Menu Options, and Protocols
	371	"QUES","XPZ1","B")
	372	NO
	373	"QUES","XPZ1","M")
	374	D XPZ1^XPDIQ
	375	"QUES","XPZ2",0)
	376	Y
	377	"QUES","XPZ2","??")
	378	^D RTN^XPDH
	379	"QUES","XPZ2","A")
	380	Want to MOVE routines to other CPUs
	381	"QUES","XPZ2","B")
	382	NO
	383	"QUES","XPZ2","M")
	384	D XPZ2^XPDIQ
	385	"RTN")
	386	8
	387	"RTN","C0CEX")
	388	0^2^B811998
	389	"RTN","C0CEX",1,0)
	390	C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
	391	"RTN","C0CEX",2,0)
	392	;;1.0;C0C;;Mar 1, 2010 ;Build 6
	393	"RTN","C0CEX",3,0)
	394	SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
	395	"RTN","C0CEX",4,0)
	396	; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
	397	"RTN","C0CEX",5,0)
	398	N ZR
	399	"RTN","C0CEX",6,0)
	400	I $G(ZAPP)="" Q ;
	401	"RTN","C0CEX",7,0)
	402	I $G(ZPAGE)="" Q ;
	403	"RTN","C0CEX",8,0)
	404	I $G(ZROUTINE)="" Q ;
	405	"RTN","C0CEX",9,0)
	406	S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
	407	"RTN","C0CEX",10,0)
	408	S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
	409	"RTN","C0CEX",11,0)
	410	Q
	411	"RTN","C0CEX",12,0)
	412	;
	413	"RTN","C0CEX",13,0)
	414	KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
	415	"RTN","C0CEX",14,0)
	416	; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
	417	"RTN","C0CEX",15,0)
	418	I $G(ZAPP)="" Q ;
	419	"RTN","C0CEX",16,0)
	420	I $G(ZPAGE)="" Q ;
	421	"RTN","C0CEX",17,0)
	422	K ^zewd("routineMap",ZAPP,ZPAGE)
	423	"RTN","C0CEX",18,0)
	424	Q
	425	"RTN","C0CROB")
	426	0^1^B1053192
	427	"RTN","C0CROB",1,0)
	428	;;C0CROB
	429	"RTN","C0CROB",2,0)
	430	;;;;;;Build 6
	431	"RTN","C0CROB",3,0)
	432	TEST1(sessid) ;
	433	"RTN","C0CROB",4,0)
	434	D setSessionValue^%zewdAPI("name","PROVIDER,TWOHUNDREDNINETYSIX",sessid)
	435	"RTN","C0CROB",5,0)
	436	S TITLE=$G(^C0CROB("TITLE"))
	437	"RTN","C0CROB",6,0)
	438	I TITLE="" S TITLE="Scholar Extraordinaire"
	439	"RTN","C0CROB",7,0)
	440	D setSessionValue^%zewdAPI("TITLE",TITLE,sessid)
	441	"RTN","C0CROB",8,0)
	442	Q ""
	443	"RTN","C0CROB",9,0)
	444	SAVEFORM(sessid) ;
	445	"RTN","C0CROB",10,0)
	446	S TITLE=$$getSessionValue^%zewdAPI("TITLE",sessid)
	447	"RTN","C0CROB",11,0)
	448	I TITLE="" Q "You must enter a title"
	449	"RTN","C0CROB",12,0)
	450	S ^C0CROB("TITLE")=TITLE
	451	"RTN","C0CROB",13,0)
	452	Q ""
	453	"RTN","C0CROB",14,0)
	454	VALIDATETITLE(value) ;
	455	"RTN","C0CROB",15,0)
	456	I value="" Q "alert('you must enter a title');"
	457	"RTN","C0CROB",16,0)
	458	Q ""
	459	"RTN","C0CROB",17,0)
	460	;
	461	"RTN","C0E0000A")
	462	0^3^B15300816
	463	"RTN","C0E0000A",1,0)
	464	C0E0000A ; C0E EWD generated code; 3/1/10
	465	"RTN","C0E0000A",2,0)
	466	;;1.0;C0E;;Mar 1, 2010 ;Build 6
	467	"RTN","C0E0000A",3,0)
	468	;GT.M version of page ewdAjaxError (screenman application)
	469	"RTN","C0E0000A",4,0)
	470	;Compiled on Sun, 28 Feb 2010 19:55:22
	471	"RTN","C0E0000A",5,0)
	472	;using Enterprise Web Developer (Build 790)
	473	"RTN","C0E0000A",6,0)
	474	QUIT
	475	"RTN","C0E0000A",7,0)
	476	;
	477	"RTN","C0E0000A",8,0)
	478	run ;
	479	"RTN","C0E0000A",9,0)
	480	n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
	481	"RTN","C0E0000A",10,0)
	482	s ok=$$pre()
	483	"RTN","C0E0000A",11,0)
	484	i ok d body
	485	"RTN","C0E0000A",12,0)
	486	QUIT
	487	"RTN","C0E0000A",13,0)
	488	;
	489	"RTN","C0E0000A",14,0)
	490	pre() ;
	491	"RTN","C0E0000A",15,0)
	492	;
	493	"RTN","C0E0000A",16,0)
	494	n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
	495	"RTN","C0E0000A",17,0)
	496	;
	497	"RTN","C0E0000A",18,0)
	498	s confirmText="Click OK if you're sure you want to delete this record"
	499	"RTN","C0E0000A",19,0)
	500	s sessionArray("ewd_isFirstPage")="1"
	501	"RTN","C0E0000A",20,0)
	502	s sessionArray("ewd_sessid_timeout")="1200"
	503	"RTN","C0E0000A",21,0)
	504	s sessionArray("ewd_prePageScript")=""
	505	"RTN","C0E0000A",22,0)
	506	s sessionArray("ewd_default_timeout")="1200"
	507	"RTN","C0E0000A",23,0)
	508	s sessionArray("ewd_persistRequest")="true"
	509	"RTN","C0E0000A",24,0)
	510	s sessionArray("ewd_pageTitle")=""
	511	"RTN","C0E0000A",25,0)
	512	s sessionArray("ewd_errorPage")="ewdError"
	513	"RTN","C0E0000A",26,0)
	514	s sessionArray("ewd_templatePrePageScript")=""
	515	"RTN","C0E0000A",27,0)
	516	s sessionArray("ewd_onErrorScript")=""
	517	"RTN","C0E0000A",28,0)
	518	s sessionArray("ewd_appName")="screenman"
	519	"RTN","C0E0000A",29,0)
	520	s sessionArray("ewd_pageName")="ewdAjaxError"
	521	"RTN","C0E0000A",30,0)
	522	s sessionArray("ewd_translationMode")="0"
	523	"RTN","C0E0000A",31,0)
	524	s sessionArray("ewd_technology")="gtm"
	525	"RTN","C0E0000A",32,0)
	526	s sessionArray("ewd_pageType")=""
	527	"RTN","C0E0000A",33,0)
	528	s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
	529	"RTN","C0E0000A",34,0)
	530	s sessid=$g(sessionArray("ewd_sessid"))
	531	"RTN","C0E0000A",35,0)
	532	i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
	533	"RTN","C0E0000A",36,0)
	534	. s Error=$p(Error,":",2,200)
	535	"RTN","C0E0000A",37,0)
	536	. s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
	537	"RTN","C0E0000A",38,0)
	538	. s Error="EWD runtime error: "_Error
	539	"RTN","C0E0000A",39,0)
	540	i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
	541	"RTN","C0E0000A",40,0)
	542	. n errorPage
	543	"RTN","C0E0000A",41,0)
	544	. s errorPage=$g(sessionArray("ewd_errorPage"))
	545	"RTN","C0E0000A",42,0)
	546	. i errorPage="" s errorPage="ewdError"
	547	"RTN","C0E0000A",43,0)
	548	. i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
	549	"RTN","C0E0000A",44,0)
	550	. d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
	551	"RTN","C0E0000A",45,0)
	552	s stop=0
	553	"RTN","C0E0000A",46,0)
	554	i Error="" d i stop QUIT 0
	555	"RTN","C0E0000A",47,0)
	556	. n nextpage
	557	"RTN","C0E0000A",48,0)
	558	. s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
	559	"RTN","C0E0000A",49,0)
	560	. i nextpage'="" d
	561	"RTN","C0E0000A",50,0)
	562	. . n x
	563	"RTN","C0E0000A",51,0)
	564	. . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
	565	"RTN","C0E0000A",52,0)
	566	. . s stop=1
	567	"RTN","C0E0000A",53,0)
	568	i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
	569	"RTN","C0E0000A",54,0)
	570	. s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
	571	"RTN","C0E0000A",55,0)
	572	. d deleteFromSession^%zewdAPI("ewd_warning",sessid)
	573	"RTN","C0E0000A",56,0)
	574	w "HTTP/1.1 200 OK"_$c(13,10)
	575	"RTN","C0E0000A",57,0)
	576	s ctype="text/html"
	577	"RTN","C0E0000A",58,0)
	578	d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
	579	"RTN","C0E0000A",59,0)
	580	i $d(headers) d
	581	"RTN","C0E0000A",60,0)
	582	. n lcname,name
	583	"RTN","C0E0000A",61,0)
	584	. s name=""
	585	"RTN","C0E0000A",62,0)
	586	. f s name=$o(headers(name)) q:name="" d
	587	"RTN","C0E0000A",63,0)
	588	. . s lcname=$$zcvt^%zewdAPI(name,"l")
	589	"RTN","C0E0000A",64,0)
	590	. . i lcname="content-type" s ctype=headers(name) q
	591	"RTN","C0E0000A",65,0)
	592	. . w name_": "_headers(name)_$c(13,10)
	593	"RTN","C0E0000A",66,0)
	594	w "Content-type: "_ctype_$c(13,10)
	595	"RTN","C0E0000A",67,0)
	596	w $c(13,10)
	597	"RTN","C0E0000A",68,0)
	598	QUIT 1
	599	"RTN","C0E0000A",69,0)
	600	;
	601	"RTN","C0E0000A",70,0)
	602	body ;
	603	"RTN","C0E0000A",71,0)
	604	w "<ewdajaxerror>"_$c(13,10)
	605	"RTN","C0E0000A",72,0)
	606	w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
	607	"RTN","C0E0000A",73,0)
	608	w "</ewdajaxerror>"_$c(13,10)
	609	"RTN","C0E0000A",74,0)
	610	QUIT
	611	"RTN","C0E0000E")
	612	0^5^B28122696
	613	"RTN","C0E0000E",1,0)
	614	C0E0000E ; C0E EWD generated code; 3/1/10
	615	"RTN","C0E0000E",2,0)
	616	;;1.0;C0E;;Mar 1, 2010 ;Build 6
	617	"RTN","C0E0000E",3,0)
	618	;GT.M version of page ewdError (screenman application)
	619	"RTN","C0E0000E",4,0)
	620	;Compiled on Sun, 28 Feb 2010 19:55:23
	621	"RTN","C0E0000E",5,0)
	622	;using Enterprise Web Developer (Build 790)
	623	"RTN","C0E0000E",6,0)
	624	QUIT
	625	"RTN","C0E0000E",7,0)
	626	;
	627	"RTN","C0E0000E",8,0)
	628	run ;
	629	"RTN","C0E0000E",9,0)
	630	n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
	631	"RTN","C0E0000E",10,0)
	632	s ok=$$pre()
	633	"RTN","C0E0000E",11,0)
	634	i ok d body
	635	"RTN","C0E0000E",12,0)
	636	QUIT
	637	"RTN","C0E0000E",13,0)
	638	;
	639	"RTN","C0E0000E",14,0)
	640	pre() ;
	641	"RTN","C0E0000E",15,0)
	642	;
	643	"RTN","C0E0000E",16,0)
	644	n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
	645	"RTN","C0E0000E",17,0)
	646	;
	647	"RTN","C0E0000E",18,0)
	648	w "HTTP/1.1 200 OK"_$c(13,10)
	649	"RTN","C0E0000E",19,0)
	650	w "Content-type: text/html"_$c(13,10,13,10)
	651	"RTN","C0E0000E",20,0)
	652	QUIT 1
	653	"RTN","C0E0000E",21,0)
	654	;
	655	"RTN","C0E0000E",22,0)
	656	body ;
	657	"RTN","C0E0000E",23,0)
	658	w ""_$c(13,10)
	659	"RTN","C0E0000E",24,0)
	660	w "<html>"_$c(13,10)
	661	"RTN","C0E0000E",25,0)
	662	w "<head>"_$c(13,10)
	663	"RTN","C0E0000E",26,0)
	664	w "<title>Enterprise Web Developer : A run-time error has occurred</title>"_$c(13,10)
	665	"RTN","C0E0000E",27,0)
	666	w "<style type=""text/css"">"_$c(13,10)
	667	"RTN","C0E0000E",28,0)
	668	w " body {background: #ffffff ;}"_$c(13,10)
	669	"RTN","C0E0000E",29,0)
	670	w " .headerBlock {width: 100% ; background : #111111 ; horizontal-align : center ; }"_$c(13,10)
	671	"RTN","C0E0000E",30,0)
	672	w " .headerBlock[class] {width: 100% ; background : #111111 ; horizontal-align : center ; position: relative ; top : 30px ; border-right-style : solid ; border-right-width: 2px ; }"_$c(13,10)
	673	"RTN","C0E0000E",31,0)
	674	w " #headerText {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 11pt ; margin-left: 10px}"_$c(13,10)
	675	"RTN","C0E0000E",32,0)
	676	w " #headerSubject {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 11pt ; position: relative ; top: -30px ; text-align: center ;}"_$c(13,10)
	677	"RTN","C0E0000E",33,0)
	678	w " .selectedTab {border-style: outset ; background: #eeeedd ; padding-left: 8px ; padding-right: 8px ;}"_$c(13,10)
	679	"RTN","C0E0000E",34,0)
	680	w " .unselectedTab {border-style: groove ; padding-left: 8px ; padding-right: 8px ;}"_$c(13,10)
	681	"RTN","C0E0000E",35,0)
	682	w " #tabs {cursor : pointer ; height: 20px ; background : #cccccc ; text-align: center ; position: relative ; left: 25px ; font-family : Arial, Helvetica, sens-serif ; font-size: 11pt}"_$c(13,10)
	683	"RTN","C0E0000E",36,0)
	684	w " #mainArea {background : #dfe2f1 ; padding: 0 ; horizontal-align: center ; width : 100% ; height: auto ; border-style: solid ; border-left-width: 1px ; border-right-width: 1px ; padding-top : 0px ; margin-top : 0px}"_$c(13,10)
	685	"RTN","C0E0000E",37,0)
	686	w " #workArea {background : #ffffff ; horizontal-align: center ; position: relative ; top: -6px ; left: 25px ; width : 95% ; height: auto ; font-family : Arial, Helvetica, sens-serif ; font-size: 12pt ; border-style: outset}"_$c(13,10)
	687	"RTN","C0E0000E",38,0)
	688	w " #pageTitle {width: 100% ; height: 50px ; text-align : center ; horizontal-align : center ; font-family: Arial, sans-serif ;}"_$c(13,10)
	689	"RTN","C0E0000E",39,0)
	690	w " .footerBlock {width: 100% ; background : #111111 ; horizontal-align : center ;}"_$c(13,10)
	691	"RTN","C0E0000E",40,0)
	692	w " .footerBlock[class] {width: 100% ; background : #111111 ; horizontal-align : center ; position: relative ; top : -15px ; border-right-style : solid ; border-right-width: 2px ; }"_$c(13,10)
	693	"RTN","C0E0000E",41,0)
	694	w " #footerText {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 8pt ; margin-left : 10px}"_$c(13,10)
	695	"RTN","C0E0000E",42,0)
	696	w " #tableblock {text-align: center ; margin-top: 40px}"_$c(13,10)
	697	"RTN","C0E0000E",43,0)
	698	w " #hiddenForm {visibility: hidden ;}"_$c(13,10)
	699	"RTN","C0E0000E",44,0)
	700	w "</style>"_$c(13,10)
	701	"RTN","C0E0000E",45,0)
	702	w "</head>"_$c(13,10)
	703	"RTN","C0E0000E",46,0)
	704	w "<body>"_$c(13,10)
	705	"RTN","C0E0000E",47,0)
	706	w ""_$c(13,10)
	707	"RTN","C0E0000E",48,0)
	708	w " <div id=""mainArea"">"_$c(13,10)
	709	"RTN","C0E0000E",49,0)
	710	w " <div id=""pageTitle"">"_$c(13,10)
	711	"RTN","C0E0000E",50,0)
	712	w " <h1>Enterprise Web Developer (Build 790)</h1>"_$c(13,10)
	713	"RTN","C0E0000E",51,0)
	714	w " </div>"_$c(13,10)
	715	"RTN","C0E0000E",52,0)
	716	w ""_$c(13,10)
	717	"RTN","C0E0000E",53,0)
	718	w " <div id=""workArea"">"_$c(13,10)
	719	"RTN","C0E0000E",54,0)
	720	w " <div id=""tableblock"">"_$c(13,10)
	721	"RTN","C0E0000E",55,0)
	722	w " <h3>An Error has occurred</h3>"_$c(13,10)
	723	"RTN","C0E0000E",56,0)
	724	w " <br>"_$c(13,10)
	725	"RTN","C0E0000E",57,0)
	726	w " <h3>"_$g(%KEY("error"))_"</h3>"_$c(13,10)
	727	"RTN","C0E0000E",58,0)
	728	w " </div>"_$c(13,10)
	729	"RTN","C0E0000E",59,0)
	730	w " </div>"_$c(13,10)
	731	"RTN","C0E0000E",60,0)
	732	w " </div>"_$c(13,10)
	733	"RTN","C0E0000E",61,0)
	734	w ""_$c(13,10)
	735	"RTN","C0E0000E",62,0)
	736	w " <div class=footerBlock>"_$c(13,10)
	737	"RTN","C0E0000E",63,0)
	738	w " <p id=""footerText""> © 2004-2009 M/Gateway Developments Ltd All Rights Reserved</p>"_$c(13,10)
	739	"RTN","C0E0000E",64,0)
	740	w " </div>"_$c(13,10)
	741	"RTN","C0E0000E",65,0)
	742	w "</body>"_$c(13,10)
	743	"RTN","C0E0000E",66,0)
	744	w "</html>"_$c(13,10)
	745	"RTN","C0E0000E",67,0)
	746	QUIT
	747	"RTN","C0E0000F")
	748	0^4^B33308637
	749	"RTN","C0E0000F",1,0)
	750	C0E0000F ; C0E EWD generated code; 3/1/10
	751	"RTN","C0E0000F",2,0)
	752	;;1.0;C0E;;Mar 1, 2010 ;Build 6
	753	"RTN","C0E0000F",3,0)
	754	;GT.M version of page ewdAjaxErrorRedirect (screenman application)
	755	"RTN","C0E0000F",4,0)
	756	;Compiled on Sun, 28 Feb 2010 19:55:22
	757	"RTN","C0E0000F",5,0)
	758	;using Enterprise Web Developer (Build 790)
	759	"RTN","C0E0000F",6,0)
	760	QUIT
	761	"RTN","C0E0000F",7,0)
	762	;
	763	"RTN","C0E0000F",8,0)
	764	run ;
	765	"RTN","C0E0000F",9,0)
	766	n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
	767	"RTN","C0E0000F",10,0)
	768	s ok=$$pre()
	769	"RTN","C0E0000F",11,0)
	770	i ok d body
	771	"RTN","C0E0000F",12,0)
	772	QUIT
	773	"RTN","C0E0000F",13,0)
	774	;
	775	"RTN","C0E0000F",14,0)
	776	pre() ;
	777	"RTN","C0E0000F",15,0)
	778	;
	779	"RTN","C0E0000F",16,0)
	780	n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
	781	"RTN","C0E0000F",17,0)
	782	;
	783	"RTN","C0E0000F",18,0)
	784	s confirmText="Click OK if you're sure you want to delete this record"
	785	"RTN","C0E0000F",19,0)
	786	s sessionArray("ewd_isFirstPage")="0"
	787	"RTN","C0E0000F",20,0)
	788	s sessionArray("ewd_sessid_timeout")="1200"
	789	"RTN","C0E0000F",21,0)
	790	s sessionArray("ewd_prePageScript")=""
	791	"RTN","C0E0000F",22,0)
	792	s sessionArray("ewd_default_timeout")="1200"
	793	"RTN","C0E0000F",23,0)
	794	s sessionArray("ewd_persistRequest")="true"
	795	"RTN","C0E0000F",24,0)
	796	s sessionArray("ewd_pageTitle")=""
	797	"RTN","C0E0000F",25,0)
	798	s sessionArray("ewd_errorPage")="ewdError"
	799	"RTN","C0E0000F",26,0)
	800	s sessionArray("ewd_templatePrePageScript")=""
	801	"RTN","C0E0000F",27,0)
	802	s sessionArray("ewd_onErrorScript")=""
	803	"RTN","C0E0000F",28,0)
	804	s sessionArray("ewd_appName")="screenman"
	805	"RTN","C0E0000F",29,0)
	806	s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
	807	"RTN","C0E0000F",30,0)
	808	s sessionArray("ewd_translationMode")="0"
	809	"RTN","C0E0000F",31,0)
	810	s sessionArray("ewd_technology")="gtm"
	811	"RTN","C0E0000F",32,0)
	812	s sessionArray("ewd_pageType")="ajax"
	813	"RTN","C0E0000F",33,0)
	814	s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
	815	"RTN","C0E0000F",34,0)
	816	s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
	817	"RTN","C0E0000F",35,0)
	818	s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
	819	"RTN","C0E0000F",36,0)
	820	s sessid=$g(sessionArray("ewd_sessid"))
	821	"RTN","C0E0000F",37,0)
	822	i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
	823	"RTN","C0E0000F",38,0)
	824	. s Error=$p(Error,":",2,200)
	825	"RTN","C0E0000F",39,0)
	826	. s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
	827	"RTN","C0E0000F",40,0)
	828	. s Error="EWD runtime error: "_Error
	829	"RTN","C0E0000F",41,0)
	830	i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
	831	"RTN","C0E0000F",42,0)
	832	. n errorPage
	833	"RTN","C0E0000F",43,0)
	834	. s errorPage=$g(sessionArray("ewd_errorPage"))
	835	"RTN","C0E0000F",44,0)
	836	. i errorPage="" s errorPage="ewdError"
	837	"RTN","C0E0000F",45,0)
	838	. i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
	839	"RTN","C0E0000F",46,0)
	840	. d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
	841	"RTN","C0E0000F",47,0)
	842	s stop=0
	843	"RTN","C0E0000F",48,0)
	844	i Error="" d i stop QUIT 0
	845	"RTN","C0E0000F",49,0)
	846	. n nextpage
	847	"RTN","C0E0000F",50,0)
	848	. s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
	849	"RTN","C0E0000F",51,0)
	850	. i nextpage'="" d
	851	"RTN","C0E0000F",52,0)
	852	. . n x
	853	"RTN","C0E0000F",53,0)
	854	. . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
	855	"RTN","C0E0000F",54,0)
	856	. . s stop=1
	857	"RTN","C0E0000F",55,0)
	858	i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
	859	"RTN","C0E0000F",56,0)
	860	. s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
	861	"RTN","C0E0000F",57,0)
	862	. d deleteFromSession^%zewdAPI("ewd_warning",sessid)
	863	"RTN","C0E0000F",58,0)
	864	w "HTTP/1.1 200 OK"_$c(13,10)
	865	"RTN","C0E0000F",59,0)
	866	s ctype="text/html"
	867	"RTN","C0E0000F",60,0)
	868	d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
	869	"RTN","C0E0000F",61,0)
	870	i $d(headers) d
	871	"RTN","C0E0000F",62,0)
	872	. n lcname,name
	873	"RTN","C0E0000F",63,0)
	874	. s name=""
	875	"RTN","C0E0000F",64,0)
	876	. f s name=$o(headers(name)) q:name="" d
	877	"RTN","C0E0000F",65,0)
	878	. . s lcname=$$zcvt^%zewdAPI(name,"l")
	879	"RTN","C0E0000F",66,0)
	880	. . i lcname="content-type" s ctype=headers(name) q
	881	"RTN","C0E0000F",67,0)
	882	. . w name_": "_headers(name)_$c(13,10)
	883	"RTN","C0E0000F",68,0)
	884	w "Content-type: "_ctype_$c(13,10)
	885	"RTN","C0E0000F",69,0)
	886	w $c(13,10)
	887	"RTN","C0E0000F",70,0)
	888	QUIT 1
	889	"RTN","C0E0000F",71,0)
	890	;
	891	"RTN","C0E0000F",72,0)
	892	body ;
	893	"RTN","C0E0000F",73,0)
	894	if ($g(Error)="") d
	895	"RTN","C0E0000F",74,0)
	896	.w " <span>"_$c(13,10)
	897	"RTN","C0E0000F",75,0)
	898	.w " <div href='/ewd/screenman/ewdErrorRedirect.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("ewdErrorRedirect")_"&ewd_urlNo=ewdAjaxErrorRedirect1' id=""zewdRef"">"_$c(13,10)
	899	"RTN","C0E0000F",76,0)
	900	.w "</div>"_$c(13,10)
	901	"RTN","C0E0000F",77,0)
	902	.w " </span>"_$c(13,10)
	903	"RTN","C0E0000F",78,0)
	904	.
	905	"RTN","C0E0000F",79,0)
	906	w "<span id=""ewdajaxonload"">"_$c(13,10)
	907	"RTN","C0E0000F",80,0)
	908	w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
	909	"RTN","C0E0000F",81,0)
	910	s id=""
	911	"RTN","C0E0000F",82,0)
	912	f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
	913	"RTN","C0E0000F",83,0)
	914	. w "idPointer = document.getElementById('"_id_"') ; "
	915	"RTN","C0E0000F",84,0)
	916	. w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
	917	"RTN","C0E0000F",85,0)
	918	s id=""
	919	"RTN","C0E0000F",86,0)
	920	f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
	921	"RTN","C0E0000F",87,0)
	922	. w "idPointer = document.getElementById('"_id_"') ; "
	923	"RTN","C0E0000F",88,0)
	924	. w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
	925	"RTN","C0E0000F",89,0)
	926	k ^%zewdSession("session","ewd_hasErrors")
	927	"RTN","C0E0000F",90,0)
	928	k ^%zewdSession("session","ewd_errorFields")
	929	"RTN","C0E0000F",91,0)
	930	k ^%zewdSession("session","ewd_idList")
	931	"RTN","C0E0000F",92,0)
	932	w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
	933	"RTN","C0E0000F",93,0)
	934	w "</span>"_$c(13,10)
	935	"RTN","C0E0000F",94,0)
	936	QUIT
	937	"RTN","C0E0000R")
	938	0^6^B67797780
	939	"RTN","C0E0000R",1,0)
	940	C0E0000R ; C0E EWD generated code; 3/1/10
	941	"RTN","C0E0000R",2,0)
	942	;;1.0;C0E;;Mar 1, 2010 ;Build 6
	943	"RTN","C0E0000R",3,0)
	944	;GT.M version of page ewdErrorRedirect (screenman application)
	945	"RTN","C0E0000R",4,0)
	946	;Compiled on Sun, 28 Feb 2010 19:55:22
	947	"RTN","C0E0000R",5,0)
	948	;using Enterprise Web Developer (Build 790)
	949	"RTN","C0E0000R",6,0)
	950	QUIT
	951	"RTN","C0E0000R",7,0)
	952	;
	953	"RTN","C0E0000R",8,0)
	954	run ;
	955	"RTN","C0E0000R",9,0)
	956	n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
	957	"RTN","C0E0000R",10,0)
	958	s ok=$$pre()
	959	"RTN","C0E0000R",11,0)
	960	i ok d body
	961	"RTN","C0E0000R",12,0)
	962	QUIT
	963	"RTN","C0E0000R",13,0)
	964	;
	965	"RTN","C0E0000R",14,0)
	966	pre() ;
	967	"RTN","C0E0000R",15,0)
	968	;
	969	"RTN","C0E0000R",16,0)
	970	n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
	971	"RTN","C0E0000R",17,0)
	972	;
	973	"RTN","C0E0000R",18,0)
	974	s confirmText="Click OK if you're sure you want to delete this record"
	975	"RTN","C0E0000R",19,0)
	976	s sessionArray("ewd_isFirstPage")="0"
	977	"RTN","C0E0000R",20,0)
	978	s sessionArray("ewd_sessid_timeout")="1200"
	979	"RTN","C0E0000R",21,0)
	980	s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
	981	"RTN","C0E0000R",22,0)
	982	s sessionArray("ewd_default_timeout")="1200"
	983	"RTN","C0E0000R",23,0)
	984	s sessionArray("ewd_persistRequest")="true"
	985	"RTN","C0E0000R",24,0)
	986	s sessionArray("ewd_pageTitle")=""
	987	"RTN","C0E0000R",25,0)
	988	s sessionArray("ewd_errorPage")="ewdError"
	989	"RTN","C0E0000R",26,0)
	990	s sessionArray("ewd_templatePrePageScript")=""
	991	"RTN","C0E0000R",27,0)
	992	s sessionArray("ewd_onErrorScript")=""
	993	"RTN","C0E0000R",28,0)
	994	s sessionArray("ewd_appName")="screenman"
	995	"RTN","C0E0000R",29,0)
	996	s sessionArray("ewd_pageName")="ewdErrorRedirect"
	997	"RTN","C0E0000R",30,0)
	998	s sessionArray("ewd_translationMode")="0"
	999	"RTN","C0E0000R",31,0)
	1000	s sessionArray("ewd_technology")="gtm"
	1001	"RTN","C0E0000R",32,0)
	1002	s sessionArray("ewd_pageType")=""
	1003	"RTN","C0E0000R",33,0)
	1004	s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
	1005	"RTN","C0E0000R",34,0)
	1006	s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
	1007	"RTN","C0E0000R",35,0)
	1008	s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
	1009	"RTN","C0E0000R",36,0)
	1010	s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
	1011	"RTN","C0E0000R",37,0)
	1012	s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
	1013	"RTN","C0E0000R",38,0)
	1014	s sessid=$g(sessionArray("ewd_sessid"))
	1015	"RTN","C0E0000R",39,0)
	1016	i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
	1017	"RTN","C0E0000R",40,0)
	1018	. s Error=$p(Error,":",2,200)
	1019	"RTN","C0E0000R",41,0)
	1020	. s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
	1021	"RTN","C0E0000R",42,0)
	1022	. s Error="EWD runtime error: "_Error
	1023	"RTN","C0E0000R",43,0)
	1024	i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
	1025	"RTN","C0E0000R",44,0)
	1026	. n errorPage
	1027	"RTN","C0E0000R",45,0)
	1028	. s errorPage=$g(sessionArray("ewd_errorPage"))
	1029	"RTN","C0E0000R",46,0)
	1030	. i errorPage="" s errorPage="ewdError"
	1031	"RTN","C0E0000R",47,0)
	1032	. i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
	1033	"RTN","C0E0000R",48,0)
	1034	. d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
	1035	"RTN","C0E0000R",49,0)
	1036	s stop=0
	1037	"RTN","C0E0000R",50,0)
	1038	i Error="" d i stop QUIT 0
	1039	"RTN","C0E0000R",51,0)
	1040	. n nextpage
	1041	"RTN","C0E0000R",52,0)
	1042	. s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
	1043	"RTN","C0E0000R",53,0)
	1044	. i nextpage'="" d
	1045	"RTN","C0E0000R",54,0)
	1046	. . n x
	1047	"RTN","C0E0000R",55,0)
	1048	. . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
	1049	"RTN","C0E0000R",56,0)
	1050	. . s stop=1
	1051	"RTN","C0E0000R",57,0)
	1052	i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
	1053	"RTN","C0E0000R",58,0)
	1054	. s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
	1055	"RTN","C0E0000R",59,0)
	1056	. d deleteFromSession^%zewdAPI("ewd_warning",sessid)
	1057	"RTN","C0E0000R",60,0)
	1058	w "HTTP/1.1 200 OK"_$c(13,10)
	1059	"RTN","C0E0000R",61,0)
	1060	s ctype="text/html"
	1061	"RTN","C0E0000R",62,0)
	1062	d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
	1063	"RTN","C0E0000R",63,0)
	1064	i $d(headers) d
	1065	"RTN","C0E0000R",64,0)
	1066	. n lcname,name
	1067	"RTN","C0E0000R",65,0)
	1068	. s name=""
	1069	"RTN","C0E0000R",66,0)
	1070	. f s name=$o(headers(name)) q:name="" d
	1071	"RTN","C0E0000R",67,0)
	1072	. . s lcname=$$zcvt^%zewdAPI(name,"l")
	1073	"RTN","C0E0000R",68,0)
	1074	. . i lcname="content-type" s ctype=headers(name) q
	1075	"RTN","C0E0000R",69,0)
	1076	. . w name_": "_headers(name)_$c(13,10)
	1077	"RTN","C0E0000R",70,0)
	1078	w "Content-type: "_ctype_$c(13,10)
	1079	"RTN","C0E0000R",71,0)
	1080	w $c(13,10)
	1081	"RTN","C0E0000R",72,0)
	1082	QUIT 1
	1083	"RTN","C0E0000R",73,0)
	1084	;
	1085	"RTN","C0E0000R",74,0)
	1086	body ;
	1087	"RTN","C0E0000R",75,0)
	1088	w "<html>"_$c(13,10)
	1089	"RTN","C0E0000R",76,0)
	1090	w " <head>"_$c(13,10)
	1091	"RTN","C0E0000R",77,0)
	1092	w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
	1093	"RTN","C0E0000R",78,0)
	1094	w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
	1095	"RTN","C0E0000R",79,0)
	1096	w "</script>"_$c(13,10)
	1097	"RTN","C0E0000R",80,0)
	1098	w " <title>"_$c(13,10)
	1099	"RTN","C0E0000R",81,0)
	1100	w "Ajax Error Redirect page"_""
	1101	"RTN","C0E0000R",82,0)
	1102	w " </title>"_$c(13,10)
	1103	"RTN","C0E0000R",83,0)
	1104	w " <head>"_$c(13,10)
	1105	"RTN","C0E0000R",84,0)
	1106	w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
	1107	"RTN","C0E0000R",85,0)
	1108	w "Please wait...."_""
	1109	"RTN","C0E0000R",86,0)
	1110	w " </body>"_$c(13,10)
	1111	"RTN","C0E0000R",87,0)
	1112	w " </head>"_$c(13,10)
	1113	"RTN","C0E0000R",88,0)
	1114	w " <script language=""javascript"">"_$c(13,10)
	1115	"RTN","C0E0000R",89,0)
	1116	w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
	1117	"RTN","C0E0000R",90,0)
	1118	w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
	1119	"RTN","C0E0000R",91,0)
	1120	w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
	1121	"RTN","C0E0000R",92,0)
	1122	w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
	1123	"RTN","C0E0000R",93,0)
	1124	w " } ;"_$c(13,10)
	1125	"RTN","C0E0000R",94,0)
	1126	w " EWD.page.setErrorClass = function () { "_$c(13,10)
	1127	"RTN","C0E0000R",95,0)
	1128	w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
	1129	"RTN","C0E0000R",96,0)
	1130	w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("setErrorClasses^%zewdAPI")_"','','synch','','') ;"_$c(13,10)
	1131	"RTN","C0E0000R",97,0)
	1132	w " }"_$c(13,10)
	1133	"RTN","C0E0000R",98,0)
	1134	w " } ;"_$c(13,10)
	1135	"RTN","C0E0000R",99,0)
	1136	w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
	1137	"RTN","C0E0000R",100,0)
	1138	w " var json,x ;"_$c(13,10)
	1139	"RTN","C0E0000R",101,0)
	1140	w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
	1141	"RTN","C0E0000R",102,0)
	1142	w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
	1143	"RTN","C0E0000R",103,0)
	1144	w " eval(x) ;"_$c(13,10)
	1145	"RTN","C0E0000R",104,0)
	1146	w " }"_$c(13,10)
	1147	"RTN","C0E0000R",105,0)
	1148	w " else {"_$c(13,10)
	1149	"RTN","C0E0000R",106,0)
	1150	w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
	1151	"RTN","C0E0000R",107,0)
	1152	w " //eval(x) ;"_$c(13,10)
	1153	"RTN","C0E0000R",108,0)
	1154	w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
	1155	"RTN","C0E0000R",109,0)
	1156	w " eval(x) ;"_$c(13,10)
	1157	"RTN","C0E0000R",110,0)
	1158	w " //json=toJsonString(objName);"_$c(13,10)
	1159	"RTN","C0E0000R",111,0)
	1160	w " }"_$c(13,10)
	1161	"RTN","C0E0000R",112,0)
	1162	w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("saveJSON^%zewdAPI")_"&px1=' + objName + '&px2=' + json + '','','synch','','') ;"_$c(13,10)
	1163	"RTN","C0E0000R",113,0)
	1164	w " } ;"_$c(13,10)
	1165	"RTN","C0E0000R",114,0)
	1166	w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
	1167	"RTN","C0E0000R",115,0)
	1168	w " if (refresh) {"_$c(13,10)
	1169	"RTN","C0E0000R",116,0)
	1170	w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
	1171	"RTN","C0E0000R",117,0)
	1172	w " var objExists = ""undefined"" ;"_$c(13,10)
	1173	"RTN","C0E0000R",118,0)
	1174	w " }"_$c(13,10)
	1175	"RTN","C0E0000R",119,0)
	1176	w " else {"_$c(13,10)
	1177	"RTN","C0E0000R",120,0)
	1178	w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
	1179	"RTN","C0E0000R",121,0)
	1180	w " eval(x) ;"_$c(13,10)
	1181	"RTN","C0E0000R",122,0)
	1182	w " }"_$c(13,10)
	1183	"RTN","C0E0000R",123,0)
	1184	w " if (objExists == ""undefined"") {"_$c(13,10)
	1185	"RTN","C0E0000R",124,0)
	1186	w " var addRef = 0 ;"_$c(13,10)
	1187	"RTN","C0E0000R",125,0)
	1188	w " if (addRefCol) addRef = 1;"_$c(13,10)
	1189	"RTN","C0E0000R",126,0)
	1190	w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("getJSON^%zewdCompiler13")_"&px1=' + objName + '&px2=' + addRef + '','','synch','','') ;"_$c(13,10)
	1191	"RTN","C0E0000R",127,0)
	1192	w ""_""
	1193	"RTN","C0E0000R",128,0)
	1194	w " };"_$c(13,10)
	1195	"RTN","C0E0000R",129,0)
	1196	w " } ;"_$c(13,10)
	1197	"RTN","C0E0000R",130,0)
	1198	w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
	1199	"RTN","C0E0000R",131,0)
	1200	w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("mergeToJSObject^%zewdAPI")_"&px1=' + sessionName + '&px2=' + JSObjName + '','','synch','','') ;"_$c(13,10)
	1201	"RTN","C0E0000R",132,0)
	1202	w " } ;"_$c(13,10)
	1203	"RTN","C0E0000R",133,0)
	1204	w ""_""
	1205	"RTN","C0E0000R",134,0)
	1206	w " </script>"_$c(13,10)
	1207	"RTN","C0E0000R",135,0)
	1208	w " </head>"_$c(13,10)
	1209	"RTN","C0E0000R",136,0)
	1210	w "</html>"_$c(13,10)
	1211	"RTN","C0E0000R",137,0)
	1212	QUIT
	1213	"RTN","C0E0001I")
	1214	0^7^B20709402
	1215	"RTN","C0E0001I",1,0)
	1216	C0E0001I ; C0E EWD generated code; 3/1/10
	1217	"RTN","C0E0001I",2,0)
	1218	;;1.0;C0E;;Mar 1, 2010 ;Build 6
	1219	"RTN","C0E0001I",3,0)
	1220	;GT.M version of page index (screenman application)
	1221	"RTN","C0E0001I",4,0)
	1222	;Compiled on Sun, 28 Feb 2010 19:55:23
	1223	"RTN","C0E0001I",5,0)
	1224	;using Enterprise Web Developer (Build 790)
	1225	"RTN","C0E0001I",6,0)
	1226	QUIT
	1227	"RTN","C0E0001I",7,0)
	1228	;
	1229	"RTN","C0E0001I",8,0)
	1230	run ;
	1231	"RTN","C0E0001I",9,0)
	1232	n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
	1233	"RTN","C0E0001I",10,0)
	1234	s ok=$$pre()
	1235	"RTN","C0E0001I",11,0)
	1236	i ok d body
	1237	"RTN","C0E0001I",12,0)
	1238	QUIT
	1239	"RTN","C0E0001I",13,0)
	1240	;
	1241	"RTN","C0E0001I",14,0)
	1242	pre() ;
	1243	"RTN","C0E0001I",15,0)
	1244	;
	1245	"RTN","C0E0001I",16,0)
	1246	n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
	1247	"RTN","C0E0001I",17,0)
	1248	;
	1249	"RTN","C0E0001I",18,0)
	1250	s confirmText="Click OK if you're sure you want to delete this record"
	1251	"RTN","C0E0001I",19,0)
	1252	s sessionArray("ewd_isFirstPage")="1"
	1253	"RTN","C0E0001I",20,0)
	1254	s sessionArray("ewd_sessid_timeout")="1200"
	1255	"RTN","C0E0001I",21,0)
	1256	s sessionArray("ewd_prePageScript")=""
	1257	"RTN","C0E0001I",22,0)
	1258	s sessionArray("ewd_default_timeout")="1200"
	1259	"RTN","C0E0001I",23,0)
	1260	s sessionArray("ewd_persistRequest")="true"
	1261	"RTN","C0E0001I",24,0)
	1262	s sessionArray("ewd_pageTitle")=""
	1263	"RTN","C0E0001I",25,0)
	1264	s sessionArray("ewd_errorPage")="ewdError"
	1265	"RTN","C0E0001I",26,0)
	1266	s sessionArray("ewd_templatePrePageScript")=""
	1267	"RTN","C0E0001I",27,0)
	1268	s sessionArray("ewd_onErrorScript")=""
	1269	"RTN","C0E0001I",28,0)
	1270	s sessionArray("ewd_appName")="screenman"
	1271	"RTN","C0E0001I",29,0)
	1272	s sessionArray("ewd_pageName")="index"
	1273	"RTN","C0E0001I",30,0)
	1274	s sessionArray("ewd_translationMode")="0"
	1275	"RTN","C0E0001I",31,0)
	1276	s sessionArray("ewd_technology")="gtm"
	1277	"RTN","C0E0001I",32,0)
	1278	s sessionArray("ewd_pageType")=""
	1279	"RTN","C0E0001I",33,0)
	1280	s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
	1281	"RTN","C0E0001I",34,0)
	1282	s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
	1283	"RTN","C0E0001I",35,0)
	1284	s sessid=$g(sessionArray("ewd_sessid"))
	1285	"RTN","C0E0001I",36,0)
	1286	i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
	1287	"RTN","C0E0001I",37,0)
	1288	. s Error=$p(Error,":",2,200)
	1289	"RTN","C0E0001I",38,0)
	1290	. s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
	1291	"RTN","C0E0001I",39,0)
	1292	. s Error="EWD runtime error: "_Error
	1293	"RTN","C0E0001I",40,0)
	1294	i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
	1295	"RTN","C0E0001I",41,0)
	1296	. n errorPage
	1297	"RTN","C0E0001I",42,0)
	1298	. s errorPage=$g(sessionArray("ewd_errorPage"))
	1299	"RTN","C0E0001I",43,0)
	1300	. i errorPage="" s errorPage="ewdError"
	1301	"RTN","C0E0001I",44,0)
	1302	. i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
	1303	"RTN","C0E0001I",45,0)
	1304	. d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
	1305	"RTN","C0E0001I",46,0)
	1306	s stop=0
	1307	"RTN","C0E0001I",47,0)
	1308	i Error="" d i stop QUIT 0
	1309	"RTN","C0E0001I",48,0)
	1310	. n nextpage
	1311	"RTN","C0E0001I",49,0)
	1312	. s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
	1313	"RTN","C0E0001I",50,0)
	1314	. i nextpage'="" d
	1315	"RTN","C0E0001I",51,0)
	1316	. . n x
	1317	"RTN","C0E0001I",52,0)
	1318	. . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
	1319	"RTN","C0E0001I",53,0)
	1320	. . s stop=1
	1321	"RTN","C0E0001I",54,0)
	1322	i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
	1323	"RTN","C0E0001I",55,0)
	1324	. s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
	1325	"RTN","C0E0001I",56,0)
	1326	. d deleteFromSession^%zewdAPI("ewd_warning",sessid)
	1327	"RTN","C0E0001I",57,0)
	1328	w "HTTP/1.1 200 OK"_$c(13,10)
	1329	"RTN","C0E0001I",58,0)
	1330	s ctype="text/html"
	1331	"RTN","C0E0001I",59,0)
	1332	d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
	1333	"RTN","C0E0001I",60,0)
	1334	i $d(headers) d
	1335	"RTN","C0E0001I",61,0)
	1336	. n lcname,name
	1337	"RTN","C0E0001I",62,0)
	1338	. s name=""
	1339	"RTN","C0E0001I",63,0)
	1340	. f s name=$o(headers(name)) q:name="" d
	1341	"RTN","C0E0001I",64,0)
	1342	. . s lcname=$$zcvt^%zewdAPI(name,"l")
	1343	"RTN","C0E0001I",65,0)
	1344	. . i lcname="content-type" s ctype=headers(name) q
	1345	"RTN","C0E0001I",66,0)
	1346	. . w name_": "_headers(name)_$c(13,10)
	1347	"RTN","C0E0001I",67,0)
	1348	w "Content-type: "_ctype_$c(13,10)
	1349	"RTN","C0E0001I",68,0)
	1350	w $c(13,10)
	1351	"RTN","C0E0001I",69,0)
	1352	QUIT 1
	1353	"RTN","C0E0001I",70,0)
	1354	;
	1355	"RTN","C0E0001I",71,0)
	1356	body ;
	1357	"RTN","C0E0001I",72,0)
	1358	w "<html>"_$c(13,10)
	1359	"RTN","C0E0001I",73,0)
	1360	w " <header>"_$c(13,10)
	1361	"RTN","C0E0001I",74,0)
	1362	w " <title>"_$c(13,10)
	1363	"RTN","C0E0001I",75,0)
	1364	w "Screenman Menu"_""
	1365	"RTN","C0E0001I",76,0)
	1366	w " </title>"_$c(13,10)
	1367	"RTN","C0E0001I",77,0)
	1368	w " </header>"_$c(13,10)
	1369	"RTN","C0E0001I",78,0)
	1370	w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
	1371	"RTN","C0E0001I",79,0)
	1372	w "Hello World"_""
	1373	"RTN","C0E0001I",80,0)
	1374	w " <br />"_$c(13,10)
	1375	"RTN","C0E0001I",81,0)
	1376	w " <br />"_$c(13,10)
	1377	"RTN","C0E0001I",82,0)
	1378	w " <a href='/ewd/screenman/test1.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("test1")_"&ewd_urlNo=index1'>"_$c(13,10)
	1379	"RTN","C0E0001I",83,0)
	1380	w "test1 page"_""
	1381	"RTN","C0E0001I",84,0)
	1382	w " </a>"_$c(13,10)
	1383	"RTN","C0E0001I",85,0)
	1384	w " </body>"_$c(13,10)
	1385	"RTN","C0E0001I",86,0)
	1386	w "</html>"_$c(13,10)
	1387	"RTN","C0E0001I",87,0)
	1388	QUIT
	1389	"RTN","C0E0002")
	1390	0^8^B94303815
	1391	"RTN","C0E0002",1,0)
	1392	C0E0002 ; C0E EWD generated code; 3/1/10
	1393	"RTN","C0E0002",2,0)
	1394	;;1.0;C0E;;Mar 1, 2010 ;Build 6
	1395	"RTN","C0E0002",3,0)
	1396	;GT.M version of page test1 (screenman application)
	1397	"RTN","C0E0002",4,0)
	1398	;Compiled on Sun, 28 Feb 2010 19:55:23
	1399	"RTN","C0E0002",5,0)
	1400	;using Enterprise Web Developer (Build 790)
	1401	"RTN","C0E0002",6,0)
	1402	QUIT
	1403	"RTN","C0E0002",7,0)
	1404	;
	1405	"RTN","C0E0002",8,0)
	1406	run ;
	1407	"RTN","C0E0002",9,0)
	1408	n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
	1409	"RTN","C0E0002",10,0)
	1410	s ok=$$pre()
	1411	"RTN","C0E0002",11,0)
	1412	i ok d body
	1413	"RTN","C0E0002",12,0)
	1414	QUIT
	1415	"RTN","C0E0002",13,0)
	1416	;
	1417	"RTN","C0E0002",14,0)
	1418	pre() ;
	1419	"RTN","C0E0002",15,0)
	1420	;
	1421	"RTN","C0E0002",16,0)
	1422	n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
	1423	"RTN","C0E0002",17,0)
	1424	;
	1425	"RTN","C0E0002",18,0)
	1426	s confirmText="Click OK if you're sure you want to delete this record"
	1427	"RTN","C0E0002",19,0)
	1428	s sessionArray("ewd_isFirstPage")="0"
	1429	"RTN","C0E0002",20,0)
	1430	s sessionArray("ewd_sessid_timeout")="1200"
	1431	"RTN","C0E0002",21,0)
	1432	s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
	1433	"RTN","C0E0002",22,0)
	1434	s sessionArray("ewd_default_timeout")="1200"
	1435	"RTN","C0E0002",23,0)
	1436	s sessionArray("ewd_persistRequest")="true"
	1437	"RTN","C0E0002",24,0)
	1438	s sessionArray("ewd_pageTitle")=""
	1439	"RTN","C0E0002",25,0)
	1440	s sessionArray("ewd_errorPage")="ewdError"
	1441	"RTN","C0E0002",26,0)
	1442	s sessionArray("ewd_templatePrePageScript")=""
	1443	"RTN","C0E0002",27,0)
	1444	s sessionArray("ewd_onErrorScript")=""
	1445	"RTN","C0E0002",28,0)
	1446	s sessionArray("ewd_appName")="screenman"
	1447	"RTN","C0E0002",29,0)
	1448	s sessionArray("ewd_pageName")="test1"
	1449	"RTN","C0E0002",30,0)
	1450	s sessionArray("ewd_translationMode")="0"
	1451	"RTN","C0E0002",31,0)
	1452	s sessionArray("ewd_technology")="gtm"
	1453	"RTN","C0E0002",32,0)
	1454	s sessionArray("ewd_pageType")=""
	1455	"RTN","C0E0002",33,0)
	1456	s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
	1457	"RTN","C0E0002",34,0)
	1458	s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
	1459	"RTN","C0E0002",35,0)
	1460	s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
	1461	"RTN","C0E0002",36,0)
	1462	s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
	1463	"RTN","C0E0002",37,0)
	1464	s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
	1465	"RTN","C0E0002",38,0)
	1466	s formInfo="SSN\|text`TITLE\|text`ewd_pressed\|hidden`submit\|submit`"
	1467	"RTN","C0E0002",39,0)
	1468	d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
	1469	"RTN","C0E0002",40,0)
	1470	s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
	1471	"RTN","C0E0002",41,0)
	1472	s sessid=$g(sessionArray("ewd_sessid"))
	1473	"RTN","C0E0002",42,0)
	1474	i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
	1475	"RTN","C0E0002",43,0)
	1476	. s Error=$p(Error,":",2,200)
	1477	"RTN","C0E0002",44,0)
	1478	. s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
	1479	"RTN","C0E0002",45,0)
	1480	. s Error="EWD runtime error: "_Error
	1481	"RTN","C0E0002",46,0)
	1482	i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
	1483	"RTN","C0E0002",47,0)
	1484	. n errorPage
	1485	"RTN","C0E0002",48,0)
	1486	. s errorPage=$g(sessionArray("ewd_errorPage"))
	1487	"RTN","C0E0002",49,0)
	1488	. i errorPage="" s errorPage="ewdError"
	1489	"RTN","C0E0002",50,0)
	1490	. i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
	1491	"RTN","C0E0002",51,0)
	1492	. d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
	1493	"RTN","C0E0002",52,0)
	1494	s stop=0
	1495	"RTN","C0E0002",53,0)
	1496	i Error="" d i stop QUIT 0
	1497	"RTN","C0E0002",54,0)
	1498	. n nextpage
	1499	"RTN","C0E0002",55,0)
	1500	. s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
	1501	"RTN","C0E0002",56,0)
	1502	. i nextpage'="" d
	1503	"RTN","C0E0002",57,0)
	1504	. . n x
	1505	"RTN","C0E0002",58,0)
	1506	. . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
	1507	"RTN","C0E0002",59,0)
	1508	. . s stop=1
	1509	"RTN","C0E0002",60,0)
	1510	i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
	1511	"RTN","C0E0002",61,0)
	1512	. s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
	1513	"RTN","C0E0002",62,0)
	1514	. d deleteFromSession^%zewdAPI("ewd_warning",sessid)
	1515	"RTN","C0E0002",63,0)
	1516	w "HTTP/1.1 200 OK"_$c(13,10)
	1517	"RTN","C0E0002",64,0)
	1518	s ctype="text/html"
	1519	"RTN","C0E0002",65,0)
	1520	d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
	1521	"RTN","C0E0002",66,0)
	1522	i $d(headers) d
	1523	"RTN","C0E0002",67,0)
	1524	. n lcname,name
	1525	"RTN","C0E0002",68,0)
	1526	. s name=""
	1527	"RTN","C0E0002",69,0)
	1528	. f s name=$o(headers(name)) q:name="" d
	1529	"RTN","C0E0002",70,0)
	1530	. . s lcname=$$zcvt^%zewdAPI(name,"l")
	1531	"RTN","C0E0002",71,0)
	1532	. . i lcname="content-type" s ctype=headers(name) q
	1533	"RTN","C0E0002",72,0)
	1534	. . w name_": "_headers(name)_$c(13,10)
	1535	"RTN","C0E0002",73,0)
	1536	w "Content-type: "_ctype_$c(13,10)
	1537	"RTN","C0E0002",74,0)
	1538	w $c(13,10)
	1539	"RTN","C0E0002",75,0)
	1540	QUIT 1
	1541	"RTN","C0E0002",76,0)
	1542	;
	1543	"RTN","C0E0002",77,0)
	1544	body ;
	1545	"RTN","C0E0002",78,0)
	1546	w "<html>"_$c(13,10)
	1547	"RTN","C0E0002",79,0)
	1548	w " <head>"_$c(13,10)
	1549	"RTN","C0E0002",80,0)
	1550	w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
	1551	"RTN","C0E0002",81,0)
	1552	w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
	1553	"RTN","C0E0002",82,0)
	1554	w "</script>"_$c(13,10)
	1555	"RTN","C0E0002",83,0)
	1556	w " <script language=""javascript"">"_$c(13,10)
	1557	"RTN","C0E0002",84,0)
	1558	w ""_$c(13,10)
	1559	"RTN","C0E0002",85,0)
	1560	w "function ValidateTitle(value) {"_$c(13,10)
	1561	"RTN","C0E0002",86,0)
	1562	w "EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("VALIDATETITLE^C0CROB")_"&px1=' + value + '','','synch','','');"_$c(13,10)
	1563	"RTN","C0E0002",87,0)
	1564	w "}"_$c(13,10)
	1565	"RTN","C0E0002",88,0)
	1566	w ""_""
	1567	"RTN","C0E0002",89,0)
	1568	w " </script>"_$c(13,10)
	1569	"RTN","C0E0002",90,0)
	1570	w " <title>"_$c(13,10)
	1571	"RTN","C0E0002",91,0)
	1572	w "Screenman Test"_""
	1573	"RTN","C0E0002",92,0)
	1574	w " </title>"_$c(13,10)
	1575	"RTN","C0E0002",93,0)
	1576	w " <script language=""javascript"">"_$c(13,10)
	1577	"RTN","C0E0002",94,0)
	1578	w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
	1579	"RTN","C0E0002",95,0)
	1580	w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
	1581	"RTN","C0E0002",96,0)
	1582	w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
	1583	"RTN","C0E0002",97,0)
	1584	w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
	1585	"RTN","C0E0002",98,0)
	1586	w " } ;"_$c(13,10)
	1587	"RTN","C0E0002",99,0)
	1588	w " EWD.page.setErrorClass = function () { "_$c(13,10)
	1589	"RTN","C0E0002",100,0)
	1590	w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
	1591	"RTN","C0E0002",101,0)
	1592	w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("setErrorClasses^%zewdAPI")_"','','synch','','') ;"_$c(13,10)
	1593	"RTN","C0E0002",102,0)
	1594	w " }"_$c(13,10)
	1595	"RTN","C0E0002",103,0)
	1596	w " } ;"_$c(13,10)
	1597	"RTN","C0E0002",104,0)
	1598	w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
	1599	"RTN","C0E0002",105,0)
	1600	w " var json,x ;"_$c(13,10)
	1601	"RTN","C0E0002",106,0)
	1602	w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
	1603	"RTN","C0E0002",107,0)
	1604	w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
	1605	"RTN","C0E0002",108,0)
	1606	w " eval(x) ;"_$c(13,10)
	1607	"RTN","C0E0002",109,0)
	1608	w " }"_$c(13,10)
	1609	"RTN","C0E0002",110,0)
	1610	w " else {"_$c(13,10)
	1611	"RTN","C0E0002",111,0)
	1612	w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
	1613	"RTN","C0E0002",112,0)
	1614	w " //eval(x) ;"_$c(13,10)
	1615	"RTN","C0E0002",113,0)
	1616	w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
	1617	"RTN","C0E0002",114,0)
	1618	w " eval(x) ;"_$c(13,10)
	1619	"RTN","C0E0002",115,0)
	1620	w " //json=toJsonString(objName);"_$c(13,10)
	1621	"RTN","C0E0002",116,0)
	1622	w " }"_$c(13,10)
	1623	"RTN","C0E0002",117,0)
	1624	w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("saveJSON^%zewdAPI")_"&px1=' + objName + '&px2=' + json + '','','synch','','') ;"_$c(13,10)
	1625	"RTN","C0E0002",118,0)
	1626	w " } ;"_$c(13,10)
	1627	"RTN","C0E0002",119,0)
	1628	w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
	1629	"RTN","C0E0002",120,0)
	1630	w " if (refresh) {"_$c(13,10)
	1631	"RTN","C0E0002",121,0)
	1632	w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
	1633	"RTN","C0E0002",122,0)
	1634	w " var objExists = ""undefined"" ;"_$c(13,10)
	1635	"RTN","C0E0002",123,0)
	1636	w " }"_$c(13,10)
	1637	"RTN","C0E0002",124,0)
	1638	w " else {"_$c(13,10)
	1639	"RTN","C0E0002",125,0)
	1640	w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
	1641	"RTN","C0E0002",126,0)
	1642	w " eval(x) ;"_$c(13,10)
	1643	"RTN","C0E0002",127,0)
	1644	w " }"_$c(13,10)
	1645	"RTN","C0E0002",128,0)
	1646	w " if (objExists == ""undefined"") {"_$c(13,10)
	1647	"RTN","C0E0002",129,0)
	1648	w " var addRef = 0 ;"_$c(13,10)
	1649	"RTN","C0E0002",130,0)
	1650	w " if (addRefCol) addRef = 1;"_$c(13,10)
	1651	"RTN","C0E0002",131,0)
	1652	w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("getJSON^%zewdCompiler13")_"&px1=' + objName + '&px2=' + addRef + '','','synch','','') ;"_$c(13,10)
	1653	"RTN","C0E0002",132,0)
	1654	w ""_""
	1655	"RTN","C0E0002",133,0)
	1656	w " };"_$c(13,10)
	1657	"RTN","C0E0002",134,0)
	1658	w " } ;"_$c(13,10)
	1659	"RTN","C0E0002",135,0)
	1660	w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
	1661	"RTN","C0E0002",136,0)
	1662	w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("mergeToJSObject^%zewdAPI")_"&px1=' + sessionName + '&px2=' + JSObjName + '','','synch','','') ;"_$c(13,10)
	1663	"RTN","C0E0002",137,0)
	1664	w " } ;"_$c(13,10)
	1665	"RTN","C0E0002",138,0)
	1666	w ""_""
	1667	"RTN","C0E0002",139,0)
	1668	w " </script>"_$c(13,10)
	1669	"RTN","C0E0002",140,0)
	1670	w " </head>"_$c(13,10)
	1671	"RTN","C0E0002",141,0)
	1672	w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
	1673	"RTN","C0E0002",142,0)
	1674	w " <form action='/ewd/screenman/test1.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"' method=""post"" name=""ewdForm1"">"_$c(13,10)
	1675	"RTN","C0E0002",143,0)
	1676	w " <center>"_$c(13,10)
	1677	"RTN","C0E0002",144,0)
	1678	w "Edit an Existing User"_""
	1679	"RTN","C0E0002",145,0)
	1680	w " </center>"_$c(13,10)
	1681	"RTN","C0E0002",146,0)
	1682	w " <div id=""name"">"_$c(13,10)
	1683	"RTN","C0E0002",147,0)
	1684	w "NAME: "_$$getSessionValue^%zewdAPI("name",sessid)
	1685	"RTN","C0E0002",148,0)
	1686	w " </div>"_$c(13,10)
	1687	"RTN","C0E0002",149,0)
	1688	w " <hr />"_$c(13,10)
	1689	"RTN","C0E0002",150,0)
	1690	w "TITLE:"_""
	1691	"RTN","C0E0002",151,0)
	1692	w " <input id=""TITLE"" name=""TITLE"" onchange=""ValidateTitle(this.value)"" type=""text"" value='"_$$getSessionValue^%zewdAPI("TITLE",sessid)_"' />"_$c(13,10)
	1693	"RTN","C0E0002",152,0)
	1694	w " <br />"_$c(13,10)
	1695	"RTN","C0E0002",153,0)
	1696	w " <br />"_$c(13,10)
	1697	"RTN","C0E0002",154,0)
	1698	w "SSN:"_""
	1699	"RTN","C0E0002",155,0)
	1700	w " <input id=""SSN"" name=""SSN"" type=""text"" value='"_$$getSessionValue^%zewdAPI("SSN",sessid)_"' />"_$c(13,10)
	1701	"RTN","C0E0002",156,0)
	1702	w " <br />"_$c(13,10)
	1703	"RTN","C0E0002",157,0)
	1704	w " <br />"_$c(13,10)
	1705	"RTN","C0E0002",158,0)
	1706	w " <input id=""submit"" name=""submit"" onclick=""this.form.ewd_action.value=this.name ; this.form.ewd_pressed.value=this.name"" type=""submit"" value=""save"" />"_$c(13,10)
	1707	"RTN","C0E0002",159,0)
	1708	w " <input name=""ewd_action"" type=""hidden"" value="""" />"_$c(13,10)
	1709	"RTN","C0E0002",160,0)
	1710	w " <input name=""ewd_pressed"" type=""hidden"" value="""" />"_$c(13,10)
	1711	"RTN","C0E0002",161,0)
	1712	w " </form>"_$c(13,10)
	1713	"RTN","C0E0002",162,0)
	1714	w " </body>"_$c(13,10)
	1715	"RTN","C0E0002",163,0)
	1716	w "</html>"_$c(13,10)
	1717	"RTN","C0E0002",164,0)
	1718	QUIT
	1719	"SEC","^DIC",70050,70050,0,"AUDIT")
	1720	@
	1721	"SEC","^DIC",70050,70050,0,"DD")
	1722	@
	1723	"SEC","^DIC",70050,70050,0,"DEL")
	1724	@
	1725	"SEC","^DIC",70050,70050,0,"LAYGO")
	1726	@
	1727	"SEC","^DIC",70050,70050,0,"RD")
	1728	@
	1729	"SEC","^DIC",70050,70050,0,"WR")
	1730	@
	1731	"VER")
	1732	8.0^22.0
	1733	"^DD",70050,70050,0)
	1734	FIELD^^1^5
	1735	"^DD",70050,70050,0,"DDA")
	1736	N
	1737	"^DD",70050,70050,0,"DT")
	1738	3100301
	1739	"^DD",70050,70050,0,"ID",.02)
	1740	W " ",$P(^(0),U,2)
	1741	"^DD",70050,70050,0,"ID",.03)
	1742	W " ",$P(^(0),U,3)
	1743	"^DD",70050,70050,0,"IX","B",70050,.01)
	1744
	1745	"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
	1746
	1747	"^DD",70050,70050,.01,0)
	1748	EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
	1749	"^DD",70050,70050,.01,1,0)
	1750	^.1
	1751	"^DD",70050,70050,.01,1,1,0)
	1752	70050^B
	1753	"^DD",70050,70050,.01,1,1,1)
	1754	S ^C0E(70050,"B",$E(X,1,30),DA)=""
	1755	"^DD",70050,70050,.01,1,1,2)
	1756	K ^C0E(70050,"B",$E(X,1,30),DA)
	1757	"^DD",70050,70050,.01,3)
	1758	NAMESPACED EWD COMPILED PAGE
	1759	"^DD",70050,70050,.01,"DT")
	1760	3100301
	1761	"^DD",70050,70050,.02,0)
	1762	EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
	1763	"^DD",70050,70050,.02,3)
	1764	NAME OF THE EWD APPLICATION
	1765	"^DD",70050,70050,.02,"DT")
	1766	3100303
	1767	"^DD",70050,70050,.03,0)
	1768	EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
	1769	"^DD",70050,70050,.03,3)
	1770	EWD PAGE NAME
	1771	"^DD",70050,70050,.03,"DT")
	1772	3100301
	1773	"^DD",70050,70050,1,0)
	1774	DESCRIPTION^70050.01^^2;0
	1775	"^DD",70050,70050,2,0)
	1776	EWD SOURCE^70050.02^^1;0
	1777	"^DD",70050,70050.01,0)
	1778	DESCRIPTION SUB-FIELD^^.01^1
	1779	"^DD",70050,70050.01,0,"DT")
	1780	3100301
	1781	"^DD",70050,70050.01,0,"NM","DESCRIPTION")
	1782
	1783	"^DD",70050,70050.01,0,"UP")
	1784	70050
	1785	"^DD",70050,70050.01,.01,0)
	1786	DESCRIPTION^Wx^^0;1
	1787	"^DD",70050,70050.01,.01,3)
	1788	DESCRIPTION OF THE EWD PAGE
	1789	"^DD",70050,70050.01,.01,"DT")
	1790	3100301
	1791	"^DD",70050,70050.02,0)
	1792	EWD SOURCE SUB-FIELD^^.01^1
	1793	"^DD",70050,70050.02,0,"DT")
	1794	3100301
	1795	"^DD",70050,70050.02,0,"NM","EWD SOURCE")
	1796
	1797	"^DD",70050,70050.02,0,"UP")
	1798	70050
	1799	"^DD",70050,70050.02,.01,0)
	1800	EWD SOURCE^WLx^^0;1
	1801	"^DD",70050,70050.02,.01,3)
	1802	EWD PAGE SOURCE CODE
	1803	"^DD",70050,70050.02,.01,"DT")
	1804	3100301
	1805	"^DIC",70050,70050,0)
	1806	C0EWD ROUTINE MAP^70050
	1807	"^DIC",70050,70050,0,"GL")
	1808	^C0E(70050,
	1809	"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
	1810
	1811	END
	1812	END

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format