The following lines contain the word 'select', 'insert', 'update' or 'delete':
IF p_MODIFIERS_rec.operation = QP_GLOBALS.G_OPR_UPDATE
THEN
IF p_old_MODIFIERS_rec.list_line_type_code IS NOT NULL
AND p_old_MODIFIERS_rec.list_line_type_code <> FND_API.G_MISS_CHAR
AND p_old_MODIFIERS_rec.list_line_type_code <> p_MODIFIERS_rec.list_line_type_code
THEN
l_return_status := FND_API.G_RET_STS_ERROR;
FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_LIST_LINE_TYP');
FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_MOD_LVL');
FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_LIST_LINE_NO');
FND_MESSAGE.SET_NAME('QP','QP_CANNOT_UPDATE_ATTRIBUTE');
SELECT LIST_TYPE_CODE, ASK_FOR_FLAG, START_DATE_ACTIVE, END_DATE_ACTIVE,GSA_INDICATOR
INTO l_list_type_code, l_ask_for_flag, l_start_date_active, l_end_date_active, l_gsa_indicator
FROM QP_LIST_HEADERS_B
WHERE LIST_HEADER_ID = p_MODIFIERS_rec.list_header_id;
SELECT LIST_LINE_TYPE_CODE
INTO l_primary_list_line_type_code
FROM QP_LIST_LINES
WHERE LIST_LINE_ID = p_MODIFIERS_rec.from_rltd_modifier_id;
select 'X'
into l_dummy_3
from mtl_related_items_all_v
where inventory_item_id = p_MODIFIERS_rec.inventory_item_id
and organization_id = p_MODIFIERS_rec.organization_id
and related_item_id = p_MODIFIERS_rec.related_item_id
and relationship_type_id = 14;
select 'X'
into l_dummy_1
from qp_price_formulas_b
where price_formula_id = p_MODIFIERS_rec.price_by_formula_id;
and not exists ( select price_formula_line_type_code
from qp_price_formula_lines
where price_formula_id = p_MODIFIERS_rec.price_by_formula_id
and price_formula_line_type_code = 'LP' );
select arithmetic_operator, list_line_type_code, qualification_ind
into l_arithmetic_operator, l_list_line_type_code, l_qualification_ind
from qp_list_lines
where list_line_id = p_MODIFIERS_rec.benefit_price_list_line_id;
select uom_code
into l_uom_code
from mtl_units_of_measure
where uom_class = 'Period'
and uom_code = p_MODIFIERS_rec.expiration_period_uom;
SELECT'X'
INTO l_charge_type_subtype
FROM pon_cost_factors_vl
WHERE price_element_type_id > 0
AND nvl(enabled_flag,'Y') <> 'N'
AND to_char(price_element_type_id) = p_MODIFIERS_rec.charge_type_code;
select 'X'
into l_charge_type_subtype
from fnd_lookup_values lkp1, qp_lookups lkp2
where lkp1.lookup_code = lkp2.lookup_type(+)
and lkp1.enabled_flag = 'Y'
and TRUNC(sysdate)
between TRUNC(nvl(lkp1.start_date_active, sysdate))
and TRUNC(nvl(lkp1.end_date_active, sysdate))
and (lkp2.enabled_flag = 'Y' or lkp2.enabled_flag IS NULL)
and TRUNC(sysdate)
between TRUNC(nvl(lkp2.start_date_active, sysdate))
and TRUNC(nvl(lkp2.end_date_active, sysdate))
and lkp1.lookup_code = p_MODIFIERS_rec.charge_type_code
and NVL(decode(lkp1.lookup_type,'FREIGHT_COST_TYPE',NULL,
lkp2.lookup_code),'o')
= NVL(p_MODIFIERS_rec.charge_subtype_code,'o')
and lkp1.language = userenv('LANG')
and lkp1.security_group_id = 0
and ((lkp1.view_application_id = 661 and lkp1.lookup_type = 'FREIGHT_CHARGES_TYPE')
or (lkp1.view_application_id = 665 and lkp1.lookup_type = 'FREIGHT_COST_TYPE'));
select uom_code
into l_dummy_4
from mtl_units_of_measure
where uom_code = p_MODIFIERS_rec.benefit_uom_code
and uom_class = l_qp_accrual_uom_class;
select count(*)
into l_dummy_5
from mtl_units_of_measure
where uom_code = p_MODIFIERS_rec.benefit_uom_code;
SELECT phase_sequence, nvl(modifier_level_code,'*')
INTO l_phase_sequence, l_modifier_level_code
FROM QP_PRICING_PHASES
WHERE nvl(LIST_TYPE_CODE,l_list_type_code) = l_list_type_code
AND nvl(LIST_LINE_TYPE_CODE,p_MODIFIERS_rec.list_line_type_code) =
p_MODIFIERS_rec.list_line_type_code
AND nvl(MODIFIER_LEVEL_CODE,p_MODIFIERS_rec.modifier_level_code) =
p_MODIFIERS_rec.modifier_level_code
AND ((p_MODIFIERS_rec.LIST_LINE_TYPE_CODE = 'OID' and nvl(MODIFIER_LEVEL_CODE, '*') <> 'LINE')
or p_MODIFIERS_rec.LIST_LINE_TYPE_CODE <> 'OID')
AND PRICING_PHASE_ID = p_MODIFIERS_rec.pricing_phase_id;
SELECT phase_sequence
INTO l_phase_sequence
FROM QP_PRICING_PHASES
WHERE PRICING_PHASE_ID = p_MODIFIERS_rec.pricing_phase_id
AND nvl(MODIFIER_LEVEL_CODE, '*') <> 'LINE';
select 'Y'
into l_rltd_exist
from qp_rltd_modifiers
where from_rltd_modifier_id = p_MODIFIERS_rec.list_line_id
and rltd_modifier_grp_type = 'QUALIFIER'
and rownum = 1;
select 'Y' into l_phase_price_evt
from qp_event_phases
where pricing_event_code = 'PRICE'
and pricing_phase_id = p_MODIFIERS_rec.PRICING_PHASE_ID;
select 'Y' into l_phase_freeze_set
from qp_pricing_phases
where nvl(user_freeze_override_flag,freeze_override_flag) = 'Y'
and pricing_phase_id = p_MODIFIERS_rec.PRICING_PHASE_ID;
IF p_MODIFIERS_rec.last_updated_by IS NOT NULL AND
( p_MODIFIERS_rec.last_updated_by <>
p_old_MODIFIERS_rec.last_updated_by OR
p_old_MODIFIERS_rec.last_updated_by IS NULL )
THEN
IF NOT QP_Validate.Last_Updated_By(p_MODIFIERS_rec.last_updated_by) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_MODIFIERS_rec.last_update_date IS NOT NULL AND
( p_MODIFIERS_rec.last_update_date <>
p_old_MODIFIERS_rec.last_update_date OR
p_old_MODIFIERS_rec.last_update_date IS NULL )
THEN
IF NOT QP_Validate.Last_Update_Date(p_MODIFIERS_rec.last_update_date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_MODIFIERS_rec.last_update_login IS NOT NULL AND
( p_MODIFIERS_rec.last_update_login <>
p_old_MODIFIERS_rec.last_update_login OR
p_old_MODIFIERS_rec.last_update_login IS NULL )
THEN
IF NOT QP_Validate.Last_Update_Login(p_MODIFIERS_rec.last_update_login) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_MODIFIERS_rec.program_update_date IS NOT NULL AND
( p_MODIFIERS_rec.program_update_date <>
p_old_MODIFIERS_rec.program_update_date OR
p_old_MODIFIERS_rec.program_update_date IS NULL )
THEN
IF NOT QP_Validate.Program_Update_Date(p_MODIFIERS_rec.program_update_date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
PROCEDURE Entity_Delete
( x_return_status OUT NOCOPY VARCHAR2
, p_MODIFIERS_rec IN QP_Modifiers_PUB.Modifiers_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
oe_debug_pub.add('BEGIN Entity_Delete in QPXLMLLB');
oe_debug_pub.add('BEGIN Entity_Delete in QPXLMLLB');
, 'Entity_Delete'
);
END Entity_Delete;