Index: ccr/trunk/p/C0CVITAL.m
===================================================================
--- ccr/trunk/p/C0CVITAL.m	(revision 564)
+++ ccr/trunk/p/C0CVITAL.m	(revision 565)
@@ -357,4 +357,5 @@
  . W "VITALS MISSING ",!
  . F I=1:1:VITTMP(0) W VITTMP(I),!
+ K ^TMP("CIAVMRPC",$J)
  Q
  ;