42: Begin
43: --
44: hr_utility.set_location('Entering:'||l_proc, 5);
45: --
46: l_api_updating := ben_pil_shd.api_updating
47: (p_per_in_ler_id => p_per_in_ler_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_per_in_ler_id,hr_api.g_number)
52: <> ben_pil_shd.g_old_rec.per_in_ler_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_pil_shd.constraint_error('BEN_PER_IN_LER_PK');
52: <> ben_pil_shd.g_old_rec.per_in_ler_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_pil_shd.constraint_error('BEN_PER_IN_LER_PK');
57: --
58: elsif not l_api_updating then
59: --
60: -- check if PK is null
62: if p_per_in_ler_id is not null then
63: --
64: -- raise error as PK is not null
65: --
66: ben_pil_shd.constraint_error('BEN_PER_IN_LER_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_pil_shd.api_updating
124: (p_per_in_ler_id => p_per_in_ler_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_ler_id,hr_api.g_number)
129: <> nvl(ben_pil_shd.g_old_rec.ler_id,hr_api.g_number)
130: or not l_api_updating) then
131: --
132: -- check if ler_id value exists in ben_ler_f table
133: --
140: --
141: -- raise error as FK does not relate to PK in ben_ler_f
142: -- table.
143: --
144: ben_pil_shd.constraint_error('BEN_PER_IN_LER_DT1');
145: --
146: end if;
147: --
148: close c1;
199: Begin
200: --
201: hr_utility.set_location('Entering:'||l_proc,5);
202: --
203: l_api_updating := ben_pil_shd.api_updating
204: (p_per_in_ler_id => p_per_in_ler_id,
205: p_object_version_number => p_object_version_number);
206: --
207: if (l_api_updating
205: p_object_version_number => p_object_version_number);
206: --
207: if (l_api_updating
208: and nvl(p_person_id,hr_api.g_number)
209: <> nvl(ben_pil_shd.g_old_rec.person_id,hr_api.g_number)
210: or not l_api_updating) then
211: --
212: -- check if person_id value exists in per_all_people_f table
213: --
220: --
221: -- raise error as FK does not relate to PK in per_all_people_f
222: -- table.
223: --
224: ben_pil_shd.constraint_error('BEN_PER_IN_LER_DT2');
225: --
226: end if;
227: --
228: close c1;
271: Begin
272: --
273: hr_utility.set_location('Entering:'||l_proc, 5);
274: --
275: l_api_updating := ben_pil_shd.api_updating
276: (p_per_in_ler_id => p_per_in_ler_id,
277: p_object_version_number => p_object_version_number);
278: --
279: if (l_api_updating
277: p_object_version_number => p_object_version_number);
278: --
279: if (l_api_updating
280: and p_prvs_stat_cd
281: <> nvl(ben_pil_shd.g_old_rec.prvs_stat_cd,hr_api.g_varchar2)
282: or not l_api_updating)
283: and p_prvs_stat_cd is not null then
284: --
285: -- check if value of lookup falls within lookup type.
341: Begin
342: --
343: hr_utility.set_location('Entering:'||l_proc, 5);
344: --
345: l_api_updating := ben_pil_shd.api_updating
346: (p_per_in_ler_id => p_per_in_ler_id,
347: p_object_version_number => p_object_version_number);
348: --
349: if (l_api_updating
347: p_object_version_number => p_object_version_number);
348: --
349: if (l_api_updating
350: and p_per_in_ler_stat_cd
351: <> nvl(ben_pil_shd.g_old_rec.per_in_ler_stat_cd,hr_api.g_varchar2)
352: or not l_api_updating)
353: and p_per_in_ler_stat_cd is not null then
354: --
355: -- check if value of lookup falls within lookup type.
417: Begin
418: --
419: hr_utility.set_location('Entering:'||l_proc,5);
420: --
421: l_api_updating := ben_pil_shd.api_updating
422: (p_per_in_ler_id => p_per_in_ler_id,
423: p_object_version_number => p_object_version_number);
424: --
425: if (l_api_updating
423: p_object_version_number => p_object_version_number);
424: --
425: if (l_api_updating
426: and nvl(p_bckt_per_in_ler_id,hr_api.g_number)
427: <> nvl(ben_pil_shd.g_old_rec.bckt_per_in_ler_id,hr_api.g_number)
428: or not l_api_updating)
429: and p_bckt_per_in_ler_id is not null
430: then
431: --
440: --
441: -- raise error as FK does not relate to PK in ben_per_in_ler
442: -- table.
443: --
444: ben_pil_shd.constraint_error('BEN_PER_IN_LER_FK2');
445: --
446: end if;
447: --
448: close c1;
496:
497: hr_utility.set_location(' Entering:'||l_proc, 10);
498:
499: if (p_ws_mgr_id
500: <> nvl(ben_pil_shd.g_old_rec.ws_mgr_id,hr_api.g_number)) then
501:
502: open c1;
503: fetch c1 into l_person1,l_person2;
504: if c1%found then
516: end chk_ws_mgr_id;
517: -- ----------------------------------------------------------------------------
518: -- |---------------------------< insert_validate >----------------------------|
519: -- ----------------------------------------------------------------------------
520: Procedure insert_validate(p_rec in ben_pil_shd.g_rec_type
521: ,p_effective_date in date) is
522: --
523: l_proc varchar2(72) := g_package||'insert_validate';
524: --
558: --
559: -- ----------------------------------------------------------------------------
560: -- |---------------------------< update_validate >----------------------------|
561: -- ----------------------------------------------------------------------------
562: Procedure update_validate(p_rec in ben_pil_shd.g_rec_type
563: ,p_effective_date in date) is
564: --
565: l_proc varchar2(72) := g_package||'update_validate';
566: --
604: --
605: -- ----------------------------------------------------------------------------
606: -- |---------------------------< delete_validate >----------------------------|
607: -- ----------------------------------------------------------------------------
608: Procedure delete_validate(p_rec in ben_pil_shd.g_rec_type
609: ,p_effective_date in date) is
610: --
611: l_proc varchar2(72) := g_package||'delete_validate';
612: --