The following lines contain the word 'select', 'insert', 'update' or 'delete':
This procedure inserts a row into the pa_perf_cmts table.
==================================================================*/
PROCEDURE create_comment(
p_api_version IN NUMBER := 1.0,
p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
p_commit IN VARCHAR2 := FND_API.g_false,
p_validate_only IN VARCHAR2 := FND_API.g_true,
p_max_msg_count IN NUMBER := FND_API.g_miss_num,
P_transaction_id IN NUMBER,
P_COMMENT_TEXT IN VARCHAR2,
p_commented_by IN NUMBER,
P_comment_date IN DATE,
x_comment_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
X_RETURN_STATUS OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
X_MSG_COUNT OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
X_MSG_DATA OUT NOCOPY VARCHAR2 ) --File.Sql.39 bug 4440895
IS
l_msg_count NUMBER := 0;
SELECT pa_perf_comments_s1.NEXTVAL
INTO x_comment_id
FROM dual;
PA_PERF_CMTS_PKG.insert_row(
X_ROWID => l_rowid,
x_comment_id => x_comment_id,
X_perf_txn_id => P_transaction_id,
X_comment_text => P_comment_text,
X_commented_by => P_commented_by,
X_comment_date => P_comment_date,
X_CREATION_DATE => NULL,
X_CREATED_BY => NULL,
X_LAST_UPDATE_DATE => NULL,
X_LAST_UPDATED_BY => NULL,
X_LAST_UPDATE_LOGIN => NULL
);