Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

C0CE0_1_0_0_T3.KID@ 819

Last change on this file since 819 was 722, checked in by George Lilly, 15 years ago
updated EWD demo applications
File size: 104.3 KB

Rev	Line
[722]	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