[Home] [Help]
93:
94: PROCEDURE Print_Time(p_msg IN VARCHAR2)
95: IS
96: l_time VARCHAR2(100);
97: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
98: BEGIN
99: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
100: 'DD-MON-YY HH24:MI:SS');
101: IF l_debug_level > 0 THEN
98: BEGIN
99: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
100: 'DD-MON-YY HH24:MI:SS');
101: IF l_debug_level > 0 THEN
102: OE_DEBUG_PUB.Add(p_msg || ': '|| l_time, 1);
103: END IF;
104: END Print_Time;
105:
106:
159: l_config_model_type VARCHAR2(30);
160: l_replenish_to_order_flag VARCHAR2(1);
161: l_top_model_line_id NUMBER;
162: l_inventory_item_id NUMBER;
163: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
164: BEGIN
165:
166: Print_Time('Entering OE_CONFIG_TSO_PVT.Is_Part_of_Container_Model..');
167:
171: x_part_of_container := 'N';
172: x_top_container_model := 'N';
173:
174: IF l_debug_level > 0 THEN
175: OE_DEBUG_PUB.Add('Line Id : '|| p_line_id ,3);
176: OE_DEBUG_PUB.Add('Top Model Line id:'|| l_top_model_line_id,3);
177: OE_DEBUG_PUB.Add('ATO Line id: '|| l_ato_line_id,3);
178: OE_DEBUG_PUB.Add('operation : '|| p_operation,3);
179: OE_DEBUG_PUB.Add('inv item : '|| p_inventory_item_id,3);
172: x_top_container_model := 'N';
173:
174: IF l_debug_level > 0 THEN
175: OE_DEBUG_PUB.Add('Line Id : '|| p_line_id ,3);
176: OE_DEBUG_PUB.Add('Top Model Line id:'|| l_top_model_line_id,3);
177: OE_DEBUG_PUB.Add('ATO Line id: '|| l_ato_line_id,3);
178: OE_DEBUG_PUB.Add('operation : '|| p_operation,3);
179: OE_DEBUG_PUB.Add('inv item : '|| p_inventory_item_id,3);
180: END IF;
173:
174: IF l_debug_level > 0 THEN
175: OE_DEBUG_PUB.Add('Line Id : '|| p_line_id ,3);
176: OE_DEBUG_PUB.Add('Top Model Line id:'|| l_top_model_line_id,3);
177: OE_DEBUG_PUB.Add('ATO Line id: '|| l_ato_line_id,3);
178: OE_DEBUG_PUB.Add('operation : '|| p_operation,3);
179: OE_DEBUG_PUB.Add('inv item : '|| p_inventory_item_id,3);
180: END IF;
181:
174: IF l_debug_level > 0 THEN
175: OE_DEBUG_PUB.Add('Line Id : '|| p_line_id ,3);
176: OE_DEBUG_PUB.Add('Top Model Line id:'|| l_top_model_line_id,3);
177: OE_DEBUG_PUB.Add('ATO Line id: '|| l_ato_line_id,3);
178: OE_DEBUG_PUB.Add('operation : '|| p_operation,3);
179: OE_DEBUG_PUB.Add('inv item : '|| p_inventory_item_id,3);
180: END IF;
181:
182: --operation is sent in only by OEXLLINB right now
175: OE_DEBUG_PUB.Add('Line Id : '|| p_line_id ,3);
176: OE_DEBUG_PUB.Add('Top Model Line id:'|| l_top_model_line_id,3);
177: OE_DEBUG_PUB.Add('ATO Line id: '|| l_ato_line_id,3);
178: OE_DEBUG_PUB.Add('operation : '|| p_operation,3);
179: OE_DEBUG_PUB.Add('inv item : '|| p_inventory_item_id,3);
180: END IF;
181:
182: --operation is sent in only by OEXLLINB right now
183: IF p_operation = OE_GLOBALS.G_OPR_CREATE THEN
182: --operation is sent in only by OEXLLINB right now
183: IF p_operation = OE_GLOBALS.G_OPR_CREATE THEN
184:
185: IF l_debug_level > 0 THEN
186: OE_DEBUG_PUB.Add('Operation is CREATE',3);
187: OE_DEBUG_PUB.Add('Inv Item ID:'||p_inventory_item_id,3);
188: END IF;
189:
190: IF p_top_model_line_id = p_line_id THEN
183: IF p_operation = OE_GLOBALS.G_OPR_CREATE THEN
184:
185: IF l_debug_level > 0 THEN
186: OE_DEBUG_PUB.Add('Operation is CREATE',3);
187: OE_DEBUG_PUB.Add('Inv Item ID:'||p_inventory_item_id,3);
188: END IF;
189:
190: IF p_top_model_line_id = p_line_id THEN
191: IF p_inventory_item_id is NULL THEN
198: FROM oe_order_lines
199: WHERE line_id = p_top_model_line_id;
200:
201: IF l_debug_level > 0 THEN
202: OE_DEBUG_PUB.Add('Get Parent Item Id for:'||p_inventory_item_id,3);
203: OE_DEBUG_PUB.Add('Parent item id is:'||l_inventory_item_id,3);
204: END IF;
205:
206: END IF;
199: WHERE line_id = p_top_model_line_id;
200:
201: IF l_debug_level > 0 THEN
202: OE_DEBUG_PUB.Add('Get Parent Item Id for:'||p_inventory_item_id,3);
203: OE_DEBUG_PUB.Add('Parent item id is:'||l_inventory_item_id,3);
204: END IF;
205:
206: END IF;
207: ELSIF p_operation = 'UPDATE' OR
207: ELSIF p_operation = 'UPDATE' OR
208: p_operation = 'DELETE' THEN
209:
210: IF l_debug_level > 0 THEN
211: OE_DEBUG_PUB.Add('Operation is UPDATE/DELETE',3);
212: OE_DEBUG_PUB.Add('l_inventory_item_id set to NULL',3);
213: END IF;
214:
215: l_inventory_item_id := null;
208: p_operation = 'DELETE' THEN
209:
210: IF l_debug_level > 0 THEN
211: OE_DEBUG_PUB.Add('Operation is UPDATE/DELETE',3);
212: OE_DEBUG_PUB.Add('l_inventory_item_id set to NULL',3);
213: END IF;
214:
215: l_inventory_item_id := null;
216:
219:
220: IF l_inventory_item_id IS NOT NULL THEN
221:
222: IF l_debug_level > 0 THEN
223: OE_DEBUG_PUB.Add('Inventory Item id:'||l_inventory_item_id,3);
224: END IF;
225:
226: SELECT mtl_msi.bom_item_type
227: ,mtl_msi.replenish_to_order_flag
233: WHERE mtl_msi.inventory_item_id = l_inventory_item_id
234: AND mtl_msi.organization_id=OE_SYS_PARAMETERS.Value('MASTER_ORGANIZATION_ID',p_org_id); --Bug 5524710
235:
236: IF l_debug_level > 0 THEN
237: OE_DEBUG_PUB.Add('BOM Item Type:'||l_bom_item_type,3);
238: OE_DEBUG_PUB.Add('Replenish to Order:'||l_replenish_to_order_flag,3);
239: OE_DEBUG_PUB.Add('Config Model Type:'||l_config_model_type,3);
240: END IF;
241:
234: AND mtl_msi.organization_id=OE_SYS_PARAMETERS.Value('MASTER_ORGANIZATION_ID',p_org_id); --Bug 5524710
235:
236: IF l_debug_level > 0 THEN
237: OE_DEBUG_PUB.Add('BOM Item Type:'||l_bom_item_type,3);
238: OE_DEBUG_PUB.Add('Replenish to Order:'||l_replenish_to_order_flag,3);
239: OE_DEBUG_PUB.Add('Config Model Type:'||l_config_model_type,3);
240: END IF;
241:
242: IF l_bom_item_type = 1 AND
235:
236: IF l_debug_level > 0 THEN
237: OE_DEBUG_PUB.Add('BOM Item Type:'||l_bom_item_type,3);
238: OE_DEBUG_PUB.Add('Replenish to Order:'||l_replenish_to_order_flag,3);
239: OE_DEBUG_PUB.Add('Config Model Type:'||l_config_model_type,3);
240: END IF;
241:
242: IF l_bom_item_type = 1 AND
243: l_replenish_to_order_flag = 'N' AND
251:
252: END IF;
253:
254: IF l_debug_level > 0 THEN
255: OE_DEBUG_PUB.Add('Top Container Model?:'||x_top_container_model,3);
256: OE_DEBUG_PUB.Add('Part of Container Model?:'||x_part_of_container,3);
257: END IF;
258:
259: Print_Time ('Exiting OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model..');
252: END IF;
253:
254: IF l_debug_level > 0 THEN
255: OE_DEBUG_PUB.Add('Top Container Model?:'||x_top_container_model,3);
256: OE_DEBUG_PUB.Add('Part of Container Model?:'||x_part_of_container,3);
257: END IF;
258:
259: Print_Time ('Exiting OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model..');
260:
264: ------------------- if line_id is to be used -----------------
265: IF p_line_id IS NOT NULL THEN
266:
267: IF l_debug_level > 0 THEN
268: OE_DEBUG_PUB.Add('Line Id:'||p_line_id ,3);
269: OE_DEBUG_PUB.Add('Top Model Line id:'||l_top_model_line_id,3);
270: OE_DEBUG_PUB.Add('ATO Line id:'||l_ato_line_id,3);
271: END IF;
272:
265: IF p_line_id IS NOT NULL THEN
266:
267: IF l_debug_level > 0 THEN
268: OE_DEBUG_PUB.Add('Line Id:'||p_line_id ,3);
269: OE_DEBUG_PUB.Add('Top Model Line id:'||l_top_model_line_id,3);
270: OE_DEBUG_PUB.Add('ATO Line id:'||l_ato_line_id,3);
271: END IF;
272:
273: IF l_top_model_line_id IS NULL OR
266:
267: IF l_debug_level > 0 THEN
268: OE_DEBUG_PUB.Add('Line Id:'||p_line_id ,3);
269: OE_DEBUG_PUB.Add('Top Model Line id:'||l_top_model_line_id,3);
270: OE_DEBUG_PUB.Add('ATO Line id:'||l_ato_line_id,3);
271: END IF;
272:
273: IF l_top_model_line_id IS NULL OR
274: l_ato_line_id IS NULL THEN
278: FROM oe_order_lines
279: WHERE line_id = p_line_id;
280:
281: IF l_debug_level > 0 THEN
282: OE_DEBUG_PUB.Add('Top Model Line id:'||l_top_model_line_id,3);
283: OE_DEBUG_PUB.Add('ATO Line id:'||l_ato_line_id,3);
284: END IF;
285:
286: END IF;
279: WHERE line_id = p_line_id;
280:
281: IF l_debug_level > 0 THEN
282: OE_DEBUG_PUB.Add('Top Model Line id:'||l_top_model_line_id,3);
283: OE_DEBUG_PUB.Add('ATO Line id:'||l_ato_line_id,3);
284: END IF;
285:
286: END IF;
287:
295: AND oe_l.inventory_item_id = mtl_msi.inventory_item_id
296: AND mtl_msi.organization_id = OE_SYS_PARAMETERS.Value('MASTER_ORGANIZATION_ID',p_org_id); --Bug 5524710
297:
298: IF l_debug_level > 0 THEN
299: OE_DEBUG_PUB.Add('Model Type:'||l_config_model_type,2);
300: END IF;
301:
302: IF l_config_model_type = 'N' THEN
303: x_part_of_container := 'Y';
308: x_part_of_container := 'N';
309: END IF;
310:
311: IF l_debug_level > 0 THEN
312: OE_DEBUG_PUB.Add('Top Container Model?:'||x_top_container_model,3);
313: OE_DEBUG_PUB.Add('Part of Container Model?:'||x_part_of_container,3);
314: END IF;
315: Print_Time('Exiting OE_CONFIG_TSO_PVT.Is_Part_of_Container_Model..');
316:
309: END IF;
310:
311: IF l_debug_level > 0 THEN
312: OE_DEBUG_PUB.Add('Top Container Model?:'||x_top_container_model,3);
313: OE_DEBUG_PUB.Add('Part of Container Model?:'||x_part_of_container,3);
314: END IF;
315: Print_Time('Exiting OE_CONFIG_TSO_PVT.Is_Part_of_Container_Model..');
316:
317: RETURN;
320:
321: END IF; --p_line_id is NOT NULL
322:
323: IF l_debug_level > 0 THEN
324: OE_DEBUG_PUB.Add('Top Container Model?:'||x_top_container_model,3);
325: OE_DEBUG_PUB.Add('Part of Container Model?:'||x_part_of_container,3);
326: END IF;
327: Print_Time('Exiting OE_CONFIG_TSO_PVT.Is_Part_of_Container_Model..');
328:
321: END IF; --p_line_id is NOT NULL
322:
323: IF l_debug_level > 0 THEN
324: OE_DEBUG_PUB.Add('Top Container Model?:'||x_top_container_model,3);
325: OE_DEBUG_PUB.Add('Part of Container Model?:'||x_part_of_container,3);
326: END IF;
327: Print_Time('Exiting OE_CONFIG_TSO_PVT.Is_Part_of_Container_Model..');
328:
329: EXCEPTION
329: EXCEPTION
330:
331: WHEN NO_DATA_FOUND THEN
332: IF l_debug_level > 0 THEN
333: OE_DEBUG_PUB.Add('No data found in Is_Part_of_Container_Model:'
334: ||sqlerrm, 3);
335: END IF;
336: RAISE FND_API.G_EXC_ERROR;
337:
336: RAISE FND_API.G_EXC_ERROR;
337:
338: WHEN TOO_MANY_ROWS THEN
339: IF l_debug_level > 0 THEN
340: OE_DEBUG_PUB.Add('Too Many Rows in Is_Part_of_Container_Model:'
341: ||sqlerrm, 3);
342: END IF;
343: RAISE FND_API.G_EXC_ERROR;
344:
343: RAISE FND_API.G_EXC_ERROR;
344:
345: WHEN OTHERS THEN
346: IF l_debug_level > 0 THEN
347: OE_DEBUG_PUB.Add('Other error in Is_Part_Of_Container_Model:'
348: ||sqlerrm,1);
349: END IF;
350: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
351: OE_MSG_PUB.Add_Exc_Msg
382: l_part_of_container_model VARCHAR2(1);
383: l_return_status VARCHAR2(1);
384: l_top_container_model VARCHAR2(1);
385: l_description VARCHAR2(240);
386: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
387: l_config_mode NUMBER;
388: l_x_return_status VARCHAR2(1);
389:
390: l_ib_trackable_flag VARCHAR2(1);
394:
395: x_return_status := FND_API.G_RET_STS_SUCCESS;
396:
397: IF l_debug_level > 0 THEN
398: OE_DEBUG_PUB.Add('Before Calling Is_Part_Of_Container_Model...',3);
399: END IF;
400:
401: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
402: ( p_line_id => p_line_rec.line_id
412: IF l_part_of_container_model = 'N' THEN
413:
414: IF p_line_rec.ib_owner='INSTALL_BASE' THEN
415: IF l_debug_level > 0 THEN
416: OE_DEBUG_PUB.Add('IB validation failed: IB_OWNER',3);
417: END IF;
418: x_return_status := FND_API.G_RET_STS_ERROR;
419: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
420: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','IB_OWNER');
422: END IF;
423:
424: IF p_line_rec.ib_installed_at_location='INSTALL_BASE' THEN
425: IF l_debug_level > 0 THEN
426: OE_DEBUG_PUB.Add('IB validation failed: INSTALLED_AT_LOCATION',3);
427: END IF;
428: x_return_status := FND_API.G_RET_STS_ERROR;
429: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
430: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','IB_INSTALLED_AT_LOCATION');
432: END IF;
433:
434: IF p_line_rec.ib_current_location='INSTALL_BASE' THEN
435: IF l_debug_level > 0 THEN
436: OE_DEBUG_PUB.Add('IB validation failed: IB_CURRENT_LOCATION',3);
437: END IF;
438: x_return_status := FND_API.G_RET_STS_ERROR;
439: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
440: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','IB_CURRENT_LOCATION');
445: -- Abghoshend contd
446:
447: IF l_part_of_container_model = 'N' THEN
448: IF l_debug_level > 0 THEN
449: OE_DEBUG_PUB.Add('Not a part of container model, hence RETURNing',3);
450: END IF;
451: Print_Time ('Exiting OE_CONFIG_TSO_PVT.Validate_Container_Model...');
452: RETURN;
453: END IF;
466: ,x_config_mode => l_config_mode
467: ,x_return_status => l_x_return_status );
468:
469: IF l_debug_level >0 THEN
470: OE_DEBUG_PUB.ADD('l_config_mode='||l_config_mode);
471: END IF;
472:
473: -- Bug 3677344
474: IF l_x_return_status= FND_API.G_RET_STS_ERROR THEN
482: IF l_config_mode = 1 THEN
483:
484: IF p_line_rec.ib_owner='INSTALL_BASE' THEN
485: IF l_debug_level > 0 THEN
486: OE_DEBUG_PUB.Add('IB validation failed: IB_OWNER');
487: END IF;
488: x_return_status := FND_API.G_RET_STS_ERROR;
489: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
490: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_Util.Get_Attribute_Name('IB_OWNER'));
492: END IF;
493:
494: IF p_line_rec.ib_installed_at_location='INSTALL_BASE' THEN
495: IF l_debug_level > 0 THEN
496: OE_DEBUG_PUB.Add('IB validation failed: INSTALLED_AT_LOCATION',3);
497: END IF;
498: x_return_status := FND_API.G_RET_STS_ERROR;
499: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
500: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_Util.Get_Attribute_Name('IB_INSTALLED_AT_LOCATION'));
502: END IF;
503:
504: IF p_line_rec.ib_current_location='INSTALL_BASE' THEN
505: IF l_debug_level > 0 THEN
506: OE_DEBUG_PUB.Add('IB validation failed: IB_CURRENT_LOCATION', 3);
507: END IF;
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: fnd_message.set_name('ONT','OE_INVALID_ATTRIBUTE');
510: FND_MESSAGE.SET_TOKEN('ATTRIBUTE',OE_Order_Util.Get_Attribute_Name('IB_CURRENT_LOCATION'));
517:
518: -- Reconfigure of MACD order after booking is not supported.
519: -- Reconfiguring can be only for a top model line.
520: IF l_debug_level > 0 THEN
521: OE_DEBUG_PUB.Add('Inv Item Id:'||p_line_rec.inventory_item_id,3);
522: OE_DEBUG_PUB.Add('Item:'||p_line_rec.ordered_item,3);
523: OE_DEBUG_PUB.Add('Ord Qty (New):'||p_line_rec.ordered_quantity,3);
524: OE_DEBUG_PUB.Add('Cancelled Flag:'||p_line_rec.cancelled_flag,3);
525: OE_DEBUG_PUB.Add('Cascade Changes:'
518: -- Reconfigure of MACD order after booking is not supported.
519: -- Reconfiguring can be only for a top model line.
520: IF l_debug_level > 0 THEN
521: OE_DEBUG_PUB.Add('Inv Item Id:'||p_line_rec.inventory_item_id,3);
522: OE_DEBUG_PUB.Add('Item:'||p_line_rec.ordered_item,3);
523: OE_DEBUG_PUB.Add('Ord Qty (New):'||p_line_rec.ordered_quantity,3);
524: OE_DEBUG_PUB.Add('Cancelled Flag:'||p_line_rec.cancelled_flag,3);
525: OE_DEBUG_PUB.Add('Cascade Changes:'
526: ||OE_CONFIG_UTIL.Cascade_Changes_Flag,3);
519: -- Reconfiguring can be only for a top model line.
520: IF l_debug_level > 0 THEN
521: OE_DEBUG_PUB.Add('Inv Item Id:'||p_line_rec.inventory_item_id,3);
522: OE_DEBUG_PUB.Add('Item:'||p_line_rec.ordered_item,3);
523: OE_DEBUG_PUB.Add('Ord Qty (New):'||p_line_rec.ordered_quantity,3);
524: OE_DEBUG_PUB.Add('Cancelled Flag:'||p_line_rec.cancelled_flag,3);
525: OE_DEBUG_PUB.Add('Cascade Changes:'
526: ||OE_CONFIG_UTIL.Cascade_Changes_Flag,3);
527: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: No Reconfig of order after booking',3);
520: IF l_debug_level > 0 THEN
521: OE_DEBUG_PUB.Add('Inv Item Id:'||p_line_rec.inventory_item_id,3);
522: OE_DEBUG_PUB.Add('Item:'||p_line_rec.ordered_item,3);
523: OE_DEBUG_PUB.Add('Ord Qty (New):'||p_line_rec.ordered_quantity,3);
524: OE_DEBUG_PUB.Add('Cancelled Flag:'||p_line_rec.cancelled_flag,3);
525: OE_DEBUG_PUB.Add('Cascade Changes:'
526: ||OE_CONFIG_UTIL.Cascade_Changes_Flag,3);
527: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: No Reconfig of order after booking',3);
528: OE_DEBUG_PUB.Add('Booked flag:'||p_line_rec.booked_flag,3);
521: OE_DEBUG_PUB.Add('Inv Item Id:'||p_line_rec.inventory_item_id,3);
522: OE_DEBUG_PUB.Add('Item:'||p_line_rec.ordered_item,3);
523: OE_DEBUG_PUB.Add('Ord Qty (New):'||p_line_rec.ordered_quantity,3);
524: OE_DEBUG_PUB.Add('Cancelled Flag:'||p_line_rec.cancelled_flag,3);
525: OE_DEBUG_PUB.Add('Cascade Changes:'
526: ||OE_CONFIG_UTIL.Cascade_Changes_Flag,3);
527: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: No Reconfig of order after booking',3);
528: OE_DEBUG_PUB.Add('Booked flag:'||p_line_rec.booked_flag,3);
529: OE_DEBUG_PUB.Add('Operation:'||p_line_rec.operation,3);
523: OE_DEBUG_PUB.Add('Ord Qty (New):'||p_line_rec.ordered_quantity,3);
524: OE_DEBUG_PUB.Add('Cancelled Flag:'||p_line_rec.cancelled_flag,3);
525: OE_DEBUG_PUB.Add('Cascade Changes:'
526: ||OE_CONFIG_UTIL.Cascade_Changes_Flag,3);
527: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: No Reconfig of order after booking',3);
528: OE_DEBUG_PUB.Add('Booked flag:'||p_line_rec.booked_flag,3);
529: OE_DEBUG_PUB.Add('Operation:'||p_line_rec.operation,3);
530: OE_DEBUG_PUB.Add('Old Ord Qty:'||p_old_line_rec.ordered_quantity,3);
531: END IF;
524: OE_DEBUG_PUB.Add('Cancelled Flag:'||p_line_rec.cancelled_flag,3);
525: OE_DEBUG_PUB.Add('Cascade Changes:'
526: ||OE_CONFIG_UTIL.Cascade_Changes_Flag,3);
527: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: No Reconfig of order after booking',3);
528: OE_DEBUG_PUB.Add('Booked flag:'||p_line_rec.booked_flag,3);
529: OE_DEBUG_PUB.Add('Operation:'||p_line_rec.operation,3);
530: OE_DEBUG_PUB.Add('Old Ord Qty:'||p_old_line_rec.ordered_quantity,3);
531: END IF;
532:
525: OE_DEBUG_PUB.Add('Cascade Changes:'
526: ||OE_CONFIG_UTIL.Cascade_Changes_Flag,3);
527: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: No Reconfig of order after booking',3);
528: OE_DEBUG_PUB.Add('Booked flag:'||p_line_rec.booked_flag,3);
529: OE_DEBUG_PUB.Add('Operation:'||p_line_rec.operation,3);
530: OE_DEBUG_PUB.Add('Old Ord Qty:'||p_old_line_rec.ordered_quantity,3);
531: END IF;
532:
533: IF NVL(p_line_rec.booked_flag,'N') = 'Y' AND
526: ||OE_CONFIG_UTIL.Cascade_Changes_Flag,3);
527: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: No Reconfig of order after booking',3);
528: OE_DEBUG_PUB.Add('Booked flag:'||p_line_rec.booked_flag,3);
529: OE_DEBUG_PUB.Add('Operation:'||p_line_rec.operation,3);
530: OE_DEBUG_PUB.Add('Old Ord Qty:'||p_old_line_rec.ordered_quantity,3);
531: END IF;
532:
533: IF NVL(p_line_rec.booked_flag,'N') = 'Y' AND
534: (p_line_rec.operation=OE_GLOBALS.G_OPR_CREATE OR
542: ( p_line_rec.ordered_quantity = 0 and nvl(p_line_rec.model_remnant_flag, 'N') = 'Y' ) --OR condition Added for fp bug 5662532
543: THEN
544:
545: IF l_debug_level > 0 THEN
546: OE_DEBUG_PUB.Add('Note: Booked MACD Order Cancel Allowed',3);
547: END IF;
548: ELSE
549: IF p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_INCLUDED THEN
550: Null;
553: FND_MESSAGE.SET_NAME('ONT','ONT_TSO_BOOKED_ORDER');
554: OE_MSG_PUB.Add;
555: END IF;
556: IF l_debug_level > 0 THEN
557: OE_DEBUG_PUB.Add('ERRM: Reconfigure after booking is not supported',3);
558: END IF;
559: END IF;
560:
561: END IF; --booked flag = y
562:
563: --Qty of IB trackable item that is part of container model should not
564: --other than 1 unless it is cancellation, when qty = 0
565: IF l_debug_level > 0 THEN
566: OE_DEBUG_PUB.Add ('VAL_CT_MDL_CHK: Ib trackable component value <> 1',3);
567: END IF;
568: IF (p_line_rec.cancelled_flag = 'Y' AND p_line_rec.ordered_quantity = 0 AND ( OE_CONFIG_UTIL.Cascade_Changes_Flag = 'Y' OR l_top_container_model = 'Y'))
569: OR
570: ( p_line_rec.ordered_quantity = 0 and nvl(p_line_rec.model_remnant_flag, 'N') = 'Y' ) --OR condition Added for fp:bug 5662532
570: ( p_line_rec.ordered_quantity = 0 and nvl(p_line_rec.model_remnant_flag, 'N') = 'Y' ) --OR condition Added for fp:bug 5662532
571:
572: THEN
573: IF l_debug_level > 0 THEN
574: OE_DEBUG_PUB.Add ('Note:Cancellation allowed',1);
575: END IF;
576: ELSE
577: IF l_top_container_model = 'Y' AND p_line_rec.ordered_quantity <> 1 THEN -- 7217602
578:
583: AND organization_id = OE_SYS_PARAMETERS.Value('MASTER_ORGANIZATION_ID');
584:
585: IF l_ib_trackable_flag = 'Y' THEN
586: IF l_debug_level > 0 THEN
587: OE_DEBUG_PUB.Add ('Item is IB trackable',3);
588: OE_DEBUG_PUB.Add('ERRM: IB trackable item Ordered Quantity must be 1 Only',3);
589: END IF;
590: x_return_status := FND_API.G_RET_STS_ERROR;
591: FND_MESSAGE.SET_NAME ('ONT','ONT_TSO_ORD_QTY_NOT_ONE');
584:
585: IF l_ib_trackable_flag = 'Y' THEN
586: IF l_debug_level > 0 THEN
587: OE_DEBUG_PUB.Add ('Item is IB trackable',3);
588: OE_DEBUG_PUB.Add('ERRM: IB trackable item Ordered Quantity must be 1 Only',3);
589: END IF;
590: x_return_status := FND_API.G_RET_STS_ERROR;
591: FND_MESSAGE.SET_NAME ('ONT','ONT_TSO_ORD_QTY_NOT_ONE');
592: OE_MSG_PUB.Add;
591: FND_MESSAGE.SET_NAME ('ONT','ONT_TSO_ORD_QTY_NOT_ONE');
592: OE_MSG_PUB.Add;
593: ELSE
594: IF l_debug_level > 0 THEN
595: OE_DEBUG_PUB.Add('Note: Item not IB trackable',3);
596: OE_DEBUG_PUB.Add('This line qty not restricted to 1',3);
597: END IF;
598: END IF;
599:
592: OE_MSG_PUB.Add;
593: ELSE
594: IF l_debug_level > 0 THEN
595: OE_DEBUG_PUB.Add('Note: Item not IB trackable',3);
596: OE_DEBUG_PUB.Add('This line qty not restricted to 1',3);
597: END IF;
598: END IF;
599:
600: END IF; --ord qty > 1
602:
603: -- Line type change for components of a container model
604: --is not allowed
605: IF l_debug_level > 0 THEN
606: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: line type change for components of container',3);
607: OE_DEBUG_PUB.Add('New line type:'||p_line_rec.line_type_id,3);
608: OE_DEBUG_PUB.Add('Old line type:'||p_old_line_rec.line_type_id,3);
609: OE_DEBUG_PUB.Add('New line operation:'||p_line_rec.operation,3);
610: OE_DEBUG_PUB.Add('OECFG_VALIDATE_CONFIG Flag:'
603: -- Line type change for components of a container model
604: --is not allowed
605: IF l_debug_level > 0 THEN
606: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: line type change for components of container',3);
607: OE_DEBUG_PUB.Add('New line type:'||p_line_rec.line_type_id,3);
608: OE_DEBUG_PUB.Add('Old line type:'||p_old_line_rec.line_type_id,3);
609: OE_DEBUG_PUB.Add('New line operation:'||p_line_rec.operation,3);
610: OE_DEBUG_PUB.Add('OECFG_VALIDATE_CONFIG Flag:'
611: || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG,3);
604: --is not allowed
605: IF l_debug_level > 0 THEN
606: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: line type change for components of container',3);
607: OE_DEBUG_PUB.Add('New line type:'||p_line_rec.line_type_id,3);
608: OE_DEBUG_PUB.Add('Old line type:'||p_old_line_rec.line_type_id,3);
609: OE_DEBUG_PUB.Add('New line operation:'||p_line_rec.operation,3);
610: OE_DEBUG_PUB.Add('OECFG_VALIDATE_CONFIG Flag:'
611: || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG,3);
612: END IF;
605: IF l_debug_level > 0 THEN
606: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: line type change for components of container',3);
607: OE_DEBUG_PUB.Add('New line type:'||p_line_rec.line_type_id,3);
608: OE_DEBUG_PUB.Add('Old line type:'||p_old_line_rec.line_type_id,3);
609: OE_DEBUG_PUB.Add('New line operation:'||p_line_rec.operation,3);
610: OE_DEBUG_PUB.Add('OECFG_VALIDATE_CONFIG Flag:'
611: || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG,3);
612: END IF;
613:
606: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: line type change for components of container',3);
607: OE_DEBUG_PUB.Add('New line type:'||p_line_rec.line_type_id,3);
608: OE_DEBUG_PUB.Add('Old line type:'||p_old_line_rec.line_type_id,3);
609: OE_DEBUG_PUB.Add('New line operation:'||p_line_rec.operation,3);
610: OE_DEBUG_PUB.Add('OECFG_VALIDATE_CONFIG Flag:'
611: || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG,3);
612: END IF;
613:
614: IF (NOT OE_GLOBALS.EQUAL(p_line_rec.line_type_id
621: FND_MESSAGE.SET_NAME ('ONT','ONT_TSO_NO_LINE_TYPE_CHANGE');
622: OE_MSG_PUB.Add;
623:
624: IF l_debug_level > 0 THEN
625: OE_DEBUG_PUB.Add('ERRM: Line Type Change not allowed for MACD orders',3);
626: END IF;
627:
628: END IF;
629:
629:
630: -- Line below top model of the config can be deleted only if
631: -- the line has not changed in CZ
632: IF l_debug_level > 0 THEN
633: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: Del of opt items only if no change in CZ',3);
634: OE_DEBUG_PUB.Add('New line operation:'||p_line_rec.operation,3);
635: OE_DEBUG_PUB.Add('OECFG_VALIDATE_CONFIG Flag:'
636: || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG,3);
637: END IF;
630: -- Line below top model of the config can be deleted only if
631: -- the line has not changed in CZ
632: IF l_debug_level > 0 THEN
633: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: Del of opt items only if no change in CZ',3);
634: OE_DEBUG_PUB.Add('New line operation:'||p_line_rec.operation,3);
635: OE_DEBUG_PUB.Add('OECFG_VALIDATE_CONFIG Flag:'
636: || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG,3);
637: END IF;
638:
631: -- the line has not changed in CZ
632: IF l_debug_level > 0 THEN
633: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: Del of opt items only if no change in CZ',3);
634: OE_DEBUG_PUB.Add('New line operation:'||p_line_rec.operation,3);
635: OE_DEBUG_PUB.Add('OECFG_VALIDATE_CONFIG Flag:'
636: || OE_CONFIG_PVT.OECFG_VALIDATE_CONFIG,3);
637: END IF;
638:
639: IF p_line_rec.operation = OE_GLOBALS.G_OPR_DELETE AND
654: EXCEPTION
655:
656: WHEN NO_DATA_FOUND THEN
657: IF l_debug_level > 0 THEN
658: OE_DEBUG_PUB.Add('ERRM: No Data Found when selecting config delta',3);
659:
660: SELECT description
661: INTO l_description
662: FROM cz_config_details_v cz_czv, mtl_system_items mtl_msi
674: FND_MESSAGE.SET_NAME('ONT','ONT_TSO_DELETE_NOT_ALLOWED');
675: FND_MESSAGE.SET_TOKEN('ITEM_DESCRIPTION',l_description);
676: OE_MSG_PUB.Add;
677: IF l_debug_level > 0 THEN
678: OE_DEBUG_PUB.Add('ERRM: Line changed in CZ, delete not allowed',3);
679: END IF;
680: END IF;
681:
682: END IF; --booked flag = n
688: -- once an item instance has been selected on a line.
689: -- Also, sold_to_org_id on a line holding a reconfigured
690: -- Also item instance cannot be updated
691: IF l_debug_level > 0 THEN
692: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: No change in sold_to_org_id allowed',3);
693: OE_DEBUG_PUB.Add('New line rec sold to:'||p_line_rec.sold_to_org_id,3);
694: OE_DEBUG_PUB.Add('Old line rec sold to:'||p_old_line_rec.sold_to_org_id,3);
695: OE_DEBUG_PUB.Add('New line operation:'||p_line_rec.operation,3);
696: END IF;
689: -- Also, sold_to_org_id on a line holding a reconfigured
690: -- Also item instance cannot be updated
691: IF l_debug_level > 0 THEN
692: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: No change in sold_to_org_id allowed',3);
693: OE_DEBUG_PUB.Add('New line rec sold to:'||p_line_rec.sold_to_org_id,3);
694: OE_DEBUG_PUB.Add('Old line rec sold to:'||p_old_line_rec.sold_to_org_id,3);
695: OE_DEBUG_PUB.Add('New line operation:'||p_line_rec.operation,3);
696: END IF;
697: IF NOT OE_GLOBALS.EQUAL(p_line_rec.sold_to_org_id,
690: -- Also item instance cannot be updated
691: IF l_debug_level > 0 THEN
692: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: No change in sold_to_org_id allowed',3);
693: OE_DEBUG_PUB.Add('New line rec sold to:'||p_line_rec.sold_to_org_id,3);
694: OE_DEBUG_PUB.Add('Old line rec sold to:'||p_old_line_rec.sold_to_org_id,3);
695: OE_DEBUG_PUB.Add('New line operation:'||p_line_rec.operation,3);
696: END IF;
697: IF NOT OE_GLOBALS.EQUAL(p_line_rec.sold_to_org_id,
698: p_old_line_rec.sold_to_org_id) AND
691: IF l_debug_level > 0 THEN
692: OE_DEBUG_PUB.Add('VAL_CT_MDL_CHK: No change in sold_to_org_id allowed',3);
693: OE_DEBUG_PUB.Add('New line rec sold to:'||p_line_rec.sold_to_org_id,3);
694: OE_DEBUG_PUB.Add('Old line rec sold to:'||p_old_line_rec.sold_to_org_id,3);
695: OE_DEBUG_PUB.Add('New line operation:'||p_line_rec.operation,3);
696: END IF;
697: IF NOT OE_GLOBALS.EQUAL(p_line_rec.sold_to_org_id,
698: p_old_line_rec.sold_to_org_id) AND
699: p_line_rec.operation=OE_GLOBALS.G_OPR_UPDATE THEN
703: FND_MESSAGE.SET_NAME('ONT','ONT_TSO_NO_CUSTOMER_CHANGE');
704: OE_MSG_PUB.Add;
705:
706: IF l_debug_level > 0 THEN
707: OE_DEBUG_PUB.Add('ERRM: Customer Change not allowed for MACD orders',3);
708: END IF;
709:
710: END IF;
711:
710: END IF;
711:
712: IF l_debug_level > 0 THEN
713: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
714: OE_DEBUG_PUB.Add('All validations for container model passed',3);
715: ELSE
716: OE_DEBUG_PUB.Add('ERR:Validations violation for container model',3);
717: END IF;
718: END IF;
712: IF l_debug_level > 0 THEN
713: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
714: OE_DEBUG_PUB.Add('All validations for container model passed',3);
715: ELSE
716: OE_DEBUG_PUB.Add('ERR:Validations violation for container model',3);
717: END IF;
718: END IF;
719:
720: Print_Time('Exiting OE_CONFIG_TSO_PVT.Validate_Container_Model...');
722: EXCEPTION
723:
724: WHEN FND_API.G_EXC_ERROR THEN
725: IF l_debug_level > 0 THEN
726: OE_DEBUG_PUB.Add('Expected Error in Validate_Container_Model:'
727: ||sqlerrm,3);
728: END IF;
729: x_return_status := FND_API.G_RET_STS_ERROR;
730:
729: x_return_status := FND_API.G_RET_STS_ERROR;
730:
731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
732: IF l_debug_level > 0 THEN
733: OE_DEBUG_PUB.Add('Unexpected Error Validate_Container_Model:'
734: ||sqlerrm,3);
735: END IF;
736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
737:
737:
738: WHEN OTHERS THEN
739: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
740: IF l_debug_level > 0 THEN
741: OE_DEBUG_PUB.Add('Other error in Validate_Container_Model:'
742: ||sqlerrm,1);
743: END IF;
744: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
745: OE_MSG_PUB.Add_Exc_Msg
812: , x_return_status OUT NOCOPY VARCHAR2
813: )
814: IS
815: l_baseline_rev_nbr NUMBER(9);
816: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
817: l_status VARCHAR2(1);
818: l_ind VARCHAR2(1);
819: l_schema VARCHAR2(30);
820:
827:
828: IF p_top_model_line_id is NOT NULL THEN
829:
830: IF l_debug_level > 0 THEN
831: OE_DEBUG_PUB.Add('using top_model_line_id ' || p_top_model_line_id, 1);
832: END IF;
833:
834: SELECT cz_hdr.baseline_rev_nbr
835: INTO l_baseline_rev_nbr
844: AND cz_hdr.baseline_rev_nbr is not NULL
845: AND rownum = 1;
846:
847: IF l_debug_level > 0 THEN
848: OE_DEBUG_PUB.Add('top model baseline rev exists', 1);
849: END IF;
850:
851: x_config_mode := 3;
852:
865: AND cz_hdr.baseline_rev_nbr is not NULL
866: AND rownum = 1;
867:
868: IF l_debug_level > 0 THEN
869: OE_DEBUG_PUB.Add('111 config delta > 0', 1);
870: END IF;
871:
872: x_config_mode := 4;
873: EXCEPTION
872: x_config_mode := 4;
873: EXCEPTION
874: WHEN no_data_found THEN
875: IF l_debug_level > 0 THEN
876: OE_DEBUG_PUB.Add('no data 111 - no config delta so ib reonfig', 1);
877: END IF;
878: END;
879:
880: IF l_debug_level > 0 THEN
877: END IF;
878: END;
879:
880: IF l_debug_level > 0 THEN
881: OE_DEBUG_PUB.Add('top model x_config_mode ' || x_config_mode, 1);
882: END IF;
883: Print_Time ('Exiting OE_CONFIG_TSO_PVT.Get_MACD_Action_Mode');
884: RETURN;
885:
885:
886: ELSIF p_line_id is NOT NULL THEN
887:
888: IF l_debug_level > 0 THEN
889: OE_DEBUG_PUB.Add('using line_id ' || p_line_id, 1);
890: END IF;
891:
892: SELECT cz_hdr.baseline_rev_nbr
893: INTO l_baseline_rev_nbr
916:
917: x_config_mode := 2;
918:
919: IF l_debug_level > 0 THEN
920: OE_DEBUG_PUB.Add('222 config delta > 0', 1);
921: END IF;
922: EXCEPTION
923: WHEN no_data_found THEN
924: IF l_debug_level > 0 THEN
921: END IF;
922: EXCEPTION
923: WHEN no_data_found THEN
924: IF l_debug_level > 0 THEN
925: OE_DEBUG_PUB.Add('no data 222 - no config delta so ib reonfig', 1);
926: END IF;
927: END;
928:
929:
927: END;
928:
929:
930: IF l_debug_level > 0 THEN
931: OE_DEBUG_PUB.Add('p_line_id x_config_mode ' || x_config_mode, 1);
932: END IF;
933:
934: Print_Time ('Exiting OE_CONFIG_TSO_PVT.Get_MACD_Action_Mode');
935: RETURN;
936:
937: ELSIF p_line_rec.line_id is NOT NULL THEN
938:
939: IF l_debug_level > 0 THEN
940: OE_DEBUG_PUB.Add('using line_rec ' || p_line_rec.line_id, 1);
941: OE_DEBUG_PUB.Add('Config Hdr:'||p_line_rec.config_header_id,1);
942: OE_DEBUG_PUB.Add('Config Rev:'||p_line_rec.config_rev_nbr,1);
943: OE_DEBUG_PUB.Add('Config ID:'||p_line_rec.configuration_id,1);
944: OE_DEBUG_PUB.Add('OrdItem:'||p_line_rec.ordered_item,1);
937: ELSIF p_line_rec.line_id is NOT NULL THEN
938:
939: IF l_debug_level > 0 THEN
940: OE_DEBUG_PUB.Add('using line_rec ' || p_line_rec.line_id, 1);
941: OE_DEBUG_PUB.Add('Config Hdr:'||p_line_rec.config_header_id,1);
942: OE_DEBUG_PUB.Add('Config Rev:'||p_line_rec.config_rev_nbr,1);
943: OE_DEBUG_PUB.Add('Config ID:'||p_line_rec.configuration_id,1);
944: OE_DEBUG_PUB.Add('OrdItem:'||p_line_rec.ordered_item,1);
945: END IF;
938:
939: IF l_debug_level > 0 THEN
940: OE_DEBUG_PUB.Add('using line_rec ' || p_line_rec.line_id, 1);
941: OE_DEBUG_PUB.Add('Config Hdr:'||p_line_rec.config_header_id,1);
942: OE_DEBUG_PUB.Add('Config Rev:'||p_line_rec.config_rev_nbr,1);
943: OE_DEBUG_PUB.Add('Config ID:'||p_line_rec.configuration_id,1);
944: OE_DEBUG_PUB.Add('OrdItem:'||p_line_rec.ordered_item,1);
945: END IF;
946:
939: IF l_debug_level > 0 THEN
940: OE_DEBUG_PUB.Add('using line_rec ' || p_line_rec.line_id, 1);
941: OE_DEBUG_PUB.Add('Config Hdr:'||p_line_rec.config_header_id,1);
942: OE_DEBUG_PUB.Add('Config Rev:'||p_line_rec.config_rev_nbr,1);
943: OE_DEBUG_PUB.Add('Config ID:'||p_line_rec.configuration_id,1);
944: OE_DEBUG_PUB.Add('OrdItem:'||p_line_rec.ordered_item,1);
945: END IF;
946:
947: IF p_line_rec.top_model_line_id is NULL OR
940: OE_DEBUG_PUB.Add('using line_rec ' || p_line_rec.line_id, 1);
941: OE_DEBUG_PUB.Add('Config Hdr:'||p_line_rec.config_header_id,1);
942: OE_DEBUG_PUB.Add('Config Rev:'||p_line_rec.config_rev_nbr,1);
943: OE_DEBUG_PUB.Add('Config ID:'||p_line_rec.configuration_id,1);
944: OE_DEBUG_PUB.Add('OrdItem:'||p_line_rec.ordered_item,1);
945: END IF;
946:
947: IF p_line_rec.top_model_line_id is NULL OR
948: p_line_rec.config_header_id is NULL OR
949: p_line_rec.config_rev_nbr is NULL OR
950: p_line_rec.configuration_id is NULL THEN
951:
952: IF l_debug_level > 0 THEN
953: OE_DEBUG_PUB.Add('ERR: At least one Config keys not present', 1);
954: END IF;
955: x_return_status := FND_API.G_RET_STS_ERROR;
956: x_config_mode := null;
957: Print_Time ('Exiting OE_CONFIG_TSO_PVT.Get_MACD_Action_Mode');
970: AND cz_hdr.config_rev_nbr = czi.instance_rev_nbr
971: AND cz_hdr.baseline_rev_nbr is NOT NULL;
972:
973: IF l_debug_level > 0 THEN
974: OE_DEBUG_PUB.Add('Baseline 2:'||l_baseline_rev_nbr,2);
975: END IF;
976:
977: x_config_mode := 3;
978:
989:
990: x_config_mode := 2;
991:
992: IF l_debug_level > 0 THEN
993: OE_DEBUG_PUB.Add('333 config delta > 0', 1);
994: END IF;
995: EXCEPTION
996: WHEN no_data_found THEN
997: IF l_debug_level > 0 THEN
994: END IF;
995: EXCEPTION
996: WHEN no_data_found THEN
997: IF l_debug_level > 0 THEN
998: OE_DEBUG_PUB.Add('no data 333 - no config delta so ib reonfig', 1);
999: END IF;
1000: x_config_mode := 3;
1001: END;
1002:
1000: x_config_mode := 3;
1001: END;
1002:
1003: IF l_debug_level > 0 THEN
1004: OE_DEBUG_PUB.Add('p_line_rec x_config_mode ' || x_config_mode, 1);
1005: END IF;
1006:
1007: Print_Time ('Exiting OE_CONFIG_TSO_PVT.Get_MACD_Action_Mode');
1008: RETURN;
1011:
1012: EXCEPTION
1013: WHEN NO_DATA_FOUND THEN
1014: IF l_debug_level > 0 THEN
1015: OE_DEBUG_PUB.Add('no data Baseline Rev', 2);
1016: END IF;
1017: l_baseline_rev_nbr := null;
1018: END;
1019:
1018: END;
1019:
1020: IF l_baseline_rev_nbr IS NULL THEN
1021: IF l_debug_level > 0 THEN
1022: OE_DEBUG_PUB.Add('x_config_mode set to 1=new config using CZ',3);
1023: END IF;
1024: x_config_mode := 1;
1025: END IF;
1026:
1028:
1029: EXCEPTION
1030: WHEN OTHERS THEN
1031: IF l_debug_level > 0 THEN
1032: OE_DEBUG_PUB.Add('Other error in Get_MACD_Action_Mode:'||sqlerrm,1);
1033: END IF;
1034:
1035: IF OE_MSG_PUB.Check_Msg_Level (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1036: OE_MSG_PUB.Add_Exc_Msg
1098: l_top_config_header_id NUMBER;
1099: l_top_config_rev_nbr NUMBER;
1100: l_header_id NUMBER;
1101:
1102: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1103: l_description VARCHAR2(240);
1104:
1105:
1106: BEGIN
1117:
1118: IF l_top_container_model='N' OR l_part_of_container='N' THEN
1119:
1120: IF l_debug_level > 0 THEN
1121: OE_DEBUG_PUB.Add('Item not eligible for removal of unchanged lines',3);
1122: END IF;
1123:
1124: x_return_status:=FND_API.G_RET_STS_ERROR;
1125: x_msg_count := 1;
1149: EXIT WHEN C_UNCHANGED_LINES%NOTFOUND;
1150:
1151: l_cursor_count := l_cursor_count + 1;
1152: IF l_debug_level > 0 THEN
1153: OE_DEBUG_PUB.Add('Line Id:'|| l_line_id,5);
1154: OE_DEBUG_PUB.Add('Config Hdr:'||l_config_header_id,5);
1155: OE_DEBUG_PUB.Add('Config Rev Nbr:'||l_config_rev_nbr,5);
1156: OE_DEBUG_PUB.Add('Config ID:'||l_configuration_id,5);
1157: END IF;
1150:
1151: l_cursor_count := l_cursor_count + 1;
1152: IF l_debug_level > 0 THEN
1153: OE_DEBUG_PUB.Add('Line Id:'|| l_line_id,5);
1154: OE_DEBUG_PUB.Add('Config Hdr:'||l_config_header_id,5);
1155: OE_DEBUG_PUB.Add('Config Rev Nbr:'||l_config_rev_nbr,5);
1156: OE_DEBUG_PUB.Add('Config ID:'||l_configuration_id,5);
1157: END IF;
1158:
1151: l_cursor_count := l_cursor_count + 1;
1152: IF l_debug_level > 0 THEN
1153: OE_DEBUG_PUB.Add('Line Id:'|| l_line_id,5);
1154: OE_DEBUG_PUB.Add('Config Hdr:'||l_config_header_id,5);
1155: OE_DEBUG_PUB.Add('Config Rev Nbr:'||l_config_rev_nbr,5);
1156: OE_DEBUG_PUB.Add('Config ID:'||l_configuration_id,5);
1157: END IF;
1158:
1159: Print_Time('Calling CZ_PUB.Ext_deactivate_item at: ');
1152: IF l_debug_level > 0 THEN
1153: OE_DEBUG_PUB.Add('Line Id:'|| l_line_id,5);
1154: OE_DEBUG_PUB.Add('Config Hdr:'||l_config_header_id,5);
1155: OE_DEBUG_PUB.Add('Config Rev Nbr:'||l_config_rev_nbr,5);
1156: OE_DEBUG_PUB.Add('Config ID:'||l_configuration_id,5);
1157: END IF;
1158:
1159: Print_Time('Calling CZ_PUB.Ext_deactivate_item at: ');
1160:
1169:
1170: Print_Time('Return from CZ_PUB.Ext_Deactivate_item at: ');
1171:
1172: IF l_debug_level > 0 THEN
1173: OE_DEBUG_PUB.Add('After Calling CZ_NETWORK_API_PUB.'
1174: ||'Ext_Deactivate_Item:'||x_return_status,3);
1175: END IF;
1176:
1177: IF x_return_status=FND_API.G_RET_STS_ERROR THEN
1193: FROM oe_order_lines oe_l
1194: WHERE oe_l.line_id = p_top_model_line_id;
1195:
1196: IF l_debug_level > 0 THEN
1197: OE_DEBUG_PUB.Add('Unchanged Lines Count:'||l_cursor_count,3);
1198: OE_DEBUG_PUB.Add('Header Id:'||l_header_id,3);
1199: OE_DEBUG_PUB.Add('Config Hdr:'||l_top_config_header_id,3);
1200: OE_DEBUG_PUB.Add('Config Rev Number:'||l_top_config_rev_nbr,3);
1201: END IF;
1194: WHERE oe_l.line_id = p_top_model_line_id;
1195:
1196: IF l_debug_level > 0 THEN
1197: OE_DEBUG_PUB.Add('Unchanged Lines Count:'||l_cursor_count,3);
1198: OE_DEBUG_PUB.Add('Header Id:'||l_header_id,3);
1199: OE_DEBUG_PUB.Add('Config Hdr:'||l_top_config_header_id,3);
1200: OE_DEBUG_PUB.Add('Config Rev Number:'||l_top_config_rev_nbr,3);
1201: END IF;
1202:
1195:
1196: IF l_debug_level > 0 THEN
1197: OE_DEBUG_PUB.Add('Unchanged Lines Count:'||l_cursor_count,3);
1198: OE_DEBUG_PUB.Add('Header Id:'||l_header_id,3);
1199: OE_DEBUG_PUB.Add('Config Hdr:'||l_top_config_header_id,3);
1200: OE_DEBUG_PUB.Add('Config Rev Number:'||l_top_config_rev_nbr,3);
1201: END IF;
1202:
1203: -- Delete/Cancel the Model lines which hold unchanged
1196: IF l_debug_level > 0 THEN
1197: OE_DEBUG_PUB.Add('Unchanged Lines Count:'||l_cursor_count,3);
1198: OE_DEBUG_PUB.Add('Header Id:'||l_header_id,3);
1199: OE_DEBUG_PUB.Add('Config Hdr:'||l_top_config_header_id,3);
1200: OE_DEBUG_PUB.Add('Config Rev Number:'||l_top_config_rev_nbr,3);
1201: END IF;
1202:
1203: -- Delete/Cancel the Model lines which hold unchanged
1204: -- MACD components
1202:
1203: -- Delete/Cancel the Model lines which hold unchanged
1204: -- MACD components
1205: IF l_debug_level > 0 THEN
1206: OE_DEBUG_PUB.Add('Before Calling Process_Config..header_id:'
1207: ||l_header_id,3);
1208: END IF;
1209:
1210: OE_CONFIG_PVT.Process_Config
1218: ,x_msg_data => x_msg_data
1219: ,x_return_status => x_return_status );
1220:
1221: IF l_debug_level > 0 THEN
1222: OE_DEBUG_PUB.Add('After Calling Process_Config..'
1223: ||x_return_status,3);
1224: END IF;
1225:
1226: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1229: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1230: END IF;
1231: ELSE
1232: IF l_debug_level > 0 THEN
1233: OE_DEBUG_PUB.Add ('Csr Count 0. Skip OE_CONFIG_PVT.Process_Config',1);
1234: END IF;
1235: END IF;
1236: Print_Time('Exiting OE_CONFIG_TSO_PVT.Remove_Unchanged_Lines...');
1237:
1238: EXCEPTION
1239:
1240: WHEN FND_API.G_EXC_ERROR THEN
1241: IF l_debug_level > 0 THEN
1242: OE_DEBUG_PUB.Add('Expected Error in Remove_Unchanged_Lines:'
1243: ||sqlerrm, 2);
1244: END IF;
1245: x_return_status := FND_API.G_RET_STS_ERROR;
1246:
1245: x_return_status := FND_API.G_RET_STS_ERROR;
1246:
1247: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1248: IF l_debug_level > 0 THEN
1249: OE_DEBUG_PUB.Add('Unexpected Error in Remove_unchanged_Lines:'
1250: ||sqlerrm, 1);
1251: END IF;
1252: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1253:
1253:
1254: WHEN OTHERS THEN
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: IF l_debug_level > 0 THEN
1257: OE_DEBUG_PUB.Add('Other error in Remove_Unchanged_Lines:'
1258: ||sqlerrm,1);
1259: END IF;
1260: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1261: OE_MSG_PUB.Add_Exc_Msg
1305: WHERE header_id = p_header_id
1306: AND top_model_line_id IS NOT NULL
1307: AND line_id = top_model_line_id;
1308:
1309: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1310:
1311: BEGIN
1312:
1313: Print_Time('Entering OE_CONFIG_TSO_PVT.Remove_Unchanged_Components...');
1316: --{ bug3611488 starts
1317: IF p_top_model_line_id IS NOT NULL THEN
1318:
1319: IF l_debug_level > 0 THEN
1320: OE_DEBUG_PUB.Add('This call made from Lines Block',3);
1321: OE_DEBUG_PUB.Add('Calling Remove_Unchanged_Lines with...',3);
1322: OE_DEBUG_PUB.Add('HeaderID:'||p_header_id,3);
1323: OE_DEBUG_PUB.Add('LineID:'||p_line_id,3);
1324: OE_DEBUG_PUB.Add('TopModel:'||p_top_model_line_id,3);
1317: IF p_top_model_line_id IS NOT NULL THEN
1318:
1319: IF l_debug_level > 0 THEN
1320: OE_DEBUG_PUB.Add('This call made from Lines Block',3);
1321: OE_DEBUG_PUB.Add('Calling Remove_Unchanged_Lines with...',3);
1322: OE_DEBUG_PUB.Add('HeaderID:'||p_header_id,3);
1323: OE_DEBUG_PUB.Add('LineID:'||p_line_id,3);
1324: OE_DEBUG_PUB.Add('TopModel:'||p_top_model_line_id,3);
1325: END IF;
1318:
1319: IF l_debug_level > 0 THEN
1320: OE_DEBUG_PUB.Add('This call made from Lines Block',3);
1321: OE_DEBUG_PUB.Add('Calling Remove_Unchanged_Lines with...',3);
1322: OE_DEBUG_PUB.Add('HeaderID:'||p_header_id,3);
1323: OE_DEBUG_PUB.Add('LineID:'||p_line_id,3);
1324: OE_DEBUG_PUB.Add('TopModel:'||p_top_model_line_id,3);
1325: END IF;
1326:
1319: IF l_debug_level > 0 THEN
1320: OE_DEBUG_PUB.Add('This call made from Lines Block',3);
1321: OE_DEBUG_PUB.Add('Calling Remove_Unchanged_Lines with...',3);
1322: OE_DEBUG_PUB.Add('HeaderID:'||p_header_id,3);
1323: OE_DEBUG_PUB.Add('LineID:'||p_line_id,3);
1324: OE_DEBUG_PUB.Add('TopModel:'||p_top_model_line_id,3);
1325: END IF;
1326:
1327: OE_CONFIG_TSO_PVT.Remove_Unchanged_Lines
1320: OE_DEBUG_PUB.Add('This call made from Lines Block',3);
1321: OE_DEBUG_PUB.Add('Calling Remove_Unchanged_Lines with...',3);
1322: OE_DEBUG_PUB.Add('HeaderID:'||p_header_id,3);
1323: OE_DEBUG_PUB.Add('LineID:'||p_line_id,3);
1324: OE_DEBUG_PUB.Add('TopModel:'||p_top_model_line_id,3);
1325: END IF;
1326:
1327: OE_CONFIG_TSO_PVT.Remove_Unchanged_Lines
1328: ( p_top_model_line_id => p_top_model_line_id
1333: ,x_return_status => x_return_status );
1334:
1335: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1336: IF l_debug_level > 0 THEN
1337: OE_DEBUG_PUB.Add ('Error in Remove_Unchanged_Lines!',3);
1338: END IF;
1339: END IF;
1340:
1341: ELSE --bug3611488 ends }
1340:
1341: ELSE --bug3611488 ends }
1342:
1343: IF l_debug_level > 0 THEN
1344: OE_DEBUG_PUB.Add('This call made from Header block',3);
1345: OE_DEBUG_PUB.Add('Header ID:'||p_header_id,3);
1346: END IF;
1347:
1348: FOR c_top_model IN C_TOP_MODELS LOOP
1341: ELSE --bug3611488 ends }
1342:
1343: IF l_debug_level > 0 THEN
1344: OE_DEBUG_PUB.Add('This call made from Header block',3);
1345: OE_DEBUG_PUB.Add('Header ID:'||p_header_id,3);
1346: END IF;
1347:
1348: FOR c_top_model IN C_TOP_MODELS LOOP
1349:
1347:
1348: FOR c_top_model IN C_TOP_MODELS LOOP
1349:
1350: IF l_debug_level > 0 THEN
1351: OE_DEBUG_PUB.Add('Calling Remove_Unchanged_lines with...',3);
1352: OE_DEBUG_PUB.Add('Line id:'||c_top_model.line_id,3);
1353: OE_DEBUG_PUB.Add('Top Model:'||c_top_model.top_model_line_id,3);
1354: END IF;
1355:
1348: FOR c_top_model IN C_TOP_MODELS LOOP
1349:
1350: IF l_debug_level > 0 THEN
1351: OE_DEBUG_PUB.Add('Calling Remove_Unchanged_lines with...',3);
1352: OE_DEBUG_PUB.Add('Line id:'||c_top_model.line_id,3);
1353: OE_DEBUG_PUB.Add('Top Model:'||c_top_model.top_model_line_id,3);
1354: END IF;
1355:
1356: OE_CONFIG_TSO_PVT.Remove_Unchanged_Lines
1349:
1350: IF l_debug_level > 0 THEN
1351: OE_DEBUG_PUB.Add('Calling Remove_Unchanged_lines with...',3);
1352: OE_DEBUG_PUB.Add('Line id:'||c_top_model.line_id,3);
1353: OE_DEBUG_PUB.Add('Top Model:'||c_top_model.top_model_line_id,3);
1354: END IF;
1355:
1356: OE_CONFIG_TSO_PVT.Remove_Unchanged_Lines
1357: ( p_top_model_line_id => c_top_model.top_model_line_id
1362: ,x_return_status => x_return_status );
1363:
1364: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1365: IF l_debug_level > 0 THEN
1366: OE_DEBUG_PUB.Add('ERROR during Remove_Unchanged_Lines!',3);
1367: END IF;
1368: END IF;
1369:
1370: END LOOP;
1420: l_old_behavior VARCHAR2(1);
1421: l_frozen_model_bill VARCHAR2(1);
1422: l_top_container_model VARCHAR2(1);
1423: l_config_mode VARCHAR2(1);
1424: l_debug_level NUMBER; -- := oe_debug_pub.g_debug_level;
1425: l_header_id NUMBER;
1426: l_model_inv_item_id NUMBER;
1427: l_config_header_id NUMBER;
1428: l_config_rev_nbr NUMBER;
1435: l_instance_tbl csi_datastructures_pub.instance_cz_tbl;
1436: BEGIN
1437:
1438: Print_Time ('Entering OE_CONFIG_TSO_PVT.populate_tso_order_lines...');
1439: l_debug_level := oe_debug_pub.g_debug_level;
1440:
1441: IF l_debug_level > 0 THEN
1442: OE_DEBUG_PUB.Add('Top Model Line id:'||p_top_model_line_id,3);
1443: OE_DEBUG_PUB.Add('Instance Tbl Count:'||p_instance_tbl.count);
1438: Print_Time ('Entering OE_CONFIG_TSO_PVT.populate_tso_order_lines...');
1439: l_debug_level := oe_debug_pub.g_debug_level;
1440:
1441: IF l_debug_level > 0 THEN
1442: OE_DEBUG_PUB.Add('Top Model Line id:'||p_top_model_line_id,3);
1443: OE_DEBUG_PUB.Add('Instance Tbl Count:'||p_instance_tbl.count);
1444: END IF;
1445:
1446:
1439: l_debug_level := oe_debug_pub.g_debug_level;
1440:
1441: IF l_debug_level > 0 THEN
1442: OE_DEBUG_PUB.Add('Top Model Line id:'||p_top_model_line_id,3);
1443: OE_DEBUG_PUB.Add('Instance Tbl Count:'||p_instance_tbl.count);
1444: END IF;
1445:
1446:
1447: IF l_debug_level > 0 THEN
1445:
1446:
1447: IF l_debug_level > 0 THEN
1448: FOR I in p_instance_tbl.first..p_instance_tbl.last LOOP
1449: OE_DEBUG_PUB.Add
1450: ('inst hdr : '|| p_instance_tbl(I).config_instance_hdr_id,3);
1451: OE_DEBUG_PUB.Add
1452: ('inst rev : '|| p_instance_tbl(I).config_Instance_rev_number);
1453: OE_DEBUG_PUB.Add
1447: IF l_debug_level > 0 THEN
1448: FOR I in p_instance_tbl.first..p_instance_tbl.last LOOP
1449: OE_DEBUG_PUB.Add
1450: ('inst hdr : '|| p_instance_tbl(I).config_instance_hdr_id,3);
1451: OE_DEBUG_PUB.Add
1452: ('inst rev : '|| p_instance_tbl(I).config_Instance_rev_number);
1453: OE_DEBUG_PUB.Add
1454: ('inst item: '|| p_instance_tbl(I).config_instance_item_id);
1455: OE_DEBUG_PUB.Add
1449: OE_DEBUG_PUB.Add
1450: ('inst hdr : '|| p_instance_tbl(I).config_instance_hdr_id,3);
1451: OE_DEBUG_PUB.Add
1452: ('inst rev : '|| p_instance_tbl(I).config_Instance_rev_number);
1453: OE_DEBUG_PUB.Add
1454: ('inst item: '|| p_instance_tbl(I).config_instance_item_id);
1455: OE_DEBUG_PUB.Add
1456: ('ship to : '|| p_instance_tbl(I).ship_to_site_use_id);
1457: OE_DEBUG_PUB.Add
1451: OE_DEBUG_PUB.Add
1452: ('inst rev : '|| p_instance_tbl(I).config_Instance_rev_number);
1453: OE_DEBUG_PUB.Add
1454: ('inst item: '|| p_instance_tbl(I).config_instance_item_id);
1455: OE_DEBUG_PUB.Add
1456: ('ship to : '|| p_instance_tbl(I).ship_to_site_use_id);
1457: OE_DEBUG_PUB.Add
1458: ('bill to : '|| p_instance_tbl(I).bill_to_site_use_id);
1459: END LOOP;
1453: OE_DEBUG_PUB.Add
1454: ('inst item: '|| p_instance_tbl(I).config_instance_item_id);
1455: OE_DEBUG_PUB.Add
1456: ('ship to : '|| p_instance_tbl(I).ship_to_site_use_id);
1457: OE_DEBUG_PUB.Add
1458: ('bill to : '|| p_instance_tbl(I).bill_to_site_use_id);
1459: END LOOP;
1460: oe_debug_pub.add('after the loop',2);
1461: END IF;
1456: ('ship to : '|| p_instance_tbl(I).ship_to_site_use_id);
1457: OE_DEBUG_PUB.Add
1458: ('bill to : '|| p_instance_tbl(I).bill_to_site_use_id);
1459: END LOOP;
1460: oe_debug_pub.add('after the loop',2);
1461: END IF;
1462:
1463: --IF the ship_to_site_use_id and bill_to_site_use_id has NULL value
1464: --for all records returned by IB, we remember this and pass the
1472: p_instance_tbl(I).bill_to_site_use_id IS NOT NULL THEN
1473:
1474: l_instance_tbl := p_instance_tbl;
1475: IF l_debug_level > 0 THEN
1476: OE_DEBUG_PUB.Add('MACD: Instance table has values',3);
1477: OE_DEBUG_PUB.Add('Breaking out of loop with table copy',3);
1478: END IF;
1479: EXIT; --copied table so break out of loop
1480: END IF;
1473:
1474: l_instance_tbl := p_instance_tbl;
1475: IF l_debug_level > 0 THEN
1476: OE_DEBUG_PUB.Add('MACD: Instance table has values',3);
1477: OE_DEBUG_PUB.Add('Breaking out of loop with table copy',3);
1478: END IF;
1479: EXIT; --copied table so break out of loop
1480: END IF;
1481:
1480: END IF;
1481:
1482: END LOOP;
1483:
1484: oe_debug_pub.add('after the second loop',2);
1485:
1486: IF p_top_model_line_id IS NOT NULL THEN
1487: BEGIN
1488: SELECT 'A'
1504: l_config_mode := 'R';
1505: END IF;
1506:
1507: IF l_debug_level > 0 THEN
1508: OE_DEBUG_PUB.Add('Config Mode is:'||l_config_mode,3);
1509: END IF;
1510:
1511:
1512: IF p_top_model_line_id IS NOT NULL THEN
1521: FROM oe_order_lines
1522: WHERE line_id = p_top_model_line_id;
1523: EXCEPTION
1524: WHEN OTHERS THEN
1525: oe_debug_pub.add('Other exception in select from oe-order_lines',3);
1526: END;
1527:
1528: IF l_debug_level > 0 THEN
1529: oe_debug_pub.add('RMV: After select from order_lines...',3);
1525: oe_debug_pub.add('Other exception in select from oe-order_lines',3);
1526: END;
1527:
1528: IF l_debug_level > 0 THEN
1529: oe_debug_pub.add('RMV: After select from order_lines...',3);
1530: oe_debug_pub.add('RMV: Creat date is '||l_config_creation_date,3);
1531: OE_DEBUG_PUB.Add('Before calling Get_Config_Effective_Date.',3);
1532: END IF;
1533:
1526: END;
1527:
1528: IF l_debug_level > 0 THEN
1529: oe_debug_pub.add('RMV: After select from order_lines...',3);
1530: oe_debug_pub.add('RMV: Creat date is '||l_config_creation_date,3);
1531: OE_DEBUG_PUB.Add('Before calling Get_Config_Effective_Date.',3);
1532: END IF;
1533:
1534: OE_CONFIG_UTIL.Get_Config_Effective_Date
1527:
1528: IF l_debug_level > 0 THEN
1529: oe_debug_pub.add('RMV: After select from order_lines...',3);
1530: oe_debug_pub.add('RMV: Creat date is '||l_config_creation_date,3);
1531: OE_DEBUG_PUB.Add('Before calling Get_Config_Effective_Date.',3);
1532: END IF;
1533:
1534: OE_CONFIG_UTIL.Get_Config_Effective_Date
1535: ( p_model_line_id => p_top_model_line_id
1537: ,x_config_effective_date => l_config_date
1538: ,x_frozen_model_bill => l_frozen_model_bill );
1539:
1540: IF l_debug_level > 0 THEN
1541: OE_DEBUG_PUB.Add('Finished Get_Config_Effective_Date.',3);
1542: oe_debug_pub.add('Old behav:'||l_old_behavior,3);
1543: oe_debug_pub.add('Config eff date:'||l_config_date,3);
1544: oe_debug_pub.add('Frozen:'||l_frozen_model_bill,3);
1545: END IF;
1538: ,x_frozen_model_bill => l_frozen_model_bill );
1539:
1540: IF l_debug_level > 0 THEN
1541: OE_DEBUG_PUB.Add('Finished Get_Config_Effective_Date.',3);
1542: oe_debug_pub.add('Old behav:'||l_old_behavior,3);
1543: oe_debug_pub.add('Config eff date:'||l_config_date,3);
1544: oe_debug_pub.add('Frozen:'||l_frozen_model_bill,3);
1545: END IF;
1546:
1539:
1540: IF l_debug_level > 0 THEN
1541: OE_DEBUG_PUB.Add('Finished Get_Config_Effective_Date.',3);
1542: oe_debug_pub.add('Old behav:'||l_old_behavior,3);
1543: oe_debug_pub.add('Config eff date:'||l_config_date,3);
1544: oe_debug_pub.add('Frozen:'||l_frozen_model_bill,3);
1545: END IF;
1546:
1547: IF l_old_behavior = 'N' THEN
1540: IF l_debug_level > 0 THEN
1541: OE_DEBUG_PUB.Add('Finished Get_Config_Effective_Date.',3);
1542: oe_debug_pub.add('Old behav:'||l_old_behavior,3);
1543: oe_debug_pub.add('Config eff date:'||l_config_date,3);
1544: oe_debug_pub.add('Frozen:'||l_frozen_model_bill,3);
1545: END IF;
1546:
1547: IF l_old_behavior = 'N' THEN
1548: l_config_effective_date := l_config_date;
1580: l_appl_param_rec.calling_application_id := 660; ---added for bug 14161644
1581:
1582:
1583: IF l_debug_level > 0 THEN
1584: OE_DEBUG_PUB.Add('Config Create Date: '
1585: || l_appl_param_rec.config_creation_date,1);
1586: OE_DEBUG_PUB.Add('Config Effective Date: '
1587: || l_appl_param_rec.config_effective_date,1);
1588: OE_DEBUG_PUB.Add('Model Lookup Date: '
1582:
1583: IF l_debug_level > 0 THEN
1584: OE_DEBUG_PUB.Add('Config Create Date: '
1585: || l_appl_param_rec.config_creation_date,1);
1586: OE_DEBUG_PUB.Add('Config Effective Date: '
1587: || l_appl_param_rec.config_effective_date,1);
1588: OE_DEBUG_PUB.Add('Model Lookup Date: '
1589: || l_appl_param_rec.config_model_lookup_date,1);
1590: OE_DEBUG_PUB.Add('appl id: '
1584: OE_DEBUG_PUB.Add('Config Create Date: '
1585: || l_appl_param_rec.config_creation_date,1);
1586: OE_DEBUG_PUB.Add('Config Effective Date: '
1587: || l_appl_param_rec.config_effective_date,1);
1588: OE_DEBUG_PUB.Add('Model Lookup Date: '
1589: || l_appl_param_rec.config_model_lookup_date,1);
1590: OE_DEBUG_PUB.Add('appl id: '
1591: || l_appl_param_rec.calling_application_id,1);
1592: END IF;
1586: OE_DEBUG_PUB.Add('Config Effective Date: '
1587: || l_appl_param_rec.config_effective_date,1);
1588: OE_DEBUG_PUB.Add('Model Lookup Date: '
1589: || l_appl_param_rec.config_model_lookup_date,1);
1590: OE_DEBUG_PUB.Add('appl id: '
1591: || l_appl_param_rec.calling_application_id,1);
1592: END IF;
1593:
1594: --IF p_mode = 1 THEN
1612: Print_Time('After CZ_PUB.Generate_Config_Trees:'||x_return_status);
1613:
1614: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1615: IF l_debug_level >0 THEN
1616: OE_DEBUG_PUB.Add('Error in Generate_Config_Trees',2);
1617: END IF;
1618: RAISE FND_API.G_EXC_ERROR;
1619: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1620: IF l_debug_level > 0 THEN
1617: END IF;
1618: RAISE FND_API.G_EXC_ERROR;
1619: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1620: IF l_debug_level > 0 THEN
1621: OE_DEBUG_PUB.Add('Unexpected Error in Gen_Config_trees',1);
1622: END IF;
1623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1624: END IF;
1625:
1651: END IF;
1652: END LOOP;
1653:
1654: IF l_debug_level > 0 THEN
1655: OE_DEBUG_PUB.Add('Before Calling OE_CONFIG_PVT.Call_Process_Order',3);
1656: oe_debug_pub.add('--------------------------------------');
1657: oe_debug_pub.add('Line_Tbl being pased to Call_Process_Order is...');
1658:
1659: FOR I in 1..l_line_tbl.count LOOP
1652: END LOOP;
1653:
1654: IF l_debug_level > 0 THEN
1655: OE_DEBUG_PUB.Add('Before Calling OE_CONFIG_PVT.Call_Process_Order',3);
1656: oe_debug_pub.add('--------------------------------------');
1657: oe_debug_pub.add('Line_Tbl being pased to Call_Process_Order is...');
1658:
1659: FOR I in 1..l_line_tbl.count LOOP
1660: oe_debug_pub.add('Row #'||I);
1653:
1654: IF l_debug_level > 0 THEN
1655: OE_DEBUG_PUB.Add('Before Calling OE_CONFIG_PVT.Call_Process_Order',3);
1656: oe_debug_pub.add('--------------------------------------');
1657: oe_debug_pub.add('Line_Tbl being pased to Call_Process_Order is...');
1658:
1659: FOR I in 1..l_line_tbl.count LOOP
1660: oe_debug_pub.add('Row #'||I);
1661: oe_debug_pub.add('Hdr id:'||l_line_tbl(I).header_id);
1656: oe_debug_pub.add('--------------------------------------');
1657: oe_debug_pub.add('Line_Tbl being pased to Call_Process_Order is...');
1658:
1659: FOR I in 1..l_line_tbl.count LOOP
1660: oe_debug_pub.add('Row #'||I);
1661: oe_debug_pub.add('Hdr id:'||l_line_tbl(I).header_id);
1662: oe_debug_pub.add('Inv item id:'||l_line_tbl(I).inventory_item_id);
1663: oe_debug_pub.add('Org:'||l_line_tbl(I).org_id);
1664: oe_debug_pub.add('ConfigHdr id:'||l_line_tbl(I).config_header_id);
1657: oe_debug_pub.add('Line_Tbl being pased to Call_Process_Order is...');
1658:
1659: FOR I in 1..l_line_tbl.count LOOP
1660: oe_debug_pub.add('Row #'||I);
1661: oe_debug_pub.add('Hdr id:'||l_line_tbl(I).header_id);
1662: oe_debug_pub.add('Inv item id:'||l_line_tbl(I).inventory_item_id);
1663: oe_debug_pub.add('Org:'||l_line_tbl(I).org_id);
1664: oe_debug_pub.add('ConfigHdr id:'||l_line_tbl(I).config_header_id);
1665: oe_debug_pub.add('Config Rev:'||l_line_tbl(I).config_rev_nbr);
1658:
1659: FOR I in 1..l_line_tbl.count LOOP
1660: oe_debug_pub.add('Row #'||I);
1661: oe_debug_pub.add('Hdr id:'||l_line_tbl(I).header_id);
1662: oe_debug_pub.add('Inv item id:'||l_line_tbl(I).inventory_item_id);
1663: oe_debug_pub.add('Org:'||l_line_tbl(I).org_id);
1664: oe_debug_pub.add('ConfigHdr id:'||l_line_tbl(I).config_header_id);
1665: oe_debug_pub.add('Config Rev:'||l_line_tbl(I).config_rev_nbr);
1666: oe_debug_pub.add('ConfID:'||l_line_tbl(I).configuration_id);
1659: FOR I in 1..l_line_tbl.count LOOP
1660: oe_debug_pub.add('Row #'||I);
1661: oe_debug_pub.add('Hdr id:'||l_line_tbl(I).header_id);
1662: oe_debug_pub.add('Inv item id:'||l_line_tbl(I).inventory_item_id);
1663: oe_debug_pub.add('Org:'||l_line_tbl(I).org_id);
1664: oe_debug_pub.add('ConfigHdr id:'||l_line_tbl(I).config_header_id);
1665: oe_debug_pub.add('Config Rev:'||l_line_tbl(I).config_rev_nbr);
1666: oe_debug_pub.add('ConfID:'||l_line_tbl(I).configuration_id);
1667: oe_debug_pub.add('Ord qty:'||l_line_tbl(I).ordered_quantity);
1660: oe_debug_pub.add('Row #'||I);
1661: oe_debug_pub.add('Hdr id:'||l_line_tbl(I).header_id);
1662: oe_debug_pub.add('Inv item id:'||l_line_tbl(I).inventory_item_id);
1663: oe_debug_pub.add('Org:'||l_line_tbl(I).org_id);
1664: oe_debug_pub.add('ConfigHdr id:'||l_line_tbl(I).config_header_id);
1665: oe_debug_pub.add('Config Rev:'||l_line_tbl(I).config_rev_nbr);
1666: oe_debug_pub.add('ConfID:'||l_line_tbl(I).configuration_id);
1667: oe_debug_pub.add('Ord qty:'||l_line_tbl(I).ordered_quantity);
1668: oe_debug_pub.add('LineID:'||l_line_tbl(I).line_id);
1661: oe_debug_pub.add('Hdr id:'||l_line_tbl(I).header_id);
1662: oe_debug_pub.add('Inv item id:'||l_line_tbl(I).inventory_item_id);
1663: oe_debug_pub.add('Org:'||l_line_tbl(I).org_id);
1664: oe_debug_pub.add('ConfigHdr id:'||l_line_tbl(I).config_header_id);
1665: oe_debug_pub.add('Config Rev:'||l_line_tbl(I).config_rev_nbr);
1666: oe_debug_pub.add('ConfID:'||l_line_tbl(I).configuration_id);
1667: oe_debug_pub.add('Ord qty:'||l_line_tbl(I).ordered_quantity);
1668: oe_debug_pub.add('LineID:'||l_line_tbl(I).line_id);
1669: oe_debug_pub.add('Oper:'||l_line_tbl(I).operation);
1662: oe_debug_pub.add('Inv item id:'||l_line_tbl(I).inventory_item_id);
1663: oe_debug_pub.add('Org:'||l_line_tbl(I).org_id);
1664: oe_debug_pub.add('ConfigHdr id:'||l_line_tbl(I).config_header_id);
1665: oe_debug_pub.add('Config Rev:'||l_line_tbl(I).config_rev_nbr);
1666: oe_debug_pub.add('ConfID:'||l_line_tbl(I).configuration_id);
1667: oe_debug_pub.add('Ord qty:'||l_line_tbl(I).ordered_quantity);
1668: oe_debug_pub.add('LineID:'||l_line_tbl(I).line_id);
1669: oe_debug_pub.add('Oper:'||l_line_tbl(I).operation);
1670: END LOOP;
1663: oe_debug_pub.add('Org:'||l_line_tbl(I).org_id);
1664: oe_debug_pub.add('ConfigHdr id:'||l_line_tbl(I).config_header_id);
1665: oe_debug_pub.add('Config Rev:'||l_line_tbl(I).config_rev_nbr);
1666: oe_debug_pub.add('ConfID:'||l_line_tbl(I).configuration_id);
1667: oe_debug_pub.add('Ord qty:'||l_line_tbl(I).ordered_quantity);
1668: oe_debug_pub.add('LineID:'||l_line_tbl(I).line_id);
1669: oe_debug_pub.add('Oper:'||l_line_tbl(I).operation);
1670: END LOOP;
1671:
1664: oe_debug_pub.add('ConfigHdr id:'||l_line_tbl(I).config_header_id);
1665: oe_debug_pub.add('Config Rev:'||l_line_tbl(I).config_rev_nbr);
1666: oe_debug_pub.add('ConfID:'||l_line_tbl(I).configuration_id);
1667: oe_debug_pub.add('Ord qty:'||l_line_tbl(I).ordered_quantity);
1668: oe_debug_pub.add('LineID:'||l_line_tbl(I).line_id);
1669: oe_debug_pub.add('Oper:'||l_line_tbl(I).operation);
1670: END LOOP;
1671:
1672: oe_debug_pub.add('-------------------------------------');
1665: oe_debug_pub.add('Config Rev:'||l_line_tbl(I).config_rev_nbr);
1666: oe_debug_pub.add('ConfID:'||l_line_tbl(I).configuration_id);
1667: oe_debug_pub.add('Ord qty:'||l_line_tbl(I).ordered_quantity);
1668: oe_debug_pub.add('LineID:'||l_line_tbl(I).line_id);
1669: oe_debug_pub.add('Oper:'||l_line_tbl(I).operation);
1670: END LOOP;
1671:
1672: oe_debug_pub.add('-------------------------------------');
1673: END IF;
1668: oe_debug_pub.add('LineID:'||l_line_tbl(I).line_id);
1669: oe_debug_pub.add('Oper:'||l_line_tbl(I).operation);
1670: END LOOP;
1671:
1672: oe_debug_pub.add('-------------------------------------');
1673: END IF;
1674:
1675: OE_CONFIG_PVT.Call_Process_Order
1676: ( p_line_tbl => l_line_tbl
1678: ,p_ui_flag => 'Y'
1679: ,x_return_status => x_return_status );
1680:
1681: IF l_debug_level > 0 THEN
1682: OE_DEBUG_PUB.Add('After Calling Process Order:'
1683: ||x_return_status,3);
1684: END IF;
1685:
1686: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1684: END IF;
1685:
1686: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1687: IF l_debug_level > 0 THEN
1688: OE_DEBUG_PUB.Add('Error in Process Order.',2);
1689: END IF;
1690: RAISE FND_API.G_EXC_ERROR;
1691: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1692: IF l_debug_level > 0 THEN
1689: END IF;
1690: RAISE FND_API.G_EXC_ERROR;
1691: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1692: IF l_debug_level > 0 THEN
1693: OE_DEBUG_PUB.Add('Unexpected Error in Process order.',1);
1694: END IF;
1695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1696: END IF;
1697:
1698: ------------------now create child lines-------------------
1699: FOR I IN 1..l_line_tbl.count LOOP
1700:
1701: IF l_debug_level > 0 THEN
1702: OE_DEBUG_PUB.Add('Before calling OE_CONFIG_PVT.Process_Config..',3);
1703: OE_DEBUG_PUB.Add('for cfg hdr ' || l_line_tbl(I).config_header_id,3);
1704: OE_DEBUG_PUB.Add('for cfg rev '|| l_line_tbl(I).config_rev_nbr,3);
1705: END IF;
1706:
1699: FOR I IN 1..l_line_tbl.count LOOP
1700:
1701: IF l_debug_level > 0 THEN
1702: OE_DEBUG_PUB.Add('Before calling OE_CONFIG_PVT.Process_Config..',3);
1703: OE_DEBUG_PUB.Add('for cfg hdr ' || l_line_tbl(I).config_header_id,3);
1704: OE_DEBUG_PUB.Add('for cfg rev '|| l_line_tbl(I).config_rev_nbr,3);
1705: END IF;
1706:
1707: SELECT line_id
1700:
1701: IF l_debug_level > 0 THEN
1702: OE_DEBUG_PUB.Add('Before calling OE_CONFIG_PVT.Process_Config..',3);
1703: OE_DEBUG_PUB.Add('for cfg hdr ' || l_line_tbl(I).config_header_id,3);
1704: OE_DEBUG_PUB.Add('for cfg rev '|| l_line_tbl(I).config_rev_nbr,3);
1705: END IF;
1706:
1707: SELECT line_id
1708: INTO l_line_tbl(I).line_id
1727:
1728: MACD_SYSTEM_CALL := 'N';
1729:
1730: IF l_debug_level > 0 THEN
1731: OE_DEBUG_PUB.Add('After Calling Process Config..'
1732: ||x_return_status,3);
1733: END IF;
1734:
1735: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1733: END IF;
1734:
1735: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1736: IF l_debug_level >0 THEN
1737: OE_DEBUG_PUB.Add('Error in Process Config..',2);
1738: END IF;
1739: RAISE FND_API.G_EXC_ERROR;
1740: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1741: IF l_debug_level > 0 THEN
1738: END IF;
1739: RAISE FND_API.G_EXC_ERROR;
1740: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1741: IF l_debug_level > 0 THEN
1742: OE_DEBUG_PUB.Add('Unexpected Error in Process Config..',1);
1743: END IF;
1744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1745: END IF;
1746:
1752:
1753: IF l_config_mode = 'A' THEN
1754:
1755: IF l_debug_level > 0 THEN
1756: OE_DEBUG_PUB.Add('Start Add to container.config mode=A',3);
1757: END IF;
1758:
1759: BEGIN
1760:
1769:
1770: EXCEPTION
1771: WHEN OTHERS THEN
1772: IF l_debug_level > 0 THEN
1773: OE_DEBUG_PUB.Add('Error during select errmsg:'||sqlerrm,1);
1774: END IF;
1775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1776:
1777: END;
1798: Print_Time('After CZ_PUB.Add_To_Config_Tree:'||x_return_status);
1799:
1800: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1801: IF l_debug_level > 0 THEN
1802: OE_DEBUG_PUB.Add ('Error in Add_to_config_tree',2);
1803: END IF;
1804: RAISE FND_API.G_EXC_ERROR;
1805: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1806: IF l_debug_level > 0 THEN
1803: END IF;
1804: RAISE FND_API.G_EXC_ERROR;
1805: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1806: IF l_debug_level > 0 THEN
1807: OE_DEBUG_PUB.Add ('Unexpected Error in Add_to_config_tree',1);
1808: END IF;
1809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1810: END IF;
1811:
1809: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1810: END IF;
1811:
1812: IF l_debug_level > 0 THEN
1813: OE_DEBUG_PUB.Add('HeaderID:'||l_config_model_rec.config_hdr_id,3);
1814: OE_DEBUG_PUB.Add('Rev Number:'||l_config_model_rec.config_rev_nbr,3);
1815: OE_DEBUG_PUB.Add('Before Calling Process_Config',3);
1816: END IF;
1817:
1810: END IF;
1811:
1812: IF l_debug_level > 0 THEN
1813: OE_DEBUG_PUB.Add('HeaderID:'||l_config_model_rec.config_hdr_id,3);
1814: OE_DEBUG_PUB.Add('Rev Number:'||l_config_model_rec.config_rev_nbr,3);
1815: OE_DEBUG_PUB.Add('Before Calling Process_Config',3);
1816: END IF;
1817:
1818: MACD_SYSTEM_CALL := 'Y';
1811:
1812: IF l_debug_level > 0 THEN
1813: OE_DEBUG_PUB.Add('HeaderID:'||l_config_model_rec.config_hdr_id,3);
1814: OE_DEBUG_PUB.Add('Rev Number:'||l_config_model_rec.config_rev_nbr,3);
1815: OE_DEBUG_PUB.Add('Before Calling Process_Config',3);
1816: END IF;
1817:
1818: MACD_SYSTEM_CALL := 'Y';
1819: OE_CONFIG_PVT.Process_Config
1830: );
1831: MACD_SYSTEM_CALL := 'N';
1832:
1833: IF l_debug_level > 0 THEN
1834: OE_DEBUG_PUB.Add('After Process_Config:'||x_return_status,3);
1835: END IF;
1836:
1837: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1838: IF l_debug_level > 0 THEN
1835: END IF;
1836:
1837: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1838: IF l_debug_level > 0 THEN
1839: OE_DEBUG_PUB.Add('Error in Process_Config',2);
1840: END IF;
1841: RAISE FND_API.G_EXC_ERROR;
1842: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1843: IF l_debug_level > 0 THEN
1840: END IF;
1841: RAISE FND_API.G_EXC_ERROR;
1842: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1843: IF l_debug_level > 0 THEN
1844: OE_DEBUG_PUB.Add('Unexpected Error in Process_Config',1);
1845: END IF;
1846: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1847: END IF;
1848:
1857: EXCEPTION
1858:
1859: WHEN FND_API.G_EXC_ERROR THEN
1860: IF l_debug_level > 0 THEN
1861: OE_DEBUG_PUB.Add('Expected Error in populate_tso_order_lines:'
1862: ||sqlerrm, 2);
1863: END IF;
1864:
1865: oe_debug_pub.add('RMV: 2 Msg count:'||x_msg_count);
1861: OE_DEBUG_PUB.Add('Expected Error in populate_tso_order_lines:'
1862: ||sqlerrm, 2);
1863: END IF;
1864:
1865: oe_debug_pub.add('RMV: 2 Msg count:'||x_msg_count);
1866: OE_MSG_PUB.Count_And_Get
1867: ( p_count => x_msg_count
1868: ,p_data => x_msg_data );
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870:
1871: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1872: IF l_debug_level > 0 THEN
1873: OE_DEBUG_PUB.Add('Unexpected Error in populate_tso_order_lines'
1874: ||sqlerrm, 1);
1875: END IF;
1876:
1877: x_msg_count := OE_MSG_PUB.COUNT_MSG;
1875: END IF;
1876:
1877: x_msg_count := OE_MSG_PUB.COUNT_MSG;
1878: IF l_debug_level > 0 THEN
1879: oe_debug_pub.add('RMV: 3 Msg count:'||x_msg_count);
1880: END IF;
1881:
1882: OE_MSG_PUB.Count_And_Get
1883: ( p_count => x_msg_count
1887: WHEN OTHERS THEN
1888:
1889: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1890: IF l_debug_level > 0 THEN
1891: oe_debug_pub.add('RMV: 4 Msg count: '|| sqlerrm );
1892: END IF;
1893:
1894: x_msg_count := OE_MSG_PUB.COUNT_MSG;
1895: FOR I in 1..x_msg_count LOOP
1894: x_msg_count := OE_MSG_PUB.COUNT_MSG;
1895: FOR I in 1..x_msg_count LOOP
1896: x_msg_data := OE_MSG_PUB.Get(I,'F');
1897: IF l_debug_level > 0 THEN
1898: oe_debug_pub.add('Messages from Configurator...');
1899: END IF;
1900: END LOOP;
1901:
1902: OE_MSG_PUB.Count_And_Get
1928: x_msg_count OUT NOCOPY VARCHAR2,
1929: x_msg_data OUT NOCOPY VARCHAR2)
1930: IS
1931:
1932: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1933: l_perform_action BOOLEAN;
1934: l_header_id NUMBER;
1935: l_instance_tbl csi_datastructures_pub.instance_cz_tbl;
1936:
1944:
1945: BEGIN
1946:
1947: IF l_debug_level > 0 THEN
1948: oe_debug_pub.add('Entering oe_config_tso_pvt.Process_MACD_Order',1);
1949: oe_debug_pub.add('p_x_header_id : ' || p_x_header_id,2);
1950: oe_debug_pub.add('p_sold_to_org_id : ' || p_sold_to_org_id,2);
1951: oe_debug_pub.add('p_MACD_Action : ' || p_MACD_Action,2);
1952: oe_debug_pub.add('p_x_line_tbl : ' || p_x_line_tbl.count,2);
1945: BEGIN
1946:
1947: IF l_debug_level > 0 THEN
1948: oe_debug_pub.add('Entering oe_config_tso_pvt.Process_MACD_Order',1);
1949: oe_debug_pub.add('p_x_header_id : ' || p_x_header_id,2);
1950: oe_debug_pub.add('p_sold_to_org_id : ' || p_sold_to_org_id,2);
1951: oe_debug_pub.add('p_MACD_Action : ' || p_MACD_Action,2);
1952: oe_debug_pub.add('p_x_line_tbl : ' || p_x_line_tbl.count,2);
1953: oe_debug_pub.add('p_Instance_Tbl : ' || p_Instance_Tbl.count,2);
1946:
1947: IF l_debug_level > 0 THEN
1948: oe_debug_pub.add('Entering oe_config_tso_pvt.Process_MACD_Order',1);
1949: oe_debug_pub.add('p_x_header_id : ' || p_x_header_id,2);
1950: oe_debug_pub.add('p_sold_to_org_id : ' || p_sold_to_org_id,2);
1951: oe_debug_pub.add('p_MACD_Action : ' || p_MACD_Action,2);
1952: oe_debug_pub.add('p_x_line_tbl : ' || p_x_line_tbl.count,2);
1953: oe_debug_pub.add('p_Instance_Tbl : ' || p_Instance_Tbl.count,2);
1954: oe_debug_pub.add('p_Extended_Attrib_Tbl : ' || p_Extended_Attrib_Tbl.count,2);
1947: IF l_debug_level > 0 THEN
1948: oe_debug_pub.add('Entering oe_config_tso_pvt.Process_MACD_Order',1);
1949: oe_debug_pub.add('p_x_header_id : ' || p_x_header_id,2);
1950: oe_debug_pub.add('p_sold_to_org_id : ' || p_sold_to_org_id,2);
1951: oe_debug_pub.add('p_MACD_Action : ' || p_MACD_Action,2);
1952: oe_debug_pub.add('p_x_line_tbl : ' || p_x_line_tbl.count,2);
1953: oe_debug_pub.add('p_Instance_Tbl : ' || p_Instance_Tbl.count,2);
1954: oe_debug_pub.add('p_Extended_Attrib_Tbl : ' || p_Extended_Attrib_Tbl.count,2);
1955: END IF;
1948: oe_debug_pub.add('Entering oe_config_tso_pvt.Process_MACD_Order',1);
1949: oe_debug_pub.add('p_x_header_id : ' || p_x_header_id,2);
1950: oe_debug_pub.add('p_sold_to_org_id : ' || p_sold_to_org_id,2);
1951: oe_debug_pub.add('p_MACD_Action : ' || p_MACD_Action,2);
1952: oe_debug_pub.add('p_x_line_tbl : ' || p_x_line_tbl.count,2);
1953: oe_debug_pub.add('p_Instance_Tbl : ' || p_Instance_Tbl.count,2);
1954: oe_debug_pub.add('p_Extended_Attrib_Tbl : ' || p_Extended_Attrib_Tbl.count,2);
1955: END IF;
1956: -- All validations will be performed here.
1949: oe_debug_pub.add('p_x_header_id : ' || p_x_header_id,2);
1950: oe_debug_pub.add('p_sold_to_org_id : ' || p_sold_to_org_id,2);
1951: oe_debug_pub.add('p_MACD_Action : ' || p_MACD_Action,2);
1952: oe_debug_pub.add('p_x_line_tbl : ' || p_x_line_tbl.count,2);
1953: oe_debug_pub.add('p_Instance_Tbl : ' || p_Instance_Tbl.count,2);
1954: oe_debug_pub.add('p_Extended_Attrib_Tbl : ' || p_Extended_Attrib_Tbl.count,2);
1955: END IF;
1956: -- All validations will be performed here.
1957:
1950: oe_debug_pub.add('p_sold_to_org_id : ' || p_sold_to_org_id,2);
1951: oe_debug_pub.add('p_MACD_Action : ' || p_MACD_Action,2);
1952: oe_debug_pub.add('p_x_line_tbl : ' || p_x_line_tbl.count,2);
1953: oe_debug_pub.add('p_Instance_Tbl : ' || p_Instance_Tbl.count,2);
1954: oe_debug_pub.add('p_Extended_Attrib_Tbl : ' || p_Extended_Attrib_Tbl.count,2);
1955: END IF;
1956: -- All validations will be performed here.
1957:
1958: x_return_status := FND_API.G_RET_STS_SUCCESS;
1969: -- Message should be seeded for this.
1970:
1971: FND_MESSAGE.Set_Name('ONT','ONT_TSO_HEAD_CUST_MISSING');
1972: x_return_status := FND_API.G_RET_STS_ERROR;
1973: oe_debug_pub.add('Unable to process since both header and customer is null',1);
1974: END IF;
1975:
1976: -- p_instance and p_x_line table should be exclusive. (not required for the group call)
1977:
1984: --Message should be seeded for this.
1985: -- If no data is passed, raise an error and set the return status.
1986:
1987: FND_MESSAGE.Set_Name('ONT','ONT_TSO_INS_ORD_MISSING');
1988: oe_debug_pub.add('Unable to process since both line and instance table are populated',1);
1989: x_return_status := FND_API.G_RET_STS_ERROR;
1990: END IF;
1991:
1992:
2005: THEN
2006:
2007: FND_MESSAGE.Set_Name('ONT','ONT_TSO_INVALID_DATA_API_CALL');
2008: x_return_status := FND_API.G_RET_STS_ERROR;
2009: oe_debug_pub.add('Invalid Datea 2',3);
2010: -- Invalid data is passed, do not proceed further. Raise error.
2011: ELSE
2012:
2013: IF p_instance_tbl(I).action is not null then
2023: IF nvl(p_instance_tbl(1).action,p_macd_action) <> nvl(p_macd_action, p_instance_tbl(1).action) THEN
2024:
2025: FND_MESSAGE.Set_Name('ONT','ONT_TSO_INVALID_DATA_API_CALL');
2026: x_return_status := FND_API.G_RET_STS_ERROR;
2027: oe_debug_pub.add('Invalid Datea 3',3);
2028: Raise FND_API.G_EXC_ERROR;
2029: END IF;
2030:
2031: End IF; -- count
2039: THEN
2040: -- Invalid data is passed, do not proceed further. Raise error.
2041: FND_MESSAGE.Set_Name('ONT','ONT_TSO_INVALID_DATA_API_CALL');
2042: x_return_status := FND_API.G_RET_STS_ERROR;
2043: oe_debug_pub.add('Invalid Datea 4',3);
2044: Raise FND_API.G_EXC_ERROR;
2045: ELSE
2046:
2047: IF p_x_line_tbl(I).operation is not null then
2055: END IF; -- Public Validation.
2056:
2057:
2058: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2059: oe_debug_pub.add('Unable to process due to error',2);
2060: Raise FND_API.G_EXC_ERROR;
2061: END IF;
2062: IF l_debug_level > 0 THEN
2063: oe_debug_pub.add('Main Logic Starts from here',2);
2059: oe_debug_pub.add('Unable to process due to error',2);
2060: Raise FND_API.G_EXC_ERROR;
2061: END IF;
2062: IF l_debug_level > 0 THEN
2063: oe_debug_pub.add('Main Logic Starts from here',2);
2064: END IF;
2065: -- If p_sold_to_org_id is passed first create an order using the sold to and add the instances passed to the order.
2066: -- Procedure create_header will be introduced to create header record.*/
2067:
2070: -- If the p_sold_to is passed we will call the below mentioned new API to create header record first and then call CZ API's
2071: -- to create container models and it's child lines.
2072:
2073: IF l_debug_level > 0 THEN
2074: oe_debug_pub.add('Before calling Create_header',2);
2075: END IF;
2076: Create_header(p_sold_to_org_id => p_sold_to_org_id
2077: ,x_header_id => p_x_header_id
2078: ,x_return_status => x_return_status
2078: ,x_return_status => x_return_status
2079: ,x_msg_count => x_msg_count
2080: ,x_msg_data => x_msg_data);
2081: IF l_debug_level > 0 THEN
2082: oe_debug_pub.add('After calling Create_header::' || p_x_header_id ||'::' || x_return_status,2);
2083: END IF;
2084:
2085: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2086: IF l_debug_level > 0 THEN
2083: END IF;
2084:
2085: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2086: IF l_debug_level > 0 THEN
2087: oe_debug_pub.add('Unexpected error in creating Order Header for sold to: ' || p_sold_to_org_id,2);
2088: END IF;
2089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2090: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2091: IF l_debug_level > 0 THEN
2088: END IF;
2089: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2090: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2091: IF l_debug_level > 0 THEN
2092: oe_debug_pub.add('Expected error in creating Order Header for sold to: ' || p_sold_to_org_id,2);
2093: END IF;
2094: RAISE FND_API.G_EXC_ERROR;
2095: END IF;
2096:
2105: -- record. We need evaluate the need for the new record. If the new record is mandatory then the data needs to be populated into local instance table which is based
2106: -- on the oe_install_base_util's record structure.
2107:
2108: IF l_debug_level > 0 THEN
2109: oe_debug_pub.add('Before calling populate_tso_order_lines ',2);
2110: END IF;
2111:
2112: IF p_Instance_Tbl.count > 0 THEN
2113:
2120: x_msg_data => x_msg_data,
2121: x_return_status => x_return_status);
2122:
2123: IF l_debug_level > 0 THEN
2124: oe_debug_pub.add('After calling populate_tso_order_lines ' || x_return_status,2);
2125: END IF;
2126:
2127: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2144:
2145: We will create an API named create_TSO_order_lines procedure to add the lines into existing order.*/
2146:
2147: IF l_debug_level > 0 THEN
2148: oe_debug_pub.add('Before calling oe_config_tso_pvt.create_tso_order_lines ',2);
2149: END IF;
2150:
2151: oe_config_tso_pvt.create_tso_order_lines(
2152: p_header_id => p_x_header_id,
2156: x_msg_data => x_msg_data,
2157: x_return_status => x_return_status);
2158:
2159: IF l_debug_level > 0 THEN
2160: oe_debug_pub.add('After calling oe_config_tso_pvt.create_tso_order_lines ' || x_return_status , 2);
2161: END IF;
2162:
2163:
2164: END IF; -- Sold to org.
2176: the logic would be based on the p_instance_tbl or else the logic would be based on the lines_tbl passed by the user.
2177: Or the process will be based on the lines table.*/
2178:
2179: IF l_debug_level > 0 THEN
2180: oe_debug_pub.add('Before calling populate_tso_order_lines ',2);
2181: END IF;
2182:
2183: Populate_MACD_action
2184: ( p_header_id => p_x_header_id
2190: ,x_msg_count => x_msg_count
2191: ,x_return_status => x_return_status);
2192:
2193: IF l_debug_level > 0 THEN
2194: oe_debug_pub.add('After calling Populate_MACD_action ' || x_return_status,2);
2195:
2196: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2197: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2198: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2204: -- Populate out variables
2205:
2206: FOR I IN Models LOOP
2207:
2208: Oe_debug_pub.add('Model record ' || I.line_id,2);
2209: IF x_container_line_id IS NULL THEN
2210: x_container_line_id := I.line_id;
2211: END IF;
2212:
2227: ( p_count => x_msg_count
2228: , p_data => x_msg_data);
2229:
2230: IF l_debug_level > 0 THEN
2231: Oe_debug_pub.add(' Out Values from process macd',2);
2232: Oe_debug_pub.add('header_id : ' || p_x_header_id,2);
2233: Oe_debug_pub.add('Line count : ' || p_x_line_tbl.count,2);
2234: Oe_debug_pub.add('x_container_line_id : ' || x_container_line_id,2);
2235: Oe_debug_pub.add('x_number_of_container : ' || x_number_of_containers,2);
2228: , p_data => x_msg_data);
2229:
2230: IF l_debug_level > 0 THEN
2231: Oe_debug_pub.add(' Out Values from process macd',2);
2232: Oe_debug_pub.add('header_id : ' || p_x_header_id,2);
2233: Oe_debug_pub.add('Line count : ' || p_x_line_tbl.count,2);
2234: Oe_debug_pub.add('x_container_line_id : ' || x_container_line_id,2);
2235: Oe_debug_pub.add('x_number_of_container : ' || x_number_of_containers,2);
2236: Oe_debug_pub.add('Return Status : ' || x_return_status,2);
2229:
2230: IF l_debug_level > 0 THEN
2231: Oe_debug_pub.add(' Out Values from process macd',2);
2232: Oe_debug_pub.add('header_id : ' || p_x_header_id,2);
2233: Oe_debug_pub.add('Line count : ' || p_x_line_tbl.count,2);
2234: Oe_debug_pub.add('x_container_line_id : ' || x_container_line_id,2);
2235: Oe_debug_pub.add('x_number_of_container : ' || x_number_of_containers,2);
2236: Oe_debug_pub.add('Return Status : ' || x_return_status,2);
2237: Oe_debug_pub.add('Message count : ' || x_msg_count,2);
2230: IF l_debug_level > 0 THEN
2231: Oe_debug_pub.add(' Out Values from process macd',2);
2232: Oe_debug_pub.add('header_id : ' || p_x_header_id,2);
2233: Oe_debug_pub.add('Line count : ' || p_x_line_tbl.count,2);
2234: Oe_debug_pub.add('x_container_line_id : ' || x_container_line_id,2);
2235: Oe_debug_pub.add('x_number_of_container : ' || x_number_of_containers,2);
2236: Oe_debug_pub.add('Return Status : ' || x_return_status,2);
2237: Oe_debug_pub.add('Message count : ' || x_msg_count,2);
2238: Oe_debug_pub.add('Message Data : ' || x_msg_data,2);
2231: Oe_debug_pub.add(' Out Values from process macd',2);
2232: Oe_debug_pub.add('header_id : ' || p_x_header_id,2);
2233: Oe_debug_pub.add('Line count : ' || p_x_line_tbl.count,2);
2234: Oe_debug_pub.add('x_container_line_id : ' || x_container_line_id,2);
2235: Oe_debug_pub.add('x_number_of_container : ' || x_number_of_containers,2);
2236: Oe_debug_pub.add('Return Status : ' || x_return_status,2);
2237: Oe_debug_pub.add('Message count : ' || x_msg_count,2);
2238: Oe_debug_pub.add('Message Data : ' || x_msg_data,2);
2239:
2232: Oe_debug_pub.add('header_id : ' || p_x_header_id,2);
2233: Oe_debug_pub.add('Line count : ' || p_x_line_tbl.count,2);
2234: Oe_debug_pub.add('x_container_line_id : ' || x_container_line_id,2);
2235: Oe_debug_pub.add('x_number_of_container : ' || x_number_of_containers,2);
2236: Oe_debug_pub.add('Return Status : ' || x_return_status,2);
2237: Oe_debug_pub.add('Message count : ' || x_msg_count,2);
2238: Oe_debug_pub.add('Message Data : ' || x_msg_data,2);
2239:
2240: oe_debug_pub.add('Exiting oe_config_tso_pvt.Process_MACD_Order ' || x_return_status,1);
2233: Oe_debug_pub.add('Line count : ' || p_x_line_tbl.count,2);
2234: Oe_debug_pub.add('x_container_line_id : ' || x_container_line_id,2);
2235: Oe_debug_pub.add('x_number_of_container : ' || x_number_of_containers,2);
2236: Oe_debug_pub.add('Return Status : ' || x_return_status,2);
2237: Oe_debug_pub.add('Message count : ' || x_msg_count,2);
2238: Oe_debug_pub.add('Message Data : ' || x_msg_data,2);
2239:
2240: oe_debug_pub.add('Exiting oe_config_tso_pvt.Process_MACD_Order ' || x_return_status,1);
2241: END IF;
2234: Oe_debug_pub.add('x_container_line_id : ' || x_container_line_id,2);
2235: Oe_debug_pub.add('x_number_of_container : ' || x_number_of_containers,2);
2236: Oe_debug_pub.add('Return Status : ' || x_return_status,2);
2237: Oe_debug_pub.add('Message count : ' || x_msg_count,2);
2238: Oe_debug_pub.add('Message Data : ' || x_msg_data,2);
2239:
2240: oe_debug_pub.add('Exiting oe_config_tso_pvt.Process_MACD_Order ' || x_return_status,1);
2241: END IF;
2242: EXCEPTION
2236: Oe_debug_pub.add('Return Status : ' || x_return_status,2);
2237: Oe_debug_pub.add('Message count : ' || x_msg_count,2);
2238: Oe_debug_pub.add('Message Data : ' || x_msg_data,2);
2239:
2240: oe_debug_pub.add('Exiting oe_config_tso_pvt.Process_MACD_Order ' || x_return_status,1);
2241: END IF;
2242: EXCEPTION
2243:
2244: WHEN FND_API.G_EXC_ERROR THEN
2246: ( p_count => x_msg_count
2247: , p_data => x_msg_data);
2248:
2249: IF l_debug_level > 0 THEN
2250: OE_DEBUG_PUB.Add('Expected Error in Process_MACD_Order:'
2251: ||sqlerrm,3);
2252: END IF;
2253: x_return_status := FND_API.G_RET_STS_ERROR;
2254:
2257: ( p_count => x_msg_count
2258: , p_data => x_msg_data);
2259:
2260: IF l_debug_level > 0 THEN
2261: OE_DEBUG_PUB.Add('Unexpected Error Process_MACD_Order:'
2262: ||sqlerrm,3);
2263: END IF;
2264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2265:
2269: , p_data => x_msg_data);
2270:
2271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2272: IF l_debug_level > 0 THEN
2273: OE_DEBUG_PUB.Add('Other error in Process_MACD_Order:'
2274: ||sqlerrm,1);
2275: END IF;
2276: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2277: OE_MSG_PUB.Add_Exc_Msg
2296: l_old_header_rec OE_Order_PUB.Header_Rec_Type;
2297: l_control_rec OE_GLOBALS.Control_Rec_Type;
2298:
2299: --
2300: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2301: --
2302: BEGIN
2303:
2304: IF l_debug_level > 0 THEN
2301: --
2302: BEGIN
2303:
2304: IF l_debug_level > 0 THEN
2305: oe_debug_pub.add( 'ENTERING OE_TSO_CONFIG_PVT.Create_Header' , 1 ) ;
2306: END IF;
2307: x_return_status := FND_API.G_RET_STS_SUCCESS;
2308:
2309: -- Use the default control record to call header procedure.
2350: EXCEPTION
2351:
2352: WHEN FND_API.G_EXC_ERROR THEN
2353: IF l_debug_level > 0 THEN
2354: OE_DEBUG_PUB.Add('Expected Error in Create_Header:'
2355: ||sqlerrm,3);
2356: END IF;
2357: x_return_status := FND_API.G_RET_STS_ERROR;
2358:
2357: x_return_status := FND_API.G_RET_STS_ERROR;
2358:
2359: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2360: IF l_debug_level > 0 THEN
2361: OE_DEBUG_PUB.Add('Unexpected Error Create_Header:'
2362: ||sqlerrm,3);
2363: END IF;
2364: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2365:
2365:
2366: WHEN OTHERS THEN
2367: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2368: IF l_debug_level > 0 THEN
2369: OE_DEBUG_PUB.Add('Other error in Create_Header:'
2370: ||sqlerrm,1);
2371: END IF;
2372: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2373: OE_MSG_PUB.Add_Exc_Msg
2407: l_parent_exists_instance_tbl csi_datastructures_pub.instance_cz_tbl;
2408: l_no_parent_instance_tbl csi_datastructures_pub.instance_cz_tbl;
2409: l_Temp_instance_tbl csi_datastructures_pub.instance_cz_tbl;
2410:
2411: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2412: Begin
2413:
2414: --IF the ship_to_site_use_id and bill_to_site_use_id has NULL value
2415: --for all records returned by IB, we remember this and pass the
2414: --IF the ship_to_site_use_id and bill_to_site_use_id has NULL value
2415: --for all records returned by IB, we remember this and pass the
2416: --G_CONFIG_INTSTANCE_TBL to Process_Config to improve performance
2417:
2418: oe_debug_pub.add('Entering Procedure Create_TSO_Order_Lines: ' || l_instance_tbl.count,1);
2419:
2420:
2421: l_instance_tbl := p_instance_tbl;
2422: I := l_instance_tbl.FIRST;
2433: ,p_config_instance_hdr_id => l_instance_tbl(I).config_instance_hdr_id
2434: ,p_config_instance_rev_number => l_instance_tbl(I).config_instance_rev_number
2435: ,x_top_model_line_id => l_top_model_line_id);
2436:
2437: oe_debug_pub.add('After calling IS_container_present: ' || l_top_model_line_id,2);
2438:
2439: -- If the model exists then transfer the instance record to l_parent_exists_instance_tbl and
2440: -- delete the instance record from l_instance_tbl. Also loop through the l_instance_tbl and transfer
2441: -- all the instance records that matchs the parent config_hdr and config_rev_nbr.
2442: -- Delete the records from l_instance_tbl after every transfer. Now we need to add these instances to the existing model.
2443:
2444: IF l_top_model_line_id is not null THEN
2445:
2446: oe_debug_pub.add('Top model is present',3);
2447: J := l_instance_tbl.NEXT(I);
2448:
2449: L_parent_exists_instance_tbl(l_parent_exists_instance_tbl.count + 1) := l_instance_tbl(I);
2450:
2465: END;
2466: END LOOP;
2467: l_instance_tbl.DELETE(I);
2468:
2469: oe_debug_pub.add('Before calling populate_tso_order_lines to append lines: ' ||
2470: l_parent_exists_instance_tbl.count,3);
2471: oe_config_tso_pvt.populate_tso_order_lines(
2472: p_header_id => p_header_id,
2473: p_top_model_line_id => l_top_model_line_id,
2510:
2511: IF l_no_parent_instance_tbl.count >0 THEN
2512:
2513: -- We will come here only if have instances without parent. Call populate_tso_order_lines to create containers and its chiled lines.
2514: oe_debug_pub.add('Before calling populate_tso_order_line to create lines: ' ||
2515: l_no_parent_instance_tbl.count,2);
2516: oe_config_tso_pvt.populate_tso_order_lines(
2517: p_header_id =>p_header_id,
2518: p_top_model_line_id => null,
2532:
2533: END IF; -- L_no_parent_instance.
2534:
2535: -- Get message count and data
2536: oe_debug_pub.add('Before exiting Create_TSO_Order_Lines' || x_return_status,2);
2537: OE_MSG_PUB.Count_And_Get
2538: ( p_count => x_msg_count
2539: , p_data => x_msg_data
2540: );
2542: EXCEPTION
2543:
2544: WHEN FND_API.G_EXC_ERROR THEN
2545: IF l_debug_level > 0 THEN
2546: OE_DEBUG_PUB.Add('Expected Error in Create_TSO_Order_Lines:'
2547: ||sqlerrm,3);
2548: END IF;
2549: x_return_status := FND_API.G_RET_STS_ERROR;
2550:
2549: x_return_status := FND_API.G_RET_STS_ERROR;
2550:
2551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2552: IF l_debug_level > 0 THEN
2553: OE_DEBUG_PUB.Add('Unexpected Error Create_TSO_Order_Lines:'
2554: ||sqlerrm,3);
2555: END IF;
2556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2557:
2557:
2558: WHEN OTHERS THEN
2559: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2560: IF l_debug_level > 0 THEN
2561: OE_DEBUG_PUB.Add('Other error in Create_TSO_Order_Lines:'
2562: ||sqlerrm,1);
2563: END IF;
2564: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2565: OE_MSG_PUB.Add_Exc_Msg
2607: J NUMBER;
2608: I NUMBER;
2609: l_component_code VARCHAR2(30);
2610: l_config_item_id NUMBER;
2611: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2612: L_TOP_MODEL_LINE_ID NUMBER;
2613: l_top_config_header_id NUMBER;
2614: l_top_config_rev_nbr NUMBER;
2615: l_header_id NUMBER;
2625: --IF the ship_to_site_use_id and bill_to_site_use_id has NULL value
2626: --for all records returned by IB, we remember this and pass the
2627: --G_CONFIG_INTSTANCE_TBL to Process_Config to improve performance
2628:
2629: oe_debug_pub.add('Entering Populate_macd_action procedure',1);
2630: x_return_status := FND_API.G_RET_STS_SUCCESS;
2631: IF p_instance_tbl.count > 0 THEN
2632:
2633: l_instance_tbl := p_instance_tbl;
2645: ,p_config_instance_hdr_id => l_instance_tbl(I).config_instance_hdr_id
2646: ,p_config_instance_rev_number => l_instance_tbl(I).config_instance_rev_number
2647: ,x_top_model_line_id => l_top_model_line_id);
2648:
2649: oe_debug_pub.add('After is container: ' || l_top_model_line_id,2);
2650: -- After identifying the container model, loop through the instance table and
2651: -- populate the config table for validation.
2652:
2653: IF l_top_model_line_id is not null THEN
2659: -- Instance record will be validated for the given action and see whether the action is
2660: -- applicable and also system finds the current config_header_id (session header id) so that
2661: -- can be passed to CZ for the batch validation.
2662:
2663: oe_debug_pub.add('Before Validate Action' || x_return_status,2);
2664: Validate_action
2665: (p_top_model_line_id => l_top_model_line_id,
2666: p_instance_item_id => l_instance_tbl(I).config_instance_item_id,
2667: p_macd_action => nvl(p_macd_action,l_instance_tbl(I).action),
2668: x_config_item_id => l_config_item_id,
2669: x_component_code => l_component_code,
2670: x_return_status => x_return_status);
2671:
2672: oe_debug_pub.add('After Validate Action' || x_return_status,2);
2673: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2675: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2676: RAISE FND_API.G_EXC_ERROR;
2688:
2689:
2690: l_config_item_rec.instance_name := l_instance_tbl(I).instance_name;
2691: l_config_item_tbl(l_config_item_tbl.count+1) := l_config_item_rec;
2692: oe_debug_pub.add('Before getting the data from P_Extended_Attrib_Tbl: ' ||
2693: P_Extended_Attrib_Tbl.count,2);
2694: For K in 1..P_Extended_Attrib_Tbl.count Loop
2695: oe_debug_pub.add('In the ext loop: ' || K,2);
2696: IF P_Extended_Attrib_Tbl(K).parent_tbl_index = I then
2691: l_config_item_tbl(l_config_item_tbl.count+1) := l_config_item_rec;
2692: oe_debug_pub.add('Before getting the data from P_Extended_Attrib_Tbl: ' ||
2693: P_Extended_Attrib_Tbl.count,2);
2694: For K in 1..P_Extended_Attrib_Tbl.count Loop
2695: oe_debug_pub.add('In the ext loop: ' || K,2);
2696: IF P_Extended_Attrib_Tbl(K).parent_tbl_index = I then
2697:
2698: l_config_attr_rec.config_item_id := l_config_item_id;
2699: l_config_attr_rec.component_code := l_component_code;
2704:
2705: END IF; -- index xomparison.
2706:
2707: END LOOP;
2708: oe_debug_pub.add('Before J loop: ' || J,2);
2709: While J IS NOT NULL
2710: LOOP
2711:
2712: oe_debug_pub.add('Inside the J loop ' || J,2);
2708: oe_debug_pub.add('Before J loop: ' || J,2);
2709: While J IS NOT NULL
2710: LOOP
2711:
2712: oe_debug_pub.add('Inside the J loop ' || J,2);
2713: IF l_instance_tbl(J).config_instance_hdr_id = l_instance_tbl(I).config_instance_hdr_id
2714: AND l_instance_tbl(J).config_instance_rev_number = l_instance_tbl(I).config_instance_rev_number THEN
2715:
2716: l_parent_exists_instance_tbl(l_parent_exists_instance_tbl.count + 1) := l_instance_tbl(J);
2714: AND l_instance_tbl(J).config_instance_rev_number = l_instance_tbl(I).config_instance_rev_number THEN
2715:
2716: l_parent_exists_instance_tbl(l_parent_exists_instance_tbl.count + 1) := l_instance_tbl(J);
2717:
2718: oe_debug_pub.add(' 1 Before Validate Action' || x_return_status,2);
2719: Validate_action
2720: (p_top_model_line_id => l_top_model_line_id,
2721: p_instance_item_id => l_instance_tbl(J).config_instance_item_id,
2722: p_macd_action => nvl(p_macd_action, l_instance_tbl(J).action),
2723: x_config_item_id => l_config_item_id,
2724: x_component_code => l_component_code,
2725: x_return_status => x_return_status);
2726:
2727: oe_debug_pub.add(' 1 After Validate Action' || x_return_status,2);
2728: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2729: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2730: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2731: RAISE FND_API.G_EXC_ERROR;
2764:
2765: l_instance_tbl.DELETE(J);
2766: END IF; -- After Mai Loop
2767: J := l_instance_tbl.NEXT(J);
2768: oe_debug_pub.add('Processing next instance ' || J);
2769: END LOOP; -- J Loop
2770: l_instance_tbl.DELETE(I);
2771:
2772: -- Call macd batch validate API to validate the actions for the given instances.
2770: l_instance_tbl.DELETE(I);
2771:
2772: -- Call macd batch validate API to validate the actions for the given instances.
2773:
2774: oe_debug_pub.add('Before calling the oe_config_util.Create_hdr_xml: ' || l_top_model_line_id,3);
2775:
2776: oe_debug_pub.add('Before calling Create_hdr_xml',1);
2777: oe_config_util.Create_hdr_xml
2778: ( p_model_line_id => l_top_model_line_id ,
2772: -- Call macd batch validate API to validate the actions for the given instances.
2773:
2774: oe_debug_pub.add('Before calling the oe_config_util.Create_hdr_xml: ' || l_top_model_line_id,3);
2775:
2776: oe_debug_pub.add('Before calling Create_hdr_xml',1);
2777: oe_config_util.Create_hdr_xml
2778: ( p_model_line_id => l_top_model_line_id ,
2779: x_xml_hdr => l_init_msg);
2780:
2778: ( p_model_line_id => l_top_model_line_id ,
2779: x_xml_hdr => l_init_msg);
2780:
2781:
2782: oe_debug_pub.add('Before calling CZ_CF_API.VALIDATE',2);
2783: CZ_CF_API.VALIDATE
2784: (p_api_version => 1.0
2785: ,p_config_item_tbl => l_config_item_tbl
2786: ,p_config_ext_attr_tbl => l_config_attr_tbl
2792: ,x_msg_count => x_msg_count
2793: ,x_msg_data => x_msg_data);
2794:
2795: OE_MSG_PUB.Transfer_Msg_Stack;
2796: oe_debug_pub.add('After calling CZ_CF_API.VALIDATE: ' || x_return_status,2);
2797: oe_debug_pub.add('x_msg_data: ' || x_msg_data,2);
2798:
2799: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2793: ,x_msg_data => x_msg_data);
2794:
2795: OE_MSG_PUB.Transfer_Msg_Stack;
2796: oe_debug_pub.add('After calling CZ_CF_API.VALIDATE: ' || x_return_status,2);
2797: oe_debug_pub.add('x_msg_data: ' || x_msg_data,2);
2798:
2799: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2800: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2801: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2805:
2806: -- extract data from xml message.
2807:
2808: IF l_debug_level > 0 THEN
2809: oe_debug_pub.add('CALLING PARSE_OUTPUT_XML: ' || l_config_xml_msg.COUNT, 2 );
2810: END IF;
2811:
2812: IF (l_config_xml_msg.COUNT > 0) THEN
2813:
2813:
2814: FOR xmlStr IN l_config_xml_msg.FIRST..l_config_xml_msg.LAST
2815: LOOP
2816: l_xml_str := l_xml_str||l_config_xml_msg(xmlStr);
2817: oe_debug_pub.add(' Row count ' || xmlStr,2);
2818: END LOOP;
2819:
2820: l_xml_str := UPPER(l_xml_str);
2821:
2818: END LOOP;
2819:
2820: l_xml_str := UPPER(l_xml_str);
2821:
2822: oe_debug_pub.add(' Out Message '|| l_xml_str,2);
2823: oe_config_util.Parse_Output_xml
2824: ( p_xml => l_xml_str,
2825: p_line_id => l_top_model_line_id,
2826: x_valid_config => l_valid_config,
2830: x_return_status => x_return_status );
2831:
2832: END IF;
2833: IF l_debug_level > 0 THEN
2834: oe_debug_pub.add('AFTER CALLING PARSE_XML: '||x_RETURN_STATUS , 2 );
2835: END IF;
2836:
2837: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2849: Where line_id = l_top_model_line_id;
2850:
2851: EXCEPTION
2852: WHEN OTHERS THEN
2853: oe_debug_pub.add(' Line SELECT: '|| SQLERRM , 1 ) ;
2854: RAISE FND_API.G_EXC_ERROR;
2855: -- Exception handler
2856:
2857: End;
2855: -- Exception handler
2856:
2857: End;
2858: */
2859: oe_debug_pub.add('Before calling process config',2);
2860: OE_CONFIG_PVT.Process_Config
2861: (p_header_id => l_header_id
2862: ,p_config_hdr_id => l_top_config_header_id
2863: ,p_config_rev_nbr => l_top_config_rev_nbr
2867: ,x_msg_count => x_msg_count
2868: ,x_msg_data => x_msg_data
2869: ,x_return_status => x_return_status);
2870:
2871: oe_debug_pub.add('After calling Process Config: ' || x_return_status,2);
2872: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2873: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2874: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2875: RAISE FND_API.G_EXC_ERROR;
3010: P_config_item_id => l_line_tbl(I).configuration_id,
3011: P_macd_action => nvl(p_macd_action, l_line_tbl(I).operation),
3012: X_return_status => x_return_status);
3013:
3014: oe_debug_pub.add('3 After calling Validate_line_action' || x_return_status,2);
3015: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3016: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3017: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3018: RAISE FND_API.G_EXC_ERROR;
3063: p_config_rev_nbr => l_line_tbl(j).config_rev_nbr,
3064: p_config_item_id => l_line_tbl(j).configuration_id,
3065: p_macd_action => nvl(p_macd_action,l_line_tbl(j).operation),
3066: x_return_status => x_return_status);
3067: oe_debug_pub.add('4 After calling Validate_line_action' || x_return_status,2);
3068: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3070: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3071: RAISE FND_API.G_EXC_ERROR;
3103: l_instance_tbl.DELETE(J);
3104:
3105: END IF;
3106: J := l_instance_tbl.NEXT(J);
3107: oe_debug_pub.add('1 Processing next instance ' || J);
3108: END LOOP;
3109: l_instance_tbl.DELETE(I);
3110:
3111: oe_debug_pub.add('1 Before calling Create_hdr_xml',1);
3107: oe_debug_pub.add('1 Processing next instance ' || J);
3108: END LOOP;
3109: l_instance_tbl.DELETE(I);
3110:
3111: oe_debug_pub.add('1 Before calling Create_hdr_xml',1);
3112: oe_config_util.Create_hdr_xml
3113: ( p_model_line_id => l_top_model_line_id ,
3114: x_xml_hdr => l_init_msg);
3115: -- Call macd batch validate API to validate the actions for the given instances.
3125: ,x_return_status => x_return_status
3126: ,x_msg_count => x_msg_count
3127: ,x_msg_data => x_msg_data);
3128:
3129: oe_debug_pub.add('2 After calling CZ_CF_API.VALIDATE' || x_return_status,2);
3130: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3132: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3133: RAISE FND_API.G_EXC_ERROR;
3134: END IF;
3135: -- Handle the return status from the call. Raise an exception accordingly.
3136:
3137: IF (l_config_xml_msg.COUNT > 0) THEN
3138: oe_debug_pub.add('2 Count is greater: ' || l_config_xml_msg.COUNT,2);
3139: FOR xmlStr IN l_config_xml_msg.FIRST..l_config_xml_msg.LAST
3140: LOOP
3141: l_xml_str := l_xml_str||l_config_xml_msg(xmlStr);
3142: END LOOP;
3184: ,x_msg_count => x_msg_count
3185: ,x_msg_data => x_msg_data
3186: ,x_return_status => x_return_status );
3187:
3188: oe_debug_pub.add('After calling Process Config ' || x_return_status,2);
3189:
3190: -- Delete the parent table and also clear the top model so that we do not carry the value.
3191: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3209: OE_MSG_PUB.Count_And_Get
3210: ( p_count => x_msg_count
3211: , p_data => x_msg_data
3212: );
3213: Oe_debug_pub.add('Before exiting populate macd action : ' || x_return_status,1);
3214: Exception
3215: WHEN FND_API.G_EXC_ERROR THEN
3216: IF l_debug_level > 0 THEN
3217: OE_DEBUG_PUB.Add('Expected Error in Populate_macd_action:'
3213: Oe_debug_pub.add('Before exiting populate macd action : ' || x_return_status,1);
3214: Exception
3215: WHEN FND_API.G_EXC_ERROR THEN
3216: IF l_debug_level > 0 THEN
3217: OE_DEBUG_PUB.Add('Expected Error in Populate_macd_action:'
3218: ||sqlerrm,3);
3219: END IF;
3220: x_return_status := FND_API.G_RET_STS_ERROR;
3221:
3220: x_return_status := FND_API.G_RET_STS_ERROR;
3221:
3222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3223: IF l_debug_level > 0 THEN
3224: OE_DEBUG_PUB.Add('Unexpected Error Populate_macd_action:'
3225: ||sqlerrm,3);
3226: END IF;
3227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3228:
3228:
3229: WHEN OTHERS THEN
3230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3231: IF l_debug_level > 0 THEN
3232: OE_DEBUG_PUB.Add('Other error in Populate_macd_action:'
3233: ||sqlerrm,1);
3234: END IF;
3235: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3236: OE_MSG_PUB.Add_Exc_Msg
3256:
3257: l_item_id Number;
3258: l_config_hdr_id Number;
3259: l_config_rev_nbr Number;
3260: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3261: BEGIN
3262: oe_debug_pub.add('Entering IS_CONTAINER_PRESENT: ' || p_config_instance_hdr_id,2);
3263: Begin
3264:
3258: l_config_hdr_id Number;
3259: l_config_rev_nbr Number;
3260: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3261: BEGIN
3262: oe_debug_pub.add('Entering IS_CONTAINER_PRESENT: ' || p_config_instance_hdr_id,2);
3263: Begin
3264:
3265: /*
3266: Select cz.config_hdr_id, cz.config_rev_nbr, substr(cz.component_code, 1,instr(cz.component_code,'-')-1),
3284: and component_instance_type = 'I';
3285:
3286: Exception
3287: WHEN OTHERS THEN
3288: oe_debug_pub.add('In when Others of cz_config query',2);
3289: Return;
3290:
3291: END;
3292: oe_debug_pub.add('Top model Present: ' || l_item_id,2);
3288: oe_debug_pub.add('In when Others of cz_config query',2);
3289: Return;
3290:
3291: END;
3292: oe_debug_pub.add('Top model Present: ' || l_item_id,2);
3293: IF l_item_id is not null
3294: THEN
3295:
3296: Begin
3307: AND rownum = 1;
3308:
3309: Exception
3310: WHEN OTHERS THEN
3311: oe_debug_pub.add('In when Others of oe_order_lines query',2);
3312: Null;
3313: --RETURN;
3314: End;
3315: END IF;
3312: Null;
3313: --RETURN;
3314: End;
3315: END IF;
3316: oe_debug_pub.add('Exiting IS_Container_Present: ' || x_top_model_line_id,2);
3317: Exception
3318: WHEN FND_API.G_EXC_ERROR THEN
3319: IF l_debug_level > 0 THEN
3320: OE_DEBUG_PUB.Add('Expected Error in IS_Container_Present::'
3316: oe_debug_pub.add('Exiting IS_Container_Present: ' || x_top_model_line_id,2);
3317: Exception
3318: WHEN FND_API.G_EXC_ERROR THEN
3319: IF l_debug_level > 0 THEN
3320: OE_DEBUG_PUB.Add('Expected Error in IS_Container_Present::'
3321: ||sqlerrm,3);
3322: END IF;
3323:
3324: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3322: END IF;
3323:
3324: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3325: IF l_debug_level > 0 THEN
3326: OE_DEBUG_PUB.Add('Unexpected Error IS_Container_Present::'
3327: ||sqlerrm,3);
3328: END IF;
3329:
3330: WHEN OTHERS THEN
3328: END IF;
3329:
3330: WHEN OTHERS THEN
3331: IF l_debug_level > 0 THEN
3332: OE_DEBUG_PUB.Add('Other error in IS_Container_Present::'
3333: ||sqlerrm,1);
3334: END IF;
3335: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3336: OE_MSG_PUB.Add_Exc_Msg
3355:
3356:
3357: IS
3358: L_BASELINE_REV_NBR NUMBER(9);
3359: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3360: BEGIN
3361:
3362: -- In case of DELETE operation on order line with a baseline rev number > 0 , OM will error out.
3363: -- This is because CZ will not support REVERT action in this phase.
3361:
3362: -- In case of DELETE operation on order line with a baseline rev number > 0 , OM will error out.
3363: -- This is because CZ will not support REVERT action in this phase.
3364:
3365: oe_debug_pub.add('Entering validate action: ' || p_macd_action,2);
3366:
3367: x_return_status := FND_API.G_RET_STS_SUCCESS;
3368:
3369:
3385: AND cz_hdr.baseline_rev_nbr IS NOT NULL
3386: AND rownum = 1;
3387:
3388:
3389: oe_debug_pub.add('Base line rev number: ' || l_baseline_rev_nbr,2);
3390:
3391: IF l_baseline_rev_nbr > 0 AND
3392: p_macd_action = 'DELETE' THEN
3393: oe_debug_pub.add('Before raising error',2);
3389: oe_debug_pub.add('Base line rev number: ' || l_baseline_rev_nbr,2);
3390:
3391: IF l_baseline_rev_nbr > 0 AND
3392: p_macd_action = 'DELETE' THEN
3393: oe_debug_pub.add('Before raising error',2);
3394: RAISE FND_API.G_EXC_ERROR;
3395: END IF;
3396:
3397: Exception
3396:
3397: Exception
3398: WHEN NO_DATA_FOUND THEN
3399: IF p_macd_action = 'DISCONTINUE' THEN
3400: oe_debug_pub.add('Before raising error no data found',2);
3401: RAISE FND_API.G_EXC_ERROR;
3402: END IF;
3403: End;
3404:
3416:
3417: WHEN OTHERS THEN
3418: Null;
3419: END;
3420: oe_debug_pub.add('component_code ' || x_component_code,1);
3421: oe_debug_pub.add('Before exiting Validate action' || x_return_status,1);
3422: Exception
3423: WHEN FND_API.G_EXC_ERROR THEN
3424: IF l_debug_level > 0 THEN
3417: WHEN OTHERS THEN
3418: Null;
3419: END;
3420: oe_debug_pub.add('component_code ' || x_component_code,1);
3421: oe_debug_pub.add('Before exiting Validate action' || x_return_status,1);
3422: Exception
3423: WHEN FND_API.G_EXC_ERROR THEN
3424: IF l_debug_level > 0 THEN
3425: OE_DEBUG_PUB.Add('Expected Error in validate_action:'
3421: oe_debug_pub.add('Before exiting Validate action' || x_return_status,1);
3422: Exception
3423: WHEN FND_API.G_EXC_ERROR THEN
3424: IF l_debug_level > 0 THEN
3425: OE_DEBUG_PUB.Add('Expected Error in validate_action:'
3426: ||sqlerrm,3);
3427: END IF;
3428: x_return_status := FND_API.G_RET_STS_ERROR;
3429:
3428: x_return_status := FND_API.G_RET_STS_ERROR;
3429:
3430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3431: IF l_debug_level > 0 THEN
3432: OE_DEBUG_PUB.Add('Unexpected Error validate_action:'
3433: ||sqlerrm,3);
3434: END IF;
3435: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3436:
3436:
3437: WHEN OTHERS THEN
3438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3439: IF l_debug_level > 0 THEN
3440: OE_DEBUG_PUB.Add('Other error in validate_action:'
3441: ||sqlerrm,1);
3442: END IF;
3443: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3444: OE_MSG_PUB.Add_Exc_Msg
3461: ,x_return_status OUT NOCOPY VARCHAR2)
3462:
3463: IS
3464: l_baseline_rev_nbr NUMBER(9);
3465: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3466: BEGIN
3467:
3468: -- This is very similar to validateaction. In case of DELETE operation on order
3469: -- line with a baseline rev number > 0 , OM will error out.
3468: -- This is very similar to validateaction. In case of DELETE operation on order
3469: -- line with a baseline rev number > 0 , OM will error out.
3470: -- This is because CZ will not support REVERT action in this phase.
3471:
3472: oe_debug_pub.add('Enetering validate line action ' || p_macd_action,2);
3473: x_return_status := FND_API.G_RET_STS_SUCCESS;
3474:
3475: If p_macd_action in ('DELETE', 'DISCONTINUE') then
3476:
3487: AND cz_hdr.config_rev_nbr = czv.instance_rev_nbr
3488: AND cz_hdr.baseline_rev_nbr IS NOT NULL
3489: AND rownum = 1;
3490:
3491: oe_debug_pub.add('Base line rev number : ' || l_baseline_rev_nbr,2);
3492: IF l_baseline_rev_nbr > 0 AND
3493: p_macd_action = 'DELETE' THEN
3494: oe_debug_pub.add('Base line rev number greater than 0',2);
3495: RAISE FND_API.G_EXC_ERROR;
3490:
3491: oe_debug_pub.add('Base line rev number : ' || l_baseline_rev_nbr,2);
3492: IF l_baseline_rev_nbr > 0 AND
3493: p_macd_action = 'DELETE' THEN
3494: oe_debug_pub.add('Base line rev number greater than 0',2);
3495: RAISE FND_API.G_EXC_ERROR;
3496: END IF;
3497:
3498: Exception
3500: Null;
3501: End;
3502:
3503: End if;
3504: oe_debug_pub.add('Exiting validate_line_action',2);
3505: Exception
3506: WHEN FND_API.G_EXC_ERROR THEN
3507: IF l_debug_level > 0 THEN
3508: OE_DEBUG_PUB.Add('Expected Error in Validate_line_action:'
3504: oe_debug_pub.add('Exiting validate_line_action',2);
3505: Exception
3506: WHEN FND_API.G_EXC_ERROR THEN
3507: IF l_debug_level > 0 THEN
3508: OE_DEBUG_PUB.Add('Expected Error in Validate_line_action:'
3509: ||sqlerrm,3);
3510: END IF;
3511: x_return_status := FND_API.G_RET_STS_ERROR;
3512:
3511: x_return_status := FND_API.G_RET_STS_ERROR;
3512:
3513: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3514: IF l_debug_level > 0 THEN
3515: OE_DEBUG_PUB.Add('Unexpected Error Validate_line_action:'
3516: ||sqlerrm,3);
3517: END IF;
3518: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3519:
3519:
3520: WHEN OTHERS THEN
3521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3522: IF l_debug_level > 0 THEN
3523: OE_DEBUG_PUB.Add('Other error in validate_action:'
3524: ||sqlerrm,1);
3525: END IF;
3526: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3527: OE_MSG_PUB.Add_Exc_Msg