217: select xle.name into l_le_name from xle_entity_profiles xle
218: where xle.legal_entity_id = p_le_id;
219: END IF;
220:
221: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to Receivables Report Date: '||to_char(sysdate,'DD-MON-YYYY HH:MM'));
222: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Operating Unit: ' || l_org_name);
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity: ' || l_le_name);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
218: where xle.legal_entity_id = p_le_id;
219: END IF;
220:
221: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to Receivables Report Date: '||to_char(sysdate,'DD-MON-YYYY HH:MM'));
222: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Operating Unit: ' || l_org_name);
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity: ' || l_le_name);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
219: END IF;
220:
221: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to Receivables Report Date: '||to_char(sysdate,'DD-MON-YYYY HH:MM'));
222: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Operating Unit: ' || l_org_name);
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity: ' || l_le_name);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
227: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Submit AR Auto Invoice: ' || l_run_autoinvoice_import);
220:
221: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to Receivables Report Date: '||to_char(sysdate,'DD-MON-YYYY HH:MM'));
222: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Operating Unit: ' || l_org_name);
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity: ' || l_le_name);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
227: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Submit AR Auto Invoice: ' || l_run_autoinvoice_import);
228: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
221: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Transfer Intercompany Transactions to Receivables Report Date: '||to_char(sysdate,'DD-MON-YYYY HH:MM'));
222: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Operating Unit: ' || l_org_name);
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity: ' || l_le_name);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
227: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Submit AR Auto Invoice: ' || l_run_autoinvoice_import);
228: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
229: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
222: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Operating Unit: ' || l_org_name);
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity: ' || l_le_name);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
227: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Submit AR Auto Invoice: ' || l_run_autoinvoice_import);
228: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
229: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
230: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
223: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Operating Unit: ' || l_org_name);
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity: ' || l_le_name);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
227: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Submit AR Auto Invoice: ' || l_run_autoinvoice_import);
228: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
229: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
230: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
231:
224: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' Legal Entity: ' || l_le_name);
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
227: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Submit AR Auto Invoice: ' || l_run_autoinvoice_import);
228: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
229: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
230: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
231:
232:
225: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date From: ' || to_char(l_date_low, 'DD-MON-YYYY'));
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
227: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Submit AR Auto Invoice: ' || l_run_autoinvoice_import);
228: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
229: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
230: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
231:
232:
233: open c_info;
226: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' GL Date To: ' || to_char(l_date_high,'DD-MON-YYYY'));
227: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Submit AR Auto Invoice: ' || l_run_autoinvoice_import);
228: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
229: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'Batch Number Transaction Number Transfer Status' );
230: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,'------------ ------------------ ----------------');
231:
232:
233: open c_info;
234:
592: END LOOP; --c_dist
593: CLOSE c_dist;
594:
595: fnd_message.set_name('FUN','FUN_XFER_SUCCESS');
596: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(l_batch_num,1,20),20)||rpad(substr(l_trx_num,1,15),20)||fnd_message.get);
597:
598:
599: -- update transaction status
600:
622:
623: FUN_WF_COMMON.wf_abort(l_batch_id, l_trx_id, 'FUNARINT');
624:
625: ELSIF l_error=2 THEN
626: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,rpad(substr(l_batch_num,1,20),20)||rpad(substr(l_trx_num,1,15),20)||fnd_message.get);
627: END IF; -- l_error
628: l_error := 1;
629:
630: End Loop; -- c_info
629:
630: End Loop; -- c_info
631:
632: close c_info;
633: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
634: IF (l_counter = 0) THEN
635: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****No Data Found*****');
636: ELSE
637: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
631:
632: close c_info;
633: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
634: IF (l_counter = 0) THEN
635: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****No Data Found*****');
636: ELSE
637: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
638: END IF;
639:
633: FND_FILE.NEW_LINE(FND_FILE.OUTPUT,2 );
634: IF (l_counter = 0) THEN
635: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****No Data Found*****');
636: ELSE
637: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,' *****End Of Report*****');
638: END IF;
639:
640: COMMIT;
641:
654: '','','','','','','','','','','',
655: '','','','','','','','','', 'YES','');
656:
657: IF l_request_id <> 0 THEN
658: fnd_file.put_line(fnd_file.log,'AR Auto Invoice Program submitted for Org ID: ' || org_id_table(I)||' with Request id: ' || l_request_id);
659: commit;
660: ELSE
661: RAISE Request_Submission_Failure;
662: END IF;
665:
666:
667: EXCEPTION
668: WHEN Request_Submission_Failure THEN
669: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error in submitting AutoInovice Import Process');
670: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error:' || sqlcode || sqlerrm);
671: WHEN NO_DATA_FOUND THEN
672: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Data Found');
673: WHEN OTHERS THEN
666:
667: EXCEPTION
668: WHEN Request_Submission_Failure THEN
669: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error in submitting AutoInovice Import Process');
670: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error:' || sqlcode || sqlerrm);
671: WHEN NO_DATA_FOUND THEN
672: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Data Found');
673: WHEN OTHERS THEN
674: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error:' || sqlcode || sqlerrm);
668: WHEN Request_Submission_Failure THEN
669: FND_FILE.PUT_LINE(FND_FILE.LOG,'Error in submitting AutoInovice Import Process');
670: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error:' || sqlcode || sqlerrm);
671: WHEN NO_DATA_FOUND THEN
672: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Data Found');
673: WHEN OTHERS THEN
674: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error:' || sqlcode || sqlerrm);
675: retcode := 2;
676: end;
670: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error:' || sqlcode || sqlerrm);
671: WHEN NO_DATA_FOUND THEN
672: FND_FILE.PUT_LINE(FND_FILE.LOG,'No Data Found');
673: WHEN OTHERS THEN
674: FND_FILE.PUT_LINE(FND_FILE.LOG,'Unexpected error:' || sqlcode || sqlerrm);
675: retcode := 2;
676: end;
677:
678: END FUN_AR_BATCH_TRANSFER;