PACKAGE BODY: APPS.OE_LOCATION

Source

1 PACKAGE BODY OE_LOCATION AS
2 /* $Header: OEXHLOCB.pls 115.0 99/07/16 08:12:38 porting shi $ */
3 --
4   --
5   PROCEDURE OE_PREDEL_VALIDATION (p_location_id   number)
6   IS
7 
8   l_delete_permitted    varchar2(1) := 'N';
9   l_msg 		varchar2(30);
10   BEGIN
11      --
12      hr_utility.set_location('OE_LOCATION.OE_PREDEL_VALIDATION', 1);
13       --
14       BEGIN
15 
16         l_msg := 'OE_LOC_TRANSACTIONS_TEMP';
17 
18         select 'Y'
19         into    l_delete_permitted
20         from    sys.dual
21         where   not exists (
22 		select  null
23                 from    SO_HEADERS_ALL SH
24                 where   SH.HEADER_ID IN (select header_id
25                                          from   so_drop_ship_sources
26                                          where  line_location_id =
27                                                 p_location_id)
28                 and     SH.OPEN_FLAG = 'Y');
29 
30 
31       EXCEPTION
32         WHEN NO_DATA_FOUND then
33                  null;
34         /*        hr_utility.set_message (300, l_msg); */
35         /*        hr_utility.raise_error; */
36       END;
37       --
38       --
39   END OE_PREDEL_VALIDATION;
40 --
41 END OE_LOCATION;