[Home] [Help]
PACKAGE BODY: APPS.ENG_ORG
Source
1 PACKAGE BODY eng_org AS
2 /* $Header: ENGORGDB.pls 115.1 99/07/27 08:40:39 porting ship $ */
3 --
4 PROCEDURE eng_predel_validation (p_organization_id IN number) is
5
6
7 --
8 -- Parameters
9 -- p_organization_id : UID of organization being deleted.
10 --
11 -- Local Variable
12 v_dummy varchar2(1);
13 --
14 begin
15 hr_utility.set_location('eng_org.eng_predel_validation',1);
16 select 1
17 into v_dummy
18 from sys.dual
19 where exists(select 'exists'
20 from eng_engineering_changes ec
21 where ec.responsible_organization_id = p_organization_id);
22 --
23 -- If got through then error
24 --
25 hr_utility.set_message(801,'HR_7043_ORG_ENG_PRE_DELETE');
26 hr_utility.raise_error;
27 --
28 exception
29 when no_data_found then null;
30 end eng_predel_validation;
31 --
32 END eng_org;