The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT list_type_code into l_list_type_code from QP_LIST_HEADERS_B
WHERE LIST_HEADER_ID = p_LIMITS_rec.list_header_id;
SELECT LIST_LINE_TYPE_CODE,
BENEFIT_QTY,
ACCRUAL_FLAG,
ARITHMETIC_OPERATOR,
MODIFIER_LEVEL_CODE,
QUALIFICATION_IND
INTO
l_list_line_type_code,
l_benefit_qty,
l_accrual_flag,
l_application_method,
l_modifier_level_code,
l_qualification_ind
FROM QP_LIST_LINES
WHERE LIST_LINE_ID = p_LIMITS_rec.list_line_id;
SELECT pte_code, source_system_code
INTO l_pte_code, l_ss_code
FROM qp_list_headers_b
WHERE list_header_id = l_LIMITS_rec.list_header_id;
IF p_LIMIT_ATTRS_rec.last_updated_by IS NOT NULL AND
( p_LIMIT_ATTRS_rec.last_updated_by <>
p_old_LIMIT_ATTRS_rec.last_updated_by OR
p_old_LIMIT_ATTRS_rec.last_updated_by IS NULL )
THEN
IF NOT QP_Validate.Last_Updated_By(p_LIMIT_ATTRS_rec.last_updated_by) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_LIMIT_ATTRS_rec.last_update_date IS NOT NULL AND
( p_LIMIT_ATTRS_rec.last_update_date <>
p_old_LIMIT_ATTRS_rec.last_update_date OR
p_old_LIMIT_ATTRS_rec.last_update_date IS NULL )
THEN
IF NOT QP_Validate.Last_Update_Date(p_LIMIT_ATTRS_rec.last_update_date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_LIMIT_ATTRS_rec.last_update_login IS NOT NULL AND
( p_LIMIT_ATTRS_rec.last_update_login <>
p_old_LIMIT_ATTRS_rec.last_update_login OR
p_old_LIMIT_ATTRS_rec.last_update_login IS NULL )
THEN
IF NOT QP_Validate.Last_Update_Login(p_LIMIT_ATTRS_rec.last_update_login) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
IF p_LIMIT_ATTRS_rec.program_update_date IS NOT NULL AND
( p_LIMIT_ATTRS_rec.program_update_date <>
p_old_LIMIT_ATTRS_rec.program_update_date OR
p_old_LIMIT_ATTRS_rec.program_update_date IS NULL )
THEN
IF NOT QP_Validate.Program_Update_Date(p_LIMIT_ATTRS_rec.program_update_date) THEN
x_return_status := FND_API.G_RET_STS_ERROR;
PROCEDURE Entity_Insert
( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, p_LIMIT_ATTRS_rec IN QP_Limits_PUB.Limit_Attrs_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
SELECT count(*) into l_dummy from QP_LIMIT_BALANCES
WHERE limit_id = p_LIMIT_ATTRS_rec.limit_id
AND nvl(consumed_amount,0) > 0;
, 'Entity_Delete'
);
END Entity_Insert;
PROCEDURE Entity_Delete
( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, p_LIMIT_ATTRS_rec IN QP_Limits_PUB.Limit_Attrs_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
SELECT count(*) into l_dummy from QP_LIMIT_BALANCES
WHERE limit_id = p_LIMIT_ATTRS_rec.limit_id
AND nvl(consumed_amount,0) > 0;
, 'Entity_Delete'
);
END Entity_Delete;
PROCEDURE Entity_Update
( x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2
, p_LIMIT_ATTRS_rec IN QP_Limits_PUB.Limit_Attrs_Rec_Type
)
IS
l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
SELECT count(*) into l_dummy from QP_LIMIT_BALANCES
WHERE limit_id = p_LIMIT_ATTRS_rec.limit_id
AND nvl(consumed_amount,0) > 0;
, 'Entity_Delete'
);
END Entity_Update;