sub hol_Suff {
    my $self = shift;
    my %parm = @_;
    $parm{holid} or die;
    my $dbh = $self->dbh;
    my $sth = $dbh->prepare(
	    sprintf(
		'SELECT public."hol_Suff"(%s)',
		"$parm{holid}"
	    )
	);
    $sth->execute;
    my ($actmask) = $sth->fetchrow_array;
    return $actmask;
}