[Home] [Help]
140:
141: If l_qp_adjusted_unit_price is not null OR
142: l_qp_unit_price is not null Then
143: If nvl(p_line_rec.ordered_quantity,0) <> 0 Then
144: If OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
145: l_unit_price := Null;
146: l_selling_price := Null;
147: l_qp_unit_price := Null;
148: l_qp_adjusted_unit_price := Null;
170: -- BUG 2746595 => if a valid price list is not found when currency is updated,
171: -- the price list and price is nulled out in this procedure. This should log
172: -- a request to update the total released amount on the blanket.
173: -- BLANKETS: log request to update blanket amounts if price changes
174: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509'
175: THEN
176:
177: FOR update_line IN c_line(p_line_rec.line_id) LOOP
178:
4410: If OE_Order_PUB.G_Line.agreement_id is not null and
4411: OE_Order_PUB.G_Line.agreement_id <> fnd_api.g_miss_num then
4412: px_Req_Qual_Tbl(l_qual_index).Validated_Flag := 'Y';
4413: -- BLANKETS: Start Code Merge
4414: Elsif OE_Code_Control.Code_Release_Level >= '110509' and
4415: OE_Order_PUB.G_Line.blanket_number is not null and
4416: OE_Order_PUB.G_Line.blanket_number <> fnd_api.g_miss_num and
4417: OE_Order_PUB.G_Line.blanket_line_number is not null and
4418: OE_Order_PUB.G_Line.blanket_line_number <> fnd_api.g_miss_num
11018: IF (G_11IG_PERFORMANCE = 'Y' AND QP_UTIL_PUB.Basic_Pricing_Setup = 'Y'
11019: AND Not Bypass_Performance_Path( p_header_id => p_header_id
11020: , p_line_id => p_line_id
11021: , px_line_Tbl => x_line_tbl))
11022: OR OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
11023: l_price_control_rec.p_request_type_code:=p_request_type_code;
11024: l_Price_control_rec.p_write_to_db:=p_write_to_db;
11025: l_price_control_rec.p_honor_price_flag:=p_honor_price_flag;
11026: l_price_control_rec.p_multiple_events:=l_multiple_events;
11182: OE_GLOBALS.G_GMI_INSTALLED = 'N' AND -- OPM 2547940
11183: G_11IG_PERFORMANCE = 'Y' AND
11184: QP_UTIL_PUB.Basic_Pricing_Setup = 'Y' AND
11185: nvl(p_request_rec.param1,'XX') <> 'UI') OR
11186: OE_CODE_CONTROL.Get_Code_Release_Level >= '110509'
11187: THEN
11188: l_price_control_rec.p_request_type_code:=p_request_type_code;
11189: l_price_control_rec.p_calculate_flag := QP_PREQ_GRP.G_CALCULATE_ONLY;
11190: IF (p_line_id IS NOT NULL and nvl(p_request_rec.param1,'XX') = 'UI') THEN
12591: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12592: --l_profile_value := Fnd_Profile.Value('QP_MANUAL_LINEGROUP');
12593: oe_debug_pub.add('Entering Get Manual Adj');
12594: --bucket man
12595: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12596: oe_order_price_pvt.reset_all_tbls;
12597: qp_price_request_context.set_request_id;
12598: END IF;
12599: -- bucket man
12704:
12705: --Populate global structure since attribute mapping only read global structure
12706: OE_Order_PUB.G_LINE := l_Line_Tbl(line_Tbl_Index);
12707: Begin
12708: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12709: --5598523
12710: IF l_line_tbl(line_tbl_index).line_id=p_line_id THEN
12711: l_check_line_flag := 'N';
12712: ELSE
12736: -- Pass 'N' as the value of the p_honor_price_flag
12737: -- so that manual modifiers can be applied to RMA
12738: -- which is a copy of an order
12739: -- bucket man
12740: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12741: IF l_pass_line='Y' OR l_check_line_flag = 'N' THEN --5598523
12742: l_line_index := l_line_index + 1;
12743: oe_order_price_pvt.copy_Line_to_request( p_Line_rec
12744: => l_Line_Tbl(line_Tbl_Index)
12772: l_req_line_tbl(l_req_line_tbl.count).price_flag := 'Y';
12773: End If;
12774: */
12775: -- bucket man
12776: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110510' THEN
12777: copy_attribs_to_Req( p_line_index => l_req_line_tbl.count
12778: ,p_pricing_contexts_Tbl => l_pricing_contexts_Tbl
12779: ,p_qualifier_contexts_Tbl => l_qualifier_Contexts_Tbl
12780: ,px_Req_line_attr_tbl => l_Req_line_attr_tbl
12793: nvl(oopa.line_id,l_Line_Tbl(line_Tbl_Index).line_id) = l_Line_Tbl(line_Tbl_Index).line_id
12794: and oopa.header_id = l_header_id2);
12795:
12796: -- bucket man
12797: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12798: IF l_pass_line='Y' THEN --5598523
12799: oe_order_price_pvt.Append_asked_for(p_header_id => l_header_id2,
12800:
12801: p_line_id => l_Line_Tbl(line_Tbl_Index).line_id,
12826: G_STMT_NO := 'Get_manual_adjustment#3';
12827:
12828: Begin
12829: -- bucket man
12830: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12831: QP_Attr_Mapping_PUB.Build_Contexts(
12832: p_request_type_code => 'ONT',
12833: p_pricing_type_code => 'H',
12834: p_line_index=> l_line_index + 1 --oe_order_pub.g_hdr.header_id
12850:
12851: End;
12852:
12853: -- bucket man
12854: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12855: oe_order_price_pvt.copy_Header_to_request(
12856: p_header_rec => OE_Order_PUB.g_hdr
12857: ,px_req_line_tbl => l_req_line_tbl
12858: ,p_Request_Type_Code => 'ONT'
12868: );
12869: END IF;
12870:
12871: G_STMT_NO := 'Get_manual_adjustment#90';
12872: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110510' THEN
12873: copy_attribs_to_Req(
12874: p_line_index => l_req_line_tbl.count
12875: ,p_pricing_contexts_Tbl => l_pricing_contexts_Tbl
12876: ,p_qualifier_contexts_Tbl => l_qualifier_Contexts_Tbl
12893: where exists(
12894: Select 'X' from oe_order_price_attribs oopa
12895: where oopa.header_id = l_header_id2 and oopa.line_id is null);
12896:
12897: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12898: oe_order_price_pvt.Append_asked_for(
12899: p_header_id => l_header_id2
12900: , p_line_id => NULL
12901: ,p_line_index => l_line_index
12917: p_level = 'ORDER' Then
12918: l_req_line_tbl(l_req_line_tbl.count).price_flag := 'Y';
12919: End If;
12920:
12921: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12922: IF l_line_index > 0 THEN
12923: If l_debug_level > 0 Then
12924: oe_debug_pub.add('before Populate_Temp_Table');
12925: End If;
12938: else
12939: l_control_rec.GET_FREIGHT_FLAG := 'N';
12940: end if;
12941:
12942: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12943: QP_PREQ_PUB.PRICE_REQUEST
12944: (p_control_rec => l_control_rec
12945: ,x_return_status =>l_return_status
12946: ,x_return_status_Text =>l_return_status_Text
12972: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12973: RAISE FND_API.G_EXC_ERROR;
12974: END IF;
12975: g_stmt_no :='Get Manual Adj#5';
12976: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12977: i := 1;
12978: g_stmt_no :='Get Manual Adj#5.5';
12979: for k In man_adj Loop
12980: If k.automatic_flag = 'N' Then
13115:
13116: if (p_line_level = 'Y') then
13117: j:=x_manual_adj_tbl.first;
13118: while j is NOT NULL Loop
13119: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
13120: if (x_manual_adj_tbl(j).modifier_level_code = 'ORDER' or
13121: (x_manual_adj_tbl(j).price_break_type_code = 'RANGE' --bucket man
13122: and p_pbh_mode <> 'PARENT'
13123: )