37: l_proc varchar2(72) := g_package||'set_security_group_id';
38: --
39: begin
40: --
41: hr_utility.set_location('Entering:'|| l_proc, 10);
42: --
43: -- Ensure that all the mandatory parameter are not null
44: --
45: hr_api.mandatory_arg_error
72: (p_security_group_id => l_security_group_id
73: );
74: end if;
75: --
76: hr_utility.set_location(' Leaving:'|| l_proc, 20);
77: --
78: end set_security_group_id;
79: --
80: -- ---------------------------------------------------------------------------
101: l_proc varchar2(72) := g_package||'return_legislation_code';
102: --
103: Begin
104: --
105: hr_utility.set_location('Entering:'|| l_proc, 10);
106: --
107: -- Ensure that all the mandatory parameter are not null
108: --
109: hr_api.mandatory_arg_error
119: -- call to this function. Just return the value in the global
120: -- variable.
121: --
122: l_legislation_code := per_pdp_bus.g_legislation_code;
123: hr_utility.set_location(l_proc, 20);
124: else
125: --
126: -- The ID is different to the last call to this function
127: -- or this is the first call to this function.
136: close csr_leg_code;
137: fnd_message.set_name('PAY','HR_7220_INVALID_PRIMARY_KEY');
138: fnd_message.raise_error;
139: end if;
140: hr_utility.set_location(l_proc,30);
141: --
142: -- Set the global variables so the values are
143: -- available for the next call to this function.
144: --
145: close csr_leg_code;
146: per_pdp_bus.g_period_of_placement_id := p_period_of_placement_id;
147: per_pdp_bus.g_legislation_code := l_legislation_code;
148: end if;
149: hr_utility.set_location(' Leaving:'|| l_proc, 40);
150: return l_legislation_code;
151: end return_legislation_code;
152: --
153: -- ---------------------------------------------------------------------------
168: l_proc varchar2(72) := g_package||'return_period_of_placement_id';
169: l_period_of_placement_id number;
170:
171: begin
172: hr_utility.set_location('Entering:'||l_proc, 5);
173:
174: open c_get_period_of_placement_id;
175: fetch c_get_period_of_placement_id into l_period_of_placement_id;
176: close c_get_period_of_placement_id;
186:
187: --
188: -- Return the period_of_placement_id
189: --
190: hr_utility.set_location('Leaving:'||l_proc, 10);
191:
192: return l_period_of_placement_id;
193:
194: end return_period_of_placement_id;
262: from per_all_people_f per
263: where per.person_id = p_person_id;
264: --
265: begin
266: hr_utility.set_location('Entering:'|| l_proc, 10);
267:
268: --
269: -- Only proceed with validation when the Multiple Message List
270: -- does not already contain an error associated with the
278: '.LAST_STANDARD_PROCESS_DATE'
279: ) then
280:
281: --
282: hr_utility.set_location(l_proc, 20);
283: --
284: -- Check to see if record updated.
285: --
286: l_api_updating := per_pdp_shd.api_updating
286: l_api_updating := per_pdp_shd.api_updating
287: (p_period_of_placement_id => p_period_of_placement_id
288: ,p_object_version_number => p_object_version_number);
289: --
290: hr_utility.set_location(l_proc, 30);
291: --
292: if l_api_updating
293: then
294: --
295: if nvl(per_pdp_shd.g_old_rec.actual_termination_date, hr_api.g_date) <>
296: nvl(p_actual_termination_date, hr_api.g_date)
297: and p_actual_termination_date is not null
298: then
299: hr_utility.set_location(l_proc, 40);
300: --
301: if per_pdp_shd.g_old_rec.actual_termination_date is not null
302: then
303: --
303: --
304: -- Cannot be changed from one not null value to another not null value.
305: -- CHK_ACTUAL_TERMINATION_DATE / d
306: --
307: hr_utility.set_message(801,'HR_7955_PDS_INV_ATT_CHANGE');
308: hr_utility.raise_error;
309: end if;
310: hr_utility.set_location(l_proc, 60);
311: --
304: -- Cannot be changed from one not null value to another not null value.
305: -- CHK_ACTUAL_TERMINATION_DATE / d
306: --
307: hr_utility.set_message(801,'HR_7955_PDS_INV_ATT_CHANGE');
308: hr_utility.raise_error;
309: end if;
310: hr_utility.set_location(l_proc, 60);
311: --
312: if p_actual_termination_date > p_last_standard_process_date and
306: --
307: hr_utility.set_message(801,'HR_7955_PDS_INV_ATT_CHANGE');
308: hr_utility.raise_error;
309: end if;
310: hr_utility.set_location(l_proc, 60);
311: --
312: if p_actual_termination_date > p_last_standard_process_date and
313: p_last_standard_process_date is not null then
314: --
313: p_last_standard_process_date is not null then
314: --
315: -- CHK_ACTUAL_TERMINATION_DATE / a
316: --
317: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
318: hr_utility.raise_error;
319: end if;
320: hr_utility.set_location(l_proc, 70);
321: --
314: --
315: -- CHK_ACTUAL_TERMINATION_DATE / a
316: --
317: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
318: hr_utility.raise_error;
319: end if;
320: hr_utility.set_location(l_proc, 70);
321: --
322: if not (nvl(p_actual_termination_date, hr_api.g_eot) >=
316: --
317: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
318: hr_utility.raise_error;
319: end if;
320: hr_utility.set_location(l_proc, 70);
321: --
322: if not (nvl(p_actual_termination_date, hr_api.g_eot) >=
323: p_date_start) then
324: --
323: p_date_start) then
324: --
325: -- CHK_ACTUAL_TERMINATION_DATE / b
326: --
327: hr_utility.set_message(801,'HR_7493_PDS_INV_ATT_DT_ST');
328: hr_utility.raise_error;
329: end if;
330: hr_utility.set_location(l_proc, 80);
331: --
324: --
325: -- CHK_ACTUAL_TERMINATION_DATE / b
326: --
327: hr_utility.set_message(801,'HR_7493_PDS_INV_ATT_DT_ST');
328: hr_utility.raise_error;
329: end if;
330: hr_utility.set_location(l_proc, 80);
331: --
332: -- Get the initial insert date of the latest assignment.
326: --
327: hr_utility.set_message(801,'HR_7493_PDS_INV_ATT_DT_ST');
328: hr_utility.raise_error;
329: end if;
330: hr_utility.set_location(l_proc, 80);
331: --
332: -- Get the initial insert date of the latest assignment.
333: --
334: open csr_get_max_asg_start_date;
338: --
339: if csr_get_max_asg_start_date%NOTFOUND then
340: --
341: close csr_get_max_asg_start_date;
342: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
343: hr_utility.set_message_token('PROCEDURE', l_proc);
344: hr_utility.set_message_token('STEP', '5');
345: hr_utility.raise_error;
346: --
339: if csr_get_max_asg_start_date%NOTFOUND then
340: --
341: close csr_get_max_asg_start_date;
342: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
343: hr_utility.set_message_token('PROCEDURE', l_proc);
344: hr_utility.set_message_token('STEP', '5');
345: hr_utility.raise_error;
346: --
347: elsif (p_actual_termination_date < l_effective_start_date) then
340: --
341: close csr_get_max_asg_start_date;
342: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
343: hr_utility.set_message_token('PROCEDURE', l_proc);
344: hr_utility.set_message_token('STEP', '5');
345: hr_utility.raise_error;
346: --
347: elsif (p_actual_termination_date < l_effective_start_date) then
348: --
341: close csr_get_max_asg_start_date;
342: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
343: hr_utility.set_message_token('PROCEDURE', l_proc);
344: hr_utility.set_message_token('STEP', '5');
345: hr_utility.raise_error;
346: --
347: elsif (p_actual_termination_date < l_effective_start_date) then
348: --
349: -- CHK_ACTUAL_TERMINATION_DATE / e
348: --
349: -- CHK_ACTUAL_TERMINATION_DATE / e
350: --
351: close csr_get_max_asg_start_date;
352: hr_utility.set_message(801,'HR_7956_PDS_INV_ATT_DT_EARLY');
353: hr_utility.raise_error;
354: end if;
355: close csr_get_max_asg_start_date;
356: hr_utility.set_location(l_proc, 110);
349: -- CHK_ACTUAL_TERMINATION_DATE / e
350: --
351: close csr_get_max_asg_start_date;
352: hr_utility.set_message(801,'HR_7956_PDS_INV_ATT_DT_EARLY');
353: hr_utility.raise_error;
354: end if;
355: close csr_get_max_asg_start_date;
356: hr_utility.set_location(l_proc, 110);
357: --
352: hr_utility.set_message(801,'HR_7956_PDS_INV_ATT_DT_EARLY');
353: hr_utility.raise_error;
354: end if;
355: close csr_get_max_asg_start_date;
356: hr_utility.set_location(l_proc, 110);
357: --
358: -- Get the latest effective start date for any person future changes.
359: --
360: open csr_get_max_per_eff_date;
363: close csr_get_max_per_eff_date;
364: --
365: if l_effective_start_date is null then
366: --
367: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
368: hr_utility.set_message_token('PROCEDURE', l_proc);
369: hr_utility.set_message_token('STEP', '10');
370: hr_utility.raise_error;
371: --
364: --
365: if l_effective_start_date is null then
366: --
367: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
368: hr_utility.set_message_token('PROCEDURE', l_proc);
369: hr_utility.set_message_token('STEP', '10');
370: hr_utility.raise_error;
371: --
372: elsif not (p_actual_termination_date >= l_effective_start_date) then
365: if l_effective_start_date is null then
366: --
367: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
368: hr_utility.set_message_token('PROCEDURE', l_proc);
369: hr_utility.set_message_token('STEP', '10');
370: hr_utility.raise_error;
371: --
372: elsif not (p_actual_termination_date >= l_effective_start_date) then
373: --
366: --
367: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
368: hr_utility.set_message_token('PROCEDURE', l_proc);
369: hr_utility.set_message_token('STEP', '10');
370: hr_utility.raise_error;
371: --
372: elsif not (p_actual_termination_date >= l_effective_start_date) then
373: --
374: -- CHK_ACTUAL_TERMINATION_DATE / f
374: -- CHK_ACTUAL_TERMINATION_DATE / f
375: --
376: -- ER FPT
377: if (nvl(fnd_profile.value('HR_ALLOW_FPT_UPDATES'),'N') = 'N') then
378: hr_utility.set_message(801,'HR_7957_PDS_INV_ATT_FUTURE');
379: hr_utility.raise_error;
380: end if;
381: end if;
382: end if;
375: --
376: -- ER FPT
377: if (nvl(fnd_profile.value('HR_ALLOW_FPT_UPDATES'),'N') = 'N') then
378: hr_utility.set_message(801,'HR_7957_PDS_INV_ATT_FUTURE');
379: hr_utility.raise_error;
380: end if;
381: end if;
382: end if;
383: --
382: end if;
383: --
384: end if;
385: --
386: hr_utility.set_location(' Leaving:'|| l_proc, 120);
387:
388: end if; -- end multi_message if
389:
390: exception
396: when app_exception.application_exception then
397: if hr_multi_message.exception_add
398: (p_same_associated_columns => 'Y'
399: ) then
400: hr_utility.set_location(' Leaving:'|| l_proc, 130);
401: raise;
402: end if;
403: hr_utility.set_location(' Leaving:'|| l_proc, 140);
404:
399: ) then
400: hr_utility.set_location(' Leaving:'|| l_proc, 130);
401: raise;
402: end if;
403: hr_utility.set_location(' Leaving:'|| l_proc, 140);
404:
405: end chk_actual_termination_date;
406: --
407: -- ---------------------------------------------------------------------------
440: --
441: l_proc varchar2(72) := g_package||'chk_date_start';
442: --
443: begin
444: hr_utility.set_location('Entering:'|| l_proc, 10);
445: --
446: -- CHK_DATE_START / a
447: --
448: hr_api.mandatory_arg_error
450: ,p_argument => 'date_start'
451: ,p_argument_value => p_date_start
452: );
453: --
454: hr_utility.set_location(' Leaving:'|| l_proc, 20);
455:
456: exception
457: when app_exception.application_exception then
458: if hr_multi_message.exception_add
457: when app_exception.application_exception then
458: if hr_multi_message.exception_add
459: (p_associated_column1 => per_pdp_shd.g_tab_nam||'.DATE_START'
460: ) then
461: hr_utility.set_location(' Leaving:'|| l_proc, 30);
462: raise;
463: end if;
464: hr_utility.set_location(' Leaving:'|| l_proc, 40);
465:
460: ) then
461: hr_utility.set_location(' Leaving:'|| l_proc, 30);
462: raise;
463: end if;
464: hr_utility.set_location(' Leaving:'|| l_proc, 40);
465:
466: end chk_date_start;
467: --
468: -- ---------------------------------------------------------------------------
504: l_proc varchar2(72) := g_package||'chk_projected_term_date';
505: l_api_updating boolean;
506: --
507: begin
508: hr_utility.set_location('Entering:'|| l_proc, 10);
509: --
510: -- Check to see if record updated.
511: --
512: l_api_updating := per_pdp_shd.api_updating
512: l_api_updating := per_pdp_shd.api_updating
513: (p_period_of_placement_id => p_period_of_placement_id
514: ,p_object_version_number => p_object_version_number);
515: --
516: hr_utility.set_location('Entering:'|| l_proc, 20);
517: --
518: if (l_api_updating
519: AND (nvl(per_pdp_shd.g_old_rec.projected_termination_date, hr_api.g_date) <>
520: nvl(p_projected_termination_date, hr_api.g_date)))
524: then
525: --
526: -- CHK_PROJECTED_TERM_DATE / a
527: --
528: hr_utility.set_message(800,'HR_289745_ERR_PLACEMENT_DATE');
529: hr_utility.raise_error;
530: end if;
531: end if;
532: --
525: --
526: -- CHK_PROJECTED_TERM_DATE / a
527: --
528: hr_utility.set_message(800,'HR_289745_ERR_PLACEMENT_DATE');
529: hr_utility.raise_error;
530: end if;
531: end if;
532: --
533: hr_utility.set_location(' Leaving:'|| l_proc, 30);
529: hr_utility.raise_error;
530: end if;
531: end if;
532: --
533: hr_utility.set_location(' Leaving:'|| l_proc, 30);
534: exception
535: when app_exception.application_exception then
536: if hr_multi_message.exception_add
537: (p_associated_column1 => per_pdp_shd.g_tab_nam||'.PROJECTED_TERMINATION_DATE'
535: when app_exception.application_exception then
536: if hr_multi_message.exception_add
537: (p_associated_column1 => per_pdp_shd.g_tab_nam||'.PROJECTED_TERMINATION_DATE'
538: ) then
539: hr_utility.set_location(' Leaving:'|| l_proc, 40);
540: raise;
541: end if;
542: hr_utility.set_location(' Leaving:'|| l_proc, 50);
543: end chk_projected_term_date;
538: ) then
539: hr_utility.set_location(' Leaving:'|| l_proc, 40);
540: raise;
541: end if;
542: hr_utility.set_location(' Leaving:'|| l_proc, 50);
543: end chk_projected_term_date;
544: --
545: -- ---------------------------------------------------------------------------
546: -- |------------------------
595: l_max_end_date date;
596: l_proc varchar2(72) := g_package||'chk_final_process_date';
597: --
598: begin
599: hr_utility.set_location('Entering:'|| l_proc, 1);
600:
601: --
602: -- Only proceed with validation when the Multiple Message List
603: -- does not already contain an error associated with the
620: l_api_updating := per_pdp_shd.api_updating
621: (p_period_of_placement_id => p_period_of_placement_id
622: ,p_object_version_number => p_object_version_number);
623: --
624: hr_utility.set_location(l_proc, 5);
625: --
626: if l_api_updating
627: then
628: --
629: if nvl(per_pdp_shd.g_old_rec.final_process_date, hr_api.g_date) <>
630: nvl(p_final_process_date, hr_api.g_date)
631: then
632: --
633: hr_utility.set_location(l_proc, 6);
634: --
635: --
636: if per_pdp_shd.g_old_rec.final_process_date is not null
637: and p_final_process_date is not null
637: and p_final_process_date is not null
638: then
639: -- CHK_FINAL_PROCESS_DATE / g
640: --
641: hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
642: hr_utility.raise_error;
643: end if;
644: --
645: hr_utility.set_location(l_proc, 50);
638: then
639: -- CHK_FINAL_PROCESS_DATE / g
640: --
641: hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
642: hr_utility.raise_error;
643: end if;
644: --
645: hr_utility.set_location(l_proc, 50);
646: if p_actual_termination_date is null
641: hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
642: hr_utility.raise_error;
643: end if;
644: --
645: hr_utility.set_location(l_proc, 50);
646: if p_actual_termination_date is null
647: then
648: --
649: if not (p_final_process_date is null)
649: if not (p_final_process_date is null)
650: then
651: -- CHK_FINAL_PROCESS_DATE / d
652: --
653: hr_utility.set_message(801,'HR_7503_PDS_INV_FP_DT_BLANK');
654: hr_utility.raise_error;
655: end if;
656: --
657: end if;
650: then
651: -- CHK_FINAL_PROCESS_DATE / d
652: --
653: hr_utility.set_message(801,'HR_7503_PDS_INV_FP_DT_BLANK');
654: hr_utility.raise_error;
655: end if;
656: --
657: end if;
658: --
655: end if;
656: --
657: end if;
658: --
659: hr_utility.set_location(l_proc, 7);
660: --
661: if p_last_standard_process_date is null
662: then
663: --
660: --
661: if p_last_standard_process_date is null
662: then
663: --
664: hr_utility.set_location(l_proc, 8);
665: --
666: if not (nvl(p_final_process_date, hr_api.g_eot) >=
667: nvl(p_actual_termination_date, hr_api.g_eot))
668: then
667: nvl(p_actual_termination_date, hr_api.g_eot))
668: then
669: -- CHK_FINAL_PROCESS_DATE / f
670: --
671: hr_utility.set_message(801,'HR_7963_PDS_INV_FP_BEFORE_ATT');
672: hr_utility.raise_error;
673: end if;
674: else
675: --
668: then
669: -- CHK_FINAL_PROCESS_DATE / f
670: --
671: hr_utility.set_message(801,'HR_7963_PDS_INV_FP_BEFORE_ATT');
672: hr_utility.raise_error;
673: end if;
674: else
675: --
676: if not (nvl(p_final_process_date, hr_api.g_eot) >=
678: --
679: then
680: -- CHK_FINAL_PROCESS_DATE / c
681: --
682: hr_utility.set_message(801,'HR_7504_PDS_INV_FP_LSP_DT');
683: hr_utility.raise_error;
684: end if;
685: end if;
686: --
679: then
680: -- CHK_FINAL_PROCESS_DATE / c
681: --
682: hr_utility.set_message(801,'HR_7504_PDS_INV_FP_LSP_DT');
683: hr_utility.raise_error;
684: end if;
685: end if;
686: --
687: hr_utility.set_location(l_proc, 8);
683: hr_utility.raise_error;
684: end if;
685: end if;
686: --
687: hr_utility.set_location(l_proc, 8);
688: --
689: end if;
690: end if;
691: --
688: --
689: end if;
690: end if;
691: --
692: hr_utility.set_location(' Leaving:'|| l_proc, 14);
693:
694: end if; -- end multi_message if
695:
696: exception
702: when app_exception.application_exception then
703: if hr_multi_message.exception_add
704: (p_same_associated_columns => 'Y'
705: ) then
706: hr_utility.set_location(' Leaving:'|| l_proc, 20);
707: raise;
708: end if;
709: hr_utility.set_location(' Leaving:'|| l_proc, 30);
710:
705: ) then
706: hr_utility.set_location(' Leaving:'|| l_proc, 20);
707: raise;
708: end if;
709: hr_utility.set_location(' Leaving:'|| l_proc, 30);
710:
711: end chk_final_process_date;
712: --
713: -- ---------------------------------------------------------------------------
772: -- Bug 3387328. Used _perf view to increase perfomance.
773: --
774: --
775: begin
776: hr_utility.set_location('Entering:'|| l_proc, 1);
777: --
778: --
779: -- Check to see if record updated.
780: --
781: l_api_updating := per_pdp_shd.api_updating
782: (p_period_of_placement_id => p_period_of_placement_id
783: ,p_object_version_number => p_object_version_number);
784: --
785: hr_utility.set_location(l_proc, 20);
786: --
787: if l_api_updating
788: then
789: --
790: if nvl(per_pdp_shd.g_old_rec.last_standard_process_date, hr_api.g_date) <>
791: nvl(p_last_standard_process_date, hr_api.g_date)
792: then
793: --
794: hr_utility.set_location(l_proc, 30);
795: --
796: if per_pdp_shd.g_old_rec.last_standard_process_date is not null
797: and p_last_standard_process_date is not null
798: then
797: and p_last_standard_process_date is not null
798: then
799: -- CHK_LAST_STANDARD_PROCESS_DATE / i
800: --
801: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
802: hr_utility.raise_error;
803: end if;
804: --
805: hr_utility.set_location(l_proc, 40);
798: then
799: -- CHK_LAST_STANDARD_PROCESS_DATE / i
800: --
801: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
802: hr_utility.raise_error;
803: end if;
804: --
805: hr_utility.set_location(l_proc, 40);
806: --
801: hr_utility.set_message(801,'HR_7960_PDS_INV_LSP_CHANGE');
802: hr_utility.raise_error;
803: end if;
804: --
805: hr_utility.set_location(l_proc, 40);
806: --
807: open csr_get_legislation_code;
808: fetch csr_get_legislation_code
809: into l_legislation_code;
812: then
813: --
814: close csr_get_legislation_code;
815: --
816: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
817: hr_utility.set_message_token('PROCEDURE', l_proc);
818: hr_utility.set_message_token('STEP', '5');
819: hr_utility.raise_error;
820: end if;
813: --
814: close csr_get_legislation_code;
815: --
816: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
817: hr_utility.set_message_token('PROCEDURE', l_proc);
818: hr_utility.set_message_token('STEP', '5');
819: hr_utility.raise_error;
820: end if;
821: --
814: close csr_get_legislation_code;
815: --
816: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
817: hr_utility.set_message_token('PROCEDURE', l_proc);
818: hr_utility.set_message_token('STEP', '5');
819: hr_utility.raise_error;
820: end if;
821: --
822: close csr_get_legislation_code;
815: --
816: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
817: hr_utility.set_message_token('PROCEDURE', l_proc);
818: hr_utility.set_message_token('STEP', '5');
819: hr_utility.raise_error;
820: end if;
821: --
822: close csr_get_legislation_code;
823: --
820: end if;
821: --
822: close csr_get_legislation_code;
823: --
824: hr_utility.set_location(l_proc, 50);
825: --
826: -- Bug 1711085. VS. 27-Mar-2001. Commented out the code that disables
827: -- last_standard_process for US legislature.
828: /* if l_legislation_code = 'US'
827: -- last_standard_process for US legislature.
828: /* if l_legislation_code = 'US'
829: then
830: --
831: hr_utility.set_location(l_proc, 60);
832: --
833: if not (p_last_standard_process_date is null)
834: then
835: -- CHK_LAST_STANDARD_PROCESS_DATE / g
833: if not (p_last_standard_process_date is null)
834: then
835: -- CHK_LAST_STANDARD_PROCESS_DATE / g
836: --
837: hr_utility.set_message(801,'HR_7958_PDS_INV_US_LSP_BLANK');
838: hr_utility.raise_error;
839: end if;
840: end if;
841: */
834: then
835: -- CHK_LAST_STANDARD_PROCESS_DATE / g
836: --
837: hr_utility.set_message(801,'HR_7958_PDS_INV_US_LSP_BLANK');
838: hr_utility.raise_error;
839: end if;
840: end if;
841: */
842: --
846: if not (p_last_standard_process_date is null)
847: then
848: -- CHK_LAST_STANDARD_PROCESS_DATE / f
849: --
850: hr_utility.set_message(801,'HR_7497_PDS_INV_LSP_DT_BLANK');
851: hr_utility.raise_error;
852: end if;
853: --
854: end if;
847: then
848: -- CHK_LAST_STANDARD_PROCESS_DATE / f
849: --
850: hr_utility.set_message(801,'HR_7497_PDS_INV_LSP_DT_BLANK');
851: hr_utility.raise_error;
852: end if;
853: --
854: end if;
855: --
852: end if;
853: --
854: end if;
855: --
856: hr_utility.set_location(l_proc, 80);
857: --
858: if not (nvl(p_last_standard_process_date, hr_api.g_eot) >=
859: nvl(p_actual_termination_date, hr_api.g_eot))
860: --
860: --
861: then
862: -- CHK_LAST_STANDARD_PROCESS_DATE / c
863: --
864: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
865: hr_utility.raise_error;
866: end if;
867: --
868: hr_utility.set_location(l_proc, 90);
861: then
862: -- CHK_LAST_STANDARD_PROCESS_DATE / c
863: --
864: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
865: hr_utility.raise_error;
866: end if;
867: --
868: hr_utility.set_location(l_proc, 90);
869: --
864: hr_utility.set_message(801,'HR_7505_PDS_INV_LSP_ATT_DT');
865: hr_utility.raise_error;
866: end if;
867: --
868: hr_utility.set_location(l_proc, 90);
869: --
870: end if;
871: --
872: if (nvl(per_pdp_shd.g_old_rec.actual_termination_date, hr_api.g_date) <>
873: nvl(p_actual_termination_date,hr_api.g_date) )
874: and (p_actual_termination_date is not null)
875: and l_legislation_code <> 'US'
876: then
877: hr_utility.set_location(l_proc, 100);
878: --
879: if p_last_standard_process_date is null
880: --
881: then
883: -- Must also be set to not null value if actual_termination_date
884: -- updated to not null value.
885: -- CHK_LAST_STANDARD_PROCESS_DATE / h
886: --
887: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
888: hr_utility.raise_error;
889: end if;
890: end if;
891: --
884: -- updated to not null value.
885: -- CHK_LAST_STANDARD_PROCESS_DATE / h
886: --
887: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
888: hr_utility.raise_error;
889: end if;
890: end if;
891: --
892: end if;
890: end if;
891: --
892: end if;
893: --
894: hr_utility.set_location(l_proc, 120);
895: --
896: hr_utility.set_location(' Leaving:'|| l_proc, 130);
897:
898: exception
892: end if;
893: --
894: hr_utility.set_location(l_proc, 120);
895: --
896: hr_utility.set_location(' Leaving:'|| l_proc, 130);
897:
898: exception
899: when app_exception.application_exception then
900: if hr_multi_message.exception_add
900: if hr_multi_message.exception_add
901: (p_associated_column1 => per_pdp_shd.g_tab_nam||
902: '.LAST_STANDARD_PROCESS_DATE'
903: ) then
904: hr_utility.set_location(' Leaving:'|| l_proc, 140);
905: raise;
906: end if;
907: hr_utility.set_location(' Leaving:'|| l_proc, 150);
908:
903: ) then
904: hr_utility.set_location(' Leaving:'|| l_proc, 140);
905: raise;
906: end if;
907: hr_utility.set_location(' Leaving:'|| l_proc, 150);
908:
909: end chk_last_standard_process_date;
910: --
911: -- ---------------------------------------------------------------------------
962: and rownum = 1;
963: -- Bug 3387328. Used _perf view to improve performance.
964: --
965: begin
966: hr_utility.set_location('Entering:'|| l_proc, 1);
967:
968: --
969: -- Only proceed with validation when the Multiple Message List
970: -- does not already contain an error associated with the
987: l_api_updating := per_pdp_shd.api_updating
988: (p_period_of_placement_id => p_period_of_placement_id
989: ,p_object_version_number => p_object_version_number);
990: --
991: hr_utility.set_location(l_proc, 20);
992: --
993: -- Only proceed with validation if :
994: -- a) The current g_old_rec is current and
995: -- b) The value for actual_termination_date or last_standard_process_date
1003: <> nvl(p_last_standard_process_date, hr_api.g_date))))
1004: or
1005: NOT l_api_updating then
1006: --
1007: hr_utility.set_location(l_proc, 30);
1008: --
1009: open csr_get_legislation_code;
1010: fetch csr_get_legislation_code
1011: into l_legislation_code;
1014: then
1015: --
1016: close csr_get_legislation_code;
1017: --
1018: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1019: hr_utility.set_message_token('PROCEDURE', l_proc);
1020: hr_utility.set_message_token('STEP', '5');
1021: hr_utility.raise_error;
1022: end if;
1015: --
1016: close csr_get_legislation_code;
1017: --
1018: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1019: hr_utility.set_message_token('PROCEDURE', l_proc);
1020: hr_utility.set_message_token('STEP', '5');
1021: hr_utility.raise_error;
1022: end if;
1023: --
1016: close csr_get_legislation_code;
1017: --
1018: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1019: hr_utility.set_message_token('PROCEDURE', l_proc);
1020: hr_utility.set_message_token('STEP', '5');
1021: hr_utility.raise_error;
1022: end if;
1023: --
1024: close csr_get_legislation_code;
1017: --
1018: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1019: hr_utility.set_message_token('PROCEDURE', l_proc);
1020: hr_utility.set_message_token('STEP', '5');
1021: hr_utility.raise_error;
1022: end if;
1023: --
1024: close csr_get_legislation_code;
1025: --
1022: end if;
1023: --
1024: close csr_get_legislation_code;
1025: --
1026: hr_utility.set_location(l_proc, 50);
1027: --
1028: if l_legislation_code <> 'US' then
1029: --
1030: -- Check combination when either actual_termination_date or
1033: if (per_pdp_shd.g_old_rec.actual_termination_date is null
1034: and p_actual_termination_date is not null)
1035: and p_last_standard_process_date is null
1036: then
1037: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
1038: hr_utility.raise_error;
1039: end if;
1040: --
1041: end if;
1034: and p_actual_termination_date is not null)
1035: and p_last_standard_process_date is null
1036: then
1037: hr_utility.set_message(801,'HR_7959_PDS_INV_LSP_BLANK');
1038: hr_utility.raise_error;
1039: end if;
1040: --
1041: end if;
1042: --
1041: end if;
1042: --
1043: end if;
1044: --
1045: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1046:
1047: end if; -- end multi_message if
1048:
1049: exception
1055: when app_exception.application_exception then
1056: if hr_multi_message.exception_add
1057: (p_same_associated_columns => 'Y'
1058: ) then
1059: hr_utility.set_location(' Leaving:'|| l_proc, 50);
1060: raise;
1061: end if;
1062: hr_utility.set_location(' Leaving:'|| l_proc, 60);
1063:
1058: ) then
1059: hr_utility.set_location(' Leaving:'|| l_proc, 50);
1060: raise;
1061: end if;
1062: hr_utility.set_location(' Leaving:'|| l_proc, 60);
1063:
1064: end chk_at_date_lsp_date;
1065: --
1066: -- ---------------------------------------------------------------------------
1106: l_proc varchar2(72) := g_package||'chk_termination_reason';
1107: l_rec per_pdp_shd.g_rec_type;
1108: --
1109: begin
1110: hr_utility.set_location('Entering:'|| l_proc, 1);
1111: --
1112: hr_api.mandatory_arg_error
1113: (p_api_name => l_proc
1114: ,p_argument => 'effective date'
1120: l_api_updating := per_pdp_shd.api_updating
1121: (p_period_of_placement_id => p_period_of_placement_id
1122: ,p_object_version_number => p_object_version_number);
1123: --
1124: hr_utility.set_location(l_proc, 2);
1125: --
1126: if l_api_updating
1127: and p_termination_reason is not null
1128: then
1139: ,p_lookup_type => 'HR_CWK_TERMINATION_REASONS'
1140: ,p_lookup_code => p_termination_reason
1141: ) then
1142: -- Error - Invalid Termination Reason
1143: hr_utility.set_location(l_proc, 3);
1144: hr_utility.set_message(800,'HR_289610_PDP_TERM_REASON');
1145: hr_utility.raise_error;
1146: end if;
1147: --
1140: ,p_lookup_code => p_termination_reason
1141: ) then
1142: -- Error - Invalid Termination Reason
1143: hr_utility.set_location(l_proc, 3);
1144: hr_utility.set_message(800,'HR_289610_PDP_TERM_REASON');
1145: hr_utility.raise_error;
1146: end if;
1147: --
1148: end if;
1141: ) then
1142: -- Error - Invalid Termination Reason
1143: hr_utility.set_location(l_proc, 3);
1144: hr_utility.set_message(800,'HR_289610_PDP_TERM_REASON');
1145: hr_utility.raise_error;
1146: end if;
1147: --
1148: end if;
1149: --
1148: end if;
1149: --
1150: end if;
1151: --
1152: hr_utility.set_location(' Leaving:'|| l_proc, 5);
1153:
1154: exception
1155: when app_exception.application_exception then
1156: if hr_multi_message.exception_add
1156: if hr_multi_message.exception_add
1157: (p_associated_column1 => per_pdp_shd.g_tab_nam||
1158: '.TERMINATION_REASON'
1159: ) then
1160: hr_utility.set_location(' Leaving:'|| l_proc, 10);
1161: raise;
1162: end if;
1163: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1164:
1159: ) then
1160: hr_utility.set_location(' Leaving:'|| l_proc, 10);
1161: raise;
1162: end if;
1163: hr_utility.set_location(' Leaving:'|| l_proc, 20);
1164:
1165: end chk_termination_reason;
1166: --
1167: -- ---------------------------------------------------------------------------
1214: and p_effective_date between
1215: p.effective_start_date and p.effective_end_date;
1216: --
1217: begin
1218: hr_utility.set_location('Entering:'|| l_proc, 10);
1219: --
1220: -- CHK_PERSON_ID / a
1221: --
1222: hr_api.mandatory_arg_error
1224: ,p_argument => 'person_id'
1225: ,p_argument_value => p_person_id
1226: );
1227: --
1228: hr_utility.set_location(l_proc, 20);
1229:
1230: --
1231: -- CHK_PERSON_ID / b
1232: --
1242: fnd_message.raise_error;
1243:
1244: end if;
1245:
1246: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1247:
1248: exception
1249: when app_exception.application_exception then
1250: if hr_multi_message.exception_add
1249: when app_exception.application_exception then
1250: if hr_multi_message.exception_add
1251: (p_associated_column1 => per_pdp_shd.g_tab_nam||'.PERSON_ID'
1252: ) then
1253: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1254: raise;
1255: end if;
1256: hr_utility.set_location(' Leaving:'|| l_proc, 50);
1257:
1252: ) then
1253: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1254: raise;
1255: end if;
1256: hr_utility.set_location(' Leaving:'|| l_proc, 50);
1257:
1258: end chk_person_id;
1259: --
1260: -- ---------------------------------------------------------------------------
1303: where pdp.person_id = p_person_id
1304: and pdp.date_start = p_date_start;
1305: --
1306: begin
1307: hr_utility.set_location('Entering:'|| l_proc, 1);
1308: --
1309: -- Check mandatory parameters have been set
1310: --
1311: hr_api.mandatory_arg_error
1312: (p_api_name => l_proc
1313: ,p_argument => 'person_id'
1314: ,p_argument_value => p_person_id
1315: );
1316: hr_utility.set_location(l_proc, 4);
1317: --
1318: hr_api.mandatory_arg_error
1319: (p_api_name => l_proc
1320: ,p_argument => 'date_start'
1319: (p_api_name => l_proc
1320: ,p_argument => 'date_start'
1321: ,p_argument_value => p_date_start
1322: );
1323: hr_utility.set_location(l_proc, 5);
1324: --
1325: -- Check to see if record updated.
1326: --
1327: l_api_updating := per_pdp_shd.api_updating
1333: --
1334: -- Check that the Person ID and Date Start combination does not exist
1335: -- on PER_PERIODS_OF_PLACEMENT
1336: --
1337: hr_utility.set_location(l_proc, 6);
1338: --
1339: open csr_new_pers_date;
1340: --
1341: fetch csr_new_pers_date into l_exists;
1344: then
1345: -- CHK_PERSON_ID_DATE_START / a
1346: --
1347: close csr_new_pers_date;
1348: hr_utility.set_message(800, 'HR_289611_PDP_EXISTS');
1349: hr_utility.raise_error;
1350: end if;
1351: --
1352: close csr_new_pers_date;
1345: -- CHK_PERSON_ID_DATE_START / a
1346: --
1347: close csr_new_pers_date;
1348: hr_utility.set_message(800, 'HR_289611_PDP_EXISTS');
1349: hr_utility.raise_error;
1350: end if;
1351: --
1352: close csr_new_pers_date;
1353: end if;
1351: --
1352: close csr_new_pers_date;
1353: end if;
1354: --
1355: hr_utility.set_location(' Leaving:'|| l_proc, 9);
1356:
1357: exception
1358: when app_exception.application_exception then
1359: if hr_multi_message.exception_add
1359: if hr_multi_message.exception_add
1360: (p_associated_column1 => per_pdp_shd.g_tab_nam||'.PERSON_ID'
1361: ,p_associated_column2 => per_pdp_shd.g_tab_nam||'.DATE_START'
1362: ) then
1363: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1364: raise;
1365: end if;
1366: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1367:
1362: ) then
1363: hr_utility.set_location(' Leaving:'|| l_proc, 30);
1364: raise;
1365: end if;
1366: hr_utility.set_location(' Leaving:'|| l_proc, 40);
1367:
1368: end chk_person_id_date_start;
1369: --
1370: -- ----------------------------------------------------------------------------
1402: --
1403: l_proc varchar2(72) := g_package || 'chk_ddf';
1404: --
1405: begin
1406: hr_utility.set_location('Entering:'||l_proc,10);
1407: --
1408: if ((p_rec.period_of_placement_id is not null) and (
1409: nvl(per_pdp_shd.g_old_rec.information_category, hr_api.g_varchar2) <>
1410: nvl(p_rec.information_category, hr_api.g_varchar2) or
1541: ,p_attribute30_value => p_rec.information30
1542: );
1543: end if;
1544: --
1545: hr_utility.set_location(' Leaving:'||l_proc,20);
1546: end chk_ddf;
1547: --
1548: -- ----------------------------------------------------------------------------
1549: -- |------------------------------< chk_df >----------------------------------|
1580: --
1581: l_proc varchar2(72) := g_package || 'chk_df';
1582: --
1583: begin
1584: hr_utility.set_location('Entering:'||l_proc,10);
1585: --
1586: if ((p_rec.period_of_placement_id is not null) and (
1587: nvl(per_pdp_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
1588: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
1719: ,p_attribute30_value => p_rec.attribute30
1720: );
1721: end if;
1722: --
1723: hr_utility.set_location(' Leaving:'||l_proc,20);
1724: end chk_df;
1725: --
1726: -- ----------------------------------------------------------------------------
1727: -- |-----------------------< chk_non_updateable_args >------------------------|
1785: --
1786: l_proc varchar2(72) := g_package||'insert_validate';
1787: --
1788: Begin
1789: hr_utility.set_location('Entering:'||l_proc, 5);
1790: --
1791: -- Call all supporting business operations
1792: --
1793: hr_api.validate_bus_grp_id
1794: (p_business_group_id => p_rec.business_group_id
1795: ,p_associated_column1 => per_pdp_shd.g_tab_nam
1796: || '.BUSINESS_GROUP_ID');
1797:
1798: hr_utility.set_location(l_proc, 10);
1799:
1800: --
1801: -- Validate person id
1802: --
1808: (p_person_id => p_rec.person_id,
1809: p_effective_date => p_effective_date,
1810: p_business_group_id => p_rec.business_group_id);
1811: --
1812: hr_utility.set_location(l_proc, 15);
1813:
1814: --
1815: -- Validate date start
1816: --
1819: -- CHK_DATE_START / a
1820: --
1821: per_pdp_bus.chk_date_start(p_date_start => p_rec.date_start);
1822:
1823: hr_utility.set_location(l_proc, 20);
1824:
1825: --
1826: -- After validating the set of important attributes,
1827: -- if Multiple Message detection is enabled and at least
1831:
1832: --
1833: -- Validate Independent Attributes
1834: --
1835: hr_utility.set_location(l_proc, 25);
1836: --
1837: --
1838: -- Validate person id and date start combination
1839: --
1846: ,p_object_version_number => p_rec.object_version_number
1847: ,p_period_of_placement_id => p_rec.period_of_placement_id
1848: ,p_person_id => p_rec.person_id);
1849:
1850: hr_utility.set_location(l_proc, 30);
1851:
1852: --
1853: -- Validate projected termination date
1854: --
1861: ,p_projected_termination_date => p_rec.projected_termination_date
1862: ,p_object_version_number => p_rec.object_version_number
1863: ,p_period_of_placement_id => p_rec.period_of_placement_id);
1864: --
1865: hr_utility.set_location(l_proc, 35);
1866: --
1867: -- Validate termination reason
1868: --
1869: -- Business Rule Mapping
1875: p_effective_date => p_effective_date,
1876: p_object_version_number => p_rec.object_version_number,
1877: p_period_of_placement_id => p_rec.period_of_placement_id);
1878:
1879: hr_utility.set_location(l_proc, 40);
1880:
1881: --
1882: -- Validate last standard process date
1883: --
1895: ,p_object_version_number => p_rec.object_version_number
1896: ,p_period_of_placement_id => p_rec.period_of_placement_id
1897: );
1898:
1899: hr_utility.set_location(l_proc, 50);
1900:
1901: --
1902: -- Validate Dependent Attributes
1903: --
1916: ,p_object_version_number => p_rec.object_version_number
1917: ,p_period_of_placement_id => p_rec.period_of_placement_id
1918: ,p_person_id => p_rec.person_id);
1919:
1920: hr_utility.set_location(l_proc, 60);
1921:
1922: --
1923: -- Validate final process date
1924: --
1933: p_last_standard_process_date => p_rec.last_standard_process_date,
1934: p_object_version_number => p_rec.object_version_number,
1935: p_period_of_placement_id => p_rec.period_of_placement_id);
1936:
1937: hr_utility.set_location(l_proc, 70);
1938:
1939: --
1940: -- Validate actual termination date/last standard process date
1941: --
1950: ,p_period_of_placement_id => p_rec.period_of_placement_id
1951: ,p_business_group_id => p_rec.business_group_id
1952: );
1953:
1954: hr_utility.set_location(l_proc, 80);
1955:
1956: --
1957: -- Only validate the flexfields if the PDP being created
1958: -- is not the default for a new person.
1963: per_pdp_bus.chk_df(p_rec);
1964:
1965: end if;
1966:
1967: hr_utility.set_location(' Leaving:'||l_proc, 10);
1968: End insert_validate;
1969: --
1970: -- ----------------------------------------------------------------------------
1971: -- |---------------------------< update_validate >----------------------------|
1977: --
1978: l_proc varchar2(72) := g_package||'update_validate';
1979: --
1980: Begin
1981: hr_utility.set_location('Entering:'||l_proc, 5);
1982: --
1983: -- Call all supporting business operations
1984: --
1985: hr_api.validate_bus_grp_id
1986: (p_business_group_id => p_rec.business_group_id
1987: ,p_associated_column1 => per_pdp_shd.g_tab_nam
1988: || '.BUSINESS_GROUP_ID');
1989:
1990: hr_utility.set_location(l_proc, 10);
1991:
1992: --
1993: -- Validate person id
1994: --
2000: (p_person_id => p_rec.person_id,
2001: p_effective_date => p_effective_date,
2002: p_business_group_id => p_rec.business_group_id);
2003: --
2004: hr_utility.set_location(l_proc, 15);
2005:
2006: --
2007: -- Validate date start
2008: --
2009: -- Business Rule Mapping
2010:
2011: -- CHK_DATE_START / a -- per_pdp_bus.chk_date_start(p_date_start => p_rec.date_start);
2012:
2013: hr_utility.set_location(l_proc, 20);
2014:
2015: --
2016: -- After validating the set of important attributes,
2017: -- if Multiple Message detection is enabled and at least
2028: --
2029: -- Validate Independent Attributes
2030: --
2031:
2032: hr_utility.set_location(l_proc, 25);
2033: --
2034: --
2035: -- Validate person id and date start combination
2036: --
2043: ,p_object_version_number => p_rec.object_version_number
2044: ,p_period_of_placement_id => p_rec.period_of_placement_id
2045: ,p_person_id => p_rec.person_id);
2046:
2047: hr_utility.set_location(l_proc, 30);
2048:
2049: --
2050: -- Validate projected termination date
2051: --
2058: ,p_projected_termination_date => p_rec.projected_termination_date
2059: ,p_object_version_number => p_rec.object_version_number
2060: ,p_period_of_placement_id => p_rec.period_of_placement_id);
2061: --
2062: hr_utility.set_location(l_proc, 35);
2063: --
2064: -- Validate termination reason
2065: --
2066: -- Business Rule Mapping
2072: p_effective_date => p_effective_date,
2073: p_object_version_number => p_rec.object_version_number,
2074: p_period_of_placement_id => p_rec.period_of_placement_id);
2075:
2076: hr_utility.set_location(l_proc, 40);
2077: --
2078: -- Validate last standard process date
2079: --
2080: -- Business Rule Mapping
2091: ,p_object_version_number => p_rec.object_version_number
2092: ,p_period_of_placement_id => p_rec.period_of_placement_id
2093: );
2094:
2095: hr_utility.set_location(l_proc, 50);
2096:
2097: --
2098: -- Validate Dependent Attributes
2099: --
2112: ,p_object_version_number => p_rec.object_version_number
2113: ,p_period_of_placement_id => p_rec.period_of_placement_id
2114: ,p_person_id => p_rec.person_id);
2115:
2116: hr_utility.set_location(l_proc, 60);
2117:
2118: --
2119: -- Validate final process date
2120: --
2129: p_last_standard_process_date => p_rec.last_standard_process_date,
2130: p_object_version_number => p_rec.object_version_number,
2131: p_period_of_placement_id => p_rec.period_of_placement_id);
2132:
2133: hr_utility.set_location(l_proc, 70);
2134:
2135: --
2136: -- Validate actual termination date/last standard process date
2137: --
2146: ,p_period_of_placement_id => p_rec.period_of_placement_id
2147: ,p_business_group_id => p_rec.business_group_id
2148: );
2149:
2150: hr_utility.set_location(l_proc, 80);
2151:
2152: --
2153: -- Only validate the flexfields if the PDP being created
2154: -- is not the default for a new person.
2159: per_pdp_bus.chk_df(p_rec);
2160:
2161: end if;
2162: --
2163: hr_utility.set_location(' Leaving:'||l_proc, 10);
2164: End update_validate;
2165: --
2166: -- ----------------------------------------------------------------------------
2167: -- |---------------------------< delete_validate >----------------------------|
2172: --
2173: l_proc varchar2(72) := g_package||'delete_validate';
2174: --
2175: Begin
2176: hr_utility.set_location('Entering:'||l_proc, 5);
2177: --
2178: -- Call all supporting business operations
2179: --
2180: hr_utility.set_location(' Leaving:'||l_proc, 10);
2176: hr_utility.set_location('Entering:'||l_proc, 5);
2177: --
2178: -- Call all supporting business operations
2179: --
2180: hr_utility.set_location(' Leaving:'||l_proc, 10);
2181: End delete_validate;
2182: --
2183: end per_pdp_bus;