[Home] [Help]
195: (
196: p_api_error => TRUE
197: );
198: CSM_UTIL_PKG.log( 'Exception in ' || g_object_name || '.APPLY_INSERT:'
199: || ' for PK ' || p_record.NOTIFICATION_ID ,'CSM_MAIL_MESSAGES_PKG.APPLY_INSERT',FND_LOG.LEVEL_EXCEPTION);
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: END APPLY_INSERT;
202:
203:
226: ELSE
227: -- Process delete and update; not supported for this entity
228: CSM_UTIL_PKG.LOG
229: ( 'Delete and Update is not supported for this entity'
230: || ' for PK ' || p_record.notification_id ,'CSM_MAIL_MESSAGES_PKG.APPLY_RECORD',FND_LOG.LEVEL_ERROR);
231:
232: p_error_msg := CSM_UTIL_PKG.GET_ERROR_MESSAGE_TEXT
233: (
234: p_message => 'CSM_DML_OPERATION'
242: EXCEPTION WHEN OTHERS THEN
243: /*** defer record when any process exception occurs ***/
244: CSM_UTIL_PKG.LOG
245: ( 'Exception occurred in CSM_mail_messages_PKG.APPLY_RECORD:' || ' ' || sqlerrm
246: || ' for PK ' || p_record.notification_id,'CSM_MAIL_MESSAGES_PKG.APPLY_RECORD',FND_LOG.LEVEL_EXCEPTION );
247:
248: fnd_msg_pub.Add_Exc_Msg( g_object_name, 'APPLY_RECORD', sqlerrm);
249: p_error_msg := CSM_UTIL_PKG.GET_ERROR_MESSAGE_TEXT
250: (
295: /*** Yes -> reject record because of changed pk ***/
296: CSM_UTIL_PKG.LOG ( 'Record successfully processed, rejecting record ' || ' for PK '
297: || r_mail_messages.notification_id
298: ,'CSM_MAIL_MESSAGES_PKG.APPLY_CLIENT_CHANGES'
299: ,FND_LOG.LEVEL_PROCEDURE); -- put PK column here
300:
301: CSM_UTIL_PKG.REJECT_RECORD
302: (
303: p_user_name,
316: CSM_UTIL_PKG.LOG
317: ( 'Mail message record rejected. Now rejecting records in mail recipient ' || ' for PK '
318: || r_mail_messages.notification_id
319: ,'CSM_MAIL_MESSAGES_PKG.APPLY_CLIENT_CHANGES'
320: ,FND_LOG.LEVEL_PROCEDURE); -- put PK column here
321:
322: FOR r_mail_recipients IN c_mail_recipients( p_user_name
323: , p_tranid
324: , r_mail_messages.notification_id ) LOOP
354: IF l_process_status <> FND_API.G_RET_STS_SUCCESS THEN
355: /*** no -> rollback ***/
356: CSM_UTIL_PKG.LOG
357: ( 'Deleting from inqueue failed, rolling back to savepoint'
358: || ' for PK ' || r_mail_messages.notification_id ,'CSM_MAIL_MESSAGES_PKG.APPLY_CLIENT_CHANGES',FND_LOG.LEVEL_ERROR); -- put PK column here
359: ROLLBACK TO save_rec;
360: x_return_status := FND_API.G_RET_STS_ERROR;
361: END IF;
362: END IF;
364: IF l_process_Status <> FND_API.G_RET_STS_SUCCESS THEN
365: /*** Record was not processed successfully or delete failed -> defer and reject record ***/
366: CSM_UTIL_PKG.LOG
367: ( 'Record not processed successfully, deferring and rejecting record'
368: || ' for PK ' || r_mail_messages.notification_id ,'CSM_MAIL_MESSAGES_PKG.APPLY_CLIENT_CHANGES',FND_LOG.LEVEL_ERROR); -- put PK column here
369:
370: CSM_UTIL_PKG.DEFER_RECORD
371: (
372: p_user_name
384: IF l_process_status <> FND_API.G_RET_STS_SUCCESS THEN
385: /*** no -> rollback ***/
386: CSM_UTIL_PKG.LOG
387: ( 'Defer record failed, rolling back to savepoint'
388: || ' for PK ' || r_mail_messages.notification_id,'CSM_MAIL_MESSAGES_PKG.APPLY_CLIENT_CHANGES',FND_LOG.LEVEL_ERROR ); -- put PK column here
389: ROLLBACK TO save_rec;
390: x_return_status := FND_API.G_RET_STS_ERROR;
391: END IF;
392: END IF;
396: EXCEPTION WHEN OTHERS THEN
397: /*** catch and log exceptions ***/
398: CSM_UTIL_PKG.LOG
399: ( 'Exception occurred in APPLY_CLIENT_CHANGES:' || ' ' || sqlerrm
400: ,'CSM_MAIL_MESSAGES_PKG.APPLY_CLIENT_CHANGES',FND_LOG.LEVEL_EXCEPTION);
401: x_return_status := FND_API.G_RET_STS_ERROR;
402: END APPLY_CLIENT_CHANGES;
403:
404: END CSM_MAIL_MESSAGES_PKG;