[Home] [Help]
14:
15: procedure Adj_Debug (p_text IN VARCHAR2, p_dummy IN NUMBER:=0) As
16: Begin
17: If G_DEBUG Then
18: oe_debug_pub.add(p_text,3);
19: End If;
20: End;
21:
22: --btea perf end
126: l_tax_value Number;
127:
128: l_return_status Varchar2(30);
129: --
130: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
131: --
132:
133: Begin
134: oe_debug_pub.add('Entering Reset Field:line_id:'||(p_line_rec.line_id));
130: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
131: --
132:
133: Begin
134: oe_debug_pub.add('Entering Reset Field:line_id:'||(p_line_rec.line_id));
135: open get_price(p_line_rec.line_id);
136: fetch get_price into l_qp_unit_price,
137: l_qp_adjusted_unit_price,
138: l_pricing_quantity,
181: AND update_line.blanket_number IS NOT NULL
182: THEN
183:
184: IF l_debug_level > 0 THEN
185: oe_debug_pub.add('OEXVADJB log blanket request');
186: oe_debug_pub.add('old SP :'||update_line.unit_selling_price);
187: oe_debug_pub.add('new SP :'||l_selling_price);
188: END IF;
189:
182: THEN
183:
184: IF l_debug_level > 0 THEN
185: oe_debug_pub.add('OEXVADJB log blanket request');
186: oe_debug_pub.add('old SP :'||update_line.unit_selling_price);
187: oe_debug_pub.add('new SP :'||l_selling_price);
188: END IF;
189:
190: OE_Order_Cache.Load_Order_Header(update_line.header_id);
183:
184: IF l_debug_level > 0 THEN
185: oe_debug_pub.add('OEXVADJB log blanket request');
186: oe_debug_pub.add('old SP :'||update_line.unit_selling_price);
187: oe_debug_pub.add('new SP :'||l_selling_price);
188: END IF;
189:
190: OE_Order_Cache.Load_Order_Header(update_line.header_id);
191: --for bug 3108881.Log the request for Orders only
251: -- bug 2757443.
252: IF update_line.commitment_id IS NOT NULL
253: AND OE_Commitment_Pvt.Do_Commitment_Sequencing THEN
254:
255: oe_debug_pub.add('Logging delayed request for Commitment.', 2);
256: OE_Delayed_Requests_Pvt.Log_Request(
257: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
258: p_entity_id => update_line.line_id,
259: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
283: oe_line_adj_util.delete_row(p_line_id => p_line_rec.line_id);
284:
285: --set cascade flag to reflect changes.
286: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
287: Oe_Debug_Pub.add('Leaving reset_fields');
288: Exception When Others Then
289: Oe_Debug_Pub.add('In procedure reset_fields:'||SQLERRM);
290: End;
291:
285: --set cascade flag to reflect changes.
286: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
287: Oe_Debug_Pub.add('Leaving reset_fields');
288: Exception When Others Then
289: Oe_Debug_Pub.add('In procedure reset_fields:'||SQLERRM);
290: End;
291:
292:
293: Function Get_List_Lines (p_line_id Number) Return Varchar2 As
331: l_sec_result NUMBER;
332: l_on_operation_action NUMBER;
333: I pls_integer; -- Used as index for while loop
334: --
335: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
336: --
337: l_order_source_id NUMBER;
338: l_orig_sys_document_ref VARCHAR2(50);
339: l_change_sequence VARCHAR2(50);
384: IF l_header_adj_rec.header_Id IS NOT NULL AND
385: l_header_adj_rec.header_Id <> FND_API.G_MISS_NUM THEN
386: BEGIN
387: IF l_debug_level > 0 THEN
388: oe_debug_pub.add('Getting reference data for header_id:'||l_header_adj_rec.header_Id);
389: END IF;
390: SELECT order_source_id, orig_sys_document_ref, change_sequence,
391: source_document_type_id, source_document_id
392: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
428: l_old_header_adj_rec.header_Id <> FND_API.G_MISS_NUM THEN
429:
430: BEGIN
431: IF l_debug_level > 0 THEN
432: oe_debug_pub.add('Getting reference data for old header_id:'||l_old_header_adj_rec.header_id);
433: END IF;
434: SELECT order_source_id, orig_sys_document_ref, change_sequence,
435: source_document_type_id, source_document_id
436: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
695:
696: IF l_control_rec.write_to_db THEN
697:
698: /* Start AuditTrail */
699: OE_DEBUG_PUB.add('OEXVADJB:calling to insert audit history reason for header adj in pre_write_process', 2);
700:
701: Oe_Header_ADJ_Util.Pre_Write_Process
702: (p_x_header_adj_rec => l_header_adj_rec,
703: p_old_header_adj_rec => l_old_header_adj_rec);
701: Oe_Header_ADJ_Util.Pre_Write_Process
702: (p_x_header_adj_rec => l_header_adj_rec,
703: p_old_header_adj_rec => l_old_header_adj_rec);
704:
705: oe_debug_pub.add('OEXVADJB:After calling to insert audit history');
706: /* End AuditTrail */
707:
708: IF l_Header_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
709:
816: --
817: -- Start : Changes made as a part of DBI ER # 4185227
818: --
819: IF l_debug_level > 0 THEN
820: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR HEADER PRICE ADJUSTMENTS' , 1 ) ;
821: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
822: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
823: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
824: END IF;
817: -- Start : Changes made as a part of DBI ER # 4185227
818: --
819: IF l_debug_level > 0 THEN
820: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR HEADER PRICE ADJUSTMENTS' , 1 ) ;
821: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
822: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
823: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
824: END IF;
825:
818: --
819: IF l_debug_level > 0 THEN
820: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR HEADER PRICE ADJUSTMENTS' , 1 ) ;
821: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
822: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
823: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
824: END IF;
825:
826: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
819: IF l_debug_level > 0 THEN
820: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR HEADER PRICE ADJUSTMENTS' , 1 ) ;
821: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
822: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
823: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
824: END IF;
825:
826: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
827: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
962: l_sec_result NUMBER;
963: l_on_operation_action NUMBER;
964: I pls_integer; -- Used as table index for the loop.
965: --
966: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
967: --
968: l_last_line_id Number; --bug 2721485
969: l_line_found Varchar2(1); --bug 2721485
970:
1022: IF l_line_adj_rec.line_id IS NOT NULL AND
1023: l_line_adj_rec.line_id <> FND_API.G_MISS_NUM THEN
1024: BEGIN
1025: IF l_debug_level > 0 THEN
1026: oe_debug_pub.add('Getting reference data for line_id:'||l_line_adj_rec.line_id);
1027: END IF;
1028: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1029: source_document_type_id, source_document_id, orig_sys_line_ref,
1030: source_document_line_id, orig_sys_shipment_ref
1074: IF l_old_line_adj_rec.line_id IS NOT NULL AND
1075: l_old_line_adj_rec.line_id <> FND_API.G_MISS_NUM THEN
1076: BEGIN
1077: IF l_debug_level > 0 THEN
1078: oe_debug_pub.add('Getting reference data for old line_id:'||l_old_line_adj_rec.line_id);
1079: END IF;
1080: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1081: source_document_type_id, source_document_id, orig_sys_line_ref,
1082: source_document_line_id, orig_sys_shipment_ref
1419: adj_debug('Before write_to_db',2);
1420: IF l_control_rec.write_to_db THEN
1421:
1422: /* Start AuditTrail */
1423: OE_DEBUG_PUB.add('OEXVADJB:calling to insert audit history for line adj from pre_write_process', 2);
1424:
1425: Oe_LINE_ADJ_Util.Pre_Write_Process
1426: (p_x_line_adj_rec => l_line_adj_rec,
1427: p_old_line_adj_rec => l_old_line_adj_rec);
1424:
1425: Oe_LINE_ADJ_Util.Pre_Write_Process
1426: (p_x_line_adj_rec => l_line_adj_rec,
1427: p_old_line_adj_rec => l_old_line_adj_rec);
1428: OE_DEBUG_PUB.add('OEXVADJB:After calling to insert audit history for line adj from pre_write_process', 2);
1429: /* End AuditTrail */
1430:
1431: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
1432:
1543: l_Line_Adj_rec.last_updated_by := FND_GLOBAL.USER_ID;
1544: l_Line_Adj_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
1545:
1546: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1547: oe_debug_pub.add(' updating list line id:'||l_Line_Adj_rec.list_line_id);
1548: oe_debug_pub.add(' l_line_adj_rec adjusted_amount:'||l_Line_Adj_rec.adjusted_amount);
1549: oe_debug_pub.add(' line_id:'||l_Line_Adj_rec.line_id);
1550: OE_Line_Adj_Util.Update_Row (l_Line_Adj_rec);
1551:
1544: l_Line_Adj_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
1545:
1546: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1547: oe_debug_pub.add(' updating list line id:'||l_Line_Adj_rec.list_line_id);
1548: oe_debug_pub.add(' l_line_adj_rec adjusted_amount:'||l_Line_Adj_rec.adjusted_amount);
1549: oe_debug_pub.add(' line_id:'||l_Line_Adj_rec.line_id);
1550: OE_Line_Adj_Util.Update_Row (l_Line_Adj_rec);
1551:
1552: ELSIF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1545:
1546: IF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1547: oe_debug_pub.add(' updating list line id:'||l_Line_Adj_rec.list_line_id);
1548: oe_debug_pub.add(' l_line_adj_rec adjusted_amount:'||l_Line_Adj_rec.adjusted_amount);
1549: oe_debug_pub.add(' line_id:'||l_Line_Adj_rec.line_id);
1550: OE_Line_Adj_Util.Update_Row (l_Line_Adj_rec);
1551:
1552: ELSIF l_Line_Adj_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1553:
1586: --
1587: -- Start : Changes made as a part of DBI ER # 4185227
1588: --
1589: IF l_debug_level > 0 THEN
1590: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR ORDER LINE PRICE ADJUSTMENTS' , 1 ) ;
1591: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
1592: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
1593: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
1594: END IF;
1587: -- Start : Changes made as a part of DBI ER # 4185227
1588: --
1589: IF l_debug_level > 0 THEN
1590: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR ORDER LINE PRICE ADJUSTMENTS' , 1 ) ;
1591: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
1592: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
1593: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
1594: END IF;
1595:
1588: --
1589: IF l_debug_level > 0 THEN
1590: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR ORDER LINE PRICE ADJUSTMENTS' , 1 ) ;
1591: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
1592: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
1593: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
1594: END IF;
1595:
1596: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
1589: IF l_debug_level > 0 THEN
1590: oe_debug_pub.add( 'CALLING OE_DBI_UTIL FOR ORDER LINE PRICE ADJUSTMENTS' , 1 ) ;
1591: oe_debug_pub.add( 'CACHED VALUE' || OE_ORDER_CACHE.G_HEADER_REC.BOOKED_FLAG ) ;
1592: oe_debug_pub.add( 'RECURSION VALUE' || OE_ORDER_UTIL.G_RECURSION_WITHOUT_EXCEPTION ) ;
1593: oe_debug_pub.add( 'PROFILE VALUE' || FND_PROFILE.VALUE ( 'ONT_DBI_INSTALLED' ) ) ;
1594: END IF;
1595:
1596: IF NVL(FND_PROFILE.VALUE('ONT_DBI_INSTALLED'), 'N') = 'Y' AND
1597: oe_order_cache.g_header_rec.booked_flag = 'Y' AND
1741: l_Shipped_quantity number;
1742: l_pricing_event varchar2(30);
1743:
1744: --
1745: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1746: --
1747: l_order_source_id NUMBER;
1748: l_orig_sys_document_ref VARCHAR2(50);
1749: l_change_sequence VARCHAR2(50);
1764:
1765: -- Init local table variables.
1766:
1767: --dbms_output.put_line('Entering oe_order_Adj_pvt.HEader_Price_Atts');
1768: oe_debug_pub.add('Entering oe_order_Adj_pvt.HEader_Price_Atts', 1);
1769:
1770:
1771: I := p_x_Header_Price_Att_tbl.FIRST;
1772:
1787: IF l_header_Price_Att_rec.header_Id IS NOT NULL AND
1788: l_header_Price_Att_rec.header_Id <> FND_API.G_MISS_NUM THEN
1789: BEGIN
1790: IF l_debug_level > 0 THEN
1791: oe_debug_pub.add('Getting reference data for header_id:'||l_header_Price_Att_rec.header_Id);
1792: END IF;
1793: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1794: source_document_type_id, source_document_id
1795: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
1831: l_old_header_Price_Att_rec.header_Id <> FND_API.G_MISS_NUM THEN
1832:
1833: BEGIN
1834: IF l_debug_level > 0 THEN
1835: oe_debug_pub.add('Getting reference data for old header_id:'||l_old_header_Price_Att_rec.header_Id);
1836: END IF;
1837: SELECT order_source_id, orig_sys_document_ref, change_sequence,
1838: source_document_type_id, source_document_id
1839: INTO l_order_source_id, l_orig_sys_document_ref, l_change_sequence,
1881: -- Set record return status.
1882:
1883: l_Header_Price_Att_rec.return_status := FND_API.G_RET_STS_SUCCESS;
1884:
1885: oe_debug_pub.add(' After initializing record,operation:'||l_Header_Price_Att_rec.operation);
1886: -- Prepare record.
1887:
1888: IF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1889:
1890: l_Header_Price_Att_rec.db_flag := FND_API.G_FALSE;
1891:
1892: -- Set missing old record elements to NULL.
1893:
1894: oe_debug_pub.add('Entering OE_Header_Price_Att_Util.Convert_Miss_To_Null', 2);
1895: -- l_old_Header_Price_Att_rec :=
1896: OE_Header_PAttr_Util.Convert_Miss_To_Null (l_old_Header_Price_Att_rec);
1897:
1898: ELSIF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_UPDATE
1946:
1947: -- Attribute level validation.
1948:
1949: IF p_validation_level > FND_API.G_VALID_LEVEL_NONE THEN
1950: oe_debug_pub.add(' In OE_Validate_Header_Pattr.Attributes');
1951: OE_Validate_Header_Pattr.Attributes
1952: ( x_return_status => l_return_status
1953: , p_Header_Price_Attr_rec => l_Header_Price_Att_rec
1954: , p_old_Header_Price_Attr_rec => l_old_Header_Price_Att_rec
1993: THEN
1994:
1995: -- This will also log request/s to check duplicity of
1996: -- price adjustment entered
1997: oe_debug_pub.add(' In apply attribute changes');
1998: OE_Header_PAttr_Util.Apply_Attribute_Changes
1999: ( p_x_Header_Price_Att_rec => l_Header_Price_Att_rec
2000: , p_old_Header_Price_Att_rec => l_old_Header_Price_Att_rec
2001: );
2140: ELSIF l_Header_Price_Att_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
2141:
2142: l_Header_Price_Att_rec.creation_date := SYSDATE;
2143: l_Header_Price_Att_rec.created_by := FND_GLOBAL.USER_ID;
2144: oe_debug_pub.add(' Before calling pattr_util.insert_row');
2145:
2146: select OE_ORDER_PRICE_ATTRIBS_S.nextval
2147: into l_header_price_att_rec.order_price_attrib_id
2148: from dual;
2234:
2235: -- Load OUT parameters
2236:
2237:
2238: oe_debug_pub.add('Exiting oe_order_Price_Att_pvt.HEADER_Price_Atts', 1);
2239: OE_MSG_PUB.reset_msg_context('HEADER_PATTS');
2240:
2241: EXCEPTION
2242:
2844: l_Shipped_quantity number;
2845: l_pricing_event varchar2(30);
2846:
2847: --
2848: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2849: --
2850: l_order_source_id NUMBER;
2851: l_orig_sys_document_ref VARCHAR2(50);
2852: l_orig_sys_line_ref VARCHAR2(50);
2891: IF l_Line_price_att_rec.Line_Id IS NOT NULL AND
2892: l_Line_price_att_rec.Line_Id <> FND_API.G_MISS_NUM THEN
2893: BEGIN
2894: IF l_debug_level > 0 THEN
2895: oe_debug_pub.add('Getting reference data for line_id:'||l_Line_price_att_rec.Line_Id);
2896: END IF;
2897: SELECT order_source_id, orig_sys_document_ref, change_sequence,
2898: source_document_type_id, source_document_id, orig_sys_line_ref,
2899: source_document_line_id, orig_sys_shipment_ref
2943: IF l_old_Line_price_att_rec.Line_Id IS NOT NULL AND
2944: l_old_Line_price_att_rec.Line_Id <> FND_API.G_MISS_NUM THEN
2945: BEGIN
2946: IF l_debug_level > 0 THEN
2947: oe_debug_pub.add('Getting reference data for old line_id:'||l_old_Line_price_att_rec.Line_Id);
2948: END IF;
2949: SELECT order_source_id, orig_sys_document_ref, change_sequence,
2950: source_document_type_id, source_document_id, orig_sys_line_ref,
2951: source_document_line_id, orig_sys_shipment_ref
4233: ,p_line_rec.ship_from_org_id
4234: ,l_item_rec) THEN
4235:
4236: IF l_item_rec.ont_pricing_qty_source = 'S' THEN -- price by quantity 2 -- invconv
4237: oe_debug_pub.add('OPM - ont_pricing_qty_source = S in OEXVADJB.pls ');
4238: px_req_line_tbl(l_line_index).LINE_QUANTITY := p_Line_rec.Ordered_quantity2 ;
4239: px_req_line_tbl(l_line_index).LINE_UOM_CODE := p_Line_rec.Ordered_quantity_uom2 ;
4240: -- OPM 2547940 start
4241: IF p_line_rec.CALCULATE_PRICE_FLAG in ( 'N', 'P' ) THEN -- usually split from shipping
5524: begin
5525: adj_debug('Entering oe_order_Adj_pvt.set_item_for_iue');
5526:
5527: /*begin original item*/
5528: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
5529: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
5530: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
5531: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
5532: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
5525: adj_debug('Entering oe_order_Adj_pvt.set_item_for_iue');
5526:
5527: /*begin original item*/
5528: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
5529: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
5530: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
5531: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
5532: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
5533:
5526:
5527: /*begin original item*/
5528: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
5529: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
5530: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
5531: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
5532: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
5533:
5534: IF px_line_rec.original_inventory_item_id IS NULL THEN
5527: /*begin original item*/
5528: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
5529: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
5530: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
5531: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
5532: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
5533:
5534: IF px_line_rec.original_inventory_item_id IS NULL THEN
5535: px_line_rec.original_inventory_item_id :=px_line_rec.INVENTORY_ITEM_ID;
5528: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
5529: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
5530: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
5531: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
5532: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
5533:
5534: IF px_line_rec.original_inventory_item_id IS NULL THEN
5535: px_line_rec.original_inventory_item_id :=px_line_rec.INVENTORY_ITEM_ID;
5536: px_line_rec.original_ordered_item_id :=px_line_rec.ORDERED_ITEM_ID;
5733: Return;
5734: End;
5735: G_STMT_NO := 'calculate_adjustments#40';
5736:
5737: oe_debug_pub.add('Passed in event code:'||p_control_rec.pricing_event);
5738:
5739: -- bug 9728497 start
5740: -- modified below for p_x_new_line_rec.header_id and p_x_new_line_rec.line_id
5741: -- being passed on to call the overloaded function.
5746: p_line_id => p_Line_id,
5747: x_order_status_rec =>l_order_status_rec);
5748: -- bug 9728497 end
5749:
5750: oe_debug_pub.add('Pricing Engine return pass all_lines value:'||l_order_status_rec.ALL_LINES_FLAG);
5751: oe_debug_pub.add('Pricing Engine return pass changed line value:'||l_order_status_rec.Changed_Lines_Flag);
5752: oe_debug_pub.add('Cache header operation:'||oe_order_pub.g_hdr.operation);
5753:
5754:
5747: x_order_status_rec =>l_order_status_rec);
5748: -- bug 9728497 end
5749:
5750: oe_debug_pub.add('Pricing Engine return pass all_lines value:'||l_order_status_rec.ALL_LINES_FLAG);
5751: oe_debug_pub.add('Pricing Engine return pass changed line value:'||l_order_status_rec.Changed_Lines_Flag);
5752: oe_debug_pub.add('Cache header operation:'||oe_order_pub.g_hdr.operation);
5753:
5754:
5755: If G_INT_CHANGED_LINE_ON = 'Y' Then
5748: -- bug 9728497 end
5749:
5750: oe_debug_pub.add('Pricing Engine return pass all_lines value:'||l_order_status_rec.ALL_LINES_FLAG);
5751: oe_debug_pub.add('Pricing Engine return pass changed line value:'||l_order_status_rec.Changed_Lines_Flag);
5752: oe_debug_pub.add('Cache header operation:'||oe_order_pub.g_hdr.operation);
5753:
5754:
5755: If G_INT_CHANGED_LINE_ON = 'Y' Then
5756: 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
5769: Elsif l_order_status_rec.CHANGED_LINES_FLAG = 'Y' OR nvl(OE_LINE_ADJ_UTIL.G_SEND_ALL_LINES_FOR_DSP,'Y') = 'N' Then
5770: -------------------------------------------------------------------
5771: --Pricing says pass only changed lines, use query_line
5772: --------------------------------------------------------------------
5773: oe_debug_pub.add('Query individual line');
5774: g_pass_all_lines:='N';
5775: i := Oe_Line_Adj_Util.G_CHANGED_LINE_TBL.FIRST;
5776: While i is Not Null Loop
5777: Begin
5775: i := Oe_Line_Adj_Util.G_CHANGED_LINE_TBL.FIRST;
5776: While i is Not Null Loop
5777: Begin
5778: --bug 3020702
5779: oe_debug_pub.add(' header_id:'||Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).header_id);
5780: if oe_line_adj_util.G_CHANGED_LINE_TBL(i).header_id = p_header_id then
5781: oe_debug_pub.add(' trying to query line_id:'||Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).line_id);
5782: l_line_tbl(j):=oe_line_util.query_row(p_line_id =>Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).line_id);
5783: j:=j+1;
5777: Begin
5778: --bug 3020702
5779: oe_debug_pub.add(' header_id:'||Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).header_id);
5780: if oe_line_adj_util.G_CHANGED_LINE_TBL(i).header_id = p_header_id then
5781: oe_debug_pub.add(' trying to query line_id:'||Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).line_id);
5782: l_line_tbl(j):=oe_line_util.query_row(p_line_id =>Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).line_id);
5783: j:=j+1;
5784: end if;
5785: Exception when no_data_found then
5782: l_line_tbl(j):=oe_line_util.query_row(p_line_id =>Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).line_id);
5783: j:=j+1;
5784: end if;
5785: Exception when no_data_found then
5786: oe_debug_pub.add('Not found line id:'||Oe_Line_Adj_Util.G_CHANGED_LINE_TBL(i).line_id);
5787: End;
5788: i:= Oe_Line_Adj_Util.G_CHANGED_LINE_TBL.Next(i);
5789: End Loop;
5790: End If;
5849: If l_line_tbl.first is not null Then
5850: oe_Header_util.query_row
5851: (p_header_id=> l_line_Tbl(l_line_tbl.first).Header_id, x_header_rec => OE_Order_PUB.g_hdr );
5852: Else
5853: oe_debug_pub.add(' Error: No line records in l_line_tbl');
5854: End If;
5855:
5856: Exception when no_data_found then
5857: -- No need to process this order
5933:
5934: IF l_Line_Tbl(line_Tbl_Index).item_type_code = 'SERVICE' AND
5935: l_Line_Tbl(line_Tbl_Index).service_reference_type_code='CUSTOMER_PRODUCT' AND
5936: l_Line_Tbl(line_Tbl_Index).service_reference_line_id IS NOT NULL THEN
5937: oe_debug_pub.add('1828553: Line is a customer product');
5938: OE_SERVICE_UTIL.Get_Cust_Product_Line_Id
5939: ( x_return_status => l_return_status
5940: , p_reference_line_id => l_Line_Tbl(line_Tbl_Index).service_reference_line_id
5941: , p_customer_id => l_Line_Tbl(line_Tbl_Index).sold_to_org_id
5941: , p_customer_id => l_Line_Tbl(line_Tbl_Index).sold_to_org_id
5942: , x_cust_product_line_id => l_order_line_id
5943: );
5944: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5945: oe_debug_pub.add('1828553: Success');
5946: oe_debug_pub.add('1828553: Service line id is ' || l_order_line_id)
5947: ;
5948: l_service_reference_line_id := l_order_line_id;
5949: ELSE
5942: , x_cust_product_line_id => l_order_line_id
5943: );
5944: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
5945: oe_debug_pub.add('1828553: Success');
5946: oe_debug_pub.add('1828553: Service line id is ' || l_order_line_id)
5947: ;
5948: l_service_reference_line_id := l_order_line_id;
5949: ELSE
5950: oe_debug_pub.add('Not able to retrieve cust product line id');
5946: oe_debug_pub.add('1828553: Service line id is ' || l_order_line_id)
5947: ;
5948: l_service_reference_line_id := l_order_line_id;
5949: ELSE
5950: oe_debug_pub.add('Not able to retrieve cust product line id');
5951: RAISE NO_DATA_FOUND;
5952: END IF;
5953:
5954: ELSE
5955: l_service_reference_line_id := l_Line_Tbl(line_Tbl_Index).service_reference_line_id;
5956: END IF;
5957:
5958:
5959: oe_debug_pub.add('1828553: l_Service_Reference_Line_Id: '||l_Service_Reference_Line_Id);
5960: --3273289{
5961: If(l_Service_Reference_Line_Id is NOT NULL) THEN
5962:
5963: Get_the_parent_Line(p_Reference_line_Id =>
6244: );
6245:
6246: Exception when no_data_found then null;
6247: when others then
6248: oe_debug_pub.add(sqlerrm);
6249: oe_debug_pub.add('l_line_tbl.first'||l_line_tbl.first);
6250: End;
6251:
6252: G_STMT_NO := 'calculate_adjustments#101';
6245:
6246: Exception when no_data_found then null;
6247: when others then
6248: oe_debug_pub.add(sqlerrm);
6249: oe_debug_pub.add('l_line_tbl.first'||l_line_tbl.first);
6250: End;
6251:
6252: G_STMT_NO := 'calculate_adjustments#101';
6253:
6389:
6390: /* Added for Bug 2124989 */
6391: WHEN OE_AGREEMENT_ERROR Then
6392: x_return_status := FND_API.G_RET_STS_ERROR;
6393: oe_debug_pub.add('Error: Invalid AAgreement');
6394: RAISE FND_API.G_EXC_ERROR;
6395:
6396: /* END 2124989 */
6397: WHEN QP_ATTR_MAPPING_ERROR THEN
6397: WHEN QP_ATTR_MAPPING_ERROR THEN
6398: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
6399: FND_MESSAGE.SET_TOKEN('ERR_TEXT','Please make sure Run QP Build Sourcing Rule has completed sucessfully');
6400: OE_MSG_PUB.Add;
6401: oe_debug_pub.add(' QP Attr Mapping threw exception');
6402: RAISE FND_API.G_EXC_ERROR;
6403: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6404:
6405: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
6550: if not OE_GLOBALS.Equal(p_Line_Adj_Rec.operand_per_pqty,
6551: p_req_line_detail_Rec.Operand_Value) Then
6552: p_Line_Adj_Rec.operand_per_pqty := p_req_line_detail_Rec.Operand_Value;
6553: If p_req_line_detail_Rec.Operand_Value is null Then
6554: Oe_Debug_Pub.add(' Null operand returned by pricing');
6555: Oe_Debug_pub.add(' List line type:'||p_req_line_detail_Rec.list_line_type_code);
6556: Oe_debug_pub.add(' list line id:'||p_req_line_detail_Rec.list_line_id);
6557: End If;
6558: l_updated_Flag := True;
6551: p_req_line_detail_Rec.Operand_Value) Then
6552: p_Line_Adj_Rec.operand_per_pqty := p_req_line_detail_Rec.Operand_Value;
6553: If p_req_line_detail_Rec.Operand_Value is null Then
6554: Oe_Debug_Pub.add(' Null operand returned by pricing');
6555: Oe_Debug_pub.add(' List line type:'||p_req_line_detail_Rec.list_line_type_code);
6556: Oe_debug_pub.add(' list line id:'||p_req_line_detail_Rec.list_line_id);
6557: End If;
6558: l_updated_Flag := True;
6559: end If;
6552: p_Line_Adj_Rec.operand_per_pqty := p_req_line_detail_Rec.Operand_Value;
6553: If p_req_line_detail_Rec.Operand_Value is null Then
6554: Oe_Debug_Pub.add(' Null operand returned by pricing');
6555: Oe_Debug_pub.add(' List line type:'||p_req_line_detail_Rec.list_line_type_code);
6556: Oe_debug_pub.add(' list line id:'||p_req_line_detail_Rec.list_line_id);
6557: End If;
6558: l_updated_Flag := True;
6559: end If;
6560:
6839: end if;
6840:
6841: --G_STMT_NO := 'Find_Duplicate_Adj_Lines#10.57';
6842:
6843: oe_debug_pub.add('list_line_id:'||px_Line_Adj_Tbl(x_Adj_Index).list_line_id);
6844: oe_debug_pub.add('updated_flag:'||px_Line_Adj_Tbl(x_Adj_Index).updated_Flag);
6845: if px_Line_Adj_Tbl(x_Adj_Index).updated_Flag = 'Y' Then
6846: -- User has updated this record Do not touch this
6847: px_Line_Adj_Tbl(x_Adj_Index).Operation := FND_API.G_MISS_CHAR;
6840:
6841: --G_STMT_NO := 'Find_Duplicate_Adj_Lines#10.57';
6842:
6843: oe_debug_pub.add('list_line_id:'||px_Line_Adj_Tbl(x_Adj_Index).list_line_id);
6844: oe_debug_pub.add('updated_flag:'||px_Line_Adj_Tbl(x_Adj_Index).updated_Flag);
6845: if px_Line_Adj_Tbl(x_Adj_Index).updated_Flag = 'Y' Then
6846: -- User has updated this record Do not touch this
6847: px_Line_Adj_Tbl(x_Adj_Index).Operation := FND_API.G_MISS_CHAR;
6848:
6927:
6928: G_STMT_NO := 'Query_Adj_Assocs#20';
6929:
6930: --For i in 1..L_Line_Adj_Assoc_Tbl.count loop
6931: oe_debug_pub.add('zBefore Assoc QUery:');
6932: i:= L_Line_Adj_Assoc_Tbl.FIRST;
6933: WHILE i IS NOT NULL LOOP
6934: oe_debug_pub.add('zInside Assoc Query i value:'||i);
6935: l_index := p_Line_Adj_Assoc_Tbl.count+1;
6930: --For i in 1..L_Line_Adj_Assoc_Tbl.count loop
6931: oe_debug_pub.add('zBefore Assoc QUery:');
6932: i:= L_Line_Adj_Assoc_Tbl.FIRST;
6933: WHILE i IS NOT NULL LOOP
6934: oe_debug_pub.add('zInside Assoc Query i value:'||i);
6935: l_index := p_Line_Adj_Assoc_Tbl.count+1;
6936: If p_delete_flag = 'Y' Then
6937: p_Line_Adj_Assoc_Tbl(l_index).Operation := OE_GLOBALS.G_OPR_DELETE;
6938: Else
6937: p_Line_Adj_Assoc_Tbl(l_index).Operation := OE_GLOBALS.G_OPR_DELETE;
6938: Else
6939: p_line_adj_assoc_tbl(l_index).Operation := FND_API.G_MISS_CHAR;
6940: End If;
6941: oe_debug_pub.add('zl_index:'||l_index);
6942: p_Line_Adj_Assoc_Tbl(l_index).Adj_Index := p_Adj_Index;
6943: p_Line_Adj_Assoc_Tbl(l_index).price_adjustment_id := p_price_adjustment_id;
6944: p_Line_Adj_Assoc_tbl(l_index).Rltd_Price_Adj_Id := l_Line_Adj_Assoc_tbl(i).Rltd_Price_Adj_Id;
6945: p_Line_Adj_Assoc_tbl(l_index).Line_Id := l_Line_Adj_Assoc_tbl(i).Line_Id;
6943: p_Line_Adj_Assoc_Tbl(l_index).price_adjustment_id := p_price_adjustment_id;
6944: p_Line_Adj_Assoc_tbl(l_index).Rltd_Price_Adj_Id := l_Line_Adj_Assoc_tbl(i).Rltd_Price_Adj_Id;
6945: p_Line_Adj_Assoc_tbl(l_index).Line_Id := l_Line_Adj_Assoc_tbl(i).Line_Id;
6946: p_Line_Adj_Assoc_tbl(l_index).price_adj_assoc_id := l_Line_Adj_Assoc_tbl(i).price_adj_assoc_id;
6947: oe_debug_pub.add('z10');
6948: i:=l_Line_Adj_Assoc_tbl.NEXT(i);
6949: oe_debug_pub.add('z14');
6950: END LOOP;
6951: --end loop;
6945: p_Line_Adj_Assoc_tbl(l_index).Line_Id := l_Line_Adj_Assoc_tbl(i).Line_Id;
6946: p_Line_Adj_Assoc_tbl(l_index).price_adj_assoc_id := l_Line_Adj_Assoc_tbl(i).price_adj_assoc_id;
6947: oe_debug_pub.add('z10');
6948: i:=l_Line_Adj_Assoc_tbl.NEXT(i);
6949: oe_debug_pub.add('z14');
6950: END LOOP;
6951: --end loop;
6952:
6953: adj_debug('Exiting oe_order_Adj_pvt.Query_Adj_Assocs',1);
7557: l_line_rec.pricing_quantity_uom := p_req_line_tbl(l_Req_Line_Index).priced_uom_code ;
7558: l_line_rec.price_request_code := p_req_line_tbl(l_Req_Line_Index).price_request_code; -- PROMOTIONS SEP/01
7559:
7560: --for bug 2412868 begin
7561: oe_debug_pub.add('bug 2412868 in update1:');
7562: if p_req_line_tbl(l_req_line_index).line_quantity < 0
7563: and ( p_req_line_tbl(l_req_line_index).line_category is null or
7564: p_req_line_tbl(l_req_line_index).line_category = 'ORDER'
7565: ) then
7564: p_req_line_tbl(l_req_line_index).line_category = 'ORDER'
7565: ) then
7566: l_line_rec.line_category_code := 'RETURN' ;
7567: l_line_rec.return_reason_code := 'RETURN' ;
7568: oe_debug_pub.add('bug 2412868 in update:');
7569: elsif p_req_line_tbl(l_req_line_index).line_category = 'RETURN'
7570: then
7571: l_line_rec.line_category_code := 'ORDER' ;
7572: end if;
7595: End If;
7596:
7597: Exception
7598: When E_Closed_PRG_Line Then
7599: oe_debug_pub.add(' PRG ignore, Closed line!');
7600: End; --End for the begin in 'FOR' loop
7601:
7602: i:= p_Line_Adj_Assoc_Tbl.Next(i);
7603: End loop; -- Process Adjustments
7620: l_line_rec.operation := OE_GLOBALS.G_OPR_CREATE;
7621:
7622: l_line_rec.Header_id := P_Header_Id;
7623: --for bug 2412868 Begin
7624: oe_debug_pub.add('b2412868:'||p_req_line_tbl(l_req_line_index).line_quantity);
7625: oe_debug_pub.add('b2412868:'||p_req_line_tbl(l_req_line_index).priced_quantity);
7626: if p_req_line_tbl(l_req_line_index).line_quantity < 0
7627: and
7628: ( p_req_line_tbl(l_req_line_index).line_category is null or
7621:
7622: l_line_rec.Header_id := P_Header_Id;
7623: --for bug 2412868 Begin
7624: oe_debug_pub.add('b2412868:'||p_req_line_tbl(l_req_line_index).line_quantity);
7625: oe_debug_pub.add('b2412868:'||p_req_line_tbl(l_req_line_index).priced_quantity);
7626: if p_req_line_tbl(l_req_line_index).line_quantity < 0
7627: and
7628: ( p_req_line_tbl(l_req_line_index).line_category is null or
7629: p_req_line_tbl(l_req_line_index).line_category = 'ORDER'
7629: p_req_line_tbl(l_req_line_index).line_category = 'ORDER'
7630: ) then
7631: l_line_rec.line_category_code := 'RETURN' ;
7632: l_line_rec.return_reason_code := 'RETURN' ;
7633: oe_debug_pub.add('bug 2412868 in if :');
7634: elsif p_req_line_tbl(l_req_line_index).line_category = 'RETURN' then
7635: l_line_rec.line_category_code := 'ORDER';
7636: end if;
7637: --for bug 2412868 end
7680: the same as defined in the modifer
7681: and NOT the base UOM
7682: */
7683:
7684: oe_debug_pub.add('rlanka: setting ordered quantity UOM');
7685: oe_debug_pub.add('UOM = ' || p_req_line_tbl(l_Req_Line_Index).line_uom_code);
7686: l_line_rec.order_quantity_uom := p_req_line_tbl(l_Req_Line_Index).line_uom_code;
7687:
7688: --end Bug 1805134
7681: and NOT the base UOM
7682: */
7683:
7684: oe_debug_pub.add('rlanka: setting ordered quantity UOM');
7685: oe_debug_pub.add('UOM = ' || p_req_line_tbl(l_Req_Line_Index).line_uom_code);
7686: l_line_rec.order_quantity_uom := p_req_line_tbl(l_Req_Line_Index).line_uom_code;
7687:
7688: --end Bug 1805134
7689:
8374: While l_Sort_Index is not null Loop
8375:
8376: J := l_Sorted_Adjustment_Tbl(l_Sort_Index).Adj_Index;
8377: l_adjusted_amt_changed := FALSE;
8378: oe_debug_pub.add(' Sorted index value:'||J);
8379: G_STMT_NO := 'Calculate_Price#20';
8380:
8381: If ( p_Line_Adj_Tbl(j).Line_Index = i or
8382: (p_Line_Adj_Tbl(j).line_id = p_Line_Tbl(i).line_id and
8420: --will be recalculated.
8421: If p_line_adj_tbl(j).price_break_type_code = QP_PREQ_GRP.G_RANGE_BREAK Then
8422: p_Line_Adj_Tbl(j).adjusted_amount_per_pqty:=0;
8423: End If;
8424: oe_debug_pub.add('xNo of assoc in assoc_tbl:'|| p_line_adj_assoc_Tbl.count);
8425: J1 := p_line_adj_assoc_Tbl.First;
8426: l_Total_Quantity := 0;
8427: l_assoc_exist := FALSE;
8428: While J1 is not null loop
8556: p_Line_Adj_Tbl(j2).Adjusted_Amount_Per_Pqty * p_Line_Adj_Tbl(j2).Range_break_Quantity;
8557: l_adjusted_amt_changed := TRUE;
8558: l_total_Quantity := l_total_Quantity + p_Line_Adj_Tbl(j2).Range_break_Quantity;
8559:
8560: oe_debug_pub.add(' Rounding adj list line ty:'|| p_Line_Adj_Tbl(j).list_line_type_code);
8561: oe_debug_pub.add(' Rounding adj list line id:'||p_Line_Adj_Tbl(j).list_line_id);
8562: oe_debug_pub.add(' Rounding adj operand:'||p_Line_Adj_Tbl(j).operand);
8563:
8564: Else
8557: l_adjusted_amt_changed := TRUE;
8558: l_total_Quantity := l_total_Quantity + p_Line_Adj_Tbl(j2).Range_break_Quantity;
8559:
8560: oe_debug_pub.add(' Rounding adj list line ty:'|| p_Line_Adj_Tbl(j).list_line_type_code);
8561: oe_debug_pub.add(' Rounding adj list line id:'||p_Line_Adj_Tbl(j).list_line_id);
8562: oe_debug_pub.add(' Rounding adj operand:'||p_Line_Adj_Tbl(j).operand);
8563:
8564: Else
8565: p_Line_Adj_Tbl(j).Adjusted_Amount_Per_Pqty := p_Line_Adj_Tbl(j2).Adjusted_Amount_Per_Pqty;
8558: l_total_Quantity := l_total_Quantity + p_Line_Adj_Tbl(j2).Range_break_Quantity;
8559:
8560: oe_debug_pub.add(' Rounding adj list line ty:'|| p_Line_Adj_Tbl(j).list_line_type_code);
8561: oe_debug_pub.add(' Rounding adj list line id:'||p_Line_Adj_Tbl(j).list_line_id);
8562: oe_debug_pub.add(' Rounding adj operand:'||p_Line_Adj_Tbl(j).operand);
8563:
8564: Else
8565: p_Line_Adj_Tbl(j).Adjusted_Amount_Per_Pqty := p_Line_Adj_Tbl(j2).Adjusted_Amount_Per_Pqty;
8566: l_adjusted_amt_changed := TRUE;
8578: J1 := p_line_adj_assoc_Tbl.Next(J1);
8579: End loop; -- J1
8580:
8581: If p_Line_Adj_Tbl(j).Price_Break_Type_Code = QP_PREQ_GRP.G_RANGE_BREAK Then
8582: oe_debug_pub.add('xAdj_amt_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8583: if p_line_adj_tbl(j).range_break_quantity is null and l_total_quantity > 0
8584: then --bug 2813670
8585: oe_debug_pub.add('Value of l_tot_qty :'||l_total_quantity);
8586: p_line_adj_tbl(j).adjusted_amount_per_pqty :=
8581: If p_Line_Adj_Tbl(j).Price_Break_Type_Code = QP_PREQ_GRP.G_RANGE_BREAK Then
8582: oe_debug_pub.add('xAdj_amt_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8583: if p_line_adj_tbl(j).range_break_quantity is null and l_total_quantity > 0
8584: then --bug 2813670
8585: oe_debug_pub.add('Value of l_tot_qty :'||l_total_quantity);
8586: p_line_adj_tbl(j).adjusted_amount_per_pqty :=
8587: p_line_adj_tbl(j).adjusted_amount_per_pqty/l_total_quantity;
8588: else
8589: p_line_adj_tbl(j).adjusted_amount_per_pqty :=
8588: else
8589: p_line_adj_tbl(j).adjusted_amount_per_pqty :=
8590: p_line_adj_tbl(j).adjusted_amount_per_pqty/p_line_adj_tbl(j).range_break_quantity;
8591: end if;
8592: oe_debug_pub.add('xRange break qty:'||p_line_adj_tbl(j).range_break_quantity);
8593:
8594: oe_debug_pub.add('xFinal Range break adj amt:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8595: End If;
8596:
8590: p_line_adj_tbl(j).adjusted_amount_per_pqty/p_line_adj_tbl(j).range_break_quantity;
8591: end if;
8592: oe_debug_pub.add('xRange break qty:'||p_line_adj_tbl(j).range_break_quantity);
8593:
8594: oe_debug_pub.add('xFinal Range break adj amt:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8595: End If;
8596:
8597: If p_Line_Adj_Tbl(j).operand is not null Then
8598: QP_UTIL_PUB.round_price
8731: -- Process_Characteristics invconv
8732: (p_line_tbl(i).inventory_item_id
8733: ,p_line_tbl(i).ship_from_org_id
8734: ,l_item_rec) THEN
8735: oe_debug_pub.add('OPM - this IS a process line in proc calculate_price in OEXVADJB.pls ');
8736: IF l_item_rec.ont_pricing_qty_source = 'S' THEN -- price by quantity 2 INVCONV
8737:
8738: IF (p_line_tbl(i).ordered_quantity2 IS NOT NULL and p_line_tbl(i).ordered_quantity2 <> 0 )
8739: AND ( p_line_tbl(i).shipped_quantity2 IS NOT NULL and p_line_tbl(i).shipped_quantity2 <> 0 )
8737:
8738: IF (p_line_tbl(i).ordered_quantity2 IS NOT NULL and p_line_tbl(i).ordered_quantity2 <> 0 )
8739: AND ( p_line_tbl(i).shipped_quantity2 IS NOT NULL and p_line_tbl(i).shipped_quantity2 <> 0 )
8740: AND (p_line_tbl(i).ordered_quantity2 <> p_line_tbl(i).shipped_quantity2) THEN
8741: oe_debug_pub.add('OPM Updating operand ' ,5);
8742: 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
8743: * (p_line_tbl(i).shipped_quantity2/p_line_tbl(i).ordered_quantity);
8744: oe_debug_pub.ADD('OPM NEW operand : '|| to_char(p_Line_Adj_Tbl(j).operand),5);
8745: END IF;
8740: AND (p_line_tbl(i).ordered_quantity2 <> p_line_tbl(i).shipped_quantity2) THEN
8741: oe_debug_pub.add('OPM Updating operand ' ,5);
8742: 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
8743: * (p_line_tbl(i).shipped_quantity2/p_line_tbl(i).ordered_quantity);
8744: oe_debug_pub.ADD('OPM NEW operand : '|| to_char(p_Line_Adj_Tbl(j).operand),5);
8745: END IF;
8746: END IF;
8747: END IF; --oe_line_util.dual_uom_control -- INVCONV
8748: -- OPM 2547940 end
8778:
8779: IF (p_line_tbl(i).ordered_quantity2 IS NOT NULL and p_line_tbl(i).ordered_quantity2 <> 0 )
8780: AND ( p_line_tbl(i).shipped_quantity2 IS NOT NULL and p_line_tbl(i).shipped_quantity2 <> 0 )
8781: AND p_line_tbl(i).ordered_quantity2 <> p_line_tbl(i).shipped_quantity2 THEN
8782: oe_debug_pub.add('OPM Updating adjusted amount ' ,5);
8783: 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
8784: * (p_line_tbl(i).shipped_quantity2/p_line_tbl(i).ordered_quantity);
8785: END IF;
8786: END IF;
8788: -- OPM 2547940 end
8789:
8790:
8791: If G_DEBUG Then
8792: oe_debug_pub.add(' p_line_tbl(i).line_id:'||i||' '||p_line_tbl(i).line_id);
8793: oe_debug_pub.add(' p_line_tbl(i).pricing_quantity:'||i||': '||p_line_tbl(i).pricing_quantity);
8794: oe_debug_pub.add(' p_line_tbl(i).ordered_quantity:'||i||': '||p_line_tbl(i).ordered_quantity);
8795: oe_debug_pub.add(' p_Line_Adj_Tbl(j).adjusted_amount:'||j||': '|| p_Line_Adj_Tbl(j).adjusted_amount);
8796: oe_debug_pub.add(' p_line_adj_tbl(j).list_line_id:'||j||': '||p_line_adj_tbl(j).list_line_id);
8789:
8790:
8791: If G_DEBUG Then
8792: oe_debug_pub.add(' p_line_tbl(i).line_id:'||i||' '||p_line_tbl(i).line_id);
8793: oe_debug_pub.add(' p_line_tbl(i).pricing_quantity:'||i||': '||p_line_tbl(i).pricing_quantity);
8794: oe_debug_pub.add(' p_line_tbl(i).ordered_quantity:'||i||': '||p_line_tbl(i).ordered_quantity);
8795: oe_debug_pub.add(' p_Line_Adj_Tbl(j).adjusted_amount:'||j||': '|| p_Line_Adj_Tbl(j).adjusted_amount);
8796: oe_debug_pub.add(' p_line_adj_tbl(j).list_line_id:'||j||': '||p_line_adj_tbl(j).list_line_id);
8797: oe_debug_pub.add(' p_line_adj_tbl(j).adjusted_amount_per_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8790:
8791: If G_DEBUG Then
8792: oe_debug_pub.add(' p_line_tbl(i).line_id:'||i||' '||p_line_tbl(i).line_id);
8793: oe_debug_pub.add(' p_line_tbl(i).pricing_quantity:'||i||': '||p_line_tbl(i).pricing_quantity);
8794: oe_debug_pub.add(' p_line_tbl(i).ordered_quantity:'||i||': '||p_line_tbl(i).ordered_quantity);
8795: oe_debug_pub.add(' p_Line_Adj_Tbl(j).adjusted_amount:'||j||': '|| p_Line_Adj_Tbl(j).adjusted_amount);
8796: oe_debug_pub.add(' p_line_adj_tbl(j).list_line_id:'||j||': '||p_line_adj_tbl(j).list_line_id);
8797: oe_debug_pub.add(' p_line_adj_tbl(j).adjusted_amount_per_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8798: End If;
8791: If G_DEBUG Then
8792: oe_debug_pub.add(' p_line_tbl(i).line_id:'||i||' '||p_line_tbl(i).line_id);
8793: oe_debug_pub.add(' p_line_tbl(i).pricing_quantity:'||i||': '||p_line_tbl(i).pricing_quantity);
8794: oe_debug_pub.add(' p_line_tbl(i).ordered_quantity:'||i||': '||p_line_tbl(i).ordered_quantity);
8795: oe_debug_pub.add(' p_Line_Adj_Tbl(j).adjusted_amount:'||j||': '|| p_Line_Adj_Tbl(j).adjusted_amount);
8796: oe_debug_pub.add(' p_line_adj_tbl(j).list_line_id:'||j||': '||p_line_adj_tbl(j).list_line_id);
8797: oe_debug_pub.add(' p_line_adj_tbl(j).adjusted_amount_per_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8798: End If;
8799: End If;
8792: oe_debug_pub.add(' p_line_tbl(i).line_id:'||i||' '||p_line_tbl(i).line_id);
8793: oe_debug_pub.add(' p_line_tbl(i).pricing_quantity:'||i||': '||p_line_tbl(i).pricing_quantity);
8794: oe_debug_pub.add(' p_line_tbl(i).ordered_quantity:'||i||': '||p_line_tbl(i).ordered_quantity);
8795: oe_debug_pub.add(' p_Line_Adj_Tbl(j).adjusted_amount:'||j||': '|| p_Line_Adj_Tbl(j).adjusted_amount);
8796: oe_debug_pub.add(' p_line_adj_tbl(j).list_line_id:'||j||': '||p_line_adj_tbl(j).list_line_id);
8797: oe_debug_pub.add(' p_line_adj_tbl(j).adjusted_amount_per_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8798: End If;
8799: End If;
8800:
8793: oe_debug_pub.add(' p_line_tbl(i).pricing_quantity:'||i||': '||p_line_tbl(i).pricing_quantity);
8794: oe_debug_pub.add(' p_line_tbl(i).ordered_quantity:'||i||': '||p_line_tbl(i).ordered_quantity);
8795: oe_debug_pub.add(' p_Line_Adj_Tbl(j).adjusted_amount:'||j||': '|| p_Line_Adj_Tbl(j).adjusted_amount);
8796: oe_debug_pub.add(' p_line_adj_tbl(j).list_line_id:'||j||': '||p_line_adj_tbl(j).list_line_id);
8797: oe_debug_pub.add(' p_line_adj_tbl(j).adjusted_amount_per_pqty:'||p_line_adj_tbl(j).adjusted_amount_per_pqty);
8798: End If;
8799: End If;
8800:
8801: END IF;
9169: l_item_rec OE_ORDER_CACHE.item_rec_type; -- OPM 2547940
9170: l_process Boolean; -- OPM 2547940
9171:
9172: --
9173: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9174: --
9175: l_order_source_id NUMBER;
9176: l_orig_sys_document_ref VARCHAR2(50);
9177: l_orig_sys_line_ref VARCHAR2(50);
9271: OE_MSG_PUB.Add;
9272: End If;
9273:
9274: G_IPL_ERRORS_TBL(MOD(l_line_rec.line_id,G_BINARY_LIMIT)):=l_line_rec.price_list_id; -- Bug 8631297
9275: oe_debug_pub.add('Before checking book flag');
9276: oe_debug_pub.add('Invalid line flag:'||l_invalid_line);
9277:
9278: If nvl(l_line_rec.booked_flag,'X') = 'Y' Then
9279: oe_debug_pub.add(' Before setting message');
9272: End If;
9273:
9274: G_IPL_ERRORS_TBL(MOD(l_line_rec.line_id,G_BINARY_LIMIT)):=l_line_rec.price_list_id; -- Bug 8631297
9275: oe_debug_pub.add('Before checking book flag');
9276: oe_debug_pub.add('Invalid line flag:'||l_invalid_line);
9277:
9278: If nvl(l_line_rec.booked_flag,'X') = 'Y' Then
9279: oe_debug_pub.add(' Before setting message');
9280: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
9275: oe_debug_pub.add('Before checking book flag');
9276: oe_debug_pub.add('Invalid line flag:'||l_invalid_line);
9277:
9278: If nvl(l_line_rec.booked_flag,'X') = 'Y' Then
9279: oe_debug_pub.add(' Before setting message');
9280: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
9281: oe_debug_pub.add(' Before setting token');
9282: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','price list');
9283: OE_MSG_PUB.ADD;
9277:
9278: If nvl(l_line_rec.booked_flag,'X') = 'Y' Then
9279: oe_debug_pub.add(' Before setting message');
9280: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
9281: oe_debug_pub.add(' Before setting token');
9282: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','price list');
9283: OE_MSG_PUB.ADD;
9284: oe_debug_pub.add('Process adjustments before raising g_exc_error');
9285: RAISE FND_API.G_EXC_ERROR;
9280: FND_MESSAGE.SET_NAME('ONT','OE_BOOK_REQD_LINE_ATTRIBUTE');
9281: oe_debug_pub.add(' Before setting token');
9282: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','price list');
9283: OE_MSG_PUB.ADD;
9284: oe_debug_pub.add('Process adjustments before raising g_exc_error');
9285: RAISE FND_API.G_EXC_ERROR;
9286: End If;
9287:
9288: --Fix bug 1650637
9293: set Unit_Selling_Price = Null,Unit_list_price = Null
9294: where line_id = l_line_rec.line_id;
9295:
9296: oe_line_adj_util.delete_row(p_line_id => l_line_rec.line_id);
9297: oe_debug_pub.add(' Updating unit price to null');
9298:
9299: l_line_rec.unit_selling_price := NULL;
9300: l_line_rec.unit_list_price:=NULL;
9301: l_line_rec.unit_selling_price_per_pqty :=NULL;
9300: l_line_rec.unit_list_price:=NULL;
9301: l_line_rec.unit_selling_price_per_pqty :=NULL;
9302: l_line_rec.unit_list_price_per_pqty:=NULL;
9303: Exception When Others Then
9304: Oe_Debug_Pub.add('Oe_Order_Adj_Pvt:Failed to update price:'||SQLERRM);
9305: End;*/
9306: --End If;
9307:
9308: l_line_rec.unit_selling_price := NULL;
9565: p_multiple_events => p_multiple_events);
9566:
9567: End If;-- Status_Code
9568:
9569: oe_debug_pub.add('Before Reset_fields');
9570: If l_invalid_line = 'Y' Then
9571: select oe_msg_request_id_s.nextval into l_request_id from dual;
9572: OE_MSG_PUB.INSERT_MESSAGE(OE_MSG_PUB.COUNT_MSG, l_request_id,'U');
9573: Reset_Fields(l_line_rec);
9609: IF p_req_line_tbl(i).line_id IS NOT NULL AND
9610: p_req_line_tbl(i).line_id <> FND_API.G_MISS_NUM THEN
9611: BEGIN
9612: IF l_debug_level > 0 THEN
9613: oe_debug_pub.add('Getting reference data for line_id:'||p_req_line_tbl(i).line_id);
9614: END IF;
9615: SELECT order_source_id, orig_sys_document_ref, change_sequence,
9616: source_document_type_id, source_document_id, orig_sys_line_ref,
9617: source_document_line_id, orig_sys_shipment_ref
9911:
9912: G_STMT_NO := 'process_adjustments#90';
9913:
9914: Begin
9915: oe_debug_pub.add('Line id:'||
9916: l_line_tbl(p_req_line_detail_Tbl(p_req_related_lines_tbl(i).line_detail_index).line_index).line_id);
9917:
9918: oe_debug_pub.add('Reason:'||
9919: l_line_tbl(p_req_line_detail_Tbl(p_req_related_lines_tbl(i).line_detail_index).line_index).return_reason_code);
9914: Begin
9915: oe_debug_pub.add('Line id:'||
9916: l_line_tbl(p_req_line_detail_Tbl(p_req_related_lines_tbl(i).line_detail_index).line_index).line_id);
9917:
9918: oe_debug_pub.add('Reason:'||
9919: l_line_tbl(p_req_line_detail_Tbl(p_req_related_lines_tbl(i).line_detail_index).line_index).return_reason_code);
9920: Exception when others then
9921: oe_debug_pub.add(SQLERRM||G_STMT_NO);
9922: End;
9917:
9918: oe_debug_pub.add('Reason:'||
9919: l_line_tbl(p_req_line_detail_Tbl(p_req_related_lines_tbl(i).line_detail_index).line_index).return_reason_code);
9920: Exception when others then
9921: oe_debug_pub.add(SQLERRM||G_STMT_NO);
9922: End;
9923:
9924: Process_Other_Item_Line
9925: (p_Line_Detail_Index =>
9974: IF p_req_line_tbl(p_req_line_detail_tbl(j).line_index).line_id IS NOT NULL AND
9975: p_req_line_tbl(p_req_line_detail_tbl(j).line_index).line_id <> FND_API.G_MISS_NUM THEN
9976: BEGIN
9977: IF l_debug_level > 0 THEN
9978: oe_debug_pub.add('Getting reference data for line_id:'||p_req_line_tbl(p_req_line_detail_tbl(j).line_index).line_id);
9979: END IF;
9980: SELECT order_source_id, orig_sys_document_ref, change_sequence,
9981: source_document_type_id, source_document_id, orig_sys_line_ref,
9982: source_document_line_id, orig_sys_shipment_ref
10262: 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
10263: * (l_line_tbl(i).shipped_quantity2/l_line_tbl(i).ordered_quantity);
10264: 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
10265: * (l_line_tbl(i).shipped_quantity2/l_line_tbl(i).ordered_quantity);
10266: oe_debug_pub.ADD('OPM NEW USP : '|| to_char(l_line_tbl(i).unit_selling_price),5);
10267: END IF;
10268: END IF;
10269: END IF; --oe_line_util.dual_uom_control -- INVCONV
10270: -- OPM 2547940 end
11074: begin
11075: x_return_status := FND_API.G_RET_STS_SUCCESS;
11076:
11077: --btea perf begin
11078: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
11079: G_DEBUG := TRUE;
11080: adj_debug('Entering oe_order_Adj_pvt.Price_line',1);
11081: adj_debug('Version:'||get_version);
11082: Else
11100: close check_lines;
11101: RETURN;
11102: End If;
11103: Else
11104: Oe_Debug_Pub.add('In Multiple events');
11105: open check_lines2;
11106: fetch check_lines2 into l_dummy;
11107: IF check_lines2%NOTFOUND THEN
11108: close check_lines2;
11266:
11267: adj_debug('Entering oe_order_Adj_pvt.Price_adjustments',1);
11268:
11269: --btea perf begin
11270: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
11271: G_DEBUG := TRUE;
11272: adj_debug('BCT G_DEBUG IS:'||OE_DEBUG_PUB.G_DEBUG );
11273: Else
11274: G_DEBUG := FALSE;
11268:
11269: --btea perf begin
11270: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
11271: G_DEBUG := TRUE;
11272: adj_debug('BCT G_DEBUG IS:'||OE_DEBUG_PUB.G_DEBUG );
11273: Else
11274: G_DEBUG := FALSE;
11275: End If;
11276: --btea perf end
11336: );
11337: end if;
11338: g_order_currency := l_header_rec.transactional_curr_code; --bug 2595626
11339:
11340: oe_debug_pub.add(' Param1 UI Flag value:'|| p_request_rec.param1);
11341: l_line_index := l_Line_Tbl1.First;
11342: While l_line_index is not null loop -- Retain the ones with calculate_price_flag=Y'
11343: /* Added elsif condition so that price is calculated even if price flag is N
11344: when request is logged for a line */
11394: p_Adj_Index => i,
11395: p_Line_Adj_Assoc_Tbl => l_line_adj_Assoc_tbl,
11396: p_delete_flag => 'N');
11397:
11398: oe_debug_pub.add('xPrice_Adj query assocs-adj_id:'|| l_line_adj_Tbl(i).price_adjustment_id);
11399: oe_debug_pub.add('xAdj asso count:'||l_line_adj_Assoc_tbl.count);
11400: i:= l_Line_Adj_Tbl.Next(i);
11401: End loop;
11402:
11395: p_Line_Adj_Assoc_Tbl => l_line_adj_Assoc_tbl,
11396: p_delete_flag => 'N');
11397:
11398: oe_debug_pub.add('xPrice_Adj query assocs-adj_id:'|| l_line_adj_Tbl(i).price_adjustment_id);
11399: oe_debug_pub.add('xAdj asso count:'||l_line_adj_Assoc_tbl.count);
11400: i:= l_Line_Adj_Tbl.Next(i);
11401: End loop;
11402:
11403: --Performance change: To update only changed lines
11419: IF OE_GLOBALS.Equal(l_Old_Line_Adj_Tbl(i).adjusted_amount_per_pqty,
11420: l_Line_Adj_Tbl(i).adjusted_amount_per_pqty) THEN
11421: l_Line_Adj_Tbl.delete(i);
11422: ELSE
11423: oe_debug_pub.add(' price adj amount:'|| L_Line_Adj_Tbl(i).adjusted_amount);
11424: L_Line_Adj_Tbl(i).operation := OE_GLOBALS.G_OPR_UPDATE;
11425: END IF;
11426: i:= l_Line_Adj_Tbl.next(i);
11427: END LOOP;
11498: END IF;
11499: END IF; --oe_line_util.dual_uom_control -- INVCONV
11500: -- OPM 2547940 end
11501:
11502: oe_debug_pub.add('unit price'||l_line_tbl(i).unit_list_price||'+'||l_line_tbl(i).unit_selling_price,1);
11503: 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);
11504:
11505: -- uom end
11506:
11499: END IF; --oe_line_util.dual_uom_control -- INVCONV
11500: -- OPM 2547940 end
11501:
11502: oe_debug_pub.add('unit price'||l_line_tbl(i).unit_list_price||'+'||l_line_tbl(i).unit_selling_price,1);
11503: 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);
11504:
11505: -- uom end
11506:
11507: -- commented the assigment below and included above to fix bug 2595626
11663: l_Price_Control_Rec.Simulation_Flag := 'N';
11664: l_has_prg_lines := 'Q';
11665:
11666: --MOAC PI BEGIN
11667: oe_debug_pub.add('p_header_id : ' || p_header_id);
11668: IF p_header_id is not null THEN
11669: oe_debug_pub.add('before the loop');
11670: i := p_selected_records.first;
11671: while I is not null loop
11665:
11666: --MOAC PI BEGIN
11667: oe_debug_pub.add('p_header_id : ' || p_header_id);
11668: IF p_header_id is not null THEN
11669: oe_debug_pub.add('before the loop');
11670: i := p_selected_records.first;
11671: while I is not null loop
11672: L_line_id := p_selected_records(i).id1;
11673: --Bug 7330561
11681: l_has_prg_lines:='N';
11682: When others Then
11683: l_has_prg_lines:='Y';
11684: End;
11685: oe_debug_pub.add('Lalit calling Price Line with l_has_prg_lines-' || l_has_prg_lines );
11686: IF l_has_prg_lines = 'Y' THEN
11687: oe_order_Adj_pvt.Price_line(
11688: X_Return_Status => l_Return_Status
11689: ,p_Request_Type_code=> 'ONT'
11721:
11722: ELSE
11723: i := p_selected_records.first;
11724: while i is not null loop
11725: oe_debug_pub.add('id1 : ' || p_selected_records(i).id1);
11726: oe_debug_pub.add('org_id : ' || p_selected_records(i).org_id);
11727: oe_debug_pub.add('id3 : ' || p_selected_records(i).id3);
11728: l_line_id := p_selected_records(i).id1;
11729: l_org_id := p_selected_records(i).org_id;
11722: ELSE
11723: i := p_selected_records.first;
11724: while i is not null loop
11725: oe_debug_pub.add('id1 : ' || p_selected_records(i).id1);
11726: oe_debug_pub.add('org_id : ' || p_selected_records(i).org_id);
11727: oe_debug_pub.add('id3 : ' || p_selected_records(i).id3);
11728: l_line_id := p_selected_records(i).id1;
11729: l_org_id := p_selected_records(i).org_id;
11730: L_header_id := p_selected_records(i).id3;
11723: i := p_selected_records.first;
11724: while i is not null loop
11725: oe_debug_pub.add('id1 : ' || p_selected_records(i).id1);
11726: oe_debug_pub.add('org_id : ' || p_selected_records(i).org_id);
11727: oe_debug_pub.add('id3 : ' || p_selected_records(i).id3);
11728: l_line_id := p_selected_records(i).id1;
11729: l_org_id := p_selected_records(i).org_id;
11730: L_header_id := p_selected_records(i).id3;
11731: If l_prev_org_id is null or l_prev_org_id <> l_org_id Then
12575: l_control_rec.validate_entity := FALSE;
12576: l_control_rec.write_to_db := TRUE;
12577: l_control_rec.change_attributes := FALSE;
12578:
12579: Oe_Debug_Pub.add('Mass Change line id: '||p_line_id);
12580: stmt:='1';
12581:
12582: --For mass change it could be different order headers for lines therefore p_cross_order = 'Y'
12583: Get_Manual_Adjustments(p_line_id => p_line_id,
12591: While i Is Not Null Loop
12592: If l_manual_adj_tbl(i).override_flag = 'Y' Then
12593: --check if such modifier list exists in Oe_Price_Adjustments
12594: --If it is there don't insert a new one
12595: Oe_debug_Pub.add(' Override_flag:'||l_manual_adj_tbl(i).override_flag);
12596: Begin
12597: Select 'Y' Into l_found
12598: From Dual
12599: Where exists (Select 'X' From Oe_Price_Adjustments
12606: End;
12607: stmt:='10';
12608: --Insert only if no modifier list line found.
12609: If l_found = 'N' Then
12610: oe_debug_pub.add(' Creating overridable manual in oe_price_adjustments');
12611: l_line_adj_tbl(1).list_line_no := l_manual_adj_tbl(i).modifier_number; /* Bug #3738023 */
12612: l_line_adj_tbl(1).list_header_id := l_manual_adj_tbl(i).list_header_id;
12613: l_line_adj_tbl(1).list_line_id := l_manual_adj_tbl(i).list_line_id;
12614: l_line_adj_tbl(1).list_line_type_code := l_manual_adj_tbl(i).list_line_type_code;
12637: i:= l_manual_adj_tbl.Next(i);
12638: End Loop;
12639:
12640: Exception When Others Then
12641: Oe_Debug_Pub.Add('Error occured in oe_order_adj_pvt.create_manual_adjustments:'||stmt||':'||SQLERRM);
12642: Raise;
12643: End Create_Manual_Adjustments;
12644:
12645:
12714: l_line_index NUMBER := 0;
12715: l_line_attr_index number:=0;
12716: --bug 3531938
12717: l_order_status_rec QP_UTIL_PUB.ORDER_LINES_STATUS_REC_TYPE;
12718: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12719:
12720: l_manual_all_lines_status Varchar2(1); --bug 7600510
12721:
12722: cursor man_adj is
12738:
12739: --bucket man
12740: Begin
12741: if p_freight_flag then
12742: oe_debug_pub.add('freight flag is true');
12743: else
12744: oe_debug_pub.add('freight flag is false');
12745: end if;
12746: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12740: Begin
12741: if p_freight_flag then
12742: oe_debug_pub.add('freight flag is true');
12743: else
12744: oe_debug_pub.add('freight flag is false');
12745: end if;
12746: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12747: --l_profile_value := Fnd_Profile.Value('QP_MANUAL_LINEGROUP');
12748: oe_debug_pub.add('Entering Get Manual Adj');
12744: oe_debug_pub.add('freight flag is false');
12745: end if;
12746: x_return_status:=FND_API.G_RET_STS_SUCCESS;
12747: --l_profile_value := Fnd_Profile.Value('QP_MANUAL_LINEGROUP');
12748: oe_debug_pub.add('Entering Get Manual Adj');
12749: --bucket man
12750: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
12751: oe_order_price_pvt.reset_all_tbls;
12752: qp_price_request_context.set_request_id;
12771: x_order_status_rec =>l_order_status_rec);
12772: -- bug 9728497 end
12773:
12774:
12775: oe_debug_pub.add(' All_lines_flag returned from pricing:'||l_order_status_rec.all_lines_flag);
12776: -- bug 6817566
12777: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12778:
12779: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12773:
12774:
12775: oe_debug_pub.add(' All_lines_flag returned from pricing:'||l_order_status_rec.all_lines_flag);
12776: -- bug 6817566
12777: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12778:
12779: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12780: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12781: oe_debug_pub.add(' p_level '||p_level);
12776: -- bug 6817566
12777: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12778:
12779: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12780: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12781: oe_debug_pub.add(' p_level '||p_level);
12782: oe_debug_pub.add(' Check for Manual Advanced modifiers ',3);
12783: --- bug# 7600510 Start
12784: -- GET_MANUAL_ADV_STATUS('BATCH');
12777: oe_debug_pub.add(' manual_adv_modifier '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12778:
12779: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12780: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12781: oe_debug_pub.add(' p_level '||p_level);
12782: oe_debug_pub.add(' Check for Manual Advanced modifiers ',3);
12783: --- bug# 7600510 Start
12784: -- GET_MANUAL_ADV_STATUS('BATCH');
12785: QP_UTIL_PUB.Get_Manual_All_Lines_Status ('BATCH', l_manual_all_lines_status ) ;
12778:
12779: IF (OE_GLOBALS.G_MANUAL_ADV_MODIFIER IS NULL AND (p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')) THEN
12780: oe_debug_pub.add(' manual_adv_modifier 1 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12781: oe_debug_pub.add(' p_level '||p_level);
12782: oe_debug_pub.add(' Check for Manual Advanced modifiers ',3);
12783: --- bug# 7600510 Start
12784: -- GET_MANUAL_ADV_STATUS('BATCH');
12785: QP_UTIL_PUB.Get_Manual_All_Lines_Status ('BATCH', l_manual_all_lines_status ) ;
12786: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := l_manual_all_lines_status;
12784: -- GET_MANUAL_ADV_STATUS('BATCH');
12785: QP_UTIL_PUB.Get_Manual_All_Lines_Status ('BATCH', l_manual_all_lines_status ) ;
12786: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := l_manual_all_lines_status;
12787: --- bug# 7600510 End
12788: oe_debug_pub.add(' manual_adv_modifier 2 '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER);
12789: END IF;
12790:
12791: IF (((p_level = 'ORDER' or l_order_status_rec.ALL_LINES_FLAG = 'Y')
12792: AND(p_level = 'ORDER' or OE_GLOBALS.G_MANUAL_ADV_MODIFIER = 'Y')) -- 6851818
12793: AND p_header_id Is Not Null) Then
12794:
12795: if not (p_level = 'ORDER' and p_freight_flag) then --- bug 7655559
12796: --passing all lines under this header
12797: oe_debug_pub.add(' Query Rows under same header');
12798:
12799: oe_Line_util.query_rows(p_header_id => p_Header_id, x_line_tbl => l_Line_Tbl);
12800: oe_debug_pub.add('#of rows returned='|| to_char(l_line_tbl.count));
12801: oe_debug_pub.add('no.rows in l_line_tbl = '|| to_char(l_line_tbl.count));
12796: --passing all lines under this header
12797: oe_debug_pub.add(' Query Rows under same header');
12798:
12799: oe_Line_util.query_rows(p_header_id => p_Header_id, x_line_tbl => l_Line_Tbl);
12800: oe_debug_pub.add('#of rows returned='|| to_char(l_line_tbl.count));
12801: oe_debug_pub.add('no.rows in l_line_tbl = '|| to_char(l_line_tbl.count));
12802:
12803: -- Bug 1713035
12804: -- Loop through all the lines in database
12797: oe_debug_pub.add(' Query Rows under same header');
12798:
12799: oe_Line_util.query_rows(p_header_id => p_Header_id, x_line_tbl => l_Line_Tbl);
12800: oe_debug_pub.add('#of rows returned='|| to_char(l_line_tbl.count));
12801: oe_debug_pub.add('no.rows in l_line_tbl = '|| to_char(l_line_tbl.count));
12802:
12803: -- Bug 1713035
12804: -- Loop through all the lines in database
12805: -- Replace with the line in memory if found
12804: -- Loop through all the lines in database
12805: -- Replace with the line in memory if found
12806: -- else append
12807:
12808: oe_debug_pub.add('Get line currently in memory');
12809: OE_OE_FORM_LINE.get_line(p_line_id => p_line_id,
12810: x_line_rec => l_line_rec);
12811: For i in 1..l_line_tbl.count Loop
12812: if (l_line_tbl(i).line_id = l_line_rec.line_id) then
12809: OE_OE_FORM_LINE.get_line(p_line_id => p_line_id,
12810: x_line_rec => l_line_rec);
12811: For i in 1..l_line_tbl.count Loop
12812: if (l_line_tbl(i).line_id = l_line_rec.line_id) then
12813: oe_debug_pub.add('Line already posted to DB, so replace');
12814: l_posted_to_db := TRUE;
12815: l_line_tbl(i) := l_line_rec;
12816: exit;
12817: end if;
12817: end if;
12818: end loop;
12819:
12820: if NOT l_posted_to_db then
12821: oe_debug_pub.add('line not in DB, new line');
12822: oe_debug_pub.add('appending line with line_id '
12823: || to_char(p_line_id) ||
12824: ' to l_line_tbl');
12825: /*Bug 3280291*/
12818: end loop;
12819:
12820: if NOT l_posted_to_db then
12821: oe_debug_pub.add('line not in DB, new line');
12822: oe_debug_pub.add('appending line with line_id '
12823: || to_char(p_line_id) ||
12824: ' to l_line_tbl');
12825: /*Bug 3280291*/
12826: IF l_line_rec.line_id is not NULL THEN
12830: end if;--- bug 7655559
12831:
12832: Elsif p_line_id is not null Then
12833: --just pass one line
12834: oe_debug_pub.add(' Query Rows under for line line id:'||p_line_id);
12835: --oe_line_util.query_row(p_line_id =>p_line_id,x_line_rec=>l_line_rec);
12836:
12837: -- Bug 1713035
12838: -- Use oe_oe_form_line.get_line instead of query_rows
12835: --oe_line_util.query_row(p_line_id =>p_line_id,x_line_rec=>l_line_rec);
12836:
12837: -- Bug 1713035
12838: -- Use oe_oe_form_line.get_line instead of query_rows
12839: oe_debug_pub.add('calling get_line in oe_oe_form_line');
12840: OE_OE_FORM_LINE.get_line(
12841: p_line_id => p_line_id,
12842: x_line_rec => l_line_rec);
12843:
12861: --Cross order lines, lines may not came from same header need to query header for each line
12862: If p_cross_order = 'Y' and p_header_id Is Null Then
12863: oe_Header_util.query_row(p_header_id=>l_line_tbl(line_tbl_index).header_id,
12864: x_header_rec => OE_Order_PUB.g_hdr );
12865: oe_debug_pub.add(' Currency Code:'||OE_Order_PUB.g_hdr.transactional_curr_code);
12866: x_header_id := l_line_tbl(line_tbl_index).header_id;
12867: End If;
12868:
12869: --Populate global structure since attribute mapping only read global structure
12897: END IF;
12898: OE_Order_PUB.G_LINE := NULL;
12899: Exception
12900: When Others then
12901: oe_debug_pub.add(' QP ATTR MAPPING ERRORS 1');
12902: Raise QP_ATTR_MAPPING_ERRORS;
12903: End;
12904: G_STMT_NO := 'Get_manual_adjustment#2';
12905:
13018: Exception
13019: --when no_data_found then
13020: --(' QP ATTR MAPPING ERRORS 2');
13021: When Others then
13022: Oe_Debug_Pub.Add(' QP ATTR MAPPING ERRORS 2');
13023: Raise QP_ATTR_MAPPING_ERRORS;
13024:
13025: End;
13026:
13094:
13095: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110510' THEN
13096: IF l_line_index > 0 THEN
13097: If l_debug_level > 0 Then
13098: oe_debug_pub.add('before Populate_Temp_Table');
13099: End If;
13100: oe_order_price_pvt.Populate_Temp_Table;
13101: END IF;
13102: l_control_rec.request_type_code := 'ONT';
13152: g_stmt_no :='Get Manual Adj#5.5';
13153: for k In man_adj Loop
13154: If k.automatic_flag = 'N' Then
13155: If l_debug_level > 0 Then
13156: Oe_Debug_Pub.Add('+Line_type_code:'||k.line_type_code);
13157: Oe_Debug_Pub.Add('+List_line_no:'||k.list_line_no);
13158: End If;
13159:
13160: --Only return 1 set of lov per line id or per header id
13153: for k In man_adj Loop
13154: If k.automatic_flag = 'N' Then
13155: If l_debug_level > 0 Then
13156: Oe_Debug_Pub.Add('+Line_type_code:'||k.line_type_code);
13157: Oe_Debug_Pub.Add('+List_line_no:'||k.list_line_no);
13158: End If;
13159:
13160: --Only return 1 set of lov per line id or per header id
13161: If (p_level In ('ORDER') and
13227: i:=lx_req_line_detail_tbl.first;
13228: g_stmt_no :='Get Manual Adj#5.5';
13229: While i Is not Null Loop
13230: If lx_req_line_detail_tbl(i).automatic_flag = 'N' Then
13231: Oe_Debug_Pub.Add('+Line_type_code:'||l_req_line_tbl(lx_req_line_detail_tbl(i).line_index).line_type_code);
13232: Oe_Debug_Pub.Add('+List_line_no:'||lx_req_line_detail_tbl(i).list_line_no);
13233:
13234: --Only return 1 set of lov per line id or per header id
13235: If (p_level In ('ORDER') and
13228: g_stmt_no :='Get Manual Adj#5.5';
13229: While i Is not Null Loop
13230: If lx_req_line_detail_tbl(i).automatic_flag = 'N' Then
13231: Oe_Debug_Pub.Add('+Line_type_code:'||l_req_line_tbl(lx_req_line_detail_tbl(i).line_index).line_type_code);
13232: Oe_Debug_Pub.Add('+List_line_no:'||lx_req_line_detail_tbl(i).list_line_no);
13233:
13234: --Only return 1 set of lov per line id or per header id
13235: If (p_level In ('ORDER') and
13236: (l_req_line_tbl(lx_req_line_detail_tbl(i).line_index).line_type_code = 'ORDER' or
13266: x_manual_adj_tbl(i).modifier_level_code:=lx_req_line_detail_tbl(i).modifier_level_code;
13267: x_manual_adj_tbl(i).override_flag :=lx_req_line_detail_tbl(i).override_flag;
13268: x_manual_adj_tbl(i).operator :=lx_req_line_detail_tbl(i).operand_calculation_code;
13269: x_manual_adj_tbl(i).adjusted_amount :=round(lx_req_line_detail_tbl(i).ADJUSTMENT_AMOUNT,6);
13270: oe_debug_pub.add('get manual adj:after round:'||x_manual_adj_tbl(i).adjusted_amount);
13271: x_manual_adj_tbl(i).charge_type_code :=lx_req_line_detail_tbl(i).CHARGE_TYPE_CODE;
13272: x_manual_adj_tbl(i).CHARGE_SUBTYPE_CODE :=lx_req_line_detail_tbl(i).CHARGE_SUBTYPE_CODE;
13273: End If;
13274:
13295: (x_manual_adj_tbl(j).price_break_type_code = 'RANGE' --bucket man
13296: and p_pbh_mode <> 'PARENT'
13297: )
13298: ) then
13299: oe_debug_pub.add(' Manual adj call: deleting order level adjustment');
13300: oe_debug_pub.add(' Manual adj call: remove RANGE break');
13301: x_manual_adj_tbl.delete(j);
13302: end if;
13303: ELSE
13296: and p_pbh_mode <> 'PARENT'
13297: )
13298: ) then
13299: oe_debug_pub.add(' Manual adj call: deleting order level adjustment');
13300: oe_debug_pub.add(' Manual adj call: remove RANGE break');
13301: x_manual_adj_tbl.delete(j);
13302: end if;
13303: ELSE
13304: if (x_manual_adj_tbl(j).modifier_level_code = 'ORDER' or
13313: --children. We support manual range break from view adjustments form
13314: --because in view adjustments, it is the parent PBH a user get to choose
13315: --and the system will insert all range break children.
13316:
13317: oe_debug_pub.add(' Manual adj call: deleting order level adjustment');
13318: oe_debug_pub.add(' Manual adj call: remove RANGE break');
13319: x_manual_adj_tbl.delete(j);
13320: end if;
13321: END IF;
13314: --because in view adjustments, it is the parent PBH a user get to choose
13315: --and the system will insert all range break children.
13316:
13317: oe_debug_pub.add(' Manual adj call: deleting order level adjustment');
13318: oe_debug_pub.add(' Manual adj call: remove RANGE break');
13319: x_manual_adj_tbl.delete(j);
13320: end if;
13321: END IF;
13322: j := x_manual_adj_tbl.next(j);
13322: j := x_manual_adj_tbl.next(j);
13323: End loop;
13324: end if;
13325:
13326: Oe_Debug_Pub.add('Exiting Get manual adj');
13327:
13328: EXCEPTION
13329:
13330: WHEN FND_API.G_EXC_ERROR THEN
13333: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_Text);
13334: OE_MSG_PUB.Add;
13335: x_return_status := FND_API.G_RET_STS_ERROR;
13336:
13337: Oe_Debug_Pub.add('g_exc_error is '||g_stmt_no||' '||sqlerrm,1);
13338: Oe_Debug_Pub.add('g_exc_error is '||l_return_status_Text);
13339: --DBMS_OUTPUT.PUT_LINE('g_exc_error is '||l_return_status_Text);
13340: RAISE FND_API.G_EXC_ERROR;
13341:
13334: OE_MSG_PUB.Add;
13335: x_return_status := FND_API.G_RET_STS_ERROR;
13336:
13337: Oe_Debug_Pub.add('g_exc_error is '||g_stmt_no||' '||sqlerrm,1);
13338: Oe_Debug_Pub.add('g_exc_error is '||l_return_status_Text);
13339: --DBMS_OUTPUT.PUT_LINE('g_exc_error is '||l_return_status_Text);
13340: RAISE FND_API.G_EXC_ERROR;
13341:
13342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13344: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
13345: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_Text);
13346: OE_MSG_PUB.Add;
13347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13348: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||g_stmt_no||' '||sqlerrm,1);
13349: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13350: --DBMS_OUTPUT.PUT_LINE('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13352: WHEN QP_ATTR_MAPPING_ERRORS Then
13345: FND_MESSAGE.SET_TOKEN('ERR_TEXT',l_return_status_Text);
13346: OE_MSG_PUB.Add;
13347: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13348: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||g_stmt_no||' '||sqlerrm,1);
13349: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13350: --DBMS_OUTPUT.PUT_LINE('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13351: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13352: WHEN QP_ATTR_MAPPING_ERRORS Then
13353: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
13353: FND_MESSAGE.SET_NAME('ONT','OE_PRICING_ERROR');
13354: FND_MESSAGE.SET_TOKEN('ERR_TEXT','Errors return from QP_Attr_Mapping_PUB.Build_Context');
13355: OE_MSG_PUB.Add;
13356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13357: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is: QP_Attr_Mapping_PUB.Build_Context'||sqlerrm,1);
13358: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13359: Oe_Debug_Pub.add('QP_ATTR_MAPPING_ERRORS');
13360: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13361: WHEN OTHERS THEN
13354: FND_MESSAGE.SET_TOKEN('ERR_TEXT','Errors return from QP_Attr_Mapping_PUB.Build_Context');
13355: OE_MSG_PUB.Add;
13356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13357: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is: QP_Attr_Mapping_PUB.Build_Context'||sqlerrm,1);
13358: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13359: Oe_Debug_Pub.add('QP_ATTR_MAPPING_ERRORS');
13360: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13361: WHEN OTHERS THEN
13362:
13355: OE_MSG_PUB.Add;
13356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13357: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is: QP_Attr_Mapping_PUB.Build_Context'||sqlerrm,1);
13358: Oe_Debug_Pub.add('G_EXC_UNEXPECTED_ERROR is '||l_return_status_Text);
13359: Oe_Debug_Pub.add('QP_ATTR_MAPPING_ERRORS');
13360: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13361: WHEN OTHERS THEN
13362:
13363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13360: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13361: WHEN OTHERS THEN
13362:
13363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13364: Oe_Debug_Pub.add('Error is '||sqlerrm);
13365: Oe_Debug_Pub.add('Error Code is '||g_stmt_no||' '||sqlerrm,1);
13366:
13367: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13368: THEN
13361: WHEN OTHERS THEN
13362:
13363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13364: Oe_Debug_Pub.add('Error is '||sqlerrm);
13365: Oe_Debug_Pub.add('Error Code is '||g_stmt_no||' '||sqlerrm,1);
13366:
13367: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13368: THEN
13369: OE_MSG_PUB.Add_Exc_Msg
13511:
13512: x_get_manual_adv VARCHAR2(1);
13513:
13514: BEGIN
13515: oe_debug_pub.add(' Inside GET_MANUAL_ADV_STATUS ',3);
13516: x_get_manual_adv := NULL;
13517:
13518: OPEN l_send_all_lines_cur(p_event_code || ',') ;
13519: FETCH l_send_all_lines_cur INTO x_get_manual_adv;
13519: FETCH l_send_all_lines_cur INTO x_get_manual_adv;
13520: CLOSE l_send_all_lines_cur;
13521:
13522: If x_get_manual_adv = 'X' THEN
13523: oe_debug_pub.add('Manual adv modifiers exist');
13524: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'Y';
13525: ELSE
13526: oe_debug_pub.add('Manual adv modifiers do not exist');
13527: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'N';
13522: If x_get_manual_adv = 'X' THEN
13523: oe_debug_pub.add('Manual adv modifiers exist');
13524: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'Y';
13525: ELSE
13526: oe_debug_pub.add('Manual adv modifiers do not exist');
13527: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'N';
13528: END IF;
13529:
13530:
13527: OE_GLOBALS.G_MANUAL_ADV_MODIFIER := 'N';
13528: END IF;
13529:
13530:
13531: oe_debug_pub.add('return_value '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER,3);
13532: oe_debug_pub.add(' Leaving GET_MANUAL_ADV_STATUS ',3);
13533: END GET_MANUAL_ADV_STATUS;
13534:
13535: end Oe_Order_Adj_Pvt;
13528: END IF;
13529:
13530:
13531: oe_debug_pub.add('return_value '||OE_GLOBALS.G_MANUAL_ADV_MODIFIER,3);
13532: oe_debug_pub.add(' Leaving GET_MANUAL_ADV_STATUS ',3);
13533: END GET_MANUAL_ADV_STATUS;
13534:
13535: end Oe_Order_Adj_Pvt;