Changeset 523


Ignore:
Timestamp:
May 30, 2009, 4:57:19 PM (15 years ago)
Author:
George Lilly
Message:

revisions for RPC processing

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

Legend:

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

    r521 r523  
    3333 ; FN IS FILE NAME, DEFAULTS IF NULL
    3434 N CCRGLO,UDIR,UFN
     35 S C0CNRPC=1 ; FLAG FOR NOT AN RPC CALL - FOR DEBUGGING THE RPC
    3536 I '$D(DIR) S UDIR=""
    3637 E  S UDIR=DIR
     
    3839 E  S UFN=FN
    3940 I '$D(XPARMS) S XPARMS=""
    40  D CCRRPC(.CCRGLO,DFN,XPARMS,"CCR")
     41 N C0CRTN  ; RETURN ARRAY
     42 D CCRRPC(.CCRRTN,DFN,XPARMS,"CCR")
    4143 S OARY=$NA(^TMP("C0CCCR",$J,DFN,"CCR",1))
    4244 S ONAM=UFN
     
    7981 I '$D(CCRPARMS) S CCRPARMS=""
    8082 I '$D(CCRPART) S CCRPART="CCR"
     83 I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"CALL",DFN,CCRPARMS,CCRPART)=""
    8184 D SET^C0CPARMS(CCRPARMS) ;SET PARAMETERS WITH CCRPARMS AS OVERRIDES
    8285 I '$D(TESTLAB) S TESTLAB=0 ; FLAG FOR TESTING RESULTS SECTION
     
    8790 S ACTGLO=$NA(^TMP("C0CCCR",$J,DFN,"ACTORS")) ; GLOBAL FOR ALL ACTORS
    8891 ; TO GET PART OF THE CCR RETURNED, PASS CCRPART="PROBLEMS" ETC
    89  S CCRGRTN=$NA(^TMP("C0CCCR",$J,DFN,CCRPART)) ; RTN GLO NM OF PART OR ALL
     92 M CCRGRTN=^TMP("C0CCCR",$J,DFN,CCRPART) ; RTN GLOBAL OF PART OR ALL
    9093 D LOAD^C0CCCR0(TGLOBAL)  ; LOAD THE CCR TEMPLATE
    9194 D CP^C0CXPATH(TGLOBAL,CCRGLO) ; COPY THE TEMPLATE TO CCR GLOBAL
     
    131134 . I DEBUG W "TRIMMED",J,!
    132135 . I J=0 S DONE=1 ; DONE WHEN TRIM RETURNS FALSE
     136 I '$D(C0CNRPC) S ^TMP("C0CRPC",$H,"RESULT",CCRGRTN(0))=""
    133137 Q
    134138 ;
Note: See TracChangeset for help on using the changeset viewer.