8: ret_code NUMBER;
9:
10: -- Package global used within the package.
11:
12: g_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type;
13:
14: /******************************************************************
15: * Local Function: Get_Substitute_Item_Quantity
16: * Parameter IN : Substitute Component unexposed Record
23: *******************************************************************/
24: FUNCTION Get_Substitute_Item_Quantity
25: ( x_return_status OUT NOCOPY VARCHAR2
26: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
27: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
28: )
29: RETURN NUMBER
30: IS
31: l_sub_item_quantity NUMBER;
144: * unexposed columns.
145: *******************************************************************/
146:
147: PROCEDURE Attribute_Defaulting
148: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type :=
149: Bom_Bo_Pub.G_MISS_SUB_COMPONENT_REC
150: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
151: , x_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
152: , x_Sub_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
145: *******************************************************************/
146:
147: PROCEDURE Attribute_Defaulting
148: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type :=
149: Bom_Bo_Pub.G_MISS_SUB_COMPONENT_REC
150: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
151: , x_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
152: , x_Sub_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
153: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
146:
147: PROCEDURE Attribute_Defaulting
148: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type :=
149: Bom_Bo_Pub.G_MISS_SUB_COMPONENT_REC
150: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
151: , x_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
152: , x_Sub_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
153: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
154: , x_return_status OUT NOCOPY VARCHAR2
147: PROCEDURE Attribute_Defaulting
148: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type :=
149: Bom_Bo_Pub.G_MISS_SUB_COMPONENT_REC
150: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
151: , x_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
152: , x_Sub_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
153: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
154: , x_return_status OUT NOCOPY VARCHAR2
155: )
148: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type :=
149: Bom_Bo_Pub.G_MISS_SUB_COMPONENT_REC
150: , p_Sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
151: , x_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
152: , x_Sub_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
153: , x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
154: , x_return_status OUT NOCOPY VARCHAR2
155: )
156: IS
248: * values from the database record, for all columns that the
249: * user has left NULL.
250: ******************************************************************************/
251: PROCEDURE Populate_Null_Columns
252: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
253: , p_old_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
254: , p_sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
255: , p_Old_sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
256: , x_sub_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
249: * user has left NULL.
250: ******************************************************************************/
251: PROCEDURE Populate_Null_Columns
252: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
253: , p_old_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
254: , p_sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
255: , p_Old_sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
256: , x_sub_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
257: , x_sub_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
250: ******************************************************************************/
251: PROCEDURE Populate_Null_Columns
252: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
253: , p_old_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
254: , p_sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
255: , p_Old_sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
256: , x_sub_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
257: , x_sub_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
258: )
251: PROCEDURE Populate_Null_Columns
252: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
253: , p_old_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
254: , p_sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
255: , p_Old_sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
256: , x_sub_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
257: , x_sub_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
258: )
259: IS
252: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
253: , p_old_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
254: , p_sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
255: , p_Old_sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
256: , x_sub_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
257: , x_sub_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
258: )
259: IS
260: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type :=
253: , p_old_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
254: , p_sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
255: , p_Old_sub_Comp_Unexp_Rec IN Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
256: , x_sub_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
257: , x_sub_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
258: )
259: IS
260: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type :=
261: p_sub_component_rec;
256: , x_sub_Component_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
257: , x_sub_Comp_Unexp_Rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Comp_Unexposed_Rec_Type
258: )
259: IS
260: l_sub_component_rec Bom_Bo_Pub.Sub_Component_Rec_Type :=
261: p_sub_component_rec;
262: BEGIN
263:
264: IF l_sub_component_rec.substitute_item_quantity = FND_API.G_MISS_NUM OR
343:
344: END Populate_Null_Columns;
345:
346: PROCEDURE Entity_Defaulting
347: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
348: , p_old_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type :=
349: Bom_Bo_Pub.G_MISS_Sub_COMPONENT_REC
350: , x_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
351: )
344: END Populate_Null_Columns;
345:
346: PROCEDURE Entity_Defaulting
347: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
348: , p_old_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type :=
349: Bom_Bo_Pub.G_MISS_Sub_COMPONENT_REC
350: , x_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
351: )
352: IS
345:
346: PROCEDURE Entity_Defaulting
347: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
348: , p_old_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type :=
349: Bom_Bo_Pub.G_MISS_Sub_COMPONENT_REC
350: , x_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
351: )
352: IS
353: BEGIN
346: PROCEDURE Entity_Defaulting
347: ( p_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type
348: , p_old_sub_component_rec IN Bom_Bo_Pub.Sub_Component_Rec_Type :=
349: Bom_Bo_Pub.G_MISS_Sub_COMPONENT_REC
350: , x_sub_component_rec IN OUT NOCOPY Bom_Bo_Pub.Sub_Component_Rec_Type
351: )
352: IS
353: BEGIN
354: NULL;