The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE select_row( recinfo IN OUT NOCOPY gl_budget_assignments%ROWTYPE) IS
BEGIN
SELECT *
INTO recinfo
FROM gl_budget_assignments
WHERE ledger_id = recinfo.ledger_id
AND code_combination_id = recinfo.code_combination_id
AND currency_code = recinfo.currency_code
AND rownum = 1;
END SELECT_ROW;
SELECT 'Duplicate'
FROM GL_BUDGET_ASSIGNMENTS ba
WHERE ba.ledger_id = lgr_id
AND ba.code_combination_id = ccid
AND ba.currency_code = curr_code
AND ba.range_id = rng_id
AND ( row_id is null
OR ba.rowid <> row_id);
PROCEDURE delete_range_assignments(xrange_id NUMBER) IS
BEGIN
DELETE GL_BUDGET_ASSIGNMENTS ba
WHERE ba.range_id = xrange_id;
'gl_budget_assignment_pkg.delete_range_assignments');
END delete_range_assignments;
PROCEDURE delete_assignment(lgr_id NUMBER, ccid NUMBER,
curr_code VARCHAR2, rng_id NUMBER) IS
BEGIN
DELETE GL_BUDGET_ASSIGNMENTS ba
WHERE ba.ledger_id = lgr_id
AND ba.code_combination_id = ccid
AND ba.currency_code = curr_code
AND ba.range_id = rng_id
AND rownum = 1;
'gl_budget_assignment_pkg.delete_assignment');
END delete_assignment;
SELECT 'Calculated'
FROM gl_budget_assignments ba
WHERE ba.ledger_id = xlgr_id
AND ba.code_combination_id = xccid
AND ba.currency_code = xcurr_code
AND ba.entry_code = 'C';
SELECT 'Stat Enterable'
FROM gl_budget_assignments ba
WHERE ba.ledger_id = xlgr_id
AND ba.code_combination_id = xccid
AND ba.currency_code = 'STAT'
AND ba.entry_code = 'E';
PROCEDURE select_columns( xlgr_id NUMBER,
xccid NUMBER,
xcurr_code VARCHAR2,
xentity_id IN OUT NOCOPY NUMBER,
xentry_code IN OUT NOCOPY VARCHAR2) IS
recinfo gl_budget_assignments%ROWTYPE;
select_row(recinfo);
END select_columns;
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_Ledger_Id NUMBER,
X_Budget_Entity_Id NUMBER,
X_Code_Combination_Id NUMBER,
X_Currency_Code VARCHAR2,
X_Entry_Code VARCHAR2,
X_Ordering_Value VARCHAR2,
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_Attribute6 VARCHAR2,
X_Attribute7 VARCHAR2,
X_Attribute8 VARCHAR2,
X_Context VARCHAR2,
X_Range_Id NUMBER
) IS
CURSOR C IS SELECT rowid FROM GL_BUDGET_ASSIGNMENTS
WHERE ledger_id = X_Ledger_Id
AND code_combination_id = X_Code_Combination_Id
AND currency_code = X_Currency_Code
AND range_id = X_Range_Id;
INSERT INTO GL_BUDGET_ASSIGNMENTS(
ledger_id,
budget_entity_id,
code_combination_id,
currency_code,
entry_code,
ordering_value,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
context,
range_id
) VALUES (
X_Ledger_Id,
X_Budget_Entity_Id,
X_Code_Combination_Id,
X_Currency_Code,
X_Entry_Code,
X_Ordering_Value,
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_Attribute6,
X_Attribute7,
X_Attribute8,
X_Context,
X_Range_Id
);
END Insert_Row;
SELECT *
FROM GL_BUDGET_ASSIGNMENTS
WHERE rowid = X_Rowid
FOR UPDATE of Ledger_Id NOWAIT;
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Ledger_Id NUMBER,
X_Budget_Entity_Id NUMBER,
X_Code_Combination_Id NUMBER,
X_Currency_Code VARCHAR2,
X_Entry_Code VARCHAR2,
X_Ordering_Value VARCHAR2,
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_Attribute6 VARCHAR2,
X_Attribute7 VARCHAR2,
X_Attribute8 VARCHAR2,
X_Context VARCHAR2,
X_Range_Id NUMBER
) IS
BEGIN
UPDATE GL_BUDGET_ASSIGNMENTS
SET
ledger_id = X_Ledger_Id,
budget_entity_id = X_Budget_Entity_Id,
code_combination_id = X_Code_Combination_Id,
currency_code = X_Currency_Code,
entry_code = X_Entry_Code,
ordering_value = X_Ordering_Value,
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,
attribute6 = X_Attribute6,
attribute7 = X_Attribute7,
attribute8 = X_Attribute8,
context = X_Context,
range_id = X_Range_Id
WHERE rowid = X_rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
BEGIN
DELETE FROM GL_BUDGET_ASSIGNMENTS
WHERE rowid = X_Rowid;
END Delete_Row;