The following lines contain the word 'select', 'insert', 'update' or 'delete':
IF (p_operation <> 'update') THEN
IF (p_operation = 'create') THEN
fnd_message.set_name('CN','CNR12_NOTE_PE_ELIGPROD_CREATE');
IF (p_operation = 'delete') THEN
fnd_message.set_name ('CN', 'CNR12_NOTE_PE_ELIG_EDATE_UPD');
fnd_message.set_name ('CN', 'CNR12_NOTE_PE_ELIGPROD_UPDATE');
fnd_message.set_name ('CN', 'CN_INVALID_UPDATE_REC');
IF p_action = 'DELETE'
THEN
-- Check wheather delete is Allowed, this only first and last record can be deleted
cn_chk_plan_element_pkg.chk_uplift_iud (x_return_status => x_return_status,
p_start_date => p_quota_rule_uplift.start_date,
p_end_date => p_quota_rule_uplift.end_date,
p_iud_flag => 'D',
p_quota_rule_id => p_quota_rule_uplift.quota_rule_id,
p_quota_rule_uplift_id => p_quota_rule_uplift.quota_rule_uplift_id,
p_loading_status => l_loading_status,
x_loading_status => l_loading_status
);
fnd_message.set_name ('CN', 'CN_UPLIFT_DELETE_NOT_ALLOWED');
SELECT DECODE (p_quota_rule_uplift.quota_rule_id, fnd_api.g_miss_num, NULL, p_quota_rule_uplift.quota_rule_id),
DECODE (p_quota_rule_uplift.start_date, fnd_api.g_miss_date, NULL, p_quota_rule_uplift.start_date),
DECODE (p_quota_rule_uplift.end_date, fnd_api.g_miss_date, NULL, p_quota_rule_uplift.end_date),
DECODE (p_quota_rule_uplift.payment_factor, NULL, 0, p_quota_rule_uplift.payment_factor),
DECODE (p_quota_rule_uplift.quota_factor, NULL, 0, p_quota_rule_uplift.quota_factor),
p_quota_rule_uplift.org_id,
p_quota_rule_uplift.quota_rule_id
INTO l_quota_rule_id,
l_rev_uplift_rec_tbl (1).start_date,
l_rev_uplift_rec_tbl (1).end_date,
l_rev_uplift_rec_tbl (1).payment_factor,
l_rev_uplift_rec_tbl (1).quota_factor,
l_rev_uplift_rec_tbl (1).org_id,
l_rev_uplift_rec_tbl (1).quota_rule_id
FROM DUAL;
SELECT q.start_date,
NVL (q.end_date, l_null_date),
q.quota_id
INTO l_start_date,
l_end_date,
l_quota_id
FROM cn_quotas q,
cn_quota_rules qr
WHERE qr.quota_rule_id = l_quota_rule_id AND q.quota_id = qr.quota_id;
SELECT r.NAME,
q.NAME
INTO l_rev_uplift_rec_tbl (1).rev_class_name,
l_quota_name
FROM cn_revenue_classes r,
cn_quotas q,
cn_quota_rules qr
WHERE qr.quota_rule_id = l_quota_rule_id AND r.revenue_class_id = qr.revenue_class_id AND q.quota_id = qr.quota_id;
PROCEDURE update_uplift (
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_commit IN VARCHAR2 := fnd_api.g_false,
p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
p_quota_rule_uplift IN OUT NOCOPY quota_rule_uplift_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'Update_Quota_Rule_Uplift';
SELECT *
FROM cn_quota_rule_uplifts
WHERE quota_rule_uplift_id = p_quota_rule_uplift.quota_rule_uplift_id;
SAVEPOINT update_quota_rule_uplift;
SELECT COUNT (1)
INTO l_temp_count
FROM cn_quota_rule_uplifts
WHERE quota_rule_id = p_quota_rule_uplift.quota_rule_id
AND TRUNC (start_date) = TRUNC (p_quota_rule_uplift.start_date)
AND quota_rule_uplift_id <> p_quota_rule_uplift.quota_rule_uplift_id
AND ROWNUM = 1;
SELECT DECODE (p_quota_rule_uplift.quota_rule_id, fnd_api.g_miss_num, l_old_quota_rule_uplift.quota_rule_id, p_quota_rule_uplift.quota_rule_id),
DECODE (p_quota_rule_uplift.start_date, fnd_api.g_miss_date, l_old_quota_rule_uplift.start_date, p_quota_rule_uplift.start_date),
DECODE (p_quota_rule_uplift.end_date, fnd_api.g_miss_date, l_old_quota_rule_uplift.end_date, p_quota_rule_uplift.end_date),
DECODE (p_quota_rule_uplift.payment_factor, NULL, 0, p_quota_rule_uplift.payment_factor),
DECODE (p_quota_rule_uplift.quota_factor, NULL, 0, p_quota_rule_uplift.quota_factor),
l_old_quota_rule_uplift.start_date,
l_old_quota_rule_uplift.end_date,
l_old_quota_rule_uplift.org_id
INTO l_rev_uplift_rec_tbl (1).quota_rule_id,
l_rev_uplift_rec_tbl (1).start_date,
l_rev_uplift_rec_tbl (1).end_date,
l_rev_uplift_rec_tbl (1).payment_factor,
l_rev_uplift_rec_tbl (1).quota_factor,
l_rev_uplift_rec_tbl (1).start_date_old,
l_rev_uplift_rec_tbl (1).end_date_old,
l_rev_uplift_rec_tbl (1).org_id
FROM DUAL;
SELECT q.start_date,
NVL (q.end_date, l_null_date),
q.quota_id
INTO l_start_date,
l_end_date,
l_quota_id
FROM cn_quotas q,
cn_quota_rules qr
WHERE qr.quota_rule_id = l_quota_rule_id AND q.quota_id = qr.quota_id;
SELECT r.NAME,
q.NAME
INTO l_rev_uplift_rec_tbl (1).rev_class_name,
l_quota_name
FROM cn_revenue_classes r,
cn_quotas q,
cn_quota_rules qr
WHERE qr.quota_rule_id = l_quota_rule_id AND r.revenue_class_id = qr.revenue_class_id AND q.quota_id = qr.quota_id;
SELECT r.NAME
INTO l_rev_uplift_rec_tbl (1).rev_class_name_old
FROM cn_revenue_classes r,
cn_quota_rules qr
WHERE qr.quota_rule_id = l_old_quota_rule_uplift.quota_rule_id AND r.revenue_class_id = qr.revenue_class_id;
cn_quota_rule_uplifts_grp.update_quota_rule_uplift (p_api_version => p_api_version,
p_init_msg_list => p_init_msg_list,
p_commit => p_commit,
p_validation_level => p_validation_level,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_quota_name => l_quota_name,
p_rev_uplift_rec_tbl => l_rev_uplift_rec_tbl,
x_loading_status => l_loading_status
);
'update',
x_return_status,
x_msg_count,
x_msg_data
);
ROLLBACK TO update_quota_rule_uplift;
ROLLBACK TO update_quota_rule_uplift;
ROLLBACK TO update_quota_rule_uplift;
END update_uplift;
PROCEDURE delete_uplift (
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_commit IN VARCHAR2 := fnd_api.g_false,
p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
p_quota_rule_uplift IN OUT NOCOPY quota_rule_uplift_rec_type,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
)
IS
l_api_name CONSTANT VARCHAR2 (30) := 'Delete_Quota_Rule_Uplift';
SAVEPOINT delete_quota_rule_uplift;
SELECT r.NAME,
q.NAME,
qru.start_date,
qru.end_date,
q.org_id,
q.quota_id
INTO l_rev_uplift_rec_tbl (1).rev_class_name,
l_quota_name,
l_rev_uplift_rec_tbl (1).start_date,
l_rev_uplift_rec_tbl (1).end_date,
l_rev_uplift_rec_tbl (1).org_id,
l_quota_id
FROM cn_revenue_classes r,
cn_quotas q,
cn_quota_rules qr,
cn_quota_rule_uplifts qru
WHERE qr.quota_rule_id = qru.quota_rule_id
AND r.revenue_class_id = qr.revenue_class_id
AND q.quota_id = qr.quota_id
AND qru.quota_rule_uplift_id = p_quota_rule_uplift.quota_rule_uplift_id;
cn_quota_rule_uplifts_grp.delete_quota_rule_uplift (p_api_version => 1.0,
p_init_msg_list => 'T',
p_commit => 'F',
p_validation_level => 100,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_quota_name => l_quota_name,
p_rev_uplift_rec_tbl => l_rev_uplift_rec_tbl,
x_loading_status => l_loading_status
);
'delete',
x_return_status,
x_msg_count,
x_msg_data
);
ROLLBACK TO delete_quota_rule_uplift;
ROLLBACK TO delete_quota_rule_uplift;
ROLLBACK TO delete_quota_rule_uplift;
END delete_uplift;