The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE delete_status_pvt
( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM --- (Bug 1851096)
,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE -- (Bug 1851096)
,p_commit IN VARCHAR2 := FND_API.G_FALSE
,p_validate_only IN VARCHAR2 := FND_API.G_FALSE
,p_max_msg_count IN NUMBER
,p_pa_project_status_code IN VARCHAR2
,x_return_status OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_msg_count OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
,x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
,x_allow_deletion_flag OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
)
IS
l_api_name CONSTANT VARCHAR2(30) := 'delete_status';
SAVEPOINT delete_status_pub;
select status_type
into l_status_type
from pa_project_statuses
where project_status_code=p_pa_project_status_code;
PA_EGO_WRAPPER_PUB.process_phase_code_delete(
p_api_version => p_api_version_number ,
p_phase_code => p_pa_project_status_code ,
p_init_msg_list => p_init_msg_list ,
p_commit => p_commit ,
x_return_status => l_return_status ,
x_errorcode => l_errorcode ,
x_msg_count => l_msg_count ,
x_msg_data => l_msg_data);
PA_PROJECT_STATUSES_PKG.delete_row(p_pa_project_status_code);
PA_PROJECT_STATUS_CONTROLS_PKG.delete_row(p_pa_project_status_code);
PA_NEXT_ALLOW_STATUSES_PKG.delete_row(p_pa_project_status_code);
ROLLBACK TO delete_status_pub;
ROLLBACK TO delete_status_pub;
ROLLBACK TO delete_status_pub;
ROLLBACK TO delete_status_pub;
ROLLBACK TO delete_status_pub;
END delete_status_pvt;