[Home] [Help]
1: package body hr_element_links as
2: /* $Header: pyelelnk.pkb 115.2 99/07/17 05:58:54 porting ship $ */
3: --
4: /*
5: /*
21: * England. *
22: * *
23: ******************************************************************
24: --
25: Name : hr_element_links
26: --
27: Description : This package holds procedures and functions related to the
28: following tables :
29: PAY_ELEMENT_LINKS_F
27: Description : This package holds procedures and functions related to the
28: following tables :
29: PAY_ELEMENT_LINKS_F
30: --
31: Uses : hr_element_links
32: hr_input_values
33: Used By : n/a
34: --
35: Test List
238: p_payroll_id in number,
239: p_greatest_link_date in date)
240: return date is
241: --
242: proc_name CONSTANT varchar2(40) := 'hr_element_links.get_greatest_end_date';
243: --
244: begin
245: --
246: hr_utility.set_location( proc_name, 1);
289: l_max_element_date date;
290: l_max_payroll_date date;
291: begin
292: --
293: Hr_utility.set_location('hr_element_links.chk_element_links', 1);
294: --
295: -- Element links cannot be distributed if the element is part of a
296: -- distribution set.
297: if p_costable_type = 'D' then
295: -- Element links cannot be distributed if the element is part of a
296: -- distribution set.
297: if p_costable_type = 'D' then
298: --
299: hr_utility.set_location('hr_element_links.chk_element_links', 2);
300: --
301: if p_element_set_id is null then
302: --
303: hr_utility.set_message(801,'PAY_6699_LINK_NO_DIST_SET');
435: -- This cannot happen if there are any entries in existence for this link
436: -- and must happen over all time for the link.
437: --
438: --
439: hr_utility.set_location('hr_element_links.chk_upd_element_links', 1);
440: --
441: If p_old_costable_type <> p_costable_type then
442: if p_update_mode <> 'CORRECTION' then
443: hr_utility.set_message(801,'PAY_6466_LINK_NO_COST_UPD2');
463: hr_utility.raise_error;
464: end if;
465: --
466: --
467: hr_utility.set_location('hr_element_links.chk_upd_element_links', 2);
468: --
469: begin
470: --
471: select 'Y'
512: l_delete_ok varchar2(1) := 'Y';
513: --
514: begin
515: --
516: hr_utility.set_location('hr_element_links.chk_del_element_link', 1);
517: --
518: --
519: -- No delete is allowed if there are non-recurring entries in the validation
520: -- period.
686: v_dummy number;
687: --
688: begin
689: --
690: hr_utility.set_location('hr_element_links.ins_3p_element_link', 1);
691: --
692: -- Call create link input value
693: hr_input_values.create_link_input_value(
694: 'INSERT_LINK',
707: p_pay_value_name,
708: p_element_type_id);
709: --
710: --
711: hr_utility.set_location('hr_element_links.ins_3p_element_link', 2);
712: --
713: pay_asg_link_usages_pkg.insert_ALU (
714: --
715: p_business_group_id,
718: p_val_start_date,
719: p_val_end_date);
720: --
721: --
722: hr_utility.set_location('hr_element_links.ins_3p_element_link', 3);
723: --
724: -- Error if standard link has a mandatory input value with no default.
725: --
726: open csr_link_defaults;
730: hr_utility.raise_error;
731: end if;
732: close csr_link_defaults;
733: --
734: hr_utility.set_location('hr_element_links.ins_3p_element_link', 4);
735: --
736: -- Create standard entries
737: --
738: if p_standard_link_flag = 'Y' then
789: begin
790: -- If the costable type is updated from costed or Fixed to Distributed or
791: -- not costed then we need to make all the link input values not costed.
792: --
793: hr_utility.set_location('hr_element_links.upd_3p_element_link', 1);
794: --
795: if (p_old_costable_type = 'C' or p_old_costable_type = 'F')
796: and (p_costable_type = 'D' or p_costable_type = 'N') then
797: --
820: iv.effective_start_date and iv.effective_end_date);
821: --
822: end if;
823: --
824: hr_utility.set_location('hr_element_links.upd_3p_element_link', 2);
825: --
826: -- Create standard entries if standard link flag is updated to 'Y'
827: --
828: if p_old_link_flag = 'N' and p_link_flag = 'Y' then
825: --
826: -- Create standard entries if standard link flag is updated to 'Y'
827: --
828: if p_old_link_flag = 'N' and p_link_flag = 'Y' then
829: hr_element_links.link_flag_updated (p_element_link_id);
830: hrentmnt.maintain_entries_el
831: (p_business_group_id,
832: p_element_link_id,
833: p_element_type_id,
863: --
864: elsif p_delete_mode = 'DELETE' then
865: --
866: --
867: hr_utility.set_location('hr_element_links.entry_values', 1);
868: --
869: -- delete all future records
870: delete from pay_element_entry_values_f
871: where element_entry_id = p_element_entry_id
925: for update;
926: --
927: begin
928: --
929: hr_utility.set_location('hr_element_links.del_3p_element_link', 1);
930: --
931: for entry_rec in get_element_entries(
932: p_element_link_id,
933: p_val_start_date,
932: p_element_link_id,
933: p_val_start_date,
934: p_val_end_date) loop
935: --
936: hr_element_links.delete_entry_values(
937: entry_rec.element_entry_id,
938: p_delete_mode,
939: p_val_session_date,
940: entry_rec.start_date,
955: --
956: elsif p_delete_mode = 'DELETE' then
957: --
958: --
959: hr_utility.set_location('hr_element_links.del_3p_element_link', 2);
960: --
961: -- delete all future records
962: delete from pay_link_input_values_f
963: where element_link_id = p_element_link_id
970: and p_val_session_date between
971: effective_start_date and effective_end_date;
972: --
973: --
974: hr_utility.set_location('hr_element_links.del_3p_element_link', 3);
975: --
976: --
977: -- delete all future records
978: delete from pay_element_entries_f
985: where element_link_id = p_element_link_id
986: and p_val_session_date between
987: effective_start_date and effective_end_date;
988: --
989: hr_utility.set_location('hr_element_links.del_3p_element_link', 4);
990: --
991: -- delete all future records
992: delete from pay_assignment_link_usages_f
993: where element_link_id = p_element_link_id
1007: --
1008: elsif p_delete_mode = 'DELETE_NEXT_CHANGE' then
1009: --
1010: --
1011: hr_utility.set_location('hr_element_links.del_3p_element_link', 5);
1012: --
1013: begin
1014: --
1015: select 'Y'
1029: --
1030: if l_on_final_record = 'Y' then
1031: --
1032: --
1033: hr_utility.set_location('hr_element_links.del_3p_element_link', 5);
1034: --
1035: update pay_link_input_values_f iv1
1036: set iv1.effective_end_date = p_val_end_date
1037: where p_element_link_id = iv1.element_link_id
1226: close csr_element_entries;
1227: --
1228: end link_flag_updated;
1229: --
1230: end hr_element_links;