197: -- {End Of Comments}
198: -- ----------------------------------------------------------------------------
199: Procedure chk_non_updateable_args
200: (p_effective_date in date
201: ,p_rec in irc_cmm_shd.g_rec_type
202: ) IS
203: --
204: l_proc varchar2(72) := g_package || 'chk_non_updateable_args';
205: l_error EXCEPTION;
209: --
210: -- Only proceed with the validation if a row exists for the current
211: -- record in the HR Schema.
212: --
213: IF NOT irc_cmm_shd.api_updating
214: (p_communication_message_id => p_rec.communication_message_id
215: ,p_object_version_number => p_rec.object_version_number
216: ) THEN
217: fnd_message.set_name('PER', 'HR_6153_ALL_PROCEDURE_FAIL');
225: --
226: --
227: -- Ensure non-updateable args have not been updated.
228: --
229: if p_rec.communication_topic_id <> irc_cmm_shd.g_old_rec.communication_topic_id
230: then
231: hr_api.argument_changed_error
232: (p_api_name => l_proc
233: ,p_argument => 'COMMUNICATION_TOPIC_ID'
230: then
231: hr_api.argument_changed_error
232: (p_api_name => l_proc
233: ,p_argument => 'COMMUNICATION_TOPIC_ID'
234: ,p_base_table => irc_cmm_shd.g_tab_nam
235: );
236: end if;
237: if p_rec.sender_type <> irc_cmm_shd.g_old_rec.sender_type
238: then
233: ,p_argument => 'COMMUNICATION_TOPIC_ID'
234: ,p_base_table => irc_cmm_shd.g_tab_nam
235: );
236: end if;
237: if p_rec.sender_type <> irc_cmm_shd.g_old_rec.sender_type
238: then
239: hr_api.argument_changed_error
240: (p_api_name => l_proc
241: ,p_argument => 'SENDER_TYPE'
238: then
239: hr_api.argument_changed_error
240: (p_api_name => l_proc
241: ,p_argument => 'SENDER_TYPE'
242: ,p_base_table => irc_cmm_shd.g_tab_nam
243: );
244: end if;
245: if p_rec.sender_id <> irc_cmm_shd.g_old_rec.sender_id
246: then
241: ,p_argument => 'SENDER_TYPE'
242: ,p_base_table => irc_cmm_shd.g_tab_nam
243: );
244: end if;
245: if p_rec.sender_id <> irc_cmm_shd.g_old_rec.sender_id
246: then
247: hr_api.argument_changed_error
248: (p_api_name => l_proc
249: ,p_argument => 'SENDER_ID'
246: then
247: hr_api.argument_changed_error
248: (p_api_name => l_proc
249: ,p_argument => 'SENDER_ID'
250: ,p_base_table => irc_cmm_shd.g_tab_nam
251: );
252: end if;
253: if irc_cmm_shd.g_old_rec.message_subject IS NOT NULL AND
254: p_rec.message_subject <> irc_cmm_shd.g_old_rec.message_subject
249: ,p_argument => 'SENDER_ID'
250: ,p_base_table => irc_cmm_shd.g_tab_nam
251: );
252: end if;
253: if irc_cmm_shd.g_old_rec.message_subject IS NOT NULL AND
254: p_rec.message_subject <> irc_cmm_shd.g_old_rec.message_subject
255: then
256: hr_api.argument_changed_error
257: (p_api_name => l_proc
250: ,p_base_table => irc_cmm_shd.g_tab_nam
251: );
252: end if;
253: if irc_cmm_shd.g_old_rec.message_subject IS NOT NULL AND
254: p_rec.message_subject <> irc_cmm_shd.g_old_rec.message_subject
255: then
256: hr_api.argument_changed_error
257: (p_api_name => l_proc
258: ,p_argument => 'MESSAGE_SUBJECT'
255: then
256: hr_api.argument_changed_error
257: (p_api_name => l_proc
258: ,p_argument => 'MESSAGE_SUBJECT'
259: ,p_base_table => irc_cmm_shd.g_tab_nam
260: );
261: end if;
262: --
263: End chk_non_updateable_args;
706: -- |---------------------------< insert_validate >----------------------------|
707: -- ----------------------------------------------------------------------------
708: Procedure insert_validate
709: (p_effective_date in date
710: ,p_rec in irc_cmm_shd.g_rec_type
711: ) is
712: --
713: l_proc varchar2(72) := g_package||'insert_validate';
714: --
751: -- |---------------------------< update_validate >----------------------------|
752: -- ----------------------------------------------------------------------------
753: Procedure update_validate
754: (p_effective_date in date
755: ,p_rec in irc_cmm_shd.g_rec_type
756: ) is
757: --
758: l_proc varchar2(72) := g_package||'update_validate';
759: --
800: -- ----------------------------------------------------------------------------
801: -- |---------------------------< delete_validate >----------------------------|
802: -- ----------------------------------------------------------------------------
803: Procedure delete_validate
804: (p_rec in irc_cmm_shd.g_rec_type
805: ) is
806: --
807: l_proc varchar2(72) := g_package||'delete_validate';
808: --