[Home] [Help]
1: package body BEN_CWB_PERSON_INFO_PKG as
2: /* $Header: bencwbpi.pkb 120.13.12010000.4 2009/01/08 05:16:47 cakunuru ship $ */
3: --
4: -- --------------------------------------------------------------------------
5: -- | Private Global Definitions |
4: -- --------------------------------------------------------------------------
5: -- | Private Global Definitions |
6: -- --------------------------------------------------------------------------
7: --
8: g_package varchar2(33):=' ben_cwb_person_info_pkg.'; --Global package name
9: g_debug boolean := hr_utility.debug_enabled;
10: g_fte_factor VARCHAR2(240) := fnd_profile.VALUE('BEN_CWB_FTE_FACTOR');
11: g_salary_survey_id number := null; --Change to right value when implementing.
12: --
344: ,p_effective_date in date
345: ,p_called_from_benmngle in boolean default false)
346: is
347:
348: l_performance_rating_type ben_cwb_person_info.performance_rating_type%type;
349: -- cursor to fetch the person information
350: cursor csr_person_info(p_group_per_in_ler_id number
351: ,p_effective_date date
352: ,p_from_benmngle varchar2) is
716: and paf_prev.pay_basis_id = ppb_prev.pay_basis_id (+);
717: --
718: cursor c_person_info is
719: select cpi.effective_date
720: from ben_cwb_person_info cpi
721: where cpi.group_per_in_ler_id = p_group_per_in_ler_id;
722: --
723:
724: l_data_freeze_date date;
795: if g_debug then
796: hr_utility.set_location(l_proc, 20);
797: end if;
798: --
799: -- Open the cursor and update the details in ben_cwb_person_info
800: -- It always should return only one row, but using the for to avoid
801: -- the declaration of too many local variables.
802: for perinfo_rec in csr_person_info(
803: p_group_per_in_ler_id => p_group_per_in_ler_id
849: l_annual_grd_mid_point := perinfo_rec.grd_mid_point * perinfo_rec.grade_annualization_factor;
850: l_annual_grd_max_val := perinfo_rec.grd_max_val * perinfo_rec.grade_annualization_factor;
851: --
852: if l_cpi_effective_date is not null then
853: update ben_cwb_person_info
854: set person_id = perinfo_rec.person_id
855: ,supervisor_id = perinfo_rec.supervisor_id
856: ,assignment_id = perinfo_rec.assignment_id
857: ,effective_date = perinfo_rec.effective_date
1045: --
1046: else
1047: -- The record does not exist. So insert the new record
1048: --
1049: insert into ben_cwb_person_info
1050: (group_per_in_ler_id
1051: ,person_id
1052: ,supervisor_id
1053: ,assignment_id
1432: hr_utility.set_location(l_proc, 50);
1433: end if;
1434: --
1435: if l_assignment_id is not null then
1436: insert into ben_cwb_person_info
1437: (group_per_in_ler_id
1438: ,person_id
1439: ,assignment_id
1440: ,effective_date
1884: ,p_effective_date);
1885: --
1886: END;
1887: --
1888: end BEN_CWB_PERSON_INFO_PKG;
1889: --