The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT lkup.meaning role_meaning
FROM xle_lookups lkup,
xle_contact_legal_roles role
WHERE role.lookup_code = lkup.lookup_code
AND role.contact_party_id = p_contact_party_id
AND role.le_etb_party_id = p_le_etb_party_id
AND role.lookup_type = 'XLE_CONTACT_ROLE'
AND lkup.enabled_flag = 'Y'
AND TRUNC(SYSDATE) BETWEEN Nvl(lkup.start_date_active,TRUNC(SYSDATE)) AND Nvl(Lkup.end_date_active,TRUNC(SYSDATE));
UPDATE xle_contact_legal_roles
SET effective_to = SYSDATE
WHERE contact_party_id = p_contact_party_id
AND le_etb_party_id = p_le_etb_party_id
AND effective_to IS NULL;