Changeset 1060 for ccr


Ignore:
Timestamp:
Jan 6, 2011, 7:21:47 PM (14 years ago)
Author:
George Lilly
Message:

update to token processing

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CEWD.m

    r1059 r1060  
    3131 Q ZT
    3232 ;
    33 GET(ZRTN,ZTOKEN,NOKILL) ; RETRIEVE A STORED ARRAY INDEXED BY ZTOKEN
     33GET(C0ERTN,C0ETOKEN,NOKILL) ; RETRIEVE A STORED ARRAY INDEXED BY ZTOKEN
    3434 ; KILL THE ARRAY AFTER RETRIEVAL UNLESS NOKILL=1
    35  ; ZRTN IS PASSED BY NAME
    36  I '$D(^TMP("C0E","TOKEN",ZTOKEN)) D  Q  ; DOESN'T EXIST
    37  . S @ZRTN="" ; PASS BACK NULL
    38  M @ZRTN=^TMP("C0E","TOKEN",ZTOKEN) ; RETRIEVE
    39  I $G(NOKILL)'=1 K ^TMP("C0E","TOKEN",ZTOKEN) ; DELETE
     35 ; C0ERTN IS PASSED BY NAME
     36 I '$D(^TMP("C0E","TOKEN",C0ETOKEN)) D  Q  ; DOESN'T EXIST
     37 . S @C0ERTN="" ; PASS BACK NULL
     38 M @C0ERTN=^TMP("C0E","TOKEN",C0ETOKEN) ; RETRIEVE
     39 I $G(NOKILL)'=1 K ^TMP("C0E","TOKEN",C0ETOKEN) ; DELETE
    4040 Q
    4141 ;
Note: See TracChangeset for help on using the changeset viewer.