The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE delete_status
( p_api_version_number IN NUMBER := PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE -- 1851096 changed for TRUE to FALSE
,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
v_status_type VARCHAR2(30);
select status_type
into v_status_type
from pa_project_statuses
where project_status_code = p_pa_project_status_code;
pa_statuses_pvt.delete_status_pvt
(p_api_version_number => p_api_version_number
,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_pa_project_status_code => p_pa_project_status_code
,x_return_status => x_return_status
,x_msg_count => x_msg_count
,x_msg_data => x_msg_data
,x_allow_deletion_flag => x_allow_deletion_flag
);
fnd_message.set_token('PROCEDURE_NAME','delete_status');
fnd_message.set_token('PROCEDURE_NAME','delete_status');
p_procedure_name => 'delete_status',
p_error_text => SUBSTRB(SQLERRM,1,240));
END delete_status;