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

update to token processing

This commit is contained in:
george 2011-01-07 00:21:47 +00:00
parent e4c0e0fd48
commit 28ee2f65e1
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
p/C0CEWD.m
View File

@ -30,13 +30,13 @@ STORE(ZARY) ; STORE AN ARRAY OF VALUES INDEXED BY A NEW TOKEN
M ^TMP("C0E","TOKEN",ZT)=@ZARY ;
Q ZT
;
GET(ZRTN,ZTOKEN,NOKILL) ; RETRIEVE A STORED ARRAY INDEXED BY ZTOKEN
GET(C0ERTN,C0ETOKEN,NOKILL) ; RETRIEVE A STORED ARRAY INDEXED BY ZTOKEN
; KILL THE ARRAY AFTER RETRIEVAL UNLESS NOKILL=1
; ZRTN IS PASSED BY NAME
I '$D(^TMP("C0E","TOKEN",ZTOKEN)) D Q ; DOESN'T EXIST
. S @ZRTN="" ; PASS BACK NULL
M @ZRTN=^TMP("C0E","TOKEN",ZTOKEN) ; RETRIEVE
I $G(NOKILL)'=1 K ^TMP("C0E","TOKEN",ZTOKEN) ; DELETE
; C0ERTN IS PASSED BY NAME
I '$D(^TMP("C0E","TOKEN",C0ETOKEN)) D Q ; DOESN'T EXIST
. S @C0ERTN="" ; PASS BACK NULL
M @C0ERTN=^TMP("C0E","TOKEN",C0ETOKEN) ; RETRIEVE
I $G(NOKILL)'=1 K ^TMP("C0E","TOKEN",C0ETOKEN) ; DELETE
Q
;
URLTOKEN(sessid) ; EXTRINSIC WHICH RETRIEVES THE TOKEN PASSED ON THE URL