1138: into l_delete_permitted
1139: from sys.dual
1140: where not exists (
1141: select null
1142: from per_requisitions r
1143: where r.person_id = P_PERSON_ID);
1144: --
1145: exception
1146: when NO_DATA_FOUND then
2110: end if;
2111: --
2112: begin
2113: --
2114: update per_requisitions r
2115: set r.person_id = null
2116: where r.person_id = P_PERSON_ID;
2117: --
2118: exception