[Home] [Help]
157: l_msg_data VARCHAR2(2000);
158: l_return_status VARCHAR2(1);
159: l_model_new_qty NUMBER;
160: --
161: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
162: --
163: BEGIN
164:
165: Print_Time('Entering Process Config '|| p_config_hdr_id);
191:
192: IF l_model_line_rec.booked_flag = 'N' and l_profile_value = 'Y' AND
193: p_ui_flag = 'Y' THEN
194: IF l_debug_level > 0 THEN
195: oe_debug_pub.add( 'DIRECT SAVE ON' , 1 ) ;
196: END IF;
197: l_direct_save := TRUE;
198: ELSE
199: IF l_debug_level > 0 THEN
196: END IF;
197: l_direct_save := TRUE;
198: ELSE
199: IF l_debug_level > 0 THEN
200: oe_debug_pub.add( 'DIRECT SAVE OFF' || L_PROFILE_VALUE , 1 ) ;
201: END IF;
202: l_direct_save := FALSE;
203: END IF;
204:
224: WHERE inventory_item_id = l_model_line_rec.inventory_item_id
225: AND LINE_ID = l_model_line_rec.line_id;
226:
227: IF l_debug_level > 0 THEN
228: oe_debug_pub.add( 'Configuration_id for Model: '|| l_model_line_rec.line_id , 1 ) ;
229: END IF;
230:
231: EXCEPTION
232: WHEN OTHERS THEN
230:
231: EXCEPTION
232: WHEN OTHERS THEN
233: IF l_debug_level > 0 THEN
234: oe_debug_pub.add( 'QTY SELECT: '|| SQLERRM , 1 ) ;
235: END IF;
236: RAISE;
237: END;
238:
238:
239: IF l_model_new_qty <> nvl(l_model_line_rec.ordered_quantity, 0) THEN
240:
241: IF l_debug_level > 0 THEN
242: oe_debug_pub.add('UPDATE MODEL WITH NEW QTY '|| L_MODEL_NEW_QTY,1);
243: END IF;
244:
245: l_model_line_rec.ordered_quantity := l_model_new_qty;
246: l_model_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
263: IF l_model_line_rec.config_header_id is not null AND
264: l_model_line_rec.config_rev_nbr is not null THEN
265:
266: IF l_debug_level > 0 THEN
267: oe_debug_pub.add('MODEL QTY: '|| L_MODEL_LINE_REC.ORDERED_QUANTITY,1);
268: END IF;
269:
270: Handle_Updates(p_model_line_rec => l_model_line_rec
271: ,p_config_hdr_id => p_config_hdr_id
283: ,p_direct_save => FALSE
284: ,p_ui_flag => p_ui_flag);
285: ELSE
286: IF l_debug_level > 0 THEN
287: oe_debug_pub.add( 'FIRST TIME CREATE , NO UPD/DEL REQ.' , 1 ) ;
288: END IF;
289: l_operation := 'C';
290: END IF;
291:
292:
293: --even if line_count = 0, we need to call, for change columns.
294:
295: IF l_debug_level > 0 THEN
296: oe_debug_pub.add( 'PROCESS CONFIG , LINES: '||L_LINE_TBL.COUNT , 1 ) ;
297: oe_debug_pub.add( 'DIRECT SAVE LINES: '||L_CLASS_LINE_TBL.COUNT , 1 ) ;
298: END IF;
299:
300: l_control_rec.check_security := TRUE;
293: --even if line_count = 0, we need to call, for change columns.
294:
295: IF l_debug_level > 0 THEN
296: oe_debug_pub.add( 'PROCESS CONFIG , LINES: '||L_LINE_TBL.COUNT , 1 ) ;
297: oe_debug_pub.add( 'DIRECT SAVE LINES: '||L_CLASS_LINE_TBL.COUNT , 1 ) ;
298: END IF;
299:
300: l_control_rec.check_security := TRUE;
301:
316: ,p_update_columns => TRUE
317: ,x_return_status => l_return_status);
318:
319: IF l_debug_level > 0 THEN
320: oe_debug_pub.add('PROCESS ORDER RETURN_STATUS: ' || L_RETURN_STATUS ,1);
321: END IF;
322:
323: -- Bug 12695580
324: IF l_debug_level > 0 THEN
321: END IF;
322:
323: -- Bug 12695580
324: IF l_debug_level > 0 THEN
325: Oe_debug_pub.ADD('12695580 : Resetting G_CANCELLATION_ACTION');
326: END IF;
327: oe_sales_can_util.G_CANCELLATION_ACTION := 'N';
328:
329: IF p_config_hdr_id = l_model_line_rec.config_header_id AND
327: oe_sales_can_util.G_CANCELLATION_ACTION := 'N';
328:
329: IF p_config_hdr_id = l_model_line_rec.config_header_id AND
330: p_config_rev_nbr = l_model_line_rec.config_rev_nbr THEN
331: oe_debug_pub.add('do not delete, special', 1);
332: ELSE
333: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
334: -- since we could not save the config successfully,
335: -- delete current rev. in SPC
361: IF p_ui_flag = 'Y' AND ( nvl(l_line_tbl.count, 0) > 0 OR
362: p_config_hdr_id is not null ) THEN
363: x_change_flag := 'Y';
364: IF l_debug_level > 0 THEN
365: oe_debug_pub.add( 'CHANGED CONFIG INTERACTIVELY' , 1 ) ;
366: END IF;
367: END IF;
368:
369: x_return_status := FND_API.G_RET_STS_SUCCESS;
394: );
395:
396: WHEN OTHERS THEN
397: IF l_debug_level > 0 THEN
398: oe_debug_pub.add( 'ERROR: ' || SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
399: END IF;
400: -- Bug 12695580
401: oe_sales_can_util.G_CANCELLATION_ACTION := 'N';
402:
486: l_return_status VARCHAR2(1);
487: l_concatenated_segments VARCHAR2(163);
488: l_default_child_line BOOLEAN := TRUE;
489: --
490: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
491: --
492: l_top_container_model VARCHAR2(1);
493: l_part_of_container VARCHAR2(1);
494: l_default_line_type_id NUMBER; --Added for bug 5107271
497:
498: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
499:
500: IF l_debug_level > 0 THEN
501: oe_debug_pub.add( 'INS: PACK H NEW LOGIC' , 1 ) ;
502: END IF;
503:
504: BEGIN
505:
518: AND open_flag = 'Y';
519:
520: IF SQL%FOUND THEN
521: IF l_debug_level > 0 THEN
522: oe_debug_pub.add( 'CONFIGURATION_ID UPDATED '|| SQL%ROWCOUNT ,3);
523: END IF;
524: ELSE
525: IF l_debug_level > 0 THEN
526: oe_debug_pub.add( 'CRM 1:CONFIGURATION_ID NOT UPDATED ' , 3 ) ;
522: oe_debug_pub.add( 'CONFIGURATION_ID UPDATED '|| SQL%ROWCOUNT ,3);
523: END IF;
524: ELSE
525: IF l_debug_level > 0 THEN
526: oe_debug_pub.add( 'CRM 1:CONFIGURATION_ID NOT UPDATED ' , 3 ) ;
527: END IF;
528:
529: UPDATE oe_order_lines oe
530: SET ( configuration_id , sort_order ) =
540: AND open_flag = 'Y';
541:
542: IF SQL%FOUND THEN
543: IF l_debug_level > 0 THEN
544: oe_debug_pub.add( 'CRM: CONFIGURATION_ID '|| SQL%ROWCOUNT , 3 ) ;
545: END IF;
546: ELSE
547: IF l_debug_level > 0 THEN
548: oe_debug_pub.add( 'CRM 2:CONFIGURATION_ID NOT UPDATED ' , 3 ) ;
544: oe_debug_pub.add( 'CRM: CONFIGURATION_ID '|| SQL%ROWCOUNT , 3 ) ;
545: END IF;
546: ELSE
547: IF l_debug_level > 0 THEN
548: oe_debug_pub.add( 'CRM 2:CONFIGURATION_ID NOT UPDATED ' , 3 ) ;
549: END IF;
550: END IF;
551: END IF;
552:
559: OE_Msg_Pub.Add;
560: RAISE;
561: WHEN OTHERS THEN
562: IF l_debug_level > 0 THEN
563: oe_debug_pub.add( 'OTHERS IN CONFIG ID UPD '|| SQLERRM , 1 ) ;
564: END IF;
565: RAISE;
566: END;
567:
574: ,p_x_class_line_tbl => p_x_class_line_tbl
575: ,p_direct_save => p_direct_save);
576:
577: IF l_debug_level > 0 THEN
578: oe_debug_pub.add( 'RETURNING..' , 1 ) ;
579: END IF;
580:
581: RETURN;
582: END IF;
600: ,x_top_container_model => l_top_container_model
601: ,x_part_of_container => l_part_of_container );
602:
603: IF l_debug_level > 0 THEN
604: OE_DEBUG_PUB.Add('Line ID:'||p_model_line_rec.line_id,3);
605: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
606: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
607: END IF;
608:
601: ,x_part_of_container => l_part_of_container );
602:
603: IF l_debug_level > 0 THEN
604: OE_DEBUG_PUB.Add('Line ID:'||p_model_line_rec.line_id,3);
605: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
606: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
607: END IF;
608:
609: IF l_top_container_model = 'Y' THEN
602:
603: IF l_debug_level > 0 THEN
604: OE_DEBUG_PUB.Add('Line ID:'||p_model_line_rec.line_id,3);
605: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
606: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
607: END IF;
608:
609: IF l_top_container_model = 'Y' THEN
610:
612: l_line_rec.ib_current_location := NULL;
613: l_line_rec.ib_installed_at_location := NULL;
614:
615: IF l_debug_level > 0 THEN
616: OE_DEBUG_PUB.Add('IB Fields set to NULL for child lines',3);
617: END IF;
618:
619: END IF;
620: END IF;
629:
630: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' THEN
631: FOR T IN 1..p_config_instance_tbl.COUNT LOOP
632: IF l_debug_level > 0 THEN
633: oe_debug_pub.add('CZ Inst Hdr:'||config_rec.instance_hdr_id,2);
634: oe_debug_pub.add('IB inst Hdr:'
635: ||p_config_instance_tbl(T).config_instance_hdr_id,2);
636: oe_debug_pub.add('CZ Rev Nbr:'||config_rec.instance_rev_nbr,2);
637: oe_debug_pub.add('IB Rev:'
630: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' THEN
631: FOR T IN 1..p_config_instance_tbl.COUNT LOOP
632: IF l_debug_level > 0 THEN
633: oe_debug_pub.add('CZ Inst Hdr:'||config_rec.instance_hdr_id,2);
634: oe_debug_pub.add('IB inst Hdr:'
635: ||p_config_instance_tbl(T).config_instance_hdr_id,2);
636: oe_debug_pub.add('CZ Rev Nbr:'||config_rec.instance_rev_nbr,2);
637: oe_debug_pub.add('IB Rev:'
638: ||p_config_instance_tbl(T).config_instance_rev_number,2);
632: IF l_debug_level > 0 THEN
633: oe_debug_pub.add('CZ Inst Hdr:'||config_rec.instance_hdr_id,2);
634: oe_debug_pub.add('IB inst Hdr:'
635: ||p_config_instance_tbl(T).config_instance_hdr_id,2);
636: oe_debug_pub.add('CZ Rev Nbr:'||config_rec.instance_rev_nbr,2);
637: oe_debug_pub.add('IB Rev:'
638: ||p_config_instance_tbl(T).config_instance_rev_number,2);
639: oe_debug_pub.add('CZ Item:'||config_rec.config_item_id,3);
640: oe_debug_pub.add('IB Item:'||
633: oe_debug_pub.add('CZ Inst Hdr:'||config_rec.instance_hdr_id,2);
634: oe_debug_pub.add('IB inst Hdr:'
635: ||p_config_instance_tbl(T).config_instance_hdr_id,2);
636: oe_debug_pub.add('CZ Rev Nbr:'||config_rec.instance_rev_nbr,2);
637: oe_debug_pub.add('IB Rev:'
638: ||p_config_instance_tbl(T).config_instance_rev_number,2);
639: oe_debug_pub.add('CZ Item:'||config_rec.config_item_id,3);
640: oe_debug_pub.add('IB Item:'||
641: p_config_instance_tbl(T).config_instance_item_id,2);
635: ||p_config_instance_tbl(T).config_instance_hdr_id,2);
636: oe_debug_pub.add('CZ Rev Nbr:'||config_rec.instance_rev_nbr,2);
637: oe_debug_pub.add('IB Rev:'
638: ||p_config_instance_tbl(T).config_instance_rev_number,2);
639: oe_debug_pub.add('CZ Item:'||config_rec.config_item_id,3);
640: oe_debug_pub.add('IB Item:'||
641: p_config_instance_tbl(T).config_instance_item_id,2);
642: END IF;
643:
636: oe_debug_pub.add('CZ Rev Nbr:'||config_rec.instance_rev_nbr,2);
637: oe_debug_pub.add('IB Rev:'
638: ||p_config_instance_tbl(T).config_instance_rev_number,2);
639: oe_debug_pub.add('CZ Item:'||config_rec.config_item_id,3);
640: oe_debug_pub.add('IB Item:'||
641: p_config_instance_tbl(T).config_instance_item_id,2);
642: END IF;
643:
644: IF config_rec.instance_hdr_id =
646: config_rec.config_item_id =
647: p_config_instance_tbl(T).config_instance_item_id THEN
648:
649: IF l_debug_level > 0 THEN
650: oe_debug_pub.add
651: ('match found for item:'||config_rec.inventory_item_id);
652: END IF;
653:
654: l_line_rec.invoice_to_org_id :=
661: END IF;
662: END LOOP;
663: ELSE
664: IF l_debug_level > 0 THEN
665: OE_DEBUG_PUB.Add('Not in pack J. No MACD Logic',3);
666: OE_DEBUG_PUB.Add('IB Values NOT populated',3);
667: END IF;
668:
669: END IF;
662: END LOOP;
663: ELSE
664: IF l_debug_level > 0 THEN
665: OE_DEBUG_PUB.Add('Not in pack J. No MACD Logic',3);
666: OE_DEBUG_PUB.Add('IB Values NOT populated',3);
667: END IF;
668:
669: END IF;
670: --MACD---------------------------------------------
683: RAISE FND_API.G_EXC_ERROR;
684: END;
685:
686: IF l_debug_level > 0 THEN
687: oe_debug_pub.add('CONCAT SEGMENT IS: ' || L_CONCATENATED_SEGMENTS,3);
688: oe_debug_pub.add('INSERTING COMP CODE: '||CONFIG_REC.COMPONENT_CODE,1);
689: oe_debug_pub.add('CONFIGURATION ID: ' || CONFIG_REC.CONFIG_ITEM_ID ,1);
690: END IF;
691:
684: END;
685:
686: IF l_debug_level > 0 THEN
687: oe_debug_pub.add('CONCAT SEGMENT IS: ' || L_CONCATENATED_SEGMENTS,3);
688: oe_debug_pub.add('INSERTING COMP CODE: '||CONFIG_REC.COMPONENT_CODE,1);
689: oe_debug_pub.add('CONFIGURATION ID: ' || CONFIG_REC.CONFIG_ITEM_ID ,1);
690: END IF;
691:
692: IF p_direct_save AND
685:
686: IF l_debug_level > 0 THEN
687: oe_debug_pub.add('CONCAT SEGMENT IS: ' || L_CONCATENATED_SEGMENTS,3);
688: oe_debug_pub.add('INSERTING COMP CODE: '||CONFIG_REC.COMPONENT_CODE,1);
689: oe_debug_pub.add('CONFIGURATION ID: ' || CONFIG_REC.CONFIG_ITEM_ID ,1);
690: END IF;
691:
692: IF p_direct_save AND
693: (config_rec.bom_item_type = 2 OR config_rec.bom_item_type = 1)
694: THEN
695:
696: IF l_default_child_line THEN
697:
698: oe_debug_pub.add( 'DIRECT SAVE IS ON' , 3 ) ;
699:
700: l_class_line_rec.config_header_id := p_config_hdr_id;
701: l_class_line_rec.config_rev_nbr := p_config_rev_nbr;
702:
720: IF config_rec.line_type IS NOT NULL AND
721: config_rec.line_type <> FND_API.G_MISS_NUM THEN
722:
723: IF l_debug_level > 0 THEN
724: OE_DEBUG_PUB.Add('Line Type from cz:'||config_rec.line_type,3);
725: END IF;
726: l_class_line_rec.line_type_id := config_rec.line_type;
727: ELSE
728: /* Modified the below statement for bug 5107271 to assign the value of
758: IF config_rec.line_type IS NOT NULL AND
759: config_rec.line_type <> FND_API.G_MISS_NUM THEN
760:
761: IF l_debug_level > 0 THEN
762: OE_DEBUG_PUB.Add('cz LineType:'||config_rec.line_type,3);
763: END IF;
764: l_line_rec.line_type_id := config_rec.line_type;
765: ELSE
766: l_line_rec.line_type_id := FND_API.G_MISS_NUM;
793: Print_Time('Handle_Inserts end time');
794: EXCEPTION
795: WHEN OTHERS THEN
796: IF l_debug_level > 0 THEN
797: oe_debug_pub.add( 'EXCEPTION IN HANDLE_INSERTS'|| SQLERRM , 1 ) ;
798: END IF;
799:
800: RAISE;
801: END Handle_Inserts;
852: l_return_status VARCHAR2(1);
853: l_concatenated_segments VARCHAR2(163);
854: l_default_child_line BOOLEAN := TRUE;
855: --
856: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
857: --
858: BEGIN
859: Print_Time('Handle_Inserts start time');
860:
884: RAISE FND_API.G_EXC_ERROR;
885: END;
886:
887: IF l_debug_level > 0 THEN
888: oe_debug_pub.add('CONCAT SEGMENT IS: ' || L_CONCATENATED_SEGMENTS ,3);
889: oe_debug_pub.add('INSERTING COMP CODE: ' || CONFIG_REC.COMPONENT_CODE,1);
890: END IF;
891:
892: IF p_direct_save AND
885: END;
886:
887: IF l_debug_level > 0 THEN
888: oe_debug_pub.add('CONCAT SEGMENT IS: ' || L_CONCATENATED_SEGMENTS ,3);
889: oe_debug_pub.add('INSERTING COMP CODE: ' || CONFIG_REC.COMPONENT_CODE,1);
890: END IF;
891:
892: IF p_direct_save AND
893: (config_rec.bom_item_type = 2 OR config_rec.bom_item_type = 1)
894: THEN
895:
896: IF l_default_child_line THEN
897:
898: oe_debug_pub.add( 'DIRECT SAVE IS ON' , 3 ) ;
899:
900: OE_Config_Util.Default_Child_Line
901: ( p_parent_line_rec => p_model_line_rec
902: ,p_x_child_line_rec => l_class_line_rec
961: Print_Time('Handle_Inserts_Old end time');
962: EXCEPTION
963: WHEN OTHERS THEN
964: IF l_debug_level > 0 THEN
965: oe_debug_pub.add( 'EXCEPTION IN HANDLE_INSERTS_OLD'|| SQLERRM , 1 ) ;
966: END IF;
967: RAISE;
968: END Handle_Inserts_Old;
969:
1017: l_class_line_rec OE_ORDER_PUB.Line_Rec_Type;
1018: l_line_count NUMBER;
1019: l_class_line_count NUMBER;
1020: --
1021: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1022: --
1023: BEGIN
1024: Print_Time('Handle_Updates start time');
1025:
1025:
1026: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508'
1027: THEN
1028: IF l_debug_level > 0 THEN
1029: oe_debug_pub.add( 'PACK H NEW LOGIC' , 1 ) ;
1030: END IF;
1031: ELSE
1032: Handle_Updates_Old
1033: (p_model_line_rec => p_model_line_rec
1038: ,p_direct_save => FALSE
1039: ,p_ui_flag => p_ui_flag);
1040:
1041: IF l_debug_level > 0 THEN
1042: oe_debug_pub.add( 'RETURNING..' , 1 ) ;
1043: END IF;
1044:
1045: RETURN;
1046: END IF;
1056: FOR config_rec in config_upd_cursor
1057: LOOP
1058:
1059: IF l_debug_level > 0 THEN
1060: oe_debug_pub.add
1061: ('OE QTY: '||CONFIG_REC.ORDERED_QUANTITY||'CZ QTY '||CONFIG_REC.QUANTITY ,1);
1062: oe_debug_pub.add('UPDATING COMP CODE: ' || CONFIG_REC.COMPONENT_CODE ,1);
1063: oe_debug_pub.add( 'I LINE ID:' || CONFIG_REC.LINE_ID , 1 ) ;
1064: END IF;
1058:
1059: IF l_debug_level > 0 THEN
1060: oe_debug_pub.add
1061: ('OE QTY: '||CONFIG_REC.ORDERED_QUANTITY||'CZ QTY '||CONFIG_REC.QUANTITY ,1);
1062: oe_debug_pub.add('UPDATING COMP CODE: ' || CONFIG_REC.COMPONENT_CODE ,1);
1063: oe_debug_pub.add( 'I LINE ID:' || CONFIG_REC.LINE_ID , 1 ) ;
1064: END IF;
1065:
1066: l_line_rec.line_id := config_rec.line_id;
1059: IF l_debug_level > 0 THEN
1060: oe_debug_pub.add
1061: ('OE QTY: '||CONFIG_REC.ORDERED_QUANTITY||'CZ QTY '||CONFIG_REC.QUANTITY ,1);
1062: oe_debug_pub.add('UPDATING COMP CODE: ' || CONFIG_REC.COMPONENT_CODE ,1);
1063: oe_debug_pub.add( 'I LINE ID:' || CONFIG_REC.LINE_ID , 1 ) ;
1064: END IF;
1065:
1066: l_line_rec.line_id := config_rec.line_id;
1067: l_line_rec.ordered_quantity := config_rec.quantity;
1076:
1077: IF config_rec.quantity > config_rec.ordered_quantity
1078: AND Nvl(config_rec.cancelled_quantity,0) > 0
1079: AND oe_sales_can_util.G_CANCELLATION_ACTION = 'C' THEN
1080: oe_debug_pub.ADD('12695580 : Setting G_CANCELLATION_ACTION');
1081: oe_sales_can_util.G_CANCELLATION_ACTION := 'CR';
1082: END IF;
1083: /* End 12695580 */
1084:
1085: IF config_rec.line_type IS NOT NULL AND
1086: config_rec.line_type <> FND_API.G_MISS_NUM THEN
1087:
1088: IF l_debug_level > 0 THEN
1089: OE_DEBUG_PUB.Add('MACD Logic,cz Line_type:'||config_rec.line_type,3);
1090: END IF;
1091: l_line_rec.line_type_id := config_rec.line_type;
1092: ELSE
1093: l_line_rec.line_type_id := FND_API.G_MISS_NUM;
1116: Print_Time('Handle_Updates end time');
1117: EXCEPTION
1118: WHEN OTHERS THEN
1119: IF l_debug_level > 0 THEN
1120: oe_debug_pub.add( 'EXCEPTION IN HANDLE_UPDATES'|| SQLERRM , 1 ) ;
1121: END IF;
1122:
1123: -- Bug 12695580
1124: IF l_debug_level > 0 THEN
1121: END IF;
1122:
1123: -- Bug 12695580
1124: IF l_debug_level > 0 THEN
1125: oe_debug_pub.ADD('12695580 : Resetting G_CANCELLATION_ACTION');
1126: END IF;
1127: oe_sales_can_util.G_CANCELLATION_ACTION := 'N';
1128:
1129: RAISE;
1169: l_class_line_rec OE_ORDER_PUB.Line_Rec_Type;
1170: l_line_count NUMBER;
1171: l_class_line_count NUMBER;
1172: --
1173: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1174: --
1175: BEGIN
1176: Print_Time('Handle_Updates_Old start time');
1177:
1186: FOR config_rec in config_upd_cursor
1187: LOOP
1188:
1189: IF l_debug_level > 0 THEN
1190: oe_debug_pub.add('OE QTY: '||CONFIG_REC.QUANTITY||'CZ QTY '
1191: ||CONFIG_REC.QUANTITY , 1 ) ;
1192: oe_debug_pub.add('UPDATING COMP CODE: '||CONFIG_REC.COMPONENT_CODE ,1);
1193: oe_debug_pub.add( 'I LINE ID:' || CONFIG_REC.LINE_ID , 1 ) ;
1194: END IF;
1188:
1189: IF l_debug_level > 0 THEN
1190: oe_debug_pub.add('OE QTY: '||CONFIG_REC.QUANTITY||'CZ QTY '
1191: ||CONFIG_REC.QUANTITY , 1 ) ;
1192: oe_debug_pub.add('UPDATING COMP CODE: '||CONFIG_REC.COMPONENT_CODE ,1);
1193: oe_debug_pub.add( 'I LINE ID:' || CONFIG_REC.LINE_ID , 1 ) ;
1194: END IF;
1195:
1196: l_line_rec.line_id := config_rec.line_id;
1189: IF l_debug_level > 0 THEN
1190: oe_debug_pub.add('OE QTY: '||CONFIG_REC.QUANTITY||'CZ QTY '
1191: ||CONFIG_REC.QUANTITY , 1 ) ;
1192: oe_debug_pub.add('UPDATING COMP CODE: '||CONFIG_REC.COMPONENT_CODE ,1);
1193: oe_debug_pub.add( 'I LINE ID:' || CONFIG_REC.LINE_ID , 1 ) ;
1194: END IF;
1195:
1196: l_line_rec.line_id := config_rec.line_id;
1197: l_line_rec.ordered_quantity := config_rec.quantity;
1218: Print_Time('Handle_Updates_Old end time');
1219: EXCEPTION
1220: WHEN OTHERS THEN
1221: IF l_debug_level > 0 THEN
1222: oe_debug_pub.add( 'EXCEPTION IN HANDLE_UPDATES_OLD'|| SQLERRM , 1 ) ;
1223: END IF;
1224: RAISE;
1225: END Handle_Updates_Old;
1226:
1289: l_change_reason VARCHAR2(30);
1290: l_change_comments VARCHAR2(30);
1291: l_qty NUMBER;
1292: --
1293: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1294: --
1295: BEGIN
1296: Print_Time('Handle_Deletes start time');
1297:
1297:
1298: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508'
1299: THEN
1300: IF l_debug_level > 0 THEN
1301: oe_debug_pub.add( 'PACK H NEW LOGIC' , 1 ) ;
1302: END IF;
1303: ELSE
1304: Handle_Deletes_Old
1305: ( p_model_line_rec => p_model_line_rec
1310: ,p_direct_save => FALSE
1311: ,p_ui_flag => p_ui_flag);
1312:
1313: IF l_debug_level > 0 THEN
1314: oe_debug_pub.add( 'RETURNING..' , 1 ) ;
1315: END IF;
1316:
1317: RETURN;
1318: END IF;
1321: l_class_line_count := nvl(p_x_class_line_tbl.LAST, 0);
1322: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
1323:
1324: IF l_debug_level > 0 THEN
1325: oe_debug_pub.add( 'CONFIG_DEL CURSOR OPENED' , 1 ) ;
1326: END IF;
1327:
1328: FOR config_rec in config_del_cursor
1329: LOOP
1334: p_ui_flag = 'N') OR
1335: p_ui_flag = 'Y' THEN
1336:
1337: IF l_debug_level > 0 THEN
1338: oe_debug_pub.add('CALLING CHECK_IF.. '||CONFIG_REC.COMPONENT_CODE,3);
1339: END IF;
1340:
1341: IF p_ui_flag = 'Y' THEN
1342: l_change_comments := 'Changes in Configurator Window';
1357:
1358: IF NOT l_cancellation THEN
1359:
1360: IF l_debug_level > 0 THEN
1361: oe_debug_pub.add( 'DELETING LINE : ' || CONFIG_REC.LINE_ID ) ;
1362: END IF;
1363:
1364: l_line_rec.line_id := config_rec.line_id;
1365: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1364: l_line_rec.line_id := config_rec.line_id;
1365: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1366:
1367: IF l_debug_level > 0 THEN
1368: oe_debug_pub.add('LINE_ID TO BE DELETED: ' || CONFIG_REC.LINE_ID ,1);
1369: END IF;
1370:
1371: IF p_direct_save AND
1372: config_rec.item_type_code = OE_GLOBALS.G_ITEM_CLASS
1379: END IF;
1380:
1381: ELSE
1382: IF l_debug_level > 0 THEN
1383: oe_debug_pub.add( 'YES CANCELLATION' , 3 ) ;
1384: END IF;
1385:
1386: IF config_rec.cancelled_flag = 'N' THEN
1387:
1407: Print_Time('Handle_Deletes end time');
1408: EXCEPTION
1409: WHEN OTHERS THEN
1410: IF l_debug_level > 0 THEN
1411: oe_debug_pub.add( 'EXCEPTION IN HANDLE_DELETES'|| SQLERRM , 1 ) ;
1412: END IF;
1413: RAISE;
1414: END Handle_Deletes;
1415:
1474: l_class_line_count NUMBER;
1475: l_cancellation BOOLEAN;
1476: l_qty NUMBER;
1477: --
1478: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1479: --
1480: BEGIN
1481: Print_Time('Handle_Deletes_Old start time');
1482:
1484: l_class_line_count := nvl(p_x_class_line_tbl.LAST, 0);
1485: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
1486:
1487: IF l_debug_level > 0 THEN
1488: oe_debug_pub.add( 'CONFIG_DEL CURSOR OPENED' , 1 ) ;
1489: END IF;
1490:
1491: FOR config_rec in config_del_cursor
1492: LOOP
1496: IF config_rec.link_to_line_id is NOT NULL AND
1497: p_ui_flag = 'N' THEN
1498:
1499: IF l_debug_level > 0 THEN
1500: oe_debug_pub.add('CALLING CHECK_IF.. '
1501: || CONFIG_REC.COMPONENT_CODE , 3 ) ;
1502: END IF;
1503:
1504: Check_If_cancellation
1521:
1522: IF NOT l_cancellation THEN
1523:
1524: IF l_debug_level > 0 THEN
1525: oe_debug_pub.add( 'DELETING LINE : ' || CONFIG_REC.LINE_ID ) ;
1526: END IF;
1527:
1528: l_line_rec.line_id := config_rec.line_id;
1529: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1528: l_line_rec.line_id := config_rec.line_id;
1529: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1530:
1531: IF l_debug_level > 0 THEN
1532: oe_debug_pub.add('LINE_ID TO BE DELETED: '||CONFIG_REC.LINE_ID,1);
1533: END IF;
1534:
1535: IF p_direct_save AND
1536: config_rec.item_type_code = OE_GLOBALS.G_ITEM_CLASS
1543: END IF;
1544:
1545: ELSE
1546: IF l_debug_level > 0 THEN
1547: oe_debug_pub.add( 'YES CANCELLATION' , 3 ) ;
1548: END IF;
1549:
1550: IF l_qty <> 0 OR
1551: p_ui_flag = 'Y' THEN
1573: Print_Time('Handle_Deletes_Old end time');
1574: EXCEPTION
1575: WHEN OTHERS THEN
1576: IF l_debug_level > 0 THEN
1577: oe_debug_pub.add( 'EXCEPTION IN HANDLE_DELETES_OLD'|| SQLERRM , 1 ) ;
1578: END IF;
1579: RAISE;
1580: END Handle_Deletes_Old;
1581:
1602: l_parent_line_id NUMBER;
1603: l_ordered_quantity NUMBER := FND_API.G_MISS_NUM;
1604: l_component_code VARCHAR2(1000);
1605: --
1606: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1607: --
1608: BEGIN
1609:
1610: IF l_debug_level > 0 THEN
1607: --
1608: BEGIN
1609:
1610: IF l_debug_level > 0 THEN
1611: oe_debug_pub.add('ENTERING CHECK_IF_CANCELLATION ' || P_LINE_ID ,1);
1612: END IF;
1613:
1614: l_line_id := p_line_id;
1615: l_parent_line_id := p_line_id;
1623:
1624: IF l_ordered_quantity = 0 THEN
1625: IF l_open_flag = 'N' THEN
1626: IF l_debug_level > 0 THEN
1627: oe_debug_pub.add('THIS WAS A COMPLETE CANCELLATION'|| L_LINE_ID,3);
1628: END IF;
1629: x_cancellation := TRUE;
1630: x_current_quantity := l_ordered_quantity;
1631: RETURN;
1630: x_current_quantity := l_ordered_quantity;
1631: RETURN;
1632: ELSE
1633: IF l_debug_level > 0 THEN
1634: oe_debug_pub.add('NOT COMPLETE CANCEL, SO DELETE'|| L_LINE_ID ,3);
1635: END IF;
1636: x_cancellation := FALSE;
1637: x_current_quantity := l_ordered_quantity;
1638: RETURN;
1641:
1642: EXCEPTION
1643: WHEN no_data_found THEN
1644: IF l_debug_level > 0 THEN
1645: oe_debug_pub.add( 'LINE NOT IN DB'|| L_LINE_ID , 1 ) ;
1646: END IF;
1647: WHEN OTHERS THEN
1648: IF l_debug_level > 0 THEN
1649: oe_debug_pub.add( 'OTHERS '|| L_LINE_ID || SQLERRM , 1 ) ;
1645: oe_debug_pub.add( 'LINE NOT IN DB'|| L_LINE_ID , 1 ) ;
1646: END IF;
1647: WHEN OTHERS THEN
1648: IF l_debug_level > 0 THEN
1649: oe_debug_pub.add( 'OTHERS '|| L_LINE_ID || SQLERRM , 1 ) ;
1650: END IF;
1651: RAISE;
1652: END;
1653:
1656:
1657: l_open_flag := 'Y';
1658:
1659: IF l_debug_level > 0 THEN
1660: oe_debug_pub.add('CHECK IF CHANGE CASCADED DOWN '||P_ITEM_TYPE_CODE ,3);
1661: END IF;
1662:
1663: WHILE l_open_flag = 'Y' AND
1664: l_parent_line_id <> p_top_model_line_id
1664: l_parent_line_id <> p_top_model_line_id
1665: LOOP
1666:
1667: IF l_debug_level > 0 THEN
1668: oe_debug_pub.add( 'PARENT LINE ID: ' || L_PARENT_LINE_ID
1669: || 'LINE ID: '|| L_LINE_ID , 3 ) ;
1670: END IF;
1671:
1672: SELECT link_to_line_id
1674: FROM oe_order_lines
1675: WHERE line_id = l_line_id;
1676:
1677: IF l_debug_level > 0 THEN
1678: oe_debug_pub.add( 'CAME HERE '|| L_PARENT_LINE_ID , 3 ) ;
1679: END IF;
1680:
1681: l_line_id := l_parent_line_id;
1682: BEGIN
1688:
1689: EXCEPTION
1690: WHEN TOO_MANY_ROWS THEN
1691: IF l_debug_level > 0 THEN
1692: oe_debug_pub.add( 'OPTION: TOO MANY ROWS IN CHECK CANCEL' , 1 ) ;
1693: END IF;
1694: RAISE;
1695:
1696: WHEN NO_DATA_FOUND THEN
1694: RAISE;
1695:
1696: WHEN NO_DATA_FOUND THEN
1697: IF l_debug_level > 0 THEN
1698: oe_debug_pub.add( 'OPTIONS PARENT NOT FOUND'|| L_OPEN_FLAG , 1 ) ;
1699: END IF;
1700: l_parent_line_id := p_top_model_line_id;
1701: END;
1702:
1700: l_parent_line_id := p_top_model_line_id;
1701: END;
1702:
1703: IF l_debug_level > 0 THEN
1704: oe_debug_pub.add( 'OPEN FLAG OF PARENT: '|| L_OPEN_FLAG , 3 ) ;
1705: END IF;
1706:
1707: END LOOP;
1708:
1710: l_open_flag = 'Y'
1711: THEN
1712:
1713: IF l_debug_level > 0 THEN
1714: oe_debug_pub.add('CHECK IF CHANGE CASCADED UPWARDS TO CLASS/KIT' ,1);
1715: END IF;
1716:
1717: -- this will happen only if the last option under this class
1718: -- is set to qty of 0.
1733: AND link_to_line_id = p_line_id
1734: AND item_type_code IN ('CLASS', 'OPTION', 'KIT');
1735:
1736: IF l_debug_level > 0 THEN
1737: oe_debug_pub.add( 'NO. OF OPEN CHILD: '|| L_LINE_ID , 3 ) ;
1738: oe_debug_pub.add( 'NO. OF CHILD: '|| L_PARENT_LINE_ID , 3 ) ;
1739: END IF;
1740:
1741: IF l_parent_line_id = 0 THEN
1734: AND item_type_code IN ('CLASS', 'OPTION', 'KIT');
1735:
1736: IF l_debug_level > 0 THEN
1737: oe_debug_pub.add( 'NO. OF OPEN CHILD: '|| L_LINE_ID , 3 ) ;
1738: oe_debug_pub.add( 'NO. OF CHILD: '|| L_PARENT_LINE_ID , 3 ) ;
1739: END IF;
1740:
1741: IF l_parent_line_id = 0 THEN
1742: IF l_debug_level > 0 THEN
1739: END IF;
1740:
1741: IF l_parent_line_id = 0 THEN
1742: IF l_debug_level > 0 THEN
1743: oe_debug_pub.add( 'IT IS A DELETE' , 1 ) ;
1744: END IF;
1745: l_open_flag := 'Y';
1746: ELSIF l_line_id = 0 THEN
1747: l_open_flag := 'N';
1745: l_open_flag := 'Y';
1746: ELSIF l_line_id = 0 THEN
1747: l_open_flag := 'N';
1748: IF l_debug_level > 0 THEN
1749: oe_debug_pub.add( 'IT IS A CANCELLATION' , 1 ) ;
1750: END IF;
1751: ELSE
1752:
1753: BEGIN
1762:
1763: EXCEPTION
1764: WHEN NO_DATA_FOUND THEN
1765: IF l_debug_level > 0 THEN
1766: oe_debug_pub.add( 'NO CANELLED LINES' , 2 ) ;
1767: END IF;
1768: END;
1769:
1770: IF l_line_id > 0 THEN
1775:
1776: EXCEPTION
1777: WHEN TOO_MANY_ROWS THEN
1778: IF l_debug_level > 0 THEN
1779: oe_debug_pub.add( 'TOO MANY ROWS IN CHECK CANCELLATION' , 1 ) ;
1780: END IF;
1781: RAISE;
1782:
1783: WHEN OTHERS THEN
1781: RAISE;
1782:
1783: WHEN OTHERS THEN
1784: IF l_debug_level > 0 THEN
1785: oe_debug_pub.add( 'OTHERS CLASS/KIT'|| L_LINE_ID || SQLERRM , 1 ) ;
1786: END IF;
1787: RAISE;
1788: END;
1789:
1797: x_cancellation := FALSE;
1798: END IF;
1799:
1800: IF l_debug_level > 0 THEN
1801: oe_debug_pub.add( 'LEAVING CHECK_IF_CANCELLATION ' || L_OPEN_FLAG , 1 ) ;
1802: END IF;
1803:
1804: EXCEPTION
1805: WHEN OTHERS THEN
1803:
1804: EXCEPTION
1805: WHEN OTHERS THEN
1806: IF l_debug_level > 0 THEN
1807: oe_debug_pub.add( 'EXCEPTION IN CHECK_IF_CANCELLATION'|| SQLERRM , 1 ) ;
1808: END IF;
1809: RAISE;
1810: END Check_If_cancellation;
1811:
1865: l_return_code NUMBER; --Bug 4165102
1866: l_error_buffer VARCHAR2(240); --Bug 4165102
1867:
1868: --
1869: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1870: --
1871: BEGIN
1872:
1873: IF l_debug_level > 0 THEN
1870: --
1871: BEGIN
1872:
1873: IF l_debug_level > 0 THEN
1874: oe_debug_pub.add( 'IN CALL_PROCESS_ORDER '|| P_LINE_TBL.COUNT , 1 ) ;
1875: END IF;
1876:
1877: IF p_control_rec.check_security IS NULL THEN
1878: p_control_rec.check_security := TRUE;
1945: l_index := l_line_tbl.COUNT;
1946:
1947: IF nvl(p_class_line_tbl.count, -1) > 0 AND p_ui_flag = 'Y' THEN
1948: IF l_debug_level > 0 THEN
1949: oe_debug_pub.add('DIRECT OP ON CLASS: '|| P_CLASS_LINE_TBL.COUNT ,1);
1950: END IF;
1951:
1952: I := p_class_line_tbl.FIRST;
1953:
1954: WHILE I is not NULL
1955: LOOP
1956:
1957: IF l_debug_level > 0 THEN
1958: oe_debug_pub.add('I: '|| P_CLASS_LINE_TBL ( I ) .LINE_ID , 1 ) ;
1959: END IF;
1960: l_line_rec := p_class_line_tbl(I);
1961:
1962: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1988: l_line_rec.global_attribute20 := NULL;
1989: l_line_rec.global_attribute_category := NULL;
1990:
1991: IF l_debug_level > 0 THEN
1992: OE_DEBUG_PUB.Add('Before calling JG ',2);
1993: END IF;
1994:
1995: JG_ZZ_OM_COMMON_PKG.default_gdf
1996: (x_line_rec => l_line_rec,
1997: x_return_code => l_return_code,
1998: x_error_buffer => l_error_buffer);
1999:
2000: IF l_debug_level > 0 THEN
2001: OE_DEBUG_PUB.Add('After JG Call:'|| l_return_code || l_error_buffer,2);
2002: END IF;
2003:
2004:
2005: IF l_debug_level > 0 THEN
2002: END IF;
2003:
2004:
2005: IF l_debug_level > 0 THEN
2006: oe_debug_pub.add('INSERT: ' || L_LINE_REC.COMPONENT_CODE , 1 ) ;
2007: END IF;
2008:
2009: OE_Line_Util.Insert_Row( p_line_rec => l_line_rec);
2010:
2026: END IF;
2027:
2028: ELSIF l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
2029: IF l_debug_level > 0 THEN
2030: oe_debug_pub.add('UPDATE: ' || L_LINE_REC.LINE_ID , 1 ) ;
2031: END IF;
2032:
2033: UPDATE oe_order_lines
2034: SET ordered_quantity = l_line_rec.ordered_quantity
2035: WHERE line_id = l_line_rec.line_id;
2036:
2037: ELSIF l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
2038: IF l_debug_level > 0 THEN
2039: oe_debug_pub.add('DELETE: ' || L_LINE_REC.LINE_ID , 1 ) ;
2040: END IF;
2041:
2042: DELETE FROM oe_order_lines
2043: WHERE line_id = l_line_rec.line_id;
2043: WHERE line_id = l_line_rec.line_id;
2044:
2045: ELSE
2046: IF l_debug_level > 0 THEN
2047: oe_debug_pub.add('OPERATION: '|| L_LINE_REC.OPERATION , 1 ) ;
2048: END IF;
2049: END IF;
2050:
2051: l_index := l_index + 1;
2063: ---------------------------------------------------------------------
2064: IF p_update_columns = TRUE THEN
2065:
2066: IF l_debug_level > 0 THEN
2067: oe_debug_pub.add('CALLING CHANGE COLUMNS' , 2 ) ;
2068: END IF;
2069:
2070: oe_config_pvt.Change_Columns
2071: (p_top_model_line_id => p_top_model_line_id,
2117: ,p_data => l_msg_data );
2118:
2119:
2120: IF l_debug_level > 0 THEN
2121: oe_debug_pub.add('AFTER CALLING PROCESS ORDER' , 1 ) ;
2122: oe_debug_pub.add('L_RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
2123: END IF;
2124:
2125: x_return_status := l_return_status;
2118:
2119:
2120: IF l_debug_level > 0 THEN
2121: oe_debug_pub.add('AFTER CALLING PROCESS ORDER' , 1 ) ;
2122: oe_debug_pub.add('L_RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
2123: END IF;
2124:
2125: x_return_status := l_return_status;
2126:
2124:
2125: x_return_status := l_return_status;
2126:
2127: IF l_debug_level > 0 THEN
2128: oe_debug_pub.add('LEAVING CALL_PROCESS_ORDER' , 1 ) ;
2129: END IF;
2130:
2131: EXCEPTION
2132: WHEN OTHERS THEN
2130:
2131: EXCEPTION
2132: WHEN OTHERS THEN
2133: IF l_debug_level > 0 THEN
2134: oe_debug_pub.add('EXCEPTION IN CALL_PROCESS_ORDER: '|| SQLERRM , 1 ) ;
2135: END IF;
2136: RAISE;
2137: END Call_Process_Order;
2138:
2219: AND item_type_code <> OE_GLOBALS.G_ITEM_CONFIG
2220: order by sort_order;
2221:
2222: --
2223: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2224: --
2225: BEGIN
2226:
2227: Print_Time('Entering Change_Columns');
2236: WHERE line_id = p_top_model_line_id;
2237: EXCEPTION
2238: WHEN OTHERS THEN
2239: IF l_debug_level > 0 THEN
2240: oe_debug_pub.add('EXCEPTION IN QUERY MODEL ATTIRBS' , 1 ) ;
2241: END IF;
2242: RAISE;
2243: END;
2244:
2248: IF l_remnant_flag = 'N' AND
2249: l_model_item_type_code = 'MODEL' THEN
2250: IF p_config_hdr_id is NULL THEN
2251: IF l_debug_level > 0 THEN
2252: oe_debug_pub.add('OPTIONS WINDOW , CONFIGURATION ID' , 1 ) ;
2253: END IF;
2254:
2255: UPDATE oe_order_lines
2256: SET configuration_id = nvl(configuration_id, 0) + 1,
2259: AND item_type_code IN ('MODEL', 'CLASS', 'OPTION', 'KIT');
2260:
2261: ELSE
2262: IF l_debug_level > 0 THEN
2263: oe_debug_pub.add( P_CONFIG_HDR_ID || ' ' || P_CONFIG_REV_NBR , 1 ) ;
2264: oe_debug_pub.add( L_PREV_CONFIG_HEADER_ID
2265: ||' '||L_PREV_CONFIG_REV_NBR , 1 ) ;
2266: END IF;
2267:
2260:
2261: ELSE
2262: IF l_debug_level > 0 THEN
2263: oe_debug_pub.add( P_CONFIG_HDR_ID || ' ' || P_CONFIG_REV_NBR , 1 ) ;
2264: oe_debug_pub.add( L_PREV_CONFIG_HEADER_ID
2265: ||' '||L_PREV_CONFIG_REV_NBR , 1 ) ;
2266: END IF;
2267:
2268: UPDATE oe_order_lines
2280: l_model_item_type_code = OE_GLOBALS.G_ITEM_MODEL AND
2281: l_model_ato_line_id is NULL
2282: THEN
2283: IF l_debug_level > 0 THEN
2284: oe_debug_pub.add('UPDATE ATO ATTRIBS FOR SUBASSEMBLIES' , 1 ) ;
2285: END IF;
2286: update_ato_line_attributes( p_top_model_line_id => p_top_model_line_id
2287: ,p_ui_flag => p_ui_flag
2288: ,p_config_hdr_id => p_config_hdr_id);
2313:
2314: --/************* update option_number *****************/
2315:
2316: IF l_debug_level > 0 THEN
2317: oe_debug_pub.add('UPDATING OPTION_NUMBER IN OE_ORDER_LINES' , 1 ) ;
2318: END IF;
2319:
2320: OPEN option_nbr;
2321: LOOP
2327:
2328: --bug12758138
2329:
2330: IF l_debug_level > 0 THEN
2331: oe_debug_pub.add('option_nbr for line_id : -' || l_line_id, 1 ) ;
2332: oe_debug_pub.add('option_nbr for l_split_from_line_id : -'|| l_split_from_line_id, 1 ) ;
2333: END IF;
2334:
2335: BEGIN
2328: --bug12758138
2329:
2330: IF l_debug_level > 0 THEN
2331: oe_debug_pub.add('option_nbr for line_id : -' || l_line_id, 1 ) ;
2332: oe_debug_pub.add('option_nbr for l_split_from_line_id : -'|| l_split_from_line_id, 1 ) ;
2333: END IF;
2334:
2335: BEGIN
2336:
2350: and NVL(sort_order,-99) = NVL(l_sort_order, -99)
2351: and line_id <> l_line_id;
2352:
2353: IF l_debug_level > 0 THEN
2354: oe_debug_pub.add('option_nbr for l_option_number : -' || l_option_number, 1 ) ;
2355: END IF;
2356: END IF ;
2357:
2358: EXCEPTION
2357:
2358: EXCEPTION
2359: WHEN OTHERS THEN
2360: IF l_debug_level > 0 THEN
2361: oe_debug_pub.add('option_nbr update error: -' || SQLERRM, 1 ) ;
2362: END IF;
2363: END;
2364:
2365: IF l_debug_level > 0 THEN
2362: END IF;
2363: END;
2364:
2365: IF l_debug_level > 0 THEN
2366: oe_debug_pub.add('option_nbr for option_number : -' || l_option_number, 1 ) ;
2367: END IF;
2368:
2369:
2370: IF (l_option_number IS NOT NULL) THEN
2374: lock_control = lock_control + 1
2375: WHERE line_id = l_line_id;
2376:
2377: IF l_debug_level > 0 THEN
2378: oe_debug_pub.add('option_nbr rows updated : -' || SQL%ROWCOUNT, 1 ) ;
2379: END IF;
2380:
2381:
2382: ELSE
2391: WHERE line_id = l_line_id;
2392: END if; --bug12758138
2393:
2394: IF l_debug_level > 0 THEN
2395: oe_debug_pub.add('FOR '|| L_LINE_ID || ' LLID '|| L_LINK , 3 ) ;
2396: END IF;
2397:
2398: -- 3082485
2399: IF l_link <> p_top_model_line_id AND
2400: p_config_hdr_id is NULL AND
2401: l_remnant_flag = 'N' THEN
2402:
2403: IF l_debug_level > 0 THEN
2404: oe_debug_pub.add('do we need to check ration with parent' , 3 ) ;
2405: END IF;
2406:
2407: l_ratio_check := 'Y';
2408:
2418: OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
2419:
2420: IF nvl(l_indivisible_flag, 'N') = 'N' THEN
2421: IF l_debug_level > 0 THEN
2422: OE_DEBUG_PUB.ADD('this Option can have decimal ratio', 1);
2423: END IF;
2424:
2425: l_ratio_check := 'N';
2426: ELSE
2424:
2425: l_ratio_check := 'N';
2426: ELSE
2427: IF l_debug_level > 0 THEN
2428: OE_DEBUG_PUB.ADD('this Option can not have decimal ratio', 1);
2429: END IF;
2430: END IF;
2431: END IF;
2432:
2431: END IF;
2432:
2433:
2434: IF l_debug_level > 0 THEN
2435: oe_debug_pub.add('check ration with parent '|| l_ratio_check , 3 ) ;
2436: END IF;
2437:
2438: IF l_ratio_check = 'Y' THEN
2439:
2480:
2481: EXCEPTION
2482: WHEN NO_DATA_FOUND THEN
2483: IF l_debug_level > 0 THEN
2484: oe_debug_pub.add('NO INCLUDED ITEMS' , 3 ) ;
2485: END IF;
2486: END;
2487:
2488: BEGIN
2496:
2497: EXCEPTION
2498: WHEN NO_DATA_FOUND THEN
2499: IF l_debug_level > 0 THEN
2500: oe_debug_pub.add('NO CONFIG ITEMS' , 3 ) ;
2501: END IF;
2502: END;
2503:
2504: END IF;
2526:
2527: END IF;
2528:
2529: IF l_debug_level > 0 THEN
2530: oe_debug_pub.add('LEAVING CHANGE_COLUMNS IN OE_CONFIG_PVT' , 1 ) ;
2531: END IF;
2532:
2533: EXCEPTION
2534: WHEN FND_API.G_EXC_ERROR THEN
2532:
2533: EXCEPTION
2534: WHEN FND_API.G_EXC_ERROR THEN
2535: IF l_debug_level > 0 THEN
2536: oe_debug_pub.add('EXC ERROR IN CHANGE_COLUMNS IN OE_CONFIG_PVT' , 1 ) ;
2537: END IF;
2538: RAISE FND_API.G_EXC_ERROR;
2539:
2540: WHEN OTHERS THEN
2538: RAISE FND_API.G_EXC_ERROR;
2539:
2540: WHEN OTHERS THEN
2541: IF l_debug_level > 0 THEN
2542: oe_debug_pub.add('ERROR IN CHANGE_COLUMNS IN OE_CONFIG_PVT' , 1 ) ;
2543: END IF;
2544: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2545: END Change_Columns;
2546:
2554: ,p_remnant_flag IN VARCHAR2
2555: ,p_config_hdr_id IN NUMBER)
2556: IS
2557: --
2558: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2559: --
2560: BEGIN
2561:
2562: IF l_debug_level > 0 THEN
2559: --
2560: BEGIN
2561:
2562: IF l_debug_level > 0 THEN
2563: oe_debug_pub.add('UPDATING LINK_TO_LINE_ID '|| P_REMNANT_FLAG , 1 ) ;
2564: oe_debug_pub.add( P_CONFIG_HDR_ID || ' MODEL: '|| P_TOP_MODEL_LINE_ID ,1);
2565: END IF;
2566:
2567: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
2560: BEGIN
2561:
2562: IF l_debug_level > 0 THEN
2563: oe_debug_pub.add('UPDATING LINK_TO_LINE_ID '|| P_REMNANT_FLAG , 1 ) ;
2564: oe_debug_pub.add( P_CONFIG_HDR_ID || ' MODEL: '|| P_TOP_MODEL_LINE_ID ,1);
2565: END IF;
2566:
2567: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
2568: IF l_debug_level > 0 THEN
2565: END IF;
2566:
2567: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
2568: IF l_debug_level > 0 THEN
2569: oe_debug_pub.add('1 LLID: PACK H NEW LOGIC FOR SPLIT ' , 1 ) ;
2570: END IF;
2571:
2572: BEGIN -- bug12758138
2573: UPDATE oe_order_lines OEOPT
2588: AND OEOPT.open_flag = 'Y';
2589:
2590: IF SQL%FOUND THEN
2591: IF l_debug_level > 0 THEN
2592: oe_debug_pub.add('1 LLID UPDATED ' || SQL%ROWCOUNT ) ;
2593: END IF;
2594: END IF;
2595: -- bug 12758138
2596: EXCEPTION
2595: -- bug 12758138
2596: EXCEPTION
2597: WHEN Others THEN
2598: IF l_debug_level > 0 THEN
2599: oe_debug_pub.add('update_link_to_line_id: May be Due to bug 12758138',1 ) ;
2600: END IF;
2601:
2602: UPDATE oe_order_lines OEOPT
2603: SET link_to_line_id =
2620: AND OEOPT.open_flag = 'Y';
2621:
2622: IF SQL%FOUND THEN
2623: IF l_debug_level > 0 THEN
2624: oe_debug_pub.add('1aE for unshipped LLID UPDATED ' || SQL%ROWCOUNT,1 ) ;
2625: END IF;
2626: END IF;
2627:
2628: IF l_debug_level > 0 THEN
2625: END IF;
2626: END IF;
2627:
2628: IF l_debug_level > 0 THEN
2629: oe_debug_pub.add('update_link_to_line_id: In errors block at 2',1 ) ;
2630: END IF;
2631:
2632: UPDATE oe_order_lines OEOPT
2633: SET link_to_line_id =
2648: AND OEOPT.shipped_quantity IS NOT NULL
2649: AND OEOPT.open_flag = 'Y';
2650: IF SQL%FOUND THEN
2651: IF l_debug_level > 0 THEN
2652: oe_debug_pub.add('1bE for shipped LLID UPDATED ' || SQL%ROWCOUNT,1 ) ;
2653: END IF;
2654: END IF;
2655:
2656: -- there is case in hybrid pto when config line is completly shipped, then the remnant line will have
2656: -- there is case in hybrid pto when config line is completly shipped, then the remnant line will have
2657: -- shipped qty not null but its link to line will have shipped qty null n such cases below query will be used.
2658:
2659: IF l_debug_level > 0 THEN
2660: oe_debug_pub.add('update_link_to_line_id: In errors block at 3 llid',1 ) ;
2661: END IF;
2662:
2663: UPDATE oe_order_lines OEOPT
2664: SET link_to_line_id =
2679: AND OEOPT.shipped_quantity IS NOT NULL
2680: AND OEOPT.open_flag = 'Y';
2681: IF SQL%FOUND THEN
2682: IF l_debug_level > 0 THEN
2683: oe_debug_pub.add('1cE for shipped LLID UPDATED ' || SQL%ROWCOUNT,1 ) ;
2684: END IF;
2685: END IF;
2686:
2687: END;
2692:
2693: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' AND
2694: p_config_hdr_id is NOT NULL THEN
2695: IF l_debug_level > 0 THEN
2696: oe_debug_pub.add('2 LLID: PACK H NEW LOGIC MI '|| P_REMNANT_FLAG , 1 ) ;
2697: END IF;
2698:
2699: UPDATE oe_order_lines OEOPT
2700: SET link_to_line_id =
2715: AND OEOPT.link_to_line_id IS NULL;
2716:
2717: IF SQL%FOUND THEN
2718: IF l_debug_level > 0 THEN
2719: oe_debug_pub.add('2 LLID UPDATED ' || SQL%ROWCOUNT ) ;
2720: END IF;
2721: END IF;
2722:
2723: ELSE
2722:
2723: ELSE
2724:
2725: IF l_debug_level > 0 THEN
2726: oe_debug_pub.add('LLID OPTIONS WINDOW OR OLD LOGIC ' , 3 ) ;
2727: END IF;
2728:
2729: BEGIN --bug12758138
2730: UPDATE oe_order_lines OEOPT
2745: AND OEOPT.item_type_code <> OE_GLOBALS.G_ITEM_INCLUDED;
2746:
2747: IF SQL%FOUND THEN
2748: IF l_debug_level > 0 THEN
2749: oe_debug_pub.add('3 LLID UPDATED ' || SQL%ROWCOUNT ) ;
2750: END IF;
2751: END IF;
2752: --bug12758138 start
2753: EXCEPTION
2752: --bug12758138 start
2753: EXCEPTION
2754: WHEN Others THEN
2755: IF l_debug_level > 0 THEN
2756: oe_debug_pub.add('update_link_to_line_id2 at error ' || SQLERRM ) ;
2757: END IF;
2758:
2759: UPDATE oe_order_lines OEOPT
2760: SET link_to_line_id =
2776: AND OEOPT.item_type_code <> OE_GLOBALS.G_ITEM_INCLUDED;
2777:
2778: IF SQL%FOUND THEN
2779: IF l_debug_level > 0 THEN
2780: oe_debug_pub.add('3 update_link_to_line_id2 UPDATED ' || SQL%ROWCOUNT ) ;
2781: END IF;
2782: END IF;
2783:
2784: IF l_debug_level > 0 THEN
2781: END IF;
2782: END IF;
2783:
2784: IF l_debug_level > 0 THEN
2785: oe_debug_pub.add('update_link_to_line_id2 at A' ) ;
2786: END IF;
2787:
2788:
2789: UPDATE oe_order_lines OEOPT
2806: AND OEOPT.item_type_code <> OE_GLOBALS.G_ITEM_INCLUDED;
2807:
2808: IF SQL%FOUND THEN
2809: IF l_debug_level > 0 THEN
2810: oe_debug_pub.add('3b update_link_to_line_id2 UPDATED ' || SQL%ROWCOUNT ) ;
2811: END IF;
2812: END IF;
2813:
2814: IF l_debug_level > 0 THEN
2811: END IF;
2812: END IF;
2813:
2814: IF l_debug_level > 0 THEN
2815: oe_debug_pub.add('update_link_to_line_id2 at B' ) ;
2816: END IF;
2817:
2818:
2819: UPDATE oe_order_lines OEOPT
2836: AND OEOPT.item_type_code <> OE_GLOBALS.G_ITEM_INCLUDED;
2837:
2838: IF SQL%FOUND THEN
2839: IF l_debug_level > 0 THEN
2840: oe_debug_pub.add('3c update_link_to_line_id2 UPDATED ' || SQL%ROWCOUNT ) ;
2841: END IF;
2842: END IF;
2843: IF l_debug_level > 0 THEN
2844: oe_debug_pub.add('update_link_to_line_id2 at C' ) ;
2840: oe_debug_pub.add('3c update_link_to_line_id2 UPDATED ' || SQL%ROWCOUNT ) ;
2841: END IF;
2842: END IF;
2843: IF l_debug_level > 0 THEN
2844: oe_debug_pub.add('update_link_to_line_id2 at C' ) ;
2845: END IF;
2846: END;--bug12758138 end
2847:
2848: -- only in a post split situation.
2866: AND OEOPT.open_flag = 'Y';
2867:
2868: IF SQL%FOUND THEN
2869: IF l_debug_level > 0 THEN
2870: oe_debug_pub.add('1 LLID UPDATED ' || SQL%ROWCOUNT ) ;
2871: END IF;
2872: END IF;
2873:
2874: END IF;
2873:
2874: END IF;
2875:
2876: IF l_debug_level > 0 THEN
2877: oe_debug_pub.add('UPDATED LINK_TO_LINE_ID IN OE_ORDER_LINES' , 2 ) ;
2878: END IF;
2879:
2880: EXCEPTION
2881: WHEN OTHERS THEN
2879:
2880: EXCEPTION
2881: WHEN OTHERS THEN
2882: IF l_debug_level > 0 THEN
2883: oe_debug_pub.add('ERROR IN UPDATE_LINK_TO_LINE_ID' || SQLERRM , 1 ) ;
2884: END IF;
2885: RAISE;
2886: END update_link_to_line_id;
2887:
2973: nvl(ato_model.freight_carrier_code,'-') <>
2974: nvl(opt.freight_carrier_code,'-') );
2975:
2976: --
2977: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2978: --
2979: BEGIN
2980:
2981: BEGIN
2982: -- If the model line is not ATO, then for all ATO lines, set the
2983: -- ATO_LINE_ID to the "highest" ATO line
2984:
2985: IF l_debug_level > 0 THEN
2986: oe_debug_pub.add('UPDATING ATO_LINE_ID IN FOR SUBASSEMBLIES' , 1 ) ;
2987: END IF;
2988:
2989:
2990: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' AND
2990: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' AND
2991: p_config_hdr_id is NOT NULL
2992: THEN
2993: IF l_debug_level > 0 THEN
2994: oe_debug_pub.add('UPDATE_ATO: PACK H NEW LOGIC MI' , 1 ) ;
2995: END IF;
2996:
2997: UPDATE oe_order_lines OEOPT
2998: SET ato_line_id =
3020: -- model remnant condition important
3021:
3022: IF SQL%FOUND THEN
3023: IF l_debug_level > 0 THEN
3024: oe_debug_pub.add('NEW ATO_LINE UPDATED ' || SQL%ROWCOUNT ) ;
3025: END IF;
3026: ELSE
3027: IF l_debug_level > 0 THEN
3028: oe_debug_pub.add('DID NOT UPDATE ANY LINE WITH ATO' ) ;
3024: oe_debug_pub.add('NEW ATO_LINE UPDATED ' || SQL%ROWCOUNT ) ;
3025: END IF;
3026: ELSE
3027: IF l_debug_level > 0 THEN
3028: oe_debug_pub.add('DID NOT UPDATE ANY LINE WITH ATO' ) ;
3029: END IF;
3030: END IF;
3031:
3032: -- note that the CONFIG line needs ato_line_id after
3051: AND OEOPT.ato_line_id is null;
3052:
3053: IF SQL%FOUND THEN
3054: IF l_debug_level > 0 THEN
3055: oe_debug_pub.add
3056: ('DUE TO MI: ATO LINE SPLIT FOR CONFIG ' || SQL%ROWCOUNT ) ;
3057: END IF;
3058: END IF;
3059:
3088:
3089: IF SQL%FOUND THEN
3090: l_sql_found := 1; --for bug 12758138
3091: IF l_debug_level > 0 THEN
3092: oe_debug_pub.add('DUE TO MI: ATO_LINE SPLIT' || SQL%ROWCOUNT ) ;
3093: END IF;
3094: --start changes for bug 12758138
3095: END IF;
3096: EXCEPTION
3096: EXCEPTION
3097: WHEN Others THEN
3098:
3099: IF l_debug_level > 0 THEN
3100: oe_debug_pub.add('DUE TO MI: inside error block at a',1 ) ;
3101: END IF;
3102: UPDATE oe_order_lines OEOPT
3103: SET ato_line_id =
3104: (SELECT line_id
3127:
3128: IF SQL%FOUND THEN
3129: l_sql_found := 1;
3130: IF l_debug_level > 0 THEN
3131: oe_debug_pub.add('DUE TO MI: ATO_LINE SPLIT at a' || SQL%ROWCOUNT ,1) ;
3132: END IF;
3133: END IF;
3134:
3135: IF l_debug_level > 0 THEN
3132: END IF;
3133: END IF;
3134:
3135: IF l_debug_level > 0 THEN
3136: oe_debug_pub.add('DUE TO MI: inside error block at b',1 ) ;
3137: END IF;
3138:
3139: UPDATE oe_order_lines OEOPT
3140: SET ato_line_id =
3164:
3165: IF SQL%FOUND THEN
3166: l_sql_found := 1;
3167: IF l_debug_level > 0 THEN
3168: oe_debug_pub.add('DUE TO MI: ATO_LINE SPLIT at b' || SQL%ROWCOUNT ) ;
3169: END IF;
3170: END IF;
3171: --bug12758138
3172: --there is case in hybrid pto when config line is completly shipped, then the remnant ato Model line will have
3171: --bug12758138
3172: --there is case in hybrid pto when config line is completly shipped, then the remnant ato Model line will have
3173: -- shipped qty null but config line will have shipped qt populated, in such cases below query will be used.
3174: IF l_debug_level > 0 THEN
3175: oe_debug_pub.add('DUE TO MI: inside error block at c',1 ) ;
3176: END IF;
3177:
3178: UPDATE oe_order_lines OEOPT
3179: SET ato_line_id =
3205:
3206: IF SQL%FOUND THEN
3207: l_sql_found := 1;
3208: IF l_debug_level > 0 THEN
3209: oe_debug_pub.add('DUE TO MI: ATO_LINE SPLIT at c' || SQL%ROWCOUNT ) ;
3210: END IF;
3211: END IF;
3212:
3213: --endbug12758138
3217:
3218: -- ELSE --commneted for bug 12758138
3219: IF l_sql_found <> 1 THEN -- added for bug 12758138
3220: IF l_debug_level > 0 THEN
3221: oe_debug_pub.add('OLD ATO_LINE_ID / NOT SPLIT' , 1 ) ;
3222: END IF;
3223:
3224: UPDATE OE_ORDER_LINES_ALL OEOPT
3225: SET ATO_LINE_ID =
3274: ato_line_id is not null);
3275:
3276: IF SQL%FOUND THEN
3277: IF l_debug_level > 0 THEN
3278: oe_debug_pub.add('OLD ATO_LINE UPDATED ' || SQL%ROWCOUNT ) ;
3279: END IF;
3280: END IF;
3281:
3282: END IF; -- split or not
3285:
3286: EXCEPTION
3287: WHEN OTHERS THEN
3288: IF l_debug_level > 0 THEN
3289: oe_debug_pub.add('UNEXPECTED ERROR IN UPDATE ATO_LINE_ID' , 1 ) ;
3290: END IF;
3291: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3292: END;
3293:
3293:
3294: ------------------------------------------------------------------
3295:
3296: IF l_debug_level > 0 THEN
3297: oe_debug_pub.add
3298: ('UPDATING OTHER ATTRIBUTES ON OPTIONS/CLASSES OF SUBASSEMBLIES' , 1);
3299: END IF;
3300:
3301: OPEN ATO_MODELS;
3303: FETCH ATO_MODELS INTO l_ato_line_id;
3304: EXIT WHEN ATO_MODELS%NOTFOUND;
3305:
3306: IF l_debug_level > 0 THEN
3307: oe_debug_pub.add('ATO LINE: ' || L_ATO_LINE_ID , 1 ) ;
3308: END IF;
3309:
3310: OE_LINE_UTIL.Lock_Row
3311: (p_line_id => l_ato_line_id
3324: l_line_count := l_line_count + 1;
3325: l_old_line_tbl(l_line_count) := l_line_rec;
3326:
3327: IF l_debug_level > 0 THEN
3328: oe_debug_pub.add('UPDATING LINE: ' || L_OPTION_LINE_ID , 1 ) ;
3329: END IF;
3330:
3331: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
3332: l_line_rec.line_id := l_option_line_id;
3371: l_control_rec.process := FALSE;
3372: END IF;
3373:
3374: IF l_debug_level > 0 THEN
3375: oe_debug_pub.add('IN UPDATE_ATO_ATTIRBS , CALLING PROCESS_ORDER' , 1 ) ;
3376: END IF;
3377:
3378: OE_CONFIG_UTIL.CASCADE_CHANGES_FLAG := 'Y';
3379:
3385:
3386: OE_CONFIG_UTIL.CASCADE_CHANGES_FLAG := 'N';
3387:
3388: IF l_debug_level > 0 THEN
3389: oe_debug_pub.add
3390: ('IN UPDATE_ATO_ATTIRBS , AFTER PO: ' || L_RETURN_STATUS , 1 ) ;
3391: END IF;
3392:
3393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3398:
3399: EXCEPTION
3400: WHEN OTHERS THEN
3401: IF l_debug_level > 0 THEN
3402: oe_debug_pub.add('ERROR IN UPDATE_ATO_LINE_ATTRIBUTES' || SQLERRM , 1 ) ;
3403: END IF;
3404: RAISE;
3405: END update_ato_line_attributes;
3406:
3419: l_return_value number := 1;
3420: l_error_message varchar2(100);
3421:
3422: --
3423: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3424: --
3425: BEGIN
3426:
3427: IF l_debug_level > 0 THEN
3424: --
3425: BEGIN
3426:
3427: IF l_debug_level > 0 THEN
3428: oe_debug_pub.add('ENTERING DELETE_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
3429: END IF;
3430:
3431: IF p_config_hdr_id is not null AND
3432: p_config_rev_nbr is not null THEN
3431: IF p_config_hdr_id is not null AND
3432: p_config_rev_nbr is not null THEN
3433:
3434: IF l_debug_level > 0 THEN
3435: oe_debug_pub.add
3436: ('DEL CFG' ||P_CONFIG_HDR_ID || ' ' || P_CONFIG_REV_NBR , 1 ) ;
3437: END IF;
3438:
3439: CZ_CF_API.Delete_Configuration
3447:
3448: IF l_return_value <> 1 THEN
3449: OE_Msg_Pub.Add_Text(l_error_message);
3450: IF l_debug_level > 0 THEN
3451: oe_debug_pub.add('ERROR IN DELETE_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
3452: END IF;
3453: x_return_status := FND_API.G_RET_STS_ERROR;
3454: ELSE
3455: x_return_status := FND_API.G_RET_STS_SUCCESS;
3455: x_return_status := FND_API.G_RET_STS_SUCCESS;
3456: END IF;
3457: ELSE
3458: IF l_debug_level > 0 THEN
3459: oe_debug_pub.add('NOTE : NULL CONFIG_HEADER_ID/CONFIG_REV_NBR PASSED');
3460: END IF;
3461: END IF;
3462:
3463: IF l_debug_level > 0 THEN
3460: END IF;
3461: END IF;
3462:
3463: IF l_debug_level > 0 THEN
3464: oe_debug_pub.add('LEAVING DELETE_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
3465: END IF;
3466:
3467: EXCEPTION
3468: when others then
3466:
3467: EXCEPTION
3468: when others then
3469: IF l_debug_level > 0 THEN
3470: oe_debug_pub.add('ERROR IN DELETE_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
3471: END IF;
3472:
3473:
3474: END Delete_Config;
3509: l_msg_data VARCHAR2(2000);
3510: l_booked_flag varchar2(1);
3511:
3512: --
3513: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3514: --
3515: BEGIN
3516:
3517: IF l_debug_level > 0 THEN
3514: --
3515: BEGIN
3516:
3517: IF l_debug_level > 0 THEN
3518: oe_debug_pub.add('ENTERING COPY_CONFIG '|| P_REMNANT_FLAG , 1 ) ;
3519: oe_debug_pub.add('MODEL LINE: '|| P_TOP_MODEL_LINE_ID , 1 ) ;
3520: END IF;
3521:
3522: l_return_value := 1;
3515: BEGIN
3516:
3517: IF l_debug_level > 0 THEN
3518: oe_debug_pub.add('ENTERING COPY_CONFIG '|| P_REMNANT_FLAG , 1 ) ;
3519: oe_debug_pub.add('MODEL LINE: '|| P_TOP_MODEL_LINE_ID , 1 ) ;
3520: END IF;
3521:
3522: l_return_value := 1;
3523:
3541:
3542: IF l_return_value <> 1 THEN
3543: OE_Msg_Pub.Add_Text(l_error_message);
3544: IF l_debug_level > 0 THEN
3545: oe_debug_pub.add('ERROR FROM SPC COPY: ' || L_ERROR_MESSAGE , 1 ) ;
3546: END IF;
3547: x_return_status := FND_API.G_RET_STS_ERROR;
3548: RETURN;
3549: END IF;
3565:
3566: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3567: OE_Msg_Pub.Add_Text(l_msg_data);
3568: IF l_debug_level > 0 THEN
3569: oe_debug_pub.add('ERROR FROM SPC NEW COPY: ' || L_MSG_DATA , 1 ) ;
3570: END IF;
3571: RETURN;
3572: END IF;
3573:
3573:
3574: IF l_new_item_id_tbl.COUNT = 0 THEN
3575:
3576: IF l_debug_level > 0 THEN
3577: oe_debug_pub.add('no need to update config ids ',1);
3578: END IF;
3579:
3580: ELSE
3581:
3586: WHERE top_model_line_id = p_top_model_line_id
3587: AND configuration_id = l_orig_item_id_tbl(I);
3588:
3589: IF l_debug_level > 0 THEN
3590: oe_debug_pub.add('DONE UPDATING NEW CONFIG ITEM IDS' , 1 ) ;
3591: END IF;
3592:
3593: END IF;
3594:
3596:
3597: ELSE
3598:
3599: IF l_debug_level > 0 THEN
3600: oe_debug_pub.add('NULL CONFIG_HEADER_ID TO COPY_CONFIG , OR REMNANT SET' , 1 ) ;
3601: END IF;
3602:
3603: UPDATE oe_order_lines
3604: SET configuration_id = null,
3607: WHERE top_model_line_id = p_top_model_line_id;
3608:
3609: IF SQL%FOUND THEN
3610: IF l_debug_level > 0 THEN
3611: oe_debug_pub.add('CONFIG IDS UPDATED TO NULL' , 2 ) ;
3612: END IF;
3613: END IF;
3614: END IF;
3615:
3617: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' AND
3618: p_remnant_flag = 'Y'
3619: THEN
3620: IF l_debug_level > 0 THEN
3621: oe_debug_pub.add('1 COPY CONFIG: PACK H NEW LOGIC MI' , 1 ) ;
3622: END IF;
3623:
3624: UPDATE oe_order_lines
3625: SET link_to_line_id = NULL
3655:
3656: IF p_top_model_line_id <> nvl(l_ato_line_id,-99) THEN
3657:
3658: IF l_debug_level > 0 THEN
3659: oe_debug_pub.add('NULLING ATO_LINE_ID FOR ATO SUB' , 4 ) ;
3660: END IF;
3661:
3662: UPDATE oe_order_lines
3663: SET ato_line_id = NULL
3671: IF p_remnant_flag is NULL THEN
3672:
3673: IF nvl(l_booked_flag,'N') = 'N' THEN
3674: IF l_debug_level > 0 THEN
3675: oe_debug_pub.add('Order Not Booked '|| l_error_message, 5);
3676: END IF;
3677:
3678: IF p_config_hdr_id is NULL AND
3679: p_config_rev_nbr is NULL AND
3680: p_configuration_id is NULL AND
3681: l_error_message = 'MODEL' THEN
3682:
3683: IF l_debug_level > 0 THEN
3684: oe_debug_pub.add
3685: ('config hdr/rev/id null dont call change column',5);
3686: END IF;
3687: update_link_to_line_id
3688: ( p_top_model_line_id => p_top_model_line_id --added for bug 7261021
3698: p_config_hdr_id => l_config_hdr_id,
3699: p_config_rev_nbr => l_config_rev_nbr);
3700:
3701: IF l_debug_level > 0 THEN
3702: oe_debug_pub.add('NEW CONFIG_HEADER_ID: '|| L_CONFIG_HDR_ID , 5 ) ;
3703: oe_debug_pub.add('NEW CONFIG_REV_NBR: '|| L_CONFIG_REV_NBR , 5 ) ;
3704: END IF;
3705: x_return_status := FND_API.G_RET_STS_SUCCESS;
3706:
3699: p_config_rev_nbr => l_config_rev_nbr);
3700:
3701: IF l_debug_level > 0 THEN
3702: oe_debug_pub.add('NEW CONFIG_HEADER_ID: '|| L_CONFIG_HDR_ID , 5 ) ;
3703: oe_debug_pub.add('NEW CONFIG_REV_NBR: '|| L_CONFIG_REV_NBR , 5 ) ;
3704: END IF;
3705: x_return_status := FND_API.G_RET_STS_SUCCESS;
3706:
3707: IF l_debug_level > 0 THEN
3704: END IF;
3705: x_return_status := FND_API.G_RET_STS_SUCCESS;
3706:
3707: IF l_debug_level > 0 THEN
3708: oe_debug_pub.add('LEAVING COPY_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
3709: END IF;
3710:
3711: EXCEPTION
3712: WHEN OTHERS THEN
3710:
3711: EXCEPTION
3712: WHEN OTHERS THEN
3713: IF l_debug_level > 0 THEN
3714: oe_debug_pub.add('ERROR IN COPY_CONFIG,OE_CONFIG_PVT'|| sqlerrm ,1);
3715: END IF;
3716:
3717: RAISE;
3718: END Copy_Config;
3747: l_result_out VARCHAR2(30);
3748: l_error VARCHAR2(200);
3749: l_line_number NUMBER;
3750: --
3751: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3752: --
3753: BEGIN
3754:
3755: Print_Time('entering put_hold_and_release_hold');
3764: FROM oe_order_lines
3765: WHERE line_id = p_line_id;
3766:
3767: IF l_debug_level > 0 THEN
3768: oe_debug_pub.add('OE_CONFIG_PVT , BEFORE CHECK_HOLDS ON MODEL' , 1 ) ;
3769: END IF;
3770:
3771: OE_HOLDS_PUB.CHECK_HOLDS
3772: ( p_api_version => 1.0,
3783: (LOWER(p_valid_config) = 'false' OR
3784: LOWER(p_complete_config) = 'false' ) THEN
3785:
3786: IF l_debug_level > 0 THEN
3787: oe_debug_pub.add
3788: ('INCOMPLETE/INVALID CONFIGURATION IN A BOOKED ORDER' , 1 ) ;
3789: END IF;
3790:
3791: l_hold_comment := 'Validation hold on model';
3790:
3791: l_hold_comment := 'Validation hold on model';
3792:
3793: IF l_debug_level > 0 THEN
3794: oe_debug_pub.add('BEFORE APPLY_HOLDS ON MODEL' , 1 ) ;
3795: END IF;
3796:
3797: OE_Holds_pub.apply_holds
3798: ( p_api_version => 1.0,
3804: x_msg_data => x_msg_data );
3805:
3806: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3807: IF l_debug_level > 0 THEN
3808: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN PUT HOLD' , 1 ) ;
3809: END IF;
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3812: IF l_debug_level > 0 THEN
3809: END IF;
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3812: IF l_debug_level > 0 THEN
3813: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN PUT HOLD' , 1 ) ;
3814: END IF;
3815: RAISE FND_API.G_EXC_ERROR;
3816: END IF;
3817:
3819: FND_MESSAGE.Set_Token('LINE_NUMBER', l_line_number);
3820: OE_Msg_Pub.Add;
3821:
3822: IF l_debug_level > 0 THEN
3823: oe_debug_pub.add('AFTER SUCCESSFUL APPLY_HOLDS ON MODEL' , 1 ) ;
3824: END IF;
3825: END IF;
3826:
3827: IF l_hold_result_out = FND_API.G_TRUE AND
3828: (LOWER(p_valid_config) = 'true' AND
3829: LOWER(p_complete_config) = 'true' ) THEN
3830:
3831: IF l_debug_level > 0 THEN
3832: oe_debug_pub.add('VALID/COMPLETE CONFIGURATION IN BOOKED ORDER',1);
3833: END IF;
3834:
3835: l_release_reason_code := 'CZ_AUTOMATIC';
3836: l_release_comment := 'Configuration is now valid';
3835: l_release_reason_code := 'CZ_AUTOMATIC';
3836: l_release_comment := 'Configuration is now valid';
3837:
3838: IF l_debug_level > 0 THEN
3839: oe_debug_pub.add('OE_CONFIG_PVT,BEFORE RELEASE_HOLDS ON MODEL',1);
3840: END IF;
3841:
3842: OE_Holds_pub.release_holds
3843: ( p_order_tbl => l_holds_tbl,
3849: x_msg_data => x_msg_data );
3850:
3851: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3852: IF l_debug_level > 0 THEN
3853: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN RELEASING HOLD',1);
3854: END IF;
3855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3856: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3857: IF l_debug_level > 0 THEN
3854: END IF;
3855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3856: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3857: IF l_debug_level > 0 THEN
3858: oe_debug_pub.add('OE_CONFIG_PVT ,ERROR IN RELEASING HOLD' ,1);
3859: END IF;
3860: RAISE FND_API.G_EXC_ERROR;
3861: END IF;
3862:
3864: FND_MESSAGE.Set_Token('LINE_NUMBER', l_line_number);
3865: OE_Msg_Pub.Add;
3866:
3867: IF l_debug_level > 0 THEN
3868: oe_debug_pub.add('AFTER SUCCESSFUL RELAESE_HOLDS ON MODEL' ,1);
3869: END IF;
3870: END IF;
3871:
3872: ELSE -- ret status error
3871:
3872: ELSE -- ret status error
3873: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3874: IF l_debug_level > 0 THEN
3875: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN CHECK HOLD' , 1 ) ;
3876: END IF;
3877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3878:
3879: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3878:
3879: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3880: IF l_debug_level > 0 THEN
3881: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN CHECK HOLD' , 1 ) ;
3882: END IF;
3883: RAISE FND_API.G_EXC_ERROR;
3884: END IF;
3885: END IF; -- check holds ret status check.
3888:
3889: EXCEPTION
3890: when others then
3891: IF l_debug_level > 0 THEN
3892: oe_debug_pub.add
3893: ('ERROR IN PUT_HOLD_AND_RELEASE_HOLD IN OE_CONFIG_PVT' , 1 ) ;
3894: END IF;
3895:
3896: END put_hold_and_release_hold;
3934: l_msg_count NUMBER;
3935: l_msg_data VARCHAR2(2000);
3936: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
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( 'model line_id : '|| p_model_line_rec.line_id ,1);
3944: END IF;
3945:
3946: IF p_check_effective_date = 'Y' THEN
3947:
3959: x_config_effective_date := l_rev_date;
3960: x_frozen_model_bill := l_frozen_model_bill;
3961:
3962: IF l_debug_level > 0 THEN
3963: oe_debug_pub.add(x_config_effective_date||':'||x_frozen_model_bill,1);
3964: END IF;
3965:
3966: ELSE
3967:
3976:
3977: l_top_item_id := p_model_line_rec.inventory_item_id;
3978:
3979: IF l_debug_level > 0 THEN
3980: oe_debug_pub.add('VALIDATION_ORG: ' || L_VALIDATION_ORG , 1 ) ;
3981: oe_debug_pub.add('INVENTORY ITEM ID OF MODEL: ' || L_TOP_ITEM_ID , 1 ) ;
3982: oe_debug_pub.add('CREATION DATE IS: ' || L_REV_DATE , 1 ) ;
3983: END IF;
3984:
3977: l_top_item_id := p_model_line_rec.inventory_item_id;
3978:
3979: IF l_debug_level > 0 THEN
3980: oe_debug_pub.add('VALIDATION_ORG: ' || L_VALIDATION_ORG , 1 ) ;
3981: oe_debug_pub.add('INVENTORY ITEM ID OF MODEL: ' || L_TOP_ITEM_ID , 1 ) ;
3982: oe_debug_pub.add('CREATION DATE IS: ' || L_REV_DATE , 1 ) ;
3983: END IF;
3984:
3985: -- Explode the options in Bom_Explosions
3978:
3979: IF l_debug_level > 0 THEN
3980: oe_debug_pub.add('VALIDATION_ORG: ' || L_VALIDATION_ORG , 1 ) ;
3981: oe_debug_pub.add('INVENTORY ITEM ID OF MODEL: ' || L_TOP_ITEM_ID , 1 ) ;
3982: oe_debug_pub.add('CREATION DATE IS: ' || L_REV_DATE , 1 ) ;
3983: END IF;
3984:
3985: -- Explode the options in Bom_Explosions
3986: IF l_debug_level > 0 THEN
3983: END IF;
3984:
3985: -- Explode the options in Bom_Explosions
3986: IF l_debug_level > 0 THEN
3987: oe_debug_pub.add('CALL TO EXPLOSION' , 1 ) ;
3988: END IF;
3989:
3990: OE_CONFIG_UTIL.Explode
3991: ( p_validation_org => l_validation_org
3997: , x_return_status => l_return_status );
3998:
3999:
4000: IF l_debug_level > 0 THEN
4001: oe_debug_pub.add('AFTER CALL TO EXPLOSION , RETURN STATUS: '
4002: || L_RETURN_STATUS , 1 ) ;
4003: END IF;
4004:
4005: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4031:
4032: EXCEPTION
4033: WHEN NO_DATA_FOUND THEN
4034: IF l_debug_level > 0 THEN
4035: oe_debug_pub.add('EXPLODE_BILL , BILL_SEQ QUERY FAILED' , 1 ) ;
4036: END IF;
4037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4038: END;
4039:
4037: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4038: END;
4039:
4040: IF l_debug_level > 0 THEN
4041: oe_debug_pub.add('TOP_BILL_SEQ_ID SELECTED FROM BOM_bill_of_mat' ) ;
4042: END IF;
4043:
4044: IF p_do_update THEN
4045: UPDATE oe_order_lines
4051:
4052: p_model_line_rec.lock_control := p_model_line_rec.lock_control + 1;
4053: ELSE
4054: IF l_debug_level > 0 THEN
4055: oe_debug_pub.add('CALL FROM VORDB' , 3 ) ;
4056: END IF;
4057: END IF;
4058:
4059: END IF;
4060:
4061: x_return_status := l_return_status;
4062:
4063: IF l_debug_level > 0 THEN
4064: oe_debug_pub.add('TOP BILL SEQ ID'
4065: || P_MODEL_LINE_REC.COMPONENT_SEQUENCE_ID , 1 ) ;
4066: END IF;
4067:
4068: EXCEPTION
4067:
4068: EXCEPTION
4069: WHEN OTHERS THEN
4070: IF l_debug_level > 0 THEN
4071: oe_debug_pub.add('EXCEPTION IN EXPLODE_BILL: '|| SQLERRM , 1 ) ;
4072: END IF;
4073: RAISE;
4074: END Explode_Bill;
4075:
4125: AND link_to_line_id = p_link_to_line_id
4126: AND item_type_code = OE_GLOBALS.G_ITEM_INCLUDED;
4127:
4128: --
4129: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4130: --
4131: BEGIN
4132: IF l_debug_level > 0 THEN
4133: oe_debug_pub.add('ENTERING MODIFY_INCLUDED_ITEMS' , 1 ) ;
4129: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4130: --
4131: BEGIN
4132: IF l_debug_level > 0 THEN
4133: oe_debug_pub.add('ENTERING MODIFY_INCLUDED_ITEMS' , 1 ) ;
4134: END IF;
4135:
4136: l_index := 0;
4137: I := OE_MODIFY_INC_ITEMS_TBL.FIRST;
4137: I := OE_MODIFY_INC_ITEMS_TBL.FIRST;
4138: WHILE I is not NULL
4139: LOOP
4140: IF l_debug_level > 0 THEN
4141: oe_debug_pub.add( I||'CLASS/KIT '
4142: || OE_MODIFY_INC_ITEMS_TBL ( I ) .PARAM12 , 2 ) ;
4143: oe_debug_pub.add
4144: ('OPERATION '|| OE_MODIFY_INC_ITEMS_TBL ( I ) .PARAM10 , 3 ) ;
4145: END IF;
4139: LOOP
4140: IF l_debug_level > 0 THEN
4141: oe_debug_pub.add( I||'CLASS/KIT '
4142: || OE_MODIFY_INC_ITEMS_TBL ( I ) .PARAM12 , 2 ) ;
4143: oe_debug_pub.add
4144: ('OPERATION '|| OE_MODIFY_INC_ITEMS_TBL ( I ) .PARAM10 , 3 ) ;
4145: END IF;
4146:
4147: FOR l_rec in inc_items(OE_MODIFY_INC_ITEMS_TBL(I).param12,
4147: FOR l_rec in inc_items(OE_MODIFY_INC_ITEMS_TBL(I).param12,
4148: OE_MODIFY_INC_ITEMS_TBL(I).param13)
4149: LOOP
4150: IF l_debug_level > 0 THEN
4151: oe_debug_pub.add('INC ITEM '|| L_REC.LINE_ID , 1 ) ;
4152: END IF;
4153:
4154: l_line_rec.line_id := l_rec.line_id;
4155: l_line_rec.operation := OE_MODIFY_INC_ITEMS_TBL(I).param10;
4207: l_line_rec.ordered_quantity = 0 AND
4208: OE_MODIFY_INC_ITEMS_TBL(I).param11 = 'N'
4209: THEN
4210: IF l_debug_level > 0 THEN
4211: oe_debug_pub.add('DELETE SINCE NOT FULL CANCEL' , 3 ) ;
4212: END IF;
4213: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
4214: END IF;
4215:
4213: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
4214: END IF;
4215:
4216: IF l_debug_level > 0 THEN
4217: oe_debug_pub.add('QTY - OP '|| L_LINE_REC.ORDERED_QUANTITY
4218: || L_LINE_REC.OPERATION , 1 ) ;
4219: END IF;
4220:
4221: l_index := l_index + 1;
4237: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
4238:
4239: x_return_status := l_return_status;
4240: IF l_debug_level > 0 THEN
4241: oe_debug_pub.add('EXITING MODIFY_INCLUDED_ITEMS'|| L_RETURN_STATUS , 1 ) ;
4242: END IF;
4243:
4244: EXCEPTION
4245: WHEN OTHERS THEN
4243:
4244: EXCEPTION
4245: WHEN OTHERS THEN
4246: IF l_debug_level > 0 THEN
4247: oe_debug_pub.add('EXCEPTION IN MODIFY_INCLUDED_ITEMS'|| SQLERRM , 1 ) ;
4248: END IF;
4249: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4250: RAISE;
4251: END;
4284: AND link_to_line_id <> top_model_line_id
4285: AND top_model_line_id = p_top_model_line_id;
4286:
4287: --
4288: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4289: --
4290: BEGIN
4291: IF l_debug_level > 0 THEN
4292: oe_debug_pub.add('ENTERING INCLUDED_ITEMS_DML '|| P_UI_FLAG , 1 ) ;
4288: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4289: --
4290: BEGIN
4291: IF l_debug_level > 0 THEN
4292: oe_debug_pub.add('ENTERING INCLUDED_ITEMS_DML '|| P_UI_FLAG , 1 ) ;
4293: END IF;
4294:
4295: l_index := p_x_line_tbl.LAST;
4296: l_component_sequence_id := NULL;
4297:
4298: FOR l_rec in included_items
4299: LOOP
4300: IF l_debug_level > 0 THEN
4301: oe_debug_pub.add('INCLUDED ITEM: '|| L_REC.COMPONENT_CODE , 2 ) ;
4302: END IF;
4303:
4304: IF l_component_sequence_id is NULL THEN
4305:
4334: p_x_line_tbl(l_index) := l_line_rec;
4335: l_found := TRUE;
4336:
4337: IF l_debug_level > 0 THEN
4338: oe_debug_pub.add('PARENT WAS' || L_LINE_REC.OPERATION , 1 ) ;
4339: oe_debug_pub.add('NEW QTY ' || L_LINE_REC.ORDERED_QUANTITY ,1);
4340: END IF;
4341: END IF;
4342:
4335: l_found := TRUE;
4336:
4337: IF l_debug_level > 0 THEN
4338: oe_debug_pub.add('PARENT WAS' || L_LINE_REC.OPERATION , 1 ) ;
4339: oe_debug_pub.add('NEW QTY ' || L_LINE_REC.ORDERED_QUANTITY ,1);
4340: END IF;
4341: END IF;
4342:
4343: I := p_x_line_tbl.NEXT(I);
4341: END IF;
4342:
4343: I := p_x_line_tbl.NEXT(I);
4344: IF l_debug_level > 0 THEN
4345: oe_debug_pub.add('COUNT: ' || P_X_LINE_TBL.COUNT || I , 1 ) ;
4346: END IF;
4347: END LOOP;
4348: END IF;
4349:
4365: l_index := l_index + 1;
4366: p_x_line_tbl(l_index) := l_line_rec;
4367:
4368: IF l_debug_level > 0 THEN
4369: oe_debug_pub.add('PARENT WAS UPDATED' || L_ORDERED_QTY , 3 ) ;
4370: END IF;
4371:
4372: EXCEPTION
4373: WHEN NO_DATA_FOUND THEN
4376: l_index := l_index + 1;
4377: p_x_line_tbl(l_index) := l_line_rec;
4378:
4379: IF l_debug_level > 0 THEN
4380: oe_debug_pub.add('PARENT WAS DELETED' , 3 ) ;
4381: END IF;
4382:
4383: WHEN OTHERS THEN
4384: IF l_debug_level > 0 THEN
4381: END IF;
4382:
4383: WHEN OTHERS THEN
4384: IF l_debug_level > 0 THEN
4385: oe_debug_pub.add('COULD NOT SELECT PARENT QTY' , 1 ) ;
4386: END IF;
4387: RAISE;
4388: END;
4389:
4393:
4394: x_return_status := l_return_status;
4395:
4396: IF l_debug_level > 0 THEN
4397: oe_debug_pub.add('EXITING INCLUDED_ITEMS_DML' , 1 ) ;
4398: END IF;
4399: EXCEPTION
4400: WHEN OTHERS THEN
4401: IF l_debug_level > 0 THEN
4398: END IF;
4399: EXCEPTION
4400: WHEN OTHERS THEN
4401: IF l_debug_level > 0 THEN
4402: oe_debug_pub.add('EXCEPTION IN INCLUDED_ITEMS_DML'|| SQLERRM , 1 ) ;
4403: END IF;
4404:
4405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4406: RAISE;
4424: l_config_hdr_id number;
4425: l_config_rev_nbr number;
4426:
4427: --
4428: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4429: --
4430: BEGIN
4431:
4432: IF l_debug_level > 0 THEN
4429: --
4430: BEGIN
4431:
4432: IF l_debug_level > 0 THEN
4433: oe_debug_pub.add('ENTERING COPY_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
4434: END IF;
4435:
4436: IF p_config_hdr_id is not null AND
4437: p_config_rev_nbr is not null THEN
4449:
4450: IF l_return_value <> 1 THEN
4451: OE_Msg_Pub.Add_Text(l_error_message);
4452: IF l_debug_level > 0 THEN
4453: oe_debug_pub.add('ERROR FROM SPC COPY: ' || L_ERROR_MESSAGE , 1 ) ;
4454: END IF;
4455: x_return_status :=FND_API.G_RET_STS_ERROR;
4456:
4457: ELSE
4455: x_return_status :=FND_API.G_RET_STS_ERROR;
4456:
4457: ELSE
4458: IF l_debug_level > 0 THEN
4459: oe_debug_pub.add('NEW CONFIG_HEADER_ID: '|| L_CONFIG_HDR_ID , 1 ) ;
4460: END IF;
4461: IF l_debug_level > 0 THEN
4462: oe_debug_pub.add('NEW CONFIG_REV_NBR: '|| L_CONFIG_REV_NBR , 1 ) ;
4463: END IF;
4458: IF l_debug_level > 0 THEN
4459: oe_debug_pub.add('NEW CONFIG_HEADER_ID: '|| L_CONFIG_HDR_ID , 1 ) ;
4460: END IF;
4461: IF l_debug_level > 0 THEN
4462: oe_debug_pub.add('NEW CONFIG_REV_NBR: '|| L_CONFIG_REV_NBR , 1 ) ;
4463: END IF;
4464: x_config_hdr_id := l_config_hdr_id;
4465: x_config_rev_nbr := l_config_rev_nbr;
4466: x_return_status := FND_API.G_RET_STS_SUCCESS;
4467: END IF;
4468:
4469: ELSE
4470: IF l_debug_level > 0 THEN
4471: oe_debug_pub.add('NULL CONFIG_HDR/REV_NBR IS PASSED TO COPY_CONFIG',1);
4472: END IF;
4473:
4474: END IF;
4475:
4473:
4474: END IF;
4475:
4476: IF l_debug_level > 0 THEN
4477: oe_debug_pub.add('LEAVING COPY_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
4478: END IF;
4479:
4480: EXCEPTION
4481: when others then
4479:
4480: EXCEPTION
4481: when others then
4482: IF l_debug_level > 0 THEN
4483: oe_debug_pub.add('ERROR IN COPY_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
4484: END IF;
4485:
4486: END Copy_Config1;
4487:
4502: l_msg_count1 NUMBER;
4503: l_msg_count2 NUMBER;
4504: l_sec_result NUMBER;
4505: --
4506: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4507: --
4508: BEGIN
4509:
4510: x_cancellation := FALSE;
4543: LOOP
4544:
4545: OE_Msg_Pub.Delete_Msg(l_msg_count2 - I);
4546:
4547: oe_debug_pub.add(OE_Msg_Pub.g_msg_index || '-'
4548: ||l_msg_count1 || '-'|| l_msg_count2 || '-' ||I, 3 );
4549:
4550: I := I + 1;
4551: END LOOP;
4553: END IF;
4554:
4555: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4556: IF l_debug_level > 0 THEN
4557: oe_debug_pub.add('do cancellation hence update with 0', 3 );
4558: END IF;
4559:
4560: x_line_rec.ordered_quantity := 0;
4561: x_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
4570:
4571: x_cancellation := TRUE;
4572: ELSE
4573: IF l_debug_level > 0 THEN
4574: oe_debug_pub.add('no cancellation, delete ok ', 3 ) ;
4575: END IF;
4576: END IF;
4577:
4578: IF l_debug_level > 0 THEN
4575: END IF;
4576: END IF;
4577:
4578: IF l_debug_level > 0 THEN
4579: oe_debug_pub.add('option operation '|| x_line_rec.operation, 3);
4580: END IF;
4581: EXCEPTION
4582: when OTHERS then
4583: IF l_debug_level > 0 THEN
4580: END IF;
4581: EXCEPTION
4582: when OTHERS then
4583: IF l_debug_level > 0 THEN
4584: oe_debug_pub.add('error in Is_Cancel_OR_Delete '|| sqlerrm, 3);
4585: END IF;
4586: RAISE;
4587: END Is_Cancel_OR_Delete;
4588:
4595: PROCEDURE Print_Time(p_msg IN VARCHAR2)
4596: IS
4597: l_time VARCHAR2(100);
4598: --
4599: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4600: --
4601: BEGIN
4602: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
4603: 'DD-MON-YY HH24:MI:SS');
4601: BEGIN
4602: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
4603: 'DD-MON-YY HH24:MI:SS');
4604: IF l_debug_level > 0 THEN
4605: oe_debug_pub.add( P_MSG || ': '|| L_TIME , 0.5 ) ; --bug# 13435459
4606: END IF;
4607: END Print_Time;
4608:
4609: