The following lines contain the word 'select', 'insert', 'update' or 'delete':
ELSIF l_Assignment_Set_rec.operation = MRP_Globals.G_OPR_UPDATE
OR l_Assignment_Set_rec.operation = MRP_Globals.G_OPR_DELETE
THEN
l_Assignment_Set_rec.db_flag := FND_API.G_TRUE;
IF l_Assignment_Set_rec.operation = MRP_Globals.G_OPR_DELETE THEN
MRP_Validate_Assignment_Set.Entity_Delete
( x_return_status => l_return_status
, p_Assignment_Set_rec => l_Assignment_Set_rec
);
IF l_Assignment_Set_rec.operation = MRP_Globals.G_OPR_DELETE THEN
MRP_Assignment_Set_Handlers.Delete_Row
( p_Assignment_Set_Id => l_Assignment_Set_rec.Assignment_Set_Id
);
l_Assignment_Set_rec.last_update_date := SYSDATE;
l_Assignment_Set_rec.last_updated_by := FND_GLOBAL.USER_ID;
l_Assignment_Set_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
IF l_Assignment_Set_rec.operation = MRP_Globals.G_OPR_UPDATE THEN
MRP_Assignment_Set_Handlers.Update_Row (l_Assignment_Set_rec);
MRP_Assignment_Set_Handlers.Insert_Row (l_Assignment_Set_rec);
ELSIF l_Assignment_rec.operation = MRP_Globals.G_OPR_UPDATE
OR l_Assignment_rec.operation = MRP_Globals.G_OPR_DELETE
THEN
l_Assignment_rec.db_flag := FND_API.G_TRUE;
IF l_Assignment_rec.operation = MRP_Globals.G_OPR_DELETE THEN
MRP_Validate_Assignment.Entity_Delete
( x_return_status => l_return_status
, p_Assignment_rec => l_Assignment_rec
);
IF l_Assignment_rec.operation = MRP_Globals.G_OPR_DELETE THEN
MRP_Assignment_Handlers.Delete_Row
( p_Assignment_Id => l_Assignment_rec.Assignment_Id
);
l_Assignment_rec.last_update_date := SYSDATE;
l_Assignment_rec.last_updated_by := FND_GLOBAL.USER_ID;
l_Assignment_rec.last_update_login := FND_GLOBAL.LOGIN_ID;
IF l_Assignment_rec.operation = MRP_Globals.G_OPR_UPDATE THEN
MRP_Assignment_Handlers.Update_Row (l_Assignment_rec);
MRP_Assignment_Handlers.Insert_Row (l_Assignment_rec);
SELECT organization_id
INTO l_src_rule_org_id
FROM MRP_SOURCING_RULES
WHERE sourcing_rule_id = l_Assignment_rec.sourcing_rule_id;
SELECT organization_id
INTO l_organization_id
FROM mrp_cust_sup_org_v
WHERE Customer_Id = to_char(l_Assignment_rec.Customer_Id)
AND Ship_To_Site_Id = to_char(l_Assignment_rec.Ship_To_Site_Id);
UPDATE mrp_sr_assignments
SET organization_id = l_organization_id
WHERE assignment_id = l_Assignment_rec.assignment_id;