182: glps.set_of_books_id = ledgers.ledger_id';
183:
184: select sysdate into l_init_sysdate from dual;
185:
186: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to General Ledger Report Date:'||to_char(sysdate,'DD-MON-YYYY HH:MM'));
187: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
188: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
183:
184: select sysdate into l_init_sysdate from dual;
185:
186: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to General Ledger Report Date:'||to_char(sysdate,'DD-MON-YYYY HH:MM'));
187: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
188: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
191: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
184: select sysdate into l_init_sysdate from dual;
185:
186: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to General Ledger Report Date:'||to_char(sysdate,'DD-MON-YYYY HH:MM'));
187: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
188: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
191: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
185:
186: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to General Ledger Report Date:'||to_char(sysdate,'DD-MON-YYYY HH:MM'));
187: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
188: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
191: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
186: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to General Ledger Report Date:'||to_char(sysdate,'DD-MON-YYYY HH:MM'));
187: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
188: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
191: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
187: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
188: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
191: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
188: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
191: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
189: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
191: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
190: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger From: ' || p_ledger_low);
191: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
198: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
191: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Ledger To: ' || p_ledger_high);
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
198: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
192: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity From: ' || p_le_low);
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
198: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
193: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity To: ' || p_le_high);
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
198: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
201:
194: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Intercompany Organization From: ' || p_ic_org_low);
195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
198: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
201:
202: /* Insert data into temp table */
195: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Intercompany Organization To: ' || p_ic_org_high);
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
198: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
201:
202: /* Insert data into temp table */
203: begin
196: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Run Journal Import: ' || l_run_journal_import);
197: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Create Summary Journals: ' || l_create_summary_journals);
198: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
199: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
200: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
201:
202: /* Insert data into temp table */
203: begin
204: gt_insert_clause :='INSERT INTO fun_transfers(BATCH_ID, trx_id, org_name, org_id, le_id,
413: EXCEPTION
414: WHEN NO_DATA_FOUND THEN
415: -- Bug # 6842245
416: -- null
417: FND_FILE.PUT_LINE(FND_FILE.LOG,'INSERT BLOCK: No Data Found');
418: raise;
419:
420:
421: WHEN DUP_VAL_ON_INDEX THEN
418: raise;
419:
420:
421: WHEN DUP_VAL_ON_INDEX THEN
422: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
423: FND_FILE.PUT_LINE(fnd_file.output,' *****Another GL Transfer process is running with same set of transactions.*****');
424: FND_FILE.PUT_LINE(FND_FILE.LOG,'Another GL Transfer process is running with same set of transactions.');
425: rollback;
426: raise;
419:
420:
421: WHEN DUP_VAL_ON_INDEX THEN
422: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
423: FND_FILE.PUT_LINE(fnd_file.output,' *****Another GL Transfer process is running with same set of transactions.*****');
424: FND_FILE.PUT_LINE(FND_FILE.LOG,'Another GL Transfer process is running with same set of transactions.');
425: rollback;
426: raise;
427: WHEN OTHERS THEN
420:
421: WHEN DUP_VAL_ON_INDEX THEN
422: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
423: FND_FILE.PUT_LINE(fnd_file.output,' *****Another GL Transfer process is running with same set of transactions.*****');
424: FND_FILE.PUT_LINE(FND_FILE.LOG,'Another GL Transfer process is running with same set of transactions.');
425: rollback;
426: raise;
427: WHEN OTHERS THEN
428: -- Bug # 6842245
425: rollback;
426: raise;
427: WHEN OTHERS THEN
428: -- Bug # 6842245
429: FND_FILE.PUT_LINE(FND_FILE.LOG,'INSERT BLOCK: Unexpected error:' || sqlcode || sqlerrm);
430: retcode := 2;
431: raise;
432: END;
433:
524: FOR l_index IN l_trx_id_tbl.FIRST .. l_trx_id_tbl.LAST
525: LOOP
526: IF (l_error_mesg_tbl(l_index) like 'GL_PERIOD_NOT_OPEN%') THEN
527: fnd_message.set_name('FUN','GL_PERIOD_NOT_OPEN');
528: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,15),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
529: ELSIF (l_error_mesg_tbl(l_index) like 'FUN_API_CONV_RATE_NOT_FOUND') THEN
530: fnd_message.set_name('FUN','FUN_API_CONV_RATE_NOT_FOUND');
531: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,15),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
532: ELSE
527: fnd_message.set_name('FUN','GL_PERIOD_NOT_OPEN');
528: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,15),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
529: ELSIF (l_error_mesg_tbl(l_index) like 'FUN_API_CONV_RATE_NOT_FOUND') THEN
530: fnd_message.set_name('FUN','FUN_API_CONV_RATE_NOT_FOUND');
531: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,15),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
532: ELSE
533: fnd_message.set_name('FUN','FUN_API_TRX_TRANSFERRED');
534: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,15),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
535: END IF;
530: fnd_message.set_name('FUN','FUN_API_CONV_RATE_NOT_FOUND');
531: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,15),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
532: ELSE
533: fnd_message.set_name('FUN','FUN_API_TRX_TRANSFERRED');
534: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,15),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
535: END IF;
536: END LOOP;
537: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
533: fnd_message.set_name('FUN','FUN_API_TRX_TRANSFERRED');
534: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,15),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
535: END IF;
536: END LOOP;
537: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
539: ELSE
540: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
541: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****No Data Found*****');
534: fnd_file.put_line(fnd_file.output, rpad(substr(l_batch_num(l_index), 1,15),20)||rpad(substr(l_trx_num(l_index),1,15),20)||fnd_message.get);
535: END IF;
536: END LOOP;
537: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
539: ELSE
540: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
541: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****No Data Found*****');
542: END IF;
536: END LOOP;
537: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
539: ELSE
540: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
541: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****No Data Found*****');
542: END IF;
543:
544: /* Bug 6797385.
537: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
538: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
539: ELSE
540: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
541: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****No Data Found*****');
542: END IF;
543:
544: /* Bug 6797385.
545: UPDATE fun_trx_batches
555: commit;
556:
557: EXCEPTION
558: WHEN NO_DATA_FOUND THEN
559: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Data Found');
560: -- Bug # 6842245
561: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rolling Back All The Transactions');
562: rollback;
563:
557: EXCEPTION
558: WHEN NO_DATA_FOUND THEN
559: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Data Found');
560: -- Bug # 6842245
561: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rolling Back All The Transactions');
562: rollback;
563:
564: DELETE fun_transfers
565: WHERE REQUEST_ID = P_REQUEST_ID;
565: WHERE REQUEST_ID = P_REQUEST_ID;
566: commit;
567:
568: WHEN OTHERS THEN
569: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error:' || sqlcode || sqlerrm);
570: retcode := 2;
571: -- Bug # 6842245
572: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rolling Back All The Transactions');
573: rollback;
568: WHEN OTHERS THEN
569: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error:' || sqlcode || sqlerrm);
570: retcode := 2;
571: -- Bug # 6842245
572: FND_FILE.PUT_LINE(FND_FILE.LOG,'Rolling Back All The Transactions');
573: rollback;
574:
575: DELETE fun_transfers
576: WHERE REQUEST_ID = P_REQUEST_ID;