[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 >---------------------|
144: and ptu.effective_start_date > p_actual_termination_date
145: and ppt.system_person_type in ('EMP','CWK');
146: --
147: begin
148: hr_utility.set_location('Entering:'|| l_proc, 1);
149: --
150: -- Check mandatory parameters have been set
151: --
152: hr_api.mandatory_arg_error
154: ,p_argument => 'date_start'
155: ,p_argument_value => p_date_start
156: );
157: --
158: hr_utility.set_location(l_proc, 20);
159: --
160: -- Check to see if record updated.
161: --
162: l_api_updating := per_pds_shd.api_updating
162: l_api_updating := per_pds_shd.api_updating
163: (p_period_of_service_id => p_period_of_service_id
164: ,p_object_version_number => p_object_version_number);
165: --
166: hr_utility.set_location(l_proc, 30);
167: --
168: if l_api_updating
169: then
170: --
171: if nvl(per_pds_shd.g_old_rec.actual_termination_date, hr_api.g_date) <>
172: nvl(p_actual_termination_date, hr_api.g_date)
173: and p_actual_termination_date is not null
174: then
175: hr_utility.set_location(l_proc, 40);
176: --
177: if per_pds_shd.g_old_rec.actual_termination_date is not null
178: then
179: --
179: --
180: -- Cannot be changed from one not null value to another not null value.
181: -- CHK_ACTUAL_TERMINATION_DATE / d
182: --
183: hr_utility.set_message(801,'HR_7955_PDS_INV_ATT_CHANGE');
184: hr_utility.raise_error;
185: end if;
186: hr_utility.set_location(l_proc, 60);
187: --
180: -- Cannot be changed from one not null value to another not null value.
181: -- CHK_ACTUAL_TERMINATION_DATE / d
182: --
183: hr_utility.set_message(801,'HR_7955_PDS_INV_ATT_CHANGE');
184: hr_utility.raise_error;
185: end if;
186: hr_utility.set_location(l_proc, 60);
187: --
188: if p_actual_termination_date > p_last_standard_process_date and
182: --
183: hr_utility.set_message(801,'HR_7955_PDS_INV_ATT_CHANGE');
184: hr_utility.raise_error;
185: end if;
186: hr_utility.set_location(l_proc, 60);
187: --
188: if p_actual_termination_date > p_last_standard_process_date and
189: p_last_standard_process_date is not null then
190: --
189: p_last_standard_process_date is not null then
190: --
191: -- CHK_ACTUAL_TERMINATION_DATE / a
192: --
193: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
194: hr_utility.raise_error;
195: end if;
196: hr_utility.set_location(l_proc, 70);
197: --
190: --
191: -- CHK_ACTUAL_TERMINATION_DATE / a
192: --
193: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
194: hr_utility.raise_error;
195: end if;
196: hr_utility.set_location(l_proc, 70);
197: --
198: if not (nvl(p_actual_termination_date, hr_api.g_eot) >=
192: --
193: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
194: hr_utility.raise_error;
195: end if;
196: hr_utility.set_location(l_proc, 70);
197: --
198: if not (nvl(p_actual_termination_date, hr_api.g_eot) >=
199: p_date_start) then
200: --
199: p_date_start) then
200: --
201: -- CHK_ACTUAL_TERMINATION_DATE / b
202: --
203: hr_utility.set_message(801,'HR_7493_PDS_INV_ATT_DT_ST');
204: hr_utility.raise_error;
205: end if;
206: hr_utility.set_location(l_proc, 80);
207: --
200: --
201: -- CHK_ACTUAL_TERMINATION_DATE / b
202: --
203: hr_utility.set_message(801,'HR_7493_PDS_INV_ATT_DT_ST');
204: hr_utility.raise_error;
205: end if;
206: hr_utility.set_location(l_proc, 80);
207: --
208: -- Get the initial insert date of the latest assignment.
202: --
203: hr_utility.set_message(801,'HR_7493_PDS_INV_ATT_DT_ST');
204: hr_utility.raise_error;
205: end if;
206: hr_utility.set_location(l_proc, 80);
207: --
208: -- Get the initial insert date of the latest assignment.
209: --
210: open csr_get_max_asg_start_date;
214: --
215: if csr_get_max_asg_start_date%NOTFOUND then
216: --
217: close csr_get_max_asg_start_date;
218: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
219: hr_utility.set_message_token('PROCEDURE', l_proc);
220: hr_utility.set_message_token('STEP', '5');
221: hr_utility.raise_error;
222: --
215: if csr_get_max_asg_start_date%NOTFOUND then
216: --
217: close csr_get_max_asg_start_date;
218: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
219: hr_utility.set_message_token('PROCEDURE', l_proc);
220: hr_utility.set_message_token('STEP', '5');
221: hr_utility.raise_error;
222: --
223: elsif (p_actual_termination_date < l_effective_start_date) then
216: --
217: close csr_get_max_asg_start_date;
218: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
219: hr_utility.set_message_token('PROCEDURE', l_proc);
220: hr_utility.set_message_token('STEP', '5');
221: hr_utility.raise_error;
222: --
223: elsif (p_actual_termination_date < l_effective_start_date) then
224: --
217: close csr_get_max_asg_start_date;
218: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
219: hr_utility.set_message_token('PROCEDURE', l_proc);
220: hr_utility.set_message_token('STEP', '5');
221: hr_utility.raise_error;
222: --
223: elsif (p_actual_termination_date < l_effective_start_date) then
224: --
225: -- CHK_ACTUAL_TERMINATION_DATE / e
224: --
225: -- CHK_ACTUAL_TERMINATION_DATE / e
226: --
227: close csr_get_max_asg_start_date;
228: hr_utility.set_message(801,'HR_7956_PDS_INV_ATT_DT_EARLY');
229: hr_utility.raise_error;
230: end if;
231: close csr_get_max_asg_start_date;
232: hr_utility.set_location(l_proc, 110);
225: -- CHK_ACTUAL_TERMINATION_DATE / e
226: --
227: close csr_get_max_asg_start_date;
228: hr_utility.set_message(801,'HR_7956_PDS_INV_ATT_DT_EARLY');
229: hr_utility.raise_error;
230: end if;
231: close csr_get_max_asg_start_date;
232: hr_utility.set_location(l_proc, 110);
233: --
228: hr_utility.set_message(801,'HR_7956_PDS_INV_ATT_DT_EARLY');
229: hr_utility.raise_error;
230: end if;
231: close csr_get_max_asg_start_date;
232: hr_utility.set_location(l_proc, 110);
233: --
234: -- Get the latest effective start date for any person future changes.
235: --
236: open csr_get_max_per_eff_date;
239: close csr_get_max_per_eff_date;
240: --
241: if l_effective_start_date is null then
242: --
243: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
244: hr_utility.set_message_token('PROCEDURE', l_proc);
245: hr_utility.set_message_token('STEP', '10');
246: hr_utility.raise_error;
247: --
240: --
241: if l_effective_start_date is null then
242: --
243: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
244: hr_utility.set_message_token('PROCEDURE', l_proc);
245: hr_utility.set_message_token('STEP', '10');
246: hr_utility.raise_error;
247: --
248: elsif not (p_actual_termination_date >= l_effective_start_date) then
241: if l_effective_start_date is null then
242: --
243: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
244: hr_utility.set_message_token('PROCEDURE', l_proc);
245: hr_utility.set_message_token('STEP', '10');
246: hr_utility.raise_error;
247: --
248: elsif not (p_actual_termination_date >= l_effective_start_date) then
249: --
242: --
243: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
244: hr_utility.set_message_token('PROCEDURE', l_proc);
245: hr_utility.set_message_token('STEP', '10');
246: hr_utility.raise_error;
247: --
248: elsif not (p_actual_termination_date >= l_effective_start_date) then
249: --
250: -- CHK_ACTUAL_TERMINATION_DATE
253: open not_allowed_ppt;
254: fetch not_allowed_ppt into l_effective_start_date;
255: if not_allowed_ppt%found then
256: close not_allowed_ppt;
257: hr_utility.set_message(801,'HR_7957_PDS_INV_ATT_FUTURE');
258: hr_utility.raise_error;
259: end if;
260: close not_allowed_ppt;
261: else
254: fetch not_allowed_ppt into l_effective_start_date;
255: if not_allowed_ppt%found then
256: close not_allowed_ppt;
257: hr_utility.set_message(801,'HR_7957_PDS_INV_ATT_FUTURE');
258: hr_utility.raise_error;
259: end if;
260: close not_allowed_ppt;
261: else
262: hr_utility.set_message(801,'HR_7957_PDS_INV_ATT_FUTURE');
258: hr_utility.raise_error;
259: end if;
260: close not_allowed_ppt;
261: else
262: hr_utility.set_message(801,'HR_7957_PDS_INV_ATT_FUTURE');
263: hr_utility.raise_error;
264: end if;
265: end if;
266: end if;
259: end if;
260: close not_allowed_ppt;
261: else
262: hr_utility.set_message(801,'HR_7957_PDS_INV_ATT_FUTURE');
263: hr_utility.raise_error;
264: end if;
265: end if;
266: end if;
267: --
266: end if;
267: --
268: else
269: -- Not updating => inserting.
270: hr_utility.set_location(l_proc, 140);
271: --
272: if not (p_actual_termination_date is null) then
273: --
274: -- CHK_ACTUAL_TERMINATION_DATE / c
272: if not (p_actual_termination_date is null) then
273: --
274: -- CHK_ACTUAL_TERMINATION_DATE / c
275: --
276: hr_utility.set_message(801,'HR_7502_PDS_INV_ATT_DT_BLANK');
277: hr_utility.raise_error;
278: end if;
279: --
280: end if;
273: --
274: -- CHK_ACTUAL_TERMINATION_DATE / c
275: --
276: hr_utility.set_message(801,'HR_7502_PDS_INV_ATT_DT_BLANK');
277: hr_utility.raise_error;
278: end if;
279: --
280: end if;
281: --
278: end if;
279: --
280: end if;
281: --
282: hr_utility.set_location(' Leaving:'|| l_proc, 200);
283: end chk_actual_termination_date;
284: --
285: -- ---------------------------------------------------------------------------
286: -- |---------------------------< chk_date_start >----------------------------|
317: --
318: l_proc varchar2(72) := g_package||'chk_date_start';
319: --
320: begin
321: hr_utility.set_location('Entering:'|| l_proc, 1);
322: --
323: -- CHK_DATE_START / a
324: --
325: hr_api.mandatory_arg_error
327: ,p_argument => 'date_start'
328: ,p_argument_value => p_date_start
329: );
330: --
331: hr_utility.set_location(' Leaving:'|| l_proc, 2);
332: end chk_date_start;
333: --
334: -- ---------------------------------------------------------------------------
335: -- |------------------------
432: --
433: -- 115.30 (END)
434: --
435: begin
436: hr_utility.set_location('Entering:'|| l_proc, 1);
437: --
438: -- Check mandatory parameters have been set
439: --
440: hr_api.mandatory_arg_error
442: ,p_argument => 'date_start'
443: ,p_argument_value => p_date_start
444: );
445: --
446: hr_utility.set_location(l_proc, 2);
447: --
448: -- Check to see if record updated.
449: --
450: l_api_updating := per_pds_shd.api_updating
450: l_api_updating := per_pds_shd.api_updating
451: (p_period_of_service_id => p_period_of_service_id
452: ,p_object_version_number => p_object_version_number);
453: --
454: hr_utility.set_location(l_proc, 5);
455: --
456: if l_api_updating
457: then
458: --
459: if nvl(per_pds_shd.g_old_rec.final_process_date, hr_api.g_date) <>
460: nvl(p_final_process_date, hr_api.g_date)
461: then
462: --
463: hr_utility.set_location(l_proc, 6);
464: --
465: --
466: -- 70.3 change d start.
467: --
472: --and p_final_process_date is not null
473: --then
474: -- -- CHK_FINAL_PROCESS_DATE / g
475: -- --
476: -- hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
477: -- hr_utility.raise_error;
478: --end if;
479: --
480: -- if FPD is changing and old FPD < new FPD then raise an error if new FPD
473: --then
474: -- -- CHK_FINAL_PROCESS_DATE / g
475: -- --
476: -- hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
477: -- hr_utility.raise_error;
478: --end if;
479: --
480: -- if FPD is changing and old FPD < new FPD then raise an error if new FPD
481: -- >= start date of next-latest PDS and old FPD < start date of next-latest
485: AND p_final_process_date IS NOT NULL
486: AND (p_final_process_date > per_pds_shd.g_old_rec.final_process_date)
487: THEN
488: --
489: hr_utility.set_location(l_proc, 10);
490: -- Get the next latest PDS is one exists
491: OPEN csr_next_pds;
492: FETCH csr_next_pds INTO lr_next_pds;
493: IF csr_next_pds%FOUND THEN
491: OPEN csr_next_pds;
492: FETCH csr_next_pds INTO lr_next_pds;
493: IF csr_next_pds%FOUND THEN
494: -- Check if PDS gap is being updated to a overlap
495: hr_utility.set_location(l_proc, 15);
496: --
497: IF ((per_pds_shd.g_old_rec.final_process_date < lr_next_pds.date_start)
498: AND p_final_process_date >= lr_next_pds.date_start)
499: THEN
497: IF ((per_pds_shd.g_old_rec.final_process_date < lr_next_pds.date_start)
498: AND p_final_process_date >= lr_next_pds.date_start)
499: THEN
500: CLOSE csr_next_pds;
501: hr_utility.set_message(800,'HR_449744_EMP_FPD_PDS');
502: hr_utility.raise_error;
503: END IF;
504: --
505: -- 115.35 (START)
498: AND p_final_process_date >= lr_next_pds.date_start)
499: THEN
500: CLOSE csr_next_pds;
501: hr_utility.set_message(800,'HR_449744_EMP_FPD_PDS');
502: hr_utility.raise_error;
503: END IF;
504: --
505: -- 115.35 (START)
506: --
511: THEN
512: IF p_final_process_date >= lr_next_pds.final_process_date
513: THEN
514: CLOSE csr_next_pds;
515: hr_utility.set_message(800,'HR_449761_FPD_GT_PREV_PDS');
516: hr_utility.raise_error;
517: END IF;
518: END IF;
519: --
512: IF p_final_process_date >= lr_next_pds.final_process_date
513: THEN
514: CLOSE csr_next_pds;
515: hr_utility.set_message(800,'HR_449761_FPD_GT_PREV_PDS');
516: hr_utility.raise_error;
517: END IF;
518: END IF;
519: --
520: -- 115.35 (END)
522: END IF;
523: CLOSE csr_next_pds;
524: END IF;
525: --
526: hr_utility.set_location(l_proc, 20);
527:
528: -- Commenting the following checks for ER 6981999.
529: --
530: -- if FPD is changing and old FPD < new FPD then raise an error if old FPD
534: AND p_final_process_date IS NOT NULL
535: AND (p_final_process_date > per_pds_shd.g_old_rec.final_process_date)
536: THEN
537: --
538: hr_utility.set_location(l_proc, 22);
539: --
540: IF ((per_pds_shd.g_old_rec.final_process_date = NVL(p_last_standard_process_date, p_actual_termination_date))
541: AND p_final_process_date > NVL(p_last_standard_process_date, p_actual_termination_date))
542: THEN
539: --
540: IF ((per_pds_shd.g_old_rec.final_process_date = NVL(p_last_standard_process_date, p_actual_termination_date))
541: AND p_final_process_date > NVL(p_last_standard_process_date, p_actual_termination_date))
542: THEN
543: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
544: hr_utility.raise_error;
545: END IF;
546: END IF;
547: --
540: IF ((per_pds_shd.g_old_rec.final_process_date = NVL(p_last_standard_process_date, p_actual_termination_date))
541: AND p_final_process_date > NVL(p_last_standard_process_date, p_actual_termination_date))
542: THEN
543: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
544: hr_utility.raise_error;
545: END IF;
546: END IF;
547: --
548: -- 115.36 (START)
547: --
548: -- 115.36 (START)
549: --
550: --
551: hr_utility.set_location(l_proc, 25);
552: --
553: IF per_pds_shd.g_old_rec.final_process_date IS NOT NULL
554: AND p_final_process_date IS NULL
555: THEN
553: IF per_pds_shd.g_old_rec.final_process_date IS NOT NULL
554: AND p_final_process_date IS NULL
555: THEN
556: --
557: hr_utility.set_location(l_proc, 26);
558: --
559: IF (per_pds_shd.g_old_rec.final_process_date = per_pds_shd.g_old_rec.actual_termination_date)
560: THEN
561: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
557: hr_utility.set_location(l_proc, 26);
558: --
559: IF (per_pds_shd.g_old_rec.final_process_date = per_pds_shd.g_old_rec.actual_termination_date)
560: THEN
561: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
562: hr_utility.raise_error;
563: END IF;
564: END IF; */
565: --
558: --
559: IF (per_pds_shd.g_old_rec.final_process_date = per_pds_shd.g_old_rec.actual_termination_date)
560: THEN
561: hr_utility.set_message(800,'HR_449764_FPD_GT_LSPD_ATD');
562: hr_utility.raise_error;
563: END IF;
564: END IF; */
565: --
566: -- 115.36 (END)
565: --
566: -- 115.36 (END)
567: --
568: --
569: hr_utility.set_location(l_proc, 30);
570: --
571: -- if FPD is changing and old FPD > new FPD then raise an error if new FPD
572: -- < start date of next-latest PDS and old FPD >= start date of next-latest
573: -- PDS. In effect, check that a PDS overlap is not being updated to an gap.
576: AND p_final_process_date IS NOT NULL
577: AND (p_final_process_date < per_pds_shd.g_old_rec.final_process_date)
578: THEN
579: -- Get the next latest PDS is one exists
580: hr_utility.set_location(l_proc, 33);
581: --
582: OPEN csr_next_pds;
583: FETCH csr_next_pds INTO lr_next_pds;
584: IF csr_next_pds%FOUND THEN
582: OPEN csr_next_pds;
583: FETCH csr_next_pds INTO lr_next_pds;
584: IF csr_next_pds%FOUND THEN
585: -- Check if PDS overlap is being updated to a gap
586: hr_utility.set_location(l_proc, 35);
587: --
588: IF ((per_pds_shd.g_old_rec.final_process_date >= lr_next_pds.date_start)
589: AND p_final_process_date < lr_next_pds.date_start)
590: THEN
588: IF ((per_pds_shd.g_old_rec.final_process_date >= lr_next_pds.date_start)
589: AND p_final_process_date < lr_next_pds.date_start)
590: THEN
591: CLOSE csr_next_pds;
592: hr_utility.set_message(800,'HR_449744_EMP_FPD_PDS');
593: hr_utility.raise_error;
594: END IF;
595: END IF;
596: CLOSE csr_next_pds;
589: AND p_final_process_date < lr_next_pds.date_start)
590: THEN
591: CLOSE csr_next_pds;
592: hr_utility.set_message(800,'HR_449744_EMP_FPD_PDS');
593: hr_utility.raise_error;
594: END IF;
595: END IF;
596: CLOSE csr_next_pds;
597: END IF;
595: END IF;
596: CLOSE csr_next_pds;
597: END IF;
598: --
599: hr_utility.set_location(l_proc, 40);
600: --
601: -- if FPD is changing and old FPD > new FPD then raise an error if the new
602: -- FPD <= NVL(LSPD,ATD)
603: --
605: AND p_final_process_date IS NOT NULL
606: AND (p_final_process_date < per_pds_shd.g_old_rec.final_process_date)
607: AND (p_final_process_date < NVL(p_last_standard_process_date, p_actual_termination_date)) -- ER 6981999 .
608: THEN
609: hr_utility.set_message(800,'HR_449741_EMP_FPD_ATD');
610: hr_utility.raise_error;
611: END IF;
612: --
613: hr_utility.set_location(l_proc, 45);
606: AND (p_final_process_date < per_pds_shd.g_old_rec.final_process_date)
607: AND (p_final_process_date < NVL(p_last_standard_process_date, p_actual_termination_date)) -- ER 6981999 .
608: THEN
609: hr_utility.set_message(800,'HR_449741_EMP_FPD_ATD');
610: hr_utility.raise_error;
611: END IF;
612: --
613: hr_utility.set_location(l_proc, 45);
614: --
609: hr_utility.set_message(800,'HR_449741_EMP_FPD_ATD');
610: hr_utility.raise_error;
611: END IF;
612: --
613: hr_utility.set_location(l_proc, 45);
614: --
615: -- if FPD is changing and old FPD > new FPD then raise an error if the new
616: -- FPD <= Prev PDS FPD
617: --
624: FETCH csr_prev_pds_fpd INTO l_prev_pds_fpd;
625: IF csr_prev_pds_fpd%FOUND THEN
626: IF p_final_process_date <= l_prev_pds_fpd THEN
627: CLOSE csr_prev_pds_fpd;
628: hr_utility.set_message(800,'HR_449761_FPD_GT_PREV_PDS');
629: hr_utility.raise_error;
630: END IF;
631: END IF;
632: CLOSE csr_prev_pds_fpd;
625: IF csr_prev_pds_fpd%FOUND THEN
626: IF p_final_process_date <= l_prev_pds_fpd THEN
627: CLOSE csr_prev_pds_fpd;
628: hr_utility.set_message(800,'HR_449761_FPD_GT_PREV_PDS');
629: hr_utility.raise_error;
630: END IF;
631: END IF;
632: CLOSE csr_prev_pds_fpd;
633: END IF;
631: END IF;
632: CLOSE csr_prev_pds_fpd;
633: END IF;
634: --
635: hr_utility.set_location(l_proc, 50);
636: --
637: -- if FPD is changing and the new FPD is null, then raise an error is a
638: -- later PDS exists with FPD not null.
639: --
640: IF per_pds_shd.g_old_rec.final_process_date IS NOT NULL
641: AND p_final_process_date IS NULL
642: THEN
643: -- Check for a later PDS with FPD not null
644: hr_utility.set_location(l_proc, 53);
645: --
646: OPEN csr_later_fpd;
647: FETCH csr_later_fpd INTO l_later_fpd;
648: IF csr_later_fpd%FOUND THEN
646: OPEN csr_later_fpd;
647: FETCH csr_later_fpd INTO l_later_fpd;
648: IF csr_later_fpd%FOUND THEN
649: CLOSE csr_later_fpd;
650: hr_utility.set_message(800,'HR_449743_EMP_FPD_REQD');
651: hr_utility.raise_error;
652: END IF;
653: CLOSE csr_later_fpd;
654: END IF;
647: FETCH csr_later_fpd INTO l_later_fpd;
648: IF csr_later_fpd%FOUND THEN
649: CLOSE csr_later_fpd;
650: hr_utility.set_message(800,'HR_449743_EMP_FPD_REQD');
651: hr_utility.raise_error;
652: END IF;
653: CLOSE csr_later_fpd;
654: END IF;
655: --
655: --
656: -- 115.30 (END)
657: --
658: --
659: hr_utility.set_location(l_proc, 60);
660: if p_actual_termination_date is null
661: then
662: --
663: if not (p_final_process_date is null)
663: if not (p_final_process_date is null)
664: then
665: -- CHK_FINAL_PROCESS_DATE / d
666: --
667: hr_utility.set_message(801,'HR_7503_PDS_INV_FP_DT_BLANK');
668: hr_utility.raise_error;
669: end if;
670: --
671: end if;
664: then
665: -- CHK_FINAL_PROCESS_DATE / d
666: --
667: hr_utility.set_message(801,'HR_7503_PDS_INV_FP_DT_BLANK');
668: hr_utility.raise_error;
669: end if;
670: --
671: end if;
672: --
669: end if;
670: --
671: end if;
672: --
673: hr_utility.set_location(l_proc, 7);
674: --
675: if p_last_standard_process_date is null
676: then
677: --
674: --
675: if p_last_standard_process_date is null
676: then
677: --
678: hr_utility.set_location(l_proc, 8);
679: --
680: if not (nvl(p_final_process_date, hr_api.g_eot) >=
681: nvl(p_actual_termination_date, hr_api.g_eot))
682: then
681: nvl(p_actual_termination_date, hr_api.g_eot))
682: then
683: -- CHK_FINAL_PROCESS_DATE / f
684: --
685: hr_utility.set_message(801,'HR_7963_PDS_INV_FP_BEFORE_ATT');
686: hr_utility.raise_error;
687: end if;
688: else
689: --
682: then
683: -- CHK_FINAL_PROCESS_DATE / f
684: --
685: hr_utility.set_message(801,'HR_7963_PDS_INV_FP_BEFORE_ATT');
686: hr_utility.raise_error;
687: end if;
688: else
689: --
690: -- 70.1 change a start.
696: --
697: then
698: -- CHK_FINAL_PROCESS_DATE / c
699: --
700: hr_utility.set_message(801,'HR_7504_PDS_INV_FP_LSP_DT');
701: hr_utility.raise_error;
702: end if;
703: end if;
704: --
697: then
698: -- CHK_FINAL_PROCESS_DATE / c
699: --
700: hr_utility.set_message(801,'HR_7504_PDS_INV_FP_LSP_DT');
701: hr_utility.raise_error;
702: end if;
703: end if;
704: --
705: -- 70.3 change d end.
703: end if;
704: --
705: -- 70.3 change d end.
706: --
707: hr_utility.set_location(l_proc, 8);
708: --
709: -- 70.4 change a start.
710: --
711: -- 70.4 change a end.
712: --
713: end if;
714: else
715: -- Not updating => inserting.
716: hr_utility.set_location(l_proc, 12);
717: --
718: if not (p_final_process_date is null)
719: then
720: -- CHK_FINAL_PROCESS_DATE / e
718: if not (p_final_process_date is null)
719: then
720: -- CHK_FINAL_PROCESS_DATE / e
721: --
722: hr_utility.set_message(801,'HR_7496_PDS_INV_FP_DT');
723: hr_utility.raise_error;
724: end if;
725: --
726: hr_utility.set_location(l_proc, 13);
719: then
720: -- CHK_FINAL_PROCESS_DATE / e
721: --
722: hr_utility.set_message(801,'HR_7496_PDS_INV_FP_DT');
723: hr_utility.raise_error;
724: end if;
725: --
726: hr_utility.set_location(l_proc, 13);
727: end if;
722: hr_utility.set_message(801,'HR_7496_PDS_INV_FP_DT');
723: hr_utility.raise_error;
724: end if;
725: --
726: hr_utility.set_location(l_proc, 13);
727: end if;
728: --
729: hr_utility.set_location(' Leaving:'|| l_proc, 14);
730: end chk_final_process_date;
725: --
726: hr_utility.set_location(l_proc, 13);
727: end if;
728: --
729: hr_utility.set_location(' Leaving:'|| l_proc, 14);
730: end chk_final_process_date;
731: --
732: -- ---------------------------------------------------------------------------
733: -- |-------------------< chk_last_standard_process_date >--------------------|
797: where bus.business_group_id = p_business_group_id;
798: --
799: --
800: begin
801: hr_utility.set_location('Entering:'|| l_proc, 1);
802: --
803: -- Check mandatory parameters have been set
804: --
805: hr_api.mandatory_arg_error
807: ,p_argument => 'date_start'
808: ,p_argument_value => p_date_start
809: );
810: --
811: hr_utility.set_location(l_proc, 10);
812: --
813: -- Check to see if record updated.
814: --
815: l_api_updating := per_pds_shd.api_updating
815: l_api_updating := per_pds_shd.api_updating
816: (p_period_of_service_id => p_period_of_service_id
817: ,p_object_version_number => p_object_version_number);
818: --
819: hr_utility.set_location(l_proc, 20);
820: --
821: if l_api_updating
822: then
823: --
824: if nvl(per_pds_shd.g_old_rec.last_standard_process_date, hr_api.g_date) <>
825: nvl(p_last_standard_process_date, hr_api.g_date)
826: then
827: --
828: hr_utility.set_location(l_proc, 30);
829: --
830: if per_pds_shd.g_old_rec.last_standard_process_date is not null
831: and p_last_standard_process_date is not null
832: then
831: and p_last_standard_process_date is not null
832: then
833: -- CHK_LAST_STANDARD_PROCESS_DATE / i
834: --
835: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
836: hr_utility.raise_error;
837: end if;
838: --
839: hr_utility.set_location(l_proc, 40);
832: then
833: -- CHK_LAST_STANDARD_PROCESS_DATE / i
834: --
835: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
836: hr_utility.raise_error;
837: end if;
838: --
839: hr_utility.set_location(l_proc, 40);
840: --
835: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
836: hr_utility.raise_error;
837: end if;
838: --
839: hr_utility.set_location(l_proc, 40);
840: --
841: open csr_get_legislation_code;
842: fetch csr_get_legislation_code
843: into l_legislation_code;
846: then
847: --
848: close csr_get_legislation_code;
849: --
850: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
851: hr_utility.set_message_token('PROCEDURE', l_proc);
852: hr_utility.set_message_token('STEP', '5');
853: hr_utility.raise_error;
854: end if;
847: --
848: close csr_get_legislation_code;
849: --
850: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
851: hr_utility.set_message_token('PROCEDURE', l_proc);
852: hr_utility.set_message_token('STEP', '5');
853: hr_utility.raise_error;
854: end if;
855: --
848: close csr_get_legislation_code;
849: --
850: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
851: hr_utility.set_message_token('PROCEDURE', l_proc);
852: hr_utility.set_message_token('STEP', '5');
853: hr_utility.raise_error;
854: end if;
855: --
856: close csr_get_legislation_code;
849: --
850: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
851: hr_utility.set_message_token('PROCEDURE', l_proc);
852: hr_utility.set_message_token('STEP', '5');
853: hr_utility.raise_error;
854: end if;
855: --
856: close csr_get_legislation_code;
857: --
854: end if;
855: --
856: close csr_get_legislation_code;
857: --
858: hr_utility.set_location(l_proc, 50);
859: --
860: -- Bug 1711085. VS. 27-Mar-2001. Commented out the code that disables
861: -- last_standard_process for US legislature.
862: /* if l_legislation_code = 'US'
861: -- last_standard_process for US legislature.
862: /* if l_legislation_code = 'US'
863: then
864: --
865: hr_utility.set_location(l_proc, 60);
866: --
867: if not (p_last_standard_process_date is null)
868: then
869: -- CHK_LAST_STANDARD_PROCESS_DATE / g
867: if not (p_last_standard_process_date is null)
868: then
869: -- CHK_LAST_STANDARD_PROCESS_DATE / g
870: --
871: hr_utility.set_message(801,'HR_7958_PDS_INV_US_LSP_BLANK');
872: hr_utility.raise_error;
873: end if;
874: end if;
875: */
868: then
869: -- CHK_LAST_STANDARD_PROCESS_DATE / g
870: --
871: hr_utility.set_message(801,'HR_7958_PDS_INV_US_LSP_BLANK');
872: hr_utility.raise_error;
873: end if;
874: end if;
875: */
876: --
880: if not (p_last_standard_process_date is null)
881: then
882: -- CHK_LAST_STANDARD_PROCESS_DATE / f
883: --
884: hr_utility.set_message(801,'HR_7497_PDS_INV_LSP_DT_BLANK');
885: hr_utility.raise_error;
886: end if;
887: --
888: end if;
881: then
882: -- CHK_LAST_STANDARD_PROCESS_DATE / f
883: --
884: hr_utility.set_message(801,'HR_7497_PDS_INV_LSP_DT_BLANK');
885: hr_utility.raise_error;
886: end if;
887: --
888: end if;
889: --
886: end if;
887: --
888: end if;
889: --
890: hr_utility.set_location(l_proc, 80);
891: --
892: -- 70.1 change a start.
893: --
894: if not (nvl(p_last_standard_process_date, hr_api.g_eot) >=
898: --
899: then
900: -- CHK_LAST_STANDARD_PROCESS_DATE / c
901: --
902: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
903: hr_utility.raise_error;
904: end if;
905: --
906: hr_utility.set_location(l_proc, 90);
899: then
900: -- CHK_LAST_STANDARD_PROCESS_DATE / c
901: --
902: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
903: hr_utility.raise_error;
904: end if;
905: --
906: hr_utility.set_location(l_proc, 90);
907: --
902: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
903: hr_utility.raise_error;
904: end if;
905: --
906: hr_utility.set_location(l_proc, 90);
907: --
908: end if;
909: --
910: -- 70.16 change h start.
914: and (p_actual_termination_date is not null)
915: and l_legislation_code <> 'US'
916: --
917: then
918: hr_utility.set_location(l_proc, 100);
919: --
920: if p_last_standard_process_date is null
921: --
922: then
924: -- Must also be set to not null value if actual_termination_date
925: -- updated to not null value.
926: -- CHK_LAST_STANDARD_PROCESS_DATE / h
927: --
928: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
929: hr_utility.raise_error;
930: end if;
931: end if;
932: --
925: -- updated to not null value.
926: -- CHK_LAST_STANDARD_PROCESS_DATE / h
927: --
928: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
929: hr_utility.raise_error;
930: end if;
931: end if;
932: --
933: -- 70.16 change h end.
935: else
936: --
937: -- Not updating => inserting.
938: --
939: hr_utility.set_location(l_proc, 110);
940: --
941: if not (p_last_standard_process_date is null)
942: then
943: -- CHK_LAST_STANDARD_PROCESS_DATE / e
941: if not (p_last_standard_process_date is null)
942: then
943: -- CHK_LAST_STANDARD_PROCESS_DATE / e
944: --
945: hr_utility.set_message(801,'HR_7484_PDS_INV_LSP_DT');
946: hr_utility.raise_error;
947: end if;
948: --
949: hr_utility.set_location(l_proc, 120);
942: then
943: -- CHK_LAST_STANDARD_PROCESS_DATE / e
944: --
945: hr_utility.set_message(801,'HR_7484_PDS_INV_LSP_DT');
946: hr_utility.raise_error;
947: end if;
948: --
949: hr_utility.set_location(l_proc, 120);
950: end if;
945: hr_utility.set_message(801,'HR_7484_PDS_INV_LSP_DT');
946: hr_utility.raise_error;
947: end if;
948: --
949: hr_utility.set_location(l_proc, 120);
950: end if;
951: --
952: hr_utility.set_location(' Leaving:'|| l_proc, 200);
953: end chk_last_standard_process_date;
948: --
949: hr_utility.set_location(l_proc, 120);
950: end if;
951: --
952: hr_utility.set_location(' Leaving:'|| l_proc, 200);
953: end chk_last_standard_process_date;
954: --
955: -- 70.3 change c end.
956: --
1006: from per_business_groups bus
1007: where bus.business_group_id = p_business_group_id;
1008: --
1009: begin
1010: hr_utility.set_location('Entering:'|| l_proc, 1);
1011: --
1012: hr_utility.set_location(l_proc, 10);
1013: --
1014: -- Check to see if record updated.
1008: --
1009: begin
1010: hr_utility.set_location('Entering:'|| l_proc, 1);
1011: --
1012: hr_utility.set_location(l_proc, 10);
1013: --
1014: -- Check to see if record updated.
1015: --
1016: l_api_updating := per_pds_shd.api_updating
1016: l_api_updating := per_pds_shd.api_updating
1017: (p_period_of_service_id => p_period_of_service_id
1018: ,p_object_version_number => p_object_version_number);
1019: --
1020: hr_utility.set_location(l_proc, 20);
1021: --
1022: -- Only proceed with validation if :
1023: -- a) The current g_old_rec is current and
1024: -- b) The value for actual_termination_date or last_standard_process_date
1032: <> nvl(p_last_standard_process_date, hr_api.g_date))))
1033: or
1034: NOT l_api_updating then
1035: --
1036: hr_utility.set_location(l_proc, 30);
1037: --
1038: open csr_get_legislation_code;
1039: fetch csr_get_legislation_code
1040: into l_legislation_code;
1043: then
1044: --
1045: close csr_get_legislation_code;
1046: --
1047: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1048: hr_utility.set_message_token('PROCEDURE', l_proc);
1049: hr_utility.set_message_token('STEP', '5');
1050: hr_utility.raise_error;
1051: end if;
1044: --
1045: close csr_get_legislation_code;
1046: --
1047: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1048: hr_utility.set_message_token('PROCEDURE', l_proc);
1049: hr_utility.set_message_token('STEP', '5');
1050: hr_utility.raise_error;
1051: end if;
1052: --
1045: close csr_get_legislation_code;
1046: --
1047: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1048: hr_utility.set_message_token('PROCEDURE', l_proc);
1049: hr_utility.set_message_token('STEP', '5');
1050: hr_utility.raise_error;
1051: end if;
1052: --
1053: close csr_get_legislation_code;
1046: --
1047: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1048: hr_utility.set_message_token('PROCEDURE', l_proc);
1049: hr_utility.set_message_token('STEP', '5');
1050: hr_utility.raise_error;
1051: end if;
1052: --
1053: close csr_get_legislation_code;
1054: --
1051: end if;
1052: --
1053: close csr_get_legislation_code;
1054: --
1055: hr_utility.set_location(l_proc, 50);
1056: --
1057: if l_legislation_code <> 'US' then
1058: --
1059: -- Check combination when either actual_termination_date or
1062: if (per_pds_shd.g_old_rec.actual_termination_date is null
1063: and p_actual_termination_date is not null)
1064: and p_last_standard_process_date is null
1065: then
1066: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
1067: hr_utility.raise_error;
1068: end if;
1069: --
1070: end if;
1063: and p_actual_termination_date is not null)
1064: and p_last_standard_process_date is null
1065: then
1066: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
1067: hr_utility.raise_error;
1068: end if;
1069: --
1070: end if;
1071: --
1070: end if;
1071: --
1072: end if;
1073: --
1074: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1075: end chk_at_date_lsp_date; */
1076: --
1077: -- ---------------------------------------------------------------------------
1078: -- |-------------------------< chk_leaving_reason >--------------------------|
1118: l_proc varchar2(72) := g_package||'chk_leaving_reason';
1119: l_rec per_pds_shd.g_rec_type;
1120: --
1121: begin
1122: hr_utility.set_location('Entering:'|| l_proc, 1);
1123: --
1124: hr_api.mandatory_arg_error
1125: (p_api_name => l_proc
1126: ,p_argument => 'effective date'
1132: l_api_updating := per_pds_shd.api_updating
1133: (p_period_of_service_id => p_period_of_service_id
1134: ,p_object_version_number => p_object_version_number);
1135: --
1136: hr_utility.set_location(l_proc, 2);
1137: --
1138: if l_api_updating
1139: and p_leaving_reason is not null
1140: then
1151: ,p_lookup_type => 'LEAV_REAS'
1152: ,p_lookup_code => p_leaving_reason
1153: ) then
1154: -- Error - Invalid Leaving Reason
1155: hr_utility.set_location(l_proc, 3);
1156: hr_utility.set_message(801,'HR_7485_PDS_INV_LR');
1157: hr_utility.raise_error;
1158: end if;
1159: --
1152: ,p_lookup_code => p_leaving_reason
1153: ) then
1154: -- Error - Invalid Leaving Reason
1155: hr_utility.set_location(l_proc, 3);
1156: hr_utility.set_message(801,'HR_7485_PDS_INV_LR');
1157: hr_utility.raise_error;
1158: end if;
1159: --
1160: end if;
1153: ) then
1154: -- Error - Invalid Leaving Reason
1155: hr_utility.set_location(l_proc, 3);
1156: hr_utility.set_message(801,'HR_7485_PDS_INV_LR');
1157: hr_utility.raise_error;
1158: end if;
1159: --
1160: end if;
1161: --
1166: if not (p_leaving_reason is null)
1167: then
1168: -- CHK_LEAVING_REASON / b
1169: --
1170: hr_utility.set_message(801,'HR_7489_PDS_INV_LR_BLANK');
1171: hr_utility.raise_error;
1172: end if;
1173: --
1174: end if;
1167: then
1168: -- CHK_LEAVING_REASON / b
1169: --
1170: hr_utility.set_message(801,'HR_7489_PDS_INV_LR_BLANK');
1171: hr_utility.raise_error;
1172: end if;
1173: --
1174: end if;
1175: --
1172: end if;
1173: --
1174: end if;
1175: --
1176: hr_utility.set_location(' Leaving:'|| l_proc, 3);
1177: end chk_leaving_reason;
1178: --
1179: -- ---------------------------------------------------------------------------
1180: -- |--------------------< chk_notified_termination_date >--------------------|
1220: l_api_updating boolean;
1221: l_proc varchar2(72) := g_package||'chk_notified_termination_date';
1222: --
1223: begin
1224: hr_utility.set_location('Entering:'|| l_proc, 1);
1225: --
1226: -- Check mandatory parameters have been set
1227: --
1228: hr_api.mandatory_arg_error
1230: ,p_argument => 'date_start'
1231: ,p_argument_value => p_date_start
1232: );
1233: --
1234: hr_utility.set_location(l_proc, 2);
1235: --
1236: -- 70.1 change a start.
1237: --
1238: if not (nvl(p_notified_termination_date, hr_api.g_eot) >=
1242: --
1243: then
1244: -- CHK_NOTIFIED_TERMINATION_DATE / b
1245: --
1246: hr_utility.set_message(801,'HR_7486_PDS_INV_NFT_DT_ST');
1247: hr_utility.raise_error;
1248: end if;
1249: --
1250: hr_utility.set_location(l_proc, 5);
1243: then
1244: -- CHK_NOTIFIED_TERMINATION_DATE / b
1245: --
1246: hr_utility.set_message(801,'HR_7486_PDS_INV_NFT_DT_ST');
1247: hr_utility.raise_error;
1248: end if;
1249: --
1250: hr_utility.set_location(l_proc, 5);
1251: --
1246: hr_utility.set_message(801,'HR_7486_PDS_INV_NFT_DT_ST');
1247: hr_utility.raise_error;
1248: end if;
1249: --
1250: hr_utility.set_location(l_proc, 5);
1251: --
1252: -- Check to see if record updated.
1253: --
1254: l_api_updating := per_pds_shd.api_updating
1259: then
1260: --
1261: -- Not updating => inserting
1262: --
1263: hr_utility.set_location(l_proc, 6);
1264: --
1265: if not (p_notified_termination_date is null)
1266: then
1267: -- CHK_NOTIFIED_TERMINATION_DATE / a
1265: if not (p_notified_termination_date is null)
1266: then
1267: -- CHK_NOTIFIED_TERMINATION_DATE / a
1268: --
1269: hr_utility.set_message(801,'HR_7487_PDS_INV_NFT_DT_BLANK');
1270: hr_utility.raise_error;
1271: end if;
1272: --
1273: end if;
1266: then
1267: -- CHK_NOTIFIED_TERMINATION_DATE / a
1268: --
1269: hr_utility.set_message(801,'HR_7487_PDS_INV_NFT_DT_BLANK');
1270: hr_utility.raise_error;
1271: end if;
1272: --
1273: end if;
1274: --
1271: end if;
1272: --
1273: end if;
1274: --
1275: hr_utility.set_location(' Leaving:'|| l_proc, 7);
1276: end chk_notified_termination_date;
1277: --
1278: -- ---------------------------------------------------------------------------
1279: -- |---------------------------< chk_person_id >----------------------------|
1315: l_proc varchar2(72) := g_package||'chk_person_id';
1316: l_rec per_pds_shd.g_rec_type;
1317: --
1318: begin
1319: hr_utility.set_location('Entering:'|| l_proc, 1);
1320: --
1321: -- CHK_PERSON_ID / a
1322: --
1323: hr_api.mandatory_arg_error
1324: (p_api_name => l_proc
1325: ,p_argument => 'person_id'
1326: ,p_argument_value => p_person_id
1327: );
1328: hr_utility.set_location(l_proc, 2);
1329: --
1330: if not (p_person_id <>
1331: nvl(p_termination_accepted_person, hr_api.g_number))
1332: then
1331: nvl(p_termination_accepted_person, hr_api.g_number))
1332: then
1333: -- CHK_PERSON_ID / c
1334: --
1335: hr_utility.set_message(801,'HR_7488_PDS_INV_TAP_ID');
1336: hr_utility.raise_error;
1337: end if;
1338: --
1339: hr_utility.set_location(' Leaving:'|| l_proc, 4);
1332: then
1333: -- CHK_PERSON_ID / c
1334: --
1335: hr_utility.set_message(801,'HR_7488_PDS_INV_TAP_ID');
1336: hr_utility.raise_error;
1337: end if;
1338: --
1339: hr_utility.set_location(' Leaving:'|| l_proc, 4);
1340: end chk_person_id;
1335: hr_utility.set_message(801,'HR_7488_PDS_INV_TAP_ID');
1336: hr_utility.raise_error;
1337: end if;
1338: --
1339: hr_utility.set_location(' Leaving:'|| l_proc, 4);
1340: end chk_person_id;
1341: --
1342: -- ---------------------------------------------------------------------------
1343: -- |-----------------------< chk_person_id_date_start >----------------------|
1395: and pt.person_type_id = p.person_type_id
1396: and pt.system_person_type in ('EMP', 'EMP_APL');
1397: --
1398: begin
1399: hr_utility.set_location('Entering:'|| l_proc, 1);
1400: --
1401: -- Check mandatory parameters have been set
1402: --
1403: hr_api.mandatory_arg_error
1404: (p_api_name => l_proc
1405: ,p_argument => 'person_id'
1406: ,p_argument_value => p_person_id
1407: );
1408: hr_utility.set_location(l_proc, 4);
1409: --
1410: hr_api.mandatory_arg_error
1411: (p_api_name => l_proc
1412: ,p_argument => 'date_start'
1411: (p_api_name => l_proc
1412: ,p_argument => 'date_start'
1413: ,p_argument_value => p_date_start
1414: );
1415: hr_utility.set_location(l_proc, 5);
1416: --
1417: -- Check to see if record updated.
1418: --
1419: l_api_updating := per_pds_shd.api_updating
1425: --
1426: -- Check that the Person ID and Date Start combination does not exist
1427: -- on PER_PERIODS_OF_SERVICE
1428: --
1429: hr_utility.set_location(l_proc, 6);
1430: --
1431: open csr_new_pers_date;
1432: --
1433: fetch csr_new_pers_date into l_exists;
1436: then
1437: -- CHK_PERSON_ID_DATE_START / a
1438: --
1439: close csr_new_pers_date;
1440: hr_utility.set_message(801, 'HR_6796_EMP_POS_EXISTS');
1441: hr_utility.raise_error;
1442: end if;
1443: --
1444: close csr_new_pers_date;
1437: -- CHK_PERSON_ID_DATE_START / a
1438: --
1439: close csr_new_pers_date;
1440: hr_utility.set_message(801, 'HR_6796_EMP_POS_EXISTS');
1441: hr_utility.raise_error;
1442: end if;
1443: --
1444: close csr_new_pers_date;
1445: end if;
1443: --
1444: close csr_new_pers_date;
1445: end if;
1446: --
1447: hr_utility.set_location(l_proc, 7);
1448: --
1449: -- Check that the Person ID and Date Start combination exists
1450: -- on PER_ALL_PEOPLE_F for system_person_type of 'EMP' or 'EMP_APL'.
1451: --
1457: then
1458: -- CHK_PERSON_ID_DATE_START / b
1459: --
1460: close csr_valid_pers_date;
1461: hr_utility.set_message(801, 'HR_7490_PDS_INV_P_DT_ST');
1462: hr_utility.raise_error;
1463: end if;
1464: --
1465: close csr_valid_pers_date;
1458: -- CHK_PERSON_ID_DATE_START / b
1459: --
1460: close csr_valid_pers_date;
1461: hr_utility.set_message(801, 'HR_7490_PDS_INV_P_DT_ST');
1462: hr_utility.raise_error;
1463: end if;
1464: --
1465: close csr_valid_pers_date;
1466: --
1463: end if;
1464: --
1465: close csr_valid_pers_date;
1466: --
1467: hr_utility.set_location(' Leaving:'|| l_proc, 9);
1468: end chk_person_id_date_start;
1469: --
1470: -- ---------------------------------------------------------------------------
1471: -- |-------------------< chk_projected_termination_date >--------------------|
1511: l_api_updating boolean;
1512: l_proc varchar2(72) := g_package||'chk_projected_termination_date';
1513: --
1514: begin
1515: hr_utility.set_location('Entering:'|| l_proc, 1);
1516: --
1517: -- Check mandatory parameters have been set
1518: --
1519: hr_api.mandatory_arg_error
1521: ,p_argument => 'date_start'
1522: ,p_argument_value => p_date_start
1523: );
1524: --
1525: hr_utility.set_location(l_proc, 2);
1526: --
1527: -- 70.1 change a start.
1528: --
1529: if not (nvl(p_projected_termination_date, hr_api.g_eot) >=
1533: --
1534: then
1535: -- CHK_PROJECTED_TERMINATION_DATE / b
1536: --
1537: hr_utility.set_message(801,'HR_7491_PDS_INV_PJT_DT_ST');
1538: hr_utility.raise_error;
1539: end if;
1540: --
1541: hr_utility.set_location(l_proc, 5);
1534: then
1535: -- CHK_PROJECTED_TERMINATION_DATE / b
1536: --
1537: hr_utility.set_message(801,'HR_7491_PDS_INV_PJT_DT_ST');
1538: hr_utility.raise_error;
1539: end if;
1540: --
1541: hr_utility.set_location(l_proc, 5);
1542: --
1537: hr_utility.set_message(801,'HR_7491_PDS_INV_PJT_DT_ST');
1538: hr_utility.raise_error;
1539: end if;
1540: --
1541: hr_utility.set_location(l_proc, 5);
1542: --
1543: -- Check to see if record updated.
1544: --
1545: l_api_updating := per_pds_shd.api_updating
1548: --
1549: if not l_api_updating
1550: then
1551: --
1552: hr_utility.set_location(l_proc, 6);
1553: --
1554: if not (p_projected_termination_date is null)
1555: then
1556: -- CHK_PROJECTED_TERMINATION_DATE / a
1554: if not (p_projected_termination_date is null)
1555: then
1556: -- CHK_PROJECTED_TERMINATION_DATE / a
1557: --
1558: hr_utility.set_message(801,'HR_7499_PDS_INV_PJT_DT_BLANK');
1559: hr_utility.raise_error;
1560: end if;
1561: --
1562: end if;
1555: then
1556: -- CHK_PROJECTED_TERMINATION_DATE / a
1557: --
1558: hr_utility.set_message(801,'HR_7499_PDS_INV_PJT_DT_BLANK');
1559: hr_utility.raise_error;
1560: end if;
1561: --
1562: end if;
1563: --
1560: end if;
1561: --
1562: end if;
1563: --
1564: hr_utility.set_location(' Leaving:'|| l_proc, 7);
1565: end chk_projected_termination_date;
1566: --
1567: -- ---------------------------------------------------------------------------
1568: -- |-------------------< chk_termination_accepted_pers >---------------------|
1627: --
1628: -- Bug# 2810608 End here
1629: --
1630: begin
1631: hr_utility.set_location('Entering:'|| l_proc, 1);
1632: --
1633: -- Check mandatory parameters have been set
1634: --
1635: hr_api.mandatory_arg_error
1637: ,p_argument => 'person_id'
1638: ,p_argument_value => p_person_id
1639: );
1640: --
1641: hr_utility.set_location(l_proc, 5);
1642: --
1643: -- Check to see if record updated.
1644: --
1645: l_api_updating := per_pds_shd.api_updating
1659: --
1660: if (nvl(p_termination_accepted_person, hr_api.g_number) =
1661: per_pds_shd.g_old_rec.person_id)
1662: then
1663: hr_utility.set_message(801,'HR_7488_PDS_INV_TAP_ID');
1664: hr_utility.raise_error;
1665: end if;
1666: --
1667: hr_utility.set_location(l_proc, 7);
1660: if (nvl(p_termination_accepted_person, hr_api.g_number) =
1661: per_pds_shd.g_old_rec.person_id)
1662: then
1663: hr_utility.set_message(801,'HR_7488_PDS_INV_TAP_ID');
1664: hr_utility.raise_error;
1665: end if;
1666: --
1667: hr_utility.set_location(l_proc, 7);
1668: --
1663: hr_utility.set_message(801,'HR_7488_PDS_INV_TAP_ID');
1664: hr_utility.raise_error;
1665: end if;
1666: --
1667: hr_utility.set_location(l_proc, 7);
1668: --
1669: open csr_valid_term_person;
1670: fetch csr_valid_term_person into l_exists;
1671: --
1673: --
1674: -- CHK_TERMINATION_ACCEPTED_PERSON_ID / a
1675: --
1676: close csr_valid_term_person;
1677: hr_utility.set_message(801,'HR_7500_PDS_INV_TAP_ID');
1678: hr_utility.raise_error;
1679: end if;
1680: --
1681: close csr_valid_term_person;
1674: -- CHK_TERMINATION_ACCEPTED_PERSON_ID / a
1675: --
1676: close csr_valid_term_person;
1677: hr_utility.set_message(801,'HR_7500_PDS_INV_TAP_ID');
1678: hr_utility.raise_error;
1679: end if;
1680: --
1681: close csr_valid_term_person;
1682: --
1679: end if;
1680: --
1681: close csr_valid_term_person;
1682: --
1683: hr_utility.set_location(l_proc, 9);
1684: --
1685: end if;
1686: --
1687: else
1687: else
1688: --
1689: -- Not updating => inserting.
1690: --
1691: hr_utility.set_location(l_proc, 13);
1692: --
1693: if not (p_termination_accepted_person is null)
1694: then
1695: -- CHK_TERMINATION_ACCEPTED_PERSON_ID / c
1693: if not (p_termination_accepted_person is null)
1694: then
1695: -- CHK_TERMINATION_ACCEPTED_PERSON_ID / c
1696: --
1697: hr_utility.set_message(801,'HR_7501_PDS_INV_TAP_BLANK');
1698: hr_utility.raise_error;
1699: end if;
1700: --
1701: end if;
1694: then
1695: -- CHK_TERMINATION_ACCEPTED_PERSON_ID / c
1696: --
1697: hr_utility.set_message(801,'HR_7501_PDS_INV_TAP_BLANK');
1698: hr_utility.raise_error;
1699: end if;
1700: --
1701: end if;
1702: --
1699: end if;
1700: --
1701: end if;
1702: --
1703: hr_utility.set_location(' Leaving:'|| l_proc, 15);
1704: end chk_termination_accepted_pers;
1705: --
1706: -- ----------------------------------------------------------------------------
1707: -- |----------------------< check_non_updateable_args >-----------------------|
1738: l_error exception;
1739: l_argument varchar2(30);
1740: --
1741: Begin
1742: hr_utility.set_location('Entering:'||l_proc, 5);
1743: --
1744: -- Only proceed with validation if a row exists for
1745: -- the current record in the HR Schema
1746: --
1748: (p_period_of_service_id => p_rec.period_of_service_id,
1749: p_object_version_number => p_rec.object_version_number)
1750: then
1751: --
1752: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1753: hr_utility.set_message_token('PROCEDURE', l_proc);
1754: hr_utility.set_message_token('STEP', '5');
1755: end if;
1756: --
1749: p_object_version_number => p_rec.object_version_number)
1750: then
1751: --
1752: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1753: hr_utility.set_message_token('PROCEDURE', l_proc);
1754: hr_utility.set_message_token('STEP', '5');
1755: end if;
1756: --
1757: hr_utility.set_location(l_proc, 6);
1750: then
1751: --
1752: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1753: hr_utility.set_message_token('PROCEDURE', l_proc);
1754: hr_utility.set_message_token('STEP', '5');
1755: end if;
1756: --
1757: hr_utility.set_location(l_proc, 6);
1758: --
1753: hr_utility.set_message_token('PROCEDURE', l_proc);
1754: hr_utility.set_message_token('STEP', '5');
1755: end if;
1756: --
1757: hr_utility.set_location(l_proc, 6);
1758: --
1759: if nvl(p_rec.business_group_id, hr_api.g_number) <>
1760: nvl(per_pds_shd.g_old_rec.business_group_id, hr_api.g_number)
1761: then
1764: l_argument := 'business_group_id';
1765: raise l_error;
1766: end if;
1767: --
1768: hr_utility.set_location(l_proc, 7);
1769: --
1770: if nvl(p_rec.period_of_service_id, hr_api.g_number) <>
1771: nvl(per_pds_shd.g_old_rec.period_of_service_id, hr_api.g_number)
1772: then
1775: l_argument := 'period_of_service_id';
1776: raise l_error;
1777: end if;
1778: --
1779: hr_utility.set_location(l_proc, 8);
1780: --
1781: if nvl(p_rec.person_id, hr_api.g_number) <>
1782: nvl(per_pds_shd.g_old_rec.person_id, hr_api.g_number)
1783: then
1786: l_argument := 'person_id';
1787: raise l_error;
1788: end if;
1789: --
1790: hr_utility.set_location(l_proc, 9);
1791: --
1792: exception
1793: when l_error
1794: then
1797: (p_api_name => l_proc
1798: ,p_argument => l_argument);
1799: when others then
1800: raise;
1801: hr_utility.set_location(' Leaving:'||l_proc, 12);
1802: end check_non_updateable_args;
1803: --
1804: -- ---------------------------------------------------------------------------
1805: -- |----------------------------< chk_df >---------------------------------|
1836: l_proc varchar2(72) := g_package||'chk_df';
1837: --
1838: begin
1839: --
1840: hr_utility.set_location('Entering:'||l_proc, 10);
1841: --
1842: -- if inserting and not required to validate flex data
1843: -- then ensure all flex data passed is null
1844: --
1844: --
1845: If ((p_rec.period_of_service_id is null) and
1846: (not p_validate_df_flex)) then
1847: --
1848: hr_utility.set_location(l_proc, 15);
1849: --
1850: If (not ( (p_rec.attribute_category is null) and
1851: (p_rec.attribute1 is null) and
1852: (p_rec.attribute2 is null) and
1868: (p_rec.attribute18 is null) and
1869: (p_rec.attribute19 is null) and
1870: (p_rec.attribute20 is null) ) )
1871: then
1872: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1873: hr_utility.set_message_token('PROCEDURE','chk_df');
1874: hr_utility.set_message_token('STEP',1);
1875: hr_utility.raise_error;
1876: End if;
1869: (p_rec.attribute19 is null) and
1870: (p_rec.attribute20 is null) ) )
1871: then
1872: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1873: hr_utility.set_message_token('PROCEDURE','chk_df');
1874: hr_utility.set_message_token('STEP',1);
1875: hr_utility.raise_error;
1876: End if;
1877: End if;
1870: (p_rec.attribute20 is null) ) )
1871: then
1872: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1873: hr_utility.set_message_token('PROCEDURE','chk_df');
1874: hr_utility.set_message_token('STEP',1);
1875: hr_utility.raise_error;
1876: End if;
1877: End if;
1878: --
1871: then
1872: hr_utility.set_message(800,'HR_6153_ALL_PROCEDURE_FAIL');
1873: hr_utility.set_message_token('PROCEDURE','chk_df');
1874: hr_utility.set_message_token('STEP',1);
1875: hr_utility.raise_error;
1876: End if;
1877: End if;
1878: --
1879: --
1964: ((p_rec.period_of_service_id is null) and
1965: (p_validate_df_flex))
1966: then
1967: --
1968: hr_utility.set_location(l_proc, 20);
1969: --
1970: -- validate flex segment values
1971: --
1972: hr_dflex_utility.ins_or_upd_descflex_attribs(
2015: ,p_attribute20_value => p_rec.attribute20
2016: );
2017: End if;
2018: --
2019: hr_utility.set_location(' Leaving:'||l_proc, 30);
2020: --
2021: end chk_df;
2022: --
2023: -- -----------------------------------------------------------------------
2057: l_proc varchar2(72) := g_package||'chk_ddf';
2058: l_error exception;
2059: --
2060: Begin
2061: hr_utility.set_location('Entering:'||l_proc, 5);
2062: --
2063: -- Check if the row is being inserted or updated and a
2064: -- value has changed
2065: --
2195: );
2196: --
2197: end if;
2198: --
2199: hr_utility.set_location(' Leaving:'||l_proc, 10);
2200: end chk_ddf;
2201: --
2202: -- --------------------------------------------------------------------------- -- ----------------------------------------------------------------------------
2203: -- |---------------------------< insert_validate >----------------------------|
2208: --
2209: l_proc varchar2(72) := g_package||'insert_validate';
2210: --
2211: Begin
2212: hr_utility.set_location('Entering:'||l_proc, 1);
2213: --
2214: -- Call all supporting business operations. Mapping to the appropriate
2215: -- Business Rules in perpds.bru is provided.
2216: --
2221: -- CHK_BUSINESS_GROUP_ID / a,c
2222: --
2223: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
2224: --
2225: hr_utility.set_location(l_proc, 2);
2226: --
2227: --
2228: -- Validate date start
2229: --
2232: -- CHK_DATE_START / a
2233: --
2234: per_pds_bus.chk_date_start(p_date_start => p_rec.date_start);
2235: --
2236: hr_utility.set_location(l_proc, 3);
2237: --
2238: --
2239: -- Validate person id
2240: --
2245: per_pds_bus.chk_person_id
2246: (p_person_id => p_rec.person_id,
2247: p_termination_accepted_person => p_rec.termination_accepted_person_id);
2248: --
2249: hr_utility.set_location(l_proc, 4);
2250: --
2251: --
2252: -- Validate date start
2253: --
2256: -- CHK_DATE_START / a
2257: --
2258: per_pds_bus.chk_date_start(p_date_start => p_rec.date_start);
2259: --
2260: hr_utility.set_location(l_proc, 5);
2261: --
2262: --
2263: -- Validate person id and date start combination
2264: --
2271: p_object_version_number => p_rec.object_version_number,
2272: p_person_id => p_rec.person_id,
2273: p_date_start => p_rec.date_start);
2274: --
2275: hr_utility.set_location(l_proc, 6);
2276: --
2277: --
2278: -- Validate accepted termination date
2279: --
2283: --
2284: per_pds_bus.chk_accepted_termination_date
2285: (p_accepted_termination_date => p_rec.accepted_termination_date);
2286: --
2287: hr_utility.set_location(l_proc, 7);
2288: --
2289: --
2290: -- Validate actual termination date
2291: --
2304: ,p_person_id => p_rec.person_id);
2305: --
2306: -- 70.3 change a end.
2307: --
2308: hr_utility.set_location(l_proc, 8);
2309: --
2310: --
2311: -- Validate last standard process date
2312: --
2323: ,p_last_standard_process_date => p_rec.last_standard_process_date
2324: ,p_object_version_number => p_rec.object_version_number
2325: ,p_period_of_service_id => p_rec.period_of_service_id
2326: );
2327: hr_utility.set_location(l_proc, 9);
2328: --
2329: --
2330: -- Validate final process date
2331: --
2343: --
2344: --
2345: -- 70.3 change c end.
2346: --
2347: hr_utility.set_location(l_proc, 10);
2348: --
2349: --
2350: -- Validate leaving reason
2351: --
2358: p_effective_date => p_effective_date,
2359: p_object_version_number => p_rec.object_version_number,
2360: p_period_of_service_id => p_rec.period_of_service_id);
2361: --
2362: hr_utility.set_location(l_proc, 11);
2363: --
2364: --
2365: -- Validate notified termination date
2366: --
2373: p_notified_termination_date => p_rec.notified_termination_date,
2374: p_object_version_number => p_rec.object_version_number,
2375: p_period_of_service_id => p_rec.period_of_service_id);
2376: --
2377: hr_utility.set_location(l_proc, 12);
2378: --
2379: --
2380: -- Validate projected termination date
2381: --
2388: p_period_of_service_id => p_rec.period_of_service_id,
2389: p_object_version_number => p_rec.object_version_number,
2390: p_projected_termination_date => p_rec.projected_termination_date);
2391: --
2392: hr_utility.set_location(l_proc, 13);
2393: --
2394: --
2395: -- Validate termination accepted person id
2396: --
2416: per_pds_bus.chk_df(p_rec => p_rec
2417: ,p_validate_df_flex => p_validate_df_flex);
2418: --
2419: --
2420: hr_utility.set_location(' Leaving:'||l_proc, 14);
2421: End insert_validate;
2422: --
2423: -- ----------------------------------------------------------------------------
2424: -- |---------------------------< update_validate >----------------------------|
2428: --
2429: l_proc varchar2(72) := g_package||'update_validate';
2430: --
2431: Begin
2432: hr_utility.set_location('Entering:'||l_proc, 1);
2433: --
2434: -- Check that the columns which cannot be updated have not changed.
2435: --
2436: -- Business Rule Mapping
2440: -- CHK_PERSON_ID / c
2441: --
2442: check_non_updateable_args(p_rec => p_rec);
2443: --
2444: hr_utility.set_location(l_proc, 2);
2445: --
2446: --
2447: -- Call all supporting business operations
2448: --
2453: -- CHK_BUSINESS_GROUP_ID / a,c
2454: --
2455: hr_api.validate_bus_grp_id(p_rec.business_group_id); -- Validate Bus Grp
2456: --
2457: hr_utility.set_location(l_proc, 3);
2458: --
2459: --
2460: -- Validate date start
2461: --
2464: -- CHK_DATE_START / a
2465: --
2466: per_pds_bus.chk_date_start(p_date_start => p_rec.date_start);
2467: --
2468: hr_utility.set_location(l_proc, 4);
2469: --
2470: --
2471: -- Validate person id and date start combination
2472: --
2479: p_object_version_number => p_rec.object_version_number,
2480: p_person_id => p_rec.person_id,
2481: p_date_start => p_rec.date_start);
2482: --
2483: hr_utility.set_location(l_proc, 5);
2484: --
2485: --
2486: -- Validate actual termination date
2487: --
2500: ,p_person_id => p_rec.person_id);
2501: --
2502: -- 70.3 change a end.
2503: --
2504: hr_utility.set_location(l_proc, 6);
2505: --
2506: --
2507: -- Validate last standard process date
2508: --
2520: ,p_last_standard_process_date => p_rec.last_standard_process_date
2521: ,p_object_version_number => p_rec.object_version_number
2522: ,p_period_of_service_id => p_rec.period_of_service_id
2523: );
2524: hr_utility.set_location(l_proc, 7);
2525: --
2526: -- Validate actual termination date/last standard process date
2527: --
2528: -- Business Rule Mapping
2536: ,p_object_version_number => p_rec.object_version_number
2537: ,p_period_of_service_id => p_rec.period_of_service_id
2538: ,p_business_group_id => p_rec.business_group_id
2539: );
2540: hr_utility.set_location(l_proc, 8); */
2541: --
2542: -- Validate final process date
2543: --
2544: -- Business Rule Mapping
2560: --
2561: --
2562: -- 70.3 change c end.
2563: --
2564: hr_utility.set_location(l_proc, 9);
2565: --
2566: --
2567: -- Validate leaving reason
2568: --
2575: p_effective_date => p_effective_date,
2576: p_object_version_number => p_rec.object_version_number,
2577: p_period_of_service_id => p_rec.period_of_service_id);
2578: --
2579: hr_utility.set_location(l_proc, 10);
2580: --
2581: --
2582: -- Validate notified termination date
2583: --
2590: p_notified_termination_date => p_rec.notified_termination_date,
2591: p_object_version_number => p_rec.object_version_number,
2592: p_period_of_service_id => p_rec.period_of_service_id);
2593: --
2594: hr_utility.set_location(l_proc, 11);
2595: --
2596: --
2597: -- Validate projected termination date
2598: --
2605: p_period_of_service_id => p_rec.period_of_service_id,
2606: p_object_version_number => p_rec.object_version_number,
2607: p_projected_termination_date => p_rec.projected_termination_date);
2608: --
2609: hr_utility.set_location(l_proc, 12);
2610: --
2611: --
2612: -- Validate termination accepted person id
2613: --
2632: -- Validate flex fields.
2633: --
2634: per_pds_bus.chk_df(p_rec => p_rec);
2635: --
2636: hr_utility.set_location(' Leaving:'||l_proc, 13);
2637: End update_validate;
2638: --
2639: -- ----------------------------------------------------------------------------
2640: -- |---------------------------< delete_validate >----------------------------|
2643: --
2644: l_proc varchar2(72) := g_package||'delete_validate';
2645: --
2646: Begin
2647: hr_utility.set_location('Entering:'||l_proc, 5);
2648: --
2649: -- Call all supporting business operations
2650: --
2651: hr_utility.set_location(' Leaving:'||l_proc, 10);
2647: hr_utility.set_location('Entering:'||l_proc, 5);
2648: --
2649: -- Call all supporting business operations
2650: --
2651: hr_utility.set_location(' Leaving:'||l_proc, 10);
2652: End delete_validate;
2653: --
2654: -- ---------------------------------------------------------------------------
2655: -- |---------------------< return_legislation_code >-------------------------|
2672: --
2673: l_legislation_code varchar2(150);
2674: l_proc varchar2(72) := g_package||'return_legislation_code';
2675: begin
2676: hr_utility.set_location('Entering:'|| l_proc, 10);
2677: --
2678: -- Ensure that all the mandatory parameter are not null
2679: --
2680: hr_api.mandatory_arg_error(p_api_name => l_proc,
2687: -- call to this function. Just return the value in the global
2688: -- variable.
2689: --
2690: l_legislation_code := g_legislation_code;
2691: hr_utility.set_location(l_proc, 20);
2692: else
2693: --
2694: -- The ID is different to the last call to this function
2695: -- or this is the first call to this function.
2700: close csr_leg_code;
2701: --
2702: -- The primary key is invalid therefore we must error
2703: --
2704: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
2705: hr_utility.raise_error;
2706: end if;
2707: --
2708: -- Set the global variables so the values are
2701: --
2702: -- The primary key is invalid therefore we must error
2703: --
2704: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
2705: hr_utility.raise_error;
2706: end if;
2707: --
2708: -- Set the global variables so the values are
2709: -- available for the next call to this function
2711: close csr_leg_code;
2712: g_period_of_service_id := p_period_of_service_id;
2713: g_legislation_code := l_legislation_code;
2714: end if;
2715: hr_utility.set_location(' Leaving:'|| l_proc, 20);
2716: --
2717: return l_legislation_code;
2718: end return_legislation_code;
2719: --