The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE update_cust_profile(
p_cp_obj IN OUT NOCOPY HZ_CUSTOMER_PROFILE_BO,
p_ca_id IN NUMBER,
p_casu_id IN NUMBER,
x_cp_id OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := '';
SELECT cp.cust_account_profile_id, cp.object_version_number
FROM HZ_CUSTOMER_PROFILES cp
WHERE cp.cust_account_id = l_ca_id
AND nvl(cp.site_use_id, -99) = nvl(l_casu_id, -99);
SELECT cp.cust_account_profile_id, cp.object_version_number, cp.cust_account_id, cp.site_use_id
FROM HZ_CUSTOMER_PROFILES cp
WHERE cp.cust_account_profile_id = l_cp_id;
SAVEPOINT update_cp_pvt;
hz_utility_v2pub.debug(p_message=>'update_cust_profile(+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NONUPDATEABLE_COLUMN' );
HZ_CUSTOMER_PROFILE_V2PUB.update_customer_profile (
p_customer_profile_rec => l_cp_rec,
p_object_version_number => l_cp_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
hz_utility_v2pub.debug(p_message=>'Error occurred at hz_cust_acct_bo_pvt.update_cust_profile, cust account id: '||p_ca_id||' cust site use id: '||p_casu_id,
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'update_cust_profile(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cp_pvt;
hz_utility_v2pub.debug(p_message=>'update_cust_profile(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cp_pvt;
hz_utility_v2pub.debug(p_message=>'update_cust_profile(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_cp_pvt;
hz_utility_v2pub.debug(p_message=>'update_cust_profile(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END update_cust_profile;
HZ_CUSTOMER_PROFILE_V2PUB.update_cust_profile_amt(
p_cust_profile_amt_rec => l_cpa_rec,
p_object_version_number => l_cpa_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_create_or_update => 'U',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
p_create_or_update => 'U',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
HZ_CUST_ACCOUNT_V2PUB.update_cust_acct_relate(
p_cust_acct_relate_rec => l_car_rec,
p_object_version_number => l_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
x_last_update_date => l_lud
);
HZ_PAYMENT_METHOD_PUB.update_payment_method(
p_payment_method_rec => l_payment_method_rec,
px_last_update_date => l_lud,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_create_update_flag IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_parent_id IN NUMBER,
p_parent_os IN VARCHAR2,
p_parent_osr IN VARCHAR2,
p_parent_obj_type IN VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := '';
IF(p_create_update_flag = 'C') THEN
-- Create cust accounts
FOR i IN 1..p_ca_objs.COUNT LOOP
HZ_CUST_ACCT_BO_PUB.do_create_cust_acct_bo(
p_validate_bo_flag => fnd_api.g_false,
p_cust_acct_obj => p_ca_objs(i),
p_created_by_module => HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cust_acct_id => l_ca_id,
x_cust_acct_os => l_ca_os,
x_cust_acct_osr => l_ca_osr,
px_parent_id => l_parent_id,
px_parent_os => l_parent_os,
px_parent_osr => l_parent_osr,
px_parent_obj_type => l_parent_obj_type
);
p_create_update_flag IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
p_parent_id IN NUMBER,
p_parent_os IN VARCHAR2,
p_parent_osr IN VARCHAR2,
p_parent_obj_type IN VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := '';
IF(p_create_update_flag = 'C') THEN
-- Create cust accounts
FOR i IN 1..p_ca_v2_objs.COUNT LOOP
HZ_CUST_ACCT_BO_PUB.do_create_cust_acct_v2_bo(
p_validate_bo_flag => fnd_api.g_false,
p_cust_acct_v2_obj => p_ca_v2_objs(i),
p_created_by_module => HZ_UTILITY_V2PUB.G_CREATED_BY_MODULE,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cust_acct_id => l_ca_id,
x_cust_acct_os => l_ca_os,
x_cust_acct_osr => l_ca_osr,
px_parent_id => l_parent_id,
px_parent_os => l_parent_os,
px_parent_osr => l_parent_osr,
px_parent_obj_type => l_parent_obj_type
);