Changeset 527 for ccr


Ignore:
Timestamp:
May 31, 2009, 4:18:11 PM (15 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

    r526 r527  
    134134 . I DEBUG W "TRIMMED",J,!
    135135 . I J=0 S DONE=1 ; DONE WHEN TRIM RETURNS FALSE
    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))=""
     136 ;S CCRGRTN=$NA(^TMP("C0CCCR",$J,DFN,CCRPART)) ; RTN GLOBAL OF PART OR ALL
     137 M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART OR ALL
     138 I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"RESULT",CCRGRTN(0))=""
    138139 Q
    139140 ;
Note: See TracChangeset for help on using the changeset viewer.