[Home] [Help]
1: PACKAGE BODY OE_LINE_REPRICE AS
2: /* $Header: OEXVREPB.pls 120.0.12010000.3 2008/11/24 13:40:32 aambasth 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.0.12010000.3 2008/11/24 13:40:32 aambasth 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;
132:
133: WHEN FND_API.G_EXC_ERROR THEN
134: x_return_status := FND_API.G_RET_STS_ERROR;
135: WHEN OTHERS THEN
136: oe_line_reprice.set_reprice_status('REPRICE_UNEXPECTED_ERROR',p_line_rec.line_id);
137: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
138: OE_MSG_PUB.set_msg_context(
139: p_entity_code => 'LINE'
140: ,p_entity_id => l_line_rec.line_id
201: x_return_status := FND_API.G_RET_STS_SUCCESS;
202:
203: EXCEPTION
204: WHEN OTHERS THEN
205: oe_line_reprice.set_reprice_status('REPRICE_UNEXPECTED_ERROR',to_number(p_item_key));
206: select header_id, order_source_id, orig_sys_document_ref,
207: orig_sys_line_ref, orig_sys_shipment_ref, change_sequence,
208: source_document_type_id,source_document_id,source_document_line_id
209: into l_header_id, l_order_source_id, l_orig_sys_document_ref,
281: --
282: BEGIN
283:
284: IF l_debug_level > 0 THEN
285: oe_debug_pub.add( 'ENTERING OE_LINE_REPRICE.PROCESS_REPRICING '|| TO_CHAR ( P_LINE_ID ) , 1 ) ;
286: END IF;
287:
288: x_result_out := 'COMPLETE';
289:
313: Removed the condition below to enable repricing of Non Shippable lines
314:
315: IF nvl(l_line_rec.shippable_flag, 'N') <> 'Y' THEN
316: x_result_out := 'COMPLETE:NOT_ELIGIBLE';
317: oe_line_reprice.set_reprice_status('REPRICE_NOT_ELIGIBLE', p_line_id);
318: return;
319: END IF;
320: Commented for bug 7592279 end*/
321:
417: END IF;
418:
419:
420: IF l_debug_level > 0 THEN
421: oe_debug_pub.add( 'EXITING FROM OE_LINE_REPRICE.PROCESS_REPRICING : '||X_RETURN_STATUS , 1 ) ;
422: END IF;
423:
424: EXCEPTION
425: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
446: oe_debug_pub.add( 'ERROR MESSAGE : '||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
447: END IF;
448: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
449: x_result_out := 'INCOMPLETE';
450: oe_line_reprice.set_reprice_status('REPRICE_UNEXPECTED_ERROR', p_line_id);
451: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
452: THEN
453: OE_MSG_PUB.Add_Exc_Msg
454: ( G_PKG_NAME
484: End IF;
485:
486: END set_reprice_status;
487:
488: END OE_LINE_REPRICE;
489: