The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(X_It_Service_Line_Id IN OUT NOCOPY NUMBER,
X_It_Header_Id NUMBER,
X_It_Line_Num NUMBER,
X_Set_Of_Books_Id NUMBER,
X_Charge_Center_Id NUMBER,
X_Effective_Date DATE,
X_Entered_Dr NUMBER,
X_Entered_Cr NUMBER,
X_Description VARCHAR2,
X_Status_Flag VARCHAR2,
X_Posting_Flag VARCHAR2,
X_Submit_Date DATE,
X_Suggested_Amount NUMBER,
X_Rejection_Note VARCHAR2,
X_Receiving_Ccid NUMBER,
X_Creation_Ccid NUMBER,
X_Charge_Service_Id NUMBER,
X_Failed_Funds_Lookup_Code VARCHAR2,
X_Encumbrance_Flag VARCHAR2,
X_Encumbered_Amount NUMBER,
X_Unencumbered_Amount NUMBER,
X_Gl_Encumbered_Date DATE,
X_Gl_Encumbered_Period_Name VARCHAR2,
X_Gl_Cancelled_Date DATE,
X_Prevent_Encumbrance_Flag VARCHAR2,
X_Je_Header_Id NUMBER,
X_Reversal_Flag VARCHAR2,
X_Creation_Date DATE,
X_Created_By NUMBER,
X_Last_Update_Login NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER
) IS
/*
CURSOR C IS SELECT rowid
FROM igi_itr_charge_lines_audit
WHERE it_service_line_id = X_It_Service_Line_Id;
INSERT INTO igi_itr_charge_lines_audit(
it_service_line_id,
it_header_id,
it_line_num,
set_of_books_id,
charge_center_id,
effective_date,
entered_dr,
entered_cr,
description,
status_flag,
posting_flag,
submit_date,
suggested_amount,
rejection_note,
receiving_code_combination_id,
creation_code_combination_id,
charge_service_id,
failed_funds_lookup_code,
encumbrance_flag,
encumbered_amount,
unencumbered_amount,
gl_encumbered_date,
gl_encumbered_period_name,
gl_cancelled_date,
prevent_encumbrance_flag,
je_header_id,
reversal_flag,
creation_date,
created_by,
last_update_login,
last_update_date,
last_updated_by
) VALUES (
X_It_Service_Line_Id,
X_It_Header_Id,
X_It_Line_Num,
X_Set_Of_Books_Id,
X_Charge_Center_Id,
X_Effective_Date,
X_Entered_Dr,
X_Entered_Cr,
X_Description,
X_Status_Flag,
X_Posting_Flag,
X_Submit_Date,
X_Suggested_Amount,
X_Rejection_Note,
X_Receiving_Ccid,
X_Creation_Ccid,
X_Charge_Service_Id,
X_Failed_Funds_Lookup_Code,
X_Encumbrance_Flag,
X_Encumbered_Amount,
X_Unencumbered_Amount,
X_Gl_Encumbered_Date,
X_Gl_Encumbered_Period_Name,
X_Gl_Cancelled_Date,
X_Prevent_Encumbrance_Flag,
X_Je_Header_Id,
X_Reversal_Flag,
X_Creation_Date,
X_Created_By,
X_Last_Update_Login,
X_Last_Update_Date,
X_Last_Updated_By
);
END Insert_Row;
SELECT *
FROM igi_itr_charge_lines_audit
WHERE it_service_line_id = X_It_Service_Line_Id
AND reversal_flag = 'N'
FOR UPDATE of it_service_line_id NOWAIT;
fnd_message.set_name('FND','FORM_RECORD_DELETED');
PROCEDURE Update_Row(X_It_Service_Line_Id IN OUT NOCOPY NUMBER,
X_It_Header_Id NUMBER,
X_It_Line_Num NUMBER,
X_Set_Of_Books_Id NUMBER,
X_Charge_Center_Id NUMBER,
X_Effective_Date DATE,
X_Entered_Dr NUMBER,
X_Entered_Cr NUMBER,
X_Description VARCHAR2,
X_Status_Flag VARCHAR2,
X_Posting_Flag VARCHAR2,
X_Submit_Date DATE,
X_Suggested_Amount NUMBER,
X_Rejection_Note VARCHAR2,
X_Receiving_Ccid NUMBER,
X_Creation_Ccid NUMBER,
X_Charge_Service_Id NUMBER,
X_Failed_Funds_Lookup_Code VARCHAR2,
X_Encumbrance_Flag VARCHAR2,
X_Encumbered_Amount NUMBER,
X_Unencumbered_Amount NUMBER,
X_Gl_Encumbered_Date DATE,
X_Gl_Encumbered_Period_Name VARCHAR2,
X_Gl_Cancelled_Date DATE,
X_Prevent_Encumbrance_Flag VARCHAR2,
X_Je_Header_Id NUMBER,
X_Reversal_Flag VARCHAR2,
X_Last_Update_Login NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER
) IS
BEGIN
UPDATE igi_itr_charge_lines_audit
SET
it_service_line_id = X_It_Service_Line_Id,
it_header_id = X_It_Header_Id,
it_line_num = X_It_Line_Num,
set_of_books_id = X_Set_Of_Books_Id,
charge_center_id = X_Charge_Center_Id,
effective_date = X_Effective_Date,
entered_dr = X_Entered_Dr,
entered_cr = X_Entered_Cr,
description = X_Description,
status_flag = X_Status_Flag,
posting_flag = X_Posting_Flag,
submit_date = X_Submit_Date,
suggested_amount = X_Suggested_Amount,
rejection_note = X_Rejection_Note,
receiving_code_combination_id = X_Receiving_Ccid,
creation_code_combination_id = X_Creation_Ccid,
charge_service_id = X_Charge_Service_Id,
failed_funds_lookup_code = X_Failed_Funds_Lookup_Code,
encumbrance_flag = X_Encumbrance_Flag,
encumbered_amount = X_Encumbered_Amount,
unencumbered_amount = X_Unencumbered_Amount,
gl_encumbered_date = X_Gl_Encumbered_Date,
gl_encumbered_period_name = X_Gl_Encumbered_Period_Name,
gl_cancelled_date = X_Gl_Cancelled_Date,
prevent_encumbrance_flag = X_Prevent_Encumbrance_Flag,
je_header_id = X_Je_Header_Id,
reversal_flag = X_Reversal_Flag,
last_update_login = X_Last_Update_Login,
last_update_date = X_Last_Update_Date,
last_updated_by = X_Last_Updated_By
WHERE it_service_line_id = X_It_Service_Line_Id
AND reversal_flag = 'N';
END Update_Row;