Changeset 526

Timestamp:

May 30, 2009, 6:30:44 PM (16 years ago)

Author:

George Lilly

Message:

revisions for RPC testing

Location:

ccr/trunk/p

Files:

• C0CCCR.m (modified) (1 diff)
• C0C_1_0_0_T12.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
- M CCRGRTN=^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
+ I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"RESULT",@CCRGRTN@(0))=""
  Q
  ;