diff --git a/p/GPLMEDS.m b/p/GPLMEDS.m
index 336394f..1e5c882 100644
--- a/p/GPLMEDS.m
+++ b/p/GPLMEDS.m
@@ -70,7 +70,10 @@ EXTRACT(MEDXML,DFN,MEDOUTXML) ; EXTRACT MEDICATIONS INTO PROVIDED XML TEMPLATE
    . I $D(MEDRSLT(J+2)) D  ; IF THIRD LINE EXISTS
    . . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
    . I $D(MEDRSLT(J+3)) D  ; IF THERE IS ANOTHER LINE
-   . . I MEDRSLT(J+3)?1"t".E S DONE=1 ; IF CONTINUATION LINES
+   . . I MEDRSLT(J+3)?1"t".E D  ; CONTINUATION LINES
+   . . . I $D(MEDRSLT(J+6)) D  ;
+   . . . . S J=J=3 ; SKIP THREE LINES TO NEXT MED
+   . . . E  S DONE=1 ; ELSE NO MORE MEDS
    . S @MEDVMAP@("MEDDOSEVALUE")=""
    . S @MEDVMAP@("MEDDOSEUNIT")=""
    . S @MEDVMAP@("MEDFREQUENCYVALUE")=""