The following lines contain the word 'select', 'insert', 'update' or 'delete':
select pt.task_id from pa_tasks pt,
pa_control_items pc
where pt.project_id = pc.project_id
and pt.task_name = p_impacted_task_name
AND pc.ci_id = p_ci_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_PUB.DELETE_CI_IMPACT');
SAVEPOINT delete_ci_impact;
PA_CI_IMPACTS_pvt.delete_ci_impact(
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_id => p_ci_impact_id,
p_record_version_number => p_record_version_number,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
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 := FND_API.g_miss_char,
p_implementation_date IN DATE := FND_API.g_miss_date,
p_implemented_by IN NUMBER := FND_API.g_miss_num,
p_impby_name IN VARCHAR2 := NULL,
p_impby_type_id IN NUMBER := null,
p_implementation_comment IN VARCHAR2 := FND_API.g_miss_char,
p_record_version_number IN NUMBER := null,
p_impacted_task_id IN NUMBER := FND_API.g_miss_num,
p_impacted_task_name IN VARCHAR2 := 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 pt.task_id from pa_tasks pt,
pa_control_items pc
where pt.project_id = pc.project_id
and pt.task_name = p_impacted_task_name
AND pc.ci_id = p_ci_id;
SELECT * FROM pa_ci_impacts
WHERE ci_impact_id = p_ci_impact_id;
SAVEPOINT update_ci_impact;
PA_CI_IMPACTS_pvt.update_ci_impact(
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_id => p_ci_impact_id,
p_ci_id => p_ci_id,
p_impact_type_code => p_impact_type_code,
p_status_code => p_status_code,
p_description => l_description,
p_implementation_date => l_implementation_date,
p_implemented_by => l_implemented_by,
p_impby_name => p_impby_name,
p_impby_type_id => p_impby_type_id,
p_implementation_comment => l_implementation_comment,
p_record_version_number => p_record_version_number,
p_impacted_task_id => l_task_id,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
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;