The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
X_Project_Id NUMBER,
X_Customer_Id NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Creation_Date DATE,
X_Created_By NUMBER,
X_Last_Update_Login NUMBER,
X_Project_Relationship_Code VARCHAR2,
X_Customer_Bill_Split NUMBER,
X_Bill_To_Customer_Id NUMBER,
X_Ship_To_Customer_Id NUMBER,
X_Bill_To_Address_Id NUMBER,
X_Ship_To_Address_Id NUMBER,
X_Inv_Currency_Code VARCHAR2,
X_Inv_Rate_Type VARCHAR2,
X_Inv_Rate_Date DATE,
X_Inv_Exchange_Rate NUMBER,
X_Allow_Inv_User_Rate_Type_Fg VARCHAR2,
X_Bill_Another_Project_Flag VARCHAR2,
X_Receiver_Task_Id NUMBER,
X_Record_Version_Number NUMBER,
X_Default_Top_Task_Cust_Flag VARCHAR2
) IS
CURSOR C IS SELECT rowid FROM pa_project_customers
WHERE project_id = X_Project_Id
AND customer_id = X_Customer_Id;
INSERT INTO pa_project_customers(
project_id,
customer_id,
last_update_date,
last_updated_by,
creation_date,
created_by,
last_update_login,
project_relationship_code,
customer_bill_split,
bill_to_customer_id,
ship_to_customer_id,
bill_to_address_id,
ship_to_address_id,
inv_currency_code,
inv_rate_type,
inv_rate_date,
inv_exchange_rate,
allow_inv_user_rate_type_flag,
bill_another_project_flag,
receiver_task_id,
record_version_number,
default_top_task_cust_flag
) VALUES (
X_Project_Id,
X_Customer_Id,
X_Last_Update_Date,
X_Last_Updated_By,
X_Creation_Date,
X_Created_By,
X_Last_Update_Login,
X_Project_Relationship_Code,
X_Customer_Bill_Split,
X_Bill_To_Customer_Id,
X_Ship_To_Customer_Id,
X_Bill_To_Address_Id,
X_Ship_To_Address_Id,
X_Inv_Currency_Code,
X_Inv_Rate_Type,
X_Inv_Rate_Date,
X_Inv_Exchange_Rate,
X_Allow_Inv_User_Rate_Type_Fg,
X_Bill_Another_Project_Flag,
X_Receiver_Task_Id,
X_Record_Version_Number,
X_Default_Top_Task_Cust_Flag
);
END Insert_Row;
SELECT *
FROM pa_project_customers
WHERE rowid = X_Rowid
FOR UPDATE of Project_Id NOWAIT;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
PROCEDURE Update_Row(X_Rowid VARCHAR2,
X_Project_Id NUMBER,
X_Customer_Id NUMBER,
X_Last_Update_Date DATE,
X_Last_Updated_By NUMBER,
X_Last_Update_Login NUMBER,
X_Project_Relationship_Code VARCHAR2,
X_Customer_Bill_Split NUMBER,
X_Bill_To_Customer_Id NUMBER,
X_Ship_To_Customer_Id NUMBER,
X_Bill_To_Address_Id NUMBER,
X_Ship_To_Address_Id NUMBER,
X_Inv_Currency_Code VARCHAR2,
X_Inv_Rate_Type VARCHAR2,
X_Inv_Rate_Date DATE,
X_Inv_Exchange_Rate NUMBER,
X_Allow_Inv_User_Rate_Type_Fg VARCHAR2,
X_Bill_Another_Project_Flag VARCHAR2,
X_Receiver_Task_Id NUMBER,
X_Record_Version_Number NUMBER,
X_Default_Top_Task_Cust_Flag VARCHAR2
) IS
CURSOR C IS
SELECT *
FROM pa_project_customers
WHERE rowid = X_Rowid;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
UPDATE pa_project_customers
SET
project_id = X_Project_Id,
customer_id = X_Customer_Id,
last_update_date = X_Last_Update_Date,
last_updated_by = X_Last_Updated_By,
last_update_login = X_Last_Update_Login,
project_relationship_code = X_Project_Relationship_Code,
customer_bill_split = X_Customer_Bill_Split,
bill_to_customer_id = X_Bill_To_Customer_Id,
ship_to_customer_id = X_Ship_To_Customer_Id,
bill_to_address_id = X_Bill_To_Address_Id,
ship_to_address_id = X_Ship_To_Address_Id,
inv_currency_code = X_Inv_Currency_Code,
inv_rate_type = X_Inv_Rate_Type,
inv_rate_date = X_Inv_Rate_Date,
inv_exchange_rate = X_Inv_Exchange_Rate,
allow_inv_user_rate_type_flag = X_Allow_Inv_User_Rate_Type_Fg,
Bill_Another_Project_Flag = X_Bill_Another_Project_Flag,
Receiver_Task_Id = X_Receiver_Task_Id,
record_version_number = X_Record_Version_Number + 1,
default_top_task_cust_flag = X_Default_Top_Task_Cust_Flag
WHERE rowid = X_Rowid;
END Update_Row;
PROCEDURE Delete_Row(X_Rowid VARCHAR2,
x_record_version_number NUMBER) IS
CURSOR C IS
SELECT *
FROM pa_project_customers
WHERE rowid = X_Rowid;
FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
DELETE FROM pa_project_customers
WHERE rowid = X_Rowid;
END Delete_Row;