[Home] [Help]
8: g_qry_out_rec OE_ORDER_PUB.Line_rec_Type := OE_ORDER_PUB.G_MISS_LINE_REC;
9:
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: BEGIN
162: IF l_debug_level > 0 THEN
163: oe_debug_pub.add( 'IN PKG OE_DEFAULT_LINE: FUNCTION GET_SHIPMENT_NUMBER' ) ;
159: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
160: --
161: BEGIN
162: IF l_debug_level > 0 THEN
163: oe_debug_pub.add( 'IN PKG OE_DEFAULT_LINE: FUNCTION GET_SHIPMENT_NUMBER' ) ;
164: END IF;
165: IF p_line_rec.top_model_line_id IS NULL
166: OR p_line_rec.top_model_line_id = FND_API.G_MISS_NUM THEN
167: SELECT NVL(MAX(SHIPMENT_NUMBER)+1,1)
176: INTO l_ship_number
177: FROM oe_order_lines
178: WHERE line_id = p_line_rec.top_model_line_id;
179: IF l_debug_level > 0 THEN
180: oe_debug_pub.add( 'SHIPMENT_NUMBER '||l_ship_number,1 ) ;
181: END IF;
182: /*
183: l_config_rec := OE_Order_Cache.Load_Top_Model_Line(p_line_rec.top_model_line_id );
184: l_ship_number := l_config_rec.shipment_number;
206: AND NVL(SHIPPABLE_FLAG,'N')='Y';
207: l_line_tbl OE_ORDER_PUB.line_tbl_type := p_line_tbl;
208: l_exist varchar2(1) := 'N';
209: --
210: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
211: --
212: BEGIN
213: l_line_id := p_line_id;
214: FOR optionrec in optiontbl LOOP
212: BEGIN
213: l_line_id := p_line_id;
214: FOR optionrec in optiontbl LOOP
215: IF l_debug_level > 0 THEN
216: oe_debug_pub.add( 'INTO OPTION TABLE-' ) ;
217: END IF;
218: l_exist := 'N';
219: FOR I in 1 .. l_line_tbl.count LOOP
220: IF l_debug_level > 0 THEN
217: END IF;
218: l_exist := 'N';
219: FOR I in 1 .. l_line_tbl.count LOOP
220: IF l_debug_level > 0 THEN
221: oe_debug_pub.add( 'LINE_ID-' ||OPTIONREC.LINE_ID ) ;
222: END IF;
223: IF optionrec.line_id = l_line_tbl(I).line_id THEN
224: IF l_debug_level > 0 THEN
225: oe_debug_pub.add( 'EQUAL OPTION TABLE-' ) ;
221: oe_debug_pub.add( 'LINE_ID-' ||OPTIONREC.LINE_ID ) ;
222: END IF;
223: IF optionrec.line_id = l_line_tbl(I).line_id THEN
224: IF l_debug_level > 0 THEN
225: oe_debug_pub.add( 'EQUAL OPTION TABLE-' ) ;
226: END IF;
227: l_exist := 'Y';
228: EXIT;
229: END IF;
232: RETURN l_exist;
233: END IF;
234: END LOOP;
235: IF l_debug_level > 0 THEN
236: oe_debug_pub.add( 'RESULT-'||L_EXIST ) ;
237: END IF;
238: RETURN l_exist;
239: EXCEPTION WHEN OTHERS THEN
240: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
262: AND SERVICE_REFERENCE_TYPE_CODE = 'ORDER'
263: AND OPEN_FLAG <> 'N' -- Bug 6710212
264: AND NVL(CANCELLED_FLAG,'N') <> 'Y';
265: --
266: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
267: --
268: BEGIN
269: IF l_debug_level > 0 THEN
270: oe_debug_pub.add('Enter get_service_lines()',5);
266: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
267: --
268: BEGIN
269: IF l_debug_level > 0 THEN
270: oe_debug_pub.add('Enter get_service_lines()',5);
271: END IF;
272: x_line_tbl := p_line_tbl;
273: l_line_id := g_split_line_tbl(1).line_id;
274: FOR Ser_rec IN Sertbl LOOP
318:
319: FOR I in 1..x_line_tbl.count LOOP
320: --While i is not null loop
321: IF l_debug_level > 0 THEN
322: oe_debug_pub.add('Quantity '||x_line_tbl(i).ordered_quantity,5);
323: oe_debug_pub.add('Operation '||x_line_tbl(i).operation,5);
324: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
325: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
326: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
319: FOR I in 1..x_line_tbl.count LOOP
320: --While i is not null loop
321: IF l_debug_level > 0 THEN
322: oe_debug_pub.add('Quantity '||x_line_tbl(i).ordered_quantity,5);
323: oe_debug_pub.add('Operation '||x_line_tbl(i).operation,5);
324: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
325: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
326: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
327: oe_debug_pub.add('Line set '||x_line_tbl(i).line_set_id,5);
320: --While i is not null loop
321: IF l_debug_level > 0 THEN
322: oe_debug_pub.add('Quantity '||x_line_tbl(i).ordered_quantity,5);
323: oe_debug_pub.add('Operation '||x_line_tbl(i).operation,5);
324: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
325: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
326: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
327: oe_debug_pub.add('Line set '||x_line_tbl(i).line_set_id,5);
328: oe_debug_pub.add(x_line_tbl(i).split_action_code,5);
321: IF l_debug_level > 0 THEN
322: oe_debug_pub.add('Quantity '||x_line_tbl(i).ordered_quantity,5);
323: oe_debug_pub.add('Operation '||x_line_tbl(i).operation,5);
324: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
325: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
326: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
327: oe_debug_pub.add('Line set '||x_line_tbl(i).line_set_id,5);
328: oe_debug_pub.add(x_line_tbl(i).split_action_code,5);
329: END IF;
322: oe_debug_pub.add('Quantity '||x_line_tbl(i).ordered_quantity,5);
323: oe_debug_pub.add('Operation '||x_line_tbl(i).operation,5);
324: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
325: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
326: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
327: oe_debug_pub.add('Line set '||x_line_tbl(i).line_set_id,5);
328: oe_debug_pub.add(x_line_tbl(i).split_action_code,5);
329: END IF;
330: --i:= l_line_tbl.next(i);
323: oe_debug_pub.add('Operation '||x_line_tbl(i).operation,5);
324: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
325: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
326: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
327: oe_debug_pub.add('Line set '||x_line_tbl(i).line_set_id,5);
328: oe_debug_pub.add(x_line_tbl(i).split_action_code,5);
329: END IF;
330: --i:= l_line_tbl.next(i);
331: END LOOP;
324: oe_debug_pub.add('Item Type '||x_line_tbl(i).item_type_code,5) ;
325: oe_debug_pub.add('Line ID '||x_line_tbl(i).line_id,5);
326: oe_debug_pub.add('Split from line ID '||x_line_tbl(i).split_from_line_id,5);
327: oe_debug_pub.add('Line set '||x_line_tbl(i).line_set_id,5);
328: oe_debug_pub.add(x_line_tbl(i).split_action_code,5);
329: END IF;
330: --i:= l_line_tbl.next(i);
331: END LOOP;
332: IF l_debug_level > 0 THEN
329: END IF;
330: --i:= l_line_tbl.next(i);
331: END LOOP;
332: IF l_debug_level > 0 THEN
333: oe_debug_pub.add('Exit service lines()',5 ) ;
334: END IF;
335: EXCEPTION
336: WHEN OTHERS THEN
337: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
379: AND LINE_ID <> l_line_id
380: AND NVL(CANCELLED_FLAG,'N')<> 'Y'
381: ORDER BY LINE_ID;
382: --
383: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
384: --
385: BEGIN
386: IF l_debug_level > 0 THEN
387: oe_debug_pub.add('Entering splitting non-model configuration with following picture ',5);
383: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
384: --
385: BEGIN
386: IF l_debug_level > 0 THEN
387: oe_debug_pub.add('Entering splitting non-model configuration with following picture ',5);
388: END IF;
389: FOR I in 1..p_line_tbl.count LOOP
390: IF l_debug_level > 0 THEN
391: oe_debug_pub.add('line id : '||p_line_tbl(i).line_id , 1 ) ;
387: oe_debug_pub.add('Entering splitting non-model configuration with following picture ',5);
388: END IF;
389: FOR I in 1..p_line_tbl.count LOOP
390: IF l_debug_level > 0 THEN
391: oe_debug_pub.add('line id : '||p_line_tbl(i).line_id , 1 ) ;
392: oe_debug_pub.add('ordered quantity : '||p_line_tbl(i).ordered_quantity , 1 ) ;
393: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
394: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
395: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
388: END IF;
389: FOR I in 1..p_line_tbl.count LOOP
390: IF l_debug_level > 0 THEN
391: oe_debug_pub.add('line id : '||p_line_tbl(i).line_id , 1 ) ;
392: oe_debug_pub.add('ordered quantity : '||p_line_tbl(i).ordered_quantity , 1 ) ;
393: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
394: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
395: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
396: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
389: FOR I in 1..p_line_tbl.count LOOP
390: IF l_debug_level > 0 THEN
391: oe_debug_pub.add('line id : '||p_line_tbl(i).line_id , 1 ) ;
392: oe_debug_pub.add('ordered quantity : '||p_line_tbl(i).ordered_quantity , 1 ) ;
393: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
394: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
395: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
396: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
397: oe_debug_pub.add('top model line id : '||p_line_tbl(i).top_model_line_id , 1 ) ;
390: IF l_debug_level > 0 THEN
391: oe_debug_pub.add('line id : '||p_line_tbl(i).line_id , 1 ) ;
392: oe_debug_pub.add('ordered quantity : '||p_line_tbl(i).ordered_quantity , 1 ) ;
393: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
394: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
395: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
396: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
397: oe_debug_pub.add('top model line id : '||p_line_tbl(i).top_model_line_id , 1 ) ;
398: oe_debug_pub.add('actual shipment on : '||p_line_tbl(i).actual_shipment_date,1);
391: oe_debug_pub.add('line id : '||p_line_tbl(i).line_id , 1 ) ;
392: oe_debug_pub.add('ordered quantity : '||p_line_tbl(i).ordered_quantity , 1 ) ;
393: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
394: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
395: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
396: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
397: oe_debug_pub.add('top model line id : '||p_line_tbl(i).top_model_line_id , 1 ) ;
398: oe_debug_pub.add('actual shipment on : '||p_line_tbl(i).actual_shipment_date,1);
399: END IF;
392: oe_debug_pub.add('ordered quantity : '||p_line_tbl(i).ordered_quantity , 1 ) ;
393: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
394: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
395: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
396: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
397: oe_debug_pub.add('top model line id : '||p_line_tbl(i).top_model_line_id , 1 ) ;
398: oe_debug_pub.add('actual shipment on : '||p_line_tbl(i).actual_shipment_date,1);
399: END IF;
400: END LOOP;
393: oe_debug_pub.add('item type code : '||p_line_tbl(i).item_type_code , 1 ) ;
394: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
395: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
396: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
397: oe_debug_pub.add('top model line id : '||p_line_tbl(i).top_model_line_id , 1 ) ;
398: oe_debug_pub.add('actual shipment on : '||p_line_tbl(i).actual_shipment_date,1);
399: END IF;
400: END LOOP;
401: x_line_tbl := p_line_tbl;
394: oe_debug_pub.add('operation : '||p_line_tbl(i).operation , 1 ) ;
395: oe_debug_pub.add('shipped quantity : '||p_line_tbl(i).shipped_quantity , 1 ) ;
396: oe_debug_pub.add('model remnant flag : '||p_line_tbl(i).model_remnant_flag , 1 ) ;
397: oe_debug_pub.add('top model line id : '||p_line_tbl(i).top_model_line_id , 1 ) ;
398: oe_debug_pub.add('actual shipment on : '||p_line_tbl(i).actual_shipment_date,1);
399: END IF;
400: END LOOP;
401: x_line_tbl := p_line_tbl;
402: l_line_id := p_line_tbl(1).top_model_line_id;
405: l_parent_line := l_line_rec;
406: -- Get Complete shipped Model if any
407: -- Form Complete Shipped Model if g_max_model > 0
408: IF l_debug_level > 0 THEN
409: oe_debug_pub.add('********* Completing shipped model *************** ',5);
410: END IF;
411: IF g_max_model > 0 THEN
412: l_parent_line := l_line_rec;
413: l_parent_line.ordered_quantity := g_max_model;
428: option_updated := FALSE;
429: FOR I in 1..P_line_tbl.count LOOP
430: IF p_line_tbl(I).line_id = optionrec.line_id THEN
431: IF l_debug_level > 0 THEN
432: oe_debug_pub.add( X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
433: END IF;
434: x_line_tbl(I).ordered_quantity := g_max_model * l_model_ratio;
435: x_line_tbl(I).operation := oe_globals.g_opr_update;
436: x_line_tbl(I).shipped_quantity := x_line_tbl(I).ordered_quantity;
435: x_line_tbl(I).operation := oe_globals.g_opr_update;
436: x_line_tbl(I).shipped_quantity := x_line_tbl(I).ordered_quantity;
437: option_updated := TRUE;
438: IF l_debug_level > 0 THEN
439: oe_debug_pub.add( 'ORD QTY' ||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
440: END IF;
441: EXIT;
442: END IF;
443: END LOOP;
455: END IF; -- Option not updated
456: option_updated := false;
457: END LOOP;
458: IF l_debug_level > 0 THEN
459: oe_debug_pub.add('After maximum shipped model',5 ) ;
460: END IF;
461: FOR I in 1..l_option_line_tbl.count LOOP
462: IF l_debug_level > 0 THEN
463: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
459: oe_debug_pub.add('After maximum shipped model',5 ) ;
460: END IF;
461: FOR I in 1..l_option_line_tbl.count LOOP
462: IF l_debug_level > 0 THEN
463: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
464: oe_debug_pub.add('Item Type Code : '|| l_option_line_tbl ( i ) .item_type_code , 1 ) ;
465: oe_debug_pub.add('Operation : '|| l_option_line_tbl ( i ) .operation , 1 ) ;
466: END IF;
467: END LOOP;
460: END IF;
461: FOR I in 1..l_option_line_tbl.count LOOP
462: IF l_debug_level > 0 THEN
463: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
464: oe_debug_pub.add('Item Type Code : '|| l_option_line_tbl ( i ) .item_type_code , 1 ) ;
465: oe_debug_pub.add('Operation : '|| l_option_line_tbl ( i ) .operation , 1 ) ;
466: END IF;
467: END LOOP;
468: END IF; -- g_max_model
461: FOR I in 1..l_option_line_tbl.count LOOP
462: IF l_debug_level > 0 THEN
463: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
464: oe_debug_pub.add('Item Type Code : '|| l_option_line_tbl ( i ) .item_type_code , 1 ) ;
465: oe_debug_pub.add('Operation : '|| l_option_line_tbl ( i ) .operation , 1 ) ;
466: END IF;
467: END LOOP;
468: END IF; -- g_max_model
469: -- End Complete Shipped Model
468: END IF; -- g_max_model
469: -- End Complete Shipped Model
470: -- Get Complete shippable Model if any
471: IF l_debug_level > 0 THEN
472: oe_debug_pub.add('Completing unshipped model ',1);
473: END IF;
474: IF g_min_Model > 0 THEN
475: l_parent_line := l_line_rec;
476: l_parent_line.ordered_quantity := g_min_model;
477: l_parent_line.operation := oe_globals.g_opr_create;
478: l_parent_line.split_by := 'SYSTEM';
479: l_parent_line.split_from_line_id := l_parent_line.line_id;
480: IF l_debug_level > 0 THEN
481: oe_debug_pub.add('Line set id is : '||l_set_id,5) ;
482: END IF;
483: l_parent_line.line_id := fnd_api.g_miss_num;
484: l_parent_line.orig_sys_line_ref :=fnd_api.g_miss_char; -- Bug5207907
485: OE_Split_Util.Default_Attributes
516: l_option_line_tbl(l_option_count).ordered_quantity := g_min_model * l_model_ratio ;
517: END LOOP;
518: END IF;
519: IF l_debug_level > 0 THEN
520: oe_debug_pub.add('after get shippable model',5);
521: END IF;
522: FOR I in 1..l_option_line_tbl.count LOOP
523: IF l_debug_level > 0 THEN
524: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
520: oe_debug_pub.add('after get shippable model',5);
521: END IF;
522: FOR I in 1..l_option_line_tbl.count LOOP
523: IF l_debug_level > 0 THEN
524: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
525: oe_debug_pub.add('Item Type : '||l_option_line_tbl ( i ) .item_type_code , 1 ) ;
526: oe_debug_pub.add('Operation : '||l_option_line_tbl ( i ) .operation , 1 ) ;
527: oe_debug_pub.add('Line Set ID : '||l_option_line_tbl ( i ) .line_set_id , 1 ) ;
528: END IF;
521: END IF;
522: FOR I in 1..l_option_line_tbl.count LOOP
523: IF l_debug_level > 0 THEN
524: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
525: oe_debug_pub.add('Item Type : '||l_option_line_tbl ( i ) .item_type_code , 1 ) ;
526: oe_debug_pub.add('Operation : '||l_option_line_tbl ( i ) .operation , 1 ) ;
527: oe_debug_pub.add('Line Set ID : '||l_option_line_tbl ( i ) .line_set_id , 1 ) ;
528: END IF;
529: END LOOP;
522: FOR I in 1..l_option_line_tbl.count LOOP
523: IF l_debug_level > 0 THEN
524: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
525: oe_debug_pub.add('Item Type : '||l_option_line_tbl ( i ) .item_type_code , 1 ) ;
526: oe_debug_pub.add('Operation : '||l_option_line_tbl ( i ) .operation , 1 ) ;
527: oe_debug_pub.add('Line Set ID : '||l_option_line_tbl ( i ) .line_set_id , 1 ) ;
528: END IF;
529: END LOOP;
530: -- Get Remnant shipped
523: IF l_debug_level > 0 THEN
524: oe_debug_pub.add('Option table ordered Quantity : '|| l_option_line_tbl ( i ) .ordered_quantity , 1 ) ;
525: oe_debug_pub.add('Item Type : '||l_option_line_tbl ( i ) .item_type_code , 1 ) ;
526: oe_debug_pub.add('Operation : '||l_option_line_tbl ( i ) .operation , 1 ) ;
527: oe_debug_pub.add('Line Set ID : '||l_option_line_tbl ( i ) .line_set_id , 1 ) ;
528: END IF;
529: END LOOP;
530: -- Get Remnant shipped
531:
530: -- Get Remnant shipped
531:
532: l_parent_line := l_line_rec;
533: IF l_debug_level > 0 THEN
534: oe_debug_pub.add('Process completely shipped remnant lines',1);
535: oe_debug_pub.add('Parent quantity 1 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
536: END IF;
537: l_parent_line.ordered_quantity := l_line_rec.ordered_quantity - g_max_model - g_min_model ;
538: IF l_debug_level > 0 THEN
531:
532: l_parent_line := l_line_rec;
533: IF l_debug_level > 0 THEN
534: oe_debug_pub.add('Process completely shipped remnant lines',1);
535: oe_debug_pub.add('Parent quantity 1 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
536: END IF;
537: l_parent_line.ordered_quantity := l_line_rec.ordered_quantity - g_max_model - g_min_model ;
538: IF l_debug_level > 0 THEN
539: oe_debug_pub.add('Parent quantity 2 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
535: oe_debug_pub.add('Parent quantity 1 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
536: END IF;
537: l_parent_line.ordered_quantity := l_line_rec.ordered_quantity - g_max_model - g_min_model ;
538: IF l_debug_level > 0 THEN
539: oe_debug_pub.add('Parent quantity 2 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
540: END IF;
541: IF l_parent_line.ordered_quantity > 0 THEN
542: IF g_max_model = 0 THEN
543: IF l_parent_line.line_set_id is null AND l_set_id IS NULL THEN
612: l_option_line_tbl(l_option_count).shipped_quantity :=
613: l_option_line_tbl(l_option_count).ordered_quantity;
614: l_option_line_tbl(l_option_count).actual_shipment_date := l_actual_shipment_date;
615: IF l_debug_level > 0 THEN
616: oe_debug_pub.add('Model Ratio : ' ||l_model_ratio,1);
617: oe_debug_pub.add('Index : ' ||I , 1 ) ;
618: oe_debug_pub.add('Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
619: oe_debug_pub.add('actual shipment date : '||l_option_line_tbl(l_option_count).actual_shipment_date,5);
620: oe_debug_pub.add('shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
613: l_option_line_tbl(l_option_count).ordered_quantity;
614: l_option_line_tbl(l_option_count).actual_shipment_date := l_actual_shipment_date;
615: IF l_debug_level > 0 THEN
616: oe_debug_pub.add('Model Ratio : ' ||l_model_ratio,1);
617: oe_debug_pub.add('Index : ' ||I , 1 ) ;
618: oe_debug_pub.add('Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
619: oe_debug_pub.add('actual shipment date : '||l_option_line_tbl(l_option_count).actual_shipment_date,5);
620: oe_debug_pub.add('shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
621: END IF;
614: l_option_line_tbl(l_option_count).actual_shipment_date := l_actual_shipment_date;
615: IF l_debug_level > 0 THEN
616: oe_debug_pub.add('Model Ratio : ' ||l_model_ratio,1);
617: oe_debug_pub.add('Index : ' ||I , 1 ) ;
618: oe_debug_pub.add('Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
619: oe_debug_pub.add('actual shipment date : '||l_option_line_tbl(l_option_count).actual_shipment_date,5);
620: oe_debug_pub.add('shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
621: END IF;
622: IF l_rem_top_model_line_id is not null then
615: IF l_debug_level > 0 THEN
616: oe_debug_pub.add('Model Ratio : ' ||l_model_ratio,1);
617: oe_debug_pub.add('Index : ' ||I , 1 ) ;
618: oe_debug_pub.add('Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
619: oe_debug_pub.add('actual shipment date : '||l_option_line_tbl(l_option_count).actual_shipment_date,5);
620: oe_debug_pub.add('shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
621: END IF;
622: IF l_rem_top_model_line_id is not null then
623: l_option_line_tbl(l_option_count).top_model_line_id := l_rem_top_model_line_id;
616: oe_debug_pub.add('Model Ratio : ' ||l_model_ratio,1);
617: oe_debug_pub.add('Index : ' ||I , 1 ) ;
618: oe_debug_pub.add('Ordered Quantity on remnant : '||x_line_tbl ( i ) .ordered_quantity , 1 ) ;
619: oe_debug_pub.add('actual shipment date : '||l_option_line_tbl(l_option_count).actual_shipment_date,5);
620: oe_debug_pub.add('shipped quantity on remnant : '||l_option_line_tbl( l_option_count ) .ordered_quantity,5);
621: END IF;
622: IF l_rem_top_model_line_id is not null then
623: l_option_line_tbl(l_option_count).top_model_line_id := l_rem_top_model_line_id;
624: ELSE
639: /*l_parent_line := l_line_rec;
640: l_parent_line.ordered_quantity :=
641: l_line_rec.ordered_quantity - p_line_tbl(1).shipped_quantity - g_min_model;
642: IF l_debug_level > 0 THEN
643: oe_debug_pub.add('Parent line ordered quantity ' || l_parent_line.ordered_quantity);
644: oe_debug_pub.add('This line ordered quantity ' || l_line_rec.ordered_quantity);
645: oe_debug_pub.add('Ordered quantity on the table ' || x_line_tbl(1).ordered_quantity);
646: END IF;
647: IF l_parent_line.ordered_quantity <> 0 THEN
640: l_parent_line.ordered_quantity :=
641: l_line_rec.ordered_quantity - p_line_tbl(1).shipped_quantity - g_min_model;
642: IF l_debug_level > 0 THEN
643: oe_debug_pub.add('Parent line ordered quantity ' || l_parent_line.ordered_quantity);
644: oe_debug_pub.add('This line ordered quantity ' || l_line_rec.ordered_quantity);
645: oe_debug_pub.add('Ordered quantity on the table ' || x_line_tbl(1).ordered_quantity);
646: END IF;
647: IF l_parent_line.ordered_quantity <> 0 THEN
648: l_parent_line.operation := oe_globals.g_opr_create;
641: l_line_rec.ordered_quantity - p_line_tbl(1).shipped_quantity - g_min_model;
642: IF l_debug_level > 0 THEN
643: oe_debug_pub.add('Parent line ordered quantity ' || l_parent_line.ordered_quantity);
644: oe_debug_pub.add('This line ordered quantity ' || l_line_rec.ordered_quantity);
645: oe_debug_pub.add('Ordered quantity on the table ' || x_line_tbl(1).ordered_quantity);
646: END IF;
647: IF l_parent_line.ordered_quantity <> 0 THEN
648: l_parent_line.operation := oe_globals.g_opr_create;
649: l_parent_line.split_by := 'SYSTEM';
676: l_insert_quantity := g_max_model *l_model_ratio;
677: END IF;
678: l_update_quantity := l_option_line.ordered_quantity - g_min_model * l_model_ratio - l_insert_quantity ;
679: IF l_debug_level > 0 THEN
680: oe_debug_pub.add('Update Quantity : '||l_update_quantity,5) ;
681: oe_debug_pub.add('Option line Ordered Quantity : '||l_option_line.ordered_quantity,5);
682: oe_debug_pub.add('Ratio : ' || g_min_model * l_model_ratio,5);
683: oe_debug_pub.add('Insert Quantity : ' || l_insert_quantity,5);
684: END IF;
677: END IF;
678: l_update_quantity := l_option_line.ordered_quantity - g_min_model * l_model_ratio - l_insert_quantity ;
679: IF l_debug_level > 0 THEN
680: oe_debug_pub.add('Update Quantity : '||l_update_quantity,5) ;
681: oe_debug_pub.add('Option line Ordered Quantity : '||l_option_line.ordered_quantity,5);
682: oe_debug_pub.add('Ratio : ' || g_min_model * l_model_ratio,5);
683: oe_debug_pub.add('Insert Quantity : ' || l_insert_quantity,5);
684: END IF;
685: IF l_update_quantity > 0 THEN
678: l_update_quantity := l_option_line.ordered_quantity - g_min_model * l_model_ratio - l_insert_quantity ;
679: IF l_debug_level > 0 THEN
680: oe_debug_pub.add('Update Quantity : '||l_update_quantity,5) ;
681: oe_debug_pub.add('Option line Ordered Quantity : '||l_option_line.ordered_quantity,5);
682: oe_debug_pub.add('Ratio : ' || g_min_model * l_model_ratio,5);
683: oe_debug_pub.add('Insert Quantity : ' || l_insert_quantity,5);
684: END IF;
685: IF l_update_quantity > 0 THEN
686: l_option_count := l_option_count + 1;
679: IF l_debug_level > 0 THEN
680: oe_debug_pub.add('Update Quantity : '||l_update_quantity,5) ;
681: oe_debug_pub.add('Option line Ordered Quantity : '||l_option_line.ordered_quantity,5);
682: oe_debug_pub.add('Ratio : ' || g_min_model * l_model_ratio,5);
683: oe_debug_pub.add('Insert Quantity : ' || l_insert_quantity,5);
684: END IF;
685: IF l_update_quantity > 0 THEN
686: l_option_count := l_option_count + 1;
687: IF NOT option_updated AND g_max_model = 0 THEN
723: END IF; -- Update Quantity
724: option_updated := false;
725: END LOOP;
726: IF l_debug_level > 0 THEN
727: oe_debug_pub.add('Out table count : ' || x_line_tbl.count,1) ;
728: END IF;
729: l_option_count := x_line_tbl.count + 1;
730: FOR I in 1..l_option_line_tbl.count LOOP
731: x_line_tbl(l_option_count) := l_option_line_tbl(I);
731: x_line_tbl(l_option_count) := l_option_line_tbl(I);
732: l_option_count := l_option_count + 1;
733: END LOOP;
734: IF l_debug_level > 0 THEN
735: oe_debug_pub.add('Final table picture : ',5);
736: END IF;
737: FOR I in 1..x_line_tbl.count LOOP
738: IF l_debug_level > 0 THEN
739: oe_debug_pub.add('line id : '||x_line_tbl(i).line_id , 1 ) ;
735: oe_debug_pub.add('Final table picture : ',5);
736: END IF;
737: FOR I in 1..x_line_tbl.count LOOP
738: IF l_debug_level > 0 THEN
739: oe_debug_pub.add('line id : '||x_line_tbl(i).line_id , 1 ) ;
740: oe_debug_pub.add('ordered quantity : '||x_line_tbl(i).ordered_quantity , 1 ) ;
741: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
742: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
743: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
736: END IF;
737: FOR I in 1..x_line_tbl.count LOOP
738: IF l_debug_level > 0 THEN
739: oe_debug_pub.add('line id : '||x_line_tbl(i).line_id , 1 ) ;
740: oe_debug_pub.add('ordered quantity : '||x_line_tbl(i).ordered_quantity , 1 ) ;
741: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
742: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
743: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
744: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
737: FOR I in 1..x_line_tbl.count LOOP
738: IF l_debug_level > 0 THEN
739: oe_debug_pub.add('line id : '||x_line_tbl(i).line_id , 1 ) ;
740: oe_debug_pub.add('ordered quantity : '||x_line_tbl(i).ordered_quantity , 1 ) ;
741: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
742: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
743: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
744: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
745: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
738: IF l_debug_level > 0 THEN
739: oe_debug_pub.add('line id : '||x_line_tbl(i).line_id , 1 ) ;
740: oe_debug_pub.add('ordered quantity : '||x_line_tbl(i).ordered_quantity , 1 ) ;
741: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
742: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
743: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
744: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
745: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
746: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
739: oe_debug_pub.add('line id : '||x_line_tbl(i).line_id , 1 ) ;
740: oe_debug_pub.add('ordered quantity : '||x_line_tbl(i).ordered_quantity , 1 ) ;
741: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
742: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
743: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
744: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
745: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
746: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
747: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
740: oe_debug_pub.add('ordered quantity : '||x_line_tbl(i).ordered_quantity , 1 ) ;
741: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
742: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
743: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
744: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
745: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
746: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
747: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
748: oe_debug_pub.add('actual shipment on : '||x_line_tbl(i).actual_shipment_date,1);
741: oe_debug_pub.add('item type code : '||x_line_tbl(i).item_type_code , 1 ) ;
742: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
743: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
744: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
745: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
746: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
747: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
748: oe_debug_pub.add('actual shipment on : '||x_line_tbl(i).actual_shipment_date,1);
749: END IF;
742: oe_debug_pub.add('operation : '||x_line_tbl(i).operation , 1 ) ;
743: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
744: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
745: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
746: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
747: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
748: oe_debug_pub.add('actual shipment on : '||x_line_tbl(i).actual_shipment_date,1);
749: END IF;
750: END LOOP;
743: oe_debug_pub.add('line set id : '||x_line_tbl(i).line_set_id , 1 ) ;
744: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
745: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
746: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
747: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
748: oe_debug_pub.add('actual shipment on : '||x_line_tbl(i).actual_shipment_date,1);
749: END IF;
750: END LOOP;
751: IF l_debug_level > 0 THEN
744: oe_debug_pub.add('shipped quantity : '||x_line_tbl(i).shipped_quantity , 1 ) ;
745: oe_debug_pub.add('model remnant flag : '||x_line_tbl(i).model_remnant_flag , 1 ) ;
746: oe_debug_pub.add('split from line id : '||x_line_tbl(i).split_from_line_id , 1 ) ;
747: oe_debug_pub.add('top model line id : '||x_line_tbl(i).top_model_line_id , 1 ) ;
748: oe_debug_pub.add('actual shipment on : '||x_line_tbl(i).actual_shipment_date,1);
749: END IF;
750: END LOOP;
751: IF l_debug_level > 0 THEN
752: OE_DEBUG_PUB.add('Leaving get_non_model_configuration()',5);
748: oe_debug_pub.add('actual shipment on : '||x_line_tbl(i).actual_shipment_date,1);
749: END IF;
750: END LOOP;
751: IF l_debug_level > 0 THEN
752: OE_DEBUG_PUB.add('Leaving get_non_model_configuration()',5);
753: END IF;
754: EXCEPTION
755: WHEN OTHERS THEN
756: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
801: AND LINE_ID <> l_line_id
802: AND NVL(CANCELLED_FLAG,'N') <> 'Y'
803: ORDER BY LINE_ID;
804: --
805: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
806: --
807: BEGIN
808: x_line_tbl := p_line_tbl;
809: l_line_id := p_line_tbl(1).line_id;
812: l_parent_line := l_line_rec;
813: -- Get Complete shipped Model if any
814: -- Form Complete Shipped Model if g_max_model > 0
815: IF l_debug_level > 0 THEN
816: oe_debug_pub.add( 'COMPLETE SHIPPED MODEL' ) ;
817: END IF;
818: IF g_max_model > 0 THEN
819: l_parent_line := l_line_rec;
820: l_parent_line.ordered_quantity := g_max_model;
857: END IF; -- Option not updated
858: option_updated := false;
859: END LOOP;
860: IF l_debug_level > 0 THEN
861: oe_debug_pub.add( 'AFTER MAXIMUM SHIPPED MODEL' ) ;
862: END IF;
863: FOR I in 1..l_option_line_tbl.count LOOP
864: IF l_debug_level > 0 THEN
865: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
861: oe_debug_pub.add( 'AFTER MAXIMUM SHIPPED MODEL' ) ;
862: END IF;
863: FOR I in 1..l_option_line_tbl.count LOOP
864: IF l_debug_level > 0 THEN
865: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
866: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
867: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
868: END IF;
869: END LOOP;
862: END IF;
863: FOR I in 1..l_option_line_tbl.count LOOP
864: IF l_debug_level > 0 THEN
865: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
866: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
867: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
868: END IF;
869: END LOOP;
870: END IF; -- g_max_model
863: FOR I in 1..l_option_line_tbl.count LOOP
864: IF l_debug_level > 0 THEN
865: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
866: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
867: oe_debug_pub.add( L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
868: END IF;
869: END LOOP;
870: END IF; -- g_max_model
871: -- End Complete Shipped Mo
876: l_parent_line.operation := oe_globals.g_opr_create;
877: l_parent_line.split_by := 'SYSTEM';
878: l_parent_line.split_from_line_id := l_parent_line.line_id;
879: IF l_debug_level > 0 THEN
880: oe_debug_pub.add( 'LINE SET IS-'||L_SET_ID ) ;
881: END IF;
882: l_parent_line.line_id := fnd_api.g_miss_num;
883: l_parent_line.orig_sys_line_ref := fnd_api.g_miss_char; --Bug5207907
884: OE_Split_Util.Default_Attributes
915: l_option_line_tbl(l_option_count).ordered_quantity := g_min_model * l_model_ratio ;
916: END LOOP;
917: END IF;
918: IF l_debug_level > 0 THEN
919: oe_debug_pub.add( 'AFTER GET SHIPPABLE MODEL' ) ;
920: END IF;
921: FOR I in 1..l_option_line_tbl.count LOOP
922: IF l_debug_level > 0 THEN
923: oe_debug_pub.add( 'ORDERED QUANTITY : '||L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
919: oe_debug_pub.add( 'AFTER GET SHIPPABLE MODEL' ) ;
920: END IF;
921: FOR I in 1..l_option_line_tbl.count LOOP
922: IF l_debug_level > 0 THEN
923: oe_debug_pub.add( 'ORDERED QUANTITY : '||L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
924: oe_debug_pub.add( 'ITEM TYPE CODE : '||L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
925: oe_debug_pub.add( 'OPERATION : '||L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
926: oe_debug_pub.add( 'LINE SET ID : '||L_OPTION_LINE_TBL ( I ) .LINE_SET_ID , 1 ) ;
927: END IF;
920: END IF;
921: FOR I in 1..l_option_line_tbl.count LOOP
922: IF l_debug_level > 0 THEN
923: oe_debug_pub.add( 'ORDERED QUANTITY : '||L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
924: oe_debug_pub.add( 'ITEM TYPE CODE : '||L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
925: oe_debug_pub.add( 'OPERATION : '||L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
926: oe_debug_pub.add( 'LINE SET ID : '||L_OPTION_LINE_TBL ( I ) .LINE_SET_ID , 1 ) ;
927: END IF;
928: END LOOP;
921: FOR I in 1..l_option_line_tbl.count LOOP
922: IF l_debug_level > 0 THEN
923: oe_debug_pub.add( 'ORDERED QUANTITY : '||L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
924: oe_debug_pub.add( 'ITEM TYPE CODE : '||L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
925: oe_debug_pub.add( 'OPERATION : '||L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
926: oe_debug_pub.add( 'LINE SET ID : '||L_OPTION_LINE_TBL ( I ) .LINE_SET_ID , 1 ) ;
927: END IF;
928: END LOOP;
929: -- Get Remanant shipped
922: IF l_debug_level > 0 THEN
923: oe_debug_pub.add( 'ORDERED QUANTITY : '||L_OPTION_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
924: oe_debug_pub.add( 'ITEM TYPE CODE : '||L_OPTION_LINE_TBL ( I ) .ITEM_TYPE_CODE , 1 ) ;
925: oe_debug_pub.add( 'OPERATION : '||L_OPTION_LINE_TBL ( I ) .OPERATION , 1 ) ;
926: oe_debug_pub.add( 'LINE SET ID : '||L_OPTION_LINE_TBL ( I ) .LINE_SET_ID , 1 ) ;
927: END IF;
928: END LOOP;
929: -- Get Remanant shipped
930: l_parent_line := l_line_rec;
944: END IF;
945: l_rem_shp_top_model_line_id := x_line_tbl(1).line_id;
946: ELSE -- Gmaxmodel
947: IF l_debug_level > 0 THEN
948: oe_debug_pub.add( 'PARENT ORDERED QUANTITY : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
949: END IF;
950: l_parent_line.ordered_quantity := p_line_tbl(1).shipped_quantity - g_max_model ;
951: IF l_debug_level > 0 THEN
952: oe_debug_pub.add( 'PARENT ORDERED QUANTITY : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
948: oe_debug_pub.add( 'PARENT ORDERED QUANTITY : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
949: END IF;
950: l_parent_line.ordered_quantity := p_line_tbl(1).shipped_quantity - g_max_model ;
951: IF l_debug_level > 0 THEN
952: oe_debug_pub.add( 'PARENT ORDERED QUANTITY : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
953: END IF;
954: IF l_parent_line.ordered_quantity > 0 THEN
955: l_parent_line.operation := oe_globals.g_opr_create;
956: l_parent_line.split_by := 'SYSTEM';
980: -- Remanant Unshipped Model
981: l_parent_line := l_line_rec;
982: l_parent_line.ordered_quantity := l_line_rec.ordered_quantity - p_line_tbl(1).shipped_quantity - g_min_model;
983: IF l_debug_level > 0 THEN
984: oe_debug_pub.add('Parent line unshipped qty 1 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
985: oe_debug_pub.add('This line unshipped qty 2 : ' || L_LINE_REC.ORDERED_QUANTITY ) ;
986: oe_debug_pub.add('unshipped qty 3 : ' || X_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) ;
987: END IF;
988: IF l_parent_line.ordered_quantity > 0 THEN
981: l_parent_line := l_line_rec;
982: l_parent_line.ordered_quantity := l_line_rec.ordered_quantity - p_line_tbl(1).shipped_quantity - g_min_model;
983: IF l_debug_level > 0 THEN
984: oe_debug_pub.add('Parent line unshipped qty 1 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
985: oe_debug_pub.add('This line unshipped qty 2 : ' || L_LINE_REC.ORDERED_QUANTITY ) ;
986: oe_debug_pub.add('unshipped qty 3 : ' || X_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) ;
987: END IF;
988: IF l_parent_line.ordered_quantity > 0 THEN
989: l_parent_line.operation := oe_globals.g_opr_create;
982: l_parent_line.ordered_quantity := l_line_rec.ordered_quantity - p_line_tbl(1).shipped_quantity - g_min_model;
983: IF l_debug_level > 0 THEN
984: oe_debug_pub.add('Parent line unshipped qty 1 : ' || L_PARENT_LINE.ORDERED_QUANTITY ) ;
985: oe_debug_pub.add('This line unshipped qty 2 : ' || L_LINE_REC.ORDERED_QUANTITY ) ;
986: oe_debug_pub.add('unshipped qty 3 : ' || X_LINE_TBL ( 1 ) .ORDERED_QUANTITY ) ;
987: END IF;
988: IF l_parent_line.ordered_quantity > 0 THEN
989: l_parent_line.operation := oe_globals.g_opr_create;
990: l_parent_line.split_by := 'SYSTEM';
1041: l_option_line_tbl(l_option_count).ordered_quantity :=
1042: p_line_tbl(I).shipped_quantity-g_max_model * l_model_ratio;
1043: l_option_line_tbl(l_option_count).shipped_quantity :=l_option_line_tbl(l_option_count).ordered_quantity;
1044: IF l_debug_level > 0 THEN
1045: oe_debug_pub.add( 'RATIO : ' ||L_MODEL_RATIO , 1 ) ;
1046: oe_debug_pub.add( 'LOOP COUNTER : ' ||I , 1 ) ;
1047: oe_debug_pub.add( 'ORDERED QUANTITY ON REMNANT : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1048: oe_debug_pub.add( 'ORDERED QUTY 2 : ' || L_OPTION_LINE_TBL ( L_OPTION_COUNT ) .ORDERED_QUANTITY ) ;
1049: END IF;
1042: p_line_tbl(I).shipped_quantity-g_max_model * l_model_ratio;
1043: l_option_line_tbl(l_option_count).shipped_quantity :=l_option_line_tbl(l_option_count).ordered_quantity;
1044: IF l_debug_level > 0 THEN
1045: oe_debug_pub.add( 'RATIO : ' ||L_MODEL_RATIO , 1 ) ;
1046: oe_debug_pub.add( 'LOOP COUNTER : ' ||I , 1 ) ;
1047: oe_debug_pub.add( 'ORDERED QUANTITY ON REMNANT : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1048: oe_debug_pub.add( 'ORDERED QUTY 2 : ' || L_OPTION_LINE_TBL ( L_OPTION_COUNT ) .ORDERED_QUANTITY ) ;
1049: END IF;
1050: IF l_top_model_line_id is not null then
1043: l_option_line_tbl(l_option_count).shipped_quantity :=l_option_line_tbl(l_option_count).ordered_quantity;
1044: IF l_debug_level > 0 THEN
1045: oe_debug_pub.add( 'RATIO : ' ||L_MODEL_RATIO , 1 ) ;
1046: oe_debug_pub.add( 'LOOP COUNTER : ' ||I , 1 ) ;
1047: oe_debug_pub.add( 'ORDERED QUANTITY ON REMNANT : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1048: oe_debug_pub.add( 'ORDERED QUTY 2 : ' || L_OPTION_LINE_TBL ( L_OPTION_COUNT ) .ORDERED_QUANTITY ) ;
1049: END IF;
1050: IF l_top_model_line_id is not null then
1051: l_option_line_tbl(l_option_count).top_model_line_id :=l_top_model_line_id;
1044: IF l_debug_level > 0 THEN
1045: oe_debug_pub.add( 'RATIO : ' ||L_MODEL_RATIO , 1 ) ;
1046: oe_debug_pub.add( 'LOOP COUNTER : ' ||I , 1 ) ;
1047: oe_debug_pub.add( 'ORDERED QUANTITY ON REMNANT : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY , 1 ) ;
1048: oe_debug_pub.add( 'ORDERED QUTY 2 : ' || L_OPTION_LINE_TBL ( L_OPTION_COUNT ) .ORDERED_QUANTITY ) ;
1049: END IF;
1050: IF l_top_model_line_id is not null then
1051: l_option_line_tbl(l_option_count).top_model_line_id :=l_top_model_line_id;
1052: END IF;
1083: END IF;
1084: END LOOP;
1085: l_update_quantity := l_option_line.ordered_quantity - g_min_model * l_model_ratio - l_insert_quantity ;
1086: IF l_debug_level > 0 THEN
1087: oe_debug_pub.add( 'UPDATE QUANTITY : ' || L_UPDATE_QUANTITY ) ;
1088: oe_debug_pub.add( 'OPTION LINE ORDERED QUANTITY : ' || L_OPTION_LINE.ORDERED_QUANTITY ) ;
1089: oe_debug_pub.add( 'RATIO : ' || G_MIN_MODEL * L_MODEL_RATIO ) ;
1090: oe_debug_pub.add( 'INSERT QUANTITY : ' || L_INSERT_QUANTITY ) ;
1091: END IF;
1084: END LOOP;
1085: l_update_quantity := l_option_line.ordered_quantity - g_min_model * l_model_ratio - l_insert_quantity ;
1086: IF l_debug_level > 0 THEN
1087: oe_debug_pub.add( 'UPDATE QUANTITY : ' || L_UPDATE_QUANTITY ) ;
1088: oe_debug_pub.add( 'OPTION LINE ORDERED QUANTITY : ' || L_OPTION_LINE.ORDERED_QUANTITY ) ;
1089: oe_debug_pub.add( 'RATIO : ' || G_MIN_MODEL * L_MODEL_RATIO ) ;
1090: oe_debug_pub.add( 'INSERT QUANTITY : ' || L_INSERT_QUANTITY ) ;
1091: END IF;
1092: IF l_update_quantity > 0 THEN
1085: l_update_quantity := l_option_line.ordered_quantity - g_min_model * l_model_ratio - l_insert_quantity ;
1086: IF l_debug_level > 0 THEN
1087: oe_debug_pub.add( 'UPDATE QUANTITY : ' || L_UPDATE_QUANTITY ) ;
1088: oe_debug_pub.add( 'OPTION LINE ORDERED QUANTITY : ' || L_OPTION_LINE.ORDERED_QUANTITY ) ;
1089: oe_debug_pub.add( 'RATIO : ' || G_MIN_MODEL * L_MODEL_RATIO ) ;
1090: oe_debug_pub.add( 'INSERT QUANTITY : ' || L_INSERT_QUANTITY ) ;
1091: END IF;
1092: IF l_update_quantity > 0 THEN
1093: l_option_count := l_option_count + 1;
1086: IF l_debug_level > 0 THEN
1087: oe_debug_pub.add( 'UPDATE QUANTITY : ' || L_UPDATE_QUANTITY ) ;
1088: oe_debug_pub.add( 'OPTION LINE ORDERED QUANTITY : ' || L_OPTION_LINE.ORDERED_QUANTITY ) ;
1089: oe_debug_pub.add( 'RATIO : ' || G_MIN_MODEL * L_MODEL_RATIO ) ;
1090: oe_debug_pub.add( 'INSERT QUANTITY : ' || L_INSERT_QUANTITY ) ;
1091: END IF;
1092: IF l_update_quantity > 0 THEN
1093: l_option_count := l_option_count + 1;
1094: IF NOT option_updated AND g_max_model = 0 THEN
1125: END IF; -- Update Quantity
1126: option_updated := false;
1127: END LOOP;
1128: IF l_debug_level > 0 THEN
1129: oe_debug_pub.add( 'COUNT IN X_LINE_TBL' || X_LINE_TBL.COUNT , 1 ) ;
1130: END IF;
1131: l_option_count := x_line_tbl.count + 1;
1132: FOR I in 1..l_option_line_tbl.count LOOP
1133: x_line_tbl(l_option_count) := l_option_line_tbl(I);
1133: x_line_tbl(l_option_count) := l_option_line_tbl(I);
1134: l_option_count := l_option_count + 1;
1135: END LOOP;
1136: IF l_debug_level > 0 THEN
1137: oe_debug_pub.add( 'FINAL OUT TABLE' ) ;
1138: END IF;
1139: FOR I in 1..x_line_tbl.count LOOP
1140: IF l_debug_level > 0 THEN
1141: oe_debug_pub.add( 'LINE ID : '|| X_LINE_TBL ( I ) .LINE_ID ) ;
1137: oe_debug_pub.add( 'FINAL OUT TABLE' ) ;
1138: END IF;
1139: FOR I in 1..x_line_tbl.count LOOP
1140: IF l_debug_level > 0 THEN
1141: oe_debug_pub.add( 'LINE ID : '|| X_LINE_TBL ( I ) .LINE_ID ) ;
1142: oe_debug_pub.add( 'ORDERED QUANTITY : '||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1143: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1144: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1145: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1138: END IF;
1139: FOR I in 1..x_line_tbl.count LOOP
1140: IF l_debug_level > 0 THEN
1141: oe_debug_pub.add( 'LINE ID : '|| X_LINE_TBL ( I ) .LINE_ID ) ;
1142: oe_debug_pub.add( 'ORDERED QUANTITY : '||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1143: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1144: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1145: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1146: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1139: FOR I in 1..x_line_tbl.count LOOP
1140: IF l_debug_level > 0 THEN
1141: oe_debug_pub.add( 'LINE ID : '|| X_LINE_TBL ( I ) .LINE_ID ) ;
1142: oe_debug_pub.add( 'ORDERED QUANTITY : '||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1143: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1144: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1145: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1146: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1147: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1140: IF l_debug_level > 0 THEN
1141: oe_debug_pub.add( 'LINE ID : '|| X_LINE_TBL ( I ) .LINE_ID ) ;
1142: oe_debug_pub.add( 'ORDERED QUANTITY : '||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1143: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1144: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1145: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1146: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1147: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1148: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1141: oe_debug_pub.add( 'LINE ID : '|| X_LINE_TBL ( I ) .LINE_ID ) ;
1142: oe_debug_pub.add( 'ORDERED QUANTITY : '||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1143: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1144: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1145: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1146: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1147: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1148: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1149: oe_debug_pub.add( 'TOP MODEL LINE ID : '||X_LINE_TBL ( I ) .TOP_MODEL_LINE_ID ) ;
1142: oe_debug_pub.add( 'ORDERED QUANTITY : '||X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1143: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1144: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1145: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1146: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1147: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1148: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1149: oe_debug_pub.add( 'TOP MODEL LINE ID : '||X_LINE_TBL ( I ) .TOP_MODEL_LINE_ID ) ;
1150: END IF;
1143: oe_debug_pub.add( 'ITEM TYPE CODE : '||X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1144: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1145: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1146: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1147: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1148: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1149: oe_debug_pub.add( 'TOP MODEL LINE ID : '||X_LINE_TBL ( I ) .TOP_MODEL_LINE_ID ) ;
1150: END IF;
1151: END LOOP;
1144: oe_debug_pub.add( 'OPERATION : ' ||X_LINE_TBL ( I ) .OPERATION ) ;
1145: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1146: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1147: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1148: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1149: oe_debug_pub.add( 'TOP MODEL LINE ID : '||X_LINE_TBL ( I ) .TOP_MODEL_LINE_ID ) ;
1150: END IF;
1151: END LOOP;
1152: EXCEPTION
1145: oe_debug_pub.add( 'LINE SET ID : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1146: oe_debug_pub.add( 'SHIPPED QUANTITY : '|| X_LINE_TBL ( I ) .SHIPPED_QUANTITY ) ;
1147: oe_debug_pub.add( 'REMNANT FLAG : '||X_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1148: oe_debug_pub.add( 'SPLIT FROM LINE ID : '||X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1149: oe_debug_pub.add( 'TOP MODEL LINE ID : '||X_LINE_TBL ( I ) .TOP_MODEL_LINE_ID ) ;
1150: END IF;
1151: END LOOP;
1152: EXCEPTION
1153: WHEN OTHERS THEN
1192: l_map_count NUMBER := 0;
1193: Type Optioncur IS REF CURSOR;
1194: Optrec Optioncur;
1195: --
1196: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1197: --
1198: BEGIN
1199: x_line_tbl := p_line_tbl;
1200: IF l_debug_level > 0 THEN
1197: --
1198: BEGIN
1199: x_line_tbl := p_line_tbl;
1200: IF l_debug_level > 0 THEN
1201: oe_debug_pub.add( 'ENTER CASCADE SPLITS ' , 1 ) ;
1202: END IF;
1203: l_line_id := p_line_tbl(p_index).line_id;
1204: 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
1205: OPEN optrec FOR
1227: FETCH Optrec INTO optionrec;
1228: EXIT WHEN optrec%NOTFOUND;
1229: l_model_ratio := optionrec.ordered_quantity/ parent_ordered_quantity;
1230: IF l_debug_level > 0 THEN
1231: oe_debug_pub.add( 'MODEL RATIO : ' || L_MODEL_RATIO , 1 ) ;
1232: END IF;
1233: IF l_debug_level > 0 THEN
1234: oe_debug_pub.add( 'ORDERED QUANTITY RATIO : ' || OPTIONREC.ORDERED_QUANTITY , 1 ) ;
1235: END IF;
1230: IF l_debug_level > 0 THEN
1231: oe_debug_pub.add( 'MODEL RATIO : ' || L_MODEL_RATIO , 1 ) ;
1232: END IF;
1233: IF l_debug_level > 0 THEN
1234: oe_debug_pub.add( 'ORDERED QUANTITY RATIO : ' || OPTIONREC.ORDERED_QUANTITY , 1 ) ;
1235: END IF;
1236: oe_line_util.query_row(p_line_id => optionrec.line_id, x_line_rec => l_option_line);
1237: l_line_scredit_tbl.delete;
1238: oe_line_scredit_util.query_rows( p_line_id => optionrec.line_id, x_line_scredit_tbl => l_line_scredit_tbl);
1239: l_option_line_tbl(l_option_count) := l_option_line;
1240: l_option_line_tbl(l_option_count).line_id := optionrec.line_id;
1241: l_option_line_tbl(l_option_count).ordered_quantity := p_line_tbl(p_index).ordered_quantity * l_model_ratio;
1242: IF l_debug_level > 0 THEN
1243: oe_debug_pub.add( 'RATIO : ' || P_LINE_TBL ( P_INDEX ) .ORDERED_QUANTITY ) ;
1244: END IF;
1245: l_option_line_tbl(l_option_count).operation := oe_globals.g_opr_update;
1246: l_option_line_tbl(l_option_count).split_action_code := 'SPLIT';
1247: l_option_line_tbl(l_option_count).split_by := p_line_tbl(p_index).split_by;
1249: /* Populate Line set id if set id is not already populated bug - 2103004 */
1250:
1251: IF ( l_option_line_tbl(l_option_count).line_set_id IS NULL ) THEN
1252: IF l_debug_level > 0 THEN
1253: oe_debug_pub.add( 'CREATING LINE SETS : ' , 1 ) ;
1254: END IF;
1255: Oe_Set_Util.Create_Line_Set(p_x_line_rec => l_option_line_tbl(l_option_count));
1256: END IF;
1257: l_set_id := l_option_line_tbl(l_option_count).line_Set_id;
1263: l_option_line_tbl(l_option_count) := l_option_line;
1264: l_option_line_tbl(l_option_count).line_id := fnd_api.g_miss_num;
1265: l_option_line_tbl(l_option_count).ordered_quantity := g_split_line_tbl(I).quantity * l_model_ratio;
1266: IF l_debug_level > 0 THEN
1267: oe_debug_pub.add( 'RATIO 3 : ' || G_SPLIT_LINE_TBL ( I ) .QUANTITY , 1 ) ;
1268: END IF;
1269: l_option_line_tbl(l_option_count).operation := oe_globals.g_opr_create;
1270: l_option_line_tbl(l_option_count).split_from_line_id := optionrec.line_id;
1271: l_option_line_tbl(l_option_count).split_by := p_line_tbl(p_index).split_by;
1291: l_split_line_tbl(l_split_count).line_id := l_option_line_tbl(l_option_count).line_id;
1292: l_split_line_tbl(l_split_count).split_from_line_id := l_option_line_tbl(l_option_count).split_from_line_id;
1293: -- Copy Credits for this option
1294: IF l_debug_level > 0 THEN
1295: oe_debug_pub.add( 'COPYING SALES CREDITS TO NEW OPTION ' , 1 ) ;
1296: END IF;
1297: FOR SCRD_REC IN 1..l_line_Scredit_tbl.count LOOP
1298: l_scredit_count := l_scredit_count + 1;
1299: l_line_scredit_temp_tbl(l_scredit_count) := l_line_scredit_tbl(SCRD_REC);
1301: l_line_scredit_temp_tbl(l_scredit_count).Operation := OE_GLOBALS.G_OPR_CREATE;
1302: l_line_scredit_temp_tbl(l_scredit_count).line_id := l_option_line_tbl(l_option_count).line_id;
1303: END LOOP;
1304: IF l_debug_level > 0 THEN
1305: oe_debug_pub.add( 'DONE COPYING SALES CREDITS TO NEW OPTION ' , 1 ) ;
1306: END IF;
1307: l_option_count := l_option_count + 1;
1308: END LOOP;
1309: Get_Service_Lines( p_line_tbl => x_line_tbl,
1313: x_line_tbl := l_line_out_tbl; -- Swapping can be fixed, opportunity to optimize
1314: l_split_line_tbl.delete;
1315: l_split_count := 0;
1316: IF l_debug_level > 0 THEN
1317: oe_debug_pub.add( 'AFTER OPTION PROCESSING' , 1 ) ;
1318: END IF;
1319: FOR I in 1..x_line_tbl.count LOOP
1320: IF l_debug_level > 0 THEN
1321: oe_debug_pub.add( 'QUANTITY : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1317: oe_debug_pub.add( 'AFTER OPTION PROCESSING' , 1 ) ;
1318: END IF;
1319: FOR I in 1..x_line_tbl.count LOOP
1320: IF l_debug_level > 0 THEN
1321: oe_debug_pub.add( 'QUANTITY : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1322: END IF;
1323: IF l_debug_level > 0 THEN
1324: oe_debug_pub.add( 'OPERATION : ' || X_LINE_TBL ( I ) .OPERATION ) ;
1325: END IF;
1320: IF l_debug_level > 0 THEN
1321: oe_debug_pub.add( 'QUANTITY : ' || X_LINE_TBL ( I ) .ORDERED_QUANTITY ) ;
1322: END IF;
1323: IF l_debug_level > 0 THEN
1324: oe_debug_pub.add( 'OPERATION : ' || X_LINE_TBL ( I ) .OPERATION ) ;
1325: END IF;
1326: IF l_debug_level > 0 THEN
1327: oe_debug_pub.add( 'ITEM : ' || X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1328: END IF;
1323: IF l_debug_level > 0 THEN
1324: oe_debug_pub.add( 'OPERATION : ' || X_LINE_TBL ( I ) .OPERATION ) ;
1325: END IF;
1326: IF l_debug_level > 0 THEN
1327: oe_debug_pub.add( 'ITEM : ' || X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1328: END IF;
1329: IF l_debug_level > 0 THEN
1330: oe_debug_pub.add( 'LINE : ' || X_LINE_TBL ( I ) .LINE_ID ) ;
1331: END IF;
1326: IF l_debug_level > 0 THEN
1327: oe_debug_pub.add( 'ITEM : ' || X_LINE_TBL ( I ) .ITEM_TYPE_CODE ) ;
1328: END IF;
1329: IF l_debug_level > 0 THEN
1330: oe_debug_pub.add( 'LINE : ' || X_LINE_TBL ( I ) .LINE_ID ) ;
1331: END IF;
1332: IF l_debug_level > 0 THEN
1333: oe_debug_pub.add( 'SPLIT LINE : ' || X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1334: END IF;
1329: IF l_debug_level > 0 THEN
1330: oe_debug_pub.add( 'LINE : ' || X_LINE_TBL ( I ) .LINE_ID ) ;
1331: END IF;
1332: IF l_debug_level > 0 THEN
1333: oe_debug_pub.add( 'SPLIT LINE : ' || X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1334: END IF;
1335: IF l_debug_level > 0 THEN
1336: oe_debug_pub.add( 'LINE SET : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1337: END IF;
1332: IF l_debug_level > 0 THEN
1333: oe_debug_pub.add( 'SPLIT LINE : ' || X_LINE_TBL ( I ) .SPLIT_FROM_LINE_ID ) ;
1334: END IF;
1335: IF l_debug_level > 0 THEN
1336: oe_debug_pub.add( 'LINE SET : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1337: END IF;
1338: IF l_debug_level > 0 THEN
1339: oe_debug_pub.add( X_LINE_TBL ( I ) .SPLIT_ACTION_CODE ) ;
1340: END IF;
1335: IF l_debug_level > 0 THEN
1336: oe_debug_pub.add( 'LINE SET : ' || X_LINE_TBL ( I ) .LINE_SET_ID ) ;
1337: END IF;
1338: IF l_debug_level > 0 THEN
1339: oe_debug_pub.add( X_LINE_TBL ( I ) .SPLIT_ACTION_CODE ) ;
1340: END IF;
1341: END LOOP;
1342: END LOOP;
1343: CLOSE optrec;
1347: l_option_count := l_option_count + 1;
1348: END lOOP;
1349: -- Populate Credits into out table
1350: IF l_debug_level > 0 THEN
1351: oe_debug_pub.add( 'POPULATING SALES CREDIT OUT TABLE...' , 1 ) ;
1352: END IF;
1353: IF l_line_scredit_temp_tbl.count > 0 THEN
1354: l_scredit_count := x_line_scredit_tbl.count + 1;
1355: FOR I in 1..l_line_scredit_temp_tbl.count LOOP
1357: l_scredit_count := l_scredit_count + 1;
1358: END LOOP;
1359: END IF;
1360: IF l_debug_level > 0 THEN
1361: oe_debug_pub.add( 'EXIT CASCADE PROPORTIONAL SPLIT' , 1 ) ;
1362: END IF;
1363: EXCEPTION
1364: WHEN OTHERS THEN
1365: IF l_debug_level > 0 THEN
1362: END IF;
1363: EXCEPTION
1364: WHEN OTHERS THEN
1365: IF l_debug_level > 0 THEN
1366: oe_debug_pub.add( 'ERROR IN CASCADE PROPORTIONAL SPLIT ..'||SQLERRM , 1 ) ;
1367: END IF;
1368: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1369: OE_MSG_PUB.Add_Exc_Msg (G_PKG_NAME , 'Cascade_Proportional_Split');
1370: END IF;
1381: g_multiple_shipments VARCHAR2(3);
1382: l_code_level VARCHAR2(30);
1383: l_shipment_number NUMBER;
1384: --
1385: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1386: --
1387: BEGIN
1388: fnd_profile.get('ONT_IMP_MULTIPLE_SHIPMENTS', g_multiple_shipments);
1389: g_multiple_shipments := nvl(g_multiple_shipments, 'NO');
1387: BEGIN
1388: fnd_profile.get('ONT_IMP_MULTIPLE_SHIPMENTS', g_multiple_shipments);
1389: g_multiple_shipments := nvl(g_multiple_shipments, 'NO');
1390: IF l_debug_level > 0 THEN
1391: oe_debug_pub.add( 'G_MULTIPLE_SHIPMENTS = '||G_MULTIPLE_SHIPMENTS , 5 ) ;
1392: END IF;
1393: l_code_level := OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL;
1394: IF l_debug_level > 0 THEN
1395: oe_debug_pub.add( 'L_CODE_LEVEL = '||L_CODE_LEVEL , 5 ) ;
1391: oe_debug_pub.add( 'G_MULTIPLE_SHIPMENTS = '||G_MULTIPLE_SHIPMENTS , 5 ) ;
1392: END IF;
1393: l_code_level := OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL;
1394: IF l_debug_level > 0 THEN
1395: oe_debug_pub.add( 'L_CODE_LEVEL = '||L_CODE_LEVEL , 5 ) ;
1396: END IF;
1397: IF oe_split_util.g_sch_recursion = 'FALSE' THEN
1398: IF l_debug_level > 0 THEN
1399: oe_debug_pub.add( 'ENTER DEFAULT ATTRIBUTES FOR SPLIT' ) ;
1395: oe_debug_pub.add( 'L_CODE_LEVEL = '||L_CODE_LEVEL , 5 ) ;
1396: END IF;
1397: IF oe_split_util.g_sch_recursion = 'FALSE' THEN
1398: IF l_debug_level > 0 THEN
1399: oe_debug_pub.add( 'ENTER DEFAULT ATTRIBUTES FOR SPLIT' ) ;
1400: END IF;
1401: IF l_debug_level > 0 THEN
1402: oe_debug_pub.add( 'LINEID:'||P_X_LINE_REC.LINE_ID ) ;
1403: END IF;
1398: IF l_debug_level > 0 THEN
1399: oe_debug_pub.add( 'ENTER DEFAULT ATTRIBUTES FOR SPLIT' ) ;
1400: END IF;
1401: IF l_debug_level > 0 THEN
1402: oe_debug_pub.add( 'LINEID:'||P_X_LINE_REC.LINE_ID ) ;
1403: END IF;
1404: IF l_debug_level > 0 THEN
1405: oe_debug_pub.add( 'SPLITLINEID:'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1406: END IF;
1401: IF l_debug_level > 0 THEN
1402: oe_debug_pub.add( 'LINEID:'||P_X_LINE_REC.LINE_ID ) ;
1403: END IF;
1404: IF l_debug_level > 0 THEN
1405: oe_debug_pub.add( 'SPLITLINEID:'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1406: END IF;
1407: IF (p_x_line_rec.operation = oe_globals.g_opr_create and
1408: (p_x_line_rec.split_from_line_id IS NOT NULL AND
1409: p_x_line_rec.split_from_line_id <> FND_API.G_MISS_NUM) AND
1409: p_x_line_rec.split_from_line_id <> FND_API.G_MISS_NUM) AND
1410: (p_x_line_rec.line_id IS NULL OR
1411: p_x_line_rec.line_id = FND_API.G_MISS_NUM)) THEN
1412: IF l_debug_level > 0 THEN
1413: oe_debug_pub.add( 'ENTER INTO DEFAULTING SPLITS' ) ;
1414: END IF;
1415: oe_line_util.query_row(p_line_id => p_x_line_rec.split_from_line_id,
1416: x_line_rec => l_line_rec);
1417: l_line_rec.line_id := OE_Default_Line.get_Line;
1431: p_x_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR) THEN
1432:
1433: l_line_rec.orig_sys_line_ref := 'OE_ORDER_LINES_ALL'||l_line_rec.line_id;
1434: ELSE
1435: OE_DEBUG_PUB.add('Orig Sys Line Ref was populated',1);
1436: l_line_rec.orig_sys_line_ref := p_x_line_rec.orig_sys_line_ref;
1437: END IF;
1438:
1439: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
1445: p_x_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR) THEN
1446:
1447: l_line_rec.orig_sys_line_ref := 'OE_ORDER_LINES_ALL'||l_line_rec.line_id;
1448: ELSE
1449: OE_DEBUG_PUB.add('Orig Sys Line Ref was populated',1);
1450: l_line_rec.orig_sys_line_ref := p_x_line_rec.orig_sys_line_ref;
1451: END IF;
1452:
1453:
1453:
1454: END IF;
1455: --l_line_rec.shipment_number := get_shipment_number(l_line_rec);
1456: IF l_debug_level > 0 THEN
1457: oe_debug_pub.add( 'SHIPMENT_NUMBER:'||L_LINE_REC.SHIPMENT_NUMBER ) ;
1458: END IF;
1459: l_line_rec.split_from_line_id := p_x_line_rec.split_from_line_id;
1460: l_line_rec.ordered_quantity := p_x_line_rec.ordered_quantity;
1461: l_line_rec.ordered_quantity2 := p_x_line_rec.ordered_quantity2; -- OPM B1661023 04/02/01
1515: ELSIF (l_line_rec.line_id IS NOT NULL AND
1516: l_line_rec.line_id <> FND_API.G_MISS_NUM AND
1517: l_line_rec.operation = oe_globals.g_opr_create) THEN
1518: IF l_debug_level > 0 THEN
1519: oe_debug_pub.add( 'LINE ID :'||P_X_LINE_REC.LINE_ID ) ;
1520: END IF;
1521: IF l_debug_level > 0 THEN
1522: oe_debug_pub.add( 'SPLIT FROM LINE ID :'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1523: END IF;
1518: IF l_debug_level > 0 THEN
1519: oe_debug_pub.add( 'LINE ID :'||P_X_LINE_REC.LINE_ID ) ;
1520: END IF;
1521: IF l_debug_level > 0 THEN
1522: oe_debug_pub.add( 'SPLIT FROM LINE ID :'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1523: END IF;
1524: IF l_debug_level > 0 THEN
1525: oe_debug_pub.add( 'TOP MODEL LINE ID : '||P_X_LINE_REC.TOP_MODEL_LINE_ID ) ;
1526: END IF;
1521: IF l_debug_level > 0 THEN
1522: oe_debug_pub.add( 'SPLIT FROM LINE ID :'||P_X_LINE_REC.SPLIT_FROM_LINE_ID ) ;
1523: END IF;
1524: IF l_debug_level > 0 THEN
1525: oe_debug_pub.add( 'TOP MODEL LINE ID : '||P_X_LINE_REC.TOP_MODEL_LINE_ID ) ;
1526: END IF;
1527: IF p_x_line_rec.top_model_line_id = p_x_line_rec.line_id THEN
1528: l_line_rec.top_model_line_id := NULL;
1529: END IF;
1541: p_x_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR) THEN
1542:
1543: l_line_rec.orig_sys_line_ref := 'OE_ORDER_LINES_ALL'||l_line_rec.line_id;
1544: ELSE
1545: OE_DEBUG_PUB.add('Orig Sys Line Ref was populated',1);
1546: l_line_rec.orig_sys_line_ref := p_x_line_rec.orig_sys_line_ref;
1547: END IF;
1548: ELSIF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110508' AND
1549: g_multiple_shipments = 'NO' AND
1554: p_x_line_rec.orig_sys_line_ref = FND_API.G_MISS_CHAR) THEN
1555:
1556: l_line_rec.orig_sys_line_ref := 'OE_ORDER_LINES_ALL'||l_line_rec.line_id;
1557: ELSE
1558: OE_DEBUG_PUB.add('Orig Sys Line Ref was populated',1);
1559: l_line_rec.orig_sys_line_ref := p_x_line_rec.orig_sys_line_ref;
1560: END IF;
1561:
1562: END IF;
1578: (p_x_line_rec IN OUT NOCOPY OE_Order_PUB.Line_Rec_Type
1579: ,p_old_line_rec IN OE_Order_PUB.Line_Rec_Type
1580: ) IS
1581: --
1582: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1583: --
1584: BEGIN
1585: NULL;
1586: EXCEPTION
1614: last_count NUMBER := 0;
1615: l_return_status VARCHAR2(30);
1616: lfirst PLS_INTEGER;
1617: --
1618: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1619: --
1620: BEGIN
1621: IF l_debug_level > 0 THEN
1622: oe_debug_pub.add( 'ENTER CHECK SPLIT COURSE' ) ;
1618: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1619: --
1620: BEGIN
1621: IF l_debug_level > 0 THEN
1622: oe_debug_pub.add( 'ENTER CHECK SPLIT COURSE' ) ;
1623: END IF;
1624: l_line_tbl := p_x_line_tbl;
1625: IF oe_split_util.g_sch_recursion = 'FALSE' AND NOT g_non_prop_split THEN
1626: -- Loop Through Lines Table to find Split Action
1638: --While i is not null Loop
1639:
1640: IF l_debug_level > 0
1641: THEN
1642: oe_debug_pub.add('OUT side the LOOP ORDERED QUANTITY IS => '|| l_line_tbl(I).ordered_quantity
1643: || ' Count : '||I);
1644: oe_debug_pub.add('OUT side the LOOP ORD QTY IS :'|| l_line_tbl(I).ordered_quantity || ' Count : '
1645: ||I ||' Operation : '||l_line_tbl(I).operation);
1646: end if;
1640: IF l_debug_level > 0
1641: THEN
1642: oe_debug_pub.add('OUT side the LOOP ORDERED QUANTITY IS => '|| l_line_tbl(I).ordered_quantity
1643: || ' Count : '||I);
1644: oe_debug_pub.add('OUT side the LOOP ORD QTY IS :'|| l_line_tbl(I).ordered_quantity || ' Count : '
1645: ||I ||' Operation : '||l_line_tbl(I).operation);
1646: end if;
1647: IF l_line_tbl(I).split_action_code = 'SPLIT' AND
1648: l_line_tbl(I).operation = OE_GLOBALS.G_OPR_UPDATE
1653: */
1654: IF l_line_tbl(I).ordered_quantity = 0
1655: THEN
1656: IF l_debug_level > 0 THEN
1657: oe_debug_pub.add( 'ORDERED QUANTITY IS INVALID with UPDATE OPER => '|| l_line_tbl(I).ordered_quantity ) ;
1658: END IF;
1659: FND_MESSAGE.SET_NAME('ONT','OE_SPLIT_WITH_ZERO_QTY');
1660: FND_MESSAGE.SET_TOKEN('QUANTITY',L_line_tbl(I).ordered_quantity);
1661: OE_MSG_PUB.ADD;
1659: FND_MESSAGE.SET_NAME('ONT','OE_SPLIT_WITH_ZERO_QTY');
1660: FND_MESSAGE.SET_TOKEN('QUANTITY',L_line_tbl(I).ordered_quantity);
1661: OE_MSG_PUB.ADD;
1662: IF l_debug_level > 0 THEN
1663: oe_debug_pub.add( 'SPLIT- NOT ALLOWED TO UPDATE WITH QUANTITY ZERO' ) ;
1664: END IF;
1665: RAISE FND_API.G_EXC_ERROR;
1666: END IF;
1667: oe_line_util.query_row(p_line_id => l_line_tbl(I).line_id,
1667: oe_line_util.query_row(p_line_id => l_line_tbl(I).line_id,
1668: x_line_rec => l_line_rec);
1669: IF l_debug_level > 0
1670: THEN
1671: oe_debug_pub.add( 'ITEM TYPE CODE : '|| L_LINE_REC.ITEM_TYPE_CODE ) ;
1672: END IF;
1673: IF nvl(L_line_rec.model_remnant_flag,'N') <> 'Y'
1674: THEN
1675: IF (L_line_rec.item_type_code <> 'STANDARD' AND
1677: L_line_rec.Item_type_code <> 'KIT' AND
1678: NOT (nvl(L_line_rec.ato_line_id,-99) = l_line_rec.line_id AND L_line_rec.item_type_code = 'CLASS' ))
1679: THEN
1680: IF l_debug_level > 0 THEN
1681: oe_debug_pub.add( 'ITEM TYPE CODE INVALID => '|| L_LINE_REC.ITEM_TYPE_CODE ) ;
1682: END IF;
1683: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SPLIT_OPR');
1684: FND_MESSAGE.SET_TOKEN('ITEMTYPE',L_line_rec.item_type_code);
1685: OE_MSG_PUB.ADD;
1683: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SPLIT_OPR');
1684: FND_MESSAGE.SET_TOKEN('ITEMTYPE',L_line_rec.item_type_code);
1685: OE_MSG_PUB.ADD;
1686: IF l_debug_level > 0 THEN
1687: oe_debug_pub.add( 'SPLIT- NOT ALLOWED THIS ITEMTYPE' ) ;
1688: END IF;
1689: RAISE FND_API.G_EXC_ERROR;
1690: END IF;
1691: END IF;
1698: IF ( l_line_rec.line_set_id IS NULL )
1699: THEN
1700: --l_line_tbl(I).line_set_id <> FND_API.G_MISS_NUM) THEN
1701: IF l_debug_level > 0 THEN
1702: oe_debug_pub.add( 'ENTER CREATE LINE SET:' ) ;
1703: END IF;
1704: Oe_Set_Util.Create_Line_Set(p_x_line_rec => l_line_rec);
1705: l_line_tbl(I).line_set_id := l_line_rec.line_set_id;
1706: oe_lot_serial_util.Set_Line_Set_ID ( p_Line_ID => l_line_tbl(I).line_id
1711: l_sch_count := l_sch_count + 1;
1712: l_sch_tbl(l_sch_count) := l_line_tbl(I);
1713: l_child_quantity := l_line_tbl(I).ordered_quantity;
1714: IF l_debug_level > 0 THEN
1715: oe_debug_pub.add( 'PARENT QUANTITY:'|| L_PARENT_ORDERED_QUANTITY ) ;
1716: oe_debug_pub.add( 'CHILD_QUANTITY:'|| L_CHILD_QUANTITY ) ;
1717: END IF;
1718: l_line_scredit_tbl.delete;
1719: oe_line_scredit_util.query_rows( p_line_id => l_line_tbl(I).line_id,
1712: l_sch_tbl(l_sch_count) := l_line_tbl(I);
1713: l_child_quantity := l_line_tbl(I).ordered_quantity;
1714: IF l_debug_level > 0 THEN
1715: oe_debug_pub.add( 'PARENT QUANTITY:'|| L_PARENT_ORDERED_QUANTITY ) ;
1716: oe_debug_pub.add( 'CHILD_QUANTITY:'|| L_CHILD_QUANTITY ) ;
1717: END IF;
1718: l_line_scredit_tbl.delete;
1719: oe_line_scredit_util.query_rows( p_line_id => l_line_tbl(I).line_id,
1720: x_line_scredit_tbl => l_line_scredit_tbl);
1721: --j := l_line_tbl.First;
1722: --While j is not null Loop
1723: FOR J IN 1..l_Line_Tbl.Count LOOP
1724: IF l_debug_level > 0 THEN
1725: oe_debug_pub.add('CREATE ORDERED QUANTITY IS INVALID => '|| l_line_tbl(J).ordered_quantity);
1726: oe_debug_pub.add('OUT side the LOOP ORD QTY IS :'|| l_line_tbl(J).ordered_quantity || ' Count : '
1727: ||J ||' Operation : '||l_line_tbl(J).operation);
1728: END if;
1729: IF (l_Line_Tbl(J).split_from_line_id = l_line_tbl(I).Line_Id AND
1722: --While j is not null Loop
1723: FOR J IN 1..l_Line_Tbl.Count LOOP
1724: IF l_debug_level > 0 THEN
1725: oe_debug_pub.add('CREATE ORDERED QUANTITY IS INVALID => '|| l_line_tbl(J).ordered_quantity);
1726: oe_debug_pub.add('OUT side the LOOP ORD QTY IS :'|| l_line_tbl(J).ordered_quantity || ' Count : '
1727: ||J ||' Operation : '||l_line_tbl(J).operation);
1728: END if;
1729: IF (l_Line_Tbl(J).split_from_line_id = l_line_tbl(I).Line_Id AND
1730: l_line_tbl(J).operation = OE_GLOBALS.G_OPR_CREATE )
1735: */
1736: IF l_line_tbl(J).ordered_quantity = 0
1737: THEN
1738: IF l_debug_level > 0 THEN
1739: oe_debug_pub.add('ORDERED QUANTITY IS INVALID with CREATE OPER=> '
1740: ||l_line_tbl(J).ordered_quantity ) ;
1741: END IF;
1742: FND_MESSAGE.SET_NAME('ONT','OE_SPLIT_WITH_ZERO_QTY');
1743: FND_MESSAGE.SET_TOKEN('QUANTITY',L_line_tbl(J).ordered_quantity);
1742: FND_MESSAGE.SET_NAME('ONT','OE_SPLIT_WITH_ZERO_QTY');
1743: FND_MESSAGE.SET_TOKEN('QUANTITY',L_line_tbl(J).ordered_quantity);
1744: OE_MSG_PUB.ADD;
1745: IF l_debug_level > 0 THEN
1746: oe_debug_pub.add( 'SPLIT- NOT ALLOWED TO CREATE WITH QUANTITY ZERO' ) ;
1747: END IF;
1748: RAISE FND_API.G_EXC_ERROR;
1749: END IF;
1750: g_qry_out_rec := l_line_tbl(J);
1759: l_sch_count := l_sch_count + 1;
1760: l_sch_tbl(l_sch_count) := l_line_tbl(J);
1761: l_child_quantity := l_child_quantity + l_line_tbl(J).ordered_quantity;
1762: IF l_debug_level > 0 THEN
1763: oe_debug_pub.add( 'CHILD_QUANTITY2:'|| L_CHILD_QUANTITY ) ;
1764: END IF;
1765: -- Copy Sales Credits for the new line
1766: FOR SCRD_REC IN 1..L_line_Scredit_tbl.count LOOP
1767: l_scredit_count := l_scredit_count + 1;
1774: --j:= l_line_tbl.next(j);
1775: END LOOP; -- Loop for Insert on line table
1776: -- Check If quantities sum up to total ordered quantity
1777: IF l_debug_level > 0 THEN
1778: oe_debug_pub.add( 'PARENT QUANTITY3:'|| L_PARENT_ORDERED_QUANTITY ) ;
1779: oe_debug_pub.add( 'CHILD_QUANTITY3:'|| L_CHILD_QUANTITY ) ;
1780: END IF;
1781: IF l_parent_ordered_quantity <> l_child_quantity THEN
1782: IF l_debug_level > 0 THEN
1775: END LOOP; -- Loop for Insert on line table
1776: -- Check If quantities sum up to total ordered quantity
1777: IF l_debug_level > 0 THEN
1778: oe_debug_pub.add( 'PARENT QUANTITY3:'|| L_PARENT_ORDERED_QUANTITY ) ;
1779: oe_debug_pub.add( 'CHILD_QUANTITY3:'|| L_CHILD_QUANTITY ) ;
1780: END IF;
1781: IF l_parent_ordered_quantity <> l_child_quantity THEN
1782: IF l_debug_level > 0 THEN
1783: oe_debug_pub.add( 'PARENT QUANTITY3:'|| L_PARENT_ORDERED_QUANTITY ) ;
1779: oe_debug_pub.add( 'CHILD_QUANTITY3:'|| L_CHILD_QUANTITY ) ;
1780: END IF;
1781: IF l_parent_ordered_quantity <> l_child_quantity THEN
1782: IF l_debug_level > 0 THEN
1783: oe_debug_pub.add( 'PARENT QUANTITY3:'|| L_PARENT_ORDERED_QUANTITY ) ;
1784: oe_debug_pub.add( 'CHILD_QUANTITY3:'|| L_CHILD_QUANTITY ) ;
1785: END IF;
1786: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SPLIT_QTY');
1787: OE_MSG_PUB.ADD;
1780: END IF;
1781: IF l_parent_ordered_quantity <> l_child_quantity THEN
1782: IF l_debug_level > 0 THEN
1783: oe_debug_pub.add( 'PARENT QUANTITY3:'|| L_PARENT_ORDERED_QUANTITY ) ;
1784: oe_debug_pub.add( 'CHILD_QUANTITY3:'|| L_CHILD_QUANTITY ) ;
1785: END IF;
1786: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SPLIT_QTY');
1787: OE_MSG_PUB.ADD;
1788: IF l_debug_level > 0 THEN
1785: END IF;
1786: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_SPLIT_QTY');
1787: OE_MSG_PUB.ADD;
1788: IF l_debug_level > 0 THEN
1789: oe_debug_pub.add( 'RAJ:SPLIT-QUNATITES NOT EQUAL' ) ;
1790: END IF;
1791: RAISE FND_API.G_EXC_ERROR;
1792: END IF;
1793: l_child_quantity := 0;
1804: (l_line_rec.item_type_code = 'KIT') OR
1805: (l_line_rec.item_type_code = 'CLASS' AND l_line_rec.ato_line_id = l_line_rec.line_id))
1806: THEN
1807: IF l_debug_level > 0 THEN
1808: oe_debug_pub.add( 'INTO MODEL AND CLASS IF' ) ;
1809: oe_debug_pub.add( 'REMNANT FLAG : '||L_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1810: END IF;
1811: IF (nvl(l_line_rec.model_remnant_flag,'N') <> 'Y') OR
1812: (l_line_rec.item_type_code = 'CLASS' AND l_line_rec.ato_line_id = l_line_rec.line_id)
1805: (l_line_rec.item_type_code = 'CLASS' AND l_line_rec.ato_line_id = l_line_rec.line_id))
1806: THEN
1807: IF l_debug_level > 0 THEN
1808: oe_debug_pub.add( 'INTO MODEL AND CLASS IF' ) ;
1809: oe_debug_pub.add( 'REMNANT FLAG : '||L_LINE_TBL ( I ) .MODEL_REMNANT_FLAG ) ;
1810: END IF;
1811: IF (nvl(l_line_rec.model_remnant_flag,'N') <> 'Y') OR
1812: (l_line_rec.item_type_code = 'CLASS' AND l_line_rec.ato_line_id = l_line_rec.line_id)
1813: THEN
1811: IF (nvl(l_line_rec.model_remnant_flag,'N') <> 'Y') OR
1812: (l_line_rec.item_type_code = 'CLASS' AND l_line_rec.ato_line_id = l_line_rec.line_id)
1813: THEN
1814: IF l_debug_level > 0 THEN
1815: oe_debug_pub.add( 'BEFORE CALLING CASCADE PROP' ) ;
1816: END IF;
1817: Last_count := l_line_tbl.count+1;
1818: Cascade_Proportional_split(p_line_tbl => l_line_tbl,
1819: parent_ordered_quantity => l_parent_ordered_quantity,
1843: /* OE_ORDER_SCH_UTIL.Split_Scheduling(p_line_tbl => l_sch_tbl,
1844: x_line_tbl => l_sch_tbl,
1845: x_return_status => l_return_status);
1846: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1847: oe_debug_pub.add('Into split scheduling unexpected failure');
1848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1849: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1850: oe_debug_pub.add('Into split scheduling expected failure');
1851: RAISE FND_API.G_EXC_ERROR;
1846: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1847: oe_debug_pub.add('Into split scheduling unexpected failure');
1848: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1849: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1850: oe_debug_pub.add('Into split scheduling expected failure');
1851: RAISE FND_API.G_EXC_ERROR;
1852: END IF; */
1853: -- Delete split line tbl for this line
1854: g_split_line_tbl.delete;
1877: p_X_line_Tbl := l_line_tbl;
1878: -- Update Drop Ship Sources
1879: --Update_Drop_Ship_Source(p_line_tbl => X_Line_Tbl);
1880: IF l_debug_level > 0 THEN
1881: oe_debug_pub.add( 'SPLIT TABLE PICTURE IS - ' ) ;
1882: END IF;
1883: --i:= l_line_tbl.First;
1884: FOR I in 1..l_line_tbl.count LOOP
1885: --While i is not null loop
1883: --i:= l_line_tbl.First;
1884: FOR I in 1..l_line_tbl.count LOOP
1885: --While i is not null loop
1886: IF l_debug_level > 0 THEN
1887: oe_debug_pub.add( L_LINE_TBL ( I ) .ORDERED_QUANTITY , 5 ) ;
1888: oe_debug_pub.add( L_LINE_TBL ( I ) .OPERATION , 5 ) ;
1889: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
1890: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
1891: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
1884: FOR I in 1..l_line_tbl.count LOOP
1885: --While i is not null loop
1886: IF l_debug_level > 0 THEN
1887: oe_debug_pub.add( L_LINE_TBL ( I ) .ORDERED_QUANTITY , 5 ) ;
1888: oe_debug_pub.add( L_LINE_TBL ( I ) .OPERATION , 5 ) ;
1889: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
1890: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
1891: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
1892: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
1885: --While i is not null loop
1886: IF l_debug_level > 0 THEN
1887: oe_debug_pub.add( L_LINE_TBL ( I ) .ORDERED_QUANTITY , 5 ) ;
1888: oe_debug_pub.add( L_LINE_TBL ( I ) .OPERATION , 5 ) ;
1889: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
1890: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
1891: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
1892: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
1893: END IF;
1886: IF l_debug_level > 0 THEN
1887: oe_debug_pub.add( L_LINE_TBL ( I ) .ORDERED_QUANTITY , 5 ) ;
1888: oe_debug_pub.add( L_LINE_TBL ( I ) .OPERATION , 5 ) ;
1889: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
1890: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
1891: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
1892: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
1893: END IF;
1894: --i:= l_line_tbl.next(i);
1887: oe_debug_pub.add( L_LINE_TBL ( I ) .ORDERED_QUANTITY , 5 ) ;
1888: oe_debug_pub.add( L_LINE_TBL ( I ) .OPERATION , 5 ) ;
1889: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
1890: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
1891: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
1892: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
1893: END IF;
1894: --i:= l_line_tbl.next(i);
1895: END LOOP;
1888: oe_debug_pub.add( L_LINE_TBL ( I ) .OPERATION , 5 ) ;
1889: oe_debug_pub.add( L_LINE_TBL ( I ) .ITEM_TYPE_CODE , 5 ) ;
1890: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_ID , 5 ) ;
1891: oe_debug_pub.add( L_LINE_TBL ( I ) .LINE_SET_ID , 5 ) ;
1892: oe_debug_pub.add( L_LINE_TBL ( I ) .SPLIT_ACTION_CODE , 5 ) ;
1893: END IF;
1894: --i:= l_line_tbl.next(i);
1895: END LOOP;
1896: IF l_debug_level > 0 THEN
1893: END IF;
1894: --i:= l_line_tbl.next(i);
1895: END LOOP;
1896: IF l_debug_level > 0 THEN
1897: oe_debug_pub.add( 'EXIT CHECK SPLIT COURSE' ) ;
1898: END IF;
1899: END IF;
1900: <
1901: NULL;
1937: l_complete_shipment VARCHAR2(1) ;
1938: l_scredit_count NUMBER := 0;
1939:
1940: --
1941: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1942: --
1943: BEGIN
1944:
1945: x_return_status := FND_API.G_RET_STS_SUCCESS;
1943: BEGIN
1944:
1945: x_return_status := FND_API.G_RET_STS_SUCCESS;
1946: IF l_debug_level > 0 THEN
1947: OE_DEBUG_PUB.add('Entering Cascade_Non_Proportional_split() ',1);
1948: OE_DEBUG_PUB.add('Table count : '||p_x_line_tbl.count,5) ;
1949: END IF;
1950:
1951: FOR I in 1 .. l_line_tbl.count LOOP
1944:
1945: x_return_status := FND_API.G_RET_STS_SUCCESS;
1946: IF l_debug_level > 0 THEN
1947: OE_DEBUG_PUB.add('Entering Cascade_Non_Proportional_split() ',1);
1948: OE_DEBUG_PUB.add('Table count : '||p_x_line_tbl.count,5) ;
1949: END IF;
1950:
1951: FOR I in 1 .. l_line_tbl.count LOOP
1952: IF l_line_tbl(I).ordered_quantity < 0 THEN
1952: IF l_line_tbl(I).ordered_quantity < 0 THEN
1953: g_over_shipment := true;
1954: END IF;
1955: IF l_debug_level > 0 THEN
1956: oe_debug_pub.add('Line id : '||l_line_tbl(i).line_id,5) ;
1957: oe_debug_pub.add('Operation : ' ||l_line_tbl(i).operation,5) ;
1958: oe_debug_pub.add('Ordered quantity : '||l_line_tbl(i).ordered_quantity,5) ;
1959: oe_debug_pub.add('Item type code : ' ||l_line_tbl(i).item_type_code,5) ;
1960: oe_debug_pub.add('Shipped quantity : '||l_line_tbl(i).shipped_quantity,5) ;
1953: g_over_shipment := true;
1954: END IF;
1955: IF l_debug_level > 0 THEN
1956: oe_debug_pub.add('Line id : '||l_line_tbl(i).line_id,5) ;
1957: oe_debug_pub.add('Operation : ' ||l_line_tbl(i).operation,5) ;
1958: oe_debug_pub.add('Ordered quantity : '||l_line_tbl(i).ordered_quantity,5) ;
1959: oe_debug_pub.add('Item type code : ' ||l_line_tbl(i).item_type_code,5) ;
1960: oe_debug_pub.add('Shipped quantity : '||l_line_tbl(i).shipped_quantity,5) ;
1961: END IF;
1954: END IF;
1955: IF l_debug_level > 0 THEN
1956: oe_debug_pub.add('Line id : '||l_line_tbl(i).line_id,5) ;
1957: oe_debug_pub.add('Operation : ' ||l_line_tbl(i).operation,5) ;
1958: oe_debug_pub.add('Ordered quantity : '||l_line_tbl(i).ordered_quantity,5) ;
1959: oe_debug_pub.add('Item type code : ' ||l_line_tbl(i).item_type_code,5) ;
1960: oe_debug_pub.add('Shipped quantity : '||l_line_tbl(i).shipped_quantity,5) ;
1961: END IF;
1962: END LOOP;
1955: IF l_debug_level > 0 THEN
1956: oe_debug_pub.add('Line id : '||l_line_tbl(i).line_id,5) ;
1957: oe_debug_pub.add('Operation : ' ||l_line_tbl(i).operation,5) ;
1958: oe_debug_pub.add('Ordered quantity : '||l_line_tbl(i).ordered_quantity,5) ;
1959: oe_debug_pub.add('Item type code : ' ||l_line_tbl(i).item_type_code,5) ;
1960: oe_debug_pub.add('Shipped quantity : '||l_line_tbl(i).shipped_quantity,5) ;
1961: END IF;
1962: END LOOP;
1963:
1956: oe_debug_pub.add('Line id : '||l_line_tbl(i).line_id,5) ;
1957: oe_debug_pub.add('Operation : ' ||l_line_tbl(i).operation,5) ;
1958: oe_debug_pub.add('Ordered quantity : '||l_line_tbl(i).ordered_quantity,5) ;
1959: oe_debug_pub.add('Item type code : ' ||l_line_tbl(i).item_type_code,5) ;
1960: oe_debug_pub.add('Shipped quantity : '||l_line_tbl(i).shipped_quantity,5) ;
1961: END IF;
1962: END LOOP;
1963:
1964: oe_line_util.query_row(p_line_id => l_line_tbl(1).line_id, x_line_rec => l_line_rec);
1978:
1979: IF NOT g_over_shipment THEN
1980:
1981: IF l_debug_level > 0 THEN
1982: oe_debug_pub.add('Before calling check complete shipment',5) ;
1983: END IF;
1984: l_complete_shipment := Check_Complete_shipment( p_line_tbl => l_line_tbl, p_line_id => l_line_rec.line_id );
1985: IF (l_model_flag = 'N' AND nvl(l_line_rec.shippable_flag,'N') = 'Y' ) THEN
1986: l_max_ship_model := 0;
2017: END IF;
2018:
2019: IF g_over_shipment THEN
2020: IF l_debug_level > 0 THEN
2021: oe_debug_pub.add('Over shipment true' , 1 ) ;
2022: END IF;
2023: l_min_model := 0;
2024: l_max_ship_model := 0;
2025: END IF;
2025: END IF;
2026: g_min_model := l_min_model;
2027: g_max_model := l_max_ship_model;
2028: IF l_debug_level > 0 THEN
2029: oe_debug_pub.add('Min model : '||l_min_model,5 ) ;
2030: oe_debug_pub.add('Max shipped model : '||l_max_ship_model,5) ;
2031: END IF;
2032: IF g_min_model = 0 THEN
2033: g_remnant_only := TRUE;
2026: g_min_model := l_min_model;
2027: g_max_model := l_max_ship_model;
2028: IF l_debug_level > 0 THEN
2029: oe_debug_pub.add('Min model : '||l_min_model,5 ) ;
2030: oe_debug_pub.add('Max shipped model : '||l_max_ship_model,5) ;
2031: END IF;
2032: IF g_min_model = 0 THEN
2033: g_remnant_only := TRUE;
2034: END IF;
2035: IF l_model_flag = 'Y' THEN
2036: Get_Model_Configuration(p_line_tbl => l_line_tbl, x_line_tbl => l_line_out_tbl);
2037: l_line_tbl := l_line_out_tbl;
2038: IF l_debug_level > 0 THEN
2039: oe_debug_pub.add('Minimum model : '||l_min_model,5);
2040: oe_debug_pub.add('Minimum model : '||g_min_model,5);
2041: END IF;
2042: ELSE
2043: Get_non_Model_Configuration(p_line_tbl => l_line_tbl, x_line_tbl => l_line_out_tbl);
2036: Get_Model_Configuration(p_line_tbl => l_line_tbl, x_line_tbl => l_line_out_tbl);
2037: l_line_tbl := l_line_out_tbl;
2038: IF l_debug_level > 0 THEN
2039: oe_debug_pub.add('Minimum model : '||l_min_model,5);
2040: oe_debug_pub.add('Minimum model : '||g_min_model,5);
2041: END IF;
2042: ELSE
2043: Get_non_Model_Configuration(p_line_tbl => l_line_tbl, x_line_tbl => l_line_out_tbl);
2044: l_line_tbl := l_line_out_tbl;
2042: ELSE
2043: Get_non_Model_Configuration(p_line_tbl => l_line_tbl, x_line_tbl => l_line_out_tbl);
2044: l_line_tbl := l_line_out_tbl;
2045: IF l_debug_level > 0 THEN
2046: oe_debug_pub.add('Minimum model : '|| l_min_model,5);
2047: oe_debug_pub.add('Minimum model : '|| g_min_model,5);
2048: END IF;
2049: END IF;
2050: g_remnant_only := FALSE;
2043: Get_non_Model_Configuration(p_line_tbl => l_line_tbl, x_line_tbl => l_line_out_tbl);
2044: l_line_tbl := l_line_out_tbl;
2045: IF l_debug_level > 0 THEN
2046: oe_debug_pub.add('Minimum model : '|| l_min_model,5);
2047: oe_debug_pub.add('Minimum model : '|| g_min_model,5);
2048: END IF;
2049: END IF;
2050: g_remnant_only := FALSE;
2051: -- Call Scheduling
2051: -- Call Scheduling
2052: -- This call to scheduling is commented to fix splitting of reservations
2053: -- issue. The call is moved to post line loop and is in control of scheduling
2054: IF l_debug_level > 0 THEN
2055: oe_debug_pub.add('Scheduling call has been disabled',5);
2056: END IF;
2057: /*OE_ORDER_SCH_UTIL.Split_Scheduling(p_line_tbl => l_line_tbl,
2058: x_line_tbl => l_line_tbl,
2059: x_return_status => l_return_status);*/
2058: x_line_tbl => l_line_tbl,
2059: x_return_status => l_return_status);*/
2060: FOR I in 1 .. l_line_tbl.count LOOP
2061: IF l_debug_level > 0 THEN
2062: oe_debug_pub.add('Line ID : '||l_line_tbl(I).line_id,5);
2063: oe_debug_pub.add('Operation : '||l_line_tbl(I).operation,5) ;
2064: oe_debug_pub.add('Ordered Quantity : '||l_line_tbl(I).ordered_quantity,5) ;
2065: oe_debug_pub.add('Item Type Code : '||l_line_tbl(I).item_type_code,5) ;
2066: oe_debug_pub.add('Remnant Flag : '||nvl(l_line_tbl(I).model_remnant_flag,'N'),5) ;
2059: x_return_status => l_return_status);*/
2060: FOR I in 1 .. l_line_tbl.count LOOP
2061: IF l_debug_level > 0 THEN
2062: oe_debug_pub.add('Line ID : '||l_line_tbl(I).line_id,5);
2063: oe_debug_pub.add('Operation : '||l_line_tbl(I).operation,5) ;
2064: oe_debug_pub.add('Ordered Quantity : '||l_line_tbl(I).ordered_quantity,5) ;
2065: oe_debug_pub.add('Item Type Code : '||l_line_tbl(I).item_type_code,5) ;
2066: oe_debug_pub.add('Remnant Flag : '||nvl(l_line_tbl(I).model_remnant_flag,'N'),5) ;
2067: END IF;
2060: FOR I in 1 .. l_line_tbl.count LOOP
2061: IF l_debug_level > 0 THEN
2062: oe_debug_pub.add('Line ID : '||l_line_tbl(I).line_id,5);
2063: oe_debug_pub.add('Operation : '||l_line_tbl(I).operation,5) ;
2064: oe_debug_pub.add('Ordered Quantity : '||l_line_tbl(I).ordered_quantity,5) ;
2065: oe_debug_pub.add('Item Type Code : '||l_line_tbl(I).item_type_code,5) ;
2066: oe_debug_pub.add('Remnant Flag : '||nvl(l_line_tbl(I).model_remnant_flag,'N'),5) ;
2067: END IF;
2068: IF l_line_tbl(I).model_remnant_flag = 'Y' THEN
2061: IF l_debug_level > 0 THEN
2062: oe_debug_pub.add('Line ID : '||l_line_tbl(I).line_id,5);
2063: oe_debug_pub.add('Operation : '||l_line_tbl(I).operation,5) ;
2064: oe_debug_pub.add('Ordered Quantity : '||l_line_tbl(I).ordered_quantity,5) ;
2065: oe_debug_pub.add('Item Type Code : '||l_line_tbl(I).item_type_code,5) ;
2066: oe_debug_pub.add('Remnant Flag : '||nvl(l_line_tbl(I).model_remnant_flag,'N'),5) ;
2067: END IF;
2068: IF l_line_tbl(I).model_remnant_flag = 'Y' THEN
2069: l_line_tbl(I).split_by := 'SYSTEM';
2062: oe_debug_pub.add('Line ID : '||l_line_tbl(I).line_id,5);
2063: oe_debug_pub.add('Operation : '||l_line_tbl(I).operation,5) ;
2064: oe_debug_pub.add('Ordered Quantity : '||l_line_tbl(I).ordered_quantity,5) ;
2065: oe_debug_pub.add('Item Type Code : '||l_line_tbl(I).item_type_code,5) ;
2066: oe_debug_pub.add('Remnant Flag : '||nvl(l_line_tbl(I).model_remnant_flag,'N'),5) ;
2067: END IF;
2068: IF l_line_tbl(I).model_remnant_flag = 'Y' THEN
2069: l_line_tbl(I).split_by := 'SYSTEM';
2070: l_line_tbl(I).ship_set_id := NULL;
2101: l_control_rec.change_attributes := TRUE;
2102: l_control_rec.default_attributes := TRUE;
2103: OE_SPLIT_UTIL.G_SPLIT_ACTION := TRUE;
2104: IF l_debug_level > 0 THEN
2105: oe_debug_pub.add('Before calling process order in splits',1) ;
2106: END IF;
2107: oe_order_pvt.Lines
2108: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
2109: , p_control_rec => l_control_rec
2112: , x_return_status => l_return_status
2113: );
2114: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2115: IF l_debug_level > 0 THEN
2116: oe_debug_pub.add('Split Line: Process order returns unexpected error : '||sqlerrm,1) ;
2117: END IF;
2118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2120: IF l_debug_level > 0 THEN
2117: END IF;
2118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2119: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2120: IF l_debug_level > 0 THEN
2121: oe_debug_pub.add('Split Line: Process order returns execution error : '||sqlerrm,1) ;
2122: END IF;
2123: RAISE FND_API.G_EXC_ERROR;
2124: END IF;
2125:
2168: ( p_line_rec IN OE_Order_PUB.Line_Rec_Type
2169: )IS
2170: l_return_status varchar2(30);
2171: --
2172: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2173: --
2174: BEGIN
2175: OE_CHG_ORDER_PVT.RecordLineHist
2176: ( p_line_id => p_line_rec.line_id
2199:
2200: Procedure Add_To_Fulfillment_Set(p_line_rec IN oe_order_pub.line_rec_type) IS
2201: -- 4925992
2202: l_top_model_line_id NUMBER;
2203: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2204:
2205: Cursor C1 is SELECT SET_ID
2206: FROM OE_LINE_SETS
2207: WHERE LINE_ID = p_line_rec.split_from_line_id;
2257: l_x_Line_Adj_Assoc_tbl OE_Order_PUB.Line_Adj_Assoc_Tbl_Type;
2258: l_x_Header_Payment_tbl OE_Order_PUB.Header_Payment_Tbl_Type;
2259: l_x_Line_Payment_tbl OE_Order_PUB.Line_Payment_Tbl_Type;
2260: l_control_rec OE_GLOBALS.Control_Rec_Type;
2261: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2262: l_line_conc_rec OE_Split_Util.Split_Line_Rec_Type;
2263: l_line_conc_tbl OE_Split_Util.Split_Line_Tbl_Type;
2264: l_rec_count number;
2265: l_return_status VARCHAR2(1);
2284: FOR UPDATE NOWAIT;
2285:
2286:
2287: BEGIN
2288: oe_debug_pub.add('Entering Procedure OE_Split_Util.Defer_Split', 1);
2289: l_init_line_id :=to_number(p_line_id);
2290:
2291: select org_id
2292: into l_org_id
2308: INTO l_line_conc_tbl;
2309: CLOSE c_split_details;
2310: EXCEPTION
2311: WHEN APP_EXCEPTIONS.RECORD_LOCK_EXCEPTION THEN
2312: oe_debug_pub.add('record_lock exception in Oe_Split_Util.Defer_Split',1);
2313: Retcode := 2;
2314: errbuf := sqlerrm;
2315: raise;
2316: END;
2344:
2345: IF l_orig_ord_qty > 0 AND l_ord_qty_sum <> l_orig_ord_qty THEN
2346: FND_MESSAGE.SET_NAME('ONT','OE_UI_SPLIT_UNEQUAL_QTY');
2347: OE_MSG_PUB.ADD;
2348: oe_debug_pub.add('Total shipment quantity must equal original quantity',1);
2349: RAISE FND_API.G_EXC_ERROR;
2350: ELSIF l_orig_ord_qty2 > 0 AND (l_ord_qty2_sum <> l_orig_ord_qty2) THEN
2351: FND_MESSAGE.SET_NAME('ONT','OE_UI_SPLIT_UNEQUAL_QTY');
2352: OE_MSG_PUB.ADD;
2349: RAISE FND_API.G_EXC_ERROR;
2350: ELSIF l_orig_ord_qty2 > 0 AND (l_ord_qty2_sum <> l_orig_ord_qty2) THEN
2351: FND_MESSAGE.SET_NAME('ONT','OE_UI_SPLIT_UNEQUAL_QTY');
2352: OE_MSG_PUB.ADD;
2353: oe_debug_pub.add('Total shipment quantity must equal original quantity',1);
2354: RAISE FND_API.G_EXC_ERROR;
2355: END IF;
2356:
2357: /* OPEN c_split_details;
2364: IF i = 1 THEN
2365: IF l_line_conc_tbl(i).line_id IS NOT NULL THEN
2366: l_line_id := l_line_conc_tbl(i).line_id;
2367: IF l_debug_level > 0 THEN
2368: oe_debug_pub.add(' Query Line for Split'||l_line_conc_tbl(i).LINE_ID,3) ;
2369: END IF;
2370: l_x_line_tbl(i).line_id := l_line_conc_tbl(i).line_id;
2371: OE_Line_Util.Lock_Row
2372: ( x_return_status => l_return_status
2377: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2378: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2379: RAISE FND_API.G_EXC_ERROR;
2380: END IF;
2381: oe_debug_pub.add('After Query Line for Split',3) ;
2382: END IF;
2383: l_x_line_tbl(i).line_id := l_line_conc_tbl(i).line_id;
2384: l_x_line_tbl(i).split_action_code := 'SPLIT';
2385: IF l_line_conc_tbl(i).split_by = 'SCHEDULER' THEN
2390: l_x_line_tbl(i).request_id := FND_GLOBAL.CONC_REQUEST_ID;
2391: END IF;
2392: l_x_line_tbl(i).operation := OE_GLOBALS.G_OPR_UPDATE;
2393: IF l_debug_level > 0 THEN
2394: OE_DEBUG_PUB.add('Audit Trail Reason Code being passed as '||
2395: l_line_conc_tbl(i).change_reason_code,1);
2396: END IF;
2397: l_x_line_tbl(i).change_reason := l_line_conc_tbl(i).change_reason_code;
2398: l_x_line_tbl(i).change_comments := l_line_conc_tbl(i).change_reason_comment;
2411: END IF;
2412: l_x_line_tbl(i).ordered_quantity := l_line_conc_tbl(i).ordered_quantity;
2413: l_x_line_tbl(i).ordered_quantity2 := l_line_conc_tbl(i).ordered_quantity2;
2414: END LOOP;
2415: oe_debug_pub.add('From Defer Split - Calling Process Order',1) ;
2416:
2417: Oe_Order_Pvt.Process_order
2418: ( p_api_version_number => 1.0
2419: , p_init_msg_list => FND_API.G_TRUE
2440:
2441: );
2442:
2443: END IF;
2444: oe_debug_pub.add('From Defer Split - After Calling Process Order',1) ;
2445:
2446: l_msg_total := l_msg_total + l_msg_count;
2447:
2448: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2471: END IF;
2472: END IF;
2473:
2474: l_line_tbl(i).operation := OE_GLOBALS.G_OPR_UPDATE;
2475: oe_debug_pub.add('Reason code being passed : '||l_line_tbl(i).change_reason,1);
2476:
2477: l_line_tbl(i).change_reason := l_line_conc_tbl(i).change_reason_code;
2478: l_line_tbl(i).change_comments := l_line_conc_tbl(i).change_reason_comment;
2479: l_line_tbl(i).split_action_code:= FND_API.G_MISS_CHAR;
2553: END IF;
2554: END IF;
2555:
2556: l_line_tbl(l_rec_count).operation := OE_GLOBALS.G_OPR_UPDATE;
2557: oe_debug_pub.add('Reason code being passed : '||
2558: l_line_tbl(l_rec_count).change_reason,1);
2559: l_line_tbl(l_rec_count).change_reason :=
2560: l_line_conc_tbl(k).change_reason_code;
2561: l_line_tbl(l_rec_count).change_comments :=
2585: l_x_Line_Scredit_tbl.DELETE;
2586: l_x_lot_serial_tbl.DELETE;
2587:
2588: IF l_process_add_attributes THEN
2589: oe_debug_pub.add('calling process_order for service lines from oe_split_util.defer_split',5);
2590: Oe_Order_Pvt.Process_order
2591: ( p_api_version_number => 1.0
2592: , p_init_msg_list => FND_API.G_TRUE
2593: , x_return_status => l_return_status
2651: l_msg_data := to_char(I)||'. '||OE_MSG_PUB.Get(I,FND_API.G_FALSE);
2652: FND_FILE.put_line(FND_FILE.output, l_msg_data);
2653: -- Writing messages into the concurrent request output file
2654: END LOOP;
2655: oe_debug_pub.add(' Saving the Messages');
2656: oe_msg_pub.save_messages(p_request_id => FND_GLOBAL.CONC_REQUEST_ID);
2657: -- Bug 6964815
2658:
2659: ELSE
2660: FND_FILE.put_line(FND_FILE.output,' << No Errors or Warnings reported >>');
2661: END IF;
2662: END IF;
2663: COMMIT;
2664: oe_debug_pub.add('Exiting Procedure OE_Split_Util.Defer_Split', 1);
2665:
2666: EXCEPTION
2667: WHEN OTHERS THEN
2668: retcode := 2;
2665:
2666: EXCEPTION
2667: WHEN OTHERS THEN
2668: retcode := 2;
2669: oe_debug_pub.add('Inside the exception block of oe_split_util.defer_split',5);
2670: IF NVL(FND_PROFILE.VALUE('CONC_REQUEST_ID'), 0) <> 0 THEN
2671: -- Called from concurrent request */
2672: IF l_msg_total > 0 THEN
2673: FOR I IN 1 .. l_msg_total LOOP
2695:
2696: PROCEDURE Bulk_Insert (p_line_conc_tbl IN Split_Line_Tbl_Type) is
2697:
2698: begin
2699: oe_debug_pub.add('entering oe_split_util.bulk_insert');
2700:
2701: FORALL j IN p_line_conc_tbl.FIRST .. p_line_conc_tbl.LAST
2702: INSERT INTO OE_LINE_SPLIT_DETAILS
2703: VALUES p_line_conc_tbl(j);
2703: VALUES p_line_conc_tbl(j);
2704:
2705: exception
2706: WHEN OTHERS THEN
2707: oe_debug_pub.add('failed in bulk insert API'||sqlerrm);
2708: raise;
2709: end Bulk_Insert;
2710:
2711: /* Defer Split ER Changes END */