Changeset 524

Timestamp:

May 30, 2009, 5:10:30 PM (15 years ago)

Author:

George Lilly

Message:

revision for testing RPCs

Location:

ccr/trunk/p

Files:

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

ccr/trunk/p/C0CCCR.m

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