[Home] [Help]
9: -- terminated.
10: -- If the assignment has not been terminated then the returned
11: -- actual_termination_date date will be null.
12: --
13: g_debug boolean := hr_utility.debug_enabled;
14: function return_termination_date(p_assignment_id in number,
15: p_session_date in date)
16: return date is
17: l_actual_termination_date date;
20: -- Select the actual termination date is the assignment has been
21: -- terminated.
22: --
23: if g_debug then
24: hr_utility.set_location('hr_entry.return_termination_date', 1);
25: end if;
26: begin
27: select pos.actual_termination_date
28: into l_actual_termination_date
72: v_start_date date;
73: v_end_date date;
74: --
75: begin
76: g_debug := hr_utility.debug_enabled;
77: --
78: if g_debug then
79: hr_utility.set_location('hr_entry.get_nonrecurring_dates',5);
80: end if;
75: begin
76: g_debug := hr_utility.debug_enabled;
77: --
78: if g_debug then
79: hr_utility.set_location('hr_entry.get_nonrecurring_dates',5);
80: end if;
81: --
82: -- Retrieve the payroll for the assignment on the date the nonrecurring
83: -- entry is being created NB if there is no payroll then it is invalid to
97: and asg.effective_end_date;
98: --
99: exception
100: when no_data_found then
101: hr_utility.set_message(801, 'HR_6047_ELE_ENTRY_NO_PAYROLL');
102: hr_utility.raise_error;
103: end;
104: --
105: if g_debug then
98: --
99: exception
100: when no_data_found then
101: hr_utility.set_message(801, 'HR_6047_ELE_ENTRY_NO_PAYROLL');
102: hr_utility.raise_error;
103: end;
104: --
105: if g_debug then
106: hr_utility.set_location('hr_entry.get_nonrecurring_dates',10);
102: hr_utility.raise_error;
103: end;
104: --
105: if g_debug then
106: hr_utility.set_location('hr_entry.get_nonrecurring_dates',10);
107: end if;
108: --
109: -- Retrieve the start and end dates of the period for the payroll on the
110: -- date on which the nonrecurring entry is being created NB. a payroll
121: and tim.end_date;
122: --
123: exception
124: when no_data_found then
125: hr_utility.set_message(801, 'HR_6614_PAY_NO_TIME_PERIOD');
126: hr_utility.raise_error;
127: end;
128: --
129: if g_debug then
122: --
123: exception
124: when no_data_found then
125: hr_utility.set_message(801, 'HR_6614_PAY_NO_TIME_PERIOD');
126: hr_utility.raise_error;
127: end;
128: --
129: if g_debug then
130: hr_utility.set_location('hr_entry.get_nonrecurring_dates',15);
126: hr_utility.raise_error;
127: end;
128: --
129: if g_debug then
130: hr_utility.set_location('hr_entry.get_nonrecurring_dates',15);
131: end if;
132: --
133: -- Current assignment record starts after the beginning of the time period.
134: if v_asg_effective_start_date > v_time_period_start_date then
156: --
157: end if;
158: --
159: if g_debug then
160: hr_utility.set_location('hr_entry.get_nonrecurring_dates',20);
161: end if;
162: --
163: -- Current assignment record ends before the finish of the time period.
164: if v_asg_effective_end_date < v_time_period_end_date then
186: --
187: end if;
188: --
189: if g_debug then
190: hr_utility.set_location('hr_entry.get_nonrecurring_dates',25);
191: end if;
192: --
193: -- Return the start and end dates of the nonrecurring entry.
194: p_effective_start_date := greatest(v_asg_effective_start_date,
241: --
242: begin
243: --
244: if g_debug then
245: hr_utility.set_location('hr_entry.chk_entry_overlap',5);
246: end if;
247: --
248: -- Only do check if the entry being altered is a normal entry ie. not
249: -- adjustment, additional etc ... If multiple concurrent entries are not
278: end if;
279: --
280: if v_overlap_occurred = 'Y' then
281: --
282: hr_utility.set_message(801, 'HR_6956_ELE_ENTRY_OVERLAP');
283: hr_utility.raise_error;
284: --
285: end if;
286: --
279: --
280: if v_overlap_occurred = 'Y' then
281: --
282: hr_utility.set_message(801, 'HR_6956_ELE_ENTRY_OVERLAP');
283: hr_utility.raise_error;
284: --
285: end if;
286: --
287: end chk_entry_overlap;
348: from per_all_people_f papf
349: where papf.person_id = asg.person_id);
350: --
351: begin
352: g_debug := hr_utility.debug_enabled;
353: --
354: -- Ensure all the passed parameters exist
355: --
356: if (p_assignment_id is null or
355: --
356: if (p_assignment_id is null or
357: p_element_link_id is null or
358: p_session_date is null) then
359: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
360: hr_utility.set_message_token('PROCEDURE',
361: 'hr_entry.return_qualifying_conditions');
362: hr_utility.set_message_token('STEP','1');
363: hr_utility.raise_error;
356: if (p_assignment_id is null or
357: p_element_link_id is null or
358: p_session_date is null) then
359: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
360: hr_utility.set_message_token('PROCEDURE',
361: 'hr_entry.return_qualifying_conditions');
362: hr_utility.set_message_token('STEP','1');
363: hr_utility.raise_error;
364: end if;
358: p_session_date is null) then
359: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
360: hr_utility.set_message_token('PROCEDURE',
361: 'hr_entry.return_qualifying_conditions');
362: hr_utility.set_message_token('STEP','1');
363: hr_utility.raise_error;
364: end if;
365: --
366: -- select the qualifying conditions for los.
359: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
360: hr_utility.set_message_token('PROCEDURE',
361: 'hr_entry.return_qualifying_conditions');
362: hr_utility.set_message_token('STEP','1');
363: hr_utility.raise_error;
364: end if;
365: --
366: -- select the qualifying conditions for los.
367: --
366: -- select the qualifying conditions for los.
367: --
368: begin
369: if g_debug then
370: hr_utility.set_location('hr_entry.return_qualifying_conditions', 5);
371: end if;
372: select pel.qualifying_age,
373: pel.qualifying_length_of_service,
374: pel.qualifying_units
381: between pel.effective_start_date
382: and pel.effective_end_date;
383: exception
384: when NO_DATA_FOUND then
385: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
386: hr_utility.set_message_token('PROCEDURE',
387: 'hr_entry.return_qualifying_conditions');
388: hr_utility.set_message_token('STEP','5');
389: hr_utility.raise_error;
382: and pel.effective_end_date;
383: exception
384: when NO_DATA_FOUND then
385: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
386: hr_utility.set_message_token('PROCEDURE',
387: 'hr_entry.return_qualifying_conditions');
388: hr_utility.set_message_token('STEP','5');
389: hr_utility.raise_error;
390: end;
384: when NO_DATA_FOUND then
385: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
386: hr_utility.set_message_token('PROCEDURE',
387: 'hr_entry.return_qualifying_conditions');
388: hr_utility.set_message_token('STEP','5');
389: hr_utility.raise_error;
390: end;
391: --
392: if (l_qualifying_los is not null) then
385: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
386: hr_utility.set_message_token('PROCEDURE',
387: 'hr_entry.return_qualifying_conditions');
388: hr_utility.set_message_token('STEP','5');
389: hr_utility.raise_error;
390: end;
391: --
392: if (l_qualifying_los is not null) then
393: --
394: -- Need to select the valid los date
395: --
396: begin
397: if g_debug then
398: hr_utility.set_location('hr_entry.return_qualifying_conditions', 10);
399: end if;
400: open csr_los_date;
401: fetch csr_los_date into p_los_date;
402: close csr_los_date;
401: fetch csr_los_date into p_los_date;
402: close csr_los_date;
403: exception
404: when NO_DATA_FOUND then
405: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
406: hr_utility.set_message_token('PROCEDURE',
407: 'hr_entry.return_qualifying_conditions');
408: hr_utility.set_message_token('STEP','10');
409: hr_utility.raise_error;
402: close csr_los_date;
403: exception
404: when NO_DATA_FOUND then
405: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
406: hr_utility.set_message_token('PROCEDURE',
407: 'hr_entry.return_qualifying_conditions');
408: hr_utility.set_message_token('STEP','10');
409: hr_utility.raise_error;
410: end;
404: when NO_DATA_FOUND then
405: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
406: hr_utility.set_message_token('PROCEDURE',
407: 'hr_entry.return_qualifying_conditions');
408: hr_utility.set_message_token('STEP','10');
409: hr_utility.raise_error;
410: end;
411: --
412: end if;
405: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
406: hr_utility.set_message_token('PROCEDURE',
407: 'hr_entry.return_qualifying_conditions');
408: hr_utility.set_message_token('STEP','10');
409: hr_utility.raise_error;
410: end;
411: --
412: end if;
413: --
420: if (l_qualifying_age is not null) then
421: --
422: begin
423: if g_debug then
424: hr_utility.set_location('hr_entry.return_qualifying_conditions', 15);
425: end if;
426: open csr_age_date;
427: fetch csr_age_date into p_age_date;
428: close csr_age_date;
454: INTO v_element_entry_id
455: FROM SYS.DUAL;
456: exception
457: when NO_DATA_FOUND then
458: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
459: hr_utility.set_message_token('PROCEDURE','hr_entry.generate_entry_id');
460: hr_utility.set_message_token('STEP','1');
461: hr_utility.raise_error;
462: end;
455: FROM SYS.DUAL;
456: exception
457: when NO_DATA_FOUND then
458: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
459: hr_utility.set_message_token('PROCEDURE','hr_entry.generate_entry_id');
460: hr_utility.set_message_token('STEP','1');
461: hr_utility.raise_error;
462: end;
463: --
456: exception
457: when NO_DATA_FOUND then
458: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
459: hr_utility.set_message_token('PROCEDURE','hr_entry.generate_entry_id');
460: hr_utility.set_message_token('STEP','1');
461: hr_utility.raise_error;
462: end;
463: --
464: -- Return the next element_entry_id unique primary key id
457: when NO_DATA_FOUND then
458: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
459: hr_utility.set_message_token('PROCEDURE','hr_entry.generate_entry_id');
460: hr_utility.set_message_token('STEP','1');
461: hr_utility.raise_error;
462: end;
463: --
464: -- Return the next element_entry_id unique primary key id
465: --
486: INTO v_run_result_id
487: FROM SYS.DUAL;
488: exception
489: when NO_DATA_FOUND then
490: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
491: hr_utility.set_message_token('PROCEDURE','hr_entry.generate_run_result_id');
492: hr_utility.set_message_token('STEP','1');
493: hr_utility.raise_error;
494: end;
487: FROM SYS.DUAL;
488: exception
489: when NO_DATA_FOUND then
490: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
491: hr_utility.set_message_token('PROCEDURE','hr_entry.generate_run_result_id');
492: hr_utility.set_message_token('STEP','1');
493: hr_utility.raise_error;
494: end;
495: --
488: exception
489: when NO_DATA_FOUND then
490: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
491: hr_utility.set_message_token('PROCEDURE','hr_entry.generate_run_result_id');
492: hr_utility.set_message_token('STEP','1');
493: hr_utility.raise_error;
494: end;
495: --
496: -- Return the next run_result_id unique primary key id
489: when NO_DATA_FOUND then
490: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
491: hr_utility.set_message_token('PROCEDURE','hr_entry.generate_run_result_id');
492: hr_utility.set_message_token('STEP','1');
493: hr_utility.raise_error;
494: end;
495: --
496: -- Return the next run_result_id unique primary key id
497: --
524: open c1;
525: fetch c1 into v_process_in_run_flag;
526: if c1%NOTFOUND then
527: close c1;
528: hr_utility.set_message(801, 'HR_6884_ELE_ENTRY_NO_ELEMENT');
529: hr_utility.set_message_token('DATE_SUPPLIED',p_session_date);
530: hr_utility.raise_error;
531: end if;
532: close c1;
525: fetch c1 into v_process_in_run_flag;
526: if c1%NOTFOUND then
527: close c1;
528: hr_utility.set_message(801, 'HR_6884_ELE_ENTRY_NO_ELEMENT');
529: hr_utility.set_message_token('DATE_SUPPLIED',p_session_date);
530: hr_utility.raise_error;
531: end if;
532: close c1;
533: end;
526: if c1%NOTFOUND then
527: close c1;
528: hr_utility.set_message(801, 'HR_6884_ELE_ENTRY_NO_ELEMENT');
529: hr_utility.set_message_token('DATE_SUPPLIED',p_session_date);
530: hr_utility.raise_error;
531: end if;
532: close c1;
533: end;
534: --
694: v_asg_visible number;
695: begin
696: --
697: if g_debug then
698: hr_utility.set_location('hr_entry.chk_asg_visible', 1);
699: end if;
700: --
701: -- Check to see if this assignment is visible to a secure user.
702: -- If not then raise error.
707: --
708: if csr_sec_asg%notfound then
709: --
710: if g_debug then
711: hr_utility.set_location('hr_entry.chk_asg_visible', 2);
712: hr_utility.trace('Assignment ID Not Found: '||p_assignment_id);
713: end if;
714: --
715: -- The user is not authorized to process this assignment.
708: if csr_sec_asg%notfound then
709: --
710: if g_debug then
711: hr_utility.set_location('hr_entry.chk_asg_visible', 2);
712: hr_utility.trace('Assignment ID Not Found: '||p_assignment_id);
713: end if;
714: --
715: -- The user is not authorized to process this assignment.
716: --
715: -- The user is not authorized to process this assignment.
716: --
717: close csr_sec_asg;
718: --
719: hr_utility.set_message(801,'PAY_34811_ENTRY_MAINT_SEC_ASG');
720: hr_utility.raise_error;
721: --
722: end if;
723: --
716: --
717: close csr_sec_asg;
718: --
719: hr_utility.set_message(801,'PAY_34811_ENTRY_MAINT_SEC_ASG');
720: hr_utility.raise_error;
721: --
722: end if;
723: --
724: close csr_sec_asg;
723: --
724: close csr_sec_asg;
725: --
726: if g_debug then
727: hr_utility.set_location('hr_entry.chk_asg_visible', 3);
728: end if;
729: --
730: end chk_asg_visible;
731: --------------------------------------------------------------------------------
838: --
839: begin
840: --
841: if g_debug then
842: hr_utility.set_location(l_procedure_name,1);
843: end if;
844: --
845: -- Initialize "out" parameters
846: --
847: P_MIN_ELIGIBILITY_DATE := null;
848: P_MAX_ELIGIBILITY_DATE := null;
849: --
850: if g_debug then
851: hr_utility.set_location(l_procedure_name,2);
852: end if;
853: --
854: -- Get the outer bounds of the link
855: --
876: --
877: end if;
878: --
879: if g_debug then
880: hr_utility.set_location(l_procedure_name,3);
881: end if;
882: --
883: -- Check that the parameters are valid (doing it here allows us to
884: -- encompass a check that the cursors returned values correctly)
896: -- the appropriate privileges to edit the assignment as at the session
897: -- date, raise an error
898: --
899: if g_debug then
900: hr_utility.set_location(l_procedure_name,4);
901: end if;
902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
903: hr_utility.set_message_token('PROCEDURE',
904: 'hr_entry.get_eligibility_period');
898: --
899: if g_debug then
900: hr_utility.set_location(l_procedure_name,4);
901: end if;
902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
903: hr_utility.set_message_token('PROCEDURE',
904: 'hr_entry.get_eligibility_period');
905: hr_utility.set_message_token('STEP','4');
906: hr_utility.raise_error;
899: if g_debug then
900: hr_utility.set_location(l_procedure_name,4);
901: end if;
902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
903: hr_utility.set_message_token('PROCEDURE',
904: 'hr_entry.get_eligibility_period');
905: hr_utility.set_message_token('STEP','4');
906: hr_utility.raise_error;
907: --
901: end if;
902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
903: hr_utility.set_message_token('PROCEDURE',
904: 'hr_entry.get_eligibility_period');
905: hr_utility.set_message_token('STEP','4');
906: hr_utility.raise_error;
907: --
908: end if;
909: --
902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
903: hr_utility.set_message_token('PROCEDURE',
904: 'hr_entry.get_eligibility_period');
905: hr_utility.set_message_token('STEP','4');
906: hr_utility.raise_error;
907: --
908: end if;
909: --
910: if g_debug then
907: --
908: end if;
909: --
910: if g_debug then
911: hr_utility.set_location(l_procedure_name,5);
912: end if;
913: --
914: -- Get the minimum date on which the assignment is eligible for the
915: -- link in an unbroken period encompassing the session date. The cursor
968: -- Default the time period end date to the 'end of time' if null...
969: l_time_period_end_date := nvl(p_time_period_end_date, hr_general.end_of_time);
970: --
971: if g_debug then
972: hr_utility.trace(' l_time_period_start_date: '||to_char(l_time_period_start_date,'DD-MON-YYYY'));
973: hr_utility.trace(' l_time_period_end_date: '||to_char(l_time_period_end_date,'DD-MON-YYYY'));
974: end if;
975: -- Bugfix 5135065
976: -- We are not interested in assignment pieces that end before the beginning
969: l_time_period_end_date := nvl(p_time_period_end_date, hr_general.end_of_time);
970: --
971: if g_debug then
972: hr_utility.trace(' l_time_period_start_date: '||to_char(l_time_period_start_date,'DD-MON-YYYY'));
973: hr_utility.trace(' l_time_period_end_date: '||to_char(l_time_period_end_date,'DD-MON-YYYY'));
974: end if;
975: -- Bugfix 5135065
976: -- We are not interested in assignment pieces that end before the beginning
977: -- of the time period, so we pass the time period start date to csr_minimum
996: P_MIN_ELIGIBILITY_DATE := greatest (l_assignment.asgt_start, l_link.link_start);
997: end if;
998: --
999: if g_debug then
1000: hr_utility.trace ('P_MIN_ELIGIBILITY_DATE = '||to_char (P_MIN_ELIGIBILITY_DATE));
1001: end if;
1002: if P_MIN_ELIGIBILITY_DATE > lpi_session_date then
1003: raise no_current_eligibility;
1004: end if;
1003: raise no_current_eligibility;
1004: end if;
1005: --
1006: if g_debug then
1007: hr_utility.set_location(l_procedure_name,6);
1008: end if;
1009: --
1010: -- Get the maximum date on which the assignment is eligible for the
1011: -- link in an unbroken period encompassing the session date. See above
1049: end if;
1050:
1051: --
1052: if g_debug then
1053: hr_utility.trace ('P_MAX_ELIGIBILITY_DATE = '||to_char (P_MAX_ELIGIBILITY_DATE));
1054: end if;
1055: if P_MAX_ELIGIBILITY_DATE < lpi_session_date then
1056: raise no_current_eligibility;
1057: end if;
1056: raise no_current_eligibility;
1057: end if;
1058: --
1059: if g_debug then
1060: hr_utility.set_location(l_procedure_name,7);
1061: end if;
1062: --
1063: exception
1064: --
1068: -- Provide a helpful error message explaining which assignment
1069: -- and element failed, and on what date.
1070: --
1071: if g_debug then
1072: hr_utility.set_location (l_procedure_name,999);
1073: end if;
1074: --
1075: declare
1076: --
1119: open csr_error_assignment;
1120: fetch csr_error_assignment into l_assignment;
1121: close csr_error_assignment;
1122: --
1123: hr_utility.set_message(801, 'HR_51271_ELE_NOT_ELIGIBLE');
1124: hr_utility.set_message_token ('ELEMENT_NAME', l_element.element_name);
1125: hr_utility.set_message_token ('ASSIGNMENT_NUMBER', l_assignment.assignment_number);
1126: hr_utility.set_message_token ('SESSION_DATE', to_char (lpi_session_date));
1127: hr_utility.raise_error;
1120: fetch csr_error_assignment into l_assignment;
1121: close csr_error_assignment;
1122: --
1123: hr_utility.set_message(801, 'HR_51271_ELE_NOT_ELIGIBLE');
1124: hr_utility.set_message_token ('ELEMENT_NAME', l_element.element_name);
1125: hr_utility.set_message_token ('ASSIGNMENT_NUMBER', l_assignment.assignment_number);
1126: hr_utility.set_message_token ('SESSION_DATE', to_char (lpi_session_date));
1127: hr_utility.raise_error;
1128: --
1121: close csr_error_assignment;
1122: --
1123: hr_utility.set_message(801, 'HR_51271_ELE_NOT_ELIGIBLE');
1124: hr_utility.set_message_token ('ELEMENT_NAME', l_element.element_name);
1125: hr_utility.set_message_token ('ASSIGNMENT_NUMBER', l_assignment.assignment_number);
1126: hr_utility.set_message_token ('SESSION_DATE', to_char (lpi_session_date));
1127: hr_utility.raise_error;
1128: --
1129: end;
1122: --
1123: hr_utility.set_message(801, 'HR_51271_ELE_NOT_ELIGIBLE');
1124: hr_utility.set_message_token ('ELEMENT_NAME', l_element.element_name);
1125: hr_utility.set_message_token ('ASSIGNMENT_NUMBER', l_assignment.assignment_number);
1126: hr_utility.set_message_token ('SESSION_DATE', to_char (lpi_session_date));
1127: hr_utility.raise_error;
1128: --
1129: end;
1130: --
1123: hr_utility.set_message(801, 'HR_51271_ELE_NOT_ELIGIBLE');
1124: hr_utility.set_message_token ('ELEMENT_NAME', l_element.element_name);
1125: hr_utility.set_message_token ('ASSIGNMENT_NUMBER', l_assignment.assignment_number);
1126: hr_utility.set_message_token ('SESSION_DATE', to_char (lpi_session_date));
1127: hr_utility.raise_error;
1128: --
1129: end;
1130: --
1131: end get_eligibility_period;
1224: -- v_payroll_start_date Holds the payroll start date.
1225: -- v_payroll_end_date Holds the payroll end date.
1226: --
1227: begin
1228: g_debug := hr_utility.debug_enabled;
1229: --
1230: -- Ensure all mandatory parameters exist.
1231: --
1232: hr_general.assert_condition (p_assignment_id is not null
1235: and p_session_date = trunc (p_session_date));
1236: --
1237: if g_debug then
1238: --
1239: hr_utility.trace('begin hr_entry.entry_asg_pay_link_dates');
1240: hr_utility.trace(' p_session_date:' || To_Char(p_session_date,'DD-MON-YYYY'));
1241: hr_utility.trace(' p_assignment_id:' || p_assignment_id);
1242: hr_utility.trace(' p_element_link_id:' || p_element_link_id);
1243: --
1236: --
1237: if g_debug then
1238: --
1239: hr_utility.trace('begin hr_entry.entry_asg_pay_link_dates');
1240: hr_utility.trace(' p_session_date:' || To_Char(p_session_date,'DD-MON-YYYY'));
1241: hr_utility.trace(' p_assignment_id:' || p_assignment_id);
1242: hr_utility.trace(' p_element_link_id:' || p_element_link_id);
1243: --
1244: end if;
1237: if g_debug then
1238: --
1239: hr_utility.trace('begin hr_entry.entry_asg_pay_link_dates');
1240: hr_utility.trace(' p_session_date:' || To_Char(p_session_date,'DD-MON-YYYY'));
1241: hr_utility.trace(' p_assignment_id:' || p_assignment_id);
1242: hr_utility.trace(' p_element_link_id:' || p_element_link_id);
1243: --
1244: end if;
1245: --
1238: --
1239: hr_utility.trace('begin hr_entry.entry_asg_pay_link_dates');
1240: hr_utility.trace(' p_session_date:' || To_Char(p_session_date,'DD-MON-YYYY'));
1241: hr_utility.trace(' p_assignment_id:' || p_assignment_id);
1242: hr_utility.trace(' p_element_link_id:' || p_element_link_id);
1243: --
1244: end if;
1245: --
1246: -- Select the element termination processing rule, assignment period of
1246: -- Select the element termination processing rule, assignment period of
1247: -- service and assignment primary flag
1248: --
1249: if g_debug then
1250: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 1);
1251: end if;
1252: --
1253: begin
1254: --
1285: --
1286: exception
1287: --
1288: when NO_DATA_FOUND then
1289: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1290: hr_utility.set_message_token('PROCEDURE',
1291: 'hr_entry.entry_asg_pay_link_dates');
1292: hr_utility.set_message_token('STEP','2');
1293: end;
1286: exception
1287: --
1288: when NO_DATA_FOUND then
1289: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1290: hr_utility.set_message_token('PROCEDURE',
1291: 'hr_entry.entry_asg_pay_link_dates');
1292: hr_utility.set_message_token('STEP','2');
1293: end;
1294: --
1288: when NO_DATA_FOUND then
1289: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1290: hr_utility.set_message_token('PROCEDURE',
1291: 'hr_entry.entry_asg_pay_link_dates');
1292: hr_utility.set_message_token('STEP','2');
1293: end;
1294: --
1295: if g_debug then
1296: --
1293: end;
1294: --
1295: if g_debug then
1296: --
1297: hr_utility.trace(' v_post_termination_rule :' || v_post_termination_rule);
1298: hr_utility.trace(' v_processing_type :' || v_processing_type);
1299: --
1300: -- Actual termination date...
1301: if v_actual_termination_date is not null then
1294: --
1295: if g_debug then
1296: --
1297: hr_utility.trace(' v_post_termination_rule :' || v_post_termination_rule);
1298: hr_utility.trace(' v_processing_type :' || v_processing_type);
1299: --
1300: -- Actual termination date...
1301: if v_actual_termination_date is not null then
1302: hr_utility.trace(' v_actual_termination_date>' ||
1298: hr_utility.trace(' v_processing_type :' || v_processing_type);
1299: --
1300: -- Actual termination date...
1301: if v_actual_termination_date is not null then
1302: hr_utility.trace(' v_actual_termination_date>' ||
1303: to_char(v_actual_termination_date, 'DD-MON-YYYY') || '<');
1304: else
1305: hr_utility.trace(' v_actual_termination_date><');
1306: end if;
1301: if v_actual_termination_date is not null then
1302: hr_utility.trace(' v_actual_termination_date>' ||
1303: to_char(v_actual_termination_date, 'DD-MON-YYYY') || '<');
1304: else
1305: hr_utility.trace(' v_actual_termination_date><');
1306: end if;
1307: --
1308: -- Last standard process date...
1309: if v_last_standard_process_date is not null then
1306: end if;
1307: --
1308: -- Last standard process date...
1309: if v_last_standard_process_date is not null then
1310: hr_utility.trace(' v_last_standard_process_date>' ||
1311: to_char(v_last_standard_process_date, 'DD-MON-YYYY') || '<');
1312: else
1313: hr_utility.trace(' v_last_standard_process_date><');
1314: end if;
1309: if v_last_standard_process_date is not null then
1310: hr_utility.trace(' v_last_standard_process_date>' ||
1311: to_char(v_last_standard_process_date, 'DD-MON-YYYY') || '<');
1312: else
1313: hr_utility.trace(' v_last_standard_process_date><');
1314: end if;
1315: --
1316: -- Final process date...
1317: if v_final_process_date is not null then
1314: end if;
1315: --
1316: -- Final process date...
1317: if v_final_process_date is not null then
1318: hr_utility.trace(' v_final_process_date>' ||
1319: to_char(v_final_process_date, 'DD-MON-YYYY') || '<');
1320: else
1321: hr_utility.trace(' v_final_process_date><');
1322: end if;
1317: if v_final_process_date is not null then
1318: hr_utility.trace(' v_final_process_date>' ||
1319: to_char(v_final_process_date, 'DD-MON-YYYY') || '<');
1320: else
1321: hr_utility.trace(' v_final_process_date><');
1322: end if;
1323: --
1324: end if; -- if g_debug.
1325: --
1337: v_orig_term_rule_date_func := 'N';
1338: end if;
1339: --
1340: if g_debug then
1341: hr_utility.trace(' v_orig_term_rule_date_func: '||v_orig_term_rule_date_func);
1342: end if;
1343: --
1344: v_employee_terminated :=
1345: (v_actual_termination_date is not null or
1360: if (v_orig_term_rule_date_func = 'N' and v_employee_terminated) or -- New behaviour
1361: (v_orig_term_rule_date_func = 'Y' and v_primary_flag = 'Y') then -- Old behaviour
1362: --
1363: if g_debug then
1364: hr_utility.trace(' employee terminated');
1365: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 2);
1366: hr_utility.trace('v_post_termination_rule :' || v_post_termination_rule);
1367: end if;
1368: --
1361: (v_orig_term_rule_date_func = 'Y' and v_primary_flag = 'Y') then -- Old behaviour
1362: --
1363: if g_debug then
1364: hr_utility.trace(' employee terminated');
1365: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 2);
1366: hr_utility.trace('v_post_termination_rule :' || v_post_termination_rule);
1367: end if;
1368: --
1369: -- Get the termination rule date
1362: --
1363: if g_debug then
1364: hr_utility.trace(' employee terminated');
1365: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 2);
1366: hr_utility.trace('v_post_termination_rule :' || v_post_termination_rule);
1367: end if;
1368: --
1369: -- Get the termination rule date
1370: --
1414: --
1415: -- Logic for non-terminated, non-primary assignment...
1416: --
1417: if g_debug then
1418: hr_utility.trace(' employee NOT terminated');
1419: hr_utility.trace(' NOT primary assignment');
1420: end if;
1421: --
1422: -- The assignment is NOT a PRIMARY assignment therefore we need to check
1415: -- Logic for non-terminated, non-primary assignment...
1416: --
1417: if g_debug then
1418: hr_utility.trace(' employee NOT terminated');
1419: hr_utility.trace(' NOT primary assignment');
1420: end if;
1421: --
1422: -- The assignment is NOT a PRIMARY assignment therefore we need to check
1423: -- if the current or future assignment has an assignment status of
1426: -- First we need to check if the current or future assignment rows have
1427: -- a 'TERM_ASSIGN' status.
1428: --
1429: if g_debug then
1430: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 3);
1431: end if;
1432: begin
1433: select min(asg.effective_start_date)
1434: into v_asg_term_date
1445: --
1446: if v_asg_term_date is null then
1447: --
1448: if g_debug then
1449: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 4);
1450: end if;
1451: --
1452: begin
1453: select asg.effective_start_date
1517: v_element_term_rule_date := v_asg_term_date - 1;
1518: end if;
1519: elsif (v_post_termination_rule = 'F') then
1520: if g_debug then
1521: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 5);
1522: end if;
1523: begin
1524: select max(asg.effective_end_date)
1525: into v_element_term_rule_date
1528: and asg.effective_start_date >= v_asg_term_date;
1529: end;
1530: elsif (v_post_termination_rule = 'L') then
1531: if g_debug then
1532: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 6);
1533: end if;
1534: /*
1535: begin
1536: select ptp.end_date
1580: --
1581: -- Logic for non-terminated, primary assignment...
1582: --
1583: if g_debug then
1584: hr_utility.trace(' employee NOT terminated');
1585: hr_utility.trace(' PRIMARY assignment');
1586: end if;
1587: --
1588: v_element_term_rule_date := hr_general.end_of_time;
1581: -- Logic for non-terminated, primary assignment...
1582: --
1583: if g_debug then
1584: hr_utility.trace(' employee NOT terminated');
1585: hr_utility.trace(' PRIMARY assignment');
1586: end if;
1587: --
1588: v_element_term_rule_date := hr_general.end_of_time;
1589: --
1589: --
1590: end if;
1591: --
1592: if g_debug then
1593: hr_utility.trace(' v_element_term_rule_date: ' || to_char(v_element_term_rule_date,'DD-MON-YYYY'));
1594: end if;
1595: --
1596: -- check to see if the v_element_term_rule_date is being set to before
1597: -- the session date.
1598: --
1599: if ((v_element_term_rule_date <> hr_general.end_of_time) and
1600: (v_element_term_rule_date < p_session_date) and p_entry_mode) then
1601: --
1602: hr_utility.set_message(801, 'HR_6370_ELE_ENTRY_NO_TERM');
1603: hr_utility.raise_error;
1604: --
1605: end if;
1606: --
1599: if ((v_element_term_rule_date <> hr_general.end_of_time) and
1600: (v_element_term_rule_date < p_session_date) and p_entry_mode) then
1601: --
1602: hr_utility.set_message(801, 'HR_6370_ELE_ENTRY_NO_TERM');
1603: hr_utility.raise_error;
1604: --
1605: end if;
1606: --
1607: -- Select the minimum and maximum element link dates.
1606: --
1607: -- Select the minimum and maximum element link dates.
1608: --
1609: if g_debug then
1610: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 7);
1611: end if;
1612: --
1613: begin
1614: select min(pel.effective_start_date),
1620: end;
1621: --
1622: if (v_element_link_start_date > p_session_date) or
1623: (v_element_link_end_date < p_session_date) then
1624: hr_utility.set_message(801, 'HR_6132_ELE_ENTRY_LINK_MISSING');
1625: hr_utility.raise_error;
1626: end if;
1627: --
1628: -- If the assignment is to a payroll then,
1621: --
1622: if (v_element_link_start_date > p_session_date) or
1623: (v_element_link_end_date < p_session_date) then
1624: hr_utility.set_message(801, 'HR_6132_ELE_ENTRY_LINK_MISSING');
1625: hr_utility.raise_error;
1626: end if;
1627: --
1628: -- If the assignment is to a payroll then,
1629: -- we must select the minimum and maximum effective dates of the payroll.
1628: -- If the assignment is to a payroll then,
1629: -- we must select the minimum and maximum effective dates of the payroll.
1630: --
1631: if g_debug then
1632: hr_utility.set_location('hr_entry.entry_asg_pay_link_dates', 8);
1633: end if;
1634: begin
1635: select min(pay.effective_start_date),
1636: max(pay.effective_end_date)
1651: if ((v_payroll_start_date is not null and
1652: v_payroll_end_date is not null) and
1653: (v_payroll_start_date > p_session_date or
1654: v_payroll_end_date < p_session_date)) then
1655: hr_utility.set_message(801, 'HR_6399_ELE_ENTRY_NO_PAYROLL');
1656: hr_utility.raise_error;
1657: end if;
1658: --
1659: -- Set values to be returned by procedure.
1652: v_payroll_end_date is not null) and
1653: (v_payroll_start_date > p_session_date or
1654: v_payroll_end_date < p_session_date)) then
1655: hr_utility.set_message(801, 'HR_6399_ELE_ENTRY_NO_PAYROLL');
1656: hr_utility.raise_error;
1657: end if;
1658: --
1659: -- Set values to be returned by procedure.
1660: --
1664: p_payroll_start_date := v_payroll_start_date;
1665: p_payroll_end_date := v_payroll_end_date;
1666: --
1667: if g_debug then
1668: hr_utility.trace('end hr_entry.entry_asg_pay_link_dates');
1669: end if;
1670: --
1671: end entry_asg_pay_link_dates;
1672: --
1734: -- v_recurring_end_date Holds the end date of the recurring entry which is
1735: -- returned by the function.
1736: --
1737: begin
1738: g_debug := hr_utility.debug_enabled;
1739: --
1740: -- Initialiize local parameters
1741: --
1742: v_future_recurring_end_date := hr_general.end_of_time;
1753: -- delete next/future changes therefore set the current_effective_end_date
1754: --
1755: if p_element_entry_id is not null then
1756: if g_debug then
1757: hr_utility.set_location('hr_entry.recurring_entry_end_date', 0);
1758: end if;
1759: begin
1760: select e.effective_end_date
1761: into v_current_effective_end_date
1774: -- If yes, then we must take the min(effective_start_date) -1
1775: --
1776: if upper (p_overlap_chk) = 'Y' then
1777: if g_debug then
1778: hr_utility.set_location('hr_entry.recurring_entry_end_date', 1);
1779: end if;
1780: begin
1781: -- INDEX hint added following NHS project recommendation
1782: select /*+ INDEX(pee, pay_element_entries_f_n51) */
1799: --
1800: if ((v_current_effective_end_date is not null and
1801: v_current_effective_end_date = v_future_recurring_end_date) or
1802: v_future_recurring_end_date < p_session_date) then
1803: hr_utility.set_message(801, 'HR_7699_ELE_ENTRY_REC_EXISTS');
1804: hr_utility.raise_error;
1805: end if;
1806: --
1807: end if;
1800: if ((v_current_effective_end_date is not null and
1801: v_current_effective_end_date = v_future_recurring_end_date) or
1802: v_future_recurring_end_date < p_session_date) then
1803: hr_utility.set_message(801, 'HR_7699_ELE_ENTRY_REC_EXISTS');
1804: hr_utility.raise_error;
1805: end if;
1806: --
1807: end if;
1808: --
1857: --
1858: -- Check to see if the error was at the element link.
1859: --
1860: if v_element_link_end_date = v_current_effective_end_date then
1861: hr_utility.set_message(801, 'HR_6281_ELE_ENTRY_DT_DEL_LINK');
1862: hr_utility.raise_error;
1863: end if;
1864: --
1865: -- Check to see if the error was at the element termination processing rule.
1858: -- Check to see if the error was at the element link.
1859: --
1860: if v_element_link_end_date = v_current_effective_end_date then
1861: hr_utility.set_message(801, 'HR_6281_ELE_ENTRY_DT_DEL_LINK');
1862: hr_utility.raise_error;
1863: end if;
1864: --
1865: -- Check to see if the error was at the element termination processing rule.
1866: --
1864: --
1865: -- Check to see if the error was at the element termination processing rule.
1866: --
1867: if v_element_term_rule_date = v_current_effective_end_date then
1868: hr_utility.set_message(801, 'HR_6283_ELE_ENTRY_DT_ELE_DEL');
1869: hr_utility.raise_error;
1870: end if;
1871: --
1872: -- Check to see if the error was at the eligibility level.
1865: -- Check to see if the error was at the element termination processing rule.
1866: --
1867: if v_element_term_rule_date = v_current_effective_end_date then
1868: hr_utility.set_message(801, 'HR_6283_ELE_ENTRY_DT_ELE_DEL');
1869: hr_utility.raise_error;
1870: end if;
1871: --
1872: -- Check to see if the error was at the eligibility level.
1873: --
1871: --
1872: -- Check to see if the error was at the eligibility level.
1873: --
1874: if v_asg_max_eligibility_date = v_current_effective_end_date then
1875: hr_utility.set_message(801, 'HR_6284_ELE_ENTRY_DT_ASG_DEL');
1876: hr_utility.raise_error;
1877: end if;
1878: end if;
1879: --
1872: -- Check to see if the error was at the eligibility level.
1873: --
1874: if v_asg_max_eligibility_date = v_current_effective_end_date then
1875: hr_utility.set_message(801, 'HR_6284_ELE_ENTRY_DT_ASG_DEL');
1876: hr_utility.raise_error;
1877: end if;
1878: end if;
1879: --
1880: -- Return the recurring effective end date
2020: -- when inserting an nonrecurring entry.
2021: --
2022: if (greatest(p_validation_start_date,v_min_eligibility_date) < v_element_link_start_date) or
2023: (least(p_validation_end_date,v_max_eligibility_date) > v_element_link_end_date) then
2024: hr_utility.set_message(801, 'HR_6132_ELE_ENTRY_LINK_MISSING');
2025: hr_utility.raise_error;
2026: end if;
2027: */
2028: --
2021: --
2022: if (greatest(p_validation_start_date,v_min_eligibility_date) < v_element_link_start_date) or
2023: (least(p_validation_end_date,v_max_eligibility_date) > v_element_link_end_date) then
2024: hr_utility.set_message(801, 'HR_6132_ELE_ENTRY_LINK_MISSING');
2025: hr_utility.raise_error;
2026: end if;
2027: */
2028: --
2029: -- If the employee assignment has been terminated then we must ensure that
2030: -- the validation end date is before the element termination date.
2031: --
2032: if (v_element_term_rule_date is not null and
2033: (v_element_term_rule_date < p_validation_end_date)) then
2034: hr_utility.set_message(801, 'HR_6370_ELE_ENTRY_NO_TERM');
2035: hr_utility.raise_error;
2036: end if;
2037: --
2038: else
2031: --
2032: if (v_element_term_rule_date is not null and
2033: (v_element_term_rule_date < p_validation_end_date)) then
2034: hr_utility.set_message(801, 'HR_6370_ELE_ENTRY_NO_TERM');
2035: hr_utility.raise_error;
2036: end if;
2037: --
2038: else
2039: --
2040: -- Ensure that the element link does not terminate before the
2041: -- validation_end_date.
2042: --
2043: if (p_validation_end_date > v_element_link_end_date) then
2044: hr_utility.set_message(801, 'HR_6281_ELE_ENTRY_DT_DEL_LINK');
2045: hr_utility.raise_error;
2046: end if;
2047: --
2048: -- If the employee assignment has been terminated then we must ensure that
2041: -- validation_end_date.
2042: --
2043: if (p_validation_end_date > v_element_link_end_date) then
2044: hr_utility.set_message(801, 'HR_6281_ELE_ENTRY_DT_DEL_LINK');
2045: hr_utility.raise_error;
2046: end if;
2047: --
2048: -- If the employee assignment has been terminated then we must ensure that
2049: -- the validation end date is before the element termination date.
2049: -- the validation end date is before the element termination date.
2050: --
2051: if (v_element_term_rule_date is not null and
2052: (v_element_term_rule_date < p_validation_end_date)) then
2053: hr_utility.set_message(801, 'HR_6283_ELE_ENTRY_DT_ELE_DEL');
2054: hr_utility.raise_error;
2055: end if;
2056: --
2057: end if;
2050: --
2051: if (v_element_term_rule_date is not null and
2052: (v_element_term_rule_date < p_validation_end_date)) then
2053: hr_utility.set_message(801, 'HR_6283_ELE_ENTRY_DT_ELE_DEL');
2054: hr_utility.raise_error;
2055: end if;
2056: --
2057: end if;
2058: --
2060: -- for non INSERT cases. This is part of a change to
2061: -- fix bug 2183279.
2062: if(p_usage <> 'INSERT') then
2063: if (v_max_eligibility_date < p_validation_end_date) then
2064: hr_utility.set_message(801, 'HR_6284_ELE_ENTRY_DT_ASG_DEL');
2065: hr_utility.raise_error;
2066: end if;
2067: end if;
2068: --
2061: -- fix bug 2183279.
2062: if(p_usage <> 'INSERT') then
2063: if (v_max_eligibility_date < p_validation_end_date) then
2064: hr_utility.set_message(801, 'HR_6284_ELE_ENTRY_DT_ASG_DEL');
2065: hr_utility.raise_error;
2066: end if;
2067: end if;
2068: --
2069: end chk_element_entry_eligibility;
2182: p_validation_end_date) loop
2183: --
2184: if v_element_type.closed_for_entry_flag = 'Y' then
2185: --
2186: hr_utility.set_message(801, 'HR_6064_ELE_ENTRY_CLOSED_ELE');
2187: hr_utility.set_message_token('element_name',v_element_type.element_name);
2188: hr_utility.raise_error;
2189: --
2190: end if;
2183: --
2184: if v_element_type.closed_for_entry_flag = 'Y' then
2185: --
2186: hr_utility.set_message(801, 'HR_6064_ELE_ENTRY_CLOSED_ELE');
2187: hr_utility.set_message_token('element_name',v_element_type.element_name);
2188: hr_utility.raise_error;
2189: --
2190: end if;
2191: l_element_name := v_element_type.element_name;
2184: if v_element_type.closed_for_entry_flag = 'Y' then
2185: --
2186: hr_utility.set_message(801, 'HR_6064_ELE_ENTRY_CLOSED_ELE');
2187: hr_utility.set_message_token('element_name',v_element_type.element_name);
2188: hr_utility.raise_error;
2189: --
2190: end if;
2191: l_element_name := v_element_type.element_name;
2192: l_legislation_code := v_element_type.legislation_code;
2220: l_us_except := TRUE;
2221: end if;
2222:
2223: if not l_us_except then
2224: hr_utility.set_message(801, 'HR_6074_ELE_ENTRY_CLOSE_PERIOD');
2225: hr_utility.raise_error;
2226: end if;
2227: --
2228: end if;
2221: end if;
2222:
2223: if not l_us_except then
2224: hr_utility.set_message(801, 'HR_6074_ELE_ENTRY_CLOSE_PERIOD');
2225: hr_utility.raise_error;
2226: end if;
2227: --
2228: end if;
2229: --
2296: -- be converted into a screen format.
2297: -- v_value_format_out Holds the screen format value which has been
2298: -- converted.
2299: begin
2300: g_debug := hr_utility.debug_enabled;
2301: --
2302: -- Ensure that the p_min_max_def parameters contains either MINL, MAXL, DEF
2303: -- oe DEFL as a value.
2304: --
2307: p_min_max_def = 'DEFL' or
2308: p_min_max_def = 'DEF') then
2309: null;
2310: else
2311: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2312: hr_utility.set_message_token('PROCEDURE','hr_entry.derive_default_value');
2313: hr_utility.set_message_token('STEP',1);
2314: hr_utility.raise_error;
2315: end if;
2308: p_min_max_def = 'DEF') then
2309: null;
2310: else
2311: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2312: hr_utility.set_message_token('PROCEDURE','hr_entry.derive_default_value');
2313: hr_utility.set_message_token('STEP',1);
2314: hr_utility.raise_error;
2315: end if;
2316: --
2309: null;
2310: else
2311: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2312: hr_utility.set_message_token('PROCEDURE','hr_entry.derive_default_value');
2313: hr_utility.set_message_token('STEP',1);
2314: hr_utility.raise_error;
2315: end if;
2316: --
2317: -- Need to determine the input value unit of measure and if it is using
2310: else
2311: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2312: hr_utility.set_message_token('PROCEDURE','hr_entry.derive_default_value');
2313: hr_utility.set_message_token('STEP',1);
2314: hr_utility.raise_error;
2315: end if;
2316: --
2317: -- Need to determine the input value unit of measure and if it is using
2318: -- hot or cold defaults.
2317: -- Need to determine the input value unit of measure and if it is using
2318: -- hot or cold defaults.
2319: --
2320: if g_debug then
2321: hr_utility.set_location('hr_entry.derive_default_value', 2);
2322: end if;
2323: begin
2324: select iv.uom,
2325: iv.hot_default_flag,
2334: and p_session_date
2335: between iv.effective_start_date and iv.effective_end_date;
2336: exception
2337: when NO_DATA_FOUND then
2338: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2339: hr_utility.set_message_token('PROCEDURE',
2340: 'hr_entry.derive_default_value');
2341: hr_utility.set_message_token('STEP','2');
2342: hr_utility.raise_error;
2335: between iv.effective_start_date and iv.effective_end_date;
2336: exception
2337: when NO_DATA_FOUND then
2338: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2339: hr_utility.set_message_token('PROCEDURE',
2340: 'hr_entry.derive_default_value');
2341: hr_utility.set_message_token('STEP','2');
2342: hr_utility.raise_error;
2343: end;
2337: when NO_DATA_FOUND then
2338: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2339: hr_utility.set_message_token('PROCEDURE',
2340: 'hr_entry.derive_default_value');
2341: hr_utility.set_message_token('STEP','2');
2342: hr_utility.raise_error;
2343: end;
2344: --
2345: -- If using cold defaults then, we must select the value at the link level.
2338: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2339: hr_utility.set_message_token('PROCEDURE',
2340: 'hr_entry.derive_default_value');
2341: hr_utility.set_message_token('STEP','2');
2342: hr_utility.raise_error;
2343: end;
2344: --
2345: -- If using cold defaults then, we must select the value at the link level.
2346: --
2345: -- If using cold defaults then, we must select the value at the link level.
2346: --
2347: if v_hot_default_flag = 'N' then
2348: if g_debug then
2349: hr_utility.set_location('hr_entry.derive_default_value', 3);
2350: end if;
2351: begin
2352: -- INDEX hint added following NHS project recommendation
2353: select /*+ INDEX(l, pay_link_input_values_f_n2) */
2363: and p_session_date
2364: between l.effective_start_date and l.effective_end_date;
2365: exception
2366: when NO_DATA_FOUND then
2367: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2368: hr_utility.set_message_token('PROCEDURE',
2369: 'hr_entry.derive_default_value');
2370: hr_utility.set_message_token('STEP','3');
2371: hr_utility.raise_error;
2364: between l.effective_start_date and l.effective_end_date;
2365: exception
2366: when NO_DATA_FOUND then
2367: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2368: hr_utility.set_message_token('PROCEDURE',
2369: 'hr_entry.derive_default_value');
2370: hr_utility.set_message_token('STEP','3');
2371: hr_utility.raise_error;
2372: end;
2366: when NO_DATA_FOUND then
2367: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2368: hr_utility.set_message_token('PROCEDURE',
2369: 'hr_entry.derive_default_value');
2370: hr_utility.set_message_token('STEP','3');
2371: hr_utility.raise_error;
2372: end;
2373: else
2374: --
2367: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2368: hr_utility.set_message_token('PROCEDURE',
2369: 'hr_entry.derive_default_value');
2370: hr_utility.set_message_token('STEP','3');
2371: hr_utility.raise_error;
2372: end;
2373: else
2374: --
2375: -- The input is hot defaulted therefore we can deduce that the values held
2377: -- the hot default values and encapsulated in quotations (").
2378: --
2379: if (p_min_max_def = 'DEF') then
2380: if g_debug then
2381: hr_utility.set_location('hr_entry.derive_default_value', 4);
2382: end if;
2383: begin
2384: select decode(l.default_value,
2385: '',i.default_value,
2395: and p_session_date
2396: between l.effective_start_date and l.effective_end_date;
2397: exception
2398: when NO_DATA_FOUND then
2399: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2400: hr_utility.set_message_token('PROCEDURE',
2401: 'hr_entry.derive_default_value');
2402: hr_utility.set_message_token('STEP','4');
2403: hr_utility.raise_error;
2396: between l.effective_start_date and l.effective_end_date;
2397: exception
2398: when NO_DATA_FOUND then
2399: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2400: hr_utility.set_message_token('PROCEDURE',
2401: 'hr_entry.derive_default_value');
2402: hr_utility.set_message_token('STEP','4');
2403: hr_utility.raise_error;
2404: end;
2398: when NO_DATA_FOUND then
2399: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2400: hr_utility.set_message_token('PROCEDURE',
2401: 'hr_entry.derive_default_value');
2402: hr_utility.set_message_token('STEP','4');
2403: hr_utility.raise_error;
2404: end;
2405: else
2406: if g_debug then
2399: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2400: hr_utility.set_message_token('PROCEDURE',
2401: 'hr_entry.derive_default_value');
2402: hr_utility.set_message_token('STEP','4');
2403: hr_utility.raise_error;
2404: end;
2405: else
2406: if g_debug then
2407: hr_utility.set_location('hr_entry.derive_default_value', 5);
2403: hr_utility.raise_error;
2404: end;
2405: else
2406: if g_debug then
2407: hr_utility.set_location('hr_entry.derive_default_value', 5);
2408: end if;
2409: begin
2410: select i.default_value,
2411: i.min_value,
2418: and p_session_date
2419: between i.effective_start_date and i.effective_end_date;
2420: exception
2421: when NO_DATA_FOUND then
2422: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2423: hr_utility.set_message_token('PROCEDURE',
2424: 'hr_entry.derive_default_value');
2425: hr_utility.set_message_token('STEP','5');
2426: hr_utility.raise_error;
2419: between i.effective_start_date and i.effective_end_date;
2420: exception
2421: when NO_DATA_FOUND then
2422: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2423: hr_utility.set_message_token('PROCEDURE',
2424: 'hr_entry.derive_default_value');
2425: hr_utility.set_message_token('STEP','5');
2426: hr_utility.raise_error;
2427: end;
2421: when NO_DATA_FOUND then
2422: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2423: hr_utility.set_message_token('PROCEDURE',
2424: 'hr_entry.derive_default_value');
2425: hr_utility.set_message_token('STEP','5');
2426: hr_utility.raise_error;
2427: end;
2428: end if;
2429: --
2422: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2423: hr_utility.set_message_token('PROCEDURE',
2424: 'hr_entry.derive_default_value');
2425: hr_utility.set_message_token('STEP','5');
2426: hr_utility.raise_error;
2427: end;
2428: end if;
2429: --
2430: end if;
2446: --
2447: if (v_lookup_type is not null and
2448: v_value_format_in is not null) then
2449: if g_debug then
2450: hr_utility.set_location('hr_entry.derive_default_value', 6);
2451: end if;
2452: begin
2453: select h.meaning
2454: into v_value_format_out
2456: where h.lookup_type = v_lookup_type
2457: and h.lookup_code = v_value_format_in;
2458: exception
2459: when NO_DATA_FOUND then
2460: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2461: hr_utility.set_message_token('PROCEDURE',
2462: 'hr_entry.derive_default_value');
2463: hr_utility.set_message_token('STEP','6');
2464: hr_utility.raise_error;
2457: and h.lookup_code = v_value_format_in;
2458: exception
2459: when NO_DATA_FOUND then
2460: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2461: hr_utility.set_message_token('PROCEDURE',
2462: 'hr_entry.derive_default_value');
2463: hr_utility.set_message_token('STEP','6');
2464: hr_utility.raise_error;
2465: end;
2459: when NO_DATA_FOUND then
2460: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2461: hr_utility.set_message_token('PROCEDURE',
2462: 'hr_entry.derive_default_value');
2463: hr_utility.set_message_token('STEP','6');
2464: hr_utility.raise_error;
2465: end;
2466: --
2467: -- Enhancement 2793978
2460: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2461: hr_utility.set_message_token('PROCEDURE',
2462: 'hr_entry.derive_default_value');
2463: hr_utility.set_message_token('STEP','6');
2464: hr_utility.raise_error;
2465: end;
2466: --
2467: -- Enhancement 2793978
2468: -- If the value uses a value set for validation we need to decode
2470: --
2471: elsif (v_value_set_id is not null and
2472: v_value_format_in is not null) then
2473: if g_debug then
2474: hr_utility.set_location('hr_entry.derive_default_value', 7);
2475: end if;
2476: v_value_format_out := pay_input_values_pkg.decode_vset_value(
2477: v_value_set_id,v_value_format_in);
2478: if v_value_format_out is null then
2479: --
2480: -- The value must have been invalid for the value set since no
2481: -- corresponding meaning was found, raise an error
2482: --
2483: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2484: hr_utility.set_message_token('PROCEDURE',
2485: 'hr_entry.derive_default_value');
2486: hr_utility.set_message_token('STEP','7');
2487: hr_utility.raise_error;
2480: -- The value must have been invalid for the value set since no
2481: -- corresponding meaning was found, raise an error
2482: --
2483: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2484: hr_utility.set_message_token('PROCEDURE',
2485: 'hr_entry.derive_default_value');
2486: hr_utility.set_message_token('STEP','7');
2487: hr_utility.raise_error;
2488: end if;
2482: --
2483: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2484: hr_utility.set_message_token('PROCEDURE',
2485: 'hr_entry.derive_default_value');
2486: hr_utility.set_message_token('STEP','7');
2487: hr_utility.raise_error;
2488: end if;
2489: else
2490: hr_chkfmt.changeformat (v_value_format_in,
2483: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
2484: hr_utility.set_message_token('PROCEDURE',
2485: 'hr_entry.derive_default_value');
2486: hr_utility.set_message_token('STEP','7');
2487: hr_utility.raise_error;
2488: end if;
2489: else
2490: hr_chkfmt.changeformat (v_value_format_in,
2491: v_value_format_out,
2531: v_name varchar2(80);
2532: v_default_value varchar2(60);
2533: --
2534: begin
2535: g_debug := hr_utility.debug_enabled;
2536: if g_debug then
2537: hr_utility.set_location ('hr_entry.chk_mandatory_input_value',1);
2538: end if;
2539: hr_general.assert_condition (p_session_date = trunc (p_session_date)
2533: --
2534: begin
2535: g_debug := hr_utility.debug_enabled;
2536: if g_debug then
2537: hr_utility.set_location ('hr_entry.chk_mandatory_input_value',1);
2538: end if;
2539: hr_general.assert_condition (p_session_date = trunc (p_session_date)
2540: and p_input_value_id is not null
2541: and p_session_date is not null);
2542: --
2543: if (p_input_value_id is not null and
2544: p_entry_value is null) then
2545: if g_debug then
2546: hr_utility.set_location('hr_entry.chk_mandatory_input_value', 1);
2547: end if;
2548: --
2549: -- Select the hot/mandatory flag details.
2550: --
2564: between i.effective_start_date
2565: and i.effective_end_date;
2566: exception
2567: when NO_DATA_FOUND then
2568: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2569: hr_utility.set_message_token('PROCEDURE',
2570: 'hr_entry.chk_mandatory_input_value');
2571: hr_utility.set_message_token('STEP','1');
2572: hr_utility.raise_error;
2565: and i.effective_end_date;
2566: exception
2567: when NO_DATA_FOUND then
2568: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2569: hr_utility.set_message_token('PROCEDURE',
2570: 'hr_entry.chk_mandatory_input_value');
2571: hr_utility.set_message_token('STEP','1');
2572: hr_utility.raise_error;
2573: end;
2567: when NO_DATA_FOUND then
2568: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2569: hr_utility.set_message_token('PROCEDURE',
2570: 'hr_entry.chk_mandatory_input_value');
2571: hr_utility.set_message_token('STEP','1');
2572: hr_utility.raise_error;
2573: end;
2574: --
2575: -- If the input value is mandatory ensure a value exists.
2568: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2569: hr_utility.set_message_token('PROCEDURE',
2570: 'hr_entry.chk_mandatory_input_value');
2571: hr_utility.set_message_token('STEP','1');
2572: hr_utility.raise_error;
2573: end;
2574: --
2575: -- If the input value is mandatory ensure a value exists.
2576: --
2578: if v_hot_default_flag = 'N' then
2579: --
2580: -- Cold check.
2581: --
2582: hr_utility.set_message(801, 'HR_6127_ELE_ENTRY_VALUE_MAND');
2583: hr_utility.set_message_token('INPUT_VALUE_NAME',v_name);
2584: hr_utility.raise_error;
2585: else
2586: --
2579: --
2580: -- Cold check.
2581: --
2582: hr_utility.set_message(801, 'HR_6127_ELE_ENTRY_VALUE_MAND');
2583: hr_utility.set_message_token('INPUT_VALUE_NAME',v_name);
2584: hr_utility.raise_error;
2585: else
2586: --
2587: -- Hot check.
2580: -- Cold check.
2581: --
2582: hr_utility.set_message(801, 'HR_6127_ELE_ENTRY_VALUE_MAND');
2583: hr_utility.set_message_token('INPUT_VALUE_NAME',v_name);
2584: hr_utility.raise_error;
2585: else
2586: --
2587: -- Hot check.
2588: --
2586: --
2587: -- Hot check.
2588: --
2589: if g_debug then
2590: hr_utility.set_location('hr_entry.chk_mandatory_input_value', 5);
2591: end if;
2592: begin
2593: select nvl(l.default_value,i.default_value)
2594: into v_default_value
2603: between l.effective_start_date and l.effective_end_date;
2604: end;
2605: --
2606: if v_default_value is null then
2607: hr_utility.set_message(801, 'HR_6128_ELE_ENTRY_MAND_HOT');
2608: hr_utility.set_message_token('INPUT_VALUE_NAME',v_name);
2609: hr_utility.raise_error;
2610: end if;
2611: end if;
2604: end;
2605: --
2606: if v_default_value is null then
2607: hr_utility.set_message(801, 'HR_6128_ELE_ENTRY_MAND_HOT');
2608: hr_utility.set_message_token('INPUT_VALUE_NAME',v_name);
2609: hr_utility.raise_error;
2610: end if;
2611: end if;
2612: end if;
2605: --
2606: if v_default_value is null then
2607: hr_utility.set_message(801, 'HR_6128_ELE_ENTRY_MAND_HOT');
2608: hr_utility.set_message_token('INPUT_VALUE_NAME',v_name);
2609: hr_utility.raise_error;
2610: end if;
2611: end if;
2612: end if;
2613: end if;
2623: ) is
2624: --
2625: begin
2626: if g_debug then
2627: hr_utility.set_location ('hr_entry.chk_mandatory_entry_values',1);
2628: end if;
2629: hr_general.assert_condition (
2630: p_validation_start_date = trunc (p_validation_start_date));
2631: --
2691: p_usage in varchar2,
2692: p_target_entry_id in number
2693: ) is
2694: begin
2695: g_debug := hr_utility.debug_enabled;
2696: --
2697: -- simply call chk_element_entry_main with a null p_creator_type
2698: --
2699: chk_element_entry_main
2832: --
2833: v_dummy varchar2(1);
2834:
2835: begin
2836: g_debug := hr_utility.debug_enabled;
2837: --
2838: if g_debug then
2839: hr_utility.set_location('hr_entry.chk_element_entry_main', 5);
2840: end if;
2835: begin
2836: g_debug := hr_utility.debug_enabled;
2837: --
2838: if g_debug then
2839: hr_utility.set_location('hr_entry.chk_element_entry_main', 5);
2840: end if;
2841: --
2842: -- Fetch element type information relevent to the creation of element
2843: -- entries
2879: and asg.effective_end_date;
2880: --
2881: exception
2882: when no_data_found then
2883: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2884: hr_utility.set_message_token('PROCEDURE',
2885: 'hr_entry.chk_element_entry');
2886: hr_utility.set_message_token('STEP','1');
2887: hr_utility.raise_error;
2880: --
2881: exception
2882: when no_data_found then
2883: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2884: hr_utility.set_message_token('PROCEDURE',
2885: 'hr_entry.chk_element_entry');
2886: hr_utility.set_message_token('STEP','1');
2887: hr_utility.raise_error;
2888: end;
2882: when no_data_found then
2883: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2884: hr_utility.set_message_token('PROCEDURE',
2885: 'hr_entry.chk_element_entry');
2886: hr_utility.set_message_token('STEP','1');
2887: hr_utility.raise_error;
2888: end;
2889: --
2890: -- Bugfix 2866619
2883: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
2884: hr_utility.set_message_token('PROCEDURE',
2885: 'hr_entry.chk_element_entry');
2886: hr_utility.set_message_token('STEP','1');
2887: hr_utility.raise_error;
2888: end;
2889: --
2890: -- Bugfix 2866619
2891: -- Check the assignment type to ensure assignment is eligible for
2896: --
2897: -- Contingent workers can only have recurring entries of
2898: -- 'Information' classification
2899: --
2900: hr_utility.set_message(801, 'HR_33155_ENTRY_INVALID_FOR_CWK');
2901: hr_utility.set_message_token('ELEMENT_NAME',v_element_name);
2902: hr_utility.set_message_token('ASSIGNMENT_NUMBER',v_assignment_number);
2903: hr_utility.set_message_token('SESSION_DATE',to_char(p_session_date));
2904: hr_utility.raise_error;
2897: -- Contingent workers can only have recurring entries of
2898: -- 'Information' classification
2899: --
2900: hr_utility.set_message(801, 'HR_33155_ENTRY_INVALID_FOR_CWK');
2901: hr_utility.set_message_token('ELEMENT_NAME',v_element_name);
2902: hr_utility.set_message_token('ASSIGNMENT_NUMBER',v_assignment_number);
2903: hr_utility.set_message_token('SESSION_DATE',to_char(p_session_date));
2904: hr_utility.raise_error;
2905: --
2898: -- 'Information' classification
2899: --
2900: hr_utility.set_message(801, 'HR_33155_ENTRY_INVALID_FOR_CWK');
2901: hr_utility.set_message_token('ELEMENT_NAME',v_element_name);
2902: hr_utility.set_message_token('ASSIGNMENT_NUMBER',v_assignment_number);
2903: hr_utility.set_message_token('SESSION_DATE',to_char(p_session_date));
2904: hr_utility.raise_error;
2905: --
2906: elsif v_assignment_type = 'C' and v_processing_type = 'R'
2899: --
2900: hr_utility.set_message(801, 'HR_33155_ENTRY_INVALID_FOR_CWK');
2901: hr_utility.set_message_token('ELEMENT_NAME',v_element_name);
2902: hr_utility.set_message_token('ASSIGNMENT_NUMBER',v_assignment_number);
2903: hr_utility.set_message_token('SESSION_DATE',to_char(p_session_date));
2904: hr_utility.raise_error;
2905: --
2906: elsif v_assignment_type = 'C' and v_processing_type = 'R'
2907: and v_classification_name = 'Information' then
2900: hr_utility.set_message(801, 'HR_33155_ENTRY_INVALID_FOR_CWK');
2901: hr_utility.set_message_token('ELEMENT_NAME',v_element_name);
2902: hr_utility.set_message_token('ASSIGNMENT_NUMBER',v_assignment_number);
2903: hr_utility.set_message_token('SESSION_DATE',to_char(p_session_date));
2904: hr_utility.raise_error;
2905: --
2906: elsif v_assignment_type = 'C' and v_processing_type = 'R'
2907: and v_classification_name = 'Information' then
2908: --
2913: --
2914: if c_cwk_element_check%found then
2915: close c_cwk_element_check;
2916: --
2917: hr_utility.set_message(801, 'HR_33155_ENTRY_INVALID_FOR_CWK');
2918: hr_utility.set_message_token('ELEMENT_NAME',v_element_name);
2919: hr_utility.set_message_token('ASSIGNMENT_NUMBER',v_assignment_number);
2920: hr_utility.set_message_token('SESSION_DATE',to_char(p_session_date));
2921: hr_utility.raise_error;
2914: if c_cwk_element_check%found then
2915: close c_cwk_element_check;
2916: --
2917: hr_utility.set_message(801, 'HR_33155_ENTRY_INVALID_FOR_CWK');
2918: hr_utility.set_message_token('ELEMENT_NAME',v_element_name);
2919: hr_utility.set_message_token('ASSIGNMENT_NUMBER',v_assignment_number);
2920: hr_utility.set_message_token('SESSION_DATE',to_char(p_session_date));
2921: hr_utility.raise_error;
2922: --
2915: close c_cwk_element_check;
2916: --
2917: hr_utility.set_message(801, 'HR_33155_ENTRY_INVALID_FOR_CWK');
2918: hr_utility.set_message_token('ELEMENT_NAME',v_element_name);
2919: hr_utility.set_message_token('ASSIGNMENT_NUMBER',v_assignment_number);
2920: hr_utility.set_message_token('SESSION_DATE',to_char(p_session_date));
2921: hr_utility.raise_error;
2922: --
2923: end if;
2916: --
2917: hr_utility.set_message(801, 'HR_33155_ENTRY_INVALID_FOR_CWK');
2918: hr_utility.set_message_token('ELEMENT_NAME',v_element_name);
2919: hr_utility.set_message_token('ASSIGNMENT_NUMBER',v_assignment_number);
2920: hr_utility.set_message_token('SESSION_DATE',to_char(p_session_date));
2921: hr_utility.raise_error;
2922: --
2923: end if;
2924: close c_cwk_element_check;
2917: hr_utility.set_message(801, 'HR_33155_ENTRY_INVALID_FOR_CWK');
2918: hr_utility.set_message_token('ELEMENT_NAME',v_element_name);
2919: hr_utility.set_message_token('ASSIGNMENT_NUMBER',v_assignment_number);
2920: hr_utility.set_message_token('SESSION_DATE',to_char(p_session_date));
2921: hr_utility.raise_error;
2922: --
2923: end if;
2924: close c_cwk_element_check;
2925: --
2938: (p_dt_delete_mode = 'DELETE_NEXT_CHANGE' and
2939: p_validation_end_date = hr_general.end_of_time)) then
2940: --
2941: if g_debug then
2942: hr_utility.set_location('hr_entry.chk_element_entry_main', 10);
2943: end if;
2944: --
2945: -- If we are inserting or doing date-effective delete next/future
2946: -- changes then we must set the effective_end_date to be passed back
2975: --
2976: else
2977: --
2978: if g_debug then
2979: hr_utility.set_location('hr_entry.chk_element_entry_main', 15);
2980: end if;
2981: --
2982: -- Validate that it is OK to create a nonrecurring entry ie. assignment
2983: -- is to a payroll and also a time period exists. Also calculate the start
2992: v_period_start_date,
2993: v_period_end_date);
2994: --
2995: if g_debug then
2996: hr_utility.trace(' v_period_start_date: '||to_char(v_period_start_date,'DD-MON-YYYY'));
2997: hr_utility.trace(' v_period_end_date: '||to_char(v_period_end_date,'DD-MON-YYYY'));
2998: end if;
2999: --
3000: -- wmcveagh, bug 493056. Use element effective start date rather than
2993: v_period_end_date);
2994: --
2995: if g_debug then
2996: hr_utility.trace(' v_period_start_date: '||to_char(v_period_start_date,'DD-MON-YYYY'));
2997: hr_utility.trace(' v_period_end_date: '||to_char(v_period_end_date,'DD-MON-YYYY'));
2998: end if;
2999: --
3000: -- wmcveagh, bug 493056. Use element effective start date rather than
3001: -- validation start date if vsd is later.
3000: -- wmcveagh, bug 493056. Use element effective start date rather than
3001: -- validation start date if vsd is later.
3002: --
3003: if g_debug then
3004: hr_utility.set_location('hr_entry.chk_element_entry_main', 17);
3005: end if;
3006: --
3007: open c_element_start_date ;
3008: fetch c_element_start_date into v_element_effective_start_date;
3009: close c_element_start_date;
3010: --
3011: if v_validation_start_date < v_element_effective_start_date then
3012: if g_debug then
3013: hr_utility.set_location('hr_entry.chk_element_entry_main', 18);
3014: end if;
3015: v_validation_start_date := v_element_effective_start_date;
3016: end if;
3017: --
3024: (p_dt_delete_mode = 'DELETE_NEXT_CHANGE' and
3025: p_validation_end_date = hr_general.end_of_time)) then
3026: --
3027: if g_debug then
3028: hr_utility.set_location('hr_entry.chk_element_entry_main', 20);
3029: end if;
3030: -- start 115.26
3031: -- bugfix 1827998
3032: declare
3068: end if;
3069: end if;
3070: --
3071: if g_debug then
3072: hr_utility.set_location('hr_entry.chk_element_entry_main', 25);
3073: end if;
3074: --
3075: -- Call the procedure: chk_element_entry_open
3076: -- This procedure does common checks for insert/update/delete
3091: p_entry_type <> 'E') or
3092: v_processing_type = 'N')) then
3093: --
3094: if g_debug then
3095: hr_utility.set_location('hr_entry.chk_element_entry_main', 30);
3096: end if;
3097: --
3098: -- We must ensure that the entry is eligible to be inserted.
3099: --
3123: p_creator_type not in ('EE', 'RR', 'AD', 'AE', 'NR', 'PR') and
3124: p_usage = 'INSERT') then
3125: --
3126: if g_debug then
3127: hr_utility.set_location('hr_entry.chk_element_entry_main', 35);
3128: end if;
3129: --
3130: -- Additional Entry is trying to be inserted therefore, check for
3131: -- another existing Additional Entry within the current period.
3147: when no_data_found then null;
3148: end;
3149: --
3150: if v_error_flag = 'Y' then
3151: hr_utility.set_message(801, 'HR_7700_ELE_ENTRY_REC_EXISTS');
3152: hr_utility.raise_error;
3153: end if;
3154: --
3155: end if;
3148: end;
3149: --
3150: if v_error_flag = 'Y' then
3151: hr_utility.set_message(801, 'HR_7700_ELE_ENTRY_REC_EXISTS');
3152: hr_utility.raise_error;
3153: end if;
3154: --
3155: end if;
3156: --
3161: (p_dt_delete_mode = 'ZAP' or
3162: p_dt_delete_mode = 'DELETE')) then
3163: --
3164: if g_debug then
3165: hr_utility.set_location('hr_entry.chk_element_entry_main', 40);
3166: end if;
3167: --
3168: -- If the p_dt_delete_mode is not null then need to ensure that
3169: -- the entry being deleted does not orphan any adjustments.
3185: when no_data_found then null;
3186: end;
3187: --
3188: if v_error_flag = 'Y' then
3189: hr_utility.set_message(801, 'HR_6304_ELE_ENTRY_DT_DEL_ADJ');
3190: hr_utility.raise_error;
3191: end if;
3192: --
3193: end if;
3186: end;
3187: --
3188: if v_error_flag = 'Y' then
3189: hr_utility.set_message(801, 'HR_6304_ELE_ENTRY_DT_DEL_ADJ');
3190: hr_utility.raise_error;
3191: end if;
3192: --
3193: end if;
3194: --
3197: if (p_entry_type = 'S' and
3198: p_usage = 'INSERT') then
3199: --
3200: if g_debug then
3201: hr_utility.set_location('hr_entry.chk_element_entry_main', 45);
3202: end if;
3203: --
3204: -- Ensure that no other override exists within the current
3205: -- period for the same element for the assignment.
3221: when no_data_found then null;
3222: end;
3223: --
3224: if v_error_flag = 'Y' then
3225: hr_utility.set_message(801, 'HR_6187_ELE_ENTRY_OVER_EXISTS');
3226: hr_utility.raise_error;
3227: end if;
3228: --
3229: if g_debug then
3222: end;
3223: --
3224: if v_error_flag = 'Y' then
3225: hr_utility.set_message(801, 'HR_6187_ELE_ENTRY_OVER_EXISTS');
3226: hr_utility.raise_error;
3227: end if;
3228: --
3229: if g_debug then
3230: hr_utility.set_location('hr_entry.chk_element_entry_main', 50);
3226: hr_utility.raise_error;
3227: end if;
3228: --
3229: if g_debug then
3230: hr_utility.set_location('hr_entry.chk_element_entry_main', 50);
3231: end if;
3232: --
3233: -- Ensure that an adjustment entry does not exist when trying to
3234: -- insert override.
3251: when no_data_found then null;
3252: end;
3253: --
3254: if v_error_flag = 'Y' then
3255: hr_utility.set_message(801, 'HR_6189_ELE_ENTRY_ADJ_EXISTS');
3256: hr_utility.raise_error;
3257: end if;
3258: --
3259: -- You are not allowed to insert an override entry
3252: end;
3253: --
3254: if v_error_flag = 'Y' then
3255: hr_utility.set_message(801, 'HR_6189_ELE_ENTRY_ADJ_EXISTS');
3256: hr_utility.raise_error;
3257: end if;
3258: --
3259: -- You are not allowed to insert an override entry
3260: -- for an element type that has the third party only
3259: -- You are not allowed to insert an override entry
3260: -- for an element type that has the third party only
3261: -- flag set to 'Y'.
3262: if v_third_party_pay_only_flag = 'Y' then
3263: hr_utility.set_message(801, 'PAY_289106_CANT_OVER_THIRD');
3264: hr_utility.raise_error;
3265: end if;
3266: --
3267: end if;
3260: -- for an element type that has the third party only
3261: -- flag set to 'Y'.
3262: if v_third_party_pay_only_flag = 'Y' then
3263: hr_utility.set_message(801, 'PAY_289106_CANT_OVER_THIRD');
3264: hr_utility.raise_error;
3265: end if;
3266: --
3267: end if;
3268: --
3272: p_entry_type = 'A') and
3273: p_usage = 'INSERT') then
3274: --
3275: if g_debug then
3276: hr_utility.set_location('hr_entry.chk_element_entry_main', 55);
3277: end if;
3278: --
3279: -- Ensure that the parent entry of the adjustment exists for the
3280: -- duration of the adjustment.
3297: when no_data_found then null;
3298: end;
3299: --
3300: if v_error_flag = 'Y' then
3301: hr_utility.set_message(801, 'HR_6194_ELE_ENTRY_ADJ_PARENT');
3302: hr_utility.raise_error;
3303: end if;
3304: --
3305: if g_debug then
3298: end;
3299: --
3300: if v_error_flag = 'Y' then
3301: hr_utility.set_message(801, 'HR_6194_ELE_ENTRY_ADJ_PARENT');
3302: hr_utility.raise_error;
3303: end if;
3304: --
3305: if g_debug then
3306: hr_utility.set_location('hr_entry.chk_element_entry_main', 60);
3302: hr_utility.raise_error;
3303: end if;
3304: --
3305: if g_debug then
3306: hr_utility.set_location('hr_entry.chk_element_entry_main', 60);
3307: end if;
3308: --
3309: -- Ensure that an override does not exist for the entry which is to be
3310: -- adjusted.
3327: when no_data_found then null;
3328: end;
3329: --
3330: if v_error_flag = 'Y' then
3331: hr_utility.set_message(801, 'HR_6195_ELE_ENTRY_OADJ_EXISTS');
3332: hr_utility.raise_error;
3333: end if;
3334: --
3335: if g_debug then
3328: end;
3329: --
3330: if v_error_flag = 'Y' then
3331: hr_utility.set_message(801, 'HR_6195_ELE_ENTRY_OADJ_EXISTS');
3332: hr_utility.raise_error;
3333: end if;
3334: --
3335: if g_debug then
3336: hr_utility.set_location('hr_entry.chk_element_entry_main', 65);
3332: hr_utility.raise_error;
3333: end if;
3334: --
3335: if g_debug then
3336: hr_utility.set_location('hr_entry.chk_element_entry_main', 65);
3337: end if;
3338: --
3339: -- Ensure that an existing adjustment for this entry does not exist for
3340: -- the current period/assignment.
3356: when no_data_found then null;
3357: end;
3358: --
3359: if v_error_flag = 'Y' then
3360: hr_utility.set_message(801, 'HR_6196_ELE_ENTRY_ADJ_EXISTS');
3361: hr_utility.raise_error;
3362: end if;
3363: --
3364: end if;
3357: end;
3358: --
3359: if v_error_flag = 'Y' then
3360: hr_utility.set_message(801, 'HR_6196_ELE_ENTRY_ADJ_EXISTS');
3361: hr_utility.raise_error;
3362: end if;
3363: --
3364: end if;
3365: --
3455: --
3456: begin
3457: --
3458: if g_debug then
3459: hr_utility.set_location('hr_entry.ins_3p_entry_values', 1);
3460: end if;
3461: begin
3462: --
3463: select ee.element_entry_id,
3498: and et.effective_end_date;
3499: --
3500: exception
3501: when NO_DATA_FOUND then
3502: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3503: hr_utility.set_message_token('PROCEDURE',
3504: 'hr_entry.ins_3p_entry_values');
3505: hr_utility.set_message_token('STEP','6');
3506: hr_utility.raise_error;
3499: --
3500: exception
3501: when NO_DATA_FOUND then
3502: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3503: hr_utility.set_message_token('PROCEDURE',
3504: 'hr_entry.ins_3p_entry_values');
3505: hr_utility.set_message_token('STEP','6');
3506: hr_utility.raise_error;
3507: end;
3501: when NO_DATA_FOUND then
3502: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3503: hr_utility.set_message_token('PROCEDURE',
3504: 'hr_entry.ins_3p_entry_values');
3505: hr_utility.set_message_token('STEP','6');
3506: hr_utility.raise_error;
3507: end;
3508: --
3509: if g_debug then
3502: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3503: hr_utility.set_message_token('PROCEDURE',
3504: 'hr_entry.ins_3p_entry_values');
3505: hr_utility.set_message_token('STEP','6');
3506: hr_utility.raise_error;
3507: end;
3508: --
3509: if g_debug then
3510: hr_utility.set_location('hr_entry.ins_3p_entry_values', 2);
3506: hr_utility.raise_error;
3507: end;
3508: --
3509: if g_debug then
3510: hr_utility.set_location('hr_entry.ins_3p_entry_values', 2);
3511: end if;
3512: --
3513: -- Insert all the entry values if there are any.
3514: if p_num_entry_values > 0 then
3623: -- rate
3624: if v_input_currency_code <> v_output_currency_code then
3625: begin
3626: if g_debug then
3627: hr_utility.set_location('hr_entry.ins_3p_entry_values', 4);
3628: end if;
3629: --
3630: select business_group_id
3631: into v_bg_id
3638: v_currency_type:=hr_currency_pkg.get_rate_type
3639: (v_bg_id,p_session_date,'P');
3640: if (v_currency_type is NULL)
3641: then
3642: hr_utility.set_message(801,'HR_52349_NO_RATE_TYPE');
3643: hr_utility.raise_error;
3644: end if;
3645: end;
3646: --
3639: (v_bg_id,p_session_date,'P');
3640: if (v_currency_type is NULL)
3641: then
3642: hr_utility.set_message(801,'HR_52349_NO_RATE_TYPE');
3643: hr_utility.raise_error;
3644: end if;
3645: end;
3646: --
3647: end if;
3656: v_run_result_id := hr_entry.generate_run_result_id;
3657: --
3658: -- Insert Run Result. Step 6.
3659: if g_debug then
3660: hr_utility.set_location('hr_entry.ins_3p_entry_values', 6);
3661: end if;
3662: -- First get the Jurisdiction if one exists.
3663: begin
3664: select eev.screen_entry_value
3703: v_jurisdiction);
3704: --
3705: exception
3706: when NO_DATA_FOUND then
3707: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3708: hr_utility.set_message_token('PROCEDURE',
3709: 'hr_entry.ins_3p_entry_values');
3710: hr_utility.set_message_token('STEP','6');
3711: hr_utility.raise_error;
3704: --
3705: exception
3706: when NO_DATA_FOUND then
3707: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3708: hr_utility.set_message_token('PROCEDURE',
3709: 'hr_entry.ins_3p_entry_values');
3710: hr_utility.set_message_token('STEP','6');
3711: hr_utility.raise_error;
3712: end;
3706: when NO_DATA_FOUND then
3707: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3708: hr_utility.set_message_token('PROCEDURE',
3709: 'hr_entry.ins_3p_entry_values');
3710: hr_utility.set_message_token('STEP','6');
3711: hr_utility.raise_error;
3712: end;
3713: --
3714: -- Insert Run Result Values. Step 7.
3707: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3708: hr_utility.set_message_token('PROCEDURE',
3709: 'hr_entry.ins_3p_entry_values');
3710: hr_utility.set_message_token('STEP','6');
3711: hr_utility.raise_error;
3712: end;
3713: --
3714: -- Insert Run Result Values. Step 7.
3715: if (v_entry_type = 'B' and
3717: --
3718: -- insert run results values converting all money uom's to the output
3719: -- currency value.
3720: if g_debug then
3721: hr_utility.set_location('hr_entry.ins_3p_entry_values', 7);
3722: end if;
3723: begin
3724:
3725: for peev in get_b_eevs(p_element_entry_id, p_session_date) loop
3733: peev.value,
3734: v_currency_type);
3735: exception
3736: when gl_currency_api.NO_RATE then
3737: hr_utility.set_message(801,'HR_6405_PAYM_NO_EXCHANGE_RATE');
3738: hr_utility.set_message_token('RATE1', v_input_currency_code);
3739: hr_utility.set_message_token('RATE2', v_output_currency_code);
3740: hr_utility.raise_error;
3741: when gl_currency_api.INVALID_CURRENCY then
3734: v_currency_type);
3735: exception
3736: when gl_currency_api.NO_RATE then
3737: hr_utility.set_message(801,'HR_6405_PAYM_NO_EXCHANGE_RATE');
3738: hr_utility.set_message_token('RATE1', v_input_currency_code);
3739: hr_utility.set_message_token('RATE2', v_output_currency_code);
3740: hr_utility.raise_error;
3741: when gl_currency_api.INVALID_CURRENCY then
3742: hr_utility.set_message(801,'HR_52350_INVALID_CURRENCY');
3735: exception
3736: when gl_currency_api.NO_RATE then
3737: hr_utility.set_message(801,'HR_6405_PAYM_NO_EXCHANGE_RATE');
3738: hr_utility.set_message_token('RATE1', v_input_currency_code);
3739: hr_utility.set_message_token('RATE2', v_output_currency_code);
3740: hr_utility.raise_error;
3741: when gl_currency_api.INVALID_CURRENCY then
3742: hr_utility.set_message(801,'HR_52350_INVALID_CURRENCY');
3743: hr_utility.set_message_token('RATE1', v_input_currency_code);
3736: when gl_currency_api.NO_RATE then
3737: hr_utility.set_message(801,'HR_6405_PAYM_NO_EXCHANGE_RATE');
3738: hr_utility.set_message_token('RATE1', v_input_currency_code);
3739: hr_utility.set_message_token('RATE2', v_output_currency_code);
3740: hr_utility.raise_error;
3741: when gl_currency_api.INVALID_CURRENCY then
3742: hr_utility.set_message(801,'HR_52350_INVALID_CURRENCY');
3743: hr_utility.set_message_token('RATE1', v_input_currency_code);
3744: hr_utility.set_message_token('RATE2', v_output_currency_code);
3738: hr_utility.set_message_token('RATE1', v_input_currency_code);
3739: hr_utility.set_message_token('RATE2', v_output_currency_code);
3740: hr_utility.raise_error;
3741: when gl_currency_api.INVALID_CURRENCY then
3742: hr_utility.set_message(801,'HR_52350_INVALID_CURRENCY');
3743: hr_utility.set_message_token('RATE1', v_input_currency_code);
3744: hr_utility.set_message_token('RATE2', v_output_currency_code);
3745: hr_utility.raise_error;
3746: end;
3739: hr_utility.set_message_token('RATE2', v_output_currency_code);
3740: hr_utility.raise_error;
3741: when gl_currency_api.INVALID_CURRENCY then
3742: hr_utility.set_message(801,'HR_52350_INVALID_CURRENCY');
3743: hr_utility.set_message_token('RATE1', v_input_currency_code);
3744: hr_utility.set_message_token('RATE2', v_output_currency_code);
3745: hr_utility.raise_error;
3746: end;
3747: else
3740: hr_utility.raise_error;
3741: when gl_currency_api.INVALID_CURRENCY then
3742: hr_utility.set_message(801,'HR_52350_INVALID_CURRENCY');
3743: hr_utility.set_message_token('RATE1', v_input_currency_code);
3744: hr_utility.set_message_token('RATE2', v_output_currency_code);
3745: hr_utility.raise_error;
3746: end;
3747: else
3748: v_amount:=peev.value;
3741: when gl_currency_api.INVALID_CURRENCY then
3742: hr_utility.set_message(801,'HR_52350_INVALID_CURRENCY');
3743: hr_utility.set_message_token('RATE1', v_input_currency_code);
3744: hr_utility.set_message_token('RATE2', v_output_currency_code);
3745: hr_utility.raise_error;
3746: end;
3747: else
3748: v_amount:=peev.value;
3749: end if;
3759: end loop;
3760: --
3761: exception
3762: when no_data_found then
3763: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3764: hr_utility.set_message_token('PROCEDURE',
3765: 'hr_entry.ins_3p_entry_values');
3766: hr_utility.set_message_token('STEP','7');
3767: hr_utility.raise_error;
3760: --
3761: exception
3762: when no_data_found then
3763: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3764: hr_utility.set_message_token('PROCEDURE',
3765: 'hr_entry.ins_3p_entry_values');
3766: hr_utility.set_message_token('STEP','7');
3767: hr_utility.raise_error;
3768: end;
3762: when no_data_found then
3763: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3764: hr_utility.set_message_token('PROCEDURE',
3765: 'hr_entry.ins_3p_entry_values');
3766: hr_utility.set_message_token('STEP','7');
3767: hr_utility.raise_error;
3768: end;
3769:
3770: --
3763: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3764: hr_utility.set_message_token('PROCEDURE',
3765: 'hr_entry.ins_3p_entry_values');
3766: hr_utility.set_message_token('STEP','7');
3767: hr_utility.raise_error;
3768: end;
3769:
3770: --
3771: -- insert run result values which do not have to be converted.
3771: -- insert run result values which do not have to be converted.
3772: else
3773: --
3774: if g_debug then
3775: hr_utility.set_location('hr_entry.ins_3p_entry_values', 8);
3776: end if;
3777: begin
3778: --
3779: insert into pay_run_result_values
3790: and peev.effective_end_date;
3791: --
3792: exception
3793: when no_data_found then
3794: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3795: hr_utility.set_message_token('PROCEDURE',
3796: 'hr_entry.ins_3p_entry_values');
3797: hr_utility.set_message_token('STEP','8');
3798: hr_utility.raise_error;
3791: --
3792: exception
3793: when no_data_found then
3794: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3795: hr_utility.set_message_token('PROCEDURE',
3796: 'hr_entry.ins_3p_entry_values');
3797: hr_utility.set_message_token('STEP','8');
3798: hr_utility.raise_error;
3799: end;
3793: when no_data_found then
3794: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3795: hr_utility.set_message_token('PROCEDURE',
3796: 'hr_entry.ins_3p_entry_values');
3797: hr_utility.set_message_token('STEP','8');
3798: hr_utility.raise_error;
3799: end;
3800: --
3801: end if;
3794: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
3795: hr_utility.set_message_token('PROCEDURE',
3796: 'hr_entry.ins_3p_entry_values');
3797: hr_utility.set_message_token('STEP','8');
3798: hr_utility.raise_error;
3799: end;
3800: --
3801: end if;
3802: --
4218: --
4219: end extend_dependants;
4220: ----------------------
4221: begin
4222: g_debug := hr_utility.debug_enabled;
4223: --
4224: if g_debug then
4225: hr_utility.set_location('hr_entry.del_3p_entry_values', 1);
4226: end if;
4221: begin
4222: g_debug := hr_utility.debug_enabled;
4223: --
4224: if g_debug then
4225: hr_utility.set_location('hr_entry.del_3p_entry_values', 1);
4226: end if;
4227: --
4228: -- Fix for 1904110.
4229: -- The delete mode is always set to the parameter passed in because
4281: -- Step 2:
4282: --
4283: if v_process_in_run_flag = 'Y' then
4284: if g_debug then
4285: hr_utility.set_location('hr_entry.del_3p_entry_values', 2);
4286: end if;
4287: begin
4288: delete from pay_run_result_values rrv
4289: where rrv.run_result_id =
4300: -- DT_DELETE_MODE: ZAP
4301: -- Step 3:
4302: --
4303: if g_debug then
4304: hr_utility.set_location('hr_entry.del_3p_entry_values', 3);
4305: end if;
4306: begin
4307: delete from pay_run_results rr
4308: where rr.element_type_id + 0 = p_element_type_id
4322: --
4323: if (p_creator_type = 'F'
4324: or p_element_entry_id is not null) then
4325: if g_debug then
4326: hr_utility.set_location('hr_entry.del_3p_entry_values', 4);
4327: end if;
4328: begin
4329: delete from pay_element_entry_values_f eev
4330: where eev.element_entry_id = p_element_entry_id;
4339: -- 2) This is specific to absences.
4340: -- Step 5:
4341: --
4342: if g_debug then
4343: hr_utility.set_location('hr_entry.del_3p_entry_values', 5);
4344: end if;
4345: begin
4346: delete from pay_element_entry_values_f eev
4347: where eev.element_entry_id in
4365: -- DT_DELETE_MODE: ZAP
4366: -- Step 6:
4367: --
4368: if g_debug then
4369: hr_utility.set_location('hr_entry.del_3p_entry_values', 6);
4370: end if;
4371: begin
4372: delete from pay_element_entries_f ee
4373: where ee.element_entry_id = p_element_entry_id;
4380: -- As the entry is an absence then delete all entries for the absence
4381: -- attendence.
4382: --
4383: if g_debug then
4384: hr_utility.set_location('hr_entry.del_3p_entry_values', 7);
4385: end if;
4386: begin
4387: delete from pay_element_entries_f ee
4388: where ee.creator_type = p_creator_type
4399: -- DT_DELETE_MODE: DELETE
4400: -- Step 8:
4401: --
4402: if g_debug then
4403: hr_utility.set_location('hr_entry.del_3p_entry_values', 8);
4404: end if;
4405: begin
4406: update pay_element_entry_values_f eev
4407: set eev.effective_end_date = p_session_date
4409: and p_session_date between eev.effective_start_date
4410: and eev.effective_end_date;
4411: exception
4412: when NO_DATA_FOUND then
4413: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4414: hr_utility.set_message_token('PROCEDURE','hr_entry.del_3p_entry_values');
4415: hr_utility.set_message_token('STEP','8');
4416: hr_utility.raise_error;
4417: end;
4410: and eev.effective_end_date;
4411: exception
4412: when NO_DATA_FOUND then
4413: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4414: hr_utility.set_message_token('PROCEDURE','hr_entry.del_3p_entry_values');
4415: hr_utility.set_message_token('STEP','8');
4416: hr_utility.raise_error;
4417: end;
4418: --
4411: exception
4412: when NO_DATA_FOUND then
4413: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4414: hr_utility.set_message_token('PROCEDURE','hr_entry.del_3p_entry_values');
4415: hr_utility.set_message_token('STEP','8');
4416: hr_utility.raise_error;
4417: end;
4418: --
4419: if g_debug then
4412: when NO_DATA_FOUND then
4413: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4414: hr_utility.set_message_token('PROCEDURE','hr_entry.del_3p_entry_values');
4415: hr_utility.set_message_token('STEP','8');
4416: hr_utility.raise_error;
4417: end;
4418: --
4419: if g_debug then
4420: hr_utility.set_location('hr_entry.del_3p_entry_values', 9);
4416: hr_utility.raise_error;
4417: end;
4418: --
4419: if g_debug then
4420: hr_utility.set_location('hr_entry.del_3p_entry_values', 9);
4421: end if;
4422: begin
4423: delete from pay_element_entry_values_f eev
4424: where eev.element_entry_id = p_element_entry_id
4434: -- DT_DELETE_MODE: DELETE_NEXT_CHANGE/FUTURE_CHANGE
4435: -- Step 9:
4436: --
4437: if g_debug then
4438: hr_utility.set_location('hr_entry.del_3p_entry_values', 9);
4439: end if;
4440: begin
4441: delete from pay_element_entry_values_f eev
4442: where eev.element_entry_id = p_element_entry_id
4450: -- Update the current effective_end_date on the entry values rows.
4451: -- DT_DELETE_MODE: DELETE_NEXT_CHANGE/FUTURE_CHANGE
4452: -- Step 10:
4453: if g_debug then
4454: hr_utility.set_location('hr_entry.del_3p_entry_values', 10);
4455: end if;
4456: begin
4457: update pay_element_entry_values_f eev
4458: -- bug 384948. Changed set clouse to supply effective_end_date of the
4465: and p_session_date between eev.effective_start_date
4466: and eev.effective_end_date;
4467: exception
4468: when NO_DATA_FOUND then
4469: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4470: hr_utility.set_message_token('PROCEDURE','hr_entry.del_3p_entry_values');
4471: hr_utility.set_message_token('STEP','10');
4472: hr_utility.raise_error;
4473: end;
4466: and eev.effective_end_date;
4467: exception
4468: when NO_DATA_FOUND then
4469: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4470: hr_utility.set_message_token('PROCEDURE','hr_entry.del_3p_entry_values');
4471: hr_utility.set_message_token('STEP','10');
4472: hr_utility.raise_error;
4473: end;
4474: --
4467: exception
4468: when NO_DATA_FOUND then
4469: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4470: hr_utility.set_message_token('PROCEDURE','hr_entry.del_3p_entry_values');
4471: hr_utility.set_message_token('STEP','10');
4472: hr_utility.raise_error;
4473: end;
4474: --
4475: extend_beneficiaries;
4468: when NO_DATA_FOUND then
4469: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4470: hr_utility.set_message_token('PROCEDURE','hr_entry.del_3p_entry_values');
4471: hr_utility.set_message_token('STEP','10');
4472: hr_utility.raise_error;
4473: end;
4474: --
4475: extend_beneficiaries;
4476: extend_dependants;
4505: v_return_entry_id number;
4506: --
4507: begin
4508: if g_debug then
4509: hr_utility.set_location('hr_entry.upd_3p_entry_values', 1);
4510: end if;
4511: hr_general.assert_condition (p_processing_type is not null
4512: and p_dt_update_mode is not null
4513: and p_element_entry_id is not null
4567: and eev.effective_end_date;
4568: --
4569: exception
4570: when NO_DATA_FOUND then
4571: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4572: hr_utility.set_message_token('PROCEDURE',
4573: 'hr_entry.upd_3p_entry_values');
4574: hr_utility.set_message_token('STEP','1');
4575: hr_utility.raise_error;
4568: --
4569: exception
4570: when NO_DATA_FOUND then
4571: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4572: hr_utility.set_message_token('PROCEDURE',
4573: 'hr_entry.upd_3p_entry_values');
4574: hr_utility.set_message_token('STEP','1');
4575: hr_utility.raise_error;
4576: end;
4570: when NO_DATA_FOUND then
4571: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4572: hr_utility.set_message_token('PROCEDURE',
4573: 'hr_entry.upd_3p_entry_values');
4574: hr_utility.set_message_token('STEP','1');
4575: hr_utility.raise_error;
4576: end;
4577: --
4578: end loop;
4571: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4572: hr_utility.set_message_token('PROCEDURE',
4573: 'hr_entry.upd_3p_entry_values');
4574: hr_utility.set_message_token('STEP','1');
4575: hr_utility.raise_error;
4576: end;
4577: --
4578: end loop;
4579: --
4591: p_entry_type = 'E' and
4592: p_input_currency_code = p_output_currency_code and
4593: hr_entry.entry_process_in_run(p_element_type_id, p_session_date)) then
4594: if g_debug then
4595: hr_utility.set_location('hr_entry.upd_3p_entry_values', 3);
4596: end if;
4597: begin
4598: UPDATE PAY_RUN_RESULT_VALUES PRRV1
4599: SET PRRV1.RESULT_VALUE =
4624: p_dt_update_mode = 'UPDATE_CHANGE_INSERT' or
4625: p_dt_update_mode = 'UPDATE_OVERRIDE') and
4626: p_processing_type = 'R') then
4627: if g_debug then
4628: hr_utility.set_location('hr_entry.upd_3p_entry_values', 4);
4629: end if;
4630: begin
4631: UPDATE PAY_ELEMENT_ENTRY_VALUES_F PEEV1
4632: SET PEEV1.EFFECTIVE_END_DATE = p_validation_start_date - 1
4634: AND p_session_date
4635: BETWEEN PEEV1.EFFECTIVE_START_DATE AND PEEV1.EFFECTIVE_END_DATE;
4636: exception
4637: when NO_DATA_FOUND then
4638: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4639: hr_utility.set_message_token('PROCEDURE','hr_entry.upd_3p_entry_values');
4640: hr_utility.set_message_token('STEP','4');
4641: hr_utility.raise_error;
4642: end;
4635: BETWEEN PEEV1.EFFECTIVE_START_DATE AND PEEV1.EFFECTIVE_END_DATE;
4636: exception
4637: when NO_DATA_FOUND then
4638: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4639: hr_utility.set_message_token('PROCEDURE','hr_entry.upd_3p_entry_values');
4640: hr_utility.set_message_token('STEP','4');
4641: hr_utility.raise_error;
4642: end;
4643: --
4636: exception
4637: when NO_DATA_FOUND then
4638: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4639: hr_utility.set_message_token('PROCEDURE','hr_entry.upd_3p_entry_values');
4640: hr_utility.set_message_token('STEP','4');
4641: hr_utility.raise_error;
4642: end;
4643: --
4644: -- If the update mode = 'UPDATE_OVERRIDE' then delete all entry values that
4637: when NO_DATA_FOUND then
4638: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
4639: hr_utility.set_message_token('PROCEDURE','hr_entry.upd_3p_entry_values');
4640: hr_utility.set_message_token('STEP','4');
4641: hr_utility.raise_error;
4642: end;
4643: --
4644: -- If the update mode = 'UPDATE_OVERRIDE' then delete all entry values that
4645: -- are greater or equal to the validation_start_date
4646: -- Step 4:
4647: --
4648: if p_dt_update_mode = 'UPDATE_OVERRIDE' then
4649: if g_debug then
4650: hr_utility.set_location('hr_entry.upd_3p_entry_values', 5);
4651: end if;
4652: begin
4653: DELETE FROM PAY_ELEMENT_ENTRY_VALUES_F PEEV1
4654: WHERE PEEV1.ELEMENT_ENTRY_ID = p_element_entry_id
4814: v_input_value_id_tbl hr_entry.number_table;
4815: v_entry_value_tbl hr_entry.varchar2_table;
4816: --
4817: begin
4818: g_debug := hr_utility.debug_enabled;
4819: --
4820: if g_debug then
4821: hr_utility.set_location('hr_entry.upd_3p_entry_values',100);
4822: end if;
4817: begin
4818: g_debug := hr_utility.debug_enabled;
4819: --
4820: if g_debug then
4821: hr_utility.set_location('hr_entry.upd_3p_entry_values',100);
4822: end if;
4823: --
4824: -- Convert entry value details ie. INPUT_VALUE_ID and SCREEN_ENTRY_VALUE
4825: -- into two tables to be passed into the overloaded version of
4867: v_input_value_id_tbl,
4868: v_entry_value_tbl);
4869: --
4870: if g_debug then
4871: hr_utility.set_location('hr_entry.upd_3p_entry_values',105);
4872: end if;
4873: --
4874: hr_entry.upd_3p_ent_values
4875: (p_element_entry_id,
5024: v_formatted_min_value varchar2(60);
5025: v_formatted_max_value varchar2(60);
5026: --
5027: begin
5028: g_debug := hr_utility.debug_enabled;
5029: --
5030: if g_debug then
5031: hr_utility.set_location('hr_entry.check_format',5);
5032: end if;
5027: begin
5028: g_debug := hr_utility.debug_enabled;
5029: --
5030: if g_debug then
5031: hr_utility.set_location('hr_entry.check_format',5);
5032: end if;
5033: --
5034: -- Get uom , min / max and hot default details for the entry value
5035: -- being validated.
5079: p_warning_or_error := v_warning_or_error;
5080: --
5081: exception
5082: when no_data_found then
5083: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5084: hr_utility.set_message_token('PROCEDURE',
5085: 'hr_entry.check_format');
5086: hr_utility.set_message_token('STEP','1');
5087: hr_utility.raise_error;
5080: --
5081: exception
5082: when no_data_found then
5083: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5084: hr_utility.set_message_token('PROCEDURE',
5085: 'hr_entry.check_format');
5086: hr_utility.set_message_token('STEP','1');
5087: hr_utility.raise_error;
5088: end;
5082: when no_data_found then
5083: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5084: hr_utility.set_message_token('PROCEDURE',
5085: 'hr_entry.check_format');
5086: hr_utility.set_message_token('STEP','1');
5087: hr_utility.raise_error;
5088: end;
5089: --
5090: if g_debug then
5083: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5084: hr_utility.set_message_token('PROCEDURE',
5085: 'hr_entry.check_format');
5086: hr_utility.set_message_token('STEP','1');
5087: hr_utility.raise_error;
5088: end;
5089: --
5090: if g_debug then
5091: hr_utility.set_location('hr_entry.check_format',10);
5087: hr_utility.raise_error;
5088: end;
5089: --
5090: if g_debug then
5091: hr_utility.set_location('hr_entry.check_format',10);
5092: end if;
5093: --
5094: IF ((v_uom = 'M') AND (v_input_currency_code IS NULL)) THEN
5095: hr_utility.set_message (801,'HR_51106_ELEMENT_CURR_REQ');
5091: hr_utility.set_location('hr_entry.check_format',10);
5092: end if;
5093: --
5094: IF ((v_uom = 'M') AND (v_input_currency_code IS NULL)) THEN
5095: hr_utility.set_message (801,'HR_51106_ELEMENT_CURR_REQ');
5096: hr_utility.raise_error;
5097: END IF;
5098: --
5099: if v_minimum_value is not null then
5092: end if;
5093: --
5094: IF ((v_uom = 'M') AND (v_input_currency_code IS NULL)) THEN
5095: hr_utility.set_message (801,'HR_51106_ELEMENT_CURR_REQ');
5096: hr_utility.raise_error;
5097: END IF;
5098: --
5099: if v_minimum_value is not null then
5100: --
5124: p_nullok,
5125: p_min_max_failure,
5126: v_input_currency_code);
5127: exception
5128: when hr_utility.hr_error then
5129: v_checkformat_error := true;
5130: end;
5131: --
5132: if g_debug then
5129: v_checkformat_error := true;
5130: end;
5131: --
5132: if g_debug then
5133: hr_utility.set_location('hr_entry.check_format',10);
5134: end if;
5135: --
5136: -- Value is not correct for unit of measure
5137: if (v_checkformat_error) then
5145: and lookup_code = v_uom;
5146: --
5147: exception
5148: when no_data_found then
5149: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5150: hr_utility.set_message_token('PROCEDURE', 'hr_entry.check_format');
5151: hr_utility.set_message_token('STEP', '2');
5152: hr_utility.raise_error;
5153: end;
5146: --
5147: exception
5148: when no_data_found then
5149: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5150: hr_utility.set_message_token('PROCEDURE', 'hr_entry.check_format');
5151: hr_utility.set_message_token('STEP', '2');
5152: hr_utility.raise_error;
5153: end;
5154: --
5147: exception
5148: when no_data_found then
5149: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5150: hr_utility.set_message_token('PROCEDURE', 'hr_entry.check_format');
5151: hr_utility.set_message_token('STEP', '2');
5152: hr_utility.raise_error;
5153: end;
5154: --
5155: hr_utility.set_message(801, 'PAY_6306_INPUT_VALUE_FORMAT');
5148: when no_data_found then
5149: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5150: hr_utility.set_message_token('PROCEDURE', 'hr_entry.check_format');
5151: hr_utility.set_message_token('STEP', '2');
5152: hr_utility.raise_error;
5153: end;
5154: --
5155: hr_utility.set_message(801, 'PAY_6306_INPUT_VALUE_FORMAT');
5156: hr_utility.set_message_token('UNIT_OF_MEASURE', v_message_text);
5151: hr_utility.set_message_token('STEP', '2');
5152: hr_utility.raise_error;
5153: end;
5154: --
5155: hr_utility.set_message(801, 'PAY_6306_INPUT_VALUE_FORMAT');
5156: hr_utility.set_message_token('UNIT_OF_MEASURE', v_message_text);
5157: hr_utility.raise_error;
5158: --
5159: end if;
5152: hr_utility.raise_error;
5153: end;
5154: --
5155: hr_utility.set_message(801, 'PAY_6306_INPUT_VALUE_FORMAT');
5156: hr_utility.set_message_token('UNIT_OF_MEASURE', v_message_text);
5157: hr_utility.raise_error;
5158: --
5159: end if;
5160: --
5153: end;
5154: --
5155: hr_utility.set_message(801, 'PAY_6306_INPUT_VALUE_FORMAT');
5156: hr_utility.set_message_token('UNIT_OF_MEASURE', v_message_text);
5157: hr_utility.raise_error;
5158: --
5159: end if;
5160: --
5161: if g_debug then
5158: --
5159: end if;
5160: --
5161: if g_debug then
5162: hr_utility.set_location('hr_entry.check_format',15);
5163: end if;
5164: --
5165: -- Minimum / maximum conditions have been broken by value
5166: if p_min_max_failure = 'F' then
5165: -- Minimum / maximum conditions have been broken by value
5166: if p_min_max_failure = 'F' then
5167: --
5168: if g_debug then
5169: hr_utility.set_location('hr_entry.check_format',20);
5170: end if;
5171: --
5172: -- If minimum value was specified, translate into screen format for use
5173: -- in error meessages
5175: p_minimum_value := v_formatted_min_value;
5176: end if;
5177: --
5178: if g_debug then
5179: hr_utility.set_location('hr_entry.check_format',25);
5180: end if;
5181: --
5182: -- If maximum value was specified, translate into screen format for use
5183: -- in error meessages
5270: v_cal_cost_segs varchar2(3); -- user profile
5271: l_are_dynamic_inserts_allowed varchar2(2) := null;
5272: --
5273: begin
5274: g_debug := hr_utility.debug_enabled;
5275:
5276: -- A cost_keyflex_id has been specified so confirm it still is valid.
5277: if (l_cost_allocation_keyflex_id is not null and
5278: l_cost_allocation_keyflex_id <> -1) then
5296: --
5297: -- Need to check for a partial value.
5298: --
5299: if g_debug then
5300: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 1);
5301: end if;
5302: --
5303: segment(1) := p_segment1;
5304: segment(2) := p_segment2;
5345: end if;
5346: end loop;
5347: --
5348: if g_debug then
5349: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 2);
5350: end if;
5351: --
5352: sql_curs := dbms_sql.open_cursor;
5353: --
5364: end loop;
5365: dbms_sql.define_column(sql_curs, 1, l_cost_allocation_keyflex_id);
5366: --
5367: if g_debug then
5368: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 3);
5369: end if;
5370: --
5371: rows_processed := dbms_sql.execute(sql_curs);
5372: --
5370: --
5371: rows_processed := dbms_sql.execute(sql_curs);
5372: --
5373: if g_debug then
5374: hr_utility.set_location('hr_entry.maintain_cost_keyflex ', 4);
5375: end if;
5376: --
5377: if dbms_sql.fetch_rows(sql_curs) > 0 then
5378: --
5376: --
5377: if dbms_sql.fetch_rows(sql_curs) > 0 then
5378: --
5379: if g_debug then
5380: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 5);
5381: end if;
5382: dbms_sql.column_value(sql_curs, 1, l_cost_allocation_keyflex_id);
5383: --
5384: if (l_cost_allocation_keyflex_id is null)
5383: --
5384: if (l_cost_allocation_keyflex_id is null)
5385: then
5386: if g_debug then
5387: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 6);
5388: end if;
5389: l_cost_allocation_keyflex_id := -1;
5390: end if;
5391: else
5389: l_cost_allocation_keyflex_id := -1;
5390: end if;
5391: else
5392: if g_debug then
5393: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 7);
5394: end if;
5395: l_cost_allocation_keyflex_id := -1;
5396: end if;
5397: --
5419: and dynamic_inserts_allowed_flag = 'Y';
5420:
5421: exception
5422: when no_data_found then
5423: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 7);
5424: hr_utility.set_message(801, 'PAY_34809_CANT_INS_INTO_CSTKFF');
5425: hr_utility.raise_error;
5426: end;
5427:
5420:
5421: exception
5422: when no_data_found then
5423: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 7);
5424: hr_utility.set_message(801, 'PAY_34809_CANT_INS_INTO_CSTKFF');
5425: hr_utility.raise_error;
5426: end;
5427:
5428: --
5421: exception
5422: when no_data_found then
5423: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 7);
5424: hr_utility.set_message(801, 'PAY_34809_CANT_INS_INTO_CSTKFF');
5425: hr_utility.raise_error;
5426: end;
5427:
5428: --
5429: -- Select the next sequence value for the cost allocation keyflex.
5428: --
5429: -- Select the next sequence value for the cost allocation keyflex.
5430: --
5431: if g_debug then
5432: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 8);
5433: end if;
5434: begin
5435: select pay_cost_allocation_keyflex_s.nextval
5436: into l_cost_allocation_keyflex_id
5436: into l_cost_allocation_keyflex_id
5437: from sys.dual;
5438: exception
5439: when NO_DATA_FOUND then
5440: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5441: hr_utility.set_message_token('PROCEDURE',
5442: 'hr_entry.maintain_cost_keyflex');
5443: hr_utility.set_message_token('STEP','5');
5444: hr_utility.raise_error;
5437: from sys.dual;
5438: exception
5439: when NO_DATA_FOUND then
5440: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5441: hr_utility.set_message_token('PROCEDURE',
5442: 'hr_entry.maintain_cost_keyflex');
5443: hr_utility.set_message_token('STEP','5');
5444: hr_utility.raise_error;
5445: end;
5439: when NO_DATA_FOUND then
5440: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5441: hr_utility.set_message_token('PROCEDURE',
5442: 'hr_entry.maintain_cost_keyflex');
5443: hr_utility.set_message_token('STEP','5');
5444: hr_utility.raise_error;
5445: end;
5446: --
5447: -- Calculate concatenated_segments if a null value was passed in
5440: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5441: hr_utility.set_message_token('PROCEDURE',
5442: 'hr_entry.maintain_cost_keyflex');
5443: hr_utility.set_message_token('STEP','5');
5444: hr_utility.raise_error;
5445: end;
5446: --
5447: -- Calculate concatenated_segments if a null value was passed in
5448: --
5448: --
5449: if p_concatenated_segments is null then
5450: --
5451: if g_debug then
5452: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 15);
5453: end if;
5454: -- get delimiter
5455: l_delimiter := fnd_flex_ext.get_delimiter
5456: ('PAY'
5458: ,p_cost_keyflex_structure
5459: );
5460: --
5461: if g_debug then
5462: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 20);
5463: end if;
5464: --
5465: first_seg := true;
5466:
5485: l_concatenated_segments := substr(l_concat_string, 1, 240);
5486: else
5487: --
5488: if g_debug then
5489: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 25);
5490: end if;
5491: --
5492: l_concatenated_segments := p_concatenated_segments;
5493: end if;
5517: ) = FALSE
5518: then
5519: --
5520: if g_debug then
5521: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 27);
5522: end if;
5523: --
5524: -- Handle error raised to create a nice error message!
5525: --
5527: FND_FLEX_KEYVAL.encoded_error_message);
5528: fnd_message.raise_error;
5529: else
5530: if g_debug then
5531: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 28);
5532: end if;
5533:
5534: end if;
5535: end if;
5536: --
5537: -- Insert the new row.
5538: --
5539: if g_debug then
5540: hr_utility.set_location('hr_entry.maintain_cost_keyflex', 30);
5541: end if;
5542: begin
5543: insert into pay_cost_allocation_keyflex
5544: (cost_allocation_keyflex_id
5657: l_end_date date;
5658: l_skip_further_checks varchar2(30) := 'N';
5659: l_run_result_status varchar2(30);
5660: begin
5661: g_debug := hr_utility.debug_enabled;
5662: --
5663: -- We need to get the standard assignment payroll and time period details
5664: --
5665: if g_debug then
5662: --
5663: -- We need to get the standard assignment payroll and time period details
5664: --
5665: if g_debug then
5666: hr_utility.set_location('hr_entry.return_entry_display_status', 1);
5667: end if;
5668: begin
5669: select a.payroll_id,
5670: t.start_date,
5690: --
5691: -- 1: lets set the additional value.
5692: --
5693: if g_debug then
5694: hr_utility.set_location('hr_entry.return_entry_display_status', 5);
5695: end if;
5696: if (p_entry_type = 'D') then
5697: p_additional := 'Y';
5698: else
5701: --
5702: -- 2: lets see if current entry has been processed.
5703: --
5704: if g_debug then
5705: hr_utility.set_location('hr_entry.return_entry_display_status', 10);
5706: end if;
5707: if (l_payroll_id is not null) then
5708: begin
5709: select max(ppr.run_result_id)
5733: -- If the run result was processed and is an override then it cannot itself
5734: -- be overridden or adjusted.
5735: --
5736: if g_debug then
5737: hr_utility.set_location('hr_entry.return_entry_display_status', 15);
5738: end if;
5739: if (l_run_result_id is not null and
5740: p_entry_type = 'S') then
5741: p_processed := 'Y';
5750: -- As the entry was processed we need to check if it was overridden or
5751: -- Adjusted.
5752: --
5753: if g_debug then
5754: hr_utility.set_location('hr_entry.return_entry_display_status', 20);
5755: end if;
5756: begin
5757: select prr.status
5758: into l_run_result_status
5766: -- If the l_run_result_status is NOT in 'PA', 'R', 'O' then set the
5767: -- l_override, l_adjusted to 'N' and to don't do any further checks.
5768: --
5769: if g_debug then
5770: hr_utility.set_location('hr_entry.return_entry_display_status', 25);
5771: end if;
5772: if (l_run_result_status <> 'PA' or
5773: l_run_result_status <> 'R' or
5774: l_run_result_status <> 'O') then
5786: --
5787: -- 3: Check to see if the entry is overridden.
5788: --
5789: if g_debug then
5790: hr_utility.set_location('hr_entry.return_entry_display_status', 30);
5791: end if;
5792: begin
5793: select 'Y'
5794: into l_overridden
5809: -- 4: If the entry is NOT overridden then check to see if has been adjusted.
5810: --
5811: if (l_overridden = 'N') then
5812: if g_debug then
5813: hr_utility.set_location('hr_entry.return_entry_display_status', 35);
5814: end if;
5815: begin
5816: select 'Y'
5817: into p_adjustment
5855: l_error_flag varchar2(30) := 'N';
5856: l_dt_update_mode varchar2(30) := nvl(p_dt_update_mode, 'CORRECTION');
5857: l_dt_delete_mode varchar2(30) := nvl(p_dt_delete_mode, 'ZAP');
5858: begin
5859: g_debug := hr_utility.debug_enabled;
5860: if (p_creator_type = 'A' or
5861: p_creator_type = 'M' or
5862: p_creator_type = 'S' or
5863: p_creator_type = 'UT' or
5879: -- B: Balance Adjustment
5880: -- SP: Salary Admin
5881: --
5882: if g_debug then
5883: hr_utility.set_location('hr_entry.chk_creator_type', 5);
5884: end if;
5885: begin
5886: select h.meaning
5887: into l_creator_meaning
5893: null;
5894: end;
5895: --
5896: if (p_dml_operation = 'UPDATE') then
5897: hr_utility.set_message(801, 'HR_7014_ELE_ENTRY_CREATOR_UPD');
5898: hr_utility.set_message_token('CREATOR_MEANING', l_creator_meaning);
5899: hr_utility.raise_error;
5900: else
5901: hr_utility.set_message(801, 'HR_7015_ELE_ENTRY_CREATOR_DEL');
5894: end;
5895: --
5896: if (p_dml_operation = 'UPDATE') then
5897: hr_utility.set_message(801, 'HR_7014_ELE_ENTRY_CREATOR_UPD');
5898: hr_utility.set_message_token('CREATOR_MEANING', l_creator_meaning);
5899: hr_utility.raise_error;
5900: else
5901: hr_utility.set_message(801, 'HR_7015_ELE_ENTRY_CREATOR_DEL');
5902: hr_utility.set_message_token('CREATOR_MEANING', l_creator_meaning);
5895: --
5896: if (p_dml_operation = 'UPDATE') then
5897: hr_utility.set_message(801, 'HR_7014_ELE_ENTRY_CREATOR_UPD');
5898: hr_utility.set_message_token('CREATOR_MEANING', l_creator_meaning);
5899: hr_utility.raise_error;
5900: else
5901: hr_utility.set_message(801, 'HR_7015_ELE_ENTRY_CREATOR_DEL');
5902: hr_utility.set_message_token('CREATOR_MEANING', l_creator_meaning);
5903: hr_utility.raise_error;
5897: hr_utility.set_message(801, 'HR_7014_ELE_ENTRY_CREATOR_UPD');
5898: hr_utility.set_message_token('CREATOR_MEANING', l_creator_meaning);
5899: hr_utility.raise_error;
5900: else
5901: hr_utility.set_message(801, 'HR_7015_ELE_ENTRY_CREATOR_DEL');
5902: hr_utility.set_message_token('CREATOR_MEANING', l_creator_meaning);
5903: hr_utility.raise_error;
5904: end if;
5905: --
5898: hr_utility.set_message_token('CREATOR_MEANING', l_creator_meaning);
5899: hr_utility.raise_error;
5900: else
5901: hr_utility.set_message(801, 'HR_7015_ELE_ENTRY_CREATOR_DEL');
5902: hr_utility.set_message_token('CREATOR_MEANING', l_creator_meaning);
5903: hr_utility.raise_error;
5904: end if;
5905: --
5906: -- If the creator_type = 'F' then we need to ensure that we are NOT extending
5899: hr_utility.raise_error;
5900: else
5901: hr_utility.set_message(801, 'HR_7015_ELE_ENTRY_CREATOR_DEL');
5902: hr_utility.set_message_token('CREATOR_MEANING', l_creator_meaning);
5903: hr_utility.raise_error;
5904: end if;
5905: --
5906: -- If the creator_type = 'F' then we need to ensure that we are NOT extending
5907: -- or removing entries where a parent 'SP' (Salary Admin) record exists.
5924: (p_dml_operation = 'UPDATE' and
5925: l_dt_update_mode = 'UPDATE_OVERRIDE')))) then
5926: --
5927: if g_debug then
5928: hr_utility.set_location('hr_entry.chk_creator_type', 10);
5929: end if;
5930: begin
5931: select 'Y'
5932: into l_error_flag
5944: --
5945: -- Check to see if the Salary Admin Entry exists:
5946: --
5947: if (l_error_flag = 'Y') then
5948: hr_utility.set_message(801, 'HR_7017_ELE_ENTRY_SP_CORRECT');
5949: hr_utility.raise_error;
5950: end if;
5951: end if;
5952: --
5945: -- Check to see if the Salary Admin Entry exists:
5946: --
5947: if (l_error_flag = 'Y') then
5948: hr_utility.set_message(801, 'HR_7017_ELE_ENTRY_SP_CORRECT');
5949: hr_utility.raise_error;
5950: end if;
5951: end if;
5952: --
5953: end chk_creator_type;