The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Update_Prop_Sponsor_Action(p_proposal_id NUMBER) IS
CURSOR cur_latest_action IS
SELECT sponsor_action_code,
sponsor_action_date,
comments
FROM igw_prop_comments
WHERE proposal_id = p_proposal_id
AND sponsor_action_code IS NOT NULL
ORDER BY sponsor_action_date desc, creation_date desc;
UPDATE igw_proposals_all
SET sponsor_action_code = l_sponsor_action_code,
sponsor_action_date = l_sponsor_action_date,
sponsor_action_comments = l_comments
WHERE proposal_id = p_proposal_id;
PROCEDURE Insert_Row
(
x_rowid OUT NOCOPY VARCHAR2,
p_proposal_id IN NUMBER,
p_comments IN VARCHAR2,
p_sponsor_action_code in varchar2,
p_sponsor_action_date in date,
x_return_status OUT NOCOPY VARCHAR2,
p_mode IN VARCHAR2 default 'R'
) 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_prop_comments
WHERE proposal_id = p_proposal_id AND
trunc(last_update_date) = trunc(SYSDATE);
l_last_updated_by := 1;
l_last_update_login := 0;
INSERT INTO igw_prop_comments
(
proposal_id,
comment_id,
comments,
sponsor_action_code,
sponsor_action_date,
record_version_number,
creation_date,
created_by,
last_update_date,
last_updated_by,
last_update_login
)
VALUES
(
p_proposal_id, /* proposal_id */
igw_prop_comments_s.nextval, /* comment_id */
p_comments, /* comments */
p_sponsor_action_code,
p_sponsor_action_date,
1, /* record_version_number */
l_last_update_date, /* creation_date */
l_last_updated_by, /* created_by */
l_last_update_date, /* last_update_date */
l_last_updated_by, /* last_updated_by */
l_last_update_login /* last_update_login */
);
Update_Prop_Sponsor_Action(p_proposal_id);
END Insert_Row;
PROCEDURE Update_Row
(
p_rowid IN VARCHAR2,
p_proposal_id IN NUMBER,
p_comment_id IN NUMBER,
p_comments IN VARCHAR2,
p_sponsor_action_code in varchar2,
p_sponsor_action_date in date,
p_record_version_number IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
p_mode IN VARCHAR2 default 'R'
) 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_prop_comments
SET sponsor_action_code = p_sponsor_action_code,
sponsor_action_date = p_sponsor_action_date,
comments = p_comments,
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_id = p_proposal_id AND comment_id = p_comment_id))
AND record_version_number = p_record_version_number;
Update_Prop_Sponsor_Action(p_proposal_id);
END Update_Row;
PROCEDURE Delete_Row
(
p_rowid IN VARCHAR2,
p_proposal_id IN NUMBER,
p_record_version_number IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row';
DELETE igw_prop_comments
WHERE rowid = p_rowid
AND record_version_number = p_record_version_number;
Update_Prop_Sponsor_Action(p_proposal_id);
END Delete_Row;