224: -- b) The value for consultation type has changed
225: --
226: IF ( (p_cagr_api_id IS NULL) OR
227: ((p_cagr_api_id IS NOT NULL) AND
228: (per_cai_shd.g_old_rec.api_name <> p_api_name))) THEN
229: --
230: hr_utility.set_location(l_proc, 30);
231: --
232: -- Check that the person_id is in the per_people_f view on the effective_date.
312: -- b) The value for consultation type has changed
313: --
314: IF ( (p_cagr_api_id IS NULL) OR
315: ((p_cagr_api_id IS NOT NULL) AND
316: (per_cai_shd.g_old_rec.category_name <> p_category_name))) THEN
317: --
318: -- Check that the category exists in HR_LOOKUPS
319: --
320: IF hr_api.not_exists_in_hr_lookups
432: -- {End Of Comments}
433: -- ----------------------------------------------------------------------------
434: Procedure chk_non_updateable_args
435: (p_effective_date in date
436: ,p_rec in per_cai_shd.g_rec_type
437: ) IS
438: --
439: l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
440: l_error EXCEPTION;
444: --
445: -- Only proceed with the validation if a row exists for the current
446: -- record in the HR Schema.
447: --
448: IF NOT per_cai_shd.api_updating
449: (p_cagr_api_id => p_rec.cagr_api_id
450: ,p_object_version_number => p_rec.object_version_number
451: ) THEN
452: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
455: fnd_message.raise_error;
456: END IF;
457: --
458: IF nvl(p_rec.api_name, hr_api.g_varchar2) <>
459: nvl(per_cai_shd.g_old_rec.api_name,hr_api.g_varchar2) THEN
460: --
461: l_argument := 'api_name';
462: RAISE l_error;
463: --
463: --
464: END IF;
465: --
466: IF nvl(p_rec.cagr_api_id, hr_api.g_number) <>
467: nvl(per_cai_shd.g_old_rec.cagr_api_id,hr_api.g_number) THEN
468: --
469: l_argument := 'cagr_api_id';
470: RAISE l_error;
471: --
484: -- |---------------------------< insert_validate >----------------------------|
485: -- ----------------------------------------------------------------------------
486: Procedure insert_validate
487: (p_effective_date in date
488: ,p_rec in per_cai_shd.g_rec_type
489: ) is
490: --
491: l_proc varchar2(72) := g_package||'insert_validate';
492: --
519: -- |---------------------------< update_validate >----------------------------|
520: -- ----------------------------------------------------------------------------
521: Procedure update_validate
522: (p_effective_date in date
523: ,p_rec in per_cai_shd.g_rec_type
524: ) is
525: --
526: l_proc varchar2(72) := g_package||'update_validate';
527: --
559: -- ----------------------------------------------------------------------------
560: -- |---------------------------< delete_validate >----------------------------|
561: -- ----------------------------------------------------------------------------
562: Procedure delete_validate
563: (p_rec in per_cai_shd.g_rec_type
564: ) is
565: --
566: l_proc varchar2(72) := g_package||'delete_validate';
567: --