update for url tokens

p/C0CEWD.m

@@ -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
  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)
  ;
  n maxNo,noFound