89: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_ORG_ID_NOTFOUND');
90: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
91: END IF;
92:
93: OPEN OZF_RESALE_COMMON_PVT.g_batch_type_csr(p_resale_batch_id);
94: FETCH OZF_RESALE_COMMON_PVT.g_batch_type_csr into l_batch_type;
95: CLOSE OZF_RESALE_COMMON_PVT.g_batch_type_csr;
96:
97: IF l_batch_type is null THEN
90: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
91: END IF;
92:
93: OPEN OZF_RESALE_COMMON_PVT.g_batch_type_csr(p_resale_batch_id);
94: FETCH OZF_RESALE_COMMON_PVT.g_batch_type_csr into l_batch_type;
95: CLOSE OZF_RESALE_COMMON_PVT.g_batch_type_csr;
96:
97: IF l_batch_type is null THEN
98: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_BATCH_TYPE_NULL');
91: END IF;
92:
93: OPEN OZF_RESALE_COMMON_PVT.g_batch_type_csr(p_resale_batch_id);
94: FETCH OZF_RESALE_COMMON_PVT.g_batch_type_csr into l_batch_type;
95: CLOSE OZF_RESALE_COMMON_PVT.g_batch_type_csr;
96:
97: IF l_batch_type is null THEN
98: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_BATCH_TYPE_NULL');
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
98: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_BATCH_TYPE_NULL');
99: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100: END IF;
101:
102: IF l_batch_type = OZF_RESALE_COMMON_PVT.G_CHARGEBACK THEN
103:
104: OZF_CHARGEBACK_PVT.Initiate_Payment(
105: p_api_version => 1
106: ,p_init_msg_list => FND_API.G_FALSE
118: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
119: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_CHBK_PAYMNT_ERR');
120: RAISE FND_API.g_exc_unexpected_error;
121: END IF;
122: ELSIF l_batch_type = OZF_RESALE_COMMON_PVT.G_SPECIAL_PRICING THEN
123:
124: OZF_SPECIAL_PRICING_PVT.Initiate_Payment(
125: p_api_version => 1
126: ,p_init_msg_list => FND_API.G_FALSE
138: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
139: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_SPP_PAYMNT_ERR');
140: RAISE FND_API.g_exc_unexpected_error;
141: END IF;
142: ELSIF l_batch_type = OZF_RESALE_COMMON_PVT.G_TRACING THEN
143:
144: OZF_TRACING_ORDER_PVT.Initiate_Payment(
145: p_api_version => 1
146: ,p_init_msg_list => FND_API.G_FALSE
332: l_batch_count number;
333:
334: l_batch_type varchar2(30);
335: i number;
336: l_open_lines_tbl OZF_RESALE_COMMON_PVT.interface_lines_tbl_type;
337: --
338: l_disputed_count number;
339: l_duplicate_count number;
340: l_dup_line_id number;
345: /*
346: CURSOR open_lines_csr(p_id IN NUMBER) IS
347: SELECT *
348: FROM ozf_resale_lines_int
349: WHERE status_code =OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_OPEN
350: AND resale_batch_id = p_id;
351: */
352:
353: CURSOR batch_count_csr(pc_batch_id NUMBER) IS
357:
358: CURSOR duplicate_count_csr(p_id NUMBER) IS
359: SELECT count(1)
360: FROM ozf_resale_lines_int
361: WHERE status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DUPLICATED
362: AND resale_batch_id = p_id;
363:
364: CURSOR disputed_count_csr(p_id number) IS
365: SELECT count(1)
363:
364: CURSOR disputed_count_csr(p_id number) IS
365: SELECT count(1)
366: FROM ozf_resale_lines_int
367: WHERE status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED
368: AND resale_batch_id = p_id;
369: --
370: BEGIN
371: -- Standard begin of API savepoint
403: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_ORG_ID_NOTFOUND');
404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
405: END IF;
406:
407: OPEN OZF_RESALE_COMMON_PVT.g_batch_type_csr(p_resale_batch_id);
408: FETCH OZF_RESALE_COMMON_PVT.g_batch_type_csr into l_batch_type;
409: CLOSE OZF_RESALE_COMMON_PVT.g_batch_type_csr;
410:
411: -- Make sure that batch type is not null
404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
405: END IF;
406:
407: OPEN OZF_RESALE_COMMON_PVT.g_batch_type_csr(p_resale_batch_id);
408: FETCH OZF_RESALE_COMMON_PVT.g_batch_type_csr into l_batch_type;
409: CLOSE OZF_RESALE_COMMON_PVT.g_batch_type_csr;
410:
411: -- Make sure that batch type is not null
412: IF l_batch_type is null THEN
405: END IF;
406:
407: OPEN OZF_RESALE_COMMON_PVT.g_batch_type_csr(p_resale_batch_id);
408: FETCH OZF_RESALE_COMMON_PVT.g_batch_type_csr into l_batch_type;
409: CLOSE OZF_RESALE_COMMON_PVT.g_batch_type_csr;
410:
411: -- Make sure that batch type is not null
412: IF l_batch_type is null THEN
413: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_BATCH_TYPE_NULL');
425: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
426: END;
427:
428: -- Varify the line information for this batch
429: OZF_RESALE_COMMON_PVT.Validate_batch(
430: p_api_version => 1
431: ,p_init_msg_list => FND_API.G_FALSE
432: ,p_commit => FND_API.G_FALSE
433: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
446: -- set disputed_code to null for the lines to be processed.
447: update ozf_resale_lines_int
448: set dispute_code = null
449: where resale_batch_id = p_resale_batch_id
450: and status_code= OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_OPEN;
451:
452: -- update tracing order lines to processed for this order to be processed
453: update ozf_resale_lines_int
454: set status_code= OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED
450: and status_code= OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_OPEN;
451:
452: -- update tracing order lines to processed for this order to be processed
453: update ozf_resale_lines_int
454: set status_code= OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED
455: where resale_batch_id = p_resale_batch_id
456: and status_code= OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_OPEN
457: and tracing_flag = 'T';
458:
452: -- update tracing order lines to processed for this order to be processed
453: update ozf_resale_lines_int
454: set status_code= OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED
455: where resale_batch_id = p_resale_batch_id
456: and status_code= OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_OPEN
457: and tracing_flag = 'T';
458:
459: /*
460: i := 1;
465: i:= i+1;
466: END LOOP;
467: CLOSE open_lines_csr;
468: */
469: OZF_RESALE_COMMON_PVT.Update_Duplicates (
470: p_api_version => 1.0,
471: p_init_msg_list => FND_API.G_FALSE,
472: p_commit => FND_API.G_FALSE,
473: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
484: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
486: END IF;
487:
488: IF l_batch_status = OZF_RESALE_COMMON_PVT.G_BATCH_REJECTED THEN
489: IF OZF_DEBUG_LOW_ON THEN
490: OZF_UTILITY_PVT.debug_message('OZF_RESALE_REJECTED');
491: END IF;
492: ELSE
490: OZF_UTILITY_PVT.debug_message('OZF_RESALE_REJECTED');
491: END IF;
492: ELSE
493: -- Varify the line information for this batch
494: OZF_RESALE_COMMON_PVT.Validate_Order_Record(
495: p_api_version => 1
496: ,p_init_msg_list => FND_API.G_FALSE
497: ,p_commit => FND_API.G_FALSE
498: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
507: END IF;
508:
509: -- Call different validation here.
510: -- calling chargeback validation for this batch
511: IF l_batch_type = OZF_RESALE_COMMON_PVT.G_TP_ACCRUAL THEN
512: OZF_TP_ACCRUAL_PVT.Validate_Order_Record(
513: p_api_version => 1
514: ,p_init_msg_list => FND_API.G_FALSE
515: ,p_commit => FND_API.G_FALSE
523: IF l_return_status<> FND_API.G_RET_STS_SUCCESS THEN
524: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_TP_VALIDATE_ERR');
525: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
526: END IF;
527: ELSIF l_batch_type = OZF_RESALE_COMMON_PVT.G_CHARGEBACK THEN
528: OZF_CHARGEBACK_PVT.Validate_Order_Record(
529: p_api_version => 1
530: ,p_init_msg_list => FND_API.G_FALSE
531: ,p_commit => FND_API.G_FALSE
538: IF l_return_status<> FND_API.G_RET_STS_SUCCESS THEN
539: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_CHBK_VALIDATE_ERR');
540: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
541: END IF;
542: ELSIF l_batch_type = OZF_RESALE_COMMON_PVT.G_SPECIAL_PRICING THEN
543: OZF_SPECIAL_PRICING_PVT.Validate_Order_Record(
544: p_api_version => 1
545: ,p_init_msg_list => FND_API.G_FALSE
546: ,p_commit => FND_API.G_FALSE
553: IF l_return_status<> FND_API.G_RET_STS_SUCCESS THEN
554: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_SPP_VALIDATE_ERR');
555: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
556: END IF;
557: ELSIF l_batch_type = OZF_RESALE_COMMON_PVT.G_TRACING THEN
558: OZF_TRACING_ORDER_PVT.Validate_Order_Record(
559: p_api_version => 1
560: ,p_init_msg_list => FND_API.G_FALSE
561: ,p_commit => FND_API.G_FALSE
584: CLOSE batch_count_csr;
585:
586: IF l_duplicate_count = l_batch_count THEN
587: update ozf_resale_batches_all
588: set status_code = OZF_RESALE_COMMON_PVT.G_BATCH_REJECTED
589: where resale_batch_id = p_resale_batch_id;
590: ELSE
591: */
592: IF l_batch_type = OZF_RESALE_COMMON_PVT.G_TP_ACCRUAL THEN
588: set status_code = OZF_RESALE_COMMON_PVT.G_BATCH_REJECTED
589: where resale_batch_id = p_resale_batch_id;
590: ELSE
591: */
592: IF l_batch_type = OZF_RESALE_COMMON_PVT.G_TP_ACCRUAL THEN
593: OZF_TP_ACCRUAL_PVT.Process_Order(
594: p_api_version => 1
595: ,p_init_msg_list => FND_API.G_FALSE
596: ,p_commit => FND_API.G_FALSE
604: IF l_return_status<> FND_API.G_RET_STS_SUCCESS THEN
605: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_TP_PROC_ERR');
606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
607: END IF;
608: ELSIF l_batch_type = OZF_RESALE_COMMON_PVT.G_CHARGEBACK THEN
609: OZF_CHARGEBACK_PVT.Process_Order(
610: p_api_version => 1
611: ,p_init_msg_list => FND_API.G_FALSE
612: ,p_commit => FND_API.G_FALSE
619: IF l_return_status<> FND_API.G_RET_STS_SUCCESS THEN
620: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_CHBK_PROC_ERR');
621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
622: END IF;
623: ELSIF l_batch_type = OZF_RESALE_COMMON_PVT.G_SPECIAL_PRICING THEN
624: OZF_SPECIAL_PRICING_PVT.Process_Order(
625: p_api_version => 1
626: ,p_init_msg_list => FND_API.G_FALSE
627: ,p_commit => FND_API.G_FALSE
634: IF l_return_status<> FND_API.G_RET_STS_SUCCESS THEN
635: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_SPP_PROC_ERR');
636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: END IF;
638: ELSIF l_batch_type = OZF_RESALE_COMMON_PVT.G_TRACING THEN
639: OZF_TRACING_ORDER_PVT.Process_Order(
640: p_api_version => 1
641: ,p_init_msg_list => FND_API.G_FALSE
642: ,p_commit => FND_API.G_FALSE
913:
914: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Number : '||l_batch_number);
915: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
916:
917: OPEN OZF_RESALE_COMMON_PVT.g_batch_type_csr(p_resale_batch_id);
918: FETCH OZF_RESALE_COMMON_PVT.g_batch_type_csr into l_batch_type;
919: CLOSE OZF_RESALE_COMMON_PVT.g_batch_type_csr;
920:
921: IF l_batch_type is null THEN
914: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Batch Number : '||l_batch_number);
915: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
916:
917: OPEN OZF_RESALE_COMMON_PVT.g_batch_type_csr(p_resale_batch_id);
918: FETCH OZF_RESALE_COMMON_PVT.g_batch_type_csr into l_batch_type;
919: CLOSE OZF_RESALE_COMMON_PVT.g_batch_type_csr;
920:
921: IF l_batch_type is null THEN
922: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_BATCH_TYPE_NULL');
915: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
916:
917: OPEN OZF_RESALE_COMMON_PVT.g_batch_type_csr(p_resale_batch_id);
918: FETCH OZF_RESALE_COMMON_PVT.g_batch_type_csr into l_batch_type;
919: CLOSE OZF_RESALE_COMMON_PVT.g_batch_type_csr;
920:
921: IF l_batch_type is null THEN
922: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_BATCH_TYPE_NULL');
923: FND_MESSAGE.set_name('OZF', 'OZF_RESALE_BATCH_TYPE_NULL');
926: GOTO PROC_RESALE_END;
927: END IF;
928:
929: /*
930: IF l_batch_type = OZF_RESALE_COMMON_PVT.G_TP_ACCRUAL THEN
931: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_RESALE_DUP_PROCESS_TP');
932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
933: END IF;
934: */
1160:
1161: -- For TPA Parallel Execution ER - 9614703 (+)
1162: IF x_batch_status = 'CLOSED' THEN
1163: UPDATE ozf_resale_batches_all
1164: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED
1165: WHERE resale_batch_id = l_batch_id_tbl(j);
1166: ELSIF x_batch_status = 'PENDING_ACCRUALS' THEN
1167: UPDATE ozf_resale_batches_all
1168: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_PENDING_ACCRUALS
1164: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_CLOSED
1165: WHERE resale_batch_id = l_batch_id_tbl(j);
1166: ELSIF x_batch_status = 'PENDING_ACCRUALS' THEN
1167: UPDATE ozf_resale_batches_all
1168: SET status_code = OZF_RESALE_COMMON_PVT.G_BATCH_PENDING_ACCRUALS
1169: WHERE resale_batch_id = l_batch_id_tbl(j);
1170: END IF;
1171: -- For TPA Parallel Execution ER - 9614703 (-)
1172: