Changeset 109 for ccr/trunk

Timestamp:

Aug 28, 2008, 2:36:01 PM (16 years ago)

Author:

George Lilly

Message:

debugging 5 line meds

File:

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

ccr/trunk/p/GPLMEDS.m

@@ -70 +70 @@
    . I $D(MEDRSLT(J+2)) D  ; IF THIRD LINE EXISTS
    . . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
-   . I MEDRSLT(J+3)?1"t".E S DONE=1 ; IF CONTINUATION LINES
+   . I $D(MEDRSLT(J+3)) D  ; IF THERE IS ANOTHER LINE
+   . . I MEDRSLT(J+3)?1"t".E S DONE=1 ; IF CONTINUATION LINES
    . S @MEDVMAP@("MEDDOSEVALUE")=""
    . S @MEDVMAP@("MEDDOSEUNIT")=""