[Home] [Help]
61: AND list_line_id = p_list_line_id;
62:
63: BEGIN
64: -- Initialize API return status to sucess
65: x_return_status := FND_API.G_RET_STS_SUCCESS;
66:
67: IF p_object_type <> 'PL' THEN
68: -- First it has to be an OMO offer
69: OPEN omo_offer_csr;
91: x_result:= false;
92: END IF;
93: END IF;
94: EXCEPTION
95: WHEN FND_API.G_EXC_ERROR THEN
96: x_return_status := FND_API.G_RET_STS_ERROR;
97: WHEN OTHERS THEN
98: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
99: ozf_utility_pvt.error_message('OZF_RESALE_IS_TM_OFFER');
92: END IF;
93: END IF;
94: EXCEPTION
95: WHEN FND_API.G_EXC_ERROR THEN
96: x_return_status := FND_API.G_RET_STS_ERROR;
97: WHEN OTHERS THEN
98: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
99: ozf_utility_pvt.error_message('OZF_RESALE_IS_TM_OFFER');
100: END is_valid_offer;
94: EXCEPTION
95: WHEN FND_API.G_EXC_ERROR THEN
96: x_return_status := FND_API.G_RET_STS_ERROR;
97: WHEN OTHERS THEN
98: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
99: ozf_utility_pvt.error_message('OZF_RESALE_IS_TM_OFFER');
100: END is_valid_offer;
101:
102: ---------------------------------------------------------------------
112: -- NOTES
113: ---------------------------------------------------------------------
114: PROCEDURE Validate_Batch(
115: p_api_version IN NUMBER
116: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
117: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
118: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
119: ,p_resale_batch_id IN NUMBER
120: ,x_return_status OUT NOCOPY VARCHAR2
113: ---------------------------------------------------------------------
114: PROCEDURE Validate_Batch(
115: p_api_version IN NUMBER
116: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
117: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
118: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
119: ,p_resale_batch_id IN NUMBER
120: ,x_return_status OUT NOCOPY VARCHAR2
121: ,x_msg_data OUT NOCOPY VARCHAR2
114: PROCEDURE Validate_Batch(
115: p_api_version IN NUMBER
116: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
117: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
118: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
119: ,p_resale_batch_id IN NUMBER
120: ,x_return_status OUT NOCOPY VARCHAR2
121: ,x_msg_data OUT NOCOPY VARCHAR2
122: ,x_msg_count OUT NOCOPY NUMBER
137:
138: BEGIN
139: -- Standard begin of API savepoint
140: -- Standard call to check for call compatibility.
141: IF NOT FND_API.Compatible_API_Call (
142: l_api_version,
143: p_api_version,
144: l_api_name,
145: G_PKG_NAME)
143: p_api_version,
144: l_api_name,
145: G_PKG_NAME)
146: THEN
147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
148: END IF;
149:
150: -- Initialize API return status to sucess
151: x_return_status := FND_API.G_RET_STS_SUCCESS;
147: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
148: END IF;
149:
150: -- Initialize API return status to sucess
151: x_return_status := FND_API.G_RET_STS_SUCCESS;
152:
153: --Initialize message list if p_init_msg_list is TRUE.
154: IF FND_API.To_Boolean (p_init_msg_list) THEN
155: FND_MSG_PUB.initialize;
150: -- Initialize API return status to sucess
151: x_return_status := FND_API.G_RET_STS_SUCCESS;
152:
153: --Initialize message list if p_init_msg_list is TRUE.
154: IF FND_API.To_Boolean (p_init_msg_list) THEN
155: FND_MSG_PUB.initialize;
156: END IF;
157:
158: -- Debug Message
168:
169: -- Check status
170: IF l_status_code <> 'CLOSED' THEN
171:
172: x_return_status := FND_API.G_RET_STS_ERROR;
173: ozf_utility_pvt.error_message('OZF_BATCH_STATUS_WNG');
174: BEGIN
175: INSERT INTO ozf_resale_logs_all(
176: resale_log_id,
203: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
204: FND_MESSAGE.set_name('OZF', 'OZF_INS_RESALE_LOG_WRG');
205: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
206: FND_MSG_PUB.add;
207: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
208: END IF;
209: END;
210: END IF;
211:
215: END IF;
216:
217: --Standard call to get message count and if count=1, get the message
218: FND_MSG_PUB.Count_And_Get (
219: p_encoded => FND_API.G_FALSE,
220: p_count => x_msg_count,
221: p_data => x_msg_data
222: );
223: EXCEPTION
220: p_count => x_msg_count,
221: p_data => x_msg_data
222: );
223: EXCEPTION
224: WHEN FND_API.G_EXC_ERROR THEN
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: -- Standard call to get message count and if count=1, get the message
227: FND_MSG_PUB.Count_And_Get (
228: p_encoded => FND_API.G_FALSE,
221: p_data => x_msg_data
222: );
223: EXCEPTION
224: WHEN FND_API.G_EXC_ERROR THEN
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: -- Standard call to get message count and if count=1, get the message
227: FND_MSG_PUB.Count_And_Get (
228: p_encoded => FND_API.G_FALSE,
229: p_count => x_msg_count,
224: WHEN FND_API.G_EXC_ERROR THEN
225: x_return_status := FND_API.G_RET_STS_ERROR;
226: -- Standard call to get message count and if count=1, get the message
227: FND_MSG_PUB.Count_And_Get (
228: p_encoded => FND_API.G_FALSE,
229: p_count => x_msg_count,
230: p_data => x_msg_data
231: );
232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
228: p_encoded => FND_API.G_FALSE,
229: p_count => x_msg_count,
230: p_data => x_msg_data
231: );
232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234: -- Standard call to get message count and if count=1, get the message
235: FND_MSG_PUB.Count_And_Get (
236: p_encoded => FND_API.G_FALSE,
229: p_count => x_msg_count,
230: p_data => x_msg_data
231: );
232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234: -- Standard call to get message count and if count=1, get the message
235: FND_MSG_PUB.Count_And_Get (
236: p_encoded => FND_API.G_FALSE,
237: p_count => x_msg_count,
232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234: -- Standard call to get message count and if count=1, get the message
235: FND_MSG_PUB.Count_And_Get (
236: p_encoded => FND_API.G_FALSE,
237: p_count => x_msg_count,
238: p_data => x_msg_data
239: );
240: WHEN OTHERS THEN
237: p_count => x_msg_count,
238: p_data => x_msg_data
239: );
240: WHEN OTHERS THEN
241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
242:
243: -- Standard call to get message count and if count=1, get the message
244: FND_MSG_PUB.Count_And_Get (
245: p_encoded => FND_API.G_FALSE,
241: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
242:
243: -- Standard call to get message count and if count=1, get the message
244: FND_MSG_PUB.Count_And_Get (
245: p_encoded => FND_API.G_FALSE,
246: p_count => x_msg_count,
247: p_data => x_msg_data
248: );
249: END Validate_Batch;
262: -- NOTES
263: ---------------------------------------------------------------------
264: PROCEDURE Validate_Order_Record(
265: p_api_version IN NUMBER
266: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
267: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
268: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
269: ,p_resale_batch_id IN NUMBER
270: ,p_caller_type IN VARCHAR2
263: ---------------------------------------------------------------------
264: PROCEDURE Validate_Order_Record(
265: p_api_version IN NUMBER
266: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
267: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
268: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
269: ,p_resale_batch_id IN NUMBER
270: ,p_caller_type IN VARCHAR2
271: ,x_return_status OUT NOCOPY VARCHAR2
264: PROCEDURE Validate_Order_Record(
265: p_api_version IN NUMBER
266: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
267: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
268: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
269: ,p_resale_batch_id IN NUMBER
270: ,p_caller_type IN VARCHAR2
271: ,x_return_status OUT NOCOPY VARCHAR2
272: ,x_msg_data OUT NOCOPY VARCHAR2
279:
280: BEGIN
281: -- Standard BEGIN of API savepoint
282: -- Standard call to check for call compatibility.
283: IF NOT FND_API.Compatible_API_Call (
284: l_api_version,
285: p_api_version,
286: l_api_name,
287: G_PKG_NAME)
285: p_api_version,
286: l_api_name,
287: G_PKG_NAME)
288: THEN
289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
290: END IF;
291:
292: --Initialize message list if p_init_msg_list is TRUE.
293: IF FND_API.To_Boolean (p_init_msg_list) THEN
289: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
290: END IF;
291:
292: --Initialize message list if p_init_msg_list is TRUE.
293: IF FND_API.To_Boolean (p_init_msg_list) THEN
294: FND_MSG_PUB.initialize;
295: END IF;
296:
297: -- Debug Message
299: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
300: END IF;
301:
302: -- Initialize API return status to sucess
303: x_return_status := FND_API.G_RET_STS_SUCCESS;
304:
305: -- Make sure that selling_price is not NULL for direct customers
306: IF p_caller_type = 'IFACE' THEN
307: BEGIN
337: );
338: EXCEPTION
339: WHEN OTHERS THEN
340: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
341: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
342: END;
343:
344: BEGIN
345: UPDATE ozf_resale_lines_int_all
351: AND resale_batch_id = p_resale_batch_id;
352: EXCEPTION
353: WHEN OTHERS THEN
354: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
356: END;
357:
358: ELSE
359: BEGIN
389: );
390: EXCEPTION
391: WHEN OTHERS THEN
392: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
393: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
394: END;
395: END IF;
396:
397: -- Debug Message
399: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
400: END IF;
401: --Standard call to get message count and if count=1, get the message
402: FND_MSG_PUB.Count_And_Get (
403: p_encoded => FND_API.G_FALSE,
404: p_count => x_msg_count,
405: p_data => x_msg_data
406: );
407: EXCEPTION
404: p_count => x_msg_count,
405: p_data => x_msg_data
406: );
407: EXCEPTION
408: WHEN FND_API.G_EXC_ERROR THEN
409: x_return_status := FND_API.G_RET_STS_ERROR;
410: -- Standard call to get message count and if count=1, get the message
411: FND_MSG_PUB.Count_And_Get (
412: p_encoded => FND_API.G_FALSE,
405: p_data => x_msg_data
406: );
407: EXCEPTION
408: WHEN FND_API.G_EXC_ERROR THEN
409: x_return_status := FND_API.G_RET_STS_ERROR;
410: -- Standard call to get message count and if count=1, get the message
411: FND_MSG_PUB.Count_And_Get (
412: p_encoded => FND_API.G_FALSE,
413: p_count => x_msg_count,
408: WHEN FND_API.G_EXC_ERROR THEN
409: x_return_status := FND_API.G_RET_STS_ERROR;
410: -- Standard call to get message count and if count=1, get the message
411: FND_MSG_PUB.Count_And_Get (
412: p_encoded => FND_API.G_FALSE,
413: p_count => x_msg_count,
414: p_data => x_msg_data
415: );
416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
412: p_encoded => FND_API.G_FALSE,
413: p_count => x_msg_count,
414: p_data => x_msg_data
415: );
416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418: -- Standard call to get message count and if count=1, get the message
419: FND_MSG_PUB.Count_And_Get (
420: p_encoded => FND_API.G_FALSE,
413: p_count => x_msg_count,
414: p_data => x_msg_data
415: );
416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418: -- Standard call to get message count and if count=1, get the message
419: FND_MSG_PUB.Count_And_Get (
420: p_encoded => FND_API.G_FALSE,
421: p_count => x_msg_count,
416: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
418: -- Standard call to get message count and if count=1, get the message
419: FND_MSG_PUB.Count_And_Get (
420: p_encoded => FND_API.G_FALSE,
421: p_count => x_msg_count,
422: p_data => x_msg_data
423: );
424: WHEN OTHERS THEN
421: p_count => x_msg_count,
422: p_data => x_msg_data
423: );
424: WHEN OTHERS THEN
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426:
427: -- Standard call to get message count and if count=1, get the message
428: FND_MSG_PUB.Count_And_Get (
429: p_encoded => FND_API.G_FALSE,
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426:
427: -- Standard call to get message count and if count=1, get the message
428: FND_MSG_PUB.Count_And_Get (
429: p_encoded => FND_API.G_FALSE,
430: p_count => x_msg_count,
431: p_data => x_msg_data
432: );
433: END Validate_Order_Record;
568: END IF;
569:
570: SAVEPOINT PROC_ONE_LINE;
571:
572: x_return_status := FND_API.G_RET_STS_SUCCESS;
573:
574: -- Make sure that records are passed in due to different caller type
575: IF p_caller_type = 'IFACE' AND
576: p_resale_line_int_rec.resale_line_int_id IS NULL THEN
574: -- Make sure that records are passed in due to different caller type
575: IF p_caller_type = 'IFACE' AND
576: p_resale_line_int_rec.resale_line_int_id IS NULL THEN
577: ozf_utility_pvt.error_message('OZF_RESALE_INT_RECD_NULL');
578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
579: END IF;
580:
581: IF p_caller_type = 'RESALE' AND
582: p_resale_line_rec.resale_line_id IS NULL THEN
580:
581: IF p_caller_type = 'RESALE' AND
582: p_resale_line_rec.resale_line_id IS NULL THEN
583: ozf_utility_pvt.error_message('OZF_RESALE_RECD_NULL');
584: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
585: END IF;
586:
587: -- create a resale line record, if it's FROM iface
588: IF p_caller_type = 'IFACE' THEN
587: -- create a resale line record, if it's FROM iface
588: IF p_caller_type = 'IFACE' THEN
589: OZF_RESALE_COMMON_PVT.Insert_resale_line(
590: p_api_version => 1
591: ,p_init_msg_list => FND_API.G_FALSE
592: ,p_commit => FND_API.G_FALSE
593: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
594: ,p_line_int_rec => p_resale_line_int_rec
595: ,p_header_id => p_header_id
588: IF p_caller_type = 'IFACE' THEN
589: OZF_RESALE_COMMON_PVT.Insert_resale_line(
590: p_api_version => 1
591: ,p_init_msg_list => FND_API.G_FALSE
592: ,p_commit => FND_API.G_FALSE
593: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
594: ,p_line_int_rec => p_resale_line_int_rec
595: ,p_header_id => p_header_id
596: ,x_line_id => l_line_id
589: OZF_RESALE_COMMON_PVT.Insert_resale_line(
590: p_api_version => 1
591: ,p_init_msg_list => FND_API.G_FALSE
592: ,p_commit => FND_API.G_FALSE
593: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
594: ,p_line_int_rec => p_resale_line_int_rec
595: ,p_header_id => p_header_id
596: ,x_line_id => l_line_id
597: ,x_return_status => l_return_status
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_SUCCESS THEN
602: ozf_utility_pvt.error_message('OZF_INS_RESALE_LINE_WRG');
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605:
599: ,x_msg_count => l_msg_count
600: );
601: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
602: ozf_utility_pvt.error_message('OZF_INS_RESALE_LINE_WRG');
603: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605:
606: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
607: p_api_version => 1
604: END IF;
605:
606: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
607: p_api_version => 1
608: ,p_init_msg_list => FND_API.G_FALSE
609: ,p_commit => FND_API.G_FALSE
610: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
611: ,p_resale_batch_id => p_resale_batch_id
612: ,p_line_id => l_line_id
605:
606: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
607: p_api_version => 1
608: ,p_init_msg_list => FND_API.G_FALSE
609: ,p_commit => FND_API.G_FALSE
610: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
611: ,p_resale_batch_id => p_resale_batch_id
612: ,p_line_id => l_line_id
613: ,x_return_status => l_return_status
606: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
607: p_api_version => 1
608: ,p_init_msg_list => FND_API.G_FALSE
609: ,p_commit => FND_API.G_FALSE
610: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
611: ,p_resale_batch_id => p_resale_batch_id
612: ,p_line_id => l_line_id
613: ,x_return_status => l_return_status
614: ,x_msg_data => l_msg_data
613: ,x_return_status => l_return_status
614: ,x_msg_data => l_msg_data
615: ,x_msg_count => l_msg_count
616: );
617: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
618: RAISE FND_API.G_EXC_ERROR;
619: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: END IF;
614: ,x_msg_data => l_msg_data
615: ,x_msg_count => l_msg_count
616: );
617: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
618: RAISE FND_API.G_EXC_ERROR;
619: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: END IF;
622:
615: ,x_msg_count => l_msg_count
616: );
617: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
618: RAISE FND_API.G_EXC_ERROR;
619: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: END IF;
622:
623: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction(
616: );
617: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
618: RAISE FND_API.G_EXC_ERROR;
619: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
621: END IF;
622:
623: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction(
624: p_api_version => 1
621: END IF;
622:
623: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction(
624: p_api_version => 1
625: ,p_init_msg_list => FND_API.G_FALSE
626: ,p_commit => FND_API.G_FALSE
627: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
628: ,p_line_int_rec => p_resale_line_int_rec
629: ,p_header_id => p_header_id
622:
623: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction(
624: p_api_version => 1
625: ,p_init_msg_list => FND_API.G_FALSE
626: ,p_commit => FND_API.G_FALSE
627: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
628: ,p_line_int_rec => p_resale_line_int_rec
629: ,p_header_id => p_header_id
630: ,p_line_id => l_line_id
623: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction(
624: p_api_version => 1
625: ,p_init_msg_list => FND_API.G_FALSE
626: ,p_commit => FND_API.G_FALSE
627: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
628: ,p_line_int_rec => p_resale_line_int_rec
629: ,p_header_id => p_header_id
630: ,p_line_id => l_line_id
631: ,x_sales_transaction_id => l_sales_transaction_id
632: ,x_return_status => l_return_status
633: ,x_msg_data => l_msg_data
634: ,x_msg_count => l_msg_count
635: );
636: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
637: RAISE FND_API.G_EXC_ERROR;
638: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: END IF;
633: ,x_msg_data => l_msg_data
634: ,x_msg_count => l_msg_count
635: );
636: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
637: RAISE FND_API.G_EXC_ERROR;
638: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: END IF;
641:
634: ,x_msg_count => l_msg_count
635: );
636: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
637: RAISE FND_API.G_EXC_ERROR;
638: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: END IF;
641:
642: -- Bug 4380203 (+)
635: );
636: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
637: RAISE FND_API.G_EXC_ERROR;
638: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
640: END IF;
641:
642: -- Bug 4380203 (+)
643: -- Bug 4380203 Fixing: Inventory Temp table is already updated in Validate_Inventory_Level
644: /*
645: IF p_inventory_tracking THEN
646: OZF_SALES_TRANSACTIONS_PVT.update_inventory_tmp (
647: p_api_version => 1.0
648: ,p_init_msg_list => FND_API.G_FALSE
649: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
650: ,p_sales_transaction_id => l_sales_transaction_id
651: ,x_return_status => l_return_status
652: ,x_msg_data => l_msg_data
645: IF p_inventory_tracking THEN
646: OZF_SALES_TRANSACTIONS_PVT.update_inventory_tmp (
647: p_api_version => 1.0
648: ,p_init_msg_list => FND_API.G_FALSE
649: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
650: ,p_sales_transaction_id => l_sales_transaction_id
651: ,x_return_status => l_return_status
652: ,x_msg_data => l_msg_data
653: ,x_msg_count => l_msg_count
651: ,x_return_status => l_return_status
652: ,x_msg_data => l_msg_data
653: ,x_msg_count => l_msg_count
654: );
655: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
656: RAISE FND_API.G_EXC_ERROR;
657: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
652: ,x_msg_data => l_msg_data
653: ,x_msg_count => l_msg_count
654: );
655: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
656: RAISE FND_API.G_EXC_ERROR;
657: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660: END IF;
653: ,x_msg_count => l_msg_count
654: );
655: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
656: RAISE FND_API.G_EXC_ERROR;
657: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660: END IF;
661: */
654: );
655: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
656: RAISE FND_API.G_EXC_ERROR;
657: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
659: END IF;
660: END IF;
661: */
662: -- Bug 4380203 (-)
757: p_object_type => l_object_type,
758: x_result => l_is_valid_offer,
759: x_return_status => l_return_status
760: );
761: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
762: RAISE FND_API.G_EXC_ERROR;
763: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: END IF;
758: x_result => l_is_valid_offer,
759: x_return_status => l_return_status
760: );
761: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
762: RAISE FND_API.G_EXC_ERROR;
763: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: END IF;
766:
759: x_return_status => l_return_status
760: );
761: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
762: RAISE FND_API.G_EXC_ERROR;
763: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: END IF;
766:
767: IF OZF_DEBUG_LOW_ON THEN
760: );
761: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
762: RAISE FND_API.G_EXC_ERROR;
763: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
765: END IF;
766:
767: IF OZF_DEBUG_LOW_ON THEN
768: IF l_is_valid_offer OR l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
801:
802: -- R12 Volumn Offer Enhancement (+)
803: IF l_object_type = 'OFFR' THEN
804: OZF_VOLUME_CALCULATION_PUB.Update_Tracking_Line(
805: p_init_msg_list => FND_API.g_false
806: ,p_api_version => 1.0
807: ,p_commit => FND_API.g_false
808: ,x_return_status => l_return_status
809: ,x_msg_count => l_msg_count
803: IF l_object_type = 'OFFR' THEN
804: OZF_VOLUME_CALCULATION_PUB.Update_Tracking_Line(
805: p_init_msg_list => FND_API.g_false
806: ,p_api_version => 1.0
807: ,p_commit => FND_API.g_false
808: ,x_return_status => l_return_status
809: ,x_msg_count => l_msg_count
810: ,x_msg_data => l_msg_data
811: ,p_list_header_id => l_ldets_tbl(k).list_header_id
811: ,p_list_header_id => l_ldets_tbl(k).list_header_id
812: ,p_interface_line_id => p_resale_line_int_rec.resale_line_int_id
813: ,p_resale_line_id => l_line_id
814: );
815: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
816: RAISE FND_API.G_EXC_ERROR;
817: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
819: END IF;
812: ,p_interface_line_id => p_resale_line_int_rec.resale_line_int_id
813: ,p_resale_line_id => l_line_id
814: );
815: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
816: RAISE FND_API.G_EXC_ERROR;
817: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
819: END IF;
820: END IF;
813: ,p_resale_line_id => l_line_id
814: );
815: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
816: RAISE FND_API.G_EXC_ERROR;
817: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
819: END IF;
820: END IF;
821: -- R12 Volumn Offer Enhancement (-)
814: );
815: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
816: RAISE FND_API.G_EXC_ERROR;
817: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
818: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
819: END IF;
820: END IF;
821: -- R12 Volumn Offer Enhancement (-)
822:
966: -- Get fund info for price difference
967: -- get chargeback budget id FROM profile
968: IF p_price_diff_fund_id IS NULL THEN
969: ozf_utility_pvt.error_message('OZF_THRDPTY_BUDGET_ERR');
970: RAISE FND_API.g_exc_error;
971: ELSE
972: l_act_budgets_rec.parent_source_id := p_price_diff_fund_id;
973: END IF;
974:
976: 'FUND'
977: ,l_act_budgets_rec.parent_source_id
978: ,l_return_status
979: );
980: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
982: END IF;
983: l_act_budgets_rec.justification := 'THIRD PARTY PRICE DIFF';
984: ELSE
977: ,l_act_budgets_rec.parent_source_id
978: ,l_return_status
979: );
980: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
981: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
982: END IF;
983: l_act_budgets_rec.justification := 'THIRD PARTY PRICE DIFF';
984: ELSE
985: l_act_budgets_rec.arc_act_budget_used_by := 'OFFR';
989: 'OFFR'
990: ,l_ldets_tbl(k).list_header_id
991: ,l_return_status
992: );
993: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
995: END IF;
996: END IF;
997:
990: ,l_ldets_tbl(k).list_header_id
991: ,l_return_status
992: );
993: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
995: END IF;
996: END IF;
997:
998: -- get adjusted amount in budget currency
1008: OZF_UTILITY_PVT.convert_currency(
1009: p_from_currency => p_line_result_rec.currency_code
1010: ,p_to_currency => l_act_budgets_rec.request_currency
1011: ,p_conv_type => l_exchange_type
1012: ,p_conv_rate => FND_API.G_MISS_NUM
1013: ,p_conv_date => sysdate
1014: ,p_from_amount => l_act_budgets_rec.request_amount
1015: ,x_return_status => l_return_status
1016: ,x_to_amount => l_new_request_amount
1015: ,x_return_status => l_return_status
1016: ,x_to_amount => l_new_request_amount
1017: ,x_rate => l_rate
1018: );
1019: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1021: END IF;
1022: l_act_budgets_rec.request_amount := l_new_request_amount;
1023: END IF;
1016: ,x_to_amount => l_new_request_amount
1017: ,x_rate => l_rate
1018: );
1019: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1021: END IF;
1022: l_act_budgets_rec.request_amount := l_new_request_amount;
1023: END IF;
1024: IF OZF_DEBUG_LOW_ON THEN
1040: OZF_UTILITY_PVT.convert_currency(
1041: p_FROM_currency => p_line_result_rec.currency_code
1042: ,p_to_currency => l_act_budgets_rec.parent_src_curr
1043: ,p_conv_type => l_exchange_type
1044: ,p_conv_rate => FND_API.G_MISS_NUM
1045: ,p_conv_date => sysdate
1046: ,p_FROM_amount => l_act_budgets_rec.parent_src_apprvd_amt
1047: ,x_return_status => l_return_status
1048: ,x_to_amount => l_new_request_amount
1047: ,x_return_status => l_return_status
1048: ,x_to_amount => l_new_request_amount
1049: ,x_rate => l_rate
1050: );
1051: IF l_return_status = FND_API.g_ret_sts_error THEN
1052: RAISE FND_API.g_exc_error;
1053: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1054: RAISE FND_API.g_exc_error;
1055: END IF;
1048: ,x_to_amount => l_new_request_amount
1049: ,x_rate => l_rate
1050: );
1051: IF l_return_status = FND_API.g_ret_sts_error THEN
1052: RAISE FND_API.g_exc_error;
1053: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1054: RAISE FND_API.g_exc_error;
1055: END IF;
1056: l_act_budgets_rec.parent_src_apprvd_amt := l_new_request_amount;
1049: ,x_rate => l_rate
1050: );
1051: IF l_return_status = FND_API.g_ret_sts_error THEN
1052: RAISE FND_API.g_exc_error;
1053: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1054: RAISE FND_API.g_exc_error;
1055: END IF;
1056: l_act_budgets_rec.parent_src_apprvd_amt := l_new_request_amount;
1057: END IF;
1050: );
1051: IF l_return_status = FND_API.g_ret_sts_error THEN
1052: RAISE FND_API.g_exc_error;
1053: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1054: RAISE FND_API.g_exc_error;
1055: END IF;
1056: l_act_budgets_rec.parent_src_apprvd_amt := l_new_request_amount;
1057: END IF;
1058: END IF;
1087: l_adjustment_rec.calculated_amount IS NOT NULL);
1088: */
1089: OZF_RESALE_COMMON_PVT.Create_Adj_and_Utilization(
1090: p_api_version => 1
1091: ,p_init_msg_list => FND_API.G_FALSE
1092: ,p_commit => FND_API.G_FALSE
1093: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
1094: ,p_price_adj_rec => l_adjustment_rec
1095: ,p_act_budgets_rec => l_act_budgets_rec
1088: */
1089: OZF_RESALE_COMMON_PVT.Create_Adj_and_Utilization(
1090: p_api_version => 1
1091: ,p_init_msg_list => FND_API.G_FALSE
1092: ,p_commit => FND_API.G_FALSE
1093: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
1094: ,p_price_adj_rec => l_adjustment_rec
1095: ,p_act_budgets_rec => l_act_budgets_rec
1096: ,p_act_util_rec => l_act_util_rec
1089: OZF_RESALE_COMMON_PVT.Create_Adj_and_Utilization(
1090: p_api_version => 1
1091: ,p_init_msg_list => FND_API.G_FALSE
1092: ,p_commit => FND_API.G_FALSE
1093: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
1094: ,p_price_adj_rec => l_adjustment_rec
1095: ,p_act_budgets_rec => l_act_budgets_rec
1096: ,p_act_util_rec => l_act_util_rec
1097: ,p_to_create_utilization => l_to_create_utilization
1098: ,x_return_status => l_return_status
1099: ,x_msg_data => l_msg_data
1100: ,x_msg_count => l_msg_count
1101: );
1102: --IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1103: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: --END IF;
1105:
1106: IF l_return_status = fnd_api.g_ret_sts_error THEN
1099: ,x_msg_data => l_msg_data
1100: ,x_msg_count => l_msg_count
1101: );
1102: --IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1103: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: --END IF;
1105:
1106: IF l_return_status = fnd_api.g_ret_sts_error THEN
1107: RAISE fnd_api.g_exc_error;
1102: --IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1103: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: --END IF;
1105:
1106: IF l_return_status = fnd_api.g_ret_sts_error THEN
1107: RAISE fnd_api.g_exc_error;
1108: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1109: RAISE fnd_api.g_exc_unexpected_error;
1110: END IF;
1103: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1104: --END IF;
1105:
1106: IF l_return_status = fnd_api.g_ret_sts_error THEN
1107: RAISE fnd_api.g_exc_error;
1108: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1109: RAISE fnd_api.g_exc_unexpected_error;
1110: END IF;
1111:
1104: --END IF;
1105:
1106: IF l_return_status = fnd_api.g_ret_sts_error THEN
1107: RAISE fnd_api.g_exc_error;
1108: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1109: RAISE fnd_api.g_exc_unexpected_error;
1110: END IF;
1111:
1112: IF l_to_create_utilization AND
1105:
1106: IF l_return_status = fnd_api.g_ret_sts_error THEN
1107: RAISE fnd_api.g_exc_error;
1108: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1109: RAISE fnd_api.g_exc_unexpected_error;
1110: END IF;
1111:
1112: IF l_to_create_utilization AND
1113: l_act_budgets_rec.arc_act_budget_used_by = 'OFFR' THEN
1167: l_sales_transaction_rec.source_code := 'IS';
1168: END IF;
1169:
1170: OZF_VOLUME_CALCULATION_PUB.Create_Volume(
1171: p_init_msg_list => FND_API.g_false
1172: ,p_api_version => 1.0
1173: ,p_commit => FND_API.g_false
1174: ,x_return_status => l_return_status
1175: ,x_msg_count => l_msg_count
1169:
1170: OZF_VOLUME_CALCULATION_PUB.Create_Volume(
1171: p_init_msg_list => FND_API.g_false
1172: ,p_api_version => 1.0
1173: ,p_commit => FND_API.g_false
1174: ,x_return_status => l_return_status
1175: ,x_msg_count => l_msg_count
1176: ,x_msg_data => l_msg_data
1177: ,p_volume_detail_rec => l_sales_transaction_rec
1177: ,p_volume_detail_rec => l_sales_transaction_rec
1178: ,p_qp_list_header_id => l_ldets_tbl(k).list_header_id
1179: ,x_apply_discount => l_vol_offr_apply_discount
1180: );
1181: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1182: RAISE FND_API.G_EXC_ERROR;
1183: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1185: END IF;
1178: ,p_qp_list_header_id => l_ldets_tbl(k).list_header_id
1179: ,x_apply_discount => l_vol_offr_apply_discount
1180: );
1181: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1182: RAISE FND_API.G_EXC_ERROR;
1183: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1185: END IF;
1186:
1179: ,x_apply_discount => l_vol_offr_apply_discount
1180: );
1181: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1182: RAISE FND_API.G_EXC_ERROR;
1183: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1185: END IF;
1186:
1187:
1180: );
1181: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1182: RAISE FND_API.G_EXC_ERROR;
1183: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1185: END IF;
1186:
1187:
1188: END IF;
1199: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
1200: END IF;
1201:
1202: EXCEPTION
1203: WHEN FND_API.G_EXC_ERROR THEN
1204: ROLLBACK TO PROC_ONE_LINE;
1205: x_return_status := FND_API.G_RET_STS_ERROR;
1206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1207: ROLLBACK TO PROC_ONE_LINE;
1201:
1202: EXCEPTION
1203: WHEN FND_API.G_EXC_ERROR THEN
1204: ROLLBACK TO PROC_ONE_LINE;
1205: x_return_status := FND_API.G_RET_STS_ERROR;
1206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1207: ROLLBACK TO PROC_ONE_LINE;
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209: WHEN OTHERS THEN
1202: EXCEPTION
1203: WHEN FND_API.G_EXC_ERROR THEN
1204: ROLLBACK TO PROC_ONE_LINE;
1205: x_return_status := FND_API.G_RET_STS_ERROR;
1206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1207: ROLLBACK TO PROC_ONE_LINE;
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209: WHEN OTHERS THEN
1210: ROLLBACK TO PROC_ONE_LINE;
1204: ROLLBACK TO PROC_ONE_LINE;
1205: x_return_status := FND_API.G_RET_STS_ERROR;
1206: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1207: ROLLBACK TO PROC_ONE_LINE;
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209: WHEN OTHERS THEN
1210: ROLLBACK TO PROC_ONE_LINE;
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1212: END process_one_line;
1207: ROLLBACK TO PROC_ONE_LINE;
1208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209: WHEN OTHERS THEN
1210: ROLLBACK TO PROC_ONE_LINE;
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1212: END process_one_line;
1213:
1214: ---------------------------------------------------------------------
1215: -- PROCEDURE
1360: IF OZF_DEBUG_HIGH_ON THEN
1361: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
1362: END IF;
1363:
1364: x_return_status := FND_API.G_RET_STS_SUCCESS;
1365:
1366: SAVEPOINT PROC_PRIC_RESULT;
1367:
1368: OPEN batch_info_csr(p_resale_batch_id);
1375:
1376: IF l_fund_id is null THEN
1377: ozf_utility_pvt.error_message('OZF_THRDPTY_BUDGET_ERR');
1378: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Please setup Profile OZF : Price Difference Budget before running Third Party Accrual.');
1379: RAISE FND_API.g_exc_error;
1380: END IF;
1381:
1382: -- First check whether the order result collection EXISTS or not
1383: IF p_line_tbl.EXISTS(1) THEN
1417: AND resale_batch_id = p_resale_batch_id;
1418: EXCEPTION
1419: WHEN OTHERS THEN
1420: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
1421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1422: END;
1423: l_id_type := 'IFACE';
1424: ELSE
1425: l_id_type := 'LINE';
1454: );
1455: EXCEPTION
1456: WHEN OTHERS THEN
1457: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
1458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1459: END;
1460: END LOOP;
1461: ELSE
1462: -- There is no error in the resulting. We need to process the result one by one.
1486:
1487: IF l_inventory_tracking = 'T' THEN
1488: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1489: p_api_version => 1.0
1490: ,p_init_msg_list => FND_API.G_FALSE
1491: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1492: ,p_resale_batch_id => p_resale_batch_id
1493: ,p_start_date => l_report_start_date
1494: ,p_end_date => l_report_end_date
1487: IF l_inventory_tracking = 'T' THEN
1488: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1489: p_api_version => 1.0
1490: ,p_init_msg_list => FND_API.G_FALSE
1491: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1492: ,p_resale_batch_id => p_resale_batch_id
1493: ,p_start_date => l_report_start_date
1494: ,p_end_date => l_report_end_date
1495: ,x_return_status => l_return_status
1495: ,x_return_status => l_return_status
1496: ,x_msg_count => l_msg_count
1497: ,x_msg_data => l_msg_data
1498: );
1499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1500: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1497: ,x_msg_data => l_msg_data
1498: );
1499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1500: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1505: END IF;
1498: );
1499: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1500: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1505: END IF;
1506: /*
1500: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1501: RAISE FND_API.G_EXC_ERROR;
1502: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1503: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1505: END IF;
1506: /*
1507: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1508: p_api_version => 1.0
1505: END IF;
1506: /*
1507: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1508: p_api_version => 1.0
1509: ,p_init_msg_list => FND_API.G_FALSE
1510: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1511: ,p_party_id => l_partner_party_id
1512: ,p_start_date => l_report_start_date
1513: ,x_return_status => l_return_status
1506: /*
1507: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1508: p_api_version => 1.0
1509: ,p_init_msg_list => FND_API.G_FALSE
1510: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1511: ,p_party_id => l_partner_party_id
1512: ,p_start_date => l_report_start_date
1513: ,x_return_status => l_return_status
1514: ,x_msg_count => l_msg_count
1513: ,x_return_status => l_return_status
1514: ,x_msg_count => l_msg_count
1515: ,x_msg_data => l_msg_data
1516: );
1517: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1518: ozf_utility_pvt.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1521: */
1515: ,x_msg_data => l_msg_data
1516: );
1517: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1518: ozf_utility_pvt.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1521: */
1522: -- Bug
1523: END IF;
1556:
1557: -- Check inventory level first
1558: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1559: p_api_version => 1.0
1560: ,p_init_msg_list => FND_API.G_FALSE
1561: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1562: ,p_line_int_rec => l_resale_int_rec
1563: ,x_valid => l_inventory_level_valid
1564: ,x_return_status => l_return_status
1557: -- Check inventory level first
1558: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1559: p_api_version => 1.0
1560: ,p_init_msg_list => FND_API.G_FALSE
1561: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1562: ,p_line_int_rec => l_resale_int_rec
1563: ,x_valid => l_inventory_level_valid
1564: ,x_return_status => l_return_status
1565: ,x_msg_count => l_msg_count
1578: p_column_name => NULL,
1579: p_column_value => NULL,
1580: x_return_status => l_return_status
1581: );
1582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1583: RAISE FND_API.g_exc_error;
1584: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1585: RAISE FND_API.g_exc_unexpected_error;
1586: END IF;
1579: p_column_value => NULL,
1580: x_return_status => l_return_status
1581: );
1582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1583: RAISE FND_API.g_exc_error;
1584: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1585: RAISE FND_API.g_exc_unexpected_error;
1586: END IF;
1587:
1580: x_return_status => l_return_status
1581: );
1582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1583: RAISE FND_API.g_exc_error;
1584: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1585: RAISE FND_API.g_exc_unexpected_error;
1586: END IF;
1587:
1588: -- Delink resale interface line from batch
1581: );
1582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1583: RAISE FND_API.g_exc_error;
1584: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1585: RAISE FND_API.g_exc_unexpected_error;
1586: END IF;
1587:
1588: -- Delink resale interface line from batch
1589: UPDATE ozf_resale_lines_int_all
1592: status_code = 'DISPUTED',
1593: dispute_code = 'OZF_LT_INVT'
1594: WHERE resale_line_int_id = l_resale_int_rec.resale_line_int_id;
1595:
1596: RAISE FND_API.g_exc_error;
1597:
1598: -- Batch status won't be set to DISPUTED.
1599: -- TP Accrual Process will still continue.
1600: ELSE
1610: -- I need to create a header
1611: IF l_create_order_header THEN
1612: OZF_RESALE_COMMON_PVT.Insert_Resale_Header(
1613: p_api_version => 1
1614: ,p_init_msg_list => FND_API.G_FALSE
1615: ,p_commit => FND_API.G_FALSE
1616: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1617: ,p_line_int_rec => l_resale_int_rec
1618: ,x_header_id => l_header_id
1611: IF l_create_order_header THEN
1612: OZF_RESALE_COMMON_PVT.Insert_Resale_Header(
1613: p_api_version => 1
1614: ,p_init_msg_list => FND_API.G_FALSE
1615: ,p_commit => FND_API.G_FALSE
1616: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1617: ,p_line_int_rec => l_resale_int_rec
1618: ,x_header_id => l_header_id
1619: ,x_return_status => l_return_status
1612: OZF_RESALE_COMMON_PVT.Insert_Resale_Header(
1613: p_api_version => 1
1614: ,p_init_msg_list => FND_API.G_FALSE
1615: ,p_commit => FND_API.G_FALSE
1616: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1617: ,p_line_int_rec => l_resale_int_rec
1618: ,x_header_id => l_header_id
1619: ,x_return_status => l_return_status
1620: ,x_msg_data => l_msg_data
1619: ,x_return_status => l_return_status
1620: ,x_msg_data => l_msg_data
1621: ,x_msg_count => l_msg_count
1622: );
1623: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1625: END IF;
1626: ELSE
1627: -- get header id of the dup lines
1620: ,x_msg_data => l_msg_data
1621: ,x_msg_count => l_msg_count
1622: );
1623: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1624: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1625: END IF;
1626: ELSE
1627: -- get header id of the dup lines
1628: OPEN dup_header_csr( p_resale_batch_id
1648: END IF;
1649:
1650: IF l_exchange_type IS NULL THEN
1651: ozf_utility_pvt.error_message('OZF_CLAIM_CONTYPE_MISSING');
1652: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1653: END IF;
1654:
1655: IF l_exchange_date IS NULL THEN
1656: l_exchange_date := sysdate;
1675: ,x_return_status => l_return_status
1676: ,x_to_amount => l_acctd_adj_unit_price
1677: ,x_rate => l_rate
1678: );
1679: IF l_return_status = FND_API.g_ret_sts_error THEN
1680: RAISE FND_API.g_exc_error;
1681: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1683: END IF;
1676: ,x_to_amount => l_acctd_adj_unit_price
1677: ,x_rate => l_rate
1678: );
1679: IF l_return_status = FND_API.g_ret_sts_error THEN
1680: RAISE FND_API.g_exc_error;
1681: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1683: END IF;
1684:
1677: ,x_rate => l_rate
1678: );
1679: IF l_return_status = FND_API.g_ret_sts_error THEN
1680: RAISE FND_API.g_exc_error;
1681: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1683: END IF;
1684:
1685: OZF_UTILITY_PVT.Convert_Currency(
1678: );
1679: IF l_return_status = FND_API.g_ret_sts_error THEN
1680: RAISE FND_API.g_exc_error;
1681: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1683: END IF;
1684:
1685: OZF_UTILITY_PVT.Convert_Currency(
1686: p_from_currency => l_resale_int_rec.currency_code
1691: ,p_FROM_amount => l_resale_int_rec.selling_price
1692: ,x_return_status => l_return_status
1693: ,x_to_amount => l_acctd_selling_price
1694: ,x_rate => l_rate);
1695: IF l_return_status = FND_API.g_ret_sts_error THEN
1696: RAISE FND_API.g_exc_error;
1697: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1699: END IF;
1692: ,x_return_status => l_return_status
1693: ,x_to_amount => l_acctd_selling_price
1694: ,x_rate => l_rate);
1695: IF l_return_status = FND_API.g_ret_sts_error THEN
1696: RAISE FND_API.g_exc_error;
1697: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1699: END IF;
1700: ELSE
1693: ,x_to_amount => l_acctd_selling_price
1694: ,x_rate => l_rate);
1695: IF l_return_status = FND_API.g_ret_sts_error THEN
1696: RAISE FND_API.g_exc_error;
1697: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1699: END IF;
1700: ELSE
1701: l_acctd_adj_unit_price := OZF_UTILITY_PVT.CurrRound(p_line_tbl(i).adjusted_unit_price*l_rate, l_func_currency_code);
1694: ,x_rate => l_rate);
1695: IF l_return_status = FND_API.g_ret_sts_error THEN
1696: RAISE FND_API.g_exc_error;
1697: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1698: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1699: END IF;
1700: ELSE
1701: l_acctd_adj_unit_price := OZF_UTILITY_PVT.CurrRound(p_line_tbl(i).adjusted_unit_price*l_rate, l_func_currency_code);
1702: l_acctd_selling_price := OZF_UTILITY_PVT.CurrRound(l_resale_int_rec.selling_price*l_rate, l_func_currency_code);
1726: p_caller_type => p_caller_type,
1727: p_approver_id => l_last_updated_by,
1728: x_return_status => l_return_status
1729: );
1730: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1731: -- drop this line from batch if it is from interface
1732: IF p_caller_type = 'IFACE' THEN
1733: BEGIN
1734: UPDATE ozf_resale_lines_int_all
1739: WHERE resale_line_int_id = p_line_tbl(i).chargeback_int_id;
1740: EXCEPTION
1741: WHEN OTHERS THEN
1742: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
1743: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1744: END;
1745: END IF;
1746: ELSE
1747: -- CLOSE THIS LINE If it is from interface
1752: WHERE resale_line_int_id = p_line_tbl(i).chargeback_int_id;
1753: EXCEPTION
1754: WHEN OTHERS THEN
1755: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
1756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1757: END;
1758: END IF;
1759: END IF;
1760: END IF; -- END if current record is a line
1768: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': end');
1769: END IF;
1770:
1771: EXCEPTION
1772: WHEN FND_API.G_EXC_ERROR THEN
1773: ROLLBACK TO PROC_PRIC_RESULT;
1774: x_return_status := FND_API.G_RET_STS_ERROR;
1775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1776: ROLLBACK TO PROC_PRIC_RESULT;
1770:
1771: EXCEPTION
1772: WHEN FND_API.G_EXC_ERROR THEN
1773: ROLLBACK TO PROC_PRIC_RESULT;
1774: x_return_status := FND_API.G_RET_STS_ERROR;
1775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1776: ROLLBACK TO PROC_PRIC_RESULT;
1777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1778: WHEN OTHERS THEN
1771: EXCEPTION
1772: WHEN FND_API.G_EXC_ERROR THEN
1773: ROLLBACK TO PROC_PRIC_RESULT;
1774: x_return_status := FND_API.G_RET_STS_ERROR;
1775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1776: ROLLBACK TO PROC_PRIC_RESULT;
1777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1778: WHEN OTHERS THEN
1779: ROLLBACK TO PROC_PRIC_RESULT;
1773: ROLLBACK TO PROC_PRIC_RESULT;
1774: x_return_status := FND_API.G_RET_STS_ERROR;
1775: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1776: ROLLBACK TO PROC_PRIC_RESULT;
1777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1778: WHEN OTHERS THEN
1779: ROLLBACK TO PROC_PRIC_RESULT;
1780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1781: END process_pricing_result;
1776: ROLLBACK TO PROC_PRIC_RESULT;
1777: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1778: WHEN OTHERS THEN
1779: ROLLBACK TO PROC_PRIC_RESULT;
1780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1781: END process_pricing_result;
1782:
1783: ---------------------------------------------------------------------
1784: -- PROCEDURE
1794: ---------------------------------------------------------------------
1795: PROCEDURE Process_Resale_Order
1796: (
1797: p_api_version IN NUMBER
1798: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1799: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1800: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1801: ,p_resale_batch_id IN NUMBER
1802: ,x_return_status OUT NOCOPY VARCHAR2
1795: PROCEDURE Process_Resale_Order
1796: (
1797: p_api_version IN NUMBER
1798: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1799: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1800: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1801: ,p_resale_batch_id IN NUMBER
1802: ,x_return_status OUT NOCOPY VARCHAR2
1803: ,x_msg_data OUT NOCOPY VARCHAR2
1796: (
1797: p_api_version IN NUMBER
1798: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
1799: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
1800: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
1801: ,p_resale_batch_id IN NUMBER
1802: ,x_return_status OUT NOCOPY VARCHAR2
1803: ,x_msg_data OUT NOCOPY VARCHAR2
1804: ,x_msg_count OUT NOCOPY NUMBER
1880: BEGIN
1881: -- Standard BEGIN of API savepoint
1882: SAVEPOINT Process_Resale_Order;
1883: -- Standard call to check for call compatibility.
1884: IF NOT FND_API.Compatible_API_Call (
1885: l_api_version,
1886: p_api_version,
1887: l_api_name,
1888: G_PKG_NAME)
1886: p_api_version,
1887: l_api_name,
1888: G_PKG_NAME)
1889: THEN
1890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1891: END IF;
1892:
1893: --Initialize message list if p_init_msg_list is TRUE.
1894: IF FND_API.To_Boolean (p_init_msg_list) THEN
1890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1891: END IF;
1892:
1893: --Initialize message list if p_init_msg_list is TRUE.
1894: IF FND_API.To_Boolean (p_init_msg_list) THEN
1895: FND_MSG_PUB.initialize;
1896: END IF;
1897:
1898: -- Debug Message
1900: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
1901: END IF;
1902:
1903: -- Initialize API return status to sucess
1904: x_return_status := FND_API.G_RET_STS_SUCCESS;
1905:
1906: -- We need to UPDATE the order FROM indirect customers so that they're not to be included in the
1907: -- pricing simulation;
1908:
2027: AND resale_id_type = OZF_RESALE_COMMON_PVT.G_ID_TYPE_LINE;
2028: EXCEPTION
2029: WHEN OTHERS THEN
2030: ozf_utility_pvt.error_message('OZF_DEL_RESALE_LOG_WRG');
2031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2032: END;
2033:
2034: IF OZF_DEBUG_LOW_ON THEN
2035: ozf_utility_PVT.debug_message(l_api_name||'>> building order line for resale line id: '||l_order_set_tbl(j).resale_line_id);
2072: -- l_line_tbl(j).UNIT_PRICE := NULL;
2073: -- l_line_tbl(j).PERCENT_PRICE := NULL;
2074: -- l_line_tbl(j).UOM_QUANTITY := NULL;
2075: -- l_line_tbl(j).ADJUSTED_UNIT_PRICE := NULL;
2076: -- l_line_tbl(j).UPD_ADJUSTED_UNIT_PRICE NUMBER:= FND_API.G_MISS_NUM,
2077: -- l_line_tbl(j).PROCESSED_FLAG VARCHAR2(1):= FND_API.G_MISS_CHAR,
2078: -- l_line_tbl(j).PROCESSING_ORDER := NULL;
2079: -- l_line_tbl(j).PRICING_STATUS_TEXT := NULL;
2080: -- l_line_tbl(j).ROUNDING_FLAG := NULL;
2073: -- l_line_tbl(j).PERCENT_PRICE := NULL;
2074: -- l_line_tbl(j).UOM_QUANTITY := NULL;
2075: -- l_line_tbl(j).ADJUSTED_UNIT_PRICE := NULL;
2076: -- l_line_tbl(j).UPD_ADJUSTED_UNIT_PRICE NUMBER:= FND_API.G_MISS_NUM,
2077: -- l_line_tbl(j).PROCESSED_FLAG VARCHAR2(1):= FND_API.G_MISS_CHAR,
2078: -- l_line_tbl(j).PROCESSING_ORDER := NULL;
2079: -- l_line_tbl(j).PRICING_STATUS_TEXT := NULL;
2080: -- l_line_tbl(j).ROUNDING_FLAG := NULL;
2081: -- l_line_tbl(j).ROUNDING_FACTOR := NULL;
2229: END IF;
2230:
2231: OZF_ORDER_PRICE_PVT.Get_Order_Price (
2232: p_api_version => 1.0
2233: ,p_init_msg_list => FND_API.G_FALSE
2234: ,p_commit => FND_API.G_FALSE
2235: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2236: ,x_return_status => l_return_status
2237: ,x_msg_data => l_msg_data
2230:
2231: OZF_ORDER_PRICE_PVT.Get_Order_Price (
2232: p_api_version => 1.0
2233: ,p_init_msg_list => FND_API.G_FALSE
2234: ,p_commit => FND_API.G_FALSE
2235: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2236: ,x_return_status => l_return_status
2237: ,x_msg_data => l_msg_data
2238: ,x_msg_count => l_msg_count
2231: OZF_ORDER_PRICE_PVT.Get_Order_Price (
2232: p_api_version => 1.0
2233: ,p_init_msg_list => FND_API.G_FALSE
2234: ,p_commit => FND_API.G_FALSE
2235: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2236: ,x_return_status => l_return_status
2237: ,x_msg_data => l_msg_data
2238: ,x_msg_count => l_msg_count
2239: ,p_control_rec => l_control_rec
2240: ,xp_line_tbl => l_line_tbl
2241: ,x_ldets_tbl => l_ldets_tbl
2242: ,x_related_lines_tbl => l_related_lines_tbl
2243: );
2244: IF l_return_status<> FND_API.G_RET_STS_SUCCESS THEN
2245: ozf_utility_pvt.error_message('OZF_GET_ORDER_PRIC_ERR');
2246:
2247: FOR p in 1..l_order_set_tbl.LAST
2248: LOOP
2269: );
2270: EXCEPTION
2271: WHEN OTHERS THEN
2272: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
2273: RAISE FND_API.g_exc_unexpected_error;
2274: END;
2275: END LOOP;
2276: IF OZF_DEBUG_LOW_ON THEN
2277: ozf_utility_PVT.debug_message('/*--- Get order price failed ---*/');
2291: p_line_tbl => l_line_tbl,
2292: p_caller_type => G_RESALE_CALLER,
2293: x_return_status => l_return_status
2294: );
2295: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2296: FND_MSG_PUB.Count_And_Get (
2297: p_encoded => FND_API.G_FALSE,
2298: p_count => l_temp_count,
2299: p_data => l_temp_data
2293: x_return_status => l_return_status
2294: );
2295: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2296: FND_MSG_PUB.Count_And_Get (
2297: p_encoded => FND_API.G_FALSE,
2298: p_count => l_temp_count,
2299: p_data => l_temp_data
2300: );
2301:
2300: );
2301:
2302: fnd_msg_pub.Get(
2303: p_msg_index => l_temp_count,
2304: p_encoded => FND_API.G_FALSE,
2305: p_data => l_temp_data,
2306: p_msg_index_out => l_temp_count
2307: );
2308: IF OZF_DEBUG_LOW_ON THEN
2333: );
2334: EXCEPTION
2335: WHEN OTHERS THEN
2336: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
2337: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2338: END;
2339: END LOOP;
2340: IF OZF_DEBUG_LOW_ON THEN
2341: ozf_utility_PVT.debug_message('/*--- process_price_result Failed ---*/');
2361: OZF_UTILITY_PVT.debug_message(l_full_name||': End'|| x_return_status);
2362: END IF;
2363: --Standard call to get message count and if count=1, get the message
2364: FND_MSG_PUB.Count_And_Get (
2365: p_encoded => FND_API.G_FALSE,
2366: p_count => x_msg_count,
2367: p_data => x_msg_data
2368: );
2369: EXCEPTION
2366: p_count => x_msg_count,
2367: p_data => x_msg_data
2368: );
2369: EXCEPTION
2370: WHEN FND_API.G_EXC_ERROR THEN
2371: ROLLBACK TO Process_Resale_Order;
2372: x_return_status := FND_API.G_RET_STS_ERROR;
2373: -- Standard call to get message count and if count=1, get the message
2374: FND_MSG_PUB.Count_And_Get (
2368: );
2369: EXCEPTION
2370: WHEN FND_API.G_EXC_ERROR THEN
2371: ROLLBACK TO Process_Resale_Order;
2372: x_return_status := FND_API.G_RET_STS_ERROR;
2373: -- Standard call to get message count and if count=1, get the message
2374: FND_MSG_PUB.Count_And_Get (
2375: p_encoded => FND_API.G_FALSE,
2376: p_count => x_msg_count,
2371: ROLLBACK TO Process_Resale_Order;
2372: x_return_status := FND_API.G_RET_STS_ERROR;
2373: -- Standard call to get message count and if count=1, get the message
2374: FND_MSG_PUB.Count_And_Get (
2375: p_encoded => FND_API.G_FALSE,
2376: p_count => x_msg_count,
2377: p_data => x_msg_data
2378: );
2379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2375: p_encoded => FND_API.G_FALSE,
2376: p_count => x_msg_count,
2377: p_data => x_msg_data
2378: );
2379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2380: ROLLBACK TO Process_Resale_Order;
2381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2382:
2383: -- Standard call to get message count and if count=1, get the message
2377: p_data => x_msg_data
2378: );
2379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2380: ROLLBACK TO Process_Resale_Order;
2381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2382:
2383: -- Standard call to get message count and if count=1, get the message
2384: FND_MSG_PUB.Count_And_Get (
2385: p_encoded => FND_API.G_FALSE,
2381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2382:
2383: -- Standard call to get message count and if count=1, get the message
2384: FND_MSG_PUB.Count_And_Get (
2385: p_encoded => FND_API.G_FALSE,
2386: p_count => x_msg_count,
2387: p_data => x_msg_data
2388: );
2389: WHEN OTHERS THEN
2387: p_data => x_msg_data
2388: );
2389: WHEN OTHERS THEN
2390: ROLLBACK TO Process_Resale_Order;
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2392:
2393: -- Standard call to get message count and if count=1, get the message
2394: FND_MSG_PUB.Count_And_Get (
2395: p_encoded => FND_API.G_FALSE,
2391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2392:
2393: -- Standard call to get message count and if count=1, get the message
2394: FND_MSG_PUB.Count_And_Get (
2395: p_encoded => FND_API.G_FALSE,
2396: p_count => x_msg_count,
2397: p_data => x_msg_data
2398: );
2399: END Process_Resale_Order;
2411: --
2412: ---------------------------------------------------------------------
2413: PROCEDURE Process_Resale (
2414: p_api_version IN NUMBER
2415: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2416: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2417: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2418: ,p_resale_batch_id IN NUMBER
2419: ,x_return_status OUT NOCOPY VARCHAR2
2412: ---------------------------------------------------------------------
2413: PROCEDURE Process_Resale (
2414: p_api_version IN NUMBER
2415: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2416: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2417: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2418: ,p_resale_batch_id IN NUMBER
2419: ,x_return_status OUT NOCOPY VARCHAR2
2420: ,x_msg_data OUT NOCOPY VARCHAR2
2413: PROCEDURE Process_Resale (
2414: p_api_version IN NUMBER
2415: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2416: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2417: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2418: ,p_resale_batch_id IN NUMBER
2419: ,x_return_status OUT NOCOPY VARCHAR2
2420: ,x_msg_data OUT NOCOPY VARCHAR2
2421: ,x_msg_count OUT NOCOPY NUMBER
2431: BEGIN
2432: -- Standard BEGIN of API savepoint
2433: SAVEPOINT PROCESS_TP_RESALE;
2434: -- Standard call to check for call compatibility.
2435: IF NOT FND_API.Compatible_API_Call (
2436: l_api_version,
2437: p_api_version,
2438: l_api_name,
2439: G_PKG_NAME)
2437: p_api_version,
2438: l_api_name,
2439: G_PKG_NAME)
2440: THEN
2441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2442: END IF;
2443:
2444: --Initialize message lISt if p_init_msg_list IS TRUE.
2445: IF FND_API.To_BOOLEAN (p_init_msg_list) THEN
2441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2442: END IF;
2443:
2444: --Initialize message lISt if p_init_msg_list IS TRUE.
2445: IF FND_API.To_BOOLEAN (p_init_msg_list) THEN
2446: FND_MSG_PUB.initialize;
2447: END IF;
2448:
2449: -- Debug Message
2451: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
2452: END IF;
2453:
2454: -- Initialize API return status to sucess
2455: x_return_status := FND_API.G_RET_STS_SUCCESS;
2456:
2457: -- validate batch for resale processing
2458: Validate_batch(
2459: p_api_version => 1
2456:
2457: -- validate batch for resale processing
2458: Validate_batch(
2459: p_api_version => 1
2460: ,p_init_msg_list => FND_API.G_FALSE
2461: ,p_commit => FND_API.G_FALSE
2462: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2463: ,p_resale_batch_id => p_resale_batch_id
2464: ,x_return_status => l_return_status
2457: -- validate batch for resale processing
2458: Validate_batch(
2459: p_api_version => 1
2460: ,p_init_msg_list => FND_API.G_FALSE
2461: ,p_commit => FND_API.G_FALSE
2462: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2463: ,p_resale_batch_id => p_resale_batch_id
2464: ,x_return_status => l_return_status
2465: ,x_msg_data => l_msg_data
2458: Validate_batch(
2459: p_api_version => 1
2460: ,p_init_msg_list => FND_API.G_FALSE
2461: ,p_commit => FND_API.G_FALSE
2462: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2463: ,p_resale_batch_id => p_resale_batch_id
2464: ,x_return_status => l_return_status
2465: ,x_msg_data => l_msg_data
2466: ,x_msg_count => l_msg_count
2465: ,x_msg_data => l_msg_data
2466: ,x_msg_count => l_msg_count
2467: );
2468:
2469: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2470: RAISE FND_API.G_EXC_ERROR;
2471: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2473: END IF;
2466: ,x_msg_count => l_msg_count
2467: );
2468:
2469: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2470: RAISE FND_API.G_EXC_ERROR;
2471: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2473: END IF;
2474:
2467: );
2468:
2469: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2470: RAISE FND_API.G_EXC_ERROR;
2471: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2473: END IF;
2474:
2475: -- calling Third party accrual validation for this batch
2468:
2469: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2470: RAISE FND_API.G_EXC_ERROR;
2471: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2472: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2473: END IF;
2474:
2475: -- calling Third party accrual validation for this batch
2476: Validate_Order_Record(
2474:
2475: -- calling Third party accrual validation for this batch
2476: Validate_Order_Record(
2477: p_api_version => 1
2478: ,p_init_msg_list => FND_API.G_FALSE
2479: ,p_commit => FND_API.G_FALSE
2480: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2481: ,p_resale_batch_id => p_resale_batch_id
2482: ,p_caller_type => G_RESALE_CALLER
2475: -- calling Third party accrual validation for this batch
2476: Validate_Order_Record(
2477: p_api_version => 1
2478: ,p_init_msg_list => FND_API.G_FALSE
2479: ,p_commit => FND_API.G_FALSE
2480: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2481: ,p_resale_batch_id => p_resale_batch_id
2482: ,p_caller_type => G_RESALE_CALLER
2483: ,x_return_status => l_return_status
2476: Validate_Order_Record(
2477: p_api_version => 1
2478: ,p_init_msg_list => FND_API.G_FALSE
2479: ,p_commit => FND_API.G_FALSE
2480: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2481: ,p_resale_batch_id => p_resale_batch_id
2482: ,p_caller_type => G_RESALE_CALLER
2483: ,x_return_status => l_return_status
2484: ,x_msg_data => l_msg_data
2484: ,x_msg_data => l_msg_data
2485: ,x_msg_count => l_msg_count
2486: );
2487:
2488: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2489: RAISE FND_API.G_EXC_ERROR;
2490: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2492: END IF;
2485: ,x_msg_count => l_msg_count
2486: );
2487:
2488: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2489: RAISE FND_API.G_EXC_ERROR;
2490: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2492: END IF;
2493:
2486: );
2487:
2488: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2489: RAISE FND_API.G_EXC_ERROR;
2490: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2492: END IF;
2493:
2494: Process_Resale_Order (
2487:
2488: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2489: RAISE FND_API.G_EXC_ERROR;
2490: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2491: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2492: END IF;
2493:
2494: Process_Resale_Order (
2495: p_api_version => 1.0
2492: END IF;
2493:
2494: Process_Resale_Order (
2495: p_api_version => 1.0
2496: ,p_init_msg_list => FND_API.G_FALSE
2497: ,p_commit => FND_API.G_FALSE
2498: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2499: ,p_resale_batch_id => p_resale_batch_id
2500: ,x_return_status => l_return_status
2493:
2494: Process_Resale_Order (
2495: p_api_version => 1.0
2496: ,p_init_msg_list => FND_API.G_FALSE
2497: ,p_commit => FND_API.G_FALSE
2498: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2499: ,p_resale_batch_id => p_resale_batch_id
2500: ,x_return_status => l_return_status
2501: ,x_msg_data => l_msg_data
2494: Process_Resale_Order (
2495: p_api_version => 1.0
2496: ,p_init_msg_list => FND_API.G_FALSE
2497: ,p_commit => FND_API.G_FALSE
2498: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2499: ,p_resale_batch_id => p_resale_batch_id
2500: ,x_return_status => l_return_status
2501: ,x_msg_data => l_msg_data
2502: ,x_msg_count => l_msg_count
2501: ,x_msg_data => l_msg_data
2502: ,x_msg_count => l_msg_count
2503: );
2504:
2505: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2506: RAISE FND_API.G_EXC_ERROR;
2507: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2509: END IF;
2502: ,x_msg_count => l_msg_count
2503: );
2504:
2505: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2506: RAISE FND_API.G_EXC_ERROR;
2507: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2509: END IF;
2510:
2503: );
2504:
2505: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2506: RAISE FND_API.G_EXC_ERROR;
2507: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2509: END IF;
2510:
2511: -- Debug Message
2504:
2505: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2506: RAISE FND_API.G_EXC_ERROR;
2507: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2509: END IF;
2510:
2511: -- Debug Message
2512: IF OZF_DEBUG_HIGH_ON THEN
2513: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
2514: END IF;
2515: --Standard call to get message count and if count=1, get the message
2516: FND_MSG_PUB.Count_And_Get (
2517: p_encoded => FND_API.G_FALSE,
2518: p_count => x_msg_count,
2519: p_data => x_msg_data
2520: );
2521:
2519: p_data => x_msg_data
2520: );
2521:
2522: EXCEPTION
2523: WHEN FND_API.G_EXC_ERROR THEN
2524: ROLLBACK TO PROCESS_TP_RESALE;
2525: x_return_status := FND_API.G_RET_STS_ERROR;
2526: -- Standard call to get message count and if count=1, get the message
2527: FND_MSG_PUB.Count_And_Get (
2521:
2522: EXCEPTION
2523: WHEN FND_API.G_EXC_ERROR THEN
2524: ROLLBACK TO PROCESS_TP_RESALE;
2525: x_return_status := FND_API.G_RET_STS_ERROR;
2526: -- Standard call to get message count and if count=1, get the message
2527: FND_MSG_PUB.Count_And_Get (
2528: p_encoded => FND_API.G_FALSE,
2529: p_count => x_msg_count,
2524: ROLLBACK TO PROCESS_TP_RESALE;
2525: x_return_status := FND_API.G_RET_STS_ERROR;
2526: -- Standard call to get message count and if count=1, get the message
2527: FND_MSG_PUB.Count_And_Get (
2528: p_encoded => FND_API.G_FALSE,
2529: p_count => x_msg_count,
2530: p_data => x_msg_data
2531: );
2532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2528: p_encoded => FND_API.G_FALSE,
2529: p_count => x_msg_count,
2530: p_data => x_msg_data
2531: );
2532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2533: ROLLBACK TO PROCESS_TP_RESALE;
2534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2535:
2536: -- Standard call to get message count and if count=1, get the message
2530: p_data => x_msg_data
2531: );
2532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2533: ROLLBACK TO PROCESS_TP_RESALE;
2534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2535:
2536: -- Standard call to get message count and if count=1, get the message
2537: FND_MSG_PUB.Count_And_Get (
2538: p_encoded => FND_API.G_FALSE,
2534: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2535:
2536: -- Standard call to get message count and if count=1, get the message
2537: FND_MSG_PUB.Count_And_Get (
2538: p_encoded => FND_API.G_FALSE,
2539: p_count => x_msg_count,
2540: p_data => x_msg_data
2541: );
2542: WHEN OTHERS THEN
2540: p_data => x_msg_data
2541: );
2542: WHEN OTHERS THEN
2543: ROLLBACK TO PROCESS_TP_RESALE;
2544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2545:
2546: -- Standard call to get message count and if count=1, get the message
2547: FND_MSG_PUB.Count_And_Get (
2548: p_encoded => FND_API.G_FALSE,
2544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2545:
2546: -- Standard call to get message count and if count=1, get the message
2547: FND_MSG_PUB.Count_And_Get (
2548: p_encoded => FND_API.G_FALSE,
2549: p_count => x_msg_count,
2550: p_data => x_msg_data
2551: );
2552: END Process_Resale;
2571: ---------------------------------------------------------------------
2572: PROCEDURE Move_Indirect_Customer_Order
2573: (
2574: p_api_version IN NUMBER
2575: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2576: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2577: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2578: ,p_resale_batch_id IN NUMBER
2579: ,x_return_status OUT NOCOPY VARCHAR2
2572: PROCEDURE Move_Indirect_Customer_Order
2573: (
2574: p_api_version IN NUMBER
2575: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2576: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2577: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2578: ,p_resale_batch_id IN NUMBER
2579: ,x_return_status OUT NOCOPY VARCHAR2
2580: ,x_msg_data OUT NOCOPY VARCHAR2
2573: (
2574: p_api_version IN NUMBER
2575: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2576: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2577: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2578: ,p_resale_batch_id IN NUMBER
2579: ,x_return_status OUT NOCOPY VARCHAR2
2580: ,x_msg_data OUT NOCOPY VARCHAR2
2581: ,x_msg_count OUT NOCOPY NUMBER
2638: BEGIN
2639: -- Standard BEGIN of API savepoint
2640: SAVEPOINT TP_ACCRUAL_MV_IC;
2641: -- Standard call to check for call compatibility.
2642: IF NOT FND_API.Compatible_API_Call (
2643: l_api_version,
2644: p_api_version,
2645: l_api_name,
2646: G_PKG_NAME)
2644: p_api_version,
2645: l_api_name,
2646: G_PKG_NAME)
2647: THEN
2648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2649: END IF;
2650:
2651: --Initialize message list if p_init_msg_list is TRUE.
2652: IF FND_API.To_Boolean (p_init_msg_list) THEN
2648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2649: END IF;
2650:
2651: --Initialize message list if p_init_msg_list is TRUE.
2652: IF FND_API.To_Boolean (p_init_msg_list) THEN
2653: FND_MSG_PUB.initialize;
2654: END IF;
2655:
2656: -- Debug Message
2658: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
2659: END IF;
2660:
2661: -- Initialize API return status to sucess
2662: x_return_status := FND_API.G_RET_STS_SUCCESS;
2663:
2664: IF OZF_DEBUG_LOW_ON THEN
2665: ozf_utility_PVT.debug_message('in mv id cust' );
2666: END IF;
2674: CLOSE org_id_csr;
2675:
2676: IF l_org_id is NULL THEN
2677: ozf_utility_pvt.error_message('OZF_CLAIM_ORG_ID_MISSING');
2678: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2679: END IF;
2680:
2681: --j:=1;
2682: IF l_order_num_tbl.EXISTS(1) THEN
2733: -- Create an order header for the order_NUMBER;
2734: IF k = 1 THEN
2735: OZF_RESALE_COMMON_PVT.Insert_resale_header(
2736: p_api_version => 1
2737: ,p_init_msg_list => FND_API.G_FALSE
2738: ,p_commit => FND_API.G_FALSE
2739: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2740: ,p_line_int_rec => l_resale_int_tbl(k)
2741: ,x_header_id => l_header_id
2734: IF k = 1 THEN
2735: OZF_RESALE_COMMON_PVT.Insert_resale_header(
2736: p_api_version => 1
2737: ,p_init_msg_list => FND_API.G_FALSE
2738: ,p_commit => FND_API.G_FALSE
2739: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2740: ,p_line_int_rec => l_resale_int_tbl(k)
2741: ,x_header_id => l_header_id
2742: ,x_return_status => l_return_status
2735: OZF_RESALE_COMMON_PVT.Insert_resale_header(
2736: p_api_version => 1
2737: ,p_init_msg_list => FND_API.G_FALSE
2738: ,p_commit => FND_API.G_FALSE
2739: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2740: ,p_line_int_rec => l_resale_int_tbl(k)
2741: ,x_header_id => l_header_id
2742: ,x_return_status => l_return_status
2743: ,x_msg_data => l_msg_data
2742: ,x_return_status => l_return_status
2743: ,x_msg_data => l_msg_data
2744: ,x_msg_count => l_msg_count
2745: );
2746: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2748: END IF;
2749: END IF;
2750:
2743: ,x_msg_data => l_msg_data
2744: ,x_msg_count => l_msg_count
2745: );
2746: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2747: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2748: END IF;
2749: END IF;
2750:
2751: OZF_RESALE_COMMON_PVT.Insert_resale_line(
2749: END IF;
2750:
2751: OZF_RESALE_COMMON_PVT.Insert_resale_line(
2752: p_api_version => 1
2753: ,p_init_msg_list => FND_API.G_FALSE
2754: ,p_commit => FND_API.G_FALSE
2755: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2756: ,p_line_int_rec => l_resale_int_tbl(k)
2757: ,p_header_id => l_header_id
2750:
2751: OZF_RESALE_COMMON_PVT.Insert_resale_line(
2752: p_api_version => 1
2753: ,p_init_msg_list => FND_API.G_FALSE
2754: ,p_commit => FND_API.G_FALSE
2755: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2756: ,p_line_int_rec => l_resale_int_tbl(k)
2757: ,p_header_id => l_header_id
2758: ,x_line_id => l_line_id
2751: OZF_RESALE_COMMON_PVT.Insert_resale_line(
2752: p_api_version => 1
2753: ,p_init_msg_list => FND_API.G_FALSE
2754: ,p_commit => FND_API.G_FALSE
2755: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2756: ,p_line_int_rec => l_resale_int_tbl(k)
2757: ,p_header_id => l_header_id
2758: ,x_line_id => l_line_id
2759: ,x_return_status => l_return_status
2759: ,x_return_status => l_return_status
2760: ,x_msg_data => l_msg_data
2761: ,x_msg_count => l_msg_count
2762: );
2763: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2765: END IF;
2766: END LOOP;
2767: END IF;
2760: ,x_msg_data => l_msg_data
2761: ,x_msg_count => l_msg_count
2762: );
2763: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2765: END IF;
2766: END LOOP;
2767: END IF;
2768: END LOOP;
2775: AND resale_batch_id = p_resale_batch_id;
2776: EXCEPTION
2777: WHEN OTHERS THEN
2778: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
2779: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2780: END;
2781: END IF;
2782: -- Debug Message
2783: IF OZF_DEBUG_HIGH_ON THEN
2785: END IF;
2786:
2787: --Standard call to get message count and if count=1, get the message
2788: FND_MSG_PUB.Count_And_Get (
2789: p_encoded => FND_API.G_FALSE,
2790: p_count => x_msg_count,
2791: p_data => x_msg_data
2792: );
2793: EXCEPTION
2790: p_count => x_msg_count,
2791: p_data => x_msg_data
2792: );
2793: EXCEPTION
2794: WHEN FND_API.G_EXC_ERROR THEN
2795: x_return_status := FND_API.G_RET_STS_ERROR;
2796: -- Standard call to get message count and if count=1, get the message
2797: FND_MSG_PUB.Count_And_Get (
2798: p_encoded => FND_API.G_FALSE,
2791: p_data => x_msg_data
2792: );
2793: EXCEPTION
2794: WHEN FND_API.G_EXC_ERROR THEN
2795: x_return_status := FND_API.G_RET_STS_ERROR;
2796: -- Standard call to get message count and if count=1, get the message
2797: FND_MSG_PUB.Count_And_Get (
2798: p_encoded => FND_API.G_FALSE,
2799: p_count => x_msg_count,
2794: WHEN FND_API.G_EXC_ERROR THEN
2795: x_return_status := FND_API.G_RET_STS_ERROR;
2796: -- Standard call to get message count and if count=1, get the message
2797: FND_MSG_PUB.Count_And_Get (
2798: p_encoded => FND_API.G_FALSE,
2799: p_count => x_msg_count,
2800: p_data => x_msg_data
2801: );
2802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2798: p_encoded => FND_API.G_FALSE,
2799: p_count => x_msg_count,
2800: p_data => x_msg_data
2801: );
2802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2804:
2805: -- Standard call to get message count and if count=1, get the message
2806: FND_MSG_PUB.Count_And_Get (
2799: p_count => x_msg_count,
2800: p_data => x_msg_data
2801: );
2802: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2804:
2805: -- Standard call to get message count and if count=1, get the message
2806: FND_MSG_PUB.Count_And_Get (
2807: p_encoded => FND_API.G_FALSE,
2803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2804:
2805: -- Standard call to get message count and if count=1, get the message
2806: FND_MSG_PUB.Count_And_Get (
2807: p_encoded => FND_API.G_FALSE,
2808: p_count => x_msg_count,
2809: p_data => x_msg_data
2810: );
2811: WHEN OTHERS THEN
2809: p_data => x_msg_data
2810: );
2811: WHEN OTHERS THEN
2812: ROLLBACK TO TP_ACCRUAL_MV_IC;
2813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2814:
2815: -- Standard call to get message count and if count=1, get the message
2816: FND_MSG_PUB.Count_And_Get (
2817: p_encoded => FND_API.G_FALSE,
2813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2814:
2815: -- Standard call to get message count and if count=1, get the message
2816: FND_MSG_PUB.Count_And_Get (
2817: p_encoded => FND_API.G_FALSE,
2818: p_count => x_msg_count,
2819: p_data => x_msg_data
2820: );
2821: END Move_Indirect_Customer_Order;
2834: --
2835: ---------------------------------------------------------------------
2836: PROCEDURE Process_Order(
2837: p_api_version IN NUMBER
2838: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2839: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2840: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2841: ,p_resale_batch_id IN NUMBER
2842: ,x_return_status OUT NOCOPY VARCHAR2
2835: ---------------------------------------------------------------------
2836: PROCEDURE Process_Order(
2837: p_api_version IN NUMBER
2838: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2839: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2840: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2841: ,p_resale_batch_id IN NUMBER
2842: ,x_return_status OUT NOCOPY VARCHAR2
2843: ,x_msg_data OUT NOCOPY VARCHAR2
2836: PROCEDURE Process_Order(
2837: p_api_version IN NUMBER
2838: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2839: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2840: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2841: ,p_resale_batch_id IN NUMBER
2842: ,x_return_status OUT NOCOPY VARCHAR2
2843: ,x_msg_data OUT NOCOPY VARCHAR2
2844: ,x_msg_count OUT NOCOPY NUMBER
3018: BEGIN
3019: -- Standard BEGIN of API savepoint
3020: SAVEPOINT Process_Order;
3021: -- Standard call to check for call compatibility.
3022: IF NOT FND_API.Compatible_API_Call (
3023: l_api_version,
3024: p_api_version,
3025: l_api_name,
3026: G_PKG_NAME)
3024: p_api_version,
3025: l_api_name,
3026: G_PKG_NAME)
3027: THEN
3028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3029: END IF;
3030:
3031: --Initialize message list if p_init_msg_list is TRUE.
3032: IF FND_API.To_Boolean (p_init_msg_list) THEN
3028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3029: END IF;
3030:
3031: --Initialize message list if p_init_msg_list is TRUE.
3032: IF FND_API.To_Boolean (p_init_msg_list) THEN
3033: FND_MSG_PUB.initialize;
3034: END IF;
3035:
3036: -- Debug Message
3038: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
3039: END IF;
3040:
3041: -- Initialize API return status to sucess
3042: x_return_status := FND_API.G_RET_STS_SUCCESS;
3043:
3044: -- Call preprocess here.
3045: OZF_PRE_PROCESS_PVT.Resale_Pre_Process(
3046: p_api_version_number => 1
3043:
3044: -- Call preprocess here.
3045: OZF_PRE_PROCESS_PVT.Resale_Pre_Process(
3046: p_api_version_number => 1
3047: ,p_init_msg_list => FND_API.G_FALSE
3048: ,p_commit => FND_API.G_FALSE
3049: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3050: ,p_batch_id => p_resale_batch_id
3051: ,x_batch_status => l_new_batch_status
3044: -- Call preprocess here.
3045: OZF_PRE_PROCESS_PVT.Resale_Pre_Process(
3046: p_api_version_number => 1
3047: ,p_init_msg_list => FND_API.G_FALSE
3048: ,p_commit => FND_API.G_FALSE
3049: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3050: ,p_batch_id => p_resale_batch_id
3051: ,x_batch_status => l_new_batch_status
3052: ,x_return_status => l_return_status
3045: OZF_PRE_PROCESS_PVT.Resale_Pre_Process(
3046: p_api_version_number => 1
3047: ,p_init_msg_list => FND_API.G_FALSE
3048: ,p_commit => FND_API.G_FALSE
3049: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3050: ,p_batch_id => p_resale_batch_id
3051: ,x_batch_status => l_new_batch_status
3052: ,x_return_status => l_return_status
3053: ,x_msg_data => l_msg_data
3052: ,x_return_status => l_return_status
3053: ,x_msg_data => l_msg_data
3054: ,x_msg_count => l_msg_count
3055: );
3056: IF l_return_status <> FND_API.g_ret_sts_SUCCESS THEN
3057: ozf_utility_pvt.error_message('OZF_PRE_PROCESS_ERR');
3058: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3059: END IF;
3060:
3054: ,x_msg_count => l_msg_count
3055: );
3056: IF l_return_status <> FND_API.g_ret_sts_SUCCESS THEN
3057: ozf_utility_pvt.error_message('OZF_PRE_PROCESS_ERR');
3058: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3059: END IF;
3060:
3061: -- [BUG 4233341 FIXING]: add output file
3062: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Disputed Interface Lines After Pre-Processing:');
3106:
3107: -- OK to do it here
3108: Move_Indirect_Customer_Order (
3109: p_api_version => 1
3110: ,p_init_msg_list => FND_API.G_FALSE
3111: ,p_commit => FND_API.G_FALSE
3112: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3113: ,p_resale_batch_id => p_resale_batch_id
3114: ,x_return_status => l_return_status
3107: -- OK to do it here
3108: Move_Indirect_Customer_Order (
3109: p_api_version => 1
3110: ,p_init_msg_list => FND_API.G_FALSE
3111: ,p_commit => FND_API.G_FALSE
3112: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3113: ,p_resale_batch_id => p_resale_batch_id
3114: ,x_return_status => l_return_status
3115: ,x_msg_data => l_msg_data
3108: Move_Indirect_Customer_Order (
3109: p_api_version => 1
3110: ,p_init_msg_list => FND_API.G_FALSE
3111: ,p_commit => FND_API.G_FALSE
3112: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3113: ,p_resale_batch_id => p_resale_batch_id
3114: ,x_return_status => l_return_status
3115: ,x_msg_data => l_msg_data
3116: ,x_msg_count => l_msg_count
3114: ,x_return_status => l_return_status
3115: ,x_msg_data => l_msg_data
3116: ,x_msg_count => l_msg_count
3117: );
3118: IF l_return_status <> FND_API.g_ret_sts_SUCCESS THEN
3119: ozf_utility_pvt.error_message('OZF_MV_ID_CUST_ORDER_ERR');
3120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3121: END IF;
3122:
3116: ,x_msg_count => l_msg_count
3117: );
3118: IF l_return_status <> FND_API.g_ret_sts_SUCCESS THEN
3119: ozf_utility_pvt.error_message('OZF_MV_ID_CUST_ORDER_ERR');
3120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3121: END IF;
3122:
3123: -- Get profile value for price list
3124: l_default_price_list_id := G_TP_DEFAULT_PRICE_LIST; --fnd_profile.value('OZF_TP_ACCRUAL_PRICE_LIST');
3259: AND resale_id_type = 'IFACE';
3260: EXCEPTION
3261: WHEN OTHERS THEN
3262: ozf_utility_pvt.error_message('OZF_DEL_RESALE_LOG_WRG');
3263: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3264: END;
3265:
3266: IF OZF_DEBUG_LOW_ON THEN
3267: ozf_utility_PVT.debug_message(l_api_name||'>> building order line for inteface id: '||l_order_set_tbl(j).resale_line_int_id);
3302: -- l_line_tbl(j).UNIT_PRICE := NULL;
3303: -- l_line_tbl(j).PERCENT_PRICE := NULL;
3304: -- l_line_tbl(j).UOM_QUANTITY := NULL;
3305: -- l_line_tbl(j).ADJUSTED_UNIT_PRICE := NULL;
3306: -- l_line_tbl(j).UPD_ADJUSTED_UNIT_PRICE NUMBER:= FND_API.G_MISS_NUM,
3307: -- l_line_tbl(j).PROCESSED_FLAG VARCHAR2(1):= FND_API.G_MISS_CHAR,
3308: -- l_line_tbl(j).PROCESSING_ORDER := NULL;
3309: -- l_line_tbl(j).PRICING_STATUS_TEXT := NULL;
3310: -- l_line_tbl(j).ROUNDING_FLAG := NULL;
3303: -- l_line_tbl(j).PERCENT_PRICE := NULL;
3304: -- l_line_tbl(j).UOM_QUANTITY := NULL;
3305: -- l_line_tbl(j).ADJUSTED_UNIT_PRICE := NULL;
3306: -- l_line_tbl(j).UPD_ADJUSTED_UNIT_PRICE NUMBER:= FND_API.G_MISS_NUM,
3307: -- l_line_tbl(j).PROCESSED_FLAG VARCHAR2(1):= FND_API.G_MISS_CHAR,
3308: -- l_line_tbl(j).PROCESSING_ORDER := NULL;
3309: -- l_line_tbl(j).PRICING_STATUS_TEXT := NULL;
3310: -- l_line_tbl(j).ROUNDING_FLAG := NULL;
3311: -- l_line_tbl(j).ROUNDING_FACTOR := NULL;
3437: -- l_line_tbl(j).UNIT_PRICE := l_order_set_tbl(j).
3438: -- l_line_tbl(j).PERCENT_PRICE := l_order_set_tbl(j).
3439: -- l_line_tbl(j).UOM_QUANTITY := l_order_set_tbl(j).
3440: -- l_line_tbl(j).ADJUSTED_UNIT_PRICE := l_order_set_tbl(j).
3441: -- l_line_tbl(j).UPD_ADJUSTED_UNIT_PRICE NUMBER:= FND_API.G_MISS_NUM,
3442: -- l_line_tbl(j).PROCESSED_FLAG VARCHAR2(1):= FND_API.G_MISS_CHAR,
3443: -- l_line_tbl(j).PROCESSING_ORDER := NULL;
3444: -- l_line_tbl(j).PRICING_STATUS_TEXT := NULL;
3445: -- l_line_tbl(j).ROUNDING_FLAG := NULL;
3438: -- l_line_tbl(j).PERCENT_PRICE := l_order_set_tbl(j).
3439: -- l_line_tbl(j).UOM_QUANTITY := l_order_set_tbl(j).
3440: -- l_line_tbl(j).ADJUSTED_UNIT_PRICE := l_order_set_tbl(j).
3441: -- l_line_tbl(j).UPD_ADJUSTED_UNIT_PRICE NUMBER:= FND_API.G_MISS_NUM,
3442: -- l_line_tbl(j).PROCESSED_FLAG VARCHAR2(1):= FND_API.G_MISS_CHAR,
3443: -- l_line_tbl(j).PROCESSING_ORDER := NULL;
3444: -- l_line_tbl(j).PRICING_STATUS_TEXT := NULL;
3445: -- l_line_tbl(j).ROUNDING_FLAG := NULL;
3446: -- l_line_tbl(j).ROUNDING_FACTOR := NULL;
3476: END IF;
3477:
3478: OZF_ORDER_PRICE_PVT.Get_Order_Price (
3479: p_api_version => 1.0
3480: ,p_init_msg_list => FND_API.G_FALSE
3481: ,p_commit => FND_API.G_FALSE
3482: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3483: ,x_return_status => l_return_status
3484: ,x_msg_data => l_msg_data
3477:
3478: OZF_ORDER_PRICE_PVT.Get_Order_Price (
3479: p_api_version => 1.0
3480: ,p_init_msg_list => FND_API.G_FALSE
3481: ,p_commit => FND_API.G_FALSE
3482: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3483: ,x_return_status => l_return_status
3484: ,x_msg_data => l_msg_data
3485: ,x_msg_count => l_msg_count
3478: OZF_ORDER_PRICE_PVT.Get_Order_Price (
3479: p_api_version => 1.0
3480: ,p_init_msg_list => FND_API.G_FALSE
3481: ,p_commit => FND_API.G_FALSE
3482: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3483: ,x_return_status => l_return_status
3484: ,x_msg_data => l_msg_data
3485: ,x_msg_count => l_msg_count
3486: ,p_control_rec => l_control_rec
3487: ,xp_line_tbl => l_line_tbl
3488: ,x_ldets_tbl => l_ldets_tbl
3489: ,x_related_lines_tbl => l_related_lines_tbl
3490: );
3491: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3492: ozf_utility_pvt.error_message('OZF_GET_ORDER_PRIC_ERR');
3493:
3494: BEGIN
3495: UPDATE ozf_resale_lines_int
3501: AND resale_batch_id = p_resale_batch_id;
3502: EXCEPTION
3503: WHEN OTHERS THEN
3504: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
3505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3506: END;
3507:
3508: FOR p in 1..l_order_set_tbl.LAST
3509: LOOP
3530: );
3531: EXCEPTION
3532: WHEN OTHERS THEN
3533: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
3534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3535: END;
3536: END LOOP;
3537:
3538: IF OZF_DEBUG_LOW_ON THEN
3547: p_line_tbl => l_line_tbl,
3548: p_caller_type => 'IFACE',
3549: x_return_status => l_return_status
3550: );
3551: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3552: FND_MSG_PUB.Count_And_Get (
3553: p_encoded => FND_API.G_FALSE,
3554: p_count => l_temp_count,
3555: p_data => l_temp_data
3549: x_return_status => l_return_status
3550: );
3551: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3552: FND_MSG_PUB.Count_And_Get (
3553: p_encoded => FND_API.G_FALSE,
3554: p_count => l_temp_count,
3555: p_data => l_temp_data
3556: );
3557:
3556: );
3557:
3558: FND_MSG_PUB.Get(
3559: p_msg_index => l_temp_count,
3560: p_encoded => FND_API.G_FALSE,
3561: p_data => l_temp_data,
3562: p_msg_index_out => l_temp_count
3563: );
3564:
3735: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': end');
3736: END IF;
3737: --Standard call to get message count and if count=1, get the message
3738: FND_MSG_PUB.Count_And_Get (
3739: p_encoded => FND_API.G_FALSE,
3740: p_count => x_msg_count,
3741: p_data => x_msg_data
3742: );
3743:
3741: p_data => x_msg_data
3742: );
3743:
3744: EXCEPTION
3745: WHEN FND_API.G_EXC_ERROR THEN
3746: x_return_status := FND_API.G_RET_STS_ERROR;
3747: -- Standard call to get message count and if count=1, get the message
3748: FND_MSG_PUB.Count_And_Get (
3749: p_encoded => FND_API.G_FALSE,
3742: );
3743:
3744: EXCEPTION
3745: WHEN FND_API.G_EXC_ERROR THEN
3746: x_return_status := FND_API.G_RET_STS_ERROR;
3747: -- Standard call to get message count and if count=1, get the message
3748: FND_MSG_PUB.Count_And_Get (
3749: p_encoded => FND_API.G_FALSE,
3750: p_count => x_msg_count,
3745: WHEN FND_API.G_EXC_ERROR THEN
3746: x_return_status := FND_API.G_RET_STS_ERROR;
3747: -- Standard call to get message count and if count=1, get the message
3748: FND_MSG_PUB.Count_And_Get (
3749: p_encoded => FND_API.G_FALSE,
3750: p_count => x_msg_count,
3751: p_data => x_msg_data
3752: );
3753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3749: p_encoded => FND_API.G_FALSE,
3750: p_count => x_msg_count,
3751: p_data => x_msg_data
3752: );
3753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3754: ROLLBACK TO Process_Order;
3755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3756:
3757: -- Standard call to get message count and if count=1, get the message
3751: p_data => x_msg_data
3752: );
3753: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3754: ROLLBACK TO Process_Order;
3755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3756:
3757: -- Standard call to get message count and if count=1, get the message
3758: FND_MSG_PUB.Count_And_Get (
3759: p_encoded => FND_API.G_FALSE,
3755: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3756:
3757: -- Standard call to get message count and if count=1, get the message
3758: FND_MSG_PUB.Count_And_Get (
3759: p_encoded => FND_API.G_FALSE,
3760: p_count => x_msg_count,
3761: p_data => x_msg_data
3762: );
3763: WHEN OTHERS THEN
3761: p_data => x_msg_data
3762: );
3763: WHEN OTHERS THEN
3764: ROLLBACK TO Process_Order;
3765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3766:
3767: -- Standard call to get message count and if count=1, get the message
3768: FND_MSG_PUB.Count_And_Get (
3769: p_encoded => FND_API.G_FALSE,
3765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3766:
3767: -- Standard call to get message count and if count=1, get the message
3768: FND_MSG_PUB.Count_And_Get (
3769: p_encoded => FND_API.G_FALSE,
3770: p_count => x_msg_count,
3771: p_data => x_msg_data
3772: );
3773: END Process_Order;
3791: -- THIRD PARTY ACCRUAL FROM INTERFACE TABLE FINSIHES WITH ERROR
3792: ---------------------------------------------------------------------
3793: PROCEDURE Process_TP_ACCRUAL (
3794: p_api_version IN NUMBER
3795: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3796: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3797: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3798: ,p_data_source_code IN VARCHAR2 := NULL
3799: ,x_return_status OUT NOCOPY VARCHAR2
3792: ---------------------------------------------------------------------
3793: PROCEDURE Process_TP_ACCRUAL (
3794: p_api_version IN NUMBER
3795: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3796: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3797: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3798: ,p_data_source_code IN VARCHAR2 := NULL
3799: ,x_return_status OUT NOCOPY VARCHAR2
3800: ,x_msg_data OUT NOCOPY VARCHAR2
3793: PROCEDURE Process_TP_ACCRUAL (
3794: p_api_version IN NUMBER
3795: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3796: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3797: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3798: ,p_data_source_code IN VARCHAR2 := NULL
3799: ,x_return_status OUT NOCOPY VARCHAR2
3800: ,x_msg_data OUT NOCOPY VARCHAR2
3801: ,x_msg_count OUT NOCOPY NUMBER
3914: BEGIN
3915: -- Standard BEGIN of API savepoint
3916: SAVEPOINT Process_TP_ACCRUAL;
3917: -- Standard call to check for call compatibility.
3918: IF NOT FND_API.Compatible_API_Call (
3919: l_api_version,
3920: p_api_version,
3921: l_api_name,
3922: G_PKG_NAME)
3920: p_api_version,
3921: l_api_name,
3922: G_PKG_NAME)
3923: THEN
3924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3925: END IF;
3926:
3927: --Initialize message list if p_init_msg_list is TRUE.
3928: IF FND_API.To_Boolean (p_init_msg_list) THEN
3924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3925: END IF;
3926:
3927: --Initialize message list if p_init_msg_list is TRUE.
3928: IF FND_API.To_Boolean (p_init_msg_list) THEN
3929: FND_MSG_PUB.initialize;
3930: END IF;
3931:
3932: -- Debug Message
3934: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
3935: END IF;
3936:
3937: -- Initialize API return status to sucess
3938: x_return_status := FND_API.G_RET_STS_SUCCESS;
3939:
3940: /*
3941: IF p_data_source_code is NULL THEN
3942: ozf_utility_pvt.error_message('OZF_RESALE_TP_SOURCE_NULL');
3939:
3940: /*
3941: IF p_data_source_code is NULL THEN
3942: ozf_utility_pvt.error_message('OZF_RESALE_TP_SOURCE_NULL');
3943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3944: END IF;
3945: */
3946:
3947: -- Mark all the records that will be processed.
4135: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
4136:
4137: Process_order(
4138: p_api_version => 1
4139: ,p_init_msg_list => FND_API.G_FALSE
4140: ,p_commit => FND_API.G_FALSE
4141: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
4142: ,p_resale_batch_id => l_batch_tbl(i)
4143: ,x_return_status => l_return_status
4136:
4137: Process_order(
4138: p_api_version => 1
4139: ,p_init_msg_list => FND_API.G_FALSE
4140: ,p_commit => FND_API.G_FALSE
4141: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
4142: ,p_resale_batch_id => l_batch_tbl(i)
4143: ,x_return_status => l_return_status
4144: ,x_msg_data => l_msg_data
4137: Process_order(
4138: p_api_version => 1
4139: ,p_init_msg_list => FND_API.G_FALSE
4140: ,p_commit => FND_API.G_FALSE
4141: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
4142: ,p_resale_batch_id => l_batch_tbl(i)
4143: ,x_return_status => l_return_status
4144: ,x_msg_data => l_msg_data
4145: ,x_msg_count => l_msg_count
4143: ,x_return_status => l_return_status
4144: ,x_msg_data => l_msg_data
4145: ,x_msg_count => l_msg_count
4146: );
4147: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4149: END IF;
4150: END LOOP;
4151: END IF; -- END if l_batch_tbl.EXISTS
4144: ,x_msg_data => l_msg_data
4145: ,x_msg_count => l_msg_count
4146: );
4147: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4149: END IF;
4150: END LOOP;
4151: END IF; -- END if l_batch_tbl.EXISTS
4152:
4155: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
4156: END IF;
4157: --Standard call to get message count and if count=1, get the message
4158: FND_MSG_PUB.Count_And_Get (
4159: p_encoded => FND_API.G_FALSE,
4160: p_count => x_msg_count,
4161: p_data => x_msg_data
4162: );
4163: x_return_status := l_return_status;
4161: p_data => x_msg_data
4162: );
4163: x_return_status := l_return_status;
4164: EXCEPTION
4165: WHEN FND_API.G_EXC_ERROR THEN
4166: x_return_status := FND_API.G_RET_STS_ERROR;
4167: -- Standard call to get message count and if count=1, get the message
4168: FND_MSG_PUB.Count_And_Get (
4169: p_encoded => FND_API.G_FALSE,
4162: );
4163: x_return_status := l_return_status;
4164: EXCEPTION
4165: WHEN FND_API.G_EXC_ERROR THEN
4166: x_return_status := FND_API.G_RET_STS_ERROR;
4167: -- Standard call to get message count and if count=1, get the message
4168: FND_MSG_PUB.Count_And_Get (
4169: p_encoded => FND_API.G_FALSE,
4170: p_count => x_msg_count,
4165: WHEN FND_API.G_EXC_ERROR THEN
4166: x_return_status := FND_API.G_RET_STS_ERROR;
4167: -- Standard call to get message count and if count=1, get the message
4168: FND_MSG_PUB.Count_And_Get (
4169: p_encoded => FND_API.G_FALSE,
4170: p_count => x_msg_count,
4171: p_data => x_msg_data
4172: );
4173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4169: p_encoded => FND_API.G_FALSE,
4170: p_count => x_msg_count,
4171: p_data => x_msg_data
4172: );
4173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4175:
4176: -- Standard call to get message count and if count=1, get the message
4177: FND_MSG_PUB.Count_And_Get (
4170: p_count => x_msg_count,
4171: p_data => x_msg_data
4172: );
4173: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4175:
4176: -- Standard call to get message count and if count=1, get the message
4177: FND_MSG_PUB.Count_And_Get (
4178: p_encoded => FND_API.G_FALSE,
4174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4175:
4176: -- Standard call to get message count and if count=1, get the message
4177: FND_MSG_PUB.Count_And_Get (
4178: p_encoded => FND_API.G_FALSE,
4179: p_count => x_msg_count,
4180: p_data => x_msg_data
4181: );
4182: WHEN OTHERS THEN
4180: p_data => x_msg_data
4181: );
4182: WHEN OTHERS THEN
4183: ROLLBACK TO Process_TP_ACCRUAL;
4184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4185:
4186: -- Standard call to get message count and if count=1, get the message
4187: FND_MSG_PUB.Count_And_Get (
4188: p_encoded => FND_API.G_FALSE,
4184: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4185:
4186: -- Standard call to get message count and if count=1, get the message
4187: FND_MSG_PUB.Count_And_Get (
4188: p_encoded => FND_API.G_FALSE,
4189: p_count => x_msg_count,
4190: p_data => x_msg_data
4191: );
4192: END Process_TP_ACCRUAL;
4235: END IF;
4236:
4237: Process_TP_ACCRUAL (
4238: p_api_version => 1.0
4239: ,p_init_msg_list => FND_API.G_FALSE
4240: ,p_commit => FND_API.G_FALSE
4241: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4242: ,p_data_source_code => p_data_source_code
4243: ,x_return_status => l_return_status
4236:
4237: Process_TP_ACCRUAL (
4238: p_api_version => 1.0
4239: ,p_init_msg_list => FND_API.G_FALSE
4240: ,p_commit => FND_API.G_FALSE
4241: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4242: ,p_data_source_code => p_data_source_code
4243: ,x_return_status => l_return_status
4244: ,x_msg_data => l_msg_data
4237: Process_TP_ACCRUAL (
4238: p_api_version => 1.0
4239: ,p_init_msg_list => FND_API.G_FALSE
4240: ,p_commit => FND_API.G_FALSE
4241: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4242: ,p_data_source_code => p_data_source_code
4243: ,x_return_status => l_return_status
4244: ,x_msg_data => l_msg_data
4245: ,x_msg_count => l_msg_count
4243: ,x_return_status => l_return_status
4244: ,x_msg_data => l_msg_data
4245: ,x_msg_count => l_msg_count
4246: );
4247: IF l_return_status = FND_API.g_ret_sts_error THEN
4248: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
4249: RAISE FND_API.G_EXC_ERROR;
4250: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4251: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
4245: ,x_msg_count => l_msg_count
4246: );
4247: IF l_return_status = FND_API.g_ret_sts_error THEN
4248: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
4249: RAISE FND_API.G_EXC_ERROR;
4250: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4251: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
4252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4253: END IF;
4246: );
4247: IF l_return_status = FND_API.g_ret_sts_error THEN
4248: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
4249: RAISE FND_API.G_EXC_ERROR;
4250: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4251: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
4252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4253: END IF;
4254:
4248: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
4249: RAISE FND_API.G_EXC_ERROR;
4250: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
4251: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
4252: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4253: END IF;
4254:
4255: -- Debug Message
4256: IF OZF_DEBUG_HIGH_ON THEN
4263:
4264: -- Write all messages to a log
4265: OZF_UTILITY_PVT.Write_Conc_Log;
4266: EXCEPTION
4267: WHEN FND_API.g_exc_error THEN
4268: OZF_UTILITY_PVT.Write_Conc_Log;
4269: ERRBUF := l_msg_data;
4270:
4271: WHEN FND_API.g_exc_unexpected_error THEN
4267: WHEN FND_API.g_exc_error THEN
4268: OZF_UTILITY_PVT.Write_Conc_Log;
4269: ERRBUF := l_msg_data;
4270:
4271: WHEN FND_API.g_exc_unexpected_error THEN
4272: OZF_UTILITY_PVT.Write_Conc_Log;
4273: ERRBUF := l_msg_data;
4274: RETCODE := 2;
4275: