Index: ccr/trunk/p/CCRMEDS.m
===================================================================
--- ccr/trunk/p/CCRMEDS.m	(revision 188)
+++ ccr/trunk/p/CCRMEDS.m	(revision 189)
@@ -58,5 +58,5 @@
  S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDMAP"))
  S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
- K @MEDTVMAP,@MEDTARYTMP
+ I 'HASOP K @MEDTVMAP,@MEDTARYTMP
  ; FIRST GO THROUGH MEDRSLT ARRAY AND COUNT MEDS AND LINES IN MEDS
  ; ZA(0) IS TOTAL NUMBER OF MEDS ZA(ZI) IS LINES IN MED ZI