The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT NULL
INTO l_result
FROM per_budgets b
WHERE UPPER(X_Name) = UPPER(b.Name)
AND UPPER(X_Budget_Type_Code) = UPPER(b.Budget_Type_Code)
AND X_Business_Group_Id = b.Business_Group_Id + 0
AND (b.Rowid <> X_Rowid or X_Rowid is null);
SELECT NULL
FROM per_budget_versions bdv, per_budgets bd
WHERE bdv.budget_id = bd.budget_id
AND bdv.budget_version_id = X_Budget_Version_Id
AND bd.budget_type_code = 'OTA_BUDGET';
SELECT NULL
FROM per_budgets pb
WHERE pb.budget_id = X_Budget_Id
AND budget_type_code = 'OTA_BUDGET';
SELECT NULL
FROM per_budgets pb
WHERE pb.rowid = X_Rowid
AND budget_type_code = 'OTA_BUDGET';
l_stmt_chk_tpc_exist varchar2(32000) := 'select ''Y'' from all_tables
where table_name = ''OTA_TP_MEASUREMENT_TYPES''
and owner = '''||l_owner||'''';
l_stmt_get_tpc_rows varchar2(32000) := 'select ''Y'' from OTA_TP_MEASUREMENT_TYPES --
where upper(tp_measurement_code) = upper('''||X_unit ||''') --
and business_group_id = '||X_Business_Group_id;
SELECT null
FROM pay_calendars pc
WHERE pc.period_set_name = X_Period_Set_Name;
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_Budget_Id IN OUT NOCOPY NUMBER,
X_Business_Group_Id NUMBER,
X_Period_Set_Name VARCHAR2,
X_Name VARCHAR2,
X_Comments VARCHAR2,
X_Unit VARCHAR2,
X_Attribute_Category 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,
X_Attribute16 VARCHAR2,
X_Attribute17 VARCHAR2,
X_Attribute18 VARCHAR2,
X_Attribute19 VARCHAR2,
X_Attribute20 VARCHAR2,
X_Budget_Type_Code VARCHAR2
) IS
CURSOR C1 IS SELECT rowid FROM PER_BUDGETS
WHERE budget_id = X_budget_id;
CURSOR C2 IS SELECT per_budgets_s.nextval FROM dual;
l_proc VARCHAR2(72) := g_package||'Insert_Row';
INSERT INTO PER_BUDGETS(
budget_id,
business_group_id,
period_set_name,
name,
comments,
unit,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
attribute16,
attribute17,
attribute18,
attribute19,
attribute20,
budget_type_code
) VALUES (
X_budget_id,
X_Business_Group_Id,
X_Period_Set_Name,
l_name,
X_Comments,
X_Unit,
X_Attribute_Category,
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,
X_Attribute16,
X_Attribute17,
X_Attribute18,
X_Attribute19,
X_Attribute20,
X_Budget_Type_Code
);
hr_utility.set_message_token('PROCEDURE','Insert_Row');
END Insert_Row;
SELECT *
FROM PER_BUDGETS
WHERE rowid = X_Rowid
FOR UPDATE of Budget_Id NOWAIT;
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Budget_Id NUMBER,
X_Business_Group_Id NUMBER,
X_Period_Set_Name VARCHAR2,
X_Name VARCHAR2,
X_Comments VARCHAR2,
X_Unit VARCHAR2,
X_Attribute_Category 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,
X_Attribute16 VARCHAR2,
X_Attribute17 VARCHAR2,
X_Attribute18 VARCHAR2,
X_Attribute19 VARCHAR2,
X_Attribute20 VARCHAR2,
X_Budget_Type_Code VARCHAR2
) IS
l_proc VARCHAR2(72) := g_package||'Update_Row';
UPDATE PER_BUDGETS
SET
budget_id = X_Budget_Id,
business_group_id = X_Business_Group_Id,
period_set_name = X_Period_Set_Name,
name = X_Name,
comments = X_Comments,
unit = X_Unit,
attribute_category = X_Attribute_Category,
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,
attribute16 = X_Attribute16,
attribute17 = X_Attribute17,
attribute18 = X_Attribute18,
attribute19 = X_Attribute19,
attribute20 = X_Attribute20,
budget_type_code = X_Budget_Type_Code
WHERE rowid = X_rowid;
hr_utility.set_message_token('PROCEDURE','Update_Row');
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
--
CURSOR C_Version is SELECT Rowid
FROM per_budget_versions pbv
where pbv.budget_id = (SELECT pb.budget_id
FROM per_budgets pb
WHERE pb.Rowid = X_Rowid);
l_proc VARCHAR2(72) := g_package||'Delete_Row';
PER_BUDGET_VERSION_RULES_PKG.Delete_Row(X_Rowid => l_ver_rowid);
hr_utility.set_message(800,'PER_52872_BUD_DELETE_FAIL');
DELETE FROM PER_BUDGETS
WHERE rowid = X_Rowid;
hr_utility.set_message_token('PROCEDURE','Delete_Row');
END Delete_Row;