PACKAGE BODY: APPS.PAY_FR_ARC_UTL

Source

1 package body pay_fr_arc_utl as
2 /* $Header: pyfrarcu.pkb 120.0 2005/05/29 04:58:23 appldev noship $ */
3 --
4 -- Globals
5 g_package    CONSTANT VARCHAR2(20):= 'pay_fr_arc_utl.';
6 --
7 -------------------------------------------------------------------------------
8 -- Function: range_person_enh_enabled.
9 -- Description: Returns true if the range_person performance enhancement
10 --              3628032 is enabled for the system and specified archive.
11 -------------------------------------------------------------------------------
12 FUNCTION range_person_enh_enabled(p_payroll_action_id number) RETURN BOOLEAN IS
13 --
14  CURSOR csr_action_parameter is
15   select parameter_value
16   from pay_action_parameters
17   where parameter_name = 'RANGE_PERSON_ID';
18 --
19  CURSOR csr_range_format_param is
20   select par.parameter_value
21   from   pay_payroll_actions            ppa,
22          pay_report_format_mappings_f   map,
23          pay_report_format_parameters   par
24   where  ppa.payroll_action_id        = p_payroll_action_id
25   and    map.report_type              = ppa.report_type
26   and    map.report_category          = ppa.report_category
27   and    map.report_qualifier         = ppa.report_qualifier
28   and    ppa.effective_date     between map.effective_start_date
29                                     and map.effective_end_date
30   and    map.report_format_mapping_id = par.report_format_mapping_id
31   and    par.parameter_name           = 'RANGE_PERSON_ID';
32 --
33   l_action_param_val pay_action_parameters.parameter_value%TYPE;
34   l_report_param_val pay_report_format_parameters.parameter_value%TYPE;
35   l_proc CONSTANT VARCHAR2(62):= g_package||'.range_person_enh_enabled';
36 --
37 BEGIN
38   hr_utility.set_location('Entering: ' || l_proc,10);
39   open csr_action_parameter;
40   fetch csr_action_parameter into l_action_param_val;
41   close csr_action_parameter;
42   --
43   open csr_range_format_param;
44   fetch csr_range_format_param into l_report_param_val;
45   close csr_range_format_param;
46   --
47   hr_utility.set_location(' Leaving: ' || l_proc,99);
48   RETURN (nvl(l_action_param_val,'N')='Y' AND nvl(l_report_param_val,'N')='Y');
49   --
50 END range_person_enh_enabled;
51 --
52 END pay_fr_arc_utl;