230: --
231: -- {End Of Comments}
232: -- ----------------------------------------------------------------------------
233: Procedure chk_non_updateable_args
234: (p_rec in ben_cpd_shd.g_rec_type
235: ) IS
236: --
237: l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
238: --
240: --
241: -- Only proceed with the validation if a row exists for the current
242: -- record in the HR Schema.
243: --
244: IF NOT ben_cpd_shd.api_updating
245: (p_pl_id => p_rec.pl_id
246: ,p_lf_evt_ocrd_dt => p_rec.lf_evt_ocrd_dt
247: ,p_oipl_id => p_rec.oipl_id
248: ,p_object_version_number => p_rec.object_version_number
253: fnd_message.raise_error;
254: END IF;
255: --
256: if nvl(p_rec.pl_id, hr_api.g_number) <>
257: ben_cpd_shd.g_old_rec.pl_id then
258: hr_api.argument_changed_error
259: (p_api_name => l_proc
260: ,p_argument => 'PL_ID'
261: ,p_base_table => ben_cpd_shd.g_tab_nam
257: ben_cpd_shd.g_old_rec.pl_id then
258: hr_api.argument_changed_error
259: (p_api_name => l_proc
260: ,p_argument => 'PL_ID'
261: ,p_base_table => ben_cpd_shd.g_tab_nam
262: );
263: end if;
264: --
265: if nvl(p_rec.oipl_id, hr_api.g_number) <>
262: );
263: end if;
264: --
265: if nvl(p_rec.oipl_id, hr_api.g_number) <>
266: ben_cpd_shd.g_old_rec.oipl_id then
267: hr_api.argument_changed_error
268: (p_api_name => l_proc
269: ,p_argument => 'OIPL_ID'
270: ,p_base_table => ben_cpd_shd.g_tab_nam
266: ben_cpd_shd.g_old_rec.oipl_id then
267: hr_api.argument_changed_error
268: (p_api_name => l_proc
269: ,p_argument => 'OIPL_ID'
270: ,p_base_table => ben_cpd_shd.g_tab_nam
271: );
272: end if;
273: --
274: --
272: end if;
273: --
274: --
275: if nvl(p_rec.lf_evt_ocrd_dt, hr_api.g_date) <>
276: ben_cpd_shd.g_old_rec.lf_evt_ocrd_dt then
277: hr_api.argument_changed_error
278: (p_api_name => l_proc
279: ,p_argument => 'LF_EVT_OCRD_DT'
280: ,p_base_table => ben_cpd_shd.g_tab_nam
276: ben_cpd_shd.g_old_rec.lf_evt_ocrd_dt then
277: hr_api.argument_changed_error
278: (p_api_name => l_proc
279: ,p_argument => 'LF_EVT_OCRD_DT'
280: ,p_base_table => ben_cpd_shd.g_tab_nam
281: );
282: end if;
283: --
284: End chk_non_updateable_args;
286: -- ----------------------------------------------------------------------------
287: -- |---------------------------< insert_validate >----------------------------|
288: -- ----------------------------------------------------------------------------
289: Procedure insert_validate
290: (p_rec in ben_cpd_shd.g_rec_type
291: ) is
292: --
293: l_proc varchar2(72) := g_package||'insert_validate';
294: --
303: -- ----------------------------------------------------------------------------
304: -- |---------------------------< update_validate >----------------------------|
305: -- ----------------------------------------------------------------------------
306: Procedure update_validate
307: (p_rec in ben_cpd_shd.g_rec_type
308: ) is
309: --
310: l_proc varchar2(72) := g_package||'update_validate';
311: --
326: -- ----------------------------------------------------------------------------
327: -- |---------------------------< delete_validate >----------------------------|
328: -- ----------------------------------------------------------------------------
329: Procedure delete_validate
330: (p_rec in ben_cpd_shd.g_rec_type
331: ) is
332: --
333: l_proc varchar2(72) := g_package||'delete_validate';
334: --