183: l_dummy varchar2(1);
184: --
185: cursor c1 is
186: select null
187: from pqh_dflt_budget_elements a
188: where a.dflt_budget_element_id = p_dflt_budget_element_id;
189: --
190: Begin
191: --
199: and nvl(p_dflt_budget_element_id,hr_api.g_number)
200: <> nvl(pqh_dfs_shd.g_old_rec.dflt_budget_element_id,hr_api.g_number)
201: or not l_api_updating) then
202: --
203: -- check if dflt_budget_element_id value exists in pqh_dflt_budget_elements 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_elements
213: -- table.
214: --
215: pqh_dfs_shd.constraint_error('PQH_DFLT_FUND_SRCS_FK1');
216: --