[Home] [Help]
2144: oe_debug_pub.add(' Before calling pattr_util.insert_row');
2145:
2146: select OE_ORDER_PRICE_ATTRIBS_S.nextval
2147: into l_header_price_att_rec.order_price_attrib_id
2148: from dual;
2149:
2150: OE_Header_PAttr_Util.Insert_Row (l_Header_Price_Att_rec);
2151:
2152: END IF;
3281: If(l_Line_price_att_rec.order_price_attrib_id is NULL or
3282: l_Line_price_att_rec.order_price_attrib_id=FND_API.G_MISS_NUM) THEN
3283: select OE_ORDER_PRICE_ATTRIBS_S.nextval
3284: into l_Line_price_att_rec.order_price_attrib_id
3285: from dual;
3286: End If;
3287: OE_Line_Pattr_Util.Insert_Row (l_Line_price_att_rec);
3288:
3289: END IF;
3408: l_line_adj_att_tbl(i).Operation := OE_Globals.G_OPR_CREATE;
3409:
3410: Select OE_PRICE_ADJ_ATTRIBS_S.nextval
3411: Into l_line_adj_att_tbl(i).price_adj_attrib_id
3412: From dual;
3413:
3414: I:= p_Line_Adj_attribs_tbl.Next(I);
3415: End Loop;
3416:
3746: l_Line_Adj_Assoc_tbl(i).Operation := OE_Globals.G_OPR_CREATE;
3747:
3748: Select oe_price_adj_assocs_s.nextval
3749: Into l_line_adj_assoc_tbl(i).price_adj_assoc_id
3750: From dual;
3751:
3752: I:= p_line_adj_assoc_tbl.Next(I);
3753: End Loop;
3754:
4227: px_req_line_tbl(l_line_index).PRICED_QUANTITY := p_Line_rec.pricing_quantity; -- OPM 2547940 moved this up to here from below next block
4228:
4229: -- start OPM 2046190
4230: -- IF oe_line_util.Process_Characteristics -- INVCONV
4231: IF oe_line_util.dual_uom_control -- INVCONV
4232: (p_line_rec.inventory_item_id
4233: ,p_line_rec.ship_from_org_id
4234: ,l_item_rec) THEN
4235:
5769: Elsif l_order_status_rec.CHANGED_LINES_FLAG = 'Y' OR nvl(OE_LINE_ADJ_UTIL.G_SEND_ALL_LINES_FOR_DSP,'Y') = 'N' Then
5770: -------------------------------------------------------------------
5771: --Pricing says pass only changed lines, use query_line
5772: --------------------------------------------------------------------
5773: oe_debug_pub.add('Query individual line');
5774: g_pass_all_lines:='N';
5775: i := Oe_Line_Adj_Util.G_CHANGED_LINE_TBL.FIRST;
5776: While i is Not Null Loop
5777: Begin
5873:
5874:
5875: If l_line_tbl(line_Tbl_Index).agreement_id is not null Then
5876: BEGIN
5877: Select 'x' into l_dummy from dual
5878: where exists (select 'x' from oe_agreements_vl where
5879: agreement_id = l_line_tbl(line_Tbl_Index).agreement_id and
5880: ( trunc(nvl(l_line_tbl(line_Tbl_Index).PRICING_DATE,sysdate))
5881: between
6046:
6047: G_STMT_NO := 'calculate_adjustments#150';
6048: Begin
6049: l_header_id2:=nvl(p_header_id,l_line_tbl(line_tbl_index).header_id);
6050: Select 'x' into l_dummy from dual
6051: Where exists
6052: (select 'x' from
6053: oe_order_price_attribs oopa
6054: where
6159:
6160: BEGIN
6161:
6162: Select 'x' into l_dummy
6163: from dual where
6164: exists(select 'x' from oe_order_lines
6165: Where header_id = l_header_id
6166: and calculate_price_flag in ('Y','P')
6167: and item_type_code not in ('CONFIG', 'INCLUDED'));
6178:
6179: IF l_completely_frozen = FALSE THEN
6180:
6181: Select 'p' into l_dummy
6182: from dual where
6183: exists (select 'x' from oe_order_lines
6184: where header_id = l_header_id
6185: and calculate_price_flag in ('N', 'P')
6186: and cancelled_flag = 'N'
6230: l_header_id2 := p_header_id;
6231: END IF;
6232: -- End of 3502454
6233:
6234: Select 'x' into l_dummy from dual
6235: where exists(
6236: Select 'X' from oe_order_price_attribs oopa
6237: where oopa.header_id = l_header_id2 and oopa.line_id is null);
6238:
8301: i:= p_Line_Tbl.First;
8302: adj_debug('Honor Price flag :'||p_honor_price_flag,2);
8303: While i is not null Loop
8304: l_process := -- INVCONV oe_line_util.Process_Characteristics -- OPM 2547940
8305: oe_line_util.dual_uom_control -- INVCONV
8306: (p_line_tbl(i).inventory_item_id
8307: ,p_line_tbl(i).ship_from_org_id
8308: ,l_item_rec);
8309:
8726: END IF;
8727:
8728: -- OPM 2547940 start - if pricing by quantity2 then if line is shipped and has shipped qty2 != ordered qty2
8729: -- need to adjust the operand so that invoicing will show correct amount (ordered qty * USP (adjusted) )
8730: IF oe_line_util.dual_uom_control -- INVCONV
8731: -- Process_Characteristics invconv
8732: (p_line_tbl(i).inventory_item_id
8733: ,p_line_tbl(i).ship_from_org_id
8734: ,l_item_rec) THEN
8743: * (p_line_tbl(i).shipped_quantity2/p_line_tbl(i).ordered_quantity);
8744: oe_debug_pub.ADD('OPM NEW operand : '|| to_char(p_Line_Adj_Tbl(j).operand),5);
8745: END IF;
8746: END IF;
8747: END IF; --oe_line_util.dual_uom_control -- INVCONV
8748: -- OPM 2547940 end
8749:
8750:
8751: Else
8768:
8769: -- OPM 2547940 start - if pricing by quantity2 then if line is shipped and has shipped qty2 != ordered qty2
8770: -- need to adjust the adjusted_amount so that invoicing will show correct amount (ordered qty * USP (adjusted) )
8771:
8772: IF oe_line_util.dual_uom_control -- INVCONV PROCESS_CHAR
8773:
8774: (p_line_tbl(i).inventory_item_id
8775: ,p_line_tbl(i).ship_from_org_id
8776: ,l_item_rec) THEN
8783: p_Line_Adj_Tbl(j).adjusted_amount := (p_Line_Adj_tbl(j).adjusted_amount_per_pqty* p_line_tbl(i).pricing_quantity )/p_line_tbl(i).ordered_quantity2
8784: * (p_line_tbl(i).shipped_quantity2/p_line_tbl(i).ordered_quantity);
8785: END IF;
8786: END IF;
8787: END IF; --oe_line_util.dual_uom_control -- INVCONV
8788: -- OPM 2547940 end
8789:
8790:
8791: If G_DEBUG Then
9447:
9448: or -- OPM 2547940 start
9449: -- pricing by quantity2 - this is for case when order line is split from shipping and new line gets generated
9450: -- and this line has to be re-priced for catchweight pricing for OPM if pricing in secondary quantity
9451: ( ( oe_line_util.dual_uom_control -- INVCONV
9452: (l_line_rec.inventory_item_id
9453: ,l_line_rec.ship_from_org_id
9454: ,l_item_rec) )
9455: and p_req_line_tbl(i).line_Type_code ='LINE'
9567: End If;-- Status_Code
9568:
9569: oe_debug_pub.add('Before Reset_fields');
9570: If l_invalid_line = 'Y' Then
9571: select oe_msg_request_id_s.nextval into l_request_id from dual;
9572: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
9573: Reset_Fields(l_line_rec);
9574: l_invalid_line := 'N';
9575: End If;
10025: FND_MESSAGE.SET_TOKEN('ERR_TEXT', p_req_line_detail_tbl(j).LIMIT_TEXT);
10026: OE_MSG_PUB.Add;
10027: IF (OE_GLOBALS.G_UI_FLAG ) THEN
10028: IF (G_REQUEST_ID IS NULL) THEN
10029: select oe_msg_request_id_s.nextval into g_request_id from dual;
10030: END IF;
10031: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, G_REQUEST_ID,'U');
10032: OE_MSG_PUB.DELETE_MSG(OE_MSG_PUB.COUNT_MSG);
10033: END IF;
10250:
10251: -- OPM 2547940 start - if pricing by quantity2 then if line is shipped and has shipped qty2 != ordered qty2
10252: -- need to adjust the unit selling price so that invoicing will show correct amount (ordered qty * USP (adjusted) )
10253:
10254: IF oe_line_util.dual_uom_control -- INVCONV
10255: (l_line_tbl(i).inventory_item_id
10256: ,l_line_tbl(i).ship_from_org_id
10257: ,l_item_rec) THEN
10258: IF l_item_rec.ont_pricing_qty_source = 'S' THEN -- price by quantity 2 -- INVCONV
10265: * (l_line_tbl(i).shipped_quantity2/l_line_tbl(i).ordered_quantity);
10266: oe_debug_pub.ADD('OPM NEW USP : '|| to_char(l_line_tbl(i).unit_selling_price),5);
10267: END IF;
10268: END IF;
10269: END IF; --oe_line_util.dual_uom_control -- INVCONV
10270: -- OPM 2547940 end
10271:
10272:
10273: -- uom end
10991: Then
10992: -- check whether there is an AMS modifier defined
10993: adj_debug('in ams mod check ');
10994: BEGIN
10995: SELECT 1 into l_tmp_no from dual where exists (
10996: select 1 from qp_list_headers_b qh
10997: , oe_order_headers_all oh
10998: where qh.currency_code = oh.transactional_curr_code
10999: and oh.header_id = l_header_id
11067: trunc(nvl(end_date_active, sysdate));
11068:
11069: l_multiple_events VARCHAR2(1);
11070: cursor unfrozen_lines is
11071: select 'x' from dual where
11072: exists (select 'x' from oe_order_lines where header_id = p_header_id
11073: and calculate_price_flag in ('Y','P'));
11074: begin
11075: x_return_status := FND_API.G_RET_STS_SUCCESS;
11478:
11479: -- OPM 2547940 start - if pricing by quantity2 then if line is shipped and has shipped qty2 != ordered qty2
11480: -- need to adjust the adjusted_amount so that invoicing will show correct amount (ordered qty * USP (adjusted) )
11481:
11482: IF oe_line_util.dual_uom_control -- invconv
11483: (l_line_tbl(i).inventory_item_id
11484: ,l_line_tbl(i).ship_from_org_id
11485: ,l_item_rec) THEN
11486: IF l_item_rec.ont_pricing_qty_source = 'S' THEN -- price by quantity 2 -- INVCONV
11495: * (l_line_tbl(i).shipped_quantity2/l_line_tbl(i).ordered_quantity);
11496:
11497: END IF;
11498: END IF;
11499: END IF; --oe_line_util.dual_uom_control -- INVCONV
11500: -- OPM 2547940 end
11501:
11502: oe_debug_pub.add('unit price'||l_line_tbl(i).unit_list_price||'+'||l_line_tbl(i).unit_selling_price,1);
11503: oe_debug_pub.add('unit price per pqty'||l_line_tbl(i).unit_list_price_per_pqty||'+'||l_line_tbl(i).unit_selling_price_per_pqty,1);
12594: --If it is there don't insert a new one
12595: Oe_debug_Pub.add(' Override_flag:'||l_manual_adj_tbl(i).override_flag);
12596: Begin
12597: Select 'Y' Into l_found
12598: From Dual
12599: Where exists (Select 'X' From Oe_Price_Adjustments
12600: Where line_id = p_line_id
12601: and list_line_id = l_manual_adj_tbl(i).list_line_id);
12602: l_found:='Y';
12623: l_line_adj_tbl(1).automatic_flag := 'N';
12624: l_line_adj_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
12625: Select Oe_Price_Adjustments_S.Nextval
12626: Into l_line_adj_tbl(1).price_adjustment_id
12627: From dual;
12628: stmt:='20';
12629: Line_Adjs(p_validation_level => FND_API.G_VALID_LEVEL_NONE,
12630: p_control_rec => l_control_rec,
12631: p_x_line_adj_tbl => l_line_adj_tbl,
12958: If l_ask_for_profile = 'Y' Then
12959: Begin
12960: l_header_id2:=nvl(p_header_id,l_line_tbl(line_tbl_index).header_id);
12961:
12962: Select 'x' into l_dummy from dual
12963: Where exists
12964: (select 'x' from
12965: oe_order_price_attribs oopa
12966: where
13062: ELSE
13063: l_header_id2 := p_header_id;
13064: END IF;
13065: -- End of 3502454
13066: Select 'x' into l_dummy from dual
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: