[Home] [Help]
1: PACKAGE BODY OE_LINE_REPRICE AS
2: /* $Header: OEXVREPB.pls 120.1.12020000.5 2013/01/23 09:54:55 kadiraju ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Line_REPRICE';
5:
1: PACKAGE BODY OE_LINE_REPRICE AS
2: /* $Header: OEXVREPB.pls 120.1.12020000.5 2013/01/23 09:54:55 kadiraju ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_Line_REPRICE';
5:
6:
7: PROCEDURE Reprice_Line
8: (
33: --
34: BEGIN
35:
36: IF l_debug_level > 0 THEN
37: oe_debug_pub.add( 'ENTERING OE_LINE_REPRICE.REPRICE_LINE '|| TO_CHAR ( P_LINE_REC.LINE_ID ) , 1 ) ;
38: END IF;
39:
40: x_return_status := FND_API.G_RET_STS_SUCCESS;
41: -- check if repricing event is LINE level event
46: IF NVL(l_event_rec.modifier_level_code, 'ORDER') <> 'LINE' THEN
47: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
48: FND_MESSAGE.SET_NAME('ONT','ONT_REPRICE_INVALID_EVENT');
49: OE_MSG_PUB.Add;
50: oe_line_reprice.set_reprice_status('REPRICE_INVALID_SETUP', p_line_rec.line_id);
51: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
52: EXIT;
53: END IF;
54: END LOOP;
76:
77: IF l_line_rec.Pricing_Date IS NULL THEN
78: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
79: FND_MESSAGE.SET_NAME('ONT','ONT_REPRICE_INVALID_DATE');
80: oe_line_reprice.set_reprice_status('REPRICE_INVALID_SETUP', p_line_rec.line_id);
81: OE_MSG_PUB.Add;
82: return;
83: -- do not raise error, instead, exit out of Reprice activity.
84: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
106: ,p_honor_price_flag => p_honor_price_flag);
107:
108:
109: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
110: oe_line_reprice.set_reprice_status('REPRICE_PRICING_ERROR', p_line_rec.line_id);
111: END IF;
112:
113: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
150:
151: WHEN FND_API.G_EXC_ERROR THEN
152: x_return_status := FND_API.G_RET_STS_ERROR;
153: WHEN OTHERS THEN
154: oe_line_reprice.set_reprice_status('REPRICE_UNEXPECTED_ERROR',p_line_rec.line_id);
155: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
156: OE_MSG_PUB.set_msg_context(
157: p_entity_code => 'LINE'
158: ,p_entity_id => l_line_rec.line_id
219: x_return_status := FND_API.G_RET_STS_SUCCESS;
220:
221: EXCEPTION
222: WHEN OTHERS THEN
223: oe_line_reprice.set_reprice_status('REPRICE_UNEXPECTED_ERROR',to_number(p_item_key));
224: select header_id, order_source_id, orig_sys_document_ref,
225: orig_sys_line_ref, orig_sys_shipment_ref, change_sequence,
226: source_document_type_id,source_document_id,source_document_line_id
227: into l_header_id, l_order_source_id, l_orig_sys_document_ref,
306: --CC Reversal ER#16014135 End
307: BEGIN
308:
309: IF l_debug_level > 0 THEN
310: oe_debug_pub.add( 'ENTERING OE_LINE_REPRICE.PROCESS_REPRICING '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
311: END IF;
312:
313: x_result_out := 'COMPLETE';
314:
338: Removed the condition below to enable repricing of Non Shippable lines
339:
340: IF nvl(l_line_rec.shippable_flag, 'N') <> 'Y' THEN
341: x_result_out := 'COMPLETE:NOT_ELIGIBLE';
342: oe_line_reprice.set_reprice_status('REPRICE_NOT_ELIGIBLE', p_line_id);
343: return;
344: END IF;
345: Commented for bug 7592279 end*/
346:
477: END IF;
478: --CC Reversal ER#16014135 End
479:
480: IF l_debug_level > 0 THEN
481: oe_debug_pub.add( 'EXITING FROM OE_LINE_REPRICE.PROCESS_REPRICING : '||X_RETURN_STATUS , 1 ) ;
482: END IF;
483:
484: EXCEPTION
485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
506: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
507: END IF;
508: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
509: x_result_out := 'INCOMPLETE';
510: oe_line_reprice.set_reprice_status('REPRICE_UNEXPECTED_ERROR', p_line_id);
511: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
512: THEN
513: OE_MSG_PUB.Add_Exc_Msg
514: ( G_PKG_NAME
544: End IF;
545:
546: END set_reprice_status;
547:
548: END OE_LINE_REPRICE;
549: