13: * Revised component unexposed column record.
14: * Purpose : This procedure will convert all missing columns to NULL.
15: ****************************************************************************/
16: PROCEDURE Convert_Miss_To_Null
17: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
18: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
19: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
20: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
21: )
14: * Purpose : This procedure will convert all missing columns to NULL.
15: ****************************************************************************/
16: PROCEDURE Convert_Miss_To_Null
17: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
18: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
19: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
20: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
21: )
22: IS
15: ****************************************************************************/
16: PROCEDURE Convert_Miss_To_Null
17: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
18: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
19: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
20: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
21: )
22: IS
23: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type :=
16: PROCEDURE Convert_Miss_To_Null
17: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
18: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
19: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
20: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
21: )
22: IS
23: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type :=
24: p_rev_component_rec;
19: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
20: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
21: )
22: IS
23: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type :=
24: p_rev_component_rec;
25: l_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type :=
26: p_Rev_Comp_Unexp_Rec;
27: BEGIN
21: )
22: IS
23: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type :=
24: p_rev_component_rec;
25: l_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type :=
26: p_Rev_Comp_Unexp_Rec;
27: BEGIN
28:
29: IF l_rev_component_rec.supply_subinventory = FND_API.G_MISS_CHAR THEN
198: * the user given values. Any errors will be returned by filling
199: * the Mesg_Token_Tbl and setting the return_status.
200: ****************************************************************************/
201: PROCEDURE Update_Row
202: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
203: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
204: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
205: , x_Return_Status OUT NOCOPY VARCHAR2
206: )
199: * the Mesg_Token_Tbl and setting the return_status.
200: ****************************************************************************/
201: PROCEDURE Update_Row
202: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
203: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
204: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
205: , x_Return_Status OUT NOCOPY VARCHAR2
206: )
207: IS
206: )
207: IS
208: l_return_status varchar2(80);
209: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
210: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
211: l_err_text VARCHAR2(2000);
212: BEGIN
213:
214: UPDATE BOM_INVENTORY_COMPONENTS
305: * component table. Any errors will be filled in the Mesg_Token
306: * Tbl and returned with a return_status of U
307: *****************************************************************************/
308: PROCEDURE Insert_Row
309: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
310: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
311: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
312: , x_Return_Status OUT NOCOPY VARCHAR2
313: )
306: * Tbl and returned with a return_status of U
307: *****************************************************************************/
308: PROCEDURE Insert_Row
309: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
310: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
311: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
312: , x_Return_Status OUT NOCOPY VARCHAR2
313: )
314: IS
546: , p_Operation_Sequence_Number IN NUMBER
547: , p_Effectivity_Date IN DATE
548: , p_Bill_Sequence_Id IN NUMBER
549: , p_from_end_item_number IN VARCHAR2 := NULL
550: , x_Rev_Component_Rec OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
551: , x_Rev_Comp_Unexp_Rec OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
552: , x_Return_Status OUT NOCOPY VARCHAR2
553: )
554: IS
547: , p_Effectivity_Date IN DATE
548: , p_Bill_Sequence_Id IN NUMBER
549: , p_from_end_item_number IN VARCHAR2 := NULL
550: , x_Rev_Component_Rec OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
551: , x_Rev_Comp_Unexp_Rec OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
552: , x_Return_Status OUT NOCOPY VARCHAR2
553: )
554: IS
555: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
551: , x_Rev_Comp_Unexp_Rec OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
552: , x_Return_Status OUT NOCOPY VARCHAR2
553: )
554: IS
555: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
556: l_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
557: l_err_text VARCHAR2(2000);
558: BEGIN
559:
552: , x_Return_Status OUT NOCOPY VARCHAR2
553: )
554: IS
555: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
556: l_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
557: l_err_text VARCHAR2(2000);
558: BEGIN
559:
560: --dbms_output.put_line('Querying component record . . .');
707: );
708: END Cancel_Component;
709:
710: PROCEDURE Perform_Writes( p_rev_component_rec IN
711: Bom_Bo_Pub.Rev_Component_Rec_Type
712: , p_rev_comp_unexp_rec IN
713: Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
714: , x_Mesg_Token_Tbl OUT NOCOPY
715: Error_Handler.Mesg_Token_Tbl_Type
709:
710: PROCEDURE Perform_Writes( p_rev_component_rec IN
711: Bom_Bo_Pub.Rev_Component_Rec_Type
712: , p_rev_comp_unexp_rec IN
713: Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
714: , x_Mesg_Token_Tbl OUT NOCOPY
715: Error_Handler.Mesg_Token_Tbl_Type
716: , x_Return_Status OUT NOCOPY VARCHAR2
717: )
716: , x_Return_Status OUT NOCOPY VARCHAR2
717: )
718: IS
719: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
720: l_Rev_component_Rec Bom_Bo_Pub.Rev_Component_rec_Type;
721: l_rev_comp_unexp_rec Bom_Bo_Pub.rev_comp_unexposed_rec_type;
722: l_return_status VARCHAR2(1);
723: l_assembly_type NUMBER;
724: l_Comp_Seq_Id NUMBER;
717: )
718: IS
719: l_Mesg_Token_Tbl Error_Handler.Mesg_Token_Tbl_Type;
720: l_Rev_component_Rec Bom_Bo_Pub.Rev_Component_rec_Type;
721: l_rev_comp_unexp_rec Bom_Bo_Pub.rev_comp_unexposed_rec_type;
722: l_return_status VARCHAR2(1);
723: l_assembly_type NUMBER;
724: l_Comp_Seq_Id NUMBER;
725: CURSOR c_CheckBillExists IS
863:
864: /************ PROCEDURE NOT USED *************************************/
865: PROCEDURE Lock_Row
866: ( x_return_status OUT NOCOPY VARCHAR2
867: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
868: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
869: , x_err_text OUT NOCOPY VARCHAR2
870: )
871: IS
864: /************ PROCEDURE NOT USED *************************************/
865: PROCEDURE Lock_Row
866: ( x_return_status OUT NOCOPY VARCHAR2
867: , p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
868: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
869: , x_err_text OUT NOCOPY VARCHAR2
870: )
871: IS
872: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
868: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
869: , x_err_text OUT NOCOPY VARCHAR2
870: )
871: IS
872: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
873: BEGIN
874: null;
875: END Lock_Row;
876: