The following lines contain the word 'select', 'insert', 'update' or 'delete':
FUNCTION delete_project (p_project_id IN NUMBER)
-------------------------------------------------------------------------------
-- FUNCTION
-- delete_project
--
-- PURPOSE
-- Function to check project id is being used in Property Manager.
--
-- DESCRIPTION
-- This function checks to see whether passed project id exists in
-- PN_PAYMENT_TERMS table or not. If exists then it returns FALSE
-- else it returns TRUE.
-- This function will be used in Projects Purge program to see if
-- a project id is used in Property Manager before purging projects.
-- As per their design if a project is being used it should not be purged.
--
-- ARGUMENTS
-- IN : p_project_id
-- OUT : None
--
-- RETURNS
-- Boolean (TRUE/FALSE)
--
-- SCOPE - PUBLIC
--
-- HISTORY
--
-- 22-APR-2002 Mrinal Misra o Created.
--
--------------------------------------------------------------------------------
RETURN BOOLEAN IS
l_flag VARCHAR2(1);
SELECT project_name
FROM pa_projects_all_basic_v
WHERE project_id = p_project_id;
SELECT 'Y'
INTO l_flag
FROM DUAL
WHERE EXISTS(SELECT NULL
FROM PN_PAYMENT_TERMS_ALL
WHERE (project_id IS NOT NULL AND -- For Payables.
project_id = p_project_id)
OR (project_attribute3 IS NOT NULL AND -- For Receivables.
project_attribute3 = l_project_name));
END delete_project;