while (<IN>) {

   chomp();

  if (/^(MSH)(.....)/) {
    setdelimiters($2);
  }

  @field = split /$fs/;


  if ($newblock{$field[0]}) {
    processbuffer();
  } elsif (!$partofblock{$field[0]}) {
    print STDERR "Possible error: segment=$field[0] line $.\n";
  }


  if ($field[0] eq "FT1") {
   
    if ($field[7] == $skipaccount{$_}) {

            $suppress = 1 if $skipaccount{$field[7]};

      }
    }
 
   $buffer .= "$_\n";      
}
processbuffer();


sub processbuffer {
  print OUT $buffer unless $suppress;
  $buffer="";
  $suppress = 0;
}