The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Check_Delete_Project_OK
(
p_api_version IN NUMBER
, p_project_id IN PA_PROJECTS.PROJECT_ID%TYPE
, p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
, x_delete_ok OUT NOCOPY VARCHAR2
, x_return_status OUT NOCOPY VARCHAR2
, x_errorcode OUT NOCOPY NUMBER
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'Check_Delete_Project_OK';
select 'y'
from dual
where exists(
select null
from ENG_ENGINEERING_CHANGES
where PROJECT_ID = X_project_id);
x_delete_ok := FND_API.G_FALSE;
x_delete_ok := FND_API.G_FALSE;
END Check_Delete_Project_OK;
PROCEDURE Check_Delete_Task_OK
(
p_api_version IN NUMBER
, p_task_id IN PA_TASKS.TASK_ID%TYPE
, p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
, x_delete_ok OUT NOCOPY VARCHAR2
, x_return_status OUT NOCOPY VARCHAR2
, x_errorcode OUT NOCOPY NUMBER
, x_msg_count OUT NOCOPY NUMBER
, x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'Check_Delete_Project_OK';
select 'y'
from dual
where exists(
select null
from ENG_ENGINEERING_CHANGES
where TASK_ID = X_task_id );
x_delete_ok := FND_API.G_FALSE;
x_delete_ok := FND_API.G_FALSE;
END Check_Delete_Task_OK;