Changeset 110 for ccr/trunk

Timestamp:

Aug 28, 2008, 2:51:49 PM (16 years ago)

Author:

George Lilly

Message:

more meds debugging

File:

• ccr/trunk/p/GPLMEDS.m (modified) (1 diff)

ccr/trunk/p/GPLMEDS.m

@@ -71 +71 @@
    . . 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")=""