$sth->execute ($lBOA_BLC_MASTER_ID) or die "Cannot execute: " . $sth->errstr();
%data = map { $_ => 1 } $sth->fetchrow();