52:
53: I NUMBER;
54: l_msg_count NUMBER;
55: l_msg_data VARCHAR2(2000);
56: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
57: l_index NUMBER:=1;
58: l_new_line_tbl OE_Order_Pub.Line_Tbl_Type;
59: l_old_line_tbl OE_Order_Pub.Line_Tbl_Type;
60: --
116: END IF;
117:
118: IF (px_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE) Then
119: OE_Order_Pvt.Header
120: ( p_validation_level => FND_API.G_VALID_LEVEL_FULL
121: , p_control_rec => p_control_rec
122: , p_x_header_rec => px_header_rec
123: , p_x_old_header_rec => lx_old_header_rec
124: , x_return_status => l_return_status);
122: , p_x_header_rec => px_header_rec
123: , p_x_old_header_rec => lx_old_header_rec
124: , x_return_status => l_return_status);
125:
126: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
129: RAISE FND_API.G_EXC_ERROR;
130: END IF;
123: , p_x_old_header_rec => lx_old_header_rec
124: , x_return_status => l_return_status);
125:
126: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
129: RAISE FND_API.G_EXC_ERROR;
130: END IF;
131: END IF;
124: , x_return_status => l_return_status);
125:
126: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
129: RAISE FND_API.G_EXC_ERROR;
130: END IF;
131: END IF;
132: p_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE;
125:
126: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
128: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
129: RAISE FND_API.G_EXC_ERROR;
130: END IF;
131: END IF;
132: p_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE;
133: IF (l_new_line_tbl.count > 0) THEN --bug 2855986 change px_line_tbl to l_new_line_tbl.count
131: END IF;
132: p_control_rec.process_entity := OE_GLOBALS.G_ENTITY_LINE;
133: IF (l_new_line_tbl.count > 0) THEN --bug 2855986 change px_line_tbl to l_new_line_tbl.count
134: OE_Order_Pvt.Lines
135: ( p_validation_level => FND_API.G_VALID_LEVEL_FULL
136: , p_control_rec => p_control_rec
137: , p_x_line_tbl => l_new_line_tbl
138: , p_x_old_line_tbl => l_old_line_tbl
139: , x_return_status => l_return_status);
137: , p_x_line_tbl => l_new_line_tbl
138: , p_x_old_line_tbl => l_old_line_tbl
139: , x_return_status => l_return_status);
140:
141: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
143: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
144: RAISE FND_API.G_EXC_ERROR;
145: END IF;
138: , p_x_old_line_tbl => l_old_line_tbl
139: , x_return_status => l_return_status);
140:
141: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
143: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
144: RAISE FND_API.G_EXC_ERROR;
145: END IF;
146: END IF;
139: , x_return_status => l_return_status);
140:
141: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
143: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
144: RAISE FND_API.G_EXC_ERROR;
145: END IF;
146: END IF;
147: OE_GLOBALS.G_PRICING_RECURSION := 'N';
140:
141: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
143: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
144: RAISE FND_API.G_EXC_ERROR;
145: END IF;
146: END IF;
147: OE_GLOBALS.G_PRICING_RECURSION := 'N';
148: END IF; -- count > 0
230: IF l_debug_level > 0 THEN
231: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_ADV_PRICE_PVT.DELETE_ATTRIBS_FOR_IUE IS: ' || L_RETURN_STATUS ) ;
232: END IF;
233:
234: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
235:
236: IF l_debug_level > 0 THEN
237: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
238: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.DELETE_ATTRIBS_FOR_IUE' , 1 ) ;
236: IF l_debug_level > 0 THEN
237: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
238: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.DELETE_ATTRIBS_FOR_IUE' , 1 ) ;
239: END IF;
240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
241: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
242: IF l_debug_level > 0 THEN
243: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ADV_PRICE_PVT.DELETE_ATTRIBS_FOR_IUE' ) ;
244: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS' , 1 ) ;
237: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
238: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.DELETE_ATTRIBS_FOR_IUE' , 1 ) ;
239: END IF;
240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
241: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
242: IF l_debug_level > 0 THEN
243: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ADV_PRICE_PVT.DELETE_ATTRIBS_FOR_IUE' ) ;
244: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS' , 1 ) ;
245: END IF;
242: IF l_debug_level > 0 THEN
243: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ADV_PRICE_PVT.DELETE_ATTRIBS_FOR_IUE' ) ;
244: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS' , 1 ) ;
245: END IF;
246: RAISE FND_API.G_EXC_ERROR;
247: END IF;
248:
249: DELETE FROM OE_PRICE_ADJ_ATTRIBS WHERE price_adjustment_id = p_price_adjustment_id;
250: End;
312: oe_debug_pub.add( 'REVERT BACK ITEM'||I.LINE_ID ) ;
313: END IF;
314: --bug 2858712
315: IF (px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).line_set_id IS NULL OR
316: px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).line_set_id = FND_API.G_MISS_NUM) THEN
317: set_item_for_iue(px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)),to_number(i.modified_from));
318: px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).operation := OE_GLOBALS.G_OPR_UPDATE;
319: --bug 2795409
320: px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).change_reason := 'SYSTEM';
329:
330: FOR i in upgraded_items LOOP
331: /* change i.line_index - l_header_id with i.line_id */
332: IF (px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).top_model_line_id IS NULL OR
333: px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).top_model_line_id = FND_API.G_MISS_NUM) THEN
334: --bug 2858712
335: IF (px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).line_set_id IS NULL OR
336: px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).line_set_id = FND_API.G_MISS_NUM) THEN
337:
332: IF (px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).top_model_line_id IS NULL OR
333: px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).top_model_line_id = FND_API.G_MISS_NUM) THEN
334: --bug 2858712
335: IF (px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).line_set_id IS NULL OR
336: px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).line_set_id = FND_API.G_MISS_NUM) THEN
337:
338: set_item_for_iue(px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)),i.Related_Item_ID);
339: px_line_tbl(G_PRICE_LINE_ID_TBL(i.line_id)).operation := OE_GLOBALS.G_OPR_UPDATE;
340: --bug 2795409
1181: p_param1 => l_line_rec.header_id,
1182: p_param2 => l_pricing_event,
1183: p_request_type => OE_GLOBALS.G_PRICE_LINE,
1184: x_return_status => l_return_status);
1185: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1186: IF l_debug_level > 0 THEN
1187: oe_debug_pub.add( 'unexp error logging batch event for updated free goods line', 3) ;
1188: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.set_prg', 3);
1189: END IF;
1186: IF l_debug_level > 0 THEN
1187: oe_debug_pub.add( 'unexp error logging batch event for updated free goods line', 3) ;
1188: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.set_prg', 3);
1189: END IF;
1190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1191: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1192: IF l_debug_level > 0 THEN
1193: oe_debug_pub.add( 'error logging batch event for update free goods line',3);
1194: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.set_prg' , 1 ) ;
1187: oe_debug_pub.add( 'unexp error logging batch event for updated free goods line', 3) ;
1188: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.set_prg', 3);
1189: END IF;
1190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1191: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1192: IF l_debug_level > 0 THEN
1193: oe_debug_pub.add( 'error logging batch event for update free goods line',3);
1194: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.set_prg' , 1 ) ;
1195: END IF;
1192: IF l_debug_level > 0 THEN
1193: oe_debug_pub.add( 'error logging batch event for update free goods line',3);
1194: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.set_prg' , 1 ) ;
1195: END IF;
1196: RAISE FND_API.G_EXC_ERROR;
1197: END IF;
1198: END IF;
1199:
1200: px_line_rec := l_line_rec;
1201: exception when others then
1202: IF l_debug_level > 0 THEN
1203: oe_debug_pub.add( 'ERROR IN SET_PRG'||SQLERRM ) ;
1204: END IF;
1205: raise fnd_api.g_exc_error;
1206: end Set_Prg;
1207:
1208: Procedure Delete_Prg(
1209: px_line_rec IN OUT NOCOPY OE_Order_Pub.line_rec_type
1270: end if;
1271: px_line_rec := l_line_rec;
1272: Exception
1273: When Others then
1274: Raise FND_API.G_EXC_ERROR;
1275: End Delete_Prg;
1276:
1277: procedure Process_PRG(px_line_Tbl in out nocopy oe_order_pub.line_tbl_type
1278: , px_old_line_tbl in out nocopy oe_order_pub.line_tbl_type
1456: oe_debug_pub.add( 'PUTTING TO SHIP SET'||L_BUY_LINE_REC.SHIP_SET_ID ) ;
1457: END IF;
1458: l_line_rec.ship_set_id := l_buy_line_rec.ship_set_id;
1459: --bug 7000338/7002146
1460: IF (l_buy_line_rec.ship_set_id is NOT NULL AND l_buy_line_rec.ship_set_id <> FND_API.G_MISS_NUM) THEN
1461: select set_name INTO l_line_rec.ship_set from oe_sets where set_id= l_buy_line_rec.ship_set_id ;
1462: oe_debug_pub.add( 'PUTTING TO SHIP SET name'||L_LINE_REC.SHIP_SET ) ;
1463: END IF;
1464:
1507: WHEN OTHERS THEN
1508: IF l_debug_level > 0 THEN
1509: oe_debug_pub.add( 'ERROR IN PROCESS_PRG'||SQLERRM ) ;
1510: END IF;
1511: RAISE FND_API.G_EXC_ERROR;
1512: End Process_PRG;
1513:
1514:
1515: Procedure Promotion_Put_Hold(
1580: --oe_debug_pub.add('PAL PROMOTIONS - hold_entity_code is '|| l_hold_source_rec.Hold_Entity_code||l_x_result_out,2);
1581: null;
1582: end if;
1583:
1584: IF (l_return_status <> FND_API.g_ret_sts_success) THEN
1585: RAISE FND_API.G_EXC_ERROR;
1586: END IF;
1587: If l_x_result_out = FND_API.G_FALSE then
1588: IF l_debug_level > 0 THEN
1581: null;
1582: end if;
1583:
1584: IF (l_return_status <> FND_API.g_ret_sts_success) THEN
1585: RAISE FND_API.G_EXC_ERROR;
1586: END IF;
1587: If l_x_result_out = FND_API.G_FALSE then
1588: IF l_debug_level > 0 THEN
1589: oe_debug_pub.add('PAL PROMOTIONS - apply holds in procedure Promotion_Put_Hold ');
1583:
1584: IF (l_return_status <> FND_API.g_ret_sts_success) THEN
1585: RAISE FND_API.G_EXC_ERROR;
1586: END IF;
1587: If l_x_result_out = FND_API.G_FALSE then
1588: IF l_debug_level > 0 THEN
1589: oe_debug_pub.add('PAL PROMOTIONS - apply holds in procedure Promotion_Put_Hold ');
1590: oe_debug_pub.add('hold line with header_id:'||p_header_id||' line_id: '||p_line_id,1);
1591: END IF;
1597: ,x_msg_data => l_x_msg_data
1598:
1599: );
1600:
1601: If l_return_status = FND_API.g_ret_sts_success then
1602: IF (p_line_id IS NULL) THEN
1603: FND_MESSAGE.SET_NAME('ONT','ONT_PROMO_HOLD_APPLIED');
1604: ELSE
1605: FND_MESSAGE.SET_NAME('ONT', 'ONT_LINE_PROMO_HOLD_APPLIED');
1608: Else
1609: IF l_debug_level > 0 THEN
1610: oe_debug_pub.add('error applying hold',3);
1611: END IF;
1612: RAISE FND_API.G_EXC_ERROR;
1613: End If;
1614: End If; /* check hold */
1615:
1616: IF l_debug_level > 0 THEN
1713: ,p_source_document_type_id => oe_order_cache.g_header_rec.source_document_type_id);
1714: ELSE
1715: l_line_id := i.line_id;
1716: IF l_line_id IS NOT NULL AND l_line_id <> 0 AND
1717: l_line_id <> FND_API.G_MISS_NUM THEN
1718: BEGIN
1719: IF l_debug_level > 0 THEN
1720: oe_debug_pub.add('Getting reference data ');
1721: END IF;
1937:
1938: l_Line_Adj_rec.ADJUSTED_AMOUNT_PER_PQTY := l_insert.adjustment_amount;
1939:
1940: l_Line_Adj_rec.line_index := l_insert.line_index;
1941: l_Line_Adj_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1942: IF l_insert.process_code = QP_PREQ_GRP.G_STATUS_NEW Then
1943: l_Line_Adj_rec.db_flag := FND_API.G_FALSE;
1944: l_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_CREATE;
1945: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
1939:
1940: l_Line_Adj_rec.line_index := l_insert.line_index;
1941: l_Line_Adj_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1942: IF l_insert.process_code = QP_PREQ_GRP.G_STATUS_NEW Then
1943: l_Line_Adj_rec.db_flag := FND_API.G_FALSE;
1944: l_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_CREATE;
1945: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
1946: p_old_line_adj_rec => NULL,
1947: p_line_adj_rec =>l_line_adj_rec,
1948: p_line_adj_id => l_line_adj_rec.price_adjustment_id,
1949: x_index => l_index,
1950: x_return_status => l_return_status);
1951: ELSIF l_insert.process_code = QP_PREQ_GRP.G_STATUS_UPDATED Then
1952: l_Line_Adj_rec.db_flag := FND_API.G_TRUE;
1953: l_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1954:
1955: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
1956: p_line_adj_rec =>l_line_adj_rec,
2020:
2021: l_Header_Adj_rec.ADJUSTED_AMOUNT_PER_PQTY := l_insert.adjustment_amount;
2022:
2023: --l_Header_Adj_rec.line_index := l_insert.line_index;
2024: l_Header_Adj_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2025: IF l_insert.process_code = QP_PREQ_GRP.G_STATUS_NEW Then
2026: l_Header_Adj_rec.db_flag := FND_API.G_FALSE;
2027: l_Header_Adj_rec.operation := OE_GLOBALS.G_OPR_CREATE;
2028: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
2022:
2023: --l_Header_Adj_rec.line_index := l_insert.line_index;
2024: l_Header_Adj_rec.return_status := FND_API.G_RET_STS_SUCCESS;
2025: IF l_insert.process_code = QP_PREQ_GRP.G_STATUS_NEW Then
2026: l_Header_Adj_rec.db_flag := FND_API.G_FALSE;
2027: l_Header_Adj_rec.operation := OE_GLOBALS.G_OPR_CREATE;
2028: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
2029: p_old_hdr_adj_rec => NULL,
2030: p_hdr_adj_rec =>l_header_adj_rec,
2031: p_hdr_adj_id => l_header_adj_rec.price_adjustment_id,
2032: x_index => l_index,
2033: x_return_status => l_return_status);
2034: ELSIF l_insert.process_code = QP_PREQ_GRP.G_STATUS_UPDATED Then
2035: l_Header_Adj_rec.db_flag := FND_API.G_TRUE;
2036: l_Header_Adj_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
2037:
2038: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
2039: p_hdr_adj_rec =>l_header_adj_rec,
2050:
2051: IF l_debug_level > 0 THEN
2052: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY IS: ' || L_RETURN_STATUS ) ;
2053: END IF;
2054: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2055: IF l_debug_level > 0 THEN
2056: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
2057: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY');
2058: END IF;
2055: IF l_debug_level > 0 THEN
2056: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
2057: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY');
2058: END IF;
2059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2060: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2061: IF l_debug_level > 0 THEN
2062: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY' ) ;
2063: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY' , 1 ) ;
2056: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
2057: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY');
2058: END IF;
2059: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2060: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2061: IF l_debug_level > 0 THEN
2062: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY' ) ;
2063: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY' , 1 ) ;
2064: END IF;
2061: IF l_debug_level > 0 THEN
2062: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY' ) ;
2063: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY' , 1 ) ;
2064: END IF;
2065: RAISE FND_API.G_EXC_ERROR;
2066: END IF;
2067:
2068: end loop;
2069:
2135: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2136: --
2137: BEGIN
2138: NULL;
2139: x_return_status := FND_API.G_RET_STS_SUCCESS;
2140: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
2141: G_DEBUG := TRUE;
2142: IF l_debug_level > 0 THEN
2143: oe_debug_pub.add( 'BCT G_DEBUG IS:'||OE_DEBUG_PUB.G_DEBUG ) ;
2136: --
2137: BEGIN
2138: NULL;
2139: x_return_status := FND_API.G_RET_STS_SUCCESS;
2140: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
2141: G_DEBUG := TRUE;
2142: IF l_debug_level > 0 THEN
2143: oe_debug_pub.add( 'BCT G_DEBUG IS:'||OE_DEBUG_PUB.G_DEBUG ) ;
2144: END IF;
2507: WHEN OTHERS THEN
2508: IF l_debug_level > 0 THEN
2509: oe_debug_pub.add('ERROR in inserting adjustments and associations'||sqlerrm);
2510: END IF;
2511: Raise FND_API.G_EXC_ERROR;
2512: END Insert_Adj;
2513:
2514: end OE_ADV_PRICE_PVT;