The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT
ID,
OBJECT_VERSION_NUMBER,
PTV_ID,
PTL_ID,
PTQ_ID,
FROM_DATE,
TO_DATE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
FROM Okl_Ptl_Ptq_Vals_V
WHERE okl_ptl_ptq_vals_v.id = p_id;
l_pmvv_rec.LAST_UPDATED_BY,
l_pmvv_rec.LAST_UPDATE_DATE,
l_pmvv_rec.LAST_UPDATE_LOGIN;
SELECT FROM_DATE,
TO_DATE
FROM Okl_pdt_templates_V ptlv
WHERE ptlv.id = p_ptl_id;
SELECT '1' FROM okl_pdt_templates_v ptvv,
okl_products pdtv,
okl_k_headers_v khdr
WHERE ptvv.id = p_ptl_id
AND ptvv.id = pdtv.ptl_id
AND pdtv.id = khdr.pdt_id;
SELECT '1'
FROM Okl_pdt_templates_V ptl
WHERE ptl.ID = p_ptl_id
AND NVL(ptl.TO_DATE, p_date) < p_date;
SELECT '1'
FROM Okl_Ptq_Values_V ptv
WHERE ptv.ID = p_ptv_id
AND ((ptv.FROM_DATE > p_from_date OR
p_from_date > NVL(ptv.TO_DATE,p_from_date)) OR
NVL(ptv.TO_DATE, p_to_date) < p_to_date);
SELECT '1'
FROM okl_ptl_ptq_vals_v
WHERE ptl_id = p_ptl_id
AND ptq_id = p_ptq_id
AND id <> NVL(p_pmvv_rec.id,-9999);
SELECT '1'
FROM okl_ptl_qualitys_v
WHERE okl_ptl_qualitys_v.id = p_id;
PROCEDURE insert_pmvalues(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_ptlv_rec IN ptlv_rec_type,
p_pmvv_rec IN pmvv_rec_type,
x_pmvv_rec OUT NOCOPY pmvv_rec_type
) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'insert_pmvalues';
/* public api to insert pmvalues */
Okl_Ptq_Values_Pub.insert_ptq_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_pmvv_rec => l_pmvv_rec,
x_pmvv_rec => x_pmvv_rec);
END insert_pmvalues;
PROCEDURE insert_pmvalues(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_ptlv_rec IN ptlv_rec_type,
p_pmvv_tbl IN pmvv_tbl_type,
x_pmvv_tbl OUT NOCOPY pmvv_tbl_type
) IS
l_overall_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
insert_pmvalues(
p_api_version => p_api_version,
p_init_msg_list => OKL_API.G_FALSE,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_ptlv_rec => p_ptlv_rec,
p_pmvv_rec => p_pmvv_tbl(i),
x_pmvv_rec => x_pmvv_tbl(i));
END insert_pmvalues;
PROCEDURE delete_pmvalues(
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_ptlv_rec IN ptlv_rec_type
,p_pmvv_tbl IN pmvv_tbl_type
) IS
l_api_version CONSTANT NUMBER := 1;
l_api_name CONSTANT VARCHAR2(30) := 'delete_pmvalues';
/* check if the product asked to delete is used by contracts if yes halt the process*/
IF (l_pmvv_tbl.COUNT > 0) THEN
i := l_pmvv_tbl.FIRST;
/* check if the product template value asked to delete is used by contracts if yes halt the process*/
Check_Constraints(p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_pmvv_rec => l_pmvv_tbl(i),
x_return_status => l_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_valid => l_valid);
/* delete pmvalues */
Okl_Ptq_Values_Pub.delete_ptq_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_pmvv_tbl => l_pmvv_tbl);
END delete_pmvalues;