sub _mark_as_called {
  my $self = shift;
  my $phone = shift;
  my $update = $self->{'cfg'}->param('sql.note_dial_result');
  print STDERR $update, "\n";
  my $sth = $self->{'dbh'}->prepare($update);
  $sth->execute($phone,$self->{'s'}->{'userid'});
  return;
}