Base table is not getting updated

Question

Hi friends,
am trying to update the attribute18 from the per_vacancies table by adding 1 to it
when am running the concurrent program it is not updating the table
what might be the reason
this is my code
CREATE OR REPLACE PACKAGE BODY apps.update_vacancy_pkg
IS
PROCEDURE update_vacancy_prc (p_err_buf OUT VARCHAR2, p_ret_code OUT NUMBER)
IS
l_object_version_number per_vacancies.object_version_number%TYPE;
l_vacancy_id per_vacancies.vacancy_id%TYPE;
l_inv_pos_grade_warning BOOLEAN;
l_inv_job_grade_warning BOOLEAN;
l_validate NUMBER := 0;
l_assignment_changed NUMBER;
l_return_status VARCHAR2 (240);
l_openings VARCHAR2 (240);
l_err_msg VARCHAR2 (200);
l_vac_id per_vacancies.vacancy_id%TYPE;
l_attr VARCHAR2 (100);
l_attr1 VARCHAR2 (100);
l_attr2 VARCHAR2 (100);
l_attr3 VARCHAR2 (100);
l_attr4 VARCHAR2 (100);
BEGIN
BEGIN
SELECT object_version_number, attribute7, vacancy_id
INTO l_object_version_number, l_openings, l_vac_id
FROM per_vacancies
WHERE vacancy_id IN (SELECT MAX (vacancy_id)
FROM per_vacancies);
EXCEPTION
WHEN OTHERS
THEN
l_vac_id := 0;
l_openings := 0;
END;
BEGIN
SELECT MAX (attribute18)
INTO l_attr
FROM per_vacancies;
SELECT (REGEXP_SUBSTR (l_attr, '.*C'))
INTO l_attr1
FROM DUAL;
SELECT REGEXP_REPLACE (l_attr, '^.*C(.+)$', '\1')
INTO l_attr2
FROM DUAL;
SELECT TO_NUMBER (l_attr2) + 1
INTO l_attr3
FROM DUAL;
SELECT l_attr1 || l_attr3
INTO l_attr4
FROM DUAL;
EXCEPTION
WHEN OTHERS
THEN
l_attr4 := 0;
END;
l_object_version_number := 0;
l_assignment_changed := 0;
l_return_status := 0;
per_vacancy_swi.update_vacancy
(p_validate => l_validate,
p_effective_date => SYSDATE,
p_vacancy_id => l_vac_id,
p_object_version_number => l_object_version_number,
p_number_of_openings => l_openings,
p_budget_measurement_value => l_openings,
p_attribute18 => l_attr4,
p_assignment_changed => l_assignment_changed,
p_return_status => l_return_status
COMMIT;
fnd_file.put_line (fnd_file.LOG, 'Executed Vacancy' || l_vac_id);
fnd_file.put_line (fnd_file.LOG,
'Assignment chaged = ' || l_assignment_changed
fnd_file.put_line (fnd_file.LOG, 'Return Status = ' || l_return_status);
fnd_file.put_line (fnd_file.LOG, 'l_attr4= ' || l_attr4);
END;
END;
it is hsowing in the log file with 1 added to the attribute18
but the table is not getting updated
can some one of you suggest a solution pls
thanks
Edited by: 776317 on Apr 27, 2011 9:15 PM
Edited by: 776317 on Apr 27, 2011 10:01 PM

Answer 1

but how come the seeded api has this
PROCEDURE update_vacancy
(p_validate in number default hr_api.g_false_num
,p_effective_date in date
,p_vacancy_id in number
,p_attribute17 in varchar2 default hr_api.g_varchar2
,p_attribute18 in varchar2 default hr_api.g_varchar2
.);Enable trace/debug, this may give you an idea about the data which is not saved.
Thanks,
Hussein