[Home] [Help]
1906: -- Added if condition for Bug 2604056
1907:
1908: IF px_Line_Tbl.EXISTS(line_Tbl_index) THEN
1909:
1910: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
1911: l_line_index(1) := line_Tbl_Index; --px_line_tbl(line_tbl_index).header_id + px_line_tbl(line_tbl_index).line_id;
1912: l_line_detail_index(1) := NULL;
1913: l_relationship_type_code(1) := QP_PREQ_GRP.G_SERVICE_LINE;
1914: 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;
2564: END IF;
2565:
2566: -- Moved to OE_ACKNOWLEDGMENT_PUB as part of 3417899 and 3412458
2567: /* IF l_line_rec.unit_selling_price <> l_old_line_rec.unit_selling_price
2568: AND OE_Code_Control.code_release_level >= '110510'
2569: AND NVL(FND_PROFILE.VALUE('ONT_3A7_RESPONSE_REQUIRED'), 'N') = 'Y'
2570: AND l_line_rec.order_source_id = OE_Acknowledgment_Pub.G_XML_ORDER_SOURCE_ID
2571: AND nvl(l_line_rec.xml_transaction_type_code, OE_Acknowledgment_Pub.G_TRANSACTION_CSO) = OE_Acknowledgment_Pub.G_TRANSACTION_CSO
2572: AND nvl(l_line_rec.booked_flag, 'X') = 'Y'
3193: -- BUG 2746595, send currency code as request_unique_key1 parameter to
3194: -- process release request. This is required as 2 distinct requests need to
3195: -- be logged for currency updates.
3196:
3197: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110509'
3198: -- Bug 2739731 => do not log blanket requests for return lines
3199: AND update_line.line_category_code = 'ORDER'
3200: AND update_line.blanket_number IS NOT NULL
3201: THEN
3536: IF l_debug_level > 0 THEN
3537: oe_debug_pub.add('l_booked_flag in delete dependents = '||l_booked_flag);
3538: END IF;
3539: If p_adj_id_tbl.count > 0 Then
3540: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
3541: --IF l_booked_flag = 'Y' THEN
3542: --IF oe_adv_price_pvt.check_notify_OC then
3543: IF l_debug_level > 0 THEN
3544: oe_debug_pub.add('Delete adjustments notify to OC');
4366: END IF;
4367:
4368: IF (p_Calculate_Flag <> QP_PREQ_GRP.G_CALCULATE_ONLY) THEN
4369: l_stmt:=7;
4370: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
4371: OE_ADV_PRICE_PVT.Insert_Adj(p_header_id);
4372: ELSE
4373: INSERT INTO OE_PRICE_ADJUSTMENTS
4374: ( PRICE_ADJUSTMENT_ID
5169: END IF;
5170:
5171: --l_line_index := l_line_index+1;
5172: px_line_index := px_line_index+1;
5173: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
5174: px_req_line_tbl(px_line_index).line_id := p_Header_rec.header_id;
5175: px_req_line_tbl(px_line_index).LINE_TYPE_CODE := 'ORDER';
5176: END IF;
5177: l_req_line_rec.REQUEST_TYPE_CODE :=p_Request_Type_Code;
5321: -- px_line_index := px_line_index+1;
5322: IF l_debug_level > 0 THEN
5323: oe_debug_pub.add( 'LINE ID:FROM COPY LINE TO REQUEST:'||P_LINE_REC.LINE_ID ) ;
5324: END IF;
5325: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
5326: px_req_line_tbl(px_line_index).line_id := p_Line_rec.line_id;
5327: px_req_line_tbl(px_line_index).LINE_TYPE_CODE := 'LINE';
5328: END IF;
5329: l_req_line_rec.Line_id := p_Line_rec.line_id;
5698: oe_debug_pub.add( 'DUAL - PRICING QUANTITY UOM IS : ' || L_REQ_LINE_REC.LINE_UOM_CODE )
5699: ;
5700: END IF;
5701: -- Pack J catchweight
5702: ELSIF OE_CODE_CONTROL.Code_Release_level >= '110510' THEN
5703: IF l_debug_level > 0 THEN
5704: oe_debug_pub.add('inventory_item_id:'|| p_line_rec.inventory_item_id);
5705: oe_debug_pub.add('ship_from_org_id :'|| p_line_rec.ship_from_org_id );
5706: END IF;
5831: -- Pack J catchweight
5832: -- end OPM 2434270
5833:
5834: -- Override List Price
5835: IF OE_CODE_CONTROL.Code_Release_level >= '110510' THEN
5836: IF p_line_rec.original_list_price IS NOT NULL AND
5837: p_line_rec.unit_list_price IS NOT NULL THEN --AND --bug4080363
5838: -- p_line_rec.unit_list_price <> p_line_rec.original_list_price AND
5839: -- bug 3491752
6358: /* query_lines(p_header_id => p_Header_id
6359: , p_line_id => Null
6360: , x_line_tbl => l_Line_Tbl);
6361: */
6362: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
6363: G_PASS_ALL_LINES := 'R';
6364: ELSE
6365: G_PASS_ALL_LINES := 'Y';
6366: END IF;
6589: END IF;
6590: --3273289}
6591: End If; --- IF (OE_Order_PUB.G_LINE.Service_Reference_Line_Id <> FND_API.G_MISS_NUM
6592:
6593: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
6594: oe_debug_pub.add('calling get_prg_lines 5647210 added mass change');
6595: IF ((p_line_id IS NOT NULL and p_control_rec.p_write_to_db) OR oe_mass_change_pvt.Lines_Remaining = 'Y')
6596: THEN
6597: Get_PRG_Lines(l_line_tbl(line_tbl_index).line_id, l_line_tbl, line_tbl_index);
6610: -- Get Line Attributes
6611: G_STMT_NO := 'calculate_adjustments#125';
6612:
6613: -- Set the old item during pricing
6614: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
6615: Get_item_for_iue(px_line_rec => OE_Order_PUB.G_LINE);
6616: END IF;
6617:
6618: G_STMT_NO := 'calculate_adjustments#135';
6667: Else
6668: oe_debug_pub.add('Before QP_Attr_Mapping_PUB.Build_Contexts for line',1);
6669: IF (G_PASS_ALL_LINES = 'R' and
6670: NOT OE_LINE_ADJ_UTIL.G_CHANGED_LINE_TBL.exists(mod(l_line_Tbl(line_tbl_index).line_id,G_BINARY_LIMIT))
6671: and OE_CODE_CONTROL.Get_Code_Release_Level >= '110509')
6672: THEN
6673: l_check_line_flag := 'Y';
6674: ELSE
6675: l_check_line_flag := 'N';
6999: l_control_rec.full_pricing_call := 'N';
7000: ELSE
7001: l_control_rec.full_pricing_call := 'Y';
7002: END IF;
7003: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7004: l_control_rec.manual_adjustments_call_flag := 'N';
7005: END IF;
7006:
7007: G_STMT_NO := 'QP_PRICE_REQUEST_GRP';
7297: END IF;
7298: FND_MESSAGE.SET_NAME('ONT','ONT_NO_PRICE_LIST_FOUND');
7299: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7300: FND_MESSAGE.SET_TOKEN('UOM',l_line_rec.Order_Quantity_uom);
7301: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7302: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7303: vmsg := FND_MESSAGE.GET;
7304: else
7305: OE_MSG_PUB.Add;
7351: FND_MESSAGE.SET_NAME('ONT','OE_PRC_NO_LIST_PRICE');
7352: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7353: FND_MESSAGE.SET_TOKEN('UNIT',l_line_rec.Order_Quantity_uom);
7354: FND_MESSAGE.SET_TOKEN('PRICE_LIST',l_Price_List);
7355: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7356: IF l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7357: vmsg := FND_MESSAGE.GET;
7358: ELSE
7359: OE_MSG_PUB.Add;
7411: END IF;
7412: FND_MESSAGE.SET_NAME('ONT','ONT_NO_PRICE_LIST_FOUND');
7413: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7414: FND_MESSAGE.SET_TOKEN('UOM',l_line_rec.Order_Quantity_uom);
7415: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7416: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7417: vmsg := FND_MESSAGE.GET;
7418: else
7419: OE_MSG_PUB.Add;
7426: oe_debug_pub.add( 'ERROR IN FORMULA PROCESSING' ) ;
7427: END IF;
7428: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_ERROR_IN_FORMULA');
7429: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text||','||get_formula(wrong_line.line_index));
7430: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7431: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7432: vmsg := FND_MESSAGE.GET;
7433: else
7434: OE_MSG_PUB.Add;
7444: oe_debug_pub.add( 'OTHER ERRORS PROCESSING' ) ;
7445: END IF;
7446: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
7447: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text);
7448: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7449: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7450: vmsg := FND_MESSAGE.GET;
7451: else
7452: OE_MSG_PUB.Add;
7460: END IF;
7461: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_UOM');
7462: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7463: FND_MESSAGE.SET_TOKEN('UOM',l_line_rec.Order_Quantity_uom);
7464: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7465: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7466: vmsg := FND_MESSAGE.GET;
7467: else
7468: OE_MSG_PUB.Add;
7508: l_price_list := substr(wrong_line.status_text,
7509: instr(wrong_line.status_text,',')+1);
7510: End;
7511: FND_MESSAGE.SET_TOKEN('PRICE_LIST2',l_price_list);
7512: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7513: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7514: vmsg := FND_MESSAGE.GET;
7515: else
7516: OE_MSG_PUB.Add;
7524: END IF;
7525: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_UOM_CONVERSION');
7526: FND_MESSAGE.SET_TOKEN('UOM_TEXT','( '||l_line_rec.Ordered_Item||' ) '||
7527: wrong_line.status_text);
7528: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7529: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7530: vmsg := FND_MESSAGE.GET;
7531: else
7532: OE_MSG_PUB.Add;
7540: END IF;
7541: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_INCOMP');
7542: FND_MESSAGE.SET_TOKEN('ERR_TEXT','( '||
7543: l_line_rec.Ordered_Item||' ) '||wrong_line.status_text);
7544: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7545: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7546: vmsg := FND_MESSAGE.GET;
7547: else
7548: OE_MSG_PUB.Add;
7556: END IF;
7557: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_BEST_PRICE_ERROR');
7558: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7559: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text);
7560: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7561: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7562: vmsg := FND_MESSAGE.GET;
7563: else
7564: OE_MSG_PUB.Add;
7675: end if;
7676: END IF; --end if for 'ORDER' line_type_code
7677:
7678: If l_invalid_line = 'Y' Then
7679: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7680: if l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM then
7681: IF l_debug_level > 0 THEN
7682: oe_debug_pub.add('vmsg = '||vmsg,1);
7683: END IF;
7755: OE_Order_UTIL.Get_Attribute_Name('UNIT_LIST_PRICE'));
7756: IF l_debug_level > 0 THEN
7757: oe_debug_pub.add( ' ERROR: UNIT LIST PRICE CAN NOT BE NULL' ) ;
7758: END IF;
7759: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7760: if book_line.shipped_quantity is not null or book_line.shipped_quantity <> FND_API.G_MISS_NUM then
7761: vmsg := FND_MESSAGE.GET;
7762: pricing_errors_hold(book_line.header_id,book_line.line_id,vmsg);
7763: else
7867:
7868: /* UPDATE_ORDER_LINES(px_line_tbl
7869: , l_num_changed_lines); moved after oe_adv_price_pvt.process_adv_modifiers */
7870:
7871: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7872: IF l_debug_level > 0 THEN
7873: oe_debug_pub.add( 'CALLING OE_ADV_PRICE_PVT.PROCESS_ADV_MODIFIERS:'||OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL ) ;
7874: END IF;
7875: oe_adv_price_pvt.process_adv_modifiers
7869: , l_num_changed_lines); moved after oe_adv_price_pvt.process_adv_modifiers */
7870:
7871: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7872: IF l_debug_level > 0 THEN
7873: oe_debug_pub.add( 'CALLING OE_ADV_PRICE_PVT.PROCESS_ADV_MODIFIERS:'||OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL ) ;
7874: END IF;
7875: oe_adv_price_pvt.process_adv_modifiers
7876: (x_return_status => x_return_status,
7877: p_Control_Rec => p_Control_Rec,
7977:
7978: /*AS per Jyothi Narayan, Process_Requests_And_Notify has notify call. No extra call is needed
7979: If l_debug_level > 0 THEN
7980: oe_debug_pub.add('l_booked_flag in process_adjustments = '||l_booked_flag); End If;
7981: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110509' THEN
7982: IF l_booked_flag = 'Y' AND p_control_rec.p_write_to_db = TRUE THEN
7983: IF NOT OE_GLOBALS.G_UI_FLAG AND OE_GLOBALS.G_RECURSION_MODE = 'N' THEN
7984: If l_debug_level > 0 THEN
7985: oe_debug_pub.add('Before calling OE_SERVICE_UTIL.Notify_OC in process adj');