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_rowid VARCHAR2(30);
SELECT 'Y' FROM dual
WHERE exists (SELECT ci_impact_type_usage_id FROM
pa_ci_impact_type_usage
WHERE ci_type_class_code = p_ci_type_class_code
AND ci_type_id = p_ci_type_id
AND impact_type_code = p_impact_type_code);
PA_CI_IMPACT_TYPE_USAGE_pkg.insert_row(
x_rowid => l_rowid,
x_ci_impact_type_usage_id => x_ci_impact_type_usage_id,
x_impact_type_code => p_impact_type_code,
x_ci_type_class_code => p_ci_type_class_code,
x_ci_type_id => p_ci_type_id,
x_creation_date => p_creation_date,
x_created_by => p_created_by,
x_last_update_date => p_creation_date,
x_last_updated_by => p_created_by,
x_last_update_login => p_last_update_login);
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_temp VARCHAR2(1);
SELECT 'Y' FROM dual
WHERE exists (SELECT ci_impact_type_usage_id FROM
pa_ci_impact_type_usage
WHERE ci_impact_type_usage_id = p_ci_impact_type_usage_id
);
pa_debug.set_err_stack ('PA_CI_IMPACT_TYPE_USAGE_PVT.DELETE_CI_IMPACT_TYPE_USAGE');
SAVEPOINT delete_ci_impact_type_usage;
l_dummy := pa_ci_impact_type_usage_pub.delete_impact_type_usage_ok
(p_impact_type_code, p_ci_type_id);
PA_CI_IMPACT_TYPE_USAGE_pkg.delete_row(
x_ci_impact_type_usage_id => p_ci_impact_type_usage_id);
ROLLBACK TO delete_ci_impact_type_usage;
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;