source: EWD/archive/C0E0_1_0_0_T5.KID@ 1761

Last change on this file since 1761 was 1265, checked in by George Lilly, 13 years ago

old version of EWD fileman file and sample applications

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