revisions for RPC testing

2009-05-30 22:30:44 +00:00 · 2009-05-30 22:30:44 +00:00 · 3eedea179d
parent 608b2bfe8b
commit 3eedea179d
2 changed files with 99266 additions and 2 deletions
--- a/p/C0CCCR.m
+++ b/p/C0CCCR.m
@ -133,8 +133,8 @@ CCRRPC(CCRGRTN,DFN,CCRPARMS,CCRPART)	 ;RPC ENTRY POINT FOR CCR OUTPUT
 . S J=$$TRIM^C0CXPATH(CCRGLO) ; DELETE EMPTY ELEMENTS
 . 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
 ;
 INITSTPS(TAB)	 ; INITIALIZE CCR PROCESSING STEPS
--- a/p/C0C_1_0_0_T12.KID
+++ b/p/C0C_1_0_0_T12.KID