19: --
20: begin
21: select 'Y'
22: into v_delete_permitted
23: from sys.dual
24: where not exists (
25: select null
26: from eng_engineering_changes eng
27: where eng.requestor_id in (select party_id
37: --
38: begin
39: select 'Y'
40: into v_delete_permitted
41: from sys.dual
42: where not exists (
43: select null
44: from eng_current_scheduled_dates eng
45: where eng.employee_id in (select party_id
55: --
56: begin
57: select 'Y'
58: into v_delete_permitted
59: from sys.dual
60: where not exists (
61: select null
62: from eng_ecn_approvers eng
63: where eng.employee_id = P_PERSON_ID);
71: --
72: begin
73: select 'Y'
74: into v_delete_permitted
75: from sys.dual
76: where not exists (
77: select null
78: from eng_eng_changes_interface eng
79: where eng.requestor_id in (select party_id