iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update for url tokens

This commit is contained in:
george 2011-01-06 20:01:11 +00:00
parent 85565eb1d6
commit 1c6c65d532
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
p/C0CEWD.m
View File

@ -39,6 +39,13 @@ GET(ZRTN,ZTOKEN,NOKILL) ; RETRIEVE A STORED ARRAY INDEXED BY ZTOKEN
I $G(NOKILL)'=1 K ^TMP("C0E","TOKEN",ZTOKEN) ; DELETE I $G(NOKILL)'=1 K ^TMP("C0E","TOKEN",ZTOKEN) ; DELETE
Q Q
; ;
URLTOKEN() ; EXTRINSIC WHICH RETRIEVES THE TOKEN PASSED ON THE URL
; IN EWD EXAMPLE: https://example.com/ewd/myApp/index.ewd&token="12345"
N token
S token=""
s token=$$getRequestValue^%zewdAPI("token",sessid)
Q token
;
cbTestMethod(prefix,seedValue,lastSeedValue,optionNo,options) cbTestMethod(prefix,seedValue,lastSeedValue,optionNo,options)
; ;
n maxNo,noFound n maxNo,noFound