The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
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_Receiving_Ccid NUMBER,
X_Creation_Ccid NUMBER,
X_Charge_Center_Id NUMBER,
X_Charge_Service_Id NUMBER,
X_Service_Id NUMBER,
X_Crea_Cost_Center VARCHAR2,
X_Crea_Conf_Segment_Value VARCHAR2,
X_Recv_Cost_Center VARCHAR2,
X_Recv_Conf_Segment_Value VARCHAR2,
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_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_Receiver_Id NUMBER,
X_Charge_Range_Id NUMBER,
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
WHERE it_service_line_id = X_It_Service_Line_Id;
CURSOR C2 IS SELECT igi_itr_charge_lines_s.nextval FROM sys.dual;
INSERT INTO igi_itr_charge_lines(
it_service_line_id
,it_header_id
,it_line_num
,set_of_books_id
,receiving_code_combination_id
,creation_code_combination_id
,charge_center_id
,charge_service_id
,service_id
,crea_cost_center
,crea_conf_segment_value
,recv_cost_center
,recv_conf_segment_value
,effective_date
,entered_dr
,entered_cr
,description
,status_flag
,posting_flag
,submit_date
,suggested_amount
,rejection_note
,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
,receiver_id
,charge_range_id
,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_Receiving_Ccid
,X_Creation_Ccid
,X_Charge_Center_Id
,X_Charge_Service_Id
,X_Service_Id
,X_Crea_Cost_Center
,X_Crea_Conf_Segment_Value
,X_Recv_Cost_Center
,X_Recv_Conf_Segment_Value
,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_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_Receiver_Id
,X_Charge_Range_Id
,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
WHERE rowid = X_Rowid
FOR UPDATE of it_service_line_id NOWAIT;
fnd_message.set_name('FND','FORM_RECORD_DELETED');
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_It_Service_Line_Id NUMBER,
X_It_Header_Id NUMBER,
X_It_Line_Num NUMBER,
X_Set_Of_Books_Id NUMBER,
X_Receiving_Ccid NUMBER,
X_Creation_Ccid NUMBER,
X_Charge_Center_Id NUMBER,
X_Charge_Service_Id NUMBER,
X_Service_Id NUMBER,
X_Crea_Cost_Center VARCHAR2,
X_Crea_Conf_Segment_Value VARCHAR2,
X_Recv_Cost_Center VARCHAR2,
X_Recv_Conf_Segment_Value VARCHAR2,
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_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_Receiver_Id NUMBER,
X_Charge_Range_Id NUMBER,
X_Last_Update_Login NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER
) IS
BEGIN
UPDATE igi_itr_charge_lines
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,
receiving_code_combination_id = X_Receiving_Ccid,
creation_code_combination_id = X_Creation_Ccid,
charge_center_id = X_Charge_Center_Id,
charge_service_id = X_Charge_Service_Id,
service_id = X_Service_Id,
crea_cost_center = X_Crea_Cost_Center,
crea_conf_segment_value = X_Crea_Conf_Segment_Value,
recv_cost_center = X_Recv_Cost_Center,
recv_conf_segment_value = X_Recv_Conf_Segment_Value,
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,
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,
receiver_id = X_Receiver_Id,
charge_range_id = X_Charge_Range_Id,
last_update_login = X_Last_Update_Login,
last_update_date = X_Last_Update_Date,
last_updated_by = X_Last_Updated_By
WHERE rowid = X_Rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
BEGIN
DELETE FROM igi_itr_charge_lines
WHERE rowid = X_Rowid;
END Delete_Row;
SELECT 'Duplicate'
FROM igi_itr_charge_lines cl
WHERE cl.it_line_num = x_it_line_num
AND cl.it_header_id = x_it_header_id
AND (x_rowid IS NULL
OR
cl.rowid <> x_rowid);
PROCEDURE delete_lines(X_It_Header_Id NUMBER) IS
BEGIN
DELETE FROM igi_itr_charge_lines
WHERE it_header_id = X_It_Header_Id;
END delete_lines;