1 PACKAGE BODY inv_org AS
2 /* $Header: INVPEO1B.pls 120.0 2005/05/27 09:56:28 appldev noship $ */
3 /*
4 ******************************************************************
5 * *
6 * Copyright (C) 1993 Oracle Corporation UK Ltd., *
7 * Chertsey, England. *
8 * *
9 * All rights reserved. *
10 * *
11 * This material has been provided pursuant to an agreement *
12 * containing restrictions on its use. The material is also *
13 * protected by copyright law. No part of this material may *
14 * be copied or distributed, transmitted or transcribed, in *
15 * any form or by any means, electronic, mechanical, magnetic, *
16 * manual, or otherwise, or disclosed to third parties without *
17 * the express written permission of Oracle Corporation UK Ltd, *
18 * Oracle Park, Bittams Lane, Guildford Road, Chertsey, Surrey, *
19 * England. *
20 * *
21 ****************************************************************** */
22 /*
23 Name : inv_org (BODY)
24
25 Description : This package declares procedures required to validate
26 organizations to be deleted from the database. It is used
27 primarily by the Define Organization form (PERORDOR).
28 Change List
29 -----------
30
31 Version Date Author ER/CR No. Description of Change
32 -------+---------+----------+---------+--------------------------
33 70.0 10-JUN-93 TMathers Date Created.
34 05/27/96 gkokts Moved to admin/sql from invpeorg.pkh
35 Also, commented out show errors.
36 */
37 --
38 PROCEDURE inv_predel_validation (p_organization_id IN number) is
39 --
40 -- Parameters
41 -- p_organization_id : UID of organization being deleted.
42 --
43 -- Local Variable
44 v_dummy varchar2(1);
45 --
46 begin
47 hr_utility.set_location('inv_org.inv_predel_validation',1);
48 select 1
49 into v_dummy
50 from sys.dual
51 where exists(select 'exists'
52 from mtl_parameters mp
53 where mp.organization_id = p_organization_id);
54 --
55 -- If got through then error
56 --
57 -- Note don't forget to change both the application_id and
58 -- the message name of this message.
59 hr_utility.set_message(801,'HR_6890_INV_MTL_P_EXISTS');
60 hr_utility.raise_error;
61 --
62 exception
63 when no_data_found then null;
64 end inv_predel_validation;
65 --
66 END inv_org;