Index: /ccr/trunk/p/GPLMEDS.m
===================================================================
--- /ccr/trunk/p/GPLMEDS.m	(revision 80)
+++ /ccr/trunk/p/GPLMEDS.m	(revision 81)
@@ -32,6 +32,6 @@
           S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS"))
           S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
-          F J=1:1 Q:'$D(MEDRSLT(J))  D  ; FOR EACH MEDICATION IN THE LIST
-          . W "J IS",J,!
+          F J=1:3 Q:'$D(MEDRSLT(J))  D  ; FOR EACH MEDICATION IN THE LIST
+          . W "J IS ",J,!
           . S MEDVMAP=$NA(@MEDTVMAP@(J))
           . K @MEDVMAP
@@ -57,8 +57,6 @@
           . S @MEDVMAP@("MEDICATIONSTRENGTHUNIT")=""
           . S @MEDVMAP@("MEDICATIONFORMTEXT")=""
-          . S J=J+1
-          . S @MEDVMAP@("MEDICATIONDESCRIPTIONTEXT")=$P(MEDRSLT(J)," *",2)
-          . S J=J+1
-          . S @MEDVMAP@("MEDICATIONDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J),"\ Sig: ",2)
+          . S @MEDVMAP@("MEDICATIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+1)," *",2)
+          . S @MEDVMAP@("MEDICATIONDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
           . S @MEDVMAP@("MEDICATIONDIRECTIONDOSEVALUE")=""
           . S @MEDVMAP@("MEDICATIONDIRECTIONROUTETEXT")=""
@@ -67,10 +65,9 @@
           . K @MEDARYTMP
           . D MAP^GPLXPATH(MEDXML,MEDVMAP,MEDARYTMP)
-          . I J=3 D  ; FIRST ONE IS JUST A COPY
+          . I J=1 D  ; FIRST ONE IS JUST A COPY
           . . ; W "FIRST ONE",!
           . . D CP^GPLXPATH(MEDARYTMP,MEDOUTXML)
-          . I J>3 D  ; AFTER THE FIRST, INSERT INNER XML
+          . I J>1 D  ; AFTER THE FIRST, INSERT INNER XML
           . . D INSINNER^GPLXPATH(MEDOUTXML,MEDARYTMP)
-          . S J=J+1
           N MEDTMP,MEDI
           D MISSING^GPLXPATH(MEDOUTXML,"MEDTMP") ; SEARCH XML FOR MISSING VARS