killed TMP("CIAVMRPC",$J) after vitals section has been processed

2009-09-16 12:20:55 +00:00 · 2009-09-16 12:20:55 +00:00 · 1ee4904d35
parent c0ebd5c754
commit 1ee4904d35
1 changed files with 1 additions and 0 deletions
--- a/p/C0CVITAL.m
+++ b/p/C0CVITAL.m
@ -356,6 +356,7 @@ VITRPMS	; EXTRACT VITALS FROM RPMS INTO PROVIDED XML TEMPLATE
 I VITTMP(0)>0 D  ; IF THERE ARE MISSING VARS - MARKED AS @@X@@
 . W "VITALS MISSING ",!
 . F I=1:1:VITTMP(0) W VITTMP(I),!
+ K ^TMP("CIAVMRPC",$J)
 Q
 ;
 VITDRPMS(VDT)	; RUN DATE SORTING ALGORITHM FOR RPMS