Changeset 95

Timestamp:

Aug 19, 2008, 7:52:17 PM (16 years ago)

Author:

George Lilly

Message:

added kill for Meds value array at beginning of GPLMEDS processing

File:

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

ccr/trunk/p/GPLMEDS.m

@@ -35 +35 @@
    S MEDTVMAP=$NA(^TMP("GPLCCR",$J,"MEDICATIONS"))
    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
    . I DEBUG W "J IS ",J,!