[Home] [Help]
273: --
274: l_assignment_action_id number;
275: begin
276: --
277: g_debug := hr_utility.debug_enabled;
278: --
279: if g_debug then
280: hr_utility.set_location(l_procedure, 0);
281: end if;
276: --
277: g_debug := hr_utility.debug_enabled;
278: --
279: if g_debug then
280: hr_utility.set_location(l_procedure, 0);
281: end if;
282: --
283: open csr_ass_action(p_assignment_id, p_effective_date);
284: fetch csr_ass_action into l_assignment_action_id;
284: fetch csr_ass_action into l_assignment_action_id;
285: close csr_ass_action;
286: --
287: if g_debug then
288: hr_utility.set_location(l_procedure, 10);
289: hr_utility.trace('l_assignment_action_id = *'||to_char(nvl(l_assignment_action_id,99))||'*');
290: end if;
291: --
292: if l_assignment_action_id is null then
285: close csr_ass_action;
286: --
287: if g_debug then
288: hr_utility.set_location(l_procedure, 10);
289: hr_utility.trace('l_assignment_action_id = *'||to_char(nvl(l_assignment_action_id,99))||'*');
290: end if;
291: --
292: if l_assignment_action_id is null then
293: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
289: hr_utility.trace('l_assignment_action_id = *'||to_char(nvl(l_assignment_action_id,99))||'*');
290: end if;
291: --
292: if l_assignment_action_id is null then
293: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
294: hr_utility.raise_error;
295: end if;
296: --
297: open csr_def_bal(l_balance_name, l_dimension_name);
290: end if;
291: --
292: if l_assignment_action_id is null then
293: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
294: hr_utility.raise_error;
295: end if;
296: --
297: open csr_def_bal(l_balance_name, l_dimension_name);
298: fetch csr_def_bal into l_defined_balance_id;
297: open csr_def_bal(l_balance_name, l_dimension_name);
298: fetch csr_def_bal into l_defined_balance_id;
299: if csr_def_bal%notfound then
300: if g_debug then
301: hr_utility.set_location(l_procedure, 7);
302: end if;
303: --
304: l_value := 0;
305: else
319: --,p_virtual_date => p_effective_date
320: --);
321: --
322: if g_debug then
323: hr_utility.set_location(l_procedure,999);
324: end if;
325: --
326: return l_value;
327: end get_working_days_balance;
409: l_date_moved boolean;
410: --
411: begin
412: --
413: g_debug := hr_utility.debug_enabled;
414: --
415: l_tmp_anniversary_end_date := p_end_date;
416: if g_debug then
417: hr_utility.set_location(l_procedure, 0);
413: g_debug := hr_utility.debug_enabled;
414: --
415: l_tmp_anniversary_end_date := p_end_date;
416: if g_debug then
417: hr_utility.set_location(l_procedure, 0);
418: end if;
419: --
420: if g_debug then
421: hr_utility.set_location('Entering '||l_procedure,1);
417: hr_utility.set_location(l_procedure, 0);
418: end if;
419: --
420: if g_debug then
421: hr_utility.set_location('Entering '||l_procedure,1);
422: hr_utility.set_location('p_start_date '||to_char(p_start_date,'DD-MON-YYYY'),1);
423: hr_utility.set_location('p_end_date '||to_char(p_end_date,'DD-MON-YYYY'),1);
424: end if;
425: --
418: end if;
419: --
420: if g_debug then
421: hr_utility.set_location('Entering '||l_procedure,1);
422: hr_utility.set_location('p_start_date '||to_char(p_start_date,'DD-MON-YYYY'),1);
423: hr_utility.set_location('p_end_date '||to_char(p_end_date,'DD-MON-YYYY'),1);
424: end if;
425: --
426: -- Check for more absence unless we have gone beyond the calculation date
419: --
420: if g_debug then
421: hr_utility.set_location('Entering '||l_procedure,1);
422: hr_utility.set_location('p_start_date '||to_char(p_start_date,'DD-MON-YYYY'),1);
423: hr_utility.set_location('p_end_date '||to_char(p_end_date,'DD-MON-YYYY'),1);
424: end if;
425: --
426: -- Check for more absence unless we have gone beyond the calculation date
427: while not l_tmp_anniversary_end_date > p_end_date
426: -- Check for more absence unless we have gone beyond the calculation date
427: while not l_tmp_anniversary_end_date > p_end_date
428: loop
429: if g_debug then
430: hr_utility.set_location(l_procedure,2);
431: end if;
432: -- initialise variable to false before we actually check absences
433: g_absences_found := false;
434: --
443: if g_absences_found then
444: l_tmp_anniversary_end_date := move_anniversary(p_person_id, p_calculation_date, p_end_date, l_tmp_anniversary_end_date);
445: else
446: if g_debug then
447: hr_utility.set_location('no absences',1);
448: end if;
449: --
450: -- exit when absence not found
451: exit;
452: end if;
453: end loop;
454: --
455: if g_debug then
456: hr_utility.set_location(l_procedure,999);
457: end if;
458: --
459: return l_tmp_anniversary_end_date;
460: end move_anniversary;
489: --
490: -- End Bug 4259438
491: --
492: begin
493: g_debug := hr_utility.debug_enabled;
494: if g_debug then
495: hr_utility.set_location(l_procedure, 0);
496: hr_utility.trace('..p_assignment_id = '||to_char(nvl(p_assignment_id,0)));
497: hr_utility.trace('..p_service_start_date = '||to_char(p_service_start_date,'DD/MM/RRRR'));
491: --
492: begin
493: g_debug := hr_utility.debug_enabled;
494: if g_debug then
495: hr_utility.set_location(l_procedure, 0);
496: hr_utility.trace('..p_assignment_id = '||to_char(nvl(p_assignment_id,0)));
497: hr_utility.trace('..p_service_start_date = '||to_char(p_service_start_date,'DD/MM/RRRR'));
498: end if;
499: --
492: begin
493: g_debug := hr_utility.debug_enabled;
494: if g_debug then
495: hr_utility.set_location(l_procedure, 0);
496: hr_utility.trace('..p_assignment_id = '||to_char(nvl(p_assignment_id,0)));
497: hr_utility.trace('..p_service_start_date = '||to_char(p_service_start_date,'DD/MM/RRRR'));
498: end if;
499: --
500: -- If the service start date is entered
493: g_debug := hr_utility.debug_enabled;
494: if g_debug then
495: hr_utility.set_location(l_procedure, 0);
496: hr_utility.trace('..p_assignment_id = '||to_char(nvl(p_assignment_id,0)));
497: hr_utility.trace('..p_service_start_date = '||to_char(p_service_start_date,'DD/MM/RRRR'));
498: end if;
499: --
500: -- If the service start date is entered
501: -- then we assume validation of dates has
515: --
516: p_anniversary_start_date := l_anniversary_start_date;
517: --
518: if g_debug then
519: hr_utility.trace('..l_anniversary_start_date = '||to_char(l_anniversary_start_date,'DD/MM/RRRR'));
520: hr_utility.set_location(l_procedure, 999);
521: end if;
522: end initialise_dates;
523: --
516: p_anniversary_start_date := l_anniversary_start_date;
517: --
518: if g_debug then
519: hr_utility.trace('..l_anniversary_start_date = '||to_char(l_anniversary_start_date,'DD/MM/RRRR'));
520: hr_utility.set_location(l_procedure, 999);
521: end if;
522: end initialise_dates;
523: --
524: --------------------------
557: begin
558: l_person_counter := 1;
559: l_counter := 1;
560: l_years_of_service := 0;
561: g_debug := hr_utility.debug_enabled;
562: if g_debug then
563: hr_utility.set_location(l_procedure, 0);
564: end if;
565: --
559: l_counter := 1;
560: l_years_of_service := 0;
561: g_debug := hr_utility.debug_enabled;
562: if g_debug then
563: hr_utility.set_location(l_procedure, 0);
564: end if;
565: --
566: open csr_person_id(p_assignment_id, p_calculation_date);
567: fetch csr_person_id into l_person_id;
567: fetch csr_person_id into l_person_id;
568: close csr_person_id;
569: --
570: if g_debug then
571: hr_utility.trace('l_person_id.=.'||to_char(l_person_id));
572: end if;
573: --
574: -- Has the information been cached?
575: -- Note: Anniversaries apply to the person... not each assignment
592: --
593: -- Anniversaries have not yet been cached
594: --
595: if g_debug then
596: hr_utility.set_location(l_procedure, 30);
597: end if;
598: --
599: -- Initialise the first anniversary
600: -- and start from there.
606: );
607: l_anniversary_end_date := l_anniversary_start_date;
608: --
609: if g_debug then
610: hr_utility.set_location(l_procedure, 40);
611: hr_utility.trace('l_anniversary_start_date..=.'||to_char(l_anniversary_start_date));
612: hr_utility.trace('p_calculation_date........=.'||to_char(p_calculation_date));
613: end if;
614: --
607: l_anniversary_end_date := l_anniversary_start_date;
608: --
609: if g_debug then
610: hr_utility.set_location(l_procedure, 40);
611: hr_utility.trace('l_anniversary_start_date..=.'||to_char(l_anniversary_start_date));
612: hr_utility.trace('p_calculation_date........=.'||to_char(p_calculation_date));
613: end if;
614: --
615: -- Initialise Person Table
608: --
609: if g_debug then
610: hr_utility.set_location(l_procedure, 40);
611: hr_utility.trace('l_anniversary_start_date..=.'||to_char(l_anniversary_start_date));
612: hr_utility.trace('p_calculation_date........=.'||to_char(p_calculation_date));
613: end if;
614: --
615: -- Initialise Person Table
616: --
622: --
623: l_person_counter := p_anniversary_table2.last + 1;
624: --
625: if g_debug then
626: hr_utility.set_location(l_procedure, 45);
627: end if;
628: end if;
629: --
630: --
658: , p_anniversary_table2(l_person_counter).anniversary_start_date
659: , p_anniversary_table2(l_person_counter).anniversary_end_date
660: );
661: if g_debug then
662: hr_utility.set_location(l_procedure, 50);
663: hr_utility.trace('........................');
664: hr_utility.trace('anniversary_start_date..=.'||to_char(p_anniversary_table2(l_person_counter).anniversary_start_date));
665: hr_utility.trace('anniversary_end_date....=.'||to_char(p_anniversary_table2(l_person_counter).anniversary_end_date));
666: hr_utility.trace('years_of_service........=.'||to_char(p_anniversary_table2(l_person_counter).years_of_service));
659: , p_anniversary_table2(l_person_counter).anniversary_end_date
660: );
661: if g_debug then
662: hr_utility.set_location(l_procedure, 50);
663: hr_utility.trace('........................');
664: hr_utility.trace('anniversary_start_date..=.'||to_char(p_anniversary_table2(l_person_counter).anniversary_start_date));
665: hr_utility.trace('anniversary_end_date....=.'||to_char(p_anniversary_table2(l_person_counter).anniversary_end_date));
666: hr_utility.trace('years_of_service........=.'||to_char(p_anniversary_table2(l_person_counter).years_of_service));
667: hr_utility.trace('........................');
660: );
661: if g_debug then
662: hr_utility.set_location(l_procedure, 50);
663: hr_utility.trace('........................');
664: hr_utility.trace('anniversary_start_date..=.'||to_char(p_anniversary_table2(l_person_counter).anniversary_start_date));
665: hr_utility.trace('anniversary_end_date....=.'||to_char(p_anniversary_table2(l_person_counter).anniversary_end_date));
666: hr_utility.trace('years_of_service........=.'||to_char(p_anniversary_table2(l_person_counter).years_of_service));
667: hr_utility.trace('........................');
668: end if;
661: if g_debug then
662: hr_utility.set_location(l_procedure, 50);
663: hr_utility.trace('........................');
664: hr_utility.trace('anniversary_start_date..=.'||to_char(p_anniversary_table2(l_person_counter).anniversary_start_date));
665: hr_utility.trace('anniversary_end_date....=.'||to_char(p_anniversary_table2(l_person_counter).anniversary_end_date));
666: hr_utility.trace('years_of_service........=.'||to_char(p_anniversary_table2(l_person_counter).years_of_service));
667: hr_utility.trace('........................');
668: end if;
669: --
662: hr_utility.set_location(l_procedure, 50);
663: hr_utility.trace('........................');
664: hr_utility.trace('anniversary_start_date..=.'||to_char(p_anniversary_table2(l_person_counter).anniversary_start_date));
665: hr_utility.trace('anniversary_end_date....=.'||to_char(p_anniversary_table2(l_person_counter).anniversary_end_date));
666: hr_utility.trace('years_of_service........=.'||to_char(p_anniversary_table2(l_person_counter).years_of_service));
667: hr_utility.trace('........................');
668: end if;
669: --
670: -- Has the next anniversary been moved after the calculation date
663: hr_utility.trace('........................');
664: hr_utility.trace('anniversary_start_date..=.'||to_char(p_anniversary_table2(l_person_counter).anniversary_start_date));
665: hr_utility.trace('anniversary_end_date....=.'||to_char(p_anniversary_table2(l_person_counter).anniversary_end_date));
666: hr_utility.trace('years_of_service........=.'||to_char(p_anniversary_table2(l_person_counter).years_of_service));
667: hr_utility.trace('........................');
668: end if;
669: --
670: -- Has the next anniversary been moved after the calculation date
671: if l_anniversary_end_date > p_calculation_date then
669: --
670: -- Has the next anniversary been moved after the calculation date
671: if l_anniversary_end_date > p_calculation_date then
672: if g_debug then
673: hr_utility.set_location(l_procedure, 60);
674: end if;
675: exit;
676: end if;
677: l_anniversary_start_date := p_anniversary_table2(l_person_counter).anniversary_start_date;
688: l_counter := l_counter + 1;
689: l_person_counter := l_person_counter + 1;
690: --
691: if g_debug then
692: hr_utility.set_location(l_procedure, 70);
693: end if;
694: --
695: end loop;
696: p_anniversary_start_date := l_anniversary_start_date;
719: -- Information has been cached
720: -- so we retrieve it from the cache
721: --
722: if g_debug then
723: hr_utility.set_location(l_procedure||' CACHE', 10);
724: end if;
725: --
726: -- looking for where the calculation_date is between ann_start and ann_end
727: -- for the given person
732: ((p_calculation_date < p_anniversary_table2(x).anniversary_end_date)
733: or (p_calculation_date = p_anniversary_table2(x).anniversary_end_date))
734: then
735: if g_debug then
736: hr_utility.set_location(l_procedure||' CACHE', 20);
737: end if;
738: p_anniversary_start_date := p_anniversary_table2(x).anniversary_start_date;
739: p_anniversary_end_date := p_anniversary_table2(x).anniversary_end_date;
740: p_years_of_service := p_anniversary_table2(x).years_of_service;
738: p_anniversary_start_date := p_anniversary_table2(x).anniversary_start_date;
739: p_anniversary_end_date := p_anniversary_table2(x).anniversary_end_date;
740: p_years_of_service := p_anniversary_table2(x).years_of_service;
741: if g_debug then
742: hr_utility.set_location('p_anniversary_start_date = '||to_char(p_anniversary_start_date,'DD-MON-YYYY'), 20);
743: hr_utility.set_location('p_anniversary_end_date.. = '||to_char(p_anniversary_end_date,'DD-MON-YYYY'), 20);
744: hr_utility.set_location('p_years_of_service...... = '||to_char(p_years_of_service), 20);
745: end if;
746: --
739: p_anniversary_end_date := p_anniversary_table2(x).anniversary_end_date;
740: p_years_of_service := p_anniversary_table2(x).years_of_service;
741: if g_debug then
742: hr_utility.set_location('p_anniversary_start_date = '||to_char(p_anniversary_start_date,'DD-MON-YYYY'), 20);
743: hr_utility.set_location('p_anniversary_end_date.. = '||to_char(p_anniversary_end_date,'DD-MON-YYYY'), 20);
744: hr_utility.set_location('p_years_of_service...... = '||to_char(p_years_of_service), 20);
745: end if;
746: --
747: -- Exit loop so that the counter is not incremented
740: p_years_of_service := p_anniversary_table2(x).years_of_service;
741: if g_debug then
742: hr_utility.set_location('p_anniversary_start_date = '||to_char(p_anniversary_start_date,'DD-MON-YYYY'), 20);
743: hr_utility.set_location('p_anniversary_end_date.. = '||to_char(p_anniversary_end_date,'DD-MON-YYYY'), 20);
744: hr_utility.set_location('p_years_of_service...... = '||to_char(p_years_of_service), 20);
745: end if;
746: --
747: -- Exit loop so that the counter is not incremented
748: --
753: --
754: end if;
755: --
756: if g_debug then
757: hr_utility.set_location(l_procedure,999);
758: end if;
759: --
760: return 0;
761: --
782: l_days_unpaid number;
783: l_procedure constant varchar2(60) := g_package||'calculate_daily_accrual';
784: --
785: begin
786: g_debug := hr_utility.debug_enabled;
787: if g_debug then
788: hr_utility.set_location(l_procedure, 0);
789: hr_utility.trace('p_start_date = '||to_char(p_start_date,'DD-MON-YYYY'));
790: hr_utility.trace('p_end_date...= '||to_char(p_end_date,'DD-MON-YYYY'));
784: --
785: begin
786: g_debug := hr_utility.debug_enabled;
787: if g_debug then
788: hr_utility.set_location(l_procedure, 0);
789: hr_utility.trace('p_start_date = '||to_char(p_start_date,'DD-MON-YYYY'));
790: hr_utility.trace('p_end_date...= '||to_char(p_end_date,'DD-MON-YYYY'));
791: end if;
792: --
785: begin
786: g_debug := hr_utility.debug_enabled;
787: if g_debug then
788: hr_utility.set_location(l_procedure, 0);
789: hr_utility.trace('p_start_date = '||to_char(p_start_date,'DD-MON-YYYY'));
790: hr_utility.trace('p_end_date...= '||to_char(p_end_date,'DD-MON-YYYY'));
791: end if;
792: --
793: -- 1.
786: g_debug := hr_utility.debug_enabled;
787: if g_debug then
788: hr_utility.set_location(l_procedure, 0);
789: hr_utility.trace('p_start_date = '||to_char(p_start_date,'DD-MON-YYYY'));
790: hr_utility.trace('p_end_date...= '||to_char(p_end_date,'DD-MON-YYYY'));
791: end if;
792: --
793: -- 1.
794: -- Get the number of days between start and end
813: -- we need the multiplication by work week
814: l_daily_accrual := (p_annual_accrual * p_work_week)/l_days_total;
815:
816: if g_debug then
817: hr_utility.trace('l_days...........= '||to_char(l_days));
818: hr_utility.trace('l_days_unpaid....= '||to_char(l_days_unpaid));
819: hr_utility.trace('l_days_total.....= '||to_char(l_days_total));
820: hr_utility.trace('l_daily_accrual..= '||to_char(l_daily_accrual));
821: end if;
814: l_daily_accrual := (p_annual_accrual * p_work_week)/l_days_total;
815:
816: if g_debug then
817: hr_utility.trace('l_days...........= '||to_char(l_days));
818: hr_utility.trace('l_days_unpaid....= '||to_char(l_days_unpaid));
819: hr_utility.trace('l_days_total.....= '||to_char(l_days_total));
820: hr_utility.trace('l_daily_accrual..= '||to_char(l_daily_accrual));
821: end if;
822: --
815:
816: if g_debug then
817: hr_utility.trace('l_days...........= '||to_char(l_days));
818: hr_utility.trace('l_days_unpaid....= '||to_char(l_days_unpaid));
819: hr_utility.trace('l_days_total.....= '||to_char(l_days_total));
820: hr_utility.trace('l_daily_accrual..= '||to_char(l_daily_accrual));
821: end if;
822: --
823: if g_debug then
816: if g_debug then
817: hr_utility.trace('l_days...........= '||to_char(l_days));
818: hr_utility.trace('l_days_unpaid....= '||to_char(l_days_unpaid));
819: hr_utility.trace('l_days_total.....= '||to_char(l_days_total));
820: hr_utility.trace('l_daily_accrual..= '||to_char(l_daily_accrual));
821: end if;
822: --
823: if g_debug then
824: hr_utility.set_location(l_procedure, 999);
820: hr_utility.trace('l_daily_accrual..= '||to_char(l_daily_accrual));
821: end if;
822: --
823: if g_debug then
824: hr_utility.set_location(l_procedure, 999);
825: end if;
826: --
827: return l_daily_accrual;
828: --
866: and p_current_day between ptp.start_date and ptp.end_date;
867: --
868: begin
869: l_use_asg_hours := 'N';
870: g_debug := hr_utility.debug_enabled;
871: if g_debug then
872: hr_utility.set_location(l_procedure, 0);
873: hr_utility.trace('p_assignment_id = '||to_char(p_assignment_id));
874: hr_utility.trace('p_current_day.. = '||to_char(p_current_day,'DD-MON-YYYY'));
868: begin
869: l_use_asg_hours := 'N';
870: g_debug := hr_utility.debug_enabled;
871: if g_debug then
872: hr_utility.set_location(l_procedure, 0);
873: hr_utility.trace('p_assignment_id = '||to_char(p_assignment_id));
874: hr_utility.trace('p_current_day.. = '||to_char(p_current_day,'DD-MON-YYYY'));
875: end if;
876: --
869: l_use_asg_hours := 'N';
870: g_debug := hr_utility.debug_enabled;
871: if g_debug then
872: hr_utility.set_location(l_procedure, 0);
873: hr_utility.trace('p_assignment_id = '||to_char(p_assignment_id));
874: hr_utility.trace('p_current_day.. = '||to_char(p_current_day,'DD-MON-YYYY'));
875: end if;
876: --
877: -- Check how to calculate accrual
870: g_debug := hr_utility.debug_enabled;
871: if g_debug then
872: hr_utility.set_location(l_procedure, 0);
873: hr_utility.trace('p_assignment_id = '||to_char(p_assignment_id));
874: hr_utility.trace('p_current_day.. = '||to_char(p_current_day,'DD-MON-YYYY'));
875: end if;
876: --
877: -- Check how to calculate accrual
878: --
880: fetch csr_use_asg_hours into l_use_asg_hours;
881: close csr_use_asg_hours;
882: --
883: if g_debug then
884: hr_utility.trace('l_use_asg_hours = '||l_use_asg_hours);
885: end if;
886:
887: if l_use_asg_hours = 'Y' then
888: --
896: ELSE
897: open csr_asg_hours(p_current_day);
898: fetch csr_asg_hours into l_work_week, l_work_frequency;
899: if csr_asg_hours%notfound then
900: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
901: hr_utility.raise_error;
902: end if;
903: close csr_asg_hours;
904: END IF;
897: open csr_asg_hours(p_current_day);
898: fetch csr_asg_hours into l_work_week, l_work_frequency;
899: if csr_asg_hours%notfound then
900: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
901: hr_utility.raise_error;
902: end if;
903: close csr_asg_hours;
904: END IF;
905: --
905: --
906: -- ASG_FREQ must be Week
907: --
908: if l_work_frequency <> 'W' then
909: hr_utility.set_message(801,'HR_NZ_BAD_WORKING_FREQ');
910: hr_utility.raise_error;
911: end if;
912: --
913: -- Validate date to use work week from ASG_HOURS
906: -- ASG_FREQ must be Week
907: --
908: if l_work_frequency <> 'W' then
909: hr_utility.set_message(801,'HR_NZ_BAD_WORKING_FREQ');
910: hr_utility.raise_error;
911: end if;
912: --
913: -- Validate date to use work week from ASG_HOURS
914: -- Note: this can only be used to accrue in HOURS
916: -- matches this.
917: --
918: if ((l_work_week is not null) or (l_work_week = 0)) then
919: if g_debug then
920: hr_utility.set_location(l_procedure,20);
921: hr_utility.trace('l_work_week comes from ASG_HOURS');
922: hr_utility.trace('l_work_week = '||to_char(l_work_week));
923: hr_utility.trace('p_uom.......= '||p_uom);
924: end if;
917: --
918: if ((l_work_week is not null) or (l_work_week = 0)) then
919: if g_debug then
920: hr_utility.set_location(l_procedure,20);
921: hr_utility.trace('l_work_week comes from ASG_HOURS');
922: hr_utility.trace('l_work_week = '||to_char(l_work_week));
923: hr_utility.trace('p_uom.......= '||p_uom);
924: end if;
925: --
918: if ((l_work_week is not null) or (l_work_week = 0)) then
919: if g_debug then
920: hr_utility.set_location(l_procedure,20);
921: hr_utility.trace('l_work_week comes from ASG_HOURS');
922: hr_utility.trace('l_work_week = '||to_char(l_work_week));
923: hr_utility.trace('p_uom.......= '||p_uom);
924: end if;
925: --
926: else
919: if g_debug then
920: hr_utility.set_location(l_procedure,20);
921: hr_utility.trace('l_work_week comes from ASG_HOURS');
922: hr_utility.trace('l_work_week = '||to_char(l_work_week));
923: hr_utility.trace('p_uom.......= '||p_uom);
924: end if;
925: --
926: else
927: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
923: hr_utility.trace('p_uom.......= '||p_uom);
924: end if;
925: --
926: else
927: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
928: hr_utility.raise_error;
929: end if;
930: --
931: else
924: end if;
925: --
926: else
927: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
928: hr_utility.raise_error;
929: end if;
930: --
931: else
932: --
934: -- Work week is not determined from ASG_HOURS
935: --------------------------------------------
936: --
937: if g_debug then
938: hr_utility.set_location(l_procedure,35);
939: end if;
940: --
941: l_work_week := get_standard_work_week(p_assignment_id => p_assignment_id, p_effective_date => p_current_day);
942: --
958:
959: l_work_week := l_working_time / l_weeks_in_period;
960:
961: if g_debug then
962: hr_utility.set_location(l_procedure,40);
963: hr_utility.trace('..l_work_week comes from DAYS_OR_HOURS_WORKED');
964: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
965: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
966: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
959: l_work_week := l_working_time / l_weeks_in_period;
960:
961: if g_debug then
962: hr_utility.set_location(l_procedure,40);
963: hr_utility.trace('..l_work_week comes from DAYS_OR_HOURS_WORKED');
964: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
965: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
966: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
967: hr_utility.trace('..p_annual_accrual = '||to_char(p_annual_accrual));
960:
961: if g_debug then
962: hr_utility.set_location(l_procedure,40);
963: hr_utility.trace('..l_work_week comes from DAYS_OR_HOURS_WORKED');
964: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
965: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
966: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
967: hr_utility.trace('..p_annual_accrual = '||to_char(p_annual_accrual));
968: hr_utility.trace('..l_days_in_period = '||to_char(l_days_in_period));
961: if g_debug then
962: hr_utility.set_location(l_procedure,40);
963: hr_utility.trace('..l_work_week comes from DAYS_OR_HOURS_WORKED');
964: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
965: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
966: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
967: hr_utility.trace('..p_annual_accrual = '||to_char(p_annual_accrual));
968: hr_utility.trace('..l_days_in_period = '||to_char(l_days_in_period));
969: end if;
962: hr_utility.set_location(l_procedure,40);
963: hr_utility.trace('..l_work_week comes from DAYS_OR_HOURS_WORKED');
964: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
965: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
966: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
967: hr_utility.trace('..p_annual_accrual = '||to_char(p_annual_accrual));
968: hr_utility.trace('..l_days_in_period = '||to_char(l_days_in_period));
969: end if;
970:
963: hr_utility.trace('..l_work_week comes from DAYS_OR_HOURS_WORKED');
964: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
965: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
966: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
967: hr_utility.trace('..p_annual_accrual = '||to_char(p_annual_accrual));
968: hr_utility.trace('..l_days_in_period = '||to_char(l_days_in_period));
969: end if;
970:
971: end if;
964: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
965: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
966: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
967: hr_utility.trace('..p_annual_accrual = '||to_char(p_annual_accrual));
968: hr_utility.trace('..l_days_in_period = '||to_char(l_days_in_period));
969: end if;
970:
971: end if;
972: --
973: end if;
974: --
975: --
976: if g_debug then
977: hr_utility.set_location(l_procedure, 999);
978: end if;
979: --
980: return l_work_week;
981: end determine_work_week;
1059: and p_current_day between ptp.start_date and ptp.end_date;
1060: --
1061: begin
1062: l_use_asg_hours := 'N';
1063: g_debug := hr_utility.debug_enabled;
1064: if g_debug then
1065: hr_utility.set_location(l_procedure, 0);
1066: hr_utility.trace('p_assignment_id = '||to_char(p_assignment_id));
1067: hr_utility.trace('p_current_day.. = '||to_char(p_current_day,'DD-MON-YYYY'));
1061: begin
1062: l_use_asg_hours := 'N';
1063: g_debug := hr_utility.debug_enabled;
1064: if g_debug then
1065: hr_utility.set_location(l_procedure, 0);
1066: hr_utility.trace('p_assignment_id = '||to_char(p_assignment_id));
1067: hr_utility.trace('p_current_day.. = '||to_char(p_current_day,'DD-MON-YYYY'));
1068: end if;
1069: --
1062: l_use_asg_hours := 'N';
1063: g_debug := hr_utility.debug_enabled;
1064: if g_debug then
1065: hr_utility.set_location(l_procedure, 0);
1066: hr_utility.trace('p_assignment_id = '||to_char(p_assignment_id));
1067: hr_utility.trace('p_current_day.. = '||to_char(p_current_day,'DD-MON-YYYY'));
1068: end if;
1069: --
1070: -- Check how to calculate accrual
1063: g_debug := hr_utility.debug_enabled;
1064: if g_debug then
1065: hr_utility.set_location(l_procedure, 0);
1066: hr_utility.trace('p_assignment_id = '||to_char(p_assignment_id));
1067: hr_utility.trace('p_current_day.. = '||to_char(p_current_day,'DD-MON-YYYY'));
1068: end if;
1069: --
1070: -- Check how to calculate accrual
1071: --
1073: fetch csr_use_asg_hours into l_use_asg_hours;
1074: close csr_use_asg_hours;
1075: --
1076: if g_debug then
1077: hr_utility.trace('l_use_asg_hours = '||l_use_asg_hours);
1078: end if;
1079:
1080: if l_use_asg_hours = 'Y' then
1081: --
1085: --
1086: open csr_asg_hours(p_current_day);
1087: fetch csr_asg_hours into l_work_week, l_work_frequency;
1088: if csr_asg_hours%notfound then
1089: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
1090: hr_utility.raise_error;
1091: end if;
1092: close csr_asg_hours;
1093: --
1086: open csr_asg_hours(p_current_day);
1087: fetch csr_asg_hours into l_work_week, l_work_frequency;
1088: if csr_asg_hours%notfound then
1089: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
1090: hr_utility.raise_error;
1091: end if;
1092: close csr_asg_hours;
1093: --
1094: -- ASG_FREQ must be Week
1093: --
1094: -- ASG_FREQ must be Week
1095: --
1096: if l_work_frequency <> 'W' then
1097: hr_utility.set_message(801,'HR_NZ_BAD_WORKING_FREQ');
1098: hr_utility.raise_error;
1099: end if;
1100: --
1101: -- Validate date to use work week from ASG_HOURS
1094: -- ASG_FREQ must be Week
1095: --
1096: if l_work_frequency <> 'W' then
1097: hr_utility.set_message(801,'HR_NZ_BAD_WORKING_FREQ');
1098: hr_utility.raise_error;
1099: end if;
1100: --
1101: -- Validate date to use work week from ASG_HOURS
1102: -- Note: this can only be used to accrue in HOURS
1104: -- matches this.
1105: --
1106: if ((l_work_week is not null) or (l_work_week = 0)) then
1107: if g_debug then
1108: hr_utility.set_location(l_procedure,20);
1109: hr_utility.trace('l_work_week comes from ASG_HOURS');
1110: hr_utility.trace('l_work_week = '||to_char(l_work_week));
1111: hr_utility.trace('p_uom.......= '||p_uom);
1112: end if;
1105: --
1106: if ((l_work_week is not null) or (l_work_week = 0)) then
1107: if g_debug then
1108: hr_utility.set_location(l_procedure,20);
1109: hr_utility.trace('l_work_week comes from ASG_HOURS');
1110: hr_utility.trace('l_work_week = '||to_char(l_work_week));
1111: hr_utility.trace('p_uom.......= '||p_uom);
1112: end if;
1113: --
1106: if ((l_work_week is not null) or (l_work_week = 0)) then
1107: if g_debug then
1108: hr_utility.set_location(l_procedure,20);
1109: hr_utility.trace('l_work_week comes from ASG_HOURS');
1110: hr_utility.trace('l_work_week = '||to_char(l_work_week));
1111: hr_utility.trace('p_uom.......= '||p_uom);
1112: end if;
1113: --
1114: else
1107: if g_debug then
1108: hr_utility.set_location(l_procedure,20);
1109: hr_utility.trace('l_work_week comes from ASG_HOURS');
1110: hr_utility.trace('l_work_week = '||to_char(l_work_week));
1111: hr_utility.trace('p_uom.......= '||p_uom);
1112: end if;
1113: --
1114: else
1115: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
1111: hr_utility.trace('p_uom.......= '||p_uom);
1112: end if;
1113: --
1114: else
1115: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
1116: hr_utility.raise_error;
1117: end if;
1118: --
1119: else
1112: end if;
1113: --
1114: else
1115: hr_utility.set_message(801,'HR_NZ_WORKING_HRS_MISSING');
1116: hr_utility.raise_error;
1117: end if;
1118: --
1119: else
1120: --
1122: -- Work week is not determined from ASG_HOURS
1123: --------------------------------------------
1124: --
1125: if g_debug then
1126: hr_utility.set_location(l_procedure,35);
1127: end if;
1128: --
1129: l_work_week := get_standard_work_week(p_assignment_id => p_assignment_id, p_effective_date => p_current_day);
1130: --
1146:
1147: l_work_week := l_working_time / l_weeks_in_period;
1148:
1149: if g_debug then
1150: hr_utility.set_location(l_procedure,40);
1151: hr_utility.trace('..l_work_week comes from DAYS_OR_HOURS_WORKED');
1152: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
1153: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
1154: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
1147: l_work_week := l_working_time / l_weeks_in_period;
1148:
1149: if g_debug then
1150: hr_utility.set_location(l_procedure,40);
1151: hr_utility.trace('..l_work_week comes from DAYS_OR_HOURS_WORKED');
1152: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
1153: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
1154: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
1155: hr_utility.trace('..p_annual_accrual = '||to_char(p_annual_accrual));
1148:
1149: if g_debug then
1150: hr_utility.set_location(l_procedure,40);
1151: hr_utility.trace('..l_work_week comes from DAYS_OR_HOURS_WORKED');
1152: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
1153: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
1154: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
1155: hr_utility.trace('..p_annual_accrual = '||to_char(p_annual_accrual));
1156: hr_utility.trace('..l_days_in_period = '||to_char(l_days_in_period));
1149: if g_debug then
1150: hr_utility.set_location(l_procedure,40);
1151: hr_utility.trace('..l_work_week comes from DAYS_OR_HOURS_WORKED');
1152: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
1153: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
1154: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
1155: hr_utility.trace('..p_annual_accrual = '||to_char(p_annual_accrual));
1156: hr_utility.trace('..l_days_in_period = '||to_char(l_days_in_period));
1157: end if;
1150: hr_utility.set_location(l_procedure,40);
1151: hr_utility.trace('..l_work_week comes from DAYS_OR_HOURS_WORKED');
1152: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
1153: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
1154: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
1155: hr_utility.trace('..p_annual_accrual = '||to_char(p_annual_accrual));
1156: hr_utility.trace('..l_days_in_period = '||to_char(l_days_in_period));
1157: end if;
1158:
1151: hr_utility.trace('..l_work_week comes from DAYS_OR_HOURS_WORKED');
1152: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
1153: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
1154: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
1155: hr_utility.trace('..p_annual_accrual = '||to_char(p_annual_accrual));
1156: hr_utility.trace('..l_days_in_period = '||to_char(l_days_in_period));
1157: end if;
1158:
1159: end if;
1152: hr_utility.trace('..l_work_week = '||to_char(l_work_week));
1153: hr_utility.trace('..l_working_time = '||to_char(l_working_time));
1154: hr_utility.trace('..l_weeks_in_period = '||to_char(l_weeks_in_period));
1155: hr_utility.trace('..p_annual_accrual = '||to_char(p_annual_accrual));
1156: hr_utility.trace('..l_days_in_period = '||to_char(l_days_in_period));
1157: end if;
1158:
1159: end if;
1160: --
1161: end if;
1162: --
1163: --
1164: if g_debug then
1165: hr_utility.set_location(l_procedure, 999);
1166: end if;
1167: --
1168: return l_work_week;
1169: end determine_work_week;
1284: l_work_week := 0;
1285: l_period_accrual := 0;
1286: l_is_leap_year:=0;
1287:
1288: g_debug := hr_utility.debug_enabled;
1289: if g_debug then
1290: hr_utility.set_location(l_procedure, 0);
1291: hr_utility.set_location('p_payroll_id......= '||to_char(p_payroll_id),1);
1292: hr_utility.set_location('p_assignment_id...= '||to_char(p_assignment_id),1);
1286: l_is_leap_year:=0;
1287:
1288: g_debug := hr_utility.debug_enabled;
1289: if g_debug then
1290: hr_utility.set_location(l_procedure, 0);
1291: hr_utility.set_location('p_payroll_id......= '||to_char(p_payroll_id),1);
1292: hr_utility.set_location('p_assignment_id...= '||to_char(p_assignment_id),1);
1293: hr_utility.set_location('p_accrual_plan_id.= '||to_char(p_accrual_plan_id),1);
1294: hr_utility.set_location('p_start_date......= '||to_char(p_start_date,'DD-MON-YYYY'),1);
1287:
1288: g_debug := hr_utility.debug_enabled;
1289: if g_debug then
1290: hr_utility.set_location(l_procedure, 0);
1291: hr_utility.set_location('p_payroll_id......= '||to_char(p_payroll_id),1);
1292: hr_utility.set_location('p_assignment_id...= '||to_char(p_assignment_id),1);
1293: hr_utility.set_location('p_accrual_plan_id.= '||to_char(p_accrual_plan_id),1);
1294: hr_utility.set_location('p_start_date......= '||to_char(p_start_date,'DD-MON-YYYY'),1);
1295: hr_utility.set_location('p_end_date........= '||to_char(p_end_date,'DD-MON-YYYY'),1);
1288: g_debug := hr_utility.debug_enabled;
1289: if g_debug then
1290: hr_utility.set_location(l_procedure, 0);
1291: hr_utility.set_location('p_payroll_id......= '||to_char(p_payroll_id),1);
1292: hr_utility.set_location('p_assignment_id...= '||to_char(p_assignment_id),1);
1293: hr_utility.set_location('p_accrual_plan_id.= '||to_char(p_accrual_plan_id),1);
1294: hr_utility.set_location('p_start_date......= '||to_char(p_start_date,'DD-MON-YYYY'),1);
1295: hr_utility.set_location('p_end_date........= '||to_char(p_end_date,'DD-MON-YYYY'),1);
1296: end if;
1289: if g_debug then
1290: hr_utility.set_location(l_procedure, 0);
1291: hr_utility.set_location('p_payroll_id......= '||to_char(p_payroll_id),1);
1292: hr_utility.set_location('p_assignment_id...= '||to_char(p_assignment_id),1);
1293: hr_utility.set_location('p_accrual_plan_id.= '||to_char(p_accrual_plan_id),1);
1294: hr_utility.set_location('p_start_date......= '||to_char(p_start_date,'DD-MON-YYYY'),1);
1295: hr_utility.set_location('p_end_date........= '||to_char(p_end_date,'DD-MON-YYYY'),1);
1296: end if;
1297: --l_period_accrual := 0;
1290: hr_utility.set_location(l_procedure, 0);
1291: hr_utility.set_location('p_payroll_id......= '||to_char(p_payroll_id),1);
1292: hr_utility.set_location('p_assignment_id...= '||to_char(p_assignment_id),1);
1293: hr_utility.set_location('p_accrual_plan_id.= '||to_char(p_accrual_plan_id),1);
1294: hr_utility.set_location('p_start_date......= '||to_char(p_start_date,'DD-MON-YYYY'),1);
1295: hr_utility.set_location('p_end_date........= '||to_char(p_end_date,'DD-MON-YYYY'),1);
1296: end if;
1297: --l_period_accrual := 0;
1298: --
1291: hr_utility.set_location('p_payroll_id......= '||to_char(p_payroll_id),1);
1292: hr_utility.set_location('p_assignment_id...= '||to_char(p_assignment_id),1);
1293: hr_utility.set_location('p_accrual_plan_id.= '||to_char(p_accrual_plan_id),1);
1294: hr_utility.set_location('p_start_date......= '||to_char(p_start_date,'DD-MON-YYYY'),1);
1295: hr_utility.set_location('p_end_date........= '||to_char(p_end_date,'DD-MON-YYYY'),1);
1296: end if;
1297: --l_period_accrual := 0;
1298: --
1299: -- Loop thru each day of the period given
1303: --
1304: loop
1305: exit when l_current_day > p_end_date;
1306: if g_debug then
1307: hr_utility.set_location(l_procedure,5);
1308: hr_utility.trace('l_current_day = '||to_char(l_current_day,'DD-MON-YYYY'));
1309: end if;
1310: --
1311: -- Is this day eligible to accrue Annual Leave
1304: loop
1305: exit when l_current_day > p_end_date;
1306: if g_debug then
1307: hr_utility.set_location(l_procedure,5);
1308: hr_utility.trace('l_current_day = '||to_char(l_current_day,'DD-MON-YYYY'));
1309: end if;
1310: --
1311: -- Is this day eligible to accrue Annual Leave
1312: --
1385: ,p_years_of_service => l_years_of_service
1386: );
1387: --
1388: if g_debug then
1389: hr_utility.set_location(l_procedure,10);
1390: hr_utility.trace('l_anniversary_start_date = '||to_char(l_anniversary_start_date,'DD-MON-YYYY'));
1391: hr_utility.trace('l_anniversary_end_date...= '||to_char(l_anniversary_end_date,'DD-MON-YYYY'));
1392: end if;
1393: --
1386: );
1387: --
1388: if g_debug then
1389: hr_utility.set_location(l_procedure,10);
1390: hr_utility.trace('l_anniversary_start_date = '||to_char(l_anniversary_start_date,'DD-MON-YYYY'));
1391: hr_utility.trace('l_anniversary_end_date...= '||to_char(l_anniversary_end_date,'DD-MON-YYYY'));
1392: end if;
1393: --
1394: end if;
1387: --
1388: if g_debug then
1389: hr_utility.set_location(l_procedure,10);
1390: hr_utility.trace('l_anniversary_start_date = '||to_char(l_anniversary_start_date,'DD-MON-YYYY'));
1391: hr_utility.trace('l_anniversary_end_date...= '||to_char(l_anniversary_end_date,'DD-MON-YYYY'));
1392: end if;
1393: --
1394: end if;
1395: --
1400: --
1401: -- Now get the accrual band for this day
1402: --
1403: if g_debug then
1404: hr_utility.set_location(l_procedure,23);
1405: hr_utility.trace('l_uom...... ='||l_uom);
1406: end if;
1407: --
1408: open csr_get_accrual_band(l_years_of_service, p_accrual_plan_id);
1401: -- Now get the accrual band for this day
1402: --
1403: if g_debug then
1404: hr_utility.set_location(l_procedure,23);
1405: hr_utility.trace('l_uom...... ='||l_uom);
1406: end if;
1407: --
1408: open csr_get_accrual_band(l_years_of_service, p_accrual_plan_id);
1409: fetch csr_get_accrual_band into l_annual_accrual, l_uom;
1425: ,p_freq => l_tmp_freq
1426: ),0);
1427: --
1428: if g_debug then
1429: hr_utility.set_location(l_procedure,30);
1430: hr_utility.trace('l_work_week ='||to_char(l_work_week));
1431: end if;
1432: --
1433: l_temp_leap_year:=l_is_leap_year;
1426: ),0);
1427: --
1428: if g_debug then
1429: hr_utility.set_location(l_procedure,30);
1430: hr_utility.trace('l_work_week ='||to_char(l_work_week));
1431: end if;
1432: --
1433: l_temp_leap_year:=l_is_leap_year;
1434: l_is_leap_year:=is_leap_year(l_anniversary_start_date,l_anniversary_end_date);
1447: END IF;
1448: --
1449: l_period_accrual := l_period_accrual + l_daily_accrual;
1450: if g_debug then
1451: hr_utility.set_location(l_procedure,40);
1452: hr_utility.trace('...l_period_accrual = '||to_char(l_period_accrual));
1453: end if;
1454: end if;
1455: --
1448: --
1449: l_period_accrual := l_period_accrual + l_daily_accrual;
1450: if g_debug then
1451: hr_utility.set_location(l_procedure,40);
1452: hr_utility.trace('...l_period_accrual = '||to_char(l_period_accrual));
1453: end if;
1454: end if;
1455: --
1456: l_current_day := l_current_day + 1;
1456: l_current_day := l_current_day + 1;
1457: end loop;
1458: --
1459: if g_debug then
1460: hr_utility.set_location(l_procedure, 999);
1461: end if;
1462: --
1463: return nvl(l_period_accrual,0);
1464: --
1480: l_percentage number;
1481: l_procedure constant varchar2(60) := g_package||'get_annual_leave_percentage';
1482: --
1483: begin
1484: g_debug := hr_utility.debug_enabled;
1485: if g_debug then
1486: hr_utility.set_location(l_procedure, 0);
1487: end if;
1488: --
1482: --
1483: begin
1484: g_debug := hr_utility.debug_enabled;
1485: if g_debug then
1486: hr_utility.set_location(l_procedure, 0);
1487: end if;
1488: --
1489: open csr_percentage(p_accrual_plan_id);
1490: fetch csr_percentage into l_percentage;
1493: end if;
1494: close csr_percentage;
1495: --
1496: if g_debug then
1497: hr_utility.set_location(l_procedure, 999);
1498: end if;
1499: --
1500: return l_percentage;
1501: --
1526: l_average_weekly_rate number;
1527: --
1528:
1529: begin
1530: g_debug := hr_utility.debug_enabled;
1531: --
1532: if g_debug then
1533: hr_utility.set_location(l_procedure, 0);
1534: hr_utility.trace('...p_ordinary_rate = '||to_char(p_ordinary_rate));
1529: begin
1530: g_debug := hr_utility.debug_enabled;
1531: --
1532: if g_debug then
1533: hr_utility.set_location(l_procedure, 0);
1534: hr_utility.trace('...p_ordinary_rate = '||to_char(p_ordinary_rate));
1535: hr_utility.trace('...p_earnings_prev_12mths = '||to_char(p_earnings_prev_12mths));
1536: hr_utility.trace('...p_time_worked_prev_12mths = '||to_char(p_time_worked_prev_12mths));
1537: hr_utility.trace('...p_work_week = '||to_char(p_work_week));
1530: g_debug := hr_utility.debug_enabled;
1531: --
1532: if g_debug then
1533: hr_utility.set_location(l_procedure, 0);
1534: hr_utility.trace('...p_ordinary_rate = '||to_char(p_ordinary_rate));
1535: hr_utility.trace('...p_earnings_prev_12mths = '||to_char(p_earnings_prev_12mths));
1536: hr_utility.trace('...p_time_worked_prev_12mths = '||to_char(p_time_worked_prev_12mths));
1537: hr_utility.trace('...p_work_week = '||to_char(p_work_week));
1538: hr_utility.trace('...p_period_start_date = '||to_char(p_period_start_date,'DD/MM/RRRR'));
1531: --
1532: if g_debug then
1533: hr_utility.set_location(l_procedure, 0);
1534: hr_utility.trace('...p_ordinary_rate = '||to_char(p_ordinary_rate));
1535: hr_utility.trace('...p_earnings_prev_12mths = '||to_char(p_earnings_prev_12mths));
1536: hr_utility.trace('...p_time_worked_prev_12mths = '||to_char(p_time_worked_prev_12mths));
1537: hr_utility.trace('...p_work_week = '||to_char(p_work_week));
1538: hr_utility.trace('...p_period_start_date = '||to_char(p_period_start_date,'DD/MM/RRRR'));
1539: hr_utility.trace('...p_period_end_date = '||to_char(p_period_end_date,'DD/MM/RRRR'));
1532: if g_debug then
1533: hr_utility.set_location(l_procedure, 0);
1534: hr_utility.trace('...p_ordinary_rate = '||to_char(p_ordinary_rate));
1535: hr_utility.trace('...p_earnings_prev_12mths = '||to_char(p_earnings_prev_12mths));
1536: hr_utility.trace('...p_time_worked_prev_12mths = '||to_char(p_time_worked_prev_12mths));
1537: hr_utility.trace('...p_work_week = '||to_char(p_work_week));
1538: hr_utility.trace('...p_period_start_date = '||to_char(p_period_start_date,'DD/MM/RRRR'));
1539: hr_utility.trace('...p_period_end_date = '||to_char(p_period_end_date,'DD/MM/RRRR'));
1540: hr_utility.trace('...p_hire_date = '||to_char(p_hire_date,'DD/MM/RRRR'));
1533: hr_utility.set_location(l_procedure, 0);
1534: hr_utility.trace('...p_ordinary_rate = '||to_char(p_ordinary_rate));
1535: hr_utility.trace('...p_earnings_prev_12mths = '||to_char(p_earnings_prev_12mths));
1536: hr_utility.trace('...p_time_worked_prev_12mths = '||to_char(p_time_worked_prev_12mths));
1537: hr_utility.trace('...p_work_week = '||to_char(p_work_week));
1538: hr_utility.trace('...p_period_start_date = '||to_char(p_period_start_date,'DD/MM/RRRR'));
1539: hr_utility.trace('...p_period_end_date = '||to_char(p_period_end_date,'DD/MM/RRRR'));
1540: hr_utility.trace('...p_hire_date = '||to_char(p_hire_date,'DD/MM/RRRR'));
1541: end if;
1534: hr_utility.trace('...p_ordinary_rate = '||to_char(p_ordinary_rate));
1535: hr_utility.trace('...p_earnings_prev_12mths = '||to_char(p_earnings_prev_12mths));
1536: hr_utility.trace('...p_time_worked_prev_12mths = '||to_char(p_time_worked_prev_12mths));
1537: hr_utility.trace('...p_work_week = '||to_char(p_work_week));
1538: hr_utility.trace('...p_period_start_date = '||to_char(p_period_start_date,'DD/MM/RRRR'));
1539: hr_utility.trace('...p_period_end_date = '||to_char(p_period_end_date,'DD/MM/RRRR'));
1540: hr_utility.trace('...p_hire_date = '||to_char(p_hire_date,'DD/MM/RRRR'));
1541: end if;
1542: --
1535: hr_utility.trace('...p_earnings_prev_12mths = '||to_char(p_earnings_prev_12mths));
1536: hr_utility.trace('...p_time_worked_prev_12mths = '||to_char(p_time_worked_prev_12mths));
1537: hr_utility.trace('...p_work_week = '||to_char(p_work_week));
1538: hr_utility.trace('...p_period_start_date = '||to_char(p_period_start_date,'DD/MM/RRRR'));
1539: hr_utility.trace('...p_period_end_date = '||to_char(p_period_end_date,'DD/MM/RRRR'));
1540: hr_utility.trace('...p_hire_date = '||to_char(p_hire_date,'DD/MM/RRRR'));
1541: end if;
1542: --
1543: -- Check to see if the Employees work period is more than 12 months
1536: hr_utility.trace('...p_time_worked_prev_12mths = '||to_char(p_time_worked_prev_12mths));
1537: hr_utility.trace('...p_work_week = '||to_char(p_work_week));
1538: hr_utility.trace('...p_period_start_date = '||to_char(p_period_start_date,'DD/MM/RRRR'));
1539: hr_utility.trace('...p_period_end_date = '||to_char(p_period_end_date,'DD/MM/RRRR'));
1540: hr_utility.trace('...p_hire_date = '||to_char(p_hire_date,'DD/MM/RRRR'));
1541: end if;
1542: --
1543: -- Check to see if the Employees work period is more than 12 months
1544: --
1547: if (p_hire_date = p_period_start_date or p_hire_date > p_period_start_date)
1548: and (p_hire_date = p_period_end_date or p_hire_date < p_period_end_date)
1549: then
1550: if g_debug then
1551: hr_utility.set_location(l_procedure, 20);
1552: end if;
1553: l_rate := greatest(p_ordinary_rate, p_earnings_td/p_time_worked_td);
1554: else
1555: if g_debug then
1552: end if;
1553: l_rate := greatest(p_ordinary_rate, p_earnings_td/p_time_worked_td);
1554: else
1555: if g_debug then
1556: hr_utility.set_location(l_procedure, 30);
1557: end if;
1558: l_rate := greatest(p_ordinary_rate, p_earnings_prev_12mths/p_time_worked_prev_12mths);
1559: end if;
1560: else
1570: else
1571: l_average_weekly_rate := p_earnings_prev_12mths/52;
1572: l_rate := greatest(p_ordinary_rate, (l_average_weekly_rate / p_work_week));
1573: if g_debug then
1574: hr_utility.set_location(l_procedure, 40);
1575: end if;
1576: end if;
1577: end if;
1578: --
1576: end if;
1577: end if;
1578: --
1579: if g_debug then
1580: hr_utility.set_location(l_procedure, 999);
1581: end if;
1582: --
1583: return l_rate;
1584: end annual_leave_rate_calc_1;
1711: where accrual_plan_id = p_accrual_plan_id;
1712: --
1713: BEGIN
1714: --
1715: g_debug := hr_utility.debug_enabled;
1716: if g_debug then
1717: hr_utility.set_location(l_procedure, 0);
1718: hr_utility.trace('p_calculation_date = '||to_char(p_calculation_date,'DD-MON-YYYY'));
1719: end if;
1713: BEGIN
1714: --
1715: g_debug := hr_utility.debug_enabled;
1716: if g_debug then
1717: hr_utility.set_location(l_procedure, 0);
1718: hr_utility.trace('p_calculation_date = '||to_char(p_calculation_date,'DD-MON-YYYY'));
1719: end if;
1720: --
1721: l_calculation_date := p_calculation_date;
1714: --
1715: g_debug := hr_utility.debug_enabled;
1716: if g_debug then
1717: hr_utility.set_location(l_procedure, 0);
1718: hr_utility.trace('p_calculation_date = '||to_char(p_calculation_date,'DD-MON-YYYY'));
1719: end if;
1720: --
1721: l_calculation_date := p_calculation_date;
1722: --
1730: fetch c_get_co_formula into l_co_formula_id;
1731: close c_get_co_formula;
1732: --
1733: if g_debug then
1734: hr_utility.set_location(l_procedure, 10);
1735: end if;
1736: --
1737: --------------------------------------------------------
1738: --
1777: l_entitlement_period_end_date := (l_accrual_period_start_date - 1);
1778: end if;
1779: --
1780: if g_debug then
1781: hr_utility.set_location(l_procedure,5);
1782: hr_utility.trace('l_entitlement_period_end_date = '||to_char(l_entitlement_period_end_date,'DD-MON-YYYY'));
1783: hr_utility.trace('l_accrual_period_start_date.. = '||to_char(l_accrual_period_start_date,'DD-MON-YYYY'));
1784: hr_utility.trace('l_accrual_period_endt_date... = '||to_char(l_accrual_period_end_date,'DD-MON-YYYY'));
1785: hr_utility.trace('l_continuous_service_date.... = '||to_char(l_continuous_service_date,'DD-MON-YYYY'));
1778: end if;
1779: --
1780: if g_debug then
1781: hr_utility.set_location(l_procedure,5);
1782: hr_utility.trace('l_entitlement_period_end_date = '||to_char(l_entitlement_period_end_date,'DD-MON-YYYY'));
1783: hr_utility.trace('l_accrual_period_start_date.. = '||to_char(l_accrual_period_start_date,'DD-MON-YYYY'));
1784: hr_utility.trace('l_accrual_period_endt_date... = '||to_char(l_accrual_period_end_date,'DD-MON-YYYY'));
1785: hr_utility.trace('l_continuous_service_date.... = '||to_char(l_continuous_service_date,'DD-MON-YYYY'));
1786: end if;
1779: --
1780: if g_debug then
1781: hr_utility.set_location(l_procedure,5);
1782: hr_utility.trace('l_entitlement_period_end_date = '||to_char(l_entitlement_period_end_date,'DD-MON-YYYY'));
1783: hr_utility.trace('l_accrual_period_start_date.. = '||to_char(l_accrual_period_start_date,'DD-MON-YYYY'));
1784: hr_utility.trace('l_accrual_period_endt_date... = '||to_char(l_accrual_period_end_date,'DD-MON-YYYY'));
1785: hr_utility.trace('l_continuous_service_date.... = '||to_char(l_continuous_service_date,'DD-MON-YYYY'));
1786: end if;
1787: --
1780: if g_debug then
1781: hr_utility.set_location(l_procedure,5);
1782: hr_utility.trace('l_entitlement_period_end_date = '||to_char(l_entitlement_period_end_date,'DD-MON-YYYY'));
1783: hr_utility.trace('l_accrual_period_start_date.. = '||to_char(l_accrual_period_start_date,'DD-MON-YYYY'));
1784: hr_utility.trace('l_accrual_period_endt_date... = '||to_char(l_accrual_period_end_date,'DD-MON-YYYY'));
1785: hr_utility.trace('l_continuous_service_date.... = '||to_char(l_continuous_service_date,'DD-MON-YYYY'));
1786: end if;
1787: --
1788: -------------------------------------------------------
1781: hr_utility.set_location(l_procedure,5);
1782: hr_utility.trace('l_entitlement_period_end_date = '||to_char(l_entitlement_period_end_date,'DD-MON-YYYY'));
1783: hr_utility.trace('l_accrual_period_start_date.. = '||to_char(l_accrual_period_start_date,'DD-MON-YYYY'));
1784: hr_utility.trace('l_accrual_period_endt_date... = '||to_char(l_accrual_period_end_date,'DD-MON-YYYY'));
1785: hr_utility.trace('l_continuous_service_date.... = '||to_char(l_continuous_service_date,'DD-MON-YYYY'));
1786: end if;
1787: --
1788: -------------------------------------------------------
1789: --
1878: ,p_start_date => l_start_date
1879: ,p_end_date => l_end_date
1880: );
1881: if g_debug then
1882: hr_utility.set_location(l_procedure, 40);
1883: hr_utility.trace('l_start_date = '||to_char(l_start_date));
1884: hr_utility.trace('l_end_date = '||to_char(l_end_date));
1885: hr_utility.trace('l_calculation_date = '||to_char(l_calculation_date));
1886: hr_utility.trace('l_entitlement_adj = '||to_char(l_entitlement_adj));
1879: ,p_end_date => l_end_date
1880: );
1881: if g_debug then
1882: hr_utility.set_location(l_procedure, 40);
1883: hr_utility.trace('l_start_date = '||to_char(l_start_date));
1884: hr_utility.trace('l_end_date = '||to_char(l_end_date));
1885: hr_utility.trace('l_calculation_date = '||to_char(l_calculation_date));
1886: hr_utility.trace('l_entitlement_adj = '||to_char(l_entitlement_adj));
1887: end if;
1880: );
1881: if g_debug then
1882: hr_utility.set_location(l_procedure, 40);
1883: hr_utility.trace('l_start_date = '||to_char(l_start_date));
1884: hr_utility.trace('l_end_date = '||to_char(l_end_date));
1885: hr_utility.trace('l_calculation_date = '||to_char(l_calculation_date));
1886: hr_utility.trace('l_entitlement_adj = '||to_char(l_entitlement_adj));
1887: end if;
1888: --
1881: if g_debug then
1882: hr_utility.set_location(l_procedure, 40);
1883: hr_utility.trace('l_start_date = '||to_char(l_start_date));
1884: hr_utility.trace('l_end_date = '||to_char(l_end_date));
1885: hr_utility.trace('l_calculation_date = '||to_char(l_calculation_date));
1886: hr_utility.trace('l_entitlement_adj = '||to_char(l_entitlement_adj));
1887: end if;
1888: --
1889:
1882: hr_utility.set_location(l_procedure, 40);
1883: hr_utility.trace('l_start_date = '||to_char(l_start_date));
1884: hr_utility.trace('l_end_date = '||to_char(l_end_date));
1885: hr_utility.trace('l_calculation_date = '||to_char(l_calculation_date));
1886: hr_utility.trace('l_entitlement_adj = '||to_char(l_entitlement_adj));
1887: end if;
1888: --
1889:
1890: ------------------------------------------------
1906: ,p_start_date => l_entitlement_period_end_date
1907: ,p_end_date => l_calculation_date
1908: );
1909: if g_debug then
1910: hr_utility.set_location(l_procedure, 50);
1911: hr_utility.trace('l_accrual_adj = '||to_char(l_accrual_adj));
1912: end if;
1913:
1914: --
1907: ,p_end_date => l_calculation_date
1908: );
1909: if g_debug then
1910: hr_utility.set_location(l_procedure, 50);
1911: hr_utility.trace('l_accrual_adj = '||to_char(l_accrual_adj));
1912: end if;
1913:
1914: --
1915: -- Accrual Adjustments which occured during the
1925: ,p_end_date => l_end_date
1926: );
1927: --
1928: if g_debug then
1929: hr_utility.trace('l_entitlement_adj = '||to_char(l_entitlement_adj));
1930: hr_utility.trace('l_accrual_adj.... = '||to_char(l_accrual_adj));
1931: end if;
1932: l_others_accrual := per_accrual_calc_functions.get_other_net_contribution
1933: (p_assignment_id => p_assignment_id
1926: );
1927: --
1928: if g_debug then
1929: hr_utility.trace('l_entitlement_adj = '||to_char(l_entitlement_adj));
1930: hr_utility.trace('l_accrual_adj.... = '||to_char(l_accrual_adj));
1931: end if;
1932: l_others_accrual := per_accrual_calc_functions.get_other_net_contribution
1933: (p_assignment_id => p_assignment_id
1934: ,p_plan_id => p_plan_id
1947: ,p_start_date => l_accrual_period_start_date
1948: ,p_calculation_date => p_calculation_date
1949: );
1950: if g_debug then
1951: hr_utility.set_location(l_procedure, 60);
1952: hr_utility.trace('..l_accrual_absences = '||to_char(l_accrual_absences));
1953: hr_utility.trace('..l_start_date = '||to_char(l_start_date,'dd/mm/rrrr'));
1954: hr_utility.trace('..l_calculation_date = '||to_char(l_calculation_date,'dd/mm/rrrr'));
1955: end if;
1948: ,p_calculation_date => p_calculation_date
1949: );
1950: if g_debug then
1951: hr_utility.set_location(l_procedure, 60);
1952: hr_utility.trace('..l_accrual_absences = '||to_char(l_accrual_absences));
1953: hr_utility.trace('..l_start_date = '||to_char(l_start_date,'dd/mm/rrrr'));
1954: hr_utility.trace('..l_calculation_date = '||to_char(l_calculation_date,'dd/mm/rrrr'));
1955: end if;
1956: l_leave_entitlement := l_leave_total - l_accrual_absences;
1949: );
1950: if g_debug then
1951: hr_utility.set_location(l_procedure, 60);
1952: hr_utility.trace('..l_accrual_absences = '||to_char(l_accrual_absences));
1953: hr_utility.trace('..l_start_date = '||to_char(l_start_date,'dd/mm/rrrr'));
1954: hr_utility.trace('..l_calculation_date = '||to_char(l_calculation_date,'dd/mm/rrrr'));
1955: end if;
1956: l_leave_entitlement := l_leave_total - l_accrual_absences;
1957: l_leave_accrual := 0;
1950: if g_debug then
1951: hr_utility.set_location(l_procedure, 60);
1952: hr_utility.trace('..l_accrual_absences = '||to_char(l_accrual_absences));
1953: hr_utility.trace('..l_start_date = '||to_char(l_start_date,'dd/mm/rrrr'));
1954: hr_utility.trace('..l_calculation_date = '||to_char(l_calculation_date,'dd/mm/rrrr'));
1955: end if;
1956: l_leave_entitlement := l_leave_total - l_accrual_absences;
1957: l_leave_accrual := 0;
1958: --
1963: ,p_start_date => l_start_date
1964: ,p_calculation_date => p_calculation_date
1965: );
1966: if g_debug then
1967: hr_utility.set_location(l_procedure, 70);
1968: hr_utility.trace('..l_start_date = '||to_char(l_start_date,'dd/mm/rrrr'));
1969: hr_utility.trace('..l_calculation_date = '||to_char(l_calculation_date,'dd/mm/rrrr'));
1970: hr_utility.trace('..l_accrual_absences = '||to_char(l_accrual_absences));
1971: end if;
1964: ,p_calculation_date => p_calculation_date
1965: );
1966: if g_debug then
1967: hr_utility.set_location(l_procedure, 70);
1968: hr_utility.trace('..l_start_date = '||to_char(l_start_date,'dd/mm/rrrr'));
1969: hr_utility.trace('..l_calculation_date = '||to_char(l_calculation_date,'dd/mm/rrrr'));
1970: hr_utility.trace('..l_accrual_absences = '||to_char(l_accrual_absences));
1971: end if;
1972: --
1965: );
1966: if g_debug then
1967: hr_utility.set_location(l_procedure, 70);
1968: hr_utility.trace('..l_start_date = '||to_char(l_start_date,'dd/mm/rrrr'));
1969: hr_utility.trace('..l_calculation_date = '||to_char(l_calculation_date,'dd/mm/rrrr'));
1970: hr_utility.trace('..l_accrual_absences = '||to_char(l_accrual_absences));
1971: end if;
1972: --
1973: -- Get the net entitlement and accrual before checking for absences
1966: if g_debug then
1967: hr_utility.set_location(l_procedure, 70);
1968: hr_utility.trace('..l_start_date = '||to_char(l_start_date,'dd/mm/rrrr'));
1969: hr_utility.trace('..l_calculation_date = '||to_char(l_calculation_date,'dd/mm/rrrr'));
1970: hr_utility.trace('..l_accrual_absences = '||to_char(l_accrual_absences));
1971: end if;
1972: --
1973: -- Get the net entitlement and accrual before checking for absences
1974: -- Determine the amount to go towards accrual portion by subtracting
1974: -- Determine the amount to go towards accrual portion by subtracting
1975: -- entitlement portion from total
1976: --
1977: if g_debug then
1978: hr_utility.set_location(l_procedure, 75);
1979: hr_utility.trace('l_leave_total = '||to_char(l_leave_total));
1980: hr_utility.trace('l_leave_entitlement = '||to_char(l_leave_entitlement));
1981: end if;
1982:
1975: -- entitlement portion from total
1976: --
1977: if g_debug then
1978: hr_utility.set_location(l_procedure, 75);
1979: hr_utility.trace('l_leave_total = '||to_char(l_leave_total));
1980: hr_utility.trace('l_leave_entitlement = '||to_char(l_leave_entitlement));
1981: end if;
1982:
1983: l_leave_accrual := l_leave_total - l_leave_entitlement;
1976: --
1977: if g_debug then
1978: hr_utility.set_location(l_procedure, 75);
1979: hr_utility.trace('l_leave_total = '||to_char(l_leave_total));
1980: hr_utility.trace('l_leave_entitlement = '||to_char(l_leave_entitlement));
1981: end if;
1982:
1983: l_leave_accrual := l_leave_total - l_leave_entitlement;
1984: --
1990: -- second year onwards adjusted accrual value is added to the entitlement
1991:
1992: l_leave_entitlement := l_leave_entitlement + l_others_entitlement + l_entitlement_adj + l_accrual_ent - l_accrual_adj;
1993: if g_debug then
1994: hr_utility.set_location(l_procedure, 80);
1995: hr_utility.trace('..l_leave_entitlement = '||to_char(l_leave_entitlement));
1996: hr_utility.trace('..l_others_entitlement = '||to_char(l_others_entitlement));
1997: hr_utility.trace('..l_entitlement_adj = '||to_char(l_entitlement_adj));
1998: hr_utility.trace('..l_accrual_ent = '||to_char(l_accrual_ent));
1991:
1992: l_leave_entitlement := l_leave_entitlement + l_others_entitlement + l_entitlement_adj + l_accrual_ent - l_accrual_adj;
1993: if g_debug then
1994: hr_utility.set_location(l_procedure, 80);
1995: hr_utility.trace('..l_leave_entitlement = '||to_char(l_leave_entitlement));
1996: hr_utility.trace('..l_others_entitlement = '||to_char(l_others_entitlement));
1997: hr_utility.trace('..l_entitlement_adj = '||to_char(l_entitlement_adj));
1998: hr_utility.trace('..l_accrual_ent = '||to_char(l_accrual_ent));
1999: hr_utility.trace('..l_accrual_adj = '||to_char(l_accrual_adj));
1992: l_leave_entitlement := l_leave_entitlement + l_others_entitlement + l_entitlement_adj + l_accrual_ent - l_accrual_adj;
1993: if g_debug then
1994: hr_utility.set_location(l_procedure, 80);
1995: hr_utility.trace('..l_leave_entitlement = '||to_char(l_leave_entitlement));
1996: hr_utility.trace('..l_others_entitlement = '||to_char(l_others_entitlement));
1997: hr_utility.trace('..l_entitlement_adj = '||to_char(l_entitlement_adj));
1998: hr_utility.trace('..l_accrual_ent = '||to_char(l_accrual_ent));
1999: hr_utility.trace('..l_accrual_adj = '||to_char(l_accrual_adj));
2000: hr_utility.trace('..l_leave_accrual = '||to_char(l_leave_accrual));
1993: if g_debug then
1994: hr_utility.set_location(l_procedure, 80);
1995: hr_utility.trace('..l_leave_entitlement = '||to_char(l_leave_entitlement));
1996: hr_utility.trace('..l_others_entitlement = '||to_char(l_others_entitlement));
1997: hr_utility.trace('..l_entitlement_adj = '||to_char(l_entitlement_adj));
1998: hr_utility.trace('..l_accrual_ent = '||to_char(l_accrual_ent));
1999: hr_utility.trace('..l_accrual_adj = '||to_char(l_accrual_adj));
2000: hr_utility.trace('..l_leave_accrual = '||to_char(l_leave_accrual));
2001: end if;
1994: hr_utility.set_location(l_procedure, 80);
1995: hr_utility.trace('..l_leave_entitlement = '||to_char(l_leave_entitlement));
1996: hr_utility.trace('..l_others_entitlement = '||to_char(l_others_entitlement));
1997: hr_utility.trace('..l_entitlement_adj = '||to_char(l_entitlement_adj));
1998: hr_utility.trace('..l_accrual_ent = '||to_char(l_accrual_ent));
1999: hr_utility.trace('..l_accrual_adj = '||to_char(l_accrual_adj));
2000: hr_utility.trace('..l_leave_accrual = '||to_char(l_leave_accrual));
2001: end if;
2002:
1995: hr_utility.trace('..l_leave_entitlement = '||to_char(l_leave_entitlement));
1996: hr_utility.trace('..l_others_entitlement = '||to_char(l_others_entitlement));
1997: hr_utility.trace('..l_entitlement_adj = '||to_char(l_entitlement_adj));
1998: hr_utility.trace('..l_accrual_ent = '||to_char(l_accrual_ent));
1999: hr_utility.trace('..l_accrual_adj = '||to_char(l_accrual_adj));
2000: hr_utility.trace('..l_leave_accrual = '||to_char(l_leave_accrual));
2001: end if;
2002:
2003: -- have to subtract absences taken to calculate net entitlement
1996: hr_utility.trace('..l_others_entitlement = '||to_char(l_others_entitlement));
1997: hr_utility.trace('..l_entitlement_adj = '||to_char(l_entitlement_adj));
1998: hr_utility.trace('..l_accrual_ent = '||to_char(l_accrual_ent));
1999: hr_utility.trace('..l_accrual_adj = '||to_char(l_accrual_adj));
2000: hr_utility.trace('..l_leave_accrual = '||to_char(l_leave_accrual));
2001: end if;
2002:
2003: -- have to subtract absences taken to calculate net entitlement
2004: -- absences must come off entitlement before accrual
2023: p_last_accrual := l_accrual_end_date;
2024: p_next_period_end := l_accrual_period_end_date;
2025: --
2026: if g_debug then
2027: hr_utility.set_location(l_procedure,999);
2028: end if;
2029: --
2030: RETURN (0);
2031: --
2062: l_next_period_end DATE;
2063: l_dummy_number NUMBER;
2064: --
2065: BEGIN
2066: g_debug := hr_utility.debug_enabled;
2067: --
2068: if g_debug then
2069: hr_utility.trace(' In: ' || l_proc) ;
2070: end if;
2065: BEGIN
2066: g_debug := hr_utility.debug_enabled;
2067: --
2068: if g_debug then
2069: hr_utility.trace(' In: ' || l_proc) ;
2070: end if;
2071: --
2072: l_dummy_number := get_accrual_entitlement
2073: (p_assignment_id
2085: p_net_entitlement := l_net_entitlement;
2086: p_start_date := l_calc_start_date;
2087: p_end_date := p_calculation_date;
2088: if g_debug then
2089: hr_utility.trace('Out: ' || l_proc);
2090: end if;
2091:
2092: END annual_leave_net_entitlement;
2093: --
2134: l_previous_rate number;
2135: --
2136: begin
2137: --
2138: g_debug := hr_utility.debug_enabled;
2139: --
2140: if g_debug then
2141: hr_utility.set_location(l_procedure, 0) ;
2142: end if;
2137: --
2138: g_debug := hr_utility.debug_enabled;
2139: --
2140: if g_debug then
2141: hr_utility.set_location(l_procedure, 0) ;
2142: end if;
2143: --
2144: open csr_get_rate;
2145: fetch csr_get_rate into l_previous_rate;
2148: end if;
2149: close csr_get_rate;
2150: --
2151: if g_debug then
2152: hr_utility.trace('l_previous_rate = '||to_char(l_previous_rate));
2153: hr_utility.set_location(l_procedure, 999);
2154: end if;
2155: --
2156: --Bug 3620398: Changed the function to return l_previous_rate.
2149: close csr_get_rate;
2150: --
2151: if g_debug then
2152: hr_utility.trace('l_previous_rate = '||to_char(l_previous_rate));
2153: hr_utility.set_location(l_procedure, 999);
2154: end if;
2155: --
2156: --Bug 3620398: Changed the function to return l_previous_rate.
2157: --
2199: --
2200: BEGIN
2201: --
2202: l_pleave_taken := 0;
2203: hr_utility.set_location('NZ Entering : ' || l_procedure,10);
2204: hr_utility.set_location('NZ p_assignment_id : ' || to_char(p_assignment_id),10) ;
2205: hr_utility.set_location('NZ p_business_group_id : ' || to_char(p_business_group_id),10);
2206: hr_utility.set_location('NZ p_start_date : ' || to_char(p_start_date,'dd Mon yyyy'),10) ;
2207: hr_utility.set_location('NZ p_end_date : ' || to_char(p_end_date,'dd Mon yyyy'),10) ;
2200: BEGIN
2201: --
2202: l_pleave_taken := 0;
2203: hr_utility.set_location('NZ Entering : ' || l_procedure,10);
2204: hr_utility.set_location('NZ p_assignment_id : ' || to_char(p_assignment_id),10) ;
2205: hr_utility.set_location('NZ p_business_group_id : ' || to_char(p_business_group_id),10);
2206: hr_utility.set_location('NZ p_start_date : ' || to_char(p_start_date,'dd Mon yyyy'),10) ;
2207: hr_utility.set_location('NZ p_end_date : ' || to_char(p_end_date,'dd Mon yyyy'),10) ;
2208:
2201: --
2202: l_pleave_taken := 0;
2203: hr_utility.set_location('NZ Entering : ' || l_procedure,10);
2204: hr_utility.set_location('NZ p_assignment_id : ' || to_char(p_assignment_id),10) ;
2205: hr_utility.set_location('NZ p_business_group_id : ' || to_char(p_business_group_id),10);
2206: hr_utility.set_location('NZ p_start_date : ' || to_char(p_start_date,'dd Mon yyyy'),10) ;
2207: hr_utility.set_location('NZ p_end_date : ' || to_char(p_end_date,'dd Mon yyyy'),10) ;
2208:
2209: OPEN csr_parental_leave_taken(p_assignment_id
2202: l_pleave_taken := 0;
2203: hr_utility.set_location('NZ Entering : ' || l_procedure,10);
2204: hr_utility.set_location('NZ p_assignment_id : ' || to_char(p_assignment_id),10) ;
2205: hr_utility.set_location('NZ p_business_group_id : ' || to_char(p_business_group_id),10);
2206: hr_utility.set_location('NZ p_start_date : ' || to_char(p_start_date,'dd Mon yyyy'),10) ;
2207: hr_utility.set_location('NZ p_end_date : ' || to_char(p_end_date,'dd Mon yyyy'),10) ;
2208:
2209: OPEN csr_parental_leave_taken(p_assignment_id
2210: ,p_business_group_id
2203: hr_utility.set_location('NZ Entering : ' || l_procedure,10);
2204: hr_utility.set_location('NZ p_assignment_id : ' || to_char(p_assignment_id),10) ;
2205: hr_utility.set_location('NZ p_business_group_id : ' || to_char(p_business_group_id),10);
2206: hr_utility.set_location('NZ p_start_date : ' || to_char(p_start_date,'dd Mon yyyy'),10) ;
2207: hr_utility.set_location('NZ p_end_date : ' || to_char(p_end_date,'dd Mon yyyy'),10) ;
2208:
2209: OPEN csr_parental_leave_taken(p_assignment_id
2210: ,p_business_group_id
2211: ,p_start_date
2215:
2216: IF csr_parental_leave_taken%FOUND THEN
2217: --
2218: CLOSE csr_parental_leave_taken;
2219: hr_utility.set_location('NZ l_pleave_taken : ' || to_char(l_pleave_taken),20);
2220: hr_utility.set_location('NZ Leaving : ' || l_procedure,20);
2221: RETURN 1;
2222: --
2223: END IF;
2216: IF csr_parental_leave_taken%FOUND THEN
2217: --
2218: CLOSE csr_parental_leave_taken;
2219: hr_utility.set_location('NZ l_pleave_taken : ' || to_char(l_pleave_taken),20);
2220: hr_utility.set_location('NZ Leaving : ' || l_procedure,20);
2221: RETURN 1;
2222: --
2223: END IF;
2224: --
2222: --
2223: END IF;
2224: --
2225: CLOSE csr_parental_leave_taken;
2226: hr_utility.set_location('NZ No parental leave taken',30);
2227: hr_utility.set_location('NZ Leaving : ' || l_procedure,30);
2228: RETURN 0;
2229: --
2230: EXCEPTION
2223: END IF;
2224: --
2225: CLOSE csr_parental_leave_taken;
2226: hr_utility.set_location('NZ No parental leave taken',30);
2227: hr_utility.set_location('NZ Leaving : ' || l_procedure,30);
2228: RETURN 0;
2229: --
2230: EXCEPTION
2231: --
2235: --
2236: CLOSE csr_parental_leave_taken;
2237: --
2238: END IF;
2239: hr_utility.set_location('NZ Error in : ' || l_procedure,40);
2240: RAISE;
2241: --
2242: --
2243: END is_parental_leave_taken;
2328: l_procedure CONSTANT VARCHAR2(100) := g_package||'.get_recur_abs_prev_period';
2329: --
2330: BEGIN
2331: --
2332: hr_utility.set_location('NZ Entering : ' ||l_procedure,10 );
2333: hr_utility.set_location('NZ p_absence_start_date : ' ||p_absence_start_date,10 );
2334: hr_utility.set_location('NZ p_curr_aniv_start : ' ||p_curr_aniv_start ,10 );
2335: hr_utility.set_location('NZ p_prev_period_end_date: ' ||p_prev_period_end_date ,10);
2336: hr_utility.set_location('NZ p_plan_id : ' ||p_plan_id ,10);
2329: --
2330: BEGIN
2331: --
2332: hr_utility.set_location('NZ Entering : ' ||l_procedure,10 );
2333: hr_utility.set_location('NZ p_absence_start_date : ' ||p_absence_start_date,10 );
2334: hr_utility.set_location('NZ p_curr_aniv_start : ' ||p_curr_aniv_start ,10 );
2335: hr_utility.set_location('NZ p_prev_period_end_date: ' ||p_prev_period_end_date ,10);
2336: hr_utility.set_location('NZ p_plan_id : ' ||p_plan_id ,10);
2337: l_recurr_leave_taken := 0;
2330: BEGIN
2331: --
2332: hr_utility.set_location('NZ Entering : ' ||l_procedure,10 );
2333: hr_utility.set_location('NZ p_absence_start_date : ' ||p_absence_start_date,10 );
2334: hr_utility.set_location('NZ p_curr_aniv_start : ' ||p_curr_aniv_start ,10 );
2335: hr_utility.set_location('NZ p_prev_period_end_date: ' ||p_prev_period_end_date ,10);
2336: hr_utility.set_location('NZ p_plan_id : ' ||p_plan_id ,10);
2337: l_recurr_leave_taken := 0;
2338: IF (p_curr_aniv_start <= p_absence_start_date ) THEN
2331: --
2332: hr_utility.set_location('NZ Entering : ' ||l_procedure,10 );
2333: hr_utility.set_location('NZ p_absence_start_date : ' ||p_absence_start_date,10 );
2334: hr_utility.set_location('NZ p_curr_aniv_start : ' ||p_curr_aniv_start ,10 );
2335: hr_utility.set_location('NZ p_prev_period_end_date: ' ||p_prev_period_end_date ,10);
2336: hr_utility.set_location('NZ p_plan_id : ' ||p_plan_id ,10);
2337: l_recurr_leave_taken := 0;
2338: IF (p_curr_aniv_start <= p_absence_start_date ) THEN
2339: --
2332: hr_utility.set_location('NZ Entering : ' ||l_procedure,10 );
2333: hr_utility.set_location('NZ p_absence_start_date : ' ||p_absence_start_date,10 );
2334: hr_utility.set_location('NZ p_curr_aniv_start : ' ||p_curr_aniv_start ,10 );
2335: hr_utility.set_location('NZ p_prev_period_end_date: ' ||p_prev_period_end_date ,10);
2336: hr_utility.set_location('NZ p_plan_id : ' ||p_plan_id ,10);
2337: l_recurr_leave_taken := 0;
2338: IF (p_curr_aniv_start <= p_absence_start_date ) THEN
2339: --
2340: -- Loop through starting from the absence start date
2348: FETCH get_pay_period_details
2349: INTO l_time_period_id,l_period_end_date;
2350: CLOSE get_pay_period_details;
2351:
2352: hr_utility.set_location('NZ l_time_period_id : ' || l_time_period_id,20);
2353: hr_utility.set_location('NZ l_prev_period_end_date : ' || l_period_end_date,20);
2354:
2355: OPEN get_period_assg_act_id(l_time_period_id);
2356: FETCH get_period_assg_act_id
2349: INTO l_time_period_id,l_period_end_date;
2350: CLOSE get_pay_period_details;
2351:
2352: hr_utility.set_location('NZ l_time_period_id : ' || l_time_period_id,20);
2353: hr_utility.set_location('NZ l_prev_period_end_date : ' || l_period_end_date,20);
2354:
2355: OPEN get_period_assg_act_id(l_time_period_id);
2356: FETCH get_period_assg_act_id
2357: INTO l_period_assg_act_id;
2356: FETCH get_period_assg_act_id
2357: INTO l_period_assg_act_id;
2358: CLOSE get_period_assg_act_id;
2359:
2360: hr_utility.set_location('NZ l_prev_period_assg_act_id : ' || l_period_assg_act_id,30);
2361:
2362: OPEN csr_get_recurr_absence(l_period_assg_act_id
2363: ,p_prev_period_end_date);
2364: FETCH csr_get_recurr_absence
2365: INTO l_leave_taken;
2366:
2367: IF csr_get_recurr_absence%FOUND THEN
2368: --
2369: hr_utility.set_location('NZ l_leave_taken : ' || l_leave_taken,40);
2370:
2371: l_recurr_leave_taken := l_recurr_leave_taken + l_leave_taken;
2372: --
2373: ELSE
2371: l_recurr_leave_taken := l_recurr_leave_taken + l_leave_taken;
2372: --
2373: ELSE
2374: --
2375: hr_utility.set_location('NZ No recurring absence in previous periods ',50);
2376: --
2377: END IF;
2378:
2379: CLOSE csr_get_recurr_absence;
2383: --
2384: END LOOP;
2385: --
2386: END IF;
2387: hr_utility.set_location('NZ Leaving : ' ||l_procedure,60 );
2388: RETURN l_recurr_leave_taken;
2389: --
2390: EXCEPTION
2391: --
2406: CLOSE csr_get_recurr_absence;
2407: --
2408: END IF;
2409:
2410: hr_utility.set_location('NZ Error in : ' ||l_procedure,70 );
2411: RAISE;
2412: --
2413: END get_recur_abs_prev_period;
2414:
2463: l_procedure CONSTANT VARCHAR2(100) := g_package||'.get_leave_taken';
2464: --
2465: BEGIN
2466: --
2467: hr_utility.set_location('NZ Entering : ' || l_procedure,10);
2468: hr_utility.set_location('NZ p_assignment_id : ' || to_char(p_assignment_id),10);
2469: hr_utility.set_location('NZ p_payroll_id : ' || p_payroll_id,10);
2470: hr_utility.set_location('NZ p_business_group_id : ' ||to_char(p_business_group_id),10);
2471: hr_utility.set_location('NZ p_start_date : ' || to_char(p_start_date,'dd Mon yyyy'),10);
2464: --
2465: BEGIN
2466: --
2467: hr_utility.set_location('NZ Entering : ' || l_procedure,10);
2468: hr_utility.set_location('NZ p_assignment_id : ' || to_char(p_assignment_id),10);
2469: hr_utility.set_location('NZ p_payroll_id : ' || p_payroll_id,10);
2470: hr_utility.set_location('NZ p_business_group_id : ' ||to_char(p_business_group_id),10);
2471: hr_utility.set_location('NZ p_start_date : ' || to_char(p_start_date,'dd Mon yyyy'),10);
2472: hr_utility.set_location('NZ p_end_date : ' || to_char(p_end_date,'dd Mon yyyy'),10);
2465: BEGIN
2466: --
2467: hr_utility.set_location('NZ Entering : ' || l_procedure,10);
2468: hr_utility.set_location('NZ p_assignment_id : ' || to_char(p_assignment_id),10);
2469: hr_utility.set_location('NZ p_payroll_id : ' || p_payroll_id,10);
2470: hr_utility.set_location('NZ p_business_group_id : ' ||to_char(p_business_group_id),10);
2471: hr_utility.set_location('NZ p_start_date : ' || to_char(p_start_date,'dd Mon yyyy'),10);
2472: hr_utility.set_location('NZ p_end_date : ' || to_char(p_end_date,'dd Mon yyyy'),10);
2473:
2466: --
2467: hr_utility.set_location('NZ Entering : ' || l_procedure,10);
2468: hr_utility.set_location('NZ p_assignment_id : ' || to_char(p_assignment_id),10);
2469: hr_utility.set_location('NZ p_payroll_id : ' || p_payroll_id,10);
2470: hr_utility.set_location('NZ p_business_group_id : ' ||to_char(p_business_group_id),10);
2471: hr_utility.set_location('NZ p_start_date : ' || to_char(p_start_date,'dd Mon yyyy'),10);
2472: hr_utility.set_location('NZ p_end_date : ' || to_char(p_end_date,'dd Mon yyyy'),10);
2473:
2474: OPEN csr_get_count_leave(p_assignment_id
2467: hr_utility.set_location('NZ Entering : ' || l_procedure,10);
2468: hr_utility.set_location('NZ p_assignment_id : ' || to_char(p_assignment_id),10);
2469: hr_utility.set_location('NZ p_payroll_id : ' || p_payroll_id,10);
2470: hr_utility.set_location('NZ p_business_group_id : ' ||to_char(p_business_group_id),10);
2471: hr_utility.set_location('NZ p_start_date : ' || to_char(p_start_date,'dd Mon yyyy'),10);
2472: hr_utility.set_location('NZ p_end_date : ' || to_char(p_end_date,'dd Mon yyyy'),10);
2473:
2474: OPEN csr_get_count_leave(p_assignment_id
2475: ,p_business_group_id
2468: hr_utility.set_location('NZ p_assignment_id : ' || to_char(p_assignment_id),10);
2469: hr_utility.set_location('NZ p_payroll_id : ' || p_payroll_id,10);
2470: hr_utility.set_location('NZ p_business_group_id : ' ||to_char(p_business_group_id),10);
2471: hr_utility.set_location('NZ p_start_date : ' || to_char(p_start_date,'dd Mon yyyy'),10);
2472: hr_utility.set_location('NZ p_end_date : ' || to_char(p_end_date,'dd Mon yyyy'),10);
2473:
2474: OPEN csr_get_count_leave(p_assignment_id
2475: ,p_business_group_id
2476: ,p_start_date
2494: ,p_prev_period_end_date => p_end_date
2495: ,p_plan_id => p_plan_id
2496: );
2497: l_leave_taken := l_leave_taken + l_recurr_leave_taken;
2498: hr_utility.set_location('NZ l_leave_taken : ' || l_leave_taken,20);
2499: hr_utility.set_location('NZ Leaving : ' || l_procedure,30);
2500:
2501: RETURN l_leave_taken;
2502:
2495: ,p_plan_id => p_plan_id
2496: );
2497: l_leave_taken := l_leave_taken + l_recurr_leave_taken;
2498: hr_utility.set_location('NZ l_leave_taken : ' || l_leave_taken,20);
2499: hr_utility.set_location('NZ Leaving : ' || l_procedure,30);
2500:
2501: RETURN l_leave_taken;
2502:
2503: --
2510: CLOSE csr_get_count_leave;
2511: --
2512: END IF;
2513:
2514: hr_utility.set_location('NZ Erroring in : ' || l_procedure,40);
2515: RAISE;
2516: --
2517: --
2518: END get_leave_taken;
2571: l_procedure CONSTANT VARCHAR2(100) := g_package||'get_entitled_amount';
2572: --
2573: BEGIN
2574: --
2575: hr_utility.set_location('NZ Entering : ' || l_procedure ,10);
2576: hr_utility.set_location('NZ p_payroll_id : ' || p_payroll_id ,10);
2577: hr_utility.set_location('NZ p_assignment_id : ' || p_assignment_id ,10);
2578: hr_utility.set_location('NZ p_business_group_id : ' || p_business_group_id ,10);
2579: hr_utility.set_location('NZ p_accrual_plan_id : ' || p_accrual_plan_id,10);
2572: --
2573: BEGIN
2574: --
2575: hr_utility.set_location('NZ Entering : ' || l_procedure ,10);
2576: hr_utility.set_location('NZ p_payroll_id : ' || p_payroll_id ,10);
2577: hr_utility.set_location('NZ p_assignment_id : ' || p_assignment_id ,10);
2578: hr_utility.set_location('NZ p_business_group_id : ' || p_business_group_id ,10);
2579: hr_utility.set_location('NZ p_accrual_plan_id : ' || p_accrual_plan_id,10);
2580: hr_utility.set_location('NZ p_period_start_date : ' || p_period_start_date ,10);
2573: BEGIN
2574: --
2575: hr_utility.set_location('NZ Entering : ' || l_procedure ,10);
2576: hr_utility.set_location('NZ p_payroll_id : ' || p_payroll_id ,10);
2577: hr_utility.set_location('NZ p_assignment_id : ' || p_assignment_id ,10);
2578: hr_utility.set_location('NZ p_business_group_id : ' || p_business_group_id ,10);
2579: hr_utility.set_location('NZ p_accrual_plan_id : ' || p_accrual_plan_id,10);
2580: hr_utility.set_location('NZ p_period_start_date : ' || p_period_start_date ,10);
2581: hr_utility.set_location('NZ p_period_end_date : ' || p_period_end_date ,10);
2574: --
2575: hr_utility.set_location('NZ Entering : ' || l_procedure ,10);
2576: hr_utility.set_location('NZ p_payroll_id : ' || p_payroll_id ,10);
2577: hr_utility.set_location('NZ p_assignment_id : ' || p_assignment_id ,10);
2578: hr_utility.set_location('NZ p_business_group_id : ' || p_business_group_id ,10);
2579: hr_utility.set_location('NZ p_accrual_plan_id : ' || p_accrual_plan_id,10);
2580: hr_utility.set_location('NZ p_period_start_date : ' || p_period_start_date ,10);
2581: hr_utility.set_location('NZ p_period_end_date : ' || p_period_end_date ,10);
2582: hr_utility.set_location('NZ p_entitled_leave_taken : ' || p_entitled_leave_taken ,10);
2575: hr_utility.set_location('NZ Entering : ' || l_procedure ,10);
2576: hr_utility.set_location('NZ p_payroll_id : ' || p_payroll_id ,10);
2577: hr_utility.set_location('NZ p_assignment_id : ' || p_assignment_id ,10);
2578: hr_utility.set_location('NZ p_business_group_id : ' || p_business_group_id ,10);
2579: hr_utility.set_location('NZ p_accrual_plan_id : ' || p_accrual_plan_id,10);
2580: hr_utility.set_location('NZ p_period_start_date : ' || p_period_start_date ,10);
2581: hr_utility.set_location('NZ p_period_end_date : ' || p_period_end_date ,10);
2582: hr_utility.set_location('NZ p_entitled_leave_taken : ' || p_entitled_leave_taken ,10);
2583: hr_utility.set_location('NZ p_curr_rate : ' || p_curr_rate,10);
2576: hr_utility.set_location('NZ p_payroll_id : ' || p_payroll_id ,10);
2577: hr_utility.set_location('NZ p_assignment_id : ' || p_assignment_id ,10);
2578: hr_utility.set_location('NZ p_business_group_id : ' || p_business_group_id ,10);
2579: hr_utility.set_location('NZ p_accrual_plan_id : ' || p_accrual_plan_id,10);
2580: hr_utility.set_location('NZ p_period_start_date : ' || p_period_start_date ,10);
2581: hr_utility.set_location('NZ p_period_end_date : ' || p_period_end_date ,10);
2582: hr_utility.set_location('NZ p_entitled_leave_taken : ' || p_entitled_leave_taken ,10);
2583: hr_utility.set_location('NZ p_curr_rate : ' || p_curr_rate,10);
2584: hr_utility.set_location('NZ p_hire_date : ' || p_hire_date,10);
2577: hr_utility.set_location('NZ p_assignment_id : ' || p_assignment_id ,10);
2578: hr_utility.set_location('NZ p_business_group_id : ' || p_business_group_id ,10);
2579: hr_utility.set_location('NZ p_accrual_plan_id : ' || p_accrual_plan_id,10);
2580: hr_utility.set_location('NZ p_period_start_date : ' || p_period_start_date ,10);
2581: hr_utility.set_location('NZ p_period_end_date : ' || p_period_end_date ,10);
2582: hr_utility.set_location('NZ p_entitled_leave_taken : ' || p_entitled_leave_taken ,10);
2583: hr_utility.set_location('NZ p_curr_rate : ' || p_curr_rate,10);
2584: hr_utility.set_location('NZ p_hire_date : ' || p_hire_date,10);
2585: hr_utility.set_location('NZ p_average_rate_p12mths : ' || p_average_rate_p12mths,10);
2578: hr_utility.set_location('NZ p_business_group_id : ' || p_business_group_id ,10);
2579: hr_utility.set_location('NZ p_accrual_plan_id : ' || p_accrual_plan_id,10);
2580: hr_utility.set_location('NZ p_period_start_date : ' || p_period_start_date ,10);
2581: hr_utility.set_location('NZ p_period_end_date : ' || p_period_end_date ,10);
2582: hr_utility.set_location('NZ p_entitled_leave_taken : ' || p_entitled_leave_taken ,10);
2583: hr_utility.set_location('NZ p_curr_rate : ' || p_curr_rate,10);
2584: hr_utility.set_location('NZ p_hire_date : ' || p_hire_date,10);
2585: hr_utility.set_location('NZ p_average_rate_p12mths : ' || p_average_rate_p12mths,10);
2586:
2579: hr_utility.set_location('NZ p_accrual_plan_id : ' || p_accrual_plan_id,10);
2580: hr_utility.set_location('NZ p_period_start_date : ' || p_period_start_date ,10);
2581: hr_utility.set_location('NZ p_period_end_date : ' || p_period_end_date ,10);
2582: hr_utility.set_location('NZ p_entitled_leave_taken : ' || p_entitled_leave_taken ,10);
2583: hr_utility.set_location('NZ p_curr_rate : ' || p_curr_rate,10);
2584: hr_utility.set_location('NZ p_hire_date : ' || p_hire_date,10);
2585: hr_utility.set_location('NZ p_average_rate_p12mths : ' || p_average_rate_p12mths,10);
2586:
2587: -- Initialize Variables
2580: hr_utility.set_location('NZ p_period_start_date : ' || p_period_start_date ,10);
2581: hr_utility.set_location('NZ p_period_end_date : ' || p_period_end_date ,10);
2582: hr_utility.set_location('NZ p_entitled_leave_taken : ' || p_entitled_leave_taken ,10);
2583: hr_utility.set_location('NZ p_curr_rate : ' || p_curr_rate,10);
2584: hr_utility.set_location('NZ p_hire_date : ' || p_hire_date,10);
2585: hr_utility.set_location('NZ p_average_rate_p12mths : ' || p_average_rate_p12mths,10);
2586:
2587: -- Initialize Variables
2588: l_eff_date := p_hire_date;
2581: hr_utility.set_location('NZ p_period_end_date : ' || p_period_end_date ,10);
2582: hr_utility.set_location('NZ p_entitled_leave_taken : ' || p_entitled_leave_taken ,10);
2583: hr_utility.set_location('NZ p_curr_rate : ' || p_curr_rate,10);
2584: hr_utility.set_location('NZ p_hire_date : ' || p_hire_date,10);
2585: hr_utility.set_location('NZ p_average_rate_p12mths : ' || p_average_rate_p12mths,10);
2586:
2587: -- Initialize Variables
2588: l_eff_date := p_hire_date;
2589: l_amt := 0;
2594: --
2595: WHILE ( l_eff_date < p_period_start_date)
2596: LOOP
2597: --
2598: hr_utility.set_location('NZ l_eff_Date : ' || l_eff_Date,20);
2599:
2600: -- Get Anniversary details for l_eff_date
2601: l_dummy := cache_anniversary_details
2602: (p_payroll_id => p_payroll_id
2607: ,p_anniversary_start_date => l_anniversary_start_date
2608: ,p_anniversary_end_date => l_anniversary_end_date
2609: ,p_years_of_service => l_years_of_service
2610: );
2611: hr_utility.set_location('NZ l_anniversary_start_date : ' || l_anniversary_start_date,30);
2612: hr_utility.set_location('NZ l_anniversary_end_date : ' || l_anniversary_end_date,30);
2613: hr_utility.set_location('NZ l_years_of_service : ' || l_years_of_service,30);
2614:
2615: -- Get the Net Accrual for this anniversary
2608: ,p_anniversary_end_date => l_anniversary_end_date
2609: ,p_years_of_service => l_years_of_service
2610: );
2611: hr_utility.set_location('NZ l_anniversary_start_date : ' || l_anniversary_start_date,30);
2612: hr_utility.set_location('NZ l_anniversary_end_date : ' || l_anniversary_end_date,30);
2613: hr_utility.set_location('NZ l_years_of_service : ' || l_years_of_service,30);
2614:
2615: -- Get the Net Accrual for this anniversary
2616: l_dummy := get_accrual_entitlement
2609: ,p_years_of_service => l_years_of_service
2610: );
2611: hr_utility.set_location('NZ l_anniversary_start_date : ' || l_anniversary_start_date,30);
2612: hr_utility.set_location('NZ l_anniversary_end_date : ' || l_anniversary_end_date,30);
2613: hr_utility.set_location('NZ l_years_of_service : ' || l_years_of_service,30);
2614:
2615: -- Get the Net Accrual for this anniversary
2616: l_dummy := get_accrual_entitlement
2617: (
2625: ,p_calc_start_date => l_calc_start_date
2626: ,p_last_accrual => l_last_accrual
2627: ,p_next_period_end => l_next_period_end
2628: );
2629: hr_utility.set_location('NZ l_net_accrual : ' || l_net_accrual,40);
2630:
2631: IF (l_net_accrual > 0) THEN
2632: --
2633: hr_utility.set_location('NZ l_net_accrual is greater than 0',50);
2629: hr_utility.set_location('NZ l_net_accrual : ' || l_net_accrual,40);
2630:
2631: IF (l_net_accrual > 0) THEN
2632: --
2633: hr_utility.set_location('NZ l_net_accrual is greater than 0',50);
2634: OPEN get_curr_period_start;
2635: FETCH get_curr_period_start
2636: INTO l_curr_start_date;
2637: CLOSE get_curr_period_start;
2634: OPEN get_curr_period_start;
2635: FETCH get_curr_period_start
2636: INTO l_curr_start_date;
2637: CLOSE get_curr_period_start;
2638: hr_utility.set_location('NZ after cursor get_curr_period_start',50);
2639:
2640: -- Net accrual in this period has to accommodate absences that are
2641: -- taken after this anniversary and before the current payroll period.
2642:
2645: IF (l_leave_taken is NULL) THEN -- If it is first anniversary
2646: --
2647: IF (l_anniversary_end_date < l_curr_start_date) THEN
2648: --
2649: hr_utility.set_location('NZ l_leave taken is null',40);
2650: l_leave_taken := get_leave_taken
2651: (
2652: p_assignment_id => p_assignment_id
2653: ,p_payroll_id => p_payroll_id
2667: --
2668: END IF;
2669: --
2670: END IF;
2671: hr_utility.set_location('NZ l_leave_taken : ' || l_leave_taken,50);
2672:
2673: -- If 'Net Accrual in this Anniversary is less than 'Leave Taken'
2674: -- Then
2675: -- There is no leave available in this anniversary.
2679: -- Leave Available = Net Accrual - Leave Taken
2680: -- Leave Taken = 0 as all 'Leave Taken' has been accommodated now.
2681: IF (l_net_accrual <= l_leave_taken ) THEN
2682: --
2683: hr_utility.set_location('NZ Leave not Available in this year',60);
2684: l_leave_taken := l_leave_taken - l_net_accrual;
2685: --
2686: ELSE
2687: --
2684: l_leave_taken := l_leave_taken - l_net_accrual;
2685: --
2686: ELSE
2687: --
2688: hr_utility.set_location('NZ Leave Available in this year',70);
2689:
2690: l_leave_available := l_net_accrual - l_leave_taken;
2691: l_leave_taken := 0;
2692:
2689:
2690: l_leave_available := l_net_accrual - l_leave_taken;
2691: l_leave_taken := 0;
2692:
2693: hr_utility.set_location('NZ Leave Available : '||l_leave_available,80);
2694:
2695: -- Check whether Assignment has taken any parental leave in this
2696: -- anniversary
2697: l_has_taken_pl := is_parental_leave_taken
2700: ,p_business_group_id
2701: ,l_anniversary_start_date
2702: ,l_anniversary_end_date
2703: );
2704: hr_utility.set_location('NZ l_has_taken_pl : ' || l_has_taken_pl,90);
2705:
2706: -- If Assignment has taken parental leave
2707: -- Then
2708: -- Rate as of this anniversary should be computed
2709: -- Else
2710: -- Current Rate should be used
2711: IF (l_has_taken_pl = 1) THEN
2712: --
2713: hr_utility.set_location('NZ Parental leave taken',100);
2714: l_rate := p_average_rate_p12mths;
2715: --
2716: ELSE
2717: --
2718: l_rate := p_curr_rate;
2719: --
2720: END IF;
2721: --
2722: hr_utility.set_location('NZ l_rate : '|| l_rate,130);
2723: hr_utility.set_location('NZ l_entitle_leave_Taken : '|| l_entitled_leave_Taken,130);
2724: hr_utility.set_location('NZ l_net_accrual : '|| l_net_accrual,130);
2725: hr_utility.set_location('NZ l_leave_available : '|| l_leave_available,130);
2726:
2719: --
2720: END IF;
2721: --
2722: hr_utility.set_location('NZ l_rate : '|| l_rate,130);
2723: hr_utility.set_location('NZ l_entitle_leave_Taken : '|| l_entitled_leave_Taken,130);
2724: hr_utility.set_location('NZ l_net_accrual : '|| l_net_accrual,130);
2725: hr_utility.set_location('NZ l_leave_available : '|| l_leave_available,130);
2726:
2727: -- If Entitled Leave taken is less than Leave Available
2720: END IF;
2721: --
2722: hr_utility.set_location('NZ l_rate : '|| l_rate,130);
2723: hr_utility.set_location('NZ l_entitle_leave_Taken : '|| l_entitled_leave_Taken,130);
2724: hr_utility.set_location('NZ l_net_accrual : '|| l_net_accrual,130);
2725: hr_utility.set_location('NZ l_leave_available : '|| l_leave_available,130);
2726:
2727: -- If Entitled Leave taken is less than Leave Available
2728: -- Then
2721: --
2722: hr_utility.set_location('NZ l_rate : '|| l_rate,130);
2723: hr_utility.set_location('NZ l_entitle_leave_Taken : '|| l_entitled_leave_Taken,130);
2724: hr_utility.set_location('NZ l_net_accrual : '|| l_net_accrual,130);
2725: hr_utility.set_location('NZ l_leave_available : '|| l_leave_available,130);
2726:
2727: -- If Entitled Leave taken is less than Leave Available
2728: -- Then
2729: -- Compute the Amount and return
2733: -- Entitled Leave Taken = Entitled Leave Taken - Leave Available
2734: IF ( l_entitled_leave_taken <= l_leave_available ) THEN
2735: --
2736: l_amt := l_amt + l_entitled_leave_taken * l_rate;
2737: hr_utility.set_location('NZ l_amt : ' || l_amt,140);
2738: hr_utility.set_location('NZ l_entitled_leave_taken : ' || l_entitled_leave_taken,140);
2739: hr_utility.set_location('NZ Leaving',140);
2740: RETURN l_amt;
2741: --
2734: IF ( l_entitled_leave_taken <= l_leave_available ) THEN
2735: --
2736: l_amt := l_amt + l_entitled_leave_taken * l_rate;
2737: hr_utility.set_location('NZ l_amt : ' || l_amt,140);
2738: hr_utility.set_location('NZ l_entitled_leave_taken : ' || l_entitled_leave_taken,140);
2739: hr_utility.set_location('NZ Leaving',140);
2740: RETURN l_amt;
2741: --
2742: ELSE
2735: --
2736: l_amt := l_amt + l_entitled_leave_taken * l_rate;
2737: hr_utility.set_location('NZ l_amt : ' || l_amt,140);
2738: hr_utility.set_location('NZ l_entitled_leave_taken : ' || l_entitled_leave_taken,140);
2739: hr_utility.set_location('NZ Leaving',140);
2740: RETURN l_amt;
2741: --
2742: ELSE
2743: --
2740: RETURN l_amt;
2741: --
2742: ELSE
2743: --
2744: hr_utility.set_location('NZ leave available less than entitled',150);
2745: l_entitled_leave_taken := l_entitled_leave_taken - l_leave_available;
2746: l_amt := l_amt + l_rate * l_leave_available;
2747: hr_utility.set_location('NZ l_amt : ' || l_amt,150);
2748: hr_utility.set_location('NZ l_entitled_leave_taken : ' || l_entitled_leave_taken,150);
2743: --
2744: hr_utility.set_location('NZ leave available less than entitled',150);
2745: l_entitled_leave_taken := l_entitled_leave_taken - l_leave_available;
2746: l_amt := l_amt + l_rate * l_leave_available;
2747: hr_utility.set_location('NZ l_amt : ' || l_amt,150);
2748: hr_utility.set_location('NZ l_entitled_leave_taken : ' || l_entitled_leave_taken,150);
2749: --
2750: END IF;
2751: --
2744: hr_utility.set_location('NZ leave available less than entitled',150);
2745: l_entitled_leave_taken := l_entitled_leave_taken - l_leave_available;
2746: l_amt := l_amt + l_rate * l_leave_available;
2747: hr_utility.set_location('NZ l_amt : ' || l_amt,150);
2748: hr_utility.set_location('NZ l_entitled_leave_taken : ' || l_entitled_leave_taken,150);
2749: --
2750: END IF;
2751: --
2752: END IF; -- 'If leaves available in this year' block
2755: -- Move to Next Anniversary
2756: l_eff_date := l_anniversary_end_date +1;
2757: --
2758: END LOOP;
2759: hr_utility.set_location('NZ Leaving : ' || l_procedure ,160);
2760: RETURN l_amt;
2761: --
2762: EXCEPTION
2763: --
2767: --
2768: CLOSE get_curr_period_start ;
2769: --
2770: END IF;
2771: hr_utility.set_location('NZ Error in : ' || l_procedure ,170);
2772: RAISE;
2773: --
2774: --
2775: END get_entitled_amount;