[Home] [Help]
8: -- Global variables holding cached record.
9:
10: g_Line_Multi_Scredit_Tbl Line_Multi_SCREDIT_Tbl_Type;
11: g_Line_Multi_Scredit_Count Number := 0;
12: g_Multi_MSG_Tbl OE_DEBUG_PUB.Debug_Tbl_Type;
13: G_Multi_Msg_count Number := 0;
14: G_MULTI_MSG_Index Number := 0;
15:
16: -- Forward declaration of procedures maintaining entity record cache.
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: --
24: Begin
25: if p_start_with_first = FND_API.G_TRUE
26: then G_MULTI_MSG_INDEX := 1;
36:
37: Procedure add_multi_errors(p_msg Varchar2)
38: IS
39: --
40: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
41: --
42: Begin
43: if p_msg is not null then
44: g_multi_msg_count := g_multi_msg_count + 1;
55: where Line_id = p_Line_id;
56: l_line_info varchar2(500);
57: I number;
58: --
59: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
60: --
61: Begin
62: -- open c_line_info(p_Line_id);
63: -- fetch c_line_info
145: l_x_Header_Payment_tbl OE_Order_PUB.Header_Payment_Tbl_Type;
146: l_x_Line_Payment_tbl OE_Order_PUB.Line_Payment_Tbl_Type;
147: --serla end
148: --
149: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
150: --
151: BEGIN
152: l_x_Line_Scredit_tbl.delete;
153: l_Old_Line_Scredit_tbl.delete;
339:
340: -- Call OE_Order_PVT.Process_order
341: OE_DELAYED_REQUESTS_PVT.Clear_Request(x_return_status => l_return_status);
342:
343: oe_debug_pub.add('Sales_Group_Id:'||l_Line_Scredit_rec.Sales_Group_Id); --5692017
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
340: -- Call OE_Order_PVT.Process_order
341: OE_DELAYED_REQUESTS_PVT.Clear_Request(x_return_status => l_return_status);
342:
343: oe_debug_pub.add('Sales_Group_Id:'||l_Line_Scredit_rec.Sales_Group_Id); --5692017
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
372: , p_x_Line_Adj_Assoc_tbl => l_x_Line_Adj_Assoc_tbl
373:
374: );
375:
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
373:
374: );
375:
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;
452:
453: ) IS
454: I number;
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
559: L_x_org_id Number;
560: l_prev_org_id Number;
561: i Number;
562: --
563: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
564: --
565: BEGIN
566:
567: g_Multi_MSG_Tbl.Delete;
580: End If;
581: --MOAC PI
582:
583: IF l_debug_level > 0 THEN
584: oe_debug_pub.add( 'PROCESSING SALES CREDIT FOR LINE ID ' || TO_CHAR ( L_X_LINE_ID ) ) ;
585: END IF;
586: Replace_Line_Scredit(l_x_Line_id
587: ,p_replace_credit_type
588: ,l_return_status