42: Begin
43: --
44: hr_utility.set_location('Entering:'||l_proc, 5);
45: --
46: l_api_updating := ben_bri_shd.api_updating
47: (p_batch_rt_id => p_batch_rt_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_batch_rt_id,hr_api.g_number)
52: <> ben_bri_shd.g_old_rec.batch_rt_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_bri_shd.constraint_error('BEN_BATCH_RATE_INFO_PK');
52: <> ben_bri_shd.g_old_rec.batch_rt_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_bri_shd.constraint_error('BEN_BATCH_RATE_INFO_PK');
57: --
58: elsif not l_api_updating then
59: --
60: -- check if PK is null
62: if p_batch_rt_id is not null then
63: --
64: -- raise error as PK is not null
65: --
66: ben_bri_shd.constraint_error('BEN_BATCH_RATE_INFO_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_bri_shd.api_updating
124: (p_batch_rt_id => p_batch_rt_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_oipl_id,hr_api.g_number)
129: <> nvl(ben_bri_shd.g_old_rec.oipl_id,hr_api.g_number)
130: or not l_api_updating) and
131: p_oipl_id is not null then
132: --
133: -- check if oipl_id value exists in ben_oipl_f table
141: --
142: -- raise error as FK does not relate to PK in ben_oipl_f
143: -- table.
144: --
145: ben_bri_shd.constraint_error('BEN_BATCH_RATE_INFO_DT4');
146: --
147: end if;
148: --
149: close c1;
200: Begin
201: --
202: hr_utility.set_location('Entering:'||l_proc,5);
203: --
204: l_api_updating := ben_bri_shd.api_updating
205: (p_batch_rt_id => p_batch_rt_id,
206: p_object_version_number => p_object_version_number);
207: --
208: if (l_api_updating
206: p_object_version_number => p_object_version_number);
207: --
208: if (l_api_updating
209: and nvl(p_pl_id,hr_api.g_number)
210: <> nvl(ben_bri_shd.g_old_rec.pl_id,hr_api.g_number)
211: or not l_api_updating) and
212: p_pl_id is not null then
213: --
214: -- check if pl_id value exists in ben_pl_f table
222: --
223: -- raise error as FK does not relate to PK in ben_pl_f
224: -- table.
225: --
226: ben_bri_shd.constraint_error('BEN_BATCH_RATE_INFO_DT3');
227: --
228: end if;
229: --
230: close c1;
281: Begin
282: --
283: hr_utility.set_location('Entering:'||l_proc,5);
284: --
285: l_api_updating := ben_bri_shd.api_updating
286: (p_batch_rt_id => p_batch_rt_id,
287: p_object_version_number => p_object_version_number);
288: --
289: if (l_api_updating
287: p_object_version_number => p_object_version_number);
288: --
289: if (l_api_updating
290: and nvl(p_pgm_id,hr_api.g_number)
291: <> nvl(ben_bri_shd.g_old_rec.pgm_id,hr_api.g_number)
292: or not l_api_updating) and
293: p_pgm_id is not null then
294: --
295: -- check if pgm_id value exists in ben_pgm_f table
303: --
304: -- raise error as FK does not relate to PK in ben_pgm_f
305: -- table.
306: --
307: ben_bri_shd.constraint_error('BEN_BATCH_RATE_INFO_DT2');
308: --
309: end if;
310: --
311: close c1;
362: Begin
363: --
364: hr_utility.set_location('Entering:'||l_proc,5);
365: --
366: l_api_updating := ben_bri_shd.api_updating
367: (p_batch_rt_id => p_batch_rt_id,
368: p_object_version_number => p_object_version_number);
369: --
370: if (l_api_updating
368: p_object_version_number => p_object_version_number);
369: --
370: if (l_api_updating
371: and nvl(p_person_id,hr_api.g_number)
372: <> nvl(ben_bri_shd.g_old_rec.person_id,hr_api.g_number)
373: or not l_api_updating) then
374: --
375: -- check if person_id value exists in per_all_people_f table
376: --
383: --
384: -- raise error as FK does not relate to PK in per_all_people_f
385: -- table.
386: --
387: ben_bri_shd.constraint_error('BEN_BATCH_RATE_INFO_DT1');
388: --
389: end if;
390: --
391: close c1;
437: Begin
438: --
439: hr_utility.set_location('Entering:'||l_proc,5);
440: --
441: l_api_updating := ben_bri_shd.api_updating
442: (p_batch_rt_id => p_batch_rt_id,
443: p_object_version_number => p_object_version_number);
444: --
445: if (l_api_updating
443: p_object_version_number => p_object_version_number);
444: --
445: if (l_api_updating
446: and nvl(p_benefit_action_id,hr_api.g_number)
447: <> nvl(ben_bri_shd.g_old_rec.benefit_action_id,hr_api.g_number)
448: or not l_api_updating) then
449: --
450: -- check if benefit_action_id value exists in ben_benefit_actions table
451: --
458: --
459: -- raise error as FK does not relate to PK in ben_benefit_actions
460: -- table.
461: --
462: ben_bri_shd.constraint_error('BEN_BATCH_RATE_INFO_FK1');
463: --
464: end if;
465: --
466: close c1;
508: Begin
509: --
510: hr_utility.set_location('Entering:'||l_proc, 5);
511: --
512: l_api_updating := ben_bri_shd.api_updating
513: (p_batch_rt_id => p_batch_rt_id,
514: p_object_version_number => p_object_version_number);
515: --
516: if (l_api_updating
514: p_object_version_number => p_object_version_number);
515: --
516: if (l_api_updating
517: and p_acty_typ_cd
518: <> nvl(ben_bri_shd.g_old_rec.acty_typ_cd,hr_api.g_varchar2)
519: or not l_api_updating)
520: and p_acty_typ_cd is not null then
521: --
522: -- check if value of lookup falls within lookup type.
578: Begin
579: --
580: hr_utility.set_location('Entering:'||l_proc, 5);
581: --
582: l_api_updating := ben_bri_shd.api_updating
583: (p_batch_rt_id => p_batch_rt_id,
584: p_object_version_number => p_object_version_number);
585: --
586: if (l_api_updating
584: p_object_version_number => p_object_version_number);
585: --
586: if (l_api_updating
587: and p_tx_typ_cd
588: <> nvl(ben_bri_shd.g_old_rec.tx_typ_cd,hr_api.g_varchar2)
589: or not l_api_updating)
590: and p_tx_typ_cd is not null then
591: --
592: -- check if value of lookup falls within lookup type.
648: Begin
649: --
650: hr_utility.set_location('Entering:'||l_proc, 5);
651: --
652: l_api_updating := ben_bri_shd.api_updating
653: (p_batch_rt_id => p_batch_rt_id,
654: p_object_version_number => p_object_version_number);
655: --
656: if (l_api_updating
654: p_object_version_number => p_object_version_number);
655: --
656: if (l_api_updating
657: and p_dflt_flag
658: <> nvl(ben_bri_shd.g_old_rec.dflt_flag,hr_api.g_varchar2)
659: or not l_api_updating) then
660: --
661: -- check if value of lookup falls within lookup type.
662: --
718: Begin
719: --
720: hr_utility.set_location('Entering:'||l_proc, 5);
721: --
722: l_api_updating := ben_bri_shd.api_updating
723: (p_batch_rt_id => p_batch_rt_id,
724: p_object_version_number => p_object_version_number);
725: --
726: if (l_api_updating
724: p_object_version_number => p_object_version_number);
725: --
726: if (l_api_updating
727: and p_bnft_rt_typ_cd
728: <> nvl(ben_bri_shd.g_old_rec.bnft_rt_typ_cd,hr_api.g_varchar2)
729: or not l_api_updating)
730: and p_bnft_rt_typ_cd is not null then
731: --
732: -- check if value of lookup falls within lookup type.
753: --
754: -- ----------------------------------------------------------------------------
755: -- |---------------------------< insert_validate >----------------------------|
756: -- ----------------------------------------------------------------------------
757: Procedure insert_validate(p_rec in ben_bri_shd.g_rec_type
758: ,p_effective_date in date) is
759: --
760: l_proc varchar2(72) := g_package||'insert_validate';
761: --
829: --
830: -- ----------------------------------------------------------------------------
831: -- |---------------------------< update_validate >----------------------------|
832: -- ----------------------------------------------------------------------------
833: Procedure update_validate(p_rec in ben_bri_shd.g_rec_type
834: ,p_effective_date in date) is
835: --
836: l_proc varchar2(72) := g_package||'update_validate';
837: --
905: --
906: -- ----------------------------------------------------------------------------
907: -- |---------------------------< delete_validate >----------------------------|
908: -- ----------------------------------------------------------------------------
909: Procedure delete_validate(p_rec in ben_bri_shd.g_rec_type
910: ,p_effective_date in date) is
911: --
912: l_proc varchar2(72) := g_package||'delete_validate';
913: --