[Home] [Help]
3949: WHERE transaction_type_id = p_order_type_id;
3950: EXCEPTION
3951: WHEN NO_DATA_FOUND THEN
3952: l_return_status := FND_API.G_RET_STS_ERROR;
3953: fnd_file.put_line(FND_FILE.OUTPUT,'Could not set org context');
3954: retcode := -1;
3955: RETURN;
3956: END;
3957: IF l_org_id IS NOT NULL THEN
3960: oe_debug_pub.add('Context is set for org_id : '|| mo_global.get_current_org_id);
3961: END IF;
3962: ELSE
3963: l_return_status := FND_API.G_RET_STS_ERROR;
3964: fnd_file.put_line(FND_FILE.OUTPUT,'Could not set org context');
3965: retcode := -1;
3966: RETURN;
3967: END IF;
3968: --rt moac end
3987:
3988: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3989: OE_MSG_PUB.save_messages (l_concurrent_request_id);
3990: commit;
3991: --fnd_file.put_line(FND_FILE.OUTPUT,'Sucessful completion');
3992: errbuf := FND_MESSAGE.GET;
3993: --retcode := 0;
3994: --bug 12922209 Start
3995: IF NVL(l_ret_code,0) = 1 THEN
3993: --retcode := 0;
3994: --bug 12922209 Start
3995: IF NVL(l_ret_code,0) = 1 THEN
3996: retcode := 1;
3997: fnd_file.put_line(FND_FILE.OUTPUT,'Warning');
3998: ELSE
3999: retcode := 0;
4000: fnd_file.put_line(FND_FILE.OUTPUT,'Sucessful completion');
4001: END IF;
3996: retcode := 1;
3997: fnd_file.put_line(FND_FILE.OUTPUT,'Warning');
3998: ELSE
3999: retcode := 0;
4000: fnd_file.put_line(FND_FILE.OUTPUT,'Sucessful completion');
4001: END IF;
4002: --bug 12922209 End
4003:
4004: ELSE
4004: ELSE
4005: rollback;
4006: OE_MSG_PUB.save_messages (l_concurrent_request_id);
4007: commit;
4008: fnd_file.put_line(FND_FILE.OUTPUT,'Failed');
4009: errbuf := FND_MESSAGE.GET;
4010: retcode := -1;
4011: END IF;
4012: EXCEPTION
4553: l_execution_date_from := fnd_date.canonical_to_date(p_execution_date_from);
4554: l_execution_date_to := fnd_date.canonical_to_date(p_execution_date_to);
4555: l_message_text := '';
4556:
4557: fnd_file.put_line(FND_FILE.OUTPUT,'Parameters :');
4558: fnd_file.put_line(FND_FILE.OUTPUT,'Request id :'||p_retrobill_request_id);
4559: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date From:'||p_creation_date_from);
4560: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date To :'||p_creation_date_to);
4561: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date From:'||p_execution_date_from);
4554: l_execution_date_to := fnd_date.canonical_to_date(p_execution_date_to);
4555: l_message_text := '';
4556:
4557: fnd_file.put_line(FND_FILE.OUTPUT,'Parameters :');
4558: fnd_file.put_line(FND_FILE.OUTPUT,'Request id :'||p_retrobill_request_id);
4559: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date From:'||p_creation_date_from);
4560: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date To :'||p_creation_date_to);
4561: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date From:'||p_execution_date_from);
4562: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date To :'||p_execution_date_to);
4555: l_message_text := '';
4556:
4557: fnd_file.put_line(FND_FILE.OUTPUT,'Parameters :');
4558: fnd_file.put_line(FND_FILE.OUTPUT,'Request id :'||p_retrobill_request_id);
4559: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date From:'||p_creation_date_from);
4560: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date To :'||p_creation_date_to);
4561: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date From:'||p_execution_date_from);
4562: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date To :'||p_execution_date_to);
4563: fnd_file.put_line(FND_FILE.OUTPUT,'Purge Preview Orders:'||p_purge_preview_orders);
4556:
4557: fnd_file.put_line(FND_FILE.OUTPUT,'Parameters :');
4558: fnd_file.put_line(FND_FILE.OUTPUT,'Request id :'||p_retrobill_request_id);
4559: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date From:'||p_creation_date_from);
4560: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date To :'||p_creation_date_to);
4561: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date From:'||p_execution_date_from);
4562: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date To :'||p_execution_date_to);
4563: fnd_file.put_line(FND_FILE.OUTPUT,'Purge Preview Orders:'||p_purge_preview_orders);
4564: fnd_file.put_line(FND_FILE.OUTPUT,'Operating Unit Id:'||p_org_id);
4557: fnd_file.put_line(FND_FILE.OUTPUT,'Parameters :');
4558: fnd_file.put_line(FND_FILE.OUTPUT,'Request id :'||p_retrobill_request_id);
4559: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date From:'||p_creation_date_from);
4560: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date To :'||p_creation_date_to);
4561: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date From:'||p_execution_date_from);
4562: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date To :'||p_execution_date_to);
4563: fnd_file.put_line(FND_FILE.OUTPUT,'Purge Preview Orders:'||p_purge_preview_orders);
4564: fnd_file.put_line(FND_FILE.OUTPUT,'Operating Unit Id:'||p_org_id);
4565: fnd_file.put_line(FND_FILE.OUTPUT,'');
4558: fnd_file.put_line(FND_FILE.OUTPUT,'Request id :'||p_retrobill_request_id);
4559: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date From:'||p_creation_date_from);
4560: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date To :'||p_creation_date_to);
4561: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date From:'||p_execution_date_from);
4562: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date To :'||p_execution_date_to);
4563: fnd_file.put_line(FND_FILE.OUTPUT,'Purge Preview Orders:'||p_purge_preview_orders);
4564: fnd_file.put_line(FND_FILE.OUTPUT,'Operating Unit Id:'||p_org_id);
4565: fnd_file.put_line(FND_FILE.OUTPUT,'');
4566:
4559: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date From:'||p_creation_date_from);
4560: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date To :'||p_creation_date_to);
4561: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date From:'||p_execution_date_from);
4562: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date To :'||p_execution_date_to);
4563: fnd_file.put_line(FND_FILE.OUTPUT,'Purge Preview Orders:'||p_purge_preview_orders);
4564: fnd_file.put_line(FND_FILE.OUTPUT,'Operating Unit Id:'||p_org_id);
4565: fnd_file.put_line(FND_FILE.OUTPUT,'');
4566:
4567: FND_PROFILE.Get('CONC_REQUEST_ID', l_concurrent_id);
4560: fnd_file.put_line(FND_FILE.OUTPUT,'Creation Date To :'||p_creation_date_to);
4561: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date From:'||p_execution_date_from);
4562: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date To :'||p_execution_date_to);
4563: fnd_file.put_line(FND_FILE.OUTPUT,'Purge Preview Orders:'||p_purge_preview_orders);
4564: fnd_file.put_line(FND_FILE.OUTPUT,'Operating Unit Id:'||p_org_id);
4565: fnd_file.put_line(FND_FILE.OUTPUT,'');
4566:
4567: FND_PROFILE.Get('CONC_REQUEST_ID', l_concurrent_id);
4568:
4561: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date From:'||p_execution_date_from);
4562: fnd_file.put_line(FND_FILE.OUTPUT,'Execution Date To :'||p_execution_date_to);
4563: fnd_file.put_line(FND_FILE.OUTPUT,'Purge Preview Orders:'||p_purge_preview_orders);
4564: fnd_file.put_line(FND_FILE.OUTPUT,'Operating Unit Id:'||p_org_id);
4565: fnd_file.put_line(FND_FILE.OUTPUT,'');
4566:
4567: FND_PROFILE.Get('CONC_REQUEST_ID', l_concurrent_id);
4568:
4569: IF l_debug_level > 0 THEN
4653: /* Save messages to Process Messages Table */
4654: OE_MSG_PUB.save_messages(l_concurrent_id);
4655:
4656: /*Displaying messages from Processing Message table*/
4657: fnd_file.put_line(FND_FILE.OUTPUT,'Source/Order/Seq/Line Message');
4658: OPEN l_msg_cursor;
4659: LOOP
4660: FETCH l_msg_cursor
4661: INTO l_order_source_id
4664: , l_orig_sys_line_ref
4665: , l_message_text;
4666: EXIT WHEN l_msg_cursor%NOTFOUND;
4667:
4668: fnd_file.put_line(FND_FILE.OUTPUT,to_char(l_order_source_id)
4669: ||'/'||l_orig_sys_document_ref
4670: ||'/'||l_change_sequence
4671: ||'/'||l_orig_sys_line_ref
4672: ||' '||l_message_text);
4669: ||'/'||l_orig_sys_document_ref
4670: ||'/'||l_change_sequence
4671: ||'/'||l_orig_sys_line_ref
4672: ||' '||l_message_text);
4673: fnd_file.put_line(FND_FILE.OUTPUT,'');
4674: END LOOP;
4675:
4676: IF l_debug_level > 0 THEN
4677: oe_debug_pub.add('Number of Requests Purged:' ||l_requests_processed);
4677: oe_debug_pub.add('Number of Requests Purged:' ||l_requests_processed);
4678: oe_debug_pub.add('Number of Orders Purged:' ||l_headers_processed);
4679: END IF;
4680:
4681: fnd_file.put_line(FND_FILE.OUTPUT,'Number of Requests Purged:' ||l_requests_processed);
4682: fnd_file.put_line(FND_FILE.OUTPUT,'Number of Orders Purged:' ||l_headers_processed);
4683: oe_debug_pub.add('Exiting Oe_Retrobill_pvt.Oe_retrobill_Purge');
4684: commit;
4685:
4678: oe_debug_pub.add('Number of Orders Purged:' ||l_headers_processed);
4679: END IF;
4680:
4681: fnd_file.put_line(FND_FILE.OUTPUT,'Number of Requests Purged:' ||l_requests_processed);
4682: fnd_file.put_line(FND_FILE.OUTPUT,'Number of Orders Purged:' ||l_headers_processed);
4683: oe_debug_pub.add('Exiting Oe_Retrobill_pvt.Oe_retrobill_Purge');
4684: commit;
4685:
4686: EXCEPTION