Index: ccr/trunk/p/CCRMEDS.m
===================================================================
--- ccr/trunk/p/CCRMEDS.m	(revision 195)
+++ ccr/trunk/p/CCRMEDS.m	(revision 196)
@@ -80,5 +80,5 @@
  . . S $P(ZA(ZI),U,2)=ZK ; AND STORE IT IN ARRAY
  ;ZWR ZA
- S @MEDTVMAP@(0)=ZA(0) ; SAVE NUMBER OF MEDS
+ ; S @MEDTVMAP@(0)=ZA(0) ; SAVE NUMBER OF MEDS
  F ZI=1:1:ZA(0) D  ; FOR EACH MED
  . I DEBUG W "ZI IS ",ZI,!