PACKAGE BODY: APPS.HRI_BPL_SYSTEM

Source

1 PACKAGE BODY hri_bpl_system AS
2 /* $Header: hribsys.pkb 120.0 2005/10/21 08:23:24 jtitmas noship $ */
3 
4   g_full_hr_install    VARCHAR2(5);
5 
6 -- Populates global with whether system has full HR installation
7 PROCEDURE cache_hr_install IS
8 
9 BEGIN
10 
11   -- Check the product installation and the HRI profile option
12   IF hr_general.chk_product_installed(800) = 'FALSE' OR
13      nvl(fnd_profile.value('HRI_DBI_FORCE_SHARED_HR'),'N') = 'Y' THEN
14     g_full_hr_install := 'N';
15   ELSE
16     g_full_hr_install := 'Y';
17   END IF;
18 
19 END cache_hr_install;
20 
21 -- Returns 'N' for a shared HR install and 'Y' for full HR install
22 FUNCTION is_full_hr_installed RETURN VARCHAR2 IS
23 
24 BEGIN
25 
26   -- Cache global on first run
27   IF (g_full_hr_install IS NULL) THEN
28     cache_hr_install;
29   END IF;
30 
31   -- Return result from global
32   RETURN g_full_hr_install;
33 
34 END is_full_hr_installed;
35 
36 END hri_bpl_system;