Index: /ccr/trunk/p/CCRMEDS.m
===================================================================
--- /ccr/trunk/p/CCRMEDS.m	(revision 192)
+++ /ccr/trunk/p/CCRMEDS.m	(revision 193)
@@ -83,11 +83,10 @@
  F ZI=1:1:ZA(0) D  ; FOR EACH MED
  . I DEBUG W "ZI IS ",ZI,!
- . S MEDVMAP=$NA(@MEDTVMAP@(ZI+MEDCNT)) ; START PAST OP ACTIVE MEDS
  . W ZI," ",MEDCNT,!
- . K @MEDVMAP
- . I DEBUG W "VMAP= ",MEDVMAP,!
  . S ZJ=$P(ZA(ZI),U,1) ; INDEX OF FIRST LINE OF MED IN MEDRSLT
  . 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 MEDVMAP=$NA(@MEDTVMAP@(ZI+MEDCNT)) ; START PAST OP ACTIVE MEDS
  . S @MEDTVMAP@(0)=@MEDTVMAP@(0)+1 ; ADDING A MED HERE
  . S @MEDVMAP@("MEDOBJECTID")="MED"_(ZI+MEDCNT) ; UNIQUE OBJID FOR MEDS