PACKAGE BODY: APPS.INV_INSTALL

Source

1 PACKAGE BODY INV_INSTALL AS
2 /* $Header: INVCKIB.pls 115.4 2002/02/12 17:54:00 pkm ship     $ */
3 /*
4 ** -------------------------------------------------------------------------
5 ** Function:    adv_inv_installed
6 ** Description: Checks to see if WMS is installed
7 ** Input:       None
8 ** Output:
9 **      none
10 ** Returns:
11 **      TRUE if WMS installed, else FALSE
12 **
13 **
14 ** --------------------------------------------------------------------------
15 */
16   FUNCTION adv_inv_installed (p_organization_id IN NUMBER)
17   RETURN BOOLEAN
18   IS
19   l_install boolean := TRUE;
20 
21 
22 g_pkg_name constant varchar2(50) := 'INV_CHECK_INSTALL';
23 l_msg_count    number;
24 l_msg_data     varchar2(10);
25 l_api_name		constant varchar(30) := 'inv_app_install';
26 l_return_status  varchar2(10);
27 begin
28 l_install := WMS_INSTALL.check_install
29          (x_return_status => l_return_status
30 	, x_msg_count             => l_msg_count
31 	, x_msg_data              => l_msg_data
32 	,p_organization_id        => p_organization_id );
33 
34 return l_install;
35 
36 EXCEPTION
37      WHEN OTHERS THEN
38      if (fnd_msg_pub.check_msg_level
39        	    (fnd_msg_pub.g_msg_lvl_unexp_error)) then
40 	    fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
41      end if;
42      RETURN false;
43 
44 END adv_inv_installed;
45 
46 
47 END INV_INSTALL;