[Home] [Help]
1: PACKAGE BODY oe_order_adj_pvt AS
2: /* $Header: OEXVADJB.pls 120.27.12020000.5 2013/01/07 15:41:26 sujithku ship $ */
3:
4: G_DEBUG BOOLEAN;
5: G_Pricing_Phase_Id_Tbl Char_Tbl_Type;
358: END IF;
359:
360: -- Init local table variables.
361:
362: adj_debug('Entering oe_order_Adj_pvt.HEADER_ADJS', 1);
363:
364:
365: -- FOR I IN 1..p_x_Header_Adj_tbl.COUNT LOOP
366:
903: END LOOP;
904:
905: -- Load OUT parameters
906:
907: adj_debug('Exiting oe_order_Adj_pvt.HEADER_ADJS', 1);
908: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
909:
910: oe_order_pvt.set_recursion_mode(p_Entity_Code => 3,
911: p_In_out => 0);
983: IF l_debug_level > 0 THEN
984: G_DEBUG := TRUE;
985: END IF;
986:
987: adj_debug('Entering oe_order_Adj_pvt.LINE_ADJS', 1);
988: oe_order_pvt.set_recursion_mode(p_Entity_Code => 6,
989: p_In_out => 1);
990:
991: IF FND_API.to_Boolean(p_init_msg_list) THEN
1690:
1691: oe_order_pvt.set_recursion_mode(p_Entity_Code => 6,
1692: p_In_out => 0);
1693:
1694: adj_debug('Exiting oe_order_Adj_pvt.LINE_ADJS', 1);
1695: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1696: RAISE;
1697:
1698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1763: END IF;
1764:
1765: -- Init local table variables.
1766:
1767: --dbms_output.put_line('Entering oe_order_Adj_pvt.HEader_Price_Atts');
1768: oe_debug_pub.add('Entering oe_order_Adj_pvt.HEader_Price_Atts', 1);
1769:
1770:
1771: I := p_x_Header_Price_Att_tbl.FIRST;
1764:
1765: -- Init local table variables.
1766:
1767: --dbms_output.put_line('Entering oe_order_Adj_pvt.HEader_Price_Atts');
1768: oe_debug_pub.add('Entering oe_order_Adj_pvt.HEader_Price_Atts', 1);
1769:
1770:
1771: I := p_x_Header_Price_Att_tbl.FIRST;
1772:
2262:
2263:
2264: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
2265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2266: adj_debug('Exiting oe_order_Adj_pvt.HEader_Price_Atts', 1);
2267:
2268: end HEader_Price_Atts;
2269:
2270: PROCEDURE Header_Adj_Atts
2293: END IF;
2294:
2295: -- Init local table variables.
2296:
2297: --dbms_output.put_line('Entering oe_order_Adj_pvt.Header_price_atts');
2298: adj_debug('Enetring oe_order_Adj_pvt.HEader_Adj_Atts', 1);
2299:
2300: I := p_x_Header_Adj_Att_tbl.FIRST;
2301:
2294:
2295: -- Init local table variables.
2296:
2297: --dbms_output.put_line('Entering oe_order_Adj_pvt.Header_price_atts');
2298: adj_debug('Enetring oe_order_Adj_pvt.HEader_Adj_Atts', 1);
2299:
2300: I := p_x_Header_Adj_Att_tbl.FIRST;
2301:
2302: WHILE I IS NOT NULL LOOP
2514: END LOOP;
2515:
2516: -- Load OUT parameters
2517:
2518: adj_debug('Exiting oe_order_Adj_pvt.Header_Adj_Atts', 1);
2519: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2520:
2521: EXCEPTION
2522:
2541: END IF;
2542:
2543:
2544: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2545: adj_debug('Exiting oe_order_Adj_pvt.HEader_Adj_Atts', 1);
2546:
2547: end Header_Adj_Atts;
2548:
2549: PROCEDURE Header_Adj_Assocs
2571: END IF;
2572:
2573: -- Init local table variables.
2574:
2575: --dbms_output.put_line('Entering oe_order_Adj_pvt.HEader_Price_assocs');
2576: adj_debug('Enetring oe_order_Adj_pvt.Header_Adj_Assocs', 1);
2577:
2578:
2579: I := p_x_Header_Adj_Assoc_tbl.FIRST;
2572:
2573: -- Init local table variables.
2574:
2575: --dbms_output.put_line('Entering oe_order_Adj_pvt.HEader_Price_assocs');
2576: adj_debug('Enetring oe_order_Adj_pvt.Header_Adj_Assocs', 1);
2577:
2578:
2579: I := p_x_Header_Adj_Assoc_tbl.FIRST;
2580:
2793: END LOOP;
2794:
2795: -- Load OUT parameters
2796:
2797: adj_debug('Exiting oe_order_Adj_pvt.Header_Adj_Assocs', 1);
2798: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2799:
2800: EXCEPTION
2801:
2820: END IF;
2821:
2822:
2823: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2824: adj_debug('Exiting oe_order_Adj_pvt.Header_Adj_Assocs', 1);
2825: end Header_Adj_Assocs;
2826:
2827: PROCEDURE Line_Price_Atts
2828: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
2867: END IF;
2868:
2869: -- Init local table variables.
2870:
2871: --dbms_output.put_line('Entering oe_order_Adj_pvt.Line_price_atts');
2872: adj_debug('Entering oe_order_Adj_pvt.Line_price_atts', 1);
2873:
2874: I := p_x_Line_price_att_tbl.FIRST;
2875:
2868:
2869: -- Init local table variables.
2870:
2871: --dbms_output.put_line('Entering oe_order_Adj_pvt.Line_price_atts');
2872: adj_debug('Entering oe_order_Adj_pvt.Line_price_atts', 1);
2873:
2874: I := p_x_Line_price_att_tbl.FIRST;
2875:
2876: WHILE I IS NOT NULL LOOP
3351: END LOOP;
3352:
3353: -- Load OUT parameters
3354:
3355: adj_debug('Exiting oe_order_Adj_pvt.Line_price_atts', 1);
3356: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
3357:
3358: EXCEPTION
3359:
3378: END IF;
3379:
3380:
3381: OE_MSG_PUB.reset_msg_context('LINE_PATTS');
3382: adj_debug('Exiting oe_order_Adj_pvt.Line_Price_Atts', 1);
3383: end Line_Price_Atts;
3384:
3385:
3386: PROCEDURE Insert_Adj_Atts
3413:
3414: I:= p_Line_Adj_attribs_tbl.Next(I);
3415: End Loop;
3416:
3417: Oe_Order_Adj_Pvt.Line_Adj_Atts( p_validation_level=>FND_API.G_VALID_LEVEL_NONE,
3418: p_control_rec=>l_control_rec,
3419: p_x_Line_Adj_Att_tbl =>l_line_adj_att_tbl,
3420: p_x_old_Line_Adj_Att_tbl=>l_line_dummy_adj_att_tbl);
3421:
3448: END IF;
3449:
3450: -- Init local table variables.
3451:
3452: --dbms_output.put_line('Entering oe_order_Adj_pvt.Line_price_atts');
3453: adj_debug('Entering oe_order_Adj_pvt.Line_Adj_atts', 1);
3454:
3455: I := p_x_Line_Adj_Att_tbl.FIRST;
3456:
3449:
3450: -- Init local table variables.
3451:
3452: --dbms_output.put_line('Entering oe_order_Adj_pvt.Line_price_atts');
3453: adj_debug('Entering oe_order_Adj_pvt.Line_Adj_atts', 1);
3454:
3455: I := p_x_Line_Adj_Att_tbl.FIRST;
3456:
3457: WHILE I IS NOT NULL LOOP
3690: END LOOP;
3691:
3692: -- Load OUT parameters
3693:
3694: adj_debug('Exiting oe_order_Adj_pvt.Line_Adj_atts', 1);
3695: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3696:
3697: EXCEPTION
3698:
3718:
3719:
3720: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3721:
3722: adj_debug('Exiting oe_order_Adj_pvt.Line_Adj_Atts', 1);
3723: end Line_Adj_Atts;
3724:
3725: PROCEDURE Insert_Adj_Assocs
3726: (p_Line_Adj_Assoc_tbl IN OE_Order_PUB.Line_Adj_Assoc_Tbl_Type
3751:
3752: I:= p_line_adj_assoc_tbl.Next(I);
3753: End Loop;
3754:
3755: Oe_Order_Adj_Pvt.Line_Adj_Assocs(p_validation_level=>FND_API.G_VALID_LEVEL_NONE,
3756: p_control_rec=>l_control_rec,
3757: p_x_line_adj_assoc_tbl=>l_line_adj_assoc_tbl,
3758: p_x_old_line_adj_assoc_tbl=>l_line_dummy_adj_assoc_tbl);
3759:
3785: END IF;
3786:
3787: -- Init local table variables.
3788:
3789: --dbms_output.put_line('Entering oe_order_Adj_pvt.Line_price_atts');
3790: adj_debug('Entering oe_order_Adj_pvt.Line_Adj_Assocs', 1);
3791:
3792: I := p_x_Line_Adj_Assoc_tbl.FIRST;
3793:
3786:
3787: -- Init local table variables.
3788:
3789: --dbms_output.put_line('Entering oe_order_Adj_pvt.Line_price_atts');
3790: adj_debug('Entering oe_order_Adj_pvt.Line_Adj_Assocs', 1);
3791:
3792: I := p_x_Line_Adj_Assoc_tbl.FIRST;
3793:
3794: WHILE I IS NOT NULL LOOP
4013: END LOOP;
4014:
4015: -- Load OUT parameters
4016:
4017: adj_debug('Exiting oe_order_Adj_pvt.Line_Adj_Assocs', 1);
4018: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
4019:
4020: EXCEPTION
4021:
4040: END IF;
4041:
4042:
4043: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
4044: adj_debug('Exiting oe_order_Adj_pvt.Line_Adj_Assocs', 1);
4045: end Line_Adj_Assocs;
4046:
4047: Function Enforce_list_Price
4048: return varchar2
4048: return varchar2
4049: is
4050: l_enforce_price_flag varchar2(1);
4051: begin
4052: adj_debug('Entering oe_order_Adj_pvt.Enforce_Price_lists_Flag',1);
4053: begin
4054:
4055: G_STMT_NO := 'Enforce_Price_lists_Flag#10';
4056: select nvl(enforce_line_prices_flag,'N') into l_enforce_price_flag
4068: l_enforce_price_flag := 'N';
4069: end ;
4070: end if;
4071:
4072: adj_debug('Exiting oe_order_Adj_pvt.Enforce_Price_lists_Flag',1);
4073:
4074: Return l_enforce_price_flag;
4075:
4076: end Enforce_list_Price;
4084:
4085: is
4086: l_literal_order varchar2(5):='ORDER';
4087: begin
4088: adj_debug('Entering oe_order_Adj_pvt.Enforce_Price_lists_Flag',1);
4089: adj_debug('line id:'||p_line_id||' line type:'||p_line_Type_id);
4090: G_STMT_NO := 'Enforce_Price_lists_Flag#10';
4091: IF (px_order_enforce_list_price IS NULL) THEN
4092: begin
4110: exception when no_data_found then
4111: x_line_enforce_list_price := 'N';
4112: end ;
4113: END IF;
4114: adj_debug('Exiting oe_order_Adj_pvt.Enforce_Price_lists_Flag',1);
4115:
4116: end Enforce_list_Price;
4117:
4118: Function Get_Rounding_factor(p_list_header_id number)
4147: is
4148: l_line_index pls_integer := px_req_line_tbl.count;
4149: begin
4150: G_STMT_NO := 'copy_Header_to_request#10';
4151: adj_debug('Entering oe_order_Adj_pvt.copy_Header_to_request',1);
4152:
4153: l_line_index := l_line_index+1;
4154: px_req_line_tbl(l_line_index).REQUEST_TYPE_CODE :=p_Request_Type_Code;
4155: --px_req_line_tbl(l_line_index).PRICING_EVENT :=p_pricing_event;
4177:
4178: --Rounding factor now will be handled by pricing engine.
4179:
4180: px_req_line_tbl(l_line_index).price_request_code := p_header_rec.price_request_code; -- PROMOTIONS SEP/01
4181: adj_debug('Existing oe_order_Adj_pvt.copy_Header_to_request',1);
4182:
4183: end copy_Header_to_request;
4184:
4185: procedure copy_Line_to_request(
4198: l_item_rec OE_ORDER_CACHE.item_rec_type; --OPM 2046190
4199:
4200: begin
4201: G_STMT_NO := 'copy_Line_to_request#10';
4202: adj_debug('Entering oe_order_Adj_pvt.copy_Line_to_request',1);
4203: l_line_index := l_line_index+1;
4204: px_req_line_tbl(l_line_index).Line_id := p_Line_rec.line_id;
4205: px_req_line_tbl(l_line_index).REQUEST_TYPE_CODE := p_Request_Type_Code;
4206: --px_req_line_tbl(l_line_index).PRICING_EVENT :=p_pricing_event;
4397: px_req_line_tbl(l_line_index).price_request_code := p_line_rec.price_request_code; -- PROMOTIONS SEP/01
4398: px_req_line_tbl(l_line_index).line_category
4399: := p_line_rec.line_category_code;
4400:
4401: adj_debug('Existing oe_order_Adj_pvt.copy_Line_to_request',1);
4402:
4403: end copy_Line_to_request;
4404:
4405: procedure copy_adjs_to_request(
4411: is
4412: l_RLD_Index pls_integer := p_adj_index;
4413: begin
4414:
4415: adj_debug('Entering oe_order_Adj_pvt.copy_adjs_to_request',1);
4416:
4417: G_STMT_NO := 'copy_adjs_to_request#10';
4418:
4419: --l_RLD_Index := l_RLD_Index +1 ;
4463: i pls_integer := 0;
4464: l_attr_index pls_integer := nvl(px_Req_line_attr_tbl.last,0);
4465: l_qual_index pls_integer := nvl(px_Req_qual_tbl.last,0);
4466: begin
4467: adj_debug('Entering oe_order_Adj_pvt.copy_attribs_to_Req',1);
4468: i := p_pricing_contexts_Tbl.First;
4469: While i is not null loop
4470: l_attr_index := l_attr_index +1;
4471: px_Req_line_attr_tbl(l_attr_index).VALIDATED_FLAG := 'N';
4539:
4540: i := p_qualifier_contexts_Tbl.Next(i);
4541: end loop;
4542:
4543: adj_debug('Exiting oe_order_Adj_pvt.copy_attribs_to_Req',1);
4544:
4545: end copy_attribs_to_Req;
4546:
4547: procedure Append_asked_for(
4616: where (p_line_id is not null and a.line_id = p_line_id )
4617: ;
4618: begin
4619: G_STMT_NO := 'Append_asked_for#10';
4620: adj_debug('Entering oe_order_Adj_pvt.Append_asked_for',1);
4621: for asked_for_rec in asked_for_cur loop
4622: If asked_for_rec.flex_title = 'QP_ATTR_DEFNS_PRICING' then
4623: if asked_for_rec.PRICING_ATTRIBUTE1 is not null then
4624: i := px_Req_line_attr_tbl.count+1;
5459:
5460: end if;
5461: end loop;
5462:
5463: adj_debug('Exiting oe_order_Adj_pvt.Append_asked_for',1);
5464:
5465: end Append_asked_for;
5466:
5467: procedure Get_the_parent_Line(p_Reference_line_Id Number,
5473: line_Tbl_Index pls_integer;
5474: l_related_lines_Index pls_integer;
5475: Begin
5476: G_STMT_NO := 'Get_the_parent_Line#10';
5477: adj_debug('Entering oe_order_Adj_pvt.Get_the_parent_Line',1);
5478: line_Tbl_Index := px_Line_Tbl.First;
5479: While line_Tbl_Index is not null loop
5480: If px_Line_Tbl(line_Tbl_Index).line_Id = p_Reference_line_Id Then
5481: Exit;
5506: px_Req_related_lines_tbl(l_related_lines_Index).Related_Line_Index := p_line_Tbl_index;
5507: px_Req_related_lines_tbl(l_related_lines_Index).Relationship_Type_Code
5508: := QP_PREQ_GRP.G_SERVICE_LINE;
5509:
5510: adj_debug('Exiting oe_order_Adj_pvt.Get_the_parent_Line',1);
5511:
5512: End Get_the_parent_Line;
5513:
5514: procedure set_item_for_iue(
5521: l_org_id NUMBER := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
5522: l_ordered_item varchar2(300);
5523:
5524: begin
5525: adj_debug('Entering oe_order_Adj_pvt.set_item_for_iue');
5526:
5527: /*begin original item*/
5528: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
5529: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
5556: Null;
5557: End;
5558: End If;
5559:
5560: adj_debug('Exiting oe_order_Adj_pvt.set_item_for_iue');
5561: end set_item_for_iue;
5562:
5563: procedure Get_item_for_iue(px_line_rec in out nocopy OE_Order_PUB.line_rec_type)
5564: is
5570: select modified_from from oe_price_adjustments
5571: where line_id=px_line_rec.line_id
5572: and list_line_type_code='IUE';
5573: begin
5574: adj_debug('Entering oe_order_Adj_pvt.Get_item_for_iue',1);
5575: For Adj_rec in Adj_cur loop
5576: -- There is an item upgrade for this line
5577: px_line_rec.inventory_item_id := to_number(Adj_rec.modified_from);
5578:
5591: End If;
5592: Exit;
5593: End Loop;
5594:
5595: adj_debug('Exiting oe_order_Adj_pvt.Get_item_for_iue',1);
5596: end Get_item_for_iue;
5597:
5598: procedure calculate_adjustments(
5599: x_return_status out nocopy varchar2,
6370: OE_Order_PUB.G_LINE := NULL;
6371: OE_Order_PUB.G_HDR := NULL;
6372: -- Process the lines...
6373:
6374: adj_debug('Exiting oe_order_Adj_pvt.calulate_adjustments', 1);
6375:
6376: EXCEPTION
6377:
6378: WHEN FND_API.G_EXC_ERROR THEN
6445: p_Line_Adj_Rec.operation := OE_GLOBALS.G_OPR_UPDATE;
6446: END IF;
6447: /* End: Added by Manish */
6448:
6449: adj_debug('Entering oe_order_Adj_pvt.Update_Adj_Line_rec',1);
6450: G_STMT_NO := 'Update_Adj_Line_rec#10';
6451:
6452: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.list_header_id,
6453: p_req_line_detail_Rec.list_header_id) then
6718:
6719: /* end bug 1915846 */
6720:
6721:
6722: adj_debug('Exiting oe_order_Adj_pvt.Update_Adj_Line_rec',1);
6723:
6724: Return l_updated_Flag;
6725:
6726: End Update_Adj_Line_rec;
6742: l_end_index PLS_INTEGER;
6743: l_temp NUMBER;
6744: Begin
6745:
6746: adj_debug('Entering oe_order_Adj_pvt.Find_Duplicate_Adj_Lines'||p_mode||'line_id'||p_line_id,1);
6747: adj_debug('BCT x_adj_index '||x_adj_index);
6748: G_STMT_NO := 'Find_Duplicate_Adj_Lines#10';
6749:
6750: --retrieve start and end index from key_table to save extra scaning
6883:
6884: --END IF;
6885:
6886: adj_debug(' x_adj_index:'||x_Adj_Index);
6887: adj_debug('Exiting oe_order_Adj_pvt.Find_Duplicate_Adj_Lines',1);
6888:
6889:
6890:
6891:
6901: L_Line_Adj_Assoc_Tbl OE_Order_Pub.line_adj_Assoc_tbl_Type;
6902: l_index pls_integer;
6903: i pls_integer;
6904: Begin
6905: adj_debug('Entering oe_order_Adj_pvt.Query_Adj_Assocs',1);
6906: G_STMT_NO := 'Query_Adj_Assocs#10';
6907:
6908: -- Check If the price adjustment has been already queried
6909:
6949: oe_debug_pub.add('z14');
6950: END LOOP;
6951: --end loop;
6952:
6953: adj_debug('Exiting oe_order_Adj_pvt.Query_Adj_Assocs',1);
6954:
6955: End Query_Adj_Assocs;
6956:
6957: Procedure Append_Adjustment_Lines(
6981: l_event_code1 Varchar2(240);
6982: l_mark_for_delete Varchar2(1);
6983: begin
6984:
6985: adj_debug('Entering oe_order_Adj_pvt.Append_Adjustment_Lines, line_id = ' || p_line_id);
6986: adj_debug('price flag = ' || p_price_flag);
6987:
6988: --If p_any_frozen_line Then l_dummy:='Y'; else l_dummy:='N'; End If;
6989: --adj_debug('BCT p_any_frozen_line '||l_dummy);
7131: End if;
7132:
7133: i:=l_line_adj_tbl.first;
7134:
7135: adj_debug('Exiting oe_order_Adj_pvt.Append_Adjustment_Lines',1);
7136: end Append_Adjustment_Lines;
7137:
7138: Procedure Query_Adj_Attribs(
7139: p_price_adjustment_id Number,
7142: ) Is
7143: L_Line_Adj_Att_Tbl OE_Order_Pub.line_adj_att_tbl_Type;
7144: l_index pls_integer;
7145: Begin
7146: adj_debug('Entering oe_order_Adj_pvt.Query_Adj_Attribs',1);
7147:
7148: G_STMT_NO := 'Query_Adj_Attribs#10';
7149:
7150: adj_debug('Query for price Adjustment '||p_price_adjustment_id,2);
7183:
7184: end loop;
7185:
7186:
7187: adj_debug('Exiting oe_order_Adj_pvt.Query_Adj_Attribs',1);
7188:
7189: End Query_Adj_Attribs;
7190:
7191: Procedure Find_Duplicate_Adj_Attribs(
7202: l_Index pls_integer;
7203: I pls_integer;
7204: Begin
7205:
7206: adj_debug('Entering oe_order_Adj_pvt.Find_Duplicate_Adj_Attribs',1);
7207: G_STMT_NO := 'Find_Duplicate_Adj_Attribs#10';
7208:
7209: If p_att_Type='QUALIFIER' and p_Req_Line_Detail_Qual_Rec.Qualifier_Context IS Not Null Then
7210:
7312: p_Line_Adj_Att_Tbl(l_index).pricing_attr_value_To :=
7313: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_To;
7314: End If;
7315:
7316: adj_debug('Exiting oe_order_Adj_pvt.Find_Duplicate_Adj_Attribs',1);
7317:
7318: End Find_Duplicate_Adj_Attribs;
7319:
7320: Function Match_Product_Ids(
7325: Return Boolean
7326: is
7327: l_inventory_item_id Varchar2(240);
7328: Begin
7329: adj_debug('Entering oe_order_Adj_pvt.Match_Product_Ids',1);
7330: G_STMT_NO := 'Match_Product_Ids#10';
7331: Begin
7332: /*
7333: select PRICING_ATTR_VALUE_FROM into l_inventory_item_id
7355: p_Req_line_detail_Attr_Tbl(i).Pricing_attribute='PRICING_ATTRIBUTE1' and
7356: p_Req_line_detail_Attr_Tbl(i).Pricing_Attr_Value_From = l_inventory_item_id
7357: Then
7358: -- Got a match
7359: adj_debug('Exiting oe_order_Adj_pvt.Match_Product_Ids',1);
7360: Return True;
7361: End If;
7362: End Loop;
7363: Return False;
7400: l_org_id Number:= OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
7401: E_CLOSED_PRG_LINE Exception;
7402: l_new_prg_created boolean := FALSE;
7403: Begin
7404: adj_debug('Entering oe_order_Adj_pvt.Process_Other_Item_Line',1);
7405: G_STMT_NO := 'Process_Other_Item_Line#10';
7406:
7407: If p_Price_Adjustment_Id <> FND_API.G_MISS_NUM And
7408: p_Price_Adjustment_Id is not null Then
7807: p_Line_Adj_Assoc_tbl(l_assoc_index).Operation := OE_Globals.G_OPR_CREATE;
7808:
7809: End If; -- Match_exists
7810:
7811: adj_debug('Exiting oe_order_Adj_pvt.Process_Other_Item_Line',1);
7812:
7813: End Process_Other_Item_Line;
7814:
7815: Procedure Shell_Sort(p_sorted_tbl in out Nocopy oe_order_adj_pvt.sorted_adjustment_tbl_type) Is
7811: adj_debug('Exiting oe_order_Adj_pvt.Process_Other_Item_Line',1);
7812:
7813: End Process_Other_Item_Line;
7814:
7815: Procedure Shell_Sort(p_sorted_tbl in out Nocopy oe_order_adj_pvt.sorted_adjustment_tbl_type) Is
7816: h PLS_INTEGER:=1;
7817: i PLS_INTEGER;
7818: j PLS_INTEGER;
7819: N PLS_INTEGER;
7817: i PLS_INTEGER;
7818: j PLS_INTEGER;
7819: N PLS_INTEGER;
7820:
7821: adj_rec oe_order_adj_pvt.Sorted_Adjustment_Rec_Type;
7822:
7823: Begin
7824: N := p_sorted_tbl.count;
7825:
7855:
7856: End;
7857:
7858: Procedure sort_on_pgs(
7859: p_Sorted_Tbl in out nocopy Oe_Order_Adj_Pvt.Sorted_Adjustment_Tbl_Type
7860: ,p_lo pls_integer
7861: ,p_hi pls_integer)
7862: is
7863: l_lo pls_integer := p_lo;
7861: ,p_hi pls_integer)
7862: is
7863: l_lo pls_integer := p_lo;
7864: l_hi pls_integer := p_hi;
7865: l_Sorted_Adjustment_Rec1 Oe_Order_Adj_Pvt.Sorted_Adjustment_Rec_Type;
7866: l_Sorted_Adjustment_Rec Oe_Order_Adj_Pvt.Sorted_Adjustment_Rec_Type;
7867: begin
7868: if p_lo >= p_hi Then
7869: Return;
7862: is
7863: l_lo pls_integer := p_lo;
7864: l_hi pls_integer := p_hi;
7865: l_Sorted_Adjustment_Rec1 Oe_Order_Adj_Pvt.Sorted_Adjustment_Rec_Type;
7866: l_Sorted_Adjustment_Rec Oe_Order_Adj_Pvt.Sorted_Adjustment_Rec_Type;
7867: begin
7868: if p_lo >= p_hi Then
7869: Return;
7870: Elsif p_lo = p_hi -1 then
8199:
8200: )
8201: Is
8202: Begin
8203: adj_debug('Entering oe_order_Adj_pvt.CAlculate_Adjusted_Price');
8204: If p_arithmetic_operator = 'AMT' Then
8205: x_Adjusted_Amount := p_operand;
8206: Elsif p_arithmetic_operator = '%' then
8207: --bug 2764291
8233: End IF;
8234: End If;
8235:
8236:
8237: adj_debug('Exiting oe_order_Adj_pvt.CAlculate_Adjusted_Price');
8238:
8239: end CAlculate_Adjusted_Price;
8240:
8241: Procedure Calculate_Price (
8263: l_sign Number;
8264: l_rounding_factor Number;
8265: l_gsa_violation_action Varchar2(30); --moac moving the initialization to the body
8266: l_GSA_Enabled_Flag Varchar2(30) := FND_PROFILE.VALUE('QP_VERIFY_GSA');
8267: l_Sorted_Adjustment_Tbl oe_order_Adj_pvt.Sorted_Adjustment_Tbl_Type;
8268: l_Sort_Index Pls_Integer;
8269: l_pricing_quantity Number;
8270: l_assoc_exist Boolean;
8271: l_adjusted_amt_changed Boolean;
8278: l_process Boolean; -- OPM 2547940
8279:
8280: Begin
8281:
8282: adj_debug('Entering oe_order_Adj_pvt.Calculate_Price');
8283:
8284: --moac
8285: l_gsa_violation_action := oe_sys_parameters.value('ONT_GSA_VIOLATION_ACTION',p_header_rec.org_id);
8286:
8883: End If; --calculate price flag in ('Y','P');
8884: I := p_Line_Tbl.Next(I);
8885: End Loop; -- Lines
8886:
8887: adj_debug('Exiting oe_order_Adj_pvt.Calculate_Price');
8888:
8889: End Calculate_Price;
8890:
8891: Function Get_unit_precision(p_header_id number)
9188: --serla end
9189: begin
9190:
9191: x_return_status := FND_API.G_RET_STS_SUCCESS;
9192: adj_debug('Entering oe_order_Adj_pvt.process_adjustments',1);
9193: G_STMT_NO := 'process_adjustments#10';
9194:
9195: i:= p_req_line_tbl.first;
9196: While I is not null Loop
9300: l_line_rec.unit_list_price:=NULL;
9301: l_line_rec.unit_selling_price_per_pqty :=NULL;
9302: l_line_rec.unit_list_price_per_pqty:=NULL;
9303: Exception When Others Then
9304: Oe_Debug_Pub.add('Oe_Order_Adj_Pvt:Failed to update price:'||SQLERRM);
9305: End;*/
9306: --End If;
9307:
9308: l_line_rec.unit_selling_price := NULL;
10187: and l_line_adj_tbl(i).list_line_type_code='PRG') THEN
10188:
10189: adj_debug('Need to delete/update free goods line');
10190: /* 1503357 */
10191: OE_ORDER_ADJ_PVT.change_prg_lines(
10192: p_price_adjustment_id => l_line_adj_tbl(i).price_adjustment_id,
10193: p_line_tbl => l_line_tbl,
10194: p_line_adj_tbl => l_line_adj_tbl,
10195: p_delete_prg_lines => l_delete_prg_lines);
10834: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
10835: END IF;
10836: End if;
10837:
10838: adj_debug('Exiting oe_order_Adj_pvt.process_adjustments',1);
10839:
10840:
10841: EXCEPTION
10842:
10860: WHEN OTHERS THEN
10861:
10862: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10863: --dbms_output.put_line('Error is '||sqlerrm);
10864: adj_debug('Error in oe_order_Adj_pvt.process_adjustments',1);
10865: adj_debug(' '||g_stmt_no||' '||sqlerrm,1);
10866:
10867: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10868: THEN
10867: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10868: THEN
10869: OE_MSG_PUB.Add_Exc_Msg
10870: ( G_PKG_NAME
10871: , 'oe_order_Adj_pvt.process_adjustments',
10872: g_stmt_no||' '||sqlerrm
10873: );
10874: END IF;
10875:
11076:
11077: --btea perf begin
11078: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
11079: G_DEBUG := TRUE;
11080: adj_debug('Entering oe_order_Adj_pvt.Price_line',1);
11081: adj_debug('Version:'||get_version);
11082: Else
11083: G_DEBUG := FALSE;
11084: End If;
11159: RETURN;
11160: END IF;
11161:
11162:
11163: adj_debug('Exiting oe_order_Adj_pvt.Price_line',1);
11164:
11165:
11166:
11167: Exception
11172: --Bug 7566697
11173: adj_debug('Setting prcing error flag for mass change');
11174: OE_MASS_CHANGE_PVT.G_PRICING_ERROR := 'Y';
11175:
11176: adj_debug('Exiting oe_order_Adj_pvt.Price_line',1);
11177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11178:
11179: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11180:
11181: --Bug 7566697
11182: adj_debug('Setting prcing error flag for mass change');
11183: OE_MASS_CHANGE_PVT.G_PRICING_ERROR := 'Y';
11184:
11185: adj_debug('Exiting oe_order_Adj_pvt.Price_line',1);
11186: WHEN OTHERS THEN
11187:
11188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11189: adj_debug('Error in oe_order_Adj_pvt.Price_line',1);
11185: adj_debug('Exiting oe_order_Adj_pvt.Price_line',1);
11186: WHEN OTHERS THEN
11187:
11188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11189: adj_debug('Error in oe_order_Adj_pvt.Price_line',1);
11190: adj_debug(sqlerrm,1);
11191:
11192: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11193: THEN
11201: --Bug 7566697
11202: adj_debug('Setting prcing error flag for mass change');
11203: OE_MASS_CHANGE_PVT.G_PRICING_ERROR := 'Y';
11204:
11205: adj_debug('Exiting oe_order_Adj_pvt.Price_line',1);
11206: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11207:
11208: End Price_line;
11209:
11263: l_x_Line_Payment_tbl OE_Order_PUB.Line_Payment_Tbl_Type;
11264: --serla end
11265: begin
11266:
11267: adj_debug('Entering oe_order_Adj_pvt.Price_adjustments',1);
11268:
11269: --btea perf begin
11270: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
11271: G_DEBUG := TRUE;
11581: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11582: RAISE FND_API.G_EXC_ERROR;
11583: END IF;
11584:
11585: adj_debug('Exiting oe_order_Adj_pvt.Price_adjustments',1);
11586:
11587:
11588: EXCEPTION
11589:
11600: WHEN OTHERS THEN
11601:
11602: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11603: --dbms_output.put_line('Error is '||sqlerrm);
11604: adj_debug('Error in oe_order_Adj_pvt.Price_adjustments',1);
11605: adj_debug(' '||g_stmt_no||' '||sqlerrm,1);
11606:
11607: End Price_Adjustments;
11608:
11683: l_has_prg_lines:='Y';
11684: End;
11685: oe_debug_pub.add('Lalit calling Price Line with l_has_prg_lines-' || l_has_prg_lines );
11686: IF l_has_prg_lines = 'Y' THEN
11687: oe_order_Adj_pvt.Price_line(
11688: X_Return_Status => l_Return_Status
11689: ,p_Request_Type_code=> 'ONT'
11690: ,p_Control_rec => l_Price_Control_Rec
11691: ,p_Write_To_Db => TRUE
11709: END IF;
11710: i := p_selected_records.next(i);
11711: End Loop;
11712: IF l_has_prg_lines IN ('N','Q') THEN
11713: oe_order_Adj_pvt.Price_line(
11714: X_Return_Status => l_Return_Status
11715: ,p_Request_Type_code=> 'ONT'
11716: ,p_Control_rec => l_Price_Control_Rec
11717: ,p_Write_To_Db => TRUE
11750: End;
11751: End If;
11752:
11753: IF l_has_prg_lines = 'Y' THEN
11754: oe_order_Adj_pvt.Price_line(
11755: X_Return_Status => l_Return_Status
11756: ,p_Request_Type_code=> 'ONT'
11757: ,p_Control_rec => l_Price_Control_Rec
11758: ,p_Write_To_Db => TRUE
11772: null;
11773: End;
11774: END IF;
11775:
11776: oe_order_Adj_pvt.Price_line(
11777: X_Return_Status => l_Return_Status
11778: ,p_Request_Type_code=> 'ONT'
11779: ,p_Control_rec => l_Price_Control_Rec
11780: ,p_Write_To_Db => TRUE
11805: l_prev_line_hdr_id := l_header_id;
11806: i := p_selected_records.next(i);
11807: End Loop;
11808: IF l_x_line_tbl.count > 0 THEN
11809: oe_order_Adj_pvt.Price_line(
11810: X_Return_Status => l_Return_Status
11811: ,p_Request_Type_code=> 'ONT'
11812: ,p_Control_rec => l_Price_Control_Rec
11813: ,p_Write_To_Db => TRUE
11876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11877: END IF;
11878: --13727700 end
11879:
11880: oe_order_Adj_pvt.Price_line(
11881: X_Return_Status => l_Return_Status
11882: ,p_header_id => l_header_id
11883: ,p_Request_Type_code=> 'ONT'
11884: ,p_Control_rec => l_Price_Control_Rec
11932: END IF;
11933: --13727700 end
11934:
11935:
11936: oe_order_Adj_pvt.Price_line(
11937: X_Return_Status => l_Return_Status
11938: ,p_header_id => l_header_id
11939: ,p_Request_Type_code=> 'ONT'
11940: ,p_Control_rec => l_Price_Control_Rec
11970: END IF;
11971:
11972: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
11973:
11974: adj_debug('Exiting oe_order_Adj_pvt.Price_adjustments',1);
11975:
11976:
11977: EXCEPTION
11978:
12085: IF l_has_prg_lines = 'Y' THEN
12086: --fix bug 2788649,if PRG exists we will need to do price_line line per line --Need to call price_line line by line because PRG exists
12087: adj_debug('New price action, line by line because the order has prg');
12088:
12089: oe_order_Adj_pvt.Price_line(
12090: X_Return_Status => l_Return_Status
12091: ,p_Request_Type_code=> 'ONT'
12092: ,p_Control_rec => l_Price_Control_Rec
12093: ,p_Write_To_Db => TRUE
12113:
12114: End loop;
12115:
12116: IF l_has_prg_lines IN ('N','Q') THEN
12117: oe_order_Adj_pvt.Price_line(
12118: X_Return_Status => l_Return_Status
12119: ,p_Request_Type_code=> 'ONT'
12120: ,p_Control_rec => l_Price_Control_Rec
12121: ,p_Write_To_Db => TRUE
12182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12183: END IF;
12184: --14647325 end
12185:
12186: oe_order_Adj_pvt.Price_line(
12187: X_Return_Status => l_Return_Status
12188: ,p_header_id => l_header_id
12189: ,p_Request_Type_code=> 'ONT'
12190: ,p_Control_rec => l_Price_Control_Rec
12215: END IF;
12216:
12217: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
12218:
12219: adj_debug('Exiting oe_order_Adj_pvt.Price_adjustments',1);
12220:
12221:
12222: EXCEPTION
12223:
12542:
12543: Exception
12544: When Others Then
12545: x_return_status := FND_API.G_RET_STS_ERROR;
12546: x_return_status_text := 'Oe_Order_Adj_Pvt.Get_Quote: '||l_stmt||': '||SQLERRM;
12547:
12548: End get_quote;
12549:
12550: /***************************************************************************************************
12555: ****************************************************************************************************/
12556: Procedure Create_Manual_Adjustments(p_line_id In Number)
12557: As
12558: l_return_stauts Varchar2(15);
12559: l_manual_adj_tbl Oe_Order_Adj_Pvt.Manual_Adj_Tbl_Type;
12560: l_line_adj_tbl Oe_Order_Pub.line_adj_tbl_type;
12561: l_dummy_tbl Oe_Order_Pub.line_adj_tbl_type;
12562: l_control_rec OE_GLOBALS.Control_Rec_Type;
12563: i PLS_INTEGER;
12637: i:= l_manual_adj_tbl.Next(i);
12638: End Loop;
12639:
12640: Exception When Others Then
12641: Oe_Debug_Pub.Add('Error occured in oe_order_adj_pvt.create_manual_adjustments:'||stmt||':'||SQLERRM);
12642: Raise;
12643: End Create_Manual_Adjustments;
12644:
12645:
12661: p_level in Varchar2 default 'LINE',
12662: p_pbh_mode in Varchar2 default 'CHILD',
12663: p_cross_order in Varchar2 Default 'N',
12664: p_line_level in Varchar2 Default 'N',
12665: x_manual_adj_tbl out Nocopy Oe_Order_Adj_Pvt.Manual_Adj_Tbl_Type,
12666: x_return_status out nocopy Varchar2,
12667:
12668: x_header_id out nocopy Number,
12669: p_freight_flag in boolean default false,
13531: oe_debug_pub.add('return_value '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER,3);
13532: oe_debug_pub.add(' Leaving GET_MANUAL_ADV_STATUS ',3);
13533: END GET_MANUAL_ADV_STATUS;
13534:
13535: end Oe_Order_Adj_Pvt;