DBA Data[Home] [Help]

APPS.OE_ORDER_PRICE_PVT dependencies on OE_ORDER_PRICE_PVT

Line 1: PACKAGE BODY OE_ORDER_PRICE_PVT AS

1: PACKAGE BODY OE_ORDER_PRICE_PVT AS
2: /* $Header: OEXVOPRB.pls 120.26.12010000.5 2008/11/14 07:19:07 smanian ship $ */
3:
4: G_DEBUG BOOLEAN;
5: --2649821 Changed G_ROUNDING_FLAG to Q

Line 516: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.QUERY_LINES '||TO_CHAR ( L_ORG_ID ) , 1 ) ;

512: l_org_id := OE_GLOBALS.G_ORG_ID;
513: end if;
514:
515: IF l_debug_level > 0 THEN
516: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.QUERY_LINES '||TO_CHAR ( L_ORG_ID ) , 1 ) ;
517: END IF;
518: IF l_debug_level > 0 THEN
519: oe_debug_pub.add( 'HEADER_ID:'||P_HEADER_ID||' LINE_ID:'||P_LINE_ID , 3 ) ;
520: END IF;

Line 602: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.QUERY_LINES' , 1 ) ;

598:
599:
600: -- Return fetched table
601: IF l_debug_level > 0 THEN
602: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.QUERY_LINES' , 1 ) ;
603: END IF;
604:
605: EXCEPTION
606:

Line 665: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.ENFORCE_PRICE_LISTS_FLAG' , 1 ) ;

661: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
662: --
663: begin
664: IF l_debug_level > 0 THEN
665: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.ENFORCE_PRICE_LISTS_FLAG' , 1 ) ;
666: END IF;
667: begin
668:
669: G_STMT_NO := 'Enforce_Price_lists_Flag#10';

Line 719: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.ENFORCE_PRICE_LISTS_FLAG' , 1 ) ;

715: end ;
716: end if;
717:
718: IF l_debug_level > 0 THEN
719: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.ENFORCE_PRICE_LISTS_FLAG' , 1 ) ;
720: END IF;
721:
722: Return l_enforce_price_flag;
723:

Line 837: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.APPEND_ASKED_FOR' , 1 ) ;

833: --
834: begin
835: G_STMT_NO := 'Append_asked_for#10';
836: IF l_debug_level > 0 THEN
837: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.APPEND_ASKED_FOR' , 1 ) ;
838: END IF;
839: for asked_for_rec in asked_for_cur loop
840: If asked_for_rec.flex_title = 'QP_ATTR_DEFNS_PRICING' then
841: if asked_for_rec.PRICING_ATTRIBUTE1 is not null then

Line 1738: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.APPEND_ASKED_FOR' , 1 ) ;

1734: i := px_req_line_attr_tbl.next(i);
1735: end loop;
1736: px_line_attr_index := k;
1737: IF l_debug_level > 0 THEN
1738: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.APPEND_ASKED_FOR' , 1 ) ;
1739: END IF;
1740:
1741: end Append_asked_for;
1742:

Line 1775: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.GET_THE_PARENT_LINE' , 1 ) ;

1771: --
1772: Begin
1773: G_STMT_NO := 'Get_the_parent_Line#10';
1774: IF l_debug_level > 0 THEN
1775: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.GET_THE_PARENT_LINE' , 1 ) ;
1776: END IF;
1777: line_Tbl_Index := px_Line_Tbl.First;
1778: While line_Tbl_Index is not null loop
1779: If px_Line_Tbl(line_Tbl_Index).line_Id = p_Reference_line_Id Then

Line 1963: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.GET_THE_PARENT_LINE' , 1 ) ;

1959: END IF;
1960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1961: END;
1962: IF l_debug_level > 0 THEN
1963: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.GET_THE_PARENT_LINE' , 1 ) ;
1964: END IF;
1965:
1966: End Get_the_parent_Line;
1967:

Line 1993: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.GET_PRG_LINES'||P_LINE_ID , 1 ) ;

1989: --
1990: Begin
1991: G_STMT_NO := 'Get_prg_Line#10';
1992: IF l_debug_level > 0 THEN
1993: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.GET_PRG_LINES'||P_LINE_ID , 1 ) ;
1994: END IF;
1995:
1996: for i in prg_lines loop
1997: IF l_debug_level > 0 THEN

Line 2015: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.GET_PRG_LINES' , 1 ) ;

2011: End;
2012: End LOOP;
2013:
2014: IF l_debug_level > 0 THEN
2015: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.GET_PRG_LINES' , 1 ) ;
2016: END IF;
2017:
2018: End Get_prg_Lines;
2019:

Line 2044: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.GET_SERVICE_LINES'||P_LINE_ID , 1 ) ;

2040:
2041: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2042: BEGIN
2043: IF l_debug_level > 0 THEN
2044: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.GET_SERVICE_LINES'||P_LINE_ID , 1 ) ;
2045: END IF;
2046:
2047: FOR I in service_lines loop
2048: IF l_debug_level > 0 THEN

Line 2088: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.GET_ITEM_FOR_IUE' , 1 ) ;

2084: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2085: --
2086: begin
2087: IF l_debug_level > 0 THEN
2088: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.GET_ITEM_FOR_IUE' , 1 ) ;
2089: END IF;
2090: For Adj_rec in Adj_cur loop
2091: -- There is an item upgrade for this line
2092: px_line_rec.inventory_item_id := to_number(Adj_rec.modified_from);

Line 2111: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.GET_ITEM_FOR_IUE' , 1 ) ;

2107: Exit;
2108: End Loop;
2109:
2110: IF l_debug_level > 0 THEN
2111: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.GET_ITEM_FOR_IUE' , 1 ) ;
2112: END IF;
2113: end Get_item_for_iue;
2114:
2115:

Line 2225: oe_debug_pub.add(' Update_global_price called from oe_order_price_pvt.populate_line_tbl reports errors');

2221: x_return_status => l_return_status);
2222:
2223:
2224: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2225: oe_debug_pub.add(' Update_global_price called from oe_order_price_pvt.populate_line_tbl reports errors');
2226: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2227: END IF;
2228:
2229: IF l_notify_index IS NOT NULL THEN

Line 3355: oe_debug_pub.add( ' ENTERING OE_ORDER_PRICE_PVT.UPDATE_ORDER_LINES' ) ;

3351: LOG_REQUEST(px_line_tbl);
3352: Oe_Retrobill_Pvt.UPDATE_RETROBILL_LINES(G_RETROBILL_OPERATION);
3353: ELSE --RT
3354: IF l_debug_level > 0 THEN
3355: oe_debug_pub.add( ' ENTERING OE_ORDER_PRICE_PVT.UPDATE_ORDER_LINES' ) ;
3356: END IF;
3357:
3358: SECURITY_AND_GLOBAL_PICTURE(px_line_tbl,p_write_to_db);
3359:

Line 3501: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS IS: ' || L_RETURN_STATUS ) ;

3497: p_old_line_adj_rec =>l_line_adj_rec,
3498: x_index => l_index,
3499: x_return_status => l_return_status);
3500: IF l_debug_level > 0 THEN
3501: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS IS: ' || L_RETURN_STATUS ) ;
3502: END IF;
3503:
3504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3505:

Line 3508: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS', 1 ) ;

3504: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3505:
3506: IF l_debug_level > 0 THEN
3507: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
3508: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS', 1 ) ;
3509: END IF;
3510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3511: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3512: IF l_debug_level > 0 THEN

Line 3513: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS' ) ;

3509: END IF;
3510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3511: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3512: IF l_debug_level > 0 THEN
3513: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS' ) ;
3514: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS', 1 ) ;
3515: END IF;
3516: RAISE FND_API.G_EXC_ERROR;
3517: END IF;

Line 3514: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS', 1 ) ;

3510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3511: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3512: IF l_debug_level > 0 THEN
3513: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS' ) ;
3514: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS', 1 ) ;
3515: END IF;
3516: RAISE FND_API.G_EXC_ERROR;
3517: END IF;
3518: i := p_adj_id_tbl.next(i);

Line 4990: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.COPY_HEADER_TO_REQUEST' , 1 ) ;

4986: --
4987: begin
4988: G_STMT_NO := 'copy_Header_to_request#10';
4989: IF l_debug_level > 0 THEN
4990: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.COPY_HEADER_TO_REQUEST' , 1 ) ;
4991: END IF;
4992:
4993: --l_line_index := l_line_index+1;
4994: px_line_index := px_line_index+1;

Line 5088: oe_debug_pub.add( 'EXISTING OE_ORDER_PRICE_PVT.COPY_HEADER_TO_REQUEST' , 1 ) ;

5084: G_LIST_PRICE_OVERRIDE_FLAG_TBL(px_line_index):=NULL;
5085: G_CHARGE_PERIODICITY_CODE_TBL(px_line_index):=NULL;
5086:
5087: IF l_debug_level > 0 THEN
5088: oe_debug_pub.add( 'EXISTING OE_ORDER_PRICE_PVT.COPY_HEADER_TO_REQUEST' , 1 ) ;
5089: END IF;
5090:
5091: end copy_Header_to_request;
5092:

Line 5124: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.COPY_LINE_TO_REQUEST' , 1 ) ;

5120: --
5121: begin
5122: G_STMT_NO := 'copy_Line_to_request#10';
5123: IF l_debug_level > 0 THEN
5124: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.COPY_LINE_TO_REQUEST' , 1 ) ;
5125: END IF;
5126:
5127:
5128: --RT{

Line 5131: oe_debug_pub.add( 'LEAVING OE_ORDER_PRICE_PVT.COPY_LINE_TO_REQUEST' , 1 ) ;

5127:
5128: --RT{
5129: IF p_line_rec.retrobill_request_id IS NOT NULL AND p_pricing_events <> 'RETROBILL' THEN
5130: --Do not price this retrobill line with other events
5131: oe_debug_pub.add( 'LEAVING OE_ORDER_PRICE_PVT.COPY_LINE_TO_REQUEST' , 1 ) ;
5132: RETURN;
5133: END IF;
5134: --RT}
5135:

Line 5655: oe_debug_pub.add( 'EXISTING OE_ORDER_PRICE_PVT.COPY_LINE_TO_REQUEST' , 1 ) ;

5651: END IF;
5652:
5653:
5654: IF l_debug_level > 0 THEN
5655: oe_debug_pub.add( 'EXISTING OE_ORDER_PRICE_PVT.COPY_LINE_TO_REQUEST' , 1 ) ;
5656: END IF;
5657:
5658: end copy_Line_to_request;
5659:

Line 5913: ,p_Control_Rec OE_ORDER_PRICE_PVT.CONTROL_REC_TYPE

5909:
5910: ,p_line_id number
5911: ,p_header_id number
5912: ,p_pricing_events varchar2
5913: ,p_Control_Rec OE_ORDER_PRICE_PVT.CONTROL_REC_TYPE
5914: ,p_action_code in Varchar2
5915: ,x_any_frozen_line out nocopy Boolean
5916:
5917: ,x_Header_Rec out nocopy oe_Order_Pub.Header_REc_Type

Line 5968: oe_debug_pub.add('Entering oe_order_price_pvt.calulate_adjustments', 1);

5964: --bug 3968023
5965: l_event_in_phase1 VARCHAR2(1);
5966:
5967: begin
5968: oe_debug_pub.add('Entering oe_order_price_pvt.calulate_adjustments', 1);
5969:
5970: reset_all_tbls;
5971: --DELETE FROM QP_PREQ_LINES_TMP;
5972: --DELETE FROM QP_PREQ_LINE_ATTRS_TMP;

Line 6657: p_Control_Rec IN OE_ORDER_PRICE_PVT.control_rec_type

6653: End Calculate_Adjustments;
6654:
6655:
6656: Procedure Call_Pricing_Engine(
6657: p_Control_Rec IN OE_ORDER_PRICE_PVT.control_rec_type
6658: ,p_Pricing_Events IN VARCHAR2
6659: ,x_return_status OUT NOCOPY VARCHAR2
6660:
6661: )

Line 6861: , p_Control_Rec IN OE_ORDER_PRICE_PVT.Control_rec_type

6857:
6858: procedure Report_Engine_Errors(
6859: x_return_status out nocopy Varchar2
6860:
6861: , p_Control_Rec IN OE_ORDER_PRICE_PVT.Control_rec_type
6862: , px_line_Tbl in out NOCOPY oe_Order_Pub.Line_Tbl_Type
6863: , p_header_rec IN oe_Order_Pub.header_rec_type
6864: )
6865: is

Line 6936: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.REPORT_ENGINE_ERROR' , 1 ) ;

6932: --
6933: begin
6934: -- Update Order Lines
6935: IF l_debug_level > 0 THEN
6936: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.REPORT_ENGINE_ERROR' , 1 ) ;
6937: END IF;
6938: --bug 3696768
6939: IF G_IPL_ERRORS_TBL.count <> 0 THEN
6940: FOR I in reset_ipl_tbl LOOP

Line 7509: p_Control_Rec OE_ORDER_PRICE_PVT.Control_rec_type,

7505: procedure process_adjustments
7506: (
7507: x_return_status out nocopy Varchar2,
7508:
7509: p_Control_Rec OE_ORDER_PRICE_PVT.Control_rec_type,
7510: p_any_frozen_line in Boolean,
7511: px_line_Tbl in out NOCOPY oe_Order_Pub.Line_Tbl_Type,
7512: p_header_id in number,
7513: p_line_id in number,

Line 7729: oe_debug_pub.add( 'ERROR IN OE_ORDER_PRICE_PVT.PROCESS_ADJUSTMENTS with rollback' , 1 ) ;

7725: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7726: WHEN OTHERS THEN
7727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7728: IF l_debug_level > 0 THEN
7729: oe_debug_pub.add( 'ERROR IN OE_ORDER_PRICE_PVT.PROCESS_ADJUSTMENTS with rollback' , 1 ) ;
7730: END IF;
7731: IF l_debug_level > 0 THEN
7732: oe_debug_pub.add( SQLERRM , 1 ) ;
7733: END IF;

Line 7745: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.PROCESS_ADJUSTMENTS with rollback' , 1 ) ;

7741: );
7742: END IF;
7743:
7744: IF l_debug_level > 0 THEN
7745: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.PROCESS_ADJUSTMENTS with rollback' , 1 ) ;
7746: END IF;
7747: ROLLBACK TO SAVEPOINT PROCESS_ADJUSTMENTS;
7748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7749: IF l_debug_level > 0 THEN

Line 7750: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.PROCESS_ADJUSTMENTS' , 1 ) ;

7746: END IF;
7747: ROLLBACK TO SAVEPOINT PROCESS_ADJUSTMENTS;
7748: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7749: IF l_debug_level > 0 THEN
7750: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.PROCESS_ADJUSTMENTS' , 1 ) ;
7751: END IF;
7752: END Process_Adjustments;
7753:
7754: -- Price_Line is the main Pricing Integration API

Line 7760: ,p_Control_Rec IN OE_ORDER_PRICE_PVT.control_rec_type

7756: Procedure Price_line(
7757: p_Header_id IN NUMBER
7758: ,p_Line_id IN NUMBER
7759: ,px_line_Tbl IN OUT NOCOPY oe_Order_Pub.Line_Tbl_Type
7760: ,p_Control_Rec IN OE_ORDER_PRICE_PVT.control_rec_type
7761: ,p_action_code IN VARCHAR2
7762: ,p_Pricing_Events IN VARCHAR2
7763: --RT{
7764: ,p_request_rec OE_Order_PUB.request_rec_type default oe_order_pub.G_MISS_REQUEST_REC

Line 7861: oe_debug_pub.add( 'BEFORE OE_ORDER_PRICE_PVT.PROCESS_ADJUSTMENTS' , 1 ) ;

7857: raise fnd_api.g_exc_error;
7858: END IF;
7859:
7860: IF l_debug_level > 0 THEN
7861: oe_debug_pub.add( 'BEFORE OE_ORDER_PRICE_PVT.PROCESS_ADJUSTMENTS' , 1 ) ;
7862: END IF;
7863:
7864: process_adjustments
7865: (

Line 7887: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.PRICE_LINE' , 1 ) ;

7883: OE_Order_PUB.G_LINE := NULL;
7884: OE_Order_PUB.G_HDR := NULL;
7885:
7886: IF l_debug_level > 0 THEN
7887: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.PRICE_LINE' , 1 ) ;
7888: END IF;
7889:
7890: Exception
7891: WHEN FND_API.G_EXC_ERROR THEN

Line 7919: oe_debug_pub.add( 'ERROR IN OE_ORDER_PRICE_PVT.PRICE_LINE' , 1 ) ;

7915: --reseting global structure after engine call
7916: OE_Order_PUB.G_LINE := NULL;
7917: OE_Order_PUB.G_HDR := NULL;
7918: IF l_debug_level > 0 THEN
7919: oe_debug_pub.add( 'ERROR IN OE_ORDER_PRICE_PVT.PRICE_LINE' , 1 ) ;
7920: END IF;
7921: IF l_debug_level > 0 THEN
7922: oe_debug_pub.add( SQLERRM , 1 ) ;
7923: END IF;

Line 7934: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.PRICE_LINE' , 1 ) ;

7930: );
7931: END IF;
7932:
7933: IF l_debug_level > 0 THEN
7934: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.PRICE_LINE' , 1 ) ;
7935: END IF;
7936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7937:
7938: IF l_debug_level > 0 THEN

Line 7939: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.PRICE_LINE' , 1 ) ;

7935: END IF;
7936: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7937:
7938: IF l_debug_level > 0 THEN
7939: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.PRICE_LINE' , 1 ) ;
7940: END IF;
7941:
7942: End Price_Line;
7943:

Line 7944: end OE_ORDER_PRICE_PVT;

7940: END IF;
7941:
7942: End Price_Line;
7943:
7944: end OE_ORDER_PRICE_PVT;