Changeset 525 for ccr


Ignore:
Timestamp:
May 30, 2009, 5:38:17 PM (15 years ago)
Author:
George Lilly
Message:

revisions for RPC testing

Location:
ccr/trunk/p
Files:
1 added
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/C0CCCR.m

    r524 r525  
    4040 I '$D(XPARMS) S XPARMS=""
    4141 N C0CRTN  ; RETURN ARRAY
    42  D CCRRPC(.CCRRTN,DFN,XPARMS,"CCR")
     42 D CCRRPC(.C0CRTN,DFN,XPARMS,"CCR")
    4343 S OARY=$NA(^TMP("C0CCCR",$J,DFN,"CCR",1))
    4444 S ONAM=UFN
     
    9090 S ACTGLO=$NA(^TMP("C0CCCR",$J,DFN,"ACTORS")) ; GLOBAL FOR ALL ACTORS
    9191 ; TO GET PART OF THE CCR RETURNED, PASS CCRPART="PROBLEMS" ETC
    92  M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART OR ALL
     92 ;M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART OR ALL
    9393 D LOAD^C0CCCR0(TGLOBAL)  ; LOAD THE CCR TEMPLATE
    9494 D CP^C0CXPATH(TGLOBAL,CCRGLO) ; COPY THE TEMPLATE TO CCR GLOBAL
     
    134134 . I DEBUG W "TRIMMED",J,!
    135135 . I J=0 S DONE=1 ; DONE WHEN TRIM RETURNS FALSE
     136 M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART OR ALL
    136137 I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"RESULT",CCRGRTN(0))=""
    137138 Q
Note: See TracChangeset for help on using the changeset viewer.