[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: IF p_config_hdr_id = l_model_line_rec.config_header_id AND
324: p_config_rev_nbr = l_model_line_rec.config_rev_nbr THEN
321: END IF;
322:
323: IF p_config_hdr_id = l_model_line_rec.config_header_id AND
324: p_config_rev_nbr = l_model_line_rec.config_rev_nbr THEN
325: oe_debug_pub.add('do not delete, special', 1);
326: ELSE
327: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
328: -- since we could not save the config successfully,
329: -- delete current rev. in SPC
355: IF p_ui_flag = 'Y' AND ( nvl(l_line_tbl.count, 0) > 0 OR
356: p_config_hdr_id is not null ) THEN
357: x_change_flag := 'Y';
358: IF l_debug_level > 0 THEN
359: oe_debug_pub.add( 'CHANGED CONFIG INTERACTIVELY' , 1 ) ;
360: END IF;
361: END IF;
362:
363: x_return_status := FND_API.G_RET_STS_SUCCESS;
384: );
385:
386: WHEN OTHERS THEN
387: IF l_debug_level > 0 THEN
388: oe_debug_pub.add( 'ERROR: ' || SUBSTR ( SQLERRM , 1 , 100 ) , 1 ) ;
389: END IF;
390:
391: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
392: THEN
474: l_return_status VARCHAR2(1);
475: l_concatenated_segments VARCHAR2(163);
476: l_default_child_line BOOLEAN := TRUE;
477: --
478: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
479: --
480: l_top_container_model VARCHAR2(1);
481: l_part_of_container VARCHAR2(1);
482: l_default_line_type_id NUMBER; --Added for bug 5107271
485:
486: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
487:
488: IF l_debug_level > 0 THEN
489: oe_debug_pub.add( 'INS: PACK H NEW LOGIC' , 1 ) ;
490: END IF;
491:
492: BEGIN
493:
506: AND open_flag = 'Y';
507:
508: IF SQL%FOUND THEN
509: IF l_debug_level > 0 THEN
510: oe_debug_pub.add( 'CONFIGURATION_ID UPDATED '|| SQL%ROWCOUNT ,3);
511: END IF;
512: ELSE
513: IF l_debug_level > 0 THEN
514: oe_debug_pub.add( 'CRM 1:CONFIGURATION_ID NOT UPDATED ' , 3 ) ;
510: oe_debug_pub.add( 'CONFIGURATION_ID UPDATED '|| SQL%ROWCOUNT ,3);
511: END IF;
512: ELSE
513: IF l_debug_level > 0 THEN
514: oe_debug_pub.add( 'CRM 1:CONFIGURATION_ID NOT UPDATED ' , 3 ) ;
515: END IF;
516:
517: UPDATE oe_order_lines oe
518: SET ( configuration_id , sort_order ) =
528: AND open_flag = 'Y';
529:
530: IF SQL%FOUND THEN
531: IF l_debug_level > 0 THEN
532: oe_debug_pub.add( 'CRM: CONFIGURATION_ID '|| SQL%ROWCOUNT , 3 ) ;
533: END IF;
534: ELSE
535: IF l_debug_level > 0 THEN
536: oe_debug_pub.add( 'CRM 2:CONFIGURATION_ID NOT UPDATED ' , 3 ) ;
532: oe_debug_pub.add( 'CRM: CONFIGURATION_ID '|| SQL%ROWCOUNT , 3 ) ;
533: END IF;
534: ELSE
535: IF l_debug_level > 0 THEN
536: oe_debug_pub.add( 'CRM 2:CONFIGURATION_ID NOT UPDATED ' , 3 ) ;
537: END IF;
538: END IF;
539: END IF;
540:
547: OE_Msg_Pub.Add;
548: RAISE;
549: WHEN OTHERS THEN
550: IF l_debug_level > 0 THEN
551: oe_debug_pub.add( 'OTHERS IN CONFIG ID UPD '|| SQLERRM , 1 ) ;
552: END IF;
553: RAISE;
554: END;
555:
562: ,p_x_class_line_tbl => p_x_class_line_tbl
563: ,p_direct_save => p_direct_save);
564:
565: IF l_debug_level > 0 THEN
566: oe_debug_pub.add( 'RETURNING..' , 1 ) ;
567: END IF;
568:
569: RETURN;
570: END IF;
588: ,x_top_container_model => l_top_container_model
589: ,x_part_of_container => l_part_of_container );
590:
591: IF l_debug_level > 0 THEN
592: OE_DEBUG_PUB.Add('Line ID:'||p_model_line_rec.line_id,3);
593: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
594: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
595: END IF;
596:
589: ,x_part_of_container => l_part_of_container );
590:
591: IF l_debug_level > 0 THEN
592: OE_DEBUG_PUB.Add('Line ID:'||p_model_line_rec.line_id,3);
593: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
594: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
595: END IF;
596:
597: IF l_top_container_model = 'Y' THEN
590:
591: IF l_debug_level > 0 THEN
592: OE_DEBUG_PUB.Add('Line ID:'||p_model_line_rec.line_id,3);
593: OE_DEBUG_PUB.Add('Top Container:'||l_top_container_model,3);
594: OE_DEBUG_PUB.Add('Part of Container:'||l_part_of_container,3);
595: END IF;
596:
597: IF l_top_container_model = 'Y' THEN
598:
600: l_line_rec.ib_current_location := NULL;
601: l_line_rec.ib_installed_at_location := NULL;
602:
603: IF l_debug_level > 0 THEN
604: OE_DEBUG_PUB.Add('IB Fields set to NULL for child lines',3);
605: END IF;
606:
607: END IF;
608: END IF;
617:
618: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' THEN
619: FOR T IN 1..p_config_instance_tbl.COUNT LOOP
620: IF l_debug_level > 0 THEN
621: oe_debug_pub.add('CZ Inst Hdr:'||config_rec.instance_hdr_id,2);
622: oe_debug_pub.add('IB inst Hdr:'
623: ||p_config_instance_tbl(T).config_instance_hdr_id,2);
624: oe_debug_pub.add('CZ Rev Nbr:'||config_rec.instance_rev_nbr,2);
625: oe_debug_pub.add('IB Rev:'
618: IF OE_CODE_CONTROL.GET_CODE_RELEASE_LEVEL >= '110510' THEN
619: FOR T IN 1..p_config_instance_tbl.COUNT LOOP
620: IF l_debug_level > 0 THEN
621: oe_debug_pub.add('CZ Inst Hdr:'||config_rec.instance_hdr_id,2);
622: oe_debug_pub.add('IB inst Hdr:'
623: ||p_config_instance_tbl(T).config_instance_hdr_id,2);
624: oe_debug_pub.add('CZ Rev Nbr:'||config_rec.instance_rev_nbr,2);
625: oe_debug_pub.add('IB Rev:'
626: ||p_config_instance_tbl(T).config_instance_rev_number,2);
620: IF l_debug_level > 0 THEN
621: oe_debug_pub.add('CZ Inst Hdr:'||config_rec.instance_hdr_id,2);
622: oe_debug_pub.add('IB inst Hdr:'
623: ||p_config_instance_tbl(T).config_instance_hdr_id,2);
624: oe_debug_pub.add('CZ Rev Nbr:'||config_rec.instance_rev_nbr,2);
625: oe_debug_pub.add('IB Rev:'
626: ||p_config_instance_tbl(T).config_instance_rev_number,2);
627: oe_debug_pub.add('CZ Item:'||config_rec.config_item_id,3);
628: oe_debug_pub.add('IB Item:'||
621: oe_debug_pub.add('CZ Inst Hdr:'||config_rec.instance_hdr_id,2);
622: oe_debug_pub.add('IB inst Hdr:'
623: ||p_config_instance_tbl(T).config_instance_hdr_id,2);
624: oe_debug_pub.add('CZ Rev Nbr:'||config_rec.instance_rev_nbr,2);
625: oe_debug_pub.add('IB Rev:'
626: ||p_config_instance_tbl(T).config_instance_rev_number,2);
627: oe_debug_pub.add('CZ Item:'||config_rec.config_item_id,3);
628: oe_debug_pub.add('IB Item:'||
629: p_config_instance_tbl(T).config_instance_item_id,2);
623: ||p_config_instance_tbl(T).config_instance_hdr_id,2);
624: oe_debug_pub.add('CZ Rev Nbr:'||config_rec.instance_rev_nbr,2);
625: oe_debug_pub.add('IB Rev:'
626: ||p_config_instance_tbl(T).config_instance_rev_number,2);
627: oe_debug_pub.add('CZ Item:'||config_rec.config_item_id,3);
628: oe_debug_pub.add('IB Item:'||
629: p_config_instance_tbl(T).config_instance_item_id,2);
630: END IF;
631:
624: oe_debug_pub.add('CZ Rev Nbr:'||config_rec.instance_rev_nbr,2);
625: oe_debug_pub.add('IB Rev:'
626: ||p_config_instance_tbl(T).config_instance_rev_number,2);
627: oe_debug_pub.add('CZ Item:'||config_rec.config_item_id,3);
628: oe_debug_pub.add('IB Item:'||
629: p_config_instance_tbl(T).config_instance_item_id,2);
630: END IF;
631:
632: IF config_rec.instance_hdr_id =
634: config_rec.config_item_id =
635: p_config_instance_tbl(T).config_instance_item_id THEN
636:
637: IF l_debug_level > 0 THEN
638: oe_debug_pub.add
639: ('match found for item:'||config_rec.inventory_item_id);
640: END IF;
641:
642: l_line_rec.invoice_to_org_id :=
649: END IF;
650: END LOOP;
651: ELSE
652: IF l_debug_level > 0 THEN
653: OE_DEBUG_PUB.Add('Not in pack J. No MACD Logic',3);
654: OE_DEBUG_PUB.Add('IB Values NOT populated',3);
655: END IF;
656:
657: END IF;
650: END LOOP;
651: ELSE
652: IF l_debug_level > 0 THEN
653: OE_DEBUG_PUB.Add('Not in pack J. No MACD Logic',3);
654: OE_DEBUG_PUB.Add('IB Values NOT populated',3);
655: END IF;
656:
657: END IF;
658: --MACD---------------------------------------------
671: RAISE FND_API.G_EXC_ERROR;
672: END;
673:
674: IF l_debug_level > 0 THEN
675: oe_debug_pub.add('CONCAT SEGMENT IS: ' || L_CONCATENATED_SEGMENTS,3);
676: oe_debug_pub.add('INSERTING COMP CODE: '||CONFIG_REC.COMPONENT_CODE,1);
677: oe_debug_pub.add('CONFIGURATION ID: ' || CONFIG_REC.CONFIG_ITEM_ID ,1);
678: END IF;
679:
672: END;
673:
674: IF l_debug_level > 0 THEN
675: oe_debug_pub.add('CONCAT SEGMENT IS: ' || L_CONCATENATED_SEGMENTS,3);
676: oe_debug_pub.add('INSERTING COMP CODE: '||CONFIG_REC.COMPONENT_CODE,1);
677: oe_debug_pub.add('CONFIGURATION ID: ' || CONFIG_REC.CONFIG_ITEM_ID ,1);
678: END IF;
679:
680: IF p_direct_save AND
673:
674: IF l_debug_level > 0 THEN
675: oe_debug_pub.add('CONCAT SEGMENT IS: ' || L_CONCATENATED_SEGMENTS,3);
676: oe_debug_pub.add('INSERTING COMP CODE: '||CONFIG_REC.COMPONENT_CODE,1);
677: oe_debug_pub.add('CONFIGURATION ID: ' || CONFIG_REC.CONFIG_ITEM_ID ,1);
678: END IF;
679:
680: IF p_direct_save AND
681: (config_rec.bom_item_type = 2 OR config_rec.bom_item_type = 1)
682: THEN
683:
684: IF l_default_child_line THEN
685:
686: oe_debug_pub.add( 'DIRECT SAVE IS ON' , 3 ) ;
687:
688: l_class_line_rec.config_header_id := p_config_hdr_id;
689: l_class_line_rec.config_rev_nbr := p_config_rev_nbr;
690:
708: IF config_rec.line_type IS NOT NULL AND
709: config_rec.line_type <> FND_API.G_MISS_NUM THEN
710:
711: IF l_debug_level > 0 THEN
712: OE_DEBUG_PUB.Add('Line Type from cz:'||config_rec.line_type,3);
713: END IF;
714: l_class_line_rec.line_type_id := config_rec.line_type;
715: ELSE
716: /* Modified the below statement for bug 5107271 to assign the value of
746: IF config_rec.line_type IS NOT NULL AND
747: config_rec.line_type <> FND_API.G_MISS_NUM THEN
748:
749: IF l_debug_level > 0 THEN
750: OE_DEBUG_PUB.Add('cz LineType:'||config_rec.line_type,3);
751: END IF;
752: l_line_rec.line_type_id := config_rec.line_type;
753: ELSE
754: l_line_rec.line_type_id := FND_API.G_MISS_NUM;
781: Print_Time('Handle_Inserts end time');
782: EXCEPTION
783: WHEN OTHERS THEN
784: IF l_debug_level > 0 THEN
785: oe_debug_pub.add( 'EXCEPTION IN HANDLE_INSERTS'|| SQLERRM , 1 ) ;
786: END IF;
787:
788: RAISE;
789: END Handle_Inserts;
840: l_return_status VARCHAR2(1);
841: l_concatenated_segments VARCHAR2(163);
842: l_default_child_line BOOLEAN := TRUE;
843: --
844: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
845: --
846: BEGIN
847: Print_Time('Handle_Inserts start time');
848:
872: RAISE FND_API.G_EXC_ERROR;
873: END;
874:
875: IF l_debug_level > 0 THEN
876: oe_debug_pub.add('CONCAT SEGMENT IS: ' || L_CONCATENATED_SEGMENTS ,3);
877: oe_debug_pub.add('INSERTING COMP CODE: ' || CONFIG_REC.COMPONENT_CODE,1);
878: END IF;
879:
880: IF p_direct_save AND
873: END;
874:
875: IF l_debug_level > 0 THEN
876: oe_debug_pub.add('CONCAT SEGMENT IS: ' || L_CONCATENATED_SEGMENTS ,3);
877: oe_debug_pub.add('INSERTING COMP CODE: ' || CONFIG_REC.COMPONENT_CODE,1);
878: END IF;
879:
880: IF p_direct_save AND
881: (config_rec.bom_item_type = 2 OR config_rec.bom_item_type = 1)
882: THEN
883:
884: IF l_default_child_line THEN
885:
886: oe_debug_pub.add( 'DIRECT SAVE IS ON' , 3 ) ;
887:
888: OE_Config_Util.Default_Child_Line
889: ( p_parent_line_rec => p_model_line_rec
890: ,p_x_child_line_rec => l_class_line_rec
949: Print_Time('Handle_Inserts_Old end time');
950: EXCEPTION
951: WHEN OTHERS THEN
952: IF l_debug_level > 0 THEN
953: oe_debug_pub.add( 'EXCEPTION IN HANDLE_INSERTS_OLD'|| SQLERRM , 1 ) ;
954: END IF;
955: RAISE;
956: END Handle_Inserts_Old;
957:
1004: l_class_line_rec OE_ORDER_PUB.Line_Rec_Type;
1005: l_line_count NUMBER;
1006: l_class_line_count NUMBER;
1007: --
1008: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1009: --
1010: BEGIN
1011: Print_Time('Handle_Updates start time');
1012:
1012:
1013: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508'
1014: THEN
1015: IF l_debug_level > 0 THEN
1016: oe_debug_pub.add( 'PACK H NEW LOGIC' , 1 ) ;
1017: END IF;
1018: ELSE
1019: Handle_Updates_Old
1020: (p_model_line_rec => p_model_line_rec
1025: ,p_direct_save => FALSE
1026: ,p_ui_flag => p_ui_flag);
1027:
1028: IF l_debug_level > 0 THEN
1029: oe_debug_pub.add( 'RETURNING..' , 1 ) ;
1030: END IF;
1031:
1032: RETURN;
1033: END IF;
1043: FOR config_rec in config_upd_cursor
1044: LOOP
1045:
1046: IF l_debug_level > 0 THEN
1047: oe_debug_pub.add
1048: ('OE QTY: '||CONFIG_REC.ORDERED_QUANTITY||'CZ QTY '||CONFIG_REC.QUANTITY ,1);
1049: oe_debug_pub.add('UPDATING COMP CODE: ' || CONFIG_REC.COMPONENT_CODE ,1);
1050: oe_debug_pub.add( 'I LINE ID:' || CONFIG_REC.LINE_ID , 1 ) ;
1051: END IF;
1045:
1046: IF l_debug_level > 0 THEN
1047: oe_debug_pub.add
1048: ('OE QTY: '||CONFIG_REC.ORDERED_QUANTITY||'CZ QTY '||CONFIG_REC.QUANTITY ,1);
1049: oe_debug_pub.add('UPDATING COMP CODE: ' || CONFIG_REC.COMPONENT_CODE ,1);
1050: oe_debug_pub.add( 'I LINE ID:' || CONFIG_REC.LINE_ID , 1 ) ;
1051: END IF;
1052:
1053: l_line_rec.line_id := config_rec.line_id;
1046: IF l_debug_level > 0 THEN
1047: oe_debug_pub.add
1048: ('OE QTY: '||CONFIG_REC.ORDERED_QUANTITY||'CZ QTY '||CONFIG_REC.QUANTITY ,1);
1049: oe_debug_pub.add('UPDATING COMP CODE: ' || CONFIG_REC.COMPONENT_CODE ,1);
1050: oe_debug_pub.add( 'I LINE ID:' || CONFIG_REC.LINE_ID , 1 ) ;
1051: END IF;
1052:
1053: l_line_rec.line_id := config_rec.line_id;
1054: l_line_rec.ordered_quantity := config_rec.quantity;
1057: IF config_rec.line_type IS NOT NULL AND
1058: config_rec.line_type <> FND_API.G_MISS_NUM THEN
1059:
1060: IF l_debug_level > 0 THEN
1061: OE_DEBUG_PUB.Add('MACD Logic,cz Line_type:'||config_rec.line_type,3);
1062: END IF;
1063: l_line_rec.line_type_id := config_rec.line_type;
1064: ELSE
1065: l_line_rec.line_type_id := FND_API.G_MISS_NUM;
1088: Print_Time('Handle_Updates end time');
1089: EXCEPTION
1090: WHEN OTHERS THEN
1091: IF l_debug_level > 0 THEN
1092: oe_debug_pub.add( 'EXCEPTION IN HANDLE_UPDATES'|| SQLERRM , 1 ) ;
1093: END IF;
1094: RAISE;
1095: END Handle_Updates;
1096:
1134: l_class_line_rec OE_ORDER_PUB.Line_Rec_Type;
1135: l_line_count NUMBER;
1136: l_class_line_count NUMBER;
1137: --
1138: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1139: --
1140: BEGIN
1141: Print_Time('Handle_Updates_Old start time');
1142:
1151: FOR config_rec in config_upd_cursor
1152: LOOP
1153:
1154: IF l_debug_level > 0 THEN
1155: oe_debug_pub.add('OE QTY: '||CONFIG_REC.QUANTITY||'CZ QTY '
1156: ||CONFIG_REC.QUANTITY , 1 ) ;
1157: oe_debug_pub.add('UPDATING COMP CODE: '||CONFIG_REC.COMPONENT_CODE ,1);
1158: oe_debug_pub.add( 'I LINE ID:' || CONFIG_REC.LINE_ID , 1 ) ;
1159: END IF;
1153:
1154: IF l_debug_level > 0 THEN
1155: oe_debug_pub.add('OE QTY: '||CONFIG_REC.QUANTITY||'CZ QTY '
1156: ||CONFIG_REC.QUANTITY , 1 ) ;
1157: oe_debug_pub.add('UPDATING COMP CODE: '||CONFIG_REC.COMPONENT_CODE ,1);
1158: oe_debug_pub.add( 'I LINE ID:' || CONFIG_REC.LINE_ID , 1 ) ;
1159: END IF;
1160:
1161: l_line_rec.line_id := config_rec.line_id;
1154: IF l_debug_level > 0 THEN
1155: oe_debug_pub.add('OE QTY: '||CONFIG_REC.QUANTITY||'CZ QTY '
1156: ||CONFIG_REC.QUANTITY , 1 ) ;
1157: oe_debug_pub.add('UPDATING COMP CODE: '||CONFIG_REC.COMPONENT_CODE ,1);
1158: oe_debug_pub.add( 'I LINE ID:' || CONFIG_REC.LINE_ID , 1 ) ;
1159: END IF;
1160:
1161: l_line_rec.line_id := config_rec.line_id;
1162: l_line_rec.ordered_quantity := config_rec.quantity;
1183: Print_Time('Handle_Updates_Old end time');
1184: EXCEPTION
1185: WHEN OTHERS THEN
1186: IF l_debug_level > 0 THEN
1187: oe_debug_pub.add( 'EXCEPTION IN HANDLE_UPDATES_OLD'|| SQLERRM , 1 ) ;
1188: END IF;
1189: RAISE;
1190: END Handle_Updates_Old;
1191:
1254: l_change_reason VARCHAR2(30);
1255: l_change_comments VARCHAR2(30);
1256: l_qty NUMBER;
1257: --
1258: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1259: --
1260: BEGIN
1261: Print_Time('Handle_Deletes start time');
1262:
1262:
1263: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508'
1264: THEN
1265: IF l_debug_level > 0 THEN
1266: oe_debug_pub.add( 'PACK H NEW LOGIC' , 1 ) ;
1267: END IF;
1268: ELSE
1269: Handle_Deletes_Old
1270: ( p_model_line_rec => p_model_line_rec
1275: ,p_direct_save => FALSE
1276: ,p_ui_flag => p_ui_flag);
1277:
1278: IF l_debug_level > 0 THEN
1279: oe_debug_pub.add( 'RETURNING..' , 1 ) ;
1280: END IF;
1281:
1282: RETURN;
1283: END IF;
1286: l_class_line_count := nvl(p_x_class_line_tbl.LAST, 0);
1287: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
1288:
1289: IF l_debug_level > 0 THEN
1290: oe_debug_pub.add( 'CONFIG_DEL CURSOR OPENED' , 1 ) ;
1291: END IF;
1292:
1293: FOR config_rec in config_del_cursor
1294: LOOP
1299: p_ui_flag = 'N') OR
1300: p_ui_flag = 'Y' THEN
1301:
1302: IF l_debug_level > 0 THEN
1303: oe_debug_pub.add('CALLING CHECK_IF.. '||CONFIG_REC.COMPONENT_CODE,3);
1304: END IF;
1305:
1306: IF p_ui_flag = 'Y' THEN
1307: l_change_comments := 'Changes in Configurator Window';
1322:
1323: IF NOT l_cancellation THEN
1324:
1325: IF l_debug_level > 0 THEN
1326: oe_debug_pub.add( 'DELETING LINE : ' || CONFIG_REC.LINE_ID ) ;
1327: END IF;
1328:
1329: l_line_rec.line_id := config_rec.line_id;
1330: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1329: l_line_rec.line_id := config_rec.line_id;
1330: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1331:
1332: IF l_debug_level > 0 THEN
1333: oe_debug_pub.add('LINE_ID TO BE DELETED: ' || CONFIG_REC.LINE_ID ,1);
1334: END IF;
1335:
1336: IF p_direct_save AND
1337: config_rec.item_type_code = OE_GLOBALS.G_ITEM_CLASS
1344: END IF;
1345:
1346: ELSE
1347: IF l_debug_level > 0 THEN
1348: oe_debug_pub.add( 'YES CANCELLATION' , 3 ) ;
1349: END IF;
1350:
1351: IF config_rec.cancelled_flag = 'N' THEN
1352:
1372: Print_Time('Handle_Deletes end time');
1373: EXCEPTION
1374: WHEN OTHERS THEN
1375: IF l_debug_level > 0 THEN
1376: oe_debug_pub.add( 'EXCEPTION IN HANDLE_DELETES'|| SQLERRM , 1 ) ;
1377: END IF;
1378: RAISE;
1379: END Handle_Deletes;
1380:
1439: l_class_line_count NUMBER;
1440: l_cancellation BOOLEAN;
1441: l_qty NUMBER;
1442: --
1443: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1444: --
1445: BEGIN
1446: Print_Time('Handle_Deletes_Old start time');
1447:
1449: l_class_line_count := nvl(p_x_class_line_tbl.LAST, 0);
1450: l_line_rec := OE_ORDER_PUB.G_MISS_LINE_REC;
1451:
1452: IF l_debug_level > 0 THEN
1453: oe_debug_pub.add( 'CONFIG_DEL CURSOR OPENED' , 1 ) ;
1454: END IF;
1455:
1456: FOR config_rec in config_del_cursor
1457: LOOP
1461: IF config_rec.link_to_line_id is NOT NULL AND
1462: p_ui_flag = 'N' THEN
1463:
1464: IF l_debug_level > 0 THEN
1465: oe_debug_pub.add('CALLING CHECK_IF.. '
1466: || CONFIG_REC.COMPONENT_CODE , 3 ) ;
1467: END IF;
1468:
1469: Check_If_cancellation
1486:
1487: IF NOT l_cancellation THEN
1488:
1489: IF l_debug_level > 0 THEN
1490: oe_debug_pub.add( 'DELETING LINE : ' || CONFIG_REC.LINE_ID ) ;
1491: END IF;
1492:
1493: l_line_rec.line_id := config_rec.line_id;
1494: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1493: l_line_rec.line_id := config_rec.line_id;
1494: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
1495:
1496: IF l_debug_level > 0 THEN
1497: oe_debug_pub.add('LINE_ID TO BE DELETED: '||CONFIG_REC.LINE_ID,1);
1498: END IF;
1499:
1500: IF p_direct_save AND
1501: config_rec.item_type_code = OE_GLOBALS.G_ITEM_CLASS
1508: END IF;
1509:
1510: ELSE
1511: IF l_debug_level > 0 THEN
1512: oe_debug_pub.add( 'YES CANCELLATION' , 3 ) ;
1513: END IF;
1514:
1515: IF l_qty <> 0 OR
1516: p_ui_flag = 'Y' THEN
1538: Print_Time('Handle_Deletes_Old end time');
1539: EXCEPTION
1540: WHEN OTHERS THEN
1541: IF l_debug_level > 0 THEN
1542: oe_debug_pub.add( 'EXCEPTION IN HANDLE_DELETES_OLD'|| SQLERRM , 1 ) ;
1543: END IF;
1544: RAISE;
1545: END Handle_Deletes_Old;
1546:
1567: l_parent_line_id NUMBER;
1568: l_ordered_quantity NUMBER := FND_API.G_MISS_NUM;
1569: l_component_code VARCHAR2(1000);
1570: --
1571: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1572: --
1573: BEGIN
1574:
1575: IF l_debug_level > 0 THEN
1572: --
1573: BEGIN
1574:
1575: IF l_debug_level > 0 THEN
1576: oe_debug_pub.add('ENTERING CHECK_IF_CANCELLATION ' || P_LINE_ID ,1);
1577: END IF;
1578:
1579: l_line_id := p_line_id;
1580: l_parent_line_id := p_line_id;
1588:
1589: IF l_ordered_quantity = 0 THEN
1590: IF l_open_flag = 'N' THEN
1591: IF l_debug_level > 0 THEN
1592: oe_debug_pub.add('THIS WAS A COMPLETE CANCELLATION'|| L_LINE_ID,3);
1593: END IF;
1594: x_cancellation := TRUE;
1595: x_current_quantity := l_ordered_quantity;
1596: RETURN;
1595: x_current_quantity := l_ordered_quantity;
1596: RETURN;
1597: ELSE
1598: IF l_debug_level > 0 THEN
1599: oe_debug_pub.add('NOT COMPLETE CANCEL, SO DELETE'|| L_LINE_ID ,3);
1600: END IF;
1601: x_cancellation := FALSE;
1602: x_current_quantity := l_ordered_quantity;
1603: RETURN;
1606:
1607: EXCEPTION
1608: WHEN no_data_found THEN
1609: IF l_debug_level > 0 THEN
1610: oe_debug_pub.add( 'LINE NOT IN DB'|| L_LINE_ID , 1 ) ;
1611: END IF;
1612: WHEN OTHERS THEN
1613: IF l_debug_level > 0 THEN
1614: oe_debug_pub.add( 'OTHERS '|| L_LINE_ID || SQLERRM , 1 ) ;
1610: oe_debug_pub.add( 'LINE NOT IN DB'|| L_LINE_ID , 1 ) ;
1611: END IF;
1612: WHEN OTHERS THEN
1613: IF l_debug_level > 0 THEN
1614: oe_debug_pub.add( 'OTHERS '|| L_LINE_ID || SQLERRM , 1 ) ;
1615: END IF;
1616: RAISE;
1617: END;
1618:
1621:
1622: l_open_flag := 'Y';
1623:
1624: IF l_debug_level > 0 THEN
1625: oe_debug_pub.add('CHECK IF CHANGE CASCADED DOWN '||P_ITEM_TYPE_CODE ,3);
1626: END IF;
1627:
1628: WHILE l_open_flag = 'Y' AND
1629: l_parent_line_id <> p_top_model_line_id
1629: l_parent_line_id <> p_top_model_line_id
1630: LOOP
1631:
1632: IF l_debug_level > 0 THEN
1633: oe_debug_pub.add( 'PARENT LINE ID: ' || L_PARENT_LINE_ID
1634: || 'LINE ID: '|| L_LINE_ID , 3 ) ;
1635: END IF;
1636:
1637: SELECT link_to_line_id
1639: FROM oe_order_lines
1640: WHERE line_id = l_line_id;
1641:
1642: IF l_debug_level > 0 THEN
1643: oe_debug_pub.add( 'CAME HERE '|| L_PARENT_LINE_ID , 3 ) ;
1644: END IF;
1645:
1646: l_line_id := l_parent_line_id;
1647: BEGIN
1653:
1654: EXCEPTION
1655: WHEN TOO_MANY_ROWS THEN
1656: IF l_debug_level > 0 THEN
1657: oe_debug_pub.add( 'OPTION: TOO MANY ROWS IN CHECK CANCEL' , 1 ) ;
1658: END IF;
1659: RAISE;
1660:
1661: WHEN NO_DATA_FOUND THEN
1659: RAISE;
1660:
1661: WHEN NO_DATA_FOUND THEN
1662: IF l_debug_level > 0 THEN
1663: oe_debug_pub.add( 'OPTIONS PARENT NOT FOUND'|| L_OPEN_FLAG , 1 ) ;
1664: END IF;
1665: l_parent_line_id := p_top_model_line_id;
1666: END;
1667:
1665: l_parent_line_id := p_top_model_line_id;
1666: END;
1667:
1668: IF l_debug_level > 0 THEN
1669: oe_debug_pub.add( 'OPEN FLAG OF PARENT: '|| L_OPEN_FLAG , 3 ) ;
1670: END IF;
1671:
1672: END LOOP;
1673:
1675: l_open_flag = 'Y'
1676: THEN
1677:
1678: IF l_debug_level > 0 THEN
1679: oe_debug_pub.add('CHECK IF CHANGE CASCADED UPWARDS TO CLASS/KIT' ,1);
1680: END IF;
1681:
1682: -- this will happen only if the last option under this class
1683: -- is set to qty of 0.
1698: AND link_to_line_id = p_line_id
1699: AND item_type_code IN ('CLASS', 'OPTION', 'KIT');
1700:
1701: IF l_debug_level > 0 THEN
1702: oe_debug_pub.add( 'NO. OF OPEN CHILD: '|| L_LINE_ID , 3 ) ;
1703: oe_debug_pub.add( 'NO. OF CHILD: '|| L_PARENT_LINE_ID , 3 ) ;
1704: END IF;
1705:
1706: IF l_parent_line_id = 0 THEN
1699: AND item_type_code IN ('CLASS', 'OPTION', 'KIT');
1700:
1701: IF l_debug_level > 0 THEN
1702: oe_debug_pub.add( 'NO. OF OPEN CHILD: '|| L_LINE_ID , 3 ) ;
1703: oe_debug_pub.add( 'NO. OF CHILD: '|| L_PARENT_LINE_ID , 3 ) ;
1704: END IF;
1705:
1706: IF l_parent_line_id = 0 THEN
1707: IF l_debug_level > 0 THEN
1704: END IF;
1705:
1706: IF l_parent_line_id = 0 THEN
1707: IF l_debug_level > 0 THEN
1708: oe_debug_pub.add( 'IT IS A DELETE' , 1 ) ;
1709: END IF;
1710: l_open_flag := 'Y';
1711: ELSIF l_line_id = 0 THEN
1712: l_open_flag := 'N';
1710: l_open_flag := 'Y';
1711: ELSIF l_line_id = 0 THEN
1712: l_open_flag := 'N';
1713: IF l_debug_level > 0 THEN
1714: oe_debug_pub.add( 'IT IS A CANCELLATION' , 1 ) ;
1715: END IF;
1716: ELSE
1717:
1718: BEGIN
1727:
1728: EXCEPTION
1729: WHEN NO_DATA_FOUND THEN
1730: IF l_debug_level > 0 THEN
1731: oe_debug_pub.add( 'NO CANELLED LINES' , 2 ) ;
1732: END IF;
1733: END;
1734:
1735: IF l_line_id > 0 THEN
1740:
1741: EXCEPTION
1742: WHEN TOO_MANY_ROWS THEN
1743: IF l_debug_level > 0 THEN
1744: oe_debug_pub.add( 'TOO MANY ROWS IN CHECK CANCELLATION' , 1 ) ;
1745: END IF;
1746: RAISE;
1747:
1748: WHEN OTHERS THEN
1746: RAISE;
1747:
1748: WHEN OTHERS THEN
1749: IF l_debug_level > 0 THEN
1750: oe_debug_pub.add( 'OTHERS CLASS/KIT'|| L_LINE_ID || SQLERRM , 1 ) ;
1751: END IF;
1752: RAISE;
1753: END;
1754:
1762: x_cancellation := FALSE;
1763: END IF;
1764:
1765: IF l_debug_level > 0 THEN
1766: oe_debug_pub.add( 'LEAVING CHECK_IF_CANCELLATION ' || L_OPEN_FLAG , 1 ) ;
1767: END IF;
1768:
1769: EXCEPTION
1770: WHEN OTHERS THEN
1768:
1769: EXCEPTION
1770: WHEN OTHERS THEN
1771: IF l_debug_level > 0 THEN
1772: oe_debug_pub.add( 'EXCEPTION IN CHECK_IF_CANCELLATION'|| SQLERRM , 1 ) ;
1773: END IF;
1774: RAISE;
1775: END Check_If_cancellation;
1776:
1830: l_return_code NUMBER; --Bug 4165102
1831: l_error_buffer VARCHAR2(240); --Bug 4165102
1832:
1833: --
1834: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1835: --
1836: BEGIN
1837:
1838: IF l_debug_level > 0 THEN
1835: --
1836: BEGIN
1837:
1838: IF l_debug_level > 0 THEN
1839: oe_debug_pub.add( 'IN CALL_PROCESS_ORDER '|| P_LINE_TBL.COUNT , 1 ) ;
1840: END IF;
1841:
1842: IF p_control_rec.check_security IS NULL THEN
1843: p_control_rec.check_security := TRUE;
1910: l_index := l_line_tbl.COUNT;
1911:
1912: IF nvl(p_class_line_tbl.count, -1) > 0 AND p_ui_flag = 'Y' THEN
1913: IF l_debug_level > 0 THEN
1914: oe_debug_pub.add('DIRECT OP ON CLASS: '|| P_CLASS_LINE_TBL.COUNT ,1);
1915: END IF;
1916:
1917: I := p_class_line_tbl.FIRST;
1918:
1919: WHILE I is not NULL
1920: LOOP
1921:
1922: IF l_debug_level > 0 THEN
1923: oe_debug_pub.add('I: '|| P_CLASS_LINE_TBL ( I ) .LINE_ID , 1 ) ;
1924: END IF;
1925: l_line_rec := p_class_line_tbl(I);
1926:
1927: IF l_line_rec.operation = OE_GLOBALS.G_OPR_CREATE THEN
1953: l_line_rec.global_attribute20 := NULL;
1954: l_line_rec.global_attribute_category := NULL;
1955:
1956: IF l_debug_level > 0 THEN
1957: OE_DEBUG_PUB.Add('Before calling JG ',2);
1958: END IF;
1959:
1960: JG_ZZ_OM_COMMON_PKG.default_gdf
1961: (x_line_rec => l_line_rec,
1962: x_return_code => l_return_code,
1963: x_error_buffer => l_error_buffer);
1964:
1965: IF l_debug_level > 0 THEN
1966: OE_DEBUG_PUB.Add('After JG Call:'|| l_return_code || l_error_buffer,2);
1967: END IF;
1968:
1969:
1970: IF l_debug_level > 0 THEN
1967: END IF;
1968:
1969:
1970: IF l_debug_level > 0 THEN
1971: oe_debug_pub.add('INSERT: ' || L_LINE_REC.COMPONENT_CODE , 1 ) ;
1972: END IF;
1973:
1974: OE_Line_Util.Insert_Row( p_line_rec => l_line_rec);
1975:
1991: END IF;
1992:
1993: ELSIF l_line_rec.operation = OE_GLOBALS.G_OPR_UPDATE THEN
1994: IF l_debug_level > 0 THEN
1995: oe_debug_pub.add('UPDATE: ' || L_LINE_REC.LINE_ID , 1 ) ;
1996: END IF;
1997:
1998: UPDATE oe_order_lines
1999: SET ordered_quantity = l_line_rec.ordered_quantity
2000: WHERE line_id = l_line_rec.line_id;
2001:
2002: ELSIF l_line_rec.operation = OE_GLOBALS.G_OPR_DELETE THEN
2003: IF l_debug_level > 0 THEN
2004: oe_debug_pub.add('DELETE: ' || L_LINE_REC.LINE_ID , 1 ) ;
2005: END IF;
2006:
2007: DELETE FROM oe_order_lines
2008: WHERE line_id = l_line_rec.line_id;
2008: WHERE line_id = l_line_rec.line_id;
2009:
2010: ELSE
2011: IF l_debug_level > 0 THEN
2012: oe_debug_pub.add('OPERATION: '|| L_LINE_REC.OPERATION , 1 ) ;
2013: END IF;
2014: END IF;
2015:
2016: l_index := l_index + 1;
2028: ---------------------------------------------------------------------
2029: IF p_update_columns = TRUE THEN
2030:
2031: IF l_debug_level > 0 THEN
2032: oe_debug_pub.add('CALLING CHANGE COLUMNS' , 2 ) ;
2033: END IF;
2034:
2035: oe_config_pvt.Change_Columns
2036: (p_top_model_line_id => p_top_model_line_id,
2082: ,p_data => l_msg_data );
2083:
2084:
2085: IF l_debug_level > 0 THEN
2086: oe_debug_pub.add('AFTER CALLING PROCESS ORDER' , 1 ) ;
2087: oe_debug_pub.add('L_RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
2088: END IF;
2089:
2090: x_return_status := l_return_status;
2083:
2084:
2085: IF l_debug_level > 0 THEN
2086: oe_debug_pub.add('AFTER CALLING PROCESS ORDER' , 1 ) ;
2087: oe_debug_pub.add('L_RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
2088: END IF;
2089:
2090: x_return_status := l_return_status;
2091:
2089:
2090: x_return_status := l_return_status;
2091:
2092: IF l_debug_level > 0 THEN
2093: oe_debug_pub.add('LEAVING CALL_PROCESS_ORDER' , 1 ) ;
2094: END IF;
2095:
2096: EXCEPTION
2097: WHEN OTHERS THEN
2095:
2096: EXCEPTION
2097: WHEN OTHERS THEN
2098: IF l_debug_level > 0 THEN
2099: oe_debug_pub.add('EXCEPTION IN CALL_PROCESS_ORDER: '|| SQLERRM , 1 ) ;
2100: END IF;
2101: RAISE;
2102: END Call_Process_Order;
2103:
2179: AND item_type_code <> OE_GLOBALS.G_ITEM_CONFIG
2180: order by sort_order;
2181:
2182: --
2183: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2184: --
2185: BEGIN
2186:
2187: Print_Time('Entering Change_Columns');
2196: WHERE line_id = p_top_model_line_id;
2197: EXCEPTION
2198: WHEN OTHERS THEN
2199: IF l_debug_level > 0 THEN
2200: oe_debug_pub.add('EXCEPTION IN QUERY MODEL ATTIRBS' , 1 ) ;
2201: END IF;
2202: RAISE;
2203: END;
2204:
2208: IF l_remnant_flag = 'N' AND
2209: l_model_item_type_code = 'MODEL' THEN
2210: IF p_config_hdr_id is NULL THEN
2211: IF l_debug_level > 0 THEN
2212: oe_debug_pub.add('OPTIONS WINDOW , CONFIGURATION ID' , 1 ) ;
2213: END IF;
2214:
2215: UPDATE oe_order_lines
2216: SET configuration_id = nvl(configuration_id, 0) + 1,
2219: AND item_type_code IN ('MODEL', 'CLASS', 'OPTION', 'KIT');
2220:
2221: ELSE
2222: IF l_debug_level > 0 THEN
2223: oe_debug_pub.add( P_CONFIG_HDR_ID || ' ' || P_CONFIG_REV_NBR , 1 ) ;
2224: oe_debug_pub.add( L_PREV_CONFIG_HEADER_ID
2225: ||' '||L_PREV_CONFIG_REV_NBR , 1 ) ;
2226: END IF;
2227:
2220:
2221: ELSE
2222: IF l_debug_level > 0 THEN
2223: oe_debug_pub.add( P_CONFIG_HDR_ID || ' ' || P_CONFIG_REV_NBR , 1 ) ;
2224: oe_debug_pub.add( L_PREV_CONFIG_HEADER_ID
2225: ||' '||L_PREV_CONFIG_REV_NBR , 1 ) ;
2226: END IF;
2227:
2228: UPDATE oe_order_lines
2240: l_model_item_type_code = OE_GLOBALS.G_ITEM_MODEL AND
2241: l_model_ato_line_id is NULL
2242: THEN
2243: IF l_debug_level > 0 THEN
2244: oe_debug_pub.add('UPDATE ATO ATTRIBS FOR SUBASSEMBLIES' , 1 ) ;
2245: END IF;
2246: update_ato_line_attributes( p_top_model_line_id => p_top_model_line_id
2247: ,p_ui_flag => p_ui_flag
2248: ,p_config_hdr_id => p_config_hdr_id);
2271:
2272: --/************* update option_number *****************/
2273:
2274: IF l_debug_level > 0 THEN
2275: oe_debug_pub.add('UPDATING OPTION_NUMBER IN OE_ORDER_LINES' , 1 ) ;
2276: END IF;
2277:
2278: OPEN option_nbr;
2279: LOOP
2289: lock_control = lock_control + 1
2290: WHERE line_id = l_line_id;
2291:
2292: IF l_debug_level > 0 THEN
2293: oe_debug_pub.add('FOR '|| L_LINE_ID || ' LLID '|| L_LINK , 3 ) ;
2294: END IF;
2295:
2296: -- 3082485
2297: IF l_link <> p_top_model_line_id AND
2298: p_config_hdr_id is NULL AND
2299: l_remnant_flag = 'N' THEN
2300:
2301: IF l_debug_level > 0 THEN
2302: oe_debug_pub.add('do we need to check ration with parent' , 3 ) ;
2303: END IF;
2304:
2305: l_ratio_check := 'Y';
2306:
2316: OE_Sys_Parameters.VALUE('MASTER_ORGANIZATION_ID');
2317:
2318: IF nvl(l_indivisible_flag, 'N') = 'N' THEN
2319: IF l_debug_level > 0 THEN
2320: OE_DEBUG_PUB.ADD('this Option can have decimal ratio', 1);
2321: END IF;
2322:
2323: l_ratio_check := 'N';
2324: ELSE
2322:
2323: l_ratio_check := 'N';
2324: ELSE
2325: IF l_debug_level > 0 THEN
2326: OE_DEBUG_PUB.ADD('this Option can not have decimal ratio', 1);
2327: END IF;
2328: END IF;
2329: END IF;
2330:
2329: END IF;
2330:
2331:
2332: IF l_debug_level > 0 THEN
2333: oe_debug_pub.add('check ration with parent '|| l_ratio_check , 3 ) ;
2334: END IF;
2335:
2336: IF l_ratio_check = 'Y' THEN
2337:
2378:
2379: EXCEPTION
2380: WHEN NO_DATA_FOUND THEN
2381: IF l_debug_level > 0 THEN
2382: oe_debug_pub.add('NO INCLUDED ITEMS' , 3 ) ;
2383: END IF;
2384: END;
2385:
2386: BEGIN
2393:
2394: EXCEPTION
2395: WHEN NO_DATA_FOUND THEN
2396: IF l_debug_level > 0 THEN
2397: oe_debug_pub.add('NO CONFIG ITEMS' , 3 ) ;
2398: END IF;
2399: END;
2400:
2401: END IF;
2423:
2424: END IF;
2425:
2426: IF l_debug_level > 0 THEN
2427: oe_debug_pub.add('LEAVING CHANGE_COLUMNS IN OE_CONFIG_PVT' , 1 ) ;
2428: END IF;
2429:
2430: EXCEPTION
2431: WHEN FND_API.G_EXC_ERROR THEN
2429:
2430: EXCEPTION
2431: WHEN FND_API.G_EXC_ERROR THEN
2432: IF l_debug_level > 0 THEN
2433: oe_debug_pub.add('EXC ERROR IN CHANGE_COLUMNS IN OE_CONFIG_PVT' , 1 ) ;
2434: END IF;
2435: RAISE FND_API.G_EXC_ERROR;
2436:
2437: WHEN OTHERS THEN
2435: RAISE FND_API.G_EXC_ERROR;
2436:
2437: WHEN OTHERS THEN
2438: IF l_debug_level > 0 THEN
2439: oe_debug_pub.add('ERROR IN CHANGE_COLUMNS IN OE_CONFIG_PVT' , 1 ) ;
2440: END IF;
2441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2442: END Change_Columns;
2443:
2451: ,p_remnant_flag IN VARCHAR2
2452: ,p_config_hdr_id IN NUMBER)
2453: IS
2454: --
2455: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2456: --
2457: BEGIN
2458:
2459: IF l_debug_level > 0 THEN
2456: --
2457: BEGIN
2458:
2459: IF l_debug_level > 0 THEN
2460: oe_debug_pub.add('UPDATING LINK_TO_LINE_ID '|| P_REMNANT_FLAG , 1 ) ;
2461: oe_debug_pub.add( P_CONFIG_HDR_ID || ' MODEL: '|| P_TOP_MODEL_LINE_ID ,1);
2462: END IF;
2463:
2464: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
2457: BEGIN
2458:
2459: IF l_debug_level > 0 THEN
2460: oe_debug_pub.add('UPDATING LINK_TO_LINE_ID '|| P_REMNANT_FLAG , 1 ) ;
2461: oe_debug_pub.add( P_CONFIG_HDR_ID || ' MODEL: '|| P_TOP_MODEL_LINE_ID ,1);
2462: END IF;
2463:
2464: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
2465: IF l_debug_level > 0 THEN
2462: END IF;
2463:
2464: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' THEN
2465: IF l_debug_level > 0 THEN
2466: oe_debug_pub.add('1 LLID: PACK H NEW LOGIC FOR SPLIT ' , 1 ) ;
2467: END IF;
2468:
2469: UPDATE oe_order_lines OEOPT
2470: SET link_to_line_id =
2484: AND OEOPT.open_flag = 'Y';
2485:
2486: IF SQL%FOUND THEN
2487: IF l_debug_level > 0 THEN
2488: oe_debug_pub.add('1 LLID UPDATED ' || SQL%ROWCOUNT ) ;
2489: END IF;
2490: END IF;
2491:
2492: END IF;
2494:
2495: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' AND
2496: p_config_hdr_id is NOT NULL THEN
2497: IF l_debug_level > 0 THEN
2498: oe_debug_pub.add('2 LLID: PACK H NEW LOGIC MI '|| P_REMNANT_FLAG , 1 ) ;
2499: END IF;
2500:
2501: UPDATE oe_order_lines OEOPT
2502: SET link_to_line_id =
2517: AND OEOPT.link_to_line_id IS NULL;
2518:
2519: IF SQL%FOUND THEN
2520: IF l_debug_level > 0 THEN
2521: oe_debug_pub.add('2 LLID UPDATED ' || SQL%ROWCOUNT ) ;
2522: END IF;
2523: END IF;
2524:
2525: ELSE
2524:
2525: ELSE
2526:
2527: IF l_debug_level > 0 THEN
2528: oe_debug_pub.add('LLID OPTIONS WINDOW OR OLD LOGIC ' , 3 ) ;
2529: END IF;
2530:
2531: UPDATE oe_order_lines OEOPT
2532: SET link_to_line_id =
2546: AND OEOPT.item_type_code <> OE_GLOBALS.G_ITEM_INCLUDED;
2547:
2548: IF SQL%FOUND THEN
2549: IF l_debug_level > 0 THEN
2550: oe_debug_pub.add('3 LLID UPDATED ' || SQL%ROWCOUNT ) ;
2551: END IF;
2552: END IF;
2553:
2554: -- only in a post split situation.
2572: AND OEOPT.open_flag = 'Y';
2573:
2574: IF SQL%FOUND THEN
2575: IF l_debug_level > 0 THEN
2576: oe_debug_pub.add('1 LLID UPDATED ' || SQL%ROWCOUNT ) ;
2577: END IF;
2578: END IF;
2579:
2580: END IF;
2579:
2580: END IF;
2581:
2582: IF l_debug_level > 0 THEN
2583: oe_debug_pub.add('UPDATED LINK_TO_LINE_ID IN OE_ORDER_LINES' , 2 ) ;
2584: END IF;
2585:
2586: EXCEPTION
2587: WHEN OTHERS THEN
2585:
2586: EXCEPTION
2587: WHEN OTHERS THEN
2588: IF l_debug_level > 0 THEN
2589: oe_debug_pub.add('ERROR IN UPDATE_LINK_TO_LINE_ID' || SQLERRM , 1 ) ;
2590: END IF;
2591: RAISE;
2592: END update_link_to_line_id;
2593:
2678: nvl(ato_model.freight_carrier_code,'-') <>
2679: nvl(opt.freight_carrier_code,'-') );
2680:
2681: --
2682: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2683: --
2684: BEGIN
2685:
2686: BEGIN
2687: -- If the model line is not ATO, then for all ATO lines, set the
2688: -- ATO_LINE_ID to the "highest" ATO line
2689:
2690: IF l_debug_level > 0 THEN
2691: oe_debug_pub.add('UPDATING ATO_LINE_ID IN FOR SUBASSEMBLIES' , 1 ) ;
2692: END IF;
2693:
2694:
2695: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' AND
2695: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' AND
2696: p_config_hdr_id is NOT NULL
2697: THEN
2698: IF l_debug_level > 0 THEN
2699: oe_debug_pub.add('UPDATE_ATO: PACK H NEW LOGIC MI' , 1 ) ;
2700: END IF;
2701:
2702: UPDATE oe_order_lines OEOPT
2703: SET ato_line_id =
2722: -- model remnant condition important
2723:
2724: IF SQL%FOUND THEN
2725: IF l_debug_level > 0 THEN
2726: oe_debug_pub.add('NEW ATO_LINE UPDATED ' || SQL%ROWCOUNT ) ;
2727: END IF;
2728: ELSE
2729: IF l_debug_level > 0 THEN
2730: oe_debug_pub.add('DID NOT UPDATE ANY LINE WITH ATO' ) ;
2726: oe_debug_pub.add('NEW ATO_LINE UPDATED ' || SQL%ROWCOUNT ) ;
2727: END IF;
2728: ELSE
2729: IF l_debug_level > 0 THEN
2730: oe_debug_pub.add('DID NOT UPDATE ANY LINE WITH ATO' ) ;
2731: END IF;
2732: END IF;
2733:
2734: -- note that the CONFIG line needs ato_line_id after
2753: AND OEOPT.ato_line_id is null;
2754:
2755: IF SQL%FOUND THEN
2756: IF l_debug_level > 0 THEN
2757: oe_debug_pub.add
2758: ('DUE TO MI: ATO LINE SPLIT FOR CONFIG ' || SQL%ROWCOUNT ) ;
2759: END IF;
2760: END IF;
2761:
2785: ato_line_id is not null);
2786:
2787: IF SQL%FOUND THEN
2788: IF l_debug_level > 0 THEN
2789: oe_debug_pub.add('DUE TO MI: ATO_LINE SPLIT' || SQL%ROWCOUNT ) ;
2790: END IF;
2791: ELSE
2792:
2793: IF l_debug_level > 0 THEN
2790: END IF;
2791: ELSE
2792:
2793: IF l_debug_level > 0 THEN
2794: oe_debug_pub.add('OLD ATO_LINE_ID / NOT SPLIT' , 1 ) ;
2795: END IF;
2796:
2797: UPDATE OE_ORDER_LINES_ALL OEOPT
2798: SET ATO_LINE_ID =
2844: ato_line_id is not null);
2845:
2846: IF SQL%FOUND THEN
2847: IF l_debug_level > 0 THEN
2848: oe_debug_pub.add('OLD ATO_LINE UPDATED ' || SQL%ROWCOUNT ) ;
2849: END IF;
2850: END IF;
2851:
2852: END IF; -- split or not
2855:
2856: EXCEPTION
2857: WHEN OTHERS THEN
2858: IF l_debug_level > 0 THEN
2859: oe_debug_pub.add('UNEXPECTED ERROR IN UPDATE ATO_LINE_ID' , 1 ) ;
2860: END IF;
2861: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2862: END;
2863:
2863:
2864: ------------------------------------------------------------------
2865:
2866: IF l_debug_level > 0 THEN
2867: oe_debug_pub.add
2868: ('UPDATING OTHER ATTRIBUTES ON OPTIONS/CLASSES OF SUBASSEMBLIES' , 1);
2869: END IF;
2870:
2871: OPEN ATO_MODELS;
2873: FETCH ATO_MODELS INTO l_ato_line_id;
2874: EXIT WHEN ATO_MODELS%NOTFOUND;
2875:
2876: IF l_debug_level > 0 THEN
2877: oe_debug_pub.add('ATO LINE: ' || L_ATO_LINE_ID , 1 ) ;
2878: END IF;
2879:
2880: OE_LINE_UTIL.Lock_Row
2881: (p_line_id => l_ato_line_id
2894: l_line_count := l_line_count + 1;
2895: l_old_line_tbl(l_line_count) := l_line_rec;
2896:
2897: IF l_debug_level > 0 THEN
2898: oe_debug_pub.add('UPDATING LINE: ' || L_OPTION_LINE_ID , 1 ) ;
2899: END IF;
2900:
2901: l_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
2902: l_line_rec.line_id := l_option_line_id;
2941: l_control_rec.process := FALSE;
2942: END IF;
2943:
2944: IF l_debug_level > 0 THEN
2945: oe_debug_pub.add('IN UPDATE_ATO_ATTIRBS , CALLING PROCESS_ORDER' , 1 ) ;
2946: END IF;
2947:
2948: OE_CONFIG_UTIL.CASCADE_CHANGES_FLAG := 'Y';
2949:
2955:
2956: OE_CONFIG_UTIL.CASCADE_CHANGES_FLAG := 'N';
2957:
2958: IF l_debug_level > 0 THEN
2959: oe_debug_pub.add
2960: ('IN UPDATE_ATO_ATTIRBS , AFTER PO: ' || L_RETURN_STATUS , 1 ) ;
2961: END IF;
2962:
2963: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2968:
2969: EXCEPTION
2970: WHEN OTHERS THEN
2971: IF l_debug_level > 0 THEN
2972: oe_debug_pub.add('ERROR IN UPDATE_ATO_LINE_ATTRIBUTES' || SQLERRM , 1 ) ;
2973: END IF;
2974: RAISE;
2975: END update_ato_line_attributes;
2976:
2989: l_return_value number := 1;
2990: l_error_message varchar2(100);
2991:
2992: --
2993: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
2994: --
2995: BEGIN
2996:
2997: IF l_debug_level > 0 THEN
2994: --
2995: BEGIN
2996:
2997: IF l_debug_level > 0 THEN
2998: oe_debug_pub.add('ENTERING DELETE_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
2999: END IF;
3000:
3001: IF p_config_hdr_id is not null AND
3002: p_config_rev_nbr is not null THEN
3001: IF p_config_hdr_id is not null AND
3002: p_config_rev_nbr is not null THEN
3003:
3004: IF l_debug_level > 0 THEN
3005: oe_debug_pub.add
3006: ('DEL CFG' ||P_CONFIG_HDR_ID || ' ' || P_CONFIG_REV_NBR , 1 ) ;
3007: END IF;
3008:
3009: CZ_CF_API.Delete_Configuration
3017:
3018: IF l_return_value <> 1 THEN
3019: OE_Msg_Pub.Add_Text(l_error_message);
3020: IF l_debug_level > 0 THEN
3021: oe_debug_pub.add('ERROR IN DELETE_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
3022: END IF;
3023: x_return_status := FND_API.G_RET_STS_ERROR;
3024: ELSE
3025: x_return_status := FND_API.G_RET_STS_SUCCESS;
3025: x_return_status := FND_API.G_RET_STS_SUCCESS;
3026: END IF;
3027: ELSE
3028: IF l_debug_level > 0 THEN
3029: oe_debug_pub.add('NOTE : NULL CONFIG_HEADER_ID/CONFIG_REV_NBR PASSED');
3030: END IF;
3031: END IF;
3032:
3033: IF l_debug_level > 0 THEN
3030: END IF;
3031: END IF;
3032:
3033: IF l_debug_level > 0 THEN
3034: oe_debug_pub.add('LEAVING DELETE_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
3035: END IF;
3036:
3037: EXCEPTION
3038: when others then
3036:
3037: EXCEPTION
3038: when others then
3039: IF l_debug_level > 0 THEN
3040: oe_debug_pub.add('ERROR IN DELETE_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
3041: END IF;
3042:
3043:
3044: END Delete_Config;
3079: l_msg_data VARCHAR2(2000);
3080: l_booked_flag varchar2(1);
3081:
3082: --
3083: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3084: --
3085: BEGIN
3086:
3087: IF l_debug_level > 0 THEN
3084: --
3085: BEGIN
3086:
3087: IF l_debug_level > 0 THEN
3088: oe_debug_pub.add('ENTERING COPY_CONFIG '|| P_REMNANT_FLAG , 1 ) ;
3089: oe_debug_pub.add('MODEL LINE: '|| P_TOP_MODEL_LINE_ID , 1 ) ;
3090: END IF;
3091:
3092: l_return_value := 1;
3085: BEGIN
3086:
3087: IF l_debug_level > 0 THEN
3088: oe_debug_pub.add('ENTERING COPY_CONFIG '|| P_REMNANT_FLAG , 1 ) ;
3089: oe_debug_pub.add('MODEL LINE: '|| P_TOP_MODEL_LINE_ID , 1 ) ;
3090: END IF;
3091:
3092: l_return_value := 1;
3093:
3111:
3112: IF l_return_value <> 1 THEN
3113: OE_Msg_Pub.Add_Text(l_error_message);
3114: IF l_debug_level > 0 THEN
3115: oe_debug_pub.add('ERROR FROM SPC COPY: ' || L_ERROR_MESSAGE , 1 ) ;
3116: END IF;
3117: x_return_status := FND_API.G_RET_STS_ERROR;
3118: RETURN;
3119: END IF;
3135:
3136: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3137: OE_Msg_Pub.Add_Text(l_msg_data);
3138: IF l_debug_level > 0 THEN
3139: oe_debug_pub.add('ERROR FROM SPC NEW COPY: ' || L_MSG_DATA , 1 ) ;
3140: END IF;
3141: RETURN;
3142: END IF;
3143:
3143:
3144: IF l_new_item_id_tbl.COUNT = 0 THEN
3145:
3146: IF l_debug_level > 0 THEN
3147: oe_debug_pub.add('no need to update config ids ',1);
3148: END IF;
3149:
3150: ELSE
3151:
3156: WHERE top_model_line_id = p_top_model_line_id
3157: AND configuration_id = l_orig_item_id_tbl(I);
3158:
3159: IF l_debug_level > 0 THEN
3160: oe_debug_pub.add('DONE UPDATING NEW CONFIG ITEM IDS' , 1 ) ;
3161: END IF;
3162:
3163: END IF;
3164:
3166:
3167: ELSE
3168:
3169: IF l_debug_level > 0 THEN
3170: oe_debug_pub.add('NULL CONFIG_HEADER_ID TO COPY_CONFIG , OR REMNANT SET' , 1 ) ;
3171: END IF;
3172:
3173: UPDATE oe_order_lines
3174: SET configuration_id = null,
3177: WHERE top_model_line_id = p_top_model_line_id;
3178:
3179: IF SQL%FOUND THEN
3180: IF l_debug_level > 0 THEN
3181: oe_debug_pub.add('CONFIG IDS UPDATED TO NULL' , 2 ) ;
3182: END IF;
3183: END IF;
3184: END IF;
3185:
3187: IF OE_CODE_CONTROL.Get_Code_Release_Level >= '110508' AND
3188: p_remnant_flag = 'Y'
3189: THEN
3190: IF l_debug_level > 0 THEN
3191: oe_debug_pub.add('1 COPY CONFIG: PACK H NEW LOGIC MI' , 1 ) ;
3192: END IF;
3193:
3194: UPDATE oe_order_lines
3195: SET link_to_line_id = NULL
3225:
3226: IF p_top_model_line_id <> nvl(l_ato_line_id,-99) THEN
3227:
3228: IF l_debug_level > 0 THEN
3229: oe_debug_pub.add('NULLING ATO_LINE_ID FOR ATO SUB' , 4 ) ;
3230: END IF;
3231:
3232: UPDATE oe_order_lines
3233: SET ato_line_id = NULL
3239: IF p_remnant_flag is NULL THEN
3240:
3241: IF nvl(l_booked_flag,'N') = 'N' THEN
3242: IF l_debug_level > 0 THEN
3243: oe_debug_pub.add('Order Not Booked '|| l_error_message, 5);
3244: END IF;
3245:
3246: IF p_config_hdr_id is NULL AND
3247: p_config_rev_nbr is NULL AND
3248: p_configuration_id is NULL AND
3249: l_error_message = 'MODEL' THEN
3250:
3251: IF l_debug_level > 0 THEN
3252: oe_debug_pub.add
3253: ('config hdr/rev/id null dont call change column',5);
3254: END IF;
3255: update_link_to_line_id
3256: ( p_top_model_line_id => p_top_model_line_id --added for bug 7261021
3266: p_config_hdr_id => l_config_hdr_id,
3267: p_config_rev_nbr => l_config_rev_nbr);
3268:
3269: IF l_debug_level > 0 THEN
3270: oe_debug_pub.add('NEW CONFIG_HEADER_ID: '|| L_CONFIG_HDR_ID , 5 ) ;
3271: oe_debug_pub.add('NEW CONFIG_REV_NBR: '|| L_CONFIG_REV_NBR , 5 ) ;
3272: END IF;
3273: x_return_status := FND_API.G_RET_STS_SUCCESS;
3274:
3267: p_config_rev_nbr => l_config_rev_nbr);
3268:
3269: IF l_debug_level > 0 THEN
3270: oe_debug_pub.add('NEW CONFIG_HEADER_ID: '|| L_CONFIG_HDR_ID , 5 ) ;
3271: oe_debug_pub.add('NEW CONFIG_REV_NBR: '|| L_CONFIG_REV_NBR , 5 ) ;
3272: END IF;
3273: x_return_status := FND_API.G_RET_STS_SUCCESS;
3274:
3275: IF l_debug_level > 0 THEN
3272: END IF;
3273: x_return_status := FND_API.G_RET_STS_SUCCESS;
3274:
3275: IF l_debug_level > 0 THEN
3276: oe_debug_pub.add('LEAVING COPY_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
3277: END IF;
3278:
3279: EXCEPTION
3280: WHEN OTHERS THEN
3278:
3279: EXCEPTION
3280: WHEN OTHERS THEN
3281: IF l_debug_level > 0 THEN
3282: oe_debug_pub.add('ERROR IN COPY_CONFIG,OE_CONFIG_PVT'|| sqlerrm ,1);
3283: END IF;
3284:
3285: RAISE;
3286: END Copy_Config;
3315: l_result_out VARCHAR2(30);
3316: l_error VARCHAR2(200);
3317: l_line_number NUMBER;
3318: --
3319: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3320: --
3321: BEGIN
3322:
3323: Print_Time('entering put_hold_and_release_hold');
3332: FROM oe_order_lines
3333: WHERE line_id = p_line_id;
3334:
3335: IF l_debug_level > 0 THEN
3336: oe_debug_pub.add('OE_CONFIG_PVT , BEFORE CHECK_HOLDS ON MODEL' , 1 ) ;
3337: END IF;
3338:
3339: OE_HOLDS_PUB.CHECK_HOLDS
3340: ( p_api_version => 1.0,
3351: (LOWER(p_valid_config) = 'false' OR
3352: LOWER(p_complete_config) = 'false' ) THEN
3353:
3354: IF l_debug_level > 0 THEN
3355: oe_debug_pub.add
3356: ('INCOMPLETE/INVALID CONFIGURATION IN A BOOKED ORDER' , 1 ) ;
3357: END IF;
3358:
3359: l_hold_comment := 'Validation hold on model';
3358:
3359: l_hold_comment := 'Validation hold on model';
3360:
3361: IF l_debug_level > 0 THEN
3362: oe_debug_pub.add('BEFORE APPLY_HOLDS ON MODEL' , 1 ) ;
3363: END IF;
3364:
3365: OE_Holds_pub.apply_holds
3366: ( p_api_version => 1.0,
3372: x_msg_data => x_msg_data );
3373:
3374: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3375: IF l_debug_level > 0 THEN
3376: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN PUT HOLD' , 1 ) ;
3377: END IF;
3378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3379: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3380: IF l_debug_level > 0 THEN
3377: END IF;
3378: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3379: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3380: IF l_debug_level > 0 THEN
3381: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN PUT HOLD' , 1 ) ;
3382: END IF;
3383: RAISE FND_API.G_EXC_ERROR;
3384: END IF;
3385:
3387: FND_MESSAGE.Set_Token('LINE_NUMBER', l_line_number);
3388: OE_Msg_Pub.Add;
3389:
3390: IF l_debug_level > 0 THEN
3391: oe_debug_pub.add('AFTER SUCCESSFUL APPLY_HOLDS ON MODEL' , 1 ) ;
3392: END IF;
3393: END IF;
3394:
3395: IF l_hold_result_out = FND_API.G_TRUE AND
3396: (LOWER(p_valid_config) = 'true' AND
3397: LOWER(p_complete_config) = 'true' ) THEN
3398:
3399: IF l_debug_level > 0 THEN
3400: oe_debug_pub.add('VALID/COMPLETE CONFIGURATION IN BOOKED ORDER',1);
3401: END IF;
3402:
3403: l_release_reason_code := 'CZ_AUTOMATIC';
3404: l_release_comment := 'Configuration is now valid';
3403: l_release_reason_code := 'CZ_AUTOMATIC';
3404: l_release_comment := 'Configuration is now valid';
3405:
3406: IF l_debug_level > 0 THEN
3407: oe_debug_pub.add('OE_CONFIG_PVT,BEFORE RELEASE_HOLDS ON MODEL',1);
3408: END IF;
3409:
3410: OE_Holds_pub.release_holds
3411: ( p_order_tbl => l_holds_tbl,
3417: x_msg_data => x_msg_data );
3418:
3419: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3420: IF l_debug_level > 0 THEN
3421: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN RELEASING HOLD',1);
3422: END IF;
3423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3424: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3425: IF l_debug_level > 0 THEN
3422: END IF;
3423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3424: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3425: IF l_debug_level > 0 THEN
3426: oe_debug_pub.add('OE_CONFIG_PVT ,ERROR IN RELEASING HOLD' ,1);
3427: END IF;
3428: RAISE FND_API.G_EXC_ERROR;
3429: END IF;
3430:
3432: FND_MESSAGE.Set_Token('LINE_NUMBER', l_line_number);
3433: OE_Msg_Pub.Add;
3434:
3435: IF l_debug_level > 0 THEN
3436: oe_debug_pub.add('AFTER SUCCESSFUL RELAESE_HOLDS ON MODEL' ,1);
3437: END IF;
3438: END IF;
3439:
3440: ELSE -- ret status error
3439:
3440: ELSE -- ret status error
3441: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3442: IF l_debug_level > 0 THEN
3443: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN CHECK HOLD' , 1 ) ;
3444: END IF;
3445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3446:
3447: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3446:
3447: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3448: IF l_debug_level > 0 THEN
3449: oe_debug_pub.add('OE_CONFIG_PVT , ERROR IN CHECK HOLD' , 1 ) ;
3450: END IF;
3451: RAISE FND_API.G_EXC_ERROR;
3452: END IF;
3453: END IF; -- check holds ret status check.
3456:
3457: EXCEPTION
3458: when others then
3459: IF l_debug_level > 0 THEN
3460: oe_debug_pub.add
3461: ('ERROR IN PUT_HOLD_AND_RELEASE_HOLD IN OE_CONFIG_PVT' , 1 ) ;
3462: END IF;
3463:
3464: END put_hold_and_release_hold;
3502: l_msg_count NUMBER;
3503: l_msg_data VARCHAR2(2000);
3504: l_return_status VARCHAR2(1):= FND_API.G_RET_STS_SUCCESS;
3505: --
3506: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3507: --
3508: BEGIN
3509:
3510: IF l_debug_level > 0 THEN
3507: --
3508: BEGIN
3509:
3510: IF l_debug_level > 0 THEN
3511: oe_debug_pub.add( 'model line_id : '|| p_model_line_rec.line_id ,1);
3512: END IF;
3513:
3514: IF p_check_effective_date = 'Y' THEN
3515:
3527: x_config_effective_date := l_rev_date;
3528: x_frozen_model_bill := l_frozen_model_bill;
3529:
3530: IF l_debug_level > 0 THEN
3531: oe_debug_pub.add(x_config_effective_date||':'||x_frozen_model_bill,1);
3532: END IF;
3533:
3534: ELSE
3535:
3544:
3545: l_top_item_id := p_model_line_rec.inventory_item_id;
3546:
3547: IF l_debug_level > 0 THEN
3548: oe_debug_pub.add('VALIDATION_ORG: ' || L_VALIDATION_ORG , 1 ) ;
3549: oe_debug_pub.add('INVENTORY ITEM ID OF MODEL: ' || L_TOP_ITEM_ID , 1 ) ;
3550: oe_debug_pub.add('CREATION DATE IS: ' || L_REV_DATE , 1 ) ;
3551: END IF;
3552:
3545: l_top_item_id := p_model_line_rec.inventory_item_id;
3546:
3547: IF l_debug_level > 0 THEN
3548: oe_debug_pub.add('VALIDATION_ORG: ' || L_VALIDATION_ORG , 1 ) ;
3549: oe_debug_pub.add('INVENTORY ITEM ID OF MODEL: ' || L_TOP_ITEM_ID , 1 ) ;
3550: oe_debug_pub.add('CREATION DATE IS: ' || L_REV_DATE , 1 ) ;
3551: END IF;
3552:
3553: -- Explode the options in Bom_Explosions
3546:
3547: IF l_debug_level > 0 THEN
3548: oe_debug_pub.add('VALIDATION_ORG: ' || L_VALIDATION_ORG , 1 ) ;
3549: oe_debug_pub.add('INVENTORY ITEM ID OF MODEL: ' || L_TOP_ITEM_ID , 1 ) ;
3550: oe_debug_pub.add('CREATION DATE IS: ' || L_REV_DATE , 1 ) ;
3551: END IF;
3552:
3553: -- Explode the options in Bom_Explosions
3554: IF l_debug_level > 0 THEN
3551: END IF;
3552:
3553: -- Explode the options in Bom_Explosions
3554: IF l_debug_level > 0 THEN
3555: oe_debug_pub.add('CALL TO EXPLOSION' , 1 ) ;
3556: END IF;
3557:
3558: OE_CONFIG_UTIL.Explode
3559: ( p_validation_org => l_validation_org
3565: , x_return_status => l_return_status );
3566:
3567:
3568: IF l_debug_level > 0 THEN
3569: oe_debug_pub.add('AFTER CALL TO EXPLOSION , RETURN STATUS: '
3570: || L_RETURN_STATUS , 1 ) ;
3571: END IF;
3572:
3573: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3599:
3600: EXCEPTION
3601: WHEN NO_DATA_FOUND THEN
3602: IF l_debug_level > 0 THEN
3603: oe_debug_pub.add('EXPLODE_BILL , BILL_SEQ QUERY FAILED' , 1 ) ;
3604: END IF;
3605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3606: END;
3607:
3605: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3606: END;
3607:
3608: IF l_debug_level > 0 THEN
3609: oe_debug_pub.add('TOP_BILL_SEQ_ID SELECTED FROM BOM_bill_of_mat' ) ;
3610: END IF;
3611:
3612: IF p_do_update THEN
3613: UPDATE oe_order_lines
3619:
3620: p_model_line_rec.lock_control := p_model_line_rec.lock_control + 1;
3621: ELSE
3622: IF l_debug_level > 0 THEN
3623: oe_debug_pub.add('CALL FROM VORDB' , 3 ) ;
3624: END IF;
3625: END IF;
3626:
3627: END IF;
3628:
3629: x_return_status := l_return_status;
3630:
3631: IF l_debug_level > 0 THEN
3632: oe_debug_pub.add('TOP BILL SEQ ID'
3633: || P_MODEL_LINE_REC.COMPONENT_SEQUENCE_ID , 1 ) ;
3634: END IF;
3635:
3636: EXCEPTION
3635:
3636: EXCEPTION
3637: WHEN OTHERS THEN
3638: IF l_debug_level > 0 THEN
3639: oe_debug_pub.add('EXCEPTION IN EXPLODE_BILL: '|| SQLERRM , 1 ) ;
3640: END IF;
3641: RAISE;
3642: END Explode_Bill;
3643:
3693: AND link_to_line_id = p_link_to_line_id
3694: AND item_type_code = OE_GLOBALS.G_ITEM_INCLUDED;
3695:
3696: --
3697: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3698: --
3699: BEGIN
3700: IF l_debug_level > 0 THEN
3701: oe_debug_pub.add('ENTERING MODIFY_INCLUDED_ITEMS' , 1 ) ;
3697: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3698: --
3699: BEGIN
3700: IF l_debug_level > 0 THEN
3701: oe_debug_pub.add('ENTERING MODIFY_INCLUDED_ITEMS' , 1 ) ;
3702: END IF;
3703:
3704: l_index := 0;
3705: I := OE_MODIFY_INC_ITEMS_TBL.FIRST;
3705: I := OE_MODIFY_INC_ITEMS_TBL.FIRST;
3706: WHILE I is not NULL
3707: LOOP
3708: IF l_debug_level > 0 THEN
3709: oe_debug_pub.add( I||'CLASS/KIT '
3710: || OE_MODIFY_INC_ITEMS_TBL ( I ) .PARAM12 , 2 ) ;
3711: oe_debug_pub.add
3712: ('OPERATION '|| OE_MODIFY_INC_ITEMS_TBL ( I ) .PARAM10 , 3 ) ;
3713: END IF;
3707: LOOP
3708: IF l_debug_level > 0 THEN
3709: oe_debug_pub.add( I||'CLASS/KIT '
3710: || OE_MODIFY_INC_ITEMS_TBL ( I ) .PARAM12 , 2 ) ;
3711: oe_debug_pub.add
3712: ('OPERATION '|| OE_MODIFY_INC_ITEMS_TBL ( I ) .PARAM10 , 3 ) ;
3713: END IF;
3714:
3715: FOR l_rec in inc_items(OE_MODIFY_INC_ITEMS_TBL(I).param12,
3715: FOR l_rec in inc_items(OE_MODIFY_INC_ITEMS_TBL(I).param12,
3716: OE_MODIFY_INC_ITEMS_TBL(I).param13)
3717: LOOP
3718: IF l_debug_level > 0 THEN
3719: oe_debug_pub.add('INC ITEM '|| L_REC.LINE_ID , 1 ) ;
3720: END IF;
3721:
3722: l_line_rec.line_id := l_rec.line_id;
3723: l_line_rec.operation := OE_MODIFY_INC_ITEMS_TBL(I).param10;
3775: l_line_rec.ordered_quantity = 0 AND
3776: OE_MODIFY_INC_ITEMS_TBL(I).param11 = 'N'
3777: THEN
3778: IF l_debug_level > 0 THEN
3779: oe_debug_pub.add('DELETE SINCE NOT FULL CANCEL' , 3 ) ;
3780: END IF;
3781: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
3782: END IF;
3783:
3781: l_line_rec.operation := OE_GLOBALS.G_OPR_DELETE;
3782: END IF;
3783:
3784: IF l_debug_level > 0 THEN
3785: oe_debug_pub.add('QTY - OP '|| L_LINE_REC.ORDERED_QUANTITY
3786: || L_LINE_REC.OPERATION , 1 ) ;
3787: END IF;
3788:
3789: l_index := l_index + 1;
3805: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
3806:
3807: x_return_status := l_return_status;
3808: IF l_debug_level > 0 THEN
3809: oe_debug_pub.add('EXITING MODIFY_INCLUDED_ITEMS'|| L_RETURN_STATUS , 1 ) ;
3810: END IF;
3811:
3812: EXCEPTION
3813: WHEN OTHERS THEN
3811:
3812: EXCEPTION
3813: WHEN OTHERS THEN
3814: IF l_debug_level > 0 THEN
3815: oe_debug_pub.add('EXCEPTION IN MODIFY_INCLUDED_ITEMS'|| SQLERRM , 1 ) ;
3816: END IF;
3817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3818: RAISE;
3819: END;
3852: AND link_to_line_id <> top_model_line_id
3853: AND top_model_line_id = p_top_model_line_id;
3854:
3855: --
3856: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3857: --
3858: BEGIN
3859: IF l_debug_level > 0 THEN
3860: oe_debug_pub.add('ENTERING INCLUDED_ITEMS_DML '|| P_UI_FLAG , 1 ) ;
3856: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3857: --
3858: BEGIN
3859: IF l_debug_level > 0 THEN
3860: oe_debug_pub.add('ENTERING INCLUDED_ITEMS_DML '|| P_UI_FLAG , 1 ) ;
3861: END IF;
3862:
3863: l_index := p_x_line_tbl.LAST;
3864: l_component_sequence_id := NULL;
3865:
3866: FOR l_rec in included_items
3867: LOOP
3868: IF l_debug_level > 0 THEN
3869: oe_debug_pub.add('INCLUDED ITEM: '|| L_REC.COMPONENT_CODE , 2 ) ;
3870: END IF;
3871:
3872: IF l_component_sequence_id is NULL THEN
3873:
3902: p_x_line_tbl(l_index) := l_line_rec;
3903: l_found := TRUE;
3904:
3905: IF l_debug_level > 0 THEN
3906: oe_debug_pub.add('PARENT WAS' || L_LINE_REC.OPERATION , 1 ) ;
3907: oe_debug_pub.add('NEW QTY ' || L_LINE_REC.ORDERED_QUANTITY ,1);
3908: END IF;
3909: END IF;
3910:
3903: l_found := TRUE;
3904:
3905: IF l_debug_level > 0 THEN
3906: oe_debug_pub.add('PARENT WAS' || L_LINE_REC.OPERATION , 1 ) ;
3907: oe_debug_pub.add('NEW QTY ' || L_LINE_REC.ORDERED_QUANTITY ,1);
3908: END IF;
3909: END IF;
3910:
3911: I := p_x_line_tbl.NEXT(I);
3909: END IF;
3910:
3911: I := p_x_line_tbl.NEXT(I);
3912: IF l_debug_level > 0 THEN
3913: oe_debug_pub.add('COUNT: ' || P_X_LINE_TBL.COUNT || I , 1 ) ;
3914: END IF;
3915: END LOOP;
3916: END IF;
3917:
3933: l_index := l_index + 1;
3934: p_x_line_tbl(l_index) := l_line_rec;
3935:
3936: IF l_debug_level > 0 THEN
3937: oe_debug_pub.add('PARENT WAS UPDATED' || L_ORDERED_QTY , 3 ) ;
3938: END IF;
3939:
3940: EXCEPTION
3941: WHEN NO_DATA_FOUND THEN
3944: l_index := l_index + 1;
3945: p_x_line_tbl(l_index) := l_line_rec;
3946:
3947: IF l_debug_level > 0 THEN
3948: oe_debug_pub.add('PARENT WAS DELETED' , 3 ) ;
3949: END IF;
3950:
3951: WHEN OTHERS THEN
3952: IF l_debug_level > 0 THEN
3949: END IF;
3950:
3951: WHEN OTHERS THEN
3952: IF l_debug_level > 0 THEN
3953: oe_debug_pub.add('COULD NOT SELECT PARENT QTY' , 1 ) ;
3954: END IF;
3955: RAISE;
3956: END;
3957:
3961:
3962: x_return_status := l_return_status;
3963:
3964: IF l_debug_level > 0 THEN
3965: oe_debug_pub.add('EXITING INCLUDED_ITEMS_DML' , 1 ) ;
3966: END IF;
3967: EXCEPTION
3968: WHEN OTHERS THEN
3969: IF l_debug_level > 0 THEN
3966: END IF;
3967: EXCEPTION
3968: WHEN OTHERS THEN
3969: IF l_debug_level > 0 THEN
3970: oe_debug_pub.add('EXCEPTION IN INCLUDED_ITEMS_DML'|| SQLERRM , 1 ) ;
3971: END IF;
3972:
3973: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3974: RAISE;
3992: l_config_hdr_id number;
3993: l_config_rev_nbr number;
3994:
3995: --
3996: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
3997: --
3998: BEGIN
3999:
4000: IF l_debug_level > 0 THEN
3997: --
3998: BEGIN
3999:
4000: IF l_debug_level > 0 THEN
4001: oe_debug_pub.add('ENTERING COPY_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
4002: END IF;
4003:
4004: IF p_config_hdr_id is not null AND
4005: p_config_rev_nbr is not null THEN
4017:
4018: IF l_return_value <> 1 THEN
4019: OE_Msg_Pub.Add_Text(l_error_message);
4020: IF l_debug_level > 0 THEN
4021: oe_debug_pub.add('ERROR FROM SPC COPY: ' || L_ERROR_MESSAGE , 1 ) ;
4022: END IF;
4023: x_return_status :=FND_API.G_RET_STS_ERROR;
4024:
4025: ELSE
4023: x_return_status :=FND_API.G_RET_STS_ERROR;
4024:
4025: ELSE
4026: IF l_debug_level > 0 THEN
4027: oe_debug_pub.add('NEW CONFIG_HEADER_ID: '|| L_CONFIG_HDR_ID , 1 ) ;
4028: END IF;
4029: IF l_debug_level > 0 THEN
4030: oe_debug_pub.add('NEW CONFIG_REV_NBR: '|| L_CONFIG_REV_NBR , 1 ) ;
4031: END IF;
4026: IF l_debug_level > 0 THEN
4027: oe_debug_pub.add('NEW CONFIG_HEADER_ID: '|| L_CONFIG_HDR_ID , 1 ) ;
4028: END IF;
4029: IF l_debug_level > 0 THEN
4030: oe_debug_pub.add('NEW CONFIG_REV_NBR: '|| L_CONFIG_REV_NBR , 1 ) ;
4031: END IF;
4032: x_config_hdr_id := l_config_hdr_id;
4033: x_config_rev_nbr := l_config_rev_nbr;
4034: x_return_status := FND_API.G_RET_STS_SUCCESS;
4035: END IF;
4036:
4037: ELSE
4038: IF l_debug_level > 0 THEN
4039: oe_debug_pub.add('NULL CONFIG_HDR/REV_NBR IS PASSED TO COPY_CONFIG',1);
4040: END IF;
4041:
4042: END IF;
4043:
4041:
4042: END IF;
4043:
4044: IF l_debug_level > 0 THEN
4045: oe_debug_pub.add('LEAVING COPY_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
4046: END IF;
4047:
4048: EXCEPTION
4049: when others then
4047:
4048: EXCEPTION
4049: when others then
4050: IF l_debug_level > 0 THEN
4051: oe_debug_pub.add('ERROR IN COPY_CONFIG IN OE_CONFIG_PVT' , 1 ) ;
4052: END IF;
4053:
4054: END Copy_Config1;
4055:
4070: l_msg_count1 NUMBER;
4071: l_msg_count2 NUMBER;
4072: l_sec_result NUMBER;
4073: --
4074: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4075: --
4076: BEGIN
4077:
4078: x_cancellation := FALSE;
4111: LOOP
4112:
4113: OE_Msg_Pub.Delete_Msg(l_msg_count2 - I);
4114:
4115: oe_debug_pub.add(OE_Msg_Pub.g_msg_index || '-'
4116: ||l_msg_count1 || '-'|| l_msg_count2 || '-' ||I, 3 );
4117:
4118: I := I + 1;
4119: END LOOP;
4121: END IF;
4122:
4123: IF l_sec_result = OE_PC_GLOBALS.YES THEN
4124: IF l_debug_level > 0 THEN
4125: oe_debug_pub.add('do cancellation hence update with 0', 3 );
4126: END IF;
4127:
4128: x_line_rec.ordered_quantity := 0;
4129: x_line_rec.operation := OE_GLOBALS.G_OPR_UPDATE;
4138:
4139: x_cancellation := TRUE;
4140: ELSE
4141: IF l_debug_level > 0 THEN
4142: oe_debug_pub.add('no cancellation, delete ok ', 3 ) ;
4143: END IF;
4144: END IF;
4145:
4146: IF l_debug_level > 0 THEN
4143: END IF;
4144: END IF;
4145:
4146: IF l_debug_level > 0 THEN
4147: oe_debug_pub.add('option operation '|| x_line_rec.operation, 3);
4148: END IF;
4149: EXCEPTION
4150: when OTHERS then
4151: IF l_debug_level > 0 THEN
4148: END IF;
4149: EXCEPTION
4150: when OTHERS then
4151: IF l_debug_level > 0 THEN
4152: oe_debug_pub.add('error in Is_Cancel_OR_Delete '|| sqlerrm, 3);
4153: END IF;
4154: RAISE;
4155: END Is_Cancel_OR_Delete;
4156:
4163: PROCEDURE Print_Time(p_msg IN VARCHAR2)
4164: IS
4165: l_time VARCHAR2(100);
4166: --
4167: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
4168: --
4169: BEGIN
4170: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
4171: 'DD-MON-YY HH24:MI:SS');
4169: BEGIN
4170: l_time := to_char (new_time (sysdate, 'PST', 'EST'),
4171: 'DD-MON-YY HH24:MI:SS');
4172: IF l_debug_level > 0 THEN
4173: oe_debug_pub.add( P_MSG || ': '|| L_TIME , 1 ) ;
4174: END IF;
4175: END Print_Time;
4176:
4177: