[Home] [Help]
51: --
52: l_proc varchar2(72) := g_package||'chk_accepted_termination_date';
53: --
54: begin
55: hr_utility.set_location('Entering:'|| l_proc, 1);
56: --
57: if not (p_accepted_termination_date is null)
58: then
59: -- CHK_ACCEPTED_TERMINATION_DATE / a
57: if not (p_accepted_termination_date is null)
58: then
59: -- CHK_ACCEPTED_TERMINATION_DATE / a
60: --
61: hr_utility.set_message(801,'HR_7492_PDS_INV_ACT_DT_BLANK');
62: hr_utility.raise_error;
63: end if;
64: --
65: hr_utility.set_location(' Leaving:'|| l_proc, 4);
58: then
59: -- CHK_ACCEPTED_TERMINATION_DATE / a
60: --
61: hr_utility.set_message(801,'HR_7492_PDS_INV_ACT_DT_BLANK');
62: hr_utility.raise_error;
63: end if;
64: --
65: hr_utility.set_location(' Leaving:'|| l_proc, 4);
66: end chk_accepted_termination_date;
61: hr_utility.set_message(801,'HR_7492_PDS_INV_ACT_DT_BLANK');
62: hr_utility.raise_error;
63: end if;
64: --
65: hr_utility.set_location(' Leaving:'|| l_proc, 4);
66: end chk_accepted_termination_date;
67: --
68: -- ---------------------------------------------------------------------------
69: -- |---------------------< chk_actual_termination_date >---------------------|
136: from per_all_people_f per
137: where per.person_id = p_person_id;
138: --
139: begin
140: hr_utility.set_location('Entering:'|| l_proc, 1);
141: --
142: -- Check mandatory parameters have been set
143: --
144: hr_api.mandatory_arg_error
146: ,p_argument => 'date_start'
147: ,p_argument_value => p_date_start
148: );
149: --
150: hr_utility.set_location(l_proc, 20);
151: --
152: -- Check to see if record updated.
153: --
154: l_api_updating := per_pds_shd.api_updating
154: l_api_updating := per_pds_shd.api_updating
155: (p_period_of_service_id => p_period_of_service_id
156: ,p_object_version_number => p_object_version_number);
157: --
158: hr_utility.set_location(l_proc, 30);
159: --
160: if l_api_updating
161: then
162: --
163: if nvl(per_pds_shd.g_old_rec.actual_termination_date, hr_api.g_date) <>
164: nvl(p_actual_termination_date, hr_api.g_date)
165: and p_actual_termination_date is not null
166: then
167: hr_utility.set_location(l_proc, 40);
168: --
169: if per_pds_shd.g_old_rec.actual_termination_date is not null
170: then
171: --
171: --
172: -- Cannot be changed from one not null value to another not null value.
173: -- CHK_ACTUAL_TERMINATION_DATE / d
174: --
175: hr_utility.set_message(801,'HR_7955_PDS_INV_ATT_CHANGE');
176: hr_utility.raise_error;
177: end if;
178: hr_utility.set_location(l_proc, 60);
179: --
172: -- Cannot be changed from one not null value to another not null value.
173: -- CHK_ACTUAL_TERMINATION_DATE / d
174: --
175: hr_utility.set_message(801,'HR_7955_PDS_INV_ATT_CHANGE');
176: hr_utility.raise_error;
177: end if;
178: hr_utility.set_location(l_proc, 60);
179: --
180: if p_actual_termination_date > p_last_standard_process_date and
174: --
175: hr_utility.set_message(801,'HR_7955_PDS_INV_ATT_CHANGE');
176: hr_utility.raise_error;
177: end if;
178: hr_utility.set_location(l_proc, 60);
179: --
180: if p_actual_termination_date > p_last_standard_process_date and
181: p_last_standard_process_date is not null then
182: --
181: p_last_standard_process_date is not null then
182: --
183: -- CHK_ACTUAL_TERMINATION_DATE / a
184: --
185: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
186: hr_utility.raise_error;
187: end if;
188: hr_utility.set_location(l_proc, 70);
189: --
182: --
183: -- CHK_ACTUAL_TERMINATION_DATE / a
184: --
185: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
186: hr_utility.raise_error;
187: end if;
188: hr_utility.set_location(l_proc, 70);
189: --
190: if not (nvl(p_actual_termination_date, hr_api.g_eot) >=
184: --
185: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
186: hr_utility.raise_error;
187: end if;
188: hr_utility.set_location(l_proc, 70);
189: --
190: if not (nvl(p_actual_termination_date, hr_api.g_eot) >=
191: p_date_start) then
192: --
191: p_date_start) then
192: --
193: -- CHK_ACTUAL_TERMINATION_DATE / b
194: --
195: hr_utility.set_message(801,'HR_7493_PDS_INV_ATT_DT_ST');
196: hr_utility.raise_error;
197: end if;
198: hr_utility.set_location(l_proc, 80);
199: --
192: --
193: -- CHK_ACTUAL_TERMINATION_DATE / b
194: --
195: hr_utility.set_message(801,'HR_7493_PDS_INV_ATT_DT_ST');
196: hr_utility.raise_error;
197: end if;
198: hr_utility.set_location(l_proc, 80);
199: --
200: -- Get the initial insert date of the latest assignment.
194: --
195: hr_utility.set_message(801,'HR_7493_PDS_INV_ATT_DT_ST');
196: hr_utility.raise_error;
197: end if;
198: hr_utility.set_location(l_proc, 80);
199: --
200: -- Get the initial insert date of the latest assignment.
201: --
202: open csr_get_max_asg_start_date;
206: --
207: if csr_get_max_asg_start_date%NOTFOUND then
208: --
209: close csr_get_max_asg_start_date;
210: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
211: hr_utility.set_message_token('PROCEDURE', l_proc);
212: hr_utility.set_message_token('STEP', '5');
213: hr_utility.raise_error;
214: --
207: if csr_get_max_asg_start_date%NOTFOUND then
208: --
209: close csr_get_max_asg_start_date;
210: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
211: hr_utility.set_message_token('PROCEDURE', l_proc);
212: hr_utility.set_message_token('STEP', '5');
213: hr_utility.raise_error;
214: --
215: elsif (p_actual_termination_date < l_effective_start_date) then
208: --
209: close csr_get_max_asg_start_date;
210: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
211: hr_utility.set_message_token('PROCEDURE', l_proc);
212: hr_utility.set_message_token('STEP', '5');
213: hr_utility.raise_error;
214: --
215: elsif (p_actual_termination_date < l_effective_start_date) then
216: --
209: close csr_get_max_asg_start_date;
210: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
211: hr_utility.set_message_token('PROCEDURE', l_proc);
212: hr_utility.set_message_token('STEP', '5');
213: hr_utility.raise_error;
214: --
215: elsif (p_actual_termination_date < l_effective_start_date) then
216: --
217: -- CHK_ACTUAL_TERMINATION_DATE / e
216: --
217: -- CHK_ACTUAL_TERMINATION_DATE / e
218: --
219: close csr_get_max_asg_start_date;
220: hr_utility.set_message(801,'HR_7956_PDS_INV_ATT_DT_EARLY');
221: hr_utility.raise_error;
222: end if;
223: close csr_get_max_asg_start_date;
224: hr_utility.set_location(l_proc, 110);
217: -- CHK_ACTUAL_TERMINATION_DATE / e
218: --
219: close csr_get_max_asg_start_date;
220: hr_utility.set_message(801,'HR_7956_PDS_INV_ATT_DT_EARLY');
221: hr_utility.raise_error;
222: end if;
223: close csr_get_max_asg_start_date;
224: hr_utility.set_location(l_proc, 110);
225: --
220: hr_utility.set_message(801,'HR_7956_PDS_INV_ATT_DT_EARLY');
221: hr_utility.raise_error;
222: end if;
223: close csr_get_max_asg_start_date;
224: hr_utility.set_location(l_proc, 110);
225: --
226: -- Get the latest effective start date for any person future changes.
227: --
228: open csr_get_max_per_eff_date;
231: close csr_get_max_per_eff_date;
232: --
233: if l_effective_start_date is null then
234: --
235: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
236: hr_utility.set_message_token('PROCEDURE', l_proc);
237: hr_utility.set_message_token('STEP', '10');
238: hr_utility.raise_error;
239: --
232: --
233: if l_effective_start_date is null then
234: --
235: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
236: hr_utility.set_message_token('PROCEDURE', l_proc);
237: hr_utility.set_message_token('STEP', '10');
238: hr_utility.raise_error;
239: --
240: elsif not (p_actual_termination_date >= l_effective_start_date) then
233: if l_effective_start_date is null then
234: --
235: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
236: hr_utility.set_message_token('PROCEDURE', l_proc);
237: hr_utility.set_message_token('STEP', '10');
238: hr_utility.raise_error;
239: --
240: elsif not (p_actual_termination_date >= l_effective_start_date) then
241: --
234: --
235: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
236: hr_utility.set_message_token('PROCEDURE', l_proc);
237: hr_utility.set_message_token('STEP', '10');
238: hr_utility.raise_error;
239: --
240: elsif not (p_actual_termination_date >= l_effective_start_date) then
241: --
242: -- CHK_ACTUAL_TERMINATION_DATE / f
240: elsif not (p_actual_termination_date >= l_effective_start_date) then
241: --
242: -- CHK_ACTUAL_TERMINATION_DATE / f
243: --
244: hr_utility.set_message(801,'HR_7957_PDS_INV_ATT_FUTURE');
245: hr_utility.raise_error;
246: end if;
247: end if;
248: --
241: --
242: -- CHK_ACTUAL_TERMINATION_DATE / f
243: --
244: hr_utility.set_message(801,'HR_7957_PDS_INV_ATT_FUTURE');
245: hr_utility.raise_error;
246: end if;
247: end if;
248: --
249: else
247: end if;
248: --
249: else
250: -- Not updating => inserting.
251: hr_utility.set_location(l_proc, 140);
252: --
253: if not (p_actual_termination_date is null) then
254: --
255: -- CHK_ACTUAL_TERMINATION_DATE / c
253: if not (p_actual_termination_date is null) then
254: --
255: -- CHK_ACTUAL_TERMINATION_DATE / c
256: --
257: hr_utility.set_message(801,'HR_7502_PDS_INV_ATT_DT_BLANK');
258: hr_utility.raise_error;
259: end if;
260: --
261: end if;
254: --
255: -- CHK_ACTUAL_TERMINATION_DATE / c
256: --
257: hr_utility.set_message(801,'HR_7502_PDS_INV_ATT_DT_BLANK');
258: hr_utility.raise_error;
259: end if;
260: --
261: end if;
262: --
259: end if;
260: --
261: end if;
262: --
263: hr_utility.set_location(' Leaving:'|| l_proc, 200);
264: end chk_actual_termination_date;
265: --
266: -- ---------------------------------------------------------------------------
267: -- |---------------------------< chk_date_start >----------------------------|
298: --
299: l_proc varchar2(72) := g_package||'chk_date_start';
300: --
301: begin
302: hr_utility.set_location('Entering:'|| l_proc, 1);
303: --
304: -- CHK_DATE_START / a
305: --
306: hr_api.mandatory_arg_error
308: ,p_argument => 'date_start'
309: ,p_argument_value => p_date_start
310: );
311: --
312: hr_utility.set_location(' Leaving:'|| l_proc, 2);
313: end chk_date_start;
314: --
315: -- ---------------------------------------------------------------------------
316: -- |------------------------
413: --
414: -- 115.30 (END)
415: --
416: begin
417: hr_utility.set_location('Entering:'|| l_proc, 1);
418: --
419: -- Check mandatory parameters have been set
420: --
421: hr_api.mandatory_arg_error
423: ,p_argument => 'date_start'
424: ,p_argument_value => p_date_start
425: );
426: --
427: hr_utility.set_location(l_proc, 2);
428: --
429: -- Check to see if record updated.
430: --
431: l_api_updating := per_pds_shd.api_updating
431: l_api_updating := per_pds_shd.api_updating
432: (p_period_of_service_id => p_period_of_service_id
433: ,p_object_version_number => p_object_version_number);
434: --
435: hr_utility.set_location(l_proc, 5);
436: --
437: if l_api_updating
438: then
439: --
440: if nvl(per_pds_shd.g_old_rec.final_process_date, hr_api.g_date) <>
441: nvl(p_final_process_date, hr_api.g_date)
442: then
443: --
444: hr_utility.set_location(l_proc, 6);
445: --
446: --
447: -- 70.3 change d start.
448: --
453: --and p_final_process_date is not null
454: --then
455: -- -- CHK_FINAL_PROCESS_DATE / g
456: -- --
457: -- hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
458: -- hr_utility.raise_error;
459: --end if;
460: --
461: -- if FPD is changing and old FPD < new FPD then raise an error if new FPD
454: --then
455: -- -- CHK_FINAL_PROCESS_DATE / g
456: -- --
457: -- hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
458: -- hr_utility.raise_error;
459: --end if;
460: --
461: -- if FPD is changing and old FPD < new FPD then raise an error if new FPD
462: -- >= start date of next-latest PDS and old FPD < start date of next-latest
466: AND p_final_process_date IS NOT NULL
467: AND (p_final_process_date > per_pds_shd.g_old_rec.final_process_date)
468: THEN
469: --
470: hr_utility.set_location(l_proc, 10);
471: -- Get the next latest PDS is one exists
472: OPEN csr_next_pds;
473: FETCH csr_next_pds INTO lr_next_pds;
474: IF csr_next_pds%FOUND THEN
472: OPEN csr_next_pds;
473: FETCH csr_next_pds INTO lr_next_pds;
474: IF csr_next_pds%FOUND THEN
475: -- Check if PDS gap is being updated to a overlap
476: hr_utility.set_location(l_proc, 15);
477: --
478: IF ((per_pds_shd.g_old_rec.final_process_date < lr_next_pds.date_start)
479: AND p_final_process_date >= lr_next_pds.date_start)
480: THEN
478: IF ((per_pds_shd.g_old_rec.final_process_date < lr_next_pds.date_start)
479: AND p_final_process_date >= lr_next_pds.date_start)
480: THEN
481: CLOSE csr_next_pds;
482: hr_utility.set_message(800,'HR_449744_EMP_FPD_PDS');
483: hr_utility.raise_error;
484: END IF;
485: --
486: -- 115.35 (START)
479: AND p_final_process_date >= lr_next_pds.date_start)
480: THEN
481: CLOSE csr_next_pds;
482: hr_utility.set_message(800,'HR_449744_EMP_FPD_PDS');
483: hr_utility.raise_error;
484: END IF;
485: --
486: -- 115.35 (START)
487: --
492: THEN
493: IF p_final_process_date >= lr_next_pds.final_process_date
494: THEN
495: CLOSE csr_next_pds;
496: hr_utility.set_message(800,'HR_449761_FPD_GT_PREV_PDS');
497: hr_utility.raise_error;
498: END IF;
499: END IF;
500: --
493: IF p_final_process_date >= lr_next_pds.final_process_date
494: THEN
495: CLOSE csr_next_pds;
496: hr_utility.set_message(800,'HR_449761_FPD_GT_PREV_PDS');
497: hr_utility.raise_error;
498: END IF;
499: END IF;
500: --
501: -- 115.35 (END)
503: END IF;
504: CLOSE csr_next_pds;
505: END IF;
506: --
507: hr_utility.set_location(l_proc, 20);
508: --
509: -- if FPD is changing and old FPD < new FPD then raise an error if old FPD
510: -- = LSPD/ATD but new FPD > LSPD/ATD.
511: --
513: AND p_final_process_date IS NOT NULL
514: AND (p_final_process_date > per_pds_shd.g_old_rec.final_process_date)
515: THEN
516: --
517: hr_utility.set_location(l_proc, 22);
518: --
519: IF ((per_pds_shd.g_old_rec.final_process_date = NVL(p_last_standard_process_date, p_actual_termination_date))
520: AND p_final_process_date > NVL(p_last_standard_process_date, p_actual_termination_date))
521: THEN
518: --
519: IF ((per_pds_shd.g_old_rec.final_process_date = NVL(p_last_standard_process_date, p_actual_termination_date))
520: AND p_final_process_date > NVL(p_last_standard_process_date, p_actual_termination_date))
521: THEN
522: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
523: hr_utility.raise_error;
524: END IF;
525: END IF;
526: --
519: IF ((per_pds_shd.g_old_rec.final_process_date = NVL(p_last_standard_process_date, p_actual_termination_date))
520: AND p_final_process_date > NVL(p_last_standard_process_date, p_actual_termination_date))
521: THEN
522: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
523: hr_utility.raise_error;
524: END IF;
525: END IF;
526: --
527: -- 115.36 (START)
526: --
527: -- 115.36 (START)
528: --
529: --
530: hr_utility.set_location(l_proc, 25);
531: --
532: IF per_pds_shd.g_old_rec.final_process_date IS NOT NULL
533: AND p_final_process_date IS NULL
534: THEN
532: IF per_pds_shd.g_old_rec.final_process_date IS NOT NULL
533: AND p_final_process_date IS NULL
534: THEN
535: --
536: hr_utility.set_location(l_proc, 26);
537: --
538: IF (per_pds_shd.g_old_rec.final_process_date = per_pds_shd.g_old_rec.actual_termination_date)
539: THEN
540: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
536: hr_utility.set_location(l_proc, 26);
537: --
538: IF (per_pds_shd.g_old_rec.final_process_date = per_pds_shd.g_old_rec.actual_termination_date)
539: THEN
540: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
541: hr_utility.raise_error;
542: END IF;
543: END IF;
544: --
537: --
538: IF (per_pds_shd.g_old_rec.final_process_date = per_pds_shd.g_old_rec.actual_termination_date)
539: THEN
540: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
541: hr_utility.raise_error;
542: END IF;
543: END IF;
544: --
545: -- 115.36 (END)
544: --
545: -- 115.36 (END)
546: --
547: --
548: hr_utility.set_location(l_proc, 30);
549: --
550: -- if FPD is changing and old FPD > new FPD then raise an error if new FPD
551: -- < start date of next-latest PDS and old FPD >= start date of next-latest
552: -- PDS. In effect, check that a PDS overlap is not being updated to an gap.
555: AND p_final_process_date IS NOT NULL
556: AND (p_final_process_date < per_pds_shd.g_old_rec.final_process_date)
557: THEN
558: -- Get the next latest PDS is one exists
559: hr_utility.set_location(l_proc, 33);
560: --
561: OPEN csr_next_pds;
562: FETCH csr_next_pds INTO lr_next_pds;
563: IF csr_next_pds%FOUND THEN
561: OPEN csr_next_pds;
562: FETCH csr_next_pds INTO lr_next_pds;
563: IF csr_next_pds%FOUND THEN
564: -- Check if PDS overlap is being updated to a gap
565: hr_utility.set_location(l_proc, 35);
566: --
567: IF ((per_pds_shd.g_old_rec.final_process_date >= lr_next_pds.date_start)
568: AND p_final_process_date < lr_next_pds.date_start)
569: THEN
567: IF ((per_pds_shd.g_old_rec.final_process_date >= lr_next_pds.date_start)
568: AND p_final_process_date < lr_next_pds.date_start)
569: THEN
570: CLOSE csr_next_pds;
571: hr_utility.set_message(800,'HR_449744_EMP_FPD_PDS');
572: hr_utility.raise_error;
573: END IF;
574: END IF;
575: CLOSE csr_next_pds;
568: AND p_final_process_date < lr_next_pds.date_start)
569: THEN
570: CLOSE csr_next_pds;
571: hr_utility.set_message(800,'HR_449744_EMP_FPD_PDS');
572: hr_utility.raise_error;
573: END IF;
574: END IF;
575: CLOSE csr_next_pds;
576: END IF;
574: END IF;
575: CLOSE csr_next_pds;
576: END IF;
577: --
578: hr_utility.set_location(l_proc, 40);
579: --
580: -- if FPD is changing and old FPD > new FPD then raise an error if the new
581: -- FPD <= NVL(LSPD,ATD)
582: --
584: AND p_final_process_date IS NOT NULL
585: AND (p_final_process_date < per_pds_shd.g_old_rec.final_process_date)
586: AND (p_final_process_date <= NVL(p_last_standard_process_date, p_actual_termination_date))
587: THEN
588: hr_utility.set_message(800,'HR_449741_EMP_FPD_ATD');
589: hr_utility.raise_error;
590: END IF;
591: --
592: hr_utility.set_location(l_proc, 45);
585: AND (p_final_process_date < per_pds_shd.g_old_rec.final_process_date)
586: AND (p_final_process_date <= NVL(p_last_standard_process_date, p_actual_termination_date))
587: THEN
588: hr_utility.set_message(800,'HR_449741_EMP_FPD_ATD');
589: hr_utility.raise_error;
590: END IF;
591: --
592: hr_utility.set_location(l_proc, 45);
593: --
588: hr_utility.set_message(800,'HR_449741_EMP_FPD_ATD');
589: hr_utility.raise_error;
590: END IF;
591: --
592: hr_utility.set_location(l_proc, 45);
593: --
594: -- if FPD is changing and old FPD > new FPD then raise an error if the new
595: -- FPD <= Prev PDS FPD
596: --
603: FETCH csr_prev_pds_fpd INTO l_prev_pds_fpd;
604: IF csr_prev_pds_fpd%FOUND THEN
605: IF p_final_process_date <= l_prev_pds_fpd THEN
606: CLOSE csr_prev_pds_fpd;
607: hr_utility.set_message(800,'HR_449761_FPD_GT_PREV_PDS');
608: hr_utility.raise_error;
609: END IF;
610: END IF;
611: CLOSE csr_prev_pds_fpd;
604: IF csr_prev_pds_fpd%FOUND THEN
605: IF p_final_process_date <= l_prev_pds_fpd THEN
606: CLOSE csr_prev_pds_fpd;
607: hr_utility.set_message(800,'HR_449761_FPD_GT_PREV_PDS');
608: hr_utility.raise_error;
609: END IF;
610: END IF;
611: CLOSE csr_prev_pds_fpd;
612: END IF;
610: END IF;
611: CLOSE csr_prev_pds_fpd;
612: END IF;
613: --
614: hr_utility.set_location(l_proc, 50);
615: --
616: -- if FPD is changing and the new FPD is null, then raise an error is a
617: -- later PDS exists with FPD not null.
618: --
619: IF per_pds_shd.g_old_rec.final_process_date IS NOT NULL
620: AND p_final_process_date IS NULL
621: THEN
622: -- Check for a later PDS with FPD not null
623: hr_utility.set_location(l_proc, 53);
624: --
625: OPEN csr_later_fpd;
626: FETCH csr_later_fpd INTO l_later_fpd;
627: IF csr_later_fpd%FOUND THEN
625: OPEN csr_later_fpd;
626: FETCH csr_later_fpd INTO l_later_fpd;
627: IF csr_later_fpd%FOUND THEN
628: CLOSE csr_later_fpd;
629: hr_utility.set_message(800,'HR_449743_EMP_FPD_REQD');
630: hr_utility.raise_error;
631: END IF;
632: CLOSE csr_later_fpd;
633: END IF;
626: FETCH csr_later_fpd INTO l_later_fpd;
627: IF csr_later_fpd%FOUND THEN
628: CLOSE csr_later_fpd;
629: hr_utility.set_message(800,'HR_449743_EMP_FPD_REQD');
630: hr_utility.raise_error;
631: END IF;
632: CLOSE csr_later_fpd;
633: END IF;
634: --
634: --
635: -- 115.30 (END)
636: --
637: --
638: hr_utility.set_location(l_proc, 60);
639: if p_actual_termination_date is null
640: then
641: --
642: if not (p_final_process_date is null)
642: if not (p_final_process_date is null)
643: then
644: -- CHK_FINAL_PROCESS_DATE / d
645: --
646: hr_utility.set_message(801,'HR_7503_PDS_INV_FP_DT_BLANK');
647: hr_utility.raise_error;
648: end if;
649: --
650: end if;
643: then
644: -- CHK_FINAL_PROCESS_DATE / d
645: --
646: hr_utility.set_message(801,'HR_7503_PDS_INV_FP_DT_BLANK');
647: hr_utility.raise_error;
648: end if;
649: --
650: end if;
651: --
648: end if;
649: --
650: end if;
651: --
652: hr_utility.set_location(l_proc, 7);
653: --
654: if p_last_standard_process_date is null
655: then
656: --
653: --
654: if p_last_standard_process_date is null
655: then
656: --
657: hr_utility.set_location(l_proc, 8);
658: --
659: if not (nvl(p_final_process_date, hr_api.g_eot) >=
660: nvl(p_actual_termination_date, hr_api.g_eot))
661: then
660: nvl(p_actual_termination_date, hr_api.g_eot))
661: then
662: -- CHK_FINAL_PROCESS_DATE / f
663: --
664: hr_utility.set_message(801,'HR_7963_PDS_INV_FP_BEFORE_ATT');
665: hr_utility.raise_error;
666: end if;
667: else
668: --
661: then
662: -- CHK_FINAL_PROCESS_DATE / f
663: --
664: hr_utility.set_message(801,'HR_7963_PDS_INV_FP_BEFORE_ATT');
665: hr_utility.raise_error;
666: end if;
667: else
668: --
669: -- 70.1 change a start.
675: --
676: then
677: -- CHK_FINAL_PROCESS_DATE / c
678: --
679: hr_utility.set_message(801,'HR_7504_PDS_INV_FP_LSP_DT');
680: hr_utility.raise_error;
681: end if;
682: end if;
683: --
676: then
677: -- CHK_FINAL_PROCESS_DATE / c
678: --
679: hr_utility.set_message(801,'HR_7504_PDS_INV_FP_LSP_DT');
680: hr_utility.raise_error;
681: end if;
682: end if;
683: --
684: -- 70.3 change d end.
682: end if;
683: --
684: -- 70.3 change d end.
685: --
686: hr_utility.set_location(l_proc, 8);
687: --
688: -- 70.4 change a start.
689: --
690: -- 70.4 change a end.
691: --
692: end if;
693: else
694: -- Not updating => inserting.
695: hr_utility.set_location(l_proc, 12);
696: --
697: if not (p_final_process_date is null)
698: then
699: -- CHK_FINAL_PROCESS_DATE / e
697: if not (p_final_process_date is null)
698: then
699: -- CHK_FINAL_PROCESS_DATE / e
700: --
701: hr_utility.set_message(801,'HR_7496_PDS_INV_FP_DT');
702: hr_utility.raise_error;
703: end if;
704: --
705: hr_utility.set_location(l_proc, 13);
698: then
699: -- CHK_FINAL_PROCESS_DATE / e
700: --
701: hr_utility.set_message(801,'HR_7496_PDS_INV_FP_DT');
702: hr_utility.raise_error;
703: end if;
704: --
705: hr_utility.set_location(l_proc, 13);
706: end if;
701: hr_utility.set_message(801,'HR_7496_PDS_INV_FP_DT');
702: hr_utility.raise_error;
703: end if;
704: --
705: hr_utility.set_location(l_proc, 13);
706: end if;
707: --
708: hr_utility.set_location(' Leaving:'|| l_proc, 14);
709: end chk_final_process_date;
704: --
705: hr_utility.set_location(l_proc, 13);
706: end if;
707: --
708: hr_utility.set_location(' Leaving:'|| l_proc, 14);
709: end chk_final_process_date;
710: --
711: -- ---------------------------------------------------------------------------
712: -- |-------------------< chk_last_standard_process_date >--------------------|
776: where bus.business_group_id = p_business_group_id;
777: --
778: --
779: begin
780: hr_utility.set_location('Entering:'|| l_proc, 1);
781: --
782: -- Check mandatory parameters have been set
783: --
784: hr_api.mandatory_arg_error
786: ,p_argument => 'date_start'
787: ,p_argument_value => p_date_start
788: );
789: --
790: hr_utility.set_location(l_proc, 10);
791: --
792: -- Check to see if record updated.
793: --
794: l_api_updating := per_pds_shd.api_updating
794: l_api_updating := per_pds_shd.api_updating
795: (p_period_of_service_id => p_period_of_service_id
796: ,p_object_version_number => p_object_version_number);
797: --
798: hr_utility.set_location(l_proc, 20);
799: --
800: if l_api_updating
801: then
802: --
803: if nvl(per_pds_shd.g_old_rec.last_standard_process_date, hr_api.g_date) <>
804: nvl(p_last_standard_process_date, hr_api.g_date)
805: then
806: --
807: hr_utility.set_location(l_proc, 30);
808: --
809: if per_pds_shd.g_old_rec.last_standard_process_date is not null
810: and p_last_standard_process_date is not null
811: then
810: and p_last_standard_process_date is not null
811: then
812: -- CHK_LAST_STANDARD_PROCESS_DATE / i
813: --
814: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
815: hr_utility.raise_error;
816: end if;
817: --
818: hr_utility.set_location(l_proc, 40);
811: then
812: -- CHK_LAST_STANDARD_PROCESS_DATE / i
813: --
814: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
815: hr_utility.raise_error;
816: end if;
817: --
818: hr_utility.set_location(l_proc, 40);
819: --
814: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
815: hr_utility.raise_error;
816: end if;
817: --
818: hr_utility.set_location(l_proc, 40);
819: --
820: open csr_get_legislation_code;
821: fetch csr_get_legislation_code
822: into l_legislation_code;
825: then
826: --
827: close csr_get_legislation_code;
828: --
829: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
830: hr_utility.set_message_token('PROCEDURE', l_proc);
831: hr_utility.set_message_token('STEP', '5');
832: hr_utility.raise_error;
833: end if;
826: --
827: close csr_get_legislation_code;
828: --
829: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
830: hr_utility.set_message_token('PROCEDURE', l_proc);
831: hr_utility.set_message_token('STEP', '5');
832: hr_utility.raise_error;
833: end if;
834: --
827: close csr_get_legislation_code;
828: --
829: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
830: hr_utility.set_message_token('PROCEDURE', l_proc);
831: hr_utility.set_message_token('STEP', '5');
832: hr_utility.raise_error;
833: end if;
834: --
835: close csr_get_legislation_code;
828: --
829: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
830: hr_utility.set_message_token('PROCEDURE', l_proc);
831: hr_utility.set_message_token('STEP', '5');
832: hr_utility.raise_error;
833: end if;
834: --
835: close csr_get_legislation_code;
836: --
833: end if;
834: --
835: close csr_get_legislation_code;
836: --
837: hr_utility.set_location(l_proc, 50);
838: --
839: -- Bug 1711085. VS. 27-Mar-2001. Commented out the code that disables
840: -- last_standard_process for US legislature.
841: /* if l_legislation_code = 'US'
840: -- last_standard_process for US legislature.
841: /* if l_legislation_code = 'US'
842: then
843: --
844: hr_utility.set_location(l_proc, 60);
845: --
846: if not (p_last_standard_process_date is null)
847: then
848: -- CHK_LAST_STANDARD_PROCESS_DATE / g
846: if not (p_last_standard_process_date is null)
847: then
848: -- CHK_LAST_STANDARD_PROCESS_DATE / g
849: --
850: hr_utility.set_message(801,'HR_7958_PDS_INV_US_LSP_BLANK');
851: hr_utility.raise_error;
852: end if;
853: end if;
854: */
847: then
848: -- CHK_LAST_STANDARD_PROCESS_DATE / g
849: --
850: hr_utility.set_message(801,'HR_7958_PDS_INV_US_LSP_BLANK');
851: hr_utility.raise_error;
852: end if;
853: end if;
854: */
855: --
859: if not (p_last_standard_process_date is null)
860: then
861: -- CHK_LAST_STANDARD_PROCESS_DATE / f
862: --
863: hr_utility.set_message(801,'HR_7497_PDS_INV_LSP_DT_BLANK');
864: hr_utility.raise_error;
865: end if;
866: --
867: end if;
860: then
861: -- CHK_LAST_STANDARD_PROCESS_DATE / f
862: --
863: hr_utility.set_message(801,'HR_7497_PDS_INV_LSP_DT_BLANK');
864: hr_utility.raise_error;
865: end if;
866: --
867: end if;
868: --
865: end if;
866: --
867: end if;
868: --
869: hr_utility.set_location(l_proc, 80);
870: --
871: -- 70.1 change a start.
872: --
873: if not (nvl(p_last_standard_process_date, hr_api.g_eot) >=
877: --
878: then
879: -- CHK_LAST_STANDARD_PROCESS_DATE / c
880: --
881: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
882: hr_utility.raise_error;
883: end if;
884: --
885: hr_utility.set_location(l_proc, 90);
878: then
879: -- CHK_LAST_STANDARD_PROCESS_DATE / c
880: --
881: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
882: hr_utility.raise_error;
883: end if;
884: --
885: hr_utility.set_location(l_proc, 90);
886: --
881: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
882: hr_utility.raise_error;
883: end if;
884: --
885: hr_utility.set_location(l_proc, 90);
886: --
887: end if;
888: --
889: -- 70.16 change h start.
893: and (p_actual_termination_date is not null)
894: and l_legislation_code <> 'US'
895: --
896: then
897: hr_utility.set_location(l_proc, 100);
898: --
899: if p_last_standard_process_date is null
900: --
901: then
903: -- Must also be set to not null value if actual_termination_date
904: -- updated to not null value.
905: -- CHK_LAST_STANDARD_PROCESS_DATE / h
906: --
907: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
908: hr_utility.raise_error;
909: end if;
910: end if;
911: --
904: -- updated to not null value.
905: -- CHK_LAST_STANDARD_PROCESS_DATE / h
906: --
907: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
908: hr_utility.raise_error;
909: end if;
910: end if;
911: --
912: -- 70.16 change h end.
914: else
915: --
916: -- Not updating => inserting.
917: --
918: hr_utility.set_location(l_proc, 110);
919: --
920: if not (p_last_standard_process_date is null)
921: then
922: -- CHK_LAST_STANDARD_PROCESS_DATE / e
920: if not (p_last_standard_process_date is null)
921: then
922: -- CHK_LAST_STANDARD_PROCESS_DATE / e
923: --
924: hr_utility.set_message(801,'HR_7484_PDS_INV_LSP_DT');
925: hr_utility.raise_error;
926: end if;
927: --
928: hr_utility.set_location(l_proc, 120);
921: then
922: -- CHK_LAST_STANDARD_PROCESS_DATE / e
923: --
924: hr_utility.set_message(801,'HR_7484_PDS_INV_LSP_DT');
925: hr_utility.raise_error;
926: end if;
927: --
928: hr_utility.set_location(l_proc, 120);
929: end if;
924: hr_utility.set_message(801,'HR_7484_PDS_INV_LSP_DT');
925: hr_utility.raise_error;
926: end if;
927: --
928: hr_utility.set_location(l_proc, 120);
929: end if;
930: --
931: hr_utility.set_location(' Leaving:'|| l_proc, 200);
932: end chk_last_standard_process_date;
927: --
928: hr_utility.set_location(l_proc, 120);
929: end if;
930: --
931: hr_utility.set_location(' Leaving:'|| l_proc, 200);
932: end chk_last_standard_process_date;
933: --
934: -- 70.3 change c end.
935: --
985: from per_business_groups bus
986: where bus.business_group_id = p_business_group_id;
987: --
988: begin
989: hr_utility.set_location('Entering:'|| l_proc, 1);
990: --
991: hr_utility.set_location(l_proc, 10);
992: --
993: -- Check to see if record updated.
987: --
988: begin
989: hr_utility.set_location('Entering:'|| l_proc, 1);
990: --
991: hr_utility.set_location(l_proc, 10);
992: --
993: -- Check to see if record updated.
994: --
995: l_api_updating := per_pds_shd.api_updating
995: l_api_updating := per_pds_shd.api_updating
996: (p_period_of_service_id => p_period_of_service_id
997: ,p_object_version_number => p_object_version_number);
998: --
999: hr_utility.set_location(l_proc, 20);
1000: --
1001: -- Only proceed with validation if :
1002: -- a) The current g_old_rec is current and
1003: -- b) The value for actual_termination_date or last_standard_process_date
1011: <> nvl(p_last_standard_process_date, hr_api.g_date))))
1012: or
1013: NOT l_api_updating then
1014: --
1015: hr_utility.set_location(l_proc, 30);
1016: --
1017: open csr_get_legislation_code;
1018: fetch csr_get_legislation_code
1019: into l_legislation_code;
1022: then
1023: --
1024: close csr_get_legislation_code;
1025: --
1026: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1027: hr_utility.set_message_token('PROCEDURE', l_proc);
1028: hr_utility.set_message_token('STEP', '5');
1029: hr_utility.raise_error;
1030: end if;
1023: --
1024: close csr_get_legislation_code;
1025: --
1026: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1027: hr_utility.set_message_token('PROCEDURE', l_proc);
1028: hr_utility.set_message_token('STEP', '5');
1029: hr_utility.raise_error;
1030: end if;
1031: --
1024: close csr_get_legislation_code;
1025: --
1026: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1027: hr_utility.set_message_token('PROCEDURE', l_proc);
1028: hr_utility.set_message_token('STEP', '5');
1029: hr_utility.raise_error;
1030: end if;
1031: --
1032: close csr_get_legislation_code;
1025: --
1026: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1027: hr_utility.set_message_token('PROCEDURE', l_proc);
1028: hr_utility.set_message_token('STEP', '5');
1029: hr_utility.raise_error;
1030: end if;
1031: --
1032: close csr_get_legislation_code;
1033: --
1030: end if;
1031: --
1032: close csr_get_legislation_code;
1033: --
1034: hr_utility.set_location(l_proc, 50);
1035: --
1036: if l_legislation_code <> 'US' then
1037: --
1038: -- Check combination when either actual_termination_date or
1041: if (per_pds_shd.g_old_rec.actual_termination_date is null
1042: and p_actual_termination_date is not null)
1043: and p_last_standard_process_date is null
1044: then
1045: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
1046: hr_utility.raise_error;
1047: end if;
1048: --
1049: end if;
1042: and p_actual_termination_date is not null)
1043: and p_last_standard_process_date is null
1044: then
1045: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
1046: hr_utility.raise_error;
1047: end if;
1048: --
1049: end if;
1050: --
1049: end if;
1050: --
1051: end if;
1052: --
1053: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1054: end chk_at_date_lsp_date; */
1055: --
1056: -- ---------------------------------------------------------------------------
1057: -- |-------------------------< chk_leaving_reason >--------------------------|
1097: l_proc varchar2(72) := g_package||'chk_leaving_reason';
1098: l_rec per_pds_shd.g_rec_type;
1099: --
1100: begin
1101: hr_utility.set_location('Entering:'|| l_proc, 1);
1102: --
1103: hr_api.mandatory_arg_error
1104: (p_api_name => l_proc
1105: ,p_argument => 'effective date'
1111: l_api_updating := per_pds_shd.api_updating
1112: (p_period_of_service_id => p_period_of_service_id
1113: ,p_object_version_number => p_object_version_number);
1114: --
1115: hr_utility.set_location(l_proc, 2);
1116: --
1117: if l_api_updating
1118: and p_leaving_reason is not null
1119: then
1130: ,p_lookup_type => 'LEAV_REAS'
1131: ,p_lookup_code => p_leaving_reason
1132: ) then
1133: -- Error - Invalid Leaving Reason
1134: hr_utility.set_location(l_proc, 3);
1135: hr_utility.set_message(801,'HR_7485_PDS_INV_LR');
1136: hr_utility.raise_error;
1137: end if;
1138: --
1131: ,p_lookup_code => p_leaving_reason
1132: ) then
1133: -- Error - Invalid Leaving Reason
1134: hr_utility.set_location(l_proc, 3);
1135: hr_utility.set_message(801,'HR_7485_PDS_INV_LR');
1136: hr_utility.raise_error;
1137: end if;
1138: --
1139: end if;
1132: ) then
1133: -- Error - Invalid Leaving Reason
1134: hr_utility.set_location(l_proc, 3);
1135: hr_utility.set_message(801,'HR_7485_PDS_INV_LR');
1136: hr_utility.raise_error;
1137: end if;
1138: --
1139: end if;
1140: --
1145: if not (p_leaving_reason is null)
1146: then
1147: -- CHK_LEAVING_REASON / b
1148: --
1149: hr_utility.set_message(801,'HR_7489_PDS_INV_LR_BLANK');
1150: hr_utility.raise_error;
1151: end if;
1152: --
1153: end if;
1146: then
1147: -- CHK_LEAVING_REASON / b
1148: --
1149: hr_utility.set_message(801,'HR_7489_PDS_INV_LR_BLANK');
1150: hr_utility.raise_error;
1151: end if;
1152: --
1153: end if;
1154: --
1151: end if;
1152: --
1153: end if;
1154: --
1155: hr_utility.set_location(' Leaving:'|| l_proc, 3);
1156: end chk_leaving_reason;
1157: --
1158: -- ---------------------------------------------------------------------------
1159: -- |--------------------< chk_notified_termination_date >--------------------|
1199: l_api_updating boolean;
1200: l_proc varchar2(72) := g_package||'chk_notified_termination_date';
1201: --
1202: begin
1203: hr_utility.set_location('Entering:'|| l_proc, 1);
1204: --
1205: -- Check mandatory parameters have been set
1206: --
1207: hr_api.mandatory_arg_error
1209: ,p_argument => 'date_start'
1210: ,p_argument_value => p_date_start
1211: );
1212: --
1213: hr_utility.set_location(l_proc, 2);
1214: --
1215: -- 70.1 change a start.
1216: --
1217: if not (nvl(p_notified_termination_date, hr_api.g_eot) >=
1221: --
1222: then
1223: -- CHK_NOTIFIED_TERMINATION_DATE / b
1224: --
1225: hr_utility.set_message(801,'HR_7486_PDS_INV_NFT_DT_ST');
1226: hr_utility.raise_error;
1227: end if;
1228: --
1229: hr_utility.set_location(l_proc, 5);
1222: then
1223: -- CHK_NOTIFIED_TERMINATION_DATE / b
1224: --
1225: hr_utility.set_message(801,'HR_7486_PDS_INV_NFT_DT_ST');
1226: hr_utility.raise_error;
1227: end if;
1228: --
1229: hr_utility.set_location(l_proc, 5);
1230: --
1225: hr_utility.set_message(801,'HR_7486_PDS_INV_NFT_DT_ST');
1226: hr_utility.raise_error;
1227: end if;
1228: --
1229: hr_utility.set_location(l_proc, 5);
1230: --
1231: -- Check to see if record updated.
1232: --
1233: l_api_updating := per_pds_shd.api_updating
1238: then
1239: --
1240: -- Not updating => inserting
1241: --
1242: hr_utility.set_location(l_proc, 6);
1243: --
1244: if not (p_notified_termination_date is null)
1245: then
1246: -- CHK_NOTIFIED_TERMINATION_DATE / a
1244: if not (p_notified_termination_date is null)
1245: then
1246: -- CHK_NOTIFIED_TERMINATION_DATE / a
1247: --
1248: hr_utility.set_message(801,'HR_7487_PDS_INV_NFT_DT_BLANK');
1249: hr_utility.raise_error;
1250: end if;
1251: --
1252: end if;
1245: then
1246: -- CHK_NOTIFIED_TERMINATION_DATE / a
1247: --
1248: hr_utility.set_message(801,'HR_7487_PDS_INV_NFT_DT_BLANK');
1249: hr_utility.raise_error;
1250: end if;
1251: --
1252: end if;
1253: --
1250: end if;
1251: --
1252: end if;
1253: --
1254: hr_utility.set_location(' Leaving:'|| l_proc, 7);
1255: end chk_notified_termination_date;
1256: --
1257: -- ---------------------------------------------------------------------------
1258: -- |---------------------------< chk_person_id >----------------------------|
1294: l_proc varchar2(72) := g_package||'chk_person_id';
1295: l_rec per_pds_shd.g_rec_type;
1296: --
1297: begin
1298: hr_utility.set_location('Entering:'|| l_proc, 1);
1299: --
1300: -- CHK_PERSON_ID / a
1301: --
1302: hr_api.mandatory_arg_error
1303: (p_api_name => l_proc
1304: ,p_argument => 'person_id'
1305: ,p_argument_value => p_person_id
1306: );
1307: hr_utility.set_location(l_proc, 2);
1308: --
1309: if not (p_person_id <>
1310: nvl(p_termination_accepted_person, hr_api.g_number))
1311: then
1310: nvl(p_termination_accepted_person, hr_api.g_number))
1311: then
1312: -- CHK_PERSON_ID / c
1313: --
1314: hr_utility.set_message(801,'HR_7488_PDS_INV_TAP_ID');
1315: hr_utility.raise_error;
1316: end if;
1317: --
1318: hr_utility.set_location(' Leaving:'|| l_proc, 4);
1311: then
1312: -- CHK_PERSON_ID / c
1313: --
1314: hr_utility.set_message(801,'HR_7488_PDS_INV_TAP_ID');
1315: hr_utility.raise_error;
1316: end if;
1317: --
1318: hr_utility.set_location(' Leaving:'|| l_proc, 4);
1319: end chk_person_id;
1314: hr_utility.set_message(801,'HR_7488_PDS_INV_TAP_ID');
1315: hr_utility.raise_error;
1316: end if;
1317: --
1318: hr_utility.set_location(' Leaving:'|| l_proc, 4);
1319: end chk_person_id;
1320: --
1321: -- ---------------------------------------------------------------------------
1322: -- |-----------------------< chk_person_id_date_start >----------------------|
1374: and pt.person_type_id = p.person_type_id
1375: and pt.system_person_type in ('EMP', 'EMP_APL');
1376: --
1377: begin
1378: hr_utility.set_location('Entering:'|| l_proc, 1);
1379: --
1380: -- Check mandatory parameters have been set
1381: --
1382: hr_api.mandatory_arg_error
1383: (p_api_name => l_proc
1384: ,p_argument => 'person_id'
1385: ,p_argument_value => p_person_id
1386: );
1387: hr_utility.set_location(l_proc, 4);
1388: --
1389: hr_api.mandatory_arg_error
1390: (p_api_name => l_proc
1391: ,p_argument => 'date_start'
1390: (p_api_name => l_proc
1391: ,p_argument => 'date_start'
1392: ,p_argument_value => p_date_start
1393: );
1394: hr_utility.set_location(l_proc, 5);
1395: --
1396: -- Check to see if record updated.
1397: --
1398: l_api_updating := per_pds_shd.api_updating
1404: --
1405: -- Check that the Person ID and Date Start combination does not exist
1406: -- on PER_PERIODS_OF_SERVICE
1407: --
1408: hr_utility.set_location(l_proc, 6);
1409: --
1410: open csr_new_pers_date;
1411: --
1412: fetch csr_new_pers_date into l_exists;
1415: then
1416: -- CHK_PERSON_ID_DATE_START / a
1417: --
1418: close csr_new_pers_date;
1419: hr_utility.set_message(801, 'HR_6796_EMP_POS_EXISTS');
1420: hr_utility.raise_error;
1421: end if;
1422: --
1423: close csr_new_pers_date;
1416: -- CHK_PERSON_ID_DATE_START / a
1417: --
1418: close csr_new_pers_date;
1419: hr_utility.set_message(801, 'HR_6796_EMP_POS_EXISTS');
1420: hr_utility.raise_error;
1421: end if;
1422: --
1423: close csr_new_pers_date;
1424: end if;
1422: --
1423: close csr_new_pers_date;
1424: end if;
1425: --
1426: hr_utility.set_location(l_proc, 7);
1427: --
1428: -- Check that the Person ID and Date Start combination exists
1429: -- on PER_ALL_PEOPLE_F for system_person_type of 'EMP' or 'EMP_APL'.
1430: --
1436: then
1437: -- CHK_PERSON_ID_DATE_START / b
1438: --
1439: close csr_valid_pers_date;
1440: hr_utility.set_message(801, 'HR_7490_PDS_INV_P_DT_ST');
1441: hr_utility.raise_error;
1442: end if;
1443: --
1444: close csr_valid_pers_date;
1437: -- CHK_PERSON_ID_DATE_START / b
1438: --
1439: close csr_valid_pers_date;
1440: hr_utility.set_message(801, 'HR_7490_PDS_INV_P_DT_ST');
1441: hr_utility.raise_error;
1442: end if;
1443: --
1444: close csr_valid_pers_date;
1445: --
1442: end if;
1443: --
1444: close csr_valid_pers_date;
1445: --
1446: hr_utility.set_location(' Leaving:'|| l_proc, 9);
1447: end chk_person_id_date_start;
1448: --
1449: -- ---------------------------------------------------------------------------
1450: -- |-------------------< chk_projected_termination_date >--------------------|
1490: l_api_updating boolean;
1491: l_proc varchar2(72) := g_package||'chk_projected_termination_date';
1492: --
1493: begin
1494: hr_utility.set_location('Entering:'|| l_proc, 1);
1495: --
1496: -- Check mandatory parameters have been set
1497: --
1498: hr_api.mandatory_arg_error
1500: ,p_argument => 'date_start'
1501: ,p_argument_value => p_date_start
1502: );
1503: --
1504: hr_utility.set_location(l_proc, 2);
1505: --
1506: -- 70.1 change a start.
1507: --
1508: if not (nvl(p_projected_termination_date, hr_api.g_eot) >=
1512: --
1513: then
1514: -- CHK_PROJECTED_TERMINATION_DATE / b
1515: --
1516: hr_utility.set_message(801,'HR_7491_PDS_INV_PJT_DT_ST');
1517: hr_utility.raise_error;
1518: end if;
1519: --
1520: hr_utility.set_location(l_proc, 5);
1513: then
1514: -- CHK_PROJECTED_TERMINATION_DATE / b
1515: --
1516: hr_utility.set_message(801,'HR_7491_PDS_INV_PJT_DT_ST');
1517: hr_utility.raise_error;
1518: end if;
1519: --
1520: hr_utility.set_location(l_proc, 5);
1521: --
1516: hr_utility.set_message(801,'HR_7491_PDS_INV_PJT_DT_ST');
1517: hr_utility.raise_error;
1518: end if;
1519: --
1520: hr_utility.set_location(l_proc, 5);
1521: --
1522: -- Check to see if record updated.
1523: --
1524: l_api_updating := per_pds_shd.api_updating
1527: --
1528: if not l_api_updating
1529: then
1530: --
1531: hr_utility.set_location(l_proc, 6);
1532: --
1533: if not (p_projected_termination_date is null)
1534: then
1535: -- CHK_PROJECTED_TERMINATION_DATE / a
1533: if not (p_projected_termination_date is null)
1534: then
1535: -- CHK_PROJECTED_TERMINATION_DATE / a
1536: --
1537: hr_utility.set_message(801,'HR_7499_PDS_INV_PJT_DT_BLANK');
1538: hr_utility.raise_error;
1539: end if;
1540: --
1541: end if;
1534: then
1535: -- CHK_PROJECTED_TERMINATION_DATE / a
1536: --
1537: hr_utility.set_message(801,'HR_7499_PDS_INV_PJT_DT_BLANK');
1538: hr_utility.raise_error;
1539: end if;
1540: --
1541: end if;
1542: --
1539: end if;
1540: --
1541: end if;
1542: --
1543: hr_utility.set_location(' Leaving:'|| l_proc, 7);
1544: end chk_projected_termination_date;
1545: --
1546: -- ---------------------------------------------------------------------------
1547: -- |-------------------< chk_termination_accepted_pers >---------------------|
1606: --
1607: -- Bug# 2810608 End here
1608: --
1609: begin
1610: hr_utility.set_location('Entering:'|| l_proc, 1);
1611: --
1612: -- Check mandatory parameters have been set
1613: --
1614: hr_api.mandatory_arg_error
1616: ,p_argument => 'person_id'
1617: ,p_argument_value => p_person_id
1618: );
1619: --
1620: hr_utility.set_location(l_proc, 5);
1621: --
1622: -- Check to see if record updated.
1623: --
1624: l_api_updating := per_pds_shd.api_updating
1638: --
1639: if (nvl(p_termination_accepted_person, hr_api.g_number) =
1640: per_pds_shd.g_old_rec.person_id)
1641: then
1642: hr_utility.set_message(801,'HR_7488_PDS_INV_TAP_ID');
1643: hr_utility.raise_error;
1644: end if;
1645: --
1646: hr_utility.set_location(l_proc, 7);
1639: if (nvl(p_termination_accepted_person, hr_api.g_number) =
1640: per_pds_shd.g_old_rec.person_id)
1641: then
1642: hr_utility.set_message(801,'HR_7488_PDS_INV_TAP_ID');
1643: hr_utility.raise_error;
1644: end if;
1645: --
1646: hr_utility.set_location(l_proc, 7);
1647: --
1642: hr_utility.set_message(801,'HR_7488_PDS_INV_TAP_ID');
1643: hr_utility.raise_error;
1644: end if;
1645: --
1646: hr_utility.set_location(l_proc, 7);
1647: --
1648: open csr_valid_term_person;
1649: fetch csr_valid_term_person into l_exists;
1650: --
1652: --
1653: -- CHK_TERMINATION_ACCEPTED_PERSON_ID / a
1654: --
1655: close csr_valid_term_person;
1656: hr_utility.set_message(801,'HR_7500_PDS_INV_TAP_ID');
1657: hr_utility.raise_error;
1658: end if;
1659: --
1660: close csr_valid_term_person;
1653: -- CHK_TERMINATION_ACCEPTED_PERSON_ID / a
1654: --
1655: close csr_valid_term_person;
1656: hr_utility.set_message(801,'HR_7500_PDS_INV_TAP_ID');
1657: hr_utility.raise_error;
1658: end if;
1659: --
1660: close csr_valid_term_person;
1661: --
1658: end if;
1659: --
1660: close csr_valid_term_person;
1661: --
1662: hr_utility.set_location(l_proc, 9);
1663: --
1664: end if;
1665: --
1666: else
1666: else
1667: --
1668: -- Not updating => inserting.
1669: --
1670: hr_utility.set_location(l_proc, 13);
1671: --
1672: if not (p_termination_accepted_person is null)
1673: then
1674: -- CHK_TERMINATION_ACCEPTED_PERSON_ID / c
1672: if not (p_termination_accepted_person is null)
1673: then
1674: -- CHK_TERMINATION_ACCEPTED_PERSON_ID / c
1675: --
1676: hr_utility.set_message(801,'HR_7501_PDS_INV_TAP_BLANK');
1677: hr_utility.raise_error;
1678: end if;
1679: --
1680: end if;
1673: then
1674: -- CHK_TERMINATION_ACCEPTED_PERSON_ID / c
1675: --
1676: hr_utility.set_message(801,'HR_7501_PDS_INV_TAP_BLANK');
1677: hr_utility.raise_error;
1678: end if;
1679: --
1680: end if;
1681: --
1678: end if;
1679: --
1680: end if;
1681: --
1682: hr_utility.set_location(' Leaving:'|| l_proc, 15);
1683: end chk_termination_accepted_pers;
1684: --
1685: -- ----------------------------------------------------------------------------
1686: -- |----------------------< check_non_updateable_args >-----------------------|
1717: l_error exception;
1718: l_argument varchar2(30);
1719: --
1720: Begin
1721: hr_utility.set_location('Entering:'||l_proc, 5);
1722: --
1723: -- Only proceed with validation if a row exists for
1724: -- the current record in the HR Schema
1725: --
1727: (p_period_of_service_id => p_rec.period_of_service_id,
1728: p_object_version_number => p_rec.object_version_number)
1729: then
1730: --
1731: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1732: hr_utility.set_message_token('PROCEDURE', l_proc);
1733: hr_utility.set_message_token('STEP', '5');
1734: end if;
1735: --
1728: p_object_version_number => p_rec.object_version_number)
1729: then
1730: --
1731: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1732: hr_utility.set_message_token('PROCEDURE', l_proc);
1733: hr_utility.set_message_token('STEP', '5');
1734: end if;
1735: --
1736: hr_utility.set_location(l_proc, 6);
1729: then
1730: --
1731: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1732: hr_utility.set_message_token('PROCEDURE', l_proc);
1733: hr_utility.set_message_token('STEP', '5');
1734: end if;
1735: --
1736: hr_utility.set_location(l_proc, 6);
1737: --
1732: hr_utility.set_message_token('PROCEDURE', l_proc);
1733: hr_utility.set_message_token('STEP', '5');
1734: end if;
1735: --
1736: hr_utility.set_location(l_proc, 6);
1737: --
1738: if nvl(p_rec.business_group_id, hr_api.g_number) <>
1739: nvl(per_pds_shd.g_old_rec.business_group_id, hr_api.g_number)
1740: then
1743: l_argument := 'business_group_id';
1744: raise l_error;
1745: end if;
1746: --
1747: hr_utility.set_location(l_proc, 7);
1748: --
1749: if nvl(p_rec.period_of_service_id, hr_api.g_number) <>
1750: nvl(per_pds_shd.g_old_rec.period_of_service_id, hr_api.g_number)
1751: then
1754: l_argument := 'period_of_service_id';
1755: raise l_error;
1756: end if;
1757: --
1758: hr_utility.set_location(l_proc, 8);
1759: --
1760: if nvl(p_rec.person_id, hr_api.g_number) <>
1761: nvl(per_pds_shd.g_old_rec.person_id, hr_api.g_number)
1762: then
1765: l_argument := 'person_id';
1766: raise l_error;
1767: end if;
1768: --
1769: hr_utility.set_location(l_proc, 9);
1770: --
1771: exception
1772: when l_error
1773: then
1776: (p_api_name => l_proc
1777: ,p_argument => l_argument);
1778: when others then
1779: raise;
1780: hr_utility.set_location(' Leaving:'||l_proc, 12);
1781: end check_non_updateable_args;
1782: --
1783: -- ---------------------------------------------------------------------------
1784: -- |----------------------------< chk_df >---------------------------------|
1815: l_proc varchar2(72) := g_package||'chk_df';
1816: --
1817: begin
1818: --
1819: hr_utility.set_location('Entering:'||l_proc, 10);
1820: --
1821: -- if inserting and not required to validate flex data
1822: -- then ensure all flex data passed is null
1823: --
1823: --
1824: If ((p_rec.period_of_service_id is null) and
1825: (not p_validate_df_flex)) then
1826: --
1827: hr_utility.set_location(l_proc, 15);
1828: --
1829: If (not ( (p_rec.attribute_category is null) and
1830: (p_rec.attribute1 is null) and
1831: (p_rec.attribute2 is null) and
1847: (p_rec.attribute18 is null) and
1848: (p_rec.attribute19 is null) and
1849: (p_rec.attribute20 is null) ) )
1850: then
1851: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1852: hr_utility.set_message_token('PROCEDURE','chk_df');
1853: hr_utility.set_message_token('STEP',1);
1854: hr_utility.raise_error;
1855: End if;
1848: (p_rec.attribute19 is null) and
1849: (p_rec.attribute20 is null) ) )
1850: then
1851: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1852: hr_utility.set_message_token('PROCEDURE','chk_df');
1853: hr_utility.set_message_token('STEP',1);
1854: hr_utility.raise_error;
1855: End if;
1856: End if;
1849: (p_rec.attribute20 is null) ) )
1850: then
1851: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1852: hr_utility.set_message_token('PROCEDURE','chk_df');
1853: hr_utility.set_message_token('STEP',1);
1854: hr_utility.raise_error;
1855: End if;
1856: End if;
1857: --
1850: then
1851: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1852: hr_utility.set_message_token('PROCEDURE','chk_df');
1853: hr_utility.set_message_token('STEP',1);
1854: hr_utility.raise_error;
1855: End if;
1856: End if;
1857: --
1858: --
1943: ((p_rec.period_of_service_id is null) and
1944: (p_validate_df_flex))
1945: then
1946: --
1947: hr_utility.set_location(l_proc, 20);
1948: --
1949: -- validate flex segment values
1950: --
1951: hr_dflex_utility.ins_or_upd_descflex_attribs(
1994: ,p_attribute20_value => p_rec.attribute20
1995: );
1996: End if;
1997: --
1998: hr_utility.set_location(' Leaving:'||l_proc, 30);
1999: --
2000: end chk_df;
2001: --
2002: -- -----------------------------------------------------------------------
2036: l_proc varchar2(72) := g_package||'chk_ddf';
2037: l_error exception;
2038: --
2039: Begin
2040: hr_utility.set_location('Entering:'||l_proc, 5);
2041: --
2042: -- Check if the row is being inserted or updated and a
2043: -- value has changed
2044: --
2174: );
2175: --
2176: end if;
2177: --
2178: hr_utility.set_location(' Leaving:'||l_proc, 10);
2179: end chk_ddf;
2180: --
2181: -- --------------------------------------------------------------------------- -- ----------------------------------------------------------------------------
2182: -- |---------------------------< insert_validate >----------------------------|
2187: --
2188: l_proc varchar2(72) := g_package||'insert_validate';
2189: --
2190: Begin
2191: hr_utility.set_location('Entering:'||l_proc, 1);
2192: --
2193: -- Call all supporting business operations. Mapping to the appropriate
2194: -- Business Rules in perpds.bru is provided.
2195: --
2200: -- CHK_BUSINESS_GROUP_ID / a,c
2201: --
2202: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
2203: --
2204: hr_utility.set_location(l_proc, 2);
2205: --
2206: --
2207: -- Validate date start
2208: --
2211: -- CHK_DATE_START / a
2212: --
2213: per_pds_bus.chk_date_start(p_date_start => p_rec.date_start);
2214: --
2215: hr_utility.set_location(l_proc, 3);
2216: --
2217: --
2218: -- Validate person id
2219: --
2224: per_pds_bus.chk_person_id
2225: (p_person_id => p_rec.person_id,
2226: p_termination_accepted_person => p_rec.termination_accepted_person_id);
2227: --
2228: hr_utility.set_location(l_proc, 4);
2229: --
2230: --
2231: -- Validate date start
2232: --
2235: -- CHK_DATE_START / a
2236: --
2237: per_pds_bus.chk_date_start(p_date_start => p_rec.date_start);
2238: --
2239: hr_utility.set_location(l_proc, 5);
2240: --
2241: --
2242: -- Validate person id and date start combination
2243: --
2250: p_object_version_number => p_rec.object_version_number,
2251: p_person_id => p_rec.person_id,
2252: p_date_start => p_rec.date_start);
2253: --
2254: hr_utility.set_location(l_proc, 6);
2255: --
2256: --
2257: -- Validate accepted termination date
2258: --
2262: --
2263: per_pds_bus.chk_accepted_termination_date
2264: (p_accepted_termination_date => p_rec.accepted_termination_date);
2265: --
2266: hr_utility.set_location(l_proc, 7);
2267: --
2268: --
2269: -- Validate actual termination date
2270: --
2283: ,p_person_id => p_rec.person_id);
2284: --
2285: -- 70.3 change a end.
2286: --
2287: hr_utility.set_location(l_proc, 8);
2288: --
2289: --
2290: -- Validate last standard process date
2291: --
2302: ,p_last_standard_process_date => p_rec.last_standard_process_date
2303: ,p_object_version_number => p_rec.object_version_number
2304: ,p_period_of_service_id => p_rec.period_of_service_id
2305: );
2306: hr_utility.set_location(l_proc, 9);
2307: --
2308: --
2309: -- Validate final process date
2310: --
2322: --
2323: --
2324: -- 70.3 change c end.
2325: --
2326: hr_utility.set_location(l_proc, 10);
2327: --
2328: --
2329: -- Validate leaving reason
2330: --
2337: p_effective_date => p_effective_date,
2338: p_object_version_number => p_rec.object_version_number,
2339: p_period_of_service_id => p_rec.period_of_service_id);
2340: --
2341: hr_utility.set_location(l_proc, 11);
2342: --
2343: --
2344: -- Validate notified termination date
2345: --
2352: p_notified_termination_date => p_rec.notified_termination_date,
2353: p_object_version_number => p_rec.object_version_number,
2354: p_period_of_service_id => p_rec.period_of_service_id);
2355: --
2356: hr_utility.set_location(l_proc, 12);
2357: --
2358: --
2359: -- Validate projected termination date
2360: --
2367: p_period_of_service_id => p_rec.period_of_service_id,
2368: p_object_version_number => p_rec.object_version_number,
2369: p_projected_termination_date => p_rec.projected_termination_date);
2370: --
2371: hr_utility.set_location(l_proc, 13);
2372: --
2373: --
2374: -- Validate termination accepted person id
2375: --
2395: per_pds_bus.chk_df(p_rec => p_rec
2396: ,p_validate_df_flex => p_validate_df_flex);
2397: --
2398: --
2399: hr_utility.set_location(' Leaving:'||l_proc, 14);
2400: End insert_validate;
2401: --
2402: -- ----------------------------------------------------------------------------
2403: -- |---------------------------< update_validate >----------------------------|
2407: --
2408: l_proc varchar2(72) := g_package||'update_validate';
2409: --
2410: Begin
2411: hr_utility.set_location('Entering:'||l_proc, 1);
2412: --
2413: -- Check that the columns which cannot be updated have not changed.
2414: --
2415: -- Business Rule Mapping
2419: -- CHK_PERSON_ID / c
2420: --
2421: check_non_updateable_args(p_rec => p_rec);
2422: --
2423: hr_utility.set_location(l_proc, 2);
2424: --
2425: --
2426: -- Call all supporting business operations
2427: --
2432: -- CHK_BUSINESS_GROUP_ID / a,c
2433: --
2434: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
2435: --
2436: hr_utility.set_location(l_proc, 3);
2437: --
2438: --
2439: -- Validate date start
2440: --
2443: -- CHK_DATE_START / a
2444: --
2445: per_pds_bus.chk_date_start(p_date_start => p_rec.date_start);
2446: --
2447: hr_utility.set_location(l_proc, 4);
2448: --
2449: --
2450: -- Validate person id and date start combination
2451: --
2458: p_object_version_number => p_rec.object_version_number,
2459: p_person_id => p_rec.person_id,
2460: p_date_start => p_rec.date_start);
2461: --
2462: hr_utility.set_location(l_proc, 5);
2463: --
2464: --
2465: -- Validate actual termination date
2466: --
2479: ,p_person_id => p_rec.person_id);
2480: --
2481: -- 70.3 change a end.
2482: --
2483: hr_utility.set_location(l_proc, 6);
2484: --
2485: --
2486: -- Validate last standard process date
2487: --
2499: ,p_last_standard_process_date => p_rec.last_standard_process_date
2500: ,p_object_version_number => p_rec.object_version_number
2501: ,p_period_of_service_id => p_rec.period_of_service_id
2502: );
2503: hr_utility.set_location(l_proc, 7);
2504: --
2505: -- Validate actual termination date/last standard process date
2506: --
2507: -- Business Rule Mapping
2515: ,p_object_version_number => p_rec.object_version_number
2516: ,p_period_of_service_id => p_rec.period_of_service_id
2517: ,p_business_group_id => p_rec.business_group_id
2518: );
2519: hr_utility.set_location(l_proc, 8); */
2520: --
2521: -- Validate final process date
2522: --
2523: -- Business Rule Mapping
2539: --
2540: --
2541: -- 70.3 change c end.
2542: --
2543: hr_utility.set_location(l_proc, 9);
2544: --
2545: --
2546: -- Validate leaving reason
2547: --
2554: p_effective_date => p_effective_date,
2555: p_object_version_number => p_rec.object_version_number,
2556: p_period_of_service_id => p_rec.period_of_service_id);
2557: --
2558: hr_utility.set_location(l_proc, 10);
2559: --
2560: --
2561: -- Validate notified termination date
2562: --
2569: p_notified_termination_date => p_rec.notified_termination_date,
2570: p_object_version_number => p_rec.object_version_number,
2571: p_period_of_service_id => p_rec.period_of_service_id);
2572: --
2573: hr_utility.set_location(l_proc, 11);
2574: --
2575: --
2576: -- Validate projected termination date
2577: --
2584: p_period_of_service_id => p_rec.period_of_service_id,
2585: p_object_version_number => p_rec.object_version_number,
2586: p_projected_termination_date => p_rec.projected_termination_date);
2587: --
2588: hr_utility.set_location(l_proc, 12);
2589: --
2590: --
2591: -- Validate termination accepted person id
2592: --
2611: -- Validate flex fields.
2612: --
2613: per_pds_bus.chk_df(p_rec => p_rec);
2614: --
2615: hr_utility.set_location(' Leaving:'||l_proc, 13);
2616: End update_validate;
2617: --
2618: -- ----------------------------------------------------------------------------
2619: -- |---------------------------< delete_validate >----------------------------|
2622: --
2623: l_proc varchar2(72) := g_package||'delete_validate';
2624: --
2625: Begin
2626: hr_utility.set_location('Entering:'||l_proc, 5);
2627: --
2628: -- Call all supporting business operations
2629: --
2630: hr_utility.set_location(' Leaving:'||l_proc, 10);
2626: hr_utility.set_location('Entering:'||l_proc, 5);
2627: --
2628: -- Call all supporting business operations
2629: --
2630: hr_utility.set_location(' Leaving:'||l_proc, 10);
2631: End delete_validate;
2632: --
2633: -- ---------------------------------------------------------------------------
2634: -- |---------------------< return_legislation_code >-------------------------|
2651: --
2652: l_legislation_code varchar2(150);
2653: l_proc varchar2(72) := g_package||'return_legislation_code';
2654: begin
2655: hr_utility.set_location('Entering:'|| l_proc, 10);
2656: --
2657: -- Ensure that all the mandatory parameter are not null
2658: --
2659: hr_api.mandatory_arg_error(p_api_name => l_proc,
2666: -- call to this function. Just return the value in the global
2667: -- variable.
2668: --
2669: l_legislation_code := g_legislation_code;
2670: hr_utility.set_location(l_proc, 20);
2671: else
2672: --
2673: -- The ID is different to the last call to this function
2674: -- or this is the first call to this function.
2679: close csr_leg_code;
2680: --
2681: -- The primary key is invalid therefore we must error
2682: --
2683: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
2684: hr_utility.raise_error;
2685: end if;
2686: --
2687: -- Set the global variables so the values are
2680: --
2681: -- The primary key is invalid therefore we must error
2682: --
2683: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
2684: hr_utility.raise_error;
2685: end if;
2686: --
2687: -- Set the global variables so the values are
2688: -- available for the next call to this function
2690: close csr_leg_code;
2691: g_period_of_service_id := p_period_of_service_id;
2692: g_legislation_code := l_legislation_code;
2693: end if;
2694: hr_utility.set_location(' Leaving:'|| l_proc, 20);
2695: --
2696: return l_legislation_code;
2697: end return_legislation_code;
2698: --