44: Begin
45: --
46: hr_utility.set_location('Entering:'||l_proc, 5);
47: --
48: l_api_updating := ben_pnd_shd.api_updating
49: (p_effective_date => p_effective_date,
50: p_pl_dpnt_cvg_ctfn_id => p_pl_dpnt_cvg_ctfn_id,
51: p_object_version_number => p_object_version_number);
52: --
51: p_object_version_number => p_object_version_number);
52: --
53: if (l_api_updating
54: and nvl(p_pl_dpnt_cvg_ctfn_id,hr_api.g_number)
55: <> ben_pnd_shd.g_old_rec.pl_dpnt_cvg_ctfn_id) then
56: --
57: -- raise error as PK has changed
58: --
59: ben_pnd_shd.constraint_error('BEN_PL_DPNT_CVG_CTFN_PK');
55: <> ben_pnd_shd.g_old_rec.pl_dpnt_cvg_ctfn_id) then
56: --
57: -- raise error as PK has changed
58: --
59: ben_pnd_shd.constraint_error('BEN_PL_DPNT_CVG_CTFN_PK');
60: --
61: elsif not l_api_updating then
62: --
63: -- check if PK is null
65: if p_pl_dpnt_cvg_ctfn_id is not null then
66: --
67: -- raise error as PK is not null
68: --
69: ben_pnd_shd.constraint_error('BEN_PL_DPNT_CVG_CTFN_PK');
70: --
71: end if;
72: --
73: end if;
179: Begin
180: --
181: hr_utility.set_location('Entering:'||l_proc, 5);
182: --
183: l_api_updating := ben_pnd_shd.api_updating
184: (p_pl_dpnt_cvg_ctfn_id => p_pl_dpnt_cvg_ctfn_id,
185: p_effective_date => p_effective_date,
186: p_object_version_number => p_object_version_number);
187: --
186: p_object_version_number => p_object_version_number);
187: --
188: if (l_api_updating
189: and p_rlshp_typ_cd
190: <> nvl(ben_pnd_shd.g_old_rec.rlshp_typ_cd,hr_api.g_varchar2)
191: or not l_api_updating)
192: and p_rlshp_typ_cd is not null then
193: --
194: -- check if value of lookup falls within lookup type.
248: Begin
249: --
250: hr_utility.set_location('Entering:'||l_proc, 5);
251: --
252: l_api_updating := ben_pnd_shd.api_updating
253: (p_pl_dpnt_cvg_ctfn_id => p_pl_dpnt_cvg_ctfn_id,
254: p_effective_date => p_effective_date,
255: p_object_version_number => p_object_version_number);
256: --
255: p_object_version_number => p_object_version_number);
256: --
257: if (l_api_updating
258: and p_rqd_flag
259: <> nvl(ben_pnd_shd.g_old_rec.rqd_flag,hr_api.g_varchar2)
260: or not l_api_updating) then
261: --
262: -- check if value of lookup falls within lookup type.
263: --
317: Begin
318: --
319: hr_utility.set_location('Entering:'||l_proc, 5);
320: --
321: l_api_updating := ben_pnd_shd.api_updating
322: (p_pl_dpnt_cvg_ctfn_id => p_pl_dpnt_cvg_ctfn_id,
323: p_effective_date => p_effective_date,
324: p_object_version_number => p_object_version_number);
325: --
324: p_object_version_number => p_object_version_number);
325: --
326: if (l_api_updating
327: and p_dpnt_cvg_ctfn_typ_cd
328: <> nvl(ben_pnd_shd.g_old_rec.dpnt_cvg_ctfn_typ_cd,hr_api.g_varchar2)
329: or not l_api_updating) then
330: --
331: -- check if value of lookup falls within lookup type.
332: --
386: Begin
387: --
388: hr_utility.set_location('Entering:'||l_proc, 5);
389: --
390: l_api_updating := ben_pnd_shd.api_updating
391: (p_pl_dpnt_cvg_ctfn_id => p_pl_dpnt_cvg_ctfn_id,
392: p_effective_date => p_effective_date,
393: p_object_version_number => p_object_version_number);
394: --
393: p_object_version_number => p_object_version_number);
394: --
395: if (l_api_updating
396: and p_lack_ctfn_sspnd_enrt_flag
397: <> nvl(ben_pnd_shd.g_old_rec.lack_ctfn_sspnd_enrt_flag,hr_api.g_varchar2)
398: or not l_api_updating) then
399: --
400: -- check if value of lookup falls within lookup type.
401: --
472: Begin
473: --
474: hr_utility.set_location('Entering:'||l_proc, 5);
475: --
476: l_api_updating := ben_pnd_shd.api_updating
477: (p_pl_dpnt_cvg_ctfn_id => p_pl_dpnt_cvg_ctfn_id,
478: p_effective_date => p_effective_date,
479: p_object_version_number => p_object_version_number);
480: --
479: p_object_version_number => p_object_version_number);
480: --
481: if (l_api_updating
482: and nvl(p_ctfn_rqd_when_rl,hr_api.g_number)
483: <> ben_pnd_shd.g_old_rec.ctfn_rqd_when_rl
484: or not l_api_updating)
485: and p_ctfn_rqd_when_rl is not null then
486: --
487: -- check if value of formula rule is valid.
551: Begin
552: --
553: hr_utility.set_location('Entering:'||l_proc, 5);
554: --
555: l_api_updating := ben_pnd_shd.api_updating
556: (p_pl_dpnt_cvg_ctfn_id => p_pl_dpnt_cvg_ctfn_id,
557: p_effective_date => p_effective_date,
558: p_object_version_number => p_object_version_number);
559: --
558: p_object_version_number => p_object_version_number);
559: --
560: if (l_api_updating
561: and p_pfd_flag
562: <> nvl(ben_pnd_shd.g_old_rec.pfd_flag,hr_api.g_varchar2)
563: or not l_api_updating) then
564: --
565: -- check if value of lookup falls within lookup type.
566: --
790: -- ----------------------------------------------------------------------------
791: -- |---------------------------< insert_validate >----------------------------|
792: -- ----------------------------------------------------------------------------
793: Procedure insert_validate
794: (p_rec in ben_pnd_shd.g_rec_type,
795: p_effective_date in date,
796: p_datetrack_mode in varchar2,
797: p_validation_start_date in date,
798: p_validation_end_date in date) is
864: -- ----------------------------------------------------------------------------
865: -- |---------------------------< update_validate >----------------------------|
866: -- ----------------------------------------------------------------------------
867: Procedure update_validate
868: (p_rec in ben_pnd_shd.g_rec_type,
869: p_effective_date in date,
870: p_datetrack_mode in varchar2,
871: p_validation_start_date in date,
872: p_validation_end_date in date) is
946: -- ----------------------------------------------------------------------------
947: -- |---------------------------< delete_validate >----------------------------|
948: -- ----------------------------------------------------------------------------
949: Procedure delete_validate
950: (p_rec in ben_pnd_shd.g_rec_type,
951: p_effective_date in date,
952: p_datetrack_mode in varchar2,
953: p_validation_start_date in date,
954: p_validation_end_date in date) is