[Home] [Help]
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
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;
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
220: l_dummy char(1);
221: l_api_updating boolean;
222: --
223: cursor c1 is
224: select null from ben_ptnl_ler_for_per
225: where person_id = p_person_id
226: and ler_id = p_ler_id
227: and lf_evt_ocrd_dt = p_lf_evt_ocrd_dt
228: and ptnl_ler_for_per_stat_cd = p_ptnl_ler_for_per_stat_cd
295: l_dummy varchar2(1);
296: --
297: cursor c1 is
298: select null
299: from ben_ptnl_ler_for_per a
300: where a.ptnl_ler_for_per_id = p_csd_by_ptnl_ler_for_per_id;
301: --
302: Begin
303: --
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;
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;
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;
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
620: --
621: -- check if value of lookup falls within lookup type.
622: --
623: if hr_api.not_exists_in_hr_lookups
624: (p_lookup_type => 'BEN_PTNL_LER_FOR_PER_SRC',
625: p_lookup_code => p_ptnl_ler_for_per_src_cd,
626: p_effective_date => p_effective_date) then
627: --
628: -- raise error as does not exist as lookup
628: -- raise error as does not exist as lookup
629: --
630: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
631: fnd_message.set_token('FIELD','p_ptnl_ler_for_per_src_cd');
632: fnd_message.set_token('TYPE','BEN_PTNL_LER_FOR_PER_SRC');
633: fnd_message.raise_error;
634: --
635: end if;
636: --
689: --
690: -- check if value of lookup falls within lookup type.
691: --
692: if hr_api.not_exists_in_hr_lookups
693: (p_lookup_type => 'BEN_PTNL_LER_FOR_PER_STAT',
694: p_lookup_code => p_ptnl_ler_for_per_stat_cd,
695: p_effective_date => p_effective_date) then
696: --
697: -- raise error as does not exist as lookup
697: -- raise error as does not exist as lookup
698: --
699: fnd_message.set_name('BEN','BEN_91628_LOOKUP_TYPE_GENERIC');
700: fnd_message.set_token('FIELD','p_ptnl_ler_for_per_stat_cd');
701: fnd_message.set_token('TYPE','BEN_PTNL_LER_FOR_PER_STAT');
702: fnd_message.raise_error;
703: --
704: end if;
705: --
1114: --
1115: cursor csr_leg_code is
1116: select a.legislation_code
1117: from per_business_groups a,
1118: ben_ptnl_ler_for_per b
1119: where b.ptnl_ler_for_per_id = p_ptnl_ler_for_per_id
1120: and a.business_group_id = b.business_group_id;
1121: --
1122: -- Declare local variables