Changeset 437 for ccr/trunk/p/C0CRIMA.m
- Timestamp:
- Apr 28, 2009, 7:15:40 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
ccr/trunk/p/C0CRIMA.m
r430 r437 46 46 N RIMARY,RIMTMP,RIMI,RIMDFN,RATTR 47 47 N CCRGLO 48 S C0CCHK=0 ; CHECKSUM FLAG 48 49 D ASETUP ; SET UP VARIABLES AND GLOBALS 49 50 D AINIT ; INITIALIZE ATTRIBUTE VALUE TABLE … … 75 76 . . W "FOUND RESULTS VARS",! 76 77 . . M @RIMBASE@("VARS",RIMDFN,"RESULTS")=^TMP("C0CCCR",$J,"RESULTS") 78 . S C0CCHK=0 77 79 . I $$CHKSUM(RIMDFN) D ; CHECKSUM HAS CHANGED 78 80 . . W "CHECKSUM IS NEW OR HAS CHANGED",! 79 . . ZWR ^TMP("C0CRIM","CHKSUM",RIMDFN,*) 81 . . ;ZWR ^TMP("C0CRIM","CHKSUM",RIMDFN,*) 82 . . S C0CCHK=1 80 83 . K ^TMP("C0CCCR",$J) ; KILL WORK AREA FOR CCR BUILDING 81 84 . ;
Note:
See TracChangeset
for help on using the changeset viewer.