1: PACKAGE BODY CSI_GEN_UTILITY_PVT AS
2: /* $Header: csivgub.pls 120.12.12000000.2 2007/06/18 14:15:59 sdandapa ship $ */
3:
4: PROCEDURE read_debug_profiles IS
5: BEGIN
2417: FUNCTION IB_ACTIVE RETURN BOOLEAN IS
2418: l_freeze_flag VARCHAR2(1) := 'N';
2419: BEGIN
2420: IF csi_datastructures_pub.g_install_param_rec.fetch_flag IS NULL THEN
2421: csi_gen_utility_pvt.populate_install_param_rec;
2422: END IF;
2423: --
2424: l_freeze_flag := csi_datastructures_pub.g_install_param_rec.freeze_flag;
2425: --
2435: l_eib_installed VARCHAR2(1) := 'N' ;
2436: l_temp VARCHAR2(40);
2437: l_app_info BOOLEAN;
2438: BEGIN
2439: IF (CSI_GEN_UTILITY_PVT.g_cse_install is NULL)
2440: THEN
2441: l_app_info := fnd_installation.get_app_info('CSE',
2442: CSI_GEN_UTILITY_PVT.g_cse_install, l_temp, l_temp);
2443: END IF;
2438: BEGIN
2439: IF (CSI_GEN_UTILITY_PVT.g_cse_install is NULL)
2440: THEN
2441: l_app_info := fnd_installation.get_app_info('CSE',
2442: CSI_GEN_UTILITY_PVT.g_cse_install, l_temp, l_temp);
2443: END IF;
2444:
2445: IF (CSI_GEN_UTILITY_PVT.g_cse_install = 'I')
2446: THEN
2441: l_app_info := fnd_installation.get_app_info('CSE',
2442: CSI_GEN_UTILITY_PVT.g_cse_install, l_temp, l_temp);
2443: END IF;
2444:
2445: IF (CSI_GEN_UTILITY_PVT.g_cse_install = 'I')
2446: THEN
2447: l_eib_installed := 'Y';
2448: ELSE
2449: l_eib_installed := 'N';
2451: RETURN l_eib_installed ;
2452:
2453: END is_eib_installed ;
2454:
2455: END CSI_GEN_UTILITY_PVT;