Changeset 521

Timestamp:

May 30, 2009, 3:44:51 PM (15 years ago)

Author:

George Lilly

Message:

update for RPC processing

Location:

ccr/trunk/p

Files:

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

ccr/trunk/p/C0CCCR.m

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