74: * bucket type = 'FUTURE' due_date >= sysdate + ABS(dyas_start)
75: * due_date <= sysdate + ABS(dyas_to)
76: *-----------------------------------------------------------*/
77: l_bucket_date_range := ABS(p_days_start - p_days_to);
78: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Aging Bucket: Date Range = '|| l_bucket_date_range);
79:
80: -- start of Bugfix 5143538
81: -- Absolute value of days must be added for past and future to support negatives
82: IF p_seq_type = 'M' OR
486: IF g_debug THEN
487: OZF_Utility_PVT.debug_message('== START populating aging : time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
488: END IF;
489:
490: FND_FILE.PUT_LINE(FND_FILE.LOG, '== START populating aging : time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*----------------------------------- Claim Aging Execution Report -------------------------------------*');
492: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
493: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
494:
487: OZF_Utility_PVT.debug_message('== START populating aging : time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
488: END IF;
489:
490: FND_FILE.PUT_LINE(FND_FILE.LOG, '== START populating aging : time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*----------------------------------- Claim Aging Execution Report -------------------------------------*');
492: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
493: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
494:
495: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Aging Bucket id = '||p_bucket_id);
488: END IF;
489:
490: FND_FILE.PUT_LINE(FND_FILE.LOG, '== START populating aging : time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*----------------------------------- Claim Aging Execution Report -------------------------------------*');
492: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
493: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
494:
495: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Aging Bucket id = '||p_bucket_id);
496:
489:
490: FND_FILE.PUT_LINE(FND_FILE.LOG, '== START populating aging : time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*----------------------------------- Claim Aging Execution Report -------------------------------------*');
492: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
493: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
494:
495: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Aging Bucket id = '||p_bucket_id);
496:
497: IF p_bucket_id IS NOT NULL THEN
491: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*----------------------------------- Claim Aging Execution Report -------------------------------------*');
492: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Starts On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
493: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
494:
495: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Aging Bucket id = '||p_bucket_id);
496:
497: IF p_bucket_id IS NOT NULL THEN
498: OPEN bucket_name_csr(p_bucket_id);
499: FETCH bucket_name_csr INTO l_bucket_name;
499: FETCH bucket_name_csr INTO l_bucket_name;
500: CLOSE bucket_name_csr;
501: END IF;
502:
503: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Aging Buket Name: ' || l_bucket_name);
504: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
505: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Bucket Line Name Start Date End Date Bucket Line Type' );
506: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '' );
507: OPEN bucket_lines_csr(p_bucket_id);
500: CLOSE bucket_name_csr;
501: END IF;
502:
503: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Aging Buket Name: ' || l_bucket_name);
504: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
505: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Bucket Line Name Start Date End Date Bucket Line Type' );
506: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '' );
507: OPEN bucket_lines_csr(p_bucket_id);
508: LOOP
501: END IF;
502:
503: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Aging Buket Name: ' || l_bucket_name);
504: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
505: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Bucket Line Name Start Date End Date Bucket Line Type' );
506: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '' );
507: OPEN bucket_lines_csr(p_bucket_id);
508: LOOP
509: FETCH bucket_lines_csr INTO l_bucket_lines_tbl(l_counter);
502:
503: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Aging Buket Name: ' || l_bucket_name);
504: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
505: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Bucket Line Name Start Date End Date Bucket Line Type' );
506: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '' );
507: OPEN bucket_lines_csr(p_bucket_id);
508: LOOP
509: FETCH bucket_lines_csr INTO l_bucket_lines_tbl(l_counter);
510: EXIT WHEN bucket_lines_csr%NOTFOUND
570: l_start_date := sysdate + l_days_start;
571: l_end_date := sysdate + l_days_to;
572: END IF;
573:
574: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, rpad(l_bucket_lines_tbl(i).report_heading1|| ' ' ||l_bucket_lines_tbl(i).report_heading2, 46, ' ')||' '||l_start_date||' '||l_end_date||' '||l_bucket_lines_tbl(i).type);
575:
576: populate_aging_dates(
577: p_bucket_id => l_bucket_lines_tbl(i).aging_bucket_id,
578: p_bucket_line_id => l_bucket_lines_tbl(i).aging_bucket_line_id,
582: p_days_to => l_days_to,
583: p_seq_type => l_seq_type,
584: x_return_status => l_return_status
585: );
586: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Line#'||i||' -- days_start ::' || l_bucket_lines_tbl(i).days_start);
587: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Line#'||i||' -- days_to ::' || l_bucket_lines_tbl(i).days_to);
588: FND_FILE.PUT_LINE(FND_FILE.LOG, 'return status#'||i||' ::' || l_return_status);
589:
590: IF l_return_status = FND_API.g_ret_sts_error THEN
583: p_seq_type => l_seq_type,
584: x_return_status => l_return_status
585: );
586: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Line#'||i||' -- days_start ::' || l_bucket_lines_tbl(i).days_start);
587: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Line#'||i||' -- days_to ::' || l_bucket_lines_tbl(i).days_to);
588: FND_FILE.PUT_LINE(FND_FILE.LOG, 'return status#'||i||' ::' || l_return_status);
589:
590: IF l_return_status = FND_API.g_ret_sts_error THEN
591: -- raise error and log message
584: x_return_status => l_return_status
585: );
586: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Line#'||i||' -- days_start ::' || l_bucket_lines_tbl(i).days_start);
587: FND_FILE.PUT_LINE(FND_FILE.LOG, 'Line#'||i||' -- days_to ::' || l_bucket_lines_tbl(i).days_to);
588: FND_FILE.PUT_LINE(FND_FILE.LOG, 'return status#'||i||' ::' || l_return_status);
589:
590: IF l_return_status = FND_API.g_ret_sts_error THEN
591: -- raise error and log message
592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
602: -- populate table ozf_aging_summary
603: populate_aging_summary(
604: x_return_status => l_return_status
605: );
606: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
607: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Total number of Bucket lines selected: ' || to_char(l_bucket_lines_tbl.count));
608:
609: IF l_return_status <> FND_API.g_ret_sts_success THEN
610: -- raise error and log message
603: populate_aging_summary(
604: x_return_status => l_return_status
605: );
606: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
607: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Total number of Bucket lines selected: ' || to_char(l_bucket_lines_tbl.count));
608:
609: IF l_return_status <> FND_API.g_ret_sts_success THEN
610: -- raise error and log message
611: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
614: END IF;
615: RAISE FND_API.g_exc_error;
616: END IF;
617:
618: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
619: FND_FILE.PUT_LINE(FND_FILE.LOG, '== END populating aging : time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
620: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
621: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
622:
615: RAISE FND_API.g_exc_error;
616: END IF;
617:
618: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
619: FND_FILE.PUT_LINE(FND_FILE.LOG, '== END populating aging : time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
620: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
621: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
622:
623: IF g_debug THEN
616: END IF;
617:
618: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
619: FND_FILE.PUT_LINE(FND_FILE.LOG, '== END populating aging : time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
620: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
621: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
622:
623: IF g_debug THEN
624: OZF_Utility_PVT.debug_message('== END populating aging : time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
617:
618: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Successful' );
619: FND_FILE.PUT_LINE(FND_FILE.LOG, '== END populating aging : time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
620: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
621: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
622:
623: IF g_debug THEN
624: OZF_Utility_PVT.debug_message('== END populating aging : time stamp :: '||TO_CHAR(SYSDATE, 'MM-DD-YYYY HH24:MI:SS'));
625: END IF;
633: ,p_data => l_msg_data
634: );
635: */
636: OZF_UTILITY_PVT.write_conc_log;
637: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'FND_API.g_exc_error');
638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || FND_MSG_PUB.get(2, FND_API.g_false)||')');
639: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
640: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
641:
634: );
635: */
636: OZF_UTILITY_PVT.write_conc_log;
637: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'FND_API.g_exc_error');
638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || FND_MSG_PUB.get(2, FND_API.g_false)||')');
639: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
640: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
641:
642: ERRBUF := l_msg_data;
635: */
636: OZF_UTILITY_PVT.write_conc_log;
637: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'FND_API.g_exc_error');
638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || FND_MSG_PUB.get(2, FND_API.g_false)||')');
639: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
640: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
641:
642: ERRBUF := l_msg_data;
643: RETCODE := 2;
636: OZF_UTILITY_PVT.write_conc_log;
637: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'FND_API.g_exc_error');
638: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || FND_MSG_PUB.get(2, FND_API.g_false)||')');
639: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
640: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
641:
642: ERRBUF := l_msg_data;
643: RETCODE := 2;
644: WHEN FND_API.g_exc_unexpected_error THEN
650: ,p_data => l_msg_data
651: );
652: */
653: OZF_UTILITY_PVT.write_conc_log;
654: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'FND_API.g_exc_unexpected_error');
655: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || FND_MSG_PUB.get(2, FND_API.g_false)||')');
656: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
657: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
658: ERRBUF := l_msg_data;
651: );
652: */
653: OZF_UTILITY_PVT.write_conc_log;
654: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'FND_API.g_exc_unexpected_error');
655: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || FND_MSG_PUB.get(2, FND_API.g_false)||')');
656: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
657: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
658: ERRBUF := l_msg_data;
659: RETCODE := 2;
652: */
653: OZF_UTILITY_PVT.write_conc_log;
654: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'FND_API.g_exc_unexpected_error');
655: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || FND_MSG_PUB.get(2, FND_API.g_false)||')');
656: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
657: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
658: ERRBUF := l_msg_data;
659: RETCODE := 2;
660: WHEN OTHERS THEN
653: OZF_UTILITY_PVT.write_conc_log;
654: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'FND_API.g_exc_unexpected_error');
655: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || FND_MSG_PUB.get(2, FND_API.g_false)||')');
656: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
657: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
658: ERRBUF := l_msg_data;
659: RETCODE := 2;
660: WHEN OTHERS THEN
661: ROLLBACK TO Aging_Summary;
659: RETCODE := 2;
660: WHEN OTHERS THEN
661: ROLLBACK TO Aging_Summary;
662: OZF_UTILITY_PVT.write_conc_log;
663: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'OTHERS exception');
664: ERRBUF := substr(sqlerrm, 1, 80);
665: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || ERRBUF||')');
666: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
667: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
661: ROLLBACK TO Aging_Summary;
662: OZF_UTILITY_PVT.write_conc_log;
663: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'OTHERS exception');
664: ERRBUF := substr(sqlerrm, 1, 80);
665: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || ERRBUF||')');
666: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
667: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
668: RETCODE := 2;
669: END Populate_Aging;
662: OZF_UTILITY_PVT.write_conc_log;
663: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'OTHERS exception');
664: ERRBUF := substr(sqlerrm, 1, 80);
665: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || ERRBUF||')');
666: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
667: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
668: RETCODE := 2;
669: END Populate_Aging;
670:
663: --FND_FILE.PUT_LINE(FND_FILE.LOG, 'OTHERS exception');
664: ERRBUF := substr(sqlerrm, 1, 80);
665: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Status: Failure (Error:' || ERRBUF||')');
666: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Execution Ends On: ' || to_char(sysdate,'MM-DD-YYYY HH24:MI:SS'));
667: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, '*------------------------------------------------------------------------------------------------------*');
668: RETCODE := 2;
669: END Populate_Aging;
670:
671: END OZF_Claim_Aging_PVT;