5380: IF l_debug_level > 0 THEN
5381: oe_debug_pub.add('l_fulfilled_qty:'|| l_fulfilled_qty);
5382: END IF;
5383:
5384: IF oe_line_util.dual_uom_control -- INVCONV Process_Characteristics
5385: (p_line_rec.inventory_item_id
5386: ,p_line_rec.ship_from_org_id
5387: ,l_item_rec) THEN
5388:
5389:
5390: -- IF l_item_rec.ont_pricing_qty_source = 1 THEN -- INVCONV price by quantity 2
5391: IF l_item_rec.ont_pricing_qty_source = 'S' THEN -- INVCONV
5392: IF l_debug_level > 0 THEN
5393: oe_debug_pub.add( 'DUAL - ONT_PRICING_QTY_SOURCE = S IN OEXVOPRB.PLS ' ) ;
5394: END IF;
5395: l_req_line_rec.LINE_QUANTITY := p_Line_rec.Ordered_quantity2 ;
5396: l_req_line_rec.LINE_UOM_CODE := p_Line_rec.Ordered_quantity_uom2 ;
5397: G_catchweight_qty_tbl(px_line_index) := p_line_rec.shipped_quantity2;
5412: l_req_line_rec.LINE_UOM_CODE := p_Line_rec.Order_quantity_uom ;
5413: END IF;
5414:
5415: IF l_debug_level > 0 THEN
5416: oe_debug_pub.add( 'DUAL - PRICING QUANTITY IS : ' ||L_REQ_LINE_REC.LINE_QUANTITY ) ;
5417: END IF;
5418: IF l_debug_level > 0 THEN
5419: oe_debug_pub.add( 'DUAL - PRICING QUANTITY UOM IS : ' || L_REQ_LINE_REC.LINE_UOM_CODE )
5420: ;
5415: IF l_debug_level > 0 THEN
5416: oe_debug_pub.add( 'DUAL - PRICING QUANTITY IS : ' ||L_REQ_LINE_REC.LINE_QUANTITY ) ;
5417: END IF;
5418: IF l_debug_level > 0 THEN
5419: oe_debug_pub.add( 'DUAL - PRICING QUANTITY UOM IS : ' || L_REQ_LINE_REC.LINE_UOM_CODE )
5420: ;
5421: END IF;
5422: -- Pack J catchweight
5423: ELSIF OE_CODE_CONTROL.Code_Release_level >= '110510' THEN
6085: ELSE
6086: -------------------------------------------------------------------
6087: --Pricing says passing only changed lines, use query_line
6088: --------------------------------------------------------------------
6089: oe_debug_pub.add('Query individual line changed:'||OE_Line_Adj_Util.G_CHANGED_LINE_TBL.count);
6090:
6091: --bug4529937 have put the code to query for changed lines in a procedure
6092: Query_Changed_Lines(p_header_id => p_header_id,
6093: x_line_tbl => l_line_tbl);
6178: -- Added to check if Agreement is Active for Bug#2740845
6179:
6180: If l_line_tbl(line_Tbl_Index).agreement_id is not null Then
6181: BEGIN
6182: Select 'x' into l_dummy from dual
6183: where exists (select 'x' from oe_agreements_vl where
6184: agreement_id = l_line_tbl(line_Tbl_Index).agreement_id and
6185: ( trunc(nvl(l_line_tbl(line_Tbl_Index).PRICING_DATE,sysdate))
6186: between
6398: --If we pass check_line_flag = 'N' to QP, this means a old behavior (pre I), or
6399: --we want to force sourcing and repricing of a line. This is usually the case
6400: --for action-->price_line call in UI.
6401:
6402: --If p_header_id is null means caller tries to price individual line
6403: --in this case, we should force a reprice of the line. No optimization
6404: --like to check the l_pass_line is needed #bug 289804100.
6405: --QP will need to unconditionally build sourcing.
6406: --BTEA
6452: );
6453:
6454: Begin
6455: l_header_id2:=nvl(p_header_id, l_line_tbl(line_tbl_index).header_id);
6456: Select 'x' into l_dummy from dual
6457: Where exists
6458: (select 'x' from
6459: oe_order_price_attribs oopa
6460: where
6539: Begin
6540: BEGIN
6541:
6542: Select 'x' into l_dummy
6543: from dual where
6544: exists(select 'x' from oe_order_lines
6545: Where header_id = l_header_id
6546: and calculate_price_flag in ('Y','P')
6547: and item_type_code not in ('CONFIG', 'INCLUDED'));
6556:
6557: IF l_completely_frozen = FALSE THEN
6558:
6559: Select 'p' into l_dummy
6560: from dual where
6561: exists (select 'x' from oe_order_lines
6562: where header_id = l_header_id
6563: and calculate_price_flag in ('N', 'P')
6564: and cancelled_flag = 'N'
6613: Begin
6614:
6615: l_header_id2:= nvl(p_header_id,l_line_tbl(l_line_tbl.first).header_id);
6616:
6617: Select 'x' into l_dummy from dual
6618: where exists(
6619: Select 'X' from oe_order_price_attribs oopa
6620: where oopa.header_id = l_header_id2 and oopa.line_id is null);
6621:
7355: IF l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM THEN
7356: vmsg := FND_MESSAGE.GET;
7357: oe_debug_pub.add('vmsg = '||vmsg,1);
7358: pricing_errors_hold(l_line_rec.header_id,l_line_rec.line_id,vmsg);
7359: -- select oe_msg_request_id_s.nextval into l_request_id from dual;
7360: -- OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
7361: -- 4919922
7362: IF (OE_GLOBALS.G_UI_FLAG ) THEN
7363: IF (G_REQUEST_ID IS NULL) THEN
7360: -- OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
7361: -- 4919922
7362: IF (OE_GLOBALS.G_UI_FLAG ) THEN
7363: IF (G_REQUEST_ID IS NULL) THEN
7364: select oe_msg_request_id_s.nextval into g_request_id from dual;
7365: END IF;
7366: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, G_REQUEST_ID,'U');
7367: END IF;
7368:
7394: IF l_debug_level > 0 THEN
7395: oe_debug_pub.add('vmsg = '||vmsg,1);
7396: END IF;
7397: pricing_errors_hold(l_line_rec.header_id,l_line_rec.line_id,vmsg);
7398: -- select oe_msg_request_id_s.nextval into l_request_id from dual;
7399:
7400: -- OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
7401: -- 4919922
7402: IF (OE_GLOBALS.G_UI_FLAG ) THEN
7400: -- OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
7401: -- 4919922
7402: IF (OE_GLOBALS.G_UI_FLAG ) THEN
7403: IF (G_REQUEST_ID IS NULL) THEN
7404: select oe_msg_request_id_s.nextval into g_request_id from dual;
7405: END IF;
7406: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, G_REQUEST_ID,'U');
7407: END IF;
7408:
7413: l_temp_line_rec.ordered_quantity := Wrong_line.line_quantity;
7414: oe_debug_pub.add('has invalid line3');
7415: l_temp_line_rec.pricing_quantity := Wrong_line.priced_quantity;
7416: oe_debug_pub.add('has invalid line4');
7417: -- select oe_msg_request_id_s.nextval into l_request_id from dual;
7418:
7419: -- OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
7420: -- 4919922
7421: IF (OE_GLOBALS.G_UI_FLAG ) THEN
7419: -- OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
7420: -- 4919922
7421: IF (OE_GLOBALS.G_UI_FLAG ) THEN
7422: IF (G_REQUEST_ID IS NULL) THEN
7423: select oe_msg_request_id_s.nextval into g_request_id from dual;
7424: END IF;
7425: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, G_REQUEST_ID,'U');
7426: END IF;
7427:
7431: else
7432: l_temp_line_rec.line_id := Wrong_line.line_id;
7433: l_temp_line_rec.ordered_quantity := Wrong_line.line_quantity;
7434: l_temp_line_rec.pricing_quantity := Wrong_line.priced_quantity;
7435: -- select oe_msg_request_id_s.nextval into l_request_id from dual;
7436:
7437: -- OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
7438: -- 4919922
7439: IF (OE_GLOBALS.G_UI_FLAG ) THEN
7437: -- OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
7438: -- 4919922
7439: IF (OE_GLOBALS.G_UI_FLAG ) THEN
7440: IF (G_REQUEST_ID IS NULL) THEN
7441: select oe_msg_request_id_s.nextval into g_request_id from dual;
7442: END IF;
7443: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, G_REQUEST_ID,'U');
7444: END IF;
7445: