my ($self, $status) = @_;

  #$self->_validate_status($status);

  my $sql = "SELECT status_name_id from status_name where name='$status'";

  my $ref = $self->db->dbc->db_handle->selectrow_arrayref($sql);

  my ($status_id) = @$ref if $ref;


  #we should throw here?
  #To force manual addition of the status_name
  #need to make sure all status_names which are explicitly used by API
  #are stored in all DBs, else we could find ourselves with broken code
  #for sparsely populated DBs

  throw("Status name $status is not valid.  Maybe you need to add it using update_status_name.pl?") if ! $status_id;


  return $status_id;
}


1;

  my ($self, $obj) = @_;

  if(! $obj || 
     (ref($obj) !~ /Bio::EnsEMBL::Funcgen/) ||
     (ref($obj) =~ /::DBSQL::/)){
    throw("Need to specifiy a Bio::EnsEMBL::Funcgen::\"OBJECT\"");
  }

  throw("Cannot test state of unstored object: $obj") if (! $obj->is_stored($self->db()));

  my @tables = $self->_tables;

  my ($table) = @{$tables[0]};
  #ExpreimetnalSubSet fix, as doesn't have own adaptor
  $table = 'experimental_subset' if $obj->isa('Bio::EnsEMBL::Funcgen::ExperimentalSubset');


  #my $table = ${$obj->adaptor->_tables()}[0];

  return $table || $self->throw("Cannot identify table name from $obj adaptor");

  my ($self, $status) = @_;

  my ($constraint);
  #Can we throw here if we're trying to get all from known large tables


  $constraint = $self->status_to_constraint($status) if $status;

  
  if(defined $status && ! defined $constraint){
	#warn "You have specifed a status($status) which is not present in the DB";
	return undef;
  }


  return $self->generic_fetch($constraint);

  my ($self, $status) = @_; 

  deprecate('Use fetch_all($status) instead');
  return $self->fetch_all($status);

}


#Can we not just re implement fetch_all here to have the optional status arg?

  my $self = shift;
  return $self->fetch_all_by_status('DISPLAYABLE');

  my ($self, $obj) = @_;

  my $table = $self->_test_funcgen_table($obj);


  my $sql = "SELECT name FROM status_name sn, status s WHERE s.table_name='$table' AND s.table_id='".$obj->dbID()."' and s.status_name_id=sn.status_name_id";


  my @states = map $_ = "@$_", @{$self->db->dbc->db_handle->selectall_arrayref($sql)};

  return\@ states;

  my ($self, $state, $obj) = @_;

  my (@row);

  #Only used for set_status, merge with set_status?
  my $status_id = $self->_get_status_name_id($state);

  if (! (ref($obj) && $obj->isa("Bio::EnsEMBL::Funcgen::Storable") && $obj->dbID())){
	throw("Must pass a stored Bio::EnsEMBL::Funcgen::Storable");
  }

  my $table = $self->_test_funcgen_table($obj);
 


  if($status_id){
    my $sql = "SELECT status_name_id FROM status WHERE table_name=\"$table\" AND table_id=\"".$obj->dbID()."\" AND status_name_id=\"$status_id\"";

    #could just return the call directly?
    @row = $self->db->dbc->db_handle->selectrow_array($sql);
  }

  return (@row) ? 1 : 0;

  my ($self, $storable) = @_;

  $self->db->is_stored_and_valid('Bio::EnsEMBL::Funcgen::Storable', $storable);
 
  my $table_name = $self->_test_funcgen_table($storable);

  #hardcode for ExperimentalSubset as this uses the ExperimentalSetAdaptor
  $table_name = 'experimental_subset' if $storable->isa('Bio::Ensembl::Funcgen:ExperimentalSubset');
 
  my $sql = "delete from status where table_name='${table_name}'".
	" and table_id=".$storable->dbID();

  $self->db->dbc->db_handle->do($sql);

  #Clear stored states
  undef $storable->{'states'};

  return $storable;

  my ($self, $state, $storable) = @_;

  throw('Must provide a status name') if(! defined $state);
  throw('Must pass a Bio::EnsEMBL::Funcgen::Storable') if(! $storable->isa("Bio::EnsEMBL::Funcgen::Storable"));
 
  my $status_id = $self->_get_status_name_id($state);
  my $table_name = $self->_test_funcgen_table($storable);
  #hardcode for ExperimentalSubset as this uses the ExperimentalSetAdaptor
  $table_name = 'experimental_subset' if $storable->isa('Bio::Ensembl::Funcgen:ExperimentalSubset');
 

  if(! $self->has_store_status($state, $storable)){
	warn $storable.' '.$storable->dbID()." does not have status $state to revoke\n";
	return;
  }

  #do sanity checks on table to ensure that IMPORTED does not get revoke before data deleted?
  #how would we test this easily?

  my $sql = "delete from status where table_name='${table_name}'".
	" and status_name_id=${status_id} and table_id=".$storable->dbID();

  $self->db->dbc->db_handle->do($sql);

  #now splice from status array;
  #splice in loop should work as we will only see 1
  #Just hash this?

  for my $i(0..$#{$storable->{'states'}}){
	
	if($storable->{'states'}->[0] eq $state){
	  splice @{$storable->{'states'}}, $i, 1;
	  last;
	}
  }

  return;

  my ($self, $status, $table_name, @table_ids) = @_;


  my @status_ids;

  my $status_id = $self->_get_status_name_id($status);


  return\@ status_ids if(! $status_id);

  throw("Must provide a table_name and table_ids to filter non-displayable ids") if(! ($table_name && @table_ids));
  
  my $sql = "SELECT table_id from status where table_name='$table_name' and table_id in (".join(", ", @table_ids).") and status.status_name_id='$status_id'";
  
  
  @status_ids = map $_ = "@$_", @{$self->db->dbc->db_handle->selectall_arrayref($sql)};

  return\@ status_ids;

  my ($self, $status) = @_;
  
  my $constraint;

  #This will throw if status not valid, but still may be absent
  my $status_id = $self->_get_status_name_id($status);

  
  #THIS DOES NOT ACCOMODATE THE EXPEIRMENTAL_SUBSET ISSUE!!

  #NO we need to handle this better
  #can't just return as we'd then simply ignore the contraint
  #can't throw??
  
  return if (! $status_id);
  
  my @tables = $self->_tables;
  my ($table_name, $syn) = @{$tables[0]};

  my @status_ids;

  my $sql = "SELECT table_id from status where table_name='$table_name' and status_name_id='$status_id'";
  @status_ids = map $_ = "@$_", @{$self->db->dbc->db_handle->selectall_arrayref($sql)};

  #This is causing problems as we might get none, which will invalidate the sql
  #Hence we return nothing

  $constraint = " $syn.${table_name}_id IN (".join(',', @status_ids).")" if @status_ids;
  
  return $constraint;

  my ($self, $storable) = @_;

  throw('Must pass a Bio::EnsEMBL::Funcgen::Storable') if(! $storable->isa("Bio::EnsEMBL::Funcgen::Storable"));
  
  foreach my $state(@{$storable->get_all_states()}){

    $self->store_status($state, $storable) if (! $self->has_stored_status($state, $storable));
  }

  return;

  my ($self, $state, $obj) = @_;

  my $sql;

  if($self->has_stored_status($state, $obj)){
    warn("$obj with dbID ".$obj->dbID()." already has status $state set\n");
  }else{
    my $status_id = $self->_get_status_name_id($state);

    if(! $status_id){
      throw("$state is not a valid status_name for $obj:\t".$obj->dbID);
      #$sql = "INSERT into status_name(name) values('$state')";
      #$self->db->dbc->do($sql);
      #$status_id = $self->_get_status_name_id($state);
    }

    my $table = $self->_test_funcgen_table($obj);
  

    $sql = "INSERT into status(table_id, table_name, status_name_id) VALUES('".$obj->dbID()."', '$table', '$status_id')";
    $self->db->dbc->do($sql);

	#Should we not be setting it in the obj here too?
	#No becasue we should have already added to the object.
  }

  return;

  Example    : my @displayable_dset = @{$dsa->fetch_all_displayable()};
  Description: Gets all displayable DataSets
  Returntype : ARRAYREF
  Exceptions : None
  Caller     : General
  Status     : At Risk - can we just reimplement fetch_all with optional status arg