The following lines contain the word 'select', 'insert', 'update' or 'delete':
IF p_Agreement_rec.last_updated_by IS NOT NULL AND
( p_Agreement_rec.last_updated_by <>
p_old_Agreement_rec.last_updated_by OR
p_old_Agreement_rec.last_updated_by IS NULL )
THEN
IF NOT OE_Validate_Attr.Last_Updated_By(p_Agreement_rec.last_updated_by) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_Agreement_rec.last_update_date IS NOT NULL AND
( p_Agreement_rec.last_update_date <>
p_old_Agreement_rec.last_update_date OR
p_old_Agreement_rec.last_update_date IS NULL )
THEN
IF NOT OE_Validate_Attr.Last_Update_Date(p_Agreement_rec.last_update_date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_Agreement_rec.last_update_login IS NOT NULL AND
( p_Agreement_rec.last_update_login <>
p_old_Agreement_rec.last_update_login OR
p_old_Agreement_rec.last_update_login IS NULL )
THEN
IF NOT OE_Validate_Attr.Last_Update_Login(p_Agreement_rec.last_update_login) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
PROCEDURE Entity_Delete
( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, p_Agreement_rec IN OE_Pricing_Cont_PUB.Agreement_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
, 'Entity_Delete'
);
END Entity_Delete;
select 'VALID' into l_dummy
from oe_agreements
where name = p_Agreement_rec.name
and ( nvl( trunc(start_date_active),sysdate) between
nvl(p_Agreement_rec.start_date_active, sysdate)
and
nvl(p_Agreement_rec.end_date_active, sysdate)
OR nvl(trunc(end_date_active), sysdate) between
nvl(p_Agreement_rec.start_date_active , sysdate)
and
nvl(p_Agreement_rec.end_date_active , sysdate)
);
select count(*)
into l_count
from oe_agreements
where name = p_Agreement_rec.name
and nvl(p_Agreement_rec.start_date_active , sysdate)
BETWEEN nvl(trunc(start_date_active), sysdate) and
nvl(trunc(end_date_active),sysdate)
and p_Agreement_rec.revision <> revision;
SELECT count(*)
into l_count
from oe_agreements
where name = p_Agreement_rec.name
-- and revision = '1' /* User may enter revision 2 to start with */
and ( start_date_active is null
or
end_date_active is null ) ;
SELECT 'VALID'
INTO l_dummy
FROM qp_lookups
WHERE lookup_type = 'AGREEMENT_SOURCE_CODE'
AND lookup_code = p_Agreement_rec.agreement_source_code;
SELECT 'VALID'
into l_dummy
FROM OE_AGREEMENTS
where name = p_Agreement_rec.name
and revision = p_Agreement_rec.revision;