The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'x' FROM dual WHERE EXISTS (
select 'x'
from qp_list_lines
where list_header_id = p_list_header_id
and NOT(end_date_active is null or end_date_active = FND_API.G_MISS_DATE)
AND p_lh_end_date
SELECT 'x' FROM dual WHERE EXISTS (
select 'x'
from qp_list_lines
where list_header_id = p_list_header_id
and NOT(start_date_active is null or start_date_active = FND_API.G_MISS_DATE)
AND p_lh_start_date>start_date_active);
IF p_PRICE_LIST_rec.operation = QP_GLOBALS.G_OPR_UPDATE
THEN
IF nvl(p_old_PRICE_LIST_rec.shareable_flag,'X') <>
nvl(p_PRICE_LIST_rec.shareable_flag,'X')
THEN
l_return_status := FND_API.G_RET_STS_ERROR;
FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
FND_MESSAGE.SET_NAME('QP', 'QP_ROUNDING_FACTOR_NO_UPDATE');
FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
SELECT 'X'
INTO l_dummy_c
FROM QP_CURRENCY_LISTS_B
WHERE currency_header_id = p_PRICE_LIST_rec.currency_header_id and
base_currency_code = p_PRICE_LIST_rec.currency_code;
IF p_PRICE_LIST_rec.last_updated_by IS NOT NULL AND
( p_PRICE_LIST_rec.last_updated_by <>
p_old_PRICE_LIST_rec.last_updated_by OR
p_old_PRICE_LIST_rec.last_updated_by IS NULL )
THEN
IF NOT QP_Validate.Last_Updated_By(p_PRICE_LIST_rec.last_updated_by) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_PRICE_LIST_rec.last_update_date IS NOT NULL AND
( p_PRICE_LIST_rec.last_update_date <>
p_old_PRICE_LIST_rec.last_update_date OR
p_old_PRICE_LIST_rec.last_update_date IS NULL )
THEN
IF NOT QP_Validate.Last_Update_Date(p_PRICE_LIST_rec.last_update_date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_PRICE_LIST_rec.last_update_login IS NOT NULL AND
( p_PRICE_LIST_rec.last_update_login <>
p_old_PRICE_LIST_rec.last_update_login OR
p_old_PRICE_LIST_rec.last_update_login IS NULL )
THEN
IF NOT QP_Validate.Last_Update_Login(p_PRICE_LIST_rec.last_update_login) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_PRICE_LIST_rec.program_update_date IS NOT NULL AND
( p_PRICE_LIST_rec.program_update_date <>
p_old_PRICE_LIST_rec.program_update_date OR
p_old_PRICE_LIST_rec.program_update_date IS NULL )
THEN
IF NOT QP_Validate.Program_Update_Date(p_PRICE_LIST_rec.program_update_date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
PROCEDURE Entity_Delete
( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, p_PRICE_LIST_rec IN QP_Price_List_PUB.Price_List_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
, 'Entity_Delete'
);
END Entity_Delete;