The following lines contain the word 'select', 'insert', 'update' or 'delete':
IF p_eco_revision_rec.Transaction_Type = ENG_GLOBALS.G_OPR_UPDATE AND
p_eco_revision_rec.new_revision IS NOT NULL
THEN
-- Verfiy that the user is not trying to change the revision to
-- a revision that already exists.
BEGIN
SELECT 'Valid'
INTO l_dummy
FROM sys.dual
WHERE NOT EXISTS
( SELECT 1
FROM eng_change_order_revisions
WHERE revision =
p_eco_revision_rec.new_revision
AND change_notice =
p_eco_revision_rec.Eco_Name
);
PROCEDURE Check_Entity_Delete
( x_return_status OUT NOCOPY VARCHAR2
, x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
, p_eco_revision_rec IN ENG_Eco_PUB.Eco_Revision_Rec_Type
, p_Eco_Rev_Unexp_Rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
-- so their is no Delete Validation
x_Return_Status := l_return_status;
END Check_Entity_Delete;
* error if the operation is UPDATE and the record DOES NOT
* EXIST.
* In case of UPDATE if the record exists then the procedure
* will return the old record in the old entity parameters
* with a success status.
****************************************************************************/
PROCEDURE Check_Existence
( p_eco_revision_rec IN Eng_Eco_Pub.Eco_Revision_Rec_Type
, p_eco_rev_unexp_rec IN Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
, x_old_eco_revision_rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Revision_Rec_Type
, x_old_eco_rev_unexp_rec IN OUT NOCOPY Eng_Eco_Pub.Eco_Rev_Unexposed_Rec_Type
, x_Mesg_Token_Tbl OUT NOCOPY Error_Handler.Mesg_Token_Tbl_Type
, x_Return_Status OUT NOCOPY VARCHAR2
)
IS
l_token_tbl Error_Handler.Token_Tbl_Type;
(Eng_Globals.G_OPR_UPDATE, Eng_Globals.G_OPR_DELETE)
THEN
Error_Handler.Add_Error_Token
( x_Mesg_token_tbl => l_Mesg_Token_Tbl
, p_Mesg_Token_Tbl => l_Mesg_Token_Tbl
, p_message_name => 'ENG_ECO_REV_DOESNOT_EXIST'
, p_token_tbl => l_token_tbl
);