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

Timestamp:

Apr 28, 2009, 7:15:40 PM (12 years ago)

Author:

George Lilly

Message:

batch processing release

File:

• ccr/trunk/p/C0CRIMA.m (modified) (2 diffs)

ccr/trunk/p/C0CRIMA.m

@@ -46 +46 @@
     N RIMARY,RIMTMP,RIMI,RIMDFN,RATTR
     N CCRGLO
+    S C0CCHK=0 ; CHECKSUM FLAG
     D ASETUP ; SET UP VARIABLES AND GLOBALS
     D AINIT ; INITIALIZE ATTRIBUTE VALUE TABLE
@@ -75 +76 @@
     . . W "FOUND RESULTS VARS",!
     . . M @RIMBASE@("VARS",RIMDFN,"RESULTS")=^TMP("C0CCCR",$J,"RESULTS")
+    . S C0CCHK=0
     . I $$CHKSUM(RIMDFN) D  ; CHECKSUM HAS CHANGED
     . . W "CHECKSUM IS NEW OR HAS CHANGED",!
-    . . ZWR ^TMP("C0CRIM","CHKSUM",RIMDFN,*)
+    . . ;ZWR ^TMP("C0CRIM","CHKSUM",RIMDFN,*)
+    . . S C0CCHK=1
     . K ^TMP("C0CCCR",$J) ; KILL WORK AREA FOR CCR BUILDING
     . ;