Index: ccr/trunk/p/C0CEWD.m
===================================================================
--- ccr/trunk/p/C0CEWD.m	(revision 1059)
+++ ccr/trunk/p/C0CEWD.m	(revision 1060)
@@ -31,11 +31,11 @@
  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
  ;