[Home] [Help]
1: PACKAGE BODY hr_nz_holidays AS
2: -- $Header: hrnzhol.pkb 120.1 2005/09/01 21:44:11 snekkala noship $
3: --
4: -- Copyright (C) 1999 Oracle Corporation
5: -- All Rights Reserved
3: --
4: -- Copyright (C) 1999 Oracle Corporation
5: -- All Rights Reserved
6: --
7: -- Script to create NZ HRMS hr_nz_holidays package
8: --
9: -- Change List
10: -- ===========
11: --
768: function check_periods
769: (p_payroll_id in number)
770: return date is
771: --
772: l_proc varchar2(61) := 'hr_nz_holidays.check_periods' ;
773: l_end_date date := to_date('01010001','DDMMYYYY');
774: --
775: -- cursor to check payroll periods exist up to calc_end_date
776: --
843: hr_utility.trace(' p_plan_id: ' || to_char(p_plan_id)) ;
844: hr_utility.trace(' p_calculation_date: ' || to_char(p_calculation_date,'dd Mon yyyy')) ;
845:
846:
847: l_return_val :=hr_nz_holidays.get_accrual_entitlement(p_assignment_id
848: ,p_payroll_id
849: ,p_business_group_id
850: ,p_plan_id
851: ,p_calculation_date
893: hr_utility.trace(' p_payroll_id: ' || to_char(p_payroll_id)) ;
894: hr_utility.trace(' p_business_group_id: ' || to_char(p_business_group_id)) ;
895: hr_utility.trace(' p_calculation_date: ' || to_char(p_calculation_date,'dd Mon yyyy')) ;
896:
897: l_plan_id := hr_nz_holidays.get_annual_leave_plan
898: (p_assignment_id => p_assignment_id
899: ,p_business_group_id => p_business_group_id
900: ,p_calculation_date => p_calculation_date);
901:
903: THEN
904: --* Bug# 2183135 Added the code to check the case wherein Employee takes
905: --* Absence on the first day of the Accrual Plan Enrollment
906:
907: l_plan_id := hr_nz_holidays.get_annual_leave_plan
908: (p_assignment_id => p_assignment_id
909: ,p_business_group_id => p_business_group_id
910: ,p_calculation_date => p_calculation_date+1);
911: l_acp_start_date := get_acp_start_date(p_assignment_id,l_plan_id,p_calculation_date+1);
920: hr_utility.raise_error;
921: END IF;
922: end if;
923:
924: hr_nz_holidays.annual_leave_net_entitlement
925: (p_assignment_id => p_assignment_id
926: ,p_payroll_id => p_payroll_id
927: ,p_business_group_id => p_business_group_id
928: ,p_plan_id => l_plan_id
1301: hr_utility.trace(' p_business_group_id: ' || to_char(p_business_group_id)) ;
1302: hr_utility.trace(' p_calculation_date: ' || to_char(p_calculation_date,'dd Mon yyyy')) ;
1303:
1304:
1305: l_accrual_plan_id := hr_nz_holidays.get_annual_leave_plan
1306: (p_business_group_id => p_business_group_id
1307: ,p_calculation_date => p_calculation_date
1308: ,p_assignment_id => p_assignment_id);
1309:
1313: hr_utility.set_message(801,'HR_NZ_INVALID_ACCRUAL_PLAN');
1314: hr_utility.raise_error;
1315: END IF;
1316:
1317: l_continuous_service := hr_nz_holidays.get_continuous_service_date
1318: (p_business_group_id => p_business_group_id
1319: ,p_accrual_plan_id => l_accrual_plan_id
1320: ,p_calculation_date => p_calculation_date
1321: ,p_assignment_id => p_assignment_id);
1386: hr_utility.trace(' p_calculation_date: ' || to_char(p_calculation_date,'dd Mon yyyy')) ;
1387: hr_utility.trace(' p_start_date: ' || to_char(p_start_date,'dd Mon yyyy')) ;
1388: hr_utility.trace(' p_end_date: ' || to_char(p_end_date,'dd Mon yyyy')) ;
1389:
1390: l_plan_id := hr_nz_holidays.get_annual_leave_plan
1391: (p_assignment_id => p_assignment_id
1392: ,p_business_group_id => p_business_group_id
1393: ,p_calculation_date => p_calculation_date);
1394:
1805:
1806: l_anniversary_date := p_anniversary_date ;
1807: l_hours_left_to_pay := p_entitled_to_hours;
1808:
1809: l_plan_id := hr_nz_holidays.get_annual_leave_plan
1810: (p_assignment_id => p_assignment_id
1811: ,p_business_group_id => p_business_group_id
1812: ,p_calculation_date => p_calculation_date);
1813:
1819: END IF;
1820:
1821: -- find total leave taken up until just before this leave
1822:
1823: l_total_annual_leave_taken := hr_nz_holidays.get_annual_leave_taken
1824: (p_assignment_id => p_assignment_id
1825: ,p_business_group_id => p_business_group_id
1826: ,p_calculation_date => p_calculation_date
1827: ,p_start_date => p_anniversary_date
1951: l_prev_anniversary_date := l_anniversary_date;
1952: l_anniversary_date := ADD_MONTHS(l_anniversary_date,12);
1953: l_prev_total_accrual := l_total_annual_leave_accrual;
1954:
1955: l_taken := hr_nz_holidays.get_annual_leave_taken
1956: (p_assignment_id => p_assignment_id
1957: ,p_business_group_id => p_business_group_id
1958: ,p_calculation_date => p_calculation_date
1959: ,p_start_date => p_anniversary_date
1998: ,p_in_advance_pay_carryover in out nocopy number
1999: ,p_in_advance_hours_carryover in out nocopy number)
2000: return number is
2001:
2002: l_procedure_name varchar2(61) := 'hr_nz_holidays.annual_leave_eoy_adjustment' ;
2003: l_eoy_adjustment number ;
2004: l_balance_type_id pay_balance_types.balance_type_id%type ;
2005: l_annual_leave_in_advance_hrs number ;
2006: l_annual_leave_in_advance_pay number ;
2655: ,p_business_group_hours in number
2656: ,p_business_group_freq in varchar2)
2657: return number is
2658:
2659: l_procedure_name varchar2(61) := 'hr_nz_holidays.accrual_period_basis' ;
2660: l_accrual number := 0 ;
2661: l_accrual_band_cache t_accrual_band_tab ;
2662: l_asg_work_day_info_cache t_asg_work_day_info_tab ;
2663: l_counter integer ;
2963: ,p_business_group_hours in number
2964: ,p_business_group_freq in varchar2)
2965: return number is
2966:
2967: l_procedure_name varchar2(61) := 'hr_nz_holidays.accrual_daily_basis' ;
2968: l_accrual number := 0 ;
2969: l_accrual_band_cache t_accrual_band_tab ;
2970: l_asg_work_day_info_cache t_asg_work_day_info_tab ;
2971: l_counter integer ;
3474: ,p_effective_date => l_year_end);
3475: hr_utility.trace('gross earnings :'||l_gross_earnings);
3476: hr_utility.trace('year end date :'||l_year_end);
3477:
3478: l_num_of_weeks := hr_nz_holidays.num_weeks_for_avg_earnings
3479: (p_assignment_id
3480: ,add_months(l_year_end + 1, -12)) ;
3481:
3482: hr_utility.trace('num of weeks :'||l_num_of_weeks);
3684:
3685: l_balance_type_id NUMBER;
3686: l_gross_earnings NUMBER;
3687: l_procedure_name varchar2(61) :=
3688: 'hr_nz_holidays.gross_earnings_ytd_for_retro';
3689:
3690: e_missing_balance_type exception;
3691: CURSOR c_balance_type(p_name varchar2) is
3692: select balance_type_id
3734: ,p_start_date in DATE
3735: ,p_end_date in DATE)
3736: return number is
3737:
3738: l_proc varchar2(61) := 'hr_nz_holidays.get_adjustment_values' ;
3739: l_adjustment number := 0;
3740:
3741: -- find Leave Initialise Values
3742:
3839: end if;
3840:
3841: end check_retro_eoy;
3842:
3843: END hr_nz_holidays;