Changeset 525 for ccr/trunk/p

Timestamp:

May 30, 2009, 5:38:17 PM (15 years ago)

Author:

George Lilly

Message:

revisions for RPC testing

Location:

ccr/trunk/p

Files:

• C0CCCR.m (modified) (3 diffs)
• C0C_1_0_0_T11.KID (added)

ccr/trunk/p/C0CCCR.m

@@ -40 +40 @@
  I '$D(XPARMS) S XPARMS=""
  N C0CRTN  ; RETURN ARRAY
- D CCRRPC(.CCRRTN,DFN,XPARMS,"CCR")
+ D CCRRPC(.C0CRTN,DFN,XPARMS,"CCR")
  S OARY=$NA(^TMP("C0CCCR",$J,DFN,"CCR",1))
  S ONAM=UFN
@@ -90 +90 @@
  S ACTGLO=$NA(^TMP("C0CCCR",$J,DFN,"ACTORS")) ; GLOBAL FOR ALL ACTORS
  ; TO GET PART OF THE CCR RETURNED, PASS CCRPART="PROBLEMS" ETC
- M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART OR ALL
+ ;M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART OR ALL
  D LOAD^C0CCCR0(TGLOBAL)  ; LOAD THE CCR TEMPLATE
  D CP^C0CXPATH(TGLOBAL,CCRGLO) ; COPY THE TEMPLATE TO CCR GLOBAL
@@ -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))=""
  Q