add two new projects
This commit is contained in:
parent
93430d4d38
commit
62a41acfdc
|
|
@ -20,3 +20,9 @@ https://trac.opensourcevista.net/svn/pharmacy-utils
|
|||
|
||||
## mu_tests
|
||||
https://trac.opensourcevista.net/svn/mu-tests
|
||||
|
||||
## djigzo
|
||||
https://trac.opensourcevista.net/svn/Djigzo
|
||||
|
||||
## ewd
|
||||
https://trac.opensourcevista.net/svn/EWD
|
||||
Binary file not shown.
|
|
@ -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
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,18 @@
|
|||
C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
|
||||
;;1.0;C0C;;Mar 1, 2010 ;
|
||||
SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
|
||||
; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
|
||||
N ZR
|
||||
I $G(ZAPP)="" Q ;
|
||||
I $G(ZPAGE)="" Q ;
|
||||
I $G(ZROUTINE)="" Q ;
|
||||
S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
|
||||
S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
|
||||
Q
|
||||
;
|
||||
KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
|
||||
; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
|
||||
I $G(ZAPP)="" Q ;
|
||||
I $G(ZPAGE)="" Q ;
|
||||
K ^zewd("routineMap",ZAPP,ZPAGE)
|
||||
Q
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
|
|
@ -0,0 +1,41 @@
|
|||
<ewd:config isFirstPage="false" prePageScript="FILES^C0EDIINQUIRE">
|
||||
<vista:session>
|
||||
<html>
|
||||
<head>
|
||||
<title>Inquire into File Entries</title>
|
||||
<script type="text/javascript">
|
||||
var VISTA = {}; //Mi Casa
|
||||
|
||||
VISTA.getEntries = function(value) {
|
||||
ewd:ENTRY^C0EDIINQUIRE(value);
|
||||
document.getElementById('fsEntry').style.visibility = 'visible';
|
||||
};
|
||||
|
||||
VISTA.showInqOpts = function() {
|
||||
document.getElementById('fsInqOptions').style.visibility = 'visible';
|
||||
}
|
||||
</script>
|
||||
</head>
|
||||
<body>
|
||||
<h1>Inquire into File Entries</h1>
|
||||
<form method="post" action="ewd">
|
||||
<fieldset id="fsFile">
|
||||
<label for="file">File:</label><select name="file" onChange="VISTA.getEntries(this.value)"></select>
|
||||
<input type="button" value="Select" onClick="VISTA.getEntries(document.getElementById('file').value)">
|
||||
</fieldset>
|
||||
<fieldset id="fsEntry" style="visibility: hidden">
|
||||
<label for="entry">Entry: </label><select name="entry" onChange="VISTA.showInqOpts()"></select>
|
||||
<input type="button" value="Select" onClick="VISTA.showInqOpts()" />
|
||||
</fieldset>
|
||||
<fieldset id="fsInqOptions" style="visibility: hidden">
|
||||
<p>Inquire Options</p>
|
||||
<label for="R">Record Number:</label><input id="R" type="checkbox" name="outopt" value="R" /><br />
|
||||
<label for="C">Computed Fields:</label><input id="C" type="checkbox" name="outopt" value="C" /><br />
|
||||
<label for="A">Audit: </label><input id="A" type="checkbox" name="outopt" value="A" /><br />
|
||||
<input type="submit" value="Submit" name="submit" ajax="true" nextpage="outputter" targetId="output" />
|
||||
</fieldset>
|
||||
</form>
|
||||
<div id="output" style="font-family: Monospace; left: 10%; white-space: pre">
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,4 @@
|
|||
<ewd:config isFirstPage="false" pageType="ajax" prePageScript="INQ^C0EDIINQUIRE">
|
||||
<ewd:forEach sessionName="DIINQUIRE" index="$lineNo" return="$data">
|
||||
<?= $data ?><br />
|
||||
</ewd:forEach>
|
||||
|
|
@ -0,0 +1,73 @@
|
|||
C0EDIINQUIRE ; EWD Wrapper around Inquire into File Entries option
|
||||
;;
|
||||
; All EPs public
|
||||
;
|
||||
; TODO:
|
||||
; 1. Fileman controls file access based on very complex rules. Need to imp
|
||||
; 2. Lazy loading of entries
|
||||
; 3. Inquire needs to return structured data rather a blob--too hard right now.
|
||||
;
|
||||
FILES(sessid) ; Get File of Files
|
||||
d clearList^%zewdAPI("file",sessid) ; Clean
|
||||
N FILE S FILE="" ; Looper that is also the File Name
|
||||
FOR S FILE=$O(^DIC("B",FILE)) QUIT:FILE="" DO ; ditto
|
||||
. N IEN S IEN=$O(^(FILE,"")) ; IEN from 2nd subscript in B index
|
||||
. d appendToList^%zewdAPI("file",FILE,IEN,sessid) ; Add to session
|
||||
Q ""
|
||||
;
|
||||
ENTRY(file) ; Get first 20 Entries in a specific file
|
||||
d clearList^%zewdAPI("entry",sessid) ; Clean
|
||||
n glo s glo=^DIC(file,0,"GL") ; Get File Global
|
||||
s glo=$$CREF^DILF(glo) ; Get the closed root reference
|
||||
N ENTRY S ENTRY="" ; Looper that is also the Entry
|
||||
N CNT S CNT=0
|
||||
FOR S ENTRY=$O(@glo@("B",ENTRY)) QUIT:ENTRY="" QUIT:CNT>20 DO ; ditto
|
||||
. N IEN S IEN=$O(^(ENTRY,"")) ; IEN
|
||||
. d appendToList^%zewdAPI("entry",ENTRY,IEN,sessid) ; Add to session
|
||||
. S CNT=CNT+1
|
||||
QUIT $$replaceOptionsByID^%zewdAPI("entry","entry",sessid) ; Replace current options
|
||||
;
|
||||
INQ(sessid) ; DIINQUIRE Application Output
|
||||
;
|
||||
; First, get the options
|
||||
n outopt ; Output Options checkbox values
|
||||
d getCheckboxValues^%zewdAPI("outopt",.outopt,sessid)
|
||||
n capopts s capopts="" ; Caption Options to get from checkbox values
|
||||
n i s i=""
|
||||
for set i=$order(outopt(i)) q:i="" s capopts=capopts_i
|
||||
;
|
||||
; Get File and Entry
|
||||
n file s file=$$getSessionValue^%zewdAPI("file",sessid)
|
||||
n entry s entry=$$getSessionValue^%zewdAPI("entry",sessid)
|
||||
;
|
||||
; Now actual VISTA work--write out the output to a file
|
||||
; Note that HFS uniqueness is guaranteed by the device file configuration
|
||||
; If you set IO=$$UNIQUE^%ZISUTL_$J in the pre-open execute, you are good.
|
||||
S IOP="HFS" D ^%ZIS ; Open HFS Device
|
||||
U IO ; USE HFS Device
|
||||
D CAPTION^DIQ(file,entry,capopts) ; Write Out Report
|
||||
D ^%ZISC ; Close Device
|
||||
; done
|
||||
;
|
||||
; This code doesn't work, and my debugger couldn't go through it.
|
||||
; something is wrong--and I have an old version of GT.M--why is this happening?
|
||||
; N PATH S PATH=$$PATH^MXMLPRSE(IO("CLOSE"))
|
||||
; N FILE S FILE=$P(IO("CLOSE"),PATH,2)
|
||||
; N RESULT S RESULT=$$FTG^%ZISH(PATH,FILE,$NAME(^TMP("EWDU",$J)),3) ; Doesn't work!!!
|
||||
;
|
||||
; ------------------> Read the File Back
|
||||
OPEN IO("CLOSE"):(READONLY:rewind) ; Open Again for reading
|
||||
USE IO("CLOSE") ; Use
|
||||
N CNT S CNT=1 ; Counter
|
||||
KILL ^TMP("EWDU",$J) ; Kill TMP Global
|
||||
FOR DO Q:$ZEOF ; Read the file
|
||||
. N % R %
|
||||
. S ^TMP("EWDU",$J,CNT)=%
|
||||
. S CNT=CNT+1
|
||||
C IO("CLOSE"):(delete) ; Close and delete
|
||||
; <------------------ Close the File
|
||||
;
|
||||
; Move to EWD Session
|
||||
d clearSessionArray^%zewdAPI("DIINQUIRE",sessid)
|
||||
d mergeGlobalToSession^%zewdAPI($NAME(^TMP("EWDU",$J)),"DIINQUIRE",sessid)
|
||||
QUIT ""
|
||||
|
|
@ -0,0 +1,143 @@
|
|||
<ewd:comment>
|
||||
Ajax page contains the beds that gets auto-updated every 5 seconds.
|
||||
V 0.4
|
||||
(c) Sam Habiel
|
||||
Licensed under AGPL
|
||||
</ewd:comment>
|
||||
<ewd:config pageType="ajax" applyTemplate="false" prePageScript="getbeds^jjihbb">
|
||||
<div>
|
||||
<table width="100%" style="border: 1px solid #CFCFC3; border-style: outset">
|
||||
<ewd:comment>
|
||||
First Row: Ward Names
|
||||
; Ward Data has the following structure:
|
||||
; occ beds/total^occmale/maletotal^occfemale/femaletotal^oos^emptymale/emptyfemale/emptytotal
|
||||
</ewd:comment>
|
||||
<tr>
|
||||
<ewd:forEach sessionName="wardbed" index="$ward" return="$warddata">
|
||||
<ewd:getPiece data="$warddata" asciiDelimiter="94" pieceNumber="1" return="$nBed">
|
||||
<ewd:getPiece data="$warddata" asciiDelimiter="94" pieceNumber="2" return="$nMale">
|
||||
<ewd:getPiece data="$warddata" asciiDelimiter="94" pieceNumber="3" return="$nFemale">
|
||||
<ewd:getPiece data="$warddata" asciiDelimiter="94" pieceNumber="4" return="$nOOS">
|
||||
<ewd:getPiece data="$warddata" asciiDelimiter="94" pieceNumber="5" return="$nAvail">
|
||||
<th style="color: white; font-weight: bold; background-color: #357AE8; border: 1px solid #2F5BB7; text-align: center">
|
||||
<?= $ward ?> <br />
|
||||
<ewd:getPiece data="$nBed" asciiDelimiter="47" pieceNumber="1" return="$nWardCensus">
|
||||
(Census: <?= $nWardCensus ?>) <br />
|
||||
(M: <?= $nMale ?> F: <?= $nFemale ?> OOS: <?= $nOOS ?>) <br />
|
||||
<ewd:getPiece data="$nAvail" asciiDelimiter="47" pieceNumber="1" return="$nEmptyMaleBeds">
|
||||
<ewd:getPiece data="$nAvail" asciiDelimiter="47" pieceNumber="2" return="$nEmptyFemaleBeds">
|
||||
<ewd:getPiece data="$nAvail" asciiDelimiter="47" pieceNumber="3" return="$nEmptyBeds">
|
||||
(Availability: M: <?= $nEmptyMaleBeds ?> F: <?= $nEmptyFemaleBeds ?> T: <?= $nEmptyBeds ?> )
|
||||
</th>
|
||||
</ewd:forEach>
|
||||
</tr>
|
||||
|
||||
<ewd:comment>Second Row: Contents.
|
||||
We use valign and style vertical align on the td b/c only valign works even though it's deprecated!
|
||||
</ewd:comment>
|
||||
<tr>
|
||||
<ewd:forEach sessionName="wardbed" index="$ward">
|
||||
<td valign="top" style="verical-align: top;">
|
||||
<table style="padding:0; border:0">
|
||||
<ewd:forEach sessionName="wardbed" param1="$ward" index="$bed" return="$beddata">
|
||||
<ewd:comment>
|
||||
Bed Data is as follows:
|
||||
pt name^pt sex^adm date^lodger^EDW^MOT^bed oos?^bed oos msg^bed oss comment
|
||||
</ewd:comment>
|
||||
<ewd:getPiece data="$beddata" asciiDelimiter="94" pieceNumber="1" return="$ptname">
|
||||
<ewd:getPiece data="$beddata" asciiDelimiter="94" pieceNumber="2" return="$sex">
|
||||
<ewd:getPiece data="$beddata" asciiDelimiter="94" pieceNumber="3" return="$admDate">
|
||||
<ewd:getPiece data="$beddata" asciiDelimiter="94" pieceNumber="4" return="$lodger">
|
||||
<ewd:getPiece data="$beddata" asciiDelimiter="94" pieceNumber="5" return="$edw">
|
||||
<ewd:getPiece data="$beddata" asciiDelimiter="94" pieceNumber="6" return="$mot">
|
||||
<ewd:getPiece data="$beddata" asciiDelimiter="94" pieceNumber="7" return="$oos">
|
||||
<ewd:getPiece data="$beddata" asciiDelimiter="94" pieceNumber="8" return="$oosmsg">
|
||||
<ewd:getPiece data="$beddata" asciiDelimiter="94" pieceNumber="9" return="$ooscomment">
|
||||
<ewd:getPiece data="$bed" asciidelimiter="45" pieceNumber="3" return="$bedsex">
|
||||
<tr>
|
||||
<ewd:comment>Bed: Color beds for males and females</ewd:comment>
|
||||
<ewd:if firstValue="$bedsex" operation="=" secondValue="M">
|
||||
<td class="mbed"><?= $bed ?></td>
|
||||
<ewd:elseif firstValue="$bedsex" operation="=" secondValue="F">
|
||||
<td class="fbed"><?= $bed ?></td>
|
||||
<ewd:else>
|
||||
<td class="nbed"><?= $bed ?></td>
|
||||
</ewd:if>
|
||||
|
||||
<ewd:comment>Now, Patients...</ewd:comment>
|
||||
<td>
|
||||
<ewd:if firstValue="$ptname" operation="=" secondValue="">
|
||||
<ewd:comment>Do nothing here, for now.</ewd:comment>
|
||||
<ewd:else>
|
||||
|
||||
<ewd:comment> Print patients; mismatched beds show up in a different color</ewd:comment>
|
||||
<ewd:if firstValue="$bedsex" operation="=" secondValue="">
|
||||
<span class="okbed"><?= $ptname ?></span>
|
||||
<ewd:else>
|
||||
<ewd:if firstValue="$bedsex" operation="[" secondValue="$sex">
|
||||
<span class="okbed"><?= $ptname ?></span>
|
||||
<ewd:else>
|
||||
<span class="mismatch"><?= $ptname ?></span>
|
||||
</ewd:if>
|
||||
</ewd:if>
|
||||
|
||||
<ewd:comment>Lodger</ewd:comment>
|
||||
<ewd:if firstValue="$lodger" operation="=" secondValue="1">
|
||||
<br />
|
||||
<span class="lodger">(reserved) (since <?= $admDate ?>)</span>
|
||||
</ewd:if>
|
||||
|
||||
<ewd:comment>EDW</ewd:comment>
|
||||
<ewd:if firstValue="$edw" operation="=" secondValue="1">
|
||||
<span class="EDW">EDW</span>
|
||||
</ewd:if>
|
||||
|
||||
<ewd:comment>MOT</ewd:comment>
|
||||
<ewd:if firstValue="$mot" operation="=" secondValue="1">
|
||||
<span class="MOT">MOT</span>
|
||||
</ewd:if>
|
||||
|
||||
</ewd:if>
|
||||
|
||||
<ewd:comment>Deal with Out Of Service Beds</ewd:comment>
|
||||
<ewd:if firstValue="$oos" operation="=" secondvalue="1">
|
||||
<span class="oos"><?= $oosmsg ?>: <?= $ooscomment ?></span>
|
||||
</ewd:if>
|
||||
</td>
|
||||
</tr>
|
||||
</ewd:forEach>
|
||||
</table>
|
||||
</td>
|
||||
</ewd:forEach>
|
||||
</tr>
|
||||
</table>
|
||||
<br />
|
||||
<ewd:comment>
|
||||
Here we have the Census Table
|
||||
wardbed=beds^males^females^empty beds^occupancy %
|
||||
</ewd:comment>
|
||||
<ewd:getPiece data="#wardbed" asciiDelimiter="94" pieceNumber="1" return="$tBed">
|
||||
<ewd:getPiece data="#wardbed" asciiDelimiter="94" pieceNumber="2" return="$tMale">
|
||||
<ewd:getPiece data="#wardbed" asciiDelimiter="94" pieceNumber="3" return="$tFemale">
|
||||
<ewd:getPiece data="#wardbed" asciiDelimiter="94" pieceNumber="4" return="$tEmptyBed">
|
||||
<ewd:getPiece data="#wardbed" asciiDelimiter="94" pieceNumber="5" return="$occper">
|
||||
<table width="100%" style="border: 1px solid #CFCFC3">
|
||||
<tr>
|
||||
<th colspan="100%" style="color: white; font-weight: bold; background-color: #357AE8">Census</th>
|
||||
</tr>
|
||||
<tr style="color: white; font-weight: bold; background-color: #357AE8; border: 1px solid #2F5BB7; text-align: center">
|
||||
<td width="20%">Total Beds</td>
|
||||
<td width="20%">Males</td>
|
||||
<td width="20%">Females</td>
|
||||
<td width="20%">Empty Beds</td>
|
||||
<td width="20%">% Occupation</td>
|
||||
</tr>
|
||||
<tr style="font-weight: bold; text-align: center">
|
||||
<td><?= $tBed ?></td>
|
||||
<td><?= $tMale ?></td>
|
||||
<td><?= $tFemale ?></td>
|
||||
<td><?= $tEmptyBed ?></td>
|
||||
<td><?= $occper ?></td>
|
||||
</tr>
|
||||
</table>
|
||||
</div>
|
||||
|
|
@ -0,0 +1,41 @@
|
|||
<ewd:comment>
|
||||
BB Template File
|
||||
Bed Board v 0.5
|
||||
</ewd:comment>
|
||||
|
||||
<ewd:Template>
|
||||
<ewd:config defaultTimeout="99999999999" homePage="index.ewd">
|
||||
<ewd:head>
|
||||
<ewd:comment>
|
||||
Load the Session Values for DUZ etc.
|
||||
</ewd:comment>
|
||||
<ewd:execute method="r^ewdu" type="procedure" param1="#ewd_sessid">
|
||||
<style type="text/css">
|
||||
.fbed { color: white; background-color: #661A4C; font-weight: bold; padding: 2 ; border-radius: 5 ; white-space: nowrap }
|
||||
.mbed { color: white; background-color: blue; font-weight: bold; padding: 2; border-radius: 5 ; white-space: nowrap }
|
||||
.nbed { color: black; background-color: cornsilk; font-weight: bold; padding: 2; border-radius: 5; white-space: nowrap }
|
||||
.okbed { }
|
||||
.mismatch { background-color: yellow }
|
||||
.small { font-size: x-small }
|
||||
.oos { color: red; font-weight: bold }
|
||||
.EDW { color: white; background-color: red; font-weight: bold; padding: 2; border-radius: 5 }
|
||||
.MOT { color: white; background-color: green; font-weight: bold; padding: 2; border-radius: 5 }
|
||||
h1,h2,h3,h4,h5,h6,p,td,th,span,a { font-family: sans-serif }
|
||||
.end { color: white; background-color: black; border-top: 1px solid gray ; padding: 2px }
|
||||
</style>
|
||||
</ewd:head>
|
||||
<ewd:body>
|
||||
<ewd:header>
|
||||
</ewd:header>
|
||||
|
||||
<ewd:footer>
|
||||
<div class="end">
|
||||
<span class="small">EWD Session # <?= #ewd_sessid ?></span>
|
||||
<span class="small">DUZ <?= #DUZ ?></span>
|
||||
<span class="small">U <?= #U ?></span>
|
||||
<span class="small">IO <?= #IO ?></span>
|
||||
<a class="small" href="ewdLogout.ewd">Logout</a>
|
||||
</div>
|
||||
</ewd:footer>
|
||||
</ewd:body>
|
||||
</ewd:Template>
|
||||
|
|
@ -0,0 +1,43 @@
|
|||
<ewd:comment>
|
||||
Index Page
|
||||
v 0.5
|
||||
(c) Sam Habiel
|
||||
Licensed under AGPL
|
||||
</ewd:comment>
|
||||
|
||||
<ewd:config isFirstPage="false" prePageScript="init^jjihbb">
|
||||
<!DOCTYPE html>
|
||||
<html>
|
||||
<head>
|
||||
<title><?= #sitename ?> Bed Board</title>
|
||||
</head>
|
||||
<body>
|
||||
<h1 style="text-align: center"><?= #sitename ?> Bed Board</h1>
|
||||
<div id="bb" ajaxPage="bb" event="onTimer" time="5">
|
||||
Please wait 5 seconds for initial load...
|
||||
</div>
|
||||
<div id="legend">
|
||||
<h3>Legend</h3>
|
||||
<table border="1">
|
||||
<tr>
|
||||
<th>Color</th>
|
||||
<th>Meaning</th>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="mbed">210-B</td>
|
||||
<td>Male Bed</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="fbed">111-A</td>
|
||||
<td>Female Bed</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="mismatch">TEST,PATIENT</td>
|
||||
<td>Male Patient in Female bed or the converse</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td class="oos">TEST COMMENT</td>
|
||||
<td>Bed is Out of Service</td>
|
||||
</table>
|
||||
</div>
|
||||
</body>
|
||||
|
|
@ -0,0 +1,213 @@
|
|||
jjihbb ; JJIH/SMH - Bed Board Stuff ; 9/22/11 3:27pm
|
||||
;;0.5;INTRACARE SPECIFIC MODIFICATIONS;;
|
||||
; (C) Sam Habiel
|
||||
; Licensed under AGPL latest
|
||||
;
|
||||
; Bed Board routine for EWD pages index.ewd and bb.ewd
|
||||
;
|
||||
; New in 0.3:
|
||||
; - Added a bunch of counts everywhere.
|
||||
;
|
||||
; New in 0.4:
|
||||
; - Added EDW and MOT fields
|
||||
; - Patients with no beds are included!
|
||||
;
|
||||
; New in 0.5:
|
||||
; - Fixed division by zero problem if db is completely unconfigured
|
||||
;
|
||||
init(sessid) ; Populate index.ewd with site name
|
||||
new DIQUIET set DIQUIET=1 ; Fileman - be quiet
|
||||
do DT^DICRW ; Set-up miniumum variables for VISTA
|
||||
new sitename set sitename=$piece($$SITE^VASITE,"^",2)
|
||||
set sitename=$$TITLE^XLFSTR(sitename) ; Make uppercase title case.
|
||||
do setSessionValue^%zewdAPI("sitename",sitename,sessid)
|
||||
quit ""
|
||||
;
|
||||
getbeds(sessid) ; Populate bb.ewd with bed board information
|
||||
;
|
||||
; To run this on your terminal, set debug to 1 and type: w $$getbeds^jjihbb(80)
|
||||
new debug set debug=0 ; Make this 1 to be talkative
|
||||
new DIQUIET set DIQUIET=1 ; Fileman - be quiet
|
||||
do DT^DICRW ; Set-up miniumum variables for VISTA
|
||||
; Ask Fileman for the list of the wards, taking out inactive ones
|
||||
; File 42; .01 field only, "Packed Output, don't re-sort", use "B" index
|
||||
; Screen inactive wards out using Fileman Screen on File.
|
||||
n wards1,err
|
||||
D LIST^DIC(42,"","@;.01","PQ","","","","B","S D0=Y D WIN^DGPMDDCF I 'X","","wards1","err")
|
||||
i $d(err) s $EC=",U101," ; we shouldn't ever have any messages - crash if so
|
||||
n wards2 ; better wards!
|
||||
m wards2=wards1("DILIST")
|
||||
; expected output:
|
||||
; wards2(0)="5^*^0^"
|
||||
; wards2(0,"MAP")="IEN^.01"
|
||||
; wards2(1,0)="15^Adolescent 2L 201-213 South"
|
||||
; wards2(2,0)="11^Child 2R 214-225 South"
|
||||
; wards2(3,0)="14^DAPA 3R 314-326"
|
||||
; wards2(4,0)="13^General/Adult 3L 300-313 South"
|
||||
; wards2(5,0)="10^Restore 1L 101-111 South"
|
||||
; Now, walk the beds a la ABB^DGPMRBA1
|
||||
n wardbed ; return array
|
||||
n i s i=0
|
||||
for s i=$o(wards2(i)) q:'i do
|
||||
. n wardien s wardien=$piece(wards2(i,0),"^")
|
||||
. zwrite:debug wardien
|
||||
. n roomien s roomien=0
|
||||
. for s roomien=$o(^DG(405.4,"W",wardien,roomien)) q:'roomien do
|
||||
. . zwrite:debug roomien
|
||||
. . quit:'$d(^DG(405.4,roomien,0))
|
||||
. . new bed set bed=$P(^(0),"^")
|
||||
. . new admien set admien=$o(^DGPM("ARM",roomien,0))
|
||||
. . new lodger,ptnode,edw,mot
|
||||
. . if admien d
|
||||
. . . set lodger=^(admien)
|
||||
. . . set ptnode=^DGPM(admien,0) ; note naked sexy ref
|
||||
. . . set edw=+$p($g(^("JJIH0")),"^")
|
||||
. . . set mot=+$p($g(^("JJIH0")),"^",2)
|
||||
. . write:debug "ptnode: "_$g(ptnode),!
|
||||
. . write:debug "edw: "_$g(edw),!
|
||||
. . write:debug "mot: "_$g(mot),!
|
||||
. . ;
|
||||
. . ; Bed Message
|
||||
. . ; pt name^pt sex^adm date^lodger^EDW^MOT^bed oos?^bed oos msg^bed oss comment
|
||||
. . n bedmsg
|
||||
. . i $g(ptnode) d ; if we have a patient, that's the bed msg
|
||||
. . . n dfn s dfn=$p(ptnode,"^",3)
|
||||
. . . s bedmsg=$p(^DPT(dfn,0),"^",1,2) ; Patient name and sex
|
||||
. . . ; s $p(bedmsg,"^",3)=$$FMTE^XLFDT($p(ptnode,"^")) ; Admission date
|
||||
. . . s $p(bedmsg,"^",3)=$$DATE^TIULS($p(ptnode,"^"),"AMTH DD@HR:MIN") ; Admission date using TIU API
|
||||
. . . s $p(bedmsg,"^",4)=$g(lodger)
|
||||
. . . s $p(bedmsg,"^",5)=$g(edw)
|
||||
. . . s $p(bedmsg,"^",6)=$g(mot)
|
||||
. . d ; Out of Service Checks?
|
||||
. . . n oos s oos=$$oos(roomien) ; 0 or 1^msg^comment
|
||||
. . . s $p(bedmsg,"^",7,9)=oos
|
||||
. . ;
|
||||
. . s wardbed($piece(wards2(i,0),"^",2),bed)=bedmsg
|
||||
;
|
||||
; Loop through inpatients to find patients without a bed
|
||||
; Bed Message (reminder!)
|
||||
; pt name^pt sex^adm date^lodger^EDW^MOT^bed oos?^bed oos msg^bed oss comment
|
||||
n i,j s (i,j)=""
|
||||
n counter s counter=0
|
||||
for s i=$o(^DPT("CN",i)) q:i="" for s j=$o(^DPT("CN",i,j)) q:j="" do
|
||||
. n admien s admien=^(j) ; Patient Movement IEN stored in Index
|
||||
. n dfn s dfn=j
|
||||
. n bed s bed=$get(^DPT(dfn,.101))
|
||||
. i bed'="" quit ; if bed is not empty, quit!
|
||||
. s counter=counter+1
|
||||
. n wardname s wardname=^DPT(dfn,.1)
|
||||
. s wardbed(wardname,"NONE"_counter)=$p(^DPT(dfn,0),"^",1,2) ; name, sex
|
||||
. n admdate s admdate=$P(^DGPM(admien,0),"^")
|
||||
. s $p(wardbed(wardname,"NONE"_counter),"^",3)=$$DATE^TIULS(admdate,"AMTH DD@HR:MIN")
|
||||
. s $p(wardbed(wardname,"NONE"_counter),"^",4)=0 ; lodger
|
||||
. n edw s edw=+$p($g(^("JJIH0")),"^")
|
||||
. s $p(wardbed(wardname,"NONE"_counter),"^",5)=edw
|
||||
. n mot s mot=+$p($g(^("JJIH0")),"^",2)
|
||||
. s $p(wardbed(wardname,"NONE"_counter),"^",6)=mot
|
||||
;
|
||||
; Loop through lodgers to find lodgers without a bed
|
||||
; Bed Message (reminder!)
|
||||
; pt name^pt sex^adm date^lodger^EDW^MOT^bed oos?^bed oos msg^bed oss comment
|
||||
n i,j s (i,j)=""
|
||||
for s i=$o(^DPT("LD",i)) q:i="" for s j=$o(^DPT("LD",i,j)) q:j="" do
|
||||
. n admien s admien=^(j) ; Patient Movement IEN stored in Index
|
||||
. n dfn s dfn=j
|
||||
. n bed s bed=$get(^DPT(dfn,.108))
|
||||
. i bed'="" quit ; if bed is not empty, quit!
|
||||
. s counter=counter+1
|
||||
. n wardname s wardname=^DPT(dfn,.107)
|
||||
. s wardbed(wardname,"NONE"_counter)=$p(^DPT(dfn,0),"^",1,2) ; name, sex
|
||||
. n admdate s admdate=$P(^DGPM(admien,0),"^")
|
||||
. s $p(wardbed(wardname,"NONE"_counter),"^",3)=$$DATE^TIULS(admdate,"AMTH DD@HR:MIN")
|
||||
. s $p(wardbed(wardname,"NONE"_counter),"^",4)=1 ; lodger
|
||||
. n edw s edw=+$p($g(^("JJIH0")),"^")
|
||||
. s $p(wardbed(wardname,"NONE"_counter),"^",5)=edw
|
||||
. n mot s mot=+$p($g(^("JJIH0")),"^",2)
|
||||
. s $p(wardbed(wardname,"NONE"_counter),"^",6)=mot
|
||||
;
|
||||
; Now loop through the results and count beds, males, and females
|
||||
; Result will be in wardbed("ward name")=
|
||||
; occ beds/total^occmale/maletotal^occfemale/femaletotal^oos^
|
||||
; emptymale/emptyfemale/emptytotal
|
||||
n i s i="" n j s j="" ; i loops through wards, j beds
|
||||
f s i=$o(wardbed(i)) q:i="" d
|
||||
. n nBed,nMale,nFemale,nOOS,nMaleBed,nFemaleBed,nEmptyMaleBed,nEmptyFemaleBed
|
||||
. s (nBed,nMale,nFemale,nOOS,nMaleBed,nFemaleBed,nEmptyMaleBed,nEmptyFemaleBed)=0
|
||||
. ;
|
||||
. f s j=$o(wardbed(i,j)) q:j="" d
|
||||
. . n node s node=wardbed(i,j)
|
||||
. . i +j s nBed=nBed+1 ; if bed is numeric, then count it as a bed. If NONE, won't count
|
||||
. . i $p(j,"-",3)["M" s nMaleBed=nMaleBed+1 ; Male Bed
|
||||
. . i $p(j,"-",3)["F" s nFemaleBed=nFemaleBed+1 ; Female Bed
|
||||
. . i $p(j,"-",3)["M"&($p(node,"^")="") s nEmptyMaleBed=nEmptyMaleBed+1 ; Empty Male Bed
|
||||
. . i $p(j,"-",3)["F"&($p(node,"^")="") s nEmptyFemaleBed=nEmptyFemaleBed+1 ; Empty Female Bed
|
||||
. . i $p(node,"^",2)="M" s nMale=nMale+1 ; Male Patient
|
||||
. . i $p(node,"^",2)="F" s nFemale=nFemale+1 ; Female Patient
|
||||
. . i $p(node,"^",7)="1" s nOOS=nOOS+1 ; Out of Service Bed
|
||||
. ;
|
||||
. n nOccupied s nOccupied=nMale+nFemale
|
||||
. n nAvailBed s nAvailBed=nBed-nOccupied
|
||||
. n % s %="/"
|
||||
. s wardbed(i)=nOccupied_%_nBed_U_nMale_%_nMaleBed_U_nFemale_%_nFemaleBed_U_nOOS_U_nEmptyMaleBed_%_nEmptyFemaleBed_%_nAvailBed
|
||||
;
|
||||
; Now, loop again and count the counts for a total census.
|
||||
n i s i=""
|
||||
n tBed,tMale,tFemale,tOOS s (tBed,tMale,tFemale,tOOS)=0 ; Totals
|
||||
f s i=$o(wardbed(i)) q:i="" d
|
||||
. n node s node=wardbed(i)
|
||||
. n nBed s nBed=$p($p(wardbed(i),"^"),"/",2)
|
||||
. n nMale s nMale=$p(wardbed(i),"^",2)
|
||||
. n nFemale s nFemale=$p(wardbed(i),"^",3)
|
||||
. n nOOS s nOOS=$p(wardbed(i),"^",4)
|
||||
. s tBed=tBed+nBed
|
||||
. s tMale=tMale+nMale
|
||||
. s tFemale=tFemale+nFemale
|
||||
. s tOOS=tOOS+nOOS
|
||||
; done
|
||||
;
|
||||
; Set the totals at the top top node in the following format
|
||||
; wardbed=beds^males^females^empty beds^occupancy %
|
||||
n tEmptyBed s tEmptyBed=tBed-(tMale+tFemale+tOOS) ; Empty beds
|
||||
;
|
||||
n %occupancy
|
||||
; Prevent div by zero error if beds are not there!!!
|
||||
i tBed=0 s %occupancy=0
|
||||
e s %occupancy=(1-(tEmptyBed/tBed))*100 ; Reader: math quiz for you
|
||||
s %occupancy=$fn(%occupancy,"",0) ; Round up to 0 decimal places
|
||||
;
|
||||
s wardbed=tBed_U_tMale_U_tFemale_U_tEmptyBed_U_%occupancy
|
||||
;
|
||||
; Put it in the EWD Session
|
||||
do clearSessionArray^%zewdAPI("wardbed",sessid)
|
||||
do mergeArrayToSession^%zewdAPI(.wardbed,"wardbed",sessid)
|
||||
;
|
||||
zwrite:debug wardbed
|
||||
quit ""
|
||||
;
|
||||
oos(bedien) ; Is the bed out of service ; Public $$
|
||||
; Input: bedien
|
||||
; Output: 0 -> not out of service -> Active
|
||||
; 1^reason -> Out of service and reason
|
||||
;
|
||||
; First OOS date in the inverse index is the latest
|
||||
N X S X=$O(^DG(405.4,bedien,"I","AINV",0))
|
||||
I 'X Q 0 ; if none, quit
|
||||
;
|
||||
S X=$O(^(+X,0)) ; Then get ifn
|
||||
Q:'$d(^DG(405.4,bedien,"I",+X,0)) 0 ; confirm that entry exists
|
||||
;
|
||||
N DGND S DGND=^(0) ; Out of Service Node
|
||||
N OOSD S OOSD=$P(DGND,"^") ; Out of Service Date
|
||||
N OOSR S OOSR=$P(DGND,"^",4) ; Out of Service Restore
|
||||
N NOW S NOW=$$NOW^XLFDT() ; Now
|
||||
;
|
||||
I OOSD>NOW Q 0 ; If OOSD in future, bed is active
|
||||
;
|
||||
; at this point, OOSD is now or in the past.
|
||||
; Is there a restore date less than today's date? if yes, bed is active
|
||||
I OOSR'="",OOSR<NOW Q 0
|
||||
;
|
||||
; at this point, we are sure that the bed is inactive.
|
||||
N reasonifn s reasonifn=$p(DGND,"^",2)
|
||||
N comment s comment=$p(DGND,"^",3)
|
||||
Q 1_"^"_$$GET1^DIQ(405.5,reasonifn,.01)_"^"_comment
|
||||
|
|
@ -0,0 +1,15 @@
|
|||
<ewd:config isFirstPage="false" prePageScript="DisplayUserCharacteristics^KBANDemo">
|
||||
<html>
|
||||
<head>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
||||
<title>Display User Characteristics</title>
|
||||
</head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<div style="text-align: center">
|
||||
<h1>Display User Characteristics</h1>
|
||||
<hr />
|
||||
<textarea name="display" rows=24 cols=80 readonly="readonly">*</textarea>
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
|
|
@ -0,0 +1,33 @@
|
|||
<ewd:config isFirstPage="false">
|
||||
<html>
|
||||
<head>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
||||
<title>Edit User Characteristics</title>
|
||||
</head>
|
||||
<body>
|
||||
<div style="text-align: center">
|
||||
<h1>Edit User Characteristics</h1>
|
||||
<hr />
|
||||
<table style="border:0px; text-align:right; margin-left:auto; margin-right:auto;">
|
||||
<tr>
|
||||
<td><fm:edit dd="200" fields="1" iens="#DUZ" /></td>
|
||||
<td><fm:edit dd="200" fields=".131" iens="#DUZ" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><fm:edit dd="200" fields="13" iens="#DUZ" /></td>
|
||||
<td><fm:edit dd="200" fields=".132" iens="#DUZ" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td> </td>
|
||||
<td><fm:edit dd="200" fields=".137" iens="#DUZ" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td> </td>
|
||||
<td><fm:edit dd="200" fields=".138" iens="#DUZ" /></td>
|
||||
</tr>
|
||||
</table>
|
||||
<hr />
|
||||
<fm:edit dd="200" fields="200.05;200.09;31.2;31.3" iens="#DUZ" />
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,34 @@
|
|||
<ewd:config isFirstPage="true" prePageScript="SignonTxt^KBANDemo">
|
||||
<html>
|
||||
<meta http-equiv="Content-type" content="text/html;charset=UTF-8">
|
||||
<head><title>Test Page</title></head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<div style="text-align:center">
|
||||
<pre>
|
||||
<?= #signontxt ?>
|
||||
|
||||
Username: clerk1
|
||||
|
||||
Password: abc,123%
|
||||
</pre>
|
||||
</div>
|
||||
<h3>Please enter your username and password:</h3>
|
||||
<form method="post" action="ewd">
|
||||
<table border=0>
|
||||
<tr>
|
||||
<td>Access Code: </td>
|
||||
<td><input type="text" name="username" focus="true" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Verify Code: </td>
|
||||
<td><input type="password" name="password" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input type="submit" name="Submit" value="Login" action="login^KBANDemo" nextpage="welcome" /></td>
|
||||
</tr>
|
||||
</table>
|
||||
</form>
|
||||
<br /><br />
|
||||
<a href="ewdLogout.ewd">Log out</a>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,36 @@
|
|||
<ewd:config isFirstPage="false">
|
||||
<html>
|
||||
<head>
|
||||
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
|
||||
<script type="text/javascript">
|
||||
SAM = {}; //My global storage object
|
||||
SAM.x = function () {
|
||||
// ewd:esigjs^KBANDemo('SAM[20.4]');
|
||||
// document.forms[0].F200I20_4.value = SAM['20.4']();
|
||||
};
|
||||
SAM.val = function (dd,iens,field,value,name) {
|
||||
// Ignore dd and field; we derive it instead from name
|
||||
// Later versions will dymanically fetch the value of the field to check
|
||||
// from the name of the input element
|
||||
// Value needs to be urlencoded.
|
||||
var q = 'dd=' + dd + '&iens=' + iens + '&field=' + field + '&value=' + value + '&name=' + name;
|
||||
EWD.ajax.getPage({page: 'valfield', targetId: 'testdiv', nvp: q})
|
||||
};
|
||||
</script>
|
||||
<title>Edit Electronic Signature</title>
|
||||
</head>
|
||||
<body bgcolor="#C5E3E4" onload='SAM.x()'>
|
||||
<div style="text-align: center">
|
||||
<h1>Edit Electronic Signature</h1>
|
||||
<hr />
|
||||
<form name="form" method="post" action="ewd">
|
||||
<label for="esig">Electronic Signature</label>
|
||||
<input type="text" name="DD200F20_4" value="*" onchange="SAM.val(200,<?= #DUZ ?>,20.4,this.value,this.name)" />
|
||||
<input type="submit" name="save" value="Save" action="saveEsig^KBANDemo" nextpage="welcome.ewd" />
|
||||
</form>
|
||||
</div>
|
||||
<div id="testdiv" style="background-color: purple; color: white; ">
|
||||
Testing
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1 @@
|
|||
<ewd:config isFirstPage="true" prePageScript="SSO^KBANDemo">
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
<ewd:config pageType="ajax" isFirstPage="false" prePageScript="VAL^KBANEWD1">
|
||||
|
||||
<script language="javascript">
|
||||
if ("<?= #tmp.error ?>")
|
||||
{
|
||||
alert("<?= #tmp.error ?>")
|
||||
}
|
||||
else
|
||||
{
|
||||
document.getElementById("<?= #tmp.name ?>").innerHTML = "<?= #tmp.result ?>"
|
||||
}
|
||||
</script>
|
||||
|
|
@ -0,0 +1,25 @@
|
|||
<ewd:config isFirstPage="false" prepageScript="getInfo^KBANDemo">
|
||||
<html>
|
||||
<head>
|
||||
<title>Welcome to Edit Your Stuff Portal</title>
|
||||
</head>
|
||||
<body>
|
||||
<div>
|
||||
<h1>Welcome to Edit Your Stuff Portal</h1>
|
||||
<hr />
|
||||
<p>You are:
|
||||
<?= #Name ?>
|
||||
</p>
|
||||
<p>You can do the following<p>
|
||||
<ul>
|
||||
<li><a href="display.ewd">Display User Characteristics</a></li>
|
||||
<li><a href="modesig.ewd">Modify Your Electronic Signature</a></li>
|
||||
<li><a href="editchar.ewd">Edit your Contact Information</a></li>
|
||||
</ul>
|
||||
<p>Your session ID is
|
||||
<?= #ewd_sessid ?>
|
||||
</p>
|
||||
<br><br>
|
||||
<a href=ewdLogout.ewd>Log out</a>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,85 @@
|
|||
KBANDemo ; Test to demo EWD ; 8/2/11 1:53pm
|
||||
;;
|
||||
login(sessid)
|
||||
n error s error=""
|
||||
n un,pw
|
||||
s un=$$getTextValue^%zewdAPI("username",sessid)
|
||||
s pw=$$getPasswordValue^%zewdAPI("password",sessid)
|
||||
s %ZIS="0H",IOP="NULL"
|
||||
d ^%ZIS
|
||||
i POP s error="Programming error" d ^%ZTER g EXIT
|
||||
d SETUP^XUSRB() ; Set-up for GUI signon
|
||||
n RETURN
|
||||
D VALIDAV^XUSRB(.RETURN,$$ENCRYP^XUSRB1(un_";"_pw))
|
||||
i DUZ'>0 s error="Not a valid login"
|
||||
i error="" d ; everything is okay; save symtab crap
|
||||
. d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid)
|
||||
. d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid)
|
||||
. d setSessionValue^%zewdAPI("U","^",sessid)
|
||||
q error
|
||||
EXIT D:$G(DUZ) LOGOUT^XUSRB
|
||||
Q error
|
||||
DisplayUserCharacteristics(sessid)
|
||||
D FillSymTab(sessid)
|
||||
d clearTextArea^%zewdAPI("display",sessid)
|
||||
; d appendToTextArea^%zewdAPI("display","blha blha",sessid)
|
||||
N ZTQUEUED,ORHFS,ORSUB,ROOT,ORIO,ORHANDLE,ORWINDEV
|
||||
N IOM,IOSL,IOST,IOF,IOT,IOS,POP
|
||||
S (ORSUB,ROOT)="ORDATA",ORIO="OR WINDOWS HFS",ORTEXT=$NA(^TMP(ORSUB,$J,1)),ORHANDLE="ORWRP"
|
||||
S ORHFS=$$HFS^ORWRP(),ORWINDEV=1 ;Flag for printing to windows device
|
||||
D HFSOPEN^ORWRP(ORHANDLE,ORHFS,"W")
|
||||
I POP D Q
|
||||
. I $D(ROOT) D SETITEM^ORWRP(.ROOT,"ERROR: Unable to open HFS file")
|
||||
D IOVAR^ORWRP(.ORIO,,,"P-WINHFS80")
|
||||
N $ETRAP,$ESTACK
|
||||
S $ETRAP="D ERR^ORWRP Q"
|
||||
U IO
|
||||
D ^XQUSR
|
||||
D HFSCLOSE^ORWRP(ORHANDLE,ORHFS)
|
||||
N txt M txt=@ORTEXT
|
||||
D mergeToTextArea^%zewdAPI("display",.txt,sessid)
|
||||
Q ""
|
||||
SignonTxt(sessid) ;
|
||||
S U="^"
|
||||
D setSessionValue^%zewdAPI("signontxt","Welcome to Wonderful Veldt of EWD")
|
||||
Q ""
|
||||
getUsernames(sessid)
|
||||
d clearList^%zewdAPI("user",sessid)
|
||||
n sam
|
||||
d LIST^DIC(200,"","@;.01","PKU","*","","","","","","sam")
|
||||
n i s i=0
|
||||
f s i=$o(sam("DILIST",i)) q:i="" d
|
||||
. n entry s entry=sam("DILIST",i,0)
|
||||
. d appendToList^%zewdAPI("user",$p(entry,U,2),$p(entry,U),sessid)
|
||||
quit ""
|
||||
getInfo(sessid)
|
||||
S ^KBANSAM=1
|
||||
n DUZ s DUZ=$$getSessionValue^%zewdAPI("user",sessid)
|
||||
n Name s Name=$$GET1^DIQ(200,DUZ_",",.01)
|
||||
n officePhone s officePhone=$$GET1^DIQ(200,DUZ,"OFFICE PHONE")
|
||||
d setSessionValue^%zewdAPI("Name",Name,sessid)
|
||||
d setSessionValue^%zewdAPI("officePhone",officePhone,sessid)
|
||||
quit ""
|
||||
savePhones(sessid)
|
||||
quit ""
|
||||
CVC(sessid) ; Change verify code
|
||||
; get stored session values for DUZ, IO, and U
|
||||
d FillSymTab(sessid)
|
||||
n VC1,VC2,VC3
|
||||
s VC1=$$getPasswordValue^%zewdAPI("vc1",sessid)
|
||||
s VC2=$$getPasswordValue^%zewdAPI("vc2",sessid)
|
||||
s VC3=$$getPasswordValue^%zewdAPI("vc3",sessid)
|
||||
n eVC1,eVC2,eVC3
|
||||
s eVC1=$$ENCRYP^XUSRB1(VC1)
|
||||
s eVC2=$$ENCRYP^XUSRB1(VC2)
|
||||
s eVC3=$$ENCRYP^XUSRB1(VC3)
|
||||
n vcString s vcString=eVC1_U_eVC2_U_eVC3
|
||||
n ret
|
||||
d CVC^XUSRB(.ret,vcString)
|
||||
i ret(0)=0 q ""
|
||||
i ret(0)>0 q ret(1)
|
||||
FillSymTab(id) ; Fill symbol table
|
||||
d mergeArrayFromSession^%zewdAPI(.DUZ,"DUZ",id)
|
||||
d mergeArrayFromSession^%zewdAPI(.IO,"IO",id)
|
||||
s U=$$getSessionValue^%zewdAPI("U",id)
|
||||
quit
|
||||
|
|
@ -0,0 +1,104 @@
|
|||
KBANEWD1 ; KBAN/SMH - Custom Tag Processor ; 8/14/11 9:08pm
|
||||
;;
|
||||
SS(nodeOID,attrValues,docOID,technology) ; <fm:session /> to get VISTA Session Variables
|
||||
N attr
|
||||
S attr("method")="SS2^KBANEWD1"
|
||||
S attr("param1")="#ewd_sessid"
|
||||
S attr("type")="procedure"
|
||||
N xOID s xOID=$$addElementToDOM^%zewdDOM("ewd:execute",nodeOID,"",.attr)
|
||||
D removeIntermediateNode^%zewdDOM(nodeOID)
|
||||
quit
|
||||
SS2(sessid)
|
||||
d mergeArrayFromSession^%zewdAPI(.DUZ,"DUZ",sessid)
|
||||
d mergeArrayFromSession^%zewdAPI(.IO,"IO",sessid)
|
||||
s U=$$getSessionValue^%zewdAPI("U",sessid)
|
||||
quit
|
||||
EDIT(nodeOID,attrValues,docOID,technology) ; Fileman Field Edit tag
|
||||
; Get Attributes supplied to us: dd, fields, iens
|
||||
;
|
||||
N attrs
|
||||
D getAttributeValues^%zewdCustomTags(nodeOID,.attrs)
|
||||
N DD S DD=$g(attrs("dd")) ; Data Dictionary
|
||||
N FIELDS S FIELDS=$g(attrs("fields")) ; Fields to Edit
|
||||
N IENS S IENS=$g(attrs("iens")) ; IENs to Edit
|
||||
;
|
||||
; Does our Form Tag Exist?
|
||||
N fOID S fOID=$$getElementById^%zewdDOM("fmEdit",docOID)
|
||||
; -----
|
||||
; If it doesn't exist, create it
|
||||
IF fOID="" DO
|
||||
. ; Create the Form Tag
|
||||
. ; Attributes
|
||||
. N attr
|
||||
. S attr("name")="fmEdit"
|
||||
. S attr("id")="fmEdit"
|
||||
. S attr("action")="ewd"
|
||||
. S attr("method")="post"
|
||||
. ;
|
||||
. ; Add form
|
||||
. S fOID=$$addElementToDOM^%zewdDOM("form",nodeOID,"",.attr,"")
|
||||
; -----
|
||||
; Destination Input Name
|
||||
N dst S dst="DD"_$TR(DD,".","_")_"F"_$TR(FIELDS,".","_")
|
||||
;
|
||||
; Build <ewd:execute> to set the value of the default; child of form in fOID
|
||||
K attr
|
||||
S attr("method")="XTARGET^KBANEWD1"
|
||||
S attr("param1")="#ewd_sessid"
|
||||
S attr("param2")=dst
|
||||
S attr("param3")=DD
|
||||
S attr("param4")=$$stripSpaces^%zewdAPI(phpVars($P(IENS,"&php;",2))) ; becomes #DUZ
|
||||
S attr("param5")=FIELDS
|
||||
S attr("type")="procedure"
|
||||
N xOID s xOID=$$addElementToDOM^%zewdDOM("ewd:execute",fOID,"",.attr)
|
||||
;
|
||||
; Add label
|
||||
N text S text=$$GET1^DID(DD,FIELDS,"","LABEL") ; this should be i18n in MSC FM
|
||||
S text=text_": "
|
||||
K attr S attr("for")=dst
|
||||
N lOID s lOID=$$addElementToDOM^%zewdDOM("label",fOID,"",.attr,text)
|
||||
; ------------
|
||||
;
|
||||
; Add Input Tag
|
||||
; Attributes
|
||||
K attr
|
||||
S attr("type")="text" ; Should be dynamic based on FM DataType
|
||||
S attr("name")=dst
|
||||
S attr("value")="*"
|
||||
;
|
||||
; Add input Tag under form tag
|
||||
N iOID S iOID=$$addElementToDOM^%zewdDOM("input",fOID,"",.attr,"")
|
||||
;
|
||||
; Remove custom tag
|
||||
D removeIntermediateNode^%zewdDOM(nodeOID)
|
||||
;break
|
||||
QUIT
|
||||
;
|
||||
; ---
|
||||
;
|
||||
XTARGET(sessid,fieldName,DD,IENS,FIELDS) ; Proc - Xecute Target - Adds Default Value to Sess
|
||||
N VAL S VAL=$$GET1^DIQ(DD,IENS,FIELDS)
|
||||
D setSessionValue^%zewdAPI(fieldName,VAL,sessid)
|
||||
QUIT
|
||||
;
|
||||
; ---
|
||||
;
|
||||
VAL(sessid)
|
||||
D setSessionValue^%zewdAPI("tmp.error","Null Validation",sessid)
|
||||
D setSessionValue^%zewdAPI("tmp.name","testdiv",sessid) ; testdiv hardcoded for now.
|
||||
N KBANDD S KBANDD=+$TR($P(requestArray("name"),"DD",2),"_",".") ; todo: check for 0 value
|
||||
N KBANF S KBANF=+$TR($P(requestArray("name"),"F",2),"_",".") ; todo: check for 0 value
|
||||
N KBANIENS S KBANIENS=requestArray("iens")
|
||||
I $E(KBANIENS,$L(KBANIENS))'="," S KBANIENS=KBANIENS_","
|
||||
N KBANV S KBANV=requestArray("value") ; todo: unescape urlencoding.
|
||||
N KBANRESULT ; Result
|
||||
N KBANMSG
|
||||
D VAL^DIE(KBANDD,KBANIENS,KBANF,"E",KBANV,.KBANRESULT,"","KBANMSG")
|
||||
I $D(KBANMSG) K ^ZZSAM M ^ZZSAM=KBANMSG
|
||||
; KBANMSG(DIERR,1,TEXT,1) can be longer than one line (last subscript)... loop...
|
||||
; HTML formatting for error message???
|
||||
I KBANRESULT="^" D setSessionValue^%zewdAPI("tmp.error",KBANMSG("DIERR",1,"TEXT",1),sessid)
|
||||
E D
|
||||
. D setSessionValue^%zewdAPI("tmp.result","Success in Validating: "_$$SYMENC^MXMLUTL($$SYMENC^MXMLUTL(KBANRESULT(0))),sessid)
|
||||
. D setSessionValue^%zewdAPI("tmp.error","",sessid)
|
||||
QUIT ""
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
<ewd:config isFirstPage="true" cachePage="false" pageTimeout="1200" prePageScript="setup^ewdu">
|
||||
<st:container rootPath="/sencha-1.1/" title="VISTA Sign-On">
|
||||
<st:images>
|
||||
<st:image type="tabletStartupScreen" src="/sencha-1.1/examples/kitchensink/resources/img/tablet_startup.png" />
|
||||
<st:image type="phoneStartupScreen" src="/sencha-1.1/examples/kitchensink/resources/img/phone_startup.png" />
|
||||
<st:image type="icon" src="/sencha-1.1/examples/kitchensink/resources/img/icon.png" addGloss="true" />
|
||||
</st:images>
|
||||
<st:content>
|
||||
<st:panel fullscreen="true" scroll="vertical">
|
||||
<st:toolbar dock="top" title="VISTA Sign-On" />
|
||||
<div id="intro" style="text-align: center">
|
||||
<p><?= #so.sitename ?></p>
|
||||
</div>
|
||||
<st:toolbar dock="bottom" id="bottomToolbar"
|
||||
title="Session: <?= #ewd_sessid ?>">
|
||||
</st:toolbar>
|
||||
</st:panel>
|
||||
</st:content>
|
||||
</st:container>
|
||||
|
||||
|
|
@ -0,0 +1,28 @@
|
|||
<ewd:config isFirstPage="true" websockets="true" cachePage="false">
|
||||
<html>
|
||||
<head>
|
||||
<title>Roll and Scroll Emulator</title>
|
||||
<script type="text/javascript">
|
||||
//must be defined before body is loaded.
|
||||
EWD.sockets.serverMessageHandler = function (msg)
|
||||
{
|
||||
document.getElementById("message").innerHTML = "Sent from GT.M: " + msg.message;
|
||||
};
|
||||
|
||||
//can only work after body is loaded. Body loads socket.io.
|
||||
function helloSockets() {
|
||||
EWD.sockets.sendMessage({type: "testing", message: "This is my message for you to use"});
|
||||
};
|
||||
|
||||
//GT.M Test
|
||||
function GTMTest() {
|
||||
EWD.sockets.sendMessage({type: "M", message: "hello"});
|
||||
};
|
||||
|
||||
</script>
|
||||
</head>
|
||||
<body onload="helloSockets()">
|
||||
<div id="message">
|
||||
</div>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,37 @@
|
|||
<ewd:comment>
|
||||
(C) Sam Habiel 2011
|
||||
Inherits EWD License, whatever it is.
|
||||
</ewd:comment>
|
||||
<ewd:config isFirstPage="false" prePageScript="whoami^ewdu">
|
||||
<html>
|
||||
<head>
|
||||
<title>Change Verify Code</title>
|
||||
</head>
|
||||
<body>
|
||||
<h1>Change Verify Code</h1>
|
||||
<form id="content" method="POST" action="ewd">
|
||||
<table>
|
||||
<tr>
|
||||
<td>Username: </td>
|
||||
<td><?= #Name ?></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><label for="vc1">Verify Code (existing):</label> </td>
|
||||
<td><input type="password" name="vc1" value="<?= #vc ?>"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><label for="vc2">Verify Code (new):</label> </td>
|
||||
<td><input type="password" name="vc2"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><label for="vc3">Verify Code (confirm):</label> </td>
|
||||
<td><input type="password" name="vc3"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input type="submit" id="submit" name="submit" value="Save" action="cvc^ewdu" nextpage="menu"></td>
|
||||
</tr>
|
||||
</table>
|
||||
</form>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
|
|
@ -0,0 +1,365 @@
|
|||
<ewd:comment>
|
||||
Sign On Template File.
|
||||
Contains CSS and JS
|
||||
V 0.1
|
||||
Author: Sam Habiel
|
||||
License: Same as EWD License
|
||||
|
||||
CSS inspired by:
|
||||
http://www.red-team-design.com/slick-login-form-with-html5-css3?utm_source=feedburner&utm_medium=feed&utm_campaign=Feed%3A+redteamdesign+%28Red+Team+Design%29&utm_content=FeedBurner
|
||||
</ewd:comment>
|
||||
|
||||
<ewd:Template>
|
||||
<ewd:config defaultTimeout="99999999999" homePage="index.ewd">
|
||||
<ewd:execute method="r^ewdu" type="procedure" param1="#ewd_sessid">
|
||||
<ewd:head>
|
||||
<style type="text/css">
|
||||
html, body
|
||||
{
|
||||
height: 100%;
|
||||
}
|
||||
|
||||
body
|
||||
{
|
||||
font: 12px 'Lucida Sans Unicode', 'Trebuchet MS', Arial, Helvetica;
|
||||
margin: 0;
|
||||
background-color: #d9dee2;
|
||||
background-repeat: no-repeat;
|
||||
background-image: -webkit-gradient(linear, left top, left bottom, from(#ebeef2), to(#d9dee2));
|
||||
background-image: -webkit-linear-gradient(top, #ebeef2, #d9dee2);
|
||||
background-image: -moz-linear-gradient(top, #ebeef2, #d9dee2);
|
||||
background-image: -ms-linear-gradient(top, #ebeef2, #d9dee2);
|
||||
background-image: -o-linear-gradient(top, #ebeef2, #d9dee2);
|
||||
background-image: linear-gradient(top, #ebeef2, #d9dee2);
|
||||
}
|
||||
|
||||
/*--------------------*/
|
||||
|
||||
#login, #content, #menu
|
||||
{
|
||||
text-align: center;
|
||||
background-color: #fff;
|
||||
background-image: -webkit-gradient(linear, left top, left bottom, from(#fff), to(#eee));
|
||||
background-image: -webkit-linear-gradient(top, #fff, #eee);
|
||||
background-image: -moz-linear-gradient(top, #fff, #eee);
|
||||
background-image: -ms-linear-gradient(top, #fff, #eee);
|
||||
background-image: -o-linear-gradient(top, #fff, #eee);
|
||||
background-image: linear-gradient(top, #fff, #eee);
|
||||
/*height: 240px;*/
|
||||
width: 600px;
|
||||
margin: 0px 0 0 -300px;
|
||||
padding: 30px;
|
||||
position: absolute;
|
||||
top: 5%;
|
||||
left: 49%;
|
||||
z-index: 0;
|
||||
-moz-border-radius: 3px;
|
||||
-webkit-border-radius: 3px;
|
||||
border-radius: 3px;
|
||||
-webkit-box-shadow:
|
||||
0 0 2px rgba(0, 0, 0, 0.2),
|
||||
0 1px 1px rgba(0, 0, 0, .2),
|
||||
0 3px 0 #fff,
|
||||
0 4px 0 rgba(0, 0, 0, .2),
|
||||
0 6px 0 #fff,
|
||||
0 7px 0 rgba(0, 0, 0, .2);
|
||||
-moz-box-shadow:
|
||||
0 0 2px rgba(0, 0, 0, 0.2),
|
||||
1px 1px 0 rgba(0, 0, 0, .1),
|
||||
3px 3px 0 rgba(255, 255, 255, 1),
|
||||
4px 4px 0 rgba(0, 0, 0, .1),
|
||||
6px 6px 0 rgba(255, 255, 255, 1),
|
||||
7px 7px 0 rgba(0, 0, 0, .1);
|
||||
box-shadow:
|
||||
0 0 2px rgba(0, 0, 0, 0.2),
|
||||
0 1px 1px rgba(0, 0, 0, .2),
|
||||
0 3px 0 #fff,
|
||||
0 4px 0 rgba(0, 0, 0, .2),
|
||||
0 6px 0 #fff,
|
||||
0 7px 0 rgba(0, 0, 0, .2);
|
||||
}
|
||||
|
||||
#login:before, #content:before
|
||||
{
|
||||
content: '';
|
||||
position: absolute;
|
||||
z-index: -1;
|
||||
border: 1px dashed #ccc;
|
||||
top: 5px;
|
||||
bottom: 5px;
|
||||
left: 5px;
|
||||
right: 5px;
|
||||
-moz-box-shadow: 0 0 0 1px #fff;
|
||||
-webkit-box-shadow: 0 0 0 1px #fff;
|
||||
box-shadow: 0 0 0 1px #fff;
|
||||
}
|
||||
|
||||
/*--------------------*/
|
||||
|
||||
h1
|
||||
{
|
||||
text-shadow: 0 1px 0 rgba(255, 255, 255, .7), 0px 2px 0 rgba(0, 0, 0, .5);
|
||||
text-transform: uppercase;
|
||||
text-align: center;
|
||||
color: #666;
|
||||
margin: 0 0 30px 0;
|
||||
letter-spacing: 4px;
|
||||
font: normal 26px/1 Verdana, Helvetica;
|
||||
position: relative;
|
||||
}
|
||||
|
||||
h1:after, h1:before
|
||||
{
|
||||
background-color: #777;
|
||||
content: "";
|
||||
height: 1px;
|
||||
position: absolute;
|
||||
top: 15px;
|
||||
width: 20px;
|
||||
}
|
||||
|
||||
h1:after
|
||||
{
|
||||
background-image: -webkit-gradient(linear, left top, right top, from(#777), to(#fff));
|
||||
background-image: -webkit-linear-gradient(left, #777, #fff);
|
||||
background-image: -moz-linear-gradient(left, #777, #fff);
|
||||
background-image: -ms-linear-gradient(left, #777, #fff);
|
||||
background-image: -o-linear-gradient(left, #777, #fff);
|
||||
background-image: linear-gradient(left, #777, #fff);
|
||||
right: 0;
|
||||
}
|
||||
|
||||
h1:before
|
||||
{
|
||||
background-image: -webkit-gradient(linear, right top, left top, from(#777), to(#fff));
|
||||
background-image: -webkit-linear-gradient(right, #777, #fff);
|
||||
background-image: -moz-linear-gradient(right, #777, #fff);
|
||||
background-image: -ms-linear-gradient(right, #777, #fff);
|
||||
background-image: -o-linear-gradient(right, #777, #fff);
|
||||
background-image: linear-gradient(right, #777, #fff);
|
||||
left: 0;
|
||||
}
|
||||
|
||||
/*--------------------*/
|
||||
|
||||
fieldset
|
||||
{
|
||||
border: 0;
|
||||
padding: 0;
|
||||
margin: 0;
|
||||
}
|
||||
|
||||
/*--------------------*/
|
||||
|
||||
#inputs input[type="password"]
|
||||
{
|
||||
background: #f1f1f1 ;
|
||||
padding: 15px 15px 15px 30px;
|
||||
margin: 0 0 10px 0;
|
||||
width: 353px; /* 353 + 2 + 45 = 400 */
|
||||
border: 1px solid #ccc;
|
||||
-moz-border-radius: 5px;
|
||||
-webkit-border-radius: 5px;
|
||||
border-radius: 5px;
|
||||
-moz-box-shadow: 0 1px 1px #ccc inset, 0 1px 0 #fff;
|
||||
-webkit-box-shadow: 0 1px 1px #ccc inset, 0 1px 0 #fff;
|
||||
box-shadow: 0 1px 1px #ccc inset, 0 1px 0 #fff;
|
||||
}
|
||||
|
||||
#inputs input[type="checkbox"]
|
||||
{
|
||||
background: #f1f1f1 ;
|
||||
padding: 15px 15px 15px 30px;
|
||||
margin: 0 0 10px 0;
|
||||
border: 1px solid #ccc;
|
||||
-moz-border-radius: 5px;
|
||||
-webkit-border-radius: 5px;
|
||||
border-radius: 5px;
|
||||
-moz-box-shadow: 0 1px 1px #ccc inset, 0 1px 0 #fff;
|
||||
-webkit-box-shadow: 0 1px 1px #ccc inset, 0 1px 0 #fff;
|
||||
box-shadow: 0 1px 1px #ccc inset, 0 1px 0 #fff;
|
||||
}
|
||||
|
||||
#username
|
||||
{
|
||||
background-position: 5px -2px !important;
|
||||
}
|
||||
|
||||
#password
|
||||
{
|
||||
background-position: 5px -52px !important;
|
||||
}
|
||||
|
||||
#inputs input:focus
|
||||
{
|
||||
background-color: #fff;
|
||||
border-color: #e8c291;
|
||||
outline: none;
|
||||
-moz-box-shadow: 0 0 0 1px #e8c291 inset;
|
||||
-webkit-box-shadow: 0 0 0 1px #e8c291 inset;
|
||||
box-shadow: 0 0 0 1px #e8c291 inset;
|
||||
}
|
||||
|
||||
/*--------------------*/
|
||||
#actions
|
||||
{
|
||||
margin: 25px 0 0 0;
|
||||
}
|
||||
|
||||
input[type="button"],input[type="submit"]
|
||||
{
|
||||
background-color: #ffb94b;
|
||||
background-image: -webkit-gradient(linear, left top, left bottom, from(#fddb6f), to(#ffb94b));
|
||||
background-image: -webkit-linear-gradient(top, #fddb6f, #ffb94b);
|
||||
background-image: -moz-linear-gradient(top, #fddb6f, #ffb94b);
|
||||
background-image: -ms-linear-gradient(top, #fddb6f, #ffb94b);
|
||||
background-image: -o-linear-gradient(top, #fddb6f, #ffb94b);
|
||||
background-image: linear-gradient(top, #fddb6f, #ffb94b);
|
||||
|
||||
-moz-border-radius: 3px;
|
||||
-webkit-border-radius: 3px;
|
||||
border-radius: 3px;
|
||||
|
||||
text-shadow: 0 1px 0 rgba(255,255,255,0.5);
|
||||
|
||||
-moz-box-shadow: 0 0 1px rgba(0, 0, 0, 0.3), 0 1px 0 rgba(255, 255, 255, 0.3) inset;
|
||||
-webkit-box-shadow: 0 0 1px rgba(0, 0, 0, 0.3), 0 1px 0 rgba(255, 255, 255, 0.3) inset;
|
||||
box-shadow: 0 0 1px rgba(0, 0, 0, 0.3), 0 1px 0 rgba(255, 255, 255, 0.3) inset;
|
||||
|
||||
border-width: 1px;
|
||||
border-style: solid;
|
||||
border-color: #d69e31 #e3a037 #d5982d #e3a037;
|
||||
|
||||
float: left;
|
||||
height: 35px;
|
||||
padding: 0;
|
||||
width: 120px;
|
||||
cursor: pointer;
|
||||
font: bold 15px Arial, Helvetica;
|
||||
color: #8f5a0a;
|
||||
}
|
||||
|
||||
input[type="button"]:hover,input[type="button"]:focus,input[type="submit"]:hover,input[type="submit"]:focus
|
||||
{
|
||||
background-color: #fddb6f;
|
||||
background-image: -webkit-gradient(linear, left top, left bottom, from(#ffb94b), to(#fddb6f));
|
||||
background-image: -webkit-linear-gradient(top, #ffb94b, #fddb6f);
|
||||
background-image: -moz-linear-gradient(top, #ffb94b, #fddb6f);
|
||||
background-image: -ms-linear-gradient(top, #ffb94b, #fddb6f);
|
||||
background-image: -o-linear-gradient(top, #ffb94b, #fddb6f);
|
||||
background-image: linear-gradient(top, #ffb94b, #fddb6f);
|
||||
}
|
||||
|
||||
input[type="button"]:active,input[type="submit"]:active
|
||||
{
|
||||
outline: none;
|
||||
|
||||
-moz-box-shadow: 0 1px 4px rgba(0, 0, 0, 0.5) inset;
|
||||
-webkit-box-shadow: 0 1px 4px rgba(0, 0, 0, 0.5) inset;
|
||||
box-shadow: 0 1px 4px rgba(0, 0, 0, 0.5) inset;
|
||||
}
|
||||
|
||||
input[type="button"]::-moz-focus-inner,input[type="submit"]::-moz-focus-inner
|
||||
{
|
||||
border: none;
|
||||
}
|
||||
|
||||
#actions a
|
||||
{
|
||||
color: #3151A2;
|
||||
float: right;
|
||||
line-height: 35px;
|
||||
margin-left: 10px;
|
||||
}
|
||||
|
||||
/*--------------------*/
|
||||
|
||||
#back
|
||||
{
|
||||
display: block;
|
||||
text-align: center;
|
||||
position: relative;
|
||||
top: 60px;
|
||||
color: #999;
|
||||
}
|
||||
|
||||
#intro
|
||||
{
|
||||
height: 200px;
|
||||
overflow: auto;
|
||||
margin-bottom: 30px;
|
||||
}
|
||||
|
||||
#error
|
||||
{
|
||||
font-weight: bold;
|
||||
color: red;
|
||||
}
|
||||
|
||||
table
|
||||
{
|
||||
width: 90%;
|
||||
margin-left: 5%;
|
||||
margin-right: 5%;
|
||||
border: 0;
|
||||
}
|
||||
|
||||
table td
|
||||
{
|
||||
text-align: right;
|
||||
vertical-align: middle;
|
||||
}
|
||||
|
||||
.small
|
||||
{
|
||||
font-size: x-small
|
||||
}
|
||||
|
||||
.small a
|
||||
{
|
||||
color: white;
|
||||
}
|
||||
|
||||
.small a:hover
|
||||
{
|
||||
color: yellow;
|
||||
}
|
||||
|
||||
.footer
|
||||
{
|
||||
color: white;
|
||||
background-color: black;
|
||||
border-top: 1px solid gray ;
|
||||
padding: 2px ;
|
||||
position: fixed;
|
||||
bottom: 0
|
||||
}
|
||||
|
||||
.left
|
||||
{
|
||||
left: 0;
|
||||
}
|
||||
|
||||
.right
|
||||
{
|
||||
right: 0;
|
||||
}
|
||||
</style>
|
||||
</ewd:head>
|
||||
<ewd:body>
|
||||
<ewd:header>
|
||||
</ewd:header>
|
||||
|
||||
<ewd:footer>
|
||||
<div class="footer left small">
|
||||
<span>EWD Session # <?= #ewd_sessid ?></span>
|
||||
<a href="ewdLogout.ewd">Sign Out</a>
|
||||
</div>
|
||||
<div class="footer right small">
|
||||
<span>DUZ <?= #DUZ ?></span>
|
||||
<span>U <?= #U ?></span>
|
||||
<span>IO <?= #IO ?></span>
|
||||
</div>
|
||||
</ewd:footer>
|
||||
</ewd:body>
|
||||
</ewd:Template>
|
||||
|
|
@ -0,0 +1,82 @@
|
|||
<ewd:comment>
|
||||
(C) Sam Habiel 2011
|
||||
License: Inherits EWD License, whatever it is.
|
||||
</ewd:comment>
|
||||
|
||||
<ewd:config isFirstPage="true" prePageScript="setup^ewdu">
|
||||
<!DOCTYPE html>
|
||||
<html>
|
||||
<head>
|
||||
<title>VISTA Sign-On</title>
|
||||
|
||||
<!-- Redirect Javascript for EWD Errors -->
|
||||
<script type="text/javascript">
|
||||
var VISTA = {}; // Mi Casa
|
||||
|
||||
// Makes the EWD Error show up in a div rather than a pop-up
|
||||
VISTA.redirectEWDErrorToDiv = function () {
|
||||
EWD.page.errorMessage = function (msg) {
|
||||
if (msg !== '')
|
||||
{
|
||||
var errDiv = document.getElementById('error');
|
||||
errDiv.innerHTML = msg;
|
||||
}
|
||||
};
|
||||
};
|
||||
|
||||
// If AC contains an ; disable Verify Code field
|
||||
VISTA.checkAC = function (ac) {
|
||||
var vc = document.getElementById("vc");
|
||||
|
||||
if (ac.indexOf(";") > -1)
|
||||
{
|
||||
vc.disabled = "disabled";
|
||||
vc.placeholder = "ALREADY ENTERED";
|
||||
vc.style.background = "#646060";
|
||||
}
|
||||
else
|
||||
{
|
||||
vc.disabled = null;
|
||||
vc.placeholder = "Verify Code";
|
||||
vc.style.background = null;
|
||||
}
|
||||
};
|
||||
</script>
|
||||
<!-- End -->
|
||||
|
||||
</head>
|
||||
<body onload="VISTA.redirectEWDErrorToDiv()">
|
||||
<form id="login" method="post" action="ewd">
|
||||
<h1>Sign On to VISTA</h1>
|
||||
<div id="intro">
|
||||
<p>
|
||||
<ewd:forEach sessionName="so.introtxt" index="$n" return="$line">
|
||||
<?= $line ?> <br />
|
||||
</ewd:forEach>
|
||||
</p>
|
||||
</div>
|
||||
<fieldset id="inputs">
|
||||
<table>
|
||||
<tr>
|
||||
<td valign="middle"><label for="ac">Access Code</label></td>
|
||||
<td valign="middle"><input id="ac" type="password" oninput="VISTA.checkAC(this.value)" placeholder="Access Code" autofocus required></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td valign="middle"><label for="vc">Verify Code</label></td>
|
||||
<td valign="middle"><input id="vc" type="password" placeholder="Verify Code"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td> </td>
|
||||
<td><label for="cvc">Change Verify Code</label><input id="cvc" value="cvc" type="checkbox"></td>
|
||||
</tr>
|
||||
</table>
|
||||
</fieldset>
|
||||
<div id="error">
|
||||
</div>
|
||||
<fieldset id="actions">
|
||||
<input type="submit" name="submit" id="submit" value="Sign On" action="so^ewdu" nextpage="menu">
|
||||
<a href="">Help</a>
|
||||
</fieldset>
|
||||
</form>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,20 @@
|
|||
<ewd:config pageType="ajax" isFirstPage="false" prePageScript="listEWDApps^ewdu">
|
||||
<a href="redir.ewd?nextapp=bb">Bed Board</a><br />
|
||||
<a href="redir.ewd?nextapp=ewd-fm">EWD Fileman</a><br />
|
||||
<a href="redir.ewd?nextapp=DIINQUIRE">Inquire into File Entries</a>
|
||||
<ewd:ajaxOnLoad>
|
||||
var x = function() {
|
||||
apps = <?= #appsjson ?>;
|
||||
var fs = document.getElementById("fs");
|
||||
for (app in apps)
|
||||
{
|
||||
var input = document.createElement("input");
|
||||
input.setAttribute('id',apps[app]);
|
||||
input.setAttribute('type','button');
|
||||
input.setAttribute('value',apps[app]);
|
||||
|
||||
fs.appendChild(input);
|
||||
};
|
||||
}();
|
||||
</ewd:ajaxOnLoad>
|
||||
|
||||
|
|
@ -0,0 +1,25 @@
|
|||
<ewd:config isFirstPage="false">
|
||||
<!DOCTYPE html>
|
||||
<html>
|
||||
<head>
|
||||
<title>Menu System</title>
|
||||
<script type="text/javascript">
|
||||
var ln = function()
|
||||
{
|
||||
EWD.ajax.getPage({"page": "installedapps", "targetId": "intro"});
|
||||
};
|
||||
</script>
|
||||
</head>
|
||||
<body onload="ln()">
|
||||
<form id="menu" method="post" action="ewd">
|
||||
<h1>Menu</h1>
|
||||
<fieldset id="fs">
|
||||
<input type="submit" name="Submit" id="submit" value="Bed Board" action="sss^ewdu">
|
||||
<a href="">Help</a>
|
||||
</fieldset>
|
||||
<div id="intro">
|
||||
</div>
|
||||
</form>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
|
|
@ -0,0 +1 @@
|
|||
<ewd:config isFirstPage="false" prePageScript="redir^ewdu">
|
||||
|
|
@ -0,0 +1,172 @@
|
|||
ewdu ; JJIH/SMH - Utilities for EWD to VISTA interaction ; 11/18/11 5:39pm
|
||||
;
|
||||
r(sessid) ; Restore Symbol Table
|
||||
d mergeArrayFromSession^%zewdAPI(.DUZ,"DUZ",sessid)
|
||||
d mergeArrayFromSession^%zewdAPI(.IO,"IO",sessid)
|
||||
s U=$$getSessionValue^%zewdAPI("U",sessid)
|
||||
s DILOCKTM=$$getSessionValue^%zewdAPI("DILOCKTM",sessid)
|
||||
s DIQUIET=$$getSessionValue^%zewdAPI("DIQUIET",sessid)
|
||||
s DISYS=$$getSessionValue^%zewdAPI("DISYS",sessid)
|
||||
s DT=$$getSessionValue^%zewdAPI("DT",sessid)
|
||||
s DTIME=$$getSessionValue^%zewdAPI("DTIME",sessid)
|
||||
quit
|
||||
;
|
||||
s(sessid) ; Save to Symbol Table
|
||||
set DIQUIET=1 d DT^DICRW
|
||||
d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid)
|
||||
d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid)
|
||||
d setSessionValue^%zewdAPI("U","^",sessid)
|
||||
d setSessionValue^%zewdAPI("DILOCKTM",DILOCKTM,sessid)
|
||||
d setSessionValue^%zewdAPI("DIQUIET",DIQUIET,sessid)
|
||||
d setSessionValue^%zewdAPI("DISYS",DISYS,sessid)
|
||||
d setSessionValue^%zewdAPI("DT",DT,sessid)
|
||||
d setSessionValue^%zewdAPI("DTIME",DTIME,sessid)
|
||||
quit
|
||||
;
|
||||
; Custom Tag
|
||||
SS(nodeOID,attrValues,docOID,technology) ; <vista:session> to get VISTA Session Variables
|
||||
N attr
|
||||
S attr("method")="r^ewdu"
|
||||
S attr("param1")="#ewd_sessid"
|
||||
S attr("type")="procedure"
|
||||
N xOID s xOID=$$addElementToDOM^%zewdDOM("ewd:execute",nodeOID,"",.attr)
|
||||
D removeIntermediateNode^%zewdDOM(nodeOID)
|
||||
quit
|
||||
;
|
||||
NULL ; Open Null Device
|
||||
s %ZIS="0H",IOP="NULL" d ^%ZIS
|
||||
i POP s $ec=",U1," ; this crashes everything... intended...
|
||||
q
|
||||
;
|
||||
setup(sessid) ; Set-up and SSO
|
||||
; TODO: Set IO("CLNM")
|
||||
i '$data(IO) d NULL ; Open Null Device
|
||||
s IO("IP")=$$getServerValue^%zewdAPI("REMOTE_ADDR",sessid)
|
||||
n return
|
||||
d SETUP^XUSRB(.return) ; Set-up and Try SSO
|
||||
;0=server name, 1=volume, 2=uci, 3=device, 4=# attempts, 5=skip signon-screen,6=Domain Name, 7=Production (0=no, 1=Yes)
|
||||
i $g(return(5)),DUZ>0 q $$s(sessid) ; Single Sign-On Successful; need redirect though here.
|
||||
e d q "" ; Otherwise, get INTRO text
|
||||
. N INTROTXT
|
||||
. D INTRO^XUSRB(.INTROTXT)
|
||||
. d mergeArrayToSession^%zewdAPI(.INTROTXT,"so.introtxt",sessid)
|
||||
. d setSessionValue^%zewdAPI("so.serverName",return(0),sessid)
|
||||
. d setSessionValue^%zewdAPI("so.volume",return(1),sessid)
|
||||
. d setSessionValue^%zewdAPI("so.uci",return(2),sessid)
|
||||
. ; Don't care about device! (return(3))
|
||||
. ; Number of Attempts (return(4))
|
||||
. d setSessionValue^%zewdAPI("so.fqdn",return(6),sessid)
|
||||
. d setSessionValue^%zewdAPI("so.prod",return(7),sessid)
|
||||
. ;
|
||||
. ; Get the Date in the Symbol Table since $$SITE wants it
|
||||
. s DIQUIET=1 d DT^DICRW
|
||||
. ;
|
||||
. ; Get the site name and format it
|
||||
. n sitename s sitename=$P($$SITE^VASITE(),"^",2)
|
||||
. s sitename=$$TITLE^XLFSTR(sitename)
|
||||
. d setSessionValue^%zewdAPI("so.sitename",sitename,sessid)
|
||||
; ---
|
||||
so(sessid) ; SO from EWD; routes to $$SO
|
||||
; TODO: Set IO("CLNM")
|
||||
d NULL ; IO set-up
|
||||
s IO("IP")=$$getServerValue^%zewdAPI("REMOTE_ADDR",sessid)
|
||||
d SETUP^XUSRB(); ; This time, just need partition set-up
|
||||
n ac s ac=$$getSessionValue^%zewdAPI("ac",sessid)
|
||||
n vc s vc=$$getSessionValue^%zewdAPI("vc",sessid)
|
||||
n result s result=$$SO(ac,vc)
|
||||
;
|
||||
; Change Verify Code Logic Ahead... Damn Complex!
|
||||
i $l(result),result="CVC" d q "" ; User must change Verify Code
|
||||
. S DUZ=$$STATE^XWBSEC("XUS DUZ") ; VISTA kills off DUZ if vc needs changing.
|
||||
. ; That's fine when it can get it back. But we are not a stateful process.
|
||||
. ; By the time the second request is made, XUS DUZ is gone gone gone.
|
||||
. d s(sessid) ; Save symbol table for next page (including DUZ)
|
||||
. d setRedirect^%zewdAPI("cvc",sessid) ; Next page is cvc.
|
||||
. d setSessionValue^%zewdAPI("cvcForced",1,sessid) ; Need to know that the user is toast!
|
||||
;
|
||||
i $l(result) q result ; General Error Message - User can't log-in
|
||||
;
|
||||
e d q "" ; Everything Okay
|
||||
. d s(sessid)
|
||||
. i $$isCheckboxOn^%zewdAPI("cvc","cvc",sessid) d setRedirect^%zewdAPI("cvc",sessid)
|
||||
;
|
||||
SO(ac,vc) ; Sign-on to VISTA, AV way
|
||||
; TODO: Handle the rest of the return values
|
||||
N return
|
||||
; if ac contains ;, then it contains the verify code
|
||||
; else, send ac;vc
|
||||
if ac[";" d VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac))
|
||||
else d VALIDAV^XUSRB(.return,$$ENCRYP^XUSRB1(ac_";"_vc))
|
||||
i return(0)>0,'return(2) q "" ; Sign on successful!
|
||||
i return(0)=0,return(2) q "CVC" ; Verify Code must be changed NOW!
|
||||
i $l(return(3)) q return(3) ; Error Message returned whole
|
||||
; Note: division selection not implemented here
|
||||
quit ""
|
||||
; ---
|
||||
sss(id) ; Test
|
||||
d setRedirect^%zewdAPI("index",id,"bb")
|
||||
q ""
|
||||
whoami(sessid) ; Who Am I? PrePage Script
|
||||
d r(sessid)
|
||||
n Name s Name=$$GET1^DIQ(200,DUZ,.01) ; User Name
|
||||
d setSessionValue^%zewdAPI("Name",Name,sessid)
|
||||
q ""
|
||||
cvc(sessid) ; Change Verify Code
|
||||
; get stored session values for DUZ, IO, and U
|
||||
d r(sessid) ; Restore the Symbol Table
|
||||
n VC1,VC2,VC3
|
||||
s VC1=$$getPasswordValue^%zewdAPI("vc1",sessid)
|
||||
s VC2=$$getPasswordValue^%zewdAPI("vc2",sessid)
|
||||
s VC3=$$getPasswordValue^%zewdAPI("vc3",sessid)
|
||||
; Uppercase them -- otherwise CVC will fail.
|
||||
s VC1=$$UP^XLFSTR(VC1)
|
||||
s VC2=$$UP^XLFSTR(VC2)
|
||||
s VC3=$$UP^XLFSTR(VC3)
|
||||
; Roman Cipher them vista-wise
|
||||
n eVC1,eVC2,eVC3
|
||||
s eVC1=$$ENCRYP^XUSRB1(VC1)
|
||||
s eVC2=$$ENCRYP^XUSRB1(VC2)
|
||||
s eVC3=$$ENCRYP^XUSRB1(VC3)
|
||||
; Set-up Call
|
||||
n vcString s vcString=eVC1_U_eVC2_U_eVC3
|
||||
n ret
|
||||
d CVC^XUSRB(.ret,vcString)
|
||||
i ret(0)=0 q "" ; Success
|
||||
i ret(0)>0 q ret(1) ; Failure
|
||||
;;
|
||||
;;return(0)=0
|
||||
;;return(1)=0
|
||||
;;return(2)=1
|
||||
;;return(3)="VERIFY CODE must be changed before continued use."
|
||||
;;return(4)=0
|
||||
;;return(5)=0
|
||||
;;return(6)=""
|
||||
;;return(7)="Good evening DOCTOR,TEN"
|
||||
;;return(8)=" You last signed on today at 22:19"
|
||||
listEWDApps(sessid) ; Lists all available EWD Applicaitons, not including ewdMgr. Intended to be an imitation of a menu.
|
||||
n apps ; Will hold our applications
|
||||
do
|
||||
. n ewdpath s ewdpath=^zewd("config","applicationRootPath")
|
||||
. o "lsApps":(shell="/bin/bash":command="ls -1 "_ewdpath:READONLY)::"PIPE"
|
||||
. u "lsApps"
|
||||
. n line
|
||||
. n counter s counter=1
|
||||
. for read line quit:$zeof do
|
||||
. . i line="ewdMgr" quit ; Don't include ewdMgr
|
||||
. . s apps(counter)=line
|
||||
. . s counter=counter+1
|
||||
. c "lsApps"
|
||||
. zwrite:$g(debug) apps
|
||||
. d mergeArrayToSession^%zewdAPI(.apps,"installedapps",sessid)
|
||||
;
|
||||
; Old code: uses JSON
|
||||
; n appsjson s appsjson=$$arrayToJSON^%zewdJSON("apps")
|
||||
; zwrite:$g(debug) appsjson
|
||||
; d setSessionValue^%zewdAPI("appsjson",appsjson,sessid)
|
||||
;
|
||||
q ""
|
||||
redir(sessid)
|
||||
n redirapp s redirapp=$$getRequestValue^%zewdAPI("nextapp",sessid)
|
||||
d setRedirect^%zewdAPI("index",sessid,redirapp)
|
||||
q ""
|
||||
;
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
<ewd:config>
|
||||
<html>
|
||||
<head>
|
||||
<title>Test Page</title>
|
||||
</head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<p>This is a test page</p>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
|
|
@ -0,0 +1,10 @@
|
|||
<ewd:config>
|
||||
<head>
|
||||
<title>Test Page</title>
|
||||
</head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<p>This is a test page</p>
|
||||
<a href=Page2b.ewd>Go to page 2</a><br><br>
|
||||
<a href=ewdLogout.ewd>Log out</a>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,12 @@
|
|||
<ewd:config isFirstPage="true">
|
||||
<html>
|
||||
<head>
|
||||
<title>Test Page</title>
|
||||
</head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<p>This is a test page</p>
|
||||
<a href=Page2c.ewd>Go to page 2</a><br><br>
|
||||
<a href=Page3c.ewd>Go to page 3</a><br><br>
|
||||
<a href=ewdLogout.ewd>Log out</a>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,27 @@
|
|||
<ewd:config isFirstPage="true">
|
||||
<html>
|
||||
<head>
|
||||
<title>Test Page</title>
|
||||
</head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<p>This is a test page</p>
|
||||
<h3>Please enter your username and password:</h3>
|
||||
<form method="POST" action=ewd>
|
||||
<table border=0>
|
||||
<tr>
|
||||
<td>Username: </td>
|
||||
<td><input type="text" name="username" focus="true" value="*"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Password: </td>
|
||||
<td><input type="password" name="password"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input type="submit" name="Submit" value="Login" action="login^KBANDemo" nextpage="Page2d"></td>
|
||||
</tr>
|
||||
</table>
|
||||
</form>
|
||||
<br><br>
|
||||
<a href=ewdLogout.ewd>Log out</a>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,26 @@
|
|||
<ewd:config isFirstPage="true" />
|
||||
|
||||
<html>
|
||||
<head><title>Test Page</title></head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<p>This is a test page</p>
|
||||
<h3>Please enter your username and password:</h3>
|
||||
<form method="post" action="ewd">
|
||||
<table border=0>
|
||||
<tr>
|
||||
<td>Username: </td>
|
||||
<td><input type="text" name="username" focus="true" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Password: </td>
|
||||
<td><input type="password" name="password" /></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input type="submit" name="Submit" value="Login" action="login^KBANDemo" nextpage="Page2e" /></td>
|
||||
</tr>
|
||||
</table>
|
||||
</form>
|
||||
<br /><br />
|
||||
<a href="ewdLogout.ewd">Log out</a>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
<ewd:config>
|
||||
<html>
|
||||
<head>
|
||||
<title>Test Page</title>
|
||||
</head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<p>This is a second test page</p>
|
||||
<a href=Page1b.ewd>Go back to to page 1</a><br><br>
|
||||
<a href=ewdLogout.ewd>Log out</a>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
<ewd:config isFirstPage="false">
|
||||
<html>
|
||||
<head>
|
||||
<title>Test Page</title>
|
||||
</head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<p>This is a second test page</p>
|
||||
<a href=Page1c.ewd>Go back to to page 1</a><br><br>
|
||||
<a href=ewdLogout.ewd>Log out</a>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,15 @@
|
|||
<ewd:config isFirstPage="false">
|
||||
<html>
|
||||
<head>
|
||||
<title>Test Page</title>
|
||||
</head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<p>This is a second test page</p>
|
||||
<br>Hello <?= #username ?><br>
|
||||
Your password is <?= #password ?><br>
|
||||
Your session ID is <?= #ewd_sessid ?>
|
||||
<br><br>
|
||||
<a href=ewdLogout.ewd>Log out</a>
|
||||
<hr>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,21 @@
|
|||
<ewd:config isFirstPage="false" prePageScript="getUsernames^KBANDemo">
|
||||
<html>
|
||||
<head><title>Test Page</title></head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<h3>Select a user to edit</h3>
|
||||
<form method="post" action="ewd">
|
||||
<table border=1>
|
||||
<tr>
|
||||
<td colspan=2>Select an existing username :</td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><select name="user"></select>
|
||||
<td><input type="submit" name="Edit" value="Select" nextpage="Page3e"></td>
|
||||
</tr>
|
||||
</table>
|
||||
</form>
|
||||
<br><br>
|
||||
<a href=ewdLogout.ewd>Log out</a>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
|
|
@ -0,0 +1,11 @@
|
|||
<ewd:config isFirstPage="false">
|
||||
<html>
|
||||
<head>
|
||||
<title>Test Page mod</title>
|
||||
</head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<p>This is a third test page</p>
|
||||
<a href=Page1c.ewd>Go back to to page 1</a><br><br>
|
||||
<a href=ewdLogout.ewd>Log out</a>
|
||||
</body>
|
||||
</html>
|
||||
|
|
@ -0,0 +1,38 @@
|
|||
<ewd:config isFirstPage="false" prePageScript="getInfo^KBANDemo">
|
||||
<html>
|
||||
<head><title>Test Page</title></head>
|
||||
<body bgcolor="#C5E3E4">
|
||||
<p>Set/Modify Verify Code</p>
|
||||
<form method="POST" action="ewd">
|
||||
<table border=1>
|
||||
<tr>
|
||||
<td>Username: </td>
|
||||
<td><?= #Name ?></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Verify Code (existing): </td>
|
||||
<td><input type="text" name="vc1" value="*"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Verify Code (new): </td>
|
||||
<td><input type="text" name="vc2" value="*"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td>Verify Code (confirm): </td>
|
||||
<td><input type="text" name="vc3" value="*"></td>
|
||||
</tr>
|
||||
<tr>
|
||||
<td><input type="submit" name="save" value="Save" action="CVC^KBANDemo" nextpage="Page2e"></td>
|
||||
</tr>
|
||||
</table>
|
||||
</form>
|
||||
<p>Change other info</p>
|
||||
<form method="POST" action="ewd">
|
||||
<p>Office Phone: <input type="text" name="officePhone" value="<?= #officePhone ?>" /></p>
|
||||
<p><input type="submit" name="save2" value="Save Phones" action="savePhones^KBANDemo" /></p>
|
||||
<br><br>
|
||||
<a href="Page2e.ewd">Select another username</a><br><br>
|
||||
<a href=ewdLogout.ewd>Log out</a>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
|
|
@ -0,0 +1,61 @@
|
|||
KBANDemo ; Test to demo EWD
|
||||
;;
|
||||
login(sessid)
|
||||
n error s error=""
|
||||
n un,pw
|
||||
s un=$$getTextValue^%zewdAPI("username",sessid)
|
||||
s pw=$$getPasswordValue^%zewdAPI("password",sessid)
|
||||
s %ZIS="0H",IOP="NULL"
|
||||
d ^%ZIS
|
||||
i POP s error="Programming error" d ^%ZTER g EXIT
|
||||
d SETUP^XUSRB() ; Set-up for GUI signon
|
||||
n RETURN
|
||||
D VALIDAV^XUSRB(.RETURN,$$ENCRYP^XUSRB1(un_";"_pw))
|
||||
n DUZ s DUZ=RETURN(0)
|
||||
i DUZ'>0 s error="No a valid login"
|
||||
i error="" d ; everything is okay; save symtab crap
|
||||
. d mergeArrayToSession^%zewdAPI(.DUZ,"DUZ",sessid)
|
||||
. d mergeArrayToSession^%zewdAPI(.IO,"IO",sessid)
|
||||
. d setSessionValue^%zewdAPI("U","^",sessid)
|
||||
q error
|
||||
EXIT D:$G(DUZ) LOGOUT^XUSRB
|
||||
Q error
|
||||
getUsernames(sessid)
|
||||
d clearList^%zewdAPI("user",sessid)
|
||||
n sam
|
||||
d LIST^DIC(200,"","@;.01","PKU","*","","","","","","sam")
|
||||
n i s i=0
|
||||
f s i=$o(sam("DILIST",i)) q:i="" d
|
||||
. n entry s entry=sam("DILIST",i,0)
|
||||
. d appendToList^%zewdAPI("user",$p(entry,U,2),$p(entry,U),sessid)
|
||||
quit ""
|
||||
getInfo(sessid)
|
||||
n DUZ s DUZ=$$getSessionValue^%zewdAPI("user",sessid)
|
||||
n Name s Name=$$GET1^DIQ(200,DUZ,.01)
|
||||
n officePhone s officePhone=$$GET1^DIQ(200,DUZ,"OFFICE PHONE")
|
||||
d setSessionValue^%zewdAPI("Name",Name,sessid)
|
||||
d setSessionValue^%zewdAPI("officePhone",officePhone,sessid)
|
||||
quit ""
|
||||
savePhones(sessid)
|
||||
quit ""
|
||||
CVC(sessid)
|
||||
; get stored session values for DUZ, IO, and U
|
||||
d FillSymTab(sessid)
|
||||
n VC1,VC2,VC3
|
||||
s VC1=$$getPasswordValue^%zewdAPI("vc1",sessid)
|
||||
s VC2=$$getPasswordValue^%zewdAPI("vc2",sessid)
|
||||
s VC3=$$getPasswordValue^%zewdAPI("vc3",sessid)
|
||||
n eVC1,eVC2,eVC3
|
||||
s eVC1=$$ENCRYP^XUSRB1(VC1)
|
||||
s eVC2=$$ENCRYP^XUSRB1(VC2)
|
||||
s eVC3=$$ENCRYP^XUSRB1(VC3)
|
||||
n vcString s vcString=eVC1_U_eVC2_U_eVC3
|
||||
n ret
|
||||
d CVC^XUSRB(.ret,vcString)
|
||||
i ret(0)=0 q ""
|
||||
i ret(0)>0 q ret(1)
|
||||
FillSymTab(id) ; Fill symbol table
|
||||
d mergeArrayFromSession^%zewdAPI(.DUZ,"DUZ",id)
|
||||
d mergeArrayFromSession^%zewdAPI(.IO,"IO",id)
|
||||
s U=$$getSessionValue^%zewdAPI("U",id)
|
||||
quit
|
||||
|
|
@ -0,0 +1,306 @@
|
|||
KIDS Distribution saved on Oct 28, 2011@18:29:26
|
||||
initial build of ewd fileman source file
|
||||
**KIDS**:C0E*1.0*0^
|
||||
|
||||
**INSTALL NAME**
|
||||
C0E*1.0*0
|
||||
"BLD",6975,0)
|
||||
C0E*1.0*0^^0^3111028^n
|
||||
"BLD",6975,4,0)
|
||||
^9.64PA^70060^1
|
||||
"BLD",6975,4,70060,0)
|
||||
70060
|
||||
"BLD",6975,4,70060,222)
|
||||
y^y^f^^^^n
|
||||
"BLD",6975,4,"B",70060,70060)
|
||||
|
||||
"BLD",6975,6.3)
|
||||
1
|
||||
"BLD",6975,"KRN",0)
|
||||
^9.67PA^8989.52^19
|
||||
"BLD",6975,"KRN",.4,0)
|
||||
.4
|
||||
"BLD",6975,"KRN",.401,0)
|
||||
.401
|
||||
"BLD",6975,"KRN",.402,0)
|
||||
.402
|
||||
"BLD",6975,"KRN",.403,0)
|
||||
.403
|
||||
"BLD",6975,"KRN",.5,0)
|
||||
.5
|
||||
"BLD",6975,"KRN",.84,0)
|
||||
.84
|
||||
"BLD",6975,"KRN",3.6,0)
|
||||
3.6
|
||||
"BLD",6975,"KRN",3.8,0)
|
||||
3.8
|
||||
"BLD",6975,"KRN",9.2,0)
|
||||
9.2
|
||||
"BLD",6975,"KRN",9.8,0)
|
||||
9.8
|
||||
"BLD",6975,"KRN",19,0)
|
||||
19
|
||||
"BLD",6975,"KRN",19.1,0)
|
||||
19.1
|
||||
"BLD",6975,"KRN",101,0)
|
||||
101
|
||||
"BLD",6975,"KRN",409.61,0)
|
||||
409.61
|
||||
"BLD",6975,"KRN",771,0)
|
||||
771
|
||||
"BLD",6975,"KRN",870,0)
|
||||
870
|
||||
"BLD",6975,"KRN",8989.51,0)
|
||||
8989.51
|
||||
"BLD",6975,"KRN",8989.52,0)
|
||||
8989.52
|
||||
"BLD",6975,"KRN",8994,0)
|
||||
8994
|
||||
"BLD",6975,"KRN","B",.4,.4)
|
||||
|
||||
"BLD",6975,"KRN","B",.401,.401)
|
||||
|
||||
"BLD",6975,"KRN","B",.402,.402)
|
||||
|
||||
"BLD",6975,"KRN","B",.403,.403)
|
||||
|
||||
"BLD",6975,"KRN","B",.5,.5)
|
||||
|
||||
"BLD",6975,"KRN","B",.84,.84)
|
||||
|
||||
"BLD",6975,"KRN","B",3.6,3.6)
|
||||
|
||||
"BLD",6975,"KRN","B",3.8,3.8)
|
||||
|
||||
"BLD",6975,"KRN","B",9.2,9.2)
|
||||
|
||||
"BLD",6975,"KRN","B",9.8,9.8)
|
||||
|
||||
"BLD",6975,"KRN","B",19,19)
|
||||
|
||||
"BLD",6975,"KRN","B",19.1,19.1)
|
||||
|
||||
"BLD",6975,"KRN","B",101,101)
|
||||
|
||||
"BLD",6975,"KRN","B",409.61,409.61)
|
||||
|
||||
"BLD",6975,"KRN","B",771,771)
|
||||
|
||||
"BLD",6975,"KRN","B",870,870)
|
||||
|
||||
"BLD",6975,"KRN","B",8989.51,8989.51)
|
||||
|
||||
"BLD",6975,"KRN","B",8989.52,8989.52)
|
||||
|
||||
"BLD",6975,"KRN","B",8994,8994)
|
||||
|
||||
"FIA",70060)
|
||||
C0E EWD SOURCE
|
||||
"FIA",70060,0)
|
||||
^C0E(70060,
|
||||
"FIA",70060,0,0)
|
||||
70060
|
||||
"FIA",70060,0,1)
|
||||
y^y^f^^^^n
|
||||
"FIA",70060,0,10)
|
||||
|
||||
"FIA",70060,0,11)
|
||||
|
||||
"FIA",70060,0,"RLRO")
|
||||
|
||||
"FIA",70060,70060)
|
||||
0
|
||||
"FIA",70060,70060.01)
|
||||
0
|
||||
"FIA",70060,70060.11)
|
||||
0
|
||||
"FIA",70060,70060.12)
|
||||
0
|
||||
"MBREQ")
|
||||
0
|
||||
"QUES","XPF1",0)
|
||||
Y
|
||||
"QUES","XPF1","??")
|
||||
^D REP^XPDH
|
||||
"QUES","XPF1","A")
|
||||
Shall I write over your |FLAG| File
|
||||
"QUES","XPF1","B")
|
||||
YES
|
||||
"QUES","XPF1","M")
|
||||
D XPF1^XPDIQ
|
||||
"QUES","XPF2",0)
|
||||
Y
|
||||
"QUES","XPF2","??")
|
||||
^D DTA^XPDH
|
||||
"QUES","XPF2","A")
|
||||
Want my data |FLAG| yours
|
||||
"QUES","XPF2","B")
|
||||
YES
|
||||
"QUES","XPF2","M")
|
||||
D XPF2^XPDIQ
|
||||
"QUES","XPI1",0)
|
||||
YO
|
||||
"QUES","XPI1","??")
|
||||
^D INHIBIT^XPDH
|
||||
"QUES","XPI1","A")
|
||||
Want KIDS to INHIBIT LOGONs during the install
|
||||
"QUES","XPI1","B")
|
||||
NO
|
||||
"QUES","XPI1","M")
|
||||
D XPI1^XPDIQ
|
||||
"QUES","XPM1",0)
|
||||
PO^VA(200,:EM
|
||||
"QUES","XPM1","??")
|
||||
^D MG^XPDH
|
||||
"QUES","XPM1","A")
|
||||
Enter the Coordinator for Mail Group '|FLAG|'
|
||||
"QUES","XPM1","B")
|
||||
|
||||
"QUES","XPM1","M")
|
||||
D XPM1^XPDIQ
|
||||
"QUES","XPO1",0)
|
||||
Y
|
||||
"QUES","XPO1","??")
|
||||
^D MENU^XPDH
|
||||
"QUES","XPO1","A")
|
||||
Want KIDS to Rebuild Menu Trees Upon Completion of Install
|
||||
"QUES","XPO1","B")
|
||||
NO
|
||||
"QUES","XPO1","M")
|
||||
D XPO1^XPDIQ
|
||||
"QUES","XPZ1",0)
|
||||
Y
|
||||
"QUES","XPZ1","??")
|
||||
^D OPT^XPDH
|
||||
"QUES","XPZ1","A")
|
||||
Want to DISABLE Scheduled Options, Menu Options, and Protocols
|
||||
"QUES","XPZ1","B")
|
||||
NO
|
||||
"QUES","XPZ1","M")
|
||||
D XPZ1^XPDIQ
|
||||
"QUES","XPZ2",0)
|
||||
Y
|
||||
"QUES","XPZ2","??")
|
||||
^D RTN^XPDH
|
||||
"QUES","XPZ2","A")
|
||||
Want to MOVE routines to other CPUs
|
||||
"QUES","XPZ2","B")
|
||||
NO
|
||||
"QUES","XPZ2","M")
|
||||
D XPZ2^XPDIQ
|
||||
"SEC","^DIC",70060,70060,0,"AUDIT")
|
||||
@
|
||||
"SEC","^DIC",70060,70060,0,"DD")
|
||||
@
|
||||
"SEC","^DIC",70060,70060,0,"DEL")
|
||||
@
|
||||
"SEC","^DIC",70060,70060,0,"LAYGO")
|
||||
@
|
||||
"SEC","^DIC",70060,70060,0,"RD")
|
||||
@
|
||||
"SEC","^DIC",70060,70060,0,"WR")
|
||||
@
|
||||
"VER")
|
||||
8.0^22.0
|
||||
"^DD",70060,70060,0)
|
||||
FIELD^^1^2
|
||||
"^DD",70060,70060,0,"DDA")
|
||||
N
|
||||
"^DD",70060,70060,0,"DT")
|
||||
3111028
|
||||
"^DD",70060,70060,0,"IX","B",70060,.01)
|
||||
|
||||
"^DD",70060,70060,0,"NM","C0E EWD SOURCE")
|
||||
|
||||
"^DD",70060,70060,.01,0)
|
||||
EWD APPLICATION NAME^RF^^0;1^K:$L(X)>240!($L(X)<3)!'(X'?1P.E) X
|
||||
"^DD",70060,70060,.01,.1)
|
||||
name of EWD package
|
||||
"^DD",70060,70060,.01,1,0)
|
||||
^.1
|
||||
"^DD",70060,70060,.01,1,1,0)
|
||||
70060^B
|
||||
"^DD",70060,70060,.01,1,1,1)
|
||||
S ^C0E(70060,"B",$E(X,1,30),DA)=""
|
||||
"^DD",70060,70060,.01,1,1,2)
|
||||
K ^C0E(70060,"B",$E(X,1,30),DA)
|
||||
"^DD",70060,70060,.01,3)
|
||||
Answer must be 3-240 characters in length
|
||||
"^DD",70060,70060,.01,"DT")
|
||||
3111028
|
||||
"^DD",70060,70060,1,0)
|
||||
PAGE^70060.01^^1;0
|
||||
"^DD",70060,70060.01,0)
|
||||
PAGE SUB-FIELD^^2^4
|
||||
"^DD",70060,70060.01,0,"DT")
|
||||
3111028
|
||||
"^DD",70060,70060.01,0,"IX","B",70060.01,.01)
|
||||
|
||||
"^DD",70060,70060.01,0,"NM","PAGE")
|
||||
|
||||
"^DD",70060,70060.01,0,"UP")
|
||||
70060
|
||||
"^DD",70060,70060.01,.01,0)
|
||||
PAGE NAME^MF^^0;1^K:$L(X)>240!($L(X)<3) X
|
||||
"^DD",70060,70060.01,.01,.1)
|
||||
EWD PAGE NAME
|
||||
"^DD",70060,70060.01,.01,1,0)
|
||||
^.1
|
||||
"^DD",70060,70060.01,.01,1,1,0)
|
||||
70060.01^B
|
||||
"^DD",70060,70060.01,.01,1,1,1)
|
||||
S ^C0E(70060,DA(1),1,"B",$E(X,1,30),DA)=""
|
||||
"^DD",70060,70060.01,.01,1,1,2)
|
||||
K ^C0E(70060,DA(1),1,"B",$E(X,1,30),DA)
|
||||
"^DD",70060,70060.01,.01,3)
|
||||
Answer must be 3-240 characters in length
|
||||
"^DD",70060,70060.01,.01,"DT")
|
||||
3111028
|
||||
"^DD",70060,70060.01,.02,0)
|
||||
ROUTINE NAME^F^^0;2^K:$L(X)>8!($L(X)<3) X
|
||||
"^DD",70060,70060.01,.02,.1)
|
||||
VISTA ROUTINE NAME
|
||||
"^DD",70060,70060.01,.02,3)
|
||||
Answer must be 3-8 characters in length
|
||||
"^DD",70060,70060.01,.02,"DT")
|
||||
3111028
|
||||
"^DD",70060,70060.01,1,0)
|
||||
EWD SOURCE CODE^70060.11^^1;0
|
||||
"^DD",70060,70060.01,2,0)
|
||||
DESCRIPTION^70060.12^^2;0
|
||||
"^DD",70060,70060.11,0)
|
||||
EWD SOURCE CODE SUB-FIELD^^.01^1
|
||||
"^DD",70060,70060.11,0,"DT")
|
||||
3111028
|
||||
"^DD",70060,70060.11,0,"NM","EWD SOURCE CODE")
|
||||
|
||||
"^DD",70060,70060.11,0,"UP")
|
||||
70060.01
|
||||
"^DD",70060,70060.11,.01,0)
|
||||
EWD SOURCE CODE^Wx^^0;1
|
||||
"^DD",70060,70060.11,.01,.1)
|
||||
PAGE EWD SOURCE CODE
|
||||
"^DD",70060,70060.11,.01,"DT")
|
||||
3111028
|
||||
"^DD",70060,70060.12,0)
|
||||
DESCRIPTION SUB-FIELD^^.01^1
|
||||
"^DD",70060,70060.12,0,"DT")
|
||||
3111028
|
||||
"^DD",70060,70060.12,0,"NM","DESCRIPTION")
|
||||
|
||||
"^DD",70060,70060.12,0,"UP")
|
||||
70060.01
|
||||
"^DD",70060,70060.12,.01,0)
|
||||
DESCRIPTION^Wx^^0;1
|
||||
"^DD",70060,70060.12,.01,.1)
|
||||
DOCUMENTATION FOR THE PAGE
|
||||
"^DD",70060,70060.12,.01,"DT")
|
||||
3111028
|
||||
"^DIC",70060,70060,0)
|
||||
C0E EWD SOURCE^70060
|
||||
"^DIC",70060,70060,0,"GL")
|
||||
^C0E(70060,
|
||||
"^DIC",70060,"B","C0E EWD SOURCE",70060)
|
||||
|
||||
**END**
|
||||
**END**
|
||||
Loading…
Reference in New Issue