190: glps.set_of_books_id = ledgers.ledger_id';
191:
192: select sysdate into l_init_sysdate from dual;
193:
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to General Ledger Report Date:'||to_char(sysdate,'DD-MON-YYYY HH:MM'));
195: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
191:
192: select sysdate into l_init_sysdate from dual;
193:
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to General Ledger Report Date:'||to_char(sysdate,'DD-MON-YYYY HH:MM'));
195: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
192: select sysdate into l_init_sysdate from dual;
193:
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to General Ledger Report Date:'||to_char(sysdate,'DD-MON-YYYY HH:MM'));
195: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
193:
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to General Ledger Report Date:'||to_char(sysdate,'DD-MON-YYYY HH:MM'));
195: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to General Ledger Report Date:'||to_char(sysdate,'DD-MON-YYYY HH:MM'));
195: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
202: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
195: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
202: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
202: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
204: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
202: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
204: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
198: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
202: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
204: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
206: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
202: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
204: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
206: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
207: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
202: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
204: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
206: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
207: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
208: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
201: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
202: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
204: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
206: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
207: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
208: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
209:
202: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
204: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
206: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
207: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
208: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
209:
210: /* Insert data into temp table */
203: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
204: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
206: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
207: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
208: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
209:
210: /* Insert data into temp table */
211: begin
204: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
205: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
206: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
207: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
208: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
209:
210: /* Insert data into temp table */
211: begin
212: gt_insert_clause :='INSERT INTO fun_transfers(BATCH_ID, trx_id, org_name, org_id, le_id,
423: EXCEPTION
424: WHEN NO_DATA_FOUND THEN
425: -- Bug # 6842245
426: -- null
427: FND_FILE.PUT_LINE(FND_FILE.LOG,'INSERT BLOCK: No Data Found');
428: raise;
429:
430:
431: WHEN DUP_VAL_ON_INDEX THEN
428: raise;
429:
430:
431: WHEN DUP_VAL_ON_INDEX THEN
432: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
433: FND_FILE.PUT_LINE(fnd_file.output,' *****Another GL Transfer process is running with same set of transactions.*****');
434: FND_FILE.PUT_LINE(FND_FILE.LOG,'Another GL Transfer process is running with same set of transactions.');
435: rollback;
436: raise;
429:
430:
431: WHEN DUP_VAL_ON_INDEX THEN
432: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
433: FND_FILE.PUT_LINE(fnd_file.output,' *****Another GL Transfer process is running with same set of transactions.*****');
434: FND_FILE.PUT_LINE(FND_FILE.LOG,'Another GL Transfer process is running with same set of transactions.');
435: rollback;
436: raise;
437: WHEN OTHERS THEN
430:
431: WHEN DUP_VAL_ON_INDEX THEN
432: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
433: FND_FILE.PUT_LINE(fnd_file.output,' *****Another GL Transfer process is running with same set of transactions.*****');
434: FND_FILE.PUT_LINE(FND_FILE.LOG,'Another GL Transfer process is running with same set of transactions.');
435: rollback;
436: raise;
437: WHEN OTHERS THEN
438: -- Bug # 6842245
435: rollback;
436: raise;
437: WHEN OTHERS THEN
438: -- Bug # 6842245
439: FND_FILE.PUT_LINE(FND_FILE.LOG,'INSERT BLOCK: Unexpected error:' || sqlcode || sqlerrm);
440: retcode := 2;
441: raise;
442: END;
443:
534: FOR l_index IN l_trx_id_tbl.FIRST .. l_trx_id_tbl.LAST
535: LOOP
536: IF (l_error_mesg_tbl(l_index) like 'GL_PERIOD_NOT_OPEN%') THEN
537: fnd_message.set_name('FUN','GL_PERIOD_NOT_OPEN');
538: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,20),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
539: ELSIF (l_error_mesg_tbl(l_index) like 'FUN_API_CONV_RATE_NOT_FOUND') THEN
540: fnd_message.set_name('FUN','FUN_API_CONV_RATE_NOT_FOUND');
541: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,20),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
542: ELSE
537: fnd_message.set_name('FUN','GL_PERIOD_NOT_OPEN');
538: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,20),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
539: ELSIF (l_error_mesg_tbl(l_index) like 'FUN_API_CONV_RATE_NOT_FOUND') THEN
540: fnd_message.set_name('FUN','FUN_API_CONV_RATE_NOT_FOUND');
541: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,20),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
542: ELSE
543: fnd_message.set_name('FUN','FUN_API_TRX_TRANSFERRED');
544: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,20),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
545: END IF;
540: fnd_message.set_name('FUN','FUN_API_CONV_RATE_NOT_FOUND');
541: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,20),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
542: ELSE
543: fnd_message.set_name('FUN','FUN_API_TRX_TRANSFERRED');
544: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,20),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
545: END IF;
546: END LOOP;
547: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
548: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
543: fnd_message.set_name('FUN','FUN_API_TRX_TRANSFERRED');
544: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,20),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
545: END IF;
546: END LOOP;
547: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
548: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
549: ELSE
550: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****No Data Found*****');
544: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,20),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
545: END IF;
546: END LOOP;
547: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
548: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
549: ELSE
550: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****No Data Found*****');
552: END IF;
546: END LOOP;
547: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
548: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
549: ELSE
550: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****No Data Found*****');
552: END IF;
553:
554: /* Bug 6797385.
547: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
548: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
549: ELSE
550: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
551: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****No Data Found*****');
552: END IF;
553:
554: /* Bug 6797385.
555: UPDATE fun_trx_batches
565: commit;
566:
567: EXCEPTION
568: WHEN NO_DATA_FOUND THEN
569: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Data Found');
570: -- Bug # 6842245
571: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rolling Back All The Transactions');
572: rollback;
573:
567: EXCEPTION
568: WHEN NO_DATA_FOUND THEN
569: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Data Found');
570: -- Bug # 6842245
571: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rolling Back All The Transactions');
572: rollback;
573:
574: DELETE fun_transfers
575: WHERE REQUEST_ID = P_REQUEST_ID;
575: WHERE REQUEST_ID = P_REQUEST_ID;
576: commit;
577:
578: WHEN OTHERS THEN
579: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error:' || sqlcode || sqlerrm);
580: retcode := 2;
581: -- Bug # 6842245
582: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rolling Back All The Transactions');
583: rollback;
578: WHEN OTHERS THEN
579: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error:' || sqlcode || sqlerrm);
580: retcode := 2;
581: -- Bug # 6842245
582: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rolling Back All The Transactions');
583: rollback;
584:
585: DELETE fun_transfers
586: WHERE REQUEST_ID = P_REQUEST_ID;