Index: ccr/trunk/p/C0CE000A.m
===================================================================
--- ccr/trunk/p/C0CE000A.m (revision 1214)
+++ (revision )
@@ -1,72 +1,0 @@
- ;GT.M version of page ewdAjaxError (patientportal application)
- ;Compiled on Mon, 01 Mar 2010 17:10:44
- ;using Enterprise Web Developer (Build 790)
- QUIT
- ;
-run ;
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
- s ok=$$pre()
- i ok d body
- QUIT
- ;
-pre() ;
- ;
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
- ;
- s confirmText="Click OK if you're sure you want to delete this record"
- s sessionArray("ewd_isFirstPage")="1"
- s sessionArray("ewd_sessid_timeout")="1200"
- s sessionArray("ewd_prePageScript")=""
- s sessionArray("ewd_default_timeout")="1200"
- s sessionArray("ewd_persistRequest")="true"
- s sessionArray("ewd_pageTitle")=""
- s sessionArray("ewd_errorPage")="ewdError"
- s sessionArray("ewd_templatePrePageScript")=""
- s sessionArray("ewd_onErrorScript")=""
- s sessionArray("ewd_appName")="patientportal"
- s sessionArray("ewd_pageName")="ewdAjaxError"
- s sessionArray("ewd_translationMode")="0"
- s sessionArray("ewd_technology")="gtm"
- s sessionArray("ewd_pageType")=""
- s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
- s sessid=$g(sessionArray("ewd_sessid"))
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
- . s Error=$p(Error,":",2,200)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
- . s Error="EWD runtime error: "_Error
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
- . n errorPage
- . s errorPage=$g(sessionArray("ewd_errorPage"))
- . i errorPage="" s errorPage="ewdError"
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
- s stop=0
- i Error="" d i stop QUIT 0
- . n nextpage
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
- . i nextpage'="" d
- . . n x
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
- . . s stop=1
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
- w "HTTP/1.1 200 OK"_$c(13,10)
- s ctype="text/html"
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
- i $d(headers) d
- . n lcname,name
- . s name=""
- . f s name=$o(headers(name)) q:name="" d
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
- . . i lcname="content-type" s ctype=headers(name) q
- . . w name_": "_headers(name)_$c(13,10)
- w "Content-type: "_ctype_$c(13,10)
- w $c(13,10)
- QUIT 1
- ;
-body ;
- w ""_$c(13,10)
- w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
- w ""_$c(13,10)
- QUIT
Index: ccr/trunk/p/C0CE000E.m
===================================================================
--- ccr/trunk/p/C0CE000E.m (revision 1214)
+++ (revision )
@@ -1,65 +1,0 @@
- ;GT.M version of page ewdError (patientportal application)
- ;Compiled on Mon, 01 Mar 2010 17:10:45
- ;using Enterprise Web Developer (Build 790)
- QUIT
- ;
-run ;
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
- s ok=$$pre()
- i ok d body
- QUIT
- ;
-pre() ;
- ;
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
- ;
- w "HTTP/1.1 200 OK"_$c(13,10)
- w "Content-type: text/html"_$c(13,10,13,10)
- QUIT 1
- ;
-body ;
- w ""_$c(13,10)
- w ""_$c(13,10)
- w ""_$c(13,10)
- w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
- w ""_$c(13,10)
- w ""_$c(13,10)
- w ""_$c(13,10)
- w ""_$c(13,10)
- w "
"_$c(13,10)
- w "
"_$c(13,10)
- w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
- w "
"_$c(13,10)
- w ""_$c(13,10)
- w "
"_$c(13,10)
- w "
"_$c(13,10)
- w "
An Error has occurred
"_$c(13,10)
- w " "_$c(13,10)
- w "
"_$g(%KEY("error"))_"
"_$c(13,10)
- w "
"_$c(13,10)
- w "
"_$c(13,10)
- w "
"_$c(13,10)
- w ""_$c(13,10)
- w " "_$c(13,10)
- w ""_$c(13,10)
- w ""_$c(13,10)
- QUIT
Index: ccr/trunk/p/C0CE000F.m
===================================================================
--- ccr/trunk/p/C0CE000F.m (revision 1214)
+++ (revision )
@@ -1,92 +1,0 @@
- ;GT.M version of page ewdAjaxErrorRedirect (patientportal application)
- ;Compiled on Mon, 01 Mar 2010 17:10:44
- ;using Enterprise Web Developer (Build 790)
- QUIT
- ;
-run ;
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
- s ok=$$pre()
- i ok d body
- QUIT
- ;
-pre() ;
- ;
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
- ;
- s confirmText="Click OK if you're sure you want to delete this record"
- s sessionArray("ewd_isFirstPage")="0"
- s sessionArray("ewd_sessid_timeout")="1200"
- s sessionArray("ewd_prePageScript")=""
- s sessionArray("ewd_default_timeout")="1200"
- s sessionArray("ewd_persistRequest")="true"
- s sessionArray("ewd_pageTitle")=""
- s sessionArray("ewd_errorPage")="ewdError"
- s sessionArray("ewd_templatePrePageScript")=""
- s sessionArray("ewd_onErrorScript")=""
- s sessionArray("ewd_appName")="patientportal"
- s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
- s sessionArray("ewd_translationMode")="0"
- s sessionArray("ewd_technology")="gtm"
- s sessionArray("ewd_pageType")="ajax"
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
- s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
- s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
- s sessid=$g(sessionArray("ewd_sessid"))
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
- . s Error=$p(Error,":",2,200)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
- . s Error="EWD runtime error: "_Error
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
- . n errorPage
- . s errorPage=$g(sessionArray("ewd_errorPage"))
- . i errorPage="" s errorPage="ewdError"
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
- s stop=0
- i Error="" d i stop QUIT 0
- . n nextpage
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
- . i nextpage'="" d
- . . n x
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
- . . s stop=1
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
- w "HTTP/1.1 200 OK"_$c(13,10)
- s ctype="text/html"
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
- i $d(headers) d
- . n lcname,name
- . s name=""
- . f s name=$o(headers(name)) q:name="" d
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
- . . i lcname="content-type" s ctype=headers(name) q
- . . w name_": "_headers(name)_$c(13,10)
- w "Content-type: "_ctype_$c(13,10)
- w $c(13,10)
- QUIT 1
- ;
-body ;
- if ($g(Error)="") d
- .w " "_$c(13,10)
- .w "
"_$c(13,10)
- .w "
"_$c(13,10)
- .w " "_$c(13,10)
- .
- w ""_$c(13,10)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
- s id=""
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
- . w "idPointer = document.getElementById('"_id_"') ; "
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
- s id=""
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
- . w "idPointer = document.getElementById('"_id_"') ; "
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
- k ^%zewdSession("session","ewd_hasErrors")
- k ^%zewdSession("session","ewd_errorFields")
- k ^%zewdSession("session","ewd_idList")
- w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
- w ""_$c(13,10)
- QUIT
Index: ccr/trunk/p/C0CE000R.m
===================================================================
--- ccr/trunk/p/C0CE000R.m (revision 1214)
+++ (revision )
@@ -1,135 +1,0 @@
- ;GT.M version of page ewdErrorRedirect (patientportal application)
- ;Compiled on Mon, 01 Mar 2010 17:10:44
- ;using Enterprise Web Developer (Build 790)
- QUIT
- ;
-run ;
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
- s ok=$$pre()
- i ok d body
- QUIT
- ;
-pre() ;
- ;
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
- ;
- s confirmText="Click OK if you're sure you want to delete this record"
- s sessionArray("ewd_isFirstPage")="0"
- s sessionArray("ewd_sessid_timeout")="1200"
- s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
- s sessionArray("ewd_default_timeout")="1200"
- s sessionArray("ewd_persistRequest")="true"
- s sessionArray("ewd_pageTitle")=""
- s sessionArray("ewd_errorPage")="ewdError"
- s sessionArray("ewd_templatePrePageScript")=""
- s sessionArray("ewd_onErrorScript")=""
- s sessionArray("ewd_appName")="patientportal"
- s sessionArray("ewd_pageName")="ewdErrorRedirect"
- s sessionArray("ewd_translationMode")="0"
- s sessionArray("ewd_technology")="gtm"
- s sessionArray("ewd_pageType")=""
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
- s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
- s sessid=$g(sessionArray("ewd_sessid"))
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
- . s Error=$p(Error,":",2,200)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
- . s Error="EWD runtime error: "_Error
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
- . n errorPage
- . s errorPage=$g(sessionArray("ewd_errorPage"))
- . i errorPage="" s errorPage="ewdError"
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
- s stop=0
- i Error="" d i stop QUIT 0
- . n nextpage
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
- . i nextpage'="" d
- . . n x
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
- . . s stop=1
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
- w "HTTP/1.1 200 OK"_$c(13,10)
- s ctype="text/html"
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
- i $d(headers) d
- . n lcname,name
- . s name=""
- . f s name=$o(headers(name)) q:name="" d
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
- . . i lcname="content-type" s ctype=headers(name) q
- . . w name_": "_headers(name)_$c(13,10)
- w "Content-type: "_ctype_$c(13,10)
- w $c(13,10)
- QUIT 1
- ;
-body ;
- w ""_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w "Ajax Error Redirect page"_""
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w "Please wait...."_""
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w ""_$c(13,10)
- QUIT
Index: ccr/trunk/p/C0CE000S.m
===================================================================
--- ccr/trunk/p/C0CE000S.m (revision 1214)
+++ (revision )
@@ -1,152 +1,0 @@
- ;GT.M version of page session (patientportal application)
- ;Compiled on Mon, 01 Mar 2010 17:10:45
- ;using Enterprise Web Developer (Build 790)
- QUIT
- ;
-run ;
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
- s ok=$$pre()
- i ok d body
- QUIT
- ;
-pre() ;
- ;
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
- ;
- s confirmText="Click OK if you're sure you want to delete this record"
- s sessionArray("ewd_isFirstPage")="0"
- s sessionArray("ewd_sessid_timeout")="1200"
- s sessionArray("ewd_prePageScript")="TEST^C0CRICH"
- s sessionArray("ewd_default_timeout")="1200"
- s sessionArray("ewd_persistRequest")="true"
- s sessionArray("ewd_pageTitle")=""
- s sessionArray("ewd_errorPage")="ewdError"
- s sessionArray("ewd_templatePrePageScript")=""
- s sessionArray("ewd_onErrorScript")=""
- s sessionArray("ewd_appName")="patientportal"
- s sessionArray("ewd_pageName")="session"
- s sessionArray("ewd_translationMode")="0"
- s sessionArray("ewd_technology")="gtm"
- s sessionArray("ewd_pageType")=""
- s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
- s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
- s sessid=$g(sessionArray("ewd_sessid"))
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
- . s Error=$p(Error,":",2,200)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
- . s Error="EWD runtime error: "_Error
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
- . n errorPage
- . s errorPage=$g(sessionArray("ewd_errorPage"))
- . i errorPage="" s errorPage="ewdError"
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
- s stop=0
- i Error="" d i stop QUIT 0
- . n nextpage
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
- . i nextpage'="" d
- . . n x
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
- . . s stop=1
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
- w "HTTP/1.1 200 OK"_$c(13,10)
- s ctype="text/html"
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
- i $d(headers) d
- . n lcname,name
- . s name=""
- . f s name=$o(headers(name)) q:name="" d
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
- . . i lcname="content-type" s ctype=headers(name) q
- . . w name_": "_headers(name)_$c(13,10)
- w "Content-type: "_ctype_$c(13,10)
- w $c(13,10)
- QUIT 1
- ;
-body ;
- w ""_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w "EWD Page using Session Variables and a PrePage Script"_""
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w "
"_$c(13,10)
- w "This page accesses EWD Session Variables"_""
- w "
"_$c(13,10)
- w "
"_$c(13,10)
- w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
- w "
"_$c(13,10)
- w " "_$c(13,10)
- w ""_$c(13,10)
- QUIT
Index: ccr/trunk/p/C0CE001I.m
===================================================================
--- ccr/trunk/p/C0CE001I.m (revision 1214)
+++ (revision )
@@ -1,174 +1,0 @@
- ;GT.M version of page index (patientportal application)
- ;Compiled on Mon, 01 Mar 2010 17:10:44
- ;using Enterprise Web Developer (Build 790)
- QUIT
- ;
-run ;
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
- s ok=$$pre()
- i ok d body
- QUIT
- ;
-pre() ;
- ;
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
- ;
- s confirmText="Click OK if you're sure you want to delete this record"
- s sessionArray("ewd_isFirstPage")="1"
- s sessionArray("ewd_sessid_timeout")="1200"
- s sessionArray("ewd_prePageScript")=""
- s sessionArray("ewd_default_timeout")="1200"
- s sessionArray("ewd_persistRequest")="true"
- s sessionArray("ewd_pageTitle")=""
- s sessionArray("ewd_errorPage")="ewdError"
- s sessionArray("ewd_templatePrePageScript")=""
- s sessionArray("ewd_onErrorScript")=""
- s sessionArray("ewd_appName")="patientportal"
- s sessionArray("ewd_pageName")="index"
- s sessionArray("ewd_translationMode")="0"
- s sessionArray("ewd_technology")="gtm"
- s sessionArray("ewd_header","Expires")=0
- s sessionArray("ewd_header","Cache-Control")="no-cache"
- s sessionArray("ewd_header","Pragma")="no-cache"
- s sessionArray("ewd_pageType")=""
- s tokens("ccr")=$$setNextPageToken^%zewdGTMRuntime("ccr")
- s tokens("ccr2")=$$setNextPageToken^%zewdGTMRuntime("ccr2")
- s tokens("ccrexe")=$$setNextPageToken^%zewdGTMRuntime("ccrexe")
- s tokens("loginPanel")=$$setNextPageToken^%zewdGTMRuntime("loginPanel")
- s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
- s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
- s sessid=$g(sessionArray("ewd_sessid"))
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
- . s Error=$p(Error,":",2,200)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
- . s Error="EWD runtime error: "_Error
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
- . n errorPage
- . s errorPage=$g(sessionArray("ewd_errorPage"))
- . i errorPage="" s errorPage="ewdError"
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
- s stop=0
- i Error="" d i stop QUIT 0
- . n nextpage
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
- . i nextpage'="" d
- . . n x
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
- . . s stop=1
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
- w "HTTP/1.1 200 OK"_$c(13,10)
- s ctype="text/html"
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
- i $d(headers) d
- . n lcname,name
- . s name=""
- . f s name=$o(headers(name)) q:name="" d
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
- . . i lcname="content-type" s ctype=headers(name) q
- . . w name_": "_headers(name)_$c(13,10)
- w "Content-type: "_ctype_$c(13,10)
- w $c(13,10)
- QUIT 1
- ;
-body ;
- w ""_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w "The start EWD Page"_""
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w "
"_$c(13,10)
- w "This page is the first page in this application"_""
- w "
"_$c(13,10)
- w " "_$c(13,10)
- w ""_$c(13,10)
- QUIT
Index: ccr/trunk/p/C0CE001L.m
===================================================================
--- ccr/trunk/p/C0CE001L.m (revision 1214)
+++ (revision )
@@ -1,119 +1,0 @@
- ;GT.M version of page loginPanel (patientportal application)
- ;Compiled on Mon, 01 Mar 2010 17:10:45
- ;using Enterprise Web Developer (Build 790)
- QUIT
- ;
-run ;
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
- s ok=$$pre()
- i ok d body
- QUIT
- ;
-pre() ;
- ;
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
- ;
- s confirmText="Click OK if you're sure you want to delete this record"
- s sessionArray("ewd_isFirstPage")="0"
- s sessionArray("ewd_sessid_timeout")="1200"
- s sessionArray("ewd_prePageScript")=""
- s sessionArray("ewd_default_timeout")="1200"
- s sessionArray("ewd_persistRequest")="true"
- s sessionArray("ewd_pageTitle")=""
- s sessionArray("ewd_errorPage")="ewdError"
- s sessionArray("ewd_templatePrePageScript")=""
- s sessionArray("ewd_onErrorScript")=""
- s sessionArray("ewd_appName")="patientportal"
- s sessionArray("ewd_pageName")="loginPanel"
- s sessionArray("ewd_translationMode")="0"
- s sessionArray("ewd_technology")="gtm"
- s sessionArray("ewd_pageType")="ajax"
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
- s Error=$$startSession^%zewdPHP("loginPanel",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
- s sessid=$g(sessionArray("ewd_sessid"))
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
- . s Error=$p(Error,":",2,200)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
- . s Error="EWD runtime error: "_Error
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
- . n errorPage
- . s errorPage=$g(sessionArray("ewd_errorPage"))
- . i errorPage="" s errorPage="ewdError"
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
- s stop=0
- i Error="" d i stop QUIT 0
- . n nextpage
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
- . i nextpage'="" d
- . . n x
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
- . . s stop=1
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
- w "HTTP/1.1 200 OK"_$c(13,10)
- s ctype="text/html"
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
- i $d(headers) d
- . n lcname,name
- . s name=""
- . f s name=$o(headers(name)) q:name="" d
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
- . . i lcname="content-type" s ctype=headers(name) q
- . . w name_": "_headers(name)_$c(13,10)
- w "Content-type: "_ctype_$c(13,10)
- w $c(13,10)
- QUIT 1
- ;
-body ;
- if ($g(Error)="") d
- .w "
"_$c(13,10)
- .w "EWD.page.yuiResourcePath = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
- .w "if (EWD.page.yuiResourcePath == '') {"_""
- .w " alert('Unable to determine path to YUI resource file. Did you run d install^%zewdYUIConf()?') ;"_""
- .w "}"_""
- .w "EWD.page.loadResource("""_$$getSessionValue^%zewdAPI("yui.resourceLoaderPath",sessid)_$$getSessionValue^%zewdAPI("yui.resourceLoader",sessid)_""",""js"") ;"_""
- .w "if (!EWD.yui) alert('YUI Javascript resource file ewdYUIResources.js was not found in the web server root path');"_""
- .w "if (!EWD.yui.build) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You must be using build 790');"_""
- .w "if (EWD.yui.build != 790) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You are using build ' + EWD.yui.build + ' but you should be using build 790');"_""
- .w "EWD.yui.version = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
- .w "EWD.yui.resourceLoader.Dialog() ;"_""
- .w "document.getElementsByTagName('body')[0].className = 'yui-skin-sam' ;"_""
- .w "var fReturnloginPanel7=function() {"_""
- .w "EWD.yui.widgetIndex[""yuiDialogRegloginPanel7""]={widgetName:""loginPanel7"",tagId:""yuiDialogDivloginPanel7""};"_""
- .w "EWD.yui.moveDialogToBody('yuiDialogDivloginPanel7');"_""
- .w "EWD.yui.widget.loginPanel7=new YAHOO.widget.Dialog(""yuiDialogDivloginPanel7"",{iframe:true,width:""270px"",x:150,y:100});"_""
- .w "EWD.yui.widget.loginPanel7.render();"_""
- .w "};"_""
- .w "YAHOO.util.Event.onAvailable(""yuiDialogDivloginPanel7"",fReturnloginPanel7);"_""
- .w "
"_$c(13,10)
- .w "
"_$c(13,10)
- .w "
"_$c(13,10)
- .w "
"_$c(13,10)
- .w "Login"_""
- .w "
"_$c(13,10)
- .w "
"_$c(13,10)
- .w "Login Form will go here"_""
- .w "
"_$c(13,10)
- .w "
"_$c(13,10)
- .w "
"_$c(13,10)
- .w "
"_$c(13,10)
- .w "
"_$c(13,10)
- .
- w ""_$c(13,10)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
- s id=""
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
- . w "idPointer = document.getElementById('"_id_"') ; "
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
- s id=""
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
- . w "idPointer = document.getElementById('"_id_"') ; "
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
- k ^%zewdSession("session","ewd_hasErrors")
- k ^%zewdSession("session","ewd_errorFields")
- k ^%zewdSession("session","ewd_idList")
- w " }"_""
- w ""_$c(13,10)
- QUIT
Index: ccr/trunk/p/C0CE002.m
===================================================================
--- ccr/trunk/p/C0CE002.m (revision 1214)
+++ (revision )
@@ -1,88 +1,0 @@
- ;GT.M version of page ccr (patientportal application)
- ;Compiled on Mon, 01 Mar 2010 17:10:44
- ;using Enterprise Web Developer (Build 790)
- QUIT
- ;
-run ;
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
- s ok=$$pre()
- i ok d body
- QUIT
- ;
-pre() ;
- ;
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
- ;
- s confirmText="Click OK if you're sure you want to delete this record"
- s sessionArray("ewd_isFirstPage")="0"
- s sessionArray("ewd_sessid_timeout")="1200"
- s sessionArray("ewd_prePageScript")="TEST2^C0CRICH"
- s sessionArray("ewd_default_timeout")="1200"
- s sessionArray("ewd_persistRequest")="true"
- s sessionArray("ewd_pageTitle")=""
- s sessionArray("ewd_errorPage")="ewdError"
- s sessionArray("ewd_templatePrePageScript")=""
- s sessionArray("ewd_onErrorScript")=""
- s sessionArray("ewd_appName")="patientportal"
- s sessionArray("ewd_pageName")="ccr"
- s sessionArray("ewd_translationMode")="0"
- s sessionArray("ewd_technology")="gtm"
- s sessionArray("ewd_pageType")=""
- s Error=$$startSession^%zewdPHP("ccr",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
- s sessid=$g(sessionArray("ewd_sessid"))
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
- s headers("Content-type")="text/xml"
- d mergeArrayToSession^%zewdAPI(.headers,"ewd.header",sessid)
- k headers
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
- . s Error=$p(Error,":",2,200)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
- . s Error="EWD runtime error: "_Error
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
- . n errorPage
- . s errorPage=$g(sessionArray("ewd_errorPage"))
- . i errorPage="" s errorPage="ewdError"
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
- s stop=0
- i Error="" d i stop QUIT 0
- . n nextpage
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
- . i nextpage'="" d
- . . n x
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
- . . s stop=1
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
- w "HTTP/1.1 200 OK"_$c(13,10)
- s ctype="text/html"
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
- i $d(headers) d
- . n lcname,name
- . s name=""
- . f s name=$o(headers(name)) q:name="" d
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
- . . i lcname="content-type" s ctype=headers(name) q
- . . w name_": "_headers(name)_$c(13,10)
- w "Content-type: "_ctype_$c(13,10)
- w $c(13,10)
- QUIT 1
- ;
-body ;
- s no=""
- i no?1N.N s no=no-1
- i no?1AP.ANP d
- . s p1=$e(no,1,$l(no)-1)
- . s p2=$e(no,$l(no))
- . s p2=$c($a(p2)-1)
- . s no=p1_p2
- s nul=""
- s endValue12=""
- i endValue12?1N.N s endValue12=endValue12+1
- f q:'(($o(^%zewdSession("session",sessid,"CCR",no))'=endValue12)&($o(^%zewdSession("session",sessid,"CCR",no))'=nul)) d
- .s no=$o(^%zewdSession("session",sessid,"CCR",no))
- .s data=$g(^%zewdSession("session",sessid,"CCR",no))
- .w data
- .
- QUIT
Index: ccr/trunk/p/C0CE003.m
===================================================================
--- ccr/trunk/p/C0CE003.m (revision 1214)
+++ (revision )
@@ -1,74 +1,0 @@
- ;GT.M version of page ccr2 (patientportal application)
- ;Compiled on Mon, 01 Mar 2010 17:10:44
- ;using Enterprise Web Developer (Build 790)
- QUIT
- ;
-run ;
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
- s ok=$$pre()
- i ok d body
- QUIT
- ;
-pre() ;
- ;
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
- ;
- s confirmText="Click OK if you're sure you want to delete this record"
- s sessionArray("ewd_isFirstPage")="0"
- s sessionArray("ewd_sessid_timeout")="1200"
- s sessionArray("ewd_prePageScript")=""
- s sessionArray("ewd_default_timeout")="1200"
- s sessionArray("ewd_persistRequest")="true"
- s sessionArray("ewd_pageTitle")=""
- s sessionArray("ewd_errorPage")="ewdError"
- s sessionArray("ewd_templatePrePageScript")=""
- s sessionArray("ewd_onErrorScript")=""
- s sessionArray("ewd_appName")="patientportal"
- s sessionArray("ewd_pageName")="ccr2"
- s sessionArray("ewd_translationMode")="0"
- s sessionArray("ewd_technology")="gtm"
- s sessionArray("ewd_pageType")=""
- s Error=$$startSession^%zewdPHP("ccr2",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
- s sessid=$g(sessionArray("ewd_sessid"))
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
- . s Error=$p(Error,":",2,200)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
- . s Error="EWD runtime error: "_Error
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
- . n errorPage
- . s errorPage=$g(sessionArray("ewd_errorPage"))
- . i errorPage="" s errorPage="ewdError"
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
- s stop=0
- i Error="" d i stop QUIT 0
- . n nextpage
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
- . i nextpage'="" d
- . . n x
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
- . . s stop=1
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
- w "HTTP/1.1 200 OK"_$c(13,10)
- s ctype="text/html"
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
- i $d(headers) d
- . n lcname,name
- . s name=""
- . f s name=$o(headers(name)) q:name="" d
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
- . . i lcname="content-type" s ctype=headers(name) q
- . . w name_": "_headers(name)_$c(13,10)
- w "Content-type: "_ctype_$c(13,10)
- w $c(13,10)
- QUIT 1
- ;
-body ;
- w ""_$c(13,10)
- w " "_$c(13,10)
- w "hello world"_""
- w " "_$c(13,10)
- w ""_$c(13,10)
- QUIT
Index: ccr/trunk/p/C0CE004.m
===================================================================
--- ccr/trunk/p/C0CE004.m (revision 1214)
+++ (revision )
@@ -1,70 +1,0 @@
- ;GT.M version of page ccr-exe (patientportal application)
- ;Compiled on Mon, 01 Mar 2010 17:10:44
- ;using Enterprise Web Developer (Build 790)
- QUIT
- ;
-run ;
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
- s ok=$$pre()
- i ok d body
- QUIT
- ;
-pre() ;
- ;
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
- ;
- s confirmText="Click OK if you're sure you want to delete this record"
- s sessionArray("ewd_isFirstPage")="0"
- s sessionArray("ewd_sessid_timeout")="1200"
- s sessionArray("ewd_prePageScript")=""
- s sessionArray("ewd_default_timeout")="1200"
- s sessionArray("ewd_persistRequest")="true"
- s sessionArray("ewd_pageTitle")=""
- s sessionArray("ewd_errorPage")="ewdError"
- s sessionArray("ewd_templatePrePageScript")=""
- s sessionArray("ewd_onErrorScript")=""
- s sessionArray("ewd_appName")="patientportal"
- s sessionArray("ewd_pageName")="ccr-exe"
- s sessionArray("ewd_translationMode")="0"
- s sessionArray("ewd_technology")="gtm"
- s sessionArray("ewd_pageType")=""
- s Error=$$startSession^%zewdPHP("ccr-exe",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
- s sessid=$g(sessionArray("ewd_sessid"))
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
- . s Error=$p(Error,":",2,200)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
- . s Error="EWD runtime error: "_Error
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
- . n errorPage
- . s errorPage=$g(sessionArray("ewd_errorPage"))
- . i errorPage="" s errorPage="ewdError"
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
- s stop=0
- i Error="" d i stop QUIT 0
- . n nextpage
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
- . i nextpage'="" d
- . . n x
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
- . . s stop=1
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
- w "HTTP/1.1 200 OK"_$c(13,10)
- s ctype="text/html"
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
- i $d(headers) d
- . n lcname,name
- . s name=""
- . f s name=$o(headers(name)) q:name="" d
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
- . . i lcname="content-type" s ctype=headers(name) q
- . . w name_": "_headers(name)_$c(13,10)
- w "Content-type: "_ctype_$c(13,10)
- w $c(13,10)
- QUIT 1
- ;
-body ;
- d gpltest^C0CRICH("")
- QUIT
Index: ccr/trunk/p/C0CE005.m
===================================================================
--- ccr/trunk/p/C0CE005.m (revision 1214)
+++ (revision )
@@ -1,154 +1,0 @@
- ;GT.M version of page Second (patientportal application)
- ;Compiled on Mon, 01 Mar 2010 17:10:44
- ;using Enterprise Web Developer (Build 790)
- QUIT
- ;
-run ;
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
- s ok=$$pre()
- i ok d body
- QUIT
- ;
-pre() ;
- ;
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
- ;
- s confirmText="Click OK if you're sure you want to delete this record"
- s sessionArray("ewd_isFirstPage")="0"
- s sessionArray("ewd_sessid_timeout")="1200"
- s sessionArray("ewd_prePageScript")=""
- s sessionArray("ewd_default_timeout")="1200"
- s sessionArray("ewd_persistRequest")="true"
- s sessionArray("ewd_pageTitle")=""
- s sessionArray("ewd_errorPage")="ewdError"
- s sessionArray("ewd_templatePrePageScript")=""
- s sessionArray("ewd_onErrorScript")=""
- s sessionArray("ewd_appName")="patientportal"
- s sessionArray("ewd_pageName")="Second"
- s sessionArray("ewd_translationMode")="0"
- s sessionArray("ewd_technology")="gtm"
- s sessionArray("ewd_pageType")=""
- s tokens("First")=$$setNextPageToken^%zewdGTMRuntime("First")
- s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
- s Error=$$startSession^%zewdPHP("Second",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
- s sessid=$g(sessionArray("ewd_sessid"))
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
- . s Error=$p(Error,":",2,200)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
- . s Error="EWD runtime error: "_Error
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
- . n errorPage
- . s errorPage=$g(sessionArray("ewd_errorPage"))
- . i errorPage="" s errorPage="ewdError"
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
- s stop=0
- i Error="" d i stop QUIT 0
- . n nextpage
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
- . i nextpage'="" d
- . . n x
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
- . . s stop=1
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
- w "HTTP/1.1 200 OK"_$c(13,10)
- s ctype="text/html"
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
- i $d(headers) d
- . n lcname,name
- . s name=""
- . f s name=$o(headers(name)) q:name="" d
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
- . . i lcname="content-type" s ctype=headers(name) q
- . . w name_": "_headers(name)_$c(13,10)
- w "Content-type: "_ctype_$c(13,10)
- w $c(13,10)
- QUIT 1
- ;
-body ;
- w ""_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w "The second EWD Page"_""
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w "
"_$c(13,10)
- w "This page is not a ""first"" page"_""
- w "
"_$c(13,10)
- w " "_$c(13,10)
- w ""_$c(13,10)
- QUIT
Index: ccr/trunk/p/C0CE006.m
===================================================================
--- ccr/trunk/p/C0CE006.m (revision 1214)
+++ (revision )
@@ -1,152 +1,0 @@
- ;GT.M version of page session (patientportal application)
- ;Compiled on Sun, 28 Feb 2010 21:40:03
- ;using Enterprise Web Developer (Build 790)
- QUIT
- ;
-run ;
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
- s ok=$$pre()
- i ok d body
- QUIT
- ;
-pre() ;
- ;
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
- ;
- s confirmText="Click OK if you're sure you want to delete this record"
- s sessionArray("ewd_isFirstPage")="0"
- s sessionArray("ewd_sessid_timeout")="1200"
- s sessionArray("ewd_prePageScript")="TEST^RICHEWDTEST"
- s sessionArray("ewd_default_timeout")="1200"
- s sessionArray("ewd_persistRequest")="true"
- s sessionArray("ewd_pageTitle")=""
- s sessionArray("ewd_errorPage")="ewdError"
- s sessionArray("ewd_templatePrePageScript")=""
- s sessionArray("ewd_onErrorScript")=""
- s sessionArray("ewd_appName")="patientportal"
- s sessionArray("ewd_pageName")="session"
- s sessionArray("ewd_translationMode")="0"
- s sessionArray("ewd_technology")="gtm"
- s sessionArray("ewd_pageType")=""
- s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
- s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
- s sessid=$g(sessionArray("ewd_sessid"))
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
- . s Error=$p(Error,":",2,200)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
- . s Error="EWD runtime error: "_Error
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
- . n errorPage
- . s errorPage=$g(sessionArray("ewd_errorPage"))
- . i errorPage="" s errorPage="ewdError"
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
- s stop=0
- i Error="" d i stop QUIT 0
- . n nextpage
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
- . i nextpage'="" d
- . . n x
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
- . . s stop=1
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
- w "HTTP/1.1 200 OK"_$c(13,10)
- s ctype="text/html"
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
- i $d(headers) d
- . n lcname,name
- . s name=""
- . f s name=$o(headers(name)) q:name="" d
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
- . . i lcname="content-type" s ctype=headers(name) q
- . . w name_": "_headers(name)_$c(13,10)
- w "Content-type: "_ctype_$c(13,10)
- w $c(13,10)
- QUIT 1
- ;
-body ;
- w ""_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w "EWD Page using Session Variables and a PrePage Script"_""
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w " "_$c(13,10)
- w "
"_$c(13,10)
- w "This page accesses EWD Session Variables"_""
- w "
"_$c(13,10)
- w "
"_$c(13,10)
- w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
- w "
-"DATA",70050,5,1,15,0)
-
-"DATA",70050,5,1,16,0)
-
-"DATA",70050,6,0)
-23396^patientportal^ewdajaxerrorredirect
-"DATA",70050,7,0)
-23401^patientportal^ccr
-"DATA",70050,7,1,0)
-^70050.02^5^5^3100301^^^
-"DATA",70050,7,1,1,0)
-
-"DATA",70050,7,1,2,0)
-
-"DATA",70050,7,1,3,0)
-
-"DATA",70050,7,1,4,0)
-
-"DATA",70050,7,1,5,0)
-
-"DATA",70050,8,0)
-23402^patientportal^ccr2
-"DATA",70050,8,1,0)
-^70050.02^6^6^3100301^^^^
-"DATA",70050,8,1,1,0)
-
-"DATA",70050,8,1,2,0)
-
-"DATA",70050,8,1,3,0)
-
-"DATA",70050,8,1,4,0)
-hello world
-"DATA",70050,8,1,5,0)
-
-"DATA",70050,8,1,6,0)
-
-"DATA",70050,9,0)
-23400^patientportal^loginpanel
-"DATA",70050,9,1,0)
-^70050.02^4^4^3100301^^
-"DATA",70050,9,1,1,0)
-
-"DATA",70050,9,1,2,0)
-
-"DATA",70050,9,1,3,0)
-Login Form will go here
-"DATA",70050,9,1,4,0)
-
-"DATA",70050,10,0)
-23403^patientportal^ccr-exe
-"DATA",70050,10,1,0)
-^^2^2^3100301^
-"DATA",70050,10,1,1,0)
-
-"DATA",70050,10,1,2,0)
-
-"DATA",70050,11,0)
-23404^patientportal^Second
-"FIA",70050)
-C0EWD ROUTINE MAP
-"FIA",70050,0)
-^C0E(70050,
-"FIA",70050,0,0)
-70050PI
-"FIA",70050,0,1)
-y^y^f^^n^^y^o^n
-"FIA",70050,0,10)
-
-"FIA",70050,0,11)
-
-"FIA",70050,0,"RLRO")
-
-"FIA",70050,70050)
-0
-"FIA",70050,70050.01)
-0
-"FIA",70050,70050.02)
-0
-"IX",70050,70050,"AZEWD",0)
-70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
-"IX",70050,70050,"AZEWD",1)
-D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",2)
-D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",11.1,0)
-^.114IA^3^3
-"IX",70050,70050,"AZEWD",11.1,1,0)
-1^F^70050^.01^^^F
-"IX",70050,70050,"AZEWD",11.1,2,0)
-2^F^70050^.02^^^F
-"IX",70050,70050,"AZEWD",11.1,3,0)
-3^F^70050^.03^^^F
-"IX",70050,70050,"C",0)
-70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
-"IX",70050,70050,"C",1)
-S ^C0E(70050,"C",$E(X,1,60),DA)=""
-"IX",70050,70050,"C",2)
-K ^C0E(70050,"C",$E(X,1,60),DA)
-"IX",70050,70050,"C",2.5)
-K ^C0E(70050,"C")
-"IX",70050,70050,"C",11.1,0)
-^.114IA^1^1
-"IX",70050,70050,"C",11.1,1,0)
-1^F^70050^.03^60^1^F
-"IX",70050,70050,"C",11.1,1,3)
-
-"MBREQ")
-0
-"QUES","XPF1",0)
-Y
-"QUES","XPF1","??")
-^D REP^XPDH
-"QUES","XPF1","A")
-Shall I write over your |FLAG| File
-"QUES","XPF1","B")
-YES
-"QUES","XPF1","M")
-D XPF1^XPDIQ
-"QUES","XPF2",0)
-Y
-"QUES","XPF2","??")
-^D DTA^XPDH
-"QUES","XPF2","A")
-Want my data |FLAG| yours
-"QUES","XPF2","B")
-YES
-"QUES","XPF2","M")
-D XPF2^XPDIQ
-"QUES","XPI1",0)
-YO
-"QUES","XPI1","??")
-^D INHIBIT^XPDH
-"QUES","XPI1","A")
-Want KIDS to INHIBIT LOGONs during the install
-"QUES","XPI1","B")
-NO
-"QUES","XPI1","M")
-D XPI1^XPDIQ
-"QUES","XPM1",0)
-PO^VA(200,:EM
-"QUES","XPM1","??")
-^D MG^XPDH
-"QUES","XPM1","A")
-Enter the Coordinator for Mail Group '|FLAG|'
-"QUES","XPM1","B")
-
-"QUES","XPM1","M")
-D XPM1^XPDIQ
-"QUES","XPO1",0)
-Y
-"QUES","XPO1","??")
-^D MENU^XPDH
-"QUES","XPO1","A")
-Want KIDS to Rebuild Menu Trees Upon Completion of Install
-"QUES","XPO1","B")
-NO
-"QUES","XPO1","M")
-D XPO1^XPDIQ
-"QUES","XPZ1",0)
-Y
-"QUES","XPZ1","??")
-^D OPT^XPDH
-"QUES","XPZ1","A")
-Want to DISABLE Scheduled Options, Menu Options, and Protocols
-"QUES","XPZ1","B")
-NO
-"QUES","XPZ1","M")
-D XPZ1^XPDIQ
-"QUES","XPZ2",0)
-Y
-"QUES","XPZ2","??")
-^D RTN^XPDH
-"QUES","XPZ2","A")
-Want to MOVE routines to other CPUs
-"QUES","XPZ2","B")
-NO
-"QUES","XPZ2","M")
-D XPZ2^XPDIQ
-"RTN")
-12
-"RTN","C0CE000A")
-0^3^B14831539
-"RTN","C0CE000A",1,0)
- ;GT.M version of page ewdAjaxError (patientportal application)
-"RTN","C0CE000A",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
-"RTN","C0CE000A",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000A",4,0)
- QUIT
-"RTN","C0CE000A",5,0)
- ;
-"RTN","C0CE000A",6,0)
-run ;
-"RTN","C0CE000A",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000A",8,0)
- s ok=$$pre()
-"RTN","C0CE000A",9,0)
- i ok d body
-"RTN","C0CE000A",10,0)
- QUIT
-"RTN","C0CE000A",11,0)
- ;
-"RTN","C0CE000A",12,0)
-pre() ;
-"RTN","C0CE000A",13,0)
- ;
-"RTN","C0CE000A",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000A",15,0)
- ;
-"RTN","C0CE000A",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE000A",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0CE000A",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE000A",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE000A",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE000A",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE000A",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE000A",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE000A",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE000A",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE000A",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE000A",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxError"
-"RTN","C0CE000A",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE000A",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE000A",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE000A",31,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE000A",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE000A",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE000A",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE000A",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE000A",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE000A",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE000A",38,0)
- . n errorPage
-"RTN","C0CE000A",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE000A",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE000A",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE000A",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE000A",43,0)
- s stop=0
-"RTN","C0CE000A",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE000A",45,0)
- . n nextpage
-"RTN","C0CE000A",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE000A",47,0)
- . i nextpage'="" d
-"RTN","C0CE000A",48,0)
- . . n x
-"RTN","C0CE000A",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE000A",50,0)
- . . s stop=1
-"RTN","C0CE000A",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE000A",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000A",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000A",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000A",55,0)
- s ctype="text/html"
-"RTN","C0CE000A",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE000A",57,0)
- i $d(headers) d
-"RTN","C0CE000A",58,0)
- . n lcname,name
-"RTN","C0CE000A",59,0)
- . s name=""
-"RTN","C0CE000A",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE000A",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE000A",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE000A",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE000A",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE000A",65,0)
- w $c(13,10)
-"RTN","C0CE000A",66,0)
- QUIT 1
-"RTN","C0CE000A",67,0)
- ;
-"RTN","C0CE000A",68,0)
-body ;
-"RTN","C0CE000A",69,0)
- w ""_$c(13,10)
-"RTN","C0CE000A",70,0)
- w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
-"RTN","C0CE000A",71,0)
- w ""_$c(13,10)
-"RTN","C0CE000A",72,0)
- QUIT
-"RTN","C0CE000E")
-0^8^B27501668
-"RTN","C0CE000E",1,0)
- ;GT.M version of page ewdError (patientportal application)
-"RTN","C0CE000E",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 1
-"RTN","C0CE000E",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000E",4,0)
- QUIT
-"RTN","C0CE000E",5,0)
- ;
-"RTN","C0CE000E",6,0)
-run ;
-"RTN","C0CE000E",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000E",8,0)
- s ok=$$pre()
-"RTN","C0CE000E",9,0)
- i ok d body
-"RTN","C0CE000E",10,0)
- QUIT
-"RTN","C0CE000E",11,0)
- ;
-"RTN","C0CE000E",12,0)
-pre() ;
-"RTN","C0CE000E",13,0)
- ;
-"RTN","C0CE000E",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000E",15,0)
- ;
-"RTN","C0CE000E",16,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000E",17,0)
- w "Content-type: text/html"_$c(13,10,13,10)
-"RTN","C0CE000E",18,0)
- QUIT 1
-"RTN","C0CE000E",19,0)
- ;
-"RTN","C0CE000E",20,0)
-body ;
-"RTN","C0CE000E",21,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",22,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",23,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",24,0)
- w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
-"RTN","C0CE000E",25,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",43,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",44,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",45,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",46,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",47,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",48,0)
- w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
-"RTN","C0CE000E",49,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",50,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",51,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",52,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",53,0)
- w "
An Error has occurred
"_$c(13,10)
-"RTN","C0CE000E",54,0)
- w " "_$c(13,10)
-"RTN","C0CE000E",55,0)
- w "
"_$g(%KEY("error"))_"
"_$c(13,10)
-"RTN","C0CE000E",56,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",57,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",58,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",59,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",60,0)
- w " "_$c(13,10)
-"RTN","C0CE000E",63,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",64,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",65,0)
- QUIT
-"RTN","C0CE000F")
-0^4^B32715806
-"RTN","C0CE000F",1,0)
- ;GT.M version of page ewdAjaxErrorRedirect (patientportal application)
-"RTN","C0CE000F",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
-"RTN","C0CE000F",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000F",4,0)
- QUIT
-"RTN","C0CE000F",5,0)
- ;
-"RTN","C0CE000F",6,0)
-run ;
-"RTN","C0CE000F",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000F",8,0)
- s ok=$$pre()
-"RTN","C0CE000F",9,0)
- i ok d body
-"RTN","C0CE000F",10,0)
- QUIT
-"RTN","C0CE000F",11,0)
- ;
-"RTN","C0CE000F",12,0)
-pre() ;
-"RTN","C0CE000F",13,0)
- ;
-"RTN","C0CE000F",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000F",15,0)
- ;
-"RTN","C0CE000F",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE000F",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE000F",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE000F",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE000F",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE000F",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE000F",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE000F",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE000F",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE000F",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE000F",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE000F",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
-"RTN","C0CE000F",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE000F",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE000F",30,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0CE000F",31,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0CE000F",32,0)
- s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
-"RTN","C0CE000F",33,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE000F",34,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE000F",35,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE000F",36,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE000F",37,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE000F",38,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE000F",39,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE000F",40,0)
- . n errorPage
-"RTN","C0CE000F",41,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE000F",42,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE000F",43,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE000F",44,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE000F",45,0)
- s stop=0
-"RTN","C0CE000F",46,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE000F",47,0)
- . n nextpage
-"RTN","C0CE000F",48,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE000F",49,0)
- . i nextpage'="" d
-"RTN","C0CE000F",50,0)
- . . n x
-"RTN","C0CE000F",51,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE000F",52,0)
- . . s stop=1
-"RTN","C0CE000F",53,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE000F",54,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000F",55,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000F",56,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000F",57,0)
- s ctype="text/html"
-"RTN","C0CE000F",58,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE000F",59,0)
- i $d(headers) d
-"RTN","C0CE000F",60,0)
- . n lcname,name
-"RTN","C0CE000F",61,0)
- . s name=""
-"RTN","C0CE000F",62,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE000F",63,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE000F",64,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE000F",65,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE000F",66,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE000F",67,0)
- w $c(13,10)
-"RTN","C0CE000F",68,0)
- QUIT 1
-"RTN","C0CE000F",69,0)
- ;
-"RTN","C0CE000F",70,0)
-body ;
-"RTN","C0CE000F",71,0)
- if ($g(Error)="") d
-"RTN","C0CE000F",72,0)
- .w " "_$c(13,10)
-"RTN","C0CE000F",73,0)
- .w "
"_$c(13,10)
-"RTN","C0CE000F",74,0)
- .w "
"_$c(13,10)
-"RTN","C0CE000F",75,0)
- .w " "_$c(13,10)
-"RTN","C0CE000F",76,0)
- .
-"RTN","C0CE000F",77,0)
- w ""_$c(13,10)
-"RTN","C0CE000F",78,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0CE000F",79,0)
- s id=""
-"RTN","C0CE000F",80,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0CE000F",81,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE000F",82,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0CE000F",83,0)
- s id=""
-"RTN","C0CE000F",84,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0CE000F",85,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE000F",86,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0CE000F",87,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0CE000F",88,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0CE000F",89,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0CE000F",90,0)
- w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
-"RTN","C0CE000F",91,0)
- w ""_$c(13,10)
-"RTN","C0CE000F",92,0)
- QUIT
-"RTN","C0CE000R")
-0^9^B66701996
-"RTN","C0CE000R",1,0)
- ;GT.M version of page ewdErrorRedirect (patientportal application)
-"RTN","C0CE000R",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
-"RTN","C0CE000R",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000R",4,0)
- QUIT
-"RTN","C0CE000R",5,0)
- ;
-"RTN","C0CE000R",6,0)
-run ;
-"RTN","C0CE000R",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000R",8,0)
- s ok=$$pre()
-"RTN","C0CE000R",9,0)
- i ok d body
-"RTN","C0CE000R",10,0)
- QUIT
-"RTN","C0CE000R",11,0)
- ;
-"RTN","C0CE000R",12,0)
-pre() ;
-"RTN","C0CE000R",13,0)
- ;
-"RTN","C0CE000R",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000R",15,0)
- ;
-"RTN","C0CE000R",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE000R",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE000R",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE000R",19,0)
- s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
-"RTN","C0CE000R",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE000R",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE000R",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE000R",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE000R",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE000R",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE000R",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE000R",27,0)
- s sessionArray("ewd_pageName")="ewdErrorRedirect"
-"RTN","C0CE000R",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE000R",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE000R",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE000R",31,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE000R",32,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE000R",33,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE000R",34,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE000R",35,0)
- s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE000R",36,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE000R",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE000R",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE000R",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE000R",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE000R",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE000R",42,0)
- . n errorPage
-"RTN","C0CE000R",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE000R",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE000R",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE000R",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE000R",47,0)
- s stop=0
-"RTN","C0CE000R",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE000R",49,0)
- . n nextpage
-"RTN","C0CE000R",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE000R",51,0)
- . i nextpage'="" d
-"RTN","C0CE000R",52,0)
- . . n x
-"RTN","C0CE000R",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE000R",54,0)
- . . s stop=1
-"RTN","C0CE000R",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE000R",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000R",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000R",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000R",59,0)
- s ctype="text/html"
-"RTN","C0CE000R",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE000R",61,0)
- i $d(headers) d
-"RTN","C0CE000R",62,0)
- . n lcname,name
-"RTN","C0CE000R",63,0)
- . s name=""
-"RTN","C0CE000R",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE000R",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE000R",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE000R",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE000R",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE000R",69,0)
- w $c(13,10)
-"RTN","C0CE000R",70,0)
- QUIT 1
-"RTN","C0CE000R",71,0)
- ;
-"RTN","C0CE000R",72,0)
-body ;
-"RTN","C0CE000R",73,0)
- w ""_$c(13,10)
-"RTN","C0CE000R",74,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",75,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",76,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",78,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",79,0)
- w "Ajax Error Redirect page"_""
-"RTN","C0CE000R",80,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",81,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",82,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",83,0)
- w "Please wait...."_""
-"RTN","C0CE000R",84,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",85,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",86,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",133,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",134,0)
- w ""_$c(13,10)
-"RTN","C0CE000R",135,0)
- QUIT
-"RTN","C0CE001I")
-0^2^B97883042
-"RTN","C0CE001I",1,0)
- ;GT.M version of page index (patientportal application)
-"RTN","C0CE001I",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
-"RTN","C0CE001I",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE001I",4,0)
- QUIT
-"RTN","C0CE001I",5,0)
- ;
-"RTN","C0CE001I",6,0)
-run ;
-"RTN","C0CE001I",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE001I",8,0)
- s ok=$$pre()
-"RTN","C0CE001I",9,0)
- i ok d body
-"RTN","C0CE001I",10,0)
- QUIT
-"RTN","C0CE001I",11,0)
- ;
-"RTN","C0CE001I",12,0)
-pre() ;
-"RTN","C0CE001I",13,0)
- ;
-"RTN","C0CE001I",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE001I",15,0)
- ;
-"RTN","C0CE001I",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE001I",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0CE001I",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE001I",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE001I",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE001I",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE001I",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE001I",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE001I",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE001I",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE001I",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE001I",27,0)
- s sessionArray("ewd_pageName")="index"
-"RTN","C0CE001I",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE001I",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE001I",30,0)
- s sessionArray("ewd_header","Expires")=0
-"RTN","C0CE001I",31,0)
- s sessionArray("ewd_header","Cache-Control")="no-cache"
-"RTN","C0CE001I",32,0)
- s sessionArray("ewd_header","Pragma")="no-cache"
-"RTN","C0CE001I",33,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE001I",34,0)
- s tokens("ccr")=$$setNextPageToken^%zewdGTMRuntime("ccr")
-"RTN","C0CE001I",35,0)
- s tokens("ccr2")=$$setNextPageToken^%zewdGTMRuntime("ccr2")
-"RTN","C0CE001I",36,0)
- s tokens("ccrexe")=$$setNextPageToken^%zewdGTMRuntime("ccrexe")
-"RTN","C0CE001I",37,0)
- s tokens("loginPanel")=$$setNextPageToken^%zewdGTMRuntime("loginPanel")
-"RTN","C0CE001I",38,0)
- s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
-"RTN","C0CE001I",39,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE001I",40,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE001I",41,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE001I",42,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE001I",43,0)
- s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE001I",44,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE001I",45,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE001I",46,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE001I",47,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE001I",48,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE001I",49,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE001I",50,0)
- . n errorPage
-"RTN","C0CE001I",51,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE001I",52,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE001I",53,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE001I",54,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE001I",55,0)
- s stop=0
-"RTN","C0CE001I",56,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE001I",57,0)
- . n nextpage
-"RTN","C0CE001I",58,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE001I",59,0)
- . i nextpage'="" d
-"RTN","C0CE001I",60,0)
- . . n x
-"RTN","C0CE001I",61,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE001I",62,0)
- . . s stop=1
-"RTN","C0CE001I",63,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE001I",64,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001I",65,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001I",66,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE001I",67,0)
- s ctype="text/html"
-"RTN","C0CE001I",68,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE001I",69,0)
- i $d(headers) d
-"RTN","C0CE001I",70,0)
- . n lcname,name
-"RTN","C0CE001I",71,0)
- . s name=""
-"RTN","C0CE001I",72,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE001I",73,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE001I",74,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE001I",75,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE001I",76,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE001I",77,0)
- w $c(13,10)
-"RTN","C0CE001I",78,0)
- QUIT 1
-"RTN","C0CE001I",79,0)
- ;
-"RTN","C0CE001I",80,0)
-body ;
-"RTN","C0CE001I",81,0)
- w ""_$c(13,10)
-"RTN","C0CE001I",82,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",83,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",84,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",86,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",87,0)
- w "The start EWD Page"_""
-"RTN","C0CE001I",88,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",89,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",97,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",144,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",145,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",146,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",147,0)
- w "This page is the first page in this application"_""
-"RTN","C0CE001I",148,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",149,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",150,0)
- w "Login"_""
-"RTN","C0CE001I",151,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",172,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",173,0)
- w ""_$c(13,10)
-"RTN","C0CE001I",174,0)
- QUIT
-"RTN","C0CE001L")
-0^10^B51144421
-"RTN","C0CE001L",1,0)
- ;GT.M version of page loginPanel (patientportal application)
-"RTN","C0CE001L",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 1
-"RTN","C0CE001L",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE001L",4,0)
- QUIT
-"RTN","C0CE001L",5,0)
- ;
-"RTN","C0CE001L",6,0)
-run ;
-"RTN","C0CE001L",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE001L",8,0)
- s ok=$$pre()
-"RTN","C0CE001L",9,0)
- i ok d body
-"RTN","C0CE001L",10,0)
- QUIT
-"RTN","C0CE001L",11,0)
- ;
-"RTN","C0CE001L",12,0)
-pre() ;
-"RTN","C0CE001L",13,0)
- ;
-"RTN","C0CE001L",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE001L",15,0)
- ;
-"RTN","C0CE001L",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE001L",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE001L",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE001L",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE001L",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE001L",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE001L",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE001L",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE001L",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE001L",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE001L",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE001L",27,0)
- s sessionArray("ewd_pageName")="loginPanel"
-"RTN","C0CE001L",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE001L",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE001L",30,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0CE001L",31,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0CE001L",32,0)
- s Error=$$startSession^%zewdPHP("loginPanel",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE001L",33,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE001L",34,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE001L",35,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE001L",36,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE001L",37,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE001L",38,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE001L",39,0)
- . n errorPage
-"RTN","C0CE001L",40,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE001L",41,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE001L",42,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE001L",43,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE001L",44,0)
- s stop=0
-"RTN","C0CE001L",45,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE001L",46,0)
- . n nextpage
-"RTN","C0CE001L",47,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE001L",48,0)
- . i nextpage'="" d
-"RTN","C0CE001L",49,0)
- . . n x
-"RTN","C0CE001L",50,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE001L",51,0)
- . . s stop=1
-"RTN","C0CE001L",52,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE001L",53,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001L",54,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001L",55,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE001L",56,0)
- s ctype="text/html"
-"RTN","C0CE001L",57,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE001L",58,0)
- i $d(headers) d
-"RTN","C0CE001L",59,0)
- . n lcname,name
-"RTN","C0CE001L",60,0)
- . s name=""
-"RTN","C0CE001L",61,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE001L",62,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE001L",63,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE001L",64,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE001L",65,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE001L",66,0)
- w $c(13,10)
-"RTN","C0CE001L",67,0)
- QUIT 1
-"RTN","C0CE001L",68,0)
- ;
-"RTN","C0CE001L",69,0)
-body ;
-"RTN","C0CE001L",70,0)
- if ($g(Error)="") d
-"RTN","C0CE001L",71,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",72,0)
- .w "EWD.page.yuiResourcePath = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
-"RTN","C0CE001L",73,0)
- .w "if (EWD.page.yuiResourcePath == '') {"_""
-"RTN","C0CE001L",74,0)
- .w " alert('Unable to determine path to YUI resource file. Did you run d install^%zewdYUIConf()?') ;"_""
-"RTN","C0CE001L",75,0)
- .w "}"_""
-"RTN","C0CE001L",76,0)
- .w "EWD.page.loadResource("""_$$getSessionValue^%zewdAPI("yui.resourceLoaderPath",sessid)_$$getSessionValue^%zewdAPI("yui.resourceLoader",sessid)_""",""js"") ;"_""
-"RTN","C0CE001L",77,0)
- .w "if (!EWD.yui) alert('YUI Javascript resource file ewdYUIResources.js was not found in the web server root path');"_""
-"RTN","C0CE001L",78,0)
- .w "if (!EWD.yui.build) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You must be using build 790');"_""
-"RTN","C0CE001L",79,0)
- .w "if (EWD.yui.build != 790) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You are using build ' + EWD.yui.build + ' but you should be using build 790');"_""
-"RTN","C0CE001L",80,0)
- .w "EWD.yui.version = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
-"RTN","C0CE001L",81,0)
- .w "EWD.yui.resourceLoader.Dialog() ;"_""
-"RTN","C0CE001L",82,0)
- .w "document.getElementsByTagName('body')[0].className = 'yui-skin-sam' ;"_""
-"RTN","C0CE001L",83,0)
- .w "var fReturnloginPanel7=function() {"_""
-"RTN","C0CE001L",84,0)
- .w "EWD.yui.widgetIndex[""yuiDialogRegloginPanel7""]={widgetName:""loginPanel7"",tagId:""yuiDialogDivloginPanel7""};"_""
-"RTN","C0CE001L",85,0)
- .w "EWD.yui.moveDialogToBody('yuiDialogDivloginPanel7');"_""
-"RTN","C0CE001L",86,0)
- .w "EWD.yui.widget.loginPanel7=new YAHOO.widget.Dialog(""yuiDialogDivloginPanel7"",{iframe:true,width:""270px"",x:150,y:100});"_""
-"RTN","C0CE001L",87,0)
- .w "EWD.yui.widget.loginPanel7.render();"_""
-"RTN","C0CE001L",88,0)
- .w "};"_""
-"RTN","C0CE001L",89,0)
- .w "YAHOO.util.Event.onAvailable(""yuiDialogDivloginPanel7"",fReturnloginPanel7);"_""
-"RTN","C0CE001L",90,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",97,0)
- .w "Login Form will go here"_""
-"RTN","C0CE001L",98,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",99,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",100,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",101,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",102,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",103,0)
- .
-"RTN","C0CE001L",104,0)
- w ""_$c(13,10)
-"RTN","C0CE001L",105,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0CE001L",106,0)
- s id=""
-"RTN","C0CE001L",107,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0CE001L",108,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE001L",109,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0CE001L",110,0)
- s id=""
-"RTN","C0CE001L",111,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0CE001L",112,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE001L",113,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0CE001L",114,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0CE001L",115,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0CE001L",116,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0CE001L",117,0)
- w " }"_""
-"RTN","C0CE001L",118,0)
- w ""_$c(13,10)
-"RTN","C0CE001L",119,0)
- QUIT
-"RTN","C0CE002")
-0^5^B19028117
-"RTN","C0CE002",1,0)
- ;GT.M version of page ccr (patientportal application)
-"RTN","C0CE002",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
-"RTN","C0CE002",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE002",4,0)
- QUIT
-"RTN","C0CE002",5,0)
- ;
-"RTN","C0CE002",6,0)
-run ;
-"RTN","C0CE002",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE002",8,0)
- s ok=$$pre()
-"RTN","C0CE002",9,0)
- i ok d body
-"RTN","C0CE002",10,0)
- QUIT
-"RTN","C0CE002",11,0)
- ;
-"RTN","C0CE002",12,0)
-pre() ;
-"RTN","C0CE002",13,0)
- ;
-"RTN","C0CE002",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE002",15,0)
- ;
-"RTN","C0CE002",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE002",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE002",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE002",19,0)
- s sessionArray("ewd_prePageScript")="TEST2^RICHEWDTEST"
-"RTN","C0CE002",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE002",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE002",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE002",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE002",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE002",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE002",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE002",27,0)
- s sessionArray("ewd_pageName")="ccr"
-"RTN","C0CE002",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE002",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE002",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE002",31,0)
- s Error=$$startSession^%zewdPHP("ccr",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE002",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE002",33,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE002",34,0)
- s headers("Content-type")="text/xml"
-"RTN","C0CE002",35,0)
- d mergeArrayToSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE002",36,0)
- k headers
-"RTN","C0CE002",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE002",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE002",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE002",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE002",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE002",42,0)
- . n errorPage
-"RTN","C0CE002",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE002",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE002",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE002",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE002",47,0)
- s stop=0
-"RTN","C0CE002",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE002",49,0)
- . n nextpage
-"RTN","C0CE002",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE002",51,0)
- . i nextpage'="" d
-"RTN","C0CE002",52,0)
- . . n x
-"RTN","C0CE002",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE002",54,0)
- . . s stop=1
-"RTN","C0CE002",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE002",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE002",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE002",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE002",59,0)
- s ctype="text/html"
-"RTN","C0CE002",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE002",61,0)
- i $d(headers) d
-"RTN","C0CE002",62,0)
- . n lcname,name
-"RTN","C0CE002",63,0)
- . s name=""
-"RTN","C0CE002",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE002",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE002",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE002",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE002",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE002",69,0)
- w $c(13,10)
-"RTN","C0CE002",70,0)
- QUIT 1
-"RTN","C0CE002",71,0)
- ;
-"RTN","C0CE002",72,0)
-body ;
-"RTN","C0CE002",73,0)
- s no=""
-"RTN","C0CE002",74,0)
- i no?1N.N s no=no-1
-"RTN","C0CE002",75,0)
- i no?1AP.ANP d
-"RTN","C0CE002",76,0)
- . s p1=$e(no,1,$l(no)-1)
-"RTN","C0CE002",77,0)
- . s p2=$e(no,$l(no))
-"RTN","C0CE002",78,0)
- . s p2=$c($a(p2)-1)
-"RTN","C0CE002",79,0)
- . s no=p1_p2
-"RTN","C0CE002",80,0)
- s nul=""
-"RTN","C0CE002",81,0)
- s endValue12=""
-"RTN","C0CE002",82,0)
- i endValue12?1N.N s endValue12=endValue12+1
-"RTN","C0CE002",83,0)
- f q:'(($o(^%zewdSession("session",sessid,"CCR",no))'=endValue12)&($o(^%zewdSession("session",sessid,"CCR",no))'=nul)) d
-"RTN","C0CE002",84,0)
- .s no=$o(^%zewdSession("session",sessid,"CCR",no))
-"RTN","C0CE002",85,0)
- .s data=$g(^%zewdSession("session",sessid,"CCR",no))
-"RTN","C0CE002",86,0)
- .w data
-"RTN","C0CE002",87,0)
- .
-"RTN","C0CE002",88,0)
- QUIT
-"RTN","C0CE003")
-0^11^B16186512
-"RTN","C0CE003",1,0)
- ;GT.M version of page ccr2 (patientportal application)
-"RTN","C0CE003",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
-"RTN","C0CE003",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE003",4,0)
- QUIT
-"RTN","C0CE003",5,0)
- ;
-"RTN","C0CE003",6,0)
-run ;
-"RTN","C0CE003",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE003",8,0)
- s ok=$$pre()
-"RTN","C0CE003",9,0)
- i ok d body
-"RTN","C0CE003",10,0)
- QUIT
-"RTN","C0CE003",11,0)
- ;
-"RTN","C0CE003",12,0)
-pre() ;
-"RTN","C0CE003",13,0)
- ;
-"RTN","C0CE003",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE003",15,0)
- ;
-"RTN","C0CE003",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE003",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE003",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE003",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE003",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE003",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE003",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE003",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE003",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE003",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE003",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE003",27,0)
- s sessionArray("ewd_pageName")="ccr2"
-"RTN","C0CE003",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE003",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE003",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE003",31,0)
- s Error=$$startSession^%zewdPHP("ccr2",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE003",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE003",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE003",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE003",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE003",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE003",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE003",38,0)
- . n errorPage
-"RTN","C0CE003",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE003",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE003",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE003",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE003",43,0)
- s stop=0
-"RTN","C0CE003",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE003",45,0)
- . n nextpage
-"RTN","C0CE003",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE003",47,0)
- . i nextpage'="" d
-"RTN","C0CE003",48,0)
- . . n x
-"RTN","C0CE003",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE003",50,0)
- . . s stop=1
-"RTN","C0CE003",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE003",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE003",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE003",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE003",55,0)
- s ctype="text/html"
-"RTN","C0CE003",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE003",57,0)
- i $d(headers) d
-"RTN","C0CE003",58,0)
- . n lcname,name
-"RTN","C0CE003",59,0)
- . s name=""
-"RTN","C0CE003",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE003",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE003",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE003",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE003",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE003",65,0)
- w $c(13,10)
-"RTN","C0CE003",66,0)
- QUIT 1
-"RTN","C0CE003",67,0)
- ;
-"RTN","C0CE003",68,0)
-body ;
-"RTN","C0CE003",69,0)
- w ""_$c(13,10)
-"RTN","C0CE003",70,0)
- w " "_$c(13,10)
-"RTN","C0CE003",71,0)
- w "hello world"_""
-"RTN","C0CE003",72,0)
- w " "_$c(13,10)
-"RTN","C0CE003",73,0)
- w ""_$c(13,10)
-"RTN","C0CE003",74,0)
- QUIT
-"RTN","C0CE004")
-0^6^B14049311
-"RTN","C0CE004",1,0)
- ;GT.M version of page ccr-exe (patientportal application)
-"RTN","C0CE004",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
-"RTN","C0CE004",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE004",4,0)
- QUIT
-"RTN","C0CE004",5,0)
- ;
-"RTN","C0CE004",6,0)
-run ;
-"RTN","C0CE004",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE004",8,0)
- s ok=$$pre()
-"RTN","C0CE004",9,0)
- i ok d body
-"RTN","C0CE004",10,0)
- QUIT
-"RTN","C0CE004",11,0)
- ;
-"RTN","C0CE004",12,0)
-pre() ;
-"RTN","C0CE004",13,0)
- ;
-"RTN","C0CE004",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE004",15,0)
- ;
-"RTN","C0CE004",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE004",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE004",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE004",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE004",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE004",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE004",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE004",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE004",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE004",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE004",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE004",27,0)
- s sessionArray("ewd_pageName")="ccr-exe"
-"RTN","C0CE004",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE004",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE004",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE004",31,0)
- s Error=$$startSession^%zewdPHP("ccr-exe",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE004",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE004",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE004",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE004",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE004",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE004",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE004",38,0)
- . n errorPage
-"RTN","C0CE004",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE004",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE004",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE004",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE004",43,0)
- s stop=0
-"RTN","C0CE004",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE004",45,0)
- . n nextpage
-"RTN","C0CE004",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE004",47,0)
- . i nextpage'="" d
-"RTN","C0CE004",48,0)
- . . n x
-"RTN","C0CE004",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE004",50,0)
- . . s stop=1
-"RTN","C0CE004",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE004",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE004",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE004",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE004",55,0)
- s ctype="text/html"
-"RTN","C0CE004",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE004",57,0)
- i $d(headers) d
-"RTN","C0CE004",58,0)
- . n lcname,name
-"RTN","C0CE004",59,0)
- . s name=""
-"RTN","C0CE004",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE004",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE004",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE004",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE004",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE004",65,0)
- w $c(13,10)
-"RTN","C0CE004",66,0)
- QUIT 1
-"RTN","C0CE004",67,0)
- ;
-"RTN","C0CE004",68,0)
-body ;
-"RTN","C0CE004",69,0)
- d gpltest^RICHEWDTEST("")
-"RTN","C0CE004",70,0)
- QUIT
-"RTN","C0CE005")
-0^12^B80810317
-"RTN","C0CE005",1,0)
- ;GT.M version of page Second (patientportal application)
-"RTN","C0CE005",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:37:56;;;;;Build 1
-"RTN","C0CE005",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE005",4,0)
- QUIT
-"RTN","C0CE005",5,0)
- ;
-"RTN","C0CE005",6,0)
-run ;
-"RTN","C0CE005",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE005",8,0)
- s ok=$$pre()
-"RTN","C0CE005",9,0)
- i ok d body
-"RTN","C0CE005",10,0)
- QUIT
-"RTN","C0CE005",11,0)
- ;
-"RTN","C0CE005",12,0)
-pre() ;
-"RTN","C0CE005",13,0)
- ;
-"RTN","C0CE005",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE005",15,0)
- ;
-"RTN","C0CE005",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE005",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE005",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE005",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE005",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE005",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE005",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE005",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE005",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE005",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE005",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE005",27,0)
- s sessionArray("ewd_pageName")="Second"
-"RTN","C0CE005",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE005",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE005",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE005",31,0)
- s tokens("First")=$$setNextPageToken^%zewdGTMRuntime("First")
-"RTN","C0CE005",32,0)
- s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
-"RTN","C0CE005",33,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE005",34,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE005",35,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE005",36,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE005",37,0)
- s Error=$$startSession^%zewdPHP("Second",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE005",38,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE005",39,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE005",40,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE005",41,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE005",42,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE005",43,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE005",44,0)
- . n errorPage
-"RTN","C0CE005",45,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE005",46,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE005",47,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE005",48,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE005",49,0)
- s stop=0
-"RTN","C0CE005",50,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE005",51,0)
- . n nextpage
-"RTN","C0CE005",52,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE005",53,0)
- . i nextpage'="" d
-"RTN","C0CE005",54,0)
- . . n x
-"RTN","C0CE005",55,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE005",56,0)
- . . s stop=1
-"RTN","C0CE005",57,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE005",58,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE005",59,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE005",60,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE005",61,0)
- s ctype="text/html"
-"RTN","C0CE005",62,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE005",63,0)
- i $d(headers) d
-"RTN","C0CE005",64,0)
- . n lcname,name
-"RTN","C0CE005",65,0)
- . s name=""
-"RTN","C0CE005",66,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE005",67,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE005",68,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE005",69,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE005",70,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE005",71,0)
- w $c(13,10)
-"RTN","C0CE005",72,0)
- QUIT 1
-"RTN","C0CE005",73,0)
- ;
-"RTN","C0CE005",74,0)
-body ;
-"RTN","C0CE005",75,0)
- w ""_$c(13,10)
-"RTN","C0CE005",76,0)
- w " "_$c(13,10)
-"RTN","C0CE005",77,0)
- w " "_$c(13,10)
-"RTN","C0CE005",78,0)
- w " "_$c(13,10)
-"RTN","C0CE005",80,0)
- w " "_$c(13,10)
-"RTN","C0CE005",81,0)
- w "The second EWD Page"_""
-"RTN","C0CE005",82,0)
- w " "_$c(13,10)
-"RTN","C0CE005",83,0)
- w " "_$c(13,10)
-"RTN","C0CE005",90,0)
- w " "_$c(13,10)
-"RTN","C0CE005",137,0)
- w " "_$c(13,10)
-"RTN","C0CE005",138,0)
- w " "_$c(13,10)
-"RTN","C0CE005",139,0)
- w "
"_$c(13,10)
-"RTN","C0CE005",140,0)
- w "This page is not a ""first"" page"_""
-"RTN","C0CE005",141,0)
- w "
"_$c(13,10)
-"RTN","C0CE005",150,0)
- w " "_$c(13,10)
-"RTN","C0CE005",151,0)
- w "
"_$c(13,10)
-"RTN","C0CE005",152,0)
- w " "_$c(13,10)
-"RTN","C0CE005",153,0)
- w ""_$c(13,10)
-"RTN","C0CE005",154,0)
- QUIT
-"RTN","C0CE006")
-0^7^B77594981
-"RTN","C0CE006",1,0)
- ;GT.M version of page session (patientportal application)
-"RTN","C0CE006",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 1
-"RTN","C0CE006",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE006",4,0)
- QUIT
-"RTN","C0CE006",5,0)
- ;
-"RTN","C0CE006",6,0)
-run ;
-"RTN","C0CE006",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE006",8,0)
- s ok=$$pre()
-"RTN","C0CE006",9,0)
- i ok d body
-"RTN","C0CE006",10,0)
- QUIT
-"RTN","C0CE006",11,0)
- ;
-"RTN","C0CE006",12,0)
-pre() ;
-"RTN","C0CE006",13,0)
- ;
-"RTN","C0CE006",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE006",15,0)
- ;
-"RTN","C0CE006",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE006",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE006",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE006",19,0)
- s sessionArray("ewd_prePageScript")="TEST^RICHEWDTEST"
-"RTN","C0CE006",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE006",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE006",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE006",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE006",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE006",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE006",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE006",27,0)
- s sessionArray("ewd_pageName")="session"
-"RTN","C0CE006",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE006",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE006",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE006",31,0)
- s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
-"RTN","C0CE006",32,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE006",33,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE006",34,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE006",35,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE006",36,0)
- s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE006",37,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE006",38,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE006",39,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE006",40,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE006",41,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE006",42,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE006",43,0)
- . n errorPage
-"RTN","C0CE006",44,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE006",45,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE006",46,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE006",47,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE006",48,0)
- s stop=0
-"RTN","C0CE006",49,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE006",50,0)
- . n nextpage
-"RTN","C0CE006",51,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE006",52,0)
- . i nextpage'="" d
-"RTN","C0CE006",53,0)
- . . n x
-"RTN","C0CE006",54,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE006",55,0)
- . . s stop=1
-"RTN","C0CE006",56,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE006",57,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE006",58,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE006",59,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE006",60,0)
- s ctype="text/html"
-"RTN","C0CE006",61,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE006",62,0)
- i $d(headers) d
-"RTN","C0CE006",63,0)
- . n lcname,name
-"RTN","C0CE006",64,0)
- . s name=""
-"RTN","C0CE006",65,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE006",66,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE006",67,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE006",68,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE006",69,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE006",70,0)
- w $c(13,10)
-"RTN","C0CE006",71,0)
- QUIT 1
-"RTN","C0CE006",72,0)
- ;
-"RTN","C0CE006",73,0)
-body ;
-"RTN","C0CE006",74,0)
- w ""_$c(13,10)
-"RTN","C0CE006",75,0)
- w " "_$c(13,10)
-"RTN","C0CE006",76,0)
- w " "_$c(13,10)
-"RTN","C0CE006",77,0)
- w " "_$c(13,10)
-"RTN","C0CE006",79,0)
- w " "_$c(13,10)
-"RTN","C0CE006",80,0)
- w "EWD Page using Session Variables and a PrePage Script"_""
-"RTN","C0CE006",81,0)
- w " "_$c(13,10)
-"RTN","C0CE006",82,0)
- w " "_$c(13,10)
-"RTN","C0CE006",89,0)
- w " "_$c(13,10)
-"RTN","C0CE006",136,0)
- w " "_$c(13,10)
-"RTN","C0CE006",137,0)
- w " "_$c(13,10)
-"RTN","C0CE006",138,0)
- w "
"_$c(13,10)
-"RTN","C0CE006",139,0)
- w "This page accesses EWD Session Variables"_""
-"RTN","C0CE006",140,0)
- w "
"_$c(13,10)
-"RTN","C0CE006",141,0)
- w "
"_$c(13,10)
-"RTN","C0CE006",142,0)
- w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
-"RTN","C0CE006",143,0)
- w "
-"DATA",70050,5,1,15,0)
-
-"DATA",70050,5,1,16,0)
-
-"DATA",70050,6,0)
-23396^patientportal^ewdajaxerrorredirect
-"DATA",70050,7,0)
-23401^patientportal^ccr
-"DATA",70050,7,1,0)
-^70050.02^5^5^3100301^^^
-"DATA",70050,7,1,1,0)
-
-"DATA",70050,7,1,2,0)
-
-"DATA",70050,7,1,3,0)
-
-"DATA",70050,7,1,4,0)
-
-"DATA",70050,7,1,5,0)
-
-"DATA",70050,8,0)
-23402^patientportal^ccr2
-"DATA",70050,8,1,0)
-^70050.02^6^6^3100301^^^^
-"DATA",70050,8,1,1,0)
-
-"DATA",70050,8,1,2,0)
-
-"DATA",70050,8,1,3,0)
-
-"DATA",70050,8,1,4,0)
-hello world
-"DATA",70050,8,1,5,0)
-
-"DATA",70050,8,1,6,0)
-
-"DATA",70050,9,0)
-23400^patientportal^loginpanel
-"DATA",70050,9,1,0)
-^70050.02^4^4^3100301^^
-"DATA",70050,9,1,1,0)
-
-"DATA",70050,9,1,2,0)
-
-"DATA",70050,9,1,3,0)
-Login Form will go here
-"DATA",70050,9,1,4,0)
-
-"DATA",70050,10,0)
-23403^patientportal^ccr-exe
-"DATA",70050,10,1,0)
-^^2^2^3100301^
-"DATA",70050,10,1,1,0)
-
-"DATA",70050,10,1,2,0)
-
-"DATA",70050,11,0)
-23404^patientportal^Second
-"FIA",70050)
-C0EWD ROUTINE MAP
-"FIA",70050,0)
-^C0E(70050,
-"FIA",70050,0,0)
-70050PI
-"FIA",70050,0,1)
-y^y^f^^n^^y^o^n
-"FIA",70050,0,10)
-
-"FIA",70050,0,11)
-
-"FIA",70050,0,"RLRO")
-
-"FIA",70050,70050)
-0
-"FIA",70050,70050.01)
-0
-"FIA",70050,70050.02)
-0
-"IX",70050,70050,"AZEWD",0)
-70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
-"IX",70050,70050,"AZEWD",1)
-D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",2)
-D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",11.1,0)
-^.114IA^3^3
-"IX",70050,70050,"AZEWD",11.1,1,0)
-1^F^70050^.01^^^F
-"IX",70050,70050,"AZEWD",11.1,2,0)
-2^F^70050^.02^^^F
-"IX",70050,70050,"AZEWD",11.1,3,0)
-3^F^70050^.03^^^F
-"IX",70050,70050,"C",0)
-70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
-"IX",70050,70050,"C",1)
-S ^C0E(70050,"C",$E(X,1,60),DA)=""
-"IX",70050,70050,"C",2)
-K ^C0E(70050,"C",$E(X,1,60),DA)
-"IX",70050,70050,"C",2.5)
-K ^C0E(70050,"C")
-"IX",70050,70050,"C",11.1,0)
-^.114IA^1^1
-"IX",70050,70050,"C",11.1,1,0)
-1^F^70050^.03^60^1^F
-"IX",70050,70050,"C",11.1,1,3)
-
-"MBREQ")
-0
-"QUES","XPF1",0)
-Y
-"QUES","XPF1","??")
-^D REP^XPDH
-"QUES","XPF1","A")
-Shall I write over your |FLAG| File
-"QUES","XPF1","B")
-YES
-"QUES","XPF1","M")
-D XPF1^XPDIQ
-"QUES","XPF2",0)
-Y
-"QUES","XPF2","??")
-^D DTA^XPDH
-"QUES","XPF2","A")
-Want my data |FLAG| yours
-"QUES","XPF2","B")
-YES
-"QUES","XPF2","M")
-D XPF2^XPDIQ
-"QUES","XPI1",0)
-YO
-"QUES","XPI1","??")
-^D INHIBIT^XPDH
-"QUES","XPI1","A")
-Want KIDS to INHIBIT LOGONs during the install
-"QUES","XPI1","B")
-NO
-"QUES","XPI1","M")
-D XPI1^XPDIQ
-"QUES","XPM1",0)
-PO^VA(200,:EM
-"QUES","XPM1","??")
-^D MG^XPDH
-"QUES","XPM1","A")
-Enter the Coordinator for Mail Group '|FLAG|'
-"QUES","XPM1","B")
-
-"QUES","XPM1","M")
-D XPM1^XPDIQ
-"QUES","XPO1",0)
-Y
-"QUES","XPO1","??")
-^D MENU^XPDH
-"QUES","XPO1","A")
-Want KIDS to Rebuild Menu Trees Upon Completion of Install
-"QUES","XPO1","B")
-NO
-"QUES","XPO1","M")
-D XPO1^XPDIQ
-"QUES","XPZ1",0)
-Y
-"QUES","XPZ1","??")
-^D OPT^XPDH
-"QUES","XPZ1","A")
-Want to DISABLE Scheduled Options, Menu Options, and Protocols
-"QUES","XPZ1","B")
-NO
-"QUES","XPZ1","M")
-D XPZ1^XPDIQ
-"QUES","XPZ2",0)
-Y
-"QUES","XPZ2","??")
-^D RTN^XPDH
-"QUES","XPZ2","A")
-Want to MOVE routines to other CPUs
-"QUES","XPZ2","B")
-NO
-"QUES","XPZ2","M")
-D XPZ2^XPDIQ
-"RTN")
-13
-"RTN","C0CE000A")
-0^3^B14831539
-"RTN","C0CE000A",1,0)
- ;GT.M version of page ewdAjaxError (patientportal application)
-"RTN","C0CE000A",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
-"RTN","C0CE000A",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000A",4,0)
- QUIT
-"RTN","C0CE000A",5,0)
- ;
-"RTN","C0CE000A",6,0)
-run ;
-"RTN","C0CE000A",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000A",8,0)
- s ok=$$pre()
-"RTN","C0CE000A",9,0)
- i ok d body
-"RTN","C0CE000A",10,0)
- QUIT
-"RTN","C0CE000A",11,0)
- ;
-"RTN","C0CE000A",12,0)
-pre() ;
-"RTN","C0CE000A",13,0)
- ;
-"RTN","C0CE000A",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000A",15,0)
- ;
-"RTN","C0CE000A",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE000A",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0CE000A",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE000A",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE000A",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE000A",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE000A",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE000A",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE000A",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE000A",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE000A",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE000A",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxError"
-"RTN","C0CE000A",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE000A",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE000A",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE000A",31,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE000A",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE000A",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE000A",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE000A",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE000A",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE000A",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE000A",38,0)
- . n errorPage
-"RTN","C0CE000A",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE000A",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE000A",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE000A",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE000A",43,0)
- s stop=0
-"RTN","C0CE000A",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE000A",45,0)
- . n nextpage
-"RTN","C0CE000A",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE000A",47,0)
- . i nextpage'="" d
-"RTN","C0CE000A",48,0)
- . . n x
-"RTN","C0CE000A",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE000A",50,0)
- . . s stop=1
-"RTN","C0CE000A",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE000A",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000A",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000A",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000A",55,0)
- s ctype="text/html"
-"RTN","C0CE000A",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE000A",57,0)
- i $d(headers) d
-"RTN","C0CE000A",58,0)
- . n lcname,name
-"RTN","C0CE000A",59,0)
- . s name=""
-"RTN","C0CE000A",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE000A",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE000A",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE000A",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE000A",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE000A",65,0)
- w $c(13,10)
-"RTN","C0CE000A",66,0)
- QUIT 1
-"RTN","C0CE000A",67,0)
- ;
-"RTN","C0CE000A",68,0)
-body ;
-"RTN","C0CE000A",69,0)
- w ""_$c(13,10)
-"RTN","C0CE000A",70,0)
- w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
-"RTN","C0CE000A",71,0)
- w ""_$c(13,10)
-"RTN","C0CE000A",72,0)
- QUIT
-"RTN","C0CE000E")
-0^8^B27501668
-"RTN","C0CE000E",1,0)
- ;GT.M version of page ewdError (patientportal application)
-"RTN","C0CE000E",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 2
-"RTN","C0CE000E",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000E",4,0)
- QUIT
-"RTN","C0CE000E",5,0)
- ;
-"RTN","C0CE000E",6,0)
-run ;
-"RTN","C0CE000E",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000E",8,0)
- s ok=$$pre()
-"RTN","C0CE000E",9,0)
- i ok d body
-"RTN","C0CE000E",10,0)
- QUIT
-"RTN","C0CE000E",11,0)
- ;
-"RTN","C0CE000E",12,0)
-pre() ;
-"RTN","C0CE000E",13,0)
- ;
-"RTN","C0CE000E",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000E",15,0)
- ;
-"RTN","C0CE000E",16,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000E",17,0)
- w "Content-type: text/html"_$c(13,10,13,10)
-"RTN","C0CE000E",18,0)
- QUIT 1
-"RTN","C0CE000E",19,0)
- ;
-"RTN","C0CE000E",20,0)
-body ;
-"RTN","C0CE000E",21,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",22,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",23,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",24,0)
- w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
-"RTN","C0CE000E",25,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",43,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",44,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",45,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",46,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",47,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",48,0)
- w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
-"RTN","C0CE000E",49,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",50,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",51,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",52,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",53,0)
- w "
An Error has occurred
"_$c(13,10)
-"RTN","C0CE000E",54,0)
- w " "_$c(13,10)
-"RTN","C0CE000E",55,0)
- w "
"_$g(%KEY("error"))_"
"_$c(13,10)
-"RTN","C0CE000E",56,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",57,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",58,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",59,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",60,0)
- w " "_$c(13,10)
-"RTN","C0CE000E",63,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",64,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",65,0)
- QUIT
-"RTN","C0CE000F")
-0^4^B32715806
-"RTN","C0CE000F",1,0)
- ;GT.M version of page ewdAjaxErrorRedirect (patientportal application)
-"RTN","C0CE000F",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
-"RTN","C0CE000F",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000F",4,0)
- QUIT
-"RTN","C0CE000F",5,0)
- ;
-"RTN","C0CE000F",6,0)
-run ;
-"RTN","C0CE000F",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000F",8,0)
- s ok=$$pre()
-"RTN","C0CE000F",9,0)
- i ok d body
-"RTN","C0CE000F",10,0)
- QUIT
-"RTN","C0CE000F",11,0)
- ;
-"RTN","C0CE000F",12,0)
-pre() ;
-"RTN","C0CE000F",13,0)
- ;
-"RTN","C0CE000F",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000F",15,0)
- ;
-"RTN","C0CE000F",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE000F",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE000F",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE000F",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE000F",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE000F",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE000F",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE000F",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE000F",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE000F",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE000F",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE000F",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
-"RTN","C0CE000F",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE000F",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE000F",30,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0CE000F",31,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0CE000F",32,0)
- s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
-"RTN","C0CE000F",33,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE000F",34,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE000F",35,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE000F",36,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE000F",37,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE000F",38,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE000F",39,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE000F",40,0)
- . n errorPage
-"RTN","C0CE000F",41,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE000F",42,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE000F",43,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE000F",44,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE000F",45,0)
- s stop=0
-"RTN","C0CE000F",46,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE000F",47,0)
- . n nextpage
-"RTN","C0CE000F",48,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE000F",49,0)
- . i nextpage'="" d
-"RTN","C0CE000F",50,0)
- . . n x
-"RTN","C0CE000F",51,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE000F",52,0)
- . . s stop=1
-"RTN","C0CE000F",53,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE000F",54,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000F",55,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000F",56,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000F",57,0)
- s ctype="text/html"
-"RTN","C0CE000F",58,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE000F",59,0)
- i $d(headers) d
-"RTN","C0CE000F",60,0)
- . n lcname,name
-"RTN","C0CE000F",61,0)
- . s name=""
-"RTN","C0CE000F",62,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE000F",63,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE000F",64,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE000F",65,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE000F",66,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE000F",67,0)
- w $c(13,10)
-"RTN","C0CE000F",68,0)
- QUIT 1
-"RTN","C0CE000F",69,0)
- ;
-"RTN","C0CE000F",70,0)
-body ;
-"RTN","C0CE000F",71,0)
- if ($g(Error)="") d
-"RTN","C0CE000F",72,0)
- .w " "_$c(13,10)
-"RTN","C0CE000F",73,0)
- .w "
"_$c(13,10)
-"RTN","C0CE000F",74,0)
- .w "
"_$c(13,10)
-"RTN","C0CE000F",75,0)
- .w " "_$c(13,10)
-"RTN","C0CE000F",76,0)
- .
-"RTN","C0CE000F",77,0)
- w ""_$c(13,10)
-"RTN","C0CE000F",78,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0CE000F",79,0)
- s id=""
-"RTN","C0CE000F",80,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0CE000F",81,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE000F",82,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0CE000F",83,0)
- s id=""
-"RTN","C0CE000F",84,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0CE000F",85,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE000F",86,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0CE000F",87,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0CE000F",88,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0CE000F",89,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0CE000F",90,0)
- w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
-"RTN","C0CE000F",91,0)
- w ""_$c(13,10)
-"RTN","C0CE000F",92,0)
- QUIT
-"RTN","C0CE000R")
-0^9^B66701996
-"RTN","C0CE000R",1,0)
- ;GT.M version of page ewdErrorRedirect (patientportal application)
-"RTN","C0CE000R",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
-"RTN","C0CE000R",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000R",4,0)
- QUIT
-"RTN","C0CE000R",5,0)
- ;
-"RTN","C0CE000R",6,0)
-run ;
-"RTN","C0CE000R",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000R",8,0)
- s ok=$$pre()
-"RTN","C0CE000R",9,0)
- i ok d body
-"RTN","C0CE000R",10,0)
- QUIT
-"RTN","C0CE000R",11,0)
- ;
-"RTN","C0CE000R",12,0)
-pre() ;
-"RTN","C0CE000R",13,0)
- ;
-"RTN","C0CE000R",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000R",15,0)
- ;
-"RTN","C0CE000R",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE000R",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE000R",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE000R",19,0)
- s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
-"RTN","C0CE000R",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE000R",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE000R",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE000R",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE000R",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE000R",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE000R",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE000R",27,0)
- s sessionArray("ewd_pageName")="ewdErrorRedirect"
-"RTN","C0CE000R",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE000R",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE000R",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE000R",31,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE000R",32,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE000R",33,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE000R",34,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE000R",35,0)
- s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE000R",36,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE000R",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE000R",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE000R",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE000R",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE000R",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE000R",42,0)
- . n errorPage
-"RTN","C0CE000R",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE000R",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE000R",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE000R",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE000R",47,0)
- s stop=0
-"RTN","C0CE000R",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE000R",49,0)
- . n nextpage
-"RTN","C0CE000R",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE000R",51,0)
- . i nextpage'="" d
-"RTN","C0CE000R",52,0)
- . . n x
-"RTN","C0CE000R",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE000R",54,0)
- . . s stop=1
-"RTN","C0CE000R",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE000R",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000R",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000R",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000R",59,0)
- s ctype="text/html"
-"RTN","C0CE000R",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE000R",61,0)
- i $d(headers) d
-"RTN","C0CE000R",62,0)
- . n lcname,name
-"RTN","C0CE000R",63,0)
- . s name=""
-"RTN","C0CE000R",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE000R",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE000R",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE000R",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE000R",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE000R",69,0)
- w $c(13,10)
-"RTN","C0CE000R",70,0)
- QUIT 1
-"RTN","C0CE000R",71,0)
- ;
-"RTN","C0CE000R",72,0)
-body ;
-"RTN","C0CE000R",73,0)
- w ""_$c(13,10)
-"RTN","C0CE000R",74,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",75,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",76,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",78,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",79,0)
- w "Ajax Error Redirect page"_""
-"RTN","C0CE000R",80,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",81,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",82,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",83,0)
- w "Please wait...."_""
-"RTN","C0CE000R",84,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",85,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",86,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",133,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",134,0)
- w ""_$c(13,10)
-"RTN","C0CE000R",135,0)
- QUIT
-"RTN","C0CE001I")
-0^2^B97883042
-"RTN","C0CE001I",1,0)
- ;GT.M version of page index (patientportal application)
-"RTN","C0CE001I",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
-"RTN","C0CE001I",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE001I",4,0)
- QUIT
-"RTN","C0CE001I",5,0)
- ;
-"RTN","C0CE001I",6,0)
-run ;
-"RTN","C0CE001I",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE001I",8,0)
- s ok=$$pre()
-"RTN","C0CE001I",9,0)
- i ok d body
-"RTN","C0CE001I",10,0)
- QUIT
-"RTN","C0CE001I",11,0)
- ;
-"RTN","C0CE001I",12,0)
-pre() ;
-"RTN","C0CE001I",13,0)
- ;
-"RTN","C0CE001I",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE001I",15,0)
- ;
-"RTN","C0CE001I",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE001I",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0CE001I",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE001I",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE001I",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE001I",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE001I",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE001I",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE001I",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE001I",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE001I",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE001I",27,0)
- s sessionArray("ewd_pageName")="index"
-"RTN","C0CE001I",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE001I",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE001I",30,0)
- s sessionArray("ewd_header","Expires")=0
-"RTN","C0CE001I",31,0)
- s sessionArray("ewd_header","Cache-Control")="no-cache"
-"RTN","C0CE001I",32,0)
- s sessionArray("ewd_header","Pragma")="no-cache"
-"RTN","C0CE001I",33,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE001I",34,0)
- s tokens("ccr")=$$setNextPageToken^%zewdGTMRuntime("ccr")
-"RTN","C0CE001I",35,0)
- s tokens("ccr2")=$$setNextPageToken^%zewdGTMRuntime("ccr2")
-"RTN","C0CE001I",36,0)
- s tokens("ccrexe")=$$setNextPageToken^%zewdGTMRuntime("ccrexe")
-"RTN","C0CE001I",37,0)
- s tokens("loginPanel")=$$setNextPageToken^%zewdGTMRuntime("loginPanel")
-"RTN","C0CE001I",38,0)
- s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
-"RTN","C0CE001I",39,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE001I",40,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE001I",41,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE001I",42,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE001I",43,0)
- s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE001I",44,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE001I",45,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE001I",46,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE001I",47,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE001I",48,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE001I",49,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE001I",50,0)
- . n errorPage
-"RTN","C0CE001I",51,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE001I",52,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE001I",53,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE001I",54,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE001I",55,0)
- s stop=0
-"RTN","C0CE001I",56,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE001I",57,0)
- . n nextpage
-"RTN","C0CE001I",58,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE001I",59,0)
- . i nextpage'="" d
-"RTN","C0CE001I",60,0)
- . . n x
-"RTN","C0CE001I",61,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE001I",62,0)
- . . s stop=1
-"RTN","C0CE001I",63,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE001I",64,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001I",65,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001I",66,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE001I",67,0)
- s ctype="text/html"
-"RTN","C0CE001I",68,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE001I",69,0)
- i $d(headers) d
-"RTN","C0CE001I",70,0)
- . n lcname,name
-"RTN","C0CE001I",71,0)
- . s name=""
-"RTN","C0CE001I",72,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE001I",73,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE001I",74,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE001I",75,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE001I",76,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE001I",77,0)
- w $c(13,10)
-"RTN","C0CE001I",78,0)
- QUIT 1
-"RTN","C0CE001I",79,0)
- ;
-"RTN","C0CE001I",80,0)
-body ;
-"RTN","C0CE001I",81,0)
- w ""_$c(13,10)
-"RTN","C0CE001I",82,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",83,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",84,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",86,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",87,0)
- w "The start EWD Page"_""
-"RTN","C0CE001I",88,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",89,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",97,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",144,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",145,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",146,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",147,0)
- w "This page is the first page in this application"_""
-"RTN","C0CE001I",148,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",149,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",150,0)
- w "Login"_""
-"RTN","C0CE001I",151,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",172,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",173,0)
- w ""_$c(13,10)
-"RTN","C0CE001I",174,0)
- QUIT
-"RTN","C0CE001L")
-0^10^B51144421
-"RTN","C0CE001L",1,0)
- ;GT.M version of page loginPanel (patientportal application)
-"RTN","C0CE001L",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 2
-"RTN","C0CE001L",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE001L",4,0)
- QUIT
-"RTN","C0CE001L",5,0)
- ;
-"RTN","C0CE001L",6,0)
-run ;
-"RTN","C0CE001L",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE001L",8,0)
- s ok=$$pre()
-"RTN","C0CE001L",9,0)
- i ok d body
-"RTN","C0CE001L",10,0)
- QUIT
-"RTN","C0CE001L",11,0)
- ;
-"RTN","C0CE001L",12,0)
-pre() ;
-"RTN","C0CE001L",13,0)
- ;
-"RTN","C0CE001L",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE001L",15,0)
- ;
-"RTN","C0CE001L",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE001L",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE001L",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE001L",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE001L",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE001L",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE001L",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE001L",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE001L",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE001L",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE001L",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE001L",27,0)
- s sessionArray("ewd_pageName")="loginPanel"
-"RTN","C0CE001L",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE001L",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE001L",30,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0CE001L",31,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0CE001L",32,0)
- s Error=$$startSession^%zewdPHP("loginPanel",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE001L",33,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE001L",34,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE001L",35,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE001L",36,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE001L",37,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE001L",38,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE001L",39,0)
- . n errorPage
-"RTN","C0CE001L",40,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE001L",41,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE001L",42,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE001L",43,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE001L",44,0)
- s stop=0
-"RTN","C0CE001L",45,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE001L",46,0)
- . n nextpage
-"RTN","C0CE001L",47,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE001L",48,0)
- . i nextpage'="" d
-"RTN","C0CE001L",49,0)
- . . n x
-"RTN","C0CE001L",50,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE001L",51,0)
- . . s stop=1
-"RTN","C0CE001L",52,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE001L",53,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001L",54,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001L",55,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE001L",56,0)
- s ctype="text/html"
-"RTN","C0CE001L",57,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE001L",58,0)
- i $d(headers) d
-"RTN","C0CE001L",59,0)
- . n lcname,name
-"RTN","C0CE001L",60,0)
- . s name=""
-"RTN","C0CE001L",61,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE001L",62,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE001L",63,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE001L",64,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE001L",65,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE001L",66,0)
- w $c(13,10)
-"RTN","C0CE001L",67,0)
- QUIT 1
-"RTN","C0CE001L",68,0)
- ;
-"RTN","C0CE001L",69,0)
-body ;
-"RTN","C0CE001L",70,0)
- if ($g(Error)="") d
-"RTN","C0CE001L",71,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",72,0)
- .w "EWD.page.yuiResourcePath = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
-"RTN","C0CE001L",73,0)
- .w "if (EWD.page.yuiResourcePath == '') {"_""
-"RTN","C0CE001L",74,0)
- .w " alert('Unable to determine path to YUI resource file. Did you run d install^%zewdYUIConf()?') ;"_""
-"RTN","C0CE001L",75,0)
- .w "}"_""
-"RTN","C0CE001L",76,0)
- .w "EWD.page.loadResource("""_$$getSessionValue^%zewdAPI("yui.resourceLoaderPath",sessid)_$$getSessionValue^%zewdAPI("yui.resourceLoader",sessid)_""",""js"") ;"_""
-"RTN","C0CE001L",77,0)
- .w "if (!EWD.yui) alert('YUI Javascript resource file ewdYUIResources.js was not found in the web server root path');"_""
-"RTN","C0CE001L",78,0)
- .w "if (!EWD.yui.build) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You must be using build 790');"_""
-"RTN","C0CE001L",79,0)
- .w "if (EWD.yui.build != 790) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You are using build ' + EWD.yui.build + ' but you should be using build 790');"_""
-"RTN","C0CE001L",80,0)
- .w "EWD.yui.version = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
-"RTN","C0CE001L",81,0)
- .w "EWD.yui.resourceLoader.Dialog() ;"_""
-"RTN","C0CE001L",82,0)
- .w "document.getElementsByTagName('body')[0].className = 'yui-skin-sam' ;"_""
-"RTN","C0CE001L",83,0)
- .w "var fReturnloginPanel7=function() {"_""
-"RTN","C0CE001L",84,0)
- .w "EWD.yui.widgetIndex[""yuiDialogRegloginPanel7""]={widgetName:""loginPanel7"",tagId:""yuiDialogDivloginPanel7""};"_""
-"RTN","C0CE001L",85,0)
- .w "EWD.yui.moveDialogToBody('yuiDialogDivloginPanel7');"_""
-"RTN","C0CE001L",86,0)
- .w "EWD.yui.widget.loginPanel7=new YAHOO.widget.Dialog(""yuiDialogDivloginPanel7"",{iframe:true,width:""270px"",x:150,y:100});"_""
-"RTN","C0CE001L",87,0)
- .w "EWD.yui.widget.loginPanel7.render();"_""
-"RTN","C0CE001L",88,0)
- .w "};"_""
-"RTN","C0CE001L",89,0)
- .w "YAHOO.util.Event.onAvailable(""yuiDialogDivloginPanel7"",fReturnloginPanel7);"_""
-"RTN","C0CE001L",90,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",97,0)
- .w "Login Form will go here"_""
-"RTN","C0CE001L",98,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",99,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",100,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",101,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",102,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",103,0)
- .
-"RTN","C0CE001L",104,0)
- w ""_$c(13,10)
-"RTN","C0CE001L",105,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0CE001L",106,0)
- s id=""
-"RTN","C0CE001L",107,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0CE001L",108,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE001L",109,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0CE001L",110,0)
- s id=""
-"RTN","C0CE001L",111,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0CE001L",112,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE001L",113,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0CE001L",114,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0CE001L",115,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0CE001L",116,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0CE001L",117,0)
- w " }"_""
-"RTN","C0CE001L",118,0)
- w ""_$c(13,10)
-"RTN","C0CE001L",119,0)
- QUIT
-"RTN","C0CE002")
-0^5^B19002031
-"RTN","C0CE002",1,0)
- ;GT.M version of page ccr (patientportal application)
-"RTN","C0CE002",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
-"RTN","C0CE002",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE002",4,0)
- QUIT
-"RTN","C0CE002",5,0)
- ;
-"RTN","C0CE002",6,0)
-run ;
-"RTN","C0CE002",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE002",8,0)
- s ok=$$pre()
-"RTN","C0CE002",9,0)
- i ok d body
-"RTN","C0CE002",10,0)
- QUIT
-"RTN","C0CE002",11,0)
- ;
-"RTN","C0CE002",12,0)
-pre() ;
-"RTN","C0CE002",13,0)
- ;
-"RTN","C0CE002",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE002",15,0)
- ;
-"RTN","C0CE002",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE002",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE002",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE002",19,0)
- s sessionArray("ewd_prePageScript")="TEST2^C0CRICH"
-"RTN","C0CE002",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE002",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE002",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE002",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE002",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE002",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE002",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE002",27,0)
- s sessionArray("ewd_pageName")="ccr"
-"RTN","C0CE002",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE002",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE002",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE002",31,0)
- s Error=$$startSession^%zewdPHP("ccr",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE002",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE002",33,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE002",34,0)
- s headers("Content-type")="text/xml"
-"RTN","C0CE002",35,0)
- d mergeArrayToSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE002",36,0)
- k headers
-"RTN","C0CE002",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE002",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE002",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE002",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE002",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE002",42,0)
- . n errorPage
-"RTN","C0CE002",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE002",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE002",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE002",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE002",47,0)
- s stop=0
-"RTN","C0CE002",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE002",49,0)
- . n nextpage
-"RTN","C0CE002",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE002",51,0)
- . i nextpage'="" d
-"RTN","C0CE002",52,0)
- . . n x
-"RTN","C0CE002",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE002",54,0)
- . . s stop=1
-"RTN","C0CE002",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE002",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE002",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE002",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE002",59,0)
- s ctype="text/html"
-"RTN","C0CE002",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE002",61,0)
- i $d(headers) d
-"RTN","C0CE002",62,0)
- . n lcname,name
-"RTN","C0CE002",63,0)
- . s name=""
-"RTN","C0CE002",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE002",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE002",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE002",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE002",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE002",69,0)
- w $c(13,10)
-"RTN","C0CE002",70,0)
- QUIT 1
-"RTN","C0CE002",71,0)
- ;
-"RTN","C0CE002",72,0)
-body ;
-"RTN","C0CE002",73,0)
- s no=""
-"RTN","C0CE002",74,0)
- i no?1N.N s no=no-1
-"RTN","C0CE002",75,0)
- i no?1AP.ANP d
-"RTN","C0CE002",76,0)
- . s p1=$e(no,1,$l(no)-1)
-"RTN","C0CE002",77,0)
- . s p2=$e(no,$l(no))
-"RTN","C0CE002",78,0)
- . s p2=$c($a(p2)-1)
-"RTN","C0CE002",79,0)
- . s no=p1_p2
-"RTN","C0CE002",80,0)
- s nul=""
-"RTN","C0CE002",81,0)
- s endValue12=""
-"RTN","C0CE002",82,0)
- i endValue12?1N.N s endValue12=endValue12+1
-"RTN","C0CE002",83,0)
- f q:'(($o(^%zewdSession("session",sessid,"CCR",no))'=endValue12)&($o(^%zewdSession("session",sessid,"CCR",no))'=nul)) d
-"RTN","C0CE002",84,0)
- .s no=$o(^%zewdSession("session",sessid,"CCR",no))
-"RTN","C0CE002",85,0)
- .s data=$g(^%zewdSession("session",sessid,"CCR",no))
-"RTN","C0CE002",86,0)
- .w data
-"RTN","C0CE002",87,0)
- .
-"RTN","C0CE002",88,0)
- QUIT
-"RTN","C0CE003")
-0^11^B16186512
-"RTN","C0CE003",1,0)
- ;GT.M version of page ccr2 (patientportal application)
-"RTN","C0CE003",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
-"RTN","C0CE003",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE003",4,0)
- QUIT
-"RTN","C0CE003",5,0)
- ;
-"RTN","C0CE003",6,0)
-run ;
-"RTN","C0CE003",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE003",8,0)
- s ok=$$pre()
-"RTN","C0CE003",9,0)
- i ok d body
-"RTN","C0CE003",10,0)
- QUIT
-"RTN","C0CE003",11,0)
- ;
-"RTN","C0CE003",12,0)
-pre() ;
-"RTN","C0CE003",13,0)
- ;
-"RTN","C0CE003",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE003",15,0)
- ;
-"RTN","C0CE003",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE003",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE003",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE003",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE003",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE003",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE003",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE003",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE003",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE003",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE003",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE003",27,0)
- s sessionArray("ewd_pageName")="ccr2"
-"RTN","C0CE003",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE003",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE003",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE003",31,0)
- s Error=$$startSession^%zewdPHP("ccr2",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE003",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE003",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE003",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE003",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE003",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE003",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE003",38,0)
- . n errorPage
-"RTN","C0CE003",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE003",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE003",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE003",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE003",43,0)
- s stop=0
-"RTN","C0CE003",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE003",45,0)
- . n nextpage
-"RTN","C0CE003",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE003",47,0)
- . i nextpage'="" d
-"RTN","C0CE003",48,0)
- . . n x
-"RTN","C0CE003",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE003",50,0)
- . . s stop=1
-"RTN","C0CE003",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE003",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE003",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE003",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE003",55,0)
- s ctype="text/html"
-"RTN","C0CE003",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE003",57,0)
- i $d(headers) d
-"RTN","C0CE003",58,0)
- . n lcname,name
-"RTN","C0CE003",59,0)
- . s name=""
-"RTN","C0CE003",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE003",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE003",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE003",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE003",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE003",65,0)
- w $c(13,10)
-"RTN","C0CE003",66,0)
- QUIT 1
-"RTN","C0CE003",67,0)
- ;
-"RTN","C0CE003",68,0)
-body ;
-"RTN","C0CE003",69,0)
- w ""_$c(13,10)
-"RTN","C0CE003",70,0)
- w " "_$c(13,10)
-"RTN","C0CE003",71,0)
- w "hello world"_""
-"RTN","C0CE003",72,0)
- w " "_$c(13,10)
-"RTN","C0CE003",73,0)
- w ""_$c(13,10)
-"RTN","C0CE003",74,0)
- QUIT
-"RTN","C0CE004")
-0^6^B14016611
-"RTN","C0CE004",1,0)
- ;GT.M version of page ccr-exe (patientportal application)
-"RTN","C0CE004",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
-"RTN","C0CE004",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE004",4,0)
- QUIT
-"RTN","C0CE004",5,0)
- ;
-"RTN","C0CE004",6,0)
-run ;
-"RTN","C0CE004",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE004",8,0)
- s ok=$$pre()
-"RTN","C0CE004",9,0)
- i ok d body
-"RTN","C0CE004",10,0)
- QUIT
-"RTN","C0CE004",11,0)
- ;
-"RTN","C0CE004",12,0)
-pre() ;
-"RTN","C0CE004",13,0)
- ;
-"RTN","C0CE004",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE004",15,0)
- ;
-"RTN","C0CE004",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE004",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE004",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE004",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE004",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE004",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE004",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE004",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE004",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE004",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE004",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE004",27,0)
- s sessionArray("ewd_pageName")="ccr-exe"
-"RTN","C0CE004",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE004",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE004",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE004",31,0)
- s Error=$$startSession^%zewdPHP("ccr-exe",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE004",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE004",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE004",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE004",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE004",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE004",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE004",38,0)
- . n errorPage
-"RTN","C0CE004",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE004",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE004",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE004",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE004",43,0)
- s stop=0
-"RTN","C0CE004",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE004",45,0)
- . n nextpage
-"RTN","C0CE004",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE004",47,0)
- . i nextpage'="" d
-"RTN","C0CE004",48,0)
- . . n x
-"RTN","C0CE004",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE004",50,0)
- . . s stop=1
-"RTN","C0CE004",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE004",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE004",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE004",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE004",55,0)
- s ctype="text/html"
-"RTN","C0CE004",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE004",57,0)
- i $d(headers) d
-"RTN","C0CE004",58,0)
- . n lcname,name
-"RTN","C0CE004",59,0)
- . s name=""
-"RTN","C0CE004",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE004",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE004",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE004",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE004",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE004",65,0)
- w $c(13,10)
-"RTN","C0CE004",66,0)
- QUIT 1
-"RTN","C0CE004",67,0)
- ;
-"RTN","C0CE004",68,0)
-body ;
-"RTN","C0CE004",69,0)
- d gpltest^C0CRICH("")
-"RTN","C0CE004",70,0)
- QUIT
-"RTN","C0CE005")
-0^12^B80810317
-"RTN","C0CE005",1,0)
- ;GT.M version of page Second (patientportal application)
-"RTN","C0CE005",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 2
-"RTN","C0CE005",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE005",4,0)
- QUIT
-"RTN","C0CE005",5,0)
- ;
-"RTN","C0CE005",6,0)
-run ;
-"RTN","C0CE005",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE005",8,0)
- s ok=$$pre()
-"RTN","C0CE005",9,0)
- i ok d body
-"RTN","C0CE005",10,0)
- QUIT
-"RTN","C0CE005",11,0)
- ;
-"RTN","C0CE005",12,0)
-pre() ;
-"RTN","C0CE005",13,0)
- ;
-"RTN","C0CE005",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE005",15,0)
- ;
-"RTN","C0CE005",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE005",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE005",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE005",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE005",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE005",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE005",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE005",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE005",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE005",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE005",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE005",27,0)
- s sessionArray("ewd_pageName")="Second"
-"RTN","C0CE005",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE005",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE005",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE005",31,0)
- s tokens("First")=$$setNextPageToken^%zewdGTMRuntime("First")
-"RTN","C0CE005",32,0)
- s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
-"RTN","C0CE005",33,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE005",34,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE005",35,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE005",36,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE005",37,0)
- s Error=$$startSession^%zewdPHP("Second",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE005",38,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE005",39,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE005",40,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE005",41,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE005",42,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE005",43,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE005",44,0)
- . n errorPage
-"RTN","C0CE005",45,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE005",46,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE005",47,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE005",48,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE005",49,0)
- s stop=0
-"RTN","C0CE005",50,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE005",51,0)
- . n nextpage
-"RTN","C0CE005",52,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE005",53,0)
- . i nextpage'="" d
-"RTN","C0CE005",54,0)
- . . n x
-"RTN","C0CE005",55,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE005",56,0)
- . . s stop=1
-"RTN","C0CE005",57,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE005",58,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE005",59,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE005",60,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE005",61,0)
- s ctype="text/html"
-"RTN","C0CE005",62,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE005",63,0)
- i $d(headers) d
-"RTN","C0CE005",64,0)
- . n lcname,name
-"RTN","C0CE005",65,0)
- . s name=""
-"RTN","C0CE005",66,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE005",67,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE005",68,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE005",69,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE005",70,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE005",71,0)
- w $c(13,10)
-"RTN","C0CE005",72,0)
- QUIT 1
-"RTN","C0CE005",73,0)
- ;
-"RTN","C0CE005",74,0)
-body ;
-"RTN","C0CE005",75,0)
- w ""_$c(13,10)
-"RTN","C0CE005",76,0)
- w " "_$c(13,10)
-"RTN","C0CE005",77,0)
- w " "_$c(13,10)
-"RTN","C0CE005",78,0)
- w " "_$c(13,10)
-"RTN","C0CE005",80,0)
- w " "_$c(13,10)
-"RTN","C0CE005",81,0)
- w "The second EWD Page"_""
-"RTN","C0CE005",82,0)
- w " "_$c(13,10)
-"RTN","C0CE005",83,0)
- w " "_$c(13,10)
-"RTN","C0CE005",90,0)
- w " "_$c(13,10)
-"RTN","C0CE005",137,0)
- w " "_$c(13,10)
-"RTN","C0CE005",138,0)
- w " "_$c(13,10)
-"RTN","C0CE005",139,0)
- w "
"_$c(13,10)
-"RTN","C0CE005",140,0)
- w "This page is not a ""first"" page"_""
-"RTN","C0CE005",141,0)
- w "
"_$c(13,10)
-"RTN","C0CE005",150,0)
- w " "_$c(13,10)
-"RTN","C0CE005",151,0)
- w "
"_$c(13,10)
-"RTN","C0CE005",152,0)
- w " "_$c(13,10)
-"RTN","C0CE005",153,0)
- w ""_$c(13,10)
-"RTN","C0CE005",154,0)
- QUIT
-"RTN","C0CE006")
-0^7^B77594981
-"RTN","C0CE006",1,0)
- ;GT.M version of page session (patientportal application)
-"RTN","C0CE006",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 2
-"RTN","C0CE006",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE006",4,0)
- QUIT
-"RTN","C0CE006",5,0)
- ;
-"RTN","C0CE006",6,0)
-run ;
-"RTN","C0CE006",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE006",8,0)
- s ok=$$pre()
-"RTN","C0CE006",9,0)
- i ok d body
-"RTN","C0CE006",10,0)
- QUIT
-"RTN","C0CE006",11,0)
- ;
-"RTN","C0CE006",12,0)
-pre() ;
-"RTN","C0CE006",13,0)
- ;
-"RTN","C0CE006",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE006",15,0)
- ;
-"RTN","C0CE006",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE006",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE006",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE006",19,0)
- s sessionArray("ewd_prePageScript")="TEST^RICHEWDTEST"
-"RTN","C0CE006",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE006",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE006",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE006",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE006",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE006",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE006",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE006",27,0)
- s sessionArray("ewd_pageName")="session"
-"RTN","C0CE006",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE006",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE006",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE006",31,0)
- s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
-"RTN","C0CE006",32,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE006",33,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE006",34,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE006",35,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE006",36,0)
- s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE006",37,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE006",38,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE006",39,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE006",40,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE006",41,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE006",42,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE006",43,0)
- . n errorPage
-"RTN","C0CE006",44,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE006",45,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE006",46,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE006",47,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE006",48,0)
- s stop=0
-"RTN","C0CE006",49,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE006",50,0)
- . n nextpage
-"RTN","C0CE006",51,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE006",52,0)
- . i nextpage'="" d
-"RTN","C0CE006",53,0)
- . . n x
-"RTN","C0CE006",54,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE006",55,0)
- . . s stop=1
-"RTN","C0CE006",56,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE006",57,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE006",58,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE006",59,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE006",60,0)
- s ctype="text/html"
-"RTN","C0CE006",61,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE006",62,0)
- i $d(headers) d
-"RTN","C0CE006",63,0)
- . n lcname,name
-"RTN","C0CE006",64,0)
- . s name=""
-"RTN","C0CE006",65,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE006",66,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE006",67,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE006",68,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE006",69,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE006",70,0)
- w $c(13,10)
-"RTN","C0CE006",71,0)
- QUIT 1
-"RTN","C0CE006",72,0)
- ;
-"RTN","C0CE006",73,0)
-body ;
-"RTN","C0CE006",74,0)
- w ""_$c(13,10)
-"RTN","C0CE006",75,0)
- w " "_$c(13,10)
-"RTN","C0CE006",76,0)
- w " "_$c(13,10)
-"RTN","C0CE006",77,0)
- w " "_$c(13,10)
-"RTN","C0CE006",79,0)
- w " "_$c(13,10)
-"RTN","C0CE006",80,0)
- w "EWD Page using Session Variables and a PrePage Script"_""
-"RTN","C0CE006",81,0)
- w " "_$c(13,10)
-"RTN","C0CE006",82,0)
- w " "_$c(13,10)
-"RTN","C0CE006",89,0)
- w " "_$c(13,10)
-"RTN","C0CE006",136,0)
- w " "_$c(13,10)
-"RTN","C0CE006",137,0)
- w " "_$c(13,10)
-"RTN","C0CE006",138,0)
- w "
"_$c(13,10)
-"RTN","C0CE006",139,0)
- w "This page accesses EWD Session Variables"_""
-"RTN","C0CE006",140,0)
- w "
"_$c(13,10)
-"RTN","C0CE006",141,0)
- w "
"_$c(13,10)
-"RTN","C0CE006",142,0)
- w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
-"RTN","C0CE006",143,0)
- w "
-"DATA",70050,16,1,8,0)
-test1 page
-"DATA",70050,16,1,9,0)
-
-"DATA",70050,16,1,10,0)
-
-"DATA",70050,17,0)
-23412^screenman^test1.m
-"DATA",70050,17,1,0)
-^^25^25^3100301^
-"DATA",70050,17,1,1,0)
-
-"DATA",70050,17,1,2,0)
-
-"DATA",70050,17,1,3,0)
-
-"DATA",70050,17,1,4,0)
-
-"DATA",70050,17,1,9,0)
-Screenman Test
-"DATA",70050,17,1,10,0)
-
-"DATA",70050,17,1,11,0)
-
-"DATA",70050,17,1,12,0)
-
-"DATA",70050,17,1,24,0)
-
-"DATA",70050,17,1,25,0)
-
-"FIA",70050)
-C0EWD ROUTINE MAP
-"FIA",70050,0)
-^C0E(70050,
-"FIA",70050,0,0)
-70050PI
-"FIA",70050,0,1)
-y^y^f^^n^^y^o^n
-"FIA",70050,0,10)
-
-"FIA",70050,0,11)
-
-"FIA",70050,0,"RLRO")
-
-"FIA",70050,70050)
-0
-"FIA",70050,70050.01)
-0
-"FIA",70050,70050.02)
-0
-"IX",70050,70050,"AZEWD",0)
-70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
-"IX",70050,70050,"AZEWD",1)
-D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",2)
-D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",11.1,0)
-^.114IA^3^3
-"IX",70050,70050,"AZEWD",11.1,1,0)
-1^F^70050^.01^^^F
-"IX",70050,70050,"AZEWD",11.1,2,0)
-2^F^70050^.02^^^F
-"IX",70050,70050,"AZEWD",11.1,3,0)
-3^F^70050^.03^^^F
-"IX",70050,70050,"C",0)
-70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
-"IX",70050,70050,"C",1)
-S ^C0E(70050,"C",$E(X,1,60),DA)=""
-"IX",70050,70050,"C",2)
-K ^C0E(70050,"C",$E(X,1,60),DA)
-"IX",70050,70050,"C",2.5)
-K ^C0E(70050,"C")
-"IX",70050,70050,"C",11.1,0)
-^.114IA^1^1
-"IX",70050,70050,"C",11.1,1,0)
-1^F^70050^.03^60^1^F
-"IX",70050,70050,"C",11.1,1,3)
-
-"KRN",.401,1795,-1)
-0^1
-"KRN",.401,1795,0)
-C0CE0 PATIENT PORTAL^3100302.0028^@^70050^^@^3100302
-"KRN",.401,1795,2,0)
-^.4014^1^1
-"KRN",.401,1795,2,1,0)
-70050^.02^EWD APPLICATION^^^^^^^4
-"KRN",.401,1795,2,1,"F")
-patientportakz^patientportal
-"KRN",.401,1795,2,1,"GET")
-S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
-"KRN",.401,1795,2,1,"QCON")
-I DISX(1)="patientportal"
-"KRN",.401,1795,2,1,"T")
-patientportal^patientportal
-"KRN",.401,1795,2,1,"TXT")
-EWD APPLICATION equals patientportal
-"KRN",.401,1795,2,"B",70050,1)
-
-"MBREQ")
-0
-"ORD",6,.401)
-.401;6;;;EDEOUT^DIFROMSO(.401,DA,"",XPDA);FPRE^DIFROMSI(.401,"",XPDA);EPRE^DIFROMSI(.401,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.401,DA,"",XPDA);DEL^DIFROMSK(.401,"",%)
-"ORD",6,.401,0)
-SORT TEMPLATE
-"QUES","XPF1",0)
-Y
-"QUES","XPF1","??")
-^D REP^XPDH
-"QUES","XPF1","A")
-Shall I write over your |FLAG| File
-"QUES","XPF1","B")
-YES
-"QUES","XPF1","M")
-D XPF1^XPDIQ
-"QUES","XPF2",0)
-Y
-"QUES","XPF2","??")
-^D DTA^XPDH
-"QUES","XPF2","A")
-Want my data |FLAG| yours
-"QUES","XPF2","B")
-YES
-"QUES","XPF2","M")
-D XPF2^XPDIQ
-"QUES","XPI1",0)
-YO
-"QUES","XPI1","??")
-^D INHIBIT^XPDH
-"QUES","XPI1","A")
-Want KIDS to INHIBIT LOGONs during the install
-"QUES","XPI1","B")
-NO
-"QUES","XPI1","M")
-D XPI1^XPDIQ
-"QUES","XPM1",0)
-PO^VA(200,:EM
-"QUES","XPM1","??")
-^D MG^XPDH
-"QUES","XPM1","A")
-Enter the Coordinator for Mail Group '|FLAG|'
-"QUES","XPM1","B")
-
-"QUES","XPM1","M")
-D XPM1^XPDIQ
-"QUES","XPO1",0)
-Y
-"QUES","XPO1","??")
-^D MENU^XPDH
-"QUES","XPO1","A")
-Want KIDS to Rebuild Menu Trees Upon Completion of Install
-"QUES","XPO1","B")
-NO
-"QUES","XPO1","M")
-D XPO1^XPDIQ
-"QUES","XPZ1",0)
-Y
-"QUES","XPZ1","??")
-^D OPT^XPDH
-"QUES","XPZ1","A")
-Want to DISABLE Scheduled Options, Menu Options, and Protocols
-"QUES","XPZ1","B")
-NO
-"QUES","XPZ1","M")
-D XPZ1^XPDIQ
-"QUES","XPZ2",0)
-Y
-"QUES","XPZ2","??")
-^D RTN^XPDH
-"QUES","XPZ2","A")
-Want to MOVE routines to other CPUs
-"QUES","XPZ2","B")
-NO
-"QUES","XPZ2","M")
-D XPZ2^XPDIQ
-"RTN")
-13
-"RTN","C0CE000A")
-0^3^B14831539
-"RTN","C0CE000A",1,0)
- ;GT.M version of page ewdAjaxError (patientportal application)
-"RTN","C0CE000A",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
-"RTN","C0CE000A",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000A",4,0)
- QUIT
-"RTN","C0CE000A",5,0)
- ;
-"RTN","C0CE000A",6,0)
-run ;
-"RTN","C0CE000A",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000A",8,0)
- s ok=$$pre()
-"RTN","C0CE000A",9,0)
- i ok d body
-"RTN","C0CE000A",10,0)
- QUIT
-"RTN","C0CE000A",11,0)
- ;
-"RTN","C0CE000A",12,0)
-pre() ;
-"RTN","C0CE000A",13,0)
- ;
-"RTN","C0CE000A",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000A",15,0)
- ;
-"RTN","C0CE000A",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE000A",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0CE000A",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE000A",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE000A",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE000A",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE000A",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE000A",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE000A",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE000A",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE000A",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE000A",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxError"
-"RTN","C0CE000A",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE000A",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE000A",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE000A",31,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE000A",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE000A",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE000A",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE000A",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE000A",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE000A",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE000A",38,0)
- . n errorPage
-"RTN","C0CE000A",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE000A",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE000A",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE000A",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE000A",43,0)
- s stop=0
-"RTN","C0CE000A",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE000A",45,0)
- . n nextpage
-"RTN","C0CE000A",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE000A",47,0)
- . i nextpage'="" d
-"RTN","C0CE000A",48,0)
- . . n x
-"RTN","C0CE000A",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE000A",50,0)
- . . s stop=1
-"RTN","C0CE000A",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE000A",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000A",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000A",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000A",55,0)
- s ctype="text/html"
-"RTN","C0CE000A",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE000A",57,0)
- i $d(headers) d
-"RTN","C0CE000A",58,0)
- . n lcname,name
-"RTN","C0CE000A",59,0)
- . s name=""
-"RTN","C0CE000A",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE000A",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE000A",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE000A",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE000A",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE000A",65,0)
- w $c(13,10)
-"RTN","C0CE000A",66,0)
- QUIT 1
-"RTN","C0CE000A",67,0)
- ;
-"RTN","C0CE000A",68,0)
-body ;
-"RTN","C0CE000A",69,0)
- w ""_$c(13,10)
-"RTN","C0CE000A",70,0)
- w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
-"RTN","C0CE000A",71,0)
- w ""_$c(13,10)
-"RTN","C0CE000A",72,0)
- QUIT
-"RTN","C0CE000E")
-0^8^B27501668
-"RTN","C0CE000E",1,0)
- ;GT.M version of page ewdError (patientportal application)
-"RTN","C0CE000E",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 3
-"RTN","C0CE000E",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000E",4,0)
- QUIT
-"RTN","C0CE000E",5,0)
- ;
-"RTN","C0CE000E",6,0)
-run ;
-"RTN","C0CE000E",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000E",8,0)
- s ok=$$pre()
-"RTN","C0CE000E",9,0)
- i ok d body
-"RTN","C0CE000E",10,0)
- QUIT
-"RTN","C0CE000E",11,0)
- ;
-"RTN","C0CE000E",12,0)
-pre() ;
-"RTN","C0CE000E",13,0)
- ;
-"RTN","C0CE000E",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000E",15,0)
- ;
-"RTN","C0CE000E",16,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000E",17,0)
- w "Content-type: text/html"_$c(13,10,13,10)
-"RTN","C0CE000E",18,0)
- QUIT 1
-"RTN","C0CE000E",19,0)
- ;
-"RTN","C0CE000E",20,0)
-body ;
-"RTN","C0CE000E",21,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",22,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",23,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",24,0)
- w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
-"RTN","C0CE000E",25,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",43,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",44,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",45,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",46,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",47,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",48,0)
- w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
-"RTN","C0CE000E",49,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",50,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",51,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",52,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",53,0)
- w "
An Error has occurred
"_$c(13,10)
-"RTN","C0CE000E",54,0)
- w " "_$c(13,10)
-"RTN","C0CE000E",55,0)
- w "
"_$g(%KEY("error"))_"
"_$c(13,10)
-"RTN","C0CE000E",56,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",57,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",58,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",59,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",60,0)
- w " "_$c(13,10)
-"RTN","C0CE000E",63,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",64,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",65,0)
- QUIT
-"RTN","C0CE000F")
-0^4^B32715806
-"RTN","C0CE000F",1,0)
- ;GT.M version of page ewdAjaxErrorRedirect (patientportal application)
-"RTN","C0CE000F",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
-"RTN","C0CE000F",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000F",4,0)
- QUIT
-"RTN","C0CE000F",5,0)
- ;
-"RTN","C0CE000F",6,0)
-run ;
-"RTN","C0CE000F",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000F",8,0)
- s ok=$$pre()
-"RTN","C0CE000F",9,0)
- i ok d body
-"RTN","C0CE000F",10,0)
- QUIT
-"RTN","C0CE000F",11,0)
- ;
-"RTN","C0CE000F",12,0)
-pre() ;
-"RTN","C0CE000F",13,0)
- ;
-"RTN","C0CE000F",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000F",15,0)
- ;
-"RTN","C0CE000F",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE000F",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE000F",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE000F",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE000F",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE000F",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE000F",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE000F",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE000F",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE000F",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE000F",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE000F",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
-"RTN","C0CE000F",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE000F",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE000F",30,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0CE000F",31,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0CE000F",32,0)
- s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
-"RTN","C0CE000F",33,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE000F",34,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE000F",35,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE000F",36,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE000F",37,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE000F",38,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE000F",39,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE000F",40,0)
- . n errorPage
-"RTN","C0CE000F",41,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE000F",42,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE000F",43,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE000F",44,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE000F",45,0)
- s stop=0
-"RTN","C0CE000F",46,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE000F",47,0)
- . n nextpage
-"RTN","C0CE000F",48,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE000F",49,0)
- . i nextpage'="" d
-"RTN","C0CE000F",50,0)
- . . n x
-"RTN","C0CE000F",51,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE000F",52,0)
- . . s stop=1
-"RTN","C0CE000F",53,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE000F",54,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000F",55,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000F",56,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000F",57,0)
- s ctype="text/html"
-"RTN","C0CE000F",58,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE000F",59,0)
- i $d(headers) d
-"RTN","C0CE000F",60,0)
- . n lcname,name
-"RTN","C0CE000F",61,0)
- . s name=""
-"RTN","C0CE000F",62,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE000F",63,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE000F",64,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE000F",65,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE000F",66,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE000F",67,0)
- w $c(13,10)
-"RTN","C0CE000F",68,0)
- QUIT 1
-"RTN","C0CE000F",69,0)
- ;
-"RTN","C0CE000F",70,0)
-body ;
-"RTN","C0CE000F",71,0)
- if ($g(Error)="") d
-"RTN","C0CE000F",72,0)
- .w " "_$c(13,10)
-"RTN","C0CE000F",73,0)
- .w "
"_$c(13,10)
-"RTN","C0CE000F",74,0)
- .w "
"_$c(13,10)
-"RTN","C0CE000F",75,0)
- .w " "_$c(13,10)
-"RTN","C0CE000F",76,0)
- .
-"RTN","C0CE000F",77,0)
- w ""_$c(13,10)
-"RTN","C0CE000F",78,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0CE000F",79,0)
- s id=""
-"RTN","C0CE000F",80,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0CE000F",81,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE000F",82,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0CE000F",83,0)
- s id=""
-"RTN","C0CE000F",84,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0CE000F",85,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE000F",86,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0CE000F",87,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0CE000F",88,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0CE000F",89,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0CE000F",90,0)
- w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
-"RTN","C0CE000F",91,0)
- w ""_$c(13,10)
-"RTN","C0CE000F",92,0)
- QUIT
-"RTN","C0CE000R")
-0^9^B66701996
-"RTN","C0CE000R",1,0)
- ;GT.M version of page ewdErrorRedirect (patientportal application)
-"RTN","C0CE000R",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
-"RTN","C0CE000R",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000R",4,0)
- QUIT
-"RTN","C0CE000R",5,0)
- ;
-"RTN","C0CE000R",6,0)
-run ;
-"RTN","C0CE000R",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000R",8,0)
- s ok=$$pre()
-"RTN","C0CE000R",9,0)
- i ok d body
-"RTN","C0CE000R",10,0)
- QUIT
-"RTN","C0CE000R",11,0)
- ;
-"RTN","C0CE000R",12,0)
-pre() ;
-"RTN","C0CE000R",13,0)
- ;
-"RTN","C0CE000R",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000R",15,0)
- ;
-"RTN","C0CE000R",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE000R",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE000R",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE000R",19,0)
- s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
-"RTN","C0CE000R",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE000R",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE000R",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE000R",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE000R",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE000R",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE000R",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE000R",27,0)
- s sessionArray("ewd_pageName")="ewdErrorRedirect"
-"RTN","C0CE000R",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE000R",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE000R",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE000R",31,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE000R",32,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE000R",33,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE000R",34,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE000R",35,0)
- s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE000R",36,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE000R",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE000R",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE000R",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE000R",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE000R",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE000R",42,0)
- . n errorPage
-"RTN","C0CE000R",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE000R",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE000R",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE000R",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE000R",47,0)
- s stop=0
-"RTN","C0CE000R",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE000R",49,0)
- . n nextpage
-"RTN","C0CE000R",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE000R",51,0)
- . i nextpage'="" d
-"RTN","C0CE000R",52,0)
- . . n x
-"RTN","C0CE000R",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE000R",54,0)
- . . s stop=1
-"RTN","C0CE000R",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE000R",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000R",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000R",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000R",59,0)
- s ctype="text/html"
-"RTN","C0CE000R",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE000R",61,0)
- i $d(headers) d
-"RTN","C0CE000R",62,0)
- . n lcname,name
-"RTN","C0CE000R",63,0)
- . s name=""
-"RTN","C0CE000R",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE000R",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE000R",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE000R",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE000R",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE000R",69,0)
- w $c(13,10)
-"RTN","C0CE000R",70,0)
- QUIT 1
-"RTN","C0CE000R",71,0)
- ;
-"RTN","C0CE000R",72,0)
-body ;
-"RTN","C0CE000R",73,0)
- w ""_$c(13,10)
-"RTN","C0CE000R",74,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",75,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",76,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",78,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",79,0)
- w "Ajax Error Redirect page"_""
-"RTN","C0CE000R",80,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",81,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",82,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",83,0)
- w "Please wait...."_""
-"RTN","C0CE000R",84,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",85,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",86,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",133,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",134,0)
- w ""_$c(13,10)
-"RTN","C0CE000R",135,0)
- QUIT
-"RTN","C0CE001I")
-0^2^B97883042
-"RTN","C0CE001I",1,0)
- ;GT.M version of page index (patientportal application)
-"RTN","C0CE001I",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
-"RTN","C0CE001I",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE001I",4,0)
- QUIT
-"RTN","C0CE001I",5,0)
- ;
-"RTN","C0CE001I",6,0)
-run ;
-"RTN","C0CE001I",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE001I",8,0)
- s ok=$$pre()
-"RTN","C0CE001I",9,0)
- i ok d body
-"RTN","C0CE001I",10,0)
- QUIT
-"RTN","C0CE001I",11,0)
- ;
-"RTN","C0CE001I",12,0)
-pre() ;
-"RTN","C0CE001I",13,0)
- ;
-"RTN","C0CE001I",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE001I",15,0)
- ;
-"RTN","C0CE001I",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE001I",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0CE001I",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE001I",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE001I",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE001I",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE001I",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE001I",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE001I",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE001I",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE001I",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE001I",27,0)
- s sessionArray("ewd_pageName")="index"
-"RTN","C0CE001I",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE001I",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE001I",30,0)
- s sessionArray("ewd_header","Expires")=0
-"RTN","C0CE001I",31,0)
- s sessionArray("ewd_header","Cache-Control")="no-cache"
-"RTN","C0CE001I",32,0)
- s sessionArray("ewd_header","Pragma")="no-cache"
-"RTN","C0CE001I",33,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE001I",34,0)
- s tokens("ccr")=$$setNextPageToken^%zewdGTMRuntime("ccr")
-"RTN","C0CE001I",35,0)
- s tokens("ccr2")=$$setNextPageToken^%zewdGTMRuntime("ccr2")
-"RTN","C0CE001I",36,0)
- s tokens("ccrexe")=$$setNextPageToken^%zewdGTMRuntime("ccrexe")
-"RTN","C0CE001I",37,0)
- s tokens("loginPanel")=$$setNextPageToken^%zewdGTMRuntime("loginPanel")
-"RTN","C0CE001I",38,0)
- s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
-"RTN","C0CE001I",39,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE001I",40,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE001I",41,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE001I",42,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE001I",43,0)
- s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE001I",44,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE001I",45,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE001I",46,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE001I",47,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE001I",48,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE001I",49,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE001I",50,0)
- . n errorPage
-"RTN","C0CE001I",51,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE001I",52,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE001I",53,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE001I",54,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE001I",55,0)
- s stop=0
-"RTN","C0CE001I",56,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE001I",57,0)
- . n nextpage
-"RTN","C0CE001I",58,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE001I",59,0)
- . i nextpage'="" d
-"RTN","C0CE001I",60,0)
- . . n x
-"RTN","C0CE001I",61,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE001I",62,0)
- . . s stop=1
-"RTN","C0CE001I",63,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE001I",64,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001I",65,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001I",66,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE001I",67,0)
- s ctype="text/html"
-"RTN","C0CE001I",68,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE001I",69,0)
- i $d(headers) d
-"RTN","C0CE001I",70,0)
- . n lcname,name
-"RTN","C0CE001I",71,0)
- . s name=""
-"RTN","C0CE001I",72,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE001I",73,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE001I",74,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE001I",75,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE001I",76,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE001I",77,0)
- w $c(13,10)
-"RTN","C0CE001I",78,0)
- QUIT 1
-"RTN","C0CE001I",79,0)
- ;
-"RTN","C0CE001I",80,0)
-body ;
-"RTN","C0CE001I",81,0)
- w ""_$c(13,10)
-"RTN","C0CE001I",82,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",83,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",84,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",86,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",87,0)
- w "The start EWD Page"_""
-"RTN","C0CE001I",88,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",89,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",97,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",144,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",145,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",146,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",147,0)
- w "This page is the first page in this application"_""
-"RTN","C0CE001I",148,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",149,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",150,0)
- w "Login"_""
-"RTN","C0CE001I",151,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",172,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",173,0)
- w ""_$c(13,10)
-"RTN","C0CE001I",174,0)
- QUIT
-"RTN","C0CE001L")
-0^10^B51144421
-"RTN","C0CE001L",1,0)
- ;GT.M version of page loginPanel (patientportal application)
-"RTN","C0CE001L",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 3
-"RTN","C0CE001L",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE001L",4,0)
- QUIT
-"RTN","C0CE001L",5,0)
- ;
-"RTN","C0CE001L",6,0)
-run ;
-"RTN","C0CE001L",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE001L",8,0)
- s ok=$$pre()
-"RTN","C0CE001L",9,0)
- i ok d body
-"RTN","C0CE001L",10,0)
- QUIT
-"RTN","C0CE001L",11,0)
- ;
-"RTN","C0CE001L",12,0)
-pre() ;
-"RTN","C0CE001L",13,0)
- ;
-"RTN","C0CE001L",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE001L",15,0)
- ;
-"RTN","C0CE001L",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE001L",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE001L",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE001L",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE001L",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE001L",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE001L",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE001L",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE001L",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE001L",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE001L",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE001L",27,0)
- s sessionArray("ewd_pageName")="loginPanel"
-"RTN","C0CE001L",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE001L",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE001L",30,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0CE001L",31,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0CE001L",32,0)
- s Error=$$startSession^%zewdPHP("loginPanel",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE001L",33,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE001L",34,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE001L",35,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE001L",36,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE001L",37,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE001L",38,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE001L",39,0)
- . n errorPage
-"RTN","C0CE001L",40,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE001L",41,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE001L",42,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE001L",43,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE001L",44,0)
- s stop=0
-"RTN","C0CE001L",45,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE001L",46,0)
- . n nextpage
-"RTN","C0CE001L",47,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE001L",48,0)
- . i nextpage'="" d
-"RTN","C0CE001L",49,0)
- . . n x
-"RTN","C0CE001L",50,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE001L",51,0)
- . . s stop=1
-"RTN","C0CE001L",52,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE001L",53,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001L",54,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001L",55,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE001L",56,0)
- s ctype="text/html"
-"RTN","C0CE001L",57,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE001L",58,0)
- i $d(headers) d
-"RTN","C0CE001L",59,0)
- . n lcname,name
-"RTN","C0CE001L",60,0)
- . s name=""
-"RTN","C0CE001L",61,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE001L",62,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE001L",63,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE001L",64,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE001L",65,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE001L",66,0)
- w $c(13,10)
-"RTN","C0CE001L",67,0)
- QUIT 1
-"RTN","C0CE001L",68,0)
- ;
-"RTN","C0CE001L",69,0)
-body ;
-"RTN","C0CE001L",70,0)
- if ($g(Error)="") d
-"RTN","C0CE001L",71,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",72,0)
- .w "EWD.page.yuiResourcePath = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
-"RTN","C0CE001L",73,0)
- .w "if (EWD.page.yuiResourcePath == '') {"_""
-"RTN","C0CE001L",74,0)
- .w " alert('Unable to determine path to YUI resource file. Did you run d install^%zewdYUIConf()?') ;"_""
-"RTN","C0CE001L",75,0)
- .w "}"_""
-"RTN","C0CE001L",76,0)
- .w "EWD.page.loadResource("""_$$getSessionValue^%zewdAPI("yui.resourceLoaderPath",sessid)_$$getSessionValue^%zewdAPI("yui.resourceLoader",sessid)_""",""js"") ;"_""
-"RTN","C0CE001L",77,0)
- .w "if (!EWD.yui) alert('YUI Javascript resource file ewdYUIResources.js was not found in the web server root path');"_""
-"RTN","C0CE001L",78,0)
- .w "if (!EWD.yui.build) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You must be using build 790');"_""
-"RTN","C0CE001L",79,0)
- .w "if (EWD.yui.build != 790) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You are using build ' + EWD.yui.build + ' but you should be using build 790');"_""
-"RTN","C0CE001L",80,0)
- .w "EWD.yui.version = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
-"RTN","C0CE001L",81,0)
- .w "EWD.yui.resourceLoader.Dialog() ;"_""
-"RTN","C0CE001L",82,0)
- .w "document.getElementsByTagName('body')[0].className = 'yui-skin-sam' ;"_""
-"RTN","C0CE001L",83,0)
- .w "var fReturnloginPanel7=function() {"_""
-"RTN","C0CE001L",84,0)
- .w "EWD.yui.widgetIndex[""yuiDialogRegloginPanel7""]={widgetName:""loginPanel7"",tagId:""yuiDialogDivloginPanel7""};"_""
-"RTN","C0CE001L",85,0)
- .w "EWD.yui.moveDialogToBody('yuiDialogDivloginPanel7');"_""
-"RTN","C0CE001L",86,0)
- .w "EWD.yui.widget.loginPanel7=new YAHOO.widget.Dialog(""yuiDialogDivloginPanel7"",{iframe:true,width:""270px"",x:150,y:100});"_""
-"RTN","C0CE001L",87,0)
- .w "EWD.yui.widget.loginPanel7.render();"_""
-"RTN","C0CE001L",88,0)
- .w "};"_""
-"RTN","C0CE001L",89,0)
- .w "YAHOO.util.Event.onAvailable(""yuiDialogDivloginPanel7"",fReturnloginPanel7);"_""
-"RTN","C0CE001L",90,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",97,0)
- .w "Login Form will go here"_""
-"RTN","C0CE001L",98,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",99,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",100,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",101,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",102,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",103,0)
- .
-"RTN","C0CE001L",104,0)
- w ""_$c(13,10)
-"RTN","C0CE001L",105,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0CE001L",106,0)
- s id=""
-"RTN","C0CE001L",107,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0CE001L",108,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE001L",109,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0CE001L",110,0)
- s id=""
-"RTN","C0CE001L",111,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0CE001L",112,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE001L",113,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0CE001L",114,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0CE001L",115,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0CE001L",116,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0CE001L",117,0)
- w " }"_""
-"RTN","C0CE001L",118,0)
- w ""_$c(13,10)
-"RTN","C0CE001L",119,0)
- QUIT
-"RTN","C0CE002")
-0^5^B19002031
-"RTN","C0CE002",1,0)
- ;GT.M version of page ccr (patientportal application)
-"RTN","C0CE002",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
-"RTN","C0CE002",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE002",4,0)
- QUIT
-"RTN","C0CE002",5,0)
- ;
-"RTN","C0CE002",6,0)
-run ;
-"RTN","C0CE002",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE002",8,0)
- s ok=$$pre()
-"RTN","C0CE002",9,0)
- i ok d body
-"RTN","C0CE002",10,0)
- QUIT
-"RTN","C0CE002",11,0)
- ;
-"RTN","C0CE002",12,0)
-pre() ;
-"RTN","C0CE002",13,0)
- ;
-"RTN","C0CE002",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE002",15,0)
- ;
-"RTN","C0CE002",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE002",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE002",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE002",19,0)
- s sessionArray("ewd_prePageScript")="TEST2^C0CRICH"
-"RTN","C0CE002",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE002",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE002",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE002",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE002",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE002",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE002",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE002",27,0)
- s sessionArray("ewd_pageName")="ccr"
-"RTN","C0CE002",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE002",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE002",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE002",31,0)
- s Error=$$startSession^%zewdPHP("ccr",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE002",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE002",33,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE002",34,0)
- s headers("Content-type")="text/xml"
-"RTN","C0CE002",35,0)
- d mergeArrayToSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE002",36,0)
- k headers
-"RTN","C0CE002",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE002",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE002",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE002",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE002",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE002",42,0)
- . n errorPage
-"RTN","C0CE002",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE002",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE002",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE002",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE002",47,0)
- s stop=0
-"RTN","C0CE002",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE002",49,0)
- . n nextpage
-"RTN","C0CE002",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE002",51,0)
- . i nextpage'="" d
-"RTN","C0CE002",52,0)
- . . n x
-"RTN","C0CE002",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE002",54,0)
- . . s stop=1
-"RTN","C0CE002",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE002",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE002",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE002",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE002",59,0)
- s ctype="text/html"
-"RTN","C0CE002",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE002",61,0)
- i $d(headers) d
-"RTN","C0CE002",62,0)
- . n lcname,name
-"RTN","C0CE002",63,0)
- . s name=""
-"RTN","C0CE002",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE002",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE002",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE002",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE002",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE002",69,0)
- w $c(13,10)
-"RTN","C0CE002",70,0)
- QUIT 1
-"RTN","C0CE002",71,0)
- ;
-"RTN","C0CE002",72,0)
-body ;
-"RTN","C0CE002",73,0)
- s no=""
-"RTN","C0CE002",74,0)
- i no?1N.N s no=no-1
-"RTN","C0CE002",75,0)
- i no?1AP.ANP d
-"RTN","C0CE002",76,0)
- . s p1=$e(no,1,$l(no)-1)
-"RTN","C0CE002",77,0)
- . s p2=$e(no,$l(no))
-"RTN","C0CE002",78,0)
- . s p2=$c($a(p2)-1)
-"RTN","C0CE002",79,0)
- . s no=p1_p2
-"RTN","C0CE002",80,0)
- s nul=""
-"RTN","C0CE002",81,0)
- s endValue12=""
-"RTN","C0CE002",82,0)
- i endValue12?1N.N s endValue12=endValue12+1
-"RTN","C0CE002",83,0)
- f q:'(($o(^%zewdSession("session",sessid,"CCR",no))'=endValue12)&($o(^%zewdSession("session",sessid,"CCR",no))'=nul)) d
-"RTN","C0CE002",84,0)
- .s no=$o(^%zewdSession("session",sessid,"CCR",no))
-"RTN","C0CE002",85,0)
- .s data=$g(^%zewdSession("session",sessid,"CCR",no))
-"RTN","C0CE002",86,0)
- .w data
-"RTN","C0CE002",87,0)
- .
-"RTN","C0CE002",88,0)
- QUIT
-"RTN","C0CE003")
-0^11^B16186512
-"RTN","C0CE003",1,0)
- ;GT.M version of page ccr2 (patientportal application)
-"RTN","C0CE003",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
-"RTN","C0CE003",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE003",4,0)
- QUIT
-"RTN","C0CE003",5,0)
- ;
-"RTN","C0CE003",6,0)
-run ;
-"RTN","C0CE003",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE003",8,0)
- s ok=$$pre()
-"RTN","C0CE003",9,0)
- i ok d body
-"RTN","C0CE003",10,0)
- QUIT
-"RTN","C0CE003",11,0)
- ;
-"RTN","C0CE003",12,0)
-pre() ;
-"RTN","C0CE003",13,0)
- ;
-"RTN","C0CE003",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE003",15,0)
- ;
-"RTN","C0CE003",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE003",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE003",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE003",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE003",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE003",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE003",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE003",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE003",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE003",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE003",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE003",27,0)
- s sessionArray("ewd_pageName")="ccr2"
-"RTN","C0CE003",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE003",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE003",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE003",31,0)
- s Error=$$startSession^%zewdPHP("ccr2",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE003",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE003",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE003",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE003",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE003",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE003",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE003",38,0)
- . n errorPage
-"RTN","C0CE003",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE003",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE003",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE003",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE003",43,0)
- s stop=0
-"RTN","C0CE003",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE003",45,0)
- . n nextpage
-"RTN","C0CE003",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE003",47,0)
- . i nextpage'="" d
-"RTN","C0CE003",48,0)
- . . n x
-"RTN","C0CE003",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE003",50,0)
- . . s stop=1
-"RTN","C0CE003",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE003",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE003",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE003",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE003",55,0)
- s ctype="text/html"
-"RTN","C0CE003",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE003",57,0)
- i $d(headers) d
-"RTN","C0CE003",58,0)
- . n lcname,name
-"RTN","C0CE003",59,0)
- . s name=""
-"RTN","C0CE003",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE003",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE003",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE003",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE003",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE003",65,0)
- w $c(13,10)
-"RTN","C0CE003",66,0)
- QUIT 1
-"RTN","C0CE003",67,0)
- ;
-"RTN","C0CE003",68,0)
-body ;
-"RTN","C0CE003",69,0)
- w ""_$c(13,10)
-"RTN","C0CE003",70,0)
- w " "_$c(13,10)
-"RTN","C0CE003",71,0)
- w "hello world"_""
-"RTN","C0CE003",72,0)
- w " "_$c(13,10)
-"RTN","C0CE003",73,0)
- w ""_$c(13,10)
-"RTN","C0CE003",74,0)
- QUIT
-"RTN","C0CE004")
-0^6^B14016611
-"RTN","C0CE004",1,0)
- ;GT.M version of page ccr-exe (patientportal application)
-"RTN","C0CE004",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
-"RTN","C0CE004",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE004",4,0)
- QUIT
-"RTN","C0CE004",5,0)
- ;
-"RTN","C0CE004",6,0)
-run ;
-"RTN","C0CE004",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE004",8,0)
- s ok=$$pre()
-"RTN","C0CE004",9,0)
- i ok d body
-"RTN","C0CE004",10,0)
- QUIT
-"RTN","C0CE004",11,0)
- ;
-"RTN","C0CE004",12,0)
-pre() ;
-"RTN","C0CE004",13,0)
- ;
-"RTN","C0CE004",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE004",15,0)
- ;
-"RTN","C0CE004",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE004",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE004",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE004",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE004",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE004",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE004",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE004",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE004",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE004",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE004",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE004",27,0)
- s sessionArray("ewd_pageName")="ccr-exe"
-"RTN","C0CE004",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE004",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE004",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE004",31,0)
- s Error=$$startSession^%zewdPHP("ccr-exe",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE004",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE004",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE004",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE004",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE004",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE004",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE004",38,0)
- . n errorPage
-"RTN","C0CE004",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE004",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE004",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE004",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE004",43,0)
- s stop=0
-"RTN","C0CE004",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE004",45,0)
- . n nextpage
-"RTN","C0CE004",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE004",47,0)
- . i nextpage'="" d
-"RTN","C0CE004",48,0)
- . . n x
-"RTN","C0CE004",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE004",50,0)
- . . s stop=1
-"RTN","C0CE004",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE004",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE004",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE004",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE004",55,0)
- s ctype="text/html"
-"RTN","C0CE004",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE004",57,0)
- i $d(headers) d
-"RTN","C0CE004",58,0)
- . n lcname,name
-"RTN","C0CE004",59,0)
- . s name=""
-"RTN","C0CE004",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE004",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE004",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE004",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE004",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE004",65,0)
- w $c(13,10)
-"RTN","C0CE004",66,0)
- QUIT 1
-"RTN","C0CE004",67,0)
- ;
-"RTN","C0CE004",68,0)
-body ;
-"RTN","C0CE004",69,0)
- d gpltest^C0CRICH("")
-"RTN","C0CE004",70,0)
- QUIT
-"RTN","C0CE005")
-0^12^B80810317
-"RTN","C0CE005",1,0)
- ;GT.M version of page Second (patientportal application)
-"RTN","C0CE005",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 3
-"RTN","C0CE005",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE005",4,0)
- QUIT
-"RTN","C0CE005",5,0)
- ;
-"RTN","C0CE005",6,0)
-run ;
-"RTN","C0CE005",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE005",8,0)
- s ok=$$pre()
-"RTN","C0CE005",9,0)
- i ok d body
-"RTN","C0CE005",10,0)
- QUIT
-"RTN","C0CE005",11,0)
- ;
-"RTN","C0CE005",12,0)
-pre() ;
-"RTN","C0CE005",13,0)
- ;
-"RTN","C0CE005",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE005",15,0)
- ;
-"RTN","C0CE005",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE005",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE005",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE005",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE005",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE005",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE005",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE005",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE005",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE005",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE005",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE005",27,0)
- s sessionArray("ewd_pageName")="Second"
-"RTN","C0CE005",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE005",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE005",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE005",31,0)
- s tokens("First")=$$setNextPageToken^%zewdGTMRuntime("First")
-"RTN","C0CE005",32,0)
- s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
-"RTN","C0CE005",33,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE005",34,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE005",35,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE005",36,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE005",37,0)
- s Error=$$startSession^%zewdPHP("Second",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE005",38,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE005",39,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE005",40,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE005",41,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE005",42,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE005",43,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE005",44,0)
- . n errorPage
-"RTN","C0CE005",45,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE005",46,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE005",47,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE005",48,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE005",49,0)
- s stop=0
-"RTN","C0CE005",50,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE005",51,0)
- . n nextpage
-"RTN","C0CE005",52,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE005",53,0)
- . i nextpage'="" d
-"RTN","C0CE005",54,0)
- . . n x
-"RTN","C0CE005",55,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE005",56,0)
- . . s stop=1
-"RTN","C0CE005",57,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE005",58,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE005",59,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE005",60,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE005",61,0)
- s ctype="text/html"
-"RTN","C0CE005",62,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE005",63,0)
- i $d(headers) d
-"RTN","C0CE005",64,0)
- . n lcname,name
-"RTN","C0CE005",65,0)
- . s name=""
-"RTN","C0CE005",66,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE005",67,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE005",68,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE005",69,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE005",70,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE005",71,0)
- w $c(13,10)
-"RTN","C0CE005",72,0)
- QUIT 1
-"RTN","C0CE005",73,0)
- ;
-"RTN","C0CE005",74,0)
-body ;
-"RTN","C0CE005",75,0)
- w ""_$c(13,10)
-"RTN","C0CE005",76,0)
- w " "_$c(13,10)
-"RTN","C0CE005",77,0)
- w " "_$c(13,10)
-"RTN","C0CE005",78,0)
- w " "_$c(13,10)
-"RTN","C0CE005",80,0)
- w " "_$c(13,10)
-"RTN","C0CE005",81,0)
- w "The second EWD Page"_""
-"RTN","C0CE005",82,0)
- w " "_$c(13,10)
-"RTN","C0CE005",83,0)
- w " "_$c(13,10)
-"RTN","C0CE005",90,0)
- w " "_$c(13,10)
-"RTN","C0CE005",137,0)
- w " "_$c(13,10)
-"RTN","C0CE005",138,0)
- w " "_$c(13,10)
-"RTN","C0CE005",139,0)
- w "
"_$c(13,10)
-"RTN","C0CE005",140,0)
- w "This page is not a ""first"" page"_""
-"RTN","C0CE005",141,0)
- w "
"_$c(13,10)
-"RTN","C0CE005",150,0)
- w " "_$c(13,10)
-"RTN","C0CE005",151,0)
- w "
"_$c(13,10)
-"RTN","C0CE005",152,0)
- w " "_$c(13,10)
-"RTN","C0CE005",153,0)
- w ""_$c(13,10)
-"RTN","C0CE005",154,0)
- QUIT
-"RTN","C0CE006")
-0^7^B77594981
-"RTN","C0CE006",1,0)
- ;GT.M version of page session (patientportal application)
-"RTN","C0CE006",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 3
-"RTN","C0CE006",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE006",4,0)
- QUIT
-"RTN","C0CE006",5,0)
- ;
-"RTN","C0CE006",6,0)
-run ;
-"RTN","C0CE006",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE006",8,0)
- s ok=$$pre()
-"RTN","C0CE006",9,0)
- i ok d body
-"RTN","C0CE006",10,0)
- QUIT
-"RTN","C0CE006",11,0)
- ;
-"RTN","C0CE006",12,0)
-pre() ;
-"RTN","C0CE006",13,0)
- ;
-"RTN","C0CE006",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE006",15,0)
- ;
-"RTN","C0CE006",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE006",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE006",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE006",19,0)
- s sessionArray("ewd_prePageScript")="TEST^RICHEWDTEST"
-"RTN","C0CE006",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE006",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE006",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE006",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE006",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE006",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE006",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE006",27,0)
- s sessionArray("ewd_pageName")="session"
-"RTN","C0CE006",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE006",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE006",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE006",31,0)
- s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
-"RTN","C0CE006",32,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE006",33,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE006",34,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE006",35,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE006",36,0)
- s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE006",37,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE006",38,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE006",39,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE006",40,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE006",41,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE006",42,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE006",43,0)
- . n errorPage
-"RTN","C0CE006",44,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE006",45,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE006",46,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE006",47,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE006",48,0)
- s stop=0
-"RTN","C0CE006",49,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE006",50,0)
- . n nextpage
-"RTN","C0CE006",51,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE006",52,0)
- . i nextpage'="" d
-"RTN","C0CE006",53,0)
- . . n x
-"RTN","C0CE006",54,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE006",55,0)
- . . s stop=1
-"RTN","C0CE006",56,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE006",57,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE006",58,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE006",59,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE006",60,0)
- s ctype="text/html"
-"RTN","C0CE006",61,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE006",62,0)
- i $d(headers) d
-"RTN","C0CE006",63,0)
- . n lcname,name
-"RTN","C0CE006",64,0)
- . s name=""
-"RTN","C0CE006",65,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE006",66,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE006",67,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE006",68,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE006",69,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE006",70,0)
- w $c(13,10)
-"RTN","C0CE006",71,0)
- QUIT 1
-"RTN","C0CE006",72,0)
- ;
-"RTN","C0CE006",73,0)
-body ;
-"RTN","C0CE006",74,0)
- w ""_$c(13,10)
-"RTN","C0CE006",75,0)
- w " "_$c(13,10)
-"RTN","C0CE006",76,0)
- w " "_$c(13,10)
-"RTN","C0CE006",77,0)
- w " "_$c(13,10)
-"RTN","C0CE006",79,0)
- w " "_$c(13,10)
-"RTN","C0CE006",80,0)
- w "EWD Page using Session Variables and a PrePage Script"_""
-"RTN","C0CE006",81,0)
- w " "_$c(13,10)
-"RTN","C0CE006",82,0)
- w " "_$c(13,10)
-"RTN","C0CE006",89,0)
- w " "_$c(13,10)
-"RTN","C0CE006",136,0)
- w " "_$c(13,10)
-"RTN","C0CE006",137,0)
- w " "_$c(13,10)
-"RTN","C0CE006",138,0)
- w "
"_$c(13,10)
-"RTN","C0CE006",139,0)
- w "This page accesses EWD Session Variables"_""
-"RTN","C0CE006",140,0)
- w "
"_$c(13,10)
-"RTN","C0CE006",141,0)
- w "
"_$c(13,10)
-"RTN","C0CE006",142,0)
- w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
-"RTN","C0CE006",143,0)
- w "
-"DATA",70050,5,1,15,0)
-
-"DATA",70050,5,1,16,0)
-
-"DATA",70050,6,0)
-23396^patientportal^ewdajaxerrorredirect
-"DATA",70050,7,0)
-23401^patientportal^ccr
-"DATA",70050,7,1,0)
-^70050.02^5^5^3100301^^^
-"DATA",70050,7,1,1,0)
-
-"DATA",70050,7,1,2,0)
-
-"DATA",70050,7,1,3,0)
-
-"DATA",70050,7,1,4,0)
-
-"DATA",70050,7,1,5,0)
-
-"DATA",70050,8,0)
-23402^patientportal^ccr2
-"DATA",70050,8,1,0)
-^70050.02^6^6^3100301^^^^
-"DATA",70050,8,1,1,0)
-
-"DATA",70050,8,1,2,0)
-
-"DATA",70050,8,1,3,0)
-
-"DATA",70050,8,1,4,0)
-hello world
-"DATA",70050,8,1,5,0)
-
-"DATA",70050,8,1,6,0)
-
-"DATA",70050,9,0)
-23400^patientportal^loginpanel
-"DATA",70050,9,1,0)
-^70050.02^4^4^3100301^^
-"DATA",70050,9,1,1,0)
-
-"DATA",70050,9,1,2,0)
-
-"DATA",70050,9,1,3,0)
-Login Form will go here
-"DATA",70050,9,1,4,0)
-
-"DATA",70050,10,0)
-23403^patientportal^ccr-exe
-"DATA",70050,10,1,0)
-^^2^2^3100301^
-"DATA",70050,10,1,1,0)
-
-"DATA",70050,10,1,2,0)
-
-"DATA",70050,11,0)
-23404^patientportal^Second
-"FIA",70050)
-C0EWD ROUTINE MAP
-"FIA",70050,0)
-^C0E(70050,
-"FIA",70050,0,0)
-70050PI
-"FIA",70050,0,1)
-y^y^f^^n^^y^o^n
-"FIA",70050,0,10)
-
-"FIA",70050,0,11)
-I $$GET1^DIQ(70050,Y_",",.02)="patientportal"
-"FIA",70050,0,"RLRO")
-
-"FIA",70050,70050)
-0
-"FIA",70050,70050.01)
-0
-"FIA",70050,70050.02)
-0
-"IX",70050,70050,"AZEWD",0)
-70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
-"IX",70050,70050,"AZEWD",1)
-D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",2)
-D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",11.1,0)
-^.114IA^3^3
-"IX",70050,70050,"AZEWD",11.1,1,0)
-1^F^70050^.01^^^F
-"IX",70050,70050,"AZEWD",11.1,2,0)
-2^F^70050^.02^^^F
-"IX",70050,70050,"AZEWD",11.1,3,0)
-3^F^70050^.03^^^F
-"IX",70050,70050,"C",0)
-70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
-"IX",70050,70050,"C",1)
-S ^C0E(70050,"C",$E(X,1,60),DA)=""
-"IX",70050,70050,"C",2)
-K ^C0E(70050,"C",$E(X,1,60),DA)
-"IX",70050,70050,"C",2.5)
-K ^C0E(70050,"C")
-"IX",70050,70050,"C",11.1,0)
-^.114IA^1^1
-"IX",70050,70050,"C",11.1,1,0)
-1^F^70050^.03^60^1^F
-"IX",70050,70050,"C",11.1,1,3)
-
-"KRN",.401,1795,-1)
-0^1
-"KRN",.401,1795,0)
-C0CE0 PATIENT PORTAL^3100302.0028^@^70050^^@^3100302
-"KRN",.401,1795,2,0)
-^.4014^1^1
-"KRN",.401,1795,2,1,0)
-70050^.02^EWD APPLICATION^^^^^^^4
-"KRN",.401,1795,2,1,"F")
-patientportakz^patientportal
-"KRN",.401,1795,2,1,"GET")
-S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
-"KRN",.401,1795,2,1,"QCON")
-I DISX(1)="patientportal"
-"KRN",.401,1795,2,1,"T")
-patientportal^patientportal
-"KRN",.401,1795,2,1,"TXT")
-EWD APPLICATION equals patientportal
-"KRN",.401,1795,2,"B",70050,1)
-
-"MBREQ")
-0
-"ORD",6,.401)
-.401;6;;;EDEOUT^DIFROMSO(.401,DA,"",XPDA);FPRE^DIFROMSI(.401,"",XPDA);EPRE^DIFROMSI(.401,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.401,DA,"",XPDA);DEL^DIFROMSK(.401,"",%)
-"ORD",6,.401,0)
-SORT TEMPLATE
-"QUES","XPF1",0)
-Y
-"QUES","XPF1","??")
-^D REP^XPDH
-"QUES","XPF1","A")
-Shall I write over your |FLAG| File
-"QUES","XPF1","B")
-YES
-"QUES","XPF1","M")
-D XPF1^XPDIQ
-"QUES","XPF2",0)
-Y
-"QUES","XPF2","??")
-^D DTA^XPDH
-"QUES","XPF2","A")
-Want my data |FLAG| yours
-"QUES","XPF2","B")
-YES
-"QUES","XPF2","M")
-D XPF2^XPDIQ
-"QUES","XPI1",0)
-YO
-"QUES","XPI1","??")
-^D INHIBIT^XPDH
-"QUES","XPI1","A")
-Want KIDS to INHIBIT LOGONs during the install
-"QUES","XPI1","B")
-NO
-"QUES","XPI1","M")
-D XPI1^XPDIQ
-"QUES","XPM1",0)
-PO^VA(200,:EM
-"QUES","XPM1","??")
-^D MG^XPDH
-"QUES","XPM1","A")
-Enter the Coordinator for Mail Group '|FLAG|'
-"QUES","XPM1","B")
-
-"QUES","XPM1","M")
-D XPM1^XPDIQ
-"QUES","XPO1",0)
-Y
-"QUES","XPO1","??")
-^D MENU^XPDH
-"QUES","XPO1","A")
-Want KIDS to Rebuild Menu Trees Upon Completion of Install
-"QUES","XPO1","B")
-NO
-"QUES","XPO1","M")
-D XPO1^XPDIQ
-"QUES","XPZ1",0)
-Y
-"QUES","XPZ1","??")
-^D OPT^XPDH
-"QUES","XPZ1","A")
-Want to DISABLE Scheduled Options, Menu Options, and Protocols
-"QUES","XPZ1","B")
-NO
-"QUES","XPZ1","M")
-D XPZ1^XPDIQ
-"QUES","XPZ2",0)
-Y
-"QUES","XPZ2","??")
-^D RTN^XPDH
-"QUES","XPZ2","A")
-Want to MOVE routines to other CPUs
-"QUES","XPZ2","B")
-NO
-"QUES","XPZ2","M")
-D XPZ2^XPDIQ
-"RTN")
-13
-"RTN","C0CE000A")
-0^3^B14831539
-"RTN","C0CE000A",1,0)
- ;GT.M version of page ewdAjaxError (patientportal application)
-"RTN","C0CE000A",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
-"RTN","C0CE000A",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000A",4,0)
- QUIT
-"RTN","C0CE000A",5,0)
- ;
-"RTN","C0CE000A",6,0)
-run ;
-"RTN","C0CE000A",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000A",8,0)
- s ok=$$pre()
-"RTN","C0CE000A",9,0)
- i ok d body
-"RTN","C0CE000A",10,0)
- QUIT
-"RTN","C0CE000A",11,0)
- ;
-"RTN","C0CE000A",12,0)
-pre() ;
-"RTN","C0CE000A",13,0)
- ;
-"RTN","C0CE000A",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000A",15,0)
- ;
-"RTN","C0CE000A",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE000A",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0CE000A",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE000A",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE000A",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE000A",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE000A",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE000A",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE000A",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE000A",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE000A",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE000A",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxError"
-"RTN","C0CE000A",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE000A",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE000A",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE000A",31,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE000A",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE000A",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE000A",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE000A",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE000A",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE000A",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE000A",38,0)
- . n errorPage
-"RTN","C0CE000A",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE000A",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE000A",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE000A",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE000A",43,0)
- s stop=0
-"RTN","C0CE000A",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE000A",45,0)
- . n nextpage
-"RTN","C0CE000A",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE000A",47,0)
- . i nextpage'="" d
-"RTN","C0CE000A",48,0)
- . . n x
-"RTN","C0CE000A",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE000A",50,0)
- . . s stop=1
-"RTN","C0CE000A",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE000A",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000A",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000A",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000A",55,0)
- s ctype="text/html"
-"RTN","C0CE000A",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE000A",57,0)
- i $d(headers) d
-"RTN","C0CE000A",58,0)
- . n lcname,name
-"RTN","C0CE000A",59,0)
- . s name=""
-"RTN","C0CE000A",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE000A",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE000A",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE000A",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE000A",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE000A",65,0)
- w $c(13,10)
-"RTN","C0CE000A",66,0)
- QUIT 1
-"RTN","C0CE000A",67,0)
- ;
-"RTN","C0CE000A",68,0)
-body ;
-"RTN","C0CE000A",69,0)
- w ""_$c(13,10)
-"RTN","C0CE000A",70,0)
- w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
-"RTN","C0CE000A",71,0)
- w ""_$c(13,10)
-"RTN","C0CE000A",72,0)
- QUIT
-"RTN","C0CE000E")
-0^8^B27501668
-"RTN","C0CE000E",1,0)
- ;GT.M version of page ewdError (patientportal application)
-"RTN","C0CE000E",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 4
-"RTN","C0CE000E",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000E",4,0)
- QUIT
-"RTN","C0CE000E",5,0)
- ;
-"RTN","C0CE000E",6,0)
-run ;
-"RTN","C0CE000E",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000E",8,0)
- s ok=$$pre()
-"RTN","C0CE000E",9,0)
- i ok d body
-"RTN","C0CE000E",10,0)
- QUIT
-"RTN","C0CE000E",11,0)
- ;
-"RTN","C0CE000E",12,0)
-pre() ;
-"RTN","C0CE000E",13,0)
- ;
-"RTN","C0CE000E",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000E",15,0)
- ;
-"RTN","C0CE000E",16,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000E",17,0)
- w "Content-type: text/html"_$c(13,10,13,10)
-"RTN","C0CE000E",18,0)
- QUIT 1
-"RTN","C0CE000E",19,0)
- ;
-"RTN","C0CE000E",20,0)
-body ;
-"RTN","C0CE000E",21,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",22,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",23,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",24,0)
- w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
-"RTN","C0CE000E",25,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",43,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",44,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",45,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",46,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",47,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",48,0)
- w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
-"RTN","C0CE000E",49,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",50,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",51,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",52,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",53,0)
- w "
An Error has occurred
"_$c(13,10)
-"RTN","C0CE000E",54,0)
- w " "_$c(13,10)
-"RTN","C0CE000E",55,0)
- w "
"_$g(%KEY("error"))_"
"_$c(13,10)
-"RTN","C0CE000E",56,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",57,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",58,0)
- w "
"_$c(13,10)
-"RTN","C0CE000E",59,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",60,0)
- w " "_$c(13,10)
-"RTN","C0CE000E",63,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",64,0)
- w ""_$c(13,10)
-"RTN","C0CE000E",65,0)
- QUIT
-"RTN","C0CE000F")
-0^4^B32715806
-"RTN","C0CE000F",1,0)
- ;GT.M version of page ewdAjaxErrorRedirect (patientportal application)
-"RTN","C0CE000F",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
-"RTN","C0CE000F",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000F",4,0)
- QUIT
-"RTN","C0CE000F",5,0)
- ;
-"RTN","C0CE000F",6,0)
-run ;
-"RTN","C0CE000F",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000F",8,0)
- s ok=$$pre()
-"RTN","C0CE000F",9,0)
- i ok d body
-"RTN","C0CE000F",10,0)
- QUIT
-"RTN","C0CE000F",11,0)
- ;
-"RTN","C0CE000F",12,0)
-pre() ;
-"RTN","C0CE000F",13,0)
- ;
-"RTN","C0CE000F",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000F",15,0)
- ;
-"RTN","C0CE000F",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE000F",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE000F",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE000F",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE000F",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE000F",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE000F",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE000F",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE000F",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE000F",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE000F",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE000F",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
-"RTN","C0CE000F",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE000F",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE000F",30,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0CE000F",31,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0CE000F",32,0)
- s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
-"RTN","C0CE000F",33,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE000F",34,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE000F",35,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE000F",36,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE000F",37,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE000F",38,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE000F",39,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE000F",40,0)
- . n errorPage
-"RTN","C0CE000F",41,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE000F",42,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE000F",43,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE000F",44,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE000F",45,0)
- s stop=0
-"RTN","C0CE000F",46,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE000F",47,0)
- . n nextpage
-"RTN","C0CE000F",48,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE000F",49,0)
- . i nextpage'="" d
-"RTN","C0CE000F",50,0)
- . . n x
-"RTN","C0CE000F",51,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE000F",52,0)
- . . s stop=1
-"RTN","C0CE000F",53,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE000F",54,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000F",55,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000F",56,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000F",57,0)
- s ctype="text/html"
-"RTN","C0CE000F",58,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE000F",59,0)
- i $d(headers) d
-"RTN","C0CE000F",60,0)
- . n lcname,name
-"RTN","C0CE000F",61,0)
- . s name=""
-"RTN","C0CE000F",62,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE000F",63,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE000F",64,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE000F",65,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE000F",66,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE000F",67,0)
- w $c(13,10)
-"RTN","C0CE000F",68,0)
- QUIT 1
-"RTN","C0CE000F",69,0)
- ;
-"RTN","C0CE000F",70,0)
-body ;
-"RTN","C0CE000F",71,0)
- if ($g(Error)="") d
-"RTN","C0CE000F",72,0)
- .w " "_$c(13,10)
-"RTN","C0CE000F",73,0)
- .w "
"_$c(13,10)
-"RTN","C0CE000F",74,0)
- .w "
"_$c(13,10)
-"RTN","C0CE000F",75,0)
- .w " "_$c(13,10)
-"RTN","C0CE000F",76,0)
- .
-"RTN","C0CE000F",77,0)
- w ""_$c(13,10)
-"RTN","C0CE000F",78,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0CE000F",79,0)
- s id=""
-"RTN","C0CE000F",80,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0CE000F",81,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE000F",82,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0CE000F",83,0)
- s id=""
-"RTN","C0CE000F",84,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0CE000F",85,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE000F",86,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0CE000F",87,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0CE000F",88,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0CE000F",89,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0CE000F",90,0)
- w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
-"RTN","C0CE000F",91,0)
- w ""_$c(13,10)
-"RTN","C0CE000F",92,0)
- QUIT
-"RTN","C0CE000R")
-0^9^B66701996
-"RTN","C0CE000R",1,0)
- ;GT.M version of page ewdErrorRedirect (patientportal application)
-"RTN","C0CE000R",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
-"RTN","C0CE000R",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE000R",4,0)
- QUIT
-"RTN","C0CE000R",5,0)
- ;
-"RTN","C0CE000R",6,0)
-run ;
-"RTN","C0CE000R",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE000R",8,0)
- s ok=$$pre()
-"RTN","C0CE000R",9,0)
- i ok d body
-"RTN","C0CE000R",10,0)
- QUIT
-"RTN","C0CE000R",11,0)
- ;
-"RTN","C0CE000R",12,0)
-pre() ;
-"RTN","C0CE000R",13,0)
- ;
-"RTN","C0CE000R",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE000R",15,0)
- ;
-"RTN","C0CE000R",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE000R",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE000R",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE000R",19,0)
- s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
-"RTN","C0CE000R",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE000R",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE000R",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE000R",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE000R",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE000R",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE000R",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE000R",27,0)
- s sessionArray("ewd_pageName")="ewdErrorRedirect"
-"RTN","C0CE000R",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE000R",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE000R",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE000R",31,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE000R",32,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE000R",33,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE000R",34,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE000R",35,0)
- s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE000R",36,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE000R",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE000R",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE000R",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE000R",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE000R",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE000R",42,0)
- . n errorPage
-"RTN","C0CE000R",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE000R",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE000R",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE000R",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE000R",47,0)
- s stop=0
-"RTN","C0CE000R",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE000R",49,0)
- . n nextpage
-"RTN","C0CE000R",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE000R",51,0)
- . i nextpage'="" d
-"RTN","C0CE000R",52,0)
- . . n x
-"RTN","C0CE000R",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE000R",54,0)
- . . s stop=1
-"RTN","C0CE000R",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE000R",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000R",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE000R",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE000R",59,0)
- s ctype="text/html"
-"RTN","C0CE000R",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE000R",61,0)
- i $d(headers) d
-"RTN","C0CE000R",62,0)
- . n lcname,name
-"RTN","C0CE000R",63,0)
- . s name=""
-"RTN","C0CE000R",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE000R",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE000R",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE000R",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE000R",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE000R",69,0)
- w $c(13,10)
-"RTN","C0CE000R",70,0)
- QUIT 1
-"RTN","C0CE000R",71,0)
- ;
-"RTN","C0CE000R",72,0)
-body ;
-"RTN","C0CE000R",73,0)
- w ""_$c(13,10)
-"RTN","C0CE000R",74,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",75,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",76,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",78,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",79,0)
- w "Ajax Error Redirect page"_""
-"RTN","C0CE000R",80,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",81,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",82,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",83,0)
- w "Please wait...."_""
-"RTN","C0CE000R",84,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",85,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",86,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",133,0)
- w " "_$c(13,10)
-"RTN","C0CE000R",134,0)
- w ""_$c(13,10)
-"RTN","C0CE000R",135,0)
- QUIT
-"RTN","C0CE001I")
-0^2^B97883042
-"RTN","C0CE001I",1,0)
- ;GT.M version of page index (patientportal application)
-"RTN","C0CE001I",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
-"RTN","C0CE001I",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE001I",4,0)
- QUIT
-"RTN","C0CE001I",5,0)
- ;
-"RTN","C0CE001I",6,0)
-run ;
-"RTN","C0CE001I",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE001I",8,0)
- s ok=$$pre()
-"RTN","C0CE001I",9,0)
- i ok d body
-"RTN","C0CE001I",10,0)
- QUIT
-"RTN","C0CE001I",11,0)
- ;
-"RTN","C0CE001I",12,0)
-pre() ;
-"RTN","C0CE001I",13,0)
- ;
-"RTN","C0CE001I",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE001I",15,0)
- ;
-"RTN","C0CE001I",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE001I",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0CE001I",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE001I",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE001I",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE001I",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE001I",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE001I",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE001I",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE001I",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE001I",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE001I",27,0)
- s sessionArray("ewd_pageName")="index"
-"RTN","C0CE001I",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE001I",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE001I",30,0)
- s sessionArray("ewd_header","Expires")=0
-"RTN","C0CE001I",31,0)
- s sessionArray("ewd_header","Cache-Control")="no-cache"
-"RTN","C0CE001I",32,0)
- s sessionArray("ewd_header","Pragma")="no-cache"
-"RTN","C0CE001I",33,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE001I",34,0)
- s tokens("ccr")=$$setNextPageToken^%zewdGTMRuntime("ccr")
-"RTN","C0CE001I",35,0)
- s tokens("ccr2")=$$setNextPageToken^%zewdGTMRuntime("ccr2")
-"RTN","C0CE001I",36,0)
- s tokens("ccrexe")=$$setNextPageToken^%zewdGTMRuntime("ccrexe")
-"RTN","C0CE001I",37,0)
- s tokens("loginPanel")=$$setNextPageToken^%zewdGTMRuntime("loginPanel")
-"RTN","C0CE001I",38,0)
- s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
-"RTN","C0CE001I",39,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE001I",40,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE001I",41,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE001I",42,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE001I",43,0)
- s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE001I",44,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE001I",45,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE001I",46,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE001I",47,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE001I",48,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE001I",49,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE001I",50,0)
- . n errorPage
-"RTN","C0CE001I",51,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE001I",52,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE001I",53,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE001I",54,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE001I",55,0)
- s stop=0
-"RTN","C0CE001I",56,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE001I",57,0)
- . n nextpage
-"RTN","C0CE001I",58,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE001I",59,0)
- . i nextpage'="" d
-"RTN","C0CE001I",60,0)
- . . n x
-"RTN","C0CE001I",61,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE001I",62,0)
- . . s stop=1
-"RTN","C0CE001I",63,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE001I",64,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001I",65,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001I",66,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE001I",67,0)
- s ctype="text/html"
-"RTN","C0CE001I",68,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE001I",69,0)
- i $d(headers) d
-"RTN","C0CE001I",70,0)
- . n lcname,name
-"RTN","C0CE001I",71,0)
- . s name=""
-"RTN","C0CE001I",72,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE001I",73,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE001I",74,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE001I",75,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE001I",76,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE001I",77,0)
- w $c(13,10)
-"RTN","C0CE001I",78,0)
- QUIT 1
-"RTN","C0CE001I",79,0)
- ;
-"RTN","C0CE001I",80,0)
-body ;
-"RTN","C0CE001I",81,0)
- w ""_$c(13,10)
-"RTN","C0CE001I",82,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",83,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",84,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",86,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",87,0)
- w "The start EWD Page"_""
-"RTN","C0CE001I",88,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",89,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",97,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",144,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",145,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",146,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",147,0)
- w "This page is the first page in this application"_""
-"RTN","C0CE001I",148,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",149,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",150,0)
- w "Login"_""
-"RTN","C0CE001I",151,0)
- w "
"_$c(13,10)
-"RTN","C0CE001I",172,0)
- w " "_$c(13,10)
-"RTN","C0CE001I",173,0)
- w ""_$c(13,10)
-"RTN","C0CE001I",174,0)
- QUIT
-"RTN","C0CE001L")
-0^10^B51144421
-"RTN","C0CE001L",1,0)
- ;GT.M version of page loginPanel (patientportal application)
-"RTN","C0CE001L",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:45;;;;;Build 4
-"RTN","C0CE001L",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE001L",4,0)
- QUIT
-"RTN","C0CE001L",5,0)
- ;
-"RTN","C0CE001L",6,0)
-run ;
-"RTN","C0CE001L",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE001L",8,0)
- s ok=$$pre()
-"RTN","C0CE001L",9,0)
- i ok d body
-"RTN","C0CE001L",10,0)
- QUIT
-"RTN","C0CE001L",11,0)
- ;
-"RTN","C0CE001L",12,0)
-pre() ;
-"RTN","C0CE001L",13,0)
- ;
-"RTN","C0CE001L",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE001L",15,0)
- ;
-"RTN","C0CE001L",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE001L",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE001L",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE001L",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE001L",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE001L",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE001L",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE001L",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE001L",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE001L",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE001L",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE001L",27,0)
- s sessionArray("ewd_pageName")="loginPanel"
-"RTN","C0CE001L",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE001L",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE001L",30,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0CE001L",31,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0CE001L",32,0)
- s Error=$$startSession^%zewdPHP("loginPanel",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE001L",33,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE001L",34,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE001L",35,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE001L",36,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE001L",37,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE001L",38,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE001L",39,0)
- . n errorPage
-"RTN","C0CE001L",40,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE001L",41,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE001L",42,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE001L",43,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE001L",44,0)
- s stop=0
-"RTN","C0CE001L",45,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE001L",46,0)
- . n nextpage
-"RTN","C0CE001L",47,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE001L",48,0)
- . i nextpage'="" d
-"RTN","C0CE001L",49,0)
- . . n x
-"RTN","C0CE001L",50,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE001L",51,0)
- . . s stop=1
-"RTN","C0CE001L",52,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE001L",53,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001L",54,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE001L",55,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE001L",56,0)
- s ctype="text/html"
-"RTN","C0CE001L",57,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE001L",58,0)
- i $d(headers) d
-"RTN","C0CE001L",59,0)
- . n lcname,name
-"RTN","C0CE001L",60,0)
- . s name=""
-"RTN","C0CE001L",61,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE001L",62,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE001L",63,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE001L",64,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE001L",65,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE001L",66,0)
- w $c(13,10)
-"RTN","C0CE001L",67,0)
- QUIT 1
-"RTN","C0CE001L",68,0)
- ;
-"RTN","C0CE001L",69,0)
-body ;
-"RTN","C0CE001L",70,0)
- if ($g(Error)="") d
-"RTN","C0CE001L",71,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",72,0)
- .w "EWD.page.yuiResourcePath = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
-"RTN","C0CE001L",73,0)
- .w "if (EWD.page.yuiResourcePath == '') {"_""
-"RTN","C0CE001L",74,0)
- .w " alert('Unable to determine path to YUI resource file. Did you run d install^%zewdYUIConf()?') ;"_""
-"RTN","C0CE001L",75,0)
- .w "}"_""
-"RTN","C0CE001L",76,0)
- .w "EWD.page.loadResource("""_$$getSessionValue^%zewdAPI("yui.resourceLoaderPath",sessid)_$$getSessionValue^%zewdAPI("yui.resourceLoader",sessid)_""",""js"") ;"_""
-"RTN","C0CE001L",77,0)
- .w "if (!EWD.yui) alert('YUI Javascript resource file ewdYUIResources.js was not found in the web server root path');"_""
-"RTN","C0CE001L",78,0)
- .w "if (!EWD.yui.build) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You must be using build 790');"_""
-"RTN","C0CE001L",79,0)
- .w "if (EWD.yui.build != 790) alert('YUI Javascript resource file ewdYUIResources.js is out of date. You are using build ' + EWD.yui.build + ' but you should be using build 790');"_""
-"RTN","C0CE001L",80,0)
- .w "EWD.yui.version = """_$$getSessionValue^%zewdAPI("yui.resourcePath",sessid)_""" ;"_""
-"RTN","C0CE001L",81,0)
- .w "EWD.yui.resourceLoader.Dialog() ;"_""
-"RTN","C0CE001L",82,0)
- .w "document.getElementsByTagName('body')[0].className = 'yui-skin-sam' ;"_""
-"RTN","C0CE001L",83,0)
- .w "var fReturnloginPanel7=function() {"_""
-"RTN","C0CE001L",84,0)
- .w "EWD.yui.widgetIndex[""yuiDialogRegloginPanel7""]={widgetName:""loginPanel7"",tagId:""yuiDialogDivloginPanel7""};"_""
-"RTN","C0CE001L",85,0)
- .w "EWD.yui.moveDialogToBody('yuiDialogDivloginPanel7');"_""
-"RTN","C0CE001L",86,0)
- .w "EWD.yui.widget.loginPanel7=new YAHOO.widget.Dialog(""yuiDialogDivloginPanel7"",{iframe:true,width:""270px"",x:150,y:100});"_""
-"RTN","C0CE001L",87,0)
- .w "EWD.yui.widget.loginPanel7.render();"_""
-"RTN","C0CE001L",88,0)
- .w "};"_""
-"RTN","C0CE001L",89,0)
- .w "YAHOO.util.Event.onAvailable(""yuiDialogDivloginPanel7"",fReturnloginPanel7);"_""
-"RTN","C0CE001L",90,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",97,0)
- .w "Login Form will go here"_""
-"RTN","C0CE001L",98,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",99,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",100,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",101,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",102,0)
- .w "
"_$c(13,10)
-"RTN","C0CE001L",103,0)
- .
-"RTN","C0CE001L",104,0)
- w ""_$c(13,10)
-"RTN","C0CE001L",105,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0CE001L",106,0)
- s id=""
-"RTN","C0CE001L",107,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0CE001L",108,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE001L",109,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0CE001L",110,0)
- s id=""
-"RTN","C0CE001L",111,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0CE001L",112,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0CE001L",113,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0CE001L",114,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0CE001L",115,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0CE001L",116,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0CE001L",117,0)
- w " }"_""
-"RTN","C0CE001L",118,0)
- w ""_$c(13,10)
-"RTN","C0CE001L",119,0)
- QUIT
-"RTN","C0CE002")
-0^5^B19002031
-"RTN","C0CE002",1,0)
- ;GT.M version of page ccr (patientportal application)
-"RTN","C0CE002",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
-"RTN","C0CE002",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE002",4,0)
- QUIT
-"RTN","C0CE002",5,0)
- ;
-"RTN","C0CE002",6,0)
-run ;
-"RTN","C0CE002",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE002",8,0)
- s ok=$$pre()
-"RTN","C0CE002",9,0)
- i ok d body
-"RTN","C0CE002",10,0)
- QUIT
-"RTN","C0CE002",11,0)
- ;
-"RTN","C0CE002",12,0)
-pre() ;
-"RTN","C0CE002",13,0)
- ;
-"RTN","C0CE002",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE002",15,0)
- ;
-"RTN","C0CE002",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE002",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE002",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE002",19,0)
- s sessionArray("ewd_prePageScript")="TEST2^C0CRICH"
-"RTN","C0CE002",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE002",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE002",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE002",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE002",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE002",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE002",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE002",27,0)
- s sessionArray("ewd_pageName")="ccr"
-"RTN","C0CE002",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE002",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE002",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE002",31,0)
- s Error=$$startSession^%zewdPHP("ccr",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE002",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE002",33,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE002",34,0)
- s headers("Content-type")="text/xml"
-"RTN","C0CE002",35,0)
- d mergeArrayToSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE002",36,0)
- k headers
-"RTN","C0CE002",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE002",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE002",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE002",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE002",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE002",42,0)
- . n errorPage
-"RTN","C0CE002",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE002",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE002",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE002",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE002",47,0)
- s stop=0
-"RTN","C0CE002",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE002",49,0)
- . n nextpage
-"RTN","C0CE002",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE002",51,0)
- . i nextpage'="" d
-"RTN","C0CE002",52,0)
- . . n x
-"RTN","C0CE002",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE002",54,0)
- . . s stop=1
-"RTN","C0CE002",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE002",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE002",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE002",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE002",59,0)
- s ctype="text/html"
-"RTN","C0CE002",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE002",61,0)
- i $d(headers) d
-"RTN","C0CE002",62,0)
- . n lcname,name
-"RTN","C0CE002",63,0)
- . s name=""
-"RTN","C0CE002",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE002",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE002",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE002",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE002",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE002",69,0)
- w $c(13,10)
-"RTN","C0CE002",70,0)
- QUIT 1
-"RTN","C0CE002",71,0)
- ;
-"RTN","C0CE002",72,0)
-body ;
-"RTN","C0CE002",73,0)
- s no=""
-"RTN","C0CE002",74,0)
- i no?1N.N s no=no-1
-"RTN","C0CE002",75,0)
- i no?1AP.ANP d
-"RTN","C0CE002",76,0)
- . s p1=$e(no,1,$l(no)-1)
-"RTN","C0CE002",77,0)
- . s p2=$e(no,$l(no))
-"RTN","C0CE002",78,0)
- . s p2=$c($a(p2)-1)
-"RTN","C0CE002",79,0)
- . s no=p1_p2
-"RTN","C0CE002",80,0)
- s nul=""
-"RTN","C0CE002",81,0)
- s endValue12=""
-"RTN","C0CE002",82,0)
- i endValue12?1N.N s endValue12=endValue12+1
-"RTN","C0CE002",83,0)
- f q:'(($o(^%zewdSession("session",sessid,"CCR",no))'=endValue12)&($o(^%zewdSession("session",sessid,"CCR",no))'=nul)) d
-"RTN","C0CE002",84,0)
- .s no=$o(^%zewdSession("session",sessid,"CCR",no))
-"RTN","C0CE002",85,0)
- .s data=$g(^%zewdSession("session",sessid,"CCR",no))
-"RTN","C0CE002",86,0)
- .w data
-"RTN","C0CE002",87,0)
- .
-"RTN","C0CE002",88,0)
- QUIT
-"RTN","C0CE003")
-0^11^B16186512
-"RTN","C0CE003",1,0)
- ;GT.M version of page ccr2 (patientportal application)
-"RTN","C0CE003",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
-"RTN","C0CE003",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE003",4,0)
- QUIT
-"RTN","C0CE003",5,0)
- ;
-"RTN","C0CE003",6,0)
-run ;
-"RTN","C0CE003",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE003",8,0)
- s ok=$$pre()
-"RTN","C0CE003",9,0)
- i ok d body
-"RTN","C0CE003",10,0)
- QUIT
-"RTN","C0CE003",11,0)
- ;
-"RTN","C0CE003",12,0)
-pre() ;
-"RTN","C0CE003",13,0)
- ;
-"RTN","C0CE003",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE003",15,0)
- ;
-"RTN","C0CE003",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE003",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE003",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE003",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE003",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE003",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE003",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE003",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE003",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE003",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE003",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE003",27,0)
- s sessionArray("ewd_pageName")="ccr2"
-"RTN","C0CE003",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE003",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE003",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE003",31,0)
- s Error=$$startSession^%zewdPHP("ccr2",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE003",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE003",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE003",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE003",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE003",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE003",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE003",38,0)
- . n errorPage
-"RTN","C0CE003",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE003",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE003",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE003",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE003",43,0)
- s stop=0
-"RTN","C0CE003",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE003",45,0)
- . n nextpage
-"RTN","C0CE003",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE003",47,0)
- . i nextpage'="" d
-"RTN","C0CE003",48,0)
- . . n x
-"RTN","C0CE003",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE003",50,0)
- . . s stop=1
-"RTN","C0CE003",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE003",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE003",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE003",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE003",55,0)
- s ctype="text/html"
-"RTN","C0CE003",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE003",57,0)
- i $d(headers) d
-"RTN","C0CE003",58,0)
- . n lcname,name
-"RTN","C0CE003",59,0)
- . s name=""
-"RTN","C0CE003",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE003",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE003",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE003",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE003",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE003",65,0)
- w $c(13,10)
-"RTN","C0CE003",66,0)
- QUIT 1
-"RTN","C0CE003",67,0)
- ;
-"RTN","C0CE003",68,0)
-body ;
-"RTN","C0CE003",69,0)
- w ""_$c(13,10)
-"RTN","C0CE003",70,0)
- w " "_$c(13,10)
-"RTN","C0CE003",71,0)
- w "hello world"_""
-"RTN","C0CE003",72,0)
- w " "_$c(13,10)
-"RTN","C0CE003",73,0)
- w ""_$c(13,10)
-"RTN","C0CE003",74,0)
- QUIT
-"RTN","C0CE004")
-0^6^B14016611
-"RTN","C0CE004",1,0)
- ;GT.M version of page ccr-exe (patientportal application)
-"RTN","C0CE004",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
-"RTN","C0CE004",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE004",4,0)
- QUIT
-"RTN","C0CE004",5,0)
- ;
-"RTN","C0CE004",6,0)
-run ;
-"RTN","C0CE004",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE004",8,0)
- s ok=$$pre()
-"RTN","C0CE004",9,0)
- i ok d body
-"RTN","C0CE004",10,0)
- QUIT
-"RTN","C0CE004",11,0)
- ;
-"RTN","C0CE004",12,0)
-pre() ;
-"RTN","C0CE004",13,0)
- ;
-"RTN","C0CE004",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE004",15,0)
- ;
-"RTN","C0CE004",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE004",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE004",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE004",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE004",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE004",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE004",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE004",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE004",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE004",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE004",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE004",27,0)
- s sessionArray("ewd_pageName")="ccr-exe"
-"RTN","C0CE004",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE004",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE004",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE004",31,0)
- s Error=$$startSession^%zewdPHP("ccr-exe",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE004",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE004",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE004",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE004",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE004",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE004",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE004",38,0)
- . n errorPage
-"RTN","C0CE004",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE004",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE004",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE004",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE004",43,0)
- s stop=0
-"RTN","C0CE004",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE004",45,0)
- . n nextpage
-"RTN","C0CE004",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE004",47,0)
- . i nextpage'="" d
-"RTN","C0CE004",48,0)
- . . n x
-"RTN","C0CE004",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE004",50,0)
- . . s stop=1
-"RTN","C0CE004",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE004",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE004",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE004",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE004",55,0)
- s ctype="text/html"
-"RTN","C0CE004",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE004",57,0)
- i $d(headers) d
-"RTN","C0CE004",58,0)
- . n lcname,name
-"RTN","C0CE004",59,0)
- . s name=""
-"RTN","C0CE004",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE004",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE004",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE004",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE004",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE004",65,0)
- w $c(13,10)
-"RTN","C0CE004",66,0)
- QUIT 1
-"RTN","C0CE004",67,0)
- ;
-"RTN","C0CE004",68,0)
-body ;
-"RTN","C0CE004",69,0)
- d gpltest^C0CRICH("")
-"RTN","C0CE004",70,0)
- QUIT
-"RTN","C0CE005")
-0^12^B80810317
-"RTN","C0CE005",1,0)
- ;GT.M version of page Second (patientportal application)
-"RTN","C0CE005",2,0)
- ;Compiled on Mon, 01 Mar 2010 17:10:44;;;;;Build 4
-"RTN","C0CE005",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE005",4,0)
- QUIT
-"RTN","C0CE005",5,0)
- ;
-"RTN","C0CE005",6,0)
-run ;
-"RTN","C0CE005",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE005",8,0)
- s ok=$$pre()
-"RTN","C0CE005",9,0)
- i ok d body
-"RTN","C0CE005",10,0)
- QUIT
-"RTN","C0CE005",11,0)
- ;
-"RTN","C0CE005",12,0)
-pre() ;
-"RTN","C0CE005",13,0)
- ;
-"RTN","C0CE005",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE005",15,0)
- ;
-"RTN","C0CE005",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE005",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE005",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE005",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0CE005",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE005",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE005",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE005",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE005",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE005",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE005",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE005",27,0)
- s sessionArray("ewd_pageName")="Second"
-"RTN","C0CE005",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE005",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE005",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE005",31,0)
- s tokens("First")=$$setNextPageToken^%zewdGTMRuntime("First")
-"RTN","C0CE005",32,0)
- s tokens("session")=$$setNextPageToken^%zewdGTMRuntime("session")
-"RTN","C0CE005",33,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE005",34,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE005",35,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE005",36,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE005",37,0)
- s Error=$$startSession^%zewdPHP("Second",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE005",38,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE005",39,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE005",40,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE005",41,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE005",42,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE005",43,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE005",44,0)
- . n errorPage
-"RTN","C0CE005",45,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE005",46,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE005",47,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE005",48,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE005",49,0)
- s stop=0
-"RTN","C0CE005",50,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE005",51,0)
- . n nextpage
-"RTN","C0CE005",52,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE005",53,0)
- . i nextpage'="" d
-"RTN","C0CE005",54,0)
- . . n x
-"RTN","C0CE005",55,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE005",56,0)
- . . s stop=1
-"RTN","C0CE005",57,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE005",58,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE005",59,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE005",60,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE005",61,0)
- s ctype="text/html"
-"RTN","C0CE005",62,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE005",63,0)
- i $d(headers) d
-"RTN","C0CE005",64,0)
- . n lcname,name
-"RTN","C0CE005",65,0)
- . s name=""
-"RTN","C0CE005",66,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE005",67,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE005",68,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE005",69,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE005",70,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE005",71,0)
- w $c(13,10)
-"RTN","C0CE005",72,0)
- QUIT 1
-"RTN","C0CE005",73,0)
- ;
-"RTN","C0CE005",74,0)
-body ;
-"RTN","C0CE005",75,0)
- w ""_$c(13,10)
-"RTN","C0CE005",76,0)
- w " "_$c(13,10)
-"RTN","C0CE005",77,0)
- w " "_$c(13,10)
-"RTN","C0CE005",78,0)
- w " "_$c(13,10)
-"RTN","C0CE005",80,0)
- w " "_$c(13,10)
-"RTN","C0CE005",81,0)
- w "The second EWD Page"_""
-"RTN","C0CE005",82,0)
- w " "_$c(13,10)
-"RTN","C0CE005",83,0)
- w " "_$c(13,10)
-"RTN","C0CE005",90,0)
- w " "_$c(13,10)
-"RTN","C0CE005",137,0)
- w " "_$c(13,10)
-"RTN","C0CE005",138,0)
- w " "_$c(13,10)
-"RTN","C0CE005",139,0)
- w "
"_$c(13,10)
-"RTN","C0CE005",140,0)
- w "This page is not a ""first"" page"_""
-"RTN","C0CE005",141,0)
- w "
"_$c(13,10)
-"RTN","C0CE005",150,0)
- w " "_$c(13,10)
-"RTN","C0CE005",151,0)
- w "
"_$c(13,10)
-"RTN","C0CE005",152,0)
- w " "_$c(13,10)
-"RTN","C0CE005",153,0)
- w ""_$c(13,10)
-"RTN","C0CE005",154,0)
- QUIT
-"RTN","C0CE006")
-0^7^B77594981
-"RTN","C0CE006",1,0)
- ;GT.M version of page session (patientportal application)
-"RTN","C0CE006",2,0)
- ;Compiled on Sun, 28 Feb 2010 21:40:03;;;;;Build 4
-"RTN","C0CE006",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0CE006",4,0)
- QUIT
-"RTN","C0CE006",5,0)
- ;
-"RTN","C0CE006",6,0)
-run ;
-"RTN","C0CE006",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0CE006",8,0)
- s ok=$$pre()
-"RTN","C0CE006",9,0)
- i ok d body
-"RTN","C0CE006",10,0)
- QUIT
-"RTN","C0CE006",11,0)
- ;
-"RTN","C0CE006",12,0)
-pre() ;
-"RTN","C0CE006",13,0)
- ;
-"RTN","C0CE006",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0CE006",15,0)
- ;
-"RTN","C0CE006",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0CE006",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0CE006",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0CE006",19,0)
- s sessionArray("ewd_prePageScript")="TEST^RICHEWDTEST"
-"RTN","C0CE006",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0CE006",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0CE006",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0CE006",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0CE006",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0CE006",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0CE006",26,0)
- s sessionArray("ewd_appName")="patientportal"
-"RTN","C0CE006",27,0)
- s sessionArray("ewd_pageName")="session"
-"RTN","C0CE006",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0CE006",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0CE006",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0CE006",31,0)
- s tokens("login")=$$setNextPageToken^%zewdGTMRuntime("login")
-"RTN","C0CE006",32,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0CE006",33,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0CE006",34,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0CE006",35,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0CE006",36,0)
- s Error=$$startSession^%zewdPHP("session",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0CE006",37,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0CE006",38,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0CE006",39,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0CE006",40,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0CE006",41,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0CE006",42,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0CE006",43,0)
- . n errorPage
-"RTN","C0CE006",44,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0CE006",45,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0CE006",46,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0CE006",47,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0CE006",48,0)
- s stop=0
-"RTN","C0CE006",49,0)
- i Error="" d i stop QUIT 0
-"RTN","C0CE006",50,0)
- . n nextpage
-"RTN","C0CE006",51,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0CE006",52,0)
- . i nextpage'="" d
-"RTN","C0CE006",53,0)
- . . n x
-"RTN","C0CE006",54,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0CE006",55,0)
- . . s stop=1
-"RTN","C0CE006",56,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0CE006",57,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE006",58,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0CE006",59,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0CE006",60,0)
- s ctype="text/html"
-"RTN","C0CE006",61,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0CE006",62,0)
- i $d(headers) d
-"RTN","C0CE006",63,0)
- . n lcname,name
-"RTN","C0CE006",64,0)
- . s name=""
-"RTN","C0CE006",65,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0CE006",66,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0CE006",67,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0CE006",68,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0CE006",69,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0CE006",70,0)
- w $c(13,10)
-"RTN","C0CE006",71,0)
- QUIT 1
-"RTN","C0CE006",72,0)
- ;
-"RTN","C0CE006",73,0)
-body ;
-"RTN","C0CE006",74,0)
- w ""_$c(13,10)
-"RTN","C0CE006",75,0)
- w " "_$c(13,10)
-"RTN","C0CE006",76,0)
- w " "_$c(13,10)
-"RTN","C0CE006",77,0)
- w " "_$c(13,10)
-"RTN","C0CE006",79,0)
- w " "_$c(13,10)
-"RTN","C0CE006",80,0)
- w "EWD Page using Session Variables and a PrePage Script"_""
-"RTN","C0CE006",81,0)
- w " "_$c(13,10)
-"RTN","C0CE006",82,0)
- w " "_$c(13,10)
-"RTN","C0CE006",89,0)
- w " "_$c(13,10)
-"RTN","C0CE006",136,0)
- w " "_$c(13,10)
-"RTN","C0CE006",137,0)
- w " "_$c(13,10)
-"RTN","C0CE006",138,0)
- w "
"_$c(13,10)
-"RTN","C0CE006",139,0)
- w "This page accesses EWD Session Variables"_""
-"RTN","C0CE006",140,0)
- w "
"_$c(13,10)
-"RTN","C0CE006",141,0)
- w "
"_$c(13,10)
-"RTN","C0CE006",142,0)
- w "Name: "_$$getSessionValue^%zewdAPI("person.Name",sessid)
-"RTN","C0CE006",143,0)
- w "
-"DATA",70050,16,1,8,0)
-test1 page
-"DATA",70050,16,1,9,0)
-
-"DATA",70050,16,1,10,0)
-
-"DATA",70050,17,0)
-23412^screenman^test1.m
-"DATA",70050,17,1,0)
-^^25^25^3100301^
-"DATA",70050,17,1,1,0)
-
-"DATA",70050,17,1,2,0)
-
-"DATA",70050,17,1,3,0)
-
-"DATA",70050,17,1,4,0)
-
-"DATA",70050,17,1,9,0)
-Screenman Test
-"DATA",70050,17,1,10,0)
-
-"DATA",70050,17,1,11,0)
-
-"DATA",70050,17,1,12,0)
-
-"DATA",70050,17,1,24,0)
-
-"DATA",70050,17,1,25,0)
-
-"FIA",70050)
-C0EWD ROUTINE MAP
-"FIA",70050,0)
-^C0E(70050,
-"FIA",70050,0,0)
-70050PI
-"FIA",70050,0,1)
-y^y^f^^n^^y^o^n
-"FIA",70050,0,10)
-
-"FIA",70050,0,11)
-
-"FIA",70050,0,"RLRO")
-
-"FIA",70050,70050)
-0
-"FIA",70050,70050.01)
-0
-"FIA",70050,70050.02)
-0
-"IX",70050,70050,"AZEWD",0)
-70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
-"IX",70050,70050,"AZEWD",1)
-D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",2)
-D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",11.1,0)
-^.114IA^3^3
-"IX",70050,70050,"AZEWD",11.1,1,0)
-1^F^70050^.01^^^F
-"IX",70050,70050,"AZEWD",11.1,2,0)
-2^F^70050^.02^^^F
-"IX",70050,70050,"AZEWD",11.1,3,0)
-3^F^70050^.03^^^F
-"IX",70050,70050,"C",0)
-70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
-"IX",70050,70050,"C",1)
-S ^C0E(70050,"C",$E(X,1,60),DA)=""
-"IX",70050,70050,"C",2)
-K ^C0E(70050,"C",$E(X,1,60),DA)
-"IX",70050,70050,"C",2.5)
-K ^C0E(70050,"C")
-"IX",70050,70050,"C",11.1,0)
-^.114IA^1^1
-"IX",70050,70050,"C",11.1,1,0)
-1^F^70050^.03^60^1^F
-"IX",70050,70050,"C",11.1,1,3)
-
-"KRN",.401,1794,-1)
-0^1
-"KRN",.401,1794,0)
-C0E SCREENMAN RECORDS^3100302.0014^@^70050^^@^3100302
-"KRN",.401,1794,2,0)
-^.4014^1^1
-"KRN",.401,1794,2,1,0)
-70050^.02^EWD APPLICATION^^^^^^^4
-"KRN",.401,1794,2,1,"F")
-screenmamz^screenman
-"KRN",.401,1794,2,1,"GET")
-S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
-"KRN",.401,1794,2,1,"QCON")
-I DISX(1)="screenman"
-"KRN",.401,1794,2,1,"T")
-screenman^screenman
-"KRN",.401,1794,2,1,"TXT")
-EWD APPLICATION equals screenman
-"KRN",.401,1794,2,"B",70050,1)
-
-"MBREQ")
-0
-"ORD",6,.401)
-.401;6;;;EDEOUT^DIFROMSO(.401,DA,"",XPDA);FPRE^DIFROMSI(.401,"",XPDA);EPRE^DIFROMSI(.401,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.401,DA,"",XPDA);DEL^DIFROMSK(.401,"",%)
-"ORD",6,.401,0)
-SORT TEMPLATE
-"QUES","XPF1",0)
-Y
-"QUES","XPF1","??")
-^D REP^XPDH
-"QUES","XPF1","A")
-Shall I write over your |FLAG| File
-"QUES","XPF1","B")
-YES
-"QUES","XPF1","M")
-D XPF1^XPDIQ
-"QUES","XPF2",0)
-Y
-"QUES","XPF2","??")
-^D DTA^XPDH
-"QUES","XPF2","A")
-Want my data |FLAG| yours
-"QUES","XPF2","B")
-YES
-"QUES","XPF2","M")
-D XPF2^XPDIQ
-"QUES","XPI1",0)
-YO
-"QUES","XPI1","??")
-^D INHIBIT^XPDH
-"QUES","XPI1","A")
-Want KIDS to INHIBIT LOGONs during the install
-"QUES","XPI1","B")
-NO
-"QUES","XPI1","M")
-D XPI1^XPDIQ
-"QUES","XPM1",0)
-PO^VA(200,:EM
-"QUES","XPM1","??")
-^D MG^XPDH
-"QUES","XPM1","A")
-Enter the Coordinator for Mail Group '|FLAG|'
-"QUES","XPM1","B")
-
-"QUES","XPM1","M")
-D XPM1^XPDIQ
-"QUES","XPO1",0)
-Y
-"QUES","XPO1","??")
-^D MENU^XPDH
-"QUES","XPO1","A")
-Want KIDS to Rebuild Menu Trees Upon Completion of Install
-"QUES","XPO1","B")
-NO
-"QUES","XPO1","M")
-D XPO1^XPDIQ
-"QUES","XPZ1",0)
-Y
-"QUES","XPZ1","??")
-^D OPT^XPDH
-"QUES","XPZ1","A")
-Want to DISABLE Scheduled Options, Menu Options, and Protocols
-"QUES","XPZ1","B")
-NO
-"QUES","XPZ1","M")
-D XPZ1^XPDIQ
-"QUES","XPZ2",0)
-Y
-"QUES","XPZ2","??")
-^D RTN^XPDH
-"QUES","XPZ2","A")
-Want to MOVE routines to other CPUs
-"QUES","XPZ2","B")
-NO
-"QUES","XPZ2","M")
-D XPZ2^XPDIQ
-"RTN")
-8
-"RTN","C0CEX")
-0^2^B811998
-"RTN","C0CEX",1,0)
-C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
-"RTN","C0CEX",2,0)
- ;;1.0;C0C;;Mar 1, 2010 ;Build 1
-"RTN","C0CEX",3,0)
-SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
-"RTN","C0CEX",4,0)
- ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
-"RTN","C0CEX",5,0)
- N ZR
-"RTN","C0CEX",6,0)
- I $G(ZAPP)="" Q ;
-"RTN","C0CEX",7,0)
- I $G(ZPAGE)="" Q ;
-"RTN","C0CEX",8,0)
- I $G(ZROUTINE)="" Q ;
-"RTN","C0CEX",9,0)
- S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
-"RTN","C0CEX",10,0)
- S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
-"RTN","C0CEX",11,0)
- Q
-"RTN","C0CEX",12,0)
- ;
-"RTN","C0CEX",13,0)
-KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
-"RTN","C0CEX",14,0)
- ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
-"RTN","C0CEX",15,0)
- I $G(ZAPP)="" Q ;
-"RTN","C0CEX",16,0)
- I $G(ZPAGE)="" Q ;
-"RTN","C0CEX",17,0)
- K ^zewd("routineMap",ZAPP,ZPAGE)
-"RTN","C0CEX",18,0)
- Q
-"RTN","C0CROB")
-0^1^B1053192
-"RTN","C0CROB",1,0)
- ;;C0CROB
-"RTN","C0CROB",2,0)
- ;;;;;;Build 1
-"RTN","C0CROB",3,0)
-TEST1(sessid) ;
-"RTN","C0CROB",4,0)
- D setSessionValue^%zewdAPI("name","PROVIDER,TWOHUNDREDNINETYSIX",sessid)
-"RTN","C0CROB",5,0)
- S TITLE=$G(^C0CROB("TITLE"))
-"RTN","C0CROB",6,0)
- I TITLE="" S TITLE="Scholar Extraordinaire"
-"RTN","C0CROB",7,0)
- D setSessionValue^%zewdAPI("TITLE",TITLE,sessid)
-"RTN","C0CROB",8,0)
- Q ""
-"RTN","C0CROB",9,0)
-SAVEFORM(sessid) ;
-"RTN","C0CROB",10,0)
- S TITLE=$$getSessionValue^%zewdAPI("TITLE",sessid)
-"RTN","C0CROB",11,0)
- I TITLE="" Q "You must enter a title"
-"RTN","C0CROB",12,0)
- S ^C0CROB("TITLE")=TITLE
-"RTN","C0CROB",13,0)
- Q ""
-"RTN","C0CROB",14,0)
-VALIDATETITLE(value) ;
-"RTN","C0CROB",15,0)
- I value="" Q "alert('you must enter a title');"
-"RTN","C0CROB",16,0)
- Q ""
-"RTN","C0E0000A")
-0^3^B14799604
-"RTN","C0E0000A",1,0)
- ;GT.M version of page ewdAjaxError (screenman application)
-"RTN","C0E0000A",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 1
-"RTN","C0E0000A",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000A",4,0)
- QUIT
-"RTN","C0E0000A",5,0)
- ;
-"RTN","C0E0000A",6,0)
-run ;
-"RTN","C0E0000A",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000A",8,0)
- s ok=$$pre()
-"RTN","C0E0000A",9,0)
- i ok d body
-"RTN","C0E0000A",10,0)
- QUIT
-"RTN","C0E0000A",11,0)
- ;
-"RTN","C0E0000A",12,0)
-pre() ;
-"RTN","C0E0000A",13,0)
- ;
-"RTN","C0E0000A",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000A",15,0)
- ;
-"RTN","C0E0000A",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000A",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0E0000A",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000A",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0000A",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000A",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000A",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000A",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000A",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000A",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000A",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000A",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxError"
-"RTN","C0E0000A",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000A",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000A",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0000A",31,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000A",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000A",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000A",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000A",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000A",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000A",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000A",38,0)
- . n errorPage
-"RTN","C0E0000A",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000A",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000A",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000A",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000A",43,0)
- s stop=0
-"RTN","C0E0000A",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000A",45,0)
- . n nextpage
-"RTN","C0E0000A",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000A",47,0)
- . i nextpage'="" d
-"RTN","C0E0000A",48,0)
- . . n x
-"RTN","C0E0000A",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000A",50,0)
- . . s stop=1
-"RTN","C0E0000A",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000A",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000A",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000A",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000A",55,0)
- s ctype="text/html"
-"RTN","C0E0000A",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000A",57,0)
- i $d(headers) d
-"RTN","C0E0000A",58,0)
- . n lcname,name
-"RTN","C0E0000A",59,0)
- . s name=""
-"RTN","C0E0000A",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000A",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000A",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000A",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000A",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000A",65,0)
- w $c(13,10)
-"RTN","C0E0000A",66,0)
- QUIT 1
-"RTN","C0E0000A",67,0)
- ;
-"RTN","C0E0000A",68,0)
-body ;
-"RTN","C0E0000A",69,0)
- w ""_$c(13,10)
-"RTN","C0E0000A",70,0)
- w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
-"RTN","C0E0000A",71,0)
- w ""_$c(13,10)
-"RTN","C0E0000A",72,0)
- QUIT
-"RTN","C0E0000E")
-0^5^B27501668
-"RTN","C0E0000E",1,0)
- ;GT.M version of page ewdError (screenman application)
-"RTN","C0E0000E",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 1
-"RTN","C0E0000E",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000E",4,0)
- QUIT
-"RTN","C0E0000E",5,0)
- ;
-"RTN","C0E0000E",6,0)
-run ;
-"RTN","C0E0000E",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000E",8,0)
- s ok=$$pre()
-"RTN","C0E0000E",9,0)
- i ok d body
-"RTN","C0E0000E",10,0)
- QUIT
-"RTN","C0E0000E",11,0)
- ;
-"RTN","C0E0000E",12,0)
-pre() ;
-"RTN","C0E0000E",13,0)
- ;
-"RTN","C0E0000E",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000E",15,0)
- ;
-"RTN","C0E0000E",16,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000E",17,0)
- w "Content-type: text/html"_$c(13,10,13,10)
-"RTN","C0E0000E",18,0)
- QUIT 1
-"RTN","C0E0000E",19,0)
- ;
-"RTN","C0E0000E",20,0)
-body ;
-"RTN","C0E0000E",21,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",22,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",23,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",24,0)
- w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
-"RTN","C0E0000E",25,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",43,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",44,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",45,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",46,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",47,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",48,0)
- w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
-"RTN","C0E0000E",49,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",50,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",51,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",52,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",53,0)
- w "
An Error has occurred
"_$c(13,10)
-"RTN","C0E0000E",54,0)
- w " "_$c(13,10)
-"RTN","C0E0000E",55,0)
- w "
"_$g(%KEY("error"))_"
"_$c(13,10)
-"RTN","C0E0000E",56,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",57,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",58,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",59,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",60,0)
- w " "_$c(13,10)
-"RTN","C0E0000E",63,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",64,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",65,0)
- QUIT
-"RTN","C0E0000F")
-0^4^B32569634
-"RTN","C0E0000F",1,0)
- ;GT.M version of page ewdAjaxErrorRedirect (screenman application)
-"RTN","C0E0000F",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 1
-"RTN","C0E0000F",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000F",4,0)
- QUIT
-"RTN","C0E0000F",5,0)
- ;
-"RTN","C0E0000F",6,0)
-run ;
-"RTN","C0E0000F",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000F",8,0)
- s ok=$$pre()
-"RTN","C0E0000F",9,0)
- i ok d body
-"RTN","C0E0000F",10,0)
- QUIT
-"RTN","C0E0000F",11,0)
- ;
-"RTN","C0E0000F",12,0)
-pre() ;
-"RTN","C0E0000F",13,0)
- ;
-"RTN","C0E0000F",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000F",15,0)
- ;
-"RTN","C0E0000F",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000F",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0000F",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000F",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0000F",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000F",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000F",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000F",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000F",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000F",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000F",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000F",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
-"RTN","C0E0000F",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000F",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000F",30,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0E0000F",31,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0E0000F",32,0)
- s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
-"RTN","C0E0000F",33,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000F",34,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000F",35,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000F",36,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000F",37,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000F",38,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000F",39,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000F",40,0)
- . n errorPage
-"RTN","C0E0000F",41,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000F",42,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000F",43,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000F",44,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000F",45,0)
- s stop=0
-"RTN","C0E0000F",46,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000F",47,0)
- . n nextpage
-"RTN","C0E0000F",48,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000F",49,0)
- . i nextpage'="" d
-"RTN","C0E0000F",50,0)
- . . n x
-"RTN","C0E0000F",51,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000F",52,0)
- . . s stop=1
-"RTN","C0E0000F",53,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000F",54,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000F",55,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000F",56,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000F",57,0)
- s ctype="text/html"
-"RTN","C0E0000F",58,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000F",59,0)
- i $d(headers) d
-"RTN","C0E0000F",60,0)
- . n lcname,name
-"RTN","C0E0000F",61,0)
- . s name=""
-"RTN","C0E0000F",62,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000F",63,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000F",64,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000F",65,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000F",66,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000F",67,0)
- w $c(13,10)
-"RTN","C0E0000F",68,0)
- QUIT 1
-"RTN","C0E0000F",69,0)
- ;
-"RTN","C0E0000F",70,0)
-body ;
-"RTN","C0E0000F",71,0)
- if ($g(Error)="") d
-"RTN","C0E0000F",72,0)
- .w " "_$c(13,10)
-"RTN","C0E0000F",73,0)
- .w "
"_$c(13,10)
-"RTN","C0E0000F",74,0)
- .w "
"_$c(13,10)
-"RTN","C0E0000F",75,0)
- .w " "_$c(13,10)
-"RTN","C0E0000F",76,0)
- .
-"RTN","C0E0000F",77,0)
- w ""_$c(13,10)
-"RTN","C0E0000F",78,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0E0000F",79,0)
- s id=""
-"RTN","C0E0000F",80,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0E0000F",81,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0E0000F",82,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0E0000F",83,0)
- s id=""
-"RTN","C0E0000F",84,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0E0000F",85,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0E0000F",86,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0E0000F",87,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0E0000F",88,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0E0000F",89,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0E0000F",90,0)
- w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
-"RTN","C0E0000F",91,0)
- w ""_$c(13,10)
-"RTN","C0E0000F",92,0)
- QUIT
-"RTN","C0E0000R")
-0^6^B66670061
-"RTN","C0E0000R",1,0)
- ;GT.M version of page ewdErrorRedirect (screenman application)
-"RTN","C0E0000R",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 1
-"RTN","C0E0000R",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000R",4,0)
- QUIT
-"RTN","C0E0000R",5,0)
- ;
-"RTN","C0E0000R",6,0)
-run ;
-"RTN","C0E0000R",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000R",8,0)
- s ok=$$pre()
-"RTN","C0E0000R",9,0)
- i ok d body
-"RTN","C0E0000R",10,0)
- QUIT
-"RTN","C0E0000R",11,0)
- ;
-"RTN","C0E0000R",12,0)
-pre() ;
-"RTN","C0E0000R",13,0)
- ;
-"RTN","C0E0000R",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000R",15,0)
- ;
-"RTN","C0E0000R",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000R",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0000R",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000R",19,0)
- s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
-"RTN","C0E0000R",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000R",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000R",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000R",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000R",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000R",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000R",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000R",27,0)
- s sessionArray("ewd_pageName")="ewdErrorRedirect"
-"RTN","C0E0000R",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000R",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000R",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0000R",31,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",32,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",33,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0E0000R",34,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",35,0)
- s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000R",36,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000R",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000R",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000R",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000R",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000R",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000R",42,0)
- . n errorPage
-"RTN","C0E0000R",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000R",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000R",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000R",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000R",47,0)
- s stop=0
-"RTN","C0E0000R",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000R",49,0)
- . n nextpage
-"RTN","C0E0000R",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000R",51,0)
- . i nextpage'="" d
-"RTN","C0E0000R",52,0)
- . . n x
-"RTN","C0E0000R",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000R",54,0)
- . . s stop=1
-"RTN","C0E0000R",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000R",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000R",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000R",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000R",59,0)
- s ctype="text/html"
-"RTN","C0E0000R",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000R",61,0)
- i $d(headers) d
-"RTN","C0E0000R",62,0)
- . n lcname,name
-"RTN","C0E0000R",63,0)
- . s name=""
-"RTN","C0E0000R",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000R",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000R",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000R",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000R",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000R",69,0)
- w $c(13,10)
-"RTN","C0E0000R",70,0)
- QUIT 1
-"RTN","C0E0000R",71,0)
- ;
-"RTN","C0E0000R",72,0)
-body ;
-"RTN","C0E0000R",73,0)
- w ""_$c(13,10)
-"RTN","C0E0000R",74,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",75,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",76,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",78,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",79,0)
- w "Ajax Error Redirect page"_""
-"RTN","C0E0000R",80,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",81,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",82,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",83,0)
- w "Please wait...."_""
-"RTN","C0E0000R",84,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",85,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",86,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",133,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",134,0)
- w ""_$c(13,10)
-"RTN","C0E0000R",135,0)
- QUIT
-"RTN","C0E0001I")
-0^7^B20127196
-"RTN","C0E0001I",1,0)
- ;GT.M version of page index (screenman application)
-"RTN","C0E0001I",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 1
-"RTN","C0E0001I",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0001I",4,0)
- QUIT
-"RTN","C0E0001I",5,0)
- ;
-"RTN","C0E0001I",6,0)
-run ;
-"RTN","C0E0001I",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0001I",8,0)
- s ok=$$pre()
-"RTN","C0E0001I",9,0)
- i ok d body
-"RTN","C0E0001I",10,0)
- QUIT
-"RTN","C0E0001I",11,0)
- ;
-"RTN","C0E0001I",12,0)
-pre() ;
-"RTN","C0E0001I",13,0)
- ;
-"RTN","C0E0001I",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0001I",15,0)
- ;
-"RTN","C0E0001I",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0001I",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0E0001I",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0001I",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0001I",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0001I",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0001I",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0001I",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0001I",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0001I",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0001I",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0001I",27,0)
- s sessionArray("ewd_pageName")="index"
-"RTN","C0E0001I",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0001I",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0001I",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0001I",31,0)
- s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
-"RTN","C0E0001I",32,0)
- s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0001I",33,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0001I",34,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0001I",35,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0001I",36,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0001I",37,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0001I",38,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0001I",39,0)
- . n errorPage
-"RTN","C0E0001I",40,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0001I",41,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0001I",42,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0001I",43,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0001I",44,0)
- s stop=0
-"RTN","C0E0001I",45,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0001I",46,0)
- . n nextpage
-"RTN","C0E0001I",47,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0001I",48,0)
- . i nextpage'="" d
-"RTN","C0E0001I",49,0)
- . . n x
-"RTN","C0E0001I",50,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0001I",51,0)
- . . s stop=1
-"RTN","C0E0001I",52,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0001I",53,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0001I",54,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0001I",55,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0001I",56,0)
- s ctype="text/html"
-"RTN","C0E0001I",57,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0001I",58,0)
- i $d(headers) d
-"RTN","C0E0001I",59,0)
- . n lcname,name
-"RTN","C0E0001I",60,0)
- . s name=""
-"RTN","C0E0001I",61,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0001I",62,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0001I",63,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0001I",64,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0001I",65,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0001I",66,0)
- w $c(13,10)
-"RTN","C0E0001I",67,0)
- QUIT 1
-"RTN","C0E0001I",68,0)
- ;
-"RTN","C0E0001I",69,0)
-body ;
-"RTN","C0E0001I",70,0)
- w ""_$c(13,10)
-"RTN","C0E0001I",71,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",72,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",73,0)
- w "Screenman Menu"_""
-"RTN","C0E0001I",74,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",75,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",76,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",77,0)
- w "Hello World"_""
-"RTN","C0E0001I",78,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",79,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",80,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",81,0)
- w "test1 page"_""
-"RTN","C0E0001I",82,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",83,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",84,0)
- w ""_$c(13,10)
-"RTN","C0E0001I",85,0)
- QUIT
-"RTN","C0E0002")
-0^8^B92918287
-"RTN","C0E0002",1,0)
- ;GT.M version of page test1 (screenman application)
-"RTN","C0E0002",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 1
-"RTN","C0E0002",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0002",4,0)
- QUIT
-"RTN","C0E0002",5,0)
- ;
-"RTN","C0E0002",6,0)
-run ;
-"RTN","C0E0002",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0002",8,0)
- s ok=$$pre()
-"RTN","C0E0002",9,0)
- i ok d body
-"RTN","C0E0002",10,0)
- QUIT
-"RTN","C0E0002",11,0)
- ;
-"RTN","C0E0002",12,0)
-pre() ;
-"RTN","C0E0002",13,0)
- ;
-"RTN","C0E0002",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0002",15,0)
- ;
-"RTN","C0E0002",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0002",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0002",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0002",19,0)
- s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
-"RTN","C0E0002",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0002",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0002",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0002",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0002",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0002",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0002",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0002",27,0)
- s sessionArray("ewd_pageName")="test1"
-"RTN","C0E0002",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0002",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0002",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0002",31,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0E0002",32,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0E0002",33,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0E0002",34,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0E0002",35,0)
- s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
-"RTN","C0E0002",36,0)
- s formInfo="SSN|text`TITLE|text`ewd_pressed|hidden`submit|submit`"
-"RTN","C0E0002",37,0)
- d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
-"RTN","C0E0002",38,0)
- s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0002",39,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0002",40,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0002",41,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0002",42,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0002",43,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0002",44,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0002",45,0)
- . n errorPage
-"RTN","C0E0002",46,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0002",47,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0002",48,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0002",49,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0002",50,0)
- s stop=0
-"RTN","C0E0002",51,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0002",52,0)
- . n nextpage
-"RTN","C0E0002",53,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0002",54,0)
- . i nextpage'="" d
-"RTN","C0E0002",55,0)
- . . n x
-"RTN","C0E0002",56,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0002",57,0)
- . . s stop=1
-"RTN","C0E0002",58,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0002",59,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0002",60,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0002",61,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0002",62,0)
- s ctype="text/html"
-"RTN","C0E0002",63,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0002",64,0)
- i $d(headers) d
-"RTN","C0E0002",65,0)
- . n lcname,name
-"RTN","C0E0002",66,0)
- . s name=""
-"RTN","C0E0002",67,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0002",68,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0002",69,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0002",70,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0002",71,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0002",72,0)
- w $c(13,10)
-"RTN","C0E0002",73,0)
- QUIT 1
-"RTN","C0E0002",74,0)
- ;
-"RTN","C0E0002",75,0)
-body ;
-"RTN","C0E0002",76,0)
- w ""_$c(13,10)
-"RTN","C0E0002",77,0)
- w " "_$c(13,10)
-"RTN","C0E0002",78,0)
- w " "_$c(13,10)
-"RTN","C0E0002",79,0)
- w " "_$c(13,10)
-"RTN","C0E0002",81,0)
- w " "_$c(13,10)
-"RTN","C0E0002",88,0)
- w " "_$c(13,10)
-"RTN","C0E0002",89,0)
- w "Screenman Test"_""
-"RTN","C0E0002",90,0)
- w " "_$c(13,10)
-"RTN","C0E0002",91,0)
- w " "_$c(13,10)
-"RTN","C0E0002",138,0)
- w " "_$c(13,10)
-"RTN","C0E0002",139,0)
- w " "_$c(13,10)
-"RTN","C0E0002",140,0)
- w " "_$c(13,10)
-"RTN","C0E0002",160,0)
- w " "_$c(13,10)
-"RTN","C0E0002",161,0)
- w ""_$c(13,10)
-"RTN","C0E0002",162,0)
- QUIT
-"SEC","^DIC",70050,70050,0,"AUDIT")
-@
-"SEC","^DIC",70050,70050,0,"DD")
-@
-"SEC","^DIC",70050,70050,0,"DEL")
-@
-"SEC","^DIC",70050,70050,0,"LAYGO")
-@
-"SEC","^DIC",70050,70050,0,"RD")
-@
-"SEC","^DIC",70050,70050,0,"WR")
-@
-"VER")
-8.0^22.0
-"^DD",70050,70050,0)
-FIELD^^1^5
-"^DD",70050,70050,0,"DDA")
-N
-"^DD",70050,70050,0,"DT")
-3100301
-"^DD",70050,70050,0,"ID",.02)
-W " ",$P(^(0),U,2)
-"^DD",70050,70050,0,"ID",.03)
-W " ",$P(^(0),U,3)
-"^DD",70050,70050,0,"IX","B",70050,.01)
-
-"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
-
-"^DD",70050,70050,.01,0)
-EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
-"^DD",70050,70050,.01,1,0)
-^.1
-"^DD",70050,70050,.01,1,1,0)
-70050^B
-"^DD",70050,70050,.01,1,1,1)
-S ^C0E(70050,"B",$E(X,1,30),DA)=""
-"^DD",70050,70050,.01,1,1,2)
-K ^C0E(70050,"B",$E(X,1,30),DA)
-"^DD",70050,70050,.01,3)
-NAMESPACED EWD COMPILED PAGE
-"^DD",70050,70050,.01,"DT")
-3100301
-"^DD",70050,70050,.02,0)
-EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
-"^DD",70050,70050,.02,3)
-NAME OF THE EWD APPLICATION
-"^DD",70050,70050,.02,"DT")
-3100301
-"^DD",70050,70050,.03,0)
-EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
-"^DD",70050,70050,.03,3)
-EWD PAGE NAME
-"^DD",70050,70050,.03,"DT")
-3100301
-"^DD",70050,70050,1,0)
-DESCRIPTION^70050.01^^2;0
-"^DD",70050,70050,2,0)
-EWD SOURCE^70050.02^^1;0
-"^DD",70050,70050.01,0)
-DESCRIPTION SUB-FIELD^^.01^1
-"^DD",70050,70050.01,0,"DT")
-3100301
-"^DD",70050,70050.01,0,"NM","DESCRIPTION")
-
-"^DD",70050,70050.01,0,"UP")
-70050
-"^DD",70050,70050.01,.01,0)
-DESCRIPTION^Wx^^0;1
-"^DD",70050,70050.01,.01,3)
-DESCRIPTION OF THE EWD PAGE
-"^DD",70050,70050.01,.01,"DT")
-3100301
-"^DD",70050,70050.02,0)
-EWD SOURCE SUB-FIELD^^.01^1
-"^DD",70050,70050.02,0,"DT")
-3100301
-"^DD",70050,70050.02,0,"NM","EWD SOURCE")
-
-"^DD",70050,70050.02,0,"UP")
-70050
-"^DD",70050,70050.02,.01,0)
-EWD SOURCE^WLx^^0;1
-"^DD",70050,70050.02,.01,3)
-EWD PAGE SOURCE CODE
-"^DD",70050,70050.02,.01,"DT")
-3100301
-"^DIC",70050,70050,0)
-C0EWD ROUTINE MAP^70050
-"^DIC",70050,70050,0,"GL")
-^C0E(70050,
-"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
-
-**END**
-**END**
Index: ccr/trunk/p/C0E0_1_0_0_T2.KID
===================================================================
--- ccr/trunk/p/C0E0_1_0_0_T2.KID (revision 1214)
+++ (revision )
@@ -1,1926 +1,0 @@
-KIDS Distribution saved on Mar 02, 2010@00:44:31
-initial conference demo with test1 record fixed
-**KIDS**:C0E0*1.0*0^
-
-**INSTALL NAME**
-C0E0*1.0*0
-"BLD",6969,0)
-C0E0*1.0*0^^0^3100302^n
-"BLD",6969,4,0)
-^9.64PA^70050^1
-"BLD",6969,4,70050,0)
-70050
-"BLD",6969,4,70050,222)
-y^y^f^^n^^y^o^n
-"BLD",6969,4,"B",70050,70050)
-
-"BLD",6969,6.3)
-2
-"BLD",6969,"KRN",0)
-^9.67PA^8989.52^19
-"BLD",6969,"KRN",.4,0)
-.4
-"BLD",6969,"KRN",.401,0)
-.401
-"BLD",6969,"KRN",.401,"NM",0)
-^9.68A^1^1
-"BLD",6969,"KRN",.401,"NM",1,0)
-C0E SCREENMAN RECORDS FILE #70050^70050^0
-"BLD",6969,"KRN",.401,"NM","B","C0E SCREENMAN RECORDS FILE #70050",1)
-
-"BLD",6969,"KRN",.402,0)
-.402
-"BLD",6969,"KRN",.403,0)
-.403
-"BLD",6969,"KRN",.5,0)
-.5
-"BLD",6969,"KRN",.84,0)
-.84
-"BLD",6969,"KRN",3.6,0)
-3.6
-"BLD",6969,"KRN",3.8,0)
-3.8
-"BLD",6969,"KRN",9.2,0)
-9.2
-"BLD",6969,"KRN",9.8,0)
-9.8
-"BLD",6969,"KRN",9.8,"NM",0)
-^9.68A^8^8
-"BLD",6969,"KRN",9.8,"NM",1,0)
-C0CROB^^0^B1053192
-"BLD",6969,"KRN",9.8,"NM",2,0)
-C0CEX^^0^B811998
-"BLD",6969,"KRN",9.8,"NM",3,0)
-C0E0000A^^0^B14799604
-"BLD",6969,"KRN",9.8,"NM",4,0)
-C0E0000F^^0^B32569634
-"BLD",6969,"KRN",9.8,"NM",5,0)
-C0E0000E^^0^B27501668
-"BLD",6969,"KRN",9.8,"NM",6,0)
-C0E0000R^^0^B66670061
-"BLD",6969,"KRN",9.8,"NM",7,0)
-C0E0001I^^0^B20127196
-"BLD",6969,"KRN",9.8,"NM",8,0)
-C0E0002^^0^B92918287
-"BLD",6969,"KRN",9.8,"NM","B","C0CEX",2)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0CROB",1)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000A",3)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000E",5)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000F",4)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000R",6)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0001I",7)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0002",8)
-
-"BLD",6969,"KRN",19,0)
-19
-"BLD",6969,"KRN",19.1,0)
-19.1
-"BLD",6969,"KRN",101,0)
-101
-"BLD",6969,"KRN",409.61,0)
-409.61
-"BLD",6969,"KRN",771,0)
-771
-"BLD",6969,"KRN",870,0)
-870
-"BLD",6969,"KRN",8989.51,0)
-8989.51
-"BLD",6969,"KRN",8989.52,0)
-8989.52
-"BLD",6969,"KRN",8994,0)
-8994
-"BLD",6969,"KRN","B",.4,.4)
-
-"BLD",6969,"KRN","B",.401,.401)
-
-"BLD",6969,"KRN","B",.402,.402)
-
-"BLD",6969,"KRN","B",.403,.403)
-
-"BLD",6969,"KRN","B",.5,.5)
-
-"BLD",6969,"KRN","B",.84,.84)
-
-"BLD",6969,"KRN","B",3.6,3.6)
-
-"BLD",6969,"KRN","B",3.8,3.8)
-
-"BLD",6969,"KRN","B",9.2,9.2)
-
-"BLD",6969,"KRN","B",9.8,9.8)
-
-"BLD",6969,"KRN","B",19,19)
-
-"BLD",6969,"KRN","B",19.1,19.1)
-
-"BLD",6969,"KRN","B",101,101)
-
-"BLD",6969,"KRN","B",409.61,409.61)
-
-"BLD",6969,"KRN","B",771,771)
-
-"BLD",6969,"KRN","B",870,870)
-
-"BLD",6969,"KRN","B",8989.51,8989.51)
-
-"BLD",6969,"KRN","B",8989.52,8989.52)
-
-"BLD",6969,"KRN","B",8994,8994)
-
-"BLD",6969,"QUES",0)
-^9.62^^
-"DATA",70050,1,0)
-23394^patientportal^ewdajaxerror
-"DATA",70050,2,0)
-23397^patientportal^ewderrorredirect
-"DATA",70050,3,0)
-23399^patientportal^index
-"DATA",70050,3,1,0)
-^70050.02^28^28^3100301^^
-"DATA",70050,3,1,1,0)
-
-"DATA",70050,3,1,2,0)
-
-"DATA",70050,3,1,3,0)
-
-"DATA",70050,3,1,4,0)
- The start EWD Page
-"DATA",70050,3,1,5,0)
-
-"DATA",70050,3,1,11,0)
-
-"DATA",70050,3,1,12,0)
-
-"DATA",70050,3,1,13,0)
-
-"DATA",70050,16,1,8,0)
-test1 page
-"DATA",70050,16,1,9,0)
-
-"DATA",70050,16,1,10,0)
-
-"DATA",70050,17,0)
-23412^screenman^test1
-"DATA",70050,17,1,0)
-^70050.02^25^25^3100302^^
-"DATA",70050,17,1,1,0)
-
-"DATA",70050,17,1,2,0)
-
-"DATA",70050,17,1,3,0)
-
-"DATA",70050,17,1,4,0)
-
-"DATA",70050,17,1,9,0)
-Screenman Test
-"DATA",70050,17,1,10,0)
-
-"DATA",70050,17,1,11,0)
-
-"DATA",70050,17,1,12,0)
-
-"DATA",70050,17,1,24,0)
-
-"DATA",70050,17,1,25,0)
-
-"FIA",70050)
-C0EWD ROUTINE MAP
-"FIA",70050,0)
-^C0E(70050,
-"FIA",70050,0,0)
-70050PI
-"FIA",70050,0,1)
-y^y^f^^n^^y^o^n
-"FIA",70050,0,10)
-
-"FIA",70050,0,11)
-
-"FIA",70050,0,"RLRO")
-
-"FIA",70050,70050)
-0
-"FIA",70050,70050.01)
-0
-"FIA",70050,70050.02)
-0
-"IX",70050,70050,"AZEWD",0)
-70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
-"IX",70050,70050,"AZEWD",1)
-D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",2)
-D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",11.1,0)
-^.114IA^3^3
-"IX",70050,70050,"AZEWD",11.1,1,0)
-1^F^70050^.01^^^F
-"IX",70050,70050,"AZEWD",11.1,2,0)
-2^F^70050^.02^^^F
-"IX",70050,70050,"AZEWD",11.1,3,0)
-3^F^70050^.03^^^F
-"IX",70050,70050,"C",0)
-70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
-"IX",70050,70050,"C",1)
-S ^C0E(70050,"C",$E(X,1,60),DA)=""
-"IX",70050,70050,"C",2)
-K ^C0E(70050,"C",$E(X,1,60),DA)
-"IX",70050,70050,"C",2.5)
-K ^C0E(70050,"C")
-"IX",70050,70050,"C",11.1,0)
-^.114IA^1^1
-"IX",70050,70050,"C",11.1,1,0)
-1^F^70050^.03^60^1^F
-"IX",70050,70050,"C",11.1,1,3)
-
-"KRN",.401,1794,-1)
-0^1
-"KRN",.401,1794,0)
-C0E SCREENMAN RECORDS^3100302.0014^@^70050^^@^3100302
-"KRN",.401,1794,2,0)
-^.4014^1^1
-"KRN",.401,1794,2,1,0)
-70050^.02^EWD APPLICATION^^^^^^^4
-"KRN",.401,1794,2,1,"F")
-screenmamz^screenman
-"KRN",.401,1794,2,1,"GET")
-S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
-"KRN",.401,1794,2,1,"QCON")
-I DISX(1)="screenman"
-"KRN",.401,1794,2,1,"T")
-screenman^screenman
-"KRN",.401,1794,2,1,"TXT")
-EWD APPLICATION equals screenman
-"KRN",.401,1794,2,"B",70050,1)
-
-"MBREQ")
-0
-"ORD",6,.401)
-.401;6;;;EDEOUT^DIFROMSO(.401,DA,"",XPDA);FPRE^DIFROMSI(.401,"",XPDA);EPRE^DIFROMSI(.401,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.401,DA,"",XPDA);DEL^DIFROMSK(.401,"",%)
-"ORD",6,.401,0)
-SORT TEMPLATE
-"QUES","XPF1",0)
-Y
-"QUES","XPF1","??")
-^D REP^XPDH
-"QUES","XPF1","A")
-Shall I write over your |FLAG| File
-"QUES","XPF1","B")
-YES
-"QUES","XPF1","M")
-D XPF1^XPDIQ
-"QUES","XPF2",0)
-Y
-"QUES","XPF2","??")
-^D DTA^XPDH
-"QUES","XPF2","A")
-Want my data |FLAG| yours
-"QUES","XPF2","B")
-YES
-"QUES","XPF2","M")
-D XPF2^XPDIQ
-"QUES","XPI1",0)
-YO
-"QUES","XPI1","??")
-^D INHIBIT^XPDH
-"QUES","XPI1","A")
-Want KIDS to INHIBIT LOGONs during the install
-"QUES","XPI1","B")
-NO
-"QUES","XPI1","M")
-D XPI1^XPDIQ
-"QUES","XPM1",0)
-PO^VA(200,:EM
-"QUES","XPM1","??")
-^D MG^XPDH
-"QUES","XPM1","A")
-Enter the Coordinator for Mail Group '|FLAG|'
-"QUES","XPM1","B")
-
-"QUES","XPM1","M")
-D XPM1^XPDIQ
-"QUES","XPO1",0)
-Y
-"QUES","XPO1","??")
-^D MENU^XPDH
-"QUES","XPO1","A")
-Want KIDS to Rebuild Menu Trees Upon Completion of Install
-"QUES","XPO1","B")
-NO
-"QUES","XPO1","M")
-D XPO1^XPDIQ
-"QUES","XPZ1",0)
-Y
-"QUES","XPZ1","??")
-^D OPT^XPDH
-"QUES","XPZ1","A")
-Want to DISABLE Scheduled Options, Menu Options, and Protocols
-"QUES","XPZ1","B")
-NO
-"QUES","XPZ1","M")
-D XPZ1^XPDIQ
-"QUES","XPZ2",0)
-Y
-"QUES","XPZ2","??")
-^D RTN^XPDH
-"QUES","XPZ2","A")
-Want to MOVE routines to other CPUs
-"QUES","XPZ2","B")
-NO
-"QUES","XPZ2","M")
-D XPZ2^XPDIQ
-"RTN")
-8
-"RTN","C0CEX")
-0^2^B811998
-"RTN","C0CEX",1,0)
-C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
-"RTN","C0CEX",2,0)
- ;;1.0;C0C;;Mar 1, 2010 ;Build 2
-"RTN","C0CEX",3,0)
-SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
-"RTN","C0CEX",4,0)
- ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
-"RTN","C0CEX",5,0)
- N ZR
-"RTN","C0CEX",6,0)
- I $G(ZAPP)="" Q ;
-"RTN","C0CEX",7,0)
- I $G(ZPAGE)="" Q ;
-"RTN","C0CEX",8,0)
- I $G(ZROUTINE)="" Q ;
-"RTN","C0CEX",9,0)
- S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
-"RTN","C0CEX",10,0)
- S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
-"RTN","C0CEX",11,0)
- Q
-"RTN","C0CEX",12,0)
- ;
-"RTN","C0CEX",13,0)
-KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
-"RTN","C0CEX",14,0)
- ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
-"RTN","C0CEX",15,0)
- I $G(ZAPP)="" Q ;
-"RTN","C0CEX",16,0)
- I $G(ZPAGE)="" Q ;
-"RTN","C0CEX",17,0)
- K ^zewd("routineMap",ZAPP,ZPAGE)
-"RTN","C0CEX",18,0)
- Q
-"RTN","C0CROB")
-0^1^B1053192
-"RTN","C0CROB",1,0)
- ;;C0CROB
-"RTN","C0CROB",2,0)
- ;;;;;;Build 2
-"RTN","C0CROB",3,0)
-TEST1(sessid) ;
-"RTN","C0CROB",4,0)
- D setSessionValue^%zewdAPI("name","PROVIDER,TWOHUNDREDNINETYSIX",sessid)
-"RTN","C0CROB",5,0)
- S TITLE=$G(^C0CROB("TITLE"))
-"RTN","C0CROB",6,0)
- I TITLE="" S TITLE="Scholar Extraordinaire"
-"RTN","C0CROB",7,0)
- D setSessionValue^%zewdAPI("TITLE",TITLE,sessid)
-"RTN","C0CROB",8,0)
- Q ""
-"RTN","C0CROB",9,0)
-SAVEFORM(sessid) ;
-"RTN","C0CROB",10,0)
- S TITLE=$$getSessionValue^%zewdAPI("TITLE",sessid)
-"RTN","C0CROB",11,0)
- I TITLE="" Q "You must enter a title"
-"RTN","C0CROB",12,0)
- S ^C0CROB("TITLE")=TITLE
-"RTN","C0CROB",13,0)
- Q ""
-"RTN","C0CROB",14,0)
-VALIDATETITLE(value) ;
-"RTN","C0CROB",15,0)
- I value="" Q "alert('you must enter a title');"
-"RTN","C0CROB",16,0)
- Q ""
-"RTN","C0E0000A")
-0^3^B14799604
-"RTN","C0E0000A",1,0)
- ;GT.M version of page ewdAjaxError (screenman application)
-"RTN","C0E0000A",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 2
-"RTN","C0E0000A",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000A",4,0)
- QUIT
-"RTN","C0E0000A",5,0)
- ;
-"RTN","C0E0000A",6,0)
-run ;
-"RTN","C0E0000A",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000A",8,0)
- s ok=$$pre()
-"RTN","C0E0000A",9,0)
- i ok d body
-"RTN","C0E0000A",10,0)
- QUIT
-"RTN","C0E0000A",11,0)
- ;
-"RTN","C0E0000A",12,0)
-pre() ;
-"RTN","C0E0000A",13,0)
- ;
-"RTN","C0E0000A",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000A",15,0)
- ;
-"RTN","C0E0000A",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000A",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0E0000A",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000A",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0000A",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000A",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000A",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000A",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000A",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000A",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000A",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000A",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxError"
-"RTN","C0E0000A",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000A",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000A",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0000A",31,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000A",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000A",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000A",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000A",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000A",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000A",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000A",38,0)
- . n errorPage
-"RTN","C0E0000A",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000A",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000A",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000A",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000A",43,0)
- s stop=0
-"RTN","C0E0000A",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000A",45,0)
- . n nextpage
-"RTN","C0E0000A",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000A",47,0)
- . i nextpage'="" d
-"RTN","C0E0000A",48,0)
- . . n x
-"RTN","C0E0000A",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000A",50,0)
- . . s stop=1
-"RTN","C0E0000A",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000A",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000A",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000A",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000A",55,0)
- s ctype="text/html"
-"RTN","C0E0000A",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000A",57,0)
- i $d(headers) d
-"RTN","C0E0000A",58,0)
- . n lcname,name
-"RTN","C0E0000A",59,0)
- . s name=""
-"RTN","C0E0000A",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000A",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000A",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000A",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000A",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000A",65,0)
- w $c(13,10)
-"RTN","C0E0000A",66,0)
- QUIT 1
-"RTN","C0E0000A",67,0)
- ;
-"RTN","C0E0000A",68,0)
-body ;
-"RTN","C0E0000A",69,0)
- w ""_$c(13,10)
-"RTN","C0E0000A",70,0)
- w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
-"RTN","C0E0000A",71,0)
- w ""_$c(13,10)
-"RTN","C0E0000A",72,0)
- QUIT
-"RTN","C0E0000E")
-0^5^B27501668
-"RTN","C0E0000E",1,0)
- ;GT.M version of page ewdError (screenman application)
-"RTN","C0E0000E",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 2
-"RTN","C0E0000E",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000E",4,0)
- QUIT
-"RTN","C0E0000E",5,0)
- ;
-"RTN","C0E0000E",6,0)
-run ;
-"RTN","C0E0000E",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000E",8,0)
- s ok=$$pre()
-"RTN","C0E0000E",9,0)
- i ok d body
-"RTN","C0E0000E",10,0)
- QUIT
-"RTN","C0E0000E",11,0)
- ;
-"RTN","C0E0000E",12,0)
-pre() ;
-"RTN","C0E0000E",13,0)
- ;
-"RTN","C0E0000E",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000E",15,0)
- ;
-"RTN","C0E0000E",16,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000E",17,0)
- w "Content-type: text/html"_$c(13,10,13,10)
-"RTN","C0E0000E",18,0)
- QUIT 1
-"RTN","C0E0000E",19,0)
- ;
-"RTN","C0E0000E",20,0)
-body ;
-"RTN","C0E0000E",21,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",22,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",23,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",24,0)
- w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
-"RTN","C0E0000E",25,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",43,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",44,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",45,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",46,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",47,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",48,0)
- w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
-"RTN","C0E0000E",49,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",50,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",51,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",52,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",53,0)
- w "
An Error has occurred
"_$c(13,10)
-"RTN","C0E0000E",54,0)
- w " "_$c(13,10)
-"RTN","C0E0000E",55,0)
- w "
"_$g(%KEY("error"))_"
"_$c(13,10)
-"RTN","C0E0000E",56,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",57,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",58,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",59,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",60,0)
- w " "_$c(13,10)
-"RTN","C0E0000E",63,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",64,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",65,0)
- QUIT
-"RTN","C0E0000F")
-0^4^B32569634
-"RTN","C0E0000F",1,0)
- ;GT.M version of page ewdAjaxErrorRedirect (screenman application)
-"RTN","C0E0000F",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 2
-"RTN","C0E0000F",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000F",4,0)
- QUIT
-"RTN","C0E0000F",5,0)
- ;
-"RTN","C0E0000F",6,0)
-run ;
-"RTN","C0E0000F",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000F",8,0)
- s ok=$$pre()
-"RTN","C0E0000F",9,0)
- i ok d body
-"RTN","C0E0000F",10,0)
- QUIT
-"RTN","C0E0000F",11,0)
- ;
-"RTN","C0E0000F",12,0)
-pre() ;
-"RTN","C0E0000F",13,0)
- ;
-"RTN","C0E0000F",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000F",15,0)
- ;
-"RTN","C0E0000F",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000F",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0000F",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000F",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0000F",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000F",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000F",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000F",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000F",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000F",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000F",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000F",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
-"RTN","C0E0000F",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000F",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000F",30,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0E0000F",31,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0E0000F",32,0)
- s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
-"RTN","C0E0000F",33,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000F",34,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000F",35,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000F",36,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000F",37,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000F",38,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000F",39,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000F",40,0)
- . n errorPage
-"RTN","C0E0000F",41,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000F",42,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000F",43,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000F",44,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000F",45,0)
- s stop=0
-"RTN","C0E0000F",46,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000F",47,0)
- . n nextpage
-"RTN","C0E0000F",48,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000F",49,0)
- . i nextpage'="" d
-"RTN","C0E0000F",50,0)
- . . n x
-"RTN","C0E0000F",51,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000F",52,0)
- . . s stop=1
-"RTN","C0E0000F",53,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000F",54,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000F",55,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000F",56,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000F",57,0)
- s ctype="text/html"
-"RTN","C0E0000F",58,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000F",59,0)
- i $d(headers) d
-"RTN","C0E0000F",60,0)
- . n lcname,name
-"RTN","C0E0000F",61,0)
- . s name=""
-"RTN","C0E0000F",62,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000F",63,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000F",64,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000F",65,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000F",66,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000F",67,0)
- w $c(13,10)
-"RTN","C0E0000F",68,0)
- QUIT 1
-"RTN","C0E0000F",69,0)
- ;
-"RTN","C0E0000F",70,0)
-body ;
-"RTN","C0E0000F",71,0)
- if ($g(Error)="") d
-"RTN","C0E0000F",72,0)
- .w " "_$c(13,10)
-"RTN","C0E0000F",73,0)
- .w "
"_$c(13,10)
-"RTN","C0E0000F",74,0)
- .w "
"_$c(13,10)
-"RTN","C0E0000F",75,0)
- .w " "_$c(13,10)
-"RTN","C0E0000F",76,0)
- .
-"RTN","C0E0000F",77,0)
- w ""_$c(13,10)
-"RTN","C0E0000F",78,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0E0000F",79,0)
- s id=""
-"RTN","C0E0000F",80,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0E0000F",81,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0E0000F",82,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0E0000F",83,0)
- s id=""
-"RTN","C0E0000F",84,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0E0000F",85,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0E0000F",86,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0E0000F",87,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0E0000F",88,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0E0000F",89,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0E0000F",90,0)
- w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
-"RTN","C0E0000F",91,0)
- w ""_$c(13,10)
-"RTN","C0E0000F",92,0)
- QUIT
-"RTN","C0E0000R")
-0^6^B66670061
-"RTN","C0E0000R",1,0)
- ;GT.M version of page ewdErrorRedirect (screenman application)
-"RTN","C0E0000R",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 2
-"RTN","C0E0000R",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000R",4,0)
- QUIT
-"RTN","C0E0000R",5,0)
- ;
-"RTN","C0E0000R",6,0)
-run ;
-"RTN","C0E0000R",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000R",8,0)
- s ok=$$pre()
-"RTN","C0E0000R",9,0)
- i ok d body
-"RTN","C0E0000R",10,0)
- QUIT
-"RTN","C0E0000R",11,0)
- ;
-"RTN","C0E0000R",12,0)
-pre() ;
-"RTN","C0E0000R",13,0)
- ;
-"RTN","C0E0000R",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000R",15,0)
- ;
-"RTN","C0E0000R",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000R",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0000R",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000R",19,0)
- s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
-"RTN","C0E0000R",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000R",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000R",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000R",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000R",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000R",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000R",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000R",27,0)
- s sessionArray("ewd_pageName")="ewdErrorRedirect"
-"RTN","C0E0000R",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000R",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000R",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0000R",31,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",32,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",33,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0E0000R",34,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",35,0)
- s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000R",36,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000R",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000R",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000R",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000R",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000R",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000R",42,0)
- . n errorPage
-"RTN","C0E0000R",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000R",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000R",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000R",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000R",47,0)
- s stop=0
-"RTN","C0E0000R",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000R",49,0)
- . n nextpage
-"RTN","C0E0000R",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000R",51,0)
- . i nextpage'="" d
-"RTN","C0E0000R",52,0)
- . . n x
-"RTN","C0E0000R",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000R",54,0)
- . . s stop=1
-"RTN","C0E0000R",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000R",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000R",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000R",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000R",59,0)
- s ctype="text/html"
-"RTN","C0E0000R",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000R",61,0)
- i $d(headers) d
-"RTN","C0E0000R",62,0)
- . n lcname,name
-"RTN","C0E0000R",63,0)
- . s name=""
-"RTN","C0E0000R",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000R",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000R",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000R",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000R",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000R",69,0)
- w $c(13,10)
-"RTN","C0E0000R",70,0)
- QUIT 1
-"RTN","C0E0000R",71,0)
- ;
-"RTN","C0E0000R",72,0)
-body ;
-"RTN","C0E0000R",73,0)
- w ""_$c(13,10)
-"RTN","C0E0000R",74,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",75,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",76,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",78,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",79,0)
- w "Ajax Error Redirect page"_""
-"RTN","C0E0000R",80,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",81,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",82,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",83,0)
- w "Please wait...."_""
-"RTN","C0E0000R",84,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",85,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",86,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",133,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",134,0)
- w ""_$c(13,10)
-"RTN","C0E0000R",135,0)
- QUIT
-"RTN","C0E0001I")
-0^7^B20127196
-"RTN","C0E0001I",1,0)
- ;GT.M version of page index (screenman application)
-"RTN","C0E0001I",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 2
-"RTN","C0E0001I",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0001I",4,0)
- QUIT
-"RTN","C0E0001I",5,0)
- ;
-"RTN","C0E0001I",6,0)
-run ;
-"RTN","C0E0001I",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0001I",8,0)
- s ok=$$pre()
-"RTN","C0E0001I",9,0)
- i ok d body
-"RTN","C0E0001I",10,0)
- QUIT
-"RTN","C0E0001I",11,0)
- ;
-"RTN","C0E0001I",12,0)
-pre() ;
-"RTN","C0E0001I",13,0)
- ;
-"RTN","C0E0001I",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0001I",15,0)
- ;
-"RTN","C0E0001I",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0001I",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0E0001I",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0001I",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0001I",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0001I",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0001I",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0001I",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0001I",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0001I",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0001I",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0001I",27,0)
- s sessionArray("ewd_pageName")="index"
-"RTN","C0E0001I",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0001I",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0001I",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0001I",31,0)
- s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
-"RTN","C0E0001I",32,0)
- s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0001I",33,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0001I",34,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0001I",35,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0001I",36,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0001I",37,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0001I",38,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0001I",39,0)
- . n errorPage
-"RTN","C0E0001I",40,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0001I",41,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0001I",42,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0001I",43,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0001I",44,0)
- s stop=0
-"RTN","C0E0001I",45,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0001I",46,0)
- . n nextpage
-"RTN","C0E0001I",47,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0001I",48,0)
- . i nextpage'="" d
-"RTN","C0E0001I",49,0)
- . . n x
-"RTN","C0E0001I",50,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0001I",51,0)
- . . s stop=1
-"RTN","C0E0001I",52,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0001I",53,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0001I",54,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0001I",55,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0001I",56,0)
- s ctype="text/html"
-"RTN","C0E0001I",57,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0001I",58,0)
- i $d(headers) d
-"RTN","C0E0001I",59,0)
- . n lcname,name
-"RTN","C0E0001I",60,0)
- . s name=""
-"RTN","C0E0001I",61,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0001I",62,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0001I",63,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0001I",64,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0001I",65,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0001I",66,0)
- w $c(13,10)
-"RTN","C0E0001I",67,0)
- QUIT 1
-"RTN","C0E0001I",68,0)
- ;
-"RTN","C0E0001I",69,0)
-body ;
-"RTN","C0E0001I",70,0)
- w ""_$c(13,10)
-"RTN","C0E0001I",71,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",72,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",73,0)
- w "Screenman Menu"_""
-"RTN","C0E0001I",74,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",75,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",76,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",77,0)
- w "Hello World"_""
-"RTN","C0E0001I",78,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",79,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",80,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",81,0)
- w "test1 page"_""
-"RTN","C0E0001I",82,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",83,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",84,0)
- w ""_$c(13,10)
-"RTN","C0E0001I",85,0)
- QUIT
-"RTN","C0E0002")
-0^8^B92918287
-"RTN","C0E0002",1,0)
- ;GT.M version of page test1 (screenman application)
-"RTN","C0E0002",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 2
-"RTN","C0E0002",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0002",4,0)
- QUIT
-"RTN","C0E0002",5,0)
- ;
-"RTN","C0E0002",6,0)
-run ;
-"RTN","C0E0002",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0002",8,0)
- s ok=$$pre()
-"RTN","C0E0002",9,0)
- i ok d body
-"RTN","C0E0002",10,0)
- QUIT
-"RTN","C0E0002",11,0)
- ;
-"RTN","C0E0002",12,0)
-pre() ;
-"RTN","C0E0002",13,0)
- ;
-"RTN","C0E0002",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0002",15,0)
- ;
-"RTN","C0E0002",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0002",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0002",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0002",19,0)
- s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
-"RTN","C0E0002",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0002",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0002",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0002",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0002",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0002",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0002",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0002",27,0)
- s sessionArray("ewd_pageName")="test1"
-"RTN","C0E0002",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0002",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0002",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0002",31,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0E0002",32,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0E0002",33,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0E0002",34,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0E0002",35,0)
- s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
-"RTN","C0E0002",36,0)
- s formInfo="SSN|text`TITLE|text`ewd_pressed|hidden`submit|submit`"
-"RTN","C0E0002",37,0)
- d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
-"RTN","C0E0002",38,0)
- s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0002",39,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0002",40,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0002",41,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0002",42,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0002",43,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0002",44,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0002",45,0)
- . n errorPage
-"RTN","C0E0002",46,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0002",47,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0002",48,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0002",49,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0002",50,0)
- s stop=0
-"RTN","C0E0002",51,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0002",52,0)
- . n nextpage
-"RTN","C0E0002",53,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0002",54,0)
- . i nextpage'="" d
-"RTN","C0E0002",55,0)
- . . n x
-"RTN","C0E0002",56,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0002",57,0)
- . . s stop=1
-"RTN","C0E0002",58,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0002",59,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0002",60,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0002",61,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0002",62,0)
- s ctype="text/html"
-"RTN","C0E0002",63,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0002",64,0)
- i $d(headers) d
-"RTN","C0E0002",65,0)
- . n lcname,name
-"RTN","C0E0002",66,0)
- . s name=""
-"RTN","C0E0002",67,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0002",68,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0002",69,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0002",70,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0002",71,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0002",72,0)
- w $c(13,10)
-"RTN","C0E0002",73,0)
- QUIT 1
-"RTN","C0E0002",74,0)
- ;
-"RTN","C0E0002",75,0)
-body ;
-"RTN","C0E0002",76,0)
- w ""_$c(13,10)
-"RTN","C0E0002",77,0)
- w " "_$c(13,10)
-"RTN","C0E0002",78,0)
- w " "_$c(13,10)
-"RTN","C0E0002",79,0)
- w " "_$c(13,10)
-"RTN","C0E0002",81,0)
- w " "_$c(13,10)
-"RTN","C0E0002",88,0)
- w " "_$c(13,10)
-"RTN","C0E0002",89,0)
- w "Screenman Test"_""
-"RTN","C0E0002",90,0)
- w " "_$c(13,10)
-"RTN","C0E0002",91,0)
- w " "_$c(13,10)
-"RTN","C0E0002",138,0)
- w " "_$c(13,10)
-"RTN","C0E0002",139,0)
- w " "_$c(13,10)
-"RTN","C0E0002",140,0)
- w " "_$c(13,10)
-"RTN","C0E0002",160,0)
- w " "_$c(13,10)
-"RTN","C0E0002",161,0)
- w ""_$c(13,10)
-"RTN","C0E0002",162,0)
- QUIT
-"SEC","^DIC",70050,70050,0,"AUDIT")
-@
-"SEC","^DIC",70050,70050,0,"DD")
-@
-"SEC","^DIC",70050,70050,0,"DEL")
-@
-"SEC","^DIC",70050,70050,0,"LAYGO")
-@
-"SEC","^DIC",70050,70050,0,"RD")
-@
-"SEC","^DIC",70050,70050,0,"WR")
-@
-"VER")
-8.0^22.0
-"^DD",70050,70050,0)
-FIELD^^1^5
-"^DD",70050,70050,0,"DDA")
-N
-"^DD",70050,70050,0,"DT")
-3100301
-"^DD",70050,70050,0,"ID",.02)
-W " ",$P(^(0),U,2)
-"^DD",70050,70050,0,"ID",.03)
-W " ",$P(^(0),U,3)
-"^DD",70050,70050,0,"IX","B",70050,.01)
-
-"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
-
-"^DD",70050,70050,.01,0)
-EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
-"^DD",70050,70050,.01,1,0)
-^.1
-"^DD",70050,70050,.01,1,1,0)
-70050^B
-"^DD",70050,70050,.01,1,1,1)
-S ^C0E(70050,"B",$E(X,1,30),DA)=""
-"^DD",70050,70050,.01,1,1,2)
-K ^C0E(70050,"B",$E(X,1,30),DA)
-"^DD",70050,70050,.01,3)
-NAMESPACED EWD COMPILED PAGE
-"^DD",70050,70050,.01,"DT")
-3100301
-"^DD",70050,70050,.02,0)
-EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
-"^DD",70050,70050,.02,3)
-NAME OF THE EWD APPLICATION
-"^DD",70050,70050,.02,"DT")
-3100301
-"^DD",70050,70050,.03,0)
-EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
-"^DD",70050,70050,.03,3)
-EWD PAGE NAME
-"^DD",70050,70050,.03,"DT")
-3100301
-"^DD",70050,70050,1,0)
-DESCRIPTION^70050.01^^2;0
-"^DD",70050,70050,2,0)
-EWD SOURCE^70050.02^^1;0
-"^DD",70050,70050.01,0)
-DESCRIPTION SUB-FIELD^^.01^1
-"^DD",70050,70050.01,0,"DT")
-3100301
-"^DD",70050,70050.01,0,"NM","DESCRIPTION")
-
-"^DD",70050,70050.01,0,"UP")
-70050
-"^DD",70050,70050.01,.01,0)
-DESCRIPTION^Wx^^0;1
-"^DD",70050,70050.01,.01,3)
-DESCRIPTION OF THE EWD PAGE
-"^DD",70050,70050.01,.01,"DT")
-3100301
-"^DD",70050,70050.02,0)
-EWD SOURCE SUB-FIELD^^.01^1
-"^DD",70050,70050.02,0,"DT")
-3100301
-"^DD",70050,70050.02,0,"NM","EWD SOURCE")
-
-"^DD",70050,70050.02,0,"UP")
-70050
-"^DD",70050,70050.02,.01,0)
-EWD SOURCE^WLx^^0;1
-"^DD",70050,70050.02,.01,3)
-EWD PAGE SOURCE CODE
-"^DD",70050,70050.02,.01,"DT")
-3100301
-"^DIC",70050,70050,0)
-C0EWD ROUTINE MAP^70050
-"^DIC",70050,70050,0,"GL")
-^C0E(70050,
-"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
-
-**END**
-**END**
Index: ccr/trunk/p/C0E0_1_0_0_T3.KID
===================================================================
--- ccr/trunk/p/C0E0_1_0_0_T3.KID (revision 1214)
+++ (revision )
@@ -1,1772 +1,0 @@
-KIDS Distribution saved on Mar 02, 2010@00:57:50
-select only screenman records for the mapping file
-**KIDS**:C0E0*1.0*0^
-
-**INSTALL NAME**
-C0E0*1.0*0
-"BLD",6969,0)
-C0E0*1.0*0^^0^3100302^n
-"BLD",6969,4,0)
-^9.64PA^70050^1
-"BLD",6969,4,70050,0)
-70050
-"BLD",6969,4,70050,222)
-y^y^f^^n^^y^o^n
-"BLD",6969,4,70050,224)
-I $$GET1^DIQ(70050,Y_",",.02)="screenman"
-"BLD",6969,4,"B",70050,70050)
-
-"BLD",6969,6.3)
-3
-"BLD",6969,"KRN",0)
-^9.67PA^8989.52^19
-"BLD",6969,"KRN",.4,0)
-.4
-"BLD",6969,"KRN",.401,0)
-.401
-"BLD",6969,"KRN",.401,"NM",0)
-^9.68A^1^1
-"BLD",6969,"KRN",.401,"NM",1,0)
-C0E SCREENMAN RECORDS FILE #70050^70050^0
-"BLD",6969,"KRN",.401,"NM","B","C0E SCREENMAN RECORDS FILE #70050",1)
-
-"BLD",6969,"KRN",.402,0)
-.402
-"BLD",6969,"KRN",.403,0)
-.403
-"BLD",6969,"KRN",.5,0)
-.5
-"BLD",6969,"KRN",.84,0)
-.84
-"BLD",6969,"KRN",3.6,0)
-3.6
-"BLD",6969,"KRN",3.8,0)
-3.8
-"BLD",6969,"KRN",9.2,0)
-9.2
-"BLD",6969,"KRN",9.8,0)
-9.8
-"BLD",6969,"KRN",9.8,"NM",0)
-^9.68A^8^8
-"BLD",6969,"KRN",9.8,"NM",1,0)
-C0CROB^^0^B1053192
-"BLD",6969,"KRN",9.8,"NM",2,0)
-C0CEX^^0^B811998
-"BLD",6969,"KRN",9.8,"NM",3,0)
-C0E0000A^^0^B14799604
-"BLD",6969,"KRN",9.8,"NM",4,0)
-C0E0000F^^0^B32569634
-"BLD",6969,"KRN",9.8,"NM",5,0)
-C0E0000E^^0^B27501668
-"BLD",6969,"KRN",9.8,"NM",6,0)
-C0E0000R^^0^B66670061
-"BLD",6969,"KRN",9.8,"NM",7,0)
-C0E0001I^^0^B20127196
-"BLD",6969,"KRN",9.8,"NM",8,0)
-C0E0002^^0^B92918287
-"BLD",6969,"KRN",9.8,"NM","B","C0CEX",2)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0CROB",1)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000A",3)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000E",5)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000F",4)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000R",6)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0001I",7)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0002",8)
-
-"BLD",6969,"KRN",19,0)
-19
-"BLD",6969,"KRN",19.1,0)
-19.1
-"BLD",6969,"KRN",101,0)
-101
-"BLD",6969,"KRN",409.61,0)
-409.61
-"BLD",6969,"KRN",771,0)
-771
-"BLD",6969,"KRN",870,0)
-870
-"BLD",6969,"KRN",8989.51,0)
-8989.51
-"BLD",6969,"KRN",8989.52,0)
-8989.52
-"BLD",6969,"KRN",8994,0)
-8994
-"BLD",6969,"KRN","B",.4,.4)
-
-"BLD",6969,"KRN","B",.401,.401)
-
-"BLD",6969,"KRN","B",.402,.402)
-
-"BLD",6969,"KRN","B",.403,.403)
-
-"BLD",6969,"KRN","B",.5,.5)
-
-"BLD",6969,"KRN","B",.84,.84)
-
-"BLD",6969,"KRN","B",3.6,3.6)
-
-"BLD",6969,"KRN","B",3.8,3.8)
-
-"BLD",6969,"KRN","B",9.2,9.2)
-
-"BLD",6969,"KRN","B",9.8,9.8)
-
-"BLD",6969,"KRN","B",19,19)
-
-"BLD",6969,"KRN","B",19.1,19.1)
-
-"BLD",6969,"KRN","B",101,101)
-
-"BLD",6969,"KRN","B",409.61,409.61)
-
-"BLD",6969,"KRN","B",771,771)
-
-"BLD",6969,"KRN","B",870,870)
-
-"BLD",6969,"KRN","B",8989.51,8989.51)
-
-"BLD",6969,"KRN","B",8989.52,8989.52)
-
-"BLD",6969,"KRN","B",8994,8994)
-
-"BLD",6969,"QUES",0)
-^9.62^^
-"DATA",70050,12,0)
-23407^screenman^ewdajaxerror
-"DATA",70050,13,0)
-23408^screenman^ewdajaxerrorredirect
-"DATA",70050,14,0)
-23409^screenman^ewderror
-"DATA",70050,15,0)
-23410^screenman^ewderrorredirect
-"DATA",70050,16,0)
-23411^screenman^index
-"DATA",70050,16,1,0)
-^^10^10^3100301^
-"DATA",70050,16,1,1,0)
-
-"DATA",70050,16,1,2,0)
-
-"DATA",70050,16,1,3,0)
-
-"DATA",70050,16,1,4,0)
-Screenman Menu
-"DATA",70050,16,1,5,0)
-
-"DATA",70050,16,1,6,0)
-
-"DATA",70050,16,1,7,0)
-Hello World
-"DATA",70050,16,1,8,0)
-test1 page
-"DATA",70050,16,1,9,0)
-
-"DATA",70050,16,1,10,0)
-
-"DATA",70050,17,0)
-23412^screenman^test1
-"DATA",70050,17,1,0)
-^70050.02^25^25^3100302^^
-"DATA",70050,17,1,1,0)
-
-"DATA",70050,17,1,2,0)
-
-"DATA",70050,17,1,3,0)
-
-"DATA",70050,17,1,4,0)
-
-"DATA",70050,17,1,9,0)
-Screenman Test
-"DATA",70050,17,1,10,0)
-
-"DATA",70050,17,1,11,0)
-
-"DATA",70050,17,1,12,0)
-
-"DATA",70050,17,1,24,0)
-
-"DATA",70050,17,1,25,0)
-
-"FIA",70050)
-C0EWD ROUTINE MAP
-"FIA",70050,0)
-^C0E(70050,
-"FIA",70050,0,0)
-70050PI
-"FIA",70050,0,1)
-y^y^f^^n^^y^o^n
-"FIA",70050,0,10)
-
-"FIA",70050,0,11)
-I $$GET1^DIQ(70050,Y_",",.02)="screenman"
-"FIA",70050,0,"RLRO")
-
-"FIA",70050,70050)
-0
-"FIA",70050,70050.01)
-0
-"FIA",70050,70050.02)
-0
-"IX",70050,70050,"AZEWD",0)
-70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
-"IX",70050,70050,"AZEWD",1)
-D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",2)
-D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",11.1,0)
-^.114IA^3^3
-"IX",70050,70050,"AZEWD",11.1,1,0)
-1^F^70050^.01^^^F
-"IX",70050,70050,"AZEWD",11.1,2,0)
-2^F^70050^.02^^^F
-"IX",70050,70050,"AZEWD",11.1,3,0)
-3^F^70050^.03^^^F
-"IX",70050,70050,"C",0)
-70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
-"IX",70050,70050,"C",1)
-S ^C0E(70050,"C",$E(X,1,60),DA)=""
-"IX",70050,70050,"C",2)
-K ^C0E(70050,"C",$E(X,1,60),DA)
-"IX",70050,70050,"C",2.5)
-K ^C0E(70050,"C")
-"IX",70050,70050,"C",11.1,0)
-^.114IA^1^1
-"IX",70050,70050,"C",11.1,1,0)
-1^F^70050^.03^60^1^F
-"IX",70050,70050,"C",11.1,1,3)
-
-"KRN",.401,1794,-1)
-0^1
-"KRN",.401,1794,0)
-C0E SCREENMAN RECORDS^3100302.0014^@^70050^^@^3100302
-"KRN",.401,1794,2,0)
-^.4014^1^1
-"KRN",.401,1794,2,1,0)
-70050^.02^EWD APPLICATION^^^^^^^4
-"KRN",.401,1794,2,1,"F")
-screenmamz^screenman
-"KRN",.401,1794,2,1,"GET")
-S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
-"KRN",.401,1794,2,1,"QCON")
-I DISX(1)="screenman"
-"KRN",.401,1794,2,1,"T")
-screenman^screenman
-"KRN",.401,1794,2,1,"TXT")
-EWD APPLICATION equals screenman
-"KRN",.401,1794,2,"B",70050,1)
-
-"MBREQ")
-0
-"ORD",6,.401)
-.401;6;;;EDEOUT^DIFROMSO(.401,DA,"",XPDA);FPRE^DIFROMSI(.401,"",XPDA);EPRE^DIFROMSI(.401,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.401,DA,"",XPDA);DEL^DIFROMSK(.401,"",%)
-"ORD",6,.401,0)
-SORT TEMPLATE
-"QUES","XPF1",0)
-Y
-"QUES","XPF1","??")
-^D REP^XPDH
-"QUES","XPF1","A")
-Shall I write over your |FLAG| File
-"QUES","XPF1","B")
-YES
-"QUES","XPF1","M")
-D XPF1^XPDIQ
-"QUES","XPF2",0)
-Y
-"QUES","XPF2","??")
-^D DTA^XPDH
-"QUES","XPF2","A")
-Want my data |FLAG| yours
-"QUES","XPF2","B")
-YES
-"QUES","XPF2","M")
-D XPF2^XPDIQ
-"QUES","XPI1",0)
-YO
-"QUES","XPI1","??")
-^D INHIBIT^XPDH
-"QUES","XPI1","A")
-Want KIDS to INHIBIT LOGONs during the install
-"QUES","XPI1","B")
-NO
-"QUES","XPI1","M")
-D XPI1^XPDIQ
-"QUES","XPM1",0)
-PO^VA(200,:EM
-"QUES","XPM1","??")
-^D MG^XPDH
-"QUES","XPM1","A")
-Enter the Coordinator for Mail Group '|FLAG|'
-"QUES","XPM1","B")
-
-"QUES","XPM1","M")
-D XPM1^XPDIQ
-"QUES","XPO1",0)
-Y
-"QUES","XPO1","??")
-^D MENU^XPDH
-"QUES","XPO1","A")
-Want KIDS to Rebuild Menu Trees Upon Completion of Install
-"QUES","XPO1","B")
-NO
-"QUES","XPO1","M")
-D XPO1^XPDIQ
-"QUES","XPZ1",0)
-Y
-"QUES","XPZ1","??")
-^D OPT^XPDH
-"QUES","XPZ1","A")
-Want to DISABLE Scheduled Options, Menu Options, and Protocols
-"QUES","XPZ1","B")
-NO
-"QUES","XPZ1","M")
-D XPZ1^XPDIQ
-"QUES","XPZ2",0)
-Y
-"QUES","XPZ2","??")
-^D RTN^XPDH
-"QUES","XPZ2","A")
-Want to MOVE routines to other CPUs
-"QUES","XPZ2","B")
-NO
-"QUES","XPZ2","M")
-D XPZ2^XPDIQ
-"RTN")
-8
-"RTN","C0CEX")
-0^2^B811998
-"RTN","C0CEX",1,0)
-C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
-"RTN","C0CEX",2,0)
- ;;1.0;C0C;;Mar 1, 2010 ;Build 3
-"RTN","C0CEX",3,0)
-SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
-"RTN","C0CEX",4,0)
- ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
-"RTN","C0CEX",5,0)
- N ZR
-"RTN","C0CEX",6,0)
- I $G(ZAPP)="" Q ;
-"RTN","C0CEX",7,0)
- I $G(ZPAGE)="" Q ;
-"RTN","C0CEX",8,0)
- I $G(ZROUTINE)="" Q ;
-"RTN","C0CEX",9,0)
- S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
-"RTN","C0CEX",10,0)
- S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
-"RTN","C0CEX",11,0)
- Q
-"RTN","C0CEX",12,0)
- ;
-"RTN","C0CEX",13,0)
-KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
-"RTN","C0CEX",14,0)
- ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
-"RTN","C0CEX",15,0)
- I $G(ZAPP)="" Q ;
-"RTN","C0CEX",16,0)
- I $G(ZPAGE)="" Q ;
-"RTN","C0CEX",17,0)
- K ^zewd("routineMap",ZAPP,ZPAGE)
-"RTN","C0CEX",18,0)
- Q
-"RTN","C0CROB")
-0^1^B1053192
-"RTN","C0CROB",1,0)
- ;;C0CROB
-"RTN","C0CROB",2,0)
- ;;;;;;Build 3
-"RTN","C0CROB",3,0)
-TEST1(sessid) ;
-"RTN","C0CROB",4,0)
- D setSessionValue^%zewdAPI("name","PROVIDER,TWOHUNDREDNINETYSIX",sessid)
-"RTN","C0CROB",5,0)
- S TITLE=$G(^C0CROB("TITLE"))
-"RTN","C0CROB",6,0)
- I TITLE="" S TITLE="Scholar Extraordinaire"
-"RTN","C0CROB",7,0)
- D setSessionValue^%zewdAPI("TITLE",TITLE,sessid)
-"RTN","C0CROB",8,0)
- Q ""
-"RTN","C0CROB",9,0)
-SAVEFORM(sessid) ;
-"RTN","C0CROB",10,0)
- S TITLE=$$getSessionValue^%zewdAPI("TITLE",sessid)
-"RTN","C0CROB",11,0)
- I TITLE="" Q "You must enter a title"
-"RTN","C0CROB",12,0)
- S ^C0CROB("TITLE")=TITLE
-"RTN","C0CROB",13,0)
- Q ""
-"RTN","C0CROB",14,0)
-VALIDATETITLE(value) ;
-"RTN","C0CROB",15,0)
- I value="" Q "alert('you must enter a title');"
-"RTN","C0CROB",16,0)
- Q ""
-"RTN","C0E0000A")
-0^3^B14799604
-"RTN","C0E0000A",1,0)
- ;GT.M version of page ewdAjaxError (screenman application)
-"RTN","C0E0000A",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 3
-"RTN","C0E0000A",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000A",4,0)
- QUIT
-"RTN","C0E0000A",5,0)
- ;
-"RTN","C0E0000A",6,0)
-run ;
-"RTN","C0E0000A",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000A",8,0)
- s ok=$$pre()
-"RTN","C0E0000A",9,0)
- i ok d body
-"RTN","C0E0000A",10,0)
- QUIT
-"RTN","C0E0000A",11,0)
- ;
-"RTN","C0E0000A",12,0)
-pre() ;
-"RTN","C0E0000A",13,0)
- ;
-"RTN","C0E0000A",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000A",15,0)
- ;
-"RTN","C0E0000A",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000A",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0E0000A",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000A",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0000A",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000A",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000A",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000A",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000A",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000A",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000A",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000A",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxError"
-"RTN","C0E0000A",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000A",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000A",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0000A",31,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000A",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000A",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000A",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000A",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000A",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000A",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000A",38,0)
- . n errorPage
-"RTN","C0E0000A",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000A",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000A",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000A",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000A",43,0)
- s stop=0
-"RTN","C0E0000A",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000A",45,0)
- . n nextpage
-"RTN","C0E0000A",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000A",47,0)
- . i nextpage'="" d
-"RTN","C0E0000A",48,0)
- . . n x
-"RTN","C0E0000A",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000A",50,0)
- . . s stop=1
-"RTN","C0E0000A",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000A",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000A",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000A",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000A",55,0)
- s ctype="text/html"
-"RTN","C0E0000A",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000A",57,0)
- i $d(headers) d
-"RTN","C0E0000A",58,0)
- . n lcname,name
-"RTN","C0E0000A",59,0)
- . s name=""
-"RTN","C0E0000A",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000A",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000A",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000A",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000A",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000A",65,0)
- w $c(13,10)
-"RTN","C0E0000A",66,0)
- QUIT 1
-"RTN","C0E0000A",67,0)
- ;
-"RTN","C0E0000A",68,0)
-body ;
-"RTN","C0E0000A",69,0)
- w ""_$c(13,10)
-"RTN","C0E0000A",70,0)
- w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
-"RTN","C0E0000A",71,0)
- w ""_$c(13,10)
-"RTN","C0E0000A",72,0)
- QUIT
-"RTN","C0E0000E")
-0^5^B27501668
-"RTN","C0E0000E",1,0)
- ;GT.M version of page ewdError (screenman application)
-"RTN","C0E0000E",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 3
-"RTN","C0E0000E",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000E",4,0)
- QUIT
-"RTN","C0E0000E",5,0)
- ;
-"RTN","C0E0000E",6,0)
-run ;
-"RTN","C0E0000E",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000E",8,0)
- s ok=$$pre()
-"RTN","C0E0000E",9,0)
- i ok d body
-"RTN","C0E0000E",10,0)
- QUIT
-"RTN","C0E0000E",11,0)
- ;
-"RTN","C0E0000E",12,0)
-pre() ;
-"RTN","C0E0000E",13,0)
- ;
-"RTN","C0E0000E",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000E",15,0)
- ;
-"RTN","C0E0000E",16,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000E",17,0)
- w "Content-type: text/html"_$c(13,10,13,10)
-"RTN","C0E0000E",18,0)
- QUIT 1
-"RTN","C0E0000E",19,0)
- ;
-"RTN","C0E0000E",20,0)
-body ;
-"RTN","C0E0000E",21,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",22,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",23,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",24,0)
- w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
-"RTN","C0E0000E",25,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",43,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",44,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",45,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",46,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",47,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",48,0)
- w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
-"RTN","C0E0000E",49,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",50,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",51,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",52,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",53,0)
- w "
An Error has occurred
"_$c(13,10)
-"RTN","C0E0000E",54,0)
- w " "_$c(13,10)
-"RTN","C0E0000E",55,0)
- w "
"_$g(%KEY("error"))_"
"_$c(13,10)
-"RTN","C0E0000E",56,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",57,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",58,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",59,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",60,0)
- w " "_$c(13,10)
-"RTN","C0E0000E",63,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",64,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",65,0)
- QUIT
-"RTN","C0E0000F")
-0^4^B32569634
-"RTN","C0E0000F",1,0)
- ;GT.M version of page ewdAjaxErrorRedirect (screenman application)
-"RTN","C0E0000F",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 3
-"RTN","C0E0000F",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000F",4,0)
- QUIT
-"RTN","C0E0000F",5,0)
- ;
-"RTN","C0E0000F",6,0)
-run ;
-"RTN","C0E0000F",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000F",8,0)
- s ok=$$pre()
-"RTN","C0E0000F",9,0)
- i ok d body
-"RTN","C0E0000F",10,0)
- QUIT
-"RTN","C0E0000F",11,0)
- ;
-"RTN","C0E0000F",12,0)
-pre() ;
-"RTN","C0E0000F",13,0)
- ;
-"RTN","C0E0000F",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000F",15,0)
- ;
-"RTN","C0E0000F",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000F",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0000F",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000F",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0000F",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000F",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000F",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000F",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000F",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000F",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000F",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000F",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
-"RTN","C0E0000F",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000F",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000F",30,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0E0000F",31,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0E0000F",32,0)
- s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
-"RTN","C0E0000F",33,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000F",34,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000F",35,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000F",36,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000F",37,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000F",38,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000F",39,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000F",40,0)
- . n errorPage
-"RTN","C0E0000F",41,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000F",42,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000F",43,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000F",44,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000F",45,0)
- s stop=0
-"RTN","C0E0000F",46,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000F",47,0)
- . n nextpage
-"RTN","C0E0000F",48,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000F",49,0)
- . i nextpage'="" d
-"RTN","C0E0000F",50,0)
- . . n x
-"RTN","C0E0000F",51,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000F",52,0)
- . . s stop=1
-"RTN","C0E0000F",53,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000F",54,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000F",55,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000F",56,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000F",57,0)
- s ctype="text/html"
-"RTN","C0E0000F",58,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000F",59,0)
- i $d(headers) d
-"RTN","C0E0000F",60,0)
- . n lcname,name
-"RTN","C0E0000F",61,0)
- . s name=""
-"RTN","C0E0000F",62,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000F",63,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000F",64,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000F",65,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000F",66,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000F",67,0)
- w $c(13,10)
-"RTN","C0E0000F",68,0)
- QUIT 1
-"RTN","C0E0000F",69,0)
- ;
-"RTN","C0E0000F",70,0)
-body ;
-"RTN","C0E0000F",71,0)
- if ($g(Error)="") d
-"RTN","C0E0000F",72,0)
- .w " "_$c(13,10)
-"RTN","C0E0000F",73,0)
- .w "
"_$c(13,10)
-"RTN","C0E0000F",74,0)
- .w "
"_$c(13,10)
-"RTN","C0E0000F",75,0)
- .w " "_$c(13,10)
-"RTN","C0E0000F",76,0)
- .
-"RTN","C0E0000F",77,0)
- w ""_$c(13,10)
-"RTN","C0E0000F",78,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0E0000F",79,0)
- s id=""
-"RTN","C0E0000F",80,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0E0000F",81,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0E0000F",82,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0E0000F",83,0)
- s id=""
-"RTN","C0E0000F",84,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0E0000F",85,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0E0000F",86,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0E0000F",87,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0E0000F",88,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0E0000F",89,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0E0000F",90,0)
- w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
-"RTN","C0E0000F",91,0)
- w ""_$c(13,10)
-"RTN","C0E0000F",92,0)
- QUIT
-"RTN","C0E0000R")
-0^6^B66670061
-"RTN","C0E0000R",1,0)
- ;GT.M version of page ewdErrorRedirect (screenman application)
-"RTN","C0E0000R",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 3
-"RTN","C0E0000R",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000R",4,0)
- QUIT
-"RTN","C0E0000R",5,0)
- ;
-"RTN","C0E0000R",6,0)
-run ;
-"RTN","C0E0000R",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000R",8,0)
- s ok=$$pre()
-"RTN","C0E0000R",9,0)
- i ok d body
-"RTN","C0E0000R",10,0)
- QUIT
-"RTN","C0E0000R",11,0)
- ;
-"RTN","C0E0000R",12,0)
-pre() ;
-"RTN","C0E0000R",13,0)
- ;
-"RTN","C0E0000R",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000R",15,0)
- ;
-"RTN","C0E0000R",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000R",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0000R",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000R",19,0)
- s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
-"RTN","C0E0000R",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000R",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000R",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000R",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000R",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000R",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000R",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000R",27,0)
- s sessionArray("ewd_pageName")="ewdErrorRedirect"
-"RTN","C0E0000R",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000R",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000R",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0000R",31,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",32,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",33,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0E0000R",34,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",35,0)
- s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000R",36,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000R",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000R",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000R",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000R",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000R",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000R",42,0)
- . n errorPage
-"RTN","C0E0000R",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000R",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000R",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000R",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000R",47,0)
- s stop=0
-"RTN","C0E0000R",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000R",49,0)
- . n nextpage
-"RTN","C0E0000R",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000R",51,0)
- . i nextpage'="" d
-"RTN","C0E0000R",52,0)
- . . n x
-"RTN","C0E0000R",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000R",54,0)
- . . s stop=1
-"RTN","C0E0000R",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000R",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000R",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000R",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000R",59,0)
- s ctype="text/html"
-"RTN","C0E0000R",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000R",61,0)
- i $d(headers) d
-"RTN","C0E0000R",62,0)
- . n lcname,name
-"RTN","C0E0000R",63,0)
- . s name=""
-"RTN","C0E0000R",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000R",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000R",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000R",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000R",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000R",69,0)
- w $c(13,10)
-"RTN","C0E0000R",70,0)
- QUIT 1
-"RTN","C0E0000R",71,0)
- ;
-"RTN","C0E0000R",72,0)
-body ;
-"RTN","C0E0000R",73,0)
- w ""_$c(13,10)
-"RTN","C0E0000R",74,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",75,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",76,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",78,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",79,0)
- w "Ajax Error Redirect page"_""
-"RTN","C0E0000R",80,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",81,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",82,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",83,0)
- w "Please wait...."_""
-"RTN","C0E0000R",84,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",85,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",86,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",133,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",134,0)
- w ""_$c(13,10)
-"RTN","C0E0000R",135,0)
- QUIT
-"RTN","C0E0001I")
-0^7^B20127196
-"RTN","C0E0001I",1,0)
- ;GT.M version of page index (screenman application)
-"RTN","C0E0001I",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 3
-"RTN","C0E0001I",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0001I",4,0)
- QUIT
-"RTN","C0E0001I",5,0)
- ;
-"RTN","C0E0001I",6,0)
-run ;
-"RTN","C0E0001I",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0001I",8,0)
- s ok=$$pre()
-"RTN","C0E0001I",9,0)
- i ok d body
-"RTN","C0E0001I",10,0)
- QUIT
-"RTN","C0E0001I",11,0)
- ;
-"RTN","C0E0001I",12,0)
-pre() ;
-"RTN","C0E0001I",13,0)
- ;
-"RTN","C0E0001I",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0001I",15,0)
- ;
-"RTN","C0E0001I",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0001I",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0E0001I",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0001I",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0001I",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0001I",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0001I",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0001I",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0001I",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0001I",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0001I",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0001I",27,0)
- s sessionArray("ewd_pageName")="index"
-"RTN","C0E0001I",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0001I",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0001I",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0001I",31,0)
- s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
-"RTN","C0E0001I",32,0)
- s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0001I",33,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0001I",34,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0001I",35,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0001I",36,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0001I",37,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0001I",38,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0001I",39,0)
- . n errorPage
-"RTN","C0E0001I",40,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0001I",41,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0001I",42,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0001I",43,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0001I",44,0)
- s stop=0
-"RTN","C0E0001I",45,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0001I",46,0)
- . n nextpage
-"RTN","C0E0001I",47,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0001I",48,0)
- . i nextpage'="" d
-"RTN","C0E0001I",49,0)
- . . n x
-"RTN","C0E0001I",50,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0001I",51,0)
- . . s stop=1
-"RTN","C0E0001I",52,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0001I",53,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0001I",54,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0001I",55,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0001I",56,0)
- s ctype="text/html"
-"RTN","C0E0001I",57,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0001I",58,0)
- i $d(headers) d
-"RTN","C0E0001I",59,0)
- . n lcname,name
-"RTN","C0E0001I",60,0)
- . s name=""
-"RTN","C0E0001I",61,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0001I",62,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0001I",63,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0001I",64,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0001I",65,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0001I",66,0)
- w $c(13,10)
-"RTN","C0E0001I",67,0)
- QUIT 1
-"RTN","C0E0001I",68,0)
- ;
-"RTN","C0E0001I",69,0)
-body ;
-"RTN","C0E0001I",70,0)
- w ""_$c(13,10)
-"RTN","C0E0001I",71,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",72,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",73,0)
- w "Screenman Menu"_""
-"RTN","C0E0001I",74,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",75,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",76,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",77,0)
- w "Hello World"_""
-"RTN","C0E0001I",78,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",79,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",80,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",81,0)
- w "test1 page"_""
-"RTN","C0E0001I",82,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",83,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",84,0)
- w ""_$c(13,10)
-"RTN","C0E0001I",85,0)
- QUIT
-"RTN","C0E0002")
-0^8^B92918287
-"RTN","C0E0002",1,0)
- ;GT.M version of page test1 (screenman application)
-"RTN","C0E0002",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 3
-"RTN","C0E0002",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0002",4,0)
- QUIT
-"RTN","C0E0002",5,0)
- ;
-"RTN","C0E0002",6,0)
-run ;
-"RTN","C0E0002",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0002",8,0)
- s ok=$$pre()
-"RTN","C0E0002",9,0)
- i ok d body
-"RTN","C0E0002",10,0)
- QUIT
-"RTN","C0E0002",11,0)
- ;
-"RTN","C0E0002",12,0)
-pre() ;
-"RTN","C0E0002",13,0)
- ;
-"RTN","C0E0002",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0002",15,0)
- ;
-"RTN","C0E0002",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0002",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0002",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0002",19,0)
- s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
-"RTN","C0E0002",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0002",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0002",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0002",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0002",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0002",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0002",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0002",27,0)
- s sessionArray("ewd_pageName")="test1"
-"RTN","C0E0002",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0002",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0002",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0002",31,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0E0002",32,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0E0002",33,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0E0002",34,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0E0002",35,0)
- s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
-"RTN","C0E0002",36,0)
- s formInfo="SSN|text`TITLE|text`ewd_pressed|hidden`submit|submit`"
-"RTN","C0E0002",37,0)
- d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
-"RTN","C0E0002",38,0)
- s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0002",39,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0002",40,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0002",41,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0002",42,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0002",43,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0002",44,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0002",45,0)
- . n errorPage
-"RTN","C0E0002",46,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0002",47,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0002",48,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0002",49,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0002",50,0)
- s stop=0
-"RTN","C0E0002",51,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0002",52,0)
- . n nextpage
-"RTN","C0E0002",53,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0002",54,0)
- . i nextpage'="" d
-"RTN","C0E0002",55,0)
- . . n x
-"RTN","C0E0002",56,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0002",57,0)
- . . s stop=1
-"RTN","C0E0002",58,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0002",59,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0002",60,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0002",61,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0002",62,0)
- s ctype="text/html"
-"RTN","C0E0002",63,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0002",64,0)
- i $d(headers) d
-"RTN","C0E0002",65,0)
- . n lcname,name
-"RTN","C0E0002",66,0)
- . s name=""
-"RTN","C0E0002",67,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0002",68,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0002",69,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0002",70,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0002",71,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0002",72,0)
- w $c(13,10)
-"RTN","C0E0002",73,0)
- QUIT 1
-"RTN","C0E0002",74,0)
- ;
-"RTN","C0E0002",75,0)
-body ;
-"RTN","C0E0002",76,0)
- w ""_$c(13,10)
-"RTN","C0E0002",77,0)
- w " "_$c(13,10)
-"RTN","C0E0002",78,0)
- w " "_$c(13,10)
-"RTN","C0E0002",79,0)
- w " "_$c(13,10)
-"RTN","C0E0002",81,0)
- w " "_$c(13,10)
-"RTN","C0E0002",88,0)
- w " "_$c(13,10)
-"RTN","C0E0002",89,0)
- w "Screenman Test"_""
-"RTN","C0E0002",90,0)
- w " "_$c(13,10)
-"RTN","C0E0002",91,0)
- w " "_$c(13,10)
-"RTN","C0E0002",138,0)
- w " "_$c(13,10)
-"RTN","C0E0002",139,0)
- w " "_$c(13,10)
-"RTN","C0E0002",140,0)
- w " "_$c(13,10)
-"RTN","C0E0002",160,0)
- w " "_$c(13,10)
-"RTN","C0E0002",161,0)
- w ""_$c(13,10)
-"RTN","C0E0002",162,0)
- QUIT
-"SEC","^DIC",70050,70050,0,"AUDIT")
-@
-"SEC","^DIC",70050,70050,0,"DD")
-@
-"SEC","^DIC",70050,70050,0,"DEL")
-@
-"SEC","^DIC",70050,70050,0,"LAYGO")
-@
-"SEC","^DIC",70050,70050,0,"RD")
-@
-"SEC","^DIC",70050,70050,0,"WR")
-@
-"VER")
-8.0^22.0
-"^DD",70050,70050,0)
-FIELD^^1^5
-"^DD",70050,70050,0,"DDA")
-N
-"^DD",70050,70050,0,"DT")
-3100301
-"^DD",70050,70050,0,"ID",.02)
-W " ",$P(^(0),U,2)
-"^DD",70050,70050,0,"ID",.03)
-W " ",$P(^(0),U,3)
-"^DD",70050,70050,0,"IX","B",70050,.01)
-
-"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
-
-"^DD",70050,70050,.01,0)
-EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
-"^DD",70050,70050,.01,1,0)
-^.1
-"^DD",70050,70050,.01,1,1,0)
-70050^B
-"^DD",70050,70050,.01,1,1,1)
-S ^C0E(70050,"B",$E(X,1,30),DA)=""
-"^DD",70050,70050,.01,1,1,2)
-K ^C0E(70050,"B",$E(X,1,30),DA)
-"^DD",70050,70050,.01,3)
-NAMESPACED EWD COMPILED PAGE
-"^DD",70050,70050,.01,"DT")
-3100301
-"^DD",70050,70050,.02,0)
-EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
-"^DD",70050,70050,.02,3)
-NAME OF THE EWD APPLICATION
-"^DD",70050,70050,.02,"DT")
-3100301
-"^DD",70050,70050,.03,0)
-EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
-"^DD",70050,70050,.03,3)
-EWD PAGE NAME
-"^DD",70050,70050,.03,"DT")
-3100301
-"^DD",70050,70050,1,0)
-DESCRIPTION^70050.01^^2;0
-"^DD",70050,70050,2,0)
-EWD SOURCE^70050.02^^1;0
-"^DD",70050,70050.01,0)
-DESCRIPTION SUB-FIELD^^.01^1
-"^DD",70050,70050.01,0,"DT")
-3100301
-"^DD",70050,70050.01,0,"NM","DESCRIPTION")
-
-"^DD",70050,70050.01,0,"UP")
-70050
-"^DD",70050,70050.01,.01,0)
-DESCRIPTION^Wx^^0;1
-"^DD",70050,70050.01,.01,3)
-DESCRIPTION OF THE EWD PAGE
-"^DD",70050,70050.01,.01,"DT")
-3100301
-"^DD",70050,70050.02,0)
-EWD SOURCE SUB-FIELD^^.01^1
-"^DD",70050,70050.02,0,"DT")
-3100301
-"^DD",70050,70050.02,0,"NM","EWD SOURCE")
-
-"^DD",70050,70050.02,0,"UP")
-70050
-"^DD",70050,70050.02,.01,0)
-EWD SOURCE^WLx^^0;1
-"^DD",70050,70050.02,.01,3)
-EWD PAGE SOURCE CODE
-"^DD",70050,70050.02,.01,"DT")
-3100301
-"^DIC",70050,70050,0)
-C0EWD ROUTINE MAP^70050
-"^DIC",70050,70050,0,"GL")
-^C0E(70050,
-"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
-
-**END**
-**END**
Index: ccr/trunk/p/C0E0_1_0_0_T4.KID
===================================================================
--- ccr/trunk/p/C0E0_1_0_0_T4.KID (revision 1214)
+++ (revision )
@@ -1,1788 +1,0 @@
-KIDS Distribution saved on Mar 03, 2010@23:34:41
-resolve pointers
-**KIDS**:C0E0*1.0*0^
-
-**INSTALL NAME**
-C0E0*1.0*0
-"BLD",6969,0)
-C0E0*1.0*0^^0^3100303^n
-"BLD",6969,4,0)
-^9.64PA^70050^1
-"BLD",6969,4,70050,0)
-70050
-"BLD",6969,4,70050,222)
-y^y^f^^y^^y^o^n
-"BLD",6969,4,70050,224)
-I $$GET1^DIQ(70050,Y_",",.02)="screenman"
-"BLD",6969,4,"B",70050,70050)
-
-"BLD",6969,6.3)
-5
-"BLD",6969,"KRN",0)
-^9.67PA^8989.52^19
-"BLD",6969,"KRN",.4,0)
-.4
-"BLD",6969,"KRN",.401,0)
-.401
-"BLD",6969,"KRN",.401,"NM",0)
-^9.68A^1^1
-"BLD",6969,"KRN",.401,"NM",1,0)
-C0E SCREENMAN RECORDS FILE #70050^70050^0
-"BLD",6969,"KRN",.401,"NM","B","C0E SCREENMAN RECORDS FILE #70050",1)
-
-"BLD",6969,"KRN",.402,0)
-.402
-"BLD",6969,"KRN",.403,0)
-.403
-"BLD",6969,"KRN",.5,0)
-.5
-"BLD",6969,"KRN",.84,0)
-.84
-"BLD",6969,"KRN",3.6,0)
-3.6
-"BLD",6969,"KRN",3.8,0)
-3.8
-"BLD",6969,"KRN",9.2,0)
-9.2
-"BLD",6969,"KRN",9.8,0)
-9.8
-"BLD",6969,"KRN",9.8,"NM",0)
-^9.68A^8^8
-"BLD",6969,"KRN",9.8,"NM",1,0)
-C0CROB^^0^B1053192
-"BLD",6969,"KRN",9.8,"NM",2,0)
-C0CEX^^0^B811998
-"BLD",6969,"KRN",9.8,"NM",3,0)
-C0E0000A^^0^B14799604
-"BLD",6969,"KRN",9.8,"NM",4,0)
-C0E0000F^^0^B32569634
-"BLD",6969,"KRN",9.8,"NM",5,0)
-C0E0000E^^0^B27501668
-"BLD",6969,"KRN",9.8,"NM",6,0)
-C0E0000R^^0^B66670061
-"BLD",6969,"KRN",9.8,"NM",7,0)
-C0E0001I^^0^B20127196
-"BLD",6969,"KRN",9.8,"NM",8,0)
-C0E0002^^0^B92918287
-"BLD",6969,"KRN",9.8,"NM","B","C0CEX",2)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0CROB",1)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000A",3)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000E",5)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000F",4)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000R",6)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0001I",7)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0002",8)
-
-"BLD",6969,"KRN",19,0)
-19
-"BLD",6969,"KRN",19.1,0)
-19.1
-"BLD",6969,"KRN",101,0)
-101
-"BLD",6969,"KRN",409.61,0)
-409.61
-"BLD",6969,"KRN",771,0)
-771
-"BLD",6969,"KRN",870,0)
-870
-"BLD",6969,"KRN",8989.51,0)
-8989.51
-"BLD",6969,"KRN",8989.52,0)
-8989.52
-"BLD",6969,"KRN",8994,0)
-8994
-"BLD",6969,"KRN","B",.4,.4)
-
-"BLD",6969,"KRN","B",.401,.401)
-
-"BLD",6969,"KRN","B",.402,.402)
-
-"BLD",6969,"KRN","B",.403,.403)
-
-"BLD",6969,"KRN","B",.5,.5)
-
-"BLD",6969,"KRN","B",.84,.84)
-
-"BLD",6969,"KRN","B",3.6,3.6)
-
-"BLD",6969,"KRN","B",3.8,3.8)
-
-"BLD",6969,"KRN","B",9.2,9.2)
-
-"BLD",6969,"KRN","B",9.8,9.8)
-
-"BLD",6969,"KRN","B",19,19)
-
-"BLD",6969,"KRN","B",19.1,19.1)
-
-"BLD",6969,"KRN","B",101,101)
-
-"BLD",6969,"KRN","B",409.61,409.61)
-
-"BLD",6969,"KRN","B",771,771)
-
-"BLD",6969,"KRN","B",870,870)
-
-"BLD",6969,"KRN","B",8989.51,8989.51)
-
-"BLD",6969,"KRN","B",8989.52,8989.52)
-
-"BLD",6969,"KRN","B",8994,8994)
-
-"BLD",6969,"QUES",0)
-^9.62^^
-"DATA",70050,12,0)
-23407^screenman^ewdajaxerror
-"DATA",70050,13,0)
-23408^screenman^ewdajaxerrorredirect
-"DATA",70050,14,0)
-23409^screenman^ewderror
-"DATA",70050,15,0)
-23410^screenman^ewderrorredirect
-"DATA",70050,16,0)
-23411^screenman^index
-"DATA",70050,16,1,0)
-^^10^10^3100301^
-"DATA",70050,16,1,1,0)
-
-"DATA",70050,16,1,2,0)
-
-"DATA",70050,16,1,3,0)
-
-"DATA",70050,16,1,4,0)
-Screenman Menu
-"DATA",70050,16,1,5,0)
-
-"DATA",70050,16,1,6,0)
-
-"DATA",70050,16,1,7,0)
-Hello World
-"DATA",70050,16,1,8,0)
-test1 page
-"DATA",70050,16,1,9,0)
-
-"DATA",70050,16,1,10,0)
-
-"DATA",70050,17,0)
-23412^screenman^test1
-"DATA",70050,17,1,0)
-^^25^25^3100302^
-"DATA",70050,17,1,1,0)
-
-"DATA",70050,17,1,2,0)
-
-"DATA",70050,17,1,3,0)
-
-"DATA",70050,17,1,4,0)
-
-"DATA",70050,17,1,9,0)
-Screenman Test
-"DATA",70050,17,1,10,0)
-
-"DATA",70050,17,1,11,0)
-
-"DATA",70050,17,1,12,0)
-
-"DATA",70050,17,1,24,0)
-
-"DATA",70050,17,1,25,0)
-
-"FIA",70050)
-C0EWD ROUTINE MAP
-"FIA",70050,0)
-^C0E(70050,
-"FIA",70050,0,0)
-70050PI
-"FIA",70050,0,1)
-y^y^f^^y^^y^o^n
-"FIA",70050,0,10)
-
-"FIA",70050,0,11)
-I $$GET1^DIQ(70050,Y_",",.02)="screenman"
-"FIA",70050,0,"RLRO")
-
-"FIA",70050,70050)
-0
-"FIA",70050,70050.01)
-0
-"FIA",70050,70050.02)
-0
-"IX",70050,70050,"AZEWD",0)
-70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
-"IX",70050,70050,"AZEWD",1)
-D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",2)
-D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",11.1,0)
-^.114IA^3^3
-"IX",70050,70050,"AZEWD",11.1,1,0)
-1^F^70050^.01^^^F
-"IX",70050,70050,"AZEWD",11.1,2,0)
-2^F^70050^.02^^^F
-"IX",70050,70050,"AZEWD",11.1,3,0)
-3^F^70050^.03^^^F
-"IX",70050,70050,"C",0)
-70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
-"IX",70050,70050,"C",1)
-S ^C0E(70050,"C",$E(X,1,60),DA)=""
-"IX",70050,70050,"C",2)
-K ^C0E(70050,"C",$E(X,1,60),DA)
-"IX",70050,70050,"C",2.5)
-K ^C0E(70050,"C")
-"IX",70050,70050,"C",11.1,0)
-^.114IA^1^1
-"IX",70050,70050,"C",11.1,1,0)
-1^F^70050^.03^60^1^F
-"IX",70050,70050,"C",11.1,1,3)
-
-"IX",70050,70050,"D",0)
-70050^D^REGULAR INDEX OF THE APPLICATION INDEX^R^^F^IR^I^70050^^^^^LS
-"IX",70050,70050,"D",1)
-S ^C0E(70050,"D",$E(X,1,60),DA)=""
-"IX",70050,70050,"D",2)
-K ^C0E(70050,"D",$E(X,1,60),DA)
-"IX",70050,70050,"D",2.5)
-K ^C0E(70050,"D")
-"IX",70050,70050,"D",11.1,0)
-^.114IA^1^1
-"IX",70050,70050,"D",11.1,1,0)
-1^F^70050^.02^60^1^F
-"IX",70050,70050,"D",11.1,1,3)
-
-"KRN",.401,1794,-1)
-0^1
-"KRN",.401,1794,0)
-C0E SCREENMAN RECORDS^3100302.0014^@^70050^^@^3100302
-"KRN",.401,1794,2,0)
-^.4014^1^1
-"KRN",.401,1794,2,1,0)
-70050^.02^EWD APPLICATION^^^^^^^4
-"KRN",.401,1794,2,1,"F")
-screenmamz^screenman
-"KRN",.401,1794,2,1,"GET")
-S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
-"KRN",.401,1794,2,1,"QCON")
-I DISX(1)="screenman"
-"KRN",.401,1794,2,1,"T")
-screenman^screenman
-"KRN",.401,1794,2,1,"TXT")
-EWD APPLICATION equals screenman
-"KRN",.401,1794,2,"B",70050,1)
-
-"MBREQ")
-0
-"ORD",6,.401)
-.401;6;;;EDEOUT^DIFROMSO(.401,DA,"",XPDA);FPRE^DIFROMSI(.401,"",XPDA);EPRE^DIFROMSI(.401,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.401,DA,"",XPDA);DEL^DIFROMSK(.401,"",%)
-"ORD",6,.401,0)
-SORT TEMPLATE
-"QUES","XPF1",0)
-Y
-"QUES","XPF1","??")
-^D REP^XPDH
-"QUES","XPF1","A")
-Shall I write over your |FLAG| File
-"QUES","XPF1","B")
-YES
-"QUES","XPF1","M")
-D XPF1^XPDIQ
-"QUES","XPF2",0)
-Y
-"QUES","XPF2","??")
-^D DTA^XPDH
-"QUES","XPF2","A")
-Want my data |FLAG| yours
-"QUES","XPF2","B")
-YES
-"QUES","XPF2","M")
-D XPF2^XPDIQ
-"QUES","XPI1",0)
-YO
-"QUES","XPI1","??")
-^D INHIBIT^XPDH
-"QUES","XPI1","A")
-Want KIDS to INHIBIT LOGONs during the install
-"QUES","XPI1","B")
-NO
-"QUES","XPI1","M")
-D XPI1^XPDIQ
-"QUES","XPM1",0)
-PO^VA(200,:EM
-"QUES","XPM1","??")
-^D MG^XPDH
-"QUES","XPM1","A")
-Enter the Coordinator for Mail Group '|FLAG|'
-"QUES","XPM1","B")
-
-"QUES","XPM1","M")
-D XPM1^XPDIQ
-"QUES","XPO1",0)
-Y
-"QUES","XPO1","??")
-^D MENU^XPDH
-"QUES","XPO1","A")
-Want KIDS to Rebuild Menu Trees Upon Completion of Install
-"QUES","XPO1","B")
-NO
-"QUES","XPO1","M")
-D XPO1^XPDIQ
-"QUES","XPZ1",0)
-Y
-"QUES","XPZ1","??")
-^D OPT^XPDH
-"QUES","XPZ1","A")
-Want to DISABLE Scheduled Options, Menu Options, and Protocols
-"QUES","XPZ1","B")
-NO
-"QUES","XPZ1","M")
-D XPZ1^XPDIQ
-"QUES","XPZ2",0)
-Y
-"QUES","XPZ2","??")
-^D RTN^XPDH
-"QUES","XPZ2","A")
-Want to MOVE routines to other CPUs
-"QUES","XPZ2","B")
-NO
-"QUES","XPZ2","M")
-D XPZ2^XPDIQ
-"RTN")
-8
-"RTN","C0CEX")
-0^2^B811998
-"RTN","C0CEX",1,0)
-C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
-"RTN","C0CEX",2,0)
- ;;1.0;C0C;;Mar 1, 2010 ;Build 5
-"RTN","C0CEX",3,0)
-SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
-"RTN","C0CEX",4,0)
- ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
-"RTN","C0CEX",5,0)
- N ZR
-"RTN","C0CEX",6,0)
- I $G(ZAPP)="" Q ;
-"RTN","C0CEX",7,0)
- I $G(ZPAGE)="" Q ;
-"RTN","C0CEX",8,0)
- I $G(ZROUTINE)="" Q ;
-"RTN","C0CEX",9,0)
- S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
-"RTN","C0CEX",10,0)
- S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
-"RTN","C0CEX",11,0)
- Q
-"RTN","C0CEX",12,0)
- ;
-"RTN","C0CEX",13,0)
-KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
-"RTN","C0CEX",14,0)
- ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
-"RTN","C0CEX",15,0)
- I $G(ZAPP)="" Q ;
-"RTN","C0CEX",16,0)
- I $G(ZPAGE)="" Q ;
-"RTN","C0CEX",17,0)
- K ^zewd("routineMap",ZAPP,ZPAGE)
-"RTN","C0CEX",18,0)
- Q
-"RTN","C0CROB")
-0^1^B1053192
-"RTN","C0CROB",1,0)
- ;;C0CROB
-"RTN","C0CROB",2,0)
- ;;;;;;Build 5
-"RTN","C0CROB",3,0)
-TEST1(sessid) ;
-"RTN","C0CROB",4,0)
- D setSessionValue^%zewdAPI("name","PROVIDER,TWOHUNDREDNINETYSIX",sessid)
-"RTN","C0CROB",5,0)
- S TITLE=$G(^C0CROB("TITLE"))
-"RTN","C0CROB",6,0)
- I TITLE="" S TITLE="Scholar Extraordinaire"
-"RTN","C0CROB",7,0)
- D setSessionValue^%zewdAPI("TITLE",TITLE,sessid)
-"RTN","C0CROB",8,0)
- Q ""
-"RTN","C0CROB",9,0)
-SAVEFORM(sessid) ;
-"RTN","C0CROB",10,0)
- S TITLE=$$getSessionValue^%zewdAPI("TITLE",sessid)
-"RTN","C0CROB",11,0)
- I TITLE="" Q "You must enter a title"
-"RTN","C0CROB",12,0)
- S ^C0CROB("TITLE")=TITLE
-"RTN","C0CROB",13,0)
- Q ""
-"RTN","C0CROB",14,0)
-VALIDATETITLE(value) ;
-"RTN","C0CROB",15,0)
- I value="" Q "alert('you must enter a title');"
-"RTN","C0CROB",16,0)
- Q ""
-"RTN","C0CROB",17,0)
- ;
-"RTN","C0E0000A")
-0^3^B14799604
-"RTN","C0E0000A",1,0)
- ;GT.M version of page ewdAjaxError (screenman application)
-"RTN","C0E0000A",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 5
-"RTN","C0E0000A",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000A",4,0)
- QUIT
-"RTN","C0E0000A",5,0)
- ;
-"RTN","C0E0000A",6,0)
-run ;
-"RTN","C0E0000A",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000A",8,0)
- s ok=$$pre()
-"RTN","C0E0000A",9,0)
- i ok d body
-"RTN","C0E0000A",10,0)
- QUIT
-"RTN","C0E0000A",11,0)
- ;
-"RTN","C0E0000A",12,0)
-pre() ;
-"RTN","C0E0000A",13,0)
- ;
-"RTN","C0E0000A",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000A",15,0)
- ;
-"RTN","C0E0000A",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000A",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0E0000A",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000A",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0000A",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000A",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000A",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000A",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000A",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000A",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000A",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000A",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxError"
-"RTN","C0E0000A",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000A",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000A",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0000A",31,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000A",32,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000A",33,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000A",34,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000A",35,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000A",36,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000A",37,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000A",38,0)
- . n errorPage
-"RTN","C0E0000A",39,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000A",40,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000A",41,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000A",42,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000A",43,0)
- s stop=0
-"RTN","C0E0000A",44,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000A",45,0)
- . n nextpage
-"RTN","C0E0000A",46,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000A",47,0)
- . i nextpage'="" d
-"RTN","C0E0000A",48,0)
- . . n x
-"RTN","C0E0000A",49,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000A",50,0)
- . . s stop=1
-"RTN","C0E0000A",51,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000A",52,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000A",53,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000A",54,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000A",55,0)
- s ctype="text/html"
-"RTN","C0E0000A",56,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000A",57,0)
- i $d(headers) d
-"RTN","C0E0000A",58,0)
- . n lcname,name
-"RTN","C0E0000A",59,0)
- . s name=""
-"RTN","C0E0000A",60,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000A",61,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000A",62,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000A",63,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000A",64,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000A",65,0)
- w $c(13,10)
-"RTN","C0E0000A",66,0)
- QUIT 1
-"RTN","C0E0000A",67,0)
- ;
-"RTN","C0E0000A",68,0)
-body ;
-"RTN","C0E0000A",69,0)
- w ""_$c(13,10)
-"RTN","C0E0000A",70,0)
- w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
-"RTN","C0E0000A",71,0)
- w ""_$c(13,10)
-"RTN","C0E0000A",72,0)
- QUIT
-"RTN","C0E0000E")
-0^5^B27501668
-"RTN","C0E0000E",1,0)
- ;GT.M version of page ewdError (screenman application)
-"RTN","C0E0000E",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 5
-"RTN","C0E0000E",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000E",4,0)
- QUIT
-"RTN","C0E0000E",5,0)
- ;
-"RTN","C0E0000E",6,0)
-run ;
-"RTN","C0E0000E",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000E",8,0)
- s ok=$$pre()
-"RTN","C0E0000E",9,0)
- i ok d body
-"RTN","C0E0000E",10,0)
- QUIT
-"RTN","C0E0000E",11,0)
- ;
-"RTN","C0E0000E",12,0)
-pre() ;
-"RTN","C0E0000E",13,0)
- ;
-"RTN","C0E0000E",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000E",15,0)
- ;
-"RTN","C0E0000E",16,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000E",17,0)
- w "Content-type: text/html"_$c(13,10,13,10)
-"RTN","C0E0000E",18,0)
- QUIT 1
-"RTN","C0E0000E",19,0)
- ;
-"RTN","C0E0000E",20,0)
-body ;
-"RTN","C0E0000E",21,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",22,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",23,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",24,0)
- w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
-"RTN","C0E0000E",25,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",43,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",44,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",45,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",46,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",47,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",48,0)
- w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
-"RTN","C0E0000E",49,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",50,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",51,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",52,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",53,0)
- w "
An Error has occurred
"_$c(13,10)
-"RTN","C0E0000E",54,0)
- w " "_$c(13,10)
-"RTN","C0E0000E",55,0)
- w "
"_$g(%KEY("error"))_"
"_$c(13,10)
-"RTN","C0E0000E",56,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",57,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",58,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",59,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",60,0)
- w " "_$c(13,10)
-"RTN","C0E0000E",63,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",64,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",65,0)
- QUIT
-"RTN","C0E0000F")
-0^4^B32569634
-"RTN","C0E0000F",1,0)
- ;GT.M version of page ewdAjaxErrorRedirect (screenman application)
-"RTN","C0E0000F",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 5
-"RTN","C0E0000F",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000F",4,0)
- QUIT
-"RTN","C0E0000F",5,0)
- ;
-"RTN","C0E0000F",6,0)
-run ;
-"RTN","C0E0000F",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000F",8,0)
- s ok=$$pre()
-"RTN","C0E0000F",9,0)
- i ok d body
-"RTN","C0E0000F",10,0)
- QUIT
-"RTN","C0E0000F",11,0)
- ;
-"RTN","C0E0000F",12,0)
-pre() ;
-"RTN","C0E0000F",13,0)
- ;
-"RTN","C0E0000F",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000F",15,0)
- ;
-"RTN","C0E0000F",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000F",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0000F",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000F",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0000F",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000F",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000F",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000F",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000F",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000F",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000F",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000F",27,0)
- s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
-"RTN","C0E0000F",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000F",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000F",30,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0E0000F",31,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0E0000F",32,0)
- s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
-"RTN","C0E0000F",33,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000F",34,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000F",35,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000F",36,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000F",37,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000F",38,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000F",39,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000F",40,0)
- . n errorPage
-"RTN","C0E0000F",41,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000F",42,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000F",43,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000F",44,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000F",45,0)
- s stop=0
-"RTN","C0E0000F",46,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000F",47,0)
- . n nextpage
-"RTN","C0E0000F",48,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000F",49,0)
- . i nextpage'="" d
-"RTN","C0E0000F",50,0)
- . . n x
-"RTN","C0E0000F",51,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000F",52,0)
- . . s stop=1
-"RTN","C0E0000F",53,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000F",54,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000F",55,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000F",56,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000F",57,0)
- s ctype="text/html"
-"RTN","C0E0000F",58,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000F",59,0)
- i $d(headers) d
-"RTN","C0E0000F",60,0)
- . n lcname,name
-"RTN","C0E0000F",61,0)
- . s name=""
-"RTN","C0E0000F",62,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000F",63,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000F",64,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000F",65,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000F",66,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000F",67,0)
- w $c(13,10)
-"RTN","C0E0000F",68,0)
- QUIT 1
-"RTN","C0E0000F",69,0)
- ;
-"RTN","C0E0000F",70,0)
-body ;
-"RTN","C0E0000F",71,0)
- if ($g(Error)="") d
-"RTN","C0E0000F",72,0)
- .w " "_$c(13,10)
-"RTN","C0E0000F",73,0)
- .w "
"_$c(13,10)
-"RTN","C0E0000F",74,0)
- .w "
"_$c(13,10)
-"RTN","C0E0000F",75,0)
- .w " "_$c(13,10)
-"RTN","C0E0000F",76,0)
- .
-"RTN","C0E0000F",77,0)
- w ""_$c(13,10)
-"RTN","C0E0000F",78,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0E0000F",79,0)
- s id=""
-"RTN","C0E0000F",80,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0E0000F",81,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0E0000F",82,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0E0000F",83,0)
- s id=""
-"RTN","C0E0000F",84,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0E0000F",85,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0E0000F",86,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0E0000F",87,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0E0000F",88,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0E0000F",89,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0E0000F",90,0)
- w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
-"RTN","C0E0000F",91,0)
- w ""_$c(13,10)
-"RTN","C0E0000F",92,0)
- QUIT
-"RTN","C0E0000R")
-0^6^B66670061
-"RTN","C0E0000R",1,0)
- ;GT.M version of page ewdErrorRedirect (screenman application)
-"RTN","C0E0000R",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22;;;;;Build 5
-"RTN","C0E0000R",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000R",4,0)
- QUIT
-"RTN","C0E0000R",5,0)
- ;
-"RTN","C0E0000R",6,0)
-run ;
-"RTN","C0E0000R",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000R",8,0)
- s ok=$$pre()
-"RTN","C0E0000R",9,0)
- i ok d body
-"RTN","C0E0000R",10,0)
- QUIT
-"RTN","C0E0000R",11,0)
- ;
-"RTN","C0E0000R",12,0)
-pre() ;
-"RTN","C0E0000R",13,0)
- ;
-"RTN","C0E0000R",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000R",15,0)
- ;
-"RTN","C0E0000R",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000R",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0000R",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000R",19,0)
- s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
-"RTN","C0E0000R",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000R",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000R",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000R",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000R",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000R",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000R",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000R",27,0)
- s sessionArray("ewd_pageName")="ewdErrorRedirect"
-"RTN","C0E0000R",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000R",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000R",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0000R",31,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",32,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",33,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0E0000R",34,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",35,0)
- s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000R",36,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000R",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000R",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000R",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000R",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000R",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000R",42,0)
- . n errorPage
-"RTN","C0E0000R",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000R",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000R",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000R",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000R",47,0)
- s stop=0
-"RTN","C0E0000R",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000R",49,0)
- . n nextpage
-"RTN","C0E0000R",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000R",51,0)
- . i nextpage'="" d
-"RTN","C0E0000R",52,0)
- . . n x
-"RTN","C0E0000R",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000R",54,0)
- . . s stop=1
-"RTN","C0E0000R",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000R",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000R",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000R",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000R",59,0)
- s ctype="text/html"
-"RTN","C0E0000R",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000R",61,0)
- i $d(headers) d
-"RTN","C0E0000R",62,0)
- . n lcname,name
-"RTN","C0E0000R",63,0)
- . s name=""
-"RTN","C0E0000R",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000R",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000R",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000R",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000R",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000R",69,0)
- w $c(13,10)
-"RTN","C0E0000R",70,0)
- QUIT 1
-"RTN","C0E0000R",71,0)
- ;
-"RTN","C0E0000R",72,0)
-body ;
-"RTN","C0E0000R",73,0)
- w ""_$c(13,10)
-"RTN","C0E0000R",74,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",75,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",76,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",78,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",79,0)
- w "Ajax Error Redirect page"_""
-"RTN","C0E0000R",80,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",81,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",82,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",83,0)
- w "Please wait...."_""
-"RTN","C0E0000R",84,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",85,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",86,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",133,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",134,0)
- w ""_$c(13,10)
-"RTN","C0E0000R",135,0)
- QUIT
-"RTN","C0E0001I")
-0^7^B20127196
-"RTN","C0E0001I",1,0)
- ;GT.M version of page index (screenman application)
-"RTN","C0E0001I",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 5
-"RTN","C0E0001I",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0001I",4,0)
- QUIT
-"RTN","C0E0001I",5,0)
- ;
-"RTN","C0E0001I",6,0)
-run ;
-"RTN","C0E0001I",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0001I",8,0)
- s ok=$$pre()
-"RTN","C0E0001I",9,0)
- i ok d body
-"RTN","C0E0001I",10,0)
- QUIT
-"RTN","C0E0001I",11,0)
- ;
-"RTN","C0E0001I",12,0)
-pre() ;
-"RTN","C0E0001I",13,0)
- ;
-"RTN","C0E0001I",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0001I",15,0)
- ;
-"RTN","C0E0001I",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0001I",17,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0E0001I",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0001I",19,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0001I",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0001I",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0001I",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0001I",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0001I",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0001I",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0001I",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0001I",27,0)
- s sessionArray("ewd_pageName")="index"
-"RTN","C0E0001I",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0001I",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0001I",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0001I",31,0)
- s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
-"RTN","C0E0001I",32,0)
- s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0001I",33,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0001I",34,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0001I",35,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0001I",36,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0001I",37,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0001I",38,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0001I",39,0)
- . n errorPage
-"RTN","C0E0001I",40,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0001I",41,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0001I",42,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0001I",43,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0001I",44,0)
- s stop=0
-"RTN","C0E0001I",45,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0001I",46,0)
- . n nextpage
-"RTN","C0E0001I",47,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0001I",48,0)
- . i nextpage'="" d
-"RTN","C0E0001I",49,0)
- . . n x
-"RTN","C0E0001I",50,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0001I",51,0)
- . . s stop=1
-"RTN","C0E0001I",52,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0001I",53,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0001I",54,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0001I",55,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0001I",56,0)
- s ctype="text/html"
-"RTN","C0E0001I",57,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0001I",58,0)
- i $d(headers) d
-"RTN","C0E0001I",59,0)
- . n lcname,name
-"RTN","C0E0001I",60,0)
- . s name=""
-"RTN","C0E0001I",61,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0001I",62,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0001I",63,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0001I",64,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0001I",65,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0001I",66,0)
- w $c(13,10)
-"RTN","C0E0001I",67,0)
- QUIT 1
-"RTN","C0E0001I",68,0)
- ;
-"RTN","C0E0001I",69,0)
-body ;
-"RTN","C0E0001I",70,0)
- w ""_$c(13,10)
-"RTN","C0E0001I",71,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",72,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",73,0)
- w "Screenman Menu"_""
-"RTN","C0E0001I",74,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",75,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",76,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",77,0)
- w "Hello World"_""
-"RTN","C0E0001I",78,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",79,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",80,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",81,0)
- w "test1 page"_""
-"RTN","C0E0001I",82,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",83,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",84,0)
- w ""_$c(13,10)
-"RTN","C0E0001I",85,0)
- QUIT
-"RTN","C0E0002")
-0^8^B92918287
-"RTN","C0E0002",1,0)
- ;GT.M version of page test1 (screenman application)
-"RTN","C0E0002",2,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23;;;;;Build 5
-"RTN","C0E0002",3,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0002",4,0)
- QUIT
-"RTN","C0E0002",5,0)
- ;
-"RTN","C0E0002",6,0)
-run ;
-"RTN","C0E0002",7,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0002",8,0)
- s ok=$$pre()
-"RTN","C0E0002",9,0)
- i ok d body
-"RTN","C0E0002",10,0)
- QUIT
-"RTN","C0E0002",11,0)
- ;
-"RTN","C0E0002",12,0)
-pre() ;
-"RTN","C0E0002",13,0)
- ;
-"RTN","C0E0002",14,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0002",15,0)
- ;
-"RTN","C0E0002",16,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0002",17,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0002",18,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0002",19,0)
- s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
-"RTN","C0E0002",20,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0002",21,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0002",22,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0002",23,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0002",24,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0002",25,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0002",26,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0002",27,0)
- s sessionArray("ewd_pageName")="test1"
-"RTN","C0E0002",28,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0002",29,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0002",30,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0002",31,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0E0002",32,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0E0002",33,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0E0002",34,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0E0002",35,0)
- s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
-"RTN","C0E0002",36,0)
- s formInfo="SSN|text`TITLE|text`ewd_pressed|hidden`submit|submit`"
-"RTN","C0E0002",37,0)
- d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
-"RTN","C0E0002",38,0)
- s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0002",39,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0002",40,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0002",41,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0002",42,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0002",43,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0002",44,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0002",45,0)
- . n errorPage
-"RTN","C0E0002",46,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0002",47,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0002",48,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0002",49,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0002",50,0)
- s stop=0
-"RTN","C0E0002",51,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0002",52,0)
- . n nextpage
-"RTN","C0E0002",53,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0002",54,0)
- . i nextpage'="" d
-"RTN","C0E0002",55,0)
- . . n x
-"RTN","C0E0002",56,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0002",57,0)
- . . s stop=1
-"RTN","C0E0002",58,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0002",59,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0002",60,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0002",61,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0002",62,0)
- s ctype="text/html"
-"RTN","C0E0002",63,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0002",64,0)
- i $d(headers) d
-"RTN","C0E0002",65,0)
- . n lcname,name
-"RTN","C0E0002",66,0)
- . s name=""
-"RTN","C0E0002",67,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0002",68,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0002",69,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0002",70,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0002",71,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0002",72,0)
- w $c(13,10)
-"RTN","C0E0002",73,0)
- QUIT 1
-"RTN","C0E0002",74,0)
- ;
-"RTN","C0E0002",75,0)
-body ;
-"RTN","C0E0002",76,0)
- w ""_$c(13,10)
-"RTN","C0E0002",77,0)
- w " "_$c(13,10)
-"RTN","C0E0002",78,0)
- w " "_$c(13,10)
-"RTN","C0E0002",79,0)
- w " "_$c(13,10)
-"RTN","C0E0002",81,0)
- w " "_$c(13,10)
-"RTN","C0E0002",88,0)
- w " "_$c(13,10)
-"RTN","C0E0002",89,0)
- w "Screenman Test"_""
-"RTN","C0E0002",90,0)
- w " "_$c(13,10)
-"RTN","C0E0002",91,0)
- w " "_$c(13,10)
-"RTN","C0E0002",138,0)
- w " "_$c(13,10)
-"RTN","C0E0002",139,0)
- w " "_$c(13,10)
-"RTN","C0E0002",140,0)
- w " "_$c(13,10)
-"RTN","C0E0002",160,0)
- w " "_$c(13,10)
-"RTN","C0E0002",161,0)
- w ""_$c(13,10)
-"RTN","C0E0002",162,0)
- QUIT
-"SEC","^DIC",70050,70050,0,"AUDIT")
-@
-"SEC","^DIC",70050,70050,0,"DD")
-@
-"SEC","^DIC",70050,70050,0,"DEL")
-@
-"SEC","^DIC",70050,70050,0,"LAYGO")
-@
-"SEC","^DIC",70050,70050,0,"RD")
-@
-"SEC","^DIC",70050,70050,0,"WR")
-@
-"VER")
-8.0^22.0
-"^DD",70050,70050,0)
-FIELD^^1^5
-"^DD",70050,70050,0,"DDA")
-N
-"^DD",70050,70050,0,"DT")
-3100301
-"^DD",70050,70050,0,"ID",.02)
-W " ",$P(^(0),U,2)
-"^DD",70050,70050,0,"ID",.03)
-W " ",$P(^(0),U,3)
-"^DD",70050,70050,0,"IX","B",70050,.01)
-
-"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
-
-"^DD",70050,70050,.01,0)
-EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
-"^DD",70050,70050,.01,1,0)
-^.1
-"^DD",70050,70050,.01,1,1,0)
-70050^B
-"^DD",70050,70050,.01,1,1,1)
-S ^C0E(70050,"B",$E(X,1,30),DA)=""
-"^DD",70050,70050,.01,1,1,2)
-K ^C0E(70050,"B",$E(X,1,30),DA)
-"^DD",70050,70050,.01,3)
-NAMESPACED EWD COMPILED PAGE
-"^DD",70050,70050,.01,"DT")
-3100301
-"^DD",70050,70050,.02,0)
-EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
-"^DD",70050,70050,.02,3)
-NAME OF THE EWD APPLICATION
-"^DD",70050,70050,.02,"DT")
-3100303
-"^DD",70050,70050,.03,0)
-EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
-"^DD",70050,70050,.03,3)
-EWD PAGE NAME
-"^DD",70050,70050,.03,"DT")
-3100301
-"^DD",70050,70050,1,0)
-DESCRIPTION^70050.01^^2;0
-"^DD",70050,70050,2,0)
-EWD SOURCE^70050.02^^1;0
-"^DD",70050,70050.01,0)
-DESCRIPTION SUB-FIELD^^.01^1
-"^DD",70050,70050.01,0,"DT")
-3100301
-"^DD",70050,70050.01,0,"NM","DESCRIPTION")
-
-"^DD",70050,70050.01,0,"UP")
-70050
-"^DD",70050,70050.01,.01,0)
-DESCRIPTION^Wx^^0;1
-"^DD",70050,70050.01,.01,3)
-DESCRIPTION OF THE EWD PAGE
-"^DD",70050,70050.01,.01,"DT")
-3100301
-"^DD",70050,70050.02,0)
-EWD SOURCE SUB-FIELD^^.01^1
-"^DD",70050,70050.02,0,"DT")
-3100301
-"^DD",70050,70050.02,0,"NM","EWD SOURCE")
-
-"^DD",70050,70050.02,0,"UP")
-70050
-"^DD",70050,70050.02,.01,0)
-EWD SOURCE^WLx^^0;1
-"^DD",70050,70050.02,.01,3)
-EWD PAGE SOURCE CODE
-"^DD",70050,70050.02,.01,"DT")
-3100301
-"^DIC",70050,70050,0)
-C0EWD ROUTINE MAP^70050
-"^DIC",70050,70050,0,"GL")
-^C0E(70050,
-"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
-
-**END**
-**END**
Index: ccr/trunk/p/C0E0_1_0_0_T5.KID
===================================================================
--- ccr/trunk/p/C0E0_1_0_0_T5.KID (revision 1214)
+++ (revision )
@@ -1,1812 +1,0 @@
-KIDS Distribution saved on Mar 06, 2010@13:34:24
-added first two lines to generated routines
-**KIDS**:C0E0*1.0*0^
-
-**INSTALL NAME**
-C0E0*1.0*0
-"BLD",6969,0)
-C0E0*1.0*0^^0^3100306^n
-"BLD",6969,4,0)
-^9.64PA^70050^1
-"BLD",6969,4,70050,0)
-70050
-"BLD",6969,4,70050,222)
-y^y^f^^y^^y^o^n
-"BLD",6969,4,70050,224)
-I $$GET1^DIQ(70050,Y_",",.02)="screenman"
-"BLD",6969,4,"B",70050,70050)
-
-"BLD",6969,6.3)
-6
-"BLD",6969,"KRN",0)
-^9.67PA^8989.52^19
-"BLD",6969,"KRN",.4,0)
-.4
-"BLD",6969,"KRN",.401,0)
-.401
-"BLD",6969,"KRN",.401,"NM",0)
-^9.68A^1^1
-"BLD",6969,"KRN",.401,"NM",1,0)
-C0E SCREENMAN RECORDS FILE #70050^70050^0
-"BLD",6969,"KRN",.401,"NM","B","C0E SCREENMAN RECORDS FILE #70050",1)
-
-"BLD",6969,"KRN",.402,0)
-.402
-"BLD",6969,"KRN",.403,0)
-.403
-"BLD",6969,"KRN",.5,0)
-.5
-"BLD",6969,"KRN",.84,0)
-.84
-"BLD",6969,"KRN",3.6,0)
-3.6
-"BLD",6969,"KRN",3.8,0)
-3.8
-"BLD",6969,"KRN",9.2,0)
-9.2
-"BLD",6969,"KRN",9.8,0)
-9.8
-"BLD",6969,"KRN",9.8,"NM",0)
-^9.68A^8^8
-"BLD",6969,"KRN",9.8,"NM",1,0)
-C0CROB^^0^B1053192
-"BLD",6969,"KRN",9.8,"NM",2,0)
-C0CEX^^0^B811998
-"BLD",6969,"KRN",9.8,"NM",3,0)
-C0E0000A^^0^B15300816
-"BLD",6969,"KRN",9.8,"NM",4,0)
-C0E0000F^^0^B33308637
-"BLD",6969,"KRN",9.8,"NM",5,0)
-C0E0000E^^0^B28122696
-"BLD",6969,"KRN",9.8,"NM",6,0)
-C0E0000R^^0^B67797780
-"BLD",6969,"KRN",9.8,"NM",7,0)
-C0E0001I^^0^B20709402
-"BLD",6969,"KRN",9.8,"NM",8,0)
-C0E0002^^0^B94303815
-"BLD",6969,"KRN",9.8,"NM","B","C0CEX",2)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0CROB",1)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000A",3)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000E",5)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000F",4)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0000R",6)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0001I",7)
-
-"BLD",6969,"KRN",9.8,"NM","B","C0E0002",8)
-
-"BLD",6969,"KRN",19,0)
-19
-"BLD",6969,"KRN",19.1,0)
-19.1
-"BLD",6969,"KRN",101,0)
-101
-"BLD",6969,"KRN",409.61,0)
-409.61
-"BLD",6969,"KRN",771,0)
-771
-"BLD",6969,"KRN",870,0)
-870
-"BLD",6969,"KRN",8989.51,0)
-8989.51
-"BLD",6969,"KRN",8989.52,0)
-8989.52
-"BLD",6969,"KRN",8994,0)
-8994
-"BLD",6969,"KRN","B",.4,.4)
-
-"BLD",6969,"KRN","B",.401,.401)
-
-"BLD",6969,"KRN","B",.402,.402)
-
-"BLD",6969,"KRN","B",.403,.403)
-
-"BLD",6969,"KRN","B",.5,.5)
-
-"BLD",6969,"KRN","B",.84,.84)
-
-"BLD",6969,"KRN","B",3.6,3.6)
-
-"BLD",6969,"KRN","B",3.8,3.8)
-
-"BLD",6969,"KRN","B",9.2,9.2)
-
-"BLD",6969,"KRN","B",9.8,9.8)
-
-"BLD",6969,"KRN","B",19,19)
-
-"BLD",6969,"KRN","B",19.1,19.1)
-
-"BLD",6969,"KRN","B",101,101)
-
-"BLD",6969,"KRN","B",409.61,409.61)
-
-"BLD",6969,"KRN","B",771,771)
-
-"BLD",6969,"KRN","B",870,870)
-
-"BLD",6969,"KRN","B",8989.51,8989.51)
-
-"BLD",6969,"KRN","B",8989.52,8989.52)
-
-"BLD",6969,"KRN","B",8994,8994)
-
-"BLD",6969,"QUES",0)
-^9.62^^
-"DATA",70050,12,0)
-23407^screenman^ewdajaxerror
-"DATA",70050,13,0)
-23408^screenman^ewdajaxerrorredirect
-"DATA",70050,14,0)
-23409^screenman^ewderror
-"DATA",70050,15,0)
-23410^screenman^ewderrorredirect
-"DATA",70050,16,0)
-23411^screenman^index
-"DATA",70050,16,1,0)
-^^10^10^3100301^
-"DATA",70050,16,1,1,0)
-
-"DATA",70050,16,1,2,0)
-
-"DATA",70050,16,1,3,0)
-
-"DATA",70050,16,1,4,0)
-Screenman Menu
-"DATA",70050,16,1,5,0)
-
-"DATA",70050,16,1,6,0)
-
-"DATA",70050,16,1,7,0)
-Hello World
-"DATA",70050,16,1,8,0)
-test1 page
-"DATA",70050,16,1,9,0)
-
-"DATA",70050,16,1,10,0)
-
-"DATA",70050,17,0)
-23412^screenman^test1
-"DATA",70050,17,1,0)
-^^25^25^3100302^
-"DATA",70050,17,1,1,0)
-
-"DATA",70050,17,1,2,0)
-
-"DATA",70050,17,1,3,0)
-
-"DATA",70050,17,1,4,0)
-
-"DATA",70050,17,1,9,0)
-Screenman Test
-"DATA",70050,17,1,10,0)
-
-"DATA",70050,17,1,11,0)
-
-"DATA",70050,17,1,12,0)
-
-"DATA",70050,17,1,24,0)
-
-"DATA",70050,17,1,25,0)
-
-"FIA",70050)
-C0EWD ROUTINE MAP
-"FIA",70050,0)
-^C0E(70050,
-"FIA",70050,0,0)
-70050PI
-"FIA",70050,0,1)
-y^y^f^^y^^y^o^n
-"FIA",70050,0,10)
-
-"FIA",70050,0,11)
-I $$GET1^DIQ(70050,Y_",",.02)="screenman"
-"FIA",70050,0,"RLRO")
-
-"FIA",70050,70050)
-0
-"FIA",70050,70050.01)
-0
-"FIA",70050,70050.02)
-0
-"IX",70050,70050,"AZEWD",0)
-70050^AZEWD^MAINTAINS THE ZEWD ROUTINE MAP GLOBAL^MU^^R^IR^I^70050^^^^^A
-"IX",70050,70050,"AZEWD",1)
-D SETZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",2)
-D KILLZEWD^C0CEX(X(1),X(2),X(3)) Q
-"IX",70050,70050,"AZEWD",11.1,0)
-^.114IA^3^3
-"IX",70050,70050,"AZEWD",11.1,1,0)
-1^F^70050^.01^^^F
-"IX",70050,70050,"AZEWD",11.1,2,0)
-2^F^70050^.02^^^F
-"IX",70050,70050,"AZEWD",11.1,3,0)
-3^F^70050^.03^^^F
-"IX",70050,70050,"C",0)
-70050^C^REGULAR CROSS REFERENCE OF THE PAGE NAME^R^^F^IR^I^70050^^^^^LS
-"IX",70050,70050,"C",1)
-S ^C0E(70050,"C",$E(X,1,60),DA)=""
-"IX",70050,70050,"C",2)
-K ^C0E(70050,"C",$E(X,1,60),DA)
-"IX",70050,70050,"C",2.5)
-K ^C0E(70050,"C")
-"IX",70050,70050,"C",11.1,0)
-^.114IA^1^1
-"IX",70050,70050,"C",11.1,1,0)
-1^F^70050^.03^60^1^F
-"IX",70050,70050,"C",11.1,1,3)
-
-"IX",70050,70050,"D",0)
-70050^D^REGULAR INDEX OF THE APPLICATION INDEX^R^^F^IR^I^70050^^^^^LS
-"IX",70050,70050,"D",1)
-S ^C0E(70050,"D",$E(X,1,60),DA)=""
-"IX",70050,70050,"D",2)
-K ^C0E(70050,"D",$E(X,1,60),DA)
-"IX",70050,70050,"D",2.5)
-K ^C0E(70050,"D")
-"IX",70050,70050,"D",11.1,0)
-^.114IA^1^1
-"IX",70050,70050,"D",11.1,1,0)
-1^F^70050^.02^60^1^F
-"IX",70050,70050,"D",11.1,1,3)
-
-"KRN",.401,1794,-1)
-0^1
-"KRN",.401,1794,0)
-C0E SCREENMAN RECORDS^3100302.0014^@^70050^^@^3100302
-"KRN",.401,1794,2,0)
-^.4014^1^1
-"KRN",.401,1794,2,1,0)
-70050^.02^EWD APPLICATION^^^^^^^4
-"KRN",.401,1794,2,1,"F")
-screenmamz^screenman
-"KRN",.401,1794,2,1,"GET")
-S DISX(1)=$P($G(^C0E(70050,D0,0)),U,2)
-"KRN",.401,1794,2,1,"QCON")
-I DISX(1)="screenman"
-"KRN",.401,1794,2,1,"T")
-screenman^screenman
-"KRN",.401,1794,2,1,"TXT")
-EWD APPLICATION equals screenman
-"KRN",.401,1794,2,"B",70050,1)
-
-"MBREQ")
-0
-"ORD",6,.401)
-.401;6;;;EDEOUT^DIFROMSO(.401,DA,"",XPDA);FPRE^DIFROMSI(.401,"",XPDA);EPRE^DIFROMSI(.401,DA,$E("N",$G(XPDNEW)),XPDA,"",OLDA);;EPOST^DIFROMSI(.401,DA,"",XPDA);DEL^DIFROMSK(.401,"",%)
-"ORD",6,.401,0)
-SORT TEMPLATE
-"QUES","XPF1",0)
-Y
-"QUES","XPF1","??")
-^D REP^XPDH
-"QUES","XPF1","A")
-Shall I write over your |FLAG| File
-"QUES","XPF1","B")
-YES
-"QUES","XPF1","M")
-D XPF1^XPDIQ
-"QUES","XPF2",0)
-Y
-"QUES","XPF2","??")
-^D DTA^XPDH
-"QUES","XPF2","A")
-Want my data |FLAG| yours
-"QUES","XPF2","B")
-YES
-"QUES","XPF2","M")
-D XPF2^XPDIQ
-"QUES","XPI1",0)
-YO
-"QUES","XPI1","??")
-^D INHIBIT^XPDH
-"QUES","XPI1","A")
-Want KIDS to INHIBIT LOGONs during the install
-"QUES","XPI1","B")
-NO
-"QUES","XPI1","M")
-D XPI1^XPDIQ
-"QUES","XPM1",0)
-PO^VA(200,:EM
-"QUES","XPM1","??")
-^D MG^XPDH
-"QUES","XPM1","A")
-Enter the Coordinator for Mail Group '|FLAG|'
-"QUES","XPM1","B")
-
-"QUES","XPM1","M")
-D XPM1^XPDIQ
-"QUES","XPO1",0)
-Y
-"QUES","XPO1","??")
-^D MENU^XPDH
-"QUES","XPO1","A")
-Want KIDS to Rebuild Menu Trees Upon Completion of Install
-"QUES","XPO1","B")
-NO
-"QUES","XPO1","M")
-D XPO1^XPDIQ
-"QUES","XPZ1",0)
-Y
-"QUES","XPZ1","??")
-^D OPT^XPDH
-"QUES","XPZ1","A")
-Want to DISABLE Scheduled Options, Menu Options, and Protocols
-"QUES","XPZ1","B")
-NO
-"QUES","XPZ1","M")
-D XPZ1^XPDIQ
-"QUES","XPZ2",0)
-Y
-"QUES","XPZ2","??")
-^D RTN^XPDH
-"QUES","XPZ2","A")
-Want to MOVE routines to other CPUs
-"QUES","XPZ2","B")
-NO
-"QUES","XPZ2","M")
-D XPZ2^XPDIQ
-"RTN")
-8
-"RTN","C0CEX")
-0^2^B811998
-"RTN","C0CEX",1,0)
-C0CEX ; CCDCCR/GPL - C0E ROUTINE FOR ^zewd GLOBAL; 3/1/10
-"RTN","C0CEX",2,0)
- ;;1.0;C0C;;Mar 1, 2010 ;Build 6
-"RTN","C0CEX",3,0)
-SETZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
-"RTN","C0CEX",4,0)
- ; SET THE ^zewd GLOBAL FOR EWD FOR A PAGE
-"RTN","C0CEX",5,0)
- N ZR
-"RTN","C0CEX",6,0)
- I $G(ZAPP)="" Q ;
-"RTN","C0CEX",7,0)
- I $G(ZPAGE)="" Q ;
-"RTN","C0CEX",8,0)
- I $G(ZROUTINE)="" Q ;
-"RTN","C0CEX",9,0)
- S ZR=$$GET1^DIQ(9.8,ZROUTINE_",",.01,"E") ; EXTERNAL NAME OF ROUTINE
-"RTN","C0CEX",10,0)
- S ^zewd("routineMap",ZAPP,ZPAGE)=ZR ; SET THE EWD MAPPING GLOBAL
-"RTN","C0CEX",11,0)
- Q
-"RTN","C0CEX",12,0)
- ;
-"RTN","C0CEX",13,0)
-KILLZEWD(ZROUTINE,ZAPP,ZPAGE) ;USED BY THE ZEWD CROSS REFERENCE TO
-"RTN","C0CEX",14,0)
- ; KILL THE ^zewd GLOBAL FOR EWD FOR A PAGE
-"RTN","C0CEX",15,0)
- I $G(ZAPP)="" Q ;
-"RTN","C0CEX",16,0)
- I $G(ZPAGE)="" Q ;
-"RTN","C0CEX",17,0)
- K ^zewd("routineMap",ZAPP,ZPAGE)
-"RTN","C0CEX",18,0)
- Q
-"RTN","C0CROB")
-0^1^B1053192
-"RTN","C0CROB",1,0)
- ;;C0CROB
-"RTN","C0CROB",2,0)
- ;;;;;;Build 6
-"RTN","C0CROB",3,0)
-TEST1(sessid) ;
-"RTN","C0CROB",4,0)
- D setSessionValue^%zewdAPI("name","PROVIDER,TWOHUNDREDNINETYSIX",sessid)
-"RTN","C0CROB",5,0)
- S TITLE=$G(^C0CROB("TITLE"))
-"RTN","C0CROB",6,0)
- I TITLE="" S TITLE="Scholar Extraordinaire"
-"RTN","C0CROB",7,0)
- D setSessionValue^%zewdAPI("TITLE",TITLE,sessid)
-"RTN","C0CROB",8,0)
- Q ""
-"RTN","C0CROB",9,0)
-SAVEFORM(sessid) ;
-"RTN","C0CROB",10,0)
- S TITLE=$$getSessionValue^%zewdAPI("TITLE",sessid)
-"RTN","C0CROB",11,0)
- I TITLE="" Q "You must enter a title"
-"RTN","C0CROB",12,0)
- S ^C0CROB("TITLE")=TITLE
-"RTN","C0CROB",13,0)
- Q ""
-"RTN","C0CROB",14,0)
-VALIDATETITLE(value) ;
-"RTN","C0CROB",15,0)
- I value="" Q "alert('you must enter a title');"
-"RTN","C0CROB",16,0)
- Q ""
-"RTN","C0CROB",17,0)
- ;
-"RTN","C0E0000A")
-0^3^B15300816
-"RTN","C0E0000A",1,0)
-C0E0000A ; C0E EWD generated code; 3/1/10
-"RTN","C0E0000A",2,0)
- ;;1.0;C0E;;Mar 1, 2010 ;Build 6
-"RTN","C0E0000A",3,0)
- ;GT.M version of page ewdAjaxError (screenman application)
-"RTN","C0E0000A",4,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22
-"RTN","C0E0000A",5,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000A",6,0)
- QUIT
-"RTN","C0E0000A",7,0)
- ;
-"RTN","C0E0000A",8,0)
-run ;
-"RTN","C0E0000A",9,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000A",10,0)
- s ok=$$pre()
-"RTN","C0E0000A",11,0)
- i ok d body
-"RTN","C0E0000A",12,0)
- QUIT
-"RTN","C0E0000A",13,0)
- ;
-"RTN","C0E0000A",14,0)
-pre() ;
-"RTN","C0E0000A",15,0)
- ;
-"RTN","C0E0000A",16,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000A",17,0)
- ;
-"RTN","C0E0000A",18,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000A",19,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0E0000A",20,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000A",21,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0000A",22,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000A",23,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000A",24,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000A",25,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000A",26,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000A",27,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000A",28,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000A",29,0)
- s sessionArray("ewd_pageName")="ewdAjaxError"
-"RTN","C0E0000A",30,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000A",31,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000A",32,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0000A",33,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxError",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000A",34,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000A",35,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000A",36,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000A",37,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000A",38,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000A",39,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000A",40,0)
- . n errorPage
-"RTN","C0E0000A",41,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000A",42,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000A",43,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000A",44,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000A",45,0)
- s stop=0
-"RTN","C0E0000A",46,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000A",47,0)
- . n nextpage
-"RTN","C0E0000A",48,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000A",49,0)
- . i nextpage'="" d
-"RTN","C0E0000A",50,0)
- . . n x
-"RTN","C0E0000A",51,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000A",52,0)
- . . s stop=1
-"RTN","C0E0000A",53,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000A",54,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000A",55,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000A",56,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000A",57,0)
- s ctype="text/html"
-"RTN","C0E0000A",58,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000A",59,0)
- i $d(headers) d
-"RTN","C0E0000A",60,0)
- . n lcname,name
-"RTN","C0E0000A",61,0)
- . s name=""
-"RTN","C0E0000A",62,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000A",63,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000A",64,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000A",65,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000A",66,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000A",67,0)
- w $c(13,10)
-"RTN","C0E0000A",68,0)
- QUIT 1
-"RTN","C0E0000A",69,0)
- ;
-"RTN","C0E0000A",70,0)
-body ;
-"RTN","C0E0000A",71,0)
- w ""_$c(13,10)
-"RTN","C0E0000A",72,0)
- w $$getSessionValue^%zewdAPI("ewd_ajaxError",sessid)
-"RTN","C0E0000A",73,0)
- w ""_$c(13,10)
-"RTN","C0E0000A",74,0)
- QUIT
-"RTN","C0E0000E")
-0^5^B28122696
-"RTN","C0E0000E",1,0)
-C0E0000E ; C0E EWD generated code; 3/1/10
-"RTN","C0E0000E",2,0)
- ;;1.0;C0E;;Mar 1, 2010 ;Build 6
-"RTN","C0E0000E",3,0)
- ;GT.M version of page ewdError (screenman application)
-"RTN","C0E0000E",4,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23
-"RTN","C0E0000E",5,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000E",6,0)
- QUIT
-"RTN","C0E0000E",7,0)
- ;
-"RTN","C0E0000E",8,0)
-run ;
-"RTN","C0E0000E",9,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000E",10,0)
- s ok=$$pre()
-"RTN","C0E0000E",11,0)
- i ok d body
-"RTN","C0E0000E",12,0)
- QUIT
-"RTN","C0E0000E",13,0)
- ;
-"RTN","C0E0000E",14,0)
-pre() ;
-"RTN","C0E0000E",15,0)
- ;
-"RTN","C0E0000E",16,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000E",17,0)
- ;
-"RTN","C0E0000E",18,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000E",19,0)
- w "Content-type: text/html"_$c(13,10,13,10)
-"RTN","C0E0000E",20,0)
- QUIT 1
-"RTN","C0E0000E",21,0)
- ;
-"RTN","C0E0000E",22,0)
-body ;
-"RTN","C0E0000E",23,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",24,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",25,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",26,0)
- w "Enterprise Web Developer : A run-time error has occurred"_$c(13,10)
-"RTN","C0E0000E",27,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",45,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",46,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",47,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",48,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",49,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",50,0)
- w "
Enterprise Web Developer (Build 790)
"_$c(13,10)
-"RTN","C0E0000E",51,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",52,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",53,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",54,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",55,0)
- w "
An Error has occurred
"_$c(13,10)
-"RTN","C0E0000E",56,0)
- w " "_$c(13,10)
-"RTN","C0E0000E",57,0)
- w "
"_$g(%KEY("error"))_"
"_$c(13,10)
-"RTN","C0E0000E",58,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",59,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",60,0)
- w "
"_$c(13,10)
-"RTN","C0E0000E",61,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",62,0)
- w " "_$c(13,10)
-"RTN","C0E0000E",65,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",66,0)
- w ""_$c(13,10)
-"RTN","C0E0000E",67,0)
- QUIT
-"RTN","C0E0000F")
-0^4^B33308637
-"RTN","C0E0000F",1,0)
-C0E0000F ; C0E EWD generated code; 3/1/10
-"RTN","C0E0000F",2,0)
- ;;1.0;C0E;;Mar 1, 2010 ;Build 6
-"RTN","C0E0000F",3,0)
- ;GT.M version of page ewdAjaxErrorRedirect (screenman application)
-"RTN","C0E0000F",4,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22
-"RTN","C0E0000F",5,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000F",6,0)
- QUIT
-"RTN","C0E0000F",7,0)
- ;
-"RTN","C0E0000F",8,0)
-run ;
-"RTN","C0E0000F",9,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000F",10,0)
- s ok=$$pre()
-"RTN","C0E0000F",11,0)
- i ok d body
-"RTN","C0E0000F",12,0)
- QUIT
-"RTN","C0E0000F",13,0)
- ;
-"RTN","C0E0000F",14,0)
-pre() ;
-"RTN","C0E0000F",15,0)
- ;
-"RTN","C0E0000F",16,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000F",17,0)
- ;
-"RTN","C0E0000F",18,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000F",19,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0000F",20,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000F",21,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0000F",22,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000F",23,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000F",24,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000F",25,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000F",26,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000F",27,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000F",28,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000F",29,0)
- s sessionArray("ewd_pageName")="ewdAjaxErrorRedirect"
-"RTN","C0E0000F",30,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000F",31,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000F",32,0)
- s sessionArray("ewd_pageType")="ajax"
-"RTN","C0E0000F",33,0)
- s tokens("ewdAjaxError")=$$setNextPageToken^%zewdGTMRuntime("ewdAjaxError")
-"RTN","C0E0000F",34,0)
- s tokens("ewdErrorRedirect")=$$setNextPageToken^%zewdGTMRuntime("ewdErrorRedirect")
-"RTN","C0E0000F",35,0)
- s Error=$$startSession^%zewdPHP("ewdAjaxErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000F",36,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000F",37,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000F",38,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000F",39,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000F",40,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000F",41,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000F",42,0)
- . n errorPage
-"RTN","C0E0000F",43,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000F",44,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000F",45,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000F",46,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000F",47,0)
- s stop=0
-"RTN","C0E0000F",48,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000F",49,0)
- . n nextpage
-"RTN","C0E0000F",50,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000F",51,0)
- . i nextpage'="" d
-"RTN","C0E0000F",52,0)
- . . n x
-"RTN","C0E0000F",53,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000F",54,0)
- . . s stop=1
-"RTN","C0E0000F",55,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000F",56,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000F",57,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000F",58,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000F",59,0)
- s ctype="text/html"
-"RTN","C0E0000F",60,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000F",61,0)
- i $d(headers) d
-"RTN","C0E0000F",62,0)
- . n lcname,name
-"RTN","C0E0000F",63,0)
- . s name=""
-"RTN","C0E0000F",64,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000F",65,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000F",66,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000F",67,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000F",68,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000F",69,0)
- w $c(13,10)
-"RTN","C0E0000F",70,0)
- QUIT 1
-"RTN","C0E0000F",71,0)
- ;
-"RTN","C0E0000F",72,0)
-body ;
-"RTN","C0E0000F",73,0)
- if ($g(Error)="") d
-"RTN","C0E0000F",74,0)
- .w " "_$c(13,10)
-"RTN","C0E0000F",75,0)
- .w "
"_$c(13,10)
-"RTN","C0E0000F",76,0)
- .w "
"_$c(13,10)
-"RTN","C0E0000F",77,0)
- .w " "_$c(13,10)
-"RTN","C0E0000F",78,0)
- .
-"RTN","C0E0000F",79,0)
- w ""_$c(13,10)
-"RTN","C0E0000F",80,0)
- w " var ewdtext='"_$$jsEscape^%zewdGTMRuntime(Error)_"' ; if (ewdtext != '') { if (ewdtext.substring(0,11) == 'javascript:') { ewdtext=ewdtext.substring(11) ; eval(ewdtext) ; } else { EWD.ajax.alert('"_$$htmlEscape^%zewdGTMRuntime($$jsEscape^%zewdGTMRuntime(Error))_"') }"_$c(13,10)
-"RTN","C0E0000F",81,0)
- s id=""
-"RTN","C0E0000F",82,0)
- f s id=$o(^%zewdSession("session","ewd_idList",id)) q:id="" d
-"RTN","C0E0000F",83,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0E0000F",84,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_idList"))_"' ; "
-"RTN","C0E0000F",85,0)
- s id=""
-"RTN","C0E0000F",86,0)
- f s id=$o(^%zewdSession("session","ewd_errorFields",id)) q:id="" d
-"RTN","C0E0000F",87,0)
- . w "idPointer = document.getElementById('"_id_"') ; "
-"RTN","C0E0000F",88,0)
- . w "if (idPointer != null) idPointer.className='"_$g(^%zewdSession("session","ewd_errorClass"))_"' ; "
-"RTN","C0E0000F",89,0)
- k ^%zewdSession("session","ewd_hasErrors")
-"RTN","C0E0000F",90,0)
- k ^%zewdSession("session","ewd_errorFields")
-"RTN","C0E0000F",91,0)
- k ^%zewdSession("session","ewd_idList")
-"RTN","C0E0000F",92,0)
- w " } else {document.location = document.getElementById(""zewdRef"").getAttribute(""href"") ; }"_""
-"RTN","C0E0000F",93,0)
- w ""_$c(13,10)
-"RTN","C0E0000F",94,0)
- QUIT
-"RTN","C0E0000R")
-0^6^B67797780
-"RTN","C0E0000R",1,0)
-C0E0000R ; C0E EWD generated code; 3/1/10
-"RTN","C0E0000R",2,0)
- ;;1.0;C0E;;Mar 1, 2010 ;Build 6
-"RTN","C0E0000R",3,0)
- ;GT.M version of page ewdErrorRedirect (screenman application)
-"RTN","C0E0000R",4,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:22
-"RTN","C0E0000R",5,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0000R",6,0)
- QUIT
-"RTN","C0E0000R",7,0)
- ;
-"RTN","C0E0000R",8,0)
-run ;
-"RTN","C0E0000R",9,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0000R",10,0)
- s ok=$$pre()
-"RTN","C0E0000R",11,0)
- i ok d body
-"RTN","C0E0000R",12,0)
- QUIT
-"RTN","C0E0000R",13,0)
- ;
-"RTN","C0E0000R",14,0)
-pre() ;
-"RTN","C0E0000R",15,0)
- ;
-"RTN","C0E0000R",16,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0000R",17,0)
- ;
-"RTN","C0E0000R",18,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0000R",19,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0000R",20,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0000R",21,0)
- s sessionArray("ewd_prePageScript")="ajaxErrorRedirect^%zewdAPI"
-"RTN","C0E0000R",22,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0000R",23,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0000R",24,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0000R",25,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0000R",26,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0000R",27,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0000R",28,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0000R",29,0)
- s sessionArray("ewd_pageName")="ewdErrorRedirect"
-"RTN","C0E0000R",30,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0000R",31,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0000R",32,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0000R",33,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",34,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",35,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0E0000R",36,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0E0000R",37,0)
- s Error=$$startSession^%zewdPHP("ewdErrorRedirect",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0000R",38,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0000R",39,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0000R",40,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0000R",41,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0000R",42,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0000R",43,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0000R",44,0)
- . n errorPage
-"RTN","C0E0000R",45,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0000R",46,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0000R",47,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0000R",48,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0000R",49,0)
- s stop=0
-"RTN","C0E0000R",50,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0000R",51,0)
- . n nextpage
-"RTN","C0E0000R",52,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0000R",53,0)
- . i nextpage'="" d
-"RTN","C0E0000R",54,0)
- . . n x
-"RTN","C0E0000R",55,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0000R",56,0)
- . . s stop=1
-"RTN","C0E0000R",57,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0000R",58,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000R",59,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0000R",60,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0000R",61,0)
- s ctype="text/html"
-"RTN","C0E0000R",62,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0000R",63,0)
- i $d(headers) d
-"RTN","C0E0000R",64,0)
- . n lcname,name
-"RTN","C0E0000R",65,0)
- . s name=""
-"RTN","C0E0000R",66,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0000R",67,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0000R",68,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0000R",69,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0000R",70,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0000R",71,0)
- w $c(13,10)
-"RTN","C0E0000R",72,0)
- QUIT 1
-"RTN","C0E0000R",73,0)
- ;
-"RTN","C0E0000R",74,0)
-body ;
-"RTN","C0E0000R",75,0)
- w ""_$c(13,10)
-"RTN","C0E0000R",76,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",77,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",78,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",80,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",81,0)
- w "Ajax Error Redirect page"_""
-"RTN","C0E0000R",82,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",83,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",84,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",85,0)
- w "Please wait...."_""
-"RTN","C0E0000R",86,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",87,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",88,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",135,0)
- w " "_$c(13,10)
-"RTN","C0E0000R",136,0)
- w ""_$c(13,10)
-"RTN","C0E0000R",137,0)
- QUIT
-"RTN","C0E0001I")
-0^7^B20709402
-"RTN","C0E0001I",1,0)
-C0E0001I ; C0E EWD generated code; 3/1/10
-"RTN","C0E0001I",2,0)
- ;;1.0;C0E;;Mar 1, 2010 ;Build 6
-"RTN","C0E0001I",3,0)
- ;GT.M version of page index (screenman application)
-"RTN","C0E0001I",4,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23
-"RTN","C0E0001I",5,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0001I",6,0)
- QUIT
-"RTN","C0E0001I",7,0)
- ;
-"RTN","C0E0001I",8,0)
-run ;
-"RTN","C0E0001I",9,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0001I",10,0)
- s ok=$$pre()
-"RTN","C0E0001I",11,0)
- i ok d body
-"RTN","C0E0001I",12,0)
- QUIT
-"RTN","C0E0001I",13,0)
- ;
-"RTN","C0E0001I",14,0)
-pre() ;
-"RTN","C0E0001I",15,0)
- ;
-"RTN","C0E0001I",16,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0001I",17,0)
- ;
-"RTN","C0E0001I",18,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0001I",19,0)
- s sessionArray("ewd_isFirstPage")="1"
-"RTN","C0E0001I",20,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0001I",21,0)
- s sessionArray("ewd_prePageScript")=""
-"RTN","C0E0001I",22,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0001I",23,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0001I",24,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0001I",25,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0001I",26,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0001I",27,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0001I",28,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0001I",29,0)
- s sessionArray("ewd_pageName")="index"
-"RTN","C0E0001I",30,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0001I",31,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0001I",32,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0001I",33,0)
- s tokens("test1")=$$setNextPageToken^%zewdGTMRuntime("test1")
-"RTN","C0E0001I",34,0)
- s Error=$$startSession^%zewdPHP("index",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0001I",35,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0001I",36,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0001I",37,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0001I",38,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0001I",39,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0001I",40,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0001I",41,0)
- . n errorPage
-"RTN","C0E0001I",42,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0001I",43,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0001I",44,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0001I",45,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0001I",46,0)
- s stop=0
-"RTN","C0E0001I",47,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0001I",48,0)
- . n nextpage
-"RTN","C0E0001I",49,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0001I",50,0)
- . i nextpage'="" d
-"RTN","C0E0001I",51,0)
- . . n x
-"RTN","C0E0001I",52,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0001I",53,0)
- . . s stop=1
-"RTN","C0E0001I",54,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0001I",55,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0001I",56,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0001I",57,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0001I",58,0)
- s ctype="text/html"
-"RTN","C0E0001I",59,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0001I",60,0)
- i $d(headers) d
-"RTN","C0E0001I",61,0)
- . n lcname,name
-"RTN","C0E0001I",62,0)
- . s name=""
-"RTN","C0E0001I",63,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0001I",64,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0001I",65,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0001I",66,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0001I",67,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0001I",68,0)
- w $c(13,10)
-"RTN","C0E0001I",69,0)
- QUIT 1
-"RTN","C0E0001I",70,0)
- ;
-"RTN","C0E0001I",71,0)
-body ;
-"RTN","C0E0001I",72,0)
- w ""_$c(13,10)
-"RTN","C0E0001I",73,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",74,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",75,0)
- w "Screenman Menu"_""
-"RTN","C0E0001I",76,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",77,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",78,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",79,0)
- w "Hello World"_""
-"RTN","C0E0001I",80,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",81,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",82,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",83,0)
- w "test1 page"_""
-"RTN","C0E0001I",84,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",85,0)
- w " "_$c(13,10)
-"RTN","C0E0001I",86,0)
- w ""_$c(13,10)
-"RTN","C0E0001I",87,0)
- QUIT
-"RTN","C0E0002")
-0^8^B94303815
-"RTN","C0E0002",1,0)
-C0E0002 ; C0E EWD generated code; 3/1/10
-"RTN","C0E0002",2,0)
- ;;1.0;C0E;;Mar 1, 2010 ;Build 6
-"RTN","C0E0002",3,0)
- ;GT.M version of page test1 (screenman application)
-"RTN","C0E0002",4,0)
- ;Compiled on Sun, 28 Feb 2010 19:55:23
-"RTN","C0E0002",5,0)
- ;using Enterprise Web Developer (Build 790)
-"RTN","C0E0002",6,0)
- QUIT
-"RTN","C0E0002",7,0)
- ;
-"RTN","C0E0002",8,0)
-run ;
-"RTN","C0E0002",9,0)
- n confirmText,ebToken,Error,formInfo,ok,sessid,sessionArray,tokens
-"RTN","C0E0002",10,0)
- s ok=$$pre()
-"RTN","C0E0002",11,0)
- i ok d body
-"RTN","C0E0002",12,0)
- QUIT
-"RTN","C0E0002",13,0)
- ;
-"RTN","C0E0002",14,0)
-pre() ;
-"RTN","C0E0002",15,0)
- ;
-"RTN","C0E0002",16,0)
- n ctype,ewdAction,headers,jump,quitStatus,pageTitle,stop,urlNo
-"RTN","C0E0002",17,0)
- ;
-"RTN","C0E0002",18,0)
- s confirmText="Click OK if you're sure you want to delete this record"
-"RTN","C0E0002",19,0)
- s sessionArray("ewd_isFirstPage")="0"
-"RTN","C0E0002",20,0)
- s sessionArray("ewd_sessid_timeout")="1200"
-"RTN","C0E0002",21,0)
- s sessionArray("ewd_prePageScript")="TEST1^C0CROB"
-"RTN","C0E0002",22,0)
- s sessionArray("ewd_default_timeout")="1200"
-"RTN","C0E0002",23,0)
- s sessionArray("ewd_persistRequest")="true"
-"RTN","C0E0002",24,0)
- s sessionArray("ewd_pageTitle")=""
-"RTN","C0E0002",25,0)
- s sessionArray("ewd_errorPage")="ewdError"
-"RTN","C0E0002",26,0)
- s sessionArray("ewd_templatePrePageScript")=""
-"RTN","C0E0002",27,0)
- s sessionArray("ewd_onErrorScript")=""
-"RTN","C0E0002",28,0)
- s sessionArray("ewd_appName")="screenman"
-"RTN","C0E0002",29,0)
- s sessionArray("ewd_pageName")="test1"
-"RTN","C0E0002",30,0)
- s sessionArray("ewd_translationMode")="0"
-"RTN","C0E0002",31,0)
- s sessionArray("ewd_technology")="gtm"
-"RTN","C0E0002",32,0)
- s sessionArray("ewd_pageType")=""
-"RTN","C0E0002",33,0)
- s ebToken("setErrorClasses^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("setErrorClasses^%zewdAPI",.sessionArray)
-"RTN","C0E0002",34,0)
- s ebToken("saveJSON^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("saveJSON^%zewdAPI",.sessionArray)
-"RTN","C0E0002",35,0)
- s ebToken("getJSON^%zewdCompiler13")=$$createEBToken^%zewdGTMRuntime("getJSON^%zewdCompiler13",.sessionArray)
-"RTN","C0E0002",36,0)
- s ebToken("mergeToJSObject^%zewdAPI")=$$createEBToken^%zewdGTMRuntime("mergeToJSObject^%zewdAPI",.sessionArray)
-"RTN","C0E0002",37,0)
- s ebToken("VALIDATETITLE^C0CROB")=$$createEBToken^%zewdGTMRuntime("VALIDATETITLE^C0CROB",.sessionArray)
-"RTN","C0E0002",38,0)
- s formInfo="SSN|text`TITLE|text`ewd_pressed|hidden`submit|submit`"
-"RTN","C0E0002",39,0)
- d setMethodAndNextPage^%zewdCompiler20("submit","SAVEFORM^C0CROB","test1",formInfo,.sessionArray)
-"RTN","C0E0002",40,0)
- s Error=$$startSession^%zewdPHP("test1",.%KEY,.%CGIEVAR,.sessionArray,.filesArray)
-"RTN","C0E0002",41,0)
- s sessid=$g(sessionArray("ewd_sessid"))
-"RTN","C0E0002",42,0)
- i Error["Enterprise Web Developer Error :",$g(sessionArray("ewd_pageType"))="ajax" d
-"RTN","C0E0002",43,0)
- . s Error=$p(Error,":",2,200)
-"RTN","C0E0002",44,0)
- . s Error=$$replaceAll^%zewdAPI(Error," ",": ")
-"RTN","C0E0002",45,0)
- . s Error="EWD runtime error: "_Error
-"RTN","C0E0002",46,0)
- i $e(Error,1,32)="Enterprise Web Developer Error :" d QUIT 0
-"RTN","C0E0002",47,0)
- . n errorPage
-"RTN","C0E0002",48,0)
- . s errorPage=$g(sessionArray("ewd_errorPage"))
-"RTN","C0E0002",49,0)
- . i errorPage="" s errorPage="ewdError"
-"RTN","C0E0002",50,0)
- . i $g(sessionArray("ewd_pageType"))="ajax" s errorPage="ewdAjaxErrorRedirect"
-"RTN","C0E0002",51,0)
- . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),errorPage,,,sessid,Error)
-"RTN","C0E0002",52,0)
- s stop=0
-"RTN","C0E0002",53,0)
- i Error="" d i stop QUIT 0
-"RTN","C0E0002",54,0)
- . n nextpage
-"RTN","C0E0002",55,0)
- . s nextpage=$$getSessionValue^%zewdAPI("ewd_nextPage",sessid)
-"RTN","C0E0002",56,0)
- . i nextpage'="" d
-"RTN","C0E0002",57,0)
- . . n x
-"RTN","C0E0002",58,0)
- . . d writeHTTPHeader^%zewdGTMRuntime(sessionArray("ewd_appName"),nextpage,$$getSessionValue^%zewdAPI("ewd_token",sessid),$$getSessionValue^%zewdAPI("ewd_pageToken",sessid))
-"RTN","C0E0002",59,0)
- . . s stop=1
-"RTN","C0E0002",60,0)
- i $$getSessionValue^%zewdAPI("ewd_warning",sessid)'="" d
-"RTN","C0E0002",61,0)
- . s Error=$$getSessionValue^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0002",62,0)
- . d deleteFromSession^%zewdAPI("ewd_warning",sessid)
-"RTN","C0E0002",63,0)
- w "HTTP/1.1 200 OK"_$c(13,10)
-"RTN","C0E0002",64,0)
- s ctype="text/html"
-"RTN","C0E0002",65,0)
- d mergeArrayFromSession^%zewdAPI(.headers,"ewd.header",sessid)
-"RTN","C0E0002",66,0)
- i $d(headers) d
-"RTN","C0E0002",67,0)
- . n lcname,name
-"RTN","C0E0002",68,0)
- . s name=""
-"RTN","C0E0002",69,0)
- . f s name=$o(headers(name)) q:name="" d
-"RTN","C0E0002",70,0)
- . . s lcname=$$zcvt^%zewdAPI(name,"l")
-"RTN","C0E0002",71,0)
- . . i lcname="content-type" s ctype=headers(name) q
-"RTN","C0E0002",72,0)
- . . w name_": "_headers(name)_$c(13,10)
-"RTN","C0E0002",73,0)
- w "Content-type: "_ctype_$c(13,10)
-"RTN","C0E0002",74,0)
- w $c(13,10)
-"RTN","C0E0002",75,0)
- QUIT 1
-"RTN","C0E0002",76,0)
- ;
-"RTN","C0E0002",77,0)
-body ;
-"RTN","C0E0002",78,0)
- w ""_$c(13,10)
-"RTN","C0E0002",79,0)
- w " "_$c(13,10)
-"RTN","C0E0002",80,0)
- w " "_$c(13,10)
-"RTN","C0E0002",81,0)
- w " "_$c(13,10)
-"RTN","C0E0002",83,0)
- w " "_$c(13,10)
-"RTN","C0E0002",90,0)
- w " "_$c(13,10)
-"RTN","C0E0002",91,0)
- w "Screenman Test"_""
-"RTN","C0E0002",92,0)
- w " "_$c(13,10)
-"RTN","C0E0002",93,0)
- w " "_$c(13,10)
-"RTN","C0E0002",140,0)
- w " "_$c(13,10)
-"RTN","C0E0002",141,0)
- w " "_$c(13,10)
-"RTN","C0E0002",142,0)
- w " "_$c(13,10)
-"RTN","C0E0002",162,0)
- w " "_$c(13,10)
-"RTN","C0E0002",163,0)
- w ""_$c(13,10)
-"RTN","C0E0002",164,0)
- QUIT
-"SEC","^DIC",70050,70050,0,"AUDIT")
-@
-"SEC","^DIC",70050,70050,0,"DD")
-@
-"SEC","^DIC",70050,70050,0,"DEL")
-@
-"SEC","^DIC",70050,70050,0,"LAYGO")
-@
-"SEC","^DIC",70050,70050,0,"RD")
-@
-"SEC","^DIC",70050,70050,0,"WR")
-@
-"VER")
-8.0^22.0
-"^DD",70050,70050,0)
-FIELD^^1^5
-"^DD",70050,70050,0,"DDA")
-N
-"^DD",70050,70050,0,"DT")
-3100301
-"^DD",70050,70050,0,"ID",.02)
-W " ",$P(^(0),U,2)
-"^DD",70050,70050,0,"ID",.03)
-W " ",$P(^(0),U,3)
-"^DD",70050,70050,0,"IX","B",70050,.01)
-
-"^DD",70050,70050,0,"NM","C0EWD ROUTINE MAP")
-
-"^DD",70050,70050,.01,0)
-EWD ROUTINE^RP9.8'^DIC(9.8,^0;1^Q
-"^DD",70050,70050,.01,1,0)
-^.1
-"^DD",70050,70050,.01,1,1,0)
-70050^B
-"^DD",70050,70050,.01,1,1,1)
-S ^C0E(70050,"B",$E(X,1,30),DA)=""
-"^DD",70050,70050,.01,1,1,2)
-K ^C0E(70050,"B",$E(X,1,30),DA)
-"^DD",70050,70050,.01,3)
-NAMESPACED EWD COMPILED PAGE
-"^DD",70050,70050,.01,"DT")
-3100301
-"^DD",70050,70050,.02,0)
-EWD APPLICATION^F^^0;2^K:$L(X)>60!($L(X)<1) X
-"^DD",70050,70050,.02,3)
-NAME OF THE EWD APPLICATION
-"^DD",70050,70050,.02,"DT")
-3100303
-"^DD",70050,70050,.03,0)
-EWD PAGE NAME^F^^0;3^K:$L(X)>60!($L(X)<1) X
-"^DD",70050,70050,.03,3)
-EWD PAGE NAME
-"^DD",70050,70050,.03,"DT")
-3100301
-"^DD",70050,70050,1,0)
-DESCRIPTION^70050.01^^2;0
-"^DD",70050,70050,2,0)
-EWD SOURCE^70050.02^^1;0
-"^DD",70050,70050.01,0)
-DESCRIPTION SUB-FIELD^^.01^1
-"^DD",70050,70050.01,0,"DT")
-3100301
-"^DD",70050,70050.01,0,"NM","DESCRIPTION")
-
-"^DD",70050,70050.01,0,"UP")
-70050
-"^DD",70050,70050.01,.01,0)
-DESCRIPTION^Wx^^0;1
-"^DD",70050,70050.01,.01,3)
-DESCRIPTION OF THE EWD PAGE
-"^DD",70050,70050.01,.01,"DT")
-3100301
-"^DD",70050,70050.02,0)
-EWD SOURCE SUB-FIELD^^.01^1
-"^DD",70050,70050.02,0,"DT")
-3100301
-"^DD",70050,70050.02,0,"NM","EWD SOURCE")
-
-"^DD",70050,70050.02,0,"UP")
-70050
-"^DD",70050,70050.02,.01,0)
-EWD SOURCE^WLx^^0;1
-"^DD",70050,70050.02,.01,3)
-EWD PAGE SOURCE CODE
-"^DD",70050,70050.02,.01,"DT")
-3100301
-"^DIC",70050,70050,0)
-C0EWD ROUTINE MAP^70050
-"^DIC",70050,70050,0,"GL")
-^C0E(70050,
-"^DIC",70050,"B","C0EWD ROUTINE MAP",70050)
-
-**END**
-**END**