The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT revision, effectivity_date
FROM mtl_item_revisions
WHERE inventory_item_id = p_bom_rev_unexp_rec.assembly_item_id
AND organization_id = p_bom_rev_unexp_rec.organization_id
ORDER BY effectivity_date desc, revision desc;
SELECT 1
INTO l_dummy
FROM SYS.DUAL
WHERE EXISTS ( SELECT bill_sequence_id
FROM bom_bill_of_materials
WHERE assembly_item_id
= p_bom_rev_Unexp_Rec.assembly_item_id
AND organization_id
= p_bom_rev_Unexp_Rec.organization_id
) ;
SELECT bill_sequence_id
INTO l_dummy
FROM bom_bill_of_materials
WHERE assembly_item_id = p_bom_rev_Unexp_Rec.assembly_item_id
AND organization_id = p_bom_rev_Unexp_Rec.organization_id;
-- If the user is attempting to create or update effective date of the
-- revision and the date is less than the current date then it should get
-- an error.
--Error_Handler.Write_Debug( 'Current '||to_char(p_bom_revision_rec.start_effective_date));
( p_bom_revision_rec.transaction_type = Bom_Globals.G_OPR_UPDATE AND
p_old_bom_revision_Rec.start_effective_date <>
p_bom_revision_rec.start_effective_date AND
( NVL(p_bom_revision_rec.start_effective_date,SYSDATE) < SYSDATE
OR p_old_bom_revision_Rec.start_effective_date < SYSDATE )
)
THEN
x_return_status := FND_API.G_RET_STS_ERROR;
p_bom_revision_rec.transaction_type = Bom_Globals.G_OPR_UPDATE
THEN
Error_Handler.Add_Error_Token
( p_message_name => 'BOM_REVISION_DOESNOT_EXIST'
, p_message_text => NULL
, p_mesg_token_tbl => l_mesg_token_tbl
, p_token_tbl => l_token_tbl
, x_mesg_token_tbl => l_mesg_token_tbl
);
Bom_Globals.G_OPR_UPDATE;