update for RPC processing

2009-05-30 19:44:51 +00:00 · 2009-05-30 19:44:51 +00:00 · 36aec5491f
parent 4272d07c61
commit 36aec5491f
2 changed files with 99253 additions and 0 deletions
--- a/p/C0CCCR.m
+++ b/p/C0CCCR.m
@ -77,6 +77,7 @@ CCRRPC(CCRGRTN,DFN,CCRPARMS,CCRPART)	 ;RPC ENTRY POINT FOR CCR OUTPUT
 I '$D(DEBUG) S DEBUG=0
 S CCD=0 ; NEED THIS FLAG TO DISTINGUISH FROM CCD
 I '$D(CCRPARMS) S CCRPARMS=""
+ I '$D(CCRPART) S CCRPART="CCR"
 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_T7.KID
+++ b/p/C0C_1_0_0_T7.KID