42: Begin
43: --
44: hr_utility.set_location('Entering:'||l_proc, 5);
45: --
46: l_api_updating := ben_xre_shd.api_updating
47: (p_ext_rslt_err_id => p_ext_rslt_err_id,
48: p_object_version_number => p_object_version_number);
49: --
50: if (l_api_updating
48: p_object_version_number => p_object_version_number);
49: --
50: if (l_api_updating
51: and nvl(p_ext_rslt_err_id,hr_api.g_number)
52: <> ben_xre_shd.g_old_rec.ext_rslt_err_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_xre_shd.constraint_error('BEN_EXT_RSLT_ERR_PK');
52: <> ben_xre_shd.g_old_rec.ext_rslt_err_id) then
53: --
54: -- raise error as PK has changed
55: --
56: ben_xre_shd.constraint_error('BEN_EXT_RSLT_ERR_PK');
57: --
58: elsif not l_api_updating then
59: --
60: -- check if PK is null
62: if p_ext_rslt_err_id is not null then
63: --
64: -- raise error as PK is not null
65: --
66: ben_xre_shd.constraint_error('BEN_EXT_RSLT_ERR_PK');
67: --
68: end if;
69: --
70: end if;
119: Begin
120: --
121: hr_utility.set_location('Entering:'||l_proc,5);
122: --
123: l_api_updating := ben_xre_shd.api_updating
124: (p_ext_rslt_err_id => p_ext_rslt_err_id,
125: p_object_version_number => p_object_version_number);
126: --
127: if (l_api_updating
125: p_object_version_number => p_object_version_number);
126: --
127: if (l_api_updating
128: and nvl(p_person_id,hr_api.g_number)
129: <> nvl(ben_xre_shd.g_old_rec.person_id,hr_api.g_number)
130: or not l_api_updating) then
131: --
132: -- check if person_id value exists in per_all_people_f table
133: --
140: --
141: -- raise error as FK does not relate to PK in per_all_people_f
142: -- table.
143: --
144: ben_xre_shd.constraint_error('BEN_EXT_RSLT_ERR_DT1');
145: --
146: end if;
147: --
148: close c1;
190: Begin
191: --
192: hr_utility.set_location('Entering:'||l_proc, 5);
193: --
194: l_api_updating := ben_xre_shd.api_updating
195: (p_ext_rslt_err_id => p_ext_rslt_err_id,
196: p_object_version_number => p_object_version_number);
197: --
198: if (l_api_updating
196: p_object_version_number => p_object_version_number);
197: --
198: if (l_api_updating
199: and p_typ_cd
200: <> nvl(ben_xre_shd.g_old_rec.typ_cd,hr_api.g_varchar2)
201: or not l_api_updating)
202: and p_typ_cd is not null then
203: --
204: -- check if value of lookup falls within lookup type.
265: --
266: hr_utility.set_location('Entering:'||l_proc, 5);
267: --
268: if p_ext_rslt_id is not null then
269: l_api_updating := ben_xre_shd.api_updating
270: (p_ext_rslt_err_id => p_ext_rslt_err_id,
271: p_object_version_number => p_object_version_number);
272: --
273: if (l_api_updating
271: p_object_version_number => p_object_version_number);
272: --
273: if (l_api_updating
274: and nvl(p_ext_rslt_id, hr_api.g_number)
275: <> nvl(ben_xre_shd.g_old_rec.ext_rslt_id, hr_api.g_number)
276: or not l_api_updating) then
277: --
278: -- check if ext_rslt_id value exists in ben_ext_rslt table
279: --
285: close c1;
286: --
287: -- raise error for constraint violation
288: --
289: ben_xre_shd.constraint_error('BEN_EXT_RSLT_ERR_FK2');
290: --
291: end if;
292: --
293: close c1;
302: --
303: -- ----------------------------------------------------------------------------
304: -- |---------------------------< insert_validate >----------------------------|
305: -- ----------------------------------------------------------------------------
306: Procedure insert_validate(p_rec in ben_xre_shd.g_rec_type
307: ,p_effective_date in date) is
308: --
309: l_proc varchar2(72) := g_package||'insert_validate';
310: --
336: --
337: -- ----------------------------------------------------------------------------
338: -- |---------------------------< update_validate >----------------------------|
339: -- ----------------------------------------------------------------------------
340: Procedure update_validate(p_rec in ben_xre_shd.g_rec_type
341: ,p_effective_date in date) is
342: --
343: l_proc varchar2(72) := g_package||'update_validate';
344: --
370: --
371: -- ----------------------------------------------------------------------------
372: -- |---------------------------< delete_validate >----------------------------|
373: -- ----------------------------------------------------------------------------
374: Procedure delete_validate(p_rec in ben_xre_shd.g_rec_type
375: ,p_effective_date in date) is
376: --
377: l_proc varchar2(72) := g_package||'delete_validate';
378: --