42: Begin
43: --
44: hr_utility.set_location('Entering:'||l_proc, 5);
45: --
46: l_api_updating := ben_crt_shd.api_updating
47: (p_crt_ordr_id => p_crt_ordr_id,
48: p_object_version_number => p_object_version_number);
49: --
50: if (l_api_updating
48: p_object_version_number => p_object_version_number);
49: --
50: if (l_api_updating
51: and nvl(p_crt_ordr_id,hr_api.g_number)
52: <> ben_crt_shd.g_old_rec.crt_ordr_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_crt_shd.constraint_error('BEN_CRT_ORDR_PK');
52: <> ben_crt_shd.g_old_rec.crt_ordr_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_crt_shd.constraint_error('BEN_CRT_ORDR_PK');
57: --
58: elsif not l_api_updating then
59: --
60: -- check if PK is null
62: if p_crt_ordr_id is not null then
63: --
64: -- raise error as PK is not null
65: --
66: ben_crt_shd.constraint_error('BEN_CRT_ORDR_PK');
67: --
68: end if;
69: --
70: end if;
119: Begin
120: --
121: hr_utility.set_location('Entering:'||l_proc,5);
122: --
123: l_api_updating := ben_crt_shd.api_updating
124: (p_crt_ordr_id => p_crt_ordr_id,
125: p_object_version_number => p_object_version_number);
126: --
127: if (l_api_updating
125: p_object_version_number => p_object_version_number);
126: --
127: if (l_api_updating
128: and nvl(p_person_id,hr_api.g_number)
129: <> nvl(ben_crt_shd.g_old_rec.person_id,hr_api.g_number)
130: or not l_api_updating) then
131: --
132: -- check if person_id value exists in per_all_people_f table
133: --
140: --
141: -- raise error as FK does not relate to PK in per_all_people_f
142: -- table.
143: --
144: ben_crt_shd.constraint_error('BEN_CRT_ORDR_DT1');
145: --
146: end if;
147: --
148: close c1;
210: Begin
211: --
212: hr_utility.set_location('Entering:'||l_proc,5);
213: --
214: l_api_updating := ben_crt_shd.api_updating
215: (p_crt_ordr_id => p_crt_ordr_id,
216: p_object_version_number => p_object_version_number);
217: --
218: if (l_api_updating
216: p_object_version_number => p_object_version_number);
217: --
218: if (l_api_updating
219: and nvl(p_pl_id,hr_api.g_number)
220: <> nvl(ben_crt_shd.g_old_rec.pl_id,hr_api.g_number)
221: or not l_api_updating)
222: and p_pl_id is not null then
223: --
224: -- check if pl_id value exists in ben_pl_f table
232: --
233: -- raise error as FK does not relate to PK in ben_pl_f
234: -- table.
235: --
236: ben_crt_shd.constraint_error('BEN_CRT_ORDR_DT2');
237: --
238: end if;
239: --
240: close c1;
353: Begin
354: --
355: hr_utility.set_location('Entering:'||l_proc,5);
356: --
357: l_api_updating := ben_crt_shd.api_updating
358: (p_crt_ordr_id => p_crt_ordr_id,
359: p_object_version_number => p_object_version_number);
360: --
361: if (l_api_updating
359: p_object_version_number => p_object_version_number);
360: --
361: if (l_api_updating
362: and nvl(p_pl_typ_id,hr_api.g_number)
363: <> nvl(ben_crt_shd.g_old_rec.pl_typ_id,hr_api.g_number)
364: or not l_api_updating)
365: and p_pl_typ_id is not null then
366: --
367: -- check if pl_typ_id value exists in ben_pl_typ_f table
375: --
376: -- raise error as FK does not relate to PK in ben_pl_typ_f
377: -- table.
378: --
379: ben_crt_shd.constraint_error('BEN_CRT_ORDR_DT3');
380: --
381: end if;
382: --
383: close c1;
477: Begin
478: --
479: hr_utility.set_location('Entering:'||l_proc, 5);
480: --
481: l_api_updating := ben_crt_shd.api_updating
482: (p_crt_ordr_id => p_crt_ordr_id,
483: p_object_version_number => p_object_version_number);
484: --
485: if (l_api_updating
483: p_object_version_number => p_object_version_number);
484: --
485: if (l_api_updating
486: and p_qdro_dstr_mthd_cd
487: <> nvl(ben_crt_shd.g_old_rec.qdro_dstr_mthd_cd,hr_api.g_varchar2)
488: or not l_api_updating)
489: and p_qdro_dstr_mthd_cd is not null then
490: --
491: -- check if value of lookup falls within lookup type.
548: Begin
549: --
550: hr_utility.set_location('Entering:'||l_proc, 5);
551: --
552: l_api_updating := ben_crt_shd.api_updating
553: (p_crt_ordr_id => p_crt_ordr_id,
554: p_object_version_number => p_object_version_number);
555: --
556: if (l_api_updating
554: p_object_version_number => p_object_version_number);
555: --
556: if (l_api_updating
557: and p_qdro_per_perd_cd
558: <> nvl(ben_crt_shd.g_old_rec.qdro_per_perd_cd,hr_api.g_varchar2)
559: or not l_api_updating)
560: and p_qdro_per_perd_cd is not null then
561: --
562: -- check if value of lookup falls within lookup type.
619: Begin
620: --
621: hr_utility.set_location('Entering:'||l_proc, 5);
622: --
623: l_api_updating := ben_crt_shd.api_updating
624: (p_crt_ordr_id => p_crt_ordr_id,
625: p_object_version_number => p_object_version_number);
626: --
627: if (l_api_updating
625: p_object_version_number => p_object_version_number);
626: --
627: if (l_api_updating
628: and p_crt_ordr_typ_cd
629: <> nvl(ben_crt_shd.g_old_rec.crt_ordr_typ_cd,hr_api.g_varchar2)
630: or not l_api_updating) then
631: --
632: -- check if value of lookup falls within lookup type.
633: --
698: Begin
699: --
700: hr_utility.set_location('Entering:'||l_proc, 5);
701: --
702: l_api_updating := ben_crt_shd.api_updating
703: (p_crt_ordr_id => p_crt_ordr_id,
704: p_object_version_number => p_object_version_number);
705: --
706: If p_apls_perd_strtg_dt is null then
736: --
737: -- ----------------------------------------------------------------------------
738: -- |---------------------------< insert_validate >----------------------------|
739: -- ----------------------------------------------------------------------------
740: Procedure insert_validate(p_rec in ben_crt_shd.g_rec_type
741: ,p_effective_date in date) is
742: --
743: l_proc varchar2(72) := g_package||'insert_validate';
744: --
814: --
815: -- ----------------------------------------------------------------------------
816: -- |---------------------------< update_validate >----------------------------|
817: -- ----------------------------------------------------------------------------
818: Procedure update_validate(p_rec in ben_crt_shd.g_rec_type
819: ,p_effective_date in date) is
820: --
821: l_proc varchar2(72) := g_package||'update_validate';
822: --
892: --
893: -- ----------------------------------------------------------------------------
894: -- |---------------------------< delete_validate >----------------------------|
895: -- ----------------------------------------------------------------------------
896: Procedure delete_validate(p_rec in ben_crt_shd.g_rec_type
897: ,p_effective_date in date) is
898: --
899: l_proc varchar2(72) := g_package||'delete_validate';
900: --