Changeset 526


Ignore:
Timestamp:
May 30, 2009, 6:30:44 PM (16 years ago)
Author:
George Lilly
Message:

revisions for RPC testing

Location:
ccr/trunk/p
Files:
1 added
1 edited

Legend:

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

    r525 r526  
    134134 . I DEBUG W "TRIMMED",J,!
    135135 . I J=0 S DONE=1 ; DONE WHEN TRIM RETURNS FALSE
    136  M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART OR ALL
    137  I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"RESULT",CCRGRTN(0))=""
     136 S CCRGRTN=$NA(^TMP("C0CCCR",$J,DFN,CCRPART)) ; RTN GLOBAL OF PART OR ALL
     137 I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"RESULT",@CCRGRTN@(0))=""
    138138 Q
    139139 ;
Note: See TracChangeset for help on using the changeset viewer.