The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE CHECK_DELETE_PROJECT_OK(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_project_id IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
-- Remember to change the l_api_version for change in the API
--
l_api_version CONSTANT NUMBER := 1.0;
l_api_name CONSTANT VARCHAR2(30) := 'CHECK_DELETE_PROJECT_OK';
l_delete_ok varchar2(1);
l_delete_ok := 'Y';
SELECT 'N'
INTO l_delete_ok
FROM dual
WHERE EXISTS
(SELECT '1'
FROM pon_auction_headers_all
WHERE project_id = p_project_id
) OR
EXISTS
(SELECT '1'
FROM pon_auction_item_prices_all
WHERE project_id = p_project_id
) OR
EXISTS
(SELECT '1'
FROM pon_auc_payments_shipments
WHERE project_id = p_project_id
);
IF ( l_delete_ok = 'N')
THEN
x_return_status := FND_API.G_RET_STS_ERROR;
FND_MESSAGE.set_name('PON', 'PON_PROJECT_USED_NO_DELETE');
x_msg_data := 'PON_PROJECT_USED_NO_DELETE';
END CHECK_DELETE_PROJECT_OK;