[Home] [Help]
2061: oe_debug_pub.add(' Before calling pattr_util.insert_row');
2062:
2063: select OE_ORDER_PRICE_ATTRIBS_S.nextval
2064: into l_header_price_att_rec.order_price_attrib_id
2065: from dual;
2066:
2067: OE_Header_PAttr_Util.Insert_Row (l_Header_Price_Att_rec);
2068:
2069: END IF;
3198: If(l_Line_price_att_rec.order_price_attrib_id is NULL or
3199: l_Line_price_att_rec.order_price_attrib_id=FND_API.G_MISS_NUM) THEN
3200: select OE_ORDER_PRICE_ATTRIBS_S.nextval
3201: into l_Line_price_att_rec.order_price_attrib_id
3202: from dual;
3203: End If;
3204: OE_Line_Pattr_Util.Insert_Row (l_Line_price_att_rec);
3205:
3206: END IF;
3325: l_line_adj_att_tbl(i).Operation := OE_Globals.G_OPR_CREATE;
3326:
3327: Select OE_PRICE_ADJ_ATTRIBS_S.nextval
3328: Into l_line_adj_att_tbl(i).price_adj_attrib_id
3329: From dual;
3330:
3331: I:= p_Line_Adj_attribs_tbl.Next(I);
3332: End Loop;
3333:
3663: l_Line_Adj_Assoc_tbl(i).Operation := OE_Globals.G_OPR_CREATE;
3664:
3665: Select oe_price_adj_assocs_s.nextval
3666: Into l_line_adj_assoc_tbl(i).price_adj_assoc_id
3667: From dual;
3668:
3669: I:= p_line_adj_assoc_tbl.Next(I);
3670: End Loop;
3671:
4144: 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
4145:
4146: -- start OPM 2046190
4147: -- IF oe_line_util.Process_Characteristics -- INVCONV
4148: IF oe_line_util.dual_uom_control -- INVCONV
4149: (p_line_rec.inventory_item_id
4150: ,p_line_rec.ship_from_org_id
4151: ,l_item_rec) THEN
4152:
5678: Elsif l_order_status_rec.CHANGED_LINES_FLAG = 'Y' OR nvl(OE_LINE_ADJ_UTIL.G_SEND_ALL_LINES_FOR_DSP,'Y') = 'N' Then
5679: -------------------------------------------------------------------
5680: --Pricing says pass only changed lines, use query_line
5681: --------------------------------------------------------------------
5682: oe_debug_pub.add('Query individual line');
5683: g_pass_all_lines:='N';
5684: i := Oe_Line_Adj_Util.G_CHANGED_LINE_TBL.FIRST;
5685: While i is Not Null Loop
5686: Begin
5782:
5783:
5784: If l_line_tbl(line_Tbl_Index).agreement_id is not null Then
5785: BEGIN
5786: Select 'x' into l_dummy from dual
5787: where exists (select 'x' from oe_agreements_vl where
5788: agreement_id = l_line_tbl(line_Tbl_Index).agreement_id and
5789: ( trunc(nvl(l_line_tbl(line_Tbl_Index).PRICING_DATE,sysdate))
5790: between
5955:
5956: G_STMT_NO := 'calculate_adjustments#150';
5957: Begin
5958: l_header_id2:=nvl(p_header_id,l_line_tbl(line_tbl_index).header_id);
5959: Select 'x' into l_dummy from dual
5960: Where exists
5961: (select 'x' from
5962: oe_order_price_attribs oopa
5963: where
6068:
6069: BEGIN
6070:
6071: Select 'x' into l_dummy
6072: from dual where
6073: exists(select 'x' from oe_order_lines
6074: Where header_id = l_header_id
6075: and calculate_price_flag in ('Y','P')
6076: and item_type_code not in ('CONFIG', 'INCLUDED'));
6087:
6088: IF l_completely_frozen = FALSE THEN
6089:
6090: Select 'p' into l_dummy
6091: from dual where
6092: exists (select 'x' from oe_order_lines
6093: where header_id = l_header_id
6094: and calculate_price_flag in ('N', 'P')
6095: and cancelled_flag = 'N'
6139: l_header_id2 := p_header_id;
6140: END IF;
6141: -- End of 3502454
6142:
6143: Select 'x' into l_dummy from dual
6144: where exists(
6145: Select 'X' from oe_order_price_attribs oopa
6146: where oopa.header_id = l_header_id2 and oopa.line_id is null);
6147:
8209: i:= p_Line_Tbl.First;
8210: adj_debug('Honor Price flag :'||p_honor_price_flag,2);
8211: While i is not null Loop
8212: l_process := -- INVCONV oe_line_util.Process_Characteristics -- OPM 2547940
8213: oe_line_util.dual_uom_control -- INVCONV
8214: (p_line_tbl(i).inventory_item_id
8215: ,p_line_tbl(i).ship_from_org_id
8216: ,l_item_rec);
8217:
8634: END IF;
8635:
8636: -- OPM 2547940 start - if pricing by quantity2 then if line is shipped and has shipped qty2 != ordered qty2
8637: -- need to adjust the operand so that invoicing will show correct amount (ordered qty * USP (adjusted) )
8638: IF oe_line_util.dual_uom_control -- INVCONV
8639: -- Process_Characteristics invconv
8640: (p_line_tbl(i).inventory_item_id
8641: ,p_line_tbl(i).ship_from_org_id
8642: ,l_item_rec) THEN
8651: * (p_line_tbl(i).shipped_quantity2/p_line_tbl(i).ordered_quantity);
8652: oe_debug_pub.ADD('OPM NEW operand : '|| to_char(p_Line_Adj_Tbl(j).operand),5);
8653: END IF;
8654: END IF;
8655: END IF; --oe_line_util.dual_uom_control -- INVCONV
8656: -- OPM 2547940 end
8657:
8658:
8659: Else
8676:
8677: -- OPM 2547940 start - if pricing by quantity2 then if line is shipped and has shipped qty2 != ordered qty2
8678: -- need to adjust the adjusted_amount so that invoicing will show correct amount (ordered qty * USP (adjusted) )
8679:
8680: IF oe_line_util.dual_uom_control -- INVCONV PROCESS_CHAR
8681:
8682: (p_line_tbl(i).inventory_item_id
8683: ,p_line_tbl(i).ship_from_org_id
8684: ,l_item_rec) THEN
8691: 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
8692: * (p_line_tbl(i).shipped_quantity2/p_line_tbl(i).ordered_quantity);
8693: END IF;
8694: END IF;
8695: END IF; --oe_line_util.dual_uom_control -- INVCONV
8696: -- OPM 2547940 end
8697:
8698:
8699: If G_DEBUG Then
9356:
9357: or -- OPM 2547940 start
9358: -- pricing by quantity2 - this is for case when order line is split from shipping and new line gets generated
9359: -- and this line has to be re-priced for catchweight pricing for OPM if pricing in secondary quantity
9360: ( ( oe_line_util.dual_uom_control -- INVCONV
9361: (l_line_rec.inventory_item_id
9362: ,l_line_rec.ship_from_org_id
9363: ,l_item_rec) )
9364: and p_req_line_tbl(i).line_Type_code ='LINE'
9476: End If;-- Status_Code
9477:
9478: oe_debug_pub.add('Before Reset_fields');
9479: If l_invalid_line = 'Y' Then
9480: select oe_msg_request_id_s.nextval into l_request_id from dual;
9481: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
9482: Reset_Fields(l_line_rec);
9483: l_invalid_line := 'N';
9484: End If;
9934: FND_MESSAGE.SET_TOKEN('ERR_TEXT', p_req_line_detail_tbl(j).LIMIT_TEXT);
9935: OE_MSG_PUB.Add;
9936: IF (OE_GLOBALS.G_UI_FLAG ) THEN
9937: IF (G_REQUEST_ID IS NULL) THEN
9938: select oe_msg_request_id_s.nextval into g_request_id from dual;
9939: END IF;
9940: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, G_REQUEST_ID,'U');
9941: OE_MSG_PUB.DELETE_MSG(OE_MSG_PUB.COUNT_MSG);
9942: END IF;
10159:
10160: -- OPM 2547940 start - if pricing by quantity2 then if line is shipped and has shipped qty2 != ordered qty2
10161: -- need to adjust the unit selling price so that invoicing will show correct amount (ordered qty * USP (adjusted) )
10162:
10163: IF oe_line_util.dual_uom_control -- INVCONV
10164: (l_line_tbl(i).inventory_item_id
10165: ,l_line_tbl(i).ship_from_org_id
10166: ,l_item_rec) THEN
10167: IF l_item_rec.ont_pricing_qty_source = 'S' THEN -- price by quantity 2 -- INVCONV
10174: * (l_line_tbl(i).shipped_quantity2/l_line_tbl(i).ordered_quantity);
10175: oe_debug_pub.ADD('OPM NEW USP : '|| to_char(l_line_tbl(i).unit_selling_price),5);
10176: END IF;
10177: END IF;
10178: END IF; --oe_line_util.dual_uom_control -- INVCONV
10179: -- OPM 2547940 end
10180:
10181:
10182: -- uom end
10883: Then
10884: -- check whether there is an AMS modifier defined
10885: adj_debug('in ams mod check ');
10886: BEGIN
10887: SELECT 1 into l_tmp_no from dual where exists (
10888: select 1 from qp_list_headers_b qh
10889: , oe_order_headers_all oh
10890: where qh.currency_code = oh.transactional_curr_code
10891: and oh.header_id = l_header_id
10959: trunc(nvl(end_date_active, sysdate));
10960:
10961: l_multiple_events VARCHAR2(1);
10962: cursor unfrozen_lines is
10963: select 'x' from dual where
10964: exists (select 'x' from oe_order_lines where header_id = p_header_id
10965: and calculate_price_flag in ('Y','P'));
10966: begin
10967: x_return_status := FND_API.G_RET_STS_SUCCESS;
11370:
11371: -- OPM 2547940 start - if pricing by quantity2 then if line is shipped and has shipped qty2 != ordered qty2
11372: -- need to adjust the adjusted_amount so that invoicing will show correct amount (ordered qty * USP (adjusted) )
11373:
11374: IF oe_line_util.dual_uom_control -- invconv
11375: (l_line_tbl(i).inventory_item_id
11376: ,l_line_tbl(i).ship_from_org_id
11377: ,l_item_rec) THEN
11378: IF l_item_rec.ont_pricing_qty_source = 'S' THEN -- price by quantity 2 -- INVCONV
11387: * (l_line_tbl(i).shipped_quantity2/l_line_tbl(i).ordered_quantity);
11388:
11389: END IF;
11390: END IF;
11391: END IF; --oe_line_util.dual_uom_control -- INVCONV
11392: -- OPM 2547940 end
11393:
11394: oe_debug_pub.add('unit price'||l_line_tbl(i).unit_list_price||'+'||l_line_tbl(i).unit_selling_price,1);
11395: 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);
12439: --If it is there don't insert a new one
12440: Oe_debug_Pub.add(' Override_flag:'||l_manual_adj_tbl(i).override_flag);
12441: Begin
12442: Select 'Y' Into l_found
12443: From Dual
12444: Where exists (Select 'X' From Oe_Price_Adjustments
12445: Where line_id = p_line_id
12446: and list_line_id = l_manual_adj_tbl(i).list_line_id);
12447: l_found:='Y';
12468: l_line_adj_tbl(1).automatic_flag := 'N';
12469: l_line_adj_tbl(1).operation := OE_GLOBALS.G_OPR_CREATE;
12470: Select Oe_Price_Adjustments_S.Nextval
12471: Into l_line_adj_tbl(1).price_adjustment_id
12472: From dual;
12473: stmt:='20';
12474: Line_Adjs(p_validation_level => FND_API.G_VALID_LEVEL_NONE,
12475: p_control_rec => l_control_rec,
12476: p_x_line_adj_tbl => l_line_adj_tbl,
12784: If l_ask_for_profile = 'Y' Then
12785: Begin
12786: l_header_id2:=nvl(p_header_id,l_line_tbl(line_tbl_index).header_id);
12787:
12788: Select 'x' into l_dummy from dual
12789: Where exists
12790: (select 'x' from
12791: oe_order_price_attribs oopa
12792: where
12888: ELSE
12889: l_header_id2 := p_header_id;
12890: END IF;
12891: -- End of 3502454
12892: Select 'x' into l_dummy from dual
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: