diff --git a/README.md b/README.md
index 44d0ec6..1a5d8ad 100644
--- a/README.md
+++ b/README.md
@@ -19,4 +19,10 @@ https://trac.opensourcevista.net/svn/qrda
https://trac.opensourcevista.net/svn/pharmacy-utils
## mu_tests
-https://trac.opensourcevista.net/svn/mu-tests
\ No newline at end of file
+https://trac.opensourcevista.net/svn/mu-tests
+
+## djigzo
+https://trac.opensourcevista.net/svn/Djigzo
+
+## ewd
+https://trac.opensourcevista.net/svn/EWD
\ No newline at end of file
diff --git a/djigzo/SecurePatientEmailDeliveryWithDjigzo.zip b/djigzo/SecurePatientEmailDeliveryWithDjigzo.zip
new file mode 100644
index 0000000..fd38c42
Binary files /dev/null and b/djigzo/SecurePatientEmailDeliveryWithDjigzo.zip differ
diff --git a/ewd/archive/C0CE000A.m b/ewd/archive/C0CE000A.m
new file mode 100644
index 0000000..cf9132a
--- /dev/null
+++ b/ewd/archive/C0CE000A.m
@@ -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
diff --git a/ewd/archive/C0CE000E.m b/ewd/archive/C0CE000E.m
new file mode 100644
index 0000000..ecc0d8a
--- /dev/null
+++ b/ewd/archive/C0CE000E.m
@@ -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
diff --git a/ewd/archive/C0CE000F.m b/ewd/archive/C0CE000F.m
new file mode 100644
index 0000000..cfbfc1f
--- /dev/null
+++ b/ewd/archive/C0CE000F.m
@@ -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
diff --git a/ewd/archive/C0CE000R.m b/ewd/archive/C0CE000R.m
new file mode 100644
index 0000000..1eef15d
--- /dev/null
+++ b/ewd/archive/C0CE000R.m
@@ -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
diff --git a/ewd/archive/C0CE000S.m b/ewd/archive/C0CE000S.m
new file mode 100644
index 0000000..4ce5305
--- /dev/null
+++ b/ewd/archive/C0CE000S.m
@@ -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
diff --git a/ewd/archive/C0CE001I.m b/ewd/archive/C0CE001I.m
new file mode 100644
index 0000000..9dcf8b6
--- /dev/null
+++ b/ewd/archive/C0CE001I.m
@@ -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
diff --git a/ewd/archive/C0CE001L.m b/ewd/archive/C0CE001L.m
new file mode 100644
index 0000000..469702a
--- /dev/null
+++ b/ewd/archive/C0CE001L.m
@@ -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
diff --git a/ewd/archive/C0CE002.m b/ewd/archive/C0CE002.m
new file mode 100644
index 0000000..681a3e6
--- /dev/null
+++ b/ewd/archive/C0CE002.m
@@ -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
diff --git a/ewd/archive/C0CE003.m b/ewd/archive/C0CE003.m
new file mode 100644
index 0000000..ed7ed4e
--- /dev/null
+++ b/ewd/archive/C0CE003.m
@@ -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
diff --git a/ewd/archive/C0CE004.m b/ewd/archive/C0CE004.m
new file mode 100644
index 0000000..b387089
--- /dev/null
+++ b/ewd/archive/C0CE004.m
@@ -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
diff --git a/ewd/archive/C0CE005.m b/ewd/archive/C0CE005.m
new file mode 100644
index 0000000..c32cdb5
--- /dev/null
+++ b/ewd/archive/C0CE005.m
@@ -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
diff --git a/ewd/archive/C0CE006.m b/ewd/archive/C0CE006.m
new file mode 100644
index 0000000..0ed2690
--- /dev/null
+++ b/ewd/archive/C0CE006.m
@@ -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 "
+"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**
diff --git a/ewd/archive/C0E0_1_0_0_T2.KID b/ewd/archive/C0E0_1_0_0_T2.KID
new file mode 100644
index 0000000..81ac4e3
--- /dev/null
+++ b/ewd/archive/C0E0_1_0_0_T2.KID
@@ -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**
diff --git a/ewd/archive/C0E0_1_0_0_T3.KID b/ewd/archive/C0E0_1_0_0_T3.KID
new file mode 100644
index 0000000..b32b968
--- /dev/null
+++ b/ewd/archive/C0E0_1_0_0_T3.KID
@@ -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**
diff --git a/ewd/archive/C0E0_1_0_0_T4.KID b/ewd/archive/C0E0_1_0_0_T4.KID
new file mode 100644
index 0000000..9fab407
--- /dev/null
+++ b/ewd/archive/C0E0_1_0_0_T4.KID
@@ -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**
diff --git a/ewd/archive/C0E0_1_0_0_T5.KID b/ewd/archive/C0E0_1_0_0_T5.KID
new file mode 100644
index 0000000..28c52a1
--- /dev/null
+++ b/ewd/archive/C0E0_1_0_0_T5.KID
@@ -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**
diff --git a/ewd/ewdapps/DIINQUIRE/pages/index.ewd b/ewd/ewdapps/DIINQUIRE/pages/index.ewd
new file mode 100644
index 0000000..e1ddc01
--- /dev/null
+++ b/ewd/ewdapps/DIINQUIRE/pages/index.ewd
@@ -0,0 +1,41 @@
+
+
+
+
+Inquire into File Entries
+
+
+
+
Inquire into File Entries
+
+
+
+
+
diff --git a/ewd/ewdapps/DIINQUIRE/pages/outputter.ewd b/ewd/ewdapps/DIINQUIRE/pages/outputter.ewd
new file mode 100644
index 0000000..a732715
--- /dev/null
+++ b/ewd/ewdapps/DIINQUIRE/pages/outputter.ewd
@@ -0,0 +1,4 @@
+
+
+
+
diff --git a/ewd/ewdapps/DIINQUIRE/r/C0EDIINQUIRE.m b/ewd/ewdapps/DIINQUIRE/r/C0EDIINQUIRE.m
new file mode 100644
index 0000000..c1b84d4
--- /dev/null
+++ b/ewd/ewdapps/DIINQUIRE/r/C0EDIINQUIRE.m
@@ -0,0 +1,73 @@
+C0EDIINQUIRE ; EWD Wrapper around Inquire into File Entries option
+ ;;
+ ; All EPs public
+ ;
+ ; TODO:
+ ; 1. Fileman controls file access based on very complex rules. Need to imp
+ ; 2. Lazy loading of entries
+ ; 3. Inquire needs to return structured data rather a blob--too hard right now.
+ ;
+FILES(sessid) ; Get File of Files
+ d clearList^%zewdAPI("file",sessid) ; Clean
+ N FILE S FILE="" ; Looper that is also the File Name
+ FOR S FILE=$O(^DIC("B",FILE)) QUIT:FILE="" DO ; ditto
+ . N IEN S IEN=$O(^(FILE,"")) ; IEN from 2nd subscript in B index
+ . d appendToList^%zewdAPI("file",FILE,IEN,sessid) ; Add to session
+ Q ""
+ ;
+ENTRY(file) ; Get first 20 Entries in a specific file
+ d clearList^%zewdAPI("entry",sessid) ; Clean
+ n glo s glo=^DIC(file,0,"GL") ; Get File Global
+ s glo=$$CREF^DILF(glo) ; Get the closed root reference
+ N ENTRY S ENTRY="" ; Looper that is also the Entry
+ N CNT S CNT=0
+ FOR S ENTRY=$O(@glo@("B",ENTRY)) QUIT:ENTRY="" QUIT:CNT>20 DO ; ditto
+ . N IEN S IEN=$O(^(ENTRY,"")) ; IEN
+ . d appendToList^%zewdAPI("entry",ENTRY,IEN,sessid) ; Add to session
+ . S CNT=CNT+1
+ QUIT $$replaceOptionsByID^%zewdAPI("entry","entry",sessid) ; Replace current options
+ ;
+INQ(sessid) ; DIINQUIRE Application Output
+ ;
+ ; First, get the options
+ n outopt ; Output Options checkbox values
+ d getCheckboxValues^%zewdAPI("outopt",.outopt,sessid)
+ n capopts s capopts="" ; Caption Options to get from checkbox values
+ n i s i=""
+ for set i=$order(outopt(i)) q:i="" s capopts=capopts_i
+ ;
+ ; Get File and Entry
+ n file s file=$$getSessionValue^%zewdAPI("file",sessid)
+ n entry s entry=$$getSessionValue^%zewdAPI("entry",sessid)
+ ;
+ ; Now actual VISTA work--write out the output to a file
+ ; Note that HFS uniqueness is guaranteed by the device file configuration
+ ; If you set IO=$$UNIQUE^%ZISUTL_$J in the pre-open execute, you are good.
+ S IOP="HFS" D ^%ZIS ; Open HFS Device
+ U IO ; USE HFS Device
+ D CAPTION^DIQ(file,entry,capopts) ; Write Out Report
+ D ^%ZISC ; Close Device
+ ; done
+ ;
+ ; This code doesn't work, and my debugger couldn't go through it.
+ ; something is wrong--and I have an old version of GT.M--why is this happening?
+ ; N PATH S PATH=$$PATH^MXMLPRSE(IO("CLOSE"))
+ ; N FILE S FILE=$P(IO("CLOSE"),PATH,2)
+ ; N RESULT S RESULT=$$FTG^%ZISH(PATH,FILE,$NAME(^TMP("EWDU",$J)),3) ; Doesn't work!!!
+ ;
+ ; ------------------> Read the File Back
+ OPEN IO("CLOSE"):(READONLY:rewind) ; Open Again for reading
+ USE IO("CLOSE") ; Use
+ N CNT S CNT=1 ; Counter
+ KILL ^TMP("EWDU",$J) ; Kill TMP Global
+ FOR DO Q:$ZEOF ; Read the file
+ . N % R %
+ . S ^TMP("EWDU",$J,CNT)=%
+ . S CNT=CNT+1
+ C IO("CLOSE"):(delete) ; Close and delete
+ ; <------------------ Close the File
+ ;
+ ; Move to EWD Session
+ d clearSessionArray^%zewdAPI("DIINQUIRE",sessid)
+ d mergeGlobalToSession^%zewdAPI($NAME(^TMP("EWDU",$J)),"DIINQUIRE",sessid)
+ QUIT ""
diff --git a/ewd/ewdapps/bb/pages/bb.ewd b/ewd/ewdapps/bb/pages/bb.ewd
new file mode 100644
index 0000000..75c9cba
--- /dev/null
+++ b/ewd/ewdapps/bb/pages/bb.ewd
@@ -0,0 +1,143 @@
+
+ Ajax page contains the beds that gets auto-updated every 5 seconds.
+ V 0.4
+ (c) Sam Habiel
+ Licensed under AGPL
+
+
+
+
+
+ First Row: Ward Names
+ ; Ward Data has the following structure:
+ ; occ beds/total^occmale/maletotal^occfemale/femaletotal^oos^emptymale/emptyfemale/emptytotal
+
+
+
+ Second Row: Contents.
+ We use valign and style vertical align on the td b/c only valign works even though it's deprecated!
+
+
+
+
+
+
+
+ Bed Data is as follows:
+ pt name^pt sex^adm date^lodger^EDW^MOT^bed oos?^bed oos msg^bed oss comment
+
+
+
+
+
+
+
+
+
+
+
+
+ Bed: Color beds for males and females
+
+
+
+
+
+
+
+
+ Now, Patients...
+
+
+ Do nothing here, for now.
+
+
+ Print patients; mismatched beds show up in a different color
+
+
+
+
+
+
+
+
+
+
+ Lodger
+
+
+ (reserved) (since )
+
+
+ EDW
+
+ EDW
+
+
+ MOT
+
+ MOT
+
+
+
+
+ Deal with Out Of Service Beds
+
+ :
+
+
+
+
+
+
+
+
+
+
+
+ Here we have the Census Table
+ wardbed=beds^males^females^empty beds^occupancy %
+
+
+
+
+
+
+
+
+
Census
+
+
+
Total Beds
+
Males
+
Females
+
Empty Beds
+
% Occupation
+
+
+
+
+
+
+
+
+
+
diff --git a/ewd/ewdapps/bb/pages/ewdTemplate.ewd b/ewd/ewdapps/bb/pages/ewdTemplate.ewd
new file mode 100644
index 0000000..83aa8ea
--- /dev/null
+++ b/ewd/ewdapps/bb/pages/ewdTemplate.ewd
@@ -0,0 +1,41 @@
+
+BB Template File
+Bed Board v 0.5
+
+
+
+
+
+
+ Load the Session Values for DUZ etc.
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/ewd/ewdapps/bb/pages/index.ewd b/ewd/ewdapps/bb/pages/index.ewd
new file mode 100644
index 0000000..4435c32
--- /dev/null
+++ b/ewd/ewdapps/bb/pages/index.ewd
@@ -0,0 +1,43 @@
+
+ Index Page
+ v 0.5
+ (c) Sam Habiel
+ Licensed under AGPL
+
+
+
+
+
+
+<?= #sitename ?> Bed Board
+
+
+
Bed Board
+
+Please wait 5 seconds for initial load...
+
+
+
Legend
+
+
+
Color
+
Meaning
+
+
+
210-B
+
Male Bed
+
+
+
111-A
+
Female Bed
+
+
+
TEST,PATIENT
+
Male Patient in Female bed or the converse
+
+
+
TEST COMMENT
+
Bed is Out of Service
+
+
+
diff --git a/ewd/ewdapps/bb/r/jjihbb.m b/ewd/ewdapps/bb/r/jjihbb.m
new file mode 100644
index 0000000..26dd8f9
--- /dev/null
+++ b/ewd/ewdapps/bb/r/jjihbb.m
@@ -0,0 +1,213 @@
+jjihbb ; JJIH/SMH - Bed Board Stuff ; 9/22/11 3:27pm
+ ;;0.5;INTRACARE SPECIFIC MODIFICATIONS;;
+ ; (C) Sam Habiel
+ ; Licensed under AGPL latest
+ ;
+ ; Bed Board routine for EWD pages index.ewd and bb.ewd
+ ;
+ ; New in 0.3:
+ ; - Added a bunch of counts everywhere.
+ ;
+ ; New in 0.4:
+ ; - Added EDW and MOT fields
+ ; - Patients with no beds are included!
+ ;
+ ; New in 0.5:
+ ; - Fixed division by zero problem if db is completely unconfigured
+ ;
+init(sessid) ; Populate index.ewd with site name
+ new DIQUIET set DIQUIET=1 ; Fileman - be quiet
+ do DT^DICRW ; Set-up miniumum variables for VISTA
+ new sitename set sitename=$piece($$SITE^VASITE,"^",2)
+ set sitename=$$TITLE^XLFSTR(sitename) ; Make uppercase title case.
+ do setSessionValue^%zewdAPI("sitename",sitename,sessid)
+ quit ""
+ ;
+getbeds(sessid) ; Populate bb.ewd with bed board information
+ ;
+ ; To run this on your terminal, set debug to 1 and type: w $$getbeds^jjihbb(80)
+ new debug set debug=0 ; Make this 1 to be talkative
+ new DIQUIET set DIQUIET=1 ; Fileman - be quiet
+ do DT^DICRW ; Set-up miniumum variables for VISTA
+ ; Ask Fileman for the list of the wards, taking out inactive ones
+ ; File 42; .01 field only, "Packed Output, don't re-sort", use "B" index
+ ; Screen inactive wards out using Fileman Screen on File.
+ n wards1,err
+ D LIST^DIC(42,"","@;.01","PQ","","","","B","S D0=Y D WIN^DGPMDDCF I 'X","","wards1","err")
+ i $d(err) s $EC=",U101," ; we shouldn't ever have any messages - crash if so
+ n wards2 ; better wards!
+ m wards2=wards1("DILIST")
+ ; expected output:
+ ; wards2(0)="5^*^0^"
+ ; wards2(0,"MAP")="IEN^.01"
+ ; wards2(1,0)="15^Adolescent 2L 201-213 South"
+ ; wards2(2,0)="11^Child 2R 214-225 South"
+ ; wards2(3,0)="14^DAPA 3R 314-326"
+ ; wards2(4,0)="13^General/Adult 3L 300-313 South"
+ ; wards2(5,0)="10^Restore 1L 101-111 South"
+ ; Now, walk the beds a la ABB^DGPMRBA1
+ n wardbed ; return array
+ n i s i=0
+ for s i=$o(wards2(i)) q:'i do
+ . n wardien s wardien=$piece(wards2(i,0),"^")
+ . zwrite:debug wardien
+ . n roomien s roomien=0
+ . for s roomien=$o(^DG(405.4,"W",wardien,roomien)) q:'roomien do
+ . . zwrite:debug roomien
+ . . quit:'$d(^DG(405.4,roomien,0))
+ . . new bed set bed=$P(^(0),"^")
+ . . new admien set admien=$o(^DGPM("ARM",roomien,0))
+ . . new lodger,ptnode,edw,mot
+ . . if admien d
+ . . . set lodger=^(admien)
+ . . . set ptnode=^DGPM(admien,0) ; note naked sexy ref
+ . . . set edw=+$p($g(^("JJIH0")),"^")
+ . . . set mot=+$p($g(^("JJIH0")),"^",2)
+ . . write:debug "ptnode: "_$g(ptnode),!
+ . . write:debug "edw: "_$g(edw),!
+ . . write:debug "mot: "_$g(mot),!
+ . . ;
+ . . ; Bed Message
+ . . ; pt name^pt sex^adm date^lodger^EDW^MOT^bed oos?^bed oos msg^bed oss comment
+ . . n bedmsg
+ . . i $g(ptnode) d ; if we have a patient, that's the bed msg
+ . . . n dfn s dfn=$p(ptnode,"^",3)
+ . . . s bedmsg=$p(^DPT(dfn,0),"^",1,2) ; Patient name and sex
+ . . . ; s $p(bedmsg,"^",3)=$$FMTE^XLFDT($p(ptnode,"^")) ; Admission date
+ . . . s $p(bedmsg,"^",3)=$$DATE^TIULS($p(ptnode,"^"),"AMTH DD@HR:MIN") ; Admission date using TIU API
+ . . . s $p(bedmsg,"^",4)=$g(lodger)
+ . . . s $p(bedmsg,"^",5)=$g(edw)
+ . . . s $p(bedmsg,"^",6)=$g(mot)
+ . . d ; Out of Service Checks?
+ . . . n oos s oos=$$oos(roomien) ; 0 or 1^msg^comment
+ . . . s $p(bedmsg,"^",7,9)=oos
+ . . ;
+ . . s wardbed($piece(wards2(i,0),"^",2),bed)=bedmsg
+ ;
+ ; Loop through inpatients to find patients without a bed
+ ; Bed Message (reminder!)
+ ; pt name^pt sex^adm date^lodger^EDW^MOT^bed oos?^bed oos msg^bed oss comment
+ n i,j s (i,j)=""
+ n counter s counter=0
+ for s i=$o(^DPT("CN",i)) q:i="" for s j=$o(^DPT("CN",i,j)) q:j="" do
+ . n admien s admien=^(j) ; Patient Movement IEN stored in Index
+ . n dfn s dfn=j
+ . n bed s bed=$get(^DPT(dfn,.101))
+ . i bed'="" quit ; if bed is not empty, quit!
+ . s counter=counter+1
+ . n wardname s wardname=^DPT(dfn,.1)
+ . s wardbed(wardname,"NONE"_counter)=$p(^DPT(dfn,0),"^",1,2) ; name, sex
+ . n admdate s admdate=$P(^DGPM(admien,0),"^")
+ . s $p(wardbed(wardname,"NONE"_counter),"^",3)=$$DATE^TIULS(admdate,"AMTH DD@HR:MIN")
+ . s $p(wardbed(wardname,"NONE"_counter),"^",4)=0 ; lodger
+ . n edw s edw=+$p($g(^("JJIH0")),"^")
+ . s $p(wardbed(wardname,"NONE"_counter),"^",5)=edw
+ . n mot s mot=+$p($g(^("JJIH0")),"^",2)
+ . s $p(wardbed(wardname,"NONE"_counter),"^",6)=mot
+ ;
+ ; Loop through lodgers to find lodgers without a bed
+ ; Bed Message (reminder!)
+ ; pt name^pt sex^adm date^lodger^EDW^MOT^bed oos?^bed oos msg^bed oss comment
+ n i,j s (i,j)=""
+ for s i=$o(^DPT("LD",i)) q:i="" for s j=$o(^DPT("LD",i,j)) q:j="" do
+ . n admien s admien=^(j) ; Patient Movement IEN stored in Index
+ . n dfn s dfn=j
+ . n bed s bed=$get(^DPT(dfn,.108))
+ . i bed'="" quit ; if bed is not empty, quit!
+ . s counter=counter+1
+ . n wardname s wardname=^DPT(dfn,.107)
+ . s wardbed(wardname,"NONE"_counter)=$p(^DPT(dfn,0),"^",1,2) ; name, sex
+ . n admdate s admdate=$P(^DGPM(admien,0),"^")
+ . s $p(wardbed(wardname,"NONE"_counter),"^",3)=$$DATE^TIULS(admdate,"AMTH DD@HR:MIN")
+ . s $p(wardbed(wardname,"NONE"_counter),"^",4)=1 ; lodger
+ . n edw s edw=+$p($g(^("JJIH0")),"^")
+ . s $p(wardbed(wardname,"NONE"_counter),"^",5)=edw
+ . n mot s mot=+$p($g(^("JJIH0")),"^",2)
+ . s $p(wardbed(wardname,"NONE"_counter),"^",6)=mot
+ ;
+ ; Now loop through the results and count beds, males, and females
+ ; Result will be in wardbed("ward name")=
+ ; occ beds/total^occmale/maletotal^occfemale/femaletotal^oos^
+ ; emptymale/emptyfemale/emptytotal
+ n i s i="" n j s j="" ; i loops through wards, j beds
+ f s i=$o(wardbed(i)) q:i="" d
+ . n nBed,nMale,nFemale,nOOS,nMaleBed,nFemaleBed,nEmptyMaleBed,nEmptyFemaleBed
+ . s (nBed,nMale,nFemale,nOOS,nMaleBed,nFemaleBed,nEmptyMaleBed,nEmptyFemaleBed)=0
+ . ;
+ . f s j=$o(wardbed(i,j)) q:j="" d
+ . . n node s node=wardbed(i,j)
+ . . i +j s nBed=nBed+1 ; if bed is numeric, then count it as a bed. If NONE, won't count
+ . . i $p(j,"-",3)["M" s nMaleBed=nMaleBed+1 ; Male Bed
+ . . i $p(j,"-",3)["F" s nFemaleBed=nFemaleBed+1 ; Female Bed
+ . . i $p(j,"-",3)["M"&($p(node,"^")="") s nEmptyMaleBed=nEmptyMaleBed+1 ; Empty Male Bed
+ . . i $p(j,"-",3)["F"&($p(node,"^")="") s nEmptyFemaleBed=nEmptyFemaleBed+1 ; Empty Female Bed
+ . . i $p(node,"^",2)="M" s nMale=nMale+1 ; Male Patient
+ . . i $p(node,"^",2)="F" s nFemale=nFemale+1 ; Female Patient
+ . . i $p(node,"^",7)="1" s nOOS=nOOS+1 ; Out of Service Bed
+ . ;
+ . n nOccupied s nOccupied=nMale+nFemale
+ . n nAvailBed s nAvailBed=nBed-nOccupied
+ . n % s %="/"
+ . s wardbed(i)=nOccupied_%_nBed_U_nMale_%_nMaleBed_U_nFemale_%_nFemaleBed_U_nOOS_U_nEmptyMaleBed_%_nEmptyFemaleBed_%_nAvailBed
+ ;
+ ; Now, loop again and count the counts for a total census.
+ n i s i=""
+ n tBed,tMale,tFemale,tOOS s (tBed,tMale,tFemale,tOOS)=0 ; Totals
+ f s i=$o(wardbed(i)) q:i="" d
+ . n node s node=wardbed(i)
+ . n nBed s nBed=$p($p(wardbed(i),"^"),"/",2)
+ . n nMale s nMale=$p(wardbed(i),"^",2)
+ . n nFemale s nFemale=$p(wardbed(i),"^",3)
+ . n nOOS s nOOS=$p(wardbed(i),"^",4)
+ . s tBed=tBed+nBed
+ . s tMale=tMale+nMale
+ . s tFemale=tFemale+nFemale
+ . s tOOS=tOOS+nOOS
+ ; done
+ ;
+ ; Set the totals at the top top node in the following format
+ ; wardbed=beds^males^females^empty beds^occupancy %
+ n tEmptyBed s tEmptyBed=tBed-(tMale+tFemale+tOOS) ; Empty beds
+ ;
+ n %occupancy
+ ; Prevent div by zero error if beds are not there!!!
+ i tBed=0 s %occupancy=0
+ e s %occupancy=(1-(tEmptyBed/tBed))*100 ; Reader: math quiz for you
+ s %occupancy=$fn(%occupancy,"",0) ; Round up to 0 decimal places
+ ;
+ s wardbed=tBed_U_tMale_U_tFemale_U_tEmptyBed_U_%occupancy
+ ;
+ ; Put it in the EWD Session
+ do clearSessionArray^%zewdAPI("wardbed",sessid)
+ do mergeArrayToSession^%zewdAPI(.wardbed,"wardbed",sessid)
+ ;
+ zwrite:debug wardbed
+ quit ""
+ ;
+oos(bedien) ; Is the bed out of service ; Public $$
+ ; Input: bedien
+ ; Output: 0 -> not out of service -> Active
+ ; 1^reason -> Out of service and reason
+ ;
+ ; First OOS date in the inverse index is the latest
+ N X S X=$O(^DG(405.4,bedien,"I","AINV",0))
+ I 'X Q 0 ; if none, quit
+ ;
+ S X=$O(^(+X,0)) ; Then get ifn
+ Q:'$d(^DG(405.4,bedien,"I",+X,0)) 0 ; confirm that entry exists
+ ;
+ N DGND S DGND=^(0) ; Out of Service Node
+ N OOSD S OOSD=$P(DGND,"^") ; Out of Service Date
+ N OOSR S OOSR=$P(DGND,"^",4) ; Out of Service Restore
+ N NOW S NOW=$$NOW^XLFDT() ; Now
+ ;
+ I OOSD>NOW Q 0 ; If OOSD in future, bed is active
+ ;
+ ; at this point, OOSD is now or in the past.
+ ; Is there a restore date less than today's date? if yes, bed is active
+ I OOSR'="",OOSR
+
+
+
+Display User Characteristics
+
+
+
+ Log out
+
+
diff --git a/ewd/ewdapps/ewd-fm/r/KBANDemo.m b/ewd/ewdapps/ewd-fm/r/KBANDemo.m
new file mode 100644
index 0000000..1534579
--- /dev/null
+++ b/ewd/ewdapps/ewd-fm/r/KBANDemo.m
@@ -0,0 +1,85 @@
+KBANDemo ; Test to demo EWD ; 8/2/11 1:53pm
+ ;;
+login(sessid)
+ n error s error=""
+ n un,pw
+ s un=$$getTextValue^%zewdAPI("username",sessid)
+ s pw=$$getPasswordValue^%zewdAPI("password",sessid)
+ s %ZIS="0H",IOP="NULL"
+ d ^%ZIS
+ i POP s error="Programming error" d ^%ZTER g EXIT
+ d SETUP^XUSRB() ; Set-up for GUI signon
+ n RETURN
+ D VALIDAV^XUSRB(.RETURN,$$ENCRYP^XUSRB1(un_";"_pw))
+ i DUZ'>0 s error="Not a valid login"
+ i error="" d ; everything is okay; save symtab crap
+ . d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid)
+ . d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid)
+ . d setSessionValue^%zewdAPI("U","^",sessid)
+ q error
+EXIT D:$G(DUZ) LOGOUT^XUSRB
+ Q error
+DisplayUserCharacteristics(sessid)
+ D FillSymTab(sessid)
+ d clearTextArea^%zewdAPI("display",sessid)
+ ; d appendToTextArea^%zewdAPI("display","blha blha",sessid)
+ N ZTQUEUED,ORHFS,ORSUB,ROOT,ORIO,ORHANDLE,ORWINDEV
+ N IOM,IOSL,IOST,IOF,IOT,IOS,POP
+ S (ORSUB,ROOT)="ORDATA",ORIO="OR WINDOWS HFS",ORTEXT=$NA(^TMP(ORSUB,$J,1)),ORHANDLE="ORWRP"
+ S ORHFS=$$HFS^ORWRP(),ORWINDEV=1 ;Flag for printing to windows device
+ D HFSOPEN^ORWRP(ORHANDLE,ORHFS,"W")
+ I POP D Q
+ . I $D(ROOT) D SETITEM^ORWRP(.ROOT,"ERROR: Unable to open HFS file")
+ D IOVAR^ORWRP(.ORIO,,,"P-WINHFS80")
+ N $ETRAP,$ESTACK
+ S $ETRAP="D ERR^ORWRP Q"
+ U IO
+ D ^XQUSR
+ D HFSCLOSE^ORWRP(ORHANDLE,ORHFS)
+ N txt M txt=@ORTEXT
+ D mergeToTextArea^%zewdAPI("display",.txt,sessid)
+ Q ""
+SignonTxt(sessid) ;
+ S U="^"
+ D setSessionValue^%zewdAPI("signontxt","Welcome to Wonderful Veldt of EWD")
+ Q ""
+getUsernames(sessid)
+ d clearList^%zewdAPI("user",sessid)
+ n sam
+ d LIST^DIC(200,"","@;.01","PKU","*","","","","","","sam")
+ n i s i=0
+ f s i=$o(sam("DILIST",i)) q:i="" d
+ . n entry s entry=sam("DILIST",i,0)
+ . d appendToList^%zewdAPI("user",$p(entry,U,2),$p(entry,U),sessid)
+ quit ""
+getInfo(sessid)
+ S ^KBANSAM=1
+ n DUZ s DUZ=$$getSessionValue^%zewdAPI("user",sessid)
+ n Name s Name=$$GET1^DIQ(200,DUZ_",",.01)
+ n officePhone s officePhone=$$GET1^DIQ(200,DUZ,"OFFICE PHONE")
+ d setSessionValue^%zewdAPI("Name",Name,sessid)
+ d setSessionValue^%zewdAPI("officePhone",officePhone,sessid)
+ quit ""
+savePhones(sessid)
+ quit ""
+CVC(sessid) ; Change verify code
+ ; get stored session values for DUZ, IO, and U
+ d FillSymTab(sessid)
+ n VC1,VC2,VC3
+ s VC1=$$getPasswordValue^%zewdAPI("vc1",sessid)
+ s VC2=$$getPasswordValue^%zewdAPI("vc2",sessid)
+ s VC3=$$getPasswordValue^%zewdAPI("vc3",sessid)
+ n eVC1,eVC2,eVC3
+ s eVC1=$$ENCRYP^XUSRB1(VC1)
+ s eVC2=$$ENCRYP^XUSRB1(VC2)
+ s eVC3=$$ENCRYP^XUSRB1(VC3)
+ n vcString s vcString=eVC1_U_eVC2_U_eVC3
+ n ret
+ d CVC^XUSRB(.ret,vcString)
+ i ret(0)=0 q ""
+ i ret(0)>0 q ret(1)
+FillSymTab(id) ; Fill symbol table
+ d mergeArrayFromSession^%zewdAPI(.DUZ,"DUZ",id)
+ d mergeArrayFromSession^%zewdAPI(.IO,"IO",id)
+ s U=$$getSessionValue^%zewdAPI("U",id)
+ quit
diff --git a/ewd/ewdapps/ewd-fm/r/KBANEWD1.m b/ewd/ewdapps/ewd-fm/r/KBANEWD1.m
new file mode 100644
index 0000000..87afe2f
--- /dev/null
+++ b/ewd/ewdapps/ewd-fm/r/KBANEWD1.m
@@ -0,0 +1,104 @@
+KBANEWD1 ; KBAN/SMH - Custom Tag Processor ; 8/14/11 9:08pm
+ ;;
+SS(nodeOID,attrValues,docOID,technology) ; to get VISTA Session Variables
+ N attr
+ S attr("method")="SS2^KBANEWD1"
+ S attr("param1")="#ewd_sessid"
+ S attr("type")="procedure"
+ N xOID s xOID=$$addElementToDOM^%zewdDOM("ewd:execute",nodeOID,"",.attr)
+ D removeIntermediateNode^%zewdDOM(nodeOID)
+ quit
+SS2(sessid)
+ d mergeArrayFromSession^%zewdAPI(.DUZ,"DUZ",sessid)
+ d mergeArrayFromSession^%zewdAPI(.IO,"IO",sessid)
+ s U=$$getSessionValue^%zewdAPI("U",sessid)
+ quit
+EDIT(nodeOID,attrValues,docOID,technology) ; Fileman Field Edit tag
+ ; Get Attributes supplied to us: dd, fields, iens
+ ;
+ N attrs
+ D getAttributeValues^%zewdCustomTags(nodeOID,.attrs)
+ N DD S DD=$g(attrs("dd")) ; Data Dictionary
+ N FIELDS S FIELDS=$g(attrs("fields")) ; Fields to Edit
+ N IENS S IENS=$g(attrs("iens")) ; IENs to Edit
+ ;
+ ; Does our Form Tag Exist?
+ N fOID S fOID=$$getElementById^%zewdDOM("fmEdit",docOID)
+ ; -----
+ ; If it doesn't exist, create it
+ IF fOID="" DO
+ . ; Create the Form Tag
+ . ; Attributes
+ . N attr
+ . S attr("name")="fmEdit"
+ . S attr("id")="fmEdit"
+ . S attr("action")="ewd"
+ . S attr("method")="post"
+ . ;
+ . ; Add form
+ . S fOID=$$addElementToDOM^%zewdDOM("form",nodeOID,"",.attr,"")
+ ; -----
+ ; Destination Input Name
+ N dst S dst="DD"_$TR(DD,".","_")_"F"_$TR(FIELDS,".","_")
+ ;
+ ; Build to set the value of the default; child of form in fOID
+ K attr
+ S attr("method")="XTARGET^KBANEWD1"
+ S attr("param1")="#ewd_sessid"
+ S attr("param2")=dst
+ S attr("param3")=DD
+ S attr("param4")=$$stripSpaces^%zewdAPI(phpVars($P(IENS,"&php;",2))) ; becomes #DUZ
+ S attr("param5")=FIELDS
+ S attr("type")="procedure"
+ N xOID s xOID=$$addElementToDOM^%zewdDOM("ewd:execute",fOID,"",.attr)
+ ;
+ ; Add label
+ N text S text=$$GET1^DID(DD,FIELDS,"","LABEL") ; this should be i18n in MSC FM
+ S text=text_": "
+ K attr S attr("for")=dst
+ N lOID s lOID=$$addElementToDOM^%zewdDOM("label",fOID,"",.attr,text)
+ ; ------------
+ ;
+ ; Add Input Tag
+ ; Attributes
+ K attr
+ S attr("type")="text" ; Should be dynamic based on FM DataType
+ S attr("name")=dst
+ S attr("value")="*"
+ ;
+ ; Add input Tag under form tag
+ N iOID S iOID=$$addElementToDOM^%zewdDOM("input",fOID,"",.attr,"")
+ ;
+ ; Remove custom tag
+ D removeIntermediateNode^%zewdDOM(nodeOID)
+ ;break
+ QUIT
+ ;
+ ; ---
+ ;
+XTARGET(sessid,fieldName,DD,IENS,FIELDS) ; Proc - Xecute Target - Adds Default Value to Sess
+ N VAL S VAL=$$GET1^DIQ(DD,IENS,FIELDS)
+ D setSessionValue^%zewdAPI(fieldName,VAL,sessid)
+ QUIT
+ ;
+ ; ---
+ ;
+VAL(sessid)
+ D setSessionValue^%zewdAPI("tmp.error","Null Validation",sessid)
+ D setSessionValue^%zewdAPI("tmp.name","testdiv",sessid) ; testdiv hardcoded for now.
+ N KBANDD S KBANDD=+$TR($P(requestArray("name"),"DD",2),"_",".") ; todo: check for 0 value
+ N KBANF S KBANF=+$TR($P(requestArray("name"),"F",2),"_",".") ; todo: check for 0 value
+ N KBANIENS S KBANIENS=requestArray("iens")
+ I $E(KBANIENS,$L(KBANIENS))'="," S KBANIENS=KBANIENS_","
+ N KBANV S KBANV=requestArray("value") ; todo: unescape urlencoding.
+ N KBANRESULT ; Result
+ N KBANMSG
+ D VAL^DIE(KBANDD,KBANIENS,KBANF,"E",KBANV,.KBANRESULT,"","KBANMSG")
+ I $D(KBANMSG) K ^ZZSAM M ^ZZSAM=KBANMSG
+ ; KBANMSG(DIERR,1,TEXT,1) can be longer than one line (last subscript)... loop...
+ ; HTML formatting for error message???
+ I KBANRESULT="^" D setSessionValue^%zewdAPI("tmp.error",KBANMSG("DIERR",1,"TEXT",1),sessid)
+ E D
+ . D setSessionValue^%zewdAPI("tmp.result","Success in Validating: "_$$SYMENC^MXMLUTL($$SYMENC^MXMLUTL(KBANRESULT(0))),sessid)
+ . D setSessionValue^%zewdAPI("tmp.error","",sessid)
+ QUIT ""
diff --git a/ewd/ewdapps/mso/pages/index.ewd b/ewd/ewdapps/mso/pages/index.ewd
new file mode 100644
index 0000000..38d5498
--- /dev/null
+++ b/ewd/ewdapps/mso/pages/index.ewd
@@ -0,0 +1,20 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/ewd/ewdapps/so/pages/cvc.ewd b/ewd/ewdapps/so/pages/cvc.ewd
new file mode 100644
index 0000000..f4df9ac
--- /dev/null
+++ b/ewd/ewdapps/so/pages/cvc.ewd
@@ -0,0 +1,37 @@
+
+(C) Sam Habiel 2011
+Inherits EWD License, whatever it is.
+
+
+
+
+ Change Verify Code
+
+
+
Change Verify Code
+
+
+
+
diff --git a/ewd/ewdapps/so/pages/ewdTemplate.ewd b/ewd/ewdapps/so/pages/ewdTemplate.ewd
new file mode 100644
index 0000000..6b38c68
--- /dev/null
+++ b/ewd/ewdapps/so/pages/ewdTemplate.ewd
@@ -0,0 +1,365 @@
+
+Sign On Template File.
+Contains CSS and JS
+V 0.1
+Author: Sam Habiel
+License: Same as EWD License
+
+CSS inspired by:
+http://www.red-team-design.com/slick-login-form-with-html5-css3?utm_source=feedburner&utm_medium=feed&utm_campaign=Feed%3A+redteamdesign+%28Red+Team+Design%29&utm_content=FeedBurner
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/ewd/ewdapps/so/pages/index.ewd b/ewd/ewdapps/so/pages/index.ewd
new file mode 100644
index 0000000..34fe9a0
--- /dev/null
+++ b/ewd/ewdapps/so/pages/index.ewd
@@ -0,0 +1,82 @@
+
+(C) Sam Habiel 2011
+License: Inherits EWD License, whatever it is.
+
+
+
+
+
+
+ VISTA Sign-On
+
+
+
+
+
+
+
+
+
+
diff --git a/ewd/ewdapps/so/pages/installedapps.ewd b/ewd/ewdapps/so/pages/installedapps.ewd
new file mode 100644
index 0000000..c5a3613
--- /dev/null
+++ b/ewd/ewdapps/so/pages/installedapps.ewd
@@ -0,0 +1,20 @@
+
+Bed Board
+EWD Fileman
+Inquire into File Entries
+
+ var x = function() {
+ apps = ;
+ var fs = document.getElementById("fs");
+ for (app in apps)
+ {
+ var input = document.createElement("input");
+ input.setAttribute('id',apps[app]);
+ input.setAttribute('type','button');
+ input.setAttribute('value',apps[app]);
+
+ fs.appendChild(input);
+ };
+ }();
+
+
diff --git a/ewd/ewdapps/so/pages/menu.ewd b/ewd/ewdapps/so/pages/menu.ewd
new file mode 100644
index 0000000..7a267e3
--- /dev/null
+++ b/ewd/ewdapps/so/pages/menu.ewd
@@ -0,0 +1,25 @@
+
+
+
+
+ Menu System
+
+
+
+
+
+
+
diff --git a/ewd/ewdapps/so/pages/redir.ewd b/ewd/ewdapps/so/pages/redir.ewd
new file mode 100644
index 0000000..b751915
--- /dev/null
+++ b/ewd/ewdapps/so/pages/redir.ewd
@@ -0,0 +1 @@
+
diff --git a/ewd/ewdapps/so/r/ewdu.m b/ewd/ewdapps/so/r/ewdu.m
new file mode 100644
index 0000000..e0e7e8a
--- /dev/null
+++ b/ewd/ewdapps/so/r/ewdu.m
@@ -0,0 +1,172 @@
+ewdu ; JJIH/SMH - Utilities for EWD to VISTA interaction ; 11/18/11 5:39pm
+ ;
+r(sessid) ; Restore Symbol Table
+ d mergeArrayFromSession^%zewdAPI(.DUZ,"DUZ",sessid)
+ d mergeArrayFromSession^%zewdAPI(.IO,"IO",sessid)
+ s U=$$getSessionValue^%zewdAPI("U",sessid)
+ s DILOCKTM=$$getSessionValue^%zewdAPI("DILOCKTM",sessid)
+ s DIQUIET=$$getSessionValue^%zewdAPI("DIQUIET",sessid)
+ s DISYS=$$getSessionValue^%zewdAPI("DISYS",sessid)
+ s DT=$$getSessionValue^%zewdAPI("DT",sessid)
+ s DTIME=$$getSessionValue^%zewdAPI("DTIME",sessid)
+ quit
+ ;
+s(sessid) ; Save to Symbol Table
+ set DIQUIET=1 d DT^DICRW
+ d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid)
+ d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid)
+ d setSessionValue^%zewdAPI("U","^",sessid)
+ d setSessionValue^%zewdAPI("DILOCKTM",DILOCKTM,sessid)
+ d setSessionValue^%zewdAPI("DIQUIET",DIQUIET,sessid)
+ d setSessionValue^%zewdAPI("DISYS",DISYS,sessid)
+ d setSessionValue^%zewdAPI("DT",DT,sessid)
+ d setSessionValue^%zewdAPI("DTIME",DTIME,sessid)
+ quit
+ ;
+ ; Custom Tag
+SS(nodeOID,attrValues,docOID,technology) ; to get VISTA Session Variables
+ N attr
+ S attr("method")="r^ewdu"
+ S attr("param1")="#ewd_sessid"
+ S attr("type")="procedure"
+ N xOID s xOID=$$addElementToDOM^%zewdDOM("ewd:execute",nodeOID,"",.attr)
+ D removeIntermediateNode^%zewdDOM(nodeOID)
+ quit
+ ;
+NULL ; Open Null Device
+ s %ZIS="0H",IOP="NULL" d ^%ZIS
+ i POP s $ec=",U1," ; this crashes everything... intended...
+ q
+ ;
+setup(sessid) ; Set-up and SSO
+ ; TODO: Set IO("CLNM")
+ i '$data(IO) d NULL ; Open Null Device
+ s IO("IP")=$$getServerValue^%zewdAPI("REMOTE_ADDR",sessid)
+ n return
+ d SETUP^XUSRB(.return) ; Set-up and Try SSO
+ ;0=server name, 1=volume, 2=uci, 3=device, 4=# attempts, 5=skip signon-screen,6=Domain Name, 7=Production (0=no, 1=Yes)
+ i $g(return(5)),DUZ>0 q $$s(sessid) ; Single Sign-On Successful; need redirect though here.
+ e d q "" ; Otherwise, get INTRO text
+ . N INTROTXT
+ . D INTRO^XUSRB(.INTROTXT)
+ . d mergeArrayToSession^%zewdAPI(.INTROTXT,"so.introtxt",sessid)
+ . d setSessionValue^%zewdAPI("so.serverName",return(0),sessid)
+ . d setSessionValue^%zewdAPI("so.volume",return(1),sessid)
+ . d setSessionValue^%zewdAPI("so.uci",return(2),sessid)
+ . ; Don't care about device! (return(3))
+ . ; Number of Attempts (return(4))
+ . d setSessionValue^%zewdAPI("so.fqdn",return(6),sessid)
+ . d setSessionValue^%zewdAPI("so.prod",return(7),sessid)
+ . ;
+ . ; Get the Date in the Symbol Table since $$SITE wants it
+ . s DIQUIET=1 d DT^DICRW
+ . ;
+ . ; Get the site name and format it
+ . n sitename s sitename=$P($$SITE^VASITE(),"^",2)
+ . s sitename=$$TITLE^XLFSTR(sitename)
+ . d setSessionValue^%zewdAPI("so.sitename",sitename,sessid)
+ ; ---
+so(sessid) ; SO from EWD; routes to $$SO
+ ; TODO: Set IO("CLNM")
+ d NULL ; IO set-up
+ s IO("IP")=$$getServerValue^%zewdAPI("REMOTE_ADDR",sessid)
+ d SETUP^XUSRB(); ; This time, just need partition set-up
+ n ac s ac=$$getSessionValue^%zewdAPI("ac",sessid)
+ n vc s vc=$$getSessionValue^%zewdAPI("vc",sessid)
+ n result s result=$$SO(ac,vc)
+ ;
+ ; Change Verify Code Logic Ahead... Damn Complex!
+ i $l(result),result="CVC" d q "" ; User must change Verify Code
+ . S DUZ=$$STATE^XWBSEC("XUS DUZ") ; VISTA kills off DUZ if vc needs changing.
+ . ; That's fine when it can get it back. But we are not a stateful process.
+ . ; By the time the second request is made, XUS DUZ is gone gone gone.
+ . d s(sessid) ; Save symbol table for next page (including DUZ)
+ . d setRedirect^%zewdAPI("cvc",sessid) ; Next page is cvc.
+ . d setSessionValue^%zewdAPI("cvcForced",1,sessid) ; Need to know that the user is toast!
+ ;
+ i $l(result) q result ; General Error Message - User can't log-in
+ ;
+ e d q "" ; Everything Okay
+ . d s(sessid)
+ . i $$isCheckboxOn^%zewdAPI("cvc","cvc",sessid) d setRedirect^%zewdAPI("cvc",sessid)
+ ;
+SO(ac,vc) ; Sign-on to VISTA, AV way
+ ; TODO: Handle the rest of the return values
+ N return
+ ; if ac contains ;, then it contains the verify code
+ ; else, send ac;vc
+ if ac[";" d VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac))
+ else d VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac_";"_vc))
+ i return(0)>0,'return(2) q "" ; Sign on successful!
+ i return(0)=0,return(2) q "CVC" ; Verify Code must be changed NOW!
+ i $l(return(3)) q return(3) ; Error Message returned whole
+ ; Note: division selection not implemented here
+ quit ""
+ ; ---
+sss(id) ; Test
+ d setRedirect^%zewdAPI("index",id,"bb")
+ q ""
+whoami(sessid) ; Who Am I? PrePage Script
+ d r(sessid)
+ n Name s Name=$$GET1^DIQ(200,DUZ,.01) ; User Name
+ d setSessionValue^%zewdAPI("Name",Name,sessid)
+ q ""
+cvc(sessid) ; Change Verify Code
+ ; get stored session values for DUZ, IO, and U
+ d r(sessid) ; Restore the Symbol Table
+ n VC1,VC2,VC3
+ s VC1=$$getPasswordValue^%zewdAPI("vc1",sessid)
+ s VC2=$$getPasswordValue^%zewdAPI("vc2",sessid)
+ s VC3=$$getPasswordValue^%zewdAPI("vc3",sessid)
+ ; Uppercase them -- otherwise CVC will fail.
+ s VC1=$$UP^XLFSTR(VC1)
+ s VC2=$$UP^XLFSTR(VC2)
+ s VC3=$$UP^XLFSTR(VC3)
+ ; Roman Cipher them vista-wise
+ n eVC1,eVC2,eVC3
+ s eVC1=$$ENCRYP^XUSRB1(VC1)
+ s eVC2=$$ENCRYP^XUSRB1(VC2)
+ s eVC3=$$ENCRYP^XUSRB1(VC3)
+ ; Set-up Call
+ n vcString s vcString=eVC1_U_eVC2_U_eVC3
+ n ret
+ d CVC^XUSRB(.ret,vcString)
+ i ret(0)=0 q "" ; Success
+ i ret(0)>0 q ret(1) ; Failure
+ ;;
+ ;;return(0)=0
+ ;;return(1)=0
+ ;;return(2)=1
+ ;;return(3)="VERIFY CODE must be changed before continued use."
+ ;;return(4)=0
+ ;;return(5)=0
+ ;;return(6)=""
+ ;;return(7)="Good evening DOCTOR,TEN"
+ ;;return(8)=" You last signed on today at 22:19"
+listEWDApps(sessid) ; Lists all available EWD Applicaitons, not including ewdMgr. Intended to be an imitation of a menu.
+ n apps ; Will hold our applications
+ do
+ . n ewdpath s ewdpath=^zewd("config","applicationRootPath")
+ . o "lsApps":(shell="/bin/bash":command="ls -1 "_ewdpath:READONLY)::"PIPE"
+ . u "lsApps"
+ . n line
+ . n counter s counter=1
+ . for read line quit:$zeof do
+ . . i line="ewdMgr" quit ; Don't include ewdMgr
+ . . s apps(counter)=line
+ . . s counter=counter+1
+ . c "lsApps"
+ . zwrite:$g(debug) apps
+ . d mergeArrayToSession^%zewdAPI(.apps,"installedapps",sessid)
+ ;
+ ; Old code: uses JSON
+ ; n appsjson s appsjson=$$arrayToJSON^%zewdJSON("apps")
+ ; zwrite:$g(debug) appsjson
+ ; d setSessionValue^%zewdAPI("appsjson",appsjson,sessid)
+ ;
+ q ""
+redir(sessid)
+ n redirapp s redirapp=$$getRequestValue^%zewdAPI("nextapp",sessid)
+ d setRedirect^%zewdAPI("index",sessid,redirapp)
+ q ""
+ ;
diff --git a/ewd/ewdapps/tutorial/pages/Page1a.ewd b/ewd/ewdapps/tutorial/pages/Page1a.ewd
new file mode 100644
index 0000000..4cc3201
--- /dev/null
+++ b/ewd/ewdapps/tutorial/pages/Page1a.ewd
@@ -0,0 +1,10 @@
+
+
+
+Test Page
+
+
+