The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
ID,
NAME,
OBJECT_VERSION_NUMBER,
DESCRIPTION,
FROM_DATE,
TO_DATE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM Okl_Ptl_Qualitys_v
WHERE id = p_id;
l_ptqv_rec.LAST_UPDATED_BY,
l_ptqv_rec.LAST_UPDATE_DATE,
l_ptqv_rec.LAST_UPDATE_LOGIN;
SELECT ptv.ID ID,
ptv.FROM_DATE FROM_DATE,
ptv.TO_DATE TO_DATE
FROM Okl_PTQ_VALUES_V ptv
WHERE ptv.ptq_id = p_ptq_id
AND ptv.TO_DATE IS NULL;
SELECT '1'
FROM OKL_ptq_values_V ptv
WHERE ptv.ptq_id = p_ptq_id
AND (ptv.FROM_DATE < p_from_date OR
NVL(ptv.TO_DATE, ptv.FROM_DATE) > p_to_date)
UNION ALL
SELECT '2'
FROM OKL_ptl_ptq_vals_V pmv
WHERE pmv.ptq_id = p_ptq_id
AND (pmv.FROM_DATE < p_from_date OR
NVL(pmv.TO_DATE, pmv.FROM_DATE) > p_to_date);
SELECT '1'
FROM okl_ptl_qualitys_v
WHERE name = p_name;
PROCEDURE check_updates (
p_upd_ptqv_rec IN ptqv_rec_type,
p_db_ptqv_rec IN ptqv_rec_type,
p_ptqv_rec IN ptqv_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_ptqv_rec ptqv_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_ptqv_rec IN ptqv_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_upd_ptqv_rec ptqv_rec_type; /* input copy */
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_tbl => l_ptvv_tbl,
x_ptvv_tbl => l_out_ptvv_tbl);
END copy_update_constraints;
PROCEDURE insert_tqualitys(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_ptqv_rec IN ptqv_rec_type,
x_ptqv_rec OUT NOCOPY ptqv_rec_type
) IS
CURSOR c1(p_name okl_ptl_qualitys_v.name%TYPE) IS
SELECT '1'
FROM okl_ptl_qualitys_v
WHERE name = p_name;
l_api_name CONSTANT VARCHAR2(30) := 'insert_tqualitys';
/* public api to insert tqualitys */
Okl_Ptl_Qualitys_Pub.create_ptl_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_ptqv_rec => l_ptqv_rec,
x_ptqv_rec => x_ptqv_rec);
END insert_tqualitys;
PROCEDURE update_tqualitys(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_ptqv_rec IN ptqv_rec_type,
x_ptqv_rec OUT NOCOPY ptqv_rec_type
) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'update_tqualitys';
/* update constraints */
copy_update_constraints(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_upd_ptqv_rec => l_upd_ptqv_rec,
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
/* public api to update tqualitys */
Okl_Ptl_Qualitys_Pub.update_ptl_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_ptqv_rec => l_upd_ptqv_rec,
x_ptqv_rec => x_ptqv_rec);
check_updates(p_upd_ptqv_rec => l_upd_ptqv_rec,
p_db_ptqv_rec => l_db_ptqv_rec,
p_ptqv_rec => l_ptqv_rec,
x_return_status => l_return_status,
x_msg_data => x_msg_data);
/* public api to update tqualitys */
Okl_Ptl_Qualitys_Pub.update_ptl_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_ptqv_rec => l_upd_ptqv_rec,
x_ptqv_rec => x_ptqv_rec);
END update_tqualitys;