42: --
43: ---------------------------------------------------------------------
44: PROCEDURE Initiate_payment (
45: p_api_version IN NUMBER
46: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
47: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
48: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
49: ,p_resale_batch_id IN NUMBER
50: ,x_return_status OUT NOCOPY VARCHAR2
43: ---------------------------------------------------------------------
44: PROCEDURE Initiate_payment (
45: p_api_version IN NUMBER
46: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
47: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
48: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
49: ,p_resale_batch_id IN NUMBER
50: ,x_return_status OUT NOCOPY VARCHAR2
51: ,x_msg_data OUT NOCOPY VARCHAR2
44: PROCEDURE Initiate_payment (
45: p_api_version IN NUMBER
46: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
47: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
48: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
49: ,p_resale_batch_id IN NUMBER
50: ,x_return_status OUT NOCOPY VARCHAR2
51: ,x_msg_data OUT NOCOPY VARCHAR2
52: ,x_msg_count OUT NOCOPY NUMBER
229: BEGIN
230: -- Standard begin of API savepoint
231: SAVEPOINT INIT_PAYMENT_SPP;
232: -- Standard call to check for call compatibility.
233: IF NOT FND_API.Compatible_API_Call (
234: l_api_version,
235: p_api_version,
236: l_api_name,
237: G_PKG_NAME)
235: p_api_version,
236: l_api_name,
237: G_PKG_NAME)
238: THEN
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241:
242: --Initialize message list if p_init_msg_list is TRUE.
243: IF FND_API.To_Boolean (p_init_msg_list) THEN
239: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
240: END IF;
241:
242: --Initialize message list if p_init_msg_list is TRUE.
243: IF FND_API.To_Boolean (p_init_msg_list) THEN
244: FND_MSG_PUB.initialize;
245: END IF;
246:
247: -- Debug Message
249: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
250: END IF;
251:
252: -- Initialize API return status to sucess
253: x_return_status := FND_API.G_RET_STS_SUCCESS;
254:
255: OPEN Batch_info_csr(p_resale_batch_id);
256: FETCH batch_info_csr INTO l_batch_status,
257: l_batch_type,
272:
273: IF l_count <> 0 THEN
274: --Can not pay if there is an OPEN line
275: ozf_utility_pvt.error_message('OZF_RESALE_OPEN_LINE_EXIST');
276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
277: ELSE
278: -- There is no need to find a fund id for the SPECIAL PRICING REQUEST
279: l_chargeback_fund_id := NULL;
280:
286: IF l_inventory_tracking = 'T' THEN
287: -- Bug 4380203 (+)
288: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
289: p_api_version => 1.0
290: ,p_init_msg_list => FND_API.G_FALSE
291: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
292: ,p_resale_batch_id => p_resale_batch_id
293: ,p_start_date => l_report_start_date
294: ,p_end_date => l_report_end_date
287: -- Bug 4380203 (+)
288: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
289: p_api_version => 1.0
290: ,p_init_msg_list => FND_API.G_FALSE
291: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
292: ,p_resale_batch_id => p_resale_batch_id
293: ,p_start_date => l_report_start_date
294: ,p_end_date => l_report_end_date
295: ,x_return_status => l_return_status
295: ,x_return_status => l_return_status
296: ,x_msg_count => l_msg_count
297: ,x_msg_data => l_msg_data
298: );
299: IF l_return_status = FND_API.g_ret_sts_error THEN
300: RAISE FND_API.g_exc_error;
301: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
302: RAISE FND_API.g_exc_unexpected_error;
303: END IF;
296: ,x_msg_count => l_msg_count
297: ,x_msg_data => l_msg_data
298: );
299: IF l_return_status = FND_API.g_ret_sts_error THEN
300: RAISE FND_API.g_exc_error;
301: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
302: RAISE FND_API.g_exc_unexpected_error;
303: END IF;
304:
297: ,x_msg_data => l_msg_data
298: );
299: IF l_return_status = FND_API.g_ret_sts_error THEN
300: RAISE FND_API.g_exc_error;
301: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
302: RAISE FND_API.g_exc_unexpected_error;
303: END IF;
304:
305: /*
298: );
299: IF l_return_status = FND_API.g_ret_sts_error THEN
300: RAISE FND_API.g_exc_error;
301: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
302: RAISE FND_API.g_exc_unexpected_error;
303: END IF;
304:
305: /*
306: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
304:
305: /*
306: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
307: p_api_version => 1.0
308: ,p_init_msg_list => FND_API.G_FALSE
309: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
310: ,p_party_id => l_partner_party_id
311: ,p_start_date => l_report_start_date
312: ,x_return_status => l_return_status
305: /*
306: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
307: p_api_version => 1.0
308: ,p_init_msg_list => FND_API.G_FALSE
309: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
310: ,p_party_id => l_partner_party_id
311: ,p_start_date => l_report_start_date
312: ,x_return_status => l_return_status
313: ,x_msg_count => l_msg_count
313: ,x_msg_count => l_msg_count
314: ,x_msg_data => l_msg_data
315: );
316:
317: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
318: ozf_utility_pvt.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
320: END IF;
321: */
315: );
316:
317: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
318: ozf_utility_pvt.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
320: END IF;
321: */
322: -- Bug 4380203 (-)
323: END IF;
325: -- SLKRISHN change to use Update_Duplicates
326: -- Check for Duplicates
327: OZF_RESALE_COMMON_PVT.Update_Duplicates (
328: p_api_version => 1.0,
329: p_init_msg_list => FND_API.G_FALSE,
330: p_commit => FND_API.G_FALSE,
331: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
332: p_resale_batch_id => p_resale_batch_id,
333: p_resale_batch_type => l_batch_type,
326: -- Check for Duplicates
327: OZF_RESALE_COMMON_PVT.Update_Duplicates (
328: p_api_version => 1.0,
329: p_init_msg_list => FND_API.G_FALSE,
330: p_commit => FND_API.G_FALSE,
331: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
332: p_resale_batch_id => p_resale_batch_id,
333: p_resale_batch_type => l_batch_type,
334: p_batch_status => l_batch_status,
327: OZF_RESALE_COMMON_PVT.Update_Duplicates (
328: p_api_version => 1.0,
329: p_init_msg_list => FND_API.G_FALSE,
330: p_commit => FND_API.G_FALSE,
331: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
332: p_resale_batch_id => p_resale_batch_id,
333: p_resale_batch_type => l_batch_type,
334: p_batch_status => l_batch_status,
335: x_batch_status => l_batch_status,
336: x_return_status => l_return_status,
337: x_msg_count => l_msg_count,
338: x_msg_data => l_msg_data);
339: --
340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
341: RAISE FND_API.G_EXC_ERROR;
342: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
337: x_msg_count => l_msg_count,
338: x_msg_data => l_msg_data);
339: --
340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
341: RAISE FND_API.G_EXC_ERROR;
342: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
345:
338: x_msg_data => l_msg_data);
339: --
340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
341: RAISE FND_API.G_EXC_ERROR;
342: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
345:
346: IF l_batch_status = OZF_RESALE_COMMON_PVT.G_BATCH_REJECTED THEN
339: --
340: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
341: RAISE FND_API.G_EXC_ERROR;
342: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
343: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
344: END IF;
345:
346: IF l_batch_status = OZF_RESALE_COMMON_PVT.G_BATCH_REJECTED THEN
347: IF OZF_DEBUG_LOW_ON THEN
450:
451: -- Check inventory level first
452: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
453: p_api_version => 1.0
454: ,p_init_msg_list => FND_API.G_FALSE
455: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
456: ,p_line_int_rec => l_line_int_rec
457: ,x_valid => l_inventory_level_valid
458: ,x_return_status => l_return_status
451: -- Check inventory level first
452: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
453: p_api_version => 1.0
454: ,p_init_msg_list => FND_API.G_FALSE
455: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
456: ,p_line_int_rec => l_line_int_rec
457: ,x_valid => l_inventory_level_valid
458: ,x_return_status => l_return_status
459: ,x_msg_count => l_msg_count
491: -- Determin header id
492: IF l_create_order_header THEN
493: OZF_RESALE_COMMON_PVT.Insert_resale_header(
494: p_api_version => 1
495: ,p_init_msg_list => FND_API.G_FALSE
496: ,p_commit => FND_API.G_FALSE
497: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
498: ,p_line_int_rec => l_line_int_rec
499: ,x_header_id => l_header_id
492: IF l_create_order_header THEN
493: OZF_RESALE_COMMON_PVT.Insert_resale_header(
494: p_api_version => 1
495: ,p_init_msg_list => FND_API.G_FALSE
496: ,p_commit => FND_API.G_FALSE
497: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
498: ,p_line_int_rec => l_line_int_rec
499: ,x_header_id => l_header_id
500: ,x_return_status => l_return_status
493: OZF_RESALE_COMMON_PVT.Insert_resale_header(
494: p_api_version => 1
495: ,p_init_msg_list => FND_API.G_FALSE
496: ,p_commit => FND_API.G_FALSE
497: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
498: ,p_line_int_rec => l_line_int_rec
499: ,x_header_id => l_header_id
500: ,x_return_status => l_return_status
501: ,x_msg_data => l_msg_data
500: ,x_return_status => l_return_status
501: ,x_msg_data => l_msg_data
502: ,x_msg_count => l_msg_count
503: );
504: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR;
506: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: END IF;
501: ,x_msg_data => l_msg_data
502: ,x_msg_count => l_msg_count
503: );
504: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR;
506: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: END IF;
509: ELSE
502: ,x_msg_count => l_msg_count
503: );
504: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR;
506: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: END IF;
509: ELSE
510: NULL;
503: );
504: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
505: RAISE FND_API.G_EXC_ERROR;
506: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
507: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
508: END IF;
509: ELSE
510: NULL;
511: -- We should have the l_header_id FROM the order level
517:
518: -- No problem so far. Insert INTO batch_lines table
519: OZF_RESALE_COMMON_PVT.Insert_resale_line(
520: p_api_version => 1
521: ,p_init_msg_list => FND_API.G_FALSE
522: ,p_commit => FND_API.G_FALSE
523: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
524: ,p_line_int_rec => l_line_int_rec
525: ,p_header_id => l_header_id
518: -- No problem so far. Insert INTO batch_lines table
519: OZF_RESALE_COMMON_PVT.Insert_resale_line(
520: p_api_version => 1
521: ,p_init_msg_list => FND_API.G_FALSE
522: ,p_commit => FND_API.G_FALSE
523: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
524: ,p_line_int_rec => l_line_int_rec
525: ,p_header_id => l_header_id
526: ,x_line_id => l_line_id
519: OZF_RESALE_COMMON_PVT.Insert_resale_line(
520: p_api_version => 1
521: ,p_init_msg_list => FND_API.G_FALSE
522: ,p_commit => FND_API.G_FALSE
523: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
524: ,p_line_int_rec => l_line_int_rec
525: ,p_header_id => l_header_id
526: ,x_line_id => l_line_id
527: ,x_return_status => l_return_status
527: ,x_return_status => l_return_status
528: ,x_msg_data => l_msg_data
529: ,x_msg_count => l_msg_count
530: );
531: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
532: RAISE FND_API.G_EXC_ERROR;
533: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
535: END IF;
528: ,x_msg_data => l_msg_data
529: ,x_msg_count => l_msg_count
530: );
531: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
532: RAISE FND_API.G_EXC_ERROR;
533: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
535: END IF;
536:
529: ,x_msg_count => l_msg_count
530: );
531: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
532: RAISE FND_API.G_EXC_ERROR;
533: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
535: END IF;
536:
537: -- FOR processed order line, I need to create a transaction FOR it.
530: );
531: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
532: RAISE FND_API.G_EXC_ERROR;
533: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
535: END IF;
536:
537: -- FOR processed order line, I need to create a transaction FOR it.
538: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
536:
537: -- FOR processed order line, I need to create a transaction FOR it.
538: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
539: p_api_version => 1.0
540: ,p_init_msg_list => FND_API.G_FALSE
541: ,p_commit => FND_API.G_FALSE
542: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
543: ,p_line_int_rec => l_line_int_rec
544: ,p_header_id => l_header_id
537: -- FOR processed order line, I need to create a transaction FOR it.
538: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
539: p_api_version => 1.0
540: ,p_init_msg_list => FND_API.G_FALSE
541: ,p_commit => FND_API.G_FALSE
542: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
543: ,p_line_int_rec => l_line_int_rec
544: ,p_header_id => l_header_id
545: ,p_line_id => l_line_id
538: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
539: p_api_version => 1.0
540: ,p_init_msg_list => FND_API.G_FALSE
541: ,p_commit => FND_API.G_FALSE
542: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
543: ,p_line_int_rec => l_line_int_rec
544: ,p_header_id => l_header_id
545: ,p_line_id => l_line_id
546: ,x_sales_transaction_id => l_sales_transaction_id
547: ,x_return_status => l_return_status
548: ,x_msg_data => l_msg_data
549: ,x_msg_count => l_msg_count
550: );
551: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
552: RAISE FND_API.G_EXC_ERROR;
553: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
555: END IF;
548: ,x_msg_data => l_msg_data
549: ,x_msg_count => l_msg_count
550: );
551: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
552: RAISE FND_API.G_EXC_ERROR;
553: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
555: END IF;
556: -- Bug 4380203 Fixing (+)
549: ,x_msg_count => l_msg_count
550: );
551: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
552: RAISE FND_API.G_EXC_ERROR;
553: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
555: END IF;
556: -- Bug 4380203 Fixing (+)
557: -- Bug 4380203 Fixing: Inventory Temp table is already updated in Validate_Inventory_Level
550: );
551: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
552: RAISE FND_API.G_EXC_ERROR;
553: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
554: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
555: END IF;
556: -- Bug 4380203 Fixing (+)
557: -- Bug 4380203 Fixing: Inventory Temp table is already updated in Validate_Inventory_Level
558: /*
558: /*
559: IF l_inventory_tracking = 'T' THEN
560: OZF_SALES_TRANSACTIONS_PVT.UPDATE_inventory_tmp (
561: p_api_version => 1.0
562: ,p_init_msg_list => FND_API.G_FALSE
563: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
564: ,p_sales_transaction_id => l_sales_transaction_id
565: ,x_return_status => l_return_status
566: ,x_msg_data => l_msg_data
559: IF l_inventory_tracking = 'T' THEN
560: OZF_SALES_TRANSACTIONS_PVT.UPDATE_inventory_tmp (
561: p_api_version => 1.0
562: ,p_init_msg_list => FND_API.G_FALSE
563: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
564: ,p_sales_transaction_id => l_sales_transaction_id
565: ,x_return_status => l_return_status
566: ,x_msg_data => l_msg_data
567: ,x_msg_count => l_msg_count
565: ,x_return_status => l_return_status
566: ,x_msg_data => l_msg_data
567: ,x_msg_count => l_msg_count
568: );
569: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
570: RAISE FND_API.G_EXC_ERROR;
571: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
573: END IF;
566: ,x_msg_data => l_msg_data
567: ,x_msg_count => l_msg_count
568: );
569: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
570: RAISE FND_API.G_EXC_ERROR;
571: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
573: END IF;
574: END IF;
567: ,x_msg_count => l_msg_count
568: );
569: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
570: RAISE FND_API.G_EXC_ERROR;
571: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
573: END IF;
574: END IF;
575: */
568: );
569: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
570: RAISE FND_API.G_EXC_ERROR;
571: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
573: END IF;
574: END IF;
575: */
576: -- Bug 4380203 Fixing (-)
590: -- only create mapping for the lines that are processed or
591: -- duplicated, yet the adjustment is new then
592: OZF_RESALE_COMMON_PVT.Insert_resale_line_mapping(
593: p_api_version => 1
594: ,p_init_msg_list => FND_API.G_FALSE
595: ,p_commit => FND_API.G_FALSE
596: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
597: ,p_resale_batch_id => p_resale_batch_id
598: ,p_line_id => l_line_id
591: -- duplicated, yet the adjustment is new then
592: OZF_RESALE_COMMON_PVT.Insert_resale_line_mapping(
593: p_api_version => 1
594: ,p_init_msg_list => FND_API.G_FALSE
595: ,p_commit => FND_API.G_FALSE
596: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
597: ,p_resale_batch_id => p_resale_batch_id
598: ,p_line_id => l_line_id
599: ,x_return_status => l_return_status
592: OZF_RESALE_COMMON_PVT.Insert_resale_line_mapping(
593: p_api_version => 1
594: ,p_init_msg_list => FND_API.G_FALSE
595: ,p_commit => FND_API.G_FALSE
596: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
597: ,p_resale_batch_id => p_resale_batch_id
598: ,p_line_id => l_line_id
599: ,x_return_status => l_return_status
600: ,x_msg_data => l_msg_data
599: ,x_return_status => l_return_status
600: ,x_msg_data => l_msg_data
601: ,x_msg_count => l_msg_count
602: );
603: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
604: RAISE FND_API.G_EXC_ERROR;
605: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
607: END IF;
600: ,x_msg_data => l_msg_data
601: ,x_msg_count => l_msg_count
602: );
603: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
604: RAISE FND_API.G_EXC_ERROR;
605: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
607: END IF;
608: END IF;
601: ,x_msg_count => l_msg_count
602: );
603: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
604: RAISE FND_API.G_EXC_ERROR;
605: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
607: END IF;
608: END IF;
609:
602: );
603: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
604: RAISE FND_API.G_EXC_ERROR;
605: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
606: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
607: END IF;
608: END IF;
609:
610: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED AND
610: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED AND
611: l_line_int_rec.tracing_flag = 'F' THEN
612: OZF_RESALE_COMMON_PVT.Create_Utilization(
613: p_api_version => 1.0
614: ,p_init_msg_LIST => FND_API.G_FALSE
615: ,p_commit => FND_API.G_FALSE
616: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
617: ,p_line_int_rec => l_line_int_rec
618: ,p_fund_id => l_chargeback_fund_id
611: l_line_int_rec.tracing_flag = 'F' THEN
612: OZF_RESALE_COMMON_PVT.Create_Utilization(
613: p_api_version => 1.0
614: ,p_init_msg_LIST => FND_API.G_FALSE
615: ,p_commit => FND_API.G_FALSE
616: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
617: ,p_line_int_rec => l_line_int_rec
618: ,p_fund_id => l_chargeback_fund_id
619: ,p_line_id => l_line_id
612: OZF_RESALE_COMMON_PVT.Create_Utilization(
613: p_api_version => 1.0
614: ,p_init_msg_LIST => FND_API.G_FALSE
615: ,p_commit => FND_API.G_FALSE
616: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
617: ,p_line_int_rec => l_line_int_rec
618: ,p_fund_id => l_chargeback_fund_id
619: ,p_line_id => l_line_id
620: ,p_cust_account_id => l_partner_cust_account_id
622: ,x_return_status => l_return_status
623: ,x_msg_data => l_msg_data
624: ,x_msg_count => l_msg_count
625: );
626: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
627: RAISE FND_API.G_EXC_ERROR;
628: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
630: END IF;
623: ,x_msg_data => l_msg_data
624: ,x_msg_count => l_msg_count
625: );
626: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
627: RAISE FND_API.G_EXC_ERROR;
628: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
630: END IF;
631:
624: ,x_msg_count => l_msg_count
625: );
626: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
627: RAISE FND_API.G_EXC_ERROR;
628: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
630: END IF;
631:
632: END IF; -- if this line is a processed one
625: );
626: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
627: RAISE FND_API.G_EXC_ERROR;
628: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
629: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
630: END IF;
631:
632: END IF; -- if this line is a processed one
633: << END_LOOP2 >>
651:
652: IF (l_auto_claim_profile = 'Y' ) OR (l_scan_data_cnt <> 0) THEN
653: OZF_Claim_Accrual_PVT.Initiate_Batch_Payment(
654: p_api_version => 1.0
655: ,p_init_msg_list => FND_API.g_false
656: ,p_commit => FND_API.g_false
657: ,p_validation_level => FND_API.g_valid_level_full
658: ,x_return_status => l_return_status
659: ,x_msg_count => l_msg_count
652: IF (l_auto_claim_profile = 'Y' ) OR (l_scan_data_cnt <> 0) THEN
653: OZF_Claim_Accrual_PVT.Initiate_Batch_Payment(
654: p_api_version => 1.0
655: ,p_init_msg_list => FND_API.g_false
656: ,p_commit => FND_API.g_false
657: ,p_validation_level => FND_API.g_valid_level_full
658: ,x_return_status => l_return_status
659: ,x_msg_count => l_msg_count
660: ,x_msg_data => l_msg_data
653: OZF_Claim_Accrual_PVT.Initiate_Batch_Payment(
654: p_api_version => 1.0
655: ,p_init_msg_list => FND_API.g_false
656: ,p_commit => FND_API.g_false
657: ,p_validation_level => FND_API.g_valid_level_full
658: ,x_return_status => l_return_status
659: ,x_msg_count => l_msg_count
660: ,x_msg_data => l_msg_data
661: ,p_resale_batch_id => p_resale_batch_id
660: ,x_msg_data => l_msg_data
661: ,p_resale_batch_id => p_resale_batch_id
662: );
663:
664: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
665: RAISE FND_API.G_EXC_ERROR;
666: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
668: END IF;
661: ,p_resale_batch_id => p_resale_batch_id
662: );
663:
664: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
665: RAISE FND_API.G_EXC_ERROR;
666: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
668: END IF;
669:
662: );
663:
664: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
665: RAISE FND_API.G_EXC_ERROR;
666: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
668: END IF;
669:
670: OPEN claimed_amount_csr(p_resale_batch_id);
663:
664: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
665: RAISE FND_API.G_EXC_ERROR;
666: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
668: END IF;
669:
670: OPEN claimed_amount_csr(p_resale_batch_id);
671: FETCH claimed_amount_csr INTO l_amount_claimed;
687: WHERE resale_batch_id = p_resale_batch_id;
688: EXCEPTION
689: WHEN OTHERS THEN
690: ozf_utility_pvt.error_message('OZF_UPD_RESALE_WRG','TEXT',l_full_name||': END');
691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
692: END;
693: END IF;
694: ELSE
695: BEGIN
707: WHERE resale_batch_id = p_resale_batch_id;
708: EXCEPTION
709: WHEN OTHERS THEN
710: ozf_utility_pvt.error_message('OZF_UPD_RESALE_WRG','TEXT',l_full_name||': END');
711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712: END;
713:
714:
715: END IF;
715: END IF;
716: ELSE
717: -- Only disputed and processed batch can be paid.
718: ozf_utility_pvt.error_message('OZF_RESALE_WRONG_STAUS_TO_PAY');
719: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
720: END IF;
721:
722: -- Debug Message
723: IF OZF_DEBUG_HIGH_ON THEN
724: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
725: END IF;
726: --Standard call to get message count and if count=1, get the message
727: FND_MSG_PUB.Count_And_Get (
728: p_encoded => FND_API.G_FALSE,
729: p_count => x_msg_count,
730: p_data => x_msg_data
731: );
732: x_return_status := l_return_status;
730: p_data => x_msg_data
731: );
732: x_return_status := l_return_status;
733: EXCEPTION
734: WHEN FND_API.G_EXC_ERROR THEN
735: ROLLBACK TO INIT_PAYMENT_SPP;
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: -- Standard call to get message count and if count=1, get the message
738: FND_MSG_PUB.Count_And_Get (
732: x_return_status := l_return_status;
733: EXCEPTION
734: WHEN FND_API.G_EXC_ERROR THEN
735: ROLLBACK TO INIT_PAYMENT_SPP;
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: -- Standard call to get message count and if count=1, get the message
738: FND_MSG_PUB.Count_And_Get (
739: p_encoded => FND_API.G_FALSE,
740: p_count => x_msg_count,
735: ROLLBACK TO INIT_PAYMENT_SPP;
736: x_return_status := FND_API.G_RET_STS_ERROR;
737: -- Standard call to get message count and if count=1, get the message
738: FND_MSG_PUB.Count_And_Get (
739: p_encoded => FND_API.G_FALSE,
740: p_count => x_msg_count,
741: p_data => x_msg_data
742: );
743: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
739: p_encoded => FND_API.G_FALSE,
740: p_count => x_msg_count,
741: p_data => x_msg_data
742: );
743: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
744: ROLLBACK TO INIT_PAYMENT_SPP;
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746:
747: -- Standard call to get message count and if count=1, get the message
741: p_data => x_msg_data
742: );
743: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
744: ROLLBACK TO INIT_PAYMENT_SPP;
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746:
747: -- Standard call to get message count and if count=1, get the message
748: FND_MSG_PUB.Count_And_Get (
749: p_encoded => FND_API.G_FALSE,
745: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
746:
747: -- Standard call to get message count and if count=1, get the message
748: FND_MSG_PUB.Count_And_Get (
749: p_encoded => FND_API.G_FALSE,
750: p_count => x_msg_count,
751: p_data => x_msg_data
752: );
753: WHEN OTHERS THEN
751: p_data => x_msg_data
752: );
753: WHEN OTHERS THEN
754: ROLLBACK TO INIT_PAYMENT_SPP;
755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
756:
757: -- Standard call to get message count and if count=1, get the message
758: FND_MSG_PUB.Count_And_Get (
759: p_encoded => FND_API.G_FALSE,
755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
756:
757: -- Standard call to get message count and if count=1, get the message
758: FND_MSG_PUB.Count_And_Get (
759: p_encoded => FND_API.G_FALSE,
760: p_count => x_msg_count,
761: p_data => x_msg_data
762: );
763: END Initiate_payment;
776: -- NOTES
777: ---------------------------------------------------------------------
778: PROCEDURE Validate_Order_Record(
779: p_api_version IN NUMBER
780: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
781: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
782: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
783: ,p_resale_batch_id IN NUMBER
784: ,x_return_status OUT NOCOPY VARCHAR2
777: ---------------------------------------------------------------------
778: PROCEDURE Validate_Order_Record(
779: p_api_version IN NUMBER
780: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
781: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
782: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
783: ,p_resale_batch_id IN NUMBER
784: ,x_return_status OUT NOCOPY VARCHAR2
785: ,x_msg_data OUT NOCOPY VARCHAR2
778: PROCEDURE Validate_Order_Record(
779: p_api_version IN NUMBER
780: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
781: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
782: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
783: ,p_resale_batch_id IN NUMBER
784: ,x_return_status OUT NOCOPY VARCHAR2
785: ,x_msg_data OUT NOCOPY VARCHAR2
786: ,x_msg_count OUT NOCOPY NUMBER
792:
793: BEGIN
794: -- Standard begin of API savepoint
795: -- Standard call to check for call compatibility.
796: IF NOT FND_API.Compatible_API_Call (
797: l_api_version,
798: p_api_version,
799: l_api_name,
800: G_PKG_NAME)
798: p_api_version,
799: l_api_name,
800: G_PKG_NAME)
801: THEN
802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
803: END IF;
804:
805: --Initialize message list if p_init_msg_list is TRUE.
806: IF FND_API.To_Boolean (p_init_msg_list) THEN
802: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
803: END IF;
804:
805: --Initialize message list if p_init_msg_list is TRUE.
806: IF FND_API.To_Boolean (p_init_msg_list) THEN
807: FND_MSG_PUB.initialize;
808: END IF;
809:
810: -- Debug Message
812: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
813: END IF;
814:
815: -- Initialize API return status to sucess
816: x_return_status := FND_API.G_RET_STS_SUCCESS;
817:
818: -- agreement_type should be 'SPO'
819: BEGIN
820: INSERT INTO ozf_resale_logs_all(
851: OZF_UTILITY_PVT.error_message(
852: p_message_name => 'OZF_INS_RESALE_LOG_WRG',
853: p_token_name => 'TEXT',
854: p_token_value => l_full_name||': END');
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856: END;
857:
858: BEGIN
859: UPDATE ozf_resale_lines_int_all
871: OZF_UTILITY_PVT.error_message(
872: p_message_name => 'OZF_UPD_RESALE_INT_WRG',
873: p_token_name => 'TEXT',
874: p_token_value => l_full_name||': END');
875: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
876: END;
877:
878: -- purchase price not be NULL
879: BEGIN
911: OZF_UTILITY_PVT.error_message(
912: p_message_name => 'OZF_INS_RESALE_LOG_WRG',
913: p_token_name => 'TEXT',
914: p_token_value => l_full_name||': END');
915: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
916: END;
917:
918: BEGIN
919: UPDATE ozf_resale_lines_int_all
931: OZF_UTILITY_PVT.error_message(
932: p_message_name => 'OZF_UPD_RESALE_INT_WRG',
933: p_token_name => 'TEXT',
934: p_token_value => l_full_name||': END');
935: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
936: END;
937:
938: -- Debug Message
939: IF OZF_DEBUG_HIGH_ON THEN
940: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
941: END IF;
942: --Standard call to get message count and if count=1, get the message
943: FND_MSG_PUB.Count_And_Get (
944: p_encoded => FND_API.G_FALSE,
945: p_count => x_msg_count,
946: p_data => x_msg_data
947: );
948: EXCEPTION
945: p_count => x_msg_count,
946: p_data => x_msg_data
947: );
948: EXCEPTION
949: WHEN FND_API.G_EXC_ERROR THEN
950: x_return_status := FND_API.G_RET_STS_ERROR;
951: -- Standard call to get message count and if count=1, get the message
952: FND_MSG_PUB.Count_And_Get (
953: p_encoded => FND_API.G_FALSE,
946: p_data => x_msg_data
947: );
948: EXCEPTION
949: WHEN FND_API.G_EXC_ERROR THEN
950: x_return_status := FND_API.G_RET_STS_ERROR;
951: -- Standard call to get message count and if count=1, get the message
952: FND_MSG_PUB.Count_And_Get (
953: p_encoded => FND_API.G_FALSE,
954: p_count => x_msg_count,
949: WHEN FND_API.G_EXC_ERROR THEN
950: x_return_status := FND_API.G_RET_STS_ERROR;
951: -- Standard call to get message count and if count=1, get the message
952: FND_MSG_PUB.Count_And_Get (
953: p_encoded => FND_API.G_FALSE,
954: p_count => x_msg_count,
955: p_data => x_msg_data
956: );
957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
953: p_encoded => FND_API.G_FALSE,
954: p_count => x_msg_count,
955: p_data => x_msg_data
956: );
957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
959: -- Standard call to get message count and if count=1, get the message
960: FND_MSG_PUB.Count_And_Get (
961: p_encoded => FND_API.G_FALSE,
954: p_count => x_msg_count,
955: p_data => x_msg_data
956: );
957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
959: -- Standard call to get message count and if count=1, get the message
960: FND_MSG_PUB.Count_And_Get (
961: p_encoded => FND_API.G_FALSE,
962: p_count => x_msg_count,
957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
959: -- Standard call to get message count and if count=1, get the message
960: FND_MSG_PUB.Count_And_Get (
961: p_encoded => FND_API.G_FALSE,
962: p_count => x_msg_count,
963: p_data => x_msg_data
964: );
965: WHEN OTHERS THEN
962: p_count => x_msg_count,
963: p_data => x_msg_data
964: );
965: WHEN OTHERS THEN
966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
967:
968: -- Standard call to get message count and if count=1, get the message
969: FND_MSG_PUB.Count_And_Get (
970: p_encoded => FND_API.G_FALSE,
966: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
967:
968: -- Standard call to get message count and if count=1, get the message
969: FND_MSG_PUB.Count_And_Get (
970: p_encoded => FND_API.G_FALSE,
971: p_count => x_msg_count,
972: p_data => x_msg_data
973: );
974: END Validate_Order_Record;
996: l_api_name CONSTANT VARCHAR2(30) := 'Process_One_Order';
997: l_api_version CONSTANT NUMBER := 1.0;
998: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME ||'.'|| l_api_name;
999:
1000: l_return_status VARCHAR2(30):=FND_API.G_RET_STS_SUCCESS;
1001: l_msg_count NUMBER;
1002: l_msg_data VARCHAR2(2000);
1003: l_agreement_name VARCHAR2(400);
1004:
1176: -- Standard begin of API savepoint
1177: SAVEPOINT Process_SPP_ONE_Order;
1178:
1179: -- Initialize API return status to sucess
1180: x_return_status := FND_API.G_RET_STS_SUCCESS;
1181:
1182: -- Debug Message
1183: IF OZF_DEBUG_HIGH_ON THEN
1184: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
1212: IF g_inventory_tracking = 'T' THEN
1213: -- Check inventory level first
1214: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1215: p_api_version => 1.0
1216: ,p_init_msg_list => FND_API.G_FALSE
1217: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1218: ,p_line_int_rec => l_resale_int_rec
1219: ,x_valid => l_inventory_level_valid
1220: ,x_return_status => l_return_status
1213: -- Check inventory level first
1214: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1215: p_api_version => 1.0
1216: ,p_init_msg_list => FND_API.G_FALSE
1217: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1218: ,p_line_int_rec => l_resale_int_rec
1219: ,x_valid => l_inventory_level_valid
1220: ,x_return_status => l_return_status
1221: ,x_msg_count => l_msg_count
1234: p_column_name => NULL,
1235: p_column_value => NULL,
1236: x_return_status => l_return_status);
1237:
1238: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1239: RAISE FND_API.g_exc_error;
1240: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1241: RAISE FND_API.g_exc_unexpected_error;
1242: END IF;
1235: p_column_value => NULL,
1236: x_return_status => l_return_status);
1237:
1238: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1239: RAISE FND_API.g_exc_error;
1240: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1241: RAISE FND_API.g_exc_unexpected_error;
1242: END IF;
1243:
1236: x_return_status => l_return_status);
1237:
1238: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1239: RAISE FND_API.g_exc_error;
1240: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1241: RAISE FND_API.g_exc_unexpected_error;
1242: END IF;
1243:
1244: -- SET Batch as DISPUTED
1237:
1238: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1239: RAISE FND_API.g_exc_error;
1240: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1241: RAISE FND_API.g_exc_unexpected_error;
1242: END IF;
1243:
1244: -- SET Batch as DISPUTED
1245: -- SLKRISHN change to common procedure
1325: IF g_inventory_tracking = 'T' THEN
1326: -- Check inventory level first
1327: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1328: p_api_version => 1.0
1329: ,p_init_msg_list => FND_API.G_FALSE
1330: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1331: ,p_line_int_rec => l_resale_int_rec
1332: ,x_valid => l_inventory_level_valid
1333: ,x_return_status => l_return_status
1326: -- Check inventory level first
1327: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1328: p_api_version => 1.0
1329: ,p_init_msg_list => FND_API.G_FALSE
1330: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1331: ,p_line_int_rec => l_resale_int_rec
1332: ,x_valid => l_inventory_level_valid
1333: ,x_return_status => l_return_status
1334: ,x_msg_count => l_msg_count
1343: p_column_name => NULL,
1344: p_column_value => NULL,
1345: x_return_status => l_return_status);
1346: --
1347: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1348: RAISE FND_API.g_exc_error;
1349: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1350: RAISE FND_API.g_exc_unexpected_error;
1351: END IF;
1344: p_column_value => NULL,
1345: x_return_status => l_return_status);
1346: --
1347: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1348: RAISE FND_API.g_exc_error;
1349: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1350: RAISE FND_API.g_exc_unexpected_error;
1351: END IF;
1352: --
1345: x_return_status => l_return_status);
1346: --
1347: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1348: RAISE FND_API.g_exc_error;
1349: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1350: RAISE FND_API.g_exc_unexpected_error;
1351: END IF;
1352: --
1353: -- SET Batch as DISPUTED
1346: --
1347: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1348: RAISE FND_API.g_exc_error;
1349: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1350: RAISE FND_API.g_exc_unexpected_error;
1351: END IF;
1352: --
1353: -- SET Batch as DISPUTED
1354: -- SLKRISHN change to common procedure
1397: p_column_name => NULL,
1398: p_column_value => NULL,
1399: x_return_status => l_return_status
1400: );
1401: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1402: RAISE FND_API.g_exc_error;
1403: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1404: RAISE FND_API.g_exc_unexpected_error;
1405: END IF;
1398: p_column_value => NULL,
1399: x_return_status => l_return_status
1400: );
1401: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1402: RAISE FND_API.g_exc_error;
1403: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1404: RAISE FND_API.g_exc_unexpected_error;
1405: END IF;
1406:
1399: x_return_status => l_return_status
1400: );
1401: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1402: RAISE FND_API.g_exc_error;
1403: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1404: RAISE FND_API.g_exc_unexpected_error;
1405: END IF;
1406:
1407: BEGIN
1400: );
1401: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1402: RAISE FND_API.g_exc_error;
1403: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1404: RAISE FND_API.g_exc_unexpected_error;
1405: END IF;
1406:
1407: BEGIN
1408: UPDATE ozf_resale_lines_int
1415: AND resale_batch_id = p_resale_batch_id;
1416: EXCEPTION
1417: WHEN OTHERS THEN
1418: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1420: END;
1421: goto END_LOOP;
1422: END IF;
1423:
1436: p_column_name => NULL,
1437: p_column_value => NULL,
1438: x_return_status => l_return_status
1439: );
1440: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1441: RAISE FND_API.g_exc_error;
1442: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1443: RAISE FND_API.g_exc_unexpected_error;
1444: END IF;
1437: p_column_value => NULL,
1438: x_return_status => l_return_status
1439: );
1440: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1441: RAISE FND_API.g_exc_error;
1442: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1443: RAISE FND_API.g_exc_unexpected_error;
1444: END IF;
1445:
1438: x_return_status => l_return_status
1439: );
1440: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1441: RAISE FND_API.g_exc_error;
1442: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1443: RAISE FND_API.g_exc_unexpected_error;
1444: END IF;
1445:
1446: BEGIN
1439: );
1440: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1441: RAISE FND_API.g_exc_error;
1442: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1443: RAISE FND_API.g_exc_unexpected_error;
1444: END IF;
1445:
1446: BEGIN
1447: UPDATE ozf_resale_lines_int
1454: AND resale_batch_id = p_resale_batch_id;
1455: EXCEPTION
1456: WHEN OTHERS THEN
1457: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1459: END;
1460: GOTO END_LOOP;
1461: END IF;
1462:
1475: AND resale_batch_id = p_resale_batch_id;
1476: EXCEPTION
1477: WHEN OTHERS THEN
1478: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1480: END;
1481: GOTO END_LOOP;
1482: END IF;
1483:
1514: AND resale_batch_id = p_resale_batch_id;
1515: EXCEPTION
1516: WHEN OTHERS THEN
1517: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1519: END;
1520: GOTO END_LOOP;
1521: END IF;
1522: END IF;
1562: AND resale_batch_id = p_resale_batch_id;
1563: EXCEPTION
1564: WHEN OTHERS THEN
1565: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1567: END;
1568: GOTO END_LOOP;
1569: END IF;
1570: END IF;
1580: AND resale_batch_id = p_resale_batch_id;
1581: EXCEPTION
1582: WHEN OTHERS THEN
1583: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1585: END;
1586: GOTO END_LOOP;
1587: END IF;
1588: ELSE
1605: AND resale_batch_id = p_resale_batch_id;
1606: EXCEPTION
1607: WHEN OTHERS THEN
1608: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1609: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1610: END;
1611: GOTO END_LOOP;
1612: END IF;
1613: END IF;
1630: AND resale_batch_id = p_resale_batch_id;
1631: EXCEPTION
1632: WHEN OTHERS THEN
1633: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1635: END;
1636: GOTO END_LOOP;
1637: ELSE
1638: IF l_offer_type = G_OFF_INVOICE_OFFER THEN
1650: AND resale_batch_id = p_resale_batch_id;
1651: EXCEPTION
1652: WHEN OTHERS THEN
1653: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1654: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1655: END;
1656: GOTO END_LOOP;
1657: END IF;
1658: END IF;
1694: p_column_name => 'ITEM_NUMBER',
1695: p_column_value => l_order_set_tbl(J).item_number,
1696: x_return_status => l_return_status
1697: );
1698: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1699: RAISE FND_API.g_exc_error;
1700: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1701: RAISE FND_API.g_exc_unexpected_error;
1702: END IF;
1695: p_column_value => l_order_set_tbl(J).item_number,
1696: x_return_status => l_return_status
1697: );
1698: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1699: RAISE FND_API.g_exc_error;
1700: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1701: RAISE FND_API.g_exc_unexpected_error;
1702: END IF;
1703:
1696: x_return_status => l_return_status
1697: );
1698: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1699: RAISE FND_API.g_exc_error;
1700: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1701: RAISE FND_API.g_exc_unexpected_error;
1702: END IF;
1703:
1704: BEGIN
1697: );
1698: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1699: RAISE FND_API.g_exc_error;
1700: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1701: RAISE FND_API.g_exc_unexpected_error;
1702: END IF;
1703:
1704: BEGIN
1705: UPDATE ozf_resale_lines_int
1712: AND resale_batch_id = p_resale_batch_id;
1713: EXCEPTION
1714: WHEN OTHERS THEN
1715: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1717: END;
1718: goto END_LOOP;
1719: END IF;
1720:
1722: /*
1723: -- get current quantity and amount FROM tmp table
1724: OZF_RESALE_COMMON_PVT.get_available_quantity(
1725: p_api_version_number => 1.0,
1726: p_init_msg_list => FND_API.G_FALSE,
1727: p_commit => FND_API.G_FALSE,
1728: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1729: p_line_id => l_request_line_id,
1730: p_primary_uom_code => l_primary_uom_code,
1723: -- get current quantity and amount FROM tmp table
1724: OZF_RESALE_COMMON_PVT.get_available_quantity(
1725: p_api_version_number => 1.0,
1726: p_init_msg_list => FND_API.G_FALSE,
1727: p_commit => FND_API.G_FALSE,
1728: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1729: p_line_id => l_request_line_id,
1730: p_primary_uom_code => l_primary_uom_code,
1731: x_available_quantity=> l_available_quan,
1724: OZF_RESALE_COMMON_PVT.get_available_quantity(
1725: p_api_version_number => 1.0,
1726: p_init_msg_list => FND_API.G_FALSE,
1727: p_commit => FND_API.G_FALSE,
1728: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1729: p_line_id => l_request_line_id,
1730: p_primary_uom_code => l_primary_uom_code,
1731: x_available_quantity=> l_available_quan,
1732: x_available_amount => l_available_amt,
1796: AND resale_batch_id = p_resale_batch_id;
1797: EXCEPTION
1798: WHEN OTHERS THEN
1799: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1801: END;
1802: goto END_LOOP;
1803: END IF;
1804: END IF;
1823: AND resale_batch_id = p_resale_batch_id;
1824: EXCEPTION
1825: WHEN OTHERS THEN
1826: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1827: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1828: END;
1829: goto END_LOOP;
1830: END IF;
1831: END IF;
1853: AND resale_batch_id = p_resale_batch_id;
1854: EXCEPTION
1855: WHEN OTHERS THEN
1856: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1858: END;
1859: goto END_LOOP;
1860: END IF;
1861: END IF;
1877: AND resale_batch_id = p_resale_batch_id;
1878: EXCEPTION
1879: WHEN OTHERS THEN
1880: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1881: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1882: END;
1883: goto END_LOOP;
1884: END IF;
1885:
1896: AND resale_batch_id = p_resale_batch_id;
1897: EXCEPTION
1898: WHEN OTHERS THEN
1899: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1901: END;
1902: goto END_LOOP;
1903: END IF;
1904:
1928: p_line_quantity => l_current_quantity,
1929: p_allowed_amount => l_request_line_apprv_amt,
1930: x_return_status => l_return_status);
1931: --
1932: IF l_return_status = FND_API.g_ret_sts_error THEN
1933: RAISE FND_API.g_exc_error;
1934: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1935: RAISE FND_API.g_exc_unexpected_error;
1936: END IF;
1929: p_allowed_amount => l_request_line_apprv_amt,
1930: x_return_status => l_return_status);
1931: --
1932: IF l_return_status = FND_API.g_ret_sts_error THEN
1933: RAISE FND_API.g_exc_error;
1934: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1935: RAISE FND_API.g_exc_unexpected_error;
1936: END IF;
1937: <
1930: x_return_status => l_return_status);
1931: --
1932: IF l_return_status = FND_API.g_ret_sts_error THEN
1933: RAISE FND_API.g_exc_error;
1934: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1935: RAISE FND_API.g_exc_unexpected_error;
1936: END IF;
1937: <
1938: NULL;
1931: --
1932: IF l_return_status = FND_API.g_ret_sts_error THEN
1933: RAISE FND_API.g_exc_error;
1934: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1935: RAISE FND_API.g_exc_unexpected_error;
1936: END IF;
1937: <
1938: NULL;
1939: END LOOP;
1950: END IF;
1951:
1952: x_return_status := l_return_status;
1953: EXCEPTION
1954: WHEN FND_API.G_EXC_ERROR THEN
1955: ROLLBACK TO Process_SPP_ONE_Order;
1956: x_return_status := FND_API.G_RET_STS_ERROR;
1957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1958: ROLLBACK TO Process_SPP_ONE_Order;
1952: x_return_status := l_return_status;
1953: EXCEPTION
1954: WHEN FND_API.G_EXC_ERROR THEN
1955: ROLLBACK TO Process_SPP_ONE_Order;
1956: x_return_status := FND_API.G_RET_STS_ERROR;
1957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1958: ROLLBACK TO Process_SPP_ONE_Order;
1959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1960: WHEN OTHERS THEN
1953: EXCEPTION
1954: WHEN FND_API.G_EXC_ERROR THEN
1955: ROLLBACK TO Process_SPP_ONE_Order;
1956: x_return_status := FND_API.G_RET_STS_ERROR;
1957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1958: ROLLBACK TO Process_SPP_ONE_Order;
1959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1960: WHEN OTHERS THEN
1961: ROLLBACK TO Process_SPP_ONE_Order;
1955: ROLLBACK TO Process_SPP_ONE_Order;
1956: x_return_status := FND_API.G_RET_STS_ERROR;
1957: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1958: ROLLBACK TO Process_SPP_ONE_Order;
1959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1960: WHEN OTHERS THEN
1961: ROLLBACK TO Process_SPP_ONE_Order;
1962: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1963: END Process_One_Order;
1958: ROLLBACK TO Process_SPP_ONE_Order;
1959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1960: WHEN OTHERS THEN
1961: ROLLBACK TO Process_SPP_ONE_Order;
1962: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1963: END Process_One_Order;
1964:
1965: ---------------------------------------------------------------------
1966: -- PROCEDURE
1975: --
1976: ---------------------------------------------------------------------
1977: PROCEDURE Process_Order(
1978: p_api_version IN NUMBER
1979: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1980: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1981: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1982: ,p_resale_batch_id IN NUMBER
1983: ,x_return_status OUT NOCOPY VARCHAR2
1976: ---------------------------------------------------------------------
1977: PROCEDURE Process_Order(
1978: p_api_version IN NUMBER
1979: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1980: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1981: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1982: ,p_resale_batch_id IN NUMBER
1983: ,x_return_status OUT NOCOPY VARCHAR2
1984: ,x_msg_data OUT NOCOPY VARCHAR2
1977: PROCEDURE Process_Order(
1978: p_api_version IN NUMBER
1979: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1980: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1981: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1982: ,p_resale_batch_id IN NUMBER
1983: ,x_return_status OUT NOCOPY VARCHAR2
1984: ,x_msg_data OUT NOCOPY VARCHAR2
1985: ,x_msg_count OUT NOCOPY NUMBER
2021: BEGIN
2022: -- Standard begin of API savepoint
2023: SAVEPOINT Process_SPP_Order;
2024: -- Standard call to check for call compatibility.
2025: IF NOT FND_API.Compatible_API_Call (
2026: l_api_version,
2027: p_api_version,
2028: l_api_name,
2029: G_PKG_NAME)
2027: p_api_version,
2028: l_api_name,
2029: G_PKG_NAME)
2030: THEN
2031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2032: END IF;
2033:
2034: --Initialize message list if p_init_msg_list is TRUE.
2035: IF FND_API.To_Boolean (p_init_msg_list) THEN
2031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2032: END IF;
2033:
2034: --Initialize message list if p_init_msg_list is TRUE.
2035: IF FND_API.To_Boolean (p_init_msg_list) THEN
2036: FND_MSG_PUB.initialize;
2037: END IF;
2038:
2039: -- Debug Message
2041: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
2042: END IF;
2043:
2044: -- Initialize API return status to sucess
2045: x_return_status := FND_API.G_RET_STS_SUCCESS;
2046:
2047: -- Delete the logs for the current batch
2048: OZF_RESALE_COMMON_PVT.Delete_Log(
2049: p_api_version => 1.0
2046:
2047: -- Delete the logs for the current batch
2048: OZF_RESALE_COMMON_PVT.Delete_Log(
2049: p_api_version => 1.0
2050: ,p_init_msg_list => FND_API.G_FALSE
2051: ,p_commit => FND_API.G_FALSE
2052: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2053: ,p_resale_batch_id => p_resale_batch_id
2054: ,x_return_status => l_return_status
2047: -- Delete the logs for the current batch
2048: OZF_RESALE_COMMON_PVT.Delete_Log(
2049: p_api_version => 1.0
2050: ,p_init_msg_list => FND_API.G_FALSE
2051: ,p_commit => FND_API.G_FALSE
2052: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2053: ,p_resale_batch_id => p_resale_batch_id
2054: ,x_return_status => l_return_status
2055: ,x_msg_count => l_msg_count
2048: OZF_RESALE_COMMON_PVT.Delete_Log(
2049: p_api_version => 1.0
2050: ,p_init_msg_list => FND_API.G_FALSE
2051: ,p_commit => FND_API.G_FALSE
2052: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2053: ,p_resale_batch_id => p_resale_batch_id
2054: ,x_return_status => l_return_status
2055: ,x_msg_count => l_msg_count
2056: ,x_msg_data => l_msg_data
2054: ,x_return_status => l_return_status
2055: ,x_msg_count => l_msg_count
2056: ,x_msg_data => l_msg_data
2057: );
2058: IF l_return_status = FND_API.g_ret_sts_error THEN
2059: RAISE FND_API.g_exc_error;
2060: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2061: RAISE FND_API.g_exc_unexpected_error;
2062: END IF;
2055: ,x_msg_count => l_msg_count
2056: ,x_msg_data => l_msg_data
2057: );
2058: IF l_return_status = FND_API.g_ret_sts_error THEN
2059: RAISE FND_API.g_exc_error;
2060: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2061: RAISE FND_API.g_exc_unexpected_error;
2062: END IF;
2063:
2056: ,x_msg_data => l_msg_data
2057: );
2058: IF l_return_status = FND_API.g_ret_sts_error THEN
2059: RAISE FND_API.g_exc_error;
2060: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2061: RAISE FND_API.g_exc_unexpected_error;
2062: END IF;
2063:
2064:
2057: );
2058: IF l_return_status = FND_API.g_ret_sts_error THEN
2059: RAISE FND_API.g_exc_error;
2060: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2061: RAISE FND_API.g_exc_unexpected_error;
2062: END IF;
2063:
2064:
2065: OPEN partner_id_csr(p_resale_batch_id);
2078: -- populates the temp tables
2079: IF g_inventory_tracking = 'T' THEN
2080: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
2081: p_api_version => 1.0
2082: ,p_init_msg_list => FND_API.G_FALSE
2083: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2084: ,p_resale_batch_id => p_resale_batch_id
2085: ,p_start_date => l_report_start_date
2086: ,p_end_date => l_report_end_date
2079: IF g_inventory_tracking = 'T' THEN
2080: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
2081: p_api_version => 1.0
2082: ,p_init_msg_list => FND_API.G_FALSE
2083: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2084: ,p_resale_batch_id => p_resale_batch_id
2085: ,p_start_date => l_report_start_date
2086: ,p_end_date => l_report_end_date
2087: ,x_return_status => l_return_status
2087: ,x_return_status => l_return_status
2088: ,x_msg_count => l_msg_count
2089: ,x_msg_data => l_msg_data
2090: );
2091: IF l_return_status = FND_API.g_ret_sts_error THEN
2092: RAISE FND_API.g_exc_error;
2093: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2094: RAISE FND_API.g_exc_unexpected_error;
2095: END IF;
2088: ,x_msg_count => l_msg_count
2089: ,x_msg_data => l_msg_data
2090: );
2091: IF l_return_status = FND_API.g_ret_sts_error THEN
2092: RAISE FND_API.g_exc_error;
2093: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2094: RAISE FND_API.g_exc_unexpected_error;
2095: END IF;
2096: END IF;
2089: ,x_msg_data => l_msg_data
2090: );
2091: IF l_return_status = FND_API.g_ret_sts_error THEN
2092: RAISE FND_API.g_exc_error;
2093: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2094: RAISE FND_API.g_exc_unexpected_error;
2095: END IF;
2096: END IF;
2097: -- Bug 4616588 (-)
2090: );
2091: IF l_return_status = FND_API.g_ret_sts_error THEN
2092: RAISE FND_API.g_exc_error;
2093: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2094: RAISE FND_API.g_exc_unexpected_error;
2095: END IF;
2096: END IF;
2097: -- Bug 4616588 (-)
2098:
2117: p_resale_batch_id => p_resale_batch_id,
2118: p_partner_id => l_partner_id,
2119: x_return_status => l_return_status);
2120:
2121: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2122: BEGIN
2123: update ozf_resale_lines_int
2124: set status_code =OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED,
2125: dispute_code = 'OZF_PROC_PRIC_RESLT_ERR',
2133: and resale_batch_id = p_resale_batch_id;
2134: EXCEPTION
2135: WHEN OTHERS THEN
2136: ozf_utility_pvt.error_message( 'OZF_UPD_RESALE_INT_WRG');
2137: RAISE FND_API.g_exc_unexpected_error;
2138: END;
2139: IF OZF_DEBUG_LOW_ON THEN
2140: ozf_utility_PVT.debug_message('/*--- process_one_order Failed ---*/');
2141: END IF;
2146:
2147: -- Update Chargeback header with processing detail
2148: OZF_RESALE_COMMON_PVT.Update_Batch_Calculations (
2149: p_api_version => 1.0
2150: ,p_init_msg_list => FND_API.G_FALSE
2151: ,p_commit => FND_API.G_FALSE
2152: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2153: ,p_resale_batch_id => p_resale_batch_id
2154: ,x_return_status => l_return_status
2147: -- Update Chargeback header with processing detail
2148: OZF_RESALE_COMMON_PVT.Update_Batch_Calculations (
2149: p_api_version => 1.0
2150: ,p_init_msg_list => FND_API.G_FALSE
2151: ,p_commit => FND_API.G_FALSE
2152: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2153: ,p_resale_batch_id => p_resale_batch_id
2154: ,x_return_status => l_return_status
2155: ,x_msg_data => l_msg_data
2148: OZF_RESALE_COMMON_PVT.Update_Batch_Calculations (
2149: p_api_version => 1.0
2150: ,p_init_msg_list => FND_API.G_FALSE
2151: ,p_commit => FND_API.G_FALSE
2152: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2153: ,p_resale_batch_id => p_resale_batch_id
2154: ,x_return_status => l_return_status
2155: ,x_msg_data => l_msg_data
2156: ,x_msg_count => l_msg_count
2154: ,x_return_status => l_return_status
2155: ,x_msg_data => l_msg_data
2156: ,x_msg_count => l_msg_count
2157: );
2158: IF l_return_status = FND_API.g_ret_sts_error THEN
2159: RAISE FND_API.g_exc_error;
2160: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2161: RAISE FND_API.g_exc_unexpected_error;
2162: END IF;
2155: ,x_msg_data => l_msg_data
2156: ,x_msg_count => l_msg_count
2157: );
2158: IF l_return_status = FND_API.g_ret_sts_error THEN
2159: RAISE FND_API.g_exc_error;
2160: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2161: RAISE FND_API.g_exc_unexpected_error;
2162: END IF;
2163:
2156: ,x_msg_count => l_msg_count
2157: );
2158: IF l_return_status = FND_API.g_ret_sts_error THEN
2159: RAISE FND_API.g_exc_error;
2160: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2161: RAISE FND_API.g_exc_unexpected_error;
2162: END IF;
2163:
2164: -- Debug Message
2157: );
2158: IF l_return_status = FND_API.g_ret_sts_error THEN
2159: RAISE FND_API.g_exc_error;
2160: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2161: RAISE FND_API.g_exc_unexpected_error;
2162: END IF;
2163:
2164: -- Debug Message
2165: IF OZF_DEBUG_HIGH_ON THEN
2166: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
2167: END IF;
2168: --Standard call to get message count and if count=1, get the message
2169: FND_MSG_PUB.Count_And_Get (
2170: p_encoded => FND_API.G_FALSE,
2171: p_count => x_msg_count,
2172: p_data => x_msg_data
2173: );
2174: x_return_status := l_return_status;
2172: p_data => x_msg_data
2173: );
2174: x_return_status := l_return_status;
2175: EXCEPTION
2176: WHEN FND_API.G_EXC_ERROR THEN
2177: ROLLBACK TO Process_SPP_Order;
2178: x_return_status := FND_API.G_RET_STS_ERROR;
2179: -- Standard call to get message count and if count=1, get the message
2180: FND_MSG_PUB.Count_And_Get (
2174: x_return_status := l_return_status;
2175: EXCEPTION
2176: WHEN FND_API.G_EXC_ERROR THEN
2177: ROLLBACK TO Process_SPP_Order;
2178: x_return_status := FND_API.G_RET_STS_ERROR;
2179: -- Standard call to get message count and if count=1, get the message
2180: FND_MSG_PUB.Count_And_Get (
2181: p_encoded => FND_API.G_FALSE,
2182: p_count => x_msg_count,
2177: ROLLBACK TO Process_SPP_Order;
2178: x_return_status := FND_API.G_RET_STS_ERROR;
2179: -- Standard call to get message count and if count=1, get the message
2180: FND_MSG_PUB.Count_And_Get (
2181: p_encoded => FND_API.G_FALSE,
2182: p_count => x_msg_count,
2183: p_data => x_msg_data
2184: );
2185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2181: p_encoded => FND_API.G_FALSE,
2182: p_count => x_msg_count,
2183: p_data => x_msg_data
2184: );
2185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2186: ROLLBACK TO Process_SPP_Order;
2187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2188:
2189: -- Standard call to get message count and if count=1, get the message
2183: p_data => x_msg_data
2184: );
2185: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2186: ROLLBACK TO Process_SPP_Order;
2187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2188:
2189: -- Standard call to get message count and if count=1, get the message
2190: FND_MSG_PUB.Count_And_Get (
2191: p_encoded => FND_API.G_FALSE,
2187: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2188:
2189: -- Standard call to get message count and if count=1, get the message
2190: FND_MSG_PUB.Count_And_Get (
2191: p_encoded => FND_API.G_FALSE,
2192: p_count => x_msg_count,
2193: p_data => x_msg_data
2194: );
2195: WHEN OTHERS THEN
2193: p_data => x_msg_data
2194: );
2195: WHEN OTHERS THEN
2196: ROLLBACK TO Process_SPP_Order;
2197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2198:
2199: -- Standard call to get message count and if count=1, get the message
2200: FND_MSG_PUB.Count_And_Get (
2201: p_encoded => FND_API.G_FALSE,
2197: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2198:
2199: -- Standard call to get message count and if count=1, get the message
2200: FND_MSG_PUB.Count_And_Get (
2201: p_encoded => FND_API.G_FALSE,
2202: p_count => x_msg_count,
2203: p_data => x_msg_data
2204: );
2205: END Process_Order;