revision for testing RPCs

2009-05-30 21:10:30 +00:00 · 2009-05-30 21:10:30 +00:00 · 88ec0eec76
parent e1cad5df1b
commit 88ec0eec76
2 changed files with 99263 additions and 1 deletions
--- a/p/C0CCCR.m
+++ b/p/C0CCCR.m
@ -80,7 +80,7 @@ CCRRPC(CCRGRTN,DFN,CCRPARMS,CCRPART)	 ;RPC ENTRY POINT FOR CCR OUTPUT
 S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
 I '$D(CCRPARMS) S CCRPARMS=""
 I '$D(CCRPART) S CCRPART="CCR"
- I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"CALL",DFN,CCRPARMS,CCRPART)=""
+ I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"CALL",DFN)=""
 D SET^C0CPARMS(CCRPARMS) ;SET PARAMETERS WITH CCRPARMS AS OVERRIDES
 I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
 I '$D(TESTALERT) S TESTALERT=1 ; FLAG FOR TESTING ALERTS SECTION
--- a/p/C0C_1_0_0_T10.KID
+++ b/p/C0C_1_0_0_T10.KID