source: ccr/trunk/p/C0CE0_1_0_0_T3.KID@ 819

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

updated EWD demo applications
File size: 104.3 KB
Line 
1KIDS Distribution saved on Mar 02, 2010@00:31:49
2fixed index routine C0CEX
3**KIDS**:C0CE0*1.0*0^
4
5**INSTALL NAME**
6C0CE0*1.0*0
7"BLD",6968,0)
8C0CE0*1.0*0^^0^3100302^n
9"BLD",6968,4,0)
10^9.64PA^70050^1
11"BLD",6968,4,70050,0)
1270050
13"BLD",6968,4,70050,222)
14y^y^f^^n^^y^o^n
15"BLD",6968,4,"B",70050,70050)
16
17"BLD",6968,6.3)
183
19"BLD",6968,"KRN",0)
20^9.67PA^8989.52^19
21"BLD",6968,"KRN",.4,0)
22.4
23"BLD",6968,"KRN",.401,0)
24.401
25"BLD",6968,"KRN",.401,"NM",0)
26^9.68A^1^1
27"BLD",6968,"KRN",.401,"NM",1,0)
28C0CE0 PATIENT PORTAL FILE #70050^70050^0
29"BLD",6968,"KRN",.401,"NM","B","C0CE0 PATIENT PORTAL FILE #70050",1)
30
31"BLD",6968,"KRN",.402,0)
32.402
33"BLD",6968,"KRN",.403,0)
34.403
35"BLD",6968,"KRN",.5,0)
36.5
37"BLD",6968,"KRN",.84,0)
38.84
39"BLD",6968,"KRN",3.6,0)
403.6
41"BLD",6968,"KRN",3.8,0)
423.8
43"BLD",6968,"KRN",9.2,0)
449.2
45"BLD",6968,"KRN",9.8,0)
469.8
47"BLD",6968,"KRN",9.8,"NM",0)
48^9.68A^13^13
49"BLD",6968,"KRN",9.8,"NM",1,0)
50C0CEX^^0^B811998
51"BLD",6968,"KRN",9.8,"NM",2,0)
52C0CE001I^^0^B97883042
53"BLD",6968,"KRN",9.8,"NM",3,0)
54C0CE000A^^0^B14831539
55"BLD",6968,"KRN",9.8,"NM",4,0)
56C0CE000F^^0^B32715806
57"BLD",6968,"KRN",9.8,"NM",5,0)
58C0CE002^^0^B19002031
59"BLD",6968,"KRN",9.8,"NM",6,0)
60C0CE004^^0^B14016611
61"BLD",6968,"KRN",9.8,"NM",7,0)
62C0CE006^^0^B77594981
63"BLD",6968,"KRN",9.8,"NM",8,0)
64C0CE000E^^0^B27501668
65"BLD",6968,"KRN",9.8,"NM",9,0)
66C0CE000R^^0^B66701996
67"BLD",6968,"KRN",9.8,"NM",10,0)
68C0CE001L^^0^B51144421
69"BLD",6968,"KRN",9.8,"NM",11,0)
70C0CE003^^0^B16186512
71"BLD",6968,"KRN",9.8,"NM",12,0)
72C0CE005^^0^B80810317
73"BLD",6968,"KRN",9.8,"NM",13,0)
74C0CRICH^^0^B5114262
75"BLD",6968,"KRN",9.8,"NM","B","C0CE000A",3)
76
77"BLD",6968,"KRN",9.8,"NM","B","C0CE000E",8)
78
79"BLD",6968,"KRN",9.8,"NM","B","C0CE000F",4)
80
81"BLD",6968,"KRN",9.8,"NM","B","C0CE000R",9)
82
83"BLD",6968,"KRN",9.8,"NM","B","C0CE001I",2)
84
85"BLD",6968,"KRN",9.8,"NM","B","C0CE001L",10)
86
87"BLD",6968,"KRN",9.8,"NM","B","C0CE002",5)
88
89"BLD",6968,"KRN",9.8,"NM","B","C0CE003",11)
90
91"BLD",6968,"KRN",9.8,"NM","B","C0CE004",6)
92
93"BLD",6968,"KRN",9.8,"NM","B","C0CE005",12)
94
95"BLD",6968,"KRN",9.8,"NM","B","C0CE006",7)
96
97"BLD",6968,"KRN",9.8,"NM","B","C0CEX",1)
98
99"BLD",6968,"KRN",9.8,"NM","B","C0CRICH",13)
100
101"BLD",6968,"KRN",19,0)
10219
103"BLD",6968,"KRN",19.1,0)
10419.1
105"BLD",6968,"KRN",101,0)
106101
107"BLD",6968,"KRN",409.61,0)
108409.61
109"BLD",6968,"KRN",771,0)
110771
111"BLD",6968,"KRN",870,0)
112870
113"BLD",6968,"KRN",8989.51,0)
1148989.51
115"BLD",6968,"KRN",8989.52,0)
1168989.52
117"BLD",6968,"KRN",8994,0)
1188994
119"BLD",6968,"KRN","B",.4,.4)
120
121"BLD",6968,"KRN","B",.401,.401)
122
123"BLD",6968,"KRN","B",.402,.402)
124
125"BLD",6968,"KRN","B",.403,.403)
126
127"BLD",6968,"KRN","B",.5,.5)
128
129"BLD",6968,"KRN","B",.84,.84)
130
131"BLD",6968,"KRN","B",3.6,3.6)
132
133"BLD",6968,"KRN","B",3.8,3.8)
134
135"BLD",6968,"KRN","B",9.2,9.2)
136
137"BLD",6968,"KRN","B",9.8,9.8)
138
139"BLD",6968,"KRN","B",19,19)
140
141"BLD",6968,"KRN","B",19.1,19.1)
142
143"BLD",6968,"KRN","B",101,101)
144
145"BLD",6968,"KRN","B",409.61,409.61)
146
147"BLD",6968,"KRN","B",771,771)
148
149"BLD",6968,"KRN","B",870,870)
150
151"BLD",6968,"KRN","B",8989.51,8989.51)
152
153"BLD",6968,"KRN","B",8989.52,8989.52)
154
155"BLD",6968,"KRN","B",8994,8994)
156
157"DATA",70050,1,0)
15823394^patientportal^ewdajaxerror
159"DATA",70050,2,0)
16023397^patientportal^ewderrorredirect
161"DATA",70050,3,0)
16223399^patientportal^index
163"DATA",70050,3,1,0)
164^70050.02^28^28^3100301^^
165"DATA",70050,3,1,1,0)
166<ewd:config isFirstPage="true" cachePage="false">
167"DATA",70050,3,1,2,0)
168 <html>
169"DATA",70050,3,1,3,0)
170 <head>
171"DATA",70050,3,1,4,0)
172 <title>The start EWD Page</title>
173"DATA",70050,3,1,5,0)
174 <script language="javascript">
175"DATA",70050,3,1,6,0)
176 function init()
177"DATA",70050,3,1,7,0)
178 {
179"DATA",70050,3,1,8,0)
180 ewd.ajaxRequest('loginPanel','LP');
181"DATA",70050,3,1,9,0)
182 }
183"DATA",70050,3,1,10,0)
184 </script>
185"DATA",70050,3,1,11,0)
186 </head>
187"DATA",70050,3,1,12,0)
188 <body onload="init()">
189"DATA",70050,3,1,13,0)
190 <h3>This page is the first page in this application</h3>
191"DATA",70050,3,1,14,0)
192 <div id="LP">Login</div>
193"DATA",70050,3,1,15,0)
194 <div>
195"DATA",70050,3,1,16,0)
196 <a href="session.ewd">Go to the second page</a>
197"DATA",70050,3,1,17,0)
198 </div>
199"DATA",70050,3,1,18,0)
200 <div>
201"DATA",70050,3,1,19,0)
202 <a href="ccr.ewd">Goto the CCR</a>
203"DATA",70050,3,1,20,0)
204 </div>
205"DATA",70050,3,1,21,0)
206<div>
207"DATA",70050,3,1,22,0)
208<a href="ccrexe.ewd">Goto CCR 2</a>
209"DATA",70050,3,1,23,0)
210</div>
211"DATA",70050,3,1,24,0)
212<div>
213"DATA",70050,3,1,25,0)
214<a href="ccr2.ewd">Goto Hello World</a>
215"DATA",70050,3,1,26,0)
216</div>
217"DATA",70050,3,1,27,0)
218 </body>
219"DATA",70050,3,1,28,0)
220 </html>
221"DATA",70050,4,0)
22223395^patientportal^ewderror
223"DATA",70050,5,0)
22423398^patientportal^session
225"DATA",70050,5,1,0)
226^70050.02^16^16^3100301^^^
227"DATA",70050,5,1,1,0)
228 <ewd:config isFirstPage="false" prePageScript="TEST^RICHEWDTEST">
229"DATA",70050,5,1,2,0)
230 <html>
231"DATA",70050,5,1,3,0)
232 <head>
233"DATA",70050,5,1,4,0)
234 <title>EWD Page using Session Variables and a PrePage Script</title>
235"DATA",70050,5,1,5,0)
236 <script language="javascript">
237"DATA",70050,5,1,6,0)
238 eval('<?= #json ?>');
239"DATA",70050,5,1,7,0)
240 //ewd.getJSON(#json) ;
241"DATA",70050,5,1,8,0)
242 alert('hello ' + person.Address.Name) ;
243"DATA",70050,5,1,9,0)
244 </script>
245"DATA",70050,5,1,10,0)
246 </head>
247"DATA",70050,5,1,11,0)
248 <body>
249"DATA",70050,5,1,12,0)
250 <h3>This page accesses EWD Session Variables</h3>
251"DATA",70050,5,1,13,0)
252 <div>Name: <?= #person.Name ?> </div>
253"DATA",70050,5,1,14,0)
254 <div>Goto <a href="login.ewd">next page</a></div>
255"DATA",70050,5,1,15,0)
256 </body>
257"DATA",70050,5,1,16,0)
258 </html>
259"DATA",70050,6,0)
26023396^patientportal^ewdajaxerrorredirect
261"DATA",70050,7,0)
26223401^patientportal^ccr
263"DATA",70050,7,1,0)
264^70050.02^5^5^3100301^^^
265"DATA",70050,7,1,1,0)
266<ewd:config isFirstPage="false" prePageScript="TEST2^RICHEWDTEST">
267"DATA",70050,7,1,2,0)
268<ewd:responseHeader name="Content-type" value="text/xml">
269"DATA",70050,7,1,3,0)
270<ewd:foreach sessionName="CCR" index="$no" return="$data">
271"DATA",70050,7,1,4,0)
272<?= $data ?>
273"DATA",70050,7,1,5,0)
274</ewd:foreach>
275"DATA",70050,8,0)
27623402^patientportal^ccr2
277"DATA",70050,8,1,0)
278^70050.02^6^6^3100301^^^^
279"DATA",70050,8,1,1,0)
280<ewd:config isFirstPage="false">
281"DATA",70050,8,1,2,0)
282<html>
283"DATA",70050,8,1,3,0)
284<body>
285"DATA",70050,8,1,4,0)
286hello world
287"DATA",70050,8,1,5,0)
288</body>
289"DATA",70050,8,1,6,0)
290</html>
291"DATA",70050,9,0)
29223400^patientportal^loginpanel
293"DATA",70050,9,1,0)
294^70050.02^4^4^3100301^^
295"DATA",70050,9,1,1,0)
296<ewd:config isFirstPage="false" pageType="ajax">
297"DATA",70050,9,1,2,0)
298<yui:Dialog width="270px" x="150" y="100" headerText="Login">
299"DATA",70050,9,1,3,0)
300Login Form will go here
301"DATA",70050,9,1,4,0)
302</yui:Dialog>
303"DATA",70050,10,0)
30423403^patientportal^ccr-exe
305"DATA",70050,10,1,0)
306^^2^2^3100301^
307"DATA",70050,10,1,1,0)
308 <ewd:config isFirstPage="false">
309"DATA",70050,10,1,2,0)
310 <ewd:execute method="gpltest^RICHEWDTEST" param1="" type=procedure>
311"DATA",70050,11,0)
31223404^patientportal^Second
313"DATA",70050,12,0)
31423407^screenman^ewdajaxerror
315"DATA",70050,13,0)
31623408^screenman^ewdajaxerrorredirect
317"DATA",70050,14,0)
31823409^screenman^ewderror
319"DATA",70050,15,0)
32023410^screenman^ewderrorredirect
321"DATA",70050,16,0)
32223411^screenman^index
323"DATA",70050,16,1,0)
324^^10^10^3100301^
325"DATA",70050,16,1,1,0)
326<ewd:config isfirstpage="true">
327"DATA",70050,16,1,2,0)
328<html>
329"DATA",70050,16,1,3,0)
330<header>
331"DATA",70050,16,1,4,0)
332<title>Screenman Menu</title>
333"DATA",70050,16,1,5,0)
334</header>
335"DATA",70050,16,1,6,0)
336<body>
337"DATA",70050,16,1,7,0)
338Hello World<br><br>
339"DATA",70050,16,1,8,0)
340<a href="test1.ewd">test1 page</a>
341"DATA",70050,16,1,9,0)
342</body>
343"DATA",70050,16,1,10,0)
344</html>
345"DATA",70050,17,0)
34623412^screenman^test1.m
347"DATA",70050,17,1,0)
348^^25^25^3100301^
349"DATA",70050,17,1,1,0)
350<ewd:config isfirstpage="false" prepagescript="TEST1^C0CROB">
351"DATA",70050,17,1,2,0)
352<html>
353"DATA",70050,17,1,3,0)
354<head>
355"DATA",70050,17,1,4,0)
356<script language="javascript">
357"DATA",70050,17,1,5,0)
358function ValidateTitle(value) {
359"DATA",70050,17,1,6,0)
360ewd:VALIDATETITLE^C0CROB(value);
361"DATA",70050,17,1,7,0)
362}
363"DATA",70050,17,1,8,0)
364</script>
365"DATA",70050,17,1,9,0)
366<title>Screenman Test</title>
367"DATA",70050,17,1,10,0)
368</head>
369"DATA",70050,17,1,11,0)
370<body>
371"DATA",70050,17,1,12,0)
372<form method="post" action="ewd">
373"DATA",70050,17,1,13,0)
374<center>Edit an Existing User</center>
375"DATA",70050,17,1,14,0)
376<div id="name">
377"DATA",70050,17,1,15,0)
378NAME: <?= #name ?>
379"DATA",70050,17,1,16,0)
380</div>
381"DATA",70050,17,1,17,0)
382<hr>
383"DATA",70050,17,1,18,0)
384TITLE: <input type="text" name="TITLE" value="*"
385"DATA",70050,17,1,19,0)
386onchange="ValidateTitle(this.value)" /><br><br>
387"DATA",70050,17,1,20,0)
388SSN: <input type="text" name="SSN" value="*" /><br><br>
389"DATA",70050,17,1,21,0)
390<input type="submit" name="submit" value="save" action="SAVEFORM^C0CROB"
391"DATA",70050,17,1,22,0)
392nextpage="test1" />
393"DATA",70050,17,1,23,0)
394</form>
395"DATA",70050,17,1,24,0)
396</body>
397"DATA",70050,17,1,25,0)
398</html>
399"FIA",70050)
400C0EWD ROUTINE MAP
401"FIA",70050,0)
402^C0E(70050,
403"FIA",70050,0,0)
40470050PI
405"FIA",70050,0,1)
406y^y^f^^n^^y^o^n
407"FIA",70050,0,10)
408
409"FIA",70050,0,11)
410
411"FIA",70050,0,"RLRO")
412
413"FIA",70050,70050)
4140
415"FIA",70050,70050.01)
4160
417"FIA",70050,70050.02)
4180
419"IX",70050,70050,"AZEWD",0)
42070050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
421"IX",70050,70050,"AZEWD",1)
422D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
423"IX",70050,70050,"AZEWD",2)
424D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
425"IX",70050,70050,"AZEWD",11.1,0)
426^.114IA^3^3
427"IX",70050,70050,"AZEWD",11.1,1,0)
4281^F^70050^.01^^^F
429"IX",70050,70050,"AZEWD",11.1,2,0)
4302^F^70050^.02^^^F
431"IX",70050,70050,"AZEWD",11.1,3,0)
4323^F^70050^.03^^^F
433"IX",70050,70050,"C",0)
43470050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
435"IX",70050,70050,"C",1)
436S ^C0E(70050,"C",$E(X,1,60),DA)=""
437"IX",70050,70050,"C",2)
438K ^C0E(70050,"C",$E(X,1,60),DA)
439"IX",70050,70050,"C",2.5)
440K ^C0E(70050,"C")
441"IX",70050,70050,"C",11.1,0)
442^.114IA^1^1
443"IX",70050,70050,"C",11.1,1,0)
4441^F^70050^.03^60^1^F
445"IX",70050,70050,"C",11.1,1,3)
446
447"KRN",.401,1795,-1)
4480^1
449"KRN",.401,1795,0)
450C0CE0 PATIENT PORTAL^3100302.0028^@^70050^^@^3100302
451"KRN",.401,1795,2,0)
452^.4014^1^1
453"KRN",.401,1795,2,1,0)
45470050^.02^EWD APPLICATION^^^^^^^4
455"KRN",.401,1795,2,1,"F")
456patientportakz^patientportal
457"KRN",.401,1795,2,1,"GET")
458S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
459"KRN",.401,1795,2,1,"QCON")
460I DISX(1)="patientportal"
461"KRN",.401,1795,2,1,"T")
462patientportal^patientportal
463"KRN",.401,1795,2,1,"TXT")
464EWD APPLICATION equals patientportal
465"KRN",.401,1795,2,"B",70050,1)
466
467"MBREQ")
4680
469"ORD",6,.401)
470.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,"",%)
471"ORD",6,.401,0)
472SORT TEMPLATE
473"QUES","XPF1",0)
474Y
475"QUES","XPF1","??")
476^D REP^XPDH
477"QUES","XPF1","A")
478Shall I write over your |FLAG| File
479"QUES","XPF1","B")
480YES
481"QUES","XPF1","M")
482D XPF1^XPDIQ
483"QUES","XPF2",0)
484Y
485"QUES","XPF2","??")
486^D DTA^XPDH
487"QUES","XPF2","A")
488Want my data |FLAG| yours
489"QUES","XPF2","B")
490YES
491"QUES","XPF2","M")
492D XPF2^XPDIQ
493"QUES","XPI1",0)
494YO
495"QUES","XPI1","??")
496^D INHIBIT^XPDH
497"QUES","XPI1","A")
498Want KIDS to INHIBIT LOGONs during the install
499"QUES","XPI1","B")
500NO
501"QUES","XPI1","M")
502D XPI1^XPDIQ
503"QUES","XPM1",0)
504PO^VA(200,:EM
505"QUES","XPM1","??")
506^D MG^XPDH
507"QUES","XPM1","A")
508Enter the Coordinator for Mail Group '|FLAG|'
509"QUES","XPM1","B")
510
511"QUES","XPM1","M")
512D XPM1^XPDIQ
513"QUES","XPO1",0)
514Y
515"QUES","XPO1","??")
516^D MENU^XPDH
517"QUES","XPO1","A")
518Want KIDS to Rebuild Menu Trees Upon Completion of Install
519"QUES","XPO1","B")
520NO
521"QUES","XPO1","M")
522D XPO1^XPDIQ
523"QUES","XPZ1",0)
524Y
525"QUES","XPZ1","??")
526^D OPT^XPDH
527"QUES","XPZ1","A")
528Want to DISABLE Scheduled Options, Menu Options, and Protocols
529"QUES","XPZ1","B")
530NO
531"QUES","XPZ1","M")
532D XPZ1^XPDIQ
533"QUES","XPZ2",0)
534Y
535"QUES","XPZ2","??")
536^D RTN^XPDH
537"QUES","XPZ2","A")
538Want to MOVE routines to other CPUs
539"QUES","XPZ2","B")
540NO
541"QUES","XPZ2","M")
542D XPZ2^XPDIQ
543"RTN")
54413
545"RTN","C0CE000A")
5460^3^B14831539
547"RTN","C0CE000A",1,0)
548 ;GT.M version of page ewdAjaxError (patientportal application)
549"RTN","C0CE000A",2,0)
550 ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
551"RTN","C0CE000A",3,0)
552 ;using Enterprise Web Developer (Build 790)
553"RTN","C0CE000A",4,0)
554 QUIT
555"RTN","C0CE000A",5,0)
556 ;
557"RTN","C0CE000A",6,0)
558run ;
559"RTN","C0CE000A",7,0)
560 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
561"RTN","C0CE000A",8,0)
562 s ok=$$pre()
563"RTN","C0CE000A",9,0)
564 i ok d body
565"RTN","C0CE000A",10,0)
566 QUIT
567"RTN","C0CE000A",11,0)
568 ;
569"RTN","C0CE000A",12,0)
570pre() ;
571"RTN","C0CE000A",13,0)
572 ;
573"RTN","C0CE000A",14,0)
574 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
575"RTN","C0CE000A",15,0)
576 ;
577"RTN","C0CE000A",16,0)
578 s confirmText="Click OK if you're sure you want to delete this record"
579"RTN","C0CE000A",17,0)
580 s sessionArray("ewd_isFirstPage")="1"
581"RTN","C0CE000A",18,0)
582 s sessionArray("ewd_sessid_timeout")="1200"
583"RTN","C0CE000A",19,0)
584 s sessionArray("ewd_prePageScript")=""
585"RTN","C0CE000A",20,0)
586 s sessionArray("ewd_default_timeout")="1200"
587"RTN","C0CE000A",21,0)
588 s sessionArray("ewd_persistRequest")="true"
589"RTN","C0CE000A",22,0)
590 s sessionArray("ewd_pageTitle")=""
591"RTN","C0CE000A",23,0)
592 s sessionArray("ewd_errorPage")="ewdError"
593"RTN","C0CE000A",24,0)
594 s sessionArray("ewd_templatePrePageScript")=""
595"RTN","C0CE000A",25,0)
596 s sessionArray("ewd_onErrorScript")=""
597"RTN","C0CE000A",26,0)
598 s sessionArray("ewd_appName")="patientportal"
599"RTN","C0CE000A",27,0)
600 s sessionArray("ewd_pageName")="ewdAjaxError"
601"RTN","C0CE000A",28,0)
602 s sessionArray("ewd_translationMode")="0"
603"RTN","C0CE000A",29,0)
604 s sessionArray("ewd_technology")="gtm"
605"RTN","C0CE000A",30,0)
606 s sessionArray("ewd_pageType")=""
607"RTN","C0CE000A",31,0)
608 s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
609"RTN","C0CE000A",32,0)
610 s sessid=$g(sessionArray("ewd_sessid"))
611"RTN","C0CE000A",33,0)
612 i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
613"RTN","C0CE000A",34,0)
614 . s Error=$p(Error,":",2,200)
615"RTN","C0CE000A",35,0)
616 . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
617"RTN","C0CE000A",36,0)
618 . s Error="EWD runtime error: "_Error
619"RTN","C0CE000A",37,0)
620 i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
621"RTN","C0CE000A",38,0)
622 . n errorPage
623"RTN","C0CE000A",39,0)
624 . s errorPage=$g(sessionArray("ewd_errorPage"))
625"RTN","C0CE000A",40,0)
626 . i errorPage="" s errorPage="ewdError"
627"RTN","C0CE000A",41,0)
628 . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
629"RTN","C0CE000A",42,0)
630 . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
631"RTN","C0CE000A",43,0)
632 s stop=0
633"RTN","C0CE000A",44,0)
634 i Error="" d i stop QUIT 0
635"RTN","C0CE000A",45,0)
636 . n nextpage
637"RTN","C0CE000A",46,0)
638 . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
639"RTN","C0CE000A",47,0)
640 . i nextpage'="" d
641"RTN","C0CE000A",48,0)
642 . . n x
643"RTN","C0CE000A",49,0)
644 . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
645"RTN","C0CE000A",50,0)
646 . . s stop=1
647"RTN","C0CE000A",51,0)
648 i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
649"RTN","C0CE000A",52,0)
650 . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
651"RTN","C0CE000A",53,0)
652 . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
653"RTN","C0CE000A",54,0)
654 w "HTTP/1.1 200 OK"_$c(13,10)
655"RTN","C0CE000A",55,0)
656 s ctype="text/html"
657"RTN","C0CE000A",56,0)
658 d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
659"RTN","C0CE000A",57,0)
660 i $d(headers) d
661"RTN","C0CE000A",58,0)
662 . n lcname,name
663"RTN","C0CE000A",59,0)
664 . s name=""
665"RTN","C0CE000A",60,0)
666 . f s name=$o(headers(name)) q:name="" d
667"RTN","C0CE000A",61,0)
668 . . s lcname=$$zcvt^%zewdAPI(name,"l")
669"RTN","C0CE000A",62,0)
670 . . i lcname="content-type" s ctype=headers(name) q
671"RTN","C0CE000A",63,0)
672 . . w name_": "_headers(name)_$c(13,10)
673"RTN","C0CE000A",64,0)
674 w "Content-type: "_ctype_$c(13,10)
675"RTN","C0CE000A",65,0)
676 w $c(13,10)
677"RTN","C0CE000A",66,0)
678 QUIT 1
679"RTN","C0CE000A",67,0)
680 ;
681"RTN","C0CE000A",68,0)
682body ;
683"RTN","C0CE000A",69,0)
684 w "<ewdajaxerror>"_$c(13,10)
685"RTN","C0CE000A",70,0)
686 w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
687"RTN","C0CE000A",71,0)
688 w "</ewdajaxerror>"_$c(13,10)
689"RTN","C0CE000A",72,0)
690 QUIT
691"RTN","C0CE000E")
6920^8^B27501668
693"RTN","C0CE000E",1,0)
694 ;GT.M version of page ewdError (patientportal application)
695"RTN","C0CE000E",2,0)
696 ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 3
697"RTN","C0CE000E",3,0)
698 ;using Enterprise Web Developer (Build 790)
699"RTN","C0CE000E",4,0)
700 QUIT
701"RTN","C0CE000E",5,0)
702 ;
703"RTN","C0CE000E",6,0)
704run ;
705"RTN","C0CE000E",7,0)
706 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
707"RTN","C0CE000E",8,0)
708 s ok=$$pre()
709"RTN","C0CE000E",9,0)
710 i ok d body
711"RTN","C0CE000E",10,0)
712 QUIT
713"RTN","C0CE000E",11,0)
714 ;
715"RTN","C0CE000E",12,0)
716pre() ;
717"RTN","C0CE000E",13,0)
718 ;
719"RTN","C0CE000E",14,0)
720 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
721"RTN","C0CE000E",15,0)
722 ;
723"RTN","C0CE000E",16,0)
724 w "HTTP/1.1 200 OK"_$c(13,10)
725"RTN","C0CE000E",17,0)
726 w "Content-type: text/html"_$c(13,10,13,10)
727"RTN","C0CE000E",18,0)
728 QUIT 1
729"RTN","C0CE000E",19,0)
730 ;
731"RTN","C0CE000E",20,0)
732body ;
733"RTN","C0CE000E",21,0)
734 w ""_$c(13,10)
735"RTN","C0CE000E",22,0)
736 w "<html>"_$c(13,10)
737"RTN","C0CE000E",23,0)
738 w "<head>"_$c(13,10)
739"RTN","C0CE000E",24,0)
740 w "<title>Enterprise Web Developer : A run-time error has occurred</title>"_$c(13,10)
741"RTN","C0CE000E",25,0)
742 w "<style type=""text/css"">"_$c(13,10)
743"RTN","C0CE000E",26,0)
744 w " body {background: #ffffff ;}"_$c(13,10)
745"RTN","C0CE000E",27,0)
746 w " .headerBlock {width: 100% ; background : #111111 ; horizontal-align : center ; }"_$c(13,10)
747"RTN","C0CE000E",28,0)
748 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)
749"RTN","C0CE000E",29,0)
750 w " #headerText {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 11pt ; margin-left: 10px}"_$c(13,10)
751"RTN","C0CE000E",30,0)
752 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)
753"RTN","C0CE000E",31,0)
754 w " .selectedTab {border-style: outset ; background: #eeeedd ; padding-left: 8px ; padding-right: 8px ;}"_$c(13,10)
755"RTN","C0CE000E",32,0)
756 w " .unselectedTab {border-style: groove ; padding-left: 8px ; padding-right: 8px ;}"_$c(13,10)
757"RTN","C0CE000E",33,0)
758 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)
759"RTN","C0CE000E",34,0)
760 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)
761"RTN","C0CE000E",35,0)
762 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)
763"RTN","C0CE000E",36,0)
764 w " #pageTitle {width: 100% ; height: 50px ; text-align : center ; horizontal-align : center ; font-family: Arial, sans-serif ;}"_$c(13,10)
765"RTN","C0CE000E",37,0)
766 w " .footerBlock {width: 100% ; background : #111111 ; horizontal-align : center ;}"_$c(13,10)
767"RTN","C0CE000E",38,0)
768 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)
769"RTN","C0CE000E",39,0)
770 w " #footerText {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 8pt ; margin-left : 10px}"_$c(13,10)
771"RTN","C0CE000E",40,0)
772 w " #tableblock {text-align: center ; margin-top: 40px}"_$c(13,10)
773"RTN","C0CE000E",41,0)
774 w " #hiddenForm {visibility: hidden ;}"_$c(13,10)
775"RTN","C0CE000E",42,0)
776 w "</style>"_$c(13,10)
777"RTN","C0CE000E",43,0)
778 w "</head>"_$c(13,10)
779"RTN","C0CE000E",44,0)
780 w "<body>"_$c(13,10)
781"RTN","C0CE000E",45,0)
782 w ""_$c(13,10)
783"RTN","C0CE000E",46,0)
784 w " <div id=""mainArea"">"_$c(13,10)
785"RTN","C0CE000E",47,0)
786 w " <div id=""pageTitle"">"_$c(13,10)
787"RTN","C0CE000E",48,0)
788 w " <h1>Enterprise Web Developer (Build 790)</h1>"_$c(13,10)
789"RTN","C0CE000E",49,0)
790 w " </div>"_$c(13,10)
791"RTN","C0CE000E",50,0)
792 w ""_$c(13,10)
793"RTN","C0CE000E",51,0)
794 w " <div id=""workArea"">"_$c(13,10)
795"RTN","C0CE000E",52,0)
796 w " <div id=""tableblock"">"_$c(13,10)
797"RTN","C0CE000E",53,0)
798 w " <h3>An Error has occurred</h3>"_$c(13,10)
799"RTN","C0CE000E",54,0)
800 w " <br>"_$c(13,10)
801"RTN","C0CE000E",55,0)
802 w " <h3>"_$g(%KEY("error"))_"</h3>"_$c(13,10)
803"RTN","C0CE000E",56,0)
804 w " </div>"_$c(13,10)
805"RTN","C0CE000E",57,0)
806 w " </div>"_$c(13,10)
807"RTN","C0CE000E",58,0)
808 w " </div>"_$c(13,10)
809"RTN","C0CE000E",59,0)
810 w ""_$c(13,10)
811"RTN","C0CE000E",60,0)
812 w " <div class=footerBlock>"_$c(13,10)
813"RTN","C0CE000E",61,0)
814 w " <p id=""footerText"">&nbsp;&copy; 2004-2009 M/Gateway Developments Ltd All Rights Reserved</p>"_$c(13,10)
815"RTN","C0CE000E",62,0)
816 w " </div>"_$c(13,10)
817"RTN","C0CE000E",63,0)
818 w "</body>"_$c(13,10)
819"RTN","C0CE000E",64,0)
820 w "</html>"_$c(13,10)
821"RTN","C0CE000E",65,0)
822 QUIT
823"RTN","C0CE000F")
8240^4^B32715806
825"RTN","C0CE000F",1,0)
826 ;GT.M version of page ewdAjaxErrorRedirect (patientportal application)
827"RTN","C0CE000F",2,0)
828 ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
829"RTN","C0CE000F",3,0)
830 ;using Enterprise Web Developer (Build 790)
831"RTN","C0CE000F",4,0)
832 QUIT
833"RTN","C0CE000F",5,0)
834 ;
835"RTN","C0CE000F",6,0)
836run ;
837"RTN","C0CE000F",7,0)
838 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
839"RTN","C0CE000F",8,0)
840 s ok=$$pre()
841"RTN","C0CE000F",9,0)
842 i ok d body
843"RTN","C0CE000F",10,0)
844 QUIT
845"RTN","C0CE000F",11,0)
846 ;
847"RTN","C0CE000F",12,0)
848pre() ;
849"RTN","C0CE000F",13,0)
850 ;
851"RTN","C0CE000F",14,0)
852 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
853"RTN","C0CE000F",15,0)
854 ;
855"RTN","C0CE000F",16,0)
856 s confirmText="Click OK if you're sure you want to delete this record"
857"RTN","C0CE000F",17,0)
858 s sessionArray("ewd_isFirstPage")="0"
859"RTN","C0CE000F",18,0)
860 s sessionArray("ewd_sessid_timeout")="1200"
861"RTN","C0CE000F",19,0)
862 s sessionArray("ewd_prePageScript")=""
863"RTN","C0CE000F",20,0)
864 s sessionArray("ewd_default_timeout")="1200"
865"RTN","C0CE000F",21,0)
866 s sessionArray("ewd_persistRequest")="true"
867"RTN","C0CE000F",22,0)
868 s sessionArray("ewd_pageTitle")=""
869"RTN","C0CE000F",23,0)
870 s sessionArray("ewd_errorPage")="ewdError"
871"RTN","C0CE000F",24,0)
872 s sessionArray("ewd_templatePrePageScript")=""
873"RTN","C0CE000F",25,0)
874 s sessionArray("ewd_onErrorScript")=""
875"RTN","C0CE000F",26,0)
876 s sessionArray("ewd_appName")="patientportal"
877"RTN","C0CE000F",27,0)
878 s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
879"RTN","C0CE000F",28,0)
880 s sessionArray("ewd_translationMode")="0"
881"RTN","C0CE000F",29,0)
882 s sessionArray("ewd_technology")="gtm"
883"RTN","C0CE000F",30,0)
884 s sessionArray("ewd_pageType")="ajax"
885"RTN","C0CE000F",31,0)
886 s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
887"RTN","C0CE000F",32,0)
888 s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
889"RTN","C0CE000F",33,0)
890 s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
891"RTN","C0CE000F",34,0)
892 s sessid=$g(sessionArray("ewd_sessid"))
893"RTN","C0CE000F",35,0)
894 i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
895"RTN","C0CE000F",36,0)
896 . s Error=$p(Error,":",2,200)
897"RTN","C0CE000F",37,0)
898 . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
899"RTN","C0CE000F",38,0)
900 . s Error="EWD runtime error: "_Error
901"RTN","C0CE000F",39,0)
902 i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
903"RTN","C0CE000F",40,0)
904 . n errorPage
905"RTN","C0CE000F",41,0)
906 . s errorPage=$g(sessionArray("ewd_errorPage"))
907"RTN","C0CE000F",42,0)
908 . i errorPage="" s errorPage="ewdError"
909"RTN","C0CE000F",43,0)
910 . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
911"RTN","C0CE000F",44,0)
912 . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
913"RTN","C0CE000F",45,0)
914 s stop=0
915"RTN","C0CE000F",46,0)
916 i Error="" d i stop QUIT 0
917"RTN","C0CE000F",47,0)
918 . n nextpage
919"RTN","C0CE000F",48,0)
920 . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
921"RTN","C0CE000F",49,0)
922 . i nextpage'="" d
923"RTN","C0CE000F",50,0)
924 . . n x
925"RTN","C0CE000F",51,0)
926 . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
927"RTN","C0CE000F",52,0)
928 . . s stop=1
929"RTN","C0CE000F",53,0)
930 i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
931"RTN","C0CE000F",54,0)
932 . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
933"RTN","C0CE000F",55,0)
934 . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
935"RTN","C0CE000F",56,0)
936 w "HTTP/1.1 200 OK"_$c(13,10)
937"RTN","C0CE000F",57,0)
938 s ctype="text/html"
939"RTN","C0CE000F",58,0)
940 d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
941"RTN","C0CE000F",59,0)
942 i $d(headers) d
943"RTN","C0CE000F",60,0)
944 . n lcname,name
945"RTN","C0CE000F",61,0)
946 . s name=""
947"RTN","C0CE000F",62,0)
948 . f s name=$o(headers(name)) q:name="" d
949"RTN","C0CE000F",63,0)
950 . . s lcname=$$zcvt^%zewdAPI(name,"l")
951"RTN","C0CE000F",64,0)
952 . . i lcname="content-type" s ctype=headers(name) q
953"RTN","C0CE000F",65,0)
954 . . w name_": "_headers(name)_$c(13,10)
955"RTN","C0CE000F",66,0)
956 w "Content-type: "_ctype_$c(13,10)
957"RTN","C0CE000F",67,0)
958 w $c(13,10)
959"RTN","C0CE000F",68,0)
960 QUIT 1
961"RTN","C0CE000F",69,0)
962 ;
963"RTN","C0CE000F",70,0)
964body ;
965"RTN","C0CE000F",71,0)
966 if ($g(Error)="") d
967"RTN","C0CE000F",72,0)
968 .w " <span>"_$c(13,10)
969"RTN","C0CE000F",73,0)
970 .w " <div href='/ewd/patientportal/ewdErrorRedirect.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("ewdErrorRedirect")_"&ewd_urlNo=ewdAjaxErrorRedirect1' id=""zewdRef"">"_$c(13,10)
971"RTN","C0CE000F",74,0)
972 .w "</div>"_$c(13,10)
973"RTN","C0CE000F",75,0)
974 .w " </span>"_$c(13,10)
975"RTN","C0CE000F",76,0)
976 .
977"RTN","C0CE000F",77,0)
978 w "<span id=""ewdajaxonload"">"_$c(13,10)
979"RTN","C0CE000F",78,0)
980 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)
981"RTN","C0CE000F",79,0)
982 s id=""
983"RTN","C0CE000F",80,0)
984 f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
985"RTN","C0CE000F",81,0)
986 . w "idPointer = document.getElementById('"_id_"') ; "
987"RTN","C0CE000F",82,0)
988 . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
989"RTN","C0CE000F",83,0)
990 s id=""
991"RTN","C0CE000F",84,0)
992 f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
993"RTN","C0CE000F",85,0)
994 . w "idPointer = document.getElementById('"_id_"') ; "
995"RTN","C0CE000F",86,0)
996 . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
997"RTN","C0CE000F",87,0)
998 k ^%zewdSession("session","ewd_hasErrors")
999"RTN","C0CE000F",88,0)
1000 k ^%zewdSession("session","ewd_errorFields")
1001"RTN","C0CE000F",89,0)
1002 k ^%zewdSession("session","ewd_idList")
1003"RTN","C0CE000F",90,0)
1004 w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
1005"RTN","C0CE000F",91,0)
1006 w "</span>"_$c(13,10)
1007"RTN","C0CE000F",92,0)
1008 QUIT
1009"RTN","C0CE000R")
10100^9^B66701996
1011"RTN","C0CE000R",1,0)
1012 ;GT.M version of page ewdErrorRedirect (patientportal application)
1013"RTN","C0CE000R",2,0)
1014 ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
1015"RTN","C0CE000R",3,0)
1016 ;using Enterprise Web Developer (Build 790)
1017"RTN","C0CE000R",4,0)
1018 QUIT
1019"RTN","C0CE000R",5,0)
1020 ;
1021"RTN","C0CE000R",6,0)
1022run ;
1023"RTN","C0CE000R",7,0)
1024 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
1025"RTN","C0CE000R",8,0)
1026 s ok=$$pre()
1027"RTN","C0CE000R",9,0)
1028 i ok d body
1029"RTN","C0CE000R",10,0)
1030 QUIT
1031"RTN","C0CE000R",11,0)
1032 ;
1033"RTN","C0CE000R",12,0)
1034pre() ;
1035"RTN","C0CE000R",13,0)
1036 ;
1037"RTN","C0CE000R",14,0)
1038 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
1039"RTN","C0CE000R",15,0)
1040 ;
1041"RTN","C0CE000R",16,0)
1042 s confirmText="Click OK if you're sure you want to delete this record"
1043"RTN","C0CE000R",17,0)
1044 s sessionArray("ewd_isFirstPage")="0"
1045"RTN","C0CE000R",18,0)
1046 s sessionArray("ewd_sessid_timeout")="1200"
1047"RTN","C0CE000R",19,0)
1048 s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
1049"RTN","C0CE000R",20,0)
1050 s sessionArray("ewd_default_timeout")="1200"
1051"RTN","C0CE000R",21,0)
1052 s sessionArray("ewd_persistRequest")="true"
1053"RTN","C0CE000R",22,0)
1054 s sessionArray("ewd_pageTitle")=""
1055"RTN","C0CE000R",23,0)
1056 s sessionArray("ewd_errorPage")="ewdError"
1057"RTN","C0CE000R",24,0)
1058 s sessionArray("ewd_templatePrePageScript")=""
1059"RTN","C0CE000R",25,0)
1060 s sessionArray("ewd_onErrorScript")=""
1061"RTN","C0CE000R",26,0)
1062 s sessionArray("ewd_appName")="patientportal"
1063"RTN","C0CE000R",27,0)
1064 s sessionArray("ewd_pageName")="ewdErrorRedirect"
1065"RTN","C0CE000R",28,0)
1066 s sessionArray("ewd_translationMode")="0"
1067"RTN","C0CE000R",29,0)
1068 s sessionArray("ewd_technology")="gtm"
1069"RTN","C0CE000R",30,0)
1070 s sessionArray("ewd_pageType")=""
1071"RTN","C0CE000R",31,0)
1072 s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
1073"RTN","C0CE000R",32,0)
1074 s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
1075"RTN","C0CE000R",33,0)
1076 s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
1077"RTN","C0CE000R",34,0)
1078 s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
1079"RTN","C0CE000R",35,0)
1080 s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
1081"RTN","C0CE000R",36,0)
1082 s sessid=$g(sessionArray("ewd_sessid"))
1083"RTN","C0CE000R",37,0)
1084 i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
1085"RTN","C0CE000R",38,0)
1086 . s Error=$p(Error,":",2,200)
1087"RTN","C0CE000R",39,0)
1088 . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
1089"RTN","C0CE000R",40,0)
1090 . s Error="EWD runtime error: "_Error
1091"RTN","C0CE000R",41,0)
1092 i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
1093"RTN","C0CE000R",42,0)
1094 . n errorPage
1095"RTN","C0CE000R",43,0)
1096 . s errorPage=$g(sessionArray("ewd_errorPage"))
1097"RTN","C0CE000R",44,0)
1098 . i errorPage="" s errorPage="ewdError"
1099"RTN","C0CE000R",45,0)
1100 . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
1101"RTN","C0CE000R",46,0)
1102 . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
1103"RTN","C0CE000R",47,0)
1104 s stop=0
1105"RTN","C0CE000R",48,0)
1106 i Error="" d i stop QUIT 0
1107"RTN","C0CE000R",49,0)
1108 . n nextpage
1109"RTN","C0CE000R",50,0)
1110 . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
1111"RTN","C0CE000R",51,0)
1112 . i nextpage'="" d
1113"RTN","C0CE000R",52,0)
1114 . . n x
1115"RTN","C0CE000R",53,0)
1116 . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
1117"RTN","C0CE000R",54,0)
1118 . . s stop=1
1119"RTN","C0CE000R",55,0)
1120 i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
1121"RTN","C0CE000R",56,0)
1122 . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
1123"RTN","C0CE000R",57,0)
1124 . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
1125"RTN","C0CE000R",58,0)
1126 w "HTTP/1.1 200 OK"_$c(13,10)
1127"RTN","C0CE000R",59,0)
1128 s ctype="text/html"
1129"RTN","C0CE000R",60,0)
1130 d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
1131"RTN","C0CE000R",61,0)
1132 i $d(headers) d
1133"RTN","C0CE000R",62,0)
1134 . n lcname,name
1135"RTN","C0CE000R",63,0)
1136 . s name=""
1137"RTN","C0CE000R",64,0)
1138 . f s name=$o(headers(name)) q:name="" d
1139"RTN","C0CE000R",65,0)
1140 . . s lcname=$$zcvt^%zewdAPI(name,"l")
1141"RTN","C0CE000R",66,0)
1142 . . i lcname="content-type" s ctype=headers(name) q
1143"RTN","C0CE000R",67,0)
1144 . . w name_": "_headers(name)_$c(13,10)
1145"RTN","C0CE000R",68,0)
1146 w "Content-type: "_ctype_$c(13,10)
1147"RTN","C0CE000R",69,0)
1148 w $c(13,10)
1149"RTN","C0CE000R",70,0)
1150 QUIT 1
1151"RTN","C0CE000R",71,0)
1152 ;
1153"RTN","C0CE000R",72,0)
1154body ;
1155"RTN","C0CE000R",73,0)
1156 w "<html>"_$c(13,10)
1157"RTN","C0CE000R",74,0)
1158 w " <head>"_$c(13,10)
1159"RTN","C0CE000R",75,0)
1160 w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
1161"RTN","C0CE000R",76,0)
1162 w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
1163"RTN","C0CE000R",77,0)
1164 w "</script>"_$c(13,10)
1165"RTN","C0CE000R",78,0)
1166 w " <title>"_$c(13,10)
1167"RTN","C0CE000R",79,0)
1168 w "Ajax Error Redirect page"_""
1169"RTN","C0CE000R",80,0)
1170 w " </title>"_$c(13,10)
1171"RTN","C0CE000R",81,0)
1172 w " <head>"_$c(13,10)
1173"RTN","C0CE000R",82,0)
1174 w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
1175"RTN","C0CE000R",83,0)
1176 w "Please wait...."_""
1177"RTN","C0CE000R",84,0)
1178 w " </body>"_$c(13,10)
1179"RTN","C0CE000R",85,0)
1180 w " </head>"_$c(13,10)
1181"RTN","C0CE000R",86,0)
1182 w " <script language=""javascript"">"_$c(13,10)
1183"RTN","C0CE000R",87,0)
1184 w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
1185"RTN","C0CE000R",88,0)
1186 w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
1187"RTN","C0CE000R",89,0)
1188 w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
1189"RTN","C0CE000R",90,0)
1190 w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
1191"RTN","C0CE000R",91,0)
1192 w " } ;"_$c(13,10)
1193"RTN","C0CE000R",92,0)
1194 w " EWD.page.setErrorClass = function () { "_$c(13,10)
1195"RTN","C0CE000R",93,0)
1196 w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
1197"RTN","C0CE000R",94,0)
1198 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)
1199"RTN","C0CE000R",95,0)
1200 w " }"_$c(13,10)
1201"RTN","C0CE000R",96,0)
1202 w " } ;"_$c(13,10)
1203"RTN","C0CE000R",97,0)
1204 w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
1205"RTN","C0CE000R",98,0)
1206 w " var json,x ;"_$c(13,10)
1207"RTN","C0CE000R",99,0)
1208 w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
1209"RTN","C0CE000R",100,0)
1210 w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
1211"RTN","C0CE000R",101,0)
1212 w " eval(x) ;"_$c(13,10)
1213"RTN","C0CE000R",102,0)
1214 w " }"_$c(13,10)
1215"RTN","C0CE000R",103,0)
1216 w " else {"_$c(13,10)
1217"RTN","C0CE000R",104,0)
1218 w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
1219"RTN","C0CE000R",105,0)
1220 w " //eval(x) ;"_$c(13,10)
1221"RTN","C0CE000R",106,0)
1222 w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
1223"RTN","C0CE000R",107,0)
1224 w " eval(x) ;"_$c(13,10)
1225"RTN","C0CE000R",108,0)
1226 w " //json=toJsonString(objName);"_$c(13,10)
1227"RTN","C0CE000R",109,0)
1228 w " }"_$c(13,10)
1229"RTN","C0CE000R",110,0)
1230 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)
1231"RTN","C0CE000R",111,0)
1232 w " } ;"_$c(13,10)
1233"RTN","C0CE000R",112,0)
1234 w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
1235"RTN","C0CE000R",113,0)
1236 w " if (refresh) {"_$c(13,10)
1237"RTN","C0CE000R",114,0)
1238 w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
1239"RTN","C0CE000R",115,0)
1240 w " var objExists = ""undefined"" ;"_$c(13,10)
1241"RTN","C0CE000R",116,0)
1242 w " }"_$c(13,10)
1243"RTN","C0CE000R",117,0)
1244 w " else {"_$c(13,10)
1245"RTN","C0CE000R",118,0)
1246 w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
1247"RTN","C0CE000R",119,0)
1248 w " eval(x) ;"_$c(13,10)
1249"RTN","C0CE000R",120,0)
1250 w " }"_$c(13,10)
1251"RTN","C0CE000R",121,0)
1252 w " if (objExists == ""undefined"") {"_$c(13,10)
1253"RTN","C0CE000R",122,0)
1254 w " var addRef = 0 ;"_$c(13,10)
1255"RTN","C0CE000R",123,0)
1256 w " if (addRefCol) addRef = 1;"_$c(13,10)
1257"RTN","C0CE000R",124,0)
1258 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)
1259"RTN","C0CE000R",125,0)
1260 w ""_""
1261"RTN","C0CE000R",126,0)
1262 w " };"_$c(13,10)
1263"RTN","C0CE000R",127,0)
1264 w " } ;"_$c(13,10)
1265"RTN","C0CE000R",128,0)
1266 w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
1267"RTN","C0CE000R",129,0)
1268 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)
1269"RTN","C0CE000R",130,0)
1270 w " } ;"_$c(13,10)
1271"RTN","C0CE000R",131,0)
1272 w ""_""
1273"RTN","C0CE000R",132,0)
1274 w " </script>"_$c(13,10)
1275"RTN","C0CE000R",133,0)
1276 w " </head>"_$c(13,10)
1277"RTN","C0CE000R",134,0)
1278 w "</html>"_$c(13,10)
1279"RTN","C0CE000R",135,0)
1280 QUIT
1281"RTN","C0CE001I")
12820^2^B97883042
1283"RTN","C0CE001I",1,0)
1284 ;GT.M version of page index (patientportal application)
1285"RTN","C0CE001I",2,0)
1286 ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
1287"RTN","C0CE001I",3,0)
1288 ;using Enterprise Web Developer (Build 790)
1289"RTN","C0CE001I",4,0)
1290 QUIT
1291"RTN","C0CE001I",5,0)
1292 ;
1293"RTN","C0CE001I",6,0)
1294run ;
1295"RTN","C0CE001I",7,0)
1296 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
1297"RTN","C0CE001I",8,0)
1298 s ok=$$pre()
1299"RTN","C0CE001I",9,0)
1300 i ok d body
1301"RTN","C0CE001I",10,0)
1302 QUIT
1303"RTN","C0CE001I",11,0)
1304 ;
1305"RTN","C0CE001I",12,0)
1306pre() ;
1307"RTN","C0CE001I",13,0)
1308 ;
1309"RTN","C0CE001I",14,0)
1310 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
1311"RTN","C0CE001I",15,0)
1312 ;
1313"RTN","C0CE001I",16,0)
1314 s confirmText="Click OK if you're sure you want to delete this record"
1315"RTN","C0CE001I",17,0)
1316 s sessionArray("ewd_isFirstPage")="1"
1317"RTN","C0CE001I",18,0)
1318 s sessionArray("ewd_sessid_timeout")="1200"
1319"RTN","C0CE001I",19,0)
1320 s sessionArray("ewd_prePageScript")=""
1321"RTN","C0CE001I",20,0)
1322 s sessionArray("ewd_default_timeout")="1200"
1323"RTN","C0CE001I",21,0)
1324 s sessionArray("ewd_persistRequest")="true"
1325"RTN","C0CE001I",22,0)
1326 s sessionArray("ewd_pageTitle")=""
1327"RTN","C0CE001I",23,0)
1328 s sessionArray("ewd_errorPage")="ewdError"
1329"RTN","C0CE001I",24,0)
1330 s sessionArray("ewd_templatePrePageScript")=""
1331"RTN","C0CE001I",25,0)
1332 s sessionArray("ewd_onErrorScript")=""
1333"RTN","C0CE001I",26,0)
1334 s sessionArray("ewd_appName")="patientportal"
1335"RTN","C0CE001I",27,0)
1336 s sessionArray("ewd_pageName")="index"
1337"RTN","C0CE001I",28,0)
1338 s sessionArray("ewd_translationMode")="0"
1339"RTN","C0CE001I",29,0)
1340 s sessionArray("ewd_technology")="gtm"
1341"RTN","C0CE001I",30,0)
1342 s sessionArray("ewd_header","Expires")=0
1343"RTN","C0CE001I",31,0)
1344 s sessionArray("ewd_header","Cache-Control")="no-cache"
1345"RTN","C0CE001I",32,0)
1346 s sessionArray("ewd_header","Pragma")="no-cache"
1347"RTN","C0CE001I",33,0)
1348 s sessionArray("ewd_pageType")=""
1349"RTN","C0CE001I",34,0)
1350 s tokens("ccr")=$$setNextPageToken^%zewdGTMRuntime("ccr")
1351"RTN","C0CE001I",35,0)
1352 s tokens("ccr2")=$$setNextPageToken^%zewdGTMRuntime("ccr2")
1353"RTN","C0CE001I",36,0)
1354 s tokens("ccrexe")=$$setNextPageToken^%zewdGTMRuntime("ccrexe")
1355"RTN","C0CE001I",37,0)
1356 s tokens("loginPanel")=$$setNextPageToken^%zewdGTMRuntime("loginPanel")
1357"RTN","C0CE001I",38,0)
1358 s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
1359"RTN","C0CE001I",39,0)
1360 s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
1361"RTN","C0CE001I",40,0)
1362 s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
1363"RTN","C0CE001I",41,0)
1364 s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
1365"RTN","C0CE001I",42,0)
1366 s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
1367"RTN","C0CE001I",43,0)
1368 s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
1369"RTN","C0CE001I",44,0)
1370 s sessid=$g(sessionArray("ewd_sessid"))
1371"RTN","C0CE001I",45,0)
1372 i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
1373"RTN","C0CE001I",46,0)
1374 . s Error=$p(Error,":",2,200)
1375"RTN","C0CE001I",47,0)
1376 . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
1377"RTN","C0CE001I",48,0)
1378 . s Error="EWD runtime error: "_Error
1379"RTN","C0CE001I",49,0)
1380 i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
1381"RTN","C0CE001I",50,0)
1382 . n errorPage
1383"RTN","C0CE001I",51,0)
1384 . s errorPage=$g(sessionArray("ewd_errorPage"))
1385"RTN","C0CE001I",52,0)
1386 . i errorPage="" s errorPage="ewdError"
1387"RTN","C0CE001I",53,0)
1388 . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
1389"RTN","C0CE001I",54,0)
1390 . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
1391"RTN","C0CE001I",55,0)
1392 s stop=0
1393"RTN","C0CE001I",56,0)
1394 i Error="" d i stop QUIT 0
1395"RTN","C0CE001I",57,0)
1396 . n nextpage
1397"RTN","C0CE001I",58,0)
1398 . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
1399"RTN","C0CE001I",59,0)
1400 . i nextpage'="" d
1401"RTN","C0CE001I",60,0)
1402 . . n x
1403"RTN","C0CE001I",61,0)
1404 . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
1405"RTN","C0CE001I",62,0)
1406 . . s stop=1
1407"RTN","C0CE001I",63,0)
1408 i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
1409"RTN","C0CE001I",64,0)
1410 . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
1411"RTN","C0CE001I",65,0)
1412 . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
1413"RTN","C0CE001I",66,0)
1414 w "HTTP/1.1 200 OK"_$c(13,10)
1415"RTN","C0CE001I",67,0)
1416 s ctype="text/html"
1417"RTN","C0CE001I",68,0)
1418 d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
1419"RTN","C0CE001I",69,0)
1420 i $d(headers) d
1421"RTN","C0CE001I",70,0)
1422 . n lcname,name
1423"RTN","C0CE001I",71,0)
1424 . s name=""
1425"RTN","C0CE001I",72,0)
1426 . f s name=$o(headers(name)) q:name="" d
1427"RTN","C0CE001I",73,0)
1428 . . s lcname=$$zcvt^%zewdAPI(name,"l")
1429"RTN","C0CE001I",74,0)
1430 . . i lcname="content-type" s ctype=headers(name) q
1431"RTN","C0CE001I",75,0)
1432 . . w name_": "_headers(name)_$c(13,10)
1433"RTN","C0CE001I",76,0)
1434 w "Content-type: "_ctype_$c(13,10)
1435"RTN","C0CE001I",77,0)
1436 w $c(13,10)
1437"RTN","C0CE001I",78,0)
1438 QUIT 1
1439"RTN","C0CE001I",79,0)
1440 ;
1441"RTN","C0CE001I",80,0)
1442body ;
1443"RTN","C0CE001I",81,0)
1444 w "<html>"_$c(13,10)
1445"RTN","C0CE001I",82,0)
1446 w " <head>"_$c(13,10)
1447"RTN","C0CE001I",83,0)
1448 w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
1449"RTN","C0CE001I",84,0)
1450 w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
1451"RTN","C0CE001I",85,0)
1452 w "</script>"_$c(13,10)
1453"RTN","C0CE001I",86,0)
1454 w " <title>"_$c(13,10)
1455"RTN","C0CE001I",87,0)
1456 w "The start EWD Page"_""
1457"RTN","C0CE001I",88,0)
1458 w " </title>"_$c(13,10)
1459"RTN","C0CE001I",89,0)
1460 w " <script language=""javascript"">"_$c(13,10)
1461"RTN","C0CE001I",90,0)
1462 w ""_$c(13,10)
1463"RTN","C0CE001I",91,0)
1464 w " function init() "_$c(13,10)
1465"RTN","C0CE001I",92,0)
1466 w " {"_$c(13,10)
1467"RTN","C0CE001I",93,0)
1468 w " EWD.ajax.makeRequest('/ewd/patientportal/loginPanel.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("loginPanel")_"&ewd_urlNo=index1','LP','get','','');"_$c(13,10)
1469"RTN","C0CE001I",94,0)
1470 w " }"_$c(13,10)
1471"RTN","C0CE001I",95,0)
1472 w " "_""
1473"RTN","C0CE001I",96,0)
1474 w " </script>"_$c(13,10)
1475"RTN","C0CE001I",97,0)
1476 w " <script language=""javascript"">"_$c(13,10)
1477"RTN","C0CE001I",98,0)
1478 w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
1479"RTN","C0CE001I",99,0)
1480 w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
1481"RTN","C0CE001I",100,0)
1482 w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
1483"RTN","C0CE001I",101,0)
1484 w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
1485"RTN","C0CE001I",102,0)
1486 w " } ;"_$c(13,10)
1487"RTN","C0CE001I",103,0)
1488 w " EWD.page.setErrorClass = function () { "_$c(13,10)
1489"RTN","C0CE001I",104,0)
1490 w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
1491"RTN","C0CE001I",105,0)
1492 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)
1493"RTN","C0CE001I",106,0)
1494 w " }"_$c(13,10)
1495"RTN","C0CE001I",107,0)
1496 w " } ;"_$c(13,10)
1497"RTN","C0CE001I",108,0)
1498 w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
1499"RTN","C0CE001I",109,0)
1500 w " var json,x ;"_$c(13,10)
1501"RTN","C0CE001I",110,0)
1502 w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
1503"RTN","C0CE001I",111,0)
1504 w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
1505"RTN","C0CE001I",112,0)
1506 w " eval(x) ;"_$c(13,10)
1507"RTN","C0CE001I",113,0)
1508 w " }"_$c(13,10)
1509"RTN","C0CE001I",114,0)
1510 w " else {"_$c(13,10)
1511"RTN","C0CE001I",115,0)
1512 w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
1513"RTN","C0CE001I",116,0)
1514 w " //eval(x) ;"_$c(13,10)
1515"RTN","C0CE001I",117,0)
1516 w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
1517"RTN","C0CE001I",118,0)
1518 w " eval(x) ;"_$c(13,10)
1519"RTN","C0CE001I",119,0)
1520 w " //json=toJsonString(objName);"_$c(13,10)
1521"RTN","C0CE001I",120,0)
1522 w " }"_$c(13,10)
1523"RTN","C0CE001I",121,0)
1524 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)
1525"RTN","C0CE001I",122,0)
1526 w " } ;"_$c(13,10)
1527"RTN","C0CE001I",123,0)
1528 w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
1529"RTN","C0CE001I",124,0)
1530 w " if (refresh) {"_$c(13,10)
1531"RTN","C0CE001I",125,0)
1532 w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
1533"RTN","C0CE001I",126,0)
1534 w " var objExists = ""undefined"" ;"_$c(13,10)
1535"RTN","C0CE001I",127,0)
1536 w " }"_$c(13,10)
1537"RTN","C0CE001I",128,0)
1538 w " else {"_$c(13,10)
1539"RTN","C0CE001I",129,0)
1540 w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
1541"RTN","C0CE001I",130,0)
1542 w " eval(x) ;"_$c(13,10)
1543"RTN","C0CE001I",131,0)
1544 w " }"_$c(13,10)
1545"RTN","C0CE001I",132,0)
1546 w " if (objExists == ""undefined"") {"_$c(13,10)
1547"RTN","C0CE001I",133,0)
1548 w " var addRef = 0 ;"_$c(13,10)
1549"RTN","C0CE001I",134,0)
1550 w " if (addRefCol) addRef = 1;"_$c(13,10)
1551"RTN","C0CE001I",135,0)
1552 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)
1553"RTN","C0CE001I",136,0)
1554 w ""_""
1555"RTN","C0CE001I",137,0)
1556 w " };"_$c(13,10)
1557"RTN","C0CE001I",138,0)
1558 w " } ;"_$c(13,10)
1559"RTN","C0CE001I",139,0)
1560 w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
1561"RTN","C0CE001I",140,0)
1562 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)
1563"RTN","C0CE001I",141,0)
1564 w " } ;"_$c(13,10)
1565"RTN","C0CE001I",142,0)
1566 w ""_""
1567"RTN","C0CE001I",143,0)
1568 w " </script>"_$c(13,10)
1569"RTN","C0CE001I",144,0)
1570 w " </head>"_$c(13,10)
1571"RTN","C0CE001I",145,0)
1572 w " <body onload=""init() ; EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
1573"RTN","C0CE001I",146,0)
1574 w " <h3>"_$c(13,10)
1575"RTN","C0CE001I",147,0)
1576 w "This page is the first page in this application"_""
1577"RTN","C0CE001I",148,0)
1578 w " </h3>"_$c(13,10)
1579"RTN","C0CE001I",149,0)
1580 w " <div id=""LP"">"_$c(13,10)
1581"RTN","C0CE001I",150,0)
1582 w "Login"_""
1583"RTN","C0CE001I",151,0)
1584 w " </div>"_$c(13,10)
1585"RTN","C0CE001I",152,0)
1586 w " <div>"_$c(13,10)
1587"RTN","C0CE001I",153,0)
1588 w " <a href='/ewd/patientportal/session.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("session")_"&ewd_urlNo=index2'>"_$c(13,10)
1589"RTN","C0CE001I",154,0)
1590 w "Go to the second page"_""
1591"RTN","C0CE001I",155,0)
1592 w " </a>"_$c(13,10)
1593"RTN","C0CE001I",156,0)
1594 w " </div>"_$c(13,10)
1595"RTN","C0CE001I",157,0)
1596 w " <div>"_$c(13,10)
1597"RTN","C0CE001I",158,0)
1598 w " <a href='/ewd/patientportal/ccr.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("ccr")_"&ewd_urlNo=index3'>"_$c(13,10)
1599"RTN","C0CE001I",159,0)
1600 w "Goto the CCR"_""
1601"RTN","C0CE001I",160,0)
1602 w " </a>"_$c(13,10)
1603"RTN","C0CE001I",161,0)
1604 w " </div>"_$c(13,10)
1605"RTN","C0CE001I",162,0)
1606 w " <div>"_$c(13,10)
1607"RTN","C0CE001I",163,0)
1608 w " <a href='/ewd/patientportal/ccrexe.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("ccrexe")_"&ewd_urlNo=index4'>"_$c(13,10)
1609"RTN","C0CE001I",164,0)
1610 w "Goto CCR 2"_""
1611"RTN","C0CE001I",165,0)
1612 w " </a>"_$c(13,10)
1613"RTN","C0CE001I",166,0)
1614 w " </div>"_$c(13,10)
1615"RTN","C0CE001I",167,0)
1616 w " <div>"_$c(13,10)
1617"RTN","C0CE001I",168,0)
1618 w " <a href='/ewd/patientportal/ccr2.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("ccr2")_"&ewd_urlNo=index5'>"_$c(13,10)
1619"RTN","C0CE001I",169,0)
1620 w "Goto Hello World"_""
1621"RTN","C0CE001I",170,0)
1622 w " </a>"_$c(13,10)
1623"RTN","C0CE001I",171,0)
1624 w " </div>"_$c(13,10)
1625"RTN","C0CE001I",172,0)
1626 w " </body>"_$c(13,10)
1627"RTN","C0CE001I",173,0)
1628 w "</html>"_$c(13,10)
1629"RTN","C0CE001I",174,0)
1630 QUIT
1631"RTN","C0CE001L")
16320^10^B51144421
1633"RTN","C0CE001L",1,0)
1634 ;GT.M version of page loginPanel (patientportal application)
1635"RTN","C0CE001L",2,0)
1636 ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 3
1637"RTN","C0CE001L",3,0)
1638 ;using Enterprise Web Developer (Build 790)
1639"RTN","C0CE001L",4,0)
1640 QUIT
1641"RTN","C0CE001L",5,0)
1642 ;
1643"RTN","C0CE001L",6,0)
1644run ;
1645"RTN","C0CE001L",7,0)
1646 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
1647"RTN","C0CE001L",8,0)
1648 s ok=$$pre()
1649"RTN","C0CE001L",9,0)
1650 i ok d body
1651"RTN","C0CE001L",10,0)
1652 QUIT
1653"RTN","C0CE001L",11,0)
1654 ;
1655"RTN","C0CE001L",12,0)
1656pre() ;
1657"RTN","C0CE001L",13,0)
1658 ;
1659"RTN","C0CE001L",14,0)
1660 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
1661"RTN","C0CE001L",15,0)
1662 ;
1663"RTN","C0CE001L",16,0)
1664 s confirmText="Click OK if you're sure you want to delete this record"
1665"RTN","C0CE001L",17,0)
1666 s sessionArray("ewd_isFirstPage")="0"
1667"RTN","C0CE001L",18,0)
1668 s sessionArray("ewd_sessid_timeout")="1200"
1669"RTN","C0CE001L",19,0)
1670 s sessionArray("ewd_prePageScript")=""
1671"RTN","C0CE001L",20,0)
1672 s sessionArray("ewd_default_timeout")="1200"
1673"RTN","C0CE001L",21,0)
1674 s sessionArray("ewd_persistRequest")="true"
1675"RTN","C0CE001L",22,0)
1676 s sessionArray("ewd_pageTitle")=""
1677"RTN","C0CE001L",23,0)
1678 s sessionArray("ewd_errorPage")="ewdError"
1679"RTN","C0CE001L",24,0)
1680 s sessionArray("ewd_templatePrePageScript")=""
1681"RTN","C0CE001L",25,0)
1682 s sessionArray("ewd_onErrorScript")=""
1683"RTN","C0CE001L",26,0)
1684 s sessionArray("ewd_appName")="patientportal"
1685"RTN","C0CE001L",27,0)
1686 s sessionArray("ewd_pageName")="loginPanel"
1687"RTN","C0CE001L",28,0)
1688 s sessionArray("ewd_translationMode")="0"
1689"RTN","C0CE001L",29,0)
1690 s sessionArray("ewd_technology")="gtm"
1691"RTN","C0CE001L",30,0)
1692 s sessionArray("ewd_pageType")="ajax"
1693"RTN","C0CE001L",31,0)
1694 s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
1695"RTN","C0CE001L",32,0)
1696 s Error=$$startSession^%zewdPHP("loginPanel",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
1697"RTN","C0CE001L",33,0)
1698 s sessid=$g(sessionArray("ewd_sessid"))
1699"RTN","C0CE001L",34,0)
1700 i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
1701"RTN","C0CE001L",35,0)
1702 . s Error=$p(Error,":",2,200)
1703"RTN","C0CE001L",36,0)
1704 . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
1705"RTN","C0CE001L",37,0)
1706 . s Error="EWD runtime error: "_Error
1707"RTN","C0CE001L",38,0)
1708 i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
1709"RTN","C0CE001L",39,0)
1710 . n errorPage
1711"RTN","C0CE001L",40,0)
1712 . s errorPage=$g(sessionArray("ewd_errorPage"))
1713"RTN","C0CE001L",41,0)
1714 . i errorPage="" s errorPage="ewdError"
1715"RTN","C0CE001L",42,0)
1716 . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
1717"RTN","C0CE001L",43,0)
1718 . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
1719"RTN","C0CE001L",44,0)
1720 s stop=0
1721"RTN","C0CE001L",45,0)
1722 i Error="" d i stop QUIT 0
1723"RTN","C0CE001L",46,0)
1724 . n nextpage
1725"RTN","C0CE001L",47,0)
1726 . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
1727"RTN","C0CE001L",48,0)
1728 . i nextpage'="" d
1729"RTN","C0CE001L",49,0)
1730 . . n x
1731"RTN","C0CE001L",50,0)
1732 . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
1733"RTN","C0CE001L",51,0)
1734 . . s stop=1
1735"RTN","C0CE001L",52,0)
1736 i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
1737"RTN","C0CE001L",53,0)
1738 . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
1739"RTN","C0CE001L",54,0)
1740 . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
1741"RTN","C0CE001L",55,0)
1742 w "HTTP/1.1 200 OK"_$c(13,10)
1743"RTN","C0CE001L",56,0)
1744 s ctype="text/html"
1745"RTN","C0CE001L",57,0)
1746 d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
1747"RTN","C0CE001L",58,0)
1748 i $d(headers) d
1749"RTN","C0CE001L",59,0)
1750 . n lcname,name
1751"RTN","C0CE001L",60,0)
1752 . s name=""
1753"RTN","C0CE001L",61,0)
1754 . f s name=$o(headers(name)) q:name="" d
1755"RTN","C0CE001L",62,0)
1756 . . s lcname=$$zcvt^%zewdAPI(name,"l")
1757"RTN","C0CE001L",63,0)
1758 . . i lcname="content-type" s ctype=headers(name) q
1759"RTN","C0CE001L",64,0)
1760 . . w name_": "_headers(name)_$c(13,10)
1761"RTN","C0CE001L",65,0)
1762 w "Content-type: "_ctype_$c(13,10)
1763"RTN","C0CE001L",66,0)
1764 w $c(13,10)
1765"RTN","C0CE001L",67,0)
1766 QUIT 1
1767"RTN","C0CE001L",68,0)
1768 ;
1769"RTN","C0CE001L",69,0)
1770body ;
1771"RTN","C0CE001L",70,0)
1772 if ($g(Error)="") d
1773"RTN","C0CE001L",71,0)
1774 .w " <div id=""ewdscript"">"_$c(13,10)
1775"RTN","C0CE001L",72,0)
1776 .w "EWD.page.yuiResourcePath = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
1777"RTN","C0CE001L",73,0)
1778 .w "if (EWD.page.yuiResourcePath == '') {"_""
1779"RTN","C0CE001L",74,0)
1780 .w " alert('Unable to determine path to YUI resource file. Did you run d install^%zewdYUIConf()?') ;"_""
1781"RTN","C0CE001L",75,0)
1782 .w "}"_""
1783"RTN","C0CE001L",76,0)
1784 .w "EWD.page.loadResource("""_$$getSessionValue^%zewdAPI("yui.resourceLoaderPath",sessid)_$$getSessionValue^%zewdAPI("yui.resourceLoader",sessid)_""",""js"") ;"_""
1785"RTN","C0CE001L",77,0)
1786 .w "if (!EWD.yui) alert('YUI Javascript resource file ewdYUIResources.js was not found in the web server root path');"_""
1787"RTN","C0CE001L",78,0)
1788 .w "if (!EWD.yui.build) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You must be using build 790');"_""
1789"RTN","C0CE001L",79,0)
1790 .w "if (EWD.yui.build != 790) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You are using build ' + EWD.yui.build + ' but you should be using build 790');"_""
1791"RTN","C0CE001L",80,0)
1792 .w "EWD.yui.version = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
1793"RTN","C0CE001L",81,0)
1794 .w "EWD.yui.resourceLoader.Dialog() ;"_""
1795"RTN","C0CE001L",82,0)
1796 .w "document.getElementsByTagName('body')[0].className = 'yui-skin-sam' ;"_""
1797"RTN","C0CE001L",83,0)
1798 .w "var fReturnloginPanel7=function() {"_""
1799"RTN","C0CE001L",84,0)
1800 .w "EWD.yui.widgetIndex[""yuiDialogRegloginPanel7""]={widgetName:""loginPanel7"",tagId:""yuiDialogDivloginPanel7""};"_""
1801"RTN","C0CE001L",85,0)
1802 .w "EWD.yui.moveDialogToBody('yuiDialogDivloginPanel7');"_""
1803"RTN","C0CE001L",86,0)
1804 .w "EWD.yui.widget.loginPanel7=new YAHOO.widget.Dialog(""yuiDialogDivloginPanel7"",{iframe:true,width:""270px"",x:150,y:100});"_""
1805"RTN","C0CE001L",87,0)
1806 .w "EWD.yui.widget.loginPanel7.render();"_""
1807"RTN","C0CE001L",88,0)
1808 .w "};"_""
1809"RTN","C0CE001L",89,0)
1810 .w "YAHOO.util.Event.onAvailable(""yuiDialogDivloginPanel7"",fReturnloginPanel7);"_""
1811"RTN","C0CE001L",90,0)
1812 .w " </div>"_$c(13,10)
1813"RTN","C0CE001L",91,0)
1814 .w " <div id=""yuiDialogRegloginPanel7"">"_$c(13,10)
1815"RTN","C0CE001L",92,0)
1816 .w " <div id=""yuiDialogDivloginPanel7"" style=""visibility:hidden"">"_$c(13,10)
1817"RTN","C0CE001L",93,0)
1818 .w " <div class=""hd"">"_$c(13,10)
1819"RTN","C0CE001L",94,0)
1820 .w "Login"_""
1821"RTN","C0CE001L",95,0)
1822 .w " </div>"_$c(13,10)
1823"RTN","C0CE001L",96,0)
1824 .w " <div class=""bd"">"_$c(13,10)
1825"RTN","C0CE001L",97,0)
1826 .w "Login Form will go here"_""
1827"RTN","C0CE001L",98,0)
1828 .w " </div>"_$c(13,10)
1829"RTN","C0CE001L",99,0)
1830 .w " <div class=""ft"">"_$c(13,10)
1831"RTN","C0CE001L",100,0)
1832 .w "</div>"_$c(13,10)
1833"RTN","C0CE001L",101,0)
1834 .w " </div>"_$c(13,10)
1835"RTN","C0CE001L",102,0)
1836 .w " </div>"_$c(13,10)
1837"RTN","C0CE001L",103,0)
1838 .
1839"RTN","C0CE001L",104,0)
1840 w "<span id=""ewdajaxonload"">"_$c(13,10)
1841"RTN","C0CE001L",105,0)
1842 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)
1843"RTN","C0CE001L",106,0)
1844 s id=""
1845"RTN","C0CE001L",107,0)
1846 f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
1847"RTN","C0CE001L",108,0)
1848 . w "idPointer = document.getElementById('"_id_"') ; "
1849"RTN","C0CE001L",109,0)
1850 . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
1851"RTN","C0CE001L",110,0)
1852 s id=""
1853"RTN","C0CE001L",111,0)
1854 f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
1855"RTN","C0CE001L",112,0)
1856 . w "idPointer = document.getElementById('"_id_"') ; "
1857"RTN","C0CE001L",113,0)
1858 . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
1859"RTN","C0CE001L",114,0)
1860 k ^%zewdSession("session","ewd_hasErrors")
1861"RTN","C0CE001L",115,0)
1862 k ^%zewdSession("session","ewd_errorFields")
1863"RTN","C0CE001L",116,0)
1864 k ^%zewdSession("session","ewd_idList")
1865"RTN","C0CE001L",117,0)
1866 w " }"_""
1867"RTN","C0CE001L",118,0)
1868 w "</span>"_$c(13,10)
1869"RTN","C0CE001L",119,0)
1870 QUIT
1871"RTN","C0CE002")
18720^5^B19002031
1873"RTN","C0CE002",1,0)
1874 ;GT.M version of page ccr (patientportal application)
1875"RTN","C0CE002",2,0)
1876 ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
1877"RTN","C0CE002",3,0)
1878 ;using Enterprise Web Developer (Build 790)
1879"RTN","C0CE002",4,0)
1880 QUIT
1881"RTN","C0CE002",5,0)
1882 ;
1883"RTN","C0CE002",6,0)
1884run ;
1885"RTN","C0CE002",7,0)
1886 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
1887"RTN","C0CE002",8,0)
1888 s ok=$$pre()
1889"RTN","C0CE002",9,0)
1890 i ok d body
1891"RTN","C0CE002",10,0)
1892 QUIT
1893"RTN","C0CE002",11,0)
1894 ;
1895"RTN","C0CE002",12,0)
1896pre() ;
1897"RTN","C0CE002",13,0)
1898 ;
1899"RTN","C0CE002",14,0)
1900 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
1901"RTN","C0CE002",15,0)
1902 ;
1903"RTN","C0CE002",16,0)
1904 s confirmText="Click OK if you're sure you want to delete this record"
1905"RTN","C0CE002",17,0)
1906 s sessionArray("ewd_isFirstPage")="0"
1907"RTN","C0CE002",18,0)
1908 s sessionArray("ewd_sessid_timeout")="1200"
1909"RTN","C0CE002",19,0)
1910 s sessionArray("ewd_prePageScript")="TEST2^C0CRICH"
1911"RTN","C0CE002",20,0)
1912 s sessionArray("ewd_default_timeout")="1200"
1913"RTN","C0CE002",21,0)
1914 s sessionArray("ewd_persistRequest")="true"
1915"RTN","C0CE002",22,0)
1916 s sessionArray("ewd_pageTitle")=""
1917"RTN","C0CE002",23,0)
1918 s sessionArray("ewd_errorPage")="ewdError"
1919"RTN","C0CE002",24,0)
1920 s sessionArray("ewd_templatePrePageScript")=""
1921"RTN","C0CE002",25,0)
1922 s sessionArray("ewd_onErrorScript")=""
1923"RTN","C0CE002",26,0)
1924 s sessionArray("ewd_appName")="patientportal"
1925"RTN","C0CE002",27,0)
1926 s sessionArray("ewd_pageName")="ccr"
1927"RTN","C0CE002",28,0)
1928 s sessionArray("ewd_translationMode")="0"
1929"RTN","C0CE002",29,0)
1930 s sessionArray("ewd_technology")="gtm"
1931"RTN","C0CE002",30,0)
1932 s sessionArray("ewd_pageType")=""
1933"RTN","C0CE002",31,0)
1934 s Error=$$startSession^%zewdPHP("ccr",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
1935"RTN","C0CE002",32,0)
1936 s sessid=$g(sessionArray("ewd_sessid"))
1937"RTN","C0CE002",33,0)
1938 d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
1939"RTN","C0CE002",34,0)
1940 s headers("Content-type")="text/xml"
1941"RTN","C0CE002",35,0)
1942 d mergeArrayToSession^%zewdAPI(.headers,"ewd.header",sessid)
1943"RTN","C0CE002",36,0)
1944 k headers
1945"RTN","C0CE002",37,0)
1946 i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
1947"RTN","C0CE002",38,0)
1948 . s Error=$p(Error,":",2,200)
1949"RTN","C0CE002",39,0)
1950 . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
1951"RTN","C0CE002",40,0)
1952 . s Error="EWD runtime error: "_Error
1953"RTN","C0CE002",41,0)
1954 i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
1955"RTN","C0CE002",42,0)
1956 . n errorPage
1957"RTN","C0CE002",43,0)
1958 . s errorPage=$g(sessionArray("ewd_errorPage"))
1959"RTN","C0CE002",44,0)
1960 . i errorPage="" s errorPage="ewdError"
1961"RTN","C0CE002",45,0)
1962 . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
1963"RTN","C0CE002",46,0)
1964 . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
1965"RTN","C0CE002",47,0)
1966 s stop=0
1967"RTN","C0CE002",48,0)
1968 i Error="" d i stop QUIT 0
1969"RTN","C0CE002",49,0)
1970 . n nextpage
1971"RTN","C0CE002",50,0)
1972 . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
1973"RTN","C0CE002",51,0)
1974 . i nextpage'="" d
1975"RTN","C0CE002",52,0)
1976 . . n x
1977"RTN","C0CE002",53,0)
1978 . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
1979"RTN","C0CE002",54,0)
1980 . . s stop=1
1981"RTN","C0CE002",55,0)
1982 i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
1983"RTN","C0CE002",56,0)
1984 . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
1985"RTN","C0CE002",57,0)
1986 . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
1987"RTN","C0CE002",58,0)
1988 w "HTTP/1.1 200 OK"_$c(13,10)
1989"RTN","C0CE002",59,0)
1990 s ctype="text/html"
1991"RTN","C0CE002",60,0)
1992 d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
1993"RTN","C0CE002",61,0)
1994 i $d(headers) d
1995"RTN","C0CE002",62,0)
1996 . n lcname,name
1997"RTN","C0CE002",63,0)
1998 . s name=""
1999"RTN","C0CE002",64,0)
2000 . f s name=$o(headers(name)) q:name="" d
2001"RTN","C0CE002",65,0)
2002 . . s lcname=$$zcvt^%zewdAPI(name,"l")
2003"RTN","C0CE002",66,0)
2004 . . i lcname="content-type" s ctype=headers(name) q
2005"RTN","C0CE002",67,0)
2006 . . w name_": "_headers(name)_$c(13,10)
2007"RTN","C0CE002",68,0)
2008 w "Content-type: "_ctype_$c(13,10)
2009"RTN","C0CE002",69,0)
2010 w $c(13,10)
2011"RTN","C0CE002",70,0)
2012 QUIT 1
2013"RTN","C0CE002",71,0)
2014 ;
2015"RTN","C0CE002",72,0)
2016body ;
2017"RTN","C0CE002",73,0)
2018 s no=""
2019"RTN","C0CE002",74,0)
2020 i no?1N.N s no=no-1
2021"RTN","C0CE002",75,0)
2022 i no?1AP.ANP d
2023"RTN","C0CE002",76,0)
2024 . s p1=$e(no,1,$l(no)-1)
2025"RTN","C0CE002",77,0)
2026 . s p2=$e(no,$l(no))
2027"RTN","C0CE002",78,0)
2028 . s p2=$c($a(p2)-1)
2029"RTN","C0CE002",79,0)
2030 . s no=p1_p2
2031"RTN","C0CE002",80,0)
2032 s nul=""
2033"RTN","C0CE002",81,0)
2034 s endValue12=""
2035"RTN","C0CE002",82,0)
2036 i endValue12?1N.N s endValue12=endValue12+1
2037"RTN","C0CE002",83,0)
2038 f q:'(($o(^%zewdSession("session",sessid,"CCR",no))'=endValue12)&($o(^%zewdSession("session",sessid,"CCR",no))'=nul)) d
2039"RTN","C0CE002",84,0)
2040 .s no=$o(^%zewdSession("session",sessid,"CCR",no))
2041"RTN","C0CE002",85,0)
2042 .s data=$g(^%zewdSession("session",sessid,"CCR",no))
2043"RTN","C0CE002",86,0)
2044 .w data
2045"RTN","C0CE002",87,0)
2046 .
2047"RTN","C0CE002",88,0)
2048 QUIT
2049"RTN","C0CE003")
20500^11^B16186512
2051"RTN","C0CE003",1,0)
2052 ;GT.M version of page ccr2 (patientportal application)
2053"RTN","C0CE003",2,0)
2054 ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
2055"RTN","C0CE003",3,0)
2056 ;using Enterprise Web Developer (Build 790)
2057"RTN","C0CE003",4,0)
2058 QUIT
2059"RTN","C0CE003",5,0)
2060 ;
2061"RTN","C0CE003",6,0)
2062run ;
2063"RTN","C0CE003",7,0)
2064 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
2065"RTN","C0CE003",8,0)
2066 s ok=$$pre()
2067"RTN","C0CE003",9,0)
2068 i ok d body
2069"RTN","C0CE003",10,0)
2070 QUIT
2071"RTN","C0CE003",11,0)
2072 ;
2073"RTN","C0CE003",12,0)
2074pre() ;
2075"RTN","C0CE003",13,0)
2076 ;
2077"RTN","C0CE003",14,0)
2078 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
2079"RTN","C0CE003",15,0)
2080 ;
2081"RTN","C0CE003",16,0)
2082 s confirmText="Click OK if you're sure you want to delete this record"
2083"RTN","C0CE003",17,0)
2084 s sessionArray("ewd_isFirstPage")="0"
2085"RTN","C0CE003",18,0)
2086 s sessionArray("ewd_sessid_timeout")="1200"
2087"RTN","C0CE003",19,0)
2088 s sessionArray("ewd_prePageScript")=""
2089"RTN","C0CE003",20,0)
2090 s sessionArray("ewd_default_timeout")="1200"
2091"RTN","C0CE003",21,0)
2092 s sessionArray("ewd_persistRequest")="true"
2093"RTN","C0CE003",22,0)
2094 s sessionArray("ewd_pageTitle")=""
2095"RTN","C0CE003",23,0)
2096 s sessionArray("ewd_errorPage")="ewdError"
2097"RTN","C0CE003",24,0)
2098 s sessionArray("ewd_templatePrePageScript")=""
2099"RTN","C0CE003",25,0)
2100 s sessionArray("ewd_onErrorScript")=""
2101"RTN","C0CE003",26,0)
2102 s sessionArray("ewd_appName")="patientportal"
2103"RTN","C0CE003",27,0)
2104 s sessionArray("ewd_pageName")="ccr2"
2105"RTN","C0CE003",28,0)
2106 s sessionArray("ewd_translationMode")="0"
2107"RTN","C0CE003",29,0)
2108 s sessionArray("ewd_technology")="gtm"
2109"RTN","C0CE003",30,0)
2110 s sessionArray("ewd_pageType")=""
2111"RTN","C0CE003",31,0)
2112 s Error=$$startSession^%zewdPHP("ccr2",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
2113"RTN","C0CE003",32,0)
2114 s sessid=$g(sessionArray("ewd_sessid"))
2115"RTN","C0CE003",33,0)
2116 i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
2117"RTN","C0CE003",34,0)
2118 . s Error=$p(Error,":",2,200)
2119"RTN","C0CE003",35,0)
2120 . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
2121"RTN","C0CE003",36,0)
2122 . s Error="EWD runtime error: "_Error
2123"RTN","C0CE003",37,0)
2124 i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
2125"RTN","C0CE003",38,0)
2126 . n errorPage
2127"RTN","C0CE003",39,0)
2128 . s errorPage=$g(sessionArray("ewd_errorPage"))
2129"RTN","C0CE003",40,0)
2130 . i errorPage="" s errorPage="ewdError"
2131"RTN","C0CE003",41,0)
2132 . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
2133"RTN","C0CE003",42,0)
2134 . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
2135"RTN","C0CE003",43,0)
2136 s stop=0
2137"RTN","C0CE003",44,0)
2138 i Error="" d i stop QUIT 0
2139"RTN","C0CE003",45,0)
2140 . n nextpage
2141"RTN","C0CE003",46,0)
2142 . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
2143"RTN","C0CE003",47,0)
2144 . i nextpage'="" d
2145"RTN","C0CE003",48,0)
2146 . . n x
2147"RTN","C0CE003",49,0)
2148 . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
2149"RTN","C0CE003",50,0)
2150 . . s stop=1
2151"RTN","C0CE003",51,0)
2152 i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
2153"RTN","C0CE003",52,0)
2154 . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
2155"RTN","C0CE003",53,0)
2156 . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
2157"RTN","C0CE003",54,0)
2158 w "HTTP/1.1 200 OK"_$c(13,10)
2159"RTN","C0CE003",55,0)
2160 s ctype="text/html"
2161"RTN","C0CE003",56,0)
2162 d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
2163"RTN","C0CE003",57,0)
2164 i $d(headers) d
2165"RTN","C0CE003",58,0)
2166 . n lcname,name
2167"RTN","C0CE003",59,0)
2168 . s name=""
2169"RTN","C0CE003",60,0)
2170 . f s name=$o(headers(name)) q:name="" d
2171"RTN","C0CE003",61,0)
2172 . . s lcname=$$zcvt^%zewdAPI(name,"l")
2173"RTN","C0CE003",62,0)
2174 . . i lcname="content-type" s ctype=headers(name) q
2175"RTN","C0CE003",63,0)
2176 . . w name_": "_headers(name)_$c(13,10)
2177"RTN","C0CE003",64,0)
2178 w "Content-type: "_ctype_$c(13,10)
2179"RTN","C0CE003",65,0)
2180 w $c(13,10)
2181"RTN","C0CE003",66,0)
2182 QUIT 1
2183"RTN","C0CE003",67,0)
2184 ;
2185"RTN","C0CE003",68,0)
2186body ;
2187"RTN","C0CE003",69,0)
2188 w "<html>"_$c(13,10)
2189"RTN","C0CE003",70,0)
2190 w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
2191"RTN","C0CE003",71,0)
2192 w "hello world"_""
2193"RTN","C0CE003",72,0)
2194 w " </body>"_$c(13,10)
2195"RTN","C0CE003",73,0)
2196 w "</html>"_$c(13,10)
2197"RTN","C0CE003",74,0)
2198 QUIT
2199"RTN","C0CE004")
22000^6^B14016611
2201"RTN","C0CE004",1,0)
2202 ;GT.M version of page ccr-exe (patientportal application)
2203"RTN","C0CE004",2,0)
2204 ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
2205"RTN","C0CE004",3,0)
2206 ;using Enterprise Web Developer (Build 790)
2207"RTN","C0CE004",4,0)
2208 QUIT
2209"RTN","C0CE004",5,0)
2210 ;
2211"RTN","C0CE004",6,0)
2212run ;
2213"RTN","C0CE004",7,0)
2214 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
2215"RTN","C0CE004",8,0)
2216 s ok=$$pre()
2217"RTN","C0CE004",9,0)
2218 i ok d body
2219"RTN","C0CE004",10,0)
2220 QUIT
2221"RTN","C0CE004",11,0)
2222 ;
2223"RTN","C0CE004",12,0)
2224pre() ;
2225"RTN","C0CE004",13,0)
2226 ;
2227"RTN","C0CE004",14,0)
2228 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
2229"RTN","C0CE004",15,0)
2230 ;
2231"RTN","C0CE004",16,0)
2232 s confirmText="Click OK if you're sure you want to delete this record"
2233"RTN","C0CE004",17,0)
2234 s sessionArray("ewd_isFirstPage")="0"
2235"RTN","C0CE004",18,0)
2236 s sessionArray("ewd_sessid_timeout")="1200"
2237"RTN","C0CE004",19,0)
2238 s sessionArray("ewd_prePageScript")=""
2239"RTN","C0CE004",20,0)
2240 s sessionArray("ewd_default_timeout")="1200"
2241"RTN","C0CE004",21,0)
2242 s sessionArray("ewd_persistRequest")="true"
2243"RTN","C0CE004",22,0)
2244 s sessionArray("ewd_pageTitle")=""
2245"RTN","C0CE004",23,0)
2246 s sessionArray("ewd_errorPage")="ewdError"
2247"RTN","C0CE004",24,0)
2248 s sessionArray("ewd_templatePrePageScript")=""
2249"RTN","C0CE004",25,0)
2250 s sessionArray("ewd_onErrorScript")=""
2251"RTN","C0CE004",26,0)
2252 s sessionArray("ewd_appName")="patientportal"
2253"RTN","C0CE004",27,0)
2254 s sessionArray("ewd_pageName")="ccr-exe"
2255"RTN","C0CE004",28,0)
2256 s sessionArray("ewd_translationMode")="0"
2257"RTN","C0CE004",29,0)
2258 s sessionArray("ewd_technology")="gtm"
2259"RTN","C0CE004",30,0)
2260 s sessionArray("ewd_pageType")=""
2261"RTN","C0CE004",31,0)
2262 s Error=$$startSession^%zewdPHP("ccr-exe",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
2263"RTN","C0CE004",32,0)
2264 s sessid=$g(sessionArray("ewd_sessid"))
2265"RTN","C0CE004",33,0)
2266 i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
2267"RTN","C0CE004",34,0)
2268 . s Error=$p(Error,":",2,200)
2269"RTN","C0CE004",35,0)
2270 . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
2271"RTN","C0CE004",36,0)
2272 . s Error="EWD runtime error: "_Error
2273"RTN","C0CE004",37,0)
2274 i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
2275"RTN","C0CE004",38,0)
2276 . n errorPage
2277"RTN","C0CE004",39,0)
2278 . s errorPage=$g(sessionArray("ewd_errorPage"))
2279"RTN","C0CE004",40,0)
2280 . i errorPage="" s errorPage="ewdError"
2281"RTN","C0CE004",41,0)
2282 . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
2283"RTN","C0CE004",42,0)
2284 . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
2285"RTN","C0CE004",43,0)
2286 s stop=0
2287"RTN","C0CE004",44,0)
2288 i Error="" d i stop QUIT 0
2289"RTN","C0CE004",45,0)
2290 . n nextpage
2291"RTN","C0CE004",46,0)
2292 . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
2293"RTN","C0CE004",47,0)
2294 . i nextpage'="" d
2295"RTN","C0CE004",48,0)
2296 . . n x
2297"RTN","C0CE004",49,0)
2298 . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
2299"RTN","C0CE004",50,0)
2300 . . s stop=1
2301"RTN","C0CE004",51,0)
2302 i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
2303"RTN","C0CE004",52,0)
2304 . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
2305"RTN","C0CE004",53,0)
2306 . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
2307"RTN","C0CE004",54,0)
2308 w "HTTP/1.1 200 OK"_$c(13,10)
2309"RTN","C0CE004",55,0)
2310 s ctype="text/html"
2311"RTN","C0CE004",56,0)
2312 d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
2313"RTN","C0CE004",57,0)
2314 i $d(headers) d
2315"RTN","C0CE004",58,0)
2316 . n lcname,name
2317"RTN","C0CE004",59,0)
2318 . s name=""
2319"RTN","C0CE004",60,0)
2320 . f s name=$o(headers(name)) q:name="" d
2321"RTN","C0CE004",61,0)
2322 . . s lcname=$$zcvt^%zewdAPI(name,"l")
2323"RTN","C0CE004",62,0)
2324 . . i lcname="content-type" s ctype=headers(name) q
2325"RTN","C0CE004",63,0)
2326 . . w name_": "_headers(name)_$c(13,10)
2327"RTN","C0CE004",64,0)
2328 w "Content-type: "_ctype_$c(13,10)
2329"RTN","C0CE004",65,0)
2330 w $c(13,10)
2331"RTN","C0CE004",66,0)
2332 QUIT 1
2333"RTN","C0CE004",67,0)
2334 ;
2335"RTN","C0CE004",68,0)
2336body ;
2337"RTN","C0CE004",69,0)
2338 d gpltest^C0CRICH("")
2339"RTN","C0CE004",70,0)
2340 QUIT
2341"RTN","C0CE005")
23420^12^B80810317
2343"RTN","C0CE005",1,0)
2344 ;GT.M version of page Second (patientportal application)
2345"RTN","C0CE005",2,0)
2346 ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
2347"RTN","C0CE005",3,0)
2348 ;using Enterprise Web Developer (Build 790)
2349"RTN","C0CE005",4,0)
2350 QUIT
2351"RTN","C0CE005",5,0)
2352 ;
2353"RTN","C0CE005",6,0)
2354run ;
2355"RTN","C0CE005",7,0)
2356 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
2357"RTN","C0CE005",8,0)
2358 s ok=$$pre()
2359"RTN","C0CE005",9,0)
2360 i ok d body
2361"RTN","C0CE005",10,0)
2362 QUIT
2363"RTN","C0CE005",11,0)
2364 ;
2365"RTN","C0CE005",12,0)
2366pre() ;
2367"RTN","C0CE005",13,0)
2368 ;
2369"RTN","C0CE005",14,0)
2370 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
2371"RTN","C0CE005",15,0)
2372 ;
2373"RTN","C0CE005",16,0)
2374 s confirmText="Click OK if you're sure you want to delete this record"
2375"RTN","C0CE005",17,0)
2376 s sessionArray("ewd_isFirstPage")="0"
2377"RTN","C0CE005",18,0)
2378 s sessionArray("ewd_sessid_timeout")="1200"
2379"RTN","C0CE005",19,0)
2380 s sessionArray("ewd_prePageScript")=""
2381"RTN","C0CE005",20,0)
2382 s sessionArray("ewd_default_timeout")="1200"
2383"RTN","C0CE005",21,0)
2384 s sessionArray("ewd_persistRequest")="true"
2385"RTN","C0CE005",22,0)
2386 s sessionArray("ewd_pageTitle")=""
2387"RTN","C0CE005",23,0)
2388 s sessionArray("ewd_errorPage")="ewdError"
2389"RTN","C0CE005",24,0)
2390 s sessionArray("ewd_templatePrePageScript")=""
2391"RTN","C0CE005",25,0)
2392 s sessionArray("ewd_onErrorScript")=""
2393"RTN","C0CE005",26,0)
2394 s sessionArray("ewd_appName")="patientportal"
2395"RTN","C0CE005",27,0)
2396 s sessionArray("ewd_pageName")="Second"
2397"RTN","C0CE005",28,0)
2398 s sessionArray("ewd_translationMode")="0"
2399"RTN","C0CE005",29,0)
2400 s sessionArray("ewd_technology")="gtm"
2401"RTN","C0CE005",30,0)
2402 s sessionArray("ewd_pageType")=""
2403"RTN","C0CE005",31,0)
2404 s tokens("First")=$$setNextPageToken^%zewdGTMRuntime("First")
2405"RTN","C0CE005",32,0)
2406 s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
2407"RTN","C0CE005",33,0)
2408 s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
2409"RTN","C0CE005",34,0)
2410 s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
2411"RTN","C0CE005",35,0)
2412 s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
2413"RTN","C0CE005",36,0)
2414 s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
2415"RTN","C0CE005",37,0)
2416 s Error=$$startSession^%zewdPHP("Second",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
2417"RTN","C0CE005",38,0)
2418 s sessid=$g(sessionArray("ewd_sessid"))
2419"RTN","C0CE005",39,0)
2420 i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
2421"RTN","C0CE005",40,0)
2422 . s Error=$p(Error,":",2,200)
2423"RTN","C0CE005",41,0)
2424 . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
2425"RTN","C0CE005",42,0)
2426 . s Error="EWD runtime error: "_Error
2427"RTN","C0CE005",43,0)
2428 i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
2429"RTN","C0CE005",44,0)
2430 . n errorPage
2431"RTN","C0CE005",45,0)
2432 . s errorPage=$g(sessionArray("ewd_errorPage"))
2433"RTN","C0CE005",46,0)
2434 . i errorPage="" s errorPage="ewdError"
2435"RTN","C0CE005",47,0)
2436 . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
2437"RTN","C0CE005",48,0)
2438 . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
2439"RTN","C0CE005",49,0)
2440 s stop=0
2441"RTN","C0CE005",50,0)
2442 i Error="" d i stop QUIT 0
2443"RTN","C0CE005",51,0)
2444 . n nextpage
2445"RTN","C0CE005",52,0)
2446 . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
2447"RTN","C0CE005",53,0)
2448 . i nextpage'="" d
2449"RTN","C0CE005",54,0)
2450 . . n x
2451"RTN","C0CE005",55,0)
2452 . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
2453"RTN","C0CE005",56,0)
2454 . . s stop=1
2455"RTN","C0CE005",57,0)
2456 i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
2457"RTN","C0CE005",58,0)
2458 . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
2459"RTN","C0CE005",59,0)
2460 . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
2461"RTN","C0CE005",60,0)
2462 w "HTTP/1.1 200 OK"_$c(13,10)
2463"RTN","C0CE005",61,0)
2464 s ctype="text/html"
2465"RTN","C0CE005",62,0)
2466 d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
2467"RTN","C0CE005",63,0)
2468 i $d(headers) d
2469"RTN","C0CE005",64,0)
2470 . n lcname,name
2471"RTN","C0CE005",65,0)
2472 . s name=""
2473"RTN","C0CE005",66,0)
2474 . f s name=$o(headers(name)) q:name="" d
2475"RTN","C0CE005",67,0)
2476 . . s lcname=$$zcvt^%zewdAPI(name,"l")
2477"RTN","C0CE005",68,0)
2478 . . i lcname="content-type" s ctype=headers(name) q
2479"RTN","C0CE005",69,0)
2480 . . w name_": "_headers(name)_$c(13,10)
2481"RTN","C0CE005",70,0)
2482 w "Content-type: "_ctype_$c(13,10)
2483"RTN","C0CE005",71,0)
2484 w $c(13,10)
2485"RTN","C0CE005",72,0)
2486 QUIT 1
2487"RTN","C0CE005",73,0)
2488 ;
2489"RTN","C0CE005",74,0)
2490body ;
2491"RTN","C0CE005",75,0)
2492 w "<html>"_$c(13,10)
2493"RTN","C0CE005",76,0)
2494 w " <head>"_$c(13,10)
2495"RTN","C0CE005",77,0)
2496 w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
2497"RTN","C0CE005",78,0)
2498 w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
2499"RTN","C0CE005",79,0)
2500 w "</script>"_$c(13,10)
2501"RTN","C0CE005",80,0)
2502 w " <title>"_$c(13,10)
2503"RTN","C0CE005",81,0)
2504 w "The second EWD Page"_""
2505"RTN","C0CE005",82,0)
2506 w " </title>"_$c(13,10)
2507"RTN","C0CE005",83,0)
2508 w " <script language=""javascript"">"_$c(13,10)
2509"RTN","C0CE005",84,0)
2510 w ""_$c(13,10)
2511"RTN","C0CE005",85,0)
2512 w " function goBack() {"_$c(13,10)
2513"RTN","C0CE005",86,0)
2514 w " document.location = '/ewd/patientportal/First.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("First")_"' ;"_$c(13,10)
2515"RTN","C0CE005",87,0)
2516 w " }"_$c(13,10)
2517"RTN","C0CE005",88,0)
2518 w " "_""
2519"RTN","C0CE005",89,0)
2520 w " </script>"_$c(13,10)
2521"RTN","C0CE005",90,0)
2522 w " <script language=""javascript"">"_$c(13,10)
2523"RTN","C0CE005",91,0)
2524 w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
2525"RTN","C0CE005",92,0)
2526 w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
2527"RTN","C0CE005",93,0)
2528 w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
2529"RTN","C0CE005",94,0)
2530 w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
2531"RTN","C0CE005",95,0)
2532 w " } ;"_$c(13,10)
2533"RTN","C0CE005",96,0)
2534 w " EWD.page.setErrorClass = function () { "_$c(13,10)
2535"RTN","C0CE005",97,0)
2536 w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
2537"RTN","C0CE005",98,0)
2538 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)
2539"RTN","C0CE005",99,0)
2540 w " }"_$c(13,10)
2541"RTN","C0CE005",100,0)
2542 w " } ;"_$c(13,10)
2543"RTN","C0CE005",101,0)
2544 w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
2545"RTN","C0CE005",102,0)
2546 w " var json,x ;"_$c(13,10)
2547"RTN","C0CE005",103,0)
2548 w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
2549"RTN","C0CE005",104,0)
2550 w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
2551"RTN","C0CE005",105,0)
2552 w " eval(x) ;"_$c(13,10)
2553"RTN","C0CE005",106,0)
2554 w " }"_$c(13,10)
2555"RTN","C0CE005",107,0)
2556 w " else {"_$c(13,10)
2557"RTN","C0CE005",108,0)
2558 w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
2559"RTN","C0CE005",109,0)
2560 w " //eval(x) ;"_$c(13,10)
2561"RTN","C0CE005",110,0)
2562 w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
2563"RTN","C0CE005",111,0)
2564 w " eval(x) ;"_$c(13,10)
2565"RTN","C0CE005",112,0)
2566 w " //json=toJsonString(objName);"_$c(13,10)
2567"RTN","C0CE005",113,0)
2568 w " }"_$c(13,10)
2569"RTN","C0CE005",114,0)
2570 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)
2571"RTN","C0CE005",115,0)
2572 w " } ;"_$c(13,10)
2573"RTN","C0CE005",116,0)
2574 w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
2575"RTN","C0CE005",117,0)
2576 w " if (refresh) {"_$c(13,10)
2577"RTN","C0CE005",118,0)
2578 w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
2579"RTN","C0CE005",119,0)
2580 w " var objExists = ""undefined"" ;"_$c(13,10)
2581"RTN","C0CE005",120,0)
2582 w " }"_$c(13,10)
2583"RTN","C0CE005",121,0)
2584 w " else {"_$c(13,10)
2585"RTN","C0CE005",122,0)
2586 w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
2587"RTN","C0CE005",123,0)
2588 w " eval(x) ;"_$c(13,10)
2589"RTN","C0CE005",124,0)
2590 w " }"_$c(13,10)
2591"RTN","C0CE005",125,0)
2592 w " if (objExists == ""undefined"") {"_$c(13,10)
2593"RTN","C0CE005",126,0)
2594 w " var addRef = 0 ;"_$c(13,10)
2595"RTN","C0CE005",127,0)
2596 w " if (addRefCol) addRef = 1;"_$c(13,10)
2597"RTN","C0CE005",128,0)
2598 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)
2599"RTN","C0CE005",129,0)
2600 w ""_""
2601"RTN","C0CE005",130,0)
2602 w " };"_$c(13,10)
2603"RTN","C0CE005",131,0)
2604 w " } ;"_$c(13,10)
2605"RTN","C0CE005",132,0)
2606 w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
2607"RTN","C0CE005",133,0)
2608 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)
2609"RTN","C0CE005",134,0)
2610 w " } ;"_$c(13,10)
2611"RTN","C0CE005",135,0)
2612 w ""_""
2613"RTN","C0CE005",136,0)
2614 w " </script>"_$c(13,10)
2615"RTN","C0CE005",137,0)
2616 w " </head>"_$c(13,10)
2617"RTN","C0CE005",138,0)
2618 w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
2619"RTN","C0CE005",139,0)
2620 w " <h3>"_$c(13,10)
2621"RTN","C0CE005",140,0)
2622 w "This page is not a ""first"" page"_""
2623"RTN","C0CE005",141,0)
2624 w " </h3>"_$c(13,10)
2625"RTN","C0CE005",142,0)
2626 w " <div>"_$c(13,10)
2627"RTN","C0CE005",143,0)
2628 w "It can only be accessed via a"_""
2629"RTN","C0CE005",144,0)
2630 w " <a href='/ewd/patientportal/session.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("session")_"&ewd_urlNo=Second1'>"_$c(13,10)
2631"RTN","C0CE005",145,0)
2632 w "tokenised link"_""
2633"RTN","C0CE005",146,0)
2634 w " </a>"_$c(13,10)
2635"RTN","C0CE005",147,0)
2636 w "generated by EWD"_""
2637"RTN","C0CE005",148,0)
2638 w " </div>"_$c(13,10)
2639"RTN","C0CE005",149,0)
2640 w " <div>"_$c(13,10)
2641"RTN","C0CE005",150,0)
2642 w " <input back""='back""' id=""ewdUnnamed25"" onclick=""goBack()"" type=""button name="" value=""Go Back to First Page"" />"_$c(13,10)
2643"RTN","C0CE005",151,0)
2644 w " </div>"_$c(13,10)
2645"RTN","C0CE005",152,0)
2646 w " </body>"_$c(13,10)
2647"RTN","C0CE005",153,0)
2648 w "</html>"_$c(13,10)
2649"RTN","C0CE005",154,0)
2650 QUIT
2651"RTN","C0CE006")
26520^7^B77594981
2653"RTN","C0CE006",1,0)
2654 ;GT.M version of page session (patientportal application)
2655"RTN","C0CE006",2,0)
2656 ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 3
2657"RTN","C0CE006",3,0)
2658 ;using Enterprise Web Developer (Build 790)
2659"RTN","C0CE006",4,0)
2660 QUIT
2661"RTN","C0CE006",5,0)
2662 ;
2663"RTN","C0CE006",6,0)
2664run ;
2665"RTN","C0CE006",7,0)
2666 n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
2667"RTN","C0CE006",8,0)
2668 s ok=$$pre()
2669"RTN","C0CE006",9,0)
2670 i ok d body
2671"RTN","C0CE006",10,0)
2672 QUIT
2673"RTN","C0CE006",11,0)
2674 ;
2675"RTN","C0CE006",12,0)
2676pre() ;
2677"RTN","C0CE006",13,0)
2678 ;
2679"RTN","C0CE006",14,0)
2680 n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
2681"RTN","C0CE006",15,0)
2682 ;
2683"RTN","C0CE006",16,0)
2684 s confirmText="Click OK if you're sure you want to delete this record"
2685"RTN","C0CE006",17,0)
2686 s sessionArray("ewd_isFirstPage")="0"
2687"RTN","C0CE006",18,0)
2688 s sessionArray("ewd_sessid_timeout")="1200"
2689"RTN","C0CE006",19,0)
2690 s sessionArray("ewd_prePageScript")="TEST^RICHEWDTEST"
2691"RTN","C0CE006",20,0)
2692 s sessionArray("ewd_default_timeout")="1200"
2693"RTN","C0CE006",21,0)
2694 s sessionArray("ewd_persistRequest")="true"
2695"RTN","C0CE006",22,0)
2696 s sessionArray("ewd_pageTitle")=""
2697"RTN","C0CE006",23,0)
2698 s sessionArray("ewd_errorPage")="ewdError"
2699"RTN","C0CE006",24,0)
2700 s sessionArray("ewd_templatePrePageScript")=""
2701"RTN","C0CE006",25,0)
2702 s sessionArray("ewd_onErrorScript")=""
2703"RTN","C0CE006",26,0)
2704 s sessionArray("ewd_appName")="patientportal"
2705"RTN","C0CE006",27,0)
2706 s sessionArray("ewd_pageName")="session"
2707"RTN","C0CE006",28,0)
2708 s sessionArray("ewd_translationMode")="0"
2709"RTN","C0CE006",29,0)
2710 s sessionArray("ewd_technology")="gtm"
2711"RTN","C0CE006",30,0)
2712 s sessionArray("ewd_pageType")=""
2713"RTN","C0CE006",31,0)
2714 s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
2715"RTN","C0CE006",32,0)
2716 s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
2717"RTN","C0CE006",33,0)
2718 s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
2719"RTN","C0CE006",34,0)
2720 s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
2721"RTN","C0CE006",35,0)
2722 s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
2723"RTN","C0CE006",36,0)
2724 s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
2725"RTN","C0CE006",37,0)
2726 s sessid=$g(sessionArray("ewd_sessid"))
2727"RTN","C0CE006",38,0)
2728 i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
2729"RTN","C0CE006",39,0)
2730 . s Error=$p(Error,":",2,200)
2731"RTN","C0CE006",40,0)
2732 . s Error=$$replaceAll^%zewdAPI(Error,"<br>",": ")
2733"RTN","C0CE006",41,0)
2734 . s Error="EWD runtime error: "_Error
2735"RTN","C0CE006",42,0)
2736 i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
2737"RTN","C0CE006",43,0)
2738 . n errorPage
2739"RTN","C0CE006",44,0)
2740 . s errorPage=$g(sessionArray("ewd_errorPage"))
2741"RTN","C0CE006",45,0)
2742 . i errorPage="" s errorPage="ewdError"
2743"RTN","C0CE006",46,0)
2744 . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
2745"RTN","C0CE006",47,0)
2746 . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
2747"RTN","C0CE006",48,0)
2748 s stop=0
2749"RTN","C0CE006",49,0)
2750 i Error="" d i stop QUIT 0
2751"RTN","C0CE006",50,0)
2752 . n nextpage
2753"RTN","C0CE006",51,0)
2754 . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
2755"RTN","C0CE006",52,0)
2756 . i nextpage'="" d
2757"RTN","C0CE006",53,0)
2758 . . n x
2759"RTN","C0CE006",54,0)
2760 . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
2761"RTN","C0CE006",55,0)
2762 . . s stop=1
2763"RTN","C0CE006",56,0)
2764 i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
2765"RTN","C0CE006",57,0)
2766 . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
2767"RTN","C0CE006",58,0)
2768 . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
2769"RTN","C0CE006",59,0)
2770 w "HTTP/1.1 200 OK"_$c(13,10)
2771"RTN","C0CE006",60,0)
2772 s ctype="text/html"
2773"RTN","C0CE006",61,0)
2774 d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
2775"RTN","C0CE006",62,0)
2776 i $d(headers) d
2777"RTN","C0CE006",63,0)
2778 . n lcname,name
2779"RTN","C0CE006",64,0)
2780 . s name=""
2781"RTN","C0CE006",65,0)
2782 . f s name=$o(headers(name)) q:name="" d
2783"RTN","C0CE006",66,0)
2784 . . s lcname=$$zcvt^%zewdAPI(name,"l")
2785"RTN","C0CE006",67,0)
2786 . . i lcname="content-type" s ctype=headers(name) q
2787"RTN","C0CE006",68,0)
2788 . . w name_": "_headers(name)_$c(13,10)
2789"RTN","C0CE006",69,0)
2790 w "Content-type: "_ctype_$c(13,10)
2791"RTN","C0CE006",70,0)
2792 w $c(13,10)
2793"RTN","C0CE006",71,0)
2794 QUIT 1
2795"RTN","C0CE006",72,0)
2796 ;
2797"RTN","C0CE006",73,0)
2798body ;
2799"RTN","C0CE006",74,0)
2800 w "<html>"_$c(13,10)
2801"RTN","C0CE006",75,0)
2802 w " <head>"_$c(13,10)
2803"RTN","C0CE006",76,0)
2804 w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
2805"RTN","C0CE006",77,0)
2806 w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
2807"RTN","C0CE006",78,0)
2808 w "</script>"_$c(13,10)
2809"RTN","C0CE006",79,0)
2810 w " <title>"_$c(13,10)
2811"RTN","C0CE006",80,0)
2812 w "EWD Page using Session Variables and a PrePage Script"_""
2813"RTN","C0CE006",81,0)
2814 w " </title>"_$c(13,10)
2815"RTN","C0CE006",82,0)
2816 w " <script language=""javascript"">"_$c(13,10)
2817"RTN","C0CE006",83,0)
2818 w ""_$c(13,10)
2819"RTN","C0CE006",84,0)
2820 w " eval('"_$$getSessionValue^%zewdAPI("json",sessid)_"');"_$c(13,10)
2821"RTN","C0CE006",85,0)
2822 w " //eval('"_$$getSessionValue^%zewdAPI("json",sessid)_"') ;"_$c(13,10)
2823"RTN","C0CE006",86,0)
2824 w " alert('hello ' + person.Address.Name) ;"_$c(13,10)
2825"RTN","C0CE006",87,0)
2826 w " "_""
2827"RTN","C0CE006",88,0)
2828 w " </script>"_$c(13,10)
2829"RTN","C0CE006",89,0)
2830 w " <script language=""javascript"">"_$c(13,10)
2831"RTN","C0CE006",90,0)
2832 w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
2833"RTN","C0CE006",91,0)
2834 w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
2835"RTN","C0CE006",92,0)
2836 w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
2837"RTN","C0CE006",93,0)
2838 w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
2839"RTN","C0CE006",94,0)
2840 w " } ;"_$c(13,10)
2841"RTN","C0CE006",95,0)
2842 w " EWD.page.setErrorClass = function () { "_$c(13,10)
2843"RTN","C0CE006",96,0)
2844 w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
2845"RTN","C0CE006",97,0)
2846 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)
2847"RTN","C0CE006",98,0)
2848 w " }"_$c(13,10)
2849"RTN","C0CE006",99,0)
2850 w " } ;"_$c(13,10)
2851"RTN","C0CE006",100,0)
2852 w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
2853"RTN","C0CE006",101,0)
2854 w " var json,x ;"_$c(13,10)
2855"RTN","C0CE006",102,0)
2856 w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
2857"RTN","C0CE006",103,0)
2858 w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
2859"RTN","C0CE006",104,0)
2860 w " eval(x) ;"_$c(13,10)
2861"RTN","C0CE006",105,0)
2862 w " }"_$c(13,10)
2863"RTN","C0CE006",106,0)
2864 w " else {"_$c(13,10)
2865"RTN","C0CE006",107,0)
2866 w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
2867"RTN","C0CE006",108,0)
2868 w " //eval(x) ;"_$c(13,10)
2869"RTN","C0CE006",109,0)
2870 w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
2871"RTN","C0CE006",110,0)
2872 w " eval(x) ;"_$c(13,10)
2873"RTN","C0CE006",111,0)
2874 w " //json=toJsonString(objName);"_$c(13,10)
2875"RTN","C0CE006",112,0)
2876 w " }"_$c(13,10)
2877"RTN","C0CE006",113,0)
2878 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)
2879"RTN","C0CE006",114,0)
2880 w " } ;"_$c(13,10)
2881"RTN","C0CE006",115,0)
2882 w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
2883"RTN","C0CE006",116,0)
2884 w " if (refresh) {"_$c(13,10)
2885"RTN","C0CE006",117,0)
2886 w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
2887"RTN","C0CE006",118,0)
2888 w " var objExists = ""undefined"" ;"_$c(13,10)
2889"RTN","C0CE006",119,0)
2890 w " }"_$c(13,10)
2891"RTN","C0CE006",120,0)
2892 w " else {"_$c(13,10)
2893"RTN","C0CE006",121,0)
2894 w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
2895"RTN","C0CE006",122,0)
2896 w " eval(x) ;"_$c(13,10)
2897"RTN","C0CE006",123,0)
2898 w " }"_$c(13,10)
2899"RTN","C0CE006",124,0)
2900 w " if (objExists == ""undefined"") {"_$c(13,10)
2901"RTN","C0CE006",125,0)
2902 w " var addRef = 0 ;"_$c(13,10)
2903"RTN","C0CE006",126,0)
2904 w " if (addRefCol) addRef = 1;"_$c(13,10)
2905"RTN","C0CE006",127,0)
2906 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)
2907"RTN","C0CE006",128,0)
2908 w ""_""
2909"RTN","C0CE006",129,0)
2910 w " };"_$c(13,10)
2911"RTN","C0CE006",130,0)
2912 w " } ;"_$c(13,10)
2913"RTN","C0CE006",131,0)
2914 w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
2915"RTN","C0CE006",132,0)
2916 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)
2917"RTN","C0CE006",133,0)
2918 w " } ;"_$c(13,10)
2919"RTN","C0CE006",134,0)
2920 w ""_""
2921"RTN","C0CE006",135,0)
2922 w " </script>"_$c(13,10)
2923"RTN","C0CE006",136,0)
2924 w " </head>"_$c(13,10)
2925"RTN","C0CE006",137,0)
2926 w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
2927"RTN","C0CE006",138,0)
2928 w " <h3>"_$c(13,10)
2929"RTN","C0CE006",139,0)
2930 w "This page accesses EWD Session Variables"_""
2931"RTN","C0CE006",140,0)
2932 w " </h3>"_$c(13,10)
2933"RTN","C0CE006",141,0)
2934 w " <div>"_$c(13,10)
2935"RTN","C0CE006",142,0)
2936 w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
2937"RTN","C0CE006",143,0)
2938 w " </div>"_$c(13,10)
2939"RTN","C0CE006",144,0)
2940 w " <div>"_$c(13,10)
2941"RTN","C0CE006",145,0)
2942 w "Goto"_""
2943"RTN","C0CE006",146,0)
2944 w " <a href='/ewd/patientportal/login.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("login")_"&ewd_urlNo=session1'>"_$c(13,10)
2945"RTN","C0CE006",147,0)
2946 w "next page"_""
2947"RTN","C0CE006",148,0)
2948 w " </a>"_$c(13,10)
2949"RTN","C0CE006",149,0)
2950 w " </div>"_$c(13,10)
2951"RTN","C0CE006",150,0)
2952 w " </body>"_$c(13,10)
2953"RTN","C0CE006",151,0)
2954 w "</html>"_$c(13,10)
2955"RTN","C0CE006",152,0)
2956 QUIT
2957"RTN","C0CEX")
29580^1^B811998
2959"RTN","C0CEX",1,0)
2960C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
2961"RTN","C0CEX",2,0)
2962 ;;1.0;C0C;;Mar 1, 2010 ;Build 3
2963"RTN","C0CEX",3,0)
2964SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
2965"RTN","C0CEX",4,0)
2966 ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
2967"RTN","C0CEX",5,0)
2968 N ZR
2969"RTN","C0CEX",6,0)
2970 I $G(ZAPP)="" Q ;
2971"RTN","C0CEX",7,0)
2972 I $G(ZPAGE)="" Q ;
2973"RTN","C0CEX",8,0)
2974 I $G(ZROUTINE)="" Q ;
2975"RTN","C0CEX",9,0)
2976 S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
2977"RTN","C0CEX",10,0)
2978 S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
2979"RTN","C0CEX",11,0)
2980 Q
2981"RTN","C0CEX",12,0)
2982 ;
2983"RTN","C0CEX",13,0)
2984KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
2985"RTN","C0CEX",14,0)
2986 ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
2987"RTN","C0CEX",15,0)
2988 I $G(ZAPP)="" Q ;
2989"RTN","C0CEX",16,0)
2990 I $G(ZPAGE)="" Q ;
2991"RTN","C0CEX",17,0)
2992 K ^zewd("routineMap",ZAPP,ZPAGE)
2993"RTN","C0CEX",18,0)
2994 Q
2995"RTN","C0CRICH")
29960^13^B5114262
2997"RTN","C0CRICH",1,0)
2998C0CRICH ; CCDCCR/GPL - SUPPORT FOR EWD TEST PAGES ; 3/1/2010
2999"RTN","C0CRICH",2,0)
3000 ;;1.0;C0C;;Mar 1, 2010;Build 3
3001"RTN","C0CRICH",3,0)
3002gpltest2 ; experiment with sending a CCR to an ewd page
3003"RTN","C0CRICH",4,0)
3004 N ZI
3005"RTN","C0CRICH",5,0)
3006 S ZI=""
3007"RTN","C0CRICH",6,0)
3008 D PSEUDO
3009"RTN","C0CRICH",7,0)
3010 N ZIO
3011"RTN","C0CRICH",8,0)
3012 S ZIO=IO
3013"RTN","C0CRICH",9,0)
3014 S IO="/dev/null"
3015"RTN","C0CRICH",10,0)
3016 OPEN IO
3017"RTN","C0CRICH",11,0)
3018 U IO
3019"RTN","C0CRICH",12,0)
3020 D CCRRPC^C0CCCR(.GPL,2)
3021"RTN","C0CRICH",13,0)
3022 S IO=ZIO
3023"RTN","C0CRICH",14,0)
3024 OPEN IO
3025"RTN","C0CRICH",15,0)
3026 U IO
3027"RTN","C0CRICH",16,0)
3028 K GPL(0)
3029"RTN","C0CRICH",17,0)
3030 F S ZI=$O(GPL(ZI)) Q:ZI="" W GPL(ZI),!
3031"RTN","C0CRICH",18,0)
3032 Q
3033"RTN","C0CRICH",19,0)
3034 ;
3035"RTN","C0CRICH",20,0)
3036gpltest ; experiment with sending a CCR to an ewd page
3037"RTN","C0CRICH",21,0)
3038 N ZI
3039"RTN","C0CRICH",22,0)
3040 S ZI=""
3041"RTN","C0CRICH",23,0)
3042 K ^GPL(0)
3043"RTN","C0CRICH",24,0)
3044 S ^GPL(2)="<?xml-stylesheet type=""text/xsl"" href=""/resources/ccr.xsl""?>"
3045"RTN","C0CRICH",25,0)
3046 F S ZI=$O(^GPL(ZI)) Q:ZI="" W ^GPL(ZI),!
3047"RTN","C0CRICH",26,0)
3048 Q
3049"RTN","C0CRICH",27,0)
3050 ;
3051"RTN","C0CRICH",28,0)
3052TEST(sessid);
3053"RTN","C0CRICH",29,0)
3054 d setSessionValue^%zewdAPI("person.Name","Rob",sessid)
3055"RTN","C0CRICH",30,0)
3056 d setSessionValue^%zewdAPI("person.DateOfBirth","13/06/55",sessid)
3057"RTN","C0CRICH",31,0)
3058 d setSessionValue^%zewdAPI("person.Address.PostCode","SW1 3QA",sessid)
3059"RTN","C0CRICH",32,0)
3060 d setSessionValue^%zewdAPI("person.Address.Line1","1 The Street",sessid)
3061"RTN","C0CRICH",33,0)
3062 d setSessionValue^%zewdAPI("person.Address.2.hello","world",sessid)
3063"RTN","C0CRICH",34,0)
3064 d setJSONValue^%zewdAPI("json","person",sessid)
3065"RTN","C0CRICH",35,0)
3066 Q ""
3067"RTN","C0CRICH",36,0)
3068
3069"RTN","C0CRICH",37,0)
3070PARSE(INXML,INDOC) ;CALL THE EWD PARSER ON INXML, PASSED BY NAME
3071"RTN","C0CRICH",38,0)
3072 ; INDOC IS PASSED AS THE DOCUMENT NAME TO EWD
3073"RTN","C0CRICH",39,0)
3074 ; EXTRINSIC WHICH RETURNS THE DOCID ASSIGNED BY EWD
3075"RTN","C0CRICH",40,0)
3076 N ZR
3077"RTN","C0CRICH",41,0)
3078 M ^CacheTempEWD($j)=@INXML ;
3079"RTN","C0CRICH",42,0)
3080 S ZR=$$parseDocument^%zewdHTMLParser(INDOC)
3081"RTN","C0CRICH",43,0)
3082 Q ZR
3083"RTN","C0CRICH",44,0)
3084 ;
3085"RTN","C0CRICH",45,0)
3086TEST2(sessid) ; try to put a ccr in the session
3087"RTN","C0CRICH",46,0)
3088 S U="^"
3089"RTN","C0CRICH",47,0)
3090 D PSEUDO ; FAKE LOGIN
3091"RTN","C0CRICH",48,0)
3092 S ZIO=$IO
3093"RTN","C0CRICH",49,0)
3094 S DEV="/dev/null"
3095"RTN","C0CRICH",50,0)
3096 O DEV U DEV
3097"RTN","C0CRICH",51,0)
3098 D CCRRPC^C0CCCR(.GPL,2)
3099"RTN","C0CRICH",52,0)
3100 K GPL(0)
3101"RTN","C0CRICH",53,0)
3102 S GPL(2)="<?xml-stylesheet type=""text/xsl"" href=""/resources/ccr.xsl""?>"
3103"RTN","C0CRICH",54,0)
3104 C DEV U ZIO
3105"RTN","C0CRICH",55,0)
3106 ;M ^CacheTempEWD($j)=GPL
3107"RTN","C0CRICH",56,0)
3108 S DOCNAME="CCR"
3109"RTN","C0CRICH",57,0)
3110 ;ZWR GPL
3111"RTN","C0CRICH",58,0)
3112 ;S ZR=$$parseDocument^%zewdHTMLParser(DOCNAME)
3113"RTN","C0CRICH",59,0)
3114 ;d setSessionValues^%zewdAPI(DOCNAME,GPL,sessid)
3115"RTN","C0CRICH",60,0)
3116 d mergeArrayToSession^%zewdAPI(.GPL,DOCNAME,sessid)
3117"RTN","C0CRICH",61,0)
3118 Q ""
3119"RTN","C0CRICH",62,0)
3120 ;
3121"RTN","C0CRICH",63,0)
3122PSEUDO
3123"RTN","C0CRICH",64,0)
3124 S DILOCKTM=3
3125"RTN","C0CRICH",65,0)
3126 S DISYS=19
3127"RTN","C0CRICH",66,0)
3128 S DT=3100219
3129"RTN","C0CRICH",67,0)
3130 S DTIME=999
3131"RTN","C0CRICH",68,0)
3132 S DUZ=10
3133"RTN","C0CRICH",69,0)
3134 S DUZ(0)="@"
3135"RTN","C0CRICH",70,0)
3136 S DUZ(1)=""
3137"RTN","C0CRICH",71,0)
3138 S DUZ(2)=1
3139"RTN","C0CRICH",72,0)
3140 S DUZ("AG")="V"
3141"RTN","C0CRICH",73,0)
3142 S DUZ("BUF")=1
3143"RTN","C0CRICH",74,0)
3144 S DUZ("LANG")=""
3145"RTN","C0CRICH",75,0)
3146 ;S IO="/dev/pts/2"
3147"RTN","C0CRICH",76,0)
3148 ;S IO(0)="/dev/pts/2"
3149"RTN","C0CRICH",77,0)
3150 ;S IO(1,"/dev/pts/2")=""
3151"RTN","C0CRICH",78,0)
3152 ;S IO("ERROR")=""
3153"RTN","C0CRICH",79,0)
3154 ;S IO("HOME")="41^/dev/pts/2"
3155"RTN","C0CRICH",80,0)
3156 ;S IO("ZIO")="/dev/pts/2"
3157"RTN","C0CRICH",81,0)
3158 ;S IOBS="$C(8)"
3159"RTN","C0CRICH",82,0)
3160 ;S IOF="#,$C(27,91,50,74,27,91,72)"
3161"RTN","C0CRICH",83,0)
3162 ;S SIOM=80
3163"RTN","C0CRICH",84,0)
3164 Q
3165"RTN","C0CRICH",85,0)
3166 ;
3167"RTN","C0CRICH",86,0)
3168PSEUDO2 ; FAKE LOGIN SETS SOME LOCAL VARIABLE TO FOOL FILEMAN
3169"RTN","C0CRICH",87,0)
3170 S DILOCKTM=3
3171"RTN","C0CRICH",88,0)
3172 S DISYS=19
3173"RTN","C0CRICH",89,0)
3174 S DT=3100112
3175"RTN","C0CRICH",90,0)
3176 S DTIME=9999
3177"RTN","C0CRICH",91,0)
3178 S DUZ=135
3179"RTN","C0CRICH",92,0)
3180 S DUZ(0)=""
3181"RTN","C0CRICH",93,0)
3182 S DUZ(1)=""
3183"RTN","C0CRICH",94,0)
3184 S DUZ(2)=67
3185"RTN","C0CRICH",95,0)
3186 S DUZ("AG")="E"
3187"RTN","C0CRICH",96,0)
3188 S DUZ("BUF")=1
3189"RTN","C0CRICH",97,0)
3190 S DUZ("LANG")=1
3191"RTN","C0CRICH",98,0)
3192 S IO="/dev/pts/0"
3193"RTN","C0CRICH",99,0)
3194 ;S IO(0)="/dev/pts/0"
3195"RTN","C0CRICH",100,0)
3196 ;S IO(1,"/dev/pts/0")=""
3197"RTN","C0CRICH",101,0)
3198 ;S IO("ERROR")=""
3199"RTN","C0CRICH",102,0)
3200 ;S IO("HOME")="50^/dev/pts/0"
3201"RTN","C0CRICH",103,0)
3202 ;S IO("ZIO")="/dev/pts/0"
3203"RTN","C0CRICH",104,0)
3204 ;S IOBS="$C(8)"
3205"RTN","C0CRICH",105,0)
3206 ;S IOF="!!!!!!!!!!!!!!!!!!!!!!!!,#,$C(27,91,50,74,27,91,72)"
3207"RTN","C0CRICH",106,0)
3208 ;S IOM=80
3209"RTN","C0CRICH",107,0)
3210 ;S ION="GTM/UNIX TELNET"
3211"RTN","C0CRICH",108,0)
3212 ;S IOS=50
3213"RTN","C0CRICH",109,0)
3214 ;S IOSL=24
3215"RTN","C0CRICH",110,0)
3216 ;S IOST="C-VT100"
3217"RTN","C0CRICH",111,0)
3218 ;S IOST(0)=9
3219"RTN","C0CRICH",112,0)
3220 ;S IOT="VTRM"
3221"RTN","C0CRICH",113,0)
3222 ;S IOXY="W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72)"
3223"RTN","C0CRICH",114,0)
3224 S U="^"
3225"RTN","C0CRICH",115,0)
3226 S X="1;DIC(4.2,"
3227"RTN","C0CRICH",116,0)
3228 S XPARSYS="1;DIC(4.2,"
3229"RTN","C0CRICH",117,0)
3230 S XQXFLG="^^XUP"
3231"RTN","C0CRICH",118,0)
3232 S Y="DEV^VISTA^hollywood^VISTA:hollywood"
3233"RTN","C0CRICH",119,0)
3234 Q
3235"RTN","C0CRICH",120,0)
3236 ;
3237"SEC","^DIC",70050,70050,0,"AUDIT")
3238@
3239"SEC","^DIC",70050,70050,0,"DD")
3240@
3241"SEC","^DIC",70050,70050,0,"DEL")
3242@
3243"SEC","^DIC",70050,70050,0,"LAYGO")
3244@
3245"SEC","^DIC",70050,70050,0,"RD")
3246@
3247"SEC","^DIC",70050,70050,0,"WR")
3248@
3249"VER")
32508.0^22.0
3251"^DD",70050,70050,0)
3252FIELD^^1^5
3253"^DD",70050,70050,0,"DDA")
3254N
3255"^DD",70050,70050,0,"DT")
32563100301
3257"^DD",70050,70050,0,"ID",.02)
3258W " ",$P(^(0),U,2)
3259"^DD",70050,70050,0,"ID",.03)
3260W " ",$P(^(0),U,3)
3261"^DD",70050,70050,0,"IX","B",70050,.01)
3262
3263"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
3264
3265"^DD",70050,70050,.01,0)
3266EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
3267"^DD",70050,70050,.01,1,0)
3268^.1
3269"^DD",70050,70050,.01,1,1,0)
327070050^B
3271"^DD",70050,70050,.01,1,1,1)
3272S ^C0E(70050,"B",$E(X,1,30),DA)=""
3273"^DD",70050,70050,.01,1,1,2)
3274K ^C0E(70050,"B",$E(X,1,30),DA)
3275"^DD",70050,70050,.01,3)
3276NAMESPACED EWD COMPILED PAGE
3277"^DD",70050,70050,.01,"DT")
32783100301
3279"^DD",70050,70050,.02,0)
3280EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
3281"^DD",70050,70050,.02,3)
3282NAME OF THE EWD APPLICATION
3283"^DD",70050,70050,.02,"DT")
32843100301
3285"^DD",70050,70050,.03,0)
3286EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
3287"^DD",70050,70050,.03,3)
3288EWD PAGE NAME
3289"^DD",70050,70050,.03,"DT")
32903100301
3291"^DD",70050,70050,1,0)
3292DESCRIPTION^70050.01^^2;0
3293"^DD",70050,70050,2,0)
3294EWD SOURCE^70050.02^^1;0
3295"^DD",70050,70050.01,0)
3296DESCRIPTION SUB-FIELD^^.01^1
3297"^DD",70050,70050.01,0,"DT")
32983100301
3299"^DD",70050,70050.01,0,"NM","DESCRIPTION")
3300
3301"^DD",70050,70050.01,0,"UP")
330270050
3303"^DD",70050,70050.01,.01,0)
3304DESCRIPTION^Wx^^0;1
3305"^DD",70050,70050.01,.01,3)
3306DESCRIPTION OF THE EWD PAGE
3307"^DD",70050,70050.01,.01,"DT")
33083100301
3309"^DD",70050,70050.02,0)
3310EWD SOURCE SUB-FIELD^^.01^1
3311"^DD",70050,70050.02,0,"DT")
33123100301
3313"^DD",70050,70050.02,0,"NM","EWD SOURCE")
3314
3315"^DD",70050,70050.02,0,"UP")
331670050
3317"^DD",70050,70050.02,.01,0)
3318EWD SOURCE^WLx^^0;1
3319"^DD",70050,70050.02,.01,3)
3320EWD PAGE SOURCE CODE
3321"^DD",70050,70050.02,.01,"DT")
33223100301
3323"^DIC",70050,70050,0)
3324C0EWD ROUTINE MAP^70050
3325"^DIC",70050,70050,0,"GL")
3326^C0E(70050,
3327"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
3328
3329**END**
3330**END**
Note: See TracBrowser for help on using the repository browser.