Index: /ccr/trunk/p/GPLMEDS.m
===================================================================
--- /ccr/trunk/p/GPLMEDS.m	(revision 94)
+++ /ccr/trunk/p/GPLMEDS.m	(revision 95)
@@ -35,4 +35,5 @@
    S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS"))
    S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
+   K @MEDTVMAP,@MEDTARYTMP
    F J=1:3 Q:'$D(MEDRSLT(J))  D  ; FOR EACH MEDICATION IN THE LIST
    . I DEBUG W "J IS ",J,!