HRMS Salary Proposal API

declare

l_element_entry_id            NUMBER;
l_inv_next_sal_date_warning   BOOLEAN;
l_proposed_salary_warning     BOOLEAN;
l_approved_warning            BOOLEAN;
l_payroll_warning             BOOLEAN;
l_pay_proposal_id             NUMBER;
v_batch_run_number            NUMBER;
l_object_version_number       NUMBER;
v_err_msg                     VARCHAR2 (400);
l_approved                    VARCHAR2 (100);
v_dummy_line_id               NUMBER;
v_asg_id                      NUMBER;
l_business_group_id           NUMBER :=81;
v_emp_eff_start_date date ;
cursor c1 is
select * from  XX_PAYROLL
where person_id = 16438 ;
BEGIN

for i in c1 loop
BEGIN

l_pay_proposal_id := NULL;
l_element_entry_id := NULL;

--v_emp_eff_start_date := to_date('20-01-2010','DD-MM-RRRR');

hr_maintain_proposal_api.insert_salary_proposal
(p_pay_proposal_id                => l_pay_proposal_id,
p_assignment_id                  => i.ass_id,
p_business_group_id              => l_business_group_id,
p_change_date                    => i.eff_date,
p_proposed_salary_n              => i.salary,
p_performance_review_id          => NULL,
p_attribute_category             => NULL,
p_object_version_number          => l_object_version_number,
p_multiple_components            => 'N',          -- 918219
p_approved                       => 'Y',          -- 918219
p_validate                       => FALSE,
p_element_entry_id               => l_element_entry_id,
p_inv_next_sal_date_warning      => l_inv_next_sal_date_warning,
p_proposed_salary_warning        => l_proposed_salary_warning,
p_approved_warning               => l_approved_warning,
p_payroll_warning                => l_payroll_warning
);
COMMIT;

UPDATE xx_payroll
SET valid_flag = 'Done',
error_msg = NULL,
element_entry_id = l_element_entry_id
WHERE person_id  = i.person_id;

Commit;

EXCEPTION
WHEN OTHERS
THEN
v_err_msg := SQLERRM;

UPDATE xx_payroll
SET valid_flag = 'Error',
error_msg = v_err_msg
WHERE person_id  = i.person_id;

Commit;

END;

COMMIT;

end loop;

END;
/