[Home] [Help]
9: G_BINARY_LIMIT CONSTANT NUMBER := OE_GLOBALS.G_BINARY_LIMIT; -- BUG 8631297
10:
11: procedure Adj_Debug (p_text IN VARCHAR2, p_level IN NUMBER:=5) As
12: --
13: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
14: --
15: Begin
16: If G_DEBUG Then
17: IF l_debug_level > 0 THEN
14: --
15: Begin
16: If G_DEBUG Then
17: IF l_debug_level > 0 THEN
18: oe_debug_pub.add( P_TEXT , P_LEVEL ) ;
19: END IF;
20: End If;
21: End Adj_Debug;
22:
25: px_price_line_id_tbl IN OUT NOCOPY Oe_Order_Adj_Pvt.Index_Tbl_Type)
26: IS
27: l_line_index Number;
28: --
29: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
30: --
31: Begin
32:
33: l_line_index := px_line_tbl.First;
57: l_index NUMBER:=1;
58: l_new_line_tbl OE_Order_Pub.Line_Tbl_Type;
59: l_old_line_tbl OE_Order_Pub.Line_Tbl_Type;
60: --
61: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
62: --
63: BEGIN
64: IF l_debug_level > 0 THEN
65: oe_debug_pub.add( 'INSIDE CALL PROCESS ORDER' , 1 ) ;
61: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
62: --
63: BEGIN
64: IF l_debug_level > 0 THEN
65: oe_debug_pub.add( 'INSIDE CALL PROCESS ORDER' , 1 ) ;
66: END IF;
67: IF px_line_tbl.COUNT > 0 THEN
68: l_line_index := px_line_tbl.first;
69: while l_line_index is not null loop
68: l_line_index := px_line_tbl.first;
69: while l_line_index is not null loop
70: IF nvl(px_line_tbl(l_line_index).operation,OE_GLOBALS.G_OPR_NONE) = OE_GLOBALS.G_OPR_NONE THEN
71: IF l_debug_level > 0 THEN
72: oe_debug_pub.add('Operation none or null:'||px_line_tbl(l_line_index).line_id||' from px_line_tbl' , 1 ) ;
73: END IF;
74: --Do nothing on this line. None operation
75: NULL;
76: ELSE
74: --Do nothing on this line. None operation
75: NULL;
76: ELSE
77: IF l_debug_level > 0 THEN
78: oe_debug_pub.add('Deleting line id:'||px_line_tbl(l_line_index).line_id||' from px_line_tbl' , 1 ) ;
79: END IF;
80: l_new_line_tbl(l_index):=px_line_tbl(l_line_index);
81: oe_debug_pub.add(' l_index:'||l_index);
82: oe_debug_pub.add(' l_line_index:'||l_line_index);
77: IF l_debug_level > 0 THEN
78: oe_debug_pub.add('Deleting line id:'||px_line_tbl(l_line_index).line_id||' from px_line_tbl' , 1 ) ;
79: END IF;
80: l_new_line_tbl(l_index):=px_line_tbl(l_line_index);
81: oe_debug_pub.add(' l_index:'||l_index);
82: oe_debug_pub.add(' l_line_index:'||l_line_index);
83: oe_debug_pub.add(' new_line_tbl.count:'||px_line_tbl.count);
84: oe_debug_pub.add(' old_line_tbl.count:'||px_old_line_tbl.count);
85:
78: oe_debug_pub.add('Deleting line id:'||px_line_tbl(l_line_index).line_id||' from px_line_tbl' , 1 ) ;
79: END IF;
80: l_new_line_tbl(l_index):=px_line_tbl(l_line_index);
81: oe_debug_pub.add(' l_index:'||l_index);
82: oe_debug_pub.add(' l_line_index:'||l_line_index);
83: oe_debug_pub.add(' new_line_tbl.count:'||px_line_tbl.count);
84: oe_debug_pub.add(' old_line_tbl.count:'||px_old_line_tbl.count);
85:
86: IF px_old_line_tbl.exists(l_line_index) THEN
79: END IF;
80: l_new_line_tbl(l_index):=px_line_tbl(l_line_index);
81: oe_debug_pub.add(' l_index:'||l_index);
82: oe_debug_pub.add(' l_line_index:'||l_line_index);
83: oe_debug_pub.add(' new_line_tbl.count:'||px_line_tbl.count);
84: oe_debug_pub.add(' old_line_tbl.count:'||px_old_line_tbl.count);
85:
86: IF px_old_line_tbl.exists(l_line_index) THEN
87: l_old_line_tbl(l_index):=px_old_line_tbl(l_line_index);
80: l_new_line_tbl(l_index):=px_line_tbl(l_line_index);
81: oe_debug_pub.add(' l_index:'||l_index);
82: oe_debug_pub.add(' l_line_index:'||l_line_index);
83: oe_debug_pub.add(' new_line_tbl.count:'||px_line_tbl.count);
84: oe_debug_pub.add(' old_line_tbl.count:'||px_old_line_tbl.count);
85:
86: IF px_old_line_tbl.exists(l_line_index) THEN
87: l_old_line_tbl(l_index):=px_old_line_tbl(l_line_index);
88: END IF;
105:
106: OE_GLOBALS.G_PRICING_RECURSION := 'Y';
107:
108: IF l_debug_level > 0 THEN
109: oe_debug_pub.add( 'BEFORE CALLING OE_ORDER_PVT.HEADER' , 1 ) ;
110: oe_debug_pub.add( 'LX_OLD_HEADER_REC.HEADER_ID='||LX_OLD_HEADER_REC.HEADER_ID , 1 ) ;
111: oe_debug_pub.add( 'LX_OLD_HEADER_REC.PAYMENT_TERM_ID='||LX_OLD_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
112: oe_debug_pub.add( 'LX_OLD_HEADER_REC.OPERATION='||LX_OLD_HEADER_REC.OPERATION , 1 ) ;
113: oe_debug_pub.add( 'PX_HEADER_REC.HEADER_ID='||PX_HEADER_REC.HEADER_ID , 1 ) ;
106: OE_GLOBALS.G_PRICING_RECURSION := 'Y';
107:
108: IF l_debug_level > 0 THEN
109: oe_debug_pub.add( 'BEFORE CALLING OE_ORDER_PVT.HEADER' , 1 ) ;
110: oe_debug_pub.add( 'LX_OLD_HEADER_REC.HEADER_ID='||LX_OLD_HEADER_REC.HEADER_ID , 1 ) ;
111: oe_debug_pub.add( 'LX_OLD_HEADER_REC.PAYMENT_TERM_ID='||LX_OLD_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
112: oe_debug_pub.add( 'LX_OLD_HEADER_REC.OPERATION='||LX_OLD_HEADER_REC.OPERATION , 1 ) ;
113: oe_debug_pub.add( 'PX_HEADER_REC.HEADER_ID='||PX_HEADER_REC.HEADER_ID , 1 ) ;
114: oe_debug_pub.add( 'PX_HEADER_REC.PAYMENT_TERM_ID='||PX_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
107:
108: IF l_debug_level > 0 THEN
109: oe_debug_pub.add( 'BEFORE CALLING OE_ORDER_PVT.HEADER' , 1 ) ;
110: oe_debug_pub.add( 'LX_OLD_HEADER_REC.HEADER_ID='||LX_OLD_HEADER_REC.HEADER_ID , 1 ) ;
111: oe_debug_pub.add( 'LX_OLD_HEADER_REC.PAYMENT_TERM_ID='||LX_OLD_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
112: oe_debug_pub.add( 'LX_OLD_HEADER_REC.OPERATION='||LX_OLD_HEADER_REC.OPERATION , 1 ) ;
113: oe_debug_pub.add( 'PX_HEADER_REC.HEADER_ID='||PX_HEADER_REC.HEADER_ID , 1 ) ;
114: oe_debug_pub.add( 'PX_HEADER_REC.PAYMENT_TERM_ID='||PX_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
115: oe_debug_pub.add( 'PX_HEADER_REC.OPERATION='||PX_HEADER_REC.OPERATION , 1 ) ;
108: IF l_debug_level > 0 THEN
109: oe_debug_pub.add( 'BEFORE CALLING OE_ORDER_PVT.HEADER' , 1 ) ;
110: oe_debug_pub.add( 'LX_OLD_HEADER_REC.HEADER_ID='||LX_OLD_HEADER_REC.HEADER_ID , 1 ) ;
111: oe_debug_pub.add( 'LX_OLD_HEADER_REC.PAYMENT_TERM_ID='||LX_OLD_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
112: oe_debug_pub.add( 'LX_OLD_HEADER_REC.OPERATION='||LX_OLD_HEADER_REC.OPERATION , 1 ) ;
113: oe_debug_pub.add( 'PX_HEADER_REC.HEADER_ID='||PX_HEADER_REC.HEADER_ID , 1 ) ;
114: oe_debug_pub.add( 'PX_HEADER_REC.PAYMENT_TERM_ID='||PX_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
115: oe_debug_pub.add( 'PX_HEADER_REC.OPERATION='||PX_HEADER_REC.OPERATION , 1 ) ;
116: END IF;
109: oe_debug_pub.add( 'BEFORE CALLING OE_ORDER_PVT.HEADER' , 1 ) ;
110: oe_debug_pub.add( 'LX_OLD_HEADER_REC.HEADER_ID='||LX_OLD_HEADER_REC.HEADER_ID , 1 ) ;
111: oe_debug_pub.add( 'LX_OLD_HEADER_REC.PAYMENT_TERM_ID='||LX_OLD_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
112: oe_debug_pub.add( 'LX_OLD_HEADER_REC.OPERATION='||LX_OLD_HEADER_REC.OPERATION , 1 ) ;
113: oe_debug_pub.add( 'PX_HEADER_REC.HEADER_ID='||PX_HEADER_REC.HEADER_ID , 1 ) ;
114: oe_debug_pub.add( 'PX_HEADER_REC.PAYMENT_TERM_ID='||PX_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
115: oe_debug_pub.add( 'PX_HEADER_REC.OPERATION='||PX_HEADER_REC.OPERATION , 1 ) ;
116: END IF;
117:
110: oe_debug_pub.add( 'LX_OLD_HEADER_REC.HEADER_ID='||LX_OLD_HEADER_REC.HEADER_ID , 1 ) ;
111: oe_debug_pub.add( 'LX_OLD_HEADER_REC.PAYMENT_TERM_ID='||LX_OLD_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
112: oe_debug_pub.add( 'LX_OLD_HEADER_REC.OPERATION='||LX_OLD_HEADER_REC.OPERATION , 1 ) ;
113: oe_debug_pub.add( 'PX_HEADER_REC.HEADER_ID='||PX_HEADER_REC.HEADER_ID , 1 ) ;
114: oe_debug_pub.add( 'PX_HEADER_REC.PAYMENT_TERM_ID='||PX_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
115: oe_debug_pub.add( 'PX_HEADER_REC.OPERATION='||PX_HEADER_REC.OPERATION , 1 ) ;
116: END IF;
117:
118: IF (px_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE) Then
111: oe_debug_pub.add( 'LX_OLD_HEADER_REC.PAYMENT_TERM_ID='||LX_OLD_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
112: oe_debug_pub.add( 'LX_OLD_HEADER_REC.OPERATION='||LX_OLD_HEADER_REC.OPERATION , 1 ) ;
113: oe_debug_pub.add( 'PX_HEADER_REC.HEADER_ID='||PX_HEADER_REC.HEADER_ID , 1 ) ;
114: oe_debug_pub.add( 'PX_HEADER_REC.PAYMENT_TERM_ID='||PX_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
115: oe_debug_pub.add( 'PX_HEADER_REC.OPERATION='||PX_HEADER_REC.OPERATION , 1 ) ;
116: END IF;
117:
118: IF (px_header_rec.operation = OE_GLOBALS.G_OPR_UPDATE) Then
119: OE_Order_Pvt.Header
154: ,p_term varchar2
155: ,p_substitution_attribute varchar2
156: )
157: is
158: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
159: begin
160: IF l_debug_level > 0 THEN
161: oe_debug_pub.add('In side set_tsn');
162: oe_debug_pub.add('p_term : '||p_term);
157: is
158: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
159: begin
160: IF l_debug_level > 0 THEN
161: oe_debug_pub.add('In side set_tsn');
162: oe_debug_pub.add('p_term : '||p_term);
163: oe_debug_pub.add('p_substitution_attribute : '||p_substitution_attribute);
164: END IF;
165: IF p_substitution_attribute = 'QUALIFIER_ATTRIBUTE1' THEN
158: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
159: begin
160: IF l_debug_level > 0 THEN
161: oe_debug_pub.add('In side set_tsn');
162: oe_debug_pub.add('p_term : '||p_term);
163: oe_debug_pub.add('p_substitution_attribute : '||p_substitution_attribute);
164: END IF;
165: IF p_substitution_attribute = 'QUALIFIER_ATTRIBUTE1' THEN
166: px_line_rec.payment_term_id := p_term;
159: begin
160: IF l_debug_level > 0 THEN
161: oe_debug_pub.add('In side set_tsn');
162: oe_debug_pub.add('p_term : '||p_term);
163: oe_debug_pub.add('p_substitution_attribute : '||p_substitution_attribute);
164: END IF;
165: IF p_substitution_attribute = 'QUALIFIER_ATTRIBUTE1' THEN
166: px_line_rec.payment_term_id := p_term;
167: ELSIF p_substitution_attribute = 'QUALIFIER_ATTRIBUTE11' THEN
179: l_org_id NUMBER := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
180: l_ordered_item varchar2(300);
181:
182: --
183: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
184: --
185: begin
186:
187: IF l_debug_level > 0 THEN
184: --
185: begin
186:
187: IF l_debug_level > 0 THEN
188: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.SET_ITEM_FOR_IUE' ) ;
189:
190: /*sdatti*/
191: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
192: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
187: IF l_debug_level > 0 THEN
188: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.SET_ITEM_FOR_IUE' ) ;
189:
190: /*sdatti*/
191: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
192: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
193: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
194: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
195: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
188: oe_debug_pub.add( 'ENTERING OE_ORDER_PRICE_PVT.SET_ITEM_FOR_IUE' ) ;
189:
190: /*sdatti*/
191: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
192: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
193: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
194: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
195: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
196:
189:
190: /*sdatti*/
191: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
192: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
193: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
194: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
195: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
196:
197:
190: /*sdatti*/
191: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
192: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
193: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
194: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
195: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
196:
197:
198: END IF;
191: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.INVENTORY_ITEM_ID,1);
192: oe_debug_pub.ADD('px_line_rec.original_inventory_item_id:'||px_line_rec.original_INVENTORY_ITEM_ID,1);
193: oe_debug_pub.ADD('px_line_rec.original_ordered_item_id:'||px_line_rec.ordered_item_id,1);
194: oe_debug_pub.ADD('px_line_rec.original_item_identifier_type:'||px_line_rec.item_identifier_type,1);
195: oe_debug_pub.ADD('px_line_rec.original_ordered_item:'||px_line_rec.ordered_item,1);
196:
197:
198: END IF;
199:
209:
210: -- There is an item upgrade for this line
211: px_line_rec.inventory_item_id := p_related_item_id;
212: IF l_debug_level > 0 THEN
213: oe_debug_pub.add( 'PX_LINE_REC.INVENTORY_ITEM_ID ='||PX_LINE_REC.INVENTORY_ITEM_ID ) ;
214: END IF;
215: px_line_rec.item_identifier_type := 'INT'; --bug 2281351
216: If px_line_rec.item_identifier_type ='INT' then
217: px_line_rec.ordered_item_id := p_related_item_id;
225: Null;
226: End;
227: End If;
228: IF l_debug_level > 0 THEN
229: oe_debug_pub.add( 'EXITING OE_ORDER_ADJ_PVT.SET_ITEM_FOR_IUE' ) ;
230: END IF;
231: end set_item_for_iue;
232:
233:
239: l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
240: l_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type; --Bug 13573144
241: l_return_status VARCHAR2(30);
242: l_index NUMBER;
243: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
244:
245: begin
246: l_Line_Adj_rec.operation := OE_GLOBALS.G_OPR_DELETE;
247: l_Line_Adj_rec.price_adjustment_id := p_price_adjustment_id;
247: l_Line_Adj_rec.price_adjustment_id := p_price_adjustment_id;
248: --Bug 13573144
249: if p_modifier_level_code <> 'ORDER' THEN
250: IF l_debug_level > 0 THEN
251: oe_debug_pub.add('Line Level Adjustment');
252: END IF;
253: --End of Bug 13573144
254: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
255: p_line_adj_rec =>l_line_adj_rec,
259: x_return_status => l_return_status);
260: --Bug 13573144
261: ELSE
262: IF l_debug_level > 0 THEN
263: oe_debug_pub.add('Header Level Adjustment');
264: END IF;
265: l_Header_Adj_rec.operation := OE_GLOBALS.G_OPR_DELETE;
266: l_Header_Adj_rec.price_adjustment_id := p_price_adjustment_id;
267: OE_ORDER_UTIL.Update_Global_Picture(p_Upd_New_Rec_If_Exists => True,
272: x_return_status => l_return_status);
273: end if;
274: --End of Bug 13573144
275: IF l_debug_level > 0 THEN
276: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_ADV_PRICE_PVT.DELETE_ATTRIBS_FOR_IUE IS: ' || L_RETURN_STATUS ) ;
277: END IF;
278:
279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
280:
278:
279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
280:
281: IF l_debug_level > 0 THEN
282: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
283: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.DELETE_ATTRIBS_FOR_IUE' , 1 ) ;
284: END IF;
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
279: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
280:
281: IF l_debug_level > 0 THEN
282: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
283: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.DELETE_ATTRIBS_FOR_IUE' , 1 ) ;
284: END IF;
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
287: IF l_debug_level > 0 THEN
284: END IF;
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
287: IF l_debug_level > 0 THEN
288: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ADV_PRICE_PVT.DELETE_ATTRIBS_FOR_IUE' ) ;
289: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS' , 1 ) ;
290: END IF;
291: RAISE FND_API.G_EXC_ERROR;
292: END IF;
285: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
287: IF l_debug_level > 0 THEN
288: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ADV_PRICE_PVT.DELETE_ATTRIBS_FOR_IUE' ) ;
289: oe_debug_pub.add( 'EXITING OE_ORDER_PRICE_PVT.DELETE_DEPENDENTS' , 1 ) ;
290: END IF;
291: RAISE FND_API.G_EXC_ERROR;
292: END IF;
293:
343: l_header_id number := oe_order_cache.g_header_rec.header_id;
344: l_mod_line_id NUMBER;
345:
346: --
347: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
348: --
349: BEGIN
350:
351:
355:
356: -- AmyIUE: let's revert back the following way
357: FOR i in revert_back_items LOOP
358: IF l_debug_level > 0 THEN
359: oe_debug_pub.add( 'REVERT BACK ITEM'||I.LINE_ID ) ;
360: END IF;
361: -- 8631297
362: l_mod_line_id := MOD(i.line_id,G_BINARY_LIMIT);
363: oe_debug_pub.add( ' mod line id :'|| l_mod_line_id,1);
359: oe_debug_pub.add( 'REVERT BACK ITEM'||I.LINE_ID ) ;
360: END IF;
361: -- 8631297
362: l_mod_line_id := MOD(i.line_id,G_BINARY_LIMIT);
363: oe_debug_pub.add( ' mod line id :'|| l_mod_line_id,1);
364: oe_debug_pub.add( 'line id :'|| G_PRICE_LINE_ID_TBL(l_mod_line_id));
365:
366: -- 8631297
367: -- Replaced i.line_id with l_mod_line_id
360: END IF;
361: -- 8631297
362: l_mod_line_id := MOD(i.line_id,G_BINARY_LIMIT);
363: oe_debug_pub.add( ' mod line id :'|| l_mod_line_id,1);
364: oe_debug_pub.add( 'line id :'|| G_PRICE_LINE_ID_TBL(l_mod_line_id));
365:
366: -- 8631297
367: -- Replaced i.line_id with l_mod_line_id
368: --bug 2858712
390: FOR i in upgraded_items LOOP
391:
392: -- 8631297
393: l_mod_line_id := MOD(i.line_id,G_BINARY_LIMIT);
394: oe_debug_pub.add( ' mod line id :'|| l_mod_line_id,1);
395:
396: /* change i.line_index - l_header_id with i.line_id */
397:
398: -- 8631297
623: );
624:
625: --AND ldets.pricing_status_code = QP_PREQ_GRP.G_STATUS_NEW
626: IF l_debug_level > 0 THEN
627: oe_debug_pub.add( 'in upgraded items cursor');
628: oe_debug_pub.add( 'INSERTED '||SQL%ROWCOUNT||' ADJUSTMENTS' ) ;
629: END IF;
630: END IF;
631: END IF;
624:
625: --AND ldets.pricing_status_code = QP_PREQ_GRP.G_STATUS_NEW
626: IF l_debug_level > 0 THEN
627: oe_debug_pub.add( 'in upgraded items cursor');
628: oe_debug_pub.add( 'INSERTED '||SQL%ROWCOUNT||' ADJUSTMENTS' ) ;
629: END IF;
630: END IF;
631: END IF;
632: END LOOP;
754:
755: l_query_executed VARCHAR2(1) := 'N';
756: --End of Bug 13573144
757: --
758: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
759: --
760: BEGIN
761: IF l_debug_level > 0 THEN
762: oe_debug_pub.add( 'IN TERMS SUBSTITUTION' , 1 ) ;
758: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
759: --
760: BEGIN
761: IF l_debug_level > 0 THEN
762: oe_debug_pub.add( 'IN TERMS SUBSTITUTION' , 1 ) ;
763: END IF;
764:
765: --Bug 13573144
766: IF nvl(QP_UTIL_PUB.Basic_Pricing_Setup, 'N') = 'Y' THEN
764:
765: --Bug 13573144
766: IF nvl(QP_UTIL_PUB.Basic_Pricing_Setup, 'N') = 'Y' THEN
767: IF l_debug_level > 0 THEN
768: oe_debug_pub.add('basic pricing setup Y');
769: END IF;
770: return;
771: END IF;
772: --End of Bug 13573144
772: --End of Bug 13573144
773:
774: If G_DEBUG Then
775: for l in ldets_cur loop
776: oe_debug_pub.add( 'LINE_INDEX='||L.LINE_INDEX , 1 ) ;
777: oe_debug_pub.add( 'LINE_DETAIL_INDEX='||L.LINE_DETAIL_INDEX , 1 ) ;
778: oe_debug_pub.add( 'LINE_DETAIL_TYPE_CODE='||L.LINE_DETAIL_TYPE_CODE , 1 ) ;
779: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_ID='||L.CREATED_FROM_LIST_LINE_ID , 1 ) ;
780: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_TYPE='||L.CREATED_FROM_LIST_LINE_TYPE , 1 ) ;
773:
774: If G_DEBUG Then
775: for l in ldets_cur loop
776: oe_debug_pub.add( 'LINE_INDEX='||L.LINE_INDEX , 1 ) ;
777: oe_debug_pub.add( 'LINE_DETAIL_INDEX='||L.LINE_DETAIL_INDEX , 1 ) ;
778: oe_debug_pub.add( 'LINE_DETAIL_TYPE_CODE='||L.LINE_DETAIL_TYPE_CODE , 1 ) ;
779: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_ID='||L.CREATED_FROM_LIST_LINE_ID , 1 ) ;
780: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_TYPE='||L.CREATED_FROM_LIST_LINE_TYPE , 1 ) ;
781: oe_debug_pub.add( 'CREATED_FROM_LIST_TYPE_CODE='||L.CREATED_FROM_LIST_TYPE_CODE , 1 ) ;
774: If G_DEBUG Then
775: for l in ldets_cur loop
776: oe_debug_pub.add( 'LINE_INDEX='||L.LINE_INDEX , 1 ) ;
777: oe_debug_pub.add( 'LINE_DETAIL_INDEX='||L.LINE_DETAIL_INDEX , 1 ) ;
778: oe_debug_pub.add( 'LINE_DETAIL_TYPE_CODE='||L.LINE_DETAIL_TYPE_CODE , 1 ) ;
779: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_ID='||L.CREATED_FROM_LIST_LINE_ID , 1 ) ;
780: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_TYPE='||L.CREATED_FROM_LIST_LINE_TYPE , 1 ) ;
781: oe_debug_pub.add( 'CREATED_FROM_LIST_TYPE_CODE='||L.CREATED_FROM_LIST_TYPE_CODE , 1 ) ;
782: oe_debug_pub.add( 'SUBSTITUTION_TYPE_CODE='||L.SUBSTITUTION_TYPE_CODE , 1 ) ;
775: for l in ldets_cur loop
776: oe_debug_pub.add( 'LINE_INDEX='||L.LINE_INDEX , 1 ) ;
777: oe_debug_pub.add( 'LINE_DETAIL_INDEX='||L.LINE_DETAIL_INDEX , 1 ) ;
778: oe_debug_pub.add( 'LINE_DETAIL_TYPE_CODE='||L.LINE_DETAIL_TYPE_CODE , 1 ) ;
779: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_ID='||L.CREATED_FROM_LIST_LINE_ID , 1 ) ;
780: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_TYPE='||L.CREATED_FROM_LIST_LINE_TYPE , 1 ) ;
781: oe_debug_pub.add( 'CREATED_FROM_LIST_TYPE_CODE='||L.CREATED_FROM_LIST_TYPE_CODE , 1 ) ;
782: oe_debug_pub.add( 'SUBSTITUTION_TYPE_CODE='||L.SUBSTITUTION_TYPE_CODE , 1 ) ;
783: oe_debug_pub.add( 'SUBSTITUTION_VALUE_FROM='||L.SUBSTITUTION_VALUE_FROM , 1 ) ;
776: oe_debug_pub.add( 'LINE_INDEX='||L.LINE_INDEX , 1 ) ;
777: oe_debug_pub.add( 'LINE_DETAIL_INDEX='||L.LINE_DETAIL_INDEX , 1 ) ;
778: oe_debug_pub.add( 'LINE_DETAIL_TYPE_CODE='||L.LINE_DETAIL_TYPE_CODE , 1 ) ;
779: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_ID='||L.CREATED_FROM_LIST_LINE_ID , 1 ) ;
780: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_TYPE='||L.CREATED_FROM_LIST_LINE_TYPE , 1 ) ;
781: oe_debug_pub.add( 'CREATED_FROM_LIST_TYPE_CODE='||L.CREATED_FROM_LIST_TYPE_CODE , 1 ) ;
782: oe_debug_pub.add( 'SUBSTITUTION_TYPE_CODE='||L.SUBSTITUTION_TYPE_CODE , 1 ) ;
783: oe_debug_pub.add( 'SUBSTITUTION_VALUE_FROM='||L.SUBSTITUTION_VALUE_FROM , 1 ) ;
784: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO='||L.SUBSTITUTION_VALUE_TO , 1 ) ;
777: oe_debug_pub.add( 'LINE_DETAIL_INDEX='||L.LINE_DETAIL_INDEX , 1 ) ;
778: oe_debug_pub.add( 'LINE_DETAIL_TYPE_CODE='||L.LINE_DETAIL_TYPE_CODE , 1 ) ;
779: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_ID='||L.CREATED_FROM_LIST_LINE_ID , 1 ) ;
780: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_TYPE='||L.CREATED_FROM_LIST_LINE_TYPE , 1 ) ;
781: oe_debug_pub.add( 'CREATED_FROM_LIST_TYPE_CODE='||L.CREATED_FROM_LIST_TYPE_CODE , 1 ) ;
782: oe_debug_pub.add( 'SUBSTITUTION_TYPE_CODE='||L.SUBSTITUTION_TYPE_CODE , 1 ) ;
783: oe_debug_pub.add( 'SUBSTITUTION_VALUE_FROM='||L.SUBSTITUTION_VALUE_FROM , 1 ) ;
784: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO='||L.SUBSTITUTION_VALUE_TO , 1 ) ;
785: oe_debug_pub.add( 'PROCESSED_FLAG='||L.PROCESSED_FLAG , 1 ) ;
778: oe_debug_pub.add( 'LINE_DETAIL_TYPE_CODE='||L.LINE_DETAIL_TYPE_CODE , 1 ) ;
779: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_ID='||L.CREATED_FROM_LIST_LINE_ID , 1 ) ;
780: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_TYPE='||L.CREATED_FROM_LIST_LINE_TYPE , 1 ) ;
781: oe_debug_pub.add( 'CREATED_FROM_LIST_TYPE_CODE='||L.CREATED_FROM_LIST_TYPE_CODE , 1 ) ;
782: oe_debug_pub.add( 'SUBSTITUTION_TYPE_CODE='||L.SUBSTITUTION_TYPE_CODE , 1 ) ;
783: oe_debug_pub.add( 'SUBSTITUTION_VALUE_FROM='||L.SUBSTITUTION_VALUE_FROM , 1 ) ;
784: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO='||L.SUBSTITUTION_VALUE_TO , 1 ) ;
785: oe_debug_pub.add( 'PROCESSED_FLAG='||L.PROCESSED_FLAG , 1 ) ;
786: oe_debug_pub.add( 'PRICING_STATUS_CODE='||L.PRICING_STATUS_CODE , 1 ) ;
779: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_ID='||L.CREATED_FROM_LIST_LINE_ID , 1 ) ;
780: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_TYPE='||L.CREATED_FROM_LIST_LINE_TYPE , 1 ) ;
781: oe_debug_pub.add( 'CREATED_FROM_LIST_TYPE_CODE='||L.CREATED_FROM_LIST_TYPE_CODE , 1 ) ;
782: oe_debug_pub.add( 'SUBSTITUTION_TYPE_CODE='||L.SUBSTITUTION_TYPE_CODE , 1 ) ;
783: oe_debug_pub.add( 'SUBSTITUTION_VALUE_FROM='||L.SUBSTITUTION_VALUE_FROM , 1 ) ;
784: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO='||L.SUBSTITUTION_VALUE_TO , 1 ) ;
785: oe_debug_pub.add( 'PROCESSED_FLAG='||L.PROCESSED_FLAG , 1 ) ;
786: oe_debug_pub.add( 'PRICING_STATUS_CODE='||L.PRICING_STATUS_CODE , 1 ) ;
787: oe_debug_pub.add( 'PRICING_PHASE_ID='||L.PRICING_PHASE_ID , 1 ) ;
780: oe_debug_pub.add( 'CREATED_FROM_LIST_LINE_TYPE='||L.CREATED_FROM_LIST_LINE_TYPE , 1 ) ;
781: oe_debug_pub.add( 'CREATED_FROM_LIST_TYPE_CODE='||L.CREATED_FROM_LIST_TYPE_CODE , 1 ) ;
782: oe_debug_pub.add( 'SUBSTITUTION_TYPE_CODE='||L.SUBSTITUTION_TYPE_CODE , 1 ) ;
783: oe_debug_pub.add( 'SUBSTITUTION_VALUE_FROM='||L.SUBSTITUTION_VALUE_FROM , 1 ) ;
784: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO='||L.SUBSTITUTION_VALUE_TO , 1 ) ;
785: oe_debug_pub.add( 'PROCESSED_FLAG='||L.PROCESSED_FLAG , 1 ) ;
786: oe_debug_pub.add( 'PRICING_STATUS_CODE='||L.PRICING_STATUS_CODE , 1 ) ;
787: oe_debug_pub.add( 'PRICING_PHASE_ID='||L.PRICING_PHASE_ID , 1 ) ;
788: oe_debug_pub.add( 'APPLIED_FLAG='||L.APPLIED_FLAG , 1 ) ;
781: oe_debug_pub.add( 'CREATED_FROM_LIST_TYPE_CODE='||L.CREATED_FROM_LIST_TYPE_CODE , 1 ) ;
782: oe_debug_pub.add( 'SUBSTITUTION_TYPE_CODE='||L.SUBSTITUTION_TYPE_CODE , 1 ) ;
783: oe_debug_pub.add( 'SUBSTITUTION_VALUE_FROM='||L.SUBSTITUTION_VALUE_FROM , 1 ) ;
784: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO='||L.SUBSTITUTION_VALUE_TO , 1 ) ;
785: oe_debug_pub.add( 'PROCESSED_FLAG='||L.PROCESSED_FLAG , 1 ) ;
786: oe_debug_pub.add( 'PRICING_STATUS_CODE='||L.PRICING_STATUS_CODE , 1 ) ;
787: oe_debug_pub.add( 'PRICING_PHASE_ID='||L.PRICING_PHASE_ID , 1 ) ;
788: oe_debug_pub.add( 'APPLIED_FLAG='||L.APPLIED_FLAG , 1 ) ;
789: oe_debug_pub.add( 'PROCESS_CODE='||L.PROCESS_CODE , 1 ) ;
782: oe_debug_pub.add( 'SUBSTITUTION_TYPE_CODE='||L.SUBSTITUTION_TYPE_CODE , 1 ) ;
783: oe_debug_pub.add( 'SUBSTITUTION_VALUE_FROM='||L.SUBSTITUTION_VALUE_FROM , 1 ) ;
784: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO='||L.SUBSTITUTION_VALUE_TO , 1 ) ;
785: oe_debug_pub.add( 'PROCESSED_FLAG='||L.PROCESSED_FLAG , 1 ) ;
786: oe_debug_pub.add( 'PRICING_STATUS_CODE='||L.PRICING_STATUS_CODE , 1 ) ;
787: oe_debug_pub.add( 'PRICING_PHASE_ID='||L.PRICING_PHASE_ID , 1 ) ;
788: oe_debug_pub.add( 'APPLIED_FLAG='||L.APPLIED_FLAG , 1 ) ;
789: oe_debug_pub.add( 'PROCESS_CODE='||L.PROCESS_CODE , 1 ) ;
790: oe_debug_pub.add( 'UPDATED_FLAG='||L.UPDATED_FLAG , 1 ) ;
783: oe_debug_pub.add( 'SUBSTITUTION_VALUE_FROM='||L.SUBSTITUTION_VALUE_FROM , 1 ) ;
784: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO='||L.SUBSTITUTION_VALUE_TO , 1 ) ;
785: oe_debug_pub.add( 'PROCESSED_FLAG='||L.PROCESSED_FLAG , 1 ) ;
786: oe_debug_pub.add( 'PRICING_STATUS_CODE='||L.PRICING_STATUS_CODE , 1 ) ;
787: oe_debug_pub.add( 'PRICING_PHASE_ID='||L.PRICING_PHASE_ID , 1 ) ;
788: oe_debug_pub.add( 'APPLIED_FLAG='||L.APPLIED_FLAG , 1 ) ;
789: oe_debug_pub.add( 'PROCESS_CODE='||L.PROCESS_CODE , 1 ) ;
790: oe_debug_pub.add( 'UPDATED_FLAG='||L.UPDATED_FLAG , 1 ) ;
791:
784: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO='||L.SUBSTITUTION_VALUE_TO , 1 ) ;
785: oe_debug_pub.add( 'PROCESSED_FLAG='||L.PROCESSED_FLAG , 1 ) ;
786: oe_debug_pub.add( 'PRICING_STATUS_CODE='||L.PRICING_STATUS_CODE , 1 ) ;
787: oe_debug_pub.add( 'PRICING_PHASE_ID='||L.PRICING_PHASE_ID , 1 ) ;
788: oe_debug_pub.add( 'APPLIED_FLAG='||L.APPLIED_FLAG , 1 ) ;
789: oe_debug_pub.add( 'PROCESS_CODE='||L.PROCESS_CODE , 1 ) ;
790: oe_debug_pub.add( 'UPDATED_FLAG='||L.UPDATED_FLAG , 1 ) ;
791:
792: end loop;
785: oe_debug_pub.add( 'PROCESSED_FLAG='||L.PROCESSED_FLAG , 1 ) ;
786: oe_debug_pub.add( 'PRICING_STATUS_CODE='||L.PRICING_STATUS_CODE , 1 ) ;
787: oe_debug_pub.add( 'PRICING_PHASE_ID='||L.PRICING_PHASE_ID , 1 ) ;
788: oe_debug_pub.add( 'APPLIED_FLAG='||L.APPLIED_FLAG , 1 ) ;
789: oe_debug_pub.add( 'PROCESS_CODE='||L.PROCESS_CODE , 1 ) ;
790: oe_debug_pub.add( 'UPDATED_FLAG='||L.UPDATED_FLAG , 1 ) ;
791:
792: end loop;
793:
786: oe_debug_pub.add( 'PRICING_STATUS_CODE='||L.PRICING_STATUS_CODE , 1 ) ;
787: oe_debug_pub.add( 'PRICING_PHASE_ID='||L.PRICING_PHASE_ID , 1 ) ;
788: oe_debug_pub.add( 'APPLIED_FLAG='||L.APPLIED_FLAG , 1 ) ;
789: oe_debug_pub.add( 'PROCESS_CODE='||L.PROCESS_CODE , 1 ) ;
790: oe_debug_pub.add( 'UPDATED_FLAG='||L.UPDATED_FLAG , 1 ) ;
791:
792: end loop;
793:
794: for k in test loop
791:
792: end loop;
793:
794: for k in test loop
795: oe_debug_pub.add( 'LINE_INDEX = '||K.LINE_INDEX , 1 ) ;
796: oe_debug_pub.add( 'SUBSTITUTION_ATTRIBUTE = '||K.SUBSTITUTION_ATTRIBUTE , 1 ) ;
797: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO = '||K.SUBSTITUTION_VALUE_TO , 1 ) ;
798: oe_debug_pub.add( 'PROCESS_CODE = '||K.PROCESS_CODE , 1 ) ;
799: end loop;
792: end loop;
793:
794: for k in test loop
795: oe_debug_pub.add( 'LINE_INDEX = '||K.LINE_INDEX , 1 ) ;
796: oe_debug_pub.add( 'SUBSTITUTION_ATTRIBUTE = '||K.SUBSTITUTION_ATTRIBUTE , 1 ) ;
797: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO = '||K.SUBSTITUTION_VALUE_TO , 1 ) ;
798: oe_debug_pub.add( 'PROCESS_CODE = '||K.PROCESS_CODE , 1 ) ;
799: end loop;
800: End If; --end if for g_debug
793:
794: for k in test loop
795: oe_debug_pub.add( 'LINE_INDEX = '||K.LINE_INDEX , 1 ) ;
796: oe_debug_pub.add( 'SUBSTITUTION_ATTRIBUTE = '||K.SUBSTITUTION_ATTRIBUTE , 1 ) ;
797: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO = '||K.SUBSTITUTION_VALUE_TO , 1 ) ;
798: oe_debug_pub.add( 'PROCESS_CODE = '||K.PROCESS_CODE , 1 ) ;
799: end loop;
800: End If; --end if for g_debug
801:
794: for k in test loop
795: oe_debug_pub.add( 'LINE_INDEX = '||K.LINE_INDEX , 1 ) ;
796: oe_debug_pub.add( 'SUBSTITUTION_ATTRIBUTE = '||K.SUBSTITUTION_ATTRIBUTE , 1 ) ;
797: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO = '||K.SUBSTITUTION_VALUE_TO , 1 ) ;
798: oe_debug_pub.add( 'PROCESS_CODE = '||K.PROCESS_CODE , 1 ) ;
799: end loop;
800: End If; --end if for g_debug
801:
802: --Bug 13573144
801:
802: --Bug 13573144
803: FOR i in revert_back_tsn_order LOOP
804: IF l_debug_level > 0 THEN
805: oe_debug_pub.add('i.line_id : '||i.line_id);
806: oe_debug_pub.add('i.SUBSTITUTION_ATTRIBUTE : '||i.SUBSTITUTION_ATTRIBUTE);
807: oe_debug_pub.add('i.MODIFIER_LEVEL_CODE : '||i.MODIFIER_LEVEL_CODE);
808: oe_debug_pub.add('i.header_id : '||i.header_id);
809: oe_debug_pub.add('i.modified_from : '||i.modified_From);
802: --Bug 13573144
803: FOR i in revert_back_tsn_order LOOP
804: IF l_debug_level > 0 THEN
805: oe_debug_pub.add('i.line_id : '||i.line_id);
806: oe_debug_pub.add('i.SUBSTITUTION_ATTRIBUTE : '||i.SUBSTITUTION_ATTRIBUTE);
807: oe_debug_pub.add('i.MODIFIER_LEVEL_CODE : '||i.MODIFIER_LEVEL_CODE);
808: oe_debug_pub.add('i.header_id : '||i.header_id);
809: oe_debug_pub.add('i.modified_from : '||i.modified_From);
810: oe_debug_pub.add('i.price_adjustment_id : '||i.price_adjustment_id);
803: FOR i in revert_back_tsn_order LOOP
804: IF l_debug_level > 0 THEN
805: oe_debug_pub.add('i.line_id : '||i.line_id);
806: oe_debug_pub.add('i.SUBSTITUTION_ATTRIBUTE : '||i.SUBSTITUTION_ATTRIBUTE);
807: oe_debug_pub.add('i.MODIFIER_LEVEL_CODE : '||i.MODIFIER_LEVEL_CODE);
808: oe_debug_pub.add('i.header_id : '||i.header_id);
809: oe_debug_pub.add('i.modified_from : '||i.modified_From);
810: oe_debug_pub.add('i.price_adjustment_id : '||i.price_adjustment_id);
811: END IF;
804: IF l_debug_level > 0 THEN
805: oe_debug_pub.add('i.line_id : '||i.line_id);
806: oe_debug_pub.add('i.SUBSTITUTION_ATTRIBUTE : '||i.SUBSTITUTION_ATTRIBUTE);
807: oe_debug_pub.add('i.MODIFIER_LEVEL_CODE : '||i.MODIFIER_LEVEL_CODE);
808: oe_debug_pub.add('i.header_id : '||i.header_id);
809: oe_debug_pub.add('i.modified_from : '||i.modified_From);
810: oe_debug_pub.add('i.price_adjustment_id : '||i.price_adjustment_id);
811: END IF;
812: if i.Substitution_Attribute ='QUALIFIER_ATTRIBUTE1' Then
805: oe_debug_pub.add('i.line_id : '||i.line_id);
806: oe_debug_pub.add('i.SUBSTITUTION_ATTRIBUTE : '||i.SUBSTITUTION_ATTRIBUTE);
807: oe_debug_pub.add('i.MODIFIER_LEVEL_CODE : '||i.MODIFIER_LEVEL_CODE);
808: oe_debug_pub.add('i.header_id : '||i.header_id);
809: oe_debug_pub.add('i.modified_from : '||i.modified_From);
810: oe_debug_pub.add('i.price_adjustment_id : '||i.price_adjustment_id);
811: END IF;
812: if i.Substitution_Attribute ='QUALIFIER_ATTRIBUTE1' Then
813: px_header_rec.payment_term_id := i.modified_from;
806: oe_debug_pub.add('i.SUBSTITUTION_ATTRIBUTE : '||i.SUBSTITUTION_ATTRIBUTE);
807: oe_debug_pub.add('i.MODIFIER_LEVEL_CODE : '||i.MODIFIER_LEVEL_CODE);
808: oe_debug_pub.add('i.header_id : '||i.header_id);
809: oe_debug_pub.add('i.modified_from : '||i.modified_From);
810: oe_debug_pub.add('i.price_adjustment_id : '||i.price_adjustment_id);
811: END IF;
812: if i.Substitution_Attribute ='QUALIFIER_ATTRIBUTE1' Then
813: px_header_rec.payment_term_id := i.modified_from;
814: elsif i.Substitution_Attribute ='QUALIFIER_ATTRIBUTE11' THEN
820: -- LOOP through all lines to see if terms need to be reverted back for lines
821: j := px_line_tbl.FIRST;
822: WHILE j Is Not Null loop
823: IF l_debug_level > 0 THEN
824: oe_debug_pub.add( 'J = '||J , 1 ) ;
825: oe_debug_pub.add( 'LINE ID = '||PX_LINE_TBL ( J ) .LINE_ID ,1 ) ;
826: END IF;
827: --update line only if open and not cancelled
828: if( nvl(px_line_tbl(j).cancelled_flag,'N') <> 'Y' and nvl(px_line_tbl(j).open_flag,'Y') <> 'N' ) THEN
821: j := px_line_tbl.FIRST;
822: WHILE j Is Not Null loop
823: IF l_debug_level > 0 THEN
824: oe_debug_pub.add( 'J = '||J , 1 ) ;
825: oe_debug_pub.add( 'LINE ID = '||PX_LINE_TBL ( J ) .LINE_ID ,1 ) ;
826: END IF;
827: --update line only if open and not cancelled
828: if( nvl(px_line_tbl(j).cancelled_flag,'N') <> 'Y' and nvl(px_line_tbl(j).open_flag,'Y') <> 'N' ) THEN
829: select count(*) into vcount from oe_price_adjustments where
844: END IF;
845: j := px_line_tbl.Next(j);
846:
847: IF l_debug_level > 0 THEN
848: oe_debug_pub.add( 'J = END OF LOOP '||J , 1 ) ;
849: END IF;
850: END LOOP;
851:
852: DELETE FROM OE_PRICE_ADJUSTMENTS
861: FOR i in revert_back_tsn_line LOOP
862: l_mod_line_id := MOD(i.line_id,G_BINARY_LIMIT);
863:
864: IF l_debug_level > 0 THEN
865: oe_debug_pub.add( ' mod line id :'|| l_mod_line_id,1);
866: oe_debug_pub.add('i.SUBSTITUTION_ATTRIBUTE : '||i.SUBSTITUTION_ATTRIBUTE);
867: oe_debug_pub.add('i.MODIFIER_LEVEL_CODE : '||i.MODIFIER_LEVEL_CODE);
868: oe_debug_pub.add('i.header_id : '||i.header_id);
869: oe_debug_pub.add('i.modified_from : '||i.modified_From);
862: l_mod_line_id := MOD(i.line_id,G_BINARY_LIMIT);
863:
864: IF l_debug_level > 0 THEN
865: oe_debug_pub.add( ' mod line id :'|| l_mod_line_id,1);
866: oe_debug_pub.add('i.SUBSTITUTION_ATTRIBUTE : '||i.SUBSTITUTION_ATTRIBUTE);
867: oe_debug_pub.add('i.MODIFIER_LEVEL_CODE : '||i.MODIFIER_LEVEL_CODE);
868: oe_debug_pub.add('i.header_id : '||i.header_id);
869: oe_debug_pub.add('i.modified_from : '||i.modified_From);
870: oe_debug_pub.add('i.price_adjustment_id : '||i.price_adjustment_id);
863:
864: IF l_debug_level > 0 THEN
865: oe_debug_pub.add( ' mod line id :'|| l_mod_line_id,1);
866: oe_debug_pub.add('i.SUBSTITUTION_ATTRIBUTE : '||i.SUBSTITUTION_ATTRIBUTE);
867: oe_debug_pub.add('i.MODIFIER_LEVEL_CODE : '||i.MODIFIER_LEVEL_CODE);
868: oe_debug_pub.add('i.header_id : '||i.header_id);
869: oe_debug_pub.add('i.modified_from : '||i.modified_From);
870: oe_debug_pub.add('i.price_adjustment_id : '||i.price_adjustment_id);
871: END IF;
864: IF l_debug_level > 0 THEN
865: oe_debug_pub.add( ' mod line id :'|| l_mod_line_id,1);
866: oe_debug_pub.add('i.SUBSTITUTION_ATTRIBUTE : '||i.SUBSTITUTION_ATTRIBUTE);
867: oe_debug_pub.add('i.MODIFIER_LEVEL_CODE : '||i.MODIFIER_LEVEL_CODE);
868: oe_debug_pub.add('i.header_id : '||i.header_id);
869: oe_debug_pub.add('i.modified_from : '||i.modified_From);
870: oe_debug_pub.add('i.price_adjustment_id : '||i.price_adjustment_id);
871: END IF;
872: IF l_query_executed = 'N' THEN
865: oe_debug_pub.add( ' mod line id :'|| l_mod_line_id,1);
866: oe_debug_pub.add('i.SUBSTITUTION_ATTRIBUTE : '||i.SUBSTITUTION_ATTRIBUTE);
867: oe_debug_pub.add('i.MODIFIER_LEVEL_CODE : '||i.MODIFIER_LEVEL_CODE);
868: oe_debug_pub.add('i.header_id : '||i.header_id);
869: oe_debug_pub.add('i.modified_from : '||i.modified_From);
870: oe_debug_pub.add('i.price_adjustment_id : '||i.price_adjustment_id);
871: END IF;
872: IF l_query_executed = 'N' THEN
873: If l_debug_level > 0 Then
866: oe_debug_pub.add('i.SUBSTITUTION_ATTRIBUTE : '||i.SUBSTITUTION_ATTRIBUTE);
867: oe_debug_pub.add('i.MODIFIER_LEVEL_CODE : '||i.MODIFIER_LEVEL_CODE);
868: oe_debug_pub.add('i.header_id : '||i.header_id);
869: oe_debug_pub.add('i.modified_from : '||i.modified_From);
870: oe_debug_pub.add('i.price_adjustment_id : '||i.price_adjustment_id);
871: END IF;
872: IF l_query_executed = 'N' THEN
873: If l_debug_level > 0 Then
874: oe_debug_pub.add('executing the query to get order tsn');
870: oe_debug_pub.add('i.price_adjustment_id : '||i.price_adjustment_id);
871: END IF;
872: IF l_query_executed = 'N' THEN
873: If l_debug_level > 0 Then
874: oe_debug_pub.add('executing the query to get order tsn');
875: End If;
876: for k in order_level_adj(i.header_id) Loop
877: If k.substitution_attribute = 'QUALIFIER_ATTRIBUTE1' Then
878: ord_pmt_term := k.modified_to;
884: end loop;
885: l_query_executed := 'Y';
886: END IF;
887: IF l_debug_level > 0 THEN
888: oe_debug_pub.add( 'REVERT BACK TSN'||I.LINE_ID ) ;
889: END IF;
890: IF i.substitution_attribute = 'QUALIFIER_ATTRIBUTE1' THEN
891: IF ord_pmt_term IS NOT NULL THEN
892: l_mod_to := ord_pmt_term;
922: --6965002 end
923:
924: FOR i in new_terms LOOP
925: IF l_debug_level > 0 THEN
926: oe_debug_pub.add( 'L_HEADER_ID = '||L_HEADER_ID , 1 ) ;
927: oe_debug_pub.add( 'LINE INDEX = '||I.LINE_INDEX , 1 ) ;
928: oe_debug_pub.add( 'SUBSTITUTION_ATTRIBUTE = '||I.SUBSTITUTION_ATTRIBUTE , 1 ) ;
929: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO = '||I.SUBSTITUTION_VALUE_TO , 1 ) ;
930: oe_debug_pub.add('change rason code = '||I.CHANGE_REASON_CODE);
923:
924: FOR i in new_terms LOOP
925: IF l_debug_level > 0 THEN
926: oe_debug_pub.add( 'L_HEADER_ID = '||L_HEADER_ID , 1 ) ;
927: oe_debug_pub.add( 'LINE INDEX = '||I.LINE_INDEX , 1 ) ;
928: oe_debug_pub.add( 'SUBSTITUTION_ATTRIBUTE = '||I.SUBSTITUTION_ATTRIBUTE , 1 ) ;
929: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO = '||I.SUBSTITUTION_VALUE_TO , 1 ) ;
930: oe_debug_pub.add('change rason code = '||I.CHANGE_REASON_CODE);
931: oe_debug_pub.add('change reason text = '||I.CHANGE_REASON_TEXT);
924: FOR i in new_terms LOOP
925: IF l_debug_level > 0 THEN
926: oe_debug_pub.add( 'L_HEADER_ID = '||L_HEADER_ID , 1 ) ;
927: oe_debug_pub.add( 'LINE INDEX = '||I.LINE_INDEX , 1 ) ;
928: oe_debug_pub.add( 'SUBSTITUTION_ATTRIBUTE = '||I.SUBSTITUTION_ATTRIBUTE , 1 ) ;
929: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO = '||I.SUBSTITUTION_VALUE_TO , 1 ) ;
930: oe_debug_pub.add('change rason code = '||I.CHANGE_REASON_CODE);
931: oe_debug_pub.add('change reason text = '||I.CHANGE_REASON_TEXT);
932: END IF;
925: IF l_debug_level > 0 THEN
926: oe_debug_pub.add( 'L_HEADER_ID = '||L_HEADER_ID , 1 ) ;
927: oe_debug_pub.add( 'LINE INDEX = '||I.LINE_INDEX , 1 ) ;
928: oe_debug_pub.add( 'SUBSTITUTION_ATTRIBUTE = '||I.SUBSTITUTION_ATTRIBUTE , 1 ) ;
929: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO = '||I.SUBSTITUTION_VALUE_TO , 1 ) ;
930: oe_debug_pub.add('change rason code = '||I.CHANGE_REASON_CODE);
931: oe_debug_pub.add('change reason text = '||I.CHANGE_REASON_TEXT);
932: END IF;
933:
926: oe_debug_pub.add( 'L_HEADER_ID = '||L_HEADER_ID , 1 ) ;
927: oe_debug_pub.add( 'LINE INDEX = '||I.LINE_INDEX , 1 ) ;
928: oe_debug_pub.add( 'SUBSTITUTION_ATTRIBUTE = '||I.SUBSTITUTION_ATTRIBUTE , 1 ) ;
929: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO = '||I.SUBSTITUTION_VALUE_TO , 1 ) ;
930: oe_debug_pub.add('change rason code = '||I.CHANGE_REASON_CODE);
931: oe_debug_pub.add('change reason text = '||I.CHANGE_REASON_TEXT);
932: END IF;
933:
934: -- for header level term substitution, needs to update all lines
927: oe_debug_pub.add( 'LINE INDEX = '||I.LINE_INDEX , 1 ) ;
928: oe_debug_pub.add( 'SUBSTITUTION_ATTRIBUTE = '||I.SUBSTITUTION_ATTRIBUTE , 1 ) ;
929: oe_debug_pub.add( 'SUBSTITUTION_VALUE_TO = '||I.SUBSTITUTION_VALUE_TO , 1 ) ;
930: oe_debug_pub.add('change rason code = '||I.CHANGE_REASON_CODE);
931: oe_debug_pub.add('change reason text = '||I.CHANGE_REASON_TEXT);
932: END IF;
933:
934: -- for header level term substitution, needs to update all lines
935: --IF (i.line_id = l_header_id and i.line_type_code = 'ORDER') THEN --Bug 13573144
967: -- LOOP through all lines, update terms on the line
968: j := px_line_tbl.FIRST;
969: WHILE j Is Not Null loop
970: IF l_debug_level > 0 THEN
971: oe_debug_pub.add( 'J = '||J , 1 ) ;
972: oe_debug_pub.add( 'LINE ID = '||PX_LINE_TBL ( J ) .LINE_ID , 1 ) ;
973: oe_debug_pub.add( 'INDEX IN SORTED TABLE = '||G_PRICE_LINE_ID_TBL(MOD( PX_LINE_TBL ( J ) .LINE_ID,G_BINARY_LIMIT)),1); -- BUG 8631297
974: END IF;
975:
968: j := px_line_tbl.FIRST;
969: WHILE j Is Not Null loop
970: IF l_debug_level > 0 THEN
971: oe_debug_pub.add( 'J = '||J , 1 ) ;
972: oe_debug_pub.add( 'LINE ID = '||PX_LINE_TBL ( J ) .LINE_ID , 1 ) ;
973: oe_debug_pub.add( 'INDEX IN SORTED TABLE = '||G_PRICE_LINE_ID_TBL(MOD( PX_LINE_TBL ( J ) .LINE_ID,G_BINARY_LIMIT)),1); -- BUG 8631297
974: END IF;
975:
976: If G_DEBUG Then
969: WHILE j Is Not Null loop
970: IF l_debug_level > 0 THEN
971: oe_debug_pub.add( 'J = '||J , 1 ) ;
972: oe_debug_pub.add( 'LINE ID = '||PX_LINE_TBL ( J ) .LINE_ID , 1 ) ;
973: oe_debug_pub.add( 'INDEX IN SORTED TABLE = '||G_PRICE_LINE_ID_TBL(MOD( PX_LINE_TBL ( J ) .LINE_ID,G_BINARY_LIMIT)),1); -- BUG 8631297
974: END IF;
975:
976: If G_DEBUG Then
977: for m in oe_price_adj_cur(px_line_tbl(j).line_id) loop
974: END IF;
975:
976: If G_DEBUG Then
977: for m in oe_price_adj_cur(px_line_tbl(j).line_id) loop
978: oe_debug_pub.add( 'PRICE_ADJUSTMENT_ID='||M.PRICE_ADJUSTMENT_ID , 1 ) ;
979: oe_debug_pub.add( 'LIST_LINE_ID='||M.LIST_LINE_ID , 1 ) ;
980: oe_debug_pub.add( 'PRICING_PHASE_ID='||M.PRICING_PHASE_ID , 1 ) ;
981: oe_debug_pub.add( 'MODIFIER_LEVEL_CODE='||M.MODIFIER_LEVEL_CODE , 1 ) ;
982: end loop;
975:
976: If G_DEBUG Then
977: for m in oe_price_adj_cur(px_line_tbl(j).line_id) loop
978: oe_debug_pub.add( 'PRICE_ADJUSTMENT_ID='||M.PRICE_ADJUSTMENT_ID , 1 ) ;
979: oe_debug_pub.add( 'LIST_LINE_ID='||M.LIST_LINE_ID , 1 ) ;
980: oe_debug_pub.add( 'PRICING_PHASE_ID='||M.PRICING_PHASE_ID , 1 ) ;
981: oe_debug_pub.add( 'MODIFIER_LEVEL_CODE='||M.MODIFIER_LEVEL_CODE , 1 ) ;
982: end loop;
983: End If;
976: If G_DEBUG Then
977: for m in oe_price_adj_cur(px_line_tbl(j).line_id) loop
978: oe_debug_pub.add( 'PRICE_ADJUSTMENT_ID='||M.PRICE_ADJUSTMENT_ID , 1 ) ;
979: oe_debug_pub.add( 'LIST_LINE_ID='||M.LIST_LINE_ID , 1 ) ;
980: oe_debug_pub.add( 'PRICING_PHASE_ID='||M.PRICING_PHASE_ID , 1 ) ;
981: oe_debug_pub.add( 'MODIFIER_LEVEL_CODE='||M.MODIFIER_LEVEL_CODE , 1 ) ;
982: end loop;
983: End If;
984:
977: for m in oe_price_adj_cur(px_line_tbl(j).line_id) loop
978: oe_debug_pub.add( 'PRICE_ADJUSTMENT_ID='||M.PRICE_ADJUSTMENT_ID , 1 ) ;
979: oe_debug_pub.add( 'LIST_LINE_ID='||M.LIST_LINE_ID , 1 ) ;
980: oe_debug_pub.add( 'PRICING_PHASE_ID='||M.PRICING_PHASE_ID , 1 ) ;
981: oe_debug_pub.add( 'MODIFIER_LEVEL_CODE='||M.MODIFIER_LEVEL_CODE , 1 ) ;
982: end loop;
983: End If;
984:
985: --bug 4271297 update line only if open and not cancelled
984:
985: --bug 4271297 update line only if open and not cancelled
986: if( nvl(px_line_tbl(j).cancelled_flag,'N') <> 'Y' and nvl(px_line_tbl(j).open_flag,'Y') <> 'N' ) THEN
987: if (l_debug_level > 0) then
988: oe_debug_pub.add( 'Lalit As the line in not closed/cancelled updating LINE ID = '||PX_LINE_TBL ( J ) .LINE_ID , 1 ) ;
989: end if;
990: select count(*) into vcount from oe_price_adjustments where
991: line_id = px_line_tbl(j).line_id and
992: LIST_LINE_TYPE_CODE = 'TSN' and MODIFIER_LEVEL_CODE = 'LINE';
1016: end if;
1017: j := px_line_tbl.Next(j);
1018:
1019: IF l_debug_level > 0 THEN
1020: oe_debug_pub.add( 'J = END OF LOOP '||J , 1 ) ;
1021: END IF;
1022:
1023: END LOOP;
1024:
1256: and ldets.list_header_id=qh.list_header_id
1257: AND ldets.process_code=QP_PREQ_GRP.G_STATUS_NEW
1258: );
1259: IF l_debug_level > 0 THEN
1260: oe_debug_pub.add( 'in new_terms cursor');
1261: oe_debug_pub.add( 'INSERTED '||SQL%ROWCOUNT||' ADJUSTMENTS' ) ;
1262: END IF;
1263: --bug 4190357
1264: End Loop;
1257: AND ldets.process_code=QP_PREQ_GRP.G_STATUS_NEW
1258: );
1259: IF l_debug_level > 0 THEN
1260: oe_debug_pub.add( 'in new_terms cursor');
1261: oe_debug_pub.add( 'INSERTED '||SQL%ROWCOUNT||' ADJUSTMENTS' ) ;
1262: END IF;
1263: --bug 4190357
1264: End Loop;
1265: END Term_Substitution;
1290: l_tot_price_qty OE_ORDER_LINES_ALL.pricing_quantity%TYPE;
1291: l_pricing_event varchar2(30);
1292: l_return_status varchar2(1);
1293: --
1294: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1295: --
1296: l_org ORG_ORGANIZATION_DEFINITIONS.ORGANIZATION_NAME%TYPE;
1297: l_modifier QP_LIST_HEADERS_TL.NAME%TYPE;
1298: l_list_line_no QP_LIST_LINES.LIST_LINE_NO%TYPE;
1297: l_modifier QP_LIST_HEADERS_TL.NAME%TYPE;
1298: l_list_line_no QP_LIST_LINES.LIST_LINE_NO%TYPE;
1299: Begin
1300: IF l_debug_level > 0 THEN
1301: oe_debug_pub.add( 'SET PRG'||L_LINE_REC.OPERATION||' qty'||p_line_quantity ) ;
1302: END IF;
1303: if p_line_quantity < 0
1304: and
1305: ( p_line_category is null or
1387: --Why hardcode to INT ?
1388: l_line_rec.item_identifier_type := 'INT';
1389:
1390: IF l_debug_level > 0 THEN
1391: oe_debug_pub.add( 'RLANKA: SETTING ORDERED QUANTITY UOM' ) ;
1392: END IF;
1393: IF l_debug_level > 0 THEN
1394: oe_debug_pub.add( 'UOM = ' || P_LINE_UOM_CODE ) ;
1395: END IF;
1390: IF l_debug_level > 0 THEN
1391: oe_debug_pub.add( 'RLANKA: SETTING ORDERED QUANTITY UOM' ) ;
1392: END IF;
1393: IF l_debug_level > 0 THEN
1394: oe_debug_pub.add( 'UOM = ' || P_LINE_UOM_CODE ) ;
1395: END IF;
1396: l_line_rec.order_quantity_uom := p_line_uom_code;
1397:
1398: --end Bug 1805134
1398: --end Bug 1805134
1399:
1400: l_line_rec.price_list_id := p_price_list_header_id;
1401: IF l_debug_level > 0 THEN
1402: oe_debug_pub.add( 'PRG_LINES'||L_LINE_REC.OPERATION ) ;
1403: END IF;
1404:
1405: G_STMT_NO := 'Process_Other_Item_Line#140';
1406: Begin
1483: p_request_type => OE_GLOBALS.G_PRICE_LINE,
1484: x_return_status => l_return_status);
1485: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1486: IF l_debug_level > 0 THEN
1487: oe_debug_pub.add( 'unexp error logging batch event for updated free goods line', 3) ;
1488: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.set_prg', 3);
1489: END IF;
1490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1491: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1484: x_return_status => l_return_status);
1485: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1486: IF l_debug_level > 0 THEN
1487: oe_debug_pub.add( 'unexp error logging batch event for updated free goods line', 3) ;
1488: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.set_prg', 3);
1489: END IF;
1490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1491: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1492: IF l_debug_level > 0 THEN
1489: END IF;
1490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1491: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1492: IF l_debug_level > 0 THEN
1493: oe_debug_pub.add( 'error logging batch event for update free goods line',3);
1494: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.set_prg' , 1 ) ;
1495: END IF;
1496: RAISE FND_API.G_EXC_ERROR;
1497: END IF;
1490: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1491: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1492: IF l_debug_level > 0 THEN
1493: oe_debug_pub.add( 'error logging batch event for update free goods line',3);
1494: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.set_prg' , 1 ) ;
1495: END IF;
1496: RAISE FND_API.G_EXC_ERROR;
1497: END IF;
1498: -- sol_ord_er #16014165
1507: p_param1 => l_line_rec.header_id,
1508: x_return_status => l_return_status);
1509: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1510: IF l_debug_level > 0 THEN
1511: oe_debug_pub.add( 'unexp error logging G_SERVICE_FIRST_PERIOD_BILL', 3) ;
1512: oe_debug_pub.add( '(1) EXITING OE_ADV_PRICE_PVT.set_prg', 3);
1513: END IF;
1514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1515: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1508: x_return_status => l_return_status);
1509: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1510: IF l_debug_level > 0 THEN
1511: oe_debug_pub.add( 'unexp error logging G_SERVICE_FIRST_PERIOD_BILL', 3) ;
1512: oe_debug_pub.add( '(1) EXITING OE_ADV_PRICE_PVT.set_prg', 3);
1513: END IF;
1514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1515: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1516: IF l_debug_level > 0 THEN
1513: END IF;
1514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1515: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1516: IF l_debug_level > 0 THEN
1517: oe_debug_pub.add( 'error logging G_SERVICE_FIRST_PERIOD_BILL',3);
1518: oe_debug_pub.add( '(2) EXITING OE_ADV_PRICE_PVT.set_prg' , 1 ) ;
1519: END IF;
1520: RAISE FND_API.G_EXC_ERROR;
1521: END IF;
1514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1515: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1516: IF l_debug_level > 0 THEN
1517: oe_debug_pub.add( 'error logging G_SERVICE_FIRST_PERIOD_BILL',3);
1518: oe_debug_pub.add( '(2) EXITING OE_ADV_PRICE_PVT.set_prg' , 1 ) ;
1519: END IF;
1520: RAISE FND_API.G_EXC_ERROR;
1521: END IF;
1522: -- sol_ord_er #16014165 end
1524:
1525: px_line_rec := l_line_rec;
1526: exception when others then
1527: IF l_debug_level > 0 THEN
1528: oe_debug_pub.add( 'ERROR IN SET_PRG'||SQLERRM ) ;
1529: END IF;
1530: raise fnd_api.g_exc_error;
1531: end Set_Prg;
1532:
1537: l_line_rec OE_Order_Pub.line_rec_type := px_line_rec;
1538: l_pricing_event varchar2(30);
1539: l_return_status varchar2(1);
1540: --
1541: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1542: --
1543: Begin
1544: IF (nvl(l_line_rec.booked_flag, 'N') = 'N') Then
1545: IF l_debug_level > 0 THEN
1542: --
1543: Begin
1544: IF (nvl(l_line_rec.booked_flag, 'N') = 'N') Then
1545: IF l_debug_level > 0 THEN
1546: oe_debug_pub.add( 'DELETE UNBOOKED ORDER' ) ;
1547: END IF;
1548: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1549: ELSE
1550: l_line_rec.change_reason := 'SYSTEM';
1550: l_line_rec.change_reason := 'SYSTEM';
1551: l_line_rec.change_comments := 'REPRICING';
1552: IF (l_line_rec.shipped_quantity IS NULL) THEN
1553: IF l_debug_level > 0 THEN
1554: oe_debug_pub.add( 'CANCEL BOOKED ORDER , LINE NOT SHIPPED' ) ;
1555: END IF;
1556: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1557: BEGIN
1558: IF OE_CODE_CONTROL.Get_Code_Release_Level < '110510' THEN
1570: l_line_rec.ordered_quantity := 0;
1571: l_line_rec.pricing_quantity := 0;
1572: ELSE
1573: IF l_debug_level > 0 THEN
1574: oe_debug_pub.add( 'REPRICE BOOKED ORDER , SHIPPED LINE' ) ;
1575: END IF;
1576: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1577: l_line_rec.calculate_price_flag := 'Y';
1578: IF l_debug_level > 0 THEN
1575: END IF;
1576: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
1577: l_line_rec.calculate_price_flag := 'Y';
1578: IF l_debug_level > 0 THEN
1579: oe_debug_pub.add( 'LOGGING DELAYED REQUEST TO PRICE LINE' ) ;
1580: END IF;
1581:
1582: l_pricing_event := 'BATCH,BOOK';
1583: OE_delayed_requests_Pvt.log_request(
1648: l_parent_line_id number ; -- pls_integer; bug 8631297
1649: l_return_status varchar2(1);
1650: E_CLOSED_LINE Exception;
1651: --
1652: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1653: --
1654: l_tot_qty OE_ORDER_LINES_ALL.ordered_quantity%TYPE ;
1655: l_tot_price_qty OE_ORDER_LINES_ALL.pricing_quantity%TYPE ;
1656: l_ordered_quantity OE_ORDER_LINES_ALL.ordered_quantity%TYPE;
1665: --service er variable declarion end 16227925
1666:
1667: Begin
1668: IF l_debug_level > 0 THEN
1669: oe_debug_pub.add( 'ENTERING PRG_LINES' ) ;
1670: END IF;
1671:
1672: For i in prg_lines Loop
1673: -- 8631297
1676: l_mod_line_id := MOD(i.line_id,G_BINARY_LIMIT);
1677: END IF;
1678:
1679: IF l_debug_level > 0 THEN
1680: oe_debug_pub.add( ' mod line id :'|| l_mod_line_id,1);
1681: oe_debug_pub.add( 'PRG LINE:'||I.LINE_ID||' PROCESS STATUS: '||I.PROCESS_STATUS ) ;
1682: END IF;
1683:
1684: -- 8631297
1677: END IF;
1678:
1679: IF l_debug_level > 0 THEN
1680: oe_debug_pub.add( ' mod line id :'|| l_mod_line_id,1);
1681: oe_debug_pub.add( 'PRG LINE:'||I.LINE_ID||' PROCESS STATUS: '||I.PROCESS_STATUS ) ;
1682: END IF;
1683:
1684: -- 8631297
1685:
1715: i.line_quantity - nvl(l_tot_qty,0);
1716:
1717:
1718: IF l_debug_level > 0 THEN
1719: oe_debug_pub.add('priced quantity:'||l_pricing_quantity);
1720: oe_debug_pub.add( 'ordered_quantity:Cancelled_quantity'||l_ordered_quantity||':'||l_line_rec.cancelled_quantity ) ;
1721: oe_debug_pub.ADD(' l_line_rec.service_reference_type_code :'||l_line_rec.service_reference_type_code,1); --bug 16317034
1722: oe_debug_pub.ADD(' l_line_rec.service_reference_line_id :'||l_line_rec.service_reference_line_id,1); --bug 16317034
1723: END IF;
1716:
1717:
1718: IF l_debug_level > 0 THEN
1719: oe_debug_pub.add('priced quantity:'||l_pricing_quantity);
1720: oe_debug_pub.add( 'ordered_quantity:Cancelled_quantity'||l_ordered_quantity||':'||l_line_rec.cancelled_quantity ) ;
1721: oe_debug_pub.ADD(' l_line_rec.service_reference_type_code :'||l_line_rec.service_reference_type_code,1); --bug 16317034
1722: oe_debug_pub.ADD(' l_line_rec.service_reference_line_id :'||l_line_rec.service_reference_line_id,1); --bug 16317034
1723: END IF;
1724: --added condition to stop deletion of service lines after splitting for bug 16317034
1717:
1718: IF l_debug_level > 0 THEN
1719: oe_debug_pub.add('priced quantity:'||l_pricing_quantity);
1720: oe_debug_pub.add( 'ordered_quantity:Cancelled_quantity'||l_ordered_quantity||':'||l_line_rec.cancelled_quantity ) ;
1721: oe_debug_pub.ADD(' l_line_rec.service_reference_type_code :'||l_line_rec.service_reference_type_code,1); --bug 16317034
1722: oe_debug_pub.ADD(' l_line_rec.service_reference_line_id :'||l_line_rec.service_reference_line_id,1); --bug 16317034
1723: END IF;
1724: --added condition to stop deletion of service lines after splitting for bug 16317034
1725: if (l_ordered_quantity <= nvl(l_line_rec.cancelled_quantity, 0)) AND l_line_rec.service_reference_type_code <> 'ORDER'
1718: IF l_debug_level > 0 THEN
1719: oe_debug_pub.add('priced quantity:'||l_pricing_quantity);
1720: oe_debug_pub.add( 'ordered_quantity:Cancelled_quantity'||l_ordered_quantity||':'||l_line_rec.cancelled_quantity ) ;
1721: oe_debug_pub.ADD(' l_line_rec.service_reference_type_code :'||l_line_rec.service_reference_type_code,1); --bug 16317034
1722: oe_debug_pub.ADD(' l_line_rec.service_reference_line_id :'||l_line_rec.service_reference_line_id,1); --bug 16317034
1723: END IF;
1724: --added condition to stop deletion of service lines after splitting for bug 16317034
1725: if (l_ordered_quantity <= nvl(l_line_rec.cancelled_quantity, 0)) AND l_line_rec.service_reference_type_code <> 'ORDER'
1726: AND (l_line_rec.service_reference_line_id IS NULL OR l_line_rec.service_reference_line_id = FND_API.G_MISS_NUM) Then
1750: --bug 16317034 start
1751: IF l_line_rec.service_reference_type_code = 'ORDER' AND l_line_rec.service_reference_line_id IS NOT NULL AND l_line_rec.service_reference_line_id <>FND_API.G_MISS_NUM THEN
1752: l_ordered_quantity := i.line_quantity;
1753: l_pricing_quantity := i.priced_quantity;
1754: oe_debug_pub.ADD('l_ordered_quantity :'||l_ordered_quantity,1);
1755: oe_debug_pub.ADD('l_pricing_quantity :'||l_pricing_quantity,1);
1756: END IF;
1757: --bug 16317034 end
1758:
1751: IF l_line_rec.service_reference_type_code = 'ORDER' AND l_line_rec.service_reference_line_id IS NOT NULL AND l_line_rec.service_reference_line_id <>FND_API.G_MISS_NUM THEN
1752: l_ordered_quantity := i.line_quantity;
1753: l_pricing_quantity := i.priced_quantity;
1754: oe_debug_pub.ADD('l_ordered_quantity :'||l_ordered_quantity,1);
1755: oe_debug_pub.ADD('l_pricing_quantity :'||l_pricing_quantity,1);
1756: END IF;
1757: --bug 16317034 end
1758:
1759: Set_PRG(
1788: --for Bug 3350425. To Prevent Blanket feilds being defaulting from Header.
1789: l_line_rec.blanket_number:=NULL;
1790: l_line_rec.blanket_line_number:=NULL;
1791: IF l_debug_level > 0 THEN
1792: oe_debug_pub.add( 'NEW LINE ID'||L_LINE_REC.LINE_ID ) ;
1793: END IF;
1794: --bug 4234500
1795: l_line_rec.change_reason := 'SYSTEM';
1796: l_line_rec.change_comments := 'REPRICING';
1825: l_line_rec.return_reason_code := l_buy_line_rec.return_reason_code;
1826: End If;
1827:
1828: -- service ER 16227925 START -- Service Project
1829: oe_debug_pub.add('buy item type= '||l_buy_line_rec.item_type_code,1);
1830:
1831: l_line_rec.service_duration := i.service_duration;
1832: l_line_rec.service_period := i.service_period;
1833: oe_debug_pub.add(' service_duration = '||l_line_rec.service_duration,1);
1829: oe_debug_pub.add('buy item type= '||l_buy_line_rec.item_type_code,1);
1830:
1831: l_line_rec.service_duration := i.service_duration;
1832: l_line_rec.service_period := i.service_period;
1833: oe_debug_pub.add(' service_duration = '||l_line_rec.service_duration,1);
1834: oe_debug_pub.add(' service_period = '||l_line_rec.service_period,1);
1835:
1836: -- getting the free good item id
1837:
1830:
1831: l_line_rec.service_duration := i.service_duration;
1832: l_line_rec.service_period := i.service_period;
1833: oe_debug_pub.add(' service_duration = '||l_line_rec.service_duration,1);
1834: oe_debug_pub.add(' service_period = '||l_line_rec.service_period,1);
1835:
1836: -- getting the free good item id
1837:
1838: SELECT attr.value_from
1842: AND attr.attribute = 'PRICING_ATTRIBUTE1'
1843: AND attr.line_index = i.line_index;
1844:
1845:
1846: oe_debug_pub.ADD(' l_line_rec.inventory_item_id:- '||l_inventory_item_id,1);
1847: oe_debug_pub.ADD(' l_line_rec.ship_from_org_id:- '||l_org_id,1);
1848:
1849: BEGIN
1850: -- checking if it is service item which needs to be referenced
1843: AND attr.line_index = i.line_index;
1844:
1845:
1846: oe_debug_pub.ADD(' l_line_rec.inventory_item_id:- '||l_inventory_item_id,1);
1847: oe_debug_pub.ADD(' l_line_rec.ship_from_org_id:- '||l_org_id,1);
1848:
1849: BEGIN
1850: -- checking if it is service item which needs to be referenced
1851: SELECT SERVICE_ITEM_FLAG,CONTRACT_ITEM_TYPE_CODE
1852: INTO l_service_item_flag,l_contract_item_type_code
1853: FROM MTL_SYSTEM_ITEMS
1854: WHERE INVENTORY_ITEM_ID = l_inventory_item_id
1855: AND ORGANIZATION_ID = l_org_id;
1856: oe_debug_pub.ADD(' l_service_item_flag:- '||l_service_item_flag,1);
1857: oe_debug_pub.ADD(' l_contract_item_type_code:- '||l_contract_item_type_code,1);
1858: EXCEPTION
1859: WHEN OTHERS THEN
1860: oe_debug_pub.ADD('Error getting SERVICE_ITEM_FLAG and CONTRACT_ITEM_TYPE_CODE',1);
1853: FROM MTL_SYSTEM_ITEMS
1854: WHERE INVENTORY_ITEM_ID = l_inventory_item_id
1855: AND ORGANIZATION_ID = l_org_id;
1856: oe_debug_pub.ADD(' l_service_item_flag:- '||l_service_item_flag,1);
1857: oe_debug_pub.ADD(' l_contract_item_type_code:- '||l_contract_item_type_code,1);
1858: EXCEPTION
1859: WHEN OTHERS THEN
1860: oe_debug_pub.ADD('Error getting SERVICE_ITEM_FLAG and CONTRACT_ITEM_TYPE_CODE',1);
1861: l_service_item_flag := 'N';
1856: oe_debug_pub.ADD(' l_service_item_flag:- '||l_service_item_flag,1);
1857: oe_debug_pub.ADD(' l_contract_item_type_code:- '||l_contract_item_type_code,1);
1858: EXCEPTION
1859: WHEN OTHERS THEN
1860: oe_debug_pub.ADD('Error getting SERVICE_ITEM_FLAG and CONTRACT_ITEM_TYPE_CODE',1);
1861: l_service_item_flag := 'N';
1862: l_contract_item_type_code := NULL;
1863: END;
1864:
1865:
1866: IF Nvl(l_service_item_flag,'N') = 'Y' AND l_contract_item_type_code = 'SERVICE' THEN
1867: L_LINE_REC.item_type_code:='SERVICE';
1868: l_line_rec.service_reference_line_id := l_buy_line_rec.line_id;
1869: oe_debug_pub.add(' service_reference_line_id = '||l_buy_line_rec.line_id,1);
1870: IF l_line_rec.service_reference_line_id IS NOT NULL THEN
1871: l_line_rec.service_reference_type_code := 'ORDER';
1872: END IF;
1873: ELSE
1877: -- Service ER 16227925 END
1878:
1879: -- put into the same ship set
1880: IF l_debug_level > 0 THEN
1881: oe_debug_pub.add( 'PUTTING TO SHIP SET'||L_BUY_LINE_REC.SHIP_SET_ID ) ;
1882: END IF;
1883: l_line_rec.ship_set_id := l_buy_line_rec.ship_set_id;
1884: --bug 7000338/7002146
1885: IF (l_buy_line_rec.ship_set_id is NOT NULL AND l_buy_line_rec.ship_set_id <> FND_API.G_MISS_NUM) THEN
1883: l_line_rec.ship_set_id := l_buy_line_rec.ship_set_id;
1884: --bug 7000338/7002146
1885: IF (l_buy_line_rec.ship_set_id is NOT NULL AND l_buy_line_rec.ship_set_id <> FND_API.G_MISS_NUM) THEN
1886: select set_name INTO l_line_rec.ship_set from oe_sets where set_id= l_buy_line_rec.ship_set_id ;
1887: oe_debug_pub.add( 'PUTTING TO SHIP SET name'||L_LINE_REC.SHIP_SET ) ;
1888: END IF;
1889:
1890: EXCEPTION WHEN NO_DATA_FOUND THEN
1891: NULL;
1932: WHEN E_CLOSED_LINE THEN
1933: NULL;
1934: WHEN OTHERS THEN
1935: IF l_debug_level > 0 THEN
1936: oe_debug_pub.add( 'ERROR IN PROCESS_PRG'||SQLERRM ) ;
1937: END IF;
1938: RAISE FND_API.G_EXC_ERROR;
1939: End Process_PRG;
1940:
1953: l_list_name varchar2(240);
1954: l_operand number;
1955: l_msg_text Varchar2(200);
1956:
1957: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1958:
1959: Begin
1960:
1961: IF l_debug_level > 0 THEN
1958:
1959: Begin
1960:
1961: IF l_debug_level > 0 THEN
1962: oe_debug_pub.add('PROMOTIONS - start of procedure Promotion_Put_Hold ');
1963: END IF;
1964:
1965: -- use the seeded hold_id
1966: IF (p_line_id IS NULL) THEN
1964:
1965: -- use the seeded hold_id
1966: IF (p_line_id IS NULL) THEN
1967: IF l_debug_level > 0 THEN
1968: oe_debug_pub.add('putting header '||p_header_id||' on hold',3);
1969: END IF;
1970:
1971: l_hold_source_rec.hold_id := G_SEEDED_PROM_ORDER_HOLD_ID;
1972: ELSE
1970:
1971: l_hold_source_rec.hold_id := G_SEEDED_PROM_ORDER_HOLD_ID;
1972: ELSE
1973: IF l_debug_level > 0 THEN
1974: oe_debug_pub.add('putting line '||p_line_id||' on hold',3);
1975: END IF;
1976: l_hold_source_rec.hold_id := G_SEEDED_PROM_LINE_HOLD_ID;
1977: END IF;
1978:
1976: l_hold_source_rec.hold_id := G_SEEDED_PROM_LINE_HOLD_ID;
1977: END IF;
1978:
1979: IF l_debug_level > 0 THEN
1980: --oe_debug_pub.add('PAL PROMOTIONS - after select in procedure Promotion_Put_Hold ');
1981: --oe_debug_pub.add('PAL PROMOTIONS - hold id is '|| l_hold_source_rec.hold_id,2);
1982: --oe_debug_pub.add(' PROMOTIONS - header_id is '|| p_header_id,2);
1983: --oe_debug_pub.add('PAL PROMOTIONS - line_id is '|| p_line_id,2);
1984: null;
1977: END IF;
1978:
1979: IF l_debug_level > 0 THEN
1980: --oe_debug_pub.add('PAL PROMOTIONS - after select in procedure Promotion_Put_Hold ');
1981: --oe_debug_pub.add('PAL PROMOTIONS - hold id is '|| l_hold_source_rec.hold_id,2);
1982: --oe_debug_pub.add(' PROMOTIONS - header_id is '|| p_header_id,2);
1983: --oe_debug_pub.add('PAL PROMOTIONS - line_id is '|| p_line_id,2);
1984: null;
1985: END IF;
1978:
1979: IF l_debug_level > 0 THEN
1980: --oe_debug_pub.add('PAL PROMOTIONS - after select in procedure Promotion_Put_Hold ');
1981: --oe_debug_pub.add('PAL PROMOTIONS - hold id is '|| l_hold_source_rec.hold_id,2);
1982: --oe_debug_pub.add(' PROMOTIONS - header_id is '|| p_header_id,2);
1983: --oe_debug_pub.add('PAL PROMOTIONS - line_id is '|| p_line_id,2);
1984: null;
1985: END IF;
1986:
1979: IF l_debug_level > 0 THEN
1980: --oe_debug_pub.add('PAL PROMOTIONS - after select in procedure Promotion_Put_Hold ');
1981: --oe_debug_pub.add('PAL PROMOTIONS - hold id is '|| l_hold_source_rec.hold_id,2);
1982: --oe_debug_pub.add(' PROMOTIONS - header_id is '|| p_header_id,2);
1983: --oe_debug_pub.add('PAL PROMOTIONS - line_id is '|| p_line_id,2);
1984: null;
1985: END IF;
1986:
1987: l_hold_source_rec.hold_entity_id := p_header_id;
2003: ,x_result_out => l_x_result_out
2004: );
2005:
2006: IF l_debug_level > 0 THEN
2007: --oe_debug_pub.add('PAL PROMOTIONS - hold_entity_code is '|| l_hold_source_rec.Hold_Entity_code||l_x_result_out,2);
2008: null;
2009: end if;
2010:
2011: IF (l_return_status <> FND_API.g_ret_sts_success) THEN
2012: RAISE FND_API.G_EXC_ERROR;
2013: END IF;
2014: If l_x_result_out = FND_API.G_FALSE then
2015: IF l_debug_level > 0 THEN
2016: oe_debug_pub.add('PAL PROMOTIONS - apply holds in procedure Promotion_Put_Hold ');
2017: oe_debug_pub.add('hold line with header_id:'||p_header_id||' line_id: '||p_line_id,1);
2018: END IF;
2019: OE_HOLDS_PUB.Apply_Holds(
2020: p_api_version => 1.0
2013: END IF;
2014: If l_x_result_out = FND_API.G_FALSE then
2015: IF l_debug_level > 0 THEN
2016: oe_debug_pub.add('PAL PROMOTIONS - apply holds in procedure Promotion_Put_Hold ');
2017: oe_debug_pub.add('hold line with header_id:'||p_header_id||' line_id: '||p_line_id,1);
2018: END IF;
2019: OE_HOLDS_PUB.Apply_Holds(
2020: p_api_version => 1.0
2021: ,p_hold_source_rec => l_hold_source_rec
2033: END IF;
2034: OE_MSG_PUB.Add;
2035: Else
2036: IF l_debug_level > 0 THEN
2037: oe_debug_pub.add('error applying hold',3);
2038: END IF;
2039: RAISE FND_API.G_EXC_ERROR;
2040: End If;
2041: End If; /* check hold */
2040: End If;
2041: End If; /* check hold */
2042:
2043: IF l_debug_level > 0 THEN
2044: -- oe_debug_pub.add('PAL PROMOTIONS - end of procedure Promotion_Put_Hold ');
2045: null;
2046: END IF;
2047: end Promotion_Put_Hold;
2048:
2063: l_Header_id number := oe_order_cache.g_header_rec.Header_id;
2064:
2065: l_TRANSACTION_PHASE_CODE varchar2(30) := oe_order_cache.g_header_rec.TRANSACTION_PHASE_CODE;
2066:
2067: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2068:
2069: l_order_source_id NUMBER;
2070: l_orig_sys_document_ref VARCHAR2(50);
2071: l_orig_sys_line_ref VARCHAR2(50);
2076: l_source_document_line_id NUMBER;
2077: l_line_id NUMBER;
2078: BEGIN
2079: IF l_debug_level > 0 THEN
2080: oe_debug_pub.add('inside procedure process_limits',1);
2081: END IF;
2082: -- First, hold order or line
2083: For I in hold_lines LOOP
2084: IF l_debug_level > 0 THEN
2081: END IF;
2082: -- First, hold order or line
2083: For I in hold_lines LOOP
2084: IF l_debug_level > 0 THEN
2085: oe_debug_pub.add('line_index = '||I.line_index,1);
2086: oe_debug_pub.add('line_id = '||I.line_id,1);
2087:
2088: oe_debug_pub.add('line_Type_code = '||I.line_Type_code,1);
2089: oe_debug_pub.add('line_Type_code = '||I.hold_code,1);
2082: -- First, hold order or line
2083: For I in hold_lines LOOP
2084: IF l_debug_level > 0 THEN
2085: oe_debug_pub.add('line_index = '||I.line_index,1);
2086: oe_debug_pub.add('line_id = '||I.line_id,1);
2087:
2088: oe_debug_pub.add('line_Type_code = '||I.line_Type_code,1);
2089: oe_debug_pub.add('line_Type_code = '||I.hold_code,1);
2090: oe_debug_pub.add('TRANSACTION_PHASE_CODE = '||l_TRANSACTION_PHASE_CODE);
2084: IF l_debug_level > 0 THEN
2085: oe_debug_pub.add('line_index = '||I.line_index,1);
2086: oe_debug_pub.add('line_id = '||I.line_id,1);
2087:
2088: oe_debug_pub.add('line_Type_code = '||I.line_Type_code,1);
2089: oe_debug_pub.add('line_Type_code = '||I.hold_code,1);
2090: oe_debug_pub.add('TRANSACTION_PHASE_CODE = '||l_TRANSACTION_PHASE_CODE);
2091:
2092: END IF;
2085: oe_debug_pub.add('line_index = '||I.line_index,1);
2086: oe_debug_pub.add('line_id = '||I.line_id,1);
2087:
2088: oe_debug_pub.add('line_Type_code = '||I.line_Type_code,1);
2089: oe_debug_pub.add('line_Type_code = '||I.hold_code,1);
2090: oe_debug_pub.add('TRANSACTION_PHASE_CODE = '||l_TRANSACTION_PHASE_CODE);
2091:
2092: END IF;
2093:
2086: oe_debug_pub.add('line_id = '||I.line_id,1);
2087:
2088: oe_debug_pub.add('line_Type_code = '||I.line_Type_code,1);
2089: oe_debug_pub.add('line_Type_code = '||I.hold_code,1);
2090: oe_debug_pub.add('TRANSACTION_PHASE_CODE = '||l_TRANSACTION_PHASE_CODE);
2091:
2092: END IF;
2093:
2094: IF (l_limit_hold_action = 'NO_HOLD' or
2121: END LOOP;
2122: -- Second, put message about adjustments who violated limits
2123: For I in limit_violated_details LOOP
2124: IF l_debug_level > 0 THEN
2125: oe_debug_pub.add('line_index = '||I.line_index,1);
2126: oe_debug_pub.add('limit_text = '||I.limit_text,1);
2127: END IF;
2128: IF (i.line_id = l_header_id) THEN
2129: OE_MSG_PUB.set_msg_context
2122: -- Second, put message about adjustments who violated limits
2123: For I in limit_violated_details LOOP
2124: IF l_debug_level > 0 THEN
2125: oe_debug_pub.add('line_index = '||I.line_index,1);
2126: oe_debug_pub.add('limit_text = '||I.limit_text,1);
2127: END IF;
2128: IF (i.line_id = l_header_id) THEN
2129: OE_MSG_PUB.set_msg_context
2130: ( p_entity_code => 'HEADER'
2143: IF l_line_id IS NOT NULL AND l_line_id <> 0 AND
2144: l_line_id <> FND_API.G_MISS_NUM THEN
2145: BEGIN
2146: IF l_debug_level > 0 THEN
2147: oe_debug_pub.add('Getting reference data ');
2148: END IF;
2149:
2150: select order_source_id, orig_sys_document_ref,
2151: orig_sys_line_ref, orig_sys_shipment_ref,
2159: where line_id = l_line_id;
2160: EXCEPTION
2161: WHEN NO_DATA_FOUND THEN
2162: IF l_debug_level > 0 THEN
2163: oe_debug_pub.add('no data found while getting reference data ');
2164: END IF;
2165: l_order_source_id := NULL;
2166: l_orig_sys_document_ref := NULL;
2167: l_orig_sys_line_ref := NULL;
2214: is
2215: l_source_document_type_id number := oe_order_cache.g_header_rec.source_document_type_id;
2216: l_header_id number := oe_order_cache.g_header_rec.header_id;
2217: l_source_system_code number := 0;
2218: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2219: begin
2220:
2221: IF l_debug_level > 0 THEN
2222: oe_debug_pub.add(' In OE_ADV_PRICE_PVT.CHECK_NOTIFY');
2218: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2219: begin
2220:
2221: IF l_debug_level > 0 THEN
2222: oe_debug_pub.add(' In OE_ADV_PRICE_PVT.CHECK_NOTIFY');
2223: END IF;
2224: begin
2225: select 1 into l_source_system_code from
2226: oe_order_headers_all oh,
2239: null;
2240: end;
2241:
2242: IF l_debug_level > 0 THEN
2243: oe_debug_pub.add('l_source_document_type_id = '||l_source_document_type_id);
2244: oe_debug_pub.add('l_source_system_code = '||l_source_system_code);
2245: END IF;
2246:
2247:
2240: end;
2241:
2242: IF l_debug_level > 0 THEN
2243: oe_debug_pub.add('l_source_document_type_id = '||l_source_document_type_id);
2244: oe_debug_pub.add('l_source_system_code = '||l_source_system_code);
2245: END IF;
2246:
2247:
2248: IF nvl(l_source_document_type_id,0) IN (1, 3, 4, 7, 8, 11, 12, 13, 14,15, 16, 17, 18 , 19) OR l_source_system_code = 1
2292: AND (l_booked_flag = 'N' or ldets.list_line_type_code<>'IUE');
2293:
2294: l_Line_Adj_rec OE_Order_PUB.Line_Adj_Rec_Type;
2295: l_Header_Adj_rec OE_Order_PUB.Header_Adj_Rec_Type;
2296: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2297: l_index NUMBER;
2298: l_return_status VARCHAR2(1);
2299: l_qty NUMBER; --Bug8467307
2300: l_ind PLS_INTEGER; --Bug8467307
2301: G_MAX_REQUESTS NUMBER := 10000; --Bug8467307
2302:
2303: begin
2304: IF l_debug_level > 0 THEN
2305: oe_debug_pub.add('in new_and_updated_notify',1);
2306: END IF;
2307: FOR l_insert IN insert_adj_cur LOOP
2308: IF l_insert.modifier_level_code <> 'ORDER' THEN
2309: l_Line_Adj_rec.line_id := l_insert.line_id;
2389: x_return_status => l_return_status);
2390: --Start of bug#8467307
2391: ELSIF l_insert.process_code = QP_PREQ_GRP.G_STATUS_UNCHANGED Then
2392: IF l_debug_level > 0 THEN
2393: oe_debug_pub.add ('Adj ID=' ||l_insert.price_adjustment_id);
2394: END IF;
2395: -- To find the old line quantity
2396: l_qty := l_insert.lquantity;
2397: l_ind := (mod(l_Line_Adj_rec.line_id,100000) * G_MAX_REQUESTS)+1;
2395: -- To find the old line quantity
2396: l_qty := l_insert.lquantity;
2397: l_ind := (mod(l_Line_Adj_rec.line_id,100000) * G_MAX_REQUESTS)+1;
2398: IF l_debug_level > 0 THEN
2399: oe_debug_pub.add('Index- :'||l_ind);
2400: END IF;
2401: IF OE_ORDER_UTIL.g_old_line_tbl.exists(l_ind) THEN
2402: l_qty := OE_ORDER_UTIL.g_old_line_tbl(l_ind).ordered_quantity;
2403: IF l_debug_level > 0 THEN
2400: END IF;
2401: IF OE_ORDER_UTIL.g_old_line_tbl.exists(l_ind) THEN
2402: l_qty := OE_ORDER_UTIL.g_old_line_tbl(l_ind).ordered_quantity;
2403: IF l_debug_level > 0 THEN
2404: oe_debug_pub.add('FOUND Old Line Quantity :'||l_qty);
2405: END IF;
2406: ELSE
2407: IF l_debug_level > 0 THEN
2408: oe_debug_pub.add('NOT FOUND ');
2404: oe_debug_pub.add('FOUND Old Line Quantity :'||l_qty);
2405: END IF;
2406: ELSE
2407: IF l_debug_level > 0 THEN
2408: oe_debug_pub.add('NOT FOUND ');
2409: END IF;
2410: END IF;
2411: IF l_debug_level > 0 THEN
2412: oe_debug_pub.add('Old Line Quantity :'||l_qty);
2408: oe_debug_pub.add('NOT FOUND ');
2409: END IF;
2410: END IF;
2411: IF l_debug_level > 0 THEN
2412: oe_debug_pub.add('Old Line Quantity :'||l_qty);
2413: oe_debug_pub.add('l_insert.lquantity :'||l_insert.lquantity);
2414: END IF;
2415: IF l_qty <> l_insert.lquantity THEN -- IF the Quantity has changed on the Line THEN
2416: l_Line_Adj_rec.UPDATED_FLAG := 'Y';
2409: END IF;
2410: END IF;
2411: IF l_debug_level > 0 THEN
2412: oe_debug_pub.add('Old Line Quantity :'||l_qty);
2413: oe_debug_pub.add('l_insert.lquantity :'||l_insert.lquantity);
2414: END IF;
2415: IF l_qty <> l_insert.lquantity THEN -- IF the Quantity has changed on the Line THEN
2416: l_Line_Adj_rec.UPDATED_FLAG := 'Y';
2417: l_Line_Adj_rec.db_flag := FND_API.G_TRUE;
2513: x_index => l_index,
2514: x_return_status => l_return_status);*/
2515:
2516: IF l_debug_level > 0 THEN
2517: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY IS: ' || L_RETURN_STATUS ) ;
2518: END IF;
2519: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2520: IF l_debug_level > 0 THEN
2521: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
2517: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY IS: ' || L_RETURN_STATUS ) ;
2518: END IF;
2519: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2520: IF l_debug_level > 0 THEN
2521: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
2522: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY');
2523: END IF;
2524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2525: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2518: END IF;
2519: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2520: IF l_debug_level > 0 THEN
2521: oe_debug_pub.add( 'EVENT NOTIFY - UNEXPECTED ERROR' ) ;
2522: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY');
2523: END IF;
2524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2525: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2526: IF l_debug_level > 0 THEN
2523: END IF;
2524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2525: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2526: IF l_debug_level > 0 THEN
2527: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY' ) ;
2528: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY' , 1 ) ;
2529: END IF;
2530: RAISE FND_API.G_EXC_ERROR;
2531: END IF;
2524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2525: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2526: IF l_debug_level > 0 THEN
2527: oe_debug_pub.add( 'UPDATE_GLOBAL_PICTURE ERROR IN OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY' ) ;
2528: oe_debug_pub.add( 'EXITING OE_ADV_PRICE_PVT.NEW_AND_UPDATE_NOTIFY' , 1 ) ;
2529: END IF;
2530: RAISE FND_API.G_EXC_ERROR;
2531: END IF;
2532:
2541: px_line_Tbl IN OUT NOCOPY oe_Order_Pub.Line_Tbl_Type
2542: )
2543: IS
2544:
2545: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2546: l_mod_line_id NUMBER;
2547:
2548: Cursor updated_lines_prl IS
2549: SELECT l.LINE_ID,
2563:
2564: BEGIN
2565:
2566: IF l_debug_level > 0 THEN
2567: oe_debug_pub.add('In Register_price_list');
2568: END IF;
2569: for i in updated_lines_prl loop
2570: l_mod_line_id := MOD(i.line_id,G_BINARY_LIMIT); -- Bug 8631297
2571:
2569: for i in updated_lines_prl loop
2570: l_mod_line_id := MOD(i.line_id,G_BINARY_LIMIT); -- Bug 8631297
2571:
2572: IF l_debug_level > 0 THEN
2573: oe_debug_pub.add('Old Price List id : '||i.price_list_id);
2574: oe_debug_pub.add('New Price List id : '||i.price_list_header_id);
2575: END IF;
2576: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).price_list_id := i.price_list_header_id;
2577: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).operation := OE_GLOBALS.G_OPR_UPDATE;
2570: l_mod_line_id := MOD(i.line_id,G_BINARY_LIMIT); -- Bug 8631297
2571:
2572: IF l_debug_level > 0 THEN
2573: oe_debug_pub.add('Old Price List id : '||i.price_list_id);
2574: oe_debug_pub.add('New Price List id : '||i.price_list_header_id);
2575: END IF;
2576: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).price_list_id := i.price_list_header_id;
2577: px_line_tbl(G_PRICE_LINE_ID_TBL(l_mod_line_id)).operation := OE_GLOBALS.G_OPR_UPDATE;
2578: end loop;
2598: l_booked_flag varchar2(1) := oe_order_cache.g_header_rec.booked_flag;
2599:
2600:
2601: --
2602: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2603: --
2604: BEGIN
2605: NULL;
2606: x_return_status := FND_API.G_RET_STS_SUCCESS;
2603: --
2604: BEGIN
2605: NULL;
2606: x_return_status := FND_API.G_RET_STS_SUCCESS;
2607: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
2608: G_DEBUG := TRUE;
2609: IF l_debug_level > 0 THEN
2610: oe_debug_pub.add( 'BCT G_DEBUG IS:'||OE_DEBUG_PUB.G_DEBUG ) ;
2611: END IF;
2606: x_return_status := FND_API.G_RET_STS_SUCCESS;
2607: If OE_DEBUG_PUB.G_DEBUG = FND_API.G_TRUE Then
2608: G_DEBUG := TRUE;
2609: IF l_debug_level > 0 THEN
2610: oe_debug_pub.add( 'BCT G_DEBUG IS:'||OE_DEBUG_PUB.G_DEBUG ) ;
2611: END IF;
2612: Else
2613: G_DEBUG := FALSE;
2614: End If;
2617: IF p_control_rec.p_calculate_flag <> QP_PREQ_GRP.G_CALCULATE_ONLY
2618: THEN
2619:
2620: IF l_debug_level > 0 THEN
2621: oe_debug_pub.add( 'INSIDE OE_ORDER_ADV_PVT.PROCESS_ADV_MODIFIERS' , 1 ) ;
2622: END IF;
2623:
2624: Sort_Line_Table(px_line_Tbl,G_PRICE_LINE_ID_TBL);
2625: Item_Upgrade(px_old_line_tbl,px_line_Tbl,p_pricing_events);
2626: --Term_Substitution(p_header_rec,lx_new_header_rec,px_old_line_tbl,px_line_Tbl); --Bug 13573144
2627: Term_Substitution(p_header_rec,lx_new_header_rec,px_old_line_tbl,px_line_Tbl,p_pricing_events); --Bug 13573144
2628:
2629: IF l_debug_level > 0 THEN
2630: oe_debug_pub.add( 'P_PRICING_EVENTS = '||P_PRICING_EVENTS , 1 ) ;
2631: oe_debug_pub.add( 'BEFORE CALL TO CALL PROCESS ORDER' , 1 ) ;
2632: oe_debug_pub.add( 'P_HEADER_REC.HEADER_ID='||P_HEADER_REC.HEADER_ID , 1 ) ;
2633: oe_debug_pub.add( 'P_HEADER_REC.PAYMENT_TERM_ID='||P_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2634: oe_debug_pub.add( 'P_HEADER_REC.OPERATION='||P_HEADER_REC.OPERATION , 1 ) ;
2627: Term_Substitution(p_header_rec,lx_new_header_rec,px_old_line_tbl,px_line_Tbl,p_pricing_events); --Bug 13573144
2628:
2629: IF l_debug_level > 0 THEN
2630: oe_debug_pub.add( 'P_PRICING_EVENTS = '||P_PRICING_EVENTS , 1 ) ;
2631: oe_debug_pub.add( 'BEFORE CALL TO CALL PROCESS ORDER' , 1 ) ;
2632: oe_debug_pub.add( 'P_HEADER_REC.HEADER_ID='||P_HEADER_REC.HEADER_ID , 1 ) ;
2633: oe_debug_pub.add( 'P_HEADER_REC.PAYMENT_TERM_ID='||P_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2634: oe_debug_pub.add( 'P_HEADER_REC.OPERATION='||P_HEADER_REC.OPERATION , 1 ) ;
2635: oe_debug_pub.add( 'LX_NEW_HEADER_REC.HEADER_ID='||LX_NEW_HEADER_REC.HEADER_ID , 1 ) ;
2628:
2629: IF l_debug_level > 0 THEN
2630: oe_debug_pub.add( 'P_PRICING_EVENTS = '||P_PRICING_EVENTS , 1 ) ;
2631: oe_debug_pub.add( 'BEFORE CALL TO CALL PROCESS ORDER' , 1 ) ;
2632: oe_debug_pub.add( 'P_HEADER_REC.HEADER_ID='||P_HEADER_REC.HEADER_ID , 1 ) ;
2633: oe_debug_pub.add( 'P_HEADER_REC.PAYMENT_TERM_ID='||P_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2634: oe_debug_pub.add( 'P_HEADER_REC.OPERATION='||P_HEADER_REC.OPERATION , 1 ) ;
2635: oe_debug_pub.add( 'LX_NEW_HEADER_REC.HEADER_ID='||LX_NEW_HEADER_REC.HEADER_ID , 1 ) ;
2636: oe_debug_pub.add( 'LX_NEW_HEADER_REC.PAYMENT_TERM_ID='||LX_NEW_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2629: IF l_debug_level > 0 THEN
2630: oe_debug_pub.add( 'P_PRICING_EVENTS = '||P_PRICING_EVENTS , 1 ) ;
2631: oe_debug_pub.add( 'BEFORE CALL TO CALL PROCESS ORDER' , 1 ) ;
2632: oe_debug_pub.add( 'P_HEADER_REC.HEADER_ID='||P_HEADER_REC.HEADER_ID , 1 ) ;
2633: oe_debug_pub.add( 'P_HEADER_REC.PAYMENT_TERM_ID='||P_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2634: oe_debug_pub.add( 'P_HEADER_REC.OPERATION='||P_HEADER_REC.OPERATION , 1 ) ;
2635: oe_debug_pub.add( 'LX_NEW_HEADER_REC.HEADER_ID='||LX_NEW_HEADER_REC.HEADER_ID , 1 ) ;
2636: oe_debug_pub.add( 'LX_NEW_HEADER_REC.PAYMENT_TERM_ID='||LX_NEW_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2637: oe_debug_pub.add( 'LX_NEW_HEADER_REC.OPERATION='||LX_NEW_HEADER_REC.OPERATION , 1 ) ;
2630: oe_debug_pub.add( 'P_PRICING_EVENTS = '||P_PRICING_EVENTS , 1 ) ;
2631: oe_debug_pub.add( 'BEFORE CALL TO CALL PROCESS ORDER' , 1 ) ;
2632: oe_debug_pub.add( 'P_HEADER_REC.HEADER_ID='||P_HEADER_REC.HEADER_ID , 1 ) ;
2633: oe_debug_pub.add( 'P_HEADER_REC.PAYMENT_TERM_ID='||P_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2634: oe_debug_pub.add( 'P_HEADER_REC.OPERATION='||P_HEADER_REC.OPERATION , 1 ) ;
2635: oe_debug_pub.add( 'LX_NEW_HEADER_REC.HEADER_ID='||LX_NEW_HEADER_REC.HEADER_ID , 1 ) ;
2636: oe_debug_pub.add( 'LX_NEW_HEADER_REC.PAYMENT_TERM_ID='||LX_NEW_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2637: oe_debug_pub.add( 'LX_NEW_HEADER_REC.OPERATION='||LX_NEW_HEADER_REC.OPERATION , 1 ) ;
2638: END IF;
2631: oe_debug_pub.add( 'BEFORE CALL TO CALL PROCESS ORDER' , 1 ) ;
2632: oe_debug_pub.add( 'P_HEADER_REC.HEADER_ID='||P_HEADER_REC.HEADER_ID , 1 ) ;
2633: oe_debug_pub.add( 'P_HEADER_REC.PAYMENT_TERM_ID='||P_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2634: oe_debug_pub.add( 'P_HEADER_REC.OPERATION='||P_HEADER_REC.OPERATION , 1 ) ;
2635: oe_debug_pub.add( 'LX_NEW_HEADER_REC.HEADER_ID='||LX_NEW_HEADER_REC.HEADER_ID , 1 ) ;
2636: oe_debug_pub.add( 'LX_NEW_HEADER_REC.PAYMENT_TERM_ID='||LX_NEW_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2637: oe_debug_pub.add( 'LX_NEW_HEADER_REC.OPERATION='||LX_NEW_HEADER_REC.OPERATION , 1 ) ;
2638: END IF;
2639:
2632: oe_debug_pub.add( 'P_HEADER_REC.HEADER_ID='||P_HEADER_REC.HEADER_ID , 1 ) ;
2633: oe_debug_pub.add( 'P_HEADER_REC.PAYMENT_TERM_ID='||P_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2634: oe_debug_pub.add( 'P_HEADER_REC.OPERATION='||P_HEADER_REC.OPERATION , 1 ) ;
2635: oe_debug_pub.add( 'LX_NEW_HEADER_REC.HEADER_ID='||LX_NEW_HEADER_REC.HEADER_ID , 1 ) ;
2636: oe_debug_pub.add( 'LX_NEW_HEADER_REC.PAYMENT_TERM_ID='||LX_NEW_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2637: oe_debug_pub.add( 'LX_NEW_HEADER_REC.OPERATION='||LX_NEW_HEADER_REC.OPERATION , 1 ) ;
2638: END IF;
2639:
2640: Process_Prg(px_line_Tbl
2633: oe_debug_pub.add( 'P_HEADER_REC.PAYMENT_TERM_ID='||P_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2634: oe_debug_pub.add( 'P_HEADER_REC.OPERATION='||P_HEADER_REC.OPERATION , 1 ) ;
2635: oe_debug_pub.add( 'LX_NEW_HEADER_REC.HEADER_ID='||LX_NEW_HEADER_REC.HEADER_ID , 1 ) ;
2636: oe_debug_pub.add( 'LX_NEW_HEADER_REC.PAYMENT_TERM_ID='||LX_NEW_HEADER_REC.PAYMENT_TERM_ID , 1 ) ;
2637: oe_debug_pub.add( 'LX_NEW_HEADER_REC.OPERATION='||LX_NEW_HEADER_REC.OPERATION , 1 ) ;
2638: END IF;
2639:
2640: Process_Prg(px_line_Tbl
2641: , px_old_line_tbl
2654: l_control_rec,
2655: x_return_status);
2656:
2657: IF l_debug_level > 0 THEN
2658: oe_debug_pub.add('l_booked_flag = '||l_booked_flag);
2659: oe_debug_pub.add('oe_order_cache.g_header_rec.booked_flag = '||oe_order_cache.g_header_rec.booked_flag);
2660: END IF;
2661:
2662: END IF; -- <> Calculate_Only
2655: x_return_status);
2656:
2657: IF l_debug_level > 0 THEN
2658: oe_debug_pub.add('l_booked_flag = '||l_booked_flag);
2659: oe_debug_pub.add('oe_order_cache.g_header_rec.booked_flag = '||oe_order_cache.g_header_rec.booked_flag);
2660: END IF;
2661:
2662: END IF; -- <> Calculate_Only
2663:
2668: Procedure Insert_Adj(p_header_id in Number default null)
2669: IS
2670: l_booked_flag varchar2(1) := oe_order_cache.g_header_rec.booked_flag;
2671: --
2672: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2673: --
2674: BEGIN
2675: IF l_debug_level > 0 THEN
2676: oe_debug_pub.add( 'INSIDE OE_ADV_PRICE_PVT.INSERT_ADJ' ) ;
2672: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2673: --
2674: BEGIN
2675: IF l_debug_level > 0 THEN
2676: oe_debug_pub.add( 'INSIDE OE_ADV_PRICE_PVT.INSERT_ADJ' ) ;
2677: END IF;
2678: INSERT INTO OE_PRICE_ADJUSTMENTS
2679: ( PRICE_ADJUSTMENT_ID
2680: , CREATION_DATE
2909: ) --Bug#10193597
2910: );
2911:
2912: IF l_debug_level > 0 THEN
2913: oe_debug_pub.add( 'INSERTED '||SQL%ROWCOUNT||' ADJUSTMENTS' ) ;
2914: END IF;
2915:
2916:
2917: INSERT INTO OE_PRICE_ADJ_ASSOCS
2976:
2977:
2978:
2979: IF l_debug_level > 0 THEN
2980: oe_debug_pub.add( 'INSERTED '||SQL%ROWCOUNT||' PRICE ADJ ASSOCS' , 3 ) ;
2981: END IF;
2982: Exception
2983: WHEN OTHERS THEN
2984: IF l_debug_level > 0 THEN
2981: END IF;
2982: Exception
2983: WHEN OTHERS THEN
2984: IF l_debug_level > 0 THEN
2985: oe_debug_pub.add('ERROR in inserting adjustments and associations'||sqlerrm);
2986: END IF;
2987: Raise FND_API.G_EXC_ERROR;
2988: END Insert_Adj;
2989: