1231: into l_delete_permitted
1232: from sys.dual
1233: where not exists (
1234: select null
1235: from per_assignment_extra_info i
1236: where exists (
1237: select null
1238: from per_assignments_f a
1239: where a.person_id = P_PERSON_ID
2635: end if;
2636: --
2637: begin
2638: --
2639: delete from per_assignment_extra_info a
2640: where a.assignment_id in
2641: (select ass.assignment_id
2642: from per_assignments_f ass
2643: where ass.person_id = P_PERSON_ID);