The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_Be_Batch_Id IN OUT NOCOPY NUMBER,
X_Fiscal_Year NUMBER,
X_Name VARCHAR2,
X_Set_Of_Books_Id NUMBER,
X_Record_Type VARCHAR2,
X_Complete_Flag VARCHAR2,
X_Control_Total NUMBER,
X_Running_Total_Dr NUMBER,
X_Running_Total_Cr NUMBER,
X_Date_Completed DATE,
X_Creation_Date DATE,
X_Created_By NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Last_Update_Login NUMBER
) IS
CURSOR C IS SELECT rowid FROM IGI_BUD_JOURNAL_BATCHES
WHERE be_batch_id = X_Be_Batch_Id;
CURSOR C2 IS SELECT gl_interface_control_s.nextval FROM sys.dual;
INSERT INTO IGI_BUD_JOURNAL_BATCHES(
be_batch_id,
fiscal_year,
name,
set_of_books_id,
record_type,
complete_flag,
control_total,
running_total_dr,
running_total_cr,
date_completed,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login
) VALUES (
X_Be_Batch_Id,
X_Fiscal_Year,
X_Name,
X_Set_Of_Books_Id,
X_Record_Type,
X_Complete_Flag,
X_Control_Total,
X_Running_Total_Dr,
X_Running_Total_Cr,
X_Date_Completed,
X_Creation_Date,
X_Created_By,
X_Last_Update_Date,
X_Last_Updated_By,
X_Last_Update_Login
);
END Insert_Row;
SELECT *
FROM IGI_BUD_JOURNAL_BATCHES
WHERE rowid = X_Rowid
FOR UPDATE of Be_Batch_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Be_Batch_Id NUMBER,
X_Fiscal_Year NUMBER,
X_Name VARCHAR2,
X_Set_Of_Books_Id NUMBER,
X_Record_Type VARCHAR2,
X_Complete_Flag VARCHAR2,
X_Control_Total NUMBER,
X_Running_Total_Dr NUMBER,
X_Running_Total_Cr NUMBER,
X_Date_Completed DATE,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Last_Update_Login NUMBER,
X_REQUEST_ID NUMBER -- bug 5982297
) IS
BEGIN
UPDATE IGI_BUD_JOURNAL_BATCHES
SET
be_batch_id = X_Be_Batch_Id,
fiscal_year = X_Fiscal_Year,
name = X_Name,
set_of_books_id = X_Set_Of_Books_Id,
record_type = X_Record_Type,
complete_flag = X_Complete_Flag,
control_total = X_Control_Total,
running_total_dr = X_Running_Total_Dr,
running_total_cr = X_Running_Total_Cr,
date_completed = X_Date_Completed,
last_update_date = X_Last_Update_Date,
last_updated_by = X_Last_Updated_By,
last_update_login = X_Last_Update_Login,
request_id = X_REQUEST_ID -- bug 5982297
WHERE rowid = X_Rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2,
X_Be_Batch_Id NUMBER) IS
cursor related_headers is
select h.rowid row_id, h.be_header_id
from igi_bud_journal_headers h
where h.be_batch_id = X_Be_Batch_Id;
DELETE FROM IGI_BUD_JOURNAL_BATCHES
WHERE rowid = X_Rowid;
igi_bud_journal_headers_pkg.delete_row(header.row_id,
header.be_header_id);
END Delete_Row;