The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
ID,
OBJECT_VERSION_NUMBER,
PTQ_ID,
VALUE,
DESCRIPTION,
FROM_DATE,
TO_DATE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM Okl_Ptq_Values_V
WHERE okl_ptq_values_v.id = p_id;
l_ptvv_rec.LAST_UPDATED_BY,
l_ptvv_rec.LAST_UPDATE_DATE,
l_ptvv_rec.LAST_UPDATE_LOGIN;
SELECT FROM_DATE,
TO_DATE
FROM Okl_ptl_qualitys_V ptq
WHERE ptq.id = p_ptq_id;
SELECT '1'
FROM okl_ptl_qualitys_v ptqv
WHERE ptqv.ID = p_ptq_id
AND ((ptqv.FROM_DATE > p_from_date OR
p_from_date > NVL(ptqv.TO_DATE,p_from_date) OR
NVL(ptqv.TO_DATE, p_to_date) < p_to_date));
SELECT '1'
FROM OKL_ptl_ptq_vals_v pmvv
WHERE pmvv.ptv_id = p_ptv_id
AND (pmvv.FROM_DATE < p_from_date OR
NVL(pmvv.TO_DATE, pmvv.FROM_DATE) > p_to_date);
SELECT '1'
FROM okl_ptq_values_v
WHERE value = p_value
AND ptq_id = p_ptq_id;
PROCEDURE check_updates (
p_upd_ptvv_rec IN ptvv_rec_type,
p_db_ptvv_rec IN ptvv_rec_type,
p_ptvv_rec IN ptvv_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_ptvv_rec ptvv_rec_type;
END check_updates;
PROCEDURE insert_tqyvalues(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_ptqv_rec IN ptqv_rec_type,
p_ptvv_rec IN ptvv_rec_type,
x_ptvv_rec OUT NOCOPY ptvv_rec_type
) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'insert_tqyvalues';
/* public api to insert PQYVALUES */
Okl_Ptl_Qualitys_Pub.create_ptl_qlty_values(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ptvv_rec => l_ptvv_rec,
x_ptvv_rec => x_ptvv_rec);
END insert_tqyvalues;
PROCEDURE update_tqyvalues(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_ptqv_rec IN ptqv_rec_type,
p_ptvv_rec IN ptvv_rec_type,
x_ptvv_rec OUT NOCOPY ptvv_rec_type
) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'update_tqyvalues';
/* public api to update tqualities */
/* public api to update PTYVALUES */
Okl_Ptl_Qualitys_Pub.update_ptl_qlty_values(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ptvv_rec => l_upd_ptvv_rec,
x_ptvv_rec => x_ptvv_rec);
check_updates(p_upd_ptvv_rec => l_upd_ptvv_rec,
p_db_ptvv_rec => l_db_ptvv_rec,
p_ptvv_rec => l_ptvv_rec,
x_return_status => l_return_status,
x_msg_data => x_msg_data);
/* public api to update PTYVALUES */
Okl_Ptl_Qualitys_Pub.update_ptl_qlty_values(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ptvv_rec => l_upd_ptvv_rec,
x_ptvv_rec => x_ptvv_rec);
END update_tqyvalues;