Changeset 437 for ccr/trunk/p/C0CRIMA.m


Ignore:
Timestamp:
Apr 28, 2009, 7:15:40 PM (16 years ago)
Author:
George Lilly
Message:

batch processing release

File:
1 edited

Legend:

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

    r430 r437  
    4646    N RIMARY,RIMTMP,RIMI,RIMDFN,RATTR
    4747    N CCRGLO
     48    S C0CCHK=0 ; CHECKSUM FLAG
    4849    D ASETUP ; SET UP VARIABLES AND GLOBALS
    4950    D AINIT ; INITIALIZE ATTRIBUTE VALUE TABLE
     
    7576    . . W "FOUND RESULTS VARS",!
    7677    . . M @RIMBASE@("VARS",RIMDFN,"RESULTS")=^TMP("C0CCCR",$J,"RESULTS")
     78    . S C0CCHK=0
    7779    . I $$CHKSUM(RIMDFN) D  ; CHECKSUM HAS CHANGED
    7880    . . W "CHECKSUM IS NEW OR HAS CHANGED",!
    79     . . ZWR ^TMP("C0CRIM","CHKSUM",RIMDFN,*)
     81    . . ;ZWR ^TMP("C0CRIM","CHKSUM",RIMDFN,*)
     82    . . S C0CCHK=1
    8083    . K ^TMP("C0CCCR",$J) ; KILL WORK AREA FOR CCR BUILDING
    8184    . ;
Note: See TracChangeset for help on using the changeset viewer.