Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

C0CE0_1_0_0_T3.KID@ 1558

Last change on this file since 1558 was 1265, checked in by George Lilly, 13 years ago
old version of EWD fileman file and sample applications
File size: 104.3 KB

Line
1	KIDS Distribution saved on Mar 02, 2010@00:31:49
2	fixed index routine C0CEX
3	KIDS:C0CE01.00^
4
5	INSTALL NAME
6	C0CE01.00
7	"BLD",6968,0)
8	C0CE01.00^^0^3100302^n
9	"BLD",6968,4,0)
10	^9.64PA^70050^1
11	"BLD",6968,4,70050,0)
12	70050
13	"BLD",6968,4,70050,222)
14	y^y^f^^n^^y^o^n
15	"BLD",6968,4,"B",70050,70050)
16
17	"BLD",6968,6.3)
18	3
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)
28	C0CE0 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)
40	3.6
41	"BLD",6968,"KRN",3.8,0)
42	3.8
43	"BLD",6968,"KRN",9.2,0)
44	9.2
45	"BLD",6968,"KRN",9.8,0)
46	9.8
47	"BLD",6968,"KRN",9.8,"NM",0)
48	^9.68A^13^13
49	"BLD",6968,"KRN",9.8,"NM",1,0)
50	C0CEX^^0^B811998
51	"BLD",6968,"KRN",9.8,"NM",2,0)
52	C0CE001I^^0^B97883042
53	"BLD",6968,"KRN",9.8,"NM",3,0)
54	C0CE000A^^0^B14831539
55	"BLD",6968,"KRN",9.8,"NM",4,0)
56	C0CE000F^^0^B32715806
57	"BLD",6968,"KRN",9.8,"NM",5,0)
58	C0CE002^^0^B19002031
59	"BLD",6968,"KRN",9.8,"NM",6,0)
60	C0CE004^^0^B14016611
61	"BLD",6968,"KRN",9.8,"NM",7,0)
62	C0CE006^^0^B77594981
63	"BLD",6968,"KRN",9.8,"NM",8,0)
64	C0CE000E^^0^B27501668
65	"BLD",6968,"KRN",9.8,"NM",9,0)
66	C0CE000R^^0^B66701996
67	"BLD",6968,"KRN",9.8,"NM",10,0)
68	C0CE001L^^0^B51144421
69	"BLD",6968,"KRN",9.8,"NM",11,0)
70	C0CE003^^0^B16186512
71	"BLD",6968,"KRN",9.8,"NM",12,0)
72	C0CE005^^0^B80810317
73	"BLD",6968,"KRN",9.8,"NM",13,0)
74	C0CRICH^^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)
102	19
103	"BLD",6968,"KRN",19.1,0)
104	19.1
105	"BLD",6968,"KRN",101,0)
106	101
107	"BLD",6968,"KRN",409.61,0)
108	409.61
109	"BLD",6968,"KRN",771,0)
110	771
111	"BLD",6968,"KRN",870,0)
112	870
113	"BLD",6968,"KRN",8989.51,0)
114	8989.51
115	"BLD",6968,"KRN",8989.52,0)
116	8989.52
117	"BLD",6968,"KRN",8994,0)
118	8994
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)
158	23394^patientportal^ewdajaxerror
159	"DATA",70050,2,0)
160	23397^patientportal^ewderrorredirect
161	"DATA",70050,3,0)
162	23399^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)
222	23395^patientportal^ewderror
223	"DATA",70050,5,0)
224	23398^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)
260	23396^patientportal^ewdajaxerrorredirect
261	"DATA",70050,7,0)
262	23401^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)
276	23402^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)
286	hello world
287	"DATA",70050,8,1,5,0)
288	</body>
289	"DATA",70050,8,1,6,0)
290	</html>
291	"DATA",70050,9,0)
292	23400^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)
300	Login Form will go here
301	"DATA",70050,9,1,4,0)
302	</yui:Dialog>
303	"DATA",70050,10,0)
304	23403^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)
312	23404^patientportal^Second
313	"DATA",70050,12,0)
314	23407^screenman^ewdajaxerror
315	"DATA",70050,13,0)
316	23408^screenman^ewdajaxerrorredirect
317	"DATA",70050,14,0)
318	23409^screenman^ewderror
319	"DATA",70050,15,0)
320	23410^screenman^ewderrorredirect
321	"DATA",70050,16,0)
322	23411^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)
338	Hello 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)
346	23412^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)
358	function ValidateTitle(value) {
359	"DATA",70050,17,1,6,0)
360	ewd: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)
378	NAME: <?= #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)
384	TITLE: <input type="text" name="TITLE" value="*"
385	"DATA",70050,17,1,19,0)
386	onchange="ValidateTitle(this.value)" /><br><br>
387	"DATA",70050,17,1,20,0)
388	SSN: <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)
392	nextpage="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)
400	C0EWD ROUTINE MAP
401	"FIA",70050,0)
402	^C0E(70050,
403	"FIA",70050,0,0)
404	70050PI
405	"FIA",70050,0,1)
406	y^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)
414	0
415	"FIA",70050,70050.01)
416	0
417	"FIA",70050,70050.02)
418	0
419	"IX",70050,70050,"AZEWD",0)
420	70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
421	"IX",70050,70050,"AZEWD",1)
422	D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
423	"IX",70050,70050,"AZEWD",2)
424	D 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)
428	1^F^70050^.01^^^F
429	"IX",70050,70050,"AZEWD",11.1,2,0)
430	2^F^70050^.02^^^F
431	"IX",70050,70050,"AZEWD",11.1,3,0)
432	3^F^70050^.03^^^F
433	"IX",70050,70050,"C",0)
434	70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
435	"IX",70050,70050,"C",1)
436	S ^C0E(70050,"C",$E(X,1,60),DA)=""
437	"IX",70050,70050,"C",2)
438	K ^C0E(70050,"C",$E(X,1,60),DA)
439	"IX",70050,70050,"C",2.5)
440	K ^C0E(70050,"C")
441	"IX",70050,70050,"C",11.1,0)
442	^.114IA^1^1
443	"IX",70050,70050,"C",11.1,1,0)
444	1^F^70050^.03^60^1^F
445	"IX",70050,70050,"C",11.1,1,3)
446
447	"KRN",.401,1795,-1)
448	0^1
449	"KRN",.401,1795,0)
450	C0CE0 PATIENT PORTAL^3100302.0028^@^70050^^@^3100302
451	"KRN",.401,1795,2,0)
452	^.4014^1^1
453	"KRN",.401,1795,2,1,0)
454	70050^.02^EWD APPLICATION^^^^^^^4
455	"KRN",.401,1795,2,1,"F")
456	patientportakz^patientportal
457	"KRN",.401,1795,2,1,"GET")
458	S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
459	"KRN",.401,1795,2,1,"QCON")
460	I DISX(1)="patientportal"
461	"KRN",.401,1795,2,1,"T")
462	patientportal^patientportal
463	"KRN",.401,1795,2,1,"TXT")
464	EWD APPLICATION equals patientportal
465	"KRN",.401,1795,2,"B",70050,1)
466
467	"MBREQ")
468	0
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)
472	SORT TEMPLATE
473	"QUES","XPF1",0)
474	Y
475	"QUES","XPF1","??")
476	^D REP^XPDH
477	"QUES","XPF1","A")
478	Shall I write over your \|FLAG\| File
479	"QUES","XPF1","B")
480	YES
481	"QUES","XPF1","M")
482	D XPF1^XPDIQ
483	"QUES","XPF2",0)
484	Y
485	"QUES","XPF2","??")
486	^D DTA^XPDH
487	"QUES","XPF2","A")
488	Want my data \|FLAG\| yours
489	"QUES","XPF2","B")
490	YES
491	"QUES","XPF2","M")
492	D XPF2^XPDIQ
493	"QUES","XPI1",0)
494	YO
495	"QUES","XPI1","??")
496	^D INHIBIT^XPDH
497	"QUES","XPI1","A")
498	Want KIDS to INHIBIT LOGONs during the install
499	"QUES","XPI1","B")
500	NO
501	"QUES","XPI1","M")
502	D XPI1^XPDIQ
503	"QUES","XPM1",0)
504	PO^VA(200,:EM
505	"QUES","XPM1","??")
506	^D MG^XPDH
507	"QUES","XPM1","A")
508	Enter the Coordinator for Mail Group '\|FLAG\|'
509	"QUES","XPM1","B")
510
511	"QUES","XPM1","M")
512	D XPM1^XPDIQ
513	"QUES","XPO1",0)
514	Y
515	"QUES","XPO1","??")
516	^D MENU^XPDH
517	"QUES","XPO1","A")
518	Want KIDS to Rebuild Menu Trees Upon Completion of Install
519	"QUES","XPO1","B")
520	NO
521	"QUES","XPO1","M")
522	D XPO1^XPDIQ
523	"QUES","XPZ1",0)
524	Y
525	"QUES","XPZ1","??")
526	^D OPT^XPDH
527	"QUES","XPZ1","A")
528	Want to DISABLE Scheduled Options, Menu Options, and Protocols
529	"QUES","XPZ1","B")
530	NO
531	"QUES","XPZ1","M")
532	D XPZ1^XPDIQ
533	"QUES","XPZ2",0)
534	Y
535	"QUES","XPZ2","??")
536	^D RTN^XPDH
537	"QUES","XPZ2","A")
538	Want to MOVE routines to other CPUs
539	"QUES","XPZ2","B")
540	NO
541	"QUES","XPZ2","M")
542	D XPZ2^XPDIQ
543	"RTN")
544	13
545	"RTN","C0CE000A")
546	0^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)
558	run ;
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)
570	pre() ;
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)
682	body ;
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")
692	0^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)
704	run ;
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)
716	pre() ;
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)
732	body ;
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""> © 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")
824	0^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)
836	run ;
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)
848	pre() ;
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)
964	body ;
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")
1010	0^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)
1022	run ;
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)
1034	pre() ;
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)
1154	body ;
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")
1282	0^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)
1294	run ;
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)
1306	pre() ;
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)
1442	body ;
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")
1632	0^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)
1644	run ;
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)
1656	pre() ;
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)
1770	body ;
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")
1872	0^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)
1884	run ;
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)
1896	pre() ;
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)
2016	body ;
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")
2050	0^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)
2062	run ;
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)
2074	pre() ;
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)
2186	body ;
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")
2200	0^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)
2212	run ;
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)
2224	pre() ;
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)
2336	body ;
2337	"RTN","C0CE004",69,0)
2338	d gpltest^C0CRICH("")
2339	"RTN","C0CE004",70,0)
2340	QUIT
2341	"RTN","C0CE005")
2342	0^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)
2354	run ;
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)
2366	pre() ;
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)
2490	body ;
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")
2652	0^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)
2664	run ;
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)
2676	pre() ;
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)
2798	body ;
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")
2958	0^1^B811998
2959	"RTN","C0CEX",1,0)
2960	C0CEX ; 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)
2964	SETZEWD(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)
2984	KILLZEWD(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")
2996	0^13^B5114262
2997	"RTN","C0CRICH",1,0)
2998	C0CRICH ; 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)
3002	gpltest2 ; 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)
3036	gpltest ; 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)
3052	TEST(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)
3070	PARSE(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)
3086	TEST2(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)
3122	PSEUDO
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)
3168	PSEUDO2 ; 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")
3250	8.0^22.0
3251	"^DD",70050,70050,0)
3252	FIELD^^1^5
3253	"^DD",70050,70050,0,"DDA")
3254	N
3255	"^DD",70050,70050,0,"DT")
3256	3100301
3257	"^DD",70050,70050,0,"ID",.02)
3258	W " ",$P(^(0),U,2)
3259	"^DD",70050,70050,0,"ID",.03)
3260	W " ",$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)
3266	EWD 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)
3270	70050^B
3271	"^DD",70050,70050,.01,1,1,1)
3272	S ^C0E(70050,"B",$E(X,1,30),DA)=""
3273	"^DD",70050,70050,.01,1,1,2)
3274	K ^C0E(70050,"B",$E(X,1,30),DA)
3275	"^DD",70050,70050,.01,3)
3276	NAMESPACED EWD COMPILED PAGE
3277	"^DD",70050,70050,.01,"DT")
3278	3100301
3279	"^DD",70050,70050,.02,0)
3280	EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
3281	"^DD",70050,70050,.02,3)
3282	NAME OF THE EWD APPLICATION
3283	"^DD",70050,70050,.02,"DT")
3284	3100301
3285	"^DD",70050,70050,.03,0)
3286	EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
3287	"^DD",70050,70050,.03,3)
3288	EWD PAGE NAME
3289	"^DD",70050,70050,.03,"DT")
3290	3100301
3291	"^DD",70050,70050,1,0)
3292	DESCRIPTION^70050.01^^2;0
3293	"^DD",70050,70050,2,0)
3294	EWD SOURCE^70050.02^^1;0
3295	"^DD",70050,70050.01,0)
3296	DESCRIPTION SUB-FIELD^^.01^1
3297	"^DD",70050,70050.01,0,"DT")
3298	3100301
3299	"^DD",70050,70050.01,0,"NM","DESCRIPTION")
3300
3301	"^DD",70050,70050.01,0,"UP")
3302	70050
3303	"^DD",70050,70050.01,.01,0)
3304	DESCRIPTION^Wx^^0;1
3305	"^DD",70050,70050.01,.01,3)
3306	DESCRIPTION OF THE EWD PAGE
3307	"^DD",70050,70050.01,.01,"DT")
3308	3100301
3309	"^DD",70050,70050.02,0)
3310	EWD SOURCE SUB-FIELD^^.01^1
3311	"^DD",70050,70050.02,0,"DT")
3312	3100301
3313	"^DD",70050,70050.02,0,"NM","EWD SOURCE")
3314
3315	"^DD",70050,70050.02,0,"UP")
3316	70050
3317	"^DD",70050,70050.02,.01,0)
3318	EWD SOURCE^WLx^^0;1
3319	"^DD",70050,70050.02,.01,3)
3320	EWD PAGE SOURCE CODE
3321	"^DD",70050,70050.02,.01,"DT")
3322	3100301
3323	"^DIC",70050,70050,0)
3324	C0EWD 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.

Download in other formats:

Original Format