PACKAGE BODY: APPS.CSE_UTILITY_GRP

Source

1 PACKAGE BODY CSE_UTILITY_GRP AS
2 /* $Header: CSEGUTLB.pls 120.0 2006/01/03 11:06:14 brmanesh noship $ */
3 
4   FUNCTION is_ib_active RETURN BOOLEAN IS
5     l_freeze_flag  VARCHAR2(1) := 'N';
6   BEGIN
7     EXECUTE IMMEDIATE 'select freeze_flag from csi_install_parameters' INTO l_freeze_flag;
8     IF nvl(l_freeze_flag,'N') = 'N' THEN
9       RETURN FALSE;
10     ELSE
11       RETURN TRUE;
12     END IF;
13   EXCEPTION
14     WHEN OTHERS THEN
15       RETURN FALSE;
16   END is_ib_active;
17 
18   FUNCTION is_eib_active RETURN BOOLEAN IS
19     l_active  BOOLEAN := FALSE;
20     l_value VARCHAR2(1) := 'N';
21   BEGIN
22     IF is_ib_active THEN
23       fnd_profile.get('CSE_EIB_COSTING_USED',l_value);
24       IF nvl(l_value,'N') = 'Y' THEN
25         l_Active := TRUE;
26       END IF;
27     END IF;
28     RETURN l_active;
29   EXCEPTION
30     WHEN OTHERS THEN
31       RETURN FALSE;
32   END is_eib_active;
33 
34 END cse_utility_grp;