foreach $supply (@supplies) {
      $AlarmCount++  if(($supply->[4] - $supply->[3]) <= $AlarmFilter);
      my $dbEvents = new Sybase::CTlib 'ops','opsops','OPSYB1','filleventsT';
      $dbEvents->ct_sql("use rhic_au_fy01_fill");
      my $sql = "SELECT *
                 FROM fillEventsT
                 WHERE rhicTime like 'Oct%' and (event like 'ev-bquench' or event like 'ev-yquench')";
      my(@fills,$fill);
      @fills =  $dbEvents->ct_sql($sql);
      foreach $fill (@fills) { # how many alarms occur w/in (Y) seconds of a QUENCH EVENT?
	$QuenchCount++ if(($supply->[3] - $fill->[0]) <= $QuenchFilter) and (($supply->[3] - $fill->[0]) > 0);
      }
    }


sub GetQuenchTimes { # put quench times in a hash
use strict;
  my $dbEvents = new Sybase::CTlib 'harmless','harmless','OPSYB1','filleventsT';
  $dbEvents->ct_sql("use rhic_au_fy01_fill");
  my $sql = "SELECT rhicTimeUS, rhicTime
             FROM fillEventsT
             WHERE rhicTime like 'Oct%' and (event like 'ev-bquench' or event like 'ev-yquench')";
  my(@times,$time);
  @times =  $dbEvents->ct_sql($sql);
  foreach $time (@times) {
    $rhicTimeUS{$time->[0]};
    print "<$time->[0]> \n";
  }
}