[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: oe_debug_pub.add( 'CALLING CZ_CONFIG_API_PUB.verify_configuration', 0.5) ; -- Added debug for bug 13435459
1553: END IF;
1554:
1555: CZ_CONFIG_API_PUB.verify_configuration
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: oe_debug_pub.add( 'CALLING CZ_CONFIG_API_PUB.verify_configuration', 0.5) ; -- Added debug for bug 13435459
1553: END IF;
1554:
1555: CZ_CONFIG_API_PUB.verify_configuration
1556: ( p_api_version => 1.0,
1563: x_msg_count => l_msg_count,
1564: x_msg_data => l_msg_data );
1565:
1566: IF l_debug_level > 0 THEN
1567: oe_debug_pub.add (' Exists Flag :' ||l_exists_flag,2);
1568: oe_debug_pub.add (' Valid Flag :'|| l_valid_flag,2);
1569: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1570: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1571: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1564: x_msg_data => l_msg_data );
1565:
1566: IF l_debug_level > 0 THEN
1567: oe_debug_pub.add (' Exists Flag :' ||l_exists_flag,2);
1568: oe_debug_pub.add (' Valid Flag :'|| l_valid_flag,2);
1569: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1570: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1571: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1572: oe_debug_pub.add (' Message Data :'|| l_msg_data,2);
1565:
1566: IF l_debug_level > 0 THEN
1567: oe_debug_pub.add (' Exists Flag :' ||l_exists_flag,2);
1568: oe_debug_pub.add (' Valid Flag :'|| l_valid_flag,2);
1569: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1570: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1571: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1572: oe_debug_pub.add (' Message Data :'|| l_msg_data,2);
1573: oe_debug_pub.add( 'AFTER CZ_CONFIG_API_PUB.verify_configuration', 0.5) ; -- Added debug for bug 13435459
1566: IF l_debug_level > 0 THEN
1567: oe_debug_pub.add (' Exists Flag :' ||l_exists_flag,2);
1568: oe_debug_pub.add (' Valid Flag :'|| l_valid_flag,2);
1569: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1570: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1571: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1572: oe_debug_pub.add (' Message Data :'|| l_msg_data,2);
1573: oe_debug_pub.add( 'AFTER CZ_CONFIG_API_PUB.verify_configuration', 0.5) ; -- Added debug for bug 13435459
1574: END IF;
1567: oe_debug_pub.add (' Exists Flag :' ||l_exists_flag,2);
1568: oe_debug_pub.add (' Valid Flag :'|| l_valid_flag,2);
1569: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1570: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1571: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1572: oe_debug_pub.add (' Message Data :'|| l_msg_data,2);
1573: oe_debug_pub.add( 'AFTER CZ_CONFIG_API_PUB.verify_configuration', 0.5) ; -- Added debug for bug 13435459
1574: END IF;
1575:
1568: oe_debug_pub.add (' Valid Flag :'|| l_valid_flag,2);
1569: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1570: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1571: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1572: oe_debug_pub.add (' Message Data :'|| l_msg_data,2);
1573: oe_debug_pub.add( 'AFTER CZ_CONFIG_API_PUB.verify_configuration', 0.5) ; -- Added debug for bug 13435459
1574: END IF;
1575:
1576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1569: oe_debug_pub.add (' Complete Flag :'|| l_complete_flag,2);
1570: oe_debug_pub.add (' Return Status :'|| l_return_status,2);
1571: oe_debug_pub.add (' Message Count :'|| l_msg_count,2);
1572: oe_debug_pub.add (' Message Data :'|| l_msg_data,2);
1573: oe_debug_pub.add( 'AFTER CZ_CONFIG_API_PUB.verify_configuration', 0.5) ; -- Added debug for bug 13435459
1574: END IF;
1575:
1576: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1580: ELSIF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1581:
1582: IF l_exists_flag = FND_API.G_FALSE THEN
1583: IF l_debug_level > 0 THEN
1584: oe_debug_pub.add('Configuration Does not Exist '|| l_msg_data,2);
1585: END IF;
1586: RAISE FND_API.G_EXC_ERROR;
1587:
1588: ELSE
1586: RAISE FND_API.G_EXC_ERROR;
1587:
1588: ELSE
1589: IF l_debug_level > 0 THEN
1590: oe_debug_pub.add (' Configuration Exists ',2);
1591: END IF;
1592:
1593: IF l_valid_flag = FND_API.G_FALSE THEN
1594: l_valid_config := 'FALSE';
1599: IF l_complete_flag = FND_API.G_FALSE THEN
1600: l_complete_config := 'FALSE';
1601: ELSE
1602: IF l_debug_level > 0 THEN
1603: oe_debug_pub.add('Configuration Exists, valid and Complete ',2);
1604: END IF;
1605: l_complete_config := 'TRUE';
1606: END IF;
1607: END IF; -- if exist flag = false
1624: -- If the call is from Order Import and not BOOKING then skip the
1625: -- Configurator BATCH Validation (bug 2560933)
1626:
1627: IF l_debug_level > 0 THEN
1628: oe_debug_pub.add('CALLING CREATE_HDR_XML' , 2 );
1629: oe_debug_pub.add('--------INITIALIZATION MESSAGE------------' , 2 );
1630: END IF;
1631:
1632: Create_hdr_xml
1625: -- Configurator BATCH Validation (bug 2560933)
1626:
1627: IF l_debug_level > 0 THEN
1628: oe_debug_pub.add('CALLING CREATE_HDR_XML' , 2 );
1629: oe_debug_pub.add('--------INITIALIZATION MESSAGE------------' , 2 );
1630: END IF;
1631:
1632: Create_hdr_xml
1633: ( p_model_line_id => p_model_line_id ,
1633: ( p_model_line_id => p_model_line_id ,
1634: x_xml_hdr => l_xml_hdr);
1635:
1636: IF l_debug_level > 0 THEN
1637: oe_debug_pub.add('------AFTER CREATE INITIALIZATION MESSAGE----' , 2 );
1638: oe_debug_pub.add('CALLING SEND_INPUT_XML' , 2 );
1639: END IF;
1640:
1641: Send_Input_xml
1634: x_xml_hdr => l_xml_hdr);
1635:
1636: IF l_debug_level > 0 THEN
1637: oe_debug_pub.add('------AFTER CREATE INITIALIZATION MESSAGE----' , 2 );
1638: oe_debug_pub.add('CALLING SEND_INPUT_XML' , 2 );
1639: END IF;
1640:
1641: Send_Input_xml
1642: ( p_model_line_id => l_model_line_id,
1647: x_out_xml_msg => l_xml_message,
1648: x_return_status => l_return_status );
1649:
1650: IF l_debug_level > 0 THEN
1651: oe_debug_pub.add
1652: ('AFTER CALLING SEND_INPUT_XML: '||L_RETURN_STATUS , 2 );
1653: END IF;
1654: --get_transaction_id(p_caller => 'after send_xml');
1655:
1666:
1667: -- extract data from xml message.
1668:
1669: IF l_debug_level > 0 THEN
1670: oe_debug_pub.add('CALLING PARSE_OUTPUT_XML' , 2 );
1671: END IF;
1672:
1673: Parse_Output_xml
1674: ( p_xml => l_xml_message,
1679: x_config_rev_nbr => l_config_rev_nbr,
1680: x_return_status => l_return_status );
1681:
1682: IF l_debug_level > 0 THEN
1683: oe_debug_pub.add('AFTER CALLING PARSE_XML: '||L_RETURN_STATUS , 2 );
1684: END IF;
1685:
1686: x_valid_config := l_valid_config;
1687: x_complete_config := l_complete_config;
1701: (l_valid_config = 'FALSE' OR
1702: l_complete_config = 'FALSE') THEN
1703:
1704: IF l_debug_level > 0 THEN
1705: oe_debug_pub.add('CALLER IS BOOKING AND ERRORED OUT' , 2 );
1706: END IF;
1707:
1708: x_return_status := l_return_status;
1709: RETURN;
1715: -- to release the hold, if the configuration becomes valid and complete
1716: -- after this particular change.
1717:
1718: IF l_debug_level > 0 THEN
1719: oe_debug_pub.add('IS THIS IS A BOOKED ORDER , IF SO PUT HOLD: '
1720: ||L_BOOKED_FLAG , 2 );
1721: END IF;
1722:
1723: IF l_booked_flag = 'Y' THEN
1743:
1744: -- call to process_config to insert new valid and complete confiuration
1745:
1746: IF l_debug_level > 0 THEN
1747: oe_debug_pub.add('------- CALLING PROCESS_CONFIG -----------' , 2 );
1748: END IF;
1749:
1750: OE_Config_Pvt.Process_Config
1751: ( p_header_id => l_header_id
1758: ,x_msg_data => l_msg_data
1759: ,x_return_status => l_return_status );
1760:
1761: IF l_debug_level > 0 THEN
1762: oe_debug_pub.add('AFTER CALL TO PROCESS_CONFIG: '
1763: ||L_RETURN_STATUS , 2 );
1764: END IF;
1765:
1766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1764: END IF;
1765:
1766: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1767: IF l_debug_level > 0 THEN
1768: oe_debug_pub.add('PROCESS CONFIG UNEXPECTED ERROR' , 2 );
1769: END IF;
1770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1771:
1772: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1771:
1772: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1773: IF l_debug_level > 0 THEN
1774: oe_debug_pub.add('PROCESS CONFIG EXEC ERROR' , 2 );
1775: END IF;
1776: RAISE FND_API.G_EXC_ERROR;
1777:
1778: END IF;
1780: -- If you are here, things went off OK ! So return success
1781: x_return_status := l_return_status;
1782:
1783: IF l_debug_level > 0 THEN
1784: oe_debug_pub.add('LEAVING CONFIGURATOR_VALIDATION' , 1);
1785: END IF;
1786: EXCEPTION
1787: WHEN OTHERS THEN
1788: IF l_debug_level > 0 THEN
1785: END IF;
1786: EXCEPTION
1787: WHEN OTHERS THEN
1788: IF l_debug_level > 0 THEN
1789: oe_debug_pub.add('ECXEPTION IN CONFIGURATOR_VALIDATION'|| SQLERRM , 1);
1790: END IF;
1791: RAISE;
1792: END Configurator_Validation;
1793:
1825: l_msg_count NUMBER;
1826: l_msg_data VARCHAR2(2000);
1827:
1828: --
1829: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1830: --
1831: BEGIN
1832: IF l_debug_level > 0 THEN
1833: oe_debug_pub.add('ENTERING BOM_CONFIG_VALIDATION' , 1);
1829: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1830: --
1831: BEGIN
1832: IF l_debug_level > 0 THEN
1833: oe_debug_pub.add('ENTERING BOM_CONFIG_VALIDATION' , 1);
1834: oe_debug_pub.add('GETTING PREVIOUSLY SAVED OPTIONS FROM DB' , 2 );
1835: END IF;
1836:
1837: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' THEN
1830: --
1831: BEGIN
1832: IF l_debug_level > 0 THEN
1833: oe_debug_pub.add('ENTERING BOM_CONFIG_VALIDATION' , 1);
1834: oe_debug_pub.add('GETTING PREVIOUSLY SAVED OPTIONS FROM DB' , 2 );
1835: END IF;
1836:
1837: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' THEN
1838:
1842: ,x_part_of_container => l_return_status );
1843:
1844: IF l_change_flag = 'Y' THEN
1845: IF l_debug_level > 0 THEN
1846: OE_DEBUG_PUB.Add('Line is top container, hence not allowed',3);
1847: END IF;
1848:
1849: x_return_status := FND_API.G_RET_STS_ERROR;
1850: FND_MESSAGE.SET_NAME('ONT','ONT_TSO_NOT_IN_OPTIONS_WINDOW');
1887:
1888: END IF;
1889:
1890: IF l_debug_level > 0 THEN
1891: oe_debug_pub.add('CALLING CASCADE_UPDATES_DELETES '||
1892: l_deleted_options_tbl.COUNT || '-' ||
1893: l_updated_options_tbl.COUNT, 3);
1894: END IF;
1895:
1903:
1904: END IF; -- if we need to cascade
1905:
1906: IF l_debug_level > 0 THEN
1907: oe_debug_pub.add('CALLING PROCESS_CONFIG_OPTIONS' , 1);
1908: END IF;
1909:
1910: OE_Process_Options_Pvt.Process_Config_Options
1911: (p_options_tbl => l_options_tbl,
1923: OE_Process_Options_Pvt.Handle_Ret_Status
1924: (p_return_Status => x_return_status);
1925:
1926: IF l_debug_level > 0 THEN
1927: oe_debug_pub.add('LEAVING BOM_CONFIG_VALIDATION' , 1);
1928: END IF;
1929: EXCEPTION
1930: WHEN OTHERS THEN
1931: IF l_debug_level > 0 THEN
1928: END IF;
1929: EXCEPTION
1930: WHEN OTHERS THEN
1931: IF l_debug_level > 0 THEN
1932: oe_debug_pub.add('ECXEPTION IN BOM_CONFIG_VALIDATION'|| SQLERRM , 1);
1933: END IF;
1934: RAISE;
1935: END Bom_Config_Validation;
1936:
1985: := p_deleted_options_tbl;
1986: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1987: l_qty NUMBER := 1;
1988: --
1989: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1990: --
1991: BEGIN
1992: IF l_debug_level > 0 THEN
1993: oe_debug_pub.add('ENTERING CASCADE_UPDATES_DELETES' , 1);
1989: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1990: --
1991: BEGIN
1992: IF l_debug_level > 0 THEN
1993: oe_debug_pub.add('ENTERING CASCADE_UPDATES_DELETES' , 1);
1994: oe_debug_pub.add('FIRST UPDATES' , 2 );
1995: END IF;
1996:
1997: IF p_updated_options_tbl.COUNT > 0 THEN
1990: --
1991: BEGIN
1992: IF l_debug_level > 0 THEN
1993: oe_debug_pub.add('ENTERING CASCADE_UPDATES_DELETES' , 1);
1994: oe_debug_pub.add('FIRST UPDATES' , 2 );
1995: END IF;
1996:
1997: IF p_updated_options_tbl.COUNT > 0 THEN
1998: SELECT ordered_quantity
2006: LOOP
2007: l_req_rec := p_updated_options_tbl(I);
2008:
2009: IF l_debug_level > 0 THEN
2010: oe_debug_pub.add('OPTIONS UPDATED ' , 4 );
2011: END IF;
2012:
2013: IF l_debug_level > 0 THEN
2014: oe_debug_pub.add('QTY '|| L_REQ_REC.PARAM5||'CANCEL: '
2010: oe_debug_pub.add('OPTIONS UPDATED ' , 4 );
2011: END IF;
2012:
2013: IF l_debug_level > 0 THEN
2014: oe_debug_pub.add('QTY '|| L_REQ_REC.PARAM5||'CANCEL: '
2015: ||L_REQ_REC.PARAM8 , 2 );
2016: END IF;
2017:
2018: IF l_req_rec.param5 = 0 AND l_req_rec.param8 = 'N' THEN
2016: END IF;
2017:
2018: IF l_req_rec.param5 = 0 AND l_req_rec.param8 = 'N' THEN
2019: IF l_debug_level > 0 THEN
2020: oe_debug_pub.add('QTY = 0 AND NO CANCELLATION , SO DELETE' , 1);
2021: END IF;
2022:
2023: BEGIN
2024: -- set operation to delete
2026: ( p_options_tbl => p_x_options_tbl
2027: ,p_comp_code => l_req_rec.param2);
2028:
2029: IF l_debug_level > 0 THEN
2030: oe_debug_pub.add('INDEX: '|| L_INDEX , 2 );
2031: END IF;
2032: p_x_options_tbl(l_index).operation := OE_GLOBALS.G_OPR_DELETE;
2033:
2034: EXCEPTION
2033:
2034: EXCEPTION
2035: WHEN FND_API.G_EXC_ERROR THEN
2036: IF l_debug_level > 0 THEN
2037: oe_debug_pub.add('COMPONENT NOT PRESENT' , 1);
2038: END IF;
2039: RAISE;
2040: END;
2041:
2043: l_req_rec; -- ok, since params match
2044:
2045: ELSE -- regular code
2046: IF l_debug_level > 0 THEN
2047: oe_debug_pub.add('REGULAR CODE OF UPDATES'|| L_REQ_REC.PARAM3 , 1);
2048: END IF;
2049:
2050: IF l_req_rec.param3 = OE_GLOBALS.G_ITEM_CLASS THEN
2051:
2056: END IF;
2057:
2058: IF l_debug_level > 0 THEN
2059: -- 4211654
2060: oe_debug_pub.add(L_REQ_REC.PARAM2||' OLD QTY (l_req_rec.param4) = '
2061: ||L_REQ_REC.PARAM4||' New Qty (l_req_rec.param5) = '
2062: ||l_req_rec.param5 , 1);
2063: END IF;
2064:
2075: IF l_req_rec.param8 = 'Y' AND
2076: l_req_rec.param5 = 0
2077: THEN
2078: IF l_debug_level > 0 THEN
2079: oe_debug_pub.add('CALLING PROPOGATE CHANGE , CANCEL FLAG Y' , 1);
2080: END IF;
2081:
2082: Propogate_change_To_parent
2083: (p_x_options_tbl => p_x_options_tbl
2092: I := p_updated_options_tbl.NEXT(I);
2093: END LOOP;
2094:
2095: IF l_debug_level > 0 THEN
2096: oe_debug_pub.add('NOW DELETES' , 1);
2097: END IF;
2098:
2099: I :=l_deleted_options_tbl.FIRST;
2100: WHILE I is not NULL
2099: I :=l_deleted_options_tbl.FIRST;
2100: WHILE I is not NULL
2101: LOOP
2102: IF l_debug_level > 0 THEN
2103: oe_debug_pub.add('THERE ARE ITEMS DELETED'|| L_REQ_REC.PARAM2 , 1);
2104: END IF;
2105:
2106: l_req_rec := l_deleted_options_tbl(I);
2107:
2106: l_req_rec := l_deleted_options_tbl(I);
2107:
2108: IF l_req_rec.param3 = OE_GLOBALS.G_ITEM_CLASS THEN
2109: IF l_debug_level > 0 THEN
2110: oe_debug_pub.add('CLASS IS DELETED'|| L_REQ_REC.PARAM2 , 1);
2111: END IF;
2112:
2113: Delete_Children( p_x_options_tbl => p_x_options_tbl
2114: ,p_component_code => l_req_rec.param2
2121: -- should see if the parent needs to be deleted, rare case.
2122:
2123: IF p_model_component is NULL THEN
2124: IF l_debug_level > 0 THEN
2125: oe_debug_pub.add('MODEL COMPONENT IS NULL' , 1);
2126: END IF;
2127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2128: END IF;
2129:
2127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2128: END IF;
2129:
2130: IF l_debug_level > 0 THEN
2131: oe_debug_pub.add('OPTION/CLASS/KIT IS DELETED' , 1);
2132: END IF;
2133:
2134: Delete_Parent(p_x_options_tbl => p_x_options_tbl
2135: ,p_component_code => l_req_rec.param2
2141: END LOOP;
2142:
2143: x_return_status := l_return_status;
2144: IF l_debug_level > 0 THEN
2145: oe_debug_pub.add('LEAVING CASCADE_UPDATES_DELETES' , 1);
2146: END IF;
2147:
2148: EXCEPTION
2149: WHEN OTHERS THEN
2147:
2148: EXCEPTION
2149: WHEN OTHERS THEN
2150: IF l_debug_level > 0 THEN
2151: oe_debug_pub.add('EXCEPTION IN CASCADE_UPDATES_DELETES'|| SQLERRM , 1);
2152: END IF;
2153: RAISE;
2154: END Cascade_Updates_Deletes;
2155:
2171: IS
2172: I NUMBER;
2173: l_length NUMBER;
2174: --
2175: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2176: --
2177: BEGIN
2178: IF l_debug_level > 0 THEN
2179: oe_debug_pub.add('ENTERING CASCADE_QTY '|| P_RATIO , 1);
2175: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2176: --
2177: BEGIN
2178: IF l_debug_level > 0 THEN
2179: oe_debug_pub.add('ENTERING CASCADE_QTY '|| P_RATIO , 1);
2180: END IF;
2181:
2182: l_length := LENGTH(p_component_code);
2183:
2189: AND p_x_options_tbl(I).component_code <> p_component_code
2190: AND p_x_options_tbl(I).operation <> OE_GLOBALS.G_OPR_DELETE
2191: THEN
2192: IF l_debug_level > 0 THEN
2193: oe_debug_pub.add('OPTION TO BE UPDATED '
2194: || P_X_OPTIONS_TBL (I).COMPONENT_CODE , 3 );
2195: oe_debug_pub.add('CHANGE REASON '|| P_CHANGE_REASON , 3 );
2196: END IF;
2197: /* 4211654 - instead of using p_ratio, used p_old_qty and p_new_qty to
2191: THEN
2192: IF l_debug_level > 0 THEN
2193: oe_debug_pub.add('OPTION TO BE UPDATED '
2194: || P_X_OPTIONS_TBL (I).COMPONENT_CODE , 3 );
2195: oe_debug_pub.add('CHANGE REASON '|| P_CHANGE_REASON , 3 );
2196: END IF;
2197: /* 4211654 - instead of using p_ratio, used p_old_qty and p_new_qty to
2198: * calculate p_x_options_tbl(I).ordered_quantity
2199: */
2199: */
2200: p_x_options_tbl(I).ordered_quantity :=
2201: (p_x_options_tbl(I).ordered_quantity / p_old_qty) * p_new_qty;
2202: IF l_debug_level > 0 THEN
2203: oe_debug_pub.add('NEW QTY '||P_X_OPTIONS_TBL (I).ORDERED_QUANTITY ,1);
2204: END IF;
2205: p_x_options_tbl(I).change_reason := p_change_reason;
2206: p_x_options_tbl(I).change_comments := p_change_comments;
2207:
2215: I := p_x_options_tbl.NEXT(I);
2216: END LOOP;
2217:
2218: IF l_debug_level > 0 THEN
2219: oe_debug_pub.add('LEAVING CASCADE_QTY' , 1);
2220: END IF;
2221: EXCEPTION
2222: WHEN OTHERS THEN
2223: IF l_debug_level > 0 THEN
2220: END IF;
2221: EXCEPTION
2222: WHEN OTHERS THEN
2223: IF l_debug_level > 0 THEN
2224: oe_debug_pub.add('ECXEPTION IN CASCADE_QTY'|| SQLERRM , 1);
2225: END IF;
2226: RAISE;
2227: END Cascade_Qty;
2228:
2241: IS
2242: I NUMBER;
2243: l_length NUMBER;
2244: --
2245: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2246: --
2247: BEGIN
2248: IF l_debug_level > 0 THEN
2249: oe_debug_pub.add('ENTERING DELETE_CHILDREN' , 1);
2245: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2246: --
2247: BEGIN
2248: IF l_debug_level > 0 THEN
2249: oe_debug_pub.add('ENTERING DELETE_CHILDREN' , 1);
2250: END IF;
2251:
2252: l_length := LENGTH(p_component_code);
2253:
2258: = p_component_code
2259: AND p_x_options_tbl(I).component_code <> p_component_code
2260: THEN
2261: IF l_debug_level > 0 THEN
2262: oe_debug_pub.add('OPTION TO BE DELETED '
2263: || P_X_OPTIONS_TBL (I).COMPONENT_CODE , 3 );
2264: END IF;
2265: IF p_x_options_tbl(I).operation <> OE_GLOBALS.G_OPR_INSERT
2266: THEN
2270: FND_MESSAGE.Set_Token('CLASS',p_parent_item);
2271: FND_MESSAGE.Set_Token('ITEM',p_x_options_tbl(I).ordered_item);
2272: Oe_Msg_Pub.Add;
2273: IF l_debug_level > 0 THEN
2274: oe_debug_pub.add('OPERATION IS INSERT IN PROCEDURE DELETE_CHILDREN');
2275: oe_debug_pub.add('parent class : ' || p_parent_item);
2276: oe_debug_pub.add('child item : ' || p_x_options_tbl(I).ordered_item);
2277: END IF;
2278: RAISE FND_API.G_EXC_ERROR;
2271: FND_MESSAGE.Set_Token('ITEM',p_x_options_tbl(I).ordered_item);
2272: Oe_Msg_Pub.Add;
2273: IF l_debug_level > 0 THEN
2274: oe_debug_pub.add('OPERATION IS INSERT IN PROCEDURE DELETE_CHILDREN');
2275: oe_debug_pub.add('parent class : ' || p_parent_item);
2276: oe_debug_pub.add('child item : ' || p_x_options_tbl(I).ordered_item);
2277: END IF;
2278: RAISE FND_API.G_EXC_ERROR;
2279: END IF;
2272: Oe_Msg_Pub.Add;
2273: IF l_debug_level > 0 THEN
2274: oe_debug_pub.add('OPERATION IS INSERT IN PROCEDURE DELETE_CHILDREN');
2275: oe_debug_pub.add('parent class : ' || p_parent_item);
2276: oe_debug_pub.add('child item : ' || p_x_options_tbl(I).ordered_item);
2277: END IF;
2278: RAISE FND_API.G_EXC_ERROR;
2279: END IF;
2280: END IF;
2281: I := p_x_options_tbl.NEXT(I);
2282: END LOOP;
2283:
2284: IF l_debug_level > 0 THEN
2285: oe_debug_pub.add('LEAVING DELETE_CHILDREN' , 1);
2286: END IF;
2287: EXCEPTION
2288: WHEN OTHERS THEN
2289: IF l_debug_level > 0 THEN
2286: END IF;
2287: EXCEPTION
2288: WHEN OTHERS THEN
2289: IF l_debug_level > 0 THEN
2290: oe_debug_pub.add('ECXEPTION IN DELETE_CHILDREN'|| SQLERRM , 1);
2291: END IF;
2292: RAISE;
2293: END Delete_Children;
2294:
2309: l_count NUMBER;
2310: l_link_to_line_id NUMBER;
2311: l_parent VARCHAR2(1000);
2312: --
2313: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2314: --
2315: BEGIN
2316: IF l_debug_level > 0 THEN
2317: oe_debug_pub.add('ENTERING DELETE_PARENT' , 1);
2313: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2314: --
2315: BEGIN
2316: IF l_debug_level > 0 THEN
2317: oe_debug_pub.add('ENTERING DELETE_PARENT' , 1);
2318: END IF;
2319:
2320: IF p_model_component is NULL THEN
2321: RAISE FND_API.G_EXC_ERROR;
2323:
2324:
2325: IF p_component_code = p_model_component THEN
2326: IF l_debug_level > 0 THEN
2327: oe_debug_pub.add('MODEL REACHED' , 1);
2328: END IF;
2329: RETURN;
2330: END IF;
2331:
2329: RETURN;
2330: END IF;
2331:
2332: IF l_debug_level > 0 THEN
2333: oe_debug_pub.add('COMP SENT IN: '|| P_COMPONENT_CODE , 2 );
2334: END IF;
2335:
2336:
2337: IF no_more_children_left
2349: WHILE I is not NULL
2350:
2351: LOOP
2352: IF l_debug_level > 0 THEN
2353: oe_debug_pub.add(I || ': '|| P_X_OPTIONS_TBL (I).COMPONENT_CODE , 2 );
2354: END IF;
2355: l_parent :=
2356: SUBSTR(p_component_code, 1, INSTR(p_component_code, '-', -1) - 1);
2357:
2358: IF l_parent = p_x_options_tbl(I).component_code AND
2359: p_x_options_tbl(I).component_code <> p_model_component
2360: THEN
2361: IF l_debug_level > 0 THEN
2362: oe_debug_pub.add('PARENT TO BE DELETED '
2363: || P_X_OPTIONS_TBL (I).COMPONENT_CODE , 3 );
2364: END IF;
2365:
2366: p_x_options_tbl(I).operation := OE_GLOBALS.G_OPR_DELETE;
2367:
2368: -- recursive call.
2369:
2370: IF l_debug_level > 0 THEN
2371: oe_debug_pub.add('RECURSIVE CALL'|| P_MODEL_COMPONENT , 1);
2372: END IF;
2373: Delete_Parent(p_x_options_tbl => p_x_options_tbl
2374: ,p_component_code => l_parent
2375: ,p_top_model_line_id => p_top_model_line_id
2376: ,p_model_component => p_model_component
2377: ,p_ui_flag => p_ui_flag);
2378:
2379: IF l_debug_level > 0 THEN
2380: oe_debug_pub.add('MY CALL WORK DONE' , 1);
2381: END IF;
2382: RETURN;
2383: END IF;
2384: I := p_x_options_tbl.NEXT(I);
2384: I := p_x_options_tbl.NEXT(I);
2385: END LOOP;
2386:
2387: IF l_debug_level > 0 THEN
2388: oe_debug_pub.add('PARENT NOT FOUND??' , 1);
2389: END IF;
2390:
2391: END IF;
2392:
2390:
2391: END IF;
2392:
2393: IF l_debug_level > 0 THEN
2394: oe_debug_pub.add('LEAVING DELETE_PARENT'|| P_COMPONENT_CODE , 1);
2395: END IF;
2396: EXCEPTION
2397: WHEN OTHERS THEN
2398: IF l_debug_level > 0 THEN
2395: END IF;
2396: EXCEPTION
2397: WHEN OTHERS THEN
2398: IF l_debug_level > 0 THEN
2399: oe_debug_pub.add('ECXEPTION IN DELETE_PARENT'|| SQLERRM , 1);
2400: END IF;
2401: RAISE;
2402: END Delete_Parent;
2403:
2418: l_count NUMBER;
2419: l_link_to_line_id NUMBER;
2420: l_parent VARCHAR2(1000);
2421: --
2422: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2423: --
2424: BEGIN
2425: IF l_debug_level > 0 THEN
2426: oe_debug_pub.add('ENTERING PROPOGATE_CHANGE_TO_PARENT' , 1);
2422: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2423: --
2424: BEGIN
2425: IF l_debug_level > 0 THEN
2426: oe_debug_pub.add('ENTERING PROPOGATE_CHANGE_TO_PARENT' , 1);
2427: END IF;
2428:
2429: IF p_model_component is NULL THEN
2430: RAISE FND_API.G_EXC_ERROR;
2432:
2433:
2434: IF p_component_code = p_model_component THEN
2435: IF l_debug_level > 0 THEN
2436: oe_debug_pub.add('MODEL REACHED' , 1);
2437: END IF;
2438: RETURN;
2439: END IF;
2440:
2438: RETURN;
2439: END IF;
2440:
2441: IF l_debug_level > 0 THEN
2442: oe_debug_pub.add('COMP SENT IN: '|| P_COMPONENT_CODE , 2 );
2443: END IF;
2444:
2445:
2446: IF no_more_children_left
2458: WHILE I is not NULL
2459:
2460: LOOP
2461: IF l_debug_level > 0 THEN
2462: oe_debug_pub.add(I || ': '|| P_X_OPTIONS_TBL (I).COMPONENT_CODE , 2 );
2463: END IF;
2464:
2465: l_parent :=
2466: SUBSTR(p_component_code, 1, INSTR(p_component_code, '-', -1) - 1);
2468: IF l_parent = p_x_options_tbl(I).component_code AND
2469: p_x_options_tbl(I).component_code <> p_model_component
2470: THEN
2471: IF l_debug_level > 0 THEN
2472: oe_debug_pub.add('PARENT TO BE MODIFIED '
2473: || P_X_OPTIONS_TBL (I).COMPONENT_CODE , 3 );
2474: END IF;
2475:
2476:
2480:
2481: -- recursive call.
2482:
2483: IF l_debug_level > 0 THEN
2484: oe_debug_pub.add('RECURSIVE CALL'|| P_MODEL_COMPONENT , 1);
2485: END IF;
2486:
2487: Propogate_Change_To_Parent
2488: (p_x_options_tbl => p_x_options_tbl
2491: ,p_model_component => p_model_component
2492: ,p_ui_flag => p_ui_flag);
2493:
2494: IF l_debug_level > 0 THEN
2495: oe_debug_pub.add('MY CALL WORK DONE' , 1);
2496: END IF;
2497: RETURN;
2498: END IF;
2499: I := p_x_options_tbl.NEXT(I);
2499: I := p_x_options_tbl.NEXT(I);
2500: END LOOP;
2501:
2502: IF l_debug_level > 0 THEN
2503: oe_debug_pub.add('PARENT NOT FOUND??' , 1);
2504: END IF;
2505:
2506: END IF;
2507:
2505:
2506: END IF;
2507:
2508: IF l_debug_level > 0 THEN
2509: oe_debug_pub.add('LEAVING PROPOGATE_CHANGE_TO_PARENT'
2510: || P_COMPONENT_CODE , 1);
2511: END IF;
2512: EXCEPTION
2513: WHEN OTHERS THEN
2511: END IF;
2512: EXCEPTION
2513: WHEN OTHERS THEN
2514: IF l_debug_level > 0 THEN
2515: oe_debug_pub.add('ECXEPTION IN PROPOGATE_CHANGE_TO_PARENT'
2516: || SQLERRM , 1);
2517: END IF;
2518: RAISE;
2519: END Propogate_Change_To_Parent;
2537: l_parent VARCHAR2(1000);
2538: l_count NUMBER;
2539: I NUMBER;
2540: --
2541: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2542: --
2543: BEGIN
2544: IF l_debug_level > 0 THEN
2545: oe_debug_pub.add('ENTERING NO_MORE_CHILDREN_LEFT'|| P_UI_FLAG , 1);
2541: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2542: --
2543: BEGIN
2544: IF l_debug_level > 0 THEN
2545: oe_debug_pub.add('ENTERING NO_MORE_CHILDREN_LEFT'|| P_UI_FLAG , 1);
2546: END IF;
2547:
2548: l_parent :=
2549: SUBSTR(p_component_code, 1, INSTR(p_component_code, '-', -1) - 1);
2548: l_parent :=
2549: SUBSTR(p_component_code, 1, INSTR(p_component_code, '-', -1) - 1);
2550:
2551: IF l_debug_level > 0 THEN
2552: oe_debug_pub.add('PARENT: '|| L_PARENT , 3 );
2553: END IF;
2554:
2555: IF l_parent = p_model_component THEN
2556: IF l_debug_level > 0 THEN
2553: END IF;
2554:
2555: IF l_parent = p_model_component THEN
2556: IF l_debug_level > 0 THEN
2557: oe_debug_pub.add('PARENT IS A MODEL' , 1);
2558: END IF;
2559: RETURN FALSE;
2560: END IF;
2561:
2574: p_x_options_tbl(I).ordered_quantity = 0) -- cancel
2575:
2576: THEN
2577: IF l_debug_level > 0 THEN
2578: oe_debug_pub.add('OPTION UNDER SAME PARENT EXISTS' , 3 );
2579: END IF;
2580: RETURN FALSE;
2581: END IF;
2582:
2583: I := p_x_options_tbl.NEXT(I);
2584: END LOOP;
2585:
2586: IF l_debug_level > 0 THEN
2587: oe_debug_pub.add('CAME OUT OF LOOP' , 3 );
2588: END IF;
2589:
2590: -- use sql, may be included item exist.
2591: l_count := 0;
2604: AND open_flag = 'Y' );
2605:
2606: IF l_count > 0 THEN
2607: IF l_debug_level > 0 THEN
2608: oe_debug_pub.add('SOME MORE OPTIONS EXIST' , 1);
2609: END IF;
2610: RETURN FALSE;
2611: END IF;
2612:
2610: RETURN FALSE;
2611: END IF;
2612:
2613: IF l_debug_level > 0 THEN
2614: oe_debug_pub.add('LEAVING NO_MORE_CHILDREN_LEFT' , 1);
2615: END IF;
2616:
2617: RETURN TRUE;
2618: EXCEPTION
2617: RETURN TRUE;
2618: EXCEPTION
2619: WHEN OTHERS THEN
2620: IF l_debug_level > 0 THEN
2621: oe_debug_pub.add('ECXEPTION IN NO_MORE_CHILDREN_LEFT'|| SQLERRM , 1);
2622: END IF;
2623: RAISE;
2624: END No_More_Children_Left;
2625:
2665: l_source_document_type_id NUMBER;
2666: l_source_document_id NUMBER;
2667: l_source_document_line_id NUMBER;
2668: --
2669: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2670: --
2671: BEGIN
2672:
2673: IF l_debug_level > 0 THEN
2670: --
2671: BEGIN
2672:
2673: IF l_debug_level > 0 THEN
2674: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.VALIDATE_CONFIGURATION' , 1);
2675: END IF;
2676:
2677:
2678: -- No Copy Changes. Initialized return status to success
2714: l_use_configurator := OE_Process_Options_Pvt.Use_Configurator;
2715:
2716: IF l_use_configurator THEN
2717: IF l_debug_level > 0 THEN
2718: oe_debug_pub.add('USE CONFIGURATOR IS TRUE' , 1);
2719: END IF;
2720: END IF;
2721:
2722: IF l_config_hdr_id is NOT NULL AND
2721:
2722: IF l_config_hdr_id is NOT NULL AND
2723: l_config_rev_nbr is NOT NULL THEN
2724: IF l_debug_level > 0 THEN
2725: oe_debug_pub.add('CONFIGURATOR WAS USED' , 1);
2726: END IF;
2727: l_configurator_was_used := 0;
2728: ELSIF
2729: l_configuration_id is NOT NULL THEN
2727: l_configurator_was_used := 0;
2728: ELSIF
2729: l_configuration_id is NOT NULL THEN
2730: IF l_debug_level > 0 THEN
2731: oe_debug_pub.add('OPTIONS WINDOW WAS USED' , 1);
2732: END IF;
2733: l_configurator_was_used := 1;
2734: ELSE
2735: IF l_debug_level > 0 THEN
2732: END IF;
2733: l_configurator_was_used := 1;
2734: ELSE
2735: IF l_debug_level > 0 THEN
2736: oe_debug_pub.add('NEW CONFIGURATION BEING CREATED' , 1);
2737: END IF;
2738: l_configurator_was_used := 2;
2739: END IF;
2740:
2751: x_complete_config => x_complete_config,
2752: x_return_status => x_return_status);
2753:
2754: IF l_debug_level > 0 THEN
2755: oe_debug_pub.add('RETURNING AFTER CONFIGURATOR_VALIDATION'
2756: || X_RETURN_STATUS , 2 );
2757: END IF;
2758: RETURN;
2759: END IF;
2775: x_complete_config => x_complete_config,
2776: x_return_status => x_return_status);
2777:
2778: IF l_debug_level > 0 THEN
2779: oe_debug_pub.add('RETURNING AFTER BOM_CONFIG_VALIDATION'
2780: || X_RETURN_STATUS , 2 );
2781: END IF;
2782: RETURN;
2783: END IF;
2803:
2804: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
2805:
2806: IF l_debug_level > 0 THEN
2807: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.VALIDATE_CONFIGURATION' , 1);
2808: END IF;
2809: EXCEPTION
2810:
2811: WHEN FND_API.G_EXC_ERROR THEN
2819:
2820:
2821: WHEN OTHERS THEN
2822: IF l_debug_level > 0 THEN
2823: oe_debug_pub.add('ERROR IN VALIDATE_CONFIGURATION : '
2824: || SUBSTR ( SQLERRM , 1 , 100 ) , 1);
2825: END IF;
2826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2827:
2892: l_return_status VARCHAR2(1) :=
2893: FND_API.G_RET_STS_SUCCESS;
2894: I NUMBER;
2895: --
2896: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2897: --
2898: BEGIN
2899:
2900: IF l_debug_level > 0 THEN
2897: --
2898: BEGIN
2899:
2900: IF l_debug_level > 0 THEN
2901: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.SEND_INPUT_XML' , 1);
2902: oe_debug_pub.add('UIMANAGER URL: ' || L_URL , 2 );
2903: END IF;
2904:
2905:
2898: BEGIN
2899:
2900: IF l_debug_level > 0 THEN
2901: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.SEND_INPUT_XML' , 1);
2902: oe_debug_pub.add('UIMANAGER URL: ' || L_URL , 2 );
2903: END IF;
2904:
2905:
2906: l_xml_hdr := p_xml_hdr;
2904:
2905:
2906: l_xml_hdr := p_xml_hdr;
2907: IF l_debug_level > 0 THEN
2908: oe_debug_pub.add('LENGTH OF INI MSG: ' || LENGTH ( L_XML_HDR ) , 2 );
2909: END IF;
2910:
2911:
2912: -- if there is change in model qty and we have cascaded it
2941: l_option.input_seq := l_sequence;
2942:
2943: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
2944: IF l_debug_level > 0 THEN
2945: oe_debug_pub.add('SEND XML UCFGB MI , PACK H NEW LOGIC' , 3 );
2946: END IF;
2947: l_option.config_item_id := l_configuration_id;
2948: END IF;
2949:
2949:
2950: l_batch_val_tbl(l_sequence) := l_option;
2951:
2952: IF l_debug_level > 0 THEN
2953: oe_debug_pub.add('NEW MODEL QTY: '|| P_MODEL_QTY , 2 );
2954: END IF;
2955:
2956: END IF;
2957:
2956: END IF;
2957:
2958: -- get the options from the from databse.
2959: IF l_debug_level > 0 THEN
2960: oe_debug_pub.add('GETTING PREVIOUSLY SAVED OPTIONS FROM DB' , 2 );
2961: END IF;
2962:
2963: OE_Process_Options_Pvt.Get_Options_From_DB
2964: ( p_top_model_line_id => p_model_line_id
2965: ,x_disabled_options => l_flag
2966: ,x_options_tbl => l_db_options_tbl);
2967:
2968: IF l_debug_level > 0 THEN
2969: oe_debug_pub.add('cursor GET NEWLY INSERTED OPTIONS '|| l_flag , 2 );
2970: END IF;
2971:
2972: I := l_db_options_tbl.FIRST;
2973: WHILE I is not NULL
2972: I := l_db_options_tbl.FIRST;
2973: WHILE I is not NULL
2974: LOOP
2975: IF l_debug_level > 0 THEN
2976: oe_debug_pub.add('GET_OPTION : '
2977: || L_DB_OPTIONS_TBL (I).COMPONENT_CODE , 2 );
2978: END IF;
2979:
2980: l_sequence := l_sequence + 1;
2983: l_option.input_seq := l_sequence;
2984:
2985: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
2986: IF l_debug_level > 0 THEN
2987: oe_debug_pub.add('SEND XML UCFGB MI , PACK H NEW LOGIC' , 3 );
2988: END IF;
2989: l_option.config_item_id
2990: := l_db_options_tbl(I).configuration_id;
2991: END IF;
2990: := l_db_options_tbl(I).configuration_id;
2991: END IF;
2992:
2993: IF l_debug_level > 0 THEN
2994: oe_debug_pub.add('QTY RATIO : '
2995: || L_DB_OPTIONS_TBL (I).ORDERED_QUANTITY/P_MODEL_QTY , 2 );
2996: oe_debug_pub.add('OE QTY: '
2997: || L_DB_OPTIONS_TBL (I).ORDERED_QUANTITY , 2 );
2998: END IF;
2992:
2993: IF l_debug_level > 0 THEN
2994: oe_debug_pub.add('QTY RATIO : '
2995: || L_DB_OPTIONS_TBL (I).ORDERED_QUANTITY/P_MODEL_QTY , 2 );
2996: oe_debug_pub.add('OE QTY: '
2997: || L_DB_OPTIONS_TBL (I).ORDERED_QUANTITY , 2 );
2998: END IF;
2999:
3000: l_option.quantity := l_db_options_tbl(I).ordered_quantity;
3001:
3002: l_batch_val_tbl(l_sequence) := l_option;
3003:
3004: IF l_debug_level > 0 THEN
3005: oe_debug_pub.add(L_SEQUENCE||' '
3006: ||L_DB_OPTIONS_TBL (I).CONFIGURATION_ID , 2 );
3007: END IF;
3008:
3009: I := l_db_options_tbl.NEXT(I);
3009: I := l_db_options_tbl.NEXT(I);
3010: END LOOP;
3011:
3012: IF l_debug_level > 0 THEN
3013: oe_debug_pub.add('OUT OF NEWLY INSERTED OPTIONS LOOP' , 2 );
3014: END IF;
3015:
3016:
3017: --------------- send updated options/classes----------------
3017: --------------- send updated options/classes----------------
3018:
3019:
3020: IF l_debug_level > 0 THEN
3021: oe_debug_pub.add('NO. OF UPDATED OPTIONS: '
3022: ||P_UPDATED_OPTIONS_TBL.COUNT , 2 );
3023: oe_debug_pub.add('ENTERING LOOP TO PASS UPDATED OPTIONS' , 2 );
3024: END IF;
3025:
3019:
3020: IF l_debug_level > 0 THEN
3021: oe_debug_pub.add('NO. OF UPDATED OPTIONS: '
3022: ||P_UPDATED_OPTIONS_TBL.COUNT , 2 );
3023: oe_debug_pub.add('ENTERING LOOP TO PASS UPDATED OPTIONS' , 2 );
3024: END IF;
3025:
3026:
3027: l_rec_index := 1;
3028:
3029: FOR I IN 1..p_updated_options_tbl.COUNT
3030: LOOP
3031: IF l_debug_level > 0 THEN
3032: oe_debug_pub.add('WITHIN THE LOOP OF P_UPDATED_OPTIONS_TBL' , 2 );
3033: oe_debug_pub.add('L_REC_INDEX: ' || L_REC_INDEX , 2 );
3034: END IF;
3035:
3036: l_req_rec := p_updated_options_tbl(l_rec_index);
3029: FOR I IN 1..p_updated_options_tbl.COUNT
3030: LOOP
3031: IF l_debug_level > 0 THEN
3032: oe_debug_pub.add('WITHIN THE LOOP OF P_UPDATED_OPTIONS_TBL' , 2 );
3033: oe_debug_pub.add('L_REC_INDEX: ' || L_REC_INDEX , 2 );
3034: END IF;
3035:
3036: l_req_rec := p_updated_options_tbl(l_rec_index);
3037:
3035:
3036: l_req_rec := p_updated_options_tbl(l_rec_index);
3037:
3038: IF l_debug_level > 0 THEN
3039: oe_debug_pub.add('UPDATE LINE_ID: ' || L_REQ_REC.ENTITY_ID , 2 );
3040: oe_debug_pub.add('COMPONENT_CODE: ' || L_REQ_REC.PARAM2 , 2 );
3041: END IF;
3042:
3043: l_sequence := l_sequence + 1;
3036: l_req_rec := p_updated_options_tbl(l_rec_index);
3037:
3038: IF l_debug_level > 0 THEN
3039: oe_debug_pub.add('UPDATE LINE_ID: ' || L_REQ_REC.ENTITY_ID , 2 );
3040: oe_debug_pub.add('COMPONENT_CODE: ' || L_REQ_REC.PARAM2 , 2 );
3041: END IF;
3042:
3043: l_sequence := l_sequence + 1;
3044:
3046: l_option.input_seq := l_sequence;
3047:
3048: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
3049: IF l_debug_level > 0 THEN
3050: oe_debug_pub.add('UPD , SEND XML MI , PACK H NEW LOGIC' , 3 );
3051: END IF;
3052: l_option.config_item_id := l_req_rec.param9;
3053: END IF;
3054:
3054:
3055: -- check if integer
3056:
3057: IF l_debug_level > 0 THEN
3058: oe_debug_pub.add(L_REQ_REC.PARAM2
3059: || ' OPTION UPDATED TO A QTY OF: ' || L_REQ_REC.PARAM5 , 3 );
3060: END IF;
3061:
3062: l_option.quantity := l_req_rec.param5;
3064: l_batch_val_tbl(l_sequence) := l_option;
3065: l_rec_index := l_rec_index + 1;
3066:
3067: IF l_debug_level > 0 THEN
3068: oe_debug_pub.add(L_SEQUENCE||' SEQ '||L_REQ_REC.PARAM9 , 2 );
3069: END IF;
3070:
3071: END LOOP;
3072:
3070:
3071: END LOOP;
3072:
3073: IF l_debug_level > 0 THEN
3074: oe_debug_pub.add('LEAVING LOOP TO PASS UPDATED OPTIONS' , 2 );
3075: END IF;
3076:
3077:
3078:
3078:
3079: ------------ send deleted options/classes-------------------
3080:
3081: IF l_debug_level > 0 THEN
3082: oe_debug_pub.add('NO. OF DELETED OPTIONS: '
3083: ||P_DELETED_OPTIONS_TBL.COUNT , 2 );
3084: oe_debug_pub.add('ENTERING LOOP TO PASS DELETED OPTIONS' , 2 );
3085: END IF;
3086:
3080:
3081: IF l_debug_level > 0 THEN
3082: oe_debug_pub.add('NO. OF DELETED OPTIONS: '
3083: ||P_DELETED_OPTIONS_TBL.COUNT , 2 );
3084: oe_debug_pub.add('ENTERING LOOP TO PASS DELETED OPTIONS' , 2 );
3085: END IF;
3086:
3087: l_rec_index := 1;
3088: FOR I IN 1..p_deleted_options_tbl.COUNT
3088: FOR I IN 1..p_deleted_options_tbl.COUNT
3089: LOOP
3090:
3091: IF l_debug_level > 0 THEN
3092: oe_debug_pub.add('WITHIN THE LOOP OF P_DELETED_OPTIONS_TBL' , 2 );
3093: oe_debug_pub.add('L_REC_INDEX: ' || L_REC_INDEX , 2 );
3094: END IF;
3095:
3096:
3089: LOOP
3090:
3091: IF l_debug_level > 0 THEN
3092: oe_debug_pub.add('WITHIN THE LOOP OF P_DELETED_OPTIONS_TBL' , 2 );
3093: oe_debug_pub.add('L_REC_INDEX: ' || L_REC_INDEX , 2 );
3094: END IF;
3095:
3096:
3097: l_req_rec := p_deleted_options_tbl(l_rec_index);
3095:
3096:
3097: l_req_rec := p_deleted_options_tbl(l_rec_index);
3098: IF l_debug_level > 0 THEN
3099: oe_debug_pub.add('ENTITY ID: ' || L_REQ_REC.ENTITY_ID , 2 );
3100: oe_debug_pub.add('COMPONENT_CODE: ' || L_REQ_REC.PARAM2 , 2 );
3101: END IF;
3102:
3103: l_sequence := l_sequence + 1;
3096:
3097: l_req_rec := p_deleted_options_tbl(l_rec_index);
3098: IF l_debug_level > 0 THEN
3099: oe_debug_pub.add('ENTITY ID: ' || L_REQ_REC.ENTITY_ID , 2 );
3100: oe_debug_pub.add('COMPONENT_CODE: ' || L_REQ_REC.PARAM2 , 2 );
3101: END IF;
3102:
3103: l_sequence := l_sequence + 1;
3104:
3108:
3109:
3110: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
3111: IF l_debug_level > 0 THEN
3112: oe_debug_pub.add('DEL , SEND XML MI , PACK H NEW LOGIC' , 3 );
3113: END IF;
3114: l_option.config_item_id
3115: := l_req_rec.param9;
3116: END IF;
3118: l_batch_val_tbl(l_sequence) := l_option;
3119: l_rec_index := l_rec_index + 1;
3120:
3121: IF l_debug_level > 0 THEN
3122: oe_debug_pub.add(L_SEQUENCE||' SEQ '||L_REQ_REC.PARAM9 , 2 );
3123: END IF;
3124: END LOOP;
3125:
3126: IF l_debug_level > 0 THEN
3123: END IF;
3124: END LOOP;
3125:
3126: IF l_debug_level > 0 THEN
3127: oe_debug_pub.add('OUT OF INSERT/UPDATE/DELETE OPTIONS LOOPS ' , 1);
3128: END IF;
3129:
3130:
3131: -- delete previous data.
3137: --get_transaction_id
3138: --(p_caller => 'inside send_xml, before call to SPC validate');
3139: -- Added debug for bug 13435459
3140: IF l_debug_level > 0 THEN
3141: oe_debug_pub.add( 'CALLING CZ_BATCH_VALIDATE.Validate' , 0.5);
3142: END IF;
3143:
3144: CZ_BATCH_VALIDATE.Validate
3145: ( config_input_list => l_batch_val_tbl ,
3152: --get_transaction_id
3153: --(p_caller => 'inside send_xml, after call to SPC validate');
3154:
3155: IF l_debug_level > 0 THEN
3156: oe_debug_pub.add('AFTER CALL TO SPC , STATUS : ' ||L_VALIDATION_STATUS , 1);
3157: oe_debug_pub.add( 'AFTER CZ_BATCH_VALIDATE.Validate' , 0.5); -- Added debug for bug 13435459
3158: END IF;
3159:
3160: IF l_validation_status <> 0 THEN
3153: --(p_caller => 'inside send_xml, after call to SPC validate');
3154:
3155: IF l_debug_level > 0 THEN
3156: oe_debug_pub.add('AFTER CALL TO SPC , STATUS : ' ||L_VALIDATION_STATUS , 1);
3157: oe_debug_pub.add( 'AFTER CZ_BATCH_VALIDATE.Validate' , 0.5); -- Added debug for bug 13435459
3158: END IF;
3159:
3160: IF l_validation_status <> 0 THEN
3161: IF l_debug_level > 0 THEN
3158: END IF;
3159:
3160: IF l_validation_status <> 0 THEN
3161: IF l_debug_level > 0 THEN
3162: oe_debug_pub.add('DO NOT PROCESS RESULTS , ERROR ',1);
3163: END IF;
3164: RAISE FND_API.G_EXC_ERROR;
3165: END IF;
3166:
3165: END IF;
3166:
3167: IF (l_html_pieces.COUNT <= 0) THEN
3168: IF l_debug_level > 0 THEN
3169: oe_debug_pub.add('HTML_PIECES COUNT IS <= 0' , 2 );
3170: END IF;
3171: RAISE FND_API.G_EXC_ERROR;
3172: END IF;
3173:
3174:
3175: l_rec_index := l_html_pieces.FIRST;
3176: LOOP
3177: IF l_debug_level > 0 THEN
3178: oe_debug_pub.add(L_REC_INDEX ||': PART OF OUTPUT_MESSAGE: '
3179: || SUBSTR ( L_HTML_PIECES ( L_REC_INDEX ) , 1 , 100 ) , 2 );
3180: END IF;
3181:
3182: l_long_xml := l_long_xml || l_html_pieces(l_rec_index);
3190: x_out_xml_msg := l_long_xml;
3191: x_return_status := l_return_status;
3192:
3193: IF l_debug_level > 0 THEN
3194: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.SEND_INPUT_XML' , 1);
3195: END IF;
3196:
3197: EXCEPTION
3198: WHEN FND_API.G_EXC_ERROR THEN
3207: --get_transaction_id
3208: --(p_caller => 'send_xml unxp, before call to SPC validate');
3209: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3210: IF l_debug_level > 0 THEN
3211: oe_debug_pub.add('AN UNEXP ERROR RAISED' , 1);
3212: END IF;
3213:
3214: IF l_debug_level > 0 THEN
3215: oe_debug_pub.add('SEND_INPUT_XML ERROR: '
3211: oe_debug_pub.add('AN UNEXP ERROR RAISED' , 1);
3212: END IF;
3213:
3214: IF l_debug_level > 0 THEN
3215: oe_debug_pub.add('SEND_INPUT_XML ERROR: '
3216: || SUBSTR ( SQLERRM , 1 , 100 ) , 1);
3217: END IF;
3218:
3219:
3223:
3224: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3225:
3226: IF l_debug_level > 0 THEN
3227: oe_debug_pub.add
3228: ('SEND_INPUT_XML ERROR: ' || SUBSTR ( SQLERRM , 1 , 100 ) , 1);
3229: END IF;
3230:
3231: END Send_input_xml;
3285: l_config_effective_date DATE;
3286: l_old_behavior VARCHAR2(1);
3287: l_frozen_model_bill VARCHAR2(1);
3288: --
3289: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3290: --
3291: BEGIN
3292:
3293: IF l_debug_level > 0 THEN
3290: --
3291: BEGIN
3292:
3293: IF l_debug_level > 0 THEN
3294: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.CREATE_HDR_XML' , 1);
3295: END IF;
3296:
3297: OE_LINE_UTIL.Query_Row(p_line_id => p_model_line_id
3298: ,x_line_rec => l_model_line_rec);
3308: l_model_quantity := to_char(l_model_line_rec.ordered_quantity);
3309:
3310:
3311: IF l_debug_level > 0 THEN
3312: oe_debug_pub.add('QUERIED FROM OE_LINES: ' || ' QTY: '
3313: || L_MODEL_QUANTITY || ' CONFIG-HDR: '
3314: || L_CONFIG_HEADER_ID || ' CONFIG-REV: '
3315: || L_CONFIG_REV_NBR || ' ORG-ID: '
3316: || L_CONTEXT_ORG_ID || ' ITEM-ID: '
3319:
3320: -- profiles and env. variables.
3321: l_database_id := fnd_web_config.database_id;
3322: IF l_debug_level > 0 THEN
3323: oe_debug_pub.add('DATABASE_ID: '|| L_DATABASE_ID , 2 );
3324: END IF;
3325:
3326: -- set param_names
3327:
3376: param_value(17) := to_char(l_model_line_rec.line_id);
3377:
3378: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
3379: IF l_debug_level > 0 THEN
3380: oe_debug_pub.add('UCFGB MI , PACK H NEW LOGIC' , 1);
3381: END IF;
3382: param_value(18) := 'TRUE';
3383: ELSE
3384: param_value(18) := 'FALSE';
3398: param_value(19) := null;
3399: param_value(20) := null;
3400:
3401: IF l_debug_level > 0 THEN
3402: oe_debug_pub.add('old behavior no dates', 2 );
3403: END IF;
3404: END IF;
3405:
3406:
3411: l_configurator_session_key
3412: := ( p_model_line_id || '#' || l_session_id);
3413:
3414: IF l_debug_level > 0 THEN
3415: oe_debug_pub.add('CONFIG SESSION KEY : '
3416: || L_CONFIGURATOR_SESSION_KEY , 2 );
3417: END IF;
3418:
3419: param_value(23) := l_configurator_session_key;
3419: param_value(23) := l_configurator_session_key;
3420: END IF;
3421:
3422: IF l_debug_level > 0 THEN
3423: oe_debug_pub.add('INSIDE CREATE_HDR_XML , PARAMETERS ARE SET' , 2 );
3424: END IF;
3425:
3426:
3427: l_rec_index := 1;
3453: l_xml_hdr := l_xml_hdr || '';
3454: l_xml_hdr := REPLACE(l_xml_hdr, ' ' , '+');
3455:
3456: IF l_debug_level > 0 THEN
3457: oe_debug_pub.add('1ST PART OF CREATE_HDR_XML IS : '
3458: ||SUBSTR ( L_XML_HDR , 1 , 200 ) , 3 );
3459: oe_debug_pub.add('2ND PART OF CREATE_HDR_XML IS : '
3460: ||SUBSTR ( L_XML_HDR , 201 , 200 ) , 3 );
3461: oe_debug_pub.add('3RD PART OF CREATE_HDR_XML IS : '
3455:
3456: IF l_debug_level > 0 THEN
3457: oe_debug_pub.add('1ST PART OF CREATE_HDR_XML IS : '
3458: ||SUBSTR ( L_XML_HDR , 1 , 200 ) , 3 );
3459: oe_debug_pub.add('2ND PART OF CREATE_HDR_XML IS : '
3460: ||SUBSTR ( L_XML_HDR , 201 , 200 ) , 3 );
3461: oe_debug_pub.add('3RD PART OF CREATE_HDR_XML IS : '
3462: ||SUBSTR ( L_XML_HDR , 401 , 200 ) , 3 );
3463: oe_debug_pub.add('4TH PART OF CREATE_HDR_XML IS : '
3457: oe_debug_pub.add('1ST PART OF CREATE_HDR_XML IS : '
3458: ||SUBSTR ( L_XML_HDR , 1 , 200 ) , 3 );
3459: oe_debug_pub.add('2ND PART OF CREATE_HDR_XML IS : '
3460: ||SUBSTR ( L_XML_HDR , 201 , 200 ) , 3 );
3461: oe_debug_pub.add('3RD PART OF CREATE_HDR_XML IS : '
3462: ||SUBSTR ( L_XML_HDR , 401 , 200 ) , 3 );
3463: oe_debug_pub.add('4TH PART OF CREATE_HDR_XML IS : '
3464: ||SUBSTR ( L_XML_HDR , 601 , 200 ) , 3 );
3465: END IF;
3459: oe_debug_pub.add('2ND PART OF CREATE_HDR_XML IS : '
3460: ||SUBSTR ( L_XML_HDR , 201 , 200 ) , 3 );
3461: oe_debug_pub.add('3RD PART OF CREATE_HDR_XML IS : '
3462: ||SUBSTR ( L_XML_HDR , 401 , 200 ) , 3 );
3463: oe_debug_pub.add('4TH PART OF CREATE_HDR_XML IS : '
3464: ||SUBSTR ( L_XML_HDR , 601 , 200 ) , 3 );
3465: END IF;
3466:
3467: x_xml_hdr := l_xml_hdr;
3465: END IF;
3466:
3467: x_xml_hdr := l_xml_hdr;
3468: IF l_debug_level > 0 THEN
3469: oe_debug_pub.add('LENGTH OF INI MSG:' || LENGTH ( L_XML_HDR ) , 3 );
3470: oe_debug_pub.add('LEAVING CREATE_HDR_XML' , 3 );
3471: END IF;
3472: EXCEPTION
3473: when others then
3466:
3467: x_xml_hdr := l_xml_hdr;
3468: IF l_debug_level > 0 THEN
3469: oe_debug_pub.add('LENGTH OF INI MSG:' || LENGTH ( L_XML_HDR ) , 3 );
3470: oe_debug_pub.add('LEAVING CREATE_HDR_XML' , 3 );
3471: END IF;
3472: EXCEPTION
3473: when others then
3474: IF l_debug_level > 0 THEN
3471: END IF;
3472: EXCEPTION
3473: when others then
3474: IF l_debug_level > 0 THEN
3475: oe_debug_pub.add('EXCEPTION IN CREATE_HDR_XML '|| SQLERRM , 3 );
3476: END IF;
3477: RAISE;
3478: END Create_hdr_xml;
3479:
3551: l_constraint VARCHAR2(16);
3552: l_flag VARCHAR2(1) := 'N';
3553:
3554: --
3555: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3556: --
3557: BEGIN
3558:
3559: IF l_debug_level > 0 THEN
3556: --
3557: BEGIN
3558:
3559: IF l_debug_level > 0 THEN
3560: oe_debug_pub.add('ENTERING OE_CONGIG_UTIL.PARSE_OUTPUT_XML' , 1);
3561: END IF;
3562:
3563:
3564: l_exit_start_pos :=
3571: l_exit := SUBSTR (p_xml, l_exit_start_pos,
3572: l_exit_end_pos - l_exit_start_pos + 1);
3573:
3574: IF l_debug_level > 0 THEN
3575: oe_debug_pub.add('L_EXIT: ' || L_EXIT , 3 );
3576: END IF;
3577:
3578: -- if error go to msg etc.
3579: IF nvl(l_exit,'ERROR') <> 'ERROR' THEN
3589: l_valid_config_end_pos -
3590: l_valid_config_start_pos + 1);
3591:
3592: IF l_debug_level > 0 THEN
3593: oe_debug_pub.add('GG1: '|| L_VALID_CONFIG , 3 );
3594: END IF;
3595:
3596: /* ex :-
3597: 1st instr : posin of a(22), 2nd instr gives posn of c(24)
3608: l_complete_config_end_pos -
3609: l_complete_config_start_pos + 1);
3610:
3611: IF l_debug_level > 0 THEN
3612: oe_debug_pub.add('GG2: '|| L_COMPLETE_CONFIG , 3 );
3613: END IF;
3614:
3615:
3616: IF (nvl(l_valid_config, 'N') <> 'TRUE') THEN
3614:
3615:
3616: IF (nvl(l_valid_config, 'N') <> 'TRUE') THEN
3617: IF l_debug_level > 0 THEN
3618: oe_debug_pub.add('SPC RETURNED VALID_FLAG AS NULL/FALSE' , 2 );
3619: END IF;
3620: l_flag := 'Y';
3621: END IF ;
3622:
3622:
3623:
3624: IF (nvl(l_complete_config, 'N') <> 'TRUE' ) THEN
3625: IF l_debug_level > 0 THEN
3626: oe_debug_pub.add('COMPLETE_FLAG AS NULL/FALSE' , 2 );
3627: END IF;
3628: l_flag := 'Y';
3629: END IF;
3630:
3628: l_flag := 'Y';
3629: END IF;
3630:
3631: IF l_debug_level > 0 THEN
3632: oe_debug_pub.add('SPC VALID_CONFIG FLAG: ' || L_VALID_CONFIG , 2 );
3633: oe_debug_pub.add('COMPLETE_CONFIG FLAG: ' || L_COMPLETE_CONFIG , 2 );
3634: END IF;
3635:
3636: END IF; /* if not error */
3629: END IF;
3630:
3631: IF l_debug_level > 0 THEN
3632: oe_debug_pub.add('SPC VALID_CONFIG FLAG: ' || L_VALID_CONFIG , 2 );
3633: oe_debug_pub.add('COMPLETE_CONFIG FLAG: ' || L_COMPLETE_CONFIG , 2 );
3634: END IF;
3635:
3636: END IF; /* if not error */
3637:
3648: l_message_text_end_pos -
3649: l_message_text_start_pos + 1);
3650:
3651: IF l_debug_level > 0 THEN
3652: oe_debug_pub.add('GG3: '|| L_MESSAGE_TEXT , 3 );
3653: END IF;
3654:
3655: l_message_type_start_pos :=
3656: INSTR(p_xml, l_message_type_start_tag,1, 1) +
3666: -- get the latest config_header_id, and rev_nbr to get
3667: -- messages if any.
3668:
3669: IF l_debug_level > 0 THEN
3670: oe_debug_pub.add('SPC RETURNED MESSAGE_TEXT: '|| L_MESSAGE_TEXT , 2 );
3671: oe_debug_pub.add('SPC RETURNED MESSAGE_TYPE: '|| L_MESSAGE_TYPE , 2 );
3672: END IF;
3673:
3674:
3667: -- messages if any.
3668:
3669: IF l_debug_level > 0 THEN
3670: oe_debug_pub.add('SPC RETURNED MESSAGE_TEXT: '|| L_MESSAGE_TEXT , 2 );
3671: oe_debug_pub.add('SPC RETURNED MESSAGE_TYPE: '|| L_MESSAGE_TYPE , 2 );
3672: END IF;
3673:
3674:
3675: l_config_header_id_start_pos :=
3697: l_config_rev_nbr_end_pos -
3698: l_config_rev_nbr_start_pos + 1));
3699:
3700: IF l_debug_level > 0 THEN
3701: oe_debug_pub.add('CONFIG_HEADER_ID AS:' || L_CONFIG_HEADER_ID , 2 );
3702: oe_debug_pub.add('CONFIG_REV_NBR AS:' || L_CONFIG_REV_NBR , 2 );
3703: END IF;
3704:
3705:
3698: l_config_rev_nbr_start_pos + 1));
3699:
3700: IF l_debug_level > 0 THEN
3701: oe_debug_pub.add('CONFIG_HEADER_ID AS:' || L_CONFIG_HEADER_ID , 2 );
3702: oe_debug_pub.add('CONFIG_REV_NBR AS:' || L_CONFIG_REV_NBR , 2 );
3703: END IF;
3704:
3705:
3706: IF (l_flag = 'Y' ) OR
3707: l_exit is NULL OR
3708: l_exit = 'ERROR' THEN
3709:
3710: IF l_debug_level > 0 THEN
3711: oe_debug_pub.add('GETTING MESSAGES FROM CZ_CONFIG_MESSAGES' , 2 );
3712: END IF;
3713:
3714: Message_From_Cz
3715: ( p_line_id => p_line_id,
3727: IF l_exit is NULL OR
3728: l_exit = 'ERROR' THEN
3729:
3730: IF l_debug_level > 0 THEN
3731: oe_debug_pub.add('SPC RETURNED ERROR , FAIL TRANSACTION' , 2 );
3732: END IF;
3733:
3734: -- delete the SPC configuration in error
3735: OE_Config_Pvt.Delete_Config
3749: x_valid_config := nvl(l_valid_config, 'FALSE');
3750:
3751:
3752: IF l_debug_level > 0 THEN
3753: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.PARSE_OUTPUT_XML' , 1);
3754: END IF;
3755:
3756: EXCEPTION
3757: WHEN FND_API.G_EXC_ERROR THEN
3756: EXCEPTION
3757: WHEN FND_API.G_EXC_ERROR THEN
3758: x_return_status := FND_API.G_RET_STS_ERROR;
3759: IF l_debug_level > 0 THEN
3760: oe_debug_pub.add('SPC EXIT TAG IS ERROR' , 1);
3761: END IF;
3762:
3763: WHEN OTHERS THEN
3764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3762:
3763: WHEN OTHERS THEN
3764: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3765: IF l_debug_level > 0 THEN
3766: oe_debug_pub.add('PARSE_OUTPUT_XML ERROR: '
3767: || SUBSTR ( SQLERRM , 1 , 100 ) , 1);
3768: END IF;
3769:
3770: END Parse_output_xml;
3793: TOP_MODEL_LINE_ID = p_top_model_line_id
3794: ORDER BY line_number,shipment_number,nvl(option_number,-1),nvl(component_number,-1);
3795:
3796: --
3797: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3798: --
3799: BEGIN
3800:
3801: IF l_debug_level > 0 THEN
3798: --
3799: BEGIN
3800:
3801: IF l_debug_level > 0 THEN
3802: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_OPTIONS' , 1);
3803: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
3804: END IF;
3805:
3806: BEGIN
3799: BEGIN
3800:
3801: IF l_debug_level > 0 THEN
3802: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_OPTIONS' , 1);
3803: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
3804: END IF;
3805:
3806: BEGIN
3807: SELECT header_id
3824: l_line_rec.source_type_code =
3825: nvl(p_source_type, l_line_rec.source_type_code) THEN
3826:
3827: IF l_debug_level > 0 THEN
3828: oe_debug_pub.add(L_LINE_REC.SOURCE_TYPE_CODE||' ADDING '
3829: ||L_LINE_REC.OPEN_FLAG , 3 );
3830: END IF;
3831:
3832: x_line_tbl(x_line_tbl.COUNT + 1) := l_line_rec;
3833: END IF;
3834: END LOOP;
3835:
3836: IF l_debug_level > 0 THEN
3837: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.QUERY_OPTIONS' , 1);
3838: END IF;
3839:
3840: END;
3841:
3863: TOP_MODEL_LINE_ID = l_top_model_line_id AND
3864: ATO_LINE_ID = p_ato_line_id
3865: ORDER BY line_number,shipment_number,nvl(option_number,-1);
3866: --
3867: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3868: --
3869: BEGIN
3870:
3871: IF l_debug_level > 0 THEN
3868: --
3869: BEGIN
3870:
3871: IF l_debug_level > 0 THEN
3872: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_ATO_OPTIONS' , 1);
3873: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
3874: END IF;
3875:
3876: BEGIN
3869: BEGIN
3870:
3871: IF l_debug_level > 0 THEN
3872: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_ATO_OPTIONS' , 1);
3873: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
3874: END IF;
3875:
3876: BEGIN
3877: SELECT top_model_line_id ,header_id
3895: l_line_rec.source_type_code =
3896: nvl(p_source_type, l_line_rec.source_type_code) THEN
3897:
3898: IF l_debug_level > 0 THEN
3899: oe_debug_pub.add(L_LINE_REC.SOURCE_TYPE_CODE||' ADDING '
3900: ||L_LINE_REC.OPEN_FLAG , 3 );
3901: END IF;
3902: l_line_rec.reserved_quantity := Null;
3903: x_line_tbl(x_line_tbl.COUNT + 1) := l_line_rec;
3905:
3906: END LOOP;
3907:
3908: IF l_debug_level > 0 THEN
3909: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.QUERY_ATO_OPTIONS' , 1);
3910: END IF;
3911:
3912: EXCEPTION
3913: WHEN OTHERS THEN
3934: , x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
3935: IS
3936: l_group_id NUMBER; -- bom out NOCOPY param
3937: --
3938: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3939: --
3940: BEGIN
3941:
3942: IF l_debug_level > 0 THEN
3939: --
3940: BEGIN
3941:
3942: IF l_debug_level > 0 THEN
3943: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.EXPLODE' , 1);
3944: oe_debug_pub.add(' EXPLOSION TYPE ' || P_STDCOMPFLAG , 2 );
3945: END IF;
3946:
3947: BOMPNORD.Bmxporder_Explode_For_Order(
3940: BEGIN
3941:
3942: IF l_debug_level > 0 THEN
3943: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.EXPLODE' , 1);
3944: oe_debug_pub.add(' EXPLOSION TYPE ' || P_STDCOMPFLAG , 2 );
3945: END IF;
3946:
3947: BOMPNORD.Bmxporder_Explode_For_Order(
3948: org_id => p_validation_org,
3959: err_msg => x_msg_data,
3960: error_code => x_error_code);
3961:
3962: IF l_debug_level > 0 THEN
3963: oe_debug_pub.add('AFTER CALLING BOM EXPLODE API' , 2 );
3964: END IF;
3965:
3966: IF x_error_code <> 0 THEN
3967: IF l_debug_level > 0 THEN
3964: END IF;
3965:
3966: IF x_error_code <> 0 THEN
3967: IF l_debug_level > 0 THEN
3968: oe_debug_pub.add('ERROR IN BOM EXPLOSION' , 2 );
3969: oe_debug_pub.add('ERROR CODE IS ' || X_ERROR_CODE , 2 );
3970: END IF;
3971:
3972: IF x_msg_data is not null THEN
3965:
3966: IF x_error_code <> 0 THEN
3967: IF l_debug_level > 0 THEN
3968: oe_debug_pub.add('ERROR IN BOM EXPLOSION' , 2 );
3969: oe_debug_pub.add('ERROR CODE IS ' || X_ERROR_CODE , 2 );
3970: END IF;
3971:
3972: IF x_msg_data is not null THEN
3973: IF l_debug_level > 0 THEN
3970: END IF;
3971:
3972: IF x_msg_data is not null THEN
3973: IF l_debug_level > 0 THEN
3974: oe_debug_pub.add('BOM MSG NAME: '
3975: || SUBSTR ( X_MSG_DATA , 1 , 250 ) , 2 );
3976: END IF;
3977:
3978: -- girish from bom team told err_msg is msg name, track bug 1623728
3988:
3989:
3990: x_return_status := FND_API.G_RET_STS_SUCCESS;
3991: IF l_debug_level > 0 THEN
3992: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.EXPLODE' , 1);
3993: END IF;
3994:
3995: EXCEPTION
3996: WHEN FND_API.G_EXC_ERROR THEN
4008: , x_line_rec OUT NOCOPY OE_ORDER_PUB.line_rec_type)
4009: IS
4010: l_line_rec OE_ORDER_PUB.line_rec_type;
4011: --
4012: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4013: --
4014: BEGIN
4015: x_line_rec := l_line_rec;
4016: END Query_Included_Item;
4043: ITEM_TYPE_CODE = OE_GLOBALS.G_ITEM_INCLUDED
4044: ORDER BY line_number,shipment_number,nvl(option_number,-1);
4045:
4046: --
4047: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4048: --
4049: BEGIN
4050:
4051: IF l_debug_level > 0 THEN
4048: --
4049: BEGIN
4050:
4051: IF l_debug_level > 0 THEN
4052: oe_debug_pub.add('SEND_CANCEL_LINES: '|| P_SEND_CANCEL_LINES , 3 );
4053: END IF;
4054:
4055: IF p_header_id = FND_API.G_MISS_NUM AND
4056: p_top_model_line_id = FND_API.G_MISS_NUM THEN
4073:
4074: END IF;
4075:
4076: IF l_debug_level > 0 THEN
4077: oe_debug_pub.add('HEADER ID , TOP MODEL LINE ID '
4078: ||L_HEADER_ID||'/'||L_TOP_MODEL_LINE_ID , 3 );
4079: END IF;
4080:
4081: -- Loop over fetched records
4089: l_line_rec.source_type_code =
4090: nvl(p_source_type, l_line_rec.source_type_code) THEN
4091:
4092: IF l_debug_level > 0 THEN
4093: oe_debug_pub.add(L_LINE_REC.SOURCE_TYPE_CODE||' ADDING '
4094: ||L_LINE_REC.OPEN_FLAG , 3 );
4095: END IF;
4096:
4097: x_line_tbl(x_line_tbl.COUNT + 1) := l_line_rec;
4099:
4100: END LOOP;
4101:
4102: IF l_debug_level > 0 THEN
4103: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.QUERY_INCLUDED_ITEMS' , 1);
4104: END IF;
4105:
4106: EXCEPTION
4107: WHEN OTHERS THEN
4285: AND be.EFFECTIVITY_DATE <= p_std_comp_freeze_date
4286: AND be.DISABLE_DATE > p_std_comp_freeze_date);
4287:
4288: --
4289: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4290: --
4291: BEGIN
4292:
4293: Print_Time('Entering oe_config_util.process_included_items');
4296:
4297: IF p_line_rec.line_id <> FND_API.G_MISS_NUM AND
4298: p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
4299: IF l_debug_level > 0 THEN
4300: oe_debug_pub.add('DO NOT LOCK' , 3 );
4301: END IF;
4302: ELSE
4303: IF p_line_id = FND_API.G_MISS_NUM THEN
4304: OE_LINE_UTIL.Lock_Row
4308: -- Parent Line has been passed
4309: l_parent_line_rec := p_line_rec;
4310:
4311: IF l_debug_level > 0 THEN
4312: oe_debug_pub.add('P_LINE_ID IS MISS_NUM' , 3 );
4313: END IF;
4314: ELSE
4315: -- Query the Parent Line
4316: IF l_debug_level > 0 THEN
4313: END IF;
4314: ELSE
4315: -- Query the Parent Line
4316: IF l_debug_level > 0 THEN
4317: oe_debug_pub.add('PARENT LINE_ID: '|| P_LINE_ID , 2 );
4318: END IF;
4319:
4320: OE_LINE_UTIL.Lock_Row
4321: (p_line_id => p_line_id
4323: ,x_return_status => l_return_status);
4324: END IF;
4325:
4326: IF l_debug_level > 0 THEN
4327: oe_debug_pub.add('ROW LOCKED' , 3 );
4328: END IF;
4329: END IF;
4330:
4331:
4335: ('MODEL', 'KIT', 'CLASS') OR
4336: l_parent_line_rec.ordered_quantity = 0
4337: THEN
4338: IF l_debug_level > 0 THEN
4339: oe_debug_pub.add('RETURNING FROM PROC_INC_ITEMS' , 3 );
4340: END IF;
4341: RETURN l_return_status;
4342: END IF;
4343:
4359: ,x_return_status => l_x_return_status );
4360:
4361: IF l_config_mode <> 1 THEN
4362: IF l_debug_level > 0 THEN
4363: oe_debug_pub.add('Returning from Process_included_items for Kit in TSO configuration' , 3 );
4364: END IF;
4365:
4366: l_cz_config_mode :=
4367: CZ_NETWORK_API_PUB.is_item_added (p_config_hdr_id => l_parent_line_rec.config_header_id
4367: CZ_NETWORK_API_PUB.is_item_added (p_config_hdr_id => l_parent_line_rec.config_header_id
4368: ,p_config_rev_nbr => l_parent_line_rec.config_rev_nbr
4369: ,p_config_item_id => l_parent_line_rec.configuration_id);
4370: IF l_debug_level > 0 THEN
4371: oe_debug_pub.add('After calling CZ_NETWORK_API_PUB.is_item_added: ' || l_cz_config_mode );
4372: END IF;
4373: IF l_cz_config_mode = 0 THEN
4374: --RETURN l_return_status;
4375: l_freeze_macd_kit := TRUE;
4381:
4382: l_freeze_method := G_FREEZE_METHOD; /* Bug # 5036404 */
4383:
4384: IF l_debug_level > 0 THEN
4385: oe_debug_pub.add('METHOD: '|| L_FREEZE_METHOD , 4 );
4386: END IF;
4387: -- 4359339
4388: l_freeze_method := nvl(l_freeze_method, OE_GLOBALS.G_IIFM_ENTRY);
4389:
4404: END IF;
4405: l_validation_org := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
4406:
4407: IF l_debug_level > 0 THEN
4408: oe_debug_pub.add('EXPLOSION_DATE: ' || L_EXPLOSION_DATE , 2 );
4409: oe_debug_pub.add('P_TOP_ITEM_ID: '
4410: || L_PARENT_LINE_REC.INVENTORY_ITEM_ID , 2 );
4411: oe_debug_pub.add('EXPLODING WITH ORG : ' || L_VALIDATION_ORG , 2 );
4412: END IF;
4405: l_validation_org := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
4406:
4407: IF l_debug_level > 0 THEN
4408: oe_debug_pub.add('EXPLOSION_DATE: ' || L_EXPLOSION_DATE , 2 );
4409: oe_debug_pub.add('P_TOP_ITEM_ID: '
4410: || L_PARENT_LINE_REC.INVENTORY_ITEM_ID , 2 );
4411: oe_debug_pub.add('EXPLODING WITH ORG : ' || L_VALIDATION_ORG , 2 );
4412: END IF;
4413:
4407: IF l_debug_level > 0 THEN
4408: oe_debug_pub.add('EXPLOSION_DATE: ' || L_EXPLOSION_DATE , 2 );
4409: oe_debug_pub.add('P_TOP_ITEM_ID: '
4410: || L_PARENT_LINE_REC.INVENTORY_ITEM_ID , 2 );
4411: oe_debug_pub.add('EXPLODING WITH ORG : ' || L_VALIDATION_ORG , 2 );
4412: END IF;
4413:
4414: Explode(p_validation_org => l_validation_org,
4415: p_levels => 6, --??
4435: AND ORGANIZATION_ID = l_validation_org
4436: AND ALTERNATE_BOM_DESIGNATOR IS NULL;
4437:
4438: IF l_debug_level > 0 THEN
4439: oe_debug_pub.add('BILL SEQ ID '||L_PARENT_COMPONENT_SEQUENCE_ID , 1);
4440: END IF;
4441:
4442: EXCEPTION
4443: WHEN NO_DATA_FOUND THEN
4441:
4442: EXCEPTION
4443: WHEN NO_DATA_FOUND THEN
4444: IF l_debug_level > 0 THEN
4445: oe_debug_pub.add('BILL DOES NOT EXIST FOR THIS ITEM' , 3 );
4446: END IF;
4447: l_parent_component_sequence_id := 0;
4448: WHEN OTHERS THEN
4449: IF l_debug_level > 0 THEN
4446: END IF;
4447: l_parent_component_sequence_id := 0;
4448: WHEN OTHERS THEN
4449: IF l_debug_level > 0 THEN
4450: oe_debug_pub.add
4451: ('UNEXPECTED ERROR WHILE GETTING BILL SEQUENCE ID' , 3 );
4452: END IF;
4453: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4454: END;
4504: l_line_rec.flow_status_code := 'ENTERED';
4505: END IF;
4506:
4507: IF l_debug_level > 0 THEN
4508: oe_debug_pub.add('CALLING DEFAULT CHILD' , 2 );
4509: END IF;
4510:
4511: default_child_line
4512: (p_parent_line_rec => l_parent_line_rec,
4534: AND organization_id = l_validation_org;
4535: EXCEPTION
4536: WHEN NO_DATA_FOUND THEN
4537: IF l_debug_level > 0 THEN
4538: oe_debug_pub.add('CANCAT SEG FETCH ERROR' , 3 );
4539: END IF;
4540: RAISE FND_API.G_EXC_ERROR;
4541: END;
4542:
4540: RAISE FND_API.G_EXC_ERROR;
4541: END;
4542:
4543: IF l_debug_level > 0 THEN
4544: oe_debug_pub.add('ORD ITEM IS: ' || L_LINE_REC.ORDERED_ITEM , 5 );
4545: oe_debug_pub.add('INSERTING....'|| L_LINE_REC.COMPONENT_CODE , 2 );
4546: END IF;
4547:
4548: -- Adding this flag for fulfillment purpose.
4541: END;
4542:
4543: IF l_debug_level > 0 THEN
4544: oe_debug_pub.add('ORD ITEM IS: ' || L_LINE_REC.ORDERED_ITEM , 5 );
4545: oe_debug_pub.add('INSERTING....'|| L_LINE_REC.COMPONENT_CODE , 2 );
4546: END IF;
4547:
4548: -- Adding this flag for fulfillment purpose.
4549:
4583: l_line_rec.global_attribute_category := NULL;
4584:
4585: --bug3269648 start
4586: IF l_debug_level > 0 THEN
4587: OE_DEBUG_PUB.Add('Before calling JG ',2);
4588: END IF;
4589:
4590: JG_ZZ_OM_COMMON_PKG.default_gdf
4591: ( x_line_rec => l_line_rec
4592: ,x_return_code => l_return_code
4593: ,x_error_buffer => l_error_buffer );
4594:
4595: IF l_debug_level > 0 THEN
4596: OE_DEBUG_PUB.Add('After JG Call:'|| l_return_code || l_error_buffer,2);
4597: END IF;
4598: --bug3269648 ends
4599:
4600: l_line_count := l_line_count + 1;
4622: l_top_model_quantity := l_parent_line_rec.ordered_quantity;
4623: END IF;
4624:
4625: IF l_debug_level > 0 THEN
4626: oe_debug_pub.add('MODEL ORDERED QUANTITY IS'
4627: || L_TOP_MODEL_QUANTITY , 2 );
4628: END IF;
4629:
4630: l_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
4642: INTO l_line_rec.line_id, l_line_rec.ordered_quantity;
4643: EXIT WHEN update_included_items%NOTFOUND;
4644:
4645: IF l_debug_level > 0 THEN
4646: oe_debug_pub.add('UPDATING....'|| L_LINE_REC.COMPONENT_CODE , 2 );
4647: END IF;
4648:
4649: -- Audit Trail
4650: l_line_rec.change_reason := 'SYSTEM';
4657:
4658: ----- 3. Delete and included items that are not valid anymore
4659:
4660: IF l_debug_level > 0 THEN
4661: oe_debug_pub.add('TOP MODEL LINE:' || L_PARENT_LINE_REC.LINE_ID , 2 );
4662: END IF;
4663:
4664: l_line_rec := OE_Order_PUB.G_MISS_LINE_REC;
4665: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
4676:
4677: l_adjust_comp_no_flag := 'Y';
4678:
4679: IF l_debug_level > 0 THEN
4680: oe_debug_pub.add('DELETING....'|| L_LINE_REC.LINE_ID , 2 );
4681: END IF;
4682:
4683: l_line_count := l_line_count + 1;
4684: l_line_tbl(l_line_count) := l_line_rec;
4688:
4689: END IF; -- no need to open cursors
4690:
4691: IF l_debug_level > 0 THEN
4692: oe_debug_pub.add('NO. OF LINES ' || TO_CHAR ( L_LINE_COUNT ) , 2 );
4693: END IF;
4694:
4695: IF l_line_count > 0 THEN
4696: l_header_rec.operation := OE_GLOBALS.G_OPR_NONE;
4696: l_header_rec.operation := OE_GLOBALS.G_OPR_NONE;
4697: l_header_rec.header_id := l_parent_line_rec.header_id;
4698:
4699: IF l_debug_level > 0 THEN
4700: oe_debug_pub.add('CALLING PROCESS_ORDER' , 2 );
4701: END IF;
4702:
4703: l_control_rec.controlled_operation := TRUE;
4704: l_control_rec.check_security := FALSE;
4739:
4740:
4741: IF l_adjust_comp_no_flag = 'Y' THEN
4742: IF l_debug_level > 0 THEN
4743: oe_debug_pub.add('INCLUDED ITEMS GOT DELETED' , 1);
4744: END IF;
4745:
4746: update_component_number
4747: (p_line_id => p_line_id,
4820:
4821: l_component_number NUMBER := 0;
4822: l_line_id NUMBER;
4823: --
4824: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4825: --
4826: BEGIN
4827: IF l_debug_level > 0 THEN
4828: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_COMPONENT_NUMBER' , 1);
4824: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4825: --
4826: BEGIN
4827: IF l_debug_level > 0 THEN
4828: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_COMPONENT_NUMBER' , 1);
4829: END IF;
4830:
4831: OPEN comp_number;
4832: LOOP
4844:
4845: x_return_status := FND_API.G_RET_STS_SUCCESS;
4846:
4847: IF l_debug_level > 0 THEN
4848: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_COMPONENT_NUMBER' , 1);
4849: END IF;
4850:
4851: EXCEPTION
4852: WHEN OTHERS THEN
4869: p_scope in varchar2,
4870: x_result out NOCOPY /* file.sql.39 change */ number)
4871: IS
4872: --
4873: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4874: --
4875: BEGIN
4876: x_result := 0;
4877: END;
4883: FUNCTION Freeze_Included_Items(p_line_id IN NUMBER)
4884: RETURN VARCHAR2
4885: IS
4886: --
4887: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4888: --
4889: BEGIN
4890: RETURN Process_Included_Items(p_line_id => p_line_id,
4891: p_freeze => TRUE);
4905: RETURN BOOLEAN
4906: IS
4907: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
4908: --
4909: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4910: --
4911: BEGIN
4912:
4913: IF l_debug_level > 0 THEN
4910: --
4911: BEGIN
4912:
4913: IF l_debug_level > 0 THEN
4914: oe_debug_pub.add('ENTERING IS_ATO_MODEL FUNCTION ' , 1);
4915: END IF;
4916:
4917: -- if p_line_rec.line_id is missing, query row
4918: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
4933: l_line_rec.ato_line_id = l_line_rec.line_id AND
4934: l_line_rec.top_model_line_id = l_line_rec.line_id -- redundent
4935: THEN
4936: IF l_debug_level > 0 THEN
4937: oe_debug_pub.add('LEAVING IS_ATO_MODEL FUNCTION ' , 1);
4938: END IF;
4939: RETURN TRUE;
4940: ELSE
4941: IF l_debug_level > 0 THEN
4938: END IF;
4939: RETURN TRUE;
4940: ELSE
4941: IF l_debug_level > 0 THEN
4942: oe_debug_pub.add('LEAVING IS_ATO_MODEL FUNCTION ' , 1);
4943: END IF;
4944: RETURN FALSE;
4945: END IF;
4946:
4944: RETURN FALSE;
4945: END IF;
4946:
4947: IF l_debug_level > 0 THEN
4948: oe_debug_pub.add('LEAVING IS_ATO_MODEL FUNCTION ' , 1);
4949: END IF;
4950:
4951: EXCEPTION
4952: when others then
4950:
4951: EXCEPTION
4952: when others then
4953: IF l_debug_level > 0 THEN
4954: oe_debug_pub.add('EXCEPTION IN IS_ATO_MODEL FUNCTION ' , 1);
4955: END IF;
4956: RETURN FALSE;
4957: END Is_ATO_Model;
4958:
4971: IS
4972: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
4973:
4974: --
4975: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4976: --
4977: BEGIN
4978:
4979: IF l_debug_level > 0 THEN
4976: --
4977: BEGIN
4978:
4979: IF l_debug_level > 0 THEN
4980: oe_debug_pub.add('ENTERING IS_PTO_MODEL FUNCTION ' , 1);
4981: END IF;
4982:
4983: -- if p_line_rec.line_id is missing, query row
4984: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
4999: l_line_rec.ato_line_id IS NULL AND
5000: l_line_rec.top_model_line_id = l_line_rec.line_id -- redundent
5001: THEN
5002: IF l_debug_level > 0 THEN
5003: oe_debug_pub.add('LEAVING IS_PTO_MODEL FUNCTION ' , 1);
5004: END IF;
5005: RETURN TRUE;
5006: ELSE
5007: IF l_debug_level > 0 THEN
5004: END IF;
5005: RETURN TRUE;
5006: ELSE
5007: IF l_debug_level > 0 THEN
5008: oe_debug_pub.add('LEAVING IS_PTO_MODEL FUNCTION ' , 1);
5009: END IF;
5010: RETURN FALSE;
5011: END IF;
5012:
5010: RETURN FALSE;
5011: END IF;
5012:
5013: IF l_debug_level > 0 THEN
5014: oe_debug_pub.add('LEAVING IS_PTO_MODEL FUNCTION ' , 1);
5015: END IF;
5016:
5017: EXCEPTION
5018: when others then
5016:
5017: EXCEPTION
5018: when others then
5019: IF l_debug_level > 0 THEN
5020: oe_debug_pub.add('EXCEPTION IN IS_PTO_MODEL FUNCTION ' , 1);
5021: END IF;
5022: RETURN FALSE;
5023: END Is_PTO_Model;
5024:
5036: IS
5037: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5038:
5039: --
5040: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5041: --
5042: BEGIN
5043:
5044: IF l_debug_level > 0 THEN
5041: --
5042: BEGIN
5043:
5044: IF l_debug_level > 0 THEN
5045: oe_debug_pub.add('ENTERING IS_INCLUDED_OPTION FUNCTION ' , 1);
5046: END IF;
5047:
5048: -- if p_line_rec.line_id is missing, query row
5049: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5062:
5063: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_INCLUDED
5064: THEN
5065: IF l_debug_level > 0 THEN
5066: oe_debug_pub.add('LEAVING IS_INCLUDED_OPTION FUNCTION ' , 1);
5067: END IF;
5068: RETURN TRUE;
5069: ELSE
5070: IF l_debug_level > 0 THEN
5067: END IF;
5068: RETURN TRUE;
5069: ELSE
5070: IF l_debug_level > 0 THEN
5071: oe_debug_pub.add('LEAVING IS_INCLUDED_OPTION FUNCTION ' , 1);
5072: END IF;
5073: RETURN FALSE;
5074: END IF;
5075:
5073: RETURN FALSE;
5074: END IF;
5075:
5076: IF l_debug_level > 0 THEN
5077: oe_debug_pub.add('LEAVING IS_INCLUDED_OPTION FUNCTION ' , 1);
5078: END IF;
5079:
5080: EXCEPTION
5081: when others then
5079:
5080: EXCEPTION
5081: when others then
5082: IF l_debug_level > 0 THEN
5083: oe_debug_pub.add('EXCEPTION IN IS_INCLUDED_OPTION FUNCTION ' , 1);
5084: END IF;
5085: RETURN FALSE;
5086: END Is_Included_Option;
5087:
5099: IS
5100: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5101:
5102: --
5103: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5104: --
5105: BEGIN
5106:
5107: IF l_debug_level > 0 THEN
5104: --
5105: BEGIN
5106:
5107: IF l_debug_level > 0 THEN
5108: oe_debug_pub.add('ENTERING IS_CONFIG_ITEM FUNCTION ' , 1);
5109: END IF;
5110:
5111: -- if p_line_rec.line_id is missing, query row
5112: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5126:
5127: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CONFIG
5128: THEN
5129: IF l_debug_level > 0 THEN
5130: oe_debug_pub.add('LEAVING IS_CONFIG_ITEM FUNCTION ' , 1);
5131: END IF;
5132: RETURN TRUE;
5133: ELSE
5134: IF l_debug_level > 0 THEN
5131: END IF;
5132: RETURN TRUE;
5133: ELSE
5134: IF l_debug_level > 0 THEN
5135: oe_debug_pub.add('LEAVING IS_CONFIG_ITEM FUNCTION ' , 1);
5136: END IF;
5137: RETURN FALSE;
5138: END IF;
5139:
5137: RETURN FALSE;
5138: END IF;
5139:
5140: IF l_debug_level > 0 THEN
5141: oe_debug_pub.add('LEAVING IS_CONFIG_ITEM FUNCTION ' , 1);
5142: END IF;
5143:
5144: EXCEPTION
5145: when others then
5143:
5144: EXCEPTION
5145: when others then
5146: IF l_debug_level > 0 THEN
5147: oe_debug_pub.add('EXCEPTION IN IS_CONFIG_ITEM FUNCTION ' , 1);
5148: END IF;
5149: RETURN FALSE;
5150: END Is_Config_item;
5151:
5162: IS
5163: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5164:
5165: --
5166: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5167: --
5168: BEGIN
5169:
5170: IF l_debug_level > 0 THEN
5167: --
5168: BEGIN
5169:
5170: IF l_debug_level > 0 THEN
5171: oe_debug_pub.add('ENTERING IS_ATO_OPTION FUNCTION ' , 1);
5172: END IF;
5173:
5174: -- if p_line_rec.line_id is missing, query row
5175: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5192: l_line_rec.top_model_line_id = l_line_rec.ato_line_id
5193: -- not an ato under pto
5194: THEN
5195: IF l_debug_level > 0 THEN
5196: oe_debug_pub.add('LEAVING IS_ATO_OPTION FUNCTION ' , 1);
5197: END IF;
5198: RETURN TRUE;
5199: ELSE
5200: IF l_debug_level > 0 THEN
5197: END IF;
5198: RETURN TRUE;
5199: ELSE
5200: IF l_debug_level > 0 THEN
5201: oe_debug_pub.add('LEAVING IS_ATO_OPTION FUNCTION ' , 1);
5202: END IF;
5203: RETURN FALSE;
5204: END IF;
5205:
5203: RETURN FALSE;
5204: END IF;
5205:
5206: IF l_debug_level > 0 THEN
5207: oe_debug_pub.add('LEAVING IS_ATO_OPTION FUNCTION ' , 1);
5208: END IF;
5209:
5210: EXCEPTION
5211: when others then
5209:
5210: EXCEPTION
5211: when others then
5212: IF l_debug_level > 0 THEN
5213: oe_debug_pub.add('EXCEPTION IN IS_ATO_OPTION FUNCTION ' , 1);
5214: END IF;
5215: RETURN FALSE;
5216: END Is_ATO_Option;
5217:
5229: IS
5230: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5231:
5232: --
5233: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5234: --
5235: BEGIN
5236:
5237: IF l_debug_level > 0 THEN
5234: --
5235: BEGIN
5236:
5237: IF l_debug_level > 0 THEN
5238: oe_debug_pub.add('ENTERING IS_PTO_OPTION FUNCTION ' , 1);
5239: END IF;
5240:
5241: -- if p_line_rec.line_id is missing, query row
5242: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5256: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_OPTION AND
5257: l_line_rec.ato_line_id is null
5258: THEN
5259: IF l_debug_level > 0 THEN
5260: oe_debug_pub.add('LEAVING IS_PTO_OPTION FUNCTION ' , 1);
5261: END IF;
5262: RETURN TRUE;
5263: ELSE
5264: IF l_debug_level > 0 THEN
5261: END IF;
5262: RETURN TRUE;
5263: ELSE
5264: IF l_debug_level > 0 THEN
5265: oe_debug_pub.add('LEAVING IS_PTO_OPTION FUNCTION ' , 1);
5266: END IF;
5267: RETURN FALSE;
5268: END IF;
5269:
5267: RETURN FALSE;
5268: END IF;
5269:
5270: IF l_debug_level > 0 THEN
5271: oe_debug_pub.add('LEAVING IS_PTO_OPTION FUNCTION ' , 1);
5272: END IF;
5273:
5274: EXCEPTION
5275: when others then
5273:
5274: EXCEPTION
5275: when others then
5276: IF l_debug_level > 0 THEN
5277: oe_debug_pub.add('EXCEPTION IN IS_PTO_OPTION FUNCTION ' , 1);
5278: END IF;
5279: RETURN FALSE;
5280: END Is_PTO_Option;
5281:
5292: IS
5293: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5294:
5295: --
5296: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5297: --
5298: BEGIN
5299:
5300: IF l_debug_level > 0 THEN
5297: --
5298: BEGIN
5299:
5300: IF l_debug_level > 0 THEN
5301: oe_debug_pub.add('ENTERING IS_ATO_CLASS FUNCTION ' , 1);
5302: END IF;
5303:
5304: -- if p_line_rec.line_id is missing, query row
5305: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5321: l_line_rec.top_model_line_id = l_line_rec.ato_line_id
5322: -- not an ato under pto
5323: THEN
5324: IF l_debug_level > 0 THEN
5325: oe_debug_pub.add('LEAVING IS_ATO_CLASS FUNCTION ' , 1);
5326: END IF;
5327: RETURN TRUE;
5328: ELSE
5329: IF l_debug_level > 0 THEN
5326: END IF;
5327: RETURN TRUE;
5328: ELSE
5329: IF l_debug_level > 0 THEN
5330: oe_debug_pub.add('LEAVING IS_ATO_CLASS FUNCTION ' , 1);
5331: END IF;
5332: RETURN FALSE;
5333: END IF;
5334:
5332: RETURN FALSE;
5333: END IF;
5334:
5335: IF l_debug_level > 0 THEN
5336: oe_debug_pub.add('LEAVING IS_ATO_CLASS FUNCTION ' , 1);
5337: END IF;
5338:
5339: EXCEPTION
5340: when others then
5338:
5339: EXCEPTION
5340: when others then
5341: IF l_debug_level > 0 THEN
5342: oe_debug_pub.add('EXCEPTION IN IS_ATO_CLASS FUNCTION ' , 1);
5343: END IF;
5344: RETURN FALSE;
5345: END Is_ATO_Class;
5346:
5358: IS
5359: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5360:
5361: --
5362: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5363: --
5364: BEGIN
5365:
5366: IF l_debug_level > 0 THEN
5363: --
5364: BEGIN
5365:
5366: IF l_debug_level > 0 THEN
5367: oe_debug_pub.add('ENTERING IS_PTO_CLASS FUNCTION ' , 1);
5368: END IF;
5369:
5370: -- if p_line_rec.line_id is missing, query row
5371: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5385: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CLASS AND
5386: l_line_rec.ato_line_id is not null
5387: THEN
5388: IF l_debug_level > 0 THEN
5389: oe_debug_pub.add('LEAVING IS_PTO_CLASS FUNCTION ' , 1);
5390: END IF;
5391: RETURN TRUE;
5392: ELSE
5393: IF l_debug_level > 0 THEN
5390: END IF;
5391: RETURN TRUE;
5392: ELSE
5393: IF l_debug_level > 0 THEN
5394: oe_debug_pub.add('LEAVING IS_PTO_CLASS FUNCTION ' , 1);
5395: END IF;
5396: RETURN FALSE;
5397: END IF;
5398:
5396: RETURN FALSE;
5397: END IF;
5398:
5399: IF l_debug_level > 0 THEN
5400: oe_debug_pub.add('LEAVING IS_PTO_CLASS FUNCTION ' , 1);
5401: END IF;
5402:
5403: EXCEPTION
5404: when others then
5402:
5403: EXCEPTION
5404: when others then
5405: IF l_debug_level > 0 THEN
5406: oe_debug_pub.add('EXCEPTION IN IS_PTO_CLASS FUNCTION ' , 1);
5407: END IF;
5408: RETURN FALSE;
5409: END Is_PTO_Class;
5410:
5422: IS
5423: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5424:
5425: --
5426: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5427: --
5428: BEGIN
5429:
5430: IF l_debug_level > 0 THEN
5427: --
5428: BEGIN
5429:
5430: IF l_debug_level > 0 THEN
5431: oe_debug_pub.add('ENTERING IS_ATO_SUBCONFIG FUNCTION ' , 1);
5432: END IF;
5433:
5434: -- if p_line_rec.line_id is missing, query row
5435: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5452: l_line_rec.top_model_line_id <> l_line_rec.ato_line_id
5453: -- ato under pto
5454: THEN
5455: IF l_debug_level > 0 THEN
5456: oe_debug_pub.add('LEAVING IS_ATO_SUBCONFIG FUNCTION ' , 1);
5457: END IF;
5458: RETURN TRUE;
5459: ELSE
5460: IF l_debug_level > 0 THEN
5457: END IF;
5458: RETURN TRUE;
5459: ELSE
5460: IF l_debug_level > 0 THEN
5461: oe_debug_pub.add('LEAVING IS_ATO_SUBCONFIG FUNCTION ' , 1);
5462: END IF;
5463: RETURN FALSE;
5464: END IF;
5465:
5463: RETURN FALSE;
5464: END IF;
5465:
5466: IF l_debug_level > 0 THEN
5467: oe_debug_pub.add('LEAVING IS_ATO_SUBCONFIG FUNCTION ' , 1);
5468: END IF;
5469:
5470: EXCEPTION
5471: when others then
5469:
5470: EXCEPTION
5471: when others then
5472: IF l_debug_level > 0 THEN
5473: oe_debug_pub.add('EXCEPTION IN IS_ATO_SUBCONFIG FUNCTION ' , 1);
5474: END IF;
5475: RETURN FALSE;
5476: END Is_ATO_Subconfig;
5477:
5488: IS
5489: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5490:
5491: --
5492: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5493: --
5494: BEGIN
5495:
5496: IF l_debug_level > 0 THEN
5493: --
5494: BEGIN
5495:
5496: IF l_debug_level > 0 THEN
5497: oe_debug_pub.add('ENTERING IS_KIT FUNCTION ' , 1);
5498: END IF;
5499:
5500: -- if p_line_rec.line_id is missing, query row
5501: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5514:
5515: IF l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_KIT
5516: THEN
5517: IF l_debug_level > 0 THEN
5518: oe_debug_pub.add('LEAVING IS_KIT FUNCTION ' , 1);
5519: END IF;
5520: RETURN TRUE;
5521: ELSE
5522: IF l_debug_level > 0 THEN
5519: END IF;
5520: RETURN TRUE;
5521: ELSE
5522: IF l_debug_level > 0 THEN
5523: oe_debug_pub.add('LEAVING IS_KIT FUNCTION ' , 1);
5524: END IF;
5525: RETURN FALSE;
5526: END IF;
5527:
5525: RETURN FALSE;
5526: END IF;
5527:
5528: IF l_debug_level > 0 THEN
5529: oe_debug_pub.add('LEAVING IS_KIT FUNCTION ' , 1);
5530: END IF;
5531:
5532: EXCEPTION
5533: when others then
5531:
5532: EXCEPTION
5533: when others then
5534: IF l_debug_level > 0 THEN
5535: oe_debug_pub.add('EXCEPTION IN IS_KIT FUNCTION ' , 1);
5536: END IF;
5537: RETURN FALSE;
5538: END Is_Kit;
5539:
5550: IS
5551: l_line_rec OE_Order_PUB.LINE_REC_TYPE;
5552:
5553: --
5554: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5555: --
5556: BEGIN
5557:
5558: IF l_debug_level > 0 THEN
5555: --
5556: BEGIN
5557:
5558: IF l_debug_level > 0 THEN
5559: oe_debug_pub.add('ENTERING IS_ATO_ITEM FUNCTION ' , 1);
5560: END IF;
5561:
5562: -- if p_line_rec.line_id is missing, query row
5563: -- if p_line_id and and p_line_rec both missing, RAISE FND_API.G_EXC_ERROR
5579: l_line_rec.item_type_code = OE_GLOBALS.G_ITEM_INCLUDED ) AND -- 9775352
5580: l_line_rec.ato_line_id = l_line_rec.line_id
5581: THEN
5582: IF l_debug_level > 0 THEN
5583: oe_debug_pub.add('LEAVING IS_ATO_ITEM FUNCTION ' , 1);
5584: END IF;
5585: RETURN TRUE;
5586: ELSE
5587: IF l_debug_level > 0 THEN
5584: END IF;
5585: RETURN TRUE;
5586: ELSE
5587: IF l_debug_level > 0 THEN
5588: oe_debug_pub.add('LEAVING IS_ATO_ITEM FUNCTION ' , 1);
5589: END IF;
5590: RETURN FALSE;
5591: END IF;
5592:
5590: RETURN FALSE;
5591: END IF;
5592:
5593: IF l_debug_level > 0 THEN
5594: oe_debug_pub.add('LEAVING IS_ATO_ITEM FUNCTION ' , 1);
5595: END IF;
5596:
5597: EXCEPTION
5598: when others then
5596:
5597: EXCEPTION
5598: when others then
5599: IF l_debug_level > 0 THEN
5600: oe_debug_pub.add('EXCEPTION IN IS_ATO_ITEM FUNCTION ' , 1);
5601: END IF;
5602: RETURN FALSE;
5603: END Is_Ato_Item;
5604:
5636: TOP_MODEL_LINE_ID = p_top_model_line_id))
5637: ORDER BY line_number,shipment_number,nvl(option_number,-1);
5638:
5639: --
5640: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5641: --
5642: BEGIN
5643: IF l_debug_level > 0 THEN
5644: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_CONFIG' , 1);
5640: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5641: --
5642: BEGIN
5643: IF l_debug_level > 0 THEN
5644: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.QUERY_CONFIG' , 1);
5645: END IF;
5646:
5647: l_top_model_line_id := p_top_model_line_id;
5648:
5675: l_top_model_line_id := NULL;
5676: END IF;
5677:
5678: IF l_debug_level > 0 THEN
5679: oe_debug_pub.add('HEADER_ID: ' || L_HEADER_ID , 3 );
5680: END IF;
5681:
5682: -- Loop over fetched records
5683: OPEN l_line_csr(l_top_model_line_id);
5693:
5694: END LOOP;
5695:
5696: IF l_debug_level > 0 THEN
5697: oe_debug_pub.add('LEAVING QUERY CONFIG' , 1);
5698: END IF;
5699:
5700: EXCEPTION
5701: WHEN NO_DATA_FOUND THEN
5699:
5700: EXCEPTION
5701: WHEN NO_DATA_FOUND THEN
5702: IF l_debug_level > 0 THEN
5703: oe_debug_pub.add('NO_DATA_FOUND IN QUERY_CONFIG' , 1);
5704: END IF;
5705: RAISE NO_DATA_FOUND;
5706:
5707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5705: RAISE NO_DATA_FOUND;
5706:
5707: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5708: IF l_debug_level > 0 THEN
5709: oe_debug_pub.add('EXC_UNXP IN QUERY_CONFIG' , 1);
5710: END IF;
5711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5712:
5713: WHEN OTHERS THEN
5714:
5715: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5716: THEN
5717: IF l_debug_level > 0 THEN
5718: oe_debug_pub.add('OTHERS IN QUERY_CONFIG' , 1);
5719: END IF;
5720: OE_MSG_PUB.Add_Exc_Msg
5721: ( G_PKG_NAME
5722: , 'Query_Config'
5734: Procedure get_transaction_id(p_caller IN VARCHAR2)
5735: IS
5736: l_tran_id VARCHAR2(1000);
5737: --
5738: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5739: --
5740: BEGIN
5741: --insert into values(1);
5742: --uncomment when you want to see tran id
5742: --uncomment when you want to see tran id
5743: --should not go in tst115
5744: l_tran_id := dbms_transaction.local_transaction_id();
5745: IF l_debug_level > 0 THEN
5746: oe_debug_pub.add(P_CALLER ||' , TRANSACTION_ID: '|| L_TRAN_ID , 1);
5747: END IF;
5748: END get_transaction_id;
5749:
5750:
5802: order_quantity_uom is null
5803: );
5804:
5805: --
5806: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
5807: --
5808: BEGIN
5809:
5810: IF l_debug_level > 0 THEN
5807: --
5808: BEGIN
5809:
5810: IF l_debug_level > 0 THEN
5811: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.COMPLETE_CONFIGURATION' , 1);
5812: END IF;
5813:
5814: BEGIN
5815:
5822:
5823: EXCEPTION
5824: WHEN OTHERS THEN
5825: IF l_debug_level > 0 THEN
5826: oe_debug_pub.add('EXCEPTION IN SELECT' , 1);
5827: END IF;
5828: RAISE FND_API.G_EXC_ERROR;
5829: END;
5830:
5830:
5831:
5832: -- Explode the options in Bom_Explosions
5833: IF l_debug_level > 0 THEN
5834: oe_debug_pub.add('CALL TO EXPLOSION' , 2 );
5835: oe_debug_pub.add('ORG ID: '|| L_VALIDATION_ORG , 2 );
5836: END IF;
5837:
5838:
5831:
5832: -- Explode the options in Bom_Explosions
5833: IF l_debug_level > 0 THEN
5834: oe_debug_pub.add('CALL TO EXPLOSION' , 2 );
5835: oe_debug_pub.add('ORG ID: '|| L_VALIDATION_ORG , 2 );
5836: END IF;
5837:
5838:
5839: OE_CONFIG_UTIL.Explode
5851: , x_return_status => l_return_status );
5852:
5853:
5854: IF l_debug_level > 0 THEN
5855: oe_debug_pub.add('AFTER CALL TO EXPLODE: '|| L_RETURN_STATUS , 2 );
5856: END IF;
5857:
5858: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5876:
5877: EXCEPTION
5878: WHEN NO_DATA_FOUND THEN
5879: IF l_debug_level > 0 THEN
5880: oe_debug_pub.add('COMPONENT_SEQUENCE_ID QUERY FAILED' , 1);
5881: END IF;
5882: RAISE FND_API.G_EXC_ERROR;
5883: END;
5884:
5884:
5885: END IF;
5886:
5887: IF l_debug_level > 0 THEN
5888: oe_debug_pub.add('COMP_SEQ_ID OF MODEL: ' || L_MODEL_SEQ_ID , 2 );
5889: END IF;
5890:
5891: FOR line_rec in comp_code_upd
5892: LOOP
5890:
5891: FOR line_rec in comp_code_upd
5892: LOOP
5893: IF l_debug_level > 0 THEN
5894: oe_debug_pub.add('COMPLETE ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5895: END IF;
5896:
5897: -- 1st obtain component_code using bom_explosions, if the select
5898: -- statement fetches more than one row, there is ambiguity in the bill
5900: BEGIN
5901:
5902: IF line_rec.component_code is not NULL THEN
5903: IF l_debug_level > 0 THEN
5904: oe_debug_pub.add('COMPONENT CODE PASSED , SOMETHING ELSE NULL' , 3 );
5905: END IF;
5906:
5907: SELECT component_code, component_sequence_id, sort_order,
5908: primary_uom_code
5918: AND component_code = line_rec.component_code;
5919:
5920: ELSE
5921: IF l_debug_level > 0 THEN
5922: oe_debug_pub.add('COMPONENT CODE NOT PASSED' , 3 );
5923: END IF;
5924:
5925: SELECT component_code, component_sequence_id, sort_order,
5926: primary_uom_code
5937:
5938: EXCEPTION
5939: WHEN NO_DATA_FOUND THEN
5940: IF l_debug_level > 0 THEN
5941: oe_debug_pub.add('SELECT COMP_CODE FAILED , NO DATA FOUND ' , 1);
5942: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5943: END IF;
5944:
5945: x_return_status := FND_API.G_RET_STS_ERROR;
5938: EXCEPTION
5939: WHEN NO_DATA_FOUND THEN
5940: IF l_debug_level > 0 THEN
5941: oe_debug_pub.add('SELECT COMP_CODE FAILED , NO DATA FOUND ' , 1);
5942: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5943: END IF;
5944:
5945: x_return_status := FND_API.G_RET_STS_ERROR;
5946:
5951: RETURN;
5952:
5953: WHEN TOO_MANY_ROWS THEN
5954: IF l_debug_level > 0 THEN
5955: oe_debug_pub.add('SELECT COMP_CODE FAILED , TOO_MANY ROWS ' , 1);
5956: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5957: END IF;
5958:
5959: x_return_status := FND_API.G_RET_STS_ERROR;
5952:
5953: WHEN TOO_MANY_ROWS THEN
5954: IF l_debug_level > 0 THEN
5955: oe_debug_pub.add('SELECT COMP_CODE FAILED , TOO_MANY ROWS ' , 1);
5956: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5957: END IF;
5958:
5959: x_return_status := FND_API.G_RET_STS_ERROR;
5960:
5965: RETURN;
5966:
5967: WHEN OTHERS THEN
5968: IF l_debug_level > 0 THEN
5969: oe_debug_pub.add('SELECT COMP_CODE FAILED , OTHERS ' , 1);
5970: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5971: END IF;
5972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5973: END;
5966:
5967: WHEN OTHERS THEN
5968: IF l_debug_level > 0 THEN
5969: oe_debug_pub.add('SELECT COMP_CODE FAILED , OTHERS ' , 1);
5970: oe_debug_pub.add('ITEM: '|| LINE_REC.INVENTORY_ITEM_ID , 1);
5971: END IF;
5972: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5973: END;
5974:
5984: END LOOP;
5985:
5986: x_return_status := FND_API.G_RET_STS_SUCCESS;
5987: IF l_debug_level > 0 THEN
5988: oe_debug_pub.add('LEAVING COMPLETE CONFIGURATION' , 1);
5989: END IF;
5990:
5991: EXCEPTION
5992: WHEN OTHERS THEN
5990:
5991: EXCEPTION
5992: WHEN OTHERS THEN
5993: IF l_debug_level > 0 THEN
5994: oe_debug_pub.add('AMBIGUITY IN BILL'|| SUBSTR ( SQLERRM , 1 , 150 ) , 1);
5995: END IF;
5996: x_return_status := FND_API.G_RET_STS_ERROR;
5997: END Complete_Configuration;
5998:
6035: l_error_message VARCHAR2(2000);
6036: l_result BOOLEAN;
6037: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6038: --
6039: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6040: --
6041: BEGIN
6042: IF l_debug_level > 0 THEN
6043: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.MATCH_AND_RESERVE' , 1);
6039: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6040: --
6041: BEGIN
6042: IF l_debug_level > 0 THEN
6043: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.MATCH_AND_RESERVE' , 1);
6044: END IF;
6045: BEGIN
6046: SELECT top_model_line_id, ordered_quantity, order_quantity_uom
6047: INTO l_top_model_line_id, l_ordered_quantity, l_order_quantity_uom
6049: WHERE line_id = p_line_id;
6050: EXCEPTION
6051: WHEN OTHERS THEN
6052: IF l_debug_level > 0 THEN
6053: oe_debug_pub.add('OTHERS IN MATCH AND RESERVE' , 1);
6054: END IF;
6055: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6056: END;
6057:
6102: END IF; -- if match found
6103:
6104: x_return_status := l_return_status;
6105: IF l_debug_level > 0 THEN
6106: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.MATCH_AND_RESERVE' , 1);
6107: END IF;
6108:
6109: EXCEPTION
6110: WHEN NO_DATA_FOUND THEN
6108:
6109: EXCEPTION
6110: WHEN NO_DATA_FOUND THEN
6111: IF l_debug_level > 0 THEN
6112: oe_debug_pub.add('NO DATA FOUND IN MATCH AND RESERVE' , 1);
6113: END IF;
6114: x_return_status := FND_API.G_RET_STS_ERROR;
6115:
6116: WHEN OTHERS THEN
6114: x_return_status := FND_API.G_RET_STS_ERROR;
6115:
6116: WHEN OTHERS THEN
6117: IF l_debug_level > 0 THEN
6118: oe_debug_pub.add('EXCEPTION IN MATCH AND RESERVE' , 1);
6119: END IF;
6120: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6121: END Match_and_Reserve;
6122:
6154: l_po_status_rec PO_STATUS_REC_TYPE;
6155: l_autorization_status VARCHAR2(30);
6156:
6157: --
6158: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6159: --
6160: BEGIN
6161: IF l_debug_level > 0 THEN
6162: oe_debug_pub.add('ENTERING DELINK_CONFIG with :'||p_line_id);
6158: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6159: --
6160: BEGIN
6161: IF l_debug_level > 0 THEN
6162: oe_debug_pub.add('ENTERING DELINK_CONFIG with :'||p_line_id);
6163: END IF;
6164:
6165: BEGIN
6166: SELECT item_type_code, ato_line_id, ordered_item,inventory_item_id
6169: WHERE line_id = p_line_id;
6170: EXCEPTION
6171: WHEN OTHERS THEN
6172: IF l_debug_level > 0 THEN
6173: oe_debug_pub.add('DELINK BATCH ERROR' , 1);
6174: END IF;
6175: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6176: END;
6177:
6208: AND header_id = l_config_header_id;
6209: EXCEPTION
6210: WHEN NO_DATA_FOUND THEN
6211: IF l_debug_level > 0 THEN
6212: OE_DEBUG_PUB.Add('PO Not Created for Config.' , 2 );
6213: END IF;
6214: END;
6215:
6216: IF l_po_header_id is not null THEN
6230: IF(l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
6231: l_autorization_status := l_po_status_rec.authorization_status(1);
6232:
6233: IF l_debug_level > 0 THEN
6234: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
6235: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
6236: END IF;
6237: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6231: l_autorization_status := l_po_status_rec.authorization_status(1);
6232:
6233: IF l_debug_level > 0 THEN
6234: OE_DEBUG_PUB.Add('Sucess call from PO_DOCUMENT_CHECKS_GRP.po_status_check',2);
6235: OE_DEBUG_PUB.Add('Check PO Status : '|| l_autorization_status, 2);
6236: END IF;
6237: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6238: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6239: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6253:
6254: END IF;
6255:
6256: IF l_debug_level > 0 THEN
6257: oe_debug_pub.add('AFTER SELECT STMT.' , 2 );
6258: END IF;
6259:
6260: l_cto_result := CTO_CONFIG_ITEM_PK.Delink_Item
6261: ( pModelLineId => p_line_id,
6266:
6267: --returns 1 in case of successful completion, 0 in case of error
6268:
6269: IF l_debug_level > 0 THEN
6270: oe_debug_pub.add('AFTER CALL TO CTO_CONFIG_ITEM_PK.DELINK_ITEM ',2);
6271: oe_debug_pub.add('L_CTO_RESULT:'|| L_CTO_RESULT , 2 );
6272: END IF;
6273:
6274: IF (l_cto_result = 1) THEN
6267: --returns 1 in case of successful completion, 0 in case of error
6268:
6269: IF l_debug_level > 0 THEN
6270: oe_debug_pub.add('AFTER CALL TO CTO_CONFIG_ITEM_PK.DELINK_ITEM ',2);
6271: oe_debug_pub.add('L_CTO_RESULT:'|| L_CTO_RESULT , 2 );
6272: END IF;
6273:
6274: IF (l_cto_result = 1) THEN
6275: IF l_debug_level > 0 THEN
6272: END IF;
6273:
6274: IF (l_cto_result = 1) THEN
6275: IF l_debug_level > 0 THEN
6276: oe_debug_pub.add('DELINKED CONFIG ITEM' , 2 );
6277: END IF;
6278: ELSE
6279: IF l_debug_level > 0 THEN
6280: oe_debug_pub.add('CTO RESULT NOT 1' , 2 );
6276: oe_debug_pub.add('DELINKED CONFIG ITEM' , 2 );
6277: END IF;
6278: ELSE
6279: IF l_debug_level > 0 THEN
6280: oe_debug_pub.add('CTO RESULT NOT 1' , 2 );
6281: END IF;
6282: IF l_message_name IS NOT NULL THEN
6283: FND_MESSAGE.Set_Name('BOM', l_message_name);
6284: oe_msg_pub.add;
6283: FND_MESSAGE.Set_Name('BOM', l_message_name);
6284: oe_msg_pub.add;
6285: ELSE
6286: IF l_debug_level > 0 THEN
6287: oe_debug_pub.add('CTO MESSAGE NAME NULL' , 2 );
6288: END IF;
6289: END IF;
6290: END IF;
6291: ELSE
6289: END IF;
6290: END IF;
6291: ELSE
6292: IF l_debug_level > 0 THEN
6293: oe_debug_pub.add('DELINK_CONFIG_ITEM ALLOWED ONLY FROM ATO MODEL',1);
6294: END IF;
6295: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_INVALID_ACTION');
6296: FND_MESSAGE.Set_Token('ACTION', 'Delink Config');
6297: oe_msg_pub.add;
6297: oe_msg_pub.add;
6298: END IF;
6299:
6300: IF l_debug_level > 0 THEN
6301: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.DELINK_CONFIG' , 1);
6302: END IF;
6303:
6304: x_return_status := l_return_status;
6305:
6311: x_return_status := FND_API.G_RET_STS_ERROR;
6312:
6313: WHEN OTHERS THEN
6314: IF l_debug_level > 0 THEN
6315: oe_debug_pub.add('EXCEPTION IN DELINK_CONFIG' , 1);
6316: END IF;
6317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6318: END Delink_Config_batch;
6319:
6338: l_top_model_line_id NUMBER;
6339: l_line_id NUMBER;
6340: l_count NUMBER;
6341: --
6342: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6343: --
6344: BEGIN
6345: IF l_debug_level > 0 THEN
6346: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.PART_OF_CONFIGURATION' , 1);
6342: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6343: --
6344: BEGIN
6345: IF l_debug_level > 0 THEN
6346: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.PART_OF_CONFIGURATION' , 1);
6347: END IF;
6348:
6349: SELECT item_type_code,header_id, top_model_line_id, line_id
6350: INTO l_item_type_code,l_header_id, l_top_model_line_id, l_line_id
6392: END IF;
6393:
6394: x_result := 0;
6395: IF l_debug_level > 0 THEN
6396: oe_debug_pub.add('EXITING PART_OF_CONFIGURATION, UNKNOWN ITEM_TYPE', 1);
6397: END IF;
6398:
6399: END Part_of_Configuration;
6400:
6421: l_valid NUMBER;
6422: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
6423:
6424: --
6425: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6426: --
6427: BEGIN
6428: IF l_debug_level > 0 THEN
6429: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.LINK_CONFIG' , 1);
6425: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6426: --
6427: BEGIN
6428: IF l_debug_level > 0 THEN
6429: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.LINK_CONFIG' , 1);
6430: END IF;
6431:
6432: BEGIN
6433: SELECT item_type_code, ato_line_id, ordered_item
6436: WHERE line_id = p_line_id;
6437: EXCEPTION
6438: WHEN OTHERS THEN
6439: IF l_debug_level > 0 THEN
6440: oe_debug_pub.add('LINK CONFIG ERROR' , 2 );
6441: END IF;
6442: l_valid := 1;
6443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6444: END;
6469: END IF;
6470:
6471: ELSE
6472: IF l_debug_level > 0 THEN
6473: oe_debug_pub.add('LINK_CONFIG_ITEM ALLOWED ONLY FROM ATO MODEL', 2 );
6474: END IF;
6475: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_INVALID_ACTION');
6476: FND_MESSAGE.Set_Token('ACTION', 'Link Config');
6477: oe_msg_pub.add;
6477: oe_msg_pub.add;
6478: END IF;
6479:
6480: IF l_debug_level > 0 THEN
6481: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.LINK_CONFIG' , 1);
6482: END IF;
6483:
6484: x_return_status := l_return_status;
6485:
6485:
6486: EXCEPTION
6487: WHEN OTHERS THEN
6488: IF l_debug_level > 0 THEN
6489: oe_debug_pub.add('EXCEPTION IN LINK_CONFIG' , 1);
6490: END IF;
6491:
6492: IF l_valid = 0 THEN
6493: FND_MESSAGE.Set_Name('BOM', 'CTO_INVALID_LINK_ERROR');
6509: ,p_comp_seq_id IN NUMBER
6510: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
6511: IS
6512: --
6513: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6514: --
6515: BEGIN
6516: IF l_debug_level > 0 THEN
6517: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_COMP_SEQ_ID' , 1);
6513: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6514: --
6515: BEGIN
6516: IF l_debug_level > 0 THEN
6517: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_COMP_SEQ_ID' , 1);
6518: END IF;
6519:
6520: UPDATE oe_order_lines
6521: SET component_sequence_id = p_comp_seq_id
6527:
6528: x_return_status := FND_API.G_RET_STS_SUCCESS;
6529:
6530: IF l_debug_level > 0 THEN
6531: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_COMP_SEQ_ID' , 1);
6532: END IF;
6533:
6534: EXCEPTION
6535: WHEN no_data_found THEN
6533:
6534: EXCEPTION
6535: WHEN no_data_found THEN
6536: IF l_debug_level > 0 THEN
6537: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_COMP_SEQ_ID' , 1);
6538: END IF;
6539: x_return_status := FND_API.G_RET_STS_ERROR;
6540:
6541: WHEN others THEN
6539: x_return_status := FND_API.G_RET_STS_ERROR;
6540:
6541: WHEN others THEN
6542: IF l_debug_level > 0 THEN
6543: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_COMP_SEQ_ID' , 1);
6544: END IF;
6545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6546: END Update_Comp_Seq_Id;
6547:
6557: ,p_visible_demand_flag IN VARCHAR2 := 'N'
6558: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
6559: IS
6560: --
6561: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6562: --
6563: BEGIN
6564: IF l_debug_level > 0 THEN
6565: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6561: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6562: --
6563: BEGIN
6564: IF l_debug_level > 0 THEN
6565: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6566: END IF;
6567:
6568: UPDATE oe_order_lines
6569: SET visible_demand_flag = p_visible_demand_flag
6575:
6576: x_return_status := FND_API.G_RET_STS_SUCCESS;
6577:
6578: IF l_debug_level > 0 THEN
6579: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6580: END IF;
6581:
6582: EXCEPTION
6583: WHEN no_data_found THEN
6581:
6582: EXCEPTION
6583: WHEN no_data_found THEN
6584: IF l_debug_level > 0 THEN
6585: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6586: END IF;
6587: x_return_status := FND_API.G_RET_STS_ERROR;
6588:
6589: WHEN others THEN
6587: x_return_status := FND_API.G_RET_STS_ERROR;
6588:
6589: WHEN others THEN
6590: IF l_debug_level > 0 THEN
6591: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_VISIBLE_DEMAND_FLAG' , 1);
6592: END IF;
6593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6594: END Update_Visible_Demand_Flag;
6595:
6605: ,p_mfg_comp_seq_id IN NUMBER
6606: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
6607: IS
6608: --
6609: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6610: --
6611: BEGIN
6612: IF l_debug_level > 0 THEN
6613: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_MFG_COMP_SEQ_ID' , 1);
6609: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6610: --
6611: BEGIN
6612: IF l_debug_level > 0 THEN
6613: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_MFG_COMP_SEQ_ID' , 1);
6614: END IF;
6615:
6616: UPDATE oe_order_lines_all
6617: SET mfg_component_sequence_id = p_mfg_comp_seq_id
6623:
6624: x_return_status := FND_API.G_RET_STS_SUCCESS;
6625:
6626: IF l_debug_level > 0 THEN
6627: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_MFG_COMP_SEQ_ID' , 1);
6628: END IF;
6629:
6630: EXCEPTION
6631: WHEN no_data_found THEN
6629:
6630: EXCEPTION
6631: WHEN no_data_found THEN
6632: IF l_debug_level > 0 THEN
6633: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_MFG_COMP_SEQ_ID' , 1);
6634: END IF;
6635: x_return_status := FND_API.G_RET_STS_ERROR;
6636:
6637: WHEN others THEN
6635: x_return_status := FND_API.G_RET_STS_ERROR;
6636:
6637: WHEN others THEN
6638: IF l_debug_level > 0 THEN
6639: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_MFG_COMP_SEQ_ID' , 1);
6640: END IF;
6641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6642: END Update_Mfg_Comp_Seq_Id;
6643:
6653: ,p_model_group_number IN NUMBER
6654: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
6655: IS
6656: --
6657: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6658: --
6659: BEGIN
6660: IF l_debug_level > 0 THEN
6661: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_MODEL_GROUP_NUMBER' , 1);
6657: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6658: --
6659: BEGIN
6660: IF l_debug_level > 0 THEN
6661: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_MODEL_GROUP_NUMBER' , 1);
6662: END IF;
6663:
6664: UPDATE oe_order_lines
6665: SET model_group_number = p_model_group_number
6671:
6672: x_return_status := FND_API.G_RET_STS_SUCCESS;
6673:
6674: IF l_debug_level > 0 THEN
6675: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_MODEL_GROUP_NUMBER' , 1);
6676: END IF;
6677:
6678: EXCEPTION
6679: WHEN no_data_found THEN
6677:
6678: EXCEPTION
6679: WHEN no_data_found THEN
6680: IF l_debug_level > 0 THEN
6681: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_MODEL_GROUP_NUMBER' , 1);
6682: END IF;
6683: x_return_status := FND_API.G_RET_STS_ERROR;
6684:
6685: WHEN others THEN
6683: x_return_status := FND_API.G_RET_STS_ERROR;
6684:
6685: WHEN others THEN
6686: IF l_debug_level > 0 THEN
6687: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_MODEL_GROUP_NUMBER' , 1);
6688: END IF;
6689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6690: END Update_Model_Group_Number;
6691:
6704: ,p_prog_appl_id IN NUMBER
6705: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2 )
6706: IS
6707: --
6708: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6709: --
6710: BEGIN
6711: IF l_debug_level > 0 THEN
6712: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_CTO_COLUMNS' , 1);
6708: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6709: --
6710: BEGIN
6711: IF l_debug_level > 0 THEN
6712: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.UPDATE_CTO_COLUMNS' , 1);
6713: END IF;
6714:
6715: UPDATE oe_order_lines
6716: SET request_id = p_request_id
6725:
6726: x_return_status := FND_API.G_RET_STS_SUCCESS;
6727:
6728: IF l_debug_level > 0 THEN
6729: oe_debug_pub.add('EXITING OE_CONFIG_UTIL.UPDATE_CTO_COLUMNS' , 1);
6730: END IF;
6731:
6732: EXCEPTION
6733: WHEN no_data_found THEN
6731:
6732: EXCEPTION
6733: WHEN no_data_found THEN
6734: IF l_debug_level > 0 THEN
6735: oe_debug_pub.add('NO_DATA_FOUND IN UPDATE_CTO_COLUMNS' , 1);
6736: END IF;
6737: x_return_status := FND_API.G_RET_STS_ERROR;
6738:
6739: WHEN others THEN
6737: x_return_status := FND_API.G_RET_STS_ERROR;
6738:
6739: WHEN others THEN
6740: IF l_debug_level > 0 THEN
6741: oe_debug_pub.add('OTHERS EXCEPTION IN UPDATE_CTO_COLUMNS' , 1);
6742: END IF;
6743: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6744: END Update_Cto_Columns;
6745:
6772: l_split_tbl CTO_CHANGE_ORDER_PK.SPLIT_CHG_TABLE_TYPE;
6773: l_decimal_tbl CTO_CHANGE_ORDER_PK.OPTION_CHG_TABLE_TYPE;
6774:
6775: --
6776: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6777: --
6778: BEGIN
6779: IF l_debug_level > 0 THEN
6780: oe_debug_pub.add('ENTERING NOTIFY_CTO' , 1);
6776: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6777: --
6778: BEGIN
6779: IF l_debug_level > 0 THEN
6780: oe_debug_pub.add('ENTERING NOTIFY_CTO' , 1);
6781: END IF;
6782:
6783: I := 0;
6784:
6829: l_cto_change_tbl(I).old_value := p_request_rec.param12;
6830: l_cto_change_tbl(I).new_value := p_request_rec.param13;
6831: END IF;
6832: IF l_debug_level > 0 THEN
6833: oe_debug_pub.add('NOTIFY_CTO 3 ' , 1);
6834: END IF;
6835: IF p_request_rec.param14 is not NULL THEN
6836: I := I + 1;
6837: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.QTY2_UOM_CHANGE;
6838: l_cto_change_tbl(I).old_value := p_request_rec.param14;
6839: l_cto_change_tbl(I).new_value := p_request_rec.param15;
6840: END IF;
6841: IF l_debug_level > 0 THEN
6842: oe_debug_pub.add('NOTIFY_CTO 4 ' , 1);
6843: END IF;
6844: IF p_request_rec.param16 is not NULL THEN
6845: I := I + 1;
6846: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.QTY_UOM_CHANGE;
6853: I := p_request_tbl.FIRST;
6854: WHILE I is NOT NULL
6855: LOOP
6856: IF l_debug_level > 0 THEN
6857: oe_debug_pub.add('PTO ATO CREATE'|| P_REQUEST_TBL (I).PARAM1 , 3 );
6858: END IF;
6859:
6860: SELECT ato_line_id
6861: INTO l_ato_line_id
6864:
6865: IF l_ato_line_id = p_request_tbl(I).param2 THEN
6866:
6867: IF l_debug_level > 0 THEN
6868: oe_debug_pub.add('part of PTO, but correct ato_line_id ', 3 );
6869: END IF;
6870:
6871: l_cto_change_tbl(I).change_type := CTO_CHANGE_ORDER_PK.CONFIG_CHANGE;
6872: l_cto_change_tbl(I).old_value := p_request_tbl(I).param1;
6880: I := p_decimal_tbl.FIRST;
6881: WHILE I is NOT NULL
6882: LOOP
6883: IF l_debug_level > 0 THEN
6884: oe_debug_pub.add('new qty '|| P_decimal_TBL (I).PARAM4 , 3 );
6885: oe_debug_pub.add('old qty '|| P_decimal_TBL (I).PARAM5 , 3 );
6886: END IF;
6887:
6888: l_decimal_tbl(I).line_id := p_decimal_tbl(I).entity_id;
6881: WHILE I is NOT NULL
6882: LOOP
6883: IF l_debug_level > 0 THEN
6884: oe_debug_pub.add('new qty '|| P_decimal_TBL (I).PARAM4 , 3 );
6885: oe_debug_pub.add('old qty '|| P_decimal_TBL (I).PARAM5 , 3 );
6886: END IF;
6887:
6888: l_decimal_tbl(I).line_id := p_decimal_tbl(I).entity_id;
6889: l_decimal_tbl(I).old_Qty := p_decimal_tbl(I).param5;
6897: I := p_split_tbl.FIRST;
6898: WHILE I is NOT NULL
6899: LOOP
6900: IF l_debug_level > 0 THEN
6901: oe_debug_pub.add('split from '|| p_split_tbl (I).PARAM3 , 3 );
6902: oe_debug_pub.add('split to '|| p_split_tbl (I).PARAM4 , 3 );
6903: END IF;
6904:
6905: l_split_tbl(I).line_id := p_split_tbl(I).PARAM4;
6898: WHILE I is NOT NULL
6899: LOOP
6900: IF l_debug_level > 0 THEN
6901: oe_debug_pub.add('split from '|| p_split_tbl (I).PARAM3 , 3 );
6902: oe_debug_pub.add('split to '|| p_split_tbl (I).PARAM4 , 3 );
6903: END IF;
6904:
6905: l_split_tbl(I).line_id := p_split_tbl(I).PARAM4;
6906:
6907: I := p_split_tbl.NEXT(I);
6908: END LOOP;
6909:
6910: IF l_debug_level > 0 THEN
6911: oe_debug_pub.add('OLD QTY' || P_REQUEST_REC.PARAM1 , 3 );
6912: oe_debug_pub.add('NEW QTY' || P_REQUEST_REC.PARAM2 , 3 );
6913: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6914: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6915: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6908: END LOOP;
6909:
6910: IF l_debug_level > 0 THEN
6911: oe_debug_pub.add('OLD QTY' || P_REQUEST_REC.PARAM1 , 3 );
6912: oe_debug_pub.add('NEW QTY' || P_REQUEST_REC.PARAM2 , 3 );
6913: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6914: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6915: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6916: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6909:
6910: IF l_debug_level > 0 THEN
6911: oe_debug_pub.add('OLD QTY' || P_REQUEST_REC.PARAM1 , 3 );
6912: oe_debug_pub.add('NEW QTY' || P_REQUEST_REC.PARAM2 , 3 );
6913: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6914: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6915: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6916: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6917: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6910: IF l_debug_level > 0 THEN
6911: oe_debug_pub.add('OLD QTY' || P_REQUEST_REC.PARAM1 , 3 );
6912: oe_debug_pub.add('NEW QTY' || P_REQUEST_REC.PARAM2 , 3 );
6913: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6914: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6915: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6916: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6917: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6918: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6911: oe_debug_pub.add('OLD QTY' || P_REQUEST_REC.PARAM1 , 3 );
6912: oe_debug_pub.add('NEW QTY' || P_REQUEST_REC.PARAM2 , 3 );
6913: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6914: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6915: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6916: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6917: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6918: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6919: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6912: oe_debug_pub.add('NEW QTY' || P_REQUEST_REC.PARAM2 , 3 );
6913: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6914: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6915: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6916: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6917: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6918: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6919: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6920: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6913: oe_debug_pub.add('OLD RD' || P_REQUEST_REC.PARAM3 , 3 );
6914: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6915: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6916: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6917: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6918: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6919: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6920: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6921: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6914: oe_debug_pub.add('NEW RD' || P_REQUEST_REC.PARAM4 , 3 );
6915: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6916: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6917: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6918: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6919: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6920: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6921: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6922: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6915: oe_debug_pub.add('OLD SSD' || P_REQUEST_REC.PARAM5 , 3 );
6916: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6917: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6918: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6919: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6920: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6921: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6922: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6923: oe_debug_pub.add('PLINEID '|| L_ATO_LINE_ID , 3 );
6916: oe_debug_pub.add('NEW SSD' || P_REQUEST_REC.PARAM6 , 3 );
6917: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6918: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6919: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6920: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6921: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6922: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6923: oe_debug_pub.add('PLINEID '|| L_ATO_LINE_ID , 3 );
6924: oe_debug_pub.add('CALLING CTO PACKAGE '|| I , 3 );
6917: oe_debug_pub.add('OLD SAD' || P_REQUEST_REC.PARAM7 , 3 );
6918: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6919: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6920: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6921: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6922: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6923: oe_debug_pub.add('PLINEID '|| L_ATO_LINE_ID , 3 );
6924: oe_debug_pub.add('CALLING CTO PACKAGE '|| I , 3 );
6925: END IF;
6918: oe_debug_pub.add('NEW SAD' || P_REQUEST_REC.PARAM8 , 3 );
6919: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6920: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6921: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6922: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6923: oe_debug_pub.add('PLINEID '|| L_ATO_LINE_ID , 3 );
6924: oe_debug_pub.add('CALLING CTO PACKAGE '|| I , 3 );
6925: END IF;
6926:
6919: oe_debug_pub.add('CONFIG ' || P_REQUEST_REC.PARAM9 , 3 );
6920: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6921: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6922: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6923: oe_debug_pub.add('PLINEID '|| L_ATO_LINE_ID , 3 );
6924: oe_debug_pub.add('CALLING CTO PACKAGE '|| I , 3 );
6925: END IF;
6926:
6927: IF l_cto_change_tbl.COUNT > 0 THEN
6920: oe_debug_pub.add('OLD QTY2' || P_REQUEST_REC.PARAM12 , 3 );
6921: oe_debug_pub.add('NEW QTY2' || P_REQUEST_REC.PARAM3 , 3 );
6922: oe_debug_pub.add('PTOATO ' || P_REQUEST_TBL.COUNT , 3 );
6923: oe_debug_pub.add('PLINEID '|| L_ATO_LINE_ID , 3 );
6924: oe_debug_pub.add('CALLING CTO PACKAGE '|| I , 3 );
6925: END IF;
6926:
6927: IF l_cto_change_tbl.COUNT > 0 THEN
6928:
6939:
6940: x_return_status := l_return_status;
6941:
6942: IF l_debug_level > 0 THEN
6943: oe_debug_pub.add('LEAVING NOTIFY_CTO'|| X_RETURN_STATUS , 1);
6944: END IF;
6945: EXCEPTION
6946: WHEN OTHERS THEN
6947: IF l_debug_level > 0 THEN
6944: END IF;
6945: EXCEPTION
6946: WHEN OTHERS THEN
6947: IF l_debug_level > 0 THEN
6948: oe_debug_pub.add('EXCEPTION NOTIFY_CTO'|| SQLERRM , 1);
6949: END IF;
6950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6951: END;
6952:
6970: l_ordered_item VARCHAR2(2000);
6971: l_item_type_code VARCHAR2(30);
6972: l_inv_item_id NUMBER;
6973: --
6974: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
6975: --
6976: BEGIN
6977:
6978: IF l_debug_level > 0 THEN
6975: --
6976: BEGIN
6977:
6978: IF l_debug_level > 0 THEN
6979: oe_debug_pub.add('ENTERING DECIMAL_RATIO_CHECK '|| P_COMPONENT_CODE , 1);
6980: END IF;
6981:
6982: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_DECIMAL_RATIO');
6983:
7002:
7003: OE_Msg_Pub.Add;
7004:
7005: IF l_debug_level > 0 THEN
7006: oe_debug_pub.add('LEAVING DECIMAL_RATIO_CHECK' , 3 );
7007: END IF;
7008:
7009: EXCEPTION
7010: WHEN OTHERS THEN
7008:
7009: EXCEPTION
7010: WHEN OTHERS THEN
7011: IF l_debug_level > 0 THEN
7012: oe_debug_pub.add('DECIMAL_RATIO_CHECK '|| SQLERRM , 1);
7013: END IF;
7014:
7015: END Decimal_Ratio_Check;
7016:
7101: ,p_direct_save IN BOOLEAN := FALSE
7102: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
7103: IS
7104: --
7105: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7106: l_blanket_line_number NUMBER;
7107: l_blanket_version_number NUMBER;
7108: l_blanket_number NUMBER;
7109: l_blanket_req_date date;
7112: l_return_status VARCHAR2(1);
7113:
7114: BEGIN
7115: IF l_debug_level > 0 THEN
7116: oe_debug_pub.add('ENTERING DEFAULT_CHILD_LINE' , 1);
7117: END IF;
7118: x_return_status := FND_API.G_RET_STS_SUCCESS;
7119:
7120: IF p_parent_line_rec.header_id is NULL OR
7120: IF p_parent_line_rec.header_id is NULL OR
7121: p_parent_line_rec.top_model_line_id is NULL THEN
7122:
7123: IF l_debug_level > 0 THEN
7124: oe_debug_pub.add('CORRUPT DATA' , 3 );
7125: END IF;
7126: FND_Message.Set_Name('ONT', 'OE_CONFIG_WRONG_MODEL_LINK');
7127: FND_MESSAGE.Set_TOKEN('ITEM', nvl(p_x_child_line_rec.ordered_item
7128: ,p_x_child_line_rec.inventory_item_id));
7165: END IF ;
7166: ----END BUG 10364601
7167:
7168: IF l_debug_level > 0 THEN
7169: OE_DEBUG_PUB.Add(' parent customer line number'||p_parent_line_rec.customer_line_number,3);
7170: OE_DEBUG_PUB.Add(' child customer line number '|| p_x_child_line_rec.customer_line_number ,3);
7171: END IF;
7172:
7173:
7166: ----END BUG 10364601
7167:
7168: IF l_debug_level > 0 THEN
7169: OE_DEBUG_PUB.Add(' parent customer line number'||p_parent_line_rec.customer_line_number,3);
7170: OE_DEBUG_PUB.Add(' child customer line number '|| p_x_child_line_rec.customer_line_number ,3);
7171: END IF;
7172:
7173:
7174: p_x_child_line_rec.salesrep_id := p_parent_line_rec.salesrep_id;
7208: IF p_x_child_line_rec.line_type_id IS NOT NULL OR
7209: p_x_child_line_rec.line_type_id <> FND_API.G_MISS_NUM THEN
7210:
7211: IF l_debug_level > 0 THEN
7212: OE_DEBUG_PUB.Add('LineTypeID:'||p_x_child_line_rec.line_type_id,3);
7213: OE_DEBUG_PUB.Add('Inventory Item ID (from Parent Line):'
7214: ||p_parent_line_rec.inventory_item_id,3);
7215: END IF;
7216:
7209: p_x_child_line_rec.line_type_id <> FND_API.G_MISS_NUM THEN
7210:
7211: IF l_debug_level > 0 THEN
7212: OE_DEBUG_PUB.Add('LineTypeID:'||p_x_child_line_rec.line_type_id,3);
7213: OE_DEBUG_PUB.Add('Inventory Item ID (from Parent Line):'
7214: ||p_parent_line_rec.inventory_item_id,3);
7215: END IF;
7216:
7217: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
7222: IF l_part_of_container = 'N' THEN
7223: p_x_child_line_rec.line_type_id := p_parent_line_rec.line_type_id;
7224:
7225: IF l_debug_level > 0 THEN
7226: OE_DEBUG_PUB.Add
7227: ('Line_type from parent: '||p_x_child_line_rec.line_type_id,3);
7228: END IF;
7229: ELSE
7230: IF l_debug_level > 0 THEN
7227: ('Line_type from parent: '||p_x_child_line_rec.line_type_id,3);
7228: END IF;
7229: ELSE
7230: IF l_debug_level > 0 THEN
7231: OE_DEBUG_PUB.Add
7232: ('Keeping Line_type: '||p_x_child_line_rec.line_type_id,3);
7233: END IF;
7234: END IF;
7235: ELSE
7234: END IF;
7235: ELSE
7236: p_x_child_line_rec.line_type_id := p_parent_line_rec.line_type_id;
7237: IF l_debug_level > 0 THEN
7238: oe_debug_pub.add('COPY it: '|| P_X_CHILD_LINE_REC.line_type_id, 4 );
7239: END IF;
7240: END IF;
7241:
7242:
7245: IF p_parent_line_rec.blanket_number IS NOT NULL and
7246: p_parent_line_rec.item_type_code <> 'INCLUDED' THEN
7247:
7248: IF l_debug_level > 0 THEN
7249: oe_debug_pub.add('Blanket No:'
7250: ||p_parent_line_rec.blanket_number);
7251: oe_debug_pub.add('Top Model Inventory Item ID:'
7252: ||p_parent_line_rec.inventory_item_id );
7253: oe_debug_pub.add('Child Inventory Item ID:'
7247:
7248: IF l_debug_level > 0 THEN
7249: oe_debug_pub.add('Blanket No:'
7250: ||p_parent_line_rec.blanket_number);
7251: oe_debug_pub.add('Top Model Inventory Item ID:'
7252: ||p_parent_line_rec.inventory_item_id );
7253: oe_debug_pub.add('Child Inventory Item ID:'
7254: ||p_x_child_line_rec.inventory_item_id );
7255: oe_debug_pub.add('Child Item Type Code:'
7249: oe_debug_pub.add('Blanket No:'
7250: ||p_parent_line_rec.blanket_number);
7251: oe_debug_pub.add('Top Model Inventory Item ID:'
7252: ||p_parent_line_rec.inventory_item_id );
7253: oe_debug_pub.add('Child Inventory Item ID:'
7254: ||p_x_child_line_rec.inventory_item_id );
7255: oe_debug_pub.add('Child Item Type Code:'
7256: ||p_x_child_line_rec.item_type_code );
7257: END IF;
7251: oe_debug_pub.add('Top Model Inventory Item ID:'
7252: ||p_parent_line_rec.inventory_item_id );
7253: oe_debug_pub.add('Child Inventory Item ID:'
7254: ||p_x_child_line_rec.inventory_item_id );
7255: oe_debug_pub.add('Child Item Type Code:'
7256: ||p_x_child_line_rec.item_type_code );
7257: END IF;
7258:
7259: -- For the bug fix #3579240
7290: -- OE_CONFIG_UTIL.G_CONFIG_UI_USED = 'Y'
7291: THEN
7292:
7293: IF l_debug_level > 0 THEN
7294: oe_debug_pub.add('COPYING DFF TO CHILD' , 1);
7295: END IF;
7296:
7297: IF p_x_child_line_rec.attribute1 is null OR
7298: p_x_child_line_rec.attribute1 = FND_API.G_MISS_CHAR THEN
7704: (p_parent_line_rec.arrival_set_id is NOT NULL AND
7705: p_parent_line_rec.arrival_set_id <> FND_API.G_MISS_NUM)
7706: THEN
7707: IF l_debug_level > 0 THEN
7708: oe_debug_pub.add('**PARENT IS ATO OR SMC PTO OR IN SET' , 1);
7709: END IF;
7710:
7711: p_x_child_line_rec.schedule_ship_date :=
7712: p_parent_line_rec.schedule_ship_date;
7738:
7739: ------------- IF ATO ----------------------------------
7740: IF p_parent_line_rec.ato_line_id is not NULL THEN
7741: IF l_debug_level > 0 THEN
7742: oe_debug_pub.add('1 **SOURCE TYPE ATO '
7743: || P_PARENT_LINE_REC.SOURCE_TYPE_CODE , 4 );
7744: END IF;
7745:
7746: p_x_child_line_rec.source_type_code :=
7760: ------------- IF NON SMC, use this branch -----------------
7761: ELSE -- Added the else to fix the bug 3056512
7762:
7763: IF l_debug_level > 0 THEN
7764: oe_debug_pub.add('**PARENT IS NON SMC PTO ' , 1);
7765: END IF;
7766:
7767: IF p_x_child_line_rec.ship_to_org_id = FND_API.G_MISS_NUM OR
7768: p_x_child_line_rec.ship_to_org_id IS NULL THEN
7807: p_x_child_line_rec.ato_line_id is not NULL AND
7808: p_x_child_line_rec.line_id <> p_x_child_line_rec.ato_line_id THEN
7809:
7810: IF l_debug_level > 0 THEN
7811: oe_debug_pub.add('DEFAULTING USER_ITEM_DESCRIPTION
7812: FROM ATO FOR CONFIG ITEMS ', 1);
7813: END IF;
7814:
7815: SELECT user_item_description
7819:
7820: --no need to handle exception here as exception is handled outside
7821:
7822: IF l_debug_level > 0 THEN
7823: oe_debug_pub.add('USER_ITEM_DESCRIPTION on child line is: '
7824: || p_x_child_line_rec.user_item_description, 1);
7825: END IF;
7826:
7827: -- Populate delivery lead time from the parent.
7835: p_x_child_line_rec.top_model_line_id <> p_x_child_line_rec.ato_line_id
7836: THEN
7837:
7838: IF l_debug_level > 0 THEN
7839: oe_debug_pub.add('ATO IN PTO '||P_X_CHILD_LINE_REC.ATO_LINE_ID , 2 );
7840: END IF;
7841:
7842: SELECT source_type_code, project_id, task_id,
7843: ship_from_org_id, ship_to_org_id,
7864: FROM oe_order_lines
7865: WHERE line_id = p_x_child_line_rec.ato_line_id;
7866:
7867: IF l_debug_level > 0 THEN
7868: oe_debug_pub.add('2 **SOURCE TYPE ATO '
7869: || P_X_CHILD_LINE_REC.SOURCE_TYPE_CODE , 4 );
7870: END IF;
7871:
7872: END IF;
7879:
7880:
7881: x_return_status := FND_API.G_RET_STS_SUCCESS;
7882: IF l_debug_level > 0 THEN
7883: oe_debug_pub.add('LEAVING DEFAULT_CHILD_LINE' , 1);
7884: END IF;
7885:
7886: EXCEPTION
7887:
7886: EXCEPTION
7887:
7888: WHEN FND_API.G_EXC_ERROR THEN
7889: IF l_debug_level > 0 THEN
7890: oe_debug_pub.add('DEFAULT_CHILD_LINE, exc error '|| SQLERRM , 1);
7891: END IF;
7892: x_return_status := FND_API.G_RET_STS_ERROR;
7893:
7894: WHEN OTHERS THEN
7893:
7894: WHEN OTHERS THEN
7895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7896: IF l_debug_level > 0 THEN
7897: oe_debug_pub.add('others in DEFAULT_CHILD_LINE '|| SQLERRM , 1);
7898: END IF;
7899:
7900: END Default_Child_Line;
7901:
7930: l_item_type_code VARCHAR2(30);
7931: l_model_remnant_flag VARCHAR2(1);
7932: l_pre_exploded_flag VARCHAR2(1); -- DOO Preexploded Kit ER 9339742
7933: --
7934: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
7935: --
7936: BEGIN
7937:
7938: IF l_debug_level > 0 THEN
7935: --
7936: BEGIN
7937:
7938: IF l_debug_level > 0 THEN
7939: oe_debug_pub.add('ENTERING IS_INCLUDED_ITEM_CONSTRAINED' , 1);
7940: oe_debug_pub.add('OPERATION '|| OE_LINE_SECURITY.G_RECORD.OPERATION , 4 );
7941: oe_debug_pub.add('ITEM TYPE '||OE_LINE_SECURITY.G_RECORD.ITEM_TYPE_CODE,4);
7942: END IF;
7943:
7936: BEGIN
7937:
7938: IF l_debug_level > 0 THEN
7939: oe_debug_pub.add('ENTERING IS_INCLUDED_ITEM_CONSTRAINED' , 1);
7940: oe_debug_pub.add('OPERATION '|| OE_LINE_SECURITY.G_RECORD.OPERATION , 4 );
7941: oe_debug_pub.add('ITEM TYPE '||OE_LINE_SECURITY.G_RECORD.ITEM_TYPE_CODE,4);
7942: END IF;
7943:
7944: SELECT item_type_code, model_remnant_flag, pre_exploded_flag
7937:
7938: IF l_debug_level > 0 THEN
7939: oe_debug_pub.add('ENTERING IS_INCLUDED_ITEM_CONSTRAINED' , 1);
7940: oe_debug_pub.add('OPERATION '|| OE_LINE_SECURITY.G_RECORD.OPERATION , 4 );
7941: oe_debug_pub.add('ITEM TYPE '||OE_LINE_SECURITY.G_RECORD.ITEM_TYPE_CODE,4);
7942: END IF;
7943:
7944: SELECT item_type_code, model_remnant_flag, pre_exploded_flag
7945: INTO l_item_type_code, l_model_remnant_flag, l_pre_exploded_flag -- DOO Preexploded Kit ER 9339742
7946: FROM oe_order_lines
7947: WHERE line_id = oe_line_security.g_record.line_id;
7948:
7949: IF l_debug_level > 0 THEN -- DOO Preexploded Kit ER 9339742
7950: oe_debug_pub.add('Pre Exploded Flag is : '||l_pre_exploded_flag);
7951: END IF;
7952:
7953: IF nvl(l_item_type_code, 'A') <> 'INCLUDED' THEN
7954: x_result := 0;
7967: x_result := 1;
7968: END IF;
7969:
7970: IF l_debug_level > 0 THEN
7971: oe_debug_pub.add('LEAVING IS_INCLUDED_ITEM_CONSTRAINED '|| X_RESULT , 1);
7972: END IF;
7973:
7974: EXCEPTION
7975: WHEN OTHERS THEN
7973:
7974: EXCEPTION
7975: WHEN OTHERS THEN
7976: IF l_debug_level > 0 THEN
7977: oe_debug_pub.add('IS_INCLUDED_ITEM_CONSTRAINED ERROR '|| SQLERRM , 1);
7978: END IF;
7979: RAISE;
7980: END Is_Included_Item_Constrained;
7981:
7997: IS
7998: I NUMBER;
7999: l_return_status VARCHAR2(1);
8000: --
8001: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8002: --
8003: l_serviceable_item VARCHAR2(1); -- Added for bug 5925600
8004: l_serviced_model VARCHAR2(1); -- Added for bug 5925600
8005:
8004: l_serviced_model VARCHAR2(1); -- Added for bug 5925600
8005:
8006: BEGIN
8007: IF l_debug_level > 0 THEN
8008: oe_debug_pub.add('ENTERING LOG_INCLUDED_ITEM_REQUESTS'
8009: || P_LINE_TBL.COUNT , 1);
8010: END IF;
8011:
8012: I := p_line_tbl.FIRST;
8016: IF nvl(FND_PROFILE.VALUE('ONT_CHARGES_FOR_INCLUDED_ITEM'),'N') = 'Y'
8017: THEN
8018:
8019: IF l_debug_level > 0 THEN
8020: oe_debug_pub.add('RENGA-LOGGING REQ TO CHARGES FOR INCLUDED ' , 3 );
8021: oe_debug_pub.add('RENGA-LINE OPERATION IS : '
8022: || P_LINE_TBL (I).OPERATION , 3 );
8023: END IF;
8024:
8017: THEN
8018:
8019: IF l_debug_level > 0 THEN
8020: oe_debug_pub.add('RENGA-LOGGING REQ TO CHARGES FOR INCLUDED ' , 3 );
8021: oe_debug_pub.add('RENGA-LINE OPERATION IS : '
8022: || P_LINE_TBL (I).OPERATION , 3 );
8023: END IF;
8024:
8025: OE_LINE_ADJ_UTIL.Register_Changed_Lines
8027: p_header_id => p_line_tbl(I).header_id,
8028: p_operation => p_line_tbl(I).operation );
8029:
8030: IF l_debug_level > 0 THEN
8031: oe_debug_pub.add('RENGA-AFTER REGISTER_CHANGED_LINES Booked Flag=' || p_booked_flag , 3 );
8032: END IF;
8033:
8034: --Added the if clause for bug 6892989/6903859
8035: IF ( nvl(p_booked_flag,'N') = 'Y' ) THEN
8057: END IF;
8058:
8059:
8060: IF l_debug_level > 0 THEN
8061: oe_debug_pub.add
8062: ('RENGA-AFTER LOGGING DELAYED REQ FREIGHT_FOR_INCLUDED-2' , 3 );
8063: END IF;
8064:
8065: END IF;
8064:
8065: END IF;
8066:
8067: IF l_debug_level > 0 THEN
8068: oe_debug_pub.add('LOGGING REQ TO TAX_LINE ' , 3 );
8069: oe_debug_pub.add('REN: ITEM TYPE CODE IS: '
8070: || P_LINE_TBL (I).ITEM_TYPE_CODE , 1);
8071: END IF;
8072:
8065: END IF;
8066:
8067: IF l_debug_level > 0 THEN
8068: oe_debug_pub.add('LOGGING REQ TO TAX_LINE ' , 3 );
8069: oe_debug_pub.add('REN: ITEM TYPE CODE IS: '
8070: || P_LINE_TBL (I).ITEM_TYPE_CODE , 1);
8071: END IF;
8072:
8073: IF p_line_tbl(I).item_type_code not in ('INCLUDED', 'CONFIG') THEN
8072:
8073: IF p_line_tbl(I).item_type_code not in ('INCLUDED', 'CONFIG') THEN
8074:
8075: IF l_debug_level > 0 THEN
8076: oe_debug_pub.add('REN: ITEM TYPE CODE IS NOT INCLUDED OR CONFIG' , 1);
8077: END IF;
8078:
8079: IF (OE_GLOBALS.G_UI_FLAG) AND nvl(FND_PROFILE.VALUE('ONT_DELAY_TAX_CALC'), 'N') = 'N' THEN --TaxER
8080: OE_delayed_requests_Pvt.log_request
8101: IF OE_Commitment_Pvt.Do_Commitment_Sequencing AND
8102: p_line_tbl(I).commitment_id is not null
8103: THEN
8104: IF l_debug_level > 0 THEN
8105: oe_debug_pub.add('LOGGING REQ TO CALC COMMITMENT' , 3 );
8106: END IF;
8107:
8108: OE_Delayed_Requests_Pvt.Log_Request
8109: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE,
8117: IF p_booked_flag = 'Y' AND
8118: p_line_tbl(I).operation = 'UPDATE' THEN
8119:
8120: IF l_debug_level > 0 THEN
8121: oe_debug_pub.add('LOGGING REQ TO VERIFY_PAYMENT' , 3 );
8122: END IF;
8123: OE_delayed_requests_Pvt.log_request
8124: (p_entity_code => OE_GLOBALS.G_ENTITY_ALL,
8125: p_entity_id => p_line_tbl(I).header_id,
8135: AND OE_Freight_Rating_Util.Get_List_Line_Type_Code
8136: (p_line_tbl(I).header_id)
8137: = 'OM_CALLED_FREIGHT_RATES' THEN
8138: IF l_debug_level > 0 THEN
8139: oe_debug_pub.add
8140: ('LOGGING DELAYED REQUEST FOR FREIGHT RATE FOR INCLUDED ITEM: '
8141: ||P_LINE_TBL (I).HEADER_ID , 2 );
8142: END IF;
8143:
8154: /* Below code has been added for bug 5925600 */
8155: IF p_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
8156:
8157: if l_debug_level > 0 then
8158: oe_debug_pub.add('Before checking if we need to log delayed request for G_CASCADE_OPTIONS_SERVICE', 5);
8159: oe_debug_pub.ADD('operation : '|| p_line_tbl(I).operation);
8160: oe_debug_pub.ADD('inventory_item_id : '|| p_line_tbl(I).inventory_item_id);
8161: end if;
8162:
8155: IF p_line_tbl(I).operation = OE_GLOBALS.G_OPR_CREATE THEN
8156:
8157: if l_debug_level > 0 then
8158: oe_debug_pub.add('Before checking if we need to log delayed request for G_CASCADE_OPTIONS_SERVICE', 5);
8159: oe_debug_pub.ADD('operation : '|| p_line_tbl(I).operation);
8160: oe_debug_pub.ADD('inventory_item_id : '|| p_line_tbl(I).inventory_item_id);
8161: end if;
8162:
8163: BEGIN
8156:
8157: if l_debug_level > 0 then
8158: oe_debug_pub.add('Before checking if we need to log delayed request for G_CASCADE_OPTIONS_SERVICE', 5);
8159: oe_debug_pub.ADD('operation : '|| p_line_tbl(I).operation);
8160: oe_debug_pub.ADD('inventory_item_id : '|| p_line_tbl(I).inventory_item_id);
8161: end if;
8162:
8163: BEGIN
8164: select 'Y'
8174: l_serviceable_item := 'N';
8175: END;
8176:
8177: if l_debug_level > 0 then
8178: oe_debug_pub.ADD('serviceable option : '|| l_serviceable_item);
8179: oe_debug_pub.ADD('service_reference_line_id: '|| p_line_tbl(I).top_model_line_id);
8180: end if;
8181:
8182: IF l_serviceable_item = 'Y' THEN
8175: END;
8176:
8177: if l_debug_level > 0 then
8178: oe_debug_pub.ADD('serviceable option : '|| l_serviceable_item);
8179: oe_debug_pub.ADD('service_reference_line_id: '|| p_line_tbl(I).top_model_line_id);
8180: end if;
8181:
8182: IF l_serviceable_item = 'Y' THEN
8183:
8195: l_serviced_model := 'N';
8196: END;
8197:
8198: if l_debug_level > 0 then
8199: oe_debug_pub.ADD('serviced model : '|| l_serviced_model);
8200: end if;
8201:
8202: IF l_serviced_model = 'Y' THEN
8203:
8201:
8202: IF l_serviced_model = 'Y' THEN
8203:
8204: if l_debug_level > 0 then
8205: oe_debug_pub.add('Before log delayed request -- G_CASCADE_OPTIONS_SERVICE',1);
8206: end if;
8207:
8208: OE_Delayed_Requests_Pvt.log_request
8209: (
8222:
8223: END LOOP;
8224:
8225: IF l_debug_level > 0 THEN
8226: oe_debug_pub.add('LEAVING LOG_INCLUDED_ITEM_REQUESTS' , 1);
8227: END IF;
8228: EXCEPTION
8229: WHEN OTHERS THEN
8230: IF l_debug_level > 0 THEN
8227: END IF;
8228: EXCEPTION
8229: WHEN OTHERS THEN
8230: IF l_debug_level > 0 THEN
8231: oe_debug_pub.add('LOG_INCLUDED_ITEM_REQUESTS '|| SQLERRM , 1);
8232: END IF;
8233: RAISE;
8234: END;
8235:
8249: p_scope IN VARCHAR2,
8250: x_result OUT NOCOPY /* file.sql.39 change */ NUMBER )
8251: IS
8252: --
8253: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8254: --
8255: BEGIN
8256:
8257: x_result := 0;
8275: RETURN;
8276: END IF;
8277:
8278: IF l_debug_level > 0 THEN
8279: oe_debug_pub.add('REMNANT ATO CHECK CONSTRAINED' , 3 );
8280: END IF;
8281:
8282: x_result := 1;
8283:
8283:
8284: EXCEPTION
8285: WHEN OTHERS THEN
8286: IF l_debug_level > 0 THEN
8287: oe_debug_pub.add('ATO_REMNANT_CHECK ERROR '|| SQLERRM , 1);
8288: END IF;
8289: RAISE;
8290: END ATO_Remnant_Check;
8291:
8316: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
8317: IS
8318: l_count NUMBER;
8319: --
8320: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8321: --
8322: BEGIN
8323:
8324: Print_Time('entering Launch_Supply_Workbench');
8323:
8324: Print_Time('entering Launch_Supply_Workbench');
8325:
8326: IF l_debug_level > 0 THEN
8327: oe_debug_pub.add('-'|| P_HEADER_ID || '-' || P_TOP_MODEL_LINE_ID
8328: || '-' || P_ATO_LINE_ID || '-' || P_LINE_ID
8329: || '-' || P_ITEM_TYPE_CODE , 3 );
8330: END IF;
8331:
8331:
8332: IF p_header_id is not NULL AND
8333: p_line_id is not NULL THEN
8334: IF l_debug_level > 0 THEN
8335: oe_debug_pub.add('WRONG PARAMTERS' , 1);
8336: END IF;
8337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8338: END IF;
8339:
8363:
8364:
8365: IF l_count > 0 THEN
8366: IF l_debug_level > 0 THEN
8367: oe_debug_pub.add('ELIGIBLE LINES EXIST '|| L_COUNT , 1);
8368: END IF;
8369: ELSE
8370: IF l_debug_level > 0 THEN
8371: oe_debug_pub.add('NO ELIGIBLE LINES ' , 1);
8367: oe_debug_pub.add('ELIGIBLE LINES EXIST '|| L_COUNT , 1);
8368: END IF;
8369: ELSE
8370: IF l_debug_level > 0 THEN
8371: oe_debug_pub.add('NO ELIGIBLE LINES ' , 1);
8372: END IF;
8373: x_return_status := FND_API.G_RET_STS_ERROR;
8374: RETURN;
8375: END IF;
8377: IF p_header_id is not null AND
8378: p_line_id is null THEN
8379:
8380: IF l_debug_level > 0 THEN
8381: oe_debug_pub.add('WB ITEM TYPE IS HEADER '|| P_HEADER_ID , 3 );
8382: END IF;
8383: x_wb_item_type := 'HEAD';
8384:
8385: ElSIF p_top_model_line_id is not null AND
8386: p_ato_line_id is null AND
8387: p_item_type_code = 'MODEL' THEN
8388:
8389: IF l_debug_level > 0 THEN
8390: oe_debug_pub.add('WB ITEM TYPE IS PTO MODEL '
8391: || P_TOP_MODEL_LINE_ID , 3 );
8392: END IF;
8393: x_wb_item_type := 'PTO';
8394:
8396: (p_item_type_code = 'MODEL' OR
8397: p_item_type_code = 'CLASS') THEN
8398:
8399: IF l_debug_level > 0 THEN
8400: oe_debug_pub.add('WB ITEM TYPE IS ATO MODEL ' || P_ATO_LINE_ID , 3 );
8401: END IF;
8402: x_wb_item_type := 'MDL';
8403:
8404: ELSE
8408: p_item_type_code = 'OPTION' OR
8409: p_item_type_code = 'INCLUDED') THEN --9775352
8410:
8411: IF l_debug_level > 0 THEN
8412: oe_debug_pub.add('WB ITEM TYPE IS ATO ITEM ' || P_LINE_ID , 3 );
8413: END IF;
8414: x_wb_item_type := 'ATO';
8415:
8416: ELSIF p_item_type_code = 'CONFIG' THEN
8414: x_wb_item_type := 'ATO';
8415:
8416: ELSIF p_item_type_code = 'CONFIG' THEN
8417: IF l_debug_level > 0 THEN
8418: oe_debug_pub.add('WB ITEM TYPE IS CONFIG ITEM ' || P_LINE_ID , 3 );
8419: END IF;
8420: x_wb_item_type := 'CFG';
8421:
8422: ELSE
8420: x_wb_item_type := 'CFG';
8421:
8422: ELSE
8423: IF l_debug_level > 0 THEN
8424: oe_debug_pub.add('WB ITEM TYPE IS STD DROPSHIP ITEM '
8425: || P_LINE_ID , 3 );
8426: END IF;
8427: x_wb_item_type := 'STD';
8428: END IF;
8433:
8434: EXCEPTION
8435: WHEN OTHERS THEN
8436: IF l_debug_level > 0 THEN
8437: oe_debug_pub.add('ERROR IN LAUNCH_SUPPLY_WORKBENCH'|| SQLERRM , 1);
8438: END IF;
8439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8440: END Launch_Supply_Workbench;
8441:
8466: AND config_rev_nbr = p_config_rev_nbr;
8467:
8468:
8469: BEGIN
8470: oe_debug_pub.add(' Entering Message_From_Cz');
8471:
8472: OPEN messages(l_config_header_id, l_config_rev_nbr);
8473:
8474: LOOP
8475: FETCH messages into l_constraint,l_msg;
8476: EXIT when messages%notfound;
8477:
8478: OE_Msg_Pub.Add_Text(l_msg);
8479: oe_debug_pub.add('msg from spc: '||messages%rowcount , 2);
8480: oe_debug_pub.add('msg from spc: '|| substr(l_msg, 1, 250) , 3);
8481:
8482: END LOOP;
8483:
8476: EXIT when messages%notfound;
8477:
8478: OE_Msg_Pub.Add_Text(l_msg);
8479: oe_debug_pub.add('msg from spc: '||messages%rowcount , 2);
8480: oe_debug_pub.add('msg from spc: '|| substr(l_msg, 1, 250) , 3);
8481:
8482: END LOOP;
8483:
8484: IF nvl(p_valid_config, 'FALSE') = 'FALSE' THEN
8508: END IF;
8509:
8510: EXCEPTION
8511: WHEN OTHERS THEN
8512: OE_Debug_Pub.Add('Error in Message_From_Cz '|| sqlerrm, 2);
8513: END Message_From_Cz;
8514:
8515: /*--------------------------------------------------------
8516: PROCEDURE Get_Config_Effective_Date
8542: l_profile VARCHAR2(1);
8543: l_line_set_id NUMBER;
8544: l_split_from_line_id NUMBER;
8545: --
8546: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8547: --
8548: BEGIN
8549:
8550: IF l_debug_level > 0 THEN
8547: --
8548: BEGIN
8549:
8550: IF l_debug_level > 0 THEN
8551: OE_Debug_Pub.Add
8552: ('entering Get_Config_Effective_Date '|| p_model_line_id, 3);
8553: END IF;
8554:
8555: IF p_model_line_rec.header_id is not NULL THEN
8555: IF p_model_line_rec.header_id is not NULL THEN
8556:
8557: l_header_id := p_model_line_rec.header_id;
8558:
8559: OE_Debug_Pub.Add('model header id '|| p_model_line_rec.header_id, 3);
8560: OE_Debug_Pub.Add('split id '|| p_model_line_rec.split_from_line_id, 3);
8561: OE_Debug_Pub.Add('line id '|| p_model_line_rec.line_id, 3);
8562:
8563: IF p_model_line_rec.split_from_line_id is NOT NULL THEN
8556:
8557: l_header_id := p_model_line_rec.header_id;
8558:
8559: OE_Debug_Pub.Add('model header id '|| p_model_line_rec.header_id, 3);
8560: OE_Debug_Pub.Add('split id '|| p_model_line_rec.split_from_line_id, 3);
8561: OE_Debug_Pub.Add('line id '|| p_model_line_rec.line_id, 3);
8562:
8563: IF p_model_line_rec.split_from_line_id is NOT NULL THEN
8564: BEGIN
8557: l_header_id := p_model_line_rec.header_id;
8558:
8559: OE_Debug_Pub.Add('model header id '|| p_model_line_rec.header_id, 3);
8560: OE_Debug_Pub.Add('split id '|| p_model_line_rec.split_from_line_id, 3);
8561: OE_Debug_Pub.Add('line id '|| p_model_line_rec.line_id, 3);
8562:
8563: IF p_model_line_rec.split_from_line_id is NOT NULL THEN
8564: BEGIN
8565: SELECT creation_date
8572: -- Begin of Bug Fix 11848700
8573: WHEN NO_DATA_FOUND THEN
8574: BEGIN
8575: IF l_debug_level > 0 THEN
8576: OE_Debug_Pub.Add('Getting the data from history for '|| p_model_line_rec.split_from_line_id, 3);
8577: END IF;
8578: SELECT creation_date
8579: INTO l_creation_date
8580: FROM oe_order_lines_history
8590: END;
8591:
8592:
8593: IF l_debug_level > 0 THEN
8594: OE_Debug_Pub.Add
8595: ('split '||p_model_line_rec.split_from_line_id||l_creation_date,3);
8596: END IF;
8597:
8598: ELSE
8600: IF p_model_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
8601:
8602: l_creation_date := sysdate;
8603: IF l_debug_level > 0 THEN
8604: OE_Debug_Pub.Add('model is getting created today', 3);
8605: END IF;
8606:
8607: ELSE
8608: l_creation_date := p_model_line_rec.creation_date;
8612:
8613: ELSIF p_model_line_id is not NULL THEN
8614:
8615: IF l_debug_level > 0 THEN
8616: OE_Debug_Pub.Add('using model line id '|| p_model_line_id, 3);
8617: END IF;
8618:
8619: SELECT header_id, creation_date,
8620: line_set_id, split_from_line_id
8636: WHEN NO_DATA_FOUND THEN
8637:
8638: BEGIN
8639: IF l_debug_level > 0 THEN
8640: OE_Debug_Pub.Add('Getting the data from history for '|| l_split_from_line_id, 3);
8641: END IF;
8642: SELECT creation_date
8643: INTO l_creation_date
8644: FROM oe_order_lines_history
8654: END;
8655:
8656:
8657: IF l_debug_level > 0 THEN
8658: OE_Debug_Pub.Add
8659: ('split case '|| l_split_from_line_id || l_creation_date, 3);
8660: END IF;
8661: END IF;
8662:
8662:
8663: ELSE
8664:
8665: IF l_debug_level > 0 THEN
8666: OE_Debug_Pub.Add('something wrong in i/p'|| p_model_line_id, 3);
8667: END IF;
8668:
8669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8670:
8676: l_profile := nvl(OE_Sys_Parameters.VALUE('ONT_CONFIG_EFFECTIVITY_DATE'),
8677: '1');
8678:
8679: IF l_debug_level > 0 THEN
8680: oe_debug_pub.add('pack J code '||l_profile, 1);
8681: END IF;
8682:
8683: ELSE
8684:
8687: IF l_profile > 1 THEN
8688:
8689: IF OE_Process_Options_Pvt.Use_Configurator THEN
8690: IF l_debug_level > 0 THEN
8691: oe_debug_pub.add('USE CONFIGURATOR, ct fix' , 1);
8692: END IF;
8693: ELSE
8694: l_profile := 1;
8695:
8709: x_config_effective_date := l_creation_date;
8710: x_frozen_model_bill := 'Y';
8711:
8712: IF l_debug_level > 0 THEN
8713: OE_Debug_Pub.Add('creation date is effective date', 3);
8714: END IF;
8715:
8716: ELSIF l_profile = '3' THEN
8717:
8722: FROM oe_order_headers
8723: WHERE header_id = l_header_id;
8724:
8725: IF l_debug_level > 0 THEN
8726: OE_Debug_Pub.Add('booked, frozen: ' || x_frozen_model_bill, 3);
8727: END IF;
8728:
8729: IF x_frozen_model_bill = 'Y' THEN
8730: IF l_creation_date > x_config_effective_date THEN --bug5969409
8733: l_header_id := sysdate - x_config_effective_date;
8734:
8735: IF l_header_id < 0.007 THEN -- some 10 min right now***
8736: IF l_debug_level > 0 THEN
8737: OE_Debug_Pub.Add('not frozen, as booked now? '||l_header_id , 3);
8738: END IF;
8739: x_frozen_model_bill := 'N';
8740: END IF;
8741: END IF;
8741: END IF;
8742: ELSE
8743:
8744: IF l_debug_level > 0 THEN
8745: OE_Debug_Pub.Add('not frozen, not booked', 3);
8746: END IF;
8747: x_config_effective_date := sysdate;
8748: END IF;
8749: -- Added for ER#6187663 Start
8758: -- Added for ER#6187663 Start
8759:
8760: ELSE
8761: IF l_debug_level > 0 THEN
8762: OE_Debug_Pub.Add('something wrong???', 3);
8763: END IF;
8764: END IF;
8765:
8766: IF l_debug_level > 0 THEN
8763: END IF;
8764: END IF;
8765:
8766: IF l_debug_level > 0 THEN
8767: OE_Debug_Pub.Add
8768: ('leaving Get_Config_Effective_Date '||
8769: to_char(x_config_effective_date, 'DD-MON-YY HH24:MI:SS'), 3);
8770: OE_Debug_Pub.Add('sysdate '||to_char(sysdate, 'DD-MON-YY HH24:MI:SS'),3);
8771: OE_Debug_Pub.Add(x_frozen_model_bill || '-'|| x_old_behavior, 3);
8766: IF l_debug_level > 0 THEN
8767: OE_Debug_Pub.Add
8768: ('leaving Get_Config_Effective_Date '||
8769: to_char(x_config_effective_date, 'DD-MON-YY HH24:MI:SS'), 3);
8770: OE_Debug_Pub.Add('sysdate '||to_char(sysdate, 'DD-MON-YY HH24:MI:SS'),3);
8771: OE_Debug_Pub.Add(x_frozen_model_bill || '-'|| x_old_behavior, 3);
8772: END IF;
8773:
8774: EXCEPTION
8767: OE_Debug_Pub.Add
8768: ('leaving Get_Config_Effective_Date '||
8769: to_char(x_config_effective_date, 'DD-MON-YY HH24:MI:SS'), 3);
8770: OE_Debug_Pub.Add('sysdate '||to_char(sysdate, 'DD-MON-YY HH24:MI:SS'),3);
8771: OE_Debug_Pub.Add(x_frozen_model_bill || '-'|| x_old_behavior, 3);
8772: END IF;
8773:
8774: EXCEPTION
8775: WHEN OTHERS THEN
8773:
8774: EXCEPTION
8775: WHEN OTHERS THEN
8776: IF l_debug_level > 0 THEN
8777: OE_Debug_Pub.Add('Get_Config_Effective_Date '|| sqlerrm, 1);
8778: END IF;
8779:
8780: x_config_effective_date := null;
8781: x_frozen_model_bill := null;
8794: PROCEDURE Print_Time(p_msg IN VARCHAR2)
8795: IS
8796: l_time VARCHAR2(100);
8797: --
8798: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8799: --
8800: BEGIN
8801: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
8802: 'DD-MON-YY HH24:MI:SS');
8800: BEGIN
8801: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
8802: 'DD-MON-YY HH24:MI:SS');
8803: IF l_debug_level > 0 THEN
8804: oe_debug_pub.add(P_MSG || ': '|| L_TIME , 1);
8805: END IF;
8806: END Print_Time;
8807:
8808: /*--------------------------------------------------------
8823: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
8824: l_order_number NUMBER;
8825:
8826: --
8827: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
8828: --
8829: BEGIN
8830:
8831: IF l_debug_level > 0 THEN
8828: --
8829: BEGIN
8830:
8831: IF l_debug_level > 0 THEN
8832: oe_debug_pub.add('ENTERING OE_CONFIG_UTIL.Unlock_Config' , 1);
8833: END IF;
8834:
8835:
8836: OE_CONFIG_TSO_PVT.Is_Part_Of_Container_Model
8843: l_order_number := OE_SCHEDULE_UTIL.get_order_number(p_line_rec.header_id);
8844:
8845: IF l_debug_level > 0 THEN
8846:
8847: oe_debug_pub.add(' Calling Unlock_Config' || p_line_rec.config_header_id, 2);
8848: oe_debug_pub.add(' Config rev nbr' || p_line_rec.config_rev_nbr, 2);
8849: oe_debug_pub.add(' Configuration_id ' || p_line_rec.configuration_id, 2);
8850: oe_debug_pub.add(' order_number ' || l_order_number, 2);
8851:
8844:
8845: IF l_debug_level > 0 THEN
8846:
8847: oe_debug_pub.add(' Calling Unlock_Config' || p_line_rec.config_header_id, 2);
8848: oe_debug_pub.add(' Config rev nbr' || p_line_rec.config_rev_nbr, 2);
8849: oe_debug_pub.add(' Configuration_id ' || p_line_rec.configuration_id, 2);
8850: oe_debug_pub.add(' order_number ' || l_order_number, 2);
8851:
8852: END IF;
8845: IF l_debug_level > 0 THEN
8846:
8847: oe_debug_pub.add(' Calling Unlock_Config' || p_line_rec.config_header_id, 2);
8848: oe_debug_pub.add(' Config rev nbr' || p_line_rec.config_rev_nbr, 2);
8849: oe_debug_pub.add(' Configuration_id ' || p_line_rec.configuration_id, 2);
8850: oe_debug_pub.add(' order_number ' || l_order_number, 2);
8851:
8852: END IF;
8853:
8846:
8847: oe_debug_pub.add(' Calling Unlock_Config' || p_line_rec.config_header_id, 2);
8848: oe_debug_pub.add(' Config rev nbr' || p_line_rec.config_rev_nbr, 2);
8849: oe_debug_pub.add(' Configuration_id ' || p_line_rec.configuration_id, 2);
8850: oe_debug_pub.add(' order_number ' || l_order_number, 2);
8851:
8852: END IF;
8853:
8854: CZ_IB_LOCKING.Unlock_Config
8870: x_msg_data => l_msg_data);
8871:
8872: IF l_debug_level > 0 THEN
8873:
8874: oe_debug_pub.add(' After calling CZ Unlock_Config ' || x_return_status,2);
8875: END IF;
8876:
8877: IF l_msg_count > 0 THEN
8878:
8883:
8884: END IF;
8885:
8886: IF l_debug_level > 0 THEN
8887: oe_debug_pub.add('Exiting OE_CONFIG_UTIL.Unlock_Config' || x_return_status, 1);
8888: END IF;
8889:
8890: EXCEPTION
8891:
8890: EXCEPTION
8891:
8892: WHEN OTHERS THEN
8893: IF l_debug_level > 0 THEN
8894: oe_debug_pub.add('ERROR IN OE_CONFIG_UTIL.Unlock_Config'|| SQLERRM , 1);
8895: END IF;
8896: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8897: END Unlock_Config;
8898:
9008: AND top_model_line_id = c_top_model_line_id
9009: AND header_id = c_header_id
9010: AND item_type_code = OE_GLOBALS.G_ITEM_INCLUDED;
9011: --
9012: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
9013: --
9014: BEGIN
9015:
9016: if l_debug_level > 0 then
9013: --
9014: BEGIN
9015:
9016: if l_debug_level > 0 then
9017: oe_debug_pub.add(' Entering OE_Config_Util.Process_Pre_Exploded_Kits',1);
9018: end if;
9019:
9020: x_return_status := l_return_status;
9021:
9026: ,p_x_line_rec => l_parent_line_rec
9027: ,x_return_status => l_return_status);
9028:
9029: if l_debug_level > 0 then
9030: oe_debug_pub.add(' Parent Line is Locked and Queried',5);
9031: end if;
9032:
9033: -- A top model parent line can either be a MODEL in a case of PTO or KIT
9034: -- in case of Kits. It cannot have any other values. If it is then no
9037: OR l_parent_line_rec.ordered_quantity = 0
9038: -- OR l_parent_line_rec.explosion_date is null
9039: THEN
9040: if l_debug_level > 0 then
9041: oe_debug_pub.add(' The parent line is not a Kit, Kit in a Class, or Qty is 0. RETURN...',1);
9042: end if;
9043: RETURN;
9044: END IF;
9045:
9057: END IF;
9058: CLOSE C_PreExploded_Kit;
9059:
9060: if l_debug_level > 0 then
9061: oe_debug_pub.add(' Count of Included Items under Kit : '||l_included_item_tbl.COUNT,5);
9062: end if;
9063:
9064: l_explosion_date := SYSDATE;
9065: l_validation_org := OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
9073: x_error_code => l_error_code,
9074: x_return_status => l_return_status);
9075:
9076: if l_debug_level > 0 then
9077: oe_debug_pub.add(' Return Status from BOM Explosion API is : '||l_return_status,1);
9078: end if;
9079:
9080: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
9081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9091: FETCH C_Bill_Seq_id INTO l_parent_component_sequence_id, l_line_id, l_inventory_item_id;
9092: EXIT WHEN C_Bill_Seq_id%NOTFOUND;
9093:
9094: if l_debug_level > 0 then
9095: oe_debug_pub.add(' Get BOM for parent Seq id = '||l_parent_component_sequence_id,5);
9096: end if;
9097: OPEN C_Bom_Explosion_Info (l_parent_component_sequence_id, l_explosion_date);
9098: IF C_Bom_Explosion_Info%ISOPEN THEN
9099: LOOP
9110: END IF;
9111: CLOSE C_Bill_Seq_id;
9112:
9113: if l_debug_level > 0 then
9114: oe_debug_pub.add(' Validating BOM definition between DOO and EBS',5);
9115: oe_debug_pub.add(' ---------------------------------------------',5);
9116: oe_debug_pub.add(' EBS OM Information from DOO -',5);
9117: oe_debug_pub.add(' Count of Included Items : '||l_included_item_tbl.count,5);
9118: IF l_included_item_tbl.COUNT > 0 THEN -- Bug 14172135
9111: CLOSE C_Bill_Seq_id;
9112:
9113: if l_debug_level > 0 then
9114: oe_debug_pub.add(' Validating BOM definition between DOO and EBS',5);
9115: oe_debug_pub.add(' ---------------------------------------------',5);
9116: oe_debug_pub.add(' EBS OM Information from DOO -',5);
9117: oe_debug_pub.add(' Count of Included Items : '||l_included_item_tbl.count,5);
9118: IF l_included_item_tbl.COUNT > 0 THEN -- Bug 14172135
9119: for i in l_included_item_tbl.first .. l_included_item_tbl.last loop
9112:
9113: if l_debug_level > 0 then
9114: oe_debug_pub.add(' Validating BOM definition between DOO and EBS',5);
9115: oe_debug_pub.add(' ---------------------------------------------',5);
9116: oe_debug_pub.add(' EBS OM Information from DOO -',5);
9117: oe_debug_pub.add(' Count of Included Items : '||l_included_item_tbl.count,5);
9118: IF l_included_item_tbl.COUNT > 0 THEN -- Bug 14172135
9119: for i in l_included_item_tbl.first .. l_included_item_tbl.last loop
9120: oe_debug_pub.add(' Line_id : '||l_included_item_tbl(i).line_id,5);
9113: if l_debug_level > 0 then
9114: oe_debug_pub.add(' Validating BOM definition between DOO and EBS',5);
9115: oe_debug_pub.add(' ---------------------------------------------',5);
9116: oe_debug_pub.add(' EBS OM Information from DOO -',5);
9117: oe_debug_pub.add(' Count of Included Items : '||l_included_item_tbl.count,5);
9118: IF l_included_item_tbl.COUNT > 0 THEN -- Bug 14172135
9119: for i in l_included_item_tbl.first .. l_included_item_tbl.last loop
9120: oe_debug_pub.add(' Line_id : '||l_included_item_tbl(i).line_id,5);
9121: oe_debug_pub.add(' Inventory Item id : '||l_included_item_tbl(i).inventory_item_id,5);
9116: oe_debug_pub.add(' EBS OM Information from DOO -',5);
9117: oe_debug_pub.add(' Count of Included Items : '||l_included_item_tbl.count,5);
9118: IF l_included_item_tbl.COUNT > 0 THEN -- Bug 14172135
9119: for i in l_included_item_tbl.first .. l_included_item_tbl.last loop
9120: oe_debug_pub.add(' Line_id : '||l_included_item_tbl(i).line_id,5);
9121: oe_debug_pub.add(' Inventory Item id : '||l_included_item_tbl(i).inventory_item_id,5);
9122: oe_debug_pub.add(' Ordered Quantity UOM : '||l_included_item_tbl(i).order_quantity_uom,5);
9123: oe_debug_pub.add(' Ord Qty Ratio : '||l_included_item_tbl(i).ordered_quantity/l_parent_line_rec.ordered_quantity,5);
9124: end loop;
9117: oe_debug_pub.add(' Count of Included Items : '||l_included_item_tbl.count,5);
9118: IF l_included_item_tbl.COUNT > 0 THEN -- Bug 14172135
9119: for i in l_included_item_tbl.first .. l_included_item_tbl.last loop
9120: oe_debug_pub.add(' Line_id : '||l_included_item_tbl(i).line_id,5);
9121: oe_debug_pub.add(' Inventory Item id : '||l_included_item_tbl(i).inventory_item_id,5);
9122: oe_debug_pub.add(' Ordered Quantity UOM : '||l_included_item_tbl(i).order_quantity_uom,5);
9123: oe_debug_pub.add(' Ord Qty Ratio : '||l_included_item_tbl(i).ordered_quantity/l_parent_line_rec.ordered_quantity,5);
9124: end loop;
9125: END IF;
9118: IF l_included_item_tbl.COUNT > 0 THEN -- Bug 14172135
9119: for i in l_included_item_tbl.first .. l_included_item_tbl.last loop
9120: oe_debug_pub.add(' Line_id : '||l_included_item_tbl(i).line_id,5);
9121: oe_debug_pub.add(' Inventory Item id : '||l_included_item_tbl(i).inventory_item_id,5);
9122: oe_debug_pub.add(' Ordered Quantity UOM : '||l_included_item_tbl(i).order_quantity_uom,5);
9123: oe_debug_pub.add(' Ord Qty Ratio : '||l_included_item_tbl(i).ordered_quantity/l_parent_line_rec.ordered_quantity,5);
9124: end loop;
9125: END IF;
9126:
9119: for i in l_included_item_tbl.first .. l_included_item_tbl.last loop
9120: oe_debug_pub.add(' Line_id : '||l_included_item_tbl(i).line_id,5);
9121: oe_debug_pub.add(' Inventory Item id : '||l_included_item_tbl(i).inventory_item_id,5);
9122: oe_debug_pub.add(' Ordered Quantity UOM : '||l_included_item_tbl(i).order_quantity_uom,5);
9123: oe_debug_pub.add(' Ord Qty Ratio : '||l_included_item_tbl(i).ordered_quantity/l_parent_line_rec.ordered_quantity,5);
9124: end loop;
9125: END IF;
9126:
9127: oe_debug_pub.add(' EBS BOM Information -',5);
9123: oe_debug_pub.add(' Ord Qty Ratio : '||l_included_item_tbl(i).ordered_quantity/l_parent_line_rec.ordered_quantity,5);
9124: end loop;
9125: END IF;
9126:
9127: oe_debug_pub.add(' EBS BOM Information -',5);
9128: oe_debug_pub.add(' Count of Included Items : '||l_Bom_Explosion_Tbl.count,5);
9129: IF l_Bom_Explosion_Tbl.COUNT > 0 THEN -- Bug 14172135
9130: for i in l_Bom_Explosion_Tbl.first .. l_Bom_Explosion_Tbl.last loop
9131: oe_debug_pub.add(' Inventory Item id : '||l_Bom_Explosion_Tbl(i).component_item_id,5);
9124: end loop;
9125: END IF;
9126:
9127: oe_debug_pub.add(' EBS BOM Information -',5);
9128: oe_debug_pub.add(' Count of Included Items : '||l_Bom_Explosion_Tbl.count,5);
9129: IF l_Bom_Explosion_Tbl.COUNT > 0 THEN -- Bug 14172135
9130: for i in l_Bom_Explosion_Tbl.first .. l_Bom_Explosion_Tbl.last loop
9131: oe_debug_pub.add(' Inventory Item id : '||l_Bom_Explosion_Tbl(i).component_item_id,5);
9132: oe_debug_pub.add(' BOM Quantity UOM : '||l_Bom_Explosion_Tbl(i).primary_uom_code,5);
9127: oe_debug_pub.add(' EBS BOM Information -',5);
9128: oe_debug_pub.add(' Count of Included Items : '||l_Bom_Explosion_Tbl.count,5);
9129: IF l_Bom_Explosion_Tbl.COUNT > 0 THEN -- Bug 14172135
9130: for i in l_Bom_Explosion_Tbl.first .. l_Bom_Explosion_Tbl.last loop
9131: oe_debug_pub.add(' Inventory Item id : '||l_Bom_Explosion_Tbl(i).component_item_id,5);
9132: oe_debug_pub.add(' BOM Quantity UOM : '||l_Bom_Explosion_Tbl(i).primary_uom_code,5);
9133: oe_debug_pub.add(' Quantity Ratio : '||l_Bom_Explosion_Tbl(i).extended_quantity,5);
9134: end loop;
9135: END IF;
9128: oe_debug_pub.add(' Count of Included Items : '||l_Bom_Explosion_Tbl.count,5);
9129: IF l_Bom_Explosion_Tbl.COUNT > 0 THEN -- Bug 14172135
9130: for i in l_Bom_Explosion_Tbl.first .. l_Bom_Explosion_Tbl.last loop
9131: oe_debug_pub.add(' Inventory Item id : '||l_Bom_Explosion_Tbl(i).component_item_id,5);
9132: oe_debug_pub.add(' BOM Quantity UOM : '||l_Bom_Explosion_Tbl(i).primary_uom_code,5);
9133: oe_debug_pub.add(' Quantity Ratio : '||l_Bom_Explosion_Tbl(i).extended_quantity,5);
9134: end loop;
9135: END IF;
9136: end if;
9129: IF l_Bom_Explosion_Tbl.COUNT > 0 THEN -- Bug 14172135
9130: for i in l_Bom_Explosion_Tbl.first .. l_Bom_Explosion_Tbl.last loop
9131: oe_debug_pub.add(' Inventory Item id : '||l_Bom_Explosion_Tbl(i).component_item_id,5);
9132: oe_debug_pub.add(' BOM Quantity UOM : '||l_Bom_Explosion_Tbl(i).primary_uom_code,5);
9133: oe_debug_pub.add(' Quantity Ratio : '||l_Bom_Explosion_Tbl(i).extended_quantity,5);
9134: end loop;
9135: END IF;
9136: end if;
9137:
9154: -- Validating if the EBS BOM definition in BOM_Explosions table
9155: -- and BOM information passed by DOO in OE_order_Lines_All table is same
9156: IF l_included_item_tbl.COUNT <> l_Bom_Explosion_Tbl.COUNT THEN
9157: if l_debug_level > 0 then
9158: oe_debug_pub.add(' The count of Included Items are not same',5);
9159: end if;
9160: l_return_status := FND_API.G_RET_STS_ERROR;
9161: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_BOM');
9162: oe_msg_pub.add;
9179: l_item_check := TRUE;
9180: l_validation_status := TRUE;
9181:
9182: if l_debug_level > 0 then
9183: oe_debug_pub.add(' Inventory Item id is matching'||l_included_item_tbl(i).inventory_item_id,5);
9184: end if;
9185:
9186: -- Ordered Quantity Ratio Check
9187: IF l_included_item_tbl(i).ordered_quantity/l_parent_line_rec.ordered_quantity =
9186: -- Ordered Quantity Ratio Check
9187: IF l_included_item_tbl(i).ordered_quantity/l_parent_line_rec.ordered_quantity =
9188: l_Bom_Explosion_Tbl(j).extended_quantity THEN
9189: if l_debug_level > 0 then
9190: oe_debug_pub.add(' Quantity is in ratio : '||l_Bom_Explosion_Tbl(j).extended_quantity,5);
9191: end if;
9192: ELSE
9193: if l_debug_level > 0 then
9194: oe_debug_pub.add(' Quantity is NOT in ratio',1);
9190: oe_debug_pub.add(' Quantity is in ratio : '||l_Bom_Explosion_Tbl(j).extended_quantity,5);
9191: end if;
9192: ELSE
9193: if l_debug_level > 0 then
9194: oe_debug_pub.add(' Quantity is NOT in ratio',1);
9195: end if;
9196: l_validation_status := FALSE;
9197: l_return_status := FND_API.G_RET_STS_ERROR;
9198: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_QTY_RATIO');
9203: -- There is an assumption from DOO that DOO UOM, EBS OM UOM
9204: -- and EBS BOM UOM will be same
9205: IF l_included_item_tbl(i).order_quantity_uom = l_Bom_Explosion_Tbl(j).primary_uom_code THEN
9206: if l_debug_level > 0 then
9207: oe_debug_pub.add(' Quantity UOM is matching : '||l_Bom_Explosion_Tbl(j).primary_uom_code,5);
9208: end if;
9209: ELSE
9210: if l_debug_level > 0 then
9211: oe_debug_pub.add(' Quantity UOM is NOT matching : '||l_Bom_Explosion_Tbl(j).primary_uom_code,5);
9207: oe_debug_pub.add(' Quantity UOM is matching : '||l_Bom_Explosion_Tbl(j).primary_uom_code,5);
9208: end if;
9209: ELSE
9210: if l_debug_level > 0 then
9211: oe_debug_pub.add(' Quantity UOM is NOT matching : '||l_Bom_Explosion_Tbl(j).primary_uom_code,5);
9212: end if;
9213: l_validation_status := FALSE;
9214: l_return_status := FND_API.G_RET_STS_ERROR;
9215: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_UOM');
9217: END IF;
9218:
9219: IF l_validation_status THEN
9220: if l_debug_level > 0 then
9221: oe_debug_pub.add(' Setting the BOM data in OM for Line : '||l_included_item_tbl(i).line_id,5);
9222: end if;
9223:
9224: UPDATE OE_order_Lines_All
9225: SET Component_Sequence_id = l_Bom_Explosion_Tbl(j).component_sequence_id
9237: l_included_item_tbl(i).Link_To_Line_id := l_Bom_Explosion_Tbl(j).OM_Parent_Line_id;
9238:
9239: IF l_included_item_tbl(i).component_code <> (l_Bom_Explosion_Tbl(j).OM_Parent_Inventory_Item_id||'-'||l_included_item_tbl(i).inventory_item_id) THEN
9240: if l_debug_level > 0 then
9241: oe_debug_pub.add(' Invalid Association between the Included Item and its immediate parent',1);
9242: end if;
9243: l_return_status := FND_API.G_RET_STS_ERROR;
9244: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_BOM');
9245: oe_msg_pub.add;
9256: END LOOP;
9257:
9258: IF NOT(l_item_check) THEN
9259: if l_debug_level > 0 then
9260: oe_debug_pub.add(' Inventory Item Mismatch : '||l_Bom_Explosion_Tbl(j).component_item_id,1);
9261: end if;
9262: l_validation_status := FALSE;
9263: l_return_status := FND_API.G_RET_STS_ERROR;
9264: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_ITEM');
9266: END IF;
9267:
9268: IF NOT(l_validation_status) THEN
9269: if l_debug_level > 0 then
9270: oe_debug_pub.add(' BOM Validation Failure',1);
9271: end if;
9272: l_return_status := FND_API.G_RET_STS_ERROR;
9273: FND_MESSAGE.Set_Name('ONT', 'OE_DOO_INVALID_BOM');
9274: oe_msg_pub.add;
9276: END IF;
9277:
9278: ELSE
9279: if l_debug_level > 0 then
9280: oe_debug_pub.add(' There are no Included Items from BOM Explosion',5);
9281: end if;
9282: END IF; -- l_included_item_tbl
9283: END LOOP;
9284: END IF; -- l_Bom_Explosion_Tbl
9312:
9313: x_return_status := l_return_status;
9314:
9315: if l_debug_level > 0 then
9316: oe_debug_pub.add(' Exiting OE_Config_Util.Process_Pre_Exploded_Kits',1);
9317: end if;
9318:
9319: EXCEPTION
9320: WHEN FND_API.G_EXC_ERROR THEN