Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

C0E0_1_0_0_T3.KID@ 1002

Last change on this file since 1002 was 724, checked in by George Lilly, 15 years ago
update to distribute only application mapping records with each application
File size: 55.1 KB

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

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

Download in other formats:

Original Format