start 
 Kill ^CacheErrorz
 do READ^vhdev(,"cacheerrors.txt","D`r^importErr","T")
 Quit
 
r(rec)
 New len,i,err
 s err=$E($P(rec,D,2),1,1024)
 Set len=80
 Set max=$L(err)
 set enter=1
 
 For i=1:1:max Q:(max<len)  Do  
 . s:$E(err,i)=" "&(enter)&(i'<len) $E(err,i)=$c(13,10),enter=0
 . s:$E(err,i)'=" "&(enter)&(i'<len) i=$S($F(err," ",i)>0:$F(err," ",i)-1,1:max),$E(err,i)=$c(13,10),enter=0
 . s:i#len=0 enter=1
  
 s ^CacheErrorz($P(rec,D,1))=err
 Quit