112: l_dummy varchar2(1);
113: --
114: cursor c1 is
115: select null
116: from ben_gd_or_svc_typ a
117: where a.gd_or_svc_typ_id = p_gd_or_svc_typ_id;
118: --
119: Begin
120: --
129: and nvl(p_gd_or_svc_typ_id,hr_api.g_number)
130: <> nvl(ben_vgs_shd.g_old_rec.gd_or_svc_typ_id,hr_api.g_number)
131: or not l_api_updating) then
132: --
133: -- check if gd_or_svc_typ_id value exists in ben_gd_or_svc_typ table
134: --
135: open c1;
136: --
137: fetch c1 into l_dummy;
138: if c1%notfound then
139: --
140: close c1;
141: --
142: -- raise error as FK does not relate to PK in ben_gd_or_svc_typ
143: -- table.
144: --
145: ben_vgs_shd.constraint_error('BEN_PL_GD_OR_SVC_FK1');
146: --