The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
ID,
OBJECT_VERSION_NUMBER,
NAME,
DESCRIPTION,
LOCATION_YN,
FROM_DATE,
TO_DATE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM Okl_Pdt_Qualitys_V
WHERE okl_pdt_qualitys_v.id = p_id;
l_pqyv_rec.LAST_UPDATED_BY,
l_pqyv_rec.LAST_UPDATE_DATE,
l_pqyv_rec.LAST_UPDATE_LOGIN;
SELECT qve.ID ID,
qve.FROM_DATE FROM_DATE,
qve.TO_DATE TO_DATE
FROM Okl_Pqy_Values_V qve
WHERE qve.pqy_id = p_qve_id
AND qve.TO_DATE IS NULL;
SELECT '1'
FROM Okl_Pqy_Values_V qve
WHERE qve.pqy_id = p_pqy_id
AND (qve.FROM_DATE < p_from_date OR
NVL(qve.TO_DATE, qve.FROM_DATE) > p_to_date)
UNION ALL
SELECT '2'
FROM OKL_pdt_pqys_V pdq
WHERE pdq.pqy_id = p_pqy_id
AND (pdq.FROM_DATE < p_from_date OR
NVL(pdq.TO_DATE, pdq.FROM_DATE) > p_to_date);
PROCEDURE check_updates (
p_upd_pqyv_rec IN pqyv_rec_type,
p_db_pqyv_rec IN pqyv_rec_type,
p_pqyv_rec IN pqyv_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_pqyv_rec pqyv_rec_type;
END check_updates;
PROCEDURE copy_update_constraints (p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
p_upd_pqyv_rec IN pqyv_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_upd_pqyv_rec pqyv_rec_type; /* input copy */
Okl_Pdt_Qualitys_Pub.update_pdt_quality_vals(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_qvev_tbl => l_qvev_tbl,
x_qvev_tbl => l_out_qvev_tbl);
END copy_update_constraints;
PROCEDURE insert_pqualitys(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_pqyv_rec IN pqyv_rec_type,
x_pqyv_rec OUT NOCOPY pqyv_rec_type
) IS
CURSOR okl_pdt_quality_unique (p_unique OKL_PDT_QUALITYS_v.NAME%TYPE) IS
SELECT '1'
FROM OKL_PDT_QUALITYS_v
WHERE NAME = p_unique;
l_api_name CONSTANT VARCHAR2(30) := 'insert_tqualities';
/* public api to insert tqualities */
Okl_Pdt_Qualitys_Pub.create_pdt_qualitys(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_pqyv_rec => l_pqyv_rec,
x_pqyv_rec => x_pqyv_rec);
END insert_pqualitys;
PROCEDURE update_pqualitys(p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 DEFAULT Okl_Api.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_pqyv_rec IN pqyv_rec_type,
x_pqyv_rec OUT NOCOPY pqyv_rec_type
) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'update_tqualities';
/* update constraints */
copy_update_constraints(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_upd_pqyv_rec => l_upd_pqyv_rec,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
/* public api to update tqualities */
Okl_Pdt_Qualitys_Pub.update_pdt_qualitys(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_pqyv_rec => l_upd_pqyv_rec,
x_pqyv_rec => x_pqyv_rec);
check_updates(p_upd_pqyv_rec => l_upd_pqyv_rec,
p_db_pqyv_rec => l_db_pqyv_rec,
p_pqyv_rec => l_pqyv_rec,
x_return_status => l_return_status,
x_msg_data => x_msg_data);
/* public api to update tqualities */
Okl_Pdt_Qualitys_Pub.update_pdt_qualitys(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_pqyv_rec => l_upd_pqyv_rec,
x_pqyv_rec => x_pqyv_rec);
END update_pqualitys;