use strict;
my $sth;

sub secIsNew {
 
  # Given a PACE security ID, return 1 if that security is newly held,
  # 0 if that security is not newly held.

  $sth ||= $dbh->prepare <<EOF;
SELECT COUNT(*) FROM analytics.an_security
WHERE security_id = ? AND is_new = 'Y'
EOF

  $sth->execute(@_);
  my ($count) = $sth->fetchrow_array();
  return $count;
}