The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Check_Delete_Lifecycle_OK
(
p_api_version IN NUMBER
, p_lifecycle_id IN PA_PROJ_ELEMENTS.PROJ_ELEMENT_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_count NUMBER;
l_api_name CONSTANT VARCHAR2(30) := 'Check_Delete_Lifecycle_OK';
x_delete_ok := FND_API.G_TRUE;
SELECT 1
INTO l_count
FROM DUAL
WHERE EXISTS
(SELECT 'X'
FROM MTL_SYSTEM_ITEMS_B
WHERE LIFECYCLE_ID = p_lifecycle_id);
x_delete_ok := FND_API.G_FALSE;
SELECT 1
INTO l_count
FROM DUAL
WHERE EXISTS
(SELECT 'X'
FROM MTL_ITEM_REVISIONS_B
WHERE LIFECYCLE_ID = p_lifecycle_id);
x_delete_ok := FND_API.G_FALSE;
SELECT 1
INTO l_count
FROM DUAL
WHERE EXISTS
(SELECT 'X'
FROM MTL_PENDING_ITEM_STATUS
WHERE LIFECYCLE_ID = p_lifecycle_id);
x_delete_ok := FND_API.G_FALSE;
x_delete_ok := FND_API.G_FALSE;
END Check_Delete_Lifecycle_OK;
PROCEDURE Check_Delete_Phase_OK
(
p_api_version IN NUMBER
, p_phase_id IN PA_PROJ_ELEMENTS.PROJ_ELEMENT_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_count NUMBER;
l_api_name CONSTANT VARCHAR2(30) := 'Check_Delete_Phase_OK';
x_delete_ok := FND_API.G_TRUE;
SELECT 1
INTO l_count
FROM DUAL
WHERE EXISTS
(SELECT 'X'
FROM MTL_SYSTEM_ITEMS_B
WHERE CURRENT_PHASE_ID = p_phase_id);
x_delete_ok := FND_API.G_FALSE;
SELECT 1
INTO l_count
FROM DUAL
WHERE EXISTS
(SELECT 'X'
FROM MTL_ITEM_REVISIONS_B
WHERE CURRENT_PHASE_ID = p_phase_id);
x_delete_ok := FND_API.G_FALSE;
SELECT 1
INTO l_count
FROM DUAL
WHERE EXISTS
(SELECT 'X'
FROM MTL_PENDING_ITEM_STATUS
WHERE PHASE_ID = p_phase_id);
x_delete_ok := FND_API.G_FALSE;
x_delete_ok := FND_API.G_FALSE;
END Check_Delete_Phase_OK;
PROCEDURE Process_Phase_Delete
(
p_api_version IN NUMBER
, p_phase_id IN NUMBER
, p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
, p_commit IN VARCHAR2 := fnd_api.g_FALSE
, 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_name CONSTANT VARCHAR2(30) := 'Process_Phase_Delete';
SAVEPOINT Process_Phase_Delete_PUB;
DELETE
FROM
EGO_LCPHASE_POLICY
WHERE
PHASE_ID = p_phase_id;
ROLLBACK TO Process_Phase_Delete_PUB;
END Process_Phase_Delete;
PROCEDURE Process_Phase_Code_Delete
(
p_api_version IN NUMBER
, p_phase_code IN VARCHAR2
, p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
, p_commit IN VARCHAR2 := fnd_api.g_FALSE
, 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_name CONSTANT VARCHAR2(30) := 'Process_Phase_Code_Delete';
SAVEPOINT Process_Phase_Code_Delete_PUB;
DELETE
FROM
EGO_LCPHASE_ITEM_STATUS
WHERE
PHASE_CODE = p_phase_code;
ROLLBACK TO Process_Phase_Code_Delete_PUB;
END Process_Phase_Code_Delete;
PROCEDURE Delete_Stale_Data_For_Lc
(
p_api_version IN NUMBER
, p_lifecycle_id IN NUMBER
, p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
, p_commit IN VARCHAR2 := fnd_api.g_FALSE
, 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_name CONSTANT VARCHAR2(30) := 'Delete_Stale_Data_For_Lc';
SAVEPOINT Delete_Stale_Data_Lc_PUB;
DELETE
FROM
EGO_OBJ_TYPE_LIFECYCLES
WHERE
LIFECYCLE_ID = p_lifecycle_id;
ROLLBACK TO Delete_Stale_Data_Lc_PUB;
END Delete_Stale_Data_For_Lc;