6: G_PKG_NAME CONSTANT VARCHAR2(30) := 'ENG_Default_Rev_Component';
7:
8: -- Package global used within the package.
9:
10: g_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
11: g_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
12: x_text VARCHAR2(80);
13:
14: /*****************************************************************************
7:
8: -- Package global used within the package.
9:
10: g_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type;
11: g_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type;
12: x_text VARCHAR2(80);
13:
14: /*****************************************************************************
15: * Following are all get functions which will be used by the attribute
432: * values. Defualting will happen for exposed as well as
433: * unexposed columns.
434: *****************************************************************************/
435: PROCEDURE Attribute_Defaulting
436: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
437: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
438: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
439: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
440: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
433: * unexposed columns.
434: *****************************************************************************/
435: PROCEDURE Attribute_Defaulting
436: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
437: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
438: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
439: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
440: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
441: , x_Return_Status OUT NOCOPY VARCHAR2
434: *****************************************************************************/
435: PROCEDURE Attribute_Defaulting
436: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
437: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
438: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
439: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
440: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
441: , x_Return_Status OUT NOCOPY VARCHAR2
442: )
435: PROCEDURE Attribute_Defaulting
436: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
437: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
438: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
439: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
440: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
441: , x_Return_Status OUT NOCOPY VARCHAR2
442: )
443: IS
810: * values from the database record, for all columns that the
811: * user has left NULL.
812: ******************************************************************************/
813: PROCEDURE Populate_Null_Columns
814: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
815: , p_old_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
816: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
817: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
818: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
811: * user has left NULL.
812: ******************************************************************************/
813: PROCEDURE Populate_Null_Columns
814: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
815: , p_old_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
816: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
817: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
818: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
819: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
812: ******************************************************************************/
813: PROCEDURE Populate_Null_Columns
814: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
815: , p_old_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
816: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
817: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
818: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
819: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
820: )
813: PROCEDURE Populate_Null_Columns
814: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
815: , p_old_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
816: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
817: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
818: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
819: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
820: )
821: IS
814: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
815: , p_old_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
816: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
817: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
818: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
819: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
820: )
821: IS
822: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type :=
815: , p_old_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
816: , p_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
817: , p_Old_Rev_Comp_Unexp_Rec IN Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
818: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
819: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
820: )
821: IS
822: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type :=
823: p_rev_component_rec;
818: , x_Rev_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
819: , x_Rev_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type
820: )
821: IS
822: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type :=
823: p_rev_component_rec;
824: l_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type :=
825: p_Rev_Comp_Unexp_Rec;
826: BEGIN
820: )
821: IS
822: l_rev_component_rec Bom_Bo_Pub.Rev_Component_Rec_Type :=
823: p_rev_component_rec;
824: l_Rev_Comp_Unexp_Rec Bom_Bo_Pub.Rev_Comp_Unexposed_Rec_Type :=
825: p_Rev_Comp_Unexp_Rec;
826: BEGIN
827:
828: IF l_rev_component_rec.supply_subinventory IS NULL THEN
1071:
1072: END Populate_Null_Columns;
1073:
1074: PROCEDURE Entity_Defaulting
1075: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1076: , p_old_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type :=
1077: Bom_Bo_Pub.G_MISS_REV_COMPONENT_REC
1078: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
1079: )
1072: END Populate_Null_Columns;
1073:
1074: PROCEDURE Entity_Defaulting
1075: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1076: , p_old_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type :=
1077: Bom_Bo_Pub.G_MISS_REV_COMPONENT_REC
1078: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
1079: )
1080: IS
1073:
1074: PROCEDURE Entity_Defaulting
1075: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1076: , p_old_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type :=
1077: Bom_Bo_Pub.G_MISS_REV_COMPONENT_REC
1078: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
1079: )
1080: IS
1081: BEGIN
1074: PROCEDURE Entity_Defaulting
1075: ( p_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type
1076: , p_old_rev_component_rec IN Bom_Bo_Pub.Rev_Component_Rec_Type :=
1077: Bom_Bo_Pub.G_MISS_REV_COMPONENT_REC
1078: , x_rev_component_rec IN OUT NOCOPY Bom_Bo_Pub.Rev_Component_Rec_Type
1079: )
1080: IS
1081: BEGIN
1082: