The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.last_update_login := p_from.last_update_login;
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.last_update_login := p_from.last_update_login;
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.last_update_login := p_from.last_update_login;
p_to.last_updated_by := p_from.last_updated_by;
p_to.last_update_date := p_from.last_update_date;
p_to.last_update_login := p_from.last_update_login;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_catv_rec IN catv_rec_type,
x_catv_rec OUT NOCOPY catv_rec_type) IS
l_catv_rec catv_rec_type;
END insert_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_catv_rec IN catv_rec_type,
x_catv_rec OUT NOCOPY catv_rec_type) IS
l_catv_rec catv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_K_ARTICLE';
OKC_K_ARTICLE_PUB.update_k_article(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_catv_rec => l_okc_catv_rec_in,
x_catv_rec => l_okc_catv_rec_out);
END update_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_catv_rec IN catv_rec_type) IS
l_catv_rec catv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_K_ARTICLE';
OKC_K_ARTICLE_PUB.delete_k_article(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_catv_rec => l_okc_catv_rec_in);
END delete_row;
PROCEDURE insert_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rgpv_rec IN rgpv_rec_type,
x_rgpv_rec OUT NOCOPY rgpv_rec_type) IS
l_rgpv_rec rgpv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'INSERT_ROW';
END insert_row;
PROCEDURE update_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rgpv_rec IN rgpv_rec_type,
x_rgpv_rec OUT NOCOPY rgpv_rec_type) IS
l_rgpv_rec rgpv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_ROW';
OKC_RULE_PUB.update_rule_group(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rgpv_rec => l_okc_rgpv_rec_in,
x_rgpv_rec => l_okc_rgpv_rec_out);
END update_row;
PROCEDURE delete_row(
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_rgpv_rec IN rgpv_rec_type) IS
l_rgpv_rec rgpv_rec_type;
l_api_name CONSTANT VARCHAR2(30) := 'DELETE_ROW';
OKC_RULE_PUB.delete_rule_group(
p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_rgpv_rec => l_okc_rgpv_rec_in);
END delete_row;
FUNCTION Update_Allowed(p_chr_id IN NUMBER) RETURN VARCHAR2 Is
l_sts_code OKC_ASSENTS.STS_CODE%TYPE;
SELECT sts_code, scs_code
FROM OKC_K_HEADERS_B
WHERE id = p_chr_id;
SELECT upper(substr(allowed_yn,1,1))
FROM okc_assents
WHERE sts_code = l_sts_code
AND scs_code = l_scs_code
AND opn_code = 'UPDATE';
END Update_Allowed;