15:
16: -- Forward declaration of procedures maintaining entity record cache.
17:
18: Function Get_Multi_Errors
19: (p_start_with_first Varchar2 default FND_API.G_TRUE
20: ) Return Varchar2 IS
21: --
22: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
23: --
21: --
22: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
23: --
24: Begin
25: if p_start_with_first = FND_API.G_TRUE
26: then G_MULTI_MSG_INDEX := 1;
27: else
28: G_MULTI_MSG_INDEX := G_Multi_MSG_Index + 1;
29: end if;
65: -- close c_line_info;
66: -- add_multi_errors(l_line_info);
67:
68: -- for I in 1..p_msg_count loop
69: -- add_multi_errors(oe_msg_pub.get(I,FND_API.G_FALSE));
70: -- end loop;
71: /*for I in 1..p_msg_count loop
72: oe_msg_pub.add_with_context(
73: oe_msg_pub.get(I,FND_API.G_FALSE),
69: -- add_multi_errors(oe_msg_pub.get(I,FND_API.G_FALSE));
70: -- end loop;
71: /*for I in 1..p_msg_count loop
72: oe_msg_pub.add_with_context(
73: oe_msg_pub.get(I,FND_API.G_FALSE),
74: OE_GLOBALS.g_entity_line,to_char(p_line_id));
75: end loop;
76: */
77: null;
178: , p_x_line_scredit_rec => l_Line_Scredit_rec
179: , x_return_status => l_return_status
180: );
181:
182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
179: , x_return_status => l_return_status
180: );
181:
182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187: -- Set Operation.
180: );
181:
182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187: -- Set Operation.
188:
181:
182: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
185: RAISE FND_API.G_EXC_ERROR;
186: END IF;
187: -- Set Operation.
188:
189: l_Line_Scredit_rec.operation := OE_GLOBALS.G_OPR_LOCK;
201: , p_x_line_scredit_rec => l_Line_Scredit_rec
202: , x_return_status => l_return_status
203: );
204:
205: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
207: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
208: RAISE FND_API.G_EXC_ERROR;
209: END IF;
202: , x_return_status => l_return_status
203: );
204:
205: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
207: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
208: RAISE FND_API.G_EXC_ERROR;
209: END IF;
210: -- Set Operation.
203: );
204:
205: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
207: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
208: RAISE FND_API.G_EXC_ERROR;
209: END IF;
210: -- Set Operation.
211:
204:
205: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
206: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
207: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
208: RAISE FND_API.G_EXC_ERROR;
209: END IF;
210: -- Set Operation.
211:
212: l_Line_Scredit_rec.operation := OE_GLOBALS.G_OPR_LOCK;
224: , p_x_line_scredit_rec => l_Line_Scredit_rec
225: , x_return_status => l_return_status
226: );
227:
228: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
225: , x_return_status => l_return_status
226: );
227:
228: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233: -- Set Operation.
226: );
227:
228: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233: -- Set Operation.
234:
227:
228: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
231: RAISE FND_API.G_EXC_ERROR;
232: END IF;
233: -- Set Operation.
234:
235: l_Line_Scredit_rec.operation := OE_GLOBALS.G_OPR_LOCK;
245: END LOOP;
246: -- Call OE_Order_PVT.Process_order
247: OE_Order_PVT.Process_order
248: ( p_api_version_number => 1.0
249: , p_init_msg_list => FND_API.G_TRUE
250: , x_return_status => l_return_status
251: , x_msg_count => p_msg_count
252: , x_msg_data => p_msg_data
253: , p_control_rec => l_control_rec
273: , p_x_Line_Adj_Assoc_tbl => l_x_Line_Adj_Assoc_tbl
274:
275: );
276:
277: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
280: RAISE FND_API.G_EXC_ERROR;
281: END IF;
274:
275: );
276:
277: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
280: RAISE FND_API.G_EXC_ERROR;
281: END IF;
282:
275: );
276:
277: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
280: RAISE FND_API.G_EXC_ERROR;
281: END IF;
282:
283: -- Set return status.
276:
277: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
279: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
280: RAISE FND_API.G_EXC_ERROR;
281: END IF;
282:
283: -- Set return status.
284:
281: END IF;
282:
283: -- Set return status.
284:
285: p_return_status := FND_API.G_RET_STS_SUCCESS;
286:
287: l_x_Line_Scredit_tbl.delete;
288: l_Old_Line_Scredit_tbl.delete;
289: -- Set control flags.
344: oe_debug_pub.add('Sales_Group_updated_flag:'||l_Line_Scredit_rec.Sales_Group_updated_flag); --5692017
345:
346: OE_Order_PVT.Process_order
347: ( p_api_version_number => 1.0
348: , p_init_msg_list => FND_API.G_FALSE
349: , x_return_status => l_return_status
350: , x_msg_count => p_msg_count
351: , x_msg_data => p_msg_data
352: , p_control_rec => l_control_rec
376: oe_debug_pub.add('after process order: sales_group_id:'||l_x_Line_Scredit_tbl(1).sales_group_id); --5692017
377: oe_debug_pub.add('after process order: sales_group_flag'||l_x_Line_Scredit_tbl(1).sales_group_updated_flag); --5692017
378:
379:
380: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
377: oe_debug_pub.add('after process order: sales_group_flag'||l_x_Line_Scredit_tbl(1).sales_group_updated_flag); --5692017
378:
379:
380: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385: OE_OE_Form_Line_Scredit.Process_entity
378:
379:
380: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385: OE_OE_Form_Line_Scredit.Process_entity
386: (x_return_status =>l_return_status
379:
380: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
383: RAISE FND_API.G_EXC_ERROR;
384: END IF;
385: OE_OE_Form_Line_Scredit.Process_entity
386: (x_return_status =>l_return_status
387: ,x_msg_count => p_msg_count
386: (x_return_status =>l_return_status
387: ,x_msg_count => p_msg_count
388: ,x_msg_data => p_msg_data
389: );
390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
393: RAISE FND_API.G_EXC_ERROR;
394: END IF;
387: ,x_msg_count => p_msg_count
388: ,x_msg_data => p_msg_data
389: );
390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
393: RAISE FND_API.G_EXC_ERROR;
394: END IF;
395:
388: ,x_msg_data => p_msg_data
389: );
390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
393: RAISE FND_API.G_EXC_ERROR;
394: END IF;
395:
396: p_return_status := FND_API.G_RET_STS_SUCCESS;
389: );
390: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
391: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
393: RAISE FND_API.G_EXC_ERROR;
394: END IF;
395:
396: p_return_status := FND_API.G_RET_STS_SUCCESS;
397:
392: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
393: RAISE FND_API.G_EXC_ERROR;
394: END IF;
395:
396: p_return_status := FND_API.G_RET_STS_SUCCESS;
397:
398: EXCEPTION
399:
400: WHEN FND_API.G_EXC_ERROR THEN
396: p_return_status := FND_API.G_RET_STS_SUCCESS;
397:
398: EXCEPTION
399:
400: WHEN FND_API.G_EXC_ERROR THEN
401:
402: p_return_status := FND_API.G_RET_STS_ERROR;
403:
404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
398: EXCEPTION
399:
400: WHEN FND_API.G_EXC_ERROR THEN
401:
402: p_return_status := FND_API.G_RET_STS_ERROR;
403:
404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
405:
406: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
400: WHEN FND_API.G_EXC_ERROR THEN
401:
402: p_return_status := FND_API.G_RET_STS_ERROR;
403:
404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
405:
406: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
407:
408: WHEN OTHERS THEN
402: p_return_status := FND_API.G_RET_STS_ERROR;
403:
404: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
405:
406: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
407:
408: WHEN OTHERS THEN
409:
410: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
406: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
407:
408: WHEN OTHERS THEN
409:
410: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
411:
412: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
413: THEN
414: oe_msg_pub.Add_Exc_Msg
419:
420: END Replace_Line_Scredit;
421:
422: Procedure Add_Multi_Line_Scredit_Req
423: (p_init IN Varchar2 Default FND_API.G_FALSE
424: ,p_salesrep_id IN Number
425: ,p_sales_Credit_type_id IN Number
426: ,p_percent IN Number
427: -- changes start for bug 3742335
455: --
456: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
457: --
458: BEGIN
459: p_return_status := FND_API.G_RET_STS_SUCCESS;
460: if p_init = FND_API.G_TRUE then
461: -- Initialize message list.
462: oe_msg_pub.initialize;
463: g_Line_Multi_Scredit_Count := 0;
456: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
457: --
458: BEGIN
459: p_return_status := FND_API.G_RET_STS_SUCCESS;
460: if p_init = FND_API.G_TRUE then
461: -- Initialize message list.
462: oe_msg_pub.initialize;
463: g_Line_Multi_Scredit_Count := 0;
464: g_Line_Multi_Scredit_Tbl.delete;
494: , p_data => p_msg_data
495: );
496: EXCEPTION
497:
498: WHEN FND_API.G_EXC_ERROR THEN
499:
500: p_return_status := FND_API.G_RET_STS_ERROR;
501:
502: -- Get message count and data
496: EXCEPTION
497:
498: WHEN FND_API.G_EXC_ERROR THEN
499:
500: p_return_status := FND_API.G_RET_STS_ERROR;
501:
502: -- Get message count and data
503:
504: oe_msg_pub.Count_And_Get
505: ( p_count => p_msg_count
506: , p_data => p_msg_data
507: );
508:
509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
510:
511: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
512:
513: -- Get message count and data
507: );
508:
509: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
510:
511: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
512:
513: -- Get message count and data
514:
515: oe_msg_pub.Count_And_Get
518: );
519:
520: WHEN OTHERS THEN
521:
522: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
523:
524: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
525: THEN
526: oe_msg_pub.Add_Exc_Msg
539: END Add_Multi_Line_Scredit_Req;
540:
541: Procedure Replace_Multi_Line_Scredit
542: (
543: p_cont_on_error IN Varchar2 Default FND_API.G_TRUE
544: ,p_Line_id_list IN Oe_Globals.Selected_Record_Tbl --MOAC PI
545: ,p_replace_credit_type IN Varchar2
546: ,p_Return_Status OUT NOCOPY Varchar2
547:
565: BEGIN
566:
567: g_Multi_MSG_Tbl.Delete;
568: g_Multi_MSG_count := 0;
569: p_return_status := FND_API.G_RET_STS_SUCCESS;
570: OE_MSG_PUB.initialize;
571: --MOAC PI
572: i := p_Line_id_list.first;
573: while i is not null loop
587: ,p_replace_credit_type
588: ,l_return_status
589: ,l_msg_count
590: ,p_msg_data);
591: if l_return_status <> FND_API.G_RET_STS_SUCCESS then
592: Copy_Errors_Multi_Msg(l_x_Line_id,
593: l_msg_count);
594: p_return_status := l_return_status;
595: rollback to Line_Salescredit;
592: Copy_Errors_Multi_Msg(l_x_Line_id,
593: l_msg_count);
594: p_return_status := l_return_status;
595: rollback to Line_Salescredit;
596: if p_cont_on_error = FND_API.G_TRUE then
597: null;
598: else
599: EXIT;
600: end if;
600: end if;
601: end if;
602: i := p_Line_id_list.next(i); --MOAC PI
603: END LOOP;
604: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
605: RAISE FND_API.G_EXC_ERROR;
606: END IF;
607: oe_msg_pub.Count_And_Get
608: ( p_count => p_msg_count
601: end if;
602: i := p_Line_id_list.next(i); --MOAC PI
603: END LOOP;
604: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
605: RAISE FND_API.G_EXC_ERROR;
606: END IF;
607: oe_msg_pub.Count_And_Get
608: ( p_count => p_msg_count
609: , p_data => p_msg_data
609: , p_data => p_msg_data
610: );
611: EXCEPTION
612:
613: WHEN FND_API.G_EXC_ERROR THEN
614:
615: p_return_status := FND_API.G_RET_STS_ERROR;
616:
617: -- Get message count and data
611: EXCEPTION
612:
613: WHEN FND_API.G_EXC_ERROR THEN
614:
615: p_return_status := FND_API.G_RET_STS_ERROR;
616:
617: -- Get message count and data
618:
619: oe_msg_pub.Count_And_Get
620: ( p_count => p_msg_count
621: , p_data => p_msg_data
622: );
623:
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625:
626: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
627:
628: -- Get message count and data
622: );
623:
624: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
625:
626: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
627:
628: -- Get message count and data
629:
630: oe_msg_pub.Count_And_Get
633: );
634:
635: WHEN OTHERS THEN
636:
637: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
638:
639: IF oe_msg_pub.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
640: THEN
641: oe_msg_pub.Add_Exc_Msg