86: CONNECT BY PRIOR from_list_line_id = to_list_line_id)));
87:
88: BEGIN
89: -- Initialize API return status to sucess
90: x_return_status := FND_API.G_RET_STS_SUCCESS;
91:
92: IF p_object_type <> 'PL' THEN
93: -- First it has to be an OMO offer
94: OPEN omo_offer_csr;
116: x_result:= false;
117: END IF;
118: END IF;
119: EXCEPTION
120: WHEN FND_API.G_EXC_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: WHEN OTHERS THEN
123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: ozf_utility_pvt.error_message('OZF_RESALE_IS_TM_OFFER');
117: END IF;
118: END IF;
119: EXCEPTION
120: WHEN FND_API.G_EXC_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: WHEN OTHERS THEN
123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: ozf_utility_pvt.error_message('OZF_RESALE_IS_TM_OFFER');
125: END is_valid_offer;
119: EXCEPTION
120: WHEN FND_API.G_EXC_ERROR THEN
121: x_return_status := FND_API.G_RET_STS_ERROR;
122: WHEN OTHERS THEN
123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: ozf_utility_pvt.error_message('OZF_RESALE_IS_TM_OFFER');
125: END is_valid_offer;
126:
127: ---------------------------------------------------------------------
137: -- NOTES
138: ---------------------------------------------------------------------
139: PROCEDURE Validate_Batch(
140: p_api_version IN NUMBER
141: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
142: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
143: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
144: ,p_resale_batch_id IN NUMBER
145: ,x_return_status OUT NOCOPY VARCHAR2
138: ---------------------------------------------------------------------
139: PROCEDURE Validate_Batch(
140: p_api_version IN NUMBER
141: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
142: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
143: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
144: ,p_resale_batch_id IN NUMBER
145: ,x_return_status OUT NOCOPY VARCHAR2
146: ,x_msg_data OUT NOCOPY VARCHAR2
139: PROCEDURE Validate_Batch(
140: p_api_version IN NUMBER
141: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
142: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
143: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
144: ,p_resale_batch_id IN NUMBER
145: ,x_return_status OUT NOCOPY VARCHAR2
146: ,x_msg_data OUT NOCOPY VARCHAR2
147: ,x_msg_count OUT NOCOPY NUMBER
162:
163: BEGIN
164: -- Standard begin of API savepoint
165: -- Standard call to check for call compatibility.
166: IF NOT FND_API.Compatible_API_Call (
167: l_api_version,
168: p_api_version,
169: l_api_name,
170: G_PKG_NAME)
168: p_api_version,
169: l_api_name,
170: G_PKG_NAME)
171: THEN
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: END IF;
174:
175: -- Initialize API return status to sucess
176: x_return_status := FND_API.G_RET_STS_SUCCESS;
172: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
173: END IF;
174:
175: -- Initialize API return status to sucess
176: x_return_status := FND_API.G_RET_STS_SUCCESS;
177:
178: --Initialize message list if p_init_msg_list is TRUE.
179: IF FND_API.To_Boolean (p_init_msg_list) THEN
180: FND_MSG_PUB.initialize;
175: -- Initialize API return status to sucess
176: x_return_status := FND_API.G_RET_STS_SUCCESS;
177:
178: --Initialize message list if p_init_msg_list is TRUE.
179: IF FND_API.To_Boolean (p_init_msg_list) THEN
180: FND_MSG_PUB.initialize;
181: END IF;
182:
183: -- Debug Message
193:
194: -- Check status
195: IF l_status_code <> 'CLOSED' THEN
196:
197: x_return_status := FND_API.G_RET_STS_ERROR;
198: ozf_utility_pvt.error_message('OZF_BATCH_STATUS_WNG');
199: BEGIN
200: INSERT INTO ozf_resale_logs_all(
201: resale_log_id,
228: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
229: FND_MESSAGE.set_name('OZF', 'OZF_INS_RESALE_LOG_WRG');
230: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
231: FND_MSG_PUB.add;
232: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
233: END IF;
234: END;
235: END IF;
236:
240: END IF;
241:
242: --Standard call to get message count and if count=1, get the message
243: FND_MSG_PUB.Count_And_Get (
244: p_encoded => FND_API.G_FALSE,
245: p_count => x_msg_count,
246: p_data => x_msg_data
247: );
248: EXCEPTION
245: p_count => x_msg_count,
246: p_data => x_msg_data
247: );
248: EXCEPTION
249: WHEN FND_API.G_EXC_ERROR THEN
250: x_return_status := FND_API.G_RET_STS_ERROR;
251: -- Standard call to get message count and if count=1, get the message
252: FND_MSG_PUB.Count_And_Get (
253: p_encoded => FND_API.G_FALSE,
246: p_data => x_msg_data
247: );
248: EXCEPTION
249: WHEN FND_API.G_EXC_ERROR THEN
250: x_return_status := FND_API.G_RET_STS_ERROR;
251: -- Standard call to get message count and if count=1, get the message
252: FND_MSG_PUB.Count_And_Get (
253: p_encoded => FND_API.G_FALSE,
254: p_count => x_msg_count,
249: WHEN FND_API.G_EXC_ERROR THEN
250: x_return_status := FND_API.G_RET_STS_ERROR;
251: -- Standard call to get message count and if count=1, get the message
252: FND_MSG_PUB.Count_And_Get (
253: p_encoded => FND_API.G_FALSE,
254: p_count => x_msg_count,
255: p_data => x_msg_data
256: );
257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
253: p_encoded => FND_API.G_FALSE,
254: p_count => x_msg_count,
255: p_data => x_msg_data
256: );
257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
259: -- Standard call to get message count and if count=1, get the message
260: FND_MSG_PUB.Count_And_Get (
261: p_encoded => FND_API.G_FALSE,
254: p_count => x_msg_count,
255: p_data => x_msg_data
256: );
257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
259: -- Standard call to get message count and if count=1, get the message
260: FND_MSG_PUB.Count_And_Get (
261: p_encoded => FND_API.G_FALSE,
262: p_count => x_msg_count,
257: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
259: -- Standard call to get message count and if count=1, get the message
260: FND_MSG_PUB.Count_And_Get (
261: p_encoded => FND_API.G_FALSE,
262: p_count => x_msg_count,
263: p_data => x_msg_data
264: );
265: WHEN OTHERS THEN
262: p_count => x_msg_count,
263: p_data => x_msg_data
264: );
265: WHEN OTHERS THEN
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267:
268: -- Standard call to get message count and if count=1, get the message
269: FND_MSG_PUB.Count_And_Get (
270: p_encoded => FND_API.G_FALSE,
266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
267:
268: -- Standard call to get message count and if count=1, get the message
269: FND_MSG_PUB.Count_And_Get (
270: p_encoded => FND_API.G_FALSE,
271: p_count => x_msg_count,
272: p_data => x_msg_data
273: );
274: END Validate_Batch;
287: -- NOTES
288: ---------------------------------------------------------------------
289: PROCEDURE Validate_Order_Record(
290: p_api_version IN NUMBER
291: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
292: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
293: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
294: ,p_resale_batch_id IN NUMBER
295: ,p_caller_type IN VARCHAR2
288: ---------------------------------------------------------------------
289: PROCEDURE Validate_Order_Record(
290: p_api_version IN NUMBER
291: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
292: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
293: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
294: ,p_resale_batch_id IN NUMBER
295: ,p_caller_type IN VARCHAR2
296: ,x_return_status OUT NOCOPY VARCHAR2
289: PROCEDURE Validate_Order_Record(
290: p_api_version IN NUMBER
291: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
292: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
293: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
294: ,p_resale_batch_id IN NUMBER
295: ,p_caller_type IN VARCHAR2
296: ,x_return_status OUT NOCOPY VARCHAR2
297: ,x_msg_data OUT NOCOPY VARCHAR2
304:
305: BEGIN
306: -- Standard BEGIN of API savepoint
307: -- Standard call to check for call compatibility.
308: IF NOT FND_API.Compatible_API_Call (
309: l_api_version,
310: p_api_version,
311: l_api_name,
312: G_PKG_NAME)
310: p_api_version,
311: l_api_name,
312: G_PKG_NAME)
313: THEN
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: END IF;
316:
317: --Initialize message list if p_init_msg_list is TRUE.
318: IF FND_API.To_Boolean (p_init_msg_list) THEN
314: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
315: END IF;
316:
317: --Initialize message list if p_init_msg_list is TRUE.
318: IF FND_API.To_Boolean (p_init_msg_list) THEN
319: FND_MSG_PUB.initialize;
320: END IF;
321:
322: -- Debug Message
324: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
325: END IF;
326:
327: -- Initialize API return status to sucess
328: x_return_status := FND_API.G_RET_STS_SUCCESS;
329:
330: -- Make sure that selling_price is not NULL for direct customers
331: IF p_caller_type = 'IFACE' THEN
332: BEGIN
362: );
363: EXCEPTION
364: WHEN OTHERS THEN
365: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
367: END;
368:
369: BEGIN
370: UPDATE ozf_resale_lines_int_all
376: AND resale_batch_id = p_resale_batch_id;
377: EXCEPTION
378: WHEN OTHERS THEN
379: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
381: END;
382:
383: ELSE
384: BEGIN
414: );
415: EXCEPTION
416: WHEN OTHERS THEN
417: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
418: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
419: END;
420:
421: END IF;
422:
425: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
426: END IF;
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: EXCEPTION
430: p_count => x_msg_count,
431: p_data => x_msg_data
432: );
433: EXCEPTION
434: WHEN FND_API.G_EXC_ERROR THEN
435: x_return_status := FND_API.G_RET_STS_ERROR;
436: -- Standard call to get message count and if count=1, get the message
437: FND_MSG_PUB.Count_And_Get (
438: p_encoded => FND_API.G_FALSE,
431: p_data => x_msg_data
432: );
433: EXCEPTION
434: WHEN FND_API.G_EXC_ERROR THEN
435: x_return_status := FND_API.G_RET_STS_ERROR;
436: -- Standard call to get message count and if count=1, get the message
437: FND_MSG_PUB.Count_And_Get (
438: p_encoded => FND_API.G_FALSE,
439: p_count => x_msg_count,
434: WHEN FND_API.G_EXC_ERROR THEN
435: x_return_status := FND_API.G_RET_STS_ERROR;
436: -- Standard call to get message count and if count=1, get the message
437: FND_MSG_PUB.Count_And_Get (
438: p_encoded => FND_API.G_FALSE,
439: p_count => x_msg_count,
440: p_data => x_msg_data
441: );
442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
438: p_encoded => FND_API.G_FALSE,
439: p_count => x_msg_count,
440: p_data => x_msg_data
441: );
442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
444: -- Standard call to get message count and if count=1, get the message
445: FND_MSG_PUB.Count_And_Get (
446: p_encoded => FND_API.G_FALSE,
439: p_count => x_msg_count,
440: p_data => x_msg_data
441: );
442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
444: -- Standard call to get message count and if count=1, get the message
445: FND_MSG_PUB.Count_And_Get (
446: p_encoded => FND_API.G_FALSE,
447: p_count => x_msg_count,
442: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
443: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
444: -- Standard call to get message count and if count=1, get the message
445: FND_MSG_PUB.Count_And_Get (
446: p_encoded => FND_API.G_FALSE,
447: p_count => x_msg_count,
448: p_data => x_msg_data
449: );
450: WHEN OTHERS THEN
447: p_count => x_msg_count,
448: p_data => x_msg_data
449: );
450: WHEN OTHERS THEN
451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
452:
453: -- Standard call to get message count and if count=1, get the message
454: FND_MSG_PUB.Count_And_Get (
455: p_encoded => FND_API.G_FALSE,
451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
452:
453: -- Standard call to get message count and if count=1, get the message
454: FND_MSG_PUB.Count_And_Get (
455: p_encoded => FND_API.G_FALSE,
456: p_count => x_msg_count,
457: p_data => x_msg_data
458: );
459: END Validate_Order_Record;
641: END IF;
642:
643: SAVEPOINT PROC_ONE_LINE;
644:
645: x_return_status := FND_API.G_RET_STS_SUCCESS;
646:
647: -- Make sure that records are passed in due to different caller type
648: IF p_caller_type = 'IFACE' AND
649: p_resale_line_int_rec.resale_line_int_id IS NULL THEN
647: -- Make sure that records are passed in due to different caller type
648: IF p_caller_type = 'IFACE' AND
649: p_resale_line_int_rec.resale_line_int_id IS NULL THEN
650: ozf_utility_pvt.error_message('OZF_RESALE_INT_RECD_NULL');
651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
652: END IF;
653:
654: IF p_caller_type = 'RESALE' AND
655: p_resale_line_rec.resale_line_id IS NULL THEN
653:
654: IF p_caller_type = 'RESALE' AND
655: p_resale_line_rec.resale_line_id IS NULL THEN
656: ozf_utility_pvt.error_message('OZF_RESALE_RECD_NULL');
657: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
658: END IF;
659:
660:
661: -- create a resale line record, if it's FROM iface
663: -- Bug 14194884 - TPA In Draft Mode ER : Skipping creation of resale lines, line mappings and sales transactions in case of DRAFT mode
664: IF p_run_mode <> 'DRAFT' THEN
665: OZF_RESALE_COMMON_PVT.Insert_resale_line(
666: p_api_version => 1
667: ,p_init_msg_list => FND_API.G_FALSE
668: ,p_commit => FND_API.G_FALSE
669: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
670: ,p_line_int_rec => p_resale_line_int_rec
671: ,p_header_id => p_header_id
664: IF p_run_mode <> 'DRAFT' THEN
665: OZF_RESALE_COMMON_PVT.Insert_resale_line(
666: p_api_version => 1
667: ,p_init_msg_list => FND_API.G_FALSE
668: ,p_commit => FND_API.G_FALSE
669: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
670: ,p_line_int_rec => p_resale_line_int_rec
671: ,p_header_id => p_header_id
672: ,x_line_id => l_line_id
665: OZF_RESALE_COMMON_PVT.Insert_resale_line(
666: p_api_version => 1
667: ,p_init_msg_list => FND_API.G_FALSE
668: ,p_commit => FND_API.G_FALSE
669: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
670: ,p_line_int_rec => p_resale_line_int_rec
671: ,p_header_id => p_header_id
672: ,x_line_id => l_line_id
673: ,x_return_status => l_return_status
673: ,x_return_status => l_return_status
674: ,x_msg_data => l_msg_data
675: ,x_msg_count => l_msg_count
676: );
677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
678: ozf_utility_pvt.error_message('OZF_INS_RESALE_LINE_WRG');
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: END IF;
681:
675: ,x_msg_count => l_msg_count
676: );
677: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
678: ozf_utility_pvt.error_message('OZF_INS_RESALE_LINE_WRG');
679: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
680: END IF;
681:
682: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
683: p_api_version => 1
680: END IF;
681:
682: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
683: p_api_version => 1
684: ,p_init_msg_list => FND_API.G_FALSE
685: ,p_commit => FND_API.G_FALSE
686: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
687: ,p_resale_batch_id => p_resale_batch_id
688: ,p_line_id => l_line_id
681:
682: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
683: p_api_version => 1
684: ,p_init_msg_list => FND_API.G_FALSE
685: ,p_commit => FND_API.G_FALSE
686: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
687: ,p_resale_batch_id => p_resale_batch_id
688: ,p_line_id => l_line_id
689: ,x_return_status => l_return_status
682: OZF_RESALE_COMMON_PVT.Insert_Resale_Line_Mapping(
683: p_api_version => 1
684: ,p_init_msg_list => FND_API.G_FALSE
685: ,p_commit => FND_API.G_FALSE
686: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
687: ,p_resale_batch_id => p_resale_batch_id
688: ,p_line_id => l_line_id
689: ,x_return_status => l_return_status
690: ,x_msg_data => l_msg_data
689: ,x_return_status => l_return_status
690: ,x_msg_data => l_msg_data
691: ,x_msg_count => l_msg_count
692: );
693: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
694: RAISE FND_API.G_EXC_ERROR;
695: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
697: END IF;
690: ,x_msg_data => l_msg_data
691: ,x_msg_count => l_msg_count
692: );
693: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
694: RAISE FND_API.G_EXC_ERROR;
695: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
697: END IF;
698:
691: ,x_msg_count => l_msg_count
692: );
693: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
694: RAISE FND_API.G_EXC_ERROR;
695: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
697: END IF;
698:
699: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction(
692: );
693: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
694: RAISE FND_API.G_EXC_ERROR;
695: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
697: END IF;
698:
699: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction(
700: p_api_version => 1
697: END IF;
698:
699: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction(
700: p_api_version => 1
701: ,p_init_msg_list => FND_API.G_FALSE
702: ,p_commit => FND_API.G_FALSE
703: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
704: ,p_line_int_rec => p_resale_line_int_rec
705: ,p_header_id => p_header_id
698:
699: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction(
700: p_api_version => 1
701: ,p_init_msg_list => FND_API.G_FALSE
702: ,p_commit => FND_API.G_FALSE
703: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
704: ,p_line_int_rec => p_resale_line_int_rec
705: ,p_header_id => p_header_id
706: ,p_line_id => l_line_id
699: OZF_RESALE_COMMON_PVT.Create_Sales_Transaction(
700: p_api_version => 1
701: ,p_init_msg_list => FND_API.G_FALSE
702: ,p_commit => FND_API.G_FALSE
703: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
704: ,p_line_int_rec => p_resale_line_int_rec
705: ,p_header_id => p_header_id
706: ,p_line_id => l_line_id
707: ,x_sales_transaction_id => l_sales_transaction_id
708: ,x_return_status => l_return_status
709: ,x_msg_data => l_msg_data
710: ,x_msg_count => l_msg_count
711: );
712: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
713: RAISE FND_API.G_EXC_ERROR;
714: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
716: END IF;
709: ,x_msg_data => l_msg_data
710: ,x_msg_count => l_msg_count
711: );
712: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
713: RAISE FND_API.G_EXC_ERROR;
714: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
716: END IF;
717:
710: ,x_msg_count => l_msg_count
711: );
712: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
713: RAISE FND_API.G_EXC_ERROR;
714: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
716: END IF;
717:
718: -- Bug 4380203 (+)
711: );
712: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
713: RAISE FND_API.G_EXC_ERROR;
714: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
716: END IF;
717:
718: -- Bug 4380203 (+)
719: -- Bug 4380203 Fixing: Inventory Temp table is already updated in Validate_Inventory_Level
720: /*
721: IF p_inventory_tracking THEN
722: OZF_SALES_TRANSACTIONS_PVT.update_inventory_tmp (
723: p_api_version => 1.0
724: ,p_init_msg_list => FND_API.G_FALSE
725: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
726: ,p_sales_transaction_id => l_sales_transaction_id
727: ,x_return_status => l_return_status
728: ,x_msg_data => l_msg_data
721: IF p_inventory_tracking THEN
722: OZF_SALES_TRANSACTIONS_PVT.update_inventory_tmp (
723: p_api_version => 1.0
724: ,p_init_msg_list => FND_API.G_FALSE
725: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
726: ,p_sales_transaction_id => l_sales_transaction_id
727: ,x_return_status => l_return_status
728: ,x_msg_data => l_msg_data
729: ,x_msg_count => l_msg_count
727: ,x_return_status => l_return_status
728: ,x_msg_data => l_msg_data
729: ,x_msg_count => l_msg_count
730: );
731: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
732: RAISE FND_API.G_EXC_ERROR;
733: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
735: END IF;
728: ,x_msg_data => l_msg_data
729: ,x_msg_count => l_msg_count
730: );
731: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
732: RAISE FND_API.G_EXC_ERROR;
733: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
735: END IF;
736: END IF;
729: ,x_msg_count => l_msg_count
730: );
731: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
732: RAISE FND_API.G_EXC_ERROR;
733: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
735: END IF;
736: END IF;
737: */
730: );
731: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
732: RAISE FND_API.G_EXC_ERROR;
733: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
735: END IF;
736: END IF;
737: */
738: -- Bug 4380203 (-)
842: p_object_type => l_object_type,
843: x_result => l_is_valid_offer,
844: x_return_status => l_return_status
845: );
846: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
847: RAISE FND_API.G_EXC_ERROR;
848: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
850: END IF;
843: x_result => l_is_valid_offer,
844: x_return_status => l_return_status
845: );
846: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
847: RAISE FND_API.G_EXC_ERROR;
848: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
850: END IF;
851:
844: x_return_status => l_return_status
845: );
846: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
847: RAISE FND_API.G_EXC_ERROR;
848: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
850: END IF;
851:
852: IF OZF_DEBUG_LOW_ON THEN
845: );
846: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
847: RAISE FND_API.G_EXC_ERROR;
848: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
850: END IF;
851:
852: IF OZF_DEBUG_LOW_ON THEN
853: IF l_is_valid_offer OR l_ldets_tbl(k).list_line_type_code = 'PLL' THEN
887: -- R12 Volumn Offer Enhancement (+)
888: -- TPA in DRAFT mode ER : Update tracking line(ozf_order_group_prod table) only in FINAL mode
889: IF l_object_type = 'OFFR' AND p_run_mode <> 'DRAFT' THEN
890: OZF_VOLUME_CALCULATION_PUB.Update_Tracking_Line(
891: p_init_msg_list => FND_API.g_false
892: ,p_api_version => 1.0
893: ,p_commit => FND_API.g_false
894: ,x_return_status => l_return_status
895: ,x_msg_count => l_msg_count
889: IF l_object_type = 'OFFR' AND p_run_mode <> 'DRAFT' THEN
890: OZF_VOLUME_CALCULATION_PUB.Update_Tracking_Line(
891: p_init_msg_list => FND_API.g_false
892: ,p_api_version => 1.0
893: ,p_commit => FND_API.g_false
894: ,x_return_status => l_return_status
895: ,x_msg_count => l_msg_count
896: ,x_msg_data => l_msg_data
897: ,p_list_header_id => l_ldets_tbl(k).list_header_id
897: ,p_list_header_id => l_ldets_tbl(k).list_header_id
898: ,p_interface_line_id => p_resale_line_int_rec.resale_line_int_id
899: ,p_resale_line_id => l_line_id
900: );
901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
902: RAISE FND_API.G_EXC_ERROR;
903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: END IF;
898: ,p_interface_line_id => p_resale_line_int_rec.resale_line_int_id
899: ,p_resale_line_id => l_line_id
900: );
901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
902: RAISE FND_API.G_EXC_ERROR;
903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: END IF;
906: END IF;
899: ,p_resale_line_id => l_line_id
900: );
901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
902: RAISE FND_API.G_EXC_ERROR;
903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: END IF;
906: END IF;
907: -- R12 Volumn Offer Enhancement (-)
900: );
901: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
902: RAISE FND_API.G_EXC_ERROR;
903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
905: END IF;
906: END IF;
907: -- R12 Volumn Offer Enhancement (-)
908:
1074: -- Get fund info for price difference
1075: -- get chargeback budget id FROM profile
1076: IF p_price_diff_fund_id IS NULL THEN
1077: ozf_utility_pvt.error_message('OZF_THRDPTY_BUDGET_ERR');
1078: RAISE FND_API.g_exc_error;
1079: ELSE
1080: l_act_budgets_rec.parent_source_id := p_price_diff_fund_id;
1081: END IF;
1082:
1084: 'FUND'
1085: ,l_act_budgets_rec.parent_source_id
1086: ,l_return_status
1087: );
1088: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1090: END IF;
1091: l_act_budgets_rec.justification := 'THIRD PARTY PRICE DIFF';
1092:
1085: ,l_act_budgets_rec.parent_source_id
1086: ,l_return_status
1087: );
1088: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1090: END IF;
1091: l_act_budgets_rec.justification := 'THIRD PARTY PRICE DIFF';
1092:
1093: l_act_util_rec.fund_request_currency_code := OZF_ACTBUDGETS_PVT.get_object_currency (
1113: ,l_return_status
1114: );
1115:
1116: --nirprasa,12.2
1117: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1119: END IF;
1120: END IF;
1121:
1114: );
1115:
1116: --nirprasa,12.2
1117: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1119: END IF;
1120: END IF;
1121:
1122: -- get adjusted amount in budget currency
1184: FND_MESSAGE.Set_Token('ITEM',l_act_util_rec.product_id);
1185: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
1186: fnd_msg_pub.add;
1187: END IF;
1188: RAISE fnd_api.g_exc_error;
1189: END IF;
1190:
1191: IF OZF_DEBUG_LOW_ON THEN
1192: ozf_utility_pvt.debug_message('l_ldets_tbl(k).operand_calculation_code = ' || l_ldets_tbl(k).operand_calculation_code);
1244: OZF_UTILITY_PVT.convert_currency(
1245: p_from_currency => p_line_result_rec.currency_code
1246: ,p_to_currency => l_act_budgets_rec.request_currency
1247: ,p_conv_type => l_exchange_type
1248: ,p_conv_rate => FND_API.G_MISS_NUM
1249: ,p_conv_date => sysdate
1250: ,p_from_amount => l_act_budgets_rec.request_amount
1251: ,x_return_status => l_return_status
1252: ,x_to_amount => l_new_request_amount
1251: ,x_return_status => l_return_status
1252: ,x_to_amount => l_new_request_amount
1253: ,x_rate => l_rate
1254: );
1255: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1257: END IF;
1258: l_act_budgets_rec.request_amount := l_new_request_amount;
1259: END IF;
1252: ,x_to_amount => l_new_request_amount
1253: ,x_rate => l_rate
1254: );
1255: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1256: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1257: END IF;
1258: l_act_budgets_rec.request_amount := l_new_request_amount;
1259: END IF;
1260: --nirprasa,12.2
1277: OZF_UTILITY_PVT.convert_currency(
1278: p_FROM_currency => p_line_result_rec.currency_code
1279: ,p_to_currency => l_act_budgets_rec.parent_src_curr
1280: ,p_conv_type => l_exchange_type
1281: ,p_conv_rate => FND_API.G_MISS_NUM
1282: ,p_conv_date => sysdate
1283: ,p_FROM_amount => l_act_budgets_rec.parent_src_apprvd_amt
1284: ,x_return_status => l_return_status
1285: ,x_to_amount => l_new_request_amount
1284: ,x_return_status => l_return_status
1285: ,x_to_amount => l_new_request_amount
1286: ,x_rate => l_rate
1287: );
1288: IF l_return_status = FND_API.g_ret_sts_error THEN
1289: RAISE FND_API.g_exc_error;
1290: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1291: RAISE FND_API.g_exc_error;
1292: END IF;
1285: ,x_to_amount => l_new_request_amount
1286: ,x_rate => l_rate
1287: );
1288: IF l_return_status = FND_API.g_ret_sts_error THEN
1289: RAISE FND_API.g_exc_error;
1290: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1291: RAISE FND_API.g_exc_error;
1292: END IF;
1293: l_act_budgets_rec.parent_src_apprvd_amt := l_new_request_amount;
1286: ,x_rate => l_rate
1287: );
1288: IF l_return_status = FND_API.g_ret_sts_error THEN
1289: RAISE FND_API.g_exc_error;
1290: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1291: RAISE FND_API.g_exc_error;
1292: END IF;
1293: l_act_budgets_rec.parent_src_apprvd_amt := l_new_request_amount;
1294: END IF;
1287: );
1288: IF l_return_status = FND_API.g_ret_sts_error THEN
1289: RAISE FND_API.g_exc_error;
1290: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1291: RAISE FND_API.g_exc_error;
1292: END IF;
1293: l_act_budgets_rec.parent_src_apprvd_amt := l_new_request_amount;
1294: END IF;
1295: END IF;
1344: IF p_run_mode = 'DRAFT' THEN
1345:
1346: OZF_RESALE_COMMON_PVT.Create_Draft_Utilization(
1347: p_api_version => 1
1348: ,p_init_msg_list => FND_API.G_FALSE
1349: ,p_commit => FND_API.G_FALSE
1350: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1351: ,p_price_adj_rec => l_adjustment_rec
1352: ,p_act_budgets_rec => l_act_budgets_rec
1345:
1346: OZF_RESALE_COMMON_PVT.Create_Draft_Utilization(
1347: p_api_version => 1
1348: ,p_init_msg_list => FND_API.G_FALSE
1349: ,p_commit => FND_API.G_FALSE
1350: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1351: ,p_price_adj_rec => l_adjustment_rec
1352: ,p_act_budgets_rec => l_act_budgets_rec
1353: ,p_act_util_rec => l_act_util_rec
1346: OZF_RESALE_COMMON_PVT.Create_Draft_Utilization(
1347: p_api_version => 1
1348: ,p_init_msg_list => FND_API.G_FALSE
1349: ,p_commit => FND_API.G_FALSE
1350: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1351: ,p_price_adj_rec => l_adjustment_rec
1352: ,p_act_budgets_rec => l_act_budgets_rec
1353: ,p_act_util_rec => l_act_util_rec
1354: ,p_resale_line_int_rec => l_resale_line_int_rec
1359: ,x_msg_data => l_msg_data
1360: ,x_msg_count => l_msg_count
1361: ,x_draft_utilization_id => l_draft_utilization_id
1362: );
1363: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1364: RAISE FND_API.G_EXC_ERROR;
1365: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1367: END IF;
1360: ,x_msg_count => l_msg_count
1361: ,x_draft_utilization_id => l_draft_utilization_id
1362: );
1363: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1364: RAISE FND_API.G_EXC_ERROR;
1365: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1367: END IF;
1368:
1361: ,x_draft_utilization_id => l_draft_utilization_id
1362: );
1363: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1364: RAISE FND_API.G_EXC_ERROR;
1365: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1367: END IF;
1368:
1369: ELSE -- IF p_run_mode = 'DRAFT' THEN
1362: );
1363: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1364: RAISE FND_API.G_EXC_ERROR;
1365: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1367: END IF;
1368:
1369: ELSE -- IF p_run_mode = 'DRAFT' THEN
1370:
1369: ELSE -- IF p_run_mode = 'DRAFT' THEN
1370:
1371: OZF_RESALE_COMMON_PVT.Create_Adj_and_Utilization(
1372: p_api_version => 1
1373: ,p_init_msg_list => FND_API.G_FALSE
1374: ,p_commit => FND_API.G_FALSE
1375: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1376: ,p_price_adj_rec => l_adjustment_rec
1377: ,p_act_budgets_rec => l_act_budgets_rec
1370:
1371: OZF_RESALE_COMMON_PVT.Create_Adj_and_Utilization(
1372: p_api_version => 1
1373: ,p_init_msg_list => FND_API.G_FALSE
1374: ,p_commit => FND_API.G_FALSE
1375: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1376: ,p_price_adj_rec => l_adjustment_rec
1377: ,p_act_budgets_rec => l_act_budgets_rec
1378: ,p_act_util_rec => l_act_util_rec
1371: OZF_RESALE_COMMON_PVT.Create_Adj_and_Utilization(
1372: p_api_version => 1
1373: ,p_init_msg_list => FND_API.G_FALSE
1374: ,p_commit => FND_API.G_FALSE
1375: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1376: ,p_price_adj_rec => l_adjustment_rec
1377: ,p_act_budgets_rec => l_act_budgets_rec
1378: ,p_act_util_rec => l_act_util_rec
1379: ,p_to_create_utilization => l_to_create_utilization
1388: ,px_ozf_funds_old_rectype => ozf_funds_old_rectype
1389: ,px_ozf_funds_new_tbl => x_ozf_funds_new_tbl
1390: -- For TPA Parallel Execution ER - 9614703 (-)
1391: );
1392: --IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1393: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1394: --END IF;
1395:
1396: IF l_return_status = fnd_api.g_ret_sts_error THEN
1389: ,px_ozf_funds_new_tbl => x_ozf_funds_new_tbl
1390: -- For TPA Parallel Execution ER - 9614703 (-)
1391: );
1392: --IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1393: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1394: --END IF;
1395:
1396: IF l_return_status = fnd_api.g_ret_sts_error THEN
1397: RAISE fnd_api.g_exc_error;
1392: --IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1393: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1394: --END IF;
1395:
1396: IF l_return_status = fnd_api.g_ret_sts_error THEN
1397: RAISE fnd_api.g_exc_error;
1398: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1399: RAISE fnd_api.g_exc_unexpected_error;
1400: END IF;
1393: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1394: --END IF;
1395:
1396: IF l_return_status = fnd_api.g_ret_sts_error THEN
1397: RAISE fnd_api.g_exc_error;
1398: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1399: RAISE fnd_api.g_exc_unexpected_error;
1400: END IF;
1401:
1394: --END IF;
1395:
1396: IF l_return_status = fnd_api.g_ret_sts_error THEN
1397: RAISE fnd_api.g_exc_error;
1398: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1399: RAISE fnd_api.g_exc_unexpected_error;
1400: END IF;
1401:
1402: IF l_to_create_utilization AND
1395:
1396: IF l_return_status = fnd_api.g_ret_sts_error THEN
1397: RAISE fnd_api.g_exc_error;
1398: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1399: RAISE fnd_api.g_exc_unexpected_error;
1400: END IF;
1401:
1402: IF l_to_create_utilization AND
1403: l_act_budgets_rec.arc_act_budget_used_by = 'OFFR' THEN
1457: l_sales_transaction_rec.source_code := 'IS';
1458: END IF;
1459:
1460: OZF_VOLUME_CALCULATION_PUB.Create_Volume(
1461: p_init_msg_list => FND_API.g_false
1462: ,p_api_version => 1.0
1463: ,p_commit => FND_API.g_false
1464: ,x_return_status => l_return_status
1465: ,x_msg_count => l_msg_count
1459:
1460: OZF_VOLUME_CALCULATION_PUB.Create_Volume(
1461: p_init_msg_list => FND_API.g_false
1462: ,p_api_version => 1.0
1463: ,p_commit => FND_API.g_false
1464: ,x_return_status => l_return_status
1465: ,x_msg_count => l_msg_count
1466: ,x_msg_data => l_msg_data
1467: ,p_volume_detail_rec => l_sales_transaction_rec
1469: ,x_apply_discount => l_vol_offr_apply_discount
1470: ,p_use_vol_smry_stg_tbl => 'T'
1471: ,p_resale_batch_id => p_resale_batch_id
1472: );
1473: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1474: RAISE FND_API.G_EXC_ERROR;
1475: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1477: END IF;
1470: ,p_use_vol_smry_stg_tbl => 'T'
1471: ,p_resale_batch_id => p_resale_batch_id
1472: );
1473: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1474: RAISE FND_API.G_EXC_ERROR;
1475: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1477: END IF;
1478:
1471: ,p_resale_batch_id => p_resale_batch_id
1472: );
1473: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1474: RAISE FND_API.G_EXC_ERROR;
1475: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1477: END IF;
1478:
1479:
1472: );
1473: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1474: RAISE FND_API.G_EXC_ERROR;
1475: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1476: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1477: END IF;
1478:
1479:
1480: END IF;
1494: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
1495: END IF;
1496:
1497: EXCEPTION
1498: WHEN FND_API.G_EXC_ERROR THEN
1499: ozf_utility_pvt.write_conc_log('ERROR in process_one_line');
1500: --ROLLBACK TO PROC_ONE_LINE;
1501: x_return_status := FND_API.G_RET_STS_ERROR;
1502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1497: EXCEPTION
1498: WHEN FND_API.G_EXC_ERROR THEN
1499: ozf_utility_pvt.write_conc_log('ERROR in process_one_line');
1500: --ROLLBACK TO PROC_ONE_LINE;
1501: x_return_status := FND_API.G_RET_STS_ERROR;
1502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1503: ozf_utility_pvt.write_conc_log('UNEXP ERROR in process_one_line');
1504: --ROLLBACK TO PROC_ONE_LINE;
1505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1498: WHEN FND_API.G_EXC_ERROR THEN
1499: ozf_utility_pvt.write_conc_log('ERROR in process_one_line');
1500: --ROLLBACK TO PROC_ONE_LINE;
1501: x_return_status := FND_API.G_RET_STS_ERROR;
1502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1503: ozf_utility_pvt.write_conc_log('UNEXP ERROR in process_one_line');
1504: --ROLLBACK TO PROC_ONE_LINE;
1505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1506: WHEN OTHERS THEN
1501: x_return_status := FND_API.G_RET_STS_ERROR;
1502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1503: ozf_utility_pvt.write_conc_log('UNEXP ERROR in process_one_line');
1504: --ROLLBACK TO PROC_ONE_LINE;
1505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1506: WHEN OTHERS THEN
1507: ozf_utility_pvt.write_conc_log('OTHER ERROR in process_one_line');
1508: --ROLLBACK TO PROC_ONE_LINE;
1509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1506: WHEN OTHERS THEN
1507: ozf_utility_pvt.write_conc_log('OTHER ERROR in process_one_line');
1508: --ROLLBACK TO PROC_ONE_LINE;
1509: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1510: END process_one_line;
1511:
1512: PROCEDURE Process_One_Line(
1513: p_resale_line_int_rec IN OZF_RESALE_COMMON_PVT.g_interface_rec_csr%rowtype,
1748: IF OZF_DEBUG_HIGH_ON THEN
1749: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
1750: END IF;
1751:
1752: x_return_status := FND_API.G_RET_STS_SUCCESS;
1753:
1754: SAVEPOINT PROC_PRIC_RESULT;
1755:
1756: OPEN batch_info_csr(p_resale_batch_id);
1764:
1765: IF l_fund_id is null THEN
1766: ozf_utility_pvt.error_message('OZF_THRDPTY_BUDGET_ERR');
1767: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Please setup Profile OZF : Price Difference Budget before running Third Party Accrual.');
1768: RAISE FND_API.g_exc_error;
1769: END IF;
1770:
1771: -- First check whether the order result collection EXISTS or not
1772: IF p_line_tbl.EXISTS(1) THEN
1807: AND resale_batch_id = p_resale_batch_id;
1808: EXCEPTION
1809: WHEN OTHERS THEN
1810: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
1811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1812: END;
1813: l_id_type := 'IFACE';
1814: ELSE
1815: l_id_type := 'LINE';
1845: );
1846: EXCEPTION
1847: WHEN OTHERS THEN
1848: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
1849: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1850: END;
1851: END LOOP;
1852: ELSE
1853: -- There is no error in the resulting. We need to process the result one by one.
1887: IF l_inventory_tracking = 'T'
1888: AND (l_direct_order_flag <> 'Y') THEN
1889: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1890: p_api_version => 1.0
1891: ,p_init_msg_list => FND_API.G_FALSE
1892: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1893: ,p_resale_batch_id => p_resale_batch_id
1894: ,p_start_date => l_report_start_date
1895: ,p_end_date => l_report_end_date
1888: AND (l_direct_order_flag <> 'Y') THEN
1889: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1890: p_api_version => 1.0
1891: ,p_init_msg_list => FND_API.G_FALSE
1892: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1893: ,p_resale_batch_id => p_resale_batch_id
1894: ,p_start_date => l_report_start_date
1895: ,p_end_date => l_report_end_date
1896: ,x_return_status => l_return_status
1896: ,x_return_status => l_return_status
1897: ,x_msg_count => l_msg_count
1898: ,x_msg_data => l_msg_data
1899: );
1900: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1901: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1902: RAISE FND_API.G_EXC_ERROR;
1903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1904: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1898: ,x_msg_data => l_msg_data
1899: );
1900: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1901: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1902: RAISE FND_API.G_EXC_ERROR;
1903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1904: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1906: END IF;
1899: );
1900: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1901: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1902: RAISE FND_API.G_EXC_ERROR;
1903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1904: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1906: END IF;
1907: /*
1901: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1902: RAISE FND_API.G_EXC_ERROR;
1903: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1904: OZF_UTILITY_PVT.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1906: END IF;
1907: /*
1908: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1909: p_api_version => 1.0
1906: END IF;
1907: /*
1908: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1909: p_api_version => 1.0
1910: ,p_init_msg_list => FND_API.G_FALSE
1911: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1912: ,p_party_id => l_partner_party_id
1913: ,p_start_date => l_report_start_date
1914: ,x_return_status => l_return_status
1907: /*
1908: OZF_SALES_TRANSACTIONS_PVT.Initiate_Inventory_tmp (
1909: p_api_version => 1.0
1910: ,p_init_msg_list => FND_API.G_FALSE
1911: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1912: ,p_party_id => l_partner_party_id
1913: ,p_start_date => l_report_start_date
1914: ,x_return_status => l_return_status
1915: ,x_msg_count => l_msg_count
1914: ,x_return_status => l_return_status
1915: ,x_msg_count => l_msg_count
1916: ,x_msg_data => l_msg_data
1917: );
1918: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1919: ozf_utility_pvt.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: END IF;
1922: */
1916: ,x_msg_data => l_msg_data
1917: );
1918: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1919: ozf_utility_pvt.error_message('OZF_RESALE_INIT_INV_TMP_ERR');
1920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1921: END IF;
1922: */
1923: -- Bug
1924: END IF;
1965:
1966: -- Check inventory level first
1967: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1968: p_api_version => 1.0
1969: ,p_init_msg_list => FND_API.G_FALSE
1970: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1971: ,p_line_int_rec => l_resale_int_rec
1972: ,x_valid => l_inventory_level_valid
1973: ,x_return_status => l_return_status
1966: -- Check inventory level first
1967: OZF_SALES_TRANSACTIONS_PVT.Validate_Inventory_level (
1968: p_api_version => 1.0
1969: ,p_init_msg_list => FND_API.G_FALSE
1970: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
1971: ,p_line_int_rec => l_resale_int_rec
1972: ,x_valid => l_inventory_level_valid
1973: ,x_return_status => l_return_status
1974: ,x_msg_count => l_msg_count
1988: p_column_name => NULL,
1989: p_column_value => NULL,
1990: x_return_status => l_return_status
1991: );
1992: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1993: RAISE FND_API.g_exc_error;
1994: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1995: RAISE FND_API.g_exc_unexpected_error;
1996: END IF;
1989: p_column_value => NULL,
1990: x_return_status => l_return_status
1991: );
1992: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1993: RAISE FND_API.g_exc_error;
1994: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1995: RAISE FND_API.g_exc_unexpected_error;
1996: END IF;
1997:
1990: x_return_status => l_return_status
1991: );
1992: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1993: RAISE FND_API.g_exc_error;
1994: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1995: RAISE FND_API.g_exc_unexpected_error;
1996: END IF;
1997:
1998: -- Delink resale interface line from batch
1991: );
1992: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1993: RAISE FND_API.g_exc_error;
1994: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1995: RAISE FND_API.g_exc_unexpected_error;
1996: END IF;
1997:
1998: -- Delink resale interface line from batch
1999: UPDATE ozf_resale_lines_int_all
2004: WHERE resale_line_int_id = l_resale_int_rec.resale_line_int_id;*/
2005:
2006: l_resale_int_rec.dispute_code := 'OZF_LT_INVT';
2007: OZF_UTILITY_PVT.error_message('OZF_LT_INVT');
2008: RAISE FND_API.g_exc_error;
2009:
2010: -- Batch status won't be set to DISPUTED.
2011: -- TP Accrual Process will still continue.
2012: ELSE
2026: -- IF l_create_order_header THEN
2027:
2028: OZF_RESALE_COMMON_PVT.Insert_Resale_Header(
2029: p_api_version => 1
2030: ,p_init_msg_list => FND_API.G_FALSE
2031: ,p_commit => FND_API.G_FALSE
2032: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2033: ,p_line_int_rec => l_resale_int_rec
2034: ,x_header_id => l_header_id
2027:
2028: OZF_RESALE_COMMON_PVT.Insert_Resale_Header(
2029: p_api_version => 1
2030: ,p_init_msg_list => FND_API.G_FALSE
2031: ,p_commit => FND_API.G_FALSE
2032: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2033: ,p_line_int_rec => l_resale_int_rec
2034: ,x_header_id => l_header_id
2035: ,x_return_status => l_return_status
2028: OZF_RESALE_COMMON_PVT.Insert_Resale_Header(
2029: p_api_version => 1
2030: ,p_init_msg_list => FND_API.G_FALSE
2031: ,p_commit => FND_API.G_FALSE
2032: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2033: ,p_line_int_rec => l_resale_int_rec
2034: ,x_header_id => l_header_id
2035: ,x_return_status => l_return_status
2036: ,x_msg_data => l_msg_data
2035: ,x_return_status => l_return_status
2036: ,x_msg_data => l_msg_data
2037: ,x_msg_count => l_msg_count
2038: );
2039: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2041: END IF;
2042:
2043: --AMITAMKU Fix for Bug 16038553
2036: ,x_msg_data => l_msg_data
2037: ,x_msg_count => l_msg_count
2038: );
2039: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2040: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2041: END IF;
2042:
2043: --AMITAMKU Fix for Bug 16038553
2044: --Commented ELSE block since the duplicated lines are handeled now, before calling of this procedure
2070:
2071: IF l_exchange_type IS NULL THEN
2072: ozf_utility_pvt.error_message('OZF_CLAIM_CONTYPE_MISSING');
2073: l_resale_int_rec.dispute_code := 'OZF_CLAIM_CONTYPE_MISSING';
2074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2075: END IF;
2076:
2077: IF l_exchange_date IS NULL THEN
2078: l_exchange_date := sysdate;
2097: ,x_return_status => l_return_status
2098: ,x_to_amount => l_acctd_adj_unit_price
2099: ,x_rate => l_rate
2100: );
2101: IF l_return_status = FND_API.g_ret_sts_error THEN
2102: RAISE FND_API.g_exc_error;
2103: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2105: END IF;
2098: ,x_to_amount => l_acctd_adj_unit_price
2099: ,x_rate => l_rate
2100: );
2101: IF l_return_status = FND_API.g_ret_sts_error THEN
2102: RAISE FND_API.g_exc_error;
2103: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2105: END IF;
2106:
2099: ,x_rate => l_rate
2100: );
2101: IF l_return_status = FND_API.g_ret_sts_error THEN
2102: RAISE FND_API.g_exc_error;
2103: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2105: END IF;
2106:
2107: OZF_UTILITY_PVT.Convert_Currency(
2100: );
2101: IF l_return_status = FND_API.g_ret_sts_error THEN
2102: RAISE FND_API.g_exc_error;
2103: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2104: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2105: END IF;
2106:
2107: OZF_UTILITY_PVT.Convert_Currency(
2108: p_from_currency => l_resale_int_rec.currency_code
2113: ,p_FROM_amount => l_resale_int_rec.selling_price
2114: ,x_return_status => l_return_status
2115: ,x_to_amount => l_acctd_selling_price
2116: ,x_rate => l_rate);
2117: IF l_return_status = FND_API.g_ret_sts_error THEN
2118: RAISE FND_API.g_exc_error;
2119: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2121: END IF;
2114: ,x_return_status => l_return_status
2115: ,x_to_amount => l_acctd_selling_price
2116: ,x_rate => l_rate);
2117: IF l_return_status = FND_API.g_ret_sts_error THEN
2118: RAISE FND_API.g_exc_error;
2119: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2121: END IF;
2122: ELSE
2115: ,x_to_amount => l_acctd_selling_price
2116: ,x_rate => l_rate);
2117: IF l_return_status = FND_API.g_ret_sts_error THEN
2118: RAISE FND_API.g_exc_error;
2119: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2121: END IF;
2122: ELSE
2123: l_acctd_adj_unit_price := OZF_UTILITY_PVT.CurrRound(p_line_tbl(i).adjusted_unit_price*l_rate, l_func_currency_code);
2116: ,x_rate => l_rate);
2117: IF l_return_status = FND_API.g_ret_sts_error THEN
2118: RAISE FND_API.g_exc_error;
2119: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2120: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2121: END IF;
2122: ELSE
2123: l_acctd_adj_unit_price := OZF_UTILITY_PVT.CurrRound(p_line_tbl(i).adjusted_unit_price*l_rate, l_func_currency_code);
2124: l_acctd_selling_price := OZF_UTILITY_PVT.CurrRound(l_resale_int_rec.selling_price*l_rate, l_func_currency_code);
2153: x_ozf_act_budgets_tbl => x_ozf_act_budgets_tbl,
2154: x_ozf_funds_new_tbl => x_ozf_funds_new_tbl,
2155: x_draft_accrual_tbl => x_draft_accrual_tbl
2156: );
2157: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2158: IF l_resale_int_rec.dispute_code IS NULL THEN
2159: l_resale_int_rec.dispute_code := 'OZF_PRIC_RESULT_ERR';
2160: END IF;
2161: OZF_UTILITY_PVT.error_message('OZF_PRIC_RESULT_ERR');
2158: IF l_resale_int_rec.dispute_code IS NULL THEN
2159: l_resale_int_rec.dispute_code := 'OZF_PRIC_RESULT_ERR';
2160: END IF;
2161: OZF_UTILITY_PVT.error_message('OZF_PRIC_RESULT_ERR');
2162: RAISE FND_API.G_EXC_ERROR;
2163: -- drop this line from batch if it is from interface
2164: -- Fux for bug Bug 14584673 : Added exception block at the end of the loop to log all type of errors at one place.
2165: /* IF p_caller_type = 'IFACE' THEN
2166: BEGIN
2172: WHERE resale_line_int_id = p_line_tbl(i).chargeback_int_id;
2173: EXCEPTION
2174: WHEN OTHERS THEN
2175: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
2176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2177: END;
2178: END IF;*/
2179: ELSE
2180: -- CLOSE THIS LINE If it is from interface
2185: WHERE resale_line_int_id = p_line_tbl(i).chargeback_int_id;
2186: EXCEPTION
2187: WHEN OTHERS THEN
2188: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
2189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2190: END;
2191: END IF;
2192:
2193: -- For TPA Parallel Execution ER - 9614703 (-)
2208: p_column_name => NULL,
2209: p_column_value => NULL,
2210: x_return_status => l_return_status
2211: );
2212: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2213: RAISE FND_API.g_exc_error;
2214: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2215: RAISE FND_API.g_exc_unexpected_error;
2216: END IF;
2209: p_column_value => NULL,
2210: x_return_status => l_return_status
2211: );
2212: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2213: RAISE FND_API.g_exc_error;
2214: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2215: RAISE FND_API.g_exc_unexpected_error;
2216: END IF;
2217: IF p_run_mode <> 'DRAFT' THEN
2210: x_return_status => l_return_status
2211: );
2212: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2213: RAISE FND_API.g_exc_error;
2214: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2215: RAISE FND_API.g_exc_unexpected_error;
2216: END IF;
2217: IF p_run_mode <> 'DRAFT' THEN
2218: -- Delink resale interface line from batch
2211: );
2212: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2213: RAISE FND_API.g_exc_error;
2214: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2215: RAISE FND_API.g_exc_unexpected_error;
2216: END IF;
2217: IF p_run_mode <> 'DRAFT' THEN
2218: -- Delink resale interface line from batch
2219: UPDATE ozf_resale_lines_int_all
2227: SET status_code = 'DISPUTED',
2228: dispute_code = l_dispute_code
2229: WHERE resale_line_int_id = l_resale_int_rec.resale_line_int_id;
2230: END IF;
2231: l_return_status := FND_API.G_RET_STS_SUCCESS;
2232: END;
2233: END LOOP; -- END LOOP through lines
2234: END IF; -- END of checking error
2235: END IF; -- END of EXISTS
2240: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': end');
2241: END IF;
2242:
2243: EXCEPTION
2244: WHEN FND_API.G_EXC_ERROR THEN
2245: ozf_utility_pvt.write_conc_log('ERROR in process_pricing_result');
2246: --ROLLBACK TO PROC_PRIC_RESULT;
2247: x_return_status := FND_API.G_RET_STS_ERROR;
2248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2243: EXCEPTION
2244: WHEN FND_API.G_EXC_ERROR THEN
2245: ozf_utility_pvt.write_conc_log('ERROR in process_pricing_result');
2246: --ROLLBACK TO PROC_PRIC_RESULT;
2247: x_return_status := FND_API.G_RET_STS_ERROR;
2248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2249: ozf_utility_pvt.write_conc_log('UNEXP ERROR in process_pricing_result');
2250: --ROLLBACK TO PROC_PRIC_RESULT;
2251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2244: WHEN FND_API.G_EXC_ERROR THEN
2245: ozf_utility_pvt.write_conc_log('ERROR in process_pricing_result');
2246: --ROLLBACK TO PROC_PRIC_RESULT;
2247: x_return_status := FND_API.G_RET_STS_ERROR;
2248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2249: ozf_utility_pvt.write_conc_log('UNEXP ERROR in process_pricing_result');
2250: --ROLLBACK TO PROC_PRIC_RESULT;
2251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2252: WHEN OTHERS THEN
2247: x_return_status := FND_API.G_RET_STS_ERROR;
2248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2249: ozf_utility_pvt.write_conc_log('UNEXP ERROR in process_pricing_result');
2250: --ROLLBACK TO PROC_PRIC_RESULT;
2251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2252: WHEN OTHERS THEN
2253: ozf_utility_pvt.write_conc_log('OTHER ERROR in process_pricing_result');
2254: --ROLLBACK TO PROC_PRIC_RESULT;
2255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2252: WHEN OTHERS THEN
2253: ozf_utility_pvt.write_conc_log('OTHER ERROR in process_pricing_result');
2254: --ROLLBACK TO PROC_PRIC_RESULT;
2255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2256: END process_pricing_result;
2257:
2258: -- Bug 14194884 - TPA In Draft Mode ER
2259: PROCEDURE Process_Pricing_Result(
2316: ---------------------------------------------------------------------
2317: PROCEDURE Process_Resale_Order
2318: (
2319: p_api_version IN NUMBER
2320: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2321: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2322: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2323: ,p_resale_batch_id IN NUMBER
2324: ,x_return_status OUT NOCOPY VARCHAR2
2317: PROCEDURE Process_Resale_Order
2318: (
2319: p_api_version IN NUMBER
2320: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2321: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2322: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2323: ,p_resale_batch_id IN NUMBER
2324: ,x_return_status OUT NOCOPY VARCHAR2
2325: ,x_msg_data OUT NOCOPY VARCHAR2
2318: (
2319: p_api_version IN NUMBER
2320: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
2321: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
2322: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
2323: ,p_resale_batch_id IN NUMBER
2324: ,x_return_status OUT NOCOPY VARCHAR2
2325: ,x_msg_data OUT NOCOPY VARCHAR2
2326: ,x_msg_count OUT NOCOPY NUMBER
2406: BEGIN
2407: -- Standard BEGIN of API savepoint
2408: SAVEPOINT Process_Resale_Order;
2409: -- Standard call to check for call compatibility.
2410: IF NOT FND_API.Compatible_API_Call (
2411: l_api_version,
2412: p_api_version,
2413: l_api_name,
2414: G_PKG_NAME)
2412: p_api_version,
2413: l_api_name,
2414: G_PKG_NAME)
2415: THEN
2416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2417: END IF;
2418:
2419: --Initialize message list if p_init_msg_list is TRUE.
2420: IF FND_API.To_Boolean (p_init_msg_list) THEN
2416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2417: END IF;
2418:
2419: --Initialize message list if p_init_msg_list is TRUE.
2420: IF FND_API.To_Boolean (p_init_msg_list) THEN
2421: FND_MSG_PUB.initialize;
2422: END IF;
2423:
2424: -- Debug Message
2426: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
2427: END IF;
2428:
2429: -- Initialize API return status to sucess
2430: x_return_status := FND_API.G_RET_STS_SUCCESS;
2431:
2432: -- We need to UPDATE the order FROM indirect customers so that they're not to be included in the
2433: -- pricing simulation;
2434:
2555: AND resale_id_type = OZF_RESALE_COMMON_PVT.G_ID_TYPE_LINE;
2556: EXCEPTION
2557: WHEN OTHERS THEN
2558: ozf_utility_pvt.error_message('OZF_DEL_RESALE_LOG_WRG');
2559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2560: END;
2561:
2562: IF OZF_DEBUG_LOW_ON THEN
2563: ozf_utility_PVT.debug_message(l_api_name||'>> building order line for resale line id: '||l_order_set_tbl(j).resale_line_id);
2610: -- l_line_tbl(j).UNIT_PRICE := NULL;
2611: -- l_line_tbl(j).PERCENT_PRICE := NULL;
2612: -- l_line_tbl(j).UOM_QUANTITY := NULL;
2613: -- l_line_tbl(j).ADJUSTED_UNIT_PRICE := NULL;
2614: -- l_line_tbl(j).UPD_ADJUSTED_UNIT_PRICE NUMBER:= FND_API.G_MISS_NUM,
2615: -- l_line_tbl(j).PROCESSED_FLAG VARCHAR2(1):= FND_API.G_MISS_CHAR,
2616: -- l_line_tbl(j).PROCESSING_ORDER := NULL;
2617: -- l_line_tbl(j).PRICING_STATUS_TEXT := NULL;
2618: -- l_line_tbl(j).ROUNDING_FLAG := NULL;
2611: -- l_line_tbl(j).PERCENT_PRICE := NULL;
2612: -- l_line_tbl(j).UOM_QUANTITY := NULL;
2613: -- l_line_tbl(j).ADJUSTED_UNIT_PRICE := NULL;
2614: -- l_line_tbl(j).UPD_ADJUSTED_UNIT_PRICE NUMBER:= FND_API.G_MISS_NUM,
2615: -- l_line_tbl(j).PROCESSED_FLAG VARCHAR2(1):= FND_API.G_MISS_CHAR,
2616: -- l_line_tbl(j).PROCESSING_ORDER := NULL;
2617: -- l_line_tbl(j).PRICING_STATUS_TEXT := NULL;
2618: -- l_line_tbl(j).ROUNDING_FLAG := NULL;
2619: -- l_line_tbl(j).ROUNDING_FACTOR := NULL;
2818: END IF;
2819:
2820: OZF_ORDER_PRICE_PVT.Get_Order_Price (
2821: p_api_version => 1.0
2822: ,p_init_msg_list => FND_API.G_FALSE
2823: ,p_commit => FND_API.G_FALSE
2824: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2825: ,x_return_status => l_return_status
2826: ,x_msg_data => l_msg_data
2819:
2820: OZF_ORDER_PRICE_PVT.Get_Order_Price (
2821: p_api_version => 1.0
2822: ,p_init_msg_list => FND_API.G_FALSE
2823: ,p_commit => FND_API.G_FALSE
2824: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2825: ,x_return_status => l_return_status
2826: ,x_msg_data => l_msg_data
2827: ,x_msg_count => l_msg_count
2820: OZF_ORDER_PRICE_PVT.Get_Order_Price (
2821: p_api_version => 1.0
2822: ,p_init_msg_list => FND_API.G_FALSE
2823: ,p_commit => FND_API.G_FALSE
2824: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
2825: ,x_return_status => l_return_status
2826: ,x_msg_data => l_msg_data
2827: ,x_msg_count => l_msg_count
2828: ,p_control_rec => l_control_rec
2829: ,xp_line_tbl => l_line_tbl
2830: ,x_ldets_tbl => l_ldets_tbl
2831: ,x_related_lines_tbl => l_related_lines_tbl
2832: );
2833: IF l_return_status<> FND_API.G_RET_STS_SUCCESS THEN
2834: ozf_utility_pvt.error_message('OZF_GET_ORDER_PRIC_ERR');
2835:
2836: FOR p in 1..l_order_set_tbl.LAST
2837: LOOP
2858: );
2859: EXCEPTION
2860: WHEN OTHERS THEN
2861: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
2862: RAISE FND_API.g_exc_unexpected_error;
2863: END;
2864: END LOOP;
2865: IF OZF_DEBUG_LOW_ON THEN
2866: ozf_utility_PVT.debug_message('/*--- Get order price failed ---*/');
2882: x_return_status => l_return_status,
2883: x_ozf_act_budgets_tbl => l_ozf_act_budgets_tbl,
2884: x_ozf_funds_new_tbl => l_ozf_funds_new_tbl
2885: );
2886: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2887: FND_MSG_PUB.Count_And_Get (
2888: p_encoded => FND_API.G_FALSE,
2889: p_count => l_temp_count,
2890: p_data => l_temp_data
2884: x_ozf_funds_new_tbl => l_ozf_funds_new_tbl
2885: );
2886: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2887: FND_MSG_PUB.Count_And_Get (
2888: p_encoded => FND_API.G_FALSE,
2889: p_count => l_temp_count,
2890: p_data => l_temp_data
2891: );
2892:
2891: );
2892:
2893: fnd_msg_pub.Get(
2894: p_msg_index => l_temp_count,
2895: p_encoded => FND_API.G_FALSE,
2896: p_data => l_temp_data,
2897: p_msg_index_out => l_temp_count
2898: );
2899: IF OZF_DEBUG_LOW_ON THEN
2925: );
2926: EXCEPTION
2927: WHEN OTHERS THEN
2928: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
2929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2930: END;
2931: END LOOP;
2932: IF OZF_DEBUG_LOW_ON THEN
2933: ozf_utility_PVT.debug_message('/*--- process_price_result Failed ---*/');
2949: ozf_utility_pvt.write_conc_log('l_ozf_funds_new_tbl.COUNT: ' || l_ozf_funds_new_tbl.COUNT);
2950: ozf_utility_pvt.write_conc_log('l_ozf_act_budgets_tbl.COUNT: ' || l_ozf_act_budgets_tbl.COUNT);
2951: IF l_ozf_funds_new_tbl.COUNT > 0 THEN
2952: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
2953: IF x_return_status = FND_API.g_ret_sts_error THEN
2954: RAISE FND_API.g_exc_error;
2955: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2956: RAISE FND_API.g_exc_unexpected_error;
2957: END IF;
2950: ozf_utility_pvt.write_conc_log('l_ozf_act_budgets_tbl.COUNT: ' || l_ozf_act_budgets_tbl.COUNT);
2951: IF l_ozf_funds_new_tbl.COUNT > 0 THEN
2952: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
2953: IF x_return_status = FND_API.g_ret_sts_error THEN
2954: RAISE FND_API.g_exc_error;
2955: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2956: RAISE FND_API.g_exc_unexpected_error;
2957: END IF;
2958: END IF;
2951: IF l_ozf_funds_new_tbl.COUNT > 0 THEN
2952: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
2953: IF x_return_status = FND_API.g_ret_sts_error THEN
2954: RAISE FND_API.g_exc_error;
2955: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2956: RAISE FND_API.g_exc_unexpected_error;
2957: END IF;
2958: END IF;
2959:
2952: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
2953: IF x_return_status = FND_API.g_ret_sts_error THEN
2954: RAISE FND_API.g_exc_error;
2955: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2956: RAISE FND_API.g_exc_unexpected_error;
2957: END IF;
2958: END IF;
2959:
2960: IF l_ozf_act_budgets_tbl.COUNT > 0 THEN
2958: END IF;
2959:
2960: IF l_ozf_act_budgets_tbl.COUNT > 0 THEN
2961: OZF_UTILITY_PVT.UPDATE_OZF_ACT_BUDGETS(p_resale_batch_id, x_return_status, x_budget_update_status, l_ozf_act_budgets_tbl, 'TP_ACCRUAL');
2962: IF x_return_status = FND_API.g_ret_sts_error THEN
2963: RAISE FND_API.g_exc_error;
2964: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2965: RAISE FND_API.g_exc_unexpected_error;
2966: END IF;
2959:
2960: IF l_ozf_act_budgets_tbl.COUNT > 0 THEN
2961: OZF_UTILITY_PVT.UPDATE_OZF_ACT_BUDGETS(p_resale_batch_id, x_return_status, x_budget_update_status, l_ozf_act_budgets_tbl, 'TP_ACCRUAL');
2962: IF x_return_status = FND_API.g_ret_sts_error THEN
2963: RAISE FND_API.g_exc_error;
2964: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2965: RAISE FND_API.g_exc_unexpected_error;
2966: END IF;
2967: END IF;
2960: IF l_ozf_act_budgets_tbl.COUNT > 0 THEN
2961: OZF_UTILITY_PVT.UPDATE_OZF_ACT_BUDGETS(p_resale_batch_id, x_return_status, x_budget_update_status, l_ozf_act_budgets_tbl, 'TP_ACCRUAL');
2962: IF x_return_status = FND_API.g_ret_sts_error THEN
2963: RAISE FND_API.g_exc_error;
2964: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2965: RAISE FND_API.g_exc_unexpected_error;
2966: END IF;
2967: END IF;
2968:
2961: OZF_UTILITY_PVT.UPDATE_OZF_ACT_BUDGETS(p_resale_batch_id, x_return_status, x_budget_update_status, l_ozf_act_budgets_tbl, 'TP_ACCRUAL');
2962: IF x_return_status = FND_API.g_ret_sts_error THEN
2963: RAISE FND_API.g_exc_error;
2964: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2965: RAISE FND_API.g_exc_unexpected_error;
2966: END IF;
2967: END IF;
2968:
2969: --Update Batch status to Pending Accruals in case locking happens, Batch Line status remains unchanged
2995: OZF_UTILITY_PVT.debug_message(l_full_name||': End'|| x_return_status);
2996: END IF;
2997: --Standard call to get message count and if count=1, get the message
2998: FND_MSG_PUB.Count_And_Get (
2999: p_encoded => FND_API.G_FALSE,
3000: p_count => x_msg_count,
3001: p_data => x_msg_data
3002: );
3003: EXCEPTION
3000: p_count => x_msg_count,
3001: p_data => x_msg_data
3002: );
3003: EXCEPTION
3004: WHEN FND_API.G_EXC_ERROR THEN
3005: ROLLBACK TO Process_Resale_Order;
3006: x_return_status := FND_API.G_RET_STS_ERROR;
3007: -- Standard call to get message count and if count=1, get the message
3008: FND_MSG_PUB.Count_And_Get (
3002: );
3003: EXCEPTION
3004: WHEN FND_API.G_EXC_ERROR THEN
3005: ROLLBACK TO Process_Resale_Order;
3006: x_return_status := FND_API.G_RET_STS_ERROR;
3007: -- Standard call to get message count and if count=1, get the message
3008: FND_MSG_PUB.Count_And_Get (
3009: p_encoded => FND_API.G_FALSE,
3010: p_count => x_msg_count,
3005: ROLLBACK TO Process_Resale_Order;
3006: x_return_status := FND_API.G_RET_STS_ERROR;
3007: -- Standard call to get message count and if count=1, get the message
3008: FND_MSG_PUB.Count_And_Get (
3009: p_encoded => FND_API.G_FALSE,
3010: p_count => x_msg_count,
3011: p_data => x_msg_data
3012: );
3013: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3009: p_encoded => FND_API.G_FALSE,
3010: p_count => x_msg_count,
3011: p_data => x_msg_data
3012: );
3013: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3014: ROLLBACK TO Process_Resale_Order;
3015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3016:
3017: -- Standard call to get message count and if count=1, get the message
3011: p_data => x_msg_data
3012: );
3013: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3014: ROLLBACK TO Process_Resale_Order;
3015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3016:
3017: -- Standard call to get message count and if count=1, get the message
3018: FND_MSG_PUB.Count_And_Get (
3019: p_encoded => FND_API.G_FALSE,
3015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3016:
3017: -- Standard call to get message count and if count=1, get the message
3018: FND_MSG_PUB.Count_And_Get (
3019: p_encoded => FND_API.G_FALSE,
3020: p_count => x_msg_count,
3021: p_data => x_msg_data
3022: );
3023: WHEN OTHERS THEN
3021: p_data => x_msg_data
3022: );
3023: WHEN OTHERS THEN
3024: ROLLBACK TO Process_Resale_Order;
3025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3026:
3027: -- Standard call to get message count and if count=1, get the message
3028: FND_MSG_PUB.Count_And_Get (
3029: p_encoded => FND_API.G_FALSE,
3025: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3026:
3027: -- Standard call to get message count and if count=1, get the message
3028: FND_MSG_PUB.Count_And_Get (
3029: p_encoded => FND_API.G_FALSE,
3030: p_count => x_msg_count,
3031: p_data => x_msg_data
3032: );
3033: END Process_Resale_Order;
3045: --
3046: ---------------------------------------------------------------------
3047: PROCEDURE Process_Resale (
3048: p_api_version IN NUMBER
3049: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3050: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3051: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3052: ,p_resale_batch_id IN NUMBER
3053: ,x_return_status OUT NOCOPY VARCHAR2
3046: ---------------------------------------------------------------------
3047: PROCEDURE Process_Resale (
3048: p_api_version IN NUMBER
3049: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3050: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3051: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3052: ,p_resale_batch_id IN NUMBER
3053: ,x_return_status OUT NOCOPY VARCHAR2
3054: ,x_msg_data OUT NOCOPY VARCHAR2
3047: PROCEDURE Process_Resale (
3048: p_api_version IN NUMBER
3049: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3050: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3051: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3052: ,p_resale_batch_id IN NUMBER
3053: ,x_return_status OUT NOCOPY VARCHAR2
3054: ,x_msg_data OUT NOCOPY VARCHAR2
3055: ,x_msg_count OUT NOCOPY NUMBER
3065: BEGIN
3066: -- Standard BEGIN of API savepoint
3067: SAVEPOINT PROCESS_TP_RESALE;
3068: -- Standard call to check for call compatibility.
3069: IF NOT FND_API.Compatible_API_Call (
3070: l_api_version,
3071: p_api_version,
3072: l_api_name,
3073: G_PKG_NAME)
3071: p_api_version,
3072: l_api_name,
3073: G_PKG_NAME)
3074: THEN
3075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3076: END IF;
3077:
3078: --Initialize message lISt if p_init_msg_list IS TRUE.
3079: IF FND_API.To_BOOLEAN (p_init_msg_list) THEN
3075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3076: END IF;
3077:
3078: --Initialize message lISt if p_init_msg_list IS TRUE.
3079: IF FND_API.To_BOOLEAN (p_init_msg_list) THEN
3080: FND_MSG_PUB.initialize;
3081: END IF;
3082:
3083: -- Debug Message
3085: OZF_UTILITY_PVT.debug_message(l_full_name||': Start');
3086: END IF;
3087:
3088: -- Initialize API return status to sucess
3089: x_return_status := FND_API.G_RET_STS_SUCCESS;
3090:
3091: -- validate batch for resale processing
3092: Validate_batch(
3093: p_api_version => 1
3090:
3091: -- validate batch for resale processing
3092: Validate_batch(
3093: p_api_version => 1
3094: ,p_init_msg_list => FND_API.G_FALSE
3095: ,p_commit => FND_API.G_FALSE
3096: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3097: ,p_resale_batch_id => p_resale_batch_id
3098: ,x_return_status => l_return_status
3091: -- validate batch for resale processing
3092: Validate_batch(
3093: p_api_version => 1
3094: ,p_init_msg_list => FND_API.G_FALSE
3095: ,p_commit => FND_API.G_FALSE
3096: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3097: ,p_resale_batch_id => p_resale_batch_id
3098: ,x_return_status => l_return_status
3099: ,x_msg_data => l_msg_data
3092: Validate_batch(
3093: p_api_version => 1
3094: ,p_init_msg_list => FND_API.G_FALSE
3095: ,p_commit => FND_API.G_FALSE
3096: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3097: ,p_resale_batch_id => p_resale_batch_id
3098: ,x_return_status => l_return_status
3099: ,x_msg_data => l_msg_data
3100: ,x_msg_count => l_msg_count
3099: ,x_msg_data => l_msg_data
3100: ,x_msg_count => l_msg_count
3101: );
3102:
3103: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3104: RAISE FND_API.G_EXC_ERROR;
3105: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3107: END IF;
3100: ,x_msg_count => l_msg_count
3101: );
3102:
3103: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3104: RAISE FND_API.G_EXC_ERROR;
3105: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3107: END IF;
3108:
3101: );
3102:
3103: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3104: RAISE FND_API.G_EXC_ERROR;
3105: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3107: END IF;
3108:
3109: -- calling Third party accrual validation for this batch
3102:
3103: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3104: RAISE FND_API.G_EXC_ERROR;
3105: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3106: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3107: END IF;
3108:
3109: -- calling Third party accrual validation for this batch
3110: Validate_Order_Record(
3108:
3109: -- calling Third party accrual validation for this batch
3110: Validate_Order_Record(
3111: p_api_version => 1
3112: ,p_init_msg_list => FND_API.G_FALSE
3113: ,p_commit => FND_API.G_FALSE
3114: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3115: ,p_resale_batch_id => p_resale_batch_id
3116: ,p_caller_type => G_RESALE_CALLER
3109: -- calling Third party accrual validation for this batch
3110: Validate_Order_Record(
3111: p_api_version => 1
3112: ,p_init_msg_list => FND_API.G_FALSE
3113: ,p_commit => FND_API.G_FALSE
3114: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3115: ,p_resale_batch_id => p_resale_batch_id
3116: ,p_caller_type => G_RESALE_CALLER
3117: ,x_return_status => l_return_status
3110: Validate_Order_Record(
3111: p_api_version => 1
3112: ,p_init_msg_list => FND_API.G_FALSE
3113: ,p_commit => FND_API.G_FALSE
3114: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3115: ,p_resale_batch_id => p_resale_batch_id
3116: ,p_caller_type => G_RESALE_CALLER
3117: ,x_return_status => l_return_status
3118: ,x_msg_data => l_msg_data
3118: ,x_msg_data => l_msg_data
3119: ,x_msg_count => l_msg_count
3120: );
3121:
3122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3123: RAISE FND_API.G_EXC_ERROR;
3124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3126: END IF;
3119: ,x_msg_count => l_msg_count
3120: );
3121:
3122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3123: RAISE FND_API.G_EXC_ERROR;
3124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3126: END IF;
3127:
3120: );
3121:
3122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3123: RAISE FND_API.G_EXC_ERROR;
3124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3126: END IF;
3127:
3128: Process_Resale_Order (
3121:
3122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3123: RAISE FND_API.G_EXC_ERROR;
3124: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3126: END IF;
3127:
3128: Process_Resale_Order (
3129: p_api_version => 1.0
3126: END IF;
3127:
3128: Process_Resale_Order (
3129: p_api_version => 1.0
3130: ,p_init_msg_list => FND_API.G_FALSE
3131: ,p_commit => FND_API.G_FALSE
3132: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3133: ,p_resale_batch_id => p_resale_batch_id
3134: ,x_return_status => l_return_status
3127:
3128: Process_Resale_Order (
3129: p_api_version => 1.0
3130: ,p_init_msg_list => FND_API.G_FALSE
3131: ,p_commit => FND_API.G_FALSE
3132: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3133: ,p_resale_batch_id => p_resale_batch_id
3134: ,x_return_status => l_return_status
3135: ,x_msg_data => l_msg_data
3128: Process_Resale_Order (
3129: p_api_version => 1.0
3130: ,p_init_msg_list => FND_API.G_FALSE
3131: ,p_commit => FND_API.G_FALSE
3132: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3133: ,p_resale_batch_id => p_resale_batch_id
3134: ,x_return_status => l_return_status
3135: ,x_msg_data => l_msg_data
3136: ,x_msg_count => l_msg_count
3135: ,x_msg_data => l_msg_data
3136: ,x_msg_count => l_msg_count
3137: );
3138:
3139: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3140: RAISE FND_API.G_EXC_ERROR;
3141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3143: END IF;
3136: ,x_msg_count => l_msg_count
3137: );
3138:
3139: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3140: RAISE FND_API.G_EXC_ERROR;
3141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3143: END IF;
3144:
3137: );
3138:
3139: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3140: RAISE FND_API.G_EXC_ERROR;
3141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3143: END IF;
3144:
3145: -- Debug Message
3138:
3139: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
3140: RAISE FND_API.G_EXC_ERROR;
3141: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3143: END IF;
3144:
3145: -- Debug Message
3146: IF OZF_DEBUG_HIGH_ON THEN
3147: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
3148: END IF;
3149: --Standard call to get message count and if count=1, get the message
3150: FND_MSG_PUB.Count_And_Get (
3151: p_encoded => FND_API.G_FALSE,
3152: p_count => x_msg_count,
3153: p_data => x_msg_data
3154: );
3155:
3153: p_data => x_msg_data
3154: );
3155:
3156: EXCEPTION
3157: WHEN FND_API.G_EXC_ERROR THEN
3158: ROLLBACK TO PROCESS_TP_RESALE;
3159: x_return_status := FND_API.G_RET_STS_ERROR;
3160: -- Standard call to get message count and if count=1, get the message
3161: FND_MSG_PUB.Count_And_Get (
3155:
3156: EXCEPTION
3157: WHEN FND_API.G_EXC_ERROR THEN
3158: ROLLBACK TO PROCESS_TP_RESALE;
3159: x_return_status := FND_API.G_RET_STS_ERROR;
3160: -- Standard call to get message count and if count=1, get the message
3161: FND_MSG_PUB.Count_And_Get (
3162: p_encoded => FND_API.G_FALSE,
3163: p_count => x_msg_count,
3158: ROLLBACK TO PROCESS_TP_RESALE;
3159: x_return_status := FND_API.G_RET_STS_ERROR;
3160: -- Standard call to get message count and if count=1, get the message
3161: FND_MSG_PUB.Count_And_Get (
3162: p_encoded => FND_API.G_FALSE,
3163: p_count => x_msg_count,
3164: p_data => x_msg_data
3165: );
3166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3162: p_encoded => FND_API.G_FALSE,
3163: p_count => x_msg_count,
3164: p_data => x_msg_data
3165: );
3166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3167: ROLLBACK TO PROCESS_TP_RESALE;
3168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3169:
3170: -- Standard call to get message count and if count=1, get the message
3164: p_data => x_msg_data
3165: );
3166: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3167: ROLLBACK TO PROCESS_TP_RESALE;
3168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3169:
3170: -- Standard call to get message count and if count=1, get the message
3171: FND_MSG_PUB.Count_And_Get (
3172: p_encoded => FND_API.G_FALSE,
3168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3169:
3170: -- Standard call to get message count and if count=1, get the message
3171: FND_MSG_PUB.Count_And_Get (
3172: p_encoded => FND_API.G_FALSE,
3173: p_count => x_msg_count,
3174: p_data => x_msg_data
3175: );
3176: WHEN OTHERS THEN
3174: p_data => x_msg_data
3175: );
3176: WHEN OTHERS THEN
3177: ROLLBACK TO PROCESS_TP_RESALE;
3178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3179:
3180: -- Standard call to get message count and if count=1, get the message
3181: FND_MSG_PUB.Count_And_Get (
3182: p_encoded => FND_API.G_FALSE,
3178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3179:
3180: -- Standard call to get message count and if count=1, get the message
3181: FND_MSG_PUB.Count_And_Get (
3182: p_encoded => FND_API.G_FALSE,
3183: p_count => x_msg_count,
3184: p_data => x_msg_data
3185: );
3186: END Process_Resale;
3205: ---------------------------------------------------------------------
3206: PROCEDURE Move_Indirect_Customer_Order
3207: (
3208: p_api_version IN NUMBER
3209: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3210: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3211: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3212: ,p_resale_batch_id IN NUMBER
3213: ,x_return_status OUT NOCOPY VARCHAR2
3206: PROCEDURE Move_Indirect_Customer_Order
3207: (
3208: p_api_version IN NUMBER
3209: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3210: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3211: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3212: ,p_resale_batch_id IN NUMBER
3213: ,x_return_status OUT NOCOPY VARCHAR2
3214: ,x_msg_data OUT NOCOPY VARCHAR2
3207: (
3208: p_api_version IN NUMBER
3209: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3210: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3211: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3212: ,p_resale_batch_id IN NUMBER
3213: ,x_return_status OUT NOCOPY VARCHAR2
3214: ,x_msg_data OUT NOCOPY VARCHAR2
3215: ,x_msg_count OUT NOCOPY NUMBER
3272: BEGIN
3273: -- Standard BEGIN of API savepoint
3274: SAVEPOINT TP_ACCRUAL_MV_IC;
3275: -- Standard call to check for call compatibility.
3276: IF NOT FND_API.Compatible_API_Call (
3277: l_api_version,
3278: p_api_version,
3279: l_api_name,
3280: G_PKG_NAME)
3278: p_api_version,
3279: l_api_name,
3280: G_PKG_NAME)
3281: THEN
3282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3283: END IF;
3284:
3285: --Initialize message list if p_init_msg_list is TRUE.
3286: IF FND_API.To_Boolean (p_init_msg_list) THEN
3282: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3283: END IF;
3284:
3285: --Initialize message list if p_init_msg_list is TRUE.
3286: IF FND_API.To_Boolean (p_init_msg_list) THEN
3287: FND_MSG_PUB.initialize;
3288: END IF;
3289:
3290: -- Debug Message
3292: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
3293: END IF;
3294:
3295: -- Initialize API return status to sucess
3296: x_return_status := FND_API.G_RET_STS_SUCCESS;
3297:
3298: IF OZF_DEBUG_LOW_ON THEN
3299: ozf_utility_PVT.debug_message('in mv id cust' );
3300: END IF;
3308: CLOSE org_id_csr;
3309:
3310: IF l_org_id is NULL THEN
3311: ozf_utility_pvt.error_message('OZF_CLAIM_ORG_ID_MISSING');
3312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3313: END IF;
3314:
3315: --j:=1;
3316: IF l_order_num_tbl.EXISTS(1) THEN
3367: -- Create an order header for the order_NUMBER;
3368: IF k = 1 THEN
3369: OZF_RESALE_COMMON_PVT.Insert_resale_header(
3370: p_api_version => 1
3371: ,p_init_msg_list => FND_API.G_FALSE
3372: ,p_commit => FND_API.G_FALSE
3373: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3374: ,p_line_int_rec => l_resale_int_tbl(k)
3375: ,x_header_id => l_header_id
3368: IF k = 1 THEN
3369: OZF_RESALE_COMMON_PVT.Insert_resale_header(
3370: p_api_version => 1
3371: ,p_init_msg_list => FND_API.G_FALSE
3372: ,p_commit => FND_API.G_FALSE
3373: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3374: ,p_line_int_rec => l_resale_int_tbl(k)
3375: ,x_header_id => l_header_id
3376: ,x_return_status => l_return_status
3369: OZF_RESALE_COMMON_PVT.Insert_resale_header(
3370: p_api_version => 1
3371: ,p_init_msg_list => FND_API.G_FALSE
3372: ,p_commit => FND_API.G_FALSE
3373: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3374: ,p_line_int_rec => l_resale_int_tbl(k)
3375: ,x_header_id => l_header_id
3376: ,x_return_status => l_return_status
3377: ,x_msg_data => l_msg_data
3376: ,x_return_status => l_return_status
3377: ,x_msg_data => l_msg_data
3378: ,x_msg_count => l_msg_count
3379: );
3380: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3382: END IF;
3383: END IF;
3384:
3377: ,x_msg_data => l_msg_data
3378: ,x_msg_count => l_msg_count
3379: );
3380: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3382: END IF;
3383: END IF;
3384:
3385: OZF_RESALE_COMMON_PVT.Insert_resale_line(
3383: END IF;
3384:
3385: OZF_RESALE_COMMON_PVT.Insert_resale_line(
3386: p_api_version => 1
3387: ,p_init_msg_list => FND_API.G_FALSE
3388: ,p_commit => FND_API.G_FALSE
3389: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3390: ,p_line_int_rec => l_resale_int_tbl(k)
3391: ,p_header_id => l_header_id
3384:
3385: OZF_RESALE_COMMON_PVT.Insert_resale_line(
3386: p_api_version => 1
3387: ,p_init_msg_list => FND_API.G_FALSE
3388: ,p_commit => FND_API.G_FALSE
3389: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3390: ,p_line_int_rec => l_resale_int_tbl(k)
3391: ,p_header_id => l_header_id
3392: ,x_line_id => l_line_id
3385: OZF_RESALE_COMMON_PVT.Insert_resale_line(
3386: p_api_version => 1
3387: ,p_init_msg_list => FND_API.G_FALSE
3388: ,p_commit => FND_API.G_FALSE
3389: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3390: ,p_line_int_rec => l_resale_int_tbl(k)
3391: ,p_header_id => l_header_id
3392: ,x_line_id => l_line_id
3393: ,x_return_status => l_return_status
3393: ,x_return_status => l_return_status
3394: ,x_msg_data => l_msg_data
3395: ,x_msg_count => l_msg_count
3396: );
3397: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: END IF;
3400: END LOOP;
3401: END IF;
3394: ,x_msg_data => l_msg_data
3395: ,x_msg_count => l_msg_count
3396: );
3397: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3399: END IF;
3400: END LOOP;
3401: END IF;
3402: END LOOP;
3409: AND resale_batch_id = p_resale_batch_id;
3410: EXCEPTION
3411: WHEN OTHERS THEN
3412: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
3413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3414: END;
3415: END IF;
3416: -- Debug Message
3417: IF OZF_DEBUG_HIGH_ON THEN
3419: END IF;
3420:
3421: --Standard call to get message count and if count=1, get the message
3422: FND_MSG_PUB.Count_And_Get (
3423: p_encoded => FND_API.G_FALSE,
3424: p_count => x_msg_count,
3425: p_data => x_msg_data
3426: );
3427: EXCEPTION
3424: p_count => x_msg_count,
3425: p_data => x_msg_data
3426: );
3427: EXCEPTION
3428: WHEN FND_API.G_EXC_ERROR THEN
3429: x_return_status := FND_API.G_RET_STS_ERROR;
3430: -- Standard call to get message count and if count=1, get the message
3431: FND_MSG_PUB.Count_And_Get (
3432: p_encoded => FND_API.G_FALSE,
3425: p_data => x_msg_data
3426: );
3427: EXCEPTION
3428: WHEN FND_API.G_EXC_ERROR THEN
3429: x_return_status := FND_API.G_RET_STS_ERROR;
3430: -- Standard call to get message count and if count=1, get the message
3431: FND_MSG_PUB.Count_And_Get (
3432: p_encoded => FND_API.G_FALSE,
3433: p_count => x_msg_count,
3428: WHEN FND_API.G_EXC_ERROR THEN
3429: x_return_status := FND_API.G_RET_STS_ERROR;
3430: -- Standard call to get message count and if count=1, get the message
3431: FND_MSG_PUB.Count_And_Get (
3432: p_encoded => FND_API.G_FALSE,
3433: p_count => x_msg_count,
3434: p_data => x_msg_data
3435: );
3436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3432: p_encoded => FND_API.G_FALSE,
3433: p_count => x_msg_count,
3434: p_data => x_msg_data
3435: );
3436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3438:
3439: -- Standard call to get message count and if count=1, get the message
3440: FND_MSG_PUB.Count_And_Get (
3433: p_count => x_msg_count,
3434: p_data => x_msg_data
3435: );
3436: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3438:
3439: -- Standard call to get message count and if count=1, get the message
3440: FND_MSG_PUB.Count_And_Get (
3441: p_encoded => FND_API.G_FALSE,
3437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3438:
3439: -- Standard call to get message count and if count=1, get the message
3440: FND_MSG_PUB.Count_And_Get (
3441: p_encoded => FND_API.G_FALSE,
3442: p_count => x_msg_count,
3443: p_data => x_msg_data
3444: );
3445: WHEN OTHERS THEN
3443: p_data => x_msg_data
3444: );
3445: WHEN OTHERS THEN
3446: ROLLBACK TO TP_ACCRUAL_MV_IC;
3447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3448:
3449: -- Standard call to get message count and if count=1, get the message
3450: FND_MSG_PUB.Count_And_Get (
3451: p_encoded => FND_API.G_FALSE,
3447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3448:
3449: -- Standard call to get message count and if count=1, get the message
3450: FND_MSG_PUB.Count_And_Get (
3451: p_encoded => FND_API.G_FALSE,
3452: p_count => x_msg_count,
3453: p_data => x_msg_data
3454: );
3455: END Move_Indirect_Customer_Order;
3469:
3470: ---------------------------------------------------------------------
3471: PROCEDURE Process_Order(
3472: p_api_version IN NUMBER
3473: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3474: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3475: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3476: ,p_resale_batch_id IN NUMBER
3477: ,p_run_mode IN VARCHAR2 := NULL
3470: ---------------------------------------------------------------------
3471: PROCEDURE Process_Order(
3472: p_api_version IN NUMBER
3473: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3474: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3475: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3476: ,p_resale_batch_id IN NUMBER
3477: ,p_run_mode IN VARCHAR2 := NULL
3478: ,p_draft_run_id IN NUMBER := NULL
3471: PROCEDURE Process_Order(
3472: p_api_version IN NUMBER
3473: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
3474: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
3475: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
3476: ,p_resale_batch_id IN NUMBER
3477: ,p_run_mode IN VARCHAR2 := NULL
3478: ,p_draft_run_id IN NUMBER := NULL
3479: ,x_return_status OUT NOCOPY VARCHAR2
3649: BEGIN
3650: -- Standard BEGIN of API savepoint
3651: SAVEPOINT Process_Order;
3652: -- Standard call to check for call compatibility.
3653: IF NOT FND_API.Compatible_API_Call (
3654: l_api_version,
3655: p_api_version,
3656: l_api_name,
3657: G_PKG_NAME)
3655: p_api_version,
3656: l_api_name,
3657: G_PKG_NAME)
3658: THEN
3659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3660: END IF;
3661:
3662: --Initialize message list if p_init_msg_list is TRUE.
3663: IF FND_API.To_Boolean (p_init_msg_list) THEN
3659: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3660: END IF;
3661:
3662: --Initialize message list if p_init_msg_list is TRUE.
3663: IF FND_API.To_Boolean (p_init_msg_list) THEN
3664: FND_MSG_PUB.initialize;
3665: END IF;
3666:
3667: -- Debug Message
3669: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': start');
3670: END IF;
3671:
3672: -- Initialize API return status to sucess
3673: x_return_status := FND_API.G_RET_STS_SUCCESS;
3674:
3675: --Get the run mode for TPA for Draft Mode
3676: l_run_mode := NVL(p_run_mode, 'FINAL');
3677:
3677:
3678: -- Call preprocess here.
3679: OZF_PRE_PROCESS_PVT.Resale_Pre_Process(
3680: p_api_version_number => 1
3681: ,p_init_msg_list => FND_API.G_FALSE
3682: ,p_commit => FND_API.G_FALSE
3683: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3684: ,p_batch_id => p_resale_batch_id
3685: ,x_batch_status => l_new_batch_status
3678: -- Call preprocess here.
3679: OZF_PRE_PROCESS_PVT.Resale_Pre_Process(
3680: p_api_version_number => 1
3681: ,p_init_msg_list => FND_API.G_FALSE
3682: ,p_commit => FND_API.G_FALSE
3683: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3684: ,p_batch_id => p_resale_batch_id
3685: ,x_batch_status => l_new_batch_status
3686: ,x_return_status => l_return_status
3679: OZF_PRE_PROCESS_PVT.Resale_Pre_Process(
3680: p_api_version_number => 1
3681: ,p_init_msg_list => FND_API.G_FALSE
3682: ,p_commit => FND_API.G_FALSE
3683: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3684: ,p_batch_id => p_resale_batch_id
3685: ,x_batch_status => l_new_batch_status
3686: ,x_return_status => l_return_status
3687: ,x_msg_data => l_msg_data
3686: ,x_return_status => l_return_status
3687: ,x_msg_data => l_msg_data
3688: ,x_msg_count => l_msg_count
3689: );
3690: IF l_return_status <> FND_API.g_ret_sts_SUCCESS THEN
3691: ozf_utility_pvt.error_message('OZF_PRE_PROCESS_ERR');
3692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3693: END IF;
3694:
3688: ,x_msg_count => l_msg_count
3689: );
3690: IF l_return_status <> FND_API.g_ret_sts_SUCCESS THEN
3691: ozf_utility_pvt.error_message('OZF_PRE_PROCESS_ERR');
3692: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3693: END IF;
3694:
3695: -- [BUG 4233341 FIXING]: add output file
3696: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' Disputed Interface Lines After Pre-Processing:');
3722: --AMITAMKU Bug 14685303 - Added call of this procedure to check if the duplicates of the existing lines
3723: --If duplicate lines are found, then the status is updated as DUPLICATED
3724: OZF_RESALE_COMMON_PVT.Update_Duplicates (
3725: p_api_version => 1
3726: ,p_init_msg_LIST => FND_API.G_FALSE
3727: ,p_commit => FND_API.G_FALSE
3728: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3729: ,p_resale_batch_id => p_resale_batch_id
3730: ,p_resale_batch_type => OZF_RESALE_COMMON_PVT.G_TP_ACCRUAL
3723: --If duplicate lines are found, then the status is updated as DUPLICATED
3724: OZF_RESALE_COMMON_PVT.Update_Duplicates (
3725: p_api_version => 1
3726: ,p_init_msg_LIST => FND_API.G_FALSE
3727: ,p_commit => FND_API.G_FALSE
3728: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3729: ,p_resale_batch_id => p_resale_batch_id
3730: ,p_resale_batch_type => OZF_RESALE_COMMON_PVT.G_TP_ACCRUAL
3731: ,p_batch_status => l_batch_status
3724: OZF_RESALE_COMMON_PVT.Update_Duplicates (
3725: p_api_version => 1
3726: ,p_init_msg_LIST => FND_API.G_FALSE
3727: ,p_commit => FND_API.G_FALSE
3728: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3729: ,p_resale_batch_id => p_resale_batch_id
3730: ,p_resale_batch_type => OZF_RESALE_COMMON_PVT.G_TP_ACCRUAL
3731: ,p_batch_status => l_batch_status
3732: ,x_batch_status => l_new_batch_status
3777:
3778: -- OK to do it here
3779: Move_Indirect_Customer_Order (
3780: p_api_version => 1
3781: ,p_init_msg_list => FND_API.G_FALSE
3782: ,p_commit => FND_API.G_FALSE
3783: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3784: ,p_resale_batch_id => p_resale_batch_id
3785: ,x_return_status => l_return_status
3778: -- OK to do it here
3779: Move_Indirect_Customer_Order (
3780: p_api_version => 1
3781: ,p_init_msg_list => FND_API.G_FALSE
3782: ,p_commit => FND_API.G_FALSE
3783: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3784: ,p_resale_batch_id => p_resale_batch_id
3785: ,x_return_status => l_return_status
3786: ,x_msg_data => l_msg_data
3779: Move_Indirect_Customer_Order (
3780: p_api_version => 1
3781: ,p_init_msg_list => FND_API.G_FALSE
3782: ,p_commit => FND_API.G_FALSE
3783: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
3784: ,p_resale_batch_id => p_resale_batch_id
3785: ,x_return_status => l_return_status
3786: ,x_msg_data => l_msg_data
3787: ,x_msg_count => l_msg_count
3785: ,x_return_status => l_return_status
3786: ,x_msg_data => l_msg_data
3787: ,x_msg_count => l_msg_count
3788: );
3789: IF l_return_status <> FND_API.g_ret_sts_SUCCESS THEN
3790: ozf_utility_pvt.error_message('OZF_MV_ID_CUST_ORDER_ERR');
3791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3792: END IF;
3793: END IF;
3787: ,x_msg_count => l_msg_count
3788: );
3789: IF l_return_status <> FND_API.g_ret_sts_SUCCESS THEN
3790: ozf_utility_pvt.error_message('OZF_MV_ID_CUST_ORDER_ERR');
3791: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3792: END IF;
3793: END IF;
3794: -- Get profile value for price list
3795: l_default_price_list_id := G_TP_DEFAULT_PRICE_LIST; --fnd_profile.value('OZF_TP_ACCRUAL_PRICE_LIST');
3930: AND resale_id_type = 'IFACE';
3931: EXCEPTION
3932: WHEN OTHERS THEN
3933: ozf_utility_pvt.error_message('OZF_DEL_RESALE_LOG_WRG');
3934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3935: END;
3936:
3937: IF OZF_DEBUG_LOW_ON THEN
3938: ozf_utility_PVT.debug_message(l_api_name||'>> building order line for inteface id: '||l_order_set_tbl(j).resale_line_int_id);
3973: -- l_line_tbl(j).UNIT_PRICE := NULL;
3974: -- l_line_tbl(j).PERCENT_PRICE := NULL;
3975: -- l_line_tbl(j).UOM_QUANTITY := NULL;
3976: -- l_line_tbl(j).ADJUSTED_UNIT_PRICE := NULL;
3977: -- l_line_tbl(j).UPD_ADJUSTED_UNIT_PRICE NUMBER:= FND_API.G_MISS_NUM,
3978: -- l_line_tbl(j).PROCESSED_FLAG VARCHAR2(1):= FND_API.G_MISS_CHAR,
3979: -- l_line_tbl(j).PROCESSING_ORDER := NULL;
3980: -- l_line_tbl(j).PRICING_STATUS_TEXT := NULL;
3981: -- l_line_tbl(j).ROUNDING_FLAG := NULL;
3974: -- l_line_tbl(j).PERCENT_PRICE := NULL;
3975: -- l_line_tbl(j).UOM_QUANTITY := NULL;
3976: -- l_line_tbl(j).ADJUSTED_UNIT_PRICE := NULL;
3977: -- l_line_tbl(j).UPD_ADJUSTED_UNIT_PRICE NUMBER:= FND_API.G_MISS_NUM,
3978: -- l_line_tbl(j).PROCESSED_FLAG VARCHAR2(1):= FND_API.G_MISS_CHAR,
3979: -- l_line_tbl(j).PROCESSING_ORDER := NULL;
3980: -- l_line_tbl(j).PRICING_STATUS_TEXT := NULL;
3981: -- l_line_tbl(j).ROUNDING_FLAG := NULL;
3982: -- l_line_tbl(j).ROUNDING_FACTOR := NULL;
4108: -- l_line_tbl(j).UNIT_PRICE := l_order_set_tbl(j).
4109: -- l_line_tbl(j).PERCENT_PRICE := l_order_set_tbl(j).
4110: -- l_line_tbl(j).UOM_QUANTITY := l_order_set_tbl(j).
4111: -- l_line_tbl(j).ADJUSTED_UNIT_PRICE := l_order_set_tbl(j).
4112: -- l_line_tbl(j).UPD_ADJUSTED_UNIT_PRICE NUMBER:= FND_API.G_MISS_NUM,
4113: -- l_line_tbl(j).PROCESSED_FLAG VARCHAR2(1):= FND_API.G_MISS_CHAR,
4114: -- l_line_tbl(j).PROCESSING_ORDER := NULL;
4115: -- l_line_tbl(j).PRICING_STATUS_TEXT := NULL;
4116: -- l_line_tbl(j).ROUNDING_FLAG := NULL;
4109: -- l_line_tbl(j).PERCENT_PRICE := l_order_set_tbl(j).
4110: -- l_line_tbl(j).UOM_QUANTITY := l_order_set_tbl(j).
4111: -- l_line_tbl(j).ADJUSTED_UNIT_PRICE := l_order_set_tbl(j).
4112: -- l_line_tbl(j).UPD_ADJUSTED_UNIT_PRICE NUMBER:= FND_API.G_MISS_NUM,
4113: -- l_line_tbl(j).PROCESSED_FLAG VARCHAR2(1):= FND_API.G_MISS_CHAR,
4114: -- l_line_tbl(j).PROCESSING_ORDER := NULL;
4115: -- l_line_tbl(j).PRICING_STATUS_TEXT := NULL;
4116: -- l_line_tbl(j).ROUNDING_FLAG := NULL;
4117: -- l_line_tbl(j).ROUNDING_FACTOR := NULL;
4147: END IF;
4148:
4149: OZF_ORDER_PRICE_PVT.Get_Order_Price (
4150: p_api_version => 1.0
4151: ,p_init_msg_list => FND_API.G_FALSE
4152: ,p_commit => FND_API.G_FALSE
4153: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4154: ,x_return_status => l_return_status
4155: ,x_msg_data => l_msg_data
4148:
4149: OZF_ORDER_PRICE_PVT.Get_Order_Price (
4150: p_api_version => 1.0
4151: ,p_init_msg_list => FND_API.G_FALSE
4152: ,p_commit => FND_API.G_FALSE
4153: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4154: ,x_return_status => l_return_status
4155: ,x_msg_data => l_msg_data
4156: ,x_msg_count => l_msg_count
4149: OZF_ORDER_PRICE_PVT.Get_Order_Price (
4150: p_api_version => 1.0
4151: ,p_init_msg_list => FND_API.G_FALSE
4152: ,p_commit => FND_API.G_FALSE
4153: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
4154: ,x_return_status => l_return_status
4155: ,x_msg_data => l_msg_data
4156: ,x_msg_count => l_msg_count
4157: ,p_control_rec => l_control_rec
4158: ,xp_line_tbl => l_line_tbl
4159: ,x_ldets_tbl => l_ldets_tbl
4160: ,x_related_lines_tbl => l_related_lines_tbl
4161: );
4162: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4163: ozf_utility_pvt.error_message('OZF_GET_ORDER_PRIC_ERR');
4164:
4165: BEGIN
4166: UPDATE ozf_resale_lines_int
4172: AND resale_batch_id = p_resale_batch_id;
4173: EXCEPTION
4174: WHEN OTHERS THEN
4175: ozf_utility_pvt.error_message('OZF_UPD_RESALE_INT_WRG');
4176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4177: END;
4178:
4179: FOR p in 1..l_order_set_tbl.LAST
4180: LOOP
4201: );
4202: EXCEPTION
4203: WHEN OTHERS THEN
4204: ozf_utility_pvt.error_message('OZF_INS_RESALE_LOG_WRG');
4205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4206: END;
4207: END LOOP;
4208:
4209: IF OZF_DEBUG_LOW_ON THEN
4223: x_ozf_act_budgets_tbl => l_ozf_act_budgets_tbl,
4224: x_ozf_funds_new_tbl => l_ozf_funds_new_tbl,
4225: x_draft_accrual_tbl => l_ozf_draft_accrual_tbl
4226: );
4227: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4228: FND_MSG_PUB.Count_And_Get (
4229: p_encoded => FND_API.G_FALSE,
4230: p_count => l_temp_count,
4231: p_data => l_temp_data
4225: x_draft_accrual_tbl => l_ozf_draft_accrual_tbl
4226: );
4227: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4228: FND_MSG_PUB.Count_And_Get (
4229: p_encoded => FND_API.G_FALSE,
4230: p_count => l_temp_count,
4231: p_data => l_temp_data
4232: );
4233:
4232: );
4233:
4234: -- FND_MSG_PUB.Get(
4235: -- p_msg_index => l_temp_count,
4236: -- p_encoded => FND_API.G_FALSE,
4237: -- p_data => l_temp_data,
4238: -- p_msg_index_out => l_temp_count
4239: -- );
4240:
4454: IF l_run_mode = 'FINAL' THEN
4455: --13-DEC-2010 muthsubr - TPA Parallel Execution ER - 9614703
4456: IF l_ozf_funds_new_tbl.COUNT > 0 THEN
4457: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
4458: IF x_return_status = FND_API.g_ret_sts_error THEN
4459: RAISE FND_API.g_exc_error;
4460: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4461: RAISE FND_API.g_exc_unexpected_error;
4462: END IF;
4455: --13-DEC-2010 muthsubr - TPA Parallel Execution ER - 9614703
4456: IF l_ozf_funds_new_tbl.COUNT > 0 THEN
4457: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
4458: IF x_return_status = FND_API.g_ret_sts_error THEN
4459: RAISE FND_API.g_exc_error;
4460: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4461: RAISE FND_API.g_exc_unexpected_error;
4462: END IF;
4463: END IF;
4456: IF l_ozf_funds_new_tbl.COUNT > 0 THEN
4457: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
4458: IF x_return_status = FND_API.g_ret_sts_error THEN
4459: RAISE FND_API.g_exc_error;
4460: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4461: RAISE FND_API.g_exc_unexpected_error;
4462: END IF;
4463: END IF;
4464:
4457: OZF_UTILITY_PVT.UPDATE_OZF_FUNDS_ALL_B(p_resale_batch_id, x_return_status, x_fund_update_status, l_ozf_funds_new_tbl, 'TP_ACCRUAL');
4458: IF x_return_status = FND_API.g_ret_sts_error THEN
4459: RAISE FND_API.g_exc_error;
4460: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4461: RAISE FND_API.g_exc_unexpected_error;
4462: END IF;
4463: END IF;
4464:
4465: IF l_ozf_act_budgets_tbl.COUNT > 0 THEN
4463: END IF;
4464:
4465: IF l_ozf_act_budgets_tbl.COUNT > 0 THEN
4466: OZF_UTILITY_PVT.UPDATE_OZF_ACT_BUDGETS(p_resale_batch_id, x_return_status, x_budget_update_status, l_ozf_act_budgets_tbl, 'TP_ACCRUAL');
4467: IF x_return_status = FND_API.g_ret_sts_error THEN
4468: RAISE FND_API.g_exc_error;
4469: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4470: RAISE FND_API.g_exc_unexpected_error;
4471: END IF;
4464:
4465: IF l_ozf_act_budgets_tbl.COUNT > 0 THEN
4466: OZF_UTILITY_PVT.UPDATE_OZF_ACT_BUDGETS(p_resale_batch_id, x_return_status, x_budget_update_status, l_ozf_act_budgets_tbl, 'TP_ACCRUAL');
4467: IF x_return_status = FND_API.g_ret_sts_error THEN
4468: RAISE FND_API.g_exc_error;
4469: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4470: RAISE FND_API.g_exc_unexpected_error;
4471: END IF;
4472: END IF;
4465: IF l_ozf_act_budgets_tbl.COUNT > 0 THEN
4466: OZF_UTILITY_PVT.UPDATE_OZF_ACT_BUDGETS(p_resale_batch_id, x_return_status, x_budget_update_status, l_ozf_act_budgets_tbl, 'TP_ACCRUAL');
4467: IF x_return_status = FND_API.g_ret_sts_error THEN
4468: RAISE FND_API.g_exc_error;
4469: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4470: RAISE FND_API.g_exc_unexpected_error;
4471: END IF;
4472: END IF;
4473:
4466: OZF_UTILITY_PVT.UPDATE_OZF_ACT_BUDGETS(p_resale_batch_id, x_return_status, x_budget_update_status, l_ozf_act_budgets_tbl, 'TP_ACCRUAL');
4467: IF x_return_status = FND_API.g_ret_sts_error THEN
4468: RAISE FND_API.g_exc_error;
4469: ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4470: RAISE FND_API.g_exc_unexpected_error;
4471: END IF;
4472: END IF;
4473:
4474: --Update Batch status to Pending Accruals in case locking happens, Batch Line status remains unchanged
4579: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': end');
4580: END IF;
4581: --Standard call to get message count and if count=1, get the message
4582: FND_MSG_PUB.Count_And_Get (
4583: p_encoded => FND_API.G_FALSE,
4584: p_count => x_msg_count,
4585: p_data => x_msg_data
4586: );
4587:
4585: p_data => x_msg_data
4586: );
4587:
4588: EXCEPTION
4589: WHEN FND_API.G_EXC_ERROR THEN
4590: ozf_utility_pvt.write_conc_log('ERROR in Process_Order');
4591: x_return_status := FND_API.G_RET_STS_ERROR;
4592: -- Standard call to get message count and if count=1, get the message
4593: FND_MSG_PUB.Count_And_Get (
4587:
4588: EXCEPTION
4589: WHEN FND_API.G_EXC_ERROR THEN
4590: ozf_utility_pvt.write_conc_log('ERROR in Process_Order');
4591: x_return_status := FND_API.G_RET_STS_ERROR;
4592: -- Standard call to get message count and if count=1, get the message
4593: FND_MSG_PUB.Count_And_Get (
4594: p_encoded => FND_API.G_FALSE,
4595: p_count => x_msg_count,
4590: ozf_utility_pvt.write_conc_log('ERROR in Process_Order');
4591: x_return_status := FND_API.G_RET_STS_ERROR;
4592: -- Standard call to get message count and if count=1, get the message
4593: FND_MSG_PUB.Count_And_Get (
4594: p_encoded => FND_API.G_FALSE,
4595: p_count => x_msg_count,
4596: p_data => x_msg_data
4597: );
4598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4594: p_encoded => FND_API.G_FALSE,
4595: p_count => x_msg_count,
4596: p_data => x_msg_data
4597: );
4598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4599: ozf_utility_pvt.write_conc_log('UNEXP ERROR in Process_Order');
4600: --ROLLBACK TO Process_Order;
4601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4602:
4597: );
4598: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4599: ozf_utility_pvt.write_conc_log('UNEXP ERROR in Process_Order');
4600: --ROLLBACK TO Process_Order;
4601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4602:
4603: -- Standard call to get message count and if count=1, get the message
4604: FND_MSG_PUB.Count_And_Get (
4605: p_encoded => FND_API.G_FALSE,
4601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4602:
4603: -- Standard call to get message count and if count=1, get the message
4604: FND_MSG_PUB.Count_And_Get (
4605: p_encoded => FND_API.G_FALSE,
4606: p_count => x_msg_count,
4607: p_data => x_msg_data
4608: );
4609: WHEN OTHERS THEN
4608: );
4609: WHEN OTHERS THEN
4610: ozf_utility_pvt.write_conc_log('OTHER ERROR in Process_Order ' || SQLERRM);
4611: --ROLLBACK TO Process_Order;
4612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4613:
4614: -- Standard call to get message count and if count=1, get the message
4615: FND_MSG_PUB.Count_And_Get (
4616: p_encoded => FND_API.G_FALSE,
4612: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4613:
4614: -- Standard call to get message count and if count=1, get the message
4615: FND_MSG_PUB.Count_And_Get (
4616: p_encoded => FND_API.G_FALSE,
4617: p_count => x_msg_count,
4618: p_data => x_msg_data
4619: );
4620: END Process_Order;
4637: -- THIRD PARTY ACCRUAL FROM INTERFACE TABLE FINSIHES WITH ERROR
4638: ---------------------------------------------------------------------
4639: PROCEDURE Process_TP_ACCRUAL (
4640: p_api_version IN NUMBER
4641: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4642: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4643: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4644: ,p_data_source_code IN VARCHAR2 := NULL
4645: ,p_run_mode IN VARCHAR2 -- Bug 14194884 - TPA In Draft Mode ER
4638: ---------------------------------------------------------------------
4639: PROCEDURE Process_TP_ACCRUAL (
4640: p_api_version IN NUMBER
4641: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4642: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4643: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4644: ,p_data_source_code IN VARCHAR2 := NULL
4645: ,p_run_mode IN VARCHAR2 -- Bug 14194884 - TPA In Draft Mode ER
4646: ,x_return_status OUT NOCOPY VARCHAR2
4639: PROCEDURE Process_TP_ACCRUAL (
4640: p_api_version IN NUMBER
4641: ,p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE
4642: ,p_commit IN VARCHAR2 := FND_API.G_FALSE
4643: ,p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
4644: ,p_data_source_code IN VARCHAR2 := NULL
4645: ,p_run_mode IN VARCHAR2 -- Bug 14194884 - TPA In Draft Mode ER
4646: ,x_return_status OUT NOCOPY VARCHAR2
4647: ,x_msg_data OUT NOCOPY VARCHAR2
4822: -- new code - TPA iN Draft Mode
4823: l_return := fnd_installation.get_app_info('OZF', l_status, l_industry, l_schema);
4824:
4825: -- Standard call to check for call compatibility.
4826: IF NOT FND_API.Compatible_API_Call (
4827: l_api_version,
4828: p_api_version,
4829: l_api_name,
4830: G_PKG_NAME)
4828: p_api_version,
4829: l_api_name,
4830: G_PKG_NAME)
4831: THEN
4832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4833: END IF;
4834:
4835: --Initialize message list if p_init_msg_list is TRUE.
4836: IF FND_API.To_Boolean (p_init_msg_list) THEN
4832: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4833: END IF;
4834:
4835: --Initialize message list if p_init_msg_list is TRUE.
4836: IF FND_API.To_Boolean (p_init_msg_list) THEN
4837: FND_MSG_PUB.initialize;
4838: END IF;
4839:
4840: -- Debug Message
4842: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': Start');
4843: END IF;
4844:
4845: -- Initialize API return status to sucess
4846: x_return_status := FND_API.G_RET_STS_SUCCESS;
4847:
4848:
4849: /*
4850: IF p_data_source_code is NULL THEN
4848:
4849: /*
4850: IF p_data_source_code is NULL THEN
4851: ozf_utility_pvt.error_message('OZF_RESALE_TP_SOURCE_NULL');
4852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4853: END IF;
4854: */
4855:
4856: -- Mark all the records that will be processed.
5070: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, ' ');
5071:
5072: Process_order(
5073: p_api_version => 1
5074: ,p_init_msg_list => FND_API.G_FALSE
5075: ,p_commit => FND_API.G_FALSE
5076: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
5077: ,p_resale_batch_id => l_batch_tbl(i)
5078: ,p_run_mode => l_run_mode
5071:
5072: Process_order(
5073: p_api_version => 1
5074: ,p_init_msg_list => FND_API.G_FALSE
5075: ,p_commit => FND_API.G_FALSE
5076: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
5077: ,p_resale_batch_id => l_batch_tbl(i)
5078: ,p_run_mode => l_run_mode
5079: ,p_draft_run_id => l_draft_run_id
5072: Process_order(
5073: p_api_version => 1
5074: ,p_init_msg_list => FND_API.G_FALSE
5075: ,p_commit => FND_API.G_FALSE
5076: ,p_validation_level=> FND_API.G_VALID_LEVEL_FULL
5077: ,p_resale_batch_id => l_batch_tbl(i)
5078: ,p_run_mode => l_run_mode
5079: ,p_draft_run_id => l_draft_run_id
5080: ,x_return_status => l_return_status
5080: ,x_return_status => l_return_status
5081: ,x_msg_data => l_msg_data
5082: ,x_msg_count => l_msg_count
5083: );
5084: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5086: END IF;
5087: END LOOP;
5088: END IF; -- END if l_batch_tbl.EXISTS
5081: ,x_msg_data => l_msg_data
5082: ,x_msg_count => l_msg_count
5083: );
5084: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5086: END IF;
5087: END LOOP;
5088: END IF; -- END if l_batch_tbl.EXISTS
5089:
5665: OZF_UTILITY_PVT.debug_message(p_message_text => l_full_name||': End');
5666: END IF;
5667: --Standard call to get message count and if count=1, get the message
5668: FND_MSG_PUB.Count_And_Get (
5669: p_encoded => FND_API.G_FALSE,
5670: p_count => x_msg_count,
5671: p_data => x_msg_data
5672: );
5673: x_return_status := l_return_status;
5671: p_data => x_msg_data
5672: );
5673: x_return_status := l_return_status;
5674: EXCEPTION
5675: WHEN FND_API.G_EXC_ERROR THEN
5676: ozf_utility_pvt.write_conc_log('ERROR in Process_TP_ACCRUAL: '|| SQLERRM);
5677: x_return_status := FND_API.G_RET_STS_ERROR;
5678: -- Standard call to get message count and if count=1, get the message
5679: FND_MSG_PUB.Count_And_Get (
5673: x_return_status := l_return_status;
5674: EXCEPTION
5675: WHEN FND_API.G_EXC_ERROR THEN
5676: ozf_utility_pvt.write_conc_log('ERROR in Process_TP_ACCRUAL: '|| SQLERRM);
5677: x_return_status := FND_API.G_RET_STS_ERROR;
5678: -- Standard call to get message count and if count=1, get the message
5679: FND_MSG_PUB.Count_And_Get (
5680: p_encoded => FND_API.G_FALSE,
5681: p_count => x_msg_count,
5676: ozf_utility_pvt.write_conc_log('ERROR in Process_TP_ACCRUAL: '|| SQLERRM);
5677: x_return_status := FND_API.G_RET_STS_ERROR;
5678: -- Standard call to get message count and if count=1, get the message
5679: FND_MSG_PUB.Count_And_Get (
5680: p_encoded => FND_API.G_FALSE,
5681: p_count => x_msg_count,
5682: p_data => x_msg_data
5683: );
5684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5680: p_encoded => FND_API.G_FALSE,
5681: p_count => x_msg_count,
5682: p_data => x_msg_data
5683: );
5684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5685: ozf_utility_pvt.write_conc_log('UNEXPECTED ERROR in Process_TP_ACCRUAL: '|| SQLERRM);
5686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5687:
5688: -- Standard call to get message count and if count=1, get the message
5682: p_data => x_msg_data
5683: );
5684: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5685: ozf_utility_pvt.write_conc_log('UNEXPECTED ERROR in Process_TP_ACCRUAL: '|| SQLERRM);
5686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5687:
5688: -- Standard call to get message count and if count=1, get the message
5689: FND_MSG_PUB.Count_And_Get (
5690: p_encoded => FND_API.G_FALSE,
5686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5687:
5688: -- Standard call to get message count and if count=1, get the message
5689: FND_MSG_PUB.Count_And_Get (
5690: p_encoded => FND_API.G_FALSE,
5691: p_count => x_msg_count,
5692: p_data => x_msg_data
5693: );
5694: WHEN OTHERS THEN
5693: );
5694: WHEN OTHERS THEN
5695: ozf_utility_pvt.write_conc_log('OTHER ERROR in Process_TP_ACCRUAL: '|| SQLERRM);
5696: --ROLLBACK TO Process_TP_ACCRUAL;
5697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5698:
5699: -- Standard call to get message count and if count=1, get the message
5700: FND_MSG_PUB.Count_And_Get (
5701: p_encoded => FND_API.G_FALSE,
5697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5698:
5699: -- Standard call to get message count and if count=1, get the message
5700: FND_MSG_PUB.Count_And_Get (
5701: p_encoded => FND_API.G_FALSE,
5702: p_count => x_msg_count,
5703: p_data => x_msg_data
5704: );
5705: END Process_TP_ACCRUAL;
5796:
5797: -- nepanda : Fix for bug # 15900683 : end
5798: Process_TP_ACCRUAL (
5799: p_api_version => 1.0
5800: ,p_init_msg_list => FND_API.G_FALSE
5801: ,p_commit => FND_API.G_FALSE
5802: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5803: ,p_data_source_code => p_data_source_code
5804: ,p_run_mode => l_run_mode -- Bug 14194884 - TPA In Draft Mode ER
5797: -- nepanda : Fix for bug # 15900683 : end
5798: Process_TP_ACCRUAL (
5799: p_api_version => 1.0
5800: ,p_init_msg_list => FND_API.G_FALSE
5801: ,p_commit => FND_API.G_FALSE
5802: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5803: ,p_data_source_code => p_data_source_code
5804: ,p_run_mode => l_run_mode -- Bug 14194884 - TPA In Draft Mode ER
5805: ,x_return_status => l_return_status
5798: Process_TP_ACCRUAL (
5799: p_api_version => 1.0
5800: ,p_init_msg_list => FND_API.G_FALSE
5801: ,p_commit => FND_API.G_FALSE
5802: ,p_validation_level => FND_API.G_VALID_LEVEL_FULL
5803: ,p_data_source_code => p_data_source_code
5804: ,p_run_mode => l_run_mode -- Bug 14194884 - TPA In Draft Mode ER
5805: ,x_return_status => l_return_status
5806: ,x_msg_data => l_msg_data
5805: ,x_return_status => l_return_status
5806: ,x_msg_data => l_msg_data
5807: ,x_msg_count => l_msg_count
5808: );
5809: IF l_return_status = FND_API.g_ret_sts_error THEN
5810: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
5811: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error occurred for Organization id ---' || to_char(l_org_id(m)));
5812: --RAISE FND_API.G_EXC_ERROR;
5813: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5808: );
5809: IF l_return_status = FND_API.g_ret_sts_error THEN
5810: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
5811: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error occurred for Organization id ---' || to_char(l_org_id(m)));
5812: --RAISE FND_API.G_EXC_ERROR;
5813: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5814: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
5815: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Unexpected Error occurred for Organization id ---' || to_char(l_org_id(m)));
5816: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5809: IF l_return_status = FND_API.g_ret_sts_error THEN
5810: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
5811: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Error occurred for Organization id ---' || to_char(l_org_id(m)));
5812: --RAISE FND_API.G_EXC_ERROR;
5813: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5814: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
5815: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Unexpected Error occurred for Organization id ---' || to_char(l_org_id(m)));
5816: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5817: END IF;
5812: --RAISE FND_API.G_EXC_ERROR;
5813: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
5814: ozf_utility_pvt.error_message('OZF_PROC_RESALE_ERR');
5815: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Unexpected Error occurred for Organization id ---' || to_char(l_org_id(m)));
5816: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5817: END IF;
5818: END;
5819: END LOOP; -- FOR m IN l_org_id.FIRST .. l_org_id.LAST LOOP
5820: END IF; -- IF (l_org_id.COUNT > 0) THEN
5898:
5899: -- Write all messages to a log
5900: OZF_UTILITY_PVT.Write_Conc_Log;
5901: EXCEPTION
5902: WHEN FND_API.g_exc_error THEN
5903: ozf_utility_pvt.write_conc_log('ERROR in Start_TP_ACCRUAL: '|| SQLERRM);
5904: OZF_UTILITY_PVT.Write_Conc_Log;
5905: ERRBUF := l_msg_data;
5906:
5903: ozf_utility_pvt.write_conc_log('ERROR in Start_TP_ACCRUAL: '|| SQLERRM);
5904: OZF_UTILITY_PVT.Write_Conc_Log;
5905: ERRBUF := l_msg_data;
5906:
5907: WHEN FND_API.g_exc_unexpected_error THEN
5908: ozf_utility_pvt.write_conc_log('UNEXP ERROR in Start_TP_ACCRUAL: '|| SQLERRM);
5909: OZF_UTILITY_PVT.Write_Conc_Log;
5910: ERRBUF := l_msg_data;
5911: RETCODE := 2;