The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_last_update_login IN NUMBER DEFAULT fnd_global.login_id,
x_ci_impact_type_usage_id OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_msg_index_out NUMBER;
PROCEDURE delete_ci_impact_type_usage (
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_type_usage_id IN NUMBER := null,
p_impact_type_code IN VARCHAR2 := null,
p_ci_type_class_code IN VARCHAR2 := null,
p_ci_type_id IN NUMBER := null,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_msg_index_out NUMBER;
pa_debug.set_err_stack ('PA_CI_IMPACT_TYPE_USAGE_PUB.DELETE_CI_IMPACT_TYPE_USAGE');
SAVEPOINT delete_ci_impact_type_usage;
PA_CI_IMPACT_TYPE_USAGE_pvt.delete_ci_impact_type_usage (
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_commit => p_commit,
p_validate_only => p_validate_only,
p_max_msg_count => p_max_msg_count,
p_ci_impact_type_usage_id => p_ci_impact_type_usage_id,
p_impact_type_code => p_impact_type_code,
p_ci_type_class_code => p_ci_type_class_code,
p_ci_type_id => p_ci_type_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
ROLLBACK TO delete_ci_impact_type_usage;
p_procedure_name => 'DELETE_CI_IMPACT_TYPE_USAGE',
p_error_text => SUBSTRB(SQLERRM,1,240));
END delete_ci_impact_type_usage;
FUNCTION delete_impact_type_usage_ok
(
p_impact_type_code IN VARCHAR2 ,
p_ci_type_id IN NUMBER
) RETURN varchar2
IS
l_dummy VARCHAR2(1);
SELECT 'N'
INTO l_dummy
FROM dual
WHERE exists (Select pci.ci_id from
pa_control_items pci,
pa_ci_impacts pc
where pci.ci_type_id = p_ci_type_id
and pci.ci_id = pc.ci_id
and pc.impact_type_code = p_impact_type_code
);