Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

C0E0_1_0_0_T3.KID@ 1671

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

Line
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