source: EWD/archive/C0E0_1_0_0_T4.KID@ 1724

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

old version of EWD fileman file and sample applications

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