Changeset 1060 for ccr/trunk/p

Timestamp:

Jan 6, 2011, 7:21:47 PM (14 years ago)

Author:

George Lilly

Message:

update to token processing

File:

• ccr/trunk/p/C0CEWD.m (modified) (1 diff)

ccr/trunk/p/C0CEWD.m

@@ -31 +31 @@
  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
  ;