The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row( X_rowid IN OUT NOCOPY VARCHAR2
,X_rule_set_id IN OUT NOCOPY NUMBER
,X_name VARCHAR2
,X_chart_of_accounts_id NUMBER
,X_partial_allocation VARCHAR2
,X_enabled_flag VARCHAR2
,X_account_type VARCHAR2
,X_creation_date DATE
,X_created_by NUMBER
,X_last_updated_by NUMBER
,X_last_update_date DATE
,X_last_update_login NUMBER
,X_Context VARCHAR2
,X_attribute1 VARCHAR2
,X_attribute2 VARCHAR2
,X_attribute3 VARCHAR2
,X_attribute4 VARCHAR2
,X_attribute5 VARCHAR2
,X_attribute6 VARCHAR2
,X_attribute7 VARCHAR2
,X_attribute8 VARCHAR2
,X_attribute9 VARCHAR2
,X_attribute10 VARCHAR2
,X_attribute11 VARCHAR2
,X_attribute12 VARCHAR2
,X_attribute13 VARCHAR2
,X_attribute14 VARCHAR2
,X_attribute15 VARCHAR2 )
IS
CURSOR C IS SELECT rowid
FROM JG_ZZ_TA_RULE_SETS
WHERE rule_set_id = X_rule_set_id;
CURSOR C2 IS SELECT JG_ZZ_TA_RULE_SETS_S.nextval FROM sys.dual;
INSERT INTO JG_ZZ_TA_RULE_SETS
(
rule_set_id
,name
,chart_of_accounts_id
,partial_allocation
,enabled_flag
,account_type
,creation_date
,created_by
,last_updated_by
,last_update_date
,last_update_login
,context
,attribute1
,attribute2
,attribute3
,attribute4
,attribute5
,attribute6
,attribute7
,attribute8
,attribute9
,attribute10
,attribute11
,attribute12
,attribute13
,attribute14
,attribute15
)
VALUES
(
X_rule_set_id
,X_name
,X_chart_of_accounts_id
,X_partial_allocation
,X_enabled_flag
,X_account_type
,X_creation_date
,X_created_by
,X_last_updated_by
,X_last_update_date
,X_last_update_login
,X_context
,X_attribute1
,X_attribute2
,X_attribute3
,X_attribute4
,X_attribute5
,X_attribute6
,X_attribute7
,X_attribute8
,X_attribute9
,X_attribute10
,X_attribute11
,X_attribute12
,X_attribute13
,X_attribute14
,X_attribute15
);
END insert_row;
PROCEDURE Update_Row( X_rowid VARCHAR2
,X_rule_set_id NUMBER
,X_name VARCHAR2
,X_chart_of_accounts_id NUMBER
,X_partial_allocation VARCHAR2
,X_enabled_flag VARCHAR2
,X_account_type VARCHAR2
,X_creation_date DATE
,X_created_by NUMBER
,X_last_updated_by NUMBER
,X_last_update_date DATE
,X_last_update_login NUMBER
,X_Context VARCHAR2
,X_attribute1 VARCHAR2
,X_attribute2 VARCHAR2
,X_attribute3 VARCHAR2
,X_attribute4 VARCHAR2
,X_attribute5 VARCHAR2
,X_attribute6 VARCHAR2
,X_attribute7 VARCHAR2
,X_attribute8 VARCHAR2
,X_attribute9 VARCHAR2
,X_attribute10 VARCHAR2
,X_attribute11 VARCHAR2
,X_attribute12 VARCHAR2
,X_attribute13 VARCHAR2
,X_attribute14 VARCHAR2
,X_attribute15 VARCHAR2 )
IS
BEGIN
--
-- Standard ON-UPDATE routine
--
UPDATE JG_ZZ_TA_RULE_SETS
SET
rule_set_id = X_rule_set_id
,name = X_name
,chart_of_accounts_id = X_chart_of_accounts_id
,partial_allocation = X_partial_allocation
,enabled_flag = X_enabled_flag
,account_type = X_account_type
,creation_date = X_creation_date
,created_by = X_created_by
,last_updated_by = X_last_updated_by
,last_update_date = X_last_update_date
,last_update_login = X_last_update_login
,context = X_context
,attribute1 = X_attribute1
,attribute2 = X_attribute2
,attribute3 = X_attribute3
,attribute4 = X_attribute4
,attribute5 = X_attribute5
,attribute6 = X_attribute6
,attribute7 = X_attribute7
,attribute8 = X_attribute8
,attribute9 = X_attribute9
,attribute10 = X_attribute10
,attribute11 = X_attribute11
,attribute12 = X_attribute12
,attribute13 = X_attribute13
,attribute14 = X_attribute14
,attribute15 = X_attribute15
WHERE
rowid = X_rowid;
END Update_Row;
PROCEDURE Delete_Row( X_rowid VARCHAR2 ) IS
-- ITHEODOR CHANGE START
CURSOR Get_Children(P_rowid VARCHAR2) IS
SELECT Row_Id
FROM JG_ZZ_TA_CC_RANGES_V C
WHERE C.RULE_SET_ID = (SELECT P.RULE_SET_ID
FROM JG_ZZ_TA_RULE_SETS P
WHERE P.ROWID = P_rowid);
JG_ZZ_TA_CC_RANGES_PKG.Delete_Row( Rec.Row_id );
DELETE FROM JG_ZZ_TA_RULE_SETS
WHERE
ROWID = X_rowid;
END Delete_Row;
,X_last_updated_by NUMBER
,X_last_update_date DATE
,X_last_update_login NUMBER
,X_Context VARCHAR2
,X_attribute1 VARCHAR2
,X_attribute2 VARCHAR2
,X_attribute3 VARCHAR2
,X_attribute4 VARCHAR2
,X_attribute5 VARCHAR2
,X_attribute6 VARCHAR2
,X_attribute7 VARCHAR2
,X_attribute8 VARCHAR2
,X_attribute9 VARCHAR2
,X_attribute10 VARCHAR2
,X_attribute11 VARCHAR2
,X_attribute12 VARCHAR2
,X_attribute13 VARCHAR2
,X_attribute14 VARCHAR2
,X_attribute15 VARCHAR2 )
IS
CURSOR C IS
SELECT *
FROM JG_ZZ_TA_RULE_SETS
WHERE rowid = X_Rowid
FOR UPDATE of rule_set_id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');