The following lines contain the word 'select', 'insert', 'update' or 'delete':
L_LAST_UPDATE_DATE DATE := sysdate;
L_LAST_UPDATED_BY NUMBER := fnd_global.user_id;
L_LAST_UPDATE_LOGIN NUMBER := fnd_global.login_id;
SELECT pmt_plan_id
FROM cn_pmt_plans
WHERE name = p_PmtPlan_rec.name
AND start_date = p_PmtPlan_rec.start_date
AND end_date = p_PmtPlan_rec.end_date
AND org_id = p_PmtPlan_rec.org_id;
SELECT pmt_plan_id
FROM cn_pmt_plans
WHERE name = p_PmtPlan_rec.name
AND start_date = p_PmtPlan_rec.start_date
AND org_id = p_PmtPlan_rec.org_id;
SELECT cn_pmt_plans_s.nextval
INTO x_pmt_plan_id
FROM dual;
SELECT cn_pmt_plans_s.nextval
INTO x_pmt_plan_id
FROM dual;
PROCEDURE Update_PmtPlan (
p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
p_validation_level IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_old_PmtPlan_rec IN PmtPlan_rec_type,
p_PmtPlan_rec IN OUT NOCOPY PmtPlan_rec_type,
x_status OUT NOCOPY VARCHAR2,
x_loading_status OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Update_PmtPlan';
L_LAST_UPDATE_DATE DATE := sysdate;
L_LAST_UPDATED_BY NUMBER := fnd_global.user_id;
L_LAST_UPDATE_LOGIN NUMBER := fnd_global.login_id;
l_update_rec cn_pmtplan_pvt.PmtPlan_rec_type;
l_update_old_rec cn_pmtplan_pvt.PmtPlan_rec_type;
select start_date from cn_pmt_plans
where name = p_PmtPlan_rec.name
and org_id = p_PmtPlan_rec.org_id;
SAVEPOINT Update_PmtPlan;
x_loading_status := 'CN_UPDATED';
g_mode := 'UPDATE';
l_update_old_rec.org_id := p_old_PmtPlan_rec.org_id;
l_update_old_rec.name := p_old_PmtPlan_rec.name;
l_update_old_rec.minimum_amount := p_old_PmtPlan_rec.minimum_amount;
l_update_old_rec.maximum_amount := p_old_PmtPlan_rec.maximum_amount;
l_update_old_rec.min_rec_flag := p_old_PmtPlan_rec.min_rec_flag;
l_update_old_rec.max_rec_flag := p_old_PmtPlan_rec.max_rec_flag;
l_update_old_rec.max_recovery_amount := p_old_PmtPlan_rec.max_recovery_amount;
l_update_old_rec.credit_type_name := p_old_PmtPlan_rec.credit_type_name;
l_update_old_rec.pay_interval_type_name := p_old_PmtPlan_rec.pay_interval_type_name;
l_update_old_rec.start_date := p_old_PmtPlan_rec.start_date;
l_update_old_rec.end_date := p_old_PmtPlan_rec.end_date;
l_update_old_rec.object_version_number := p_old_PmtPlan_rec.object_version_number;
l_update_old_rec.recoverable_interval_type := p_old_PmtPlan_rec.recoverable_interval_type;
l_update_old_rec.pay_against_commission := p_old_PmtPlan_rec.pay_against_commission;
l_update_old_rec.payment_group_code := p_old_PmtPlan_rec.payment_group_code;
FETCH get_start_date INTO l_update_old_rec.start_date;
l_update_old_rec.pmt_plan_id := l_pmt_plan_id;
l_update_rec.org_id := p_PmtPlan_rec.org_id;
mo_global.validate_orgid_pub_api(org_id => l_update_rec.org_id,status =>l_status);
FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cn.plsql.cn_pmtplan_pub.Update_PmtPlan.org_validate',
'Validated org_id = ' || l_update_rec.org_id || ' status ='||l_status);
if (l_update_rec.org_id <> l_update_old_rec.org_id ) then
FND_MESSAGE.SET_NAME ('FND' , 'FND_MO_OU_CANNOT_UPDATE');
'cn.plsql.cn_paygroup_pub.update_PmtPlan.error',
true);
FND_MESSAGE.SET_NAME ('FND' , 'FND_MO_OU_CANNOT_UPDATE');
l_update_rec.name := p_PmtPlan_rec.name;
l_update_rec.minimum_amount := p_PmtPlan_rec.minimum_amount;
l_update_rec.maximum_amount := p_PmtPlan_rec.maximum_amount;
l_update_rec.min_rec_flag := p_PmtPlan_rec.min_rec_flag;
l_update_rec.max_rec_flag := p_PmtPlan_rec.max_rec_flag;
l_update_rec.max_recovery_amount := p_PmtPlan_rec.max_recovery_amount;
l_update_rec.credit_type_name := p_PmtPlan_rec.credit_type_name;
l_update_rec.pay_interval_type_name := p_PmtPlan_rec.pay_interval_type_name;
l_update_rec.start_date := p_PmtPlan_rec.start_date;
l_update_rec.end_date := p_PmtPlan_rec.end_date;
l_update_rec.object_version_number := p_PmtPlan_rec.object_version_number;
l_update_rec.recoverable_interval_type := p_PmtPlan_rec.recoverable_interval_type;
l_update_rec.pay_against_commission := p_PmtPlan_rec.pay_against_commission;
l_update_rec.payment_group_code := p_PmtPlan_rec.payment_group_code;
l_update_rec.pmt_plan_id := l_pmt_plan_id;
CN_PMTPLAN_PVT.Update_PmtPlan
(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_old_PmtPlan_rec => l_update_old_rec,
p_PmtPlan_rec => l_update_rec,
x_status => x_status,
x_loading_status => x_loading_status
);
ROLLBACK TO Update_PmtPlan;
ROLLBACK TO Update_PmtPlan;
ROLLBACK TO Update_PmtPlan;
END Update_PmtPlan;
PROCEDURE Delete_PmtPlan
( p_api_version IN NUMBER,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
p_validation_level IN NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_PmtPlan_rec IN PmtPlan_rec_type ,
x_status OUT NOCOPY VARCHAR2,
x_loading_status OUT NOCOPY VARCHAR2
) IS
l_api_name CONSTANT VARCHAR2(30) := 'Delete_PmtPlan';
select start_date from cn_pmt_plans
where name = p_PmtPlan_rec.name
and org_id = p_PmtPlan_rec.org_id;
FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,'cn.plsql.cn_pmtplan_pub.delete_PmtPlan.org_validate',
'Validated org_id = ' || l_create_rec.org_id || ' status ='||l_status);
CN_PMTPLAN_PVT.Delete_PmtPlan
(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_PmtPlan_rec => l_create_rec,
x_status => x_status,
x_loading_status => x_loading_status);
END Delete_PmtPlan;