[Home] [Help]
1: package body hrentmnt as
2: /* $Header: pyentmnt.pkb 120.72.12020000.11 2013/02/25 06:53:45 vmaripal ship $ */
3: --
4: g_debug boolean := hr_utility.debug_enabled;
5: indent varchar2 (32767) := null;
2: /* $Header: pyentmnt.pkb 120.72.12020000.11 2013/02/25 06:53:45 vmaripal ship $ */
3: --
4: g_debug boolean := hr_utility.debug_enabled;
5: indent varchar2 (32767) := null;
6: g_package constant varchar2 (32) := 'hrentmnt.';
7: g_original_entry_id pay_element_entries_f.original_entry_id%type := null;
8: --
9: -- Record type to cache an element entry for use when splitting into two.
10: --
113: type t_eligible_links_cur is ref cursor return t_eligible_links_rec;
114: --
115: ------------------------------------------------------------------------------
116: -- NAME --
117: -- hrentmnt.min_eligibility_date --
118: -- --
119: -- DESCRIPTION --
120: -- Calculates the minimum date an element entries start date could be set --
121: -- to taking into account the eligibility of the element entry over time. --
268: fetch csr_link into v_link_rec;
269: if csr_link%notfound then
270: close csr_link;
271: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
272: hr_utility.set_message_token('PROCEDURE', 'hrentmnt.min_eligibility_date');
273: hr_utility.set_message_token('STEP','1');
274: hr_utility.raise_error;
275: end if;
276: close csr_link;
304: fetch csr_assignment into v_asg_rec;
305: if csr_assignment%notfound then
306: close csr_assignment;
307: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
308: hr_utility.set_message_token('PROCEDURE', 'hrentmnt.min_eligibility_date');
309: hr_utility.set_message_token('STEP','2');
310: hr_utility.raise_error;
311: end if;
312: --
379: end min_eligibility_date;
380: --
381: ------------------------------------------------------------------------------
382: -- NAME --
383: -- hrentmnt.maintain_alu_asg --
384: -- --
385: -- DESCRIPTION --
386: -- Maintains the ALU's for an assignment. An ALU represnts the intersection --
387: -- of the people group flexfield on the assignment and element link. The --
557: end maintain_alu_asg;
558: --
559: ------------------------------------------------------------------------------
560: -- NAME --
561: -- hrentmnt.remove_pay_proposals --
562: -- --
563: -- DESCRIPTION --
564: -- Salary Admin specific procedure that will remove a pay proposal if there --
565: -- are no element entries for the pay proposal. --
599: end remove_pay_proposals;
600: --
601: ------------------------------------------------------------------------------
602: -- NAME --
603: -- hrentmnt.remove_quickpay_inclusions --
604: -- --
605: -- DESCRIPTION --
606: -- Removes any quickpay inclusions for which the element entry no longer --
607: -- date effectively exists NB. the procedure is used with the assumption --
634: end remove_quickpay_inclusions;
635: --
636: ------------------------------------------------------------------------------
637: -- NAME --
638: -- hrentmnt.remove_quickpay_exclusions --
639: -- --
640: -- DESCRIPTION --
641: -- Introduced via enhancement 3368211
642: -- Removes any quickpay exclusions for which the element entry no longer --
670: end remove_quickpay_exclusions;
671: --
672: ------------------------------------------------------------------------------
673: -- NAME --
674: -- hrentmnt.check_payroll_changes_asg --
675: -- --
676: -- DESCRIPTION --
677: -- Makes sure that payroll exists for the lifetime of the assignment that --
678: -- uses it and also makes sure that no assignment actions are orphaned by a --
952: end check_payroll_changes_asg;
953: --
954: ------------------------------------------------------------------------------
955: -- NAME --
956: -- hrentmnt.cache_element_entry --
957: -- --
958: -- DESCRIPTION --
959: -- When splitting element entries ie. when there is a change in assignment --
960: -- criteria, the entry values are cached and used when creating the second --
964: procedure cache_element_entry
965: (
966: p_element_entry_id number,
967: p_date date,
968: p_ele_entry_rec out nocopy hrentmnt.t_ele_entry_rec,
969: p_num_entry_values out nocopy number,
970: p_input_value_id_tbl out nocopy hr_entry.number_table,
971: p_entry_value_tbl out nocopy hr_entry.varchar2_table
972: ) is
999: and et.effective_end_date;
1000: --
1001: -- Local Variables
1002: --
1003: v_ele_entry_rec hrentmnt.t_ele_entry_rec;
1004: v_num_values number := 0;
1005: v_input_value_id_tbl hr_entry.number_table;
1006: v_entry_value_tbl hr_entry.varchar2_table;
1007: v_db_format varchar2(60);
1010: procedure check_parameters is
1011: --
1012: begin
1013: --
1014: hr_utility.trace('In hrentmnt.cache_element_entry');
1015: --
1016: hr_utility.trace ('');
1017: hr_utility.trace (' p_element_entry_id = '
1018: ||to_char (p_element_entry_id));
1109: exception
1110: when no_data_found then
1111: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1112: hr_utility.set_message_token('PROCEDURE',
1113: 'hrentmnt.cache_element_entry');
1114: hr_utility.set_message_token('STEP','1');
1115: hr_utility.raise_error;
1116: end;
1117: --
1194: p_input_value_id_tbl := v_input_value_id_tbl;
1195: p_entry_value_tbl := v_entry_value_tbl;
1196: --
1197: if g_debug then
1198: hr_utility.trace('Out hrentmnt.cache_element_entry');
1199: end if;
1200: --
1201: end cache_element_entry;
1202: --
1201: end cache_element_entry;
1202: --
1203: ------------------------------------------------------------------------------
1204: -- NAME --
1205: -- hrentmnt.check_entry_overridden --
1206: -- --
1207: -- DESCRIPTION --
1208: -- Checks to see if a change in the existence of a recurring element entry --
1209: -- will leave an override for it that will exist outside the recurring --
1225: procedure check_parameters is
1226: --
1227: begin
1228: --
1229: hr_utility.trace('In hrentmnt.check_entry_overridden');
1230: hr_utility.trace ('');
1231: hr_utility.trace(' p_assignment_id = '
1232: ||to_char (p_assignment_id));
1233: hr_utility.trace(' p_element_entry_id = '
1276: --
1277: --
1278: ------------------------------------------------------------------------------
1279: -- NAME --
1280: -- hrentmnt.log_entry_event --
1281: -- --
1282: -- DESCRIPTION --
1283: -- This procedure is used to record the events in pay_process_events. This --
1284: -- operation is normally carried out in the API, in below cases we don't --
1409: fetch csr_entry into v_entry_rec;
1410: if (csr_entry%NOTFOUND) then
1411: close csr_entry;
1412: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1413: hr_utility.set_message_token('PROCEDURE','hrentmnt.log_entry_event');
1414: hr_utility.set_message_token('STEP','1');
1415: hr_utility.raise_error;
1416: end if;
1417: l_updating_action_id := p_old_upd_action_id;
1628: end log_entry_event;
1629: --
1630: ------------------------------------------------------------------------------
1631: -- NAME --
1632: -- hrentmnt.validate_adjust_entry --
1633: -- --
1634: -- DESCRIPTION --
1635: -- Validates and adjusts recurring element entries. It accepts 2 modes ie. --
1636: -- UPDATE and DELETE NB. only UPDATE will result in changes to an --
1705: procedure check_parameters is
1706: --
1707: begin
1708: --
1709: hr_utility.trace('In hrentmnt.validate_adjust_entry');
1710: hr_utility.trace ('');
1711: hr_utility.trace (' p_mode = '
1712: ||p_mode);
1713: hr_utility.trace (' p_assignment_id = '
1800: p_old_date < p_new_date) or
1801: (p_start_or_end_date = 'END' and
1802: p_old_date > p_new_date))) then
1803: --
1804: hrentmnt.check_entry_overridden
1805: (p_assignment_id,
1806: p_element_entry_id,
1807: v_change_start_date,
1808: v_change_end_date);
1814: -- There is a chance the element entry id exists in both tables if
1815: -- any QuickPay assignment actions were created before the QuickPay
1816: -- Exclusions data model was in use.
1817: --
1818: hrentmnt.remove_quickpay_exclusions
1819: (p_element_entry_id,
1820: v_change_start_date,
1821: v_change_end_date);
1822: --
1819: (p_element_entry_id,
1820: v_change_start_date,
1821: v_change_end_date);
1822: --
1823: hrentmnt.remove_quickpay_inclusions
1824: (p_element_entry_id,
1825: v_change_start_date,
1826: v_change_end_date);
1827: --
1958: end if;
1959: end if;
1960: --
1961: if g_debug then
1962: hr_utility.trace('Out hrentmnt.validate_adjust_entry');
1963: end if;
1964: --
1965: end validate_adjust_entry;
1966: --
1965: end validate_adjust_entry;
1966: --
1967: ------------------------------------------------------------------------------
1968: -- NAME --
1969: -- hrentmnt.validate_purge --
1970: -- --
1971: -- DESCRIPTION --
1972: -- Validates whether it is legal to purge a particular element entry --
1973: -- depending on the setting of the HR_ELE_ENTRY_PURGE_CONTROL profile and --
2038: p_new_element_entry_ESD in date,
2039: p_new_element_entry_EED in date)
2040: is
2041: begin
2042: hr_utility.trace('> hrentmnt.maintain_dependent_entities');
2043:
2044: if g_debug then
2045: hr_utility.trace('p_element_entry_id >' || p_element_entry_id || '<');
2046: hr_utility.trace('p_element_entry_ESD >' || p_element_entry_ESD || '<');
2071: end maintain_dependent_entities;
2072: --
2073: ------------------------------------------------------------------------------
2074: -- NAME --
2075: -- hrentmnt.open_asg_criteria_cur --
2076: -- --
2077: -- SINCE --
2078: -- Bugfix 5584631 --
2079: -- --
2109: end open_asg_criteria_cur;
2110: --
2111: ------------------------------------------------------------------------------
2112: -- NAME --
2113: -- hrentmnt.open_eligible_links_cur --
2114: -- --
2115: -- SINCE --
2116: -- Bugfix 5584631 --
2117: -- --
2242: end open_eligible_links_cur;
2243: --
2244: ------------------------------------------------------------------------------
2245: -- NAME --
2246: -- hrentmnt.recreate_cached_entry --
2247: -- --
2248: -- SINCE --
2249: -- Bugfix 5247607 --
2250: -- --
2264: p_validation_end_date in date,
2265: p_ee_effective_start_date in date,
2266: p_ee_effective_end_date in date,
2267: p_ee_creator_type in varchar2,
2268: p_rec_ee in hrentmnt.t_ele_entry_rec,
2269: p_num_eevs in number,
2270: p_tbl_ivids in hr_entry.number_table,
2271: p_tbl_eevs in hr_entry.varchar2_table,
2272: p_entry_recreated out nocopy boolean
2272: p_entry_recreated out nocopy boolean
2273: )
2274: is
2275: --
2276: l_proc varchar2(80) := 'hrentmnt.recreate_cached_entry';
2277: l_asg_criteria_cv t_asg_criteria_cur;
2278: l_rec_asg_criteria t_asg_criteria_rec;
2279: l_eligible_links_cv t_eligible_links_cur;
2280: rec_eligible_links t_eligible_links_rec;
2585: end recreate_cached_entry;
2586: --
2587: ------------------------------------------------------------------------------
2588: -- NAME --
2589: -- hrentmnt.remove_ineligible_recurring --
2590: -- --
2591: -- DESCRIPTION --
2592: -- Removes any recurring element entries for a particular assignment and --
2593: -- element link that exist within a specified period of time that are not --
2752: is
2753: --
2754: begin
2755: --
2756: hr_utility.trace('In hrentmnt.remove_ineligible_recurring');
2757: hr_utility.trace ('');
2758: hr_utility.trace (' p_assignment_id = '||to_char (p_assignment_id));
2759: hr_utility.trace (' p_entries_changed = '||p_entries_changed);
2760: hr_utility.trace (' p_validation_start_date = '||to_char(p_validation_start_date,'DD-MON-YYYY'));
2798: SELECT LEGISLATION_CODE
2799: FROM per_business_groups
2800: where business_group_id=p_business_group_id;
2801:
2802: l_rec_ee hrentmnt.t_ele_entry_rec;
2803: l_num_eevs number := 0;
2804: l_tbl_ivids hr_entry.number_table;
2805: l_tbl_eevs hr_entry.varchar2_table;
2806: l_entry_recreated boolean := false;
2814: hr_utility.trace ('***** doing normal delete of REE');
2815: hr_utility.trace ('***** caching EE before delete');
2816: end if;
2817: --
2818: hrentmnt.cache_element_entry(
2819: p_element_entry_id,
2820: p_ee_effective_end_date,
2821: l_rec_ee,
2822: l_num_eevs,
2822: l_num_eevs,
2823: l_tbl_ivids,
2824: l_tbl_eevs);
2825: --
2826: hrentmnt.validate_adjust_entry
2827: ('DELETE',
2828: p_assignment_id,
2829: p_element_entry_id,
2830: null,
2890: where pee.element_entry_id = p_element_entry_id);
2891: --
2892: -- Call the routine that checks whether an illegal purge
2893: -- has occurred (i.e. disallowed by profile).
2894: hrentmnt.validate_purge(p_element_entry_id, p_element_link_id);
2895: --
2896: -- Salary Admin entry is being removed. See if the pay proposal is used by
2897: -- any other entry. If not then it is removed.
2898: --
2897: -- any other entry. If not then it is removed.
2898: --
2899: if p_ee_creator_type = 'SP' then
2900: --
2901: hrentmnt.remove_pay_proposals
2902: (p_assignment_id,
2903: p_ee_creator_id);
2904: --
2905: end if;
2966: FROM per_business_groups
2967: where business_group_id=p_business_group_id;
2968:
2969: --
2970: l_rec_ee hrentmnt.t_ele_entry_rec;
2971: l_num_eevs number := 0;
2972: l_tbl_ivids hr_entry.number_table;
2973: l_tbl_eevs hr_entry.varchar2_table;
2974: l_entry_recreated boolean := false;
2983: hr_utility.trace ('***** VSD|<----- |VED *****');
2984: hr_utility.trace ('***** current |-----------------| *****');
2985: end if;
2986: --
2987: hrentmnt.validate_adjust_entry
2988: ('DELETE',
2989: p_assignment_id,
2990: p_element_entry_id,
2991: null,
3030: -- Bugfix 4520103
3031: -- Use p_validation_start_date - 1 as this is the new effective end
3032: -- date of the entry.
3033: --
3034: hrentmnt.cache_element_entry(
3035: p_element_entry_id,
3036: p_validation_start_date - 1,
3037: l_rec_ee,
3038: l_num_eevs,
3139: hr_utility.trace ('***** VSD| ----->|VED *****');
3140: hr_utility.trace ('***** current |-----------------> *****');
3141: end if;
3142: --
3143: hrentmnt.validate_adjust_entry
3144: ('DELETE',
3145: p_assignment_id,
3146: p_element_entry_id,
3147: null,
3211: exception
3212: when no_data_found then
3213: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3214: hr_utility.set_message_token('PROCEDURE',
3215: 'hrentmnt.bring_ree_start_date_forwards');
3216: hr_utility.set_message_token('STEP','1');
3217: hr_utility.raise_error;
3218: end;
3219: hr_utility.trace('Debug p_validation_end_date:'||p_validation_end_date);
3392: end loop;
3393: --
3394: if g_debug then
3395: --
3396: hr_utility.trace('Out hrentmnt.remove_ineligible_recurring');
3397: --
3398: end if;
3399: --
3400: return;
3495: end if;
3496: end loop;
3497: --
3498: if g_debug then
3499: hr_utility.trace('Out hrentmnt.remove_ineligible_recurring');
3500: end if;
3501: --
3502: end remove_ineligible_recurring;
3503: --
3502: end remove_ineligible_recurring;
3503: --
3504: ------------------------------------------------------------------------------
3505: -- NAME --
3506: -- hrentmnt.remove_ineligible_nonrecurring --
3507: -- --
3508: -- DESCRIPTION --
3509: -- Deletes any nonrecurring element entries that will be made ineligible by --
3510: -- a change in assignment criteria. The delete runs after the change to the --
3602: asg.effective_start_date)));
3603: --
3604: procedure check_parameters is
3605: begin
3606: hr_utility.trace('In hrentmnt.remove_ineligible_nonrecurring');
3607: --
3608: hr_utility.trace ('');
3609: hr_utility.trace (' p_assignment_id = '
3610: ||to_char(p_assignment_id));
3646: p_validation_start_date,
3647: p_validation_end_date) loop
3648: --
3649: --
3650: hrentmnt.validate_adjust_entry
3651: ('DELETE',
3652: p_assignment_id,
3653: v_entry.element_entry_id,
3654: null,
3750: where ee.element_entry_id = v_entry.element_entry_id;*/
3751: --
3752: -- Call the routine that checks whether an illegal purge
3753: -- has occurred (i.e. disallowed by profile).
3754: hrentmnt.validate_purge(v_entry.element_entry_id, v_entry.element_link_id);
3755: --
3756: end loop;
3757: --
3758: if g_debug then
3755: --
3756: end loop;
3757: --
3758: if g_debug then
3759: hr_utility.trace('Out hrentmnt.remove_ineligible_nonrecurring');
3760: end if;
3761: --
3762: end remove_ineligible_nonrecurring;
3763: --
3762: end remove_ineligible_nonrecurring;
3763: --
3764: ------------------------------------------------------------------------------
3765: -- NAME --
3766: -- hrentmnt.return_entry_dates --
3767: -- --
3768: -- DESCRIPTION --
3769: -- Given an assignment and element link this returns the start and end --
3770: -- dates of the element entry taking into account personal qualifying --
3796: procedure check_parameters is
3797: --
3798: begin
3799: --
3800: hr_utility.trace('In hrentmnt.return_entry_dates');
3801: hr_utility.trace ('');
3802: hr_utility.trace (' p_assignment_id = '
3803: ||to_char (p_assignment_id));
3804: hr_utility.trace (' p_asg_start_date = '
3869: p_entry_end_date := v_entry_end_date;
3870: end if;
3871: --
3872: if g_debug then
3873: hr_utility.trace('Out hrentmnt.return_entry_dates');
3874: end if;
3875: --
3876: end return_entry_dates;
3877: --
3876: end return_entry_dates;
3877: --
3878: ------------------------------------------------------------------------------
3879: -- NAME --
3880: -- hrentmnt.mult_ent_allowed_flag --
3881: -- --
3882: -- DESCRIPTION --
3883: -- Simple function to return a flag indicating if multiple entries are --
3884: -- allowed for a particular element type. --
3908: procedure check_parameters is
3909: --
3910: begin
3911: --
3912: hr_utility.trace('In hrentmnt.mult_ent_allowed_flag');
3913: hr_utility.trace ('');
3914: hr_utility.trace (' p_element_link_id = '
3915: ||to_char (p_element_link_id));
3916: hr_utility.trace ('');
3928: if csr_element%notfound then
3929: close csr_element;
3930: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3931: hr_utility.set_message_token('PROCEDURE',
3932: 'hrentmnt.mult_ent_allowed_flag');
3933: hr_utility.set_message_token('STEP','1');
3934: hr_utility.raise_error;
3935: end if;
3936: close csr_element;
3940: end mult_ent_allowed_flag;
3941: --
3942: ------------------------------------------------------------------------------
3943: -- NAME --
3944: -- hrentmnt.val_nonrec_entries --
3945: -- --
3946: -- DESCRIPTION --
3947: -- Checks to see if there are nonrecurring element entries that will be --
3948: -- made ineligible by a change in assignment criteria. The check runs --
4095: l_eligible_links_rec t_eligible_links_rec;
4096: l_link_suitable boolean;
4097: l_creator_type_meaning varchar2(60);
4098: l_adjust_ee_source varchar2(1);
4099: l_proc varchar2(80) := 'hrentmnt.val_nonrec_entries';
4100: --
4101: l_obj_ver_num number;
4102: l_eff_str_date date;
4103: l_eff_end_date date;
4301: end val_nonrec_entries;
4302: --
4303: ------------------------------------------------------------------------------
4304: -- NAME --
4305: -- hrentmnt.validate_adjustment_entries --
4306: -- --
4307: -- DESCRIPTION --
4308: -- This routine checks for element entries which have more than one --
4309: -- adjustments(entry_type = 'A') in the same pay period --
4331: and pee.effective_end_date between ptp.start_date and ptp.end_date
4332: group by pee.target_entry_id ,ptp.time_period_id
4333: having count(*) > 1);
4334: begin
4335: hr_utility.set_location('hrentmnt.validate_adjustment_entries',10);
4336: for csr_cae_rec in csr_cae loop
4337: -- any record fetched is an error
4338: hr_utility.set_message(801, 'PAY_34196_INVALID_ADJUSTMENTS');
4339: hr_utility.raise_error;
4337: -- any record fetched is an error
4338: hr_utility.set_message(801, 'PAY_34196_INVALID_ADJUSTMENTS');
4339: hr_utility.raise_error;
4340: end loop;
4341: hr_utility.set_location('hrentmnt.validate_adjustment_entries',20);
4342: return;
4343: end validate_adjustment_entries;
4344: --
4345: ------------------------------------------------------------------------------
4343: end validate_adjustment_entries;
4344: --
4345: ------------------------------------------------------------------------------
4346: -- NAME --
4347: -- hrentmnt.adjust_nonrecurring_entries --
4348: -- --
4349: -- DESCRIPTION --
4350: -- Adjusts nonrecurring entries when there is a change in payroll or the --
4351: -- assignment ends. Nonrecurring entries now only exist for the duration of --
4418: procedure check_parameters is
4419: --
4420: begin
4421: --
4422: hr_utility.trace ('In hrentmnt.adjust_nonrecurring_entries');
4423: hr_utility.trace ('');
4424: hr_utility.trace (' p_assignment_id = '
4425: ||to_char (p_assignment_id));
4426: hr_utility.trace (' p_val_start_date_minus_one = '
4601: --
4602: -- If current start date is wrong then adjust nonrecurring entry.
4603: --
4604: if v_entry.effective_start_date <> v_effective_start_date then
4605: hrentmnt.validate_adjust_entry
4606: ('UPDATE',
4607: p_assignment_id,
4608: v_entry.element_entry_id,
4609: 'START',
4616: --
4617: -- If current end date is wrong then adjust nonrecurring entry.
4618: --
4619: if v_entry.effective_end_date <> v_effective_end_date then
4620: hrentmnt.validate_adjust_entry
4621: ('UPDATE',
4622: p_assignment_id,
4623: v_entry.element_entry_id,
4624: 'END',
4632: --
4633: end loop;
4634: --
4635: if g_debug then
4636: hr_utility.trace ('Out hrentmnt.adjust_nonrecurring_entries');
4637: end if;
4638: --
4639: end adjust_nonrecurring_entries;
4640: --
4682: end get_entry_info_category;
4683:
4684: ------------------------------------------------------------------------------
4685: -- NAME --
4686: -- hrentmnt.adjust_recurring_entries --
4687: -- --
4688: -- DESCRIPTION --
4689: -- When passed a table containing what an element entry should look like --
4690: -- for a particular assignment and element link, it finds and adjusts all --
4709: p_validation_end_date date,
4710: p_val_start_date_minus_one date,
4711: p_val_end_date_plus_one date,
4712: p_entry_count number,
4713: p_entry_start_date_tbl hrentmnt.t_date_table,
4714: p_entry_end_date_tbl hrentmnt.t_date_table,
4715: p_entries_changed in out nocopy varchar2,
4716: p_old_hire_date date
4717: ) is
4710: p_val_start_date_minus_one date,
4711: p_val_end_date_plus_one date,
4712: p_entry_count number,
4713: p_entry_start_date_tbl hrentmnt.t_date_table,
4714: p_entry_end_date_tbl hrentmnt.t_date_table,
4715: p_entries_changed in out nocopy varchar2,
4716: p_old_hire_date date
4717: ) is
4718: --
4812: v_entry_start_date date;
4813: v_entry_end_date date;
4814: v_calc_entry_start_date date;
4815: v_calc_entry_end_date date;
4816: v_ele_entry_rec hrentmnt.t_ele_entry_rec;
4817: v_num_entry_values number := 0;
4818: v_input_value_id_tbl hr_entry.number_table;
4819: v_entry_value_tbl hr_entry.varchar2_table;
4820:
4824: procedure check_parameters is
4825: --
4826: begin
4827: --
4828: hr_utility.trace('In hrentmnt.adjust_recurring_entries');
4829: hr_utility.trace ('');
4830: hr_utility.trace (' p_dt_mode = '
4831: ||p_dt_mode);
4832: hr_utility.trace (' p_assignment_id = '
4894: when no_link_found then
4895: --
4896: fnd_message.set_name ('PAY','HR_6153_ALL_PROCEDURE_FAIL');
4897: fnd_message.set_token ('PROCEDURE',
4898: 'hrentmnt.adjust_recurring_entries');
4899: fnd_message.set_token ('STEP','1');
4900: fnd_message.raise_error;
4901: --
4902: end standard_element;
5005: --
5006: -- Take a copy of the current element entry as this may be needed
5007: -- later.
5008: --
5009: hrentmnt.cache_element_entry
5010: (v_entry.element_entry_id,
5011: v_entry.effective_end_date,
5012: v_ele_entry_rec,
5013: v_num_entry_values,
5066: --
5067: -- Validate the adjustment, maintain referential integrity,
5068: -- and adjust the element entry.
5069: --
5070: hrentmnt.validate_adjust_entry
5071: ('UPDATE',
5072: p_assignment_id,
5073: v_first_element_entry_id,
5074: 'START',
5123: --
5124: -- Validate the adjustment, maintain referential integrity,
5125: -- and adjust the element entry.
5126: --
5127: hrentmnt.validate_adjust_entry
5128: ('UPDATE',
5129: p_assignment_id,
5130: v_first_element_entry_id,
5131: 'START',
5155: hr_utility.trace ('***** calc |-------------| *****');
5156: hr_utility.trace ('***** <----- *****');
5157: hr_utility.trace ('***** current |--------------------> *****');
5158: end if;
5159: hrentmnt.validate_adjust_entry
5160: ('UPDATE',
5161: p_assignment_id,
5162: v_last_element_entry_id,
5163: 'END',
5327: --
5328: -- Validate the adjustment, maintain referential integrity,
5329: -- and adjust the element entry.
5330: --
5331: hrentmnt.validate_adjust_entry
5332: ('UPDATE',
5333: p_assignment_id,
5334: v_last_element_entry_id,
5335: 'END',
5343: --
5344: -- Validate the adjustment, maintain referential integrity,
5345: -- and adjust the element entry.
5346: --
5347: hrentmnt.validate_adjust_entry
5348: ('UPDATE',
5349: p_assignment_id,
5350: v_last_element_entry_id,
5351: 'END',
5574: --
5575: close csr_distinct_entries;
5576: --
5577: if g_debug then
5578: hr_utility.trace('Out hrentmnt.adjust_recurring_entries');
5579: end if;
5580: --
5581: end adjust_recurring_entries;
5582: --
5581: end adjust_recurring_entries;
5582: --
5583: ------------------------------------------------------------------------------
5584: -- NAME --
5585: -- hrentmnt.adjust_entries_pqc --
5586: -- --
5587: -- DESCRIPTION --
5588: -- Adjusts element entries when the personal qualifying conditions for the --
5589: -- assignment are changed ie. DOB or probation period NB. this is only --
5637: procedure check_parameters is
5638: --
5639: begin
5640: --
5641: hr_utility.trace('In hrentmnt.adjust_entries_pqc');
5642: hr_utility.trace ('');
5643: hr_utility.trace (' p_assignment_id = '
5644: ||to_char (p_assignment_id));
5645: hr_utility.trace (' p_entries_changed = '
5723: if v_start_date_qc > v_entry.effective_end_date then
5724: --
5725: -- Remove element entry that exists before qualifying conditions.
5726: --
5727: hrentmnt.validate_adjust_entry
5728: ('DELETE',
5729: p_assignment_id,
5730: v_entry.element_entry_id,
5731: null,
5750: and ee.effective_end_date = v_entry.effective_end_date;
5751: --
5752: -- Call the routine that checks whether an illegal purge
5753: -- has occurred (i.e. disallowed by profile).
5754: hrentmnt.validate_purge(v_entry.element_entry_id,
5755: v_entry.element_link_id);
5756: --
5757: -- Salary Admin entry is being removed. See if the pay proposal is
5758: -- used by any other entry. If not then it is removed.
5758: -- used by any other entry. If not then it is removed.
5759: --
5760: if v_entry.creator_type = 'SP' then
5761: --
5762: hrentmnt.remove_pay_proposals
5763: (p_assignment_id,
5764: v_entry.creator_id);
5765: --
5766: end if;
5861: -- as this would result in it existing during a period of time when it
5862: -- was not eligible.
5863: --
5864: if v_new_entry_start_date <> v_entry.effective_start_date then
5865: hrentmnt.validate_adjust_entry
5866: ('UPDATE',
5867: p_assignment_id,
5868: v_entry.element_entry_id,
5869: 'START',
5885: --
5886: end loop;
5887: --
5888: if g_debug then
5889: hr_utility.trace('Out hrentmnt.adjust_entries_pqc');
5890: end if;
5891: --
5892: end adjust_entries_pqc;
5893: --
5892: end adjust_entries_pqc;
5893: --
5894: ------------------------------------------------------------------------------
5895: -- NAME --
5896: -- hrentmnt.adjust_entries_cncl_term --
5897: -- --
5898: -- DESCRIPTION --
5899: -- Adjusts element entries that have been closed down during a termination. --
5900: -- When the termination is cancelled all recurring element entries that --
5998: procedure check_parameters is
5999: --
6000: begin
6001: --
6002: hr_utility.trace('In hrentmnt.adjust_entries_cncl_term');
6003: hr_utility.trace ('');
6004: hr_utility.trace (' p_business_group_id = '
6005: ||to_char (p_business_group_id));
6006: hr_utility.trace (' p_assignment_id = '
6024: end if;
6025: --
6026: -- Maintain assignment link usages for the assignment.
6027: --
6028: hrentmnt.maintain_alu_asg
6029: (p_assignment_id,
6030: p_business_group_id,
6031: p_dt_mode,
6032: p_old_people_group_id,
6056: open csr_period_start_date( p_assignment_id, p_final_process_date);
6057: fetch csr_period_start_date into v_period_start_date;
6058: If csr_period_start_date%FOUND then
6059: if g_debug then
6060: hr_utility.trace(' hrentmnt.adjust_entries_cncl_term period_start_date'||to_char(v_period_start_date));
6061: end if;
6062:
6063: --
6064: hrentmnt.adjust_nonrecurring_entries
6060: hr_utility.trace(' hrentmnt.adjust_entries_cncl_term period_start_date'||to_char(v_period_start_date));
6061: end if;
6062:
6063: --
6064: hrentmnt.adjust_nonrecurring_entries
6065: (p_assignment_id,
6066: v_period_start_date,
6067: p_final_process_date,
6068: v_entries_changed,
6098: if v_entry.effective_end_date < v_entry_end_date then
6099: --
6100: -- Extend the recurring entry end date to the correct date.
6101: --
6102: hrentmnt.validate_adjust_entry
6103: ('UPDATE',
6104: p_assignment_id,
6105: v_entry.element_entry_id,
6106: 'END',
6114: --
6115: end loop;
6116: --
6117: if g_debug then
6118: hr_utility.trace('Out hrentmnt.adjust_entries_cncl_term');
6119: end if;
6120: --
6121: end adjust_entries_cncl_term;
6122: --
6121: end adjust_entries_cncl_term;
6122: --
6123: ------------------------------------------------------------------------------
6124: -- NAME --
6125: -- hrentmnt.adjust_entries_cncl_hire --
6126: -- --
6127: -- DESCRIPTION --
6128: -- Adjusts element entries that are no longer valid when the hiring of a --
6129: -- person to an assignment is cancelled. The assignment ceases to exist as --
6150: procedure check_parameters is
6151: --
6152: begin
6153: --
6154: hr_utility.trace('In hrentmnt.adjust_entries_cncl_hire');
6155: hr_utility.trace ('');
6156: hr_utility.trace (' p_business_group_id = '
6157: ||to_char (p_business_group_id));
6158: hr_utility.trace (' p_assignment_id = '
6174: end if;
6175: --
6176: -- Maintain assignment link usages for the assignment.
6177: --
6178: hrentmnt.maintain_alu_asg
6179: (p_assignment_id,
6180: p_business_group_id,
6181: p_dt_mode,
6182: p_old_people_group_id,
6191: --
6192: -- Make sure there are no nonrecurring entries that have been made
6193: -- invalid by a change in assignment criteria.
6194: --
6195: hrentmnt.val_nonrec_entries
6196: (p_assignment_id,
6197: p_validation_start_date,
6198: p_validation_end_date,
6199: p_entries_changed);
6200: --
6201: -- Remove any recurring entries which are no longer valid.
6202: --
6203: /*
6204: hrentmnt.remove_ineligible_recurring
6205: (p_assignment_id,
6206: p_entries_changed);
6207: Added the p_dt_mode parameter to the following call to enable purging of
6208: entries if cancel hire is being done*/
6205: (p_assignment_id,
6206: p_entries_changed);
6207: Added the p_dt_mode parameter to the following call to enable purging of
6208: entries if cancel hire is being done*/
6209: hrentmnt.remove_ineligible_recurring
6210: (p_assignment_id,
6211: p_entries_changed,
6212: p_validation_start_date,
6213: p_validation_end_date,
6214: p_dt_mode);
6215: --
6216: -- Remove any nonrecurring entries which are no longer valid.
6217: --
6218: hrentmnt.remove_ineligible_nonrecurring
6219: (p_assignment_id,
6220: p_validation_start_date,
6221: p_validation_end_date,
6222: p_entries_changed);
6221: p_validation_end_date,
6222: p_entries_changed);
6223: --
6224: if g_debug then
6225: hr_utility.trace('Out hrentmnt.adjust_entries_cncl_hire');
6226: end if;
6227: --
6228: end adjust_entries_cncl_hire;
6229: --
6228: end adjust_entries_cncl_hire;
6229: --
6230: ------------------------------------------------------------------------------
6231: -- NAME --
6232: -- hrentmnt.adjust_entries_asg_criteria --
6233: -- --
6234: -- DESCRIPTION --
6235: -- Adjusts element entries that are affected by changes in assignment --
6236: -- criteria. --
6527: v_entry_end_date date;
6528: v_val_start_date_minus_one date;
6529: v_val_end_date_plus_one date;
6530: v_entry_count number := 0;
6531: v_entry_start_date_tbl hrentmnt.t_date_table;
6532: v_entry_end_date_tbl hrentmnt.t_date_table;
6533: v_message_name varchar2(30);
6534: v_appl_short_name varchar2(30);
6535: l_proc constant varchar2 (72) := g_package||'adjust_entries_asg_criteria';
6528: v_val_start_date_minus_one date;
6529: v_val_end_date_plus_one date;
6530: v_entry_count number := 0;
6531: v_entry_start_date_tbl hrentmnt.t_date_table;
6532: v_entry_end_date_tbl hrentmnt.t_date_table;
6533: v_message_name varchar2(30);
6534: v_appl_short_name varchar2(30);
6535: l_proc constant varchar2 (72) := g_package||'adjust_entries_asg_criteria';
6536: --
6596: end if;
6597: --
6598: -- Maintain assignment link usages for the assignment.
6599: --
6600: hrentmnt.maintain_alu_asg (p_assignment_id,
6601: p_business_group_id,
6602: p_dt_mode,
6603: p_old_people_group_id,
6604: p_new_people_group_id,
6612: --
6613: -- Make sure there are no nonrecurring entries that have been made
6614: -- invalid by a change in assignment criteria.
6615: --
6616: hrentmnt.val_nonrec_entries ( p_assignment_id,
6617: p_validation_start_date,
6618: p_validation_end_date,
6619: p_entries_changed);
6620: --
6619: p_entries_changed);
6620: --
6621: -- Remove any nonrecurring entries which are no longer valid.
6622: --
6623: hrentmnt.remove_ineligible_nonrecurring ( p_assignment_id,
6624: p_validation_start_date,
6625: p_validation_end_date,
6626: p_entries_changed);
6627: --
6640: --
6641: -- Adjust any nonrecurring entries which have been affected by a change
6642: -- of payroll.
6643: --
6644: hrentmnt.adjust_nonrecurring_entries ( p_assignment_id,
6645: v_val_start_date_minus_one,
6646: v_val_end_date_plus_one,
6647: p_entries_changed,
6648: p_dt_mode);
6649: --
6650: -- Check for element entries which have more than one adjustments
6651: -- in the same pay period.
6652: -- Fix for bug 8419416
6653: hrentmnt.validate_adjustment_entries ( p_new_payroll_id,
6654: p_assignment_id,
6655: v_val_start_date_minus_one);
6656: --
6657: end if;
6658: --
6659: -- Remove any recurring entries that are no longer eligible NB. this makes
6660: -- the adjustment of entries easier.
6661: --
6662: hrentmnt.remove_ineligible_recurring(p_assignment_id, p_entries_changed,p_validation_start_date,p_validation_end_date,p_dt_mode);
6663: --
6664: -- By this stage, all that should be left to do is to adjust the dates of
6665: -- any entries which cross the boundary of the criteria change and to insert
6666: -- any standard entries for which the assignment is eligible as a result of
6733: -- element entry. This should not stop other entries being created !
6734: --
6735: begin
6736: --
6737: hrentmnt.return_entry_dates (p_assignment_id,
6738: v_asg_start_date,
6739: v_link.element_link_id,
6740: v_link.effective_start_date,
6741: v_link.standard_link_flag,
6803: end if;
6804: --
6805: -- See if multiple entries are allowed.
6806: --
6807: v_mult_ent_allowed_flag := hrentmnt.mult_ent_allowed_flag
6808: (v_link.element_link_id);
6809: --
6810: hrentmnt.adjust_recurring_entries ( p_dt_mode,
6811: p_assignment_id,
6806: --
6807: v_mult_ent_allowed_flag := hrentmnt.mult_ent_allowed_flag
6808: (v_link.element_link_id);
6809: --
6810: hrentmnt.adjust_recurring_entries ( p_dt_mode,
6811: p_assignment_id,
6812: v_link.element_link_id,
6813: v_link.standard_link_flag,
6814: v_mult_ent_allowed_flag,
6834: --
6835: end loop;
6836: --
6837: if g_debug then
6838: hr_utility.trace('Out hrentmnt.adjust_entries_asg_criteria');
6839: end if;
6840: --
6841: end adjust_entries_asg_criteria;
6842: --
6841: end adjust_entries_asg_criteria;
6842: --
6843: ------------------------------------------------------------------------------
6844: -- NAME --
6845: -- hrentmnt.maintain_entries_el --
6846: -- --
6847: -- DESCRIPTION --
6848: -- Creates element entries on creation of a standard element link. --
6849: -- If p_assignment_id is specified, the element entry is created only for --
6926: procedure check_parameters is
6927: --
6928: begin
6929: --
6930: hr_utility.trace ('hrentmnt.maintain_entries_el');
6931: hr_utility.trace ('');
6932: hr_utility.trace (' p_business_group_id = '
6933: ||to_char (p_business_group_id));
6934: hr_utility.trace (' p_element_link_id = '
7180: -- termination rule is before the calculated start date of the element
7181: -- entry. This should not stop other entries being created !
7182: --
7183: begin
7184: hrentmnt.return_entry_dates
7185: (v_asg_id,
7186: v_asg_start_date,
7187: p_element_link_id,
7188: p_effective_start_date,
7265: --
7266: close csr_assignment;
7267: --
7268: if g_debug then
7269: hr_utility.trace ('Out hrentmnt.maintain_entries_el');
7270: end if;
7271: --
7272: end maintain_entries_el;
7273: --
7394: --
7395: --
7396: ------------------------------------------------------------------------------
7397: -- NAME --
7398: -- hrentmnt.maintain_entries_asg --
7399: -- --
7400: -- DESCRIPTION --
7401: -- This forms the interface into the procedures that maintain element --
7402: -- entries when affected by various events ie. --
7444: procedure check_parameters is
7445: --
7446: begin
7447: --
7448: hr_utility.trace('In hrentmnt.maintain_entries_asg');
7449: hr_utility.trace ('');
7450: hr_utility.trace (' p_assignment_id = '
7451: ||to_char (p_assignment_id));
7452: hr_utility.trace (' p_old_payroll_id = '
7500: --
7501: -- Qualifying conditions have changed.
7502: --
7503: if p_operation = 'CHANGE_PQC' then
7504: hrentmnt.adjust_entries_pqc
7505: (p_assignment_id,
7506: p_entries_changed);
7507: --
7508: -- An employee termination is being cancelled.
7507: --
7508: -- An employee termination is being cancelled.
7509: --
7510: elsif p_operation = 'CNCL_TERM' then
7511: hrentmnt.adjust_entries_cncl_term
7512: (p_business_group_id,
7513: p_assignment_id,
7514: p_actual_term_date,
7515: p_last_standard_date,
7528: --
7529: -- The hiring of an employee has been cancelled.
7530: --
7531: elsif p_operation = 'CNCL_HIRE' then
7532: hrentmnt.adjust_entries_cncl_hire
7533: (p_business_group_id,
7534: p_assignment_id,
7535: p_validation_start_date,
7536: p_validation_end_date,
7548: --
7549: -- An employees assignment has been changed.
7550: --
7551: elsif p_operation ='ASG_CRITERIA' then
7552: hrentmnt.adjust_entries_asg_criteria
7553: (p_business_group_id,
7554: p_assignment_id,
7555: p_dt_mode,
7556: p_old_payroll_id,
7579: -- The min value of the pay_people_groups_s sequence is 1, so setting
7580: -- p_old_people_group_id to 0 will guarantee the old and new people group
7581: -- ids will always differ.
7582: --
7583: hrentmnt.adjust_entries_asg_criteria
7584: (p_business_group_id,
7585: p_assignment_id,
7586: p_dt_mode,
7587: p_old_payroll_id,
7598: p_new_employment_category);
7599: end if;
7600: --
7601: if g_debug then
7602: hr_utility.trace('Out hrentmnt.maintain_entries_asg');
7603: end if;
7604: --
7605: exception
7606: when others then
7622: end maintain_entries_asg;
7623: --
7624: ------------------------------------------------------------------------------
7625: -- NAME --
7626: -- hrentmnt.maintain_entries_asg --
7627: -- Overloaded version2 to allow backward compatibility. --
7628: -- --
7629: -- DESCRIPTION --
7630: -- This forms the interface into the procedures that maintain element --
7659: procedure check_parameters is
7660: --
7661: begin
7662: --
7663: hr_utility.trace('In hrentmnt.maintain_entries_asg. overload 2 with pg but no org');
7664: --
7665: end check_parameters;
7666: --
7667: begin
7675: check_parameters;
7676: end if;
7677: --
7678: -- bug 12728282 call overloaded version - no org_id is available
7679: hrentmnt.maintain_entries_asg
7680: (p_assignment_id,
7681: p_old_payroll_id,
7682: p_new_payroll_id,
7683: p_business_group_id,
7715: end maintain_entries_asg;
7716: --
7717: ------------------------------------------------------------------------------
7718: -- NAME --
7719: -- hrentmnt.maintain_entries_asg --
7720: -- --
7721: -- DESCRIPTION --
7722: -- Overloaded version1 to allow backward compatibility. --
7723: ------------------------------------------------------------------------------
7742: procedure check_parameters is
7743: --
7744: begin
7745: --
7746: hr_utility.trace('In hrentmnt.maintain_entries_asg. overload 1 no pg or org');
7747: --
7748: end check_parameters;
7749: --
7750: begin
7756: if g_debug then
7757: check_parameters;
7758: end if;
7759: --
7760: hrentmnt.maintain_entries_asg
7761: (p_assignment_id,
7762: 1,
7763: 2,
7764: p_business_group_id,
7790: end maintain_entries_asg;
7791: --
7792: ------------------------------------------------------------------------------
7793: -- NAME --
7794: -- hrentmnt.check_opmu --
7795: -- --
7796: -- DESCRIPTION --
7797: -- Ensures that on transfer of Payroll (on the Assignment) or when a change --
7798: -- causes the Payroll to change in the future that Personal Payment Methods --
7832: procedure check_parameters is
7833: --
7834: begin
7835: --
7836: hr_utility.trace ('In hrentmnt.check_opmu');
7837: hr_utility.trace ('');
7838: hr_utility.trace (' p_assignment_id = '
7839: ||to_char (p_assignment_id));
7840: hr_utility.trace (' p_payroll_id = '
7977: hr_utility.raise_error;
7978: end if;
7979: --
7980: if g_debug then
7981: hr_utility.trace ('Out hrentmnt.check_opmu');
7982: end if;
7983: --
7984: end check_opmu;
7985: --
8006: l_new_eed date;
8007: l_object_version_number number;
8008: l_warnings_exist boolean;
8009: l_new_final_process_date date;
8010: l_proc varchar2(80):= 'hrentmnt.move_fpd_entries';
8011: --
8012: cursor process_entries(c_old_final_process_date date, c_assignment_id number) is
8013: select asg.assignment_id,
8014: ee.element_entry_id,
8178:
8179: END move_fpd_entries;
8180: --
8181:
8182: end hrentmnt;