The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT party_id
FROM HZ_CUST_ACCOUNTS
WHERE cust_account_id = l_ca_id;
p_create_or_update => 'C',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
l_create_update_flag VARCHAR2(1);
SELECT cust_account_profile_id
FROM HZ_CUSTOMER_PROFILES
WHERE cust_account_id = l_ca_id
AND site_use_id = l_casu_id
AND profile_class_id = l_profile_class_id
AND status IN ('A','I');
SELECT site_use_code, object_version_number
FROM HZ_CUST_SITE_USES
WHERE site_use_id = l_casu_id
AND status in ('A','I');
SELECT party_id
FROM HZ_CUST_ACCOUNTS
WHERE cust_account_id = l_ca_id;
SELECT site_use_id
FROM HZ_CUST_SITE_USES_ALL
WHERE cust_acct_site_id = l_cas_id
AND site_use_code = l_su_code
AND status = 'A'
AND org_id = l_org_id
AND rownum = 1;
l_create_update_flag := HZ_REGISTRY_VALIDATE_BO_PVT.check_bo_op(
p_entity_id => l_casu_id,
p_entity_os => l_casu_os,
p_entity_osr => l_casu_osr,
p_entity_type => 'HZ_CUST_SITE_USES_ALL',
p_parent_id => l_parent_id,
p_parent_obj_type=> l_parent_obj_type
);
IF(l_create_update_flag = 'E') THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_STRUCT_ERROR');
IF(l_create_update_flag = 'C') THEN
assign_cust_site_use_rec(
p_cust_site_use_obj => p_casu_objs(i),
p_cust_acct_site_id => p_cas_id,
p_cust_site_use_id => l_casu_id,
p_cust_site_use_os => l_casu_os,
p_cust_site_use_osr => l_casu_osr,
px_cust_site_use_rec => l_casu_rec
);
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_SITE_V2PUB.update_cust_site_use (
p_cust_site_use_rec => l_casu_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
);
HZ_CUST_ACCT_BO_PVT.update_cust_profile(
p_cp_obj => p_casu_objs(i).site_use_profile_obj,
p_ca_id => p_ca_id,
p_casu_id => l_casu_id,
x_cp_id => l_profile_id,
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_acct_id IN NUMBER,
p_parent_acct_os IN VARCHAR2,
p_parent_acct_osr IN VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := '';
IF(p_create_update_flag = 'C') THEN
-- Create cust account sites
FOR i IN 1..p_cas_objs.COUNT LOOP
HZ_CUST_ACCT_SITE_BO_PUB.do_create_cust_acct_site_bo(
p_init_msg_list => fnd_api.g_false,
p_validate_bo_flag => fnd_api.g_false,
p_cust_acct_site_obj => p_cas_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_site_id => l_cas_id,
x_cust_acct_site_os => l_cas_os,
x_cust_acct_site_osr => l_cas_osr,
px_parent_acct_id => l_parent_acct_id,
px_parent_acct_os => l_parent_acct_os,
px_parent_acct_osr => l_parent_acct_osr
);
SELECT party_id
FROM HZ_CUST_ACCOUNTS
WHERE cust_account_id = l_ca_id;
p_create_or_update => 'C',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
l_create_update_flag VARCHAR2(1);
SELECT cust_account_profile_id
FROM HZ_CUSTOMER_PROFILES
WHERE cust_account_id = l_ca_id
AND site_use_id = l_casu_id
AND profile_class_id = l_profile_class_id
AND status IN ('A','I');
SELECT site_use_code, object_version_number
FROM HZ_CUST_SITE_USES
WHERE site_use_id = l_casu_id
AND status in ('A','I');
SELECT party_id
FROM HZ_CUST_ACCOUNTS
WHERE cust_account_id = l_ca_id;
l_create_update_flag := HZ_REGISTRY_VALIDATE_BO_PVT.check_bo_op(
p_entity_id => l_casu_id,
p_entity_os => l_casu_os,
p_entity_osr => l_casu_osr,
p_entity_type => 'HZ_CUST_SITE_USES_ALL',
p_parent_id => l_parent_id,
p_parent_obj_type=> l_parent_obj_type
);
IF(l_create_update_flag = 'E') THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_STRUCT_ERROR');
IF(l_create_update_flag = 'C') THEN
assign_cust_site_use_v2_rec(
p_cust_site_use_v2_obj => p_casu_v2_objs(i),
p_cust_acct_site_id => p_cas_id,
p_cust_site_use_id => l_casu_id,
p_cust_site_use_os => l_casu_os,
p_cust_site_use_osr => l_casu_osr,
px_cust_site_use_rec => l_casu_rec
);
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_SITE_V2PUB.update_cust_site_use (
p_cust_site_use_rec => l_casu_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
);
HZ_CUST_ACCT_BO_PVT.update_cust_profile(
p_cp_obj => p_casu_v2_objs(i).site_use_profile_obj,
p_ca_id => p_ca_id,
p_casu_id => l_casu_id,
x_cp_id => l_profile_id,
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_acct_id IN NUMBER,
p_parent_acct_os IN VARCHAR2,
p_parent_acct_osr IN VARCHAR2
) IS
l_debug_prefix VARCHAR2(30) := '';
IF(p_create_update_flag = 'C') THEN
-- Create cust account sites
FOR i IN 1..p_cas_v2_objs.COUNT LOOP
HZ_CUST_ACCT_SITE_BO_PUB.do_create_cust_acct_site_v2_bo(
p_init_msg_list => fnd_api.g_false,
p_validate_bo_flag => fnd_api.g_false,
p_cust_acct_site_v2_obj => p_cas_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_site_id => l_cas_id,
x_cust_acct_site_os => l_cas_os,
x_cust_acct_site_osr => l_cas_osr,
px_parent_acct_id => l_parent_acct_id,
px_parent_acct_os => l_parent_acct_os,
px_parent_acct_osr => l_parent_acct_osr
);