[Home] [Help]
1905: -- Added if condition for Bug 2604056
1906:
1907: IF px_Line_Tbl.EXISTS(line_Tbl_index) THEN
1908:
1909: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
1910: l_line_index(1) := line_Tbl_Index; --px_line_tbl(line_tbl_index).header_id + px_line_tbl(line_tbl_index).line_id;
1911: l_line_detail_index(1) := NULL;
1912: l_relationship_type_code(1) := QP_PREQ_GRP.G_SERVICE_LINE;
1913: l_related_line_index(1) := p_line_Tbl_index; --px_line_tbl(p_line_tbl_index).header_id + px_line_tbl(p_line_tbl_index).line_id;
2557: END IF;
2558:
2559: -- Moved to OE_ACKNOWLEDGMENT_PUB as part of 3417899 and 3412458
2560: /* IF l_line_rec.unit_selling_price <> l_old_line_rec.unit_selling_price
2561: AND OE_Code_Control.code_release_level >= '110510'
2562: AND NVL(FND_PROFILE.VALUE('ONT_3A7_RESPONSE_REQUIRED'), 'N') = 'Y'
2563: AND l_line_rec.order_source_id = OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID
2564: AND nvl(l_line_rec.xml_transaction_type_code, OE_Acknowledgment_Pub.G_TRANSACTION_CSO) = OE_Acknowledgment_Pub.G_TRANSACTION_CSO
2565: AND nvl(l_line_rec.booked_flag, 'X') = 'Y'
3171: -- BUG 2746595, send currency code as request_unique_key1 parameter to
3172: -- process release request. This is required as 2 distinct requests need to
3173: -- be logged for currency updates.
3174:
3175: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509'
3176: -- Bug 2739731 => do not log blanket requests for return lines
3177: AND update_line.line_category_code = 'ORDER'
3178: AND update_line.blanket_number IS NOT NULL
3179: THEN
3465: IF l_debug_level > 0 THEN
3466: oe_debug_pub.add('l_booked_flag in delete dependents = '||l_booked_flag);
3467: END IF;
3468: If p_adj_id_tbl.count > 0 Then
3469: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
3470: --IF l_booked_flag = 'Y' THEN
3471: --IF oe_adv_price_pvt.check_notify_OC then
3472: IF l_debug_level > 0 THEN
3473: oe_debug_pub.add('Delete adjustments notify to OC');
4251: END IF;
4252:
4253: IF (p_Calculate_Flag <> QP_PREQ_GRP.G_CALCULATE_ONLY) THEN
4254: l_stmt:=7;
4255: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
4256: OE_ADV_PRICE_PVT.Insert_Adj(p_header_id);
4257: ELSE
4258: INSERT INTO OE_PRICE_ADJUSTMENTS
4259: ( PRICE_ADJUSTMENT_ID
4991: END IF;
4992:
4993: --l_line_index := l_line_index+1;
4994: px_line_index := px_line_index+1;
4995: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
4996: px_req_line_tbl(px_line_index).line_id := p_Header_rec.header_id;
4997: px_req_line_tbl(px_line_index).LINE_TYPE_CODE := 'ORDER';
4998: END IF;
4999: l_req_line_rec.REQUEST_TYPE_CODE :=p_Request_Type_Code;
5138: -- px_line_index := px_line_index+1;
5139: IF l_debug_level > 0 THEN
5140: oe_debug_pub.add( 'LINE ID:FROM COPY LINE TO REQUEST:'||P_LINE_REC.LINE_ID ) ;
5141: END IF;
5142: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
5143: px_req_line_tbl(px_line_index).line_id := p_Line_rec.line_id;
5144: px_req_line_tbl(px_line_index).LINE_TYPE_CODE := 'LINE';
5145: END IF;
5146: l_req_line_rec.Line_id := p_Line_rec.line_id;
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
5424: IF l_debug_level > 0 THEN
5425: oe_debug_pub.add('inventory_item_id:'|| p_line_rec.inventory_item_id);
5426: oe_debug_pub.add('ship_from_org_id :'|| p_line_rec.ship_from_org_id );
5427: END IF;
5552: -- Pack J catchweight
5553: -- end OPM 2434270
5554:
5555: -- Override List Price
5556: IF OE_CODE_CONTROL.Code_Release_level >= '110510' THEN
5557: IF p_line_rec.original_list_price IS NOT NULL AND
5558: p_line_rec.unit_list_price IS NOT NULL THEN --AND --bug4080363
5559: -- p_line_rec.unit_list_price <> p_line_rec.original_list_price AND
5560: -- bug 3491752
6069: /* query_lines(p_header_id => p_Header_id
6070: , p_line_id => Null
6071: , x_line_tbl => l_Line_Tbl);
6072: */
6073: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
6074: G_PASS_ALL_LINES := 'R';
6075: ELSE
6076: G_PASS_ALL_LINES := 'Y';
6077: END IF;
6299: --3273289}
6300:
6301: End If;
6302:
6303: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
6304: oe_debug_pub.add('calling get_prg_lines 5647210 added mass change');
6305: IF ((p_line_id IS NOT NULL and p_control_rec.p_write_to_db) OR oe_mass_change_pvt.Lines_Remaining = 'Y') THEN
6306: Get_PRG_Lines(l_line_tbl(line_tbl_index).line_id, l_line_tbl, line_tbl_index);
6307: -- 3529369 In the case overriding the list price of servicable line the service lines will be
6319: -- Get Line Attributes
6320: G_STMT_NO := 'calculate_adjustments#125';
6321:
6322: -- Set the old item during pricing
6323: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
6324: Get_item_for_iue(px_line_rec => OE_Order_PUB.G_LINE);
6325: END IF;
6326:
6327: G_STMT_NO := 'calculate_adjustments#135';
6380: Else
6381: oe_debug_pub.add('Before QP_Attr_Mapping_PUB.Build_Contexts for line',1);
6382: IF (G_PASS_ALL_LINES = 'R' and
6383: NOT OE_LINE_ADJ_UTIL.G_CHANGED_LINE_TBL.exists(mod(l_line_Tbl(line_tbl_index).line_id,G_BINARY_LIMIT)) and
6384: OE_CODE_CONTROL.Get_Code_Release_Level >= '110509') THEN
6385: l_check_line_flag := 'Y';
6386: ELSE
6387: l_check_line_flag := 'N';
6388: END IF;
6720: l_control_rec.full_pricing_call := 'N';
6721: ELSE
6722: l_control_rec.full_pricing_call := 'Y';
6723: END IF;
6724: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
6725: l_control_rec.manual_adjustments_call_flag := 'N';
6726: END IF;
6727:
6728: G_STMT_NO := 'QP_PRICE_REQUEST_GRP';
7015: END IF;
7016: FND_MESSAGE.SET_NAME('ONT','ONT_NO_PRICE_LIST_FOUND');
7017: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7018: FND_MESSAGE.SET_TOKEN('UOM',l_line_rec.Order_Quantity_uom);
7019: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7020: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7021: vmsg := FND_MESSAGE.GET;
7022: else
7023: OE_MSG_PUB.Add;
7069: FND_MESSAGE.SET_NAME('ONT','OE_PRC_NO_LIST_PRICE');
7070: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7071: FND_MESSAGE.SET_TOKEN('UNIT',l_line_rec.Order_Quantity_uom);
7072: FND_MESSAGE.SET_TOKEN('PRICE_LIST',l_Price_List);
7073: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7074: IF l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7075: vmsg := FND_MESSAGE.GET;
7076: ELSE
7077: OE_MSG_PUB.Add;
7124: END IF;
7125: FND_MESSAGE.SET_NAME('ONT','ONT_NO_PRICE_LIST_FOUND');
7126: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7127: FND_MESSAGE.SET_TOKEN('UOM',l_line_rec.Order_Quantity_uom);
7128: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7129: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7130: vmsg := FND_MESSAGE.GET;
7131: else
7132: OE_MSG_PUB.Add;
7139: oe_debug_pub.add( 'ERROR IN FORMULA PROCESSING' ) ;
7140: END IF;
7141: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_ERROR_IN_FORMULA');
7142: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text||','||get_formula(wrong_line.line_index));
7143: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7144: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7145: vmsg := FND_MESSAGE.GET;
7146: else
7147: OE_MSG_PUB.Add;
7157: oe_debug_pub.add( 'OTHER ERRORS PROCESSING' ) ;
7158: END IF;
7159: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
7160: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text);
7161: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7162: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7163: vmsg := FND_MESSAGE.GET;
7164: else
7165: OE_MSG_PUB.Add;
7173: END IF;
7174: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_UOM');
7175: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7176: FND_MESSAGE.SET_TOKEN('UOM',l_line_rec.Order_Quantity_uom);
7177: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7178: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7179: vmsg := FND_MESSAGE.GET;
7180: else
7181: OE_MSG_PUB.Add;
7221: l_price_list := substr(wrong_line.status_text,
7222: instr(wrong_line.status_text,',')+1);
7223: End;
7224: FND_MESSAGE.SET_TOKEN('PRICE_LIST2',l_price_list);
7225: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7226: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7227: vmsg := FND_MESSAGE.GET;
7228: else
7229: OE_MSG_PUB.Add;
7237: END IF;
7238: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_UOM_CONVERSION');
7239: FND_MESSAGE.SET_TOKEN('UOM_TEXT','( '||l_line_rec.Ordered_Item||' ) '||
7240: wrong_line.status_text);
7241: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7242: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7243: vmsg := FND_MESSAGE.GET;
7244: else
7245: OE_MSG_PUB.Add;
7253: END IF;
7254: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_INCOMP');
7255: FND_MESSAGE.SET_TOKEN('ERR_TEXT','( '||
7256: l_line_rec.Ordered_Item||' ) '||wrong_line.status_text);
7257: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7258: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7259: vmsg := FND_MESSAGE.GET;
7260: else
7261: OE_MSG_PUB.Add;
7269: END IF;
7270: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_BEST_PRICE_ERROR');
7271: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7272: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text);
7273: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7274: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7275: vmsg := FND_MESSAGE.GET;
7276: else
7277: OE_MSG_PUB.Add;
7388: end if;
7389: END IF; --end if for 'ORDER' line_type_code
7390:
7391: If l_invalid_line = 'Y' Then
7392: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7393: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7394: IF l_debug_level > 0 THEN
7395: oe_debug_pub.add('vmsg = '||vmsg,1);
7396: END IF;
7468: OE_Order_UTIL.Get_Attribute_Name('UNIT_LIST_PRICE'));
7469: IF l_debug_level > 0 THEN
7470: oe_debug_pub.add( ' ERROR: UNIT LIST PRICE CAN NOT BE NULL' ) ;
7471: END IF;
7472: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7473: if book_line.shipped_quantity is not null or book_line.shipped_quantity <> FND_API.G_MISS_NUM then
7474: vmsg := FND_MESSAGE.GET;
7475: pricing_errors_hold(book_line.header_id,book_line.line_id,vmsg);
7476: else
7564:
7565: /* UPDATE_ORDER_LINES(px_line_tbl
7566: , l_num_changed_lines); moved after oe_adv_price_pvt.process_adv_modifiers */
7567:
7568: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7569: IF l_debug_level > 0 THEN
7570: oe_debug_pub.add( 'CALLING OE_ADV_PRICE_PVT.PROCESS_ADV_MODIFIERS:'||OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL ) ;
7571: END IF;
7572: oe_adv_price_pvt.process_adv_modifiers
7566: , l_num_changed_lines); moved after oe_adv_price_pvt.process_adv_modifiers */
7567:
7568: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7569: IF l_debug_level > 0 THEN
7570: oe_debug_pub.add( 'CALLING OE_ADV_PRICE_PVT.PROCESS_ADV_MODIFIERS:'||OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL ) ;
7571: END IF;
7572: oe_adv_price_pvt.process_adv_modifiers
7573: (x_return_status => x_return_status,
7574: p_Control_Rec => p_Control_Rec,
7674:
7675: /*AS per Jyothi Narayan, Process_Requests_And_Notify has notify call. No extra call is needed
7676: If l_debug_level > 0 THEN
7677: oe_debug_pub.add('l_booked_flag in process_adjustments = '||l_booked_flag); End If;
7678: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7679: IF l_booked_flag = 'Y' AND p_control_rec.p_write_to_db = TRUE THEN
7680: IF NOT OE_GLOBALS.G_UI_FLAG AND OE_GLOBALS.G_RECURSION_MODE = 'N' THEN
7681: If l_debug_level > 0 THEN
7682: oe_debug_pub.add('Before calling OE_SERVICE_UTIL.Notify_OC in process adj');