The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Insert_Row
(
x_rowid OUT NOCOPY VARCHAR2,
x_proposal_funding_id OUT NOCOPY NUMBER,
p_proposal_installment_id IN NUMBER,
p_project_id IN NUMBER,
p_task_id IN NUMBER,
p_funding_amount IN NUMBER,
p_date_allocated IN DATE,
x_return_status OUT NOCOPY VARCHAR2,
p_mode IN VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Insert_Row';
l_last_update_date DATE := SYSDATE;
l_last_updated_by NUMBER := Nvl(Fnd_Global.User_Id,-1);
l_last_update_login NUMBER := Nvl(Fnd_Global.Login_Id,-1);
SELECT rowid
FROM igw_project_fundings
WHERE proposal_funding_id = x_proposal_funding_id;
l_last_updated_by := 1;
l_last_update_login := 0;
INSERT INTO igw_project_fundings
(
proposal_funding_id,
proposal_installment_id,
project_id,
task_id,
funding_amount,
date_allocated,
record_version_number,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login
)
VALUES
(
igw_project_fundings_s.nextval,
p_proposal_installment_id,
p_project_id,
p_task_id,
p_funding_amount,
p_date_allocated,
1,
l_last_update_date,
l_last_updated_by,
l_last_update_date,
l_last_updated_by,
l_last_update_login
)
RETURNING
proposal_funding_id
INTO
x_proposal_funding_id;
END Insert_Row;
PROCEDURE Update_Row
(
p_rowid IN VARCHAR2,
p_proposal_funding_id IN NUMBER,
p_proposal_installment_id IN NUMBER,
p_project_id IN NUMBER,
p_task_id IN NUMBER,
p_funding_amount IN NUMBER,
p_date_allocated IN DATE,
x_return_status OUT NOCOPY VARCHAR2,
p_mode IN VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Row';
l_last_update_date DATE := SYSDATE;
l_last_updated_by NUMBER := Nvl(Fnd_Global.User_Id,-1);
l_last_update_login NUMBER := Nvl(Fnd_Global.Login_Id,-1);
l_last_updated_by := 1;
l_last_update_login := 0;
UPDATE igw_project_fundings
SET proposal_installment_id = p_proposal_installment_id,
project_id = p_project_id,
task_id = p_task_id,
funding_amount = p_funding_amount,
date_allocated = p_date_allocated,
record_version_number = record_version_number + 1,
last_update_date = l_last_update_date,
last_updated_by = l_last_updated_by,
last_update_login = l_last_update_login
WHERE (rowid = p_rowid OR proposal_funding_id = p_proposal_funding_id);
END Update_Row;
PROCEDURE Delete_Row
(
p_rowid IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row';
DELETE igw_project_fundings
WHERE rowid = p_rowid;
END Delete_Row;