178: -- delete all journal entries for the event
179: -- no impact on trial balance if not transferred
180: --------------------------------------------------------
181: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
182: trace(p_msg => 'Calling xla_journal_entries_pkg.delete_journal_entries.',
183: p_module => l_log_module,
184: p_level => C_LEVEL_STATEMENT);
185: END IF;
186:
183: p_module => l_log_module,
184: p_level => C_LEVEL_STATEMENT);
185: END IF;
186:
187: xla_journal_entries_pkg.delete_journal_entries
188: (p_application_id => p_application_id
189: ,p_event_id => p_event_id);
190:
191: --------------------------------------------------------
518: END LOOP;
519: END IF;
520:
521: -----------------------------------------------------------------------------------
522: -- Currently, xla_journal_entries_pkg.reverse_journal_entry only process MANUAL entry
523: -----------------------------------------------------------------------------------
524: update xla_ae_headers
525: set accounting_entry_type_code = 'MANUAL'
526: where application_id = p_application_id
529: --------------------------------------------------------
530: -- reverse journal entries
531: --------------------------------------------------------
532: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
533: trace(p_msg => 'Calling xla_journal_entries_pkg.reverse_journal_entry.',
534: p_module => l_log_module,
535: p_level => C_LEVEL_STATEMENT);
536: END IF;
537:
536: END IF;
537:
538: /* Bug 7011889 - Replace call to l_pri_ae_header_id with array of header ids for Encumbarance */
539:
540: xla_journal_entries_pkg.reverse_journal_entry(
541: p_array_je_header_id => l_array_je_header_id
542: ,p_application_id => p_application_id
543: ,p_reversal_method => p_reversal_method
544: ,p_gl_date => p_gl_date
551: ,p_transfer_request_id => l_transfer_request_id
552: );
553:
554: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
555: trace(p_msg => 'Returned from xla_journal_entries_pkg.reverse_journal_entry.',
556: p_module => l_log_module,
557: p_level => C_LEVEL_STATEMENT);
558: END IF;
559:
558: END IF;
559:
560: IF l_completion_retcode <> 'S' or x_rev_ae_header_id IS NULL THEN
561: IF (C_LEVEL_STATEMENT >= g_log_level) THEN
562: trace(p_msg => 'Failure in xla_journal_entries_pkg.reverse_journal_entry. Please verify log file.',
563: p_module => l_log_module,
564: p_level => C_LEVEL_STATEMENT);
565: END IF;
566: Log_error(p_module => l_log_module
563: p_module => l_log_module,
564: p_level => C_LEVEL_STATEMENT);
565: END IF;
566: Log_error(p_module => l_log_module
567: ,p_error_msg => 'Failure in xla_journal_entries_pkg.reverse_journal_entry. Please verify log file.');
568: END IF;
569:
570: SELECT entity_id
571: INTO x_rev_entity_id