source: EWD/archive/C0E0_1_0_0_T3.KID@ 1394

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

old version of EWD fileman file and sample applications

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