[Home] [Help]
141:
142: If l_qp_adjusted_unit_price is not null OR
143: l_qp_unit_price is not null Then
144: If nvl(p_line_rec.ordered_quantity,0) <> 0 Then
145: If OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
146: l_unit_price := Null;
147: l_selling_price := Null;
148: l_qp_unit_price := Null;
149: l_qp_adjusted_unit_price := Null;
171: -- BUG 2746595 => if a valid price list is not found when currency is updated,
172: -- the price list and price is nulled out in this procedure. This should log
173: -- a request to update the total released amount on the blanket.
174: -- BLANKETS: log request to update blanket amounts if price changes
175: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509'
176: THEN
177:
178: FOR update_line IN c_line(p_line_rec.line_id) LOOP
179:
4493: If OE_Order_PUB.G_Line.agreement_id is not null and
4494: OE_Order_PUB.G_Line.agreement_id <> fnd_api.g_miss_num then
4495: px_Req_Qual_Tbl(l_qual_index).Validated_Flag := 'Y';
4496: -- BLANKETS: Start Code Merge
4497: Elsif OE_Code_Control.Code_Release_Level >= '110509' and
4498: OE_Order_PUB.G_Line.blanket_number is not null and
4499: OE_Order_PUB.G_Line.blanket_number <> fnd_api.g_miss_num and
4500: OE_Order_PUB.G_Line.blanket_line_number is not null and
4501: OE_Order_PUB.G_Line.blanket_line_number <> fnd_api.g_miss_num
11126: IF (G_11IG_PERFORMANCE = 'Y' AND QP_UTIL_PUB.Basic_Pricing_Setup = 'Y'
11127: AND Not Bypass_Performance_Path( p_header_id => p_header_id
11128: , p_line_id => p_line_id
11129: , px_line_Tbl => x_line_tbl))
11130: OR OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
11131: l_price_control_rec.p_request_type_code:=p_request_type_code;
11132: l_Price_control_rec.p_write_to_db:=p_write_to_db;
11133: l_price_control_rec.p_honor_price_flag:=p_honor_price_flag;
11134: l_price_control_rec.p_multiple_events:=l_multiple_events;
11290: OE_GLOBALS.G_GMI_INSTALLED = 'N' AND -- OPM 2547940
11291: G_11IG_PERFORMANCE = 'Y' AND
11292: QP_UTIL_PUB.Basic_Pricing_Setup = 'Y' AND
11293: nvl(p_request_rec.param1,'XX') <> 'UI') OR
11294: OE_CODE_CONTROL.Get_Code_Release_Level >= '110509'
11295: THEN
11296: l_price_control_rec.p_request_type_code:=p_request_type_code;
11297: l_price_control_rec.p_calculate_flag := QP_PREQ_GRP.G_CALCULATE_ONLY;
11298: IF (p_line_id IS NOT NULL and nvl(p_request_rec.param1,'XX') = 'UI') THEN
12746: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12747: --l_profile_value := Fnd_Profile.Value('QP_MANUAL_LINEGROUP');
12748: oe_debug_pub.add('Entering Get Manual Adj');
12749: --bucket man
12750: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12751: oe_order_price_pvt.reset_all_tbls;
12752: qp_price_request_context.set_request_id;
12753: END IF;
12754: -- bucket man
12868:
12869: --Populate global structure since attribute mapping only read global structure
12870: OE_Order_PUB.G_LINE := l_Line_Tbl(line_Tbl_Index);
12871: Begin
12872: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12873: --5598523
12874: IF l_line_tbl(line_tbl_index).line_id=p_line_id THEN
12875: l_check_line_flag := 'N';
12876: ELSE
12907: -- Pass 'N' as the value of the p_honor_price_flag
12908: -- so that manual modifiers can be applied to RMA
12909: -- which is a copy of an order
12910: -- bucket man
12911: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12912: IF l_pass_line='Y' OR l_check_line_flag = 'N' THEN --5598523
12913: --l_line_index := l_line_index + 1; --commented for BUG#8945171. we are now handling this above build context for lines.
12914: oe_order_price_pvt.copy_Line_to_request( p_Line_rec
12915: => l_Line_Tbl(line_Tbl_Index)
12946: l_req_line_tbl(l_req_line_tbl.count).price_flag := 'Y';
12947: End If;
12948: */
12949: -- bucket man
12950: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110510' THEN
12951: copy_attribs_to_Req( p_line_index => l_req_line_tbl.count
12952: ,p_pricing_contexts_Tbl => l_pricing_contexts_Tbl
12953: ,p_qualifier_contexts_Tbl => l_qualifier_Contexts_Tbl
12954: ,px_Req_line_attr_tbl => l_Req_line_attr_tbl
12967: nvl(oopa.line_id,l_Line_Tbl(line_Tbl_Index).line_id) = l_Line_Tbl(line_Tbl_Index).line_id
12968: and oopa.header_id = l_header_id2);
12969:
12970: -- bucket man
12971: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12972: IF l_pass_line='Y' THEN --5598523
12973: oe_order_price_pvt.Append_asked_for(p_header_id => l_header_id2,
12974:
12975: p_line_id => l_Line_Tbl(line_Tbl_Index).line_id,
13000: G_STMT_NO := 'Get_manual_adjustment#3';
13001:
13002: Begin
13003: -- bucket man
13004: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
13005: QP_Attr_Mapping_PUB.Build_Contexts(
13006: p_request_type_code => 'ONT',
13007: p_pricing_type_code => 'H',
13008: p_line_index=> l_line_index + 1 --oe_order_pub.g_hdr.header_id
13024:
13025: End;
13026:
13027: -- bucket man
13028: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
13029: oe_order_price_pvt.copy_Header_to_request(
13030: p_header_rec => OE_Order_PUB.g_hdr
13031: ,px_req_line_tbl => l_req_line_tbl
13032: ,p_Request_Type_Code => 'ONT'
13042: );
13043: END IF;
13044:
13045: G_STMT_NO := 'Get_manual_adjustment#90';
13046: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110510' THEN
13047: copy_attribs_to_Req(
13048: p_line_index => l_req_line_tbl.count
13049: ,p_pricing_contexts_Tbl => l_pricing_contexts_Tbl
13050: ,p_qualifier_contexts_Tbl => l_qualifier_Contexts_Tbl
13067: where exists(
13068: Select 'X' from oe_order_price_attribs oopa
13069: where oopa.header_id = l_header_id2 and oopa.line_id is null);
13070:
13071: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
13072: oe_order_price_pvt.Append_asked_for(
13073: p_header_id => l_header_id2
13074: , p_line_id => NULL
13075: ,p_line_index => l_line_index
13091: p_level = 'ORDER' Then
13092: l_req_line_tbl(l_req_line_tbl.count).price_flag := 'Y';
13093: End If;
13094:
13095: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
13096: IF l_line_index > 0 THEN
13097: If l_debug_level > 0 Then
13098: oe_debug_pub.add('before Populate_Temp_Table');
13099: End If;
13112: else
13113: l_control_rec.GET_FREIGHT_FLAG := 'N';
13114: end if;
13115:
13116: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
13117: QP_PREQ_PUB.PRICE_REQUEST
13118: (p_control_rec => l_control_rec
13119: ,x_return_status =>l_return_status
13120: ,x_return_status_Text =>l_return_status_Text
13146: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
13147: RAISE FND_API.G_EXC_ERROR;
13148: END IF;
13149: g_stmt_no :='Get Manual Adj#5';
13150: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
13151: i := 1;
13152: g_stmt_no :='Get Manual Adj#5.5';
13153: for k In man_adj Loop
13154: If k.automatic_flag = 'N' Then
13289:
13290: if (p_line_level = 'Y') then
13291: j:=x_manual_adj_tbl.first;
13292: while j is NOT NULL Loop
13293: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
13294: if (x_manual_adj_tbl(j).modifier_level_code = 'ORDER' or
13295: (x_manual_adj_tbl(j).price_break_type_code = 'RANGE' --bucket man
13296: and p_pbh_mode <> 'PARENT'
13297: )