33: --
34: ---------------------------------------------------------------------
35: PROCEDURE Initiate_payment (
36: p_api_version IN NUMBER
37: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
38: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
39: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
40: ,p_resale_batch_id IN NUMBER
41: ,x_return_status OUT NOCOPY VARCHAR2
34: ---------------------------------------------------------------------
35: PROCEDURE Initiate_payment (
36: p_api_version IN NUMBER
37: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
38: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
39: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
40: ,p_resale_batch_id IN NUMBER
41: ,x_return_status OUT NOCOPY VARCHAR2
42: ,x_msg_data OUT NOCOPY VARCHAR2
35: PROCEDURE Initiate_payment (
36: p_api_version IN NUMBER
37: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
38: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
39: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
40: ,p_resale_batch_id IN NUMBER
41: ,x_return_status OUT NOCOPY VARCHAR2
42: ,x_msg_data OUT NOCOPY VARCHAR2
43: ,x_msg_count OUT NOCOPY NUMBER
213: BEGIN
214: -- Standard begin of API savepoint
215: SAVEPOINT TRAC_INITIATE_PAYMENT;
216: -- Standard call to check for call compatibility.
217: IF NOT FND_API.Compatible_API_Call (
218: l_api_version,
219: p_api_version,
220: l_api_name,
221: G_PKG_NAME)
219: p_api_version,
220: l_api_name,
221: G_PKG_NAME)
222: THEN
223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
224: END IF;
225:
226: --Initialize message list if p_init_msg_list is TRUE.
227: IF FND_API.To_Boolean (p_init_msg_list) THEN
223: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
224: END IF;
225:
226: --Initialize message list if p_init_msg_list is TRUE.
227: IF FND_API.To_Boolean (p_init_msg_list) THEN
228: FND_MSG_PUB.initialize;
229: END IF;
230:
231: -- Debug Message
234: END IF;
235:
236:
237: -- Initialize API return status to sucess
238: x_return_status := FND_API.G_RET_STS_SUCCESS;
239:
240: OPEN Batch_info_csr(p_resale_batch_id);
241: FETCH batch_info_csr INTO l_batch_status,
242: l_batch_type,
261:
262: IF l_count <> 0 THEN
263: --Can not pay if there is an OPEN line
264: ozf_utility_pvt.error_message('OZF_RESALE_OPEN_LINE_EXIST');
265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
266: ELSE
267: -- Check whether there is a need to do inventory_verification
268: OPEN OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr;
269: FETCH OZF_RESALE_COMMON_PVT.g_inventory_tracking_csr INTO l_inventory_tracking;
273: AND ( l_direct_order_flag <> 'Y') THEN -- Indirect order Check
274:
275: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
276: p_api_version => 1.0
277: ,p_init_msg_list => FND_API.G_FALSE
278: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
279: ,p_resale_batch_id => p_resale_batch_id
280: ,p_start_date => l_report_start_date
281: ,p_end_date => l_report_end_date
274:
275: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
276: p_api_version => 1.0
277: ,p_init_msg_list => FND_API.G_FALSE
278: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
279: ,p_resale_batch_id => p_resale_batch_id
280: ,p_start_date => l_report_start_date
281: ,p_end_date => l_report_end_date
282: ,x_return_status => l_return_status
282: ,x_return_status => l_return_status
283: ,x_msg_count => l_msg_count
284: ,x_msg_data => l_msg_data
285: );
286: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
287: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
288: RAISE FND_API.G_EXC_ERROR;
289: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
290: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
284: ,x_msg_data => l_msg_data
285: );
286: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
287: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
288: RAISE FND_API.G_EXC_ERROR;
289: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
290: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: END IF;
285: );
286: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
287: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
288: RAISE FND_API.G_EXC_ERROR;
289: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
290: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: END IF;
293: END IF;
287: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
288: RAISE FND_API.G_EXC_ERROR;
289: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
290: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
292: END IF;
293: END IF;
294:
295: OPEN end_cust_relation_flag_csr;
300: --Bug# 8489216 fixed by ateotia(+)
301: --Moved the logic of End Customer/Bill_To/Ship_To Party creation to Common Resale API.
302: OZF_RESALE_COMMON_PVT.Derive_Orig_Parties
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_partner_party_id => l_partner_party_id
301: --Moved the logic of End Customer/Bill_To/Ship_To Party creation to Common Resale API.
302: OZF_RESALE_COMMON_PVT.Derive_Orig_Parties
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_partner_party_id => l_partner_party_id
309: ,x_return_status => l_return_status
302: OZF_RESALE_COMMON_PVT.Derive_Orig_Parties
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_partner_party_id => l_partner_party_id
309: ,x_return_status => l_return_status
310: ,x_msg_data => l_msg_data
309: ,x_return_status => l_return_status
310: ,x_msg_data => l_msg_data
311: ,x_msg_count => l_msg_count
312: );
313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
314: RAISE FND_API.G_EXC_ERROR;
315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
317: END IF;
310: ,x_msg_data => l_msg_data
311: ,x_msg_count => l_msg_count
312: );
313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
314: RAISE FND_API.G_EXC_ERROR;
315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
317: END IF;
318: /*
311: ,x_msg_count => l_msg_count
312: );
313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
314: RAISE FND_API.G_EXC_ERROR;
315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
317: END IF;
318: /*
319: -- check bill_to customer
312: );
313: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
314: RAISE FND_API.G_EXC_ERROR;
315: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
317: END IF;
318: /*
319: -- check bill_to customer
320: OPEN csr_orig_billto_cust(p_resale_batch_id);
336: l_new_party_rec.site_Use_Code := 'BILL_TO';
337:
338: OZF_RESALE_COMMON_PVT.Create_Party(
339: p_api_version => 1.0
340: ,p_init_msg_list => FND_API.G_FALSE
341: ,p_commit => FND_API.G_FALSE
342: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
343: ,px_party_rec => l_new_party_rec
344: ,x_return_status => l_return_status
337:
338: OZF_RESALE_COMMON_PVT.Create_Party(
339: p_api_version => 1.0
340: ,p_init_msg_list => FND_API.G_FALSE
341: ,p_commit => FND_API.G_FALSE
342: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
343: ,px_party_rec => l_new_party_rec
344: ,x_return_status => l_return_status
345: ,x_msg_data => l_msg_data
338: OZF_RESALE_COMMON_PVT.Create_Party(
339: p_api_version => 1.0
340: ,p_init_msg_list => FND_API.G_FALSE
341: ,p_commit => FND_API.G_FALSE
342: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
343: ,px_party_rec => l_new_party_rec
344: ,x_return_status => l_return_status
345: ,x_msg_data => l_msg_data
346: ,x_msg_count => l_msg_count
344: ,x_return_status => l_return_status
345: ,x_msg_data => l_msg_data
346: ,x_msg_count => l_msg_count
347: );
348: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
349: RAISE FND_API.G_EXC_ERROR;
350: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
352: END IF;
345: ,x_msg_data => l_msg_data
346: ,x_msg_count => l_msg_count
347: );
348: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
349: RAISE FND_API.G_EXC_ERROR;
350: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
352: END IF;
353:
346: ,x_msg_count => l_msg_count
347: );
348: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
349: RAISE FND_API.G_EXC_ERROR;
350: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
352: END IF;
353:
354: UPDATE ozf_resale_lines_int_all
347: );
348: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
349: RAISE FND_API.G_EXC_ERROR;
350: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
352: END IF;
353:
354: UPDATE ozf_resale_lines_int_all
355: SET bill_to_party_id = l_new_party_rec.party_id
391: l_new_party_rec.site_use_code := l_orig_end_cust_tbl(i).end_cust_site_use_code;
392:
393: OZF_RESALE_COMMON_PVT.Create_Party
394: ( p_api_version => 1.0
395: ,p_init_msg_list => FND_API.G_FALSE
396: ,p_commit => FND_API.G_FALSE
397: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
398: ,px_party_rec => l_new_party_rec
399: ,x_return_status => l_return_status
392:
393: OZF_RESALE_COMMON_PVT.Create_Party
394: ( p_api_version => 1.0
395: ,p_init_msg_list => FND_API.G_FALSE
396: ,p_commit => FND_API.G_FALSE
397: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
398: ,px_party_rec => l_new_party_rec
399: ,x_return_status => l_return_status
400: ,x_msg_data => l_msg_data
393: OZF_RESALE_COMMON_PVT.Create_Party
394: ( p_api_version => 1.0
395: ,p_init_msg_list => FND_API.G_FALSE
396: ,p_commit => FND_API.G_FALSE
397: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
398: ,px_party_rec => l_new_party_rec
399: ,x_return_status => l_return_status
400: ,x_msg_data => l_msg_data
401: ,x_msg_count => l_msg_count
399: ,x_return_status => l_return_status
400: ,x_msg_data => l_msg_data
401: ,x_msg_count => l_msg_count
402: );
403: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
404: RAISE FND_API.G_EXC_ERROR;
405: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
407: END IF;
400: ,x_msg_data => l_msg_data
401: ,x_msg_count => l_msg_count
402: );
403: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
404: RAISE FND_API.G_EXC_ERROR;
405: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
407: END IF;
408:
401: ,x_msg_count => l_msg_count
402: );
403: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
404: RAISE FND_API.G_EXC_ERROR;
405: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
407: END IF;
408:
409: UPDATE ozf_resale_lines_int_all
402: );
403: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
404: RAISE FND_API.G_EXC_ERROR;
405: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
406: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
407: END IF;
408:
409: UPDATE ozf_resale_lines_int_all
410: SET end_cust_party_id = l_new_party_rec.party_id
535: AND (l_direct_order_flag <> 'Y') THEN
536: -- Check inventory level first
537: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
538: p_api_version => 1.0
539: ,p_init_msg_list => FND_API.G_FALSE
540: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
541: ,p_line_int_rec => l_line_int_rec
542: ,x_valid => l_inventory_level_valid
543: ,x_return_status => l_return_status
536: -- Check inventory level first
537: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
538: p_api_version => 1.0
539: ,p_init_msg_list => FND_API.G_FALSE
540: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
541: ,p_line_int_rec => l_line_int_rec
542: ,x_valid => l_inventory_level_valid
543: ,x_return_status => l_return_status
544: ,x_msg_count => l_msg_count
574: -- Determin header id
575: IF l_create_order_header THEN
576: OZF_RESALE_COMMON_PVT.Insert_Resale_Header(
577: p_api_version => 1
578: ,p_init_msg_list => FND_API.G_FALSE
579: ,p_commit => FND_API.G_FALSE
580: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
581: ,p_line_int_rec => l_line_int_rec
582: ,x_header_id => l_header_id
575: IF l_create_order_header THEN
576: OZF_RESALE_COMMON_PVT.Insert_Resale_Header(
577: p_api_version => 1
578: ,p_init_msg_list => FND_API.G_FALSE
579: ,p_commit => FND_API.G_FALSE
580: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
581: ,p_line_int_rec => l_line_int_rec
582: ,x_header_id => l_header_id
583: ,x_return_status => l_return_status
576: OZF_RESALE_COMMON_PVT.Insert_Resale_Header(
577: p_api_version => 1
578: ,p_init_msg_list => FND_API.G_FALSE
579: ,p_commit => FND_API.G_FALSE
580: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
581: ,p_line_int_rec => l_line_int_rec
582: ,x_header_id => l_header_id
583: ,x_return_status => l_return_status
584: ,x_msg_data => l_msg_data
583: ,x_return_status => l_return_status
584: ,x_msg_data => l_msg_data
585: ,x_msg_count => l_msg_count
586: );
587: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
588: RAISE FND_API.G_EXC_ERROR;
589: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: END IF;
584: ,x_msg_data => l_msg_data
585: ,x_msg_count => l_msg_count
586: );
587: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
588: RAISE FND_API.G_EXC_ERROR;
589: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: END IF;
592: --
585: ,x_msg_count => l_msg_count
586: );
587: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
588: RAISE FND_API.G_EXC_ERROR;
589: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: END IF;
592: --
593: ELSE
586: );
587: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
588: RAISE FND_API.G_EXC_ERROR;
589: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
591: END IF;
592: --
593: ELSE
594: NULL;
608:
609: -- No problem so far. Insert INTO batch_lines TABLE
610: OZF_RESALE_COMMON_PVT.Insert_Resale_Line(
611: p_api_version => 1
612: ,p_init_msg_list => FND_API.G_FALSE
613: ,p_commit => FND_API.G_FALSE
614: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
615: ,p_line_int_rec => l_line_int_rec
616: ,p_header_id => l_header_id
609: -- No problem so far. Insert INTO batch_lines TABLE
610: OZF_RESALE_COMMON_PVT.Insert_Resale_Line(
611: p_api_version => 1
612: ,p_init_msg_list => FND_API.G_FALSE
613: ,p_commit => FND_API.G_FALSE
614: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
615: ,p_line_int_rec => l_line_int_rec
616: ,p_header_id => l_header_id
617: ,x_line_id => l_line_id
610: OZF_RESALE_COMMON_PVT.Insert_Resale_Line(
611: p_api_version => 1
612: ,p_init_msg_list => FND_API.G_FALSE
613: ,p_commit => FND_API.G_FALSE
614: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
615: ,p_line_int_rec => l_line_int_rec
616: ,p_header_id => l_header_id
617: ,x_line_id => l_line_id
618: ,x_return_status => l_return_status
618: ,x_return_status => l_return_status
619: ,x_msg_data => l_msg_data
620: ,x_msg_count => l_msg_count
621: );
622: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
623: RAISE FND_API.G_EXC_ERROR;
624: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;
619: ,x_msg_data => l_msg_data
620: ,x_msg_count => l_msg_count
621: );
622: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
623: RAISE FND_API.G_EXC_ERROR;
624: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;
627: --
620: ,x_msg_count => l_msg_count
621: );
622: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
623: RAISE FND_API.G_EXC_ERROR;
624: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;
627: --
628:
621: );
622: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
623: RAISE FND_API.G_EXC_ERROR;
624: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
625: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
626: END IF;
627: --
628:
629: -- FOR processed order line, I need to create a transaction FOR it.
628:
629: -- FOR processed order line, I need to create a transaction FOR it.
630: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
631: p_api_version => 1.0
632: ,p_init_msg_list => FND_API.G_FALSE
633: ,p_commit => FND_API.G_FALSE
634: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
635: ,p_line_int_rec => l_line_int_rec
636: ,p_header_id => l_header_id
629: -- FOR processed order line, I need to create a transaction FOR it.
630: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
631: p_api_version => 1.0
632: ,p_init_msg_list => FND_API.G_FALSE
633: ,p_commit => FND_API.G_FALSE
634: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
635: ,p_line_int_rec => l_line_int_rec
636: ,p_header_id => l_header_id
637: ,p_line_id => l_line_id
630: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction (
631: p_api_version => 1.0
632: ,p_init_msg_list => FND_API.G_FALSE
633: ,p_commit => FND_API.G_FALSE
634: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
635: ,p_line_int_rec => l_line_int_rec
636: ,p_header_id => l_header_id
637: ,p_line_id => l_line_id
638: ,x_sales_transaction_id => l_sales_transaction_id
639: ,x_return_status => l_return_status
640: ,x_msg_data => l_msg_data
641: ,x_msg_count => l_msg_count
642: );
643: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
644: RAISE FND_API.G_EXC_ERROR;
645: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
647: END IF;
640: ,x_msg_data => l_msg_data
641: ,x_msg_count => l_msg_count
642: );
643: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
644: RAISE FND_API.G_EXC_ERROR;
645: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
647: END IF;
648: --
641: ,x_msg_count => l_msg_count
642: );
643: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
644: RAISE FND_API.G_EXC_ERROR;
645: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
647: END IF;
648: --
649:
642: );
643: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
644: RAISE FND_API.G_EXC_ERROR;
645: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
647: END IF;
648: --
649:
650: /*
654: IF l_inventory_tracking = 'T'
655: AND (l_direct_order_flag <> 'Y') THEN
656: OZF_SALES_TRANSACTIONS_PVT.Update_Inventory_Tmp (
657: p_api_version => 1.0
658: ,p_init_msg_list => FND_API.G_FALSE
659: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
660: ,p_sales_transaction_id => l_sales_transaction_id
661: ,x_return_status => l_return_status
662: ,x_msg_data => l_msg_data
655: AND (l_direct_order_flag <> 'Y') THEN
656: OZF_SALES_TRANSACTIONS_PVT.Update_Inventory_Tmp (
657: p_api_version => 1.0
658: ,p_init_msg_list => FND_API.G_FALSE
659: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
660: ,p_sales_transaction_id => l_sales_transaction_id
661: ,x_return_status => l_return_status
662: ,x_msg_data => l_msg_data
663: ,x_msg_count => l_msg_count
661: ,x_return_status => l_return_status
662: ,x_msg_data => l_msg_data
663: ,x_msg_count => l_msg_count
664: );
665: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
666: RAISE FND_API.G_EXC_ERROR;
667: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
662: ,x_msg_data => l_msg_data
663: ,x_msg_count => l_msg_count
664: );
665: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
666: RAISE FND_API.G_EXC_ERROR;
667: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670: --
663: ,x_msg_count => l_msg_count
664: );
665: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
666: RAISE FND_API.G_EXC_ERROR;
667: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670: --
671: END IF;
664: );
665: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
666: RAISE FND_API.G_EXC_ERROR;
667: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670: --
671: END IF;
672: ELSE
686: -- only create mapping FOR the lines that are processed or
687: -- duplicated, yet the adjustment IS new then
688: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
689: p_api_version => 1
690: ,p_init_msg_list => FND_API.G_FALSE
691: ,p_commit => FND_API.G_FALSE
692: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
693: ,p_resale_batch_id => p_resale_batch_id
694: ,p_line_id => l_line_id
687: -- duplicated, yet the adjustment IS new then
688: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
689: p_api_version => 1
690: ,p_init_msg_list => FND_API.G_FALSE
691: ,p_commit => FND_API.G_FALSE
692: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
693: ,p_resale_batch_id => p_resale_batch_id
694: ,p_line_id => l_line_id
695: ,x_return_status => l_return_status
688: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
689: p_api_version => 1
690: ,p_init_msg_list => FND_API.G_FALSE
691: ,p_commit => FND_API.G_FALSE
692: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
693: ,p_resale_batch_id => p_resale_batch_id
694: ,p_line_id => l_line_id
695: ,x_return_status => l_return_status
696: ,x_msg_data => l_msg_data
695: ,x_return_status => l_return_status
696: ,x_msg_data => l_msg_data
697: ,x_msg_count => l_msg_count
698: );
699: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
700: RAISE FND_API.G_EXC_ERROR;
701: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703: END IF;
696: ,x_msg_data => l_msg_data
697: ,x_msg_count => l_msg_count
698: );
699: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
700: RAISE FND_API.G_EXC_ERROR;
701: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703: END IF;
704: END IF;
697: ,x_msg_count => l_msg_count
698: );
699: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
700: RAISE FND_API.G_EXC_ERROR;
701: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703: END IF;
704: END IF;
705:
698: );
699: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
700: RAISE FND_API.G_EXC_ERROR;
701: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
702: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
703: END IF;
704: END IF;
705:
706: << END_ORDER_LINE >>
735: WHERE resale_batch_id = p_resale_batch_id;
736: EXCEPTION
737: WHEN OTHERS THEN
738: ozf_utility_pvt.error_message('OZF_UPD_RESALE_WRG','TEXT',l_full_name||': END');
739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
740: END;
741:
742: ELSE
743: -- Only disputed and processed batch can be paid.
741:
742: ELSE
743: -- Only disputed and processed batch can be paid.
744: ozf_utility_pvt.error_message('OZF_RESALE_WRONG_STAUS_TO_PAY');
745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
746: END IF;
747:
748: -- Debug Message
749: IF OZF_DEBUG_HIGH_ON THEN
750: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
751: END IF;
752: --Standard call to get message count and if count=1, get the message
753: FND_MSG_PUB.Count_And_Get (
754: p_encoded => FND_API.G_FALSE,
755: p_count => x_msg_count,
756: p_data => x_msg_data
757: );
758: x_return_status := l_return_status;
756: p_data => x_msg_data
757: );
758: x_return_status := l_return_status;
759: EXCEPTION
760: WHEN FND_API.G_EXC_ERROR THEN
761: x_return_status := FND_API.G_RET_STS_ERROR;
762: -- Standard call to get message count and if count=1, get the message
763: FND_MSG_PUB.Count_And_Get (
764: p_encoded => FND_API.G_FALSE,
757: );
758: x_return_status := l_return_status;
759: EXCEPTION
760: WHEN FND_API.G_EXC_ERROR THEN
761: x_return_status := FND_API.G_RET_STS_ERROR;
762: -- Standard call to get message count and if count=1, get the message
763: FND_MSG_PUB.Count_And_Get (
764: p_encoded => FND_API.G_FALSE,
765: p_count => x_msg_count,
760: WHEN FND_API.G_EXC_ERROR THEN
761: x_return_status := FND_API.G_RET_STS_ERROR;
762: -- Standard call to get message count and if count=1, get the message
763: FND_MSG_PUB.Count_And_Get (
764: p_encoded => FND_API.G_FALSE,
765: p_count => x_msg_count,
766: p_data => x_msg_data
767: );
768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
764: p_encoded => FND_API.G_FALSE,
765: p_count => x_msg_count,
766: p_data => x_msg_data
767: );
768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
769: ROLLBACK TO TRAC_INITIATE_PAYMENT;
770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
771:
772: -- Standard call to get message count and if count=1, get the message
766: p_data => x_msg_data
767: );
768: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
769: ROLLBACK TO TRAC_INITIATE_PAYMENT;
770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
771:
772: -- Standard call to get message count and if count=1, get the message
773: FND_MSG_PUB.Count_And_Get (
774: p_encoded => FND_API.G_FALSE,
770: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
771:
772: -- Standard call to get message count and if count=1, get the message
773: FND_MSG_PUB.Count_And_Get (
774: p_encoded => FND_API.G_FALSE,
775: p_count => x_msg_count,
776: p_data => x_msg_data
777: );
778: WHEN OTHERS THEN
776: p_data => x_msg_data
777: );
778: WHEN OTHERS THEN
779: ROLLBACK TO TRAC_INITIATE_PAYMENT;
780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
781:
782: -- Standard call to get message count and if count=1, get the message
783: FND_MSG_PUB.Count_And_Get (
784: p_encoded => FND_API.G_FALSE,
780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
781:
782: -- Standard call to get message count and if count=1, get the message
783: FND_MSG_PUB.Count_And_Get (
784: p_encoded => FND_API.G_FALSE,
785: p_count => x_msg_count,
786: p_data => x_msg_data
787: );
788: END Initiate_payment;
801: -- NOTES
802: ---------------------------------------------------------------------
803: PROCEDURE Validate_Order_Record(
804: p_api_version IN NUMBER
805: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
806: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
807: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
808: ,p_resale_batch_id IN NUMBER
809: ,x_return_status OUT NOCOPY VARCHAR2
802: ---------------------------------------------------------------------
803: PROCEDURE Validate_Order_Record(
804: p_api_version IN NUMBER
805: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
806: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
807: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
808: ,p_resale_batch_id IN NUMBER
809: ,x_return_status OUT NOCOPY VARCHAR2
810: ,x_msg_data OUT NOCOPY VARCHAR2
803: PROCEDURE Validate_Order_Record(
804: p_api_version IN NUMBER
805: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
806: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
807: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
808: ,p_resale_batch_id IN NUMBER
809: ,x_return_status OUT NOCOPY VARCHAR2
810: ,x_msg_data OUT NOCOPY VARCHAR2
811: ,x_msg_count OUT NOCOPY NUMBER
828:
829: BEGIN
830: -- Standard begin of API savepoint
831: -- Standard call to check for call compatibility.
832: IF NOT FND_API.Compatible_API_Call (
833: l_api_version,
834: p_api_version,
835: l_api_name,
836: G_PKG_NAME)
834: p_api_version,
835: l_api_name,
836: G_PKG_NAME)
837: THEN
838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
839: END IF;
840:
841: -- Debug Message
842: IF OZF_DEBUG_HIGH_ON THEN
843: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
844: END IF;
845:
846: --Initialize message list if p_init_msg_list is TRUE.
847: IF FND_API.To_Boolean (p_init_msg_list) THEN
848: FND_MSG_PUB.initialize;
849: END IF;
850:
851: -- Initialize API return status to sucess
848: FND_MSG_PUB.initialize;
849: END IF;
850:
851: -- Initialize API return status to sucess
852: x_return_status := FND_API.G_RET_STS_SUCCESS;
853:
854: OPEN non_tracing_count_csr (p_resale_batch_id);
855: FETCH non_tracing_count_csr INTO l_non_tracing_count;
856: CLOSE non_tracing_count_csr;
890: OZF_UTILITY_PVT.error_message(
891: p_message_name => 'OZF_INS_RESALE_LOG_WRG',
892: p_token_name => 'TEXT',
893: p_token_value => l_full_name||': END');
894: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
895: END;
896:
897: UPDATE ozf_resale_lines_int_all
898: SET status_code = 'DISPUTED',
909: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
910: END IF;
911: --Standard call to get message count and if count=1, get the message
912: FND_MSG_PUB.Count_And_Get (
913: p_encoded => FND_API.G_FALSE,
914: p_count => x_msg_count,
915: p_data => x_msg_data
916: );
917: EXCEPTION
914: p_count => x_msg_count,
915: p_data => x_msg_data
916: );
917: EXCEPTION
918: WHEN FND_API.G_EXC_ERROR THEN
919: x_return_status := FND_API.G_RET_STS_ERROR;
920: -- Standard call to get message count and if count=1, get the message
921: FND_MSG_PUB.Count_And_Get (
922: p_encoded => FND_API.G_FALSE,
915: p_data => x_msg_data
916: );
917: EXCEPTION
918: WHEN FND_API.G_EXC_ERROR THEN
919: x_return_status := FND_API.G_RET_STS_ERROR;
920: -- Standard call to get message count and if count=1, get the message
921: FND_MSG_PUB.Count_And_Get (
922: p_encoded => FND_API.G_FALSE,
923: p_count => x_msg_count,
918: WHEN FND_API.G_EXC_ERROR THEN
919: x_return_status := FND_API.G_RET_STS_ERROR;
920: -- Standard call to get message count and if count=1, get the message
921: FND_MSG_PUB.Count_And_Get (
922: p_encoded => FND_API.G_FALSE,
923: p_count => x_msg_count,
924: p_data => x_msg_data
925: );
926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
922: p_encoded => FND_API.G_FALSE,
923: p_count => x_msg_count,
924: p_data => x_msg_data
925: );
926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
928: -- Standard call to get message count and if count=1, get the message
929: FND_MSG_PUB.Count_And_Get (
930: p_encoded => FND_API.G_FALSE,
923: p_count => x_msg_count,
924: p_data => x_msg_data
925: );
926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
928: -- Standard call to get message count and if count=1, get the message
929: FND_MSG_PUB.Count_And_Get (
930: p_encoded => FND_API.G_FALSE,
931: p_count => x_msg_count,
926: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
928: -- Standard call to get message count and if count=1, get the message
929: FND_MSG_PUB.Count_And_Get (
930: p_encoded => FND_API.G_FALSE,
931: p_count => x_msg_count,
932: p_data => x_msg_data
933: );
934: WHEN OTHERS THEN
931: p_count => x_msg_count,
932: p_data => x_msg_data
933: );
934: WHEN OTHERS THEN
935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936:
937: -- Standard call to get message count and if count=1, get the message
938: FND_MSG_PUB.Count_And_Get (
939: p_encoded => FND_API.G_FALSE,
935: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
936:
937: -- Standard call to get message count and if count=1, get the message
938: FND_MSG_PUB.Count_And_Get (
939: p_encoded => FND_API.G_FALSE,
940: p_count => x_msg_count,
941: p_data => x_msg_data
942: );
943: END Validate_Order_Record;
957: ---------------------------------------------------------------------
958: PROCEDURE Process_Order
959: (
960: p_api_version IN NUMBER
961: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
962: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
963: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
964: ,p_resale_batch_id IN NUMBER
965: ,x_return_status OUT NOCOPY VARCHAR2
958: PROCEDURE Process_Order
959: (
960: p_api_version IN NUMBER
961: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
962: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
963: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
964: ,p_resale_batch_id IN NUMBER
965: ,x_return_status OUT NOCOPY VARCHAR2
966: ,x_msg_data OUT NOCOPY VARCHAR2
959: (
960: p_api_version IN NUMBER
961: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
962: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
963: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
964: ,p_resale_batch_id IN NUMBER
965: ,x_return_status OUT NOCOPY VARCHAR2
966: ,x_msg_data OUT NOCOPY VARCHAR2
967: ,x_msg_count OUT NOCOPY NUMBER
1034: BEGIN
1035: -- Standard begin of API savepoint
1036: SAVEPOINT PROCESS_TRAC_ORDER;
1037: -- Standard call to check for call compatibility.
1038: IF NOT FND_API.Compatible_API_Call (
1039: l_api_version,
1040: p_api_version,
1041: l_api_name,
1042: G_PKG_NAME)
1040: p_api_version,
1041: l_api_name,
1042: G_PKG_NAME)
1043: THEN
1044: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1045: END IF;
1046:
1047: -- Debug Message
1048: IF OZF_DEBUG_HIGH_ON THEN
1049: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
1050: END IF;
1051:
1052: --Initialize message list if p_init_msg_list is TRUE.
1053: IF FND_API.To_Boolean (p_init_msg_list) THEN
1054: FND_MSG_PUB.initialize;
1055: END IF;
1056:
1057: -- Initialize API return status to sucess
1054: FND_MSG_PUB.initialize;
1055: END IF;
1056:
1057: -- Initialize API return status to sucess
1058: x_return_status := FND_API.G_RET_STS_SUCCESS;
1059:
1060:
1061: /*
1062: OZF_RESALE_COMMON_PVT.Delete_Log(
1060:
1061: /*
1062: OZF_RESALE_COMMON_PVT.Delete_Log(
1063: p_api_version => 1.0
1064: ,p_init_msg_list => FND_API.G_FALSE
1065: ,p_commit => FND_API.G_FALSE
1066: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1067: ,p_resale_batch_id => p_resale_batch_id
1068: ,x_return_status => l_return_status
1061: /*
1062: OZF_RESALE_COMMON_PVT.Delete_Log(
1063: p_api_version => 1.0
1064: ,p_init_msg_list => FND_API.G_FALSE
1065: ,p_commit => FND_API.G_FALSE
1066: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1067: ,p_resale_batch_id => p_resale_batch_id
1068: ,x_return_status => l_return_status
1069: ,x_msg_count => l_msg_count
1062: OZF_RESALE_COMMON_PVT.Delete_Log(
1063: p_api_version => 1.0
1064: ,p_init_msg_list => FND_API.G_FALSE
1065: ,p_commit => FND_API.G_FALSE
1066: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1067: ,p_resale_batch_id => p_resale_batch_id
1068: ,x_return_status => l_return_status
1069: ,x_msg_count => l_msg_count
1070: ,x_msg_data => l_msg_data
1068: ,x_return_status => l_return_status
1069: ,x_msg_count => l_msg_count
1070: ,x_msg_data => l_msg_data
1071: );
1072: IF l_return_status = FND_API.g_ret_sts_error THEN
1073: RAISE FND_API.g_exc_error;
1074: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1075: RAISE FND_API.g_exc_unexpected_error;
1076: END IF;
1069: ,x_msg_count => l_msg_count
1070: ,x_msg_data => l_msg_data
1071: );
1072: IF l_return_status = FND_API.g_ret_sts_error THEN
1073: RAISE FND_API.g_exc_error;
1074: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1075: RAISE FND_API.g_exc_unexpected_error;
1076: END IF;
1077: */
1070: ,x_msg_data => l_msg_data
1071: );
1072: IF l_return_status = FND_API.g_ret_sts_error THEN
1073: RAISE FND_API.g_exc_error;
1074: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1075: RAISE FND_API.g_exc_unexpected_error;
1076: END IF;
1077: */
1078:
1071: );
1072: IF l_return_status = FND_API.g_ret_sts_error THEN
1073: RAISE FND_API.g_exc_error;
1074: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1075: RAISE FND_API.g_exc_unexpected_error;
1076: END IF;
1077: */
1078:
1079: -- fetch all orders into a cursor.
1108: IF (l_direct_order_flag <> 'Y') THEN
1109: -- Bug 4380203 Fixing (+)
1110: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1111: p_api_version => 1.0
1112: ,p_init_msg_list => FND_API.G_FALSE
1113: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1114: ,p_resale_batch_id => p_resale_batch_id
1115: ,p_start_date => l_report_start_date
1116: ,p_end_date => l_report_end_date
1109: -- Bug 4380203 Fixing (+)
1110: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1111: p_api_version => 1.0
1112: ,p_init_msg_list => FND_API.G_FALSE
1113: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1114: ,p_resale_batch_id => p_resale_batch_id
1115: ,p_start_date => l_report_start_date
1116: ,p_end_date => l_report_end_date
1117: ,x_return_status => l_return_status
1117: ,x_return_status => l_return_status
1118: ,x_msg_count => l_msg_count
1119: ,x_msg_data => l_msg_data
1120: );
1121: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1122: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1123: RAISE FND_API.G_EXC_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1119: ,x_msg_data => l_msg_data
1120: );
1121: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1122: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1123: RAISE FND_API.G_EXC_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: END IF;
1120: );
1121: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1122: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1123: RAISE FND_API.G_EXC_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: END IF;
1128:
1122: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1123: RAISE FND_API.G_EXC_ERROR;
1124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1125: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1127: END IF;
1128:
1129: /*
1130: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1128:
1129: /*
1130: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1131: p_api_version => 1.0
1132: ,p_init_msg_list => FND_API.G_FALSE
1133: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1134: ,p_party_id => l_partner_party_id
1135: ,p_start_date => l_report_start_date
1136: ,x_return_status => l_return_status
1129: /*
1130: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1131: p_api_version => 1.0
1132: ,p_init_msg_list => FND_API.G_FALSE
1133: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1134: ,p_party_id => l_partner_party_id
1135: ,p_start_date => l_report_start_date
1136: ,x_return_status => l_return_status
1137: ,x_msg_count => l_msg_count
1181: AND resale_id_type = OZF_RESALE_COMMON_PVT.G_ID_TYPE_IFACE;
1182: EXCEPTION
1183: WHEN OTHERS THEN
1184: ozf_utility_pvt.error_message('OZF_DEL_RESALE_LOG_WRG');
1185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1186: END;
1187:
1188: /*
1189: For Bug#9447673 SSD IDSM ER - Restricting the
1194:
1195: -- Only need to Check inventory level
1196: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1197: p_api_version => 1.0
1198: ,p_init_msg_list => FND_API.G_FALSE
1199: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1200: ,p_line_int_rec => l_order_set_tbl(J)
1201: ,x_valid => l_inventory_level_valid
1202: ,x_return_status => l_return_status
1195: -- Only need to Check inventory level
1196: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1197: p_api_version => 1.0
1198: ,p_init_msg_list => FND_API.G_FALSE
1199: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1200: ,p_line_int_rec => l_order_set_tbl(J)
1201: ,x_valid => l_inventory_level_valid
1202: ,x_return_status => l_return_status
1203: ,x_msg_count => l_msg_count
1287: WHERE resale_batch_id = p_resale_batch_id;
1288: EXCEPTION
1289: WHEN OTHERS THEN
1290: ozf_utility_pvt.error_message('OZF_UPD_RESALE_BATCH_WRG');
1291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1292: END;
1293:
1294:
1295: -- Debug Message
1297: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
1298: END IF;
1299: --Standard call to get message count and if count=1, get the message
1300: FND_MSG_PUB.Count_And_Get (
1301: p_encoded => FND_API.G_FALSE,
1302: p_count => x_msg_count,
1303: p_data => x_msg_data
1304: );
1305:
1303: p_data => x_msg_data
1304: );
1305:
1306: EXCEPTION
1307: WHEN FND_API.G_EXC_ERROR THEN
1308: ROLLBACK TO PROCESS_TRAC_ORDER;
1309: x_return_status := FND_API.G_RET_STS_ERROR;
1310: -- Standard call to get message count and if count=1, get the message
1311: FND_MSG_PUB.Count_And_Get (
1305:
1306: EXCEPTION
1307: WHEN FND_API.G_EXC_ERROR THEN
1308: ROLLBACK TO PROCESS_TRAC_ORDER;
1309: x_return_status := FND_API.G_RET_STS_ERROR;
1310: -- Standard call to get message count and if count=1, get the message
1311: FND_MSG_PUB.Count_And_Get (
1312: p_encoded => FND_API.G_FALSE,
1313: p_count => x_msg_count,
1308: ROLLBACK TO PROCESS_TRAC_ORDER;
1309: x_return_status := FND_API.G_RET_STS_ERROR;
1310: -- Standard call to get message count and if count=1, get the message
1311: FND_MSG_PUB.Count_And_Get (
1312: p_encoded => FND_API.G_FALSE,
1313: p_count => x_msg_count,
1314: p_data => x_msg_data
1315: );
1316: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1312: p_encoded => FND_API.G_FALSE,
1313: p_count => x_msg_count,
1314: p_data => x_msg_data
1315: );
1316: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1317: ROLLBACK TO PROCESS_TRAC_ORDER;
1318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1319:
1320: -- Standard call to get message count and if count=1, get the message
1314: p_data => x_msg_data
1315: );
1316: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1317: ROLLBACK TO PROCESS_TRAC_ORDER;
1318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1319:
1320: -- Standard call to get message count and if count=1, get the message
1321: FND_MSG_PUB.Count_And_Get (
1322: p_encoded => FND_API.G_FALSE,
1318: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1319:
1320: -- Standard call to get message count and if count=1, get the message
1321: FND_MSG_PUB.Count_And_Get (
1322: p_encoded => FND_API.G_FALSE,
1323: p_count => x_msg_count,
1324: p_data => x_msg_data
1325: );
1326: WHEN OTHERS THEN
1324: p_data => x_msg_data
1325: );
1326: WHEN OTHERS THEN
1327: ROLLBACK TO PROCESS_TRAC_ORDER;
1328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1329:
1330: -- Standard call to get message count and if count=1, get the message
1331: FND_MSG_PUB.Count_And_Get (
1332: p_encoded => FND_API.G_FALSE,
1328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1329:
1330: -- Standard call to get message count and if count=1, get the message
1331: FND_MSG_PUB.Count_And_Get (
1332: p_encoded => FND_API.G_FALSE,
1333: p_count => x_msg_count,
1334: p_data => x_msg_data
1335: );
1336: END Process_Order;