Changeset 523 for ccr/trunk/p

Timestamp:

May 30, 2009, 4:57:19 PM (16 years ago)

Author:

George Lilly

Message:

revisions for RPC processing

Location:

ccr/trunk/p

Files:

• C0CCCR.m (modified) (5 diffs)
• C0C_1_0_0_T9.KID (added)

ccr/trunk/p/C0CCCR.m

@@ -33 +33 @@
  ; FN IS FILE NAME, DEFAULTS IF NULL
  N CCRGLO,UDIR,UFN
+ S C0CNRPC=1 ; FLAG FOR NOT AN RPC CALL - FOR DEBUGGING THE RPC
  I '$D(DIR) S UDIR=""
  E  S UDIR=DIR
@@ -38 +39 @@
  E  S UFN=FN
  I '$D(XPARMS) S XPARMS=""
- D CCRRPC(.CCRGLO,DFN,XPARMS,"CCR")
+ N C0CRTN  ; RETURN ARRAY
+ D CCRRPC(.CCRRTN,DFN,XPARMS,"CCR")
  S OARY=$NA(^TMP("C0CCCR",$J,DFN,"CCR",1))
  S ONAM=UFN
@@ -79 +81 @@
  I '$D(CCRPARMS) S CCRPARMS=""
  I '$D(CCRPART) S CCRPART="CCR"
+ I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"CALL",DFN,CCRPARMS,CCRPART)=""
  D SET^C0CPARMS(CCRPARMS) ;SET PARAMETERS WITH CCRPARMS AS OVERRIDES
  I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
@@ -87 +90 @@
  S ACTGLO=$NA(^TMP("C0CCCR",$J,DFN,"ACTORS")) ; GLOBAL FOR ALL ACTORS
  ; TO GET PART OF THE CCR RETURNED, PASS CCRPART="PROBLEMS" ETC
- S CCRGRTN=$NA(^TMP("C0CCCR",$J,DFN,CCRPART)) ; RTN GLO NM OF PART OR ALL
+ M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART OR ALL
  D LOAD^C0CCCR0(TGLOBAL)  ; LOAD THE CCR TEMPLATE
  D CP^C0CXPATH(TGLOBAL,CCRGLO) ; COPY THE TEMPLATE TO CCR GLOBAL
@@ -131 +134 @@
  . I DEBUG W "TRIMMED",J,!
  . I J=0 S DONE=1 ; DONE WHEN TRIM RETURNS FALSE
+ I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"RESULT",CCRGRTN(0))=""
  Q
  ;