The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(
X_Rowid IN OUT NOCOPY VARCHAR2,
X_run_id NUMBER,
X_standing_charge_id NUMBER,
X_line_item_id NUMBER,
X_item_id NUMBER,
X_price NUMBER,
X_effective_date DATE,
X_revised_price NUMBER,
X_revised_effective_date DATE,
X_previous_price NUMBER,
X_previous_effective_date DATE,
X_updated_price NUMBER,
X_select_flag 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 igi_rpi_update_lines
WHERE run_id = X_run_id
and item_id = X_item_id
and standing_charge_id is not null;
INSERT INTO igi_rpi_update_lines (
run_id,
standing_charge_id,
line_item_id,
item_id,
price,
effective_date,
revised_price,
revised_effective_date,
previous_price,
previous_effective_date,
updated_price,
select_flag,
Created_By,
Creation_Date,
Last_Updated_by,
Last_Update_Date,
Last_Update_Login )
VALUES (
X_run_id,
X_standing_charge_id,
X_line_item_id,
X_item_id,
X_price,
X_effective_date,
X_revised_price,
X_revised_effective_date,
X_previous_price,
X_previous_effective_date,
X_updated_price,
X_select_flag,
X_Created_By,
X_Creation_Date,
X_Last_Updated_By,
X_Last_Update_Date,
X_Last_Update_Login);
END Insert_Row;
X_updated_price NUMBER,
X_select_flag VARCHAR2
) IS
CURSOR C IS
SELECT *
FROM igi_rpi_update_lines
WHERE rowid = X_Rowid
FOR UPDATE of run_id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_rpi_update_lines_d_pkg.lock_row.Msg1',FALSE);
AND ((Recinfo.updated_price = X_updated_price)
OR ((Recinfo.updated_price is null)
AND (X_updated_price is null)))
AND ((Recinfo.select_flag = rtrim(X_select_flag))
OR ((Recinfo.select_flag is null)
AND (rtrim(X_select_flag) is null)))
) then
return;
FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_rpi_update_lines_d_pkg.lock_row.Msg2',FALSE);
PROCEDURE Update_Row(
X_Rowid IN OUT NOCOPY VARCHAR2,
X_run_id NUMBER,
X_standing_charge_id NUMBER,
X_line_item_id NUMBER,
X_item_id NUMBER,
X_price NUMBER,
X_effective_date DATE,
X_revised_price NUMBER,
X_revised_effective_date DATE,
X_previous_price NUMBER,
X_previous_effective_date DATE,
X_updated_price NUMBER,
X_select_flag VARCHAR2,
X_Last_Updated_By NUMBER,
X_Last_Update_Date DATE,
X_Last_Update_Login NUMBER
) IS
BEGIN
UPDATE igi_rpi_update_lines
SET
run_id = X_run_id,
standing_charge_id = X_standing_charge_id,
line_item_id = X_line_item_id,
price = X_price,
effective_date = X_effective_date,
revised_price = X_revised_price,
revised_effective_date = X_revised_effective_date,
previous_price = X_previous_price,
previous_effective_date = X_previous_effective_date,
updated_price = X_updated_price,
select_flag = X_select_flag,
Last_Updated_By = X_Last_Updated_By,
Last_Update_Date = X_Last_Update_Date,
Last_Update_Login = X_Last_Update_Login
WHERE rowid = X_Rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
BEGIN
DELETE FROM igi_rpi_update_lines
WHERE rowid = X_Rowid;
END Delete_Row;