The following lines contain the word 'select', 'insert', 'update' or 'delete':
delete where per_budget record exists
of Training Plan type (OTA_BUDGET).
24-APR-2000 S Goyal 115.1 Updated chk_budget_exists to prevent
delete where pqh_budget record exists
============================================================================*/
-- ----------------------------------------------------------------------------
-- | Private Global Definitions |
-- ----------------------------------------------------------------------------
g_package varchar2(33) := ' PAY_CALENDARS_PKG.'; -- Global package name
SELECT NULL
FROM per_budgets pb
WHERE pb.period_set_name = X_Period_Set_Name
AND pb.budget_type_code = 'OTA_BUDGET';
SELECT NULL
FROM pqh_budgets pb
WHERE pb.period_set_name = X_Period_Set_Name;
hr_utility.set_message(800,'PER_52887_BUD_CAL_DELETE_FAIL');
hr_utility.set_message(800,'PQH_52887_BUD_CAL_DELETE_FAIL');
PROCEDURE Insert_Row(X_Rowid IN OUT nocopy VARCHAR2,
X_Period_Set_Name VARCHAR2,
X_Actual_Period_Type VARCHAR2,
X_Proc_Period_Type VARCHAR2,
X_Start_Date DATE,
X_Comments 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,
-- Extra Columns
X_Midpoint_Offset NUMBER) IS
--
CURSOR C IS SELECT rowid FROM pay_calendars
WHERE period_set_name = X_Period_Set_Name;
INSERT INTO pay_calendars
(period_set_name,
actual_period_type,
proc_period_type,
start_date,
comments,
attribute_category,
attribute1,
attribute2,
attribute3,
attribute4,
attribute5,
attribute6,
attribute7,
attribute8,
attribute9,
attribute10,
attribute11,
attribute12,
attribute13,
attribute14,
attribute15,
attribute16,
attribute17,
attribute18,
attribute19,
attribute20)
VALUES
(X_Period_Set_Name,
X_Actual_Period_Type,
X_Proc_Period_Type,
X_Start_Date,
X_Comments,
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);
hr_utility.set_message_token('PROCEDURE','pay_calendars_pkg.insert_row');
END Insert_Row;
CURSOR C IS SELECT * FROM pay_calendars
WHERE rowid = X_Rowid FOR UPDATE of Period_Set_Name NOWAIT;
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Period_Set_Name VARCHAR2,
X_Actual_Period_Type VARCHAR2,
X_Proc_Period_Type VARCHAR2,
X_Start_Date DATE,
X_Comments 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) IS
--
BEGIN
--
UPDATE pay_calendars
SET period_set_name = X_Period_Set_Name,
actual_period_type = X_Actual_Period_Type,
proc_period_type = X_Proc_Period_Type,
start_date = X_Start_Date,
comments = X_Comments,
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
WHERE rowid = X_rowid;
hr_utility.set_message_token('PROCEDURE','pay_calendars_pkg.update_row');
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2,
-- Extra Columns
X_Period_Set_Name VARCHAR2) IS
BEGIN
--
-- New check procedure added to prevent delete of calendar record
-- if per_budgets record of 'OTA_BUDGET' budget_type_code exists
chk_budget_exists(X_Period_Set_Name);
DELETE FROM pay_calendars
WHERE rowid = X_Rowid;
hr_utility.set_message_token('PROCEDURE','pay_calendars_pkg.delete_row');
END Delete_Row;