1274: into l_delete_permitted
1275: from sys.dual
1276: where not exists (
1277: select null
1278: from per_spinal_point_placements_f p
1279: where exists (
1280: select null
1281: from per_assignments_f a
1282: where a.person_id = P_PERSON_ID
3125: end if;
3126: --
3127: begin
3128: --
3129: delete from per_spinal_point_placements_f p
3130: where p.assignment_id in
3131: (select ass.assignment_id
3132: from per_assignments_f ass
3133: where ass.person_id = P_PERSON_ID);