Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

C0E0_1_0_0_T4.KID@ 1482

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

Line
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