Index: /ccr/trunk/p/GPLMEDS.m
===================================================================
--- /ccr/trunk/p/GPLMEDS.m	(revision 129)
+++ /ccr/trunk/p/GPLMEDS.m	(revision 130)
@@ -50,5 +50,5 @@
    . . S ZK=$P(ZA(ZI),U,2)+1 ; INCREMENT LINE COUNT FOR CURRENT MED
    . . S $P(ZA(ZI),U,2)=ZK ; AND STORE IT IN ARRAY
-   ZWR ZA
+   ;ZWR ZA
    F ZI=1:1:ZA(0) D  ; FOR EACH MED
    . I DEBUG W "ZI IS ",ZI,!