The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_create_or_update IN VARCHAR2 := 'C',
px_organization_rec IN OUT NOCOPY HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE
);
p_create_or_update IN VARCHAR2 := 'C',
px_organization_rec IN OUT NOCOPY HZ_PARTY_V2PUB.ORGANIZATION_REC_TYPE
) IS
BEGIN
px_organization_rec.organization_name:= p_organization_obj.organization_name;
IF(p_create_or_update = 'C') THEN
px_organization_rec.party_rec.orig_system:= p_organization_os;
px_credit_rating_rec.spcl_event_update_date:= p_credit_rating_obj.spcl_event_update_date;
HZ_PARTY_INFO_V2PUB.update_credit_rating(
p_credit_rating_rec => l_credit_rating_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_ORGANIZATION_INFO_V2PUB.update_financial_report(
p_financial_report_rec => l_fin_report_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_ORGANIZATION_INFO_V2PUB.update_financial_number(
p_financial_number_rec => l_fin_number_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
);
SELECT HZ_BUS_OBJ_TRACKING_S.nextval
INTO l_event_id
FROM DUAL;
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_or_update => 'C',
x_return_status => x_return_status,
x_errorcode => l_errorcode,
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_org_id => x_organization_id,
p_parent_org_os => x_organization_os,
p_parent_org_osr => x_organization_osr
);
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_organization_id,
p_parent_os => x_organization_os,
p_parent_osr => x_organization_osr,
p_parent_obj_type => 'ORG'
);
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_create_or_update => 'C',
p_obj_source => p_obj_source,
p_event_id => l_event_id
);
PROCEDURE do_update_organization_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_organization_obj IN OUT NOCOPY HZ_ORGANIZATION_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_organization_id OUT NOCOPY NUMBER,
x_organization_os OUT NOCOPY VARCHAR2,
x_organization_osr OUT NOCOPY VARCHAR2
)IS
l_debug_prefix VARCHAR2(30);
l_create_update_flag VARCHAR2(1);
SELECT p.object_version_number, p.party_number
FROM HZ_PARTIES p
WHERE p.party_id = l_party_id
AND p.party_type = 'ORGANIZATION'
AND p.status in ('A','I');
SAVEPOINT do_update_organization_bo_pub;
hz_utility_v2pub.debug(p_message=>'update_organization_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);
IF(HZ_PARTY_BO_PVT.G_CALL_UPDATE_CUST_BO IS NOT NULL) THEN
l_org_raise_event := FALSE;
l_org_raise_event := HZ_PARTY_BO_PVT.is_raising_update_event(
p_party_id => x_organization_id,
p_bo_code => 'ORG'
);
l_oc_raise_event := HZ_PARTY_BO_PVT.is_raising_update_event(
p_party_id => x_organization_id,
p_bo_code => 'ORG_CUST'
);
SELECT HZ_BUS_OBJ_TRACKING_S.nextval
INTO l_org_event_id
FROM DUAL;
SELECT HZ_BUS_OBJ_TRACKING_S.nextval
INTO l_oc_event_id
FROM DUAL;
p_create_or_update => 'U',
px_organization_rec => l_organization_rec
);
HZ_PARTY_V2PUB.update_organization(
p_organization_rec => l_organization_rec,
p_party_object_version_number => l_ovn,
x_profile_id => l_profile_id,
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_errorcode => l_errorcode,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
p_create_update_flag => 'U',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data,
p_parent_org_id => x_organization_id,
p_parent_org_os => x_organization_os,
p_parent_org_osr => x_organization_osr
);
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_organization_id,
p_parent_os => x_organization_os,
p_parent_osr => x_organization_osr,
p_parent_obj_type => 'ORG'
);
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_create_or_update => 'U',
p_obj_source => p_obj_source,
p_event_id => l_org_event_id
);
p_create_or_update => 'U',
p_obj_source => p_obj_source,
p_event_id => l_oc_event_id
);
hz_utility_v2pub.debug(p_message=>'do_update_organization_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_organization_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_organization_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_organization_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_organization_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_organization_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_organization_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END do_update_organization_bo;
PROCEDURE update_organization_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_organization_obj IN HZ_ORGANIZATION_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_organization_id OUT NOCOPY NUMBER,
x_organization_os OUT NOCOPY VARCHAR2,
x_organization_osr OUT NOCOPY VARCHAR2
) IS
l_org_obj HZ_ORGANIZATION_BO;
do_update_organization_bo(
p_init_msg_list => p_init_msg_list,
p_organization_obj => l_org_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_organization_id => x_organization_id,
x_organization_os => x_organization_os,
x_organization_osr => x_organization_osr
);
END update_organization_bo;
PROCEDURE update_organization_bo(
p_organization_obj IN HZ_ORGANIZATION_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_ORGANIZATION_BO,
x_organization_id OUT NOCOPY NUMBER,
x_organization_os OUT NOCOPY VARCHAR2,
x_organization_osr OUT NOCOPY VARCHAR2
)IS
l_msg_data VARCHAR2(2000);
do_update_organization_bo(
p_init_msg_list => fnd_api.g_true,
p_organization_obj => l_org_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_organization_id => x_organization_id,
x_organization_os => x_organization_os,
x_organization_osr => x_organization_osr
);
END update_organization_bo;
l_create_update_flag VARCHAR2(1);
l_create_update_flag := HZ_REGISTRY_VALIDATE_BO_PVT.check_bo_op(
p_entity_id => x_organization_id,
p_entity_os => x_organization_os,
p_entity_osr => x_organization_osr,
p_entity_type => 'HZ_PARTIES',
p_parent_id => NULL,
p_parent_obj_type=> NULL );
IF(l_create_update_flag = 'E') THEN
FND_MESSAGE.SET_NAME('AR', 'HZ_API_INVALID_ID');
IF(l_create_update_flag = 'C') THEN
do_create_organization_bo(
p_init_msg_list => fnd_api.g_false,
p_validate_bo_flag => p_validate_bo_flag,
p_organization_obj => p_organization_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_organization_id => x_organization_id,
x_organization_os => x_organization_os,
x_organization_osr => x_organization_osr
);
ELSIF(l_create_update_flag = 'U') THEN
do_update_organization_bo(
p_init_msg_list => fnd_api.g_false,
p_organization_obj => p_organization_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_organization_id => x_organization_id,
x_organization_os => x_organization_os,
x_organization_osr => x_organization_osr
);
-- extraction validation logic is same as update
l_organization_id := p_organization_id;
The Get Organizations Updated procedure is a service to retrieve all of the Organization business objects
whose updates have been captured by the logical business event. Each Organizations Updated business event
signifies that one or more Organization business objects have been updated.
The caller provides an identifier for the Organizations Update business event and the procedure returns
database objects of the type HZ_ORGANIZATION_BO for all of the Organization business objects from the
business event.
Gathering all of the returned database objects from those API calls, the procedure packages them in a table
structure and returns them to the caller.
*/
PROCEDURE get_organizations_updated(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_event_id IN NUMBER,
x_organization_objs OUT NOCOPY HZ_ORGANIZATION_BO_TBL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_debug_prefix VARCHAR2(30) := '';
hz_utility_v2pub.debug(p_message=>'hz_organization_bo_pub.get_organizations_updated(+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_EXTRACT_ORGANIZATION_BO_PVT.get_organizations_updated(
p_init_msg_list => fnd_api.g_false,
p_event_id => p_event_id,
x_organization_objs => x_organization_objs,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
hz_utility_v2pub.debug(p_message=>'hz_organization_bo_pub.get_organizations_updated (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'hz_organization_bo_pub.get_organizations_updated(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'hz_organization_bo_pub.get_organizations_updated(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'hz_organization_bo_pub.get_organizations_updated(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
PROCEDURE get_organizations_updated(
p_event_id IN NUMBER,
x_organization_objs OUT NOCOPY HZ_ORGANIZATION_BO_TBL,
x_return_status OUT NOCOPY VARCHAR2,
x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL
) IS
l_msg_data VARCHAR2(2000);
get_organizations_updated(
p_init_msg_list => fnd_api.g_true,
p_event_id => p_event_id,
x_organization_objs => x_organization_objs,
x_return_status => x_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);
END get_organizations_updated;
PROCEDURE get_organization_updated(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_event_id IN NUMBER,
p_organization_id IN NUMBER,
x_organization_obj OUT NOCOPY HZ_ORGANIZATION_BO,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_debug_prefix VARCHAR2(30) := '';
hz_utility_v2pub.debug(p_message=>'hz_organization_bo_pub.get_organization_updated(+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_EXTRACT_ORGANIZATION_BO_PVT.get_organization_updated(
p_init_msg_list => fnd_api.g_false,
p_event_id => p_event_id,
p_organization_id => p_organization_id,
x_organization_obj => x_organization_obj,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
hz_utility_v2pub.debug(p_message=>'hz_organization_bo_pub.get_organization_updated (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'hz_organization_bo_pub.get_organization_updated(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'hz_organization_bo_pub.get_organization_updated(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'hz_organization_bo_pub.get_organization_updated(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
PROCEDURE get_organization_updated(
p_event_id IN NUMBER,
p_organization_id IN NUMBER,
x_organization_obj OUT NOCOPY HZ_ORGANIZATION_BO,
x_return_status OUT NOCOPY VARCHAR2,
x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL
) IS
l_msg_data VARCHAR2(2000);
get_organization_updated(
p_init_msg_list => fnd_api.g_true,
p_event_id => p_event_id,
p_organization_id => p_organization_id,
x_organization_obj => x_organization_obj,
x_return_status => x_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data);
END get_organization_updated;
PROCEDURE get_ids_organizations_updated (
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_event_id IN NUMBER,
x_organization_ids OUT NOCOPY HZ_EXTRACT_BO_UTIL_PVT.BO_ID_TBL,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_debug_prefix VARCHAR2(30) := '';
hz_utility_v2pub.debug(p_message=>'get_ids_organizations_updated(+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'get_ids_organizations_updated (-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'get_ids_organizations_updated(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'get_ids_organizations_updated(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'get_ids_organizations_updated(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);