182: l_dummy varchar2(1);
183: --
184: cursor c1 is
185: select null
186: from pqh_dflt_budget_sets a
187: where a.dflt_budget_set_id = p_dflt_budget_set_id;
188: --
189: Begin
190: --
199: <> nvl(pqh_bst_shd.g_old_rec.dflt_budget_set_id,hr_api.g_number)
200: or not l_api_updating) and
201: p_dflt_budget_set_id is not null then
202: --
203: -- check if dflt_budget_set_id value exists in pqh_dflt_budget_sets table
204: --
205: open c1;
206: --
207: fetch c1 into l_dummy;
208: if c1%notfound then
209: --
210: close c1;
211: --
212: -- raise error as FK does not relate to PK in pqh_dflt_budget_sets
213: -- table.
214: --
215: pqh_bst_shd.constraint_error('PQH_BUDGET_SETS_FK1');
216: --