The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Entity_Delete
( x_return_status OUT NOCOPY VARCHAR2
, p_Receiving_Org_rec IN MRP_Sourcing_Rule_PUB.Receiving_Org_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
SELECT count(*)
INTO l_count
FROM MRP_SR_RECEIPT_ORG
WHERE sourcing_rule_id = p_Receiving_Org_rec.sourcing_rule_id
AND sr_receipt_id <> p_Receiving_Org_rec.sr_receipt_id;
FND_MESSAGE.SET_TOKEN('OPERATION','DELETE');
, 'Entity_Delete'
);
END Entity_Delete;
IF p_Receiving_Org_rec.Last_Updated_By IS NOT NULL AND
( p_Receiving_Org_rec.Last_Updated_By <>
p_old_Receiving_Org_rec.Last_Updated_By OR
p_old_Receiving_Org_rec.Last_Updated_By IS NULL )
THEN
IF NOT Val_Last_Updated_By(p_Receiving_Org_rec.Last_Updated_By) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_Receiving_Org_rec.Last_Update_Date IS NOT NULL AND
( p_Receiving_Org_rec.Last_Update_Date <>
p_old_Receiving_Org_rec.Last_Update_Date OR
p_old_Receiving_Org_rec.Last_Update_Date IS NULL )
THEN
IF NOT Val_Last_Update_Date(p_Receiving_Org_rec.Last_Update_Date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_Receiving_Org_rec.Last_Update_Login IS NOT NULL AND
( p_Receiving_Org_rec.Last_Update_Login <>
p_old_Receiving_Org_rec.Last_Update_Login OR
p_old_Receiving_Org_rec.Last_Update_Login IS NULL )
THEN
IF NOT Val_Last_Update_Login(p_Receiving_Org_rec.Last_Update_Login) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_Receiving_Org_rec.Program_Update_Date IS NOT NULL AND
( p_Receiving_Org_rec.Program_Update_Date <>
p_old_Receiving_Org_rec.Program_Update_Date OR
p_old_Receiving_Org_rec.Program_Update_Date IS NULL )
THEN
IF NOT Val_Program_Update_Date(p_Receiving_Org_rec.Program_Update_Date) THEN
x_return_status := FND_API.G_RET_STS_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;
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 organization_id
FROM mrp_sourcing_rules
WHERE sourcing_rule_id = p_sourcing_rule_id;
SELECT count(*)
INTO l_count
FROM MTL_PARAMETERS
WHERE organization_id = p_Receipt_Organization_Id;