[Home] [Help]
1: PACKAGE BODY hr_au_holidays AS
2: -- $Header: hrauhol.pkb 120.3 2007/10/03 06:48:41 priupadh 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: --
661: ,p_business_group_hours in number
662: ,p_business_group_freq in varchar2)
663: return number is
664:
665: l_procedure_name varchar2(61) := 'hr_au_holidays.accrual_daily_basis' ;
666: l_accrual number := 0 ;
667: l_accrual_band_cache t_accrual_band_tab ;
668: l_asg_work_day_info_cache t_asg_work_day_info_tab ;
669: l_counter integer ;
905:
906: -- how many years of effective service does the assignment have (at the end of each period)
907: -- i.e. (days since hired - days with susp ass) / avg no of days per year
908: l_years_service := floor(((r_period.end_date - p_service_start_date)
909: - hr_au_holidays.days_suspended(p_assignment_id, p_service_start_date, r_period.end_date)) / 365.25) ;
910:
911: -- get the accrual band
912: l_annual_accrual := accrual_annual_rate(l_years_service) ;
913:
978: -- see bug 1313971
979: -- consideration of multiple bands of different annual rate bug no 1460922
980:
981: l_years_service := floor((((least((l_next_anniversary_date-1), p_calculation_end_date))- p_service_start_date)
982: - hr_au_holidays.days_suspended(p_assignment_id, p_service_start_date, (least((l_next_anniversary_date-1), p_calculation_end_date)))) / 365.25) ;
983:
984:
985: l_special_annual_accrual := accrual_annual_rate(l_years_service) ;
986:
998:
999:
1000: l_days_in_year := (l_next_anniversary_date - add_months(l_next_anniversary_date, -12)) ;
1001: l_days_in_part_period := ((least((l_next_anniversary_date-1), p_calculation_end_date)) - l_start_date) +1 ;
1002: l_days_suspended := hr_au_holidays.days_suspended (p_assignment_id
1003: ,l_start_date
1004: ,(least((l_next_anniversary_date-1), p_calculation_end_date)));
1005: l_period_accrual := (l_special_annual_accrual / l_days_in_year) * (l_days_in_part_period - l_days_suspended) ;
1006:
1007: If l_end_date > (l_next_anniversary_date-1) then
1008: -- process the anniversary date to the end of the time span
1009: l_days_in_year := (add_months(l_next_anniversary_date, 12) - l_next_anniversary_date) ;
1010: l_days_in_part_period := (l_end_date - l_next_anniversary_date) + 1 ;
1011: l_days_suspended := hr_au_holidays.days_suspended (p_assignment_id
1012: ,l_next_anniversary_date
1013: ,l_end_date);
1014: l_period_accrual := l_period_accrual + (l_annual_accrual / l_days_in_year) * (l_days_in_part_period - l_days_suspended);
1015: end if;
1020: -- the time span we're dealing with
1021:
1022: l_days_in_year := (l_next_anniversary_date - add_months(l_next_anniversary_date, -12)) ;
1023: l_days_in_part_period := (l_end_date - l_start_date) + 1 ;
1024: l_days_suspended := hr_au_holidays.days_suspended (p_assignment_id
1025: ,l_start_date
1026: ,l_end_date);
1027: l_period_accrual := (l_annual_accrual / l_days_in_year) * (l_days_in_part_period - l_days_suspended) ;
1028:
1123: function check_periods
1124: (p_payroll_id in number)
1125: return date is
1126:
1127: l_proc varchar2(61) := 'hr_au_holidays.check_periods' ;
1128: l_end_date date := to_date('01010001','DDMMYYYY');
1129:
1130: -- cursor to check payroll periods exist up to calc_end_date
1131:
1169: ,p_start_date IN DATE
1170: ,p_end_date IN DATE)
1171: return date is
1172:
1173: l_proc varchar2(61) := 'hr_au_holidays.adjust_for_suspend_assign' ;
1174: l_days_suspended number := 1;
1175: l_start_date date := p_start_date;
1176: l_adjust_date date := p_adjust_date;
1177:
1182: -- loop to check each new period added on for suspended assignments
1183:
1184: while (l_days_suspended > 0) and (l_adjust_date < p_end_date) loop
1185:
1186: l_days_suspended := hr_au_holidays.days_suspended (p_assignment_id
1187: ,l_start_date
1188: ,l_adjust_date);
1189: l_start_date := l_adjust_date;
1190: l_adjust_date := l_adjust_date + l_days_suspended;
1223: ,p_start_date in DATE
1224: ,p_end_date in DATE)
1225: return number is
1226:
1227: l_proc varchar2(61) := 'hr_au_holidays.get_leave_initailise' ;
1228: l_initialise number := 0;
1229:
1230: -- find Leave Initialise Values
1231:
1317: ,p_calculation_date in DATE
1318: ,p_next_entitlement_date in out NOCOPY DATE)
1319: return date is
1320:
1321: l_proc varchar2(61) := 'hr_au_holidays.get_lsl_entitlement_date' ;
1322: l_first_period number;
1323: l_subsequent_periods number;
1324: l_entitlement_date date;
1325: l_next_entitlement_date date;
1353: -- set entitlement date to end of first period plus any suspension
1354: -- adjustment
1355: l_entitlement_date := p_service_start_date;
1356:
1357: p_next_entitlement_date := hr_au_holidays.adjust_for_suspend_assign
1358: (p_assignment_id
1359: ,add_months(p_service_start_date, (l_first_period * 12) )
1360: ,p_service_start_date
1361: ,l_eot);
1369: while p_calculation_date >= p_next_entitlement_date loop
1370:
1371: l_entitlement_date := p_next_entitlement_date;
1372:
1373: p_next_entitlement_date := hr_au_holidays.adjust_for_suspend_assign
1374: (p_assignment_id
1375: ,add_months(l_entitlement_date, (l_subsequent_periods * 12) )
1376: ,l_entitlement_date
1377: ,l_eot);
1401: ( p_business_group_id in NUMBER
1402: ,p_entry_value in VARCHAR2)
1403: return number is
1404:
1405: l_proc varchar2(61) := 'hr_au_holidays.validate_accrual_plan_name' ;
1406: l_plan_exists number := 0;
1407:
1408: -- find plan name
1409: cursor c_plan_name ( v_business_group_id number
1437: -- RETURN (99);
1438:
1439: end validate_accrual_plan_name;
1440:
1441: END hr_au_holidays;