The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Check_Comment_Update_Rights
(
p_rowid IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2
) IS
l_last_updated_by NUMBER;
SELECT last_updated_by
INTO l_last_updated_by
FROM igw_prop_comments
WHERE rowid = p_rowid;
IF l_last_updated_by <> Fnd_Global.User_Id THEN
x_return_status := Fnd_Api.G_Ret_Sts_Error;
END Check_Comment_Update_Rights;
SELECT 'N'
INTO l_locked
FROM igw_prop_comments
WHERE rowid = p_rowid
AND record_version_number = p_record_version_number;
** Invoke Table Handler to insert data
*/
Igw_Prop_Comments_Tbh.Insert_Row
(
x_rowid => x_rowid,
p_proposal_id => l_proposal_id,
p_comments => p_comments,
x_return_status => l_return_status
);
PROCEDURE Update_Prop_Comment
(
p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
p_commit IN VARCHAR2 := Fnd_Api.G_False,
p_rowid IN VARCHAR2,
p_proposal_id IN NUMBER,
p_proposal_number IN VARCHAR2,
p_comment_id IN NUMBER,
p_comments IN VARCHAR2,
p_record_version_number IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_Prop_Comment';
SAVEPOINT Update_Prop_Comment_Pvt;
Check_Comment_Update_Rights
(
p_rowid => p_rowid,
x_return_status => l_return_status
);
** Invoke Table Handler to Update data
*/
Igw_Prop_Comments_Tbh.Update_Row
(
p_rowid => p_rowid,
p_proposal_id => l_proposal_id,
p_comment_id => p_comment_id,
p_comments => p_comments,
p_record_version_number => p_record_version_number,
x_return_status => x_return_status
);
ROLLBACK TO Update_Prop_Comment_Pvt;
ROLLBACK TO Update_Prop_Comment_Pvt;
ROLLBACK TO Update_Prop_Comment_Pvt;
END Update_Prop_Comment;
PROCEDURE Delete_Prop_Comment
(
p_init_msg_list IN VARCHAR2 := Fnd_Api.G_False,
p_validate_only IN VARCHAR2 := Fnd_Api.G_False,
p_commit IN VARCHAR2 := Fnd_Api.G_False,
p_rowid IN VARCHAR2,
p_proposal_id IN NUMBER,
p_record_version_number IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_Prop_Comment';
SAVEPOINT Delete_Prop_Comment_Pvt;
Check_Comment_Update_Rights
(
p_rowid => p_rowid,
x_return_status => l_return_status
);
** Invoke Table Handler to Delete data
*/
Igw_Prop_Comments_Tbh.Delete_Row
(
p_rowid => p_rowid,
p_record_version_number => p_record_version_number,
x_return_status => x_return_status
);
ROLLBACK TO Delete_Prop_Comment_Pvt;
ROLLBACK TO Delete_Prop_Comment_Pvt;
ROLLBACK TO Delete_Prop_Comment_Pvt;
END Delete_Prop_Comment;