225: WHERE to_id = p_recipient_id
226: AND entry_id = p_entry_id;
227:
228:
229: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
230: FND_LOG.string (log_level => FND_LOG.level_procedure,
231: module => g_module_prefix || l_module_name,
232: message => 'Entering PON_THREAD_DISC_PKG.INSERT_OR_UPDATE_RECIPIENT'
233: || ', l_row_exists = ' || l_row_exists
226: AND entry_id = p_entry_id;
227:
228:
229: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
230: FND_LOG.string (log_level => FND_LOG.level_procedure,
231: module => g_module_prefix || l_module_name,
232: message => 'Entering PON_THREAD_DISC_PKG.INSERT_OR_UPDATE_RECIPIENT'
233: || ', l_row_exists = ' || l_row_exists
234: || ', p_recipient_id = ' || p_recipient_id
313: FROM pon_te_recipients
314: WHERE entry_id = p_entry_id
315: AND to_id = p_recipient_id;
316:
317: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
318: FND_LOG.string (log_level => FND_LOG.level_procedure,
319: module => g_module_prefix || l_module_name,
320: message => 'Entering PON_THREAD_DISC_PKG.UPDATE_RECIPIENT_TO_READ'
321: || ', l_num_entries = ' || l_num_entries
314: WHERE entry_id = p_entry_id
315: AND to_id = p_recipient_id;
316:
317: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
318: FND_LOG.string (log_level => FND_LOG.level_procedure,
319: module => g_module_prefix || l_module_name,
320: message => 'Entering PON_THREAD_DISC_PKG.UPDATE_RECIPIENT_TO_READ'
321: || ', l_num_entries = ' || l_num_entries
322: || ', p_recipient_id = ' || p_recipient_id
402: AND PTR.TO_ID <> x_to_id -- Replied by Others
403: AND 'EXTERNAL'=x_message_type; -- Replied to External Messages
404: BEGIN
405:
406: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
407: FND_LOG.string (log_level => FND_LOG.level_procedure,
408: module => g_module_prefix || l_module_name,
409: message => 'Entering PON_THREAD_DISC_PKG.GET_REPLIED_BY_LIST'
410: || ', p_to_id = ' || p_to_id
403: AND 'EXTERNAL'=x_message_type; -- Replied to External Messages
404: BEGIN
405:
406: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
407: FND_LOG.string (log_level => FND_LOG.level_procedure,
408: module => g_module_prefix || l_module_name,
409: message => 'Entering PON_THREAD_DISC_PKG.GET_REPLIED_BY_LIST'
410: || ', p_to_id = ' || p_to_id
411: || ', p_entry_id = ' || p_entry_id
465:
466:
467: BEGIN
468:
469: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
470: FND_LOG.string (log_level => FND_LOG.level_procedure,
471: module => g_module_prefix || l_module_name,
472: message => 'Entering PON_THREAD_DISC_PKG.GET_RECIPIENTS_LIST'
473: || ', p_from_id = ' || p_from_id
466:
467: BEGIN
468:
469: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
470: FND_LOG.string (log_level => FND_LOG.level_procedure,
471: module => g_module_prefix || l_module_name,
472: message => 'Entering PON_THREAD_DISC_PKG.GET_RECIPIENTS_LIST'
473: || ', p_from_id = ' || p_from_id
474: || ', p_entry_id = ' || p_entry_id
522: l_message_status fnd_new_messages.message_text%TYPE;
523: l_module_name VARCHAR2(40) := 'GET_MESSAGE_STATUS_DISP';
524:
525: BEGIN
526: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
527: FND_LOG.string (log_level => FND_LOG.level_procedure,
528: module => g_module_prefix || l_module_name,
529: message => 'Entering PON_THREAD_DISC_PKG.GET_MESSAGE_STATUS_DISP'
530: || ', p_viewer_id = ' || p_viewer_id
523: l_module_name VARCHAR2(40) := 'GET_MESSAGE_STATUS_DISP';
524:
525: BEGIN
526: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
527: FND_LOG.string (log_level => FND_LOG.level_procedure,
528: module => g_module_prefix || l_module_name,
529: message => 'Entering PON_THREAD_DISC_PKG.GET_MESSAGE_STATUS_DISP'
530: || ', p_viewer_id = ' || p_viewer_id
531: || ', p_entry_id = ' || p_entry_id);
549: -- message is unread, no record exists
550: l_message_status := l_msg_unread;
551: END IF; -- }
552:
553: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
554: FND_LOG.string (log_level => FND_LOG.level_procedure,
555: module => g_module_prefix || l_module_name,
556: message => 'Exiting PON_THREAD_DISC_PKG.GET_MESSAGE_STATUS_DISP'
557: || ', l_message_status = ' || l_message_status);
550: l_message_status := l_msg_unread;
551: END IF; -- }
552:
553: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
554: FND_LOG.string (log_level => FND_LOG.level_procedure,
555: module => g_module_prefix || l_module_name,
556: message => 'Exiting PON_THREAD_DISC_PKG.GET_MESSAGE_STATUS_DISP'
557: || ', l_message_status = ' || l_message_status);
558: END IF;
560: RETURN l_message_status;
561:
562: EXCEPTION
563: WHEN OTHERS THEN
564: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
565: FND_LOG.string (log_level => FND_LOG.level_exception,
566: module => g_module_prefix || l_module_name,
567: message => 'Exception in PON_THREAD_DISC_PKG.GET_MESSAGE_STATUS_DISP'
568: || ', returning l_msg_unread = ' || l_msg_unread);
561:
562: EXCEPTION
563: WHEN OTHERS THEN
564: IF (FND_LOG.level_exception >= FND_LOG.g_current_runtime_level) THEN
565: FND_LOG.string (log_level => FND_LOG.level_exception,
566: module => g_module_prefix || l_module_name,
567: message => 'Exception in PON_THREAD_DISC_PKG.GET_MESSAGE_STATUS_DISP'
568: || ', returning l_msg_unread = ' || l_msg_unread);
569: END IF;