The following lines contain the word 'select', 'insert', 'update' or 'delete':
IF p_SSC_rec.last_updated_by IS NOT NULL AND
( p_SSC_rec.last_updated_by <>
p_old_SSC_rec.last_updated_by OR
p_old_SSC_rec.last_updated_by IS NULL )
THEN
IF NOT QP_Validate.Last_Updated_By(p_SSC_rec.last_updated_by) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_SSC_rec.last_update_date IS NOT NULL AND
( p_SSC_rec.last_update_date <>
p_old_SSC_rec.last_update_date OR
p_old_SSC_rec.last_update_date IS NULL )
THEN
IF NOT QP_Validate.Last_Update_Date(p_SSC_rec.last_update_date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_SSC_rec.last_update_login IS NOT NULL AND
( p_SSC_rec.last_update_login <>
p_old_SSC_rec.last_update_login OR
p_old_SSC_rec.last_update_login IS NULL )
THEN
IF NOT QP_Validate.Last_Update_Login(p_SSC_rec.last_update_login) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_SSC_rec.program_update_date IS NOT NULL AND
( p_SSC_rec.program_update_date <>
p_old_SSC_rec.program_update_date OR
p_old_SSC_rec.program_update_date IS NULL )
THEN
IF NOT QP_Validate.Program_Update_Date(p_SSC_rec.program_update_date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
PROCEDURE Entity_Delete
( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, p_SSC_rec IN QP_Attr_Map_PUB.Ssc_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
select 'x'
into dummy
from qp_list_headers_b
where nvl(pte_code,'x') = nvl(p_SSC_rec.pte_code,'y') and
nvl(source_system_code,'x') = nvl(p_SSC_rec.application_short_name,'y') and
rownum = 1;
FND_MESSAGE.SET_NAME('QP','QP_CANNOT_DELETE_SOURCE');
, 'Entity_Delete'
);
END Entity_Delete;