Changeset 527

Timestamp:

May 31, 2009, 4:18:11 PM (15 years ago)

Author:

George Lilly

Message:

revisions for RPC testing

Location:

ccr/trunk/p

Files:

• C0CCCR.m (modified) (1 diff)
• C0C_1_0_0_T14.KID (added)

ccr/trunk/p/C0CCCR.m

@@ -134 +134 @@
  . I DEBUG W "TRIMMED",J,!
  . I J=0 S DONE=1 ; DONE WHEN TRIM RETURNS FALSE
- S CCRGRTN=$NA(^TMP("C0CCCR",$J,DFN,CCRPART)) ; RTN GLOBAL OF PART OR ALL
- I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"RESULT",@CCRGRTN@(0))=""
+ ;S CCRGRTN=$NA(^TMP("C0CCCR",$J,DFN,CCRPART)) ; RTN GLOBAL OF PART OR ALL
+ M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART OR ALL
+ I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"RESULT",CCRGRTN(0))=""
  Q
  ;