Index: ccr/trunk/p/CCRMEDS.m
===================================================================
--- ccr/trunk/p/CCRMEDS.m	(revision 193)
+++ ccr/trunk/p/CCRMEDS.m	(revision 194)
@@ -87,5 +87,5 @@
  . S MEDPTMP=MEDRSLT(ZJ) ; PULL OUT FIRST LINE OF MED
  . I $P(MEDPTMP,U,1)?1"~OP" Q  ; SKIP OP ACTIVE AND PENDING
- . S MEDCOUNT=MEDCOUNT+1 ; WE ARE GOING TO ADD A MED
+ . S MEDCNT=MEDCNT+1 ; WE ARE GOING TO ADD A MED
  . S MEDVMAP=$NA(@MEDTVMAP@(ZI+MEDCNT)) ; START PAST OP ACTIVE MEDS
  . S @MEDTVMAP@(0)=@MEDTVMAP@(0)+1 ; ADDING A MED HERE