388: into v_delete_permitted
389: from sys.dual
390: where not exists (
391: select null
392: from pa_transaction_controls pa
393: where pa.project_id > -1
394: and pa.person_id = P_PERSON_ID);
395: exception
396: when NO_DATA_FOUND then