14: x_return_status OUT NOCOPY VARCHAR2
15: )
16: IS
17: BEGIN
18: x_return_status := FND_API.g_ret_sts_success;
19: -- insert data
20: INSERT INTO ozf_aging_bucket_dates (
21: aging_bucket_id,
22: aging_bucket_line_id,
34: );
35:
36: EXCEPTION
37: WHEN OTHERS THEN
38: x_return_status := FND_API.g_ret_sts_error;
39: END;
40:
41: --------------------------------------------------------------------------------
42: PROCEDURE populate_aging_dates(
56: l_bucket_date DATE;
57: l_bucket_date_range NUMBER;
58:
59: BEGIN
60: x_return_status := FND_API.g_ret_sts_success;
61:
62: /*
63: FND_PROFILE.get( 'bucket_date_range'
64: , l_high_val
97: p_bucket_date => l_bucket_date,
98: p_condition_type => l_type,
99: x_return_status => l_return_status
100: );
101: IF l_return_status = FND_API.g_ret_sts_error THEN
102: RAISE FND_API.g_exc_error;
103: END IF;
104: END LOOP;
105: ELSE
98: p_condition_type => l_type,
99: x_return_status => l_return_status
100: );
101: IF l_return_status = FND_API.g_ret_sts_error THEN
102: RAISE FND_API.g_exc_error;
103: END IF;
104: END LOOP;
105: ELSE
106: IF p_seq_type = 'L' THEN
122: p_bucket_date => l_bucket_date,
123: p_condition_type => l_type,
124: x_return_status => l_return_status
125: );
126: IF l_return_status = FND_API.g_ret_sts_error THEN
127: RAISE FND_API.g_exc_error;
128: END IF;
129: ELSIF p_seq_type = 'F' THEN
130: --l_type := 'LT';
123: p_condition_type => l_type,
124: x_return_status => l_return_status
125: );
126: IF l_return_status = FND_API.g_ret_sts_error THEN
127: RAISE FND_API.g_exc_error;
128: END IF;
129: ELSIF p_seq_type = 'F' THEN
130: --l_type := 'LT';
131: IF p_bucket_type = 'PAST' THEN
148: p_bucket_date => l_bucket_date,
149: p_condition_type => l_type,
150: x_return_status => l_return_status
151: );
152: IF l_return_status = FND_API.g_ret_sts_error THEN
153: RAISE FND_API.g_exc_error;
154: END IF;
155: END IF;
156: END IF;
149: p_condition_type => l_type,
150: x_return_status => l_return_status
151: );
152: IF l_return_status = FND_API.g_ret_sts_error THEN
153: RAISE FND_API.g_exc_error;
154: END IF;
155: END IF;
156: END IF;
157:
155: END IF;
156: END IF;
157:
158: EXCEPTION
159: WHEN FND_API.g_exc_error THEN
160: x_return_status := FND_API.g_ret_sts_error;
161:
162: WHEN FND_API.g_exc_unexpected_error THEN
163: x_return_status := FND_API.g_ret_sts_unexp_error ;
156: END IF;
157:
158: EXCEPTION
159: WHEN FND_API.g_exc_error THEN
160: x_return_status := FND_API.g_ret_sts_error;
161:
162: WHEN FND_API.g_exc_unexpected_error THEN
163: x_return_status := FND_API.g_ret_sts_unexp_error ;
164:
158: EXCEPTION
159: WHEN FND_API.g_exc_error THEN
160: x_return_status := FND_API.g_ret_sts_error;
161:
162: WHEN FND_API.g_exc_unexpected_error THEN
163: x_return_status := FND_API.g_ret_sts_unexp_error ;
164:
165: WHEN OTHERS THEN
166: x_return_status := FND_API.g_ret_sts_unexp_error;
159: WHEN FND_API.g_exc_error THEN
160: x_return_status := FND_API.g_ret_sts_error;
161:
162: WHEN FND_API.g_exc_unexpected_error THEN
163: x_return_status := FND_API.g_ret_sts_unexp_error ;
164:
165: WHEN OTHERS THEN
166: x_return_status := FND_API.g_ret_sts_unexp_error;
167: END;
162: WHEN FND_API.g_exc_unexpected_error THEN
163: x_return_status := FND_API.g_ret_sts_unexp_error ;
164:
165: WHEN OTHERS THEN
166: x_return_status := FND_API.g_ret_sts_unexp_error;
167: END;
168:
169: --------------------------------------------------------------------------------
170: PROCEDURE populate_aging_summary(
368: l_aging_summary_rec aging_summary_csr%ROWTYPE;
369: l_aging_col_total_rec aging_col_total_csr%ROWTYPE;
370:
371: BEGIN
372: x_return_status := FND_API.g_ret_sts_success;
373:
374: OPEN aging_summary_csr;
375: LOOP
376: FETCH aging_summary_csr INTO l_aging_summary_rec;
421:
422:
423: EXCEPTION
424: WHEN OTHERS THEN
425: x_return_status := FND_API.g_ret_sts_error;
426: END;
427: --------------------------------------------------------------------------------
428: -- API name : Populate_Aging
429: -- Type : Private
519: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
520: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AGING_NO_BUCKET');
521: FND_MSG_PUB.add;
522: END IF;
523: RAISE FND_API.g_exc_error;
524: END IF;
525:
526: /*Hbandi Added this code for the Bug Fix #9273717 (+) */
527: l_org_id := MO_GLOBAL.get_current_org_id;
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
593: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AGING_SUMMARY_ERR');
594: FND_MSG_PUB.add;
592: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
593: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AGING_SUMMARY_ERR');
594: FND_MSG_PUB.add;
595: END IF;
596: RAISE FND_API.g_exc_error;
597: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
598: RAISE FND_API.g_exc_unexpected_error;
599: END IF;
600: END LOOP;
593: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AGING_SUMMARY_ERR');
594: FND_MSG_PUB.add;
595: END IF;
596: RAISE FND_API.g_exc_error;
597: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
598: RAISE FND_API.g_exc_unexpected_error;
599: END IF;
600: END LOOP;
601:
594: FND_MSG_PUB.add;
595: END IF;
596: RAISE FND_API.g_exc_error;
597: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
598: RAISE FND_API.g_exc_unexpected_error;
599: END IF;
600: END LOOP;
601:
602: -- populate table ozf_aging_summary
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
612: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AGING_POPULATE_ERR');
613: FND_MSG_PUB.add;
611: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
612: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AGING_POPULATE_ERR');
613: FND_MSG_PUB.add;
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'));
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;
626: EXCEPTION
627: WHEN FND_API.g_exc_error THEN
628: ROLLBACK TO Aging_Summary;
629: /*
630: FND_MSG_PUB.count_and_get (
631: p_encoded => FND_API.g_false
627: WHEN FND_API.g_exc_error THEN
628: ROLLBACK TO Aging_Summary;
629: /*
630: FND_MSG_PUB.count_and_get (
631: p_encoded => FND_API.g_false
632: ,p_count => l_msg_count
633: ,p_data => l_msg_data
634: );
635: */
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;
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
645: ROLLBACK TO Aging_Summary;
646: /*
647: FND_MSG_PUB.count_and_get (
648: p_encoded => FND_API.g_false
644: WHEN FND_API.g_exc_unexpected_error THEN
645: ROLLBACK TO Aging_Summary;
646: /*
647: FND_MSG_PUB.count_and_get (
648: p_encoded => FND_API.g_false
649: ,p_count => l_msg_count
650: ,p_data => l_msg_data
651: );
652: */
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;