my $sth = $dbh_conn->run_query('check_user', 'exec Mrf_Maint.check_user ?', $login_id);

##</code><code>##

sub run_query {

   my $self = shift;
   my $name = shift;
   my $query = shift;   
   
   my $sth = $self->{'_conn'}->prepare($query) || print $DBI::errstr;   
   $sth->execute(@_) || print $DBI::errstr;

   return $sth;

}