The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'Y' FROM dual
WHERE exists (SELECT ci_impact_id FROM
pa_ci_impacts
WHERE
ci_id = p_ci_id
AND impact_type_code = p_impact_type_code);
PA_CI_IMPACTS_pkg.insert_row(
x_rowid => l_rowid,
x_ci_impact_id => x_ci_impact_id,
x_ci_id => p_ci_id,
x_impact_type_code => p_impact_type_code,
x_status_code => p_status_code,
x_description => p_description,
x_implementation_date => p_implementation_date,
x_implemented_by => p_implemented_by,
x_implementation_comment => p_implementation_comment,
x_impacted_task_id => p_impacted_task_id,
x_creation_date => sysdate,
x_created_by => fnd_global.user_id,
x_last_update_date => sysdate,
x_last_updated_by => fnd_global.user_id,
x_last_update_login => fnd_global.login_id);
PROCEDURE delete_ci_impact (
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := 'T',
p_commit IN VARCHAR2 := 'F',
p_validate_only IN VARCHAR2 := 'T',
p_max_msg_count IN NUMBER := null,
p_ci_impact_id IN NUMBER := null,
p_record_version_number IN NUMBER := null,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_temp VARCHAR2(1);
pa_debug.set_err_stack ('PA_CI_IMPACTS_PVT.DELETE_CI_IMPACT');
SAVEPOINT delete_ci_impact;
pa_ci_impacts_util.is_delete_impact_ok
(
p_ci_impact_id,
x_return_status ,
x_msg_count ,
x_msg_data
);
PA_CI_IMPACTS_pkg.delete_row(
x_ci_impact_id => p_ci_impact_id,
x_record_version_number => p_record_version_number
);
ROLLBACK TO delete_ci_impact;
ROLLBACK TO delete_ci_impact;
p_procedure_name => 'DELETE_CI_IMPACT',
p_error_text => SUBSTRB(SQLERRM,1,240));
END delete_ci_impact;
PROCEDURE update_ci_impact (
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := 'T',
p_commit IN VARCHAR2 := 'F',
p_validate_only IN VARCHAR2 := 'T',
p_max_msg_count IN NUMBER := null,
p_ci_impact_id IN NUMBER:= null,
p_ci_id IN NUMBER := null,
p_impact_type_code IN VARCHAR2 := null,
p_status_code IN VARCHAR2 := null,
p_description IN VARCHAR2 := null,
p_implementation_date IN DATE := null,
p_implemented_by IN NUMBER := null,
p_impby_name IN VARCHAR2 := null,
p_impby_type_id IN NUMBER := null,
p_implementation_comment IN VARCHAR2 := null,
p_record_version_number IN NUMBER := null,
p_impacted_task_id IN NUMBER := null,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_rowid VARCHAR2(30);
select hp.party_id from fnd_user fu,
hz_parties hp
where
user_id = FND_GLOBAL.user_id
and employee_id is not null
and hp.orig_system_reference = 'PER:' || fu.employee_id;
select hp.party_id from fnd_user fu,
hz_parties hp
where
user_id = FND_GLOBAL.user_id
and employee_id is null
and hp.party_id = fu.person_party_id; -- fu.customer_id; Changed for Bug 4527617
SELECT party_id FROM
hz_parties
WHERE party_name = p_impby_name;
IS SELECT pl.meaning
FROM pa_lookups pl
WHERE p_impact_type_code = pl.lookup_code
and pl.lookup_type = 'PA_CI_IMPACT_TYPES';
pa_debug.set_err_stack ('PA_CI_IMPACTS_PVT.UPDATE_CI_IMPACTS');
SAVEPOINT update_ci_impact;
PA_CI_IMPACTS_pkg.update_row(
x_ci_impact_id => p_ci_impact_id,
x_ci_id => p_ci_id,
x_impact_type_code => p_impact_type_code,
x_status_code => p_status_code,
x_description => p_description,
x_implementation_date => p_implementation_date,
x_implemented_by => l_party_id,
x_implementation_comment => p_implementation_comment,
x_record_version_number => p_record_version_number,
x_impacted_task_id => p_impacted_task_id,
x_last_update_date => sysdate,
x_last_updated_by => fnd_global.user_id,
x_last_update_login => fnd_global.login_id );
ROLLBACK TO update_ci_impact;
ROLLBACK TO update_ci_impact;
ROLLBACK TO update_ci_impact;
p_procedure_name => 'UPDATE_CI_IMPACT',
p_error_text => SUBSTRB(SQLERRM,1,240));
END update_ci_impact;