Changeset 520

Timestamp:

May 30, 2009, 3:26:57 PM (16 years ago)

Author:

George Lilly

Message:

update for RPC processing

Location:

ccr/trunk/p

Files:

• C0CCCR.m (modified) (1 diff)
• C0C_1_0_0_T6.KID (added)

ccr/trunk/p/C0CCCR.m

@@ -77 +77 @@
  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