1 PACKAGE ben_determine_dpnt_eligibility AUTHID CURRENT_USER as
2 /* $Header: bendepen.pkh 120.1.12010000.1 2008/07/29 12:09:29 appldev ship $ */
3 -----------------------------------------------------------------------
4 /*
5 +==============================================================================+
6 | Copyright (c) 1998 Oracle Corporation |
7 | Redwood Shores, California, USA |
8 | All rights reserved. |
9 +==============================================================================+
10 Name
11 Manage Dependent Eligibility
12 Purpose
13 This package is used to determine the dependents who may be eligible for
14 an electable choice for a specific participant. It also determines
15 if the electable choice may or may not actually be electable.
16 History
17 Date Who Version What?
18 ---- --- ------- -----
19 09 Apr 98 MRosen/JM 110.0 Created.
20 03 Jun 98 J Mohapatra Replaced the date calculation
21 with a new procedure call.
22 27 Dec 98 S Tee 115.2 Changed g_package to
23 the package name instead of the
24 file name.
25 18 Jan 99 G Perry 115.3 LED V ED
26 01 Apr 00 S Tee 115.4 Added g_dpnt_ineligible.
27 01 May 00 pbodla 115.5 - Task 131 : Elig dependent rows are
28 created before creating the electable
29 choice rows. Added procedures main() -
30 created the elig dependent rows,
31 p_upd_egd_with_epe_id()- updates elig
32 dependent rows with electable choice
33 rows. Added g_egd_table, g_upd_epe_egd_rec
34 globals.
35 15 Jun 00 pbodla 115.6 - Removed old main(). as Martin looked
36 at it for performance reasons.
37 05 Jan 01 kmahendr 115.7 - changes made for unrestricted life event
38 added parameter - per_in_ler_id
39 11-Mar-02 mhoyes 115.8 - Dependent eligibility tuning.
40 11-Mar-02 mhoyes 115.9 - Added dbdrv line.
41 04-Feb-06 mhoyes 115.12 - bug4966769 - hr_utility tuning.
42 */
43 -----------------------------------------------------------------------
44 g_package varchar2(80) := 'ben_determine_dpnt_eligibility';
45 g_dpnt_ineligible boolean := false;
46 --
47 TYPE egd_table is TABLE OF ben_elig_dpnt%rowtype
48 INDEX BY BINARY_INTEGER;
49 --
50 g_egd_table egd_table;
51 g_egd_table_temp egd_table;
52 --
53 type upd_epe_egd_rec is record
54 (g_code ben_pl_f.dpnt_dsgn_cd%type
55 ,g_ler_chg_dpnt_cvg_cd ben_ler_chg_dpnt_cvg_f.ler_chg_dpnt_cvg_cd%type
56 ,g_cvg_strt_cd ben_ler_chg_dpnt_cvg_f.cvg_eff_strt_cd%type
57 ,g_process_flag char(1)
58 ,g_cvg_strt_rl ben_ler_chg_dpnt_cvg_f.cvg_eff_strt_rl%type);
59 --
60 g_upd_epe_egd_rec upd_epe_egd_rec;
61 --
62 g_debug boolean := hr_utility.debug_enabled;
63 --
64 procedure main
65 (p_pgm_id in number default null
66 ,p_pl_id in number default null
67 ,p_plip_id in number default null
68 ,p_ptip_id in number default null
69 ,p_oipl_id in number default null
70 ,p_pl_typ_id in number default null
71 ,p_business_group_id in number
72 ,p_person_id in number
73 ,p_effective_date in date
74 ,p_lf_evt_ocrd_dt in date
75 ,p_per_in_ler_id in number default null
76 ,p_elig_per_id in number default null
77 ,p_elig_per_opt_id in number default null
78 );
79 --
80 procedure p_upd_egd_with_epe_id
81 (p_elig_per_elctbl_chc_id in number,
82 p_person_id in number,
83 p_effective_date in date,
84 p_lf_evt_ocrd_dt in date);
85 END;