killed value arrays at beginning of processing for Vitals and Problems

p/GPLPROBS.m

@@ -37,6 +37,7 @@ EXTRACT(IPXML,DFN,OUTXML) ; EXTRACT PROBLEMS INTO PROVIDED XML TEMPLATE
           I DEBUG ZWR RPCRSLT
           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))
           . K @VMAP

p/GPLRIMA.m

@@ -83,6 +83,7 @@ ANALYZE(BEGDFN,DFNCNT) ; RIM COHERANCE ANALYSIS ROUTINE
 SETATTR(SDFN) ; SET ATTRIBUTES BASED ON VARS
     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")
     . W "POSTING PROBLEMS",!

p/GPLVITALS.m

@@ -34,6 +34,7 @@ EXTRACT(VITXML,DFN,VITOUTXML) ; EXTRACT VITALS INTO PROVIDED XML TEMPLATE
           ; ZWR RPCRSLT
           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
           . . S VITVMAP=$NA(@VITTVMAP@(J))