The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT cn_revenue_classes_s.nextval
INTO X_revenue_class_id
FROM dual;
PROCEDURE insert_row
(x_revenue_class_id IN OUT NOCOPY NUMBER
,p_name VARCHAR2 := NULL
,p_description VARCHAR2 := NULL
,p_liability_account_id NUMBER := NULL
,p_expense_account_id NUMBER := NULL
,p_Created_By NUMBER
,p_Creation_Date DATE
,p_Last_Updated_By NUMBER
,p_Last_Update_Date DATE
,p_Last_Update_Login NUMBER
,p_org_id IN NUMBER)
IS
l_dummy NUMBER;
INSERT INTO cn_revenue_Classes
( ORG_ID
,revenue_class_id
,name
,DESCRIPTION
,liability_account_id
,expense_account_id
,object_version_number
,Created_By
,Creation_Date
,Last_Updated_By
,Last_Update_Date
,Last_Update_Login)
VALUES
( p_org_id
,x_revenue_class_id
,p_name
,p_DESCRIPTION
,p_liability_account_id
,p_expense_account_id
,1
,p_Created_By
,p_Creation_Date
,p_Last_Updated_By
,p_Last_Update_Date
,p_Last_Update_Login
);
END Insert_row;
PROCEDURE update_row
(p_revenue_class_id NUMBER
,p_name VARCHAR2
,p_description VARCHAR2
,p_liability_account_id NUMBER
,p_expense_account_id NUMBER
,p_object_version_number NUMBER
,p_Last_Updated_By NUMBER
,p_Last_Update_Date DATE
,p_Last_Update_Login NUMBER ) IS
l_revenue_class_id cn_revenue_classes.revenue_class_id%TYPE;
SELECT *
FROM cn_revenue_classes
WHERE revenue_class_id = p_revenue_class_id
FOR UPDATE of revenue_class_id NOWAIT;
fnd_message.Set_Name('FND', 'FORM_RECORD_DELETED');
SELECT decode(p_revenue_class_id,
fnd_api.g_miss_num, oldrow.revenue_class_id,
p_revenue_class_id),
decode(p_name,
fnd_api.g_miss_char, oldrow.name,
p_name),
decode(p_description,
fnd_api.g_miss_char, oldrow.description,
p_description),
decode(p_liability_account_id,
fnd_api.g_miss_num, oldrow.liability_account_id,
p_liability_account_id),
decode(p_expense_account_id,
fnd_api.g_miss_num, oldrow.expense_account_id,
p_expense_account_id)
INTO
l_revenue_class_id,
l_name ,
l_description ,
l_liability_account_id,
l_expense_account_id
FROM dual;
UPDATE cn_revenue_classes
SET
revenue_class_id = l_revenue_class_id,
object_version_number = nvl(p_object_version_number,0) + 1,
name = l_name,
description = l_description,
liability_account_id = l_liability_account_id,
expense_account_id = l_expense_account_id,
last_update_date = p_Last_Update_Date,
last_updated_by = p_Last_Updated_By,
last_update_login = p_Last_Update_Login
WHERE revenue_class_id = p_revenue_class_id;
UPDATE cn_hierarchy_nodes chn
SET chn.name = l_name
WHERE chn.external_id = l_revenue_class_id
AND chn.dim_hierarchy_id IN (
select dh.dim_hierarchy_id
from cn_dimensions d,
cn_obj_tables_v t,
cn_head_hierarchies h,
cn_dim_hierarchies dh
where d.source_table_id = t.table_id
and d.dimension_id = h.dimension_id
and h.head_hierarchy_id = dh.header_dim_hierarchy_id
and t.name = 'CN_REVENUE_CLASSES');
END Update_row;
PROCEDURE Delete_row( p_revenue_class_id NUMBER ) IS
BEGIN
DELETE FROM cn_revenue_classes
WHERE revenue_class_id = p_revenue_class_id ;
END Delete_row;