[Home] [Help]
829: into l_delete_permitted
830: from sys.dual
831: where not exists (
832: select null
833: from per_letter_request_lines r
834: where r.person_id = P_PERSON_ID
835: and r.date_from >= p_effective_date );
836: --
837: select 'Y'
838: into l_delete_permitted
839: from sys.dual
840: where not exists (
841: select null
842: from per_letter_request_lines r
843: where exists (
844: select null
845: from per_assignments_f a
846: where a.person_id = P_PERSON_ID
2096: --
2097: begin
2098: -- bug fix 3732129.
2099: -- Delete statement modified to improve performance.
2100: delete from per_letter_request_lines l
2101: where l.person_id = P_PERSON_ID;
2102: --
2103: forall i in 1..l_assignment_id.count
2104: delete from per_letter_request_lines l
2100: delete from per_letter_request_lines l
2101: where l.person_id = P_PERSON_ID;
2102: --
2103: forall i in 1..l_assignment_id.count
2104: delete from per_letter_request_lines l
2105: where l.assignment_id = l_assignment_id(i);
2106: --
2107: exception
2108: when NO_DATA_FOUND then