Index: /ccr/trunk/p/GPLMEDS.m
===================================================================
--- /ccr/trunk/p/GPLMEDS.m	(revision 93)
+++ /ccr/trunk/p/GPLMEDS.m	(revision 94)
@@ -39,5 +39,5 @@
    . S MEDVMAP=$NA(@MEDTVMAP@(J))
    . K @MEDVMAP
-   . I DEBUG W "VMAP= ",VMAP,!
+   . I DEBUG W "VMAP= ",MEDVMAP,!
    . S MEDPTMP=MEDRSLT(J) ; PULL OUT MEDICATION FROM RPC RETURN ARRAY
    . S @MEDVMAP@("MEDICATIONOBJECTID")="MED"_J ; UNIQUE OBJID FOR MEDS