11: -- --------------------------------------------------------------------------
12: -- |---------------------< chk_non_updateable_args >------------------------|
13: -- --------------------------------------------------------------------------
14: Procedure chk_non_updateable_args
15: (p_rec in per_pdm_shd.g_rec_type
16: ,p_effective_date in date
17: ) is
18: --
19: l_proc varchar2(72) := g_package||'chk_non_updateable_args';
25: --
26: -- Only proceed with validation if a row exists for
27: -- the current record in the HR Schema
28: --
29: if not per_pdm_shd.api_updating
30: (p_delivery_method_id => p_rec.delivery_method_id
31: ,p_object_version_number => p_rec.object_version_number
32: ) then
33: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
35: hr_utility.set_message_token('STEP', '20');
36: end if;
37: hr_utility.set_location(l_proc, 30);
38: --
39: if p_rec.person_id <> per_pdm_shd.g_old_rec.person_id then
40: l_argument := 'person_id';
41: raise l_error;
42: end if;
43: hr_utility.set_location(l_proc, 50);
111: open csr_valid_person_id;
112: fetch csr_valid_person_id into l_person_id;
113: if csr_valid_person_id%notfound then
114: close csr_valid_person_id;
115: per_pdm_shd.constraint_error('PER_PERSON_DLVRY_METHODS_FK1');
116: end if;
117: close csr_valid_person_id;
118:
119: hr_utility.set_location('Leaving: '||l_proc,10);
190: );
191:
192: --
193: if (p_comm_dlvry_method
194: <> nvl(per_pdm_shd.g_old_rec.comm_dlvry_method,hr_api.g_varchar2) )
195: and p_comm_dlvry_method is not null then
196: --
197: -- check if value of lookup falls within lookup type.
198: --
215: open csr_check_uniqueness;
216: fetch csr_check_uniqueness into l_delivery_method_id;
217: if csr_check_uniqueness%found then
218: close csr_check_uniqueness;
219: per_pdm_shd.constraint_error('PER_PERSON_DLVRY_METHODS_UK1');
220: end if;
221: close csr_check_uniqueness;
222: --
223: --
280: -- Only proceed with validation if :
281: -- a) The current g_old_rec is current and
282: -- b) The date_start or date_start value has changed
283: --
284: if ((nvl(per_pdm_shd.g_old_rec.date_start,hr_api.g_date)
285: <> nvl(p_date_start,hr_api.g_date)
286: or nvl(per_pdm_shd.g_old_rec.date_end,hr_api.g_date)
287: <> nvl(p_date_end,hr_api.g_date)))
288: then
282: -- b) The date_start or date_start value has changed
283: --
284: if ((nvl(per_pdm_shd.g_old_rec.date_start,hr_api.g_date)
285: <> nvl(p_date_start,hr_api.g_date)
286: or nvl(per_pdm_shd.g_old_rec.date_end,hr_api.g_date)
287: <> nvl(p_date_end,hr_api.g_date)))
288: then
289: hr_utility.set_location(l_proc, 2);
290: --
350: --
351: hr_utility.set_location('Entering:'||l_proc, 5);
352: --
353: if (nvl(p_preferred_flag, hr_api.g_varchar2)
354: <> nvl(per_pdm_shd.g_old_rec.preferred_flag,hr_api.g_varchar2))
355: and p_preferred_flag is not null then
356: --
357: -- check if value of lookup falls within lookup type.
358: --
417: -- Access Status:
418: -- Internal Row Handler Use Only.
419: --
420: procedure chk_df
421: (p_rec in per_pdm_shd.g_rec_type) is
422: --
423: l_proc varchar2(72) := g_package||'chk_df';
424: --
425: begin
425: begin
426: hr_utility.set_location('Entering:'||l_proc, 10);
427: --
428: if ((p_rec.delivery_method_id is not null) and (
429: nvl(per_pdm_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
430: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
431: nvl(per_pdm_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
432: nvl(p_rec.attribute1, hr_api.g_varchar2) or
433: nvl(per_pdm_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
427: --
428: if ((p_rec.delivery_method_id is not null) and (
429: nvl(per_pdm_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
430: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
431: nvl(per_pdm_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
432: nvl(p_rec.attribute1, hr_api.g_varchar2) or
433: nvl(per_pdm_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
434: nvl(p_rec.attribute2, hr_api.g_varchar2) or
435: nvl(per_pdm_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
429: nvl(per_pdm_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
430: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
431: nvl(per_pdm_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
432: nvl(p_rec.attribute1, hr_api.g_varchar2) or
433: nvl(per_pdm_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
434: nvl(p_rec.attribute2, hr_api.g_varchar2) or
435: nvl(per_pdm_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
436: nvl(p_rec.attribute3, hr_api.g_varchar2) or
437: nvl(per_pdm_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
431: nvl(per_pdm_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
432: nvl(p_rec.attribute1, hr_api.g_varchar2) or
433: nvl(per_pdm_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
434: nvl(p_rec.attribute2, hr_api.g_varchar2) or
435: nvl(per_pdm_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
436: nvl(p_rec.attribute3, hr_api.g_varchar2) or
437: nvl(per_pdm_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
438: nvl(p_rec.attribute4, hr_api.g_varchar2) or
439: nvl(per_pdm_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
433: nvl(per_pdm_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
434: nvl(p_rec.attribute2, hr_api.g_varchar2) or
435: nvl(per_pdm_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
436: nvl(p_rec.attribute3, hr_api.g_varchar2) or
437: nvl(per_pdm_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
438: nvl(p_rec.attribute4, hr_api.g_varchar2) or
439: nvl(per_pdm_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
440: nvl(p_rec.attribute5, hr_api.g_varchar2) or
441: nvl(per_pdm_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
435: nvl(per_pdm_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
436: nvl(p_rec.attribute3, hr_api.g_varchar2) or
437: nvl(per_pdm_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
438: nvl(p_rec.attribute4, hr_api.g_varchar2) or
439: nvl(per_pdm_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
440: nvl(p_rec.attribute5, hr_api.g_varchar2) or
441: nvl(per_pdm_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
442: nvl(p_rec.attribute6, hr_api.g_varchar2) or
443: nvl(per_pdm_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
437: nvl(per_pdm_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
438: nvl(p_rec.attribute4, hr_api.g_varchar2) or
439: nvl(per_pdm_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
440: nvl(p_rec.attribute5, hr_api.g_varchar2) or
441: nvl(per_pdm_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
442: nvl(p_rec.attribute6, hr_api.g_varchar2) or
443: nvl(per_pdm_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
444: nvl(p_rec.attribute7, hr_api.g_varchar2) or
445: nvl(per_pdm_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
439: nvl(per_pdm_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
440: nvl(p_rec.attribute5, hr_api.g_varchar2) or
441: nvl(per_pdm_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
442: nvl(p_rec.attribute6, hr_api.g_varchar2) or
443: nvl(per_pdm_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
444: nvl(p_rec.attribute7, hr_api.g_varchar2) or
445: nvl(per_pdm_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
446: nvl(p_rec.attribute8, hr_api.g_varchar2) or
447: nvl(per_pdm_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
441: nvl(per_pdm_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
442: nvl(p_rec.attribute6, hr_api.g_varchar2) or
443: nvl(per_pdm_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
444: nvl(p_rec.attribute7, hr_api.g_varchar2) or
445: nvl(per_pdm_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
446: nvl(p_rec.attribute8, hr_api.g_varchar2) or
447: nvl(per_pdm_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
448: nvl(p_rec.attribute9, hr_api.g_varchar2) or
449: nvl(per_pdm_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
443: nvl(per_pdm_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
444: nvl(p_rec.attribute7, hr_api.g_varchar2) or
445: nvl(per_pdm_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
446: nvl(p_rec.attribute8, hr_api.g_varchar2) or
447: nvl(per_pdm_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
448: nvl(p_rec.attribute9, hr_api.g_varchar2) or
449: nvl(per_pdm_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
450: nvl(p_rec.attribute10, hr_api.g_varchar2) or
451: nvl(per_pdm_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
445: nvl(per_pdm_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
446: nvl(p_rec.attribute8, hr_api.g_varchar2) or
447: nvl(per_pdm_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
448: nvl(p_rec.attribute9, hr_api.g_varchar2) or
449: nvl(per_pdm_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
450: nvl(p_rec.attribute10, hr_api.g_varchar2) or
451: nvl(per_pdm_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
452: nvl(p_rec.attribute11, hr_api.g_varchar2) or
453: nvl(per_pdm_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
447: nvl(per_pdm_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
448: nvl(p_rec.attribute9, hr_api.g_varchar2) or
449: nvl(per_pdm_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
450: nvl(p_rec.attribute10, hr_api.g_varchar2) or
451: nvl(per_pdm_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
452: nvl(p_rec.attribute11, hr_api.g_varchar2) or
453: nvl(per_pdm_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
454: nvl(p_rec.attribute12, hr_api.g_varchar2) or
455: nvl(per_pdm_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
449: nvl(per_pdm_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
450: nvl(p_rec.attribute10, hr_api.g_varchar2) or
451: nvl(per_pdm_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
452: nvl(p_rec.attribute11, hr_api.g_varchar2) or
453: nvl(per_pdm_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
454: nvl(p_rec.attribute12, hr_api.g_varchar2) or
455: nvl(per_pdm_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
456: nvl(p_rec.attribute13, hr_api.g_varchar2) or
457: nvl(per_pdm_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
451: nvl(per_pdm_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
452: nvl(p_rec.attribute11, hr_api.g_varchar2) or
453: nvl(per_pdm_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
454: nvl(p_rec.attribute12, hr_api.g_varchar2) or
455: nvl(per_pdm_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
456: nvl(p_rec.attribute13, hr_api.g_varchar2) or
457: nvl(per_pdm_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
458: nvl(p_rec.attribute14, hr_api.g_varchar2) or
459: nvl(per_pdm_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
453: nvl(per_pdm_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
454: nvl(p_rec.attribute12, hr_api.g_varchar2) or
455: nvl(per_pdm_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
456: nvl(p_rec.attribute13, hr_api.g_varchar2) or
457: nvl(per_pdm_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
458: nvl(p_rec.attribute14, hr_api.g_varchar2) or
459: nvl(per_pdm_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
460: nvl(p_rec.attribute15, hr_api.g_varchar2) or
461: nvl(per_pdm_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
455: nvl(per_pdm_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
456: nvl(p_rec.attribute13, hr_api.g_varchar2) or
457: nvl(per_pdm_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
458: nvl(p_rec.attribute14, hr_api.g_varchar2) or
459: nvl(per_pdm_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
460: nvl(p_rec.attribute15, hr_api.g_varchar2) or
461: nvl(per_pdm_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
462: nvl(p_rec.attribute16, hr_api.g_varchar2) or
463: nvl(per_pdm_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
457: nvl(per_pdm_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
458: nvl(p_rec.attribute14, hr_api.g_varchar2) or
459: nvl(per_pdm_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
460: nvl(p_rec.attribute15, hr_api.g_varchar2) or
461: nvl(per_pdm_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
462: nvl(p_rec.attribute16, hr_api.g_varchar2) or
463: nvl(per_pdm_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
464: nvl(p_rec.attribute17, hr_api.g_varchar2) or
465: nvl(per_pdm_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
459: nvl(per_pdm_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
460: nvl(p_rec.attribute15, hr_api.g_varchar2) or
461: nvl(per_pdm_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
462: nvl(p_rec.attribute16, hr_api.g_varchar2) or
463: nvl(per_pdm_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
464: nvl(p_rec.attribute17, hr_api.g_varchar2) or
465: nvl(per_pdm_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
466: nvl(p_rec.attribute18, hr_api.g_varchar2) or
467: nvl(per_pdm_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
461: nvl(per_pdm_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
462: nvl(p_rec.attribute16, hr_api.g_varchar2) or
463: nvl(per_pdm_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
464: nvl(p_rec.attribute17, hr_api.g_varchar2) or
465: nvl(per_pdm_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
466: nvl(p_rec.attribute18, hr_api.g_varchar2) or
467: nvl(per_pdm_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
468: nvl(p_rec.attribute19, hr_api.g_varchar2) or
469: nvl(per_pdm_shd.g_old_rec.attribute20, hr_api.g_varchar2) <>
463: nvl(per_pdm_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
464: nvl(p_rec.attribute17, hr_api.g_varchar2) or
465: nvl(per_pdm_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
466: nvl(p_rec.attribute18, hr_api.g_varchar2) or
467: nvl(per_pdm_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
468: nvl(p_rec.attribute19, hr_api.g_varchar2) or
469: nvl(per_pdm_shd.g_old_rec.attribute20, hr_api.g_varchar2) <>
470: nvl(p_rec.attribute20, hr_api.g_varchar2)))
471: or
465: nvl(per_pdm_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
466: nvl(p_rec.attribute18, hr_api.g_varchar2) or
467: nvl(per_pdm_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
468: nvl(p_rec.attribute19, hr_api.g_varchar2) or
469: nvl(per_pdm_shd.g_old_rec.attribute20, hr_api.g_varchar2) <>
470: nvl(p_rec.attribute20, hr_api.g_varchar2)))
471: or
472: (p_rec.delivery_method_id is null) then
473: --
528: --
529: -- ----------------------------------------------------------------------------
530: -- |---------------------------< insert_validate >----------------------------|
531: -- ----------------------------------------------------------------------------
532: Procedure insert_validate(p_rec in per_pdm_shd.g_rec_type
533: ,p_effective_date in date) is
534: --
535: l_proc varchar2(72) := g_package||'insert_validate';
536: --
574: --
575: -- ----------------------------------------------------------------------------
576: -- |---------------------------< update_validate >----------------------------|
577: -- ----------------------------------------------------------------------------
578: Procedure update_validate(p_rec in per_pdm_shd.g_rec_type
579: ,p_effective_date in date) is
580: --
581: l_proc varchar2(72) := g_package||'update_validate';
582: --
624: --
625: -- ----------------------------------------------------------------------------
626: -- |---------------------------< delete_validate >----------------------------|
627: -- ----------------------------------------------------------------------------
628: Procedure delete_validate(p_rec in per_pdm_shd.g_rec_type) is
629: --
630: l_proc varchar2(72) := g_package||'delete_validate';
631: --
632: Begin