The following lines contain the word 'select', 'insert', 'update' or 'delete':
select 1
from AK_REGIONS
where region_application_id = p_region_appl_id
and region_code = p_region_code
and database_object_name = p_database_object_name;
select 1
from AK_UNIQUE_KEYS
where database_object_name = p_database_object_name
and unique_key_name = p_primary_key_name;
select 1
from USER_TAB_COLUMNS a
where a.table_name = p_table_name
and a.column_name = p_column_name;
select 1
from FND_VIEW_COLUMNS fvc, FND_VIEWS fv
where fvc.column_name = p_column_name
and fv.view_name = p_table_name
and fvc.view_id = fv.view_id;
select 1
from user_synonyms syn, ALL_TAB_COLUMNS a
where syn.synonym_name = p_table_name
and a.table_name = syn.table_name
and a.owner = syn.table_owner
and a.column_name = p_column_name
and a.owner = oracle_schema
union
select 1
from user_tab_columns col
where col.table_name = p_table_name
and col.column_name = p_column_name;
select a.application_short_name
from fnd_tables t, fnd_application a
where table_name = p_table_name
and t.application_id = a.application_id;
select 1
from ALL_TABLES
where table_name = p_table_name
and owner = oracle_schema;
select a.application_short_name
from fnd_tables t, fnd_application a
where table_name = p_table_name
and t.application_id = a.application_id;
p_caller <> AK_ON_OBJECTS_PVT.G_UPDATE))
then
l_error := TRUE;
p_caller <> AK_ON_OBJECTS_PVT.G_UPDATE))
then
l_error := TRUE;
p_caller <> AK_ON_OBJECTS_PVT.G_UPDATE))
then
l_error := TRUE;
p_caller <> AK_ON_OBJECTS_PVT.G_UPDATE))
then
l_error := TRUE;
p_caller <> AK_ON_OBJECTS_PVT.G_UPDATE)) then
l_error := TRUE;
p_caller <> AK_ON_OBJECTS_PVT.G_UPDATE)) then
l_error := TRUE;
p_caller <> AK_ON_OBJECTS_PVT.G_UPDATE))
then
l_error := TRUE;
p_caller <> AK_ON_OBJECTS_PVT.G_UPDATE))
then
l_error := TRUE;
select null
from AK_OBJECT_ATTRIBUTES
where database_object_name = p_database_object_name
and attribute_application_id = p_attribute_application_id
and attribute_code = p_attribute_code;
select data_type
from AK_ATTRIBUTES
where attribute_application_id = p_attribute_application_id
and attribute_code = p_attribute_code;
p_caller <> AK_ON_OBJECTS_PVT.G_UPDATE))
then
l_error := TRUE;
p_caller <> AK_ON_OBJECTS_PVT.G_UPDATE))
then
l_error := TRUE;
select null
from AK_OBJECT_ATTRIBUTES
where database_object_name = p_database_object_name
and attribute_application_id = p_attribute_application_id
and attribute_code = p_attribute_code;
select data_type
from AK_ATTRIBUTES
where attribute_application_id = p_attribute_application_id
and attribute_code = p_attribute_code;
select 1
from ALL_VIEWS
where view_name = p_database_object_name
and owner = p_view_owner
union all
select 1
from FND_VIEWS
where view_name = p_database_object_name;
select oracle_username
from fnd_oracle_userid
where read_only_flag='U';
p_caller <> AK_ON_OBJECTS_PVT.G_UPDATE))
then
l_error := TRUE;
AK_OBJECT_PVT.INSERT_OBJECT_PK_TABLE (
p_return_status => l_return_status,
p_database_object_name => p_from_table(l_from_index),
p_object_pk_tbl => p_to_table);
FND_MESSAGE.SET_NAME('AK','AK_INSERT_OBJECT_PK_FAILED');
select 1
from AK_OBJECT_ATTRIBUTES
where database_object_name = p_database_object_name
and attribute_application_id = p_attribute_application_id
and attribute_code = p_attribute_code;
select 1
from AK_OBJECT_ATTRIBUTE_NAVIGATION
where DATABASE_OBJECT_NAME = p_database_object_name
and ATTRIBUTE_APPLICATION_ID = p_attribute_application_id
and ATTRIBUTE_CODE = p_attribute_code
and VALUE_VARCHAR2 = p_value_varchar2
and VALUE_DATE is null
and VALUE_NUMBER is null;
select 1
from AK_OBJECT_ATTRIBUTE_NAVIGATION
where DATABASE_OBJECT_NAME = p_database_object_name
and ATTRIBUTE_APPLICATION_ID = p_attribute_application_id
and ATTRIBUTE_CODE = p_attribute_code
and VALUE_VARCHAR2 is null
and VALUE_DATE = p_value_date
and VALUE_NUMBER is null;
select 1
from AK_OBJECT_ATTRIBUTE_NAVIGATION
where DATABASE_OBJECT_NAME = p_database_object_name
and ATTRIBUTE_APPLICATION_ID = p_attribute_application_id
and ATTRIBUTE_CODE = p_attribute_code
and VALUE_VARCHAR2 is null
and VALUE_DATE is null
and VALUE_NUMBER = p_value_number;
l_sql_stmt := 'select 1 ' ||
'from ak_inst_attribute_values ' || l_where_clause;
select 1
from AK_OBJECTS
where database_object_name = p_database_object_name;
procedure DELETE_ATTRIBUTE (
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_api_version_number IN NUMBER,
p_init_msg_tbl IN BOOLEAN := FALSE,
p_msg_count OUT NOCOPY NUMBER,
p_msg_data OUT NOCOPY VARCHAR2,
p_return_status OUT NOCOPY VARCHAR2,
p_database_object_name IN VARCHAR2,
p_attribute_application_id IN NUMBER,
p_attribute_code IN VARCHAR2,
p_delete_cascade IN VARCHAR2
) is
cursor l_get_attr_values_csr is
select key_value1, key_value2, key_value3, key_value4, key_value5,
key_value6, key_value7, key_value8, key_value9, key_value10
from AK_INST_ATTRIBUTE_VALUES
where database_object_name = p_database_object_name
and attribute_application_id = p_attribute_application_id
and attribute_code = p_attribute_code;
select value_varchar2, value_date, value_number
from AK_OBJECT_ATTRIBUTE_NAVIGATION
where database_object_name = p_database_object_name
and attribute_application_id = p_attribute_application_id
and attribute_code = p_attribute_code;
select ari.REGION_APPLICATION_ID, ari.REGION_CODE
from AK_REGION_ITEMS ari, AK_REGIONS ar
where ar.database_object_name = p_database_object_name
and ar.region_application_id = ari.region_application_id
and ar.region_code = ari.region_code
and ari.attribute_application_id = p_attribute_application_id
and ari.attribute_code = p_attribute_code
and ari.OBJECT_ATTRIBUTE_FLAG = 'Y';
select afpri.FLOW_APPLICATION_ID, afpri.FLOW_CODE,
afpri.PAGE_APPLICATION_ID, afpri.PAGE_CODE,
afpri.REGION_APPLICATION_ID, afpri.REGION_CODE
from AK_FLOW_PAGE_REGION_ITEMS afpri, AK_REGIONS ar
where ar.region_application_id = afpri.region_application_id
and ar.region_code = afpri.region_code
and ar.database_object_name = p_database_object_name
and afpri.to_url_attribute_appl_id = p_attribute_application_id
and afpri.to_url_attribute_code = p_attribute_code;
l_api_name CONSTANT varchar2(30) := 'Delete_Attribute';
savepoint start_delete_attribute;
if (p_delete_cascade = 'N') then
--
-- If we are not deleting any referencing records, we cannot
-- delete the object attribute if it is being referenced in any of
-- following tables.
--
-- AK_OBJECT_ATTRIBUTE_NAVIGATION
--
open l_get_navigations_csr;
FND_MESSAGE.SET_NAME('AK','AK_CANNOT_DELETE_REFERENCE');
AK_OBJECT_PVT.DELETE_ATTRIBUTE_NAVIGATION (
p_validation_level => p_validation_level,
p_api_version_number => 1.0,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data,
p_return_status => l_return_status,
p_database_object_name => p_database_object_name,
p_attribute_application_id => p_attribute_application_id,
p_attribute_code => p_attribute_code,
p_value_varchar2 => l_value_varchar2,
p_value_date => l_value_date,
p_value_number => l_value_number,
p_delete_cascade => p_delete_cascade
);
AK_OBJECT_PVT.DELETE_ATTRIBUTE_VALUE (
p_validation_level => p_validation_level,
p_api_version_number => 1.0,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data,
p_return_status => l_return_status,
p_database_object_name => p_database_object_name,
p_attribute_application_id => p_attribute_application_id,
p_attribute_code => p_attribute_code,
p_key_value1 => l_key_value1,
p_key_value2 => l_key_value2,
p_key_value3 => l_key_value3,
p_key_value4 => l_key_value4,
p_key_value5 => l_key_value5,
p_key_value6 => l_key_value6,
p_key_value7 => l_key_value7,
p_key_value8 => l_key_value8,
p_key_value9 => l_key_value9,
p_key_value10 => l_key_value10,
p_delete_cascade => p_delete_cascade
);
AK_REGION_PVT.DELETE_ITEM (
p_validation_level => p_validation_level,
p_api_version_number => 1.0,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data,
p_return_status => l_return_status,
p_region_application_id => l_region_application_id,
p_region_code => l_region_code,
p_attribute_application_id => p_attribute_application_id,
p_attribute_code => p_attribute_code,
p_delete_cascade => p_delete_cascade
);
AK_FLOW_PVT.DELETE_PAGE_REGION_ITEM (
p_validation_level => p_validation_level,
p_api_version_number => 1.0,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data,
p_return_status => l_return_status,
p_flow_application_id => l_flow_application_id,
p_flow_code => l_flow_code,
p_page_application_id => l_page_application_id,
p_page_code => l_page_code,
p_region_application_id => l_region_application_id,
p_region_code => l_region_code,
p_attribute_application_id => p_attribute_application_id,
p_attribute_code => p_attribute_code,
p_delete_cascade => p_delete_cascade
);
delete from ak_object_attributes
where database_object_name = p_database_object_name
and attribute_application_id = p_attribute_application_id
and attribute_code = p_attribute_code;
delete from ak_object_attributes_tl
where database_object_name = p_database_object_name
and attribute_application_id = p_attribute_application_id
and attribute_code = p_attribute_code;
FND_MESSAGE.SET_NAME('AK','AK_OBJECT_ATTR_DELETED');
FND_MESSAGE.SET_NAME('AK','AK_OBJECT_ATTR_NOT_DELETED');
rollback to start_delete_attribute;
rollback to start_delete_attribute;
end DELETE_ATTRIBUTE;
procedure DELETE_ATTRIBUTE_NAVIGATION (
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_api_version_number IN NUMBER,
p_init_msg_tbl IN BOOLEAN := FALSE,
p_msg_count OUT NOCOPY NUMBER,
p_msg_data OUT NOCOPY VARCHAR2,
p_return_status OUT NOCOPY VARCHAR2,
p_database_object_name IN VARCHAR2,
p_attribute_application_id IN NUMBER,
p_attribute_code IN VARCHAR2,
p_value_varchar2 IN VARCHAR2,
p_value_date IN DATE,
p_value_number IN NUMBER,
p_delete_cascade IN VARCHAR2
) is
l_api_version_number CONSTANT number := 1.0;
l_api_name CONSTANT varchar2(30) := 'Delete_Attribute_Navigation';
savepoint start_delete_navigation;
if (p_delete_cascade = 'N') then
--
-- If we are not deleting any referencing records, we cannot
-- delete the object attribute navigation record if it is being
-- referenced in any of following tables.
--
-- (currently none)
--
null;
delete from ak_object_attribute_navigation
where database_object_name = p_database_object_name
and attribute_application_id = p_attribute_application_id
and attribute_code = p_attribute_code
and value_varchar2 = p_value_varchar2
and value_date is null
and value_number is null;
delete from ak_object_attribute_navigation
where database_object_name = p_database_object_name
and attribute_application_id = p_attribute_application_id
and attribute_code = p_attribute_code
and value_varchar2 is null
and value_date = p_value_date
and value_number is null;
delete from ak_object_attribute_navigation
where database_object_name = p_database_object_name
and attribute_application_id = p_attribute_application_id
and attribute_code = p_attribute_code
and value_varchar2 is null
and value_date is null
and value_number = p_value_number;
FND_MESSAGE.SET_NAME('AK','AK_NAV_DELETED');
FND_MESSAGE.SET_NAME('AK','AK_NAV_NOT_DELETED');
rollback to start_delete_navigation;
rollback to start_delete_navigation;
end DELETE_ATTRIBUTE_NAVIGATION;
procedure DELETE_ATTRIBUTE_VALUE (
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_api_version_number IN NUMBER,
p_init_msg_tbl IN BOOLEAN := FALSE,
p_msg_count OUT NOCOPY NUMBER,
p_msg_data OUT NOCOPY VARCHAR2,
p_return_status OUT NOCOPY VARCHAR2,
p_database_object_name IN VARCHAR2,
p_attribute_application_id IN NUMBER,
p_attribute_code IN VARCHAR2,
p_key_value1 IN VARCHAR2,
p_key_value2 IN VARCHAR2 := FND_API.G_MISS_CHAR,
p_key_value3 IN VARCHAR2 := FND_API.G_MISS_CHAR,
p_key_value4 IN VARCHAR2 := FND_API.G_MISS_CHAR,
p_key_value5 IN VARCHAR2 := FND_API.G_MISS_CHAR,
p_key_value6 IN VARCHAR2 := FND_API.G_MISS_CHAR,
p_key_value7 IN VARCHAR2 := FND_API.G_MISS_CHAR,
p_key_value8 IN VARCHAR2 := FND_API.G_MISS_CHAR,
p_key_value9 IN VARCHAR2 := FND_API.G_MISS_CHAR,
p_key_value10 IN VARCHAR2 := FND_API.G_MISS_CHAR,
p_delete_cascade IN VARCHAR2 := 'N'
) is
l_api_version_number CONSTANT number := 1.0;
l_api_name CONSTANT varchar2(30) := 'Delete_Attribute_Value';
savepoint start_delete_value;
if (p_delete_cascade = 'N') then
--
-- If we are not deleting any referencing records, we cannot
-- delete the attribute value if it is being referenced in any of
-- following tables.
--
-- (currently none)
--
null;
l_sql_stmt := 'delete from ak_inst_attribute_values ' || l_where_clause;
FND_MESSAGE.SET_NAME('AK','AK_OBJECT_DELETED');
FND_MESSAGE.SET_NAME('AK','AK_OBJECT_NOT_DELETED');
rollback to start_delete_value;
rollback to start_delete_value;
end DELETE_ATTRIBUTE_VALUE;
procedure DELETE_OBJECT (
p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
p_api_version_number IN NUMBER,
p_init_msg_tbl IN BOOLEAN := FALSE,
p_msg_count OUT NOCOPY NUMBER,
p_msg_data OUT NOCOPY VARCHAR2,
p_return_status OUT NOCOPY VARCHAR2,
p_database_object_name IN VARCHAR2,
p_delete_cascade IN VARCHAR2 := 'N'
) is
cursor l_get_obj_attributes_csr is
select ATTRIBUTE_APPLICATION_ID, ATTRIBUTE_CODE
from AK_OBJECT_ATTRIBUTES
where database_object_name = p_database_object_name;
select foreign_key_name
from AK_FOREIGN_KEYS
where database_object_name = p_database_object_name;
select unique_key_name
from AK_UNIQUE_KEYS
where database_object_name = p_database_object_name;
select REGION_APPLICATION_ID, REGION_CODE
from AK_REGIONS
where database_object_name = p_database_object_name;
l_api_name CONSTANT varchar2(30):= 'Delete_object';
savepoint start_delete_object;
if (p_delete_cascade = 'N') then
--
-- If we are not deleting any referencing records, we cannot
-- delete the object if it is being referenced in any of
-- following tables.
--
-- AK_OBJECT_ATTRIBUTES (parent-child relations)
--
open l_get_obj_attributes_csr;
AK_OBJECT_PVT.DELETE_ATTRIBUTE (
p_validation_level => p_validation_level,
p_api_version_number => 1.0,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data,
p_return_status => l_return_status,
p_database_object_name => p_database_object_name,
p_attribute_application_id => l_attribute_application_id,
p_attribute_code => l_attribute_code,
p_delete_cascade => p_delete_cascade
);
AK_KEY_PVT.DELETE_UNIQUE_KEY (
p_validation_level => p_validation_level,
p_api_version_number => 1.0,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data,
p_return_status => l_return_status,
p_unique_key_name => l_unique_key_name,
p_delete_cascade => p_delete_cascade
);
AK_KEY_PVT.DELETE_FOREIGN_KEY (
p_validation_level => p_validation_level,
p_api_version_number => 1.0,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data,
p_return_status => l_return_status,
p_foreign_key_name => l_foreign_key_name,
p_delete_cascade => p_delete_cascade
);
AK_REGION_PVT.DELETE_REGION (
p_validation_level => p_validation_level,
p_api_version_number => 1.0,
p_msg_count => l_msg_count,
p_msg_data => l_msg_data,
p_return_status => l_return_status,
p_region_application_id => l_region_application_id,
p_region_code => l_region_code,
p_delete_cascade => p_delete_cascade
);
delete from ak_objects
where database_object_name = p_database_object_name;
FND_MESSAGE.SET_NAME('AK','AK_OBJECT_DELETED');
FND_MESSAGE.SET_NAME('AK','AK_OBJECT_NOT_DELETED');
rollback to start_delete_object;
rollback to start_delete_object;
end DELETE_OBJECT;
procedure INSERT_OBJECT_PK_TABLE (
p_return_status OUT NOCOPY VARCHAR2,
p_database_object_name IN VARCHAR2,
p_object_pk_tbl IN OUT NOCOPY AK_OBJECT_PUB.Object_PK_Tbl_Type
) is
l_api_name CONSTANT varchar2(30) := 'Insert_Object_PK_Table';
end INSERT_OBJECT_PK_TABLE;
p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
p_last_update_date IN DATE := FND_API.G_MISS_DATE,
p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
p_loader_timestamp IN DATE := FND_API.G_MISS_DATE,
p_pass IN NUMBER,
p_copy_redo_flag IN OUT NOCOPY BOOLEAN
) is
l_api_version_number CONSTANT number := 1.0;
l_last_update_date date;
l_last_update_login number;
l_last_updated_by number;
if (p_last_updated_by <> FND_API.G_MISS_NUM) then
l_last_updated_by := p_last_updated_by;
if (p_last_update_date <> FND_API.G_MISS_DATE) then
l_last_update_date := p_last_update_date;
if (p_last_update_login <> FND_API.G_MISS_NUM) then
l_last_update_login := p_last_update_login;
if AK_ON_OBJECTS_PVT.IS_UPDATEABLE(
p_loader_timestamp => p_loader_timestamp,
p_created_by => l_created_by,
p_creation_date => l_creation_date,
p_last_updated_by => l_last_updated_by,
p_db_last_updated_by => null,
p_last_update_date => l_last_update_date,
p_db_last_update_date => null,
p_last_update_login => l_last_update_login,
p_create_or_update => 'CREATE') then
null;
select userenv('LANG') into l_lang
from dual;
insert into AK_OBJECTS (
DATABASE_OBJECT_NAME,
APPLICATION_ID,
PRIMARY_KEY_NAME,
DEFAULTING_API_PKG,
DEFAULTING_API_PROC,
VALIDATION_API_PKG,
VALIDATION_API_PROC,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
p_database_object_name,
p_application_id,
p_primary_key_name,
l_defaulting_api_pkg,
l_defaulting_api_proc,
l_validation_api_pkg,
l_validation_api_proc,
l_attribute_category,
l_attribute1,
l_attribute2,
l_attribute3,
l_attribute4,
l_attribute5,
l_attribute6,
l_attribute7,
l_attribute8,
l_attribute9,
l_attribute10,
l_attribute11,
l_attribute12,
l_attribute13,
l_attribute14,
l_attribute15,
l_creation_date,
l_created_by,
l_last_update_date,
l_last_updated_by,
l_last_update_login
);
FND_MESSAGE.SET_NAME('AK','AK_INSERT_OBJECT_FAILED');
insert into AK_OBJECTS_TL (
DATABASE_OBJECT_NAME,
LANGUAGE,
NAME,
DESCRIPTION,
SOURCE_LANG,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
) select
p_database_object_name,
L.LANGUAGE_CODE,
l_name,
l_description,
decode(L.LANGUAGE_CODE, l_lang, L.LANGUAGE_CODE, l_lang),
l_created_by,
l_creation_date,
l_last_updated_by,
l_last_update_date,
l_last_update_login
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from AK_OBJECTS_TL T
where T.DATABASE_OBJECT_NAME = p_database_object_name
and T.LANGUAGE = L.LANGUAGE_CODE);
p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
p_last_update_date IN DATE := FND_API.G_MISS_DATE,
p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
p_loader_timestamp IN DATE := FND_API.G_MISS_DATE,
p_pass IN NUMBER,
p_copy_redo_flag IN OUT NOCOPY BOOLEAN
) is
l_api_version_number CONSTANT number := 1.0;
l_last_update_date date;
l_last_update_login number;
l_last_updated_by number;
if (p_last_updated_by <> FND_API.G_MISS_NUM) then
l_last_updated_by := p_last_updated_by;
if (p_last_update_date <> FND_API.G_MISS_DATE) then
l_last_update_date := p_last_update_date;
if (p_last_update_login <> FND_API.G_MISS_NUM) then
l_last_update_login := p_last_update_login;
if AK_ON_OBJECTS_PVT.IS_UPDATEABLE(
p_loader_timestamp => p_loader_timestamp,
p_created_by => l_created_by,
p_creation_date => l_creation_date,
p_last_updated_by => l_last_updated_by,
p_db_last_updated_by => null,
p_last_update_date => l_last_update_date,
p_db_last_update_date => null,
p_last_update_login => l_last_update_login,
p_create_or_update => 'CREATE') then
null;
select userenv('LANG') into l_lang
from dual;
insert into AK_OBJECT_ATTRIBUTES (
DATABASE_OBJECT_NAME,
ATTRIBUTE_APPLICATION_ID,
ATTRIBUTE_CODE,
COLUMN_NAME,
ATTRIBUTE_LABEL_LENGTH,
DISPLAY_VALUE_LENGTH,
BOLD,
ITALIC,
VERTICAL_ALIGNMENT,
HORIZONTAL_ALIGNMENT,
DATA_SOURCE_TYPE,
DATA_STORAGE_TYPE,
TABLE_NAME,
BASE_TABLE_COLUMN_NAME,
REQUIRED_FLAG,
DEFAULT_VALUE_VARCHAR2,
DEFAULT_VALUE_NUMBER,
DEFAULT_VALUE_DATE,
LOV_REGION_APPLICATION_ID,
LOV_REGION_CODE,
LOV_FOREIGN_KEY_NAME,
LOV_ATTRIBUTE_APPLICATION_ID,
LOV_ATTRIBUTE_CODE,
DEFAULTING_API_PKG,
DEFAULTING_API_PROC,
VALIDATION_API_PKG,
VALIDATION_API_PROC,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
p_database_object_name,
p_attribute_application_id,
p_attribute_code,
l_column_name,
p_attribute_label_length,
p_display_value_length,
p_bold,
p_italic,
p_vertical_alignment,
p_horizontal_alignment,
p_data_source_type,
l_data_storage_type,
l_table_name,
l_base_table_column_name,
p_required_flag,
l_default_value_varchar2,
l_default_value_number,
l_default_value_date,
l_lov_region_appl_id,
l_lov_region_code,
l_lov_foreign_key_name,
l_lov_attribute_appl_id,
l_lov_attribute_code,
l_defaulting_api_pkg,
l_defaulting_api_proc,
l_validation_api_pkg,
l_validation_api_proc,
l_attribute_category,
l_attribute1,
l_attribute2,
l_attribute3,
l_attribute4,
l_attribute5,
l_attribute6,
l_attribute7,
l_attribute8,
l_attribute9,
l_attribute10,
l_attribute11,
l_attribute12,
l_attribute13,
l_attribute14,
l_attribute15,
l_creation_date,
l_created_by,
l_last_update_date,
l_last_updated_by,
l_last_update_login
);
FND_MESSAGE.SET_NAME('AK','AK_INSERT_OBJECT_ATTR_FAILED');
insert into AK_OBJECT_ATTRIBUTES_TL (
DATABASE_OBJECT_NAME,
ATTRIBUTE_APPLICATION_ID,
ATTRIBUTE_CODE,
LANGUAGE,
ATTRIBUTE_LABEL_LONG,
ATTRIBUTE_LABEL_SHORT,
SOURCE_LANG,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN
) select
p_database_object_name,
p_attribute_application_id,
p_attribute_code,
L.LANGUAGE_CODE,
l_attribute_label_long,
l_attribute_label_short,
decode(L.LANGUAGE_CODE, l_lang, L.LANGUAGE_CODE, l_lang),
l_created_by,
l_creation_date,
l_last_updated_by,
l_last_update_date,
l_last_update_login
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from AK_OBJECT_ATTRIBUTES_TL T
where T.DATABASE_OBJECT_NAME = p_database_object_name
and T.ATTRIBUTE_APPLICATION_ID = p_attribute_application_id
and T.ATTRIBUTE_CODE = p_attribute_code
and T.LANGUAGE = L.LANGUAGE_CODE);
p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
p_last_update_date IN DATE := FND_API.G_MISS_DATE,
p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
p_loader_timestamp IN DATE := FND_API.G_MISS_DATE,
p_pass IN NUMBER,
p_copy_redo_flag IN OUT NOCOPY BOOLEAN
) is
l_api_version_number CONSTANT number := 1.0;
l_last_update_date date;
l_last_update_login number;
l_last_updated_by number;
if (p_last_updated_by <> FND_API.G_MISS_NUM) then
l_last_updated_by := p_last_updated_by;
if (p_last_update_date <> FND_API.G_MISS_DATE) then
l_last_update_date := p_last_update_date;
if (p_last_update_login <> FND_API.G_MISS_NUM) then
l_last_update_login := p_last_update_login;
if AK_ON_OBJECTS_PVT.IS_UPDATEABLE(
p_loader_timestamp => p_loader_timestamp,
p_created_by => l_created_by,
p_creation_date => l_creation_date,
p_last_updated_by => l_last_updated_by,
p_db_last_updated_by => null,
p_last_update_date => l_last_update_date,
p_db_last_update_date => null,
p_last_update_login => l_last_update_login,
p_create_or_update => 'CREATE') then
null;
insert into AK_OBJECT_ATTRIBUTE_NAVIGATION (
DATABASE_OBJECT_NAME,
ATTRIBUTE_APPLICATION_ID,
ATTRIBUTE_CODE,
VALUE_VARCHAR2,
VALUE_DATE,
VALUE_NUMBER,
TO_REGION_APPL_ID,
TO_REGION_CODE,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1,
ATTRIBUTE2,
ATTRIBUTE3,
ATTRIBUTE4,
ATTRIBUTE5,
ATTRIBUTE6,
ATTRIBUTE7,
ATTRIBUTE8,
ATTRIBUTE9,
ATTRIBUTE10,
ATTRIBUTE11,
ATTRIBUTE12,
ATTRIBUTE13,
ATTRIBUTE14,
ATTRIBUTE15,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
p_database_object_name,
p_attribute_application_id,
p_attribute_code,
p_value_varchar2,
p_value_date,
p_value_number,
p_to_region_appl_id,
p_to_region_code,
l_attribute_category,
l_attribute1,
l_attribute2,
l_attribute3,
l_attribute4,
l_attribute5,
l_attribute6,
l_attribute7,
l_attribute8,
l_attribute9,
l_attribute10,
l_attribute11,
l_attribute12,
l_attribute13,
l_attribute14,
l_attribute15,
l_creation_date,
l_created_by,
l_last_update_date,
l_last_updated_by,
l_last_update_login
);
p_last_updated_by IN NUMBER := FND_API.G_MISS_NUM,
p_last_update_date IN DATE := FND_API.G_MISS_DATE,
p_last_update_login IN NUMBER := FND_API.G_MISS_NUM,
p_loader_timestamp IN DATE := FND_API.G_MISS_DATE
) is
l_api_version_number CONSTANT number := 1.0;
l_last_update_date date;
l_last_update_login number;
l_last_updated_by number;
if (p_last_updated_by <> FND_API.G_MISS_NUM) then
l_last_updated_by := p_last_updated_by;
if (p_last_update_date <> FND_API.G_MISS_DATE) then
l_last_update_date := p_last_update_date;
if (p_last_update_login <> FND_API.G_MISS_NUM) then
l_last_update_login := p_last_update_login;
if AK_ON_OBJECTS_PVT.IS_UPDATEABLE(
p_loader_timestamp => p_loader_timestamp,
p_created_by => l_created_by,
p_creation_date => l_creation_date,
p_last_updated_by => l_last_updated_by,
p_db_last_updated_by => null,
p_last_update_date => l_last_update_date,
p_db_last_update_date => null,
p_last_update_login => l_last_update_login,
p_create_or_update => 'CREATE') then
null;
insert into AK_INST_ATTRIBUTE_VALUES (
DATABASE_OBJECT_NAME,
ATTRIBUTE_APPLICATION_ID,
ATTRIBUTE_CODE,
KEY_VALUE1,
KEY_VALUE2,
KEY_VALUE3,
KEY_VALUE4,
KEY_VALUE5,
KEY_VALUE6,
KEY_VALUE7,
KEY_VALUE8,
KEY_VALUE9,
KEY_VALUE10,
VALUE_VARCHAR2,
VALUE_DATE,
VALUE_NUMBER,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
p_database_object_name,
p_attribute_application_id,
p_attribute_code,
p_key_value1,
l_key_value2,
l_key_value3,
l_key_value4,
l_key_value5,
l_key_value6,
l_key_value7,
l_key_value8,
l_key_value9,
l_key_value10,
l_value_varchar2,
l_value_date,
l_value_number,
l_creation_date,
l_created_by,
l_last_update_date,
l_last_updated_by,
l_last_update_login
);