[Home] [Help]
8: g_qry_out_rec OE_ORDER_PUB.Line_rec_Type := OE_ORDER_PUB.G_MISS_LINE_REC;
9: G_BINARY_LIMIT CONSTANT NUMBER := OE_GLOBALS.G_BINARY_LIMIT; -- 8706868
10: Procedure Create_Line_Set_For_Options(p_x_line_tbl IN OUT NOCOPY OE_ORDER_PUB.Line_Tbl_Type ) IS
11: --
12: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
13: --
14: BEGIN
15: IF l_debug_level > 0 THEN
16: oe_debug_pub.add( 'ENTER CREATE LINE SET FOR OPTIONS:' ) ;
12: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
13: --
14: BEGIN
15: IF l_debug_level > 0 THEN
16: oe_debug_pub.add( 'ENTER CREATE LINE SET FOR OPTIONS:' ) ;
17: END IF;
18: FOR I in 1..p_x_line_tbl.count LOOP
19: IF p_x_line_tbl(I).line_set_id is null AND
20: p_x_line_tbl(I).operation = oe_globals.g_opr_update THEN
18: FOR I in 1..p_x_line_tbl.count LOOP
19: IF p_x_line_tbl(I).line_set_id is null AND
20: p_x_line_tbl(I).operation = oe_globals.g_opr_update THEN
21: IF l_debug_level > 0 THEN
22: oe_debug_pub.add( 'BEFORE CREATING SET : ' ||P_X_LINE_TBL ( I ) .LINE_ID ) ;
23: END IF;
24: IF l_debug_level > 0 THEN
25: oe_debug_pub.add( 'BEFORE CREATING SET : ' ||P_X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
26: END IF;
21: IF l_debug_level > 0 THEN
22: oe_debug_pub.add( 'BEFORE CREATING SET : ' ||P_X_LINE_TBL ( I ) .LINE_ID ) ;
23: END IF;
24: IF l_debug_level > 0 THEN
25: oe_debug_pub.add( 'BEFORE CREATING SET : ' ||P_X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
26: END IF;
27: Oe_Set_Util.Create_Line_Set(p_x_line_rec => p_x_line_tbl(I));
28: END IF;
29: FOR J in 1..p_x_line_tbl.count LOOP
29: FOR J in 1..p_x_line_tbl.count LOOP
30: IF p_x_line_tbl(J).split_from_line_id = p_x_line_tbl(I).line_id AND
31: p_x_line_tbl(J).operation = oe_globals.g_opr_create THEN
32: IF l_debug_level > 0 THEN
33: oe_debug_pub.add( 'ADDING INTO SET:' ) ;
34: END IF;
35: p_x_line_tbl(J).line_Set_id := p_x_line_tbl(I).line_set_id;
36: END IF;
37: END LOOP;
46:
47:
48: Procedure Update_Drop_Ship_Source(p_line_tbl IN OE_ORDER_PUB.Line_Tbl_Type) IS
49: --
50: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
51: --
52: BEGIN
53:
54: FOR I in 1..p_line_tbl.count LOOP
85: AND SERVICE_REFERENCE_TYPE_CODE = 'ORDER'
86: AND OPEN_FLAG <> 'N' -- Bug 7555831 and 7555832
87: AND NVL(CANCELLED_FLAG,'N') <> 'Y';
88: --
89: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
90: --
91: BEGIN
92: IF l_debug_level > 0 THEN
93: oe_debug_pub.add('Enter non prop service lines',5);
89: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
90: --
91: BEGIN
92: IF l_debug_level > 0 THEN
93: oe_debug_pub.add('Enter non prop service lines',5);
94: OE_DEBUG_PUB.add('#5112495, select service reference type code ORDER only',1);
95: END IF;
96: x_line_tbl := p_line_tbl;
97: FOR I in 1 .. p_line_tbl.count LOOP
90: --
91: BEGIN
92: IF l_debug_level > 0 THEN
93: oe_debug_pub.add('Enter non prop service lines',5);
94: OE_DEBUG_PUB.add('#5112495, select service reference type code ORDER only',1);
95: END IF;
96: x_line_tbl := p_line_tbl;
97: FOR I in 1 .. p_line_tbl.count LOOP
98: IF p_line_tbl(I).operation = OE_GLOBALS.G_OPR_UPDATE THEN
122: l_ser_line_tbl(l_service_count).service_reference_line_id := p_line_tbl(I).line_id;
123: END LOOP;
124: END LOOP;
125: IF l_debug_level > 0 THEN
126: oe_debug_pub.add('service lines',5) ;
127: END IF;
128: FOR I in 1..l_ser_line_tbl.count LOOP
129: IF l_debug_level > 0 THEN
130: oe_debug_pub.add(l_ser_line_tbl(I).item_type_code);
126: oe_debug_pub.add('service lines',5) ;
127: END IF;
128: FOR I in 1..l_ser_line_tbl.count LOOP
129: IF l_debug_level > 0 THEN
130: oe_debug_pub.add(l_ser_line_tbl(I).item_type_code);
131: oe_debug_pub.add(l_ser_line_tbl(I).operation);
132: oe_debug_pub.add(l_ser_line_tbl(I).service_reference_line_id);
133: END IF;
134: END LOOP;
127: END IF;
128: FOR I in 1..l_ser_line_tbl.count LOOP
129: IF l_debug_level > 0 THEN
130: oe_debug_pub.add(l_ser_line_tbl(I).item_type_code);
131: oe_debug_pub.add(l_ser_line_tbl(I).operation);
132: oe_debug_pub.add(l_ser_line_tbl(I).service_reference_line_id);
133: END IF;
134: END LOOP;
135: -- Populate Out table
128: FOR I in 1..l_ser_line_tbl.count LOOP
129: IF l_debug_level > 0 THEN
130: oe_debug_pub.add(l_ser_line_tbl(I).item_type_code);
131: oe_debug_pub.add(l_ser_line_tbl(I).operation);
132: oe_debug_pub.add(l_ser_line_tbl(I).service_reference_line_id);
133: END IF;
134: END LOOP;
135: -- Populate Out table
136: l_service_count := p_line_tbl.count + 1;
138: x_line_tbl(l_service_count) := l_ser_line_tbl(I);
139: l_service_count := l_service_count + 1;
140: END LOOP;
141: IF l_debug_level > 0 THEN
142: oe_debug_pub.add('Exit non service lines',5);
143: END IF;
144: EXCEPTION
145: WHEN OTHERS THEN
146: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
155: FUNCTION Get_Shipment_Number(p_line_rec oe_order_pub.line_rec_type) RETURN NUMBER IS
156: l_ship_number NUMBER := NULL;
157: l_config_rec OE_ORDER_PUB.line_rec_type;
158: --
159: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
160: --
161:
162: --9534576
163: l_line_set_id NUMBER ;
169: WHERE line_set_id= p_line_set_id;
170: --9534576
171: BEGIN
172: IF l_debug_level > 0 THEN
173: oe_debug_pub.add( 'IN PKG OE_DEFAULT_LINE: FUNCTION GET_SHIPMENT_NUMBER' ) ;
174: END IF;
175: IF p_line_rec.top_model_line_id IS NULL
176: OR p_line_rec.top_model_line_id = FND_API.G_MISS_NUM THEN
177: SELECT NVL(MAX(SHIPMENT_NUMBER)+1,1)
211: else
212:
213: FOR i IN models(l_line_set_id) LOOP
214: IF l_debug_level > 0 THEN
215: oe_debug_pub.add( 'for the mode line:'|| i.line_id) ;
216: END IF;
217:
218: SELECT NVL(MAX(SHIPMENT_NUMBER),-1)
219: INTO l_chk_ship_number
227:
228: IF Nvl(l_chk_ship_number,-1) > Nvl(l_max_ship_number,-1) THEN
229:
230: IF l_debug_level > 0 THEN
231: oe_debug_pub.add( 'checking the value of max shipment number'||i.line_id);
232: oe_debug_pub.add(l_max_ship_number);
233: oe_debug_pub.add(l_CHK_ship_number);
234: END IF;
235: l_max_ship_number:= l_chk_ship_number;
228: IF Nvl(l_chk_ship_number,-1) > Nvl(l_max_ship_number,-1) THEN
229:
230: IF l_debug_level > 0 THEN
231: oe_debug_pub.add( 'checking the value of max shipment number'||i.line_id);
232: oe_debug_pub.add(l_max_ship_number);
233: oe_debug_pub.add(l_CHK_ship_number);
234: END IF;
235: l_max_ship_number:= l_chk_ship_number;
236: END IF;
229:
230: IF l_debug_level > 0 THEN
231: oe_debug_pub.add( 'checking the value of max shipment number'||i.line_id);
232: oe_debug_pub.add(l_max_ship_number);
233: oe_debug_pub.add(l_CHK_ship_number);
234: END IF;
235: l_max_ship_number:= l_chk_ship_number;
236: END IF;
237: END LOOP;
236: END IF;
237: END LOOP;
238: l_ship_number:= l_max_ship_number+1;
239: RETURN l_ship_number;
240: oe_debug_pub.add('returned value is:'||l_ship_number);
241: end if ;
242: --9534576
243:
244: ELSE
247: INTO l_ship_number
248: FROM oe_order_lines
249: WHERE line_id = p_line_rec.top_model_line_id;
250: IF l_debug_level > 0 THEN
251: oe_debug_pub.add( 'SHIPMENT_NUMBER '||l_ship_number,1 ) ;
252: END IF;
253: /*
254: l_config_rec := OE_Order_Cache.Load_Top_Model_Line(p_line_rec.top_model_line_id );
255: l_ship_number := l_config_rec.shipment_number;
277: AND NVL(SHIPPABLE_FLAG,'N')='Y';
278: l_line_tbl OE_ORDER_PUB.line_tbl_type := p_line_tbl;
279: l_exist varchar2(1) := 'N';
280: --
281: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
282: --
283: BEGIN
284: l_line_id := p_line_id;
285: FOR optionrec in optiontbl LOOP
283: BEGIN
284: l_line_id := p_line_id;
285: FOR optionrec in optiontbl LOOP
286: IF l_debug_level > 0 THEN
287: oe_debug_pub.add( 'INTO OPTION TABLE-' ) ;
288: END IF;
289: l_exist := 'N';
290: FOR I in 1 .. l_line_tbl.count LOOP
291: IF l_debug_level > 0 THEN
288: END IF;
289: l_exist := 'N';
290: FOR I in 1 .. l_line_tbl.count LOOP
291: IF l_debug_level > 0 THEN
292: oe_debug_pub.add( 'LINE_ID-' ||OPTIONREC.LINE_ID ) ;
293: END IF;
294: IF optionrec.line_id = l_line_tbl(I).line_id THEN
295: IF l_debug_level > 0 THEN
296: oe_debug_pub.add( 'EQUAL OPTION TABLE-' ) ;
292: oe_debug_pub.add( 'LINE_ID-' ||OPTIONREC.LINE_ID ) ;
293: END IF;
294: IF optionrec.line_id = l_line_tbl(I).line_id THEN
295: IF l_debug_level > 0 THEN
296: oe_debug_pub.add( 'EQUAL OPTION TABLE-' ) ;
297: END IF;
298: l_exist := 'Y';
299: EXIT;
300: END IF;
303: RETURN l_exist;
304: END IF;
305: END LOOP;
306: IF l_debug_level > 0 THEN
307: oe_debug_pub.add( 'RESULT-'||L_EXIST ) ;
308: END IF;
309: RETURN l_exist;
310: EXCEPTION WHEN OTHERS THEN
311: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
333: AND SERVICE_REFERENCE_TYPE_CODE = 'ORDER'
334: AND OPEN_FLAG <> 'N' -- Bug 6710212
335: AND NVL(CANCELLED_FLAG,'N') <> 'Y';
336: --
337: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
338: --
339: BEGIN
340: IF l_debug_level > 0 THEN
341: oe_debug_pub.add('Enter get_service_lines()',5);
337: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
338: --
339: BEGIN
340: IF l_debug_level > 0 THEN
341: oe_debug_pub.add('Enter get_service_lines()',5);
342: END IF;
343: x_line_tbl := p_line_tbl;
344: l_line_id := g_split_line_tbl(1).line_id;
345: FOR Ser_rec IN Sertbl LOOP
389:
390: FOR I in 1..x_line_tbl.count LOOP
391: --While i is not null loop
392: IF l_debug_level > 0 THEN
393: oe_debug_pub.add('Quantity '||x_line_tbl(i).ordered_quantity,5);
394: oe_debug_pub.add('Operation '||x_line_tbl(i).operation,5);
395: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
396: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
397: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
390: FOR I in 1..x_line_tbl.count LOOP
391: --While i is not null loop
392: IF l_debug_level > 0 THEN
393: oe_debug_pub.add('Quantity '||x_line_tbl(i).ordered_quantity,5);
394: oe_debug_pub.add('Operation '||x_line_tbl(i).operation,5);
395: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
396: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
397: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
398: oe_debug_pub.add('Line set '||x_line_tbl(i).line_set_id,5);
391: --While i is not null loop
392: IF l_debug_level > 0 THEN
393: oe_debug_pub.add('Quantity '||x_line_tbl(i).ordered_quantity,5);
394: oe_debug_pub.add('Operation '||x_line_tbl(i).operation,5);
395: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
396: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
397: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
398: oe_debug_pub.add('Line set '||x_line_tbl(i).line_set_id,5);
399: oe_debug_pub.add(x_line_tbl(i).split_action_code,5);
392: IF l_debug_level > 0 THEN
393: oe_debug_pub.add('Quantity '||x_line_tbl(i).ordered_quantity,5);
394: oe_debug_pub.add('Operation '||x_line_tbl(i).operation,5);
395: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
396: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
397: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
398: oe_debug_pub.add('Line set '||x_line_tbl(i).line_set_id,5);
399: oe_debug_pub.add(x_line_tbl(i).split_action_code,5);
400: END IF;
393: oe_debug_pub.add('Quantity '||x_line_tbl(i).ordered_quantity,5);
394: oe_debug_pub.add('Operation '||x_line_tbl(i).operation,5);
395: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
396: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
397: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
398: oe_debug_pub.add('Line set '||x_line_tbl(i).line_set_id,5);
399: oe_debug_pub.add(x_line_tbl(i).split_action_code,5);
400: END IF;
401: --i:= l_line_tbl.next(i);
394: oe_debug_pub.add('Operation '||x_line_tbl(i).operation,5);
395: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
396: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
397: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
398: oe_debug_pub.add('Line set '||x_line_tbl(i).line_set_id,5);
399: oe_debug_pub.add(x_line_tbl(i).split_action_code,5);
400: END IF;
401: --i:= l_line_tbl.next(i);
402: END LOOP;
395: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
396: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
397: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
398: oe_debug_pub.add('Line set '||x_line_tbl(i).line_set_id,5);
399: oe_debug_pub.add(x_line_tbl(i).split_action_code,5);
400: END IF;
401: --i:= l_line_tbl.next(i);
402: END LOOP;
403: IF l_debug_level > 0 THEN
400: END IF;
401: --i:= l_line_tbl.next(i);
402: END LOOP;
403: IF l_debug_level > 0 THEN
404: oe_debug_pub.add('Exit service lines()',5 ) ;
405: END IF;
406: EXCEPTION
407: WHEN OTHERS THEN
408: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
466: AND NVL(CANCELLED_FLAG,'N')<> 'Y'
467: ORDER BY LINE_ID;
468: --end bug 12758138
469: --
470: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
471: --
472: BEGIN
473: IF l_debug_level > 0 THEN
474: oe_debug_pub.add('Entering splitting non-model configuration with following picture ',5);
470: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
471: --
472: BEGIN
473: IF l_debug_level > 0 THEN
474: oe_debug_pub.add('Entering splitting non-model configuration with following picture ',5);
475: END IF;
476: FOR I in 1..p_line_tbl.count LOOP
477: IF l_debug_level > 0 THEN
478: oe_debug_pub.add('line id : '||p_line_tbl(i).line_id , 1 ) ;
474: oe_debug_pub.add('Entering splitting non-model configuration with following picture ',5);
475: END IF;
476: FOR I in 1..p_line_tbl.count LOOP
477: IF l_debug_level > 0 THEN
478: oe_debug_pub.add('line id : '||p_line_tbl(i).line_id , 1 ) ;
479: oe_debug_pub.add('ordered quantity : '||p_line_tbl(i).ordered_quantity , 1 ) ;
480: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
481: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
482: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
475: END IF;
476: FOR I in 1..p_line_tbl.count LOOP
477: IF l_debug_level > 0 THEN
478: oe_debug_pub.add('line id : '||p_line_tbl(i).line_id , 1 ) ;
479: oe_debug_pub.add('ordered quantity : '||p_line_tbl(i).ordered_quantity , 1 ) ;
480: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
481: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
482: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
483: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
476: FOR I in 1..p_line_tbl.count LOOP
477: IF l_debug_level > 0 THEN
478: oe_debug_pub.add('line id : '||p_line_tbl(i).line_id , 1 ) ;
479: oe_debug_pub.add('ordered quantity : '||p_line_tbl(i).ordered_quantity , 1 ) ;
480: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
481: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
482: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
483: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
484: oe_debug_pub.add('top model line id : '||p_line_tbl(i).top_model_line_id , 1 ) ;
477: IF l_debug_level > 0 THEN
478: oe_debug_pub.add('line id : '||p_line_tbl(i).line_id , 1 ) ;
479: oe_debug_pub.add('ordered quantity : '||p_line_tbl(i).ordered_quantity , 1 ) ;
480: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
481: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
482: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
483: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
484: oe_debug_pub.add('top model line id : '||p_line_tbl(i).top_model_line_id , 1 ) ;
485: oe_debug_pub.add('actual shipment on : '||p_line_tbl(i).actual_shipment_date,1);
478: oe_debug_pub.add('line id : '||p_line_tbl(i).line_id , 1 ) ;
479: oe_debug_pub.add('ordered quantity : '||p_line_tbl(i).ordered_quantity , 1 ) ;
480: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
481: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
482: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
483: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
484: oe_debug_pub.add('top model line id : '||p_line_tbl(i).top_model_line_id , 1 ) ;
485: oe_debug_pub.add('actual shipment on : '||p_line_tbl(i).actual_shipment_date,1);
486: END IF;
479: oe_debug_pub.add('ordered quantity : '||p_line_tbl(i).ordered_quantity , 1 ) ;
480: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
481: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
482: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
483: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
484: oe_debug_pub.add('top model line id : '||p_line_tbl(i).top_model_line_id , 1 ) ;
485: oe_debug_pub.add('actual shipment on : '||p_line_tbl(i).actual_shipment_date,1);
486: END IF;
487: END LOOP;
480: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
481: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
482: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
483: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
484: oe_debug_pub.add('top model line id : '||p_line_tbl(i).top_model_line_id , 1 ) ;
485: oe_debug_pub.add('actual shipment on : '||p_line_tbl(i).actual_shipment_date,1);
486: END IF;
487: END LOOP;
488: x_line_tbl := p_line_tbl;
481: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
482: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
483: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
484: oe_debug_pub.add('top model line id : '||p_line_tbl(i).top_model_line_id , 1 ) ;
485: oe_debug_pub.add('actual shipment on : '||p_line_tbl(i).actual_shipment_date,1);
486: END IF;
487: END LOOP;
488: x_line_tbl := p_line_tbl;
489: l_line_id := p_line_tbl(1).top_model_line_id;
492: l_parent_line := l_line_rec;
493: -- Get Complete shipped Model if any
494: -- Form Complete Shipped Model if g_max_model > 0
495: IF l_debug_level > 0 THEN
496: oe_debug_pub.add('********* Completing shipped model *************** ',5);
497: END IF;
498: IF g_max_model > 0 THEN
499: l_parent_line := l_line_rec;
500: l_parent_line.ordered_quantity := g_max_model;
515: option_updated := FALSE;
516: FOR I in 1..P_line_tbl.count LOOP
517: IF p_line_tbl(I).line_id = optionrec.line_id THEN
518: IF l_debug_level > 0 THEN
519: oe_debug_pub.add( X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
520: END IF;
521: x_line_tbl(I).ordered_quantity := g_max_model * l_model_ratio;
522: x_line_tbl(I).operation := oe_globals.g_opr_update;
523: x_line_tbl(I).shipped_quantity := x_line_tbl(I).ordered_quantity;
522: x_line_tbl(I).operation := oe_globals.g_opr_update;
523: x_line_tbl(I).shipped_quantity := x_line_tbl(I).ordered_quantity;
524: option_updated := TRUE;
525: IF l_debug_level > 0 THEN
526: oe_debug_pub.add( 'ORD QTY' ||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
527: END IF;
528: EXIT;
529: END IF;
530: END LOOP;
542: END IF; -- Option not updated
543: option_updated := false;
544: END LOOP;
545: IF l_debug_level > 0 THEN
546: oe_debug_pub.add('After maximum shipped model',5 ) ;
547: END IF;
548: FOR I in 1..l_option_line_tbl.count LOOP
549: IF l_debug_level > 0 THEN
550: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
546: oe_debug_pub.add('After maximum shipped model',5 ) ;
547: END IF;
548: FOR I in 1..l_option_line_tbl.count LOOP
549: IF l_debug_level > 0 THEN
550: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
551: oe_debug_pub.add('Item Type Code : '|| l_option_line_tbl ( i ) .item_type_code , 1 ) ;
552: oe_debug_pub.add('Operation : '|| l_option_line_tbl ( i ) .operation , 1 ) ;
553: END IF;
554: END LOOP;
547: END IF;
548: FOR I in 1..l_option_line_tbl.count LOOP
549: IF l_debug_level > 0 THEN
550: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
551: oe_debug_pub.add('Item Type Code : '|| l_option_line_tbl ( i ) .item_type_code , 1 ) ;
552: oe_debug_pub.add('Operation : '|| l_option_line_tbl ( i ) .operation , 1 ) ;
553: END IF;
554: END LOOP;
555: END IF; -- g_max_model
548: FOR I in 1..l_option_line_tbl.count LOOP
549: IF l_debug_level > 0 THEN
550: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
551: oe_debug_pub.add('Item Type Code : '|| l_option_line_tbl ( i ) .item_type_code , 1 ) ;
552: oe_debug_pub.add('Operation : '|| l_option_line_tbl ( i ) .operation , 1 ) ;
553: END IF;
554: END LOOP;
555: END IF; -- g_max_model
556: -- End Complete Shipped Model
555: END IF; -- g_max_model
556: -- End Complete Shipped Model
557: -- Get Complete shippable Model if any
558: IF l_debug_level > 0 THEN
559: oe_debug_pub.add('Completing unshipped model ',1);
560: END IF;
561: IF g_min_Model > 0 THEN
562: l_parent_line := l_line_rec;
563: l_parent_line.ordered_quantity := g_min_model;
564: l_parent_line.operation := oe_globals.g_opr_create;
565: l_parent_line.split_by := 'SYSTEM';
566: l_parent_line.split_from_line_id := l_parent_line.line_id;
567: IF l_debug_level > 0 THEN
568: oe_debug_pub.add('Line set id is : '||l_set_id,5) ;
569: END IF;
570: l_parent_line.line_id := fnd_api.g_miss_num;
571: l_parent_line.orig_sys_line_ref :=fnd_api.g_miss_char; -- Bug5207907
572: OE_Split_Util.Default_Attributes
604:
605: FOR I in 1..l_option_line_tbl.count LOOP
606: IF l_option_line_tbl(I).split_from_line_id = l_ato_line_id
607: AND l_option_line_tbl(I).top_model_line_id = l_parent_line.line_id THEN
608: oe_debug_pub.add('Setting ATO Line ID '||l_option_line_tbl(I).line_id);
609: l_option_line_tbl(l_option_count).ato_line_id := l_option_line_tbl(I).line_id;
610: END IF;
611: END LOOP;
612: /*bug 14198118 end*/
614: l_option_line_tbl(l_option_count).ordered_quantity := g_min_model * l_model_ratio ;
615: END LOOP;
616: END IF;
617: IF l_debug_level > 0 THEN
618: oe_debug_pub.add('after get shippable model',5);
619: END IF;
620: FOR I in 1..l_option_line_tbl.count LOOP
621: IF l_debug_level > 0 THEN
622: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
618: oe_debug_pub.add('after get shippable model',5);
619: END IF;
620: FOR I in 1..l_option_line_tbl.count LOOP
621: IF l_debug_level > 0 THEN
622: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
623: oe_debug_pub.add('Item Type : '||l_option_line_tbl ( i ) .item_type_code , 1 ) ;
624: oe_debug_pub.add('Operation : '||l_option_line_tbl ( i ) .operation , 1 ) ;
625: oe_debug_pub.add('Line Set ID : '||l_option_line_tbl ( i ) .line_set_id , 1 ) ;
626: END IF;
619: END IF;
620: FOR I in 1..l_option_line_tbl.count LOOP
621: IF l_debug_level > 0 THEN
622: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
623: oe_debug_pub.add('Item Type : '||l_option_line_tbl ( i ) .item_type_code , 1 ) ;
624: oe_debug_pub.add('Operation : '||l_option_line_tbl ( i ) .operation , 1 ) ;
625: oe_debug_pub.add('Line Set ID : '||l_option_line_tbl ( i ) .line_set_id , 1 ) ;
626: END IF;
627: END LOOP;
620: FOR I in 1..l_option_line_tbl.count LOOP
621: IF l_debug_level > 0 THEN
622: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
623: oe_debug_pub.add('Item Type : '||l_option_line_tbl ( i ) .item_type_code , 1 ) ;
624: oe_debug_pub.add('Operation : '||l_option_line_tbl ( i ) .operation , 1 ) ;
625: oe_debug_pub.add('Line Set ID : '||l_option_line_tbl ( i ) .line_set_id , 1 ) ;
626: END IF;
627: END LOOP;
628: -- Get Remnant shipped
621: IF l_debug_level > 0 THEN
622: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
623: oe_debug_pub.add('Item Type : '||l_option_line_tbl ( i ) .item_type_code , 1 ) ;
624: oe_debug_pub.add('Operation : '||l_option_line_tbl ( i ) .operation , 1 ) ;
625: oe_debug_pub.add('Line Set ID : '||l_option_line_tbl ( i ) .line_set_id , 1 ) ;
626: END IF;
627: END LOOP;
628: -- Get Remnant shipped
629:
628: -- Get Remnant shipped
629:
630: l_parent_line := l_line_rec;
631: IF l_debug_level > 0 THEN
632: oe_debug_pub.add('Process completely shipped remnant lines',1);
633: oe_debug_pub.add('Parent quantity 1 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
634: END IF;
635: l_parent_line.ordered_quantity := l_line_rec.ordered_quantity - g_max_model - g_min_model ;
636: IF l_debug_level > 0 THEN
629:
630: l_parent_line := l_line_rec;
631: IF l_debug_level > 0 THEN
632: oe_debug_pub.add('Process completely shipped remnant lines',1);
633: oe_debug_pub.add('Parent quantity 1 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
634: END IF;
635: l_parent_line.ordered_quantity := l_line_rec.ordered_quantity - g_max_model - g_min_model ;
636: IF l_debug_level > 0 THEN
637: oe_debug_pub.add('Parent quantity 2 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
633: oe_debug_pub.add('Parent quantity 1 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
634: END IF;
635: l_parent_line.ordered_quantity := l_line_rec.ordered_quantity - g_max_model - g_min_model ;
636: IF l_debug_level > 0 THEN
637: oe_debug_pub.add('Parent quantity 2 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
638: END IF;
639: IF l_parent_line.ordered_quantity > 0 THEN
640: IF g_max_model = 0 THEN
641: IF l_parent_line.line_set_id is null AND l_set_id IS NULL THEN
710: l_option_line_tbl(l_option_count).shipped_quantity :=
711: l_option_line_tbl(l_option_count).ordered_quantity;
712: l_option_line_tbl(l_option_count).actual_shipment_date := l_actual_shipment_date;
713: IF l_debug_level > 0 THEN
714: oe_debug_pub.add('Model Ratio : ' ||l_model_ratio,1);
715: oe_debug_pub.add('Index : ' ||I , 1 ) ;
716: oe_debug_pub.add('Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
717: oe_debug_pub.add('actual shipment date : '||l_option_line_tbl(l_option_count).actual_shipment_date,5);
718: oe_debug_pub.add('shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
711: l_option_line_tbl(l_option_count).ordered_quantity;
712: l_option_line_tbl(l_option_count).actual_shipment_date := l_actual_shipment_date;
713: IF l_debug_level > 0 THEN
714: oe_debug_pub.add('Model Ratio : ' ||l_model_ratio,1);
715: oe_debug_pub.add('Index : ' ||I , 1 ) ;
716: oe_debug_pub.add('Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
717: oe_debug_pub.add('actual shipment date : '||l_option_line_tbl(l_option_count).actual_shipment_date,5);
718: oe_debug_pub.add('shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
719: END IF;
712: l_option_line_tbl(l_option_count).actual_shipment_date := l_actual_shipment_date;
713: IF l_debug_level > 0 THEN
714: oe_debug_pub.add('Model Ratio : ' ||l_model_ratio,1);
715: oe_debug_pub.add('Index : ' ||I , 1 ) ;
716: oe_debug_pub.add('Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
717: oe_debug_pub.add('actual shipment date : '||l_option_line_tbl(l_option_count).actual_shipment_date,5);
718: oe_debug_pub.add('shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
719: END IF;
720: IF l_rem_top_model_line_id is not null then
713: IF l_debug_level > 0 THEN
714: oe_debug_pub.add('Model Ratio : ' ||l_model_ratio,1);
715: oe_debug_pub.add('Index : ' ||I , 1 ) ;
716: oe_debug_pub.add('Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
717: oe_debug_pub.add('actual shipment date : '||l_option_line_tbl(l_option_count).actual_shipment_date,5);
718: oe_debug_pub.add('shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
719: END IF;
720: IF l_rem_top_model_line_id is not null then
721: l_option_line_tbl(l_option_count).top_model_line_id := l_rem_top_model_line_id;
714: oe_debug_pub.add('Model Ratio : ' ||l_model_ratio,1);
715: oe_debug_pub.add('Index : ' ||I , 1 ) ;
716: oe_debug_pub.add('Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
717: oe_debug_pub.add('actual shipment date : '||l_option_line_tbl(l_option_count).actual_shipment_date,5);
718: oe_debug_pub.add('shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
719: END IF;
720: IF l_rem_top_model_line_id is not null then
721: l_option_line_tbl(l_option_count).top_model_line_id := l_rem_top_model_line_id;
722: ELSE
733: FOR I in 1..l_option_line_tbl.count LOOP
734: IF l_option_line_tbl(I).split_from_line_id = l_ato_line_id
735: AND l_option_line_tbl(I).top_model_line_id = l_option_line_tbl(l_option_count).top_model_line_id
736: AND l_option_line_tbl(I).model_remnant_flag = 'Y' THEN
737: oe_debug_pub.add('Setting ATO Line ID - '||l_option_line_tbl(I).line_id);
738: l_option_line_tbl(l_option_count).ato_line_id := l_option_line_tbl(I).line_id;
739: END IF;
740: END LOOP;
741: /*bug 14198118 end*/
765: l_option_line_tbl(l_option_count).split_from_line_id := configrec.line_id;
766: l_option_line_tbl(l_option_count).operation := oe_globals.g_opr_create;
767: l_option_line_tbl(l_option_count).split_by := 'SYSTEM';
768: IF l_debug_level > 0 THEN
769: oe_debug_pub.add('adding for ato model in procedure Get_non_Model_Configuration',5) ;
770: END IF;
771: l_option_line_tbl(l_option_count).orig_sys_line_ref := fnd_api.g_miss_char; --Bug5223102
772: g_qry_out_rec := l_option_line_tbl(l_option_count) ;
773:
782: l_option_line_tbl(l_option_count).shipped_quantity :=
783: l_option_line_tbl(l_option_count).ordered_quantity;
784:
785: IF l_debug_level > 0 THEN
786: oe_debug_pub.add(' Model Ratio : ' ||l_model_ratio,1);
787: oe_debug_pub.add(' Index : ' ||I , 1 ) ;
788: oe_debug_pub.add(' Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
789: oe_debug_pub.add(' shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
790: END IF;
783: l_option_line_tbl(l_option_count).ordered_quantity;
784:
785: IF l_debug_level > 0 THEN
786: oe_debug_pub.add(' Model Ratio : ' ||l_model_ratio,1);
787: oe_debug_pub.add(' Index : ' ||I , 1 ) ;
788: oe_debug_pub.add(' Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
789: oe_debug_pub.add(' shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
790: END IF;
791: IF l_rem_top_model_line_id is not null then
784:
785: IF l_debug_level > 0 THEN
786: oe_debug_pub.add(' Model Ratio : ' ||l_model_ratio,1);
787: oe_debug_pub.add(' Index : ' ||I , 1 ) ;
788: oe_debug_pub.add(' Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
789: oe_debug_pub.add(' shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
790: END IF;
791: IF l_rem_top_model_line_id is not null then
792: l_option_line_tbl(l_option_count).top_model_line_id := l_rem_top_model_line_id;
785: IF l_debug_level > 0 THEN
786: oe_debug_pub.add(' Model Ratio : ' ||l_model_ratio,1);
787: oe_debug_pub.add(' Index : ' ||I , 1 ) ;
788: oe_debug_pub.add(' Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
789: oe_debug_pub.add(' shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
790: END IF;
791: IF l_rem_top_model_line_id is not null then
792: l_option_line_tbl(l_option_count).top_model_line_id := l_rem_top_model_line_id;
793: ELSE
801: FOR I in 1..l_option_line_tbl.count LOOP
802: IF l_option_line_tbl(I).split_from_line_id = l_ato_line_id
803: AND l_option_line_tbl(I).top_model_line_id = l_option_line_tbl(l_option_count).top_model_line_id
804: AND l_option_line_tbl(I).model_remnant_flag = 'Y' THEN
805: oe_debug_pub.add(' Setting ATO Line ID - '||l_option_line_tbl(I).line_id);
806: l_option_line_tbl(l_option_count).ato_line_id := l_option_line_tbl(I).line_id;
807: END IF;
808: END LOOP;
809: /*bug 14198118 end*/
821: /*l_parent_line := l_line_rec;
822: l_parent_line.ordered_quantity :=
823: l_line_rec.ordered_quantity - p_line_tbl(1).shipped_quantity - g_min_model;
824: IF l_debug_level > 0 THEN
825: oe_debug_pub.add('Parent line ordered quantity ' || l_parent_line.ordered_quantity);
826: oe_debug_pub.add('This line ordered quantity ' || l_line_rec.ordered_quantity);
827: oe_debug_pub.add('Ordered quantity on the table ' || x_line_tbl(1).ordered_quantity);
828: END IF;
829: IF l_parent_line.ordered_quantity <> 0 THEN
822: l_parent_line.ordered_quantity :=
823: l_line_rec.ordered_quantity - p_line_tbl(1).shipped_quantity - g_min_model;
824: IF l_debug_level > 0 THEN
825: oe_debug_pub.add('Parent line ordered quantity ' || l_parent_line.ordered_quantity);
826: oe_debug_pub.add('This line ordered quantity ' || l_line_rec.ordered_quantity);
827: oe_debug_pub.add('Ordered quantity on the table ' || x_line_tbl(1).ordered_quantity);
828: END IF;
829: IF l_parent_line.ordered_quantity <> 0 THEN
830: l_parent_line.operation := oe_globals.g_opr_create;
823: l_line_rec.ordered_quantity - p_line_tbl(1).shipped_quantity - g_min_model;
824: IF l_debug_level > 0 THEN
825: oe_debug_pub.add('Parent line ordered quantity ' || l_parent_line.ordered_quantity);
826: oe_debug_pub.add('This line ordered quantity ' || l_line_rec.ordered_quantity);
827: oe_debug_pub.add('Ordered quantity on the table ' || x_line_tbl(1).ordered_quantity);
828: END IF;
829: IF l_parent_line.ordered_quantity <> 0 THEN
830: l_parent_line.operation := oe_globals.g_opr_create;
831: l_parent_line.split_by := 'SYSTEM';
874: l_insert_quantity := g_max_model *l_model_ratio;
875: END IF;
876: l_update_quantity := l_option_line.ordered_quantity - g_min_model * l_model_ratio - l_insert_quantity ;
877: IF l_debug_level > 0 THEN
878: oe_debug_pub.add('Update Quantity : '||l_update_quantity,5) ;
879: oe_debug_pub.add('Option line Ordered Quantity : '||l_option_line.ordered_quantity,5);
880: oe_debug_pub.add('Ratio : ' || g_min_model * l_model_ratio,5);
881: oe_debug_pub.add('Insert Quantity : ' || l_insert_quantity,5);
882: END IF;
875: END IF;
876: l_update_quantity := l_option_line.ordered_quantity - g_min_model * l_model_ratio - l_insert_quantity ;
877: IF l_debug_level > 0 THEN
878: oe_debug_pub.add('Update Quantity : '||l_update_quantity,5) ;
879: oe_debug_pub.add('Option line Ordered Quantity : '||l_option_line.ordered_quantity,5);
880: oe_debug_pub.add('Ratio : ' || g_min_model * l_model_ratio,5);
881: oe_debug_pub.add('Insert Quantity : ' || l_insert_quantity,5);
882: END IF;
883: IF l_update_quantity > 0 THEN
876: l_update_quantity := l_option_line.ordered_quantity - g_min_model * l_model_ratio - l_insert_quantity ;
877: IF l_debug_level > 0 THEN
878: oe_debug_pub.add('Update Quantity : '||l_update_quantity,5) ;
879: oe_debug_pub.add('Option line Ordered Quantity : '||l_option_line.ordered_quantity,5);
880: oe_debug_pub.add('Ratio : ' || g_min_model * l_model_ratio,5);
881: oe_debug_pub.add('Insert Quantity : ' || l_insert_quantity,5);
882: END IF;
883: IF l_update_quantity > 0 THEN
884: l_option_count := l_option_count + 1;
877: IF l_debug_level > 0 THEN
878: oe_debug_pub.add('Update Quantity : '||l_update_quantity,5) ;
879: oe_debug_pub.add('Option line Ordered Quantity : '||l_option_line.ordered_quantity,5);
880: oe_debug_pub.add('Ratio : ' || g_min_model * l_model_ratio,5);
881: oe_debug_pub.add('Insert Quantity : ' || l_insert_quantity,5);
882: END IF;
883: IF l_update_quantity > 0 THEN
884: l_option_count := l_option_count + 1;
885: IF NOT option_updated AND g_max_model = 0 THEN
922:
923: FOR I in 1..l_option_line_tbl.count LOOP
924: IF l_option_line_tbl(I).split_from_line_id = l_ato_line_id
925: AND l_option_line_tbl(I).top_model_line_id = l_option_line_tbl(l_option_count).top_model_line_id THEN
926: oe_debug_pub.add('Setting ATO Line ID - '||l_option_line_tbl(I).line_id);
927: l_option_line_tbl(l_option_count).ato_line_id := l_option_line_tbl(I).line_id;
928: END IF;
929: END LOOP;
930: END IF;
935: END IF; -- Update Quantity
936: option_updated := false;
937: END LOOP;
938: IF l_debug_level > 0 THEN
939: oe_debug_pub.add('Out table count : ' || x_line_tbl.count,1) ;
940: END IF;
941: l_option_count := x_line_tbl.count + 1;
942: FOR I in 1..l_option_line_tbl.count LOOP
943: --bug 12758138
952: x_line_tbl(l_option_count) := l_option_line_tbl(I);
953: l_option_count := l_option_count + 1;
954: END LOOP;
955: IF l_debug_level > 0 THEN
956: oe_debug_pub.add('Final table picture : ',5);
957: END IF;
958: FOR I in 1..x_line_tbl.count LOOP
959: IF l_debug_level > 0 THEN
960: oe_debug_pub.add('line id : '||x_line_tbl(i).line_id , 1 ) ;
956: oe_debug_pub.add('Final table picture : ',5);
957: END IF;
958: FOR I in 1..x_line_tbl.count LOOP
959: IF l_debug_level > 0 THEN
960: oe_debug_pub.add('line id : '||x_line_tbl(i).line_id , 1 ) ;
961: oe_debug_pub.add('ordered quantity : '||x_line_tbl(i).ordered_quantity , 1 ) ;
962: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
963: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
964: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
957: END IF;
958: FOR I in 1..x_line_tbl.count LOOP
959: IF l_debug_level > 0 THEN
960: oe_debug_pub.add('line id : '||x_line_tbl(i).line_id , 1 ) ;
961: oe_debug_pub.add('ordered quantity : '||x_line_tbl(i).ordered_quantity , 1 ) ;
962: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
963: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
964: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
965: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
958: FOR I in 1..x_line_tbl.count LOOP
959: IF l_debug_level > 0 THEN
960: oe_debug_pub.add('line id : '||x_line_tbl(i).line_id , 1 ) ;
961: oe_debug_pub.add('ordered quantity : '||x_line_tbl(i).ordered_quantity , 1 ) ;
962: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
963: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
964: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
965: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
966: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
959: IF l_debug_level > 0 THEN
960: oe_debug_pub.add('line id : '||x_line_tbl(i).line_id , 1 ) ;
961: oe_debug_pub.add('ordered quantity : '||x_line_tbl(i).ordered_quantity , 1 ) ;
962: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
963: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
964: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
965: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
966: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
967: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
960: oe_debug_pub.add('line id : '||x_line_tbl(i).line_id , 1 ) ;
961: oe_debug_pub.add('ordered quantity : '||x_line_tbl(i).ordered_quantity , 1 ) ;
962: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
963: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
964: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
965: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
966: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
967: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
968: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
961: oe_debug_pub.add('ordered quantity : '||x_line_tbl(i).ordered_quantity , 1 ) ;
962: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
963: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
964: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
965: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
966: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
967: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
968: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
969: oe_debug_pub.add('actual shipment on : '||x_line_tbl(i).actual_shipment_date,1);
962: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
963: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
964: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
965: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
966: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
967: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
968: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
969: oe_debug_pub.add('actual shipment on : '||x_line_tbl(i).actual_shipment_date,1);
970: oe_debug_pub.add('ATO Line ID : '||x_line_tbl(i).ato_line_id);
963: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
964: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
965: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
966: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
967: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
968: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
969: oe_debug_pub.add('actual shipment on : '||x_line_tbl(i).actual_shipment_date,1);
970: oe_debug_pub.add('ATO Line ID : '||x_line_tbl(i).ato_line_id);
971: END IF;
964: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
965: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
966: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
967: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
968: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
969: oe_debug_pub.add('actual shipment on : '||x_line_tbl(i).actual_shipment_date,1);
970: oe_debug_pub.add('ATO Line ID : '||x_line_tbl(i).ato_line_id);
971: END IF;
972: END LOOP;
965: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
966: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
967: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
968: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
969: oe_debug_pub.add('actual shipment on : '||x_line_tbl(i).actual_shipment_date,1);
970: oe_debug_pub.add('ATO Line ID : '||x_line_tbl(i).ato_line_id);
971: END IF;
972: END LOOP;
973: IF l_debug_level > 0 THEN
966: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
967: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
968: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
969: oe_debug_pub.add('actual shipment on : '||x_line_tbl(i).actual_shipment_date,1);
970: oe_debug_pub.add('ATO Line ID : '||x_line_tbl(i).ato_line_id);
971: END IF;
972: END LOOP;
973: IF l_debug_level > 0 THEN
974: OE_DEBUG_PUB.add('Leaving get_non_model_configuration()',5);
970: oe_debug_pub.add('ATO Line ID : '||x_line_tbl(i).ato_line_id);
971: END IF;
972: END LOOP;
973: IF l_debug_level > 0 THEN
974: OE_DEBUG_PUB.add('Leaving get_non_model_configuration()',5);
975: END IF;
976: EXCEPTION
977: WHEN OTHERS THEN
978: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1023: AND LINE_ID <> l_line_id
1024: AND NVL(CANCELLED_FLAG,'N') <> 'Y'
1025: ORDER BY LINE_ID;
1026: --
1027: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1028: --
1029: BEGIN
1030: x_line_tbl := p_line_tbl;
1031: l_line_id := p_line_tbl(1).line_id;
1034: l_parent_line := l_line_rec;
1035: -- Get Complete shipped Model if any
1036: -- Form Complete Shipped Model if g_max_model > 0
1037: IF l_debug_level > 0 THEN
1038: oe_debug_pub.add( 'COMPLETE SHIPPED MODEL' ) ;
1039: END IF;
1040: IF g_max_model > 0 THEN
1041: l_parent_line := l_line_rec;
1042: l_parent_line.ordered_quantity := g_max_model;
1079: END IF; -- Option not updated
1080: option_updated := false;
1081: END LOOP;
1082: IF l_debug_level > 0 THEN
1083: oe_debug_pub.add( 'AFTER MAXIMUM SHIPPED MODEL' ) ;
1084: END IF;
1085: FOR I in 1..l_option_line_tbl.count LOOP
1086: IF l_debug_level > 0 THEN
1087: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1083: oe_debug_pub.add( 'AFTER MAXIMUM SHIPPED MODEL' ) ;
1084: END IF;
1085: FOR I in 1..l_option_line_tbl.count LOOP
1086: IF l_debug_level > 0 THEN
1087: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1088: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
1089: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
1090: END IF;
1091: END LOOP;
1084: END IF;
1085: FOR I in 1..l_option_line_tbl.count LOOP
1086: IF l_debug_level > 0 THEN
1087: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1088: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
1089: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
1090: END IF;
1091: END LOOP;
1092: END IF; -- g_max_model
1085: FOR I in 1..l_option_line_tbl.count LOOP
1086: IF l_debug_level > 0 THEN
1087: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1088: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
1089: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
1090: END IF;
1091: END LOOP;
1092: END IF; -- g_max_model
1093: -- End Complete Shipped Mo
1098: l_parent_line.operation := oe_globals.g_opr_create;
1099: l_parent_line.split_by := 'SYSTEM';
1100: l_parent_line.split_from_line_id := l_parent_line.line_id;
1101: IF l_debug_level > 0 THEN
1102: oe_debug_pub.add( 'LINE SET IS-'||L_SET_ID ) ;
1103: END IF;
1104: l_parent_line.line_id := fnd_api.g_miss_num;
1105: l_parent_line.orig_sys_line_ref := fnd_api.g_miss_char; --Bug5207907
1106: OE_Split_Util.Default_Attributes
1137: l_option_line_tbl(l_option_count).ordered_quantity := g_min_model * l_model_ratio ;
1138: END LOOP;
1139: END IF;
1140: IF l_debug_level > 0 THEN
1141: oe_debug_pub.add( 'AFTER GET SHIPPABLE MODEL' ) ;
1142: END IF;
1143: FOR I in 1..l_option_line_tbl.count LOOP
1144: IF l_debug_level > 0 THEN
1145: oe_debug_pub.add( 'ORDERED QUANTITY : '||L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1141: oe_debug_pub.add( 'AFTER GET SHIPPABLE MODEL' ) ;
1142: END IF;
1143: FOR I in 1..l_option_line_tbl.count LOOP
1144: IF l_debug_level > 0 THEN
1145: oe_debug_pub.add( 'ORDERED QUANTITY : '||L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1146: oe_debug_pub.add( 'ITEM TYPE CODE : '||L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
1147: oe_debug_pub.add( 'OPERATION : '||L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
1148: oe_debug_pub.add( 'LINE SET ID : '||L_OPTION_LINE_TBL ( I ) .LINE_SET_ID , 1 ) ;
1149: END IF;
1142: END IF;
1143: FOR I in 1..l_option_line_tbl.count LOOP
1144: IF l_debug_level > 0 THEN
1145: oe_debug_pub.add( 'ORDERED QUANTITY : '||L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1146: oe_debug_pub.add( 'ITEM TYPE CODE : '||L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
1147: oe_debug_pub.add( 'OPERATION : '||L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
1148: oe_debug_pub.add( 'LINE SET ID : '||L_OPTION_LINE_TBL ( I ) .LINE_SET_ID , 1 ) ;
1149: END IF;
1150: END LOOP;
1143: FOR I in 1..l_option_line_tbl.count LOOP
1144: IF l_debug_level > 0 THEN
1145: oe_debug_pub.add( 'ORDERED QUANTITY : '||L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1146: oe_debug_pub.add( 'ITEM TYPE CODE : '||L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
1147: oe_debug_pub.add( 'OPERATION : '||L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
1148: oe_debug_pub.add( 'LINE SET ID : '||L_OPTION_LINE_TBL ( I ) .LINE_SET_ID , 1 ) ;
1149: END IF;
1150: END LOOP;
1151: -- Get Remanant shipped
1144: IF l_debug_level > 0 THEN
1145: oe_debug_pub.add( 'ORDERED QUANTITY : '||L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1146: oe_debug_pub.add( 'ITEM TYPE CODE : '||L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
1147: oe_debug_pub.add( 'OPERATION : '||L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
1148: oe_debug_pub.add( 'LINE SET ID : '||L_OPTION_LINE_TBL ( I ) .LINE_SET_ID , 1 ) ;
1149: END IF;
1150: END LOOP;
1151: -- Get Remanant shipped
1152: l_parent_line := l_line_rec;
1166: END IF;
1167: l_rem_shp_top_model_line_id := x_line_tbl(1).line_id;
1168: ELSE -- Gmaxmodel
1169: IF l_debug_level > 0 THEN
1170: oe_debug_pub.add( 'PARENT ORDERED QUANTITY : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
1171: END IF;
1172: l_parent_line.ordered_quantity := p_line_tbl(1).shipped_quantity - g_max_model ;
1173: IF l_debug_level > 0 THEN
1174: oe_debug_pub.add( 'PARENT ORDERED QUANTITY : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
1170: oe_debug_pub.add( 'PARENT ORDERED QUANTITY : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
1171: END IF;
1172: l_parent_line.ordered_quantity := p_line_tbl(1).shipped_quantity - g_max_model ;
1173: IF l_debug_level > 0 THEN
1174: oe_debug_pub.add( 'PARENT ORDERED QUANTITY : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
1175: END IF;
1176: IF l_parent_line.ordered_quantity > 0 THEN
1177: l_parent_line.operation := oe_globals.g_opr_create;
1178: l_parent_line.split_by := 'SYSTEM';
1202: -- Remanant Unshipped Model
1203: l_parent_line := l_line_rec;
1204: l_parent_line.ordered_quantity := l_line_rec.ordered_quantity - p_line_tbl(1).shipped_quantity - g_min_model;
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add('Parent line unshipped qty 1 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
1207: oe_debug_pub.add('This line unshipped qty 2 : ' || L_LINE_REC.ORDERED_QUANTITY ) ;
1208: oe_debug_pub.add('unshipped qty 3 : ' || X_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) ;
1209: END IF;
1210: IF l_parent_line.ordered_quantity > 0 THEN
1203: l_parent_line := l_line_rec;
1204: l_parent_line.ordered_quantity := l_line_rec.ordered_quantity - p_line_tbl(1).shipped_quantity - g_min_model;
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add('Parent line unshipped qty 1 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
1207: oe_debug_pub.add('This line unshipped qty 2 : ' || L_LINE_REC.ORDERED_QUANTITY ) ;
1208: oe_debug_pub.add('unshipped qty 3 : ' || X_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) ;
1209: END IF;
1210: IF l_parent_line.ordered_quantity > 0 THEN
1211: l_parent_line.operation := oe_globals.g_opr_create;
1204: l_parent_line.ordered_quantity := l_line_rec.ordered_quantity - p_line_tbl(1).shipped_quantity - g_min_model;
1205: IF l_debug_level > 0 THEN
1206: oe_debug_pub.add('Parent line unshipped qty 1 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
1207: oe_debug_pub.add('This line unshipped qty 2 : ' || L_LINE_REC.ORDERED_QUANTITY ) ;
1208: oe_debug_pub.add('unshipped qty 3 : ' || X_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) ;
1209: END IF;
1210: IF l_parent_line.ordered_quantity > 0 THEN
1211: l_parent_line.operation := oe_globals.g_opr_create;
1212: l_parent_line.split_by := 'SYSTEM';
1263: l_option_line_tbl(l_option_count).ordered_quantity :=
1264: p_line_tbl(I).shipped_quantity-g_max_model * l_model_ratio;
1265: l_option_line_tbl(l_option_count).shipped_quantity :=l_option_line_tbl(l_option_count).ordered_quantity;
1266: IF l_debug_level > 0 THEN
1267: oe_debug_pub.add( 'RATIO : ' ||L_MODEL_RATIO , 1 ) ;
1268: oe_debug_pub.add( 'LOOP COUNTER : ' ||I , 1 ) ;
1269: oe_debug_pub.add( 'ORDERED QUANTITY ON REMNANT : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1270: oe_debug_pub.add( 'ORDERED QUTY 2 : ' || L_OPTION_LINE_TBL ( L_OPTION_COUNT ) .ORDERED_QUANTITY ) ;
1271: END IF;
1264: p_line_tbl(I).shipped_quantity-g_max_model * l_model_ratio;
1265: l_option_line_tbl(l_option_count).shipped_quantity :=l_option_line_tbl(l_option_count).ordered_quantity;
1266: IF l_debug_level > 0 THEN
1267: oe_debug_pub.add( 'RATIO : ' ||L_MODEL_RATIO , 1 ) ;
1268: oe_debug_pub.add( 'LOOP COUNTER : ' ||I , 1 ) ;
1269: oe_debug_pub.add( 'ORDERED QUANTITY ON REMNANT : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1270: oe_debug_pub.add( 'ORDERED QUTY 2 : ' || L_OPTION_LINE_TBL ( L_OPTION_COUNT ) .ORDERED_QUANTITY ) ;
1271: END IF;
1272: IF l_top_model_line_id is not null then
1265: l_option_line_tbl(l_option_count).shipped_quantity :=l_option_line_tbl(l_option_count).ordered_quantity;
1266: IF l_debug_level > 0 THEN
1267: oe_debug_pub.add( 'RATIO : ' ||L_MODEL_RATIO , 1 ) ;
1268: oe_debug_pub.add( 'LOOP COUNTER : ' ||I , 1 ) ;
1269: oe_debug_pub.add( 'ORDERED QUANTITY ON REMNANT : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1270: oe_debug_pub.add( 'ORDERED QUTY 2 : ' || L_OPTION_LINE_TBL ( L_OPTION_COUNT ) .ORDERED_QUANTITY ) ;
1271: END IF;
1272: IF l_top_model_line_id is not null then
1273: l_option_line_tbl(l_option_count).top_model_line_id :=l_top_model_line_id;
1266: IF l_debug_level > 0 THEN
1267: oe_debug_pub.add( 'RATIO : ' ||L_MODEL_RATIO , 1 ) ;
1268: oe_debug_pub.add( 'LOOP COUNTER : ' ||I , 1 ) ;
1269: oe_debug_pub.add( 'ORDERED QUANTITY ON REMNANT : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1270: oe_debug_pub.add( 'ORDERED QUTY 2 : ' || L_OPTION_LINE_TBL ( L_OPTION_COUNT ) .ORDERED_QUANTITY ) ;
1271: END IF;
1272: IF l_top_model_line_id is not null then
1273: l_option_line_tbl(l_option_count).top_model_line_id :=l_top_model_line_id;
1274: END IF;
1305: END IF;
1306: END LOOP;
1307: l_update_quantity := l_option_line.ordered_quantity - g_min_model * l_model_ratio - l_insert_quantity ;
1308: IF l_debug_level > 0 THEN
1309: oe_debug_pub.add( 'UPDATE QUANTITY : ' || L_UPDATE_QUANTITY ) ;
1310: oe_debug_pub.add( 'OPTION LINE ORDERED QUANTITY : ' || L_OPTION_LINE.ORDERED_QUANTITY ) ;
1311: oe_debug_pub.add( 'RATIO : ' || G_MIN_MODEL * L_MODEL_RATIO ) ;
1312: oe_debug_pub.add( 'INSERT QUANTITY : ' || L_INSERT_QUANTITY ) ;
1313: END IF;
1306: END LOOP;
1307: l_update_quantity := l_option_line.ordered_quantity - g_min_model * l_model_ratio - l_insert_quantity ;
1308: IF l_debug_level > 0 THEN
1309: oe_debug_pub.add( 'UPDATE QUANTITY : ' || L_UPDATE_QUANTITY ) ;
1310: oe_debug_pub.add( 'OPTION LINE ORDERED QUANTITY : ' || L_OPTION_LINE.ORDERED_QUANTITY ) ;
1311: oe_debug_pub.add( 'RATIO : ' || G_MIN_MODEL * L_MODEL_RATIO ) ;
1312: oe_debug_pub.add( 'INSERT QUANTITY : ' || L_INSERT_QUANTITY ) ;
1313: END IF;
1314: IF l_update_quantity > 0 THEN
1307: l_update_quantity := l_option_line.ordered_quantity - g_min_model * l_model_ratio - l_insert_quantity ;
1308: IF l_debug_level > 0 THEN
1309: oe_debug_pub.add( 'UPDATE QUANTITY : ' || L_UPDATE_QUANTITY ) ;
1310: oe_debug_pub.add( 'OPTION LINE ORDERED QUANTITY : ' || L_OPTION_LINE.ORDERED_QUANTITY ) ;
1311: oe_debug_pub.add( 'RATIO : ' || G_MIN_MODEL * L_MODEL_RATIO ) ;
1312: oe_debug_pub.add( 'INSERT QUANTITY : ' || L_INSERT_QUANTITY ) ;
1313: END IF;
1314: IF l_update_quantity > 0 THEN
1315: l_option_count := l_option_count + 1;
1308: IF l_debug_level > 0 THEN
1309: oe_debug_pub.add( 'UPDATE QUANTITY : ' || L_UPDATE_QUANTITY ) ;
1310: oe_debug_pub.add( 'OPTION LINE ORDERED QUANTITY : ' || L_OPTION_LINE.ORDERED_QUANTITY ) ;
1311: oe_debug_pub.add( 'RATIO : ' || G_MIN_MODEL * L_MODEL_RATIO ) ;
1312: oe_debug_pub.add( 'INSERT QUANTITY : ' || L_INSERT_QUANTITY ) ;
1313: END IF;
1314: IF l_update_quantity > 0 THEN
1315: l_option_count := l_option_count + 1;
1316: IF NOT option_updated AND g_max_model = 0 THEN
1347: END IF; -- Update Quantity
1348: option_updated := false;
1349: END LOOP;
1350: IF l_debug_level > 0 THEN
1351: oe_debug_pub.add( 'COUNT IN X_LINE_TBL' || X_LINE_TBL.COUNT , 1 ) ;
1352: END IF;
1353: l_option_count := x_line_tbl.count + 1;
1354: FOR I in 1..l_option_line_tbl.count LOOP
1355: x_line_tbl(l_option_count) := l_option_line_tbl(I);
1355: x_line_tbl(l_option_count) := l_option_line_tbl(I);
1356: l_option_count := l_option_count + 1;
1357: END LOOP;
1358: IF l_debug_level > 0 THEN
1359: oe_debug_pub.add( 'FINAL OUT TABLE' ) ;
1360: END IF;
1361: FOR I in 1..x_line_tbl.count LOOP
1362: IF l_debug_level > 0 THEN
1363: oe_debug_pub.add( 'LINE ID : '|| X_LINE_TBL ( I ) .LINE_ID ) ;
1359: oe_debug_pub.add( 'FINAL OUT TABLE' ) ;
1360: END IF;
1361: FOR I in 1..x_line_tbl.count LOOP
1362: IF l_debug_level > 0 THEN
1363: oe_debug_pub.add( 'LINE ID : '|| X_LINE_TBL ( I ) .LINE_ID ) ;
1364: oe_debug_pub.add( 'ORDERED QUANTITY : '||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1365: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1366: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1367: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1360: END IF;
1361: FOR I in 1..x_line_tbl.count LOOP
1362: IF l_debug_level > 0 THEN
1363: oe_debug_pub.add( 'LINE ID : '|| X_LINE_TBL ( I ) .LINE_ID ) ;
1364: oe_debug_pub.add( 'ORDERED QUANTITY : '||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1365: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1366: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1367: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1368: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1361: FOR I in 1..x_line_tbl.count LOOP
1362: IF l_debug_level > 0 THEN
1363: oe_debug_pub.add( 'LINE ID : '|| X_LINE_TBL ( I ) .LINE_ID ) ;
1364: oe_debug_pub.add( 'ORDERED QUANTITY : '||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1365: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1366: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1367: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1368: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1369: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1362: IF l_debug_level > 0 THEN
1363: oe_debug_pub.add( 'LINE ID : '|| X_LINE_TBL ( I ) .LINE_ID ) ;
1364: oe_debug_pub.add( 'ORDERED QUANTITY : '||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1365: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1366: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1367: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1368: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1369: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1370: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1363: oe_debug_pub.add( 'LINE ID : '|| X_LINE_TBL ( I ) .LINE_ID ) ;
1364: oe_debug_pub.add( 'ORDERED QUANTITY : '||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1365: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1366: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1367: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1368: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1369: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1370: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1371: oe_debug_pub.add( 'TOP MODEL LINE ID : '||X_LINE_TBL ( I ) .TOP_MODEL_LINE_ID ) ;
1364: oe_debug_pub.add( 'ORDERED QUANTITY : '||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1365: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1366: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1367: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1368: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1369: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1370: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1371: oe_debug_pub.add( 'TOP MODEL LINE ID : '||X_LINE_TBL ( I ) .TOP_MODEL_LINE_ID ) ;
1372: END IF;
1365: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1366: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1367: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1368: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1369: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1370: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1371: oe_debug_pub.add( 'TOP MODEL LINE ID : '||X_LINE_TBL ( I ) .TOP_MODEL_LINE_ID ) ;
1372: END IF;
1373: END LOOP;
1366: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1367: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1368: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1369: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1370: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1371: oe_debug_pub.add( 'TOP MODEL LINE ID : '||X_LINE_TBL ( I ) .TOP_MODEL_LINE_ID ) ;
1372: END IF;
1373: END LOOP;
1374: EXCEPTION
1367: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1368: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1369: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1370: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1371: oe_debug_pub.add( 'TOP MODEL LINE ID : '||X_LINE_TBL ( I ) .TOP_MODEL_LINE_ID ) ;
1372: END IF;
1373: END LOOP;
1374: EXCEPTION
1375: WHEN OTHERS THEN
1416: l_order_date_type_code VARCHAR2(20); --bug 13954474
1417: Type Optioncur IS REF CURSOR;
1418: Optrec Optioncur;
1419: --
1420: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1421: --
1422: BEGIN
1423: x_line_tbl := p_line_tbl;
1424: IF l_debug_level > 0 THEN
1421: --
1422: BEGIN
1423: x_line_tbl := p_line_tbl;
1424: IF l_debug_level > 0 THEN
1425: oe_debug_pub.add( 'ENTER CASCADE SPLITS ' , 1 ) ;
1426: END IF;
1427: l_line_id := p_line_tbl(p_index).line_id;
1428: IF (p_line_tbl(p_index).line_id = p_line_tbl(p_index).ato_line_id AND p_line_tbl(p_index).item_type_code = 'CLASS') THEN
1429: OPEN optrec FOR
1451: FETCH Optrec INTO optionrec;
1452: EXIT WHEN optrec%NOTFOUND;
1453: l_model_ratio := optionrec.ordered_quantity/ parent_ordered_quantity;
1454: IF l_debug_level > 0 THEN
1455: oe_debug_pub.add( 'MODEL RATIO : ' || L_MODEL_RATIO , 1 ) ;
1456: END IF;
1457: IF l_debug_level > 0 THEN
1458: oe_debug_pub.add( 'ORDERED QUANTITY RATIO : ' || OPTIONREC.ORDERED_QUANTITY , 1 ) ;
1459: END IF;
1454: IF l_debug_level > 0 THEN
1455: oe_debug_pub.add( 'MODEL RATIO : ' || L_MODEL_RATIO , 1 ) ;
1456: END IF;
1457: IF l_debug_level > 0 THEN
1458: oe_debug_pub.add( 'ORDERED QUANTITY RATIO : ' || OPTIONREC.ORDERED_QUANTITY , 1 ) ;
1459: END IF;
1460: oe_line_util.query_row(p_line_id => optionrec.line_id, x_line_rec => l_option_line);
1461: --bug 13954474
1462: l_option_line.REQUEST_DATE := P_LINE_TBL ( P_INDEX ) .REQUEST_DATE;
1487: l_option_line_tbl(l_option_count) := l_option_line;
1488: l_option_line_tbl(l_option_count).line_id := optionrec.line_id;
1489: l_option_line_tbl(l_option_count).ordered_quantity := p_line_tbl(p_index).ordered_quantity * l_model_ratio;
1490: IF l_debug_level > 0 THEN
1491: oe_debug_pub.add( 'RATIO : ' || P_LINE_TBL ( P_INDEX ) .ORDERED_QUANTITY ) ;
1492: oe_debug_pub.add( 'REQUEST DATE : ' || P_LINE_TBL ( P_INDEX ) .REQUEST_DATE ) ;
1493: oe_debug_pub.add( 'WAREHOUSE ' || P_LINE_TBL ( P_INDEX ) .SHIP_FROM_ORG_ID) ;
1494: oe_debug_pub.add( 'SHIP TO ' || P_LINE_TBL ( P_INDEX ) .SHIP_TO_ORG_ID) ;
1495: --bug 13954474
1488: l_option_line_tbl(l_option_count).line_id := optionrec.line_id;
1489: l_option_line_tbl(l_option_count).ordered_quantity := p_line_tbl(p_index).ordered_quantity * l_model_ratio;
1490: IF l_debug_level > 0 THEN
1491: oe_debug_pub.add( 'RATIO : ' || P_LINE_TBL ( P_INDEX ) .ORDERED_QUANTITY ) ;
1492: oe_debug_pub.add( 'REQUEST DATE : ' || P_LINE_TBL ( P_INDEX ) .REQUEST_DATE ) ;
1493: oe_debug_pub.add( 'WAREHOUSE ' || P_LINE_TBL ( P_INDEX ) .SHIP_FROM_ORG_ID) ;
1494: oe_debug_pub.add( 'SHIP TO ' || P_LINE_TBL ( P_INDEX ) .SHIP_TO_ORG_ID) ;
1495: --bug 13954474
1496: oe_debug_pub.add( 'SPLIT REQUEST DATE ' || P_LINE_TBL ( P_INDEX ) .SPLIT_REQUEST_DATE) ;
1489: l_option_line_tbl(l_option_count).ordered_quantity := p_line_tbl(p_index).ordered_quantity * l_model_ratio;
1490: IF l_debug_level > 0 THEN
1491: oe_debug_pub.add( 'RATIO : ' || P_LINE_TBL ( P_INDEX ) .ORDERED_QUANTITY ) ;
1492: oe_debug_pub.add( 'REQUEST DATE : ' || P_LINE_TBL ( P_INDEX ) .REQUEST_DATE ) ;
1493: oe_debug_pub.add( 'WAREHOUSE ' || P_LINE_TBL ( P_INDEX ) .SHIP_FROM_ORG_ID) ;
1494: oe_debug_pub.add( 'SHIP TO ' || P_LINE_TBL ( P_INDEX ) .SHIP_TO_ORG_ID) ;
1495: --bug 13954474
1496: oe_debug_pub.add( 'SPLIT REQUEST DATE ' || P_LINE_TBL ( P_INDEX ) .SPLIT_REQUEST_DATE) ;
1497: oe_debug_pub.add( 'SPLIT SHIP FROM ' || P_LINE_TBL ( P_INDEX ) .SPLIT_SHIP_FROM) ;
1490: IF l_debug_level > 0 THEN
1491: oe_debug_pub.add( 'RATIO : ' || P_LINE_TBL ( P_INDEX ) .ORDERED_QUANTITY ) ;
1492: oe_debug_pub.add( 'REQUEST DATE : ' || P_LINE_TBL ( P_INDEX ) .REQUEST_DATE ) ;
1493: oe_debug_pub.add( 'WAREHOUSE ' || P_LINE_TBL ( P_INDEX ) .SHIP_FROM_ORG_ID) ;
1494: oe_debug_pub.add( 'SHIP TO ' || P_LINE_TBL ( P_INDEX ) .SHIP_TO_ORG_ID) ;
1495: --bug 13954474
1496: oe_debug_pub.add( 'SPLIT REQUEST DATE ' || P_LINE_TBL ( P_INDEX ) .SPLIT_REQUEST_DATE) ;
1497: oe_debug_pub.add( 'SPLIT SHIP FROM ' || P_LINE_TBL ( P_INDEX ) .SPLIT_SHIP_FROM) ;
1498: oe_debug_pub.add( 'SPLIT SHIP TO ' || P_LINE_TBL ( P_INDEX ) .SPLIT_SHIP_TO) ;
1492: oe_debug_pub.add( 'REQUEST DATE : ' || P_LINE_TBL ( P_INDEX ) .REQUEST_DATE ) ;
1493: oe_debug_pub.add( 'WAREHOUSE ' || P_LINE_TBL ( P_INDEX ) .SHIP_FROM_ORG_ID) ;
1494: oe_debug_pub.add( 'SHIP TO ' || P_LINE_TBL ( P_INDEX ) .SHIP_TO_ORG_ID) ;
1495: --bug 13954474
1496: oe_debug_pub.add( 'SPLIT REQUEST DATE ' || P_LINE_TBL ( P_INDEX ) .SPLIT_REQUEST_DATE) ;
1497: oe_debug_pub.add( 'SPLIT SHIP FROM ' || P_LINE_TBL ( P_INDEX ) .SPLIT_SHIP_FROM) ;
1498: oe_debug_pub.add( 'SPLIT SHIP TO ' || P_LINE_TBL ( P_INDEX ) .SPLIT_SHIP_TO) ;
1499: --bug 13954474
1500: END IF;
1493: oe_debug_pub.add( 'WAREHOUSE ' || P_LINE_TBL ( P_INDEX ) .SHIP_FROM_ORG_ID) ;
1494: oe_debug_pub.add( 'SHIP TO ' || P_LINE_TBL ( P_INDEX ) .SHIP_TO_ORG_ID) ;
1495: --bug 13954474
1496: oe_debug_pub.add( 'SPLIT REQUEST DATE ' || P_LINE_TBL ( P_INDEX ) .SPLIT_REQUEST_DATE) ;
1497: oe_debug_pub.add( 'SPLIT SHIP FROM ' || P_LINE_TBL ( P_INDEX ) .SPLIT_SHIP_FROM) ;
1498: oe_debug_pub.add( 'SPLIT SHIP TO ' || P_LINE_TBL ( P_INDEX ) .SPLIT_SHIP_TO) ;
1499: --bug 13954474
1500: END IF;
1501: l_option_line_tbl(l_option_count).operation := oe_globals.g_opr_update;
1494: oe_debug_pub.add( 'SHIP TO ' || P_LINE_TBL ( P_INDEX ) .SHIP_TO_ORG_ID) ;
1495: --bug 13954474
1496: oe_debug_pub.add( 'SPLIT REQUEST DATE ' || P_LINE_TBL ( P_INDEX ) .SPLIT_REQUEST_DATE) ;
1497: oe_debug_pub.add( 'SPLIT SHIP FROM ' || P_LINE_TBL ( P_INDEX ) .SPLIT_SHIP_FROM) ;
1498: oe_debug_pub.add( 'SPLIT SHIP TO ' || P_LINE_TBL ( P_INDEX ) .SPLIT_SHIP_TO) ;
1499: --bug 13954474
1500: END IF;
1501: l_option_line_tbl(l_option_count).operation := oe_globals.g_opr_update;
1502: l_option_line_tbl(l_option_count).split_action_code := 'SPLIT';
1505: /* Populate Line set id if set id is not already populated bug - 2103004 */
1506:
1507: IF ( l_option_line_tbl(l_option_count).line_set_id IS NULL ) THEN
1508: IF l_debug_level > 0 THEN
1509: oe_debug_pub.add( 'CREATING LINE SETS : ' , 1 ) ;
1510: END IF;
1511: Oe_Set_Util.Create_Line_Set(p_x_line_rec => l_option_line_tbl(l_option_count));
1512: END IF;
1513: l_set_id := l_option_line_tbl(l_option_count).line_Set_id;
1519: l_option_line_tbl(l_option_count) := l_option_line;
1520: l_option_line_tbl(l_option_count).line_id := fnd_api.g_miss_num;
1521: l_option_line_tbl(l_option_count).ordered_quantity := g_split_line_tbl(I).quantity * l_model_ratio;
1522: IF l_debug_level > 0 THEN
1523: oe_debug_pub.add( 'RATIO 3 : ' || G_SPLIT_LINE_TBL ( I ) .QUANTITY , 1 ) ;
1524: END IF;
1525: l_option_line_tbl(l_option_count).operation := oe_globals.g_opr_create;
1526: l_option_line_tbl(l_option_count).split_from_line_id := optionrec.line_id;
1527: l_option_line_tbl(l_option_count).split_by := p_line_tbl(p_index).split_by;
1550: l_split_line_tbl(l_split_count).line_id := l_option_line_tbl(l_option_count).line_id;
1551: l_split_line_tbl(l_split_count).split_from_line_id := l_option_line_tbl(l_option_count).split_from_line_id;
1552: -- Copy Credits for this option
1553: IF l_debug_level > 0 THEN
1554: oe_debug_pub.add( 'COPYING SALES CREDITS TO NEW OPTION ' , 1 ) ;
1555: END IF;
1556: FOR SCRD_REC IN 1..l_line_Scredit_tbl.count LOOP
1557: l_scredit_count := l_scredit_count + 1;
1558: l_line_scredit_temp_tbl(l_scredit_count) := l_line_scredit_tbl(SCRD_REC);
1560: l_line_scredit_temp_tbl(l_scredit_count).Operation := OE_GLOBALS.G_OPR_CREATE;
1561: l_line_scredit_temp_tbl(l_scredit_count).line_id := l_option_line_tbl(l_option_count).line_id;
1562: END LOOP;
1563: IF l_debug_level > 0 THEN
1564: oe_debug_pub.add( 'DONE COPYING SALES CREDITS TO NEW OPTION ' , 1 ) ;
1565: END IF;
1566: l_option_count := l_option_count + 1;
1567: END LOOP;
1568: Get_Service_Lines( p_line_tbl => x_line_tbl,
1572: x_line_tbl := l_line_out_tbl; -- Swapping can be fixed, opportunity to optimize
1573: l_split_line_tbl.delete;
1574: l_split_count := 0;
1575: IF l_debug_level > 0 THEN
1576: oe_debug_pub.add( 'AFTER OPTION PROCESSING' , 1 ) ;
1577: END IF;
1578: END LOOP;
1579: CLOSE optrec;
1580: l_option_count := x_line_tbl.count + 1;
1603:
1604: X_LINE_TBL(I).ATO_LINE_ID := X_LINE_TBL(I).LINK_TO_LINE_ID ;
1605:
1606: IF l_debug_level > 0 THEN
1607: oe_debug_pub.add( 'X_LINE_TBL(i).LINE_ID '||X_LINE_TBL(i).LINE_ID , 1 ) ;
1608: oe_debug_pub.add( 'X_LINE_TBL(i).ATO_LINE_ID '||X_LINE_TBL(i).ATO_LINE_ID , 1 ) ;
1609: END IF ;
1610:
1611: END IF ;
1604: X_LINE_TBL(I).ATO_LINE_ID := X_LINE_TBL(I).LINK_TO_LINE_ID ;
1605:
1606: IF l_debug_level > 0 THEN
1607: oe_debug_pub.add( 'X_LINE_TBL(i).LINE_ID '||X_LINE_TBL(i).LINE_ID , 1 ) ;
1608: oe_debug_pub.add( 'X_LINE_TBL(i).ATO_LINE_ID '||X_LINE_TBL(i).ATO_LINE_ID , 1 ) ;
1609: END IF ;
1610:
1611: END IF ;
1612: --bug 16039593 ends
1626: End;
1627:
1628: FOR I in 1..x_line_tbl.count LOOP
1629: IF l_debug_level > 0 THEN
1630: oe_debug_pub.add( 'QUANTITY : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1631: oe_debug_pub.add( 'OPERATION : ' || X_LINE_TBL ( I ) .OPERATION ) ;
1632: oe_debug_pub.add( 'ITEM : ' || X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1633: oe_debug_pub.add( 'LINE : ' || X_LINE_TBL ( I ) .LINE_ID ) ;
1634: oe_debug_pub.add( 'LINK TO LINE ID : '|| X_LINE_TBL ( I ) .LINK_TO_LINE_ID );
1627:
1628: FOR I in 1..x_line_tbl.count LOOP
1629: IF l_debug_level > 0 THEN
1630: oe_debug_pub.add( 'QUANTITY : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1631: oe_debug_pub.add( 'OPERATION : ' || X_LINE_TBL ( I ) .OPERATION ) ;
1632: oe_debug_pub.add( 'ITEM : ' || X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1633: oe_debug_pub.add( 'LINE : ' || X_LINE_TBL ( I ) .LINE_ID ) ;
1634: oe_debug_pub.add( 'LINK TO LINE ID : '|| X_LINE_TBL ( I ) .LINK_TO_LINE_ID );
1635: oe_debug_pub.add( 'SPLIT LINE : ' || X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1628: FOR I in 1..x_line_tbl.count LOOP
1629: IF l_debug_level > 0 THEN
1630: oe_debug_pub.add( 'QUANTITY : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1631: oe_debug_pub.add( 'OPERATION : ' || X_LINE_TBL ( I ) .OPERATION ) ;
1632: oe_debug_pub.add( 'ITEM : ' || X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1633: oe_debug_pub.add( 'LINE : ' || X_LINE_TBL ( I ) .LINE_ID ) ;
1634: oe_debug_pub.add( 'LINK TO LINE ID : '|| X_LINE_TBL ( I ) .LINK_TO_LINE_ID );
1635: oe_debug_pub.add( 'SPLIT LINE : ' || X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1636: oe_debug_pub.add( 'LINE SET : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1629: IF l_debug_level > 0 THEN
1630: oe_debug_pub.add( 'QUANTITY : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1631: oe_debug_pub.add( 'OPERATION : ' || X_LINE_TBL ( I ) .OPERATION ) ;
1632: oe_debug_pub.add( 'ITEM : ' || X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1633: oe_debug_pub.add( 'LINE : ' || X_LINE_TBL ( I ) .LINE_ID ) ;
1634: oe_debug_pub.add( 'LINK TO LINE ID : '|| X_LINE_TBL ( I ) .LINK_TO_LINE_ID );
1635: oe_debug_pub.add( 'SPLIT LINE : ' || X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1636: oe_debug_pub.add( 'LINE SET : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1637: oe_debug_pub.add( X_LINE_TBL ( I ) .SPLIT_ACTION_CODE ) ;
1630: oe_debug_pub.add( 'QUANTITY : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1631: oe_debug_pub.add( 'OPERATION : ' || X_LINE_TBL ( I ) .OPERATION ) ;
1632: oe_debug_pub.add( 'ITEM : ' || X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1633: oe_debug_pub.add( 'LINE : ' || X_LINE_TBL ( I ) .LINE_ID ) ;
1634: oe_debug_pub.add( 'LINK TO LINE ID : '|| X_LINE_TBL ( I ) .LINK_TO_LINE_ID );
1635: oe_debug_pub.add( 'SPLIT LINE : ' || X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1636: oe_debug_pub.add( 'LINE SET : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1637: oe_debug_pub.add( X_LINE_TBL ( I ) .SPLIT_ACTION_CODE ) ;
1638: END IF;
1631: oe_debug_pub.add( 'OPERATION : ' || X_LINE_TBL ( I ) .OPERATION ) ;
1632: oe_debug_pub.add( 'ITEM : ' || X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1633: oe_debug_pub.add( 'LINE : ' || X_LINE_TBL ( I ) .LINE_ID ) ;
1634: oe_debug_pub.add( 'LINK TO LINE ID : '|| X_LINE_TBL ( I ) .LINK_TO_LINE_ID );
1635: oe_debug_pub.add( 'SPLIT LINE : ' || X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1636: oe_debug_pub.add( 'LINE SET : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1637: oe_debug_pub.add( X_LINE_TBL ( I ) .SPLIT_ACTION_CODE ) ;
1638: END IF;
1639: END LOOP;
1632: oe_debug_pub.add( 'ITEM : ' || X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1633: oe_debug_pub.add( 'LINE : ' || X_LINE_TBL ( I ) .LINE_ID ) ;
1634: oe_debug_pub.add( 'LINK TO LINE ID : '|| X_LINE_TBL ( I ) .LINK_TO_LINE_ID );
1635: oe_debug_pub.add( 'SPLIT LINE : ' || X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1636: oe_debug_pub.add( 'LINE SET : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1637: oe_debug_pub.add( X_LINE_TBL ( I ) .SPLIT_ACTION_CODE ) ;
1638: END IF;
1639: END LOOP;
1640:
1633: oe_debug_pub.add( 'LINE : ' || X_LINE_TBL ( I ) .LINE_ID ) ;
1634: oe_debug_pub.add( 'LINK TO LINE ID : '|| X_LINE_TBL ( I ) .LINK_TO_LINE_ID );
1635: oe_debug_pub.add( 'SPLIT LINE : ' || X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1636: oe_debug_pub.add( 'LINE SET : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1637: oe_debug_pub.add( X_LINE_TBL ( I ) .SPLIT_ACTION_CODE ) ;
1638: END IF;
1639: END LOOP;
1640:
1641: -- Populate Credits into out table
1639: END LOOP;
1640:
1641: -- Populate Credits into out table
1642: IF l_debug_level > 0 THEN
1643: oe_debug_pub.add( 'POPULATING SALES CREDIT OUT TABLE...' , 1 ) ;
1644: END IF;
1645: IF l_line_scredit_temp_tbl.count > 0 THEN
1646: l_scredit_count := x_line_scredit_tbl.count + 1;
1647: FOR I in 1..l_line_scredit_temp_tbl.count LOOP
1649: l_scredit_count := l_scredit_count + 1;
1650: END LOOP;
1651: END IF;
1652: IF l_debug_level > 0 THEN
1653: oe_debug_pub.add( 'EXIT CASCADE PROPORTIONAL SPLIT' , 1 ) ;
1654: END IF;
1655: EXCEPTION
1656: WHEN OTHERS THEN
1657: IF l_debug_level > 0 THEN
1654: END IF;
1655: EXCEPTION
1656: WHEN OTHERS THEN
1657: IF l_debug_level > 0 THEN
1658: oe_debug_pub.add( 'ERROR IN CASCADE PROPORTIONAL SPLIT ..'||SQLERRM , 1 ) ;
1659: END IF;
1660: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1661: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , 'Cascade_Proportional_Split');
1662: END IF;
1674: l_code_level VARCHAR2(30);
1675: l_shipment_number NUMBER;
1676: l_order_date_type_code VARCHAR2(20); -- 8706868
1677: --
1678: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1679: --
1680: BEGIN
1681: fnd_profile.get('ONT_IMP_MULTIPLE_SHIPMENTS', g_multiple_shipments);
1682: g_multiple_shipments := nvl(g_multiple_shipments, 'NO');
1680: BEGIN
1681: fnd_profile.get('ONT_IMP_MULTIPLE_SHIPMENTS', g_multiple_shipments);
1682: g_multiple_shipments := nvl(g_multiple_shipments, 'NO');
1683: IF l_debug_level > 0 THEN
1684: oe_debug_pub.add( 'G_MULTIPLE_SHIPMENTS = '||G_MULTIPLE_SHIPMENTS , 5 ) ;
1685: END IF;
1686: l_code_level := OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL;
1687: IF l_debug_level > 0 THEN
1688: oe_debug_pub.add( 'L_CODE_LEVEL = '||L_CODE_LEVEL , 5 ) ;
1684: oe_debug_pub.add( 'G_MULTIPLE_SHIPMENTS = '||G_MULTIPLE_SHIPMENTS , 5 ) ;
1685: END IF;
1686: l_code_level := OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL;
1687: IF l_debug_level > 0 THEN
1688: oe_debug_pub.add( 'L_CODE_LEVEL = '||L_CODE_LEVEL , 5 ) ;
1689: END IF;
1690: IF oe_split_util.g_sch_recursion = 'FALSE' THEN
1691: IF l_debug_level > 0 THEN
1692: oe_debug_pub.add( 'ENTER DEFAULT ATTRIBUTES FOR SPLIT' ) ;
1688: oe_debug_pub.add( 'L_CODE_LEVEL = '||L_CODE_LEVEL , 5 ) ;
1689: END IF;
1690: IF oe_split_util.g_sch_recursion = 'FALSE' THEN
1691: IF l_debug_level > 0 THEN
1692: oe_debug_pub.add( 'ENTER DEFAULT ATTRIBUTES FOR SPLIT' ) ;
1693: oe_debug_pub.add( 'LINEID:'||P_X_LINE_REC.LINE_ID ) ;
1694: oe_debug_pub.add( 'SPLITLINEID:'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1695: oe_debug_pub.add( 'REQUEST DATE FLAG:'||P_X_LINE_REC.SPLIT_REQUEST_DATE ) ;
1696: oe_debug_pub.add( 'SHIP FROM FLAG:'||P_X_LINE_REC.SPLIT_SHIP_FROM ) ;
1689: END IF;
1690: IF oe_split_util.g_sch_recursion = 'FALSE' THEN
1691: IF l_debug_level > 0 THEN
1692: oe_debug_pub.add( 'ENTER DEFAULT ATTRIBUTES FOR SPLIT' ) ;
1693: oe_debug_pub.add( 'LINEID:'||P_X_LINE_REC.LINE_ID ) ;
1694: oe_debug_pub.add( 'SPLITLINEID:'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1695: oe_debug_pub.add( 'REQUEST DATE FLAG:'||P_X_LINE_REC.SPLIT_REQUEST_DATE ) ;
1696: oe_debug_pub.add( 'SHIP FROM FLAG:'||P_X_LINE_REC.SPLIT_SHIP_FROM ) ;
1697: oe_debug_pub.add( 'SHIP TO FLAG:'||P_X_LINE_REC.SPLIT_SHIP_TO ) ;
1690: IF oe_split_util.g_sch_recursion = 'FALSE' THEN
1691: IF l_debug_level > 0 THEN
1692: oe_debug_pub.add( 'ENTER DEFAULT ATTRIBUTES FOR SPLIT' ) ;
1693: oe_debug_pub.add( 'LINEID:'||P_X_LINE_REC.LINE_ID ) ;
1694: oe_debug_pub.add( 'SPLITLINEID:'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1695: oe_debug_pub.add( 'REQUEST DATE FLAG:'||P_X_LINE_REC.SPLIT_REQUEST_DATE ) ;
1696: oe_debug_pub.add( 'SHIP FROM FLAG:'||P_X_LINE_REC.SPLIT_SHIP_FROM ) ;
1697: oe_debug_pub.add( 'SHIP TO FLAG:'||P_X_LINE_REC.SPLIT_SHIP_TO ) ;
1698: END IF;
1691: IF l_debug_level > 0 THEN
1692: oe_debug_pub.add( 'ENTER DEFAULT ATTRIBUTES FOR SPLIT' ) ;
1693: oe_debug_pub.add( 'LINEID:'||P_X_LINE_REC.LINE_ID ) ;
1694: oe_debug_pub.add( 'SPLITLINEID:'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1695: oe_debug_pub.add( 'REQUEST DATE FLAG:'||P_X_LINE_REC.SPLIT_REQUEST_DATE ) ;
1696: oe_debug_pub.add( 'SHIP FROM FLAG:'||P_X_LINE_REC.SPLIT_SHIP_FROM ) ;
1697: oe_debug_pub.add( 'SHIP TO FLAG:'||P_X_LINE_REC.SPLIT_SHIP_TO ) ;
1698: END IF;
1699: IF (p_x_line_rec.operation = oe_globals.g_opr_create and
1692: oe_debug_pub.add( 'ENTER DEFAULT ATTRIBUTES FOR SPLIT' ) ;
1693: oe_debug_pub.add( 'LINEID:'||P_X_LINE_REC.LINE_ID ) ;
1694: oe_debug_pub.add( 'SPLITLINEID:'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1695: oe_debug_pub.add( 'REQUEST DATE FLAG:'||P_X_LINE_REC.SPLIT_REQUEST_DATE ) ;
1696: oe_debug_pub.add( 'SHIP FROM FLAG:'||P_X_LINE_REC.SPLIT_SHIP_FROM ) ;
1697: oe_debug_pub.add( 'SHIP TO FLAG:'||P_X_LINE_REC.SPLIT_SHIP_TO ) ;
1698: END IF;
1699: IF (p_x_line_rec.operation = oe_globals.g_opr_create and
1700: (p_x_line_rec.split_from_line_id IS NOT NULL AND
1693: oe_debug_pub.add( 'LINEID:'||P_X_LINE_REC.LINE_ID ) ;
1694: oe_debug_pub.add( 'SPLITLINEID:'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1695: oe_debug_pub.add( 'REQUEST DATE FLAG:'||P_X_LINE_REC.SPLIT_REQUEST_DATE ) ;
1696: oe_debug_pub.add( 'SHIP FROM FLAG:'||P_X_LINE_REC.SPLIT_SHIP_FROM ) ;
1697: oe_debug_pub.add( 'SHIP TO FLAG:'||P_X_LINE_REC.SPLIT_SHIP_TO ) ;
1698: END IF;
1699: IF (p_x_line_rec.operation = oe_globals.g_opr_create and
1700: (p_x_line_rec.split_from_line_id IS NOT NULL AND
1701: p_x_line_rec.split_from_line_id <> FND_API.G_MISS_NUM) AND
1701: p_x_line_rec.split_from_line_id <> FND_API.G_MISS_NUM) AND
1702: (p_x_line_rec.line_id IS NULL OR
1703: p_x_line_rec.line_id = FND_API.G_MISS_NUM)) THEN
1704: IF l_debug_level > 0 THEN
1705: oe_debug_pub.add( 'ENTER INTO DEFAULTING SPLITS' ) ;
1706: END IF;
1707: oe_line_util.query_row(p_line_id => p_x_line_rec.split_from_line_id,
1708: x_line_rec => l_line_rec);
1709: l_line_rec.line_id := OE_Default_Line.get_Line;
1728: p_x_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR) THEN
1729:
1730: l_line_rec.orig_sys_line_ref := 'OE_ORDER_LINES_ALL'||l_line_rec.line_id;
1731: ELSE
1732: OE_DEBUG_PUB.add('Orig Sys Line Ref was populated',1);
1733: l_line_rec.orig_sys_line_ref := p_x_line_rec.orig_sys_line_ref;
1734: END IF;
1735:
1736: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
1742: p_x_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR) THEN
1743:
1744: l_line_rec.orig_sys_line_ref := 'OE_ORDER_LINES_ALL'||l_line_rec.line_id;
1745: ELSE
1746: OE_DEBUG_PUB.add('Orig Sys Line Ref was populated',1);
1747: l_line_rec.orig_sys_line_ref := p_x_line_rec.orig_sys_line_ref;
1748: END IF;
1749:
1750:
1750:
1751: END IF;
1752: --l_line_rec.shipment_number := get_shipment_number(l_line_rec);
1753: IF l_debug_level > 0 THEN
1754: oe_debug_pub.add( 'SHIPMENT_NUMBER:'||L_LINE_REC.SHIPMENT_NUMBER ) ;
1755: END IF;
1756: l_line_rec.split_from_line_id := p_x_line_rec.split_from_line_id;
1757: l_line_rec.ordered_quantity := p_x_line_rec.ordered_quantity;
1758: l_line_rec.ordered_quantity2 := p_x_line_rec.ordered_quantity2; -- OPM B1661023 04/02/01
1851: ELSIF (l_line_rec.line_id IS NOT NULL AND
1852: l_line_rec.line_id <> FND_API.G_MISS_NUM AND
1853: l_line_rec.operation = oe_globals.g_opr_create) THEN
1854: IF l_debug_level > 0 THEN
1855: oe_debug_pub.add( 'LINE ID :'||P_X_LINE_REC.LINE_ID ) ;
1856: oe_debug_pub.add( 'SPLIT FROM LINE ID :'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1857: oe_debug_pub.add( 'TOP MODEL LINE ID : '||P_X_LINE_REC.TOP_MODEL_LINE_ID ) ;
1858: END IF;
1859: IF p_x_line_rec.top_model_line_id = p_x_line_rec.line_id THEN
1852: l_line_rec.line_id <> FND_API.G_MISS_NUM AND
1853: l_line_rec.operation = oe_globals.g_opr_create) THEN
1854: IF l_debug_level > 0 THEN
1855: oe_debug_pub.add( 'LINE ID :'||P_X_LINE_REC.LINE_ID ) ;
1856: oe_debug_pub.add( 'SPLIT FROM LINE ID :'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1857: oe_debug_pub.add( 'TOP MODEL LINE ID : '||P_X_LINE_REC.TOP_MODEL_LINE_ID ) ;
1858: END IF;
1859: IF p_x_line_rec.top_model_line_id = p_x_line_rec.line_id THEN
1860: l_line_rec.top_model_line_id := NULL;
1853: l_line_rec.operation = oe_globals.g_opr_create) THEN
1854: IF l_debug_level > 0 THEN
1855: oe_debug_pub.add( 'LINE ID :'||P_X_LINE_REC.LINE_ID ) ;
1856: oe_debug_pub.add( 'SPLIT FROM LINE ID :'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1857: oe_debug_pub.add( 'TOP MODEL LINE ID : '||P_X_LINE_REC.TOP_MODEL_LINE_ID ) ;
1858: END IF;
1859: IF p_x_line_rec.top_model_line_id = p_x_line_rec.line_id THEN
1860: l_line_rec.top_model_line_id := NULL;
1861: END IF;
1874: p_x_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR) THEN
1875:
1876: l_line_rec.orig_sys_line_ref := 'OE_ORDER_LINES_ALL'||l_line_rec.line_id;
1877: ELSE
1878: OE_DEBUG_PUB.add('Orig Sys Line Ref was populated',1);
1879: l_line_rec.orig_sys_line_ref := p_x_line_rec.orig_sys_line_ref;
1880: END IF;
1881: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
1882: g_multiple_shipments = 'NO' AND
1887: p_x_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR) THEN
1888:
1889: l_line_rec.orig_sys_line_ref := 'OE_ORDER_LINES_ALL'||l_line_rec.line_id;
1890: ELSE
1891: OE_DEBUG_PUB.add('Orig Sys Line Ref was populated',1);
1892: l_line_rec.orig_sys_line_ref := p_x_line_rec.orig_sys_line_ref;
1893: END IF;
1894:
1895: END IF;
1911: (p_x_line_rec IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type
1912: ,p_old_line_rec IN OE_Order_PUB.Line_Rec_Type
1913: ) IS
1914: --
1915: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1916: --
1917: BEGIN
1918: NULL;
1919: EXCEPTION
1949: lfirst PLS_INTEGER;
1950: l_order_date_type_code VARCHAR2(20); -- 8706868
1951: l_sales_order_id NUMBER; -- 8706868
1952: --
1953: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1954: --
1955: BEGIN
1956: IF l_debug_level > 0 THEN
1957: oe_debug_pub.add( 'ENTER CHECK SPLIT COURSE' ) ;
1953: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1954: --
1955: BEGIN
1956: IF l_debug_level > 0 THEN
1957: oe_debug_pub.add( 'ENTER CHECK SPLIT COURSE' ) ;
1958: END IF;
1959: l_line_tbl := p_x_line_tbl;
1960: IF oe_split_util.g_sch_recursion = 'FALSE' AND NOT g_non_prop_split THEN
1961: -- Loop Through Lines Table to find Split Action
1973: --While i is not null Loop
1974:
1975: IF l_debug_level > 0
1976: THEN
1977: oe_debug_pub.add('OUT side the LOOP ORDERED QUANTITY IS => '|| l_line_tbl(I).ordered_quantity
1978: || ' Count : '||I);
1979: oe_debug_pub.add('OUT side the LOOP ORD QTY IS :'|| l_line_tbl(I).ordered_quantity || ' Count : '
1980: ||I ||' Operation : '||l_line_tbl(I).operation);
1981: end if;
1975: IF l_debug_level > 0
1976: THEN
1977: oe_debug_pub.add('OUT side the LOOP ORDERED QUANTITY IS => '|| l_line_tbl(I).ordered_quantity
1978: || ' Count : '||I);
1979: oe_debug_pub.add('OUT side the LOOP ORD QTY IS :'|| l_line_tbl(I).ordered_quantity || ' Count : '
1980: ||I ||' Operation : '||l_line_tbl(I).operation);
1981: end if;
1982: IF l_line_tbl(I).split_action_code = 'SPLIT' AND
1983: l_line_tbl(I).operation = OE_GLOBALS.G_OPR_UPDATE
1988: */
1989: IF l_line_tbl(I).ordered_quantity = 0
1990: THEN
1991: IF l_debug_level > 0 THEN
1992: oe_debug_pub.add( 'ORDERED QUANTITY IS INVALID with UPDATE OPER => '|| l_line_tbl(I).ordered_quantity ) ;
1993: END IF;
1994: FND_MESSAGE.SET_NAME('ONT','OE_SPLIT_WITH_ZERO_QTY');
1995: FND_MESSAGE.SET_TOKEN('QUANTITY',L_line_tbl(I).ordered_quantity);
1996: OE_MSG_PUB.ADD;
1994: FND_MESSAGE.SET_NAME('ONT','OE_SPLIT_WITH_ZERO_QTY');
1995: FND_MESSAGE.SET_TOKEN('QUANTITY',L_line_tbl(I).ordered_quantity);
1996: OE_MSG_PUB.ADD;
1997: IF l_debug_level > 0 THEN
1998: oe_debug_pub.add( 'SPLIT- NOT ALLOWED TO UPDATE WITH QUANTITY ZERO' ) ;
1999: END IF;
2000: RAISE FND_API.G_EXC_ERROR;
2001: END IF;
2002: oe_line_util.query_row(p_line_id => l_line_tbl(I).line_id,
2002: oe_line_util.query_row(p_line_id => l_line_tbl(I).line_id,
2003: x_line_rec => l_line_rec);
2004: IF l_debug_level > 0
2005: THEN
2006: oe_debug_pub.add( 'ITEM TYPE CODE : '|| L_LINE_REC.ITEM_TYPE_CODE ) ;
2007: END IF;
2008: IF nvl(L_line_rec.model_remnant_flag,'N') <> 'Y'
2009: THEN
2010: IF (L_line_rec.item_type_code <> 'STANDARD' AND
2012: L_line_rec.Item_type_code <> 'KIT' AND
2013: NOT (nvl(L_line_rec.ato_line_id,-99) = l_line_rec.line_id AND L_line_rec.item_type_code = 'CLASS' ))
2014: THEN
2015: IF l_debug_level > 0 THEN
2016: oe_debug_pub.add( 'ITEM TYPE CODE INVALID => '|| L_LINE_REC.ITEM_TYPE_CODE ) ;
2017: END IF;
2018: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SPLIT_OPR');
2019: FND_MESSAGE.SET_TOKEN('ITEMTYPE',L_line_rec.item_type_code);
2020: OE_MSG_PUB.ADD;
2018: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SPLIT_OPR');
2019: FND_MESSAGE.SET_TOKEN('ITEMTYPE',L_line_rec.item_type_code);
2020: OE_MSG_PUB.ADD;
2021: IF l_debug_level > 0 THEN
2022: oe_debug_pub.add( 'SPLIT- NOT ALLOWED THIS ITEMTYPE' ) ;
2023: END IF;
2024: RAISE FND_API.G_EXC_ERROR;
2025: END IF;
2026: END IF;
2033: IF ( l_line_rec.line_set_id IS NULL )
2034: THEN
2035: --l_line_tbl(I).line_set_id <> FND_API.G_MISS_NUM) THEN
2036: IF l_debug_level > 0 THEN
2037: oe_debug_pub.add( 'ENTER CREATE LINE SET:' ) ;
2038: END IF;
2039: Oe_Set_Util.Create_Line_Set(p_x_line_rec => l_line_rec);
2040: l_line_tbl(I).line_set_id := l_line_rec.line_set_id;
2041: oe_lot_serial_util.Set_Line_Set_ID ( p_Line_ID => l_line_tbl(I).line_id
2082: END IF;
2083: -- 8706868
2084: l_child_quantity := l_line_tbl(I).ordered_quantity;
2085: IF l_debug_level > 0 THEN
2086: oe_debug_pub.add( 'PARENT QUANTITY:'|| L_PARENT_ORDERED_QUANTITY ) ;
2087: oe_debug_pub.add( 'CHILD_QUANTITY:'|| L_CHILD_QUANTITY ) ;
2088: END IF;
2089: l_line_scredit_tbl.delete;
2090: oe_line_scredit_util.query_rows( p_line_id => l_line_tbl(I).line_id,
2083: -- 8706868
2084: l_child_quantity := l_line_tbl(I).ordered_quantity;
2085: IF l_debug_level > 0 THEN
2086: oe_debug_pub.add( 'PARENT QUANTITY:'|| L_PARENT_ORDERED_QUANTITY ) ;
2087: oe_debug_pub.add( 'CHILD_QUANTITY:'|| L_CHILD_QUANTITY ) ;
2088: END IF;
2089: l_line_scredit_tbl.delete;
2090: oe_line_scredit_util.query_rows( p_line_id => l_line_tbl(I).line_id,
2091: x_line_scredit_tbl => l_line_scredit_tbl);
2092: --j := l_line_tbl.First;
2093: --While j is not null Loop
2094: FOR J IN 1..l_Line_Tbl.Count LOOP
2095: IF l_debug_level > 0 THEN
2096: oe_debug_pub.add('CREATE ORDERED QUANTITY IS INVALID => '|| l_line_tbl(J).ordered_quantity);
2097: oe_debug_pub.add('OUT side the LOOP ORD QTY IS :'|| l_line_tbl(J).ordered_quantity || ' Count : '
2098: ||J ||' Operation : '||l_line_tbl(J).operation);
2099: END if;
2100: IF (l_Line_Tbl(J).split_from_line_id = l_line_tbl(I).Line_Id AND
2093: --While j is not null Loop
2094: FOR J IN 1..l_Line_Tbl.Count LOOP
2095: IF l_debug_level > 0 THEN
2096: oe_debug_pub.add('CREATE ORDERED QUANTITY IS INVALID => '|| l_line_tbl(J).ordered_quantity);
2097: oe_debug_pub.add('OUT side the LOOP ORD QTY IS :'|| l_line_tbl(J).ordered_quantity || ' Count : '
2098: ||J ||' Operation : '||l_line_tbl(J).operation);
2099: END if;
2100: IF (l_Line_Tbl(J).split_from_line_id = l_line_tbl(I).Line_Id AND
2101: l_line_tbl(J).operation = OE_GLOBALS.G_OPR_CREATE )
2106: */
2107: IF l_line_tbl(J).ordered_quantity = 0
2108: THEN
2109: IF l_debug_level > 0 THEN
2110: oe_debug_pub.add('ORDERED QUANTITY IS INVALID with CREATE OPER=> '
2111: ||l_line_tbl(J).ordered_quantity ) ;
2112: END IF;
2113: FND_MESSAGE.SET_NAME('ONT','OE_SPLIT_WITH_ZERO_QTY');
2114: FND_MESSAGE.SET_TOKEN('QUANTITY',L_line_tbl(J).ordered_quantity);
2113: FND_MESSAGE.SET_NAME('ONT','OE_SPLIT_WITH_ZERO_QTY');
2114: FND_MESSAGE.SET_TOKEN('QUANTITY',L_line_tbl(J).ordered_quantity);
2115: OE_MSG_PUB.ADD;
2116: IF l_debug_level > 0 THEN
2117: oe_debug_pub.add( 'SPLIT- NOT ALLOWED TO CREATE WITH QUANTITY ZERO' ) ;
2118: END IF;
2119: RAISE FND_API.G_EXC_ERROR;
2120: END IF;
2121: g_qry_out_rec := l_line_tbl(J);
2132: l_sch_count := l_sch_count + 1;
2133: l_sch_tbl(l_sch_count) := l_line_tbl(J);
2134: l_child_quantity := l_child_quantity + l_line_tbl(J).ordered_quantity;
2135: IF l_debug_level > 0 THEN
2136: oe_debug_pub.add( 'CHILD_QUANTITY2:'|| L_CHILD_QUANTITY ) ;
2137: END IF;
2138: -- Copy Sales Credits for the new line
2139: FOR SCRD_REC IN 1..L_line_Scredit_tbl.count LOOP
2140: l_scredit_count := l_scredit_count + 1;
2147: --j:= l_line_tbl.next(j);
2148: END LOOP; -- Loop for Insert on line table
2149: -- Check If quantities sum up to total ordered quantity
2150: IF l_debug_level > 0 THEN
2151: oe_debug_pub.add( 'PARENT QUANTITY3:'|| L_PARENT_ORDERED_QUANTITY ) ;
2152: oe_debug_pub.add( 'CHILD_QUANTITY3:'|| L_CHILD_QUANTITY ) ;
2153: END IF;
2154: IF l_parent_ordered_quantity <> l_child_quantity THEN
2155: IF l_debug_level > 0 THEN
2148: END LOOP; -- Loop for Insert on line table
2149: -- Check If quantities sum up to total ordered quantity
2150: IF l_debug_level > 0 THEN
2151: oe_debug_pub.add( 'PARENT QUANTITY3:'|| L_PARENT_ORDERED_QUANTITY ) ;
2152: oe_debug_pub.add( 'CHILD_QUANTITY3:'|| L_CHILD_QUANTITY ) ;
2153: END IF;
2154: IF l_parent_ordered_quantity <> l_child_quantity THEN
2155: IF l_debug_level > 0 THEN
2156: oe_debug_pub.add( 'PARENT QUANTITY3:'|| L_PARENT_ORDERED_QUANTITY ) ;
2152: oe_debug_pub.add( 'CHILD_QUANTITY3:'|| L_CHILD_QUANTITY ) ;
2153: END IF;
2154: IF l_parent_ordered_quantity <> l_child_quantity THEN
2155: IF l_debug_level > 0 THEN
2156: oe_debug_pub.add( 'PARENT QUANTITY3:'|| L_PARENT_ORDERED_QUANTITY ) ;
2157: oe_debug_pub.add( 'CHILD_QUANTITY3:'|| L_CHILD_QUANTITY ) ;
2158: END IF;
2159: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SPLIT_QTY');
2160: OE_MSG_PUB.ADD;
2153: END IF;
2154: IF l_parent_ordered_quantity <> l_child_quantity THEN
2155: IF l_debug_level > 0 THEN
2156: oe_debug_pub.add( 'PARENT QUANTITY3:'|| L_PARENT_ORDERED_QUANTITY ) ;
2157: oe_debug_pub.add( 'CHILD_QUANTITY3:'|| L_CHILD_QUANTITY ) ;
2158: END IF;
2159: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SPLIT_QTY');
2160: OE_MSG_PUB.ADD;
2161: IF l_debug_level > 0 THEN
2158: END IF;
2159: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SPLIT_QTY');
2160: OE_MSG_PUB.ADD;
2161: IF l_debug_level > 0 THEN
2162: oe_debug_pub.add( 'RAJ:SPLIT-QUNATITES NOT EQUAL' ) ;
2163: END IF;
2164: RAISE FND_API.G_EXC_ERROR;
2165: END IF;
2166: l_child_quantity := 0;
2177: (l_line_rec.item_type_code = 'KIT') OR
2178: (l_line_rec.item_type_code = 'CLASS' AND l_line_rec.ato_line_id = l_line_rec.line_id))
2179: THEN
2180: IF l_debug_level > 0 THEN
2181: oe_debug_pub.add( 'INTO MODEL AND CLASS IF' ) ;
2182: oe_debug_pub.add( 'REMNANT FLAG : '||L_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
2183: END IF;
2184: IF (nvl(l_line_rec.model_remnant_flag,'N') <> 'Y') OR
2185: (l_line_rec.item_type_code = 'CLASS' AND l_line_rec.ato_line_id = l_line_rec.line_id)
2178: (l_line_rec.item_type_code = 'CLASS' AND l_line_rec.ato_line_id = l_line_rec.line_id))
2179: THEN
2180: IF l_debug_level > 0 THEN
2181: oe_debug_pub.add( 'INTO MODEL AND CLASS IF' ) ;
2182: oe_debug_pub.add( 'REMNANT FLAG : '||L_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
2183: END IF;
2184: IF (nvl(l_line_rec.model_remnant_flag,'N') <> 'Y') OR
2185: (l_line_rec.item_type_code = 'CLASS' AND l_line_rec.ato_line_id = l_line_rec.line_id)
2186: THEN
2184: IF (nvl(l_line_rec.model_remnant_flag,'N') <> 'Y') OR
2185: (l_line_rec.item_type_code = 'CLASS' AND l_line_rec.ato_line_id = l_line_rec.line_id)
2186: THEN
2187: IF l_debug_level > 0 THEN
2188: oe_debug_pub.add( 'BEFORE CALLING CASCADE PROP' ) ;
2189: END IF;
2190: Last_count := l_line_tbl.count+1;
2191: Cascade_Proportional_split(p_line_tbl => l_line_tbl,
2192: parent_ordered_quantity => l_parent_ordered_quantity,
2216: /* OE_ORDER_SCH_UTIL.Split_Scheduling(p_line_tbl => l_sch_tbl,
2217: x_line_tbl => l_sch_tbl,
2218: x_return_status => l_return_status);
2219: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2220: oe_debug_pub.add('Into split scheduling unexpected failure');
2221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2222: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2223: oe_debug_pub.add('Into split scheduling expected failure');
2224: RAISE FND_API.G_EXC_ERROR;
2219: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2220: oe_debug_pub.add('Into split scheduling unexpected failure');
2221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2222: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2223: oe_debug_pub.add('Into split scheduling expected failure');
2224: RAISE FND_API.G_EXC_ERROR;
2225: END IF; */
2226: -- Delete split line tbl for this line
2227: g_split_line_tbl.delete;
2250: p_X_line_Tbl := l_line_tbl;
2251: -- Update Drop Ship Sources
2252: --Update_Drop_Ship_Source(p_line_tbl => X_Line_Tbl);
2253: IF l_debug_level > 0 THEN
2254: oe_debug_pub.add( 'SPLIT TABLE PICTURE IS - ' ) ;
2255: END IF;
2256: --i:= l_line_tbl.First;
2257: FOR I in 1..l_line_tbl.count LOOP
2258: --While i is not null loop
2256: --i:= l_line_tbl.First;
2257: FOR I in 1..l_line_tbl.count LOOP
2258: --While i is not null loop
2259: IF l_debug_level > 0 THEN
2260: oe_debug_pub.add( L_LINE_TBL ( I ) .ORDERED_QUANTITY , 5 ) ;
2261: oe_debug_pub.add( L_LINE_TBL ( I ) .OPERATION , 5 ) ;
2262: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
2263: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
2264: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
2257: FOR I in 1..l_line_tbl.count LOOP
2258: --While i is not null loop
2259: IF l_debug_level > 0 THEN
2260: oe_debug_pub.add( L_LINE_TBL ( I ) .ORDERED_QUANTITY , 5 ) ;
2261: oe_debug_pub.add( L_LINE_TBL ( I ) .OPERATION , 5 ) ;
2262: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
2263: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
2264: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
2265: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
2258: --While i is not null loop
2259: IF l_debug_level > 0 THEN
2260: oe_debug_pub.add( L_LINE_TBL ( I ) .ORDERED_QUANTITY , 5 ) ;
2261: oe_debug_pub.add( L_LINE_TBL ( I ) .OPERATION , 5 ) ;
2262: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
2263: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
2264: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
2265: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
2266: oe_debug_pub.add( L_LINE_TBL ( I ) .REQUEST_DATE , 5 ) ;
2259: IF l_debug_level > 0 THEN
2260: oe_debug_pub.add( L_LINE_TBL ( I ) .ORDERED_QUANTITY , 5 ) ;
2261: oe_debug_pub.add( L_LINE_TBL ( I ) .OPERATION , 5 ) ;
2262: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
2263: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
2264: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
2265: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
2266: oe_debug_pub.add( L_LINE_TBL ( I ) .REQUEST_DATE , 5 ) ;
2267: oe_debug_pub.add( L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 5 ) ;
2260: oe_debug_pub.add( L_LINE_TBL ( I ) .ORDERED_QUANTITY , 5 ) ;
2261: oe_debug_pub.add( L_LINE_TBL ( I ) .OPERATION , 5 ) ;
2262: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
2263: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
2264: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
2265: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
2266: oe_debug_pub.add( L_LINE_TBL ( I ) .REQUEST_DATE , 5 ) ;
2267: oe_debug_pub.add( L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 5 ) ;
2268: oe_debug_pub.add( 'Link To Line id '||L_LINE_TBL ( I ) .LINK_TO_LINE_ID , 5) ;
2261: oe_debug_pub.add( L_LINE_TBL ( I ) .OPERATION , 5 ) ;
2262: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
2263: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
2264: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
2265: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
2266: oe_debug_pub.add( L_LINE_TBL ( I ) .REQUEST_DATE , 5 ) ;
2267: oe_debug_pub.add( L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 5 ) ;
2268: oe_debug_pub.add( 'Link To Line id '||L_LINE_TBL ( I ) .LINK_TO_LINE_ID , 5) ;
2269: END IF;
2262: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
2263: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
2264: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
2265: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
2266: oe_debug_pub.add( L_LINE_TBL ( I ) .REQUEST_DATE , 5 ) ;
2267: oe_debug_pub.add( L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 5 ) ;
2268: oe_debug_pub.add( 'Link To Line id '||L_LINE_TBL ( I ) .LINK_TO_LINE_ID , 5) ;
2269: END IF;
2270: --i:= l_line_tbl.next(i);
2263: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
2264: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
2265: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
2266: oe_debug_pub.add( L_LINE_TBL ( I ) .REQUEST_DATE , 5 ) ;
2267: oe_debug_pub.add( L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 5 ) ;
2268: oe_debug_pub.add( 'Link To Line id '||L_LINE_TBL ( I ) .LINK_TO_LINE_ID , 5) ;
2269: END IF;
2270: --i:= l_line_tbl.next(i);
2271: END LOOP;
2264: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
2265: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
2266: oe_debug_pub.add( L_LINE_TBL ( I ) .REQUEST_DATE , 5 ) ;
2267: oe_debug_pub.add( L_LINE_TBL ( I ) .SHIP_FROM_ORG_ID , 5 ) ;
2268: oe_debug_pub.add( 'Link To Line id '||L_LINE_TBL ( I ) .LINK_TO_LINE_ID , 5) ;
2269: END IF;
2270: --i:= l_line_tbl.next(i);
2271: END LOOP;
2272: IF l_debug_level > 0 THEN
2269: END IF;
2270: --i:= l_line_tbl.next(i);
2271: END LOOP;
2272: IF l_debug_level > 0 THEN
2273: oe_debug_pub.add( 'EXIT CHECK SPLIT COURSE' ) ;
2274: END IF;
2275: END IF;
2276: <
2277: NULL;
2313: l_complete_shipment VARCHAR2(1) ;
2314: l_scredit_count NUMBER := 0;
2315:
2316: --
2317: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2318: --
2319: BEGIN
2320:
2321: x_return_status := FND_API.G_RET_STS_SUCCESS;
2319: BEGIN
2320:
2321: x_return_status := FND_API.G_RET_STS_SUCCESS;
2322: IF l_debug_level > 0 THEN
2323: OE_DEBUG_PUB.add('Entering Cascade_Non_Proportional_split() ',1);
2324: OE_DEBUG_PUB.add('Table count : '||p_x_line_tbl.count,5) ;
2325: END IF;
2326:
2327: FOR I in 1 .. l_line_tbl.count LOOP
2320:
2321: x_return_status := FND_API.G_RET_STS_SUCCESS;
2322: IF l_debug_level > 0 THEN
2323: OE_DEBUG_PUB.add('Entering Cascade_Non_Proportional_split() ',1);
2324: OE_DEBUG_PUB.add('Table count : '||p_x_line_tbl.count,5) ;
2325: END IF;
2326:
2327: FOR I in 1 .. l_line_tbl.count LOOP
2328: IF l_line_tbl(I).ordered_quantity < 0 THEN
2328: IF l_line_tbl(I).ordered_quantity < 0 THEN
2329: g_over_shipment := true;
2330: END IF;
2331: IF l_debug_level > 0 THEN
2332: oe_debug_pub.add('Line id : '||l_line_tbl(i).line_id,5) ;
2333: oe_debug_pub.add('Operation : ' ||l_line_tbl(i).operation,5) ;
2334: oe_debug_pub.add('Ordered quantity : '||l_line_tbl(i).ordered_quantity,5) ;
2335: oe_debug_pub.add('Item type code : ' ||l_line_tbl(i).item_type_code,5) ;
2336: oe_debug_pub.add('Shipped quantity : '||l_line_tbl(i).shipped_quantity,5) ;
2329: g_over_shipment := true;
2330: END IF;
2331: IF l_debug_level > 0 THEN
2332: oe_debug_pub.add('Line id : '||l_line_tbl(i).line_id,5) ;
2333: oe_debug_pub.add('Operation : ' ||l_line_tbl(i).operation,5) ;
2334: oe_debug_pub.add('Ordered quantity : '||l_line_tbl(i).ordered_quantity,5) ;
2335: oe_debug_pub.add('Item type code : ' ||l_line_tbl(i).item_type_code,5) ;
2336: oe_debug_pub.add('Shipped quantity : '||l_line_tbl(i).shipped_quantity,5) ;
2337: END IF;
2330: END IF;
2331: IF l_debug_level > 0 THEN
2332: oe_debug_pub.add('Line id : '||l_line_tbl(i).line_id,5) ;
2333: oe_debug_pub.add('Operation : ' ||l_line_tbl(i).operation,5) ;
2334: oe_debug_pub.add('Ordered quantity : '||l_line_tbl(i).ordered_quantity,5) ;
2335: oe_debug_pub.add('Item type code : ' ||l_line_tbl(i).item_type_code,5) ;
2336: oe_debug_pub.add('Shipped quantity : '||l_line_tbl(i).shipped_quantity,5) ;
2337: END IF;
2338: END LOOP;
2331: IF l_debug_level > 0 THEN
2332: oe_debug_pub.add('Line id : '||l_line_tbl(i).line_id,5) ;
2333: oe_debug_pub.add('Operation : ' ||l_line_tbl(i).operation,5) ;
2334: oe_debug_pub.add('Ordered quantity : '||l_line_tbl(i).ordered_quantity,5) ;
2335: oe_debug_pub.add('Item type code : ' ||l_line_tbl(i).item_type_code,5) ;
2336: oe_debug_pub.add('Shipped quantity : '||l_line_tbl(i).shipped_quantity,5) ;
2337: END IF;
2338: END LOOP;
2339:
2332: oe_debug_pub.add('Line id : '||l_line_tbl(i).line_id,5) ;
2333: oe_debug_pub.add('Operation : ' ||l_line_tbl(i).operation,5) ;
2334: oe_debug_pub.add('Ordered quantity : '||l_line_tbl(i).ordered_quantity,5) ;
2335: oe_debug_pub.add('Item type code : ' ||l_line_tbl(i).item_type_code,5) ;
2336: oe_debug_pub.add('Shipped quantity : '||l_line_tbl(i).shipped_quantity,5) ;
2337: END IF;
2338: END LOOP;
2339:
2340: oe_line_util.query_row(p_line_id => l_line_tbl(1).line_id, x_line_rec => l_line_rec);
2354:
2355: IF NOT g_over_shipment THEN
2356:
2357: IF l_debug_level > 0 THEN
2358: oe_debug_pub.add('Before calling check complete shipment',5) ;
2359: END IF;
2360: l_complete_shipment := Check_Complete_shipment( p_line_tbl => l_line_tbl, p_line_id => l_line_rec.line_id );
2361: IF (l_model_flag = 'N' AND nvl(l_line_rec.shippable_flag,'N') = 'Y' ) THEN
2362: l_max_ship_model := 0;
2393: END IF;
2394:
2395: IF g_over_shipment THEN
2396: IF l_debug_level > 0 THEN
2397: oe_debug_pub.add('Over shipment true' , 1 ) ;
2398: END IF;
2399: l_min_model := 0;
2400: l_max_ship_model := 0;
2401: END IF;
2401: END IF;
2402: g_min_model := l_min_model;
2403: g_max_model := l_max_ship_model;
2404: IF l_debug_level > 0 THEN
2405: oe_debug_pub.add('Min model : '||l_min_model,5 ) ;
2406: oe_debug_pub.add('Max shipped model : '||l_max_ship_model,5) ;
2407: END IF;
2408: IF g_min_model = 0 THEN
2409: g_remnant_only := TRUE;
2402: g_min_model := l_min_model;
2403: g_max_model := l_max_ship_model;
2404: IF l_debug_level > 0 THEN
2405: oe_debug_pub.add('Min model : '||l_min_model,5 ) ;
2406: oe_debug_pub.add('Max shipped model : '||l_max_ship_model,5) ;
2407: END IF;
2408: IF g_min_model = 0 THEN
2409: g_remnant_only := TRUE;
2410: END IF;
2411: IF l_model_flag = 'Y' THEN
2412: Get_Model_Configuration(p_line_tbl => l_line_tbl, x_line_tbl => l_line_out_tbl);
2413: l_line_tbl := l_line_out_tbl;
2414: IF l_debug_level > 0 THEN
2415: oe_debug_pub.add('Minimum model : '||l_min_model,5);
2416: oe_debug_pub.add('Minimum model : '||g_min_model,5);
2417: END IF;
2418: ELSE
2419: Get_non_Model_Configuration(p_line_tbl => l_line_tbl, x_line_tbl => l_line_out_tbl);
2412: Get_Model_Configuration(p_line_tbl => l_line_tbl, x_line_tbl => l_line_out_tbl);
2413: l_line_tbl := l_line_out_tbl;
2414: IF l_debug_level > 0 THEN
2415: oe_debug_pub.add('Minimum model : '||l_min_model,5);
2416: oe_debug_pub.add('Minimum model : '||g_min_model,5);
2417: END IF;
2418: ELSE
2419: Get_non_Model_Configuration(p_line_tbl => l_line_tbl, x_line_tbl => l_line_out_tbl);
2420: l_line_tbl := l_line_out_tbl;
2418: ELSE
2419: Get_non_Model_Configuration(p_line_tbl => l_line_tbl, x_line_tbl => l_line_out_tbl);
2420: l_line_tbl := l_line_out_tbl;
2421: IF l_debug_level > 0 THEN
2422: oe_debug_pub.add('Minimum model : '|| l_min_model,5);
2423: oe_debug_pub.add('Minimum model : '|| g_min_model,5);
2424: END IF;
2425: END IF;
2426: g_remnant_only := FALSE;
2419: Get_non_Model_Configuration(p_line_tbl => l_line_tbl, x_line_tbl => l_line_out_tbl);
2420: l_line_tbl := l_line_out_tbl;
2421: IF l_debug_level > 0 THEN
2422: oe_debug_pub.add('Minimum model : '|| l_min_model,5);
2423: oe_debug_pub.add('Minimum model : '|| g_min_model,5);
2424: END IF;
2425: END IF;
2426: g_remnant_only := FALSE;
2427: -- Call Scheduling
2427: -- Call Scheduling
2428: -- This call to scheduling is commented to fix splitting of reservations
2429: -- issue. The call is moved to post line loop and is in control of scheduling
2430: IF l_debug_level > 0 THEN
2431: oe_debug_pub.add('Scheduling call has been disabled',5);
2432: END IF;
2433: /*OE_ORDER_SCH_UTIL.Split_Scheduling(p_line_tbl => l_line_tbl,
2434: x_line_tbl => l_line_tbl,
2435: x_return_status => l_return_status);*/
2434: x_line_tbl => l_line_tbl,
2435: x_return_status => l_return_status);*/
2436: FOR I in 1 .. l_line_tbl.count LOOP
2437: IF l_debug_level > 0 THEN
2438: oe_debug_pub.add('Line ID : '||l_line_tbl(I).line_id,5);
2439: oe_debug_pub.add('Operation : '||l_line_tbl(I).operation,5) ;
2440: oe_debug_pub.add('Ordered Quantity : '||l_line_tbl(I).ordered_quantity,5) ;
2441: oe_debug_pub.add('Item Type Code : '||l_line_tbl(I).item_type_code,5) ;
2442: oe_debug_pub.add('Remnant Flag : '||nvl(l_line_tbl(I).model_remnant_flag,'N'),5) ;
2435: x_return_status => l_return_status);*/
2436: FOR I in 1 .. l_line_tbl.count LOOP
2437: IF l_debug_level > 0 THEN
2438: oe_debug_pub.add('Line ID : '||l_line_tbl(I).line_id,5);
2439: oe_debug_pub.add('Operation : '||l_line_tbl(I).operation,5) ;
2440: oe_debug_pub.add('Ordered Quantity : '||l_line_tbl(I).ordered_quantity,5) ;
2441: oe_debug_pub.add('Item Type Code : '||l_line_tbl(I).item_type_code,5) ;
2442: oe_debug_pub.add('Remnant Flag : '||nvl(l_line_tbl(I).model_remnant_flag,'N'),5) ;
2443: END IF;
2436: FOR I in 1 .. l_line_tbl.count LOOP
2437: IF l_debug_level > 0 THEN
2438: oe_debug_pub.add('Line ID : '||l_line_tbl(I).line_id,5);
2439: oe_debug_pub.add('Operation : '||l_line_tbl(I).operation,5) ;
2440: oe_debug_pub.add('Ordered Quantity : '||l_line_tbl(I).ordered_quantity,5) ;
2441: oe_debug_pub.add('Item Type Code : '||l_line_tbl(I).item_type_code,5) ;
2442: oe_debug_pub.add('Remnant Flag : '||nvl(l_line_tbl(I).model_remnant_flag,'N'),5) ;
2443: END IF;
2444: IF l_line_tbl(I).model_remnant_flag = 'Y' THEN
2437: IF l_debug_level > 0 THEN
2438: oe_debug_pub.add('Line ID : '||l_line_tbl(I).line_id,5);
2439: oe_debug_pub.add('Operation : '||l_line_tbl(I).operation,5) ;
2440: oe_debug_pub.add('Ordered Quantity : '||l_line_tbl(I).ordered_quantity,5) ;
2441: oe_debug_pub.add('Item Type Code : '||l_line_tbl(I).item_type_code,5) ;
2442: oe_debug_pub.add('Remnant Flag : '||nvl(l_line_tbl(I).model_remnant_flag,'N'),5) ;
2443: END IF;
2444: IF l_line_tbl(I).model_remnant_flag = 'Y' THEN
2445: l_line_tbl(I).split_by := 'SYSTEM';
2438: oe_debug_pub.add('Line ID : '||l_line_tbl(I).line_id,5);
2439: oe_debug_pub.add('Operation : '||l_line_tbl(I).operation,5) ;
2440: oe_debug_pub.add('Ordered Quantity : '||l_line_tbl(I).ordered_quantity,5) ;
2441: oe_debug_pub.add('Item Type Code : '||l_line_tbl(I).item_type_code,5) ;
2442: oe_debug_pub.add('Remnant Flag : '||nvl(l_line_tbl(I).model_remnant_flag,'N'),5) ;
2443: END IF;
2444: IF l_line_tbl(I).model_remnant_flag = 'Y' THEN
2445: l_line_tbl(I).split_by := 'SYSTEM';
2446: l_line_tbl(I).ship_set_id := NULL;
2482: l_control_rec.change_attributes := TRUE;
2483: l_control_rec.default_attributes := TRUE;
2484: OE_SPLIT_UTIL.G_SPLIT_ACTION := TRUE;
2485: IF l_debug_level > 0 THEN
2486: oe_debug_pub.add('Before calling process order in splits',1) ;
2487: END IF;
2488: oe_order_pvt.Lines
2489: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
2490: , p_control_rec => l_control_rec
2493: , x_return_status => l_return_status
2494: );
2495: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2496: IF l_debug_level > 0 THEN
2497: oe_debug_pub.add('Split Line: Process order returns unexpected error : '||sqlerrm,1) ;
2498: END IF;
2499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2500: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2501: IF l_debug_level > 0 THEN
2498: END IF;
2499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2500: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2501: IF l_debug_level > 0 THEN
2502: oe_debug_pub.add('Split Line: Process order returns execution error : '||sqlerrm,1) ;
2503: END IF;
2504: RAISE FND_API.G_EXC_ERROR;
2505: END IF;
2506:
2549: ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
2550: )IS
2551: l_return_status varchar2(30);
2552: --
2553: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2554: --
2555: BEGIN
2556: OE_CHG_ORDER_PVT.RecordLineHist
2557: ( p_line_id => p_line_rec.line_id
2580:
2581: Procedure Add_To_Fulfillment_Set(p_line_rec IN oe_order_pub.line_rec_type) IS
2582: -- 4925992
2583: l_top_model_line_id NUMBER;
2584: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2585:
2586: Cursor C1 is SELECT SET_ID
2587: FROM OE_LINE_SETS
2588: WHERE LINE_ID = p_line_rec.split_from_line_id;
2638: l_x_Line_Adj_Assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
2639: l_x_Header_Payment_tbl OE_Order_PUB.Header_Payment_Tbl_Type;
2640: l_x_Line_Payment_tbl OE_Order_PUB.Line_Payment_Tbl_Type;
2641: l_control_rec OE_GLOBALS.Control_Rec_Type;
2642: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2643: l_line_conc_rec OE_Split_Util.Split_Line_Rec_Type;
2644: l_line_conc_tbl OE_Split_Util.Split_Line_Tbl_Type;
2645: l_rec_count number;
2646: l_return_status VARCHAR2(1);
2671: FOR UPDATE NOWAIT;
2672:
2673:
2674: BEGIN
2675: oe_debug_pub.add('Entering Procedure OE_Split_Util.Defer_Split', 1);
2676: l_init_line_id :=to_number(p_line_id);
2677:
2678: select org_id
2679: into l_org_id
2695: INTO l_line_conc_tbl;
2696: CLOSE c_split_details;
2697: EXCEPTION
2698: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
2699: oe_debug_pub.add('record_lock exception in Oe_Split_Util.Defer_Split',1);
2700: Retcode := 2;
2701: errbuf := sqlerrm;
2702: raise;
2703: END;
2731:
2732: IF l_orig_ord_qty > 0 AND l_ord_qty_sum <> l_orig_ord_qty THEN
2733: FND_MESSAGE.SET_NAME('ONT','OE_UI_SPLIT_UNEQUAL_QTY');
2734: OE_MSG_PUB.ADD;
2735: oe_debug_pub.add('Total shipment quantity must equal original quantity',1);
2736: RAISE FND_API.G_EXC_ERROR;
2737: ELSIF l_orig_ord_qty2 > 0 AND (l_ord_qty2_sum <> l_orig_ord_qty2) THEN
2738: FND_MESSAGE.SET_NAME('ONT','OE_UI_SPLIT_UNEQUAL_QTY');
2739: OE_MSG_PUB.ADD;
2736: RAISE FND_API.G_EXC_ERROR;
2737: ELSIF l_orig_ord_qty2 > 0 AND (l_ord_qty2_sum <> l_orig_ord_qty2) THEN
2738: FND_MESSAGE.SET_NAME('ONT','OE_UI_SPLIT_UNEQUAL_QTY');
2739: OE_MSG_PUB.ADD;
2740: oe_debug_pub.add('Total shipment quantity must equal original quantity',1);
2741: RAISE FND_API.G_EXC_ERROR;
2742: END IF;
2743:
2744: /* OPEN c_split_details;
2751: IF i = 1 THEN
2752: IF l_line_conc_tbl(i).line_id IS NOT NULL THEN
2753: l_line_id := l_line_conc_tbl(i).line_id;
2754: IF l_debug_level > 0 THEN
2755: oe_debug_pub.add(' Query Line for Split'||l_line_conc_tbl(i).LINE_ID,3) ;
2756: END IF;
2757: l_x_line_tbl(i).line_id := l_line_conc_tbl(i).line_id;
2758: OE_Line_Util.Lock_Row
2759: ( x_return_status => l_return_status
2764: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2765: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2766: RAISE FND_API.G_EXC_ERROR;
2767: END IF;
2768: oe_debug_pub.add('After Query Line for Split',3) ;
2769: --10278858
2770: l_org_request_date := l_x_line_tbl(i).request_date;
2771: l_org_ship_from_org_id := l_x_line_tbl(i).ship_from_org_id;
2772: l_org_ship_to_org_id := l_x_line_tbl(i).ship_to_org_id;
2782: l_x_line_tbl(i).request_id := FND_GLOBAL.CONC_REQUEST_ID;
2783: END IF;
2784: l_x_line_tbl(i).operation := OE_GLOBALS.G_OPR_UPDATE;
2785: IF l_debug_level > 0 THEN
2786: OE_DEBUG_PUB.add('Audit Trail Reason Code being passed as '||
2787: l_line_conc_tbl(i).change_reason_code,1);
2788: END IF;
2789: l_x_line_tbl(i).change_reason := l_line_conc_tbl(i).change_reason_code;
2790: l_x_line_tbl(i).change_comments := l_line_conc_tbl(i).change_reason_comment;
2841: END IF;
2842: END IF;
2843: --8706868 End
2844: END LOOP;
2845: oe_debug_pub.add('From Defer Split - Calling Process Order',1) ;
2846:
2847: Oe_Order_Pvt.Process_order
2848: ( p_api_version_number => 1.0
2849: , p_init_msg_list => FND_API.G_TRUE
2870:
2871: );
2872:
2873: END IF;
2874: oe_debug_pub.add('From Defer Split - After Calling Process Order',1) ;
2875:
2876: l_msg_total := l_msg_total + l_msg_count;
2877:
2878: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2902: END IF;
2903: END IF;
2904:
2905: l_line_tbl(i).operation := OE_GLOBALS.G_OPR_UPDATE;
2906: oe_debug_pub.add('Reason code being passed : '||l_line_tbl(i).change_reason,1);
2907:
2908: l_line_tbl(i).change_reason := l_line_conc_tbl(i).change_reason_code;
2909: l_line_tbl(i).change_comments := l_line_conc_tbl(i).change_reason_comment;
2910: l_line_tbl(i).split_action_code:= FND_API.G_MISS_CHAR;
2975: l_line_tbl(l_rec_count).ship_from_org_id :=
2976: l_line_conc_tbl(k).ship_from_org_id;
2977: l_line_tbl(l_rec_count).subinventory := fnd_api.g_miss_char; --Added as a part of 16525601 for Bug 13560415 , do not use nullnull;
2978: ELSE
2979: oe_debug_pub.ADD('Inside else Condition');
2980: l_line_tbl(l_rec_count).ship_from_org_id := l_x_line_tbl(i).ship_from_org_id;
2981: l_line_tbl(l_rec_count).subinventory := fnd_api.g_miss_char; --Added as a part of 16525601 for Bug 13560415, do not use nullnull;
2982: end if ; --16525601
2983: l_process_add_attributes := TRUE;
2993: END IF;
2994: END IF;
2995:
2996: l_line_tbl(l_rec_count).operation := OE_GLOBALS.G_OPR_UPDATE;
2997: oe_debug_pub.add('Reason code being passed : '||
2998: l_line_tbl(l_rec_count).change_reason,1);
2999: l_line_tbl(l_rec_count).change_reason :=
3000: l_line_conc_tbl(k).change_reason_code;
3001: l_line_tbl(l_rec_count).change_comments :=
3025: l_x_Line_Scredit_tbl.DELETE;
3026: l_x_lot_serial_tbl.DELETE;
3027:
3028: IF l_process_add_attributes THEN
3029: oe_debug_pub.add('calling process_order for service lines from oe_split_util.defer_split',5);
3030: Oe_Order_Pvt.Process_order
3031: ( p_api_version_number => 1.0
3032: , p_init_msg_list => FND_API.G_TRUE
3033: , x_return_status => l_return_status
3091: l_msg_data := to_char(I)||'. '||OE_MSG_PUB.Get(I,FND_API.G_FALSE);
3092: FND_FILE.put_line(FND_FILE.output, l_msg_data);
3093: -- Writing messages into the concurrent request output file
3094: END LOOP;
3095: oe_debug_pub.add(' Saving the Messages');
3096: oe_msg_pub.save_messages(p_request_id => FND_GLOBAL.CONC_REQUEST_ID);
3097: -- Bug 6964815
3098:
3099: ELSE
3100: FND_FILE.put_line(FND_FILE.output,' << No Errors or Warnings reported >>');
3101: END IF;
3102: END IF;
3103: COMMIT;
3104: oe_debug_pub.add('Exiting Procedure OE_Split_Util.Defer_Split', 1);
3105:
3106: EXCEPTION
3107: WHEN OTHERS THEN
3108: retcode := 2;
3105:
3106: EXCEPTION
3107: WHEN OTHERS THEN
3108: retcode := 2;
3109: oe_debug_pub.add('Inside the exception block of oe_split_util.defer_split',5);
3110: IF NVL(FND_PROFILE.VALUE('CONC_REQUEST_ID'), 0) <> 0 THEN
3111: -- Called from concurrent request */
3112: IF l_msg_total > 0 THEN
3113: FOR I IN 1 .. l_msg_total LOOP
3135:
3136: PROCEDURE Bulk_Insert (p_line_conc_tbl IN Split_Line_Tbl_Type) is
3137:
3138: begin
3139: oe_debug_pub.add('entering oe_split_util.bulk_insert');
3140:
3141: FORALL j IN p_line_conc_tbl.FIRST .. p_line_conc_tbl.LAST
3142: INSERT INTO OE_LINE_SPLIT_DETAILS
3143: VALUES p_line_conc_tbl(j);
3143: VALUES p_line_conc_tbl(j);
3144:
3145: exception
3146: WHEN OTHERS THEN
3147: oe_debug_pub.add('failed in bulk insert API'||sqlerrm);
3148: raise;
3149: end Bulk_Insert;
3150:
3151: /* Defer Split ER Changes END */