HRMS Delete Salary Proposal API

Declare
Error_msg   varchar2(4000);

l_business_group_id number := 81;
l_proposal_salry number;
l_approved char(1);
l_rowid varchar2(30);
--------------------
-- Out Parameters --
--------------------
l_p_salary_warning boolean;
--
cursor crs_batch_run_number is

select nvl(max(abm.batch_run_number),0) +1
from hr_api_batch_message_lines abm;

cursor crs_dc_proposal is
select
pay_proposal_id,
business_group_id,
object_version_number,
assignment_id
from hr.per_pay_proposals t
where t.assignment_id not in ( 3342 , 624);

begin

for pro_rcrd in crs_dc_proposal loop

begin

hr_maintain_proposal_api.delete_salary_proposal
(p_pay_proposal_id       => pro_rcrd.pay_proposal_id
,p_business_group_id     => pro_rcrd.business_group_id
,p_object_version_number => pro_rcrd.object_version_number
,p_salary_warning        => l_p_salary_warning);

Commit;
dbms_output.PUT_LINE ('Done');

exception when others then
Error_msg := SQLERRM;
dbms_output.PUT_LINE (Error_msg);
end;
end loop;
commit;
end Delete_Proposal;
/