Changeset 97

Timestamp:

Aug 19, 2008, 8:47:22 PM (16 years ago)

Author:

George Lilly

Message:

killed value arrays at beginning of processing for Vitals and Problems

Location:

ccr/trunk/p

Files:

• GPLPROBS.m (modified) (1 diff)
• GPLRIMA.m (modified) (1 diff)
• GPLVITALS.m (modified) (1 diff)

ccr/trunk/p/GPLPROBS.m

@@ -38 +38 @@
           S TVMAP=$NA(^TMP("GPLCCR",$J,"PROBVALS"))
           S TARYTMP=$NA(^TMP("GPLCCR",$J,"PROBARYTMP"))
+          K @TVMAP,@TARYTMP ; KILL OLD ARRAY VALUES
           F J=1:1:RPCRSLT(0)  D  ; FOR EACH PROBLEM IN THE LIST
           . S VMAP=$NA(@TVMAP@(J))

ccr/trunk/p/GPLRIMA.m

@@ -84 +84 @@
     N SBASE,SATTR
     S SBASE=$NA(@RIMBASE@("VARS",SDFN))
+    D APOST("SATTR","RIMTBL","HEADER")
     I $D(@SBASE@("PROBLEMS",1)) D  ;
     . D APOST("SATTR","RIMTBL","PROBLEMS")

ccr/trunk/p/GPLVITALS.m

@@ -35 +35 @@
           S VITTVMAP=$NA(^TMP("GPLCCR",$J,"VITALS"))
           S VITTARYTMP=$NA(^TMP("GPLCCR",$J,"VITALARYTMP"))
+          K @VITTVMAP,@VITTARYTMP ; KILL OLD ARRAY VALUES
           F J=1:1:VITRSLT(1)  D  ; FOR EACH VITAL IN THE LIST
           . I $D(VITRSLT(J)) D