Sample code provided below:
declare
cursor cur is
select * from per_contact_relationships where trunc(creation_date) = trunc(sysdate);
ln_ovn number;
begin
for i in cur
loop
ln_ovn := i.object_version_number;
hr_contact_rel_api.delete_contact_relationship
(p_validate => false
,p_contact_relationship_id => i.contact_relationship_id
,p_object_version_number => ln_ovn
);
end loop;
end;