[Home] [Help]
1: PACKAGE BODY oe_order_adj_pvt AS
2: /* $Header: OEXVADJB.pls 120.13.12010000.10 2008/12/31 09:35:00 amimukhe ship $ */
3:
4: G_DEBUG BOOLEAN;
5: G_Pricing_Phase_Id_Tbl Char_Tbl_Type;
357: END IF;
358:
359: -- Init local table variables.
360:
361: adj_debug('Entering oe_order_Adj_pvt.HEADER_ADJS', 1);
362:
363:
364: -- FOR I IN 1..p_x_Header_Adj_tbl.COUNT LOOP
365:
868: END LOOP;
869:
870: -- Load OUT parameters
871:
872: adj_debug('Exiting oe_order_Adj_pvt.HEADER_ADJS', 1);
873: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
874:
875: oe_order_pvt.set_recursion_mode(p_Entity_Code => 3,
876: p_In_out => 0);
948: IF l_debug_level > 0 THEN
949: G_DEBUG := TRUE;
950: END IF;
951:
952: adj_debug('Entering oe_order_Adj_pvt.LINE_ADJS', 1);
953: oe_order_pvt.set_recursion_mode(p_Entity_Code => 6,
954: p_In_out => 1);
955:
956: IF FND_API.to_Boolean(p_init_msg_list) THEN
1607:
1608: oe_order_pvt.set_recursion_mode(p_Entity_Code => 6,
1609: p_In_out => 0);
1610:
1611: adj_debug('Exiting oe_order_Adj_pvt.LINE_ADJS', 1);
1612: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1613: RAISE;
1614:
1615: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1680: END IF;
1681:
1682: -- Init local table variables.
1683:
1684: --dbms_output.put_line('Entering oe_order_Adj_pvt.HEader_Price_Atts');
1685: oe_debug_pub.add('Entering oe_order_Adj_pvt.HEader_Price_Atts', 1);
1686:
1687:
1688: I := p_x_Header_Price_Att_tbl.FIRST;
1681:
1682: -- Init local table variables.
1683:
1684: --dbms_output.put_line('Entering oe_order_Adj_pvt.HEader_Price_Atts');
1685: oe_debug_pub.add('Entering oe_order_Adj_pvt.HEader_Price_Atts', 1);
1686:
1687:
1688: I := p_x_Header_Price_Att_tbl.FIRST;
1689:
2179:
2180:
2181: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
2182: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2183: adj_debug('Exiting oe_order_Adj_pvt.HEader_Price_Atts', 1);
2184:
2185: end HEader_Price_Atts;
2186:
2187: PROCEDURE Header_Adj_Atts
2210: END IF;
2211:
2212: -- Init local table variables.
2213:
2214: --dbms_output.put_line('Entering oe_order_Adj_pvt.Header_price_atts');
2215: adj_debug('Enetring oe_order_Adj_pvt.HEader_Adj_Atts', 1);
2216:
2217: I := p_x_Header_Adj_Att_tbl.FIRST;
2218:
2211:
2212: -- Init local table variables.
2213:
2214: --dbms_output.put_line('Entering oe_order_Adj_pvt.Header_price_atts');
2215: adj_debug('Enetring oe_order_Adj_pvt.HEader_Adj_Atts', 1);
2216:
2217: I := p_x_Header_Adj_Att_tbl.FIRST;
2218:
2219: WHILE I IS NOT NULL LOOP
2431: END LOOP;
2432:
2433: -- Load OUT parameters
2434:
2435: adj_debug('Exiting oe_order_Adj_pvt.Header_Adj_Atts', 1);
2436: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2437:
2438: EXCEPTION
2439:
2458: END IF;
2459:
2460:
2461: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2462: adj_debug('Exiting oe_order_Adj_pvt.HEader_Adj_Atts', 1);
2463:
2464: end Header_Adj_Atts;
2465:
2466: PROCEDURE Header_Adj_Assocs
2488: END IF;
2489:
2490: -- Init local table variables.
2491:
2492: --dbms_output.put_line('Entering oe_order_Adj_pvt.HEader_Price_assocs');
2493: adj_debug('Enetring oe_order_Adj_pvt.Header_Adj_Assocs', 1);
2494:
2495:
2496: I := p_x_Header_Adj_Assoc_tbl.FIRST;
2489:
2490: -- Init local table variables.
2491:
2492: --dbms_output.put_line('Entering oe_order_Adj_pvt.HEader_Price_assocs');
2493: adj_debug('Enetring oe_order_Adj_pvt.Header_Adj_Assocs', 1);
2494:
2495:
2496: I := p_x_Header_Adj_Assoc_tbl.FIRST;
2497:
2710: END LOOP;
2711:
2712: -- Load OUT parameters
2713:
2714: adj_debug('Exiting oe_order_Adj_pvt.Header_Adj_Assocs', 1);
2715: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2716:
2717: EXCEPTION
2718:
2737: END IF;
2738:
2739:
2740: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2741: adj_debug('Exiting oe_order_Adj_pvt.Header_Adj_Assocs', 1);
2742: end Header_Adj_Assocs;
2743:
2744: PROCEDURE Line_Price_Atts
2745: ( p_init_msg_list IN VARCHAR2:=FND_API.G_FALSE
2784: END IF;
2785:
2786: -- Init local table variables.
2787:
2788: --dbms_output.put_line('Entering oe_order_Adj_pvt.Line_price_atts');
2789: adj_debug('Entering oe_order_Adj_pvt.Line_price_atts', 1);
2790:
2791: I := p_x_Line_price_att_tbl.FIRST;
2792:
2785:
2786: -- Init local table variables.
2787:
2788: --dbms_output.put_line('Entering oe_order_Adj_pvt.Line_price_atts');
2789: adj_debug('Entering oe_order_Adj_pvt.Line_price_atts', 1);
2790:
2791: I := p_x_Line_price_att_tbl.FIRST;
2792:
2793: WHILE I IS NOT NULL LOOP
3268: END LOOP;
3269:
3270: -- Load OUT parameters
3271:
3272: adj_debug('Exiting oe_order_Adj_pvt.Line_price_atts', 1);
3273: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
3274:
3275: EXCEPTION
3276:
3295: END IF;
3296:
3297:
3298: OE_MSG_PUB.reset_msg_context('LINE_PATTS');
3299: adj_debug('Exiting oe_order_Adj_pvt.Line_Price_Atts', 1);
3300: end Line_Price_Atts;
3301:
3302:
3303: PROCEDURE Insert_Adj_Atts
3330:
3331: I:= p_Line_Adj_attribs_tbl.Next(I);
3332: End Loop;
3333:
3334: Oe_Order_Adj_Pvt.Line_Adj_Atts( p_validation_level=>FND_API.G_VALID_LEVEL_NONE,
3335: p_control_rec=>l_control_rec,
3336: p_x_Line_Adj_Att_tbl =>l_line_adj_att_tbl,
3337: p_x_old_Line_Adj_Att_tbl=>l_line_dummy_adj_att_tbl);
3338:
3365: END IF;
3366:
3367: -- Init local table variables.
3368:
3369: --dbms_output.put_line('Entering oe_order_Adj_pvt.Line_price_atts');
3370: adj_debug('Entering oe_order_Adj_pvt.Line_Adj_atts', 1);
3371:
3372: I := p_x_Line_Adj_Att_tbl.FIRST;
3373:
3366:
3367: -- Init local table variables.
3368:
3369: --dbms_output.put_line('Entering oe_order_Adj_pvt.Line_price_atts');
3370: adj_debug('Entering oe_order_Adj_pvt.Line_Adj_atts', 1);
3371:
3372: I := p_x_Line_Adj_Att_tbl.FIRST;
3373:
3374: WHILE I IS NOT NULL LOOP
3607: END LOOP;
3608:
3609: -- Load OUT parameters
3610:
3611: adj_debug('Exiting oe_order_Adj_pvt.Line_Adj_atts', 1);
3612: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3613:
3614: EXCEPTION
3615:
3635:
3636:
3637: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3638:
3639: adj_debug('Exiting oe_order_Adj_pvt.Line_Adj_Atts', 1);
3640: end Line_Adj_Atts;
3641:
3642: PROCEDURE Insert_Adj_Assocs
3643: (p_Line_Adj_Assoc_tbl IN OE_Order_PUB.Line_Adj_Assoc_Tbl_Type
3668:
3669: I:= p_line_adj_assoc_tbl.Next(I);
3670: End Loop;
3671:
3672: Oe_Order_Adj_Pvt.Line_Adj_Assocs(p_validation_level=>FND_API.G_VALID_LEVEL_NONE,
3673: p_control_rec=>l_control_rec,
3674: p_x_line_adj_assoc_tbl=>l_line_adj_assoc_tbl,
3675: p_x_old_line_adj_assoc_tbl=>l_line_dummy_adj_assoc_tbl);
3676:
3702: END IF;
3703:
3704: -- Init local table variables.
3705:
3706: --dbms_output.put_line('Entering oe_order_Adj_pvt.Line_price_atts');
3707: adj_debug('Entering oe_order_Adj_pvt.Line_Adj_Assocs', 1);
3708:
3709: I := p_x_Line_Adj_Assoc_tbl.FIRST;
3710:
3703:
3704: -- Init local table variables.
3705:
3706: --dbms_output.put_line('Entering oe_order_Adj_pvt.Line_price_atts');
3707: adj_debug('Entering oe_order_Adj_pvt.Line_Adj_Assocs', 1);
3708:
3709: I := p_x_Line_Adj_Assoc_tbl.FIRST;
3710:
3711: WHILE I IS NOT NULL LOOP
3930: END LOOP;
3931:
3932: -- Load OUT parameters
3933:
3934: adj_debug('Exiting oe_order_Adj_pvt.Line_Adj_Assocs', 1);
3935: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3936:
3937: EXCEPTION
3938:
3957: END IF;
3958:
3959:
3960: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3961: adj_debug('Exiting oe_order_Adj_pvt.Line_Adj_Assocs', 1);
3962: end Line_Adj_Assocs;
3963:
3964: Function Enforce_list_Price
3965: return varchar2
3965: return varchar2
3966: is
3967: l_enforce_price_flag varchar2(1);
3968: begin
3969: adj_debug('Entering oe_order_Adj_pvt.Enforce_Price_lists_Flag',1);
3970: begin
3971:
3972: G_STMT_NO := 'Enforce_Price_lists_Flag#10';
3973: select nvl(enforce_line_prices_flag,'N') into l_enforce_price_flag
3985: l_enforce_price_flag := 'N';
3986: end ;
3987: end if;
3988:
3989: adj_debug('Exiting oe_order_Adj_pvt.Enforce_Price_lists_Flag',1);
3990:
3991: Return l_enforce_price_flag;
3992:
3993: end Enforce_list_Price;
4001:
4002: is
4003: l_literal_order varchar2(5):='ORDER';
4004: begin
4005: adj_debug('Entering oe_order_Adj_pvt.Enforce_Price_lists_Flag',1);
4006: adj_debug('line id:'||p_line_id||' line type:'||p_line_Type_id);
4007: G_STMT_NO := 'Enforce_Price_lists_Flag#10';
4008: IF (px_order_enforce_list_price IS NULL) THEN
4009: begin
4027: exception when no_data_found then
4028: x_line_enforce_list_price := 'N';
4029: end ;
4030: END IF;
4031: adj_debug('Exiting oe_order_Adj_pvt.Enforce_Price_lists_Flag',1);
4032:
4033: end Enforce_list_Price;
4034:
4035: Function Get_Rounding_factor(p_list_header_id number)
4064: is
4065: l_line_index pls_integer := px_req_line_tbl.count;
4066: begin
4067: G_STMT_NO := 'copy_Header_to_request#10';
4068: adj_debug('Entering oe_order_Adj_pvt.copy_Header_to_request',1);
4069:
4070: l_line_index := l_line_index+1;
4071: px_req_line_tbl(l_line_index).REQUEST_TYPE_CODE :=p_Request_Type_Code;
4072: --px_req_line_tbl(l_line_index).PRICING_EVENT :=p_pricing_event;
4094:
4095: --Rounding factor now will be handled by pricing engine.
4096:
4097: px_req_line_tbl(l_line_index).price_request_code := p_header_rec.price_request_code; -- PROMOTIONS SEP/01
4098: adj_debug('Existing oe_order_Adj_pvt.copy_Header_to_request',1);
4099:
4100: end copy_Header_to_request;
4101:
4102: procedure copy_Line_to_request(
4115: l_item_rec OE_ORDER_CACHE.item_rec_type; --OPM 2046190
4116:
4117: begin
4118: G_STMT_NO := 'copy_Line_to_request#10';
4119: adj_debug('Entering oe_order_Adj_pvt.copy_Line_to_request',1);
4120: l_line_index := l_line_index+1;
4121: px_req_line_tbl(l_line_index).Line_id := p_Line_rec.line_id;
4122: px_req_line_tbl(l_line_index).REQUEST_TYPE_CODE := p_Request_Type_Code;
4123: --px_req_line_tbl(l_line_index).PRICING_EVENT :=p_pricing_event;
4314: px_req_line_tbl(l_line_index).price_request_code := p_line_rec.price_request_code; -- PROMOTIONS SEP/01
4315: px_req_line_tbl(l_line_index).line_category
4316: := p_line_rec.line_category_code;
4317:
4318: adj_debug('Existing oe_order_Adj_pvt.copy_Line_to_request',1);
4319:
4320: end copy_Line_to_request;
4321:
4322: procedure copy_adjs_to_request(
4328: is
4329: l_RLD_Index pls_integer := p_adj_index;
4330: begin
4331:
4332: adj_debug('Entering oe_order_Adj_pvt.copy_adjs_to_request',1);
4333:
4334: G_STMT_NO := 'copy_adjs_to_request#10';
4335:
4336: --l_RLD_Index := l_RLD_Index +1 ;
4380: i pls_integer := 0;
4381: l_attr_index pls_integer := nvl(px_Req_line_attr_tbl.last,0);
4382: l_qual_index pls_integer := nvl(px_Req_qual_tbl.last,0);
4383: begin
4384: adj_debug('Entering oe_order_Adj_pvt.copy_attribs_to_Req',1);
4385: i := p_pricing_contexts_Tbl.First;
4386: While i is not null loop
4387: l_attr_index := l_attr_index +1;
4388: px_Req_line_attr_tbl(l_attr_index).VALIDATED_FLAG := 'N';
4456:
4457: i := p_qualifier_contexts_Tbl.Next(i);
4458: end loop;
4459:
4460: adj_debug('Exiting oe_order_Adj_pvt.copy_attribs_to_Req',1);
4461:
4462: end copy_attribs_to_Req;
4463:
4464: procedure Append_asked_for(
4533: where (p_line_id is not null and a.line_id = p_line_id )
4534: ;
4535: begin
4536: G_STMT_NO := 'Append_asked_for#10';
4537: adj_debug('Entering oe_order_Adj_pvt.Append_asked_for',1);
4538: for asked_for_rec in asked_for_cur loop
4539: If asked_for_rec.flex_title = 'QP_ATTR_DEFNS_PRICING' then
4540: if asked_for_rec.PRICING_ATTRIBUTE1 is not null then
4541: i := px_Req_line_attr_tbl.count+1;
5376:
5377: end if;
5378: end loop;
5379:
5380: adj_debug('Exiting oe_order_Adj_pvt.Append_asked_for',1);
5381:
5382: end Append_asked_for;
5383:
5384: procedure Get_the_parent_Line(p_Reference_line_Id Number,
5390: line_Tbl_Index pls_integer;
5391: l_related_lines_Index pls_integer;
5392: Begin
5393: G_STMT_NO := 'Get_the_parent_Line#10';
5394: adj_debug('Entering oe_order_Adj_pvt.Get_the_parent_Line',1);
5395: line_Tbl_Index := px_Line_Tbl.First;
5396: While line_Tbl_Index is not null loop
5397: If px_Line_Tbl(line_Tbl_Index).line_Id = p_Reference_line_Id Then
5398: Exit;
5423: px_Req_related_lines_tbl(l_related_lines_Index).Related_Line_Index := p_line_Tbl_index;
5424: px_Req_related_lines_tbl(l_related_lines_Index).Relationship_Type_Code
5425: := QP_PREQ_GRP.G_SERVICE_LINE;
5426:
5427: adj_debug('Exiting oe_order_Adj_pvt.Get_the_parent_Line',1);
5428:
5429: End Get_the_parent_Line;
5430:
5431: procedure set_item_for_iue(
5438: l_org_id NUMBER := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
5439: l_ordered_item varchar2(300);
5440:
5441: begin
5442: adj_debug('Entering oe_order_Adj_pvt.set_item_for_iue');
5443:
5444: /*begin original item*/
5445: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
5446: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
5473: Null;
5474: End;
5475: End If;
5476:
5477: adj_debug('Exiting oe_order_Adj_pvt.set_item_for_iue');
5478: end set_item_for_iue;
5479:
5480: procedure Get_item_for_iue(px_line_rec in out nocopy OE_Order_PUB.line_rec_type)
5481: is
5487: select modified_from from oe_price_adjustments
5488: where line_id=px_line_rec.line_id
5489: and list_line_type_code='IUE';
5490: begin
5491: adj_debug('Entering oe_order_Adj_pvt.Get_item_for_iue',1);
5492: For Adj_rec in Adj_cur loop
5493: -- There is an item upgrade for this line
5494: px_line_rec.inventory_item_id := to_number(Adj_rec.modified_from);
5495:
5508: End If;
5509: Exit;
5510: End Loop;
5511:
5512: adj_debug('Exiting oe_order_Adj_pvt.Get_item_for_iue',1);
5513: end Get_item_for_iue;
5514:
5515: procedure calculate_adjustments(
5516: x_return_status out nocopy varchar2,
6279: OE_Order_PUB.G_LINE := NULL;
6280: OE_Order_PUB.G_HDR := NULL;
6281: -- Process the lines...
6282:
6283: adj_debug('Exiting oe_order_Adj_pvt.calulate_adjustments', 1);
6284:
6285: EXCEPTION
6286:
6287: WHEN FND_API.G_EXC_ERROR THEN
6354: p_Line_Adj_Rec.operation := OE_GLOBALS.G_OPR_UPDATE;
6355: END IF;
6356: /* End: Added by Manish */
6357:
6358: adj_debug('Entering oe_order_Adj_pvt.Update_Adj_Line_rec',1);
6359: G_STMT_NO := 'Update_Adj_Line_rec#10';
6360:
6361: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.list_header_id,
6362: p_req_line_detail_Rec.list_header_id) then
6627:
6628: /* end bug 1915846 */
6629:
6630:
6631: adj_debug('Exiting oe_order_Adj_pvt.Update_Adj_Line_rec',1);
6632:
6633: Return l_updated_Flag;
6634:
6635: End Update_Adj_Line_rec;
6651: l_end_index PLS_INTEGER;
6652: l_temp NUMBER;
6653: Begin
6654:
6655: adj_debug('Entering oe_order_Adj_pvt.Find_Duplicate_Adj_Lines'||p_mode||'line_id'||p_line_id,1);
6656: adj_debug('BCT x_adj_index '||x_adj_index);
6657: G_STMT_NO := 'Find_Duplicate_Adj_Lines#10';
6658:
6659: --retrieve start and end index from key_table to save extra scaning
6792:
6793: --END IF;
6794:
6795: adj_debug(' x_adj_index:'||x_Adj_Index);
6796: adj_debug('Exiting oe_order_Adj_pvt.Find_Duplicate_Adj_Lines',1);
6797:
6798:
6799:
6800:
6810: L_Line_Adj_Assoc_Tbl OE_Order_Pub.line_adj_Assoc_tbl_Type;
6811: l_index pls_integer;
6812: i pls_integer;
6813: Begin
6814: adj_debug('Entering oe_order_Adj_pvt.Query_Adj_Assocs',1);
6815: G_STMT_NO := 'Query_Adj_Assocs#10';
6816:
6817: -- Check If the price adjustment has been already queried
6818:
6858: oe_debug_pub.add('z14');
6859: END LOOP;
6860: --end loop;
6861:
6862: adj_debug('Exiting oe_order_Adj_pvt.Query_Adj_Assocs',1);
6863:
6864: End Query_Adj_Assocs;
6865:
6866: Procedure Append_Adjustment_Lines(
6890: l_event_code1 Varchar2(240);
6891: l_mark_for_delete Varchar2(1);
6892: begin
6893:
6894: adj_debug('Entering oe_order_Adj_pvt.Append_Adjustment_Lines, line_id = ' || p_line_id);
6895: adj_debug('price flag = ' || p_price_flag);
6896:
6897: --If p_any_frozen_line Then l_dummy:='Y'; else l_dummy:='N'; End If;
6898: --adj_debug('BCT p_any_frozen_line '||l_dummy);
7039: End if;
7040:
7041: i:=l_line_adj_tbl.first;
7042:
7043: adj_debug('Exiting oe_order_Adj_pvt.Append_Adjustment_Lines',1);
7044: end Append_Adjustment_Lines;
7045:
7046: Procedure Query_Adj_Attribs(
7047: p_price_adjustment_id Number,
7050: ) Is
7051: L_Line_Adj_Att_Tbl OE_Order_Pub.line_adj_att_tbl_Type;
7052: l_index pls_integer;
7053: Begin
7054: adj_debug('Entering oe_order_Adj_pvt.Query_Adj_Attribs',1);
7055:
7056: G_STMT_NO := 'Query_Adj_Attribs#10';
7057:
7058: adj_debug('Query for price Adjustment '||p_price_adjustment_id,2);
7091:
7092: end loop;
7093:
7094:
7095: adj_debug('Exiting oe_order_Adj_pvt.Query_Adj_Attribs',1);
7096:
7097: End Query_Adj_Attribs;
7098:
7099: Procedure Find_Duplicate_Adj_Attribs(
7110: l_Index pls_integer;
7111: I pls_integer;
7112: Begin
7113:
7114: adj_debug('Entering oe_order_Adj_pvt.Find_Duplicate_Adj_Attribs',1);
7115: G_STMT_NO := 'Find_Duplicate_Adj_Attribs#10';
7116:
7117: If p_att_Type='QUALIFIER' and p_Req_Line_Detail_Qual_Rec.Qualifier_Context IS Not Null Then
7118:
7220: p_Line_Adj_Att_Tbl(l_index).pricing_attr_value_To :=
7221: p_Req_Line_Detail_Attr_Rec.Pricing_Attr_Value_To;
7222: End If;
7223:
7224: adj_debug('Exiting oe_order_Adj_pvt.Find_Duplicate_Adj_Attribs',1);
7225:
7226: End Find_Duplicate_Adj_Attribs;
7227:
7228: Function Match_Product_Ids(
7233: Return Boolean
7234: is
7235: l_inventory_item_id Varchar2(240);
7236: Begin
7237: adj_debug('Entering oe_order_Adj_pvt.Match_Product_Ids',1);
7238: G_STMT_NO := 'Match_Product_Ids#10';
7239: Begin
7240: /*
7241: select PRICING_ATTR_VALUE_FROM into l_inventory_item_id
7263: p_Req_line_detail_Attr_Tbl(i).Pricing_attribute='PRICING_ATTRIBUTE1' and
7264: p_Req_line_detail_Attr_Tbl(i).Pricing_Attr_Value_From = l_inventory_item_id
7265: Then
7266: -- Got a match
7267: adj_debug('Exiting oe_order_Adj_pvt.Match_Product_Ids',1);
7268: Return True;
7269: End If;
7270: End Loop;
7271: Return False;
7308: l_org_id Number:= OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
7309: E_CLOSED_PRG_LINE Exception;
7310: l_new_prg_created boolean := FALSE;
7311: Begin
7312: adj_debug('Entering oe_order_Adj_pvt.Process_Other_Item_Line',1);
7313: G_STMT_NO := 'Process_Other_Item_Line#10';
7314:
7315: If p_Price_Adjustment_Id <> FND_API.G_MISS_NUM And
7316: p_Price_Adjustment_Id is not null Then
7715: p_Line_Adj_Assoc_tbl(l_assoc_index).Operation := OE_Globals.G_OPR_CREATE;
7716:
7717: End If; -- Match_exists
7718:
7719: adj_debug('Exiting oe_order_Adj_pvt.Process_Other_Item_Line',1);
7720:
7721: End Process_Other_Item_Line;
7722:
7723: Procedure Shell_Sort(p_sorted_tbl in out Nocopy oe_order_adj_pvt.sorted_adjustment_tbl_type) Is
7719: adj_debug('Exiting oe_order_Adj_pvt.Process_Other_Item_Line',1);
7720:
7721: End Process_Other_Item_Line;
7722:
7723: Procedure Shell_Sort(p_sorted_tbl in out Nocopy oe_order_adj_pvt.sorted_adjustment_tbl_type) Is
7724: h PLS_INTEGER:=1;
7725: i PLS_INTEGER;
7726: j PLS_INTEGER;
7727: N PLS_INTEGER;
7725: i PLS_INTEGER;
7726: j PLS_INTEGER;
7727: N PLS_INTEGER;
7728:
7729: adj_rec oe_order_adj_pvt.Sorted_Adjustment_Rec_Type;
7730:
7731: Begin
7732: N := p_sorted_tbl.count;
7733:
7763:
7764: End;
7765:
7766: Procedure sort_on_pgs(
7767: p_Sorted_Tbl in out nocopy Oe_Order_Adj_Pvt.Sorted_Adjustment_Tbl_Type
7768: ,p_lo pls_integer
7769: ,p_hi pls_integer)
7770: is
7771: l_lo pls_integer := p_lo;
7769: ,p_hi pls_integer)
7770: is
7771: l_lo pls_integer := p_lo;
7772: l_hi pls_integer := p_hi;
7773: l_Sorted_Adjustment_Rec1 Oe_Order_Adj_Pvt.Sorted_Adjustment_Rec_Type;
7774: l_Sorted_Adjustment_Rec Oe_Order_Adj_Pvt.Sorted_Adjustment_Rec_Type;
7775: begin
7776: if p_lo >= p_hi Then
7777: Return;
7770: is
7771: l_lo pls_integer := p_lo;
7772: l_hi pls_integer := p_hi;
7773: l_Sorted_Adjustment_Rec1 Oe_Order_Adj_Pvt.Sorted_Adjustment_Rec_Type;
7774: l_Sorted_Adjustment_Rec Oe_Order_Adj_Pvt.Sorted_Adjustment_Rec_Type;
7775: begin
7776: if p_lo >= p_hi Then
7777: Return;
7778: Elsif p_lo = p_hi -1 then
8107:
8108: )
8109: Is
8110: Begin
8111: adj_debug('Entering oe_order_Adj_pvt.CAlculate_Adjusted_Price');
8112: If p_arithmetic_operator = 'AMT' Then
8113: x_Adjusted_Amount := p_operand;
8114: Elsif p_arithmetic_operator = '%' then
8115: --bug 2764291
8141: End IF;
8142: End If;
8143:
8144:
8145: adj_debug('Exiting oe_order_Adj_pvt.CAlculate_Adjusted_Price');
8146:
8147: end CAlculate_Adjusted_Price;
8148:
8149: Procedure Calculate_Price (
8171: l_sign Number;
8172: l_rounding_factor Number;
8173: l_gsa_violation_action Varchar2(30); --moac moving the initialization to the body
8174: l_GSA_Enabled_Flag Varchar2(30) := FND_PROFILE.VALUE('QP_VERIFY_GSA');
8175: l_Sorted_Adjustment_Tbl oe_order_Adj_pvt.Sorted_Adjustment_Tbl_Type;
8176: l_Sort_Index Pls_Integer;
8177: l_pricing_quantity Number;
8178: l_assoc_exist Boolean;
8179: l_adjusted_amt_changed Boolean;
8186: l_process Boolean; -- OPM 2547940
8187:
8188: Begin
8189:
8190: adj_debug('Entering oe_order_Adj_pvt.Calculate_Price');
8191:
8192: --moac
8193: l_gsa_violation_action := oe_sys_parameters.value('ONT_GSA_VIOLATION_ACTION',p_header_rec.org_id);
8194:
8791: End If; --calculate price flag in ('Y','P');
8792: I := p_Line_Tbl.Next(I);
8793: End Loop; -- Lines
8794:
8795: adj_debug('Exiting oe_order_Adj_pvt.Calculate_Price');
8796:
8797: End Calculate_Price;
8798:
8799: Function Get_unit_precision(p_header_id number)
9096: --serla end
9097: begin
9098:
9099: x_return_status := FND_API.G_RET_STS_SUCCESS;
9100: adj_debug('Entering oe_order_Adj_pvt.process_adjustments',1);
9101: G_STMT_NO := 'process_adjustments#10';
9102:
9103: i:= p_req_line_tbl.first;
9104: While I is not null Loop
9209: l_line_rec.unit_list_price:=NULL;
9210: l_line_rec.unit_selling_price_per_pqty :=NULL;
9211: l_line_rec.unit_list_price_per_pqty:=NULL;
9212: Exception When Others Then
9213: Oe_Debug_Pub.add('Oe_Order_Adj_Pvt:Failed to update price:'||SQLERRM);
9214: End;*/
9215: --End If;
9216:
9217: l_line_rec.unit_selling_price := NULL;
10096: and l_line_adj_tbl(i).list_line_type_code='PRG') THEN
10097:
10098: adj_debug('Need to delete/update free goods line');
10099: /* 1503357 */
10100: OE_ORDER_ADJ_PVT.change_prg_lines(
10101: p_price_adjustment_id => l_line_adj_tbl(i).price_adjustment_id,
10102: p_line_tbl => l_line_tbl,
10103: p_line_adj_tbl => l_line_adj_tbl,
10104: p_delete_prg_lines => l_delete_prg_lines);
10726: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
10727: END IF;
10728: End if;
10729:
10730: adj_debug('Exiting oe_order_Adj_pvt.process_adjustments',1);
10731:
10732:
10733: EXCEPTION
10734:
10752: WHEN OTHERS THEN
10753:
10754: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10755: --dbms_output.put_line('Error is '||sqlerrm);
10756: adj_debug('Error in oe_order_Adj_pvt.process_adjustments',1);
10757: adj_debug(' '||g_stmt_no||' '||sqlerrm,1);
10758:
10759: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10760: THEN
10759: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10760: THEN
10761: OE_MSG_PUB.Add_Exc_Msg
10762: ( G_PKG_NAME
10763: , 'oe_order_Adj_pvt.process_adjustments',
10764: g_stmt_no||' '||sqlerrm
10765: );
10766: END IF;
10767:
10968:
10969: --btea perf begin
10970: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
10971: G_DEBUG := TRUE;
10972: adj_debug('Entering oe_order_Adj_pvt.Price_line',1);
10973: adj_debug('Version:'||get_version);
10974: Else
10975: G_DEBUG := FALSE;
10976: End If;
11051: RETURN;
11052: END IF;
11053:
11054:
11055: adj_debug('Exiting oe_order_Adj_pvt.Price_line',1);
11056:
11057:
11058:
11059: Exception
11064: --Bug 7566697
11065: adj_debug('Setting prcing error flag for mass change');
11066: OE_MASS_CHANGE_PVT.G_PRICING_ERROR := 'Y';
11067:
11068: adj_debug('Exiting oe_order_Adj_pvt.Price_line',1);
11069: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11070:
11071: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11072:
11073: --Bug 7566697
11074: adj_debug('Setting prcing error flag for mass change');
11075: OE_MASS_CHANGE_PVT.G_PRICING_ERROR := 'Y';
11076:
11077: adj_debug('Exiting oe_order_Adj_pvt.Price_line',1);
11078: WHEN OTHERS THEN
11079:
11080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11081: adj_debug('Error in oe_order_Adj_pvt.Price_line',1);
11077: adj_debug('Exiting oe_order_Adj_pvt.Price_line',1);
11078: WHEN OTHERS THEN
11079:
11080: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11081: adj_debug('Error in oe_order_Adj_pvt.Price_line',1);
11082: adj_debug(sqlerrm,1);
11083:
11084: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11085: THEN
11093: --Bug 7566697
11094: adj_debug('Setting prcing error flag for mass change');
11095: OE_MASS_CHANGE_PVT.G_PRICING_ERROR := 'Y';
11096:
11097: adj_debug('Exiting oe_order_Adj_pvt.Price_line',1);
11098: --RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11099:
11100: End Price_line;
11101:
11155: l_x_Line_Payment_tbl OE_Order_PUB.Line_Payment_Tbl_Type;
11156: --serla end
11157: begin
11158:
11159: adj_debug('Entering oe_order_Adj_pvt.Price_adjustments',1);
11160:
11161: --btea perf begin
11162: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
11163: G_DEBUG := TRUE;
11473: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11474: RAISE FND_API.G_EXC_ERROR;
11475: END IF;
11476:
11477: adj_debug('Exiting oe_order_Adj_pvt.Price_adjustments',1);
11478:
11479:
11480: EXCEPTION
11481:
11492: WHEN OTHERS THEN
11493:
11494: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11495: --dbms_output.put_line('Error is '||sqlerrm);
11496: adj_debug('Error in oe_order_Adj_pvt.Price_adjustments',1);
11497: adj_debug(' '||g_stmt_no||' '||sqlerrm,1);
11498:
11499: End Price_Adjustments;
11500:
11574: l_has_prg_lines:='Y';
11575: End;
11576: oe_debug_pub.add('Lalit calling Price Line with l_has_prg_lines-' || l_has_prg_lines );
11577: IF l_has_prg_lines = 'Y' THEN
11578: oe_order_Adj_pvt.Price_line(
11579: X_Return_Status => l_Return_Status
11580: ,p_Request_Type_code=> 'ONT'
11581: ,p_Control_rec => l_Price_Control_Rec
11582: ,p_Write_To_Db => TRUE
11598: END IF;
11599: i := p_selected_records.next(i);
11600: End Loop;
11601: IF l_has_prg_lines IN ('N','Q') THEN
11602: oe_order_Adj_pvt.Price_line(
11603: X_Return_Status => l_Return_Status
11604: ,p_Request_Type_code=> 'ONT'
11605: ,p_Control_rec => l_Price_Control_Rec
11606: ,p_Write_To_Db => TRUE
11639: End;
11640: End If;
11641:
11642: IF l_has_prg_lines = 'Y' THEN
11643: oe_order_Adj_pvt.Price_line(
11644: X_Return_Status => l_Return_Status
11645: ,p_Request_Type_code=> 'ONT'
11646: ,p_Control_rec => l_Price_Control_Rec
11647: ,p_Write_To_Db => TRUE
11661: null;
11662: End;
11663: END IF;
11664:
11665: oe_order_Adj_pvt.Price_line(
11666: X_Return_Status => l_Return_Status
11667: ,p_Request_Type_code=> 'ONT'
11668: ,p_Control_rec => l_Price_Control_Rec
11669: ,p_Write_To_Db => TRUE
11694: l_prev_line_hdr_id := l_header_id;
11695: i := p_selected_records.next(i);
11696: End Loop;
11697: IF l_x_line_tbl.count > 0 THEN
11698: oe_order_Adj_pvt.Price_line(
11699: X_Return_Status => l_Return_Status
11700: ,p_Request_Type_code=> 'ONT'
11701: ,p_Control_rec => l_Price_Control_Rec
11702: ,p_Write_To_Db => TRUE
11751:
11752: l_Price_Control_Rec.calculate_flag := QP_PREQ_GRP.G_SEARCH_N_CALCULATE;
11753: l_Price_Control_Rec.Simulation_Flag := 'N';
11754:
11755: oe_order_Adj_pvt.Price_line(
11756: X_Return_Status => l_Return_Status
11757: ,p_header_id => l_header_id
11758: ,p_Request_Type_code=> 'ONT'
11759: ,p_Control_rec => l_Price_Control_Rec
11792:
11793: l_Price_Control_Rec.calculate_flag := QP_PREQ_GRP.G_SEARCH_N_CALCULATE;
11794: l_Price_Control_Rec.Simulation_Flag := 'N';
11795:
11796: oe_order_Adj_pvt.Price_line(
11797: X_Return_Status => l_Return_Status
11798: ,p_header_id => l_header_id
11799: ,p_Request_Type_code=> 'ONT'
11800: ,p_Control_rec => l_Price_Control_Rec
11830: END IF;
11831:
11832: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
11833:
11834: adj_debug('Exiting oe_order_Adj_pvt.Price_adjustments',1);
11835:
11836:
11837: EXCEPTION
11838:
11944: IF l_has_prg_lines = 'Y' THEN
11945: --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
11946: adj_debug('New price action, line by line because the order has prg');
11947:
11948: oe_order_Adj_pvt.Price_line(
11949: X_Return_Status => l_Return_Status
11950: ,p_Request_Type_code=> 'ONT'
11951: ,p_Control_rec => l_Price_Control_Rec
11952: ,p_Write_To_Db => TRUE
11972:
11973: End loop;
11974:
11975: IF l_has_prg_lines IN ('N','Q') THEN
11976: oe_order_Adj_pvt.Price_line(
11977: X_Return_Status => l_Return_Status
11978: ,p_Request_Type_code=> 'ONT'
11979: ,p_Control_rec => l_Price_Control_Rec
11980: ,p_Write_To_Db => TRUE
12027:
12028: l_Price_Control_Rec.calculate_flag := QP_PREQ_GRP.G_SEARCH_N_CALCULATE;
12029: l_Price_Control_Rec.Simulation_Flag := 'N';
12030:
12031: oe_order_Adj_pvt.Price_line(
12032: X_Return_Status => l_Return_Status
12033: ,p_header_id => l_header_id
12034: ,p_Request_Type_code=> 'ONT'
12035: ,p_Control_rec => l_Price_Control_Rec
12060: END IF;
12061:
12062: x_Return_Status := FND_API.G_RET_STS_SUCCESS;
12063:
12064: adj_debug('Exiting oe_order_Adj_pvt.Price_adjustments',1);
12065:
12066:
12067: EXCEPTION
12068:
12387:
12388: Exception
12389: When Others Then
12390: x_return_status := FND_API.G_RET_STS_ERROR;
12391: x_return_status_text := 'Oe_Order_Adj_Pvt.Get_Quote: '||l_stmt||': '||SQLERRM;
12392:
12393: End get_quote;
12394:
12395: /***************************************************************************************************
12400: ****************************************************************************************************/
12401: Procedure Create_Manual_Adjustments(p_line_id In Number)
12402: As
12403: l_return_stauts Varchar2(15);
12404: l_manual_adj_tbl Oe_Order_Adj_Pvt.Manual_Adj_Tbl_Type;
12405: l_line_adj_tbl Oe_Order_Pub.line_adj_tbl_type;
12406: l_dummy_tbl Oe_Order_Pub.line_adj_tbl_type;
12407: l_control_rec OE_GLOBALS.Control_Rec_Type;
12408: i PLS_INTEGER;
12482: i:= l_manual_adj_tbl.Next(i);
12483: End Loop;
12484:
12485: Exception When Others Then
12486: Oe_Debug_Pub.Add('Error occured in oe_order_adj_pvt.create_manual_adjustments:'||stmt||':'||SQLERRM);
12487: Raise;
12488: End Create_Manual_Adjustments;
12489:
12490:
12506: p_level in Varchar2 default 'LINE',
12507: p_pbh_mode in Varchar2 default 'CHILD',
12508: p_cross_order in Varchar2 Default 'N',
12509: p_line_level in Varchar2 Default 'N',
12510: x_manual_adj_tbl out Nocopy Oe_Order_Adj_Pvt.Manual_Adj_Tbl_Type,
12511: x_return_status out nocopy Varchar2,
12512:
12513: x_header_id out nocopy Number,
12514: p_freight_flag in boolean default false,
13357: oe_debug_pub.add('return_value '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER,3);
13358: oe_debug_pub.add(' Leaving GET_MANUAL_ADV_STATUS ',3);
13359: END GET_MANUAL_ADV_STATUS;
13360:
13361: end Oe_Order_Adj_Pvt;