DBA Data[Home] [Help]

APPS.BEN_PPL_BUS dependencies on BEN_PPL_SHD

Line 46: l_api_updating := ben_ppl_shd.api_updating

42: Begin
43: --
44: hr_utility.set_location('Entering:'||l_proc, 5);
45: --
46: l_api_updating := ben_ppl_shd.api_updating
47: (p_ptnl_ler_for_per_id => p_ptnl_ler_for_per_id,
48: p_object_version_number => p_object_version_number);
49: --
50: if (l_api_updating

Line 52: <> ben_ppl_shd.g_old_rec.ptnl_ler_for_per_id) then

48: p_object_version_number => p_object_version_number);
49: --
50: if (l_api_updating
51: and nvl(p_ptnl_ler_for_per_id,hr_api.g_number)
52: <> ben_ppl_shd.g_old_rec.ptnl_ler_for_per_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_PK');

Line 56: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_PK');

52: <> ben_ppl_shd.g_old_rec.ptnl_ler_for_per_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_PK');
57: --
58: elsif not l_api_updating then
59: --
60: -- check if PK is null

Line 66: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_PK');

62: if p_ptnl_ler_for_per_id is not null then
63: --
64: -- raise error as PK is not null
65: --
66: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_PK');
67: --
68: end if;
69: --
70: end if;

Line 126: l_api_updating := ben_ppl_shd.api_updating

122: Begin
123: --
124: hr_utility.set_location('Entering:'||l_proc,5);
125: --
126: l_api_updating := ben_ppl_shd.api_updating
127: (p_ptnl_ler_for_per_id => p_ptnl_ler_for_per_id,
128: p_object_version_number => p_object_version_number);
129: --
130: if (l_api_updating

Line 132: <> nvl(ben_ppl_shd.g_old_rec.ler_id,hr_api.g_number)

128: p_object_version_number => p_object_version_number);
129: --
130: if (l_api_updating
131: and nvl(p_ler_id,hr_api.g_number)
132: <> nvl(ben_ppl_shd.g_old_rec.ler_id,hr_api.g_number)
133: or not l_api_updating) then
134: --
135: -- check if ler_id value exists in ben_ler_f table
136: --

Line 147: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_DT1');

143: --
144: -- raise error as FK does not relate to PK in ben_ler_f
145: -- table.
146: --
147: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_DT1');
148: --
149: else
150: --
151: if l_typ_cd = 'CHECKLIST' then

Line 161: = nvl(ben_ppl_shd.g_old_rec.enrt_perd_id,hr_api.g_number)

157: /*
158: -- PB : 5422 :
159: if (l_api_updating
160: and nvl(p_enrt_perd_id,hr_api.g_number)
161: = nvl(ben_ppl_shd.g_old_rec.enrt_perd_id,hr_api.g_number)
162: or (not l_api_updating and p_enrt_perd_id is null )) and
163: (l_typ_cd like 'SCHEDD%' and l_typ_cd <> 'SCHEDDU')
164: then
165: --

Line 235: l_api_updating := ben_ppl_shd.api_updating

231:
232: begin
233: hr_utility.set_location('Entering' || l_proc,5);
234: --
235: l_api_updating := ben_ppl_shd.api_updating
236: (p_ptnl_ler_for_per_id => p_ptnl_ler_for_per_id,
237: p_object_version_number => p_object_version_number);
238: --
239: if ((l_api_updating

Line 241: <> nvl(ben_ppl_shd.g_old_rec.ler_id,hr_api.g_number)

237: p_object_version_number => p_object_version_number);
238: --
239: if ((l_api_updating
240: and (nvl(p_ler_id,hr_api.g_number)
241: <> nvl(ben_ppl_shd.g_old_rec.ler_id,hr_api.g_number)
242: or nvl(p_lf_evt_ocrd_dt,hr_api.g_date)
243: <> nvl(ben_ppl_shd.g_old_rec.lf_evt_ocrd_dt,hr_api.g_date)
244: or nvl(p_ptnl_ler_for_per_stat_cd,hr_api.g_varchar2)
245: <> nvl(ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd,hr_api.g_varchar2)

Line 243: <> nvl(ben_ppl_shd.g_old_rec.lf_evt_ocrd_dt,hr_api.g_date)

239: if ((l_api_updating
240: and (nvl(p_ler_id,hr_api.g_number)
241: <> nvl(ben_ppl_shd.g_old_rec.ler_id,hr_api.g_number)
242: or nvl(p_lf_evt_ocrd_dt,hr_api.g_date)
243: <> nvl(ben_ppl_shd.g_old_rec.lf_evt_ocrd_dt,hr_api.g_date)
244: or nvl(p_ptnl_ler_for_per_stat_cd,hr_api.g_varchar2)
245: <> nvl(ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd,hr_api.g_varchar2)
246: )
247: )

Line 245: <> nvl(ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd,hr_api.g_varchar2)

241: <> nvl(ben_ppl_shd.g_old_rec.ler_id,hr_api.g_number)
242: or nvl(p_lf_evt_ocrd_dt,hr_api.g_date)
243: <> nvl(ben_ppl_shd.g_old_rec.lf_evt_ocrd_dt,hr_api.g_date)
244: or nvl(p_ptnl_ler_for_per_stat_cd,hr_api.g_varchar2)
245: <> nvl(ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd,hr_api.g_varchar2)
246: )
247: )
248: or not l_api_updating) then
249: --

Line 306: l_api_updating := ben_ppl_shd.api_updating

302: Begin
303: --
304: hr_utility.set_location('Entering:'||l_proc,5);
305: --
306: l_api_updating := ben_ppl_shd.api_updating
307: (p_ptnl_ler_for_per_id => p_ptnl_ler_for_per_id,
308: p_object_version_number => p_object_version_number);
309: --
310: if (l_api_updating

Line 312: <> nvl(ben_ppl_shd.g_old_rec.csd_by_ptnl_ler_for_per_id,hr_api.g_number)

308: p_object_version_number => p_object_version_number);
309: --
310: if (l_api_updating
311: and nvl(p_csd_by_ptnl_ler_for_per_id,hr_api.g_number)
312: <> nvl(ben_ppl_shd.g_old_rec.csd_by_ptnl_ler_for_per_id,hr_api.g_number)
313: or (not l_api_updating and p_csd_by_ptnl_ler_for_per_id is not null )) then
314: --
315: -- check if csd_by_ptnl_ler_for_per_id value exists in ben_enrt_perd table
316: --

Line 327: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_FK2');

323: --
324: -- raise error as FK does not relate to PK in ben_enrt_perd
325: -- table.
326: --
327: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_FK2');
328: --
329: end if;
330: --
331: close c1;

Line 382: l_api_updating := ben_ppl_shd.api_updating

378: Begin
379: --
380: hr_utility.set_location('Entering:'||l_proc,5);
381: --
382: l_api_updating := ben_ppl_shd.api_updating
383: (p_ptnl_ler_for_per_id => p_ptnl_ler_for_per_id,
384: p_object_version_number => p_object_version_number);
385: --
386: if (l_api_updating

Line 388: <> nvl(ben_ppl_shd.g_old_rec.enrt_perd_id,hr_api.g_number)

384: p_object_version_number => p_object_version_number);
385: --
386: if (l_api_updating
387: and nvl(p_enrt_perd_id,hr_api.g_number)
388: <> nvl(ben_ppl_shd.g_old_rec.enrt_perd_id,hr_api.g_number)
389: or (not l_api_updating and p_enrt_perd_id is not null )) then
390: --
391: -- check if enrt_perd_id value exists in ben_enrt_perd table
392: --

Line 403: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_FK1');

399: --
400: -- raise error as FK does not relate to PK in ben_enrt_perd
401: -- table.
402: --
403: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_FK1');
404: --
405: end if;
406: --
407: close c1;

Line 502: l_api_updating := ben_ppl_shd.api_updating

498: hr_utility.set_location('p_effective_date: '||p_effective_date,5);
499: hr_utility.set_location('p_object_version_number: '||p_object_version_number,5);
500: */
501: --
502: l_api_updating := ben_ppl_shd.api_updating
503: (p_ptnl_ler_for_per_id => p_ptnl_ler_for_per_id,
504: p_object_version_number => p_object_version_number);
505: --
506: if (l_api_updating

Line 508: <> nvl(ben_ppl_shd.g_old_rec.person_id,hr_api.g_number)

504: p_object_version_number => p_object_version_number);
505: --
506: if (l_api_updating
507: and nvl(p_person_id,hr_api.g_number)
508: <> nvl(ben_ppl_shd.g_old_rec.person_id,hr_api.g_number)
509: or not l_api_updating) then
510: --
511: -- check if person_id value exists in per_all_people_f table
512: hr_utility.set_location('ace p_lf_evt_ocrd_dt = ' || p_lf_evt_ocrd_dt, 9999);

Line 549: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_DT2');

545: -- table.
546: --
547: close c2;
548: hr_utility.set_location('p_person_id: '||p_person_id,5.5);
549: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_DT2');
550: --
551: else
552: open c1(l_person_id, l_cobra_evt_flag);
553: fetch c1 into l_dummy;

Line 557: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_DT2');

553: fetch c1 into l_dummy;
554: if c1%notfound then
555: close c1;
556: hr_utility.set_location('p_person_id: '||p_person_id,5.5);
557: ben_ppl_shd.constraint_error('BEN_PTNL_LER_FOR_PER_DT2');
558: else
559: close c1;
560: end if;
561: end if; --end c2

Line 611: l_api_updating := ben_ppl_shd.api_updating

607: Begin
608: --
609: hr_utility.set_location('Entering:'||l_proc, 5);
610: --
611: l_api_updating := ben_ppl_shd.api_updating
612: (p_ptnl_ler_for_per_id => p_ptnl_ler_for_per_id,
613: p_object_version_number => p_object_version_number);
614: --
615: if (l_api_updating

Line 617: <> nvl(ben_ppl_shd.g_old_rec.ptnl_ler_for_per_src_cd,hr_api.g_varchar2)

613: p_object_version_number => p_object_version_number);
614: --
615: if (l_api_updating
616: and p_ptnl_ler_for_per_src_cd
617: <> nvl(ben_ppl_shd.g_old_rec.ptnl_ler_for_per_src_cd,hr_api.g_varchar2)
618: or not l_api_updating)
619: and p_ptnl_ler_for_per_src_cd is not null then
620: --
621: -- check if value of lookup falls within lookup type.

Line 681: l_api_updating := ben_ppl_shd.api_updating

677: Begin
678: --
679: hr_utility.set_location('Entering:'||l_proc, 5);
680: --
681: l_api_updating := ben_ppl_shd.api_updating
682: (p_ptnl_ler_for_per_id => p_ptnl_ler_for_per_id,
683: p_object_version_number => p_object_version_number);
684: --
685: if (l_api_updating

Line 687: <> nvl(ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd,hr_api.g_varchar2)

683: p_object_version_number => p_object_version_number);
684: --
685: if (l_api_updating
686: and p_ptnl_ler_for_per_stat_cd
687: <> nvl(ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd,hr_api.g_varchar2)
688: or not l_api_updating) then
689: --
690: -- check if value of lookup falls within lookup type.
691: --

Line 716: and ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd = 'DTCTD'

712: fnd_message.set_name('BEN','BEN_92162_INV_PPL_STCD_TRANS');
713: fnd_message.raise_error;
714: --
715: elsif l_api_updating
716: and ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd = 'DTCTD'
717: and p_ptnl_ler_for_per_stat_cd not in ('PROCD', 'VOIDD','MNL') then
718: --
719: hr_utility.set_location('DTCTD: '||l_proc, 10);
720: fnd_message.set_name('BEN','BEN_92162_INV_PPL_STCD_TRANS');

Line 724: and ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd = 'UNPROCD'

720: fnd_message.set_name('BEN','BEN_92162_INV_PPL_STCD_TRANS');
721: fnd_message.raise_error;
722: --
723: elsif l_api_updating
724: and ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd = 'UNPROCD'
725: and p_ptnl_ler_for_per_stat_cd not in ('PROCD', 'VOIDD','MNL') then
726: --
727: hr_utility.set_location('UNPROCD: '||l_proc, 10);
728: fnd_message.set_name('BEN','BEN_92162_INV_PPL_STCD_TRANS');

Line 732: and ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd = 'VOIDD'

728: fnd_message.set_name('BEN','BEN_92162_INV_PPL_STCD_TRANS');
729: fnd_message.raise_error;
730: --
731: elsif l_api_updating
732: and ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd = 'VOIDD'
733: and p_ptnl_ler_for_per_stat_cd not in ('UNPROCD','MNL') then
734: --
735: hr_utility.set_location('VOIDD: '||l_proc, 10);
736: fnd_message.set_name('BEN','BEN_92162_INV_PPL_STCD_TRANS');

Line 740: and ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd = 'PROCD'

736: fnd_message.set_name('BEN','BEN_92162_INV_PPL_STCD_TRANS');
737: fnd_message.raise_error;
738: --
739: elsif l_api_updating
740: and ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd = 'PROCD'
741: and p_ptnl_ler_for_per_stat_cd not in ('UNPROCD','MNL','VOIDD') then
742: --
743: hr_utility.set_location('PROCD: '||l_proc, 10);
744: fnd_message.set_name('BEN','BEN_92162_INV_PPL_STCD_TRANS');

Line 748: and ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd = 'MNL'

744: fnd_message.set_name('BEN','BEN_92162_INV_PPL_STCD_TRANS');
745: fnd_message.raise_error;
746: --
747: elsif l_api_updating
748: and ben_ppl_shd.g_old_rec.ptnl_ler_for_per_stat_cd = 'MNL'
749: and p_ptnl_ler_for_per_stat_cd not in ('UNPROCD','VOIDD','MNLO') then
750: --
751: hr_utility.set_location('MNL: '||l_proc, 10);
752: fnd_message.set_name('BEN','BEN_92162_INV_PPL_STCD_TRANS');

Line 934: Procedure insert_validate(p_rec in ben_ppl_shd.g_rec_type

930: --
931: -- ----------------------------------------------------------------------------
932: -- |---------------------------< insert_validate >----------------------------|
933: -- ----------------------------------------------------------------------------
934: Procedure insert_validate(p_rec in ben_ppl_shd.g_rec_type
935: ,p_effective_date in date) is
936: --
937: l_proc varchar2(72) := g_package||'insert_validate';
938: --

Line 1014: Procedure update_validate(p_rec in ben_ppl_shd.g_rec_type

1010: --
1011: -- ----------------------------------------------------------------------------
1012: -- |---------------------------< update_validate >----------------------------|
1013: -- ----------------------------------------------------------------------------
1014: Procedure update_validate(p_rec in ben_ppl_shd.g_rec_type
1015: ,p_effective_date in date) is
1016: --
1017: l_proc varchar2(72) := g_package||'update_validate';
1018: --

Line 1092: Procedure delete_validate(p_rec in ben_ppl_shd.g_rec_type

1088: --
1089: -- ----------------------------------------------------------------------------
1090: -- |---------------------------< delete_validate >----------------------------|
1091: -- ----------------------------------------------------------------------------
1092: Procedure delete_validate(p_rec in ben_ppl_shd.g_rec_type
1093: ,p_effective_date in date) is
1094: --
1095: l_proc varchar2(72) := g_package||'delete_validate';
1096: --