76: l_common_assembly_item_name MTL_SYSTEM_ITEMS_KFV.CONCATENATED_SEGMENTS%TYPE;
77: l_completion_location_name MTL_ITEM_LOCATIONS_KFV.CONCATENATED_SEGMENTS%TYPE;
78: BEGIN
79: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
80: Error_Handler.Write_Debug('PROCEDURE Populate_Header Entered. ');
81: END IF;
82: OPEN Routing_Header_CUR;
83: FETCH Routing_Header_CUR INTO l_rtg_hdr_rec;
84: IF (Routing_Header_CUR%NOTFOUND) THEN
121: -- G_Rtg_Header_Rec.Ser_Start_Op_Seq := l_rtg_hdr_rec.serialization_start_op;
122: X_routing_sequence_id := l_rtg_hdr_rec.routing_sequence_id;
123:
124: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
125: Error_Handler.Write_Debug('PROCEDURE Populate_Header: One Routing Header record fetched. ');
126: END IF;
127: END Populate_Header;
128:
129:
156: AND organization_id = p_organization_id;
157: i NUMBER := 1;
158: BEGIN
159: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
160: Error_Handler.Write_Debug('PROCEDURE Populate_Revision entered.');
161: END IF;
162: FOR revision_rec IN Routing_Revision_CUR LOOP
163: G_rtg_revision_tbl(i).assembly_item_name := P_assembly_item_name;
164: G_rtg_revision_tbl(i).organization_code := P_organization_code;
183: G_rtg_revision_tbl(i).attribute15 := revision_rec.attribute15;
184: i := i + 1;
185: END LOOP;
186: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
187: Error_Handler.Write_Debug('PROCEDURE Populate_Revision: '||to_char(G_rtg_revision_tbl.COUNT)||' Routing Revision record(s) fetched.');
188: END IF;
189: END Populate_Revision;
190:
191:
239: i NUMBER;
240: j NUMBER := 0;
241: BEGIN
242: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
243: Error_Handler.Write_Debug('PROCEDURE Populate_Sub_Oper_Res entered.');
244: Error_Handler.Write_Debug('Operation Sequence Number: '|| TO_CHAR(P_operation_sequence_number));
245: Error_Handler.Write_Debug('Operation Type : '|| TO_CHAR(P_operation_type));
246: Error_Handler.Write_Debug('Effectivity Date : '|| TO_CHAR(P_effectivity_date));
247: Error_Handler.Write_Debug('Schedule Sequence Number : '|| TO_CHAR(P_schedule_seq_num));
240: j NUMBER := 0;
241: BEGIN
242: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
243: Error_Handler.Write_Debug('PROCEDURE Populate_Sub_Oper_Res entered.');
244: Error_Handler.Write_Debug('Operation Sequence Number: '|| TO_CHAR(P_operation_sequence_number));
245: Error_Handler.Write_Debug('Operation Type : '|| TO_CHAR(P_operation_type));
246: Error_Handler.Write_Debug('Effectivity Date : '|| TO_CHAR(P_effectivity_date));
247: Error_Handler.Write_Debug('Schedule Sequence Number : '|| TO_CHAR(P_schedule_seq_num));
248: j := G_Sub_Resource_Tbl.COUNT;
241: BEGIN
242: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
243: Error_Handler.Write_Debug('PROCEDURE Populate_Sub_Oper_Res entered.');
244: Error_Handler.Write_Debug('Operation Sequence Number: '|| TO_CHAR(P_operation_sequence_number));
245: Error_Handler.Write_Debug('Operation Type : '|| TO_CHAR(P_operation_type));
246: Error_Handler.Write_Debug('Effectivity Date : '|| TO_CHAR(P_effectivity_date));
247: Error_Handler.Write_Debug('Schedule Sequence Number : '|| TO_CHAR(P_schedule_seq_num));
248: j := G_Sub_Resource_Tbl.COUNT;
249: END IF;
242: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
243: Error_Handler.Write_Debug('PROCEDURE Populate_Sub_Oper_Res entered.');
244: Error_Handler.Write_Debug('Operation Sequence Number: '|| TO_CHAR(P_operation_sequence_number));
245: Error_Handler.Write_Debug('Operation Type : '|| TO_CHAR(P_operation_type));
246: Error_Handler.Write_Debug('Effectivity Date : '|| TO_CHAR(P_effectivity_date));
247: Error_Handler.Write_Debug('Schedule Sequence Number : '|| TO_CHAR(P_schedule_seq_num));
248: j := G_Sub_Resource_Tbl.COUNT;
249: END IF;
250: i := G_Sub_Resource_Tbl.LAST + 1;
243: Error_Handler.Write_Debug('PROCEDURE Populate_Sub_Oper_Res entered.');
244: Error_Handler.Write_Debug('Operation Sequence Number: '|| TO_CHAR(P_operation_sequence_number));
245: Error_Handler.Write_Debug('Operation Type : '|| TO_CHAR(P_operation_type));
246: Error_Handler.Write_Debug('Effectivity Date : '|| TO_CHAR(P_effectivity_date));
247: Error_Handler.Write_Debug('Schedule Sequence Number : '|| TO_CHAR(P_schedule_seq_num));
248: j := G_Sub_Resource_Tbl.COUNT;
249: END IF;
250: i := G_Sub_Resource_Tbl.LAST + 1;
251: IF (i IS NULL) THEN
290: G_sub_resource_tbl(i).setup_type := sub_resource_rec.setup_code;
291: i := i + 1;
292: END LOOP;
293: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
294: Error_Handler.Write_Debug('PROCEDURE Populate_Sub_Oper_Res: '||TO_CHAR(G_sub_resource_tbl.COUNT - j)||' record(s) fetched.');
295: END IF;
296: END Populate_Sub_Oper_Res;
297:
298: PROCEDURE Populate_Oper_Resources(P_organization_code IN VARCHAR2,
347: j NUMBER;
348: l_schedule_seq_num NUMBER;
349: BEGIN
350: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
351: Error_Handler.Write_Debug('PROCEDURE Populate_Oper_Resources entered.');
352: Error_Handler.Write_Debug('Operation Sequence Number: '|| TO_CHAR(P_operation_seq_num));
353: Error_Handler.Write_Debug('Operation Type : '|| P_operation_type);
354: Error_Handler.Write_Debug('Effectivity Date : '|| to_char(P_effectivity_date));
355: j := G_op_resource_tbl.COUNT;
348: l_schedule_seq_num NUMBER;
349: BEGIN
350: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
351: Error_Handler.Write_Debug('PROCEDURE Populate_Oper_Resources entered.');
352: Error_Handler.Write_Debug('Operation Sequence Number: '|| TO_CHAR(P_operation_seq_num));
353: Error_Handler.Write_Debug('Operation Type : '|| P_operation_type);
354: Error_Handler.Write_Debug('Effectivity Date : '|| to_char(P_effectivity_date));
355: j := G_op_resource_tbl.COUNT;
356: END IF;
349: BEGIN
350: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
351: Error_Handler.Write_Debug('PROCEDURE Populate_Oper_Resources entered.');
352: Error_Handler.Write_Debug('Operation Sequence Number: '|| TO_CHAR(P_operation_seq_num));
353: Error_Handler.Write_Debug('Operation Type : '|| P_operation_type);
354: Error_Handler.Write_Debug('Effectivity Date : '|| to_char(P_effectivity_date));
355: j := G_op_resource_tbl.COUNT;
356: END IF;
357: i := G_op_resource_tbl.LAST + 1;
350: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
351: Error_Handler.Write_Debug('PROCEDURE Populate_Oper_Resources entered.');
352: Error_Handler.Write_Debug('Operation Sequence Number: '|| TO_CHAR(P_operation_seq_num));
353: Error_Handler.Write_Debug('Operation Type : '|| P_operation_type);
354: Error_Handler.Write_Debug('Effectivity Date : '|| to_char(P_effectivity_date));
355: j := G_op_resource_tbl.COUNT;
356: END IF;
357: i := G_op_resource_tbl.LAST + 1;
358: IF (i IS NULL) THEN
419: END IF;
420: i := i + 1;
421: END LOOP;
422: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
423: Error_Handler.Write_Debug('PROCEDURE Populate_Sub_Oper_Res: '||to_char(g_op_resource_tbl.COUNT - j) ||' record(s) fetched. ');
424: END IF;
425: END Populate_Oper_Resources;
426:
427: PROCEDURE Populate_Operations(P_organization_code IN VARCHAR2,
482: l_op_type NUMBER;
483: l_eff_date DATE;
484: BEGIN
485: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
486: Error_Handler.Write_Debug('PROCEDURE Populate_Operations entered.');
487: END IF;
488: FOR routing_oper_rec IN Routing_Operation_CUR LOOP
489: G_operation_tbl(i).assembly_item_name := P_assembly_item_name;
490: G_operation_tbl(i).organization_code := P_organization_code;
554: P_effectivity_date => l_eff_date);
555: i := i + 1;
556: END LOOP;
557: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
558: Error_Handler.Write_Debug('PROCEDURE Populate_Operations: '||to_char(G_operation_tbl.COUNT)||' record(s) fetched. ');
559: END IF;
560: END Populate_Operations;
561:
562: PROCEDURE Populate_Oper_Networks(P_organization_code IN VARCHAR2,
599: AND bos2.Operation_Sequence_Id = bonv.To_Op_Seq_Id;
600: i NUMBER := 1;
601: BEGIN
602: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
603: Error_Handler.Write_Debug('PROCEDURE Populate_Oper_Networks entered.');
604: END IF;
605:
606: FOR oper_networks_rec IN Oper_Networks_CUR LOOP
607: G_Op_Network_Tbl(i).assembly_item_name := P_assembly_item_name;
636: G_op_network_tbl(i).original_system_reference := oper_networks_rec.original_system_reference;
637: i := i + 1;
638: END LOOP;
639: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
640: Error_Handler.Write_Debug('PROCEDURE Populate_Oper_Networks: '||to_char(G_op_network_tbl.COUNT)||' record(s) fetched. ');
641: END IF;
642: END Populate_Oper_Networks;
643:
644: /********************************************************************
671: X_msg_count OUT NOCOPY NUMBER
672: ) IS
673: l_organization_id NUMBER;
674: l_routing_seq_id NUMBER;
675: l_Mesg_Token_Tbl ERROR_HANDLER.Mesg_Token_Tbl_Type;
676: l_other_message VARCHAR2(50);
677: l_Token_Tbl ERROR_HANDLER.Token_Tbl_Type;
678: l_Debug_flag VARCHAR2(1) := p_debug;
679: G_EXC_SEV_QUIT_OBJECT EXCEPTION;
673: l_organization_id NUMBER;
674: l_routing_seq_id NUMBER;
675: l_Mesg_Token_Tbl ERROR_HANDLER.Mesg_Token_Tbl_Type;
676: l_other_message VARCHAR2(50);
677: l_Token_Tbl ERROR_HANDLER.Token_Tbl_Type;
678: l_Debug_flag VARCHAR2(1) := p_debug;
679: G_EXC_SEV_QUIT_OBJECT EXCEPTION;
680: G_EXC_UNEXP_SKIP_OBJECT EXCEPTION;
681: l_return_status VARCHAR2(1);
692: -- Initialize the message list if the user has set the
693: -- Init Message List parameter
694: --
695: IF (p_init_msg_list) THEN
696: Error_Handler.Initialize;
697: END IF;
698: IF (l_debug_flag = 'Y') THEN
699: IF (trim(p_output_dir) IS NULL OR
700: trim(p_output_dir) = '') THEN
698: IF (l_debug_flag = 'Y') THEN
699: IF (trim(p_output_dir) IS NULL OR
700: trim(p_output_dir) = '') THEN
701: -- If debug is Y then out dir must be specified
702: Error_Handler.Add_Error_Token
703: (p_Message_text => 'Debug is set to Y so an output directory' ||
704: ' must be specified. Debug will be turned' ||
705: ' off since no directory is specified',
706: p_Mesg_Token_Tbl => l_mesg_token_tbl,
706: p_Mesg_Token_Tbl => l_mesg_token_tbl,
707: x_Mesg_Token_Tbl => l_mesg_token_tbl,
708: p_Token_Tbl => l_token_tbl);
709:
710: Bom_Rtg_Error_Handler.Log_Error
711: (p_rtg_header_rec => Bom_Rtg_Pub.G_MISS_RTG_HEADER_REC,
712: p_rtg_revision_tbl => Bom_Rtg_Pub.G_MISS_RTG_REVISION_TBL,
713: p_operation_tbl => Bom_Rtg_Pub.G_MISS_OPERATION_TBL,
714: p_op_resource_tbl => Bom_Rtg_Pub.G_MISS_OP_RESOURCE_TBL,
719: p_error_scope => NULL,
720: p_other_message => NULL,
721: p_other_mesg_appid => 'BOM',
722: p_other_status => NULL,
723: p_other_token_tbl => Error_Handler.G_MISS_TOKEN_TBL,
724: p_entity_index => 1,
725: p_error_level => Error_Handler.G_BO_LEVEL,
726: x_rtg_header_rec => x_rtg_header_rec,
727: x_rtg_revision_tbl => x_rtg_revision_tbl,
721: p_other_mesg_appid => 'BOM',
722: p_other_status => NULL,
723: p_other_token_tbl => Error_Handler.G_MISS_TOKEN_TBL,
724: p_entity_index => 1,
725: p_error_level => Error_Handler.G_BO_LEVEL,
726: x_rtg_header_rec => x_rtg_header_rec,
727: x_rtg_revision_tbl => x_rtg_revision_tbl,
728: x_operation_tbl => x_operation_tbl,
729: x_op_resource_tbl => x_op_resource_tbl,
729: x_op_resource_tbl => x_op_resource_tbl,
730: x_sub_resource_tbl => x_sub_resource_tbl,
731: x_op_network_tbl => x_op_network_tbl);
732: /*
733: Bom_Rtg_Error_Handler.Log_Error
734: (p_mesg_token_tbl => l_mesg_token_tbl,
735: p_error_status => 'W',
736: p_error_level => Error_Handler.G_BO_LEVEL,
737: x_rtg_header_rec => x_rtg_header_rec,
732: /*
733: Bom_Rtg_Error_Handler.Log_Error
734: (p_mesg_token_tbl => l_mesg_token_tbl,
735: p_error_status => 'W',
736: p_error_level => Error_Handler.G_BO_LEVEL,
737: x_rtg_header_rec => x_rtg_header_rec,
738: x_rtg_revision_tbl => x_rtg_revision_tbl,
739: x_operation_tbl => x_operation_tbl,
740: x_op_resource_tbl => x_op_resource_tbl,
745: END IF;
746:
747: IF (trim(p_debug_filename) IS NULL OR
748: trim(p_debug_filename) = '') THEN
749: Error_Handler.Add_Error_Token
750: (p_Message_text =>' Debug is set to Y so an output filename' ||
751: ' must be specified. Debug will be turned' ||
752: ' off since no filename is specified',
753: p_Mesg_Token_Tbl => l_mesg_token_tbl,
752: ' off since no filename is specified',
753: p_Mesg_Token_Tbl => l_mesg_token_tbl,
754: x_Mesg_Token_Tbl => l_mesg_token_tbl,
755: p_Token_Tbl => l_token_tbl);
756: BOM_RTG_ERROR_HANDLER.Log_Error
757: (p_rtg_header_rec => Bom_Rtg_Pub.G_MISS_RTG_HEADER_REC,
758: p_rtg_revision_tbl => Bom_Rtg_Pub.G_MISS_RTG_REVISION_TBL,
759: p_operation_tbl => Bom_Rtg_Pub.G_MISS_OPERATION_TBL,
760: p_op_resource_tbl => Bom_Rtg_Pub.G_MISS_OP_RESOURCE_TBL,
765: p_error_scope => NULL,
766: p_other_message => NULL,
767: p_other_mesg_appid => 'BOM',
768: p_other_status => NULL,
769: p_other_token_tbl => Error_Handler.G_MISS_TOKEN_TBL,
770: p_entity_index => 1,
771: p_error_level => Error_Handler.G_BO_LEVEL,
772: x_rtg_header_rec => x_rtg_header_rec,
773: x_rtg_revision_tbl => x_rtg_revision_tbl,
767: p_other_mesg_appid => 'BOM',
768: p_other_status => NULL,
769: p_other_token_tbl => Error_Handler.G_MISS_TOKEN_TBL,
770: p_entity_index => 1,
771: p_error_level => Error_Handler.G_BO_LEVEL,
772: x_rtg_header_rec => x_rtg_header_rec,
773: x_rtg_revision_tbl => x_rtg_revision_tbl,
774: x_operation_tbl => x_operation_tbl,
775: x_op_resource_tbl => x_op_resource_tbl,
775: x_op_resource_tbl => x_op_resource_tbl,
776: x_sub_resource_tbl => x_sub_resource_tbl,
777: x_op_network_tbl => x_op_network_tbl);
778: /*
779: BOM_RTG_ERROR_HANDLER.Log_Error
780: (p_mesg_token_tbl => l_mesg_token_tbl,
781: p_error_status => 'W',
782: p_error_level => Error_Handler.G_BO_LEVEL,
783: x_rtg_header_rec => x_rtg_header_rec,
778: /*
779: BOM_RTG_ERROR_HANDLER.Log_Error
780: (p_mesg_token_tbl => l_mesg_token_tbl,
781: p_error_status => 'W',
782: p_error_level => Error_Handler.G_BO_LEVEL,
783: x_rtg_header_rec => x_rtg_header_rec,
784: x_rtg_revision_tbl => x_rtg_revision_tbl,
785: x_operation_tbl => x_operation_tbl,
786: x_op_resource_tbl => x_op_resource_tbl,
792:
793: BOM_Rtg_Globals.Set_Debug(l_debug_flag);
794:
795: IF l_debug_flag = 'Y' THEN
796: Error_Handler.Open_Debug_Session
797: (p_debug_filename => p_debug_filename,
798: p_output_dir => p_output_dir,
799: x_return_status => l_return_status,
800: p_mesg_token_tbl => l_mesg_token_tbl,
871: P_routing_seq_id => l_routing_seq_id);
872: END IF;
873:
874: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
875: Error_Handler.Write_Debug('The Routing Export BO is passed ');
876: Error_Handler.Write_Debug('-----------------------------------------------------') ;
877: Error_Handler.Write_Debug('Header Rec - Assembly Item : ' || G_rtg_header_rec.assembly_item_name);
878: Error_Handler.Write_Debug('Num of Routing Revisions : ' || G_rtg_revision_tbl.COUNT);
879: Error_Handler.Write_Debug('Num of Operations : ' || G_operation_tbl.COUNT);
872: END IF;
873:
874: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
875: Error_Handler.Write_Debug('The Routing Export BO is passed ');
876: Error_Handler.Write_Debug('-----------------------------------------------------') ;
877: Error_Handler.Write_Debug('Header Rec - Assembly Item : ' || G_rtg_header_rec.assembly_item_name);
878: Error_Handler.Write_Debug('Num of Routing Revisions : ' || G_rtg_revision_tbl.COUNT);
879: Error_Handler.Write_Debug('Num of Operations : ' || G_operation_tbl.COUNT);
880: Error_Handler.Write_Debug('Num of Resources : ' || G_op_resource_tbl.COUNT);
873:
874: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
875: Error_Handler.Write_Debug('The Routing Export BO is passed ');
876: Error_Handler.Write_Debug('-----------------------------------------------------') ;
877: Error_Handler.Write_Debug('Header Rec - Assembly Item : ' || G_rtg_header_rec.assembly_item_name);
878: Error_Handler.Write_Debug('Num of Routing Revisions : ' || G_rtg_revision_tbl.COUNT);
879: Error_Handler.Write_Debug('Num of Operations : ' || G_operation_tbl.COUNT);
880: Error_Handler.Write_Debug('Num of Resources : ' || G_op_resource_tbl.COUNT);
881: Error_Handler.Write_Debug('Num of Substitue Resources : ' || G_sub_resource_tbl.COUNT);
874: IF BOM_Rtg_Globals.get_debug = 'Y' THEN
875: Error_Handler.Write_Debug('The Routing Export BO is passed ');
876: Error_Handler.Write_Debug('-----------------------------------------------------') ;
877: Error_Handler.Write_Debug('Header Rec - Assembly Item : ' || G_rtg_header_rec.assembly_item_name);
878: Error_Handler.Write_Debug('Num of Routing Revisions : ' || G_rtg_revision_tbl.COUNT);
879: Error_Handler.Write_Debug('Num of Operations : ' || G_operation_tbl.COUNT);
880: Error_Handler.Write_Debug('Num of Resources : ' || G_op_resource_tbl.COUNT);
881: Error_Handler.Write_Debug('Num of Substitue Resources : ' || G_sub_resource_tbl.COUNT);
882: Error_Handler.Write_Debug('Num of Operation Network : ' || G_op_network_tbl.COUNT);
875: Error_Handler.Write_Debug('The Routing Export BO is passed ');
876: Error_Handler.Write_Debug('-----------------------------------------------------') ;
877: Error_Handler.Write_Debug('Header Rec - Assembly Item : ' || G_rtg_header_rec.assembly_item_name);
878: Error_Handler.Write_Debug('Num of Routing Revisions : ' || G_rtg_revision_tbl.COUNT);
879: Error_Handler.Write_Debug('Num of Operations : ' || G_operation_tbl.COUNT);
880: Error_Handler.Write_Debug('Num of Resources : ' || G_op_resource_tbl.COUNT);
881: Error_Handler.Write_Debug('Num of Substitue Resources : ' || G_sub_resource_tbl.COUNT);
882: Error_Handler.Write_Debug('Num of Operation Network : ' || G_op_network_tbl.COUNT);
883: Error_Handler.Write_Debug('-----------------------------------------------------') ;
876: Error_Handler.Write_Debug('-----------------------------------------------------') ;
877: Error_Handler.Write_Debug('Header Rec - Assembly Item : ' || G_rtg_header_rec.assembly_item_name);
878: Error_Handler.Write_Debug('Num of Routing Revisions : ' || G_rtg_revision_tbl.COUNT);
879: Error_Handler.Write_Debug('Num of Operations : ' || G_operation_tbl.COUNT);
880: Error_Handler.Write_Debug('Num of Resources : ' || G_op_resource_tbl.COUNT);
881: Error_Handler.Write_Debug('Num of Substitue Resources : ' || G_sub_resource_tbl.COUNT);
882: Error_Handler.Write_Debug('Num of Operation Network : ' || G_op_network_tbl.COUNT);
883: Error_Handler.Write_Debug('-----------------------------------------------------') ;
884: END IF;
877: Error_Handler.Write_Debug('Header Rec - Assembly Item : ' || G_rtg_header_rec.assembly_item_name);
878: Error_Handler.Write_Debug('Num of Routing Revisions : ' || G_rtg_revision_tbl.COUNT);
879: Error_Handler.Write_Debug('Num of Operations : ' || G_operation_tbl.COUNT);
880: Error_Handler.Write_Debug('Num of Resources : ' || G_op_resource_tbl.COUNT);
881: Error_Handler.Write_Debug('Num of Substitue Resources : ' || G_sub_resource_tbl.COUNT);
882: Error_Handler.Write_Debug('Num of Operation Network : ' || G_op_network_tbl.COUNT);
883: Error_Handler.Write_Debug('-----------------------------------------------------') ;
884: END IF;
885:
878: Error_Handler.Write_Debug('Num of Routing Revisions : ' || G_rtg_revision_tbl.COUNT);
879: Error_Handler.Write_Debug('Num of Operations : ' || G_operation_tbl.COUNT);
880: Error_Handler.Write_Debug('Num of Resources : ' || G_op_resource_tbl.COUNT);
881: Error_Handler.Write_Debug('Num of Substitue Resources : ' || G_sub_resource_tbl.COUNT);
882: Error_Handler.Write_Debug('Num of Operation Network : ' || G_op_network_tbl.COUNT);
883: Error_Handler.Write_Debug('-----------------------------------------------------') ;
884: END IF;
885:
886: X_rtg_header_rec := G_rtg_header_rec;
879: Error_Handler.Write_Debug('Num of Operations : ' || G_operation_tbl.COUNT);
880: Error_Handler.Write_Debug('Num of Resources : ' || G_op_resource_tbl.COUNT);
881: Error_Handler.Write_Debug('Num of Substitue Resources : ' || G_sub_resource_tbl.COUNT);
882: Error_Handler.Write_Debug('Num of Operation Network : ' || G_op_network_tbl.COUNT);
883: Error_Handler.Write_Debug('-----------------------------------------------------') ;
884: END IF;
885:
886: X_rtg_header_rec := G_rtg_header_rec;
887: X_rtg_revision_tbl := G_rtg_revision_tbl;
891: X_op_network_tbl := G_op_network_tbl;
892: X_return_status := 'S';
893: EXCEPTION
894: WHEN G_EXC_SEV_QUIT_OBJECT THEN
895: BOM_RTG_ERROR_HANDLER.Log_Error
896: (p_rtg_header_rec => Bom_Rtg_Pub.G_MISS_RTG_HEADER_REC,
897: p_rtg_revision_tbl => Bom_Rtg_Pub.G_MISS_RTG_REVISION_TBL,
898: p_operation_tbl => Bom_Rtg_Pub.G_MISS_OPERATION_TBL,
899: p_op_resource_tbl => Bom_Rtg_Pub.G_MISS_OP_RESOURCE_TBL,
899: p_op_resource_tbl => Bom_Rtg_Pub.G_MISS_OP_RESOURCE_TBL,
900: p_sub_resource_tbl => Bom_Rtg_Pub.G_MISS_SUB_RESOURCE_TBL,
901: p_op_network_tbl => Bom_Rtg_Pub.G_MISS_OP_NETWORK_TBL,
902: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
903: p_error_status => Error_Handler.G_STATUS_ERROR,
904: p_error_level => Error_Handler.G_BO_LEVEL,
905: p_error_scope => Error_Handler.G_SCOPE_ALL,
906: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
907: p_other_message => l_other_message,
900: p_sub_resource_tbl => Bom_Rtg_Pub.G_MISS_SUB_RESOURCE_TBL,
901: p_op_network_tbl => Bom_Rtg_Pub.G_MISS_OP_NETWORK_TBL,
902: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
903: p_error_status => Error_Handler.G_STATUS_ERROR,
904: p_error_level => Error_Handler.G_BO_LEVEL,
905: p_error_scope => Error_Handler.G_SCOPE_ALL,
906: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
907: p_other_message => l_other_message,
908: p_other_mesg_appid => 'BOM',
901: p_op_network_tbl => Bom_Rtg_Pub.G_MISS_OP_NETWORK_TBL,
902: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
903: p_error_status => Error_Handler.G_STATUS_ERROR,
904: p_error_level => Error_Handler.G_BO_LEVEL,
905: p_error_scope => Error_Handler.G_SCOPE_ALL,
906: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
907: p_other_message => l_other_message,
908: p_other_mesg_appid => 'BOM',
909: p_other_token_tbl => l_token_tbl,
902: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
903: p_error_status => Error_Handler.G_STATUS_ERROR,
904: p_error_level => Error_Handler.G_BO_LEVEL,
905: p_error_scope => Error_Handler.G_SCOPE_ALL,
906: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
907: p_other_message => l_other_message,
908: p_other_mesg_appid => 'BOM',
909: p_other_token_tbl => l_token_tbl,
910: p_entity_index => 1,
914: x_op_resource_tbl => x_op_resource_tbl,
915: x_sub_resource_tbl => x_sub_resource_tbl,
916: x_op_network_tbl => x_op_network_tbl);
917: /*
918: BOM_RTG_ERROR_HANDLER.Log_Error
919: (p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
920: p_error_status => Error_Handler.G_STATUS_ERROR,
921: p_error_level => Error_Handler.G_BO_LEVEL,
922: p_error_scope => Error_Handler.G_SCOPE_ALL,
916: x_op_network_tbl => x_op_network_tbl);
917: /*
918: BOM_RTG_ERROR_HANDLER.Log_Error
919: (p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
920: p_error_status => Error_Handler.G_STATUS_ERROR,
921: p_error_level => Error_Handler.G_BO_LEVEL,
922: p_error_scope => Error_Handler.G_SCOPE_ALL,
923: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
924: p_other_message => l_other_message,
917: /*
918: BOM_RTG_ERROR_HANDLER.Log_Error
919: (p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
920: p_error_status => Error_Handler.G_STATUS_ERROR,
921: p_error_level => Error_Handler.G_BO_LEVEL,
922: p_error_scope => Error_Handler.G_SCOPE_ALL,
923: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
924: p_other_message => l_other_message,
925: p_other_token_tbl => l_token_tbl,
918: BOM_RTG_ERROR_HANDLER.Log_Error
919: (p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
920: p_error_status => Error_Handler.G_STATUS_ERROR,
921: p_error_level => Error_Handler.G_BO_LEVEL,
922: p_error_scope => Error_Handler.G_SCOPE_ALL,
923: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
924: p_other_message => l_other_message,
925: p_other_token_tbl => l_token_tbl,
926: x_rtg_header_rec => x_rtg_header_rec,
919: (p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
920: p_error_status => Error_Handler.G_STATUS_ERROR,
921: p_error_level => Error_Handler.G_BO_LEVEL,
922: p_error_scope => Error_Handler.G_SCOPE_ALL,
923: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
924: p_other_message => l_other_message,
925: p_other_token_tbl => l_token_tbl,
926: x_rtg_header_rec => x_rtg_header_rec,
927: x_rtg_revision_tbl => x_rtg_revision_tbl,
929: x_op_resource_tbl => x_op_resource_tbl,
930: x_sub_resource_tbl => x_sub_resource_tbl,
931: x_op_network_tbl => x_op_network_tbl);
932: */
933: x_return_status := Error_Handler.G_STATUS_ERROR;
934: x_msg_count := Error_Handler.Get_Message_Count;
935: IF (BOM_RTG_GLOBALS.Get_Debug = 'Y') THEN
936: ERROR_HANDLER.Close_Debug_Session;
937: END IF;
930: x_sub_resource_tbl => x_sub_resource_tbl,
931: x_op_network_tbl => x_op_network_tbl);
932: */
933: x_return_status := Error_Handler.G_STATUS_ERROR;
934: x_msg_count := Error_Handler.Get_Message_Count;
935: IF (BOM_RTG_GLOBALS.Get_Debug = 'Y') THEN
936: ERROR_HANDLER.Close_Debug_Session;
937: END IF;
938:
932: */
933: x_return_status := Error_Handler.G_STATUS_ERROR;
934: x_msg_count := Error_Handler.Get_Message_Count;
935: IF (BOM_RTG_GLOBALS.Get_Debug = 'Y') THEN
936: ERROR_HANDLER.Close_Debug_Session;
937: END IF;
938:
939: WHEN G_EXC_UNEXP_SKIP_OBJECT THEN
940: BOM_RTG_ERROR_HANDLER.Log_Error
936: ERROR_HANDLER.Close_Debug_Session;
937: END IF;
938:
939: WHEN G_EXC_UNEXP_SKIP_OBJECT THEN
940: BOM_RTG_ERROR_HANDLER.Log_Error
941: (p_rtg_header_rec => Bom_Rtg_Pub.G_MISS_RTG_HEADER_REC,
942: p_rtg_revision_tbl => Bom_Rtg_Pub.G_MISS_RTG_REVISION_TBL,
943: p_operation_tbl => Bom_Rtg_Pub.G_MISS_OPERATION_TBL,
944: p_op_resource_tbl => Bom_Rtg_Pub.G_MISS_OP_RESOURCE_TBL,
944: p_op_resource_tbl => Bom_Rtg_Pub.G_MISS_OP_RESOURCE_TBL,
945: p_sub_resource_tbl => Bom_Rtg_Pub.G_MISS_SUB_RESOURCE_TBL,
946: p_op_network_tbl => Bom_Rtg_Pub.G_MISS_OP_NETWORK_TBL,
947: p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
948: p_error_status => Error_Handler.G_STATUS_UNEXPECTED,
949: p_error_scope => NULL,
950: p_other_mesg_appid => 'BOM',
951: p_entity_index => 1,
952: p_error_level => Error_Handler.G_BO_LEVEL,
948: p_error_status => Error_Handler.G_STATUS_UNEXPECTED,
949: p_error_scope => NULL,
950: p_other_mesg_appid => 'BOM',
951: p_entity_index => 1,
952: p_error_level => Error_Handler.G_BO_LEVEL,
953: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
954: p_other_message => l_other_message,
955: p_other_token_tbl => l_token_tbl,
956: x_rtg_header_rec => x_rtg_header_rec,
949: p_error_scope => NULL,
950: p_other_mesg_appid => 'BOM',
951: p_entity_index => 1,
952: p_error_level => Error_Handler.G_BO_LEVEL,
953: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
954: p_other_message => l_other_message,
955: p_other_token_tbl => l_token_tbl,
956: x_rtg_header_rec => x_rtg_header_rec,
957: x_rtg_revision_tbl => x_rtg_revision_tbl,
959: x_op_resource_tbl => x_op_resource_tbl,
960: x_sub_resource_tbl => x_sub_resource_tbl,
961: x_op_network_tbl => x_op_network_tbl);
962: /*
963: BOM_RTG_ERROR_HANDLER.Log_Error
964: (p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
965: p_error_status => Error_Handler.G_STATUS_UNEXPECTED,
966: p_error_level => Error_Handler.G_BO_LEVEL,
967: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
961: x_op_network_tbl => x_op_network_tbl);
962: /*
963: BOM_RTG_ERROR_HANDLER.Log_Error
964: (p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
965: p_error_status => Error_Handler.G_STATUS_UNEXPECTED,
966: p_error_level => Error_Handler.G_BO_LEVEL,
967: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
968: p_other_message => l_other_message,
969: p_other_token_tbl => l_token_tbl,
962: /*
963: BOM_RTG_ERROR_HANDLER.Log_Error
964: (p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
965: p_error_status => Error_Handler.G_STATUS_UNEXPECTED,
966: p_error_level => Error_Handler.G_BO_LEVEL,
967: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
968: p_other_message => l_other_message,
969: p_other_token_tbl => l_token_tbl,
970: x_rtg_header_rec => x_rtg_header_rec,
963: BOM_RTG_ERROR_HANDLER.Log_Error
964: (p_Mesg_Token_Tbl => l_Mesg_Token_Tbl,
965: p_error_status => Error_Handler.G_STATUS_UNEXPECTED,
966: p_error_level => Error_Handler.G_BO_LEVEL,
967: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
968: p_other_message => l_other_message,
969: p_other_token_tbl => l_token_tbl,
970: x_rtg_header_rec => x_rtg_header_rec,
971: x_rtg_revision_tbl => x_rtg_revision_tbl,
973: x_op_resource_tbl => x_op_resource_tbl,
974: x_sub_resource_tbl => x_sub_resource_tbl,
975: x_op_network_tbl => x_op_network_tbl);
976: */
977: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
978: x_msg_count := Error_Handler.Get_Message_Count;
979: IF (Bom_Rtg_Globals.Get_Debug = 'Y') THEN
980: ERROR_HANDLER.Close_Debug_Session;
981: END IF;
974: x_sub_resource_tbl => x_sub_resource_tbl,
975: x_op_network_tbl => x_op_network_tbl);
976: */
977: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
978: x_msg_count := Error_Handler.Get_Message_Count;
979: IF (Bom_Rtg_Globals.Get_Debug = 'Y') THEN
980: ERROR_HANDLER.Close_Debug_Session;
981: END IF;
982: WHEN no_data_found THEN
976: */
977: x_return_status := Error_Handler.G_STATUS_UNEXPECTED;
978: x_msg_count := Error_Handler.Get_Message_Count;
979: IF (Bom_Rtg_Globals.Get_Debug = 'Y') THEN
980: ERROR_HANDLER.Close_Debug_Session;
981: END IF;
982: WHEN no_data_found THEN
983: BOM_RTG_ERROR_HANDLER.Log_Error
984: (p_rtg_header_rec => Bom_Rtg_Pub.G_MISS_RTG_HEADER_REC,
979: IF (Bom_Rtg_Globals.Get_Debug = 'Y') THEN
980: ERROR_HANDLER.Close_Debug_Session;
981: END IF;
982: WHEN no_data_found THEN
983: BOM_RTG_ERROR_HANDLER.Log_Error
984: (p_rtg_header_rec => Bom_Rtg_Pub.G_MISS_RTG_HEADER_REC,
985: p_rtg_revision_tbl => Bom_Rtg_Pub.G_MISS_RTG_REVISION_TBL,
986: p_operation_tbl => Bom_Rtg_Pub.G_MISS_OPERATION_TBL,
987: p_op_resource_tbl => Bom_Rtg_Pub.G_MISS_OP_RESOURCE_TBL,
987: p_op_resource_tbl => Bom_Rtg_Pub.G_MISS_OP_RESOURCE_TBL,
988: p_sub_resource_tbl => Bom_Rtg_Pub.G_MISS_SUB_RESOURCE_TBL,
989: p_op_network_tbl => Bom_Rtg_Pub.G_MISS_OP_NETWORK_TBL,
990: p_mesg_token_tbl => l_mesg_token_tbl,
991: p_error_status => Error_Handler.G_STATUS_ERROR,
992: p_other_mesg_appid => 'BOM',
993: p_other_token_tbl => Error_Handler.G_MISS_TOKEN_TBL,
994: p_entity_index => 1,
995: p_error_level => Error_Handler.G_BO_LEVEL,
989: p_op_network_tbl => Bom_Rtg_Pub.G_MISS_OP_NETWORK_TBL,
990: p_mesg_token_tbl => l_mesg_token_tbl,
991: p_error_status => Error_Handler.G_STATUS_ERROR,
992: p_other_mesg_appid => 'BOM',
993: p_other_token_tbl => Error_Handler.G_MISS_TOKEN_TBL,
994: p_entity_index => 1,
995: p_error_level => Error_Handler.G_BO_LEVEL,
996: p_error_scope => Error_Handler.G_SCOPE_ALL,
997: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
991: p_error_status => Error_Handler.G_STATUS_ERROR,
992: p_other_mesg_appid => 'BOM',
993: p_other_token_tbl => Error_Handler.G_MISS_TOKEN_TBL,
994: p_entity_index => 1,
995: p_error_level => Error_Handler.G_BO_LEVEL,
996: p_error_scope => Error_Handler.G_SCOPE_ALL,
997: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
998: p_other_message => 'BOM_EXP_NO_RTG',
999: x_rtg_header_rec => X_rtg_header_rec,
992: p_other_mesg_appid => 'BOM',
993: p_other_token_tbl => Error_Handler.G_MISS_TOKEN_TBL,
994: p_entity_index => 1,
995: p_error_level => Error_Handler.G_BO_LEVEL,
996: p_error_scope => Error_Handler.G_SCOPE_ALL,
997: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
998: p_other_message => 'BOM_EXP_NO_RTG',
999: x_rtg_header_rec => X_rtg_header_rec,
1000: x_rtg_revision_tbl => X_rtg_revision_tbl,
993: p_other_token_tbl => Error_Handler.G_MISS_TOKEN_TBL,
994: p_entity_index => 1,
995: p_error_level => Error_Handler.G_BO_LEVEL,
996: p_error_scope => Error_Handler.G_SCOPE_ALL,
997: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
998: p_other_message => 'BOM_EXP_NO_RTG',
999: x_rtg_header_rec => X_rtg_header_rec,
1000: x_rtg_revision_tbl => X_rtg_revision_tbl,
1001: x_operation_tbl => X_operation_tbl,
1002: x_op_resource_tbl => X_op_resource_tbl,
1003: x_sub_resource_tbl => X_sub_resource_tbl,
1004: x_op_network_tbl => X_op_network_tbl);
1005: /*
1006: BOM_RTG_ERROR_HANDLER.Log_Error
1007: ( p_error_status => Error_Handler.G_STATUS_ERROR,
1008: p_error_level => Error_Handler.G_BO_LEVEL,
1009: p_error_scope => Error_Handler.G_SCOPE_ALL,
1010: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
1003: x_sub_resource_tbl => X_sub_resource_tbl,
1004: x_op_network_tbl => X_op_network_tbl);
1005: /*
1006: BOM_RTG_ERROR_HANDLER.Log_Error
1007: ( p_error_status => Error_Handler.G_STATUS_ERROR,
1008: p_error_level => Error_Handler.G_BO_LEVEL,
1009: p_error_scope => Error_Handler.G_SCOPE_ALL,
1010: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
1011: p_other_message => 'BOM_EXP_NO_RTG',
1004: x_op_network_tbl => X_op_network_tbl);
1005: /*
1006: BOM_RTG_ERROR_HANDLER.Log_Error
1007: ( p_error_status => Error_Handler.G_STATUS_ERROR,
1008: p_error_level => Error_Handler.G_BO_LEVEL,
1009: p_error_scope => Error_Handler.G_SCOPE_ALL,
1010: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
1011: p_other_message => 'BOM_EXP_NO_RTG',
1012: x_rtg_header_rec => X_rtg_header_rec,
1005: /*
1006: BOM_RTG_ERROR_HANDLER.Log_Error
1007: ( p_error_status => Error_Handler.G_STATUS_ERROR,
1008: p_error_level => Error_Handler.G_BO_LEVEL,
1009: p_error_scope => Error_Handler.G_SCOPE_ALL,
1010: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
1011: p_other_message => 'BOM_EXP_NO_RTG',
1012: x_rtg_header_rec => X_rtg_header_rec,
1013: x_rtg_revision_tbl => X_rtg_revision_tbl,
1006: BOM_RTG_ERROR_HANDLER.Log_Error
1007: ( p_error_status => Error_Handler.G_STATUS_ERROR,
1008: p_error_level => Error_Handler.G_BO_LEVEL,
1009: p_error_scope => Error_Handler.G_SCOPE_ALL,
1010: p_other_status => Error_Handler.G_STATUS_NOT_PICKED,
1011: p_other_message => 'BOM_EXP_NO_RTG',
1012: x_rtg_header_rec => X_rtg_header_rec,
1013: x_rtg_revision_tbl => X_rtg_revision_tbl,
1014: x_operation_tbl => X_operation_tbl,
1015: x_op_resource_tbl => X_op_resource_tbl,
1016: x_sub_resource_tbl => X_sub_resource_tbl,
1017: x_op_network_tbl => X_op_network_tbl);
1018: */
1019: X_return_status := Error_Handler.G_STATUS_ERROR;
1020: X_msg_count := Error_Handler.Get_Message_Count;
1021: IF (BOM_RTG_GLOBALS.Get_Debug = 'Y') THEN
1022: ERROR_HANDLER.Close_Debug_Session;
1023: END IF;
1016: x_sub_resource_tbl => X_sub_resource_tbl,
1017: x_op_network_tbl => X_op_network_tbl);
1018: */
1019: X_return_status := Error_Handler.G_STATUS_ERROR;
1020: X_msg_count := Error_Handler.Get_Message_Count;
1021: IF (BOM_RTG_GLOBALS.Get_Debug = 'Y') THEN
1022: ERROR_HANDLER.Close_Debug_Session;
1023: END IF;
1024: END Export_RTG;
1018: */
1019: X_return_status := Error_Handler.G_STATUS_ERROR;
1020: X_msg_count := Error_Handler.Get_Message_Count;
1021: IF (BOM_RTG_GLOBALS.Get_Debug = 'Y') THEN
1022: ERROR_HANDLER.Close_Debug_Session;
1023: END IF;
1024: END Export_RTG;
1025: END BOM_RTG_EXP;