PACKAGE BODY: APPS.PO_OTM_INTEGRATION_GRP

Source

1 PACKAGE BODY PO_OTM_INTEGRATION_GRP AS
2 /* $Header: POXGOTMB.pls 120.0.12000000.1 2007/03/27 21:53:13 dedelgad noship $ */
3 
4 -- Debugging booleans used to bypass logging when turned off
5 g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
6 g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
7 
8 -- Logging constants
9 g_pkg_name CONSTANT VARCHAR2(30) := 'PO_OTM_INTEGRATION_GRP';
10 g_module_prefix CONSTANT VARCHAR2(100) := 'po.plsql.' || g_pkg_name || '.';
11 
12 PROCEDURE is_inbound_logistics_enabled (
13   p_api_version            IN NUMBER
14 , x_return_status          OUT NOCOPY VARCHAR2
15 , x_logistics_enabled_flag OUT NOCOPY VARCHAR2
16 )
17 IS
18 
19 l_api_name     CONSTANT VARCHAR2(30) := 'IS_INBOUND_LOGISTICS_ENABLED';
20 l_api_version  CONSTANT NUMBER := 1.0;
21 
22 d_progress     VARCHAR2(3);
23 d_module       CONSTANT VARCHAR2(100) := g_module_prefix || l_api_name;
24 
25 BEGIN
26 
27   d_progress := '000';
28 
29   IF (g_debug_stmt) THEN
30     PO_DEBUG.debug_begin(d_module);
31     PO_DEBUG.debug_var(d_module, d_progress, 'p_api_version', p_api_version);
32   END IF;
33 
34   d_progress := '010';
35 
36   x_return_status := FND_API.g_ret_sts_success;
37 
38   -- Standard call to check for call compatibility.
39   IF (NOT FND_API.compatible_api_call (
40             p_current_version_number => l_api_version
41           , p_caller_version_number  => p_api_version
42           , p_api_name               => l_api_name
43           , p_pkg_name               => g_pkg_name))
44   THEN
45     RAISE FND_API.g_exc_unexpected_error;
46   END IF;
47 
48   d_progress := '020';
49 
50   -- Check Inbound Logistics status
51   IF (PO_OTM_INTEGRATION_PVT.is_inbound_logistics_enabled()) THEN
52     d_progress := '100';
53     x_logistics_enabled_flag := 'Y';
54   ELSE
55     d_progress := '150';
56     x_logistics_enabled_flag := 'N';
57   END IF;
58 
59   d_progress := '200';
60 
61   IF (g_debug_stmt) THEN
62     PO_DEBUG.debug_var(d_module, d_progress, 'x_return_status', x_return_status);
63     PO_DEBUG.debug_var(d_module, d_progress, 'x_logistics_enabled_flag', x_logistics_enabled_flag);
64     PO_DEBUG.debug_end(d_module);
65   END IF;
66 
67 EXCEPTION
68   WHEN OTHERS THEN
69     x_return_status := FND_API.g_ret_sts_error;
70     IF (g_debug_unexp) THEN
71       PO_DEBUG.debug_unexp(d_module, d_progress, 'Exception occurred');
72     END IF;
73 
74 END is_inbound_logistics_enabled;
75 
76 
77 END;