The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_create_or_update IN VARCHAR2 := 'C',
px_cust_acct_site_rec IN OUT NOCOPY HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_ACCT_SITE_REC_TYPE
);
p_create_or_update IN VARCHAR2 := 'C',
px_cust_acct_site_rec IN OUT NOCOPY HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_ACCT_SITE_REC_TYPE
) IS
BEGIN
px_cust_acct_site_rec.cust_acct_site_id := p_cust_acct_site_id;
IF(p_create_or_update = 'C') THEN
px_cust_acct_site_rec.orig_system := p_cust_acct_site_os;
SELECT p.party_id, decode(p.party_type, 'ORGANIZATION', 'ORG', 'PERSON', 'PERSON')
FROM HZ_PARTIES p, HZ_CUST_ACCOUNTS a
WHERE p.party_id = a.party_id
AND a.cust_account_id = l_acct_id;
SELECT ps.party_site_id
FROM HZ_PARTY_SITES ps, HZ_ORIG_SYS_REFERENCES ref
WHERE ref.owner_table_id = ps.party_site_id
AND ref.owner_table_name = 'HZ_PARTY_SITES'
AND ref.orig_system = l_os
AND ref.orig_system_reference = l_osr
AND ref.status = 'A'
AND rownum = 1;
p_create_or_update => 'C',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
p_create_update_flag => 'C',
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_parent_id => x_cust_acct_site_id,
p_parent_os => x_cust_acct_site_os,
p_parent_osr => x_cust_acct_site_osr,
p_parent_obj_type => 'CUST_ACCT_SITE'
);
PROCEDURE update_cust_acct_site_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_cust_acct_site_obj IN HZ_CUST_ACCT_SITE_BO,
p_created_by_module IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2,
x_cust_acct_site_id OUT NOCOPY NUMBER,
x_cust_acct_site_os OUT NOCOPY VARCHAR2,
x_cust_acct_site_osr OUT NOCOPY VARCHAR2
)IS
l_cas_obj HZ_CUST_ACCT_SITE_BO;
do_update_cust_acct_site_bo(
p_init_msg_list => p_init_msg_list,
p_cust_acct_site_obj => l_cas_obj,
p_created_by_module => p_created_by_module,
p_obj_source => null,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
x_cust_acct_site_id => x_cust_acct_site_id,
x_cust_acct_site_os => x_cust_acct_site_os,
x_cust_acct_site_osr => x_cust_acct_site_osr,
p_parent_os => NULL
);
END update_cust_acct_site_bo;
PROCEDURE update_cust_acct_site_bo(
p_cust_acct_site_obj IN HZ_CUST_ACCT_SITE_BO,
p_created_by_module IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
x_return_status OUT NOCOPY VARCHAR2,
x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
x_return_obj OUT NOCOPY HZ_CUST_ACCT_SITE_BO,
x_cust_acct_site_id OUT NOCOPY NUMBER,
x_cust_acct_site_os OUT NOCOPY VARCHAR2,
x_cust_acct_site_osr OUT NOCOPY VARCHAR2
)IS
l_msg_data VARCHAR2(2000);
do_update_cust_acct_site_bo(
p_init_msg_list => fnd_api.g_true,
p_cust_acct_site_obj => l_cas_obj,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_cust_acct_site_id => x_cust_acct_site_id,
x_cust_acct_site_os => x_cust_acct_site_os,
x_cust_acct_site_osr => x_cust_acct_site_osr,
p_parent_os => NULL
);
END update_cust_acct_site_bo;
PROCEDURE do_update_cust_acct_site_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
p_cust_acct_site_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_BO,
p_created_by_module 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,
x_cust_acct_site_id OUT NOCOPY NUMBER,
x_cust_acct_site_os OUT NOCOPY VARCHAR2,
x_cust_acct_site_osr OUT NOCOPY VARCHAR2,
p_parent_os IN VARCHAR2
)IS
l_debug_prefix VARCHAR2(30) := '';
l_create_update_flag VARCHAR2(1);
SELECT s.object_version_number, s.cust_account_id, s.party_site_id
FROM HZ_CUST_ACCT_SITES s
WHERE s.cust_acct_site_id = l_cas_id;
SAVEPOINT do_update_cas_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_cas_bo(+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
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',
px_cust_acct_site_rec => l_cust_acct_site_rec
);
HZ_CUST_ACCOUNT_SITE_V2PUB.update_cust_acct_site(
p_cust_acct_site_rec => l_cust_acct_site_rec,
p_object_version_number => l_cas_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_create_update_flag => 'U',
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_parent_id => x_cust_acct_site_id,
p_parent_os => x_cust_acct_site_os,
p_parent_osr => x_cust_acct_site_osr,
p_parent_obj_type => 'CUST_ACCT_SITE'
);
hz_utility_v2pub.debug(p_message=>'do_update_cust_acct_site_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_cas_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_cust_acct_site_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_cas_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_cust_acct_site_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_cas_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_cust_acct_site_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END do_update_cust_acct_site_bo;
l_create_update_flag VARCHAR2(1);
SELECT cust_acct_site_id
FROM HZ_CUST_ACCT_SITES_ALL
WHERE cust_account_id = l_ca_id
AND party_site_id = l_ps_id
AND org_id = l_org_id
AND rownum = 1;
l_create_update_flag := HZ_REGISTRY_VALIDATE_BO_PVT.check_bo_op(
p_entity_id => x_cust_acct_site_id,
p_entity_os => x_cust_acct_site_os,
p_entity_osr => x_cust_acct_site_osr,
p_entity_type => 'HZ_CUST_ACCT_SITES_ALL',
p_parent_id => px_parent_acct_id,
p_parent_obj_type => 'CUST_ACCT'
);
IF(l_create_update_flag = 'E') THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
IF(l_create_update_flag = 'C') THEN
do_create_cust_acct_site_bo(
p_init_msg_list => fnd_api.g_false,
p_validate_bo_flag => p_validate_bo_flag,
p_cust_acct_site_obj => p_cust_acct_site_obj,
p_created_by_module => p_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 => x_cust_acct_site_id,
x_cust_acct_site_os => x_cust_acct_site_os,
x_cust_acct_site_osr => x_cust_acct_site_osr,
px_parent_acct_id => px_parent_acct_id,
px_parent_acct_os => px_parent_acct_os,
px_parent_acct_osr => px_parent_acct_osr
);
ELSIF(l_create_update_flag = 'U') THEN
do_update_cust_acct_site_bo(
p_init_msg_list => fnd_api.g_false,
p_cust_acct_site_obj => p_cust_acct_site_obj,
p_created_by_module => p_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 => x_cust_acct_site_id,
x_cust_acct_site_os => x_cust_acct_site_os,
x_cust_acct_site_osr => x_cust_acct_site_osr,
p_parent_os => px_parent_acct_os
);
-- extraction validation logic is same as update
l_cust_acct_site_id := p_cust_acct_site_id;
p_create_or_update IN VARCHAR2 := 'C',
px_cust_acct_site_rec IN OUT NOCOPY HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_ACCT_SITE_REC_TYPE
);
p_create_or_update IN VARCHAR2 := 'C',
px_cust_acct_site_rec IN OUT NOCOPY HZ_CUST_ACCOUNT_SITE_V2PUB.CUST_ACCT_SITE_REC_TYPE
) IS
BEGIN
px_cust_acct_site_rec.cust_acct_site_id := p_cust_acct_site_id;
IF(p_create_or_update = 'C') THEN
px_cust_acct_site_rec.orig_system := p_cust_acct_site_os;
SELECT p.party_id, decode(p.party_type, 'ORGANIZATION', 'ORG', 'PERSON', 'PERSON')
FROM HZ_PARTIES p, HZ_CUST_ACCOUNTS a
WHERE p.party_id = a.party_id
AND a.cust_account_id = l_acct_id;
SELECT ps.party_site_id
FROM HZ_PARTY_SITES ps, HZ_ORIG_SYS_REFERENCES ref
WHERE ref.owner_table_id = ps.party_site_id
AND ref.owner_table_name = 'HZ_PARTY_SITES'
AND ref.orig_system = l_os
AND ref.orig_system_reference = l_osr
AND ref.status = 'A'
AND rownum = 1;
p_create_or_update => 'C',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
p_create_update_flag => 'C',
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_parent_id => x_cust_acct_site_id,
p_parent_os => x_cust_acct_site_os,
p_parent_osr => x_cust_acct_site_osr,
p_parent_obj_type => 'CUST_ACCT_SITE'
);
PROCEDURE do_update_cust_acct_site_v2_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
p_cust_acct_site_v2_obj IN OUT NOCOPY HZ_CUST_ACCT_SITE_V2_BO,
p_created_by_module 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,
x_cust_acct_site_id OUT NOCOPY NUMBER,
x_cust_acct_site_os OUT NOCOPY VARCHAR2,
x_cust_acct_site_osr OUT NOCOPY VARCHAR2,
p_parent_os IN VARCHAR2
)IS
l_debug_prefix VARCHAR2(30) := '';
l_create_update_flag VARCHAR2(1);
SELECT s.object_version_number, s.cust_account_id, s.party_site_id
FROM HZ_CUST_ACCT_SITES s
WHERE s.cust_acct_site_id = l_cas_id;
SAVEPOINT do_update_cas_v2_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_cas_bo(+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
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',
px_cust_acct_site_rec => l_cust_acct_site_rec
);
HZ_CUST_ACCOUNT_SITE_V2PUB.update_cust_acct_site(
p_cust_acct_site_rec => l_cust_acct_site_rec,
p_object_version_number => l_cas_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_create_update_flag => 'U',
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_parent_id => x_cust_acct_site_id,
p_parent_os => x_cust_acct_site_os,
p_parent_osr => x_cust_acct_site_osr,
p_parent_obj_type => 'CUST_ACCT_SITE'
);
hz_utility_v2pub.debug(p_message=>'do_update_cust_acct_site_v2_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_cas_v2_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_cust_acct_site_v2_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_cas_v2_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_cust_acct_site_v2_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_cas_v2_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_cust_acct_site_v2_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END do_update_cust_acct_site_v2_bo;
PROCEDURE update_cust_acct_site_v2_bo(
p_cust_acct_site_v2_obj IN HZ_CUST_ACCT_SITE_V2_BO,
p_created_by_module IN VARCHAR2,
p_obj_source IN VARCHAR2 := null,
p_return_obj_flag IN VARCHAR2 := fnd_api.g_true,
x_return_status OUT NOCOPY VARCHAR2,
x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
x_return_obj OUT NOCOPY HZ_CUST_ACCT_SITE_V2_BO,
x_cust_acct_site_id OUT NOCOPY NUMBER,
x_cust_acct_site_os OUT NOCOPY VARCHAR2,
x_cust_acct_site_osr OUT NOCOPY VARCHAR2
)IS
l_msg_data VARCHAR2(2000);
do_update_cust_acct_site_v2_bo(
p_init_msg_list => fnd_api.g_true,
p_cust_acct_site_v2_obj => l_cas_obj,
p_created_by_module => p_created_by_module,
p_obj_source => p_obj_source,
x_return_status => x_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
x_cust_acct_site_id => x_cust_acct_site_id,
x_cust_acct_site_os => x_cust_acct_site_os,
x_cust_acct_site_osr => x_cust_acct_site_osr,
p_parent_os => NULL
);
END update_cust_acct_site_v2_bo;
l_create_update_flag VARCHAR2(1);
l_create_update_flag := HZ_REGISTRY_VALIDATE_BO_PVT.check_bo_op(
p_entity_id => x_cust_acct_site_id,
p_entity_os => x_cust_acct_site_os,
p_entity_osr => x_cust_acct_site_osr,
p_entity_type => 'HZ_CUST_ACCT_SITES_ALL',
p_parent_id => px_parent_acct_id,
p_parent_obj_type => 'CUST_ACCT'
);
IF(l_create_update_flag = 'E') THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_PROPAGATE_OBJECT_ERROR');
IF(l_create_update_flag = 'C') THEN
do_create_cust_acct_site_v2_bo(
p_init_msg_list => fnd_api.g_false,
p_validate_bo_flag => p_validate_bo_flag,
p_cust_acct_site_v2_obj => p_cust_acct_site_v2_obj,
p_created_by_module => p_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 => x_cust_acct_site_id,
x_cust_acct_site_os => x_cust_acct_site_os,
x_cust_acct_site_osr => x_cust_acct_site_osr,
px_parent_acct_id => px_parent_acct_id,
px_parent_acct_os => px_parent_acct_os,
px_parent_acct_osr => px_parent_acct_osr
);
ELSIF(l_create_update_flag = 'U') THEN
do_update_cust_acct_site_v2_bo(
p_init_msg_list => fnd_api.g_false,
p_cust_acct_site_v2_obj => p_cust_acct_site_v2_obj,
p_created_by_module => p_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 => x_cust_acct_site_id,
x_cust_acct_site_os => x_cust_acct_site_os,
x_cust_acct_site_osr => x_cust_acct_site_osr,
p_parent_os => px_parent_acct_os
);
-- extraction validation logic is same as update
l_cust_acct_site_id := p_cust_acct_site_id;