APPS.BEN_DETERMINE_ELIGIBILITY3 dependencies on BEN_DETERMINE_ELIGIBILITY

Line 1: package body ben_determine_eligibility3 as

1: package body ben_determine_eligibility3 as
2: /* $Header: bendete3.pkb 120.4.12000000.1 2007/01/19 15:44:49 appldev noship $ */
3: --
4: -- -----------------------------------------------------
5: -- This procedure checks the designation requirements

Line 20: l_proc varchar2(100):= 'ben_determine_eligibility3.check_dsgn_rqmts';

16: p_effective_date in date,
17: p_vrfy_fmm in boolean,
18: p_dpnt_elig_flag out nocopy varchar2) is
19: --
20: l_proc varchar2(100):= 'ben_determine_eligibility3.check_dsgn_rqmts';
21: l_exists varchar2(30);
22: l_dpnt_elig_flag varchar2(1) := 'Y';
23: l_rlshp_count number := 0;
24: l_found_rows boolean := FALSE;

Line 123: if ben_determine_eligibility.g_elig_dpnt_rec.first is not null then

119: --
120: -- The number of eligible dependents must have the right
121: -- relationship type;
122: --
123: if ben_determine_eligibility.g_elig_dpnt_rec.first is not null then
124: for l_counter in ben_determine_eligibility.g_elig_dpnt_rec.first..ben_determine_eligibility.g_elig_dpnt_rec.last loop
125: if ben_determine_eligibility.g_elig_dpnt_rec(l_counter).contact_type = l_drr_rec.rlshp_typ_cd then
126: l_rlshp_count := l_rlshp_count + 1;
127: end if;

Line 124: for l_counter in ben_determine_eligibility.g_elig_dpnt_rec.first..ben_determine_eligibility.g_elig_dpnt_rec.last loop

120: -- The number of eligible dependents must have the right
121: -- relationship type;
122: --
123: if ben_determine_eligibility.g_elig_dpnt_rec.first is not null then
124: for l_counter in ben_determine_eligibility.g_elig_dpnt_rec.first..ben_determine_eligibility.g_elig_dpnt_rec.last loop
125: if ben_determine_eligibility.g_elig_dpnt_rec(l_counter).contact_type = l_drr_rec.rlshp_typ_cd then
126: l_rlshp_count := l_rlshp_count + 1;
127: end if;
128: --

Line 125: if ben_determine_eligibility.g_elig_dpnt_rec(l_counter).contact_type = l_drr_rec.rlshp_typ_cd then

121: -- relationship type;
122: --
123: if ben_determine_eligibility.g_elig_dpnt_rec.first is not null then
124: for l_counter in ben_determine_eligibility.g_elig_dpnt_rec.first..ben_determine_eligibility.g_elig_dpnt_rec.last loop
125: if ben_determine_eligibility.g_elig_dpnt_rec(l_counter).contact_type = l_drr_rec.rlshp_typ_cd then
126: l_rlshp_count := l_rlshp_count + 1;
127: end if;
128: --
129: end loop;

Line 138: if ben_determine_eligibility.g_elig_dpnt_rec.count < nvl(l_ddr_rec.mn_dpnts_rqd_num,0) then

134: -- If there are no relationship rows, then the number of dependents
135: -- must meet the minimum number required for the comp object.
136: --
137: if l_found_rows = false then
138: if ben_determine_eligibility.g_elig_dpnt_rec.count < nvl(l_ddr_rec.mn_dpnts_rqd_num,0) then
139: l_dpnt_elig_flag := 'N';
140: exit;
141: end if;
142: else

Line 188: l_proc varchar2(80) := 'ben_determine_eligibility3.get_prtn_st_dt_aftr_wtg';

184: --
185: l_return_date date;
186: l_outputs ff_exec.outputs_t;
187: --
188: l_proc varchar2(80) := 'ben_determine_eligibility3.get_prtn_st_dt_aftr_wtg';
189: l_ptip_rec ben_ptip_f%rowtype;
190: l_plip_rec ben_plip_f%rowtype;
191: l_ass_rec per_all_assignments_f%rowtype;
192: l_loc_rec hr_locations_all%rowtype;

Line 344: l_proc varchar2(100):='ben_determine_eligibility3.save_to_restore';

340: p_effective_date DATE
341: )
342: IS
343: --
344: l_proc varchar2(100):='ben_determine_eligibility3.save_to_restore';
345: --
346: cursor c_le (v_per_in_ler_id number,
347: v_effective_date date) is
348: select 'W'

Line 847: end ben_determine_eligibility3;

843: END IF;
844: --
845: hr_utility.set_location('Leaving '||l_proc,10);
846: END save_to_restore ;
847: end ben_determine_eligibility3;