пжлста подскажите как запустить набор запросов алертом(сигналом)...

---
Best Regards,
Zaure

не нашла как сигналом запустить сразу набор запросов, сделала процедуру и зарегила как конкарент и всё равно вылетает на stage1 ((( что я делаю не так???????

procedure run_vendor_creation(err_buf IN OUT NOCOPY VARCHAR2,
retcode IN OUT NOCOPY VARCHAR2) is
l_success boolean;
l_Result Number;
submit_failed exception;
l_stage number;
Begin

delete from xxap_supplier1 ss where ss.luka_code = 0;
l_success := Fnd_Submit.Set_Request_Set('SQLAP',
'XXAP_EMPL_VNDR_IMPORT_SET');
If (l_success) Then
delete from xxap_supplier1 ss where ss.luka_code = 1;
l_success := fnd_submit.submit_program(application => 'SQLAP',
program => 'XXAP_EMP_IMPORT_FILL_TABLES',
stage => 'STAGE1');
if (not l_success) then
l_stage := 1;
raise submit_failed;
end if;
delete from xxap_supplier1 ss where ss.luka_code = 2;
l_success := fnd_submit.submit_program(application => 'SQLAP',
program => 'APXSUIMP',
stage => 'STAGE2',
argument1 => 'ALL',
argument2 => '1000',
argument3 => 'N',
argument4 => 'N',
argument5 => 'N',
argument6 => '-99');
if (not l_success) then
l_stage := 2;
raise submit_failed;
end if;
delete from xxap_supplier1 ss where ss.luka_code = 3;
l_success := fnd_submit.submit_program(application => 'SQLAP',
program => 'XXAP_EMP_IMPORT_UPDATE_SITES',
stage => 'STAGE3');
if (not l_success) then
l_stage := 3;
raise submit_failed;
end if;
delete from xxap_supplier1 ss where ss.luka_code = 4;
l_success := fnd_submit.submit_program(application => 'SQLAP',
program => 'APXSSIMP',
stage => 'STAGE4',
argument1 => 'ALL',
argument2 => '1000',
argument3 => 'N',
argument4 => 'N',
argument5 => 'N',
argument6 => '-99');
if (not l_success) then
l_stage := 4;
raise submit_failed;
end if;
delete from xxap_supplier1 ss where ss.luka_code = 5;
l_success := fnd_submit.submit_program(application => 'SQLAP',
program => 'XXAP_SUPPLIER_SITE_EXT_ACCNT',
stage => 'STAGE5');
if (not l_success) then
l_stage := 5;
raise submit_failed;
end if;
l_Result := Fnd_Submit.Submit_Set;
else
l_stage := 0;
raise submit_failed;
End If;
commit;
EXCEPTION
WHEN submit_failed THEN
log_line('Произошла ошибка в работе конкарента # ' ||l_stage);
end;