1 PACKAGE ben_determine_date AUTHID CURRENT_USER as
2 /* $Header: bendetdt.pkh 120.3.12010000.1 2008/07/29 12:09:35 appldev ship $ */
3 --
4 g_package varchar2(80) := 'ben_determine_date';
5 --
6 g_def_curr_pgm_rec ben_pgm_f%rowtype;
7 g_def_curr_ptip_rec ben_ptip_f%rowtype;
8 g_def_curr_plip_rec ben_plip_f%rowtype;
9 g_def_curr_pl_rec ben_pl_f%rowtype;
10 g_dep_rec ben_type.g_report_rec;
11 --
12 g_ben_disp_ff_warn_msg varchar2(10); /* To store the value of profile BEN_DISP_FF_WARN_MSG */
13 --
14 procedure main
15 (p_cache_mode in boolean default false
16 --
17 ,p_date_cd in varchar2
18 ,p_per_in_ler_id in number default null
19 ,p_person_id in number default null
20 ,p_pgm_id in number default null
21 ,p_pl_id in number default null
22 ,p_oipl_id in number default null
23 ,p_elig_per_elctbl_chc_id in number default null -- optional for all
24 ,p_business_group_id in number default null
25 ,p_formula_id in number default null
26 ,p_acty_base_rt_id in number default null -- as a context to formula calls
27 ,p_bnfts_bal_id in number default null
28 ,p_effective_date in date
29 ,p_lf_evt_ocrd_dt in date default null
30 ,p_start_date in date default null
31 ,p_returned_date out nocopy date
32 ,p_parent_person_id in number default null
33 -- Added two more parameters to fix the Bug 1531647
34 ,p_param1 in varchar2 default null
35 ,p_param1_value in varchar2 default null
36 -- Added for new dpnt_cvg_end_dt_cd PECED
37 ,p_enrt_cvg_end_dt in date default null
38 ,p_comp_obj_mode in boolean default true
39 ,p_fonm_cvg_strt_dt in date default null
40 ,p_fonm_rt_strt_dt in date default null
41 ,p_cmpltd_dt in date default null
42 );
43 procedure rate_and_coverage_dates
44 (p_cache_mode in boolean default false
45 --
46 -- Cache related parameters
47 --
48 ,p_pgm_row in ben_cobj_cache.g_pgm_inst_row
49 := ben_cobj_cache.g_pgm_default_row
50 ,p_ptip_row in ben_cobj_cache.g_ptip_inst_row
51 := ben_cobj_cache.g_ptip_default_row
52 ,p_plip_row in ben_cobj_cache.g_plip_inst_row
53 := ben_cobj_cache.g_plip_default_row
54 ,p_pl_row in ben_cobj_cache.g_pl_inst_row
55 := ben_cobj_cache.g_pl_default_row
56 --
57 ,p_per_in_ler_id in number default null
58 ,p_person_id in number default null
59 ,p_pgm_id in number default null
60 ,p_pl_id in number default null
61 ,p_oipl_id in number default null
62 ,p_par_ptip_id in number default null
63 ,p_par_plip_id in number default null
64 ,p_lee_rsn_id in number default null
65 ,p_enrt_perd_id in number default null
66 ,p_enrt_perd_for_pl_id in number default null
67 --
68 -- which dates is R for rate, C for coverage, B for both
69 ,p_which_dates_cd in varchar2 default 'B'
70 -- will error if Y and an absolute date not found
71 -- Note: codes must allways be found.
72 ,p_date_mandatory_flag in varchar2 default 'Y'
73 -- compute_dates_flag is Y for compute dates, N for Don't
74 ,p_compute_dates_flag in varchar2 default 'Y'
75 --
76 -- optional for everything
77 --
78 ,p_elig_per_elctbl_chc_id in number default null
79 ,p_acty_base_rt_id in number default null
80 ,p_business_group_id in number
81 ,p_start_date in date default null
82 ,p_end_date in date default null
83 ,p_effective_date in date
84 ,p_lf_evt_ocrd_dt in date default null
85 --
86 ,p_enrt_cvg_strt_dt out nocopy date
87 ,p_enrt_cvg_strt_dt_cd out nocopy varchar2
88 ,p_enrt_cvg_strt_dt_rl out nocopy number
89 ,p_rt_strt_dt out nocopy date
90 ,p_rt_strt_dt_cd out nocopy varchar2
91 ,p_rt_strt_dt_rl out nocopy number
92 ,p_enrt_cvg_end_dt out nocopy date
93 ,p_enrt_cvg_end_dt_cd out nocopy varchar2
94 ,p_enrt_cvg_end_dt_rl out nocopy number
95 ,p_rt_end_dt out nocopy date
96 ,p_rt_end_dt_cd out nocopy varchar2
97 ,p_rt_end_dt_rl out nocopy number
98 );
99 --
100 function do_date_at_enrollment(p_date_cd in varchar2) return boolean;
101 --
102 --overrident procedure call for calling from PLD for override enrollment
103 procedure rate_and_coverage_dates_nc
104 (p_per_in_ler_id in number default null
105 ,p_person_id in number default null
106 ,p_pgm_id in number default null
107 ,p_pl_id in number default null
108 ,p_oipl_id in number default null
109 ,p_par_ptip_id in number default null
110 ,p_par_plip_id in number default null
111 ,p_lee_rsn_id in number default null
112 ,p_enrt_perd_id in number default null
113 ,p_enrt_perd_for_pl_id in number default null
114 ,p_which_dates_cd in varchar2 default 'B'
115 ,p_date_mandatory_flag in varchar2 default 'Y'
116 ,p_compute_dates_flag in varchar2 default 'Y'
117 ,p_elig_per_elctbl_chc_id in number default null
118 ,p_acty_base_rt_id in number default null
119 ,p_business_group_id in number
120 ,p_start_date in date default null
121 ,p_end_date in date default null
122 ,p_effective_date in date
123 ,p_lf_evt_ocrd_dt in date default null
124 ,p_enrt_cvg_strt_dt out nocopy date
125 ,p_enrt_cvg_strt_dt_cd out nocopy varchar2
126 ,p_enrt_cvg_strt_dt_rl out nocopy number
127 ,p_rt_strt_dt out nocopy date
128 ,p_rt_strt_dt_cd out nocopy varchar2
129 ,p_rt_strt_dt_rl out nocopy number
130 ,p_enrt_cvg_end_dt out nocopy date
131 ,p_enrt_cvg_end_dt_cd out nocopy varchar2
132 ,p_enrt_cvg_end_dt_rl out nocopy number
133 ,p_rt_end_dt out nocopy date
134 ,p_rt_end_dt_cd out nocopy varchar2
135 ,p_rt_end_dt_rl out nocopy number
136 );
137 --
138 end ben_determine_date;