source: ccr/trunk/p/C0E0_1_0_0_T2.KID@ 765

Last change on this file since 765 was 723, checked in by George Lilly, 15 years ago

initial VTM screenman demo with test1 record fixed

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