2052: * Then if not, Create New Primary Routing and
2053: * New Routing Revision
2054: *********************************************************************/
2055: PROCEDURE Perform_Writes_For_Primary_RTG
2056: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
2057: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
2058: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2059: := Bom_Rtg_Pub.G_DEFAULT_CONTROL_REC
2060: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2053: * New Routing Revision
2054: *********************************************************************/
2055: PROCEDURE Perform_Writes_For_Primary_RTG
2056: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
2057: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
2058: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2059: := Bom_Rtg_Pub.G_DEFAULT_CONTROL_REC
2060: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2061: , x_return_status OUT NOCOPY VARCHAR2
2054: *********************************************************************/
2055: PROCEDURE Perform_Writes_For_Primary_RTG
2056: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
2057: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
2058: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2059: := Bom_Rtg_Pub.G_DEFAULT_CONTROL_REC
2060: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2061: , x_return_status OUT NOCOPY VARCHAR2
2062: )
2055: PROCEDURE Perform_Writes_For_Primary_RTG
2056: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
2057: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
2058: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2059: := Bom_Rtg_Pub.G_DEFAULT_CONTROL_REC
2060: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2061: , x_return_status OUT NOCOPY VARCHAR2
2062: )
2063: IS
2061: , x_return_status OUT NOCOPY VARCHAR2
2062: )
2063: IS
2064:
2065: l_rev_operation_rec Bom_Rtg_Pub.Rev_Operation_Rec_Type ;
2066: l_rev_op_unexp_rec Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type ;
2067: l_routing_sequence_id NUMBER ; -- Routing Sequence Id
2068: l_routing_type NUMBER ; -- Routing Type
2069: -- Bug 2233631
2062: )
2063: IS
2064:
2065: l_rev_operation_rec Bom_Rtg_Pub.Rev_Operation_Rec_Type ;
2066: l_rev_op_unexp_rec Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type ;
2067: l_routing_sequence_id NUMBER ; -- Routing Sequence Id
2068: l_routing_type NUMBER ; -- Routing Type
2069: -- Bug 2233631
2070: l_routing_type1 NUMBER ; -- Assembly_type from ENG_CHANGE_ORDER_TYUPES, table.
2368: * New Routing Revision after checking that compatible primary
2369: * routing exists.
2370: *********************************************************************/
2371: PROCEDURE Perform_Writes_For_Alt_RTG
2372: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
2373: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
2374: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2375: := Bom_Rtg_Pub.G_DEFAULT_CONTROL_REC
2376: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2369: * routing exists.
2370: *********************************************************************/
2371: PROCEDURE Perform_Writes_For_Alt_RTG
2372: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
2373: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
2374: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2375: := Bom_Rtg_Pub.G_DEFAULT_CONTROL_REC
2376: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2377: , x_return_status OUT NOCOPY VARCHAR2
2370: *********************************************************************/
2371: PROCEDURE Perform_Writes_For_Alt_RTG
2372: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
2373: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
2374: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2375: := Bom_Rtg_Pub.G_DEFAULT_CONTROL_REC
2376: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2377: , x_return_status OUT NOCOPY VARCHAR2
2378: )
2371: PROCEDURE Perform_Writes_For_Alt_RTG
2372: ( p_rev_operation_rec IN Bom_Rtg_Pub.Rev_Operation_Rec_Type
2373: , p_rev_op_unexp_rec IN Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type
2374: , p_control_rec IN Bom_Rtg_Pub.Control_Rec_Type
2375: := Bom_Rtg_Pub.G_DEFAULT_CONTROL_REC
2376: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
2377: , x_return_status OUT NOCOPY VARCHAR2
2378: )
2379: IS
2377: , x_return_status OUT NOCOPY VARCHAR2
2378: )
2379: IS
2380:
2381: l_rev_operation_rec Bom_Rtg_Pub.Rev_Operation_Rec_Type ;
2382: l_rev_op_unexp_rec Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type ;
2383: l_routing_sequence_id NUMBER ; -- Routing Sequence Id
2384: l_routing_type NUMBER ; -- Routing Type
2385: l_routing_type1 NUMBER ; -- Assembly_type from ENG_CHANGE_ORDER_TYUPES, table.
2378: )
2379: IS
2380:
2381: l_rev_operation_rec Bom_Rtg_Pub.Rev_Operation_Rec_Type ;
2382: l_rev_op_unexp_rec Bom_Rtg_Pub.Rev_Op_Unexposed_Rec_Type ;
2383: l_routing_sequence_id NUMBER ; -- Routing Sequence Id
2384: l_routing_type NUMBER ; -- Routing Type
2385: l_routing_type1 NUMBER ; -- Assembly_type from ENG_CHANGE_ORDER_TYUPES, table.
2386: -- Error Handlig Variables