The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'DUPLICATE'
FROM qp_sourcesystem_fnarea_map
WHERE functional_area_id = c_p_fnarea_id
AND pte_source_system_id = c_p_pte_ss_id
AND pte_sourcesystem_fnarea_id <> c_p_pte_ss_fnarea_id;
SELECT 'VALID'
INTO l_valid
FROM mtl_default_category_sets
WHERE functional_area_id = p_fna_rec.functional_area_id;
select pte_code, application_short_name
into l_pte, l_ss
from qp_pte_source_systems
where pte_source_system_id = p_FNA_rec.pte_source_system_id;
select pte_code, application_short_name
into l_pte, l_ss
from qp_pte_source_systems
where pte_source_system_id = p_FNA_rec.pte_source_system_id;
select functional_area_desc
into l_fnarea
from mtl_default_category_sets_fk_v
where functional_area_id = p_FNA_rec.functional_area_id;
ELSIF p_FNA_rec.OPERATION = QP_GLOBALS.G_OPR_UPDATE THEN
-- In a seeded mapping, no attributes can be changed EXCEPT disabled_flag
IF p_old_FNA_rec.seeded_flag = 'Y' AND
(p_FNA_rec.PTE_SOURCESYSTEM_FNAREA_ID <> p_old_FNA_rec.PTE_SOURCESYSTEM_FNAREA_ID OR
p_FNA_rec.PTE_SOURCE_SYSTEM_ID <> p_old_FNA_rec.PTE_SOURCE_SYSTEM_ID OR
p_FNA_rec.FUNCTIONAL_AREA_ID <> p_old_FNA_rec.FUNCTIONAL_AREA_ID OR
p_FNA_rec.SEEDED_FLAG <> p_old_FNA_rec.SEEDED_FLAG OR
p_FNA_rec.CONTEXT <> p_old_FNA_rec.CONTEXT OR
p_FNA_rec.ATTRIBUTE1 <> p_old_FNA_rec.ATTRIBUTE1 OR
p_FNA_rec.ATTRIBUTE2 <> p_old_FNA_rec.ATTRIBUTE2 OR
p_FNA_rec.ATTRIBUTE3 <> p_old_FNA_rec.ATTRIBUTE3 OR
p_FNA_rec.ATTRIBUTE4 <> p_old_FNA_rec.ATTRIBUTE4 OR
p_FNA_rec.ATTRIBUTE5 <> p_old_FNA_rec.ATTRIBUTE5 OR
p_FNA_rec.ATTRIBUTE6 <> p_old_FNA_rec.ATTRIBUTE6 OR
p_FNA_rec.ATTRIBUTE7 <> p_old_FNA_rec.ATTRIBUTE7 OR
p_FNA_rec.ATTRIBUTE8 <> p_old_FNA_rec.ATTRIBUTE8 OR
p_FNA_rec.ATTRIBUTE9 <> p_old_FNA_rec.ATTRIBUTE9 OR
p_FNA_rec.ATTRIBUTE10 <> p_old_FNA_rec.ATTRIBUTE10 OR
p_FNA_rec.ATTRIBUTE11 <> p_old_FNA_rec.ATTRIBUTE11 OR
p_FNA_rec.ATTRIBUTE12 <> p_old_FNA_rec.ATTRIBUTE12 OR
p_FNA_rec.ATTRIBUTE13 <> p_old_FNA_rec.ATTRIBUTE13 OR
p_FNA_rec.ATTRIBUTE14 <> p_old_FNA_rec.ATTRIBUTE14 OR
p_FNA_rec.ATTRIBUTE15 <> p_old_FNA_rec.ATTRIBUTE15 OR
p_FNA_rec.CREATED_BY <> p_old_FNA_rec.CREATED_BY OR
p_FNA_rec.CREATION_DATE <> p_old_FNA_rec.CREATION_DATE) THEN
l_seed_err := TRUE;
IF p_FNA_rec.last_updated_by IS NOT NULL AND
( p_FNA_rec.last_updated_by <>
p_old_FNA_rec.last_updated_by OR
p_old_FNA_rec.last_updated_by IS NULL )
THEN
IF NOT QP_Validate.Last_Updated_By(p_FNA_rec.last_updated_by) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_FNA_rec.last_update_date IS NOT NULL AND
( p_FNA_rec.last_update_date <>
p_old_FNA_rec.last_update_date OR
p_old_FNA_rec.last_update_date IS NULL )
THEN
IF NOT QP_Validate.Last_Update_Date(p_FNA_rec.last_update_date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_FNA_rec.last_update_login IS NOT NULL AND
( p_FNA_rec.last_update_login <>
p_old_FNA_rec.last_update_login OR
p_old_FNA_rec.last_update_login IS NULL )
THEN
IF NOT QP_Validate.Last_Update_Login(p_FNA_rec.last_update_login) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_FNA_rec.program_update_date IS NOT NULL AND
( p_FNA_rec.program_update_date <>
p_old_FNA_rec.program_update_date OR
p_old_FNA_rec.program_update_date IS NULL )
THEN
IF NOT QP_Validate.Program_Update_Date(p_FNA_rec.program_update_date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
PROCEDURE Entity_Delete
( x_return_status OUT NOCOPY VARCHAR2
, p_FNA_rec IN QP_Attr_Map_PUB.Fna_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
select pte_code, application_short_name
into l_pte, l_ss
from qp_pte_source_systems
where pte_source_system_id = p_FNA_rec.pte_source_system_id;
select functional_area_desc
into l_fnarea
from mtl_default_category_sets_fk_v
where functional_area_id = p_FNA_rec.functional_area_id;
, 'Entity_Delete'
);
END Entity_Delete;