my $self = shift;
   my $name = shift;
   my $query = shift; 
   my $login_id = shift; 
   my $accessroles = shift;  
   
   my $ora = "ORA_RSET";  
   
   my $sth = $self->{'_conn'}->prepare($query) || print $DBI::errstr; 
   
   $sth->bind_param(1, $login_id);          
   $sth->bind_param_inout(2, \$accessroles, 0, { ora_type => 'ORA_RSET'} );    
   
   $sth->execute() || print $DBI::errstr;
   
   return $accessroles;