The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'VALID'
INTO l_dummy
FROM MFG_LOOKUPS
WHERE LOOKUP_TYPE = 'MTL_TXN_REQUEST_STATUS'
AND p_header_status IN (1,7)
AND LOOKUP_CODE = p_header_status;
IF p_trohdr_rec.last_updated_by IS NOT NULL AND
( p_trohdr_rec.last_updated_by <>
p_old_trohdr_rec.last_updated_by OR
p_old_trohdr_rec.last_updated_by IS NULL )
THEN
IF INV_Validate.Last_Updated_By(p_trohdr_rec.last_updated_by) = inv_validate.F THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_trohdr_rec.last_update_date IS NOT NULL AND
( p_trohdr_rec.last_update_date <>
p_old_trohdr_rec.last_update_date OR
p_old_trohdr_rec.last_update_date IS NULL )
THEN
IF INV_Validate.Last_Update_Date(p_trohdr_rec.last_update_date) =
inv_validate.F THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_trohdr_rec.last_update_login IS NOT NULL AND
( p_trohdr_rec.last_update_login <>
p_old_trohdr_rec.last_update_login OR
p_old_trohdr_rec.last_update_login IS NULL )
THEN
IF
INV_Validate.Last_Update_Login(p_trohdr_rec.last_update_login)=
inv_validate.F
THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_trohdr_rec.program_update_date IS NOT NULL AND
( p_trohdr_rec.program_update_date <>
p_old_trohdr_rec.program_update_date OR
p_old_trohdr_rec.program_update_date IS NULL )
THEN
IF
INV_Validate.Program_Update_Date(p_trohdr_rec.program_update_date)= inv_validate.F THEN
x_return_status := FND_API.G_RET_STS_ERROR;
PROCEDURE Entity_Delete
( x_return_status OUT NOCOPY VARCHAR2
, p_trohdr_rec IN INV_Move_Order_PUB.Trohdr_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
, 'Entity_Delete'
);
END Entity_Delete;