1047: into l_delete_permitted
1048: from sys.dual
1049: where not exists (
1050: select null
1051: from per_recruitment_activities r
1052: where r.authorising_person_id = P_PERSON_ID
1053: or r.internal_contact_person_id = P_PERSON_ID);
1054: --
1055: exception
2206: end if;
2207: --
2208: begin
2209: --
2210: update per_recruitment_activities r
2211: set r.authorising_person_id = null
2212: where r.authorising_person_id = P_PERSON_ID;
2213: --
2214: exception
2223: end if;
2224: --
2225: begin
2226: --
2227: update per_recruitment_activities r
2228: set r.internal_contact_person_id = null
2229: where r.internal_contact_person_id = P_PERSON_ID;
2230: --
2231: exception