[Home] [Help]
33: FUNCTION Config_Exists(p_line_rec IN OE_ORDER_PUB.line_rec_type)
34: RETURN BOOLEAN
35: IS
36: --
37: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
38: --
39: BEGIN
40: RETURN TRUE;
41: END Config_Exists;
50: ( p_top_model_line_id IN NUMBER
51: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
52: IS
53: --
54: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
55: --
56: BEGIN
57: -- Complete Config Config Using the BOM_EXPLOSIONS
58: -- Populate link_to_line_id
144: -- or it can be class only for ato sub configs
145: -- in 2nd case we will get children using ato_line_id as a link.
146:
147: --
148: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
149: --
150: BEGIN
151:
152: IF l_debug_level > 0 THEN
149: --
150: BEGIN
151:
152: IF l_debug_level > 0 THEN
153: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.CASCADE_CHANGES' , 1);
154: oe_debug_pub.add('MODEL OLD QTY: ' ||L_OLD_QUANTITY , 2 );
155: oe_debug_pub.add('MODEL NEW QTY: ' ||L_NEW_QUANTITY , 2 );
156: END IF;
157:
150: BEGIN
151:
152: IF l_debug_level > 0 THEN
153: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.CASCADE_CHANGES' , 1);
154: oe_debug_pub.add('MODEL OLD QTY: ' ||L_OLD_QUANTITY , 2 );
155: oe_debug_pub.add('MODEL NEW QTY: ' ||L_NEW_QUANTITY , 2 );
156: END IF;
157:
158: IF l_old_quantity = 0 THEN
151:
152: IF l_debug_level > 0 THEN
153: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.CASCADE_CHANGES' , 1);
154: oe_debug_pub.add('MODEL OLD QTY: ' ||L_OLD_QUANTITY , 2 );
155: oe_debug_pub.add('MODEL NEW QTY: ' ||L_NEW_QUANTITY , 2 );
156: END IF;
157:
158: IF l_old_quantity = 0 THEN
159: IF l_debug_level > 0 THEN
156: END IF;
157:
158: IF l_old_quantity = 0 THEN
159: IF l_debug_level > 0 THEN
160: oe_debug_pub.add('CASCADE_CHANGES RETURNING , SINCE OLD QTY = 0' , 1);
161: END IF;
162: x_return_status := l_return_status;
163: RETURN;
164: END IF;
187: l_queried_quantity := l_parent_line_rec.ordered_quantity;
188:
189: IF l_new_quantity <> FND_API.G_MISS_NUM THEN
190: IF l_debug_level > 0 THEN
191: OE_DEBUG_PUB.Add('New Quantity is not missing');
192: END IF;
193: l_new_quantity := l_queried_quantity;
194: END IF;
195:
193: l_new_quantity := l_queried_quantity;
194: END IF;
195:
196: IF l_debug_level > 0 THEN
197: oe_debug_pub.add('Before opening cursor...',3);
198: oe_debug_pub.add('Hdr ID:'||l_header_id,3);
199: oe_debug_pub.add('Proj:'||l_project_id||' Task Id:'||l_task_id,3);
200: oe_debug_pub.add('New Qty:'||l_new_quantity,3);
201: oe_debug_pub.add('Parent Line:'||p_parent_line_id,3);
194: END IF;
195:
196: IF l_debug_level > 0 THEN
197: oe_debug_pub.add('Before opening cursor...',3);
198: oe_debug_pub.add('Hdr ID:'||l_header_id,3);
199: oe_debug_pub.add('Proj:'||l_project_id||' Task Id:'||l_task_id,3);
200: oe_debug_pub.add('New Qty:'||l_new_quantity,3);
201: oe_debug_pub.add('Parent Line:'||p_parent_line_id,3);
202: END IF;
195:
196: IF l_debug_level > 0 THEN
197: oe_debug_pub.add('Before opening cursor...',3);
198: oe_debug_pub.add('Hdr ID:'||l_header_id,3);
199: oe_debug_pub.add('Proj:'||l_project_id||' Task Id:'||l_task_id,3);
200: oe_debug_pub.add('New Qty:'||l_new_quantity,3);
201: oe_debug_pub.add('Parent Line:'||p_parent_line_id,3);
202: END IF;
203:
196: IF l_debug_level > 0 THEN
197: oe_debug_pub.add('Before opening cursor...',3);
198: oe_debug_pub.add('Hdr ID:'||l_header_id,3);
199: oe_debug_pub.add('Proj:'||l_project_id||' Task Id:'||l_task_id,3);
200: oe_debug_pub.add('New Qty:'||l_new_quantity,3);
201: oe_debug_pub.add('Parent Line:'||p_parent_line_id,3);
202: END IF;
203:
204: -- actual processing starts.
197: oe_debug_pub.add('Before opening cursor...',3);
198: oe_debug_pub.add('Hdr ID:'||l_header_id,3);
199: oe_debug_pub.add('Proj:'||l_project_id||' Task Id:'||l_task_id,3);
200: oe_debug_pub.add('New Qty:'||l_new_quantity,3);
201: oe_debug_pub.add('Parent Line:'||p_parent_line_id,3);
202: END IF;
203:
204: -- actual processing starts.
205:
221: END LOOP;
222:
223: IF l_line_count = 0 THEN
224: IF l_debug_level > 0 THEN
225: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.CASCADE_CHANGES' , 1);
226: oe_debug_pub.add('NO ROWS TO CASCADE' , 2 );
227: END IF;
228: RETURN;
229: END IF;
222:
223: IF l_line_count = 0 THEN
224: IF l_debug_level > 0 THEN
225: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.CASCADE_CHANGES' , 1);
226: oe_debug_pub.add('NO ROWS TO CASCADE' , 2 );
227: END IF;
228: RETURN;
229: END IF;
230:
228: RETURN;
229: END IF;
230:
231: IF l_debug_level > 0 THEN
232: oe_debug_pub.add('NO OF LINES TO CASCADE: '
233: || L_LINE_TBL.COUNT || P_REQUEST_REC.PARAM13 , 2 );
234: oe_debug_pub.add(L_NEW_QUANTITY || ' ' || L_ITEM_TYPE_CODE , 1);
235: END IF;
236:
230:
231: IF l_debug_level > 0 THEN
232: oe_debug_pub.add('NO OF LINES TO CASCADE: '
233: || L_LINE_TBL.COUNT || P_REQUEST_REC.PARAM13 , 2 );
234: oe_debug_pub.add(L_NEW_QUANTITY || ' ' || L_ITEM_TYPE_CODE , 1);
235: END IF;
236:
237: IF l_new_quantity = 0 AND
238: (l_item_type_code = OE_GLOBALS.G_ITEM_MODEL OR
238: (l_item_type_code = OE_GLOBALS.G_ITEM_MODEL OR
239: l_item_type_code = OE_GLOBALS.G_ITEM_KIT)
240: THEN
241: IF l_debug_level > 0 THEN
242: oe_debug_pub.add('DO NOT SUPRESS SCHEDULING' , 3 );
243: END IF;
244: l_set_zero := 'Y';
245: END IF;
246:
254: l_item_type_code = OE_GLOBALS.G_ITEM_KIT)
255: THEN
256: IF l_line_tbl(I).item_type_code <> OE_GLOBALS.G_ITEM_CONFIG THEN
257: IF l_debug_level > 0 THEN
258: oe_debug_pub.add('NEW QTY 0 ,NOT CANCELLATION ,SO DELETE',1);
259: END IF;
260: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_DELETE;
261: ELSE
262: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
267: l_line_tbl(I).OPERATION := OE_GLOBALS.G_OPR_UPDATE;
268:
269: -- if qty becomes 0, the options will get cancelled eventually.
270: IF l_debug_level > 0 THEN
271: oe_debug_pub.add('REGULAR CODE , BIG ELSE' , 1);
272: END IF;
273:
274: IF (l_line_tbl(I).item_type_code = OE_GLOBALS.G_ITEM_CONFIG AND
275: l_new_quantity = 0)
274: IF (l_line_tbl(I).item_type_code = OE_GLOBALS.G_ITEM_CONFIG AND
275: l_new_quantity = 0)
276: THEN
277: IF l_debug_level > 0 THEN
278: oe_debug_pub.add('DO NOT CASCADE' , 3 );
279: END IF;
280: l_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
281: ELSE
282:
284: (l_item_type_code = OE_GLOBALS.G_ITEM_MODEL OR
285: l_item_type_code = OE_GLOBALS.G_ITEM_KIT)
286: THEN
287: IF l_debug_level > 0 THEN
288: oe_debug_pub.add('CASCADE_CHANGES , OLD_ORD_QTY: '
289: ||L_LINE_TBL (I).ORDERED_QUANTITY , 2 );
290: END IF;
291:
292: l_line_tbl(I).ordered_quantity :=
296: l_line_tbl(I).change_reason := 'SYSTEM';
297: /* End Audit Trail */
298:
299: IF l_debug_level > 0 THEN
300: oe_debug_pub.add(L_LINE_TBL (I).LINE_ID||':'
301: ||L_LINE_TBL (I).INVENTORY_ITEM_ID , 2 );
302: oe_debug_pub.add('NEW_ORD_QTY: '
303: ||L_LINE_TBL (I).ORDERED_QUANTITY , 2 );
304: END IF;
298:
299: IF l_debug_level > 0 THEN
300: oe_debug_pub.add(L_LINE_TBL (I).LINE_ID||':'
301: ||L_LINE_TBL (I).INVENTORY_ITEM_ID , 2 );
302: oe_debug_pub.add('NEW_ORD_QTY: '
303: ||L_LINE_TBL (I).ORDERED_QUANTITY , 2 );
304: END IF;
305: END IF;
306:
311:
312: IF nvl(l_project_id, -1) <> FND_API.G_MISS_NUM THEN
313: l_line_tbl(I).project_id := l_project_id;
314: IF l_debug_level > 0 THEN
315: oe_debug_pub.add('PROJECT_ID CASCADED, L_LINE_TBL (I).LINE_ID: '
316: || L_PROJECT_ID , 2 );
317: END IF;
318: END IF;
319:
319:
320: IF nvl(l_task_id, -1) <> FND_API.G_MISS_NUM THEN
321: l_line_tbl(I).task_id := l_task_id;
322: IF l_debug_level > 0 THEN
323: oe_debug_pub.add('TASK_ID CASCADED FOR,L_LINE_TBL (I).LINE_ID: '
324: || L_TASK_ID , 2 );
325: END IF;
326: END IF;
327:
345: (l_line_tbl(I).ordered_quantity / l_model_qty) * l_ship_quantity;
346: l_line_tbl(I).actual_shipment_date := l_model_actual_ship_date;
347:
348: IF l_debug_level > 0 THEN
349: oe_debug_pub.add('CASCADED SHIPPED QTY , L_LINE_TBL (I).LINE_ID: '
350: || L_LINE_TBL (I).SHIPPED_QUANTITY , 2 );
351: oe_debug_pub.add('CASCADED ACT_SHIP_DATE '
352: || L_LINE_TBL (I).ACTUAL_SHIPMENT_DATE , 2 );
353: END IF;
347:
348: IF l_debug_level > 0 THEN
349: oe_debug_pub.add('CASCADED SHIPPED QTY , L_LINE_TBL (I).LINE_ID: '
350: || L_LINE_TBL (I).SHIPPED_QUANTITY , 2 );
351: oe_debug_pub.add('CASCADED ACT_SHIP_DATE '
352: || L_LINE_TBL (I).ACTUAL_SHIPMENT_DATE , 2 );
353: END IF;
354: END IF;
355: END IF;
359:
360: IF nvl(l_ship_to_org_id, -1)<> FND_API.G_MISS_NUM THEN
361: l_line_tbl(I).ship_to_org_id := l_ship_to_org_id;
362: IF l_debug_level > 0 THEN
363: oe_debug_pub.add('SHIP TO CASCADED , LINE_ID: '
364: || L_SHIP_TO_ORG_ID , 2 );
365: END IF;
366: END IF;
367:
367:
368: IF nvl(l_request_date, sysdate) <> FND_API.G_MISS_DATE THEN
369: l_line_tbl(I).request_date := l_request_date;
370: IF l_debug_level > 0 THEN
371: oe_debug_pub.add('REQUEST_DATE CASCADED , REQUEST_DATE: '
372: || L_REQUEST_DATE , 2 );
373: END IF;
374: END IF;
375:
377:
378: IF nvl(p_request_rec.param15, 'X')<> FND_API.G_MISS_CHAR THEN
379: l_line_tbl(I).source_type_code := p_request_rec.param15;
380: IF l_debug_level > 0 THEN
381: oe_debug_pub.add('SOURCE_TYPE CASCADED: '
382: || P_REQUEST_REC.PARAM15 , 2 );
383: END IF;
384: END IF;
385:
389:
390: IF nvl(l_freight_terms_code, 'X')<> FND_API.G_MISS_CHAR THEN
391: l_line_tbl(I).freight_terms_code := l_freight_terms_code ;
392: IF l_debug_level > 0 THEN
393: oe_debug_pub.add('FREIGHT_TERMS_CODE CASCADED: '
394: || L_FREIGHT_TERMS_CODE , 2 );
395: END IF;
396: END IF;
397:
399:
400: IF nvl(l_promise_date, sysdate) <> FND_API.G_MISS_DATE THEN
401: l_line_tbl(I).promise_date := l_promise_date;
402: IF l_debug_level > 0 THEN
403: oe_debug_pub.add('PROMISE DATE OCASCADED , PROMISE_DATE: '
404: || L_PROMISE_DATE , 2 );
405: END IF;
406: END IF;
407:
446: IF l_set_zero = 'N' AND
447: nvl(l_parent_line_rec.ship_model_complete_flag, 'Y') <> 'N'
448: THEN
449: IF l_debug_level > 0 THEN
450: oe_debug_pub.add('SCHEDULE FLAG SET TO N' , 5 );
451: END IF;
452: -- 4504362
453: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
454: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
454: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
455: END IF;
456:
457: IF l_debug_level > 0 THEN
458: oe_debug_pub.add('CALLING PROCESS ORDER' , 2 );
459: END IF;
460:
461: -- Call OE_Order_PVT.Process_order
462:
468: ,x_return_status => l_return_status);
469:
470:
471: IF l_debug_level > 0 THEN
472: oe_debug_pub.add('IN CASCADE CHANGES AFTER CALLING PROCESS ORDER' , 2 );
473: oe_debug_pub.add('L_RETURN_STATUS IS ' || L_RETURN_STATUS , 1);
474: END IF;
475:
476: -- Resetting the Recursive Call Constant to 'N'
469:
470:
471: IF l_debug_level > 0 THEN
472: oe_debug_pub.add('IN CASCADE CHANGES AFTER CALLING PROCESS ORDER' , 2 );
473: oe_debug_pub.add('L_RETURN_STATUS IS ' || L_RETURN_STATUS , 1);
474: END IF;
475:
476: -- Resetting the Recursive Call Constant to 'N'
477: OE_CONFIG_UTIL.CASCADE_CHANGES_FLAG := 'N';
495:
496: -- Instance Unlocking.
497:
498: IF l_debug_level > 0 THEN
499: oe_debug_pub.add('Before calling Unlock_Config for parent line.' , 3 );
500: END IF;
501: IF l_parent_line_rec.item_type_code = 'MODEL'
502: AND l_parent_line_rec.Booked_flag = 'Y' THEN
503:
503:
504: Unlock_Config(p_line_rec => l_parent_line_rec,
505: x_return_status => l_return_status);
506:
507: oe_debug_pub.add('After calling Unlock_Config for parent line ' || l_return_status , 3 );
508: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
510: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
511: RAISE FND_API.G_EXC_ERROR;
521: WHERE top_model_line_id = p_parent_line_id;
522:
523: IF SQL%FOUND THEN
524: IF l_debug_level > 0 THEN
525: oe_debug_pub.add('CONFIG IDS SET TO NULL' , 3 );
526: END IF;
527: END IF;
528:
529: -- delete the SPC configuration data.
554:
555: x_return_status := l_return_status;
556:
557: IF l_debug_level > 0 THEN
558: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.CASCADE_CHANGES' , 1);
559: END IF;
560:
561: EXCEPTION
562: WHEN OTHERS THEN
560:
561: EXCEPTION
562: WHEN OTHERS THEN
563: IF l_debug_level > 0 THEN
564: oe_debug_pub.add('CASCADE_CHANGES ERROR '|| SQLERRM , 1);
565: END IF;
566: RAISE;
567: END;
568:
577: ,x_line_rec OUT NOCOPY OE_ORDER_PUB.line_rec_type)
578: IS
579: l_line_rec OE_ORDER_PUB.line_rec_type;
580: --
581: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
582: --
583: BEGIN
584: x_line_rec := l_line_rec;
585: END;
646: -- or it can be class only for ato sub configs
647: -- in 2nd case we will get children using ato_line_id as a link.
648:
649: --
650: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
651: --
652: BEGIN
653:
654: IF l_debug_level > 0 THEN
651: --
652: BEGIN
653:
654: IF l_debug_level > 0 THEN
655: oe_debug_pub.add('ENTERING OE_CONGIG_UTIL.CHANGE_CONFIGURATION' , 1);
656: END IF;
657:
658: -- insted of modifying cursor, querying the line,
659: -- so that code remains clean.
709: END LOOP;
710:
711: IF l_count = 0 THEN
712: IF l_debug_level > 0 THEN
713: oe_debug_pub.add('EXITING OE_CONGIG_UTIL.CHANGE_CONFIGURATION' , 1);
714: oe_debug_pub.add('NO ROWS TO PASS TO PROCESS_ORDER' , 2 );
715: END IF;
716: RETURN;
717: END IF;
710:
711: IF l_count = 0 THEN
712: IF l_debug_level > 0 THEN
713: oe_debug_pub.add('EXITING OE_CONGIG_UTIL.CHANGE_CONFIGURATION' , 1);
714: oe_debug_pub.add('NO ROWS TO PASS TO PROCESS_ORDER' , 2 );
715: END IF;
716: RETURN;
717: END IF;
718:
749: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
750: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'N';
751:
752: IF l_debug_level > 0 THEN
753: oe_debug_pub.add('CALLING PROCESS ORDER WITH LINES: '
754: || L_LINE_TBL.COUNT , 2 );
755: END IF;
756:
757: OE_ORDER_PVT.Lines
804:
805: x_return_status := l_return_status;
806:
807: IF l_debug_level > 0 THEN
808: oe_debug_pub.add('EXITING OE_CONGIG_UTIL.CHANGE_CONFIGURATION' , 1);
809: END IF;
810:
811: END Change_Configuration;
812:
838: l_po_status_rec PO_STATUS_REC_TYPE;
839: l_autorization_status VARCHAR2(30);
840:
841: --
842: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
843: --
844: BEGIN
845: OE_LINE_UTIL.Lock_Row(p_line_id => p_line_id
846: ,p_x_line_rec => l_line_rec
852: RAISE FND_API.G_EXC_ERROR;
853: END IF;
854:
855: IF l_debug_level > 0 THEN
856: oe_debug_pub.add('ENTERING OE_CONGIG_UTIL.DELINK_CONFIG' , 1);
857: END IF;
858:
859: -- Changes for Enhanced DropShipments. Prevent Delink
860: -- if the PO associated with config item is Approved.
879: AND header_id = l_line_rec.header_id;
880: EXCEPTION
881: WHEN NO_DATA_FOUND THEN
882: IF l_debug_level > 0 THEN
883: OE_DEBUG_PUB.Add('PO Not Created for Config.:'||
884: l_line_rec.line_id , 2 );
885: END IF;
886: END;
887:
897: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
898: l_autorization_status := l_po_status_rec.authorization_status(1);
899:
900: IF l_debug_level > 0 THEN
901: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
902: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
903: END IF;
904: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
898: l_autorization_status := l_po_status_rec.authorization_status(1);
899:
900: IF l_debug_level > 0 THEN
901: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
902: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
903: END IF;
904: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
906: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
949:
950: l_header_rec.operation := OE_GLOBALS.G_OPR_NONE;
951:
952: IF l_debug_level > 0 THEN
953: oe_debug_pub.add(' ' , 3 );
954: oe_debug_pub.add('IN DELINK_CONFIG CALLING PROCESS ORDER' , 3 );
955: oe_debug_pub.add('IN DELINK_CONFIG AFTER CALL TO PROCESS ORDER' , 3 );
956: oe_debug_pub.add('L_RETURN_STATUS IS: ' || L_RETURN_STATUS , 2 );
957: END IF;
950: l_header_rec.operation := OE_GLOBALS.G_OPR_NONE;
951:
952: IF l_debug_level > 0 THEN
953: oe_debug_pub.add(' ' , 3 );
954: oe_debug_pub.add('IN DELINK_CONFIG CALLING PROCESS ORDER' , 3 );
955: oe_debug_pub.add('IN DELINK_CONFIG AFTER CALL TO PROCESS ORDER' , 3 );
956: oe_debug_pub.add('L_RETURN_STATUS IS: ' || L_RETURN_STATUS , 2 );
957: END IF;
958:
951:
952: IF l_debug_level > 0 THEN
953: oe_debug_pub.add(' ' , 3 );
954: oe_debug_pub.add('IN DELINK_CONFIG CALLING PROCESS ORDER' , 3 );
955: oe_debug_pub.add('IN DELINK_CONFIG AFTER CALL TO PROCESS ORDER' , 3 );
956: oe_debug_pub.add('L_RETURN_STATUS IS: ' || L_RETURN_STATUS , 2 );
957: END IF;
958:
959: OE_ORDER_PVT.Lines
952: IF l_debug_level > 0 THEN
953: oe_debug_pub.add(' ' , 3 );
954: oe_debug_pub.add('IN DELINK_CONFIG CALLING PROCESS ORDER' , 3 );
955: oe_debug_pub.add('IN DELINK_CONFIG AFTER CALL TO PROCESS ORDER' , 3 );
956: oe_debug_pub.add('L_RETURN_STATUS IS: ' || L_RETURN_STATUS , 2 );
957: END IF;
958:
959: OE_ORDER_PVT.Lines
960: (p_validation_level => FND_API.G_VALID_LEVEL_NONE
966:
967: -- count and get
968: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
969: IF l_debug_level > 0 THEN
970: oe_debug_pub.add('STATUS:' || L_RETURN_STATUS , 3 );
971: END IF;
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
974: IF l_debug_level > 0 THEN
971: END IF;
972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
973: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
974: IF l_debug_level > 0 THEN
975: oe_debug_pub.add('STATUS:' || L_RETURN_STATUS , 3 );
976: END IF;
977: RAISE FND_API.G_EXC_ERROR;
978: END IF;
979:
999: -- if everything is OK.
1000: x_return_status := FND_API.G_RET_STS_SUCCESS;
1001:
1002: IF l_debug_level > 0 THEN
1003: oe_debug_pub.add('IN OE_CONFIG_UTI.DELINK , X_RETURN_STATUS'
1004: ||X_RETURN_STATUS , 2 );
1005: oe_debug_pub.add('EXITING OE_CONGIG_UTIL.DELINK_CONFIG' , 1);
1006: END IF;
1007:
1001:
1002: IF l_debug_level > 0 THEN
1003: oe_debug_pub.add('IN OE_CONFIG_UTI.DELINK , X_RETURN_STATUS'
1004: ||X_RETURN_STATUS , 2 );
1005: oe_debug_pub.add('EXITING OE_CONGIG_UTIL.DELINK_CONFIG' , 1);
1006: END IF;
1007:
1008: EXCEPTION
1009: WHEN FND_API.G_EXC_ERROR THEN
1025: );
1026:
1027: WHEN OTHERS THEN
1028: IF l_debug_level > 0 THEN
1029: oe_debug_pub.add('ERROR: ' || SUBSTR ( SQLERRM , 1 , 100 ) , 1);
1030: END IF;
1031:
1032: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
1033: THEN
1084: AND header_id = p_header_id
1085: AND open_flag = 'Y';
1086:
1087: --
1088: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1089: --
1090: BEGIN
1091:
1092: IF l_debug_level > 0 THEN
1089: --
1090: BEGIN
1091:
1092: IF l_debug_level > 0 THEN
1093: oe_debug_pub.add('ENTERING OE_CONGIG_UTIL.VALIDATE_CFGS_IN_ORDER' , 1);
1094: END IF;
1095: --get_transaction_id(p_caller => 'before validate_cfgs');
1096:
1097: OPEN models;
1120: ELSE
1121: IF LOWER(l_valid_config) = 'false' OR
1122: LOWER(l_complete_config) = 'false' THEN
1123: IF l_debug_level > 0 THEN
1124: oe_debug_pub.add('RETURN_STATUS SUCCESS,BUT INVALID/INCOMPLETE',2);
1125: END IF;
1126: RETURN FND_API.G_RET_STS_ERROR;
1127: END IF;
1128: END IF;
1131: IF l_booked_flag = 'Y' THEN
1132:
1133: IF l_debug_level > 0 THEN
1134:
1135: oe_debug_pub.add(' Before calling Is part of container model ' || l_line_id, 2);
1136:
1137: END IF;
1138:
1139: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
1156: l_order_number := OE_SCHEDULE_UTIL.Get_Order_Number(p_header_id);
1157:
1158: IF l_debug_level > 0 THEN
1159:
1160: oe_debug_pub.add(' Calling lock_Config' || l_config_header_id, 2);
1161: oe_debug_pub.add(' Config rev nbr' || l_config_rev_nbr, 2);
1162: oe_debug_pub.add(' Configuration_id ' || l_configuration_id, 2);
1163: oe_debug_pub.add(' Order Number ' || l_order_number, 2);
1164:
1157:
1158: IF l_debug_level > 0 THEN
1159:
1160: oe_debug_pub.add(' Calling lock_Config' || l_config_header_id, 2);
1161: oe_debug_pub.add(' Config rev nbr' || l_config_rev_nbr, 2);
1162: oe_debug_pub.add(' Configuration_id ' || l_configuration_id, 2);
1163: oe_debug_pub.add(' Order Number ' || l_order_number, 2);
1164:
1165: END IF;
1158: IF l_debug_level > 0 THEN
1159:
1160: oe_debug_pub.add(' Calling lock_Config' || l_config_header_id, 2);
1161: oe_debug_pub.add(' Config rev nbr' || l_config_rev_nbr, 2);
1162: oe_debug_pub.add(' Configuration_id ' || l_configuration_id, 2);
1163: oe_debug_pub.add(' Order Number ' || l_order_number, 2);
1164:
1165: END IF;
1166:
1159:
1160: oe_debug_pub.add(' Calling lock_Config' || l_config_header_id, 2);
1161: oe_debug_pub.add(' Config rev nbr' || l_config_rev_nbr, 2);
1162: oe_debug_pub.add(' Configuration_id ' || l_configuration_id, 2);
1163: oe_debug_pub.add(' Order Number ' || l_order_number, 2);
1164:
1165: END IF;
1166:
1167: CZ_IB_LOCKING.Lock_Config
1182: x_msg_count => l_msg_count,
1183: x_msg_data => l_msg_data);
1184:
1185: IF l_debug_level > 0 THEN
1186: oe_debug_pub.add(' After calling CZ lock API ' || l_return_status || l_msg_data,2);
1187: END IF;
1188: IF l_msg_count > 0 THEN
1189: OE_MSG_PUB.Transfer_Msg_stack;
1190:
1200:
1201: CLOSE models;
1202:
1203: IF l_debug_level > 0 THEN
1204: oe_debug_pub.add('LEAVING VALIDATE_CFGS_IN_ORDER:' || L_RETURN_STATUS ,2);
1205: oe_debug_pub.add('EXITING OE_CONGIG_UTIL.VALIDATE_CFGS_IN_ORDER' , 1);
1206: END IF;
1207: --get_transaction_id(p_caller => 'leaving validate_cfgs');
1208:
1201: CLOSE models;
1202:
1203: IF l_debug_level > 0 THEN
1204: oe_debug_pub.add('LEAVING VALIDATE_CFGS_IN_ORDER:' || L_RETURN_STATUS ,2);
1205: oe_debug_pub.add('EXITING OE_CONGIG_UTIL.VALIDATE_CFGS_IN_ORDER' , 1);
1206: END IF;
1207: --get_transaction_id(p_caller => 'leaving validate_cfgs');
1208:
1209: RETURN l_return_status;
1232: AND open_flag = 'Y'
1233: AND header_id = p_header_id;
1234:
1235: --
1236: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1237: --
1238: BEGIN
1239:
1240: IF l_debug_level > 0 THEN
1237: --
1238: BEGIN
1239:
1240: IF l_debug_level > 0 THEN
1241: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.FREEZE_INC_ITEMS_FOR_ORDER' , 1);
1242: END IF;
1243:
1244: OPEN order_lines;
1245:
1259:
1260: CLOSE order_lines;
1261:
1262: IF l_debug_level > 0 THEN
1263: oe_debug_pub.add('LEAVING FREEZE_INC_ITEMS_FOR_ORDER:'
1264: || L_RETURN_STATUS , 2 );
1265: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.FREEZE_INC_ITEMS_FOR_ORDER' , 1);
1266: END IF;
1267: RETURN l_return_status;
1261:
1262: IF l_debug_level > 0 THEN
1263: oe_debug_pub.add('LEAVING FREEZE_INC_ITEMS_FOR_ORDER:'
1264: || L_RETURN_STATUS , 2 );
1265: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.FREEZE_INC_ITEMS_FOR_ORDER' , 1);
1266: END IF;
1267: RETURN l_return_status;
1268: END Freeze_Inc_Items_for_Order;
1269:
1280: l_valid_config VARCHAR2(10);
1281: l_complete_config VARCHAR2(10);
1282: l_return_status VARCHAR2(1);
1283: --
1284: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1285: --
1286: BEGIN
1287: Oe_Config_Util.Validate_Configuration
1288: (p_model_line_id => p_model_line_id,
1420: l_exists_flag VARCHAR2(1) := FND_API.G_TRUE;
1421: l_complete_flag VARCHAR2(1) := FND_API.G_TRUE;
1422: l_valid_flag VARCHAR2(1) := FND_API.G_TRUE;
1423: --
1424: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1425: --
1426: BEGIN
1427: IF l_debug_level > 0 THEN
1428: oe_debug_pub.add('ENTERING CONFIGURATOR_VALIDATION' , 1);
1424: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1425: --
1426: BEGIN
1427: IF l_debug_level > 0 THEN
1428: oe_debug_pub.add('ENTERING CONFIGURATOR_VALIDATION' , 1);
1429: oe_debug_pub.add('QUERYING MODEL LINE' , 3 );
1430: END IF;
1431:
1432: BEGIN
1425: --
1426: BEGIN
1427: IF l_debug_level > 0 THEN
1428: oe_debug_pub.add('ENTERING CONFIGURATOR_VALIDATION' , 1);
1429: oe_debug_pub.add('QUERYING MODEL LINE' , 3 );
1430: END IF;
1431:
1432: BEGIN
1433: SELECT header_id, ordered_quantity, booked_flag,
1455: l_config_rev_nbr is null) AND
1456: Oe_Config_Util.G_Upgraded_Flag = 'N'
1457: THEN
1458: IF l_debug_level > 0 THEN
1459: oe_debug_pub.add('UPGRADE THE CONFIGURAION' , 2 );
1460: END IF;
1461:
1462: Oe_Config_Util.G_Upgraded_Flag := 'Y';
1463:
1477: RAISE FND_API.G_EXC_ERROR;
1478: END IF;
1479:
1480: IF l_debug_level > 0 THEN
1481: oe_debug_pub.add('CONFIGURAION GOT UPGRADED' , 2 );
1482: END IF;
1483: END IF;
1484: END;
1485:
1484: END;
1485:
1486:
1487: IF l_debug_level > 0 THEN
1488: oe_debug_pub.add('REV NBR ' ||L_CONFIG_REV_NBR );
1489: oe_debug_pub.add('CONF HDR ID' ||L_CONFIG_HEADER_ID );
1490: oe_debug_pub.add('BOOKED FLAG ' || L_BOOKED_FLAG );
1491: END IF;
1492:
1485:
1486:
1487: IF l_debug_level > 0 THEN
1488: oe_debug_pub.add('REV NBR ' ||L_CONFIG_REV_NBR );
1489: oe_debug_pub.add('CONF HDR ID' ||L_CONFIG_HEADER_ID );
1490: oe_debug_pub.add('BOOKED FLAG ' || L_BOOKED_FLAG );
1491: END IF;
1492:
1493: -- Check if there is any INSERT option operation being
1486:
1487: IF l_debug_level > 0 THEN
1488: oe_debug_pub.add('REV NBR ' ||L_CONFIG_REV_NBR );
1489: oe_debug_pub.add('CONF HDR ID' ||L_CONFIG_HEADER_ID );
1490: oe_debug_pub.add('BOOKED FLAG ' || L_BOOKED_FLAG );
1491: END IF;
1492:
1493: -- Check if there is any INSERT option operation being
1494: -- performed on an existing Model
1503: AND config_header_id IS NULL
1504: AND config_rev_nbr IS NULL;
1505:
1506: IF l_debug_level > 0 THEN
1507: OE_Debug_Pub.Add('lines w/o cfg hdr '|| l_any_insert, 3);
1508: OE_Debug_Pub.Add('Order Level Copy '||OE_ORDER_COPY_UTIL.G_ORDER_LEVEL_COPY, 3);
1509: END IF;
1510:
1511: IF l_any_insert = 0 THEN
1504: AND config_rev_nbr IS NULL;
1505:
1506: IF l_debug_level > 0 THEN
1507: OE_Debug_Pub.Add('lines w/o cfg hdr '|| l_any_insert, 3);
1508: OE_Debug_Pub.Add('Order Level Copy '||OE_ORDER_COPY_UTIL.G_ORDER_LEVEL_COPY, 3);
1509: END IF;
1510:
1511: IF l_any_insert = 0 THEN
1512:
1520: AND oe.config_rev_nbr = cz.config_rev_nbr
1521: AND oe.component_code = cz.component_code;
1522:
1523: IF l_debug_level > 0 THEN
1524: OE_Debug_Pub.Add('yes, need to call batch val for model qty',3);
1525: END IF;
1526:
1527: EXCEPTION
1528: WHEN NO_DATA_FOUND THEN
1526:
1527: EXCEPTION
1528: WHEN NO_DATA_FOUND THEN
1529: IF l_debug_level > 0 THEN
1530: OE_Debug_Pub.Add('no need to call batch val for model qty',3);
1531: END IF;
1532: WHEN OTHERS THEN
1533: IF l_debug_level > 0 THEN
1534: oe_debug_pub.add( 'QTY SELECT: '|| SQLERRM , 1 ) ;
1530: OE_Debug_Pub.Add('no need to call batch val for model qty',3);
1531: END IF;
1532: WHEN OTHERS THEN
1533: IF l_debug_level > 0 THEN
1534: oe_debug_pub.add( 'QTY SELECT: '|| SQLERRM , 1 ) ;
1535: END IF;
1536: RAISE;
1537: END;
1538: END IF; -- model qty check
1547: l_config_rev_nbr is not null AND
1548: l_config_header_id is not null
1549: THEN
1550: IF l_debug_level > 0 THEN
1551: OE_Debug_Pub.Add('Skip Batch Validation ');
1552: END IF;
1553:
1554: CZ_CONFIG_API_PUB.verify_configuration
1555: ( p_api_version => 1.0,
1562: x_msg_count => l_msg_count,
1563: x_msg_data => l_msg_data );
1564:
1565: IF l_debug_level > 0 THEN
1566: oe_debug_pub.add (' Exists Flag :' ||l_exists_flag,2);
1567: oe_debug_pub.add (' Valid Flag :'|| l_valid_flag,2);
1568: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1569: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1570: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1563: x_msg_data => l_msg_data );
1564:
1565: IF l_debug_level > 0 THEN
1566: oe_debug_pub.add (' Exists Flag :' ||l_exists_flag,2);
1567: oe_debug_pub.add (' Valid Flag :'|| l_valid_flag,2);
1568: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1569: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1570: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1571: oe_debug_pub.add (' Message Data :'|| l_msg_data,2);
1564:
1565: IF l_debug_level > 0 THEN
1566: oe_debug_pub.add (' Exists Flag :' ||l_exists_flag,2);
1567: oe_debug_pub.add (' Valid Flag :'|| l_valid_flag,2);
1568: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1569: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1570: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1571: oe_debug_pub.add (' Message Data :'|| l_msg_data,2);
1572: END IF;
1565: IF l_debug_level > 0 THEN
1566: oe_debug_pub.add (' Exists Flag :' ||l_exists_flag,2);
1567: oe_debug_pub.add (' Valid Flag :'|| l_valid_flag,2);
1568: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1569: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1570: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1571: oe_debug_pub.add (' Message Data :'|| l_msg_data,2);
1572: END IF;
1573:
1566: oe_debug_pub.add (' Exists Flag :' ||l_exists_flag,2);
1567: oe_debug_pub.add (' Valid Flag :'|| l_valid_flag,2);
1568: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1569: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1570: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1571: oe_debug_pub.add (' Message Data :'|| l_msg_data,2);
1572: END IF;
1573:
1574: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1567: oe_debug_pub.add (' Valid Flag :'|| l_valid_flag,2);
1568: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1569: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1570: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1571: oe_debug_pub.add (' Message Data :'|| l_msg_data,2);
1572: END IF;
1573:
1574: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1578: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1579:
1580: IF l_exists_flag = FND_API.G_FALSE THEN
1581: IF l_debug_level > 0 THEN
1582: oe_debug_pub.add('Configuration Does not Exist '|| l_msg_data,2);
1583: END IF;
1584: RAISE FND_API.G_EXC_ERROR;
1585:
1586: ELSE
1584: RAISE FND_API.G_EXC_ERROR;
1585:
1586: ELSE
1587: IF l_debug_level > 0 THEN
1588: oe_debug_pub.add (' Configuration Exists ',2);
1589: END IF;
1590:
1591: IF l_valid_flag = FND_API.G_FALSE THEN
1592: l_valid_config := 'FALSE';
1597: IF l_complete_flag = FND_API.G_FALSE THEN
1598: l_complete_config := 'FALSE';
1599: ELSE
1600: IF l_debug_level > 0 THEN
1601: oe_debug_pub.add('Configuration Exists, valid and Complete ',2);
1602: END IF;
1603: l_complete_config := 'TRUE';
1604: END IF;
1605: END IF; -- if exist flag = false
1622: -- If the call is from Order Import and not BOOKING then skip the
1623: -- Configurator BATCH Validation (bug 2560933)
1624:
1625: IF l_debug_level > 0 THEN
1626: oe_debug_pub.add('CALLING CREATE_HDR_XML' , 2 );
1627: oe_debug_pub.add('--------INITIALIZATION MESSAGE------------' , 2 );
1628: END IF;
1629:
1630: Create_hdr_xml
1623: -- Configurator BATCH Validation (bug 2560933)
1624:
1625: IF l_debug_level > 0 THEN
1626: oe_debug_pub.add('CALLING CREATE_HDR_XML' , 2 );
1627: oe_debug_pub.add('--------INITIALIZATION MESSAGE------------' , 2 );
1628: END IF;
1629:
1630: Create_hdr_xml
1631: ( p_model_line_id => p_model_line_id ,
1631: ( p_model_line_id => p_model_line_id ,
1632: x_xml_hdr => l_xml_hdr);
1633:
1634: IF l_debug_level > 0 THEN
1635: oe_debug_pub.add('------AFTER CREATE INITIALIZATION MESSAGE----' , 2 );
1636: oe_debug_pub.add('CALLING SEND_INPUT_XML' , 2 );
1637: END IF;
1638:
1639: Send_Input_xml
1632: x_xml_hdr => l_xml_hdr);
1633:
1634: IF l_debug_level > 0 THEN
1635: oe_debug_pub.add('------AFTER CREATE INITIALIZATION MESSAGE----' , 2 );
1636: oe_debug_pub.add('CALLING SEND_INPUT_XML' , 2 );
1637: END IF;
1638:
1639: Send_Input_xml
1640: ( p_model_line_id => l_model_line_id,
1645: x_out_xml_msg => l_xml_message,
1646: x_return_status => l_return_status );
1647:
1648: IF l_debug_level > 0 THEN
1649: oe_debug_pub.add
1650: ('AFTER CALLING SEND_INPUT_XML: '||L_RETURN_STATUS , 2 );
1651: END IF;
1652: --get_transaction_id(p_caller => 'after send_xml');
1653:
1664:
1665: -- extract data from xml message.
1666:
1667: IF l_debug_level > 0 THEN
1668: oe_debug_pub.add('CALLING PARSE_OUTPUT_XML' , 2 );
1669: END IF;
1670:
1671: Parse_Output_xml
1672: ( p_xml => l_xml_message,
1677: x_config_rev_nbr => l_config_rev_nbr,
1678: x_return_status => l_return_status );
1679:
1680: IF l_debug_level > 0 THEN
1681: oe_debug_pub.add('AFTER CALLING PARSE_XML: '||L_RETURN_STATUS , 2 );
1682: END IF;
1683:
1684: x_valid_config := l_valid_config;
1685: x_complete_config := l_complete_config;
1699: (l_valid_config = 'FALSE' OR
1700: l_complete_config = 'FALSE') THEN
1701:
1702: IF l_debug_level > 0 THEN
1703: oe_debug_pub.add('CALLER IS BOOKING AND ERRORED OUT' , 2 );
1704: END IF;
1705:
1706: x_return_status := l_return_status;
1707: RETURN;
1713: -- to release the hold, if the configuration becomes valid and complete
1714: -- after this particular change.
1715:
1716: IF l_debug_level > 0 THEN
1717: oe_debug_pub.add('IS THIS IS A BOOKED ORDER , IF SO PUT HOLD: '
1718: ||L_BOOKED_FLAG , 2 );
1719: END IF;
1720:
1721: IF l_booked_flag = 'Y' THEN
1741:
1742: -- call to process_config to insert new valid and complete confiuration
1743:
1744: IF l_debug_level > 0 THEN
1745: oe_debug_pub.add('------- CALLING PROCESS_CONFIG -----------' , 2 );
1746: END IF;
1747:
1748: OE_Config_Pvt.Process_Config
1749: ( p_header_id => l_header_id
1756: ,x_msg_data => l_msg_data
1757: ,x_return_status => l_return_status );
1758:
1759: IF l_debug_level > 0 THEN
1760: oe_debug_pub.add('AFTER CALL TO PROCESS_CONFIG: '
1761: ||L_RETURN_STATUS , 2 );
1762: END IF;
1763:
1764: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1762: END IF;
1763:
1764: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1765: IF l_debug_level > 0 THEN
1766: oe_debug_pub.add('PROCESS CONFIG UNEXPECTED ERROR' , 2 );
1767: END IF;
1768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1769:
1770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1769:
1770: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1771: IF l_debug_level > 0 THEN
1772: oe_debug_pub.add('PROCESS CONFIG EXEC ERROR' , 2 );
1773: END IF;
1774: RAISE FND_API.G_EXC_ERROR;
1775:
1776: END IF;
1778: -- If you are here, things went off OK ! So return success
1779: x_return_status := l_return_status;
1780:
1781: IF l_debug_level > 0 THEN
1782: oe_debug_pub.add('LEAVING CONFIGURATOR_VALIDATION' , 1);
1783: END IF;
1784: EXCEPTION
1785: WHEN OTHERS THEN
1786: IF l_debug_level > 0 THEN
1783: END IF;
1784: EXCEPTION
1785: WHEN OTHERS THEN
1786: IF l_debug_level > 0 THEN
1787: oe_debug_pub.add('ECXEPTION IN CONFIGURATOR_VALIDATION'|| SQLERRM , 1);
1788: END IF;
1789: RAISE;
1790: END Configurator_Validation;
1791:
1823: l_msg_count NUMBER;
1824: l_msg_data VARCHAR2(2000);
1825:
1826: --
1827: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1828: --
1829: BEGIN
1830: IF l_debug_level > 0 THEN
1831: oe_debug_pub.add('ENTERING BOM_CONFIG_VALIDATION' , 1);
1827: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1828: --
1829: BEGIN
1830: IF l_debug_level > 0 THEN
1831: oe_debug_pub.add('ENTERING BOM_CONFIG_VALIDATION' , 1);
1832: oe_debug_pub.add('GETTING PREVIOUSLY SAVED OPTIONS FROM DB' , 2 );
1833: END IF;
1834:
1835: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' THEN
1828: --
1829: BEGIN
1830: IF l_debug_level > 0 THEN
1831: oe_debug_pub.add('ENTERING BOM_CONFIG_VALIDATION' , 1);
1832: oe_debug_pub.add('GETTING PREVIOUSLY SAVED OPTIONS FROM DB' , 2 );
1833: END IF;
1834:
1835: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' THEN
1836:
1840: ,x_part_of_container => l_return_status );
1841:
1842: IF l_change_flag = 'Y' THEN
1843: IF l_debug_level > 0 THEN
1844: OE_DEBUG_PUB.Add('Line is top container, hence not allowed',3);
1845: END IF;
1846:
1847: x_return_status := FND_API.G_RET_STS_ERROR;
1848: FND_MESSAGE.SET_NAME('ONT','ONT_TSO_NOT_IN_OPTIONS_WINDOW');
1885:
1886: END IF;
1887:
1888: IF l_debug_level > 0 THEN
1889: oe_debug_pub.add('CALLING CASCADE_UPDATES_DELETES '||
1890: l_deleted_options_tbl.COUNT || '-' ||
1891: l_updated_options_tbl.COUNT, 3);
1892: END IF;
1893:
1901:
1902: END IF; -- if we need to cascade
1903:
1904: IF l_debug_level > 0 THEN
1905: oe_debug_pub.add('CALLING PROCESS_CONFIG_OPTIONS' , 1);
1906: END IF;
1907:
1908: OE_Process_Options_Pvt.Process_Config_Options
1909: (p_options_tbl => l_options_tbl,
1921: OE_Process_Options_Pvt.Handle_Ret_Status
1922: (p_return_Status => x_return_status);
1923:
1924: IF l_debug_level > 0 THEN
1925: oe_debug_pub.add('LEAVING BOM_CONFIG_VALIDATION' , 1);
1926: END IF;
1927: EXCEPTION
1928: WHEN OTHERS THEN
1929: IF l_debug_level > 0 THEN
1926: END IF;
1927: EXCEPTION
1928: WHEN OTHERS THEN
1929: IF l_debug_level > 0 THEN
1930: oe_debug_pub.add('ECXEPTION IN BOM_CONFIG_VALIDATION'|| SQLERRM , 1);
1931: END IF;
1932: RAISE;
1933: END Bom_Config_Validation;
1934:
1983: := p_deleted_options_tbl;
1984: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1985: l_qty NUMBER := 1;
1986: --
1987: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1988: --
1989: BEGIN
1990: IF l_debug_level > 0 THEN
1991: oe_debug_pub.add('ENTERING CASCADE_UPDATES_DELETES' , 1);
1987: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1988: --
1989: BEGIN
1990: IF l_debug_level > 0 THEN
1991: oe_debug_pub.add('ENTERING CASCADE_UPDATES_DELETES' , 1);
1992: oe_debug_pub.add('FIRST UPDATES' , 2 );
1993: END IF;
1994:
1995: IF p_updated_options_tbl.COUNT > 0 THEN
1988: --
1989: BEGIN
1990: IF l_debug_level > 0 THEN
1991: oe_debug_pub.add('ENTERING CASCADE_UPDATES_DELETES' , 1);
1992: oe_debug_pub.add('FIRST UPDATES' , 2 );
1993: END IF;
1994:
1995: IF p_updated_options_tbl.COUNT > 0 THEN
1996: SELECT ordered_quantity
2004: LOOP
2005: l_req_rec := p_updated_options_tbl(I);
2006:
2007: IF l_debug_level > 0 THEN
2008: oe_debug_pub.add('OPTIONS UPDATED ' , 4 );
2009: END IF;
2010:
2011: IF l_debug_level > 0 THEN
2012: oe_debug_pub.add('QTY '|| L_REQ_REC.PARAM5||'CANCEL: '
2008: oe_debug_pub.add('OPTIONS UPDATED ' , 4 );
2009: END IF;
2010:
2011: IF l_debug_level > 0 THEN
2012: oe_debug_pub.add('QTY '|| L_REQ_REC.PARAM5||'CANCEL: '
2013: ||L_REQ_REC.PARAM8 , 2 );
2014: END IF;
2015:
2016: IF l_req_rec.param5 = 0 AND l_req_rec.param8 = 'N' THEN
2014: END IF;
2015:
2016: IF l_req_rec.param5 = 0 AND l_req_rec.param8 = 'N' THEN
2017: IF l_debug_level > 0 THEN
2018: oe_debug_pub.add('QTY = 0 AND NO CANCELLATION , SO DELETE' , 1);
2019: END IF;
2020:
2021: BEGIN
2022: -- set operation to delete
2024: ( p_options_tbl => p_x_options_tbl
2025: ,p_comp_code => l_req_rec.param2);
2026:
2027: IF l_debug_level > 0 THEN
2028: oe_debug_pub.add('INDEX: '|| L_INDEX , 2 );
2029: END IF;
2030: p_x_options_tbl(l_index).operation := OE_GLOBALS.G_OPR_DELETE;
2031:
2032: EXCEPTION
2031:
2032: EXCEPTION
2033: WHEN FND_API.G_EXC_ERROR THEN
2034: IF l_debug_level > 0 THEN
2035: oe_debug_pub.add('COMPONENT NOT PRESENT' , 1);
2036: END IF;
2037: RAISE;
2038: END;
2039:
2041: l_req_rec; -- ok, since params match
2042:
2043: ELSE -- regular code
2044: IF l_debug_level > 0 THEN
2045: oe_debug_pub.add('REGULAR CODE OF UPDATES'|| L_REQ_REC.PARAM3 , 1);
2046: END IF;
2047:
2048: IF l_req_rec.param3 = OE_GLOBALS.G_ITEM_CLASS THEN
2049:
2054: END IF;
2055:
2056: IF l_debug_level > 0 THEN
2057: -- 4211654
2058: oe_debug_pub.add(L_REQ_REC.PARAM2||' OLD QTY (l_req_rec.param4) = '
2059: ||L_REQ_REC.PARAM4||' New Qty (l_req_rec.param5) = '
2060: ||l_req_rec.param5 , 1);
2061: END IF;
2062:
2073: IF l_req_rec.param8 = 'Y' AND
2074: l_req_rec.param5 = 0
2075: THEN
2076: IF l_debug_level > 0 THEN
2077: oe_debug_pub.add('CALLING PROPOGATE CHANGE , CANCEL FLAG Y' , 1);
2078: END IF;
2079:
2080: Propogate_change_To_parent
2081: (p_x_options_tbl => p_x_options_tbl
2090: I := p_updated_options_tbl.NEXT(I);
2091: END LOOP;
2092:
2093: IF l_debug_level > 0 THEN
2094: oe_debug_pub.add('NOW DELETES' , 1);
2095: END IF;
2096:
2097: I :=l_deleted_options_tbl.FIRST;
2098: WHILE I is not NULL
2097: I :=l_deleted_options_tbl.FIRST;
2098: WHILE I is not NULL
2099: LOOP
2100: IF l_debug_level > 0 THEN
2101: oe_debug_pub.add('THERE ARE ITEMS DELETED'|| L_REQ_REC.PARAM2 , 1);
2102: END IF;
2103:
2104: l_req_rec := l_deleted_options_tbl(I);
2105:
2104: l_req_rec := l_deleted_options_tbl(I);
2105:
2106: IF l_req_rec.param3 = OE_GLOBALS.G_ITEM_CLASS THEN
2107: IF l_debug_level > 0 THEN
2108: oe_debug_pub.add('CLASS IS DELETED'|| L_REQ_REC.PARAM2 , 1);
2109: END IF;
2110:
2111: Delete_Children( p_x_options_tbl => p_x_options_tbl
2112: ,p_component_code => l_req_rec.param2
2119: -- should see if the parent needs to be deleted, rare case.
2120:
2121: IF p_model_component is NULL THEN
2122: IF l_debug_level > 0 THEN
2123: oe_debug_pub.add('MODEL COMPONENT IS NULL' , 1);
2124: END IF;
2125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2126: END IF;
2127:
2125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2126: END IF;
2127:
2128: IF l_debug_level > 0 THEN
2129: oe_debug_pub.add('OPTION/CLASS/KIT IS DELETED' , 1);
2130: END IF;
2131:
2132: Delete_Parent(p_x_options_tbl => p_x_options_tbl
2133: ,p_component_code => l_req_rec.param2
2139: END LOOP;
2140:
2141: x_return_status := l_return_status;
2142: IF l_debug_level > 0 THEN
2143: oe_debug_pub.add('LEAVING CASCADE_UPDATES_DELETES' , 1);
2144: END IF;
2145:
2146: EXCEPTION
2147: WHEN OTHERS THEN
2145:
2146: EXCEPTION
2147: WHEN OTHERS THEN
2148: IF l_debug_level > 0 THEN
2149: oe_debug_pub.add('EXCEPTION IN CASCADE_UPDATES_DELETES'|| SQLERRM , 1);
2150: END IF;
2151: RAISE;
2152: END Cascade_Updates_Deletes;
2153:
2169: IS
2170: I NUMBER;
2171: l_length NUMBER;
2172: --
2173: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2174: --
2175: BEGIN
2176: IF l_debug_level > 0 THEN
2177: oe_debug_pub.add('ENTERING CASCADE_QTY '|| P_RATIO , 1);
2173: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2174: --
2175: BEGIN
2176: IF l_debug_level > 0 THEN
2177: oe_debug_pub.add('ENTERING CASCADE_QTY '|| P_RATIO , 1);
2178: END IF;
2179:
2180: l_length := LENGTH(p_component_code);
2181:
2187: AND p_x_options_tbl(I).component_code <> p_component_code
2188: AND p_x_options_tbl(I).operation <> OE_GLOBALS.G_OPR_DELETE
2189: THEN
2190: IF l_debug_level > 0 THEN
2191: oe_debug_pub.add('OPTION TO BE UPDATED '
2192: || P_X_OPTIONS_TBL (I).COMPONENT_CODE , 3 );
2193: oe_debug_pub.add('CHANGE REASON '|| P_CHANGE_REASON , 3 );
2194: END IF;
2195: /* 4211654 - instead of using p_ratio, used p_old_qty and p_new_qty to
2189: THEN
2190: IF l_debug_level > 0 THEN
2191: oe_debug_pub.add('OPTION TO BE UPDATED '
2192: || P_X_OPTIONS_TBL (I).COMPONENT_CODE , 3 );
2193: oe_debug_pub.add('CHANGE REASON '|| P_CHANGE_REASON , 3 );
2194: END IF;
2195: /* 4211654 - instead of using p_ratio, used p_old_qty and p_new_qty to
2196: * calculate p_x_options_tbl(I).ordered_quantity
2197: */
2197: */
2198: p_x_options_tbl(I).ordered_quantity :=
2199: (p_x_options_tbl(I).ordered_quantity / p_old_qty) * p_new_qty;
2200: IF l_debug_level > 0 THEN
2201: oe_debug_pub.add('NEW QTY '||P_X_OPTIONS_TBL (I).ORDERED_QUANTITY ,1);
2202: END IF;
2203: p_x_options_tbl(I).change_reason := p_change_reason;
2204: p_x_options_tbl(I).change_comments := p_change_comments;
2205:
2213: I := p_x_options_tbl.NEXT(I);
2214: END LOOP;
2215:
2216: IF l_debug_level > 0 THEN
2217: oe_debug_pub.add('LEAVING CASCADE_QTY' , 1);
2218: END IF;
2219: EXCEPTION
2220: WHEN OTHERS THEN
2221: IF l_debug_level > 0 THEN
2218: END IF;
2219: EXCEPTION
2220: WHEN OTHERS THEN
2221: IF l_debug_level > 0 THEN
2222: oe_debug_pub.add('ECXEPTION IN CASCADE_QTY'|| SQLERRM , 1);
2223: END IF;
2224: RAISE;
2225: END Cascade_Qty;
2226:
2239: IS
2240: I NUMBER;
2241: l_length NUMBER;
2242: --
2243: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2244: --
2245: BEGIN
2246: IF l_debug_level > 0 THEN
2247: oe_debug_pub.add('ENTERING DELETE_CHILDREN' , 1);
2243: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2244: --
2245: BEGIN
2246: IF l_debug_level > 0 THEN
2247: oe_debug_pub.add('ENTERING DELETE_CHILDREN' , 1);
2248: END IF;
2249:
2250: l_length := LENGTH(p_component_code);
2251:
2256: = p_component_code
2257: AND p_x_options_tbl(I).component_code <> p_component_code
2258: THEN
2259: IF l_debug_level > 0 THEN
2260: oe_debug_pub.add('OPTION TO BE DELETED '
2261: || P_X_OPTIONS_TBL (I).COMPONENT_CODE , 3 );
2262: END IF;
2263: IF p_x_options_tbl(I).operation <> OE_GLOBALS.G_OPR_INSERT
2264: THEN
2268: FND_MESSAGE.Set_Token('CLASS',p_parent_item);
2269: FND_MESSAGE.Set_Token('ITEM',p_x_options_tbl(I).ordered_item);
2270: Oe_Msg_Pub.Add;
2271: IF l_debug_level > 0 THEN
2272: oe_debug_pub.add('OPERATION IS INSERT IN PROCEDURE DELETE_CHILDREN');
2273: oe_debug_pub.add('parent class : ' || p_parent_item);
2274: oe_debug_pub.add('child item : ' || p_x_options_tbl(I).ordered_item);
2275: END IF;
2276: RAISE FND_API.G_EXC_ERROR;
2269: FND_MESSAGE.Set_Token('ITEM',p_x_options_tbl(I).ordered_item);
2270: Oe_Msg_Pub.Add;
2271: IF l_debug_level > 0 THEN
2272: oe_debug_pub.add('OPERATION IS INSERT IN PROCEDURE DELETE_CHILDREN');
2273: oe_debug_pub.add('parent class : ' || p_parent_item);
2274: oe_debug_pub.add('child item : ' || p_x_options_tbl(I).ordered_item);
2275: END IF;
2276: RAISE FND_API.G_EXC_ERROR;
2277: END IF;
2270: Oe_Msg_Pub.Add;
2271: IF l_debug_level > 0 THEN
2272: oe_debug_pub.add('OPERATION IS INSERT IN PROCEDURE DELETE_CHILDREN');
2273: oe_debug_pub.add('parent class : ' || p_parent_item);
2274: oe_debug_pub.add('child item : ' || p_x_options_tbl(I).ordered_item);
2275: END IF;
2276: RAISE FND_API.G_EXC_ERROR;
2277: END IF;
2278: END IF;
2279: I := p_x_options_tbl.NEXT(I);
2280: END LOOP;
2281:
2282: IF l_debug_level > 0 THEN
2283: oe_debug_pub.add('LEAVING DELETE_CHILDREN' , 1);
2284: END IF;
2285: EXCEPTION
2286: WHEN OTHERS THEN
2287: IF l_debug_level > 0 THEN
2284: END IF;
2285: EXCEPTION
2286: WHEN OTHERS THEN
2287: IF l_debug_level > 0 THEN
2288: oe_debug_pub.add('ECXEPTION IN DELETE_CHILDREN'|| SQLERRM , 1);
2289: END IF;
2290: RAISE;
2291: END Delete_Children;
2292:
2307: l_count NUMBER;
2308: l_link_to_line_id NUMBER;
2309: l_parent VARCHAR2(1000);
2310: --
2311: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2312: --
2313: BEGIN
2314: IF l_debug_level > 0 THEN
2315: oe_debug_pub.add('ENTERING DELETE_PARENT' , 1);
2311: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2312: --
2313: BEGIN
2314: IF l_debug_level > 0 THEN
2315: oe_debug_pub.add('ENTERING DELETE_PARENT' , 1);
2316: END IF;
2317:
2318: IF p_model_component is NULL THEN
2319: RAISE FND_API.G_EXC_ERROR;
2321:
2322:
2323: IF p_component_code = p_model_component THEN
2324: IF l_debug_level > 0 THEN
2325: oe_debug_pub.add('MODEL REACHED' , 1);
2326: END IF;
2327: RETURN;
2328: END IF;
2329:
2327: RETURN;
2328: END IF;
2329:
2330: IF l_debug_level > 0 THEN
2331: oe_debug_pub.add('COMP SENT IN: '|| P_COMPONENT_CODE , 2 );
2332: END IF;
2333:
2334:
2335: IF no_more_children_left
2347: WHILE I is not NULL
2348:
2349: LOOP
2350: IF l_debug_level > 0 THEN
2351: oe_debug_pub.add(I || ': '|| P_X_OPTIONS_TBL (I).COMPONENT_CODE , 2 );
2352: END IF;
2353: l_parent :=
2354: SUBSTR(p_component_code, 1, INSTR(p_component_code, '-', -1) - 1);
2355:
2356: IF l_parent = p_x_options_tbl(I).component_code AND
2357: p_x_options_tbl(I).component_code <> p_model_component
2358: THEN
2359: IF l_debug_level > 0 THEN
2360: oe_debug_pub.add('PARENT TO BE DELETED '
2361: || P_X_OPTIONS_TBL (I).COMPONENT_CODE , 3 );
2362: END IF;
2363:
2364: p_x_options_tbl(I).operation := OE_GLOBALS.G_OPR_DELETE;
2365:
2366: -- recursive call.
2367:
2368: IF l_debug_level > 0 THEN
2369: oe_debug_pub.add('RECURSIVE CALL'|| P_MODEL_COMPONENT , 1);
2370: END IF;
2371: Delete_Parent(p_x_options_tbl => p_x_options_tbl
2372: ,p_component_code => l_parent
2373: ,p_top_model_line_id => p_top_model_line_id
2374: ,p_model_component => p_model_component
2375: ,p_ui_flag => p_ui_flag);
2376:
2377: IF l_debug_level > 0 THEN
2378: oe_debug_pub.add('MY CALL WORK DONE' , 1);
2379: END IF;
2380: RETURN;
2381: END IF;
2382: I := p_x_options_tbl.NEXT(I);
2382: I := p_x_options_tbl.NEXT(I);
2383: END LOOP;
2384:
2385: IF l_debug_level > 0 THEN
2386: oe_debug_pub.add('PARENT NOT FOUND??' , 1);
2387: END IF;
2388:
2389: END IF;
2390:
2388:
2389: END IF;
2390:
2391: IF l_debug_level > 0 THEN
2392: oe_debug_pub.add('LEAVING DELETE_PARENT'|| P_COMPONENT_CODE , 1);
2393: END IF;
2394: EXCEPTION
2395: WHEN OTHERS THEN
2396: IF l_debug_level > 0 THEN
2393: END IF;
2394: EXCEPTION
2395: WHEN OTHERS THEN
2396: IF l_debug_level > 0 THEN
2397: oe_debug_pub.add('ECXEPTION IN DELETE_PARENT'|| SQLERRM , 1);
2398: END IF;
2399: RAISE;
2400: END Delete_Parent;
2401:
2416: l_count NUMBER;
2417: l_link_to_line_id NUMBER;
2418: l_parent VARCHAR2(1000);
2419: --
2420: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2421: --
2422: BEGIN
2423: IF l_debug_level > 0 THEN
2424: oe_debug_pub.add('ENTERING PROPOGATE_CHANGE_TO_PARENT' , 1);
2420: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2421: --
2422: BEGIN
2423: IF l_debug_level > 0 THEN
2424: oe_debug_pub.add('ENTERING PROPOGATE_CHANGE_TO_PARENT' , 1);
2425: END IF;
2426:
2427: IF p_model_component is NULL THEN
2428: RAISE FND_API.G_EXC_ERROR;
2430:
2431:
2432: IF p_component_code = p_model_component THEN
2433: IF l_debug_level > 0 THEN
2434: oe_debug_pub.add('MODEL REACHED' , 1);
2435: END IF;
2436: RETURN;
2437: END IF;
2438:
2436: RETURN;
2437: END IF;
2438:
2439: IF l_debug_level > 0 THEN
2440: oe_debug_pub.add('COMP SENT IN: '|| P_COMPONENT_CODE , 2 );
2441: END IF;
2442:
2443:
2444: IF no_more_children_left
2456: WHILE I is not NULL
2457:
2458: LOOP
2459: IF l_debug_level > 0 THEN
2460: oe_debug_pub.add(I || ': '|| P_X_OPTIONS_TBL (I).COMPONENT_CODE , 2 );
2461: END IF;
2462:
2463: l_parent :=
2464: SUBSTR(p_component_code, 1, INSTR(p_component_code, '-', -1) - 1);
2466: IF l_parent = p_x_options_tbl(I).component_code AND
2467: p_x_options_tbl(I).component_code <> p_model_component
2468: THEN
2469: IF l_debug_level > 0 THEN
2470: oe_debug_pub.add('PARENT TO BE MODIFIED '
2471: || P_X_OPTIONS_TBL (I).COMPONENT_CODE , 3 );
2472: END IF;
2473:
2474:
2478:
2479: -- recursive call.
2480:
2481: IF l_debug_level > 0 THEN
2482: oe_debug_pub.add('RECURSIVE CALL'|| P_MODEL_COMPONENT , 1);
2483: END IF;
2484:
2485: Propogate_Change_To_Parent
2486: (p_x_options_tbl => p_x_options_tbl
2489: ,p_model_component => p_model_component
2490: ,p_ui_flag => p_ui_flag);
2491:
2492: IF l_debug_level > 0 THEN
2493: oe_debug_pub.add('MY CALL WORK DONE' , 1);
2494: END IF;
2495: RETURN;
2496: END IF;
2497: I := p_x_options_tbl.NEXT(I);
2497: I := p_x_options_tbl.NEXT(I);
2498: END LOOP;
2499:
2500: IF l_debug_level > 0 THEN
2501: oe_debug_pub.add('PARENT NOT FOUND??' , 1);
2502: END IF;
2503:
2504: END IF;
2505:
2503:
2504: END IF;
2505:
2506: IF l_debug_level > 0 THEN
2507: oe_debug_pub.add('LEAVING PROPOGATE_CHANGE_TO_PARENT'
2508: || P_COMPONENT_CODE , 1);
2509: END IF;
2510: EXCEPTION
2511: WHEN OTHERS THEN
2509: END IF;
2510: EXCEPTION
2511: WHEN OTHERS THEN
2512: IF l_debug_level > 0 THEN
2513: oe_debug_pub.add('ECXEPTION IN PROPOGATE_CHANGE_TO_PARENT'
2514: || SQLERRM , 1);
2515: END IF;
2516: RAISE;
2517: END Propogate_Change_To_Parent;
2535: l_parent VARCHAR2(1000);
2536: l_count NUMBER;
2537: I NUMBER;
2538: --
2539: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2540: --
2541: BEGIN
2542: IF l_debug_level > 0 THEN
2543: oe_debug_pub.add('ENTERING NO_MORE_CHILDREN_LEFT'|| P_UI_FLAG , 1);
2539: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2540: --
2541: BEGIN
2542: IF l_debug_level > 0 THEN
2543: oe_debug_pub.add('ENTERING NO_MORE_CHILDREN_LEFT'|| P_UI_FLAG , 1);
2544: END IF;
2545:
2546: l_parent :=
2547: SUBSTR(p_component_code, 1, INSTR(p_component_code, '-', -1) - 1);
2546: l_parent :=
2547: SUBSTR(p_component_code, 1, INSTR(p_component_code, '-', -1) - 1);
2548:
2549: IF l_debug_level > 0 THEN
2550: oe_debug_pub.add('PARENT: '|| L_PARENT , 3 );
2551: END IF;
2552:
2553: IF l_parent = p_model_component THEN
2554: IF l_debug_level > 0 THEN
2551: END IF;
2552:
2553: IF l_parent = p_model_component THEN
2554: IF l_debug_level > 0 THEN
2555: oe_debug_pub.add('PARENT IS A MODEL' , 1);
2556: END IF;
2557: RETURN FALSE;
2558: END IF;
2559:
2572: p_x_options_tbl(I).ordered_quantity = 0) -- cancel
2573:
2574: THEN
2575: IF l_debug_level > 0 THEN
2576: oe_debug_pub.add('OPTION UNDER SAME PARENT EXISTS' , 3 );
2577: END IF;
2578: RETURN FALSE;
2579: END IF;
2580:
2581: I := p_x_options_tbl.NEXT(I);
2582: END LOOP;
2583:
2584: IF l_debug_level > 0 THEN
2585: oe_debug_pub.add('CAME OUT OF LOOP' , 3 );
2586: END IF;
2587:
2588: -- use sql, may be included item exist.
2589: l_count := 0;
2602: AND open_flag = 'Y' );
2603:
2604: IF l_count > 0 THEN
2605: IF l_debug_level > 0 THEN
2606: oe_debug_pub.add('SOME MORE OPTIONS EXIST' , 1);
2607: END IF;
2608: RETURN FALSE;
2609: END IF;
2610:
2608: RETURN FALSE;
2609: END IF;
2610:
2611: IF l_debug_level > 0 THEN
2612: oe_debug_pub.add('LEAVING NO_MORE_CHILDREN_LEFT' , 1);
2613: END IF;
2614:
2615: RETURN TRUE;
2616: EXCEPTION
2615: RETURN TRUE;
2616: EXCEPTION
2617: WHEN OTHERS THEN
2618: IF l_debug_level > 0 THEN
2619: oe_debug_pub.add('ECXEPTION IN NO_MORE_CHILDREN_LEFT'|| SQLERRM , 1);
2620: END IF;
2621: RAISE;
2622: END No_More_Children_Left;
2623:
2663: l_source_document_type_id NUMBER;
2664: l_source_document_id NUMBER;
2665: l_source_document_line_id NUMBER;
2666: --
2667: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2668: --
2669: BEGIN
2670:
2671: IF l_debug_level > 0 THEN
2668: --
2669: BEGIN
2670:
2671: IF l_debug_level > 0 THEN
2672: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.VALIDATE_CONFIGURATION' , 1);
2673: END IF;
2674:
2675:
2676: -- No Copy Changes. Initialized return status to success
2712: l_use_configurator := OE_Process_Options_Pvt.Use_Configurator;
2713:
2714: IF l_use_configurator THEN
2715: IF l_debug_level > 0 THEN
2716: oe_debug_pub.add('USE CONFIGURATOR IS TRUE' , 1);
2717: END IF;
2718: END IF;
2719:
2720: IF l_config_hdr_id is NOT NULL AND
2719:
2720: IF l_config_hdr_id is NOT NULL AND
2721: l_config_rev_nbr is NOT NULL THEN
2722: IF l_debug_level > 0 THEN
2723: oe_debug_pub.add('CONFIGURATOR WAS USED' , 1);
2724: END IF;
2725: l_configurator_was_used := 0;
2726: ELSIF
2727: l_configuration_id is NOT NULL THEN
2725: l_configurator_was_used := 0;
2726: ELSIF
2727: l_configuration_id is NOT NULL THEN
2728: IF l_debug_level > 0 THEN
2729: oe_debug_pub.add('OPTIONS WINDOW WAS USED' , 1);
2730: END IF;
2731: l_configurator_was_used := 1;
2732: ELSE
2733: IF l_debug_level > 0 THEN
2730: END IF;
2731: l_configurator_was_used := 1;
2732: ELSE
2733: IF l_debug_level > 0 THEN
2734: oe_debug_pub.add('NEW CONFIGURATION BEING CREATED' , 1);
2735: END IF;
2736: l_configurator_was_used := 2;
2737: END IF;
2738:
2749: x_complete_config => x_complete_config,
2750: x_return_status => x_return_status);
2751:
2752: IF l_debug_level > 0 THEN
2753: oe_debug_pub.add('RETURNING AFTER CONFIGURATOR_VALIDATION'
2754: || X_RETURN_STATUS , 2 );
2755: END IF;
2756: RETURN;
2757: END IF;
2773: x_complete_config => x_complete_config,
2774: x_return_status => x_return_status);
2775:
2776: IF l_debug_level > 0 THEN
2777: oe_debug_pub.add('RETURNING AFTER BOM_CONFIG_VALIDATION'
2778: || X_RETURN_STATUS , 2 );
2779: END IF;
2780: RETURN;
2781: END IF;
2801:
2802: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
2803:
2804: IF l_debug_level > 0 THEN
2805: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.VALIDATE_CONFIGURATION' , 1);
2806: END IF;
2807: EXCEPTION
2808:
2809: WHEN FND_API.G_EXC_ERROR THEN
2817:
2818:
2819: WHEN OTHERS THEN
2820: IF l_debug_level > 0 THEN
2821: oe_debug_pub.add('ERROR IN VALIDATE_CONFIGURATION : '
2822: || SUBSTR ( SQLERRM , 1 , 100 ) , 1);
2823: END IF;
2824: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2825:
2890: l_return_status VARCHAR2(1) :=
2891: FND_API.G_RET_STS_SUCCESS;
2892: I NUMBER;
2893: --
2894: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2895: --
2896: BEGIN
2897:
2898: IF l_debug_level > 0 THEN
2895: --
2896: BEGIN
2897:
2898: IF l_debug_level > 0 THEN
2899: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.SEND_INPUT_XML' , 1);
2900: oe_debug_pub.add('UIMANAGER URL: ' || L_URL , 2 );
2901: END IF;
2902:
2903:
2896: BEGIN
2897:
2898: IF l_debug_level > 0 THEN
2899: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.SEND_INPUT_XML' , 1);
2900: oe_debug_pub.add('UIMANAGER URL: ' || L_URL , 2 );
2901: END IF;
2902:
2903:
2904: l_xml_hdr := p_xml_hdr;
2902:
2903:
2904: l_xml_hdr := p_xml_hdr;
2905: IF l_debug_level > 0 THEN
2906: oe_debug_pub.add('LENGTH OF INI MSG: ' || LENGTH ( L_XML_HDR ) , 2 );
2907: END IF;
2908:
2909:
2910: -- if there is change in model qty and we have cascaded it
2939: l_option.input_seq := l_sequence;
2940:
2941: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
2942: IF l_debug_level > 0 THEN
2943: oe_debug_pub.add('SEND XML UCFGB MI , PACK H NEW LOGIC' , 3 );
2944: END IF;
2945: l_option.config_item_id := l_configuration_id;
2946: END IF;
2947:
2947:
2948: l_batch_val_tbl(l_sequence) := l_option;
2949:
2950: IF l_debug_level > 0 THEN
2951: oe_debug_pub.add('NEW MODEL QTY: '|| P_MODEL_QTY , 2 );
2952: END IF;
2953:
2954: END IF;
2955:
2954: END IF;
2955:
2956: -- get the options from the from databse.
2957: IF l_debug_level > 0 THEN
2958: oe_debug_pub.add('GETTING PREVIOUSLY SAVED OPTIONS FROM DB' , 2 );
2959: END IF;
2960:
2961: OE_Process_Options_Pvt.Get_Options_From_DB
2962: ( p_top_model_line_id => p_model_line_id
2963: ,x_disabled_options => l_flag
2964: ,x_options_tbl => l_db_options_tbl);
2965:
2966: IF l_debug_level > 0 THEN
2967: oe_debug_pub.add('cursor GET NEWLY INSERTED OPTIONS '|| l_flag , 2 );
2968: END IF;
2969:
2970: I := l_db_options_tbl.FIRST;
2971: WHILE I is not NULL
2970: I := l_db_options_tbl.FIRST;
2971: WHILE I is not NULL
2972: LOOP
2973: IF l_debug_level > 0 THEN
2974: oe_debug_pub.add('GET_OPTION : '
2975: || L_DB_OPTIONS_TBL (I).COMPONENT_CODE , 2 );
2976: END IF;
2977:
2978: l_sequence := l_sequence + 1;
2981: l_option.input_seq := l_sequence;
2982:
2983: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
2984: IF l_debug_level > 0 THEN
2985: oe_debug_pub.add('SEND XML UCFGB MI , PACK H NEW LOGIC' , 3 );
2986: END IF;
2987: l_option.config_item_id
2988: := l_db_options_tbl(I).configuration_id;
2989: END IF;
2988: := l_db_options_tbl(I).configuration_id;
2989: END IF;
2990:
2991: IF l_debug_level > 0 THEN
2992: oe_debug_pub.add('QTY RATIO : '
2993: || L_DB_OPTIONS_TBL (I).ORDERED_QUANTITY/P_MODEL_QTY , 2 );
2994: oe_debug_pub.add('OE QTY: '
2995: || L_DB_OPTIONS_TBL (I).ORDERED_QUANTITY , 2 );
2996: END IF;
2990:
2991: IF l_debug_level > 0 THEN
2992: oe_debug_pub.add('QTY RATIO : '
2993: || L_DB_OPTIONS_TBL (I).ORDERED_QUANTITY/P_MODEL_QTY , 2 );
2994: oe_debug_pub.add('OE QTY: '
2995: || L_DB_OPTIONS_TBL (I).ORDERED_QUANTITY , 2 );
2996: END IF;
2997:
2998: l_option.quantity := l_db_options_tbl(I).ordered_quantity;
2999:
3000: l_batch_val_tbl(l_sequence) := l_option;
3001:
3002: IF l_debug_level > 0 THEN
3003: oe_debug_pub.add(L_SEQUENCE||' '
3004: ||L_DB_OPTIONS_TBL (I).CONFIGURATION_ID , 2 );
3005: END IF;
3006:
3007: I := l_db_options_tbl.NEXT(I);
3007: I := l_db_options_tbl.NEXT(I);
3008: END LOOP;
3009:
3010: IF l_debug_level > 0 THEN
3011: oe_debug_pub.add('OUT OF NEWLY INSERTED OPTIONS LOOP' , 2 );
3012: END IF;
3013:
3014:
3015: --------------- send updated options/classes----------------
3015: --------------- send updated options/classes----------------
3016:
3017:
3018: IF l_debug_level > 0 THEN
3019: oe_debug_pub.add('NO. OF UPDATED OPTIONS: '
3020: ||P_UPDATED_OPTIONS_TBL.COUNT , 2 );
3021: oe_debug_pub.add('ENTERING LOOP TO PASS UPDATED OPTIONS' , 2 );
3022: END IF;
3023:
3017:
3018: IF l_debug_level > 0 THEN
3019: oe_debug_pub.add('NO. OF UPDATED OPTIONS: '
3020: ||P_UPDATED_OPTIONS_TBL.COUNT , 2 );
3021: oe_debug_pub.add('ENTERING LOOP TO PASS UPDATED OPTIONS' , 2 );
3022: END IF;
3023:
3024:
3025: l_rec_index := 1;
3026:
3027: FOR I IN 1..p_updated_options_tbl.COUNT
3028: LOOP
3029: IF l_debug_level > 0 THEN
3030: oe_debug_pub.add('WITHIN THE LOOP OF P_UPDATED_OPTIONS_TBL' , 2 );
3031: oe_debug_pub.add('L_REC_INDEX: ' || L_REC_INDEX , 2 );
3032: END IF;
3033:
3034: l_req_rec := p_updated_options_tbl(l_rec_index);
3027: FOR I IN 1..p_updated_options_tbl.COUNT
3028: LOOP
3029: IF l_debug_level > 0 THEN
3030: oe_debug_pub.add('WITHIN THE LOOP OF P_UPDATED_OPTIONS_TBL' , 2 );
3031: oe_debug_pub.add('L_REC_INDEX: ' || L_REC_INDEX , 2 );
3032: END IF;
3033:
3034: l_req_rec := p_updated_options_tbl(l_rec_index);
3035:
3033:
3034: l_req_rec := p_updated_options_tbl(l_rec_index);
3035:
3036: IF l_debug_level > 0 THEN
3037: oe_debug_pub.add('UPDATE LINE_ID: ' || L_REQ_REC.ENTITY_ID , 2 );
3038: oe_debug_pub.add('COMPONENT_CODE: ' || L_REQ_REC.PARAM2 , 2 );
3039: END IF;
3040:
3041: l_sequence := l_sequence + 1;
3034: l_req_rec := p_updated_options_tbl(l_rec_index);
3035:
3036: IF l_debug_level > 0 THEN
3037: oe_debug_pub.add('UPDATE LINE_ID: ' || L_REQ_REC.ENTITY_ID , 2 );
3038: oe_debug_pub.add('COMPONENT_CODE: ' || L_REQ_REC.PARAM2 , 2 );
3039: END IF;
3040:
3041: l_sequence := l_sequence + 1;
3042:
3044: l_option.input_seq := l_sequence;
3045:
3046: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
3047: IF l_debug_level > 0 THEN
3048: oe_debug_pub.add('UPD , SEND XML MI , PACK H NEW LOGIC' , 3 );
3049: END IF;
3050: l_option.config_item_id := l_req_rec.param9;
3051: END IF;
3052:
3052:
3053: -- check if integer
3054:
3055: IF l_debug_level > 0 THEN
3056: oe_debug_pub.add(L_REQ_REC.PARAM2
3057: || ' OPTION UPDATED TO A QTY OF: ' || L_REQ_REC.PARAM5 , 3 );
3058: END IF;
3059:
3060: l_option.quantity := l_req_rec.param5;
3062: l_batch_val_tbl(l_sequence) := l_option;
3063: l_rec_index := l_rec_index + 1;
3064:
3065: IF l_debug_level > 0 THEN
3066: oe_debug_pub.add(L_SEQUENCE||' SEQ '||L_REQ_REC.PARAM9 , 2 );
3067: END IF;
3068:
3069: END LOOP;
3070:
3068:
3069: END LOOP;
3070:
3071: IF l_debug_level > 0 THEN
3072: oe_debug_pub.add('LEAVING LOOP TO PASS UPDATED OPTIONS' , 2 );
3073: END IF;
3074:
3075:
3076:
3076:
3077: ------------ send deleted options/classes-------------------
3078:
3079: IF l_debug_level > 0 THEN
3080: oe_debug_pub.add('NO. OF DELETED OPTIONS: '
3081: ||P_DELETED_OPTIONS_TBL.COUNT , 2 );
3082: oe_debug_pub.add('ENTERING LOOP TO PASS DELETED OPTIONS' , 2 );
3083: END IF;
3084:
3078:
3079: IF l_debug_level > 0 THEN
3080: oe_debug_pub.add('NO. OF DELETED OPTIONS: '
3081: ||P_DELETED_OPTIONS_TBL.COUNT , 2 );
3082: oe_debug_pub.add('ENTERING LOOP TO PASS DELETED OPTIONS' , 2 );
3083: END IF;
3084:
3085: l_rec_index := 1;
3086: FOR I IN 1..p_deleted_options_tbl.COUNT
3086: FOR I IN 1..p_deleted_options_tbl.COUNT
3087: LOOP
3088:
3089: IF l_debug_level > 0 THEN
3090: oe_debug_pub.add('WITHIN THE LOOP OF P_DELETED_OPTIONS_TBL' , 2 );
3091: oe_debug_pub.add('L_REC_INDEX: ' || L_REC_INDEX , 2 );
3092: END IF;
3093:
3094:
3087: LOOP
3088:
3089: IF l_debug_level > 0 THEN
3090: oe_debug_pub.add('WITHIN THE LOOP OF P_DELETED_OPTIONS_TBL' , 2 );
3091: oe_debug_pub.add('L_REC_INDEX: ' || L_REC_INDEX , 2 );
3092: END IF;
3093:
3094:
3095: l_req_rec := p_deleted_options_tbl(l_rec_index);
3093:
3094:
3095: l_req_rec := p_deleted_options_tbl(l_rec_index);
3096: IF l_debug_level > 0 THEN
3097: oe_debug_pub.add('ENTITY ID: ' || L_REQ_REC.ENTITY_ID , 2 );
3098: oe_debug_pub.add('COMPONENT_CODE: ' || L_REQ_REC.PARAM2 , 2 );
3099: END IF;
3100:
3101: l_sequence := l_sequence + 1;
3094:
3095: l_req_rec := p_deleted_options_tbl(l_rec_index);
3096: IF l_debug_level > 0 THEN
3097: oe_debug_pub.add('ENTITY ID: ' || L_REQ_REC.ENTITY_ID , 2 );
3098: oe_debug_pub.add('COMPONENT_CODE: ' || L_REQ_REC.PARAM2 , 2 );
3099: END IF;
3100:
3101: l_sequence := l_sequence + 1;
3102:
3106:
3107:
3108: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
3109: IF l_debug_level > 0 THEN
3110: oe_debug_pub.add('DEL , SEND XML MI , PACK H NEW LOGIC' , 3 );
3111: END IF;
3112: l_option.config_item_id
3113: := l_req_rec.param9;
3114: END IF;
3116: l_batch_val_tbl(l_sequence) := l_option;
3117: l_rec_index := l_rec_index + 1;
3118:
3119: IF l_debug_level > 0 THEN
3120: oe_debug_pub.add(L_SEQUENCE||' SEQ '||L_REQ_REC.PARAM9 , 2 );
3121: END IF;
3122: END LOOP;
3123:
3124: IF l_debug_level > 0 THEN
3121: END IF;
3122: END LOOP;
3123:
3124: IF l_debug_level > 0 THEN
3125: oe_debug_pub.add('OUT OF INSERT/UPDATE/DELETE OPTIONS LOOPS ' , 1);
3126: END IF;
3127:
3128:
3129: -- delete previous data.
3146: --get_transaction_id
3147: --(p_caller => 'inside send_xml, after call to SPC validate');
3148:
3149: IF l_debug_level > 0 THEN
3150: oe_debug_pub.add('AFTER CALL TO SPC , STATUS : '
3151: ||L_VALIDATION_STATUS , 1);
3152: END IF;
3153:
3154: IF l_validation_status <> 0 THEN
3152: END IF;
3153:
3154: IF l_validation_status <> 0 THEN
3155: IF l_debug_level > 0 THEN
3156: oe_debug_pub.add('DO NOT PROCESS RESULTS , ERROR ',1);
3157: END IF;
3158: RAISE FND_API.G_EXC_ERROR;
3159: END IF;
3160:
3159: END IF;
3160:
3161: IF (l_html_pieces.COUNT <= 0) THEN
3162: IF l_debug_level > 0 THEN
3163: oe_debug_pub.add('HTML_PIECES COUNT IS <= 0' , 2 );
3164: END IF;
3165: RAISE FND_API.G_EXC_ERROR;
3166: END IF;
3167:
3168:
3169: l_rec_index := l_html_pieces.FIRST;
3170: LOOP
3171: IF l_debug_level > 0 THEN
3172: oe_debug_pub.add(L_REC_INDEX ||': PART OF OUTPUT_MESSAGE: '
3173: || SUBSTR ( L_HTML_PIECES ( L_REC_INDEX ) , 1 , 100 ) , 2 );
3174: END IF;
3175:
3176: l_long_xml := l_long_xml || l_html_pieces(l_rec_index);
3184: x_out_xml_msg := l_long_xml;
3185: x_return_status := l_return_status;
3186:
3187: IF l_debug_level > 0 THEN
3188: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.SEND_INPUT_XML' , 1);
3189: END IF;
3190:
3191: EXCEPTION
3192: WHEN FND_API.G_EXC_ERROR THEN
3201: --get_transaction_id
3202: --(p_caller => 'send_xml unxp, before call to SPC validate');
3203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3204: IF l_debug_level > 0 THEN
3205: oe_debug_pub.add('AN UNEXP ERROR RAISED' , 1);
3206: END IF;
3207:
3208: IF l_debug_level > 0 THEN
3209: oe_debug_pub.add('SEND_INPUT_XML ERROR: '
3205: oe_debug_pub.add('AN UNEXP ERROR RAISED' , 1);
3206: END IF;
3207:
3208: IF l_debug_level > 0 THEN
3209: oe_debug_pub.add('SEND_INPUT_XML ERROR: '
3210: || SUBSTR ( SQLERRM , 1 , 100 ) , 1);
3211: END IF;
3212:
3213:
3217:
3218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3219:
3220: IF l_debug_level > 0 THEN
3221: oe_debug_pub.add
3222: ('SEND_INPUT_XML ERROR: ' || SUBSTR ( SQLERRM , 1 , 100 ) , 1);
3223: END IF;
3224:
3225: END Send_input_xml;
3279: l_config_effective_date DATE;
3280: l_old_behavior VARCHAR2(1);
3281: l_frozen_model_bill VARCHAR2(1);
3282: --
3283: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3284: --
3285: BEGIN
3286:
3287: IF l_debug_level > 0 THEN
3284: --
3285: BEGIN
3286:
3287: IF l_debug_level > 0 THEN
3288: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.CREATE_HDR_XML' , 1);
3289: END IF;
3290:
3291: OE_LINE_UTIL.Query_Row(p_line_id => p_model_line_id
3292: ,x_line_rec => l_model_line_rec);
3302: l_model_quantity := to_char(l_model_line_rec.ordered_quantity);
3303:
3304:
3305: IF l_debug_level > 0 THEN
3306: oe_debug_pub.add('QUERIED FROM OE_LINES: ' || ' QTY: '
3307: || L_MODEL_QUANTITY || ' CONFIG-HDR: '
3308: || L_CONFIG_HEADER_ID || ' CONFIG-REV: '
3309: || L_CONFIG_REV_NBR || ' ORG-ID: '
3310: || L_CONTEXT_ORG_ID || ' ITEM-ID: '
3313:
3314: -- profiles and env. variables.
3315: l_database_id := fnd_web_config.database_id;
3316: IF l_debug_level > 0 THEN
3317: oe_debug_pub.add('DATABASE_ID: '|| L_DATABASE_ID , 2 );
3318: END IF;
3319:
3320: -- set param_names
3321:
3370: param_value(17) := to_char(l_model_line_rec.line_id);
3371:
3372: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
3373: IF l_debug_level > 0 THEN
3374: oe_debug_pub.add('UCFGB MI , PACK H NEW LOGIC' , 1);
3375: END IF;
3376: param_value(18) := 'TRUE';
3377: ELSE
3378: param_value(18) := 'FALSE';
3392: param_value(19) := null;
3393: param_value(20) := null;
3394:
3395: IF l_debug_level > 0 THEN
3396: oe_debug_pub.add('old behavior no dates', 2 );
3397: END IF;
3398: END IF;
3399:
3400:
3405: l_configurator_session_key
3406: := ( p_model_line_id || '#' || l_session_id);
3407:
3408: IF l_debug_level > 0 THEN
3409: oe_debug_pub.add('CONFIG SESSION KEY : '
3410: || L_CONFIGURATOR_SESSION_KEY , 2 );
3411: END IF;
3412:
3413: param_value(23) := l_configurator_session_key;
3413: param_value(23) := l_configurator_session_key;
3414: END IF;
3415:
3416: IF l_debug_level > 0 THEN
3417: oe_debug_pub.add('INSIDE CREATE_HDR_XML , PARAMETERS ARE SET' , 2 );
3418: END IF;
3419:
3420:
3421: l_rec_index := 1;
3447: l_xml_hdr := l_xml_hdr || '';
3448: l_xml_hdr := REPLACE(l_xml_hdr, ' ' , '+');
3449:
3450: IF l_debug_level > 0 THEN
3451: oe_debug_pub.add('1ST PART OF CREATE_HDR_XML IS : '
3452: ||SUBSTR ( L_XML_HDR , 1 , 200 ) , 3 );
3453: oe_debug_pub.add('2ND PART OF CREATE_HDR_XML IS : '
3454: ||SUBSTR ( L_XML_HDR , 201 , 200 ) , 3 );
3455: oe_debug_pub.add('3RD PART OF CREATE_HDR_XML IS : '
3449:
3450: IF l_debug_level > 0 THEN
3451: oe_debug_pub.add('1ST PART OF CREATE_HDR_XML IS : '
3452: ||SUBSTR ( L_XML_HDR , 1 , 200 ) , 3 );
3453: oe_debug_pub.add('2ND PART OF CREATE_HDR_XML IS : '
3454: ||SUBSTR ( L_XML_HDR , 201 , 200 ) , 3 );
3455: oe_debug_pub.add('3RD PART OF CREATE_HDR_XML IS : '
3456: ||SUBSTR ( L_XML_HDR , 401 , 200 ) , 3 );
3457: oe_debug_pub.add('4TH PART OF CREATE_HDR_XML IS : '
3451: oe_debug_pub.add('1ST PART OF CREATE_HDR_XML IS : '
3452: ||SUBSTR ( L_XML_HDR , 1 , 200 ) , 3 );
3453: oe_debug_pub.add('2ND PART OF CREATE_HDR_XML IS : '
3454: ||SUBSTR ( L_XML_HDR , 201 , 200 ) , 3 );
3455: oe_debug_pub.add('3RD PART OF CREATE_HDR_XML IS : '
3456: ||SUBSTR ( L_XML_HDR , 401 , 200 ) , 3 );
3457: oe_debug_pub.add('4TH PART OF CREATE_HDR_XML IS : '
3458: ||SUBSTR ( L_XML_HDR , 601 , 200 ) , 3 );
3459: END IF;
3453: oe_debug_pub.add('2ND PART OF CREATE_HDR_XML IS : '
3454: ||SUBSTR ( L_XML_HDR , 201 , 200 ) , 3 );
3455: oe_debug_pub.add('3RD PART OF CREATE_HDR_XML IS : '
3456: ||SUBSTR ( L_XML_HDR , 401 , 200 ) , 3 );
3457: oe_debug_pub.add('4TH PART OF CREATE_HDR_XML IS : '
3458: ||SUBSTR ( L_XML_HDR , 601 , 200 ) , 3 );
3459: END IF;
3460:
3461: x_xml_hdr := l_xml_hdr;
3459: END IF;
3460:
3461: x_xml_hdr := l_xml_hdr;
3462: IF l_debug_level > 0 THEN
3463: oe_debug_pub.add('LENGTH OF INI MSG:' || LENGTH ( L_XML_HDR ) , 3 );
3464: oe_debug_pub.add('LEAVING CREATE_HDR_XML' , 3 );
3465: END IF;
3466: EXCEPTION
3467: when others then
3460:
3461: x_xml_hdr := l_xml_hdr;
3462: IF l_debug_level > 0 THEN
3463: oe_debug_pub.add('LENGTH OF INI MSG:' || LENGTH ( L_XML_HDR ) , 3 );
3464: oe_debug_pub.add('LEAVING CREATE_HDR_XML' , 3 );
3465: END IF;
3466: EXCEPTION
3467: when others then
3468: IF l_debug_level > 0 THEN
3465: END IF;
3466: EXCEPTION
3467: when others then
3468: IF l_debug_level > 0 THEN
3469: oe_debug_pub.add('EXCEPTION IN CREATE_HDR_XML '|| SQLERRM , 3 );
3470: END IF;
3471: RAISE;
3472: END Create_hdr_xml;
3473:
3545: l_constraint VARCHAR2(16);
3546: l_flag VARCHAR2(1) := 'N';
3547:
3548: --
3549: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3550: --
3551: BEGIN
3552:
3553: IF l_debug_level > 0 THEN
3550: --
3551: BEGIN
3552:
3553: IF l_debug_level > 0 THEN
3554: oe_debug_pub.add('ENTERING OE_CONGIG_UTIL.PARSE_OUTPUT_XML' , 1);
3555: END IF;
3556:
3557:
3558: l_exit_start_pos :=
3565: l_exit := SUBSTR (p_xml, l_exit_start_pos,
3566: l_exit_end_pos - l_exit_start_pos + 1);
3567:
3568: IF l_debug_level > 0 THEN
3569: oe_debug_pub.add('L_EXIT: ' || L_EXIT , 3 );
3570: END IF;
3571:
3572: -- if error go to msg etc.
3573: IF nvl(l_exit,'ERROR') <> 'ERROR' THEN
3583: l_valid_config_end_pos -
3584: l_valid_config_start_pos + 1);
3585:
3586: IF l_debug_level > 0 THEN
3587: oe_debug_pub.add('GG1: '|| L_VALID_CONFIG , 3 );
3588: END IF;
3589:
3590: /* ex :-
3591: 1st instr : posin of a(22), 2nd instr gives posn of c(24)
3602: l_complete_config_end_pos -
3603: l_complete_config_start_pos + 1);
3604:
3605: IF l_debug_level > 0 THEN
3606: oe_debug_pub.add('GG2: '|| L_COMPLETE_CONFIG , 3 );
3607: END IF;
3608:
3609:
3610: IF (nvl(l_valid_config, 'N') <> 'TRUE') THEN
3608:
3609:
3610: IF (nvl(l_valid_config, 'N') <> 'TRUE') THEN
3611: IF l_debug_level > 0 THEN
3612: oe_debug_pub.add('SPC RETURNED VALID_FLAG AS NULL/FALSE' , 2 );
3613: END IF;
3614: l_flag := 'Y';
3615: END IF ;
3616:
3616:
3617:
3618: IF (nvl(l_complete_config, 'N') <> 'TRUE' ) THEN
3619: IF l_debug_level > 0 THEN
3620: oe_debug_pub.add('COMPLETE_FLAG AS NULL/FALSE' , 2 );
3621: END IF;
3622: l_flag := 'Y';
3623: END IF;
3624:
3622: l_flag := 'Y';
3623: END IF;
3624:
3625: IF l_debug_level > 0 THEN
3626: oe_debug_pub.add('SPC VALID_CONFIG FLAG: ' || L_VALID_CONFIG , 2 );
3627: oe_debug_pub.add('COMPLETE_CONFIG FLAG: ' || L_COMPLETE_CONFIG , 2 );
3628: END IF;
3629:
3630: END IF; /* if not error */
3623: END IF;
3624:
3625: IF l_debug_level > 0 THEN
3626: oe_debug_pub.add('SPC VALID_CONFIG FLAG: ' || L_VALID_CONFIG , 2 );
3627: oe_debug_pub.add('COMPLETE_CONFIG FLAG: ' || L_COMPLETE_CONFIG , 2 );
3628: END IF;
3629:
3630: END IF; /* if not error */
3631:
3642: l_message_text_end_pos -
3643: l_message_text_start_pos + 1);
3644:
3645: IF l_debug_level > 0 THEN
3646: oe_debug_pub.add('GG3: '|| L_MESSAGE_TEXT , 3 );
3647: END IF;
3648:
3649: l_message_type_start_pos :=
3650: INSTR(p_xml, l_message_type_start_tag,1, 1) +
3660: -- get the latest config_header_id, and rev_nbr to get
3661: -- messages if any.
3662:
3663: IF l_debug_level > 0 THEN
3664: oe_debug_pub.add('SPC RETURNED MESSAGE_TEXT: '|| L_MESSAGE_TEXT , 2 );
3665: oe_debug_pub.add('SPC RETURNED MESSAGE_TYPE: '|| L_MESSAGE_TYPE , 2 );
3666: END IF;
3667:
3668:
3661: -- messages if any.
3662:
3663: IF l_debug_level > 0 THEN
3664: oe_debug_pub.add('SPC RETURNED MESSAGE_TEXT: '|| L_MESSAGE_TEXT , 2 );
3665: oe_debug_pub.add('SPC RETURNED MESSAGE_TYPE: '|| L_MESSAGE_TYPE , 2 );
3666: END IF;
3667:
3668:
3669: l_config_header_id_start_pos :=
3691: l_config_rev_nbr_end_pos -
3692: l_config_rev_nbr_start_pos + 1));
3693:
3694: IF l_debug_level > 0 THEN
3695: oe_debug_pub.add('CONFIG_HEADER_ID AS:' || L_CONFIG_HEADER_ID , 2 );
3696: oe_debug_pub.add('CONFIG_REV_NBR AS:' || L_CONFIG_REV_NBR , 2 );
3697: END IF;
3698:
3699:
3692: l_config_rev_nbr_start_pos + 1));
3693:
3694: IF l_debug_level > 0 THEN
3695: oe_debug_pub.add('CONFIG_HEADER_ID AS:' || L_CONFIG_HEADER_ID , 2 );
3696: oe_debug_pub.add('CONFIG_REV_NBR AS:' || L_CONFIG_REV_NBR , 2 );
3697: END IF;
3698:
3699:
3700: IF (l_flag = 'Y' ) OR
3701: l_exit is NULL OR
3702: l_exit = 'ERROR' THEN
3703:
3704: IF l_debug_level > 0 THEN
3705: oe_debug_pub.add('GETTING MESSAGES FROM CZ_CONFIG_MESSAGES' , 2 );
3706: END IF;
3707:
3708: Message_From_Cz
3709: ( p_line_id => p_line_id,
3721: IF l_exit is NULL OR
3722: l_exit = 'ERROR' THEN
3723:
3724: IF l_debug_level > 0 THEN
3725: oe_debug_pub.add('SPC RETURNED ERROR , FAIL TRANSACTION' , 2 );
3726: END IF;
3727:
3728: -- delete the SPC configuration in error
3729: OE_Config_Pvt.Delete_Config
3743: x_valid_config := nvl(l_valid_config, 'FALSE');
3744:
3745:
3746: IF l_debug_level > 0 THEN
3747: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.PARSE_OUTPUT_XML' , 1);
3748: END IF;
3749:
3750: EXCEPTION
3751: WHEN FND_API.G_EXC_ERROR THEN
3750: EXCEPTION
3751: WHEN FND_API.G_EXC_ERROR THEN
3752: x_return_status := FND_API.G_RET_STS_ERROR;
3753: IF l_debug_level > 0 THEN
3754: oe_debug_pub.add('SPC EXIT TAG IS ERROR' , 1);
3755: END IF;
3756:
3757: WHEN OTHERS THEN
3758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3756:
3757: WHEN OTHERS THEN
3758: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3759: IF l_debug_level > 0 THEN
3760: oe_debug_pub.add('PARSE_OUTPUT_XML ERROR: '
3761: || SUBSTR ( SQLERRM , 1 , 100 ) , 1);
3762: END IF;
3763:
3764: END Parse_output_xml;
3787: TOP_MODEL_LINE_ID = p_top_model_line_id
3788: ORDER BY line_number,shipment_number,nvl(option_number,-1),nvl(component_number,-1);
3789:
3790: --
3791: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3792: --
3793: BEGIN
3794:
3795: IF l_debug_level > 0 THEN
3792: --
3793: BEGIN
3794:
3795: IF l_debug_level > 0 THEN
3796: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_OPTIONS' , 1);
3797: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
3798: END IF;
3799:
3800: BEGIN
3793: BEGIN
3794:
3795: IF l_debug_level > 0 THEN
3796: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_OPTIONS' , 1);
3797: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
3798: END IF;
3799:
3800: BEGIN
3801: SELECT header_id
3818: l_line_rec.source_type_code =
3819: nvl(p_source_type, l_line_rec.source_type_code) THEN
3820:
3821: IF l_debug_level > 0 THEN
3822: oe_debug_pub.add(L_LINE_REC.SOURCE_TYPE_CODE||' ADDING '
3823: ||L_LINE_REC.OPEN_FLAG , 3 );
3824: END IF;
3825:
3826: x_line_tbl(x_line_tbl.COUNT + 1) := l_line_rec;
3827: END IF;
3828: END LOOP;
3829:
3830: IF l_debug_level > 0 THEN
3831: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.QUERY_OPTIONS' , 1);
3832: END IF;
3833:
3834: END;
3835:
3857: TOP_MODEL_LINE_ID = l_top_model_line_id AND
3858: ATO_LINE_ID = p_ato_line_id
3859: ORDER BY line_number,shipment_number,nvl(option_number,-1);
3860: --
3861: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3862: --
3863: BEGIN
3864:
3865: IF l_debug_level > 0 THEN
3862: --
3863: BEGIN
3864:
3865: IF l_debug_level > 0 THEN
3866: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_ATO_OPTIONS' , 1);
3867: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
3868: END IF;
3869:
3870: BEGIN
3863: BEGIN
3864:
3865: IF l_debug_level > 0 THEN
3866: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_ATO_OPTIONS' , 1);
3867: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
3868: END IF;
3869:
3870: BEGIN
3871: SELECT top_model_line_id ,header_id
3889: l_line_rec.source_type_code =
3890: nvl(p_source_type, l_line_rec.source_type_code) THEN
3891:
3892: IF l_debug_level > 0 THEN
3893: oe_debug_pub.add(L_LINE_REC.SOURCE_TYPE_CODE||' ADDING '
3894: ||L_LINE_REC.OPEN_FLAG , 3 );
3895: END IF;
3896: l_line_rec.reserved_quantity := Null;
3897: x_line_tbl(x_line_tbl.COUNT + 1) := l_line_rec;
3899:
3900: END LOOP;
3901:
3902: IF l_debug_level > 0 THEN
3903: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.QUERY_ATO_OPTIONS' , 1);
3904: END IF;
3905:
3906: EXCEPTION
3907: WHEN OTHERS THEN
3928: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
3929: IS
3930: l_group_id NUMBER; -- bom out NOCOPY param
3931: --
3932: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3933: --
3934: BEGIN
3935:
3936: IF l_debug_level > 0 THEN
3933: --
3934: BEGIN
3935:
3936: IF l_debug_level > 0 THEN
3937: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.EXPLODE' , 1);
3938: oe_debug_pub.add(' EXPLOSION TYPE ' || P_STDCOMPFLAG , 2 );
3939: END IF;
3940:
3941: BOMPNORD.Bmxporder_Explode_For_Order(
3934: BEGIN
3935:
3936: IF l_debug_level > 0 THEN
3937: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.EXPLODE' , 1);
3938: oe_debug_pub.add(' EXPLOSION TYPE ' || P_STDCOMPFLAG , 2 );
3939: END IF;
3940:
3941: BOMPNORD.Bmxporder_Explode_For_Order(
3942: org_id => p_validation_org,
3953: err_msg => x_msg_data,
3954: error_code => x_error_code);
3955:
3956: IF l_debug_level > 0 THEN
3957: oe_debug_pub.add('AFTER CALLING BOM EXPLODE API' , 2 );
3958: END IF;
3959:
3960: IF x_error_code <> 0 THEN
3961: IF l_debug_level > 0 THEN
3958: END IF;
3959:
3960: IF x_error_code <> 0 THEN
3961: IF l_debug_level > 0 THEN
3962: oe_debug_pub.add('ERROR IN BOM EXPLOSION' , 2 );
3963: oe_debug_pub.add('ERROR CODE IS ' || X_ERROR_CODE , 2 );
3964: END IF;
3965:
3966: IF x_msg_data is not null THEN
3959:
3960: IF x_error_code <> 0 THEN
3961: IF l_debug_level > 0 THEN
3962: oe_debug_pub.add('ERROR IN BOM EXPLOSION' , 2 );
3963: oe_debug_pub.add('ERROR CODE IS ' || X_ERROR_CODE , 2 );
3964: END IF;
3965:
3966: IF x_msg_data is not null THEN
3967: IF l_debug_level > 0 THEN
3964: END IF;
3965:
3966: IF x_msg_data is not null THEN
3967: IF l_debug_level > 0 THEN
3968: oe_debug_pub.add('BOM MSG NAME: '
3969: || SUBSTR ( X_MSG_DATA , 1 , 250 ) , 2 );
3970: END IF;
3971:
3972: -- girish from bom team told err_msg is msg name, track bug 1623728
3982:
3983:
3984: x_return_status := FND_API.G_RET_STS_SUCCESS;
3985: IF l_debug_level > 0 THEN
3986: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.EXPLODE' , 1);
3987: END IF;
3988:
3989: EXCEPTION
3990: WHEN FND_API.G_EXC_ERROR THEN
4002: , x_line_rec OUT NOCOPY OE_ORDER_PUB.line_rec_type)
4003: IS
4004: l_line_rec OE_ORDER_PUB.line_rec_type;
4005: --
4006: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4007: --
4008: BEGIN
4009: x_line_rec := l_line_rec;
4010: END Query_Included_Item;
4037: ITEM_TYPE_CODE = OE_GLOBALS.G_ITEM_INCLUDED
4038: ORDER BY line_number,shipment_number,nvl(option_number,-1);
4039:
4040: --
4041: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4042: --
4043: BEGIN
4044:
4045: IF l_debug_level > 0 THEN
4042: --
4043: BEGIN
4044:
4045: IF l_debug_level > 0 THEN
4046: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
4047: END IF;
4048:
4049: IF p_header_id = FND_API.G_MISS_NUM AND
4050: p_top_model_line_id = FND_API.G_MISS_NUM THEN
4067:
4068: END IF;
4069:
4070: IF l_debug_level > 0 THEN
4071: oe_debug_pub.add('HEADER ID , TOP MODEL LINE ID '
4072: ||L_HEADER_ID||'/'||L_TOP_MODEL_LINE_ID , 3 );
4073: END IF;
4074:
4075: -- Loop over fetched records
4083: l_line_rec.source_type_code =
4084: nvl(p_source_type, l_line_rec.source_type_code) THEN
4085:
4086: IF l_debug_level > 0 THEN
4087: oe_debug_pub.add(L_LINE_REC.SOURCE_TYPE_CODE||' ADDING '
4088: ||L_LINE_REC.OPEN_FLAG , 3 );
4089: END IF;
4090:
4091: x_line_tbl(x_line_tbl.COUNT + 1) := l_line_rec;
4093:
4094: END LOOP;
4095:
4096: IF l_debug_level > 0 THEN
4097: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.QUERY_INCLUDED_ITEMS' , 1);
4098: END IF;
4099:
4100: EXCEPTION
4101: WHEN OTHERS THEN
4279: AND be.EFFECTIVITY_DATE <= p_std_comp_freeze_date
4280: AND be.DISABLE_DATE > p_std_comp_freeze_date);
4281:
4282: --
4283: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4284: --
4285: BEGIN
4286:
4287: Print_Time('Entering oe_config_util.process_included_items');
4290:
4291: IF p_line_rec.line_id <> FND_API.G_MISS_NUM AND
4292: p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4293: IF l_debug_level > 0 THEN
4294: oe_debug_pub.add('DO NOT LOCK' , 3 );
4295: END IF;
4296: ELSE
4297: IF p_line_id = FND_API.G_MISS_NUM THEN
4298: OE_LINE_UTIL.Lock_Row
4302: -- Parent Line has been passed
4303: l_parent_line_rec := p_line_rec;
4304:
4305: IF l_debug_level > 0 THEN
4306: oe_debug_pub.add('P_LINE_ID IS MISS_NUM' , 3 );
4307: END IF;
4308: ELSE
4309: -- Query the Parent Line
4310: IF l_debug_level > 0 THEN
4307: END IF;
4308: ELSE
4309: -- Query the Parent Line
4310: IF l_debug_level > 0 THEN
4311: oe_debug_pub.add('PARENT LINE_ID: '|| P_LINE_ID , 2 );
4312: END IF;
4313:
4314: OE_LINE_UTIL.Lock_Row
4315: (p_line_id => p_line_id
4317: ,x_return_status => l_return_status);
4318: END IF;
4319:
4320: IF l_debug_level > 0 THEN
4321: oe_debug_pub.add('ROW LOCKED' , 3 );
4322: END IF;
4323: END IF;
4324:
4325:
4329: ('MODEL', 'KIT', 'CLASS') OR
4330: l_parent_line_rec.ordered_quantity = 0
4331: THEN
4332: IF l_debug_level > 0 THEN
4333: oe_debug_pub.add('RETURNING FROM PROC_INC_ITEMS' , 3 );
4334: END IF;
4335: RETURN l_return_status;
4336: END IF;
4337:
4353: ,x_return_status => l_x_return_status );
4354:
4355: IF l_config_mode <> 1 THEN
4356: IF l_debug_level > 0 THEN
4357: oe_debug_pub.add('Returning from Process_included_items for Kit in TSO configuration' , 3 );
4358: END IF;
4359:
4360: l_cz_config_mode :=
4361: CZ_NETWORK_API_PUB.is_item_added (p_config_hdr_id => l_parent_line_rec.config_header_id
4361: CZ_NETWORK_API_PUB.is_item_added (p_config_hdr_id => l_parent_line_rec.config_header_id
4362: ,p_config_rev_nbr => l_parent_line_rec.config_rev_nbr
4363: ,p_config_item_id => l_parent_line_rec.configuration_id);
4364: IF l_debug_level > 0 THEN
4365: oe_debug_pub.add('After calling CZ_NETWORK_API_PUB.is_item_added: ' || l_cz_config_mode );
4366: END IF;
4367: IF l_cz_config_mode = 0 THEN
4368: --RETURN l_return_status;
4369: l_freeze_macd_kit := TRUE;
4375:
4376: l_freeze_method := G_FREEZE_METHOD; /* Bug # 5036404 */
4377:
4378: IF l_debug_level > 0 THEN
4379: oe_debug_pub.add('METHOD: '|| L_FREEZE_METHOD , 4 );
4380: END IF;
4381: -- 4359339
4382: l_freeze_method := nvl(l_freeze_method, OE_GLOBALS.G_IIFM_ENTRY);
4383:
4398: END IF;
4399: l_validation_org := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
4400:
4401: IF l_debug_level > 0 THEN
4402: oe_debug_pub.add('EXPLOSION_DATE: ' || L_EXPLOSION_DATE , 2 );
4403: oe_debug_pub.add('P_TOP_ITEM_ID: '
4404: || L_PARENT_LINE_REC.INVENTORY_ITEM_ID , 2 );
4405: oe_debug_pub.add('EXPLODING WITH ORG : ' || L_VALIDATION_ORG , 2 );
4406: END IF;
4399: l_validation_org := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
4400:
4401: IF l_debug_level > 0 THEN
4402: oe_debug_pub.add('EXPLOSION_DATE: ' || L_EXPLOSION_DATE , 2 );
4403: oe_debug_pub.add('P_TOP_ITEM_ID: '
4404: || L_PARENT_LINE_REC.INVENTORY_ITEM_ID , 2 );
4405: oe_debug_pub.add('EXPLODING WITH ORG : ' || L_VALIDATION_ORG , 2 );
4406: END IF;
4407:
4401: IF l_debug_level > 0 THEN
4402: oe_debug_pub.add('EXPLOSION_DATE: ' || L_EXPLOSION_DATE , 2 );
4403: oe_debug_pub.add('P_TOP_ITEM_ID: '
4404: || L_PARENT_LINE_REC.INVENTORY_ITEM_ID , 2 );
4405: oe_debug_pub.add('EXPLODING WITH ORG : ' || L_VALIDATION_ORG , 2 );
4406: END IF;
4407:
4408: Explode(p_validation_org => l_validation_org,
4409: p_levels => 6, --??
4429: AND ORGANIZATION_ID = l_validation_org
4430: AND ALTERNATE_BOM_DESIGNATOR IS NULL;
4431:
4432: IF l_debug_level > 0 THEN
4433: oe_debug_pub.add('BILL SEQ ID '||L_PARENT_COMPONENT_SEQUENCE_ID , 1);
4434: END IF;
4435:
4436: EXCEPTION
4437: WHEN NO_DATA_FOUND THEN
4435:
4436: EXCEPTION
4437: WHEN NO_DATA_FOUND THEN
4438: IF l_debug_level > 0 THEN
4439: oe_debug_pub.add('BILL DOES NOT EXIST FOR THIS ITEM' , 3 );
4440: END IF;
4441: l_parent_component_sequence_id := 0;
4442: WHEN OTHERS THEN
4443: IF l_debug_level > 0 THEN
4440: END IF;
4441: l_parent_component_sequence_id := 0;
4442: WHEN OTHERS THEN
4443: IF l_debug_level > 0 THEN
4444: oe_debug_pub.add
4445: ('UNEXPECTED ERROR WHILE GETTING BILL SEQUENCE ID' , 3 );
4446: END IF;
4447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4448: END;
4498: l_line_rec.flow_status_code := 'ENTERED';
4499: END IF;
4500:
4501: IF l_debug_level > 0 THEN
4502: oe_debug_pub.add('CALLING DEFAULT CHILD' , 2 );
4503: END IF;
4504:
4505: default_child_line
4506: (p_parent_line_rec => l_parent_line_rec,
4528: AND organization_id = l_validation_org;
4529: EXCEPTION
4530: WHEN NO_DATA_FOUND THEN
4531: IF l_debug_level > 0 THEN
4532: oe_debug_pub.add('CANCAT SEG FETCH ERROR' , 3 );
4533: END IF;
4534: RAISE FND_API.G_EXC_ERROR;
4535: END;
4536:
4534: RAISE FND_API.G_EXC_ERROR;
4535: END;
4536:
4537: IF l_debug_level > 0 THEN
4538: oe_debug_pub.add('ORD ITEM IS: ' || L_LINE_REC.ORDERED_ITEM , 5 );
4539: oe_debug_pub.add('INSERTING....'|| L_LINE_REC.COMPONENT_CODE , 2 );
4540: END IF;
4541:
4542: -- Adding this flag for fulfillment purpose.
4535: END;
4536:
4537: IF l_debug_level > 0 THEN
4538: oe_debug_pub.add('ORD ITEM IS: ' || L_LINE_REC.ORDERED_ITEM , 5 );
4539: oe_debug_pub.add('INSERTING....'|| L_LINE_REC.COMPONENT_CODE , 2 );
4540: END IF;
4541:
4542: -- Adding this flag for fulfillment purpose.
4543:
4577: l_line_rec.global_attribute_category := NULL;
4578:
4579: --bug3269648 start
4580: IF l_debug_level > 0 THEN
4581: OE_DEBUG_PUB.Add('Before calling JG ',2);
4582: END IF;
4583:
4584: JG_ZZ_OM_COMMON_PKG.default_gdf
4585: ( x_line_rec => l_line_rec
4586: ,x_return_code => l_return_code
4587: ,x_error_buffer => l_error_buffer );
4588:
4589: IF l_debug_level > 0 THEN
4590: OE_DEBUG_PUB.Add('After JG Call:'|| l_return_code || l_error_buffer,2);
4591: END IF;
4592: --bug3269648 ends
4593:
4594: l_line_count := l_line_count + 1;
4616: l_top_model_quantity := l_parent_line_rec.ordered_quantity;
4617: END IF;
4618:
4619: IF l_debug_level > 0 THEN
4620: oe_debug_pub.add('MODEL ORDERED QUANTITY IS'
4621: || L_TOP_MODEL_QUANTITY , 2 );
4622: END IF;
4623:
4624: l_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
4636: INTO l_line_rec.line_id, l_line_rec.ordered_quantity;
4637: EXIT WHEN update_included_items%NOTFOUND;
4638:
4639: IF l_debug_level > 0 THEN
4640: oe_debug_pub.add('UPDATING....'|| L_LINE_REC.COMPONENT_CODE , 2 );
4641: END IF;
4642:
4643: -- Audit Trail
4644: l_line_rec.change_reason := 'SYSTEM';
4651:
4652: ----- 3. Delete and included items that are not valid anymore
4653:
4654: IF l_debug_level > 0 THEN
4655: oe_debug_pub.add('TOP MODEL LINE:' || L_PARENT_LINE_REC.LINE_ID , 2 );
4656: END IF;
4657:
4658: l_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
4659: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
4670:
4671: l_adjust_comp_no_flag := 'Y';
4672:
4673: IF l_debug_level > 0 THEN
4674: oe_debug_pub.add('DELETING....'|| L_LINE_REC.LINE_ID , 2 );
4675: END IF;
4676:
4677: l_line_count := l_line_count + 1;
4678: l_line_tbl(l_line_count) := l_line_rec;
4682:
4683: END IF; -- no need to open cursors
4684:
4685: IF l_debug_level > 0 THEN
4686: oe_debug_pub.add('NO. OF LINES ' || TO_CHAR ( L_LINE_COUNT ) , 2 );
4687: END IF;
4688:
4689: IF l_line_count > 0 THEN
4690: l_header_rec.operation := OE_GLOBALS.G_OPR_NONE;
4690: l_header_rec.operation := OE_GLOBALS.G_OPR_NONE;
4691: l_header_rec.header_id := l_parent_line_rec.header_id;
4692:
4693: IF l_debug_level > 0 THEN
4694: oe_debug_pub.add('CALLING PROCESS_ORDER' , 2 );
4695: END IF;
4696:
4697: l_control_rec.controlled_operation := TRUE;
4698: l_control_rec.check_security := FALSE;
4733:
4734:
4735: IF l_adjust_comp_no_flag = 'Y' THEN
4736: IF l_debug_level > 0 THEN
4737: oe_debug_pub.add('INCLUDED ITEMS GOT DELETED' , 1);
4738: END IF;
4739:
4740: update_component_number
4741: (p_line_id => p_line_id,
4814:
4815: l_component_number NUMBER := 0;
4816: l_line_id NUMBER;
4817: --
4818: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4819: --
4820: BEGIN
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_COMPONENT_NUMBER' , 1);
4818: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4819: --
4820: BEGIN
4821: IF l_debug_level > 0 THEN
4822: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_COMPONENT_NUMBER' , 1);
4823: END IF;
4824:
4825: OPEN comp_number;
4826: LOOP
4838:
4839: x_return_status := FND_API.G_RET_STS_SUCCESS;
4840:
4841: IF l_debug_level > 0 THEN
4842: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_COMPONENT_NUMBER' , 1);
4843: END IF;
4844:
4845: EXCEPTION
4846: WHEN OTHERS THEN
4863: p_scope in varchar2,
4864: x_result out NOCOPY /* file.sql.39 change */ number)
4865: IS
4866: --
4867: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4868: --
4869: BEGIN
4870: x_result := 0;
4871: END;
4877: FUNCTION Freeze_Included_Items(p_line_id IN NUMBER)
4878: RETURN VARCHAR2
4879: IS
4880: --
4881: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4882: --
4883: BEGIN
4884: RETURN Process_Included_Items(p_line_id => p_line_id,
4885: p_freeze => TRUE);
4899: RETURN BOOLEAN
4900: IS
4901: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
4902: --
4903: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4904: --
4905: BEGIN
4906:
4907: IF l_debug_level > 0 THEN
4904: --
4905: BEGIN
4906:
4907: IF l_debug_level > 0 THEN
4908: oe_debug_pub.add('ENTERING IS_ATO_MODEL FUNCTION ' , 1);
4909: END IF;
4910:
4911: -- if p_line_rec.line_id is missing, query row
4912: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
4927: l_line_rec.ato_line_id = l_line_rec.line_id AND
4928: l_line_rec.top_model_line_id = l_line_rec.line_id -- redundent
4929: THEN
4930: IF l_debug_level > 0 THEN
4931: oe_debug_pub.add('LEAVING IS_ATO_MODEL FUNCTION ' , 1);
4932: END IF;
4933: RETURN TRUE;
4934: ELSE
4935: IF l_debug_level > 0 THEN
4932: END IF;
4933: RETURN TRUE;
4934: ELSE
4935: IF l_debug_level > 0 THEN
4936: oe_debug_pub.add('LEAVING IS_ATO_MODEL FUNCTION ' , 1);
4937: END IF;
4938: RETURN FALSE;
4939: END IF;
4940:
4938: RETURN FALSE;
4939: END IF;
4940:
4941: IF l_debug_level > 0 THEN
4942: oe_debug_pub.add('LEAVING IS_ATO_MODEL FUNCTION ' , 1);
4943: END IF;
4944:
4945: EXCEPTION
4946: when others then
4944:
4945: EXCEPTION
4946: when others then
4947: IF l_debug_level > 0 THEN
4948: oe_debug_pub.add('EXCEPTION IN IS_ATO_MODEL FUNCTION ' , 1);
4949: END IF;
4950: RETURN FALSE;
4951: END Is_ATO_Model;
4952:
4965: IS
4966: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
4967:
4968: --
4969: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4970: --
4971: BEGIN
4972:
4973: IF l_debug_level > 0 THEN
4970: --
4971: BEGIN
4972:
4973: IF l_debug_level > 0 THEN
4974: oe_debug_pub.add('ENTERING IS_PTO_MODEL FUNCTION ' , 1);
4975: END IF;
4976:
4977: -- if p_line_rec.line_id is missing, query row
4978: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
4993: l_line_rec.ato_line_id IS NULL AND
4994: l_line_rec.top_model_line_id = l_line_rec.line_id -- redundent
4995: THEN
4996: IF l_debug_level > 0 THEN
4997: oe_debug_pub.add('LEAVING IS_PTO_MODEL FUNCTION ' , 1);
4998: END IF;
4999: RETURN TRUE;
5000: ELSE
5001: IF l_debug_level > 0 THEN
4998: END IF;
4999: RETURN TRUE;
5000: ELSE
5001: IF l_debug_level > 0 THEN
5002: oe_debug_pub.add('LEAVING IS_PTO_MODEL FUNCTION ' , 1);
5003: END IF;
5004: RETURN FALSE;
5005: END IF;
5006:
5004: RETURN FALSE;
5005: END IF;
5006:
5007: IF l_debug_level > 0 THEN
5008: oe_debug_pub.add('LEAVING IS_PTO_MODEL FUNCTION ' , 1);
5009: END IF;
5010:
5011: EXCEPTION
5012: when others then
5010:
5011: EXCEPTION
5012: when others then
5013: IF l_debug_level > 0 THEN
5014: oe_debug_pub.add('EXCEPTION IN IS_PTO_MODEL FUNCTION ' , 1);
5015: END IF;
5016: RETURN FALSE;
5017: END Is_PTO_Model;
5018:
5030: IS
5031: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5032:
5033: --
5034: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5035: --
5036: BEGIN
5037:
5038: IF l_debug_level > 0 THEN
5035: --
5036: BEGIN
5037:
5038: IF l_debug_level > 0 THEN
5039: oe_debug_pub.add('ENTERING IS_INCLUDED_OPTION FUNCTION ' , 1);
5040: END IF;
5041:
5042: -- if p_line_rec.line_id is missing, query row
5043: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5056:
5057: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_INCLUDED
5058: THEN
5059: IF l_debug_level > 0 THEN
5060: oe_debug_pub.add('LEAVING IS_INCLUDED_OPTION FUNCTION ' , 1);
5061: END IF;
5062: RETURN TRUE;
5063: ELSE
5064: IF l_debug_level > 0 THEN
5061: END IF;
5062: RETURN TRUE;
5063: ELSE
5064: IF l_debug_level > 0 THEN
5065: oe_debug_pub.add('LEAVING IS_INCLUDED_OPTION FUNCTION ' , 1);
5066: END IF;
5067: RETURN FALSE;
5068: END IF;
5069:
5067: RETURN FALSE;
5068: END IF;
5069:
5070: IF l_debug_level > 0 THEN
5071: oe_debug_pub.add('LEAVING IS_INCLUDED_OPTION FUNCTION ' , 1);
5072: END IF;
5073:
5074: EXCEPTION
5075: when others then
5073:
5074: EXCEPTION
5075: when others then
5076: IF l_debug_level > 0 THEN
5077: oe_debug_pub.add('EXCEPTION IN IS_INCLUDED_OPTION FUNCTION ' , 1);
5078: END IF;
5079: RETURN FALSE;
5080: END Is_Included_Option;
5081:
5093: IS
5094: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5095:
5096: --
5097: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5098: --
5099: BEGIN
5100:
5101: IF l_debug_level > 0 THEN
5098: --
5099: BEGIN
5100:
5101: IF l_debug_level > 0 THEN
5102: oe_debug_pub.add('ENTERING IS_CONFIG_ITEM FUNCTION ' , 1);
5103: END IF;
5104:
5105: -- if p_line_rec.line_id is missing, query row
5106: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5120:
5121: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CONFIG
5122: THEN
5123: IF l_debug_level > 0 THEN
5124: oe_debug_pub.add('LEAVING IS_CONFIG_ITEM FUNCTION ' , 1);
5125: END IF;
5126: RETURN TRUE;
5127: ELSE
5128: IF l_debug_level > 0 THEN
5125: END IF;
5126: RETURN TRUE;
5127: ELSE
5128: IF l_debug_level > 0 THEN
5129: oe_debug_pub.add('LEAVING IS_CONFIG_ITEM FUNCTION ' , 1);
5130: END IF;
5131: RETURN FALSE;
5132: END IF;
5133:
5131: RETURN FALSE;
5132: END IF;
5133:
5134: IF l_debug_level > 0 THEN
5135: oe_debug_pub.add('LEAVING IS_CONFIG_ITEM FUNCTION ' , 1);
5136: END IF;
5137:
5138: EXCEPTION
5139: when others then
5137:
5138: EXCEPTION
5139: when others then
5140: IF l_debug_level > 0 THEN
5141: oe_debug_pub.add('EXCEPTION IN IS_CONFIG_ITEM FUNCTION ' , 1);
5142: END IF;
5143: RETURN FALSE;
5144: END Is_Config_item;
5145:
5156: IS
5157: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5158:
5159: --
5160: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5161: --
5162: BEGIN
5163:
5164: IF l_debug_level > 0 THEN
5161: --
5162: BEGIN
5163:
5164: IF l_debug_level > 0 THEN
5165: oe_debug_pub.add('ENTERING IS_ATO_OPTION FUNCTION ' , 1);
5166: END IF;
5167:
5168: -- if p_line_rec.line_id is missing, query row
5169: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5186: l_line_rec.top_model_line_id = l_line_rec.ato_line_id
5187: -- not an ato under pto
5188: THEN
5189: IF l_debug_level > 0 THEN
5190: oe_debug_pub.add('LEAVING IS_ATO_OPTION FUNCTION ' , 1);
5191: END IF;
5192: RETURN TRUE;
5193: ELSE
5194: IF l_debug_level > 0 THEN
5191: END IF;
5192: RETURN TRUE;
5193: ELSE
5194: IF l_debug_level > 0 THEN
5195: oe_debug_pub.add('LEAVING IS_ATO_OPTION FUNCTION ' , 1);
5196: END IF;
5197: RETURN FALSE;
5198: END IF;
5199:
5197: RETURN FALSE;
5198: END IF;
5199:
5200: IF l_debug_level > 0 THEN
5201: oe_debug_pub.add('LEAVING IS_ATO_OPTION FUNCTION ' , 1);
5202: END IF;
5203:
5204: EXCEPTION
5205: when others then
5203:
5204: EXCEPTION
5205: when others then
5206: IF l_debug_level > 0 THEN
5207: oe_debug_pub.add('EXCEPTION IN IS_ATO_OPTION FUNCTION ' , 1);
5208: END IF;
5209: RETURN FALSE;
5210: END Is_ATO_Option;
5211:
5223: IS
5224: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5225:
5226: --
5227: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5228: --
5229: BEGIN
5230:
5231: IF l_debug_level > 0 THEN
5228: --
5229: BEGIN
5230:
5231: IF l_debug_level > 0 THEN
5232: oe_debug_pub.add('ENTERING IS_PTO_OPTION FUNCTION ' , 1);
5233: END IF;
5234:
5235: -- if p_line_rec.line_id is missing, query row
5236: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5250: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_OPTION AND
5251: l_line_rec.ato_line_id is null
5252: THEN
5253: IF l_debug_level > 0 THEN
5254: oe_debug_pub.add('LEAVING IS_PTO_OPTION FUNCTION ' , 1);
5255: END IF;
5256: RETURN TRUE;
5257: ELSE
5258: IF l_debug_level > 0 THEN
5255: END IF;
5256: RETURN TRUE;
5257: ELSE
5258: IF l_debug_level > 0 THEN
5259: oe_debug_pub.add('LEAVING IS_PTO_OPTION FUNCTION ' , 1);
5260: END IF;
5261: RETURN FALSE;
5262: END IF;
5263:
5261: RETURN FALSE;
5262: END IF;
5263:
5264: IF l_debug_level > 0 THEN
5265: oe_debug_pub.add('LEAVING IS_PTO_OPTION FUNCTION ' , 1);
5266: END IF;
5267:
5268: EXCEPTION
5269: when others then
5267:
5268: EXCEPTION
5269: when others then
5270: IF l_debug_level > 0 THEN
5271: oe_debug_pub.add('EXCEPTION IN IS_PTO_OPTION FUNCTION ' , 1);
5272: END IF;
5273: RETURN FALSE;
5274: END Is_PTO_Option;
5275:
5286: IS
5287: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5288:
5289: --
5290: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5291: --
5292: BEGIN
5293:
5294: IF l_debug_level > 0 THEN
5291: --
5292: BEGIN
5293:
5294: IF l_debug_level > 0 THEN
5295: oe_debug_pub.add('ENTERING IS_ATO_CLASS FUNCTION ' , 1);
5296: END IF;
5297:
5298: -- if p_line_rec.line_id is missing, query row
5299: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5315: l_line_rec.top_model_line_id = l_line_rec.ato_line_id
5316: -- not an ato under pto
5317: THEN
5318: IF l_debug_level > 0 THEN
5319: oe_debug_pub.add('LEAVING IS_ATO_CLASS FUNCTION ' , 1);
5320: END IF;
5321: RETURN TRUE;
5322: ELSE
5323: IF l_debug_level > 0 THEN
5320: END IF;
5321: RETURN TRUE;
5322: ELSE
5323: IF l_debug_level > 0 THEN
5324: oe_debug_pub.add('LEAVING IS_ATO_CLASS FUNCTION ' , 1);
5325: END IF;
5326: RETURN FALSE;
5327: END IF;
5328:
5326: RETURN FALSE;
5327: END IF;
5328:
5329: IF l_debug_level > 0 THEN
5330: oe_debug_pub.add('LEAVING IS_ATO_CLASS FUNCTION ' , 1);
5331: END IF;
5332:
5333: EXCEPTION
5334: when others then
5332:
5333: EXCEPTION
5334: when others then
5335: IF l_debug_level > 0 THEN
5336: oe_debug_pub.add('EXCEPTION IN IS_ATO_CLASS FUNCTION ' , 1);
5337: END IF;
5338: RETURN FALSE;
5339: END Is_ATO_Class;
5340:
5352: IS
5353: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5354:
5355: --
5356: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5357: --
5358: BEGIN
5359:
5360: IF l_debug_level > 0 THEN
5357: --
5358: BEGIN
5359:
5360: IF l_debug_level > 0 THEN
5361: oe_debug_pub.add('ENTERING IS_PTO_CLASS FUNCTION ' , 1);
5362: END IF;
5363:
5364: -- if p_line_rec.line_id is missing, query row
5365: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5379: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CLASS AND
5380: l_line_rec.ato_line_id is not null
5381: THEN
5382: IF l_debug_level > 0 THEN
5383: oe_debug_pub.add('LEAVING IS_PTO_CLASS FUNCTION ' , 1);
5384: END IF;
5385: RETURN TRUE;
5386: ELSE
5387: IF l_debug_level > 0 THEN
5384: END IF;
5385: RETURN TRUE;
5386: ELSE
5387: IF l_debug_level > 0 THEN
5388: oe_debug_pub.add('LEAVING IS_PTO_CLASS FUNCTION ' , 1);
5389: END IF;
5390: RETURN FALSE;
5391: END IF;
5392:
5390: RETURN FALSE;
5391: END IF;
5392:
5393: IF l_debug_level > 0 THEN
5394: oe_debug_pub.add('LEAVING IS_PTO_CLASS FUNCTION ' , 1);
5395: END IF;
5396:
5397: EXCEPTION
5398: when others then
5396:
5397: EXCEPTION
5398: when others then
5399: IF l_debug_level > 0 THEN
5400: oe_debug_pub.add('EXCEPTION IN IS_PTO_CLASS FUNCTION ' , 1);
5401: END IF;
5402: RETURN FALSE;
5403: END Is_PTO_Class;
5404:
5416: IS
5417: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5418:
5419: --
5420: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5421: --
5422: BEGIN
5423:
5424: IF l_debug_level > 0 THEN
5421: --
5422: BEGIN
5423:
5424: IF l_debug_level > 0 THEN
5425: oe_debug_pub.add('ENTERING IS_ATO_SUBCONFIG FUNCTION ' , 1);
5426: END IF;
5427:
5428: -- if p_line_rec.line_id is missing, query row
5429: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5446: l_line_rec.top_model_line_id <> l_line_rec.ato_line_id
5447: -- ato under pto
5448: THEN
5449: IF l_debug_level > 0 THEN
5450: oe_debug_pub.add('LEAVING IS_ATO_SUBCONFIG FUNCTION ' , 1);
5451: END IF;
5452: RETURN TRUE;
5453: ELSE
5454: IF l_debug_level > 0 THEN
5451: END IF;
5452: RETURN TRUE;
5453: ELSE
5454: IF l_debug_level > 0 THEN
5455: oe_debug_pub.add('LEAVING IS_ATO_SUBCONFIG FUNCTION ' , 1);
5456: END IF;
5457: RETURN FALSE;
5458: END IF;
5459:
5457: RETURN FALSE;
5458: END IF;
5459:
5460: IF l_debug_level > 0 THEN
5461: oe_debug_pub.add('LEAVING IS_ATO_SUBCONFIG FUNCTION ' , 1);
5462: END IF;
5463:
5464: EXCEPTION
5465: when others then
5463:
5464: EXCEPTION
5465: when others then
5466: IF l_debug_level > 0 THEN
5467: oe_debug_pub.add('EXCEPTION IN IS_ATO_SUBCONFIG FUNCTION ' , 1);
5468: END IF;
5469: RETURN FALSE;
5470: END Is_ATO_Subconfig;
5471:
5482: IS
5483: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5484:
5485: --
5486: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5487: --
5488: BEGIN
5489:
5490: IF l_debug_level > 0 THEN
5487: --
5488: BEGIN
5489:
5490: IF l_debug_level > 0 THEN
5491: oe_debug_pub.add('ENTERING IS_KIT FUNCTION ' , 1);
5492: END IF;
5493:
5494: -- if p_line_rec.line_id is missing, query row
5495: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5508:
5509: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_KIT
5510: THEN
5511: IF l_debug_level > 0 THEN
5512: oe_debug_pub.add('LEAVING IS_KIT FUNCTION ' , 1);
5513: END IF;
5514: RETURN TRUE;
5515: ELSE
5516: IF l_debug_level > 0 THEN
5513: END IF;
5514: RETURN TRUE;
5515: ELSE
5516: IF l_debug_level > 0 THEN
5517: oe_debug_pub.add('LEAVING IS_KIT FUNCTION ' , 1);
5518: END IF;
5519: RETURN FALSE;
5520: END IF;
5521:
5519: RETURN FALSE;
5520: END IF;
5521:
5522: IF l_debug_level > 0 THEN
5523: oe_debug_pub.add('LEAVING IS_KIT FUNCTION ' , 1);
5524: END IF;
5525:
5526: EXCEPTION
5527: when others then
5525:
5526: EXCEPTION
5527: when others then
5528: IF l_debug_level > 0 THEN
5529: oe_debug_pub.add('EXCEPTION IN IS_KIT FUNCTION ' , 1);
5530: END IF;
5531: RETURN FALSE;
5532: END Is_Kit;
5533:
5544: IS
5545: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5546:
5547: --
5548: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5549: --
5550: BEGIN
5551:
5552: IF l_debug_level > 0 THEN
5549: --
5550: BEGIN
5551:
5552: IF l_debug_level > 0 THEN
5553: oe_debug_pub.add('ENTERING IS_ATO_ITEM FUNCTION ' , 1);
5554: END IF;
5555:
5556: -- if p_line_rec.line_id is missing, query row
5557: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5572: l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_OPTION ) AND
5573: l_line_rec.ato_line_id = l_line_rec.line_id
5574: THEN
5575: IF l_debug_level > 0 THEN
5576: oe_debug_pub.add('LEAVING IS_ATO_ITEM FUNCTION ' , 1);
5577: END IF;
5578: RETURN TRUE;
5579: ELSE
5580: IF l_debug_level > 0 THEN
5577: END IF;
5578: RETURN TRUE;
5579: ELSE
5580: IF l_debug_level > 0 THEN
5581: oe_debug_pub.add('LEAVING IS_ATO_ITEM FUNCTION ' , 1);
5582: END IF;
5583: RETURN FALSE;
5584: END IF;
5585:
5583: RETURN FALSE;
5584: END IF;
5585:
5586: IF l_debug_level > 0 THEN
5587: oe_debug_pub.add('LEAVING IS_ATO_ITEM FUNCTION ' , 1);
5588: END IF;
5589:
5590: EXCEPTION
5591: when others then
5589:
5590: EXCEPTION
5591: when others then
5592: IF l_debug_level > 0 THEN
5593: oe_debug_pub.add('EXCEPTION IN IS_ATO_ITEM FUNCTION ' , 1);
5594: END IF;
5595: RETURN FALSE;
5596: END Is_Ato_Item;
5597:
5629: TOP_MODEL_LINE_ID = p_top_model_line_id))
5630: ORDER BY line_number,shipment_number,nvl(option_number,-1);
5631:
5632: --
5633: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5634: --
5635: BEGIN
5636: IF l_debug_level > 0 THEN
5637: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_CONFIG' , 1);
5633: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5634: --
5635: BEGIN
5636: IF l_debug_level > 0 THEN
5637: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_CONFIG' , 1);
5638: END IF;
5639:
5640: l_top_model_line_id := p_top_model_line_id;
5641:
5668: l_top_model_line_id := NULL;
5669: END IF;
5670:
5671: IF l_debug_level > 0 THEN
5672: oe_debug_pub.add('HEADER_ID: ' || L_HEADER_ID , 3 );
5673: END IF;
5674:
5675: -- Loop over fetched records
5676: OPEN l_line_csr(l_top_model_line_id);
5686:
5687: END LOOP;
5688:
5689: IF l_debug_level > 0 THEN
5690: oe_debug_pub.add('LEAVING QUERY CONFIG' , 1);
5691: END IF;
5692:
5693: EXCEPTION
5694: WHEN NO_DATA_FOUND THEN
5692:
5693: EXCEPTION
5694: WHEN NO_DATA_FOUND THEN
5695: IF l_debug_level > 0 THEN
5696: oe_debug_pub.add('NO_DATA_FOUND IN QUERY_CONFIG' , 1);
5697: END IF;
5698: RAISE NO_DATA_FOUND;
5699:
5700: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5698: RAISE NO_DATA_FOUND;
5699:
5700: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5701: IF l_debug_level > 0 THEN
5702: oe_debug_pub.add('EXC_UNXP IN QUERY_CONFIG' , 1);
5703: END IF;
5704: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5705:
5706: WHEN OTHERS THEN
5707:
5708: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5709: THEN
5710: IF l_debug_level > 0 THEN
5711: oe_debug_pub.add('OTHERS IN QUERY_CONFIG' , 1);
5712: END IF;
5713: OE_MSG_PUB.Add_Exc_Msg
5714: ( G_PKG_NAME
5715: , 'Query_Config'
5727: Procedure get_transaction_id(p_caller IN VARCHAR2)
5728: IS
5729: l_tran_id VARCHAR2(1000);
5730: --
5731: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5732: --
5733: BEGIN
5734: --insert into values(1);
5735: --uncomment when you want to see tran id
5735: --uncomment when you want to see tran id
5736: --should not go in tst115
5737: l_tran_id := dbms_transaction.local_transaction_id();
5738: IF l_debug_level > 0 THEN
5739: oe_debug_pub.add(P_CALLER ||' , TRANSACTION_ID: '|| L_TRAN_ID , 1);
5740: END IF;
5741: END get_transaction_id;
5742:
5743:
5795: order_quantity_uom is null
5796: );
5797:
5798: --
5799: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5800: --
5801: BEGIN
5802:
5803: IF l_debug_level > 0 THEN
5800: --
5801: BEGIN
5802:
5803: IF l_debug_level > 0 THEN
5804: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.COMPLETE_CONFIGURATION' , 1);
5805: END IF;
5806:
5807: BEGIN
5808:
5815:
5816: EXCEPTION
5817: WHEN OTHERS THEN
5818: IF l_debug_level > 0 THEN
5819: oe_debug_pub.add('EXCEPTION IN SELECT' , 1);
5820: END IF;
5821: RAISE FND_API.G_EXC_ERROR;
5822: END;
5823:
5823:
5824:
5825: -- Explode the options in Bom_Explosions
5826: IF l_debug_level > 0 THEN
5827: oe_debug_pub.add('CALL TO EXPLOSION' , 2 );
5828: oe_debug_pub.add('ORG ID: '|| L_VALIDATION_ORG , 2 );
5829: END IF;
5830:
5831:
5824:
5825: -- Explode the options in Bom_Explosions
5826: IF l_debug_level > 0 THEN
5827: oe_debug_pub.add('CALL TO EXPLOSION' , 2 );
5828: oe_debug_pub.add('ORG ID: '|| L_VALIDATION_ORG , 2 );
5829: END IF;
5830:
5831:
5832: OE_CONFIG_UTIL.Explode
5844: , x_return_status => l_return_status );
5845:
5846:
5847: IF l_debug_level > 0 THEN
5848: oe_debug_pub.add('AFTER CALL TO EXPLODE: '|| L_RETURN_STATUS , 2 );
5849: END IF;
5850:
5851: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5869:
5870: EXCEPTION
5871: WHEN NO_DATA_FOUND THEN
5872: IF l_debug_level > 0 THEN
5873: oe_debug_pub.add('COMPONENT_SEQUENCE_ID QUERY FAILED' , 1);
5874: END IF;
5875: RAISE FND_API.G_EXC_ERROR;
5876: END;
5877:
5877:
5878: END IF;
5879:
5880: IF l_debug_level > 0 THEN
5881: oe_debug_pub.add('COMP_SEQ_ID OF MODEL: ' || L_MODEL_SEQ_ID , 2 );
5882: END IF;
5883:
5884: FOR line_rec in comp_code_upd
5885: LOOP
5883:
5884: FOR line_rec in comp_code_upd
5885: LOOP
5886: IF l_debug_level > 0 THEN
5887: oe_debug_pub.add('COMPLETE ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5888: END IF;
5889:
5890: -- 1st obtain component_code using bom_explosions, if the select
5891: -- statement fetches more than one row, there is ambiguity in the bill
5893: BEGIN
5894:
5895: IF line_rec.component_code is not NULL THEN
5896: IF l_debug_level > 0 THEN
5897: oe_debug_pub.add('COMPONENT CODE PASSED , SOMETHING ELSE NULL' , 3 );
5898: END IF;
5899:
5900: SELECT component_code, component_sequence_id, sort_order,
5901: primary_uom_code
5911: AND component_code = line_rec.component_code;
5912:
5913: ELSE
5914: IF l_debug_level > 0 THEN
5915: oe_debug_pub.add('COMPONENT CODE NOT PASSED' , 3 );
5916: END IF;
5917:
5918: SELECT component_code, component_sequence_id, sort_order,
5919: primary_uom_code
5930:
5931: EXCEPTION
5932: WHEN NO_DATA_FOUND THEN
5933: IF l_debug_level > 0 THEN
5934: oe_debug_pub.add('SELECT COMP_CODE FAILED , NO DATA FOUND ' , 1);
5935: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5936: END IF;
5937:
5938: x_return_status := FND_API.G_RET_STS_ERROR;
5931: EXCEPTION
5932: WHEN NO_DATA_FOUND THEN
5933: IF l_debug_level > 0 THEN
5934: oe_debug_pub.add('SELECT COMP_CODE FAILED , NO DATA FOUND ' , 1);
5935: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5936: END IF;
5937:
5938: x_return_status := FND_API.G_RET_STS_ERROR;
5939:
5944: RETURN;
5945:
5946: WHEN TOO_MANY_ROWS THEN
5947: IF l_debug_level > 0 THEN
5948: oe_debug_pub.add('SELECT COMP_CODE FAILED , TOO_MANY ROWS ' , 1);
5949: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5950: END IF;
5951:
5952: x_return_status := FND_API.G_RET_STS_ERROR;
5945:
5946: WHEN TOO_MANY_ROWS THEN
5947: IF l_debug_level > 0 THEN
5948: oe_debug_pub.add('SELECT COMP_CODE FAILED , TOO_MANY ROWS ' , 1);
5949: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5950: END IF;
5951:
5952: x_return_status := FND_API.G_RET_STS_ERROR;
5953:
5958: RETURN;
5959:
5960: WHEN OTHERS THEN
5961: IF l_debug_level > 0 THEN
5962: oe_debug_pub.add('SELECT COMP_CODE FAILED , OTHERS ' , 1);
5963: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5964: END IF;
5965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5966: END;
5959:
5960: WHEN OTHERS THEN
5961: IF l_debug_level > 0 THEN
5962: oe_debug_pub.add('SELECT COMP_CODE FAILED , OTHERS ' , 1);
5963: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5964: END IF;
5965: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5966: END;
5967:
5977: END LOOP;
5978:
5979: x_return_status := FND_API.G_RET_STS_SUCCESS;
5980: IF l_debug_level > 0 THEN
5981: oe_debug_pub.add('LEAVING COMPLETE CONFIGURATION' , 1);
5982: END IF;
5983:
5984: EXCEPTION
5985: WHEN OTHERS THEN
5983:
5984: EXCEPTION
5985: WHEN OTHERS THEN
5986: IF l_debug_level > 0 THEN
5987: oe_debug_pub.add('AMBIGUITY IN BILL'|| SUBSTR ( SQLERRM , 1 , 150 ) , 1);
5988: END IF;
5989: x_return_status := FND_API.G_RET_STS_ERROR;
5990: END Complete_Configuration;
5991:
6028: l_error_message VARCHAR2(2000);
6029: l_result BOOLEAN;
6030: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6031: --
6032: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6033: --
6034: BEGIN
6035: IF l_debug_level > 0 THEN
6036: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.MATCH_AND_RESERVE' , 1);
6032: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6033: --
6034: BEGIN
6035: IF l_debug_level > 0 THEN
6036: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.MATCH_AND_RESERVE' , 1);
6037: END IF;
6038: BEGIN
6039: SELECT top_model_line_id, ordered_quantity, order_quantity_uom
6040: INTO l_top_model_line_id, l_ordered_quantity, l_order_quantity_uom
6042: WHERE line_id = p_line_id;
6043: EXCEPTION
6044: WHEN OTHERS THEN
6045: IF l_debug_level > 0 THEN
6046: oe_debug_pub.add('OTHERS IN MATCH AND RESERVE' , 1);
6047: END IF;
6048: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6049: END;
6050:
6095: END IF; -- if match found
6096:
6097: x_return_status := l_return_status;
6098: IF l_debug_level > 0 THEN
6099: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.MATCH_AND_RESERVE' , 1);
6100: END IF;
6101:
6102: EXCEPTION
6103: WHEN NO_DATA_FOUND THEN
6101:
6102: EXCEPTION
6103: WHEN NO_DATA_FOUND THEN
6104: IF l_debug_level > 0 THEN
6105: oe_debug_pub.add('NO DATA FOUND IN MATCH AND RESERVE' , 1);
6106: END IF;
6107: x_return_status := FND_API.G_RET_STS_ERROR;
6108:
6109: WHEN OTHERS THEN
6107: x_return_status := FND_API.G_RET_STS_ERROR;
6108:
6109: WHEN OTHERS THEN
6110: IF l_debug_level > 0 THEN
6111: oe_debug_pub.add('EXCEPTION IN MATCH AND RESERVE' , 1);
6112: END IF;
6113: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6114: END Match_and_Reserve;
6115:
6147: l_po_status_rec PO_STATUS_REC_TYPE;
6148: l_autorization_status VARCHAR2(30);
6149:
6150: --
6151: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6152: --
6153: BEGIN
6154: IF l_debug_level > 0 THEN
6155: oe_debug_pub.add('ENTERING DELINK_CONFIG with :'||p_line_id);
6151: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6152: --
6153: BEGIN
6154: IF l_debug_level > 0 THEN
6155: oe_debug_pub.add('ENTERING DELINK_CONFIG with :'||p_line_id);
6156: END IF;
6157:
6158: BEGIN
6159: SELECT item_type_code, ato_line_id, ordered_item,inventory_item_id
6162: WHERE line_id = p_line_id;
6163: EXCEPTION
6164: WHEN OTHERS THEN
6165: IF l_debug_level > 0 THEN
6166: oe_debug_pub.add('DELINK BATCH ERROR' , 1);
6167: END IF;
6168: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6169: END;
6170:
6201: AND header_id = l_config_header_id;
6202: EXCEPTION
6203: WHEN NO_DATA_FOUND THEN
6204: IF l_debug_level > 0 THEN
6205: OE_DEBUG_PUB.Add('PO Not Created for Config.' , 2 );
6206: END IF;
6207: END;
6208:
6209: IF l_po_header_id is not null THEN
6223: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6224: l_autorization_status := l_po_status_rec.authorization_status(1);
6225:
6226: IF l_debug_level > 0 THEN
6227: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
6228: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
6229: END IF;
6230: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6224: l_autorization_status := l_po_status_rec.authorization_status(1);
6225:
6226: IF l_debug_level > 0 THEN
6227: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
6228: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
6229: END IF;
6230: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6232: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6246:
6247: END IF;
6248:
6249: IF l_debug_level > 0 THEN
6250: oe_debug_pub.add('AFTER SELECT STMT.' , 2 );
6251: END IF;
6252:
6253: l_cto_result := CTO_CONFIG_ITEM_PK.Delink_Item
6254: ( pModelLineId => p_line_id,
6259:
6260: --returns 1 in case of successful completion, 0 in case of error
6261:
6262: IF l_debug_level > 0 THEN
6263: oe_debug_pub.add('AFTER CALL TO CTO_CONFIG_ITEM_PK.DELINK_ITEM ',2);
6264: oe_debug_pub.add('L_CTO_RESULT:'|| L_CTO_RESULT , 2 );
6265: END IF;
6266:
6267: IF (l_cto_result = 1) THEN
6260: --returns 1 in case of successful completion, 0 in case of error
6261:
6262: IF l_debug_level > 0 THEN
6263: oe_debug_pub.add('AFTER CALL TO CTO_CONFIG_ITEM_PK.DELINK_ITEM ',2);
6264: oe_debug_pub.add('L_CTO_RESULT:'|| L_CTO_RESULT , 2 );
6265: END IF;
6266:
6267: IF (l_cto_result = 1) THEN
6268: IF l_debug_level > 0 THEN
6265: END IF;
6266:
6267: IF (l_cto_result = 1) THEN
6268: IF l_debug_level > 0 THEN
6269: oe_debug_pub.add('DELINKED CONFIG ITEM' , 2 );
6270: END IF;
6271: ELSE
6272: IF l_debug_level > 0 THEN
6273: oe_debug_pub.add('CTO RESULT NOT 1' , 2 );
6269: oe_debug_pub.add('DELINKED CONFIG ITEM' , 2 );
6270: END IF;
6271: ELSE
6272: IF l_debug_level > 0 THEN
6273: oe_debug_pub.add('CTO RESULT NOT 1' , 2 );
6274: END IF;
6275: IF l_message_name IS NOT NULL THEN
6276: FND_MESSAGE.Set_Name('BOM', l_message_name);
6277: oe_msg_pub.add;
6276: FND_MESSAGE.Set_Name('BOM', l_message_name);
6277: oe_msg_pub.add;
6278: ELSE
6279: IF l_debug_level > 0 THEN
6280: oe_debug_pub.add('CTO MESSAGE NAME NULL' , 2 );
6281: END IF;
6282: END IF;
6283: END IF;
6284: ELSE
6282: END IF;
6283: END IF;
6284: ELSE
6285: IF l_debug_level > 0 THEN
6286: oe_debug_pub.add('DELINK_CONFIG_ITEM ALLOWED ONLY FROM ATO MODEL',1);
6287: END IF;
6288: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_INVALID_ACTION');
6289: FND_MESSAGE.Set_Token('ACTION', 'Delink Config');
6290: oe_msg_pub.add;
6290: oe_msg_pub.add;
6291: END IF;
6292:
6293: IF l_debug_level > 0 THEN
6294: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.DELINK_CONFIG' , 1);
6295: END IF;
6296:
6297: x_return_status := l_return_status;
6298:
6304: x_return_status := FND_API.G_RET_STS_ERROR;
6305:
6306: WHEN OTHERS THEN
6307: IF l_debug_level > 0 THEN
6308: oe_debug_pub.add('EXCEPTION IN DELINK_CONFIG' , 1);
6309: END IF;
6310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6311: END Delink_Config_batch;
6312:
6331: l_top_model_line_id NUMBER;
6332: l_line_id NUMBER;
6333: l_count NUMBER;
6334: --
6335: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6336: --
6337: BEGIN
6338: IF l_debug_level > 0 THEN
6339: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.PART_OF_CONFIGURATION' , 1);
6335: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6336: --
6337: BEGIN
6338: IF l_debug_level > 0 THEN
6339: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.PART_OF_CONFIGURATION' , 1);
6340: END IF;
6341:
6342: SELECT item_type_code,header_id, top_model_line_id, line_id
6343: INTO l_item_type_code,l_header_id, l_top_model_line_id, l_line_id
6385: END IF;
6386:
6387: x_result := 0;
6388: IF l_debug_level > 0 THEN
6389: oe_debug_pub.add('EXITING PART_OF_CONFIGURATION, UNKNOWN ITEM_TYPE', 1);
6390: END IF;
6391:
6392: END Part_of_Configuration;
6393:
6414: l_valid NUMBER;
6415: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6416:
6417: --
6418: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6419: --
6420: BEGIN
6421: IF l_debug_level > 0 THEN
6422: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.LINK_CONFIG' , 1);
6418: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6419: --
6420: BEGIN
6421: IF l_debug_level > 0 THEN
6422: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.LINK_CONFIG' , 1);
6423: END IF;
6424:
6425: BEGIN
6426: SELECT item_type_code, ato_line_id, ordered_item
6429: WHERE line_id = p_line_id;
6430: EXCEPTION
6431: WHEN OTHERS THEN
6432: IF l_debug_level > 0 THEN
6433: oe_debug_pub.add('LINK CONFIG ERROR' , 2 );
6434: END IF;
6435: l_valid := 1;
6436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6437: END;
6462: END IF;
6463:
6464: ELSE
6465: IF l_debug_level > 0 THEN
6466: oe_debug_pub.add('LINK_CONFIG_ITEM ALLOWED ONLY FROM ATO MODEL', 2 );
6467: END IF;
6468: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_INVALID_ACTION');
6469: FND_MESSAGE.Set_Token('ACTION', 'Link Config');
6470: oe_msg_pub.add;
6470: oe_msg_pub.add;
6471: END IF;
6472:
6473: IF l_debug_level > 0 THEN
6474: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.LINK_CONFIG' , 1);
6475: END IF;
6476:
6477: x_return_status := l_return_status;
6478:
6478:
6479: EXCEPTION
6480: WHEN OTHERS THEN
6481: IF l_debug_level > 0 THEN
6482: oe_debug_pub.add('EXCEPTION IN LINK_CONFIG' , 1);
6483: END IF;
6484:
6485: IF l_valid = 0 THEN
6486: FND_MESSAGE.Set_Name('BOM', 'CTO_INVALID_LINK_ERROR');
6502: ,p_comp_seq_id IN NUMBER
6503: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
6504: IS
6505: --
6506: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6507: --
6508: BEGIN
6509: IF l_debug_level > 0 THEN
6510: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_COMP_SEQ_ID' , 1);
6506: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6507: --
6508: BEGIN
6509: IF l_debug_level > 0 THEN
6510: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_COMP_SEQ_ID' , 1);
6511: END IF;
6512:
6513: UPDATE oe_order_lines
6514: SET component_sequence_id = p_comp_seq_id
6520:
6521: x_return_status := FND_API.G_RET_STS_SUCCESS;
6522:
6523: IF l_debug_level > 0 THEN
6524: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_COMP_SEQ_ID' , 1);
6525: END IF;
6526:
6527: EXCEPTION
6528: WHEN no_data_found THEN
6526:
6527: EXCEPTION
6528: WHEN no_data_found THEN
6529: IF l_debug_level > 0 THEN
6530: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_COMP_SEQ_ID' , 1);
6531: END IF;
6532: x_return_status := FND_API.G_RET_STS_ERROR;
6533:
6534: WHEN others THEN
6532: x_return_status := FND_API.G_RET_STS_ERROR;
6533:
6534: WHEN others THEN
6535: IF l_debug_level > 0 THEN
6536: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_COMP_SEQ_ID' , 1);
6537: END IF;
6538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6539: END Update_Comp_Seq_Id;
6540:
6550: ,p_visible_demand_flag IN VARCHAR2 := 'N'
6551: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
6552: IS
6553: --
6554: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6555: --
6556: BEGIN
6557: IF l_debug_level > 0 THEN
6558: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6554: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6555: --
6556: BEGIN
6557: IF l_debug_level > 0 THEN
6558: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6559: END IF;
6560:
6561: UPDATE oe_order_lines
6562: SET visible_demand_flag = p_visible_demand_flag
6568:
6569: x_return_status := FND_API.G_RET_STS_SUCCESS;
6570:
6571: IF l_debug_level > 0 THEN
6572: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6573: END IF;
6574:
6575: EXCEPTION
6576: WHEN no_data_found THEN
6574:
6575: EXCEPTION
6576: WHEN no_data_found THEN
6577: IF l_debug_level > 0 THEN
6578: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6579: END IF;
6580: x_return_status := FND_API.G_RET_STS_ERROR;
6581:
6582: WHEN others THEN
6580: x_return_status := FND_API.G_RET_STS_ERROR;
6581:
6582: WHEN others THEN
6583: IF l_debug_level > 0 THEN
6584: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6585: END IF;
6586: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6587: END Update_Visible_Demand_Flag;
6588:
6598: ,p_mfg_comp_seq_id IN NUMBER
6599: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
6600: IS
6601: --
6602: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6603: --
6604: BEGIN
6605: IF l_debug_level > 0 THEN
6606: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_MFG_COMP_SEQ_ID' , 1);
6602: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6603: --
6604: BEGIN
6605: IF l_debug_level > 0 THEN
6606: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_MFG_COMP_SEQ_ID' , 1);
6607: END IF;
6608:
6609: UPDATE oe_order_lines_all
6610: SET mfg_component_sequence_id = p_mfg_comp_seq_id
6616:
6617: x_return_status := FND_API.G_RET_STS_SUCCESS;
6618:
6619: IF l_debug_level > 0 THEN
6620: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_MFG_COMP_SEQ_ID' , 1);
6621: END IF;
6622:
6623: EXCEPTION
6624: WHEN no_data_found THEN
6622:
6623: EXCEPTION
6624: WHEN no_data_found THEN
6625: IF l_debug_level > 0 THEN
6626: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_MFG_COMP_SEQ_ID' , 1);
6627: END IF;
6628: x_return_status := FND_API.G_RET_STS_ERROR;
6629:
6630: WHEN others THEN
6628: x_return_status := FND_API.G_RET_STS_ERROR;
6629:
6630: WHEN others THEN
6631: IF l_debug_level > 0 THEN
6632: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_MFG_COMP_SEQ_ID' , 1);
6633: END IF;
6634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6635: END Update_Mfg_Comp_Seq_Id;
6636:
6646: ,p_model_group_number IN NUMBER
6647: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
6648: IS
6649: --
6650: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6651: --
6652: BEGIN
6653: IF l_debug_level > 0 THEN
6654: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_MODEL_GROUP_NUMBER' , 1);
6650: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6651: --
6652: BEGIN
6653: IF l_debug_level > 0 THEN
6654: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_MODEL_GROUP_NUMBER' , 1);
6655: END IF;
6656:
6657: UPDATE oe_order_lines
6658: SET model_group_number = p_model_group_number
6664:
6665: x_return_status := FND_API.G_RET_STS_SUCCESS;
6666:
6667: IF l_debug_level > 0 THEN
6668: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_MODEL_GROUP_NUMBER' , 1);
6669: END IF;
6670:
6671: EXCEPTION
6672: WHEN no_data_found THEN
6670:
6671: EXCEPTION
6672: WHEN no_data_found THEN
6673: IF l_debug_level > 0 THEN
6674: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_MODEL_GROUP_NUMBER' , 1);
6675: END IF;
6676: x_return_status := FND_API.G_RET_STS_ERROR;
6677:
6678: WHEN others THEN
6676: x_return_status := FND_API.G_RET_STS_ERROR;
6677:
6678: WHEN others THEN
6679: IF l_debug_level > 0 THEN
6680: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_MODEL_GROUP_NUMBER' , 1);
6681: END IF;
6682: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6683: END Update_Model_Group_Number;
6684:
6697: ,p_prog_appl_id IN NUMBER
6698: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
6699: IS
6700: --
6701: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6702: --
6703: BEGIN
6704: IF l_debug_level > 0 THEN
6705: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_CTO_COLUMNS' , 1);
6701: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6702: --
6703: BEGIN
6704: IF l_debug_level > 0 THEN
6705: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_CTO_COLUMNS' , 1);
6706: END IF;
6707:
6708: UPDATE oe_order_lines
6709: SET request_id = p_request_id
6718:
6719: x_return_status := FND_API.G_RET_STS_SUCCESS;
6720:
6721: IF l_debug_level > 0 THEN
6722: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_CTO_COLUMNS' , 1);
6723: END IF;
6724:
6725: EXCEPTION
6726: WHEN no_data_found THEN
6724:
6725: EXCEPTION
6726: WHEN no_data_found THEN
6727: IF l_debug_level > 0 THEN
6728: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_CTO_COLUMNS' , 1);
6729: END IF;
6730: x_return_status := FND_API.G_RET_STS_ERROR;
6731:
6732: WHEN others THEN
6730: x_return_status := FND_API.G_RET_STS_ERROR;
6731:
6732: WHEN others THEN
6733: IF l_debug_level > 0 THEN
6734: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_CTO_COLUMNS' , 1);
6735: END IF;
6736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6737: END Update_Cto_Columns;
6738:
6765: l_split_tbl CTO_CHANGE_ORDER_PK.SPLIT_CHG_TABLE_TYPE;
6766: l_decimal_tbl CTO_CHANGE_ORDER_PK.OPTION_CHG_TABLE_TYPE;
6767:
6768: --
6769: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6770: --
6771: BEGIN
6772: IF l_debug_level > 0 THEN
6773: oe_debug_pub.add('ENTERING NOTIFY_CTO' , 1);
6769: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6770: --
6771: BEGIN
6772: IF l_debug_level > 0 THEN
6773: oe_debug_pub.add('ENTERING NOTIFY_CTO' , 1);
6774: END IF;
6775:
6776: I := 0;
6777:
6822: l_cto_change_tbl(I).old_value := p_request_rec.param12;
6823: l_cto_change_tbl(I).new_value := p_request_rec.param13;
6824: END IF;
6825: IF l_debug_level > 0 THEN
6826: oe_debug_pub.add('NOTIFY_CTO 3 ' , 1);
6827: END IF;
6828: IF p_request_rec.param14 is not NULL THEN
6829: I := I + 1;
6830: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.QTY2_UOM_CHANGE;
6831: l_cto_change_tbl(I).old_value := p_request_rec.param14;
6832: l_cto_change_tbl(I).new_value := p_request_rec.param15;
6833: END IF;
6834: IF l_debug_level > 0 THEN
6835: oe_debug_pub.add('NOTIFY_CTO 4 ' , 1);
6836: END IF;
6837: IF p_request_rec.param16 is not NULL THEN
6838: I := I + 1;
6839: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.QTY_UOM_CHANGE;
6846: I := p_request_tbl.FIRST;
6847: WHILE I is NOT NULL
6848: LOOP
6849: IF l_debug_level > 0 THEN
6850: oe_debug_pub.add('PTO ATO CREATE'|| P_REQUEST_TBL (I).PARAM1 , 3 );
6851: END IF;
6852:
6853: SELECT ato_line_id
6854: INTO l_ato_line_id
6857:
6858: IF l_ato_line_id = p_request_tbl(I).param2 THEN
6859:
6860: IF l_debug_level > 0 THEN
6861: oe_debug_pub.add('part of PTO, but correct ato_line_id ', 3 );
6862: END IF;
6863:
6864: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.CONFIG_CHANGE;
6865: l_cto_change_tbl(I).old_value := p_request_tbl(I).param1;
6873: I := p_decimal_tbl.FIRST;
6874: WHILE I is NOT NULL
6875: LOOP
6876: IF l_debug_level > 0 THEN
6877: oe_debug_pub.add('new qty '|| P_decimal_TBL (I).PARAM4 , 3 );
6878: oe_debug_pub.add('old qty '|| P_decimal_TBL (I).PARAM5 , 3 );
6879: END IF;
6880:
6881: l_decimal_tbl(I).line_id := p_decimal_tbl(I).entity_id;
6874: WHILE I is NOT NULL
6875: LOOP
6876: IF l_debug_level > 0 THEN
6877: oe_debug_pub.add('new qty '|| P_decimal_TBL (I).PARAM4 , 3 );
6878: oe_debug_pub.add('old qty '|| P_decimal_TBL (I).PARAM5 , 3 );
6879: END IF;
6880:
6881: l_decimal_tbl(I).line_id := p_decimal_tbl(I).entity_id;
6882: l_decimal_tbl(I).old_Qty := p_decimal_tbl(I).param5;
6890: I := p_split_tbl.FIRST;
6891: WHILE I is NOT NULL
6892: LOOP
6893: IF l_debug_level > 0 THEN
6894: oe_debug_pub.add('split from '|| p_split_tbl (I).PARAM3 , 3 );
6895: oe_debug_pub.add('split to '|| p_split_tbl (I).PARAM4 , 3 );
6896: END IF;
6897:
6898: l_split_tbl(I).line_id := p_split_tbl(I).PARAM4;
6891: WHILE I is NOT NULL
6892: LOOP
6893: IF l_debug_level > 0 THEN
6894: oe_debug_pub.add('split from '|| p_split_tbl (I).PARAM3 , 3 );
6895: oe_debug_pub.add('split to '|| p_split_tbl (I).PARAM4 , 3 );
6896: END IF;
6897:
6898: l_split_tbl(I).line_id := p_split_tbl(I).PARAM4;
6899:
6900: I := p_split_tbl.NEXT(I);
6901: END LOOP;
6902:
6903: IF l_debug_level > 0 THEN
6904: oe_debug_pub.add('OLD QTY' || P_REQUEST_REC.PARAM1 , 3 );
6905: oe_debug_pub.add('NEW QTY' || P_REQUEST_REC.PARAM2 , 3 );
6906: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6907: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6908: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6901: END LOOP;
6902:
6903: IF l_debug_level > 0 THEN
6904: oe_debug_pub.add('OLD QTY' || P_REQUEST_REC.PARAM1 , 3 );
6905: oe_debug_pub.add('NEW QTY' || P_REQUEST_REC.PARAM2 , 3 );
6906: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6907: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6908: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6909: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6902:
6903: IF l_debug_level > 0 THEN
6904: oe_debug_pub.add('OLD QTY' || P_REQUEST_REC.PARAM1 , 3 );
6905: oe_debug_pub.add('NEW QTY' || P_REQUEST_REC.PARAM2 , 3 );
6906: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6907: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6908: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6909: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6910: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6903: IF l_debug_level > 0 THEN
6904: oe_debug_pub.add('OLD QTY' || P_REQUEST_REC.PARAM1 , 3 );
6905: oe_debug_pub.add('NEW QTY' || P_REQUEST_REC.PARAM2 , 3 );
6906: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6907: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6908: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6909: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6910: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6911: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6904: oe_debug_pub.add('OLD QTY' || P_REQUEST_REC.PARAM1 , 3 );
6905: oe_debug_pub.add('NEW QTY' || P_REQUEST_REC.PARAM2 , 3 );
6906: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6907: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6908: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6909: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6910: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6911: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6912: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6905: oe_debug_pub.add('NEW QTY' || P_REQUEST_REC.PARAM2 , 3 );
6906: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6907: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6908: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6909: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6910: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6911: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6912: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6913: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6906: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6907: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6908: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6909: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6910: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6911: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6912: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6913: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6914: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6907: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6908: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6909: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6910: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6911: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6912: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6913: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6914: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6915: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6908: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6909: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6910: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6911: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6912: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6913: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6914: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6915: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6916: oe_debug_pub.add('PLINEID '|| L_ATO_LINE_ID , 3 );
6909: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6910: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6911: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6912: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6913: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6914: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6915: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6916: oe_debug_pub.add('PLINEID '|| L_ATO_LINE_ID , 3 );
6917: oe_debug_pub.add('CALLING CTO PACKAGE '|| I , 3 );
6910: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6911: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6912: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6913: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6914: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6915: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6916: oe_debug_pub.add('PLINEID '|| L_ATO_LINE_ID , 3 );
6917: oe_debug_pub.add('CALLING CTO PACKAGE '|| I , 3 );
6918: END IF;
6911: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6912: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6913: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6914: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6915: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6916: oe_debug_pub.add('PLINEID '|| L_ATO_LINE_ID , 3 );
6917: oe_debug_pub.add('CALLING CTO PACKAGE '|| I , 3 );
6918: END IF;
6919:
6912: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6913: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6914: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6915: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6916: oe_debug_pub.add('PLINEID '|| L_ATO_LINE_ID , 3 );
6917: oe_debug_pub.add('CALLING CTO PACKAGE '|| I , 3 );
6918: END IF;
6919:
6920: IF l_cto_change_tbl.COUNT > 0 THEN
6913: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6914: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6915: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6916: oe_debug_pub.add('PLINEID '|| L_ATO_LINE_ID , 3 );
6917: oe_debug_pub.add('CALLING CTO PACKAGE '|| I , 3 );
6918: END IF;
6919:
6920: IF l_cto_change_tbl.COUNT > 0 THEN
6921:
6932:
6933: x_return_status := l_return_status;
6934:
6935: IF l_debug_level > 0 THEN
6936: oe_debug_pub.add('LEAVING NOTIFY_CTO'|| X_RETURN_STATUS , 1);
6937: END IF;
6938: EXCEPTION
6939: WHEN OTHERS THEN
6940: IF l_debug_level > 0 THEN
6937: END IF;
6938: EXCEPTION
6939: WHEN OTHERS THEN
6940: IF l_debug_level > 0 THEN
6941: oe_debug_pub.add('EXCEPTION NOTIFY_CTO'|| SQLERRM , 1);
6942: END IF;
6943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6944: END;
6945:
6963: l_ordered_item VARCHAR2(2000);
6964: l_item_type_code VARCHAR2(30);
6965: l_inv_item_id NUMBER;
6966: --
6967: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6968: --
6969: BEGIN
6970:
6971: IF l_debug_level > 0 THEN
6968: --
6969: BEGIN
6970:
6971: IF l_debug_level > 0 THEN
6972: oe_debug_pub.add('ENTERING DECIMAL_RATIO_CHECK '|| P_COMPONENT_CODE , 1);
6973: END IF;
6974:
6975: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_DECIMAL_RATIO');
6976:
6995:
6996: OE_Msg_Pub.Add;
6997:
6998: IF l_debug_level > 0 THEN
6999: oe_debug_pub.add('LEAVING DECIMAL_RATIO_CHECK' , 3 );
7000: END IF;
7001:
7002: EXCEPTION
7003: WHEN OTHERS THEN
7001:
7002: EXCEPTION
7003: WHEN OTHERS THEN
7004: IF l_debug_level > 0 THEN
7005: oe_debug_pub.add('DECIMAL_RATIO_CHECK '|| SQLERRM , 1);
7006: END IF;
7007:
7008: END Decimal_Ratio_Check;
7009:
7094: ,p_direct_save IN BOOLEAN := FALSE
7095: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
7096: IS
7097: --
7098: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7099: l_blanket_line_number NUMBER;
7100: l_blanket_version_number NUMBER;
7101: l_blanket_number NUMBER;
7102: l_blanket_req_date date;
7105: l_return_status VARCHAR2(1);
7106:
7107: BEGIN
7108: IF l_debug_level > 0 THEN
7109: oe_debug_pub.add('ENTERING DEFAULT_CHILD_LINE' , 1);
7110: END IF;
7111: x_return_status := FND_API.G_RET_STS_SUCCESS;
7112:
7113: IF p_parent_line_rec.header_id is NULL OR
7113: IF p_parent_line_rec.header_id is NULL OR
7114: p_parent_line_rec.top_model_line_id is NULL THEN
7115:
7116: IF l_debug_level > 0 THEN
7117: oe_debug_pub.add('CORRUPT DATA' , 3 );
7118: END IF;
7119: FND_Message.Set_Name('ONT', 'OE_CONFIG_WRONG_MODEL_LINK');
7120: FND_MESSAGE.Set_TOKEN('ITEM', nvl(p_x_child_line_rec.ordered_item
7121: ,p_x_child_line_rec.inventory_item_id));
7185: IF p_x_child_line_rec.line_type_id IS NOT NULL OR
7186: p_x_child_line_rec.line_type_id <> FND_API.G_MISS_NUM THEN
7187:
7188: IF l_debug_level > 0 THEN
7189: OE_DEBUG_PUB.Add('LineTypeID:'||p_x_child_line_rec.line_type_id,3);
7190: OE_DEBUG_PUB.Add('Inventory Item ID (from Parent Line):'
7191: ||p_parent_line_rec.inventory_item_id,3);
7192: END IF;
7193:
7186: p_x_child_line_rec.line_type_id <> FND_API.G_MISS_NUM THEN
7187:
7188: IF l_debug_level > 0 THEN
7189: OE_DEBUG_PUB.Add('LineTypeID:'||p_x_child_line_rec.line_type_id,3);
7190: OE_DEBUG_PUB.Add('Inventory Item ID (from Parent Line):'
7191: ||p_parent_line_rec.inventory_item_id,3);
7192: END IF;
7193:
7194: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
7199: IF l_part_of_container = 'N' THEN
7200: p_x_child_line_rec.line_type_id := p_parent_line_rec.line_type_id;
7201:
7202: IF l_debug_level > 0 THEN
7203: OE_DEBUG_PUB.Add
7204: ('Line_type from parent: '||p_x_child_line_rec.line_type_id,3);
7205: END IF;
7206: ELSE
7207: IF l_debug_level > 0 THEN
7204: ('Line_type from parent: '||p_x_child_line_rec.line_type_id,3);
7205: END IF;
7206: ELSE
7207: IF l_debug_level > 0 THEN
7208: OE_DEBUG_PUB.Add
7209: ('Keeping Line_type: '||p_x_child_line_rec.line_type_id,3);
7210: END IF;
7211: END IF;
7212: ELSE
7211: END IF;
7212: ELSE
7213: p_x_child_line_rec.line_type_id := p_parent_line_rec.line_type_id;
7214: IF l_debug_level > 0 THEN
7215: oe_debug_pub.add('COPY it: '|| P_X_CHILD_LINE_REC.line_type_id, 4 );
7216: END IF;
7217: END IF;
7218:
7219:
7222: IF p_parent_line_rec.blanket_number IS NOT NULL and
7223: p_parent_line_rec.item_type_code <> 'INCLUDED' THEN
7224:
7225: IF l_debug_level > 0 THEN
7226: oe_debug_pub.add('Blanket No:'
7227: ||p_parent_line_rec.blanket_number);
7228: oe_debug_pub.add('Top Model Inventory Item ID:'
7229: ||p_parent_line_rec.inventory_item_id );
7230: oe_debug_pub.add('Child Inventory Item ID:'
7224:
7225: IF l_debug_level > 0 THEN
7226: oe_debug_pub.add('Blanket No:'
7227: ||p_parent_line_rec.blanket_number);
7228: oe_debug_pub.add('Top Model Inventory Item ID:'
7229: ||p_parent_line_rec.inventory_item_id );
7230: oe_debug_pub.add('Child Inventory Item ID:'
7231: ||p_x_child_line_rec.inventory_item_id );
7232: oe_debug_pub.add('Child Item Type Code:'
7226: oe_debug_pub.add('Blanket No:'
7227: ||p_parent_line_rec.blanket_number);
7228: oe_debug_pub.add('Top Model Inventory Item ID:'
7229: ||p_parent_line_rec.inventory_item_id );
7230: oe_debug_pub.add('Child Inventory Item ID:'
7231: ||p_x_child_line_rec.inventory_item_id );
7232: oe_debug_pub.add('Child Item Type Code:'
7233: ||p_x_child_line_rec.item_type_code );
7234: END IF;
7228: oe_debug_pub.add('Top Model Inventory Item ID:'
7229: ||p_parent_line_rec.inventory_item_id );
7230: oe_debug_pub.add('Child Inventory Item ID:'
7231: ||p_x_child_line_rec.inventory_item_id );
7232: oe_debug_pub.add('Child Item Type Code:'
7233: ||p_x_child_line_rec.item_type_code );
7234: END IF;
7235:
7236: -- For the bug fix #3579240
7267: -- OE_CONFIG_UTIL.G_CONFIG_UI_USED = 'Y'
7268: THEN
7269:
7270: IF l_debug_level > 0 THEN
7271: oe_debug_pub.add('COPYING DFF TO CHILD' , 1);
7272: END IF;
7273:
7274: IF p_x_child_line_rec.attribute1 is null OR
7275: p_x_child_line_rec.attribute1 = FND_API.G_MISS_CHAR THEN
7598: (p_parent_line_rec.arrival_set_id is NOT NULL AND
7599: p_parent_line_rec.arrival_set_id <> FND_API.G_MISS_NUM)
7600: THEN
7601: IF l_debug_level > 0 THEN
7602: oe_debug_pub.add('**PARENT IS ATO OR SMC PTO OR IN SET' , 1);
7603: END IF;
7604:
7605: p_x_child_line_rec.schedule_ship_date :=
7606: p_parent_line_rec.schedule_ship_date;
7632:
7633: ------------- IF ATO ----------------------------------
7634: IF p_parent_line_rec.ato_line_id is not NULL THEN
7635: IF l_debug_level > 0 THEN
7636: oe_debug_pub.add('1 **SOURCE TYPE ATO '
7637: || P_PARENT_LINE_REC.SOURCE_TYPE_CODE , 4 );
7638: END IF;
7639:
7640: p_x_child_line_rec.source_type_code :=
7654: ------------- IF NON SMC, use this branch -----------------
7655: ELSE -- Added the else to fix the bug 3056512
7656:
7657: IF l_debug_level > 0 THEN
7658: oe_debug_pub.add('**PARENT IS NON SMC PTO ' , 1);
7659: END IF;
7660:
7661: IF p_x_child_line_rec.ship_to_org_id = FND_API.G_MISS_NUM OR
7662: p_x_child_line_rec.ship_to_org_id IS NULL THEN
7701: p_x_child_line_rec.ato_line_id is not NULL AND
7702: p_x_child_line_rec.line_id <> p_x_child_line_rec.ato_line_id THEN
7703:
7704: IF l_debug_level > 0 THEN
7705: oe_debug_pub.add('DEFAULTING USER_ITEM_DESCRIPTION
7706: FROM ATO FOR CONFIG ITEMS ', 1);
7707: END IF;
7708:
7709: SELECT user_item_description
7713:
7714: --no need to handle exception here as exception is handled outside
7715:
7716: IF l_debug_level > 0 THEN
7717: oe_debug_pub.add('USER_ITEM_DESCRIPTION on child line is: '
7718: || p_x_child_line_rec.user_item_description, 1);
7719: END IF;
7720:
7721: -- Populate delivery lead time from the parent.
7729: p_x_child_line_rec.top_model_line_id <> p_x_child_line_rec.ato_line_id
7730: THEN
7731:
7732: IF l_debug_level > 0 THEN
7733: oe_debug_pub.add('ATO IN PTO '||P_X_CHILD_LINE_REC.ATO_LINE_ID , 2 );
7734: END IF;
7735:
7736: SELECT source_type_code, project_id, task_id,
7737: ship_from_org_id, ship_to_org_id,
7758: FROM oe_order_lines
7759: WHERE line_id = p_x_child_line_rec.ato_line_id;
7760:
7761: IF l_debug_level > 0 THEN
7762: oe_debug_pub.add('2 **SOURCE TYPE ATO '
7763: || P_X_CHILD_LINE_REC.SOURCE_TYPE_CODE , 4 );
7764: END IF;
7765:
7766: END IF;
7773:
7774:
7775: x_return_status := FND_API.G_RET_STS_SUCCESS;
7776: IF l_debug_level > 0 THEN
7777: oe_debug_pub.add('LEAVING DEFAULT_CHILD_LINE' , 1);
7778: END IF;
7779:
7780: EXCEPTION
7781:
7780: EXCEPTION
7781:
7782: WHEN FND_API.G_EXC_ERROR THEN
7783: IF l_debug_level > 0 THEN
7784: oe_debug_pub.add('DEFAULT_CHILD_LINE, exc error '|| SQLERRM , 1);
7785: END IF;
7786: x_return_status := FND_API.G_RET_STS_ERROR;
7787:
7788: WHEN OTHERS THEN
7787:
7788: WHEN OTHERS THEN
7789: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7790: IF l_debug_level > 0 THEN
7791: oe_debug_pub.add('others in DEFAULT_CHILD_LINE '|| SQLERRM , 1);
7792: END IF;
7793:
7794: END Default_Child_Line;
7795:
7823: IS
7824: l_item_type_code VARCHAR2(30);
7825: l_model_remnant_flag VARCHAR2(1);
7826: --
7827: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7828: --
7829: BEGIN
7830:
7831: IF l_debug_level > 0 THEN
7828: --
7829: BEGIN
7830:
7831: IF l_debug_level > 0 THEN
7832: oe_debug_pub.add('ENTERING IS_INCLUDED_ITEM_CONSTRAINED' , 1);
7833: oe_debug_pub.add('OPERATION '|| OE_LINE_SECURITY.G_RECORD.OPERATION , 4 );
7834: oe_debug_pub.add('ITEM TYPE '||OE_LINE_SECURITY.G_RECORD.ITEM_TYPE_CODE,4);
7835: END IF;
7836:
7829: BEGIN
7830:
7831: IF l_debug_level > 0 THEN
7832: oe_debug_pub.add('ENTERING IS_INCLUDED_ITEM_CONSTRAINED' , 1);
7833: oe_debug_pub.add('OPERATION '|| OE_LINE_SECURITY.G_RECORD.OPERATION , 4 );
7834: oe_debug_pub.add('ITEM TYPE '||OE_LINE_SECURITY.G_RECORD.ITEM_TYPE_CODE,4);
7835: END IF;
7836:
7837: SELECT item_type_code, model_remnant_flag
7830:
7831: IF l_debug_level > 0 THEN
7832: oe_debug_pub.add('ENTERING IS_INCLUDED_ITEM_CONSTRAINED' , 1);
7833: oe_debug_pub.add('OPERATION '|| OE_LINE_SECURITY.G_RECORD.OPERATION , 4 );
7834: oe_debug_pub.add('ITEM TYPE '||OE_LINE_SECURITY.G_RECORD.ITEM_TYPE_CODE,4);
7835: END IF;
7836:
7837: SELECT item_type_code, model_remnant_flag
7838: INTO l_item_type_code, l_model_remnant_flag
7853: x_result := 1;
7854: END IF;
7855:
7856: IF l_debug_level > 0 THEN
7857: oe_debug_pub.add('LEAVING IS_INCLUDED_ITEM_CONSTRAINED '|| X_RESULT , 1);
7858: END IF;
7859:
7860: EXCEPTION
7861: WHEN OTHERS THEN
7859:
7860: EXCEPTION
7861: WHEN OTHERS THEN
7862: IF l_debug_level > 0 THEN
7863: oe_debug_pub.add('IS_INCLUDED_ITEM_CONSTRAINED ERROR '|| SQLERRM , 1);
7864: END IF;
7865: RAISE;
7866: END Is_Included_Item_Constrained;
7867:
7883: IS
7884: I NUMBER;
7885: l_return_status VARCHAR2(1);
7886: --
7887: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7888: --
7889: l_serviceable_item VARCHAR2(1); -- Added for bug 5925600
7890: l_serviced_model VARCHAR2(1); -- Added for bug 5925600
7891:
7890: l_serviced_model VARCHAR2(1); -- Added for bug 5925600
7891:
7892: BEGIN
7893: IF l_debug_level > 0 THEN
7894: oe_debug_pub.add('ENTERING LOG_INCLUDED_ITEM_REQUESTS'
7895: || P_LINE_TBL.COUNT , 1);
7896: END IF;
7897:
7898: I := p_line_tbl.FIRST;
7902: IF nvl(FND_PROFILE.VALUE('ONT_CHARGES_FOR_INCLUDED_ITEM'),'N') = 'Y'
7903: THEN
7904:
7905: IF l_debug_level > 0 THEN
7906: oe_debug_pub.add('RENGA-LOGGING REQ TO CHARGES FOR INCLUDED ' , 3 );
7907: oe_debug_pub.add('RENGA-LINE OPERATION IS : '
7908: || P_LINE_TBL (I).OPERATION , 3 );
7909: END IF;
7910:
7903: THEN
7904:
7905: IF l_debug_level > 0 THEN
7906: oe_debug_pub.add('RENGA-LOGGING REQ TO CHARGES FOR INCLUDED ' , 3 );
7907: oe_debug_pub.add('RENGA-LINE OPERATION IS : '
7908: || P_LINE_TBL (I).OPERATION , 3 );
7909: END IF;
7910:
7911: OE_LINE_ADJ_UTIL.Register_Changed_Lines
7913: p_header_id => p_line_tbl(I).header_id,
7914: p_operation => p_line_tbl(I).operation );
7915:
7916: IF l_debug_level > 0 THEN
7917: oe_debug_pub.add('RENGA-AFTER REGISTER_CHANGED_LINES Booked Flag=' || p_booked_flag , 3 );
7918: END IF;
7919:
7920: --Added the if clause for bug 6892989/6903859
7921: IF ( nvl(p_booked_flag,'N') = 'Y' ) THEN
7943: END IF;
7944:
7945:
7946: IF l_debug_level > 0 THEN
7947: oe_debug_pub.add
7948: ('RENGA-AFTER LOGGING DELAYED REQ FREIGHT_FOR_INCLUDED-2' , 3 );
7949: END IF;
7950:
7951: END IF;
7950:
7951: END IF;
7952:
7953: IF l_debug_level > 0 THEN
7954: oe_debug_pub.add('LOGGING REQ TO TAX_LINE ' , 3 );
7955: oe_debug_pub.add('REN: ITEM TYPE CODE IS: '
7956: || P_LINE_TBL (I).ITEM_TYPE_CODE , 1);
7957: END IF;
7958:
7951: END IF;
7952:
7953: IF l_debug_level > 0 THEN
7954: oe_debug_pub.add('LOGGING REQ TO TAX_LINE ' , 3 );
7955: oe_debug_pub.add('REN: ITEM TYPE CODE IS: '
7956: || P_LINE_TBL (I).ITEM_TYPE_CODE , 1);
7957: END IF;
7958:
7959: IF p_line_tbl(I).item_type_code not in ('INCLUDED', 'CONFIG') THEN
7958:
7959: IF p_line_tbl(I).item_type_code not in ('INCLUDED', 'CONFIG') THEN
7960:
7961: IF l_debug_level > 0 THEN
7962: oe_debug_pub.add('REN: ITEM TYPE CODE IS NOT INCLUDED OR CONFIG' , 1);
7963: END IF;
7964:
7965: OE_delayed_requests_Pvt.log_request
7966: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
7975: IF OE_Commitment_Pvt.Do_Commitment_Sequencing AND
7976: p_line_tbl(I).commitment_id is not null
7977: THEN
7978: IF l_debug_level > 0 THEN
7979: oe_debug_pub.add('LOGGING REQ TO CALC COMMITMENT' , 3 );
7980: END IF;
7981:
7982: OE_Delayed_Requests_Pvt.Log_Request
7983: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
7991: IF p_booked_flag = 'Y' AND
7992: p_line_tbl(I).operation = 'UPDATE' THEN
7993:
7994: IF l_debug_level > 0 THEN
7995: oe_debug_pub.add('LOGGING REQ TO VERIFY_PAYMENT' , 3 );
7996: END IF;
7997: OE_delayed_requests_Pvt.log_request
7998: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
7999: p_entity_id => p_line_tbl(I).header_id,
8009: AND OE_Freight_Rating_Util.Get_List_Line_Type_Code
8010: (p_line_tbl(I).header_id)
8011: = 'OM_CALLED_FREIGHT_RATES' THEN
8012: IF l_debug_level > 0 THEN
8013: oe_debug_pub.add
8014: ('LOGGING DELAYED REQUEST FOR FREIGHT RATE FOR INCLUDED ITEM: '
8015: ||P_LINE_TBL (I).HEADER_ID , 2 );
8016: END IF;
8017:
8028: /* Below code has been added for bug 5925600 */
8029: IF p_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
8030:
8031: if l_debug_level > 0 then
8032: oe_debug_pub.add('Before checking if we need to log delayed request for G_CASCADE_OPTIONS_SERVICE', 5);
8033: oe_debug_pub.ADD('operation : '|| p_line_tbl(I).operation);
8034: oe_debug_pub.ADD('inventory_item_id : '|| p_line_tbl(I).inventory_item_id);
8035: end if;
8036:
8029: IF p_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
8030:
8031: if l_debug_level > 0 then
8032: oe_debug_pub.add('Before checking if we need to log delayed request for G_CASCADE_OPTIONS_SERVICE', 5);
8033: oe_debug_pub.ADD('operation : '|| p_line_tbl(I).operation);
8034: oe_debug_pub.ADD('inventory_item_id : '|| p_line_tbl(I).inventory_item_id);
8035: end if;
8036:
8037: BEGIN
8030:
8031: if l_debug_level > 0 then
8032: oe_debug_pub.add('Before checking if we need to log delayed request for G_CASCADE_OPTIONS_SERVICE', 5);
8033: oe_debug_pub.ADD('operation : '|| p_line_tbl(I).operation);
8034: oe_debug_pub.ADD('inventory_item_id : '|| p_line_tbl(I).inventory_item_id);
8035: end if;
8036:
8037: BEGIN
8038: select 'Y'
8048: l_serviceable_item := 'N';
8049: END;
8050:
8051: if l_debug_level > 0 then
8052: oe_debug_pub.ADD('serviceable option : '|| l_serviceable_item);
8053: oe_debug_pub.ADD('service_reference_line_id: '|| p_line_tbl(I).top_model_line_id);
8054: end if;
8055:
8056: IF l_serviceable_item = 'Y' THEN
8049: END;
8050:
8051: if l_debug_level > 0 then
8052: oe_debug_pub.ADD('serviceable option : '|| l_serviceable_item);
8053: oe_debug_pub.ADD('service_reference_line_id: '|| p_line_tbl(I).top_model_line_id);
8054: end if;
8055:
8056: IF l_serviceable_item = 'Y' THEN
8057:
8069: l_serviced_model := 'N';
8070: END;
8071:
8072: if l_debug_level > 0 then
8073: oe_debug_pub.ADD('serviced model : '|| l_serviced_model);
8074: end if;
8075:
8076: IF l_serviced_model = 'Y' THEN
8077:
8075:
8076: IF l_serviced_model = 'Y' THEN
8077:
8078: if l_debug_level > 0 then
8079: oe_debug_pub.add('Before log delayed request -- G_CASCADE_OPTIONS_SERVICE',1);
8080: end if;
8081:
8082: OE_Delayed_Requests_Pvt.log_request
8083: (
8096:
8097: END LOOP;
8098:
8099: IF l_debug_level > 0 THEN
8100: oe_debug_pub.add('LEAVING LOG_INCLUDED_ITEM_REQUESTS' , 1);
8101: END IF;
8102: EXCEPTION
8103: WHEN OTHERS THEN
8104: IF l_debug_level > 0 THEN
8101: END IF;
8102: EXCEPTION
8103: WHEN OTHERS THEN
8104: IF l_debug_level > 0 THEN
8105: oe_debug_pub.add('LOG_INCLUDED_ITEM_REQUESTS '|| SQLERRM , 1);
8106: END IF;
8107: RAISE;
8108: END;
8109:
8123: p_scope IN VARCHAR2,
8124: x_result OUT NOCOPY /* file.sql.39 change */ NUMBER )
8125: IS
8126: --
8127: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8128: --
8129: BEGIN
8130:
8131: x_result := 0;
8149: RETURN;
8150: END IF;
8151:
8152: IF l_debug_level > 0 THEN
8153: oe_debug_pub.add('REMNANT ATO CHECK CONSTRAINED' , 3 );
8154: END IF;
8155:
8156: x_result := 1;
8157:
8157:
8158: EXCEPTION
8159: WHEN OTHERS THEN
8160: IF l_debug_level > 0 THEN
8161: oe_debug_pub.add('ATO_REMNANT_CHECK ERROR '|| SQLERRM , 1);
8162: END IF;
8163: RAISE;
8164: END ATO_Remnant_Check;
8165:
8190: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
8191: IS
8192: l_count NUMBER;
8193: --
8194: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8195: --
8196: BEGIN
8197:
8198: Print_Time('entering Launch_Supply_Workbench');
8197:
8198: Print_Time('entering Launch_Supply_Workbench');
8199:
8200: IF l_debug_level > 0 THEN
8201: oe_debug_pub.add('-'|| P_HEADER_ID || '-' || P_TOP_MODEL_LINE_ID
8202: || '-' || P_ATO_LINE_ID || '-' || P_LINE_ID
8203: || '-' || P_ITEM_TYPE_CODE , 3 );
8204: END IF;
8205:
8205:
8206: IF p_header_id is not NULL AND
8207: p_line_id is not NULL THEN
8208: IF l_debug_level > 0 THEN
8209: oe_debug_pub.add('WRONG PARAMTERS' , 1);
8210: END IF;
8211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8212: END IF;
8213:
8237:
8238:
8239: IF l_count > 0 THEN
8240: IF l_debug_level > 0 THEN
8241: oe_debug_pub.add('ELIGIBLE LINES EXIST '|| L_COUNT , 1);
8242: END IF;
8243: ELSE
8244: IF l_debug_level > 0 THEN
8245: oe_debug_pub.add('NO ELIGIBLE LINES ' , 1);
8241: oe_debug_pub.add('ELIGIBLE LINES EXIST '|| L_COUNT , 1);
8242: END IF;
8243: ELSE
8244: IF l_debug_level > 0 THEN
8245: oe_debug_pub.add('NO ELIGIBLE LINES ' , 1);
8246: END IF;
8247: x_return_status := FND_API.G_RET_STS_ERROR;
8248: RETURN;
8249: END IF;
8251: IF p_header_id is not null AND
8252: p_line_id is null THEN
8253:
8254: IF l_debug_level > 0 THEN
8255: oe_debug_pub.add('WB ITEM TYPE IS HEADER '|| P_HEADER_ID , 3 );
8256: END IF;
8257: x_wb_item_type := 'HEAD';
8258:
8259: ElSIF p_top_model_line_id is not null AND
8260: p_ato_line_id is null AND
8261: p_item_type_code = 'MODEL' THEN
8262:
8263: IF l_debug_level > 0 THEN
8264: oe_debug_pub.add('WB ITEM TYPE IS PTO MODEL '
8265: || P_TOP_MODEL_LINE_ID , 3 );
8266: END IF;
8267: x_wb_item_type := 'PTO';
8268:
8270: (p_item_type_code = 'MODEL' OR
8271: p_item_type_code = 'CLASS') THEN
8272:
8273: IF l_debug_level > 0 THEN
8274: oe_debug_pub.add('WB ITEM TYPE IS ATO MODEL ' || P_ATO_LINE_ID , 3 );
8275: END IF;
8276: x_wb_item_type := 'MDL';
8277:
8278: ELSE
8281: (p_item_type_code = 'STANDARD' OR
8282: p_item_type_code = 'OPTION') THEN
8283:
8284: IF l_debug_level > 0 THEN
8285: oe_debug_pub.add('WB ITEM TYPE IS ATO ITEM ' || P_LINE_ID , 3 );
8286: END IF;
8287: x_wb_item_type := 'ATO';
8288:
8289: ELSIF p_item_type_code = 'CONFIG' THEN
8287: x_wb_item_type := 'ATO';
8288:
8289: ELSIF p_item_type_code = 'CONFIG' THEN
8290: IF l_debug_level > 0 THEN
8291: oe_debug_pub.add('WB ITEM TYPE IS CONFIG ITEM ' || P_LINE_ID , 3 );
8292: END IF;
8293: x_wb_item_type := 'CFG';
8294:
8295: ELSE
8293: x_wb_item_type := 'CFG';
8294:
8295: ELSE
8296: IF l_debug_level > 0 THEN
8297: oe_debug_pub.add('WB ITEM TYPE IS STD DROPSHIP ITEM '
8298: || P_LINE_ID , 3 );
8299: END IF;
8300: x_wb_item_type := 'STD';
8301: END IF;
8306:
8307: EXCEPTION
8308: WHEN OTHERS THEN
8309: IF l_debug_level > 0 THEN
8310: oe_debug_pub.add('ERROR IN LAUNCH_SUPPLY_WORKBENCH'|| SQLERRM , 1);
8311: END IF;
8312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8313: END Launch_Supply_Workbench;
8314:
8339: AND config_rev_nbr = p_config_rev_nbr;
8340:
8341:
8342: BEGIN
8343: oe_debug_pub.add(' Entering Message_From_Cz');
8344:
8345: OPEN messages(l_config_header_id, l_config_rev_nbr);
8346:
8347: LOOP
8348: FETCH messages into l_constraint,l_msg;
8349: EXIT when messages%notfound;
8350:
8351: OE_Msg_Pub.Add_Text(l_msg);
8352: oe_debug_pub.add('msg from spc: '||messages%rowcount , 2);
8353: oe_debug_pub.add('msg from spc: '|| substr(l_msg, 1, 250) , 3);
8354:
8355: END LOOP;
8356:
8349: EXIT when messages%notfound;
8350:
8351: OE_Msg_Pub.Add_Text(l_msg);
8352: oe_debug_pub.add('msg from spc: '||messages%rowcount , 2);
8353: oe_debug_pub.add('msg from spc: '|| substr(l_msg, 1, 250) , 3);
8354:
8355: END LOOP;
8356:
8357: IF nvl(p_valid_config, 'FALSE') = 'FALSE' THEN
8381: END IF;
8382:
8383: EXCEPTION
8384: WHEN OTHERS THEN
8385: OE_Debug_Pub.Add('Error in Message_From_Cz '|| sqlerrm, 2);
8386: END Message_From_Cz;
8387:
8388: /*--------------------------------------------------------
8389: PROCEDURE Get_Config_Effective_Date
8415: l_profile VARCHAR2(1);
8416: l_line_set_id NUMBER;
8417: l_split_from_line_id NUMBER;
8418: --
8419: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8420: --
8421: BEGIN
8422:
8423: IF l_debug_level > 0 THEN
8420: --
8421: BEGIN
8422:
8423: IF l_debug_level > 0 THEN
8424: OE_Debug_Pub.Add
8425: ('entering Get_Config_Effective_Date '|| p_model_line_id, 3);
8426: END IF;
8427:
8428: IF p_model_line_rec.header_id is not NULL THEN
8428: IF p_model_line_rec.header_id is not NULL THEN
8429:
8430: l_header_id := p_model_line_rec.header_id;
8431:
8432: OE_Debug_Pub.Add('model header id '|| p_model_line_rec.header_id, 3);
8433: OE_Debug_Pub.Add('split id '|| p_model_line_rec.split_from_line_id, 3);
8434: OE_Debug_Pub.Add('line id '|| p_model_line_rec.line_id, 3);
8435:
8436: IF p_model_line_rec.split_from_line_id is NOT NULL THEN
8429:
8430: l_header_id := p_model_line_rec.header_id;
8431:
8432: OE_Debug_Pub.Add('model header id '|| p_model_line_rec.header_id, 3);
8433: OE_Debug_Pub.Add('split id '|| p_model_line_rec.split_from_line_id, 3);
8434: OE_Debug_Pub.Add('line id '|| p_model_line_rec.line_id, 3);
8435:
8436: IF p_model_line_rec.split_from_line_id is NOT NULL THEN
8437:
8430: l_header_id := p_model_line_rec.header_id;
8431:
8432: OE_Debug_Pub.Add('model header id '|| p_model_line_rec.header_id, 3);
8433: OE_Debug_Pub.Add('split id '|| p_model_line_rec.split_from_line_id, 3);
8434: OE_Debug_Pub.Add('line id '|| p_model_line_rec.line_id, 3);
8435:
8436: IF p_model_line_rec.split_from_line_id is NOT NULL THEN
8437:
8438: SELECT creation_date
8442: AND line_set_id = p_model_line_rec.line_set_id
8443: AND split_from_line_id is NULL;
8444:
8445: IF l_debug_level > 0 THEN
8446: OE_Debug_Pub.Add
8447: ('split '||p_model_line_rec.split_from_line_id||l_creation_date,3);
8448: END IF;
8449:
8450: ELSE
8452: IF p_model_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
8453:
8454: l_creation_date := sysdate;
8455: IF l_debug_level > 0 THEN
8456: OE_Debug_Pub.Add('model is getting created today', 3);
8457: END IF;
8458:
8459: ELSE
8460: l_creation_date := p_model_line_rec.creation_date;
8464:
8465: ELSIF p_model_line_id is not NULL THEN
8466:
8467: IF l_debug_level > 0 THEN
8468: OE_Debug_Pub.Add('using model line id '|| p_model_line_id, 3);
8469: END IF;
8470:
8471: SELECT header_id, creation_date,
8472: line_set_id, split_from_line_id
8484: AND line_set_id = l_line_set_id
8485: AND split_from_line_id is NULL;
8486:
8487: IF l_debug_level > 0 THEN
8488: OE_Debug_Pub.Add
8489: ('split case '|| l_split_from_line_id || l_creation_date, 3);
8490: END IF;
8491: END IF;
8492:
8492:
8493: ELSE
8494:
8495: IF l_debug_level > 0 THEN
8496: OE_Debug_Pub.Add('something wrong in i/p'|| p_model_line_id, 3);
8497: END IF;
8498:
8499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8500:
8506: l_profile := nvl(OE_Sys_Parameters.VALUE('ONT_CONFIG_EFFECTIVITY_DATE'),
8507: '1');
8508:
8509: IF l_debug_level > 0 THEN
8510: oe_debug_pub.add('pack J code '||l_profile, 1);
8511: END IF;
8512:
8513: ELSE
8514:
8517: IF l_profile > 1 THEN
8518:
8519: IF OE_Process_Options_Pvt.Use_Configurator THEN
8520: IF l_debug_level > 0 THEN
8521: oe_debug_pub.add('USE CONFIGURATOR, ct fix' , 1);
8522: END IF;
8523: ELSE
8524: l_profile := 1;
8525:
8539: x_config_effective_date := l_creation_date;
8540: x_frozen_model_bill := 'Y';
8541:
8542: IF l_debug_level > 0 THEN
8543: OE_Debug_Pub.Add('creation date is effective date', 3);
8544: END IF;
8545:
8546: ELSIF l_profile = '3' THEN
8547:
8552: FROM oe_order_headers
8553: WHERE header_id = l_header_id;
8554:
8555: IF l_debug_level > 0 THEN
8556: OE_Debug_Pub.Add('booked, frozen: ' || x_frozen_model_bill, 3);
8557: END IF;
8558:
8559: IF x_frozen_model_bill = 'Y' THEN
8560: IF l_creation_date > x_config_effective_date THEN --bug5969409
8563: l_header_id := sysdate - x_config_effective_date;
8564:
8565: IF l_header_id < 0.007 THEN -- some 10 min right now***
8566: IF l_debug_level > 0 THEN
8567: OE_Debug_Pub.Add('not frozen, as booked now? '||l_header_id , 3);
8568: END IF;
8569: x_frozen_model_bill := 'N';
8570: END IF;
8571: END IF;
8571: END IF;
8572: ELSE
8573:
8574: IF l_debug_level > 0 THEN
8575: OE_Debug_Pub.Add('not frozen, not booked', 3);
8576: END IF;
8577: x_config_effective_date := sysdate;
8578: END IF;
8579: -- Added for ER#6187663 Start
8588: -- Added for ER#6187663 Start
8589:
8590: ELSE
8591: IF l_debug_level > 0 THEN
8592: OE_Debug_Pub.Add('something wrong???', 3);
8593: END IF;
8594: END IF;
8595:
8596: IF l_debug_level > 0 THEN
8593: END IF;
8594: END IF;
8595:
8596: IF l_debug_level > 0 THEN
8597: OE_Debug_Pub.Add
8598: ('leaving Get_Config_Effective_Date '||
8599: to_char(x_config_effective_date, 'DD-MON-YY HH24:MI:SS'), 3);
8600: OE_Debug_Pub.Add('sysdate '||to_char(sysdate, 'DD-MON-YY HH24:MI:SS'),3);
8601: OE_Debug_Pub.Add(x_frozen_model_bill || '-'|| x_old_behavior, 3);
8596: IF l_debug_level > 0 THEN
8597: OE_Debug_Pub.Add
8598: ('leaving Get_Config_Effective_Date '||
8599: to_char(x_config_effective_date, 'DD-MON-YY HH24:MI:SS'), 3);
8600: OE_Debug_Pub.Add('sysdate '||to_char(sysdate, 'DD-MON-YY HH24:MI:SS'),3);
8601: OE_Debug_Pub.Add(x_frozen_model_bill || '-'|| x_old_behavior, 3);
8602: END IF;
8603:
8604: EXCEPTION
8597: OE_Debug_Pub.Add
8598: ('leaving Get_Config_Effective_Date '||
8599: to_char(x_config_effective_date, 'DD-MON-YY HH24:MI:SS'), 3);
8600: OE_Debug_Pub.Add('sysdate '||to_char(sysdate, 'DD-MON-YY HH24:MI:SS'),3);
8601: OE_Debug_Pub.Add(x_frozen_model_bill || '-'|| x_old_behavior, 3);
8602: END IF;
8603:
8604: EXCEPTION
8605: WHEN OTHERS THEN
8603:
8604: EXCEPTION
8605: WHEN OTHERS THEN
8606: IF l_debug_level > 0 THEN
8607: OE_Debug_Pub.Add('Get_Config_Effective_Date '|| sqlerrm, 1);
8608: END IF;
8609:
8610: x_config_effective_date := null;
8611: x_frozen_model_bill := null;
8624: PROCEDURE Print_Time(p_msg IN VARCHAR2)
8625: IS
8626: l_time VARCHAR2(100);
8627: --
8628: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8629: --
8630: BEGIN
8631: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
8632: 'DD-MON-YY HH24:MI:SS');
8630: BEGIN
8631: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
8632: 'DD-MON-YY HH24:MI:SS');
8633: IF l_debug_level > 0 THEN
8634: oe_debug_pub.add(P_MSG || ': '|| L_TIME , 1);
8635: END IF;
8636: END Print_Time;
8637:
8638: /*--------------------------------------------------------
8653: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8654: l_order_number NUMBER;
8655:
8656: --
8657: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8658: --
8659: BEGIN
8660:
8661: IF l_debug_level > 0 THEN
8658: --
8659: BEGIN
8660:
8661: IF l_debug_level > 0 THEN
8662: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.Unlock_Config' , 1);
8663: END IF;
8664:
8665:
8666: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
8673: l_order_number := OE_SCHEDULE_UTIL.get_order_number(p_line_rec.header_id);
8674:
8675: IF l_debug_level > 0 THEN
8676:
8677: oe_debug_pub.add(' Calling Unlock_Config' || p_line_rec.config_header_id, 2);
8678: oe_debug_pub.add(' Config rev nbr' || p_line_rec.config_rev_nbr, 2);
8679: oe_debug_pub.add(' Configuration_id ' || p_line_rec.configuration_id, 2);
8680: oe_debug_pub.add(' order_number ' || l_order_number, 2);
8681:
8674:
8675: IF l_debug_level > 0 THEN
8676:
8677: oe_debug_pub.add(' Calling Unlock_Config' || p_line_rec.config_header_id, 2);
8678: oe_debug_pub.add(' Config rev nbr' || p_line_rec.config_rev_nbr, 2);
8679: oe_debug_pub.add(' Configuration_id ' || p_line_rec.configuration_id, 2);
8680: oe_debug_pub.add(' order_number ' || l_order_number, 2);
8681:
8682: END IF;
8675: IF l_debug_level > 0 THEN
8676:
8677: oe_debug_pub.add(' Calling Unlock_Config' || p_line_rec.config_header_id, 2);
8678: oe_debug_pub.add(' Config rev nbr' || p_line_rec.config_rev_nbr, 2);
8679: oe_debug_pub.add(' Configuration_id ' || p_line_rec.configuration_id, 2);
8680: oe_debug_pub.add(' order_number ' || l_order_number, 2);
8681:
8682: END IF;
8683:
8676:
8677: oe_debug_pub.add(' Calling Unlock_Config' || p_line_rec.config_header_id, 2);
8678: oe_debug_pub.add(' Config rev nbr' || p_line_rec.config_rev_nbr, 2);
8679: oe_debug_pub.add(' Configuration_id ' || p_line_rec.configuration_id, 2);
8680: oe_debug_pub.add(' order_number ' || l_order_number, 2);
8681:
8682: END IF;
8683:
8684: CZ_IB_LOCKING.Unlock_Config
8700: x_msg_data => l_msg_data);
8701:
8702: IF l_debug_level > 0 THEN
8703:
8704: oe_debug_pub.add(' After calling CZ Unlock_Config ' || x_return_status,2);
8705: END IF;
8706:
8707: IF l_msg_count > 0 THEN
8708:
8713:
8714: END IF;
8715:
8716: IF l_debug_level > 0 THEN
8717: oe_debug_pub.add('Exiting OE_CONFIG_UTIL.Unlock_Config' || x_return_status, 1);
8718: END IF;
8719:
8720: EXCEPTION
8721:
8720: EXCEPTION
8721:
8722: WHEN OTHERS THEN
8723: IF l_debug_level > 0 THEN
8724: oe_debug_pub.add('ERROR IN OE_CONFIG_UTIL.Unlock_Config'|| SQLERRM , 1);
8725: END IF;
8726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8727: END Unlock_Config;
8728: