Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

C0E0_1_0_0_T4.KID@ 819

Last change on this file since 819 was 725, checked in by George Lilly, 15 years ago
change kids build to resolve pointers
File size: 55.4 KB

Rev	Line
[725]	1	KIDS Distribution saved on Mar 03, 2010@23:34:41
	2	resolve pointers
	3	KIDS:C0E01.00^
	4
	5	INSTALL NAME
	6	C0E01.00
	7	"BLD",6969,0)
	8	C0E01.00^^0^3100303^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	5
	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^B14799604
	57	"BLD",6969,"KRN",9.8,"NM",4,0)
	58	C0E0000F^^0^B32569634
	59	"BLD",6969,"KRN",9.8,"NM",5,0)
	60	C0E0000E^^0^B27501668
	61	"BLD",6969,"KRN",9.8,"NM",6,0)
	62	C0E0000R^^0^B66670061
	63	"BLD",6969,"KRN",9.8,"NM",7,0)
	64	C0E0001I^^0^B20127196
	65	"BLD",6969,"KRN",9.8,"NM",8,0)
	66	C0E0002^^0^B92918287
	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 5
	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 5
	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^B14799604
	463	"RTN","C0E0000A",1,0)
	464	;GT.M version of page ewdAjaxError (screenman application)
	465	"RTN","C0E0000A",2,0)
	466	;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 5
	467	"RTN","C0E0000A",3,0)
	468	;using Enterprise Web Developer (Build 790)
	469	"RTN","C0E0000A",4,0)
	470	QUIT
	471	"RTN","C0E0000A",5,0)
	472	;
	473	"RTN","C0E0000A",6,0)
	474	run ;
	475	"RTN","C0E0000A",7,0)
	476	n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
	477	"RTN","C0E0000A",8,0)
	478	s ok=$$pre()
	479	"RTN","C0E0000A",9,0)
	480	i ok d body
	481	"RTN","C0E0000A",10,0)
	482	QUIT
	483	"RTN","C0E0000A",11,0)
	484	;
	485	"RTN","C0E0000A",12,0)
	486	pre() ;
	487	"RTN","C0E0000A",13,0)
	488	;
	489	"RTN","C0E0000A",14,0)
	490	n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
	491	"RTN","C0E0000A",15,0)
	492	;
	493	"RTN","C0E0000A",16,0)
	494	s confirmText="Click OK if you're sure you want to delete this record"
	495	"RTN","C0E0000A",17,0)
	496	s sessionArray("ewd_isFirstPage")="1"
	497	"RTN","C0E0000A",18,0)
	498	s sessionArray("ewd_sessid_timeout")="1200"
	499	"RTN","C0E0000A",19,0)
	500	s sessionArray("ewd_prePageScript")=""
	501	"RTN","C0E0000A",20,0)
	502	s sessionArray("ewd_default_timeout")="1200"
	503	"RTN","C0E0000A",21,0)
	504	s sessionArray("ewd_persistRequest")="true"
	505	"RTN","C0E0000A",22,0)
	506	s sessionArray("ewd_pageTitle")=""
	507	"RTN","C0E0000A",23,0)
	508	s sessionArray("ewd_errorPage")="ewdError"
	509	"RTN","C0E0000A",24,0)
	510	s sessionArray("ewd_templatePrePageScript")=""
	511	"RTN","C0E0000A",25,0)
	512	s sessionArray("ewd_onErrorScript")=""
	513	"RTN","C0E0000A",26,0)
	514	s sessionArray("ewd_appName")="screenman"
	515	"RTN","C0E0000A",27,0)
	516	s sessionArray("ewd_pageName")="ewdAjaxError"
	517	"RTN","C0E0000A",28,0)
	518	s sessionArray("ewd_translationMode")="0"
	519	"RTN","C0E0000A",29,0)
	520	s sessionArray("ewd_technology")="gtm"
	521	"RTN","C0E0000A",30,0)
	522	s sessionArray("ewd_pageType")=""
	523	"RTN","C0E0000A",31,0)
	524	s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
	525	"RTN","C0E0000A",32,0)
	526	s sessid=$g(sessionArray("ewd_sessid"))
	527	"RTN","C0E0000A",33,0)
	528	i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
	529	"RTN","C0E0000A",34,0)
	530	. s Error=$p(Error,":",2,200)
	531	"RTN","C0E0000A",35,0)
	532	. s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
	533	"RTN","C0E0000A",36,0)
	534	. s Error="EWD runtime error: "_Error
	535	"RTN","C0E0000A",37,0)
	536	i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
	537	"RTN","C0E0000A",38,0)
	538	. n errorPage
	539	"RTN","C0E0000A",39,0)
	540	. s errorPage=$g(sessionArray("ewd_errorPage"))
	541	"RTN","C0E0000A",40,0)
	542	. i errorPage="" s errorPage="ewdError"
	543	"RTN","C0E0000A",41,0)
	544	. i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
	545	"RTN","C0E0000A",42,0)
	546	. d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
	547	"RTN","C0E0000A",43,0)
	548	s stop=0
	549	"RTN","C0E0000A",44,0)
	550	i Error="" d i stop QUIT 0
	551	"RTN","C0E0000A",45,0)
	552	. n nextpage
	553	"RTN","C0E0000A",46,0)
	554	. s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
	555	"RTN","C0E0000A",47,0)
	556	. i nextpage'="" d
	557	"RTN","C0E0000A",48,0)
	558	. . n x
	559	"RTN","C0E0000A",49,0)
	560	. . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
	561	"RTN","C0E0000A",50,0)
	562	. . s stop=1
	563	"RTN","C0E0000A",51,0)
	564	i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
	565	"RTN","C0E0000A",52,0)
	566	. s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
	567	"RTN","C0E0000A",53,0)
	568	. d deleteFromSession^%zewdAPI("ewd_warning",sessid)
	569	"RTN","C0E0000A",54,0)
	570	w "HTTP/1.1 200 OK"_$c(13,10)
	571	"RTN","C0E0000A",55,0)
	572	s ctype="text/html"
	573	"RTN","C0E0000A",56,0)
	574	d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
	575	"RTN","C0E0000A",57,0)
	576	i $d(headers) d
	577	"RTN","C0E0000A",58,0)
	578	. n lcname,name
	579	"RTN","C0E0000A",59,0)
	580	. s name=""
	581	"RTN","C0E0000A",60,0)
	582	. f s name=$o(headers(name)) q:name="" d
	583	"RTN","C0E0000A",61,0)
	584	. . s lcname=$$zcvt^%zewdAPI(name,"l")
	585	"RTN","C0E0000A",62,0)
	586	. . i lcname="content-type" s ctype=headers(name) q
	587	"RTN","C0E0000A",63,0)
	588	. . w name_": "_headers(name)_$c(13,10)
	589	"RTN","C0E0000A",64,0)
	590	w "Content-type: "_ctype_$c(13,10)
	591	"RTN","C0E0000A",65,0)
	592	w $c(13,10)
	593	"RTN","C0E0000A",66,0)
	594	QUIT 1
	595	"RTN","C0E0000A",67,0)
	596	;
	597	"RTN","C0E0000A",68,0)
	598	body ;
	599	"RTN","C0E0000A",69,0)
	600	w "<ewdajaxerror>"_$c(13,10)
	601	"RTN","C0E0000A",70,0)
	602	w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
	603	"RTN","C0E0000A",71,0)
	604	w "</ewdajaxerror>"_$c(13,10)
	605	"RTN","C0E0000A",72,0)
	606	QUIT
	607	"RTN","C0E0000E")
	608	0^5^B27501668
	609	"RTN","C0E0000E",1,0)
	610	;GT.M version of page ewdError (screenman application)
	611	"RTN","C0E0000E",2,0)
	612	;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 5
	613	"RTN","C0E0000E",3,0)
	614	;using Enterprise Web Developer (Build 790)
	615	"RTN","C0E0000E",4,0)
	616	QUIT
	617	"RTN","C0E0000E",5,0)
	618	;
	619	"RTN","C0E0000E",6,0)
	620	run ;
	621	"RTN","C0E0000E",7,0)
	622	n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
	623	"RTN","C0E0000E",8,0)
	624	s ok=$$pre()
	625	"RTN","C0E0000E",9,0)
	626	i ok d body
	627	"RTN","C0E0000E",10,0)
	628	QUIT
	629	"RTN","C0E0000E",11,0)
	630	;
	631	"RTN","C0E0000E",12,0)
	632	pre() ;
	633	"RTN","C0E0000E",13,0)
	634	;
	635	"RTN","C0E0000E",14,0)
	636	n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
	637	"RTN","C0E0000E",15,0)
	638	;
	639	"RTN","C0E0000E",16,0)
	640	w "HTTP/1.1 200 OK"_$c(13,10)
	641	"RTN","C0E0000E",17,0)
	642	w "Content-type: text/html"_$c(13,10,13,10)
	643	"RTN","C0E0000E",18,0)
	644	QUIT 1
	645	"RTN","C0E0000E",19,0)
	646	;
	647	"RTN","C0E0000E",20,0)
	648	body ;
	649	"RTN","C0E0000E",21,0)
	650	w ""_$c(13,10)
	651	"RTN","C0E0000E",22,0)
	652	w "<html>"_$c(13,10)
	653	"RTN","C0E0000E",23,0)
	654	w "<head>"_$c(13,10)
	655	"RTN","C0E0000E",24,0)
	656	w "<title>Enterprise Web Developer : A run-time error has occurred</title>"_$c(13,10)
	657	"RTN","C0E0000E",25,0)
	658	w "<style type=""text/css"">"_$c(13,10)
	659	"RTN","C0E0000E",26,0)
	660	w " body {background: #ffffff ;}"_$c(13,10)
	661	"RTN","C0E0000E",27,0)
	662	w " .headerBlock {width: 100% ; background : #111111 ; horizontal-align : center ; }"_$c(13,10)
	663	"RTN","C0E0000E",28,0)
	664	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)
	665	"RTN","C0E0000E",29,0)
	666	w " #headerText {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 11pt ; margin-left: 10px}"_$c(13,10)
	667	"RTN","C0E0000E",30,0)
	668	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)
	669	"RTN","C0E0000E",31,0)
	670	w " .selectedTab {border-style: outset ; background: #eeeedd ; padding-left: 8px ; padding-right: 8px ;}"_$c(13,10)
	671	"RTN","C0E0000E",32,0)
	672	w " .unselectedTab {border-style: groove ; padding-left: 8px ; padding-right: 8px ;}"_$c(13,10)
	673	"RTN","C0E0000E",33,0)
	674	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)
	675	"RTN","C0E0000E",34,0)
	676	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)
	677	"RTN","C0E0000E",35,0)
	678	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)
	679	"RTN","C0E0000E",36,0)
	680	w " #pageTitle {width: 100% ; height: 50px ; text-align : center ; horizontal-align : center ; font-family: Arial, sans-serif ;}"_$c(13,10)
	681	"RTN","C0E0000E",37,0)
	682	w " .footerBlock {width: 100% ; background : #111111 ; horizontal-align : center ;}"_$c(13,10)
	683	"RTN","C0E0000E",38,0)
	684	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)
	685	"RTN","C0E0000E",39,0)
	686	w " #footerText {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 8pt ; margin-left : 10px}"_$c(13,10)
	687	"RTN","C0E0000E",40,0)
	688	w " #tableblock {text-align: center ; margin-top: 40px}"_$c(13,10)
	689	"RTN","C0E0000E",41,0)
	690	w " #hiddenForm {visibility: hidden ;}"_$c(13,10)
	691	"RTN","C0E0000E",42,0)
	692	w "</style>"_$c(13,10)
	693	"RTN","C0E0000E",43,0)
	694	w "</head>"_$c(13,10)
	695	"RTN","C0E0000E",44,0)
	696	w "<body>"_$c(13,10)
	697	"RTN","C0E0000E",45,0)
	698	w ""_$c(13,10)
	699	"RTN","C0E0000E",46,0)
	700	w " <div id=""mainArea"">"_$c(13,10)
	701	"RTN","C0E0000E",47,0)
	702	w " <div id=""pageTitle"">"_$c(13,10)
	703	"RTN","C0E0000E",48,0)
	704	w " <h1>Enterprise Web Developer (Build 790)</h1>"_$c(13,10)
	705	"RTN","C0E0000E",49,0)
	706	w " </div>"_$c(13,10)
	707	"RTN","C0E0000E",50,0)
	708	w ""_$c(13,10)
	709	"RTN","C0E0000E",51,0)
	710	w " <div id=""workArea"">"_$c(13,10)
	711	"RTN","C0E0000E",52,0)
	712	w " <div id=""tableblock"">"_$c(13,10)
	713	"RTN","C0E0000E",53,0)
	714	w " <h3>An Error has occurred</h3>"_$c(13,10)
	715	"RTN","C0E0000E",54,0)
	716	w " <br>"_$c(13,10)
	717	"RTN","C0E0000E",55,0)
	718	w " <h3>"_$g(%KEY("error"))_"</h3>"_$c(13,10)
	719	"RTN","C0E0000E",56,0)
	720	w " </div>"_$c(13,10)
	721	"RTN","C0E0000E",57,0)
	722	w " </div>"_$c(13,10)
	723	"RTN","C0E0000E",58,0)
	724	w " </div>"_$c(13,10)
	725	"RTN","C0E0000E",59,0)
	726	w ""_$c(13,10)
	727	"RTN","C0E0000E",60,0)
	728	w " <div class=footerBlock>"_$c(13,10)
	729	"RTN","C0E0000E",61,0)
	730	w " <p id=""footerText""> © 2004-2009 M/Gateway Developments Ltd All Rights Reserved</p>"_$c(13,10)
	731	"RTN","C0E0000E",62,0)
	732	w " </div>"_$c(13,10)
	733	"RTN","C0E0000E",63,0)
	734	w "</body>"_$c(13,10)
	735	"RTN","C0E0000E",64,0)
	736	w "</html>"_$c(13,10)
	737	"RTN","C0E0000E",65,0)
	738	QUIT
	739	"RTN","C0E0000F")
	740	0^4^B32569634
	741	"RTN","C0E0000F",1,0)
	742	;GT.M version of page ewdAjaxErrorRedirect (screenman application)
	743	"RTN","C0E0000F",2,0)
	744	;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 5
	745	"RTN","C0E0000F",3,0)
	746	;using Enterprise Web Developer (Build 790)
	747	"RTN","C0E0000F",4,0)
	748	QUIT
	749	"RTN","C0E0000F",5,0)
	750	;
	751	"RTN","C0E0000F",6,0)
	752	run ;
	753	"RTN","C0E0000F",7,0)
	754	n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
	755	"RTN","C0E0000F",8,0)
	756	s ok=$$pre()
	757	"RTN","C0E0000F",9,0)
	758	i ok d body
	759	"RTN","C0E0000F",10,0)
	760	QUIT
	761	"RTN","C0E0000F",11,0)
	762	;
	763	"RTN","C0E0000F",12,0)
	764	pre() ;
	765	"RTN","C0E0000F",13,0)
	766	;
	767	"RTN","C0E0000F",14,0)
	768	n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
	769	"RTN","C0E0000F",15,0)
	770	;
	771	"RTN","C0E0000F",16,0)
	772	s confirmText="Click OK if you're sure you want to delete this record"
	773	"RTN","C0E0000F",17,0)
	774	s sessionArray("ewd_isFirstPage")="0"
	775	"RTN","C0E0000F",18,0)
	776	s sessionArray("ewd_sessid_timeout")="1200"
	777	"RTN","C0E0000F",19,0)
	778	s sessionArray("ewd_prePageScript")=""
	779	"RTN","C0E0000F",20,0)
	780	s sessionArray("ewd_default_timeout")="1200"
	781	"RTN","C0E0000F",21,0)
	782	s sessionArray("ewd_persistRequest")="true"
	783	"RTN","C0E0000F",22,0)
	784	s sessionArray("ewd_pageTitle")=""
	785	"RTN","C0E0000F",23,0)
	786	s sessionArray("ewd_errorPage")="ewdError"
	787	"RTN","C0E0000F",24,0)
	788	s sessionArray("ewd_templatePrePageScript")=""
	789	"RTN","C0E0000F",25,0)
	790	s sessionArray("ewd_onErrorScript")=""
	791	"RTN","C0E0000F",26,0)
	792	s sessionArray("ewd_appName")="screenman"
	793	"RTN","C0E0000F",27,0)
	794	s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
	795	"RTN","C0E0000F",28,0)
	796	s sessionArray("ewd_translationMode")="0"
	797	"RTN","C0E0000F",29,0)
	798	s sessionArray("ewd_technology")="gtm"
	799	"RTN","C0E0000F",30,0)
	800	s sessionArray("ewd_pageType")="ajax"
	801	"RTN","C0E0000F",31,0)
	802	s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
	803	"RTN","C0E0000F",32,0)
	804	s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
	805	"RTN","C0E0000F",33,0)
	806	s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
	807	"RTN","C0E0000F",34,0)
	808	s sessid=$g(sessionArray("ewd_sessid"))
	809	"RTN","C0E0000F",35,0)
	810	i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
	811	"RTN","C0E0000F",36,0)
	812	. s Error=$p(Error,":",2,200)
	813	"RTN","C0E0000F",37,0)
	814	. s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
	815	"RTN","C0E0000F",38,0)
	816	. s Error="EWD runtime error: "_Error
	817	"RTN","C0E0000F",39,0)
	818	i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
	819	"RTN","C0E0000F",40,0)
	820	. n errorPage
	821	"RTN","C0E0000F",41,0)
	822	. s errorPage=$g(sessionArray("ewd_errorPage"))
	823	"RTN","C0E0000F",42,0)
	824	. i errorPage="" s errorPage="ewdError"
	825	"RTN","C0E0000F",43,0)
	826	. i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
	827	"RTN","C0E0000F",44,0)
	828	. d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
	829	"RTN","C0E0000F",45,0)
	830	s stop=0
	831	"RTN","C0E0000F",46,0)
	832	i Error="" d i stop QUIT 0
	833	"RTN","C0E0000F",47,0)
	834	. n nextpage
	835	"RTN","C0E0000F",48,0)
	836	. s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
	837	"RTN","C0E0000F",49,0)
	838	. i nextpage'="" d
	839	"RTN","C0E0000F",50,0)
	840	. . n x
	841	"RTN","C0E0000F",51,0)
	842	. . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
	843	"RTN","C0E0000F",52,0)
	844	. . s stop=1
	845	"RTN","C0E0000F",53,0)
	846	i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
	847	"RTN","C0E0000F",54,0)
	848	. s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
	849	"RTN","C0E0000F",55,0)
	850	. d deleteFromSession^%zewdAPI("ewd_warning",sessid)
	851	"RTN","C0E0000F",56,0)
	852	w "HTTP/1.1 200 OK"_$c(13,10)
	853	"RTN","C0E0000F",57,0)
	854	s ctype="text/html"
	855	"RTN","C0E0000F",58,0)
	856	d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
	857	"RTN","C0E0000F",59,0)
	858	i $d(headers) d
	859	"RTN","C0E0000F",60,0)
	860	. n lcname,name
	861	"RTN","C0E0000F",61,0)
	862	. s name=""
	863	"RTN","C0E0000F",62,0)
	864	. f s name=$o(headers(name)) q:name="" d
	865	"RTN","C0E0000F",63,0)
	866	. . s lcname=$$zcvt^%zewdAPI(name,"l")
	867	"RTN","C0E0000F",64,0)
	868	. . i lcname="content-type" s ctype=headers(name) q
	869	"RTN","C0E0000F",65,0)
	870	. . w name_": "_headers(name)_$c(13,10)
	871	"RTN","C0E0000F",66,0)
	872	w "Content-type: "_ctype_$c(13,10)
	873	"RTN","C0E0000F",67,0)
	874	w $c(13,10)
	875	"RTN","C0E0000F",68,0)
	876	QUIT 1
	877	"RTN","C0E0000F",69,0)
	878	;
	879	"RTN","C0E0000F",70,0)
	880	body ;
	881	"RTN","C0E0000F",71,0)
	882	if ($g(Error)="") d
	883	"RTN","C0E0000F",72,0)
	884	.w " <span>"_$c(13,10)
	885	"RTN","C0E0000F",73,0)
	886	.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)
	887	"RTN","C0E0000F",74,0)
	888	.w "</div>"_$c(13,10)
	889	"RTN","C0E0000F",75,0)
	890	.w " </span>"_$c(13,10)
	891	"RTN","C0E0000F",76,0)
	892	.
	893	"RTN","C0E0000F",77,0)
	894	w "<span id=""ewdajaxonload"">"_$c(13,10)
	895	"RTN","C0E0000F",78,0)
	896	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)
	897	"RTN","C0E0000F",79,0)
	898	s id=""
	899	"RTN","C0E0000F",80,0)
	900	f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
	901	"RTN","C0E0000F",81,0)
	902	. w "idPointer = document.getElementById('"_id_"') ; "
	903	"RTN","C0E0000F",82,0)
	904	. w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
	905	"RTN","C0E0000F",83,0)
	906	s id=""
	907	"RTN","C0E0000F",84,0)
	908	f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
	909	"RTN","C0E0000F",85,0)
	910	. w "idPointer = document.getElementById('"_id_"') ; "
	911	"RTN","C0E0000F",86,0)
	912	. w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
	913	"RTN","C0E0000F",87,0)
	914	k ^%zewdSession("session","ewd_hasErrors")
	915	"RTN","C0E0000F",88,0)
	916	k ^%zewdSession("session","ewd_errorFields")
	917	"RTN","C0E0000F",89,0)
	918	k ^%zewdSession("session","ewd_idList")
	919	"RTN","C0E0000F",90,0)
	920	w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
	921	"RTN","C0E0000F",91,0)
	922	w "</span>"_$c(13,10)
	923	"RTN","C0E0000F",92,0)
	924	QUIT
	925	"RTN","C0E0000R")
	926	0^6^B66670061
	927	"RTN","C0E0000R",1,0)
	928	;GT.M version of page ewdErrorRedirect (screenman application)
	929	"RTN","C0E0000R",2,0)
	930	;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 5
	931	"RTN","C0E0000R",3,0)
	932	;using Enterprise Web Developer (Build 790)
	933	"RTN","C0E0000R",4,0)
	934	QUIT
	935	"RTN","C0E0000R",5,0)
	936	;
	937	"RTN","C0E0000R",6,0)
	938	run ;
	939	"RTN","C0E0000R",7,0)
	940	n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
	941	"RTN","C0E0000R",8,0)
	942	s ok=$$pre()
	943	"RTN","C0E0000R",9,0)
	944	i ok d body
	945	"RTN","C0E0000R",10,0)
	946	QUIT
	947	"RTN","C0E0000R",11,0)
	948	;
	949	"RTN","C0E0000R",12,0)
	950	pre() ;
	951	"RTN","C0E0000R",13,0)
	952	;
	953	"RTN","C0E0000R",14,0)
	954	n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
	955	"RTN","C0E0000R",15,0)
	956	;
	957	"RTN","C0E0000R",16,0)
	958	s confirmText="Click OK if you're sure you want to delete this record"
	959	"RTN","C0E0000R",17,0)
	960	s sessionArray("ewd_isFirstPage")="0"
	961	"RTN","C0E0000R",18,0)
	962	s sessionArray("ewd_sessid_timeout")="1200"
	963	"RTN","C0E0000R",19,0)
	964	s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
	965	"RTN","C0E0000R",20,0)
	966	s sessionArray("ewd_default_timeout")="1200"
	967	"RTN","C0E0000R",21,0)
	968	s sessionArray("ewd_persistRequest")="true"
	969	"RTN","C0E0000R",22,0)
	970	s sessionArray("ewd_pageTitle")=""
	971	"RTN","C0E0000R",23,0)
	972	s sessionArray("ewd_errorPage")="ewdError"
	973	"RTN","C0E0000R",24,0)
	974	s sessionArray("ewd_templatePrePageScript")=""
	975	"RTN","C0E0000R",25,0)
	976	s sessionArray("ewd_onErrorScript")=""
	977	"RTN","C0E0000R",26,0)
	978	s sessionArray("ewd_appName")="screenman"
	979	"RTN","C0E0000R",27,0)
	980	s sessionArray("ewd_pageName")="ewdErrorRedirect"
	981	"RTN","C0E0000R",28,0)
	982	s sessionArray("ewd_translationMode")="0"
	983	"RTN","C0E0000R",29,0)
	984	s sessionArray("ewd_technology")="gtm"
	985	"RTN","C0E0000R",30,0)
	986	s sessionArray("ewd_pageType")=""
	987	"RTN","C0E0000R",31,0)
	988	s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
	989	"RTN","C0E0000R",32,0)
	990	s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
	991	"RTN","C0E0000R",33,0)
	992	s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
	993	"RTN","C0E0000R",34,0)
	994	s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
	995	"RTN","C0E0000R",35,0)
	996	s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
	997	"RTN","C0E0000R",36,0)
	998	s sessid=$g(sessionArray("ewd_sessid"))
	999	"RTN","C0E0000R",37,0)
	1000	i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
	1001	"RTN","C0E0000R",38,0)
	1002	. s Error=$p(Error,":",2,200)
	1003	"RTN","C0E0000R",39,0)
	1004	. s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
	1005	"RTN","C0E0000R",40,0)
	1006	. s Error="EWD runtime error: "_Error
	1007	"RTN","C0E0000R",41,0)
	1008	i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
	1009	"RTN","C0E0000R",42,0)
	1010	. n errorPage
	1011	"RTN","C0E0000R",43,0)
	1012	. s errorPage=$g(sessionArray("ewd_errorPage"))
	1013	"RTN","C0E0000R",44,0)
	1014	. i errorPage="" s errorPage="ewdError"
	1015	"RTN","C0E0000R",45,0)
	1016	. i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
	1017	"RTN","C0E0000R",46,0)
	1018	. d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
	1019	"RTN","C0E0000R",47,0)
	1020	s stop=0
	1021	"RTN","C0E0000R",48,0)
	1022	i Error="" d i stop QUIT 0
	1023	"RTN","C0E0000R",49,0)
	1024	. n nextpage
	1025	"RTN","C0E0000R",50,0)
	1026	. s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
	1027	"RTN","C0E0000R",51,0)
	1028	. i nextpage'="" d
	1029	"RTN","C0E0000R",52,0)
	1030	. . n x
	1031	"RTN","C0E0000R",53,0)
	1032	. . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
	1033	"RTN","C0E0000R",54,0)
	1034	. . s stop=1
	1035	"RTN","C0E0000R",55,0)
	1036	i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
	1037	"RTN","C0E0000R",56,0)
	1038	. s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
	1039	"RTN","C0E0000R",57,0)
	1040	. d deleteFromSession^%zewdAPI("ewd_warning",sessid)
	1041	"RTN","C0E0000R",58,0)
	1042	w "HTTP/1.1 200 OK"_$c(13,10)
	1043	"RTN","C0E0000R",59,0)
	1044	s ctype="text/html"
	1045	"RTN","C0E0000R",60,0)
	1046	d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
	1047	"RTN","C0E0000R",61,0)
	1048	i $d(headers) d
	1049	"RTN","C0E0000R",62,0)
	1050	. n lcname,name
	1051	"RTN","C0E0000R",63,0)
	1052	. s name=""
	1053	"RTN","C0E0000R",64,0)
	1054	. f s name=$o(headers(name)) q:name="" d
	1055	"RTN","C0E0000R",65,0)
	1056	. . s lcname=$$zcvt^%zewdAPI(name,"l")
	1057	"RTN","C0E0000R",66,0)
	1058	. . i lcname="content-type" s ctype=headers(name) q
	1059	"RTN","C0E0000R",67,0)
	1060	. . w name_": "_headers(name)_$c(13,10)
	1061	"RTN","C0E0000R",68,0)
	1062	w "Content-type: "_ctype_$c(13,10)
	1063	"RTN","C0E0000R",69,0)
	1064	w $c(13,10)
	1065	"RTN","C0E0000R",70,0)
	1066	QUIT 1
	1067	"RTN","C0E0000R",71,0)
	1068	;
	1069	"RTN","C0E0000R",72,0)
	1070	body ;
	1071	"RTN","C0E0000R",73,0)
	1072	w "<html>"_$c(13,10)
	1073	"RTN","C0E0000R",74,0)
	1074	w " <head>"_$c(13,10)
	1075	"RTN","C0E0000R",75,0)
	1076	w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
	1077	"RTN","C0E0000R",76,0)
	1078	w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
	1079	"RTN","C0E0000R",77,0)
	1080	w "</script>"_$c(13,10)
	1081	"RTN","C0E0000R",78,0)
	1082	w " <title>"_$c(13,10)
	1083	"RTN","C0E0000R",79,0)
	1084	w "Ajax Error Redirect page"_""
	1085	"RTN","C0E0000R",80,0)
	1086	w " </title>"_$c(13,10)
	1087	"RTN","C0E0000R",81,0)
	1088	w " <head>"_$c(13,10)
	1089	"RTN","C0E0000R",82,0)
	1090	w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
	1091	"RTN","C0E0000R",83,0)
	1092	w "Please wait...."_""
	1093	"RTN","C0E0000R",84,0)
	1094	w " </body>"_$c(13,10)
	1095	"RTN","C0E0000R",85,0)
	1096	w " </head>"_$c(13,10)
	1097	"RTN","C0E0000R",86,0)
	1098	w " <script language=""javascript"">"_$c(13,10)
	1099	"RTN","C0E0000R",87,0)
	1100	w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
	1101	"RTN","C0E0000R",88,0)
	1102	w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
	1103	"RTN","C0E0000R",89,0)
	1104	w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
	1105	"RTN","C0E0000R",90,0)
	1106	w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
	1107	"RTN","C0E0000R",91,0)
	1108	w " } ;"_$c(13,10)
	1109	"RTN","C0E0000R",92,0)
	1110	w " EWD.page.setErrorClass = function () { "_$c(13,10)
	1111	"RTN","C0E0000R",93,0)
	1112	w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
	1113	"RTN","C0E0000R",94,0)
	1114	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)
	1115	"RTN","C0E0000R",95,0)
	1116	w " }"_$c(13,10)
	1117	"RTN","C0E0000R",96,0)
	1118	w " } ;"_$c(13,10)
	1119	"RTN","C0E0000R",97,0)
	1120	w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
	1121	"RTN","C0E0000R",98,0)
	1122	w " var json,x ;"_$c(13,10)
	1123	"RTN","C0E0000R",99,0)
	1124	w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
	1125	"RTN","C0E0000R",100,0)
	1126	w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
	1127	"RTN","C0E0000R",101,0)
	1128	w " eval(x) ;"_$c(13,10)
	1129	"RTN","C0E0000R",102,0)
	1130	w " }"_$c(13,10)
	1131	"RTN","C0E0000R",103,0)
	1132	w " else {"_$c(13,10)
	1133	"RTN","C0E0000R",104,0)
	1134	w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
	1135	"RTN","C0E0000R",105,0)
	1136	w " //eval(x) ;"_$c(13,10)
	1137	"RTN","C0E0000R",106,0)
	1138	w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
	1139	"RTN","C0E0000R",107,0)
	1140	w " eval(x) ;"_$c(13,10)
	1141	"RTN","C0E0000R",108,0)
	1142	w " //json=toJsonString(objName);"_$c(13,10)
	1143	"RTN","C0E0000R",109,0)
	1144	w " }"_$c(13,10)
	1145	"RTN","C0E0000R",110,0)
	1146	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)
	1147	"RTN","C0E0000R",111,0)
	1148	w " } ;"_$c(13,10)
	1149	"RTN","C0E0000R",112,0)
	1150	w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
	1151	"RTN","C0E0000R",113,0)
	1152	w " if (refresh) {"_$c(13,10)
	1153	"RTN","C0E0000R",114,0)
	1154	w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
	1155	"RTN","C0E0000R",115,0)
	1156	w " var objExists = ""undefined"" ;"_$c(13,10)
	1157	"RTN","C0E0000R",116,0)
	1158	w " }"_$c(13,10)
	1159	"RTN","C0E0000R",117,0)
	1160	w " else {"_$c(13,10)
	1161	"RTN","C0E0000R",118,0)
	1162	w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
	1163	"RTN","C0E0000R",119,0)
	1164	w " eval(x) ;"_$c(13,10)
	1165	"RTN","C0E0000R",120,0)
	1166	w " }"_$c(13,10)
	1167	"RTN","C0E0000R",121,0)
	1168	w " if (objExists == ""undefined"") {"_$c(13,10)
	1169	"RTN","C0E0000R",122,0)
	1170	w " var addRef = 0 ;"_$c(13,10)
	1171	"RTN","C0E0000R",123,0)
	1172	w " if (addRefCol) addRef = 1;"_$c(13,10)
	1173	"RTN","C0E0000R",124,0)
	1174	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)
	1175	"RTN","C0E0000R",125,0)
	1176	w ""_""
	1177	"RTN","C0E0000R",126,0)
	1178	w " };"_$c(13,10)
	1179	"RTN","C0E0000R",127,0)
	1180	w " } ;"_$c(13,10)
	1181	"RTN","C0E0000R",128,0)
	1182	w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
	1183	"RTN","C0E0000R",129,0)
	1184	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)
	1185	"RTN","C0E0000R",130,0)
	1186	w " } ;"_$c(13,10)
	1187	"RTN","C0E0000R",131,0)
	1188	w ""_""
	1189	"RTN","C0E0000R",132,0)
	1190	w " </script>"_$c(13,10)
	1191	"RTN","C0E0000R",133,0)
	1192	w " </head>"_$c(13,10)
	1193	"RTN","C0E0000R",134,0)
	1194	w "</html>"_$c(13,10)
	1195	"RTN","C0E0000R",135,0)
	1196	QUIT
	1197	"RTN","C0E0001I")
	1198	0^7^B20127196
	1199	"RTN","C0E0001I",1,0)
	1200	;GT.M version of page index (screenman application)
	1201	"RTN","C0E0001I",2,0)
	1202	;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 5
	1203	"RTN","C0E0001I",3,0)
	1204	;using Enterprise Web Developer (Build 790)
	1205	"RTN","C0E0001I",4,0)
	1206	QUIT
	1207	"RTN","C0E0001I",5,0)
	1208	;
	1209	"RTN","C0E0001I",6,0)
	1210	run ;
	1211	"RTN","C0E0001I",7,0)
	1212	n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
	1213	"RTN","C0E0001I",8,0)
	1214	s ok=$$pre()
	1215	"RTN","C0E0001I",9,0)
	1216	i ok d body
	1217	"RTN","C0E0001I",10,0)
	1218	QUIT
	1219	"RTN","C0E0001I",11,0)
	1220	;
	1221	"RTN","C0E0001I",12,0)
	1222	pre() ;
	1223	"RTN","C0E0001I",13,0)
	1224	;
	1225	"RTN","C0E0001I",14,0)
	1226	n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
	1227	"RTN","C0E0001I",15,0)
	1228	;
	1229	"RTN","C0E0001I",16,0)
	1230	s confirmText="Click OK if you're sure you want to delete this record"
	1231	"RTN","C0E0001I",17,0)
	1232	s sessionArray("ewd_isFirstPage")="1"
	1233	"RTN","C0E0001I",18,0)
	1234	s sessionArray("ewd_sessid_timeout")="1200"
	1235	"RTN","C0E0001I",19,0)
	1236	s sessionArray("ewd_prePageScript")=""
	1237	"RTN","C0E0001I",20,0)
	1238	s sessionArray("ewd_default_timeout")="1200"
	1239	"RTN","C0E0001I",21,0)
	1240	s sessionArray("ewd_persistRequest")="true"
	1241	"RTN","C0E0001I",22,0)
	1242	s sessionArray("ewd_pageTitle")=""
	1243	"RTN","C0E0001I",23,0)
	1244	s sessionArray("ewd_errorPage")="ewdError"
	1245	"RTN","C0E0001I",24,0)
	1246	s sessionArray("ewd_templatePrePageScript")=""
	1247	"RTN","C0E0001I",25,0)
	1248	s sessionArray("ewd_onErrorScript")=""
	1249	"RTN","C0E0001I",26,0)
	1250	s sessionArray("ewd_appName")="screenman"
	1251	"RTN","C0E0001I",27,0)
	1252	s sessionArray("ewd_pageName")="index"
	1253	"RTN","C0E0001I",28,0)
	1254	s sessionArray("ewd_translationMode")="0"
	1255	"RTN","C0E0001I",29,0)
	1256	s sessionArray("ewd_technology")="gtm"
	1257	"RTN","C0E0001I",30,0)
	1258	s sessionArray("ewd_pageType")=""
	1259	"RTN","C0E0001I",31,0)
	1260	s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
	1261	"RTN","C0E0001I",32,0)
	1262	s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
	1263	"RTN","C0E0001I",33,0)
	1264	s sessid=$g(sessionArray("ewd_sessid"))
	1265	"RTN","C0E0001I",34,0)
	1266	i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
	1267	"RTN","C0E0001I",35,0)
	1268	. s Error=$p(Error,":",2,200)
	1269	"RTN","C0E0001I",36,0)
	1270	. s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
	1271	"RTN","C0E0001I",37,0)
	1272	. s Error="EWD runtime error: "_Error
	1273	"RTN","C0E0001I",38,0)
	1274	i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
	1275	"RTN","C0E0001I",39,0)
	1276	. n errorPage
	1277	"RTN","C0E0001I",40,0)
	1278	. s errorPage=$g(sessionArray("ewd_errorPage"))
	1279	"RTN","C0E0001I",41,0)
	1280	. i errorPage="" s errorPage="ewdError"
	1281	"RTN","C0E0001I",42,0)
	1282	. i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
	1283	"RTN","C0E0001I",43,0)
	1284	. d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
	1285	"RTN","C0E0001I",44,0)
	1286	s stop=0
	1287	"RTN","C0E0001I",45,0)
	1288	i Error="" d i stop QUIT 0
	1289	"RTN","C0E0001I",46,0)
	1290	. n nextpage
	1291	"RTN","C0E0001I",47,0)
	1292	. s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
	1293	"RTN","C0E0001I",48,0)
	1294	. i nextpage'="" d
	1295	"RTN","C0E0001I",49,0)
	1296	. . n x
	1297	"RTN","C0E0001I",50,0)
	1298	. . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
	1299	"RTN","C0E0001I",51,0)
	1300	. . s stop=1
	1301	"RTN","C0E0001I",52,0)
	1302	i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
	1303	"RTN","C0E0001I",53,0)
	1304	. s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
	1305	"RTN","C0E0001I",54,0)
	1306	. d deleteFromSession^%zewdAPI("ewd_warning",sessid)
	1307	"RTN","C0E0001I",55,0)
	1308	w "HTTP/1.1 200 OK"_$c(13,10)
	1309	"RTN","C0E0001I",56,0)
	1310	s ctype="text/html"
	1311	"RTN","C0E0001I",57,0)
	1312	d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
	1313	"RTN","C0E0001I",58,0)
	1314	i $d(headers) d
	1315	"RTN","C0E0001I",59,0)
	1316	. n lcname,name
	1317	"RTN","C0E0001I",60,0)
	1318	. s name=""
	1319	"RTN","C0E0001I",61,0)
	1320	. f s name=$o(headers(name)) q:name="" d
	1321	"RTN","C0E0001I",62,0)
	1322	. . s lcname=$$zcvt^%zewdAPI(name,"l")
	1323	"RTN","C0E0001I",63,0)
	1324	. . i lcname="content-type" s ctype=headers(name) q
	1325	"RTN","C0E0001I",64,0)
	1326	. . w name_": "_headers(name)_$c(13,10)
	1327	"RTN","C0E0001I",65,0)
	1328	w "Content-type: "_ctype_$c(13,10)
	1329	"RTN","C0E0001I",66,0)
	1330	w $c(13,10)
	1331	"RTN","C0E0001I",67,0)
	1332	QUIT 1
	1333	"RTN","C0E0001I",68,0)
	1334	;
	1335	"RTN","C0E0001I",69,0)
	1336	body ;
	1337	"RTN","C0E0001I",70,0)
	1338	w "<html>"_$c(13,10)
	1339	"RTN","C0E0001I",71,0)
	1340	w " <header>"_$c(13,10)
	1341	"RTN","C0E0001I",72,0)
	1342	w " <title>"_$c(13,10)
	1343	"RTN","C0E0001I",73,0)
	1344	w "Screenman Menu"_""
	1345	"RTN","C0E0001I",74,0)
	1346	w " </title>"_$c(13,10)
	1347	"RTN","C0E0001I",75,0)
	1348	w " </header>"_$c(13,10)
	1349	"RTN","C0E0001I",76,0)
	1350	w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
	1351	"RTN","C0E0001I",77,0)
	1352	w "Hello World"_""
	1353	"RTN","C0E0001I",78,0)
	1354	w " <br />"_$c(13,10)
	1355	"RTN","C0E0001I",79,0)
	1356	w " <br />"_$c(13,10)
	1357	"RTN","C0E0001I",80,0)
	1358	w " <a href='/ewd/screenman/test1.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("test1")_"&ewd_urlNo=index1'>"_$c(13,10)
	1359	"RTN","C0E0001I",81,0)
	1360	w "test1 page"_""
	1361	"RTN","C0E0001I",82,0)
	1362	w " </a>"_$c(13,10)
	1363	"RTN","C0E0001I",83,0)
	1364	w " </body>"_$c(13,10)
	1365	"RTN","C0E0001I",84,0)
	1366	w "</html>"_$c(13,10)
	1367	"RTN","C0E0001I",85,0)
	1368	QUIT
	1369	"RTN","C0E0002")
	1370	0^8^B92918287
	1371	"RTN","C0E0002",1,0)
	1372	;GT.M version of page test1 (screenman application)
	1373	"RTN","C0E0002",2,0)
	1374	;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 5
	1375	"RTN","C0E0002",3,0)
	1376	;using Enterprise Web Developer (Build 790)
	1377	"RTN","C0E0002",4,0)
	1378	QUIT
	1379	"RTN","C0E0002",5,0)
	1380	;
	1381	"RTN","C0E0002",6,0)
	1382	run ;
	1383	"RTN","C0E0002",7,0)
	1384	n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
	1385	"RTN","C0E0002",8,0)
	1386	s ok=$$pre()
	1387	"RTN","C0E0002",9,0)
	1388	i ok d body
	1389	"RTN","C0E0002",10,0)
	1390	QUIT
	1391	"RTN","C0E0002",11,0)
	1392	;
	1393	"RTN","C0E0002",12,0)
	1394	pre() ;
	1395	"RTN","C0E0002",13,0)
	1396	;
	1397	"RTN","C0E0002",14,0)
	1398	n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
	1399	"RTN","C0E0002",15,0)
	1400	;
	1401	"RTN","C0E0002",16,0)
	1402	s confirmText="Click OK if you're sure you want to delete this record"
	1403	"RTN","C0E0002",17,0)
	1404	s sessionArray("ewd_isFirstPage")="0"
	1405	"RTN","C0E0002",18,0)
	1406	s sessionArray("ewd_sessid_timeout")="1200"
	1407	"RTN","C0E0002",19,0)
	1408	s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
	1409	"RTN","C0E0002",20,0)
	1410	s sessionArray("ewd_default_timeout")="1200"
	1411	"RTN","C0E0002",21,0)
	1412	s sessionArray("ewd_persistRequest")="true"
	1413	"RTN","C0E0002",22,0)
	1414	s sessionArray("ewd_pageTitle")=""
	1415	"RTN","C0E0002",23,0)
	1416	s sessionArray("ewd_errorPage")="ewdError"
	1417	"RTN","C0E0002",24,0)
	1418	s sessionArray("ewd_templatePrePageScript")=""
	1419	"RTN","C0E0002",25,0)
	1420	s sessionArray("ewd_onErrorScript")=""
	1421	"RTN","C0E0002",26,0)
	1422	s sessionArray("ewd_appName")="screenman"
	1423	"RTN","C0E0002",27,0)
	1424	s sessionArray("ewd_pageName")="test1"
	1425	"RTN","C0E0002",28,0)
	1426	s sessionArray("ewd_translationMode")="0"
	1427	"RTN","C0E0002",29,0)
	1428	s sessionArray("ewd_technology")="gtm"
	1429	"RTN","C0E0002",30,0)
	1430	s sessionArray("ewd_pageType")=""
	1431	"RTN","C0E0002",31,0)
	1432	s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
	1433	"RTN","C0E0002",32,0)
	1434	s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
	1435	"RTN","C0E0002",33,0)
	1436	s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
	1437	"RTN","C0E0002",34,0)
	1438	s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
	1439	"RTN","C0E0002",35,0)
	1440	s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
	1441	"RTN","C0E0002",36,0)
	1442	s formInfo="SSN\|text`TITLE\|text`ewd_pressed\|hidden`submit\|submit`"
	1443	"RTN","C0E0002",37,0)
	1444	d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
	1445	"RTN","C0E0002",38,0)
	1446	s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
	1447	"RTN","C0E0002",39,0)
	1448	s sessid=$g(sessionArray("ewd_sessid"))
	1449	"RTN","C0E0002",40,0)
	1450	i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
	1451	"RTN","C0E0002",41,0)
	1452	. s Error=$p(Error,":",2,200)
	1453	"RTN","C0E0002",42,0)
	1454	. s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
	1455	"RTN","C0E0002",43,0)
	1456	. s Error="EWD runtime error: "_Error
	1457	"RTN","C0E0002",44,0)
	1458	i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
	1459	"RTN","C0E0002",45,0)
	1460	. n errorPage
	1461	"RTN","C0E0002",46,0)
	1462	. s errorPage=$g(sessionArray("ewd_errorPage"))
	1463	"RTN","C0E0002",47,0)
	1464	. i errorPage="" s errorPage="ewdError"
	1465	"RTN","C0E0002",48,0)
	1466	. i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
	1467	"RTN","C0E0002",49,0)
	1468	. d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
	1469	"RTN","C0E0002",50,0)
	1470	s stop=0
	1471	"RTN","C0E0002",51,0)
	1472	i Error="" d i stop QUIT 0
	1473	"RTN","C0E0002",52,0)
	1474	. n nextpage
	1475	"RTN","C0E0002",53,0)
	1476	. s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
	1477	"RTN","C0E0002",54,0)
	1478	. i nextpage'="" d
	1479	"RTN","C0E0002",55,0)
	1480	. . n x
	1481	"RTN","C0E0002",56,0)
	1482	. . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
	1483	"RTN","C0E0002",57,0)
	1484	. . s stop=1
	1485	"RTN","C0E0002",58,0)
	1486	i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
	1487	"RTN","C0E0002",59,0)
	1488	. s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
	1489	"RTN","C0E0002",60,0)
	1490	. d deleteFromSession^%zewdAPI("ewd_warning",sessid)
	1491	"RTN","C0E0002",61,0)
	1492	w "HTTP/1.1 200 OK"_$c(13,10)
	1493	"RTN","C0E0002",62,0)
	1494	s ctype="text/html"
	1495	"RTN","C0E0002",63,0)
	1496	d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
	1497	"RTN","C0E0002",64,0)
	1498	i $d(headers) d
	1499	"RTN","C0E0002",65,0)
	1500	. n lcname,name
	1501	"RTN","C0E0002",66,0)
	1502	. s name=""
	1503	"RTN","C0E0002",67,0)
	1504	. f s name=$o(headers(name)) q:name="" d
	1505	"RTN","C0E0002",68,0)
	1506	. . s lcname=$$zcvt^%zewdAPI(name,"l")
	1507	"RTN","C0E0002",69,0)
	1508	. . i lcname="content-type" s ctype=headers(name) q
	1509	"RTN","C0E0002",70,0)
	1510	. . w name_": "_headers(name)_$c(13,10)
	1511	"RTN","C0E0002",71,0)
	1512	w "Content-type: "_ctype_$c(13,10)
	1513	"RTN","C0E0002",72,0)
	1514	w $c(13,10)
	1515	"RTN","C0E0002",73,0)
	1516	QUIT 1
	1517	"RTN","C0E0002",74,0)
	1518	;
	1519	"RTN","C0E0002",75,0)
	1520	body ;
	1521	"RTN","C0E0002",76,0)
	1522	w "<html>"_$c(13,10)
	1523	"RTN","C0E0002",77,0)
	1524	w " <head>"_$c(13,10)
	1525	"RTN","C0E0002",78,0)
	1526	w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
	1527	"RTN","C0E0002",79,0)
	1528	w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
	1529	"RTN","C0E0002",80,0)
	1530	w "</script>"_$c(13,10)
	1531	"RTN","C0E0002",81,0)
	1532	w " <script language=""javascript"">"_$c(13,10)
	1533	"RTN","C0E0002",82,0)
	1534	w ""_$c(13,10)
	1535	"RTN","C0E0002",83,0)
	1536	w "function ValidateTitle(value) {"_$c(13,10)
	1537	"RTN","C0E0002",84,0)
	1538	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)
	1539	"RTN","C0E0002",85,0)
	1540	w "}"_$c(13,10)
	1541	"RTN","C0E0002",86,0)
	1542	w ""_""
	1543	"RTN","C0E0002",87,0)
	1544	w " </script>"_$c(13,10)
	1545	"RTN","C0E0002",88,0)
	1546	w " <title>"_$c(13,10)
	1547	"RTN","C0E0002",89,0)
	1548	w "Screenman Test"_""
	1549	"RTN","C0E0002",90,0)
	1550	w " </title>"_$c(13,10)
	1551	"RTN","C0E0002",91,0)
	1552	w " <script language=""javascript"">"_$c(13,10)
	1553	"RTN","C0E0002",92,0)
	1554	w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
	1555	"RTN","C0E0002",93,0)
	1556	w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
	1557	"RTN","C0E0002",94,0)
	1558	w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
	1559	"RTN","C0E0002",95,0)
	1560	w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
	1561	"RTN","C0E0002",96,0)
	1562	w " } ;"_$c(13,10)
	1563	"RTN","C0E0002",97,0)
	1564	w " EWD.page.setErrorClass = function () { "_$c(13,10)
	1565	"RTN","C0E0002",98,0)
	1566	w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
	1567	"RTN","C0E0002",99,0)
	1568	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)
	1569	"RTN","C0E0002",100,0)
	1570	w " }"_$c(13,10)
	1571	"RTN","C0E0002",101,0)
	1572	w " } ;"_$c(13,10)
	1573	"RTN","C0E0002",102,0)
	1574	w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
	1575	"RTN","C0E0002",103,0)
	1576	w " var json,x ;"_$c(13,10)
	1577	"RTN","C0E0002",104,0)
	1578	w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
	1579	"RTN","C0E0002",105,0)
	1580	w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
	1581	"RTN","C0E0002",106,0)
	1582	w " eval(x) ;"_$c(13,10)
	1583	"RTN","C0E0002",107,0)
	1584	w " }"_$c(13,10)
	1585	"RTN","C0E0002",108,0)
	1586	w " else {"_$c(13,10)
	1587	"RTN","C0E0002",109,0)
	1588	w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
	1589	"RTN","C0E0002",110,0)
	1590	w " //eval(x) ;"_$c(13,10)
	1591	"RTN","C0E0002",111,0)
	1592	w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
	1593	"RTN","C0E0002",112,0)
	1594	w " eval(x) ;"_$c(13,10)
	1595	"RTN","C0E0002",113,0)
	1596	w " //json=toJsonString(objName);"_$c(13,10)
	1597	"RTN","C0E0002",114,0)
	1598	w " }"_$c(13,10)
	1599	"RTN","C0E0002",115,0)
	1600	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)
	1601	"RTN","C0E0002",116,0)
	1602	w " } ;"_$c(13,10)
	1603	"RTN","C0E0002",117,0)
	1604	w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
	1605	"RTN","C0E0002",118,0)
	1606	w " if (refresh) {"_$c(13,10)
	1607	"RTN","C0E0002",119,0)
	1608	w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
	1609	"RTN","C0E0002",120,0)
	1610	w " var objExists = ""undefined"" ;"_$c(13,10)
	1611	"RTN","C0E0002",121,0)
	1612	w " }"_$c(13,10)
	1613	"RTN","C0E0002",122,0)
	1614	w " else {"_$c(13,10)
	1615	"RTN","C0E0002",123,0)
	1616	w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
	1617	"RTN","C0E0002",124,0)
	1618	w " eval(x) ;"_$c(13,10)
	1619	"RTN","C0E0002",125,0)
	1620	w " }"_$c(13,10)
	1621	"RTN","C0E0002",126,0)
	1622	w " if (objExists == ""undefined"") {"_$c(13,10)
	1623	"RTN","C0E0002",127,0)
	1624	w " var addRef = 0 ;"_$c(13,10)
	1625	"RTN","C0E0002",128,0)
	1626	w " if (addRefCol) addRef = 1;"_$c(13,10)
	1627	"RTN","C0E0002",129,0)
	1628	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)
	1629	"RTN","C0E0002",130,0)
	1630	w ""_""
	1631	"RTN","C0E0002",131,0)
	1632	w " };"_$c(13,10)
	1633	"RTN","C0E0002",132,0)
	1634	w " } ;"_$c(13,10)
	1635	"RTN","C0E0002",133,0)
	1636	w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
	1637	"RTN","C0E0002",134,0)
	1638	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)
	1639	"RTN","C0E0002",135,0)
	1640	w " } ;"_$c(13,10)
	1641	"RTN","C0E0002",136,0)
	1642	w ""_""
	1643	"RTN","C0E0002",137,0)
	1644	w " </script>"_$c(13,10)
	1645	"RTN","C0E0002",138,0)
	1646	w " </head>"_$c(13,10)
	1647	"RTN","C0E0002",139,0)
	1648	w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
	1649	"RTN","C0E0002",140,0)
	1650	w " <form action='/ewd/screenman/test1.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"' method=""post"" name=""ewdForm1"">"_$c(13,10)
	1651	"RTN","C0E0002",141,0)
	1652	w " <center>"_$c(13,10)
	1653	"RTN","C0E0002",142,0)
	1654	w "Edit an Existing User"_""
	1655	"RTN","C0E0002",143,0)
	1656	w " </center>"_$c(13,10)
	1657	"RTN","C0E0002",144,0)
	1658	w " <div id=""name"">"_$c(13,10)
	1659	"RTN","C0E0002",145,0)
	1660	w "NAME: "_$$getSessionValue^%zewdAPI("name",sessid)
	1661	"RTN","C0E0002",146,0)
	1662	w " </div>"_$c(13,10)
	1663	"RTN","C0E0002",147,0)
	1664	w " <hr />"_$c(13,10)
	1665	"RTN","C0E0002",148,0)
	1666	w "TITLE:"_""
	1667	"RTN","C0E0002",149,0)
	1668	w " <input id=""TITLE"" name=""TITLE"" onchange=""ValidateTitle(this.value)"" type=""text"" value='"_$$getSessionValue^%zewdAPI("TITLE",sessid)_"' />"_$c(13,10)
	1669	"RTN","C0E0002",150,0)
	1670	w " <br />"_$c(13,10)
	1671	"RTN","C0E0002",151,0)
	1672	w " <br />"_$c(13,10)
	1673	"RTN","C0E0002",152,0)
	1674	w "SSN:"_""
	1675	"RTN","C0E0002",153,0)
	1676	w " <input id=""SSN"" name=""SSN"" type=""text"" value='"_$$getSessionValue^%zewdAPI("SSN",sessid)_"' />"_$c(13,10)
	1677	"RTN","C0E0002",154,0)
	1678	w " <br />"_$c(13,10)
	1679	"RTN","C0E0002",155,0)
	1680	w " <br />"_$c(13,10)
	1681	"RTN","C0E0002",156,0)
	1682	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)
	1683	"RTN","C0E0002",157,0)
	1684	w " <input name=""ewd_action"" type=""hidden"" value="""" />"_$c(13,10)
	1685	"RTN","C0E0002",158,0)
	1686	w " <input name=""ewd_pressed"" type=""hidden"" value="""" />"_$c(13,10)
	1687	"RTN","C0E0002",159,0)
	1688	w " </form>"_$c(13,10)
	1689	"RTN","C0E0002",160,0)
	1690	w " </body>"_$c(13,10)
	1691	"RTN","C0E0002",161,0)
	1692	w "</html>"_$c(13,10)
	1693	"RTN","C0E0002",162,0)
	1694	QUIT
	1695	"SEC","^DIC",70050,70050,0,"AUDIT")
	1696	@
	1697	"SEC","^DIC",70050,70050,0,"DD")
	1698	@
	1699	"SEC","^DIC",70050,70050,0,"DEL")
	1700	@
	1701	"SEC","^DIC",70050,70050,0,"LAYGO")
	1702	@
	1703	"SEC","^DIC",70050,70050,0,"RD")
	1704	@
	1705	"SEC","^DIC",70050,70050,0,"WR")
	1706	@
	1707	"VER")
	1708	8.0^22.0
	1709	"^DD",70050,70050,0)
	1710	FIELD^^1^5
	1711	"^DD",70050,70050,0,"DDA")
	1712	N
	1713	"^DD",70050,70050,0,"DT")
	1714	3100301
	1715	"^DD",70050,70050,0,"ID",.02)
	1716	W " ",$P(^(0),U,2)
	1717	"^DD",70050,70050,0,"ID",.03)
	1718	W " ",$P(^(0),U,3)
	1719	"^DD",70050,70050,0,"IX","B",70050,.01)
	1720
	1721	"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
	1722
	1723	"^DD",70050,70050,.01,0)
	1724	EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
	1725	"^DD",70050,70050,.01,1,0)
	1726	^.1
	1727	"^DD",70050,70050,.01,1,1,0)
	1728	70050^B
	1729	"^DD",70050,70050,.01,1,1,1)
	1730	S ^C0E(70050,"B",$E(X,1,30),DA)=""
	1731	"^DD",70050,70050,.01,1,1,2)
	1732	K ^C0E(70050,"B",$E(X,1,30),DA)
	1733	"^DD",70050,70050,.01,3)
	1734	NAMESPACED EWD COMPILED PAGE
	1735	"^DD",70050,70050,.01,"DT")
	1736	3100301
	1737	"^DD",70050,70050,.02,0)
	1738	EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
	1739	"^DD",70050,70050,.02,3)
	1740	NAME OF THE EWD APPLICATION
	1741	"^DD",70050,70050,.02,"DT")
	1742	3100303
	1743	"^DD",70050,70050,.03,0)
	1744	EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
	1745	"^DD",70050,70050,.03,3)
	1746	EWD PAGE NAME
	1747	"^DD",70050,70050,.03,"DT")
	1748	3100301
	1749	"^DD",70050,70050,1,0)
	1750	DESCRIPTION^70050.01^^2;0
	1751	"^DD",70050,70050,2,0)
	1752	EWD SOURCE^70050.02^^1;0
	1753	"^DD",70050,70050.01,0)
	1754	DESCRIPTION SUB-FIELD^^.01^1
	1755	"^DD",70050,70050.01,0,"DT")
	1756	3100301
	1757	"^DD",70050,70050.01,0,"NM","DESCRIPTION")
	1758
	1759	"^DD",70050,70050.01,0,"UP")
	1760	70050
	1761	"^DD",70050,70050.01,.01,0)
	1762	DESCRIPTION^Wx^^0;1
	1763	"^DD",70050,70050.01,.01,3)
	1764	DESCRIPTION OF THE EWD PAGE
	1765	"^DD",70050,70050.01,.01,"DT")
	1766	3100301
	1767	"^DD",70050,70050.02,0)
	1768	EWD SOURCE SUB-FIELD^^.01^1
	1769	"^DD",70050,70050.02,0,"DT")
	1770	3100301
	1771	"^DD",70050,70050.02,0,"NM","EWD SOURCE")
	1772
	1773	"^DD",70050,70050.02,0,"UP")
	1774	70050
	1775	"^DD",70050,70050.02,.01,0)
	1776	EWD SOURCE^WLx^^0;1
	1777	"^DD",70050,70050.02,.01,3)
	1778	EWD PAGE SOURCE CODE
	1779	"^DD",70050,70050.02,.01,"DT")
	1780	3100301
	1781	"^DIC",70050,70050,0)
	1782	C0EWD ROUTINE MAP^70050
	1783	"^DIC",70050,70050,0,"GL")
	1784	^C0E(70050,
	1785	"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
	1786
	1787	END
	1788	END

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

Download in other formats:

Original Format