removed ZWR line

2009-10-14 16:42:56 +00:00 · 2009-10-14 16:42:56 +00:00 · ce37587542
parent bae97e88d2
commit ce37587542
1 changed files with 1 additions and 1 deletions
--- a/p/C0CRIMA.m
+++ b/p/C0CRIMA.m
@ -226,7 +226,7 @@ CHKSUM(CKDFN)	; DOES A CHECKSUM AND STORES IT IN MUMPS GLOBALS
 E  S CHKR=1 ;CHECKSUM IS NEW
 S @C0CCKB@(CKDFN,"ALL")=C0CALL
 M @C0CCKB@(CKDFN,"DOMAIN")=C0CCK
- ZWR ^TMP("C0CRIM","CHKSUM",CKDFN,*)
+ ;ZWR ^TMP("C0CRIM","CHKSUM",CKDFN,*)
 Q CHKR
 ;
 CCOUNT	; RECOUNT THE CATEGORIES.. USE IN CASE OF RESTART OF ANALYZE