ccr demo pages compiled by EWD and renamed to the C0C name space
This commit is contained in:
george
parent
4df2b0c85b
commit
d237755e20
|
|
@ -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,"<br>",": ")
|
||||
. 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 "<ewdajaxerror>"_$c(13,10)
|
||||
w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
|
||||
w "</ewdajaxerror>"_$c(13,10)
|
||||
QUIT
|
||||
|
|
@ -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 "<html>"_$c(13,10)
|
||||
w "<head>"_$c(13,10)
|
||||
w "<title>Enterprise Web Developer : A run-time error has occurred</title>"_$c(13,10)
|
||||
w "<style type=""text/css"">"_$c(13,10)
|
||||
w " body {background: #ffffff ;}"_$c(13,10)
|
||||
w " .headerBlock {width: 100% ; background : #111111 ; horizontal-align : center ; }"_$c(13,10)
|
||||
w " .headerBlock[class] {width: 100% ; background : #111111 ; horizontal-align : center ; position: relative ; top : 30px ; border-right-style : solid ; border-right-width: 2px ; }"_$c(13,10)
|
||||
w " #headerText {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 11pt ; margin-left: 10px}"_$c(13,10)
|
||||
w " #headerSubject {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 11pt ; position: relative ; top: -30px ; text-align: center ;}"_$c(13,10)
|
||||
w " .selectedTab {border-style: outset ; background: #eeeedd ; padding-left: 8px ; padding-right: 8px ;}"_$c(13,10)
|
||||
w " .unselectedTab {border-style: groove ; padding-left: 8px ; padding-right: 8px ;}"_$c(13,10)
|
||||
w " #tabs {cursor : pointer ; height: 20px ; background : #cccccc ; text-align: center ; position: relative ; left: 25px ; font-family : Arial, Helvetica, sens-serif ; font-size: 11pt}"_$c(13,10)
|
||||
w " #mainArea {background : #dfe2f1 ; padding: 0 ; horizontal-align: center ; width : 100% ; height: auto ; border-style: solid ; border-left-width: 1px ; border-right-width: 1px ; padding-top : 0px ; margin-top : 0px}"_$c(13,10)
|
||||
w " #workArea {background : #ffffff ; horizontal-align: center ; position: relative ; top: -6px ; left: 25px ; width : 95% ; height: auto ; font-family : Arial, Helvetica, sens-serif ; font-size: 12pt ; border-style: outset}"_$c(13,10)
|
||||
w " #pageTitle {width: 100% ; height: 50px ; text-align : center ; horizontal-align : center ; font-family: Arial, sans-serif ;}"_$c(13,10)
|
||||
w " .footerBlock {width: 100% ; background : #111111 ; horizontal-align : center ;}"_$c(13,10)
|
||||
w " .footerBlock[class] {width: 100% ; background : #111111 ; horizontal-align : center ; position: relative ; top : -15px ; border-right-style : solid ; border-right-width: 2px ; }"_$c(13,10)
|
||||
w " #footerText {vertical-align: center ; font-family: Arial, sans-serif ; color: #dddddd ; font-size: 8pt ; margin-left : 10px}"_$c(13,10)
|
||||
w " #tableblock {text-align: center ; margin-top: 40px}"_$c(13,10)
|
||||
w " #hiddenForm {visibility: hidden ;}"_$c(13,10)
|
||||
w "</style>"_$c(13,10)
|
||||
w "</head>"_$c(13,10)
|
||||
w "<body>"_$c(13,10)
|
||||
w ""_$c(13,10)
|
||||
w " <div id=""mainArea"">"_$c(13,10)
|
||||
w " <div id=""pageTitle"">"_$c(13,10)
|
||||
w " <h1>Enterprise Web Developer (Build 790)</h1>"_$c(13,10)
|
||||
w " </div>"_$c(13,10)
|
||||
w ""_$c(13,10)
|
||||
w " <div id=""workArea"">"_$c(13,10)
|
||||
w " <div id=""tableblock"">"_$c(13,10)
|
||||
w " <h3>An Error has occurred</h3>"_$c(13,10)
|
||||
w " <br>"_$c(13,10)
|
||||
w " <h3>"_$g(%KEY("error"))_"</h3>"_$c(13,10)
|
||||
w " </div>"_$c(13,10)
|
||||
w " </div>"_$c(13,10)
|
||||
w " </div>"_$c(13,10)
|
||||
w ""_$c(13,10)
|
||||
w " <div class=footerBlock>"_$c(13,10)
|
||||
w " <p id=""footerText""> © 2004-2009 M/Gateway Developments Ltd All Rights Reserved</p>"_$c(13,10)
|
||||
w " </div>"_$c(13,10)
|
||||
w "</body>"_$c(13,10)
|
||||
w "</html>"_$c(13,10)
|
||||
QUIT
|
||||
|
|
@ -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,"<br>",": ")
|
||||
. 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 " <span>"_$c(13,10)
|
||||
.w " <div href='/ewd/patientportal/ewdErrorRedirect.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("ewdErrorRedirect")_"&ewd_urlNo=ewdAjaxErrorRedirect1' id=""zewdRef"">"_$c(13,10)
|
||||
.w "</div>"_$c(13,10)
|
||||
.w " </span>"_$c(13,10)
|
||||
.
|
||||
w "<span id=""ewdajaxonload"">"_$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 "</span>"_$c(13,10)
|
||||
QUIT
|
||||
|
|
@ -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,"<br>",": ")
|
||||
. 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 "<html>"_$c(13,10)
|
||||
w " <head>"_$c(13,10)
|
||||
w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
|
||||
w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
|
||||
w "</script>"_$c(13,10)
|
||||
w " <title>"_$c(13,10)
|
||||
w "Ajax Error Redirect page"_""
|
||||
w " </title>"_$c(13,10)
|
||||
w " <head>"_$c(13,10)
|
||||
w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
|
||||
w "Please wait...."_""
|
||||
w " </body>"_$c(13,10)
|
||||
w " </head>"_$c(13,10)
|
||||
w " <script language=""javascript"">"_$c(13,10)
|
||||
w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
|
||||
w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
|
||||
w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
|
||||
w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.page.setErrorClass = function () { "_$c(13,10)
|
||||
w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("setErrorClasses^%zewdAPI")_"','','synch','','') ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
|
||||
w " var json,x ;"_$c(13,10)
|
||||
w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
|
||||
w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " else {"_$c(13,10)
|
||||
w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
|
||||
w " //eval(x) ;"_$c(13,10)
|
||||
w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " //json=toJsonString(objName);"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("saveJSON^%zewdAPI")_"&px1=' + objName + '&px2=' + json + '','','synch','','') ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
|
||||
w " if (refresh) {"_$c(13,10)
|
||||
w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
|
||||
w " var objExists = ""undefined"" ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " else {"_$c(13,10)
|
||||
w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " if (objExists == ""undefined"") {"_$c(13,10)
|
||||
w " var addRef = 0 ;"_$c(13,10)
|
||||
w " if (addRefCol) addRef = 1;"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("getJSON^%zewdCompiler13")_"&px1=' + objName + '&px2=' + addRef + '','','synch','','') ;"_$c(13,10)
|
||||
w ""_""
|
||||
w " };"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("mergeToJSObject^%zewdAPI")_"&px1=' + sessionName + '&px2=' + JSObjName + '','','synch','','') ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w ""_""
|
||||
w " </script>"_$c(13,10)
|
||||
w " </head>"_$c(13,10)
|
||||
w "</html>"_$c(13,10)
|
||||
QUIT
|
||||
|
|
@ -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,"<br>",": ")
|
||||
. 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 "<html>"_$c(13,10)
|
||||
w " <head>"_$c(13,10)
|
||||
w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
|
||||
w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
|
||||
w "</script>"_$c(13,10)
|
||||
w " <title>"_$c(13,10)
|
||||
w "EWD Page using Session Variables and a PrePage Script"_""
|
||||
w " </title>"_$c(13,10)
|
||||
w " <script language=""javascript"">"_$c(13,10)
|
||||
w ""_$c(13,10)
|
||||
w " eval('"_$$getSessionValue^%zewdAPI("json",sessid)_"');"_$c(13,10)
|
||||
w " //eval('"_$$getSessionValue^%zewdAPI("json",sessid)_"') ;"_$c(13,10)
|
||||
w " alert('hello ' + person.Address.Name) ;"_$c(13,10)
|
||||
w " "_""
|
||||
w " </script>"_$c(13,10)
|
||||
w " <script language=""javascript"">"_$c(13,10)
|
||||
w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
|
||||
w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
|
||||
w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
|
||||
w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.page.setErrorClass = function () { "_$c(13,10)
|
||||
w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("setErrorClasses^%zewdAPI")_"','','synch','','') ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
|
||||
w " var json,x ;"_$c(13,10)
|
||||
w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
|
||||
w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " else {"_$c(13,10)
|
||||
w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
|
||||
w " //eval(x) ;"_$c(13,10)
|
||||
w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " //json=toJsonString(objName);"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("saveJSON^%zewdAPI")_"&px1=' + objName + '&px2=' + json + '','','synch','','') ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
|
||||
w " if (refresh) {"_$c(13,10)
|
||||
w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
|
||||
w " var objExists = ""undefined"" ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " else {"_$c(13,10)
|
||||
w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " if (objExists == ""undefined"") {"_$c(13,10)
|
||||
w " var addRef = 0 ;"_$c(13,10)
|
||||
w " if (addRefCol) addRef = 1;"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("getJSON^%zewdCompiler13")_"&px1=' + objName + '&px2=' + addRef + '','','synch','','') ;"_$c(13,10)
|
||||
w ""_""
|
||||
w " };"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("mergeToJSObject^%zewdAPI")_"&px1=' + sessionName + '&px2=' + JSObjName + '','','synch','','') ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w ""_""
|
||||
w " </script>"_$c(13,10)
|
||||
w " </head>"_$c(13,10)
|
||||
w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
|
||||
w " <h3>"_$c(13,10)
|
||||
w "This page accesses EWD Session Variables"_""
|
||||
w " </h3>"_$c(13,10)
|
||||
w " <div>"_$c(13,10)
|
||||
w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
|
||||
w " </div>"_$c(13,10)
|
||||
w " <div>"_$c(13,10)
|
||||
w "Goto"_""
|
||||
w " <a href='/ewd/patientportal/login.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("login")_"&ewd_urlNo=session1'>"_$c(13,10)
|
||||
w "next page"_""
|
||||
w " </a>"_$c(13,10)
|
||||
w " </div>"_$c(13,10)
|
||||
w " </body>"_$c(13,10)
|
||||
w "</html>"_$c(13,10)
|
||||
QUIT
|
||||
|
|
@ -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,"<br>",": ")
|
||||
. 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 "<html>"_$c(13,10)
|
||||
w " <head>"_$c(13,10)
|
||||
w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
|
||||
w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
|
||||
w "</script>"_$c(13,10)
|
||||
w " <title>"_$c(13,10)
|
||||
w "The start EWD Page"_""
|
||||
w " </title>"_$c(13,10)
|
||||
w " <script language=""javascript"">"_$c(13,10)
|
||||
w ""_$c(13,10)
|
||||
w " function init() "_$c(13,10)
|
||||
w " {"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('/ewd/patientportal/loginPanel.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("loginPanel")_"&ewd_urlNo=index1','LP','get','','');"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " "_""
|
||||
w " </script>"_$c(13,10)
|
||||
w " <script language=""javascript"">"_$c(13,10)
|
||||
w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
|
||||
w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
|
||||
w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
|
||||
w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.page.setErrorClass = function () { "_$c(13,10)
|
||||
w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("setErrorClasses^%zewdAPI")_"','','synch','','') ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
|
||||
w " var json,x ;"_$c(13,10)
|
||||
w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
|
||||
w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " else {"_$c(13,10)
|
||||
w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
|
||||
w " //eval(x) ;"_$c(13,10)
|
||||
w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " //json=toJsonString(objName);"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("saveJSON^%zewdAPI")_"&px1=' + objName + '&px2=' + json + '','','synch','','') ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
|
||||
w " if (refresh) {"_$c(13,10)
|
||||
w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
|
||||
w " var objExists = ""undefined"" ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " else {"_$c(13,10)
|
||||
w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " if (objExists == ""undefined"") {"_$c(13,10)
|
||||
w " var addRef = 0 ;"_$c(13,10)
|
||||
w " if (addRefCol) addRef = 1;"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("getJSON^%zewdCompiler13")_"&px1=' + objName + '&px2=' + addRef + '','','synch','','') ;"_$c(13,10)
|
||||
w ""_""
|
||||
w " };"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("mergeToJSObject^%zewdAPI")_"&px1=' + sessionName + '&px2=' + JSObjName + '','','synch','','') ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w ""_""
|
||||
w " </script>"_$c(13,10)
|
||||
w " </head>"_$c(13,10)
|
||||
w " <body onload=""init() ; EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
|
||||
w " <h3>"_$c(13,10)
|
||||
w "This page is the first page in this application"_""
|
||||
w " </h3>"_$c(13,10)
|
||||
w " <div id=""LP"">"_$c(13,10)
|
||||
w "Login"_""
|
||||
w " </div>"_$c(13,10)
|
||||
w " <div>"_$c(13,10)
|
||||
w " <a href='/ewd/patientportal/session.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("session")_"&ewd_urlNo=index2'>"_$c(13,10)
|
||||
w "Go to the second page"_""
|
||||
w " </a>"_$c(13,10)
|
||||
w " </div>"_$c(13,10)
|
||||
w " <div>"_$c(13,10)
|
||||
w " <a href='/ewd/patientportal/ccr.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("ccr")_"&ewd_urlNo=index3'>"_$c(13,10)
|
||||
w "Goto the CCR"_""
|
||||
w " </a>"_$c(13,10)
|
||||
w " </div>"_$c(13,10)
|
||||
w " <div>"_$c(13,10)
|
||||
w " <a href='/ewd/patientportal/ccrexe.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("ccrexe")_"&ewd_urlNo=index4'>"_$c(13,10)
|
||||
w "Goto CCR 2"_""
|
||||
w " </a>"_$c(13,10)
|
||||
w " </div>"_$c(13,10)
|
||||
w " <div>"_$c(13,10)
|
||||
w " <a href='/ewd/patientportal/ccr2.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("ccr2")_"&ewd_urlNo=index5'>"_$c(13,10)
|
||||
w "Goto Hello World"_""
|
||||
w " </a>"_$c(13,10)
|
||||
w " </div>"_$c(13,10)
|
||||
w " </body>"_$c(13,10)
|
||||
w "</html>"_$c(13,10)
|
||||
QUIT
|
||||
|
|
@ -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,"<br>",": ")
|
||||
. 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 " <div id=""ewdscript"">"_$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 " </div>"_$c(13,10)
|
||||
.w " <div id=""yuiDialogRegloginPanel7"">"_$c(13,10)
|
||||
.w " <div id=""yuiDialogDivloginPanel7"" style=""visibility:hidden"">"_$c(13,10)
|
||||
.w " <div class=""hd"">"_$c(13,10)
|
||||
.w "Login"_""
|
||||
.w " </div>"_$c(13,10)
|
||||
.w " <div class=""bd"">"_$c(13,10)
|
||||
.w "Login Form will go here"_""
|
||||
.w " </div>"_$c(13,10)
|
||||
.w " <div class=""ft"">"_$c(13,10)
|
||||
.w "</div>"_$c(13,10)
|
||||
.w " </div>"_$c(13,10)
|
||||
.w " </div>"_$c(13,10)
|
||||
.
|
||||
w "<span id=""ewdajaxonload"">"_$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 "</span>"_$c(13,10)
|
||||
QUIT
|
||||
|
|
@ -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,"<br>",": ")
|
||||
. 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
|
||||
|
|
@ -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,"<br>",": ")
|
||||
. 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 "<html>"_$c(13,10)
|
||||
w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
|
||||
w "hello world"_""
|
||||
w " </body>"_$c(13,10)
|
||||
w "</html>"_$c(13,10)
|
||||
QUIT
|
||||
|
|
@ -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,"<br>",": ")
|
||||
. 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
|
||||
|
|
@ -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,"<br>",": ")
|
||||
. 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 "<html>"_$c(13,10)
|
||||
w " <head>"_$c(13,10)
|
||||
w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
|
||||
w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
|
||||
w "</script>"_$c(13,10)
|
||||
w " <title>"_$c(13,10)
|
||||
w "The second EWD Page"_""
|
||||
w " </title>"_$c(13,10)
|
||||
w " <script language=""javascript"">"_$c(13,10)
|
||||
w ""_$c(13,10)
|
||||
w " function goBack() {"_$c(13,10)
|
||||
w " document.location = '/ewd/patientportal/First.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("First")_"' ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " "_""
|
||||
w " </script>"_$c(13,10)
|
||||
w " <script language=""javascript"">"_$c(13,10)
|
||||
w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
|
||||
w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
|
||||
w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
|
||||
w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.page.setErrorClass = function () { "_$c(13,10)
|
||||
w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("setErrorClasses^%zewdAPI")_"','','synch','','') ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
|
||||
w " var json,x ;"_$c(13,10)
|
||||
w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
|
||||
w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " else {"_$c(13,10)
|
||||
w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
|
||||
w " //eval(x) ;"_$c(13,10)
|
||||
w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " //json=toJsonString(objName);"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("saveJSON^%zewdAPI")_"&px1=' + objName + '&px2=' + json + '','','synch','','') ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
|
||||
w " if (refresh) {"_$c(13,10)
|
||||
w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
|
||||
w " var objExists = ""undefined"" ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " else {"_$c(13,10)
|
||||
w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " if (objExists == ""undefined"") {"_$c(13,10)
|
||||
w " var addRef = 0 ;"_$c(13,10)
|
||||
w " if (addRefCol) addRef = 1;"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("getJSON^%zewdCompiler13")_"&px1=' + objName + '&px2=' + addRef + '','','synch','','') ;"_$c(13,10)
|
||||
w ""_""
|
||||
w " };"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("mergeToJSObject^%zewdAPI")_"&px1=' + sessionName + '&px2=' + JSObjName + '','','synch','','') ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w ""_""
|
||||
w " </script>"_$c(13,10)
|
||||
w " </head>"_$c(13,10)
|
||||
w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
|
||||
w " <h3>"_$c(13,10)
|
||||
w "This page is not a ""first"" page"_""
|
||||
w " </h3>"_$c(13,10)
|
||||
w " <div>"_$c(13,10)
|
||||
w "It can only be accessed via a"_""
|
||||
w " <a href='/ewd/patientportal/session.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("session")_"&ewd_urlNo=Second1'>"_$c(13,10)
|
||||
w "tokenised link"_""
|
||||
w " </a>"_$c(13,10)
|
||||
w "generated by EWD"_""
|
||||
w " </div>"_$c(13,10)
|
||||
w " <div>"_$c(13,10)
|
||||
w " <input back""='back""' id=""ewdUnnamed25"" onclick=""goBack()"" type=""button name="" value=""Go Back to First Page"" />"_$c(13,10)
|
||||
w " </div>"_$c(13,10)
|
||||
w " </body>"_$c(13,10)
|
||||
w "</html>"_$c(13,10)
|
||||
QUIT
|
||||
|
|
@ -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,"<br>",": ")
|
||||
. 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 "<html>"_$c(13,10)
|
||||
w " <head>"_$c(13,10)
|
||||
w " <link href=""/resources/ewd.css"" rel=""stylesheet"" type=""text/css"" />"_$c(13,10)
|
||||
w " <script src=""/resources/ewdScripts.js"">"_$c(13,10)
|
||||
w "</script>"_$c(13,10)
|
||||
w " <title>"_$c(13,10)
|
||||
w "EWD Page using Session Variables and a PrePage Script"_""
|
||||
w " </title>"_$c(13,10)
|
||||
w " <script language=""javascript"">"_$c(13,10)
|
||||
w ""_$c(13,10)
|
||||
w " eval('"_$$getSessionValue^%zewdAPI("json",sessid)_"');"_$c(13,10)
|
||||
w " //eval('"_$$getSessionValue^%zewdAPI("json",sessid)_"') ;"_$c(13,10)
|
||||
w " alert('hello ' + person.Address.Name) ;"_$c(13,10)
|
||||
w " "_""
|
||||
w " </script>"_$c(13,10)
|
||||
w " <script language=""javascript"">"_$c(13,10)
|
||||
w " EWD.page.confirmText='"_$$jsEscape^%zewdGTMRuntime(confirmText)_"' ;"_$c(13,10)
|
||||
w " EWD.page.setOnSubmit = function(obj,confirmText) { "_$c(13,10)
|
||||
w " str='return EWD.page.displayConfirm(""' + confirmText+ '"")' ;"_$c(13,10)
|
||||
w " obj.form.onsubmit=new Function(str) ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.page.setErrorClass = function () { "_$c(13,10)
|
||||
w " if ('"_$$getSessionValue^%zewdAPI("ewd_hasErrors",sessid)_"' == '1') {"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("setErrorClasses^%zewdAPI")_"','','synch','','') ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.putObjectToSession = function (objName) { "_$c(13,10)
|
||||
w " var json,x ;"_$c(13,10)
|
||||
w " if (typeof(dojo) != ""undefined"") {"_$c(13,10)
|
||||
w " x = ""json = dojo.toJson("" + objName + "")"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " else {"_$c(13,10)
|
||||
w " //x = ""json="" + objName + "".toJSONString()"" ;"_$c(13,10)
|
||||
w " //eval(x) ;"_$c(13,10)
|
||||
w " x = ""json=toJsonString("" + objName + "");"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " //json=toJsonString(objName);"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("saveJSON^%zewdAPI")_"&px1=' + objName + '&px2=' + json + '','','synch','','') ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.getObjectFromSession = function (objName, refresh, addRefCol) { "_$c(13,10)
|
||||
w " if (refresh) {"_$c(13,10)
|
||||
w " eval(""delete("" + objName + "") ;"") ;"_$c(13,10)
|
||||
w " var objExists = ""undefined"" ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " else {"_$c(13,10)
|
||||
w " var x = ""var objExists = typeof("" + objName + "");"" ;"_$c(13,10)
|
||||
w " eval(x) ;"_$c(13,10)
|
||||
w " }"_$c(13,10)
|
||||
w " if (objExists == ""undefined"") {"_$c(13,10)
|
||||
w " var addRef = 0 ;"_$c(13,10)
|
||||
w " if (addRefCol) addRef = 1;"_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("getJSON^%zewdCompiler13")_"&px1=' + objName + '&px2=' + addRef + '','','synch','','') ;"_$c(13,10)
|
||||
w ""_""
|
||||
w " };"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w " EWD.utils.mergeObjectFromSession = function (sessionName,JSObjName) { "_$c(13,10)
|
||||
w " EWD.ajax.makeRequest('"_$$getRootURL^%zewdCompiler("gtm")_"ewdeb/eb.mgwsi?ewd_token="_$$getSessionValue^%zewdAPI("ewd_token",sessid)_"&eb="_ebToken("mergeToJSObject^%zewdAPI")_"&px1=' + sessionName + '&px2=' + JSObjName + '','','synch','','') ;"_$c(13,10)
|
||||
w " } ;"_$c(13,10)
|
||||
w ""_""
|
||||
w " </script>"_$c(13,10)
|
||||
w " </head>"_$c(13,10)
|
||||
w " <body onload=""EWD.page.setErrorClass() ; EWD.page.errorMessage('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"')"">"_$c(13,10)
|
||||
w " <h3>"_$c(13,10)
|
||||
w "This page accesses EWD Session Variables"_""
|
||||
w " </h3>"_$c(13,10)
|
||||
w " <div>"_$c(13,10)
|
||||
w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
|
||||
w " </div>"_$c(13,10)
|
||||
w " <div>"_$c(13,10)
|
||||
w "Goto"_""
|
||||
w " <a href='/ewd/patientportal/login.mgwsi?ewd_token="_$g(^%zewdSession("session",sessid,"ewd_token"))_"&n="_tokens("login")_"&ewd_urlNo=session1'>"_$c(13,10)
|
||||
w "next page"_""
|
||||
w " </a>"_$c(13,10)
|
||||
w " </div>"_$c(13,10)
|
||||
w " </body>"_$c(13,10)
|
||||
w "</html>"_$c(13,10)
|
||||
QUIT
|
||||
Loading…
Reference in New Issue