[Home] [Help]
1: package body hr_entry as
2: /* $Header: pyeentry.pkb 120.34.12020000.2 2012/10/22 12:35:21 pparate ship $ */
3: --
4: -- NAME
5: -- hr_entry.return_termination_date
1: package body hr_entry as
2: /* $Header: pyeentry.pkb 120.34.12020000.2 2012/10/22 12:35:21 pparate ship $ */
3: --
4: -- NAME
5: -- hr_entry.return_termination_date
6: --
7: -- DESCRIPTION
8: -- Returns the actual_termination_date if an assignment has been
9: -- terminated.
21: -- Select the actual termination date is the assignment has been
22: -- terminated.
23: --
24: if g_debug then
25: hr_utility.set_location('hr_entry.return_termination_date', 1);
26: hr_utility.trace(' p_assignment_id : '|| p_assignment_id);
27: hr_utility.trace(' p_session_date : '|| p_session_date);
28: end if;
29: begin
46: --
47: end return_termination_date;
48: --
49: -- NAME
50: -- hr_entry.get_nonrecurring_dates
51: --
52: -- DESCRIPTION
53: -- Called when a nonrecurring entry is about to be created. Makes sure that
54: -- the assignment is to a payroll and also a time period exists. Returns the
78: begin
79: g_debug := hr_utility.debug_enabled;
80: --
81: if g_debug then
82: hr_utility.set_location('hr_entry.get_nonrecurring_dates',5);
83: hr_utility.trace(' p_assignment_id : '|| p_assignment_id);
84: hr_utility.trace(' p_session_date : '|| p_session_date);
85: end if;
86: --
107: hr_utility.raise_error;
108: end;
109: --
110: if g_debug then
111: hr_utility.set_location('hr_entry.get_nonrecurring_dates',10);
112: hr_utility.trace(' v_payroll_id : '|| v_payroll_id);
113: hr_utility.trace(' v_asg_effective_start_date : '|| v_asg_effective_start_date);
114: hr_utility.trace(' v_asg_effective_end_date : '|| v_asg_effective_end_date);
115: end if;
134: hr_utility.raise_error;
135: end;
136: --
137: if g_debug then
138: hr_utility.set_location('hr_entry.get_nonrecurring_dates',15);
139: hr_utility.trace(' v_time_period_start_date : '|| v_time_period_start_date);
140: hr_utility.trace(' v_time_period_end_date : '|| v_time_period_end_date);
141: end if;
142: --
168: --
169: end if;
170: --
171: if g_debug then
172: hr_utility.set_location('hr_entry.get_nonrecurring_dates',20);
173: hr_utility.trace(' v_start_date : '|| v_start_date);
174: end if;
175: --
176: -- Current assignment record ends before the finish of the time period.
201: --
202: end if;
203: --
204: if g_debug then
205: hr_utility.set_location('hr_entry.get_nonrecurring_dates',25);
206: hr_utility.trace(' v_end_date : '|| v_end_date);
207: end if;
208: --
209: -- Return the start and end dates of the nonrecurring entry.
224: --
225: end get_nonrecurring_dates;
226: --
227: -- NAME
228: -- hr_entry.chk_entry_overlap
229: --
230: -- DESCRIPTION
231: -- When multiple entries are not allowed then make sure there are no overlaps
232: -- of normal entries of ther same type ie. entry_type = 'E'. For nonrecurring
262: --
263: begin
264: --
265: if g_debug then
266: hr_utility.set_location('hr_entry.chk_entry_overlap',5);
267: hr_utility.trace(' p_element_entry_id : '|| p_element_entry_id);
268: hr_utility.trace(' p_assignment_id : '|| p_assignment_id);
269: hr_utility.trace(' p_element_link_id : '|| p_element_link_id);
270: hr_utility.trace(' p_processing_type : '|| p_processing_type);
394: p_element_link_id is null or
395: p_session_date is null) then
396: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
397: hr_utility.set_message_token('PROCEDURE',
398: 'hr_entry.return_qualifying_conditions');
399: hr_utility.set_message_token('STEP','1');
400: hr_utility.raise_error;
401: end if;
402: --
403: -- select the qualifying conditions for los.
404: --
405: begin
406: if g_debug then
407: hr_utility.set_location('hr_entry.return_qualifying_conditions', 5);
408: end if;
409: select pel.qualifying_age,
410: pel.qualifying_length_of_service,
411: pel.qualifying_units
420: exception
421: when NO_DATA_FOUND then
422: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
423: hr_utility.set_message_token('PROCEDURE',
424: 'hr_entry.return_qualifying_conditions');
425: hr_utility.set_message_token('STEP','5');
426: hr_utility.raise_error;
427: end;
428: --
431: -- Need to select the valid los date
432: --
433: begin
434: if g_debug then
435: hr_utility.set_location('hr_entry.return_qualifying_conditions', 10);
436: end if;
437: open csr_los_date;
438: fetch csr_los_date into p_los_date;
439: close csr_los_date;
440: exception
441: when NO_DATA_FOUND then
442: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
443: hr_utility.set_message_token('PROCEDURE',
444: 'hr_entry.return_qualifying_conditions');
445: hr_utility.set_message_token('STEP','10');
446: hr_utility.raise_error;
447: end;
448: --
457: if (l_qualifying_age is not null) then
458: --
459: begin
460: if g_debug then
461: hr_utility.set_location('hr_entry.return_qualifying_conditions', 15);
462: end if;
463: open csr_age_date;
464: fetch csr_age_date into p_age_date;
465: close csr_age_date;
472: --
473: end return_qualifying_conditions;
474: --
475: -- NAME
476: -- hr_entry.generate_entry_id
477: --
478: -- DESCRIPTION
479: -- Generates then next sequence value for inserting an element entry into the
480: -- PAY_ELEMENT_ENTRIES_F base table.
492: FROM SYS.DUAL;
493: exception
494: when NO_DATA_FOUND then
495: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
496: hr_utility.set_message_token('PROCEDURE','hr_entry.generate_entry_id');
497: hr_utility.set_message_token('STEP','1');
498: hr_utility.raise_error;
499: end;
500: --
504: --
505: end generate_entry_id;
506: --
507: -- NAME
508: -- hr_entry.generate_run_result_id
509: --
510: -- DESCRIPTION
511: -- Generates then next sequence value for inserting a run result into the
512: -- PAY_RUN_RESULTS base table.
524: FROM SYS.DUAL;
525: exception
526: when NO_DATA_FOUND then
527: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
528: hr_utility.set_message_token('PROCEDURE','hr_entry.generate_run_result_id');
529: hr_utility.set_message_token('STEP','1');
530: hr_utility.raise_error;
531: end;
532: --
536: --
537: end generate_run_result_id;
538: --
539: -- NAME
540: -- hr_entry.entry_process_in_run
541: --
542: -- DESCRIPTION
543: -- This function return a boolean value for the specified
544: -- element_type_id depending on the process_in_run_flag attribute.
579: end entry_process_in_run;
580: --------------------------------------------------------------------------------
581: --
582: -- NAME
583: -- hr_entry.Assignment_eligible_for_link
584: --
585: -- DESCRIPTION
586: -- Returns 'Y' if the specified assignment and link match as at the
587: -- specified date. A match indicates that the assignment is eligible for
713: --
714: begin
715:
716: if g_debug then
717: hr_utility.trace('In hr_entry.assignment_eligible_for_link');
718: hr_utility.trace(' p_assignment_id : '|| p_assignment_id);
719: hr_utility.trace(' p_element_link_id : '|| p_element_link_id);
720: hr_utility.trace(' p_effective_date : '|| p_effective_date);
721: hr_utility.trace(' p_creator_type : '|| p_creator_type);
733: --
734: end assignment_eligible_for_link;
735: --------------------------------------------------------------------------------
736: -- NAME
737: -- hr_entry.assignment_eligible_for_link
738: --
739: -- DESCRIPTION
740: -- Bugfix 7434613
741: -- Overloaded version provided for backwards compatibility.
765: end assignment_eligible_for_link;
766: --------------------------------------------------------------------------------
767: --
768: -- NAME
769: -- hr_entry.chk_asg_visible
770: --
771: -- DESCRIPTION
772: -- Raise error PAY_34811_ENTRY_MAINT_SEC_ASG if the user does not have the
773: -- appropriate privileges to see the assignment identifed by p_assignment_id.
784: v_asg_visible number;
785: begin
786: --
787: if g_debug then
788: hr_utility.set_location('hr_entry.chk_asg_visible', 1);
789: hr_utility.trace(' p_assignment_id : '|| p_assignment_id);
790: hr_utility.trace(' p_session_date : '|| p_session_date);
791: end if;
792: --
801: --
802: if csr_sec_asg%notfound then
803: --
804: if g_debug then
805: hr_utility.set_location('hr_entry.chk_asg_visible', 2);
806: hr_utility.trace(' Assignment ID Not Found: '||p_assignment_id);
807: end if;
808: --
809: -- The user is not authorized to process this assignment.
817: --
818: close csr_sec_asg;
819: --
820: if g_debug then
821: hr_utility.set_location('hr_entry.chk_asg_visible', 3);
822: end if;
823: --
824: end chk_asg_visible;
825: --------------------------------------------------------------------------------
823: --
824: end chk_asg_visible;
825: --------------------------------------------------------------------------------
826: -- NAME
827: -- hr_entry.get_eligibility_period
828: --
829: -- DESCRIPTION
830: -- This procedure selects the minimum or maximum (or both) effective assignment
831: -- dates where the assignment is eligible for a given element link.
924: l_time_period_end_date date;
925: --
926: no_current_eligibility exception;
927: --
928: l_procedure_name constant varchar2 (80) := 'hr_entry.get_eligibility_period';
929: lpi_session_date constant date := trunc (p_session_date);
930: --
931: all_parameters_are_valid constant boolean :=
932: (
1018: hr_utility.set_location(l_procedure_name,4);
1019: end if;
1020: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1021: hr_utility.set_message_token('PROCEDURE',
1022: 'hr_entry.get_eligibility_period');
1023: hr_utility.set_message_token('STEP','4');
1024: hr_utility.raise_error;
1025: --
1026: end if;
1093: -- Bugfix 5135065
1094: -- We are not interested in assignment pieces that end before the beginning
1095: -- of the time period, so we pass the time period start date to csr_minimum
1096: for c1rec in csr_minimum(p_assignment_id, lpi_session_date, l_time_period_start_date) loop
1097: if(hr_entry.assignment_eligible_for_link(
1098: p_assignment_id,
1099: p_element_link_id,
1100: least (c1rec.effective_end_date, l_link.link_end),
1101: p_creator_type) = 'N')
1151: -- This should reduce the number of times we need to call the expensive
1152: -- assignment_eligible_for_link function.
1153: -- See above explanation.
1154: for c1rec in csr_maximum(p_assignment_id, lpi_session_date, l_time_period_end_date) loop
1155: if(hr_entry.assignment_eligible_for_link(
1156: p_assignment_id,
1157: p_element_link_id,
1158: greatest (c1rec.effective_start_date, l_link.link_start),
1159: p_creator_type) = 'N')
1321: --
1322: end get_eligibility_period;
1323: --------------------------------------------------------------------------------
1324: -- NAME
1325: -- hr_entry.get_eligibility_period
1326: --
1327: -- DESCRIPTION
1328: -- Bugfix 5135065
1329: -- Overloaded version provided for backwards compatibility. Refer to new
1356: --
1357: end get_eligibility_period;
1358: --------------------------------------------------------------------------------
1359: -- NAME
1360: -- hr_entry.entry_asg_pay_link_dates
1361: --
1362: -- DESCRIPTION
1363: -- This procedure returns the min(effective_start/end_date) for a specified
1364: -- element link and payroll. Also, if the specified employee assignment has
1427: and p_session_date = trunc (p_session_date));
1428: --
1429: if g_debug then
1430: --
1431: hr_utility.trace('begin hr_entry.entry_asg_pay_link_dates');
1432: hr_utility.trace(' p_session_date:' || To_Char(p_session_date,'DD-MON-YYYY'));
1433: hr_utility.trace(' p_assignment_id:' || p_assignment_id);
1434: hr_utility.trace(' p_element_link_id:' || p_element_link_id);
1435: --
1438: -- Select the element termination processing rule, assignment period of
1439: -- service and assignment primary flag
1440: --
1441: if g_debug then
1442: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 1);
1443: end if;
1444: --
1445: begin
1446: --
1487: --
1488: when NO_DATA_FOUND then
1489: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1490: hr_utility.set_message_token('PROCEDURE',
1491: 'hr_entry.entry_asg_pay_link_dates');
1492: hr_utility.set_message_token('STEP','2');
1493: end;
1494: --
1495: if g_debug then
1561: (v_orig_term_rule_date_func = 'Y' and v_primary_flag = 'Y') then -- Old behaviour
1562: --
1563: if g_debug then
1564: hr_utility.trace(' employee terminated');
1565: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 2);
1566: hr_utility.trace(' v_post_termination_rule :' || v_post_termination_rule);
1567: end if;
1568: --
1569: -- Get the termination rule date
1634: -- First we need to check if the current or future assignment rows have
1635: -- a 'TERM_ASSIGN' status.
1636: --
1637: if g_debug then
1638: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 3);
1639: end if;
1640: begin
1641: select min(asg.effective_start_date)
1642: into v_asg_term_date
1653: --
1654: if v_asg_term_date is null then
1655: --
1656: if g_debug then
1657: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 4);
1658: end if;
1659: --
1660: begin
1661: select asg.effective_start_date
1725: v_element_term_rule_date := v_asg_term_date - 1;
1726: end if;
1727: elsif (v_post_termination_rule = 'F') then
1728: if g_debug then
1729: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 5);
1730: end if;
1731: begin
1732: select max(asg.effective_end_date)
1733: into v_element_term_rule_date
1736: and asg.effective_start_date >= v_asg_term_date;
1737: end;
1738: elsif (v_post_termination_rule = 'L') then
1739: if g_debug then
1740: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 6);
1741: end if;
1742: /*
1743: begin
1744: select ptp.end_date
1818: --
1819: -- Select the minimum and maximum element link dates.
1820: --
1821: if g_debug then
1822: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 7);
1823: end if;
1824: --
1825: begin
1826: select min(pel.effective_start_date),
1840: -- If the assignment is to a payroll then,
1841: -- we must select the minimum and maximum effective dates of the payroll.
1842: --
1843: if g_debug then
1844: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 8);
1845: end if;
1846: begin
1847: select min(pay.effective_start_date),
1848: max(pay.effective_end_date)
1876: p_payroll_start_date := v_payroll_start_date;
1877: p_payroll_end_date := v_payroll_end_date;
1878: --
1879: if g_debug then
1880: hr_utility.trace(' end hr_entry.entry_asg_pay_link_dates');
1881: end if;
1882: --
1883: end entry_asg_pay_link_dates;
1884: --
1882: --
1883: end entry_asg_pay_link_dates;
1884: --
1885: -- NAME
1886: -- hr_entry.recurring_entry_end_date
1887: --
1888: -- DESCRIPTION
1889: -- This function is used to return the valid effective end of a recurring entry.
1890: -- The effective end date is determined by selecting the least date of:
1949: begin
1950: g_debug := hr_utility.debug_enabled;
1951:
1952: if g_debug then
1953: hr_utility.trace('In hr_entry.recurring_entry_end_date');
1954: hr_utility.trace(' p_assignment_id : '|| p_assignment_id);
1955: hr_utility.trace(' p_element_link_id : '|| p_element_link_id);
1956: hr_utility.trace(' p_session_date : '|| p_session_date);
1957: hr_utility.trace(' p_overlap_chk : '|| p_overlap_chk);
1976: -- delete next/future changes therefore set the current_effective_end_date
1977: --
1978: if p_element_entry_id is not null then
1979: if g_debug then
1980: hr_utility.set_location('hr_entry.recurring_entry_end_date', 0);
1981: end if;
1982: begin
1983: select e.effective_end_date
1984: into v_current_effective_end_date
1999: -- If yes, then we must take the min(effective_start_date) -1
2000: --
2001: if upper (p_overlap_chk) = 'Y' then
2002: if g_debug then
2003: hr_utility.set_location('hr_entry.recurring_entry_end_date', 1);
2004: end if;
2005: begin
2006: -- INDEX hint added following NHS project recommendation
2007: select /*+ INDEX(pee, pay_element_entries_f_n51) */
2044: chk_asg_visible(p_assignment_id, p_session_date);
2045: --
2046: -- Get the end date of the link.
2047: --
2048: hr_entry.entry_asg_pay_link_dates (p_assignment_id,
2049: p_element_link_id,
2050: p_session_date,
2051: v_element_term_rule_date,
2052: v_out_date_not_required,
2057: --
2058: -- Find the minimum assignment (effective_start_date - 1) when the current or
2059: -- future assignment changes is NOT eligible to the element link.
2060: --
2061: hr_entry.get_eligibility_period (p_assignment_id,
2062: p_element_link_id,
2063: p_session_date,
2064: v_out_date_not_required,
2065: v_asg_max_eligibility_date);
2110: --
2111: end recurring_entry_end_date;
2112: --
2113: -- NAME
2114: -- hr_entry.chk_element_entry_eligibility
2115: --
2116: -- DESCRIPTION
2117: -- This procedure is used to check if entries (which are defined below) are
2118: -- eligble to be inserted/deleted.
2203: -- date.
2204: begin
2205:
2206: if g_debug then
2207: hr_utility.trace('In hr_entry.chk_element_entry_eligibility');
2208: hr_utility.trace(' p_assignment_id : '|| p_assignment_id);
2209: hr_utility.trace(' p_element_link_id : '|| p_element_link_id);
2210: hr_utility.trace(' p_session_date : '|| p_session_date);
2211: hr_utility.trace(' p_usage : '|| p_usage);
2223: chk_asg_visible(p_assignment_id, p_session_date);
2224: --
2225: -- We must ensure that the entry is eligible through the payroll and link dates.
2226: --
2227: hr_entry.entry_asg_pay_link_dates (p_assignment_id,
2228: p_element_link_id,
2229: p_session_date,
2230: v_element_term_rule_date,
2231: v_element_link_start_date,
2235: --
2236: -- Ensure that the element entry which is being inserted is eligible
2237: -- through its link/assignment criteria.
2238: --
2239: hr_entry.get_eligibility_period (p_assignment_id,
2240: p_element_link_id,
2241: p_session_date,
2242: -- Bugfix 5135065
2243: p_creator_type,
2310: --
2311: end chk_element_entry_eligibility;
2312: --
2313: -- NAME
2314: -- hr_entry.chk_element_entry_eligbility
2315: --
2316: -- DESCRIPTION
2317: -- Bugfix 5135065
2318: -- Overloaded version provided for backwards compatibility
2349: --
2350: end chk_element_entry_eligbility;
2351: --
2352: -- NAME
2353: -- hr_entry.chk_element_entry_open
2354: --
2355: -- DESCRIPTION
2356: -- This procedure does the following checks:
2357: -- 1) Ensure that the element type is not closed for entry currently
2414: --
2415: begin
2416: --
2417: if g_debug then
2418: hr_utility.trace('In hr_entry.chk_element_entry_open');
2419: hr_utility.trace(' p_element_type_id : '|| p_element_type_id);
2420: hr_utility.trace(' p_session_date : '|| p_session_date);
2421: hr_utility.trace(' p_validation_start_date : '|| p_validation_start_date);
2422: hr_utility.trace(' p_validation_end_date : '|| p_validation_end_date);
2450: -- stable view of the time period table. See if a time period has been
2451: -- closed over the period of change. If it has then error !
2452: --lock table pay_payrolls_f in share mode;
2453: --
2454: if hr_entry.entry_process_in_run(p_element_type_id, p_session_date) then
2455: --
2456: for v_time_period in csr_time_period(p_assignment_id,
2457: p_validation_start_date,
2458: p_validation_end_date) loop
2484: --
2485: end chk_element_entry_open;
2486: --
2487: -- NAME
2488: -- hr_entry.derive_default_value
2489: --
2490: -- DESCRIPTION
2491: -- This procedure is used to return default screen and database formatted
2492: -- values in either a cold or hot format for the specified link and
2559: p_min_max_def = 'DEF') then
2560: null;
2561: else
2562: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2563: hr_utility.set_message_token('PROCEDURE','hr_entry.derive_default_value');
2564: hr_utility.set_message_token('STEP',1);
2565: hr_utility.raise_error;
2566: end if;
2567: --
2568: -- Need to determine the input value unit of measure and if it is using
2569: -- hot or cold defaults.
2570: --
2571: if g_debug then
2572: hr_utility.set_location('hr_entry.derive_default_value', 2);
2573: end if;
2574: begin
2575: select iv.uom,
2576: iv.hot_default_flag,
2587: exception
2588: when NO_DATA_FOUND then
2589: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2590: hr_utility.set_message_token('PROCEDURE',
2591: 'hr_entry.derive_default_value');
2592: hr_utility.set_message_token('STEP','2');
2593: hr_utility.raise_error;
2594: end;
2595: --
2596: -- If using cold defaults then, we must select the value at the link level.
2597: --
2598: if v_hot_default_flag = 'N' then
2599: if g_debug then
2600: hr_utility.set_location('hr_entry.derive_default_value', 3);
2601: end if;
2602: begin
2603: -- INDEX hint added following NHS project recommendation
2604: select /*+ INDEX(l, pay_link_input_values_f_n2) */
2616: exception
2617: when NO_DATA_FOUND then
2618: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2619: hr_utility.set_message_token('PROCEDURE',
2620: 'hr_entry.derive_default_value');
2621: hr_utility.set_message_token('STEP','3');
2622: hr_utility.raise_error;
2623: end;
2624: else
2628: -- the hot default values and encapsulated in quotations (").
2629: --
2630: if (p_min_max_def = 'DEF') then
2631: if g_debug then
2632: hr_utility.set_location('hr_entry.derive_default_value', 4);
2633: end if;
2634: begin
2635: select decode(l.default_value,
2636: '',i.default_value,
2648: exception
2649: when NO_DATA_FOUND then
2650: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2651: hr_utility.set_message_token('PROCEDURE',
2652: 'hr_entry.derive_default_value');
2653: hr_utility.set_message_token('STEP','4');
2654: hr_utility.raise_error;
2655: end;
2656: else
2654: hr_utility.raise_error;
2655: end;
2656: else
2657: if g_debug then
2658: hr_utility.set_location('hr_entry.derive_default_value', 5);
2659: end if;
2660: begin
2661: select i.default_value,
2662: i.min_value,
2671: exception
2672: when NO_DATA_FOUND then
2673: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2674: hr_utility.set_message_token('PROCEDURE',
2675: 'hr_entry.derive_default_value');
2676: hr_utility.set_message_token('STEP','5');
2677: hr_utility.raise_error;
2678: end;
2679: end if;
2697: --
2698: if (v_lookup_type is not null and
2699: v_value_format_in is not null) then
2700: if g_debug then
2701: hr_utility.set_location('hr_entry.derive_default_value', 6);
2702: end if;
2703: begin
2704: select h.meaning
2705: into v_value_format_out
2709: exception
2710: when NO_DATA_FOUND then
2711: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2712: hr_utility.set_message_token('PROCEDURE',
2713: 'hr_entry.derive_default_value');
2714: hr_utility.set_message_token('STEP','6');
2715: hr_utility.raise_error;
2716: end;
2717: --
2721: --
2722: elsif (v_value_set_id is not null and
2723: v_value_format_in is not null) then
2724: if g_debug then
2725: hr_utility.set_location('hr_entry.derive_default_value', 7);
2726: end if;
2727: v_value_format_out := pay_input_values_pkg.decode_vset_value(
2728: v_value_set_id,v_value_format_in);
2729: if v_value_format_out is null then
2732: -- corresponding meaning was found, raise an error
2733: --
2734: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2735: hr_utility.set_message_token('PROCEDURE',
2736: 'hr_entry.derive_default_value');
2737: hr_utility.set_message_token('STEP','7');
2738: hr_utility.raise_error;
2739: end if;
2740: else
2766: --
2767: end derive_default_value;
2768: --
2769: -- NAME
2770: -- hr_entry.chk_mandatory_input_value
2771: --
2772: -- DESCRIPTION
2773: -- This procedure produces an error is any input value which is defined as
2774: -- having a mandatory value is null.
2784: --
2785: begin
2786: g_debug := hr_utility.debug_enabled;
2787: if g_debug then
2788: hr_utility.set_location ('hr_entry.chk_mandatory_input_value',1);
2789: end if;
2790: hr_general.assert_condition (p_session_date = trunc (p_session_date)
2791: and p_input_value_id is not null
2792: and p_session_date is not null);
2793: --
2794: if (p_input_value_id is not null and
2795: p_entry_value is null) then
2796: if g_debug then
2797: hr_utility.set_location('hr_entry.chk_mandatory_input_value', 1);
2798: end if;
2799: --
2800: -- Select the hot/mandatory flag details.
2801: --
2817: exception
2818: when NO_DATA_FOUND then
2819: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2820: hr_utility.set_message_token('PROCEDURE',
2821: 'hr_entry.chk_mandatory_input_value');
2822: hr_utility.set_message_token('STEP','1');
2823: hr_utility.raise_error;
2824: end;
2825: --
2837: --
2838: -- Hot check.
2839: --
2840: if g_debug then
2841: hr_utility.set_location('hr_entry.chk_mandatory_input_value', 5);
2842: end if;
2843: begin
2844: select nvl(l.default_value,i.default_value)
2845: into v_default_value
2868: (
2869: p_element_link_id number,
2870: p_validation_start_date date,
2871: p_num_entry_values number,
2872: p_input_value_id_tbl hr_entry.number_table,
2873: p_entry_value_tbl hr_entry.varchar2_table
2874: ) is
2875: --
2876: begin
2869: p_element_link_id number,
2870: p_validation_start_date date,
2871: p_num_entry_values number,
2872: p_input_value_id_tbl hr_entry.number_table,
2873: p_entry_value_tbl hr_entry.varchar2_table
2874: ) is
2875: --
2876: begin
2877: if g_debug then
2874: ) is
2875: --
2876: begin
2877: if g_debug then
2878: hr_utility.set_location ('hr_entry.chk_mandatory_entry_values',1);
2879: end if;
2880: hr_general.assert_condition (
2881: p_validation_start_date = trunc (p_validation_start_date));
2882: --
2885: if p_num_entry_values > 0 then
2886: --
2887: for v_loop in 1..p_num_entry_values loop
2888: --
2889: hr_entry.chk_mandatory_input_value(p_input_value_id_tbl(v_loop),
2890: p_entry_value_tbl(v_loop),
2891: p_validation_start_date,
2892: p_element_link_id);
2893: --
2897: --
2898: end chk_mandatory_entry_values;
2899: --
2900: -- NAME
2901: -- hr_entry.chk_element_entry
2902: --
2903: -- DESCRIPTION
2904: -- This procedure is used for referential/standard checks when inserting/
2905: -- updating or deleteing element enries.
2946: g_debug := hr_utility.debug_enabled;
2947:
2948: if g_debug then
2949:
2950: hr_utility.trace('In hr_entry.chk_element_entry');
2951: hr_utility.trace(' p_element_entry_id : '|| p_element_entry_id);
2952: hr_utility.trace(' p_original_entry_id : '|| p_original_entry_id);
2953: hr_utility.trace(' p_session_date : '|| p_session_date);
2954: hr_utility.trace(' p_element_link_id : '|| p_element_link_id);
2988: --
2989: end chk_element_entry;
2990: --
2991: -- NAME
2992: -- hr_entry.chk_element_entry_main
2993: --
2994: -- DESCRIPTION
2995: -- This procedure is used for referential/standard checks when inserting/
2996: -- updating or deleteing element enries.
3111: begin
3112: g_debug := hr_utility.debug_enabled;
3113: --
3114: if g_debug then
3115: hr_utility.set_location('hr_entry.chk_element_entry_main', 5);
3116: end if;
3117: --
3118: -- Fetch element type information relevent to the creation of element
3119: -- entries
3173: exception
3174: when no_data_found then
3175: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3176: hr_utility.set_message_token('PROCEDURE',
3177: 'hr_entry.chk_element_entry');
3178: hr_utility.set_message_token('STEP','1');
3179: hr_utility.raise_error;
3180: end;
3181: --
3230: (p_dt_delete_mode = 'DELETE_NEXT_CHANGE' and
3231: p_validation_end_date = hr_general.end_of_time)) then
3232: --
3233: if g_debug then
3234: hr_utility.set_location('hr_entry.chk_element_entry_main', 10);
3235: end if;
3236: --
3237: -- If we are inserting or doing date-effective delete next/future
3238: -- changes then we must set the effective_end_date to be passed back
3238: -- changes then we must set the effective_end_date to be passed back
3239: -- to the form and, also set the validation_end_date NB. this will take
3240: -- into account if multiple entries are allowed.
3241: --
3242: v_validation_end_date := hr_entry.recurring_entry_end_date
3243: (p_assignment_id,
3244: p_element_link_id,
3245: p_session_date,
3246: 'Y',
3272: --
3273: else
3274: --
3275: if g_debug then
3276: hr_utility.set_location('hr_entry.chk_element_entry_main', 15);
3277: end if;
3278: /*Bug 8798020 Added below call to get the eligibility dates */
3279: /*Bug 12829063 Passing the creator type as p_creator_type instead of null*/
3280: If nvl(p_dt_delete_mode,'NULL') <> 'ZAP' then
3277: end if;
3278: /*Bug 8798020 Added below call to get the eligibility dates */
3279: /*Bug 12829063 Passing the creator type as p_creator_type instead of null*/
3280: If nvl(p_dt_delete_mode,'NULL') <> 'ZAP' then
3281: hr_entry.chk_element_entry_eligibility (p_assignment_id =>p_assignment_id,
3282: p_element_link_id =>p_element_link_id,
3283: p_session_date =>p_session_date,
3284: p_usage =>p_usage,
3285: p_creator_type => p_creator_type,
3301: -- is to a payroll and also a time period exists. Also calculate the start
3302: -- and end dates of the nonrecurring entry taking into account changes in
3303: -- payroll.
3304: --
3305: hr_entry.get_nonrecurring_dates(p_assignment_id,
3306: p_session_date,
3307: v_validation_start_date,
3308: v_validation_end_date,
3309: v_payroll_id,
3367: -- wmcveagh, bug 493056. Use element effective start date rather than
3368: -- validation start date if vsd is later.
3369: --
3370: if g_debug then
3371: hr_utility.set_location('hr_entry.chk_element_entry_main', 17);
3372: end if;
3373: --
3374: open c_element_start_date ;
3375: fetch c_element_start_date into v_element_effective_start_date;
3378: hr_utility.trace(' v_element_effective_start_date : '|| v_element_effective_start_date);
3379: --
3380: if v_validation_start_date < v_element_effective_start_date then
3381: if g_debug then
3382: hr_utility.set_location('hr_entry.chk_element_entry_main', 18);
3383: end if;
3384: v_validation_start_date := v_element_effective_start_date;
3385: end if;
3386: --
3395: (p_dt_delete_mode = 'DELETE_NEXT_CHANGE' and
3396: p_validation_end_date = hr_general.end_of_time)) then
3397: --
3398: if g_debug then
3399: hr_utility.set_location('hr_entry.chk_element_entry_main', 20);
3400: end if;
3401: -- start 115.26
3402: -- bugfix 1827998
3403: declare
3424: -- Make sure the entry does not overlap if multiple entries are not
3425: -- allowed.
3426: --
3427: if p_creator_type not in ('EE', 'RR', 'AD', 'AE', 'NR', 'PR') then
3428: hr_entry.chk_entry_overlap(p_element_entry_id,
3429: p_assignment_id,
3430: p_element_link_id,
3431: v_processing_type,
3432: p_entry_type,
3439: end if;
3440: end if;
3441: --
3442: if g_debug then
3443: hr_utility.set_location('hr_entry.chk_element_entry_main', 25);
3444: end if;
3445: --
3446: -- Call the procedure: chk_element_entry_open
3447: -- This procedure does common checks for insert/update/delete
3448: -- commit actions.
3449: --
3450: -- 10633382 if validation is already passed on adjustment entry don't repeat check on target
3451: if nvl(p_element_entry_id,-2) <> nvl(g_target_entry_id,-1) then
3452: hr_entry.chk_element_entry_open(v_element_type_id,
3453: p_session_date,
3454: v_validation_start_date,
3455: v_validation_end_date,
3456: p_assignment_id);
3466: p_entry_type <> 'E') or
3467: v_processing_type = 'N')) then
3468: --
3469: if g_debug then
3470: hr_utility.set_location('hr_entry.chk_element_entry_main', 30);
3471: end if;
3472: --
3473: -- We must ensure that the entry is eligible to be inserted.
3474: --
3478: -- These should only have been derived if the entry is non-recurring
3479: -- In this case we can greatly reduce the number of calls made
3480: -- by get_eligibility_period to the expensive assignment_eligible_for_link
3481: -- function.
3482: hr_entry.chk_element_entry_eligibility(p_assignment_id,
3483: p_element_link_id,
3484: p_session_date,
3485: p_usage,
3486: p_creator_type,
3499: p_creator_type not in ('EE', 'RR', 'AD', 'AE', 'NR', 'PR') and
3500: p_usage = 'INSERT') then
3501: --
3502: if g_debug then
3503: hr_utility.set_location('hr_entry.chk_element_entry_main', 35);
3504: end if;
3505: --
3506: -- Additional Entry is trying to be inserted therefore, check for
3507: -- another existing Additional Entry within the current period.
3537: (p_dt_delete_mode = 'ZAP' or
3538: p_dt_delete_mode = 'DELETE')) then
3539: --
3540: if g_debug then
3541: hr_utility.set_location('hr_entry.chk_element_entry_main', 40);
3542: end if;
3543: --
3544: -- If the p_dt_delete_mode is not null then need to ensure that
3545: -- the entry being deleted does not orphan any adjustments.
3573: if (p_entry_type = 'S' and
3574: p_usage = 'INSERT') then
3575: --
3576: if g_debug then
3577: hr_utility.set_location('hr_entry.chk_element_entry_main', 45);
3578: end if;
3579: --
3580: -- Ensure that no other override exists within the current
3581: -- period for the same element for the assignment.
3602: hr_utility.raise_error;
3603: end if;
3604: --
3605: if g_debug then
3606: hr_utility.set_location('hr_entry.chk_element_entry_main', 50);
3607: end if;
3608: --
3609: -- Ensure that an adjustment entry does not exist when trying to
3610: -- insert override.
3648: p_entry_type = 'A') and
3649: p_usage = 'INSERT') then
3650: --
3651: if g_debug then
3652: hr_utility.set_location('hr_entry.chk_element_entry_main', 55);
3653: end if;
3654: --
3655: -- Ensure that the parent entry of the adjustment exists for the
3656: -- duration of the adjustment.
3678: hr_utility.raise_error;
3679: end if;
3680: --
3681: if g_debug then
3682: hr_utility.set_location('hr_entry.chk_element_entry_main', 60);
3683: end if;
3684: --
3685: -- Ensure that an override does not exist for the entry which is to be
3686: -- adjusted.
3708: hr_utility.raise_error;
3709: end if;
3710: --
3711: if g_debug then
3712: hr_utility.set_location('hr_entry.chk_element_entry_main', 65);
3713: end if;
3714: --
3715: -- Ensure that an existing adjustment for this entry does not exist for
3716: -- the current period/assignment.
3770: --
3771: end chk_element_entry_main;
3772: --
3773: -- NAME
3774: -- hr_entry.ins_3p_ent_values
3775: --
3776: -- DESCRIPTION
3777: -- This function is used for third party inserts into:
3778: -- PAY_ELEMENT_ENTRIES_F (If an abscence, or DT functions are being used).
3786: p_element_link_id number,
3787: p_element_entry_id number,
3788: p_session_date date,
3789: p_num_entry_values number,
3790: p_input_value_id_tbl hr_entry.number_table,
3791: p_entry_value_tbl hr_entry.varchar2_table
3792: ) is
3793: --
3794: -- cursor to fetch balance adjustment element entry values
3787: p_element_entry_id number,
3788: p_session_date date,
3789: p_num_entry_values number,
3790: p_input_value_id_tbl hr_entry.number_table,
3791: p_entry_value_tbl hr_entry.varchar2_table
3792: ) is
3793: --
3794: -- cursor to fetch balance adjustment element entry values
3795: cursor get_b_eevs(p_element_entry_id number,
3831: --
3832: begin
3833: --
3834: if g_debug then
3835: hr_utility.set_location('hr_entry.ins_3p_entry_values', 1);
3836: end if;
3837: begin
3838: --
3839: select ee.element_entry_id,
3876: exception
3877: when NO_DATA_FOUND then
3878: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3879: hr_utility.set_message_token('PROCEDURE',
3880: 'hr_entry.ins_3p_entry_values');
3881: hr_utility.set_message_token('STEP','6');
3882: hr_utility.raise_error;
3883: end;
3884: --
3882: hr_utility.raise_error;
3883: end;
3884: --
3885: if g_debug then
3886: hr_utility.set_location('hr_entry.ins_3p_entry_values', 2);
3887: end if;
3888: --
3889: -- Insert all the entry values if there are any.
3890: if p_num_entry_values > 0 then
3891: --
3892: -- NB. mandatory checks are not applied to adjustments.
3893: if not v_entry_type in ('A','R') then
3894: --
3895: hr_entry.chk_mandatory_entry_values
3896: (p_element_link_id,
3897: p_session_date,
3898: p_num_entry_values,
3899: p_input_value_id_tbl,
3986: v_input_currency_code = v_output_currency_code) or
3987: v_entry_type = 'B') then
3988: --
3989: -- Ensure that the entry can be processed in a run.
3990: if hr_entry.entry_process_in_run(v_element_type_id, p_session_date) then
3991: --
3992: -- Set the processing status. If the entry is a balance adjustment then
3993: -- the run result status must be set to processed.
3994: if v_entry_type = 'B' then
3999: -- rate
4000: if v_input_currency_code <> v_output_currency_code then
4001: begin
4002: if g_debug then
4003: hr_utility.set_location('hr_entry.ins_3p_entry_values', 4);
4004: end if;
4005: --
4006: select business_group_id
4007: into v_bg_id
4028: --
4029: end if;
4030: --
4031: -- Get the next sequenced run_result_id. Step 5.
4032: v_run_result_id := hr_entry.generate_run_result_id;
4033: --
4034: -- Insert Run Result. Step 6.
4035: if g_debug then
4036: hr_utility.set_location('hr_entry.ins_3p_entry_values', 6);
4032: v_run_result_id := hr_entry.generate_run_result_id;
4033: --
4034: -- Insert Run Result. Step 6.
4035: if g_debug then
4036: hr_utility.set_location('hr_entry.ins_3p_entry_values', 6);
4037: end if;
4038: -- First get the Jurisdiction if one exists.
4039: begin
4040: select eev.screen_entry_value
4081: exception
4082: when NO_DATA_FOUND then
4083: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4084: hr_utility.set_message_token('PROCEDURE',
4085: 'hr_entry.ins_3p_entry_values');
4086: hr_utility.set_message_token('STEP','6');
4087: hr_utility.raise_error;
4088: end;
4089: --
4093: --
4094: -- insert run results values converting all money uom's to the output
4095: -- currency value.
4096: if g_debug then
4097: hr_utility.set_location('hr_entry.ins_3p_entry_values', 7);
4098: end if;
4099: begin
4100:
4101: for peev in get_b_eevs(p_element_entry_id, p_session_date) loop
4137: exception
4138: when no_data_found then
4139: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4140: hr_utility.set_message_token('PROCEDURE',
4141: 'hr_entry.ins_3p_entry_values');
4142: hr_utility.set_message_token('STEP','7');
4143: hr_utility.raise_error;
4144: end;
4145:
4147: -- insert run result values which do not have to be converted.
4148: else
4149: --
4150: if g_debug then
4151: hr_utility.set_location('hr_entry.ins_3p_entry_values', 8);
4152: end if;
4153: begin
4154: --
4155: insert into pay_run_result_values
4168: exception
4169: when no_data_found then
4170: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4171: hr_utility.set_message_token('PROCEDURE',
4172: 'hr_entry.ins_3p_entry_values');
4173: hr_utility.set_message_token('STEP','8');
4174: hr_utility.raise_error;
4175: end;
4176: --
4189: p_element_link_id number,
4190: p_element_entry_id number,
4191: p_session_date date,
4192: p_num_entry_values number,
4193: p_input_value_id_tbl hr_entry.number_table,
4194: p_entry_value_tbl hr_entry.varchar2_table
4195: ) is
4196: --
4197: -- Local Variables
4190: p_element_entry_id number,
4191: p_session_date date,
4192: p_num_entry_values number,
4193: p_input_value_id_tbl hr_entry.number_table,
4194: p_entry_value_tbl hr_entry.varchar2_table
4195: ) is
4196: --
4197: -- Local Variables
4198: v_num_entry_values number;
4195: ) is
4196: --
4197: -- Local Variables
4198: v_num_entry_values number;
4199: v_input_value_id_tbl hr_entry.number_table;
4200: v_entry_value_tbl hr_entry.varchar2_table;
4201: --
4202: begin
4203: --
4196: --
4197: -- Local Variables
4198: v_num_entry_values number;
4199: v_input_value_id_tbl hr_entry.number_table;
4200: v_entry_value_tbl hr_entry.varchar2_table;
4201: --
4202: begin
4203: --
4204: v_num_entry_values := p_num_entry_values;
4204: v_num_entry_values := p_num_entry_values;
4205: v_input_value_id_tbl := p_input_value_id_tbl;
4206: v_entry_value_tbl := p_entry_value_tbl;
4207: --
4208: -- hr_entry_api.conv_table_to_table
4209: -- ('DB',
4210: -- p_session_date,
4211: -- null,
4212: -- p_element_link_id,
4213: -- v_num_entry_values,
4214: -- v_input_value_id_tbl,
4215: -- v_entry_value_tbl);
4216: --
4217: hr_entry.ins_3p_ent_values
4218: (p_element_link_id,
4219: p_element_entry_id,
4220: p_session_date,
4221: v_num_entry_values,
4265: ) is
4266: --
4267: -- Local variables
4268: v_num_entry_values number;
4269: v_input_value_id_tbl hr_entry.number_table;
4270: v_entry_value_tbl hr_entry.varchar2_table;
4271: --
4272: begin
4273: --
4266: --
4267: -- Local variables
4268: v_num_entry_values number;
4269: v_input_value_id_tbl hr_entry.number_table;
4270: v_entry_value_tbl hr_entry.varchar2_table;
4271: --
4272: begin
4273: --
4274: -- Convert entry value details ie. INPUT_VALUE_ID and SCREEN_ENTRY_VALUE
4274: -- Convert entry value details ie. INPUT_VALUE_ID and SCREEN_ENTRY_VALUE
4275: -- into two tables to be passed into the overloaded version of
4276: -- ins_3p_entry_values. The overloaded version is capable of handling
4277: -- unlimited numbers of entry values.
4278: hr_entry_api.conv_entry_values_to_table
4279: ('DB',
4280: null,
4281: p_element_link_id,
4282: p_session_date,
4316: v_num_entry_values,
4317: v_input_value_id_tbl,
4318: v_entry_value_tbl);
4319: --
4320: hr_entry.ins_3p_ent_values
4321: (p_element_link_id,
4322: p_element_entry_id,
4323: p_session_date,
4324: v_num_entry_values,
4332: -- NAME delete_covered_dependants
4333: --
4334: -- DESCRIPTION Deals with calls to update the covered dependents of an
4335: -- Element entry.
4336: -- Called by : hr_entry.del_3p_entry_values
4337: -- : hrentmnt.validate_adjust_entry
4338: --
4339: ----------------------------------------------------------------------------
4340:
4398: end delete_covered_dependants;
4399:
4400: ----------------------------------------------------------------------------
4401: --
4402: -- NAME hr_entry.delete_beneficiaries
4403: --
4404: -- DESCRIPTION deals with calls to update the beneficiaries of a given
4405: -- element entry.
4406: -- Called by :- hr_entry.del_3p_entry_values
4402: -- NAME hr_entry.delete_beneficiaries
4403: --
4404: -- DESCRIPTION deals with calls to update the beneficiaries of a given
4405: -- element entry.
4406: -- Called by :- hr_entry.del_3p_entry_values
4407: -- hrentmnt.validate_adjust_entry
4408: --
4409: ----------------------------------------------------------------------------
4410:
4472: end delete_beneficiaries;
4473: -------------------------
4474:
4475: -- NAME
4476: -- hr_entry.del_3p_entry_values
4477: --
4478: -- DESCRIPTION
4479: -- This procedure is used for third party deletes from:
4480: -- PAY_ELEMENT_ENTRIES_F (If an abscence, or DT functions are being used).
4597: begin
4598: g_debug := hr_utility.debug_enabled;
4599: --
4600: if g_debug then
4601: hr_utility.set_location('hr_entry.del_3p_entry_values', 1);
4602: end if;
4603: --
4604: -- Fix for 1904110.
4605: -- The delete mode is always set to the parameter passed in because
4603: --
4604: -- Fix for 1904110.
4605: -- The delete mode is always set to the parameter passed in because
4606: -- the delete of the entry values should always use the same mode
4607: -- as the entry. See hr_entry_api.del_ele_entry_param_val
4608: --
4609: v_dt_delete_mode := p_dt_delete_mode;
4610: --
4611: if (v_dt_delete_mode = 'ZAP'
4613: --
4614: -- Delete rows in child tables which would be orphaned by the entry deletion
4615: --
4616: -- Bug fix 519738 - call procedure with new list of parameters, p_start_date defaults to null
4617: hr_entry.delete_beneficiaries(
4618: p_element_entry_id => p_element_entry_id,
4619: p_end_date => p_session_date,
4620: p_validation_start_date => p_validation_start_date);
4621: -- Bug fix 519738 - call procedure with new list of parameters, p_start_date defaults to NULL
4618: p_element_entry_id => p_element_entry_id,
4619: p_end_date => p_session_date,
4620: p_validation_start_date => p_validation_start_date);
4621: -- Bug fix 519738 - call procedure with new list of parameters, p_start_date defaults to NULL
4622: hr_entry.delete_covered_dependants(
4623: p_element_entry_id => p_element_entry_id,
4624: p_end_date => p_session_date,
4625: p_validation_start_date => p_validation_start_date);
4626: --
4625: p_validation_start_date => p_validation_start_date);
4626: --
4627: -- Find out if the element is processable in a payroll run
4628: --
4629: if hr_entry.entry_process_in_run(p_element_type_id, p_session_date) then
4630: v_process_in_run_flag := 'Y';
4631: else
4632: v_process_in_run_flag := 'N';
4633: end if;
4657: -- Step 2:
4658: --
4659: if v_process_in_run_flag = 'Y' then
4660: if g_debug then
4661: hr_utility.set_location('hr_entry.del_3p_entry_values', 2);
4662: end if;
4663: begin
4664: delete from pay_run_result_values rrv
4665: where rrv.run_result_id =
4676: -- DT_DELETE_MODE: ZAP
4677: -- Step 3:
4678: --
4679: if g_debug then
4680: hr_utility.set_location('hr_entry.del_3p_entry_values', 3);
4681: end if;
4682: begin
4683: delete from pay_run_results rr
4684: where rr.element_type_id + 0 = p_element_type_id
4698: --
4699: if (p_creator_type = 'F'
4700: or p_element_entry_id is not null) then
4701: if g_debug then
4702: hr_utility.set_location('hr_entry.del_3p_entry_values', 4);
4703: end if;
4704: begin
4705: delete from pay_element_entry_values_f eev
4706: where eev.element_entry_id = p_element_entry_id;
4715: -- 2) This is specific to absences.
4716: -- Step 5:
4717: --
4718: if g_debug then
4719: hr_utility.set_location('hr_entry.del_3p_entry_values', 5);
4720: end if;
4721: begin
4722: delete from pay_element_entry_values_f eev
4723: where eev.element_entry_id in
4741: -- DT_DELETE_MODE: ZAP
4742: -- Step 6:
4743: --
4744: if g_debug then
4745: hr_utility.set_location('hr_entry.del_3p_entry_values', 6);
4746: end if;
4747: begin
4748: delete from pay_element_entries_f ee
4749: where ee.element_entry_id = p_element_entry_id;
4756: -- As the entry is an absence then delete all entries for the absence
4757: -- attendence.
4758: --
4759: if g_debug then
4760: hr_utility.set_location('hr_entry.del_3p_entry_values', 7);
4761: end if;
4762: begin
4763: delete from pay_element_entries_f ee
4764: where ee.creator_type = p_creator_type
4775: -- DT_DELETE_MODE: DELETE
4776: -- Step 8:
4777: --
4778: if g_debug then
4779: hr_utility.set_location('hr_entry.del_3p_entry_values', 8);
4780: end if;
4781: begin
4782: update pay_element_entry_values_f eev
4783: set eev.effective_end_date = p_session_date
4786: and eev.effective_end_date;
4787: exception
4788: when NO_DATA_FOUND then
4789: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4790: hr_utility.set_message_token('PROCEDURE','hr_entry.del_3p_entry_values');
4791: hr_utility.set_message_token('STEP','8');
4792: hr_utility.raise_error;
4793: end;
4794: --
4792: hr_utility.raise_error;
4793: end;
4794: --
4795: if g_debug then
4796: hr_utility.set_location('hr_entry.del_3p_entry_values', 9);
4797: end if;
4798: begin
4799: delete from pay_element_entry_values_f eev
4800: where eev.element_entry_id = p_element_entry_id
4810: -- DT_DELETE_MODE: DELETE_NEXT_CHANGE/FUTURE_CHANGE
4811: -- Step 9:
4812: --
4813: if g_debug then
4814: hr_utility.set_location('hr_entry.del_3p_entry_values', 9);
4815: end if;
4816: begin
4817: delete from pay_element_entry_values_f eev
4818: where eev.element_entry_id = p_element_entry_id
4826: -- Update the current effective_end_date on the entry values rows.
4827: -- DT_DELETE_MODE: DELETE_NEXT_CHANGE/FUTURE_CHANGE
4828: -- Step 10:
4829: if g_debug then
4830: hr_utility.set_location('hr_entry.del_3p_entry_values', 10);
4831: end if;
4832: begin
4833: update pay_element_entry_values_f eev
4834: -- bug 384948. Changed set clouse to supply effective_end_date of the
4842: and eev.effective_end_date;
4843: exception
4844: when NO_DATA_FOUND then
4845: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4846: hr_utility.set_message_token('PROCEDURE','hr_entry.del_3p_entry_values');
4847: hr_utility.set_message_token('STEP','10');
4848: hr_utility.raise_error;
4849: end;
4850: --
4872: p_validation_end_date date,
4873: p_session_date date,
4874: p_dt_update_mode varchar2,
4875: p_num_entry_values number,
4876: p_input_value_id_tbl hr_entry.number_table,
4877: p_entry_value_tbl hr_entry.varchar2_table
4878: ) is
4879: --
4880: -- Local Variables
4873: p_session_date date,
4874: p_dt_update_mode varchar2,
4875: p_num_entry_values number,
4876: p_input_value_id_tbl hr_entry.number_table,
4877: p_entry_value_tbl hr_entry.varchar2_table
4878: ) is
4879: --
4880: -- Local Variables
4881: v_return_entry_id number;
4881: v_return_entry_id number;
4882: --
4883: begin
4884: if g_debug then
4885: hr_utility.set_location('hr_entry.upd_3p_entry_values', 1);
4886: end if;
4887: hr_general.assert_condition (p_processing_type is not null
4888: and p_dt_update_mode is not null
4889: and p_element_entry_id is not null
4916: --
4917: -- NB. mandatory checks are not applied to adjustments.
4918: if not p_entry_type in ('A','R') then
4919: --
4920: hr_entry.chk_mandatory_entry_values
4921: (p_element_link_id,
4922: p_session_date,
4923: p_num_entry_values,
4924: p_input_value_id_tbl,
4945: exception
4946: when NO_DATA_FOUND then
4947: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4948: hr_utility.set_message_token('PROCEDURE',
4949: 'hr_entry.upd_3p_entry_values');
4950: hr_utility.set_message_token('STEP','1');
4951: hr_utility.raise_error;
4952: end;
4953: --
4965: if (p_processing_type = 'N' and
4966: -- p_creator_type <> 'A' and
4967: p_entry_type = 'E' and
4968: p_input_currency_code = p_output_currency_code and
4969: hr_entry.entry_process_in_run(p_element_type_id, p_session_date)) then
4970: if g_debug then
4971: hr_utility.set_location('hr_entry.upd_3p_entry_values', 3);
4972: end if;
4973: begin
4967: p_entry_type = 'E' and
4968: p_input_currency_code = p_output_currency_code and
4969: hr_entry.entry_process_in_run(p_element_type_id, p_session_date)) then
4970: if g_debug then
4971: hr_utility.set_location('hr_entry.upd_3p_entry_values', 3);
4972: end if;
4973: begin
4974: UPDATE PAY_RUN_RESULT_VALUES PRRV1
4975: SET PRRV1.RESULT_VALUE =
5000: p_dt_update_mode = 'UPDATE_CHANGE_INSERT' or
5001: p_dt_update_mode = 'UPDATE_OVERRIDE') and
5002: p_processing_type = 'R') then
5003: if g_debug then
5004: hr_utility.set_location('hr_entry.upd_3p_entry_values', 4);
5005: end if;
5006: begin
5007: UPDATE PAY_ELEMENT_ENTRY_VALUES_F PEEV1
5008: SET PEEV1.EFFECTIVE_END_DATE = p_validation_start_date - 1
5011: BETWEEN PEEV1.EFFECTIVE_START_DATE AND PEEV1.EFFECTIVE_END_DATE;
5012: exception
5013: when NO_DATA_FOUND then
5014: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5015: hr_utility.set_message_token('PROCEDURE','hr_entry.upd_3p_entry_values');
5016: hr_utility.set_message_token('STEP','4');
5017: hr_utility.raise_error;
5018: end;
5019: --
5022: -- Step 4:
5023: --
5024: if p_dt_update_mode = 'UPDATE_OVERRIDE' then
5025: if g_debug then
5026: hr_utility.set_location('hr_entry.upd_3p_entry_values', 5);
5027: end if;
5028: begin
5029: DELETE FROM PAY_ELEMENT_ENTRY_VALUES_F PEEV1
5030: WHERE PEEV1.ELEMENT_ENTRY_ID = p_element_entry_id
5033: end if;
5034: --
5035: -- Insert new updated element entry rows.
5036: --
5037: hr_entry.ins_3p_entry_values
5038: (p_element_link_id,
5039: p_element_entry_id,
5040: p_session_date,
5041: p_num_entry_values,
5046: --
5047: end upd_3p_ent_values;
5048: --
5049: -- NAME
5050: -- hr_entry.upd_3p_entry_values
5051: --
5052: -- DESCRIPTION
5053: -- This procedure is used for third party updates into:
5054: -- PAY_ELEMENT_ENTRY_VALUES_F
5074: p_validation_end_date date,
5075: p_session_date date,
5076: p_dt_update_mode varchar2,
5077: p_num_entry_values number,
5078: p_input_value_id_tbl hr_entry.number_table,
5079: p_entry_value_tbl hr_entry.varchar2_table
5080: ) is
5081: --
5082: -- Local Variables
5075: p_session_date date,
5076: p_dt_update_mode varchar2,
5077: p_num_entry_values number,
5078: p_input_value_id_tbl hr_entry.number_table,
5079: p_entry_value_tbl hr_entry.varchar2_table
5080: ) is
5081: --
5082: -- Local Variables
5083: v_return_entry_id number;
5081: --
5082: -- Local Variables
5083: v_return_entry_id number;
5084: v_num_entry_values number;
5085: v_input_value_id_tbl hr_entry.number_table;
5086: v_entry_value_tbl hr_entry.varchar2_table;
5087: --
5088: begin
5089: --
5082: -- Local Variables
5083: v_return_entry_id number;
5084: v_num_entry_values number;
5085: v_input_value_id_tbl hr_entry.number_table;
5086: v_entry_value_tbl hr_entry.varchar2_table;
5087: --
5088: begin
5089: --
5090: v_num_entry_values := p_num_entry_values;
5090: v_num_entry_values := p_num_entry_values;
5091: v_input_value_id_tbl := p_input_value_id_tbl;
5092: v_entry_value_tbl := p_entry_value_tbl;
5093: --
5094: hr_entry_api.conv_table_to_table
5095: ('DB',
5096: p_session_date,
5097: p_element_entry_id,
5098: null,
5102: p_entry_type,
5103: v_input_value_id_tbl,
5104: v_entry_value_tbl);
5105: --
5106: hr_entry.upd_3p_ent_values
5107: (p_element_entry_id,
5108: p_element_type_id,
5109: p_element_link_id,
5110: p_cost_allocation_keyflex_id,
5125: --
5126: end upd_3p_entry_values;
5127: --
5128: -- NAME
5129: -- hr_entry.upd_3p_entry_values
5130: --
5131: -- DESCRIPTION
5132: -- This procedure is used for third party updates into:
5133: -- PAY_ELEMENT_ENTRY_VALUES_F
5186: ) is
5187: --
5188: -- Local variables
5189: v_num_entry_values number;
5190: v_input_value_id_tbl hr_entry.number_table;
5191: v_entry_value_tbl hr_entry.varchar2_table;
5192: --
5193: begin
5194: g_debug := hr_utility.debug_enabled;
5187: --
5188: -- Local variables
5189: v_num_entry_values number;
5190: v_input_value_id_tbl hr_entry.number_table;
5191: v_entry_value_tbl hr_entry.varchar2_table;
5192: --
5193: begin
5194: g_debug := hr_utility.debug_enabled;
5195: --
5193: begin
5194: g_debug := hr_utility.debug_enabled;
5195: --
5196: if g_debug then
5197: hr_utility.set_location('hr_entry.upd_3p_entry_values',100);
5198: end if;
5199: --
5200: -- Convert entry value details ie. INPUT_VALUE_ID and SCREEN_ENTRY_VALUE
5201: -- into two tables to be passed into the overloaded version of
5200: -- Convert entry value details ie. INPUT_VALUE_ID and SCREEN_ENTRY_VALUE
5201: -- into two tables to be passed into the overloaded version of
5202: -- upd_3p_entry_values. The overloaded version is capable of handling
5203: -- unlimited numbers of entry values.
5204: hr_entry_api.conv_entry_values_to_table
5205: ('DB',
5206: p_element_entry_id,
5207: null,
5208: p_session_date,
5243: v_input_value_id_tbl,
5244: v_entry_value_tbl);
5245: --
5246: if g_debug then
5247: hr_utility.set_location('hr_entry.upd_3p_entry_values',105);
5248: end if;
5249: --
5250: hr_entry.upd_3p_ent_values
5251: (p_element_entry_id,
5246: if g_debug then
5247: hr_utility.set_location('hr_entry.upd_3p_entry_values',105);
5248: end if;
5249: --
5250: hr_entry.upd_3p_ent_values
5251: (p_element_entry_id,
5252: p_element_type_id,
5253: p_element_link_id,
5254: p_cost_allocation_keyflex_id,
5269: --
5270: end upd_3p_entry_values;
5271: --
5272: -- NAME
5273: -- hr_entry.trigger_workload_shifting
5274: --
5275: -- DESCRIPTION
5276: -- This procedure is used for triggering workload shifting.
5277: --
5364: --
5365: end trigger_workload_shifting;
5366: --
5367: -- NAME
5368: -- hr_entry.check_format
5369: --
5370: -- DESCRIPTION
5371: -- Makes sure that the entry value is correct for the UOM and also convert the
5372: -- screen value into the database value ie. internal format.
5403: begin
5404: g_debug := hr_utility.debug_enabled;
5405: --
5406: if g_debug then
5407: hr_utility.set_location('hr_entry.check_format',5);
5408: hr_utility.trace(' p_element_link_id : '|| p_element_link_id);
5409: hr_utility.trace(' p_input_value_id : '|| p_input_value_id);
5410: hr_utility.trace(' p_session_date : '|| p_session_date);
5411: hr_utility.trace(' p_formatted_value : '|| p_formatted_value);
5464: exception
5465: when no_data_found then
5466: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5467: hr_utility.set_message_token('PROCEDURE',
5468: 'hr_entry.check_format');
5469: hr_utility.set_message_token('STEP','1');
5470: hr_utility.raise_error;
5471: end;
5472: --
5470: hr_utility.raise_error;
5471: end;
5472: --
5473: if g_debug then
5474: hr_utility.set_location('hr_entry.check_format',10);
5475: hr_utility.trace(' v_uom : '|| v_uom);
5476: hr_utility.trace(' v_hot_default_flag : '|| v_hot_default_flag);
5477: hr_utility.trace(' v_input_currency_code : '|| v_input_currency_code);
5478: hr_utility.trace(' v_minimum_value : '|| v_minimum_value);
5518: v_checkformat_error := true;
5519: end;
5520: --
5521: if g_debug then
5522: hr_utility.set_location('hr_entry.check_format',10);
5523: end if;
5524: --
5525: -- Value is not correct for unit of measure
5526: if (v_checkformat_error) then
5535: --
5536: exception
5537: when no_data_found then
5538: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5539: hr_utility.set_message_token('PROCEDURE', 'hr_entry.check_format');
5540: hr_utility.set_message_token('STEP', '2');
5541: hr_utility.raise_error;
5542: end;
5543: --
5547: --
5548: end if;
5549: --
5550: if g_debug then
5551: hr_utility.set_location('hr_entry.check_format',15);
5552: end if;
5553: --
5554: -- Minimum / maximum conditions have been broken by value
5555: if p_min_max_failure = 'F' then
5554: -- Minimum / maximum conditions have been broken by value
5555: if p_min_max_failure = 'F' then
5556: --
5557: if g_debug then
5558: hr_utility.set_location('hr_entry.check_format',20);
5559: end if;
5560: --
5561: -- If minimum value was specified, translate into screen format for use
5562: -- in error meessages
5564: p_minimum_value := v_formatted_min_value;
5565: end if;
5566: --
5567: if g_debug then
5568: hr_utility.set_location('hr_entry.check_format',25);
5569: end if;
5570: --
5571: -- If maximum value was specified, translate into screen format for use
5572: -- in error meessages
5578: --
5579: end check_format;
5580: --
5581: -- NAME
5582: -- hr_entry.maintain_cost_keyflex
5583: --
5584: -- DESCRIPTION
5585: --
5586: function maintain_cost_keyflex(
5685: --
5686: -- Need to check for a partial value.
5687: --
5688: if g_debug then
5689: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 1);
5690: end if;
5691: --
5692: segment(1) := p_segment1;
5693: segment(2) := p_segment2;
5734: end if;
5735: end loop;
5736: --
5737: if g_debug then
5738: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 2);
5739: end if;
5740: --
5741: sql_curs := dbms_sql.open_cursor;
5742: --
5753: end loop;
5754: dbms_sql.define_column(sql_curs, 1, l_cost_allocation_keyflex_id);
5755: --
5756: if g_debug then
5757: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 3);
5758: end if;
5759: --
5760: rows_processed := dbms_sql.execute(sql_curs);
5761: --
5759: --
5760: rows_processed := dbms_sql.execute(sql_curs);
5761: --
5762: if g_debug then
5763: hr_utility.set_location('hr_entry.maintain_cost_keyflex ', 4);
5764: end if;
5765: --
5766: if dbms_sql.fetch_rows(sql_curs) > 0 then
5767: --
5765: --
5766: if dbms_sql.fetch_rows(sql_curs) > 0 then
5767: --
5768: if g_debug then
5769: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 5);
5770: end if;
5771: dbms_sql.column_value(sql_curs, 1, l_cost_allocation_keyflex_id);
5772: --
5773: if (l_cost_allocation_keyflex_id is null)
5772: --
5773: if (l_cost_allocation_keyflex_id is null)
5774: then
5775: if g_debug then
5776: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 6);
5777: end if;
5778: l_cost_allocation_keyflex_id := -1;
5779: end if;
5780: else
5778: l_cost_allocation_keyflex_id := -1;
5779: end if;
5780: else
5781: if g_debug then
5782: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 7);
5783: end if;
5784: l_cost_allocation_keyflex_id := -1;
5785: end if;
5786: --
5808: and dynamic_inserts_allowed_flag = 'Y';
5809:
5810: exception
5811: when no_data_found then
5812: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 7);
5813: hr_utility.set_message(801, 'PAY_34809_CANT_INS_INTO_CSTKFF');
5814: hr_utility.raise_error;
5815: end;
5816:
5817: --
5818: -- Select the next sequence value for the cost allocation keyflex.
5819: --
5820: if g_debug then
5821: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 8);
5822: end if;
5823: begin
5824: select pay_cost_allocation_keyflex_s.nextval
5825: into l_cost_allocation_keyflex_id
5827: exception
5828: when NO_DATA_FOUND then
5829: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5830: hr_utility.set_message_token('PROCEDURE',
5831: 'hr_entry.maintain_cost_keyflex');
5832: hr_utility.set_message_token('STEP','5');
5833: hr_utility.raise_error;
5834: end;
5835: --
5837: --
5838: if p_concatenated_segments is null then
5839: --
5840: if g_debug then
5841: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 15);
5842: end if;
5843: -- get delimiter
5844: l_delimiter := fnd_flex_ext.get_delimiter
5845: ('PAY'
5847: ,p_cost_keyflex_structure
5848: );
5849: --
5850: if g_debug then
5851: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 20);
5852: end if;
5853: --
5854: first_seg := true;
5855:
5874: l_concatenated_segments := substr(l_concat_string, 1, 240);
5875: else
5876: --
5877: if g_debug then
5878: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 25);
5879: end if;
5880: --
5881: l_concatenated_segments := p_concatenated_segments;
5882: end if;
5906: ) = FALSE
5907: then
5908: --
5909: if g_debug then
5910: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 27);
5911: end if;
5912: --
5913: -- Handle error raised to create a nice error message!
5914: --
5916: FND_FLEX_KEYVAL.encoded_error_message);
5917: fnd_message.raise_error;
5918: else
5919: if g_debug then
5920: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 28);
5921: end if;
5922:
5923: end if;
5924: end if;
5925: --
5926: -- Insert the new row.
5927: --
5928: if g_debug then
5929: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 30);
5930: end if;
5931: begin
5932: insert into pay_cost_allocation_keyflex
5933: (cost_allocation_keyflex_id
6022: end maintain_cost_keyflex;
6023: --
6024: --
6025: -- NAME
6026: -- hr_entry.return_entry_display_status
6027: --
6028: -- DESCRIPTION
6029: -- Used by PAYEEMEE/PAYWSMEE to return current entry statuses during a
6030: -- post-query.
6051: --
6052: -- We need to get the standard assignment payroll and time period details
6053: --
6054: if g_debug then
6055: hr_utility.set_location('hr_entry.return_entry_display_status', 1);
6056: end if;
6057: begin
6058: select a.payroll_id,
6059: t.start_date,
6079: --
6080: -- 1: lets set the additional value.
6081: --
6082: if g_debug then
6083: hr_utility.set_location('hr_entry.return_entry_display_status', 5);
6084: end if;
6085: if (p_entry_type = 'D') then
6086: p_additional := 'Y';
6087: else
6090: --
6091: -- 2: lets see if current entry has been processed.
6092: --
6093: if g_debug then
6094: hr_utility.set_location('hr_entry.return_entry_display_status', 10);
6095: end if;
6096: if (l_payroll_id is not null) then
6097: begin
6098: select max(ppr.run_result_id)
6122: -- If the run result was processed and is an override then it cannot itself
6123: -- be overridden or adjusted.
6124: --
6125: if g_debug then
6126: hr_utility.set_location('hr_entry.return_entry_display_status', 15);
6127: end if;
6128: if (l_run_result_id is not null and
6129: p_entry_type = 'S') then
6130: p_processed := 'Y';
6139: -- As the entry was processed we need to check if it was overridden or
6140: -- Adjusted.
6141: --
6142: if g_debug then
6143: hr_utility.set_location('hr_entry.return_entry_display_status', 20);
6144: end if;
6145: begin
6146: select prr.status
6147: into l_run_result_status
6155: -- If the l_run_result_status is NOT in 'PA', 'R', 'O' then set the
6156: -- l_override, l_adjusted to 'N' and to don't do any further checks.
6157: --
6158: if g_debug then
6159: hr_utility.set_location('hr_entry.return_entry_display_status', 25);
6160: end if;
6161: if (l_run_result_status <> 'PA' or
6162: l_run_result_status <> 'R' or
6163: l_run_result_status <> 'O') then
6175: --
6176: -- 3: Check to see if the entry is overridden.
6177: --
6178: if g_debug then
6179: hr_utility.set_location('hr_entry.return_entry_display_status', 30);
6180: end if;
6181: begin
6182: select 'Y'
6183: into l_overridden
6198: -- 4: If the entry is NOT overridden then check to see if has been adjusted.
6199: --
6200: if (l_overridden = 'N') then
6201: if g_debug then
6202: hr_utility.set_location('hr_entry.return_entry_display_status', 35);
6203: end if;
6204: begin
6205: select 'Y'
6206: into p_adjustment
6222: --
6223: end return_entry_display_status;
6224: --
6225: -- NAME
6226: -- hr_entry.chk_creator_type
6227: --
6228: -- DESCRIPTION
6229: -- Used by PAYEEMEE/PAYWSMEE to restrict DT operations according to the
6230: -- creator type ie. cannot update a balance adjustment etc ...
6268: -- B: Balance Adjustment
6269: -- SP: Salary Admin
6270: --
6271: if g_debug then
6272: hr_utility.set_location('hr_entry.chk_creator_type', 5);
6273: end if;
6274: begin
6275: select h.meaning
6276: into l_creator_meaning
6313: (p_dml_operation = 'UPDATE' and
6314: l_dt_update_mode = 'UPDATE_OVERRIDE')))) then
6315: --
6316: if g_debug then
6317: hr_utility.set_location('hr_entry.chk_creator_type', 10);
6318: end if;
6319: begin
6320: select 'Y'
6321: into l_error_flag
6389: -- bug 10008908 cater for datetrack events that cause entry to be deleted and replaced
6390: -- with new entry- point dependent rows at new replacement entry
6391:
6392: if g_debug then
6393: hr_utility.trace('hr_entry.maintain_covered_dependants. entry replaced. dependants entry_id:'||
6394: to_char(p_element_entry_id)||
6395: ' switched to ' ||to_char(p_new_element_entry_id));
6396: end if;
6397:
6566: --
6567: end loop;
6568: end if;
6569: end maintain_beneficiaries;
6570: end hr_entry;