202: --
203: -- {End Of Comments}
204: -- ----------------------------------------------------------------------------
205: Procedure chk_non_updateable_args
206: (p_rec in ame_cal_shd.g_rec_type
207: ) IS
208: --
209: l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
210: --
212: --
213: -- Only proceed with the validation if a row exists for the current
214: -- record in the HR Schema.
215: --
216: IF NOT ame_cal_shd.api_updating
217: (p_application_id => p_rec.application_id
218: ,p_language => p_rec.language
219: ) THEN
220: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
234: -- ----------------------------------------------------------------------------
235: -- |---------------------------< insert_validate >----------------------------|
236: -- ----------------------------------------------------------------------------
237: Procedure insert_validate
238: (p_rec in ame_cal_shd.g_rec_type
239: ) is
240: --
241: l_proc varchar2(72) := g_package||'insert_validate';
242: --
267: -- ----------------------------------------------------------------------------
268: -- |---------------------------< update_validate >----------------------------|
269: -- ----------------------------------------------------------------------------
270: Procedure update_validate
271: (p_rec in ame_cal_shd.g_rec_type
272: ) is
273: --
274: l_proc varchar2(72) := g_package||'update_validate';
275: --
290: --
291: chk_non_updateable_args
292: (p_rec => p_rec
293: );
294: if (ame_cal_shd.g_old_rec.application_name <> p_rec.application_name) then
295: chk_application_name(p_application_name => p_rec.application_name
296: ,p_language => p_rec.language);
297: end if;
298: --
303: -- ----------------------------------------------------------------------------
304: -- |---------------------------< delete_validate >----------------------------|
305: -- ----------------------------------------------------------------------------
306: Procedure delete_validate
307: (p_rec in ame_cal_shd.g_rec_type
308: ) is
309: --
310: l_proc varchar2(72) := g_package||'delete_validate';
311: --