The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE do_update_location_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_location_obj IN OUT NOCOPY HZ_LOCATION_OBJ,
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_location_id OUT NOCOPY NUMBER,
x_location_os OUT NOCOPY VARCHAR2,
x_location_osr OUT NOCOPY VARCHAR2
);
p_create_or_update IN VARCHAR2 := 'C',
px_location_rec IN OUT NOCOPY HZ_LOCATION_V2PUB.LOCATION_REC_TYPE
) IS
BEGIN
px_location_rec.location_id:= p_location_obj.location_id;
IF(p_create_or_update = 'C') THEN
px_location_rec.orig_system:= p_loc_os;
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
);
PROCEDURE do_update_location_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_location_obj IN OUT NOCOPY HZ_LOCATION_OBJ,
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_location_id OUT NOCOPY NUMBER,
x_location_os OUT NOCOPY VARCHAR2,
x_location_osr OUT NOCOPY VARCHAR2
)IS
l_debug_prefix VARCHAR2(30);
l_create_update_flag VARCHAR2(1);
SELECT loc.object_version_number
FROM HZ_LOCATIONS loc
WHERE loc.location_id = l_loc_id;
SAVEPOINT do_update_location_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_location_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_location_rec => l_location_rec
);
HZ_LOCATION_V2PUB.update_location(
p_location_rec => l_location_rec,
p_object_version_number => l_loc_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_errorcode => l_errorcode,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
hz_utility_v2pub.debug(p_message=>'do_update_location_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_location_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_location_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_location_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_location_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO do_update_location_bo_pub;
hz_utility_v2pub.debug(p_message=>'do_update_location_bo(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END do_update_location_bo;
PROCEDURE update_location_bo(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_location_obj IN HZ_LOCATION_OBJ,
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_location_id OUT NOCOPY NUMBER,
x_location_os OUT NOCOPY VARCHAR2,
x_location_osr OUT NOCOPY VARCHAR2
) IS
l_location_obj HZ_LOCATION_OBJ;
do_update_location_bo(
p_init_msg_list => p_init_msg_list,
p_location_obj => l_location_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_location_id => x_location_id,
x_location_os => x_location_os,
x_location_osr => x_location_osr
);
END update_location_bo;
PROCEDURE update_location_bo(
p_location_obj IN HZ_LOCATION_OBJ,
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_LOCATION_OBJ,
x_location_id OUT NOCOPY NUMBER,
x_location_os OUT NOCOPY VARCHAR2,
x_location_osr OUT NOCOPY VARCHAR2
) IS
l_msg_count NUMBER;
do_update_location_bo(
p_init_msg_list => fnd_api.g_true,
p_location_obj => l_location_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_location_id => x_location_id,
x_location_os => x_location_os,
x_location_osr => x_location_osr
);
END update_location_bo;
l_create_update_flag VARCHAR2(1);
l_create_update_flag := HZ_REGISTRY_VALIDATE_BO_PVT.check_bo_op(
p_entity_id => x_location_id,
p_entity_os => x_location_os,
p_entity_osr => x_location_osr,
p_entity_type => 'HZ_LOCATIONS',
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_location_bo(
p_init_msg_list => fnd_api.g_false,
p_validate_bo_flag => p_validate_bo_flag,
p_location_obj => p_location_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_location_id => x_location_id,
x_location_os => x_location_os,
x_location_osr => x_location_osr);
ELSIF(l_create_update_flag = 'U') THEN
do_update_location_bo(
p_init_msg_list => fnd_api.g_false,
p_location_obj => p_location_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_location_id => x_location_id,
x_location_os => x_location_os,
x_location_osr => x_location_osr);
SELECT HZ_LOCATION_OBJ(
NULL, --P_ACTION_TYPE,
NULL, --COMMON_OBJ_ID
LOC.LOCATION_ID,
NULL, --ORIG_SYSTEM,
NULL, --ORIG_SYSTEM_REFERENCE,
LOC.COUNTRY,
LOC.ADDRESS1,
LOC.ADDRESS2,
LOC.ADDRESS3,
LOC.ADDRESS4,
LOC.CITY,
LOC.POSTAL_CODE,
LOC.STATE,
LOC.PROVINCE,
LOC.COUNTY,
LOC.ADDRESS_KEY,
LOC.ADDRESS_STYLE,
LOC.VALIDATED_FLAG,
LOC.ADDRESS_LINES_PHONETIC,
LOC.POSTAL_PLUS4_CODE,
LOC.POSITION,
LOC.LOCATION_DIRECTIONS,
LOC.ADDRESS_EFFECTIVE_DATE,
LOC.ADDRESS_EXPIRATION_DATE,
LOC.CLLI_CODE,
LOC.LANGUAGE,
LOC.SHORT_DESCRIPTION,
LOC.DESCRIPTION,
LOC_HIERARCHY_ID,
LOC.SALES_TAX_GEOCODE,
LOC.SALES_TAX_INSIDE_CITY_LIMITS,
LOC.FA_LOCATION_ID,
LOC.TIMEZONE_ID,
LOC.ATTRIBUTE_CATEGORY,
LOC.ATTRIBUTE1, LOC.ATTRIBUTE2, LOC.ATTRIBUTE3, LOC.ATTRIBUTE4,
LOC.ATTRIBUTE5, LOC.ATTRIBUTE6, LOC.ATTRIBUTE7, LOC.ATTRIBUTE8,
LOC.ATTRIBUTE9, LOC.ATTRIBUTE10, LOC.ATTRIBUTE11, LOC.ATTRIBUTE12,
LOC.ATTRIBUTE13, LOC.ATTRIBUTE14, LOC.ATTRIBUTE15, LOC.ATTRIBUTE16,
LOC.ATTRIBUTE17, LOC.ATTRIBUTE18, LOC.ATTRIBUTE19, LOC.ATTRIBUTE20,
LOC.PROGRAM_UPDATE_DATE,
LOC.CREATED_BY_MODULE,
HZ_EXTRACT_BO_UTIL_PVT.GET_USER_NAME(LOC.CREATED_BY),
LOC.CREATION_DATE,
LOC.LAST_UPDATE_DATE,
HZ_EXTRACT_BO_UTIL_PVT.GET_USER_NAME(LOC.LAST_UPDATED_BY),
LOC.ACTUAL_CONTENT_SOURCE,
LOC.DELIVERY_POINT_CODE,
LOC.GEOMETRY_STATUS_CODE,
LOC.GEOMETRY,
HZ_ORIG_SYS_REF_OBJ_TBL(),
HZ_EXT_ATTRIBUTE_OBJ_TBL())
FROM HZ_LOCATIONS LOC
WHERE LOCATION_ID = l_loc_id;