$dbh->{RaiseError} = 1;
$dbh->do(q|DELETE FROM issues|);
$dbh->do(q|DELETE FROM subscription|);
my $branchcode = 'CPL';
my $bpid = AddBudgetPeriod({
-