39: l_proc varchar2(72) := g_package||'chk_prtt_enrt_rslt_id';
40: l_api_updating boolean;
41: Begin
42: hr_utility.set_location('Entering:'||l_proc, 5);
43: l_api_updating := ben_pen_shd.api_updating
44: (p_effective_date => p_effective_date,
45: p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
46: p_object_version_number => p_object_version_number);
47: if (l_api_updating
45: p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
46: p_object_version_number => p_object_version_number);
47: if (l_api_updating
48: and nvl(p_prtt_enrt_rslt_id,hr_api.g_number)
49: <> ben_pen_shd.g_old_rec.prtt_enrt_rslt_id) then
50: --
51: -- raise error as PK has changed
52: --
53: ben_pen_shd.constraint_error('BEN_PRTT_ENRT_RSLT_PK');
49: <> ben_pen_shd.g_old_rec.prtt_enrt_rslt_id) then
50: --
51: -- raise error as PK has changed
52: --
53: ben_pen_shd.constraint_error('BEN_PRTT_ENRT_RSLT_PK');
54: --
55: elsif not l_api_updating then
56: --
57: -- check if PK is null
59: if p_prtt_enrt_rslt_id is not null then
60: --
61: -- raise error as PK is not null
62: --
63: ben_pen_shd.constraint_error('BEN_PRTT_ENRT_RSLT_PK');
64: --
65: end if;
66: --
67: end if;
104: Begin
105: --
106: hr_utility.set_location('Entering:'||l_proc, 5);
107: --
108: l_api_updating := ben_pen_shd.api_updating
109: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
110: p_effective_date => p_effective_date,
111: p_object_version_number => p_object_version_number);
112: --
111: p_object_version_number => p_object_version_number);
112: --
113: if (l_api_updating
114: and p_enrt_ovridn_flag
115: <> nvl(ben_pen_shd.g_old_rec.enrt_ovridn_flag,hr_api.g_varchar2)
116: or not l_api_updating) then
117: --
118: -- check if value of lookup falls within lookup type.
119: --
174: Begin
175: --
176: hr_utility.set_location('Entering:'||l_proc, 5);
177: --
178: l_api_updating := ben_pen_shd.api_updating
179: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
180: p_effective_date => p_effective_date,
181: p_object_version_number => p_object_version_number);
182: --
181: p_object_version_number => p_object_version_number);
182: --
183: if (l_api_updating
184: and p_no_lngr_elig_flag
185: <> nvl(ben_pen_shd.g_old_rec.no_lngr_elig_flag,hr_api.g_varchar2)
186: or not l_api_updating) then
187: --
188: -- check if value of lookup falls within lookup type.
189: --
246: Begin
247: --
248: hr_utility.set_location('Entering:'||l_proc, 5);
249: --
250: l_api_updating := ben_pen_shd.api_updating
251: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
252: p_effective_date => p_effective_date,
253: p_object_version_number => p_object_version_number);
254: --
253: p_object_version_number => p_object_version_number);
254: --
255: if (l_api_updating
256: and p_enrt_mthd_cd
257: <> nvl(ben_pen_shd.g_old_rec.enrt_mthd_cd,hr_api.g_varchar2)
258: or not l_api_updating) then
259: --
260: -- check if value of lookup falls within lookup type.
261: --
318: Begin
319: --
320: hr_utility.set_location('Entering:'||l_proc, 5);
321: --
322: l_api_updating := ben_pen_shd.api_updating
323: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
324: p_effective_date => p_effective_date,
325: p_object_version_number => p_object_version_number);
326: --
325: p_object_version_number => p_object_version_number);
326: --
327: if (l_api_updating
328: and p_uom
329: <> nvl(ben_pen_shd.g_old_rec.uom,hr_api.g_varchar2)
330: or not l_api_updating)
331: and p_uom is not null then
332: --
333: -- check if value of lookup falls within lookup type.
389: Begin
390: --
391: hr_utility.set_location('Entering:'||l_proc, 5);
392: --
393: l_api_updating := ben_pen_shd.api_updating
394: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
395: p_effective_date => p_effective_date,
396: p_object_version_number => p_object_version_number);
397: --
396: p_object_version_number => p_object_version_number);
397: --
398: if (l_api_updating
399: and p_prtt_is_cvrd_flag
400: <> nvl(ben_pen_shd.g_old_rec.prtt_is_cvrd_flag,hr_api.g_varchar2)
401: or not l_api_updating) then
402: --
403: -- check if value of lookup falls within lookup type.
404: --
459: Begin
460: --
461: hr_utility.set_location('Entering:'||l_proc, 5);
462: --
463: l_api_updating := ben_pen_shd.api_updating
464: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
465: p_effective_date => p_effective_date,
466: p_object_version_number => p_object_version_number);
467: --
466: p_object_version_number => p_object_version_number);
467: --
468: if (l_api_updating
469: and p_sspndd_flag <>
470: nvl(ben_pen_shd.g_old_rec.sspndd_flag,hr_api.g_varchar2)
471: or not l_api_updating) then
472: --
473: -- check if value of lookup falls within lookup type.
474: --
529: Begin
530: --
531: hr_utility.set_location('Entering:'||l_proc, 5);
532: --
533: l_api_updating := ben_pen_shd.api_updating
534: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
535: p_effective_date => p_effective_date,
536: p_object_version_number => p_object_version_number);
537: --
536: p_object_version_number => p_object_version_number);
537: --
538: if (l_api_updating
539: and p_comp_lvl_cd <>
540: nvl(ben_pen_shd.g_old_rec.comp_lvl_cd,hr_api.g_varchar2)
541: or not l_api_updating) then
542: --
543: -- check if value of lookup falls within lookup type.
544: --
599: Begin
600: --
601: hr_utility.set_location('Entering:'||l_proc, 5);
602: --
603: l_api_updating := ben_pen_shd.api_updating
604: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
605: p_effective_date => p_effective_date,
606: p_object_version_number => p_object_version_number);
607: --
606: p_object_version_number => p_object_version_number);
607: --
608: if (l_api_updating
609: and p_bnft_nnmntry_uom
610: <> nvl(ben_pen_shd.g_old_rec.bnft_nnmntry_uom,hr_api.g_varchar2)
611: or not l_api_updating)
612: and p_bnft_nnmntry_uom is not null then
613: --
614: -- check if value of lookup falls within lookup type.
667: Begin
668: --
669: hr_utility.set_location('Entering:'||l_proc, 5);
670: --
671: l_api_updating := ben_pen_shd.api_updating
672: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
673: p_effective_date => p_effective_date,
674: p_object_version_number => p_object_version_number);
675: --
674: p_object_version_number => p_object_version_number);
675: --
676: if (l_api_updating
677: and p_bnft_typ_cd
678: <> nvl(ben_pen_shd.g_old_rec.bnft_typ_cd,hr_api.g_varchar2)
679: or not l_api_updating)
680: and p_bnft_typ_cd is not null then
681: --
682: -- check if value of lookup falls within lookup type.
736: Begin
737: --
738: hr_utility.set_location('Entering:'||l_proc, 5);
739: --
740: l_api_updating := ben_pen_shd.api_updating
741: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
742: p_effective_date => p_effective_date,
743: p_object_version_number => p_object_version_number);
744: --
743: p_object_version_number => p_object_version_number);
744: --
745: if (l_api_updating
746: and p_prtt_enrt_rslt_stat_cd
747: <> nvl(ben_pen_shd.g_old_rec.prtt_enrt_rslt_stat_cd,hr_api.g_varchar2)
748: or not l_api_updating)
749: and p_prtt_enrt_rslt_stat_cd is not null then
750: --
751: -- check if value of lookup falls within lookup type.
807: Begin
808: --
809: hr_utility.set_location('Entering:'||l_proc, 5);
810: --
811: l_api_updating := ben_pen_shd.api_updating
812: (p_prtt_enrt_rslt_id => p_prtt_enrt_rslt_id,
813: p_effective_date => p_effective_date,
814: p_object_version_number => p_object_version_number);
815: if (l_api_updating
813: p_effective_date => p_effective_date,
814: p_object_version_number => p_object_version_number);
815: if (l_api_updating
816: and p_enrt_ovrid_rsn_cd
817: <> nvl(ben_pen_shd.g_old_rec.enrt_ovrid_rsn_cd,hr_api.g_varchar2)
818: or not l_api_updating)
819: and p_enrt_ovrid_rsn_cd is not null then
820: --
821: -- check if value of lookup falls within lookup type.
3944: -- ----------------------------------------------------------------------------
3945: -- |---------------------------< insert_validate >----------------------------|
3946: -- ----------------------------------------------------------------------------
3947: Procedure insert_validate
3948: (p_rec in ben_pen_shd.g_rec_type,
3949: p_effective_date in date,
3950: p_datetrack_mode in varchar2,
3951: p_validation_start_date in date,
3952: p_validation_end_date in date) is
4078: -- ----------------------------------------------------------------------------
4079: -- |---------------------------< update_validate >----------------------------|
4080: -- ----------------------------------------------------------------------------
4081: Procedure update_validate
4082: (p_rec in ben_pen_shd.g_rec_type,
4083: p_effective_date in date,
4084: p_datetrack_mode in varchar2,
4085: p_validation_start_date in date,
4086: p_validation_end_date in date) is
4224: -- ----------------------------------------------------------------------------
4225: -- |---------------------------< delete_validate >----------------------------|
4226: -- ----------------------------------------------------------------------------
4227: Procedure delete_validate
4228: (p_rec in ben_pen_shd.g_rec_type,
4229: p_effective_date in date,
4230: p_datetrack_mode in varchar2,
4231: p_validation_start_date in date,
4232: p_validation_end_date in date) is