[Home] [Help]
1: package body hrentmnt as
2: /* $Header: pyentmnt.pkb 120.32.12010000.6 2008/09/30 06:24:40 salogana ship $ */
3: --
4: g_debug boolean := hr_utility.debug_enabled;
5: indent varchar2 (32767) := null;
2: /* $Header: pyentmnt.pkb 120.32.12010000.6 2008/09/30 06:24:40 salogana ship $ */
3: --
4: g_debug boolean := hr_utility.debug_enabled;
5: indent varchar2 (32767) := null;
6: g_package constant varchar2 (32) := 'hrentmnt.';
7: --
8: -- Record type to cache an element entry for use when splitting into two.
9: --
10: type t_ele_entry_rec is record
112: type t_eligible_links_cur is ref cursor return t_eligible_links_rec;
113: --
114: ------------------------------------------------------------------------------
115: -- NAME --
116: -- hrentmnt.min_eligibility_date --
117: -- --
118: -- DESCRIPTION --
119: -- Calculates the minimum date an element entries start date could be set --
120: -- to taking into account the eligibility of the element entry over time. --
267: fetch csr_link into v_link_rec;
268: if csr_link%notfound then
269: close csr_link;
270: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
271: hr_utility.set_message_token('PROCEDURE', 'hrentmnt.min_eligibility_date');
272: hr_utility.set_message_token('STEP','1');
273: hr_utility.raise_error;
274: end if;
275: close csr_link;
303: fetch csr_assignment into v_asg_rec;
304: if csr_assignment%notfound then
305: close csr_assignment;
306: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
307: hr_utility.set_message_token('PROCEDURE', 'hrentmnt.min_eligibility_date');
308: hr_utility.set_message_token('STEP','2');
309: hr_utility.raise_error;
310: end if;
311: --
378: end min_eligibility_date;
379: --
380: ------------------------------------------------------------------------------
381: -- NAME --
382: -- hrentmnt.maintain_alu_asg --
383: -- --
384: -- DESCRIPTION --
385: -- Maintains the ALU's for an assignment. An ALU represnts the intersection --
386: -- of the people group flexfield on the assignment and element link. The --
730: end maintain_alu_asg;
731: --
732: ------------------------------------------------------------------------------
733: -- NAME --
734: -- hrentmnt.remove_pay_proposals --
735: -- --
736: -- DESCRIPTION --
737: -- Salary Admin specific procedure that will remove a pay proposal if there --
738: -- are no element entries for the pay proposal. --
759: end remove_pay_proposals;
760: --
761: ------------------------------------------------------------------------------
762: -- NAME --
763: -- hrentmnt.remove_quickpay_inclusions --
764: -- --
765: -- DESCRIPTION --
766: -- Removes any quickpay inclusions for which the element entry no longer --
767: -- date effectively exists NB. the procedure is used with the assumption --
794: end remove_quickpay_inclusions;
795: --
796: ------------------------------------------------------------------------------
797: -- NAME --
798: -- hrentmnt.remove_quickpay_exclusions --
799: -- --
800: -- DESCRIPTION --
801: -- Introduced via enhancement 3368211
802: -- Removes any quickpay exclusions for which the element entry no longer --
830: end remove_quickpay_exclusions;
831: --
832: ------------------------------------------------------------------------------
833: -- NAME --
834: -- hrentmnt.check_payroll_changes_asg --
835: -- --
836: -- DESCRIPTION --
837: -- Makes sure that payroll exists for the lifetime of the assignment that --
838: -- uses it and also makes sure that no assignment actions are orphaned by a --
1092: end check_payroll_changes_asg;
1093: --
1094: ------------------------------------------------------------------------------
1095: -- NAME --
1096: -- hrentmnt.cache_element_entry --
1097: -- --
1098: -- DESCRIPTION --
1099: -- When splitting element entries ie. when there is a change in assignment --
1100: -- criteria, the entry values are cached and used when creating the second --
1104: procedure cache_element_entry
1105: (
1106: p_element_entry_id number,
1107: p_date date,
1108: p_ele_entry_rec out nocopy hrentmnt.t_ele_entry_rec,
1109: p_num_entry_values out nocopy number,
1110: p_input_value_id_tbl out nocopy hr_entry.number_table,
1111: p_entry_value_tbl out nocopy hr_entry.varchar2_table
1112: ) is
1139: and et.effective_end_date;
1140: --
1141: -- Local Variables
1142: --
1143: v_ele_entry_rec hrentmnt.t_ele_entry_rec;
1144: v_num_values number := 0;
1145: v_input_value_id_tbl hr_entry.number_table;
1146: v_entry_value_tbl hr_entry.varchar2_table;
1147: v_db_format varchar2(60);
1150: procedure check_parameters is
1151: --
1152: begin
1153: --
1154: hr_utility.trace('In hrentmnt.cache_element_entry');
1155: --
1156: hr_utility.trace ('');
1157: hr_utility.trace (' p_element_entry_id = '
1158: ||to_char (p_element_entry_id));
1249: exception
1250: when no_data_found then
1251: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1252: hr_utility.set_message_token('PROCEDURE',
1253: 'hrentmnt.cache_element_entry');
1254: hr_utility.set_message_token('STEP','1');
1255: hr_utility.raise_error;
1256: end;
1257: --
1334: p_input_value_id_tbl := v_input_value_id_tbl;
1335: p_entry_value_tbl := v_entry_value_tbl;
1336: --
1337: if g_debug then
1338: hr_utility.trace('Out hrentmnt.cache_element_entry');
1339: end if;
1340: --
1341: end cache_element_entry;
1342: --
1341: end cache_element_entry;
1342: --
1343: ------------------------------------------------------------------------------
1344: -- NAME --
1345: -- hrentmnt.check_entry_overridden --
1346: -- --
1347: -- DESCRIPTION --
1348: -- Checks to see if a change in the existence of a recurring element entry --
1349: -- will leave an override for it that will exist outside the recurring --
1365: procedure check_parameters is
1366: --
1367: begin
1368: --
1369: hr_utility.trace('In hrentmnt.check_entry_overridden');
1370: hr_utility.trace ('');
1371: hr_utility.trace(' p_assignment_id = '
1372: ||to_char (p_assignment_id));
1373: hr_utility.trace(' p_element_entry_id = '
1415: end check_entry_overridden;
1416: --
1417: ------------------------------------------------------------------------------
1418: -- NAME --
1419: -- hrentmnt.validate_adjust_entry --
1420: -- --
1421: -- DESCRIPTION --
1422: -- Validates and adjusts recurring element entries. It accepts 2 modes ie. --
1423: -- UPDATE and DELETE NB. only UPDATE will result in changes to an --
1487: procedure check_parameters is
1488: --
1489: begin
1490: --
1491: hr_utility.trace('In hrentmnt.validate_adjust_entry');
1492: hr_utility.trace ('');
1493: hr_utility.trace (' p_mode = '
1494: ||p_mode);
1495: hr_utility.trace (' p_assignment_id = '
1582: p_old_date < p_new_date) or
1583: (p_start_or_end_date = 'END' and
1584: p_old_date > p_new_date))) then
1585: --
1586: hrentmnt.check_entry_overridden
1587: (p_assignment_id,
1588: p_element_entry_id,
1589: v_change_start_date,
1590: v_change_end_date);
1596: -- There is a chance the element entry id exists in both tables if
1597: -- any QuickPay assignment actions were created before the QuickPay
1598: -- Exclusions data model was in use.
1599: --
1600: hrentmnt.remove_quickpay_exclusions
1601: (p_element_entry_id,
1602: v_change_start_date,
1603: v_change_end_date);
1604: --
1601: (p_element_entry_id,
1602: v_change_start_date,
1603: v_change_end_date);
1604: --
1605: hrentmnt.remove_quickpay_inclusions
1606: (p_element_entry_id,
1607: v_change_start_date,
1608: v_change_end_date);
1609: --
1693: --
1694: end if;
1695: --
1696: if g_debug then
1697: hr_utility.trace('Out hrentmnt.validate_adjust_entry');
1698: end if;
1699: --
1700: end validate_adjust_entry;
1701: --
1700: end validate_adjust_entry;
1701: --
1702: ------------------------------------------------------------------------------
1703: -- NAME --
1704: -- hrentmnt.validate_purge --
1705: -- --
1706: -- DESCRIPTION --
1707: -- Validates whether it is legal to purge a particular element entry --
1708: -- depending on the setting of the HR_ELE_ENTRY_PURGE_CONTROL profile and --
1773: p_new_element_entry_ESD in date,
1774: p_new_element_entry_EED in date)
1775: is
1776: begin
1777: hr_utility.trace('> hrentmnt.maintain_dependent_entities');
1778:
1779: if g_debug then
1780: hr_utility.trace('p_element_entry_id >' || p_element_entry_id || '<');
1781: hr_utility.trace('p_element_entry_ESD >' || p_element_entry_ESD || '<');
1791: end maintain_dependent_entities;
1792: --
1793: ------------------------------------------------------------------------------
1794: -- NAME --
1795: -- hrentmnt.open_asg_criteria_cur --
1796: -- --
1797: -- SINCE --
1798: -- Bugfix 5584631 --
1799: -- --
1829: end open_asg_criteria_cur;
1830: --
1831: ------------------------------------------------------------------------------
1832: -- NAME --
1833: -- hrentmnt.open_eligible_links_cur --
1834: -- --
1835: -- SINCE --
1836: -- Bugfix 5584631 --
1837: -- --
1962: end open_eligible_links_cur;
1963: --
1964: ------------------------------------------------------------------------------
1965: -- NAME --
1966: -- hrentmnt.recreate_cached_entry --
1967: -- --
1968: -- SINCE --
1969: -- Bugfix 5247607 --
1970: -- --
1984: p_validation_end_date in date,
1985: p_ee_effective_start_date in date,
1986: p_ee_effective_end_date in date,
1987: p_ee_creator_type in varchar2,
1988: p_rec_ee in hrentmnt.t_ele_entry_rec,
1989: p_num_eevs in number,
1990: p_tbl_ivids in hr_entry.number_table,
1991: p_tbl_eevs in hr_entry.varchar2_table,
1992: p_entry_recreated out nocopy boolean
1992: p_entry_recreated out nocopy boolean
1993: )
1994: is
1995: --
1996: l_proc varchar2(80) := 'hrentmnt.recreate_cached_entry';
1997: l_asg_criteria_cv t_asg_criteria_cur;
1998: l_rec_asg_criteria t_asg_criteria_rec;
1999: l_eligible_links_cv t_eligible_links_cur;
2000: rec_eligible_links t_eligible_links_rec;
2254: end recreate_cached_entry;
2255: --
2256: ------------------------------------------------------------------------------
2257: -- NAME --
2258: -- hrentmnt.remove_ineligible_recurring --
2259: -- --
2260: -- DESCRIPTION --
2261: -- Removes any recurring element entries for a particular assignment and --
2262: -- element link that exist within a specified period of time that are not --
2421: is
2422: --
2423: begin
2424: --
2425: hr_utility.trace('In hrentmnt.remove_ineligible_recurring');
2426: hr_utility.trace ('');
2427: hr_utility.trace (' p_assignment_id = '||to_char (p_assignment_id));
2428: hr_utility.trace (' p_entries_changed = '||p_entries_changed);
2429: hr_utility.trace (' p_validation_start_date = '||to_char(p_validation_start_date,'DD-MON-YYYY'));
2456: p_entries_changed in out nocopy varchar2
2457: )
2458: is
2459: --
2460: l_rec_ee hrentmnt.t_ele_entry_rec;
2461: l_num_eevs number := 0;
2462: l_tbl_ivids hr_entry.number_table;
2463: l_tbl_eevs hr_entry.varchar2_table;
2464: l_entry_recreated boolean := false;
2469: hr_utility.trace ('***** doing normal delete of REE');
2470: hr_utility.trace ('***** caching EE before delete');
2471: end if;
2472: --
2473: hrentmnt.cache_element_entry(
2474: p_element_entry_id,
2475: p_ee_effective_end_date,
2476: l_rec_ee,
2477: l_num_eevs,
2477: l_num_eevs,
2478: l_tbl_ivids,
2479: l_tbl_eevs);
2480: --
2481: hrentmnt.validate_adjust_entry
2482: ('DELETE',
2483: p_assignment_id,
2484: p_element_entry_id,
2485: null,
2537: where pee.element_entry_id = p_element_entry_id);
2538: --
2539: -- Call the routine that checks whether an illegal purge
2540: -- has occurred (i.e. disallowed by profile).
2541: hrentmnt.validate_purge(p_element_entry_id, p_element_link_id);
2542: --
2543: -- Salary Admin entry is being removed. See if the pay proposal is used by
2544: -- any other entry. If not then it is removed.
2545: --
2544: -- any other entry. If not then it is removed.
2545: --
2546: if p_ee_creator_type = 'SP' then
2547: --
2548: hrentmnt.remove_pay_proposals
2549: (p_assignment_id,
2550: p_ee_creator_id);
2551: --
2552: end if;
2587: FROM per_business_groups
2588: where business_group_id=p_business_group_id;
2589:
2590: --
2591: l_rec_ee hrentmnt.t_ele_entry_rec;
2592: l_num_eevs number := 0;
2593: l_tbl_ivids hr_entry.number_table;
2594: l_tbl_eevs hr_entry.varchar2_table;
2595: l_entry_recreated boolean := false;
2604: hr_utility.trace ('***** VSD|<----- |VED *****');
2605: hr_utility.trace ('***** current |-----------------| *****');
2606: end if;
2607: --
2608: hrentmnt.validate_adjust_entry
2609: ('DELETE',
2610: p_assignment_id,
2611: p_element_entry_id,
2612: null,
2651: -- Bugfix 4520103
2652: -- Use p_validation_start_date - 1 as this is the new effective end
2653: -- date of the entry.
2654: --
2655: hrentmnt.cache_element_entry(
2656: p_element_entry_id,
2657: p_validation_start_date - 1,
2658: l_rec_ee,
2659: l_num_eevs,
2737: hr_utility.trace ('***** VSD| ----->|VED *****');
2738: hr_utility.trace ('***** current |-----------------> *****');
2739: end if;
2740: --
2741: hrentmnt.validate_adjust_entry
2742: ('DELETE',
2743: p_assignment_id,
2744: p_element_entry_id,
2745: null,
2826: end loop;
2827: --
2828: if g_debug then
2829: --
2830: hr_utility.trace('Out hrentmnt.remove_ineligible_recurring');
2831: --
2832: end if;
2833: --
2834: return;
2929: end if;
2930: end loop;
2931: --
2932: if g_debug then
2933: hr_utility.trace('Out hrentmnt.remove_ineligible_recurring');
2934: end if;
2935: --
2936: end remove_ineligible_recurring;
2937: --
2936: end remove_ineligible_recurring;
2937: --
2938: ------------------------------------------------------------------------------
2939: -- NAME --
2940: -- hrentmnt.remove_ineligible_nonrecurring --
2941: -- --
2942: -- DESCRIPTION --
2943: -- Deletes any nonrecurring element entries that will be made ineligible by --
2944: -- a change in assignment criteria. The delete runs after the change to the --
3032: asg.effective_start_date)));
3033: --
3034: procedure check_parameters is
3035: begin
3036: hr_utility.trace('In hrentmnt.remove_ineligible_nonrecurring');
3037: --
3038: hr_utility.trace ('');
3039: hr_utility.trace (' p_assignment_id = '
3040: ||to_char(p_assignment_id));
3062: p_validation_start_date,
3063: p_validation_end_date) loop
3064: --
3065: --
3066: hrentmnt.validate_adjust_entry
3067: ('DELETE',
3068: p_assignment_id,
3069: v_entry.element_entry_id,
3070: null,
3113: where ee.element_entry_id = v_entry.element_entry_id;*/
3114: --
3115: -- Call the routine that checks whether an illegal purge
3116: -- has occurred (i.e. disallowed by profile).
3117: hrentmnt.validate_purge(v_entry.element_entry_id, v_entry.element_link_id);
3118: --
3119: end loop;
3120: --
3121: if g_debug then
3118: --
3119: end loop;
3120: --
3121: if g_debug then
3122: hr_utility.trace('Out hrentmnt.remove_ineligible_nonrecurring');
3123: end if;
3124: --
3125: end remove_ineligible_nonrecurring;
3126: --
3125: end remove_ineligible_nonrecurring;
3126: --
3127: ------------------------------------------------------------------------------
3128: -- NAME --
3129: -- hrentmnt.return_entry_dates --
3130: -- --
3131: -- DESCRIPTION --
3132: -- Given an assignment and element link this returns the start and end --
3133: -- dates of the element entry taking into account personal qualifying --
3159: procedure check_parameters is
3160: --
3161: begin
3162: --
3163: hr_utility.trace('In hrentmnt.return_entry_dates');
3164: hr_utility.trace ('');
3165: hr_utility.trace (' p_assignment_id = '
3166: ||to_char (p_assignment_id));
3167: hr_utility.trace (' p_asg_start_date = '
3232: p_entry_end_date := v_entry_end_date;
3233: end if;
3234: --
3235: if g_debug then
3236: hr_utility.trace('Out hrentmnt.return_entry_dates');
3237: end if;
3238: --
3239: end return_entry_dates;
3240: --
3239: end return_entry_dates;
3240: --
3241: ------------------------------------------------------------------------------
3242: -- NAME --
3243: -- hrentmnt.mult_ent_allowed_flag --
3244: -- --
3245: -- DESCRIPTION --
3246: -- Simple function to return a flag indicating if multiple entries are --
3247: -- allowed for a particular element type. --
3271: procedure check_parameters is
3272: --
3273: begin
3274: --
3275: hr_utility.trace('In hrentmnt.mult_ent_allowed_flag');
3276: hr_utility.trace ('');
3277: hr_utility.trace (' p_element_link_id = '
3278: ||to_char (p_element_link_id));
3279: hr_utility.trace ('');
3291: if csr_element%notfound then
3292: close csr_element;
3293: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3294: hr_utility.set_message_token('PROCEDURE',
3295: 'hrentmnt.mult_ent_allowed_flag');
3296: hr_utility.set_message_token('STEP','1');
3297: hr_utility.raise_error;
3298: end if;
3299: close csr_element;
3303: end mult_ent_allowed_flag;
3304: --
3305: ------------------------------------------------------------------------------
3306: -- NAME --
3307: -- hrentmnt.val_nonrec_entries --
3308: -- --
3309: -- DESCRIPTION --
3310: -- Checks to see if there are nonrecurring element entries that will be --
3311: -- made ineligible by a change in assignment criteria. The check runs --
3455: l_eligible_links_rec t_eligible_links_rec;
3456: l_link_suitable boolean;
3457: l_creator_type_meaning varchar2(60);
3458: l_adjust_ee_source varchar2(1);
3459: l_proc varchar2(80) := 'hrentmnt.val_nonrec_entries';
3460: --
3461: l_obj_ver_num number;
3462: l_eff_str_date date;
3463: l_eff_end_date date;
3669: end val_nonrec_entries;
3670: --
3671: ------------------------------------------------------------------------------
3672: -- NAME --
3673: -- hrentmnt.adjust_nonrecurring_entries --
3674: -- --
3675: -- DESCRIPTION --
3676: -- Adjusts nonrecurring entries when there is a change in payroll or the --
3677: -- assignment ends. Nonrecurring entries now only exist for the duration of --
3731: procedure check_parameters is
3732: --
3733: begin
3734: --
3735: hr_utility.trace ('In hrentmnt.adjust_nonrecurring_entries');
3736: hr_utility.trace ('');
3737: hr_utility.trace (' p_assignment_id = '
3738: ||to_char (p_assignment_id));
3739: hr_utility.trace (' p_val_start_date_minus_one = '
3867: --
3868: -- If current start date is wrong then adjust nonrecurring entry.
3869: --
3870: if v_entry.effective_start_date <> v_effective_start_date then
3871: hrentmnt.validate_adjust_entry
3872: ('UPDATE',
3873: p_assignment_id,
3874: v_entry.element_entry_id,
3875: 'START',
3882: --
3883: -- If current end date is wrong then adjust nonrecurring entry.
3884: --
3885: if v_entry.effective_end_date <> v_effective_end_date then
3886: hrentmnt.validate_adjust_entry
3887: ('UPDATE',
3888: p_assignment_id,
3889: v_entry.element_entry_id,
3890: 'END',
3897: --
3898: end loop;
3899: --
3900: if g_debug then
3901: hr_utility.trace ('Out hrentmnt.adjust_nonrecurring_entries');
3902: end if;
3903: --
3904: end adjust_nonrecurring_entries;
3905: --
3947: end get_entry_info_category;
3948:
3949: ------------------------------------------------------------------------------
3950: -- NAME --
3951: -- hrentmnt.adjust_recurring_entries --
3952: -- --
3953: -- DESCRIPTION --
3954: -- When passed a table containing what an element entry should look like --
3955: -- for a particular assignment and element link, it finds and adjusts all --
3974: p_validation_end_date date,
3975: p_val_start_date_minus_one date,
3976: p_val_end_date_plus_one date,
3977: p_entry_count number,
3978: p_entry_start_date_tbl hrentmnt.t_date_table,
3979: p_entry_end_date_tbl hrentmnt.t_date_table,
3980: p_entries_changed in out nocopy varchar2,
3981: p_old_hire_date date
3982: ) is
3975: p_val_start_date_minus_one date,
3976: p_val_end_date_plus_one date,
3977: p_entry_count number,
3978: p_entry_start_date_tbl hrentmnt.t_date_table,
3979: p_entry_end_date_tbl hrentmnt.t_date_table,
3980: p_entries_changed in out nocopy varchar2,
3981: p_old_hire_date date
3982: ) is
3983: --
4076: v_entry_start_date date;
4077: v_entry_end_date date;
4078: v_calc_entry_start_date date;
4079: v_calc_entry_end_date date;
4080: v_ele_entry_rec hrentmnt.t_ele_entry_rec;
4081: v_num_entry_values number := 0;
4082: v_input_value_id_tbl hr_entry.number_table;
4083: v_entry_value_tbl hr_entry.varchar2_table;
4084:
4088: procedure check_parameters is
4089: --
4090: begin
4091: --
4092: hr_utility.trace('In hrentmnt.adjust_recurring_entries');
4093: hr_utility.trace ('');
4094: hr_utility.trace (' p_dt_mode = '
4095: ||p_dt_mode);
4096: hr_utility.trace (' p_assignment_id = '
4158: when no_link_found then
4159: --
4160: fnd_message.set_name ('PAY','HR_6153_ALL_PROCEDURE_FAIL');
4161: fnd_message.set_token ('PROCEDURE',
4162: 'hrentmnt.adjust_recurring_entries');
4163: fnd_message.set_token ('STEP','1');
4164: fnd_message.raise_error;
4165: --
4166: end standard_element;
4255: --
4256: -- Take a copy of the current element entry as this may be needed
4257: -- later.
4258: --
4259: hrentmnt.cache_element_entry
4260: (v_entry.element_entry_id,
4261: v_entry.effective_end_date,
4262: v_ele_entry_rec,
4263: v_num_entry_values,
4316: --
4317: -- Validate the adjustment, maintain referential integrity,
4318: -- and adjust the element entry.
4319: --
4320: hrentmnt.validate_adjust_entry
4321: ('UPDATE',
4322: p_assignment_id,
4323: v_first_element_entry_id,
4324: 'START',
4373: --
4374: -- Validate the adjustment, maintain referential integrity,
4375: -- and adjust the element entry.
4376: --
4377: hrentmnt.validate_adjust_entry
4378: ('UPDATE',
4379: p_assignment_id,
4380: v_first_element_entry_id,
4381: 'START',
4405: hr_utility.trace ('***** calc |-------------| *****');
4406: hr_utility.trace ('***** <----- *****');
4407: hr_utility.trace ('***** current |--------------------> *****');
4408: end if;
4409: hrentmnt.validate_adjust_entry
4410: ('UPDATE',
4411: p_assignment_id,
4412: v_last_element_entry_id,
4413: 'END',
4555: --
4556: -- Validate the adjustment, maintain referential integrity,
4557: -- and adjust the element entry.
4558: --
4559: hrentmnt.validate_adjust_entry
4560: ('UPDATE',
4561: p_assignment_id,
4562: v_last_element_entry_id,
4563: 'END',
4571: --
4572: -- Validate the adjustment, maintain referential integrity,
4573: -- and adjust the element entry.
4574: --
4575: hrentmnt.validate_adjust_entry
4576: ('UPDATE',
4577: p_assignment_id,
4578: v_last_element_entry_id,
4579: 'END',
4802: --
4803: close csr_distinct_entries;
4804: --
4805: if g_debug then
4806: hr_utility.trace('Out hrentmnt.adjust_recurring_entries');
4807: end if;
4808: --
4809: end adjust_recurring_entries;
4810: --
4809: end adjust_recurring_entries;
4810: --
4811: ------------------------------------------------------------------------------
4812: -- NAME --
4813: -- hrentmnt.adjust_entries_pqc --
4814: -- --
4815: -- DESCRIPTION --
4816: -- Adjusts element entries when the personal qualifying conditions for the --
4817: -- assignment are changed ie. DOB or probation period NB. this is only --
4865: procedure check_parameters is
4866: --
4867: begin
4868: --
4869: hr_utility.trace('In hrentmnt.adjust_entries_pqc');
4870: hr_utility.trace ('');
4871: hr_utility.trace (' p_assignment_id = '
4872: ||to_char (p_assignment_id));
4873: hr_utility.trace (' p_entries_changed = '
4951: if v_start_date_qc > v_entry.effective_end_date then
4952: --
4953: -- Remove element entry that exists before qualifying conditions.
4954: --
4955: hrentmnt.validate_adjust_entry
4956: ('DELETE',
4957: p_assignment_id,
4958: v_entry.element_entry_id,
4959: null,
4978: and ee.effective_end_date = v_entry.effective_end_date;
4979: --
4980: -- Call the routine that checks whether an illegal purge
4981: -- has occurred (i.e. disallowed by profile).
4982: hrentmnt.validate_purge(v_entry.element_entry_id,
4983: v_entry.element_link_id);
4984: --
4985: -- Salary Admin entry is being removed. See if the pay proposal is
4986: -- used by any other entry. If not then it is removed.
4986: -- used by any other entry. If not then it is removed.
4987: --
4988: if v_entry.creator_type = 'SP' then
4989: --
4990: hrentmnt.remove_pay_proposals
4991: (p_assignment_id,
4992: v_entry.creator_id);
4993: --
4994: end if;
5089: -- as this would result in it existing during a period of time when it
5090: -- was not eligible.
5091: --
5092: if v_new_entry_start_date <> v_entry.effective_start_date then
5093: hrentmnt.validate_adjust_entry
5094: ('UPDATE',
5095: p_assignment_id,
5096: v_entry.element_entry_id,
5097: 'START',
5113: --
5114: end loop;
5115: --
5116: if g_debug then
5117: hr_utility.trace('Out hrentmnt.adjust_entries_pqc');
5118: end if;
5119: --
5120: end adjust_entries_pqc;
5121: --
5120: end adjust_entries_pqc;
5121: --
5122: ------------------------------------------------------------------------------
5123: -- NAME --
5124: -- hrentmnt.adjust_entries_cncl_term --
5125: -- --
5126: -- DESCRIPTION --
5127: -- Adjusts element entries that have been closed down during a termination. --
5128: -- When the termination is cancelled all recurring element entries that --
5200: procedure check_parameters is
5201: --
5202: begin
5203: --
5204: hr_utility.trace('In hrentmnt.adjust_entries_cncl_term');
5205: hr_utility.trace ('');
5206: hr_utility.trace (' p_business_group_id = '
5207: ||to_char (p_business_group_id));
5208: hr_utility.trace (' p_assignment_id = '
5226: end if;
5227: --
5228: -- Maintain assignment link usages for the assignment.
5229: --
5230: hrentmnt.maintain_alu_asg
5231: (p_assignment_id,
5232: p_business_group_id,
5233: p_dt_mode,
5234: p_old_people_group_id,
5247: -- c_sot -> validation_start_date
5248: -- p_final_process_date -> validation_end_date
5249: -- rathers than the other way around
5250: --
5251: hrentmnt.adjust_nonrecurring_entries
5252: (p_assignment_id,
5253: c_sot,
5254: p_final_process_date,
5255: v_entries_changed,
5283: if v_entry.effective_end_date < v_entry_end_date then
5284: --
5285: -- Extend the recurring entry end date to the correct date.
5286: --
5287: hrentmnt.validate_adjust_entry
5288: ('UPDATE',
5289: p_assignment_id,
5290: v_entry.element_entry_id,
5291: 'END',
5299: --
5300: end loop;
5301: --
5302: if g_debug then
5303: hr_utility.trace('Out hrentmnt.adjust_entries_cncl_term');
5304: end if;
5305: --
5306: end adjust_entries_cncl_term;
5307: --
5306: end adjust_entries_cncl_term;
5307: --
5308: ------------------------------------------------------------------------------
5309: -- NAME --
5310: -- hrentmnt.adjust_entries_cncl_hire --
5311: -- --
5312: -- DESCRIPTION --
5313: -- Adjusts element entries that are no longer valid when the hiring of a --
5314: -- person to an assignment is cancelled. The assignment ceases to exist as --
5329: procedure check_parameters is
5330: --
5331: begin
5332: --
5333: hr_utility.trace('In hrentmnt.adjust_entries_cncl_hire');
5334: hr_utility.trace ('');
5335: hr_utility.trace (' p_business_group_id = '
5336: ||to_char (p_business_group_id));
5337: hr_utility.trace (' p_assignment_id = '
5353: end if;
5354: --
5355: -- Maintain assignment link usages for the assignment.
5356: --
5357: hrentmnt.maintain_alu_asg
5358: (p_assignment_id,
5359: p_business_group_id,
5360: p_dt_mode,
5361: p_old_people_group_id,
5364: --
5365: -- Make sure there are no nonrecurring entries that have been made
5366: -- invalid by a change in assignment criteria.
5367: --
5368: hrentmnt.val_nonrec_entries
5369: (p_assignment_id,
5370: p_validation_start_date,
5371: p_validation_end_date);
5372: --
5372: --
5373: -- Remove any recurring entries which are no longer valid.
5374: --
5375: /*
5376: hrentmnt.remove_ineligible_recurring
5377: (p_assignment_id,
5378: p_entries_changed);
5379: Added the p_dt_mode parameter to the following call to enable purging of
5380: entries if cancel hire is being done*/
5377: (p_assignment_id,
5378: p_entries_changed);
5379: Added the p_dt_mode parameter to the following call to enable purging of
5380: entries if cancel hire is being done*/
5381: hrentmnt.remove_ineligible_recurring
5382: (p_assignment_id,
5383: p_entries_changed,
5384: p_validation_start_date,
5385: p_validation_end_date,
5386: p_dt_mode);
5387: --
5388: -- Remove any nonrecurring entries which are no longer valid.
5389: --
5390: hrentmnt.remove_ineligible_nonrecurring
5391: (p_assignment_id,
5392: p_validation_start_date,
5393: p_validation_end_date,
5394: p_entries_changed);
5393: p_validation_end_date,
5394: p_entries_changed);
5395: --
5396: if g_debug then
5397: hr_utility.trace('Out hrentmnt.adjust_entries_cncl_hire');
5398: end if;
5399: --
5400: end adjust_entries_cncl_hire;
5401: --
5400: end adjust_entries_cncl_hire;
5401: --
5402: ------------------------------------------------------------------------------
5403: -- NAME --
5404: -- hrentmnt.adjust_entries_asg_criteria --
5405: -- --
5406: -- DESCRIPTION --
5407: -- Adjusts element entries that are affected by changes in assignment --
5408: -- criteria. --
5672: v_entry_end_date date;
5673: v_val_start_date_minus_one date;
5674: v_val_end_date_plus_one date;
5675: v_entry_count number := 0;
5676: v_entry_start_date_tbl hrentmnt.t_date_table;
5677: v_entry_end_date_tbl hrentmnt.t_date_table;
5678: v_message_name varchar2(30);
5679: v_appl_short_name varchar2(30);
5680: l_proc constant varchar2 (72) := g_package||'adjust_entries_asg_criteria';
5673: v_val_start_date_minus_one date;
5674: v_val_end_date_plus_one date;
5675: v_entry_count number := 0;
5676: v_entry_start_date_tbl hrentmnt.t_date_table;
5677: v_entry_end_date_tbl hrentmnt.t_date_table;
5678: v_message_name varchar2(30);
5679: v_appl_short_name varchar2(30);
5680: l_proc constant varchar2 (72) := g_package||'adjust_entries_asg_criteria';
5681: --
5741: end if;
5742: --
5743: -- Maintain assignment link usages for the assignment.
5744: --
5745: hrentmnt.maintain_alu_asg (p_assignment_id,
5746: p_business_group_id,
5747: p_dt_mode,
5748: p_old_people_group_id,
5749: p_new_people_group_id);
5750: --
5751: -- Make sure there are no nonrecurring entries that have been made
5752: -- invalid by a change in assignment criteria.
5753: --
5754: hrentmnt.val_nonrec_entries ( p_assignment_id,
5755: p_validation_start_date,
5756: p_validation_end_date);
5757: --
5758: -- Remove any nonrecurring entries which are no longer valid.
5756: p_validation_end_date);
5757: --
5758: -- Remove any nonrecurring entries which are no longer valid.
5759: --
5760: hrentmnt.remove_ineligible_nonrecurring ( p_assignment_id,
5761: p_validation_start_date,
5762: p_validation_end_date,
5763: p_entries_changed);
5764: --
5777: --
5778: -- Adjust any nonrecurring entries which have been affected by a change
5779: -- of payroll.
5780: --
5781: hrentmnt.adjust_nonrecurring_entries ( p_assignment_id,
5782: v_val_start_date_minus_one,
5783: v_val_end_date_plus_one,
5784: p_entries_changed,
5785: p_dt_mode);
5788: --
5789: -- Remove any recurring entries that are no longer eligible NB. this makes
5790: -- the adjustment of entries easier.
5791: --
5792: hrentmnt.remove_ineligible_recurring(p_assignment_id, p_entries_changed,p_validation_start_date,p_validation_end_date,p_dt_mode);
5793: --
5794: -- By this stage, all that should be left to do is to adjust the dates of
5795: -- any entries which cross the boundary of the criteria change and to insert
5796: -- any standard entries for which the assignment is eligible as a result of
5863: -- element entry. This should not stop other entries being created !
5864: --
5865: begin
5866: --
5867: hrentmnt.return_entry_dates (p_assignment_id,
5868: v_asg_start_date,
5869: v_link.element_link_id,
5870: v_link.effective_start_date,
5871: v_link.standard_link_flag,
5933: end if;
5934: --
5935: -- See if multiple entries are allowed.
5936: --
5937: v_mult_ent_allowed_flag := hrentmnt.mult_ent_allowed_flag
5938: (v_link.element_link_id);
5939: --
5940: hrentmnt.adjust_recurring_entries ( p_dt_mode,
5941: p_assignment_id,
5936: --
5937: v_mult_ent_allowed_flag := hrentmnt.mult_ent_allowed_flag
5938: (v_link.element_link_id);
5939: --
5940: hrentmnt.adjust_recurring_entries ( p_dt_mode,
5941: p_assignment_id,
5942: v_link.element_link_id,
5943: v_link.standard_link_flag,
5944: v_mult_ent_allowed_flag,
5964: --
5965: end loop;
5966: --
5967: if g_debug then
5968: hr_utility.trace('Out hrentmnt.adjust_entries_asg_criteria');
5969: end if;
5970: --
5971: end adjust_entries_asg_criteria;
5972: --
5971: end adjust_entries_asg_criteria;
5972: --
5973: ------------------------------------------------------------------------------
5974: -- NAME --
5975: -- hrentmnt.maintain_entries_el --
5976: -- --
5977: -- DESCRIPTION --
5978: -- Creates element entries on creation of a standard element link. --
5979: -- If p_assignment_id is specified, the element entry is created only for --
6140: procedure check_parameters is
6141: --
6142: begin
6143: --
6144: hr_utility.trace ('hrentmnt.maintain_entries_el');
6145: hr_utility.trace ('');
6146: hr_utility.trace (' p_business_group_id = '
6147: ||to_char (p_business_group_id));
6148: hr_utility.trace (' p_element_link_id = '
6270: -- termination rule is before the calculated start date of the element
6271: -- entry. This should not stop other entries being created !
6272: --
6273: begin
6274: hrentmnt.return_entry_dates
6275: (v_asg_id,
6276: v_asg_start_date,
6277: p_element_link_id,
6278: p_effective_start_date,
6355: --
6356: close csr_assignment;
6357: --
6358: if g_debug then
6359: hr_utility.trace ('Out hrentmnt.maintain_entries_el');
6360: end if;
6361: --
6362: end maintain_entries_el;
6363: --
6484: --
6485: --
6486: ------------------------------------------------------------------------------
6487: -- NAME --
6488: -- hrentmnt.maintain_entries_asg --
6489: -- --
6490: -- DESCRIPTION --
6491: -- This forms the interface into the procedures that maintain element --
6492: -- entries when affected by various events ie. --
6520: procedure check_parameters is
6521: --
6522: begin
6523: --
6524: hr_utility.trace('In hrentmnt.maintain_entries_asg');
6525: hr_utility.trace ('');
6526: hr_utility.trace (' p_assignment_id = '
6527: ||to_char (p_assignment_id));
6528: hr_utility.trace (' p_old_payroll_id = '
6572: --
6573: -- Qualifying conditions have changed.
6574: --
6575: if p_operation = 'CHANGE_PQC' then
6576: hrentmnt.adjust_entries_pqc
6577: (p_assignment_id,
6578: p_entries_changed);
6579: --
6580: -- An employee termination is being cancelled.
6579: --
6580: -- An employee termination is being cancelled.
6581: --
6582: elsif p_operation = 'CNCL_TERM' then
6583: hrentmnt.adjust_entries_cncl_term
6584: (p_business_group_id,
6585: p_assignment_id,
6586: p_actual_term_date,
6587: p_last_standard_date,
6593: --
6594: -- The hiring of an employee has been cancelled.
6595: --
6596: elsif p_operation = 'CNCL_HIRE' then
6597: hrentmnt.adjust_entries_cncl_hire
6598: (p_business_group_id,
6599: p_assignment_id,
6600: p_validation_start_date,
6601: p_validation_end_date,
6606: --
6607: -- An employees assignment has been changed.
6608: --
6609: elsif p_operation ='ASG_CRITERIA' then
6610: hrentmnt.adjust_entries_asg_criteria
6611: (p_business_group_id,
6612: p_assignment_id,
6613: p_dt_mode,
6614: p_old_payroll_id,
6633: -- The min value of the pay_people_groups_s sequence is 1, so setting
6634: -- p_old_people_group_id to 0 will guarantee the old and new people group
6635: -- ids will always differ.
6636: --
6637: hrentmnt.adjust_entries_asg_criteria
6638: (p_business_group_id,
6639: p_assignment_id,
6640: p_dt_mode,
6641: p_old_payroll_id,
6648: p_new_people_group_id);
6649: end if;
6650: --
6651: if g_debug then
6652: hr_utility.trace('Out hrentmnt.maintain_entries_asg');
6653: end if;
6654: --
6655: exception
6656: when others then
6672: end maintain_entries_asg;
6673: --
6674: ------------------------------------------------------------------------------
6675: -- NAME --
6676: -- hrentmnt.maintain_entries_asg --
6677: -- --
6678: -- DESCRIPTION --
6679: -- Overloaded version to allow backward compatibility. --
6680: ------------------------------------------------------------------------------
6699: procedure check_parameters is
6700: --
6701: begin
6702: --
6703: hr_utility.trace ('In hrentmnt.maintain_entries_asg');
6704: hr_utility.trace ('');
6705: hr_utility.trace (' p_assignment_id = '
6706: ||to_char (p_assignment_id));
6707: hr_utility.trace (' p_business_group_id = '
6733: if g_debug then
6734: check_parameters;
6735: end if;
6736: --
6737: hrentmnt.maintain_entries_asg
6738: (p_assignment_id,
6739: 1,
6740: 2,
6741: p_business_group_id,
6767: end maintain_entries_asg;
6768: --
6769: ------------------------------------------------------------------------------
6770: -- NAME --
6771: -- hrentmnt.check_opmu --
6772: -- --
6773: -- DESCRIPTION --
6774: -- Ensures that on transfer of Payroll (on the Assignment) or when a change --
6775: -- causes the Payroll to change in the future that Personal Payment Methods --
6809: procedure check_parameters is
6810: --
6811: begin
6812: --
6813: hr_utility.trace ('In hrentmnt.check_opmu');
6814: hr_utility.trace ('');
6815: hr_utility.trace (' p_assignment_id = '
6816: ||to_char (p_assignment_id));
6817: hr_utility.trace (' p_payroll_id = '
6954: hr_utility.raise_error;
6955: end if;
6956: --
6957: if g_debug then
6958: hr_utility.trace ('Out hrentmnt.check_opmu');
6959: end if;
6960: --
6961: end check_opmu;
6962: --
6983: l_new_eed date;
6984: l_object_version_number number;
6985: l_warnings_exist boolean;
6986: l_new_final_process_date date;
6987: l_proc varchar2(80):= 'hrentmnt.move_fpd_entries';
6988: --
6989: cursor process_entries(c_old_final_process_date date, c_assignment_id number) is
6990: select asg.assignment_id,
6991: ee.element_entry_id,
7150: RAISE;
7151:
7152: END move_fpd_entries;
7153: --
7154: end hrentmnt;