The following lines contain the word 'select', 'insert', 'update' or 'delete':
Line: 45
SELECT 'Y' FROM per_contact_relationships
WHERE person_id = p_person_id
AND contact_person_id = p_contact_person_id
AND (p_contact_relationship_id IS NULL
OR (p_contact_relationship_id IS NOT NULL
AND contact_relationship_id <> p_contact_relationship_id))
AND cont_information1 = 'Y';