The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Entity_Delete
( x_return_status OUT NOCOPY VARCHAR2
, p_Assignment_rec IN MRP_Src_Assignment_PUB.Assignment_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
, 'Entity_Delete'
);
END Entity_Delete;
IF p_Assignment_rec.Last_Updated_By IS NOT NULL AND
( p_Assignment_rec.Last_Updated_By <>
p_old_Assignment_rec.Last_Updated_By OR
p_old_Assignment_rec.Last_Updated_By IS NULL )
THEN
IF NOT Val_Last_Updated_By(p_Assignment_rec.Last_Updated_By) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_Assignment_rec.Last_Update_Date IS NOT NULL AND
( p_Assignment_rec.Last_Update_Date <>
p_old_Assignment_rec.Last_Update_Date OR
p_old_Assignment_rec.Last_Update_Date IS NULL )
THEN
IF NOT Val_Last_Update_Date(p_Assignment_rec.Last_Update_Date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_Assignment_rec.Last_Update_Login IS NOT NULL AND
( p_Assignment_rec.Last_Update_Login <>
p_old_Assignment_rec.Last_Update_Login OR
p_old_Assignment_rec.Last_Update_Login IS NULL )
THEN
IF NOT Val_Last_Update_Login(p_Assignment_rec.Last_Update_Login) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_Assignment_rec.Program_Update_Date IS NOT NULL AND
( p_Assignment_rec.Program_Update_Date <>
p_old_Assignment_rec.Program_Update_Date OR
p_old_Assignment_rec.Program_Update_Date IS NULL )
THEN
IF NOT Val_Program_Update_Date(p_Assignment_rec.Program_Update_Date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
SELECT count(*)
INTO l_count
FROM MRP_ASSIGNMENT_SETS
WHERE assignment_set_id = p_Assignment_Set_Id;
SELECT count(*)
INTO l_count
FROM mtl_categories mc,
mtl_category_sets mcs
WHERE mcs.category_set_id = p_Category_Set_Id
AND mc.structure_id = mcs.structure_id
AND mc.category_id = p_Category_Id;
SELECT count(*)
INTO l_count
FROM MTL_CATEGORY_SETS
WHERE category_set_id = p_Category_Set_Id;
SELECT count(*)
INTO l_count
FROM HZ_CUST_ACCOUNTS
WHERE cust_account_id = p_Customer_Id
AND status = 'A';
SELECT count(*)
INTO l_count
FROM mtl_system_items
WHERE organization_id = decode(p_organization_id,
NULL, organization_id,
FND_API.G_MISS_NUM, organization_id,
p_organization_id)
AND inventory_item_id = p_Inventory_Item_Id;
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 count(*)
INTO l_count
FROM HZ_CUST_SITE_USES_ALL RSU,
HZ_CUST_ACCT_SITES_ALL RA
WHERE RA.CUST_ACCOUNT_ID = p_Customer_id
AND RA.CUST_ACCT_SITE_ID = RSU.CUST_ACCT_SITE_ID
AND RSU.site_use_id = p_Ship_To_Site_Id
AND RSU.site_use_code in ('SHIP_TO','BILL_TO');
SELECT count(*)
INTO l_count
FROM MRP_SOURCING_RULES
WHERE sourcing_rule_id = p_Sourcing_Rule_Id
AND sourcing_rule_type = p_Sourcing_Rule_Type;