update for RPC processing

2009-05-30 19:26:57 +00:00 · 2009-05-30 19:26:57 +00:00 · 4272d07c61
parent 20900b8335
commit 4272d07c61
2 changed files with 99253 additions and 0 deletions
--- a/p/C0CCCR.m
+++ b/p/C0CCCR.m
@ -76,6 +76,7 @@ CCRRPC(CCRGRTN,DFN,CCRPARMS,CCRPART)	 ;RPC ENTRY POINT FOR CCR OUTPUT
 ; SEE C0CPARMS FOR A COMPLETE LIST OF SUPPORTED PARAMETERS
 I '$D(DEBUG) S DEBUG=0
 S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
+ I '$D(CCRPARMS) S CCRPARMS=""
 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_T6.KID
+++ b/p/C0C_1_0_0_T6.KID