55: <> ben_pgr_shd.g_old_rec.ppl_grp_rt_id) then
56: --
57: -- raise error as PK has changed
58: --
59: ben_pgr_shd.constraint_error('BEN_PPL_GRP_RT_F_PK');
60: --
61: elsif not l_api_updating then
62: --
63: -- check if PK is null
65: if p_ppl_grp_rt_id is not null then
66: --
67: -- raise error as PK is not null
68: --
69: ben_pgr_shd.constraint_error('BEN_PPL_GRP_RT_F_PK');
70: --
71: end if;
72: --
73: end if;
121: l_exists varchar2(1);
122: --
123: cursor c_dup is
124: select null
125: from ben_ppl_grp_rt_f
126: where people_group_id = p_people_group_id
127: and vrbl_rt_prfl_id = p_vrbl_rt_prfl_id
128: and ppl_grp_rt_id <> nvl(p_ppl_grp_rt_id,hr_api.g_number)
129: and business_group_id + 0 = p_business_group_id
196: is
197: l_proc varchar2(72) := g_package||' chk_duplicate_ordr_num ';
198: l_dummy char(1);
199: cursor c1 is select null
200: from ben_ppl_grp_rt_f
201: where vrbl_rt_prfl_id = p_vrbl_rt_prfl_id
202: and ppl_grp_rt_id <> nvl(p_ppl_grp_rt_id,-1)
203: and p_effective_date between effective_start_date
204: and effective_end_date
643: --
644: cursor csr_leg_code is
645: select a.legislation_code
646: from per_business_groups a,
647: ben_ppl_grp_rt_f b
648: where b.ppl_grp_rt_id = p_ppl_grp_rt_id
649: and a.business_group_id = b.business_group_id;
650: --
651: -- Declare local variables