[Home] [Help]
13:
14: procedure Adj_Debug (p_text IN VARCHAR2, p_dummy IN NUMBER:=0) As
15: Begin
16: If G_DEBUG Then
17: oe_debug_pub.add(p_text,3);
18: End If;
19: End;
20:
21: --btea perf end
125: l_tax_value Number;
126:
127: l_return_status Varchar2(30);
128: --
129: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
130: --
131:
132: Begin
133: oe_debug_pub.add('Entering Reset Field:line_id:'||(p_line_rec.line_id));
129: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
130: --
131:
132: Begin
133: oe_debug_pub.add('Entering Reset Field:line_id:'||(p_line_rec.line_id));
134: open get_price(p_line_rec.line_id);
135: fetch get_price into l_qp_unit_price,
136: l_qp_adjusted_unit_price,
137: l_pricing_quantity,
180: AND update_line.blanket_number IS NOT NULL
181: THEN
182:
183: IF l_debug_level > 0 THEN
184: oe_debug_pub.add('OEXVADJB log blanket request');
185: oe_debug_pub.add('old SP :'||update_line.unit_selling_price);
186: oe_debug_pub.add('new SP :'||l_selling_price);
187: END IF;
188:
181: THEN
182:
183: IF l_debug_level > 0 THEN
184: oe_debug_pub.add('OEXVADJB log blanket request');
185: oe_debug_pub.add('old SP :'||update_line.unit_selling_price);
186: oe_debug_pub.add('new SP :'||l_selling_price);
187: END IF;
188:
189: OE_Order_Cache.Load_Order_Header(update_line.header_id);
182:
183: IF l_debug_level > 0 THEN
184: oe_debug_pub.add('OEXVADJB log blanket request');
185: oe_debug_pub.add('old SP :'||update_line.unit_selling_price);
186: oe_debug_pub.add('new SP :'||l_selling_price);
187: END IF;
188:
189: OE_Order_Cache.Load_Order_Header(update_line.header_id);
190: --for bug 3108881.Log the request for Orders only
250: -- bug 2757443.
251: IF update_line.commitment_id IS NOT NULL
252: AND OE_Commitment_Pvt.Do_Commitment_Sequencing THEN
253:
254: oe_debug_pub.add('Logging delayed request for Commitment.', 2);
255: OE_Delayed_Requests_Pvt.Log_Request(
256: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
257: p_entity_id => update_line.line_id,
258: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
282: oe_line_adj_util.delete_row(p_line_id => p_line_rec.line_id);
283:
284: --set cascade flag to reflect changes.
285: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
286: Oe_Debug_Pub.add('Leaving reset_fields');
287: Exception When Others Then
288: Oe_Debug_Pub.add('In procedure reset_fields:'||SQLERRM);
289: End;
290:
284: --set cascade flag to reflect changes.
285: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
286: Oe_Debug_Pub.add('Leaving reset_fields');
287: Exception When Others Then
288: Oe_Debug_Pub.add('In procedure reset_fields:'||SQLERRM);
289: End;
290:
291:
292: Function Get_List_Lines (p_line_id Number) Return Varchar2 As
330: l_sec_result NUMBER;
331: l_on_operation_action NUMBER;
332: I pls_integer; -- Used as index for while loop
333: --
334: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
335: --
336: l_order_source_id NUMBER;
337: l_orig_sys_document_ref VARCHAR2(50);
338: l_change_sequence VARCHAR2(50);
383: IF l_header_adj_rec.header_Id IS NOT NULL AND
384: l_header_adj_rec.header_Id <> FND_API.G_MISS_NUM THEN
385: BEGIN
386: IF l_debug_level > 0 THEN
387: oe_debug_pub.add('Getting reference data for header_id:'||l_header_adj_rec.header_Id);
388: END IF;
389: SELECT order_source_id, orig_sys_document_ref, change_sequence,
390: source_document_type_id, source_document_id
391: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
427: l_old_header_adj_rec.header_Id <> FND_API.G_MISS_NUM THEN
428:
429: BEGIN
430: IF l_debug_level > 0 THEN
431: oe_debug_pub.add('Getting reference data for old header_id:'||l_old_header_adj_rec.header_id);
432: END IF;
433: SELECT order_source_id, orig_sys_document_ref, change_sequence,
434: source_document_type_id, source_document_id
435: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
694:
695: IF l_control_rec.write_to_db THEN
696:
697: /* Start AuditTrail */
698: OE_DEBUG_PUB.add('OEXVADJB:calling to insert audit history reason for header adj in pre_write_process', 2);
699:
700: Oe_Header_ADJ_Util.Pre_Write_Process
701: (p_x_header_adj_rec => l_header_adj_rec,
702: p_old_header_adj_rec => l_old_header_adj_rec);
700: Oe_Header_ADJ_Util.Pre_Write_Process
701: (p_x_header_adj_rec => l_header_adj_rec,
702: p_old_header_adj_rec => l_old_header_adj_rec);
703:
704: oe_debug_pub.add('OEXVADJB:After calling to insert audit history');
705: /* End AuditTrail */
706:
707: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
708:
781: --
782: -- Start : Changes made as a part of DBI ER # 4185227
783: --
784: IF l_debug_level > 0 THEN
785: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR HEADER PRICE ADJUSTMENTS' , 1 ) ;
786: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
787: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
788: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
789: END IF;
782: -- Start : Changes made as a part of DBI ER # 4185227
783: --
784: IF l_debug_level > 0 THEN
785: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR HEADER PRICE ADJUSTMENTS' , 1 ) ;
786: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
787: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
788: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
789: END IF;
790:
783: --
784: IF l_debug_level > 0 THEN
785: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR HEADER PRICE ADJUSTMENTS' , 1 ) ;
786: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
787: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
788: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
789: END IF;
790:
791: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
784: IF l_debug_level > 0 THEN
785: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR HEADER PRICE ADJUSTMENTS' , 1 ) ;
786: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
787: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
788: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
789: END IF;
790:
791: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
792: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
927: l_sec_result NUMBER;
928: l_on_operation_action NUMBER;
929: I pls_integer; -- Used as table index for the loop.
930: --
931: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
932: --
933: l_last_line_id Number; --bug 2721485
934: l_line_found Varchar2(1); --bug 2721485
935:
987: IF l_line_adj_rec.line_id IS NOT NULL AND
988: l_line_adj_rec.line_id <> FND_API.G_MISS_NUM THEN
989: BEGIN
990: IF l_debug_level > 0 THEN
991: oe_debug_pub.add('Getting reference data for line_id:'||l_line_adj_rec.line_id);
992: END IF;
993: SELECT order_source_id, orig_sys_document_ref, change_sequence,
994: source_document_type_id, source_document_id, orig_sys_line_ref,
995: source_document_line_id, orig_sys_shipment_ref
1039: IF l_old_line_adj_rec.line_id IS NOT NULL AND
1040: l_old_line_adj_rec.line_id <> FND_API.G_MISS_NUM THEN
1041: BEGIN
1042: IF l_debug_level > 0 THEN
1043: oe_debug_pub.add('Getting reference data for old line_id:'||l_old_line_adj_rec.line_id);
1044: END IF;
1045: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1046: source_document_type_id, source_document_id, orig_sys_line_ref,
1047: source_document_line_id, orig_sys_shipment_ref
1384: adj_debug('Before write_to_db',2);
1385: IF l_control_rec.write_to_db THEN
1386:
1387: /* Start AuditTrail */
1388: OE_DEBUG_PUB.add('OEXVADJB:calling to insert audit history for line adj from pre_write_process', 2);
1389:
1390: Oe_LINE_ADJ_Util.Pre_Write_Process
1391: (p_x_line_adj_rec => l_line_adj_rec,
1392: p_old_line_adj_rec => l_old_line_adj_rec);
1389:
1390: Oe_LINE_ADJ_Util.Pre_Write_Process
1391: (p_x_line_adj_rec => l_line_adj_rec,
1392: p_old_line_adj_rec => l_old_line_adj_rec);
1393: OE_DEBUG_PUB.add('OEXVADJB:After calling to insert audit history for line adj from pre_write_process', 2);
1394: /* End AuditTrail */
1395:
1396: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1397:
1460: l_Line_Adj_rec.last_updated_by := FND_GLOBAL.USER_ID;
1461: l_Line_Adj_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
1462:
1463: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1464: oe_debug_pub.add(' updating list line id:'||l_Line_Adj_rec.list_line_id);
1465: oe_debug_pub.add(' l_line_adj_rec adjusted_amount:'||l_Line_Adj_rec.adjusted_amount);
1466: oe_debug_pub.add(' line_id:'||l_Line_Adj_rec.line_id);
1467: OE_Line_Adj_Util.Update_Row (l_Line_Adj_rec);
1468:
1461: l_Line_Adj_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
1462:
1463: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1464: oe_debug_pub.add(' updating list line id:'||l_Line_Adj_rec.list_line_id);
1465: oe_debug_pub.add(' l_line_adj_rec adjusted_amount:'||l_Line_Adj_rec.adjusted_amount);
1466: oe_debug_pub.add(' line_id:'||l_Line_Adj_rec.line_id);
1467: OE_Line_Adj_Util.Update_Row (l_Line_Adj_rec);
1468:
1469: ELSIF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1462:
1463: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1464: oe_debug_pub.add(' updating list line id:'||l_Line_Adj_rec.list_line_id);
1465: oe_debug_pub.add(' l_line_adj_rec adjusted_amount:'||l_Line_Adj_rec.adjusted_amount);
1466: oe_debug_pub.add(' line_id:'||l_Line_Adj_rec.line_id);
1467: OE_Line_Adj_Util.Update_Row (l_Line_Adj_rec);
1468:
1469: ELSIF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1470:
1503: --
1504: -- Start : Changes made as a part of DBI ER # 4185227
1505: --
1506: IF l_debug_level > 0 THEN
1507: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR ORDER LINE PRICE ADJUSTMENTS' , 1 ) ;
1508: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
1509: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
1510: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
1511: END IF;
1504: -- Start : Changes made as a part of DBI ER # 4185227
1505: --
1506: IF l_debug_level > 0 THEN
1507: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR ORDER LINE PRICE ADJUSTMENTS' , 1 ) ;
1508: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
1509: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
1510: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
1511: END IF;
1512:
1505: --
1506: IF l_debug_level > 0 THEN
1507: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR ORDER LINE PRICE ADJUSTMENTS' , 1 ) ;
1508: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
1509: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
1510: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
1511: END IF;
1512:
1513: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
1506: IF l_debug_level > 0 THEN
1507: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR ORDER LINE PRICE ADJUSTMENTS' , 1 ) ;
1508: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
1509: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
1510: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
1511: END IF;
1512:
1513: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
1514: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
1658: l_Shipped_quantity number;
1659: l_pricing_event varchar2(30);
1660:
1661: --
1662: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1663: --
1664: l_order_source_id NUMBER;
1665: l_orig_sys_document_ref VARCHAR2(50);
1666: l_change_sequence VARCHAR2(50);
1681:
1682: -- Init local table variables.
1683:
1684: --dbms_output.put_line('Entering oe_order_Adj_pvt.HEader_Price_Atts');
1685: oe_debug_pub.add('Entering oe_order_Adj_pvt.HEader_Price_Atts', 1);
1686:
1687:
1688: I := p_x_Header_Price_Att_tbl.FIRST;
1689:
1704: IF l_header_Price_Att_rec.header_Id IS NOT NULL AND
1705: l_header_Price_Att_rec.header_Id <> FND_API.G_MISS_NUM THEN
1706: BEGIN
1707: IF l_debug_level > 0 THEN
1708: oe_debug_pub.add('Getting reference data for header_id:'||l_header_Price_Att_rec.header_Id);
1709: END IF;
1710: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1711: source_document_type_id, source_document_id
1712: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
1748: l_old_header_Price_Att_rec.header_Id <> FND_API.G_MISS_NUM THEN
1749:
1750: BEGIN
1751: IF l_debug_level > 0 THEN
1752: oe_debug_pub.add('Getting reference data for old header_id:'||l_old_header_Price_Att_rec.header_Id);
1753: END IF;
1754: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1755: source_document_type_id, source_document_id
1756: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
1798: -- Set record return status.
1799:
1800: l_Header_Price_Att_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1801:
1802: oe_debug_pub.add(' After initializing record,operation:'||l_Header_Price_Att_rec.operation);
1803: -- Prepare record.
1804:
1805: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1806:
1807: l_Header_Price_Att_rec.db_flag := FND_API.G_FALSE;
1808:
1809: -- Set missing old record elements to NULL.
1810:
1811: oe_debug_pub.add('Entering OE_Header_Price_Att_Util.Convert_Miss_To_Null', 2);
1812: -- l_old_Header_Price_Att_rec :=
1813: OE_Header_PAttr_Util.Convert_Miss_To_Null (l_old_Header_Price_Att_rec);
1814:
1815: ELSIF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1863:
1864: -- Attribute level validation.
1865:
1866: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1867: oe_debug_pub.add(' In OE_Validate_Header_Pattr.Attributes');
1868: OE_Validate_Header_Pattr.Attributes
1869: ( x_return_status => l_return_status
1870: , p_Header_Price_Attr_rec => l_Header_Price_Att_rec
1871: , p_old_Header_Price_Attr_rec => l_old_Header_Price_Att_rec
1910: THEN
1911:
1912: -- This will also log request/s to check duplicity of
1913: -- price adjustment entered
1914: oe_debug_pub.add(' In apply attribute changes');
1915: OE_Header_PAttr_Util.Apply_Attribute_Changes
1916: ( p_x_Header_Price_Att_rec => l_Header_Price_Att_rec
1917: , p_old_Header_Price_Att_rec => l_old_Header_Price_Att_rec
1918: );
2057: ELSIF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2058:
2059: l_Header_Price_Att_rec.creation_date := SYSDATE;
2060: l_Header_Price_Att_rec.created_by := FND_GLOBAL.USER_ID;
2061: oe_debug_pub.add(' Before calling pattr_util.insert_row');
2062:
2063: select OE_ORDER_PRICE_ATTRIBS_S.nextval
2064: into l_header_price_att_rec.order_price_attrib_id
2065: from dual;
2151:
2152: -- Load OUT parameters
2153:
2154:
2155: oe_debug_pub.add('Exiting oe_order_Price_Att_pvt.HEADER_Price_Atts', 1);
2156: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
2157:
2158: EXCEPTION
2159:
2761: l_Shipped_quantity number;
2762: l_pricing_event varchar2(30);
2763:
2764: --
2765: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2766: --
2767: l_order_source_id NUMBER;
2768: l_orig_sys_document_ref VARCHAR2(50);
2769: l_orig_sys_line_ref VARCHAR2(50);
2808: IF l_Line_price_att_rec.Line_Id IS NOT NULL AND
2809: l_Line_price_att_rec.Line_Id <> FND_API.G_MISS_NUM THEN
2810: BEGIN
2811: IF l_debug_level > 0 THEN
2812: oe_debug_pub.add('Getting reference data for line_id:'||l_Line_price_att_rec.Line_Id);
2813: END IF;
2814: SELECT order_source_id, orig_sys_document_ref, change_sequence,
2815: source_document_type_id, source_document_id, orig_sys_line_ref,
2816: source_document_line_id, orig_sys_shipment_ref
2860: IF l_old_Line_price_att_rec.Line_Id IS NOT NULL AND
2861: l_old_Line_price_att_rec.Line_Id <> FND_API.G_MISS_NUM THEN
2862: BEGIN
2863: IF l_debug_level > 0 THEN
2864: oe_debug_pub.add('Getting reference data for old line_id:'||l_old_Line_price_att_rec.Line_Id);
2865: END IF;
2866: SELECT order_source_id, orig_sys_document_ref, change_sequence,
2867: source_document_type_id, source_document_id, orig_sys_line_ref,
2868: source_document_line_id, orig_sys_shipment_ref
4150: ,p_line_rec.ship_from_org_id
4151: ,l_item_rec) THEN
4152:
4153: IF l_item_rec.ont_pricing_qty_source = 'S' THEN -- price by quantity 2 -- invconv
4154: oe_debug_pub.add('OPM - ont_pricing_qty_source = S in OEXVADJB.pls ');
4155: px_req_line_tbl(l_line_index).LINE_QUANTITY := p_Line_rec.Ordered_quantity2 ;
4156: px_req_line_tbl(l_line_index).LINE_UOM_CODE := p_Line_rec.Ordered_quantity_uom2 ;
4157: -- OPM 2547940 start
4158: IF p_line_rec.CALCULATE_PRICE_FLAG in ( 'N', 'P' ) THEN -- usually split from shipping
5441: begin
5442: adj_debug('Entering oe_order_Adj_pvt.set_item_for_iue');
5443:
5444: /*begin original item*/
5445: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
5446: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
5447: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
5448: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
5449: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
5442: adj_debug('Entering oe_order_Adj_pvt.set_item_for_iue');
5443:
5444: /*begin original item*/
5445: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
5446: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
5447: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
5448: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
5449: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
5450:
5443:
5444: /*begin original item*/
5445: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
5446: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
5447: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
5448: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
5449: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
5450:
5451: IF px_line_rec.original_inventory_item_id IS NULL THEN
5444: /*begin original item*/
5445: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
5446: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
5447: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
5448: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
5449: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
5450:
5451: IF px_line_rec.original_inventory_item_id IS NULL THEN
5452: px_line_rec.original_inventory_item_id :=px_line_rec.INVENTORY_ITEM_ID;
5445: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
5446: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
5447: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
5448: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
5449: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
5450:
5451: IF px_line_rec.original_inventory_item_id IS NULL THEN
5452: px_line_rec.original_inventory_item_id :=px_line_rec.INVENTORY_ITEM_ID;
5453: px_line_rec.original_ordered_item_id :=px_line_rec.ORDERED_ITEM_ID;
5650: Return;
5651: End;
5652: G_STMT_NO := 'calculate_adjustments#40';
5653:
5654: oe_debug_pub.add('Passed in event code:'||p_control_rec.pricing_event);
5655:
5656: QP_UTIL_PUB.Get_Order_Lines_Status
5657: (p_control_rec.pricing_event,l_order_status_rec);
5658:
5655:
5656: QP_UTIL_PUB.Get_Order_Lines_Status
5657: (p_control_rec.pricing_event,l_order_status_rec);
5658:
5659: oe_debug_pub.add('Pricing Engine return pass all_lines value:'||l_order_status_rec.ALL_LINES_FLAG);
5660: oe_debug_pub.add('Pricing Engine return pass changed line value:'||l_order_status_rec.Changed_Lines_Flag);
5661: oe_debug_pub.add('Cache header operation:'||oe_order_pub.g_hdr.operation);
5662:
5663:
5656: QP_UTIL_PUB.Get_Order_Lines_Status
5657: (p_control_rec.pricing_event,l_order_status_rec);
5658:
5659: oe_debug_pub.add('Pricing Engine return pass all_lines value:'||l_order_status_rec.ALL_LINES_FLAG);
5660: oe_debug_pub.add('Pricing Engine return pass changed line value:'||l_order_status_rec.Changed_Lines_Flag);
5661: oe_debug_pub.add('Cache header operation:'||oe_order_pub.g_hdr.operation);
5662:
5663:
5664: If G_INT_CHANGED_LINE_ON = 'Y' Then
5657: (p_control_rec.pricing_event,l_order_status_rec);
5658:
5659: oe_debug_pub.add('Pricing Engine return pass all_lines value:'||l_order_status_rec.ALL_LINES_FLAG);
5660: oe_debug_pub.add('Pricing Engine return pass changed line value:'||l_order_status_rec.Changed_Lines_Flag);
5661: oe_debug_pub.add('Cache header operation:'||oe_order_pub.g_hdr.operation);
5662:
5663:
5664: If G_INT_CHANGED_LINE_ON = 'Y' Then
5665: If (l_order_status_rec.ALL_LINES_FLAG = 'Y' and nvl(OE_LINE_ADJ_UTIL.G_SEND_ALL_LINES_FOR_DSP,'Y') = 'Y') --bug 2965218
5678: Elsif l_order_status_rec.CHANGED_LINES_FLAG = 'Y' OR nvl(OE_LINE_ADJ_UTIL.G_SEND_ALL_LINES_FOR_DSP,'Y') = 'N' Then
5679: -------------------------------------------------------------------
5680: --Pricing says pass only changed lines, use query_line
5681: --------------------------------------------------------------------
5682: oe_debug_pub.add('Query individual line');
5683: g_pass_all_lines:='N';
5684: i := Oe_Line_Adj_Util.G_CHANGED_LINE_TBL.FIRST;
5685: While i is Not Null Loop
5686: Begin
5684: i := Oe_Line_Adj_Util.G_CHANGED_LINE_TBL.FIRST;
5685: While i is Not Null Loop
5686: Begin
5687: --bug 3020702
5688: oe_debug_pub.add(' header_id:'||Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).header_id);
5689: if oe_line_adj_util.G_CHANGED_LINE_TBL(i).header_id = p_header_id then
5690: oe_debug_pub.add(' trying to query line_id:'||Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).line_id);
5691: l_line_tbl(j):=oe_line_util.query_row(p_line_id =>Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).line_id);
5692: j:=j+1;
5686: Begin
5687: --bug 3020702
5688: oe_debug_pub.add(' header_id:'||Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).header_id);
5689: if oe_line_adj_util.G_CHANGED_LINE_TBL(i).header_id = p_header_id then
5690: oe_debug_pub.add(' trying to query line_id:'||Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).line_id);
5691: l_line_tbl(j):=oe_line_util.query_row(p_line_id =>Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).line_id);
5692: j:=j+1;
5693: end if;
5694: Exception when no_data_found then
5691: l_line_tbl(j):=oe_line_util.query_row(p_line_id =>Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).line_id);
5692: j:=j+1;
5693: end if;
5694: Exception when no_data_found then
5695: oe_debug_pub.add('Not found line id:'||Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).line_id);
5696: End;
5697: i:= Oe_Line_Adj_Util.G_CHANGED_LINE_TBL.Next(i);
5698: End Loop;
5699: End If;
5758: If l_line_tbl.first is not null Then
5759: oe_Header_util.query_row
5760: (p_header_id=> l_line_Tbl(l_line_tbl.first).Header_id, x_header_rec => OE_Order_PUB.g_hdr );
5761: Else
5762: oe_debug_pub.add(' Error: No line records in l_line_tbl');
5763: End If;
5764:
5765: Exception when no_data_found then
5766: -- No need to process this order
5842:
5843: IF l_Line_Tbl(line_Tbl_Index).item_type_code = 'SERVICE' AND
5844: l_Line_Tbl(line_Tbl_Index).service_reference_type_code='CUSTOMER_PRODUCT' AND
5845: l_Line_Tbl(line_Tbl_Index).service_reference_line_id IS NOT NULL THEN
5846: oe_debug_pub.add('1828553: Line is a customer product');
5847: OE_SERVICE_UTIL.Get_Cust_Product_Line_Id
5848: ( x_return_status => l_return_status
5849: , p_reference_line_id => l_Line_Tbl(line_Tbl_Index).service_reference_line_id
5850: , p_customer_id => l_Line_Tbl(line_Tbl_Index).sold_to_org_id
5850: , p_customer_id => l_Line_Tbl(line_Tbl_Index).sold_to_org_id
5851: , x_cust_product_line_id => l_order_line_id
5852: );
5853: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5854: oe_debug_pub.add('1828553: Success');
5855: oe_debug_pub.add('1828553: Service line id is ' || l_order_line_id)
5856: ;
5857: l_service_reference_line_id := l_order_line_id;
5858: ELSE
5851: , x_cust_product_line_id => l_order_line_id
5852: );
5853: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5854: oe_debug_pub.add('1828553: Success');
5855: oe_debug_pub.add('1828553: Service line id is ' || l_order_line_id)
5856: ;
5857: l_service_reference_line_id := l_order_line_id;
5858: ELSE
5859: oe_debug_pub.add('Not able to retrieve cust product line id');
5855: oe_debug_pub.add('1828553: Service line id is ' || l_order_line_id)
5856: ;
5857: l_service_reference_line_id := l_order_line_id;
5858: ELSE
5859: oe_debug_pub.add('Not able to retrieve cust product line id');
5860: RAISE NO_DATA_FOUND;
5861: END IF;
5862:
5863: ELSE
5864: l_service_reference_line_id := l_Line_Tbl(line_Tbl_Index).service_reference_line_id;
5865: END IF;
5866:
5867:
5868: oe_debug_pub.add('1828553: l_Service_Reference_Line_Id: '||l_Service_Reference_Line_Id);
5869: --3273289{
5870: If(l_Service_Reference_Line_Id is NOT NULL) THEN
5871:
5872: Get_the_parent_Line(p_Reference_line_Id =>
6153: );
6154:
6155: Exception when no_data_found then null;
6156: when others then
6157: oe_debug_pub.add(sqlerrm);
6158: oe_debug_pub.add('l_line_tbl.first'||l_line_tbl.first);
6159: End;
6160:
6161: G_STMT_NO := 'calculate_adjustments#101';
6154:
6155: Exception when no_data_found then null;
6156: when others then
6157: oe_debug_pub.add(sqlerrm);
6158: oe_debug_pub.add('l_line_tbl.first'||l_line_tbl.first);
6159: End;
6160:
6161: G_STMT_NO := 'calculate_adjustments#101';
6162:
6298:
6299: /* Added for Bug 2124989 */
6300: WHEN OE_AGREEMENT_ERROR Then
6301: x_return_status := FND_API.G_RET_STS_ERROR;
6302: oe_debug_pub.add('Error: Invalid AAgreement');
6303: RAISE FND_API.G_EXC_ERROR;
6304:
6305: /* END 2124989 */
6306: WHEN QP_ATTR_MAPPING_ERROR THEN
6306: WHEN QP_ATTR_MAPPING_ERROR THEN
6307: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
6308: FND_MESSAGE.SET_TOKEN('ERR_TEXT','Please make sure Run QP Build Sourcing Rule has completed sucessfully');
6309: OE_MSG_PUB.Add;
6310: oe_debug_pub.add(' QP Attr Mapping threw exception');
6311: RAISE FND_API.G_EXC_ERROR;
6312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6313:
6314: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
6459: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.operand_per_pqty,
6460: p_req_line_detail_Rec.Operand_Value) Then
6461: p_Line_Adj_Rec.operand_per_pqty := p_req_line_detail_Rec.Operand_Value;
6462: If p_req_line_detail_Rec.Operand_Value is null Then
6463: Oe_Debug_Pub.add(' Null operand returned by pricing');
6464: Oe_Debug_pub.add(' List line type:'||p_req_line_detail_Rec.list_line_type_code);
6465: Oe_debug_pub.add(' list line id:'||p_req_line_detail_Rec.list_line_id);
6466: End If;
6467: l_updated_Flag := True;
6460: p_req_line_detail_Rec.Operand_Value) Then
6461: p_Line_Adj_Rec.operand_per_pqty := p_req_line_detail_Rec.Operand_Value;
6462: If p_req_line_detail_Rec.Operand_Value is null Then
6463: Oe_Debug_Pub.add(' Null operand returned by pricing');
6464: Oe_Debug_pub.add(' List line type:'||p_req_line_detail_Rec.list_line_type_code);
6465: Oe_debug_pub.add(' list line id:'||p_req_line_detail_Rec.list_line_id);
6466: End If;
6467: l_updated_Flag := True;
6468: end If;
6461: p_Line_Adj_Rec.operand_per_pqty := p_req_line_detail_Rec.Operand_Value;
6462: If p_req_line_detail_Rec.Operand_Value is null Then
6463: Oe_Debug_Pub.add(' Null operand returned by pricing');
6464: Oe_Debug_pub.add(' List line type:'||p_req_line_detail_Rec.list_line_type_code);
6465: Oe_debug_pub.add(' list line id:'||p_req_line_detail_Rec.list_line_id);
6466: End If;
6467: l_updated_Flag := True;
6468: end If;
6469:
6748: end if;
6749:
6750: --G_STMT_NO := 'Find_Duplicate_Adj_Lines#10.57';
6751:
6752: oe_debug_pub.add('list_line_id:'||px_Line_Adj_Tbl(x_Adj_Index).list_line_id);
6753: oe_debug_pub.add('updated_flag:'||px_Line_Adj_Tbl(x_Adj_Index).updated_Flag);
6754: if px_Line_Adj_Tbl(x_Adj_Index).updated_Flag = 'Y' Then
6755: -- User has updated this record Do not touch this
6756: px_Line_Adj_Tbl(x_Adj_Index).Operation := FND_API.G_MISS_CHAR;
6749:
6750: --G_STMT_NO := 'Find_Duplicate_Adj_Lines#10.57';
6751:
6752: oe_debug_pub.add('list_line_id:'||px_Line_Adj_Tbl(x_Adj_Index).list_line_id);
6753: oe_debug_pub.add('updated_flag:'||px_Line_Adj_Tbl(x_Adj_Index).updated_Flag);
6754: if px_Line_Adj_Tbl(x_Adj_Index).updated_Flag = 'Y' Then
6755: -- User has updated this record Do not touch this
6756: px_Line_Adj_Tbl(x_Adj_Index).Operation := FND_API.G_MISS_CHAR;
6757:
6836:
6837: G_STMT_NO := 'Query_Adj_Assocs#20';
6838:
6839: --For i in 1..L_Line_Adj_Assoc_Tbl.count loop
6840: oe_debug_pub.add('zBefore Assoc QUery:');
6841: i:= L_Line_Adj_Assoc_Tbl.FIRST;
6842: WHILE i IS NOT NULL LOOP
6843: oe_debug_pub.add('zInside Assoc Query i value:'||i);
6844: l_index := p_Line_Adj_Assoc_Tbl.count+1;
6839: --For i in 1..L_Line_Adj_Assoc_Tbl.count loop
6840: oe_debug_pub.add('zBefore Assoc QUery:');
6841: i:= L_Line_Adj_Assoc_Tbl.FIRST;
6842: WHILE i IS NOT NULL LOOP
6843: oe_debug_pub.add('zInside Assoc Query i value:'||i);
6844: l_index := p_Line_Adj_Assoc_Tbl.count+1;
6845: If p_delete_flag = 'Y' Then
6846: p_Line_Adj_Assoc_Tbl(l_index).Operation := OE_GLOBALS.G_OPR_DELETE;
6847: Else
6846: p_Line_Adj_Assoc_Tbl(l_index).Operation := OE_GLOBALS.G_OPR_DELETE;
6847: Else
6848: p_line_adj_assoc_tbl(l_index).Operation := FND_API.G_MISS_CHAR;
6849: End If;
6850: oe_debug_pub.add('zl_index:'||l_index);
6851: p_Line_Adj_Assoc_Tbl(l_index).Adj_Index := p_Adj_Index;
6852: p_Line_Adj_Assoc_Tbl(l_index).price_adjustment_id := p_price_adjustment_id;
6853: p_Line_Adj_Assoc_tbl(l_index).Rltd_Price_Adj_Id := l_Line_Adj_Assoc_tbl(i).Rltd_Price_Adj_Id;
6854: p_Line_Adj_Assoc_tbl(l_index).Line_Id := l_Line_Adj_Assoc_tbl(i).Line_Id;
6852: p_Line_Adj_Assoc_Tbl(l_index).price_adjustment_id := p_price_adjustment_id;
6853: p_Line_Adj_Assoc_tbl(l_index).Rltd_Price_Adj_Id := l_Line_Adj_Assoc_tbl(i).Rltd_Price_Adj_Id;
6854: p_Line_Adj_Assoc_tbl(l_index).Line_Id := l_Line_Adj_Assoc_tbl(i).Line_Id;
6855: p_Line_Adj_Assoc_tbl(l_index).price_adj_assoc_id := l_Line_Adj_Assoc_tbl(i).price_adj_assoc_id;
6856: oe_debug_pub.add('z10');
6857: i:=l_Line_Adj_Assoc_tbl.NEXT(i);
6858: oe_debug_pub.add('z14');
6859: END LOOP;
6860: --end loop;
6854: p_Line_Adj_Assoc_tbl(l_index).Line_Id := l_Line_Adj_Assoc_tbl(i).Line_Id;
6855: p_Line_Adj_Assoc_tbl(l_index).price_adj_assoc_id := l_Line_Adj_Assoc_tbl(i).price_adj_assoc_id;
6856: oe_debug_pub.add('z10');
6857: i:=l_Line_Adj_Assoc_tbl.NEXT(i);
6858: oe_debug_pub.add('z14');
6859: END LOOP;
6860: --end loop;
6861:
6862: adj_debug('Exiting oe_order_Adj_pvt.Query_Adj_Assocs',1);
7465: l_line_rec.pricing_quantity_uom := p_req_line_tbl(l_Req_Line_Index).priced_uom_code ;
7466: l_line_rec.price_request_code := p_req_line_tbl(l_Req_Line_Index).price_request_code; -- PROMOTIONS SEP/01
7467:
7468: --for bug 2412868 begin
7469: oe_debug_pub.add('bug 2412868 in update1:');
7470: if p_req_line_tbl(l_req_line_index).line_quantity < 0
7471: and ( p_req_line_tbl(l_req_line_index).line_category is null or
7472: p_req_line_tbl(l_req_line_index).line_category = 'ORDER'
7473: ) then
7472: p_req_line_tbl(l_req_line_index).line_category = 'ORDER'
7473: ) then
7474: l_line_rec.line_category_code := 'RETURN' ;
7475: l_line_rec.return_reason_code := 'RETURN' ;
7476: oe_debug_pub.add('bug 2412868 in update:');
7477: elsif p_req_line_tbl(l_req_line_index).line_category = 'RETURN'
7478: then
7479: l_line_rec.line_category_code := 'ORDER' ;
7480: end if;
7503: End If;
7504:
7505: Exception
7506: When E_Closed_PRG_Line Then
7507: oe_debug_pub.add(' PRG ignore, Closed line!');
7508: End; --End for the begin in 'FOR' loop
7509:
7510: i:= p_Line_Adj_Assoc_Tbl.Next(i);
7511: End loop; -- Process Adjustments
7528: l_line_rec.operation := OE_GLOBALS.G_OPR_CREATE;
7529:
7530: l_line_rec.Header_id := P_Header_Id;
7531: --for bug 2412868 Begin
7532: oe_debug_pub.add('b2412868:'||p_req_line_tbl(l_req_line_index).line_quantity);
7533: oe_debug_pub.add('b2412868:'||p_req_line_tbl(l_req_line_index).priced_quantity);
7534: if p_req_line_tbl(l_req_line_index).line_quantity < 0
7535: and
7536: ( p_req_line_tbl(l_req_line_index).line_category is null or
7529:
7530: l_line_rec.Header_id := P_Header_Id;
7531: --for bug 2412868 Begin
7532: oe_debug_pub.add('b2412868:'||p_req_line_tbl(l_req_line_index).line_quantity);
7533: oe_debug_pub.add('b2412868:'||p_req_line_tbl(l_req_line_index).priced_quantity);
7534: if p_req_line_tbl(l_req_line_index).line_quantity < 0
7535: and
7536: ( p_req_line_tbl(l_req_line_index).line_category is null or
7537: p_req_line_tbl(l_req_line_index).line_category = 'ORDER'
7537: p_req_line_tbl(l_req_line_index).line_category = 'ORDER'
7538: ) then
7539: l_line_rec.line_category_code := 'RETURN' ;
7540: l_line_rec.return_reason_code := 'RETURN' ;
7541: oe_debug_pub.add('bug 2412868 in if :');
7542: elsif p_req_line_tbl(l_req_line_index).line_category = 'RETURN' then
7543: l_line_rec.line_category_code := 'ORDER';
7544: end if;
7545: --for bug 2412868 end
7588: the same as defined in the modifer
7589: and NOT the base UOM
7590: */
7591:
7592: oe_debug_pub.add('rlanka: setting ordered quantity UOM');
7593: oe_debug_pub.add('UOM = ' || p_req_line_tbl(l_Req_Line_Index).line_uom_code);
7594: l_line_rec.order_quantity_uom := p_req_line_tbl(l_Req_Line_Index).line_uom_code;
7595:
7596: --end Bug 1805134
7589: and NOT the base UOM
7590: */
7591:
7592: oe_debug_pub.add('rlanka: setting ordered quantity UOM');
7593: oe_debug_pub.add('UOM = ' || p_req_line_tbl(l_Req_Line_Index).line_uom_code);
7594: l_line_rec.order_quantity_uom := p_req_line_tbl(l_Req_Line_Index).line_uom_code;
7595:
7596: --end Bug 1805134
7597:
8282: While l_Sort_Index is not null Loop
8283:
8284: J := l_Sorted_Adjustment_Tbl(l_Sort_Index).Adj_Index;
8285: l_adjusted_amt_changed := FALSE;
8286: oe_debug_pub.add(' Sorted index value:'||J);
8287: G_STMT_NO := 'Calculate_Price#20';
8288:
8289: If ( p_Line_Adj_Tbl(j).Line_Index = i or
8290: (p_Line_Adj_Tbl(j).line_id = p_Line_Tbl(i).line_id and
8328: --will be recalculated.
8329: If p_line_adj_tbl(j).price_break_type_code = QP_PREQ_GRP.G_RANGE_BREAK Then
8330: p_Line_Adj_Tbl(j).adjusted_amount_per_pqty:=0;
8331: End If;
8332: oe_debug_pub.add('xNo of assoc in assoc_tbl:'|| p_line_adj_assoc_Tbl.count);
8333: J1 := p_line_adj_assoc_Tbl.First;
8334: l_Total_Quantity := 0;
8335: l_assoc_exist := FALSE;
8336: While J1 is not null loop
8464: p_Line_Adj_Tbl(j2).Adjusted_Amount_Per_Pqty * p_Line_Adj_Tbl(j2).Range_break_Quantity;
8465: l_adjusted_amt_changed := TRUE;
8466: l_total_Quantity := l_total_Quantity + p_Line_Adj_Tbl(j2).Range_break_Quantity;
8467:
8468: oe_debug_pub.add(' Rounding adj list line ty:'|| p_Line_Adj_Tbl(j).list_line_type_code);
8469: oe_debug_pub.add(' Rounding adj list line id:'||p_Line_Adj_Tbl(j).list_line_id);
8470: oe_debug_pub.add(' Rounding adj operand:'||p_Line_Adj_Tbl(j).operand);
8471:
8472: Else
8465: l_adjusted_amt_changed := TRUE;
8466: l_total_Quantity := l_total_Quantity + p_Line_Adj_Tbl(j2).Range_break_Quantity;
8467:
8468: oe_debug_pub.add(' Rounding adj list line ty:'|| p_Line_Adj_Tbl(j).list_line_type_code);
8469: oe_debug_pub.add(' Rounding adj list line id:'||p_Line_Adj_Tbl(j).list_line_id);
8470: oe_debug_pub.add(' Rounding adj operand:'||p_Line_Adj_Tbl(j).operand);
8471:
8472: Else
8473: p_Line_Adj_Tbl(j).Adjusted_Amount_Per_Pqty := p_Line_Adj_Tbl(j2).Adjusted_Amount_Per_Pqty;
8466: l_total_Quantity := l_total_Quantity + p_Line_Adj_Tbl(j2).Range_break_Quantity;
8467:
8468: oe_debug_pub.add(' Rounding adj list line ty:'|| p_Line_Adj_Tbl(j).list_line_type_code);
8469: oe_debug_pub.add(' Rounding adj list line id:'||p_Line_Adj_Tbl(j).list_line_id);
8470: oe_debug_pub.add(' Rounding adj operand:'||p_Line_Adj_Tbl(j).operand);
8471:
8472: Else
8473: p_Line_Adj_Tbl(j).Adjusted_Amount_Per_Pqty := p_Line_Adj_Tbl(j2).Adjusted_Amount_Per_Pqty;
8474: l_adjusted_amt_changed := TRUE;
8486: J1 := p_line_adj_assoc_Tbl.Next(J1);
8487: End loop; -- J1
8488:
8489: If p_Line_Adj_Tbl(j).Price_Break_Type_Code = QP_PREQ_GRP.G_RANGE_BREAK Then
8490: oe_debug_pub.add('xAdj_amt_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8491: if p_line_adj_tbl(j).range_break_quantity is null and l_total_quantity > 0
8492: then --bug 2813670
8493: oe_debug_pub.add('Value of l_tot_qty :'||l_total_quantity);
8494: p_line_adj_tbl(j).adjusted_amount_per_pqty :=
8489: If p_Line_Adj_Tbl(j).Price_Break_Type_Code = QP_PREQ_GRP.G_RANGE_BREAK Then
8490: oe_debug_pub.add('xAdj_amt_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8491: if p_line_adj_tbl(j).range_break_quantity is null and l_total_quantity > 0
8492: then --bug 2813670
8493: oe_debug_pub.add('Value of l_tot_qty :'||l_total_quantity);
8494: p_line_adj_tbl(j).adjusted_amount_per_pqty :=
8495: p_line_adj_tbl(j).adjusted_amount_per_pqty/l_total_quantity;
8496: else
8497: p_line_adj_tbl(j).adjusted_amount_per_pqty :=
8496: else
8497: p_line_adj_tbl(j).adjusted_amount_per_pqty :=
8498: p_line_adj_tbl(j).adjusted_amount_per_pqty/p_line_adj_tbl(j).range_break_quantity;
8499: end if;
8500: oe_debug_pub.add('xRange break qty:'||p_line_adj_tbl(j).range_break_quantity);
8501:
8502: oe_debug_pub.add('xFinal Range break adj amt:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8503: End If;
8504:
8498: p_line_adj_tbl(j).adjusted_amount_per_pqty/p_line_adj_tbl(j).range_break_quantity;
8499: end if;
8500: oe_debug_pub.add('xRange break qty:'||p_line_adj_tbl(j).range_break_quantity);
8501:
8502: oe_debug_pub.add('xFinal Range break adj amt:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8503: End If;
8504:
8505: If p_Line_Adj_Tbl(j).operand is not null Then
8506: QP_UTIL_PUB.round_price
8639: -- Process_Characteristics invconv
8640: (p_line_tbl(i).inventory_item_id
8641: ,p_line_tbl(i).ship_from_org_id
8642: ,l_item_rec) THEN
8643: oe_debug_pub.add('OPM - this IS a process line in proc calculate_price in OEXVADJB.pls ');
8644: IF l_item_rec.ont_pricing_qty_source = 'S' THEN -- price by quantity 2 INVCONV
8645:
8646: IF (p_line_tbl(i).ordered_quantity2 IS NOT NULL and p_line_tbl(i).ordered_quantity2 <> 0 )
8647: AND ( p_line_tbl(i).shipped_quantity2 IS NOT NULL and p_line_tbl(i).shipped_quantity2 <> 0 )
8645:
8646: IF (p_line_tbl(i).ordered_quantity2 IS NOT NULL and p_line_tbl(i).ordered_quantity2 <> 0 )
8647: AND ( p_line_tbl(i).shipped_quantity2 IS NOT NULL and p_line_tbl(i).shipped_quantity2 <> 0 )
8648: AND (p_line_tbl(i).ordered_quantity2 <> p_line_tbl(i).shipped_quantity2) THEN
8649: oe_debug_pub.add('OPM Updating operand ' ,5);
8650: p_Line_Adj_Tbl(j).operand := (p_Line_Adj_tbl(j).operand_per_pqty* p_line_tbl(i).pricing_quantity )/p_line_tbl(i).ordered_quantity2
8651: * (p_line_tbl(i).shipped_quantity2/p_line_tbl(i).ordered_quantity);
8652: oe_debug_pub.ADD('OPM NEW operand : '|| to_char(p_Line_Adj_Tbl(j).operand),5);
8653: END IF;
8648: AND (p_line_tbl(i).ordered_quantity2 <> p_line_tbl(i).shipped_quantity2) THEN
8649: oe_debug_pub.add('OPM Updating operand ' ,5);
8650: p_Line_Adj_Tbl(j).operand := (p_Line_Adj_tbl(j).operand_per_pqty* p_line_tbl(i).pricing_quantity )/p_line_tbl(i).ordered_quantity2
8651: * (p_line_tbl(i).shipped_quantity2/p_line_tbl(i).ordered_quantity);
8652: oe_debug_pub.ADD('OPM NEW operand : '|| to_char(p_Line_Adj_Tbl(j).operand),5);
8653: END IF;
8654: END IF;
8655: END IF; --oe_line_util.dual_uom_control -- INVCONV
8656: -- OPM 2547940 end
8686:
8687: IF (p_line_tbl(i).ordered_quantity2 IS NOT NULL and p_line_tbl(i).ordered_quantity2 <> 0 )
8688: AND ( p_line_tbl(i).shipped_quantity2 IS NOT NULL and p_line_tbl(i).shipped_quantity2 <> 0 )
8689: AND p_line_tbl(i).ordered_quantity2 <> p_line_tbl(i).shipped_quantity2 THEN
8690: oe_debug_pub.add('OPM Updating adjusted amount ' ,5);
8691: p_Line_Adj_Tbl(j).adjusted_amount := (p_Line_Adj_tbl(j).adjusted_amount_per_pqty* p_line_tbl(i).pricing_quantity )/p_line_tbl(i).ordered_quantity2
8692: * (p_line_tbl(i).shipped_quantity2/p_line_tbl(i).ordered_quantity);
8693: END IF;
8694: END IF;
8696: -- OPM 2547940 end
8697:
8698:
8699: If G_DEBUG Then
8700: oe_debug_pub.add(' p_line_tbl(i).line_id:'||i||' '||p_line_tbl(i).line_id);
8701: oe_debug_pub.add(' p_line_tbl(i).pricing_quantity:'||i||': '||p_line_tbl(i).pricing_quantity);
8702: oe_debug_pub.add(' p_line_tbl(i).ordered_quantity:'||i||': '||p_line_tbl(i).ordered_quantity);
8703: oe_debug_pub.add(' p_Line_Adj_Tbl(j).adjusted_amount:'||j||': '|| p_Line_Adj_Tbl(j).adjusted_amount);
8704: oe_debug_pub.add(' p_line_adj_tbl(j).list_line_id:'||j||': '||p_line_adj_tbl(j).list_line_id);
8697:
8698:
8699: If G_DEBUG Then
8700: oe_debug_pub.add(' p_line_tbl(i).line_id:'||i||' '||p_line_tbl(i).line_id);
8701: oe_debug_pub.add(' p_line_tbl(i).pricing_quantity:'||i||': '||p_line_tbl(i).pricing_quantity);
8702: oe_debug_pub.add(' p_line_tbl(i).ordered_quantity:'||i||': '||p_line_tbl(i).ordered_quantity);
8703: oe_debug_pub.add(' p_Line_Adj_Tbl(j).adjusted_amount:'||j||': '|| p_Line_Adj_Tbl(j).adjusted_amount);
8704: oe_debug_pub.add(' p_line_adj_tbl(j).list_line_id:'||j||': '||p_line_adj_tbl(j).list_line_id);
8705: oe_debug_pub.add(' p_line_adj_tbl(j).adjusted_amount_per_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8698:
8699: If G_DEBUG Then
8700: oe_debug_pub.add(' p_line_tbl(i).line_id:'||i||' '||p_line_tbl(i).line_id);
8701: oe_debug_pub.add(' p_line_tbl(i).pricing_quantity:'||i||': '||p_line_tbl(i).pricing_quantity);
8702: oe_debug_pub.add(' p_line_tbl(i).ordered_quantity:'||i||': '||p_line_tbl(i).ordered_quantity);
8703: oe_debug_pub.add(' p_Line_Adj_Tbl(j).adjusted_amount:'||j||': '|| p_Line_Adj_Tbl(j).adjusted_amount);
8704: oe_debug_pub.add(' p_line_adj_tbl(j).list_line_id:'||j||': '||p_line_adj_tbl(j).list_line_id);
8705: oe_debug_pub.add(' p_line_adj_tbl(j).adjusted_amount_per_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8706: End If;
8699: If G_DEBUG Then
8700: oe_debug_pub.add(' p_line_tbl(i).line_id:'||i||' '||p_line_tbl(i).line_id);
8701: oe_debug_pub.add(' p_line_tbl(i).pricing_quantity:'||i||': '||p_line_tbl(i).pricing_quantity);
8702: oe_debug_pub.add(' p_line_tbl(i).ordered_quantity:'||i||': '||p_line_tbl(i).ordered_quantity);
8703: oe_debug_pub.add(' p_Line_Adj_Tbl(j).adjusted_amount:'||j||': '|| p_Line_Adj_Tbl(j).adjusted_amount);
8704: oe_debug_pub.add(' p_line_adj_tbl(j).list_line_id:'||j||': '||p_line_adj_tbl(j).list_line_id);
8705: oe_debug_pub.add(' p_line_adj_tbl(j).adjusted_amount_per_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8706: End If;
8707: End If;
8700: oe_debug_pub.add(' p_line_tbl(i).line_id:'||i||' '||p_line_tbl(i).line_id);
8701: oe_debug_pub.add(' p_line_tbl(i).pricing_quantity:'||i||': '||p_line_tbl(i).pricing_quantity);
8702: oe_debug_pub.add(' p_line_tbl(i).ordered_quantity:'||i||': '||p_line_tbl(i).ordered_quantity);
8703: oe_debug_pub.add(' p_Line_Adj_Tbl(j).adjusted_amount:'||j||': '|| p_Line_Adj_Tbl(j).adjusted_amount);
8704: oe_debug_pub.add(' p_line_adj_tbl(j).list_line_id:'||j||': '||p_line_adj_tbl(j).list_line_id);
8705: oe_debug_pub.add(' p_line_adj_tbl(j).adjusted_amount_per_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8706: End If;
8707: End If;
8708:
8701: oe_debug_pub.add(' p_line_tbl(i).pricing_quantity:'||i||': '||p_line_tbl(i).pricing_quantity);
8702: oe_debug_pub.add(' p_line_tbl(i).ordered_quantity:'||i||': '||p_line_tbl(i).ordered_quantity);
8703: oe_debug_pub.add(' p_Line_Adj_Tbl(j).adjusted_amount:'||j||': '|| p_Line_Adj_Tbl(j).adjusted_amount);
8704: oe_debug_pub.add(' p_line_adj_tbl(j).list_line_id:'||j||': '||p_line_adj_tbl(j).list_line_id);
8705: oe_debug_pub.add(' p_line_adj_tbl(j).adjusted_amount_per_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8706: End If;
8707: End If;
8708:
8709: END IF;
9077: l_item_rec OE_ORDER_CACHE.item_rec_type; -- OPM 2547940
9078: l_process Boolean; -- OPM 2547940
9079:
9080: --
9081: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9082: --
9083: l_order_source_id NUMBER;
9084: l_orig_sys_document_ref VARCHAR2(50);
9085: l_orig_sys_line_ref VARCHAR2(50);
9180: End If;
9181:
9182: G_IPL_ERRORS_TBL(l_line_rec.line_id):=l_line_rec.price_list_id;
9183:
9184: oe_debug_pub.add('Before checking book flag');
9185: oe_debug_pub.add('Invalid line flag:'||l_invalid_line);
9186:
9187: If nvl(l_line_rec.booked_flag,'X') = 'Y' Then
9188: oe_debug_pub.add(' Before setting message');
9181:
9182: G_IPL_ERRORS_TBL(l_line_rec.line_id):=l_line_rec.price_list_id;
9183:
9184: oe_debug_pub.add('Before checking book flag');
9185: oe_debug_pub.add('Invalid line flag:'||l_invalid_line);
9186:
9187: If nvl(l_line_rec.booked_flag,'X') = 'Y' Then
9188: oe_debug_pub.add(' Before setting message');
9189: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
9184: oe_debug_pub.add('Before checking book flag');
9185: oe_debug_pub.add('Invalid line flag:'||l_invalid_line);
9186:
9187: If nvl(l_line_rec.booked_flag,'X') = 'Y' Then
9188: oe_debug_pub.add(' Before setting message');
9189: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
9190: oe_debug_pub.add(' Before setting token');
9191: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','price list');
9192: OE_MSG_PUB.ADD;
9186:
9187: If nvl(l_line_rec.booked_flag,'X') = 'Y' Then
9188: oe_debug_pub.add(' Before setting message');
9189: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
9190: oe_debug_pub.add(' Before setting token');
9191: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','price list');
9192: OE_MSG_PUB.ADD;
9193: oe_debug_pub.add('Process adjustments before raising g_exc_error');
9194: RAISE FND_API.G_EXC_ERROR;
9189: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
9190: oe_debug_pub.add(' Before setting token');
9191: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','price list');
9192: OE_MSG_PUB.ADD;
9193: oe_debug_pub.add('Process adjustments before raising g_exc_error');
9194: RAISE FND_API.G_EXC_ERROR;
9195: End If;
9196:
9197: --Fix bug 1650637
9202: set Unit_Selling_Price = Null,Unit_list_price = Null
9203: where line_id = l_line_rec.line_id;
9204:
9205: oe_line_adj_util.delete_row(p_line_id => l_line_rec.line_id);
9206: oe_debug_pub.add(' Updating unit price to null');
9207:
9208: l_line_rec.unit_selling_price := NULL;
9209: l_line_rec.unit_list_price:=NULL;
9210: l_line_rec.unit_selling_price_per_pqty :=NULL;
9209: l_line_rec.unit_list_price:=NULL;
9210: l_line_rec.unit_selling_price_per_pqty :=NULL;
9211: l_line_rec.unit_list_price_per_pqty:=NULL;
9212: Exception When Others Then
9213: Oe_Debug_Pub.add('Oe_Order_Adj_Pvt:Failed to update price:'||SQLERRM);
9214: End;*/
9215: --End If;
9216:
9217: l_line_rec.unit_selling_price := NULL;
9474: p_multiple_events => p_multiple_events);
9475:
9476: End If;-- Status_Code
9477:
9478: oe_debug_pub.add('Before Reset_fields');
9479: If l_invalid_line = 'Y' Then
9480: select oe_msg_request_id_s.nextval into l_request_id from dual;
9481: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
9482: Reset_Fields(l_line_rec);
9518: IF p_req_line_tbl(i).line_id IS NOT NULL AND
9519: p_req_line_tbl(i).line_id <> FND_API.G_MISS_NUM THEN
9520: BEGIN
9521: IF l_debug_level > 0 THEN
9522: oe_debug_pub.add('Getting reference data for line_id:'||p_req_line_tbl(i).line_id);
9523: END IF;
9524: SELECT order_source_id, orig_sys_document_ref, change_sequence,
9525: source_document_type_id, source_document_id, orig_sys_line_ref,
9526: source_document_line_id, orig_sys_shipment_ref
9820:
9821: G_STMT_NO := 'process_adjustments#90';
9822:
9823: Begin
9824: oe_debug_pub.add('Line id:'||
9825: l_line_tbl(p_req_line_detail_Tbl(p_req_related_lines_tbl(i).line_detail_index).line_index).line_id);
9826:
9827: oe_debug_pub.add('Reason:'||
9828: l_line_tbl(p_req_line_detail_Tbl(p_req_related_lines_tbl(i).line_detail_index).line_index).return_reason_code);
9823: Begin
9824: oe_debug_pub.add('Line id:'||
9825: l_line_tbl(p_req_line_detail_Tbl(p_req_related_lines_tbl(i).line_detail_index).line_index).line_id);
9826:
9827: oe_debug_pub.add('Reason:'||
9828: l_line_tbl(p_req_line_detail_Tbl(p_req_related_lines_tbl(i).line_detail_index).line_index).return_reason_code);
9829: Exception when others then
9830: oe_debug_pub.add(SQLERRM||G_STMT_NO);
9831: End;
9826:
9827: oe_debug_pub.add('Reason:'||
9828: l_line_tbl(p_req_line_detail_Tbl(p_req_related_lines_tbl(i).line_detail_index).line_index).return_reason_code);
9829: Exception when others then
9830: oe_debug_pub.add(SQLERRM||G_STMT_NO);
9831: End;
9832:
9833: Process_Other_Item_Line
9834: (p_Line_Detail_Index =>
9883: IF p_req_line_tbl(p_req_line_detail_tbl(j).line_index).line_id IS NOT NULL AND
9884: p_req_line_tbl(p_req_line_detail_tbl(j).line_index).line_id <> FND_API.G_MISS_NUM THEN
9885: BEGIN
9886: IF l_debug_level > 0 THEN
9887: oe_debug_pub.add('Getting reference data for line_id:'||p_req_line_tbl(p_req_line_detail_tbl(j).line_index).line_id);
9888: END IF;
9889: SELECT order_source_id, orig_sys_document_ref, change_sequence,
9890: source_document_type_id, source_document_id, orig_sys_line_ref,
9891: source_document_line_id, orig_sys_shipment_ref
10171: l_line_tbl(i).unit_selling_price := (l_line_tbl(i).unit_selling_price_per_pqty * l_line_tbl(i).pricing_quantity )/l_line_tbl(i).ordered_quantity2
10172: * (l_line_tbl(i).shipped_quantity2/l_line_tbl(i).ordered_quantity);
10173: l_line_tbl(i).unit_list_price := (l_line_tbl(i).unit_list_price_per_pqty * l_line_tbl(i).pricing_quantity )/l_line_tbl(i).ordered_quantity2
10174: * (l_line_tbl(i).shipped_quantity2/l_line_tbl(i).ordered_quantity);
10175: oe_debug_pub.ADD('OPM NEW USP : '|| to_char(l_line_tbl(i).unit_selling_price),5);
10176: END IF;
10177: END IF;
10178: END IF; --oe_line_util.dual_uom_control -- INVCONV
10179: -- OPM 2547940 end
10966: begin
10967: x_return_status := FND_API.G_RET_STS_SUCCESS;
10968:
10969: --btea perf begin
10970: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
10971: G_DEBUG := TRUE;
10972: adj_debug('Entering oe_order_Adj_pvt.Price_line',1);
10973: adj_debug('Version:'||get_version);
10974: Else
10992: close check_lines;
10993: RETURN;
10994: End If;
10995: Else
10996: Oe_Debug_Pub.add('In Multiple events');
10997: open check_lines2;
10998: fetch check_lines2 into l_dummy;
10999: IF check_lines2%NOTFOUND THEN
11000: close check_lines2;
11158:
11159: adj_debug('Entering oe_order_Adj_pvt.Price_adjustments',1);
11160:
11161: --btea perf begin
11162: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
11163: G_DEBUG := TRUE;
11164: adj_debug('BCT G_DEBUG IS:'||OE_DEBUG_PUB.G_DEBUG );
11165: Else
11166: G_DEBUG := FALSE;
11160:
11161: --btea perf begin
11162: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
11163: G_DEBUG := TRUE;
11164: adj_debug('BCT G_DEBUG IS:'||OE_DEBUG_PUB.G_DEBUG );
11165: Else
11166: G_DEBUG := FALSE;
11167: End If;
11168: --btea perf end
11228: );
11229: end if;
11230: g_order_currency := l_header_rec.transactional_curr_code; --bug 2595626
11231:
11232: oe_debug_pub.add(' Param1 UI Flag value:'|| p_request_rec.param1);
11233: l_line_index := l_Line_Tbl1.First;
11234: While l_line_index is not null loop -- Retain the ones with calculate_price_flag=Y'
11235: /* Added elsif condition so that price is calculated even if price flag is N
11236: when request is logged for a line */
11286: p_Adj_Index => i,
11287: p_Line_Adj_Assoc_Tbl => l_line_adj_Assoc_tbl,
11288: p_delete_flag => 'N');
11289:
11290: oe_debug_pub.add('xPrice_Adj query assocs-adj_id:'|| l_line_adj_Tbl(i).price_adjustment_id);
11291: oe_debug_pub.add('xAdj asso count:'||l_line_adj_Assoc_tbl.count);
11292: i:= l_Line_Adj_Tbl.Next(i);
11293: End loop;
11294:
11287: p_Line_Adj_Assoc_Tbl => l_line_adj_Assoc_tbl,
11288: p_delete_flag => 'N');
11289:
11290: oe_debug_pub.add('xPrice_Adj query assocs-adj_id:'|| l_line_adj_Tbl(i).price_adjustment_id);
11291: oe_debug_pub.add('xAdj asso count:'||l_line_adj_Assoc_tbl.count);
11292: i:= l_Line_Adj_Tbl.Next(i);
11293: End loop;
11294:
11295: --Performance change: To update only changed lines
11311: IF OE_GLOBALS.Equal(l_Old_Line_Adj_Tbl(i).adjusted_amount_per_pqty,
11312: l_Line_Adj_Tbl(i).adjusted_amount_per_pqty) THEN
11313: l_Line_Adj_Tbl.delete(i);
11314: ELSE
11315: oe_debug_pub.add(' price adj amount:'|| L_Line_Adj_Tbl(i).adjusted_amount);
11316: L_Line_Adj_Tbl(i).operation := OE_GLOBALS.G_OPR_UPDATE;
11317: END IF;
11318: i:= l_Line_Adj_Tbl.next(i);
11319: END LOOP;
11390: END IF;
11391: END IF; --oe_line_util.dual_uom_control -- INVCONV
11392: -- OPM 2547940 end
11393:
11394: oe_debug_pub.add('unit price'||l_line_tbl(i).unit_list_price||'+'||l_line_tbl(i).unit_selling_price,1);
11395: oe_debug_pub.add('unit price per pqty'||l_line_tbl(i).unit_list_price_per_pqty||'+'||l_line_tbl(i).unit_selling_price_per_pqty,1);
11396:
11397: -- uom end
11398:
11391: END IF; --oe_line_util.dual_uom_control -- INVCONV
11392: -- OPM 2547940 end
11393:
11394: oe_debug_pub.add('unit price'||l_line_tbl(i).unit_list_price||'+'||l_line_tbl(i).unit_selling_price,1);
11395: oe_debug_pub.add('unit price per pqty'||l_line_tbl(i).unit_list_price_per_pqty||'+'||l_line_tbl(i).unit_selling_price_per_pqty,1);
11396:
11397: -- uom end
11398:
11399: -- commented the assigment below and included above to fix bug 2595626
11554: l_Price_Control_Rec.Simulation_Flag := 'N';
11555: l_has_prg_lines := 'Q';
11556:
11557: --MOAC PI BEGIN
11558: oe_debug_pub.add('p_header_id : ' || p_header_id);
11559: IF p_header_id is not null THEN
11560: oe_debug_pub.add('before the loop');
11561: i := p_selected_records.first;
11562: while I is not null loop
11556:
11557: --MOAC PI BEGIN
11558: oe_debug_pub.add('p_header_id : ' || p_header_id);
11559: IF p_header_id is not null THEN
11560: oe_debug_pub.add('before the loop');
11561: i := p_selected_records.first;
11562: while I is not null loop
11563: L_line_id := p_selected_records(i).id1;
11564: --Bug 7330561
11572: l_has_prg_lines:='N';
11573: When others Then
11574: l_has_prg_lines:='Y';
11575: End;
11576: oe_debug_pub.add('Lalit calling Price Line with l_has_prg_lines-' || l_has_prg_lines );
11577: IF l_has_prg_lines = 'Y' THEN
11578: oe_order_Adj_pvt.Price_line(
11579: X_Return_Status => l_Return_Status
11580: ,p_Request_Type_code=> 'ONT'
11610:
11611: ELSE
11612: i := p_selected_records.first;
11613: while i is not null loop
11614: oe_debug_pub.add('id1 : ' || p_selected_records(i).id1);
11615: oe_debug_pub.add('org_id : ' || p_selected_records(i).org_id);
11616: oe_debug_pub.add('id3 : ' || p_selected_records(i).id3);
11617: l_line_id := p_selected_records(i).id1;
11618: l_org_id := p_selected_records(i).org_id;
11611: ELSE
11612: i := p_selected_records.first;
11613: while i is not null loop
11614: oe_debug_pub.add('id1 : ' || p_selected_records(i).id1);
11615: oe_debug_pub.add('org_id : ' || p_selected_records(i).org_id);
11616: oe_debug_pub.add('id3 : ' || p_selected_records(i).id3);
11617: l_line_id := p_selected_records(i).id1;
11618: l_org_id := p_selected_records(i).org_id;
11619: L_header_id := p_selected_records(i).id3;
11612: i := p_selected_records.first;
11613: while i is not null loop
11614: oe_debug_pub.add('id1 : ' || p_selected_records(i).id1);
11615: oe_debug_pub.add('org_id : ' || p_selected_records(i).org_id);
11616: oe_debug_pub.add('id3 : ' || p_selected_records(i).id3);
11617: l_line_id := p_selected_records(i).id1;
11618: l_org_id := p_selected_records(i).org_id;
11619: L_header_id := p_selected_records(i).id3;
11620: If l_prev_org_id is null or l_prev_org_id <> l_org_id Then
12420: l_control_rec.validate_entity := FALSE;
12421: l_control_rec.write_to_db := TRUE;
12422: l_control_rec.change_attributes := FALSE;
12423:
12424: Oe_Debug_Pub.add('Mass Change line id: '||p_line_id);
12425: stmt:='1';
12426:
12427: --For mass change it could be different order headers for lines therefore p_cross_order = 'Y'
12428: Get_Manual_Adjustments(p_line_id => p_line_id,
12436: While i Is Not Null Loop
12437: If l_manual_adj_tbl(i).override_flag = 'Y' Then
12438: --check if such modifier list exists in Oe_Price_Adjustments
12439: --If it is there don't insert a new one
12440: Oe_debug_Pub.add(' Override_flag:'||l_manual_adj_tbl(i).override_flag);
12441: Begin
12442: Select 'Y' Into l_found
12443: From Dual
12444: Where exists (Select 'X' From Oe_Price_Adjustments
12451: End;
12452: stmt:='10';
12453: --Insert only if no modifier list line found.
12454: If l_found = 'N' Then
12455: oe_debug_pub.add(' Creating overridable manual in oe_price_adjustments');
12456: l_line_adj_tbl(1).list_line_no := l_manual_adj_tbl(i).modifier_number; /* Bug #3738023 */
12457: l_line_adj_tbl(1).list_header_id := l_manual_adj_tbl(i).list_header_id;
12458: l_line_adj_tbl(1).list_line_id := l_manual_adj_tbl(i).list_line_id;
12459: l_line_adj_tbl(1).list_line_type_code := l_manual_adj_tbl(i).list_line_type_code;
12482: i:= l_manual_adj_tbl.Next(i);
12483: End Loop;
12484:
12485: Exception When Others Then
12486: Oe_Debug_Pub.Add('Error occured in oe_order_adj_pvt.create_manual_adjustments:'||stmt||':'||SQLERRM);
12487: Raise;
12488: End Create_Manual_Adjustments;
12489:
12490:
12559: l_line_index NUMBER := 0;
12560: l_line_attr_index number:=0;
12561: --bug 3531938
12562: l_order_status_rec QP_UTIL_PUB.ORDER_LINES_STATUS_REC_TYPE;
12563: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12564:
12565: l_manual_all_lines_status Varchar2(1); --bug 7600510
12566:
12567: cursor man_adj is
12583:
12584: --bucket man
12585: Begin
12586: if p_freight_flag then
12587: oe_debug_pub.add('freight flag is true');
12588: else
12589: oe_debug_pub.add('freight flag is false');
12590: end if;
12591: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12585: Begin
12586: if p_freight_flag then
12587: oe_debug_pub.add('freight flag is true');
12588: else
12589: oe_debug_pub.add('freight flag is false');
12590: end if;
12591: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12592: --l_profile_value := Fnd_Profile.Value('QP_MANUAL_LINEGROUP');
12593: oe_debug_pub.add('Entering Get Manual Adj');
12589: oe_debug_pub.add('freight flag is false');
12590: end if;
12591: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12592: --l_profile_value := Fnd_Profile.Value('QP_MANUAL_LINEGROUP');
12593: oe_debug_pub.add('Entering Get Manual Adj');
12594: --bucket man
12595: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12596: oe_order_price_pvt.reset_all_tbls;
12597: qp_price_request_context.set_request_id;
12607: --all the lines regardless of profile_value
12608: --bug 3531938 calling qp api to determine whether to pass all lines
12609: QP_UTIL_PUB.Get_Order_Lines_Status('BATCH',l_order_status_rec);
12610:
12611: oe_debug_pub.add(' All_lines_flag returned from pricing:'||l_order_status_rec.all_lines_flag);
12612: -- bug 6817566
12613: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12614:
12615: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12609: QP_UTIL_PUB.Get_Order_Lines_Status('BATCH',l_order_status_rec);
12610:
12611: oe_debug_pub.add(' All_lines_flag returned from pricing:'||l_order_status_rec.all_lines_flag);
12612: -- bug 6817566
12613: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12614:
12615: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12616: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12617: oe_debug_pub.add(' p_level '||p_level);
12612: -- bug 6817566
12613: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12614:
12615: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12616: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12617: oe_debug_pub.add(' p_level '||p_level);
12618: oe_debug_pub.add(' Check for Manual Advanced modifiers ',3);
12619: --- bug# 7600510 Start
12620: -- GET_MANUAL_ADV_STATUS('BATCH');
12613: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12614:
12615: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12616: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12617: oe_debug_pub.add(' p_level '||p_level);
12618: oe_debug_pub.add(' Check for Manual Advanced modifiers ',3);
12619: --- bug# 7600510 Start
12620: -- GET_MANUAL_ADV_STATUS('BATCH');
12621: QP_UTIL_PUB.Get_Manual_All_Lines_Status ('BATCH', l_manual_all_lines_status ) ;
12614:
12615: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12616: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12617: oe_debug_pub.add(' p_level '||p_level);
12618: oe_debug_pub.add(' Check for Manual Advanced modifiers ',3);
12619: --- bug# 7600510 Start
12620: -- GET_MANUAL_ADV_STATUS('BATCH');
12621: QP_UTIL_PUB.Get_Manual_All_Lines_Status ('BATCH', l_manual_all_lines_status ) ;
12622: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := l_manual_all_lines_status;
12620: -- GET_MANUAL_ADV_STATUS('BATCH');
12621: QP_UTIL_PUB.Get_Manual_All_Lines_Status ('BATCH', l_manual_all_lines_status ) ;
12622: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := l_manual_all_lines_status;
12623: --- bug# 7600510 End
12624: oe_debug_pub.add(' manual_adv_modifier 2 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12625: END IF;
12626:
12627: IF (((p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')
12628: AND(p_level = 'ORDER' or OE_GLOBALS.G_MANUAL_ADV_MODIFIER = 'Y')) -- 6851818
12629: AND p_header_id Is Not Null) Then
12630:
12631: if not (p_level = 'ORDER' and p_freight_flag) then --- bug 7655559
12632: --passing all lines under this header
12633: oe_debug_pub.add(' Query Rows under same header');
12634:
12635: oe_Line_util.query_rows(p_header_id => p_Header_id, x_line_tbl => l_Line_Tbl);
12636: oe_debug_pub.add('#of rows returned='|| to_char(l_line_tbl.count));
12637: oe_debug_pub.add('no.rows in l_line_tbl = '|| to_char(l_line_tbl.count));
12632: --passing all lines under this header
12633: oe_debug_pub.add(' Query Rows under same header');
12634:
12635: oe_Line_util.query_rows(p_header_id => p_Header_id, x_line_tbl => l_Line_Tbl);
12636: oe_debug_pub.add('#of rows returned='|| to_char(l_line_tbl.count));
12637: oe_debug_pub.add('no.rows in l_line_tbl = '|| to_char(l_line_tbl.count));
12638:
12639: -- Bug 1713035
12640: -- Loop through all the lines in database
12633: oe_debug_pub.add(' Query Rows under same header');
12634:
12635: oe_Line_util.query_rows(p_header_id => p_Header_id, x_line_tbl => l_Line_Tbl);
12636: oe_debug_pub.add('#of rows returned='|| to_char(l_line_tbl.count));
12637: oe_debug_pub.add('no.rows in l_line_tbl = '|| to_char(l_line_tbl.count));
12638:
12639: -- Bug 1713035
12640: -- Loop through all the lines in database
12641: -- Replace with the line in memory if found
12640: -- Loop through all the lines in database
12641: -- Replace with the line in memory if found
12642: -- else append
12643:
12644: oe_debug_pub.add('Get line currently in memory');
12645: OE_OE_FORM_LINE.get_line(p_line_id => p_line_id,
12646: x_line_rec => l_line_rec);
12647: For i in 1..l_line_tbl.count Loop
12648: if (l_line_tbl(i).line_id = l_line_rec.line_id) then
12645: OE_OE_FORM_LINE.get_line(p_line_id => p_line_id,
12646: x_line_rec => l_line_rec);
12647: For i in 1..l_line_tbl.count Loop
12648: if (l_line_tbl(i).line_id = l_line_rec.line_id) then
12649: oe_debug_pub.add('Line already posted to DB, so replace');
12650: l_posted_to_db := TRUE;
12651: l_line_tbl(i) := l_line_rec;
12652: exit;
12653: end if;
12653: end if;
12654: end loop;
12655:
12656: if NOT l_posted_to_db then
12657: oe_debug_pub.add('line not in DB, new line');
12658: oe_debug_pub.add('appending line with line_id '
12659: || to_char(p_line_id) ||
12660: ' to l_line_tbl');
12661: /*Bug 3280291*/
12654: end loop;
12655:
12656: if NOT l_posted_to_db then
12657: oe_debug_pub.add('line not in DB, new line');
12658: oe_debug_pub.add('appending line with line_id '
12659: || to_char(p_line_id) ||
12660: ' to l_line_tbl');
12661: /*Bug 3280291*/
12662: IF l_line_rec.line_id is not NULL THEN
12666: end if;--- bug 7655559
12667:
12668: Elsif p_line_id is not null Then
12669: --just pass one line
12670: oe_debug_pub.add(' Query Rows under for line line id:'||p_line_id);
12671: --oe_line_util.query_row(p_line_id =>p_line_id,x_line_rec=>l_line_rec);
12672:
12673: -- Bug 1713035
12674: -- Use oe_oe_form_line.get_line instead of query_rows
12671: --oe_line_util.query_row(p_line_id =>p_line_id,x_line_rec=>l_line_rec);
12672:
12673: -- Bug 1713035
12674: -- Use oe_oe_form_line.get_line instead of query_rows
12675: oe_debug_pub.add('calling get_line in oe_oe_form_line');
12676: OE_OE_FORM_LINE.get_line(
12677: p_line_id => p_line_id,
12678: x_line_rec => l_line_rec);
12679:
12697: --Cross order lines, lines may not came from same header need to query header for each line
12698: If p_cross_order = 'Y' and p_header_id Is Null Then
12699: oe_Header_util.query_row(p_header_id=>l_line_tbl(line_tbl_index).header_id,
12700: x_header_rec => OE_Order_PUB.g_hdr );
12701: oe_debug_pub.add(' Currency Code:'||OE_Order_PUB.g_hdr.transactional_curr_code);
12702: x_header_id := l_line_tbl(line_tbl_index).header_id;
12703: End If;
12704:
12705: --Populate global structure since attribute mapping only read global structure
12726: END IF;
12727: OE_Order_PUB.G_LINE := NULL;
12728: Exception
12729: When Others then
12730: oe_debug_pub.add(' QP ATTR MAPPING ERRORS 1');
12731: Raise QP_ATTR_MAPPING_ERRORS;
12732: End;
12733: G_STMT_NO := 'Get_manual_adjustment#2';
12734:
12844: Exception
12845: --when no_data_found then
12846: --(' QP ATTR MAPPING ERRORS 2');
12847: When Others then
12848: Oe_Debug_Pub.Add(' QP ATTR MAPPING ERRORS 2');
12849: Raise QP_ATTR_MAPPING_ERRORS;
12850:
12851: End;
12852:
12920:
12921: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12922: IF l_line_index > 0 THEN
12923: If l_debug_level > 0 Then
12924: oe_debug_pub.add('before Populate_Temp_Table');
12925: End If;
12926: oe_order_price_pvt.Populate_Temp_Table;
12927: END IF;
12928: l_control_rec.request_type_code := 'ONT';
12978: g_stmt_no :='Get Manual Adj#5.5';
12979: for k In man_adj Loop
12980: If k.automatic_flag = 'N' Then
12981: If l_debug_level > 0 Then
12982: Oe_Debug_Pub.Add('+Line_type_code:'||k.line_type_code);
12983: Oe_Debug_Pub.Add('+List_line_no:'||k.list_line_no);
12984: End If;
12985:
12986: --Only return 1 set of lov per line id or per header id
12979: for k In man_adj Loop
12980: If k.automatic_flag = 'N' Then
12981: If l_debug_level > 0 Then
12982: Oe_Debug_Pub.Add('+Line_type_code:'||k.line_type_code);
12983: Oe_Debug_Pub.Add('+List_line_no:'||k.list_line_no);
12984: End If;
12985:
12986: --Only return 1 set of lov per line id or per header id
12987: If (p_level In ('ORDER') and
13053: i:=lx_req_line_detail_tbl.first;
13054: g_stmt_no :='Get Manual Adj#5.5';
13055: While i Is not Null Loop
13056: If lx_req_line_detail_tbl(i).automatic_flag = 'N' Then
13057: Oe_Debug_Pub.Add('+Line_type_code:'||l_req_line_tbl(lx_req_line_detail_tbl(i).line_index).line_type_code);
13058: Oe_Debug_Pub.Add('+List_line_no:'||lx_req_line_detail_tbl(i).list_line_no);
13059:
13060: --Only return 1 set of lov per line id or per header id
13061: If (p_level In ('ORDER') and
13054: g_stmt_no :='Get Manual Adj#5.5';
13055: While i Is not Null Loop
13056: If lx_req_line_detail_tbl(i).automatic_flag = 'N' Then
13057: Oe_Debug_Pub.Add('+Line_type_code:'||l_req_line_tbl(lx_req_line_detail_tbl(i).line_index).line_type_code);
13058: Oe_Debug_Pub.Add('+List_line_no:'||lx_req_line_detail_tbl(i).list_line_no);
13059:
13060: --Only return 1 set of lov per line id or per header id
13061: If (p_level In ('ORDER') and
13062: (l_req_line_tbl(lx_req_line_detail_tbl(i).line_index).line_type_code = 'ORDER' or
13092: x_manual_adj_tbl(i).modifier_level_code:=lx_req_line_detail_tbl(i).modifier_level_code;
13093: x_manual_adj_tbl(i).override_flag :=lx_req_line_detail_tbl(i).override_flag;
13094: x_manual_adj_tbl(i).operator :=lx_req_line_detail_tbl(i).operand_calculation_code;
13095: x_manual_adj_tbl(i).adjusted_amount :=round(lx_req_line_detail_tbl(i).ADJUSTMENT_AMOUNT,6);
13096: oe_debug_pub.add('get manual adj:after round:'||x_manual_adj_tbl(i).adjusted_amount);
13097: x_manual_adj_tbl(i).charge_type_code :=lx_req_line_detail_tbl(i).CHARGE_TYPE_CODE;
13098: x_manual_adj_tbl(i).CHARGE_SUBTYPE_CODE :=lx_req_line_detail_tbl(i).CHARGE_SUBTYPE_CODE;
13099: End If;
13100:
13121: (x_manual_adj_tbl(j).price_break_type_code = 'RANGE' --bucket man
13122: and p_pbh_mode <> 'PARENT'
13123: )
13124: ) then
13125: oe_debug_pub.add(' Manual adj call: deleting order level adjustment');
13126: oe_debug_pub.add(' Manual adj call: remove RANGE break');
13127: x_manual_adj_tbl.delete(j);
13128: end if;
13129: ELSE
13122: and p_pbh_mode <> 'PARENT'
13123: )
13124: ) then
13125: oe_debug_pub.add(' Manual adj call: deleting order level adjustment');
13126: oe_debug_pub.add(' Manual adj call: remove RANGE break');
13127: x_manual_adj_tbl.delete(j);
13128: end if;
13129: ELSE
13130: if (x_manual_adj_tbl(j).modifier_level_code = 'ORDER' or
13139: --children. We support manual range break from view adjustments form
13140: --because in view adjustments, it is the parent PBH a user get to choose
13141: --and the system will insert all range break children.
13142:
13143: oe_debug_pub.add(' Manual adj call: deleting order level adjustment');
13144: oe_debug_pub.add(' Manual adj call: remove RANGE break');
13145: x_manual_adj_tbl.delete(j);
13146: end if;
13147: END IF;
13140: --because in view adjustments, it is the parent PBH a user get to choose
13141: --and the system will insert all range break children.
13142:
13143: oe_debug_pub.add(' Manual adj call: deleting order level adjustment');
13144: oe_debug_pub.add(' Manual adj call: remove RANGE break');
13145: x_manual_adj_tbl.delete(j);
13146: end if;
13147: END IF;
13148: j := x_manual_adj_tbl.next(j);
13148: j := x_manual_adj_tbl.next(j);
13149: End loop;
13150: end if;
13151:
13152: Oe_Debug_Pub.add('Exiting Get manual adj');
13153:
13154: EXCEPTION
13155:
13156: WHEN FND_API.G_EXC_ERROR THEN
13159: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_Text);
13160: OE_MSG_PUB.Add;
13161: x_return_status := FND_API.G_RET_STS_ERROR;
13162:
13163: Oe_Debug_Pub.add('g_exc_error is '||g_stmt_no||' '||sqlerrm,1);
13164: Oe_Debug_Pub.add('g_exc_error is '||l_return_status_Text);
13165: --DBMS_OUTPUT.PUT_LINE('g_exc_error is '||l_return_status_Text);
13166: RAISE FND_API.G_EXC_ERROR;
13167:
13160: OE_MSG_PUB.Add;
13161: x_return_status := FND_API.G_RET_STS_ERROR;
13162:
13163: Oe_Debug_Pub.add('g_exc_error is '||g_stmt_no||' '||sqlerrm,1);
13164: Oe_Debug_Pub.add('g_exc_error is '||l_return_status_Text);
13165: --DBMS_OUTPUT.PUT_LINE('g_exc_error is '||l_return_status_Text);
13166: RAISE FND_API.G_EXC_ERROR;
13167:
13168: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13170: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
13171: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_Text);
13172: OE_MSG_PUB.Add;
13173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13174: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||g_stmt_no||' '||sqlerrm,1);
13175: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13176: --DBMS_OUTPUT.PUT_LINE('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13178: WHEN QP_ATTR_MAPPING_ERRORS Then
13171: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_Text);
13172: OE_MSG_PUB.Add;
13173: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13174: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||g_stmt_no||' '||sqlerrm,1);
13175: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13176: --DBMS_OUTPUT.PUT_LINE('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13177: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13178: WHEN QP_ATTR_MAPPING_ERRORS Then
13179: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
13179: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
13180: FND_MESSAGE.SET_TOKEN('ERR_TEXT','Errors return from QP_Attr_Mapping_PUB.Build_Context');
13181: OE_MSG_PUB.Add;
13182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13183: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is: QP_Attr_Mapping_PUB.Build_Context'||sqlerrm,1);
13184: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13185: Oe_Debug_Pub.add('QP_ATTR_MAPPING_ERRORS');
13186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13187: WHEN OTHERS THEN
13180: FND_MESSAGE.SET_TOKEN('ERR_TEXT','Errors return from QP_Attr_Mapping_PUB.Build_Context');
13181: OE_MSG_PUB.Add;
13182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13183: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is: QP_Attr_Mapping_PUB.Build_Context'||sqlerrm,1);
13184: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13185: Oe_Debug_Pub.add('QP_ATTR_MAPPING_ERRORS');
13186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13187: WHEN OTHERS THEN
13188:
13181: OE_MSG_PUB.Add;
13182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13183: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is: QP_Attr_Mapping_PUB.Build_Context'||sqlerrm,1);
13184: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13185: Oe_Debug_Pub.add('QP_ATTR_MAPPING_ERRORS');
13186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13187: WHEN OTHERS THEN
13188:
13189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13187: WHEN OTHERS THEN
13188:
13189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13190: Oe_Debug_Pub.add('Error is '||sqlerrm);
13191: Oe_Debug_Pub.add('Error Code is '||g_stmt_no||' '||sqlerrm,1);
13192:
13193: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13194: THEN
13187: WHEN OTHERS THEN
13188:
13189: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13190: Oe_Debug_Pub.add('Error is '||sqlerrm);
13191: Oe_Debug_Pub.add('Error Code is '||g_stmt_no||' '||sqlerrm,1);
13192:
13193: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13194: THEN
13195: OE_MSG_PUB.Add_Exc_Msg
13337:
13338: x_get_manual_adv VARCHAR2(1);
13339:
13340: BEGIN
13341: oe_debug_pub.add(' Inside GET_MANUAL_ADV_STATUS ',3);
13342: x_get_manual_adv := NULL;
13343:
13344: OPEN l_send_all_lines_cur(p_event_code || ',') ;
13345: FETCH l_send_all_lines_cur INTO x_get_manual_adv;
13345: FETCH l_send_all_lines_cur INTO x_get_manual_adv;
13346: CLOSE l_send_all_lines_cur;
13347:
13348: If x_get_manual_adv = 'X' THEN
13349: oe_debug_pub.add('Manual adv modifiers exist');
13350: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'Y';
13351: ELSE
13352: oe_debug_pub.add('Manual adv modifiers do not exist');
13353: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'N';
13348: If x_get_manual_adv = 'X' THEN
13349: oe_debug_pub.add('Manual adv modifiers exist');
13350: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'Y';
13351: ELSE
13352: oe_debug_pub.add('Manual adv modifiers do not exist');
13353: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'N';
13354: END IF;
13355:
13356:
13353: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'N';
13354: END IF;
13355:
13356:
13357: oe_debug_pub.add('return_value '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER,3);
13358: oe_debug_pub.add(' Leaving GET_MANUAL_ADV_STATUS ',3);
13359: END GET_MANUAL_ADV_STATUS;
13360:
13361: end Oe_Order_Adj_Pvt;
13354: END IF;
13355:
13356:
13357: oe_debug_pub.add('return_value '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER,3);
13358: oe_debug_pub.add(' Leaving GET_MANUAL_ADV_STATUS ',3);
13359: END GET_MANUAL_ADV_STATUS;
13360:
13361: end Oe_Order_Adj_Pvt;