The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(
X_Rowid IN OUT NOCOPY VARCHAR2,
/*MOAC Impact Bug No 5905216*/
X_org_id NUMBER,
X_run_id NUMBER,
X_item_id_from NUMBER,
X_item_id_to NUMBER,
X_effective_date DATE,
X_option_flag VARCHAR2,
X_amount NUMBER,
X_percentage_amount NUMBER,
X_status VARCHAR2,
X_process_id NUMBER,
X_Created_By NUMBER,
X_Creation_Date DATE,
X_Last_Updated_By NUMBER,
X_Last_Update_Date DATE,
X_Last_Update_Login NUMBER,
X_Incr_Decr_Flag VARCHAR2
) IS
CURSOR C IS SELECT rowid FROM igi_rpi_update_hdr
WHERE run_id = X_run_id;
INSERT INTO igi_rpi_update_hdr (
run_id,
org_id,
item_id_from,
item_id_to,
effective_date,
option_flag,
amount,
percentage_amount,
status,
process_id,
Created_By,
Creation_Date,
Last_Updated_by,
Last_Update_Date,
Last_Update_Login ,
Incr_decr_flag
)
VALUES (
X_run_id,
X_org_id,
X_item_id_from,
X_item_id_to,
X_effective_date,
X_option_flag,
X_amount,
X_percentage_amount,
X_status,
X_process_id,
X_Created_By,
X_Creation_Date,
X_Last_Updated_By,
X_Last_Update_Date,
X_Last_Update_Login,
X_Incr_Decr_Flag);
END Insert_Row;
SELECT *
FROM igi_rpi_update_hdr
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_hdr_pkg.lock_row.Msg1',FALSE);
FND_LOG.MESSAGE(l_unexp_level,'igi.plsql.igi_rpi_update_hdr_pkg.lock_row.Msg2',FALSE);
PROCEDURE Update_Row(
X_Rowid IN OUT NOCOPY VARCHAR2,
X_run_id NUMBER,
X_item_id_from NUMBER,
X_item_id_to NUMBER,
X_effective_date DATE,
X_option_flag VARCHAR2,
X_amount NUMBER,
X_percentage_amount NUMBER,
X_status VARCHAR2,
X_process_id NUMBER,
X_Last_Updated_By NUMBER,
X_Last_Update_Date DATE,
X_Last_Update_Login NUMBER,
X_Incr_Decr_Flag VARCHAR2
) IS
BEGIN
UPDATE igi_rpi_update_hdr
SET
run_id = X_run_id,
item_id_from = X_item_id_from,
item_id_to = X_item_id_to,
effective_date = X_effective_date,
option_flag = X_option_flag,
amount = X_amount,
percentage_amount = X_percentage_amount,
status = X_status,
process_id = X_process_id,
Last_Updated_By = X_Last_Updated_By,
Last_Update_Date = X_Last_Update_Date,
Last_Update_Login = X_Last_Update_Login ,
Incr_Decr_Flag = X_Incr_Decr_Flag
WHERE rowid = X_Rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
BEGIN
DELETE FROM igi_rpi_update_hdr
WHERE rowid = X_Rowid;
END Delete_Row;