The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_Ledger_Id NUMBER,
X_Je_Source_Name VARCHAR2,
X_Je_Category_Name VARCHAR2,
X_Code_Combination_Id NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Creation_Date DATE,
X_Created_By NUMBER,
X_Last_Update_Login NUMBER,
X_Attribute1 VARCHAR2,
X_Attribute2 VARCHAR2,
X_Attribute3 VARCHAR2,
X_Attribute4 VARCHAR2,
X_Attribute5 VARCHAR2,
X_Context VARCHAR2
) IS
CURSOR C IS SELECT rowid FROM GL_SUSPENSE_ACCOUNTS
WHERE ledger_id = X_Ledger_Id
AND je_source_name = X_Je_Source_Name
AND je_category_name = X_Je_Category_Name
AND code_combination_id = X_Code_Combination_Id;
INSERT INTO GL_SUSPENSE_ACCOUNTS(
ledger_id,
je_source_name,
je_category_name,
code_combination_id,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
context
) VALUES (
X_Ledger_Id,
X_Je_Source_Name,
X_Je_Category_Name,
X_Code_Combination_Id,
X_Last_Update_Date,
X_Last_Updated_By,
X_Creation_Date,
X_Created_By,
X_Last_Update_Login,
X_Attribute1,
X_Attribute2,
X_Attribute3,
X_Attribute4,
X_Attribute5,
X_Context
);
END Insert_Row;
SELECT *
FROM GL_SUSPENSE_ACCOUNTS
WHERE rowid = X_Rowid
FOR UPDATE of Ledger_Id NOWAIT;
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Ledger_Id NUMBER,
X_Je_Source_Name VARCHAR2,
X_Je_Category_Name VARCHAR2,
X_Code_Combination_Id NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Last_Update_Login NUMBER,
X_Attribute1 VARCHAR2,
X_Attribute2 VARCHAR2,
X_Attribute3 VARCHAR2,
X_Attribute4 VARCHAR2,
X_Attribute5 VARCHAR2,
X_Context VARCHAR2
) IS
BEGIN
UPDATE GL_SUSPENSE_ACCOUNTS
SET
ledger_id = X_Ledger_Id,
je_source_name = X_Je_Source_Name,
je_category_name = X_Je_Category_Name,
code_combination_id = X_Code_Combination_Id,
last_update_date = X_Last_Update_Date,
last_updated_by = X_Last_Updated_By,
last_update_login = X_Last_Update_Login,
attribute1 = X_Attribute1,
attribute2 = X_Attribute2,
attribute3 = X_Attribute3,
attribute4 = X_Attribute4,
attribute5 = X_Attribute5,
context = X_Context
WHERE rowid = X_rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
BEGIN
DELETE FROM GL_SUSPENSE_ACCOUNTS
WHERE rowid = X_Rowid;
END Delete_Row;
SELECT 1
FROM GL_SUSPENSE_ACCOUNTS sa
WHERE sa.je_source_name = X_Je_Source_Name
AND sa.je_category_name = X_Je_Category_Name
AND sa.ledger_id = X_Ledger_Id
AND ( X_Rowid is NULL
OR sa.rowid <> X_Rowid);
SELECT 'found'
FROM GL_SUSPENSE_ACCOUNTS sa
WHERE sa.LEDGER_ID = x_ledger_id
AND sa.JE_SOURCE_NAME = 'Other'
AND sa.JE_CATEGORY_NAME = 'Other';
PROCEDURE insert_ledger_suspense( x_ledger_id NUMBER,
x_code_combination_id NUMBER,
x_last_update_date DATE,
x_last_updated_by NUMBER ) IS
BEGIN
LOCK TABLE GL_SUSPENSE_ACCOUNTS IN SHARE UPDATE MODE;
INSERT INTO gl_suspense_accounts
( ledger_id,
je_source_name,
je_category_name,
code_combination_id,
last_update_date,
last_updated_by )
VALUES
( x_ledger_id,
'Other',
'Other',
x_code_combination_id,
sysdate,
x_last_updated_by );
'GL_SUSPENSE_ACCOUNTS_PKG.insert_ledger_suspense');
END insert_ledger_suspense;
PROCEDURE update_ledger_suspense( x_ledger_id NUMBER,
x_code_combination_id NUMBER,
x_last_update_date DATE,
x_last_updated_by NUMBER ) IS
BEGIN
LOCK TABLE GL_SUSPENSE_ACCOUNTS IN SHARE UPDATE MODE;
DELETE FROM gl_suspense_accounts
WHERE ledger_id = x_ledger_id
AND je_source_name = 'Other'
AND je_category_name = 'Other';
UPDATE gl_suspense_accounts
SET code_combination_id = x_code_combination_id,
last_update_date = x_last_update_date,
last_updated_by = x_last_updated_by
WHERE ledger_id = x_ledger_id
AND je_source_name = 'Other'
AND je_category_name = 'Other';
'GL_SUSPENSE_ACCOUNTS_PKG.update_ledger_suspense');
END update_ledger_suspense;