Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

C0E0_1_0_0_T1.KID@ 1150

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

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

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format