197: -- {End Of Comments}
198: -- ----------------------------------------------------------------------------
199: Procedure chk_non_updateable_args
200: (p_effective_date in date
201: ,p_rec in irc_cmt_shd.g_rec_type
202: ) IS
203: --
204: l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
205: --
207: --
208: -- Only proceed with the validation if a row exists for the current
209: -- record in the HR Schema.
210: --
211: IF NOT irc_cmt_shd.api_updating
212: (p_communication_topic_id => p_rec.communication_topic_id
213: ,p_object_version_number => p_rec.object_version_number
214: ) THEN
215: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
219: END IF;
220: --
221: -- EDIT_HERE: Add checks to ensure non-updateable args have
222: -- not been updated.
223: if p_rec.subject <> irc_cmt_shd.g_old_rec.subject
224: then
225: hr_api.argument_changed_error
226: (p_api_name => l_proc
227: ,p_argument => 'SUBJECT'
224: then
225: hr_api.argument_changed_error
226: (p_api_name => l_proc
227: ,p_argument => 'SUBJECT'
228: ,p_base_table => irc_cmt_shd.g_tab_nam
229: );
230: end if;
231: if p_rec.communication_id <> irc_cmt_shd.g_old_rec.communication_id
232: then
227: ,p_argument => 'SUBJECT'
228: ,p_base_table => irc_cmt_shd.g_tab_nam
229: );
230: end if;
231: if p_rec.communication_id <> irc_cmt_shd.g_old_rec.communication_id
232: then
233: hr_api.argument_changed_error
234: (p_api_name => l_proc
235: ,p_argument => 'COMMUNICATION_ID'
232: then
233: hr_api.argument_changed_error
234: (p_api_name => l_proc
235: ,p_argument => 'COMMUNICATION_ID'
236: ,p_base_table => irc_cmt_shd.g_tab_nam
237: );
238: end if;
239: --
240: End chk_non_updateable_args;
418: -- |---------------------------< insert_validate >----------------------------|
419: -- ----------------------------------------------------------------------------
420: Procedure insert_validate
421: (p_effective_date in date
422: ,p_rec in irc_cmt_shd.g_rec_type
423: ) is
424: --
425: l_proc varchar2(72) := g_package||'insert_validate';
426: --
456: -- |---------------------------< update_validate >----------------------------|
457: -- ----------------------------------------------------------------------------
458: Procedure update_validate
459: (p_effective_date in date
460: ,p_rec in irc_cmt_shd.g_rec_type
461: ) is
462: --
463: l_proc varchar2(72) := g_package||'update_validate';
464: --
499: -- ----------------------------------------------------------------------------
500: -- |---------------------------< delete_validate >----------------------------|
501: -- ----------------------------------------------------------------------------
502: Procedure delete_validate
503: (p_rec in irc_cmt_shd.g_rec_type
504: ) is
505: --
506: l_proc varchar2(72) := g_package||'delete_validate';
507: --