The following lines contain the word 'select', 'insert', 'update' or 'delete':
G_LAST_UPDATE_DATE DATE := Sysdate;
G_LAST_UPDATED_BY NUMBER := fnd_global.user_id;
G_LAST_UPDATE_LOGIN NUMBER := fnd_global.login_id;
select count(1)
from cn_revenue_classes
where name = p_revenue_class_name and org_id = p_org_id;
x_loading_status := 'CN_INSERTED';
CN_REVENUE_CLASS_PKG.insert_row
(x_revenue_class_id => x_revenue_class_id
,p_name => p_revenue_class_rec.name
,p_description => p_revenue_class_rec.description
,p_liability_account_id => p_revenue_class_rec.liability_account_id
,p_expense_account_id => p_revenue_class_rec.expense_account_id
,p_creation_date => sysdate
,p_created_by => g_created_by
,p_last_update_date => sysdate
,p_last_updated_by => g_last_updated_by
,p_last_update_login => g_last_update_login
,p_org_id => p_org_id);
PROCEDURE Update_Revenue_class
( p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_loading_status OUT NOCOPY VARCHAR2,
pold_revenue_class_rec IN OUT NOCOPY CN_REVENUE_CLASS_PVT.revenue_class_rec_type,
p_revenue_class_rec IN OUT NOCOPY CN_REVENUE_CLASS_PVT.revenue_class_rec_type
) IS
CURSOR l_ovn_csr IS
SELECT nvl(object_version_number,1)
FROM cn_revenue_classes
WHERE revenue_class_id = p_revenue_class_rec.revenue_class_id;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Revenue_Class';
select count(1)
from cn_revenue_classes
where name = p_revenue_class_name
and revenue_class_id <> p_revenue_class_id;
SAVEPOINT Update_Revenue_Class;
x_loading_status := 'CN_UPDATED';
CN_REVENUE_CLASS_PKG.update_row
(p_revenue_class_id => p_revenue_class_rec.revenue_class_id
,p_name => p_revenue_class_rec.name
,p_description => p_revenue_class_rec.description
,p_liability_account_id => p_revenue_class_rec.liability_account_id
,p_expense_account_id => p_revenue_class_rec.expense_account_id
,p_object_version_number=> p_revenue_class_rec.object_version_number
,p_last_update_date => sysdate
,p_last_updated_by => g_last_updated_by
,p_last_update_login => g_last_update_login);
ROLLBACK TO Update_Revenue_Class;
ROLLBACK TO Update_Revenue_Class;
ROLLBACK TO Update_Revenue_Class;
PROCEDURE Delete_Revenue_Class
( p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_loading_status OUT NOCOPY VARCHAR2,
p_revenue_class_id IN NUMBER
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Revenue_Class';
select name
from cn_revenue_classes
where revenue_class_id = p_revenue_class_id;
SAVEPOINT Delete_Revenue_class;
SELECT NVL(TO_NUMBER(DECODE(SUBSTRB(USERENV('CLIENT_INFO'),1,1), ' ', NULL,
SUBSTRB(USERENV('CLIENT_INFO'),1,10))),-99)
INTO l_env_org_id FROM dual;
SELECT count(rule_id)
INTO l_rule_count
FROM cn_rules_all_b
WHERE revenue_class_id = p_revenue_class_id
AND NVL(ORG_ID, l_env_org_id) = l_env_org_id;
SELECT count(quota_rule_id)
INTO l_quota_rule_count
FROM cn_quota_rules
WHERE revenue_class_id = p_revenue_Class_id;
SELECT nvl(MAX(ref_count),0)
INTO l_hierarchy_count
FROM cn_hierarchy_nodes chn , cn_dim_hierarchies cdh
WHERE chn.external_id = p_revenue_Class_id
AND chn.dim_hierarchy_id = cdh.dim_hierarchy_id
AND cdh.header_dim_hierarchy_id = -1001;
DELETE FROM cn_hierarchy_nodes
WHERE external_id = p_revenue_Class_id
AND dim_hierarchy_id IN (SELECT dim_hierarchy_id
FROM cn_dim_hierarchies
WHERE header_dim_hierarchy_id = -1001);
CN_REVENUE_CLASS_PKG.Delete_row(p_revenue_Class_id);
ROLLBACK TO Delete_Revenue_Class;
ROLLBACK TO Delete_Revenue_Class;
ROLLBACK TO Delete_Revenue_Class;