1828: (nvl(oe_order_pub.g_hdr.transactional_curr_code,'XXX') <> nvl(l_set_of_books.currency_code,'XXX') AND
1829: (oe_order_pub.g_hdr.conversion_type_code IS NULL OR
1830: (oe_order_pub.g_hdr.conversion_type_code= 'User' AND
1831: oe_order_pub.g_hdr.conversion_rate IS NULL))) THEN
1832: FND_MESSAGE.SET_NAME('ONT', 'ONT_CONV_INFO_NEEDED');
1833: FND_MESSAGE.SET_TOKEN('SERVICE_CURR', oe_order_pub.g_hdr.transactional_curr_code);
1834: FND_MESSAGE.SET_TOKEN('PARENT_CURR',l_transactional_curr_code);
1835: FND_MESSAGE.SET_TOKEN('FUNC_CURR', l_set_of_books.currency_code);
1836: OE_MSG_PUB.Add;
1829: (oe_order_pub.g_hdr.conversion_type_code IS NULL OR
1830: (oe_order_pub.g_hdr.conversion_type_code= 'User' AND
1831: oe_order_pub.g_hdr.conversion_rate IS NULL))) THEN
1832: FND_MESSAGE.SET_NAME('ONT', 'ONT_CONV_INFO_NEEDED');
1833: FND_MESSAGE.SET_TOKEN('SERVICE_CURR', oe_order_pub.g_hdr.transactional_curr_code);
1834: FND_MESSAGE.SET_TOKEN('PARENT_CURR',l_transactional_curr_code);
1835: FND_MESSAGE.SET_TOKEN('FUNC_CURR', l_set_of_books.currency_code);
1836: OE_MSG_PUB.Add;
1837: px_Line_Tbl(line_Tbl_index).unit_list_price := null;
1830: (oe_order_pub.g_hdr.conversion_type_code= 'User' AND
1831: oe_order_pub.g_hdr.conversion_rate IS NULL))) THEN
1832: FND_MESSAGE.SET_NAME('ONT', 'ONT_CONV_INFO_NEEDED');
1833: FND_MESSAGE.SET_TOKEN('SERVICE_CURR', oe_order_pub.g_hdr.transactional_curr_code);
1834: FND_MESSAGE.SET_TOKEN('PARENT_CURR',l_transactional_curr_code);
1835: FND_MESSAGE.SET_TOKEN('FUNC_CURR', l_set_of_books.currency_code);
1836: OE_MSG_PUB.Add;
1837: px_Line_Tbl(line_Tbl_index).unit_list_price := null;
1838: px_Line_Tbl(line_Tbl_index).unit_list_price_per_pqty := null;
1831: oe_order_pub.g_hdr.conversion_rate IS NULL))) THEN
1832: FND_MESSAGE.SET_NAME('ONT', 'ONT_CONV_INFO_NEEDED');
1833: FND_MESSAGE.SET_TOKEN('SERVICE_CURR', oe_order_pub.g_hdr.transactional_curr_code);
1834: FND_MESSAGE.SET_TOKEN('PARENT_CURR',l_transactional_curr_code);
1835: FND_MESSAGE.SET_TOKEN('FUNC_CURR', l_set_of_books.currency_code);
1836: OE_MSG_PUB.Add;
1837: px_Line_Tbl(line_Tbl_index).unit_list_price := null;
1838: px_Line_Tbl(line_Tbl_index).unit_list_price_per_pqty := null;
1839: ELSE
2656: END IF;
2657: l_mod_lineid := MOD(i.line_id,2147483647) ;
2658: IF l_gsa_violation_action = 'WARNING' THEN
2659:
2660: /* FND_MESSAGE.SET_NAME('ONT','OE_GSA_VIOLATION');
2661: l_msg_text := i.pricing_status_text||' ( '||nvl(i.ordered_item,i.inventory_item_id)||' )';
2662: FND_MESSAGE.SET_TOKEN('GSA_PRICE',l_msg_text);
2663: OE_MSG_PUB.Add;*/
2664: --3021992
2658: IF l_gsa_violation_action = 'WARNING' THEN
2659:
2660: /* FND_MESSAGE.SET_NAME('ONT','OE_GSA_VIOLATION');
2661: l_msg_text := i.pricing_status_text||' ( '||nvl(i.ordered_item,i.inventory_item_id)||' )';
2662: FND_MESSAGE.SET_TOKEN('GSA_PRICE',l_msg_text);
2663: OE_MSG_PUB.Add;*/
2664: --3021992
2665: IF not(g_lineid_tbl.EXISTS(l_mod_lineid)) THEN
2666: FND_MESSAGE.SET_NAME('ONT','OE_GSA_VIOLATION');
2662: FND_MESSAGE.SET_TOKEN('GSA_PRICE',l_msg_text);
2663: OE_MSG_PUB.Add;*/
2664: --3021992
2665: IF not(g_lineid_tbl.EXISTS(l_mod_lineid)) THEN
2666: FND_MESSAGE.SET_NAME('ONT','OE_GSA_VIOLATION');
2667: l_line_num := OE_ORDER_MISC_PUB.get_concat_line_number(i.line_id);
2668: l_msg_text := nvl(i.ordered_item,i.inventory_item_id);
2669: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_num);
2670: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_msg_text);
2665: IF not(g_lineid_tbl.EXISTS(l_mod_lineid)) THEN
2666: FND_MESSAGE.SET_NAME('ONT','OE_GSA_VIOLATION');
2667: l_line_num := OE_ORDER_MISC_PUB.get_concat_line_number(i.line_id);
2668: l_msg_text := nvl(i.ordered_item,i.inventory_item_id);
2669: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_num);
2670: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_msg_text);
2671: FND_MESSAGE.SET_TOKEN('GSA_PRICE',i.pricing_status_text);
2672: OE_MSG_PUB.Add;
2673: END IF ;
2666: FND_MESSAGE.SET_NAME('ONT','OE_GSA_VIOLATION');
2667: l_line_num := OE_ORDER_MISC_PUB.get_concat_line_number(i.line_id);
2668: l_msg_text := nvl(i.ordered_item,i.inventory_item_id);
2669: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_num);
2670: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_msg_text);
2671: FND_MESSAGE.SET_TOKEN('GSA_PRICE',i.pricing_status_text);
2672: OE_MSG_PUB.Add;
2673: END IF ;
2674: g_lineid_tbl(l_mod_lineid) := i.line_id ;
2667: l_line_num := OE_ORDER_MISC_PUB.get_concat_line_number(i.line_id);
2668: l_msg_text := nvl(i.ordered_item,i.inventory_item_id);
2669: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',l_line_num);
2670: FND_MESSAGE.SET_TOKEN('ITEM_NAME',l_msg_text);
2671: FND_MESSAGE.SET_TOKEN('GSA_PRICE',i.pricing_status_text);
2672: OE_MSG_PUB.Add;
2673: END IF ;
2674: g_lineid_tbl(l_mod_lineid) := i.line_id ;
2675: --3021992 ends
2680: l_hold_source_rec.hold_id := G_SEEDED_GSA_HOLD_ID;
2681:
2682: If i.line_id is null or
2683: i.line_id = fnd_api.g_miss_num then
2684: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
2685: FND_MESSAGE.SET_TOKEN('ERR_TEXT','GSA_INVALID_LINE_ID');
2686: OE_MSG_PUB.Add;
2687: RAISE FND_API.G_EXC_ERROR;
2688: End if;
2681:
2682: If i.line_id is null or
2683: i.line_id = fnd_api.g_miss_num then
2684: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
2685: FND_MESSAGE.SET_TOKEN('ERR_TEXT','GSA_INVALID_LINE_ID');
2686: OE_MSG_PUB.Add;
2687: RAISE FND_API.G_EXC_ERROR;
2688: End if;
2689:
2742: );
2743:
2744: If l_return_status = FND_API.g_ret_sts_success then
2745:
2746: /*FND_MESSAGE.SET_NAME('ONT','OE_GSA_HOLD_APPLIED');
2747: OE_MSG_PUB.Add;*/
2748: --3021992
2749: if not(g_lineid_tbl.EXISTS(l_mod_lineid)) THEN
2750: FND_MESSAGE.SET_NAME('ONT','OE_GSA_HOLD_APPLIED');
2746: /*FND_MESSAGE.SET_NAME('ONT','OE_GSA_HOLD_APPLIED');
2747: OE_MSG_PUB.Add;*/
2748: --3021992
2749: if not(g_lineid_tbl.EXISTS(l_mod_lineid)) THEN
2750: FND_MESSAGE.SET_NAME('ONT','OE_GSA_HOLD_APPLIED');
2751: OE_MSG_PUB.Add;
2752: END IF;
2753: g_lineid_tbl(l_mod_lineid) := i.line_id;
2754: --3021992 ends
2753: g_lineid_tbl(l_mod_lineid) := i.line_id;
2754: --3021992 ends
2755:
2756: Else
2757: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
2758: FND_MESSAGE.SET_TOKEN('ERR_TEXT','APPLY_GSA_HOLD');
2759: OE_MSG_PUB.Add;
2760: RAISE FND_API.G_EXC_ERROR;
2761: End If;
2754: --3021992 ends
2755:
2756: Else
2757: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
2758: FND_MESSAGE.SET_TOKEN('ERR_TEXT','APPLY_GSA_HOLD');
2759: OE_MSG_PUB.Add;
2760: RAISE FND_API.G_EXC_ERROR;
2761: End If;
2762: End If; /* check hold */
3415: IF l_debug_level > 0 THEN
3416: oe_debug_pub.add('in lock record exception, someone else working on the row');
3417: END IF;
3418:
3419: FND_MESSAGE.Set_Name('ONT', 'OE_LINE_LOCKED');
3420: OE_MSG_PUB.Add;
3421: RAISE fnd_api.g_exc_unexpected_error;
3422: WHEN OTHERS
3423: THEN
3934: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
3935: IF l_debug_level > 0 THEN
3936: oe_debug_pub.add('in lock record exception, someone else working on the row');
3937: END IF;
3938: FND_MESSAGE.SET_NAME('ONT','OE_LOCK_ROW_ALREADY_LOCKED');
3939: OE_MSG_PUB.Add;
3940: RAISE FND_API.G_EXC_ERROR;
3941:
3942: WHEN NO_DATA_FOUND THEN
5818: ELSE /*<< raise error here if shipped_quantity exists but not shipped_quantity2>> -- This error should not be raised for returns and dropship orders. */
5819: IF l_debug_level > 0 THEN
5820: oe_debug_pub.add('Shipped_quantity2 is null and not dropship, return- Raise error');
5821: END IF;
5822: FND_MESSAGE.SET_NAME('ONT','ONT_CATCHWEIGHT_QTY2_REQUIRED');
5823: OE_MSG_PUB.Add;
5824: RAISE FND_API.G_EXC_ERROR;
5825: END IF; -- end checks for source_type_code
5826: END IF; -- end checks for shipped_quantity2
5995: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
5996: IF l_debug_level > 0 THEN
5997: oe_debug_pub.add( 'WRONG IN INSERT_LINES2'||L_RETURN_STATUS_TEXT , 1 ) ;
5998: END IF;
5999: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
6000: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_text);
6001: OE_MSG_PUB.Add;
6002: RAISE FND_API.G_EXC_ERROR;
6003: END IF;
5996: IF l_debug_level > 0 THEN
5997: oe_debug_pub.add( 'WRONG IN INSERT_LINES2'||L_RETURN_STATUS_TEXT , 1 ) ;
5998: END IF;
5999: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
6000: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_text);
6001: OE_MSG_PUB.Add;
6002: RAISE FND_API.G_EXC_ERROR;
6003: END IF;
6004:
6040: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6041: IF l_debug_level > 0 THEN
6042: oe_debug_pub.add( 'ERROR INSERTING INTO LINE ATTRS'||SQLERRM ) ;
6043: END IF;
6044: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
6045: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_text);
6046: OE_MSG_PUB.Add;
6047: raise fnd_api.g_exc_unexpected_error;
6048: END IF;
6041: IF l_debug_level > 0 THEN
6042: oe_debug_pub.add( 'ERROR INSERTING INTO LINE ATTRS'||SQLERRM ) ;
6043: END IF;
6044: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
6045: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_text);
6046: OE_MSG_PUB.Add;
6047: raise fnd_api.g_exc_unexpected_error;
6048: END IF;
6049:
6269:
6270: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6271: THEN
6272:
6273: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
6274: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','line_id or Header Id ');
6275: OE_MSG_PUB.Add;
6276: END IF;
6277: RAISE FND_API.G_EXC_ERROR;
6270: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6271: THEN
6272:
6273: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
6274: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','line_id or Header Id ');
6275: OE_MSG_PUB.Add;
6276: END IF;
6277: RAISE FND_API.G_EXC_ERROR;
6278: end if;
6484: Exception
6485: When no_data_found then
6486: null;
6487: End;
6488: fnd_message.set_name('ONT','ONT_INVALID_AGR_REVISION');
6489: fnd_message.set_TOKEN('AGREEMENT',l_agreement_name||' : '||l_revision);
6490: fnd_message.set_TOKEN('PRICING_DATE',l_line_tbl(line_Tbl_Index).PRICING_DATE);
6491: OE_MSG_PUB.Add;
6492: RAISE FND_API.G_EXC_ERROR;
6485: When no_data_found then
6486: null;
6487: End;
6488: fnd_message.set_name('ONT','ONT_INVALID_AGR_REVISION');
6489: fnd_message.set_TOKEN('AGREEMENT',l_agreement_name||' : '||l_revision);
6490: fnd_message.set_TOKEN('PRICING_DATE',l_line_tbl(line_Tbl_Index).PRICING_DATE);
6491: OE_MSG_PUB.Add;
6492: RAISE FND_API.G_EXC_ERROR;
6493: END;
6486: null;
6487: End;
6488: fnd_message.set_name('ONT','ONT_INVALID_AGR_REVISION');
6489: fnd_message.set_TOKEN('AGREEMENT',l_agreement_name||' : '||l_revision);
6490: fnd_message.set_TOKEN('PRICING_DATE',l_line_tbl(line_Tbl_Index).PRICING_DATE);
6491: OE_MSG_PUB.Add;
6492: RAISE FND_API.G_EXC_ERROR;
6493: END;
6494: End If;
7025: ,x_return_status_Text =>l_return_status_Text
7026: );
7027:
7028: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7029: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
7030: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_text);
7031: OE_MSG_PUB.Add;
7032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7033: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7026: );
7027:
7028: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7029: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
7030: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_text);
7031: OE_MSG_PUB.Add;
7032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7033: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7034: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
7030: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_text);
7031: OE_MSG_PUB.Add;
7032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7033: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7034: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
7035: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_text);
7036: OE_MSG_PUB.Add;
7037: RAISE FND_API.G_EXC_ERROR;
7038: END IF;
7031: OE_MSG_PUB.Add;
7032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7033: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7034: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
7035: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_text);
7036: OE_MSG_PUB.Add;
7037: RAISE FND_API.G_EXC_ERROR;
7038: END IF;
7039:
7103: IF l_debug_level > 0 THEN
7104: oe_debug_pub.add('just before showing formula error',1);
7105: END IF;
7106:
7107: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERROR_HOLD');
7108: FND_MESSAGE.SET_TOKEN('ERR_TEXT',pmsg);
7109: OE_MSG_PUB.Add;
7110: End if;
7111: exception
7104: oe_debug_pub.add('just before showing formula error',1);
7105: END IF;
7106:
7107: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERROR_HOLD');
7108: FND_MESSAGE.SET_TOKEN('ERR_TEXT',pmsg);
7109: OE_MSG_PUB.Add;
7110: End if;
7111: exception
7112: WHEN FND_API.G_EXC_ERROR then
7294: END IF;
7295: IF l_debug_level > 0 THEN
7296: oe_debug_pub.add( 'INVALID PRICE LIST ' , 1 ) ;
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
7295: IF l_debug_level > 0 THEN
7296: oe_debug_pub.add( 'INVALID PRICE LIST ' , 1 ) ;
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;
7296: oe_debug_pub.add( 'INVALID PRICE LIST ' , 1 ) ;
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
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;
7306: end if;
7307: ELSE
7347: and
7348: G_IPL_ERRORS_TBL(MOD(l_line_rec.line_id,G_BINARY_LIMIT))<>l_line_rec.price_list_id)
7349: Then
7350:
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
7348: G_IPL_ERRORS_TBL(MOD(l_line_rec.line_id,G_BINARY_LIMIT))<>l_line_rec.price_list_id)
7349: Then
7350:
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
7349: Then
7350:
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;
7350:
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
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;
7360: END IF;
7361: ELSE
7376: If nvl(l_line_rec.booked_flag,'X') = 'Y' Then
7377: IF l_debug_level > 0 THEN
7378: oe_debug_pub.add( ' EXCEPTION: PRICE LIST MISSING FOR BOOKED ORDER' ) ;
7379: END IF;
7380: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
7381: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_ORDER_UTIL.GET_ATTRIBUTE_NAME('UNIT_LIST_PRICE'));
7382: OE_MSG_PUB.ADD;
7383: -- Bug 8236945
7384: IF OE_GLOBALS.G_UI_FLAG THEN
7377: IF l_debug_level > 0 THEN
7378: oe_debug_pub.add( ' EXCEPTION: PRICE LIST MISSING FOR BOOKED ORDER' ) ;
7379: END IF;
7380: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
7381: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_ORDER_UTIL.GET_ATTRIBUTE_NAME('UNIT_LIST_PRICE'));
7382: OE_MSG_PUB.ADD;
7383: -- Bug 8236945
7384: IF OE_GLOBALS.G_UI_FLAG THEN
7385: RAISE FND_API.G_EXC_ERROR;
7408: Elsif wrong_line.pricing_status_code = QP_PREQ_GRP.G_STS_LHS_NOT_FOUND Then
7409: IF l_debug_level > 0 THEN
7410: oe_debug_pub.add( 'PRICE LIST NOT FOUND' ) ;
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
7409: IF l_debug_level > 0 THEN
7410: oe_debug_pub.add( 'PRICE LIST NOT FOUND' ) ;
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;
7410: oe_debug_pub.add( 'PRICE LIST NOT FOUND' ) ;
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
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;
7420: end if;
7421: else
7424: Elsif wrong_line.pricing_status_code = QP_PREQ_GRP.G_STATUS_FORMULA_ERROR then
7425: IF l_debug_level > 0 THEN
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;
7425: IF l_debug_level > 0 THEN
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
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;
7435: end if;
7436: else
7442: then
7443: IF l_debug_level > 0 THEN
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;
7443: IF l_debug_level > 0 THEN
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
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;
7453: end if;
7454: else
7457: Elsif wrong_line.pricing_status_code = QP_PREQ_GRP.G_STATUS_INVALID_UOM then
7458: IF l_debug_level > 0 THEN
7459: oe_debug_pub.add( 'INVALID UOM' ) ;
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
7458: IF l_debug_level > 0 THEN
7459: oe_debug_pub.add( 'INVALID UOM' ) ;
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;
7459: oe_debug_pub.add( 'INVALID UOM' ) ;
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
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;
7469: end if;
7470: else
7473: Elsif wrong_line.pricing_status_code = QP_PREQ_GRP.G_STATUS_DUP_PRICE_LIST then
7474: IF l_debug_level > 0 THEN
7475: oe_debug_pub.add( 'DUPLICATE PRICE LIST' ) ;
7476: END IF;
7477: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_DUPLICATE_PRICE_LIST');
7478:
7479: Begin
7480: Select name into l_price_list
7481: from qp_list_headers_vl a,qp_list_lines b where
7491: instr(wrong_line.status_text,',')-1);
7492:
7493: End;
7494:
7495: FND_MESSAGE.SET_TOKEN('PRICE_LIST1',
7496: '( '||l_line_rec.Ordered_Item||' ) '||l_price_list);
7497: Begin
7498: Select name into l_price_list
7499: from qp_list_headers_vl a,qp_list_lines b where
7507: When invalid_number then
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
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;
7517: end if;
7518: else
7521: Elsif wrong_line.pricing_status_code = QP_PREQ_GRP.G_STATUS_INVALID_UOM_CONV then
7522: IF l_debug_level > 0 THEN
7523: oe_debug_pub.add( 'INVALID UOM CONVERSION' ) ;
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
7522: IF l_debug_level > 0 THEN
7523: oe_debug_pub.add( 'INVALID UOM CONVERSION' ) ;
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;
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;
7533: end if;
7534: else
7537: Elsif wrong_line.pricing_status_code = QP_PREQ_GRP.G_STATUS_INVALID_INCOMP then
7538: IF l_debug_level > 0 THEN
7539: oe_debug_pub.add( 'UNABLE TO RESOLVE INCOMPATIBILITY' ) ;
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
7538: IF l_debug_level > 0 THEN
7539: oe_debug_pub.add( 'UNABLE TO RESOLVE INCOMPATIBILITY' ) ;
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;
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;
7549: end if;
7550: else
7553: Elsif wrong_line.pricing_status_code = QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR then
7554: IF l_debug_level > 0 THEN
7555: oe_debug_pub.add( 'ERROR WHILE EVALUATING THE BEST PRICE' ) ;
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
7554: IF l_debug_level > 0 THEN
7555: oe_debug_pub.add( 'ERROR WHILE EVALUATING THE BEST PRICE' ) ;
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;
7555: oe_debug_pub.add( 'ERROR WHILE EVALUATING THE BEST PRICE' ) ;
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
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;
7565: end if;
7566: else
7606: wrong_line.line_Type_code ='LINE' and
7607: wrong_line.pricing_status_code = QP_PREQ_GRP.G_STATUS_OTHER_ERRORS
7608: Then
7609:
7610: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
7611: FND_MESSAGE.SET_TOKEN('ERR_TEXT','( '
7612: ||l_line_rec.Ordered_Item||' ) '||wrong_line.status_text);
7613: OE_MSG_PUB.Add;
7614: elsif wrong_line.line_type_code='LINE' and
7607: wrong_line.pricing_status_code = QP_PREQ_GRP.G_STATUS_OTHER_ERRORS
7608: Then
7609:
7610: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
7611: FND_MESSAGE.SET_TOKEN('ERR_TEXT','( '
7612: ||l_line_rec.Ordered_Item||' ) '||wrong_line.status_text);
7613: OE_MSG_PUB.Add;
7614: elsif wrong_line.line_type_code='LINE' and
7615: (wrong_line.unit_price <0 or wrong_line.adjusted_unit_price<0)
7617:
7618: IF l_debug_level > 0 THEN
7619: oe_debug_pub.add( 'NEGATIVE LIST PRICE '||WRONG_LINE.UNIT_PRICE ||'OR SELLING PRICE '||WRONG_LINE.ADJUSTED_UNIT_PRICE ) ;
7620: END IF;
7621: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_PRICE');
7622: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7623: FND_MESSAGE.SET_TOKEN('LIST_PRICE',wrong_line.unit_price);
7624: FND_MESSAGE.SET_TOKEN('SELLING_PRICE',wrong_line.Adjusted_unit_price);
7625: OE_MSG_PUB.Add;
7618: IF l_debug_level > 0 THEN
7619: oe_debug_pub.add( 'NEGATIVE LIST PRICE '||WRONG_LINE.UNIT_PRICE ||'OR SELLING PRICE '||WRONG_LINE.ADJUSTED_UNIT_PRICE ) ;
7620: END IF;
7621: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_PRICE');
7622: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7623: FND_MESSAGE.SET_TOKEN('LIST_PRICE',wrong_line.unit_price);
7624: FND_MESSAGE.SET_TOKEN('SELLING_PRICE',wrong_line.Adjusted_unit_price);
7625: OE_MSG_PUB.Add;
7626: IF l_debug_level > 0 THEN
7619: oe_debug_pub.add( 'NEGATIVE LIST PRICE '||WRONG_LINE.UNIT_PRICE ||'OR SELLING PRICE '||WRONG_LINE.ADJUSTED_UNIT_PRICE ) ;
7620: END IF;
7621: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_PRICE');
7622: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7623: FND_MESSAGE.SET_TOKEN('LIST_PRICE',wrong_line.unit_price);
7624: FND_MESSAGE.SET_TOKEN('SELLING_PRICE',wrong_line.Adjusted_unit_price);
7625: OE_MSG_PUB.Add;
7626: IF l_debug_level > 0 THEN
7627: oe_debug_pub.add( 'BEFORE SHOWING NEGATIVE MODIFIERS MESSAGE' ) ;
7620: END IF;
7621: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_PRICE');
7622: FND_MESSAGE.SET_TOKEN('ITEM',nvl(l_line_rec.Ordered_Item,l_line_rec.inventory_item_id));
7623: FND_MESSAGE.SET_TOKEN('LIST_PRICE',wrong_line.unit_price);
7624: FND_MESSAGE.SET_TOKEN('SELLING_PRICE',wrong_line.Adjusted_unit_price);
7625: OE_MSG_PUB.Add;
7626: IF l_debug_level > 0 THEN
7627: oe_debug_pub.add( 'BEFORE SHOWING NEGATIVE MODIFIERS MESSAGE' ) ;
7628: END IF;
7628: END IF;
7629: l_list_line_no:=get_list_lines(wrong_line.line_id);
7630:
7631: IF l_list_line_no IS NOT NULL THEN
7632: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_MODIFIERS');
7633: FND_MESSAGE.SET_TOKEN('LIST_LINE_NO',get_list_lines(wrong_line.line_id));
7634: OE_MSG_PUB.Add;
7635: END IF;
7636:
7629: l_list_line_no:=get_list_lines(wrong_line.line_id);
7630:
7631: IF l_list_line_no IS NOT NULL THEN
7632: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_MODIFIERS');
7633: FND_MESSAGE.SET_TOKEN('LIST_LINE_NO',get_list_lines(wrong_line.line_id));
7634: OE_MSG_PUB.Add;
7635: END IF;
7636:
7637: IF l_debug_level > 0 THEN
7639: END IF;
7640:
7641: --place the line on invoicing hold to avoid stuck order it the ship quatity is there.
7642: IF l_line_rec.shipped_quantity is not null and l_line_rec.shipped_quantity <> FND_API.G_MISS_NUM THEN
7643: vmsg := FND_MESSAGE.GET;
7644: oe_debug_pub.add('vmsg = '||vmsg,1);
7645: pricing_errors_hold(l_line_rec.header_id,l_line_rec.line_id,vmsg);
7646: -- select oe_msg_request_id_s.nextval into l_request_id from dual;
7647: -- OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
7661:
7662: IF wrong_line.line_type_code='ORDER' THEN
7663: if wrong_line.pricing_status_code = QP_PREQ_GRP.G_STATUS_FORMULA_ERROR then
7664: oe_debug_pub.add( 'ERROR IN ORDER LEVEL FORMULA PROCESSING' ) ;
7665: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_ERROR_IN_FORMULA');
7666: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text||','||get_formula(wrong_line.line_index));
7667: OE_MSG_PUB.Add;
7668: vmsg := FND_MESSAGE.GET;
7669: else
7662: IF wrong_line.line_type_code='ORDER' THEN
7663: if wrong_line.pricing_status_code = QP_PREQ_GRP.G_STATUS_FORMULA_ERROR then
7664: oe_debug_pub.add( 'ERROR IN ORDER LEVEL FORMULA PROCESSING' ) ;
7665: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_ERROR_IN_FORMULA');
7666: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text||','||get_formula(wrong_line.line_index));
7667: OE_MSG_PUB.Add;
7668: vmsg := FND_MESSAGE.GET;
7669: else
7670: oe_debug_pub.add( 'OTHER ERRORS PROCESSING' ) ;
7664: oe_debug_pub.add( 'ERROR IN ORDER LEVEL FORMULA PROCESSING' ) ;
7665: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_ERROR_IN_FORMULA');
7666: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text||','||get_formula(wrong_line.line_index));
7667: OE_MSG_PUB.Add;
7668: vmsg := FND_MESSAGE.GET;
7669: else
7670: oe_debug_pub.add( 'OTHER ERRORS PROCESSING' ) ;
7671: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
7672: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text);
7667: OE_MSG_PUB.Add;
7668: vmsg := FND_MESSAGE.GET;
7669: else
7670: oe_debug_pub.add( 'OTHER ERRORS PROCESSING' ) ;
7671: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
7672: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text);
7673: OE_MSG_PUB.Add;
7674: vmsg := FND_MESSAGE.GET;
7675: end if;
7668: vmsg := FND_MESSAGE.GET;
7669: else
7670: oe_debug_pub.add( 'OTHER ERRORS PROCESSING' ) ;
7671: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
7672: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text);
7673: OE_MSG_PUB.Add;
7674: vmsg := FND_MESSAGE.GET;
7675: end if;
7676: END IF; --end if for 'ORDER' line_type_code
7670: oe_debug_pub.add( 'OTHER ERRORS PROCESSING' ) ;
7671: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
7672: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text);
7673: OE_MSG_PUB.Add;
7674: vmsg := FND_MESSAGE.GET;
7675: end if;
7676: END IF; --end if for 'ORDER' line_type_code
7677:
7678: If l_invalid_line = 'Y' Then
7741:
7742: For book_line in wrong_book_lines loop
7743:
7744: If book_line.adjusted_unit_price IS NULL Then
7745: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
7746: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
7747: OE_Order_UTIL.Get_Attribute_Name('UNIT_SELLING_PRICE'));
7748: OE_MSG_PUB.ADD;
7749: End If;
7742: For book_line in wrong_book_lines loop
7743:
7744: If book_line.adjusted_unit_price IS NULL Then
7745: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
7746: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
7747: OE_Order_UTIL.Get_Attribute_Name('UNIT_SELLING_PRICE'));
7748: OE_MSG_PUB.ADD;
7749: End If;
7750:
7749: End If;
7750:
7751: If book_line.unit_price IS NULL
7752: Then
7753: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
7754: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
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' ) ;
7750:
7751: If book_line.unit_price IS NULL
7752: Then
7753: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
7754: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
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;
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
7764: OE_MSG_PUB.ADD;
7765: l_temp_line_rec.line_id := book_line.line_id;
7778: end if;
7779: End If;
7780:
7781: If book_line.price_list_header_id IS NULL Then
7782: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRUIBUTE');
7783: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_ORDER_UTIL.Get_Attribute_Name('PRICE_LIST_ID'));
7784: OE_MSG_PUB.ADD;
7785: IF l_debug_level > 0 THEN
7786: oe_debug_pub.add( ' ERROR: PRICE LIST ID CAN NOT BE NULL' ) ;
7779: End If;
7780:
7781: If book_line.price_list_header_id IS NULL Then
7782: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRUIBUTE');
7783: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_ORDER_UTIL.Get_Attribute_Name('PRICE_LIST_ID'));
7784: OE_MSG_PUB.ADD;
7785: IF l_debug_level > 0 THEN
7786: oe_debug_pub.add( ' ERROR: PRICE LIST ID CAN NOT BE NULL' ) ;
7787: END IF;