[Home] [Help]
45: RETURN l_list_type;
46:
47: Exception
48: WHEN OTHERS THEN
49: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
50: THEN
51: OE_MSG_PUB.Add_Exc_Msg
52: ( G_PKG_NAME
53: , 'Get_List_Type'
47: Exception
48: WHEN OTHERS THEN
49: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
50: THEN
51: OE_MSG_PUB.Add_Exc_Msg
52: ( G_PKG_NAME
53: , 'Get_List_Type'
54: );
55: END IF;
73: RETURN l_flag;
74:
75: Exception
76: WHEN OTHERS THEN
77: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
78: THEN
79: OE_MSG_PUB.Add_Exc_Msg
80: ( G_PKG_NAME
81: , 'Get_Enforce_Price_List'
75: Exception
76: WHEN OTHERS THEN
77: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
78: THEN
79: OE_MSG_PUB.Add_Exc_Msg
80: ( G_PKG_NAME
81: , 'Get_Enforce_Price_List'
82: );
83: END IF;
349: oe_order_pvt.set_recursion_mode(p_Entity_Code => 3,
350: p_In_out => 1);
351:
352: IF FND_API.to_Boolean(p_init_msg_list) THEN
353: OE_MSG_PUB.initialize;
354: END IF;
355:
356: IF l_control_rec.Process_Partial THEN
357: SAVEPOINT Header_Adjs;
408: l_source_document_id := null;
409: END;
410: END IF;
411:
412: OE_MSG_PUB.set_msg_context(
413: p_entity_code => 'HEADER_ADJ'
414: ,p_entity_id => l_header_adj_rec.price_adjustment_id
415: ,p_header_id => l_header_adj_rec.header_Id
416: ,p_line_id => null
452: l_source_document_id := null;
453: END;
454: END IF;
455:
456: OE_MSG_PUB.set_msg_context(
457: p_entity_code => 'HEADER_ADJ'
458: ,p_entity_id => l_old_header_adj_rec.price_adjustment_id
459: ,p_header_id => l_old_header_adj_rec.header_Id
460: ,p_line_id => null
529: ( p_x_Header_Adj_rec => l_Header_Adj_rec
530: , p_old_Header_Adj_rec => l_old_Header_Adj_rec
531: );
532:
533: OE_MSG_PUB.update_msg_context(
534: p_entity_code => 'HEADER_ADJ'
535: ,p_entity_id => l_header_adj_rec.price_adjustment_id
536: ,p_header_id => l_header_adj_rec.header_Id);
537:
806: RAISE FND_API.G_EXC_ERROR;
807: END IF;
808:
809: OE_Header_Adj_Security.g_check_all_cols_constraint := 'Y';
810: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
811: -- loop exception handler.
812:
813:
814:
850: l_Header_Adj_rec.return_status := FND_API.G_RET_STS_ERROR;
851: p_x_header_adj_tbl(I) := l_Header_Adj_rec;
852: p_x_old_Header_Adj_tbl(I) := l_old_Header_Adj_rec;
853: OE_Header_Adj_Security.g_check_all_cols_constraint := 'Y';
854: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
855: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
856: p_entity_id => l_header_adj_rec.Price_adjustment_id,
857: p_request_type => NULL,
858: x_return_status => l_return_status);
868: l_Header_Adj_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
869: p_x_header_adj_tbl(I) := l_Header_Adj_rec;
870: p_x_old_Header_Adj_tbl(I) := l_old_Header_Adj_rec;
871: OE_Header_Adj_Security.g_check_all_cols_constraint := 'Y';
872: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
873: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
874: p_entity_id => l_header_adj_rec.Price_adjustment_id,
875: p_request_type => NULL,
876: x_return_status => l_return_status);
886: p_entity_id => l_header_adj_rec.Price_adjustment_id,
887: p_request_type => NULL,
888: x_return_status => l_return_status);
889:
890: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
891: THEN
892: OE_MSG_PUB.Add_Exc_Msg
893: ( G_PKG_NAME
894: , 'Header_Adjs'
888: x_return_status => l_return_status);
889:
890: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
891: THEN
892: OE_MSG_PUB.Add_Exc_Msg
893: ( G_PKG_NAME
894: , 'Header_Adjs'
895: );
896: END IF;
894: , 'Header_Adjs'
895: );
896: END IF;
897:
898: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
899: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
900:
901: END;
902: I := p_x_header_adj_tbl.NEXT(I);
904:
905: -- Load OUT parameters
906:
907: adj_debug('Exiting oe_order_Adj_pvt.HEADER_ADJS', 1);
908: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
909:
910: oe_order_pvt.set_recursion_mode(p_Entity_Code => 3,
911: p_In_out => 0);
912:
915: WHEN FND_API.G_EXC_ERROR THEN
916: oe_order_pvt.set_recursion_mode(p_Entity_Code => 3,
917: p_In_out => 0);
918:
919: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
920: RAISE;
921:
922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
923: oe_order_pvt.set_recursion_mode(p_Entity_Code => 3,
922: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
923: oe_order_pvt.set_recursion_mode(p_Entity_Code => 3,
924: p_In_out => 0);
925:
926: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
927: RAISE;
928:
929: WHEN OTHERS THEN
930: oe_order_pvt.set_recursion_mode(p_Entity_Code => 3,
929: WHEN OTHERS THEN
930: oe_order_pvt.set_recursion_mode(p_Entity_Code => 3,
931: p_In_out => 0);
932:
933: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
934: THEN
935: OE_MSG_PUB.Add_Exc_Msg
936: ( G_PKG_NAME
937: , 'Header_Adjs'
931: p_In_out => 0);
932:
933: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
934: THEN
935: OE_MSG_PUB.Add_Exc_Msg
936: ( G_PKG_NAME
937: , 'Header_Adjs'
938: );
939: END IF;
938: );
939: END IF;
940:
941:
942: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
944:
945: END Header_Adjs;
946:
988: oe_order_pvt.set_recursion_mode(p_Entity_Code => 6,
989: p_In_out => 1);
990:
991: IF FND_API.to_Boolean(p_init_msg_list) THEN
992: OE_MSG_PUB.initialize;
993: END IF;
994:
995: IF l_control_rec.Process_Partial THEN
996: SAVEPOINT Line_Adjs;
1054: l_orig_sys_shipment_ref := null;
1055: END;
1056: END IF;
1057:
1058: OE_MSG_PUB.set_msg_context(
1059: p_entity_code => 'LINE_ADJ'
1060: ,p_entity_id => l_line_adj_rec.price_adjustment_id
1061: ,p_header_id => l_line_adj_rec.header_id
1062: ,p_line_id => l_line_adj_rec.line_id
1106: l_orig_sys_shipment_ref := null;
1107: END;
1108: END IF;
1109:
1110: OE_MSG_PUB.set_msg_context(
1111: p_entity_code => 'LINE_ADJ'
1112: ,p_entity_id => l_old_line_adj_rec.price_adjustment_id
1113: ,p_header_id => l_old_line_adj_rec.header_id
1114: ,p_line_id => l_old_line_adj_rec.line_id
1218: ( p_x_Line_Adj_rec => l_Line_Adj_rec
1219: , p_old_Line_Adj_rec => l_old_Line_Adj_rec
1220: );
1221:
1222: OE_MSG_PUB.update_msg_context(
1223: p_entity_code => 'LINE_ADJ'
1224: ,p_entity_id => l_line_adj_rec.price_adjustment_id
1225: ,p_header_id => l_line_adj_rec.header_id
1226: ,p_line_id => l_line_adj_rec.line_id);
1569: p_x_Line_Adj_tbl(I) := l_Line_Adj_rec;
1570: p_x_old_Line_Adj_tbl(I) := l_old_Line_Adj_rec;
1571:
1572: OE_Line_Adj_Security.g_check_all_cols_constraint := 'Y';
1573: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1574: -- Check return status and rollaback
1575:
1576: IF l_line_adj_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1625: l_Line_Adj_rec.return_status := FND_API.G_RET_STS_ERROR;
1626: p_x_Line_Adj_tbl(I) := l_Line_Adj_rec;
1627: p_x_old_Line_Adj_tbl(I) := l_old_Line_Adj_rec;
1628: OE_Line_Adj_Security.g_check_all_cols_constraint := 'Y';
1629: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1630: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_ADJ,
1631: p_entity_id => l_line_adj_rec.Price_adjustment_id,
1632: p_request_type => NULL,
1633: x_return_status => l_return_status);
1642: l_Line_Adj_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1643: p_x_Line_Adj_tbl(I) := l_Line_Adj_rec;
1644: p_x_old_Line_Adj_tbl(I) := l_old_Line_Adj_rec;
1645: OE_Line_Adj_Security.g_check_all_cols_constraint := 'Y';
1646: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1647: oe_delayed_requests_pvt.delete_request(p_entity_code =>OE_GLOBALS.G_ENTITY_LINE_ADJ,
1648: p_entity_id => l_line_adj_rec.Price_adjustment_id,
1649: p_request_type => NULL,
1650: x_return_status => l_return_status);
1660: p_entity_id => l_line_adj_rec.Price_adjustment_id,
1661: p_request_type => NULL,
1662: x_return_status => l_return_status);
1663:
1664: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1665: THEN
1666: OE_MSG_PUB.Add_Exc_Msg
1667: ( G_PKG_NAME
1668: , 'Line_Adjs'
1662: x_return_status => l_return_status);
1663:
1664: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1665: THEN
1666: OE_MSG_PUB.Add_Exc_Msg
1667: ( G_PKG_NAME
1668: , 'Line_Adjs'
1669: );
1670: END IF;
1668: , 'Line_Adjs'
1669: );
1670: END IF;
1671:
1672: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1674:
1675: END;
1676: <
1678: END LOOP;
1679:
1680: -- Load OUT parameters
1681:
1682: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1683:
1684: oe_order_pvt.set_recursion_mode(p_Entity_Code => 6,
1685: p_In_out => 0);
1686:
1691: oe_order_pvt.set_recursion_mode(p_Entity_Code => 6,
1692: p_In_out => 0);
1693:
1694: adj_debug('Exiting oe_order_Adj_pvt.LINE_ADJS', 1);
1695: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1696: RAISE;
1697:
1698: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1699: oe_order_pvt.set_recursion_mode(p_Entity_Code => 6,
1699: oe_order_pvt.set_recursion_mode(p_Entity_Code => 6,
1700: p_In_out => 0);
1701:
1702:
1703: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1704: RAISE;
1705:
1706: WHEN OTHERS THEN
1707: oe_order_pvt.set_recursion_mode(p_Entity_Code => 6,
1706: WHEN OTHERS THEN
1707: oe_order_pvt.set_recursion_mode(p_Entity_Code => 6,
1708: p_In_out => 0);
1709:
1710: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1711: THEN
1712: OE_MSG_PUB.Add_Exc_Msg
1713: ( G_PKG_NAME
1714: , 'Line_Adjs'
1708: p_In_out => 0);
1709:
1710: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1711: THEN
1712: OE_MSG_PUB.Add_Exc_Msg
1713: ( G_PKG_NAME
1714: , 'Line_Adjs'
1715: );
1716: END IF;
1715: );
1716: END IF;
1717:
1718:
1719: OE_MSG_PUB.reset_msg_context('LINE_ADJ');
1720: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1721:
1722: END Line_Adjs;
1723:
1754:
1755: l_control_rec := p_control_rec; -- Added for Bug #5679839
1756:
1757: IF FND_API.to_Boolean(p_init_msg_list) THEN
1758: OE_MSG_PUB.initialize;
1759: END IF;
1760:
1761: IF l_control_rec.Process_Partial THEN
1762: SAVEPOINT Header_Price_Atts;
1811: l_source_document_id := null;
1812: END;
1813: END IF;
1814:
1815: OE_MSG_PUB.set_msg_context(
1816: p_entity_code => 'HEADER_PATTS'
1817: ,p_entity_id => l_header_Price_Att_rec.Order_price_attrib_id
1818: ,p_header_id => l_header_Price_Att_rec.header_Id
1819: ,p_line_id => null
1855: l_source_document_id := null;
1856: END;
1857: END IF;
1858:
1859: OE_MSG_PUB.set_msg_context(
1860: p_entity_code => 'HEADER_PATTS'
1861: ,p_entity_id => l_old_header_Price_Att_rec.Order_price_attrib_id
1862: ,p_header_id => l_old_header_Price_Att_rec.header_Id
1863: ,p_line_id => null
1928: ( p_x_Header_Price_Att_rec => l_Header_Price_Att_rec
1929: , p_old_Header_Price_Att_rec => l_old_Header_Price_Att_rec
1930: );
1931:
1932: OE_MSG_PUB.update_msg_context(
1933: p_entity_code => 'HEADER_ADJ'
1934: ,p_entity_id => l_header_Price_Att_rec.order_price_attrib_id
1935: ,p_header_id => l_header_Price_Att_rec.header_Id);
1936:
2168: /*
2169:
2170: OE_Header_PAttr_Security.g_check_all_cols_constraint := 'Y';
2171: */
2172: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
2173: -- loop exception handler.
2174:
2175: EXCEPTION
2176:
2180: p_x_Header_Price_Att_tbl(I) := l_Header_Price_Att_rec;
2181: p_x_old_Header_Price_Att_tbl(I) := l_old_Header_Price_Att_rec;
2182: /*
2183: OE_Header_PAttr_Security.g_check_all_cols_constraint := 'Y';
2184: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
2185: oe_delayed_requests_pvt.delete_request
2186: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
2187: p_entity_id => l_header_Price_Att_rec.order_price_attrib_id,
2188: p_request_type => NULL,
2201: p_x_Header_Price_Att_tbl(I) := l_Header_Price_Att_rec;
2202: p_x_old_Header_Price_Att_tbl(I) := l_old_Header_Price_Att_rec;
2203: /*
2204: OE_Header_PAttr_Security.g_check_all_cols_constraint := 'Y';
2205: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
2206: oe_delayed_requests_pvt.delete_request
2207: (p_entity_code =>OE_GLOBALS.G_ENTITY_HEADER_ADJ,
2208: p_entity_id => l_header_Price_Att_rec.order_price_attrib_id,
2209: p_request_type => NULL,
2216: l_Header_Price_Att_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2217: p_x_Header_Price_Att_tbl(I) := l_Header_Price_Att_rec;
2218: p_x_old_Header_Price_Att_tbl(I) := l_old_Header_Price_Att_rec;
2219:
2220: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2221: THEN
2222: OE_MSG_PUB.Add_Exc_Msg
2223: ( G_PKG_NAME
2224: , 'Header_Price_Atts'
2218: p_x_old_Header_Price_Att_tbl(I) := l_old_Header_Price_Att_rec;
2219:
2220: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2221: THEN
2222: OE_MSG_PUB.Add_Exc_Msg
2223: ( G_PKG_NAME
2224: , 'Header_Price_Atts'
2225: );
2226: END IF;
2224: , 'Header_Price_Atts'
2225: );
2226: END IF;
2227:
2228: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
2229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2230:
2231: END;
2232: I := p_x_Header_Price_Att_tbl.NEXT(I);
2235: -- Load OUT parameters
2236:
2237:
2238: oe_debug_pub.add('Exiting oe_order_Price_Att_pvt.HEADER_Price_Atts', 1);
2239: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
2240:
2241: EXCEPTION
2242:
2243: WHEN FND_API.G_EXC_ERROR THEN
2241: EXCEPTION
2242:
2243: WHEN FND_API.G_EXC_ERROR THEN
2244:
2245: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
2246: RAISE;
2247:
2248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2249:
2246: RAISE;
2247:
2248: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2249:
2250: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
2251: RAISE;
2252:
2253: WHEN OTHERS THEN
2254:
2251: RAISE;
2252:
2253: WHEN OTHERS THEN
2254:
2255: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2256: THEN
2257: OE_MSG_PUB.Add_Exc_Msg
2258: ( G_PKG_NAME
2259: , 'Header_Price_Atts'
2253: WHEN OTHERS THEN
2254:
2255: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2256: THEN
2257: OE_MSG_PUB.Add_Exc_Msg
2258: ( G_PKG_NAME
2259: , 'Header_Price_Atts'
2260: );
2261: END IF;
2260: );
2261: END IF;
2262:
2263:
2264: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
2265: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2266: adj_debug('Exiting oe_order_Adj_pvt.HEader_Price_Atts', 1);
2267:
2268: end HEader_Price_Atts;
2283: I pls_integer; -- Used as index for while loop
2284: BEGIN
2285:
2286: IF FND_API.to_Boolean(p_init_msg_list) THEN
2287: OE_MSG_PUB.initialize;
2288: END IF;
2289:
2290:
2291: IF l_control_rec.Process_Partial THEN
2313: END IF;
2314:
2315: if l_old_Header_Adj_Att_rec.Price_Adj_attrib_id = FND_API.G_MISS_NUM then
2316:
2317: OE_MSG_PUB.set_msg_context(
2318: p_entity_code => 'ADJ_ATTS'
2319: ,p_entity_id => l_Header_Adj_Att_rec.Price_adj_attrib_id);
2320:
2321: else
2319: ,p_entity_id => l_Header_Adj_Att_rec.Price_adj_attrib_id);
2320:
2321: else
2322:
2323: OE_MSG_PUB.set_msg_context(
2324: p_entity_code => 'ADJ_ATTS'
2325: ,p_entity_id => l_old_Header_Adj_Att_rec.Price_adj_attrib_id);
2326:
2327: end if;
2382: ( p_x_Header_Adj_Att_rec => l_Header_Adj_Att_rec
2383: , p_old_Header_Adj_Att_rec => l_old_Header_Adj_Att_rec
2384: );
2385:
2386: OE_MSG_PUB.update_msg_context(
2387: p_entity_code => 'ADJ_ATTS'
2388: ,p_entity_id => l_Header_Adj_Att_rec.Price_adj_attrib_id);
2389:
2390: END IF;
2465: ELSIF l_Header_Adj_Att_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2466: RAISE FND_API.G_EXC_ERROR;
2467: END IF;
2468:
2469: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2470: -- loop exception handler.
2471:
2472: EXCEPTION
2473:
2497: l_Header_Adj_Att_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2498: p_x_Header_Adj_Att_tbl(I) := l_Header_Adj_Att_rec;
2499: p_x_old_Header_Adj_Att_tbl(I) := l_old_Header_Adj_Att_rec;
2500:
2501: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2502: THEN
2503: OE_MSG_PUB.Add_Exc_Msg
2504: ( G_PKG_NAME
2505: , 'Header_price_atts'
2499: p_x_old_Header_Adj_Att_tbl(I) := l_old_Header_Adj_Att_rec;
2500:
2501: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2502: THEN
2503: OE_MSG_PUB.Add_Exc_Msg
2504: ( G_PKG_NAME
2505: , 'Header_price_atts'
2506: );
2507: END IF;
2505: , 'Header_price_atts'
2506: );
2507: END IF;
2508:
2509: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2510: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2511:
2512: END;
2513: I := p_x_Header_Adj_Att_tbl.NEXT(I);
2515:
2516: -- Load OUT parameters
2517:
2518: adj_debug('Exiting oe_order_Adj_pvt.Header_Adj_Atts', 1);
2519: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2520:
2521: EXCEPTION
2522:
2523: WHEN FND_API.G_EXC_ERROR THEN
2521: EXCEPTION
2522:
2523: WHEN FND_API.G_EXC_ERROR THEN
2524:
2525: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2526: RAISE;
2527:
2528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2529:
2526: RAISE;
2527:
2528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2529:
2530: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2531: RAISE;
2532:
2533: WHEN OTHERS THEN
2534:
2531: RAISE;
2532:
2533: WHEN OTHERS THEN
2534:
2535: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2536: THEN
2537: OE_MSG_PUB.Add_Exc_Msg
2538: ( G_PKG_NAME
2539: , 'Header_Adj_Atts'
2533: WHEN OTHERS THEN
2534:
2535: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2536: THEN
2537: OE_MSG_PUB.Add_Exc_Msg
2538: ( G_PKG_NAME
2539: , 'Header_Adj_Atts'
2540: );
2541: END IF;
2540: );
2541: END IF;
2542:
2543:
2544: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2545: adj_debug('Exiting oe_order_Adj_pvt.HEader_Adj_Atts', 1);
2546:
2547: end Header_Adj_Atts;
2548:
2562: I pls_integer; -- Used as index for while loop
2563: BEGIN
2564:
2565: IF FND_API.to_Boolean(p_init_msg_list) THEN
2566: OE_MSG_PUB.initialize;
2567: END IF;
2568:
2569: IF l_control_rec.Process_Partial THEN
2570: SAVEPOINT Header_Adj_Assocs;
2592: END IF;
2593:
2594: if l_old_Header_Adj_Assoc_rec.Price_Adj_assoc_id = FND_API.G_MISS_NUM then
2595:
2596: OE_MSG_PUB.set_msg_context(
2597: p_entity_code => 'ADJ_ATTS'
2598: ,p_entity_id => l_Header_Adj_Assoc_rec.Price_Adj_assoc_id);
2599:
2600: else
2598: ,p_entity_id => l_Header_Adj_Assoc_rec.Price_Adj_assoc_id);
2599:
2600: else
2601:
2602: OE_MSG_PUB.set_msg_context(
2603: p_entity_code => 'ADJ_ATTS'
2604: ,p_entity_id => l_old_Header_Adj_Assoc_rec.Price_Adj_assoc_id);
2605:
2606: end if;
2661: ( p_x_Header_Adj_Assoc_rec => l_Header_Adj_Assoc_rec
2662: , p_old_Header_Adj_Assoc_rec => l_old_Header_Adj_Assoc_rec
2663: );
2664:
2665: OE_MSG_PUB.update_msg_context(
2666: p_entity_code => 'ADJ_ATTS'
2667: ,p_entity_id => l_Header_Adj_Assoc_rec.Price_Adj_assoc_id);
2668:
2669: END IF;
2744: ELSIF l_Header_Adj_Assoc_rec.return_status = FND_API.G_RET_STS_ERROR THEN
2745: RAISE FND_API.G_EXC_ERROR;
2746: END IF;
2747:
2748: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2749: -- loop exception handler.
2750:
2751: EXCEPTION
2752:
2776: l_Header_Adj_Assoc_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2777: p_x_Header_Adj_Assoc_tbl(I) := l_Header_Adj_Assoc_rec;
2778: p_x_old_Header_Adj_Assoc_tbl(I) := l_old_Header_Adj_Assoc_rec;
2779:
2780: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2781: THEN
2782: OE_MSG_PUB.Add_Exc_Msg
2783: ( G_PKG_NAME
2784: , 'Header_price_atts'
2778: p_x_old_Header_Adj_Assoc_tbl(I) := l_old_Header_Adj_Assoc_rec;
2779:
2780: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2781: THEN
2782: OE_MSG_PUB.Add_Exc_Msg
2783: ( G_PKG_NAME
2784: , 'Header_price_atts'
2785: );
2786: END IF;
2784: , 'Header_price_atts'
2785: );
2786: END IF;
2787:
2788: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2789: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2790:
2791: END;
2792: I := p_x_Header_Adj_Assoc_tbl.NEXT(I);
2794:
2795: -- Load OUT parameters
2796:
2797: adj_debug('Exiting oe_order_Adj_pvt.Header_Adj_Assocs', 1);
2798: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2799:
2800: EXCEPTION
2801:
2802: WHEN FND_API.G_EXC_ERROR THEN
2800: EXCEPTION
2801:
2802: WHEN FND_API.G_EXC_ERROR THEN
2803:
2804: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2805: RAISE;
2806:
2807: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2808:
2805: RAISE;
2806:
2807: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2808:
2809: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2810: RAISE;
2811:
2812: WHEN OTHERS THEN
2813:
2810: RAISE;
2811:
2812: WHEN OTHERS THEN
2813:
2814: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2815: THEN
2816: OE_MSG_PUB.Add_Exc_Msg
2817: ( G_PKG_NAME
2818: , 'Header_Adj_Assocs'
2812: WHEN OTHERS THEN
2813:
2814: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2815: THEN
2816: OE_MSG_PUB.Add_Exc_Msg
2817: ( G_PKG_NAME
2818: , 'Header_Adj_Assocs'
2819: );
2820: END IF;
2819: );
2820: END IF;
2821:
2822:
2823: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
2824: adj_debug('Exiting oe_order_Adj_pvt.Header_Adj_Assocs', 1);
2825: end Header_Adj_Assocs;
2826:
2827: PROCEDURE Line_Price_Atts
2858:
2859: BEGIN
2860: l_control_rec := p_control_rec; -- Added for 1433292
2861: IF FND_API.to_Boolean(p_init_msg_list) THEN
2862: OE_MSG_PUB.initialize;
2863: END IF;
2864:
2865: IF l_control_rec.Process_Partial THEN
2866: SAVEPOINT Line_price_atts;
2923: l_orig_sys_shipment_ref := null;
2924: END;
2925: END IF;
2926:
2927: OE_MSG_PUB.set_msg_context(
2928: p_entity_code => 'LINE_PATTS'
2929: ,p_entity_id => l_Line_price_att_rec.Order_price_attrib_id
2930: ,p_header_id => l_Line_price_att_rec.header_Id
2931: ,p_line_id => l_Line_price_att_rec.Line_Id
2975: l_orig_sys_shipment_ref := null;
2976: END;
2977: END IF;
2978:
2979: OE_MSG_PUB.set_msg_context(
2980: p_entity_code => 'LINE_PATTS'
2981: ,p_entity_id => l_old_Line_price_att_rec.Order_price_attrib_id
2982: ,p_header_id => l_old_Line_price_att_rec.header_Id
2983: ,p_line_id => l_old_Line_price_att_rec.Line_Id
3047: ( p_x_Line_price_att_rec => l_Line_Price_Att_rec
3048: , p_old_Line_price_att_rec => l_old_Line_Price_Att_rec
3049: );
3050:
3051: OE_MSG_PUB.update_msg_context(
3052: p_entity_code => 'LINE_PATTS'
3053: ,p_entity_id => l_Line_price_att_rec.order_price_attrib_id
3054: ,p_header_id => l_Line_price_att_rec.header_Id
3055: ,p_line_id => l_Line_price_att_rec.line_id);
3302: ELSIF l_Line_price_att_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3303: RAISE FND_API.G_EXC_ERROR;
3304: END IF;
3305:
3306: OE_MSG_PUB.reset_msg_context('HEADER_ADJ');
3307: -- loop exception handler.
3308:
3309: EXCEPTION
3310:
3334: l_Line_price_att_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3335: p_x_Line_price_att_tbl(I) := l_Line_Price_Att_rec;
3336: p_x_old_Line_price_att_tbl(I) := l_old_Line_Price_Att_rec;
3337:
3338: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3339: THEN
3340: OE_MSG_PUB.Add_Exc_Msg
3341: ( G_PKG_NAME
3342: , 'Line_price_atts'
3336: p_x_old_Line_price_att_tbl(I) := l_old_Line_Price_Att_rec;
3337:
3338: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3339: THEN
3340: OE_MSG_PUB.Add_Exc_Msg
3341: ( G_PKG_NAME
3342: , 'Line_price_atts'
3343: );
3344: END IF;
3342: , 'Line_price_atts'
3343: );
3344: END IF;
3345:
3346: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
3347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3348:
3349: END;
3350: I := p_x_Line_price_att_tbl.NEXT(I);
3352:
3353: -- Load OUT parameters
3354:
3355: adj_debug('Exiting oe_order_Adj_pvt.Line_price_atts', 1);
3356: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
3357:
3358: EXCEPTION
3359:
3360: WHEN FND_API.G_EXC_ERROR THEN
3358: EXCEPTION
3359:
3360: WHEN FND_API.G_EXC_ERROR THEN
3361:
3362: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
3363: RAISE;
3364:
3365: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3366:
3363: RAISE;
3364:
3365: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3366:
3367: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
3368: RAISE;
3369:
3370: WHEN OTHERS THEN
3371:
3368: RAISE;
3369:
3370: WHEN OTHERS THEN
3371:
3372: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3373: THEN
3374: OE_MSG_PUB.Add_Exc_Msg
3375: ( G_PKG_NAME
3376: , 'Line_price_atts'
3370: WHEN OTHERS THEN
3371:
3372: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3373: THEN
3374: OE_MSG_PUB.Add_Exc_Msg
3375: ( G_PKG_NAME
3376: , 'Line_price_atts'
3377: );
3378: END IF;
3377: );
3378: END IF;
3379:
3380:
3381: OE_MSG_PUB.reset_msg_context('LINE_PATTS');
3382: adj_debug('Exiting oe_order_Adj_pvt.Line_Price_Atts', 1);
3383: end Line_Price_Atts;
3384:
3385:
3439: I pls_integer; -- Used as index for while loop
3440: BEGIN
3441:
3442: IF FND_API.to_Boolean(p_init_msg_list) THEN
3443: OE_MSG_PUB.initialize;
3444: END IF;
3445:
3446: IF l_control_rec.Process_Partial THEN
3447: SAVEPOINT Line_Adj_atts;
3468: END IF;
3469:
3470: if l_old_Line_Adj_Att_rec.Price_Adj_attrib_id = FND_API.G_MISS_NUM then
3471:
3472: OE_MSG_PUB.set_msg_context(
3473: p_entity_code => 'ADJ_ATTS'
3474: ,p_entity_id => l_Line_Adj_Att_rec.Price_adj_attrib_id);
3475:
3476: else
3474: ,p_entity_id => l_Line_Adj_Att_rec.Price_adj_attrib_id);
3475:
3476: else
3477:
3478: OE_MSG_PUB.set_msg_context(
3479: p_entity_code => 'ADJ_ATTS'
3480: ,p_entity_id => l_old_Line_Adj_Att_rec.Price_adj_attrib_id);
3481:
3482: end if;
3537: ( p_x_Line_Adj_Att_rec => l_Line_Adj_Att_rec
3538: , p_old_Line_Adj_Att_rec => l_old_Line_Adj_Att_rec
3539: );
3540:
3541: OE_MSG_PUB.update_msg_context(
3542: p_entity_code => 'ADJ_ATTS'
3543: ,p_entity_id => l_Line_Adj_Att_rec.Price_adj_attrib_id);
3544:
3545: END IF;
3641: ELSIF l_Line_Adj_Att_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3642: RAISE FND_API.G_EXC_ERROR;
3643: END IF;
3644:
3645: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3646: -- loop exception handler.
3647:
3648: EXCEPTION
3649:
3673: l_Line_Adj_Att_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3674: p_x_Line_Adj_Att_tbl(I) := l_Line_Adj_Att_rec;
3675: p_x_old_Line_Adj_Att_tbl(I) := l_old_Line_Adj_Att_rec;
3676:
3677: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3678: THEN
3679: OE_MSG_PUB.Add_Exc_Msg
3680: ( G_PKG_NAME
3681: , 'Line_Adj_atts'
3675: p_x_old_Line_Adj_Att_tbl(I) := l_old_Line_Adj_Att_rec;
3676:
3677: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3678: THEN
3679: OE_MSG_PUB.Add_Exc_Msg
3680: ( G_PKG_NAME
3681: , 'Line_Adj_atts'
3682: );
3683: END IF;
3681: , 'Line_Adj_atts'
3682: );
3683: END IF;
3684:
3685: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3687:
3688: END;
3689: I := p_x_Line_Adj_Att_tbl.NEXT(I);
3691:
3692: -- Load OUT parameters
3693:
3694: adj_debug('Exiting oe_order_Adj_pvt.Line_Adj_atts', 1);
3695: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3696:
3697: EXCEPTION
3698:
3699: WHEN FND_API.G_EXC_ERROR THEN
3697: EXCEPTION
3698:
3699: WHEN FND_API.G_EXC_ERROR THEN
3700:
3701: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3702: RAISE;
3703:
3704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3705:
3702: RAISE;
3703:
3704: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3705:
3706: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3707: RAISE;
3708:
3709: WHEN OTHERS THEN
3710:
3707: RAISE;
3708:
3709: WHEN OTHERS THEN
3710:
3711: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3712: THEN
3713: OE_MSG_PUB.Add_Exc_Msg
3714: ( G_PKG_NAME
3715: , 'Line_Adj_atts'
3709: WHEN OTHERS THEN
3710:
3711: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3712: THEN
3713: OE_MSG_PUB.Add_Exc_Msg
3714: ( G_PKG_NAME
3715: , 'Line_Adj_atts'
3716: );
3717: END IF;
3716: );
3717: END IF;
3718:
3719:
3720: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3721:
3722: adj_debug('Exiting oe_order_Adj_pvt.Line_Adj_Atts', 1);
3723: end Line_Adj_Atts;
3724:
3776: I pls_integer; -- Used as index for while loop
3777: BEGIN
3778:
3779: IF FND_API.to_Boolean(p_init_msg_list) THEN
3780: OE_MSG_PUB.initialize;
3781: END IF;
3782:
3783: IF l_control_rec.Process_Partial THEN
3784: SAVEPOINT Line_Adj_Assocs;
3808: END IF;
3809:
3810: if l_old_Line_Adj_Assoc_rec.Price_Adj_assoc_id = FND_API.G_MISS_NUM then
3811:
3812: OE_MSG_PUB.set_msg_context(
3813: p_entity_code => 'ADJ_ATTS'
3814: ,p_entity_id => l_Line_Adj_Assoc_rec.Price_Adj_assoc_id);
3815:
3816: else
3814: ,p_entity_id => l_Line_Adj_Assoc_rec.Price_Adj_assoc_id);
3815:
3816: else
3817:
3818: OE_MSG_PUB.set_msg_context(
3819: p_entity_code => 'ADJ_ATTS'
3820: ,p_entity_id => l_old_Line_Adj_Assoc_rec.Price_Adj_assoc_id);
3821:
3822: end if;
3878: ( p_x_Line_Adj_Assoc_rec => l_Line_Adj_Assoc_rec
3879: , p_old_Line_Adj_Assoc_rec => l_old_Line_Adj_Assoc_rec
3880: );
3881:
3882: OE_MSG_PUB.update_msg_context(
3883: p_entity_code => 'ADJ_ATTS'
3884: ,p_entity_id => l_Line_Adj_Assoc_rec.Price_Adj_assoc_id);
3885:
3886: END IF;
3964: ELSIF l_Line_Adj_Assoc_rec.return_status = FND_API.G_RET_STS_ERROR THEN
3965: RAISE FND_API.G_EXC_ERROR;
3966: END IF;
3967:
3968: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
3969: -- loop exception handler.
3970:
3971: EXCEPTION
3972:
3996: l_Line_Adj_Assoc_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3997: p_x_Line_Adj_Assoc_tbl(I) := l_Line_Adj_Assoc_rec;
3998: p_x_old_Line_Adj_Assoc_tbl(I) := l_old_Line_Adj_Assoc_rec;
3999:
4000: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4001: THEN
4002: OE_MSG_PUB.Add_Exc_Msg
4003: ( G_PKG_NAME
4004: , 'Header_price_atts'
3998: p_x_old_Line_Adj_Assoc_tbl(I) := l_old_Line_Adj_Assoc_rec;
3999:
4000: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4001: THEN
4002: OE_MSG_PUB.Add_Exc_Msg
4003: ( G_PKG_NAME
4004: , 'Header_price_atts'
4005: );
4006: END IF;
4004: , 'Header_price_atts'
4005: );
4006: END IF;
4007:
4008: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
4009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4010:
4011: END;
4012: I := p_x_Line_Adj_Assoc_tbl.NEXT(I);
4014:
4015: -- Load OUT parameters
4016:
4017: adj_debug('Exiting oe_order_Adj_pvt.Line_Adj_Assocs', 1);
4018: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
4019:
4020: EXCEPTION
4021:
4022: WHEN FND_API.G_EXC_ERROR THEN
4020: EXCEPTION
4021:
4022: WHEN FND_API.G_EXC_ERROR THEN
4023:
4024: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
4025: RAISE;
4026:
4027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4028:
4025: RAISE;
4026:
4027: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4028:
4029: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
4030: RAISE;
4031:
4032: WHEN OTHERS THEN
4033:
4030: RAISE;
4031:
4032: WHEN OTHERS THEN
4033:
4034: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4035: THEN
4036: OE_MSG_PUB.Add_Exc_Msg
4037: ( G_PKG_NAME
4038: , 'Line_Adj_Assocs'
4032: WHEN OTHERS THEN
4033:
4034: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4035: THEN
4036: OE_MSG_PUB.Add_Exc_Msg
4037: ( G_PKG_NAME
4038: , 'Line_Adj_Assocs'
4039: );
4040: END IF;
4039: );
4040: END IF;
4041:
4042:
4043: OE_MSG_PUB.reset_msg_context('ADJ_ATTS');
4044: adj_debug('Exiting oe_order_Adj_pvt.Line_Adj_Assocs', 1);
4045: end Line_Adj_Assocs;
4046:
4047: Function Enforce_list_Price
5696: and p_use_current_header = FALSE
5697: then
5698: l_return_status := FND_API.G_RET_STS_ERROR;
5699:
5700: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
5701: THEN
5702:
5703: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
5704: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','line_id or Header Id ');
5701: THEN
5702:
5703: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
5704: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','line_id or Header Id ');
5705: OE_MSG_PUB.Add;
5706: END IF;
5707: RAISE FND_API.G_EXC_ERROR;
5708: end if;
5709:
5708: end if;
5709:
5710: G_STMT_NO := 'calculate_adjustments#20';
5711: if p_Line_id is not null and p_Header_id is not null then
5712: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5713: THEN
5714: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME ,
5715: 'oe_line_adj.calulate_adjustments'
5716: ,'Keys are mutually exclusive');
5710: G_STMT_NO := 'calculate_adjustments#20';
5711: if p_Line_id is not null and p_Header_id is not null then
5712: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5713: THEN
5714: OE_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME ,
5715: 'oe_line_adj.calulate_adjustments'
5716: ,'Keys are mutually exclusive');
5717: END IF;
5718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5898: End;
5899: fnd_message.set_name('ONT','ONT_INVALID_AGR_REVISION');
5900: fnd_message.set_TOKEN('AGREEMENT',l_agreement_name||' : '||l_revision);
5901: fnd_message.set_TOKEN('PRICING_DATE',l_line_tbl(line_Tbl_Index).PRICING_DATE);
5902: OE_MSG_PUB.Add;
5903: RAISE OE_AGREEMENT_ERROR;
5904: END;
5905: End If;
5906: --End 2124989
6378: WHEN FND_API.G_EXC_ERROR THEN
6379:
6380: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
6381: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_Text);
6382: OE_MSG_PUB.Add;
6383: x_return_status := FND_API.G_RET_STS_ERROR;
6384:
6385: adj_debug('g_exc_error is '||g_stmt_no||' '||sqlerrm,1);
6386: adj_debug('g_exc_error is '||l_return_status_Text);
6396: /* END 2124989 */
6397: WHEN QP_ATTR_MAPPING_ERROR THEN
6398: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
6399: FND_MESSAGE.SET_TOKEN('ERR_TEXT','Please make sure Run QP Build Sourcing Rule has completed sucessfully');
6400: OE_MSG_PUB.Add;
6401: oe_debug_pub.add(' QP Attr Mapping threw exception');
6402: RAISE FND_API.G_EXC_ERROR;
6403: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6404:
6403: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6404:
6405: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
6406: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_Text);
6407: OE_MSG_PUB.Add;
6408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6409: adj_debug('G_EXC_UNEXPECTED_ERROR is '||g_stmt_no||' '||sqlerrm,1);
6410: adj_debug('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
6411:
6416: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6417: --dbms_output.put_line('Error is '||sqlerrm);
6418: adj_debug('Error Code is '||g_stmt_no||' '||sqlerrm,1);
6419:
6420: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6421: THEN
6422: OE_MSG_PUB.Add_Exc_Msg
6423: ( G_PKG_NAME
6424: , 'oe_line_adj.calulate_adjustments',
6418: adj_debug('Error Code is '||g_stmt_no||' '||sqlerrm,1);
6419:
6420: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6421: THEN
6422: OE_MSG_PUB.Add_Exc_Msg
6423: ( G_PKG_NAME
6424: , 'oe_line_adj.calulate_adjustments',
6425: g_stmt_no||' '||sqlerrm
6426: );
6487: );
6488: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
6489: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
6490: FND_MESSAGE.SET_TOKEN('ERR_TEXT',x_return_status_txt);
6491: OE_MSG_PUB.Add;
6492: RAISE FND_API.G_EXC_ERROR;
6493: END IF;
6494: else
6495: p_Line_Adj_Rec.list_line_no := p_req_line_detail_Rec.list_line_no;
7749: /* 2270949 : delay logging message
7750: FND_MESSAGE.SET_NAME('ONT','ONT_CREATED_NEW_LINE');
7751: FND_MESSAGE.SET_TOKEN('ITEM',l_line_rec.ordered_item);
7752: FND_MESSAGE.SET_TOKEN('QUANTITY',l_line_rec.Ordered_quantity);
7753: OE_MSG_PUB.Add('N');
7754: */
7755: adj_debug('inside price line: setting cascade');
7756:
7757: p_Rltd_lines_prcd(l_Req_Line_Index) := p_line_Tbl.last;
8018: if nvl(p_price_event1,'N') <> 'PRICE' then --bug 2273446
8019: FND_MESSAGE.SET_NAME('ONT','OE_GSA_VIOLATION');
8020: l_msg_text := l_operand||' ( '||l_msg_text||' )';
8021: FND_MESSAGE.SET_TOKEN('GSA_PRICE',l_msg_text);
8022: OE_MSG_PUB.Add;
8023: end if; --bug 2273446
8024:
8025: Else
8026: G_STMT_NO := 'Gsa_Check#20.15';
8032: from oe_hold_definitions where type_code='GSA';
8033: Exception when no_data_found then
8034: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
8035: FND_MESSAGE.SET_TOKEN('ERR_TEXT','Missing hold_definition for type_code GSA');
8036: OE_MSG_PUB.Add;
8037: adj_debug('Missing hold_definition for type_code GSA');
8038: End;*/
8039:
8040: If p_line_id is null or
8040: If p_line_id is null or
8041: p_line_id = fnd_api.g_miss_num then
8042: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
8043: FND_MESSAGE.SET_TOKEN('ERR_TEXT','GSA_INVALID_LINE_ID');
8044: OE_MSG_PUB.Add;
8045: RAISE FND_API.G_EXC_ERROR;
8046: End if;
8047:
8048: G_STMT_NO := 'Gsa_Check#20.20';
8096: If l_return_status = FND_API.g_ret_sts_success then
8097: if nvl(p_price_event1,'N') <> 'PRICE' then --bug 2273446
8098:
8099: FND_MESSAGE.SET_NAME('ONT','OE_GSA_HOLD_APPLIED');
8100: OE_MSG_PUB.Add;
8101: end if; --bug 2273446
8102: Else
8103: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
8104: FND_MESSAGE.SET_TOKEN('ERR_TEXT','APPLY_GSA_HOLD');
8101: end if; --bug 2273446
8102: Else
8103: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
8104: FND_MESSAGE.SET_TOKEN('ERR_TEXT','APPLY_GSA_HOLD');
8105: OE_MSG_PUB.Add;
8106: RAISE FND_API.G_EXC_ERROR;
8107: End If;
8108: End If; /* check hold */
8109: End If; --for bug 2028480 end
8124: from oe_hold_definitions where type_code='GSA';
8125: Exception when no_data_found then
8126: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
8127: FND_MESSAGE.SET_TOKEN('ERR_TEXT','Missing hold_definition for type_code GSA');
8128: OE_MSG_PUB.Add;
8129: adj_debug('Missing hold_definition for type_code GSA');
8130: End;*/
8131:
8132: End if; -- Hold id
8868: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_PRICE');
8869: FND_MESSAGE.SET_TOKEN('ITEM',p_line_tbl(i).Ordered_Item);
8870: FND_MESSAGE.SET_TOKEN('LIST_PRICE',p_line_tbl(i).unit_List_price_per_pqty);
8871: FND_MESSAGE.SET_TOKEN('SELLING_PRICE',p_line_tbl(i).Unit_Selling_price_per_pqty);
8872: OE_MSG_PUB.Add;
8873: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_MODIFIERS');
8874: FND_MESSAGE.SET_TOKEN('LIST_LINE_NO',get_list_lines(p_line_tbl(i).line_id));
8875: OE_MSG_PUB.ADD;
8876:
8871: FND_MESSAGE.SET_TOKEN('SELLING_PRICE',p_line_tbl(i).Unit_Selling_price_per_pqty);
8872: OE_MSG_PUB.Add;
8873: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_MODIFIERS');
8874: FND_MESSAGE.SET_TOKEN('LIST_LINE_NO',get_list_lines(p_line_tbl(i).line_id));
8875: OE_MSG_PUB.ADD;
8876:
8877: RAISE FND_API.G_EXC_ERROR;
8878:
8879: End If; -- Negative Price
9232: QP_PREQ_GRP.G_STATUS_INVALID_UOM_CONV,
9233: QP_PREQ_GRP.G_STATUS_INVALID_INCOMP,
9234: QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR)
9235: then
9236: OE_MSG_PUB.set_msg_context
9237: ( p_entity_code => 'LINE'
9238: ,p_entity_id => l_line_rec.line_id
9239: ,p_header_id => l_line_rec.header_id
9240: ,p_line_id => l_line_rec.line_id
9267: FND_MESSAGE.SET_NAME('ONT','OE_PRC_NO_LIST_PRICE');
9268: FND_MESSAGE.SET_TOKEN('ITEM',l_line_rec.Ordered_Item);
9269: FND_MESSAGE.SET_TOKEN('UNIT',l_line_rec.Order_Quantity_uom);
9270: FND_MESSAGE.SET_TOKEN('PRICE_LIST',l_Price_List);
9271: OE_MSG_PUB.Add;
9272: End If;
9273:
9274: G_IPL_ERRORS_TBL(MOD(l_line_rec.line_id,G_BINARY_LIMIT)):=l_line_rec.price_list_id; -- Bug 8631297
9275: oe_debug_pub.add('Before checking book flag');
9279: oe_debug_pub.add(' Before setting message');
9280: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
9281: oe_debug_pub.add(' Before setting token');
9282: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','price list');
9283: OE_MSG_PUB.ADD;
9284: oe_debug_pub.add('Process adjustments before raising g_exc_error');
9285: RAISE FND_API.G_EXC_ERROR;
9286: End If;
9287:
9314: adj_debug('Price List Not found');
9315: FND_MESSAGE.SET_NAME('ONT','ONT_NO_PRICE_LIST_FOUND');
9316: FND_MESSAGE.SET_TOKEN('ITEM',l_line_rec.Ordered_Item);
9317: FND_MESSAGE.SET_TOKEN('UOM',l_line_rec.Order_Quantity_uom);
9318: OE_MSG_PUB.Add;
9319: Elsif p_req_line_tbl(i).status_code = QP_PREQ_GRP.G_STATUS_FORMULA_ERROR then
9320: adj_debug('Error in Formula processing');
9321: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_ERROR_IN_FORMULA');
9322: FND_MESSAGE.SET_TOKEN('ERR_TEXT',p_req_line_tbl(i).status_text||SQLERRM);
9319: Elsif p_req_line_tbl(i).status_code = QP_PREQ_GRP.G_STATUS_FORMULA_ERROR then
9320: adj_debug('Error in Formula processing');
9321: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_ERROR_IN_FORMULA');
9322: FND_MESSAGE.SET_TOKEN('ERR_TEXT',p_req_line_tbl(i).status_text||SQLERRM);
9323: OE_MSG_PUB.Add;
9324: Elsif p_req_line_tbl(i).status_code in
9325: ( QP_PREQ_GRP.G_STATUS_OTHER_ERRORS , FND_API.G_RET_STS_UNEXP_ERROR,
9326: FND_API.G_RET_STS_ERROR)
9327: then
9327: then
9328: adj_debug('Other errors processing');
9329: FND_MESSAGE.SET_NAME('ONT','ONT_PRICING_ERRORS'); --bug#7149497
9330: FND_MESSAGE.SET_TOKEN('ERR_TEXT',p_req_line_tbl(i).status_text||SQLERRM);
9331: OE_MSG_PUB.Add;
9332: Elsif p_req_line_tbl(i).status_code = QP_PREQ_GRP.G_STATUS_INVALID_UOM then
9333: adj_debug('Invalid uom');
9334: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_UOM');
9335: FND_MESSAGE.SET_TOKEN('ITEM',l_line_rec.Ordered_Item);
9333: adj_debug('Invalid uom');
9334: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_UOM');
9335: FND_MESSAGE.SET_TOKEN('ITEM',l_line_rec.Ordered_Item);
9336: FND_MESSAGE.SET_TOKEN('UOM',l_line_rec.Order_Quantity_uom);
9337: OE_MSG_PUB.Add;
9338: Elsif p_req_line_tbl(i).status_code = QP_PREQ_GRP.G_STATUS_DUP_PRICE_LIST then
9339: adj_debug('Duplicate price list');
9340: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_DUPLICATE_PRICE_LIST');
9341:
9371: instr(p_req_line_tbl(i).status_text,',')+1);
9372:
9373: End;
9374: FND_MESSAGE.SET_TOKEN('PRICE_LIST2',l_price_list);
9375: OE_MSG_PUB.Add;
9376: Elsif p_req_line_tbl(i).status_code = QP_PREQ_GRP.G_STATUS_INVALID_UOM_CONV then
9377: adj_debug('Invalid UOM Conversion');
9378: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_UOM_CONVERSION');
9379: FND_MESSAGE.SET_TOKEN('UOM_TEXT','( '||l_line_rec.Ordered_Item||' ) '||
9377: adj_debug('Invalid UOM Conversion');
9378: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_UOM_CONVERSION');
9379: FND_MESSAGE.SET_TOKEN('UOM_TEXT','( '||l_line_rec.Ordered_Item||' ) '||
9380: p_req_line_tbl(i).status_text);
9381: OE_MSG_PUB.Add;
9382: Elsif p_req_line_tbl(i).status_code = QP_PREQ_GRP.G_STATUS_INVALID_INCOMP then
9383: adj_debug('Unable to resolve incompatibility');
9384: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_INCOMP');
9385: FND_MESSAGE.SET_TOKEN('ERR_TEXT','( '||l_line_rec.Ordered_Item||' ) '||
9383: adj_debug('Unable to resolve incompatibility');
9384: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_INVALID_INCOMP');
9385: FND_MESSAGE.SET_TOKEN('ERR_TEXT','( '||l_line_rec.Ordered_Item||' ) '||
9386: p_req_line_tbl(i).status_text);
9387: OE_MSG_PUB.Add;
9388: Elsif p_req_line_tbl(i).status_code = QP_PREQ_GRP.G_STATUS_BEST_PRICE_EVAL_ERROR then
9389: adj_debug('Error while evaluating the best price');
9390: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_BEST_PRICE_ERROR');
9391: FND_MESSAGE.SET_TOKEN('ITEM',l_line_rec.Ordered_Item);
9389: adj_debug('Error while evaluating the best price');
9390: FND_MESSAGE.SET_NAME('ONT','ONT_PRC_BEST_PRICE_ERROR');
9391: FND_MESSAGE.SET_TOKEN('ITEM',l_line_rec.Ordered_Item);
9392: FND_MESSAGE.SET_TOKEN('ERR_TEXT',p_req_line_tbl(i).status_text);
9393: OE_MSG_PUB.Add;
9394: End if;
9395:
9396: --RAISE FND_API.G_EXC_ERROR;
9397: --btea begin if do not write to db, we still need to
9419: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_PRICE');
9420: FND_MESSAGE.SET_TOKEN('ITEM',l_line_rec.Ordered_Item);
9421: FND_MESSAGE.SET_TOKEN('LIST_PRICE',p_req_line_tbl(i).unit_price);
9422: FND_MESSAGE.SET_TOKEN('SELLING_PRICE',p_req_line_tbl(i).Adjusted_unit_price);
9423: OE_MSG_PUB.Add;
9424: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_MODIFIERS');
9425: FND_MESSAGE.SET_TOKEN('LIST_LINE_NO',get_list_lines(p_req_line_tbl(i).line_id));
9426: OE_MSG_PUB.Add;
9427:
9422: FND_MESSAGE.SET_TOKEN('SELLING_PRICE',p_req_line_tbl(i).Adjusted_unit_price);
9423: OE_MSG_PUB.Add;
9424: FND_MESSAGE.SET_NAME('ONT','ONT_NEGATIVE_MODIFIERS');
9425: FND_MESSAGE.SET_TOKEN('LIST_LINE_NO',get_list_lines(p_req_line_tbl(i).line_id));
9426: OE_MSG_PUB.Add;
9427:
9428: RAISE FND_API.G_EXC_ERROR;
9429: elsif
9430: p_req_line_tbl(i).line_Type_code ='LINE' and
9433:
9434: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
9435: FND_MESSAGE.SET_TOKEN('ERR_TEXT','( '||l_line_rec.Ordered_Item||' ) '||
9436: p_req_line_tbl(i).STATUS_TEXT);
9437: OE_MSG_PUB.Add;
9438:
9439: elsif
9440: ( p_req_line_tbl(i).line_Type_code ='LINE' and
9441: p_req_line_tbl(i).status_code in
9568:
9569: oe_debug_pub.add('Before Reset_fields');
9570: If l_invalid_line = 'Y' Then
9571: select oe_msg_request_id_s.nextval into l_request_id from dual;
9572: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
9573: Reset_Fields(l_line_rec);
9574: l_invalid_line := 'N';
9575: End If;
9576:
9584: IF (p_req_line_tbl(i).hold_code = QP_PREQ_GRP.G_STATUS_LIMIT_HOLD) or
9585: p_req_line_tbl(i).hold_code = QP_PREQ_GRP.G_STATUS_LIMIT_ADJUSTED THEN
9586: IF (l_limit_hold_action = 'NO_HOLD') THEN
9587: FND_MESSAGE.SET_NAME('ONT','ONT_PROMO_LIMIT_EXCEEDED');
9588: OE_MSG_PUB.ADD;
9589: ELSE
9590: IF ( p_req_line_tbl(i).line_type_code = 'LINE' )
9591: Then
9592: -- adj_debug('PAL PROMOTIONS - putting entity on HOLD - line type code is ' || p_req_line_tbl(i).line_type_code);
9641: l_orig_sys_shipment_ref := null;
9642: END;
9643: END IF;
9644:
9645: OE_MSG_PUB.set_msg_context
9646: ( p_entity_code => 'LINE'
9647: ,p_entity_id => p_req_line_tbl(i).line_id
9648: ,p_header_id => p_req_line_tbl(i).header_id
9649: ,p_line_id => p_req_line_tbl(i).line_id
9855: Elsif to_char(l_line_tbl( p_req_line_detail_Tbl(j).line_index).Inventory_item_id ) <>
9856: p_req_line_detail_Tbl(j).RELATED_ITEM_ID Then
9857:
9858: FND_MESSAGE.SET_NAME('ONT','ONT_ITEM_UPGRADE_NOT_ALLOWED');
9859: OE_MSG_PUB.Add;
9860: adj_debug('Item Upgrade not allowed after booking...');
9861: l_line_adj_Tbl(l_Adj_Index).operation := fnd_api.g_miss_char;
9862:
9863: End If; -- Booked_Flag
9957: or (p_req_line_detail_Tbl(j).limit_code = QP_PREQ_GRP.G_STATUS_LIMIT_ADJUSTED ) )
9958: then
9959: -- adj_debug('PAL PROMOTIONS - G_STATUS_LIMIT_EXCEEDED or G_STATUS_LIMIT_ADJUSTED IN _Adj_pvt.process_adjustments',1);
9960: IF (p_req_line_tbl(p_req_line_detail_tbl(j).line_index).LINE_TYPE_CODE='ORDER') THEN
9961: OE_MSG_PUB.set_msg_context
9962: ( p_entity_code => 'HEADER'
9963: ,p_entity_id => p_header_rec.header_id--p_req_line_tbl(j).line_id
9964: ,p_header_id => p_header_rec.header_id
9965: ,p_line_id => NULL--p_req_line_tbl(j).line_id
10005: l_source_document_line_id := null;
10006: l_orig_sys_shipment_ref := null;
10007: END;
10008: END IF;
10009: OE_MSG_PUB.set_msg_context
10010: ( p_entity_code => 'LINE'
10011: ,p_entity_id => p_req_line_tbl(p_req_line_detail_tbl(j).line_index).LINE_ID
10012: ,p_header_id => p_header_rec.header_id
10013: ,p_line_id => p_req_line_tbl(p_req_line_detail_tbl(j).line_index).line_id
10022: END IF;
10023:
10024: FND_MESSAGE.SET_NAME('ONT','ONT_PROMO_LIMIT_EXCEEDED');
10025: FND_MESSAGE.SET_TOKEN('ERR_TEXT', p_req_line_detail_tbl(j).LIMIT_TEXT);
10026: OE_MSG_PUB.Add;
10027: IF (OE_GLOBALS.G_UI_FLAG ) THEN
10028: IF (G_REQUEST_ID IS NULL) THEN
10029: select oe_msg_request_id_s.nextval into g_request_id from dual;
10030: END IF;
10027: IF (OE_GLOBALS.G_UI_FLAG ) THEN
10028: IF (G_REQUEST_ID IS NULL) THEN
10029: select oe_msg_request_id_s.nextval into g_request_id from dual;
10030: END IF;
10031: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, G_REQUEST_ID,'U');
10032: OE_MSG_PUB.DELETE_MSG(OE_MSG_PUB.COUNT_MSG);
10033: END IF;
10034:
10035: end if; --PROMOTIONS SEP/01 end
10028: IF (G_REQUEST_ID IS NULL) THEN
10029: select oe_msg_request_id_s.nextval into g_request_id from dual;
10030: END IF;
10031: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, G_REQUEST_ID,'U');
10032: OE_MSG_PUB.DELETE_MSG(OE_MSG_PUB.COUNT_MSG);
10033: END IF;
10034:
10035: end if; --PROMOTIONS SEP/01 end
10036:
10327: else
10328: --bug 2412868 end
10329: FND_MESSAGE.SET_TOKEN('QUANTITY',l_line_tbl_final(l).Ordered_quantity);
10330: end if;
10331: OE_MSG_PUB.Add('N');
10332: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
10333: end if;
10334: -- end 2270949
10335:
10525: If l_Line_Tbl_Final(j).unit_selling_price IS NULL Then
10526: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
10527: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
10528: OE_Order_UTIL.Get_Attribute_Name('UNIT_SELLING_PRICE'));
10529: OE_MSG_PUB.ADD;
10530: End If;
10531:
10532: If l_line_tbl_final(j).unit_list_price IS NULL Then
10533: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
10532: If l_line_tbl_final(j).unit_list_price IS NULL Then
10533: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
10534: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',
10535: OE_Order_UTIL.Get_Attribute_Name('UNIT_LIST_PRICE'));
10536: OE_MSG_PUB.ADD;
10537: End If;
10538:
10539: If l_line_tbl_final(j).price_list_id IS NULL Then
10540: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
10538:
10539: If l_line_tbl_final(j).price_list_id IS NULL Then
10540: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
10541: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','LIST PRICE');
10542: OE_MSG_PUB.ADD;
10543: End If;
10544:
10545: RAISE FND_API.G_EXC_ERROR;
10546: --
10863: --dbms_output.put_line('Error is '||sqlerrm);
10864: adj_debug('Error in oe_order_Adj_pvt.process_adjustments',1);
10865: adj_debug(' '||g_stmt_no||' '||sqlerrm,1);
10866:
10867: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10868: THEN
10869: OE_MSG_PUB.Add_Exc_Msg
10870: ( G_PKG_NAME
10871: , 'oe_order_Adj_pvt.process_adjustments',
10865: adj_debug(' '||g_stmt_no||' '||sqlerrm,1);
10866:
10867: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10868: THEN
10869: OE_MSG_PUB.Add_Exc_Msg
10870: ( G_PKG_NAME
10871: , 'oe_order_Adj_pvt.process_adjustments',
10872: g_stmt_no||' '||sqlerrm
10873: );
10962: l_header_id := p_header_id;
10963: Else
10964: if (px_line_tbl.count = 0 and (p_line_id is Null OR p_line_id = FND_API.G_MISS_NUM)) Then
10965:
10966: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
10967: THEN
10968:
10969: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
10970: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','line_id or Header Id ');
10967: THEN
10968:
10969: FND_MESSAGE.SET_NAME('ONT','OE_ATTRIBUTE_REQUIRED');
10970: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','line_id or Header Id ');
10971: OE_MSG_PUB.Add;
10972: END IF;
10973: RAISE FND_API.G_EXC_ERROR;
10974: elsif (px_line_Tbl.count = 0) Then
10975: OE_Line_Util.Query_Rows(p_line_id => p_line_id
11188: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11189: adj_debug('Error in oe_order_Adj_pvt.Price_line',1);
11190: adj_debug(sqlerrm,1);
11191:
11192: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11193: THEN
11194: OE_MSG_PUB.Add_Exc_Msg
11195: ( G_PKG_NAME
11196: , 'Price_line',
11190: adj_debug(sqlerrm,1);
11191:
11192: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11193: THEN
11194: OE_MSG_PUB.Add_Exc_Msg
11195: ( G_PKG_NAME
11196: , 'Price_line',
11197: sqlerrm
11198: );
11957: END IF;
11958:
11959: --MOAC PI END
11960:
11961: OE_MSG_PUB.Count_And_Get
11962: ( p_count => x_msg_count
11963: , p_data => x_msg_data
11964: );
11965:
11977: EXCEPTION
11978:
11979: WHEN FND_API.G_EXC_ERROR THEN
11980: x_return_status := FND_API.G_RET_STS_ERROR;
11981: OE_MSG_PUB.Count_And_Get
11982: ( p_count => x_msg_count
11983: ,p_data => x_msg_data
11984: );
11985:
11984: );
11985:
11986: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11987: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11988: OE_MSG_PUB.Count_And_Get
11989: ( p_count => x_msg_count
11990: ,p_data => x_msg_data
11991: );
11992:
11992:
11993: WHEN OTHERS THEN
11994: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11995: adj_debug(' '||sqlerrm,1);
11996: OE_MSG_PUB.Count_And_Get
11997: ( p_count => x_msg_count
11998: , p_data => x_msg_data
11999: );
12000:
12202: end loop; -- Headers
12203:
12204: End If;
12205:
12206: OE_MSG_PUB.Count_And_Get
12207: ( p_count => x_msg_count
12208: , p_data => x_msg_data
12209: );
12210:
12222: EXCEPTION
12223:
12224: WHEN FND_API.G_EXC_ERROR THEN
12225: x_return_status := FND_API.G_RET_STS_ERROR;
12226: OE_MSG_PUB.Count_And_Get
12227: ( p_count => x_msg_count
12228: ,p_data => x_msg_data
12229: );
12230:
12229: );
12230:
12231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12233: OE_MSG_PUB.Count_And_Get
12234: ( p_count => x_msg_count
12235: ,p_data => x_msg_data
12236: );
12237:
12237:
12238: WHEN OTHERS THEN
12239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12240: adj_debug(' '||sqlerrm,1);
12241: OE_MSG_PUB.Count_And_Get
12242: ( p_count => x_msg_count
12243: , p_data => x_msg_data
12244: );
12245:
13330: WHEN FND_API.G_EXC_ERROR THEN
13331:
13332: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
13333: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_Text);
13334: OE_MSG_PUB.Add;
13335: x_return_status := FND_API.G_RET_STS_ERROR;
13336:
13337: Oe_Debug_Pub.add('g_exc_error is '||g_stmt_no||' '||sqlerrm,1);
13338: Oe_Debug_Pub.add('g_exc_error is '||l_return_status_Text);
13342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13343:
13344: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
13345: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_Text);
13346: OE_MSG_PUB.Add;
13347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13348: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||g_stmt_no||' '||sqlerrm,1);
13349: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13350: --DBMS_OUTPUT.PUT_LINE('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13352: WHEN QP_ATTR_MAPPING_ERRORS Then
13353: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
13354: FND_MESSAGE.SET_TOKEN('ERR_TEXT','Errors return from QP_Attr_Mapping_PUB.Build_Context');
13355: OE_MSG_PUB.Add;
13356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13357: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is: QP_Attr_Mapping_PUB.Build_Context'||sqlerrm,1);
13358: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13359: Oe_Debug_Pub.add('QP_ATTR_MAPPING_ERRORS');
13363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13364: Oe_Debug_Pub.add('Error is '||sqlerrm);
13365: Oe_Debug_Pub.add('Error Code is '||g_stmt_no||' '||sqlerrm,1);
13366:
13367: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13368: THEN
13369: OE_MSG_PUB.Add_Exc_Msg
13370: ( G_PKG_NAME
13371: , 'oe_line_adj.calulate_adjustments',
13365: Oe_Debug_Pub.add('Error Code is '||g_stmt_no||' '||sqlerrm,1);
13366:
13367: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13368: THEN
13369: OE_MSG_PUB.Add_Exc_Msg
13370: ( G_PKG_NAME
13371: , 'oe_line_adj.calulate_adjustments',
13372: g_stmt_no||' '||sqlerrm
13373: );
13452: FND_MESSAGE.SET_NAME('ONT','ONT_PROMO_HOLD_APPLIED');
13453: ELSE
13454: FND_MESSAGE.SET_NAME('ONT', 'ONT_LINE_PROMO_HOLD_APPLIED');
13455: END IF;
13456: OE_MSG_PUB.Add;
13457: Else
13458: adj_debug('error applying hold',3);
13459: RAISE FND_API.G_EXC_ERROR;
13460: End If;