Index: EWD/archive/C0CE000A.m
===================================================================
--- EWD/archive/C0CE000A.m (revision 1265)
+++ EWD/archive/C0CE000A.m (revision 1265)
@@ -0,0 +1,72 @@
+ ;GT.M version of page ewdAjaxError (patientportal application)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44
+ ;using Enterprise Web Developer (Build 790)
+ QUIT
+ ;
+run ;
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+ s ok=$$pre()
+ i ok d body
+ QUIT
+ ;
+pre() ;
+ ;
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+ ;
+ s confirmText="Click OK if you're sure you want to delete this record"
+ s sessionArray("ewd_isFirstPage")="1"
+ s sessionArray("ewd_sessid_timeout")="1200"
+ s sessionArray("ewd_prePageScript")=""
+ s sessionArray("ewd_default_timeout")="1200"
+ s sessionArray("ewd_persistRequest")="true"
+ s sessionArray("ewd_pageTitle")=""
+ s sessionArray("ewd_errorPage")="ewdError"
+ s sessionArray("ewd_templatePrePageScript")=""
+ s sessionArray("ewd_onErrorScript")=""
+ s sessionArray("ewd_appName")="patientportal"
+ s sessionArray("ewd_pageName")="ewdAjaxError"
+ s sessionArray("ewd_translationMode")="0"
+ s sessionArray("ewd_technology")="gtm"
+ s sessionArray("ewd_pageType")=""
+ s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+ s sessid=$g(sessionArray("ewd_sessid"))
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+ . s Error=$p(Error,":",2,200)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+ . s Error="EWD runtime error: "_Error
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+ . n errorPage
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+ . i errorPage="" s errorPage="ewdError"
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+ s stop=0
+ i Error="" d i stop QUIT 0
+ . n nextpage
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+ . i nextpage'="" d
+ . . n x
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+ . . s stop=1
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+ s ctype="text/html"
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+ i $d(headers) d
+ . n lcname,name
+ . s name=""
+ . f s name=$o(headers(name)) q:name="" d
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+ . . i lcname="content-type" s ctype=headers(name) q
+ . . w name_": "_headers(name)_$c(13,10)
+ w "Content-type: "_ctype_$c(13,10)
+ w $c(13,10)
+ QUIT 1
+ ;
+body ;
+ w ""_$c(13,10)
+ w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
+ w ""_$c(13,10)
+ QUIT
Index: EWD/archive/C0CE000E.m
===================================================================
--- EWD/archive/C0CE000E.m (revision 1265)
+++ EWD/archive/C0CE000E.m (revision 1265)
@@ -0,0 +1,65 @@
+ ;GT.M version of page ewdError (patientportal application)
+ ;Compiled on Mon, 01 Mar 2010 17:10:45
+ ;using Enterprise Web Developer (Build 790)
+ QUIT
+ ;
+run ;
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+ s ok=$$pre()
+ i ok d body
+ QUIT
+ ;
+pre() ;
+ ;
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+ ;
+ w "HTTP/1.1 200 OK"_$c(13,10)
+ w "Content-type: text/html"_$c(13,10,13,10)
+ QUIT 1
+ ;
+body ;
+ w ""_$c(13,10)
+ w ""_$c(13,10)
+ w ""_$c(13,10)
+ w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
+ w ""_$c(13,10)
+ w ""_$c(13,10)
+ w ""_$c(13,10)
+ w ""_$c(13,10)
+ w "
"_$c(13,10)
+ w "
"_$c(13,10)
+ w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
+ w "
"_$c(13,10)
+ w ""_$c(13,10)
+ w "
"_$c(13,10)
+ w "
"_$c(13,10)
+ w "
An Error has occurred
"_$c(13,10)
+ w " "_$c(13,10)
+ w "
"_$g(%KEY("error"))_"
"_$c(13,10)
+ w "
"_$c(13,10)
+ w "
"_$c(13,10)
+ w "
"_$c(13,10)
+ w ""_$c(13,10)
+ w " "_$c(13,10)
+ w ""_$c(13,10)
+ w ""_$c(13,10)
+ QUIT
Index: EWD/archive/C0CE000F.m
===================================================================
--- EWD/archive/C0CE000F.m (revision 1265)
+++ EWD/archive/C0CE000F.m (revision 1265)
@@ -0,0 +1,92 @@
+ ;GT.M version of page ewdAjaxErrorRedirect (patientportal application)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44
+ ;using Enterprise Web Developer (Build 790)
+ QUIT
+ ;
+run ;
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+ s ok=$$pre()
+ i ok d body
+ QUIT
+ ;
+pre() ;
+ ;
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+ ;
+ s confirmText="Click OK if you're sure you want to delete this record"
+ s sessionArray("ewd_isFirstPage")="0"
+ s sessionArray("ewd_sessid_timeout")="1200"
+ s sessionArray("ewd_prePageScript")=""
+ s sessionArray("ewd_default_timeout")="1200"
+ s sessionArray("ewd_persistRequest")="true"
+ s sessionArray("ewd_pageTitle")=""
+ s sessionArray("ewd_errorPage")="ewdError"
+ s sessionArray("ewd_templatePrePageScript")=""
+ s sessionArray("ewd_onErrorScript")=""
+ s sessionArray("ewd_appName")="patientportal"
+ s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
+ s sessionArray("ewd_translationMode")="0"
+ s sessionArray("ewd_technology")="gtm"
+ s sessionArray("ewd_pageType")="ajax"
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+ s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
+ s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+ s sessid=$g(sessionArray("ewd_sessid"))
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+ . s Error=$p(Error,":",2,200)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+ . s Error="EWD runtime error: "_Error
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+ . n errorPage
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+ . i errorPage="" s errorPage="ewdError"
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+ s stop=0
+ i Error="" d i stop QUIT 0
+ . n nextpage
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+ . i nextpage'="" d
+ . . n x
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+ . . s stop=1
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+ s ctype="text/html"
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+ i $d(headers) d
+ . n lcname,name
+ . s name=""
+ . f s name=$o(headers(name)) q:name="" d
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+ . . i lcname="content-type" s ctype=headers(name) q
+ . . w name_": "_headers(name)_$c(13,10)
+ w "Content-type: "_ctype_$c(13,10)
+ w $c(13,10)
+ QUIT 1
+ ;
+body ;
+ if ($g(Error)="") d
+ .w " "_$c(13,10)
+ .w "
"_$c(13,10)
+ .w "
"_$c(13,10)
+ .w " "_$c(13,10)
+ .
+ w ""_$c(13,10)
+ 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)
+ s id=""
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+ . w "idPointer = document.getElementById('"_id_"') ; "
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+ s id=""
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+ . w "idPointer = document.getElementById('"_id_"') ; "
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+ k ^%zewdSession("session","ewd_hasErrors")
+ k ^%zewdSession("session","ewd_errorFields")
+ k ^%zewdSession("session","ewd_idList")
+ w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
+ w ""_$c(13,10)
+ QUIT
Index: EWD/archive/C0CE000R.m
===================================================================
--- EWD/archive/C0CE000R.m (revision 1265)
+++ EWD/archive/C0CE000R.m (revision 1265)
@@ -0,0 +1,135 @@
+ ;GT.M version of page ewdErrorRedirect (patientportal application)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44
+ ;using Enterprise Web Developer (Build 790)
+ QUIT
+ ;
+run ;
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+ s ok=$$pre()
+ i ok d body
+ QUIT
+ ;
+pre() ;
+ ;
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+ ;
+ s confirmText="Click OK if you're sure you want to delete this record"
+ s sessionArray("ewd_isFirstPage")="0"
+ s sessionArray("ewd_sessid_timeout")="1200"
+ s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
+ s sessionArray("ewd_default_timeout")="1200"
+ s sessionArray("ewd_persistRequest")="true"
+ s sessionArray("ewd_pageTitle")=""
+ s sessionArray("ewd_errorPage")="ewdError"
+ s sessionArray("ewd_templatePrePageScript")=""
+ s sessionArray("ewd_onErrorScript")=""
+ s sessionArray("ewd_appName")="patientportal"
+ s sessionArray("ewd_pageName")="ewdErrorRedirect"
+ s sessionArray("ewd_translationMode")="0"
+ s sessionArray("ewd_technology")="gtm"
+ s sessionArray("ewd_pageType")=""
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+ s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+ s sessid=$g(sessionArray("ewd_sessid"))
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+ . s Error=$p(Error,":",2,200)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+ . s Error="EWD runtime error: "_Error
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+ . n errorPage
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+ . i errorPage="" s errorPage="ewdError"
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+ s stop=0
+ i Error="" d i stop QUIT 0
+ . n nextpage
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+ . i nextpage'="" d
+ . . n x
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+ . . s stop=1
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+ s ctype="text/html"
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+ i $d(headers) d
+ . n lcname,name
+ . s name=""
+ . f s name=$o(headers(name)) q:name="" d
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+ . . i lcname="content-type" s ctype=headers(name) q
+ . . w name_": "_headers(name)_$c(13,10)
+ w "Content-type: "_ctype_$c(13,10)
+ w $c(13,10)
+ QUIT 1
+ ;
+body ;
+ w ""_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w "Ajax Error Redirect page"_""
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w "Please wait...."_""
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w ""_$c(13,10)
+ QUIT
Index: EWD/archive/C0CE000S.m
===================================================================
--- EWD/archive/C0CE000S.m (revision 1265)
+++ EWD/archive/C0CE000S.m (revision 1265)
@@ -0,0 +1,152 @@
+ ;GT.M version of page session (patientportal application)
+ ;Compiled on Mon, 01 Mar 2010 17:10:45
+ ;using Enterprise Web Developer (Build 790)
+ QUIT
+ ;
+run ;
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+ s ok=$$pre()
+ i ok d body
+ QUIT
+ ;
+pre() ;
+ ;
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+ ;
+ s confirmText="Click OK if you're sure you want to delete this record"
+ s sessionArray("ewd_isFirstPage")="0"
+ s sessionArray("ewd_sessid_timeout")="1200"
+ s sessionArray("ewd_prePageScript")="TEST^C0CRICH"
+ s sessionArray("ewd_default_timeout")="1200"
+ s sessionArray("ewd_persistRequest")="true"
+ s sessionArray("ewd_pageTitle")=""
+ s sessionArray("ewd_errorPage")="ewdError"
+ s sessionArray("ewd_templatePrePageScript")=""
+ s sessionArray("ewd_onErrorScript")=""
+ s sessionArray("ewd_appName")="patientportal"
+ s sessionArray("ewd_pageName")="session"
+ s sessionArray("ewd_translationMode")="0"
+ s sessionArray("ewd_technology")="gtm"
+ s sessionArray("ewd_pageType")=""
+ s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+ s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+ s sessid=$g(sessionArray("ewd_sessid"))
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+ . s Error=$p(Error,":",2,200)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+ . s Error="EWD runtime error: "_Error
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+ . n errorPage
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+ . i errorPage="" s errorPage="ewdError"
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+ s stop=0
+ i Error="" d i stop QUIT 0
+ . n nextpage
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+ . i nextpage'="" d
+ . . n x
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+ . . s stop=1
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+ s ctype="text/html"
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+ i $d(headers) d
+ . n lcname,name
+ . s name=""
+ . f s name=$o(headers(name)) q:name="" d
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+ . . i lcname="content-type" s ctype=headers(name) q
+ . . w name_": "_headers(name)_$c(13,10)
+ w "Content-type: "_ctype_$c(13,10)
+ w $c(13,10)
+ QUIT 1
+ ;
+body ;
+ w ""_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w "EWD Page using Session Variables and a PrePage Script"_""
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w "
"_$c(13,10)
+ w "This page accesses EWD Session Variables"_""
+ w "
"_$c(13,10)
+ w "
"_$c(13,10)
+ w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
+ w "
"_$c(13,10)
+ w " "_$c(13,10)
+ w ""_$c(13,10)
+ QUIT
Index: EWD/archive/C0CE001I.m
===================================================================
--- EWD/archive/C0CE001I.m (revision 1265)
+++ EWD/archive/C0CE001I.m (revision 1265)
@@ -0,0 +1,174 @@
+ ;GT.M version of page index (patientportal application)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44
+ ;using Enterprise Web Developer (Build 790)
+ QUIT
+ ;
+run ;
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+ s ok=$$pre()
+ i ok d body
+ QUIT
+ ;
+pre() ;
+ ;
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+ ;
+ s confirmText="Click OK if you're sure you want to delete this record"
+ s sessionArray("ewd_isFirstPage")="1"
+ s sessionArray("ewd_sessid_timeout")="1200"
+ s sessionArray("ewd_prePageScript")=""
+ s sessionArray("ewd_default_timeout")="1200"
+ s sessionArray("ewd_persistRequest")="true"
+ s sessionArray("ewd_pageTitle")=""
+ s sessionArray("ewd_errorPage")="ewdError"
+ s sessionArray("ewd_templatePrePageScript")=""
+ s sessionArray("ewd_onErrorScript")=""
+ s sessionArray("ewd_appName")="patientportal"
+ s sessionArray("ewd_pageName")="index"
+ s sessionArray("ewd_translationMode")="0"
+ s sessionArray("ewd_technology")="gtm"
+ s sessionArray("ewd_header","Expires")=0
+ s sessionArray("ewd_header","Cache-Control")="no-cache"
+ s sessionArray("ewd_header","Pragma")="no-cache"
+ s sessionArray("ewd_pageType")=""
+ s tokens("ccr")=$$setNextPageToken^%zewdGTMRuntime("ccr")
+ s tokens("ccr2")=$$setNextPageToken^%zewdGTMRuntime("ccr2")
+ s tokens("ccrexe")=$$setNextPageToken^%zewdGTMRuntime("ccrexe")
+ s tokens("loginPanel")=$$setNextPageToken^%zewdGTMRuntime("loginPanel")
+ s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+ s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+ s sessid=$g(sessionArray("ewd_sessid"))
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+ . s Error=$p(Error,":",2,200)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+ . s Error="EWD runtime error: "_Error
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+ . n errorPage
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+ . i errorPage="" s errorPage="ewdError"
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+ s stop=0
+ i Error="" d i stop QUIT 0
+ . n nextpage
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+ . i nextpage'="" d
+ . . n x
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+ . . s stop=1
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+ s ctype="text/html"
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+ i $d(headers) d
+ . n lcname,name
+ . s name=""
+ . f s name=$o(headers(name)) q:name="" d
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+ . . i lcname="content-type" s ctype=headers(name) q
+ . . w name_": "_headers(name)_$c(13,10)
+ w "Content-type: "_ctype_$c(13,10)
+ w $c(13,10)
+ QUIT 1
+ ;
+body ;
+ w ""_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w "The start EWD Page"_""
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w "
"_$c(13,10)
+ w "This page is the first page in this application"_""
+ w "
"_$c(13,10)
+ w " "_$c(13,10)
+ w ""_$c(13,10)
+ QUIT
Index: EWD/archive/C0CE001L.m
===================================================================
--- EWD/archive/C0CE001L.m (revision 1265)
+++ EWD/archive/C0CE001L.m (revision 1265)
@@ -0,0 +1,119 @@
+ ;GT.M version of page loginPanel (patientportal application)
+ ;Compiled on Mon, 01 Mar 2010 17:10:45
+ ;using Enterprise Web Developer (Build 790)
+ QUIT
+ ;
+run ;
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+ s ok=$$pre()
+ i ok d body
+ QUIT
+ ;
+pre() ;
+ ;
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+ ;
+ s confirmText="Click OK if you're sure you want to delete this record"
+ s sessionArray("ewd_isFirstPage")="0"
+ s sessionArray("ewd_sessid_timeout")="1200"
+ s sessionArray("ewd_prePageScript")=""
+ s sessionArray("ewd_default_timeout")="1200"
+ s sessionArray("ewd_persistRequest")="true"
+ s sessionArray("ewd_pageTitle")=""
+ s sessionArray("ewd_errorPage")="ewdError"
+ s sessionArray("ewd_templatePrePageScript")=""
+ s sessionArray("ewd_onErrorScript")=""
+ s sessionArray("ewd_appName")="patientportal"
+ s sessionArray("ewd_pageName")="loginPanel"
+ s sessionArray("ewd_translationMode")="0"
+ s sessionArray("ewd_technology")="gtm"
+ s sessionArray("ewd_pageType")="ajax"
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+ s Error=$$startSession^%zewdPHP("loginPanel",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+ s sessid=$g(sessionArray("ewd_sessid"))
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+ . s Error=$p(Error,":",2,200)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+ . s Error="EWD runtime error: "_Error
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+ . n errorPage
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+ . i errorPage="" s errorPage="ewdError"
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+ s stop=0
+ i Error="" d i stop QUIT 0
+ . n nextpage
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+ . i nextpage'="" d
+ . . n x
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+ . . s stop=1
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+ s ctype="text/html"
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+ i $d(headers) d
+ . n lcname,name
+ . s name=""
+ . f s name=$o(headers(name)) q:name="" d
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+ . . i lcname="content-type" s ctype=headers(name) q
+ . . w name_": "_headers(name)_$c(13,10)
+ w "Content-type: "_ctype_$c(13,10)
+ w $c(13,10)
+ QUIT 1
+ ;
+body ;
+ if ($g(Error)="") d
+ .w "
"_$c(13,10)
+ .w "EWD.page.yuiResourcePath = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
+ .w "if (EWD.page.yuiResourcePath == '') {"_""
+ .w " alert('Unable to determine path to YUI resource file. Did you run d install^%zewdYUIConf()?') ;"_""
+ .w "}"_""
+ .w "EWD.page.loadResource("""_$$getSessionValue^%zewdAPI("yui.resourceLoaderPath",sessid)_$$getSessionValue^%zewdAPI("yui.resourceLoader",sessid)_""",""js"") ;"_""
+ .w "if (!EWD.yui) alert('YUI Javascript resource file ewdYUIResources.js was not found in the web server root path');"_""
+ .w "if (!EWD.yui.build) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You must be using build 790');"_""
+ .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');"_""
+ .w "EWD.yui.version = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
+ .w "EWD.yui.resourceLoader.Dialog() ;"_""
+ .w "document.getElementsByTagName('body')[0].className = 'yui-skin-sam' ;"_""
+ .w "var fReturnloginPanel7=function() {"_""
+ .w "EWD.yui.widgetIndex[""yuiDialogRegloginPanel7""]={widgetName:""loginPanel7"",tagId:""yuiDialogDivloginPanel7""};"_""
+ .w "EWD.yui.moveDialogToBody('yuiDialogDivloginPanel7');"_""
+ .w "EWD.yui.widget.loginPanel7=new YAHOO.widget.Dialog(""yuiDialogDivloginPanel7"",{iframe:true,width:""270px"",x:150,y:100});"_""
+ .w "EWD.yui.widget.loginPanel7.render();"_""
+ .w "};"_""
+ .w "YAHOO.util.Event.onAvailable(""yuiDialogDivloginPanel7"",fReturnloginPanel7);"_""
+ .w "
"_$c(13,10)
+ .w "
"_$c(13,10)
+ .w "
"_$c(13,10)
+ .w "
"_$c(13,10)
+ .w "Login"_""
+ .w "
"_$c(13,10)
+ .w "
"_$c(13,10)
+ .w "Login Form will go here"_""
+ .w "
"_$c(13,10)
+ .w "
"_$c(13,10)
+ .w "
"_$c(13,10)
+ .w "
"_$c(13,10)
+ .w "
"_$c(13,10)
+ .
+ w ""_$c(13,10)
+ 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)
+ s id=""
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+ . w "idPointer = document.getElementById('"_id_"') ; "
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+ s id=""
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+ . w "idPointer = document.getElementById('"_id_"') ; "
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+ k ^%zewdSession("session","ewd_hasErrors")
+ k ^%zewdSession("session","ewd_errorFields")
+ k ^%zewdSession("session","ewd_idList")
+ w " }"_""
+ w ""_$c(13,10)
+ QUIT
Index: EWD/archive/C0CE002.m
===================================================================
--- EWD/archive/C0CE002.m (revision 1265)
+++ EWD/archive/C0CE002.m (revision 1265)
@@ -0,0 +1,88 @@
+ ;GT.M version of page ccr (patientportal application)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44
+ ;using Enterprise Web Developer (Build 790)
+ QUIT
+ ;
+run ;
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+ s ok=$$pre()
+ i ok d body
+ QUIT
+ ;
+pre() ;
+ ;
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+ ;
+ s confirmText="Click OK if you're sure you want to delete this record"
+ s sessionArray("ewd_isFirstPage")="0"
+ s sessionArray("ewd_sessid_timeout")="1200"
+ s sessionArray("ewd_prePageScript")="TEST2^C0CRICH"
+ s sessionArray("ewd_default_timeout")="1200"
+ s sessionArray("ewd_persistRequest")="true"
+ s sessionArray("ewd_pageTitle")=""
+ s sessionArray("ewd_errorPage")="ewdError"
+ s sessionArray("ewd_templatePrePageScript")=""
+ s sessionArray("ewd_onErrorScript")=""
+ s sessionArray("ewd_appName")="patientportal"
+ s sessionArray("ewd_pageName")="ccr"
+ s sessionArray("ewd_translationMode")="0"
+ s sessionArray("ewd_technology")="gtm"
+ s sessionArray("ewd_pageType")=""
+ s Error=$$startSession^%zewdPHP("ccr",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+ s sessid=$g(sessionArray("ewd_sessid"))
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+ s headers("Content-type")="text/xml"
+ d mergeArrayToSession^%zewdAPI(.headers,"ewd.header",sessid)
+ k headers
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+ . s Error=$p(Error,":",2,200)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+ . s Error="EWD runtime error: "_Error
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+ . n errorPage
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+ . i errorPage="" s errorPage="ewdError"
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+ s stop=0
+ i Error="" d i stop QUIT 0
+ . n nextpage
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+ . i nextpage'="" d
+ . . n x
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+ . . s stop=1
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+ s ctype="text/html"
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+ i $d(headers) d
+ . n lcname,name
+ . s name=""
+ . f s name=$o(headers(name)) q:name="" d
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+ . . i lcname="content-type" s ctype=headers(name) q
+ . . w name_": "_headers(name)_$c(13,10)
+ w "Content-type: "_ctype_$c(13,10)
+ w $c(13,10)
+ QUIT 1
+ ;
+body ;
+ s no=""
+ i no?1N.N s no=no-1
+ i no?1AP.ANP d
+ . s p1=$e(no,1,$l(no)-1)
+ . s p2=$e(no,$l(no))
+ . s p2=$c($a(p2)-1)
+ . s no=p1_p2
+ s nul=""
+ s endValue12=""
+ i endValue12?1N.N s endValue12=endValue12+1
+ f q:'(($o(^%zewdSession("session",sessid,"CCR",no))'=endValue12)&($o(^%zewdSession("session",sessid,"CCR",no))'=nul)) d
+ .s no=$o(^%zewdSession("session",sessid,"CCR",no))
+ .s data=$g(^%zewdSession("session",sessid,"CCR",no))
+ .w data
+ .
+ QUIT
Index: EWD/archive/C0CE003.m
===================================================================
--- EWD/archive/C0CE003.m (revision 1265)
+++ EWD/archive/C0CE003.m (revision 1265)
@@ -0,0 +1,74 @@
+ ;GT.M version of page ccr2 (patientportal application)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44
+ ;using Enterprise Web Developer (Build 790)
+ QUIT
+ ;
+run ;
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+ s ok=$$pre()
+ i ok d body
+ QUIT
+ ;
+pre() ;
+ ;
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+ ;
+ s confirmText="Click OK if you're sure you want to delete this record"
+ s sessionArray("ewd_isFirstPage")="0"
+ s sessionArray("ewd_sessid_timeout")="1200"
+ s sessionArray("ewd_prePageScript")=""
+ s sessionArray("ewd_default_timeout")="1200"
+ s sessionArray("ewd_persistRequest")="true"
+ s sessionArray("ewd_pageTitle")=""
+ s sessionArray("ewd_errorPage")="ewdError"
+ s sessionArray("ewd_templatePrePageScript")=""
+ s sessionArray("ewd_onErrorScript")=""
+ s sessionArray("ewd_appName")="patientportal"
+ s sessionArray("ewd_pageName")="ccr2"
+ s sessionArray("ewd_translationMode")="0"
+ s sessionArray("ewd_technology")="gtm"
+ s sessionArray("ewd_pageType")=""
+ s Error=$$startSession^%zewdPHP("ccr2",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+ s sessid=$g(sessionArray("ewd_sessid"))
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+ . s Error=$p(Error,":",2,200)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+ . s Error="EWD runtime error: "_Error
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+ . n errorPage
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+ . i errorPage="" s errorPage="ewdError"
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+ s stop=0
+ i Error="" d i stop QUIT 0
+ . n nextpage
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+ . i nextpage'="" d
+ . . n x
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+ . . s stop=1
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+ s ctype="text/html"
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+ i $d(headers) d
+ . n lcname,name
+ . s name=""
+ . f s name=$o(headers(name)) q:name="" d
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+ . . i lcname="content-type" s ctype=headers(name) q
+ . . w name_": "_headers(name)_$c(13,10)
+ w "Content-type: "_ctype_$c(13,10)
+ w $c(13,10)
+ QUIT 1
+ ;
+body ;
+ w ""_$c(13,10)
+ w " "_$c(13,10)
+ w "hello world"_""
+ w " "_$c(13,10)
+ w ""_$c(13,10)
+ QUIT
Index: EWD/archive/C0CE004.m
===================================================================
--- EWD/archive/C0CE004.m (revision 1265)
+++ EWD/archive/C0CE004.m (revision 1265)
@@ -0,0 +1,70 @@
+ ;GT.M version of page ccr-exe (patientportal application)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44
+ ;using Enterprise Web Developer (Build 790)
+ QUIT
+ ;
+run ;
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+ s ok=$$pre()
+ i ok d body
+ QUIT
+ ;
+pre() ;
+ ;
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+ ;
+ s confirmText="Click OK if you're sure you want to delete this record"
+ s sessionArray("ewd_isFirstPage")="0"
+ s sessionArray("ewd_sessid_timeout")="1200"
+ s sessionArray("ewd_prePageScript")=""
+ s sessionArray("ewd_default_timeout")="1200"
+ s sessionArray("ewd_persistRequest")="true"
+ s sessionArray("ewd_pageTitle")=""
+ s sessionArray("ewd_errorPage")="ewdError"
+ s sessionArray("ewd_templatePrePageScript")=""
+ s sessionArray("ewd_onErrorScript")=""
+ s sessionArray("ewd_appName")="patientportal"
+ s sessionArray("ewd_pageName")="ccr-exe"
+ s sessionArray("ewd_translationMode")="0"
+ s sessionArray("ewd_technology")="gtm"
+ s sessionArray("ewd_pageType")=""
+ s Error=$$startSession^%zewdPHP("ccr-exe",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+ s sessid=$g(sessionArray("ewd_sessid"))
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+ . s Error=$p(Error,":",2,200)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+ . s Error="EWD runtime error: "_Error
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+ . n errorPage
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+ . i errorPage="" s errorPage="ewdError"
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+ s stop=0
+ i Error="" d i stop QUIT 0
+ . n nextpage
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+ . i nextpage'="" d
+ . . n x
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+ . . s stop=1
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+ s ctype="text/html"
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+ i $d(headers) d
+ . n lcname,name
+ . s name=""
+ . f s name=$o(headers(name)) q:name="" d
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+ . . i lcname="content-type" s ctype=headers(name) q
+ . . w name_": "_headers(name)_$c(13,10)
+ w "Content-type: "_ctype_$c(13,10)
+ w $c(13,10)
+ QUIT 1
+ ;
+body ;
+ d gpltest^C0CRICH("")
+ QUIT
Index: EWD/archive/C0CE005.m
===================================================================
--- EWD/archive/C0CE005.m (revision 1265)
+++ EWD/archive/C0CE005.m (revision 1265)
@@ -0,0 +1,154 @@
+ ;GT.M version of page Second (patientportal application)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44
+ ;using Enterprise Web Developer (Build 790)
+ QUIT
+ ;
+run ;
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+ s ok=$$pre()
+ i ok d body
+ QUIT
+ ;
+pre() ;
+ ;
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+ ;
+ s confirmText="Click OK if you're sure you want to delete this record"
+ s sessionArray("ewd_isFirstPage")="0"
+ s sessionArray("ewd_sessid_timeout")="1200"
+ s sessionArray("ewd_prePageScript")=""
+ s sessionArray("ewd_default_timeout")="1200"
+ s sessionArray("ewd_persistRequest")="true"
+ s sessionArray("ewd_pageTitle")=""
+ s sessionArray("ewd_errorPage")="ewdError"
+ s sessionArray("ewd_templatePrePageScript")=""
+ s sessionArray("ewd_onErrorScript")=""
+ s sessionArray("ewd_appName")="patientportal"
+ s sessionArray("ewd_pageName")="Second"
+ s sessionArray("ewd_translationMode")="0"
+ s sessionArray("ewd_technology")="gtm"
+ s sessionArray("ewd_pageType")=""
+ s tokens("First")=$$setNextPageToken^%zewdGTMRuntime("First")
+ s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+ s Error=$$startSession^%zewdPHP("Second",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+ s sessid=$g(sessionArray("ewd_sessid"))
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+ . s Error=$p(Error,":",2,200)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+ . s Error="EWD runtime error: "_Error
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+ . n errorPage
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+ . i errorPage="" s errorPage="ewdError"
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+ s stop=0
+ i Error="" d i stop QUIT 0
+ . n nextpage
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+ . i nextpage'="" d
+ . . n x
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+ . . s stop=1
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+ s ctype="text/html"
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+ i $d(headers) d
+ . n lcname,name
+ . s name=""
+ . f s name=$o(headers(name)) q:name="" d
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+ . . i lcname="content-type" s ctype=headers(name) q
+ . . w name_": "_headers(name)_$c(13,10)
+ w "Content-type: "_ctype_$c(13,10)
+ w $c(13,10)
+ QUIT 1
+ ;
+body ;
+ w ""_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w "The second EWD Page"_""
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w "
"_$c(13,10)
+ w "This page is not a ""first"" page"_""
+ w "
"_$c(13,10)
+ w " "_$c(13,10)
+ w ""_$c(13,10)
+ QUIT
Index: EWD/archive/C0CE006.m
===================================================================
--- EWD/archive/C0CE006.m (revision 1265)
+++ EWD/archive/C0CE006.m (revision 1265)
@@ -0,0 +1,152 @@
+ ;GT.M version of page session (patientportal application)
+ ;Compiled on Sun, 28 Feb 2010 21:40:03
+ ;using Enterprise Web Developer (Build 790)
+ QUIT
+ ;
+run ;
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+ s ok=$$pre()
+ i ok d body
+ QUIT
+ ;
+pre() ;
+ ;
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+ ;
+ s confirmText="Click OK if you're sure you want to delete this record"
+ s sessionArray("ewd_isFirstPage")="0"
+ s sessionArray("ewd_sessid_timeout")="1200"
+ s sessionArray("ewd_prePageScript")="TEST^RICHEWDTEST"
+ s sessionArray("ewd_default_timeout")="1200"
+ s sessionArray("ewd_persistRequest")="true"
+ s sessionArray("ewd_pageTitle")=""
+ s sessionArray("ewd_errorPage")="ewdError"
+ s sessionArray("ewd_templatePrePageScript")=""
+ s sessionArray("ewd_onErrorScript")=""
+ s sessionArray("ewd_appName")="patientportal"
+ s sessionArray("ewd_pageName")="session"
+ s sessionArray("ewd_translationMode")="0"
+ s sessionArray("ewd_technology")="gtm"
+ s sessionArray("ewd_pageType")=""
+ s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+ s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+ s sessid=$g(sessionArray("ewd_sessid"))
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+ . s Error=$p(Error,":",2,200)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+ . s Error="EWD runtime error: "_Error
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+ . n errorPage
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+ . i errorPage="" s errorPage="ewdError"
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+ s stop=0
+ i Error="" d i stop QUIT 0
+ . n nextpage
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+ . i nextpage'="" d
+ . . n x
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+ . . s stop=1
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+ s ctype="text/html"
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+ i $d(headers) d
+ . n lcname,name
+ . s name=""
+ . f s name=$o(headers(name)) q:name="" d
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+ . . i lcname="content-type" s ctype=headers(name) q
+ . . w name_": "_headers(name)_$c(13,10)
+ w "Content-type: "_ctype_$c(13,10)
+ w $c(13,10)
+ QUIT 1
+ ;
+body ;
+ w ""_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w "EWD Page using Session Variables and a PrePage Script"_""
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w " "_$c(13,10)
+ w "
"_$c(13,10)
+ w "This page accesses EWD Session Variables"_""
+ w "
"_$c(13,10)
+ w "
"_$c(13,10)
+ w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
+ w "
+"DATA",70050,5,1,15,0)
+
+"DATA",70050,5,1,16,0)
+
+"DATA",70050,6,0)
+23396^patientportal^ewdajaxerrorredirect
+"DATA",70050,7,0)
+23401^patientportal^ccr
+"DATA",70050,7,1,0)
+^70050.02^5^5^3100301^^^
+"DATA",70050,7,1,1,0)
+
+"DATA",70050,7,1,2,0)
+
+"DATA",70050,7,1,3,0)
+
+"DATA",70050,7,1,4,0)
+
+"DATA",70050,7,1,5,0)
+
+"DATA",70050,8,0)
+23402^patientportal^ccr2
+"DATA",70050,8,1,0)
+^70050.02^6^6^3100301^^^^
+"DATA",70050,8,1,1,0)
+
+"DATA",70050,8,1,2,0)
+
+"DATA",70050,8,1,3,0)
+
+"DATA",70050,8,1,4,0)
+hello world
+"DATA",70050,8,1,5,0)
+
+"DATA",70050,8,1,6,0)
+
+"DATA",70050,9,0)
+23400^patientportal^loginpanel
+"DATA",70050,9,1,0)
+^70050.02^4^4^3100301^^
+"DATA",70050,9,1,1,0)
+
+"DATA",70050,9,1,2,0)
+
+"DATA",70050,9,1,3,0)
+Login Form will go here
+"DATA",70050,9,1,4,0)
+
+"DATA",70050,10,0)
+23403^patientportal^ccr-exe
+"DATA",70050,10,1,0)
+^^2^2^3100301^
+"DATA",70050,10,1,1,0)
+
+"DATA",70050,10,1,2,0)
+
+"DATA",70050,11,0)
+23404^patientportal^Second
+"FIA",70050)
+C0EWD ROUTINE MAP
+"FIA",70050,0)
+^C0E(70050,
+"FIA",70050,0,0)
+70050PI
+"FIA",70050,0,1)
+y^y^f^^n^^y^o^n
+"FIA",70050,0,10)
+
+"FIA",70050,0,11)
+
+"FIA",70050,0,"RLRO")
+
+"FIA",70050,70050)
+0
+"FIA",70050,70050.01)
+0
+"FIA",70050,70050.02)
+0
+"IX",70050,70050,"AZEWD",0)
+70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
+"IX",70050,70050,"AZEWD",1)
+D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",2)
+D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",11.1,0)
+^.114IA^3^3
+"IX",70050,70050,"AZEWD",11.1,1,0)
+1^F^70050^.01^^^F
+"IX",70050,70050,"AZEWD",11.1,2,0)
+2^F^70050^.02^^^F
+"IX",70050,70050,"AZEWD",11.1,3,0)
+3^F^70050^.03^^^F
+"IX",70050,70050,"C",0)
+70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
+"IX",70050,70050,"C",1)
+S ^C0E(70050,"C",$E(X,1,60),DA)=""
+"IX",70050,70050,"C",2)
+K ^C0E(70050,"C",$E(X,1,60),DA)
+"IX",70050,70050,"C",2.5)
+K ^C0E(70050,"C")
+"IX",70050,70050,"C",11.1,0)
+^.114IA^1^1
+"IX",70050,70050,"C",11.1,1,0)
+1^F^70050^.03^60^1^F
+"IX",70050,70050,"C",11.1,1,3)
+
+"MBREQ")
+0
+"QUES","XPF1",0)
+Y
+"QUES","XPF1","??")
+^D REP^XPDH
+"QUES","XPF1","A")
+Shall I write over your |FLAG| File
+"QUES","XPF1","B")
+YES
+"QUES","XPF1","M")
+D XPF1^XPDIQ
+"QUES","XPF2",0)
+Y
+"QUES","XPF2","??")
+^D DTA^XPDH
+"QUES","XPF2","A")
+Want my data |FLAG| yours
+"QUES","XPF2","B")
+YES
+"QUES","XPF2","M")
+D XPF2^XPDIQ
+"QUES","XPI1",0)
+YO
+"QUES","XPI1","??")
+^D INHIBIT^XPDH
+"QUES","XPI1","A")
+Want KIDS to INHIBIT LOGONs during the install
+"QUES","XPI1","B")
+NO
+"QUES","XPI1","M")
+D XPI1^XPDIQ
+"QUES","XPM1",0)
+PO^VA(200,:EM
+"QUES","XPM1","??")
+^D MG^XPDH
+"QUES","XPM1","A")
+Enter the Coordinator for Mail Group '|FLAG|'
+"QUES","XPM1","B")
+
+"QUES","XPM1","M")
+D XPM1^XPDIQ
+"QUES","XPO1",0)
+Y
+"QUES","XPO1","??")
+^D MENU^XPDH
+"QUES","XPO1","A")
+Want KIDS to Rebuild Menu Trees Upon Completion of Install
+"QUES","XPO1","B")
+NO
+"QUES","XPO1","M")
+D XPO1^XPDIQ
+"QUES","XPZ1",0)
+Y
+"QUES","XPZ1","??")
+^D OPT^XPDH
+"QUES","XPZ1","A")
+Want to DISABLE Scheduled Options, Menu Options, and Protocols
+"QUES","XPZ1","B")
+NO
+"QUES","XPZ1","M")
+D XPZ1^XPDIQ
+"QUES","XPZ2",0)
+Y
+"QUES","XPZ2","??")
+^D RTN^XPDH
+"QUES","XPZ2","A")
+Want to MOVE routines to other CPUs
+"QUES","XPZ2","B")
+NO
+"QUES","XPZ2","M")
+D XPZ2^XPDIQ
+"RTN")
+12
+"RTN","C0CE000A")
+0^3^B14831539
+"RTN","C0CE000A",1,0)
+ ;GT.M version of page ewdAjaxError (patientportal application)
+"RTN","C0CE000A",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
+"RTN","C0CE000A",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000A",4,0)
+ QUIT
+"RTN","C0CE000A",5,0)
+ ;
+"RTN","C0CE000A",6,0)
+run ;
+"RTN","C0CE000A",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000A",8,0)
+ s ok=$$pre()
+"RTN","C0CE000A",9,0)
+ i ok d body
+"RTN","C0CE000A",10,0)
+ QUIT
+"RTN","C0CE000A",11,0)
+ ;
+"RTN","C0CE000A",12,0)
+pre() ;
+"RTN","C0CE000A",13,0)
+ ;
+"RTN","C0CE000A",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000A",15,0)
+ ;
+"RTN","C0CE000A",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE000A",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0CE000A",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE000A",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE000A",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE000A",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE000A",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE000A",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE000A",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE000A",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE000A",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE000A",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxError"
+"RTN","C0CE000A",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE000A",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE000A",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE000A",31,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE000A",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE000A",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE000A",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE000A",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE000A",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE000A",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE000A",38,0)
+ . n errorPage
+"RTN","C0CE000A",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE000A",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE000A",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE000A",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE000A",43,0)
+ s stop=0
+"RTN","C0CE000A",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE000A",45,0)
+ . n nextpage
+"RTN","C0CE000A",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE000A",47,0)
+ . i nextpage'="" d
+"RTN","C0CE000A",48,0)
+ . . n x
+"RTN","C0CE000A",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE000A",50,0)
+ . . s stop=1
+"RTN","C0CE000A",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE000A",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000A",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000A",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000A",55,0)
+ s ctype="text/html"
+"RTN","C0CE000A",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE000A",57,0)
+ i $d(headers) d
+"RTN","C0CE000A",58,0)
+ . n lcname,name
+"RTN","C0CE000A",59,0)
+ . s name=""
+"RTN","C0CE000A",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE000A",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE000A",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE000A",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE000A",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE000A",65,0)
+ w $c(13,10)
+"RTN","C0CE000A",66,0)
+ QUIT 1
+"RTN","C0CE000A",67,0)
+ ;
+"RTN","C0CE000A",68,0)
+body ;
+"RTN","C0CE000A",69,0)
+ w ""_$c(13,10)
+"RTN","C0CE000A",70,0)
+ w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
+"RTN","C0CE000A",71,0)
+ w ""_$c(13,10)
+"RTN","C0CE000A",72,0)
+ QUIT
+"RTN","C0CE000E")
+0^8^B27501668
+"RTN","C0CE000E",1,0)
+ ;GT.M version of page ewdError (patientportal application)
+"RTN","C0CE000E",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 1
+"RTN","C0CE000E",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000E",4,0)
+ QUIT
+"RTN","C0CE000E",5,0)
+ ;
+"RTN","C0CE000E",6,0)
+run ;
+"RTN","C0CE000E",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000E",8,0)
+ s ok=$$pre()
+"RTN","C0CE000E",9,0)
+ i ok d body
+"RTN","C0CE000E",10,0)
+ QUIT
+"RTN","C0CE000E",11,0)
+ ;
+"RTN","C0CE000E",12,0)
+pre() ;
+"RTN","C0CE000E",13,0)
+ ;
+"RTN","C0CE000E",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000E",15,0)
+ ;
+"RTN","C0CE000E",16,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000E",17,0)
+ w "Content-type: text/html"_$c(13,10,13,10)
+"RTN","C0CE000E",18,0)
+ QUIT 1
+"RTN","C0CE000E",19,0)
+ ;
+"RTN","C0CE000E",20,0)
+body ;
+"RTN","C0CE000E",21,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",22,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",23,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",24,0)
+ w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
+"RTN","C0CE000E",25,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",43,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",44,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",45,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",46,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",47,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",48,0)
+ w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
+"RTN","C0CE000E",49,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",50,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",51,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",52,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",53,0)
+ w "
An Error has occurred
"_$c(13,10)
+"RTN","C0CE000E",54,0)
+ w " "_$c(13,10)
+"RTN","C0CE000E",55,0)
+ w "
"_$g(%KEY("error"))_"
"_$c(13,10)
+"RTN","C0CE000E",56,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",57,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",58,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",59,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",60,0)
+ w " "_$c(13,10)
+"RTN","C0CE000E",63,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",64,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",65,0)
+ QUIT
+"RTN","C0CE000F")
+0^4^B32715806
+"RTN","C0CE000F",1,0)
+ ;GT.M version of page ewdAjaxErrorRedirect (patientportal application)
+"RTN","C0CE000F",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
+"RTN","C0CE000F",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000F",4,0)
+ QUIT
+"RTN","C0CE000F",5,0)
+ ;
+"RTN","C0CE000F",6,0)
+run ;
+"RTN","C0CE000F",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000F",8,0)
+ s ok=$$pre()
+"RTN","C0CE000F",9,0)
+ i ok d body
+"RTN","C0CE000F",10,0)
+ QUIT
+"RTN","C0CE000F",11,0)
+ ;
+"RTN","C0CE000F",12,0)
+pre() ;
+"RTN","C0CE000F",13,0)
+ ;
+"RTN","C0CE000F",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000F",15,0)
+ ;
+"RTN","C0CE000F",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE000F",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE000F",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE000F",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE000F",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE000F",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE000F",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE000F",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE000F",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE000F",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE000F",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE000F",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
+"RTN","C0CE000F",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE000F",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE000F",30,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0CE000F",31,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0CE000F",32,0)
+ s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
+"RTN","C0CE000F",33,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE000F",34,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE000F",35,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE000F",36,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE000F",37,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE000F",38,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE000F",39,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE000F",40,0)
+ . n errorPage
+"RTN","C0CE000F",41,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE000F",42,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE000F",43,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE000F",44,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE000F",45,0)
+ s stop=0
+"RTN","C0CE000F",46,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE000F",47,0)
+ . n nextpage
+"RTN","C0CE000F",48,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE000F",49,0)
+ . i nextpage'="" d
+"RTN","C0CE000F",50,0)
+ . . n x
+"RTN","C0CE000F",51,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE000F",52,0)
+ . . s stop=1
+"RTN","C0CE000F",53,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE000F",54,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000F",55,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000F",56,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000F",57,0)
+ s ctype="text/html"
+"RTN","C0CE000F",58,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE000F",59,0)
+ i $d(headers) d
+"RTN","C0CE000F",60,0)
+ . n lcname,name
+"RTN","C0CE000F",61,0)
+ . s name=""
+"RTN","C0CE000F",62,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE000F",63,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE000F",64,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE000F",65,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE000F",66,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE000F",67,0)
+ w $c(13,10)
+"RTN","C0CE000F",68,0)
+ QUIT 1
+"RTN","C0CE000F",69,0)
+ ;
+"RTN","C0CE000F",70,0)
+body ;
+"RTN","C0CE000F",71,0)
+ if ($g(Error)="") d
+"RTN","C0CE000F",72,0)
+ .w " "_$c(13,10)
+"RTN","C0CE000F",73,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE000F",74,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE000F",75,0)
+ .w " "_$c(13,10)
+"RTN","C0CE000F",76,0)
+ .
+"RTN","C0CE000F",77,0)
+ w ""_$c(13,10)
+"RTN","C0CE000F",78,0)
+ 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)
+"RTN","C0CE000F",79,0)
+ s id=""
+"RTN","C0CE000F",80,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0CE000F",81,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE000F",82,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0CE000F",83,0)
+ s id=""
+"RTN","C0CE000F",84,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0CE000F",85,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE000F",86,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0CE000F",87,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0CE000F",88,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0CE000F",89,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0CE000F",90,0)
+ w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
+"RTN","C0CE000F",91,0)
+ w ""_$c(13,10)
+"RTN","C0CE000F",92,0)
+ QUIT
+"RTN","C0CE000R")
+0^9^B66701996
+"RTN","C0CE000R",1,0)
+ ;GT.M version of page ewdErrorRedirect (patientportal application)
+"RTN","C0CE000R",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
+"RTN","C0CE000R",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000R",4,0)
+ QUIT
+"RTN","C0CE000R",5,0)
+ ;
+"RTN","C0CE000R",6,0)
+run ;
+"RTN","C0CE000R",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000R",8,0)
+ s ok=$$pre()
+"RTN","C0CE000R",9,0)
+ i ok d body
+"RTN","C0CE000R",10,0)
+ QUIT
+"RTN","C0CE000R",11,0)
+ ;
+"RTN","C0CE000R",12,0)
+pre() ;
+"RTN","C0CE000R",13,0)
+ ;
+"RTN","C0CE000R",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000R",15,0)
+ ;
+"RTN","C0CE000R",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE000R",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE000R",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE000R",19,0)
+ s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
+"RTN","C0CE000R",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE000R",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE000R",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE000R",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE000R",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE000R",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE000R",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE000R",27,0)
+ s sessionArray("ewd_pageName")="ewdErrorRedirect"
+"RTN","C0CE000R",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE000R",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE000R",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE000R",31,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE000R",32,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE000R",33,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE000R",34,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE000R",35,0)
+ s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE000R",36,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE000R",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE000R",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE000R",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE000R",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE000R",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE000R",42,0)
+ . n errorPage
+"RTN","C0CE000R",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE000R",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE000R",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE000R",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE000R",47,0)
+ s stop=0
+"RTN","C0CE000R",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE000R",49,0)
+ . n nextpage
+"RTN","C0CE000R",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE000R",51,0)
+ . i nextpage'="" d
+"RTN","C0CE000R",52,0)
+ . . n x
+"RTN","C0CE000R",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE000R",54,0)
+ . . s stop=1
+"RTN","C0CE000R",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE000R",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000R",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000R",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000R",59,0)
+ s ctype="text/html"
+"RTN","C0CE000R",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE000R",61,0)
+ i $d(headers) d
+"RTN","C0CE000R",62,0)
+ . n lcname,name
+"RTN","C0CE000R",63,0)
+ . s name=""
+"RTN","C0CE000R",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE000R",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE000R",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE000R",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE000R",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE000R",69,0)
+ w $c(13,10)
+"RTN","C0CE000R",70,0)
+ QUIT 1
+"RTN","C0CE000R",71,0)
+ ;
+"RTN","C0CE000R",72,0)
+body ;
+"RTN","C0CE000R",73,0)
+ w ""_$c(13,10)
+"RTN","C0CE000R",74,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",75,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",76,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",78,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",79,0)
+ w "Ajax Error Redirect page"_""
+"RTN","C0CE000R",80,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",81,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",83,0)
+ w "Please wait...."_""
+"RTN","C0CE000R",84,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",85,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",86,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",133,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",134,0)
+ w ""_$c(13,10)
+"RTN","C0CE000R",135,0)
+ QUIT
+"RTN","C0CE001I")
+0^2^B97883042
+"RTN","C0CE001I",1,0)
+ ;GT.M version of page index (patientportal application)
+"RTN","C0CE001I",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
+"RTN","C0CE001I",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE001I",4,0)
+ QUIT
+"RTN","C0CE001I",5,0)
+ ;
+"RTN","C0CE001I",6,0)
+run ;
+"RTN","C0CE001I",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE001I",8,0)
+ s ok=$$pre()
+"RTN","C0CE001I",9,0)
+ i ok d body
+"RTN","C0CE001I",10,0)
+ QUIT
+"RTN","C0CE001I",11,0)
+ ;
+"RTN","C0CE001I",12,0)
+pre() ;
+"RTN","C0CE001I",13,0)
+ ;
+"RTN","C0CE001I",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE001I",15,0)
+ ;
+"RTN","C0CE001I",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE001I",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0CE001I",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE001I",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE001I",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE001I",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE001I",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE001I",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE001I",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE001I",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE001I",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE001I",27,0)
+ s sessionArray("ewd_pageName")="index"
+"RTN","C0CE001I",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE001I",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE001I",30,0)
+ s sessionArray("ewd_header","Expires")=0
+"RTN","C0CE001I",31,0)
+ s sessionArray("ewd_header","Cache-Control")="no-cache"
+"RTN","C0CE001I",32,0)
+ s sessionArray("ewd_header","Pragma")="no-cache"
+"RTN","C0CE001I",33,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE001I",34,0)
+ s tokens("ccr")=$$setNextPageToken^%zewdGTMRuntime("ccr")
+"RTN","C0CE001I",35,0)
+ s tokens("ccr2")=$$setNextPageToken^%zewdGTMRuntime("ccr2")
+"RTN","C0CE001I",36,0)
+ s tokens("ccrexe")=$$setNextPageToken^%zewdGTMRuntime("ccrexe")
+"RTN","C0CE001I",37,0)
+ s tokens("loginPanel")=$$setNextPageToken^%zewdGTMRuntime("loginPanel")
+"RTN","C0CE001I",38,0)
+ s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
+"RTN","C0CE001I",39,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE001I",40,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE001I",41,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE001I",42,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE001I",43,0)
+ s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE001I",44,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE001I",45,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE001I",46,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE001I",47,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE001I",48,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE001I",49,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE001I",50,0)
+ . n errorPage
+"RTN","C0CE001I",51,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE001I",52,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE001I",53,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE001I",54,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE001I",55,0)
+ s stop=0
+"RTN","C0CE001I",56,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE001I",57,0)
+ . n nextpage
+"RTN","C0CE001I",58,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE001I",59,0)
+ . i nextpage'="" d
+"RTN","C0CE001I",60,0)
+ . . n x
+"RTN","C0CE001I",61,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE001I",62,0)
+ . . s stop=1
+"RTN","C0CE001I",63,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE001I",64,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001I",65,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001I",66,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE001I",67,0)
+ s ctype="text/html"
+"RTN","C0CE001I",68,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE001I",69,0)
+ i $d(headers) d
+"RTN","C0CE001I",70,0)
+ . n lcname,name
+"RTN","C0CE001I",71,0)
+ . s name=""
+"RTN","C0CE001I",72,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE001I",73,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE001I",74,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE001I",75,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE001I",76,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE001I",77,0)
+ w $c(13,10)
+"RTN","C0CE001I",78,0)
+ QUIT 1
+"RTN","C0CE001I",79,0)
+ ;
+"RTN","C0CE001I",80,0)
+body ;
+"RTN","C0CE001I",81,0)
+ w ""_$c(13,10)
+"RTN","C0CE001I",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",83,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",84,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",86,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",87,0)
+ w "The start EWD Page"_""
+"RTN","C0CE001I",88,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",89,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",97,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",144,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",145,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",146,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",147,0)
+ w "This page is the first page in this application"_""
+"RTN","C0CE001I",148,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",149,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",150,0)
+ w "Login"_""
+"RTN","C0CE001I",151,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",172,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",173,0)
+ w ""_$c(13,10)
+"RTN","C0CE001I",174,0)
+ QUIT
+"RTN","C0CE001L")
+0^10^B51144421
+"RTN","C0CE001L",1,0)
+ ;GT.M version of page loginPanel (patientportal application)
+"RTN","C0CE001L",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 1
+"RTN","C0CE001L",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE001L",4,0)
+ QUIT
+"RTN","C0CE001L",5,0)
+ ;
+"RTN","C0CE001L",6,0)
+run ;
+"RTN","C0CE001L",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE001L",8,0)
+ s ok=$$pre()
+"RTN","C0CE001L",9,0)
+ i ok d body
+"RTN","C0CE001L",10,0)
+ QUIT
+"RTN","C0CE001L",11,0)
+ ;
+"RTN","C0CE001L",12,0)
+pre() ;
+"RTN","C0CE001L",13,0)
+ ;
+"RTN","C0CE001L",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE001L",15,0)
+ ;
+"RTN","C0CE001L",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE001L",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE001L",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE001L",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE001L",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE001L",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE001L",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE001L",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE001L",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE001L",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE001L",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE001L",27,0)
+ s sessionArray("ewd_pageName")="loginPanel"
+"RTN","C0CE001L",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE001L",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE001L",30,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0CE001L",31,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0CE001L",32,0)
+ s Error=$$startSession^%zewdPHP("loginPanel",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE001L",33,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE001L",34,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE001L",35,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE001L",36,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE001L",37,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE001L",38,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE001L",39,0)
+ . n errorPage
+"RTN","C0CE001L",40,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE001L",41,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE001L",42,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE001L",43,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE001L",44,0)
+ s stop=0
+"RTN","C0CE001L",45,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE001L",46,0)
+ . n nextpage
+"RTN","C0CE001L",47,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE001L",48,0)
+ . i nextpage'="" d
+"RTN","C0CE001L",49,0)
+ . . n x
+"RTN","C0CE001L",50,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE001L",51,0)
+ . . s stop=1
+"RTN","C0CE001L",52,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE001L",53,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001L",54,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001L",55,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE001L",56,0)
+ s ctype="text/html"
+"RTN","C0CE001L",57,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE001L",58,0)
+ i $d(headers) d
+"RTN","C0CE001L",59,0)
+ . n lcname,name
+"RTN","C0CE001L",60,0)
+ . s name=""
+"RTN","C0CE001L",61,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE001L",62,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE001L",63,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE001L",64,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE001L",65,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE001L",66,0)
+ w $c(13,10)
+"RTN","C0CE001L",67,0)
+ QUIT 1
+"RTN","C0CE001L",68,0)
+ ;
+"RTN","C0CE001L",69,0)
+body ;
+"RTN","C0CE001L",70,0)
+ if ($g(Error)="") d
+"RTN","C0CE001L",71,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",72,0)
+ .w "EWD.page.yuiResourcePath = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
+"RTN","C0CE001L",73,0)
+ .w "if (EWD.page.yuiResourcePath == '') {"_""
+"RTN","C0CE001L",74,0)
+ .w " alert('Unable to determine path to YUI resource file. Did you run d install^%zewdYUIConf()?') ;"_""
+"RTN","C0CE001L",75,0)
+ .w "}"_""
+"RTN","C0CE001L",76,0)
+ .w "EWD.page.loadResource("""_$$getSessionValue^%zewdAPI("yui.resourceLoaderPath",sessid)_$$getSessionValue^%zewdAPI("yui.resourceLoader",sessid)_""",""js"") ;"_""
+"RTN","C0CE001L",77,0)
+ .w "if (!EWD.yui) alert('YUI Javascript resource file ewdYUIResources.js was not found in the web server root path');"_""
+"RTN","C0CE001L",78,0)
+ .w "if (!EWD.yui.build) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You must be using build 790');"_""
+"RTN","C0CE001L",79,0)
+ .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');"_""
+"RTN","C0CE001L",80,0)
+ .w "EWD.yui.version = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
+"RTN","C0CE001L",81,0)
+ .w "EWD.yui.resourceLoader.Dialog() ;"_""
+"RTN","C0CE001L",82,0)
+ .w "document.getElementsByTagName('body')[0].className = 'yui-skin-sam' ;"_""
+"RTN","C0CE001L",83,0)
+ .w "var fReturnloginPanel7=function() {"_""
+"RTN","C0CE001L",84,0)
+ .w "EWD.yui.widgetIndex[""yuiDialogRegloginPanel7""]={widgetName:""loginPanel7"",tagId:""yuiDialogDivloginPanel7""};"_""
+"RTN","C0CE001L",85,0)
+ .w "EWD.yui.moveDialogToBody('yuiDialogDivloginPanel7');"_""
+"RTN","C0CE001L",86,0)
+ .w "EWD.yui.widget.loginPanel7=new YAHOO.widget.Dialog(""yuiDialogDivloginPanel7"",{iframe:true,width:""270px"",x:150,y:100});"_""
+"RTN","C0CE001L",87,0)
+ .w "EWD.yui.widget.loginPanel7.render();"_""
+"RTN","C0CE001L",88,0)
+ .w "};"_""
+"RTN","C0CE001L",89,0)
+ .w "YAHOO.util.Event.onAvailable(""yuiDialogDivloginPanel7"",fReturnloginPanel7);"_""
+"RTN","C0CE001L",90,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",97,0)
+ .w "Login Form will go here"_""
+"RTN","C0CE001L",98,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",99,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",100,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",101,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",102,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",103,0)
+ .
+"RTN","C0CE001L",104,0)
+ w ""_$c(13,10)
+"RTN","C0CE001L",105,0)
+ 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)
+"RTN","C0CE001L",106,0)
+ s id=""
+"RTN","C0CE001L",107,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0CE001L",108,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE001L",109,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0CE001L",110,0)
+ s id=""
+"RTN","C0CE001L",111,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0CE001L",112,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE001L",113,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0CE001L",114,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0CE001L",115,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0CE001L",116,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0CE001L",117,0)
+ w " }"_""
+"RTN","C0CE001L",118,0)
+ w ""_$c(13,10)
+"RTN","C0CE001L",119,0)
+ QUIT
+"RTN","C0CE002")
+0^5^B19028117
+"RTN","C0CE002",1,0)
+ ;GT.M version of page ccr (patientportal application)
+"RTN","C0CE002",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
+"RTN","C0CE002",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE002",4,0)
+ QUIT
+"RTN","C0CE002",5,0)
+ ;
+"RTN","C0CE002",6,0)
+run ;
+"RTN","C0CE002",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE002",8,0)
+ s ok=$$pre()
+"RTN","C0CE002",9,0)
+ i ok d body
+"RTN","C0CE002",10,0)
+ QUIT
+"RTN","C0CE002",11,0)
+ ;
+"RTN","C0CE002",12,0)
+pre() ;
+"RTN","C0CE002",13,0)
+ ;
+"RTN","C0CE002",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE002",15,0)
+ ;
+"RTN","C0CE002",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE002",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE002",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE002",19,0)
+ s sessionArray("ewd_prePageScript")="TEST2^RICHEWDTEST"
+"RTN","C0CE002",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE002",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE002",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE002",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE002",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE002",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE002",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE002",27,0)
+ s sessionArray("ewd_pageName")="ccr"
+"RTN","C0CE002",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE002",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE002",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE002",31,0)
+ s Error=$$startSession^%zewdPHP("ccr",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE002",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE002",33,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE002",34,0)
+ s headers("Content-type")="text/xml"
+"RTN","C0CE002",35,0)
+ d mergeArrayToSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE002",36,0)
+ k headers
+"RTN","C0CE002",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE002",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE002",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE002",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE002",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE002",42,0)
+ . n errorPage
+"RTN","C0CE002",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE002",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE002",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE002",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE002",47,0)
+ s stop=0
+"RTN","C0CE002",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE002",49,0)
+ . n nextpage
+"RTN","C0CE002",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE002",51,0)
+ . i nextpage'="" d
+"RTN","C0CE002",52,0)
+ . . n x
+"RTN","C0CE002",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE002",54,0)
+ . . s stop=1
+"RTN","C0CE002",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE002",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE002",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE002",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE002",59,0)
+ s ctype="text/html"
+"RTN","C0CE002",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE002",61,0)
+ i $d(headers) d
+"RTN","C0CE002",62,0)
+ . n lcname,name
+"RTN","C0CE002",63,0)
+ . s name=""
+"RTN","C0CE002",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE002",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE002",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE002",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE002",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE002",69,0)
+ w $c(13,10)
+"RTN","C0CE002",70,0)
+ QUIT 1
+"RTN","C0CE002",71,0)
+ ;
+"RTN","C0CE002",72,0)
+body ;
+"RTN","C0CE002",73,0)
+ s no=""
+"RTN","C0CE002",74,0)
+ i no?1N.N s no=no-1
+"RTN","C0CE002",75,0)
+ i no?1AP.ANP d
+"RTN","C0CE002",76,0)
+ . s p1=$e(no,1,$l(no)-1)
+"RTN","C0CE002",77,0)
+ . s p2=$e(no,$l(no))
+"RTN","C0CE002",78,0)
+ . s p2=$c($a(p2)-1)
+"RTN","C0CE002",79,0)
+ . s no=p1_p2
+"RTN","C0CE002",80,0)
+ s nul=""
+"RTN","C0CE002",81,0)
+ s endValue12=""
+"RTN","C0CE002",82,0)
+ i endValue12?1N.N s endValue12=endValue12+1
+"RTN","C0CE002",83,0)
+ f q:'(($o(^%zewdSession("session",sessid,"CCR",no))'=endValue12)&($o(^%zewdSession("session",sessid,"CCR",no))'=nul)) d
+"RTN","C0CE002",84,0)
+ .s no=$o(^%zewdSession("session",sessid,"CCR",no))
+"RTN","C0CE002",85,0)
+ .s data=$g(^%zewdSession("session",sessid,"CCR",no))
+"RTN","C0CE002",86,0)
+ .w data
+"RTN","C0CE002",87,0)
+ .
+"RTN","C0CE002",88,0)
+ QUIT
+"RTN","C0CE003")
+0^11^B16186512
+"RTN","C0CE003",1,0)
+ ;GT.M version of page ccr2 (patientportal application)
+"RTN","C0CE003",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
+"RTN","C0CE003",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE003",4,0)
+ QUIT
+"RTN","C0CE003",5,0)
+ ;
+"RTN","C0CE003",6,0)
+run ;
+"RTN","C0CE003",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE003",8,0)
+ s ok=$$pre()
+"RTN","C0CE003",9,0)
+ i ok d body
+"RTN","C0CE003",10,0)
+ QUIT
+"RTN","C0CE003",11,0)
+ ;
+"RTN","C0CE003",12,0)
+pre() ;
+"RTN","C0CE003",13,0)
+ ;
+"RTN","C0CE003",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE003",15,0)
+ ;
+"RTN","C0CE003",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE003",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE003",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE003",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE003",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE003",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE003",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE003",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE003",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE003",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE003",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE003",27,0)
+ s sessionArray("ewd_pageName")="ccr2"
+"RTN","C0CE003",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE003",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE003",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE003",31,0)
+ s Error=$$startSession^%zewdPHP("ccr2",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE003",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE003",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE003",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE003",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE003",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE003",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE003",38,0)
+ . n errorPage
+"RTN","C0CE003",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE003",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE003",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE003",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE003",43,0)
+ s stop=0
+"RTN","C0CE003",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE003",45,0)
+ . n nextpage
+"RTN","C0CE003",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE003",47,0)
+ . i nextpage'="" d
+"RTN","C0CE003",48,0)
+ . . n x
+"RTN","C0CE003",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE003",50,0)
+ . . s stop=1
+"RTN","C0CE003",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE003",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE003",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE003",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE003",55,0)
+ s ctype="text/html"
+"RTN","C0CE003",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE003",57,0)
+ i $d(headers) d
+"RTN","C0CE003",58,0)
+ . n lcname,name
+"RTN","C0CE003",59,0)
+ . s name=""
+"RTN","C0CE003",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE003",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE003",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE003",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE003",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE003",65,0)
+ w $c(13,10)
+"RTN","C0CE003",66,0)
+ QUIT 1
+"RTN","C0CE003",67,0)
+ ;
+"RTN","C0CE003",68,0)
+body ;
+"RTN","C0CE003",69,0)
+ w ""_$c(13,10)
+"RTN","C0CE003",70,0)
+ w " "_$c(13,10)
+"RTN","C0CE003",71,0)
+ w "hello world"_""
+"RTN","C0CE003",72,0)
+ w " "_$c(13,10)
+"RTN","C0CE003",73,0)
+ w ""_$c(13,10)
+"RTN","C0CE003",74,0)
+ QUIT
+"RTN","C0CE004")
+0^6^B14049311
+"RTN","C0CE004",1,0)
+ ;GT.M version of page ccr-exe (patientportal application)
+"RTN","C0CE004",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
+"RTN","C0CE004",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE004",4,0)
+ QUIT
+"RTN","C0CE004",5,0)
+ ;
+"RTN","C0CE004",6,0)
+run ;
+"RTN","C0CE004",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE004",8,0)
+ s ok=$$pre()
+"RTN","C0CE004",9,0)
+ i ok d body
+"RTN","C0CE004",10,0)
+ QUIT
+"RTN","C0CE004",11,0)
+ ;
+"RTN","C0CE004",12,0)
+pre() ;
+"RTN","C0CE004",13,0)
+ ;
+"RTN","C0CE004",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE004",15,0)
+ ;
+"RTN","C0CE004",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE004",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE004",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE004",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE004",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE004",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE004",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE004",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE004",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE004",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE004",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE004",27,0)
+ s sessionArray("ewd_pageName")="ccr-exe"
+"RTN","C0CE004",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE004",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE004",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE004",31,0)
+ s Error=$$startSession^%zewdPHP("ccr-exe",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE004",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE004",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE004",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE004",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE004",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE004",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE004",38,0)
+ . n errorPage
+"RTN","C0CE004",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE004",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE004",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE004",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE004",43,0)
+ s stop=0
+"RTN","C0CE004",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE004",45,0)
+ . n nextpage
+"RTN","C0CE004",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE004",47,0)
+ . i nextpage'="" d
+"RTN","C0CE004",48,0)
+ . . n x
+"RTN","C0CE004",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE004",50,0)
+ . . s stop=1
+"RTN","C0CE004",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE004",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE004",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE004",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE004",55,0)
+ s ctype="text/html"
+"RTN","C0CE004",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE004",57,0)
+ i $d(headers) d
+"RTN","C0CE004",58,0)
+ . n lcname,name
+"RTN","C0CE004",59,0)
+ . s name=""
+"RTN","C0CE004",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE004",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE004",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE004",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE004",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE004",65,0)
+ w $c(13,10)
+"RTN","C0CE004",66,0)
+ QUIT 1
+"RTN","C0CE004",67,0)
+ ;
+"RTN","C0CE004",68,0)
+body ;
+"RTN","C0CE004",69,0)
+ d gpltest^RICHEWDTEST("")
+"RTN","C0CE004",70,0)
+ QUIT
+"RTN","C0CE005")
+0^12^B80810317
+"RTN","C0CE005",1,0)
+ ;GT.M version of page Second (patientportal application)
+"RTN","C0CE005",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
+"RTN","C0CE005",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE005",4,0)
+ QUIT
+"RTN","C0CE005",5,0)
+ ;
+"RTN","C0CE005",6,0)
+run ;
+"RTN","C0CE005",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE005",8,0)
+ s ok=$$pre()
+"RTN","C0CE005",9,0)
+ i ok d body
+"RTN","C0CE005",10,0)
+ QUIT
+"RTN","C0CE005",11,0)
+ ;
+"RTN","C0CE005",12,0)
+pre() ;
+"RTN","C0CE005",13,0)
+ ;
+"RTN","C0CE005",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE005",15,0)
+ ;
+"RTN","C0CE005",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE005",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE005",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE005",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE005",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE005",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE005",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE005",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE005",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE005",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE005",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE005",27,0)
+ s sessionArray("ewd_pageName")="Second"
+"RTN","C0CE005",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE005",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE005",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE005",31,0)
+ s tokens("First")=$$setNextPageToken^%zewdGTMRuntime("First")
+"RTN","C0CE005",32,0)
+ s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
+"RTN","C0CE005",33,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE005",34,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE005",35,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE005",36,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE005",37,0)
+ s Error=$$startSession^%zewdPHP("Second",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE005",38,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE005",39,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE005",40,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE005",41,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE005",42,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE005",43,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE005",44,0)
+ . n errorPage
+"RTN","C0CE005",45,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE005",46,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE005",47,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE005",48,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE005",49,0)
+ s stop=0
+"RTN","C0CE005",50,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE005",51,0)
+ . n nextpage
+"RTN","C0CE005",52,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE005",53,0)
+ . i nextpage'="" d
+"RTN","C0CE005",54,0)
+ . . n x
+"RTN","C0CE005",55,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE005",56,0)
+ . . s stop=1
+"RTN","C0CE005",57,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE005",58,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE005",59,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE005",60,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE005",61,0)
+ s ctype="text/html"
+"RTN","C0CE005",62,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE005",63,0)
+ i $d(headers) d
+"RTN","C0CE005",64,0)
+ . n lcname,name
+"RTN","C0CE005",65,0)
+ . s name=""
+"RTN","C0CE005",66,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE005",67,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE005",68,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE005",69,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE005",70,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE005",71,0)
+ w $c(13,10)
+"RTN","C0CE005",72,0)
+ QUIT 1
+"RTN","C0CE005",73,0)
+ ;
+"RTN","C0CE005",74,0)
+body ;
+"RTN","C0CE005",75,0)
+ w ""_$c(13,10)
+"RTN","C0CE005",76,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",77,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",78,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",80,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",81,0)
+ w "The second EWD Page"_""
+"RTN","C0CE005",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",83,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",90,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",137,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",138,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",139,0)
+ w "
"_$c(13,10)
+"RTN","C0CE005",140,0)
+ w "This page is not a ""first"" page"_""
+"RTN","C0CE005",141,0)
+ w "
"_$c(13,10)
+"RTN","C0CE005",150,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",151,0)
+ w "
"_$c(13,10)
+"RTN","C0CE005",152,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",153,0)
+ w ""_$c(13,10)
+"RTN","C0CE005",154,0)
+ QUIT
+"RTN","C0CE006")
+0^7^B77594981
+"RTN","C0CE006",1,0)
+ ;GT.M version of page session (patientportal application)
+"RTN","C0CE006",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 1
+"RTN","C0CE006",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE006",4,0)
+ QUIT
+"RTN","C0CE006",5,0)
+ ;
+"RTN","C0CE006",6,0)
+run ;
+"RTN","C0CE006",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE006",8,0)
+ s ok=$$pre()
+"RTN","C0CE006",9,0)
+ i ok d body
+"RTN","C0CE006",10,0)
+ QUIT
+"RTN","C0CE006",11,0)
+ ;
+"RTN","C0CE006",12,0)
+pre() ;
+"RTN","C0CE006",13,0)
+ ;
+"RTN","C0CE006",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE006",15,0)
+ ;
+"RTN","C0CE006",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE006",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE006",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE006",19,0)
+ s sessionArray("ewd_prePageScript")="TEST^RICHEWDTEST"
+"RTN","C0CE006",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE006",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE006",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE006",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE006",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE006",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE006",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE006",27,0)
+ s sessionArray("ewd_pageName")="session"
+"RTN","C0CE006",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE006",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE006",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE006",31,0)
+ s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
+"RTN","C0CE006",32,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE006",33,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE006",34,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE006",35,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE006",36,0)
+ s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE006",37,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE006",38,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE006",39,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE006",40,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE006",41,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE006",42,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE006",43,0)
+ . n errorPage
+"RTN","C0CE006",44,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE006",45,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE006",46,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE006",47,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE006",48,0)
+ s stop=0
+"RTN","C0CE006",49,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE006",50,0)
+ . n nextpage
+"RTN","C0CE006",51,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE006",52,0)
+ . i nextpage'="" d
+"RTN","C0CE006",53,0)
+ . . n x
+"RTN","C0CE006",54,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE006",55,0)
+ . . s stop=1
+"RTN","C0CE006",56,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE006",57,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE006",58,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE006",59,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE006",60,0)
+ s ctype="text/html"
+"RTN","C0CE006",61,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE006",62,0)
+ i $d(headers) d
+"RTN","C0CE006",63,0)
+ . n lcname,name
+"RTN","C0CE006",64,0)
+ . s name=""
+"RTN","C0CE006",65,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE006",66,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE006",67,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE006",68,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE006",69,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE006",70,0)
+ w $c(13,10)
+"RTN","C0CE006",71,0)
+ QUIT 1
+"RTN","C0CE006",72,0)
+ ;
+"RTN","C0CE006",73,0)
+body ;
+"RTN","C0CE006",74,0)
+ w ""_$c(13,10)
+"RTN","C0CE006",75,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",76,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",77,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",79,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",80,0)
+ w "EWD Page using Session Variables and a PrePage Script"_""
+"RTN","C0CE006",81,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",89,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",136,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",137,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",138,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",139,0)
+ w "This page accesses EWD Session Variables"_""
+"RTN","C0CE006",140,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",141,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",142,0)
+ w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
+"RTN","C0CE006",143,0)
+ w "
+"DATA",70050,5,1,15,0)
+
+"DATA",70050,5,1,16,0)
+
+"DATA",70050,6,0)
+23396^patientportal^ewdajaxerrorredirect
+"DATA",70050,7,0)
+23401^patientportal^ccr
+"DATA",70050,7,1,0)
+^70050.02^5^5^3100301^^^
+"DATA",70050,7,1,1,0)
+
+"DATA",70050,7,1,2,0)
+
+"DATA",70050,7,1,3,0)
+
+"DATA",70050,7,1,4,0)
+
+"DATA",70050,7,1,5,0)
+
+"DATA",70050,8,0)
+23402^patientportal^ccr2
+"DATA",70050,8,1,0)
+^70050.02^6^6^3100301^^^^
+"DATA",70050,8,1,1,0)
+
+"DATA",70050,8,1,2,0)
+
+"DATA",70050,8,1,3,0)
+
+"DATA",70050,8,1,4,0)
+hello world
+"DATA",70050,8,1,5,0)
+
+"DATA",70050,8,1,6,0)
+
+"DATA",70050,9,0)
+23400^patientportal^loginpanel
+"DATA",70050,9,1,0)
+^70050.02^4^4^3100301^^
+"DATA",70050,9,1,1,0)
+
+"DATA",70050,9,1,2,0)
+
+"DATA",70050,9,1,3,0)
+Login Form will go here
+"DATA",70050,9,1,4,0)
+
+"DATA",70050,10,0)
+23403^patientportal^ccr-exe
+"DATA",70050,10,1,0)
+^^2^2^3100301^
+"DATA",70050,10,1,1,0)
+
+"DATA",70050,10,1,2,0)
+
+"DATA",70050,11,0)
+23404^patientportal^Second
+"FIA",70050)
+C0EWD ROUTINE MAP
+"FIA",70050,0)
+^C0E(70050,
+"FIA",70050,0,0)
+70050PI
+"FIA",70050,0,1)
+y^y^f^^n^^y^o^n
+"FIA",70050,0,10)
+
+"FIA",70050,0,11)
+
+"FIA",70050,0,"RLRO")
+
+"FIA",70050,70050)
+0
+"FIA",70050,70050.01)
+0
+"FIA",70050,70050.02)
+0
+"IX",70050,70050,"AZEWD",0)
+70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
+"IX",70050,70050,"AZEWD",1)
+D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",2)
+D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",11.1,0)
+^.114IA^3^3
+"IX",70050,70050,"AZEWD",11.1,1,0)
+1^F^70050^.01^^^F
+"IX",70050,70050,"AZEWD",11.1,2,0)
+2^F^70050^.02^^^F
+"IX",70050,70050,"AZEWD",11.1,3,0)
+3^F^70050^.03^^^F
+"IX",70050,70050,"C",0)
+70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
+"IX",70050,70050,"C",1)
+S ^C0E(70050,"C",$E(X,1,60),DA)=""
+"IX",70050,70050,"C",2)
+K ^C0E(70050,"C",$E(X,1,60),DA)
+"IX",70050,70050,"C",2.5)
+K ^C0E(70050,"C")
+"IX",70050,70050,"C",11.1,0)
+^.114IA^1^1
+"IX",70050,70050,"C",11.1,1,0)
+1^F^70050^.03^60^1^F
+"IX",70050,70050,"C",11.1,1,3)
+
+"MBREQ")
+0
+"QUES","XPF1",0)
+Y
+"QUES","XPF1","??")
+^D REP^XPDH
+"QUES","XPF1","A")
+Shall I write over your |FLAG| File
+"QUES","XPF1","B")
+YES
+"QUES","XPF1","M")
+D XPF1^XPDIQ
+"QUES","XPF2",0)
+Y
+"QUES","XPF2","??")
+^D DTA^XPDH
+"QUES","XPF2","A")
+Want my data |FLAG| yours
+"QUES","XPF2","B")
+YES
+"QUES","XPF2","M")
+D XPF2^XPDIQ
+"QUES","XPI1",0)
+YO
+"QUES","XPI1","??")
+^D INHIBIT^XPDH
+"QUES","XPI1","A")
+Want KIDS to INHIBIT LOGONs during the install
+"QUES","XPI1","B")
+NO
+"QUES","XPI1","M")
+D XPI1^XPDIQ
+"QUES","XPM1",0)
+PO^VA(200,:EM
+"QUES","XPM1","??")
+^D MG^XPDH
+"QUES","XPM1","A")
+Enter the Coordinator for Mail Group '|FLAG|'
+"QUES","XPM1","B")
+
+"QUES","XPM1","M")
+D XPM1^XPDIQ
+"QUES","XPO1",0)
+Y
+"QUES","XPO1","??")
+^D MENU^XPDH
+"QUES","XPO1","A")
+Want KIDS to Rebuild Menu Trees Upon Completion of Install
+"QUES","XPO1","B")
+NO
+"QUES","XPO1","M")
+D XPO1^XPDIQ
+"QUES","XPZ1",0)
+Y
+"QUES","XPZ1","??")
+^D OPT^XPDH
+"QUES","XPZ1","A")
+Want to DISABLE Scheduled Options, Menu Options, and Protocols
+"QUES","XPZ1","B")
+NO
+"QUES","XPZ1","M")
+D XPZ1^XPDIQ
+"QUES","XPZ2",0)
+Y
+"QUES","XPZ2","??")
+^D RTN^XPDH
+"QUES","XPZ2","A")
+Want to MOVE routines to other CPUs
+"QUES","XPZ2","B")
+NO
+"QUES","XPZ2","M")
+D XPZ2^XPDIQ
+"RTN")
+13
+"RTN","C0CE000A")
+0^3^B14831539
+"RTN","C0CE000A",1,0)
+ ;GT.M version of page ewdAjaxError (patientportal application)
+"RTN","C0CE000A",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
+"RTN","C0CE000A",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000A",4,0)
+ QUIT
+"RTN","C0CE000A",5,0)
+ ;
+"RTN","C0CE000A",6,0)
+run ;
+"RTN","C0CE000A",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000A",8,0)
+ s ok=$$pre()
+"RTN","C0CE000A",9,0)
+ i ok d body
+"RTN","C0CE000A",10,0)
+ QUIT
+"RTN","C0CE000A",11,0)
+ ;
+"RTN","C0CE000A",12,0)
+pre() ;
+"RTN","C0CE000A",13,0)
+ ;
+"RTN","C0CE000A",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000A",15,0)
+ ;
+"RTN","C0CE000A",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE000A",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0CE000A",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE000A",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE000A",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE000A",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE000A",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE000A",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE000A",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE000A",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE000A",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE000A",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxError"
+"RTN","C0CE000A",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE000A",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE000A",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE000A",31,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE000A",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE000A",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE000A",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE000A",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE000A",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE000A",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE000A",38,0)
+ . n errorPage
+"RTN","C0CE000A",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE000A",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE000A",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE000A",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE000A",43,0)
+ s stop=0
+"RTN","C0CE000A",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE000A",45,0)
+ . n nextpage
+"RTN","C0CE000A",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE000A",47,0)
+ . i nextpage'="" d
+"RTN","C0CE000A",48,0)
+ . . n x
+"RTN","C0CE000A",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE000A",50,0)
+ . . s stop=1
+"RTN","C0CE000A",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE000A",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000A",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000A",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000A",55,0)
+ s ctype="text/html"
+"RTN","C0CE000A",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE000A",57,0)
+ i $d(headers) d
+"RTN","C0CE000A",58,0)
+ . n lcname,name
+"RTN","C0CE000A",59,0)
+ . s name=""
+"RTN","C0CE000A",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE000A",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE000A",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE000A",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE000A",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE000A",65,0)
+ w $c(13,10)
+"RTN","C0CE000A",66,0)
+ QUIT 1
+"RTN","C0CE000A",67,0)
+ ;
+"RTN","C0CE000A",68,0)
+body ;
+"RTN","C0CE000A",69,0)
+ w ""_$c(13,10)
+"RTN","C0CE000A",70,0)
+ w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
+"RTN","C0CE000A",71,0)
+ w ""_$c(13,10)
+"RTN","C0CE000A",72,0)
+ QUIT
+"RTN","C0CE000E")
+0^8^B27501668
+"RTN","C0CE000E",1,0)
+ ;GT.M version of page ewdError (patientportal application)
+"RTN","C0CE000E",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 2
+"RTN","C0CE000E",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000E",4,0)
+ QUIT
+"RTN","C0CE000E",5,0)
+ ;
+"RTN","C0CE000E",6,0)
+run ;
+"RTN","C0CE000E",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000E",8,0)
+ s ok=$$pre()
+"RTN","C0CE000E",9,0)
+ i ok d body
+"RTN","C0CE000E",10,0)
+ QUIT
+"RTN","C0CE000E",11,0)
+ ;
+"RTN","C0CE000E",12,0)
+pre() ;
+"RTN","C0CE000E",13,0)
+ ;
+"RTN","C0CE000E",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000E",15,0)
+ ;
+"RTN","C0CE000E",16,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000E",17,0)
+ w "Content-type: text/html"_$c(13,10,13,10)
+"RTN","C0CE000E",18,0)
+ QUIT 1
+"RTN","C0CE000E",19,0)
+ ;
+"RTN","C0CE000E",20,0)
+body ;
+"RTN","C0CE000E",21,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",22,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",23,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",24,0)
+ w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
+"RTN","C0CE000E",25,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",43,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",44,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",45,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",46,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",47,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",48,0)
+ w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
+"RTN","C0CE000E",49,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",50,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",51,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",52,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",53,0)
+ w "
An Error has occurred
"_$c(13,10)
+"RTN","C0CE000E",54,0)
+ w " "_$c(13,10)
+"RTN","C0CE000E",55,0)
+ w "
"_$g(%KEY("error"))_"
"_$c(13,10)
+"RTN","C0CE000E",56,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",57,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",58,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",59,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",60,0)
+ w " "_$c(13,10)
+"RTN","C0CE000E",63,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",64,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",65,0)
+ QUIT
+"RTN","C0CE000F")
+0^4^B32715806
+"RTN","C0CE000F",1,0)
+ ;GT.M version of page ewdAjaxErrorRedirect (patientportal application)
+"RTN","C0CE000F",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
+"RTN","C0CE000F",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000F",4,0)
+ QUIT
+"RTN","C0CE000F",5,0)
+ ;
+"RTN","C0CE000F",6,0)
+run ;
+"RTN","C0CE000F",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000F",8,0)
+ s ok=$$pre()
+"RTN","C0CE000F",9,0)
+ i ok d body
+"RTN","C0CE000F",10,0)
+ QUIT
+"RTN","C0CE000F",11,0)
+ ;
+"RTN","C0CE000F",12,0)
+pre() ;
+"RTN","C0CE000F",13,0)
+ ;
+"RTN","C0CE000F",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000F",15,0)
+ ;
+"RTN","C0CE000F",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE000F",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE000F",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE000F",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE000F",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE000F",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE000F",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE000F",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE000F",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE000F",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE000F",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE000F",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
+"RTN","C0CE000F",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE000F",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE000F",30,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0CE000F",31,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0CE000F",32,0)
+ s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
+"RTN","C0CE000F",33,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE000F",34,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE000F",35,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE000F",36,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE000F",37,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE000F",38,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE000F",39,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE000F",40,0)
+ . n errorPage
+"RTN","C0CE000F",41,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE000F",42,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE000F",43,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE000F",44,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE000F",45,0)
+ s stop=0
+"RTN","C0CE000F",46,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE000F",47,0)
+ . n nextpage
+"RTN","C0CE000F",48,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE000F",49,0)
+ . i nextpage'="" d
+"RTN","C0CE000F",50,0)
+ . . n x
+"RTN","C0CE000F",51,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE000F",52,0)
+ . . s stop=1
+"RTN","C0CE000F",53,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE000F",54,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000F",55,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000F",56,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000F",57,0)
+ s ctype="text/html"
+"RTN","C0CE000F",58,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE000F",59,0)
+ i $d(headers) d
+"RTN","C0CE000F",60,0)
+ . n lcname,name
+"RTN","C0CE000F",61,0)
+ . s name=""
+"RTN","C0CE000F",62,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE000F",63,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE000F",64,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE000F",65,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE000F",66,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE000F",67,0)
+ w $c(13,10)
+"RTN","C0CE000F",68,0)
+ QUIT 1
+"RTN","C0CE000F",69,0)
+ ;
+"RTN","C0CE000F",70,0)
+body ;
+"RTN","C0CE000F",71,0)
+ if ($g(Error)="") d
+"RTN","C0CE000F",72,0)
+ .w " "_$c(13,10)
+"RTN","C0CE000F",73,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE000F",74,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE000F",75,0)
+ .w " "_$c(13,10)
+"RTN","C0CE000F",76,0)
+ .
+"RTN","C0CE000F",77,0)
+ w ""_$c(13,10)
+"RTN","C0CE000F",78,0)
+ 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)
+"RTN","C0CE000F",79,0)
+ s id=""
+"RTN","C0CE000F",80,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0CE000F",81,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE000F",82,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0CE000F",83,0)
+ s id=""
+"RTN","C0CE000F",84,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0CE000F",85,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE000F",86,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0CE000F",87,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0CE000F",88,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0CE000F",89,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0CE000F",90,0)
+ w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
+"RTN","C0CE000F",91,0)
+ w ""_$c(13,10)
+"RTN","C0CE000F",92,0)
+ QUIT
+"RTN","C0CE000R")
+0^9^B66701996
+"RTN","C0CE000R",1,0)
+ ;GT.M version of page ewdErrorRedirect (patientportal application)
+"RTN","C0CE000R",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
+"RTN","C0CE000R",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000R",4,0)
+ QUIT
+"RTN","C0CE000R",5,0)
+ ;
+"RTN","C0CE000R",6,0)
+run ;
+"RTN","C0CE000R",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000R",8,0)
+ s ok=$$pre()
+"RTN","C0CE000R",9,0)
+ i ok d body
+"RTN","C0CE000R",10,0)
+ QUIT
+"RTN","C0CE000R",11,0)
+ ;
+"RTN","C0CE000R",12,0)
+pre() ;
+"RTN","C0CE000R",13,0)
+ ;
+"RTN","C0CE000R",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000R",15,0)
+ ;
+"RTN","C0CE000R",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE000R",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE000R",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE000R",19,0)
+ s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
+"RTN","C0CE000R",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE000R",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE000R",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE000R",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE000R",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE000R",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE000R",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE000R",27,0)
+ s sessionArray("ewd_pageName")="ewdErrorRedirect"
+"RTN","C0CE000R",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE000R",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE000R",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE000R",31,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE000R",32,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE000R",33,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE000R",34,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE000R",35,0)
+ s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE000R",36,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE000R",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE000R",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE000R",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE000R",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE000R",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE000R",42,0)
+ . n errorPage
+"RTN","C0CE000R",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE000R",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE000R",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE000R",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE000R",47,0)
+ s stop=0
+"RTN","C0CE000R",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE000R",49,0)
+ . n nextpage
+"RTN","C0CE000R",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE000R",51,0)
+ . i nextpage'="" d
+"RTN","C0CE000R",52,0)
+ . . n x
+"RTN","C0CE000R",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE000R",54,0)
+ . . s stop=1
+"RTN","C0CE000R",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE000R",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000R",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000R",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000R",59,0)
+ s ctype="text/html"
+"RTN","C0CE000R",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE000R",61,0)
+ i $d(headers) d
+"RTN","C0CE000R",62,0)
+ . n lcname,name
+"RTN","C0CE000R",63,0)
+ . s name=""
+"RTN","C0CE000R",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE000R",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE000R",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE000R",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE000R",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE000R",69,0)
+ w $c(13,10)
+"RTN","C0CE000R",70,0)
+ QUIT 1
+"RTN","C0CE000R",71,0)
+ ;
+"RTN","C0CE000R",72,0)
+body ;
+"RTN","C0CE000R",73,0)
+ w ""_$c(13,10)
+"RTN","C0CE000R",74,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",75,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",76,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",78,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",79,0)
+ w "Ajax Error Redirect page"_""
+"RTN","C0CE000R",80,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",81,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",83,0)
+ w "Please wait...."_""
+"RTN","C0CE000R",84,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",85,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",86,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",133,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",134,0)
+ w ""_$c(13,10)
+"RTN","C0CE000R",135,0)
+ QUIT
+"RTN","C0CE001I")
+0^2^B97883042
+"RTN","C0CE001I",1,0)
+ ;GT.M version of page index (patientportal application)
+"RTN","C0CE001I",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
+"RTN","C0CE001I",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE001I",4,0)
+ QUIT
+"RTN","C0CE001I",5,0)
+ ;
+"RTN","C0CE001I",6,0)
+run ;
+"RTN","C0CE001I",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE001I",8,0)
+ s ok=$$pre()
+"RTN","C0CE001I",9,0)
+ i ok d body
+"RTN","C0CE001I",10,0)
+ QUIT
+"RTN","C0CE001I",11,0)
+ ;
+"RTN","C0CE001I",12,0)
+pre() ;
+"RTN","C0CE001I",13,0)
+ ;
+"RTN","C0CE001I",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE001I",15,0)
+ ;
+"RTN","C0CE001I",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE001I",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0CE001I",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE001I",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE001I",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE001I",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE001I",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE001I",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE001I",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE001I",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE001I",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE001I",27,0)
+ s sessionArray("ewd_pageName")="index"
+"RTN","C0CE001I",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE001I",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE001I",30,0)
+ s sessionArray("ewd_header","Expires")=0
+"RTN","C0CE001I",31,0)
+ s sessionArray("ewd_header","Cache-Control")="no-cache"
+"RTN","C0CE001I",32,0)
+ s sessionArray("ewd_header","Pragma")="no-cache"
+"RTN","C0CE001I",33,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE001I",34,0)
+ s tokens("ccr")=$$setNextPageToken^%zewdGTMRuntime("ccr")
+"RTN","C0CE001I",35,0)
+ s tokens("ccr2")=$$setNextPageToken^%zewdGTMRuntime("ccr2")
+"RTN","C0CE001I",36,0)
+ s tokens("ccrexe")=$$setNextPageToken^%zewdGTMRuntime("ccrexe")
+"RTN","C0CE001I",37,0)
+ s tokens("loginPanel")=$$setNextPageToken^%zewdGTMRuntime("loginPanel")
+"RTN","C0CE001I",38,0)
+ s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
+"RTN","C0CE001I",39,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE001I",40,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE001I",41,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE001I",42,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE001I",43,0)
+ s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE001I",44,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE001I",45,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE001I",46,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE001I",47,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE001I",48,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE001I",49,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE001I",50,0)
+ . n errorPage
+"RTN","C0CE001I",51,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE001I",52,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE001I",53,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE001I",54,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE001I",55,0)
+ s stop=0
+"RTN","C0CE001I",56,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE001I",57,0)
+ . n nextpage
+"RTN","C0CE001I",58,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE001I",59,0)
+ . i nextpage'="" d
+"RTN","C0CE001I",60,0)
+ . . n x
+"RTN","C0CE001I",61,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE001I",62,0)
+ . . s stop=1
+"RTN","C0CE001I",63,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE001I",64,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001I",65,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001I",66,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE001I",67,0)
+ s ctype="text/html"
+"RTN","C0CE001I",68,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE001I",69,0)
+ i $d(headers) d
+"RTN","C0CE001I",70,0)
+ . n lcname,name
+"RTN","C0CE001I",71,0)
+ . s name=""
+"RTN","C0CE001I",72,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE001I",73,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE001I",74,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE001I",75,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE001I",76,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE001I",77,0)
+ w $c(13,10)
+"RTN","C0CE001I",78,0)
+ QUIT 1
+"RTN","C0CE001I",79,0)
+ ;
+"RTN","C0CE001I",80,0)
+body ;
+"RTN","C0CE001I",81,0)
+ w ""_$c(13,10)
+"RTN","C0CE001I",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",83,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",84,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",86,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",87,0)
+ w "The start EWD Page"_""
+"RTN","C0CE001I",88,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",89,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",97,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",144,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",145,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",146,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",147,0)
+ w "This page is the first page in this application"_""
+"RTN","C0CE001I",148,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",149,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",150,0)
+ w "Login"_""
+"RTN","C0CE001I",151,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",172,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",173,0)
+ w ""_$c(13,10)
+"RTN","C0CE001I",174,0)
+ QUIT
+"RTN","C0CE001L")
+0^10^B51144421
+"RTN","C0CE001L",1,0)
+ ;GT.M version of page loginPanel (patientportal application)
+"RTN","C0CE001L",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 2
+"RTN","C0CE001L",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE001L",4,0)
+ QUIT
+"RTN","C0CE001L",5,0)
+ ;
+"RTN","C0CE001L",6,0)
+run ;
+"RTN","C0CE001L",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE001L",8,0)
+ s ok=$$pre()
+"RTN","C0CE001L",9,0)
+ i ok d body
+"RTN","C0CE001L",10,0)
+ QUIT
+"RTN","C0CE001L",11,0)
+ ;
+"RTN","C0CE001L",12,0)
+pre() ;
+"RTN","C0CE001L",13,0)
+ ;
+"RTN","C0CE001L",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE001L",15,0)
+ ;
+"RTN","C0CE001L",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE001L",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE001L",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE001L",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE001L",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE001L",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE001L",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE001L",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE001L",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE001L",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE001L",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE001L",27,0)
+ s sessionArray("ewd_pageName")="loginPanel"
+"RTN","C0CE001L",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE001L",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE001L",30,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0CE001L",31,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0CE001L",32,0)
+ s Error=$$startSession^%zewdPHP("loginPanel",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE001L",33,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE001L",34,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE001L",35,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE001L",36,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE001L",37,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE001L",38,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE001L",39,0)
+ . n errorPage
+"RTN","C0CE001L",40,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE001L",41,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE001L",42,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE001L",43,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE001L",44,0)
+ s stop=0
+"RTN","C0CE001L",45,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE001L",46,0)
+ . n nextpage
+"RTN","C0CE001L",47,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE001L",48,0)
+ . i nextpage'="" d
+"RTN","C0CE001L",49,0)
+ . . n x
+"RTN","C0CE001L",50,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE001L",51,0)
+ . . s stop=1
+"RTN","C0CE001L",52,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE001L",53,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001L",54,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001L",55,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE001L",56,0)
+ s ctype="text/html"
+"RTN","C0CE001L",57,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE001L",58,0)
+ i $d(headers) d
+"RTN","C0CE001L",59,0)
+ . n lcname,name
+"RTN","C0CE001L",60,0)
+ . s name=""
+"RTN","C0CE001L",61,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE001L",62,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE001L",63,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE001L",64,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE001L",65,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE001L",66,0)
+ w $c(13,10)
+"RTN","C0CE001L",67,0)
+ QUIT 1
+"RTN","C0CE001L",68,0)
+ ;
+"RTN","C0CE001L",69,0)
+body ;
+"RTN","C0CE001L",70,0)
+ if ($g(Error)="") d
+"RTN","C0CE001L",71,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",72,0)
+ .w "EWD.page.yuiResourcePath = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
+"RTN","C0CE001L",73,0)
+ .w "if (EWD.page.yuiResourcePath == '') {"_""
+"RTN","C0CE001L",74,0)
+ .w " alert('Unable to determine path to YUI resource file. Did you run d install^%zewdYUIConf()?') ;"_""
+"RTN","C0CE001L",75,0)
+ .w "}"_""
+"RTN","C0CE001L",76,0)
+ .w "EWD.page.loadResource("""_$$getSessionValue^%zewdAPI("yui.resourceLoaderPath",sessid)_$$getSessionValue^%zewdAPI("yui.resourceLoader",sessid)_""",""js"") ;"_""
+"RTN","C0CE001L",77,0)
+ .w "if (!EWD.yui) alert('YUI Javascript resource file ewdYUIResources.js was not found in the web server root path');"_""
+"RTN","C0CE001L",78,0)
+ .w "if (!EWD.yui.build) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You must be using build 790');"_""
+"RTN","C0CE001L",79,0)
+ .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');"_""
+"RTN","C0CE001L",80,0)
+ .w "EWD.yui.version = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
+"RTN","C0CE001L",81,0)
+ .w "EWD.yui.resourceLoader.Dialog() ;"_""
+"RTN","C0CE001L",82,0)
+ .w "document.getElementsByTagName('body')[0].className = 'yui-skin-sam' ;"_""
+"RTN","C0CE001L",83,0)
+ .w "var fReturnloginPanel7=function() {"_""
+"RTN","C0CE001L",84,0)
+ .w "EWD.yui.widgetIndex[""yuiDialogRegloginPanel7""]={widgetName:""loginPanel7"",tagId:""yuiDialogDivloginPanel7""};"_""
+"RTN","C0CE001L",85,0)
+ .w "EWD.yui.moveDialogToBody('yuiDialogDivloginPanel7');"_""
+"RTN","C0CE001L",86,0)
+ .w "EWD.yui.widget.loginPanel7=new YAHOO.widget.Dialog(""yuiDialogDivloginPanel7"",{iframe:true,width:""270px"",x:150,y:100});"_""
+"RTN","C0CE001L",87,0)
+ .w "EWD.yui.widget.loginPanel7.render();"_""
+"RTN","C0CE001L",88,0)
+ .w "};"_""
+"RTN","C0CE001L",89,0)
+ .w "YAHOO.util.Event.onAvailable(""yuiDialogDivloginPanel7"",fReturnloginPanel7);"_""
+"RTN","C0CE001L",90,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",97,0)
+ .w "Login Form will go here"_""
+"RTN","C0CE001L",98,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",99,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",100,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",101,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",102,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",103,0)
+ .
+"RTN","C0CE001L",104,0)
+ w ""_$c(13,10)
+"RTN","C0CE001L",105,0)
+ 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)
+"RTN","C0CE001L",106,0)
+ s id=""
+"RTN","C0CE001L",107,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0CE001L",108,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE001L",109,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0CE001L",110,0)
+ s id=""
+"RTN","C0CE001L",111,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0CE001L",112,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE001L",113,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0CE001L",114,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0CE001L",115,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0CE001L",116,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0CE001L",117,0)
+ w " }"_""
+"RTN","C0CE001L",118,0)
+ w ""_$c(13,10)
+"RTN","C0CE001L",119,0)
+ QUIT
+"RTN","C0CE002")
+0^5^B19002031
+"RTN","C0CE002",1,0)
+ ;GT.M version of page ccr (patientportal application)
+"RTN","C0CE002",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
+"RTN","C0CE002",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE002",4,0)
+ QUIT
+"RTN","C0CE002",5,0)
+ ;
+"RTN","C0CE002",6,0)
+run ;
+"RTN","C0CE002",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE002",8,0)
+ s ok=$$pre()
+"RTN","C0CE002",9,0)
+ i ok d body
+"RTN","C0CE002",10,0)
+ QUIT
+"RTN","C0CE002",11,0)
+ ;
+"RTN","C0CE002",12,0)
+pre() ;
+"RTN","C0CE002",13,0)
+ ;
+"RTN","C0CE002",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE002",15,0)
+ ;
+"RTN","C0CE002",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE002",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE002",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE002",19,0)
+ s sessionArray("ewd_prePageScript")="TEST2^C0CRICH"
+"RTN","C0CE002",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE002",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE002",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE002",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE002",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE002",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE002",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE002",27,0)
+ s sessionArray("ewd_pageName")="ccr"
+"RTN","C0CE002",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE002",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE002",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE002",31,0)
+ s Error=$$startSession^%zewdPHP("ccr",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE002",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE002",33,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE002",34,0)
+ s headers("Content-type")="text/xml"
+"RTN","C0CE002",35,0)
+ d mergeArrayToSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE002",36,0)
+ k headers
+"RTN","C0CE002",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE002",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE002",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE002",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE002",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE002",42,0)
+ . n errorPage
+"RTN","C0CE002",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE002",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE002",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE002",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE002",47,0)
+ s stop=0
+"RTN","C0CE002",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE002",49,0)
+ . n nextpage
+"RTN","C0CE002",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE002",51,0)
+ . i nextpage'="" d
+"RTN","C0CE002",52,0)
+ . . n x
+"RTN","C0CE002",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE002",54,0)
+ . . s stop=1
+"RTN","C0CE002",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE002",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE002",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE002",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE002",59,0)
+ s ctype="text/html"
+"RTN","C0CE002",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE002",61,0)
+ i $d(headers) d
+"RTN","C0CE002",62,0)
+ . n lcname,name
+"RTN","C0CE002",63,0)
+ . s name=""
+"RTN","C0CE002",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE002",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE002",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE002",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE002",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE002",69,0)
+ w $c(13,10)
+"RTN","C0CE002",70,0)
+ QUIT 1
+"RTN","C0CE002",71,0)
+ ;
+"RTN","C0CE002",72,0)
+body ;
+"RTN","C0CE002",73,0)
+ s no=""
+"RTN","C0CE002",74,0)
+ i no?1N.N s no=no-1
+"RTN","C0CE002",75,0)
+ i no?1AP.ANP d
+"RTN","C0CE002",76,0)
+ . s p1=$e(no,1,$l(no)-1)
+"RTN","C0CE002",77,0)
+ . s p2=$e(no,$l(no))
+"RTN","C0CE002",78,0)
+ . s p2=$c($a(p2)-1)
+"RTN","C0CE002",79,0)
+ . s no=p1_p2
+"RTN","C0CE002",80,0)
+ s nul=""
+"RTN","C0CE002",81,0)
+ s endValue12=""
+"RTN","C0CE002",82,0)
+ i endValue12?1N.N s endValue12=endValue12+1
+"RTN","C0CE002",83,0)
+ f q:'(($o(^%zewdSession("session",sessid,"CCR",no))'=endValue12)&($o(^%zewdSession("session",sessid,"CCR",no))'=nul)) d
+"RTN","C0CE002",84,0)
+ .s no=$o(^%zewdSession("session",sessid,"CCR",no))
+"RTN","C0CE002",85,0)
+ .s data=$g(^%zewdSession("session",sessid,"CCR",no))
+"RTN","C0CE002",86,0)
+ .w data
+"RTN","C0CE002",87,0)
+ .
+"RTN","C0CE002",88,0)
+ QUIT
+"RTN","C0CE003")
+0^11^B16186512
+"RTN","C0CE003",1,0)
+ ;GT.M version of page ccr2 (patientportal application)
+"RTN","C0CE003",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
+"RTN","C0CE003",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE003",4,0)
+ QUIT
+"RTN","C0CE003",5,0)
+ ;
+"RTN","C0CE003",6,0)
+run ;
+"RTN","C0CE003",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE003",8,0)
+ s ok=$$pre()
+"RTN","C0CE003",9,0)
+ i ok d body
+"RTN","C0CE003",10,0)
+ QUIT
+"RTN","C0CE003",11,0)
+ ;
+"RTN","C0CE003",12,0)
+pre() ;
+"RTN","C0CE003",13,0)
+ ;
+"RTN","C0CE003",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE003",15,0)
+ ;
+"RTN","C0CE003",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE003",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE003",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE003",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE003",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE003",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE003",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE003",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE003",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE003",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE003",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE003",27,0)
+ s sessionArray("ewd_pageName")="ccr2"
+"RTN","C0CE003",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE003",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE003",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE003",31,0)
+ s Error=$$startSession^%zewdPHP("ccr2",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE003",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE003",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE003",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE003",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE003",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE003",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE003",38,0)
+ . n errorPage
+"RTN","C0CE003",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE003",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE003",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE003",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE003",43,0)
+ s stop=0
+"RTN","C0CE003",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE003",45,0)
+ . n nextpage
+"RTN","C0CE003",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE003",47,0)
+ . i nextpage'="" d
+"RTN","C0CE003",48,0)
+ . . n x
+"RTN","C0CE003",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE003",50,0)
+ . . s stop=1
+"RTN","C0CE003",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE003",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE003",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE003",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE003",55,0)
+ s ctype="text/html"
+"RTN","C0CE003",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE003",57,0)
+ i $d(headers) d
+"RTN","C0CE003",58,0)
+ . n lcname,name
+"RTN","C0CE003",59,0)
+ . s name=""
+"RTN","C0CE003",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE003",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE003",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE003",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE003",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE003",65,0)
+ w $c(13,10)
+"RTN","C0CE003",66,0)
+ QUIT 1
+"RTN","C0CE003",67,0)
+ ;
+"RTN","C0CE003",68,0)
+body ;
+"RTN","C0CE003",69,0)
+ w ""_$c(13,10)
+"RTN","C0CE003",70,0)
+ w " "_$c(13,10)
+"RTN","C0CE003",71,0)
+ w "hello world"_""
+"RTN","C0CE003",72,0)
+ w " "_$c(13,10)
+"RTN","C0CE003",73,0)
+ w ""_$c(13,10)
+"RTN","C0CE003",74,0)
+ QUIT
+"RTN","C0CE004")
+0^6^B14016611
+"RTN","C0CE004",1,0)
+ ;GT.M version of page ccr-exe (patientportal application)
+"RTN","C0CE004",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
+"RTN","C0CE004",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE004",4,0)
+ QUIT
+"RTN","C0CE004",5,0)
+ ;
+"RTN","C0CE004",6,0)
+run ;
+"RTN","C0CE004",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE004",8,0)
+ s ok=$$pre()
+"RTN","C0CE004",9,0)
+ i ok d body
+"RTN","C0CE004",10,0)
+ QUIT
+"RTN","C0CE004",11,0)
+ ;
+"RTN","C0CE004",12,0)
+pre() ;
+"RTN","C0CE004",13,0)
+ ;
+"RTN","C0CE004",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE004",15,0)
+ ;
+"RTN","C0CE004",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE004",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE004",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE004",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE004",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE004",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE004",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE004",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE004",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE004",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE004",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE004",27,0)
+ s sessionArray("ewd_pageName")="ccr-exe"
+"RTN","C0CE004",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE004",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE004",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE004",31,0)
+ s Error=$$startSession^%zewdPHP("ccr-exe",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE004",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE004",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE004",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE004",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE004",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE004",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE004",38,0)
+ . n errorPage
+"RTN","C0CE004",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE004",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE004",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE004",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE004",43,0)
+ s stop=0
+"RTN","C0CE004",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE004",45,0)
+ . n nextpage
+"RTN","C0CE004",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE004",47,0)
+ . i nextpage'="" d
+"RTN","C0CE004",48,0)
+ . . n x
+"RTN","C0CE004",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE004",50,0)
+ . . s stop=1
+"RTN","C0CE004",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE004",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE004",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE004",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE004",55,0)
+ s ctype="text/html"
+"RTN","C0CE004",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE004",57,0)
+ i $d(headers) d
+"RTN","C0CE004",58,0)
+ . n lcname,name
+"RTN","C0CE004",59,0)
+ . s name=""
+"RTN","C0CE004",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE004",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE004",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE004",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE004",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE004",65,0)
+ w $c(13,10)
+"RTN","C0CE004",66,0)
+ QUIT 1
+"RTN","C0CE004",67,0)
+ ;
+"RTN","C0CE004",68,0)
+body ;
+"RTN","C0CE004",69,0)
+ d gpltest^C0CRICH("")
+"RTN","C0CE004",70,0)
+ QUIT
+"RTN","C0CE005")
+0^12^B80810317
+"RTN","C0CE005",1,0)
+ ;GT.M version of page Second (patientportal application)
+"RTN","C0CE005",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
+"RTN","C0CE005",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE005",4,0)
+ QUIT
+"RTN","C0CE005",5,0)
+ ;
+"RTN","C0CE005",6,0)
+run ;
+"RTN","C0CE005",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE005",8,0)
+ s ok=$$pre()
+"RTN","C0CE005",9,0)
+ i ok d body
+"RTN","C0CE005",10,0)
+ QUIT
+"RTN","C0CE005",11,0)
+ ;
+"RTN","C0CE005",12,0)
+pre() ;
+"RTN","C0CE005",13,0)
+ ;
+"RTN","C0CE005",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE005",15,0)
+ ;
+"RTN","C0CE005",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE005",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE005",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE005",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE005",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE005",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE005",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE005",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE005",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE005",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE005",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE005",27,0)
+ s sessionArray("ewd_pageName")="Second"
+"RTN","C0CE005",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE005",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE005",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE005",31,0)
+ s tokens("First")=$$setNextPageToken^%zewdGTMRuntime("First")
+"RTN","C0CE005",32,0)
+ s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
+"RTN","C0CE005",33,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE005",34,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE005",35,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE005",36,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE005",37,0)
+ s Error=$$startSession^%zewdPHP("Second",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE005",38,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE005",39,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE005",40,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE005",41,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE005",42,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE005",43,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE005",44,0)
+ . n errorPage
+"RTN","C0CE005",45,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE005",46,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE005",47,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE005",48,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE005",49,0)
+ s stop=0
+"RTN","C0CE005",50,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE005",51,0)
+ . n nextpage
+"RTN","C0CE005",52,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE005",53,0)
+ . i nextpage'="" d
+"RTN","C0CE005",54,0)
+ . . n x
+"RTN","C0CE005",55,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE005",56,0)
+ . . s stop=1
+"RTN","C0CE005",57,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE005",58,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE005",59,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE005",60,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE005",61,0)
+ s ctype="text/html"
+"RTN","C0CE005",62,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE005",63,0)
+ i $d(headers) d
+"RTN","C0CE005",64,0)
+ . n lcname,name
+"RTN","C0CE005",65,0)
+ . s name=""
+"RTN","C0CE005",66,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE005",67,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE005",68,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE005",69,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE005",70,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE005",71,0)
+ w $c(13,10)
+"RTN","C0CE005",72,0)
+ QUIT 1
+"RTN","C0CE005",73,0)
+ ;
+"RTN","C0CE005",74,0)
+body ;
+"RTN","C0CE005",75,0)
+ w ""_$c(13,10)
+"RTN","C0CE005",76,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",77,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",78,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",80,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",81,0)
+ w "The second EWD Page"_""
+"RTN","C0CE005",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",83,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",90,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",137,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",138,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",139,0)
+ w "
"_$c(13,10)
+"RTN","C0CE005",140,0)
+ w "This page is not a ""first"" page"_""
+"RTN","C0CE005",141,0)
+ w "
"_$c(13,10)
+"RTN","C0CE005",150,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",151,0)
+ w "
"_$c(13,10)
+"RTN","C0CE005",152,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",153,0)
+ w ""_$c(13,10)
+"RTN","C0CE005",154,0)
+ QUIT
+"RTN","C0CE006")
+0^7^B77594981
+"RTN","C0CE006",1,0)
+ ;GT.M version of page session (patientportal application)
+"RTN","C0CE006",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 2
+"RTN","C0CE006",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE006",4,0)
+ QUIT
+"RTN","C0CE006",5,0)
+ ;
+"RTN","C0CE006",6,0)
+run ;
+"RTN","C0CE006",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE006",8,0)
+ s ok=$$pre()
+"RTN","C0CE006",9,0)
+ i ok d body
+"RTN","C0CE006",10,0)
+ QUIT
+"RTN","C0CE006",11,0)
+ ;
+"RTN","C0CE006",12,0)
+pre() ;
+"RTN","C0CE006",13,0)
+ ;
+"RTN","C0CE006",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE006",15,0)
+ ;
+"RTN","C0CE006",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE006",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE006",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE006",19,0)
+ s sessionArray("ewd_prePageScript")="TEST^RICHEWDTEST"
+"RTN","C0CE006",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE006",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE006",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE006",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE006",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE006",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE006",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE006",27,0)
+ s sessionArray("ewd_pageName")="session"
+"RTN","C0CE006",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE006",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE006",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE006",31,0)
+ s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
+"RTN","C0CE006",32,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE006",33,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE006",34,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE006",35,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE006",36,0)
+ s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE006",37,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE006",38,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE006",39,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE006",40,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE006",41,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE006",42,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE006",43,0)
+ . n errorPage
+"RTN","C0CE006",44,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE006",45,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE006",46,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE006",47,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE006",48,0)
+ s stop=0
+"RTN","C0CE006",49,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE006",50,0)
+ . n nextpage
+"RTN","C0CE006",51,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE006",52,0)
+ . i nextpage'="" d
+"RTN","C0CE006",53,0)
+ . . n x
+"RTN","C0CE006",54,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE006",55,0)
+ . . s stop=1
+"RTN","C0CE006",56,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE006",57,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE006",58,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE006",59,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE006",60,0)
+ s ctype="text/html"
+"RTN","C0CE006",61,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE006",62,0)
+ i $d(headers) d
+"RTN","C0CE006",63,0)
+ . n lcname,name
+"RTN","C0CE006",64,0)
+ . s name=""
+"RTN","C0CE006",65,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE006",66,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE006",67,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE006",68,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE006",69,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE006",70,0)
+ w $c(13,10)
+"RTN","C0CE006",71,0)
+ QUIT 1
+"RTN","C0CE006",72,0)
+ ;
+"RTN","C0CE006",73,0)
+body ;
+"RTN","C0CE006",74,0)
+ w ""_$c(13,10)
+"RTN","C0CE006",75,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",76,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",77,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",79,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",80,0)
+ w "EWD Page using Session Variables and a PrePage Script"_""
+"RTN","C0CE006",81,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",89,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",136,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",137,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",138,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",139,0)
+ w "This page accesses EWD Session Variables"_""
+"RTN","C0CE006",140,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",141,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",142,0)
+ w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
+"RTN","C0CE006",143,0)
+ w "
+"DATA",70050,16,1,8,0)
+test1 page
+"DATA",70050,16,1,9,0)
+
+"DATA",70050,16,1,10,0)
+
+"DATA",70050,17,0)
+23412^screenman^test1.m
+"DATA",70050,17,1,0)
+^^25^25^3100301^
+"DATA",70050,17,1,1,0)
+
+"DATA",70050,17,1,2,0)
+
+"DATA",70050,17,1,3,0)
+
+"DATA",70050,17,1,4,0)
+
+"DATA",70050,17,1,9,0)
+Screenman Test
+"DATA",70050,17,1,10,0)
+
+"DATA",70050,17,1,11,0)
+
+"DATA",70050,17,1,12,0)
+
+"DATA",70050,17,1,24,0)
+
+"DATA",70050,17,1,25,0)
+
+"FIA",70050)
+C0EWD ROUTINE MAP
+"FIA",70050,0)
+^C0E(70050,
+"FIA",70050,0,0)
+70050PI
+"FIA",70050,0,1)
+y^y^f^^n^^y^o^n
+"FIA",70050,0,10)
+
+"FIA",70050,0,11)
+
+"FIA",70050,0,"RLRO")
+
+"FIA",70050,70050)
+0
+"FIA",70050,70050.01)
+0
+"FIA",70050,70050.02)
+0
+"IX",70050,70050,"AZEWD",0)
+70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
+"IX",70050,70050,"AZEWD",1)
+D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",2)
+D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",11.1,0)
+^.114IA^3^3
+"IX",70050,70050,"AZEWD",11.1,1,0)
+1^F^70050^.01^^^F
+"IX",70050,70050,"AZEWD",11.1,2,0)
+2^F^70050^.02^^^F
+"IX",70050,70050,"AZEWD",11.1,3,0)
+3^F^70050^.03^^^F
+"IX",70050,70050,"C",0)
+70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
+"IX",70050,70050,"C",1)
+S ^C0E(70050,"C",$E(X,1,60),DA)=""
+"IX",70050,70050,"C",2)
+K ^C0E(70050,"C",$E(X,1,60),DA)
+"IX",70050,70050,"C",2.5)
+K ^C0E(70050,"C")
+"IX",70050,70050,"C",11.1,0)
+^.114IA^1^1
+"IX",70050,70050,"C",11.1,1,0)
+1^F^70050^.03^60^1^F
+"IX",70050,70050,"C",11.1,1,3)
+
+"KRN",.401,1795,-1)
+0^1
+"KRN",.401,1795,0)
+C0CE0 PATIENT PORTAL^3100302.0028^@^70050^^@^3100302
+"KRN",.401,1795,2,0)
+^.4014^1^1
+"KRN",.401,1795,2,1,0)
+70050^.02^EWD APPLICATION^^^^^^^4
+"KRN",.401,1795,2,1,"F")
+patientportakz^patientportal
+"KRN",.401,1795,2,1,"GET")
+S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
+"KRN",.401,1795,2,1,"QCON")
+I DISX(1)="patientportal"
+"KRN",.401,1795,2,1,"T")
+patientportal^patientportal
+"KRN",.401,1795,2,1,"TXT")
+EWD APPLICATION equals patientportal
+"KRN",.401,1795,2,"B",70050,1)
+
+"MBREQ")
+0
+"ORD",6,.401)
+.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,"",%)
+"ORD",6,.401,0)
+SORT TEMPLATE
+"QUES","XPF1",0)
+Y
+"QUES","XPF1","??")
+^D REP^XPDH
+"QUES","XPF1","A")
+Shall I write over your |FLAG| File
+"QUES","XPF1","B")
+YES
+"QUES","XPF1","M")
+D XPF1^XPDIQ
+"QUES","XPF2",0)
+Y
+"QUES","XPF2","??")
+^D DTA^XPDH
+"QUES","XPF2","A")
+Want my data |FLAG| yours
+"QUES","XPF2","B")
+YES
+"QUES","XPF2","M")
+D XPF2^XPDIQ
+"QUES","XPI1",0)
+YO
+"QUES","XPI1","??")
+^D INHIBIT^XPDH
+"QUES","XPI1","A")
+Want KIDS to INHIBIT LOGONs during the install
+"QUES","XPI1","B")
+NO
+"QUES","XPI1","M")
+D XPI1^XPDIQ
+"QUES","XPM1",0)
+PO^VA(200,:EM
+"QUES","XPM1","??")
+^D MG^XPDH
+"QUES","XPM1","A")
+Enter the Coordinator for Mail Group '|FLAG|'
+"QUES","XPM1","B")
+
+"QUES","XPM1","M")
+D XPM1^XPDIQ
+"QUES","XPO1",0)
+Y
+"QUES","XPO1","??")
+^D MENU^XPDH
+"QUES","XPO1","A")
+Want KIDS to Rebuild Menu Trees Upon Completion of Install
+"QUES","XPO1","B")
+NO
+"QUES","XPO1","M")
+D XPO1^XPDIQ
+"QUES","XPZ1",0)
+Y
+"QUES","XPZ1","??")
+^D OPT^XPDH
+"QUES","XPZ1","A")
+Want to DISABLE Scheduled Options, Menu Options, and Protocols
+"QUES","XPZ1","B")
+NO
+"QUES","XPZ1","M")
+D XPZ1^XPDIQ
+"QUES","XPZ2",0)
+Y
+"QUES","XPZ2","??")
+^D RTN^XPDH
+"QUES","XPZ2","A")
+Want to MOVE routines to other CPUs
+"QUES","XPZ2","B")
+NO
+"QUES","XPZ2","M")
+D XPZ2^XPDIQ
+"RTN")
+13
+"RTN","C0CE000A")
+0^3^B14831539
+"RTN","C0CE000A",1,0)
+ ;GT.M version of page ewdAjaxError (patientportal application)
+"RTN","C0CE000A",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
+"RTN","C0CE000A",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000A",4,0)
+ QUIT
+"RTN","C0CE000A",5,0)
+ ;
+"RTN","C0CE000A",6,0)
+run ;
+"RTN","C0CE000A",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000A",8,0)
+ s ok=$$pre()
+"RTN","C0CE000A",9,0)
+ i ok d body
+"RTN","C0CE000A",10,0)
+ QUIT
+"RTN","C0CE000A",11,0)
+ ;
+"RTN","C0CE000A",12,0)
+pre() ;
+"RTN","C0CE000A",13,0)
+ ;
+"RTN","C0CE000A",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000A",15,0)
+ ;
+"RTN","C0CE000A",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE000A",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0CE000A",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE000A",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE000A",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE000A",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE000A",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE000A",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE000A",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE000A",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE000A",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE000A",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxError"
+"RTN","C0CE000A",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE000A",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE000A",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE000A",31,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE000A",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE000A",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE000A",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE000A",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE000A",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE000A",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE000A",38,0)
+ . n errorPage
+"RTN","C0CE000A",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE000A",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE000A",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE000A",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE000A",43,0)
+ s stop=0
+"RTN","C0CE000A",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE000A",45,0)
+ . n nextpage
+"RTN","C0CE000A",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE000A",47,0)
+ . i nextpage'="" d
+"RTN","C0CE000A",48,0)
+ . . n x
+"RTN","C0CE000A",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE000A",50,0)
+ . . s stop=1
+"RTN","C0CE000A",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE000A",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000A",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000A",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000A",55,0)
+ s ctype="text/html"
+"RTN","C0CE000A",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE000A",57,0)
+ i $d(headers) d
+"RTN","C0CE000A",58,0)
+ . n lcname,name
+"RTN","C0CE000A",59,0)
+ . s name=""
+"RTN","C0CE000A",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE000A",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE000A",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE000A",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE000A",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE000A",65,0)
+ w $c(13,10)
+"RTN","C0CE000A",66,0)
+ QUIT 1
+"RTN","C0CE000A",67,0)
+ ;
+"RTN","C0CE000A",68,0)
+body ;
+"RTN","C0CE000A",69,0)
+ w ""_$c(13,10)
+"RTN","C0CE000A",70,0)
+ w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
+"RTN","C0CE000A",71,0)
+ w ""_$c(13,10)
+"RTN","C0CE000A",72,0)
+ QUIT
+"RTN","C0CE000E")
+0^8^B27501668
+"RTN","C0CE000E",1,0)
+ ;GT.M version of page ewdError (patientportal application)
+"RTN","C0CE000E",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 3
+"RTN","C0CE000E",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000E",4,0)
+ QUIT
+"RTN","C0CE000E",5,0)
+ ;
+"RTN","C0CE000E",6,0)
+run ;
+"RTN","C0CE000E",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000E",8,0)
+ s ok=$$pre()
+"RTN","C0CE000E",9,0)
+ i ok d body
+"RTN","C0CE000E",10,0)
+ QUIT
+"RTN","C0CE000E",11,0)
+ ;
+"RTN","C0CE000E",12,0)
+pre() ;
+"RTN","C0CE000E",13,0)
+ ;
+"RTN","C0CE000E",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000E",15,0)
+ ;
+"RTN","C0CE000E",16,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000E",17,0)
+ w "Content-type: text/html"_$c(13,10,13,10)
+"RTN","C0CE000E",18,0)
+ QUIT 1
+"RTN","C0CE000E",19,0)
+ ;
+"RTN","C0CE000E",20,0)
+body ;
+"RTN","C0CE000E",21,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",22,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",23,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",24,0)
+ w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
+"RTN","C0CE000E",25,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",43,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",44,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",45,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",46,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",47,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",48,0)
+ w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
+"RTN","C0CE000E",49,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",50,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",51,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",52,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",53,0)
+ w "
An Error has occurred
"_$c(13,10)
+"RTN","C0CE000E",54,0)
+ w " "_$c(13,10)
+"RTN","C0CE000E",55,0)
+ w "
"_$g(%KEY("error"))_"
"_$c(13,10)
+"RTN","C0CE000E",56,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",57,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",58,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",59,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",60,0)
+ w " "_$c(13,10)
+"RTN","C0CE000E",63,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",64,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",65,0)
+ QUIT
+"RTN","C0CE000F")
+0^4^B32715806
+"RTN","C0CE000F",1,0)
+ ;GT.M version of page ewdAjaxErrorRedirect (patientportal application)
+"RTN","C0CE000F",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
+"RTN","C0CE000F",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000F",4,0)
+ QUIT
+"RTN","C0CE000F",5,0)
+ ;
+"RTN","C0CE000F",6,0)
+run ;
+"RTN","C0CE000F",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000F",8,0)
+ s ok=$$pre()
+"RTN","C0CE000F",9,0)
+ i ok d body
+"RTN","C0CE000F",10,0)
+ QUIT
+"RTN","C0CE000F",11,0)
+ ;
+"RTN","C0CE000F",12,0)
+pre() ;
+"RTN","C0CE000F",13,0)
+ ;
+"RTN","C0CE000F",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000F",15,0)
+ ;
+"RTN","C0CE000F",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE000F",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE000F",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE000F",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE000F",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE000F",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE000F",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE000F",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE000F",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE000F",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE000F",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE000F",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
+"RTN","C0CE000F",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE000F",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE000F",30,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0CE000F",31,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0CE000F",32,0)
+ s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
+"RTN","C0CE000F",33,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE000F",34,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE000F",35,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE000F",36,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE000F",37,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE000F",38,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE000F",39,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE000F",40,0)
+ . n errorPage
+"RTN","C0CE000F",41,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE000F",42,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE000F",43,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE000F",44,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE000F",45,0)
+ s stop=0
+"RTN","C0CE000F",46,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE000F",47,0)
+ . n nextpage
+"RTN","C0CE000F",48,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE000F",49,0)
+ . i nextpage'="" d
+"RTN","C0CE000F",50,0)
+ . . n x
+"RTN","C0CE000F",51,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE000F",52,0)
+ . . s stop=1
+"RTN","C0CE000F",53,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE000F",54,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000F",55,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000F",56,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000F",57,0)
+ s ctype="text/html"
+"RTN","C0CE000F",58,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE000F",59,0)
+ i $d(headers) d
+"RTN","C0CE000F",60,0)
+ . n lcname,name
+"RTN","C0CE000F",61,0)
+ . s name=""
+"RTN","C0CE000F",62,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE000F",63,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE000F",64,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE000F",65,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE000F",66,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE000F",67,0)
+ w $c(13,10)
+"RTN","C0CE000F",68,0)
+ QUIT 1
+"RTN","C0CE000F",69,0)
+ ;
+"RTN","C0CE000F",70,0)
+body ;
+"RTN","C0CE000F",71,0)
+ if ($g(Error)="") d
+"RTN","C0CE000F",72,0)
+ .w " "_$c(13,10)
+"RTN","C0CE000F",73,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE000F",74,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE000F",75,0)
+ .w " "_$c(13,10)
+"RTN","C0CE000F",76,0)
+ .
+"RTN","C0CE000F",77,0)
+ w ""_$c(13,10)
+"RTN","C0CE000F",78,0)
+ 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)
+"RTN","C0CE000F",79,0)
+ s id=""
+"RTN","C0CE000F",80,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0CE000F",81,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE000F",82,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0CE000F",83,0)
+ s id=""
+"RTN","C0CE000F",84,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0CE000F",85,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE000F",86,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0CE000F",87,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0CE000F",88,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0CE000F",89,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0CE000F",90,0)
+ w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
+"RTN","C0CE000F",91,0)
+ w ""_$c(13,10)
+"RTN","C0CE000F",92,0)
+ QUIT
+"RTN","C0CE000R")
+0^9^B66701996
+"RTN","C0CE000R",1,0)
+ ;GT.M version of page ewdErrorRedirect (patientportal application)
+"RTN","C0CE000R",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
+"RTN","C0CE000R",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000R",4,0)
+ QUIT
+"RTN","C0CE000R",5,0)
+ ;
+"RTN","C0CE000R",6,0)
+run ;
+"RTN","C0CE000R",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000R",8,0)
+ s ok=$$pre()
+"RTN","C0CE000R",9,0)
+ i ok d body
+"RTN","C0CE000R",10,0)
+ QUIT
+"RTN","C0CE000R",11,0)
+ ;
+"RTN","C0CE000R",12,0)
+pre() ;
+"RTN","C0CE000R",13,0)
+ ;
+"RTN","C0CE000R",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000R",15,0)
+ ;
+"RTN","C0CE000R",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE000R",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE000R",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE000R",19,0)
+ s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
+"RTN","C0CE000R",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE000R",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE000R",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE000R",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE000R",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE000R",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE000R",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE000R",27,0)
+ s sessionArray("ewd_pageName")="ewdErrorRedirect"
+"RTN","C0CE000R",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE000R",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE000R",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE000R",31,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE000R",32,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE000R",33,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE000R",34,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE000R",35,0)
+ s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE000R",36,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE000R",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE000R",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE000R",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE000R",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE000R",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE000R",42,0)
+ . n errorPage
+"RTN","C0CE000R",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE000R",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE000R",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE000R",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE000R",47,0)
+ s stop=0
+"RTN","C0CE000R",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE000R",49,0)
+ . n nextpage
+"RTN","C0CE000R",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE000R",51,0)
+ . i nextpage'="" d
+"RTN","C0CE000R",52,0)
+ . . n x
+"RTN","C0CE000R",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE000R",54,0)
+ . . s stop=1
+"RTN","C0CE000R",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE000R",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000R",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000R",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000R",59,0)
+ s ctype="text/html"
+"RTN","C0CE000R",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE000R",61,0)
+ i $d(headers) d
+"RTN","C0CE000R",62,0)
+ . n lcname,name
+"RTN","C0CE000R",63,0)
+ . s name=""
+"RTN","C0CE000R",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE000R",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE000R",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE000R",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE000R",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE000R",69,0)
+ w $c(13,10)
+"RTN","C0CE000R",70,0)
+ QUIT 1
+"RTN","C0CE000R",71,0)
+ ;
+"RTN","C0CE000R",72,0)
+body ;
+"RTN","C0CE000R",73,0)
+ w ""_$c(13,10)
+"RTN","C0CE000R",74,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",75,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",76,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",78,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",79,0)
+ w "Ajax Error Redirect page"_""
+"RTN","C0CE000R",80,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",81,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",83,0)
+ w "Please wait...."_""
+"RTN","C0CE000R",84,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",85,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",86,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",133,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",134,0)
+ w ""_$c(13,10)
+"RTN","C0CE000R",135,0)
+ QUIT
+"RTN","C0CE001I")
+0^2^B97883042
+"RTN","C0CE001I",1,0)
+ ;GT.M version of page index (patientportal application)
+"RTN","C0CE001I",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
+"RTN","C0CE001I",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE001I",4,0)
+ QUIT
+"RTN","C0CE001I",5,0)
+ ;
+"RTN","C0CE001I",6,0)
+run ;
+"RTN","C0CE001I",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE001I",8,0)
+ s ok=$$pre()
+"RTN","C0CE001I",9,0)
+ i ok d body
+"RTN","C0CE001I",10,0)
+ QUIT
+"RTN","C0CE001I",11,0)
+ ;
+"RTN","C0CE001I",12,0)
+pre() ;
+"RTN","C0CE001I",13,0)
+ ;
+"RTN","C0CE001I",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE001I",15,0)
+ ;
+"RTN","C0CE001I",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE001I",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0CE001I",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE001I",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE001I",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE001I",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE001I",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE001I",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE001I",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE001I",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE001I",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE001I",27,0)
+ s sessionArray("ewd_pageName")="index"
+"RTN","C0CE001I",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE001I",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE001I",30,0)
+ s sessionArray("ewd_header","Expires")=0
+"RTN","C0CE001I",31,0)
+ s sessionArray("ewd_header","Cache-Control")="no-cache"
+"RTN","C0CE001I",32,0)
+ s sessionArray("ewd_header","Pragma")="no-cache"
+"RTN","C0CE001I",33,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE001I",34,0)
+ s tokens("ccr")=$$setNextPageToken^%zewdGTMRuntime("ccr")
+"RTN","C0CE001I",35,0)
+ s tokens("ccr2")=$$setNextPageToken^%zewdGTMRuntime("ccr2")
+"RTN","C0CE001I",36,0)
+ s tokens("ccrexe")=$$setNextPageToken^%zewdGTMRuntime("ccrexe")
+"RTN","C0CE001I",37,0)
+ s tokens("loginPanel")=$$setNextPageToken^%zewdGTMRuntime("loginPanel")
+"RTN","C0CE001I",38,0)
+ s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
+"RTN","C0CE001I",39,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE001I",40,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE001I",41,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE001I",42,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE001I",43,0)
+ s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE001I",44,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE001I",45,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE001I",46,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE001I",47,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE001I",48,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE001I",49,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE001I",50,0)
+ . n errorPage
+"RTN","C0CE001I",51,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE001I",52,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE001I",53,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE001I",54,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE001I",55,0)
+ s stop=0
+"RTN","C0CE001I",56,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE001I",57,0)
+ . n nextpage
+"RTN","C0CE001I",58,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE001I",59,0)
+ . i nextpage'="" d
+"RTN","C0CE001I",60,0)
+ . . n x
+"RTN","C0CE001I",61,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE001I",62,0)
+ . . s stop=1
+"RTN","C0CE001I",63,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE001I",64,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001I",65,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001I",66,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE001I",67,0)
+ s ctype="text/html"
+"RTN","C0CE001I",68,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE001I",69,0)
+ i $d(headers) d
+"RTN","C0CE001I",70,0)
+ . n lcname,name
+"RTN","C0CE001I",71,0)
+ . s name=""
+"RTN","C0CE001I",72,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE001I",73,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE001I",74,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE001I",75,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE001I",76,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE001I",77,0)
+ w $c(13,10)
+"RTN","C0CE001I",78,0)
+ QUIT 1
+"RTN","C0CE001I",79,0)
+ ;
+"RTN","C0CE001I",80,0)
+body ;
+"RTN","C0CE001I",81,0)
+ w ""_$c(13,10)
+"RTN","C0CE001I",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",83,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",84,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",86,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",87,0)
+ w "The start EWD Page"_""
+"RTN","C0CE001I",88,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",89,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",97,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",144,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",145,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",146,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",147,0)
+ w "This page is the first page in this application"_""
+"RTN","C0CE001I",148,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",149,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",150,0)
+ w "Login"_""
+"RTN","C0CE001I",151,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",172,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",173,0)
+ w ""_$c(13,10)
+"RTN","C0CE001I",174,0)
+ QUIT
+"RTN","C0CE001L")
+0^10^B51144421
+"RTN","C0CE001L",1,0)
+ ;GT.M version of page loginPanel (patientportal application)
+"RTN","C0CE001L",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 3
+"RTN","C0CE001L",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE001L",4,0)
+ QUIT
+"RTN","C0CE001L",5,0)
+ ;
+"RTN","C0CE001L",6,0)
+run ;
+"RTN","C0CE001L",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE001L",8,0)
+ s ok=$$pre()
+"RTN","C0CE001L",9,0)
+ i ok d body
+"RTN","C0CE001L",10,0)
+ QUIT
+"RTN","C0CE001L",11,0)
+ ;
+"RTN","C0CE001L",12,0)
+pre() ;
+"RTN","C0CE001L",13,0)
+ ;
+"RTN","C0CE001L",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE001L",15,0)
+ ;
+"RTN","C0CE001L",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE001L",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE001L",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE001L",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE001L",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE001L",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE001L",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE001L",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE001L",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE001L",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE001L",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE001L",27,0)
+ s sessionArray("ewd_pageName")="loginPanel"
+"RTN","C0CE001L",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE001L",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE001L",30,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0CE001L",31,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0CE001L",32,0)
+ s Error=$$startSession^%zewdPHP("loginPanel",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE001L",33,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE001L",34,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE001L",35,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE001L",36,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE001L",37,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE001L",38,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE001L",39,0)
+ . n errorPage
+"RTN","C0CE001L",40,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE001L",41,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE001L",42,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE001L",43,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE001L",44,0)
+ s stop=0
+"RTN","C0CE001L",45,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE001L",46,0)
+ . n nextpage
+"RTN","C0CE001L",47,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE001L",48,0)
+ . i nextpage'="" d
+"RTN","C0CE001L",49,0)
+ . . n x
+"RTN","C0CE001L",50,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE001L",51,0)
+ . . s stop=1
+"RTN","C0CE001L",52,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE001L",53,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001L",54,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001L",55,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE001L",56,0)
+ s ctype="text/html"
+"RTN","C0CE001L",57,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE001L",58,0)
+ i $d(headers) d
+"RTN","C0CE001L",59,0)
+ . n lcname,name
+"RTN","C0CE001L",60,0)
+ . s name=""
+"RTN","C0CE001L",61,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE001L",62,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE001L",63,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE001L",64,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE001L",65,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE001L",66,0)
+ w $c(13,10)
+"RTN","C0CE001L",67,0)
+ QUIT 1
+"RTN","C0CE001L",68,0)
+ ;
+"RTN","C0CE001L",69,0)
+body ;
+"RTN","C0CE001L",70,0)
+ if ($g(Error)="") d
+"RTN","C0CE001L",71,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",72,0)
+ .w "EWD.page.yuiResourcePath = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
+"RTN","C0CE001L",73,0)
+ .w "if (EWD.page.yuiResourcePath == '') {"_""
+"RTN","C0CE001L",74,0)
+ .w " alert('Unable to determine path to YUI resource file. Did you run d install^%zewdYUIConf()?') ;"_""
+"RTN","C0CE001L",75,0)
+ .w "}"_""
+"RTN","C0CE001L",76,0)
+ .w "EWD.page.loadResource("""_$$getSessionValue^%zewdAPI("yui.resourceLoaderPath",sessid)_$$getSessionValue^%zewdAPI("yui.resourceLoader",sessid)_""",""js"") ;"_""
+"RTN","C0CE001L",77,0)
+ .w "if (!EWD.yui) alert('YUI Javascript resource file ewdYUIResources.js was not found in the web server root path');"_""
+"RTN","C0CE001L",78,0)
+ .w "if (!EWD.yui.build) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You must be using build 790');"_""
+"RTN","C0CE001L",79,0)
+ .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');"_""
+"RTN","C0CE001L",80,0)
+ .w "EWD.yui.version = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
+"RTN","C0CE001L",81,0)
+ .w "EWD.yui.resourceLoader.Dialog() ;"_""
+"RTN","C0CE001L",82,0)
+ .w "document.getElementsByTagName('body')[0].className = 'yui-skin-sam' ;"_""
+"RTN","C0CE001L",83,0)
+ .w "var fReturnloginPanel7=function() {"_""
+"RTN","C0CE001L",84,0)
+ .w "EWD.yui.widgetIndex[""yuiDialogRegloginPanel7""]={widgetName:""loginPanel7"",tagId:""yuiDialogDivloginPanel7""};"_""
+"RTN","C0CE001L",85,0)
+ .w "EWD.yui.moveDialogToBody('yuiDialogDivloginPanel7');"_""
+"RTN","C0CE001L",86,0)
+ .w "EWD.yui.widget.loginPanel7=new YAHOO.widget.Dialog(""yuiDialogDivloginPanel7"",{iframe:true,width:""270px"",x:150,y:100});"_""
+"RTN","C0CE001L",87,0)
+ .w "EWD.yui.widget.loginPanel7.render();"_""
+"RTN","C0CE001L",88,0)
+ .w "};"_""
+"RTN","C0CE001L",89,0)
+ .w "YAHOO.util.Event.onAvailable(""yuiDialogDivloginPanel7"",fReturnloginPanel7);"_""
+"RTN","C0CE001L",90,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",97,0)
+ .w "Login Form will go here"_""
+"RTN","C0CE001L",98,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",99,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",100,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",101,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",102,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",103,0)
+ .
+"RTN","C0CE001L",104,0)
+ w ""_$c(13,10)
+"RTN","C0CE001L",105,0)
+ 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)
+"RTN","C0CE001L",106,0)
+ s id=""
+"RTN","C0CE001L",107,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0CE001L",108,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE001L",109,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0CE001L",110,0)
+ s id=""
+"RTN","C0CE001L",111,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0CE001L",112,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE001L",113,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0CE001L",114,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0CE001L",115,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0CE001L",116,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0CE001L",117,0)
+ w " }"_""
+"RTN","C0CE001L",118,0)
+ w ""_$c(13,10)
+"RTN","C0CE001L",119,0)
+ QUIT
+"RTN","C0CE002")
+0^5^B19002031
+"RTN","C0CE002",1,0)
+ ;GT.M version of page ccr (patientportal application)
+"RTN","C0CE002",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
+"RTN","C0CE002",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE002",4,0)
+ QUIT
+"RTN","C0CE002",5,0)
+ ;
+"RTN","C0CE002",6,0)
+run ;
+"RTN","C0CE002",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE002",8,0)
+ s ok=$$pre()
+"RTN","C0CE002",9,0)
+ i ok d body
+"RTN","C0CE002",10,0)
+ QUIT
+"RTN","C0CE002",11,0)
+ ;
+"RTN","C0CE002",12,0)
+pre() ;
+"RTN","C0CE002",13,0)
+ ;
+"RTN","C0CE002",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE002",15,0)
+ ;
+"RTN","C0CE002",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE002",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE002",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE002",19,0)
+ s sessionArray("ewd_prePageScript")="TEST2^C0CRICH"
+"RTN","C0CE002",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE002",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE002",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE002",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE002",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE002",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE002",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE002",27,0)
+ s sessionArray("ewd_pageName")="ccr"
+"RTN","C0CE002",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE002",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE002",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE002",31,0)
+ s Error=$$startSession^%zewdPHP("ccr",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE002",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE002",33,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE002",34,0)
+ s headers("Content-type")="text/xml"
+"RTN","C0CE002",35,0)
+ d mergeArrayToSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE002",36,0)
+ k headers
+"RTN","C0CE002",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE002",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE002",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE002",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE002",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE002",42,0)
+ . n errorPage
+"RTN","C0CE002",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE002",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE002",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE002",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE002",47,0)
+ s stop=0
+"RTN","C0CE002",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE002",49,0)
+ . n nextpage
+"RTN","C0CE002",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE002",51,0)
+ . i nextpage'="" d
+"RTN","C0CE002",52,0)
+ . . n x
+"RTN","C0CE002",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE002",54,0)
+ . . s stop=1
+"RTN","C0CE002",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE002",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE002",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE002",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE002",59,0)
+ s ctype="text/html"
+"RTN","C0CE002",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE002",61,0)
+ i $d(headers) d
+"RTN","C0CE002",62,0)
+ . n lcname,name
+"RTN","C0CE002",63,0)
+ . s name=""
+"RTN","C0CE002",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE002",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE002",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE002",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE002",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE002",69,0)
+ w $c(13,10)
+"RTN","C0CE002",70,0)
+ QUIT 1
+"RTN","C0CE002",71,0)
+ ;
+"RTN","C0CE002",72,0)
+body ;
+"RTN","C0CE002",73,0)
+ s no=""
+"RTN","C0CE002",74,0)
+ i no?1N.N s no=no-1
+"RTN","C0CE002",75,0)
+ i no?1AP.ANP d
+"RTN","C0CE002",76,0)
+ . s p1=$e(no,1,$l(no)-1)
+"RTN","C0CE002",77,0)
+ . s p2=$e(no,$l(no))
+"RTN","C0CE002",78,0)
+ . s p2=$c($a(p2)-1)
+"RTN","C0CE002",79,0)
+ . s no=p1_p2
+"RTN","C0CE002",80,0)
+ s nul=""
+"RTN","C0CE002",81,0)
+ s endValue12=""
+"RTN","C0CE002",82,0)
+ i endValue12?1N.N s endValue12=endValue12+1
+"RTN","C0CE002",83,0)
+ f q:'(($o(^%zewdSession("session",sessid,"CCR",no))'=endValue12)&($o(^%zewdSession("session",sessid,"CCR",no))'=nul)) d
+"RTN","C0CE002",84,0)
+ .s no=$o(^%zewdSession("session",sessid,"CCR",no))
+"RTN","C0CE002",85,0)
+ .s data=$g(^%zewdSession("session",sessid,"CCR",no))
+"RTN","C0CE002",86,0)
+ .w data
+"RTN","C0CE002",87,0)
+ .
+"RTN","C0CE002",88,0)
+ QUIT
+"RTN","C0CE003")
+0^11^B16186512
+"RTN","C0CE003",1,0)
+ ;GT.M version of page ccr2 (patientportal application)
+"RTN","C0CE003",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
+"RTN","C0CE003",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE003",4,0)
+ QUIT
+"RTN","C0CE003",5,0)
+ ;
+"RTN","C0CE003",6,0)
+run ;
+"RTN","C0CE003",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE003",8,0)
+ s ok=$$pre()
+"RTN","C0CE003",9,0)
+ i ok d body
+"RTN","C0CE003",10,0)
+ QUIT
+"RTN","C0CE003",11,0)
+ ;
+"RTN","C0CE003",12,0)
+pre() ;
+"RTN","C0CE003",13,0)
+ ;
+"RTN","C0CE003",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE003",15,0)
+ ;
+"RTN","C0CE003",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE003",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE003",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE003",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE003",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE003",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE003",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE003",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE003",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE003",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE003",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE003",27,0)
+ s sessionArray("ewd_pageName")="ccr2"
+"RTN","C0CE003",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE003",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE003",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE003",31,0)
+ s Error=$$startSession^%zewdPHP("ccr2",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE003",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE003",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE003",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE003",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE003",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE003",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE003",38,0)
+ . n errorPage
+"RTN","C0CE003",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE003",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE003",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE003",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE003",43,0)
+ s stop=0
+"RTN","C0CE003",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE003",45,0)
+ . n nextpage
+"RTN","C0CE003",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE003",47,0)
+ . i nextpage'="" d
+"RTN","C0CE003",48,0)
+ . . n x
+"RTN","C0CE003",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE003",50,0)
+ . . s stop=1
+"RTN","C0CE003",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE003",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE003",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE003",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE003",55,0)
+ s ctype="text/html"
+"RTN","C0CE003",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE003",57,0)
+ i $d(headers) d
+"RTN","C0CE003",58,0)
+ . n lcname,name
+"RTN","C0CE003",59,0)
+ . s name=""
+"RTN","C0CE003",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE003",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE003",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE003",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE003",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE003",65,0)
+ w $c(13,10)
+"RTN","C0CE003",66,0)
+ QUIT 1
+"RTN","C0CE003",67,0)
+ ;
+"RTN","C0CE003",68,0)
+body ;
+"RTN","C0CE003",69,0)
+ w ""_$c(13,10)
+"RTN","C0CE003",70,0)
+ w " "_$c(13,10)
+"RTN","C0CE003",71,0)
+ w "hello world"_""
+"RTN","C0CE003",72,0)
+ w " "_$c(13,10)
+"RTN","C0CE003",73,0)
+ w ""_$c(13,10)
+"RTN","C0CE003",74,0)
+ QUIT
+"RTN","C0CE004")
+0^6^B14016611
+"RTN","C0CE004",1,0)
+ ;GT.M version of page ccr-exe (patientportal application)
+"RTN","C0CE004",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
+"RTN","C0CE004",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE004",4,0)
+ QUIT
+"RTN","C0CE004",5,0)
+ ;
+"RTN","C0CE004",6,0)
+run ;
+"RTN","C0CE004",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE004",8,0)
+ s ok=$$pre()
+"RTN","C0CE004",9,0)
+ i ok d body
+"RTN","C0CE004",10,0)
+ QUIT
+"RTN","C0CE004",11,0)
+ ;
+"RTN","C0CE004",12,0)
+pre() ;
+"RTN","C0CE004",13,0)
+ ;
+"RTN","C0CE004",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE004",15,0)
+ ;
+"RTN","C0CE004",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE004",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE004",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE004",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE004",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE004",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE004",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE004",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE004",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE004",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE004",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE004",27,0)
+ s sessionArray("ewd_pageName")="ccr-exe"
+"RTN","C0CE004",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE004",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE004",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE004",31,0)
+ s Error=$$startSession^%zewdPHP("ccr-exe",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE004",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE004",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE004",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE004",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE004",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE004",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE004",38,0)
+ . n errorPage
+"RTN","C0CE004",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE004",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE004",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE004",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE004",43,0)
+ s stop=0
+"RTN","C0CE004",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE004",45,0)
+ . n nextpage
+"RTN","C0CE004",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE004",47,0)
+ . i nextpage'="" d
+"RTN","C0CE004",48,0)
+ . . n x
+"RTN","C0CE004",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE004",50,0)
+ . . s stop=1
+"RTN","C0CE004",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE004",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE004",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE004",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE004",55,0)
+ s ctype="text/html"
+"RTN","C0CE004",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE004",57,0)
+ i $d(headers) d
+"RTN","C0CE004",58,0)
+ . n lcname,name
+"RTN","C0CE004",59,0)
+ . s name=""
+"RTN","C0CE004",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE004",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE004",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE004",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE004",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE004",65,0)
+ w $c(13,10)
+"RTN","C0CE004",66,0)
+ QUIT 1
+"RTN","C0CE004",67,0)
+ ;
+"RTN","C0CE004",68,0)
+body ;
+"RTN","C0CE004",69,0)
+ d gpltest^C0CRICH("")
+"RTN","C0CE004",70,0)
+ QUIT
+"RTN","C0CE005")
+0^12^B80810317
+"RTN","C0CE005",1,0)
+ ;GT.M version of page Second (patientportal application)
+"RTN","C0CE005",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
+"RTN","C0CE005",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE005",4,0)
+ QUIT
+"RTN","C0CE005",5,0)
+ ;
+"RTN","C0CE005",6,0)
+run ;
+"RTN","C0CE005",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE005",8,0)
+ s ok=$$pre()
+"RTN","C0CE005",9,0)
+ i ok d body
+"RTN","C0CE005",10,0)
+ QUIT
+"RTN","C0CE005",11,0)
+ ;
+"RTN","C0CE005",12,0)
+pre() ;
+"RTN","C0CE005",13,0)
+ ;
+"RTN","C0CE005",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE005",15,0)
+ ;
+"RTN","C0CE005",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE005",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE005",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE005",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE005",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE005",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE005",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE005",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE005",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE005",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE005",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE005",27,0)
+ s sessionArray("ewd_pageName")="Second"
+"RTN","C0CE005",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE005",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE005",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE005",31,0)
+ s tokens("First")=$$setNextPageToken^%zewdGTMRuntime("First")
+"RTN","C0CE005",32,0)
+ s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
+"RTN","C0CE005",33,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE005",34,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE005",35,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE005",36,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE005",37,0)
+ s Error=$$startSession^%zewdPHP("Second",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE005",38,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE005",39,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE005",40,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE005",41,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE005",42,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE005",43,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE005",44,0)
+ . n errorPage
+"RTN","C0CE005",45,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE005",46,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE005",47,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE005",48,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE005",49,0)
+ s stop=0
+"RTN","C0CE005",50,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE005",51,0)
+ . n nextpage
+"RTN","C0CE005",52,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE005",53,0)
+ . i nextpage'="" d
+"RTN","C0CE005",54,0)
+ . . n x
+"RTN","C0CE005",55,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE005",56,0)
+ . . s stop=1
+"RTN","C0CE005",57,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE005",58,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE005",59,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE005",60,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE005",61,0)
+ s ctype="text/html"
+"RTN","C0CE005",62,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE005",63,0)
+ i $d(headers) d
+"RTN","C0CE005",64,0)
+ . n lcname,name
+"RTN","C0CE005",65,0)
+ . s name=""
+"RTN","C0CE005",66,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE005",67,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE005",68,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE005",69,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE005",70,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE005",71,0)
+ w $c(13,10)
+"RTN","C0CE005",72,0)
+ QUIT 1
+"RTN","C0CE005",73,0)
+ ;
+"RTN","C0CE005",74,0)
+body ;
+"RTN","C0CE005",75,0)
+ w ""_$c(13,10)
+"RTN","C0CE005",76,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",77,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",78,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",80,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",81,0)
+ w "The second EWD Page"_""
+"RTN","C0CE005",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",83,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",90,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",137,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",138,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",139,0)
+ w "
"_$c(13,10)
+"RTN","C0CE005",140,0)
+ w "This page is not a ""first"" page"_""
+"RTN","C0CE005",141,0)
+ w "
"_$c(13,10)
+"RTN","C0CE005",150,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",151,0)
+ w "
"_$c(13,10)
+"RTN","C0CE005",152,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",153,0)
+ w ""_$c(13,10)
+"RTN","C0CE005",154,0)
+ QUIT
+"RTN","C0CE006")
+0^7^B77594981
+"RTN","C0CE006",1,0)
+ ;GT.M version of page session (patientportal application)
+"RTN","C0CE006",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 3
+"RTN","C0CE006",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE006",4,0)
+ QUIT
+"RTN","C0CE006",5,0)
+ ;
+"RTN","C0CE006",6,0)
+run ;
+"RTN","C0CE006",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE006",8,0)
+ s ok=$$pre()
+"RTN","C0CE006",9,0)
+ i ok d body
+"RTN","C0CE006",10,0)
+ QUIT
+"RTN","C0CE006",11,0)
+ ;
+"RTN","C0CE006",12,0)
+pre() ;
+"RTN","C0CE006",13,0)
+ ;
+"RTN","C0CE006",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE006",15,0)
+ ;
+"RTN","C0CE006",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE006",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE006",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE006",19,0)
+ s sessionArray("ewd_prePageScript")="TEST^RICHEWDTEST"
+"RTN","C0CE006",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE006",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE006",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE006",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE006",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE006",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE006",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE006",27,0)
+ s sessionArray("ewd_pageName")="session"
+"RTN","C0CE006",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE006",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE006",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE006",31,0)
+ s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
+"RTN","C0CE006",32,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE006",33,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE006",34,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE006",35,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE006",36,0)
+ s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE006",37,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE006",38,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE006",39,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE006",40,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE006",41,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE006",42,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE006",43,0)
+ . n errorPage
+"RTN","C0CE006",44,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE006",45,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE006",46,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE006",47,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE006",48,0)
+ s stop=0
+"RTN","C0CE006",49,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE006",50,0)
+ . n nextpage
+"RTN","C0CE006",51,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE006",52,0)
+ . i nextpage'="" d
+"RTN","C0CE006",53,0)
+ . . n x
+"RTN","C0CE006",54,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE006",55,0)
+ . . s stop=1
+"RTN","C0CE006",56,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE006",57,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE006",58,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE006",59,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE006",60,0)
+ s ctype="text/html"
+"RTN","C0CE006",61,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE006",62,0)
+ i $d(headers) d
+"RTN","C0CE006",63,0)
+ . n lcname,name
+"RTN","C0CE006",64,0)
+ . s name=""
+"RTN","C0CE006",65,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE006",66,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE006",67,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE006",68,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE006",69,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE006",70,0)
+ w $c(13,10)
+"RTN","C0CE006",71,0)
+ QUIT 1
+"RTN","C0CE006",72,0)
+ ;
+"RTN","C0CE006",73,0)
+body ;
+"RTN","C0CE006",74,0)
+ w ""_$c(13,10)
+"RTN","C0CE006",75,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",76,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",77,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",79,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",80,0)
+ w "EWD Page using Session Variables and a PrePage Script"_""
+"RTN","C0CE006",81,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",89,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",136,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",137,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",138,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",139,0)
+ w "This page accesses EWD Session Variables"_""
+"RTN","C0CE006",140,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",141,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",142,0)
+ w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
+"RTN","C0CE006",143,0)
+ w "
+"DATA",70050,5,1,15,0)
+
+"DATA",70050,5,1,16,0)
+
+"DATA",70050,6,0)
+23396^patientportal^ewdajaxerrorredirect
+"DATA",70050,7,0)
+23401^patientportal^ccr
+"DATA",70050,7,1,0)
+^70050.02^5^5^3100301^^^
+"DATA",70050,7,1,1,0)
+
+"DATA",70050,7,1,2,0)
+
+"DATA",70050,7,1,3,0)
+
+"DATA",70050,7,1,4,0)
+
+"DATA",70050,7,1,5,0)
+
+"DATA",70050,8,0)
+23402^patientportal^ccr2
+"DATA",70050,8,1,0)
+^70050.02^6^6^3100301^^^^
+"DATA",70050,8,1,1,0)
+
+"DATA",70050,8,1,2,0)
+
+"DATA",70050,8,1,3,0)
+
+"DATA",70050,8,1,4,0)
+hello world
+"DATA",70050,8,1,5,0)
+
+"DATA",70050,8,1,6,0)
+
+"DATA",70050,9,0)
+23400^patientportal^loginpanel
+"DATA",70050,9,1,0)
+^70050.02^4^4^3100301^^
+"DATA",70050,9,1,1,0)
+
+"DATA",70050,9,1,2,0)
+
+"DATA",70050,9,1,3,0)
+Login Form will go here
+"DATA",70050,9,1,4,0)
+
+"DATA",70050,10,0)
+23403^patientportal^ccr-exe
+"DATA",70050,10,1,0)
+^^2^2^3100301^
+"DATA",70050,10,1,1,0)
+
+"DATA",70050,10,1,2,0)
+
+"DATA",70050,11,0)
+23404^patientportal^Second
+"FIA",70050)
+C0EWD ROUTINE MAP
+"FIA",70050,0)
+^C0E(70050,
+"FIA",70050,0,0)
+70050PI
+"FIA",70050,0,1)
+y^y^f^^n^^y^o^n
+"FIA",70050,0,10)
+
+"FIA",70050,0,11)
+I $$GET1^DIQ(70050,Y_",",.02)="patientportal"
+"FIA",70050,0,"RLRO")
+
+"FIA",70050,70050)
+0
+"FIA",70050,70050.01)
+0
+"FIA",70050,70050.02)
+0
+"IX",70050,70050,"AZEWD",0)
+70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
+"IX",70050,70050,"AZEWD",1)
+D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",2)
+D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",11.1,0)
+^.114IA^3^3
+"IX",70050,70050,"AZEWD",11.1,1,0)
+1^F^70050^.01^^^F
+"IX",70050,70050,"AZEWD",11.1,2,0)
+2^F^70050^.02^^^F
+"IX",70050,70050,"AZEWD",11.1,3,0)
+3^F^70050^.03^^^F
+"IX",70050,70050,"C",0)
+70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
+"IX",70050,70050,"C",1)
+S ^C0E(70050,"C",$E(X,1,60),DA)=""
+"IX",70050,70050,"C",2)
+K ^C0E(70050,"C",$E(X,1,60),DA)
+"IX",70050,70050,"C",2.5)
+K ^C0E(70050,"C")
+"IX",70050,70050,"C",11.1,0)
+^.114IA^1^1
+"IX",70050,70050,"C",11.1,1,0)
+1^F^70050^.03^60^1^F
+"IX",70050,70050,"C",11.1,1,3)
+
+"KRN",.401,1795,-1)
+0^1
+"KRN",.401,1795,0)
+C0CE0 PATIENT PORTAL^3100302.0028^@^70050^^@^3100302
+"KRN",.401,1795,2,0)
+^.4014^1^1
+"KRN",.401,1795,2,1,0)
+70050^.02^EWD APPLICATION^^^^^^^4
+"KRN",.401,1795,2,1,"F")
+patientportakz^patientportal
+"KRN",.401,1795,2,1,"GET")
+S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
+"KRN",.401,1795,2,1,"QCON")
+I DISX(1)="patientportal"
+"KRN",.401,1795,2,1,"T")
+patientportal^patientportal
+"KRN",.401,1795,2,1,"TXT")
+EWD APPLICATION equals patientportal
+"KRN",.401,1795,2,"B",70050,1)
+
+"MBREQ")
+0
+"ORD",6,.401)
+.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,"",%)
+"ORD",6,.401,0)
+SORT TEMPLATE
+"QUES","XPF1",0)
+Y
+"QUES","XPF1","??")
+^D REP^XPDH
+"QUES","XPF1","A")
+Shall I write over your |FLAG| File
+"QUES","XPF1","B")
+YES
+"QUES","XPF1","M")
+D XPF1^XPDIQ
+"QUES","XPF2",0)
+Y
+"QUES","XPF2","??")
+^D DTA^XPDH
+"QUES","XPF2","A")
+Want my data |FLAG| yours
+"QUES","XPF2","B")
+YES
+"QUES","XPF2","M")
+D XPF2^XPDIQ
+"QUES","XPI1",0)
+YO
+"QUES","XPI1","??")
+^D INHIBIT^XPDH
+"QUES","XPI1","A")
+Want KIDS to INHIBIT LOGONs during the install
+"QUES","XPI1","B")
+NO
+"QUES","XPI1","M")
+D XPI1^XPDIQ
+"QUES","XPM1",0)
+PO^VA(200,:EM
+"QUES","XPM1","??")
+^D MG^XPDH
+"QUES","XPM1","A")
+Enter the Coordinator for Mail Group '|FLAG|'
+"QUES","XPM1","B")
+
+"QUES","XPM1","M")
+D XPM1^XPDIQ
+"QUES","XPO1",0)
+Y
+"QUES","XPO1","??")
+^D MENU^XPDH
+"QUES","XPO1","A")
+Want KIDS to Rebuild Menu Trees Upon Completion of Install
+"QUES","XPO1","B")
+NO
+"QUES","XPO1","M")
+D XPO1^XPDIQ
+"QUES","XPZ1",0)
+Y
+"QUES","XPZ1","??")
+^D OPT^XPDH
+"QUES","XPZ1","A")
+Want to DISABLE Scheduled Options, Menu Options, and Protocols
+"QUES","XPZ1","B")
+NO
+"QUES","XPZ1","M")
+D XPZ1^XPDIQ
+"QUES","XPZ2",0)
+Y
+"QUES","XPZ2","??")
+^D RTN^XPDH
+"QUES","XPZ2","A")
+Want to MOVE routines to other CPUs
+"QUES","XPZ2","B")
+NO
+"QUES","XPZ2","M")
+D XPZ2^XPDIQ
+"RTN")
+13
+"RTN","C0CE000A")
+0^3^B14831539
+"RTN","C0CE000A",1,0)
+ ;GT.M version of page ewdAjaxError (patientportal application)
+"RTN","C0CE000A",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
+"RTN","C0CE000A",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000A",4,0)
+ QUIT
+"RTN","C0CE000A",5,0)
+ ;
+"RTN","C0CE000A",6,0)
+run ;
+"RTN","C0CE000A",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000A",8,0)
+ s ok=$$pre()
+"RTN","C0CE000A",9,0)
+ i ok d body
+"RTN","C0CE000A",10,0)
+ QUIT
+"RTN","C0CE000A",11,0)
+ ;
+"RTN","C0CE000A",12,0)
+pre() ;
+"RTN","C0CE000A",13,0)
+ ;
+"RTN","C0CE000A",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000A",15,0)
+ ;
+"RTN","C0CE000A",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE000A",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0CE000A",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE000A",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE000A",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE000A",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE000A",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE000A",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE000A",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE000A",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE000A",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE000A",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxError"
+"RTN","C0CE000A",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE000A",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE000A",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE000A",31,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE000A",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE000A",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE000A",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE000A",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE000A",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE000A",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE000A",38,0)
+ . n errorPage
+"RTN","C0CE000A",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE000A",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE000A",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE000A",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE000A",43,0)
+ s stop=0
+"RTN","C0CE000A",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE000A",45,0)
+ . n nextpage
+"RTN","C0CE000A",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE000A",47,0)
+ . i nextpage'="" d
+"RTN","C0CE000A",48,0)
+ . . n x
+"RTN","C0CE000A",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE000A",50,0)
+ . . s stop=1
+"RTN","C0CE000A",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE000A",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000A",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000A",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000A",55,0)
+ s ctype="text/html"
+"RTN","C0CE000A",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE000A",57,0)
+ i $d(headers) d
+"RTN","C0CE000A",58,0)
+ . n lcname,name
+"RTN","C0CE000A",59,0)
+ . s name=""
+"RTN","C0CE000A",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE000A",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE000A",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE000A",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE000A",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE000A",65,0)
+ w $c(13,10)
+"RTN","C0CE000A",66,0)
+ QUIT 1
+"RTN","C0CE000A",67,0)
+ ;
+"RTN","C0CE000A",68,0)
+body ;
+"RTN","C0CE000A",69,0)
+ w ""_$c(13,10)
+"RTN","C0CE000A",70,0)
+ w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
+"RTN","C0CE000A",71,0)
+ w ""_$c(13,10)
+"RTN","C0CE000A",72,0)
+ QUIT
+"RTN","C0CE000E")
+0^8^B27501668
+"RTN","C0CE000E",1,0)
+ ;GT.M version of page ewdError (patientportal application)
+"RTN","C0CE000E",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 4
+"RTN","C0CE000E",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000E",4,0)
+ QUIT
+"RTN","C0CE000E",5,0)
+ ;
+"RTN","C0CE000E",6,0)
+run ;
+"RTN","C0CE000E",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000E",8,0)
+ s ok=$$pre()
+"RTN","C0CE000E",9,0)
+ i ok d body
+"RTN","C0CE000E",10,0)
+ QUIT
+"RTN","C0CE000E",11,0)
+ ;
+"RTN","C0CE000E",12,0)
+pre() ;
+"RTN","C0CE000E",13,0)
+ ;
+"RTN","C0CE000E",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000E",15,0)
+ ;
+"RTN","C0CE000E",16,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000E",17,0)
+ w "Content-type: text/html"_$c(13,10,13,10)
+"RTN","C0CE000E",18,0)
+ QUIT 1
+"RTN","C0CE000E",19,0)
+ ;
+"RTN","C0CE000E",20,0)
+body ;
+"RTN","C0CE000E",21,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",22,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",23,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",24,0)
+ w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
+"RTN","C0CE000E",25,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",43,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",44,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",45,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",46,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",47,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",48,0)
+ w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
+"RTN","C0CE000E",49,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",50,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",51,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",52,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",53,0)
+ w "
An Error has occurred
"_$c(13,10)
+"RTN","C0CE000E",54,0)
+ w " "_$c(13,10)
+"RTN","C0CE000E",55,0)
+ w "
"_$g(%KEY("error"))_"
"_$c(13,10)
+"RTN","C0CE000E",56,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",57,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",58,0)
+ w "
"_$c(13,10)
+"RTN","C0CE000E",59,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",60,0)
+ w " "_$c(13,10)
+"RTN","C0CE000E",63,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",64,0)
+ w ""_$c(13,10)
+"RTN","C0CE000E",65,0)
+ QUIT
+"RTN","C0CE000F")
+0^4^B32715806
+"RTN","C0CE000F",1,0)
+ ;GT.M version of page ewdAjaxErrorRedirect (patientportal application)
+"RTN","C0CE000F",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
+"RTN","C0CE000F",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000F",4,0)
+ QUIT
+"RTN","C0CE000F",5,0)
+ ;
+"RTN","C0CE000F",6,0)
+run ;
+"RTN","C0CE000F",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000F",8,0)
+ s ok=$$pre()
+"RTN","C0CE000F",9,0)
+ i ok d body
+"RTN","C0CE000F",10,0)
+ QUIT
+"RTN","C0CE000F",11,0)
+ ;
+"RTN","C0CE000F",12,0)
+pre() ;
+"RTN","C0CE000F",13,0)
+ ;
+"RTN","C0CE000F",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000F",15,0)
+ ;
+"RTN","C0CE000F",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE000F",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE000F",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE000F",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE000F",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE000F",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE000F",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE000F",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE000F",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE000F",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE000F",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE000F",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
+"RTN","C0CE000F",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE000F",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE000F",30,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0CE000F",31,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0CE000F",32,0)
+ s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
+"RTN","C0CE000F",33,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE000F",34,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE000F",35,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE000F",36,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE000F",37,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE000F",38,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE000F",39,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE000F",40,0)
+ . n errorPage
+"RTN","C0CE000F",41,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE000F",42,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE000F",43,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE000F",44,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE000F",45,0)
+ s stop=0
+"RTN","C0CE000F",46,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE000F",47,0)
+ . n nextpage
+"RTN","C0CE000F",48,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE000F",49,0)
+ . i nextpage'="" d
+"RTN","C0CE000F",50,0)
+ . . n x
+"RTN","C0CE000F",51,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE000F",52,0)
+ . . s stop=1
+"RTN","C0CE000F",53,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE000F",54,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000F",55,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000F",56,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000F",57,0)
+ s ctype="text/html"
+"RTN","C0CE000F",58,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE000F",59,0)
+ i $d(headers) d
+"RTN","C0CE000F",60,0)
+ . n lcname,name
+"RTN","C0CE000F",61,0)
+ . s name=""
+"RTN","C0CE000F",62,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE000F",63,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE000F",64,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE000F",65,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE000F",66,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE000F",67,0)
+ w $c(13,10)
+"RTN","C0CE000F",68,0)
+ QUIT 1
+"RTN","C0CE000F",69,0)
+ ;
+"RTN","C0CE000F",70,0)
+body ;
+"RTN","C0CE000F",71,0)
+ if ($g(Error)="") d
+"RTN","C0CE000F",72,0)
+ .w " "_$c(13,10)
+"RTN","C0CE000F",73,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE000F",74,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE000F",75,0)
+ .w " "_$c(13,10)
+"RTN","C0CE000F",76,0)
+ .
+"RTN","C0CE000F",77,0)
+ w ""_$c(13,10)
+"RTN","C0CE000F",78,0)
+ 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)
+"RTN","C0CE000F",79,0)
+ s id=""
+"RTN","C0CE000F",80,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0CE000F",81,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE000F",82,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0CE000F",83,0)
+ s id=""
+"RTN","C0CE000F",84,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0CE000F",85,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE000F",86,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0CE000F",87,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0CE000F",88,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0CE000F",89,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0CE000F",90,0)
+ w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
+"RTN","C0CE000F",91,0)
+ w ""_$c(13,10)
+"RTN","C0CE000F",92,0)
+ QUIT
+"RTN","C0CE000R")
+0^9^B66701996
+"RTN","C0CE000R",1,0)
+ ;GT.M version of page ewdErrorRedirect (patientportal application)
+"RTN","C0CE000R",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
+"RTN","C0CE000R",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE000R",4,0)
+ QUIT
+"RTN","C0CE000R",5,0)
+ ;
+"RTN","C0CE000R",6,0)
+run ;
+"RTN","C0CE000R",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE000R",8,0)
+ s ok=$$pre()
+"RTN","C0CE000R",9,0)
+ i ok d body
+"RTN","C0CE000R",10,0)
+ QUIT
+"RTN","C0CE000R",11,0)
+ ;
+"RTN","C0CE000R",12,0)
+pre() ;
+"RTN","C0CE000R",13,0)
+ ;
+"RTN","C0CE000R",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE000R",15,0)
+ ;
+"RTN","C0CE000R",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE000R",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE000R",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE000R",19,0)
+ s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
+"RTN","C0CE000R",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE000R",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE000R",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE000R",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE000R",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE000R",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE000R",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE000R",27,0)
+ s sessionArray("ewd_pageName")="ewdErrorRedirect"
+"RTN","C0CE000R",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE000R",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE000R",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE000R",31,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE000R",32,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE000R",33,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE000R",34,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE000R",35,0)
+ s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE000R",36,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE000R",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE000R",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE000R",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE000R",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE000R",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE000R",42,0)
+ . n errorPage
+"RTN","C0CE000R",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE000R",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE000R",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE000R",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE000R",47,0)
+ s stop=0
+"RTN","C0CE000R",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE000R",49,0)
+ . n nextpage
+"RTN","C0CE000R",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE000R",51,0)
+ . i nextpage'="" d
+"RTN","C0CE000R",52,0)
+ . . n x
+"RTN","C0CE000R",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE000R",54,0)
+ . . s stop=1
+"RTN","C0CE000R",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE000R",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000R",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE000R",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE000R",59,0)
+ s ctype="text/html"
+"RTN","C0CE000R",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE000R",61,0)
+ i $d(headers) d
+"RTN","C0CE000R",62,0)
+ . n lcname,name
+"RTN","C0CE000R",63,0)
+ . s name=""
+"RTN","C0CE000R",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE000R",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE000R",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE000R",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE000R",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE000R",69,0)
+ w $c(13,10)
+"RTN","C0CE000R",70,0)
+ QUIT 1
+"RTN","C0CE000R",71,0)
+ ;
+"RTN","C0CE000R",72,0)
+body ;
+"RTN","C0CE000R",73,0)
+ w ""_$c(13,10)
+"RTN","C0CE000R",74,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",75,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",76,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",78,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",79,0)
+ w "Ajax Error Redirect page"_""
+"RTN","C0CE000R",80,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",81,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",83,0)
+ w "Please wait...."_""
+"RTN","C0CE000R",84,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",85,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",86,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",133,0)
+ w " "_$c(13,10)
+"RTN","C0CE000R",134,0)
+ w ""_$c(13,10)
+"RTN","C0CE000R",135,0)
+ QUIT
+"RTN","C0CE001I")
+0^2^B97883042
+"RTN","C0CE001I",1,0)
+ ;GT.M version of page index (patientportal application)
+"RTN","C0CE001I",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
+"RTN","C0CE001I",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE001I",4,0)
+ QUIT
+"RTN","C0CE001I",5,0)
+ ;
+"RTN","C0CE001I",6,0)
+run ;
+"RTN","C0CE001I",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE001I",8,0)
+ s ok=$$pre()
+"RTN","C0CE001I",9,0)
+ i ok d body
+"RTN","C0CE001I",10,0)
+ QUIT
+"RTN","C0CE001I",11,0)
+ ;
+"RTN","C0CE001I",12,0)
+pre() ;
+"RTN","C0CE001I",13,0)
+ ;
+"RTN","C0CE001I",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE001I",15,0)
+ ;
+"RTN","C0CE001I",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE001I",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0CE001I",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE001I",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE001I",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE001I",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE001I",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE001I",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE001I",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE001I",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE001I",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE001I",27,0)
+ s sessionArray("ewd_pageName")="index"
+"RTN","C0CE001I",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE001I",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE001I",30,0)
+ s sessionArray("ewd_header","Expires")=0
+"RTN","C0CE001I",31,0)
+ s sessionArray("ewd_header","Cache-Control")="no-cache"
+"RTN","C0CE001I",32,0)
+ s sessionArray("ewd_header","Pragma")="no-cache"
+"RTN","C0CE001I",33,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE001I",34,0)
+ s tokens("ccr")=$$setNextPageToken^%zewdGTMRuntime("ccr")
+"RTN","C0CE001I",35,0)
+ s tokens("ccr2")=$$setNextPageToken^%zewdGTMRuntime("ccr2")
+"RTN","C0CE001I",36,0)
+ s tokens("ccrexe")=$$setNextPageToken^%zewdGTMRuntime("ccrexe")
+"RTN","C0CE001I",37,0)
+ s tokens("loginPanel")=$$setNextPageToken^%zewdGTMRuntime("loginPanel")
+"RTN","C0CE001I",38,0)
+ s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
+"RTN","C0CE001I",39,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE001I",40,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE001I",41,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE001I",42,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE001I",43,0)
+ s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE001I",44,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE001I",45,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE001I",46,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE001I",47,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE001I",48,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE001I",49,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE001I",50,0)
+ . n errorPage
+"RTN","C0CE001I",51,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE001I",52,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE001I",53,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE001I",54,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE001I",55,0)
+ s stop=0
+"RTN","C0CE001I",56,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE001I",57,0)
+ . n nextpage
+"RTN","C0CE001I",58,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE001I",59,0)
+ . i nextpage'="" d
+"RTN","C0CE001I",60,0)
+ . . n x
+"RTN","C0CE001I",61,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE001I",62,0)
+ . . s stop=1
+"RTN","C0CE001I",63,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE001I",64,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001I",65,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001I",66,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE001I",67,0)
+ s ctype="text/html"
+"RTN","C0CE001I",68,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE001I",69,0)
+ i $d(headers) d
+"RTN","C0CE001I",70,0)
+ . n lcname,name
+"RTN","C0CE001I",71,0)
+ . s name=""
+"RTN","C0CE001I",72,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE001I",73,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE001I",74,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE001I",75,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE001I",76,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE001I",77,0)
+ w $c(13,10)
+"RTN","C0CE001I",78,0)
+ QUIT 1
+"RTN","C0CE001I",79,0)
+ ;
+"RTN","C0CE001I",80,0)
+body ;
+"RTN","C0CE001I",81,0)
+ w ""_$c(13,10)
+"RTN","C0CE001I",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",83,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",84,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",86,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",87,0)
+ w "The start EWD Page"_""
+"RTN","C0CE001I",88,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",89,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",97,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",144,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",145,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",146,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",147,0)
+ w "This page is the first page in this application"_""
+"RTN","C0CE001I",148,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",149,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",150,0)
+ w "Login"_""
+"RTN","C0CE001I",151,0)
+ w "
"_$c(13,10)
+"RTN","C0CE001I",172,0)
+ w " "_$c(13,10)
+"RTN","C0CE001I",173,0)
+ w ""_$c(13,10)
+"RTN","C0CE001I",174,0)
+ QUIT
+"RTN","C0CE001L")
+0^10^B51144421
+"RTN","C0CE001L",1,0)
+ ;GT.M version of page loginPanel (patientportal application)
+"RTN","C0CE001L",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 4
+"RTN","C0CE001L",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE001L",4,0)
+ QUIT
+"RTN","C0CE001L",5,0)
+ ;
+"RTN","C0CE001L",6,0)
+run ;
+"RTN","C0CE001L",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE001L",8,0)
+ s ok=$$pre()
+"RTN","C0CE001L",9,0)
+ i ok d body
+"RTN","C0CE001L",10,0)
+ QUIT
+"RTN","C0CE001L",11,0)
+ ;
+"RTN","C0CE001L",12,0)
+pre() ;
+"RTN","C0CE001L",13,0)
+ ;
+"RTN","C0CE001L",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE001L",15,0)
+ ;
+"RTN","C0CE001L",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE001L",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE001L",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE001L",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE001L",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE001L",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE001L",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE001L",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE001L",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE001L",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE001L",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE001L",27,0)
+ s sessionArray("ewd_pageName")="loginPanel"
+"RTN","C0CE001L",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE001L",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE001L",30,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0CE001L",31,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0CE001L",32,0)
+ s Error=$$startSession^%zewdPHP("loginPanel",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE001L",33,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE001L",34,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE001L",35,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE001L",36,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE001L",37,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE001L",38,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE001L",39,0)
+ . n errorPage
+"RTN","C0CE001L",40,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE001L",41,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE001L",42,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE001L",43,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE001L",44,0)
+ s stop=0
+"RTN","C0CE001L",45,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE001L",46,0)
+ . n nextpage
+"RTN","C0CE001L",47,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE001L",48,0)
+ . i nextpage'="" d
+"RTN","C0CE001L",49,0)
+ . . n x
+"RTN","C0CE001L",50,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE001L",51,0)
+ . . s stop=1
+"RTN","C0CE001L",52,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE001L",53,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001L",54,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE001L",55,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE001L",56,0)
+ s ctype="text/html"
+"RTN","C0CE001L",57,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE001L",58,0)
+ i $d(headers) d
+"RTN","C0CE001L",59,0)
+ . n lcname,name
+"RTN","C0CE001L",60,0)
+ . s name=""
+"RTN","C0CE001L",61,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE001L",62,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE001L",63,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE001L",64,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE001L",65,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE001L",66,0)
+ w $c(13,10)
+"RTN","C0CE001L",67,0)
+ QUIT 1
+"RTN","C0CE001L",68,0)
+ ;
+"RTN","C0CE001L",69,0)
+body ;
+"RTN","C0CE001L",70,0)
+ if ($g(Error)="") d
+"RTN","C0CE001L",71,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",72,0)
+ .w "EWD.page.yuiResourcePath = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
+"RTN","C0CE001L",73,0)
+ .w "if (EWD.page.yuiResourcePath == '') {"_""
+"RTN","C0CE001L",74,0)
+ .w " alert('Unable to determine path to YUI resource file. Did you run d install^%zewdYUIConf()?') ;"_""
+"RTN","C0CE001L",75,0)
+ .w "}"_""
+"RTN","C0CE001L",76,0)
+ .w "EWD.page.loadResource("""_$$getSessionValue^%zewdAPI("yui.resourceLoaderPath",sessid)_$$getSessionValue^%zewdAPI("yui.resourceLoader",sessid)_""",""js"") ;"_""
+"RTN","C0CE001L",77,0)
+ .w "if (!EWD.yui) alert('YUI Javascript resource file ewdYUIResources.js was not found in the web server root path');"_""
+"RTN","C0CE001L",78,0)
+ .w "if (!EWD.yui.build) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You must be using build 790');"_""
+"RTN","C0CE001L",79,0)
+ .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');"_""
+"RTN","C0CE001L",80,0)
+ .w "EWD.yui.version = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
+"RTN","C0CE001L",81,0)
+ .w "EWD.yui.resourceLoader.Dialog() ;"_""
+"RTN","C0CE001L",82,0)
+ .w "document.getElementsByTagName('body')[0].className = 'yui-skin-sam' ;"_""
+"RTN","C0CE001L",83,0)
+ .w "var fReturnloginPanel7=function() {"_""
+"RTN","C0CE001L",84,0)
+ .w "EWD.yui.widgetIndex[""yuiDialogRegloginPanel7""]={widgetName:""loginPanel7"",tagId:""yuiDialogDivloginPanel7""};"_""
+"RTN","C0CE001L",85,0)
+ .w "EWD.yui.moveDialogToBody('yuiDialogDivloginPanel7');"_""
+"RTN","C0CE001L",86,0)
+ .w "EWD.yui.widget.loginPanel7=new YAHOO.widget.Dialog(""yuiDialogDivloginPanel7"",{iframe:true,width:""270px"",x:150,y:100});"_""
+"RTN","C0CE001L",87,0)
+ .w "EWD.yui.widget.loginPanel7.render();"_""
+"RTN","C0CE001L",88,0)
+ .w "};"_""
+"RTN","C0CE001L",89,0)
+ .w "YAHOO.util.Event.onAvailable(""yuiDialogDivloginPanel7"",fReturnloginPanel7);"_""
+"RTN","C0CE001L",90,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",97,0)
+ .w "Login Form will go here"_""
+"RTN","C0CE001L",98,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",99,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",100,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",101,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",102,0)
+ .w "
"_$c(13,10)
+"RTN","C0CE001L",103,0)
+ .
+"RTN","C0CE001L",104,0)
+ w ""_$c(13,10)
+"RTN","C0CE001L",105,0)
+ 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)
+"RTN","C0CE001L",106,0)
+ s id=""
+"RTN","C0CE001L",107,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0CE001L",108,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE001L",109,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0CE001L",110,0)
+ s id=""
+"RTN","C0CE001L",111,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0CE001L",112,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0CE001L",113,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0CE001L",114,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0CE001L",115,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0CE001L",116,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0CE001L",117,0)
+ w " }"_""
+"RTN","C0CE001L",118,0)
+ w ""_$c(13,10)
+"RTN","C0CE001L",119,0)
+ QUIT
+"RTN","C0CE002")
+0^5^B19002031
+"RTN","C0CE002",1,0)
+ ;GT.M version of page ccr (patientportal application)
+"RTN","C0CE002",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
+"RTN","C0CE002",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE002",4,0)
+ QUIT
+"RTN","C0CE002",5,0)
+ ;
+"RTN","C0CE002",6,0)
+run ;
+"RTN","C0CE002",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE002",8,0)
+ s ok=$$pre()
+"RTN","C0CE002",9,0)
+ i ok d body
+"RTN","C0CE002",10,0)
+ QUIT
+"RTN","C0CE002",11,0)
+ ;
+"RTN","C0CE002",12,0)
+pre() ;
+"RTN","C0CE002",13,0)
+ ;
+"RTN","C0CE002",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE002",15,0)
+ ;
+"RTN","C0CE002",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE002",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE002",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE002",19,0)
+ s sessionArray("ewd_prePageScript")="TEST2^C0CRICH"
+"RTN","C0CE002",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE002",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE002",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE002",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE002",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE002",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE002",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE002",27,0)
+ s sessionArray("ewd_pageName")="ccr"
+"RTN","C0CE002",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE002",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE002",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE002",31,0)
+ s Error=$$startSession^%zewdPHP("ccr",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE002",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE002",33,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE002",34,0)
+ s headers("Content-type")="text/xml"
+"RTN","C0CE002",35,0)
+ d mergeArrayToSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE002",36,0)
+ k headers
+"RTN","C0CE002",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE002",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE002",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE002",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE002",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE002",42,0)
+ . n errorPage
+"RTN","C0CE002",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE002",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE002",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE002",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE002",47,0)
+ s stop=0
+"RTN","C0CE002",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE002",49,0)
+ . n nextpage
+"RTN","C0CE002",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE002",51,0)
+ . i nextpage'="" d
+"RTN","C0CE002",52,0)
+ . . n x
+"RTN","C0CE002",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE002",54,0)
+ . . s stop=1
+"RTN","C0CE002",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE002",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE002",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE002",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE002",59,0)
+ s ctype="text/html"
+"RTN","C0CE002",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE002",61,0)
+ i $d(headers) d
+"RTN","C0CE002",62,0)
+ . n lcname,name
+"RTN","C0CE002",63,0)
+ . s name=""
+"RTN","C0CE002",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE002",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE002",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE002",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE002",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE002",69,0)
+ w $c(13,10)
+"RTN","C0CE002",70,0)
+ QUIT 1
+"RTN","C0CE002",71,0)
+ ;
+"RTN","C0CE002",72,0)
+body ;
+"RTN","C0CE002",73,0)
+ s no=""
+"RTN","C0CE002",74,0)
+ i no?1N.N s no=no-1
+"RTN","C0CE002",75,0)
+ i no?1AP.ANP d
+"RTN","C0CE002",76,0)
+ . s p1=$e(no,1,$l(no)-1)
+"RTN","C0CE002",77,0)
+ . s p2=$e(no,$l(no))
+"RTN","C0CE002",78,0)
+ . s p2=$c($a(p2)-1)
+"RTN","C0CE002",79,0)
+ . s no=p1_p2
+"RTN","C0CE002",80,0)
+ s nul=""
+"RTN","C0CE002",81,0)
+ s endValue12=""
+"RTN","C0CE002",82,0)
+ i endValue12?1N.N s endValue12=endValue12+1
+"RTN","C0CE002",83,0)
+ f q:'(($o(^%zewdSession("session",sessid,"CCR",no))'=endValue12)&($o(^%zewdSession("session",sessid,"CCR",no))'=nul)) d
+"RTN","C0CE002",84,0)
+ .s no=$o(^%zewdSession("session",sessid,"CCR",no))
+"RTN","C0CE002",85,0)
+ .s data=$g(^%zewdSession("session",sessid,"CCR",no))
+"RTN","C0CE002",86,0)
+ .w data
+"RTN","C0CE002",87,0)
+ .
+"RTN","C0CE002",88,0)
+ QUIT
+"RTN","C0CE003")
+0^11^B16186512
+"RTN","C0CE003",1,0)
+ ;GT.M version of page ccr2 (patientportal application)
+"RTN","C0CE003",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
+"RTN","C0CE003",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE003",4,0)
+ QUIT
+"RTN","C0CE003",5,0)
+ ;
+"RTN","C0CE003",6,0)
+run ;
+"RTN","C0CE003",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE003",8,0)
+ s ok=$$pre()
+"RTN","C0CE003",9,0)
+ i ok d body
+"RTN","C0CE003",10,0)
+ QUIT
+"RTN","C0CE003",11,0)
+ ;
+"RTN","C0CE003",12,0)
+pre() ;
+"RTN","C0CE003",13,0)
+ ;
+"RTN","C0CE003",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE003",15,0)
+ ;
+"RTN","C0CE003",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE003",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE003",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE003",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE003",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE003",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE003",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE003",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE003",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE003",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE003",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE003",27,0)
+ s sessionArray("ewd_pageName")="ccr2"
+"RTN","C0CE003",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE003",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE003",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE003",31,0)
+ s Error=$$startSession^%zewdPHP("ccr2",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE003",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE003",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE003",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE003",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE003",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE003",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE003",38,0)
+ . n errorPage
+"RTN","C0CE003",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE003",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE003",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE003",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE003",43,0)
+ s stop=0
+"RTN","C0CE003",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE003",45,0)
+ . n nextpage
+"RTN","C0CE003",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE003",47,0)
+ . i nextpage'="" d
+"RTN","C0CE003",48,0)
+ . . n x
+"RTN","C0CE003",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE003",50,0)
+ . . s stop=1
+"RTN","C0CE003",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE003",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE003",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE003",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE003",55,0)
+ s ctype="text/html"
+"RTN","C0CE003",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE003",57,0)
+ i $d(headers) d
+"RTN","C0CE003",58,0)
+ . n lcname,name
+"RTN","C0CE003",59,0)
+ . s name=""
+"RTN","C0CE003",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE003",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE003",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE003",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE003",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE003",65,0)
+ w $c(13,10)
+"RTN","C0CE003",66,0)
+ QUIT 1
+"RTN","C0CE003",67,0)
+ ;
+"RTN","C0CE003",68,0)
+body ;
+"RTN","C0CE003",69,0)
+ w ""_$c(13,10)
+"RTN","C0CE003",70,0)
+ w " "_$c(13,10)
+"RTN","C0CE003",71,0)
+ w "hello world"_""
+"RTN","C0CE003",72,0)
+ w " "_$c(13,10)
+"RTN","C0CE003",73,0)
+ w ""_$c(13,10)
+"RTN","C0CE003",74,0)
+ QUIT
+"RTN","C0CE004")
+0^6^B14016611
+"RTN","C0CE004",1,0)
+ ;GT.M version of page ccr-exe (patientportal application)
+"RTN","C0CE004",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
+"RTN","C0CE004",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE004",4,0)
+ QUIT
+"RTN","C0CE004",5,0)
+ ;
+"RTN","C0CE004",6,0)
+run ;
+"RTN","C0CE004",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE004",8,0)
+ s ok=$$pre()
+"RTN","C0CE004",9,0)
+ i ok d body
+"RTN","C0CE004",10,0)
+ QUIT
+"RTN","C0CE004",11,0)
+ ;
+"RTN","C0CE004",12,0)
+pre() ;
+"RTN","C0CE004",13,0)
+ ;
+"RTN","C0CE004",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE004",15,0)
+ ;
+"RTN","C0CE004",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE004",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE004",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE004",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE004",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE004",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE004",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE004",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE004",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE004",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE004",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE004",27,0)
+ s sessionArray("ewd_pageName")="ccr-exe"
+"RTN","C0CE004",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE004",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE004",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE004",31,0)
+ s Error=$$startSession^%zewdPHP("ccr-exe",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE004",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE004",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE004",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE004",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE004",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE004",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE004",38,0)
+ . n errorPage
+"RTN","C0CE004",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE004",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE004",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE004",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE004",43,0)
+ s stop=0
+"RTN","C0CE004",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE004",45,0)
+ . n nextpage
+"RTN","C0CE004",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE004",47,0)
+ . i nextpage'="" d
+"RTN","C0CE004",48,0)
+ . . n x
+"RTN","C0CE004",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE004",50,0)
+ . . s stop=1
+"RTN","C0CE004",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE004",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE004",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE004",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE004",55,0)
+ s ctype="text/html"
+"RTN","C0CE004",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE004",57,0)
+ i $d(headers) d
+"RTN","C0CE004",58,0)
+ . n lcname,name
+"RTN","C0CE004",59,0)
+ . s name=""
+"RTN","C0CE004",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE004",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE004",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE004",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE004",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE004",65,0)
+ w $c(13,10)
+"RTN","C0CE004",66,0)
+ QUIT 1
+"RTN","C0CE004",67,0)
+ ;
+"RTN","C0CE004",68,0)
+body ;
+"RTN","C0CE004",69,0)
+ d gpltest^C0CRICH("")
+"RTN","C0CE004",70,0)
+ QUIT
+"RTN","C0CE005")
+0^12^B80810317
+"RTN","C0CE005",1,0)
+ ;GT.M version of page Second (patientportal application)
+"RTN","C0CE005",2,0)
+ ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
+"RTN","C0CE005",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE005",4,0)
+ QUIT
+"RTN","C0CE005",5,0)
+ ;
+"RTN","C0CE005",6,0)
+run ;
+"RTN","C0CE005",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE005",8,0)
+ s ok=$$pre()
+"RTN","C0CE005",9,0)
+ i ok d body
+"RTN","C0CE005",10,0)
+ QUIT
+"RTN","C0CE005",11,0)
+ ;
+"RTN","C0CE005",12,0)
+pre() ;
+"RTN","C0CE005",13,0)
+ ;
+"RTN","C0CE005",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE005",15,0)
+ ;
+"RTN","C0CE005",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE005",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE005",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE005",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0CE005",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE005",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE005",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE005",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE005",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE005",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE005",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE005",27,0)
+ s sessionArray("ewd_pageName")="Second"
+"RTN","C0CE005",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE005",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE005",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE005",31,0)
+ s tokens("First")=$$setNextPageToken^%zewdGTMRuntime("First")
+"RTN","C0CE005",32,0)
+ s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
+"RTN","C0CE005",33,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE005",34,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE005",35,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE005",36,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE005",37,0)
+ s Error=$$startSession^%zewdPHP("Second",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE005",38,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE005",39,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE005",40,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE005",41,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE005",42,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE005",43,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE005",44,0)
+ . n errorPage
+"RTN","C0CE005",45,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE005",46,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE005",47,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE005",48,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE005",49,0)
+ s stop=0
+"RTN","C0CE005",50,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE005",51,0)
+ . n nextpage
+"RTN","C0CE005",52,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE005",53,0)
+ . i nextpage'="" d
+"RTN","C0CE005",54,0)
+ . . n x
+"RTN","C0CE005",55,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE005",56,0)
+ . . s stop=1
+"RTN","C0CE005",57,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE005",58,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE005",59,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE005",60,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE005",61,0)
+ s ctype="text/html"
+"RTN","C0CE005",62,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE005",63,0)
+ i $d(headers) d
+"RTN","C0CE005",64,0)
+ . n lcname,name
+"RTN","C0CE005",65,0)
+ . s name=""
+"RTN","C0CE005",66,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE005",67,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE005",68,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE005",69,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE005",70,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE005",71,0)
+ w $c(13,10)
+"RTN","C0CE005",72,0)
+ QUIT 1
+"RTN","C0CE005",73,0)
+ ;
+"RTN","C0CE005",74,0)
+body ;
+"RTN","C0CE005",75,0)
+ w ""_$c(13,10)
+"RTN","C0CE005",76,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",77,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",78,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",80,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",81,0)
+ w "The second EWD Page"_""
+"RTN","C0CE005",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",83,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",90,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",137,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",138,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",139,0)
+ w "
"_$c(13,10)
+"RTN","C0CE005",140,0)
+ w "This page is not a ""first"" page"_""
+"RTN","C0CE005",141,0)
+ w "
"_$c(13,10)
+"RTN","C0CE005",150,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",151,0)
+ w "
"_$c(13,10)
+"RTN","C0CE005",152,0)
+ w " "_$c(13,10)
+"RTN","C0CE005",153,0)
+ w ""_$c(13,10)
+"RTN","C0CE005",154,0)
+ QUIT
+"RTN","C0CE006")
+0^7^B77594981
+"RTN","C0CE006",1,0)
+ ;GT.M version of page session (patientportal application)
+"RTN","C0CE006",2,0)
+ ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 4
+"RTN","C0CE006",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0CE006",4,0)
+ QUIT
+"RTN","C0CE006",5,0)
+ ;
+"RTN","C0CE006",6,0)
+run ;
+"RTN","C0CE006",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0CE006",8,0)
+ s ok=$$pre()
+"RTN","C0CE006",9,0)
+ i ok d body
+"RTN","C0CE006",10,0)
+ QUIT
+"RTN","C0CE006",11,0)
+ ;
+"RTN","C0CE006",12,0)
+pre() ;
+"RTN","C0CE006",13,0)
+ ;
+"RTN","C0CE006",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0CE006",15,0)
+ ;
+"RTN","C0CE006",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0CE006",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0CE006",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0CE006",19,0)
+ s sessionArray("ewd_prePageScript")="TEST^RICHEWDTEST"
+"RTN","C0CE006",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0CE006",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0CE006",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0CE006",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0CE006",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0CE006",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0CE006",26,0)
+ s sessionArray("ewd_appName")="patientportal"
+"RTN","C0CE006",27,0)
+ s sessionArray("ewd_pageName")="session"
+"RTN","C0CE006",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0CE006",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0CE006",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0CE006",31,0)
+ s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
+"RTN","C0CE006",32,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0CE006",33,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0CE006",34,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0CE006",35,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0CE006",36,0)
+ s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0CE006",37,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0CE006",38,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0CE006",39,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0CE006",40,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0CE006",41,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0CE006",42,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0CE006",43,0)
+ . n errorPage
+"RTN","C0CE006",44,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0CE006",45,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0CE006",46,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0CE006",47,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0CE006",48,0)
+ s stop=0
+"RTN","C0CE006",49,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0CE006",50,0)
+ . n nextpage
+"RTN","C0CE006",51,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0CE006",52,0)
+ . i nextpage'="" d
+"RTN","C0CE006",53,0)
+ . . n x
+"RTN","C0CE006",54,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0CE006",55,0)
+ . . s stop=1
+"RTN","C0CE006",56,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0CE006",57,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE006",58,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0CE006",59,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0CE006",60,0)
+ s ctype="text/html"
+"RTN","C0CE006",61,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0CE006",62,0)
+ i $d(headers) d
+"RTN","C0CE006",63,0)
+ . n lcname,name
+"RTN","C0CE006",64,0)
+ . s name=""
+"RTN","C0CE006",65,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0CE006",66,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0CE006",67,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0CE006",68,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0CE006",69,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0CE006",70,0)
+ w $c(13,10)
+"RTN","C0CE006",71,0)
+ QUIT 1
+"RTN","C0CE006",72,0)
+ ;
+"RTN","C0CE006",73,0)
+body ;
+"RTN","C0CE006",74,0)
+ w ""_$c(13,10)
+"RTN","C0CE006",75,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",76,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",77,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",79,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",80,0)
+ w "EWD Page using Session Variables and a PrePage Script"_""
+"RTN","C0CE006",81,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",82,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",89,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",136,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",137,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",138,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",139,0)
+ w "This page accesses EWD Session Variables"_""
+"RTN","C0CE006",140,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",141,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",142,0)
+ w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
+"RTN","C0CE006",143,0)
+ w "
"_$c(13,10)
+"RTN","C0CE006",150,0)
+ w " "_$c(13,10)
+"RTN","C0CE006",151,0)
+ w ""_$c(13,10)
+"RTN","C0CE006",152,0)
+ QUIT
+"RTN","C0CEX")
+0^1^B811998
+"RTN","C0CEX",1,0)
+C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
+"RTN","C0CEX",2,0)
+ ;;1.0;C0C;;Mar 1, 2010 ;Build 4
+"RTN","C0CEX",3,0)
+SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+"RTN","C0CEX",4,0)
+ ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
+"RTN","C0CEX",5,0)
+ N ZR
+"RTN","C0CEX",6,0)
+ I $G(ZAPP)="" Q ;
+"RTN","C0CEX",7,0)
+ I $G(ZPAGE)="" Q ;
+"RTN","C0CEX",8,0)
+ I $G(ZROUTINE)="" Q ;
+"RTN","C0CEX",9,0)
+ S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
+"RTN","C0CEX",10,0)
+ S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
+"RTN","C0CEX",11,0)
+ Q
+"RTN","C0CEX",12,0)
+ ;
+"RTN","C0CEX",13,0)
+KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+"RTN","C0CEX",14,0)
+ ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
+"RTN","C0CEX",15,0)
+ I $G(ZAPP)="" Q ;
+"RTN","C0CEX",16,0)
+ I $G(ZPAGE)="" Q ;
+"RTN","C0CEX",17,0)
+ K ^zewd("routineMap",ZAPP,ZPAGE)
+"RTN","C0CEX",18,0)
+ Q
+"RTN","C0CRICH")
+0^13^B5114262
+"RTN","C0CRICH",1,0)
+C0CRICH ; CCDCCR/GPL - SUPPORT FOR EWD TEST PAGES ; 3/1/2010
+"RTN","C0CRICH",2,0)
+ ;;1.0;C0C;;Mar 1, 2010;Build 4
+"RTN","C0CRICH",3,0)
+gpltest2 ; experiment with sending a CCR to an ewd page
+"RTN","C0CRICH",4,0)
+ N ZI
+"RTN","C0CRICH",5,0)
+ S ZI=""
+"RTN","C0CRICH",6,0)
+ D PSEUDO
+"RTN","C0CRICH",7,0)
+ N ZIO
+"RTN","C0CRICH",8,0)
+ S ZIO=IO
+"RTN","C0CRICH",9,0)
+ S IO="/dev/null"
+"RTN","C0CRICH",10,0)
+ OPEN IO
+"RTN","C0CRICH",11,0)
+ U IO
+"RTN","C0CRICH",12,0)
+ D CCRRPC^C0CCCR(.GPL,2)
+"RTN","C0CRICH",13,0)
+ S IO=ZIO
+"RTN","C0CRICH",14,0)
+ OPEN IO
+"RTN","C0CRICH",15,0)
+ U IO
+"RTN","C0CRICH",16,0)
+ K GPL(0)
+"RTN","C0CRICH",17,0)
+ F S ZI=$O(GPL(ZI)) Q:ZI="" W GPL(ZI),!
+"RTN","C0CRICH",18,0)
+ Q
+"RTN","C0CRICH",19,0)
+ ;
+"RTN","C0CRICH",20,0)
+gpltest ; experiment with sending a CCR to an ewd page
+"RTN","C0CRICH",21,0)
+ N ZI
+"RTN","C0CRICH",22,0)
+ S ZI=""
+"RTN","C0CRICH",23,0)
+ K ^GPL(0)
+"RTN","C0CRICH",24,0)
+ S ^GPL(2)=""
+"RTN","C0CRICH",25,0)
+ F S ZI=$O(^GPL(ZI)) Q:ZI="" W ^GPL(ZI),!
+"RTN","C0CRICH",26,0)
+ Q
+"RTN","C0CRICH",27,0)
+ ;
+"RTN","C0CRICH",28,0)
+TEST(sessid);
+"RTN","C0CRICH",29,0)
+ d setSessionValue^%zewdAPI("person.Name","Rob",sessid)
+"RTN","C0CRICH",30,0)
+ d setSessionValue^%zewdAPI("person.DateOfBirth","13/06/55",sessid)
+"RTN","C0CRICH",31,0)
+ d setSessionValue^%zewdAPI("person.Address.PostCode","SW1 3QA",sessid)
+"RTN","C0CRICH",32,0)
+ d setSessionValue^%zewdAPI("person.Address.Line1","1 The Street",sessid)
+"RTN","C0CRICH",33,0)
+ d setSessionValue^%zewdAPI("person.Address.2.hello","world",sessid)
+"RTN","C0CRICH",34,0)
+ d setJSONValue^%zewdAPI("json","person",sessid)
+"RTN","C0CRICH",35,0)
+ Q ""
+"RTN","C0CRICH",36,0)
+
+"RTN","C0CRICH",37,0)
+PARSE(INXML,INDOC) ;CALL THE EWD PARSER ON INXML, PASSED BY NAME
+"RTN","C0CRICH",38,0)
+ ; INDOC IS PASSED AS THE DOCUMENT NAME TO EWD
+"RTN","C0CRICH",39,0)
+ ; EXTRINSIC WHICH RETURNS THE DOCID ASSIGNED BY EWD
+"RTN","C0CRICH",40,0)
+ N ZR
+"RTN","C0CRICH",41,0)
+ M ^CacheTempEWD($j)=@INXML ;
+"RTN","C0CRICH",42,0)
+ S ZR=$$parseDocument^%zewdHTMLParser(INDOC)
+"RTN","C0CRICH",43,0)
+ Q ZR
+"RTN","C0CRICH",44,0)
+ ;
+"RTN","C0CRICH",45,0)
+TEST2(sessid) ; try to put a ccr in the session
+"RTN","C0CRICH",46,0)
+ S U="^"
+"RTN","C0CRICH",47,0)
+ D PSEUDO ; FAKE LOGIN
+"RTN","C0CRICH",48,0)
+ S ZIO=$IO
+"RTN","C0CRICH",49,0)
+ S DEV="/dev/null"
+"RTN","C0CRICH",50,0)
+ O DEV U DEV
+"RTN","C0CRICH",51,0)
+ D CCRRPC^C0CCCR(.GPL,2)
+"RTN","C0CRICH",52,0)
+ K GPL(0)
+"RTN","C0CRICH",53,0)
+ S GPL(2)=""
+"RTN","C0CRICH",54,0)
+ C DEV U ZIO
+"RTN","C0CRICH",55,0)
+ ;M ^CacheTempEWD($j)=GPL
+"RTN","C0CRICH",56,0)
+ S DOCNAME="CCR"
+"RTN","C0CRICH",57,0)
+ ;ZWR GPL
+"RTN","C0CRICH",58,0)
+ ;S ZR=$$parseDocument^%zewdHTMLParser(DOCNAME)
+"RTN","C0CRICH",59,0)
+ ;d setSessionValues^%zewdAPI(DOCNAME,GPL,sessid)
+"RTN","C0CRICH",60,0)
+ d mergeArrayToSession^%zewdAPI(.GPL,DOCNAME,sessid)
+"RTN","C0CRICH",61,0)
+ Q ""
+"RTN","C0CRICH",62,0)
+ ;
+"RTN","C0CRICH",63,0)
+PSEUDO
+"RTN","C0CRICH",64,0)
+ S DILOCKTM=3
+"RTN","C0CRICH",65,0)
+ S DISYS=19
+"RTN","C0CRICH",66,0)
+ S DT=3100219
+"RTN","C0CRICH",67,0)
+ S DTIME=999
+"RTN","C0CRICH",68,0)
+ S DUZ=10
+"RTN","C0CRICH",69,0)
+ S DUZ(0)="@"
+"RTN","C0CRICH",70,0)
+ S DUZ(1)=""
+"RTN","C0CRICH",71,0)
+ S DUZ(2)=1
+"RTN","C0CRICH",72,0)
+ S DUZ("AG")="V"
+"RTN","C0CRICH",73,0)
+ S DUZ("BUF")=1
+"RTN","C0CRICH",74,0)
+ S DUZ("LANG")=""
+"RTN","C0CRICH",75,0)
+ ;S IO="/dev/pts/2"
+"RTN","C0CRICH",76,0)
+ ;S IO(0)="/dev/pts/2"
+"RTN","C0CRICH",77,0)
+ ;S IO(1,"/dev/pts/2")=""
+"RTN","C0CRICH",78,0)
+ ;S IO("ERROR")=""
+"RTN","C0CRICH",79,0)
+ ;S IO("HOME")="41^/dev/pts/2"
+"RTN","C0CRICH",80,0)
+ ;S IO("ZIO")="/dev/pts/2"
+"RTN","C0CRICH",81,0)
+ ;S IOBS="$C(8)"
+"RTN","C0CRICH",82,0)
+ ;S IOF="#,$C(27,91,50,74,27,91,72)"
+"RTN","C0CRICH",83,0)
+ ;S SIOM=80
+"RTN","C0CRICH",84,0)
+ Q
+"RTN","C0CRICH",85,0)
+ ;
+"RTN","C0CRICH",86,0)
+PSEUDO2 ; FAKE LOGIN SETS SOME LOCAL VARIABLE TO FOOL FILEMAN
+"RTN","C0CRICH",87,0)
+ S DILOCKTM=3
+"RTN","C0CRICH",88,0)
+ S DISYS=19
+"RTN","C0CRICH",89,0)
+ S DT=3100112
+"RTN","C0CRICH",90,0)
+ S DTIME=9999
+"RTN","C0CRICH",91,0)
+ S DUZ=135
+"RTN","C0CRICH",92,0)
+ S DUZ(0)=""
+"RTN","C0CRICH",93,0)
+ S DUZ(1)=""
+"RTN","C0CRICH",94,0)
+ S DUZ(2)=67
+"RTN","C0CRICH",95,0)
+ S DUZ("AG")="E"
+"RTN","C0CRICH",96,0)
+ S DUZ("BUF")=1
+"RTN","C0CRICH",97,0)
+ S DUZ("LANG")=1
+"RTN","C0CRICH",98,0)
+ S IO="/dev/pts/0"
+"RTN","C0CRICH",99,0)
+ ;S IO(0)="/dev/pts/0"
+"RTN","C0CRICH",100,0)
+ ;S IO(1,"/dev/pts/0")=""
+"RTN","C0CRICH",101,0)
+ ;S IO("ERROR")=""
+"RTN","C0CRICH",102,0)
+ ;S IO("HOME")="50^/dev/pts/0"
+"RTN","C0CRICH",103,0)
+ ;S IO("ZIO")="/dev/pts/0"
+"RTN","C0CRICH",104,0)
+ ;S IOBS="$C(8)"
+"RTN","C0CRICH",105,0)
+ ;S IOF="!!!!!!!!!!!!!!!!!!!!!!!!,#,$C(27,91,50,74,27,91,72)"
+"RTN","C0CRICH",106,0)
+ ;S IOM=80
+"RTN","C0CRICH",107,0)
+ ;S ION="GTM/UNIX TELNET"
+"RTN","C0CRICH",108,0)
+ ;S IOS=50
+"RTN","C0CRICH",109,0)
+ ;S IOSL=24
+"RTN","C0CRICH",110,0)
+ ;S IOST="C-VT100"
+"RTN","C0CRICH",111,0)
+ ;S IOST(0)=9
+"RTN","C0CRICH",112,0)
+ ;S IOT="VTRM"
+"RTN","C0CRICH",113,0)
+ ;S IOXY="W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72)"
+"RTN","C0CRICH",114,0)
+ S U="^"
+"RTN","C0CRICH",115,0)
+ S X="1;DIC(4.2,"
+"RTN","C0CRICH",116,0)
+ S XPARSYS="1;DIC(4.2,"
+"RTN","C0CRICH",117,0)
+ S XQXFLG="^^XUP"
+"RTN","C0CRICH",118,0)
+ S Y="DEV^VISTA^hollywood^VISTA:hollywood"
+"RTN","C0CRICH",119,0)
+ Q
+"RTN","C0CRICH",120,0)
+ ;
+"SEC","^DIC",70050,70050,0,"AUDIT")
+@
+"SEC","^DIC",70050,70050,0,"DD")
+@
+"SEC","^DIC",70050,70050,0,"DEL")
+@
+"SEC","^DIC",70050,70050,0,"LAYGO")
+@
+"SEC","^DIC",70050,70050,0,"RD")
+@
+"SEC","^DIC",70050,70050,0,"WR")
+@
+"VER")
+8.0^22.0
+"^DD",70050,70050,0)
+FIELD^^1^5
+"^DD",70050,70050,0,"DDA")
+N
+"^DD",70050,70050,0,"DT")
+3100301
+"^DD",70050,70050,0,"ID",.02)
+W " ",$P(^(0),U,2)
+"^DD",70050,70050,0,"ID",.03)
+W " ",$P(^(0),U,3)
+"^DD",70050,70050,0,"IX","B",70050,.01)
+
+"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
+
+"^DD",70050,70050,.01,0)
+EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
+"^DD",70050,70050,.01,1,0)
+^.1
+"^DD",70050,70050,.01,1,1,0)
+70050^B
+"^DD",70050,70050,.01,1,1,1)
+S ^C0E(70050,"B",$E(X,1,30),DA)=""
+"^DD",70050,70050,.01,1,1,2)
+K ^C0E(70050,"B",$E(X,1,30),DA)
+"^DD",70050,70050,.01,3)
+NAMESPACED EWD COMPILED PAGE
+"^DD",70050,70050,.01,"DT")
+3100301
+"^DD",70050,70050,.02,0)
+EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
+"^DD",70050,70050,.02,3)
+NAME OF THE EWD APPLICATION
+"^DD",70050,70050,.02,"DT")
+3100301
+"^DD",70050,70050,.03,0)
+EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
+"^DD",70050,70050,.03,3)
+EWD PAGE NAME
+"^DD",70050,70050,.03,"DT")
+3100301
+"^DD",70050,70050,1,0)
+DESCRIPTION^70050.01^^2;0
+"^DD",70050,70050,2,0)
+EWD SOURCE^70050.02^^1;0
+"^DD",70050,70050.01,0)
+DESCRIPTION SUB-FIELD^^.01^1
+"^DD",70050,70050.01,0,"DT")
+3100301
+"^DD",70050,70050.01,0,"NM","DESCRIPTION")
+
+"^DD",70050,70050.01,0,"UP")
+70050
+"^DD",70050,70050.01,.01,0)
+DESCRIPTION^Wx^^0;1
+"^DD",70050,70050.01,.01,3)
+DESCRIPTION OF THE EWD PAGE
+"^DD",70050,70050.01,.01,"DT")
+3100301
+"^DD",70050,70050.02,0)
+EWD SOURCE SUB-FIELD^^.01^1
+"^DD",70050,70050.02,0,"DT")
+3100301
+"^DD",70050,70050.02,0,"NM","EWD SOURCE")
+
+"^DD",70050,70050.02,0,"UP")
+70050
+"^DD",70050,70050.02,.01,0)
+EWD SOURCE^WLx^^0;1
+"^DD",70050,70050.02,.01,3)
+EWD PAGE SOURCE CODE
+"^DD",70050,70050.02,.01,"DT")
+3100301
+"^DIC",70050,70050,0)
+C0EWD ROUTINE MAP^70050
+"^DIC",70050,70050,0,"GL")
+^C0E(70050,
+"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
+
+**END**
+**END**
Index: EWD/archive/C0CENC.m
===================================================================
--- EWD/archive/C0CENC.m (revision 1265)
+++ EWD/archive/C0CENC.m (revision 1265)
@@ -0,0 +1,189 @@
+C0CENC ; CCDCCR/GPL - CCR/CCD PROCESSING FOR ENCOUNTERS ; 05/21/10
+ ;;1.0;C0C;;May 21, 2010;Build 38
+ ;Copyright 2010 George Lilly, University of Minnesota and others.
+ ;Licensed under the terms of the GNU General Public License.
+ ;See attached copy of the License.
+ ;
+ ;This program is free software; you can redistribute it and/or modify
+ ;it under the terms of the GNU General Public License as published by
+ ;the Free Software Foundation; either version 2 of the License, or
+ ;(at your option) any later version.
+ ;
+ ;This program is distributed in the hope that it will be useful,
+ ;but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ ;GNU General Public License for more details.
+ ;
+ ;You should have received a copy of the GNU General Public License along
+ ;with this program; if not, write to the Free Software Foundation, Inc.,
+ ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ ;
+ W "NO ENTRY FROM TOP",!
+ Q
+ ;
+EXTRACT(ENCXML,DFN,ENCOUT) ; EXTRACT ENCOUNTERS INTO XML TEMPLATE
+ ; ENCXML AND ENCOUT ARE PASSED BY NAME SO GLOBALS CAN BE USED
+ ;
+ D SETVARS^C0CPROC ; SET UP VARIABLES FOR PROCEDUCRES, ENCOUNTERS, AND NOTES
+ ;I '$D(@C0CENC) D TIUGET(DFN,C0CENC,C0CPRC,C0CNTE) ; GET VARS IF NOT THERE
+ K @C0CENC
+ D TIUGET(DFN,C0CENC,C0CPRC,C0CNTE) ; GET ENCOUNTERS
+ D MAP(ENCXML,C0CENC,ENCOUT) ;MAP RESULTS FOR ENCOUNTERS
+ Q
+ ;
+TIUGET(DFN,C0CENC,C0CPRC,C0CNTE) ; CALLS ENTRY^C0CCPT TO GET PROCEDURES,
+ ; ENCOUNTERS AND NOTES. RETURNS THEM IN RNF2 ARRAYS PASSED BY NAME
+ ; C0CENC: ENCOUNTERS, C0CPRC: PROCEDURES, C0CNTE: NOTES
+ ; READY TO BE MAPPED TO XML BY MAP^C0CENC, MAP^C0CPROC, AND MAP^C0CCMT
+ ; THESE RETURN ARRAYS ARE NOT INITIALIZED, BUT ARE ADDED TO IF THEY
+ ; EXIST. THIS IS SO THAT ADDITIONAL PROCEDURES CAN BE OBTAINED FROM
+ ; THE SURGERY PACKGE AND ADDITIONAL COMMENTS FROM OTHER CCR SECTIONS
+ ;
+ ;K VISIT,LST,NOTE
+ I '$D(C0CPRC) D SETVARS^C0CPROC ; INITIALIZE WORK AREAS IF NOT ALREADY THERE
+ I '$D(VISIT) D ENTRY^C0CCPT(DFN,,,1) ; RETURNS VISIT LOCAL VARIABLE
+ ; NEED TO ADD START AND END DATES FROM PARAMETERS
+ N ZI S ZI=""
+ N PREVCPT,PREVDT S (PREVCPT,PREVDT)=""
+ F S ZI=$O(VISIT(ZI),-1) Q:ZI="" D ; REVERSE TIME ORDER - MOST RECENT FIRST
+ . N ZDATE
+ . S ZDATE=$$DATE(VISIT(ZI,"DATE",0))
+ . S ZPRVARY=$NA(VISIT(ZI,"PRV"))
+ . N ZPRV
+ . S ZPRV=$$PRV(ZPRVARY) ; THE PRIMARY PROVIDER OBJECT IN THE FORM
+ . ; ACTORPROVIDER_IEN WHERE IEN IS THE PROVIDER IEN IN NEW PERSON
+ . ; ENCOBJECTID - ENCOUNTER OBJECT ID
+ . ; ENCDATETIME - ENCOUNTER DATE TIME
+ . ; ENCTYPETXT - ENCOUNTER TYPE (PLANNING TO USE ADMINISTRATIVE CPT IF AVAIL)
+ . ; ENCTYPECODE - CODE OF TYPE - PLANNING CPT CODE
+ . ; ENCTYPECODESYS - CODING SYSTEM OF TYPE - CPT-4
+ . ; ENCDESCTXT - ENCOUNTER DESCRIPTION TEXT
+ . ; ENCDESCCODE - ENCOUNTER DESCRIPTION CODE
+ . ; ENCDESCCODESYS - ENCOUNTER DESCRIPTION CODE SYSTEM
+ . ; ENCLOCACTORID - ENCOUNTER LOCATION ACTOR ID
+ . ; ENCPRVACTORID - ENCOUNTER PRACTIONER ACTOR ID
+ . ; ENCINDTXT - ENCOUNTER INDICATION TEXT
+ . ; ENCINDCODE - ENCOUNTER INDICATION CODE
+ . ; ENCINDCODESYS - ENCOUNTER INDICATION CODE SYSTEM
+ . ; ENCACTORID - ENCOUNTER SOURCE ACTOR ID
+ . ; ENCCOMMENTID - ENCOUNTER COMMENT ID - POINTER TO NOTE IN COMMENT SECTION
+ . S ZRNF("ENCOBJECTID")="ENCOUNTER_"_ZI
+ . S ZRNF("ENCDATETIME")=ZDATE ; ENCOUNTER DATE TIME
+ . S ZRNF("ENCTYPETXT")=""
+ . S ZRNF("ENCTYPECODE")=""
+ . S ZRNF("ENCTYPECODESYS")=""
+ . S ZRNF("ENCDESCTXT")=""
+ . S ZRNF("ENCDESCCODE")=""
+ . S ZRNF("ENCDESCCODESYS")=""
+ . N TYPTXT,TYPCDE,TYPSYS ; WILL BE UPDATED BY GETTYPE CALL
+ . I $$GETTYPE("VISIT(ZI)",.TYPTXT,.TYPCDE,.TYPSYS) D ; RETURNS FALSE IF NO TYPE
+ . . S ZRNF("ENCTYPETXT")=TYPTXT
+ . . S ZRNF("ENCTYPECODE")=TYPCDE
+ . . S ZRNF("ENCTYPECODESYS")=TYPSYS
+ . . S ZRNF("ENCDESCTXT")=TYPTXT ; FOR NOW, DESCRIPTION IS SAME AS TYPE
+ . . S ZRNF("ENCDESCCODE")=TYPCDE ; DESCRIPTION IS REQUIRED (TYPE IS NOT)
+ . . S ZRNF("ENCDESCCODESYS")=TYPSYS ; NEED TO CLARIFY FOR VISTA
+ . S ZRNF("ENCLOCACTORID")="ACTORORGANIZATION_1"
+ . S ZRNF("ENCPRVACTORID")=ZPRV ; PRIMARY PROVIDER LISTED FOR THE ENCOUNTER
+ . S ZRNF("ENCINDTXT")="" ; WE WILL PUT POINTERS TO PROBLEMS HERE
+ . S ZRNF("ENCINDCODE")=""
+ . S ZRNF("ENCINDCODESYS")=""
+ . S ZRNF("ENCACTORID")=ZPRV ; SOURCE WILL BE PRIMARY PROVIDER
+ . S ZRNF("ENCCOMMENTID")=""
+ . I $G(VISIT(ZI,"TEXT",1))'="" D ; THERE IS A NOTE
+ . . M @C0CNTE@(ZI,"TEXT")=VISIT(ZI,"TEXT") ; COPY THE TEXT OF THE NOTE
+ . . S @C0CNTE@(ZI,"COMMENTOBJECTID")="NOTE_"_ZI
+ . . S @C0CNTE@(ZI,"CMTDATETIME")=ZDATE ; DATE OF THE NOTE
+ . . S @C0CNTE@(ZI,"ACTORSOURCEID")=ZPRV ; SOURCE OF THE NOTE
+ . . S ZRNF("ENCCOMMENTID")="NOTE_"_ZI ; POINT TO THE NOTE FROM THE ENCOUNTER
+ . D RNF1TO2^C0CRNF(C0CENC,"ZRNF") ; ADD THIS ROW TO THE ARRAY
+ . ;S PREVCPT=ZCPT
+ . ;S PREVDT=ZDATE
+ N ZRIM S ZRIM=$NA(^TMP("C0CRIM","VARS",DFN,"ENCOUNTERS"))
+ M @ZRIM=@C0CENC@("V")
+ K VISIT,LST,NOTE
+ Q
+ ;
+GETTYPE(ZARY,ZTXT,ZCDE,ZSYS) ; EXTRINSIC WHICH RETURNS FALSE IF NO ENCOUNTER TYPE
+ ; UPDATES ZTXT WITH ENCOUNTER TYPE TEXT, ZCDE WITH ENCOUNTER TYPE CODE
+ ; AND ZSYS WITH ENCOUNTER TYPE CODING SYSTEM
+ ; THIS ROUTINE SHOULD BE UPDATED TO SEARCH FOR AN ADMINISTRATIVE CPT CODE
+ ; INSTEAD OF JUST THE FIRST ONE IN THE LIST - GPL 1/23/10
+ N ZS,ZC
+ S ZC="" S ZS=""
+ S (ZTXT,ZCDE,ZSYS)=""
+ F S ZC=$O(@ZARY@("CPT",ZC)) Q:ZC="" D ; TRY AND FIND A "99" CPT CODE
+ . N ZT
+ . S ZT=$$CPT^C0CPROC(@ZARY@("CPT",ZC)) ; VALUES IN A CPT MULTIPLE
+ . I $E($P(ZT,U,1),1,2)="99" S ZS=ZT ; IS IT AN ADMIN CPT CODE?
+ I ZS'="" D ; CODED ENCOUNTER TYPE FOUND
+ . S ZTXT=$P(ZS,U,2)_" "_$P(ZS,U,3) ; USE BOTH PIECES FOR THE TYPE
+ . S ZCDE=$P($$CPT^C0CPROC(ZS),U,1) ; CPT CODE FOR ENCOUTER
+ . S ZSYS=""
+ . I ZCDE'="" S ZSYS="CPT-4" ; ONLY HAVE A CODING SYSTEM IF THERE IS A CODE
+ I ZS="" S ZTXT=$$ANYTXT(ZARY) ; TRY AND GET FREE FORM TEXT FROM CPT MULTIPLES
+ I ZTXT="" Q 0 ; FAILED
+ W !,ZTXT
+ Q 1 ; SUCCESS
+ ;
+ANYTXT(ZVST) ; EXTRINSIC WHICH RETURNS TEXT FROM THE CPT MULTIPLE
+ ; OF A VISIT ARRAY WITHOUT CHECKING THE CPT CODE (THAT HAVING FAILED)
+ ; ZVST IS THE VISIT ARRAY AND IS PASSED BY NAME
+ ; RETURNS TEXT TO USE AS ENCOUNTER TYPE IF ANY
+ N ZK,ZL
+ S ZK="" S ZL=""
+ F S ZK=$O(@ZVST@("CPT",ZK)) Q:ZK="" D ; LOOK FOR SOME TEXT TO USE
+ . N ZT
+ . S ZT=$G(@ZVST@("CPT",ZK)) ; LOOK AT THIS CPT MULTIPLE
+ . I $P(ZT,U,2)_" "_$P(ZT,U,3)'=" " S ZL=$P(ZT,U,2)_" "_$P(ZT,U,3)
+ . ; CONCATENATE PIECE 2 AND 3 OF THE CPT MULTIPLE FOR A TYPE
+ I ZL="" S ZL=$G(@ZVST@("CLASS")) ; USE THE NOTE DOCUMENT CLASS FOR ENCOUTNER TYPE
+ Q ZL
+ ;
+PRV(IARY) ; RETURNS THE PRIMARY PROVIDER FROM THE "PRV" ARRAY PASSED BY NAME
+ N ZI,ZR,ZRTN S ZI="" S ZR="" S ZRTN=""
+ F S ZI=$O(@IARY@(ZI)) Q:ZI="" D ; FOR EACH PRV SEG
+ . I ZR'="" Q ;ONLY WANT THE FIRST PRIMARY PROVIDER
+ . I $P(@IARY@(ZI),U,5)=1 S ZR=$P(@IARY@(ZI),U,1)
+ I ZR'="" S ZRTN="ACTORPROVIDER_"_ZR
+ Q ZRTN
+ ;
+DATE(ISTR) ; EXTRINSIC TO RETURN THE DATE IN CCR FORMAT
+ Q $$FMDTOUTC^C0CUTIL(ISTR,"DT")
+ ;
+CPT(ISTR) ; EXTRINSIC THAT SEARCHES FOR CPT CODES AND RETURNS
+ ; CPT^CATEGORY^TEXT
+ N Z1,Z2,Z3,ZRTN
+ S Z1=$P(ISTR,U,1)
+ I Z1="" D ;
+ . I ISTR["(CPT-4 " S Z1=$P($P(ISTR,"(CPT-4 ",2),")",1)
+ I Z1'="" D ; IF THERE IS A CPT CODE IN THERE
+ . ;S Z1=$P(ISTR,U,1)
+ . S Z2=$P(ISTR,U,2)
+ . S Z3=$P(ISTR,U,3)
+ . S ZRTN=Z1_U_Z2_U_Z3
+ E S ZRTN=""
+ Q ZRTN
+ ;
+MAP(ENCXML,C0CENC,ENCOUT) ; MAP PROCEDURES XML
+ ;
+ N ZTEMP S ZTEMP=$NA(^TMP("C0CCCR",$J,DFN,"ENCTEMP")) ;WORK AREA FOR TEMPLATE
+ K @ZTEMP
+ N ZBLD
+ S ZBLD=$NA(^TMP("C0CCCR",$J,DFN,"ENCBLD")) ; BUILD LIST AREA
+ D QUEUE^C0CXPATH(ZBLD,ENCXML,1,1) ; FIRST LINE
+ N ZINNER
+ D QUERY^C0CXPATH(ENCXML,"//Encounters/Encounter","ZINNER") ;ONE ENCOUNTER
+ N ZTMP,ZVAR,ZI
+ S ZI=""
+ F S ZI=$O(@C0CENC@("V",ZI)) Q:ZI="" D ;FOR EACH ENCOUNTER
+ . S ZTMP=$NA(@ZTEMP@(ZI)) ;THIS ENCOUNTER XML
+ . S ZVAR=$NA(@C0CENC@("V",ZI)) ;THIS ENCOUNTER VARIABLES
+ . D MAP^C0CXPATH("ZINNER",ZVAR,ZTMP) ; MAP THE PROCEDURE
+ . D QUEUE^C0CXPATH(ZBLD,ZTMP,1,@ZTMP@(0)) ;QUE FOR BUILD
+ D QUEUE^C0CXPATH(ZBLD,ENCXML,@ENCXML@(0),@ENCXML@(0))
+ N ZZTMP
+ D BUILD^C0CXPATH(ZBLD,ENCOUT) ;BUILD FINAL XML
+ K @ZTEMP,@ZBLD,@C0CENC
+ Q
+ ;
Index: EWD/archive/C0CENV.m
===================================================================
--- EWD/archive/C0CENV.m (revision 1265)
+++ EWD/archive/C0CENV.m (revision 1265)
@@ -0,0 +1,195 @@
+C0CENV ;WV/JMC - CCD/CCR Environment Check/Install Routine ; Aug 16, 2009
+ ;;1.0;C0C;;May 19, 2009;
+ ;
+ ;
+ENV ; Does not prevent loading of the transport global.
+ ; Environment check is done only during the install.
+ ;
+ N XQA,XQAMSG
+ ;
+ ;
+ ; Make sure the patch name exist
+ ;
+ I '$D(XPDNM) D Q
+ . D BMES("No valid patch name exist")
+ . S XPDQUIT=2
+ . D EXIT
+ ;
+ D CHECK
+ D EXIT
+ Q
+ ;
+ ;
+CHECK ; Perform environment check
+ ;
+ I $S('$G(IOM):1,'$G(IOSL):1,$G(U)'="^":1,1:0) D
+ . D BMES("Terminal Device is not defined")
+ . S XPDQUIT=2
+ ;
+ I $S('$G(DUZ):1,$D(DUZ)[0:1,$D(DUZ(0))[0:1,1:0) D
+ . D BMES("Please log in to set local DUZ... variables")
+ . S XPDQUIT=2
+ ;
+ I $P($$ACTIVE^XUSER(DUZ),"^")'=1 D
+ . D BMES("You are not a valid user on this system")
+ . S XPDQUIT=2
+ Q
+ ;
+ ;
+EXIT ;
+ ;
+ ;
+ I $G(XPDQUIT) D BMES("--- Install Environment Check FAILED ---") Q
+ D BMES("--- Environment Check is Ok ---")
+ ;
+ Q
+ ;
+ ;
+PRE ;Pre-install entry point
+ ;
+ ; No action needed in pre-install
+ D BMES("No action need for pre-install")
+ ;
+ Q
+ ;
+ ;
+POST ;Post install
+ ;
+ ; Check for RPMS system with V LAB file.
+ ;
+ I $$VFILE^DILFD(9000010.09)'=1 Q
+ ;
+ S %=$$NEWCP^XPDUTL("RPMS1","POST1^C0CENV")
+ S %=$$NEWCP^XPDUTL("RPMS2","POST2^C0CENV")
+ S %=$$NEWCP^XPDUTL("RPMS3","POST3^C0CENV")
+ S %=$$NEWCP^XPDUTL("RPMS4","POST4^C0CENV")
+ S %=$$NEWCP^XPDUTL("RPMS5","POST5^C0CENV")
+ S %=$$NEWCP^XPDUTL("RPMS6","POST6^C0CENV")
+ S %=$$NEWCP^XPDUTL("RPMS7","POST7^C0CENV")
+ ;
+ Q
+ ;
+ ;
+POST1 ; Checkpoint call back entry point.
+ ; Add new style ALR1 cross-reference to V LAB file.
+ ;
+ N MSG
+ S MSG="Starting installation of ALR1 cross-reference at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ D ALR1^C0CLA7DD
+ S MSG="Installation of ALR1 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ Q
+ ;
+ ;
+POST2 ; Checkpoint call back entry point.
+ ; Add new style ALR2 cross-reference to V LAB file.
+ ;
+ N MSG
+ S MSG="Starting installation of ALR2 cross-reference at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ D ALR2^C0CLA7DD
+ S MSG="Installation of ALR2 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ Q
+ ;
+ ;
+POST3 ; Checkpoint call back entry point.
+ ; Add new style ALR3 cross-reference to V LAB file.
+ ;
+ N MSG
+ S MSG="Starting installation of ALR3 cross-reference at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ D ALR3^C0CLA7DD
+ S MSG="Installation of ALR3 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ Q
+ ;
+ ;
+POST4 ; Checkpoint call back entry point.
+ ; Add new style ALR4 cross-reference to V LAB file.
+ ;
+ N MSG
+ S MSG="Starting installation of ALR4 cross-reference at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ D ALR4^C0CLA7DD
+ S MSG="Installation of ALR4 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ Q
+ ;
+ ;
+POST5 ; Checkpoint call back entry point.
+ ; Add new style ALR5 cross-reference to V LAB file.
+ ;
+ N MSG
+ S MSG="Starting installation of ALR5 cross-reference at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ D ALR5^C0CLA7DD
+ S MSG="Installation of ALR5 cross-reference completed at "_$$HTE^XLFDT($H,"1Z")
+ D BMES(MSG)
+ Q
+ ;
+ ;
+POST6 ; Checkpoint call back entry point.
+ ; Check for RPMS system and determine LAB patch level
+ ; and need to load in C0C version of LA7 routines.
+ ;
+ N MSG
+ ;
+ ; Load and rename C0CQRY2 to LA7QRY2 if LA*5.2*69 not installed
+ I '$$PATCH^XPDUTL("LA*5.2*69") D
+ . S MSG="This system missing LAB patch LA*5.2*69"
+ . D BMES(MSG)
+ . S MSG="Renaming routine C0CQRY2 to LA7QRY2"
+ . D BMES(MSG)
+ . D LOAD("C0CQRY2")
+ . D SAVE("C0CQRY2","LA7QRY2")
+ ;
+ ; Load and rename C0CVOBX1 to LA7VOBX1 if LA*5.2*64 not installed.
+ I '$$PATCH^XPDUTL("LA*5.2*64") D
+ . S MSG="This system missing LAB patch LA*5.2*64"
+ . D BMES(MSG)
+ . S MSG="Renaming routine C0CVOBX1 to LA7VOBX1"
+ . D BMES(MSG)
+ . D LOAD("C0CVOBX1")
+ . D SAVE("C0CVOBX1","LA7VOBX1")
+ ;
+ ; Load and rename C0CQRY1 to LA7QRY1 if LA*5.2*68 not installed.
+ I '$$PATCH^XPDUTL("LA*5.2*68") D
+ . S MSG="This system missing LAB patch LA*5.2*68"
+ . D BMES(MSG)
+ . S MSG="Renaming routine C0CQRY1 to LA7QRY1"
+ . D BMES(MSG)
+ . D LOAD("C0CQRY1")
+ . D SAVE("C0CQRY1","LA7QRY1")
+ ;
+ Q
+ ;
+ ;
+POST7 ; Checkpoint call back entry point.
+ ;
+ D REINDEX^C0CLA7DD
+ ;
+ Q
+ ;
+ ;
+BMES(STR) ; Write BMES^XPDUTL statements
+ ;
+ D BMES^XPDUTL($$CJ^XLFSTR(STR,IOM))
+ ;
+ Q
+ ;
+ ;
+LOAD(X) ; load routine X
+ N %N,DIF,XCNP
+ K ^TMP($J,X)
+ S DIF="^TMP($J,X,",XCNP=0
+ X ^%ZOSF("LOAD")
+ Q
+ ;
+ ;
+SAVE(OLD,NEW) ; restore routine X
+ N %,DIE,X,XCM,XCN,XCS
+ S DIE="^TMP($J,"""_OLD_""",",XCN=0,X=NEW
+ X ^%ZOSF("SAVE")
+ Q
Index: EWD/archive/C0CEVC.m
===================================================================
--- EWD/archive/C0CEVC.m (revision 1265)
+++ EWD/archive/C0CEVC.m (revision 1265)
@@ -0,0 +1,177 @@
+C0CEVC ; CCDCCR/GPL - SUPPORT FOR EWD VISTCOM PAGES ; 3/1/2010
+ ;;1.0;C0C;;Mar 1, 2010;
+gpltest2 ; experiment with sending a CCR to an ewd page
+ N ZI
+ S ZI=""
+ D PSEUDO
+ N ZIO
+ S ZIO=IO
+ S IO="/dev/null"
+ OPEN IO
+ U IO
+ N G
+ S G=$$URLTOKEN^C0CEWD
+ D CCRRPC^C0CCCR(.GPL,2)
+ S IO=ZIO
+ OPEN IO
+ U IO
+ K GPL(0)
+ F S ZI=$O(GPL(ZI)) Q:ZI="" W GPL(ZI),!
+ Q
+ ;
+gpltest ; experiment with sending a CCR to an ewd page
+ N ZI
+ S ZI=""
+ K ^GPL(0)
+ S ^GPL(2)=""
+ F S ZI=$O(^GPL(ZI)) Q:ZI="" W ^GPL(ZI),!
+ Q
+ ;
+TEST(sessid);
+ d setSessionValue^%zewdAPI("person.Name","Rob",sessid)
+ d setSessionValue^%zewdAPI("person.DateOfBirth","13/06/55",sessid)
+ d setSessionValue^%zewdAPI("person.Address.PostCode","SW1 3QA",sessid)
+ d setSessionValue^%zewdAPI("person.Address.Line1","1 The Street",sessid)
+ d setSessionValue^%zewdAPI("person.Address.2.hello","world",sessid)
+ d setJSONValue^%zewdAPI("json","person",sessid)
+ Q ""
+
+PARSE(INXML,INDOC) ;CALL THE EWD PARSER ON INXML, PASSED BY NAME
+ ; INDOC IS PASSED AS THE DOCUMENT NAME TO EWD
+ ; EXTRINSIC WHICH RETURNS THE DOCID ASSIGNED BY EWD
+ N ZR
+ M ^CacheTempEWD($j)=@INXML ;
+ S ZR=$$parseDocument^%zewdHTMLParser(INDOC)
+ Q ZR
+ ;
+TEST2(sessid) ; try to put a ccr in the session
+ S U="^"
+ D PSEUDO ; FAKE LOGIN
+ S ZIO=$IO
+ S DEV="/dev/null"
+ O DEV U DEV
+ N G
+ N ZDFN
+ S ZDFN=$$getSessionValue^%zewdAPI("vista.dfn",sessid)
+ I ZDFN="" S ZDFN=2
+ ;K ^TMP("GPL")
+ ;M ^TMP("GPL")=^%zewdSession("session",sessid)
+ D CCRRPC^C0CCCR(.GPL,ZDFN)
+ K GPL(0)
+ S GPL(2)=""
+ C DEV U ZIO
+ ;M ^CacheTempEWD($j)=GPL
+ S DOCNAME="CCR"
+ ;ZWR GPL
+ ;S ZR=$$parseDocument^%zewdHTMLParser(DOCNAME)
+ ;d setSessionValues^%zewdAPI(DOCNAME,GPL,sessid)
+ d mergeArrayToSession^%zewdAPI(.GPL,DOCNAME,sessid)
+ Q ""
+ ;
+INITSES(sessid) ;initialize an EWD/CPRS session
+ K ^TMP("GPL")
+ ;M ^TMP("GPL")=^%zewdSession("session",sessid)
+ N ZT,ZDFN
+ S ZT=$$URLTOKEN^C0CEWD(sessid)
+ ;S ^TMP("GPL")=ZT
+ d trace^%zewdAPI("*********************ZT="_ZT)
+ S ZDFN=$$PRSEORTK(ZT) ; PARSE THE TOKEN AND LOOK UP THE DFN
+ S ^TMP("GPL","DFN")=ZDFN
+ I ZDFN=0 S DFN=2 ; DEFAULT TEST PATIENT
+ D setSessionValue^%zewdAPI("vista.dfn",ZDFN,sessid)
+ ;M ^TMP("GPL","request")=requestArray
+ ;D PSEUDO
+ ;D ^%ZTER
+ q ""
+ ;
+PRSEORTK(ZTOKEN) ;PARSES THE TOKEN SENT BY CPRS AND RETURNS THE DFN
+ ; OF THE PATIENT ; HERE'S WHAT THE TOKEN LOOKS LIKE:
+ ; ^TMP('ORWCHART',6547,'192.168.169.8',002E0FE6)
+ N ZX,ZN1,ZIP,ZN2,ZDFN,ZG
+ S ZDFN=0 ; DEFAULT RETURN
+ S ZN1=$P(ZTOKEN,",",2) ; FIRST NUMBER
+ S ZIP=$P(ZTOKEN,",",3) ; IP NUMBER
+ S ZIP=$P(ZIP,"'",2) ; GET RID OF '
+ S ZN2=$P(ZTOKEN,",",4) ; SECOND NUMBER
+ S ZN2=$P(ZN2,")",1) ; GET RID OF )
+ S ZG=$NA(^TMP("ORWCHART",ZN1,ZIP,ZN2)) ; BUILD THE GLOBAL NAME
+ I $G(@ZG)'="" S ZDFN=@ZG ; ACCESS THE GLOBAL
+ S ^TMP("GPL","FIRSTDFN")=ZDFN
+ S ^TMP("GPL","FIRSTGLB")=ZG
+ Q ZDFN
+ ;
+GETPATIENTLIST(sessid) ;
+ D PSEUDO
+ D LISTALL^ORWPT(.RTN,"NAME","1")
+ N ZI
+ S ZI=""
+ F S ZI=$O(RTN(ZI)) Q:ZI="" D ;
+ . S data(ZI,"DFN")=$P(RTN(ZI),"^",1)
+ . S data(ZI,"Name")=$P(RTN(ZI),"^",2)
+ ; ZWR data
+ ;S data(1,"DFN")=$P(RTN(1),"^",1)
+ ;S data(1,"Name")=$P(RTN(1),"^",2)
+ d deleteFromSession^%zewdAPI("patients",sessid)
+ d createDataTableStore^%zewdYUIRuntime(.data,"patients",sessid)
+ ;d mergeArrayToSession^%zewdAPI(.data,"patients",sessid)
+ Q ""
+ ;
+PSEUDO
+ S U="^"
+ S DILOCKTM=3
+ S DISYS=19
+ S DT=3100219
+ S DTIME=999
+ S DUZ=10
+ S DUZ(0)="@"
+ S DUZ(1)=""
+ S DUZ(2)=1
+ S DUZ("AG")="V"
+ S DUZ("BUF")=1
+ S DUZ("LANG")=""
+ ;S IO="/dev/pts/2"
+ ;S IO(0)="/dev/pts/2"
+ ;S IO(1,"/dev/pts/2")=""
+ ;S IO("ERROR")=""
+ ;S IO("HOME")="41^/dev/pts/2"
+ ;S IO("ZIO")="/dev/pts/2"
+ ;S IOBS="$C(8)"
+ ;S IOF="#,$C(27,91,50,74,27,91,72)"
+ ;S SIOM=80
+ Q
+ ;
+PSEUDO2 ; FAKE LOGIN SETS SOME LOCAL VARIABLE TO FOOL FILEMAN
+ S DILOCKTM=3
+ S DISYS=19
+ S DT=3100112
+ S DTIME=9999
+ S DUZ=10000000020
+ S DUZ(0)="@"
+ S DUZ(1)=""
+ S DUZ(2)=67
+ S DUZ("AG")="E"
+ S DUZ("BUF")=1
+ S DUZ("LANG")=1
+ S IO="/dev/pts/0"
+ ;S IO(0)="/dev/pts/0"
+ ;S IO(1,"/dev/pts/0")=""
+ ;S IO("ERROR")=""
+ ;S IO("HOME")="50^/dev/pts/0"
+ ;S IO("ZIO")="/dev/pts/0"
+ ;S IOBS="$C(8)"
+ ;S IOF="!!!!!!!!!!!!!!!!!!!!!!!!,#,$C(27,91,50,74,27,91,72)"
+ ;S IOM=80
+ ;S ION="GTM/UNIX TELNET"
+ ;S IOS=50
+ ;S IOSL=24
+ ;S IOST="C-VT100"
+ ;S IOST(0)=9
+ ;S IOT="VTRM"
+ ;S IOXY="W $C(27,91)_((DY+1))_$C(59)_((DX+1))_$C(72)"
+ S U="^"
+ S X="1;DIC(4.2,"
+ S XPARSYS="1;DIC(4.2,"
+ S XQXFLG="^^XUP"
+ S Y="DEV^VISTA^hollywood^VISTA:hollywood"
+ Q
+ ;
Index: EWD/archive/C0CEWD.m
===================================================================
--- EWD/archive/C0CEWD.m (revision 1265)
+++ EWD/archive/C0CEWD.m (revision 1265)
@@ -0,0 +1,71 @@
+C0CEWD ; CCDCCR/GPL - CCR EWD utilities; 1/6/11
+ ;;0.1;CCDCCR;nopatch;noreleasedate;Build 77
+ ;Copyright 2011 George Lilly. Licensed under the terms of the GNU
+ ;General Public License See attached copy of the License.
+ ;
+ ;This program is free software; you can redistribute it and/or modify
+ ;it under the terms of the GNU General Public License as published by
+ ;the Free Software Foundation; either version 2 of the License, or
+ ;(at your option) any later version.
+ ;
+ ;This program is distributed in the hope that it will be useful,
+ ;but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ ;GNU General Public License for more details.
+ ;
+ ;You should have received a copy of the GNU General Public License along
+ ;with this program; if not, write to the Free Software Foundation, Inc.,
+ ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ ;
+ Q
+ ;
+TOKEN() ; EXTRINSIC WHICH RETURNS A NEW RANDOM TOKEN
+ Q $$UUID^C0CUTIL ; USE THE UUID FUNCTION IN THE CCR PACKAGE
+ ;
+STORE(ZARY) ; STORE AN ARRAY OF VALUES INDEXED BY A NEW TOKEN
+ ; IN ^TMP("C0E","TOKEN") FOR LATER RETRIEVAL FROM INSIDE AN EWD SESSION
+ ; RETURNS THE TOKEN. ZARY IS PASSED BY NAME
+ N ZT
+ S ZT=$$TOKEN ; GET A NEW TOKEN
+ M ^TMP("C0E","TOKEN",ZT)=@ZARY ;
+ Q ZT
+ ;
+GET(C0ERTN,C0ETOKEN,NOKILL) ; RETRIEVE A STORED ARRAY INDEXED BY ZTOKEN
+ ; KILL THE ARRAY AFTER RETRIEVAL UNLESS NOKILL=1
+ ; C0ERTN IS PASSED BY NAME
+ I '$D(^TMP("C0E","TOKEN",C0ETOKEN)) D Q ; DOESN'T EXIST
+ . S @C0ERTN="" ; PASS BACK NULL
+ M @C0ERTN=^TMP("C0E","TOKEN",C0ETOKEN) ; RETRIEVE
+ I $G(NOKILL)'=1 K ^TMP("C0E","TOKEN",C0ETOKEN) ; DELETE
+ Q
+ ;
+URLTOKEN(sessid) ; EXTRINSIC WHICH RETRIEVES THE TOKEN PASSED ON THE URL
+ ; IN EWD EXAMPLE: https://example.com/ewd/myApp/index.ewd?token="12345"
+ N token
+ S token=""
+ s token=$$getRequestValue^%zewdAPI("token",sessid)
+ s token=$tr(token,"""") ; strip out quotes
+ Q token
+ ;
+cbTestMethod(prefix,seedValue,lastSeedValue,optionNo,options)
+ ;
+ n maxNo,noFound
+ ;
+ s maxNo=50
+ s noFound=0
+ f s seedValue=$o(^DPT("B",seedValue)) q:seedValue="" q:noFound=maxNo d
+ . s lastSeedValue=seedValue
+ . i prefix'="",$e(seedValue,1,$l(prefix))'=prefix q
+ . s optionNo=optionNo+1
+ . s noFound=noFound+1
+ . s options(optionNo)=seedValue
+ QUIT
+ ;
+set1 ;
+ s ^zewd("comboPlus","methodMap","test")="cbTestMethod^C0PEREW"
+ q
+ ;
+test1(sessid) ;
+ d setSessionValue^%zewdAPI("testing","ZZ",sessid)
+ q 0
+ ;
Index: EWD/archive/C0CEWD1.m
===================================================================
--- EWD/archive/C0CEWD1.m (revision 1265)
+++ EWD/archive/C0CEWD1.m (revision 1265)
@@ -0,0 +1,67 @@
+C0CEWD1 ; CCDCCR/GPL - CCR FILEMAN utilities; 12/6/08
+ ;;0.1;CCDCCR;nopatch;noreleasedate
+ ;Copyright 2009 George Lilly. Licensed under the terms of the GNU
+ ;General Public License See attached copy of the License.
+ ;
+ ;This program is free software; you can redistribute it and/or modify
+ ;it under the terms of the GNU General Public License as published by
+ ;the Free Software Foundation; either version 2 of the License, or
+ ;(at your option) any later version.
+ ;
+ ;This program is distributed in the hope that it will be useful,
+ ;but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ ;GNU General Public License for more details.
+ ;
+ ;You should have received a copy of the GNU General Public License along
+ ;with this program; if not, write to the Free Software Foundation, Inc.,
+ ;51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+ ;
+ Q
+ ;
+TEST(filepath) ; filepath IS THE PATH/FILE TO BE READ IN
+ i $g(^%ZISH)["" d ; if the VistA Kernal routine %ZISH exists
+ . n zfile,zpath,ztmp s (zfile,zpath,ztmp)=""
+ . s zfile=$re($p($re(filepath),"/",1)) ;file name
+ . s zpath=$p(filepath,zfile,1) ; file path
+ . s ztmp=$na(^CacheTempEWD($j,0))
+ . s ok=$$FTG^%ZISH(zpath,zfile,ztmp,2) ; import the file incrementing subscr 2
+ q
+ ;
+TEST2 ;
+ s zfilepath="/home/vademo2/CCR/PAT_780_CCR_V1_0_17.xml"
+ ;s ok=$$gtmImportFile^%zewdHTMLParser(zfilepath)
+ s ok=$$LOAD(zfilepath) ;load the XML file to the EWD global
+ s ok=$$parseDocument^%zewdHTMLParser("DerekDOM",0)
+ ;s ok=$$parseXMLFile^%zewdAPI(zfilepath,"fourthDOM")
+ w ok,!
+ q
+ ;
+LOAD(filepath) ; load an xml file into the EWD global for DOM processing
+ ; need to call s error=$$parseDocument^%zewdHTMLParser(docName,isHTML)
+ ; after to process it to the DOM - isHTML=0 for XML files
+ n i
+ i $g(^%ZISH)["" d QUIT i ; if VistA Kernal routine %ZISH exists - gpl 2/23/09
+ . n zfile,zpath,ztmp,zok s (zfile,zpath,ztmp)=""
+ . s zfile=$re($p($re(filepath),"/",1)) ;file name
+ . s zpath=$p(filepath,zfile,1) ; file path
+ . s ztmp=$na(^CacheTempEWD($j,0))
+ . s zok=$$FTG^%ZISH(zpath,zfile,ztmp,2) ; import the file increment subscr 2
+ . s i=$o(^CacheTempEWD($j,""),-1) ; highest line number
+ q i
+ ;
+Q(ZQ,ZD) ; SEND QUERY ZQ TO DOM ZD AND DIPLAY NODES RETURNED
+ I '$D(ZD) S ZD="DerekDOM"
+ s error=$$select^%zewdXPath(ZQ,ZD,.nodes) ;
+ d displayNodes^%zewdXPath(.nodes)
+ q
+ ;
+GET1URL0(URL) ;
+ s ok=$$httpGET^%zewdGTM(URL,.gpl)
+ D INDEX^C0CXPATH("gpl","gpl2")
+ W !,"S URL=""",URL,"""",!
+ S G=""
+ F S G=$O(gpl2(G)) Q:G="" D ;
+ . W " S VDX(""",G,""")=""",gpl2(G),"""",!
+ W !
+ Q
Index: EWD/archive/C0CEX.m
===================================================================
--- EWD/archive/C0CEX.m (revision 1265)
+++ EWD/archive/C0CEX.m (revision 1265)
@@ -0,0 +1,18 @@
+C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
+ ;;1.0;C0C;;Mar 1, 2010 ;
+SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+ ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
+ N ZR
+ I $G(ZAPP)="" Q ;
+ I $G(ZPAGE)="" Q ;
+ I $G(ZROUTINE)="" Q ;
+ S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
+ S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
+ Q
+ ;
+KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+ ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
+ I $G(ZAPP)="" Q ;
+ I $G(ZPAGE)="" Q ;
+ K ^zewd("routineMap",ZAPP,ZPAGE)
+ Q
Index: EWD/archive/C0E0_1_0_0_T1.KID
===================================================================
--- EWD/archive/C0E0_1_0_0_T1.KID (revision 1265)
+++ EWD/archive/C0E0_1_0_0_T1.KID (revision 1265)
@@ -0,0 +1,1926 @@
+KIDS Distribution saved on Mar 02, 2010@00:27:27
+initial build of screenman demo
+**KIDS**:C0E0*1.0*0^
+
+**INSTALL NAME**
+C0E0*1.0*0
+"BLD",6969,0)
+C0E0*1.0*0^^0^3100302^n
+"BLD",6969,4,0)
+^9.64PA^70050^1
+"BLD",6969,4,70050,0)
+70050
+"BLD",6969,4,70050,222)
+y^y^f^^n^^y^o^n
+"BLD",6969,4,"B",70050,70050)
+
+"BLD",6969,6.3)
+1
+"BLD",6969,"KRN",0)
+^9.67PA^8989.52^19
+"BLD",6969,"KRN",.4,0)
+.4
+"BLD",6969,"KRN",.401,0)
+.401
+"BLD",6969,"KRN",.401,"NM",0)
+^9.68A^1^1
+"BLD",6969,"KRN",.401,"NM",1,0)
+C0E SCREENMAN RECORDS FILE #70050^70050^0
+"BLD",6969,"KRN",.401,"NM","B","C0E SCREENMAN RECORDS FILE #70050",1)
+
+"BLD",6969,"KRN",.402,0)
+.402
+"BLD",6969,"KRN",.403,0)
+.403
+"BLD",6969,"KRN",.5,0)
+.5
+"BLD",6969,"KRN",.84,0)
+.84
+"BLD",6969,"KRN",3.6,0)
+3.6
+"BLD",6969,"KRN",3.8,0)
+3.8
+"BLD",6969,"KRN",9.2,0)
+9.2
+"BLD",6969,"KRN",9.8,0)
+9.8
+"BLD",6969,"KRN",9.8,"NM",0)
+^9.68A^8^8
+"BLD",6969,"KRN",9.8,"NM",1,0)
+C0CROB^^0^B1053192
+"BLD",6969,"KRN",9.8,"NM",2,0)
+C0CEX^^0^B811998
+"BLD",6969,"KRN",9.8,"NM",3,0)
+C0E0000A^^0^B14799604
+"BLD",6969,"KRN",9.8,"NM",4,0)
+C0E0000F^^0^B32569634
+"BLD",6969,"KRN",9.8,"NM",5,0)
+C0E0000E^^0^B27501668
+"BLD",6969,"KRN",9.8,"NM",6,0)
+C0E0000R^^0^B66670061
+"BLD",6969,"KRN",9.8,"NM",7,0)
+C0E0001I^^0^B20127196
+"BLD",6969,"KRN",9.8,"NM",8,0)
+C0E0002^^0^B92918287
+"BLD",6969,"KRN",9.8,"NM","B","C0CEX",2)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0CROB",1)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000A",3)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000E",5)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000F",4)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000R",6)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0001I",7)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0002",8)
+
+"BLD",6969,"KRN",19,0)
+19
+"BLD",6969,"KRN",19.1,0)
+19.1
+"BLD",6969,"KRN",101,0)
+101
+"BLD",6969,"KRN",409.61,0)
+409.61
+"BLD",6969,"KRN",771,0)
+771
+"BLD",6969,"KRN",870,0)
+870
+"BLD",6969,"KRN",8989.51,0)
+8989.51
+"BLD",6969,"KRN",8989.52,0)
+8989.52
+"BLD",6969,"KRN",8994,0)
+8994
+"BLD",6969,"KRN","B",.4,.4)
+
+"BLD",6969,"KRN","B",.401,.401)
+
+"BLD",6969,"KRN","B",.402,.402)
+
+"BLD",6969,"KRN","B",.403,.403)
+
+"BLD",6969,"KRN","B",.5,.5)
+
+"BLD",6969,"KRN","B",.84,.84)
+
+"BLD",6969,"KRN","B",3.6,3.6)
+
+"BLD",6969,"KRN","B",3.8,3.8)
+
+"BLD",6969,"KRN","B",9.2,9.2)
+
+"BLD",6969,"KRN","B",9.8,9.8)
+
+"BLD",6969,"KRN","B",19,19)
+
+"BLD",6969,"KRN","B",19.1,19.1)
+
+"BLD",6969,"KRN","B",101,101)
+
+"BLD",6969,"KRN","B",409.61,409.61)
+
+"BLD",6969,"KRN","B",771,771)
+
+"BLD",6969,"KRN","B",870,870)
+
+"BLD",6969,"KRN","B",8989.51,8989.51)
+
+"BLD",6969,"KRN","B",8989.52,8989.52)
+
+"BLD",6969,"KRN","B",8994,8994)
+
+"BLD",6969,"QUES",0)
+^9.62^^
+"DATA",70050,1,0)
+23394^patientportal^ewdajaxerror
+"DATA",70050,2,0)
+23397^patientportal^ewderrorredirect
+"DATA",70050,3,0)
+23399^patientportal^index
+"DATA",70050,3,1,0)
+^70050.02^28^28^3100301^^
+"DATA",70050,3,1,1,0)
+
+"DATA",70050,3,1,2,0)
+
+"DATA",70050,3,1,3,0)
+
+"DATA",70050,3,1,4,0)
+ The start EWD Page
+"DATA",70050,3,1,5,0)
+
+"DATA",70050,3,1,11,0)
+
+"DATA",70050,3,1,12,0)
+
+"DATA",70050,3,1,13,0)
+
+"DATA",70050,16,1,8,0)
+test1 page
+"DATA",70050,16,1,9,0)
+
+"DATA",70050,16,1,10,0)
+
+"DATA",70050,17,0)
+23412^screenman^test1.m
+"DATA",70050,17,1,0)
+^^25^25^3100301^
+"DATA",70050,17,1,1,0)
+
+"DATA",70050,17,1,2,0)
+
+"DATA",70050,17,1,3,0)
+
+"DATA",70050,17,1,4,0)
+
+"DATA",70050,17,1,9,0)
+Screenman Test
+"DATA",70050,17,1,10,0)
+
+"DATA",70050,17,1,11,0)
+
+"DATA",70050,17,1,12,0)
+
+"DATA",70050,17,1,24,0)
+
+"DATA",70050,17,1,25,0)
+
+"FIA",70050)
+C0EWD ROUTINE MAP
+"FIA",70050,0)
+^C0E(70050,
+"FIA",70050,0,0)
+70050PI
+"FIA",70050,0,1)
+y^y^f^^n^^y^o^n
+"FIA",70050,0,10)
+
+"FIA",70050,0,11)
+
+"FIA",70050,0,"RLRO")
+
+"FIA",70050,70050)
+0
+"FIA",70050,70050.01)
+0
+"FIA",70050,70050.02)
+0
+"IX",70050,70050,"AZEWD",0)
+70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
+"IX",70050,70050,"AZEWD",1)
+D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",2)
+D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",11.1,0)
+^.114IA^3^3
+"IX",70050,70050,"AZEWD",11.1,1,0)
+1^F^70050^.01^^^F
+"IX",70050,70050,"AZEWD",11.1,2,0)
+2^F^70050^.02^^^F
+"IX",70050,70050,"AZEWD",11.1,3,0)
+3^F^70050^.03^^^F
+"IX",70050,70050,"C",0)
+70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
+"IX",70050,70050,"C",1)
+S ^C0E(70050,"C",$E(X,1,60),DA)=""
+"IX",70050,70050,"C",2)
+K ^C0E(70050,"C",$E(X,1,60),DA)
+"IX",70050,70050,"C",2.5)
+K ^C0E(70050,"C")
+"IX",70050,70050,"C",11.1,0)
+^.114IA^1^1
+"IX",70050,70050,"C",11.1,1,0)
+1^F^70050^.03^60^1^F
+"IX",70050,70050,"C",11.1,1,3)
+
+"KRN",.401,1794,-1)
+0^1
+"KRN",.401,1794,0)
+C0E SCREENMAN RECORDS^3100302.0014^@^70050^^@^3100302
+"KRN",.401,1794,2,0)
+^.4014^1^1
+"KRN",.401,1794,2,1,0)
+70050^.02^EWD APPLICATION^^^^^^^4
+"KRN",.401,1794,2,1,"F")
+screenmamz^screenman
+"KRN",.401,1794,2,1,"GET")
+S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
+"KRN",.401,1794,2,1,"QCON")
+I DISX(1)="screenman"
+"KRN",.401,1794,2,1,"T")
+screenman^screenman
+"KRN",.401,1794,2,1,"TXT")
+EWD APPLICATION equals screenman
+"KRN",.401,1794,2,"B",70050,1)
+
+"MBREQ")
+0
+"ORD",6,.401)
+.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,"",%)
+"ORD",6,.401,0)
+SORT TEMPLATE
+"QUES","XPF1",0)
+Y
+"QUES","XPF1","??")
+^D REP^XPDH
+"QUES","XPF1","A")
+Shall I write over your |FLAG| File
+"QUES","XPF1","B")
+YES
+"QUES","XPF1","M")
+D XPF1^XPDIQ
+"QUES","XPF2",0)
+Y
+"QUES","XPF2","??")
+^D DTA^XPDH
+"QUES","XPF2","A")
+Want my data |FLAG| yours
+"QUES","XPF2","B")
+YES
+"QUES","XPF2","M")
+D XPF2^XPDIQ
+"QUES","XPI1",0)
+YO
+"QUES","XPI1","??")
+^D INHIBIT^XPDH
+"QUES","XPI1","A")
+Want KIDS to INHIBIT LOGONs during the install
+"QUES","XPI1","B")
+NO
+"QUES","XPI1","M")
+D XPI1^XPDIQ
+"QUES","XPM1",0)
+PO^VA(200,:EM
+"QUES","XPM1","??")
+^D MG^XPDH
+"QUES","XPM1","A")
+Enter the Coordinator for Mail Group '|FLAG|'
+"QUES","XPM1","B")
+
+"QUES","XPM1","M")
+D XPM1^XPDIQ
+"QUES","XPO1",0)
+Y
+"QUES","XPO1","??")
+^D MENU^XPDH
+"QUES","XPO1","A")
+Want KIDS to Rebuild Menu Trees Upon Completion of Install
+"QUES","XPO1","B")
+NO
+"QUES","XPO1","M")
+D XPO1^XPDIQ
+"QUES","XPZ1",0)
+Y
+"QUES","XPZ1","??")
+^D OPT^XPDH
+"QUES","XPZ1","A")
+Want to DISABLE Scheduled Options, Menu Options, and Protocols
+"QUES","XPZ1","B")
+NO
+"QUES","XPZ1","M")
+D XPZ1^XPDIQ
+"QUES","XPZ2",0)
+Y
+"QUES","XPZ2","??")
+^D RTN^XPDH
+"QUES","XPZ2","A")
+Want to MOVE routines to other CPUs
+"QUES","XPZ2","B")
+NO
+"QUES","XPZ2","M")
+D XPZ2^XPDIQ
+"RTN")
+8
+"RTN","C0CEX")
+0^2^B811998
+"RTN","C0CEX",1,0)
+C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
+"RTN","C0CEX",2,0)
+ ;;1.0;C0C;;Mar 1, 2010 ;Build 1
+"RTN","C0CEX",3,0)
+SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+"RTN","C0CEX",4,0)
+ ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
+"RTN","C0CEX",5,0)
+ N ZR
+"RTN","C0CEX",6,0)
+ I $G(ZAPP)="" Q ;
+"RTN","C0CEX",7,0)
+ I $G(ZPAGE)="" Q ;
+"RTN","C0CEX",8,0)
+ I $G(ZROUTINE)="" Q ;
+"RTN","C0CEX",9,0)
+ S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
+"RTN","C0CEX",10,0)
+ S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
+"RTN","C0CEX",11,0)
+ Q
+"RTN","C0CEX",12,0)
+ ;
+"RTN","C0CEX",13,0)
+KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+"RTN","C0CEX",14,0)
+ ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
+"RTN","C0CEX",15,0)
+ I $G(ZAPP)="" Q ;
+"RTN","C0CEX",16,0)
+ I $G(ZPAGE)="" Q ;
+"RTN","C0CEX",17,0)
+ K ^zewd("routineMap",ZAPP,ZPAGE)
+"RTN","C0CEX",18,0)
+ Q
+"RTN","C0CROB")
+0^1^B1053192
+"RTN","C0CROB",1,0)
+ ;;C0CROB
+"RTN","C0CROB",2,0)
+ ;;;;;;Build 1
+"RTN","C0CROB",3,0)
+TEST1(sessid) ;
+"RTN","C0CROB",4,0)
+ D setSessionValue^%zewdAPI("name","PROVIDER,TWOHUNDREDNINETYSIX",sessid)
+"RTN","C0CROB",5,0)
+ S TITLE=$G(^C0CROB("TITLE"))
+"RTN","C0CROB",6,0)
+ I TITLE="" S TITLE="Scholar Extraordinaire"
+"RTN","C0CROB",7,0)
+ D setSessionValue^%zewdAPI("TITLE",TITLE,sessid)
+"RTN","C0CROB",8,0)
+ Q ""
+"RTN","C0CROB",9,0)
+SAVEFORM(sessid) ;
+"RTN","C0CROB",10,0)
+ S TITLE=$$getSessionValue^%zewdAPI("TITLE",sessid)
+"RTN","C0CROB",11,0)
+ I TITLE="" Q "You must enter a title"
+"RTN","C0CROB",12,0)
+ S ^C0CROB("TITLE")=TITLE
+"RTN","C0CROB",13,0)
+ Q ""
+"RTN","C0CROB",14,0)
+VALIDATETITLE(value) ;
+"RTN","C0CROB",15,0)
+ I value="" Q "alert('you must enter a title');"
+"RTN","C0CROB",16,0)
+ Q ""
+"RTN","C0E0000A")
+0^3^B14799604
+"RTN","C0E0000A",1,0)
+ ;GT.M version of page ewdAjaxError (screenman application)
+"RTN","C0E0000A",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 1
+"RTN","C0E0000A",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000A",4,0)
+ QUIT
+"RTN","C0E0000A",5,0)
+ ;
+"RTN","C0E0000A",6,0)
+run ;
+"RTN","C0E0000A",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000A",8,0)
+ s ok=$$pre()
+"RTN","C0E0000A",9,0)
+ i ok d body
+"RTN","C0E0000A",10,0)
+ QUIT
+"RTN","C0E0000A",11,0)
+ ;
+"RTN","C0E0000A",12,0)
+pre() ;
+"RTN","C0E0000A",13,0)
+ ;
+"RTN","C0E0000A",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000A",15,0)
+ ;
+"RTN","C0E0000A",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000A",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0E0000A",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000A",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0000A",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000A",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000A",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000A",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000A",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000A",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000A",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000A",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxError"
+"RTN","C0E0000A",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000A",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000A",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0000A",31,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000A",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000A",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000A",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000A",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000A",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000A",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000A",38,0)
+ . n errorPage
+"RTN","C0E0000A",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000A",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000A",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000A",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000A",43,0)
+ s stop=0
+"RTN","C0E0000A",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000A",45,0)
+ . n nextpage
+"RTN","C0E0000A",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000A",47,0)
+ . i nextpage'="" d
+"RTN","C0E0000A",48,0)
+ . . n x
+"RTN","C0E0000A",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000A",50,0)
+ . . s stop=1
+"RTN","C0E0000A",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000A",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000A",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000A",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000A",55,0)
+ s ctype="text/html"
+"RTN","C0E0000A",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000A",57,0)
+ i $d(headers) d
+"RTN","C0E0000A",58,0)
+ . n lcname,name
+"RTN","C0E0000A",59,0)
+ . s name=""
+"RTN","C0E0000A",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000A",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000A",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000A",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000A",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000A",65,0)
+ w $c(13,10)
+"RTN","C0E0000A",66,0)
+ QUIT 1
+"RTN","C0E0000A",67,0)
+ ;
+"RTN","C0E0000A",68,0)
+body ;
+"RTN","C0E0000A",69,0)
+ w ""_$c(13,10)
+"RTN","C0E0000A",70,0)
+ w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
+"RTN","C0E0000A",71,0)
+ w ""_$c(13,10)
+"RTN","C0E0000A",72,0)
+ QUIT
+"RTN","C0E0000E")
+0^5^B27501668
+"RTN","C0E0000E",1,0)
+ ;GT.M version of page ewdError (screenman application)
+"RTN","C0E0000E",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 1
+"RTN","C0E0000E",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000E",4,0)
+ QUIT
+"RTN","C0E0000E",5,0)
+ ;
+"RTN","C0E0000E",6,0)
+run ;
+"RTN","C0E0000E",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000E",8,0)
+ s ok=$$pre()
+"RTN","C0E0000E",9,0)
+ i ok d body
+"RTN","C0E0000E",10,0)
+ QUIT
+"RTN","C0E0000E",11,0)
+ ;
+"RTN","C0E0000E",12,0)
+pre() ;
+"RTN","C0E0000E",13,0)
+ ;
+"RTN","C0E0000E",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000E",15,0)
+ ;
+"RTN","C0E0000E",16,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000E",17,0)
+ w "Content-type: text/html"_$c(13,10,13,10)
+"RTN","C0E0000E",18,0)
+ QUIT 1
+"RTN","C0E0000E",19,0)
+ ;
+"RTN","C0E0000E",20,0)
+body ;
+"RTN","C0E0000E",21,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",22,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",23,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",24,0)
+ w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
+"RTN","C0E0000E",25,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",43,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",44,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",45,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",46,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",47,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",48,0)
+ w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
+"RTN","C0E0000E",49,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",50,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",51,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",52,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",53,0)
+ w "
An Error has occurred
"_$c(13,10)
+"RTN","C0E0000E",54,0)
+ w " "_$c(13,10)
+"RTN","C0E0000E",55,0)
+ w "
"_$g(%KEY("error"))_"
"_$c(13,10)
+"RTN","C0E0000E",56,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",57,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",58,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",59,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",60,0)
+ w " "_$c(13,10)
+"RTN","C0E0000E",63,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",64,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",65,0)
+ QUIT
+"RTN","C0E0000F")
+0^4^B32569634
+"RTN","C0E0000F",1,0)
+ ;GT.M version of page ewdAjaxErrorRedirect (screenman application)
+"RTN","C0E0000F",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 1
+"RTN","C0E0000F",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000F",4,0)
+ QUIT
+"RTN","C0E0000F",5,0)
+ ;
+"RTN","C0E0000F",6,0)
+run ;
+"RTN","C0E0000F",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000F",8,0)
+ s ok=$$pre()
+"RTN","C0E0000F",9,0)
+ i ok d body
+"RTN","C0E0000F",10,0)
+ QUIT
+"RTN","C0E0000F",11,0)
+ ;
+"RTN","C0E0000F",12,0)
+pre() ;
+"RTN","C0E0000F",13,0)
+ ;
+"RTN","C0E0000F",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000F",15,0)
+ ;
+"RTN","C0E0000F",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000F",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0000F",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000F",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0000F",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000F",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000F",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000F",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000F",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000F",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000F",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000F",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
+"RTN","C0E0000F",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000F",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000F",30,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0E0000F",31,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0E0000F",32,0)
+ s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
+"RTN","C0E0000F",33,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000F",34,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000F",35,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000F",36,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000F",37,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000F",38,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000F",39,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000F",40,0)
+ . n errorPage
+"RTN","C0E0000F",41,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000F",42,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000F",43,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000F",44,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000F",45,0)
+ s stop=0
+"RTN","C0E0000F",46,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000F",47,0)
+ . n nextpage
+"RTN","C0E0000F",48,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000F",49,0)
+ . i nextpage'="" d
+"RTN","C0E0000F",50,0)
+ . . n x
+"RTN","C0E0000F",51,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000F",52,0)
+ . . s stop=1
+"RTN","C0E0000F",53,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000F",54,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000F",55,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000F",56,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000F",57,0)
+ s ctype="text/html"
+"RTN","C0E0000F",58,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000F",59,0)
+ i $d(headers) d
+"RTN","C0E0000F",60,0)
+ . n lcname,name
+"RTN","C0E0000F",61,0)
+ . s name=""
+"RTN","C0E0000F",62,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000F",63,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000F",64,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000F",65,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000F",66,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000F",67,0)
+ w $c(13,10)
+"RTN","C0E0000F",68,0)
+ QUIT 1
+"RTN","C0E0000F",69,0)
+ ;
+"RTN","C0E0000F",70,0)
+body ;
+"RTN","C0E0000F",71,0)
+ if ($g(Error)="") d
+"RTN","C0E0000F",72,0)
+ .w " "_$c(13,10)
+"RTN","C0E0000F",73,0)
+ .w "
"_$c(13,10)
+"RTN","C0E0000F",74,0)
+ .w "
"_$c(13,10)
+"RTN","C0E0000F",75,0)
+ .w " "_$c(13,10)
+"RTN","C0E0000F",76,0)
+ .
+"RTN","C0E0000F",77,0)
+ w ""_$c(13,10)
+"RTN","C0E0000F",78,0)
+ 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)
+"RTN","C0E0000F",79,0)
+ s id=""
+"RTN","C0E0000F",80,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0E0000F",81,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0E0000F",82,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0E0000F",83,0)
+ s id=""
+"RTN","C0E0000F",84,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0E0000F",85,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0E0000F",86,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0E0000F",87,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0E0000F",88,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0E0000F",89,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0E0000F",90,0)
+ w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
+"RTN","C0E0000F",91,0)
+ w ""_$c(13,10)
+"RTN","C0E0000F",92,0)
+ QUIT
+"RTN","C0E0000R")
+0^6^B66670061
+"RTN","C0E0000R",1,0)
+ ;GT.M version of page ewdErrorRedirect (screenman application)
+"RTN","C0E0000R",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 1
+"RTN","C0E0000R",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000R",4,0)
+ QUIT
+"RTN","C0E0000R",5,0)
+ ;
+"RTN","C0E0000R",6,0)
+run ;
+"RTN","C0E0000R",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000R",8,0)
+ s ok=$$pre()
+"RTN","C0E0000R",9,0)
+ i ok d body
+"RTN","C0E0000R",10,0)
+ QUIT
+"RTN","C0E0000R",11,0)
+ ;
+"RTN","C0E0000R",12,0)
+pre() ;
+"RTN","C0E0000R",13,0)
+ ;
+"RTN","C0E0000R",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000R",15,0)
+ ;
+"RTN","C0E0000R",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000R",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0000R",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000R",19,0)
+ s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
+"RTN","C0E0000R",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000R",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000R",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000R",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000R",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000R",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000R",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000R",27,0)
+ s sessionArray("ewd_pageName")="ewdErrorRedirect"
+"RTN","C0E0000R",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000R",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000R",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0000R",31,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",32,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",33,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0E0000R",34,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",35,0)
+ s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000R",36,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000R",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000R",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000R",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000R",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000R",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000R",42,0)
+ . n errorPage
+"RTN","C0E0000R",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000R",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000R",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000R",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000R",47,0)
+ s stop=0
+"RTN","C0E0000R",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000R",49,0)
+ . n nextpage
+"RTN","C0E0000R",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000R",51,0)
+ . i nextpage'="" d
+"RTN","C0E0000R",52,0)
+ . . n x
+"RTN","C0E0000R",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000R",54,0)
+ . . s stop=1
+"RTN","C0E0000R",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000R",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000R",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000R",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000R",59,0)
+ s ctype="text/html"
+"RTN","C0E0000R",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000R",61,0)
+ i $d(headers) d
+"RTN","C0E0000R",62,0)
+ . n lcname,name
+"RTN","C0E0000R",63,0)
+ . s name=""
+"RTN","C0E0000R",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000R",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000R",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000R",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000R",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000R",69,0)
+ w $c(13,10)
+"RTN","C0E0000R",70,0)
+ QUIT 1
+"RTN","C0E0000R",71,0)
+ ;
+"RTN","C0E0000R",72,0)
+body ;
+"RTN","C0E0000R",73,0)
+ w ""_$c(13,10)
+"RTN","C0E0000R",74,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",75,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",76,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",79,0)
+ w "Ajax Error Redirect page"_""
+"RTN","C0E0000R",80,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",81,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",82,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",83,0)
+ w "Please wait...."_""
+"RTN","C0E0000R",84,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",85,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",86,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",133,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",134,0)
+ w ""_$c(13,10)
+"RTN","C0E0000R",135,0)
+ QUIT
+"RTN","C0E0001I")
+0^7^B20127196
+"RTN","C0E0001I",1,0)
+ ;GT.M version of page index (screenman application)
+"RTN","C0E0001I",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 1
+"RTN","C0E0001I",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0001I",4,0)
+ QUIT
+"RTN","C0E0001I",5,0)
+ ;
+"RTN","C0E0001I",6,0)
+run ;
+"RTN","C0E0001I",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0001I",8,0)
+ s ok=$$pre()
+"RTN","C0E0001I",9,0)
+ i ok d body
+"RTN","C0E0001I",10,0)
+ QUIT
+"RTN","C0E0001I",11,0)
+ ;
+"RTN","C0E0001I",12,0)
+pre() ;
+"RTN","C0E0001I",13,0)
+ ;
+"RTN","C0E0001I",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0001I",15,0)
+ ;
+"RTN","C0E0001I",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0001I",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0E0001I",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0001I",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0001I",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0001I",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0001I",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0001I",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0001I",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0001I",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0001I",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0001I",27,0)
+ s sessionArray("ewd_pageName")="index"
+"RTN","C0E0001I",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0001I",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0001I",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0001I",31,0)
+ s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
+"RTN","C0E0001I",32,0)
+ s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0001I",33,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0001I",34,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0001I",35,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0001I",36,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0001I",37,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0001I",38,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0001I",39,0)
+ . n errorPage
+"RTN","C0E0001I",40,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0001I",41,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0001I",42,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0001I",43,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0001I",44,0)
+ s stop=0
+"RTN","C0E0001I",45,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0001I",46,0)
+ . n nextpage
+"RTN","C0E0001I",47,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0001I",48,0)
+ . i nextpage'="" d
+"RTN","C0E0001I",49,0)
+ . . n x
+"RTN","C0E0001I",50,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0001I",51,0)
+ . . s stop=1
+"RTN","C0E0001I",52,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0001I",53,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0001I",54,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0001I",55,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0001I",56,0)
+ s ctype="text/html"
+"RTN","C0E0001I",57,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0001I",58,0)
+ i $d(headers) d
+"RTN","C0E0001I",59,0)
+ . n lcname,name
+"RTN","C0E0001I",60,0)
+ . s name=""
+"RTN","C0E0001I",61,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0001I",62,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0001I",63,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0001I",64,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0001I",65,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0001I",66,0)
+ w $c(13,10)
+"RTN","C0E0001I",67,0)
+ QUIT 1
+"RTN","C0E0001I",68,0)
+ ;
+"RTN","C0E0001I",69,0)
+body ;
+"RTN","C0E0001I",70,0)
+ w ""_$c(13,10)
+"RTN","C0E0001I",71,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",72,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",73,0)
+ w "Screenman Menu"_""
+"RTN","C0E0001I",74,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",75,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",76,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",77,0)
+ w "Hello World"_""
+"RTN","C0E0001I",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",79,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",80,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",81,0)
+ w "test1 page"_""
+"RTN","C0E0001I",82,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",83,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",84,0)
+ w ""_$c(13,10)
+"RTN","C0E0001I",85,0)
+ QUIT
+"RTN","C0E0002")
+0^8^B92918287
+"RTN","C0E0002",1,0)
+ ;GT.M version of page test1 (screenman application)
+"RTN","C0E0002",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 1
+"RTN","C0E0002",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0002",4,0)
+ QUIT
+"RTN","C0E0002",5,0)
+ ;
+"RTN","C0E0002",6,0)
+run ;
+"RTN","C0E0002",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0002",8,0)
+ s ok=$$pre()
+"RTN","C0E0002",9,0)
+ i ok d body
+"RTN","C0E0002",10,0)
+ QUIT
+"RTN","C0E0002",11,0)
+ ;
+"RTN","C0E0002",12,0)
+pre() ;
+"RTN","C0E0002",13,0)
+ ;
+"RTN","C0E0002",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0002",15,0)
+ ;
+"RTN","C0E0002",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0002",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0002",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0002",19,0)
+ s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
+"RTN","C0E0002",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0002",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0002",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0002",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0002",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0002",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0002",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0002",27,0)
+ s sessionArray("ewd_pageName")="test1"
+"RTN","C0E0002",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0002",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0002",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0002",31,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0E0002",32,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0E0002",33,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0E0002",34,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0E0002",35,0)
+ s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
+"RTN","C0E0002",36,0)
+ s formInfo="SSN|text`TITLE|text`ewd_pressed|hidden`submit|submit`"
+"RTN","C0E0002",37,0)
+ d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
+"RTN","C0E0002",38,0)
+ s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0002",39,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0002",40,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0002",41,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0002",42,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0002",43,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0002",44,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0002",45,0)
+ . n errorPage
+"RTN","C0E0002",46,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0002",47,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0002",48,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0002",49,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0002",50,0)
+ s stop=0
+"RTN","C0E0002",51,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0002",52,0)
+ . n nextpage
+"RTN","C0E0002",53,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0002",54,0)
+ . i nextpage'="" d
+"RTN","C0E0002",55,0)
+ . . n x
+"RTN","C0E0002",56,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0002",57,0)
+ . . s stop=1
+"RTN","C0E0002",58,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0002",59,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0002",60,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0002",61,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0002",62,0)
+ s ctype="text/html"
+"RTN","C0E0002",63,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0002",64,0)
+ i $d(headers) d
+"RTN","C0E0002",65,0)
+ . n lcname,name
+"RTN","C0E0002",66,0)
+ . s name=""
+"RTN","C0E0002",67,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0002",68,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0002",69,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0002",70,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0002",71,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0002",72,0)
+ w $c(13,10)
+"RTN","C0E0002",73,0)
+ QUIT 1
+"RTN","C0E0002",74,0)
+ ;
+"RTN","C0E0002",75,0)
+body ;
+"RTN","C0E0002",76,0)
+ w ""_$c(13,10)
+"RTN","C0E0002",77,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",79,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",81,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",88,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",89,0)
+ w "Screenman Test"_""
+"RTN","C0E0002",90,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",91,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",138,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",139,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",140,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",160,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",161,0)
+ w ""_$c(13,10)
+"RTN","C0E0002",162,0)
+ QUIT
+"SEC","^DIC",70050,70050,0,"AUDIT")
+@
+"SEC","^DIC",70050,70050,0,"DD")
+@
+"SEC","^DIC",70050,70050,0,"DEL")
+@
+"SEC","^DIC",70050,70050,0,"LAYGO")
+@
+"SEC","^DIC",70050,70050,0,"RD")
+@
+"SEC","^DIC",70050,70050,0,"WR")
+@
+"VER")
+8.0^22.0
+"^DD",70050,70050,0)
+FIELD^^1^5
+"^DD",70050,70050,0,"DDA")
+N
+"^DD",70050,70050,0,"DT")
+3100301
+"^DD",70050,70050,0,"ID",.02)
+W " ",$P(^(0),U,2)
+"^DD",70050,70050,0,"ID",.03)
+W " ",$P(^(0),U,3)
+"^DD",70050,70050,0,"IX","B",70050,.01)
+
+"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
+
+"^DD",70050,70050,.01,0)
+EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
+"^DD",70050,70050,.01,1,0)
+^.1
+"^DD",70050,70050,.01,1,1,0)
+70050^B
+"^DD",70050,70050,.01,1,1,1)
+S ^C0E(70050,"B",$E(X,1,30),DA)=""
+"^DD",70050,70050,.01,1,1,2)
+K ^C0E(70050,"B",$E(X,1,30),DA)
+"^DD",70050,70050,.01,3)
+NAMESPACED EWD COMPILED PAGE
+"^DD",70050,70050,.01,"DT")
+3100301
+"^DD",70050,70050,.02,0)
+EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
+"^DD",70050,70050,.02,3)
+NAME OF THE EWD APPLICATION
+"^DD",70050,70050,.02,"DT")
+3100301
+"^DD",70050,70050,.03,0)
+EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
+"^DD",70050,70050,.03,3)
+EWD PAGE NAME
+"^DD",70050,70050,.03,"DT")
+3100301
+"^DD",70050,70050,1,0)
+DESCRIPTION^70050.01^^2;0
+"^DD",70050,70050,2,0)
+EWD SOURCE^70050.02^^1;0
+"^DD",70050,70050.01,0)
+DESCRIPTION SUB-FIELD^^.01^1
+"^DD",70050,70050.01,0,"DT")
+3100301
+"^DD",70050,70050.01,0,"NM","DESCRIPTION")
+
+"^DD",70050,70050.01,0,"UP")
+70050
+"^DD",70050,70050.01,.01,0)
+DESCRIPTION^Wx^^0;1
+"^DD",70050,70050.01,.01,3)
+DESCRIPTION OF THE EWD PAGE
+"^DD",70050,70050.01,.01,"DT")
+3100301
+"^DD",70050,70050.02,0)
+EWD SOURCE SUB-FIELD^^.01^1
+"^DD",70050,70050.02,0,"DT")
+3100301
+"^DD",70050,70050.02,0,"NM","EWD SOURCE")
+
+"^DD",70050,70050.02,0,"UP")
+70050
+"^DD",70050,70050.02,.01,0)
+EWD SOURCE^WLx^^0;1
+"^DD",70050,70050.02,.01,3)
+EWD PAGE SOURCE CODE
+"^DD",70050,70050.02,.01,"DT")
+3100301
+"^DIC",70050,70050,0)
+C0EWD ROUTINE MAP^70050
+"^DIC",70050,70050,0,"GL")
+^C0E(70050,
+"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
+
+**END**
+**END**
Index: EWD/archive/C0E0_1_0_0_T2.KID
===================================================================
--- EWD/archive/C0E0_1_0_0_T2.KID (revision 1265)
+++ EWD/archive/C0E0_1_0_0_T2.KID (revision 1265)
@@ -0,0 +1,1926 @@
+KIDS Distribution saved on Mar 02, 2010@00:44:31
+initial conference demo with test1 record fixed
+**KIDS**:C0E0*1.0*0^
+
+**INSTALL NAME**
+C0E0*1.0*0
+"BLD",6969,0)
+C0E0*1.0*0^^0^3100302^n
+"BLD",6969,4,0)
+^9.64PA^70050^1
+"BLD",6969,4,70050,0)
+70050
+"BLD",6969,4,70050,222)
+y^y^f^^n^^y^o^n
+"BLD",6969,4,"B",70050,70050)
+
+"BLD",6969,6.3)
+2
+"BLD",6969,"KRN",0)
+^9.67PA^8989.52^19
+"BLD",6969,"KRN",.4,0)
+.4
+"BLD",6969,"KRN",.401,0)
+.401
+"BLD",6969,"KRN",.401,"NM",0)
+^9.68A^1^1
+"BLD",6969,"KRN",.401,"NM",1,0)
+C0E SCREENMAN RECORDS FILE #70050^70050^0
+"BLD",6969,"KRN",.401,"NM","B","C0E SCREENMAN RECORDS FILE #70050",1)
+
+"BLD",6969,"KRN",.402,0)
+.402
+"BLD",6969,"KRN",.403,0)
+.403
+"BLD",6969,"KRN",.5,0)
+.5
+"BLD",6969,"KRN",.84,0)
+.84
+"BLD",6969,"KRN",3.6,0)
+3.6
+"BLD",6969,"KRN",3.8,0)
+3.8
+"BLD",6969,"KRN",9.2,0)
+9.2
+"BLD",6969,"KRN",9.8,0)
+9.8
+"BLD",6969,"KRN",9.8,"NM",0)
+^9.68A^8^8
+"BLD",6969,"KRN",9.8,"NM",1,0)
+C0CROB^^0^B1053192
+"BLD",6969,"KRN",9.8,"NM",2,0)
+C0CEX^^0^B811998
+"BLD",6969,"KRN",9.8,"NM",3,0)
+C0E0000A^^0^B14799604
+"BLD",6969,"KRN",9.8,"NM",4,0)
+C0E0000F^^0^B32569634
+"BLD",6969,"KRN",9.8,"NM",5,0)
+C0E0000E^^0^B27501668
+"BLD",6969,"KRN",9.8,"NM",6,0)
+C0E0000R^^0^B66670061
+"BLD",6969,"KRN",9.8,"NM",7,0)
+C0E0001I^^0^B20127196
+"BLD",6969,"KRN",9.8,"NM",8,0)
+C0E0002^^0^B92918287
+"BLD",6969,"KRN",9.8,"NM","B","C0CEX",2)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0CROB",1)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000A",3)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000E",5)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000F",4)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000R",6)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0001I",7)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0002",8)
+
+"BLD",6969,"KRN",19,0)
+19
+"BLD",6969,"KRN",19.1,0)
+19.1
+"BLD",6969,"KRN",101,0)
+101
+"BLD",6969,"KRN",409.61,0)
+409.61
+"BLD",6969,"KRN",771,0)
+771
+"BLD",6969,"KRN",870,0)
+870
+"BLD",6969,"KRN",8989.51,0)
+8989.51
+"BLD",6969,"KRN",8989.52,0)
+8989.52
+"BLD",6969,"KRN",8994,0)
+8994
+"BLD",6969,"KRN","B",.4,.4)
+
+"BLD",6969,"KRN","B",.401,.401)
+
+"BLD",6969,"KRN","B",.402,.402)
+
+"BLD",6969,"KRN","B",.403,.403)
+
+"BLD",6969,"KRN","B",.5,.5)
+
+"BLD",6969,"KRN","B",.84,.84)
+
+"BLD",6969,"KRN","B",3.6,3.6)
+
+"BLD",6969,"KRN","B",3.8,3.8)
+
+"BLD",6969,"KRN","B",9.2,9.2)
+
+"BLD",6969,"KRN","B",9.8,9.8)
+
+"BLD",6969,"KRN","B",19,19)
+
+"BLD",6969,"KRN","B",19.1,19.1)
+
+"BLD",6969,"KRN","B",101,101)
+
+"BLD",6969,"KRN","B",409.61,409.61)
+
+"BLD",6969,"KRN","B",771,771)
+
+"BLD",6969,"KRN","B",870,870)
+
+"BLD",6969,"KRN","B",8989.51,8989.51)
+
+"BLD",6969,"KRN","B",8989.52,8989.52)
+
+"BLD",6969,"KRN","B",8994,8994)
+
+"BLD",6969,"QUES",0)
+^9.62^^
+"DATA",70050,1,0)
+23394^patientportal^ewdajaxerror
+"DATA",70050,2,0)
+23397^patientportal^ewderrorredirect
+"DATA",70050,3,0)
+23399^patientportal^index
+"DATA",70050,3,1,0)
+^70050.02^28^28^3100301^^
+"DATA",70050,3,1,1,0)
+
+"DATA",70050,3,1,2,0)
+
+"DATA",70050,3,1,3,0)
+
+"DATA",70050,3,1,4,0)
+ The start EWD Page
+"DATA",70050,3,1,5,0)
+
+"DATA",70050,3,1,11,0)
+
+"DATA",70050,3,1,12,0)
+
+"DATA",70050,3,1,13,0)
+
+"DATA",70050,16,1,8,0)
+test1 page
+"DATA",70050,16,1,9,0)
+
+"DATA",70050,16,1,10,0)
+
+"DATA",70050,17,0)
+23412^screenman^test1
+"DATA",70050,17,1,0)
+^70050.02^25^25^3100302^^
+"DATA",70050,17,1,1,0)
+
+"DATA",70050,17,1,2,0)
+
+"DATA",70050,17,1,3,0)
+
+"DATA",70050,17,1,4,0)
+
+"DATA",70050,17,1,9,0)
+Screenman Test
+"DATA",70050,17,1,10,0)
+
+"DATA",70050,17,1,11,0)
+
+"DATA",70050,17,1,12,0)
+
+"DATA",70050,17,1,24,0)
+
+"DATA",70050,17,1,25,0)
+
+"FIA",70050)
+C0EWD ROUTINE MAP
+"FIA",70050,0)
+^C0E(70050,
+"FIA",70050,0,0)
+70050PI
+"FIA",70050,0,1)
+y^y^f^^n^^y^o^n
+"FIA",70050,0,10)
+
+"FIA",70050,0,11)
+
+"FIA",70050,0,"RLRO")
+
+"FIA",70050,70050)
+0
+"FIA",70050,70050.01)
+0
+"FIA",70050,70050.02)
+0
+"IX",70050,70050,"AZEWD",0)
+70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
+"IX",70050,70050,"AZEWD",1)
+D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",2)
+D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",11.1,0)
+^.114IA^3^3
+"IX",70050,70050,"AZEWD",11.1,1,0)
+1^F^70050^.01^^^F
+"IX",70050,70050,"AZEWD",11.1,2,0)
+2^F^70050^.02^^^F
+"IX",70050,70050,"AZEWD",11.1,3,0)
+3^F^70050^.03^^^F
+"IX",70050,70050,"C",0)
+70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
+"IX",70050,70050,"C",1)
+S ^C0E(70050,"C",$E(X,1,60),DA)=""
+"IX",70050,70050,"C",2)
+K ^C0E(70050,"C",$E(X,1,60),DA)
+"IX",70050,70050,"C",2.5)
+K ^C0E(70050,"C")
+"IX",70050,70050,"C",11.1,0)
+^.114IA^1^1
+"IX",70050,70050,"C",11.1,1,0)
+1^F^70050^.03^60^1^F
+"IX",70050,70050,"C",11.1,1,3)
+
+"KRN",.401,1794,-1)
+0^1
+"KRN",.401,1794,0)
+C0E SCREENMAN RECORDS^3100302.0014^@^70050^^@^3100302
+"KRN",.401,1794,2,0)
+^.4014^1^1
+"KRN",.401,1794,2,1,0)
+70050^.02^EWD APPLICATION^^^^^^^4
+"KRN",.401,1794,2,1,"F")
+screenmamz^screenman
+"KRN",.401,1794,2,1,"GET")
+S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
+"KRN",.401,1794,2,1,"QCON")
+I DISX(1)="screenman"
+"KRN",.401,1794,2,1,"T")
+screenman^screenman
+"KRN",.401,1794,2,1,"TXT")
+EWD APPLICATION equals screenman
+"KRN",.401,1794,2,"B",70050,1)
+
+"MBREQ")
+0
+"ORD",6,.401)
+.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,"",%)
+"ORD",6,.401,0)
+SORT TEMPLATE
+"QUES","XPF1",0)
+Y
+"QUES","XPF1","??")
+^D REP^XPDH
+"QUES","XPF1","A")
+Shall I write over your |FLAG| File
+"QUES","XPF1","B")
+YES
+"QUES","XPF1","M")
+D XPF1^XPDIQ
+"QUES","XPF2",0)
+Y
+"QUES","XPF2","??")
+^D DTA^XPDH
+"QUES","XPF2","A")
+Want my data |FLAG| yours
+"QUES","XPF2","B")
+YES
+"QUES","XPF2","M")
+D XPF2^XPDIQ
+"QUES","XPI1",0)
+YO
+"QUES","XPI1","??")
+^D INHIBIT^XPDH
+"QUES","XPI1","A")
+Want KIDS to INHIBIT LOGONs during the install
+"QUES","XPI1","B")
+NO
+"QUES","XPI1","M")
+D XPI1^XPDIQ
+"QUES","XPM1",0)
+PO^VA(200,:EM
+"QUES","XPM1","??")
+^D MG^XPDH
+"QUES","XPM1","A")
+Enter the Coordinator for Mail Group '|FLAG|'
+"QUES","XPM1","B")
+
+"QUES","XPM1","M")
+D XPM1^XPDIQ
+"QUES","XPO1",0)
+Y
+"QUES","XPO1","??")
+^D MENU^XPDH
+"QUES","XPO1","A")
+Want KIDS to Rebuild Menu Trees Upon Completion of Install
+"QUES","XPO1","B")
+NO
+"QUES","XPO1","M")
+D XPO1^XPDIQ
+"QUES","XPZ1",0)
+Y
+"QUES","XPZ1","??")
+^D OPT^XPDH
+"QUES","XPZ1","A")
+Want to DISABLE Scheduled Options, Menu Options, and Protocols
+"QUES","XPZ1","B")
+NO
+"QUES","XPZ1","M")
+D XPZ1^XPDIQ
+"QUES","XPZ2",0)
+Y
+"QUES","XPZ2","??")
+^D RTN^XPDH
+"QUES","XPZ2","A")
+Want to MOVE routines to other CPUs
+"QUES","XPZ2","B")
+NO
+"QUES","XPZ2","M")
+D XPZ2^XPDIQ
+"RTN")
+8
+"RTN","C0CEX")
+0^2^B811998
+"RTN","C0CEX",1,0)
+C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
+"RTN","C0CEX",2,0)
+ ;;1.0;C0C;;Mar 1, 2010 ;Build 2
+"RTN","C0CEX",3,0)
+SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+"RTN","C0CEX",4,0)
+ ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
+"RTN","C0CEX",5,0)
+ N ZR
+"RTN","C0CEX",6,0)
+ I $G(ZAPP)="" Q ;
+"RTN","C0CEX",7,0)
+ I $G(ZPAGE)="" Q ;
+"RTN","C0CEX",8,0)
+ I $G(ZROUTINE)="" Q ;
+"RTN","C0CEX",9,0)
+ S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
+"RTN","C0CEX",10,0)
+ S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
+"RTN","C0CEX",11,0)
+ Q
+"RTN","C0CEX",12,0)
+ ;
+"RTN","C0CEX",13,0)
+KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+"RTN","C0CEX",14,0)
+ ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
+"RTN","C0CEX",15,0)
+ I $G(ZAPP)="" Q ;
+"RTN","C0CEX",16,0)
+ I $G(ZPAGE)="" Q ;
+"RTN","C0CEX",17,0)
+ K ^zewd("routineMap",ZAPP,ZPAGE)
+"RTN","C0CEX",18,0)
+ Q
+"RTN","C0CROB")
+0^1^B1053192
+"RTN","C0CROB",1,0)
+ ;;C0CROB
+"RTN","C0CROB",2,0)
+ ;;;;;;Build 2
+"RTN","C0CROB",3,0)
+TEST1(sessid) ;
+"RTN","C0CROB",4,0)
+ D setSessionValue^%zewdAPI("name","PROVIDER,TWOHUNDREDNINETYSIX",sessid)
+"RTN","C0CROB",5,0)
+ S TITLE=$G(^C0CROB("TITLE"))
+"RTN","C0CROB",6,0)
+ I TITLE="" S TITLE="Scholar Extraordinaire"
+"RTN","C0CROB",7,0)
+ D setSessionValue^%zewdAPI("TITLE",TITLE,sessid)
+"RTN","C0CROB",8,0)
+ Q ""
+"RTN","C0CROB",9,0)
+SAVEFORM(sessid) ;
+"RTN","C0CROB",10,0)
+ S TITLE=$$getSessionValue^%zewdAPI("TITLE",sessid)
+"RTN","C0CROB",11,0)
+ I TITLE="" Q "You must enter a title"
+"RTN","C0CROB",12,0)
+ S ^C0CROB("TITLE")=TITLE
+"RTN","C0CROB",13,0)
+ Q ""
+"RTN","C0CROB",14,0)
+VALIDATETITLE(value) ;
+"RTN","C0CROB",15,0)
+ I value="" Q "alert('you must enter a title');"
+"RTN","C0CROB",16,0)
+ Q ""
+"RTN","C0E0000A")
+0^3^B14799604
+"RTN","C0E0000A",1,0)
+ ;GT.M version of page ewdAjaxError (screenman application)
+"RTN","C0E0000A",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 2
+"RTN","C0E0000A",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000A",4,0)
+ QUIT
+"RTN","C0E0000A",5,0)
+ ;
+"RTN","C0E0000A",6,0)
+run ;
+"RTN","C0E0000A",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000A",8,0)
+ s ok=$$pre()
+"RTN","C0E0000A",9,0)
+ i ok d body
+"RTN","C0E0000A",10,0)
+ QUIT
+"RTN","C0E0000A",11,0)
+ ;
+"RTN","C0E0000A",12,0)
+pre() ;
+"RTN","C0E0000A",13,0)
+ ;
+"RTN","C0E0000A",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000A",15,0)
+ ;
+"RTN","C0E0000A",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000A",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0E0000A",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000A",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0000A",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000A",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000A",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000A",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000A",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000A",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000A",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000A",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxError"
+"RTN","C0E0000A",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000A",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000A",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0000A",31,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000A",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000A",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000A",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000A",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000A",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000A",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000A",38,0)
+ . n errorPage
+"RTN","C0E0000A",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000A",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000A",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000A",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000A",43,0)
+ s stop=0
+"RTN","C0E0000A",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000A",45,0)
+ . n nextpage
+"RTN","C0E0000A",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000A",47,0)
+ . i nextpage'="" d
+"RTN","C0E0000A",48,0)
+ . . n x
+"RTN","C0E0000A",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000A",50,0)
+ . . s stop=1
+"RTN","C0E0000A",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000A",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000A",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000A",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000A",55,0)
+ s ctype="text/html"
+"RTN","C0E0000A",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000A",57,0)
+ i $d(headers) d
+"RTN","C0E0000A",58,0)
+ . n lcname,name
+"RTN","C0E0000A",59,0)
+ . s name=""
+"RTN","C0E0000A",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000A",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000A",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000A",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000A",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000A",65,0)
+ w $c(13,10)
+"RTN","C0E0000A",66,0)
+ QUIT 1
+"RTN","C0E0000A",67,0)
+ ;
+"RTN","C0E0000A",68,0)
+body ;
+"RTN","C0E0000A",69,0)
+ w ""_$c(13,10)
+"RTN","C0E0000A",70,0)
+ w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
+"RTN","C0E0000A",71,0)
+ w ""_$c(13,10)
+"RTN","C0E0000A",72,0)
+ QUIT
+"RTN","C0E0000E")
+0^5^B27501668
+"RTN","C0E0000E",1,0)
+ ;GT.M version of page ewdError (screenman application)
+"RTN","C0E0000E",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 2
+"RTN","C0E0000E",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000E",4,0)
+ QUIT
+"RTN","C0E0000E",5,0)
+ ;
+"RTN","C0E0000E",6,0)
+run ;
+"RTN","C0E0000E",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000E",8,0)
+ s ok=$$pre()
+"RTN","C0E0000E",9,0)
+ i ok d body
+"RTN","C0E0000E",10,0)
+ QUIT
+"RTN","C0E0000E",11,0)
+ ;
+"RTN","C0E0000E",12,0)
+pre() ;
+"RTN","C0E0000E",13,0)
+ ;
+"RTN","C0E0000E",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000E",15,0)
+ ;
+"RTN","C0E0000E",16,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000E",17,0)
+ w "Content-type: text/html"_$c(13,10,13,10)
+"RTN","C0E0000E",18,0)
+ QUIT 1
+"RTN","C0E0000E",19,0)
+ ;
+"RTN","C0E0000E",20,0)
+body ;
+"RTN","C0E0000E",21,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",22,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",23,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",24,0)
+ w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
+"RTN","C0E0000E",25,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",43,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",44,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",45,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",46,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",47,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",48,0)
+ w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
+"RTN","C0E0000E",49,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",50,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",51,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",52,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",53,0)
+ w "
An Error has occurred
"_$c(13,10)
+"RTN","C0E0000E",54,0)
+ w " "_$c(13,10)
+"RTN","C0E0000E",55,0)
+ w "
"_$g(%KEY("error"))_"
"_$c(13,10)
+"RTN","C0E0000E",56,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",57,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",58,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",59,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",60,0)
+ w " "_$c(13,10)
+"RTN","C0E0000E",63,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",64,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",65,0)
+ QUIT
+"RTN","C0E0000F")
+0^4^B32569634
+"RTN","C0E0000F",1,0)
+ ;GT.M version of page ewdAjaxErrorRedirect (screenman application)
+"RTN","C0E0000F",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 2
+"RTN","C0E0000F",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000F",4,0)
+ QUIT
+"RTN","C0E0000F",5,0)
+ ;
+"RTN","C0E0000F",6,0)
+run ;
+"RTN","C0E0000F",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000F",8,0)
+ s ok=$$pre()
+"RTN","C0E0000F",9,0)
+ i ok d body
+"RTN","C0E0000F",10,0)
+ QUIT
+"RTN","C0E0000F",11,0)
+ ;
+"RTN","C0E0000F",12,0)
+pre() ;
+"RTN","C0E0000F",13,0)
+ ;
+"RTN","C0E0000F",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000F",15,0)
+ ;
+"RTN","C0E0000F",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000F",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0000F",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000F",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0000F",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000F",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000F",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000F",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000F",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000F",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000F",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000F",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
+"RTN","C0E0000F",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000F",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000F",30,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0E0000F",31,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0E0000F",32,0)
+ s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
+"RTN","C0E0000F",33,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000F",34,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000F",35,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000F",36,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000F",37,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000F",38,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000F",39,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000F",40,0)
+ . n errorPage
+"RTN","C0E0000F",41,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000F",42,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000F",43,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000F",44,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000F",45,0)
+ s stop=0
+"RTN","C0E0000F",46,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000F",47,0)
+ . n nextpage
+"RTN","C0E0000F",48,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000F",49,0)
+ . i nextpage'="" d
+"RTN","C0E0000F",50,0)
+ . . n x
+"RTN","C0E0000F",51,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000F",52,0)
+ . . s stop=1
+"RTN","C0E0000F",53,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000F",54,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000F",55,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000F",56,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000F",57,0)
+ s ctype="text/html"
+"RTN","C0E0000F",58,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000F",59,0)
+ i $d(headers) d
+"RTN","C0E0000F",60,0)
+ . n lcname,name
+"RTN","C0E0000F",61,0)
+ . s name=""
+"RTN","C0E0000F",62,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000F",63,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000F",64,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000F",65,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000F",66,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000F",67,0)
+ w $c(13,10)
+"RTN","C0E0000F",68,0)
+ QUIT 1
+"RTN","C0E0000F",69,0)
+ ;
+"RTN","C0E0000F",70,0)
+body ;
+"RTN","C0E0000F",71,0)
+ if ($g(Error)="") d
+"RTN","C0E0000F",72,0)
+ .w " "_$c(13,10)
+"RTN","C0E0000F",73,0)
+ .w "
"_$c(13,10)
+"RTN","C0E0000F",74,0)
+ .w "
"_$c(13,10)
+"RTN","C0E0000F",75,0)
+ .w " "_$c(13,10)
+"RTN","C0E0000F",76,0)
+ .
+"RTN","C0E0000F",77,0)
+ w ""_$c(13,10)
+"RTN","C0E0000F",78,0)
+ 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)
+"RTN","C0E0000F",79,0)
+ s id=""
+"RTN","C0E0000F",80,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0E0000F",81,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0E0000F",82,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0E0000F",83,0)
+ s id=""
+"RTN","C0E0000F",84,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0E0000F",85,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0E0000F",86,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0E0000F",87,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0E0000F",88,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0E0000F",89,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0E0000F",90,0)
+ w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
+"RTN","C0E0000F",91,0)
+ w ""_$c(13,10)
+"RTN","C0E0000F",92,0)
+ QUIT
+"RTN","C0E0000R")
+0^6^B66670061
+"RTN","C0E0000R",1,0)
+ ;GT.M version of page ewdErrorRedirect (screenman application)
+"RTN","C0E0000R",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 2
+"RTN","C0E0000R",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000R",4,0)
+ QUIT
+"RTN","C0E0000R",5,0)
+ ;
+"RTN","C0E0000R",6,0)
+run ;
+"RTN","C0E0000R",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000R",8,0)
+ s ok=$$pre()
+"RTN","C0E0000R",9,0)
+ i ok d body
+"RTN","C0E0000R",10,0)
+ QUIT
+"RTN","C0E0000R",11,0)
+ ;
+"RTN","C0E0000R",12,0)
+pre() ;
+"RTN","C0E0000R",13,0)
+ ;
+"RTN","C0E0000R",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000R",15,0)
+ ;
+"RTN","C0E0000R",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000R",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0000R",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000R",19,0)
+ s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
+"RTN","C0E0000R",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000R",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000R",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000R",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000R",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000R",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000R",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000R",27,0)
+ s sessionArray("ewd_pageName")="ewdErrorRedirect"
+"RTN","C0E0000R",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000R",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000R",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0000R",31,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",32,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",33,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0E0000R",34,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",35,0)
+ s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000R",36,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000R",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000R",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000R",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000R",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000R",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000R",42,0)
+ . n errorPage
+"RTN","C0E0000R",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000R",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000R",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000R",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000R",47,0)
+ s stop=0
+"RTN","C0E0000R",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000R",49,0)
+ . n nextpage
+"RTN","C0E0000R",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000R",51,0)
+ . i nextpage'="" d
+"RTN","C0E0000R",52,0)
+ . . n x
+"RTN","C0E0000R",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000R",54,0)
+ . . s stop=1
+"RTN","C0E0000R",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000R",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000R",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000R",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000R",59,0)
+ s ctype="text/html"
+"RTN","C0E0000R",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000R",61,0)
+ i $d(headers) d
+"RTN","C0E0000R",62,0)
+ . n lcname,name
+"RTN","C0E0000R",63,0)
+ . s name=""
+"RTN","C0E0000R",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000R",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000R",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000R",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000R",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000R",69,0)
+ w $c(13,10)
+"RTN","C0E0000R",70,0)
+ QUIT 1
+"RTN","C0E0000R",71,0)
+ ;
+"RTN","C0E0000R",72,0)
+body ;
+"RTN","C0E0000R",73,0)
+ w ""_$c(13,10)
+"RTN","C0E0000R",74,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",75,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",76,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",79,0)
+ w "Ajax Error Redirect page"_""
+"RTN","C0E0000R",80,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",81,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",82,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",83,0)
+ w "Please wait...."_""
+"RTN","C0E0000R",84,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",85,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",86,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",133,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",134,0)
+ w ""_$c(13,10)
+"RTN","C0E0000R",135,0)
+ QUIT
+"RTN","C0E0001I")
+0^7^B20127196
+"RTN","C0E0001I",1,0)
+ ;GT.M version of page index (screenman application)
+"RTN","C0E0001I",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 2
+"RTN","C0E0001I",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0001I",4,0)
+ QUIT
+"RTN","C0E0001I",5,0)
+ ;
+"RTN","C0E0001I",6,0)
+run ;
+"RTN","C0E0001I",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0001I",8,0)
+ s ok=$$pre()
+"RTN","C0E0001I",9,0)
+ i ok d body
+"RTN","C0E0001I",10,0)
+ QUIT
+"RTN","C0E0001I",11,0)
+ ;
+"RTN","C0E0001I",12,0)
+pre() ;
+"RTN","C0E0001I",13,0)
+ ;
+"RTN","C0E0001I",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0001I",15,0)
+ ;
+"RTN","C0E0001I",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0001I",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0E0001I",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0001I",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0001I",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0001I",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0001I",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0001I",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0001I",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0001I",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0001I",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0001I",27,0)
+ s sessionArray("ewd_pageName")="index"
+"RTN","C0E0001I",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0001I",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0001I",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0001I",31,0)
+ s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
+"RTN","C0E0001I",32,0)
+ s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0001I",33,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0001I",34,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0001I",35,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0001I",36,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0001I",37,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0001I",38,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0001I",39,0)
+ . n errorPage
+"RTN","C0E0001I",40,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0001I",41,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0001I",42,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0001I",43,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0001I",44,0)
+ s stop=0
+"RTN","C0E0001I",45,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0001I",46,0)
+ . n nextpage
+"RTN","C0E0001I",47,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0001I",48,0)
+ . i nextpage'="" d
+"RTN","C0E0001I",49,0)
+ . . n x
+"RTN","C0E0001I",50,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0001I",51,0)
+ . . s stop=1
+"RTN","C0E0001I",52,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0001I",53,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0001I",54,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0001I",55,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0001I",56,0)
+ s ctype="text/html"
+"RTN","C0E0001I",57,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0001I",58,0)
+ i $d(headers) d
+"RTN","C0E0001I",59,0)
+ . n lcname,name
+"RTN","C0E0001I",60,0)
+ . s name=""
+"RTN","C0E0001I",61,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0001I",62,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0001I",63,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0001I",64,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0001I",65,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0001I",66,0)
+ w $c(13,10)
+"RTN","C0E0001I",67,0)
+ QUIT 1
+"RTN","C0E0001I",68,0)
+ ;
+"RTN","C0E0001I",69,0)
+body ;
+"RTN","C0E0001I",70,0)
+ w ""_$c(13,10)
+"RTN","C0E0001I",71,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",72,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",73,0)
+ w "Screenman Menu"_""
+"RTN","C0E0001I",74,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",75,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",76,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",77,0)
+ w "Hello World"_""
+"RTN","C0E0001I",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",79,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",80,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",81,0)
+ w "test1 page"_""
+"RTN","C0E0001I",82,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",83,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",84,0)
+ w ""_$c(13,10)
+"RTN","C0E0001I",85,0)
+ QUIT
+"RTN","C0E0002")
+0^8^B92918287
+"RTN","C0E0002",1,0)
+ ;GT.M version of page test1 (screenman application)
+"RTN","C0E0002",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 2
+"RTN","C0E0002",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0002",4,0)
+ QUIT
+"RTN","C0E0002",5,0)
+ ;
+"RTN","C0E0002",6,0)
+run ;
+"RTN","C0E0002",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0002",8,0)
+ s ok=$$pre()
+"RTN","C0E0002",9,0)
+ i ok d body
+"RTN","C0E0002",10,0)
+ QUIT
+"RTN","C0E0002",11,0)
+ ;
+"RTN","C0E0002",12,0)
+pre() ;
+"RTN","C0E0002",13,0)
+ ;
+"RTN","C0E0002",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0002",15,0)
+ ;
+"RTN","C0E0002",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0002",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0002",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0002",19,0)
+ s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
+"RTN","C0E0002",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0002",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0002",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0002",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0002",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0002",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0002",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0002",27,0)
+ s sessionArray("ewd_pageName")="test1"
+"RTN","C0E0002",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0002",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0002",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0002",31,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0E0002",32,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0E0002",33,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0E0002",34,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0E0002",35,0)
+ s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
+"RTN","C0E0002",36,0)
+ s formInfo="SSN|text`TITLE|text`ewd_pressed|hidden`submit|submit`"
+"RTN","C0E0002",37,0)
+ d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
+"RTN","C0E0002",38,0)
+ s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0002",39,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0002",40,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0002",41,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0002",42,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0002",43,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0002",44,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0002",45,0)
+ . n errorPage
+"RTN","C0E0002",46,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0002",47,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0002",48,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0002",49,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0002",50,0)
+ s stop=0
+"RTN","C0E0002",51,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0002",52,0)
+ . n nextpage
+"RTN","C0E0002",53,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0002",54,0)
+ . i nextpage'="" d
+"RTN","C0E0002",55,0)
+ . . n x
+"RTN","C0E0002",56,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0002",57,0)
+ . . s stop=1
+"RTN","C0E0002",58,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0002",59,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0002",60,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0002",61,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0002",62,0)
+ s ctype="text/html"
+"RTN","C0E0002",63,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0002",64,0)
+ i $d(headers) d
+"RTN","C0E0002",65,0)
+ . n lcname,name
+"RTN","C0E0002",66,0)
+ . s name=""
+"RTN","C0E0002",67,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0002",68,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0002",69,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0002",70,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0002",71,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0002",72,0)
+ w $c(13,10)
+"RTN","C0E0002",73,0)
+ QUIT 1
+"RTN","C0E0002",74,0)
+ ;
+"RTN","C0E0002",75,0)
+body ;
+"RTN","C0E0002",76,0)
+ w ""_$c(13,10)
+"RTN","C0E0002",77,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",79,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",81,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",88,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",89,0)
+ w "Screenman Test"_""
+"RTN","C0E0002",90,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",91,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",138,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",139,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",140,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",160,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",161,0)
+ w ""_$c(13,10)
+"RTN","C0E0002",162,0)
+ QUIT
+"SEC","^DIC",70050,70050,0,"AUDIT")
+@
+"SEC","^DIC",70050,70050,0,"DD")
+@
+"SEC","^DIC",70050,70050,0,"DEL")
+@
+"SEC","^DIC",70050,70050,0,"LAYGO")
+@
+"SEC","^DIC",70050,70050,0,"RD")
+@
+"SEC","^DIC",70050,70050,0,"WR")
+@
+"VER")
+8.0^22.0
+"^DD",70050,70050,0)
+FIELD^^1^5
+"^DD",70050,70050,0,"DDA")
+N
+"^DD",70050,70050,0,"DT")
+3100301
+"^DD",70050,70050,0,"ID",.02)
+W " ",$P(^(0),U,2)
+"^DD",70050,70050,0,"ID",.03)
+W " ",$P(^(0),U,3)
+"^DD",70050,70050,0,"IX","B",70050,.01)
+
+"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
+
+"^DD",70050,70050,.01,0)
+EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
+"^DD",70050,70050,.01,1,0)
+^.1
+"^DD",70050,70050,.01,1,1,0)
+70050^B
+"^DD",70050,70050,.01,1,1,1)
+S ^C0E(70050,"B",$E(X,1,30),DA)=""
+"^DD",70050,70050,.01,1,1,2)
+K ^C0E(70050,"B",$E(X,1,30),DA)
+"^DD",70050,70050,.01,3)
+NAMESPACED EWD COMPILED PAGE
+"^DD",70050,70050,.01,"DT")
+3100301
+"^DD",70050,70050,.02,0)
+EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
+"^DD",70050,70050,.02,3)
+NAME OF THE EWD APPLICATION
+"^DD",70050,70050,.02,"DT")
+3100301
+"^DD",70050,70050,.03,0)
+EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
+"^DD",70050,70050,.03,3)
+EWD PAGE NAME
+"^DD",70050,70050,.03,"DT")
+3100301
+"^DD",70050,70050,1,0)
+DESCRIPTION^70050.01^^2;0
+"^DD",70050,70050,2,0)
+EWD SOURCE^70050.02^^1;0
+"^DD",70050,70050.01,0)
+DESCRIPTION SUB-FIELD^^.01^1
+"^DD",70050,70050.01,0,"DT")
+3100301
+"^DD",70050,70050.01,0,"NM","DESCRIPTION")
+
+"^DD",70050,70050.01,0,"UP")
+70050
+"^DD",70050,70050.01,.01,0)
+DESCRIPTION^Wx^^0;1
+"^DD",70050,70050.01,.01,3)
+DESCRIPTION OF THE EWD PAGE
+"^DD",70050,70050.01,.01,"DT")
+3100301
+"^DD",70050,70050.02,0)
+EWD SOURCE SUB-FIELD^^.01^1
+"^DD",70050,70050.02,0,"DT")
+3100301
+"^DD",70050,70050.02,0,"NM","EWD SOURCE")
+
+"^DD",70050,70050.02,0,"UP")
+70050
+"^DD",70050,70050.02,.01,0)
+EWD SOURCE^WLx^^0;1
+"^DD",70050,70050.02,.01,3)
+EWD PAGE SOURCE CODE
+"^DD",70050,70050.02,.01,"DT")
+3100301
+"^DIC",70050,70050,0)
+C0EWD ROUTINE MAP^70050
+"^DIC",70050,70050,0,"GL")
+^C0E(70050,
+"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
+
+**END**
+**END**
Index: EWD/archive/C0E0_1_0_0_T3.KID
===================================================================
--- EWD/archive/C0E0_1_0_0_T3.KID (revision 1265)
+++ EWD/archive/C0E0_1_0_0_T3.KID (revision 1265)
@@ -0,0 +1,1772 @@
+KIDS Distribution saved on Mar 02, 2010@00:57:50
+select only screenman records for the mapping file
+**KIDS**:C0E0*1.0*0^
+
+**INSTALL NAME**
+C0E0*1.0*0
+"BLD",6969,0)
+C0E0*1.0*0^^0^3100302^n
+"BLD",6969,4,0)
+^9.64PA^70050^1
+"BLD",6969,4,70050,0)
+70050
+"BLD",6969,4,70050,222)
+y^y^f^^n^^y^o^n
+"BLD",6969,4,70050,224)
+I $$GET1^DIQ(70050,Y_",",.02)="screenman"
+"BLD",6969,4,"B",70050,70050)
+
+"BLD",6969,6.3)
+3
+"BLD",6969,"KRN",0)
+^9.67PA^8989.52^19
+"BLD",6969,"KRN",.4,0)
+.4
+"BLD",6969,"KRN",.401,0)
+.401
+"BLD",6969,"KRN",.401,"NM",0)
+^9.68A^1^1
+"BLD",6969,"KRN",.401,"NM",1,0)
+C0E SCREENMAN RECORDS FILE #70050^70050^0
+"BLD",6969,"KRN",.401,"NM","B","C0E SCREENMAN RECORDS FILE #70050",1)
+
+"BLD",6969,"KRN",.402,0)
+.402
+"BLD",6969,"KRN",.403,0)
+.403
+"BLD",6969,"KRN",.5,0)
+.5
+"BLD",6969,"KRN",.84,0)
+.84
+"BLD",6969,"KRN",3.6,0)
+3.6
+"BLD",6969,"KRN",3.8,0)
+3.8
+"BLD",6969,"KRN",9.2,0)
+9.2
+"BLD",6969,"KRN",9.8,0)
+9.8
+"BLD",6969,"KRN",9.8,"NM",0)
+^9.68A^8^8
+"BLD",6969,"KRN",9.8,"NM",1,0)
+C0CROB^^0^B1053192
+"BLD",6969,"KRN",9.8,"NM",2,0)
+C0CEX^^0^B811998
+"BLD",6969,"KRN",9.8,"NM",3,0)
+C0E0000A^^0^B14799604
+"BLD",6969,"KRN",9.8,"NM",4,0)
+C0E0000F^^0^B32569634
+"BLD",6969,"KRN",9.8,"NM",5,0)
+C0E0000E^^0^B27501668
+"BLD",6969,"KRN",9.8,"NM",6,0)
+C0E0000R^^0^B66670061
+"BLD",6969,"KRN",9.8,"NM",7,0)
+C0E0001I^^0^B20127196
+"BLD",6969,"KRN",9.8,"NM",8,0)
+C0E0002^^0^B92918287
+"BLD",6969,"KRN",9.8,"NM","B","C0CEX",2)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0CROB",1)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000A",3)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000E",5)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000F",4)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000R",6)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0001I",7)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0002",8)
+
+"BLD",6969,"KRN",19,0)
+19
+"BLD",6969,"KRN",19.1,0)
+19.1
+"BLD",6969,"KRN",101,0)
+101
+"BLD",6969,"KRN",409.61,0)
+409.61
+"BLD",6969,"KRN",771,0)
+771
+"BLD",6969,"KRN",870,0)
+870
+"BLD",6969,"KRN",8989.51,0)
+8989.51
+"BLD",6969,"KRN",8989.52,0)
+8989.52
+"BLD",6969,"KRN",8994,0)
+8994
+"BLD",6969,"KRN","B",.4,.4)
+
+"BLD",6969,"KRN","B",.401,.401)
+
+"BLD",6969,"KRN","B",.402,.402)
+
+"BLD",6969,"KRN","B",.403,.403)
+
+"BLD",6969,"KRN","B",.5,.5)
+
+"BLD",6969,"KRN","B",.84,.84)
+
+"BLD",6969,"KRN","B",3.6,3.6)
+
+"BLD",6969,"KRN","B",3.8,3.8)
+
+"BLD",6969,"KRN","B",9.2,9.2)
+
+"BLD",6969,"KRN","B",9.8,9.8)
+
+"BLD",6969,"KRN","B",19,19)
+
+"BLD",6969,"KRN","B",19.1,19.1)
+
+"BLD",6969,"KRN","B",101,101)
+
+"BLD",6969,"KRN","B",409.61,409.61)
+
+"BLD",6969,"KRN","B",771,771)
+
+"BLD",6969,"KRN","B",870,870)
+
+"BLD",6969,"KRN","B",8989.51,8989.51)
+
+"BLD",6969,"KRN","B",8989.52,8989.52)
+
+"BLD",6969,"KRN","B",8994,8994)
+
+"BLD",6969,"QUES",0)
+^9.62^^
+"DATA",70050,12,0)
+23407^screenman^ewdajaxerror
+"DATA",70050,13,0)
+23408^screenman^ewdajaxerrorredirect
+"DATA",70050,14,0)
+23409^screenman^ewderror
+"DATA",70050,15,0)
+23410^screenman^ewderrorredirect
+"DATA",70050,16,0)
+23411^screenman^index
+"DATA",70050,16,1,0)
+^^10^10^3100301^
+"DATA",70050,16,1,1,0)
+
+"DATA",70050,16,1,2,0)
+
+"DATA",70050,16,1,3,0)
+
+"DATA",70050,16,1,4,0)
+Screenman Menu
+"DATA",70050,16,1,5,0)
+
+"DATA",70050,16,1,6,0)
+
+"DATA",70050,16,1,7,0)
+Hello World
+"DATA",70050,16,1,8,0)
+test1 page
+"DATA",70050,16,1,9,0)
+
+"DATA",70050,16,1,10,0)
+
+"DATA",70050,17,0)
+23412^screenman^test1
+"DATA",70050,17,1,0)
+^70050.02^25^25^3100302^^
+"DATA",70050,17,1,1,0)
+
+"DATA",70050,17,1,2,0)
+
+"DATA",70050,17,1,3,0)
+
+"DATA",70050,17,1,4,0)
+
+"DATA",70050,17,1,9,0)
+Screenman Test
+"DATA",70050,17,1,10,0)
+
+"DATA",70050,17,1,11,0)
+
+"DATA",70050,17,1,12,0)
+
+"DATA",70050,17,1,24,0)
+
+"DATA",70050,17,1,25,0)
+
+"FIA",70050)
+C0EWD ROUTINE MAP
+"FIA",70050,0)
+^C0E(70050,
+"FIA",70050,0,0)
+70050PI
+"FIA",70050,0,1)
+y^y^f^^n^^y^o^n
+"FIA",70050,0,10)
+
+"FIA",70050,0,11)
+I $$GET1^DIQ(70050,Y_",",.02)="screenman"
+"FIA",70050,0,"RLRO")
+
+"FIA",70050,70050)
+0
+"FIA",70050,70050.01)
+0
+"FIA",70050,70050.02)
+0
+"IX",70050,70050,"AZEWD",0)
+70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
+"IX",70050,70050,"AZEWD",1)
+D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",2)
+D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",11.1,0)
+^.114IA^3^3
+"IX",70050,70050,"AZEWD",11.1,1,0)
+1^F^70050^.01^^^F
+"IX",70050,70050,"AZEWD",11.1,2,0)
+2^F^70050^.02^^^F
+"IX",70050,70050,"AZEWD",11.1,3,0)
+3^F^70050^.03^^^F
+"IX",70050,70050,"C",0)
+70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
+"IX",70050,70050,"C",1)
+S ^C0E(70050,"C",$E(X,1,60),DA)=""
+"IX",70050,70050,"C",2)
+K ^C0E(70050,"C",$E(X,1,60),DA)
+"IX",70050,70050,"C",2.5)
+K ^C0E(70050,"C")
+"IX",70050,70050,"C",11.1,0)
+^.114IA^1^1
+"IX",70050,70050,"C",11.1,1,0)
+1^F^70050^.03^60^1^F
+"IX",70050,70050,"C",11.1,1,3)
+
+"KRN",.401,1794,-1)
+0^1
+"KRN",.401,1794,0)
+C0E SCREENMAN RECORDS^3100302.0014^@^70050^^@^3100302
+"KRN",.401,1794,2,0)
+^.4014^1^1
+"KRN",.401,1794,2,1,0)
+70050^.02^EWD APPLICATION^^^^^^^4
+"KRN",.401,1794,2,1,"F")
+screenmamz^screenman
+"KRN",.401,1794,2,1,"GET")
+S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
+"KRN",.401,1794,2,1,"QCON")
+I DISX(1)="screenman"
+"KRN",.401,1794,2,1,"T")
+screenman^screenman
+"KRN",.401,1794,2,1,"TXT")
+EWD APPLICATION equals screenman
+"KRN",.401,1794,2,"B",70050,1)
+
+"MBREQ")
+0
+"ORD",6,.401)
+.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,"",%)
+"ORD",6,.401,0)
+SORT TEMPLATE
+"QUES","XPF1",0)
+Y
+"QUES","XPF1","??")
+^D REP^XPDH
+"QUES","XPF1","A")
+Shall I write over your |FLAG| File
+"QUES","XPF1","B")
+YES
+"QUES","XPF1","M")
+D XPF1^XPDIQ
+"QUES","XPF2",0)
+Y
+"QUES","XPF2","??")
+^D DTA^XPDH
+"QUES","XPF2","A")
+Want my data |FLAG| yours
+"QUES","XPF2","B")
+YES
+"QUES","XPF2","M")
+D XPF2^XPDIQ
+"QUES","XPI1",0)
+YO
+"QUES","XPI1","??")
+^D INHIBIT^XPDH
+"QUES","XPI1","A")
+Want KIDS to INHIBIT LOGONs during the install
+"QUES","XPI1","B")
+NO
+"QUES","XPI1","M")
+D XPI1^XPDIQ
+"QUES","XPM1",0)
+PO^VA(200,:EM
+"QUES","XPM1","??")
+^D MG^XPDH
+"QUES","XPM1","A")
+Enter the Coordinator for Mail Group '|FLAG|'
+"QUES","XPM1","B")
+
+"QUES","XPM1","M")
+D XPM1^XPDIQ
+"QUES","XPO1",0)
+Y
+"QUES","XPO1","??")
+^D MENU^XPDH
+"QUES","XPO1","A")
+Want KIDS to Rebuild Menu Trees Upon Completion of Install
+"QUES","XPO1","B")
+NO
+"QUES","XPO1","M")
+D XPO1^XPDIQ
+"QUES","XPZ1",0)
+Y
+"QUES","XPZ1","??")
+^D OPT^XPDH
+"QUES","XPZ1","A")
+Want to DISABLE Scheduled Options, Menu Options, and Protocols
+"QUES","XPZ1","B")
+NO
+"QUES","XPZ1","M")
+D XPZ1^XPDIQ
+"QUES","XPZ2",0)
+Y
+"QUES","XPZ2","??")
+^D RTN^XPDH
+"QUES","XPZ2","A")
+Want to MOVE routines to other CPUs
+"QUES","XPZ2","B")
+NO
+"QUES","XPZ2","M")
+D XPZ2^XPDIQ
+"RTN")
+8
+"RTN","C0CEX")
+0^2^B811998
+"RTN","C0CEX",1,0)
+C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
+"RTN","C0CEX",2,0)
+ ;;1.0;C0C;;Mar 1, 2010 ;Build 3
+"RTN","C0CEX",3,0)
+SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+"RTN","C0CEX",4,0)
+ ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
+"RTN","C0CEX",5,0)
+ N ZR
+"RTN","C0CEX",6,0)
+ I $G(ZAPP)="" Q ;
+"RTN","C0CEX",7,0)
+ I $G(ZPAGE)="" Q ;
+"RTN","C0CEX",8,0)
+ I $G(ZROUTINE)="" Q ;
+"RTN","C0CEX",9,0)
+ S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
+"RTN","C0CEX",10,0)
+ S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
+"RTN","C0CEX",11,0)
+ Q
+"RTN","C0CEX",12,0)
+ ;
+"RTN","C0CEX",13,0)
+KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+"RTN","C0CEX",14,0)
+ ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
+"RTN","C0CEX",15,0)
+ I $G(ZAPP)="" Q ;
+"RTN","C0CEX",16,0)
+ I $G(ZPAGE)="" Q ;
+"RTN","C0CEX",17,0)
+ K ^zewd("routineMap",ZAPP,ZPAGE)
+"RTN","C0CEX",18,0)
+ Q
+"RTN","C0CROB")
+0^1^B1053192
+"RTN","C0CROB",1,0)
+ ;;C0CROB
+"RTN","C0CROB",2,0)
+ ;;;;;;Build 3
+"RTN","C0CROB",3,0)
+TEST1(sessid) ;
+"RTN","C0CROB",4,0)
+ D setSessionValue^%zewdAPI("name","PROVIDER,TWOHUNDREDNINETYSIX",sessid)
+"RTN","C0CROB",5,0)
+ S TITLE=$G(^C0CROB("TITLE"))
+"RTN","C0CROB",6,0)
+ I TITLE="" S TITLE="Scholar Extraordinaire"
+"RTN","C0CROB",7,0)
+ D setSessionValue^%zewdAPI("TITLE",TITLE,sessid)
+"RTN","C0CROB",8,0)
+ Q ""
+"RTN","C0CROB",9,0)
+SAVEFORM(sessid) ;
+"RTN","C0CROB",10,0)
+ S TITLE=$$getSessionValue^%zewdAPI("TITLE",sessid)
+"RTN","C0CROB",11,0)
+ I TITLE="" Q "You must enter a title"
+"RTN","C0CROB",12,0)
+ S ^C0CROB("TITLE")=TITLE
+"RTN","C0CROB",13,0)
+ Q ""
+"RTN","C0CROB",14,0)
+VALIDATETITLE(value) ;
+"RTN","C0CROB",15,0)
+ I value="" Q "alert('you must enter a title');"
+"RTN","C0CROB",16,0)
+ Q ""
+"RTN","C0E0000A")
+0^3^B14799604
+"RTN","C0E0000A",1,0)
+ ;GT.M version of page ewdAjaxError (screenman application)
+"RTN","C0E0000A",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 3
+"RTN","C0E0000A",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000A",4,0)
+ QUIT
+"RTN","C0E0000A",5,0)
+ ;
+"RTN","C0E0000A",6,0)
+run ;
+"RTN","C0E0000A",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000A",8,0)
+ s ok=$$pre()
+"RTN","C0E0000A",9,0)
+ i ok d body
+"RTN","C0E0000A",10,0)
+ QUIT
+"RTN","C0E0000A",11,0)
+ ;
+"RTN","C0E0000A",12,0)
+pre() ;
+"RTN","C0E0000A",13,0)
+ ;
+"RTN","C0E0000A",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000A",15,0)
+ ;
+"RTN","C0E0000A",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000A",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0E0000A",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000A",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0000A",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000A",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000A",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000A",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000A",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000A",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000A",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000A",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxError"
+"RTN","C0E0000A",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000A",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000A",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0000A",31,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000A",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000A",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000A",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000A",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000A",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000A",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000A",38,0)
+ . n errorPage
+"RTN","C0E0000A",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000A",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000A",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000A",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000A",43,0)
+ s stop=0
+"RTN","C0E0000A",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000A",45,0)
+ . n nextpage
+"RTN","C0E0000A",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000A",47,0)
+ . i nextpage'="" d
+"RTN","C0E0000A",48,0)
+ . . n x
+"RTN","C0E0000A",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000A",50,0)
+ . . s stop=1
+"RTN","C0E0000A",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000A",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000A",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000A",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000A",55,0)
+ s ctype="text/html"
+"RTN","C0E0000A",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000A",57,0)
+ i $d(headers) d
+"RTN","C0E0000A",58,0)
+ . n lcname,name
+"RTN","C0E0000A",59,0)
+ . s name=""
+"RTN","C0E0000A",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000A",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000A",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000A",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000A",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000A",65,0)
+ w $c(13,10)
+"RTN","C0E0000A",66,0)
+ QUIT 1
+"RTN","C0E0000A",67,0)
+ ;
+"RTN","C0E0000A",68,0)
+body ;
+"RTN","C0E0000A",69,0)
+ w ""_$c(13,10)
+"RTN","C0E0000A",70,0)
+ w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
+"RTN","C0E0000A",71,0)
+ w ""_$c(13,10)
+"RTN","C0E0000A",72,0)
+ QUIT
+"RTN","C0E0000E")
+0^5^B27501668
+"RTN","C0E0000E",1,0)
+ ;GT.M version of page ewdError (screenman application)
+"RTN","C0E0000E",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 3
+"RTN","C0E0000E",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000E",4,0)
+ QUIT
+"RTN","C0E0000E",5,0)
+ ;
+"RTN","C0E0000E",6,0)
+run ;
+"RTN","C0E0000E",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000E",8,0)
+ s ok=$$pre()
+"RTN","C0E0000E",9,0)
+ i ok d body
+"RTN","C0E0000E",10,0)
+ QUIT
+"RTN","C0E0000E",11,0)
+ ;
+"RTN","C0E0000E",12,0)
+pre() ;
+"RTN","C0E0000E",13,0)
+ ;
+"RTN","C0E0000E",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000E",15,0)
+ ;
+"RTN","C0E0000E",16,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000E",17,0)
+ w "Content-type: text/html"_$c(13,10,13,10)
+"RTN","C0E0000E",18,0)
+ QUIT 1
+"RTN","C0E0000E",19,0)
+ ;
+"RTN","C0E0000E",20,0)
+body ;
+"RTN","C0E0000E",21,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",22,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",23,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",24,0)
+ w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
+"RTN","C0E0000E",25,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",43,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",44,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",45,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",46,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",47,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",48,0)
+ w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
+"RTN","C0E0000E",49,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",50,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",51,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",52,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",53,0)
+ w "
An Error has occurred
"_$c(13,10)
+"RTN","C0E0000E",54,0)
+ w " "_$c(13,10)
+"RTN","C0E0000E",55,0)
+ w "
"_$g(%KEY("error"))_"
"_$c(13,10)
+"RTN","C0E0000E",56,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",57,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",58,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",59,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",60,0)
+ w " "_$c(13,10)
+"RTN","C0E0000E",63,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",64,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",65,0)
+ QUIT
+"RTN","C0E0000F")
+0^4^B32569634
+"RTN","C0E0000F",1,0)
+ ;GT.M version of page ewdAjaxErrorRedirect (screenman application)
+"RTN","C0E0000F",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 3
+"RTN","C0E0000F",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000F",4,0)
+ QUIT
+"RTN","C0E0000F",5,0)
+ ;
+"RTN","C0E0000F",6,0)
+run ;
+"RTN","C0E0000F",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000F",8,0)
+ s ok=$$pre()
+"RTN","C0E0000F",9,0)
+ i ok d body
+"RTN","C0E0000F",10,0)
+ QUIT
+"RTN","C0E0000F",11,0)
+ ;
+"RTN","C0E0000F",12,0)
+pre() ;
+"RTN","C0E0000F",13,0)
+ ;
+"RTN","C0E0000F",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000F",15,0)
+ ;
+"RTN","C0E0000F",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000F",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0000F",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000F",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0000F",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000F",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000F",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000F",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000F",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000F",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000F",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000F",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
+"RTN","C0E0000F",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000F",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000F",30,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0E0000F",31,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0E0000F",32,0)
+ s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
+"RTN","C0E0000F",33,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000F",34,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000F",35,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000F",36,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000F",37,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000F",38,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000F",39,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000F",40,0)
+ . n errorPage
+"RTN","C0E0000F",41,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000F",42,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000F",43,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000F",44,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000F",45,0)
+ s stop=0
+"RTN","C0E0000F",46,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000F",47,0)
+ . n nextpage
+"RTN","C0E0000F",48,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000F",49,0)
+ . i nextpage'="" d
+"RTN","C0E0000F",50,0)
+ . . n x
+"RTN","C0E0000F",51,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000F",52,0)
+ . . s stop=1
+"RTN","C0E0000F",53,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000F",54,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000F",55,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000F",56,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000F",57,0)
+ s ctype="text/html"
+"RTN","C0E0000F",58,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000F",59,0)
+ i $d(headers) d
+"RTN","C0E0000F",60,0)
+ . n lcname,name
+"RTN","C0E0000F",61,0)
+ . s name=""
+"RTN","C0E0000F",62,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000F",63,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000F",64,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000F",65,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000F",66,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000F",67,0)
+ w $c(13,10)
+"RTN","C0E0000F",68,0)
+ QUIT 1
+"RTN","C0E0000F",69,0)
+ ;
+"RTN","C0E0000F",70,0)
+body ;
+"RTN","C0E0000F",71,0)
+ if ($g(Error)="") d
+"RTN","C0E0000F",72,0)
+ .w " "_$c(13,10)
+"RTN","C0E0000F",73,0)
+ .w "
"_$c(13,10)
+"RTN","C0E0000F",74,0)
+ .w "
"_$c(13,10)
+"RTN","C0E0000F",75,0)
+ .w " "_$c(13,10)
+"RTN","C0E0000F",76,0)
+ .
+"RTN","C0E0000F",77,0)
+ w ""_$c(13,10)
+"RTN","C0E0000F",78,0)
+ 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)
+"RTN","C0E0000F",79,0)
+ s id=""
+"RTN","C0E0000F",80,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0E0000F",81,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0E0000F",82,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0E0000F",83,0)
+ s id=""
+"RTN","C0E0000F",84,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0E0000F",85,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0E0000F",86,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0E0000F",87,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0E0000F",88,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0E0000F",89,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0E0000F",90,0)
+ w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
+"RTN","C0E0000F",91,0)
+ w ""_$c(13,10)
+"RTN","C0E0000F",92,0)
+ QUIT
+"RTN","C0E0000R")
+0^6^B66670061
+"RTN","C0E0000R",1,0)
+ ;GT.M version of page ewdErrorRedirect (screenman application)
+"RTN","C0E0000R",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 3
+"RTN","C0E0000R",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000R",4,0)
+ QUIT
+"RTN","C0E0000R",5,0)
+ ;
+"RTN","C0E0000R",6,0)
+run ;
+"RTN","C0E0000R",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000R",8,0)
+ s ok=$$pre()
+"RTN","C0E0000R",9,0)
+ i ok d body
+"RTN","C0E0000R",10,0)
+ QUIT
+"RTN","C0E0000R",11,0)
+ ;
+"RTN","C0E0000R",12,0)
+pre() ;
+"RTN","C0E0000R",13,0)
+ ;
+"RTN","C0E0000R",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000R",15,0)
+ ;
+"RTN","C0E0000R",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000R",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0000R",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000R",19,0)
+ s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
+"RTN","C0E0000R",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000R",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000R",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000R",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000R",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000R",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000R",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000R",27,0)
+ s sessionArray("ewd_pageName")="ewdErrorRedirect"
+"RTN","C0E0000R",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000R",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000R",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0000R",31,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",32,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",33,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0E0000R",34,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",35,0)
+ s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000R",36,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000R",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000R",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000R",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000R",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000R",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000R",42,0)
+ . n errorPage
+"RTN","C0E0000R",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000R",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000R",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000R",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000R",47,0)
+ s stop=0
+"RTN","C0E0000R",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000R",49,0)
+ . n nextpage
+"RTN","C0E0000R",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000R",51,0)
+ . i nextpage'="" d
+"RTN","C0E0000R",52,0)
+ . . n x
+"RTN","C0E0000R",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000R",54,0)
+ . . s stop=1
+"RTN","C0E0000R",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000R",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000R",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000R",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000R",59,0)
+ s ctype="text/html"
+"RTN","C0E0000R",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000R",61,0)
+ i $d(headers) d
+"RTN","C0E0000R",62,0)
+ . n lcname,name
+"RTN","C0E0000R",63,0)
+ . s name=""
+"RTN","C0E0000R",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000R",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000R",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000R",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000R",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000R",69,0)
+ w $c(13,10)
+"RTN","C0E0000R",70,0)
+ QUIT 1
+"RTN","C0E0000R",71,0)
+ ;
+"RTN","C0E0000R",72,0)
+body ;
+"RTN","C0E0000R",73,0)
+ w ""_$c(13,10)
+"RTN","C0E0000R",74,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",75,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",76,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",79,0)
+ w "Ajax Error Redirect page"_""
+"RTN","C0E0000R",80,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",81,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",82,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",83,0)
+ w "Please wait...."_""
+"RTN","C0E0000R",84,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",85,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",86,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",133,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",134,0)
+ w ""_$c(13,10)
+"RTN","C0E0000R",135,0)
+ QUIT
+"RTN","C0E0001I")
+0^7^B20127196
+"RTN","C0E0001I",1,0)
+ ;GT.M version of page index (screenman application)
+"RTN","C0E0001I",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 3
+"RTN","C0E0001I",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0001I",4,0)
+ QUIT
+"RTN","C0E0001I",5,0)
+ ;
+"RTN","C0E0001I",6,0)
+run ;
+"RTN","C0E0001I",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0001I",8,0)
+ s ok=$$pre()
+"RTN","C0E0001I",9,0)
+ i ok d body
+"RTN","C0E0001I",10,0)
+ QUIT
+"RTN","C0E0001I",11,0)
+ ;
+"RTN","C0E0001I",12,0)
+pre() ;
+"RTN","C0E0001I",13,0)
+ ;
+"RTN","C0E0001I",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0001I",15,0)
+ ;
+"RTN","C0E0001I",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0001I",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0E0001I",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0001I",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0001I",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0001I",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0001I",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0001I",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0001I",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0001I",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0001I",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0001I",27,0)
+ s sessionArray("ewd_pageName")="index"
+"RTN","C0E0001I",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0001I",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0001I",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0001I",31,0)
+ s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
+"RTN","C0E0001I",32,0)
+ s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0001I",33,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0001I",34,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0001I",35,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0001I",36,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0001I",37,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0001I",38,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0001I",39,0)
+ . n errorPage
+"RTN","C0E0001I",40,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0001I",41,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0001I",42,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0001I",43,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0001I",44,0)
+ s stop=0
+"RTN","C0E0001I",45,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0001I",46,0)
+ . n nextpage
+"RTN","C0E0001I",47,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0001I",48,0)
+ . i nextpage'="" d
+"RTN","C0E0001I",49,0)
+ . . n x
+"RTN","C0E0001I",50,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0001I",51,0)
+ . . s stop=1
+"RTN","C0E0001I",52,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0001I",53,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0001I",54,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0001I",55,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0001I",56,0)
+ s ctype="text/html"
+"RTN","C0E0001I",57,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0001I",58,0)
+ i $d(headers) d
+"RTN","C0E0001I",59,0)
+ . n lcname,name
+"RTN","C0E0001I",60,0)
+ . s name=""
+"RTN","C0E0001I",61,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0001I",62,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0001I",63,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0001I",64,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0001I",65,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0001I",66,0)
+ w $c(13,10)
+"RTN","C0E0001I",67,0)
+ QUIT 1
+"RTN","C0E0001I",68,0)
+ ;
+"RTN","C0E0001I",69,0)
+body ;
+"RTN","C0E0001I",70,0)
+ w ""_$c(13,10)
+"RTN","C0E0001I",71,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",72,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",73,0)
+ w "Screenman Menu"_""
+"RTN","C0E0001I",74,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",75,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",76,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",77,0)
+ w "Hello World"_""
+"RTN","C0E0001I",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",79,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",80,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",81,0)
+ w "test1 page"_""
+"RTN","C0E0001I",82,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",83,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",84,0)
+ w ""_$c(13,10)
+"RTN","C0E0001I",85,0)
+ QUIT
+"RTN","C0E0002")
+0^8^B92918287
+"RTN","C0E0002",1,0)
+ ;GT.M version of page test1 (screenman application)
+"RTN","C0E0002",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 3
+"RTN","C0E0002",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0002",4,0)
+ QUIT
+"RTN","C0E0002",5,0)
+ ;
+"RTN","C0E0002",6,0)
+run ;
+"RTN","C0E0002",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0002",8,0)
+ s ok=$$pre()
+"RTN","C0E0002",9,0)
+ i ok d body
+"RTN","C0E0002",10,0)
+ QUIT
+"RTN","C0E0002",11,0)
+ ;
+"RTN","C0E0002",12,0)
+pre() ;
+"RTN","C0E0002",13,0)
+ ;
+"RTN","C0E0002",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0002",15,0)
+ ;
+"RTN","C0E0002",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0002",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0002",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0002",19,0)
+ s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
+"RTN","C0E0002",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0002",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0002",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0002",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0002",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0002",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0002",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0002",27,0)
+ s sessionArray("ewd_pageName")="test1"
+"RTN","C0E0002",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0002",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0002",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0002",31,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0E0002",32,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0E0002",33,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0E0002",34,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0E0002",35,0)
+ s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
+"RTN","C0E0002",36,0)
+ s formInfo="SSN|text`TITLE|text`ewd_pressed|hidden`submit|submit`"
+"RTN","C0E0002",37,0)
+ d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
+"RTN","C0E0002",38,0)
+ s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0002",39,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0002",40,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0002",41,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0002",42,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0002",43,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0002",44,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0002",45,0)
+ . n errorPage
+"RTN","C0E0002",46,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0002",47,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0002",48,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0002",49,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0002",50,0)
+ s stop=0
+"RTN","C0E0002",51,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0002",52,0)
+ . n nextpage
+"RTN","C0E0002",53,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0002",54,0)
+ . i nextpage'="" d
+"RTN","C0E0002",55,0)
+ . . n x
+"RTN","C0E0002",56,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0002",57,0)
+ . . s stop=1
+"RTN","C0E0002",58,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0002",59,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0002",60,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0002",61,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0002",62,0)
+ s ctype="text/html"
+"RTN","C0E0002",63,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0002",64,0)
+ i $d(headers) d
+"RTN","C0E0002",65,0)
+ . n lcname,name
+"RTN","C0E0002",66,0)
+ . s name=""
+"RTN","C0E0002",67,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0002",68,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0002",69,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0002",70,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0002",71,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0002",72,0)
+ w $c(13,10)
+"RTN","C0E0002",73,0)
+ QUIT 1
+"RTN","C0E0002",74,0)
+ ;
+"RTN","C0E0002",75,0)
+body ;
+"RTN","C0E0002",76,0)
+ w ""_$c(13,10)
+"RTN","C0E0002",77,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",79,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",81,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",88,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",89,0)
+ w "Screenman Test"_""
+"RTN","C0E0002",90,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",91,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",138,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",139,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",140,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",160,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",161,0)
+ w ""_$c(13,10)
+"RTN","C0E0002",162,0)
+ QUIT
+"SEC","^DIC",70050,70050,0,"AUDIT")
+@
+"SEC","^DIC",70050,70050,0,"DD")
+@
+"SEC","^DIC",70050,70050,0,"DEL")
+@
+"SEC","^DIC",70050,70050,0,"LAYGO")
+@
+"SEC","^DIC",70050,70050,0,"RD")
+@
+"SEC","^DIC",70050,70050,0,"WR")
+@
+"VER")
+8.0^22.0
+"^DD",70050,70050,0)
+FIELD^^1^5
+"^DD",70050,70050,0,"DDA")
+N
+"^DD",70050,70050,0,"DT")
+3100301
+"^DD",70050,70050,0,"ID",.02)
+W " ",$P(^(0),U,2)
+"^DD",70050,70050,0,"ID",.03)
+W " ",$P(^(0),U,3)
+"^DD",70050,70050,0,"IX","B",70050,.01)
+
+"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
+
+"^DD",70050,70050,.01,0)
+EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
+"^DD",70050,70050,.01,1,0)
+^.1
+"^DD",70050,70050,.01,1,1,0)
+70050^B
+"^DD",70050,70050,.01,1,1,1)
+S ^C0E(70050,"B",$E(X,1,30),DA)=""
+"^DD",70050,70050,.01,1,1,2)
+K ^C0E(70050,"B",$E(X,1,30),DA)
+"^DD",70050,70050,.01,3)
+NAMESPACED EWD COMPILED PAGE
+"^DD",70050,70050,.01,"DT")
+3100301
+"^DD",70050,70050,.02,0)
+EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
+"^DD",70050,70050,.02,3)
+NAME OF THE EWD APPLICATION
+"^DD",70050,70050,.02,"DT")
+3100301
+"^DD",70050,70050,.03,0)
+EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
+"^DD",70050,70050,.03,3)
+EWD PAGE NAME
+"^DD",70050,70050,.03,"DT")
+3100301
+"^DD",70050,70050,1,0)
+DESCRIPTION^70050.01^^2;0
+"^DD",70050,70050,2,0)
+EWD SOURCE^70050.02^^1;0
+"^DD",70050,70050.01,0)
+DESCRIPTION SUB-FIELD^^.01^1
+"^DD",70050,70050.01,0,"DT")
+3100301
+"^DD",70050,70050.01,0,"NM","DESCRIPTION")
+
+"^DD",70050,70050.01,0,"UP")
+70050
+"^DD",70050,70050.01,.01,0)
+DESCRIPTION^Wx^^0;1
+"^DD",70050,70050.01,.01,3)
+DESCRIPTION OF THE EWD PAGE
+"^DD",70050,70050.01,.01,"DT")
+3100301
+"^DD",70050,70050.02,0)
+EWD SOURCE SUB-FIELD^^.01^1
+"^DD",70050,70050.02,0,"DT")
+3100301
+"^DD",70050,70050.02,0,"NM","EWD SOURCE")
+
+"^DD",70050,70050.02,0,"UP")
+70050
+"^DD",70050,70050.02,.01,0)
+EWD SOURCE^WLx^^0;1
+"^DD",70050,70050.02,.01,3)
+EWD PAGE SOURCE CODE
+"^DD",70050,70050.02,.01,"DT")
+3100301
+"^DIC",70050,70050,0)
+C0EWD ROUTINE MAP^70050
+"^DIC",70050,70050,0,"GL")
+^C0E(70050,
+"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
+
+**END**
+**END**
Index: EWD/archive/C0E0_1_0_0_T4.KID
===================================================================
--- EWD/archive/C0E0_1_0_0_T4.KID (revision 1265)
+++ EWD/archive/C0E0_1_0_0_T4.KID (revision 1265)
@@ -0,0 +1,1788 @@
+KIDS Distribution saved on Mar 03, 2010@23:34:41
+resolve pointers
+**KIDS**:C0E0*1.0*0^
+
+**INSTALL NAME**
+C0E0*1.0*0
+"BLD",6969,0)
+C0E0*1.0*0^^0^3100303^n
+"BLD",6969,4,0)
+^9.64PA^70050^1
+"BLD",6969,4,70050,0)
+70050
+"BLD",6969,4,70050,222)
+y^y^f^^y^^y^o^n
+"BLD",6969,4,70050,224)
+I $$GET1^DIQ(70050,Y_",",.02)="screenman"
+"BLD",6969,4,"B",70050,70050)
+
+"BLD",6969,6.3)
+5
+"BLD",6969,"KRN",0)
+^9.67PA^8989.52^19
+"BLD",6969,"KRN",.4,0)
+.4
+"BLD",6969,"KRN",.401,0)
+.401
+"BLD",6969,"KRN",.401,"NM",0)
+^9.68A^1^1
+"BLD",6969,"KRN",.401,"NM",1,0)
+C0E SCREENMAN RECORDS FILE #70050^70050^0
+"BLD",6969,"KRN",.401,"NM","B","C0E SCREENMAN RECORDS FILE #70050",1)
+
+"BLD",6969,"KRN",.402,0)
+.402
+"BLD",6969,"KRN",.403,0)
+.403
+"BLD",6969,"KRN",.5,0)
+.5
+"BLD",6969,"KRN",.84,0)
+.84
+"BLD",6969,"KRN",3.6,0)
+3.6
+"BLD",6969,"KRN",3.8,0)
+3.8
+"BLD",6969,"KRN",9.2,0)
+9.2
+"BLD",6969,"KRN",9.8,0)
+9.8
+"BLD",6969,"KRN",9.8,"NM",0)
+^9.68A^8^8
+"BLD",6969,"KRN",9.8,"NM",1,0)
+C0CROB^^0^B1053192
+"BLD",6969,"KRN",9.8,"NM",2,0)
+C0CEX^^0^B811998
+"BLD",6969,"KRN",9.8,"NM",3,0)
+C0E0000A^^0^B14799604
+"BLD",6969,"KRN",9.8,"NM",4,0)
+C0E0000F^^0^B32569634
+"BLD",6969,"KRN",9.8,"NM",5,0)
+C0E0000E^^0^B27501668
+"BLD",6969,"KRN",9.8,"NM",6,0)
+C0E0000R^^0^B66670061
+"BLD",6969,"KRN",9.8,"NM",7,0)
+C0E0001I^^0^B20127196
+"BLD",6969,"KRN",9.8,"NM",8,0)
+C0E0002^^0^B92918287
+"BLD",6969,"KRN",9.8,"NM","B","C0CEX",2)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0CROB",1)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000A",3)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000E",5)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000F",4)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000R",6)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0001I",7)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0002",8)
+
+"BLD",6969,"KRN",19,0)
+19
+"BLD",6969,"KRN",19.1,0)
+19.1
+"BLD",6969,"KRN",101,0)
+101
+"BLD",6969,"KRN",409.61,0)
+409.61
+"BLD",6969,"KRN",771,0)
+771
+"BLD",6969,"KRN",870,0)
+870
+"BLD",6969,"KRN",8989.51,0)
+8989.51
+"BLD",6969,"KRN",8989.52,0)
+8989.52
+"BLD",6969,"KRN",8994,0)
+8994
+"BLD",6969,"KRN","B",.4,.4)
+
+"BLD",6969,"KRN","B",.401,.401)
+
+"BLD",6969,"KRN","B",.402,.402)
+
+"BLD",6969,"KRN","B",.403,.403)
+
+"BLD",6969,"KRN","B",.5,.5)
+
+"BLD",6969,"KRN","B",.84,.84)
+
+"BLD",6969,"KRN","B",3.6,3.6)
+
+"BLD",6969,"KRN","B",3.8,3.8)
+
+"BLD",6969,"KRN","B",9.2,9.2)
+
+"BLD",6969,"KRN","B",9.8,9.8)
+
+"BLD",6969,"KRN","B",19,19)
+
+"BLD",6969,"KRN","B",19.1,19.1)
+
+"BLD",6969,"KRN","B",101,101)
+
+"BLD",6969,"KRN","B",409.61,409.61)
+
+"BLD",6969,"KRN","B",771,771)
+
+"BLD",6969,"KRN","B",870,870)
+
+"BLD",6969,"KRN","B",8989.51,8989.51)
+
+"BLD",6969,"KRN","B",8989.52,8989.52)
+
+"BLD",6969,"KRN","B",8994,8994)
+
+"BLD",6969,"QUES",0)
+^9.62^^
+"DATA",70050,12,0)
+23407^screenman^ewdajaxerror
+"DATA",70050,13,0)
+23408^screenman^ewdajaxerrorredirect
+"DATA",70050,14,0)
+23409^screenman^ewderror
+"DATA",70050,15,0)
+23410^screenman^ewderrorredirect
+"DATA",70050,16,0)
+23411^screenman^index
+"DATA",70050,16,1,0)
+^^10^10^3100301^
+"DATA",70050,16,1,1,0)
+
+"DATA",70050,16,1,2,0)
+
+"DATA",70050,16,1,3,0)
+
+"DATA",70050,16,1,4,0)
+Screenman Menu
+"DATA",70050,16,1,5,0)
+
+"DATA",70050,16,1,6,0)
+
+"DATA",70050,16,1,7,0)
+Hello World
+"DATA",70050,16,1,8,0)
+test1 page
+"DATA",70050,16,1,9,0)
+
+"DATA",70050,16,1,10,0)
+
+"DATA",70050,17,0)
+23412^screenman^test1
+"DATA",70050,17,1,0)
+^^25^25^3100302^
+"DATA",70050,17,1,1,0)
+
+"DATA",70050,17,1,2,0)
+
+"DATA",70050,17,1,3,0)
+
+"DATA",70050,17,1,4,0)
+
+"DATA",70050,17,1,9,0)
+Screenman Test
+"DATA",70050,17,1,10,0)
+
+"DATA",70050,17,1,11,0)
+
+"DATA",70050,17,1,12,0)
+
+"DATA",70050,17,1,24,0)
+
+"DATA",70050,17,1,25,0)
+
+"FIA",70050)
+C0EWD ROUTINE MAP
+"FIA",70050,0)
+^C0E(70050,
+"FIA",70050,0,0)
+70050PI
+"FIA",70050,0,1)
+y^y^f^^y^^y^o^n
+"FIA",70050,0,10)
+
+"FIA",70050,0,11)
+I $$GET1^DIQ(70050,Y_",",.02)="screenman"
+"FIA",70050,0,"RLRO")
+
+"FIA",70050,70050)
+0
+"FIA",70050,70050.01)
+0
+"FIA",70050,70050.02)
+0
+"IX",70050,70050,"AZEWD",0)
+70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
+"IX",70050,70050,"AZEWD",1)
+D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",2)
+D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",11.1,0)
+^.114IA^3^3
+"IX",70050,70050,"AZEWD",11.1,1,0)
+1^F^70050^.01^^^F
+"IX",70050,70050,"AZEWD",11.1,2,0)
+2^F^70050^.02^^^F
+"IX",70050,70050,"AZEWD",11.1,3,0)
+3^F^70050^.03^^^F
+"IX",70050,70050,"C",0)
+70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
+"IX",70050,70050,"C",1)
+S ^C0E(70050,"C",$E(X,1,60),DA)=""
+"IX",70050,70050,"C",2)
+K ^C0E(70050,"C",$E(X,1,60),DA)
+"IX",70050,70050,"C",2.5)
+K ^C0E(70050,"C")
+"IX",70050,70050,"C",11.1,0)
+^.114IA^1^1
+"IX",70050,70050,"C",11.1,1,0)
+1^F^70050^.03^60^1^F
+"IX",70050,70050,"C",11.1,1,3)
+
+"IX",70050,70050,"D",0)
+70050^D^REGULAR INDEX OF THE APPLICATION INDEX^R^^F^IR^I^70050^^^^^LS
+"IX",70050,70050,"D",1)
+S ^C0E(70050,"D",$E(X,1,60),DA)=""
+"IX",70050,70050,"D",2)
+K ^C0E(70050,"D",$E(X,1,60),DA)
+"IX",70050,70050,"D",2.5)
+K ^C0E(70050,"D")
+"IX",70050,70050,"D",11.1,0)
+^.114IA^1^1
+"IX",70050,70050,"D",11.1,1,0)
+1^F^70050^.02^60^1^F
+"IX",70050,70050,"D",11.1,1,3)
+
+"KRN",.401,1794,-1)
+0^1
+"KRN",.401,1794,0)
+C0E SCREENMAN RECORDS^3100302.0014^@^70050^^@^3100302
+"KRN",.401,1794,2,0)
+^.4014^1^1
+"KRN",.401,1794,2,1,0)
+70050^.02^EWD APPLICATION^^^^^^^4
+"KRN",.401,1794,2,1,"F")
+screenmamz^screenman
+"KRN",.401,1794,2,1,"GET")
+S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
+"KRN",.401,1794,2,1,"QCON")
+I DISX(1)="screenman"
+"KRN",.401,1794,2,1,"T")
+screenman^screenman
+"KRN",.401,1794,2,1,"TXT")
+EWD APPLICATION equals screenman
+"KRN",.401,1794,2,"B",70050,1)
+
+"MBREQ")
+0
+"ORD",6,.401)
+.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,"",%)
+"ORD",6,.401,0)
+SORT TEMPLATE
+"QUES","XPF1",0)
+Y
+"QUES","XPF1","??")
+^D REP^XPDH
+"QUES","XPF1","A")
+Shall I write over your |FLAG| File
+"QUES","XPF1","B")
+YES
+"QUES","XPF1","M")
+D XPF1^XPDIQ
+"QUES","XPF2",0)
+Y
+"QUES","XPF2","??")
+^D DTA^XPDH
+"QUES","XPF2","A")
+Want my data |FLAG| yours
+"QUES","XPF2","B")
+YES
+"QUES","XPF2","M")
+D XPF2^XPDIQ
+"QUES","XPI1",0)
+YO
+"QUES","XPI1","??")
+^D INHIBIT^XPDH
+"QUES","XPI1","A")
+Want KIDS to INHIBIT LOGONs during the install
+"QUES","XPI1","B")
+NO
+"QUES","XPI1","M")
+D XPI1^XPDIQ
+"QUES","XPM1",0)
+PO^VA(200,:EM
+"QUES","XPM1","??")
+^D MG^XPDH
+"QUES","XPM1","A")
+Enter the Coordinator for Mail Group '|FLAG|'
+"QUES","XPM1","B")
+
+"QUES","XPM1","M")
+D XPM1^XPDIQ
+"QUES","XPO1",0)
+Y
+"QUES","XPO1","??")
+^D MENU^XPDH
+"QUES","XPO1","A")
+Want KIDS to Rebuild Menu Trees Upon Completion of Install
+"QUES","XPO1","B")
+NO
+"QUES","XPO1","M")
+D XPO1^XPDIQ
+"QUES","XPZ1",0)
+Y
+"QUES","XPZ1","??")
+^D OPT^XPDH
+"QUES","XPZ1","A")
+Want to DISABLE Scheduled Options, Menu Options, and Protocols
+"QUES","XPZ1","B")
+NO
+"QUES","XPZ1","M")
+D XPZ1^XPDIQ
+"QUES","XPZ2",0)
+Y
+"QUES","XPZ2","??")
+^D RTN^XPDH
+"QUES","XPZ2","A")
+Want to MOVE routines to other CPUs
+"QUES","XPZ2","B")
+NO
+"QUES","XPZ2","M")
+D XPZ2^XPDIQ
+"RTN")
+8
+"RTN","C0CEX")
+0^2^B811998
+"RTN","C0CEX",1,0)
+C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
+"RTN","C0CEX",2,0)
+ ;;1.0;C0C;;Mar 1, 2010 ;Build 5
+"RTN","C0CEX",3,0)
+SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+"RTN","C0CEX",4,0)
+ ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
+"RTN","C0CEX",5,0)
+ N ZR
+"RTN","C0CEX",6,0)
+ I $G(ZAPP)="" Q ;
+"RTN","C0CEX",7,0)
+ I $G(ZPAGE)="" Q ;
+"RTN","C0CEX",8,0)
+ I $G(ZROUTINE)="" Q ;
+"RTN","C0CEX",9,0)
+ S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
+"RTN","C0CEX",10,0)
+ S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
+"RTN","C0CEX",11,0)
+ Q
+"RTN","C0CEX",12,0)
+ ;
+"RTN","C0CEX",13,0)
+KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+"RTN","C0CEX",14,0)
+ ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
+"RTN","C0CEX",15,0)
+ I $G(ZAPP)="" Q ;
+"RTN","C0CEX",16,0)
+ I $G(ZPAGE)="" Q ;
+"RTN","C0CEX",17,0)
+ K ^zewd("routineMap",ZAPP,ZPAGE)
+"RTN","C0CEX",18,0)
+ Q
+"RTN","C0CROB")
+0^1^B1053192
+"RTN","C0CROB",1,0)
+ ;;C0CROB
+"RTN","C0CROB",2,0)
+ ;;;;;;Build 5
+"RTN","C0CROB",3,0)
+TEST1(sessid) ;
+"RTN","C0CROB",4,0)
+ D setSessionValue^%zewdAPI("name","PROVIDER,TWOHUNDREDNINETYSIX",sessid)
+"RTN","C0CROB",5,0)
+ S TITLE=$G(^C0CROB("TITLE"))
+"RTN","C0CROB",6,0)
+ I TITLE="" S TITLE="Scholar Extraordinaire"
+"RTN","C0CROB",7,0)
+ D setSessionValue^%zewdAPI("TITLE",TITLE,sessid)
+"RTN","C0CROB",8,0)
+ Q ""
+"RTN","C0CROB",9,0)
+SAVEFORM(sessid) ;
+"RTN","C0CROB",10,0)
+ S TITLE=$$getSessionValue^%zewdAPI("TITLE",sessid)
+"RTN","C0CROB",11,0)
+ I TITLE="" Q "You must enter a title"
+"RTN","C0CROB",12,0)
+ S ^C0CROB("TITLE")=TITLE
+"RTN","C0CROB",13,0)
+ Q ""
+"RTN","C0CROB",14,0)
+VALIDATETITLE(value) ;
+"RTN","C0CROB",15,0)
+ I value="" Q "alert('you must enter a title');"
+"RTN","C0CROB",16,0)
+ Q ""
+"RTN","C0CROB",17,0)
+ ;
+"RTN","C0E0000A")
+0^3^B14799604
+"RTN","C0E0000A",1,0)
+ ;GT.M version of page ewdAjaxError (screenman application)
+"RTN","C0E0000A",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 5
+"RTN","C0E0000A",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000A",4,0)
+ QUIT
+"RTN","C0E0000A",5,0)
+ ;
+"RTN","C0E0000A",6,0)
+run ;
+"RTN","C0E0000A",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000A",8,0)
+ s ok=$$pre()
+"RTN","C0E0000A",9,0)
+ i ok d body
+"RTN","C0E0000A",10,0)
+ QUIT
+"RTN","C0E0000A",11,0)
+ ;
+"RTN","C0E0000A",12,0)
+pre() ;
+"RTN","C0E0000A",13,0)
+ ;
+"RTN","C0E0000A",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000A",15,0)
+ ;
+"RTN","C0E0000A",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000A",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0E0000A",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000A",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0000A",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000A",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000A",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000A",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000A",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000A",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000A",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000A",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxError"
+"RTN","C0E0000A",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000A",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000A",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0000A",31,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000A",32,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000A",33,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000A",34,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000A",35,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000A",36,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000A",37,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000A",38,0)
+ . n errorPage
+"RTN","C0E0000A",39,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000A",40,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000A",41,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000A",42,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000A",43,0)
+ s stop=0
+"RTN","C0E0000A",44,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000A",45,0)
+ . n nextpage
+"RTN","C0E0000A",46,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000A",47,0)
+ . i nextpage'="" d
+"RTN","C0E0000A",48,0)
+ . . n x
+"RTN","C0E0000A",49,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000A",50,0)
+ . . s stop=1
+"RTN","C0E0000A",51,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000A",52,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000A",53,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000A",54,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000A",55,0)
+ s ctype="text/html"
+"RTN","C0E0000A",56,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000A",57,0)
+ i $d(headers) d
+"RTN","C0E0000A",58,0)
+ . n lcname,name
+"RTN","C0E0000A",59,0)
+ . s name=""
+"RTN","C0E0000A",60,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000A",61,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000A",62,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000A",63,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000A",64,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000A",65,0)
+ w $c(13,10)
+"RTN","C0E0000A",66,0)
+ QUIT 1
+"RTN","C0E0000A",67,0)
+ ;
+"RTN","C0E0000A",68,0)
+body ;
+"RTN","C0E0000A",69,0)
+ w ""_$c(13,10)
+"RTN","C0E0000A",70,0)
+ w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
+"RTN","C0E0000A",71,0)
+ w ""_$c(13,10)
+"RTN","C0E0000A",72,0)
+ QUIT
+"RTN","C0E0000E")
+0^5^B27501668
+"RTN","C0E0000E",1,0)
+ ;GT.M version of page ewdError (screenman application)
+"RTN","C0E0000E",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 5
+"RTN","C0E0000E",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000E",4,0)
+ QUIT
+"RTN","C0E0000E",5,0)
+ ;
+"RTN","C0E0000E",6,0)
+run ;
+"RTN","C0E0000E",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000E",8,0)
+ s ok=$$pre()
+"RTN","C0E0000E",9,0)
+ i ok d body
+"RTN","C0E0000E",10,0)
+ QUIT
+"RTN","C0E0000E",11,0)
+ ;
+"RTN","C0E0000E",12,0)
+pre() ;
+"RTN","C0E0000E",13,0)
+ ;
+"RTN","C0E0000E",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000E",15,0)
+ ;
+"RTN","C0E0000E",16,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000E",17,0)
+ w "Content-type: text/html"_$c(13,10,13,10)
+"RTN","C0E0000E",18,0)
+ QUIT 1
+"RTN","C0E0000E",19,0)
+ ;
+"RTN","C0E0000E",20,0)
+body ;
+"RTN","C0E0000E",21,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",22,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",23,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",24,0)
+ w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
+"RTN","C0E0000E",25,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",43,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",44,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",45,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",46,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",47,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",48,0)
+ w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
+"RTN","C0E0000E",49,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",50,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",51,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",52,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",53,0)
+ w "
An Error has occurred
"_$c(13,10)
+"RTN","C0E0000E",54,0)
+ w " "_$c(13,10)
+"RTN","C0E0000E",55,0)
+ w "
"_$g(%KEY("error"))_"
"_$c(13,10)
+"RTN","C0E0000E",56,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",57,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",58,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",59,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",60,0)
+ w " "_$c(13,10)
+"RTN","C0E0000E",63,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",64,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",65,0)
+ QUIT
+"RTN","C0E0000F")
+0^4^B32569634
+"RTN","C0E0000F",1,0)
+ ;GT.M version of page ewdAjaxErrorRedirect (screenman application)
+"RTN","C0E0000F",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 5
+"RTN","C0E0000F",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000F",4,0)
+ QUIT
+"RTN","C0E0000F",5,0)
+ ;
+"RTN","C0E0000F",6,0)
+run ;
+"RTN","C0E0000F",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000F",8,0)
+ s ok=$$pre()
+"RTN","C0E0000F",9,0)
+ i ok d body
+"RTN","C0E0000F",10,0)
+ QUIT
+"RTN","C0E0000F",11,0)
+ ;
+"RTN","C0E0000F",12,0)
+pre() ;
+"RTN","C0E0000F",13,0)
+ ;
+"RTN","C0E0000F",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000F",15,0)
+ ;
+"RTN","C0E0000F",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000F",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0000F",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000F",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0000F",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000F",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000F",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000F",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000F",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000F",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000F",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000F",27,0)
+ s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
+"RTN","C0E0000F",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000F",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000F",30,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0E0000F",31,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0E0000F",32,0)
+ s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
+"RTN","C0E0000F",33,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000F",34,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000F",35,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000F",36,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000F",37,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000F",38,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000F",39,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000F",40,0)
+ . n errorPage
+"RTN","C0E0000F",41,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000F",42,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000F",43,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000F",44,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000F",45,0)
+ s stop=0
+"RTN","C0E0000F",46,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000F",47,0)
+ . n nextpage
+"RTN","C0E0000F",48,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000F",49,0)
+ . i nextpage'="" d
+"RTN","C0E0000F",50,0)
+ . . n x
+"RTN","C0E0000F",51,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000F",52,0)
+ . . s stop=1
+"RTN","C0E0000F",53,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000F",54,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000F",55,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000F",56,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000F",57,0)
+ s ctype="text/html"
+"RTN","C0E0000F",58,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000F",59,0)
+ i $d(headers) d
+"RTN","C0E0000F",60,0)
+ . n lcname,name
+"RTN","C0E0000F",61,0)
+ . s name=""
+"RTN","C0E0000F",62,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000F",63,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000F",64,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000F",65,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000F",66,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000F",67,0)
+ w $c(13,10)
+"RTN","C0E0000F",68,0)
+ QUIT 1
+"RTN","C0E0000F",69,0)
+ ;
+"RTN","C0E0000F",70,0)
+body ;
+"RTN","C0E0000F",71,0)
+ if ($g(Error)="") d
+"RTN","C0E0000F",72,0)
+ .w " "_$c(13,10)
+"RTN","C0E0000F",73,0)
+ .w "
"_$c(13,10)
+"RTN","C0E0000F",74,0)
+ .w "
"_$c(13,10)
+"RTN","C0E0000F",75,0)
+ .w " "_$c(13,10)
+"RTN","C0E0000F",76,0)
+ .
+"RTN","C0E0000F",77,0)
+ w ""_$c(13,10)
+"RTN","C0E0000F",78,0)
+ 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)
+"RTN","C0E0000F",79,0)
+ s id=""
+"RTN","C0E0000F",80,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0E0000F",81,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0E0000F",82,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0E0000F",83,0)
+ s id=""
+"RTN","C0E0000F",84,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0E0000F",85,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0E0000F",86,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0E0000F",87,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0E0000F",88,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0E0000F",89,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0E0000F",90,0)
+ w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
+"RTN","C0E0000F",91,0)
+ w ""_$c(13,10)
+"RTN","C0E0000F",92,0)
+ QUIT
+"RTN","C0E0000R")
+0^6^B66670061
+"RTN","C0E0000R",1,0)
+ ;GT.M version of page ewdErrorRedirect (screenman application)
+"RTN","C0E0000R",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 5
+"RTN","C0E0000R",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000R",4,0)
+ QUIT
+"RTN","C0E0000R",5,0)
+ ;
+"RTN","C0E0000R",6,0)
+run ;
+"RTN","C0E0000R",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000R",8,0)
+ s ok=$$pre()
+"RTN","C0E0000R",9,0)
+ i ok d body
+"RTN","C0E0000R",10,0)
+ QUIT
+"RTN","C0E0000R",11,0)
+ ;
+"RTN","C0E0000R",12,0)
+pre() ;
+"RTN","C0E0000R",13,0)
+ ;
+"RTN","C0E0000R",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000R",15,0)
+ ;
+"RTN","C0E0000R",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000R",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0000R",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000R",19,0)
+ s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
+"RTN","C0E0000R",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000R",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000R",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000R",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000R",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000R",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000R",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000R",27,0)
+ s sessionArray("ewd_pageName")="ewdErrorRedirect"
+"RTN","C0E0000R",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000R",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000R",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0000R",31,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",32,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",33,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0E0000R",34,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",35,0)
+ s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000R",36,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000R",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000R",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000R",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000R",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000R",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000R",42,0)
+ . n errorPage
+"RTN","C0E0000R",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000R",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000R",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000R",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000R",47,0)
+ s stop=0
+"RTN","C0E0000R",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000R",49,0)
+ . n nextpage
+"RTN","C0E0000R",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000R",51,0)
+ . i nextpage'="" d
+"RTN","C0E0000R",52,0)
+ . . n x
+"RTN","C0E0000R",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000R",54,0)
+ . . s stop=1
+"RTN","C0E0000R",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000R",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000R",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000R",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000R",59,0)
+ s ctype="text/html"
+"RTN","C0E0000R",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000R",61,0)
+ i $d(headers) d
+"RTN","C0E0000R",62,0)
+ . n lcname,name
+"RTN","C0E0000R",63,0)
+ . s name=""
+"RTN","C0E0000R",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000R",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000R",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000R",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000R",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000R",69,0)
+ w $c(13,10)
+"RTN","C0E0000R",70,0)
+ QUIT 1
+"RTN","C0E0000R",71,0)
+ ;
+"RTN","C0E0000R",72,0)
+body ;
+"RTN","C0E0000R",73,0)
+ w ""_$c(13,10)
+"RTN","C0E0000R",74,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",75,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",76,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",79,0)
+ w "Ajax Error Redirect page"_""
+"RTN","C0E0000R",80,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",81,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",82,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",83,0)
+ w "Please wait...."_""
+"RTN","C0E0000R",84,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",85,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",86,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",133,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",134,0)
+ w ""_$c(13,10)
+"RTN","C0E0000R",135,0)
+ QUIT
+"RTN","C0E0001I")
+0^7^B20127196
+"RTN","C0E0001I",1,0)
+ ;GT.M version of page index (screenman application)
+"RTN","C0E0001I",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 5
+"RTN","C0E0001I",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0001I",4,0)
+ QUIT
+"RTN","C0E0001I",5,0)
+ ;
+"RTN","C0E0001I",6,0)
+run ;
+"RTN","C0E0001I",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0001I",8,0)
+ s ok=$$pre()
+"RTN","C0E0001I",9,0)
+ i ok d body
+"RTN","C0E0001I",10,0)
+ QUIT
+"RTN","C0E0001I",11,0)
+ ;
+"RTN","C0E0001I",12,0)
+pre() ;
+"RTN","C0E0001I",13,0)
+ ;
+"RTN","C0E0001I",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0001I",15,0)
+ ;
+"RTN","C0E0001I",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0001I",17,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0E0001I",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0001I",19,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0001I",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0001I",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0001I",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0001I",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0001I",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0001I",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0001I",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0001I",27,0)
+ s sessionArray("ewd_pageName")="index"
+"RTN","C0E0001I",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0001I",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0001I",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0001I",31,0)
+ s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
+"RTN","C0E0001I",32,0)
+ s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0001I",33,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0001I",34,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0001I",35,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0001I",36,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0001I",37,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0001I",38,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0001I",39,0)
+ . n errorPage
+"RTN","C0E0001I",40,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0001I",41,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0001I",42,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0001I",43,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0001I",44,0)
+ s stop=0
+"RTN","C0E0001I",45,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0001I",46,0)
+ . n nextpage
+"RTN","C0E0001I",47,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0001I",48,0)
+ . i nextpage'="" d
+"RTN","C0E0001I",49,0)
+ . . n x
+"RTN","C0E0001I",50,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0001I",51,0)
+ . . s stop=1
+"RTN","C0E0001I",52,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0001I",53,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0001I",54,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0001I",55,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0001I",56,0)
+ s ctype="text/html"
+"RTN","C0E0001I",57,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0001I",58,0)
+ i $d(headers) d
+"RTN","C0E0001I",59,0)
+ . n lcname,name
+"RTN","C0E0001I",60,0)
+ . s name=""
+"RTN","C0E0001I",61,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0001I",62,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0001I",63,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0001I",64,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0001I",65,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0001I",66,0)
+ w $c(13,10)
+"RTN","C0E0001I",67,0)
+ QUIT 1
+"RTN","C0E0001I",68,0)
+ ;
+"RTN","C0E0001I",69,0)
+body ;
+"RTN","C0E0001I",70,0)
+ w ""_$c(13,10)
+"RTN","C0E0001I",71,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",72,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",73,0)
+ w "Screenman Menu"_""
+"RTN","C0E0001I",74,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",75,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",76,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",77,0)
+ w "Hello World"_""
+"RTN","C0E0001I",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",79,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",80,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",81,0)
+ w "test1 page"_""
+"RTN","C0E0001I",82,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",83,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",84,0)
+ w ""_$c(13,10)
+"RTN","C0E0001I",85,0)
+ QUIT
+"RTN","C0E0002")
+0^8^B92918287
+"RTN","C0E0002",1,0)
+ ;GT.M version of page test1 (screenman application)
+"RTN","C0E0002",2,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 5
+"RTN","C0E0002",3,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0002",4,0)
+ QUIT
+"RTN","C0E0002",5,0)
+ ;
+"RTN","C0E0002",6,0)
+run ;
+"RTN","C0E0002",7,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0002",8,0)
+ s ok=$$pre()
+"RTN","C0E0002",9,0)
+ i ok d body
+"RTN","C0E0002",10,0)
+ QUIT
+"RTN","C0E0002",11,0)
+ ;
+"RTN","C0E0002",12,0)
+pre() ;
+"RTN","C0E0002",13,0)
+ ;
+"RTN","C0E0002",14,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0002",15,0)
+ ;
+"RTN","C0E0002",16,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0002",17,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0002",18,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0002",19,0)
+ s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
+"RTN","C0E0002",20,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0002",21,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0002",22,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0002",23,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0002",24,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0002",25,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0002",26,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0002",27,0)
+ s sessionArray("ewd_pageName")="test1"
+"RTN","C0E0002",28,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0002",29,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0002",30,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0002",31,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0E0002",32,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0E0002",33,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0E0002",34,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0E0002",35,0)
+ s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
+"RTN","C0E0002",36,0)
+ s formInfo="SSN|text`TITLE|text`ewd_pressed|hidden`submit|submit`"
+"RTN","C0E0002",37,0)
+ d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
+"RTN","C0E0002",38,0)
+ s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0002",39,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0002",40,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0002",41,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0002",42,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0002",43,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0002",44,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0002",45,0)
+ . n errorPage
+"RTN","C0E0002",46,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0002",47,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0002",48,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0002",49,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0002",50,0)
+ s stop=0
+"RTN","C0E0002",51,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0002",52,0)
+ . n nextpage
+"RTN","C0E0002",53,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0002",54,0)
+ . i nextpage'="" d
+"RTN","C0E0002",55,0)
+ . . n x
+"RTN","C0E0002",56,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0002",57,0)
+ . . s stop=1
+"RTN","C0E0002",58,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0002",59,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0002",60,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0002",61,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0002",62,0)
+ s ctype="text/html"
+"RTN","C0E0002",63,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0002",64,0)
+ i $d(headers) d
+"RTN","C0E0002",65,0)
+ . n lcname,name
+"RTN","C0E0002",66,0)
+ . s name=""
+"RTN","C0E0002",67,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0002",68,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0002",69,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0002",70,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0002",71,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0002",72,0)
+ w $c(13,10)
+"RTN","C0E0002",73,0)
+ QUIT 1
+"RTN","C0E0002",74,0)
+ ;
+"RTN","C0E0002",75,0)
+body ;
+"RTN","C0E0002",76,0)
+ w ""_$c(13,10)
+"RTN","C0E0002",77,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",79,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",81,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",88,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",89,0)
+ w "Screenman Test"_""
+"RTN","C0E0002",90,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",91,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",138,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",139,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",140,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",160,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",161,0)
+ w ""_$c(13,10)
+"RTN","C0E0002",162,0)
+ QUIT
+"SEC","^DIC",70050,70050,0,"AUDIT")
+@
+"SEC","^DIC",70050,70050,0,"DD")
+@
+"SEC","^DIC",70050,70050,0,"DEL")
+@
+"SEC","^DIC",70050,70050,0,"LAYGO")
+@
+"SEC","^DIC",70050,70050,0,"RD")
+@
+"SEC","^DIC",70050,70050,0,"WR")
+@
+"VER")
+8.0^22.0
+"^DD",70050,70050,0)
+FIELD^^1^5
+"^DD",70050,70050,0,"DDA")
+N
+"^DD",70050,70050,0,"DT")
+3100301
+"^DD",70050,70050,0,"ID",.02)
+W " ",$P(^(0),U,2)
+"^DD",70050,70050,0,"ID",.03)
+W " ",$P(^(0),U,3)
+"^DD",70050,70050,0,"IX","B",70050,.01)
+
+"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
+
+"^DD",70050,70050,.01,0)
+EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
+"^DD",70050,70050,.01,1,0)
+^.1
+"^DD",70050,70050,.01,1,1,0)
+70050^B
+"^DD",70050,70050,.01,1,1,1)
+S ^C0E(70050,"B",$E(X,1,30),DA)=""
+"^DD",70050,70050,.01,1,1,2)
+K ^C0E(70050,"B",$E(X,1,30),DA)
+"^DD",70050,70050,.01,3)
+NAMESPACED EWD COMPILED PAGE
+"^DD",70050,70050,.01,"DT")
+3100301
+"^DD",70050,70050,.02,0)
+EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
+"^DD",70050,70050,.02,3)
+NAME OF THE EWD APPLICATION
+"^DD",70050,70050,.02,"DT")
+3100303
+"^DD",70050,70050,.03,0)
+EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
+"^DD",70050,70050,.03,3)
+EWD PAGE NAME
+"^DD",70050,70050,.03,"DT")
+3100301
+"^DD",70050,70050,1,0)
+DESCRIPTION^70050.01^^2;0
+"^DD",70050,70050,2,0)
+EWD SOURCE^70050.02^^1;0
+"^DD",70050,70050.01,0)
+DESCRIPTION SUB-FIELD^^.01^1
+"^DD",70050,70050.01,0,"DT")
+3100301
+"^DD",70050,70050.01,0,"NM","DESCRIPTION")
+
+"^DD",70050,70050.01,0,"UP")
+70050
+"^DD",70050,70050.01,.01,0)
+DESCRIPTION^Wx^^0;1
+"^DD",70050,70050.01,.01,3)
+DESCRIPTION OF THE EWD PAGE
+"^DD",70050,70050.01,.01,"DT")
+3100301
+"^DD",70050,70050.02,0)
+EWD SOURCE SUB-FIELD^^.01^1
+"^DD",70050,70050.02,0,"DT")
+3100301
+"^DD",70050,70050.02,0,"NM","EWD SOURCE")
+
+"^DD",70050,70050.02,0,"UP")
+70050
+"^DD",70050,70050.02,.01,0)
+EWD SOURCE^WLx^^0;1
+"^DD",70050,70050.02,.01,3)
+EWD PAGE SOURCE CODE
+"^DD",70050,70050.02,.01,"DT")
+3100301
+"^DIC",70050,70050,0)
+C0EWD ROUTINE MAP^70050
+"^DIC",70050,70050,0,"GL")
+^C0E(70050,
+"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
+
+**END**
+**END**
Index: EWD/archive/C0E0_1_0_0_T5.KID
===================================================================
--- EWD/archive/C0E0_1_0_0_T5.KID (revision 1265)
+++ EWD/archive/C0E0_1_0_0_T5.KID (revision 1265)
@@ -0,0 +1,1812 @@
+KIDS Distribution saved on Mar 06, 2010@13:34:24
+added first two lines to generated routines
+**KIDS**:C0E0*1.0*0^
+
+**INSTALL NAME**
+C0E0*1.0*0
+"BLD",6969,0)
+C0E0*1.0*0^^0^3100306^n
+"BLD",6969,4,0)
+^9.64PA^70050^1
+"BLD",6969,4,70050,0)
+70050
+"BLD",6969,4,70050,222)
+y^y^f^^y^^y^o^n
+"BLD",6969,4,70050,224)
+I $$GET1^DIQ(70050,Y_",",.02)="screenman"
+"BLD",6969,4,"B",70050,70050)
+
+"BLD",6969,6.3)
+6
+"BLD",6969,"KRN",0)
+^9.67PA^8989.52^19
+"BLD",6969,"KRN",.4,0)
+.4
+"BLD",6969,"KRN",.401,0)
+.401
+"BLD",6969,"KRN",.401,"NM",0)
+^9.68A^1^1
+"BLD",6969,"KRN",.401,"NM",1,0)
+C0E SCREENMAN RECORDS FILE #70050^70050^0
+"BLD",6969,"KRN",.401,"NM","B","C0E SCREENMAN RECORDS FILE #70050",1)
+
+"BLD",6969,"KRN",.402,0)
+.402
+"BLD",6969,"KRN",.403,0)
+.403
+"BLD",6969,"KRN",.5,0)
+.5
+"BLD",6969,"KRN",.84,0)
+.84
+"BLD",6969,"KRN",3.6,0)
+3.6
+"BLD",6969,"KRN",3.8,0)
+3.8
+"BLD",6969,"KRN",9.2,0)
+9.2
+"BLD",6969,"KRN",9.8,0)
+9.8
+"BLD",6969,"KRN",9.8,"NM",0)
+^9.68A^8^8
+"BLD",6969,"KRN",9.8,"NM",1,0)
+C0CROB^^0^B1053192
+"BLD",6969,"KRN",9.8,"NM",2,0)
+C0CEX^^0^B811998
+"BLD",6969,"KRN",9.8,"NM",3,0)
+C0E0000A^^0^B15300816
+"BLD",6969,"KRN",9.8,"NM",4,0)
+C0E0000F^^0^B33308637
+"BLD",6969,"KRN",9.8,"NM",5,0)
+C0E0000E^^0^B28122696
+"BLD",6969,"KRN",9.8,"NM",6,0)
+C0E0000R^^0^B67797780
+"BLD",6969,"KRN",9.8,"NM",7,0)
+C0E0001I^^0^B20709402
+"BLD",6969,"KRN",9.8,"NM",8,0)
+C0E0002^^0^B94303815
+"BLD",6969,"KRN",9.8,"NM","B","C0CEX",2)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0CROB",1)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000A",3)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000E",5)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000F",4)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0000R",6)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0001I",7)
+
+"BLD",6969,"KRN",9.8,"NM","B","C0E0002",8)
+
+"BLD",6969,"KRN",19,0)
+19
+"BLD",6969,"KRN",19.1,0)
+19.1
+"BLD",6969,"KRN",101,0)
+101
+"BLD",6969,"KRN",409.61,0)
+409.61
+"BLD",6969,"KRN",771,0)
+771
+"BLD",6969,"KRN",870,0)
+870
+"BLD",6969,"KRN",8989.51,0)
+8989.51
+"BLD",6969,"KRN",8989.52,0)
+8989.52
+"BLD",6969,"KRN",8994,0)
+8994
+"BLD",6969,"KRN","B",.4,.4)
+
+"BLD",6969,"KRN","B",.401,.401)
+
+"BLD",6969,"KRN","B",.402,.402)
+
+"BLD",6969,"KRN","B",.403,.403)
+
+"BLD",6969,"KRN","B",.5,.5)
+
+"BLD",6969,"KRN","B",.84,.84)
+
+"BLD",6969,"KRN","B",3.6,3.6)
+
+"BLD",6969,"KRN","B",3.8,3.8)
+
+"BLD",6969,"KRN","B",9.2,9.2)
+
+"BLD",6969,"KRN","B",9.8,9.8)
+
+"BLD",6969,"KRN","B",19,19)
+
+"BLD",6969,"KRN","B",19.1,19.1)
+
+"BLD",6969,"KRN","B",101,101)
+
+"BLD",6969,"KRN","B",409.61,409.61)
+
+"BLD",6969,"KRN","B",771,771)
+
+"BLD",6969,"KRN","B",870,870)
+
+"BLD",6969,"KRN","B",8989.51,8989.51)
+
+"BLD",6969,"KRN","B",8989.52,8989.52)
+
+"BLD",6969,"KRN","B",8994,8994)
+
+"BLD",6969,"QUES",0)
+^9.62^^
+"DATA",70050,12,0)
+23407^screenman^ewdajaxerror
+"DATA",70050,13,0)
+23408^screenman^ewdajaxerrorredirect
+"DATA",70050,14,0)
+23409^screenman^ewderror
+"DATA",70050,15,0)
+23410^screenman^ewderrorredirect
+"DATA",70050,16,0)
+23411^screenman^index
+"DATA",70050,16,1,0)
+^^10^10^3100301^
+"DATA",70050,16,1,1,0)
+
+"DATA",70050,16,1,2,0)
+
+"DATA",70050,16,1,3,0)
+
+"DATA",70050,16,1,4,0)
+Screenman Menu
+"DATA",70050,16,1,5,0)
+
+"DATA",70050,16,1,6,0)
+
+"DATA",70050,16,1,7,0)
+Hello World
+"DATA",70050,16,1,8,0)
+test1 page
+"DATA",70050,16,1,9,0)
+
+"DATA",70050,16,1,10,0)
+
+"DATA",70050,17,0)
+23412^screenman^test1
+"DATA",70050,17,1,0)
+^^25^25^3100302^
+"DATA",70050,17,1,1,0)
+
+"DATA",70050,17,1,2,0)
+
+"DATA",70050,17,1,3,0)
+
+"DATA",70050,17,1,4,0)
+
+"DATA",70050,17,1,9,0)
+Screenman Test
+"DATA",70050,17,1,10,0)
+
+"DATA",70050,17,1,11,0)
+
+"DATA",70050,17,1,12,0)
+
+"DATA",70050,17,1,24,0)
+
+"DATA",70050,17,1,25,0)
+
+"FIA",70050)
+C0EWD ROUTINE MAP
+"FIA",70050,0)
+^C0E(70050,
+"FIA",70050,0,0)
+70050PI
+"FIA",70050,0,1)
+y^y^f^^y^^y^o^n
+"FIA",70050,0,10)
+
+"FIA",70050,0,11)
+I $$GET1^DIQ(70050,Y_",",.02)="screenman"
+"FIA",70050,0,"RLRO")
+
+"FIA",70050,70050)
+0
+"FIA",70050,70050.01)
+0
+"FIA",70050,70050.02)
+0
+"IX",70050,70050,"AZEWD",0)
+70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
+"IX",70050,70050,"AZEWD",1)
+D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",2)
+D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
+"IX",70050,70050,"AZEWD",11.1,0)
+^.114IA^3^3
+"IX",70050,70050,"AZEWD",11.1,1,0)
+1^F^70050^.01^^^F
+"IX",70050,70050,"AZEWD",11.1,2,0)
+2^F^70050^.02^^^F
+"IX",70050,70050,"AZEWD",11.1,3,0)
+3^F^70050^.03^^^F
+"IX",70050,70050,"C",0)
+70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
+"IX",70050,70050,"C",1)
+S ^C0E(70050,"C",$E(X,1,60),DA)=""
+"IX",70050,70050,"C",2)
+K ^C0E(70050,"C",$E(X,1,60),DA)
+"IX",70050,70050,"C",2.5)
+K ^C0E(70050,"C")
+"IX",70050,70050,"C",11.1,0)
+^.114IA^1^1
+"IX",70050,70050,"C",11.1,1,0)
+1^F^70050^.03^60^1^F
+"IX",70050,70050,"C",11.1,1,3)
+
+"IX",70050,70050,"D",0)
+70050^D^REGULAR INDEX OF THE APPLICATION INDEX^R^^F^IR^I^70050^^^^^LS
+"IX",70050,70050,"D",1)
+S ^C0E(70050,"D",$E(X,1,60),DA)=""
+"IX",70050,70050,"D",2)
+K ^C0E(70050,"D",$E(X,1,60),DA)
+"IX",70050,70050,"D",2.5)
+K ^C0E(70050,"D")
+"IX",70050,70050,"D",11.1,0)
+^.114IA^1^1
+"IX",70050,70050,"D",11.1,1,0)
+1^F^70050^.02^60^1^F
+"IX",70050,70050,"D",11.1,1,3)
+
+"KRN",.401,1794,-1)
+0^1
+"KRN",.401,1794,0)
+C0E SCREENMAN RECORDS^3100302.0014^@^70050^^@^3100302
+"KRN",.401,1794,2,0)
+^.4014^1^1
+"KRN",.401,1794,2,1,0)
+70050^.02^EWD APPLICATION^^^^^^^4
+"KRN",.401,1794,2,1,"F")
+screenmamz^screenman
+"KRN",.401,1794,2,1,"GET")
+S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
+"KRN",.401,1794,2,1,"QCON")
+I DISX(1)="screenman"
+"KRN",.401,1794,2,1,"T")
+screenman^screenman
+"KRN",.401,1794,2,1,"TXT")
+EWD APPLICATION equals screenman
+"KRN",.401,1794,2,"B",70050,1)
+
+"MBREQ")
+0
+"ORD",6,.401)
+.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,"",%)
+"ORD",6,.401,0)
+SORT TEMPLATE
+"QUES","XPF1",0)
+Y
+"QUES","XPF1","??")
+^D REP^XPDH
+"QUES","XPF1","A")
+Shall I write over your |FLAG| File
+"QUES","XPF1","B")
+YES
+"QUES","XPF1","M")
+D XPF1^XPDIQ
+"QUES","XPF2",0)
+Y
+"QUES","XPF2","??")
+^D DTA^XPDH
+"QUES","XPF2","A")
+Want my data |FLAG| yours
+"QUES","XPF2","B")
+YES
+"QUES","XPF2","M")
+D XPF2^XPDIQ
+"QUES","XPI1",0)
+YO
+"QUES","XPI1","??")
+^D INHIBIT^XPDH
+"QUES","XPI1","A")
+Want KIDS to INHIBIT LOGONs during the install
+"QUES","XPI1","B")
+NO
+"QUES","XPI1","M")
+D XPI1^XPDIQ
+"QUES","XPM1",0)
+PO^VA(200,:EM
+"QUES","XPM1","??")
+^D MG^XPDH
+"QUES","XPM1","A")
+Enter the Coordinator for Mail Group '|FLAG|'
+"QUES","XPM1","B")
+
+"QUES","XPM1","M")
+D XPM1^XPDIQ
+"QUES","XPO1",0)
+Y
+"QUES","XPO1","??")
+^D MENU^XPDH
+"QUES","XPO1","A")
+Want KIDS to Rebuild Menu Trees Upon Completion of Install
+"QUES","XPO1","B")
+NO
+"QUES","XPO1","M")
+D XPO1^XPDIQ
+"QUES","XPZ1",0)
+Y
+"QUES","XPZ1","??")
+^D OPT^XPDH
+"QUES","XPZ1","A")
+Want to DISABLE Scheduled Options, Menu Options, and Protocols
+"QUES","XPZ1","B")
+NO
+"QUES","XPZ1","M")
+D XPZ1^XPDIQ
+"QUES","XPZ2",0)
+Y
+"QUES","XPZ2","??")
+^D RTN^XPDH
+"QUES","XPZ2","A")
+Want to MOVE routines to other CPUs
+"QUES","XPZ2","B")
+NO
+"QUES","XPZ2","M")
+D XPZ2^XPDIQ
+"RTN")
+8
+"RTN","C0CEX")
+0^2^B811998
+"RTN","C0CEX",1,0)
+C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
+"RTN","C0CEX",2,0)
+ ;;1.0;C0C;;Mar 1, 2010 ;Build 6
+"RTN","C0CEX",3,0)
+SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+"RTN","C0CEX",4,0)
+ ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
+"RTN","C0CEX",5,0)
+ N ZR
+"RTN","C0CEX",6,0)
+ I $G(ZAPP)="" Q ;
+"RTN","C0CEX",7,0)
+ I $G(ZPAGE)="" Q ;
+"RTN","C0CEX",8,0)
+ I $G(ZROUTINE)="" Q ;
+"RTN","C0CEX",9,0)
+ S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
+"RTN","C0CEX",10,0)
+ S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
+"RTN","C0CEX",11,0)
+ Q
+"RTN","C0CEX",12,0)
+ ;
+"RTN","C0CEX",13,0)
+KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
+"RTN","C0CEX",14,0)
+ ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
+"RTN","C0CEX",15,0)
+ I $G(ZAPP)="" Q ;
+"RTN","C0CEX",16,0)
+ I $G(ZPAGE)="" Q ;
+"RTN","C0CEX",17,0)
+ K ^zewd("routineMap",ZAPP,ZPAGE)
+"RTN","C0CEX",18,0)
+ Q
+"RTN","C0CROB")
+0^1^B1053192
+"RTN","C0CROB",1,0)
+ ;;C0CROB
+"RTN","C0CROB",2,0)
+ ;;;;;;Build 6
+"RTN","C0CROB",3,0)
+TEST1(sessid) ;
+"RTN","C0CROB",4,0)
+ D setSessionValue^%zewdAPI("name","PROVIDER,TWOHUNDREDNINETYSIX",sessid)
+"RTN","C0CROB",5,0)
+ S TITLE=$G(^C0CROB("TITLE"))
+"RTN","C0CROB",6,0)
+ I TITLE="" S TITLE="Scholar Extraordinaire"
+"RTN","C0CROB",7,0)
+ D setSessionValue^%zewdAPI("TITLE",TITLE,sessid)
+"RTN","C0CROB",8,0)
+ Q ""
+"RTN","C0CROB",9,0)
+SAVEFORM(sessid) ;
+"RTN","C0CROB",10,0)
+ S TITLE=$$getSessionValue^%zewdAPI("TITLE",sessid)
+"RTN","C0CROB",11,0)
+ I TITLE="" Q "You must enter a title"
+"RTN","C0CROB",12,0)
+ S ^C0CROB("TITLE")=TITLE
+"RTN","C0CROB",13,0)
+ Q ""
+"RTN","C0CROB",14,0)
+VALIDATETITLE(value) ;
+"RTN","C0CROB",15,0)
+ I value="" Q "alert('you must enter a title');"
+"RTN","C0CROB",16,0)
+ Q ""
+"RTN","C0CROB",17,0)
+ ;
+"RTN","C0E0000A")
+0^3^B15300816
+"RTN","C0E0000A",1,0)
+C0E0000A ; C0E EWD generated code; 3/1/10
+"RTN","C0E0000A",2,0)
+ ;;1.0;C0E;;Mar 1, 2010 ;Build 6
+"RTN","C0E0000A",3,0)
+ ;GT.M version of page ewdAjaxError (screenman application)
+"RTN","C0E0000A",4,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22
+"RTN","C0E0000A",5,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000A",6,0)
+ QUIT
+"RTN","C0E0000A",7,0)
+ ;
+"RTN","C0E0000A",8,0)
+run ;
+"RTN","C0E0000A",9,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000A",10,0)
+ s ok=$$pre()
+"RTN","C0E0000A",11,0)
+ i ok d body
+"RTN","C0E0000A",12,0)
+ QUIT
+"RTN","C0E0000A",13,0)
+ ;
+"RTN","C0E0000A",14,0)
+pre() ;
+"RTN","C0E0000A",15,0)
+ ;
+"RTN","C0E0000A",16,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000A",17,0)
+ ;
+"RTN","C0E0000A",18,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000A",19,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0E0000A",20,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000A",21,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0000A",22,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000A",23,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000A",24,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000A",25,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000A",26,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000A",27,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000A",28,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000A",29,0)
+ s sessionArray("ewd_pageName")="ewdAjaxError"
+"RTN","C0E0000A",30,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000A",31,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000A",32,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0000A",33,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000A",34,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000A",35,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000A",36,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000A",37,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000A",38,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000A",39,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000A",40,0)
+ . n errorPage
+"RTN","C0E0000A",41,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000A",42,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000A",43,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000A",44,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000A",45,0)
+ s stop=0
+"RTN","C0E0000A",46,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000A",47,0)
+ . n nextpage
+"RTN","C0E0000A",48,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000A",49,0)
+ . i nextpage'="" d
+"RTN","C0E0000A",50,0)
+ . . n x
+"RTN","C0E0000A",51,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000A",52,0)
+ . . s stop=1
+"RTN","C0E0000A",53,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000A",54,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000A",55,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000A",56,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000A",57,0)
+ s ctype="text/html"
+"RTN","C0E0000A",58,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000A",59,0)
+ i $d(headers) d
+"RTN","C0E0000A",60,0)
+ . n lcname,name
+"RTN","C0E0000A",61,0)
+ . s name=""
+"RTN","C0E0000A",62,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000A",63,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000A",64,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000A",65,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000A",66,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000A",67,0)
+ w $c(13,10)
+"RTN","C0E0000A",68,0)
+ QUIT 1
+"RTN","C0E0000A",69,0)
+ ;
+"RTN","C0E0000A",70,0)
+body ;
+"RTN","C0E0000A",71,0)
+ w ""_$c(13,10)
+"RTN","C0E0000A",72,0)
+ w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
+"RTN","C0E0000A",73,0)
+ w ""_$c(13,10)
+"RTN","C0E0000A",74,0)
+ QUIT
+"RTN","C0E0000E")
+0^5^B28122696
+"RTN","C0E0000E",1,0)
+C0E0000E ; C0E EWD generated code; 3/1/10
+"RTN","C0E0000E",2,0)
+ ;;1.0;C0E;;Mar 1, 2010 ;Build 6
+"RTN","C0E0000E",3,0)
+ ;GT.M version of page ewdError (screenman application)
+"RTN","C0E0000E",4,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23
+"RTN","C0E0000E",5,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000E",6,0)
+ QUIT
+"RTN","C0E0000E",7,0)
+ ;
+"RTN","C0E0000E",8,0)
+run ;
+"RTN","C0E0000E",9,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000E",10,0)
+ s ok=$$pre()
+"RTN","C0E0000E",11,0)
+ i ok d body
+"RTN","C0E0000E",12,0)
+ QUIT
+"RTN","C0E0000E",13,0)
+ ;
+"RTN","C0E0000E",14,0)
+pre() ;
+"RTN","C0E0000E",15,0)
+ ;
+"RTN","C0E0000E",16,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000E",17,0)
+ ;
+"RTN","C0E0000E",18,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000E",19,0)
+ w "Content-type: text/html"_$c(13,10,13,10)
+"RTN","C0E0000E",20,0)
+ QUIT 1
+"RTN","C0E0000E",21,0)
+ ;
+"RTN","C0E0000E",22,0)
+body ;
+"RTN","C0E0000E",23,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",24,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",25,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",26,0)
+ w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
+"RTN","C0E0000E",27,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",45,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",46,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",47,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",48,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",49,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",50,0)
+ w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
+"RTN","C0E0000E",51,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",52,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",53,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",54,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",55,0)
+ w "
An Error has occurred
"_$c(13,10)
+"RTN","C0E0000E",56,0)
+ w " "_$c(13,10)
+"RTN","C0E0000E",57,0)
+ w "
"_$g(%KEY("error"))_"
"_$c(13,10)
+"RTN","C0E0000E",58,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",59,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",60,0)
+ w "
"_$c(13,10)
+"RTN","C0E0000E",61,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",62,0)
+ w " "_$c(13,10)
+"RTN","C0E0000E",65,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",66,0)
+ w ""_$c(13,10)
+"RTN","C0E0000E",67,0)
+ QUIT
+"RTN","C0E0000F")
+0^4^B33308637
+"RTN","C0E0000F",1,0)
+C0E0000F ; C0E EWD generated code; 3/1/10
+"RTN","C0E0000F",2,0)
+ ;;1.0;C0E;;Mar 1, 2010 ;Build 6
+"RTN","C0E0000F",3,0)
+ ;GT.M version of page ewdAjaxErrorRedirect (screenman application)
+"RTN","C0E0000F",4,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22
+"RTN","C0E0000F",5,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000F",6,0)
+ QUIT
+"RTN","C0E0000F",7,0)
+ ;
+"RTN","C0E0000F",8,0)
+run ;
+"RTN","C0E0000F",9,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000F",10,0)
+ s ok=$$pre()
+"RTN","C0E0000F",11,0)
+ i ok d body
+"RTN","C0E0000F",12,0)
+ QUIT
+"RTN","C0E0000F",13,0)
+ ;
+"RTN","C0E0000F",14,0)
+pre() ;
+"RTN","C0E0000F",15,0)
+ ;
+"RTN","C0E0000F",16,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000F",17,0)
+ ;
+"RTN","C0E0000F",18,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000F",19,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0000F",20,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000F",21,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0000F",22,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000F",23,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000F",24,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000F",25,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000F",26,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000F",27,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000F",28,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000F",29,0)
+ s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
+"RTN","C0E0000F",30,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000F",31,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000F",32,0)
+ s sessionArray("ewd_pageType")="ajax"
+"RTN","C0E0000F",33,0)
+ s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
+"RTN","C0E0000F",34,0)
+ s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
+"RTN","C0E0000F",35,0)
+ s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000F",36,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000F",37,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000F",38,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000F",39,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000F",40,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000F",41,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000F",42,0)
+ . n errorPage
+"RTN","C0E0000F",43,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000F",44,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000F",45,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000F",46,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000F",47,0)
+ s stop=0
+"RTN","C0E0000F",48,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000F",49,0)
+ . n nextpage
+"RTN","C0E0000F",50,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000F",51,0)
+ . i nextpage'="" d
+"RTN","C0E0000F",52,0)
+ . . n x
+"RTN","C0E0000F",53,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000F",54,0)
+ . . s stop=1
+"RTN","C0E0000F",55,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000F",56,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000F",57,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000F",58,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000F",59,0)
+ s ctype="text/html"
+"RTN","C0E0000F",60,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000F",61,0)
+ i $d(headers) d
+"RTN","C0E0000F",62,0)
+ . n lcname,name
+"RTN","C0E0000F",63,0)
+ . s name=""
+"RTN","C0E0000F",64,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000F",65,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000F",66,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000F",67,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000F",68,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000F",69,0)
+ w $c(13,10)
+"RTN","C0E0000F",70,0)
+ QUIT 1
+"RTN","C0E0000F",71,0)
+ ;
+"RTN","C0E0000F",72,0)
+body ;
+"RTN","C0E0000F",73,0)
+ if ($g(Error)="") d
+"RTN","C0E0000F",74,0)
+ .w " "_$c(13,10)
+"RTN","C0E0000F",75,0)
+ .w "
"_$c(13,10)
+"RTN","C0E0000F",76,0)
+ .w "
"_$c(13,10)
+"RTN","C0E0000F",77,0)
+ .w " "_$c(13,10)
+"RTN","C0E0000F",78,0)
+ .
+"RTN","C0E0000F",79,0)
+ w ""_$c(13,10)
+"RTN","C0E0000F",80,0)
+ 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)
+"RTN","C0E0000F",81,0)
+ s id=""
+"RTN","C0E0000F",82,0)
+ f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
+"RTN","C0E0000F",83,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0E0000F",84,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
+"RTN","C0E0000F",85,0)
+ s id=""
+"RTN","C0E0000F",86,0)
+ f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
+"RTN","C0E0000F",87,0)
+ . w "idPointer = document.getElementById('"_id_"') ; "
+"RTN","C0E0000F",88,0)
+ . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
+"RTN","C0E0000F",89,0)
+ k ^%zewdSession("session","ewd_hasErrors")
+"RTN","C0E0000F",90,0)
+ k ^%zewdSession("session","ewd_errorFields")
+"RTN","C0E0000F",91,0)
+ k ^%zewdSession("session","ewd_idList")
+"RTN","C0E0000F",92,0)
+ w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
+"RTN","C0E0000F",93,0)
+ w ""_$c(13,10)
+"RTN","C0E0000F",94,0)
+ QUIT
+"RTN","C0E0000R")
+0^6^B67797780
+"RTN","C0E0000R",1,0)
+C0E0000R ; C0E EWD generated code; 3/1/10
+"RTN","C0E0000R",2,0)
+ ;;1.0;C0E;;Mar 1, 2010 ;Build 6
+"RTN","C0E0000R",3,0)
+ ;GT.M version of page ewdErrorRedirect (screenman application)
+"RTN","C0E0000R",4,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:22
+"RTN","C0E0000R",5,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0000R",6,0)
+ QUIT
+"RTN","C0E0000R",7,0)
+ ;
+"RTN","C0E0000R",8,0)
+run ;
+"RTN","C0E0000R",9,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0000R",10,0)
+ s ok=$$pre()
+"RTN","C0E0000R",11,0)
+ i ok d body
+"RTN","C0E0000R",12,0)
+ QUIT
+"RTN","C0E0000R",13,0)
+ ;
+"RTN","C0E0000R",14,0)
+pre() ;
+"RTN","C0E0000R",15,0)
+ ;
+"RTN","C0E0000R",16,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0000R",17,0)
+ ;
+"RTN","C0E0000R",18,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0000R",19,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0000R",20,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0000R",21,0)
+ s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
+"RTN","C0E0000R",22,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0000R",23,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0000R",24,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0000R",25,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0000R",26,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0000R",27,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0000R",28,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0000R",29,0)
+ s sessionArray("ewd_pageName")="ewdErrorRedirect"
+"RTN","C0E0000R",30,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0000R",31,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0000R",32,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0000R",33,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",34,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",35,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0E0000R",36,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0E0000R",37,0)
+ s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0000R",38,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0000R",39,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0000R",40,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0000R",41,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0000R",42,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0000R",43,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0000R",44,0)
+ . n errorPage
+"RTN","C0E0000R",45,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0000R",46,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0000R",47,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0000R",48,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0000R",49,0)
+ s stop=0
+"RTN","C0E0000R",50,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0000R",51,0)
+ . n nextpage
+"RTN","C0E0000R",52,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0000R",53,0)
+ . i nextpage'="" d
+"RTN","C0E0000R",54,0)
+ . . n x
+"RTN","C0E0000R",55,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0000R",56,0)
+ . . s stop=1
+"RTN","C0E0000R",57,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0000R",58,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000R",59,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0000R",60,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0000R",61,0)
+ s ctype="text/html"
+"RTN","C0E0000R",62,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0000R",63,0)
+ i $d(headers) d
+"RTN","C0E0000R",64,0)
+ . n lcname,name
+"RTN","C0E0000R",65,0)
+ . s name=""
+"RTN","C0E0000R",66,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0000R",67,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0000R",68,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0000R",69,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0000R",70,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0000R",71,0)
+ w $c(13,10)
+"RTN","C0E0000R",72,0)
+ QUIT 1
+"RTN","C0E0000R",73,0)
+ ;
+"RTN","C0E0000R",74,0)
+body ;
+"RTN","C0E0000R",75,0)
+ w ""_$c(13,10)
+"RTN","C0E0000R",76,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",77,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",80,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",81,0)
+ w "Ajax Error Redirect page"_""
+"RTN","C0E0000R",82,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",83,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",84,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",85,0)
+ w "Please wait...."_""
+"RTN","C0E0000R",86,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",87,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",88,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",135,0)
+ w " "_$c(13,10)
+"RTN","C0E0000R",136,0)
+ w ""_$c(13,10)
+"RTN","C0E0000R",137,0)
+ QUIT
+"RTN","C0E0001I")
+0^7^B20709402
+"RTN","C0E0001I",1,0)
+C0E0001I ; C0E EWD generated code; 3/1/10
+"RTN","C0E0001I",2,0)
+ ;;1.0;C0E;;Mar 1, 2010 ;Build 6
+"RTN","C0E0001I",3,0)
+ ;GT.M version of page index (screenman application)
+"RTN","C0E0001I",4,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23
+"RTN","C0E0001I",5,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0001I",6,0)
+ QUIT
+"RTN","C0E0001I",7,0)
+ ;
+"RTN","C0E0001I",8,0)
+run ;
+"RTN","C0E0001I",9,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0001I",10,0)
+ s ok=$$pre()
+"RTN","C0E0001I",11,0)
+ i ok d body
+"RTN","C0E0001I",12,0)
+ QUIT
+"RTN","C0E0001I",13,0)
+ ;
+"RTN","C0E0001I",14,0)
+pre() ;
+"RTN","C0E0001I",15,0)
+ ;
+"RTN","C0E0001I",16,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0001I",17,0)
+ ;
+"RTN","C0E0001I",18,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0001I",19,0)
+ s sessionArray("ewd_isFirstPage")="1"
+"RTN","C0E0001I",20,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0001I",21,0)
+ s sessionArray("ewd_prePageScript")=""
+"RTN","C0E0001I",22,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0001I",23,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0001I",24,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0001I",25,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0001I",26,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0001I",27,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0001I",28,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0001I",29,0)
+ s sessionArray("ewd_pageName")="index"
+"RTN","C0E0001I",30,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0001I",31,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0001I",32,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0001I",33,0)
+ s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
+"RTN","C0E0001I",34,0)
+ s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0001I",35,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0001I",36,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0001I",37,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0001I",38,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0001I",39,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0001I",40,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0001I",41,0)
+ . n errorPage
+"RTN","C0E0001I",42,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0001I",43,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0001I",44,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0001I",45,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0001I",46,0)
+ s stop=0
+"RTN","C0E0001I",47,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0001I",48,0)
+ . n nextpage
+"RTN","C0E0001I",49,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0001I",50,0)
+ . i nextpage'="" d
+"RTN","C0E0001I",51,0)
+ . . n x
+"RTN","C0E0001I",52,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0001I",53,0)
+ . . s stop=1
+"RTN","C0E0001I",54,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0001I",55,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0001I",56,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0001I",57,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0001I",58,0)
+ s ctype="text/html"
+"RTN","C0E0001I",59,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0001I",60,0)
+ i $d(headers) d
+"RTN","C0E0001I",61,0)
+ . n lcname,name
+"RTN","C0E0001I",62,0)
+ . s name=""
+"RTN","C0E0001I",63,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0001I",64,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0001I",65,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0001I",66,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0001I",67,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0001I",68,0)
+ w $c(13,10)
+"RTN","C0E0001I",69,0)
+ QUIT 1
+"RTN","C0E0001I",70,0)
+ ;
+"RTN","C0E0001I",71,0)
+body ;
+"RTN","C0E0001I",72,0)
+ w ""_$c(13,10)
+"RTN","C0E0001I",73,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",74,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",75,0)
+ w "Screenman Menu"_""
+"RTN","C0E0001I",76,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",77,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",78,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",79,0)
+ w "Hello World"_""
+"RTN","C0E0001I",80,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",81,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",82,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",83,0)
+ w "test1 page"_""
+"RTN","C0E0001I",84,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",85,0)
+ w " "_$c(13,10)
+"RTN","C0E0001I",86,0)
+ w ""_$c(13,10)
+"RTN","C0E0001I",87,0)
+ QUIT
+"RTN","C0E0002")
+0^8^B94303815
+"RTN","C0E0002",1,0)
+C0E0002 ; C0E EWD generated code; 3/1/10
+"RTN","C0E0002",2,0)
+ ;;1.0;C0E;;Mar 1, 2010 ;Build 6
+"RTN","C0E0002",3,0)
+ ;GT.M version of page test1 (screenman application)
+"RTN","C0E0002",4,0)
+ ;Compiled on Sun, 28 Feb 2010 19:55:23
+"RTN","C0E0002",5,0)
+ ;using Enterprise Web Developer (Build 790)
+"RTN","C0E0002",6,0)
+ QUIT
+"RTN","C0E0002",7,0)
+ ;
+"RTN","C0E0002",8,0)
+run ;
+"RTN","C0E0002",9,0)
+ n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
+"RTN","C0E0002",10,0)
+ s ok=$$pre()
+"RTN","C0E0002",11,0)
+ i ok d body
+"RTN","C0E0002",12,0)
+ QUIT
+"RTN","C0E0002",13,0)
+ ;
+"RTN","C0E0002",14,0)
+pre() ;
+"RTN","C0E0002",15,0)
+ ;
+"RTN","C0E0002",16,0)
+ n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
+"RTN","C0E0002",17,0)
+ ;
+"RTN","C0E0002",18,0)
+ s confirmText="Click OK if you're sure you want to delete this record"
+"RTN","C0E0002",19,0)
+ s sessionArray("ewd_isFirstPage")="0"
+"RTN","C0E0002",20,0)
+ s sessionArray("ewd_sessid_timeout")="1200"
+"RTN","C0E0002",21,0)
+ s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
+"RTN","C0E0002",22,0)
+ s sessionArray("ewd_default_timeout")="1200"
+"RTN","C0E0002",23,0)
+ s sessionArray("ewd_persistRequest")="true"
+"RTN","C0E0002",24,0)
+ s sessionArray("ewd_pageTitle")=""
+"RTN","C0E0002",25,0)
+ s sessionArray("ewd_errorPage")="ewdError"
+"RTN","C0E0002",26,0)
+ s sessionArray("ewd_templatePrePageScript")=""
+"RTN","C0E0002",27,0)
+ s sessionArray("ewd_onErrorScript")=""
+"RTN","C0E0002",28,0)
+ s sessionArray("ewd_appName")="screenman"
+"RTN","C0E0002",29,0)
+ s sessionArray("ewd_pageName")="test1"
+"RTN","C0E0002",30,0)
+ s sessionArray("ewd_translationMode")="0"
+"RTN","C0E0002",31,0)
+ s sessionArray("ewd_technology")="gtm"
+"RTN","C0E0002",32,0)
+ s sessionArray("ewd_pageType")=""
+"RTN","C0E0002",33,0)
+ s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
+"RTN","C0E0002",34,0)
+ s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
+"RTN","C0E0002",35,0)
+ s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
+"RTN","C0E0002",36,0)
+ s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
+"RTN","C0E0002",37,0)
+ s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
+"RTN","C0E0002",38,0)
+ s formInfo="SSN|text`TITLE|text`ewd_pressed|hidden`submit|submit`"
+"RTN","C0E0002",39,0)
+ d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
+"RTN","C0E0002",40,0)
+ s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
+"RTN","C0E0002",41,0)
+ s sessid=$g(sessionArray("ewd_sessid"))
+"RTN","C0E0002",42,0)
+ i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
+"RTN","C0E0002",43,0)
+ . s Error=$p(Error,":",2,200)
+"RTN","C0E0002",44,0)
+ . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
+"RTN","C0E0002",45,0)
+ . s Error="EWD runtime error: "_Error
+"RTN","C0E0002",46,0)
+ i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
+"RTN","C0E0002",47,0)
+ . n errorPage
+"RTN","C0E0002",48,0)
+ . s errorPage=$g(sessionArray("ewd_errorPage"))
+"RTN","C0E0002",49,0)
+ . i errorPage="" s errorPage="ewdError"
+"RTN","C0E0002",50,0)
+ . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
+"RTN","C0E0002",51,0)
+ . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
+"RTN","C0E0002",52,0)
+ s stop=0
+"RTN","C0E0002",53,0)
+ i Error="" d i stop QUIT 0
+"RTN","C0E0002",54,0)
+ . n nextpage
+"RTN","C0E0002",55,0)
+ . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
+"RTN","C0E0002",56,0)
+ . i nextpage'="" d
+"RTN","C0E0002",57,0)
+ . . n x
+"RTN","C0E0002",58,0)
+ . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
+"RTN","C0E0002",59,0)
+ . . s stop=1
+"RTN","C0E0002",60,0)
+ i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
+"RTN","C0E0002",61,0)
+ . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0002",62,0)
+ . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
+"RTN","C0E0002",63,0)
+ w "HTTP/1.1 200 OK"_$c(13,10)
+"RTN","C0E0002",64,0)
+ s ctype="text/html"
+"RTN","C0E0002",65,0)
+ d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
+"RTN","C0E0002",66,0)
+ i $d(headers) d
+"RTN","C0E0002",67,0)
+ . n lcname,name
+"RTN","C0E0002",68,0)
+ . s name=""
+"RTN","C0E0002",69,0)
+ . f s name=$o(headers(name)) q:name="" d
+"RTN","C0E0002",70,0)
+ . . s lcname=$$zcvt^%zewdAPI(name,"l")
+"RTN","C0E0002",71,0)
+ . . i lcname="content-type" s ctype=headers(name) q
+"RTN","C0E0002",72,0)
+ . . w name_": "_headers(name)_$c(13,10)
+"RTN","C0E0002",73,0)
+ w "Content-type: "_ctype_$c(13,10)
+"RTN","C0E0002",74,0)
+ w $c(13,10)
+"RTN","C0E0002",75,0)
+ QUIT 1
+"RTN","C0E0002",76,0)
+ ;
+"RTN","C0E0002",77,0)
+body ;
+"RTN","C0E0002",78,0)
+ w ""_$c(13,10)
+"RTN","C0E0002",79,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",80,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",81,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",83,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",90,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",91,0)
+ w "Screenman Test"_""
+"RTN","C0E0002",92,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",93,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",140,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",141,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",142,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",162,0)
+ w " "_$c(13,10)
+"RTN","C0E0002",163,0)
+ w ""_$c(13,10)
+"RTN","C0E0002",164,0)
+ QUIT
+"SEC","^DIC",70050,70050,0,"AUDIT")
+@
+"SEC","^DIC",70050,70050,0,"DD")
+@
+"SEC","^DIC",70050,70050,0,"DEL")
+@
+"SEC","^DIC",70050,70050,0,"LAYGO")
+@
+"SEC","^DIC",70050,70050,0,"RD")
+@
+"SEC","^DIC",70050,70050,0,"WR")
+@
+"VER")
+8.0^22.0
+"^DD",70050,70050,0)
+FIELD^^1^5
+"^DD",70050,70050,0,"DDA")
+N
+"^DD",70050,70050,0,"DT")
+3100301
+"^DD",70050,70050,0,"ID",.02)
+W " ",$P(^(0),U,2)
+"^DD",70050,70050,0,"ID",.03)
+W " ",$P(^(0),U,3)
+"^DD",70050,70050,0,"IX","B",70050,.01)
+
+"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
+
+"^DD",70050,70050,.01,0)
+EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
+"^DD",70050,70050,.01,1,0)
+^.1
+"^DD",70050,70050,.01,1,1,0)
+70050^B
+"^DD",70050,70050,.01,1,1,1)
+S ^C0E(70050,"B",$E(X,1,30),DA)=""
+"^DD",70050,70050,.01,1,1,2)
+K ^C0E(70050,"B",$E(X,1,30),DA)
+"^DD",70050,70050,.01,3)
+NAMESPACED EWD COMPILED PAGE
+"^DD",70050,70050,.01,"DT")
+3100301
+"^DD",70050,70050,.02,0)
+EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
+"^DD",70050,70050,.02,3)
+NAME OF THE EWD APPLICATION
+"^DD",70050,70050,.02,"DT")
+3100303
+"^DD",70050,70050,.03,0)
+EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
+"^DD",70050,70050,.03,3)
+EWD PAGE NAME
+"^DD",70050,70050,.03,"DT")
+3100301
+"^DD",70050,70050,1,0)
+DESCRIPTION^70050.01^^2;0
+"^DD",70050,70050,2,0)
+EWD SOURCE^70050.02^^1;0
+"^DD",70050,70050.01,0)
+DESCRIPTION SUB-FIELD^^.01^1
+"^DD",70050,70050.01,0,"DT")
+3100301
+"^DD",70050,70050.01,0,"NM","DESCRIPTION")
+
+"^DD",70050,70050.01,0,"UP")
+70050
+"^DD",70050,70050.01,.01,0)
+DESCRIPTION^Wx^^0;1
+"^DD",70050,70050.01,.01,3)
+DESCRIPTION OF THE EWD PAGE
+"^DD",70050,70050.01,.01,"DT")
+3100301
+"^DD",70050,70050.02,0)
+EWD SOURCE SUB-FIELD^^.01^1
+"^DD",70050,70050.02,0,"DT")
+3100301
+"^DD",70050,70050.02,0,"NM","EWD SOURCE")
+
+"^DD",70050,70050.02,0,"UP")
+70050
+"^DD",70050,70050.02,.01,0)
+EWD SOURCE^WLx^^0;1
+"^DD",70050,70050.02,.01,3)
+EWD PAGE SOURCE CODE
+"^DD",70050,70050.02,.01,"DT")
+3100301
+"^DIC",70050,70050,0)
+C0EWD ROUTINE MAP^70050
+"^DIC",70050,70050,0,"GL")
+^C0E(70050,
+"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
+
+**END**
+**END**