[Home] [Help]
1: Package body pqh_gsp_utility as
2: /* $Header: pqgsputl.pkb 120.10.12010000.2 2008/08/05 13:35:44 ubhat ship $ */
3:
4: g_package Varchar2(30) := 'pqh_gsp_utility.';
5: g_debug boolean := hr_utility.debug_enabled;
1: Package body pqh_gsp_utility as
2: /* $Header: pqgsputl.pkb 120.10.12010000.2 2008/08/05 13:35:44 ubhat ship $ */
3:
4: g_package Varchar2(30) := 'pqh_gsp_utility.';
5: g_debug boolean := hr_utility.debug_enabled;
6:
7: --
8: ---------------------------get_gsp_plntyp_str_date-----------------------------
876: Elsif p_action = 'PRGORDER' then
877: -- Check The Grade Ladder has Grades or not
878: -- If No Grades are attached to Grade Ladder then
879: -- Disable Progression Order Icon otherwise Enable it.
880: l_grade_attached := pqh_gsp_utility.chk_grade_exist_in_gl( p_copy_entity_txn_id => p_copy_entity_txn_id );
881:
882: If l_grade_attached = 'N' Then
883: return 'D';
884: Else
951: Then
952: If p_action = 'ADD' Then
953: return 'E';
954: Elsif p_action = 'UPDATE' Then
955: l_exists := pqh_gsp_utility.CHK_PROFILE_EXISTS(p_copy_entity_result_id => p_copy_entity_result_id,
956: p_copy_entity_txn_id => p_copy_entity_txn_id);
957: if g_debug then
958: hr_utility.set_location('ELP recs Exists (Y/N) :'|| l_exists,41);
959: end if;
981: elsif p_action = 'UPDATE' Then
982: if g_debug then
983: hr_utility.set_location('p_copy_entity_result_id '||p_copy_entity_result_id ,50);
984: end if;
985: l_exists := pqh_gsp_utility.CHK_PROFILE_EXISTS(p_copy_entity_result_id => p_copy_entity_result_id,
986: p_copy_entity_txn_id => p_copy_entity_txn_id);
987: if g_debug then
988: hr_utility.set_location('l_exists :: '||l_exists,60);
989: end if;
1004: if g_debug then
1005: hr_utility.set_location('p_copy_entity_result_id '||p_copy_entity_result_id ,80);
1006: end if;
1007:
1008: l_exists := pqh_gsp_utility.CHK_PROFILE_EXISTS(p_copy_entity_result_id => p_copy_entity_result_id,
1009: p_copy_entity_txn_id => p_copy_entity_txn_id);
1010: if g_debug then
1011: hr_utility.set_location('l_exists :: '||l_exists,90);
1012: end if;
1222: hr_utility.set_location('p_copy_entity_txn_id '||p_copy_entity_txn_id,30);
1223: hr_utility.set_location('p_Table_Alias '||p_Table_Alias,40);
1224: end if;
1225:
1226: l_step_or_point := pqh_gsp_utility.USE_POINT_OR_STEP(p_copy_entity_txn_id => p_copy_entity_txn_id);
1227: if g_debug then
1228: hr_utility.set_location('Point/Step : '||l_step_or_point,40);
1229: end if;
1230:
2496: hr_utility.set_location('p_point_result_id:'||p_point_result_id, 40);
2497: end if;
2498:
2499:
2500: l_use_points:= pqh_gsp_utility.USE_POINT_OR_STEP(p_copy_entity_txn_id=>p_copy_entity_txn_id);
2501: if g_debug then
2502: hr_utility.set_location('l_use_points:'||l_use_points, 50);
2503: end if;
2504:
3027: -- Check Grade Ladder Name is Unique with in the Business Group
3028: if g_debug then
3029: hr_utility.set_location('Check Grade Ladder Name is Unique ', 20);
3030: end if;
3031: pqh_gsp_utility.chk_grdldr_name_unique( p_pgm_id => p_pgm_id
3032: ,p_business_group_id => p_business_group_id
3033: ,p_name => p_name);
3034:
3035: -- Check Grade Ladder , Short Name and Short Code is Unique with in the Business Group
3037: hr_utility.set_location('Check Grade Ladder Short Name and Short Code is Unique ', 25);
3038: end if;
3039:
3040: If (p_short_name IS NOT NULL or p_short_code IS NOT NULL) Then
3041: pqh_gsp_utility.chk_gl_sht_name_code_unique( p_pgm_id => p_pgm_id
3042: ,p_business_group_id => p_business_group_id
3043: ,p_short_name => p_short_name
3044: ,p_short_code => p_short_code);
3045:
3048: if g_debug then
3049: hr_utility.set_location('Default Grade Ladder in BG ', 30);
3050: end if;
3051:
3052: pqh_gsp_utility.chk_default_ladder_exist ( p_pgm_id => p_pgm_id,
3053: p_business_group_id => p_business_group_id,
3054: p_effective_date => p_effective_date);
3055:
3056: -- The system should not allow inactivating an existing grade ladder on
3059: /*
3060: if g_debug then
3061: hr_utility.set_location('Inactivated GL ', 40);
3062: end if;
3063: pqh_gsp_utility.chk_inactivate_grdldr ( p_pgm_id => p_pgm_id,
3064: p_effective_date => p_effective_date,
3065: p_business_group_id => p_business_group_id);
3066: */
3067:
3480: -- The system should not allow inactivating an existing grade ladder on
3481: -- which there are employee placements.
3482:
3483: if p_pgm_id IS NOT NULL Then
3484: pqh_gsp_utility.validate_grade_ladder(p_pgm_id => p_pgm_id
3485: ,p_effective_date => p_effective_date
3486: ,p_name => l_name
3487: ,p_short_name => l_short_name
3488: ,p_short_code => l_short_code
3493: -- Check Grades can be removed from the Grade Ladder
3494: if g_debug then
3495: hr_utility.set_location('Check Grades can be removed from the Grade Ladder', 20);
3496: end if;
3497: pqh_gsp_utility.chk_unlink_grd_from_grdldr
3498: (p_pgm_id => p_pgm_id
3499: ,p_copy_entity_txn_id => p_copy_entity_txn_id
3500: ,p_business_group_id => p_business_group_id
3501: ,p_effective_date => p_effective_date
3515:
3516: if g_debug then
3517: hr_utility.set_location('Only Some Steps are attached Validation', 30);
3518: end if;
3519: pqh_gsp_utility.chk_add_steps_in_all_grades ( p_copy_entity_txn_id => p_copy_entity_txn_id ,
3520: p_business_group_id => p_business_group_id);
3521:
3522: -- Get Grade Ladder Effective Date
3523: Open csr_grdldr_date;
3529:
3530: if g_debug then
3531: hr_utility.set_location('InValid Grades Validation', 40);
3532: end if;
3533: pqh_gsp_utility.chk_valid_grd_in_grdldr ( p_copy_entity_txn_id => p_copy_entity_txn_id,
3534: p_effective_date => p_effective_date,
3535: p_business_group_id => p_business_group_id);
3536:
3537:
3539:
3540: if g_debug then
3541: hr_utility.set_location('Currecny, Rate Period Validation', 70);
3542: end if;
3543: pqh_gsp_utility.chk_grdldr_grd_curreny_rate ( p_copy_entity_txn_id => p_copy_entity_txn_id
3544: ,p_business_group_id => p_business_group_id
3545: ,p_effective_date => p_effective_date);
3546:
3547: -- Check Steps can be removed from the Grade Ladder
3548: if g_debug then
3549: hr_utility.set_location('Check Steps can be removed from the Grade Ladder', 80);
3550: end if;
3551:
3552: pqh_gsp_utility.chk_unlink_step_from_grdldr
3553: (p_copy_entity_txn_id => p_copy_entity_txn_id
3554: ,p_business_group_id => p_business_group_id
3555: ,p_effective_date => p_effective_date
3556: );
3788: -- Local variables
3789: --
3790: l_rate_id pay_rates.rate_id%type;
3791: l_ovn pay_rates.object_version_number%type;
3792: l_proc varchar2(100) := 'pqh_gsp_utility.create_pay_rate';
3793: --
3794: Begin
3795: --
3796: if g_debug then
3829: -- Local variables
3830: --
3831: l_rate_id pay_rates.rate_id%type;
3832: l_ovn pay_rates.object_version_number%type;
3833: l_proc varchar2(100) := 'pqh_gsp_utility.create_pay_rate';
3834: --
3835: Begin
3836: --
3837: if g_debug then
4042: OPEN c_pay_basis;
4043: FETCH c_pay_basis into l_factor,l_pay_basis;
4044: CLOSE C_Pay_Basis;
4045:
4046: l_gl_ann_factor := pqh_gsp_utility.get_gl_ann_factor(p_pgm_id => p_pgm_id);
4047:
4048: if l_gl_ann_factor is not null then
4049: l_ret_amount := (p_amount*to_number(l_gl_ann_factor))/l_factor;
4050: return l_ret_amount;
4177: and table_alias = 'HRRATE'
4178: and result_type_cd = 'DISPLAY';
4179: --
4180: l_point_rate number;
4181: l_proc varchar2(100) := 'pqh_gsp_utility.get_dflt_point_rate';
4182: --
4183: Begin
4184: --
4185: if g_debug then
4269: and input_value_id = p_input_value_id
4270: and pay_basis_id <> p_basis_id;
4271: --
4272: l_dummy varchar2(20);
4273: l_proc varchar2(100) := 'pqh_gsp_utility.check_sal_basis_iv';
4274: --
4275: Begin
4276: --
4277: p_exists_flag := 'N';
5670:
5671: END upd_ceiling_info;
5672:
5673: --
5674: End pqh_gsp_utility;
5675: