Changeset 108

Timestamp:

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

Author:

George Lilly

Message:

more meds debugging.. looking for 5 line med rpc results

File:

• ccr/trunk/p/GPLMEDS.m (modified) (2 diffs)

ccr/trunk/p/GPLMEDS.m

@@ -37 +37 @@
    S MEDTARYTMP=$NA(^TMP("GPLCCR",$J,"MEDARYTMP"))
    K @MEDTVMAP,@MEDTARYTMP
-   F J=1:3 Q:'$D(MEDRSLT(J))  D  ; FOR EACH MEDICATION IN THE LIST
+   N DONE S DONE=0
+   F J=1:3 Q:'$D(MEDRSLT(J))!DONE  D  ; FOR EACH MEDICATION IN THE LIST
    . I DEBUG W "J IS ",J,!
    . S MEDVMAP=$NA(@MEDTVMAP@(J))
@@ -69 +70 @@
    . I $D(MEDRSLT(J+2)) D  ; IF THIRD LINE EXISTS
    . . S @MEDVMAP@("MEDDIRECTIONDESCRIPTIONTEXT")=$P(MEDRSLT(J+2),"\ Sig: ",2)
-   . S @MEDVMAP@("MEDDIRECTIONDOSEVALUE")=""
+   . I MEDRSLT(J+3)?1"t".E S DONE=1 ; IF CONTINUATION LINES
+   . S @MEDVMAP@("MEDDOSEVALUE")=""
+   . S @MEDVMAP@("MEDDOSEUNIT")=""
+   . S @MEDVMAP@("MEDFREQUENCYVALUE")=""
+   . S @MEDVMAP@("MEDDURATIONVALUE")=""
+   . S @MEDVMAP@("MEDDURATIONUNIT")=""
    . S @MEDVMAP@("MEDDIRECTIONROUTETEXT")=""
    . S @MEDVMAP@("MEDDIRECTIONFREQUENCYVALUE")=""