[Home] [Help]
The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
X_It_Header_Id IN OUT NOCOPY NUMBER,
X_Set_Of_Books_Id NUMBER,
X_Name VARCHAR2,
X_It_Period_Name VARCHAR2,
X_Submit_Flag VARCHAR2,
X_It_Originator_Id VARCHAR2,
X_Gl_Date DATE,
X_Currency_Code VARCHAR2,
X_Encumbrance_Type_Id NUMBER,
X_Employee_Id NUMBER,
X_Entered_Dr NUMBER,
X_Entered_Cr NUMBER,
X_Submit_Date DATE,
X_Charge_Center_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_headers
WHERE it_header_id = X_It_Header_Id;
CURSOR C2 IS SELECT igi_itr_charge_headers_s.nextval FROM sys.dual;
INSERT INTO igi_itr_charge_headers(
it_header_id
,set_of_books_id
,name
,it_period_name
,submit_flag
,it_originator_id
,gl_date
,currency_code
,encumbrance_type_id
,employee_id
,entered_dr
,entered_cr
,submit_date
,charge_center_id
,creation_date
,created_by
,last_update_login
,last_update_date
,last_updated_by
) VALUES (
X_It_Header_Id
,X_Set_Of_Books_Id
,X_Name
,X_It_Period_Name
,X_Submit_Flag
,X_It_Originator_Id
,X_Gl_Date
,X_Currency_Code
,X_Encumbrance_Type_Id
,X_Employee_Id
,X_Entered_Dr
,X_Entered_Cr
,X_Submit_Date
,X_Charge_Center_Id
,X_Creation_date
,X_Created_By
,X_Last_Update_Login
,X_Last_Update_Date
,X_Last_Updated_By
);
END Insert_Row;
X_Last_Update_Login NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER
) IS
CURSOR C IS
SELECT *
FROM igi_itr_charge_headers
WHERE rowid = X_Rowid
FOR UPDATE of it_header_id NOWAIT;
fnd_message.set_name('FND','FORM_RECORD_DELETED');
AND ( (Recinfo.last_update_login = X_Last_Update_Login)
OR ( (Recinfo.last_update_login IS NULL)
AND (X_Last_Update_Login IS NULL) ))
AND ( (Recinfo.last_update_date = X_Last_Update_Date)
OR ( (Recinfo.last_update_date IS NULL)
AND (X_Last_Update_Date IS NULL) ))
AND ( (Recinfo.last_updated_by = X_Last_Updated_By)
OR ( (Recinfo.last_updated_by IS NULL)
AND (X_Last_Updated_By IS NULL) ))
) THEN
return;
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_It_Header_Id NUMBER,
X_Set_Of_Books_Id NUMBER,
X_Name VARCHAR2,
X_It_Period_Name VARCHAR2,
X_Submit_Flag VARCHAR2,
X_It_Originator_Id VARCHAR2,
X_Gl_Date DATE,
X_Currency_Code VARCHAR2,
X_Encumbrance_Type_Id NUMBER,
X_Employee_Id NUMBER,
X_Entered_Dr NUMBER,
X_Entered_Cr NUMBER,
X_Submit_Date DATE,
X_Charge_Center_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
BEGIN
UPDATE igi_itr_charge_headers
SET
it_header_id = X_It_Header_Id,
set_of_books_id = X_Set_Of_Books_Id,
name = X_Name,
it_period_name = X_It_Period_Name,
submit_flag = X_Submit_Flag,
it_originator_id = X_It_Originator_Id,
gl_date = X_Gl_Date,
currency_code = X_Currency_Code,
encumbrance_type_id = X_Encumbrance_Type_Id,
employee_id = X_Employee_Id,
entered_dr = X_Entered_Dr,
entered_cr = X_Entered_Cr,
submit_date = X_Submit_Date,
charge_center_id = X_Charge_Center_Id,
creation_date = X_Creation_Date,
created_by = X_Created_By,
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
-- OPSF(I) ITR Bug 1764441 22-May-2001 S Brewer Start(1)
CURSOR c_get_it_header_id(p_rowid VARCHAR2)
IS
SELECT it_header_id
FROM igi_itr_charge_headers
WHERE rowid = p_rowid;
igi_itr_charge_lines_pkg.delete_lines(l_it_header_id);
DELETE FROM igi_itr_charge_headers
WHERE rowid = X_Rowid;
END Delete_Row;
SELECT 'Duplicate'
FROM igi_itr_charge_headers ch
WHERE ch.name = x_name
AND ch.set_of_books_id = x_set_of_books_id
AND (x_rowid IS NULL
OR
ch.rowid <> x_rowid);