The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_Be_Batch_Id NUMBER,
X_Be_Header_Id NUMBER,
X_Be_Line_Num NUMBER,
X_Set_Of_Books_Id NUMBER,
X_Code_Combination_Id NUMBER,
X_Record_Type VARCHAR2,
X_Entered_Dr NUMBER,
X_Entered_Cr NUMBER,
X_Next_Year_Budget NUMBER,
X_Description VARCHAR2,
X_Fye_Pye_Entry VARCHAR2,
X_Profile_Code VARCHAR2,
X_Start_Period VARCHAR2,
X_Reason_Code VARCHAR2,
X_Recurring_Entry VARCHAR2,
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_LINES
WHERE be_header_id = X_Be_Header_Id
AND be_line_num = X_Be_Line_Num;
INSERT INTO IGI_BUD_JOURNAL_LINES(
be_batch_id,
be_header_id,
be_line_num,
set_of_books_id,
code_combination_id,
record_type,
entered_dr,
entered_cr,
next_year_budget,
description,
fye_pye_entry,
profile_code,
start_period,
reason_code,
recurring_entry,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login
) VALUES (
X_Be_Batch_Id,
X_Be_Header_Id,
X_Be_Line_Num,
X_Set_Of_Books_Id,
X_Code_Combination_Id,
X_Record_Type,
X_Entered_Dr,
X_Entered_Cr,
X_Next_Year_Budget,
X_Description,
X_Fye_Pye_Entry,
X_Profile_Code,
X_Start_Period,
X_Reason_Code,
X_Recurring_Entry,
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_LINES
WHERE rowid = X_Rowid
FOR UPDATE of Be_Header_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Be_Batch_Id NUMBER,
X_Be_Header_Id NUMBER,
X_Be_Line_Num NUMBER,
X_Set_Of_Books_Id NUMBER,
X_Code_Combination_Id NUMBER,
X_Record_Type VARCHAR2,
X_Entered_Dr NUMBER,
X_Entered_Cr NUMBER,
X_Next_Year_Budget NUMBER,
X_Description VARCHAR2,
X_Fye_Pye_Entry VARCHAR2,
X_Profile_Code VARCHAR2,
X_Start_Period VARCHAR2,
X_Reason_Code VARCHAR2,
X_Recurring_Entry VARCHAR2,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Last_Update_Login NUMBER
) IS
BEGIN
UPDATE IGI_BUD_JOURNAL_LINES
SET
be_batch_id = X_Be_Batch_Id,
be_header_id = X_Be_Header_Id,
be_line_num = X_Be_Line_Num,
set_of_books_id = X_Set_Of_Books_Id,
code_combination_id = X_Code_Combination_Id,
record_type = X_Record_Type,
entered_dr = X_Entered_Dr,
entered_cr = X_Entered_Cr,
next_year_budget = X_Next_Year_Budget,
description = X_Description,
fye_pye_entry = X_Fye_Pye_Entry,
profile_code = X_Profile_Code,
start_period = X_Start_Period,
reason_code = X_Reason_Code,
recurring_entry = X_Recurring_Entry,
last_update_date = X_Last_Update_Date,
last_updated_by = X_Last_Updated_By,
last_update_login = X_Last_Update_Login
WHERE rowid = X_Rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2,
X_Be_Header_Id NUMBER,
X_Be_Line_Num NUMBER) IS
cursor related_periods is
select p.rowid row_id
from igi_bud_journal_periods p
where p.be_header_id = X_Be_Header_Id
and p.be_line_num = X_Be_Line_Num;
DELETE FROM IGI_BUD_JOURNAL_LINES
WHERE rowid = X_Rowid;
igi_bud_journal_periods_pkg.delete_row(periods.row_id);
END Delete_Row;