The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'Duplicate'
FROM xtr_forecast_periods cfc
WHERE cfc.forecast_header_id = X_forecast_header_id
AND cfc.period_number = X_period_number
AND (X_rowid IS NULL
OR cfc.rowid <> chartorowid(X_rowid));
PROCEDURE Insert_Row(
X_rowid IN OUT VARCHAR2,
X_forecast_period_id IN OUT NUMBER,
X_forecast_header_id NUMBER,
X_period_number NUMBER,
X_level_of_summary VARCHAR2,
X_length_of_period NUMBER,
X_length_type VARCHAR2,
X_created_by NUMBER,
X_creation_date DATE,
X_last_updated_by NUMBER,
X_last_update_date DATE,
X_last_update_login NUMBER
) IS
CURSOR C IS SELECT rowid FROM xtr_forecast_periods
WHERE forecast_period_id = TO_NUMBER(X_forecast_period_id);
CURSOR C2 IS SELECT ce_forecast_columns_s.nextval FROM sys.dual;
INSERT INTO xtr_forecast_periods(
forecast_period_id,
forecast_header_id,
period_number,
level_of_summary,
length_of_period,
length_type,
created_by,
creation_date,
last_updated_by,
last_update_date,
last_update_login
) VALUES (
X_forecast_period_id,
X_forecast_header_id,
X_period_number,
X_level_of_summary,
X_length_of_period,
X_length_type,
X_created_by,
X_creation_date,
X_last_updated_by,
X_last_update_date,
X_last_update_login
);
END Insert_Row;
X_last_updated_by NUMBER,
X_last_update_date DATE,
X_last_update_login NUMBER
) IS
CURSOR C IS
SELECT *
FROM xtr_forecast_periods
WHERE rowid = X_rowid
FOR UPDATE of forecast_period_id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Row(
X_rowid VARCHAR2,
X_forecast_period_id NUMBER,
X_forecast_header_id NUMBER,
X_period_number NUMBER,
X_level_of_summary VARCHAR2,
X_length_of_period NUMBER,
X_length_type VARCHAR2,
X_created_by NUMBER,
X_creation_date DATE,
X_last_updated_by NUMBER,
X_last_update_date DATE,
X_last_update_login NUMBER
) IS
BEGIN
UPDATE xtr_forecast_periods
SET
forecast_period_id = X_forecast_period_id,
forecast_header_id = X_forecast_header_id,
period_number = X_period_number,
level_of_summary = X_level_of_summary,
length_of_period = X_length_of_period,
length_type = X_length_type
WHERE rowid = X_rowid;
END Update_Row;
PROCEDURE Delete_Row(X_rowid VARCHAR2) IS
BEGIN
DELETE FROM xtr_forecast_periods
WHERE rowid = X_rowid;
END Delete_Row;