diff --git a/p/C0CE000A.m b/p/C0CE000A.m
new file mode 100644
index 0000000..cf9132a
--- /dev/null
+++ b/p/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/p/C0CE000E.m b/p/C0CE000E.m
new file mode 100644
index 0000000..ecc0d8a
--- /dev/null
+++ b/p/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/p/C0CE000F.m b/p/C0CE000F.m
new file mode 100644
index 0000000..cfbfc1f
--- /dev/null
+++ b/p/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/p/C0CE000R.m b/p/C0CE000R.m
new file mode 100644
index 0000000..1eef15d
--- /dev/null
+++ b/p/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/p/C0CE000S.m b/p/C0CE000S.m
new file mode 100644
index 0000000..4ce5305
--- /dev/null
+++ b/p/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/p/C0CE001I.m b/p/C0CE001I.m
new file mode 100644
index 0000000..9dcf8b6
--- /dev/null
+++ b/p/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/p/C0CE001L.m b/p/C0CE001L.m
new file mode 100644
index 0000000..469702a
--- /dev/null
+++ b/p/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/p/C0CE002.m b/p/C0CE002.m
new file mode 100644
index 0000000..681a3e6
--- /dev/null
+++ b/p/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/p/C0CE003.m b/p/C0CE003.m
new file mode 100644
index 0000000..ed7ed4e
--- /dev/null
+++ b/p/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/p/C0CE004.m b/p/C0CE004.m
new file mode 100644
index 0000000..b387089
--- /dev/null
+++ b/p/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/p/C0CE005.m b/p/C0CE005.m
new file mode 100644
index 0000000..c32cdb5
--- /dev/null
+++ b/p/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/p/C0CE006.m b/p/C0CE006.m
new file mode 100644
index 0000000..0ed2690
--- /dev/null
+++ b/p/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 "