[Home] [Help]
491: - Revamped elig flags to uses a local
492: record structure rather than globals.
493: - Passed p_comp_obj_tree_row into
494: determine_eligibility. Currently
495: dual supporting ben_env_object
496: comp object globals in parallel
497: with p_comp_obj_tree_row. Bendrpar
498: totally uses p_comp_obj_tree_row but
499: bendetel, bendete2 and benwtprc still
513: supplied mode is different.
514: 02-MAR-00 stee 115.167 - Update COBRA qualified beneficiary
515: information if COBRA electable
516: choices exist.
517: 03-MAR-00 mhoyes 115.168 - Phased out nocopy ben_env_object for comp
518: objects.
519: 04-MAR-00 mhoyes 115.169 - Added comp object cache parameters to
520: load_cache.
521: - Stored parent comp object ID values
1154: g_debug := hr_utility.debug_enabled;
1155: --
1156: -- Set up benefits environment
1157: --
1158: ben_env_object.init
1159: (p_business_group_id => p_business_group_id
1160: ,p_effective_date => p_effective_date
1161: ,p_thread_id => p_thread_id
1162: ,p_chunk_size => p_chunk_size
5099: l_dtctd_dt date;
5100: l_procd_dt date;
5101: l_unprocd_dt date;
5102: l_voidd_dt date;
5103: l_rec ben_env_object.g_global_env_rec_type;
5104: --
5105: cursor c_person_thread is
5106: select ben.person_id,
5107: ben.person_action_id,
9002: -- (1) Log the life event we are attempting to process
9003: -- (2) Evaluate the potential life events
9004: -- (3) If a new winning life event is found then log it
9005: --
9006: ben_env_object.setenv(p_person_id => p_person_id);
9007:
9008: -- Bug 1696526. Added by Gopal Venkataraman 3/20/01 - This is was done
9009: -- to set the p_lf_evt_ocrd_dt until the real one is determined.
9010: -- Better than using the one from the previous person as is what happens
9008: -- Bug 1696526. Added by Gopal Venkataraman 3/20/01 - This is was done
9009: -- to set the p_lf_evt_ocrd_dt until the real one is determined.
9010: -- Better than using the one from the previous person as is what happens
9011: -- without this.
9012: ben_env_object.setenv(p_lf_evt_ocrd_dt => p_effective_date);
9013: -- Add ended
9014: --
9015: benutils.get_batch_parameters
9016: (p_benefit_action_id => benutils.g_benefit_action_id
9379: benutils.id(l_rec.ler_id));
9380: --
9381: end if;
9382: --
9383: ben_env_object.setenv(p_lf_evt_ocrd_dt => l_rec.lf_evt_ocrd_dt);
9384: dt_fndate.change_ses_date
9385: (p_ses_date => l_rec.lf_evt_ocrd_dt,
9386: p_commit => l_commit);
9387: fnd_message.set_name('BEN','BEN_91333_CALLING_PROC');
9867: l_package varchar2(80);
9868: --
9869: l_enb_valrow ben_determine_coverage.ENBValType;
9870: --
9871: l_env ben_env_object.g_global_env_rec_type;
9872: l_comp_obj_tree ben_manage_life_events.g_cache_proc_object_table;
9873: l_par_elig_state ben_comp_obj_filter.g_par_elig_state_rec;
9874: l_comp_obj_tree_row ben_manage_life_events.g_cache_proc_objects_rec;
9875: l_parpepgm_row ben_prtn_elig_f%rowtype;
10264: --
10265: if g_debug then
10266: hr_utility.set_location (l_package||' Set env ',20);
10267: end if;
10268: ben_env_object.setenv(p_lf_evt_ocrd_dt => l_rec.lf_evt_ocrd_dt);
10269: --
10270: -- Clear eligibility caches
10271: --
10272: ben_pep_cache.clear_down_cache;
10278: );
10279: --
10280: -- Get environment values
10281: --
10282: ben_env_object.get
10283: (p_rec => l_env
10284: );
10285: --
10286: -- Get person info
12498: --
12499: l_package varchar2(80);
12500: l_ler_id number := p_ler_id;
12501: l_rec benutils.g_active_life_event;
12502: l_env ben_env_object.g_global_env_rec_type;
12503: l_encoded_message varchar2(2000);
12504: l_app_short_name varchar2(2000);
12505: l_message_name varchar2(2000);
12506: l_per_rec per_all_people_f%rowtype;
12751: -- derived. We can do this because national identifier is
12752: -- non-updateable so the effective date is irrelevant when
12753: -- getting person information.
12754: --
12755: ben_env_object.setenv(p_lf_evt_ocrd_dt => p_effective_date);
12756: ben_env_object.get(p_rec => l_env);
12757: ben_person_object.get_object(p_person_id => p_person_id,
12758: p_rec => l_per_rec);
12759:
12752: -- non-updateable so the effective date is irrelevant when
12753: -- getting person information.
12754: --
12755: ben_env_object.setenv(p_lf_evt_ocrd_dt => p_effective_date);
12756: ben_env_object.get(p_rec => l_env);
12757: ben_person_object.get_object(p_person_id => p_person_id,
12758: p_rec => l_per_rec);
12759:
12760: g_rec.person_id := p_person_id;
12866: benutils.rollback_cache;
12867: --
12868: -- Roll cache to savepoint
12869: --
12870: ben_env_object.setenv(p_lf_evt_ocrd_dt => p_effective_date);
12871: ben_env_object.get(p_rec => l_env);
12872: ben_person_object.get_object(p_person_id => p_person_id,
12873: p_rec => l_per_rec);
12874: g_rec.person_id := p_person_id;
12867: --
12868: -- Roll cache to savepoint
12869: --
12870: ben_env_object.setenv(p_lf_evt_ocrd_dt => p_effective_date);
12871: ben_env_object.get(p_rec => l_env);
12872: ben_person_object.get_object(p_person_id => p_person_id,
12873: p_rec => l_per_rec);
12874: g_rec.person_id := p_person_id;
12875: g_rec.pgm_id := l_env.pgm_id;