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;