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
42: FOR l_event_rec IN check_event_cur(p_repricing_event) LOOP
43: IF l_debug_level > 0 THEN
44: oe_debug_pub.add( 'EVENT LEVEL CODE IS: '||L_EVENT_REC.MODIFIER_LEVEL_CODE , 1 ) ;
43: IF l_debug_level > 0 THEN
44: oe_debug_pub.add( 'EVENT LEVEL CODE IS: '||L_EVENT_REC.MODIFIER_LEVEL_CODE , 1 ) ;
45: END IF;
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;
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;
55:
74: oe_debug_pub.add( 'REPRICING DATE IS: '||P_REPRICING_DATE , 1 ) ;
75: END IF;
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;
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;
85: END IF;
86:
87: l_Price_Control_Rec.pricing_event := p_Repricing_Event;
88: l_Price_Control_Rec.calculate_flag := QP_PREQ_GRP.G_SEARCH_N_CALCULATE;
105: ,x_Line_Tbl => l_x_Line_Tbl
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
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;
115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
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;
115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
118: -- sol_ord_er #16014165
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;
115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
118: -- sol_ord_er #16014165
119: IF NVL(l_x_line_tbl(1).service_bill_option_code,'FBOM') = 'FPOM' THEN
112:
113: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
114: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
115: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
116: RAISE FND_API.G_EXC_ERROR;
117: END IF;
118: -- sol_ord_er #16014165
119: IF NVL(l_x_line_tbl(1).service_bill_option_code,'FBOM') = 'FPOM' THEN
120: IF l_debug_level > 0 THEN
125: oe_delayed_requests_util.First_period_bill_amt (
126: p_header_id => '',
127: p_line_id => l_x_line_tbl(1).line_id,
128: x_return_status => l_return_status);
129: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
126: p_header_id => '',
127: p_line_id => l_x_line_tbl(1).line_id,
128: x_return_status => l_return_status);
129: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
134: End IF;
127: p_line_id => l_x_line_tbl(1).line_id,
128: x_return_status => l_return_status);
129: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
134: End IF;
135: -- sol_ord_er #16014165 end
128: x_return_status => l_return_status);
129: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
131: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
132: RAISE FND_API.G_EXC_ERROR;
133: END IF;
134: End IF;
135: -- sol_ord_er #16014165 end
136:
136:
137: x_return_status := l_return_status;
138:
139: EXCEPTION
140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
142:
143: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
144: THEN
137: x_return_status := l_return_status;
138:
139: EXCEPTION
140: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
142:
143: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
144: THEN
145: OE_MSG_PUB.Add_Exc_Msg
147: 'Reprice_Line'
148: );
149: END IF;
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 ;
148: );
149: END IF;
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(
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
159: ,p_header_id => l_line_rec.header_id
215: l_source_document_line_id NUMBER;
216: BEGIN
217: x_attribute_value := wf_engine.GetActivityAttrText(p_item_type,p_item_key,p_activity_id,p_Reprice_attr_name);
218:
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));
251: IF l_debug_level > 0 THEN
252: oe_debug_pub.add( 'ERROR MESSAGE '||L_ERRMSG , 1 ) ;
253: END IF;
254: x_attribute_value := 'NONE';
255: x_return_status := FND_API.G_RET_STS_SUCCESS;
256: ELSE
257: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
258: THEN
259: OE_MSG_PUB.Add_Exc_Msg
260: ( G_PKG_NAME
261: , 'Get_Activity_Attribute'
262: );
263: END IF;
264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
265: END IF;
266:
267: END Get_Activity_Attribute;
268:
362: x_attribute_value => l_Repricing_date,
363: x_return_status => l_return_status
364: );
365:
366: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
369: RAISE FND_API.G_EXC_ERROR;
370: END IF;
363: x_return_status => l_return_status
364: );
365:
366: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
369: RAISE FND_API.G_EXC_ERROR;
370: END IF;
371:
364: );
365:
366: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
369: RAISE FND_API.G_EXC_ERROR;
370: END IF;
371:
372: IF l_debug_level > 0 THEN
365:
366: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
368: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
369: RAISE FND_API.G_EXC_ERROR;
370: END IF;
371:
372: IF l_debug_level > 0 THEN
373: oe_debug_pub.add( 'REPRICING DATE : '|| L_REPRICING_DATE , 3 ) ;
383: x_attribute_value => l_Repricing_Event,
384: x_return_status => l_return_status
385: );
386:
387: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
389: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
384: x_return_status => l_return_status
385: );
386:
387: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
389: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
392:
385: );
386:
387: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
389: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
392:
393: IF l_Repricing_Event IS NULL THEN
386:
387: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
389: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
390: RAISE FND_API.G_EXC_ERROR;
391: END IF;
392:
393: IF l_Repricing_Event IS NULL THEN
394: l_Repricing_Event := 'REPRICE_LINE';
407: x_attribute_value => l_Honor_Price_Flag,
408: x_return_status => l_return_status
409: );
410:
411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
414: RAISE FND_API.G_EXC_ERROR;
415: END IF;
408: x_return_status => l_return_status
409: );
410:
411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
414: RAISE FND_API.G_EXC_ERROR;
415: END IF;
416:
409: );
410:
411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
414: RAISE FND_API.G_EXC_ERROR;
415: END IF;
416:
417: IF l_Honor_Price_Flag IS NULL THEN
410:
411: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
412: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
413: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
414: RAISE FND_API.G_EXC_ERROR;
415: END IF;
416:
417: IF l_Honor_Price_Flag IS NULL THEN
418: l_Honor_Price_Flag := 'Y';
434: IF l_debug_level > 0 THEN
435: oe_debug_pub.add( 'RETURN STATUS FROM REPRICE LINE : '||L_RETURN_STATUS , 3 ) ;
436: END IF;
437:
438: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
440: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
441: RAISE FND_API.G_EXC_ERROR;
442: END IF;
435: oe_debug_pub.add( 'RETURN STATUS FROM REPRICE LINE : '||L_RETURN_STATUS , 3 ) ;
436: END IF;
437:
438: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
440: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
441: RAISE FND_API.G_EXC_ERROR;
442: END IF;
443:
436: END IF;
437:
438: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
440: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
441: RAISE FND_API.G_EXC_ERROR;
442: END IF;
443:
444: --CC Reversal ER#16014135 Start
437:
438: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
440: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
441: RAISE FND_API.G_EXC_ERROR;
442: END IF;
443:
444: --CC Reversal ER#16014135 Start
445: IF l_debug_level > 0 THEN
467: IF l_debug_level > 0 THEN
468: oe_debug_pub.add('After call to Authorizat Payment return status : ' || l_return_status);
469: END IF;
470:
471: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
472: RAISE FND_API.G_EXC_ERROR;
473: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: END IF;
468: oe_debug_pub.add('After call to Authorizat Payment return status : ' || l_return_status);
469: END IF;
470:
471: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
472: RAISE FND_API.G_EXC_ERROR;
473: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: END IF;
476: END;
469: END IF;
470:
471: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
472: RAISE FND_API.G_EXC_ERROR;
473: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: END IF;
476: END;
477: END IF;
470:
471: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
472: RAISE FND_API.G_EXC_ERROR;
473: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
475: END IF;
476: END;
477: END IF;
478: --CC Reversal ER#16014135 End
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
486: IF l_debug_level > 0 THEN
487: oe_debug_pub.add( 'PROCESS_REPRICING : EXITING WITH UNEXPECTED ERROR'||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
488: END IF;
489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
486: IF l_debug_level > 0 THEN
487: oe_debug_pub.add( 'PROCESS_REPRICING : EXITING WITH UNEXPECTED ERROR'||SUBSTR ( SQLERRM , 1 , 200 ) , 1 ) ;
488: END IF;
489: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
490: x_result_out := 'INCOMPLETE';
491: /* IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
492: THEN
493: OE_MSG_PUB.Add_Exc_Msg
495: 'Process_Repricing'
496: );
497: END IF; */
498:
499: WHEN FND_API.G_EXC_ERROR THEN
500: x_return_status := FND_API.G_RET_STS_ERROR;
501: x_result_out := 'INCOMPLETE';
502: WHEN OTHERS THEN
503: IF l_debug_level > 0 THEN
496: );
497: END IF; */
498:
499: WHEN FND_API.G_EXC_ERROR THEN
500: x_return_status := FND_API.G_RET_STS_ERROR;
501: x_result_out := 'INCOMPLETE';
502: WHEN OTHERS THEN
503: IF l_debug_level > 0 THEN
504: oe_debug_pub.add('In others of Process_Reprice ');
504: oe_debug_pub.add('In others of Process_Reprice ');
505: oe_debug_pub.add( 'PROCESS_REPRICING : EXITING WITH OTHERS ERROR' , 1 ) ;
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