[Home] [Help]
40: --
41: ---------------------------------------------------------------------
42: PROCEDURE Initiate_payment (
43: p_api_version IN NUMBER
44: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
45: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
46: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
47: ,p_resale_batch_id IN NUMBER
48: ,x_return_status OUT NOCOPY VARCHAR2
41: ---------------------------------------------------------------------
42: PROCEDURE Initiate_payment (
43: p_api_version IN NUMBER
44: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
45: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
46: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
47: ,p_resale_batch_id IN NUMBER
48: ,x_return_status OUT NOCOPY VARCHAR2
49: ,x_msg_data OUT NOCOPY VARCHAR2
42: PROCEDURE Initiate_payment (
43: p_api_version IN NUMBER
44: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
45: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
46: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
47: ,p_resale_batch_id IN NUMBER
48: ,x_return_status OUT NOCOPY VARCHAR2
49: ,x_msg_data OUT NOCOPY VARCHAR2
50: ,x_msg_count OUT NOCOPY NUMBER
204: BEGIN
205: -- Standard begin of API savepoint
206: SAVEPOINT INIT_PAYMENT_SPP;
207: -- Standard call to check for call compatibility.
208: IF NOT FND_API.Compatible_API_Call (
209: l_api_version,
210: p_api_version,
211: l_api_name,
212: G_PKG_NAME)
210: p_api_version,
211: l_api_name,
212: G_PKG_NAME)
213: THEN
214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
215: END IF;
216:
217: --Initialize message list if p_init_msg_list is TRUE.
218: IF FND_API.To_Boolean (p_init_msg_list) THEN
214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
215: END IF;
216:
217: --Initialize message list if p_init_msg_list is TRUE.
218: IF FND_API.To_Boolean (p_init_msg_list) THEN
219: FND_MSG_PUB.initialize;
220: END IF;
221:
222: -- Debug Message
224: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
225: END IF;
226:
227: -- Initialize API return status to sucess
228: x_return_status := FND_API.G_RET_STS_SUCCESS;
229:
230: OPEN Batch_info_csr(p_resale_batch_id);
231: FETCH batch_info_csr INTO l_batch_status,
232: l_batch_type,
247:
248: IF l_count <> 0 THEN
249: --Can not pay if there is an OPEN line
250: ozf_utility_pvt.error_message('OZF_RESALE_OPEN_LINE_EXIST');
251: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
252: ELSE
253: -- There is no need to find a fund id for the SPECIAL PRICING REQUEST
254: l_chargeback_fund_id := NULL;
255:
261: IF l_inventory_tracking = 'T' THEN
262: -- Bug 4380203 (+)
263: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
264: p_api_version => 1.0
265: ,p_init_msg_list => FND_API.G_FALSE
266: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
267: ,p_resale_batch_id => p_resale_batch_id
268: ,p_start_date => l_report_start_date
269: ,p_end_date => l_report_end_date
262: -- Bug 4380203 (+)
263: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
264: p_api_version => 1.0
265: ,p_init_msg_list => FND_API.G_FALSE
266: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
267: ,p_resale_batch_id => p_resale_batch_id
268: ,p_start_date => l_report_start_date
269: ,p_end_date => l_report_end_date
270: ,x_return_status => l_return_status
270: ,x_return_status => l_return_status
271: ,x_msg_count => l_msg_count
272: ,x_msg_data => l_msg_data
273: );
274: IF l_return_status = FND_API.g_ret_sts_error THEN
275: RAISE FND_API.g_exc_error;
276: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
277: RAISE FND_API.g_exc_unexpected_error;
278: END IF;
271: ,x_msg_count => l_msg_count
272: ,x_msg_data => l_msg_data
273: );
274: IF l_return_status = FND_API.g_ret_sts_error THEN
275: RAISE FND_API.g_exc_error;
276: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
277: RAISE FND_API.g_exc_unexpected_error;
278: END IF;
279:
272: ,x_msg_data => l_msg_data
273: );
274: IF l_return_status = FND_API.g_ret_sts_error THEN
275: RAISE FND_API.g_exc_error;
276: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
277: RAISE FND_API.g_exc_unexpected_error;
278: END IF;
279:
280: /*
273: );
274: IF l_return_status = FND_API.g_ret_sts_error THEN
275: RAISE FND_API.g_exc_error;
276: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
277: RAISE FND_API.g_exc_unexpected_error;
278: END IF;
279:
280: /*
281: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
279:
280: /*
281: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
282: p_api_version => 1.0
283: ,p_init_msg_list => FND_API.G_FALSE
284: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
285: ,p_party_id => l_partner_party_id
286: ,p_start_date => l_report_start_date
287: ,x_return_status => l_return_status
280: /*
281: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
282: p_api_version => 1.0
283: ,p_init_msg_list => FND_API.G_FALSE
284: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
285: ,p_party_id => l_partner_party_id
286: ,p_start_date => l_report_start_date
287: ,x_return_status => l_return_status
288: ,x_msg_count => l_msg_count
288: ,x_msg_count => l_msg_count
289: ,x_msg_data => l_msg_data
290: );
291:
292: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
293: ozf_utility_pvt.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
295: END IF;
296: */
290: );
291:
292: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
293: ozf_utility_pvt.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
295: END IF;
296: */
297: -- Bug 4380203 (-)
298: END IF;
300: -- SLKRISHN change to use Update_Duplicates
301: -- Check for Duplicates
302: OZF_RESALE_COMMON_PVT.Update_Duplicates (
303: p_api_version => 1.0,
304: p_init_msg_list => FND_API.G_FALSE,
305: p_commit => FND_API.G_FALSE,
306: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
307: p_resale_batch_id => p_resale_batch_id,
308: p_resale_batch_type => l_batch_type,
301: -- Check for Duplicates
302: OZF_RESALE_COMMON_PVT.Update_Duplicates (
303: p_api_version => 1.0,
304: p_init_msg_list => FND_API.G_FALSE,
305: p_commit => FND_API.G_FALSE,
306: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
307: p_resale_batch_id => p_resale_batch_id,
308: p_resale_batch_type => l_batch_type,
309: p_batch_status => l_batch_status,
302: OZF_RESALE_COMMON_PVT.Update_Duplicates (
303: p_api_version => 1.0,
304: p_init_msg_list => FND_API.G_FALSE,
305: p_commit => FND_API.G_FALSE,
306: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
307: p_resale_batch_id => p_resale_batch_id,
308: p_resale_batch_type => l_batch_type,
309: p_batch_status => l_batch_status,
310: x_batch_status => l_batch_status,
311: x_return_status => l_return_status,
312: x_msg_count => l_msg_count,
313: x_msg_data => l_msg_data);
314: --
315: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
316: RAISE FND_API.G_EXC_ERROR;
317: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
319: END IF;
312: x_msg_count => l_msg_count,
313: x_msg_data => l_msg_data);
314: --
315: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
316: RAISE FND_API.G_EXC_ERROR;
317: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
319: END IF;
320:
313: x_msg_data => l_msg_data);
314: --
315: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
316: RAISE FND_API.G_EXC_ERROR;
317: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
319: END IF;
320:
321: IF l_batch_status = OZF_RESALE_COMMON_PVT.G_BATCH_REJECTED THEN
314: --
315: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
316: RAISE FND_API.G_EXC_ERROR;
317: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
318: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
319: END IF;
320:
321: IF l_batch_status = OZF_RESALE_COMMON_PVT.G_BATCH_REJECTED THEN
322: IF OZF_DEBUG_LOW_ON THEN
425:
426: -- Check inventory level first
427: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
428: p_api_version => 1.0
429: ,p_init_msg_list => FND_API.G_FALSE
430: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
431: ,p_line_int_rec => l_line_int_rec
432: ,x_valid => l_inventory_level_valid
433: ,x_return_status => l_return_status
426: -- Check inventory level first
427: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
428: p_api_version => 1.0
429: ,p_init_msg_list => FND_API.G_FALSE
430: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
431: ,p_line_int_rec => l_line_int_rec
432: ,x_valid => l_inventory_level_valid
433: ,x_return_status => l_return_status
434: ,x_msg_count => l_msg_count
466: -- Determin header id
467: IF l_create_order_header THEN
468: OZF_RESALE_COMMON_PVT.Insert_resale_header(
469: p_api_version => 1
470: ,p_init_msg_list => FND_API.G_FALSE
471: ,p_commit => FND_API.G_FALSE
472: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
473: ,p_line_int_rec => l_line_int_rec
474: ,x_header_id => l_header_id
467: IF l_create_order_header THEN
468: OZF_RESALE_COMMON_PVT.Insert_resale_header(
469: p_api_version => 1
470: ,p_init_msg_list => FND_API.G_FALSE
471: ,p_commit => FND_API.G_FALSE
472: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
473: ,p_line_int_rec => l_line_int_rec
474: ,x_header_id => l_header_id
475: ,x_return_status => l_return_status
468: OZF_RESALE_COMMON_PVT.Insert_resale_header(
469: p_api_version => 1
470: ,p_init_msg_list => FND_API.G_FALSE
471: ,p_commit => FND_API.G_FALSE
472: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
473: ,p_line_int_rec => l_line_int_rec
474: ,x_header_id => l_header_id
475: ,x_return_status => l_return_status
476: ,x_msg_data => l_msg_data
475: ,x_return_status => l_return_status
476: ,x_msg_data => l_msg_data
477: ,x_msg_count => l_msg_count
478: );
479: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
480: RAISE FND_API.G_EXC_ERROR;
481: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
483: END IF;
476: ,x_msg_data => l_msg_data
477: ,x_msg_count => l_msg_count
478: );
479: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
480: RAISE FND_API.G_EXC_ERROR;
481: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
483: END IF;
484: ELSE
477: ,x_msg_count => l_msg_count
478: );
479: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
480: RAISE FND_API.G_EXC_ERROR;
481: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
483: END IF;
484: ELSE
485: NULL;
478: );
479: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
480: RAISE FND_API.G_EXC_ERROR;
481: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
482: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
483: END IF;
484: ELSE
485: NULL;
486: -- We should have the l_header_id FROM the order level
492:
493: -- No problem so far. Insert INTO batch_lines table
494: OZF_RESALE_COMMON_PVT.Insert_resale_line(
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
499: ,p_line_int_rec => l_line_int_rec
500: ,p_header_id => l_header_id
493: -- No problem so far. Insert INTO batch_lines table
494: OZF_RESALE_COMMON_PVT.Insert_resale_line(
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
499: ,p_line_int_rec => l_line_int_rec
500: ,p_header_id => l_header_id
501: ,x_line_id => l_line_id
494: OZF_RESALE_COMMON_PVT.Insert_resale_line(
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
499: ,p_line_int_rec => l_line_int_rec
500: ,p_header_id => l_header_id
501: ,x_line_id => l_line_id
502: ,x_return_status => l_return_status
502: ,x_return_status => l_return_status
503: ,x_msg_data => l_msg_data
504: ,x_msg_count => l_msg_count
505: );
506: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
507: RAISE FND_API.G_EXC_ERROR;
508: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: END IF;
503: ,x_msg_data => l_msg_data
504: ,x_msg_count => l_msg_count
505: );
506: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
507: RAISE FND_API.G_EXC_ERROR;
508: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: END IF;
511:
504: ,x_msg_count => l_msg_count
505: );
506: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
507: RAISE FND_API.G_EXC_ERROR;
508: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: END IF;
511:
512: -- FOR processed order line, I need to create a transaction FOR it.
505: );
506: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
507: RAISE FND_API.G_EXC_ERROR;
508: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: END IF;
511:
512: -- FOR processed order line, I need to create a transaction FOR it.
513: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
511:
512: -- FOR processed order line, I need to create a transaction FOR it.
513: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
514: p_api_version => 1.0
515: ,p_init_msg_list => FND_API.G_FALSE
516: ,p_commit => FND_API.G_FALSE
517: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
518: ,p_line_int_rec => l_line_int_rec
519: ,p_header_id => l_header_id
512: -- FOR processed order line, I need to create a transaction FOR it.
513: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
514: p_api_version => 1.0
515: ,p_init_msg_list => FND_API.G_FALSE
516: ,p_commit => FND_API.G_FALSE
517: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
518: ,p_line_int_rec => l_line_int_rec
519: ,p_header_id => l_header_id
520: ,p_line_id => l_line_id
513: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
514: p_api_version => 1.0
515: ,p_init_msg_list => FND_API.G_FALSE
516: ,p_commit => FND_API.G_FALSE
517: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
518: ,p_line_int_rec => l_line_int_rec
519: ,p_header_id => l_header_id
520: ,p_line_id => l_line_id
521: ,x_sales_transaction_id => l_sales_transaction_id
522: ,x_return_status => l_return_status
523: ,x_msg_data => l_msg_data
524: ,x_msg_count => l_msg_count
525: );
526: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
527: RAISE FND_API.G_EXC_ERROR;
528: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
530: END IF;
523: ,x_msg_data => l_msg_data
524: ,x_msg_count => l_msg_count
525: );
526: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
527: RAISE FND_API.G_EXC_ERROR;
528: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
530: END IF;
531: -- Bug 4380203 Fixing (+)
524: ,x_msg_count => l_msg_count
525: );
526: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
527: RAISE FND_API.G_EXC_ERROR;
528: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
530: END IF;
531: -- Bug 4380203 Fixing (+)
532: -- Bug 4380203 Fixing: Inventory Temp table is already updated in Validate_Inventory_Level
525: );
526: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
527: RAISE FND_API.G_EXC_ERROR;
528: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
529: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
530: END IF;
531: -- Bug 4380203 Fixing (+)
532: -- Bug 4380203 Fixing: Inventory Temp table is already updated in Validate_Inventory_Level
533: /*
533: /*
534: IF l_inventory_tracking = 'T' THEN
535: OZF_SALES_TRANSACTIONS_PVT.UPDATE_inventory_tmp (
536: p_api_version => 1.0
537: ,p_init_msg_list => FND_API.G_FALSE
538: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
539: ,p_sales_transaction_id => l_sales_transaction_id
540: ,x_return_status => l_return_status
541: ,x_msg_data => l_msg_data
534: IF l_inventory_tracking = 'T' THEN
535: OZF_SALES_TRANSACTIONS_PVT.UPDATE_inventory_tmp (
536: p_api_version => 1.0
537: ,p_init_msg_list => FND_API.G_FALSE
538: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
539: ,p_sales_transaction_id => l_sales_transaction_id
540: ,x_return_status => l_return_status
541: ,x_msg_data => l_msg_data
542: ,x_msg_count => l_msg_count
540: ,x_return_status => l_return_status
541: ,x_msg_data => l_msg_data
542: ,x_msg_count => l_msg_count
543: );
544: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
545: RAISE FND_API.G_EXC_ERROR;
546: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
548: END IF;
541: ,x_msg_data => l_msg_data
542: ,x_msg_count => l_msg_count
543: );
544: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
545: RAISE FND_API.G_EXC_ERROR;
546: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
548: END IF;
549: END IF;
542: ,x_msg_count => l_msg_count
543: );
544: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
545: RAISE FND_API.G_EXC_ERROR;
546: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
548: END IF;
549: END IF;
550: */
543: );
544: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
545: RAISE FND_API.G_EXC_ERROR;
546: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
547: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
548: END IF;
549: END IF;
550: */
551: -- Bug 4380203 Fixing (-)
565: -- only create mapping for the lines that are processed or
566: -- duplicated, yet the adjustment is new then
567: OZF_RESALE_COMMON_PVT.Insert_resale_line_mapping(
568: p_api_version => 1
569: ,p_init_msg_list => FND_API.G_FALSE
570: ,p_commit => FND_API.G_FALSE
571: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
572: ,p_resale_batch_id => p_resale_batch_id
573: ,p_line_id => l_line_id
566: -- duplicated, yet the adjustment is new then
567: OZF_RESALE_COMMON_PVT.Insert_resale_line_mapping(
568: p_api_version => 1
569: ,p_init_msg_list => FND_API.G_FALSE
570: ,p_commit => FND_API.G_FALSE
571: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
572: ,p_resale_batch_id => p_resale_batch_id
573: ,p_line_id => l_line_id
574: ,x_return_status => l_return_status
567: OZF_RESALE_COMMON_PVT.Insert_resale_line_mapping(
568: p_api_version => 1
569: ,p_init_msg_list => FND_API.G_FALSE
570: ,p_commit => FND_API.G_FALSE
571: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
572: ,p_resale_batch_id => p_resale_batch_id
573: ,p_line_id => l_line_id
574: ,x_return_status => l_return_status
575: ,x_msg_data => l_msg_data
574: ,x_return_status => l_return_status
575: ,x_msg_data => l_msg_data
576: ,x_msg_count => l_msg_count
577: );
578: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
579: RAISE FND_API.G_EXC_ERROR;
580: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
582: END IF;
575: ,x_msg_data => l_msg_data
576: ,x_msg_count => l_msg_count
577: );
578: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
579: RAISE FND_API.G_EXC_ERROR;
580: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
582: END IF;
583: END IF;
576: ,x_msg_count => l_msg_count
577: );
578: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
579: RAISE FND_API.G_EXC_ERROR;
580: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
582: END IF;
583: END IF;
584:
577: );
578: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
579: RAISE FND_API.G_EXC_ERROR;
580: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
581: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
582: END IF;
583: END IF;
584:
585: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED AND
585: IF l_line_int_rec.status_code = OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_PROCESSED AND
586: l_line_int_rec.tracing_flag = 'F' THEN
587: OZF_RESALE_COMMON_PVT.Create_Utilization(
588: p_api_version => 1.0
589: ,p_init_msg_LIST => FND_API.G_FALSE
590: ,p_commit => FND_API.G_FALSE
591: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
592: ,p_line_int_rec => l_line_int_rec
593: ,p_fund_id => l_chargeback_fund_id
586: l_line_int_rec.tracing_flag = 'F' THEN
587: OZF_RESALE_COMMON_PVT.Create_Utilization(
588: p_api_version => 1.0
589: ,p_init_msg_LIST => FND_API.G_FALSE
590: ,p_commit => FND_API.G_FALSE
591: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
592: ,p_line_int_rec => l_line_int_rec
593: ,p_fund_id => l_chargeback_fund_id
594: ,p_line_id => l_line_id
587: OZF_RESALE_COMMON_PVT.Create_Utilization(
588: p_api_version => 1.0
589: ,p_init_msg_LIST => FND_API.G_FALSE
590: ,p_commit => FND_API.G_FALSE
591: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
592: ,p_line_int_rec => l_line_int_rec
593: ,p_fund_id => l_chargeback_fund_id
594: ,p_line_id => l_line_id
595: ,p_cust_account_id => l_partner_cust_account_id
597: ,x_return_status => l_return_status
598: ,x_msg_data => l_msg_data
599: ,x_msg_count => l_msg_count
600: );
601: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
602: RAISE FND_API.G_EXC_ERROR;
603: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605: END IF;
598: ,x_msg_data => l_msg_data
599: ,x_msg_count => l_msg_count
600: );
601: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
602: RAISE FND_API.G_EXC_ERROR;
603: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605: END IF;
606:
599: ,x_msg_count => l_msg_count
600: );
601: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
602: RAISE FND_API.G_EXC_ERROR;
603: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605: END IF;
606:
607: END IF; -- if this line is a processed one
600: );
601: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
602: RAISE FND_API.G_EXC_ERROR;
603: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
605: END IF;
606:
607: END IF; -- if this line is a processed one
608: << END_LOOP2 >>
617: END IF; -- END l_count = 0
618:
619: OZF_Claim_Accrual_PVT.Initiate_Batch_Payment(
620: p_api_version => 1.0
621: ,p_init_msg_list => FND_API.g_false
622: ,p_commit => FND_API.g_false
623: ,p_validation_level => FND_API.g_valid_level_full
624: ,x_return_status => l_return_status
625: ,x_msg_count => l_msg_count
618:
619: OZF_Claim_Accrual_PVT.Initiate_Batch_Payment(
620: p_api_version => 1.0
621: ,p_init_msg_list => FND_API.g_false
622: ,p_commit => FND_API.g_false
623: ,p_validation_level => FND_API.g_valid_level_full
624: ,x_return_status => l_return_status
625: ,x_msg_count => l_msg_count
626: ,x_msg_data => l_msg_data
619: OZF_Claim_Accrual_PVT.Initiate_Batch_Payment(
620: p_api_version => 1.0
621: ,p_init_msg_list => FND_API.g_false
622: ,p_commit => FND_API.g_false
623: ,p_validation_level => FND_API.g_valid_level_full
624: ,x_return_status => l_return_status
625: ,x_msg_count => l_msg_count
626: ,x_msg_data => l_msg_data
627: ,p_resale_batch_id => p_resale_batch_id
626: ,x_msg_data => l_msg_data
627: ,p_resale_batch_id => p_resale_batch_id
628: );
629:
630: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
631: RAISE FND_API.G_EXC_ERROR;
632: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
627: ,p_resale_batch_id => p_resale_batch_id
628: );
629:
630: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
631: RAISE FND_API.G_EXC_ERROR;
632: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635:
628: );
629:
630: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
631: RAISE FND_API.G_EXC_ERROR;
632: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635:
636: OPEN claimed_amount_csr(p_resale_batch_id);
629:
630: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
631: RAISE FND_API.G_EXC_ERROR;
632: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635:
636: OPEN claimed_amount_csr(p_resale_batch_id);
637: FETCH claimed_amount_csr INTO l_amount_claimed;
653: WHERE resale_batch_id = p_resale_batch_id;
654: EXCEPTION
655: WHEN OTHERS THEN
656: ozf_utility_pvt.error_message('OZF_UPD_RESALE_WRG','TEXT',l_full_name||': END');
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: END;
659: END IF;
660: ELSE
661: -- Only disputed and processed batch can be paid.
659: END IF;
660: ELSE
661: -- Only disputed and processed batch can be paid.
662: ozf_utility_pvt.error_message('OZF_RESALE_WRONG_STAUS_TO_PAY');
663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
664: END IF;
665:
666: -- Debug Message
667: IF OZF_DEBUG_HIGH_ON THEN
668: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
669: END IF;
670: --Standard call to get message count and if count=1, get the message
671: FND_MSG_PUB.Count_And_Get (
672: p_encoded => FND_API.G_FALSE,
673: p_count => x_msg_count,
674: p_data => x_msg_data
675: );
676: x_return_status := l_return_status;
674: p_data => x_msg_data
675: );
676: x_return_status := l_return_status;
677: EXCEPTION
678: WHEN FND_API.G_EXC_ERROR THEN
679: ROLLBACK TO INIT_PAYMENT_SPP;
680: x_return_status := FND_API.G_RET_STS_ERROR;
681: -- Standard call to get message count and if count=1, get the message
682: FND_MSG_PUB.Count_And_Get (
676: x_return_status := l_return_status;
677: EXCEPTION
678: WHEN FND_API.G_EXC_ERROR THEN
679: ROLLBACK TO INIT_PAYMENT_SPP;
680: x_return_status := FND_API.G_RET_STS_ERROR;
681: -- Standard call to get message count and if count=1, get the message
682: FND_MSG_PUB.Count_And_Get (
683: p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
679: ROLLBACK TO INIT_PAYMENT_SPP;
680: x_return_status := FND_API.G_RET_STS_ERROR;
681: -- Standard call to get message count and if count=1, get the message
682: FND_MSG_PUB.Count_And_Get (
683: p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
685: p_data => x_msg_data
686: );
687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
683: p_encoded => FND_API.G_FALSE,
684: p_count => x_msg_count,
685: p_data => x_msg_data
686: );
687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
688: ROLLBACK TO INIT_PAYMENT_SPP;
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690:
691: -- Standard call to get message count and if count=1, get the message
685: p_data => x_msg_data
686: );
687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
688: ROLLBACK TO INIT_PAYMENT_SPP;
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690:
691: -- Standard call to get message count and if count=1, get the message
692: FND_MSG_PUB.Count_And_Get (
693: p_encoded => FND_API.G_FALSE,
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690:
691: -- Standard call to get message count and if count=1, get the message
692: FND_MSG_PUB.Count_And_Get (
693: p_encoded => FND_API.G_FALSE,
694: p_count => x_msg_count,
695: p_data => x_msg_data
696: );
697: WHEN OTHERS THEN
695: p_data => x_msg_data
696: );
697: WHEN OTHERS THEN
698: ROLLBACK TO INIT_PAYMENT_SPP;
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
700:
701: -- Standard call to get message count and if count=1, get the message
702: FND_MSG_PUB.Count_And_Get (
703: p_encoded => FND_API.G_FALSE,
699: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
700:
701: -- Standard call to get message count and if count=1, get the message
702: FND_MSG_PUB.Count_And_Get (
703: p_encoded => FND_API.G_FALSE,
704: p_count => x_msg_count,
705: p_data => x_msg_data
706: );
707: END Initiate_payment;
720: -- NOTES
721: ---------------------------------------------------------------------
722: PROCEDURE Validate_Order_Record(
723: p_api_version IN NUMBER
724: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
725: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
726: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
727: ,p_resale_batch_id IN NUMBER
728: ,x_return_status OUT NOCOPY VARCHAR2
721: ---------------------------------------------------------------------
722: PROCEDURE Validate_Order_Record(
723: p_api_version IN NUMBER
724: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
725: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
726: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
727: ,p_resale_batch_id IN NUMBER
728: ,x_return_status OUT NOCOPY VARCHAR2
729: ,x_msg_data OUT NOCOPY VARCHAR2
722: PROCEDURE Validate_Order_Record(
723: p_api_version IN NUMBER
724: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
725: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
726: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
727: ,p_resale_batch_id IN NUMBER
728: ,x_return_status OUT NOCOPY VARCHAR2
729: ,x_msg_data OUT NOCOPY VARCHAR2
730: ,x_msg_count OUT NOCOPY NUMBER
736:
737: BEGIN
738: -- Standard begin of API savepoint
739: -- Standard call to check for call compatibility.
740: IF NOT FND_API.Compatible_API_Call (
741: l_api_version,
742: p_api_version,
743: l_api_name,
744: G_PKG_NAME)
742: p_api_version,
743: l_api_name,
744: G_PKG_NAME)
745: THEN
746: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
747: END IF;
748:
749: --Initialize message list if p_init_msg_list is TRUE.
750: IF FND_API.To_Boolean (p_init_msg_list) THEN
746: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
747: END IF;
748:
749: --Initialize message list if p_init_msg_list is TRUE.
750: IF FND_API.To_Boolean (p_init_msg_list) THEN
751: FND_MSG_PUB.initialize;
752: END IF;
753:
754: -- Debug Message
756: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
757: END IF;
758:
759: -- Initialize API return status to sucess
760: x_return_status := FND_API.G_RET_STS_SUCCESS;
761:
762: -- agreement_type should be 'SPO'
763: BEGIN
764: INSERT INTO ozf_resale_logs_all(
795: OZF_UTILITY_PVT.error_message(
796: p_message_name => 'OZF_INS_RESALE_LOG_WRG',
797: p_token_name => 'TEXT',
798: p_token_value => l_full_name||': END');
799: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
800: END;
801:
802: BEGIN
803: UPDATE ozf_resale_lines_int_all
815: OZF_UTILITY_PVT.error_message(
816: p_message_name => 'OZF_UPD_RESALE_INT_WRG',
817: p_token_name => 'TEXT',
818: p_token_value => l_full_name||': END');
819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
820: END;
821:
822: -- purchase price not be NULL
823: BEGIN
855: OZF_UTILITY_PVT.error_message(
856: p_message_name => 'OZF_INS_RESALE_LOG_WRG',
857: p_token_name => 'TEXT',
858: p_token_value => l_full_name||': END');
859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
860: END;
861:
862: BEGIN
863: UPDATE ozf_resale_lines_int_all
875: OZF_UTILITY_PVT.error_message(
876: p_message_name => 'OZF_UPD_RESALE_INT_WRG',
877: p_token_name => 'TEXT',
878: p_token_value => l_full_name||': END');
879: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
880: END;
881:
882: -- Debug Message
883: IF OZF_DEBUG_HIGH_ON THEN
884: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
885: END IF;
886: --Standard call to get message count and if count=1, get the message
887: FND_MSG_PUB.Count_And_Get (
888: p_encoded => FND_API.G_FALSE,
889: p_count => x_msg_count,
890: p_data => x_msg_data
891: );
892: EXCEPTION
889: p_count => x_msg_count,
890: p_data => x_msg_data
891: );
892: EXCEPTION
893: WHEN FND_API.G_EXC_ERROR THEN
894: x_return_status := FND_API.G_RET_STS_ERROR;
895: -- Standard call to get message count and if count=1, get the message
896: FND_MSG_PUB.Count_And_Get (
897: p_encoded => FND_API.G_FALSE,
890: p_data => x_msg_data
891: );
892: EXCEPTION
893: WHEN FND_API.G_EXC_ERROR THEN
894: x_return_status := FND_API.G_RET_STS_ERROR;
895: -- Standard call to get message count and if count=1, get the message
896: FND_MSG_PUB.Count_And_Get (
897: p_encoded => FND_API.G_FALSE,
898: p_count => x_msg_count,
893: WHEN FND_API.G_EXC_ERROR THEN
894: x_return_status := FND_API.G_RET_STS_ERROR;
895: -- Standard call to get message count and if count=1, get the message
896: FND_MSG_PUB.Count_And_Get (
897: p_encoded => FND_API.G_FALSE,
898: p_count => x_msg_count,
899: p_data => x_msg_data
900: );
901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
897: p_encoded => FND_API.G_FALSE,
898: p_count => x_msg_count,
899: p_data => x_msg_data
900: );
901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: -- Standard call to get message count and if count=1, get the message
904: FND_MSG_PUB.Count_And_Get (
905: p_encoded => FND_API.G_FALSE,
898: p_count => x_msg_count,
899: p_data => x_msg_data
900: );
901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: -- Standard call to get message count and if count=1, get the message
904: FND_MSG_PUB.Count_And_Get (
905: p_encoded => FND_API.G_FALSE,
906: p_count => x_msg_count,
901: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
902: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
903: -- Standard call to get message count and if count=1, get the message
904: FND_MSG_PUB.Count_And_Get (
905: p_encoded => FND_API.G_FALSE,
906: p_count => x_msg_count,
907: p_data => x_msg_data
908: );
909: WHEN OTHERS THEN
906: p_count => x_msg_count,
907: p_data => x_msg_data
908: );
909: WHEN OTHERS THEN
910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
911:
912: -- Standard call to get message count and if count=1, get the message
913: FND_MSG_PUB.Count_And_Get (
914: p_encoded => FND_API.G_FALSE,
910: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
911:
912: -- Standard call to get message count and if count=1, get the message
913: FND_MSG_PUB.Count_And_Get (
914: p_encoded => FND_API.G_FALSE,
915: p_count => x_msg_count,
916: p_data => x_msg_data
917: );
918: END Validate_Order_Record;
940: l_api_name CONSTANT VARCHAR2(30) := 'Process_One_Order';
941: l_api_version CONSTANT NUMBER := 1.0;
942: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME ||'.'|| l_api_name;
943:
944: l_return_status VARCHAR2(30):=FND_API.G_RET_STS_SUCCESS;
945: l_msg_count NUMBER;
946: l_msg_data VARCHAR2(2000);
947:
948:
1100: -- Standard begin of API savepoint
1101: SAVEPOINT Process_SPP_ONE_Order;
1102:
1103: -- Initialize API return status to sucess
1104: x_return_status := FND_API.G_RET_STS_SUCCESS;
1105:
1106: -- Debug Message
1107: IF OZF_DEBUG_HIGH_ON THEN
1108: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
1136: IF g_inventory_tracking = 'T' THEN
1137: -- Check inventory level first
1138: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1139: p_api_version => 1.0
1140: ,p_init_msg_list => FND_API.G_FALSE
1141: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1142: ,p_line_int_rec => l_resale_int_rec
1143: ,x_valid => l_inventory_level_valid
1144: ,x_return_status => l_return_status
1137: -- Check inventory level first
1138: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1139: p_api_version => 1.0
1140: ,p_init_msg_list => FND_API.G_FALSE
1141: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1142: ,p_line_int_rec => l_resale_int_rec
1143: ,x_valid => l_inventory_level_valid
1144: ,x_return_status => l_return_status
1145: ,x_msg_count => l_msg_count
1158: p_column_name => NULL,
1159: p_column_value => NULL,
1160: x_return_status => l_return_status);
1161:
1162: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1163: RAISE FND_API.g_exc_error;
1164: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1165: RAISE FND_API.g_exc_unexpected_error;
1166: END IF;
1159: p_column_value => NULL,
1160: x_return_status => l_return_status);
1161:
1162: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1163: RAISE FND_API.g_exc_error;
1164: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1165: RAISE FND_API.g_exc_unexpected_error;
1166: END IF;
1167:
1160: x_return_status => l_return_status);
1161:
1162: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1163: RAISE FND_API.g_exc_error;
1164: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1165: RAISE FND_API.g_exc_unexpected_error;
1166: END IF;
1167:
1168: -- SET Batch as DISPUTED
1161:
1162: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1163: RAISE FND_API.g_exc_error;
1164: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1165: RAISE FND_API.g_exc_unexpected_error;
1166: END IF;
1167:
1168: -- SET Batch as DISPUTED
1169: -- SLKRISHN change to common procedure
1245: IF g_inventory_tracking = 'T' THEN
1246: -- Check inventory level first
1247: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1248: p_api_version => 1.0
1249: ,p_init_msg_list => FND_API.G_FALSE
1250: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1251: ,p_line_int_rec => l_resale_int_rec
1252: ,x_valid => l_inventory_level_valid
1253: ,x_return_status => l_return_status
1246: -- Check inventory level first
1247: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1248: p_api_version => 1.0
1249: ,p_init_msg_list => FND_API.G_FALSE
1250: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1251: ,p_line_int_rec => l_resale_int_rec
1252: ,x_valid => l_inventory_level_valid
1253: ,x_return_status => l_return_status
1254: ,x_msg_count => l_msg_count
1263: p_column_name => NULL,
1264: p_column_value => NULL,
1265: x_return_status => l_return_status);
1266: --
1267: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1268: RAISE FND_API.g_exc_error;
1269: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1270: RAISE FND_API.g_exc_unexpected_error;
1271: END IF;
1264: p_column_value => NULL,
1265: x_return_status => l_return_status);
1266: --
1267: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1268: RAISE FND_API.g_exc_error;
1269: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1270: RAISE FND_API.g_exc_unexpected_error;
1271: END IF;
1272: --
1265: x_return_status => l_return_status);
1266: --
1267: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1268: RAISE FND_API.g_exc_error;
1269: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1270: RAISE FND_API.g_exc_unexpected_error;
1271: END IF;
1272: --
1273: -- SET Batch as DISPUTED
1266: --
1267: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1268: RAISE FND_API.g_exc_error;
1269: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1270: RAISE FND_API.g_exc_unexpected_error;
1271: END IF;
1272: --
1273: -- SET Batch as DISPUTED
1274: -- SLKRISHN change to common procedure
1316: p_column_name => NULL,
1317: p_column_value => NULL,
1318: x_return_status => l_return_status
1319: );
1320: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1321: RAISE FND_API.g_exc_error;
1322: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1323: RAISE FND_API.g_exc_unexpected_error;
1324: END IF;
1317: p_column_value => NULL,
1318: x_return_status => l_return_status
1319: );
1320: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1321: RAISE FND_API.g_exc_error;
1322: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1323: RAISE FND_API.g_exc_unexpected_error;
1324: END IF;
1325:
1318: x_return_status => l_return_status
1319: );
1320: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1321: RAISE FND_API.g_exc_error;
1322: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1323: RAISE FND_API.g_exc_unexpected_error;
1324: END IF;
1325:
1326: BEGIN
1319: );
1320: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1321: RAISE FND_API.g_exc_error;
1322: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1323: RAISE FND_API.g_exc_unexpected_error;
1324: END IF;
1325:
1326: BEGIN
1327: UPDATE ozf_resale_lines_int
1334: AND resale_batch_id = p_resale_batch_id;
1335: EXCEPTION
1336: WHEN OTHERS THEN
1337: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1339: END;
1340: goto END_LOOP;
1341: END IF;
1342:
1355: p_column_name => NULL,
1356: p_column_value => NULL,
1357: x_return_status => l_return_status
1358: );
1359: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1360: RAISE FND_API.g_exc_error;
1361: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1362: RAISE FND_API.g_exc_unexpected_error;
1363: END IF;
1356: p_column_value => NULL,
1357: x_return_status => l_return_status
1358: );
1359: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1360: RAISE FND_API.g_exc_error;
1361: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1362: RAISE FND_API.g_exc_unexpected_error;
1363: END IF;
1364:
1357: x_return_status => l_return_status
1358: );
1359: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1360: RAISE FND_API.g_exc_error;
1361: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1362: RAISE FND_API.g_exc_unexpected_error;
1363: END IF;
1364:
1365: BEGIN
1358: );
1359: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1360: RAISE FND_API.g_exc_error;
1361: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1362: RAISE FND_API.g_exc_unexpected_error;
1363: END IF;
1364:
1365: BEGIN
1366: UPDATE ozf_resale_lines_int
1373: AND resale_batch_id = p_resale_batch_id;
1374: EXCEPTION
1375: WHEN OTHERS THEN
1376: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1378: END;
1379: GOTO END_LOOP;
1380: END IF;
1381:
1394: AND resale_batch_id = p_resale_batch_id;
1395: EXCEPTION
1396: WHEN OTHERS THEN
1397: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1399: END;
1400: GOTO END_LOOP;
1401: END IF;
1402:
1433: AND resale_batch_id = p_resale_batch_id;
1434: EXCEPTION
1435: WHEN OTHERS THEN
1436: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1438: END;
1439: GOTO END_LOOP;
1440: END IF;
1441: END IF;
1481: AND resale_batch_id = p_resale_batch_id;
1482: EXCEPTION
1483: WHEN OTHERS THEN
1484: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1486: END;
1487: GOTO END_LOOP;
1488: END IF;
1489: END IF;
1499: AND resale_batch_id = p_resale_batch_id;
1500: EXCEPTION
1501: WHEN OTHERS THEN
1502: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1504: END;
1505: GOTO END_LOOP;
1506: END IF;
1507: ELSE
1524: AND resale_batch_id = p_resale_batch_id;
1525: EXCEPTION
1526: WHEN OTHERS THEN
1527: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1528: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1529: END;
1530: GOTO END_LOOP;
1531: END IF;
1532: END IF;
1549: AND resale_batch_id = p_resale_batch_id;
1550: EXCEPTION
1551: WHEN OTHERS THEN
1552: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1554: END;
1555: GOTO END_LOOP;
1556: ELSE
1557: IF l_offer_type = G_OFF_INVOICE_OFFER THEN
1569: AND resale_batch_id = p_resale_batch_id;
1570: EXCEPTION
1571: WHEN OTHERS THEN
1572: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1574: END;
1575: GOTO END_LOOP;
1576: END IF;
1577: END IF;
1605: p_column_name => 'ITEM_NUMBER',
1606: p_column_value => l_order_set_tbl(J).item_number,
1607: x_return_status => l_return_status
1608: );
1609: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1610: RAISE FND_API.g_exc_error;
1611: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1612: RAISE FND_API.g_exc_unexpected_error;
1613: END IF;
1606: p_column_value => l_order_set_tbl(J).item_number,
1607: x_return_status => l_return_status
1608: );
1609: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1610: RAISE FND_API.g_exc_error;
1611: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1612: RAISE FND_API.g_exc_unexpected_error;
1613: END IF;
1614:
1607: x_return_status => l_return_status
1608: );
1609: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1610: RAISE FND_API.g_exc_error;
1611: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1612: RAISE FND_API.g_exc_unexpected_error;
1613: END IF;
1614:
1615: BEGIN
1608: );
1609: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1610: RAISE FND_API.g_exc_error;
1611: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1612: RAISE FND_API.g_exc_unexpected_error;
1613: END IF;
1614:
1615: BEGIN
1616: UPDATE ozf_resale_lines_int
1623: AND resale_batch_id = p_resale_batch_id;
1624: EXCEPTION
1625: WHEN OTHERS THEN
1626: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1627: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1628: END;
1629: goto END_LOOP;
1630: END IF;
1631:
1633: /*
1634: -- get current quantity and amount FROM tmp table
1635: OZF_RESALE_COMMON_PVT.get_available_quantity(
1636: p_api_version_number => 1.0,
1637: p_init_msg_list => FND_API.G_FALSE,
1638: p_commit => FND_API.G_FALSE,
1639: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1640: p_line_id => l_request_line_id,
1641: p_primary_uom_code => l_primary_uom_code,
1634: -- get current quantity and amount FROM tmp table
1635: OZF_RESALE_COMMON_PVT.get_available_quantity(
1636: p_api_version_number => 1.0,
1637: p_init_msg_list => FND_API.G_FALSE,
1638: p_commit => FND_API.G_FALSE,
1639: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1640: p_line_id => l_request_line_id,
1641: p_primary_uom_code => l_primary_uom_code,
1642: x_available_quantity=> l_available_quan,
1635: OZF_RESALE_COMMON_PVT.get_available_quantity(
1636: p_api_version_number => 1.0,
1637: p_init_msg_list => FND_API.G_FALSE,
1638: p_commit => FND_API.G_FALSE,
1639: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1640: p_line_id => l_request_line_id,
1641: p_primary_uom_code => l_primary_uom_code,
1642: x_available_quantity=> l_available_quan,
1643: x_available_amount => l_available_amt,
1692: AND resale_batch_id = p_resale_batch_id;
1693: EXCEPTION
1694: WHEN OTHERS THEN
1695: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1697: END;
1698: goto END_LOOP;
1699: END IF;
1700: END IF;
1719: AND resale_batch_id = p_resale_batch_id;
1720: EXCEPTION
1721: WHEN OTHERS THEN
1722: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1724: END;
1725: goto END_LOOP;
1726: END IF;
1727: END IF;
1749: AND resale_batch_id = p_resale_batch_id;
1750: EXCEPTION
1751: WHEN OTHERS THEN
1752: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1753: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1754: END;
1755: goto END_LOOP;
1756: END IF;
1757: END IF;
1773: AND resale_batch_id = p_resale_batch_id;
1774: EXCEPTION
1775: WHEN OTHERS THEN
1776: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1778: END;
1779: goto END_LOOP;
1780: END IF;
1781:
1792: AND resale_batch_id = p_resale_batch_id;
1793: EXCEPTION
1794: WHEN OTHERS THEN
1795: OZF_UTILITY_PVT.error_message(p_message_name => 'OZF_UPD_RESALE_INT_WRG');
1796: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1797: END;
1798: goto END_LOOP;
1799: END IF;
1800:
1824: p_line_quantity => l_current_quantity,
1825: p_allowed_amount => l_request_line_apprv_amt,
1826: x_return_status => l_return_status);
1827: --
1828: IF l_return_status = FND_API.g_ret_sts_error THEN
1829: RAISE FND_API.g_exc_error;
1830: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1831: RAISE FND_API.g_exc_unexpected_error;
1832: END IF;
1825: p_allowed_amount => l_request_line_apprv_amt,
1826: x_return_status => l_return_status);
1827: --
1828: IF l_return_status = FND_API.g_ret_sts_error THEN
1829: RAISE FND_API.g_exc_error;
1830: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1831: RAISE FND_API.g_exc_unexpected_error;
1832: END IF;
1833: <
1826: x_return_status => l_return_status);
1827: --
1828: IF l_return_status = FND_API.g_ret_sts_error THEN
1829: RAISE FND_API.g_exc_error;
1830: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1831: RAISE FND_API.g_exc_unexpected_error;
1832: END IF;
1833: <
1834: NULL;
1827: --
1828: IF l_return_status = FND_API.g_ret_sts_error THEN
1829: RAISE FND_API.g_exc_error;
1830: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1831: RAISE FND_API.g_exc_unexpected_error;
1832: END IF;
1833: <
1834: NULL;
1835: END LOOP;
1846: END IF;
1847:
1848: x_return_status := l_return_status;
1849: EXCEPTION
1850: WHEN FND_API.G_EXC_ERROR THEN
1851: ROLLBACK TO Process_SPP_ONE_Order;
1852: x_return_status := FND_API.G_RET_STS_ERROR;
1853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1854: ROLLBACK TO Process_SPP_ONE_Order;
1848: x_return_status := l_return_status;
1849: EXCEPTION
1850: WHEN FND_API.G_EXC_ERROR THEN
1851: ROLLBACK TO Process_SPP_ONE_Order;
1852: x_return_status := FND_API.G_RET_STS_ERROR;
1853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1854: ROLLBACK TO Process_SPP_ONE_Order;
1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1856: WHEN OTHERS THEN
1849: EXCEPTION
1850: WHEN FND_API.G_EXC_ERROR THEN
1851: ROLLBACK TO Process_SPP_ONE_Order;
1852: x_return_status := FND_API.G_RET_STS_ERROR;
1853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1854: ROLLBACK TO Process_SPP_ONE_Order;
1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1856: WHEN OTHERS THEN
1857: ROLLBACK TO Process_SPP_ONE_Order;
1851: ROLLBACK TO Process_SPP_ONE_Order;
1852: x_return_status := FND_API.G_RET_STS_ERROR;
1853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1854: ROLLBACK TO Process_SPP_ONE_Order;
1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1856: WHEN OTHERS THEN
1857: ROLLBACK TO Process_SPP_ONE_Order;
1858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1859: END Process_One_Order;
1854: ROLLBACK TO Process_SPP_ONE_Order;
1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1856: WHEN OTHERS THEN
1857: ROLLBACK TO Process_SPP_ONE_Order;
1858: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1859: END Process_One_Order;
1860:
1861: ---------------------------------------------------------------------
1862: -- PROCEDURE
1871: --
1872: ---------------------------------------------------------------------
1873: PROCEDURE Process_Order(
1874: p_api_version IN NUMBER
1875: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1876: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1877: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1878: ,p_resale_batch_id IN NUMBER
1879: ,x_return_status OUT NOCOPY VARCHAR2
1872: ---------------------------------------------------------------------
1873: PROCEDURE Process_Order(
1874: p_api_version IN NUMBER
1875: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1876: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1877: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1878: ,p_resale_batch_id IN NUMBER
1879: ,x_return_status OUT NOCOPY VARCHAR2
1880: ,x_msg_data OUT NOCOPY VARCHAR2
1873: PROCEDURE Process_Order(
1874: p_api_version IN NUMBER
1875: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1876: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1877: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1878: ,p_resale_batch_id IN NUMBER
1879: ,x_return_status OUT NOCOPY VARCHAR2
1880: ,x_msg_data OUT NOCOPY VARCHAR2
1881: ,x_msg_count OUT NOCOPY NUMBER
1917: BEGIN
1918: -- Standard begin of API savepoint
1919: SAVEPOINT Process_SPP_Order;
1920: -- Standard call to check for call compatibility.
1921: IF NOT FND_API.Compatible_API_Call (
1922: l_api_version,
1923: p_api_version,
1924: l_api_name,
1925: G_PKG_NAME)
1923: p_api_version,
1924: l_api_name,
1925: G_PKG_NAME)
1926: THEN
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: END IF;
1929:
1930: --Initialize message list if p_init_msg_list is TRUE.
1931: IF FND_API.To_Boolean (p_init_msg_list) THEN
1927: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1928: END IF;
1929:
1930: --Initialize message list if p_init_msg_list is TRUE.
1931: IF FND_API.To_Boolean (p_init_msg_list) THEN
1932: FND_MSG_PUB.initialize;
1933: END IF;
1934:
1935: -- Debug Message
1937: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
1938: END IF;
1939:
1940: -- Initialize API return status to sucess
1941: x_return_status := FND_API.G_RET_STS_SUCCESS;
1942:
1943: -- Delete the logs for the current batch
1944: OZF_RESALE_COMMON_PVT.Delete_Log(
1945: p_api_version => 1.0
1942:
1943: -- Delete the logs for the current batch
1944: OZF_RESALE_COMMON_PVT.Delete_Log(
1945: p_api_version => 1.0
1946: ,p_init_msg_list => FND_API.G_FALSE
1947: ,p_commit => FND_API.G_FALSE
1948: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1949: ,p_resale_batch_id => p_resale_batch_id
1950: ,x_return_status => l_return_status
1943: -- Delete the logs for the current batch
1944: OZF_RESALE_COMMON_PVT.Delete_Log(
1945: p_api_version => 1.0
1946: ,p_init_msg_list => FND_API.G_FALSE
1947: ,p_commit => FND_API.G_FALSE
1948: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1949: ,p_resale_batch_id => p_resale_batch_id
1950: ,x_return_status => l_return_status
1951: ,x_msg_count => l_msg_count
1944: OZF_RESALE_COMMON_PVT.Delete_Log(
1945: p_api_version => 1.0
1946: ,p_init_msg_list => FND_API.G_FALSE
1947: ,p_commit => FND_API.G_FALSE
1948: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1949: ,p_resale_batch_id => p_resale_batch_id
1950: ,x_return_status => l_return_status
1951: ,x_msg_count => l_msg_count
1952: ,x_msg_data => l_msg_data
1950: ,x_return_status => l_return_status
1951: ,x_msg_count => l_msg_count
1952: ,x_msg_data => l_msg_data
1953: );
1954: IF l_return_status = FND_API.g_ret_sts_error THEN
1955: RAISE FND_API.g_exc_error;
1956: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1957: RAISE FND_API.g_exc_unexpected_error;
1958: END IF;
1951: ,x_msg_count => l_msg_count
1952: ,x_msg_data => l_msg_data
1953: );
1954: IF l_return_status = FND_API.g_ret_sts_error THEN
1955: RAISE FND_API.g_exc_error;
1956: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1957: RAISE FND_API.g_exc_unexpected_error;
1958: END IF;
1959:
1952: ,x_msg_data => l_msg_data
1953: );
1954: IF l_return_status = FND_API.g_ret_sts_error THEN
1955: RAISE FND_API.g_exc_error;
1956: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1957: RAISE FND_API.g_exc_unexpected_error;
1958: END IF;
1959:
1960:
1953: );
1954: IF l_return_status = FND_API.g_ret_sts_error THEN
1955: RAISE FND_API.g_exc_error;
1956: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1957: RAISE FND_API.g_exc_unexpected_error;
1958: END IF;
1959:
1960:
1961: OPEN partner_id_csr(p_resale_batch_id);
1974: -- populates the temp tables
1975: IF g_inventory_tracking = 'T' THEN
1976: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1977: p_api_version => 1.0
1978: ,p_init_msg_list => FND_API.G_FALSE
1979: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1980: ,p_resale_batch_id => p_resale_batch_id
1981: ,p_start_date => l_report_start_date
1982: ,p_end_date => l_report_end_date
1975: IF g_inventory_tracking = 'T' THEN
1976: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1977: p_api_version => 1.0
1978: ,p_init_msg_list => FND_API.G_FALSE
1979: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1980: ,p_resale_batch_id => p_resale_batch_id
1981: ,p_start_date => l_report_start_date
1982: ,p_end_date => l_report_end_date
1983: ,x_return_status => l_return_status
1983: ,x_return_status => l_return_status
1984: ,x_msg_count => l_msg_count
1985: ,x_msg_data => l_msg_data
1986: );
1987: IF l_return_status = FND_API.g_ret_sts_error THEN
1988: RAISE FND_API.g_exc_error;
1989: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1990: RAISE FND_API.g_exc_unexpected_error;
1991: END IF;
1984: ,x_msg_count => l_msg_count
1985: ,x_msg_data => l_msg_data
1986: );
1987: IF l_return_status = FND_API.g_ret_sts_error THEN
1988: RAISE FND_API.g_exc_error;
1989: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1990: RAISE FND_API.g_exc_unexpected_error;
1991: END IF;
1992: END IF;
1985: ,x_msg_data => l_msg_data
1986: );
1987: IF l_return_status = FND_API.g_ret_sts_error THEN
1988: RAISE FND_API.g_exc_error;
1989: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1990: RAISE FND_API.g_exc_unexpected_error;
1991: END IF;
1992: END IF;
1993: -- Bug 4616588 (-)
1986: );
1987: IF l_return_status = FND_API.g_ret_sts_error THEN
1988: RAISE FND_API.g_exc_error;
1989: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1990: RAISE FND_API.g_exc_unexpected_error;
1991: END IF;
1992: END IF;
1993: -- Bug 4616588 (-)
1994:
2013: p_resale_batch_id => p_resale_batch_id,
2014: p_partner_id => l_partner_id,
2015: x_return_status => l_return_status);
2016:
2017: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2018: BEGIN
2019: update ozf_resale_lines_int
2020: set status_code =OZF_RESALE_COMMON_PVT.G_BATCH_ADJ_DISPUTED,
2021: dispute_code = 'OZF_PROC_PRIC_RESLT_ERR',
2029: and resale_batch_id = p_resale_batch_id;
2030: EXCEPTION
2031: WHEN OTHERS THEN
2032: ozf_utility_pvt.error_message( 'OZF_UPD_RESALE_INT_WRG');
2033: RAISE FND_API.g_exc_unexpected_error;
2034: END;
2035: IF OZF_DEBUG_LOW_ON THEN
2036: ozf_utility_PVT.debug_message('/*--- process_one_order Failed ---*/');
2037: END IF;
2042:
2043: -- Update Chargeback header with processing detail
2044: OZF_RESALE_COMMON_PVT.Update_Batch_Calculations (
2045: p_api_version => 1.0
2046: ,p_init_msg_list => FND_API.G_FALSE
2047: ,p_commit => FND_API.G_FALSE
2048: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2049: ,p_resale_batch_id => p_resale_batch_id
2050: ,x_return_status => l_return_status
2043: -- Update Chargeback header with processing detail
2044: OZF_RESALE_COMMON_PVT.Update_Batch_Calculations (
2045: p_api_version => 1.0
2046: ,p_init_msg_list => FND_API.G_FALSE
2047: ,p_commit => FND_API.G_FALSE
2048: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2049: ,p_resale_batch_id => p_resale_batch_id
2050: ,x_return_status => l_return_status
2051: ,x_msg_data => l_msg_data
2044: OZF_RESALE_COMMON_PVT.Update_Batch_Calculations (
2045: p_api_version => 1.0
2046: ,p_init_msg_list => FND_API.G_FALSE
2047: ,p_commit => FND_API.G_FALSE
2048: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2049: ,p_resale_batch_id => p_resale_batch_id
2050: ,x_return_status => l_return_status
2051: ,x_msg_data => l_msg_data
2052: ,x_msg_count => l_msg_count
2050: ,x_return_status => l_return_status
2051: ,x_msg_data => l_msg_data
2052: ,x_msg_count => l_msg_count
2053: );
2054: IF l_return_status = FND_API.g_ret_sts_error THEN
2055: RAISE FND_API.g_exc_error;
2056: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2057: RAISE FND_API.g_exc_unexpected_error;
2058: END IF;
2051: ,x_msg_data => l_msg_data
2052: ,x_msg_count => l_msg_count
2053: );
2054: IF l_return_status = FND_API.g_ret_sts_error THEN
2055: RAISE FND_API.g_exc_error;
2056: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2057: RAISE FND_API.g_exc_unexpected_error;
2058: END IF;
2059:
2052: ,x_msg_count => l_msg_count
2053: );
2054: IF l_return_status = FND_API.g_ret_sts_error THEN
2055: RAISE FND_API.g_exc_error;
2056: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2057: RAISE FND_API.g_exc_unexpected_error;
2058: END IF;
2059:
2060: -- Debug Message
2053: );
2054: IF l_return_status = FND_API.g_ret_sts_error THEN
2055: RAISE FND_API.g_exc_error;
2056: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2057: RAISE FND_API.g_exc_unexpected_error;
2058: END IF;
2059:
2060: -- Debug Message
2061: IF OZF_DEBUG_HIGH_ON THEN
2062: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
2063: END IF;
2064: --Standard call to get message count and if count=1, get the message
2065: FND_MSG_PUB.Count_And_Get (
2066: p_encoded => FND_API.G_FALSE,
2067: p_count => x_msg_count,
2068: p_data => x_msg_data
2069: );
2070: x_return_status := l_return_status;
2068: p_data => x_msg_data
2069: );
2070: x_return_status := l_return_status;
2071: EXCEPTION
2072: WHEN FND_API.G_EXC_ERROR THEN
2073: ROLLBACK TO Process_SPP_Order;
2074: x_return_status := FND_API.G_RET_STS_ERROR;
2075: -- Standard call to get message count and if count=1, get the message
2076: FND_MSG_PUB.Count_And_Get (
2070: x_return_status := l_return_status;
2071: EXCEPTION
2072: WHEN FND_API.G_EXC_ERROR THEN
2073: ROLLBACK TO Process_SPP_Order;
2074: x_return_status := FND_API.G_RET_STS_ERROR;
2075: -- Standard call to get message count and if count=1, get the message
2076: FND_MSG_PUB.Count_And_Get (
2077: p_encoded => FND_API.G_FALSE,
2078: p_count => x_msg_count,
2073: ROLLBACK TO Process_SPP_Order;
2074: x_return_status := FND_API.G_RET_STS_ERROR;
2075: -- Standard call to get message count and if count=1, get the message
2076: FND_MSG_PUB.Count_And_Get (
2077: p_encoded => FND_API.G_FALSE,
2078: p_count => x_msg_count,
2079: p_data => x_msg_data
2080: );
2081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2077: p_encoded => FND_API.G_FALSE,
2078: p_count => x_msg_count,
2079: p_data => x_msg_data
2080: );
2081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2082: ROLLBACK TO Process_SPP_Order;
2083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2084:
2085: -- Standard call to get message count and if count=1, get the message
2079: p_data => x_msg_data
2080: );
2081: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2082: ROLLBACK TO Process_SPP_Order;
2083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2084:
2085: -- Standard call to get message count and if count=1, get the message
2086: FND_MSG_PUB.Count_And_Get (
2087: p_encoded => FND_API.G_FALSE,
2083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2084:
2085: -- Standard call to get message count and if count=1, get the message
2086: FND_MSG_PUB.Count_And_Get (
2087: p_encoded => FND_API.G_FALSE,
2088: p_count => x_msg_count,
2089: p_data => x_msg_data
2090: );
2091: WHEN OTHERS THEN
2089: p_data => x_msg_data
2090: );
2091: WHEN OTHERS THEN
2092: ROLLBACK TO Process_SPP_Order;
2093: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2094:
2095: -- Standard call to get message count and if count=1, get the message
2096: FND_MSG_PUB.Count_And_Get (
2097: p_encoded => FND_API.G_FALSE,
2093: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2094:
2095: -- Standard call to get message count and if count=1, get the message
2096: FND_MSG_PUB.Count_And_Get (
2097: p_encoded => FND_API.G_FALSE,
2098: p_count => x_msg_count,
2099: p_data => x_msg_data
2100: );
2101: END Process_Order;