[Home] [Help]
163: cnt PLS_INTEGER:=0;
164: l_found1 Boolean := False;
165: l_found2 Boolean := False;
166: --
167: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
168: --
169: Begin
170: IF l_debug_level > 0 THEN
171: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.APPEND_ASSOCIATIONS' , 1 ) ;
167: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
168: --
169: Begin
170: IF l_debug_level > 0 THEN
171: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.APPEND_ASSOCIATIONS' , 1 ) ;
172: END IF;
173: I:=p_pbh_tbl.first;
174: while I is not null loop
175: IF l_debug_level > 0 THEN
172: END IF;
173: I:=p_pbh_tbl.first;
174: while I is not null loop
175: IF l_debug_level > 0 THEN
176: oe_debug_pub.add( 'PBH'||P_PBH_TBL ( I ) , 1 ) ;
177: END IF;
178: I:=p_pbh_tbl.next(I);
179: end loop;
180:
180:
181: I:=p_line_adj_tbl.first;
182: while I is not null loop
183: IF l_debug_level > 0 THEN
184: oe_debug_pub.add( 'LINE ADJ'||P_LINE_ADJ_TBL ( I ) .PRICE_ADJUSTMENT_ID||' '||P_LINE_ADJ_TBL ( I ) .LIST_LINE_TYPE_CODE , 1 ) ;
185: END IF;
186: I:=p_line_adj_tbl.next(I);
187: end loop;
188:
210: End Loop;
211: I:=p_pbh_tbl.next(I);
212: End Loop;
213: IF l_debug_level > 0 THEN
214: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.APPEND_ASSOCIATIONS' , 1 ) ;
215: END IF;
216: End;
217:
218: PROCEDURE API_Rec_To_Rowtype_Rec
339: )
340: iS
341:
342: --
343: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
344: --
345: BEGIN
346: IF l_debug_level > 0 THEN
347: oe_debug_pub.add( 'BEFORE ASSIGN COST_ID '||TO_CHAR ( P_RECORD.COST_ID ) , 1 ) ;
343: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
344: --
345: BEGIN
346: IF l_debug_level > 0 THEN
347: oe_debug_pub.add( 'BEFORE ASSIGN COST_ID '||TO_CHAR ( P_RECORD.COST_ID ) , 1 ) ;
348: END IF;
349:
350: x_api_rec.ATTRIBUTE1 := p_record.ATTRIBUTE1;
351: x_api_rec.ATTRIBUTE10 := p_record.ATTRIBUTE10;
471: l_index NUMBER :=0;
472: l_src_attr_tbl OE_GLOBALS.NUMBER_Tbl_Type;
473: l_dep_attr_tbl OE_GLOBALS.NUMBER_Tbl_Type;
474: --
475: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
476: --
477: BEGIN
478:
479: -- Load out record
482:
483: -- If attr_id is missing compare old and new records and for
484: -- every changed attribute clear its dependent fields.
485: IF l_debug_level > 0 THEN
486: oe_debug_pub.add( 'ENTERING CLEAR_DEPENDENT_ATTR' ) ;
487: END IF;
488: IF p_attr_id = FND_API.G_MISS_NUM THEN
489:
490:
1198: END IF;
1199: END LOOP;
1200: END IF;
1201: IF l_debug_level > 0 THEN
1202: oe_debug_pub.add( 'LEAVING CLEAR_DEPENDENT_ATTR' ) ;
1203: END IF;
1204: END Clear_Dependent_Attr;
1205:
1206:
1215: l_old_Line_Adj_rec OE_AK_Line_PRCADJS_V%ROWTYPE ;
1216: l_initial_Line_Adj_rec OE_AK_Line_PRCADJS_V%ROWTYPE;
1217:
1218: --
1219: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1220: --
1221: BEGIN
1222:
1223: -- Load out record
1221: BEGIN
1222:
1223: -- Load out record
1224: IF l_debug_level > 0 THEN
1225: oe_debug_pub.add( 'ENTERING CLEAR_DEPENDENT_ATTR' ) ;
1226: END IF;
1227: API_Rec_To_Rowtype_Rec(p_x_Line_Adj_rec , l_Line_Adj_rec);
1228: API_Rec_To_Rowtype_Rec(p_Old_Line_Adj_rec , l_Old_Line_Adj_rec);
1229: l_Initial_Line_Adj_rec := l_Line_Adj_rec;
1236: );
1237:
1238: Rowtype_Rec_To_API_Rec(l_Line_Adj_rec,p_x_Line_Adj_Rec);
1239: IF l_debug_level > 0 THEN
1240: oe_debug_pub.add( 'LEAVING CLEAR_DEPENDENT_ATTR' ) ;
1241: END IF;
1242: END Clear_Dependent_Attr;
1243:
1244: -- Procedure Apply_Attribute_Changes
1266: l_rule_defined VARCHAR2(1);
1267: l_credit_check_rule_id NUMBER;
1268: l_credit_check_rule_rec OE_CREDIT_CHECK_UTIL.OE_credit_rules_rec_type ;
1269: --
1270: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1271: --
1272: BEGIN
1273:
1274: -- Load out record
1274: -- Load out record
1275:
1276: --x_Line_Adj_rec := p_Line_Adj_rec;
1277: IF l_debug_level > 0 THEN
1278: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.APPLY ATTRIBUTE CHANGES' ) ;
1279: END IF;
1280: IF NOT OE_GLOBALS.Equal(p_x_Line_Adj_rec.adjusted_amount,p_old_Line_Adj_rec.adjusted_amount)
1281: THEN
1282: NULL;
1752: NULL;
1753: END IF;
1754:
1755: IF l_debug_level > 0 THEN
1756: oe_debug_pub.add( 'RECURSION_MODE'||OE_GLOBALS.G_RECURSION_MODE||' PRICING:'||OE_GLOBALS.G_PRICING_RECURSION , 1 ) ;
1757: oe_debug_pub.add( 'HEADER_ID'||P_X_LINE_ADJ_REC.HEADER_ID , 1 ) ;
1758: oe_debug_pub.add( 'LINE_ID'||P_X_LINE_ADJ_REC.LINE_ID , 1 ) ;
1759: END IF;
1760: if (l_price_flag) then
1753: END IF;
1754:
1755: IF l_debug_level > 0 THEN
1756: oe_debug_pub.add( 'RECURSION_MODE'||OE_GLOBALS.G_RECURSION_MODE||' PRICING:'||OE_GLOBALS.G_PRICING_RECURSION , 1 ) ;
1757: oe_debug_pub.add( 'HEADER_ID'||P_X_LINE_ADJ_REC.HEADER_ID , 1 ) ;
1758: oe_debug_pub.add( 'LINE_ID'||P_X_LINE_ADJ_REC.LINE_ID , 1 ) ;
1759: END IF;
1760: if (l_price_flag) then
1761: IF l_debug_level > 0 THEN
1754:
1755: IF l_debug_level > 0 THEN
1756: oe_debug_pub.add( 'RECURSION_MODE'||OE_GLOBALS.G_RECURSION_MODE||' PRICING:'||OE_GLOBALS.G_PRICING_RECURSION , 1 ) ;
1757: oe_debug_pub.add( 'HEADER_ID'||P_X_LINE_ADJ_REC.HEADER_ID , 1 ) ;
1758: oe_debug_pub.add( 'LINE_ID'||P_X_LINE_ADJ_REC.LINE_ID , 1 ) ;
1759: END IF;
1760: if (l_price_flag) then
1761: IF l_debug_level > 0 THEN
1762: oe_debug_pub.add( 'PRICE FLAG:Y' , 1 ) ;
1758: oe_debug_pub.add( 'LINE_ID'||P_X_LINE_ADJ_REC.LINE_ID , 1 ) ;
1759: END IF;
1760: if (l_price_flag) then
1761: IF l_debug_level > 0 THEN
1762: oe_debug_pub.add( 'PRICE FLAG:Y' , 1 ) ;
1763: END IF;
1764: else
1765: IF l_debug_level > 0 THEN
1766: oe_debug_pub.add( 'PRICE FLAG:N' , 1 ) ;
1762: oe_debug_pub.add( 'PRICE FLAG:Y' , 1 ) ;
1763: END IF;
1764: else
1765: IF l_debug_level > 0 THEN
1766: oe_debug_pub.add( 'PRICE FLAG:N' , 1 ) ;
1767: END IF;
1768: end if;
1769:
1770: -- bug 2378843: don't log request when g_pricing_recursion is set
1781: */
1782: If OE_GLOBALS.G_UI_FLAG and nvl(p_x_Line_adj_rec.automatic_flag,'Y') = 'N' Then
1783: --we need to log different delayed request for manual adjustments.
1784: IF l_debug_level > 0 THEN
1785: oe_debug_pub.add( ' UI FLAG IS TRUE , LOGGING UI DELAYED REQUEST FOR ADJ' ) ;
1786: END IF;
1787: oe_delayed_requests_pvt.log_request(
1788: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1789: p_entity_id => p_x_Line_adj_rec.Line_id,
1871: IF (l_verify_payment_flag = 'Y') THEN
1872: --Start bug# 5961160
1873: -- Query the Order Header
1874: IF l_debug_level > 0 THEN
1875: oe_debug_pub.add( 'OEXULADB: BEFORE QUERYING HEADER ID : '|| p_x_line_adj_rec.header_id ) ;
1876: END IF;
1877:
1878: OE_Header_UTIL.Query_Row
1879: (p_header_id => p_x_line_adj_rec.header_id
1881: );
1882:
1883: IF l_debug_level > 0
1884: THEN
1885: OE_DEBUG_PUB.ADD('after query header ');
1886: OE_DEBUG_PUB.ADD(' ');
1887: OE_DEBUG_PUB.ADD('================================================');
1888: OE_DEBUG_PUB.ADD('Header ID = '|| l_header_rec.header_id );
1889: OE_DEBUG_PUB.ADD('order_category_code = '|| l_header_rec.order_category_code );
1882:
1883: IF l_debug_level > 0
1884: THEN
1885: OE_DEBUG_PUB.ADD('after query header ');
1886: OE_DEBUG_PUB.ADD(' ');
1887: OE_DEBUG_PUB.ADD('================================================');
1888: OE_DEBUG_PUB.ADD('Header ID = '|| l_header_rec.header_id );
1889: OE_DEBUG_PUB.ADD('order_category_code = '|| l_header_rec.order_category_code );
1890: OE_DEBUG_PUB.ADD('Booked flag = '|| l_header_rec.booked_flag );
1883: IF l_debug_level > 0
1884: THEN
1885: OE_DEBUG_PUB.ADD('after query header ');
1886: OE_DEBUG_PUB.ADD(' ');
1887: OE_DEBUG_PUB.ADD('================================================');
1888: OE_DEBUG_PUB.ADD('Header ID = '|| l_header_rec.header_id );
1889: OE_DEBUG_PUB.ADD('order_category_code = '|| l_header_rec.order_category_code );
1890: OE_DEBUG_PUB.ADD('Booked flag = '|| l_header_rec.booked_flag );
1891: OE_DEBUG_PUB.ADD('Order number = '|| l_header_rec.order_number );
1884: THEN
1885: OE_DEBUG_PUB.ADD('after query header ');
1886: OE_DEBUG_PUB.ADD(' ');
1887: OE_DEBUG_PUB.ADD('================================================');
1888: OE_DEBUG_PUB.ADD('Header ID = '|| l_header_rec.header_id );
1889: OE_DEBUG_PUB.ADD('order_category_code = '|| l_header_rec.order_category_code );
1890: OE_DEBUG_PUB.ADD('Booked flag = '|| l_header_rec.booked_flag );
1891: OE_DEBUG_PUB.ADD('Order number = '|| l_header_rec.order_number );
1892: OE_DEBUG_PUB.ADD('payment_term_id = '|| l_header_rec.payment_term_id );
1885: OE_DEBUG_PUB.ADD('after query header ');
1886: OE_DEBUG_PUB.ADD(' ');
1887: OE_DEBUG_PUB.ADD('================================================');
1888: OE_DEBUG_PUB.ADD('Header ID = '|| l_header_rec.header_id );
1889: OE_DEBUG_PUB.ADD('order_category_code = '|| l_header_rec.order_category_code );
1890: OE_DEBUG_PUB.ADD('Booked flag = '|| l_header_rec.booked_flag );
1891: OE_DEBUG_PUB.ADD('Order number = '|| l_header_rec.order_number );
1892: OE_DEBUG_PUB.ADD('payment_term_id = '|| l_header_rec.payment_term_id );
1893: OE_DEBUG_PUB.ADD('order_type_id = '|| l_header_rec.order_type_id );
1886: OE_DEBUG_PUB.ADD(' ');
1887: OE_DEBUG_PUB.ADD('================================================');
1888: OE_DEBUG_PUB.ADD('Header ID = '|| l_header_rec.header_id );
1889: OE_DEBUG_PUB.ADD('order_category_code = '|| l_header_rec.order_category_code );
1890: OE_DEBUG_PUB.ADD('Booked flag = '|| l_header_rec.booked_flag );
1891: OE_DEBUG_PUB.ADD('Order number = '|| l_header_rec.order_number );
1892: OE_DEBUG_PUB.ADD('payment_term_id = '|| l_header_rec.payment_term_id );
1893: OE_DEBUG_PUB.ADD('order_type_id = '|| l_header_rec.order_type_id );
1894: OE_DEBUG_PUB.ADD(' ');
1887: OE_DEBUG_PUB.ADD('================================================');
1888: OE_DEBUG_PUB.ADD('Header ID = '|| l_header_rec.header_id );
1889: OE_DEBUG_PUB.ADD('order_category_code = '|| l_header_rec.order_category_code );
1890: OE_DEBUG_PUB.ADD('Booked flag = '|| l_header_rec.booked_flag );
1891: OE_DEBUG_PUB.ADD('Order number = '|| l_header_rec.order_number );
1892: OE_DEBUG_PUB.ADD('payment_term_id = '|| l_header_rec.payment_term_id );
1893: OE_DEBUG_PUB.ADD('order_type_id = '|| l_header_rec.order_type_id );
1894: OE_DEBUG_PUB.ADD(' ');
1895: OE_DEBUG_PUB.ADD('================================================');
1888: OE_DEBUG_PUB.ADD('Header ID = '|| l_header_rec.header_id );
1889: OE_DEBUG_PUB.ADD('order_category_code = '|| l_header_rec.order_category_code );
1890: OE_DEBUG_PUB.ADD('Booked flag = '|| l_header_rec.booked_flag );
1891: OE_DEBUG_PUB.ADD('Order number = '|| l_header_rec.order_number );
1892: OE_DEBUG_PUB.ADD('payment_term_id = '|| l_header_rec.payment_term_id );
1893: OE_DEBUG_PUB.ADD('order_type_id = '|| l_header_rec.order_type_id );
1894: OE_DEBUG_PUB.ADD(' ');
1895: OE_DEBUG_PUB.ADD('================================================');
1896: END IF;
1889: OE_DEBUG_PUB.ADD('order_category_code = '|| l_header_rec.order_category_code );
1890: OE_DEBUG_PUB.ADD('Booked flag = '|| l_header_rec.booked_flag );
1891: OE_DEBUG_PUB.ADD('Order number = '|| l_header_rec.order_number );
1892: OE_DEBUG_PUB.ADD('payment_term_id = '|| l_header_rec.payment_term_id );
1893: OE_DEBUG_PUB.ADD('order_type_id = '|| l_header_rec.order_type_id );
1894: OE_DEBUG_PUB.ADD(' ');
1895: OE_DEBUG_PUB.ADD('================================================');
1896: END IF;
1897:
1890: OE_DEBUG_PUB.ADD('Booked flag = '|| l_header_rec.booked_flag );
1891: OE_DEBUG_PUB.ADD('Order number = '|| l_header_rec.order_number );
1892: OE_DEBUG_PUB.ADD('payment_term_id = '|| l_header_rec.payment_term_id );
1893: OE_DEBUG_PUB.ADD('order_type_id = '|| l_header_rec.order_type_id );
1894: OE_DEBUG_PUB.ADD(' ');
1895: OE_DEBUG_PUB.ADD('================================================');
1896: END IF;
1897:
1898: -- Call Which_Rule function to find out Which Rule to Apply
1891: OE_DEBUG_PUB.ADD('Order number = '|| l_header_rec.order_number );
1892: OE_DEBUG_PUB.ADD('payment_term_id = '|| l_header_rec.payment_term_id );
1893: OE_DEBUG_PUB.ADD('order_type_id = '|| l_header_rec.order_type_id );
1894: OE_DEBUG_PUB.ADD(' ');
1895: OE_DEBUG_PUB.ADD('================================================');
1896: END IF;
1897:
1898: -- Call Which_Rule function to find out Which Rule to Apply
1899: IF l_debug_level > 0 THEN
1896: END IF;
1897:
1898: -- Call Which_Rule function to find out Which Rule to Apply
1899: IF l_debug_level > 0 THEN
1900: oe_debug_pub.add( 'OEXULADB: BEFORE CALLING WHICH RULE ' ) ;
1901: END IF;
1902:
1903: l_calling_action := OE_Verify_Payment_PUB.Which_Rule(p_header_id => p_x_line_adj_rec.header_id);
1904:
1902:
1903: l_calling_action := OE_Verify_Payment_PUB.Which_Rule(p_header_id => p_x_line_adj_rec.header_id);
1904:
1905: IF l_debug_level > 0 THEN
1906: oe_debug_pub.add( 'OEXULADB: RULE TO BE USED IS : '|| l_calling_action ) ;
1907: END IF;
1908:
1909: IF l_debug_level > 0 THEN
1910: oe_debug_pub.add( 'OEXULADB: BEFORE CHECKING IF THE RULE IS DEFINED OR NOT' ) ;
1906: oe_debug_pub.add( 'OEXULADB: RULE TO BE USED IS : '|| l_calling_action ) ;
1907: END IF;
1908:
1909: IF l_debug_level > 0 THEN
1910: oe_debug_pub.add( 'OEXULADB: BEFORE CHECKING IF THE RULE IS DEFINED OR NOT' ) ;
1911: END IF;
1912:
1913: l_rule_defined := OE_Verify_Payment_PUB.Check_Rule_Defined
1914: ( p_header_rec => l_header_rec
1915: , p_calling_action => l_calling_action
1916: ) ;
1917:
1918: IF l_debug_level > 0 THEN
1919: oe_debug_pub.add( 'OEXULADB: OUT OF RULE DEFINED : '|| l_rule_defined);
1920: END IF;
1921:
1922: IF l_rule_defined = 'Y' THEN
1923: l_credit_check_rule_id := NULL ;
1923: l_credit_check_rule_id := NULL ;
1924:
1925: -- Check the Rule to Apply
1926: IF l_debug_level > 0 THEN
1927: oe_debug_pub.add( 'Before L_CREDIT_CHECK_RULE_ID => '|| l_credit_check_rule_id ) ;
1928: END IF;
1929:
1930: OE_CREDIT_CHECK_UTIL.Get_Credit_Check_Rule_ID
1931: ( p_calling_action => l_calling_action
1933: , x_credit_rule_id => l_credit_check_rule_id
1934: );
1935:
1936: IF l_debug_level > 0 THEN
1937: oe_debug_pub.add( 'After L_CREDIT_CHECK_RULE_ID => '|| l_credit_check_rule_id ) ;
1938: END IF;
1939:
1940: OE_CREDIT_CHECK_UTIL.GET_credit_check_rule
1941: ( p_credit_check_rule_id => l_credit_check_rule_id
1942: , x_credit_check_rules_rec => l_credit_check_rule_rec
1943: );
1944:
1945: IF l_debug_level > 0 THEN
1946: oe_debug_pub.add( 'OEXULADB: INCL FREIGHT CHARGE FLAG : '|| l_credit_check_rule_rec.incl_freight_charges_flag);
1947: END IF;
1948:
1949: IF NVL(l_credit_check_rule_rec.incl_freight_charges_flag,'N') = 'Y' THEN
1950: BEGIN
1955: EXCEPTION WHEN NO_DATA_FOUND THEN
1956: null;
1957: END;
1958: IF l_line_category_code <> 'RETURN' THEN
1959: oe_debug_pub.ADD('OEXULADB: Logging delayed request for Verify Payment');
1960: OE_delayed_requests_Pvt.log_request
1961: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
1962: p_entity_id => p_x_line_adj_rec.header_id,
1963: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE,
1976: null;
1977: END;
1978: IF l_line_category_code <> 'RETURN' THEN
1979: IF l_debug_level > 0 THEN
1980: oe_debug_pub.ADD('OEXULADB: Logging delayed request for Verify Payment CC Reversal',5);
1981: END IF;
1982: oe_verify_payment_pub.G_credit_check_flag := 'N' ;
1983:
1984: OE_delayed_requests_Pvt.log_request
1995: --ELSEIF for rule defined
1996: ELSIF OE_VERIFY_PAYMENT_PUB.Get_CC_Rev_Reauth_Code( p_x_line_adj_rec.header_id) IS NOT NULL THEN
1997: -- if no rule defined .. Need to log verify payment request for processing authorization.
1998: IF l_debug_level > 0 THEN
1999: oe_debug_pub.ADD('OEXULADB: Logging delayed request for Verify Payment CC Reversal when rule not exists',5);
2000: END IF;
2001: BEGIN
2002: SELECT line_category_code
2003: INTO l_line_category_code
2006: EXCEPTION WHEN NO_DATA_FOUND THEN
2007: null;
2008: END;
2009: IF l_debug_level > 0 THEN
2010: oe_debug_pub.ADD('OEXULADB:l_line_category_code '||l_line_category_code);
2011: END IF;
2012: IF l_line_category_code <> 'RETURN' THEN
2013: IF l_debug_level > 0 THEN
2014: oe_debug_pub.ADD('OEXULADB: Logging delayed request for Verify Payment CC Reversal',5);
2010: oe_debug_pub.ADD('OEXULADB:l_line_category_code '||l_line_category_code);
2011: END IF;
2012: IF l_line_category_code <> 'RETURN' THEN
2013: IF l_debug_level > 0 THEN
2014: oe_debug_pub.ADD('OEXULADB: Logging delayed request for Verify Payment CC Reversal',5);
2015: END IF;
2016: oe_verify_payment_pub.G_credit_check_flag := 'N' ;
2017: OE_delayed_requests_Pvt.log_request
2018: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
2031: THEN
2032: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2033: END IF;
2034: IF l_debug_level > 0 THEN
2035: oe_debug_pub.add( 'OE_LINE_ADJ_UTIL.LEAVING APPLY_ATTRIBUTE_CHANGES' ) ;
2036: END IF;
2037: END Apply_Attribute_Changes;
2038:
2039: -- Procedure Complete_Record
2496: )
2497: IS
2498: l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type := p_x_Line_Adj_rec;
2499: --
2500: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2501: --
2502: BEGIN
2503:
2504: IF l_Line_Adj_rec.adjusted_amount = FND_API.G_MISS_NUM THEN
2907:
2908: -- end eBTax changes
2909:
2910: IF l_debug_level > 0 THEN
2911: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.CONVERT_MISS_TO_NULL' , 1 ) ;
2912: END IF;
2913:
2914: -- RETURN l_Line_Adj_rec;
2915: p_x_Line_Adj_rec := l_Line_Adj_rec;
2925: l_lock_control NUMBER;
2926: l_index NUMBER;
2927: l_return_status VARCHAR2(1);
2928: --
2929: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2930: --
2931: BEGIN
2932: IF l_debug_level > 0 THEN
2933: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.UPDATE_ROW' , 1 ) ;
2929: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2930: --
2931: BEGIN
2932: IF l_debug_level > 0 THEN
2933: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.UPDATE_ROW' , 1 ) ;
2934: END IF;
2935:
2936: -- increment lock_control by 1 whenever the record is updated
2937: SELECT lock_control
2944: --calling notification framework to update global picture
2945: --check code release level first. Notification framework is at Pack H level
2946: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
2947: IF l_debug_level > 0 THEN
2948: oe_debug_pub.add( 'JFC: LINE_PRICE_ADJ_ID=' || P_LINE_ADJ_REC.PRICE_ADJUSTMENT_ID ) ;
2949: END IF;
2950: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
2951: p_Line_adj_rec =>p_line_adj_rec,
2952: p_line_adj_id => p_line_adj_rec.price_adjustment_id,
2952: p_line_adj_id => p_line_adj_rec.price_adjustment_id,
2953: x_index => l_index,
2954: x_return_status => l_return_status);
2955: IF l_debug_level > 0 THEN
2956: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_LINE_ADJ_UTIL.UPDATE_ROW IS: ' || L_RETURN_STATUS ) ;
2957: END IF;
2958: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2959: IF l_debug_level > 0 THEN
2960: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
2956: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_LINE_ADJ_UTIL.UPDATE_ROW IS: ' || L_RETURN_STATUS ) ;
2957: END IF;
2958: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2959: IF l_debug_level > 0 THEN
2960: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
2961: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.UPDATE_ROW' , 1 ) ;
2962: END IF;
2963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2964: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2957: END IF;
2958: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2959: IF l_debug_level > 0 THEN
2960: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
2961: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.UPDATE_ROW' , 1 ) ;
2962: END IF;
2963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2964: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2965: IF l_debug_level > 0 THEN
2962: END IF;
2963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2964: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2965: IF l_debug_level > 0 THEN
2966: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_ADJ_UTIL.UPDATE_ROW' ) ;
2967: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.UPDATE_ROW' , 1 ) ;
2968: END IF;
2969: RAISE FND_API.G_EXC_ERROR;
2970: END IF;
2963: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2964: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2965: IF l_debug_level > 0 THEN
2966: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_ADJ_UTIL.UPDATE_ROW' ) ;
2967: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.UPDATE_ROW' , 1 ) ;
2968: END IF;
2969: RAISE FND_API.G_EXC_ERROR;
2970: END IF;
2971: END IF; /* code_release_level*/
3082: ;
3083:
3084: p_Line_Adj_rec.lock_control := l_lock_control;
3085: IF l_debug_level > 0 THEN
3086: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.UPDATE_ROW.' , 1 ) ;
3087: END IF;
3088:
3089: EXCEPTION
3090:
3097: , 'Update_Row'
3098: );
3099: END IF;
3100: IF l_debug_level > 0 THEN
3101: oe_debug_pub.add( 'EXCEPTION IN UPDATE_ROW'||SQLERRM , 2 ) ;
3102: END IF;
3103: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3104:
3105: END Update_Row;
3138: l_lock_control NUMBER := 1;
3139: l_index NUMBER;
3140: l_return_status VARCHAR2(1);
3141: --
3142: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3143: --
3144: BEGIN
3145: IF l_debug_level > 0 THEN
3146: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.INSERT_ROW' , 1 ) ;
3142: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3143: --
3144: BEGIN
3145: IF l_debug_level > 0 THEN
3146: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.INSERT_ROW' , 1 ) ;
3147: oe_debug_pub.add(' list_line_id insert:'|| p_Line_Adj_rec.list_line_id||
3148: ' ,operand insert:'||p_line_adj_rec.operand||
3149: ' ,operand pqty insert:'||p_line_adj_rec.operand_per_pqty||
3150: ' ,applied_flag insert:'||p_line_adj_rec.applied_flag||
3143: --
3144: BEGIN
3145: IF l_debug_level > 0 THEN
3146: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.INSERT_ROW' , 1 ) ;
3147: oe_debug_pub.add(' list_line_id insert:'|| p_Line_Adj_rec.list_line_id||
3148: ' ,operand insert:'||p_line_adj_rec.operand||
3149: ' ,operand pqty insert:'||p_line_adj_rec.operand_per_pqty||
3150: ' ,applied_flag insert:'||p_line_adj_rec.applied_flag||
3151: ' ,list_line_type_code:'||p_line_adj_rec.list_line_type_code||
3384: p_line_adj_id => p_line_adj_rec.price_adjustment_id,
3385: x_index => l_index,
3386: x_return_status => l_return_status);
3387: IF l_debug_level > 0 THEN
3388: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_LINE_ADJ_UTIL.INSERT_RO IS: ' || L_RETURN_STATUS ) ;
3389: oe_debug_pub.add( 'RETURNED INDEX IS: ' || L_INDEX , 1 ) ;
3390: END IF;
3391:
3392: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3385: x_index => l_index,
3386: x_return_status => l_return_status);
3387: IF l_debug_level > 0 THEN
3388: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_LINE_ADJ_UTIL.INSERT_RO IS: ' || L_RETURN_STATUS ) ;
3389: oe_debug_pub.add( 'RETURNED INDEX IS: ' || L_INDEX , 1 ) ;
3390: END IF;
3391:
3392: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3393: IF l_debug_level > 0 THEN
3390: END IF;
3391:
3392: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3393: IF l_debug_level > 0 THEN
3394: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
3395: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.INSERT_ROW' , 1 ) ;
3396: END IF;
3397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3398: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3391:
3392: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3393: IF l_debug_level > 0 THEN
3394: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
3395: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.INSERT_ROW' , 1 ) ;
3396: END IF;
3397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3398: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3399: IF l_debug_level > 0 THEN
3396: END IF;
3397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3398: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3399: IF l_debug_level > 0 THEN
3400: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_ADJ_UTIL.INSERT_ROW' ) ;
3401: oe_debug_pub.add( 'EXITINGOE_LINE_ADJ_UTIL.INSERT_ROW' , 1 ) ;
3402: END IF;
3403: RAISE FND_API.G_EXC_ERROR;
3404: END IF;
3397: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3398: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3399: IF l_debug_level > 0 THEN
3400: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_ADJ_UTIL.INSERT_ROW' ) ;
3401: oe_debug_pub.add( 'EXITINGOE_LINE_ADJ_UTIL.INSERT_ROW' , 1 ) ;
3402: END IF;
3403: RAISE FND_API.G_EXC_ERROR;
3404: END IF;
3405: END IF; /*code_release_level*/
3405: END IF; /*code_release_level*/
3406: -- notification framework end
3407:
3408: IF l_debug_level > 0 THEN
3409: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.INSERT_ROW.' , 1 ) ;
3410: END IF;
3411:
3412: EXCEPTION
3413:
3413:
3414: WHEN DUP_VAL_ON_INDEX Then
3415: Reset_Sequence;
3416: IF l_debug_level > 0 THEN
3417: oe_debug_pub.add( G_PKG_NAME||':INSER_ROW:'||SQLERRM ) ;
3418: END IF;
3419: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3420: THEN
3421: OE_MSG_PUB.Add_Exc_Msg
3429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3430:
3431: WHEN OTHERS THEN
3432: IF l_debug_level > 0 THEN
3433: oe_debug_pub.add( G_PKG_NAME||':INSER_ROW:'||SQLERRM ) ;
3434: END IF;
3435: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3436: THEN
3437: OE_MSG_PUB.Add_Exc_Msg
3465: l_new_line_adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
3466: l_index NUMBER;
3467:
3468: --
3469: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3470: --
3471: BEGIN
3472: IF l_debug_level > 0 THEN
3473: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.DELETE_ROW' ) ;
3469: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3470: --
3471: BEGIN
3472: IF l_debug_level > 0 THEN
3473: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.DELETE_ROW' ) ;
3474: END IF;
3475: IF p_line_id <> FND_API.G_MISS_NUM
3476: THEN
3477: IF l_debug_level > 0 THEN
3474: END IF;
3475: IF p_line_id <> FND_API.G_MISS_NUM
3476: THEN
3477: IF l_debug_level > 0 THEN
3478: oe_debug_pub.add( ' P_LINE_ID <> G_MISS_NUM' ) ;
3479: END IF;
3480: FOR l_adj IN price_adj LOOP
3481:
3482: --added for notification framework
3482: --added for notification framework
3483: --check code release level first. Notification framework is at Pack H level
3484: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
3485: IF l_debug_level > 0 THEN
3486: oe_debug_pub.add( 'JFC: IN DELETE ROW , PRICE_ADJUSTMENT_ID'||L_ADJ.PRICE_ADJUSTMENT_ID , 1 ) ;
3487: END IF;
3488: /* Set the operation on the record so that globals are updated as well */
3489: l_new_line_adj_rec.operation := OE_GLOBALS.G_OPR_DELETE;
3490: l_new_line_adj_rec.price_adjustment_id := l_adj.price_adjustment_id;
3493: p_line_adj_id => l_adj.price_adjustment_id,
3494: x_index => l_index,
3495: x_return_status => l_return_status);
3496: IF l_debug_level > 0 THEN
3497: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_LINE_ADJ_UTIL.DELETE_ROW IS: ' || L_RETURN_STATUS ) ;
3498: END IF;
3499:
3500: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3501: IF l_debug_level > 0 THEN
3498: END IF;
3499:
3500: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3501: IF l_debug_level > 0 THEN
3502: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
3503: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.DELETE_ROW' , 1 ) ;
3504: END IF;
3505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3506: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3499:
3500: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3501: IF l_debug_level > 0 THEN
3502: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
3503: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.DELETE_ROW' , 1 ) ;
3504: END IF;
3505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3506: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3507: IF l_debug_level > 0 THEN
3504: END IF;
3505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3506: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3507: IF l_debug_level > 0 THEN
3508: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_ADJ_UTIL.DELETE_ROW' ) ;
3509: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.DELETE_ROW' , 1 ) ;
3510: END IF;
3511: RAISE FND_API.G_EXC_ERROR;
3512: END IF;
3505: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3506: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3507: IF l_debug_level > 0 THEN
3508: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_ADJ_UTIL.DELETE_ROW' ) ;
3509: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.DELETE_ROW' , 1 ) ;
3510: END IF;
3511: RAISE FND_API.G_EXC_ERROR;
3512: END IF;
3513: END IF; /*code_release_level*/
3531: DELETE FROM OE_PRICE_ADJUSTMENTS
3532: WHERE LINE_ID = p_line_id;
3533: ELSE
3534: IF l_debug_level > 0 THEN
3535: oe_debug_pub.add( ' P_LINE_ID = G_MISS_NUM' ) ;
3536: END IF;
3537:
3538: --added for notification framework
3539: --check code release level first. Notification framework is at Pack H level
3538: --added for notification framework
3539: --check code release level first. Notification framework is at Pack H level
3540: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
3541: IF l_debug_level > 0 THEN
3542: oe_debug_pub.add( 'JFC: IN DELETE ROW , LINE_ID IS G_MISS_NUM , PRICE_ADJUSTMENT_ID'||P_PRICE_ADJUSTMENT_ID , 1 ) ;
3543: END IF;
3544: /* Set the operation on the record so that globals are updated as well */
3545: l_new_line_adj_rec.operation := OE_GLOBALS.G_OPR_DELETE;
3546: l_new_line_adj_rec.price_adjustment_id := p_price_adjustment_id;
3549: p_line_adj_id => p_price_adjustment_id,
3550: x_index => l_index,
3551: x_return_status => l_return_status);
3552: IF l_debug_level > 0 THEN
3553: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_LINE_ADJ_UTIL.DELETE_ROW IS: ' || L_RETURN_STATUS ) ;
3554: END IF;
3555: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3556: IF l_debug_level > 0 THEN
3557: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
3553: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_LINE_ADJ_UTIL.DELETE_ROW IS: ' || L_RETURN_STATUS ) ;
3554: END IF;
3555: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3556: IF l_debug_level > 0 THEN
3557: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
3558: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.DELETE_ROW' , 1 ) ;
3559: END IF;
3560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3561: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3554: END IF;
3555: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3556: IF l_debug_level > 0 THEN
3557: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
3558: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.DELETE_ROW' , 1 ) ;
3559: END IF;
3560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3561: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3562: IF l_debug_level > 0 THEN
3559: END IF;
3560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3561: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3562: IF l_debug_level > 0 THEN
3563: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_ADJ_UTIL.DELETE_ROW' ) ;
3564: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.DELETE_ROW' , 1 ) ;
3565: END IF;
3566: RAISE FND_API.G_EXC_ERROR;
3567: END IF;
3560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3561: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3562: IF l_debug_level > 0 THEN
3563: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_LINE_ADJ_UTIL.DELETE_ROW' ) ;
3564: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.DELETE_ROW' , 1 ) ;
3565: END IF;
3566: RAISE FND_API.G_EXC_ERROR;
3567: END IF;
3568: END IF; /*code_release_level*/
3592: WHERE ASSOCS.PRICE_ADJUSTMENT_ID=PARENT.PRICE_ADJUSTMENT_ID
3593: AND PARENT.PRICE_ADJUSTMENT_ID=p_price_adjustment_id
3594: AND PARENT.LIST_LINE_TYPE_CODE='PBH');
3595: IF l_debug_level > 0 THEN
3596: oe_debug_pub.add('pviprana: Deleted '|| SQL%ROWCOUNT || ' Child Lines');
3597: END IF;
3598: --bug3528335 end
3599:
3600:
3603: WHERE PRICE_ADJUSTMENT_ID = p_price_adjustment_id;
3604:
3605: END IF;
3606: IF l_debug_level > 0 THEN
3607: oe_debug_pub.add( 'LEAVING OE_LINE_ADJ_UTIL.DELETE_ROW' ) ;
3608: END IF;
3609: EXCEPTION
3610:
3611: WHEN OTHERS THEN
3609: EXCEPTION
3610:
3611: WHEN OTHERS THEN
3612: IF l_debug_level > 0 THEN
3613: oe_debug_pub.add( G_PKG_NAME||':DELETE_ROW:'||SQLERRM ) ;
3614: END IF;
3615: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3616: THEN
3617: OE_MSG_PUB.Add_Exc_Msg
4111:
4112: l_implicit_rec l_line_adj_csr%ROWTYPE;
4113: l_entity NUMBER;
4114: --
4115: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4116: --
4117: BEGIN
4118:
4119: IF
4327: EXCEPTION
4328:
4329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4330: IF l_debug_level > 0 THEN
4331: oe_debug_pub.add( G_PKG_NAME||':QUERY_ROW:'||SQLERRM ) ;
4332: END IF;
4333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4334:
4335: WHEN OTHERS THEN
4333: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4334:
4335: WHEN OTHERS THEN
4336: IF l_debug_level > 0 THEN
4337: oe_debug_pub.add( G_PKG_NAME||':QUERY_ROW:'||SQLERRM ) ;
4338: END IF;
4339: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4340: THEN
4341: OE_MSG_PUB.Add_Exc_Msg
4364: l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
4365: l_lock_control NUMBER;
4366:
4367: --
4368: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4369: --
4370: BEGIN
4371:
4372: IF l_debug_level > 0 THEN
4369: --
4370: BEGIN
4371:
4372: IF l_debug_level > 0 THEN
4373: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.LOCK_ROW' , 1 ) ;
4374: END IF;
4375:
4376: SAVEPOINT Lock_Row;
4377:
4393: WHERE price_adjustment_id = l_price_adjustment_id
4394: FOR UPDATE NOWAIT;
4395:
4396: IF l_debug_level > 0 THEN
4397: oe_debug_pub.add( 'SELECTING FOR UPDATE.' , 1 ) ;
4398: END IF;
4399:
4400: OE_Line_Adj_Util.Query_Row
4401: (p_price_adjustment_id => l_price_adjustment_id
4420: -- Row locked. If the whole record is passed, then
4421: -- Compare lock_control.
4422:
4423: IF l_debug_level > 0 THEN
4424: oe_debug_pub.add( 'COMPARE ' , 1 ) ;
4425: END IF;
4426:
4427: IF OE_GLOBALS.Equal(p_x_line_adj_rec.lock_control,
4428: l_lock_control)
4430:
4431: -- Row has not changed. Set out parameter.
4432:
4433: IF l_debug_level > 0 THEN
4434: oe_debug_pub.add( 'LOCKED ROW' , 1 ) ;
4435: END IF;
4436:
4437: -- Set return status
4438:
4442: ELSE
4443:
4444: -- Row has changed by another user.
4445: IF l_debug_level > 0 THEN
4446: oe_debug_pub.add( 'ROW CHANGED BY OTHER USER' , 1 ) ;
4447: END IF;
4448:
4449: x_return_status := FND_API.G_RET_STS_ERROR;
4450: p_x_line_adj_rec.return_status := FND_API.G_RET_STS_ERROR;
4526: l_Line_Adj_tbl OE_Order_PUB.Line_Adj_Tbl_Type;
4527: l_lock_control NUMBER;
4528:
4529: --
4530: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4531: --
4532: BEGIN
4533:
4534: IF l_debug_level > 0 THEN
4531: --
4532: BEGIN
4533:
4534: IF l_debug_level > 0 THEN
4535: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.LOCK_ROWS.' , 1 ) ;
4536: END IF;
4537:
4538: IF (p_price_adjustment_id IS NOT NULL AND
4539: p_price_adjustment_id <> FND_API.G_MISS_NUM) AND
4619: );
4620: END IF;
4621:
4622: IF l_debug_level > 0 THEN
4623: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.LOCK_ROWS.' , 1 ) ;
4624: END IF;
4625:
4626: END Lock_Rows;
4627:
4910: l_ordered_quantity NUMBER;
4911: l_sign NUMBER;
4912: l_pricing_quantity NUMBER;
4913: --
4914: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4915: --
4916: Begin
4917: IF l_debug_level > 0 THEN
4918: oe_debug_pub.add( 'ENTERING PROCEDURE PRORATE_LUMPSUM' ) ;
4914: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4915: --
4916: Begin
4917: IF l_debug_level > 0 THEN
4918: oe_debug_pub.add( 'ENTERING PROCEDURE PRORATE_LUMPSUM' ) ;
4919: END IF;
4920:
4921: If px_line_adj_rec.operand = 0 or px_line_adj_rec.operand is null Then
4922: IF l_debug_level > 0 THEN
4919: END IF;
4920:
4921: If px_line_adj_rec.operand = 0 or px_line_adj_rec.operand is null Then
4922: IF l_debug_level > 0 THEN
4923: oe_debug_pub.add( ' NOTHING TO PRORATE , OPERAND IS 0' ) ;
4924: END IF;
4925: x_copy_from_line_adj_rec.operation := OE_GLOBALS.G_OPR_NONE;
4926: Return;
4927: End If;
4943: abs(l_ordered_quantity * px_line_adj_rec.adjusted_amount/ px_line_adj_rec.operand),20))
4944: <> 0
4945: THEN
4946: IF l_debug_level > 0 THEN
4947: oe_debug_pub.add( 'OPERAND'||PX_LINE_ADJ_REC.OPERAND ||'<>'||L_ORDERED_QUANTITY||'*'||PX_LINE_ADJ_REC.ADJUSTED_AMOUNT ) ;
4948: END IF;
4949:
4950: x_copy_from_line_adj_rec := px_line_adj_rec;
4951: x_copy_from_line_adj_rec.operation := oe_globals.g_opr_update;
4959: x_copy_from_line_adj_rec.operand_per_pqty:=nvl(x_copy_from_line_adj_rec.operand_per_pqty,
4960: x_copy_from_line_adj_rec.operand);
4961:
4962: IF l_debug_level > 0 THEN
4963: oe_debug_pub.add( ' PRORATED ADJUSTED_AMOUNT_PER_PQTY:'||X_COPY_FROM_LINE_ADJ_REC.ADJUSTED_AMOUNT_PER_PQTY ) ;
4964: oe_debug_pub.add( ' PRORATED ADJUSTED_AMOUNT:'||X_COPY_FROM_LINE_ADJ_REC.ADJUSTED_AMOUNT ) ;
4965: END IF;
4966:
4967: ELSE
4960: x_copy_from_line_adj_rec.operand);
4961:
4962: IF l_debug_level > 0 THEN
4963: oe_debug_pub.add( ' PRORATED ADJUSTED_AMOUNT_PER_PQTY:'||X_COPY_FROM_LINE_ADJ_REC.ADJUSTED_AMOUNT_PER_PQTY ) ;
4964: oe_debug_pub.add( ' PRORATED ADJUSTED_AMOUNT:'||X_COPY_FROM_LINE_ADJ_REC.ADJUSTED_AMOUNT ) ;
4965: END IF;
4966:
4967: ELSE
4968: x_copy_from_line_adj_rec.operation := OE_GLOBALS.G_OPR_NONE;
4988:
4989: END IF;
4990:
4991: IF l_debug_level > 0 THEN
4992: oe_debug_pub.add( 'LEAVING PROCEDURE PRORATE_LUMPSUM' ) ;
4993: END IF;
4994: EXCEPTION
4995:
4996: WHEN OTHERS THEN
5002: , 'Update_Row'
5003: );
5004: END IF;
5005: IF l_debug_level > 0 THEN
5006: oe_debug_pub.add( 'EXCEPTION IN PRORATE_LUMPSUM'||SQLERRM , 2 ) ;
5007: END IF;
5008: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5009:
5010: End Prorate_Lumpsum;
5033: l_pbh_tbl Pbh_Tbl_Type;
5034: cnt Pls_Integer:=0;
5035: l_copy_from_line_adj_rec OE_Order_pub.Line_Adj_Rec_Type;
5036: --
5037: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5038: --
5039: l_from_line_category VARCHAR2(100);
5040: --RT{
5041: l_ulp NUMBER;
5052: l_prg_exist VARCHAR2(1) := 'N'; --bug 16317238
5053: begin
5054:
5055: IF l_debug_level > 0 THEN
5056: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.APPEND_ADJUSTMENT_LINES' , 1 ) ;
5057: oe_debug_pub.add(' operation:'|| p_operation);
5058: END IF;
5059:
5060:
5053: begin
5054:
5055: IF l_debug_level > 0 THEN
5056: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.APPEND_ADJUSTMENT_LINES' , 1 ) ;
5057: oe_debug_pub.add(' operation:'|| p_operation);
5058: END IF;
5059:
5060:
5061: -- Manish Changes
5086: , p_phase_change_flag => OE_ORDER_COPY_UTIL.G_LN_PHASE_CHANGE_FLAG
5087: , x_Line_Adj_Tbl => l_Line_Adj_Tbl);
5088:
5089: If l_debug_level > 0 Then
5090: oe_debug_pub.add(' input line id to retro api:'||p_line_id||' output line id:'|| l_line_id);
5091: oe_debug_pub.add(' l_line_adj_tbl.count from versioning:'|| l_Line_Adj_Tbl.count);
5092: End If;
5093:
5094: ELSE
5087: , x_Line_Adj_Tbl => l_Line_Adj_Tbl);
5088:
5089: If l_debug_level > 0 Then
5090: oe_debug_pub.add(' input line id to retro api:'||p_line_id||' output line id:'|| l_line_id);
5091: oe_debug_pub.add(' l_line_adj_tbl.count from versioning:'|| l_Line_Adj_Tbl.count);
5092: End If;
5093:
5094: ELSE
5095: oe_debug_pub.add('pre 11510, using old query row');
5091: oe_debug_pub.add(' l_line_adj_tbl.count from versioning:'|| l_Line_Adj_Tbl.count);
5092: End If;
5093:
5094: ELSE
5095: oe_debug_pub.add('pre 11510, using old query row');
5096: OE_Line_Adj_Util.Query_Rows(p_Line_Id => p_line_id
5097: , x_Line_Adj_Tbl => l_Line_Adj_Tbl);
5098: END IF;
5099:
5115: , p_phase_change_flag => OE_ORDER_COPY_UTIL.G_LN_PHASE_CHANGE_FLAG
5116: , x_Line_Adj_Tbl => l_Line_Adj_Tbl);
5117:
5118: If l_debug_level > 0 Then
5119: oe_debug_pub.add(' input Header id to retro api:'||p_header_id||' output Header id:'|| l_header_id);
5120: oe_debug_pub.add(' l_line_adj_tbl.count from versioning:'|| l_Line_Adj_Tbl.count);
5121: End If;
5122:
5123: ELSE
5116: , x_Line_Adj_Tbl => l_Line_Adj_Tbl);
5117:
5118: If l_debug_level > 0 Then
5119: oe_debug_pub.add(' input Header id to retro api:'||p_header_id||' output Header id:'|| l_header_id);
5120: oe_debug_pub.add(' l_line_adj_tbl.count from versioning:'|| l_Line_Adj_Tbl.count);
5121: End If;
5122:
5123: ELSE
5124: OE_Line_Adj_Util.Query_Rows(p_header_Id => p_header_id
5138: Else
5139:
5140: /* Modified IF condition to process only Line Level Freight Charges for Bug # 1559906 */
5141: -- bug 1937110, added type 'IUE'.
5142: oe_debug_pub.add('Retro:list line type code:'||l_Line_Adj_Tbl(i).list_line_type_code);
5143:
5144: --RT{
5145: IF NOT(nvl(p_mode,'xx-') = 'RETROBILL' and l_Line_Adj_Tbl(i).list_line_type_code = 'FREIGHT_CHARGE') AND
5146: NOT (l_has_retrobilled_before = 'Y' and l_line_adj_tbl(i).retrobill_request_id IS NULL)
5151: --RT}
5152: --bug 16317238 checking if PRG needs to be copied only applicable if get item is service
5153: IF p_line_id is not NULL AND p_line_id <> fnd_api.g_miss_num AND l_Line_Adj_Tbl(i).list_line_type_code = 'PRG' THEN
5154: BEGIN
5155: oe_debug_pub.ADD('p_line_id :'||p_line_id,1);
5156:
5157: SELECT 'Y'
5158: INTO l_prg_exist
5159: FROM oe_price_adjustments prg, oe_order_lines_all l,
5167: AND ROWNUM <2;
5168:
5169: EXCEPTION
5170: WHEN NO_DATA_FOUND THEN
5171: oe_debug_pub.ADD('prg does not exist',1);
5172: l_prg_exist := 'N';
5173: END;
5174: END IF;
5175: --end bug 16317238
5190: (NVL(l_Line_Adj_Tbl(i).include_on_returns_flag,'N') <> 'Y' OR
5191: NVL(l_Line_Adj_Tbl(i).applied_flag,'N') = 'N' )) OR
5192: (p_split_by = 'SYSTEM' and l_charges_for_backorders = 'N' and
5193: l_line_adj_tbl(i).arithmetic_operator = 'LUMPSUM')) then
5194: oe_debug_pub.add('No Charges are Copied');
5195: Null;
5196: Else
5197:
5198: -- prorate lumpsum
5199: IF (l_line_adj_tbl(i).modifier_level_code='LINE'
5200: and l_line_adj_tbl(i).arithmetic_operator = 'LUMPSUM')
5201: THEN
5202: IF l_debug_level > 0 THEN
5203: oe_debug_pub.add( ' P_HEADER_ID:'||P_HEADER_ID|| 'P_TO_HEADER_ID:'||P_TO_HEADER_ID ) ;
5204: oe_debug_pub.add( ' P_SPLIT_BY:'||P_SPLIT_BY ) ;
5205: END IF;
5206: --BTEA
5207: --Only when split we need to do this.
5200: and l_line_adj_tbl(i).arithmetic_operator = 'LUMPSUM')
5201: THEN
5202: IF l_debug_level > 0 THEN
5203: oe_debug_pub.add( ' P_HEADER_ID:'||P_HEADER_ID|| 'P_TO_HEADER_ID:'||P_TO_HEADER_ID ) ;
5204: oe_debug_pub.add( ' P_SPLIT_BY:'||P_SPLIT_BY ) ;
5205: END IF;
5206: --BTEA
5207: --Only when split we need to do this.
5208: --during split we will have same to_ and from_ header_id
5219:
5220: IF l_copy_from_line_adj_rec.operation
5221: = OE_GLOBALS.G_OPR_UPDATE THEN
5222: IF l_debug_level > 0 THEN
5223: oe_debug_pub.add( ' UPDATING OPERAND FOR LINE ID:'||L_COPY_FROM_LINE_ADJ_REC.LINE_ID ) ;
5224: END IF;
5225: px_line_adj_tbl(px_line_adj_tbl.count+1)
5226: := l_copy_from_line_adj_rec;
5227: END IF;
5250: IF l_Line_Adj_Tbl(i).arithmetic_operator = '%' THEN
5251: open get_ulp(p_key_line_id);
5252: fetch get_ulp INTO l_ulp;
5253: close get_ulp;
5254: oe_debug_pub.add('pviprana: l_ulp :' || l_ulp);
5255: --bug3392650 ( Changed the condition l_Line_Adj_Tbl(i).adjusted_amount < 0)
5256: IF (l_Line_Adj_Tbl(i).list_line_type_code = 'DIS') THEN
5257: l_sign := -1;
5258: ELSE
5258: ELSE
5259: l_sign := 1;
5260: END IF;
5261: --bug3392650 Calculating adjusted amount only if l_ulp is not null
5262: oe_debug_pub.add('pviprana: adjusted amt'||l_Line_Adj_Tbl(i).adjusted_amount);
5263: IF(l_ulp IS NOT NULL ) THEN
5264: l_Line_Adj_Tbl(i).adjusted_amount:= (l_Line_Adj_Tbl(i).operand/100) * l_ulp *l_sign;
5265: END IF;
5266: oe_debug_pub.add('Converting Order level to line, unit list price:'|| l_ulp);
5262: oe_debug_pub.add('pviprana: adjusted amt'||l_Line_Adj_Tbl(i).adjusted_amount);
5263: IF(l_ulp IS NOT NULL ) THEN
5264: l_Line_Adj_Tbl(i).adjusted_amount:= (l_Line_Adj_Tbl(i).operand/100) * l_ulp *l_sign;
5265: END IF;
5266: oe_debug_pub.add('Converting Order level to line, unit list price:'|| l_ulp);
5267: oe_debug_pub.add('Adjusted amount:'||l_Line_Adj_Tbl(i).adjusted_amount);
5268: END IF;
5269: --RT}
5270: END IF;
5263: IF(l_ulp IS NOT NULL ) THEN
5264: l_Line_Adj_Tbl(i).adjusted_amount:= (l_Line_Adj_Tbl(i).operand/100) * l_ulp *l_sign;
5265: END IF;
5266: oe_debug_pub.add('Converting Order level to line, unit list price:'|| l_ulp);
5267: oe_debug_pub.add('Adjusted amount:'||l_Line_Adj_Tbl(i).adjusted_amount);
5268: END IF;
5269: --RT}
5270: END IF;
5271:
5284: select line_category_code into l_from_line_category
5285: from oe_order_lines_all
5286: where line_id = p_line_id ;
5287:
5288: oe_debug_pub.add('p_line_category_code :'||p_line_category_code);
5289: oe_debug_pub.add('l_from_line_category :'||l_from_line_category);
5290: oe_debug_pub.add('l_Line_Adj_Tbl(i).credit_or_charge_flag :'||l_Line_Adj_Tbl(i).credit_or_charge_flag);
5291:
5292: --Added for bug 7328969 End
5285: from oe_order_lines_all
5286: where line_id = p_line_id ;
5287:
5288: oe_debug_pub.add('p_line_category_code :'||p_line_category_code);
5289: oe_debug_pub.add('l_from_line_category :'||l_from_line_category);
5290: oe_debug_pub.add('l_Line_Adj_Tbl(i).credit_or_charge_flag :'||l_Line_Adj_Tbl(i).credit_or_charge_flag);
5291:
5292: --Added for bug 7328969 End
5293: */
5286: where line_id = p_line_id ;
5287:
5288: oe_debug_pub.add('p_line_category_code :'||p_line_category_code);
5289: oe_debug_pub.add('l_from_line_category :'||l_from_line_category);
5290: oe_debug_pub.add('l_Line_Adj_Tbl(i).credit_or_charge_flag :'||l_Line_Adj_Tbl(i).credit_or_charge_flag);
5291:
5292: --Added for bug 7328969 End
5293: */
5294: -- Commented for 7683779 End
5300: from oe_order_lines_all
5301: where line_id = p_line_id ;
5302:
5303: IF l_debug_level > 0 THEN
5304: oe_debug_pub.add('p_line_category_code :'||p_line_category_code);
5305: oe_debug_pub.add('l_from_line_category :'||l_from_line_category);
5306: oe_debug_pub.add('l_Line_Adj_Tbl(i).credit_or_charge_flag :'||l_Line_Adj_Tbl(i).credit_or_charge_flag);
5307: END IF;
5308:
5301: where line_id = p_line_id ;
5302:
5303: IF l_debug_level > 0 THEN
5304: oe_debug_pub.add('p_line_category_code :'||p_line_category_code);
5305: oe_debug_pub.add('l_from_line_category :'||l_from_line_category);
5306: oe_debug_pub.add('l_Line_Adj_Tbl(i).credit_or_charge_flag :'||l_Line_Adj_Tbl(i).credit_or_charge_flag);
5307: END IF;
5308:
5309: --Added for bug 7683779 End
5302:
5303: IF l_debug_level > 0 THEN
5304: oe_debug_pub.add('p_line_category_code :'||p_line_category_code);
5305: oe_debug_pub.add('l_from_line_category :'||l_from_line_category);
5306: oe_debug_pub.add('l_Line_Adj_Tbl(i).credit_or_charge_flag :'||l_Line_Adj_Tbl(i).credit_or_charge_flag);
5307: END IF;
5308:
5309: --Added for bug 7683779 End
5310:
5320: ELSE
5321: l_Line_Adj_Tbl(i).credit_or_charge_flag := 'C';
5322: END IF;
5323:
5324: oe_debug_pub.add('l_Line_Adj_Tbl(i).credit_or_charge_flag :'||l_Line_Adj_Tbl(i).credit_or_charge_flag);
5325:
5326: l_Line_Adj_Tbl(i).updated_flag := 'Y';
5327: l_Line_Adj_Tbl(i).change_reason_code := 'MISC';
5328: l_Line_Adj_Tbl(i).change_reason_text := 'Reversing Credit';
5385: while I is not null loop
5386: IF (px_line_adj_tbl(i).operation = OE_GLOBALS.G_OPR_CREATE) THEN
5387: px_line_adj_tbl(i).price_adjustment_id:=fnd_api.g_miss_num;
5388: --RT{
5389: oe_debug_pub.add('operand:'||px_line_adj_tbl(i).operand);
5390: oe_debug_pub.add('operand per pqty:'||px_line_adj_tbl(i).operand_per_pqty);
5391: oe_debug_pub.add('Retro:p_mode:'||p_mode);
5392: IF nvl(p_mode,'NULLMODE') = 'RETROBILL' THEN
5393: IF px_line_adj_tbl(i).retrobill_request_id IS NOT NULL
5386: IF (px_line_adj_tbl(i).operation = OE_GLOBALS.G_OPR_CREATE) THEN
5387: px_line_adj_tbl(i).price_adjustment_id:=fnd_api.g_miss_num;
5388: --RT{
5389: oe_debug_pub.add('operand:'||px_line_adj_tbl(i).operand);
5390: oe_debug_pub.add('operand per pqty:'||px_line_adj_tbl(i).operand_per_pqty);
5391: oe_debug_pub.add('Retro:p_mode:'||p_mode);
5392: IF nvl(p_mode,'NULLMODE') = 'RETROBILL' THEN
5393: IF px_line_adj_tbl(i).retrobill_request_id IS NOT NULL
5394: and px_line_adj_tbl(i).applied_flag = 'N' THEN
5387: px_line_adj_tbl(i).price_adjustment_id:=fnd_api.g_miss_num;
5388: --RT{
5389: oe_debug_pub.add('operand:'||px_line_adj_tbl(i).operand);
5390: oe_debug_pub.add('operand per pqty:'||px_line_adj_tbl(i).operand_per_pqty);
5391: oe_debug_pub.add('Retro:p_mode:'||p_mode);
5392: IF nvl(p_mode,'NULLMODE') = 'RETROBILL' THEN
5393: IF px_line_adj_tbl(i).retrobill_request_id IS NOT NULL
5394: and px_line_adj_tbl(i).applied_flag = 'N' THEN
5395: --applied flag needs to remain 'Y'. Becomes 'N' only after
5400: --replace with new retrobill request id.
5401: px_line_adj_tbl(i).retrobill_request_id:= p_retrobill_request_id;
5402:
5403: --px_line_adj_tbl(i).applied_flag:='N';
5404: oe_debug_pub.add('RETRO:ADJ:Copied list line id:'|| px_line_adj_tbl(i).list_line_id);
5405: oe_debug_pub.add('RETRO:ADJ:Operand:'|| px_line_adj_tbl(i).operand);
5406: oe_debug_pub.add('RETRO:ADJ:Operand pqty:'||px_line_adj_tbl(i).operand_per_pqty);
5407: END IF;
5408: --RT}
5401: px_line_adj_tbl(i).retrobill_request_id:= p_retrobill_request_id;
5402:
5403: --px_line_adj_tbl(i).applied_flag:='N';
5404: oe_debug_pub.add('RETRO:ADJ:Copied list line id:'|| px_line_adj_tbl(i).list_line_id);
5405: oe_debug_pub.add('RETRO:ADJ:Operand:'|| px_line_adj_tbl(i).operand);
5406: oe_debug_pub.add('RETRO:ADJ:Operand pqty:'||px_line_adj_tbl(i).operand_per_pqty);
5407: END IF;
5408: --RT}
5409: END IF;
5402:
5403: --px_line_adj_tbl(i).applied_flag:='N';
5404: oe_debug_pub.add('RETRO:ADJ:Copied list line id:'|| px_line_adj_tbl(i).list_line_id);
5405: oe_debug_pub.add('RETRO:ADJ:Operand:'|| px_line_adj_tbl(i).operand);
5406: oe_debug_pub.add('RETRO:ADJ:Operand pqty:'||px_line_adj_tbl(i).operand_per_pqty);
5407: END IF;
5408: --RT}
5409: END IF;
5410: I:=px_line_adj_tbl.next(I);
5411: end loop;
5412: END IF;
5413:
5414: IF l_debug_level > 0 THEN
5415: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.APPEND_ADJUSTMENT_LINES' , 1 ) ;
5416: END IF;
5417:
5418: end Append_Adjustment_Lines;
5419:
5461: l_x_Header_Payment_tbl OE_Order_PUB.Header_Payment_Tbl_Type;
5462: l_x_Line_Payment_tbl OE_Order_PUB.Line_Payment_Tbl_Type;
5463: --serla end
5464: --
5465: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5466: --
5467: begin
5468: IF l_debug_level > 0 THEN
5469: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.COPY_ADJUSTMENT_LINES' , 1 ) ;
5465: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5466: --
5467: begin
5468: IF l_debug_level > 0 THEN
5469: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.COPY_ADJUSTMENT_LINES' , 1 ) ;
5470: oe_debug_pub.add( 'SPLIT BY:'||P_SPLIT_BY ) ;
5471: END IF;
5472: -- Set the existing rows to delete
5473: Append_Adjustment_Lines(
5466: --
5467: begin
5468: IF l_debug_level > 0 THEN
5469: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.COPY_ADJUSTMENT_LINES' , 1 ) ;
5470: oe_debug_pub.add( 'SPLIT BY:'||P_SPLIT_BY ) ;
5471: END IF;
5472: -- Set the existing rows to delete
5473: Append_Adjustment_Lines(
5474: p_line_id => p_to_line_id
5498: END IF;
5499: --RT}
5500: -- Append Header level adjustments only if the order is different
5501: /* Modified the following if condition to fix the bug 2170086 */
5502: oe_debug_pub.add('pviprana: p_from_header_id'||p_from_header_id);
5503: oe_debug_pub.add('pviprana: p_to_header_id'||p_to_header_id);
5504: oe_debug_pub.add('pviprana: p_from_line_id'||p_from_line_id);
5505: oe_debug_pub.add('pviprana: p_to_line_id'||p_to_line_id);
5506: If p_from_Header_id <> p_to_Header_id and
5499: --RT}
5500: -- Append Header level adjustments only if the order is different
5501: /* Modified the following if condition to fix the bug 2170086 */
5502: oe_debug_pub.add('pviprana: p_from_header_id'||p_from_header_id);
5503: oe_debug_pub.add('pviprana: p_to_header_id'||p_to_header_id);
5504: oe_debug_pub.add('pviprana: p_from_line_id'||p_from_line_id);
5505: oe_debug_pub.add('pviprana: p_to_line_id'||p_to_line_id);
5506: If p_from_Header_id <> p_to_Header_id and
5507: OE_ORDER_COPY_UTIL.G_ORDER_LEVEL_COPY = 0 then
5500: -- Append Header level adjustments only if the order is different
5501: /* Modified the following if condition to fix the bug 2170086 */
5502: oe_debug_pub.add('pviprana: p_from_header_id'||p_from_header_id);
5503: oe_debug_pub.add('pviprana: p_to_header_id'||p_to_header_id);
5504: oe_debug_pub.add('pviprana: p_from_line_id'||p_from_line_id);
5505: oe_debug_pub.add('pviprana: p_to_line_id'||p_to_line_id);
5506: If p_from_Header_id <> p_to_Header_id and
5507: OE_ORDER_COPY_UTIL.G_ORDER_LEVEL_COPY = 0 then
5508: --bug3392650 passing an extra parameter p_key_line_id if the mode is 'RETROBILL' so that l_ulp is obtained properly in
5501: /* Modified the following if condition to fix the bug 2170086 */
5502: oe_debug_pub.add('pviprana: p_from_header_id'||p_from_header_id);
5503: oe_debug_pub.add('pviprana: p_to_header_id'||p_to_header_id);
5504: oe_debug_pub.add('pviprana: p_from_line_id'||p_from_line_id);
5505: oe_debug_pub.add('pviprana: p_to_line_id'||p_to_line_id);
5506: If p_from_Header_id <> p_to_Header_id and
5507: OE_ORDER_COPY_UTIL.G_ORDER_LEVEL_COPY = 0 then
5508: --bug3392650 passing an extra parameter p_key_line_id if the mode is 'RETROBILL' so that l_ulp is obtained properly in
5509: --append_adjustment_lines when the order level modifier is being converted to line level.
5559:
5560: -- Call OE_Order_PVT.Process_order
5561:
5562: IF l_debug_level > 0 THEN
5563: oe_debug_pub.add( 'BEFORE OE_ORDER_PVT.PROCESS_ORDER'||L_LINE_ADJ_TBL.COUNT , 1 ) ;
5564: END IF ;
5565:
5566: OE_Globals.G_PRICING_RECURSION := 'Y';
5567:
5609: RAISE FND_API.G_EXC_ERROR;
5610: END IF;
5611:
5612: IF l_debug_level > 0 THEN
5613: oe_debug_pub.add( 'EXITING OE_LINE_ADJ_UTIL.COPY_ADJUSTMENT_LINES' , 1 ) ;
5614: END IF;
5615:
5616: Exception
5617: WHEN FND_API.G_EXC_ERROR THEN
5620: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5621:
5622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5623: IF l_debug_level > 0 THEN
5624: oe_debug_pub.add( G_PKG_NAME||':COPY_ADJUSTMENT_LINES:'||SQLERRM ) ;
5625: END IF;
5626:
5627: end copy_adjustment_lines;
5628:
5632: p_old_line_adj_rec IN OE_ORDER_PUB.line_adj_rec_type := OE_ORDER_PUB.G_MISS_LINE_ADJ_REC) IS
5633: /*local */
5634: l_return_status varchar2(30);
5635: --
5636: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5637: --
5638: l_org_id NUMBER(15):=MO_GLOBAL.Get_Current_Org_Id; --TaxER
5639: l_current_event number := 0; --TaxER
5640: l_tax_calculation_event_code number := 0; --TaxER
5654: OE_GLOBALS.G_REASON_COMMENTS := p_x_line_adj_rec.change_reason_text;
5655: OE_GLOBALS.G_CAPTURED_REASON := 'Y';*/
5656: ELSE
5657: if l_debug_level > 0 then
5658: OE_DEBUG_PUB.add('Reason code for versioning is missing or invalid', 1);
5659: end if;
5660: --bug 3775971
5661: if OE_GLOBALS.G_UI_FLAG AND
5662: (OE_GLOBALS.G_PRICING_RECURSION = 'Y' OR
5666: END IF;
5667: END IF;
5668:
5669: --log delayed request
5670: oe_debug_pub.add('log versioning request',1);
5671: OE_Delayed_Requests_Pvt.Log_Request(p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
5672: p_entity_id => p_x_line_adj_rec.header_id,
5673: p_requesting_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
5674: p_requesting_entity_id => p_x_line_adj_rec.price_adjustment_id,
5681: IF OE_GLOBALS.G_AUDIT_REASON_RQD_FLAG = 'Y' OR
5682: OE_GLOBALS.G_AUDIT_HISTORY_RQD_FLAG = 'Y' THEN
5683:
5684: IF l_debug_level > 0 THEN
5685: oe_debug_pub.add( 'CALL TO RECORD LINE PRICE ADJ HISTORY' , 5 ) ;
5686: END IF;
5687: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510' THEN
5688: OE_Versioning_Util.Capture_Audit_Info(p_entity_code => OE_GLOBALS.G_ENTITY_LINE_ADJ,
5689: p_entity_id => p_x_line_adj_rec.price_adjustment_id,
5748: WHEN NO_DATA_FOUND THEN
5749: l_tax_calculation_event_code := 0;
5750: WHEN OTHERS THEN
5751: IF l_debug_level > 0 THEN
5752: oe_debug_pub.add('OEXULADB:Failed while trying to query up tax_calcualtion_event for order_type_id ');
5753: END IF;
5754:
5755: RAISE;
5756: END;
5776: l_current_event := l_tax_calculation_event_code;
5777: END IF;
5778:
5779: IF l_debug_level > 0 THEN
5780: oe_debug_pub.add('OEXULADB:Tax Event Code :'||l_tax_calculation_event_code);
5781: oe_debug_pub.add('OEXULADB:Current Event :'||l_current_event);
5782: END IF;
5783:
5784: IF l_current_event >= l_tax_calculation_event_code THEN
5777: END IF;
5778:
5779: IF l_debug_level > 0 THEN
5780: oe_debug_pub.add('OEXULADB:Tax Event Code :'||l_tax_calculation_event_code);
5781: oe_debug_pub.add('OEXULADB:Current Event :'||l_current_event);
5782: END IF;
5783:
5784: IF l_current_event >= l_tax_calculation_event_code THEN
5785:
5809: --TaxER end
5810:
5811: IF l_return_status <> FND_API.G_RET_STS_SUCCESS then
5812: IF l_debug_level > 0 THEN
5813: oe_debug_pub.add( 'INSERT INTO LINE PRICE ADJUSTMENTS AUDIT HISTORY CAUSED ERROR' , 1 ) ;
5814: END IF;
5815: IF l_return_status = FND_API.G_RET_STS_ERROR then
5816: raise FND_API.G_EXC_ERROR;
5817: ELSE
5824: /* End AuditTrail */
5825:
5826: Function Is_Pricing_Related_Change(p_new_line_rec In Oe_Order_Pub.Line_Rec_Type,
5827: p_old_line_rec In Oe_Order_Pub.Line_Rec_Type) Return Boolean As
5828: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5829: Begin
5830:
5831: IF l_debug_level > 0 THEN
5832: oe_debug_pub.add( ' Check if any pricing related changes has occured' ) ;
5828: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5829: Begin
5830:
5831: IF l_debug_level > 0 THEN
5832: oe_debug_pub.add( ' Check if any pricing related changes has occured' ) ;
5833: END IF;
5834:
5835: IF NOT OE_GLOBALS.Equal(p_new_line_rec.agreement_id,p_old_line_rec.agreement_id)
5836: OR NOT OE_GLOBALS.Equal(p_new_line_rec.cust_po_number,p_old_line_rec.cust_po_number)
5878: --Bug 4332307
5879:
5880: Then
5881: IF l_debug_level > 0 THEN
5882: oe_debug_pub.add( ' PRICING RELATED FIELDS HAS CHANGED' ) ;
5883: END IF;
5884: Return True;
5885:
5886: Else
5884: Return True;
5885:
5886: Else
5887: IF l_debug_level > 0 THEN
5888: oe_debug_pub.add( ' NO pricing related Fields Has Changed' ) ;
5889: END IF;
5890: Return False;
5891: End If;
5892:
5927: l_delete_prg varchar2(1);
5928: l_dummy NUMBER;
5929: l_rltd_price_adj_id NUMBER;
5930: --
5931: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5932: --
5933: l_reason_code VARCHAR2(30);
5934: l_reason_comments VARCHAR2(2000);
5935: l_captured_reason varchar2(1);
5935: l_captured_reason varchar2(1);
5936:
5937: Begin
5938: IF l_debug_level > 0 THEN
5939: oe_debug_pub.add( 'ENTERING OEXULADB.DELETE_PRG_LINES WITH LINE_ID = ' || P_LINE_ID ) ;
5940: END IF;
5941: if l_debug_level > 0 then
5942: oe_debug_pub.add('reason:'||OE_GLOBALS.G_REASON_CODE,3);
5943: oe_debug_pub.add('captured:'||OE_GLOBALS.G_captured_reason,3);
5938: IF l_debug_level > 0 THEN
5939: oe_debug_pub.add( 'ENTERING OEXULADB.DELETE_PRG_LINES WITH LINE_ID = ' || P_LINE_ID ) ;
5940: END IF;
5941: if l_debug_level > 0 then
5942: oe_debug_pub.add('reason:'||OE_GLOBALS.G_REASON_CODE,3);
5943: oe_debug_pub.add('captured:'||OE_GLOBALS.G_captured_reason,3);
5944: oe_debug_pub.add('audit:'||OE_GLOBALS.G_version_audit,3);
5945: end if;
5946: l_reason_code := OE_GLOBALS.G_REASON_CODE;
5939: oe_debug_pub.add( 'ENTERING OEXULADB.DELETE_PRG_LINES WITH LINE_ID = ' || P_LINE_ID ) ;
5940: END IF;
5941: if l_debug_level > 0 then
5942: oe_debug_pub.add('reason:'||OE_GLOBALS.G_REASON_CODE,3);
5943: oe_debug_pub.add('captured:'||OE_GLOBALS.G_captured_reason,3);
5944: oe_debug_pub.add('audit:'||OE_GLOBALS.G_version_audit,3);
5945: end if;
5946: l_reason_code := OE_GLOBALS.G_REASON_CODE;
5947: l_reason_comments := OE_GLOBALS.G_REASON_COMMENTS;
5940: END IF;
5941: if l_debug_level > 0 then
5942: oe_debug_pub.add('reason:'||OE_GLOBALS.G_REASON_CODE,3);
5943: oe_debug_pub.add('captured:'||OE_GLOBALS.G_captured_reason,3);
5944: oe_debug_pub.add('audit:'||OE_GLOBALS.G_version_audit,3);
5945: end if;
5946: l_reason_code := OE_GLOBALS.G_REASON_CODE;
5947: l_reason_comments := OE_GLOBALS.G_REASON_COMMENTS;
5948: l_captured_reason := OE_GLOBALS.G_CAPTURED_REASON;
5949: OPEN prg_lines;
5950: FETCH prg_lines into l_prg_line_id, l_rltd_price_adj_id;
5951: WHILE prg_lines%FOUND Loop
5952: IF l_debug_level > 0 THEN
5953: oe_debug_pub.add( 'PRG LINE ID = ' || L_PRG_LINE_ID ) ;
5954: END IF;
5955: OE_LINE_UTIL.QUERY_ROW(p_line_id => l_prg_line_id,
5956: x_line_rec => l_line_rec);
5957:
5959:
5960: if (l_line_rec.booked_flag <> 'Y') Then
5961:
5962: IF l_debug_level > 0 THEN
5963: oe_debug_pub.add( 'ORDER NOT BOOKED' ) ;
5964: END IF;
5965: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
5966:
5967: else
5966:
5967: else
5968: if (l_line_rec.shipped_quantity is NULL) Then
5969: IF l_debug_level > 0 THEN
5970: oe_debug_pub.add( 'BOOKED ORDER , LINE NOT SHIPPED' ) ;
5971: END IF;
5972: if (p_operation = OE_GLOBALS.G_OPR_DELETE) Then
5973: -- bug 2756288, if buy line can be deleted, so can get line
5974: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
5978: l_line_rec.pricing_quantity := 0;
5979: end if;
5980: else
5981: IF l_debug_level > 0 THEN
5982: oe_debug_pub.add( 'BOOKED ORDER , SHIPPED LINE' ) ;
5983: END IF;
5984: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
5985: l_line_rec.calculate_price_flag := 'Y';
5986: end if;
5991: for i in prg_adjs LOOP
5992: -- Delete PRG adjustment record and the association
5993: -- between the buy line and the get line
5994: IF l_debug_level > 0 THEN
5995: oe_debug_pub.add( 'PRICE ADJ ID = ' || I.PRICE_ADJUSTMENT_ID ) ;
5996: END IF;
5997: OE_LINE_ADJ_UTIL.DELETE_ROW(p_price_adjustment_id => i.price_adjustment_id);
5998:
5999: DELETE FROM OE_PRICE_ADJ_ASSOCS WHERE PRICE_ADJUSTMENT_ID = i.price_adjustment_id;
6006: WHEN NO_DATA_FOUND THEN
6007: l_delete_prg := 'Y';
6008: END;
6009: IF l_debug_level > 0 THEN
6010: oe_debug_pub.add( 'ASSOC ID:'||L_DUMMY ) ;
6011: END IF;
6012:
6013: IF (l_delete_prg = 'Y') THEN
6014: -- Call Process Order
6036: FETCH prg_lines into l_prg_line_id, l_rltd_price_adj_id;
6037: End Loop;
6038: CLOSE prg_lines;
6039: if l_debug_level > 0 then
6040: oe_debug_pub.add('reason:'||OE_GLOBALS.G_REASON_CODE,3);
6041: oe_debug_pub.add('captured:'||OE_GLOBALS.G_captured_reason,3);
6042: oe_debug_pub.add('audit:'||OE_GLOBALS.G_version_audit,3);
6043: end if;
6044: OE_GLOBALS.G_REASON_CODE := l_reason_code;
6037: End Loop;
6038: CLOSE prg_lines;
6039: if l_debug_level > 0 then
6040: oe_debug_pub.add('reason:'||OE_GLOBALS.G_REASON_CODE,3);
6041: oe_debug_pub.add('captured:'||OE_GLOBALS.G_captured_reason,3);
6042: oe_debug_pub.add('audit:'||OE_GLOBALS.G_version_audit,3);
6043: end if;
6044: OE_GLOBALS.G_REASON_CODE := l_reason_code;
6045: OE_GLOBALS.G_REASON_COMMENTS := l_reason_comments;
6038: CLOSE prg_lines;
6039: if l_debug_level > 0 then
6040: oe_debug_pub.add('reason:'||OE_GLOBALS.G_REASON_CODE,3);
6041: oe_debug_pub.add('captured:'||OE_GLOBALS.G_captured_reason,3);
6042: oe_debug_pub.add('audit:'||OE_GLOBALS.G_version_audit,3);
6043: end if;
6044: OE_GLOBALS.G_REASON_CODE := l_reason_code;
6045: OE_GLOBALS.G_REASON_COMMENTS := l_reason_comments;
6046: OE_GLOBALS.G_CAPTURED_REASON := l_captured_reason;
6045: OE_GLOBALS.G_REASON_COMMENTS := l_reason_comments;
6046: OE_GLOBALS.G_CAPTURED_REASON := l_captured_reason;
6047:
6048: IF l_debug_level > 0 THEN
6049: oe_debug_pub.add( 'EXITING OEXULADB.DELETE_PRG_LINES' ) ;
6050: END IF;
6051: EXCEPTION
6052: WHEN OTHERS THEN
6053: IF l_debug_level > 0 THEN
6050: END IF;
6051: EXCEPTION
6052: WHEN OTHERS THEN
6053: IF l_debug_level > 0 THEN
6054: oe_debug_pub.add( 'EXCEPTION IN DELETE_PRG_LINES'||SQLERRM , 3 ) ;
6055: END IF;
6056: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6057: End Delete_PRG_Lines;
6058:
6058:
6059: Procedure Check_Canceled_PRG(p_old_line_rec in Oe_Order_Pub.line_rec_type,
6060: p_new_line_rec in Oe_Order_Pub.line_rec_type) Is
6061: --
6062: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6063: --
6064: Begin
6065:
6066: IF p_new_line_rec.operation = OE_GLOBALS.G_OPR_DELETE OR NOT OE_GLOBALS.EQUAL(p_new_line_rec.ordered_quantity, p_old_line_rec.ordered_quantity) Then
6066: IF p_new_line_rec.operation = OE_GLOBALS.G_OPR_DELETE OR NOT OE_GLOBALS.EQUAL(p_new_line_rec.ordered_quantity, p_old_line_rec.ordered_quantity) Then
6067: IF (nvl(p_new_line_rec.booked_flag, 'X') <> 'Y') Then
6068: IF (p_new_line_rec.operation = OE_GLOBALS.G_OPR_DELETE OR p_new_line_rec.ordered_quantity = 0) Then
6069: IF l_debug_level > 0 THEN
6070: oe_debug_pub.add( 'OPEN ORDER , ORDERED QTY CHANGED TO ZERO , DELETE ALL PRG LINES' ) ;
6071: END IF;
6072: Delete_PRG_Lines(p_new_line_rec.line_id, p_new_line_rec.operation);
6073: END IF;
6074: ELSE
6076: (p_new_line_rec.change_reason is NOT NULL OR
6077: p_new_line_rec.change_reason <> FND_API.G_MISS_CHAR))
6078: OR p_new_line_rec.operation = OE_GLOBALS.G_OPR_DELETE Then
6079: IF l_debug_level > 0 THEN
6080: oe_debug_pub.add( 'BOOKED ORDER , ORDERED QTY CHANGED TO ZERO , DELETE ALL PRG LINES' ) ;
6081: END IF;
6082: Delete_PRG_Lines(p_new_line_rec.line_id, p_new_line_rec.operation);
6083: END IF;
6084: END IF;
6085: End if;
6086: EXCEPTION
6087: WHEN OTHERS THEN
6088: IF l_debug_level > 0 THEN
6089: oe_debug_pub.add( 'EXCEPTION IN CHECK_CANCELED_PRG'||SQLERRM , 3 ) ;
6090: END IF;
6091: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6092: End Check_Canceled_PRG;
6093:
6105: l_pricing_related_changes Boolean :=False;
6106: l_margin_related_changes Boolean :=False;
6107:
6108: --
6109: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6110: --
6111: Begin
6112: IF l_debug_level > 0 THEN
6113: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.PROCESS_PRICING CALLED FROM ULINB' ) ;
6109: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6110: --
6111: Begin
6112: IF l_debug_level > 0 THEN
6113: oe_debug_pub.add( 'ENTERING OE_LINE_ADJ_UTIL.PROCESS_PRICING CALLED FROM ULINB' ) ;
6114: END IF;
6115:
6116: IF NOT OE_GLOBALS.Equal(p_x_new_line_rec.cancelled_quantity,p_old_line_rec.cancelled_quantity)
6117: and p_x_new_line_rec.cancelled_quantity > 0
6116: IF NOT OE_GLOBALS.Equal(p_x_new_line_rec.cancelled_quantity,p_old_line_rec.cancelled_quantity)
6117: and p_x_new_line_rec.cancelled_quantity > 0
6118: Then
6119: IF l_debug_level > 0 THEN
6120: oe_debug_pub.add( ' USER CANCELS LINE , CANCELLED QUANTITY:'||P_X_NEW_LINE_REC.CANCELLED_QUANTITY ) ;
6121: END IF;
6122:
6123: --bug7491829 added p_ordered_quantity
6124: Process_Cancelled_Lines(p_x_new_line_rec=>p_x_new_line_rec,
6134:
6135: IF NOT OE_GLOBALS.Equal(p_x_new_line_rec.unit_cost,p_old_line_rec.unit_cost)
6136: Then
6137: IF l_debug_level > 0 THEN
6138: oe_debug_pub.add( ' BOOKED FLAG OR UNIT COST CHANGES' ) ;
6139: END IF;
6140: l_margin_related_changes := True;
6141: End If;
6142:
6157: else
6158: G_SEND_ALL_LINES_FOR_DSP := 'Y';
6159: end if;
6160: If l_debug_level > 0 Then
6161: oe_debug_pub.add('G_GROUP_PRICING_DSP = '||G_GROUP_PRICING_DSP);
6162: End If;
6163:
6164: If G_CODE_RELEASE_LEVEL IS NULL THEN
6165: G_CODE_RELEASE_LEVEL := OE_CODE_CONTROL.CODE_RELEASE_LEVEL;
6165: G_CODE_RELEASE_LEVEL := OE_CODE_CONTROL.CODE_RELEASE_LEVEL;
6166: End If;
6167:
6168: If l_debug_level > 0 Then
6169: oe_debug_pub.add('G_CODE_RELEASE_LEVEL = '||G_CODE_RELEASE_LEVEL);
6170: End If;
6171:
6172: if p_x_new_line_rec.ordered_quantity2 is not null and G_CODE_RELEASE_LEVEL < '110509' Then
6173: G_OPM_ITEM_CATCHWEIGHT_USED := 'Y';
6182: --evaluate margin, margin_hold procedure will hold the order if
6183: --margin falls below a intended setup margin
6184: IF Oe_Sys_Parameters.Value('COMPUTE_MARGIN') <> 'N' Then
6185: IF l_debug_level > 0 THEN
6186: oe_debug_pub.add( 'LOGGING DELAYED REQUEST FOR MARGIN HOLD FOR BOOKED LINE_ID:'||P_X_NEW_LINE_REC.LINE_ID ) ;
6187: END IF;
6188: oe_delayed_requests_pvt.log_request(
6189: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
6190: p_entity_id => p_x_new_line_rec.header_id,
6203: --MRG BGN, performance bug 4580260 (fp of bug 4273309)
6204: IF OE_FEATURES_PVT.Is_Margin_Avail
6205: AND p_x_new_line_rec.item_type_code NOT IN ('KIT','MODEL','INCLUDED','CLASS','CONFIG','OPTION') THEN
6206: IF l_debug_level > 0 THEN
6207: oe_debug_pub.add( 'NEW INV ITEM ID = '||P_X_NEW_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
6208: oe_debug_pub.add( 'OLD INV ITEM ID = '||P_OLD_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
6209: oe_debug_pub.add( 'NEW SHIP_FROM_ORG_ID = '||P_X_NEW_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6210: oe_debug_pub.add( 'OLD SHIP_FROM_ORG_ID = '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6211: oe_debug_pub.add( 'NEW PROJECT_ID = '||P_X_NEW_LINE_REC.PROJECT_ID , 1 ) ;
6204: IF OE_FEATURES_PVT.Is_Margin_Avail
6205: AND p_x_new_line_rec.item_type_code NOT IN ('KIT','MODEL','INCLUDED','CLASS','CONFIG','OPTION') THEN
6206: IF l_debug_level > 0 THEN
6207: oe_debug_pub.add( 'NEW INV ITEM ID = '||P_X_NEW_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
6208: oe_debug_pub.add( 'OLD INV ITEM ID = '||P_OLD_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
6209: oe_debug_pub.add( 'NEW SHIP_FROM_ORG_ID = '||P_X_NEW_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6210: oe_debug_pub.add( 'OLD SHIP_FROM_ORG_ID = '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6211: oe_debug_pub.add( 'NEW PROJECT_ID = '||P_X_NEW_LINE_REC.PROJECT_ID , 1 ) ;
6212: oe_debug_pub.add( 'OLD PROJECT_ID = '||P_OLD_LINE_REC.PROJECT_ID , 1 ) ;
6205: AND p_x_new_line_rec.item_type_code NOT IN ('KIT','MODEL','INCLUDED','CLASS','CONFIG','OPTION') THEN
6206: IF l_debug_level > 0 THEN
6207: oe_debug_pub.add( 'NEW INV ITEM ID = '||P_X_NEW_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
6208: oe_debug_pub.add( 'OLD INV ITEM ID = '||P_OLD_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
6209: oe_debug_pub.add( 'NEW SHIP_FROM_ORG_ID = '||P_X_NEW_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6210: oe_debug_pub.add( 'OLD SHIP_FROM_ORG_ID = '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6211: oe_debug_pub.add( 'NEW PROJECT_ID = '||P_X_NEW_LINE_REC.PROJECT_ID , 1 ) ;
6212: oe_debug_pub.add( 'OLD PROJECT_ID = '||P_OLD_LINE_REC.PROJECT_ID , 1 ) ;
6213: oe_debug_pub.add( 'NEW ACTUAL_SHIPMENT_DATE = '||P_X_NEW_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6206: IF l_debug_level > 0 THEN
6207: oe_debug_pub.add( 'NEW INV ITEM ID = '||P_X_NEW_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
6208: oe_debug_pub.add( 'OLD INV ITEM ID = '||P_OLD_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
6209: oe_debug_pub.add( 'NEW SHIP_FROM_ORG_ID = '||P_X_NEW_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6210: oe_debug_pub.add( 'OLD SHIP_FROM_ORG_ID = '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6211: oe_debug_pub.add( 'NEW PROJECT_ID = '||P_X_NEW_LINE_REC.PROJECT_ID , 1 ) ;
6212: oe_debug_pub.add( 'OLD PROJECT_ID = '||P_OLD_LINE_REC.PROJECT_ID , 1 ) ;
6213: oe_debug_pub.add( 'NEW ACTUAL_SHIPMENT_DATE = '||P_X_NEW_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6214: oe_debug_pub.add( 'OLD ACTUAL_SHIPMENT_DATE = '||P_OLD_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6207: oe_debug_pub.add( 'NEW INV ITEM ID = '||P_X_NEW_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
6208: oe_debug_pub.add( 'OLD INV ITEM ID = '||P_OLD_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
6209: oe_debug_pub.add( 'NEW SHIP_FROM_ORG_ID = '||P_X_NEW_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6210: oe_debug_pub.add( 'OLD SHIP_FROM_ORG_ID = '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6211: oe_debug_pub.add( 'NEW PROJECT_ID = '||P_X_NEW_LINE_REC.PROJECT_ID , 1 ) ;
6212: oe_debug_pub.add( 'OLD PROJECT_ID = '||P_OLD_LINE_REC.PROJECT_ID , 1 ) ;
6213: oe_debug_pub.add( 'NEW ACTUAL_SHIPMENT_DATE = '||P_X_NEW_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6214: oe_debug_pub.add( 'OLD ACTUAL_SHIPMENT_DATE = '||P_OLD_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6215: oe_debug_pub.add( 'NEW FULFILLMENT_DATE = '||P_X_NEW_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6208: oe_debug_pub.add( 'OLD INV ITEM ID = '||P_OLD_LINE_REC.INVENTORY_ITEM_ID , 1 ) ;
6209: oe_debug_pub.add( 'NEW SHIP_FROM_ORG_ID = '||P_X_NEW_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6210: oe_debug_pub.add( 'OLD SHIP_FROM_ORG_ID = '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6211: oe_debug_pub.add( 'NEW PROJECT_ID = '||P_X_NEW_LINE_REC.PROJECT_ID , 1 ) ;
6212: oe_debug_pub.add( 'OLD PROJECT_ID = '||P_OLD_LINE_REC.PROJECT_ID , 1 ) ;
6213: oe_debug_pub.add( 'NEW ACTUAL_SHIPMENT_DATE = '||P_X_NEW_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6214: oe_debug_pub.add( 'OLD ACTUAL_SHIPMENT_DATE = '||P_OLD_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6215: oe_debug_pub.add( 'NEW FULFILLMENT_DATE = '||P_X_NEW_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6216: oe_debug_pub.add( 'OLD FULFILLMENT_DATE = '||P_OLD_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6209: oe_debug_pub.add( 'NEW SHIP_FROM_ORG_ID = '||P_X_NEW_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6210: oe_debug_pub.add( 'OLD SHIP_FROM_ORG_ID = '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6211: oe_debug_pub.add( 'NEW PROJECT_ID = '||P_X_NEW_LINE_REC.PROJECT_ID , 1 ) ;
6212: oe_debug_pub.add( 'OLD PROJECT_ID = '||P_OLD_LINE_REC.PROJECT_ID , 1 ) ;
6213: oe_debug_pub.add( 'NEW ACTUAL_SHIPMENT_DATE = '||P_X_NEW_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6214: oe_debug_pub.add( 'OLD ACTUAL_SHIPMENT_DATE = '||P_OLD_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6215: oe_debug_pub.add( 'NEW FULFILLMENT_DATE = '||P_X_NEW_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6216: oe_debug_pub.add( 'OLD FULFILLMENT_DATE = '||P_OLD_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6217: oe_debug_pub.add( 'NEW PRICING_DATE = '||P_X_NEW_LINE_REC.PRICING_DATE , 1 ) ;
6210: oe_debug_pub.add( 'OLD SHIP_FROM_ORG_ID = '||P_OLD_LINE_REC.SHIP_FROM_ORG_ID , 1 ) ;
6211: oe_debug_pub.add( 'NEW PROJECT_ID = '||P_X_NEW_LINE_REC.PROJECT_ID , 1 ) ;
6212: oe_debug_pub.add( 'OLD PROJECT_ID = '||P_OLD_LINE_REC.PROJECT_ID , 1 ) ;
6213: oe_debug_pub.add( 'NEW ACTUAL_SHIPMENT_DATE = '||P_X_NEW_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6214: oe_debug_pub.add( 'OLD ACTUAL_SHIPMENT_DATE = '||P_OLD_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6215: oe_debug_pub.add( 'NEW FULFILLMENT_DATE = '||P_X_NEW_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6216: oe_debug_pub.add( 'OLD FULFILLMENT_DATE = '||P_OLD_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6217: oe_debug_pub.add( 'NEW PRICING_DATE = '||P_X_NEW_LINE_REC.PRICING_DATE , 1 ) ;
6218: oe_debug_pub.add( 'OLD PRICING_DATE = '||P_OLD_LINE_REC.PRICING_DATE , 1 ) ;
6211: oe_debug_pub.add( 'NEW PROJECT_ID = '||P_X_NEW_LINE_REC.PROJECT_ID , 1 ) ;
6212: oe_debug_pub.add( 'OLD PROJECT_ID = '||P_OLD_LINE_REC.PROJECT_ID , 1 ) ;
6213: oe_debug_pub.add( 'NEW ACTUAL_SHIPMENT_DATE = '||P_X_NEW_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6214: oe_debug_pub.add( 'OLD ACTUAL_SHIPMENT_DATE = '||P_OLD_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6215: oe_debug_pub.add( 'NEW FULFILLMENT_DATE = '||P_X_NEW_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6216: oe_debug_pub.add( 'OLD FULFILLMENT_DATE = '||P_OLD_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6217: oe_debug_pub.add( 'NEW PRICING_DATE = '||P_X_NEW_LINE_REC.PRICING_DATE , 1 ) ;
6218: oe_debug_pub.add( 'OLD PRICING_DATE = '||P_OLD_LINE_REC.PRICING_DATE , 1 ) ;
6219: END IF;
6212: oe_debug_pub.add( 'OLD PROJECT_ID = '||P_OLD_LINE_REC.PROJECT_ID , 1 ) ;
6213: oe_debug_pub.add( 'NEW ACTUAL_SHIPMENT_DATE = '||P_X_NEW_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6214: oe_debug_pub.add( 'OLD ACTUAL_SHIPMENT_DATE = '||P_OLD_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6215: oe_debug_pub.add( 'NEW FULFILLMENT_DATE = '||P_X_NEW_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6216: oe_debug_pub.add( 'OLD FULFILLMENT_DATE = '||P_OLD_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6217: oe_debug_pub.add( 'NEW PRICING_DATE = '||P_X_NEW_LINE_REC.PRICING_DATE , 1 ) ;
6218: oe_debug_pub.add( 'OLD PRICING_DATE = '||P_OLD_LINE_REC.PRICING_DATE , 1 ) ;
6219: END IF;
6220:
6213: oe_debug_pub.add( 'NEW ACTUAL_SHIPMENT_DATE = '||P_X_NEW_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6214: oe_debug_pub.add( 'OLD ACTUAL_SHIPMENT_DATE = '||P_OLD_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6215: oe_debug_pub.add( 'NEW FULFILLMENT_DATE = '||P_X_NEW_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6216: oe_debug_pub.add( 'OLD FULFILLMENT_DATE = '||P_OLD_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6217: oe_debug_pub.add( 'NEW PRICING_DATE = '||P_X_NEW_LINE_REC.PRICING_DATE , 1 ) ;
6218: oe_debug_pub.add( 'OLD PRICING_DATE = '||P_OLD_LINE_REC.PRICING_DATE , 1 ) ;
6219: END IF;
6220:
6221: IF NOT OE_GLOBALS.Equal(p_x_new_line_rec.inventory_item_id,p_old_line_rec.inventory_item_id)
6214: oe_debug_pub.add( 'OLD ACTUAL_SHIPMENT_DATE = '||P_OLD_LINE_REC.ACTUAL_SHIPMENT_DATE , 1 ) ;
6215: oe_debug_pub.add( 'NEW FULFILLMENT_DATE = '||P_X_NEW_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6216: oe_debug_pub.add( 'OLD FULFILLMENT_DATE = '||P_OLD_LINE_REC.FULFILLMENT_DATE , 1 ) ;
6217: oe_debug_pub.add( 'NEW PRICING_DATE = '||P_X_NEW_LINE_REC.PRICING_DATE , 1 ) ;
6218: oe_debug_pub.add( 'OLD PRICING_DATE = '||P_OLD_LINE_REC.PRICING_DATE , 1 ) ;
6219: END IF;
6220:
6221: IF NOT OE_GLOBALS.Equal(p_x_new_line_rec.inventory_item_id,p_old_line_rec.inventory_item_id)
6222: OR NOT OE_GLOBALS.Equal(p_x_new_line_rec.ship_from_org_id,p_old_line_rec.ship_from_org_id)
6226: OR NOT OE_GLOBALS.Equal(p_x_new_line_rec.pricing_date,p_old_line_rec.pricing_date)
6227: THEN
6228: IF Oe_Sys_Parameters.Value('COMPUTE_MARGIN') <> 'N' Then
6229: IF l_debug_level > 0 THEN
6230: oe_debug_pub.add( 'BEFORE OE_DELAYED_REQUESTS_PVT.LOG_REQUEST CALL' ) ;
6231: oe_debug_pub.add( 'IN PROCESS_PRICING OEXULADB.PLS' ) ;
6232: END IF;
6233:
6234: oe_delayed_requests_pvt.log_request(
6227: THEN
6228: IF Oe_Sys_Parameters.Value('COMPUTE_MARGIN') <> 'N' Then
6229: IF l_debug_level > 0 THEN
6230: oe_debug_pub.add( 'BEFORE OE_DELAYED_REQUESTS_PVT.LOG_REQUEST CALL' ) ;
6231: oe_debug_pub.add( 'IN PROCESS_PRICING OEXULADB.PLS' ) ;
6232: END IF;
6233:
6234: oe_delayed_requests_pvt.log_request(
6235: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
6247:
6248: l_pricing_related_changes :=False;
6249: l_margin_related_changes :=False;
6250: IF l_debug_level > 0 THEN
6251: oe_debug_pub.add( 'LEAVING OE_LINE_ADJ_UTIL.PROCESS_PRICING' ) ;
6252: END IF;
6253: End Process_Pricing;
6254:
6255: Procedure Log_Pricing_Requests (p_x_new_line_rec in Out Nocopy Oe_Order_Pub.Line_Rec_Type,
6263: l_return_status Varchar2(5);
6264: i PLS_INTEGER;
6265: l_x_result_out Varchar2(5);
6266: --
6267: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6268: --
6269: -- sol_ord_er #16014165
6270: l_cnt_hdr_log NUMBER := 0;
6271: l_cnt_lin_log NUMBER := 0;
6326: End If;
6327: End If; --end if for UI Flag Check
6328:
6329: IF l_debug_level > 0 THEN
6330: oe_debug_pub.add( 'LOGGING DELAYED REQUEST FOR PRICING' ) ;
6331: END IF;
6332:
6333: IF ((OE_GLOBALS.G_UI_FLAG) and (nvl(Oe_Config_Pvt.oecfg_configuration_pricing,'N')='N')) OR
6334: p_x_new_line_rec.item_type_code = 'INCLUDED' THEN
6332:
6333: IF ((OE_GLOBALS.G_UI_FLAG) and (nvl(Oe_Config_Pvt.oecfg_configuration_pricing,'N')='N')) OR
6334: p_x_new_line_rec.item_type_code = 'INCLUDED' THEN
6335: IF l_debug_level > 0 THEN
6336: oe_debug_pub.add( 'UI MODE OR CONFIG , INCLUDED ITEM'||P_X_NEW_LINE_REC.LINE_ID ) ;
6337: END IF;
6338: IF NOT l_zero_line_qty THEN
6339: --bsadri don't call this for a cancelled line
6340: OE_delayed_requests_Pvt.log_request(
6364: l_cnt_hdr_log := 1; -- sol_ord_er #16014165
6365: END IF;
6366: ELSE
6367: IF l_debug_level > 0 THEN
6368: oe_debug_pub.add( 'BATCH MODE' ) ;
6369: END IF;
6370:
6371: OE_delayed_requests_Pvt.log_request(
6372: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
6405:
6406: */
6407:
6408: IF l_debug_level > 0 THEN
6409: oe_debug_pub.add( 'PRICE_FLAG = ' || P_PRICE_FLAG ) ;
6410: oe_debug_pub.add( 'G_PRICING_RECURSION = ' || OE_GLOBALS.G_PRICING_RECURSION ) ;
6411: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_X_NEW_LINE_REC.ORDERED_QUANTITY ) ) ;
6412: oe_debug_pub.add( 'ORDERED QTY UOM = ' || P_X_NEW_LINE_REC.ORDER_QUANTITY_UOM ) ;
6413: oe_debug_pub.add( 'CALCULATE_PRICE_FLAG = '|| P_X_NEW_LINE_REC.CALCULATE_PRICE_FLAG ) ;
6406: */
6407:
6408: IF l_debug_level > 0 THEN
6409: oe_debug_pub.add( 'PRICE_FLAG = ' || P_PRICE_FLAG ) ;
6410: oe_debug_pub.add( 'G_PRICING_RECURSION = ' || OE_GLOBALS.G_PRICING_RECURSION ) ;
6411: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_X_NEW_LINE_REC.ORDERED_QUANTITY ) ) ;
6412: oe_debug_pub.add( 'ORDERED QTY UOM = ' || P_X_NEW_LINE_REC.ORDER_QUANTITY_UOM ) ;
6413: oe_debug_pub.add( 'CALCULATE_PRICE_FLAG = '|| P_X_NEW_LINE_REC.CALCULATE_PRICE_FLAG ) ;
6414: END IF;
6407:
6408: IF l_debug_level > 0 THEN
6409: oe_debug_pub.add( 'PRICE_FLAG = ' || P_PRICE_FLAG ) ;
6410: oe_debug_pub.add( 'G_PRICING_RECURSION = ' || OE_GLOBALS.G_PRICING_RECURSION ) ;
6411: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_X_NEW_LINE_REC.ORDERED_QUANTITY ) ) ;
6412: oe_debug_pub.add( 'ORDERED QTY UOM = ' || P_X_NEW_LINE_REC.ORDER_QUANTITY_UOM ) ;
6413: oe_debug_pub.add( 'CALCULATE_PRICE_FLAG = '|| P_X_NEW_LINE_REC.CALCULATE_PRICE_FLAG ) ;
6414: END IF;
6415:
6408: IF l_debug_level > 0 THEN
6409: oe_debug_pub.add( 'PRICE_FLAG = ' || P_PRICE_FLAG ) ;
6410: oe_debug_pub.add( 'G_PRICING_RECURSION = ' || OE_GLOBALS.G_PRICING_RECURSION ) ;
6411: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_X_NEW_LINE_REC.ORDERED_QUANTITY ) ) ;
6412: oe_debug_pub.add( 'ORDERED QTY UOM = ' || P_X_NEW_LINE_REC.ORDER_QUANTITY_UOM ) ;
6413: oe_debug_pub.add( 'CALCULATE_PRICE_FLAG = '|| P_X_NEW_LINE_REC.CALCULATE_PRICE_FLAG ) ;
6414: END IF;
6415:
6416:
6409: oe_debug_pub.add( 'PRICE_FLAG = ' || P_PRICE_FLAG ) ;
6410: oe_debug_pub.add( 'G_PRICING_RECURSION = ' || OE_GLOBALS.G_PRICING_RECURSION ) ;
6411: oe_debug_pub.add( 'ORDERED QUANTITY = '|| TO_CHAR ( P_X_NEW_LINE_REC.ORDERED_QUANTITY ) ) ;
6412: oe_debug_pub.add( 'ORDERED QTY UOM = ' || P_X_NEW_LINE_REC.ORDER_QUANTITY_UOM ) ;
6413: oe_debug_pub.add( 'CALCULATE_PRICE_FLAG = '|| P_X_NEW_LINE_REC.CALCULATE_PRICE_FLAG ) ;
6414: END IF;
6415:
6416:
6417: if (p_price_flag = 'Y' and
6424: p_x_new_line_rec.calculate_price_flag = 'R')
6425: then
6426:
6427: IF l_debug_level > 0 THEN
6428: oe_debug_pub.add( 'NEW LINE CREATED BY PROMOTIONAL MODIFIER' ) ;
6429: oe_debug_pub.add( 'RESETTING CALC. PRICE. FLAG TO P' ) ;
6430: END IF;
6431: p_x_new_line_rec.calculate_price_flag := 'P';
6432: IF l_debug_level > 0 THEN
6425: then
6426:
6427: IF l_debug_level > 0 THEN
6428: oe_debug_pub.add( 'NEW LINE CREATED BY PROMOTIONAL MODIFIER' ) ;
6429: oe_debug_pub.add( 'RESETTING CALC. PRICE. FLAG TO P' ) ;
6430: END IF;
6431: p_x_new_line_rec.calculate_price_flag := 'P';
6432: IF l_debug_level > 0 THEN
6433: oe_debug_pub.add( 'LOGGING A REQUEST TO PRICE_LINE IN BATCH MODE' ) ;
6429: oe_debug_pub.add( 'RESETTING CALC. PRICE. FLAG TO P' ) ;
6430: END IF;
6431: p_x_new_line_rec.calculate_price_flag := 'P';
6432: IF l_debug_level > 0 THEN
6433: oe_debug_pub.add( 'LOGGING A REQUEST TO PRICE_LINE IN BATCH MODE' ) ;
6434: END IF;
6435: OE_delayed_requests_Pvt.log_request(
6436: p_entity_code =>OE_GLOBALS.G_ENTITY_ALL,
6437: p_entity_id => p_x_new_line_rec.line_Id,
6446:
6447: if (p_x_new_line_rec.booked_flag = 'Y')
6448: then
6449: IF l_debug_level > 0 THEN
6450: oe_debug_pub.add( 'BOOKED ORDER -- LOG A REQUEST TO PRICE LINE' ) ;
6451: END IF;
6452: OE_delayed_requests_Pvt.log_request(
6453: p_entity_code =>OE_GLOBALS.G_ENTITY_ALL,
6454: p_entity_id => p_x_new_line_rec.line_Id,
6504: x_return_status => l_return_status);
6505: End If;
6506: -- sol_ord_er #16014165
6507: IF l_debug_level > 0 THEN
6508: oe_debug_pub.add( 'l_cnt_lin_log= '||l_cnt_lin_log
6509: ||' l_cnt_hdr_log= '||l_cnt_hdr_log
6510: ||' Serv_Bill_Option Code='||p_x_new_line_rec.service_bill_option_code);
6511: END IF;
6512: If l_cnt_lin_log >0 and p_x_new_line_rec.service_bill_option_code = 'FPOM' then
6510: ||' Serv_Bill_Option Code='||p_x_new_line_rec.service_bill_option_code);
6511: END IF;
6512: If l_cnt_lin_log >0 and p_x_new_line_rec.service_bill_option_code = 'FPOM' then
6513: IF l_debug_level > 0 THEN
6514: oe_debug_pub.add('(1) Logging Line Level First Period Bill Amt Request, for line_id= '
6515: ||p_x_new_line_rec.line_id ) ;
6516: END IF;
6517: oe_delayed_requests_pvt.log_request(
6518: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
6525: x_return_status => l_return_status);
6526: End If;
6527: If l_cnt_hdr_log >0 then
6528: IF l_debug_level > 0 THEN
6529: oe_debug_pub.add('(2) Logging Line Level First Period Bill Amt Request, for header_id= '
6530: ||p_x_new_line_rec.header_id ) ;
6531: END IF;
6532: oe_delayed_requests_pvt.log_request(
6533: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
6567: l_order_status_rec QP_UTIL_PUB.ORDER_LINES_STATUS_REC_TYPE;
6568: l_return_status Varchar2(5);
6569: l_event_str Varchar2(25);
6570: --
6571: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6572: --
6573: Begin
6574:
6575: --User trying to cancle line, different processing for cancelation due to performance
6574:
6575: --User trying to cancle line, different processing for cancelation due to performance
6576: --considerations
6577: IF l_debug_level > 0 THEN
6578: oe_debug_pub.add( ' ENTERING PROCESS_CANCELLED_LINES' ) ;
6579: END IF;
6580:
6581: ------------------------------------------------------
6582: --Special case, bypass regular pricing path
6600: --line has no effect since the quantity is 0. Therefore, only pass
6601: --all the lines to pricing engine when all_lines_flag = 'Y'
6602: ----------------------------------------------------------------------
6603: IF l_debug_level > 0 THEN
6604: oe_debug_pub.add( ' ALL LINES FLAG RETURNED FROM QP_UTIL_PUB:'||L_ORDER_STATUS_REC.ALL_LINES_FLAG ) ;
6605: oe_debug_pub.add( ' CHANGED LINES FLAG RETURNED FROM QP_UTIL_PUB:'||L_ORDER_STATUS_REC.CHANGED_LINES_FLAG ) ;
6606: oe_debug_pub.add( ' SUMMARY LINE FLAG RETURNED FROM QP_UTIL_PUB:'||L_ORDER_STATUS_REC.SUMMARY_LINE_FLAG ) ;
6607: END IF;
6608:
6601: --all the lines to pricing engine when all_lines_flag = 'Y'
6602: ----------------------------------------------------------------------
6603: IF l_debug_level > 0 THEN
6604: oe_debug_pub.add( ' ALL LINES FLAG RETURNED FROM QP_UTIL_PUB:'||L_ORDER_STATUS_REC.ALL_LINES_FLAG ) ;
6605: oe_debug_pub.add( ' CHANGED LINES FLAG RETURNED FROM QP_UTIL_PUB:'||L_ORDER_STATUS_REC.CHANGED_LINES_FLAG ) ;
6606: oe_debug_pub.add( ' SUMMARY LINE FLAG RETURNED FROM QP_UTIL_PUB:'||L_ORDER_STATUS_REC.SUMMARY_LINE_FLAG ) ;
6607: END IF;
6608:
6609:
6602: ----------------------------------------------------------------------
6603: IF l_debug_level > 0 THEN
6604: oe_debug_pub.add( ' ALL LINES FLAG RETURNED FROM QP_UTIL_PUB:'||L_ORDER_STATUS_REC.ALL_LINES_FLAG ) ;
6605: oe_debug_pub.add( ' CHANGED LINES FLAG RETURNED FROM QP_UTIL_PUB:'||L_ORDER_STATUS_REC.CHANGED_LINES_FLAG ) ;
6606: oe_debug_pub.add( ' SUMMARY LINE FLAG RETURNED FROM QP_UTIL_PUB:'||L_ORDER_STATUS_REC.SUMMARY_LINE_FLAG ) ;
6607: END IF;
6608:
6609:
6610:
6609:
6610:
6611: If p_x_new_line_rec.ordered_quantity = 0 Then
6612: IF l_debug_level > 0 THEN
6613: oe_debug_pub.add( ' USER HAS TOTALLY CANCELLED THE LINE' ) ;
6614: END IF;
6615:
6616: If p_x_new_line_rec.booked_flag = 'Y' Then
6617: l_event_str:= 'ORDER,BOOK';
6636: End If;
6637: End If;
6638: /* BUG 2013611 BEGIN */
6639: IF l_debug_level > 0 THEN
6640: oe_debug_pub.add( 'LOG REVERSE_LIMITS DELAYED REQUEST FROM PROCESS_CANCELLED_LINES ' , 1 ) ;
6641: END IF;
6642: OE_delayed_requests_Pvt.log_request(
6643: p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
6644: p_entity_id => p_x_new_line_rec.line_id,
6653: p_param6 => NULL,
6654: p_request_type => OE_GLOBALS.G_REVERSE_LIMITS,
6655: x_return_status => l_return_status);
6656: IF l_debug_level > 0 THEN
6657: oe_debug_pub.add( 'REVERSE_LIMITS DELAYED REQUEST HAS BEEN LOGGED' , 1 ) ;
6658: END IF;
6659: /* BUG 2013611 END */
6660: Else --User partially cancel the line
6661: IF l_debug_level > 0 THEN
6658: END IF;
6659: /* BUG 2013611 END */
6660: Else --User partially cancel the line
6661: IF l_debug_level > 0 THEN
6662: oe_debug_pub.add( ' USER HAS PARTIALLY CANCELLED THE LINE' ) ;
6663: END IF;
6664:
6665:
6666: If p_x_new_line_rec.booked_flag = 'Y' Then
6694:
6695: --bug7491829
6696:
6697: IF l_debug_level > 0 THEN
6698: oe_debug_pub.add( 'LOG REVERSE_LIMITS DELAYED REQUEST FROM
6699: PROCESS_CANCELLED_LINES FOR PARTIAL CANCEL CASE' , 1 ) ;
6700: END IF;
6701:
6702: OE_delayed_requests_Pvt.log_request(
6714: p_request_type =>OE_GLOBALS.G_REVERSE_LIMITS,
6715: x_return_status => l_return_status);
6716:
6717: IF l_debug_level > 0 THEN
6718: oe_debug_pub.add( 'REVERSE_LIMITS DELAYED REQUEST HAS BEEN LOGGED' , 1 ) ;
6719: END IF;
6720:
6721: --bug7491829
6722:
6722:
6723: End If;
6724:
6725: IF l_debug_level > 0 THEN
6726: oe_debug_pub.add( ' LEAVING PROCESS_CANCELLED_LINES' ) ;
6727: END IF;
6728: End;
6729:
6730: /*----------------------------------------------------------------------------*/
6734: p_header_id in Number,
6735: p_operation in Varchar2) Is
6736: l_return_status Varchar2(15);
6737: --
6738: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6739: --
6740: Begin
6741: IF l_debug_level > 0 THEN
6742: oe_debug_pub.add( ' ENTERING OE_LINE_ADJ_UTIL.REGISTER_CHANGED_LINES' ) ;
6738: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6739: --
6740: Begin
6741: IF l_debug_level > 0 THEN
6742: oe_debug_pub.add( ' ENTERING OE_LINE_ADJ_UTIL.REGISTER_CHANGED_LINES' ) ;
6743: oe_debug_pub.add( ' P_LINE_ID:'||P_LINE_ID||'+P_HEADER_ID:'||P_HEADER_ID ) ;
6744: END IF;
6745:
6746: -----------------------------------------------------------------------------------
6739: --
6740: Begin
6741: IF l_debug_level > 0 THEN
6742: oe_debug_pub.add( ' ENTERING OE_LINE_ADJ_UTIL.REGISTER_CHANGED_LINES' ) ;
6743: oe_debug_pub.add( ' P_LINE_ID:'||P_LINE_ID||'+P_HEADER_ID:'||P_HEADER_ID ) ;
6744: END IF;
6745:
6746: -----------------------------------------------------------------------------------
6747: --For performance reason, we only need to log delay request to reset the cache once
6750: --the cahce has been logged; therefore, I need not log it.
6751: ------------------------------------------------------------------------------------
6752: -- If G_CHANGED_LINE_TBL.Count = 0 Then -- Commented out for bug 12673852
6753: IF l_debug_level > 0 THEN
6754: oe_debug_pub.add( ' LOGGING DELAYED REQUEST TO RESET G_CHANGED_LINE_TBL' ) ;
6755: END IF;
6756: oe_delayed_requests_pvt.log_request(
6757: p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
6758: p_entity_id => p_header_id,
6760: p_requesting_entity_id => p_header_id,
6761: p_request_type => OE_GLOBALS.G_DEL_CHG_LINES,
6762: x_return_status => l_return_status);
6763: IF l_debug_level > 0 THEN
6764: oe_debug_pub.add( ' RETURN STATUS FROM THE DELAYED REQUEST:'||L_RETURN_STATUS ) ;
6765: END IF;
6766: -- End If; -- Commented out for bug 12673852
6767:
6768: If p_operation In (OE_GLOBALS.G_OPR_CREATE,OE_GLOBALS.G_OPR_UPDATE) Then
6776: End If;
6777: End If;
6778:
6779: IF l_debug_level > 0 THEN
6780: oe_debug_pub.add( ' LEAVING OE_LINE_ADJ_UTIL.REGISTER_CHANGED_LINES' ) ;
6781: END IF;
6782: End;
6783:
6784: Procedure Get_Service_Lines(p_header_id IN NUMBER,
6804: l_old_pricing_qty NUMBER;
6805: l_new_pricing_qty NUMBER;
6806:
6807: Begin
6808: Oe_Debug_Pub.add(' Entering OE_LINE_ADJ_UTIL.Change_adj_for_uom_change');
6809:
6810: IF p_x_line_rec.Pricing_quantity is not null and
6811: p_x_line_rec.Pricing_quantity <> FND_API.G_MISS_NUM and
6812: p_x_line_rec.Pricing_quantity <> 0 THEN
6820: p_x_line_rec.ordered_quantity
6821: );
6822:
6823: -- Code changes for bug 9014929
6824: Oe_Debug_Pub.add(' l_old_pricing_qty = ' || l_old_pricing_qty);
6825: Oe_Debug_Pub.add(' l_new_pricing_qty = ' || l_new_pricing_qty);
6826: p_x_line_rec.Pricing_quantity := l_new_pricing_qty;
6827: Oe_Debug_Pub.add(' p_x_line_rec.Pricing_quantity = ' || p_x_line_rec.Pricing_quantity);
6828: -- End of code changes for bug 9014929
6821: );
6822:
6823: -- Code changes for bug 9014929
6824: Oe_Debug_Pub.add(' l_old_pricing_qty = ' || l_old_pricing_qty);
6825: Oe_Debug_Pub.add(' l_new_pricing_qty = ' || l_new_pricing_qty);
6826: p_x_line_rec.Pricing_quantity := l_new_pricing_qty;
6827: Oe_Debug_Pub.add(' p_x_line_rec.Pricing_quantity = ' || p_x_line_rec.Pricing_quantity);
6828: -- End of code changes for bug 9014929
6829:
6823: -- Code changes for bug 9014929
6824: Oe_Debug_Pub.add(' l_old_pricing_qty = ' || l_old_pricing_qty);
6825: Oe_Debug_Pub.add(' l_new_pricing_qty = ' || l_new_pricing_qty);
6826: p_x_line_rec.Pricing_quantity := l_new_pricing_qty;
6827: Oe_Debug_Pub.add(' p_x_line_rec.Pricing_quantity = ' || p_x_line_rec.Pricing_quantity);
6828: -- End of code changes for bug 9014929
6829:
6830: update oe_price_adjustments
6831: set adjusted_amount = adjusted_amount * l_new_pricing_qty / l_old_pricing_qty
6843: and updated_flag = 'Y'
6844: and arithmetic_operator in ('AMT' , 'NEWPRICE');
6845: END IF;
6846:
6847: Oe_Debug_Pub.add(' Leaving OE_LINE_ADJ_UTIL.Change_adj_for_uom_change');
6848: End;
6849:
6850: /* End of the procedure added to fix the bug 2917690 */
6851: