The following lines contain the word 'select', 'insert', 'update' or 'delete':
(Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_CREATE)
THEN
IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bom Component Operation: Check Attributes . . .'); END IF;
(Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
THEN
IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populate NULL columns'); END IF;
IF l_bom_comp_ops_rec.transaction_type <> 'DELETE'
THEN
Bom_Validate_Comp_Operation.Check_Entity
( p_bom_comp_ops_rec => l_bom_comp_ops_rec
, p_bom_comp_ops_unexp_rec => l_bom_comp_ops_unexp_rec
, x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
, x_return_status => l_Return_Status
);
IF( l_bom_comp_ops_tbl(I).transaction_type in ( Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_CREATE )
AND l_return_status = 'S' )
THEN
G_Comp_Op_Flag := 1;
, p_last_update_date => sysdate
, p_last_updated_by => fnd_global.user_id
);
(Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_CREATE)
THEN
IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bom Substitute Component: Check Attributes . . .'); END IF;
(Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
THEN
-- Process flow step 8 - Populate NULL columns for Update and
-- Delete.
IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
IF( l_bom_sub_component_tbl(I).transaction_type in ( Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_CREATE )
AND l_return_status = 'S')
THEN
G_SUB_COMP_FLAG := 1;
, p_last_update_date => sysdate
, p_last_updated_by => fnd_global.user_id
);
(Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
THEN
-- Process flow step 11 - Populate NULL columns for Update and
-- Delete.
IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populating NULL Columns'); END IF;
IF l_bom_ref_designator_rec.transaction_type = 'DELETE'
THEN
IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Calling Entity Delete validation'); END IF;
Bom_Validate_Ref_Designator.Check_Entity_Delete
( p_bom_ref_designator_rec => l_bom_ref_designator_rec
, p_bom_ref_desg_unexp_rec => l_bom_ref_desg_unexp_rec
, x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
, x_return_status => l_Return_Status
);
IF( l_bom_ref_designator_tbl(I).transaction_type in ( Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_CREATE )
AND l_return_status = 'S')
THEN
G_Ref_Desig_Flag := 1;
, p_last_update_date => sysdate
, p_last_updated_by => fnd_global.user_id
);
(Bom_Globals.G_OPR_CREATE, Bom_Globals.G_OPR_UPDATE)
THEN
Bom_Validate_Bom_Component.Check_Attributes
( x_return_status => l_return_status
, x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
, p_bom_component_rec => l_bom_component_rec
, p_bom_comp_unexp_rec => l_bom_comp_unexp_rec
);
(Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
THEN
IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Populate NULL columns'); END IF;
(Bom_Globals.G_OPR_CREATE, Bom_Globals.G_OPR_UPDATE)
THEN
Bom_Default_Bom_Component.Entity_Defaulting
( p_bom_component_rec => l_bom_component_rec
, p_old_bom_component_rec => l_old_bom_component_rec
, x_bom_component_rec => l_bom_component_rec
);
IF( l_bom_component_tbl(I).transaction_type in ( Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_CREATE )
AND l_return_status = 'S')
THEN
G_Comp_Flag := 1;
, p_last_update_date => sysdate
, p_last_updated_by => fnd_global.user_id
);
(Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
THEN
-- Process flow step 7 - Populate NULL columns for Update and
-- Delete.
Bom_Default_Bom_Revision.Populate_NULL_Columns
( p_bom_revision_rec => l_bom_revision_rec
, p_bom_rev_unexp_rec => l_bom_rev_unexp_rec
, p_old_bom_revision_rec => l_old_bom_revision_rec
, p_old_bom_rev_unexp_rec => l_old_bom_rev_unexp_rec
, x_bom_revision_rec => l_bom_revision_rec
, x_bom_rev_unexp_rec => l_bom_rev_unexp_rec
);
(Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_CREATE)
THEN
IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bom Header: Check Attributes . . .'); END IF;
(Bom_Globals.G_OPR_UPDATE, Bom_Globals.G_OPR_DELETE)
THEN
--
-- Process flow step 9 - Populate NULL columns for Update and
-- Delete.
--
IF Bom_Globals.Get_Debug = 'Y' THEN Error_Handler.Write_Debug('Bom Header: Populate Null Columns . . .'); END IF;
IF l_bom_header_rec.transaction_type <> 'DELETE'
THEN
Bom_Validate_Bom_Header.Check_Entity
( x_return_status => l_Return_Status
, x_Mesg_Token_Tbl => l_Mesg_Token_Tbl
, p_bom_header_rec => l_bom_header_rec
, p_bom_head_unexp_rec => l_bom_header_unexp_rec
, p_old_bom_head_rec => l_bom_header_rec
, p_old_bom_head_unexp_rec => l_old_bom_header_unexp_rec
);
Bom_Validate_Bom_Header.Check_Entity_Delete
( x_return_status => l_return_status
, x_Mesg_Token_Tbl => l_mesg_token_tbl
, p_bom_header_rec => l_bom_header_rec
, p_bom_head_Unexp_Rec => l_bom_header_unexp_rec
, x_bom_head_unexp_rec => l_bom_header_unexp_rec
);
,p_last_update_date => sysdate
,p_last_updated_by => FND_GLOBAL.user_id
);
ELSIF l_bom_header_rec.transaction_type in ( Bom_Globals.G_OPR_UPDATE) THEN
Bom_Business_Event_PKG.Raise_Bill_Event
(p_Event_Load_Type => 'Bulk'
,p_Request_Identifier => FND_GLOBAL.CONC_REQUEST_ID
,p_batch_identifier => BOM_GLOBALS.G_BATCH_ID
,p_Event_Entity_Name => 'Structure'
,p_Event_Entity_Parent_Id => G_Bill_Seq_Id
,p_Event_Name => Bom_Business_Event_PKG.G_STRUCTURE_MODIFIED_EVENT
,p_last_update_date => sysdate
,p_last_updated_by => FND_GLOBAL.user_id
);