18: -- |-----------------------< chk_non_updateable_args >--------------|
19: -- -----------------------------------------------------------------
20: --
21: Procedure chk_non_updateable_args
22: (p_rec in per_sha_shd.g_rec_type
23: ) is
24: --
25: l_proc varchar2(72) := g_package||'chk_non_updateable_args';
26: l_error exception;
31: --
32: -- Only proceed with validation if a row exists for
33: -- the current record in the HR Schema
34: --
35: if not per_sha_shd.api_updating
36: (p_std_holiday_absences_id => p_rec.std_holiday_absences_id,
37: p_object_version_number => p_rec.object_version_number)
38: then
39: hr_utility.set_message(800, 'HR_6153_ALL_PROCEDURE_FAIL');
43: end if;
44: hr_utility.set_location(l_proc, 30);
45: --
46: if nvl(p_rec.person_id, hr_api.g_number) <>
47: nvl(per_sha_shd.g_old_rec.person_id
48: ,hr_api.g_number
49: ) then
50: l_argument := 'person_id';
51: raise l_error;
124: END;
125: --
126: -- Check whether field is being updated
127: --
128: l_api_updating := per_sha_shd.api_updating
129: (p_std_holiday_absences_id => p_std_holiday_absences_id,
130: p_object_version_number => p_object_version_number);
131: --
132: if (l_api_updating AND
129: (p_std_holiday_absences_id => p_std_holiday_absences_id,
130: p_object_version_number => p_object_version_number);
131: --
132: if (l_api_updating AND
133: per_sha_shd.g_old_rec.date_not_taken <> p_date_not_taken) then
134: --
135: -- Check whether the ACTUAL_DATE_TAKEN is NULL
136: --
137: if (p_actual_date_taken IS NOT NULL) then
286: --
287: -- Update is not allowed if the ACTUAL_DATE_TAKEN is not NULL or the
288: -- EXPIRED flag is 'checked'
289: --
290: l_api_updating := per_sha_shd.api_updating
291: (p_std_holiday_absences_id => p_std_holiday_absences_id,
292: p_object_version_number => p_object_version_number);
293: --
294: if (l_api_updating AND
291: (p_std_holiday_absences_id => p_std_holiday_absences_id,
292: p_object_version_number => p_object_version_number);
293: --
294: if (l_api_updating AND
295: per_sha_shd.g_old_rec.standard_holiday_id <> p_standard_holiday_id) then
296: if (p_actual_date_taken is not NULL) then
297: hr_utility.set_message(800,'PER_50028_SHA_HOL_UPDATE_ID');
298: hr_utility.raise_error;
299: elsif (p_expired = 'Y') then
368: hr_utility.set_location('Entering:'||l_proc, 10);
369: --
370: -- Check whether field is being updated
371: --
372: l_api_updating := per_sha_shd.api_updating
373: (p_std_holiday_absences_id => p_std_holiday_absences_id,
374: p_object_version_number => p_object_version_number);
375: --
376: if ((l_api_updating AND
373: (p_std_holiday_absences_id => p_std_holiday_absences_id,
374: p_object_version_number => p_object_version_number);
375: --
376: if ((l_api_updating AND
377: nvl(per_sha_shd.g_old_rec.actual_date_taken, hr_api.g_date) <>
378: nvl(p_actual_date_taken, hr_api.g_date))
379: OR
380: (NOT l_api_updating AND p_actual_date_taken IS NOT NULL)) then
381: --
446: hr_utility.set_location('Entering:'||l_proc, 10);
447: --
448: -- Check whether field is being updated
449: --
450: l_api_updating := per_sha_shd.api_updating
451: (p_std_holiday_absences_id => p_std_holiday_absences_id,
452: p_object_version_number => p_object_version_number);
453:
454: if ((l_api_updating AND
451: (p_std_holiday_absences_id => p_std_holiday_absences_id,
452: p_object_version_number => p_object_version_number);
453:
454: if ((l_api_updating AND
455: nvl(per_sha_shd.g_old_rec.expired, hr_api.g_varchar2) <>
456: nvl(p_expired, hr_api.g_varchar2))
457: OR
458: NOT l_api_updating) then
459: --
497: -- Access Status:
498: -- Internal Row Handler Use Only.
499: --
500: procedure chk_df
501: (p_rec in per_sha_shd.g_rec_type) is
502: --
503: l_proc varchar2(72) := g_package||'chk_df';
504: --
505: begin
505: begin
506: hr_utility.set_location('Entering:'||l_proc, 10);
507: --
508: if ((p_rec.std_holiday_absences_id is not null) and (
509: nvl(per_sha_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
510: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
511: nvl(per_sha_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
512: nvl(p_rec.attribute1, hr_api.g_varchar2) or
513: nvl(per_sha_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
507: --
508: if ((p_rec.std_holiday_absences_id is not null) and (
509: nvl(per_sha_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
510: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
511: nvl(per_sha_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
512: nvl(p_rec.attribute1, hr_api.g_varchar2) or
513: nvl(per_sha_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
514: nvl(p_rec.attribute2, hr_api.g_varchar2) or
515: nvl(per_sha_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
509: nvl(per_sha_shd.g_old_rec.attribute_category, hr_api.g_varchar2) <>
510: nvl(p_rec.attribute_category, hr_api.g_varchar2) or
511: nvl(per_sha_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
512: nvl(p_rec.attribute1, hr_api.g_varchar2) or
513: nvl(per_sha_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
514: nvl(p_rec.attribute2, hr_api.g_varchar2) or
515: nvl(per_sha_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
516: nvl(p_rec.attribute3, hr_api.g_varchar2) or
517: nvl(per_sha_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
511: nvl(per_sha_shd.g_old_rec.attribute1, hr_api.g_varchar2) <>
512: nvl(p_rec.attribute1, hr_api.g_varchar2) or
513: nvl(per_sha_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
514: nvl(p_rec.attribute2, hr_api.g_varchar2) or
515: nvl(per_sha_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
516: nvl(p_rec.attribute3, hr_api.g_varchar2) or
517: nvl(per_sha_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
518: nvl(p_rec.attribute4, hr_api.g_varchar2) or
519: nvl(per_sha_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
513: nvl(per_sha_shd.g_old_rec.attribute2, hr_api.g_varchar2) <>
514: nvl(p_rec.attribute2, hr_api.g_varchar2) or
515: nvl(per_sha_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
516: nvl(p_rec.attribute3, hr_api.g_varchar2) or
517: nvl(per_sha_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
518: nvl(p_rec.attribute4, hr_api.g_varchar2) or
519: nvl(per_sha_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
520: nvl(p_rec.attribute5, hr_api.g_varchar2) or
521: nvl(per_sha_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
515: nvl(per_sha_shd.g_old_rec.attribute3, hr_api.g_varchar2) <>
516: nvl(p_rec.attribute3, hr_api.g_varchar2) or
517: nvl(per_sha_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
518: nvl(p_rec.attribute4, hr_api.g_varchar2) or
519: nvl(per_sha_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
520: nvl(p_rec.attribute5, hr_api.g_varchar2) or
521: nvl(per_sha_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
522: nvl(p_rec.attribute6, hr_api.g_varchar2) or
523: nvl(per_sha_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
517: nvl(per_sha_shd.g_old_rec.attribute4, hr_api.g_varchar2) <>
518: nvl(p_rec.attribute4, hr_api.g_varchar2) or
519: nvl(per_sha_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
520: nvl(p_rec.attribute5, hr_api.g_varchar2) or
521: nvl(per_sha_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
522: nvl(p_rec.attribute6, hr_api.g_varchar2) or
523: nvl(per_sha_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
524: nvl(p_rec.attribute7, hr_api.g_varchar2) or
525: nvl(per_sha_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
519: nvl(per_sha_shd.g_old_rec.attribute5, hr_api.g_varchar2) <>
520: nvl(p_rec.attribute5, hr_api.g_varchar2) or
521: nvl(per_sha_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
522: nvl(p_rec.attribute6, hr_api.g_varchar2) or
523: nvl(per_sha_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
524: nvl(p_rec.attribute7, hr_api.g_varchar2) or
525: nvl(per_sha_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
526: nvl(p_rec.attribute8, hr_api.g_varchar2) or
527: nvl(per_sha_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
521: nvl(per_sha_shd.g_old_rec.attribute6, hr_api.g_varchar2) <>
522: nvl(p_rec.attribute6, hr_api.g_varchar2) or
523: nvl(per_sha_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
524: nvl(p_rec.attribute7, hr_api.g_varchar2) or
525: nvl(per_sha_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
526: nvl(p_rec.attribute8, hr_api.g_varchar2) or
527: nvl(per_sha_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
528: nvl(p_rec.attribute9, hr_api.g_varchar2) or
529: nvl(per_sha_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
523: nvl(per_sha_shd.g_old_rec.attribute7, hr_api.g_varchar2) <>
524: nvl(p_rec.attribute7, hr_api.g_varchar2) or
525: nvl(per_sha_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
526: nvl(p_rec.attribute8, hr_api.g_varchar2) or
527: nvl(per_sha_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
528: nvl(p_rec.attribute9, hr_api.g_varchar2) or
529: nvl(per_sha_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
530: nvl(p_rec.attribute10, hr_api.g_varchar2) or
531: nvl(per_sha_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
525: nvl(per_sha_shd.g_old_rec.attribute8, hr_api.g_varchar2) <>
526: nvl(p_rec.attribute8, hr_api.g_varchar2) or
527: nvl(per_sha_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
528: nvl(p_rec.attribute9, hr_api.g_varchar2) or
529: nvl(per_sha_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
530: nvl(p_rec.attribute10, hr_api.g_varchar2) or
531: nvl(per_sha_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
532: nvl(p_rec.attribute11, hr_api.g_varchar2) or
533: nvl(per_sha_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
527: nvl(per_sha_shd.g_old_rec.attribute9, hr_api.g_varchar2) <>
528: nvl(p_rec.attribute9, hr_api.g_varchar2) or
529: nvl(per_sha_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
530: nvl(p_rec.attribute10, hr_api.g_varchar2) or
531: nvl(per_sha_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
532: nvl(p_rec.attribute11, hr_api.g_varchar2) or
533: nvl(per_sha_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
534: nvl(p_rec.attribute12, hr_api.g_varchar2) or
535: nvl(per_sha_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
529: nvl(per_sha_shd.g_old_rec.attribute10, hr_api.g_varchar2) <>
530: nvl(p_rec.attribute10, hr_api.g_varchar2) or
531: nvl(per_sha_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
532: nvl(p_rec.attribute11, hr_api.g_varchar2) or
533: nvl(per_sha_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
534: nvl(p_rec.attribute12, hr_api.g_varchar2) or
535: nvl(per_sha_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
536: nvl(p_rec.attribute13, hr_api.g_varchar2) or
537: nvl(per_sha_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
531: nvl(per_sha_shd.g_old_rec.attribute11, hr_api.g_varchar2) <>
532: nvl(p_rec.attribute11, hr_api.g_varchar2) or
533: nvl(per_sha_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
534: nvl(p_rec.attribute12, hr_api.g_varchar2) or
535: nvl(per_sha_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
536: nvl(p_rec.attribute13, hr_api.g_varchar2) or
537: nvl(per_sha_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
538: nvl(p_rec.attribute14, hr_api.g_varchar2) or
539: nvl(per_sha_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
533: nvl(per_sha_shd.g_old_rec.attribute12, hr_api.g_varchar2) <>
534: nvl(p_rec.attribute12, hr_api.g_varchar2) or
535: nvl(per_sha_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
536: nvl(p_rec.attribute13, hr_api.g_varchar2) or
537: nvl(per_sha_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
538: nvl(p_rec.attribute14, hr_api.g_varchar2) or
539: nvl(per_sha_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
540: nvl(p_rec.attribute15, hr_api.g_varchar2) or
541: nvl(per_sha_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
535: nvl(per_sha_shd.g_old_rec.attribute13, hr_api.g_varchar2) <>
536: nvl(p_rec.attribute13, hr_api.g_varchar2) or
537: nvl(per_sha_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
538: nvl(p_rec.attribute14, hr_api.g_varchar2) or
539: nvl(per_sha_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
540: nvl(p_rec.attribute15, hr_api.g_varchar2) or
541: nvl(per_sha_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
542: nvl(p_rec.attribute16, hr_api.g_varchar2) or
543: nvl(per_sha_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
537: nvl(per_sha_shd.g_old_rec.attribute14, hr_api.g_varchar2) <>
538: nvl(p_rec.attribute14, hr_api.g_varchar2) or
539: nvl(per_sha_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
540: nvl(p_rec.attribute15, hr_api.g_varchar2) or
541: nvl(per_sha_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
542: nvl(p_rec.attribute16, hr_api.g_varchar2) or
543: nvl(per_sha_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
544: nvl(p_rec.attribute17, hr_api.g_varchar2) or
545: nvl(per_sha_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
539: nvl(per_sha_shd.g_old_rec.attribute15, hr_api.g_varchar2) <>
540: nvl(p_rec.attribute15, hr_api.g_varchar2) or
541: nvl(per_sha_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
542: nvl(p_rec.attribute16, hr_api.g_varchar2) or
543: nvl(per_sha_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
544: nvl(p_rec.attribute17, hr_api.g_varchar2) or
545: nvl(per_sha_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
546: nvl(p_rec.attribute18, hr_api.g_varchar2) or
547: nvl(per_sha_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
541: nvl(per_sha_shd.g_old_rec.attribute16, hr_api.g_varchar2) <>
542: nvl(p_rec.attribute16, hr_api.g_varchar2) or
543: nvl(per_sha_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
544: nvl(p_rec.attribute17, hr_api.g_varchar2) or
545: nvl(per_sha_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
546: nvl(p_rec.attribute18, hr_api.g_varchar2) or
547: nvl(per_sha_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
548: nvl(p_rec.attribute19, hr_api.g_varchar2) or
549: nvl(per_sha_shd.g_old_rec.attribute20, hr_api.g_varchar2) <>
543: nvl(per_sha_shd.g_old_rec.attribute17, hr_api.g_varchar2) <>
544: nvl(p_rec.attribute17, hr_api.g_varchar2) or
545: nvl(per_sha_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
546: nvl(p_rec.attribute18, hr_api.g_varchar2) or
547: nvl(per_sha_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
548: nvl(p_rec.attribute19, hr_api.g_varchar2) or
549: nvl(per_sha_shd.g_old_rec.attribute20, hr_api.g_varchar2) <>
550: nvl(p_rec.attribute20, hr_api.g_varchar2)))
551: or
545: nvl(per_sha_shd.g_old_rec.attribute18, hr_api.g_varchar2) <>
546: nvl(p_rec.attribute18, hr_api.g_varchar2) or
547: nvl(per_sha_shd.g_old_rec.attribute19, hr_api.g_varchar2) <>
548: nvl(p_rec.attribute19, hr_api.g_varchar2) or
549: nvl(per_sha_shd.g_old_rec.attribute20, hr_api.g_varchar2) <>
550: nvl(p_rec.attribute20, hr_api.g_varchar2)))
551: or
552: (p_rec.std_holiday_absences_id is null) then
553: --
609: --
610: -- ----------------------------------------------------------------------------
611: -- |---------------------------< insert_validate >----------------------------|
612: -- ----------------------------------------------------------------------------
613: Procedure insert_validate(p_rec in per_sha_shd.g_rec_type) is
614: --
615: l_proc varchar2(72) := g_package||'insert_validate';
616: --
617: Begin
678: --
679: -- ----------------------------------------------------------------------------
680: -- |---------------------------< update_validate >----------------------------|
681: -- ----------------------------------------------------------------------------
682: Procedure update_validate(p_rec in per_sha_shd.g_rec_type) is
683: --
684: l_proc varchar2(72) := g_package||'update_validate';
685: --
686: Begin
747: --
748: -- ----------------------------------------------------------------------------
749: -- |---------------------------< delete_validate >----------------------------|
750: -- ----------------------------------------------------------------------------
751: Procedure delete_validate(p_rec in per_sha_shd.g_rec_type) is
752: --
753: l_proc varchar2(72) := g_package||'delete_validate';
754: --
755: Begin