From ce37587542eb75a98bee4a34f7e50d0702b8ac61 Mon Sep 17 00:00:00 2001
From: george <george>
Date: Wed, 14 Oct 2009 16:42:56 +0000
Subject: [PATCH] removed ZWR line

---
 p/C0CRIMA.m | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/p/C0CRIMA.m b/p/C0CRIMA.m
index fd7571f..6a66350 100644
--- 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