[Home] [Help]
1: PACKAGE BODY hr_au_holidays AS
2: -- $Header: hrauhol.pkb 120.19.12020000.4 2012/11/09 05:00:22 mdubasi ship $
3: --
4: -- Copyright (C) 2000 Oracle Corporation
5: -- All Rights Reserved
3: --
4: -- Copyright (C) 2000 Oracle Corporation
5: -- All Rights Reserved
6: --
7: -- Script to create AU HRMS hr_au_holidays package
8: --
9: -- Change List
10: -- ===========
11: --
1883: ,p_business_group_hours in number
1884: ,p_business_group_freq in varchar2)
1885: return number is
1886:
1887: l_procedure_name varchar2(61) := 'hr_au_holidays.accrual_daily_basis' ;
1888: l_accrual number := 0 ;
1889: l_accrual_band_cache t_accrual_band_tab ;
1890: l_asg_work_day_info_cache t_asg_work_day_info_tab ;
1891: l_counter integer ;
2127:
2128: -- how many years of effective service does the assignment have (at the end of each period)
2129: -- i.e. (days since hired - days with susp ass) / avg no of days per year
2130: l_years_service := floor(((r_period.end_date - p_service_start_date)
2131: - hr_au_holidays.days_suspended(p_assignment_id, p_service_start_date, r_period.end_date)) / 365.25) ;
2132:
2133: -- get the accrual band
2134: l_annual_accrual := accrual_annual_rate(l_years_service) ;
2135:
2200: -- see bug 1313971
2201: -- consideration of multiple bands of different annual rate bug no 1460922
2202:
2203: l_years_service := floor((((least((l_next_anniversary_date-1), p_calculation_end_date))- p_service_start_date)
2204: - hr_au_holidays.days_suspended(p_assignment_id, p_service_start_date, (least((l_next_anniversary_date-1), p_calculation_end_date)))) / 365.25) ;
2205:
2206:
2207: l_special_annual_accrual := accrual_annual_rate(l_years_service) ;
2208:
2220:
2221:
2222: l_days_in_year := (l_next_anniversary_date - add_months(l_next_anniversary_date, -12)) ;
2223: l_days_in_part_period := ((least((l_next_anniversary_date-1), p_calculation_end_date)) - l_start_date) +1 ;
2224: l_days_suspended := hr_au_holidays.days_suspended (p_assignment_id
2225: ,l_start_date
2226: ,(least((l_next_anniversary_date-1), p_calculation_end_date)));
2227: l_period_accrual := (l_special_annual_accrual / l_days_in_year) * (l_days_in_part_period - l_days_suspended) ;
2228:
2229: If l_end_date > (l_next_anniversary_date-1) then
2230: -- process the anniversary date to the end of the time span
2231: l_days_in_year := (add_months(l_next_anniversary_date, 12) - l_next_anniversary_date) ;
2232: l_days_in_part_period := (l_end_date - l_next_anniversary_date) + 1 ;
2233: l_days_suspended := hr_au_holidays.days_suspended (p_assignment_id
2234: ,l_next_anniversary_date
2235: ,l_end_date);
2236: l_period_accrual := l_period_accrual + (l_annual_accrual / l_days_in_year) * (l_days_in_part_period - l_days_suspended);
2237: end if;
2242: -- the time span we're dealing with
2243:
2244: l_days_in_year := (l_next_anniversary_date - add_months(l_next_anniversary_date, -12)) ;
2245: l_days_in_part_period := (l_end_date - l_start_date) + 1 ;
2246: l_days_suspended := hr_au_holidays.days_suspended (p_assignment_id
2247: ,l_start_date
2248: ,l_end_date);
2249: l_period_accrual := (l_annual_accrual / l_days_in_year) * (l_days_in_part_period - l_days_suspended) ;
2250:
2345: function check_periods
2346: (p_payroll_id in number)
2347: return date is
2348:
2349: l_proc varchar2(61) := 'hr_au_holidays.check_periods' ;
2350: l_end_date date := to_date('01010001','DDMMYYYY');
2351:
2352: -- cursor to check payroll periods exist up to calc_end_date
2353:
2391: ,p_start_date IN DATE
2392: ,p_end_date IN DATE)
2393: return date is
2394:
2395: l_proc varchar2(61) := 'hr_au_holidays.adjust_for_suspend_assign' ;
2396: l_days_suspended number := 1;
2397: l_start_date date := p_start_date;
2398: l_adjust_date date := p_adjust_date;
2399:
2404: -- loop to check each new period added on for suspended assignments
2405:
2406: while (l_days_suspended > 0) and (l_adjust_date < p_end_date) loop
2407:
2408: l_days_suspended := hr_au_holidays.days_suspended (p_assignment_id
2409: ,l_start_date
2410: ,l_adjust_date);
2411: l_start_date := l_adjust_date;
2412: l_adjust_date := l_adjust_date + l_days_suspended;
2445: ,p_start_date in DATE
2446: ,p_end_date in DATE)
2447: return number is
2448:
2449: l_proc varchar2(61) := 'hr_au_holidays.get_leave_initailise' ;
2450: l_initialise number := 0;
2451:
2452: -- find Leave Initialise Values
2453:
2548: ,p_calculation_date in DATE
2549: ,p_next_entitlement_date in out NOCOPY DATE)
2550: return date is
2551:
2552: l_proc varchar2(61) := 'hr_au_holidays.get_lsl_entitlement_date' ;
2553: l_first_period number;
2554: l_subsequent_periods number;
2555: l_entitlement_date date;
2556: l_next_entitlement_date date;
2584: -- set entitlement date to end of first period plus any suspension
2585: -- adjustment
2586: l_entitlement_date := p_service_start_date;
2587:
2588: p_next_entitlement_date := hr_au_holidays.adjust_for_suspend_assign
2589: (p_assignment_id
2590: ,add_months(p_service_start_date, (l_first_period * 12) )
2591: ,p_service_start_date
2592: ,l_eot);
2600: while p_calculation_date >= p_next_entitlement_date loop
2601:
2602: l_entitlement_date := p_next_entitlement_date;
2603:
2604: p_next_entitlement_date := hr_au_holidays.adjust_for_suspend_assign
2605: (p_assignment_id
2606: ,add_months(l_entitlement_date, (l_subsequent_periods * 12) )
2607: ,l_entitlement_date
2608: ,l_eot);
2632: ( p_business_group_id in NUMBER
2633: ,p_entry_value in VARCHAR2)
2634: return number is
2635:
2636: l_proc varchar2(61) := 'hr_au_holidays.validate_accrual_plan_name' ;
2637: l_plan_exists number := 0;
2638:
2639: -- find plan name
2640: cursor c_plan_name ( v_business_group_id number
2719:
2720: end au_get_enrollment_startdate;
2721: /*End --Bug7607177 */
2722:
2723: END hr_au_holidays;