The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Entity_Delete
( x_return_status OUT NOCOPY VARCHAR2
, p_Sourcing_Rule_rec IN MRP_Sourcing_Rule_PUB.Sourcing_Rule_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
SELECT count(*)
INTO l_count
FROM MRP_SR_ASSIGNMENTS
WHERE sourcing_rule_id = p_Sourcing_Rule_rec.sourcing_rule_id;
dbms_output.put_line ('Cannot delete Sourcing Rule');
FND_MESSAGE.SET_TOKEN('OPERATION','DELETE');
, 'Entity_Delete'
);
END Entity_Delete;
IF p_Sourcing_Rule_rec.Last_Updated_By IS NOT NULL AND
( p_Sourcing_Rule_rec.Last_Updated_By <>
p_old_Sourcing_Rule_rec.Last_Updated_By OR
p_old_Sourcing_Rule_rec.Last_Updated_By IS NULL )
THEN
IF NOT Val_Last_Updated_By(p_Sourcing_Rule_rec.Last_Updated_By) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_Sourcing_Rule_rec.Last_Update_Date IS NOT NULL AND
( p_Sourcing_Rule_rec.Last_Update_Date <>
p_old_Sourcing_Rule_rec.Last_Update_Date OR
p_old_Sourcing_Rule_rec.Last_Update_Date IS NULL )
THEN
IF NOT Val_Last_Update_Date(p_Sourcing_Rule_rec.Last_Update_Date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_Sourcing_Rule_rec.Last_Update_Login IS NOT NULL AND
( p_Sourcing_Rule_rec.Last_Update_Login <>
p_old_Sourcing_Rule_rec.Last_Update_Login OR
p_old_Sourcing_Rule_rec.Last_Update_Login IS NULL )
THEN
IF NOT Val_Last_Update_Login(p_Sourcing_Rule_rec.Last_Update_Login) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF (p_Sourcing_Rule_rec.operation = MRP_Globals.G_OPR_UPDATE) AND
(p_old_Sourcing_Rule_rec.Organization_Id IS NOT NULL) THEN
-- organization_id changed while updating - NOT ALLOWED
FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
IF p_Sourcing_Rule_rec.Program_Update_Date IS NOT NULL AND
( p_Sourcing_Rule_rec.Program_Update_Date <>
p_old_Sourcing_Rule_rec.Program_Update_Date OR
p_old_Sourcing_Rule_rec.Program_Update_Date IS NULL )
THEN
IF NOT Val_Program_Update_Date(p_Sourcing_Rule_rec.Program_Update_Date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF (p_Sourcing_Rule_rec.operation = MRP_Globals.G_OPR_UPDATE) AND
(p_old_Sourcing_Rule_rec.Sourcing_Rule_Type IS NOT NULL) THEN
-- sourcing_rule_type changed while updating - NOT ALLOWED
FND_MESSAGE.SET_NAME('MRP','MRP_ATTRIBUTE_VALUE_ERROR');
FUNCTION Val_Last_Updated_By
( p_Last_Updated_By IN NUMBER
) RETURN BOOLEAN
IS
BEGIN
IF p_Last_Updated_By IS NULL OR
p_Last_Updated_By = FND_API.G_MISS_NUM
THEN
RETURN TRUE;
END Val_Last_Updated_By;
FUNCTION Val_Last_Update_Date
( p_Last_Update_Date IN DATE
) RETURN BOOLEAN
IS
BEGIN
IF p_Last_Update_Date IS NULL OR
p_Last_Update_Date = FND_API.G_MISS_DATE
THEN
RETURN TRUE;
END Val_Last_Update_Date;
FUNCTION Val_Last_Update_Login
( p_Last_Update_Login IN NUMBER
) RETURN BOOLEAN
IS
BEGIN
IF p_Last_Update_Login IS NULL OR
p_Last_Update_Login = FND_API.G_MISS_NUM
THEN
RETURN TRUE;
END Val_Last_Update_Login;
SELECT count(*)
INTO l_count
FROM MTL_PARAMETERS
WHERE organization_id = p_Organization_Id;
FUNCTION Val_Program_Update_Date
( p_Program_Update_Date IN DATE
) RETURN BOOLEAN
IS
BEGIN
IF p_Program_Update_Date IS NULL OR
p_Program_Update_Date = FND_API.G_MISS_DATE
THEN
RETURN TRUE;
END Val_Program_Update_Date;
SELECT count(*)
INTO l_count
FROM MRP_SOURCING_RULES
WHERE sourcing_rule_name = p_Sourcing_Rule_Name
AND organization_id = p_organization_id;