The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_create_update_flag => 'C'
,p_adapter_rec => l_adapter_rec
,x_return_status => x_return_status );
HZ_ADAPTERS_PKG.Insert_Row (
x_adapter_id => l_adapter_rec.adapter_id
,x_adapter_content_source => l_adapter_rec.adapter_content_source
,x_enabled_flag => l_adapter_rec.enabled_flag
,x_synchronous_flag => l_adapter_rec.synchronous_flag
,x_invoke_method_code => l_adapter_rec.invoke_method_code
,x_message_format_code => l_adapter_rec.message_format_code
,x_host_address => l_adapter_rec.host_address
,x_username => l_adapter_rec.username
,x_encrypted_password => l_adapter_rec.encrypted_password
,x_maximum_batch_size => l_adapter_rec.maximum_batch_size
,x_default_batch_size => l_adapter_rec.default_batch_size
,x_default_replace_status_level => l_adapter_rec.default_replace_status_level
,x_object_version_number => 1 );
FND_LOOKUP_VALUES_PKG.INSERT_ROW(
x_rowid => l_rowid,
x_lookup_type => 'CONTENT_SOURCE_TYPE',
x_security_group_id => 0,
x_view_application_id => 222,
x_lookup_code => l_adapter_rec.adapter_content_source,
x_enabled_flag => 'Y',
x_start_date_active => sysdate,
x_end_date_active => null,
x_territory_code => null,
x_tag => null,
x_attribute_category => null,
x_attribute1 => null,
x_attribute2 => null,
x_attribute3 => null,
x_attribute4 => null,
x_attribute5 => null,
x_attribute6 => null,
x_attribute7 => null,
x_attribute8 => null,
x_attribute9 => null,
x_attribute10 => null,
x_attribute11 => null,
x_attribute12 => null,
x_attribute13 => null,
x_attribute14 => null,
x_attribute15 => sysdate,
x_meaning => l_adapter_rec.adapter_meaning,
x_description => l_adapter_rec.adapter_description,
x_creation_date => hz_utility_v2pub.creation_date,
x_created_by => hz_utility_v2pub.created_by,
x_last_update_date => hz_utility_v2pub.last_update_date,
x_last_updated_by => hz_utility_v2pub.last_updated_by,
x_last_update_login => hz_utility_v2pub.last_update_login );
p_create_update_flag => 'C'
,p_adapter_terr_rec => p_adapter_terr_rec
,x_return_status => x_return_status );
HZ_ADAPTER_TERRITORIES_PKG.Insert_Row (
x_adapter_id => p_adapter_terr_rec.adapter_id
,x_territory_code => p_adapter_terr_rec.territory_code
,x_enabled_flag => p_adapter_terr_rec.enabled_flag
,x_default_flag => p_adapter_terr_rec.default_flag
,x_object_version_number => 1 );
PROCEDURE update_adapter (
p_adapter_rec IN adapter_rec_type
,px_object_version_number IN OUT NOCOPY NUMBER
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
l_object_version_number NUMBER;
savepoint update_adapter_pub;
SELECT ROWID, OBJECT_VERSION_NUMBER
INTO l_rowid, l_object_version_number
FROM HZ_ADAPTERS
WHERE ADAPTER_ID = l_adapter_id
FOR UPDATE NOWAIT;
p_create_update_flag => 'U'
,p_adapter_rec => p_adapter_rec
,x_return_status => x_return_status );
HZ_ADAPTERS_PKG.Update_Row(
x_rowid => l_rowid
,x_adapter_id => p_adapter_rec.adapter_id
,x_adapter_content_source => p_adapter_rec.adapter_content_source
,x_enabled_flag => p_adapter_rec.enabled_flag
,x_synchronous_flag => p_adapter_rec.synchronous_flag
,x_invoke_method_code => p_adapter_rec.invoke_method_code
,x_message_format_code => p_adapter_rec.message_format_code
,x_host_address => p_adapter_rec.host_address
,x_username => p_adapter_rec.username
,x_encrypted_password => p_adapter_rec.encrypted_password
,x_maximum_batch_size => p_adapter_rec.maximum_batch_size
,x_default_batch_size => p_adapter_rec.default_batch_size
,x_default_replace_status_level => p_adapter_rec.default_replace_status_level
,x_object_version_number => px_object_version_number );
ROLLBACK TO update_adapter_pub;
ROLLBACK TO update_adapter_pub;
ROLLBACK TO update_adapter_pub;
END update_adapter;
PROCEDURE update_adapter_terr (
p_adapter_terr_rec IN adapter_terr_rec_type
,px_object_version_number IN OUT NOCOPY NUMBER
,x_return_status OUT NOCOPY VARCHAR2
,x_msg_count OUT NOCOPY NUMBER
,x_msg_data OUT NOCOPY VARCHAR2
) IS
l_rowid ROWID := NULL;
savepoint update_adapter_terr_pub;
SELECT ROWID, OBJECT_VERSION_NUMBER
INTO l_rowid, l_object_version_number
FROM HZ_ADAPTER_TERRITORIES
WHERE ADAPTER_ID = l_adapter_id
AND TERRITORY_CODE = l_territory_code
FOR UPDATE NOWAIT;
p_create_update_flag => 'U'
,p_adapter_terr_rec => p_adapter_terr_rec
,x_return_status => x_return_status );
HZ_ADAPTER_TERRITORIES_PKG.Update_Row(
x_rowid => l_rowid
,x_adapter_id => p_adapter_terr_rec.adapter_id
,x_territory_code => p_adapter_terr_rec.territory_code
,x_enabled_flag => p_adapter_terr_rec.enabled_flag
,x_default_flag => p_adapter_terr_rec.default_flag
,x_object_version_number => px_object_version_number );
ROLLBACK TO update_adapter_terr_pub;
ROLLBACK TO update_adapter_terr_pub;
ROLLBACK TO update_adapter_terr_pub;
END update_adapter_terr;
p_create_update_flag IN VARCHAR2,
p_adapter_rec IN adapter_rec_type,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_dummy VARCHAR2(1);
select 'X'
from AR_LOOKUPS
where lookup_type = l_lookup_type
and lookup_code = l_lookup_code;
IF(p_create_update_flag = 'C') THEN
OPEN check_lookup(l_adapter_content_source, 'CONTENT_SOURCE_TYPE');
ELSIF(p_create_update_flag = 'U') THEN
OPEN check_lookup(l_adapter_content_source, 'CONTENT_SOURCE_TYPE');
p_create_update_flag IN VARCHAR2,
p_adapter_terr_rec IN adapter_terr_rec_type,
x_return_status IN OUT NOCOPY VARCHAR2
) IS
l_dummy VARCHAR2(1);
select 'X'
from HZ_ADAPTERS
where adapter_id = l_adapter_id;
select 'X'
from FND_TERRITORIES
where territory_code = l_territory_code;
select 'X'
from HZ_ADAPTERS la, HZ_ADAPTER_TERRITORIES lat
where la.adapter_id = lat.adapter_id
and lat.default_flag = 'Y'
and lat.enabled_flag = 'Y'
and lat.territory_code = l_territory_code
and la.adapter_id <> l_adapter_id;