The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out nocopy VARCHAR2,
X_TABLE_ROUTE_ID in NUMBER,
X_SHADOW_TABLE_ROUTE_ID in NUMBER,
X_FROM_CLAUSE in VARCHAR2,
X_TABLE_ALIAS in VARCHAR2,
X_WHERE_CLAUSE in VARCHAR2,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_DISPLAY_NAME in VARCHAR2,
X_MAP_REQUIRED_FLAG in VARCHAR2,
X_SELECT_ALLOWED_FLAG in VARCHAR2,
X_HIDE_TABLE_FOR_VIEW_FLAG in VARCHAR2,
X_DISPLAY_ORDER in NUMBER,
X_CREATION_DATE in DATE,
X_CREATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
l_x_rowid varchar2(100) := x_rowid;
cursor C is select ROWID from PQH_TABLE_ROUTE
where TABLE_ROUTE_ID = X_TABLE_ROUTE_ID
;
insert into PQH_TABLE_ROUTE (
TABLE_ROUTE_ID,
SHADOW_TABLE_ROUTE_ID,
FROM_CLAUSE,
TABLE_ALIAS,
WHERE_CLAUSE,
OBJECT_VERSION_NUMBER,
DISPLAY_NAME,
MAP_REQUIRED_FLAG ,
SELECT_ALLOWED_FLAG ,
HIDE_TABLE_FOR_VIEW_FLAG ,
DISPLAY_ORDER ,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
X_TABLE_ROUTE_ID,
X_SHADOW_TABLE_ROUTE_ID,
X_FROM_CLAUSE,
X_TABLE_ALIAS,
X_WHERE_CLAUSE,
X_OBJECT_VERSION_NUMBER,
X_DISPLAY_NAME,
X_MAP_REQUIRED_FLAG ,
X_SELECT_ALLOWED_FLAG ,
X_HIDE_TABLE_FOR_VIEW_FLAG ,
X_DISPLAY_ORDER ,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN
);
insert into PQH_TABLE_ROUTE_TL (
TABLE_ROUTE_ID,
DISPLAY_NAME,
LAST_UPDATE_DATE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATED_BY,
LANGUAGE,
SOURCE_LANG
) select
X_TABLE_ROUTE_ID,
X_DISPLAY_NAME,
X_LAST_UPDATE_DATE,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_LOGIN,
X_LAST_UPDATED_BY,
L.LANGUAGE_CODE,
userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from PQH_TABLE_ROUTE_TL T
where T.TABLE_ROUTE_ID = X_TABLE_ROUTE_ID
and T.LANGUAGE = L.LANGUAGE_CODE);
end INSERT_ROW;
cursor c is select
SHADOW_TABLE_ROUTE_ID,
FROM_CLAUSE,
TABLE_ALIAS,
WHERE_CLAUSE,
OBJECT_VERSION_NUMBER
from PQH_TABLE_ROUTE
where TABLE_ROUTE_ID = X_TABLE_ROUTE_ID
for update of TABLE_ROUTE_ID nowait;
cursor c1 is select
DISPLAY_NAME,
decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
from PQH_TABLE_ROUTE_TL
where TABLE_ROUTE_ID = X_TABLE_ROUTE_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
for update of TABLE_ROUTE_ID nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
X_TABLE_ROUTE_ID in NUMBER,
X_SHADOW_TABLE_ROUTE_ID in NUMBER,
X_FROM_CLAUSE in VARCHAR2,
X_TABLE_ALIAS in VARCHAR2,
X_WHERE_CLAUSE in VARCHAR2,
X_OBJECT_VERSION_NUMBER in NUMBER,
X_DISPLAY_NAME in VARCHAR2,
X_MAP_REQUIRED_FLAG in VARCHAR2,
X_SELECT_ALLOWED_FLAG in VARCHAR2,
X_HIDE_TABLE_FOR_VIEW_FLAG in VARCHAR2,
X_DISPLAY_ORDER in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER
) is
begin
update PQH_TABLE_ROUTE set
SHADOW_TABLE_ROUTE_ID = X_SHADOW_TABLE_ROUTE_ID,
FROM_CLAUSE = X_FROM_CLAUSE,
TABLE_ALIAS = X_TABLE_ALIAS,
WHERE_CLAUSE = X_WHERE_CLAUSE,
OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
DISPLAY_NAME = X_DISPLAY_NAME,
MAP_REQUIRED_FLAG = X_MAP_REQUIRED_FLAG ,
SELECT_ALLOWED_FLAG = X_SELECT_ALLOWED_FLAG ,
HIDE_TABLE_FOR_VIEW_FLAG = X_HIDE_TABLE_FOR_VIEW_FLAG ,
DISPLAY_ORDER = X_DISPLAY_ORDER ,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
where TABLE_ROUTE_ID = X_TABLE_ROUTE_ID ;
update PQH_TABLE_ROUTE_TL set
DISPLAY_NAME = X_DISPLAY_NAME,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
SOURCE_LANG = userenv('LANG')
where TABLE_ROUTE_ID = X_TABLE_ROUTE_ID
and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
end UPDATE_ROW;
procedure DELETE_ROW (
X_TABLE_ROUTE_ID in NUMBER
) is
begin
delete from PQH_TABLE_ROUTE_TL
where TABLE_ROUTE_ID = X_TABLE_ROUTE_ID;
delete from PQH_TABLE_ROUTE
where TABLE_ROUTE_ID = X_TABLE_ROUTE_ID;
end DELETE_ROW;
delete from PQH_TABLE_ROUTE_TL T
where not exists
(select NULL
from PQH_TABLE_ROUTE B
where B.TABLE_ROUTE_ID = T.TABLE_ROUTE_ID
);
update PQH_TABLE_ROUTE_TL T set (
DISPLAY_NAME
) = (select
B.DISPLAY_NAME
from PQH_TABLE_ROUTE_TL B
where B.TABLE_ROUTE_ID = T.TABLE_ROUTE_ID
and B.LANGUAGE = T.SOURCE_LANG)
where (
T.TABLE_ROUTE_ID,
T.LANGUAGE
) in (select
SUBT.TABLE_ROUTE_ID,
SUBT.LANGUAGE
from PQH_TABLE_ROUTE_TL SUBB, PQH_TABLE_ROUTE_TL SUBT
where SUBB.TABLE_ROUTE_ID = SUBT.TABLE_ROUTE_ID
and SUBB.LANGUAGE = SUBT.SOURCE_LANG
and (SUBB.DISPLAY_NAME <> SUBT.DISPLAY_NAME
or (SUBB.DISPLAY_NAME is null and SUBT.DISPLAY_NAME is not null)
or (SUBB.DISPLAY_NAME is not null and SUBT.DISPLAY_NAME is null)
));
insert into PQH_TABLE_ROUTE_TL (
TABLE_ROUTE_ID,
DISPLAY_NAME,
LAST_UPDATE_DATE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATED_BY,
LANGUAGE,
SOURCE_LANG
) select
B.TABLE_ROUTE_ID,
B.DISPLAY_NAME,
B.LAST_UPDATE_DATE,
B.CREATION_DATE,
B.CREATED_BY,
B.LAST_UPDATE_LOGIN,
B.LAST_UPDATED_BY,
L.LANGUAGE_CODE,
B.SOURCE_LANG
from PQH_TABLE_ROUTE_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from PQH_TABLE_ROUTE_TL T
where T.TABLE_ROUTE_ID = B.TABLE_ROUTE_ID
and T.LANGUAGE = L.LANGUAGE_CODE);
p_select_allowed_flag IN VARCHAR2,
p_hide_table_for_view_flag IN VARCHAR2,
p_display_order IN NUMBER,
p_last_update_date IN VARCHAR2,
p_owner IN VARCHAR2
) is
l_table_route_id pqh_table_route.table_route_id%TYPE;
l_select_allowed_flag pqh_table_route.select_allowed_flag%TYPE;
l_last_updated_by pqh_table_route.last_updated_by%TYPE;
l_last_update_date pqh_table_route.last_update_date%TYPE;
l_last_update_login pqh_table_route.last_update_login%TYPE;
l_last_upd_in_db pqh_table_route.last_update_date%TYPE;
select table_route_id,last_update_date
from pqh_table_route
where table_alias = p_table_alias;
select table_route_id
from pqh_table_route
where table_alias = p_shadow_table;
l_last_updated_by := -1;
l_last_updated_by := -1;
l_creation_date := nvl(to_date(p_last_update_date,'YYYY/MM/DD'),trunc(sysdate));
l_last_update_date := nvl(to_date(p_last_update_date,'YYYY/MM/DD'),trunc(sysdate));
l_last_update_login := 0;
l_last_updated_by := fnd_load_util.owner_id(p_owner);
If l_last_update_date > l_last_upd_in_db then
UPDATE_ROW (
X_TABLE_ROUTE_ID => l_table_route_id,
X_SHADOW_TABLE_ROUTE_ID => l_shadow_table_route_id,
X_FROM_CLAUSE => p_from_clause,
X_TABLE_ALIAS => p_table_alias,
X_WHERE_CLAUSE => p_where_clause,
X_OBJECT_VERSION_NUMBER => 1,
X_DISPLAY_NAME => p_display_name,
X_MAP_REQUIRED_FLAG => p_map_required_flag,
X_SELECT_ALLOWED_FLAG => p_select_allowed_flag,
X_HIDE_TABLE_FOR_VIEW_FLAG => p_hide_table_for_view_flag,
X_DISPLAY_ORDER => p_display_order,
X_LAST_UPDATE_DATE => l_last_update_date,
X_LAST_UPDATED_BY => l_last_updated_by,
X_LAST_UPDATE_LOGIN => l_last_update_login
);
select pqh_table_route_s.nextval into l_table_route_id from dual;
INSERT_ROW (
X_ROWID => l_rowid,
X_TABLE_ROUTE_ID => l_table_route_id ,
X_SHADOW_TABLE_ROUTE_ID => l_shadow_table_route_id,
X_FROM_CLAUSE => p_from_clause,
X_TABLE_ALIAS => p_table_alias,
X_WHERE_CLAUSE => p_where_clause,
X_OBJECT_VERSION_NUMBER => 1,
X_DISPLAY_NAME => p_display_name,
X_MAP_REQUIRED_FLAG => p_map_required_flag,
X_SELECT_ALLOWED_FLAG => p_select_allowed_flag,
X_HIDE_TABLE_FOR_VIEW_FLAG => p_hide_table_for_view_flag,
X_DISPLAY_ORDER => p_display_order,
X_CREATION_DATE => l_creation_date,
X_CREATED_BY => l_created_by,
X_LAST_UPDATE_DATE => l_last_update_date,
X_LAST_UPDATED_BY => l_last_updated_by,
X_LAST_UPDATE_LOGIN => l_last_update_login
);
UPDATE_ROW (
X_TABLE_ROUTE_ID => l_table_route_id,
X_SHADOW_TABLE_ROUTE_ID => l_shadow_table_route_id,
X_FROM_CLAUSE => p_from_clause,
X_TABLE_ALIAS => p_table_alias,
X_WHERE_CLAUSE => p_where_clause,
X_OBJECT_VERSION_NUMBER => 1,
X_DISPLAY_NAME => p_display_name,
X_MAP_REQUIRED_FLAG => p_map_required_flag,
X_SELECT_ALLOWED_FLAG => p_select_allowed_flag,
X_HIDE_TABLE_FOR_VIEW_FLAG => p_hide_table_for_view_flag,
X_DISPLAY_ORDER => p_display_order,
X_LAST_UPDATE_DATE => l_last_update_date,
X_LAST_UPDATED_BY => l_last_updated_by,
X_LAST_UPDATE_LOGIN => l_last_update_login
);
select pqh_table_route_s.nextval into l_table_route_id from dual;
INSERT_ROW (
X_ROWID => l_rowid,
X_TABLE_ROUTE_ID => l_table_route_id ,
X_SHADOW_TABLE_ROUTE_ID => l_shadow_table_route_id,
X_FROM_CLAUSE => p_from_clause,
X_TABLE_ALIAS => p_table_alias,
X_WHERE_CLAUSE => p_where_clause,
X_OBJECT_VERSION_NUMBER => 1,
X_DISPLAY_NAME => p_display_name,
X_MAP_REQUIRED_FLAG => p_map_required_flag,
X_SELECT_ALLOWED_FLAG => p_select_allowed_flag,
X_HIDE_TABLE_FOR_VIEW_FLAG => p_hide_table_for_view_flag,
X_DISPLAY_ORDER => p_display_order,
X_CREATION_DATE => l_creation_date,
X_CREATED_BY => l_created_by,
X_LAST_UPDATE_DATE => l_last_update_date,
X_LAST_UPDATED_BY => l_last_updated_by,
X_LAST_UPDATE_LOGIN => l_last_update_login
);
select table_route_id
from pqh_table_route
where table_alias = p_table_alias;
l_last_updated_by pqh_table_route.last_updated_by%TYPE;
l_last_update_date pqh_table_route.last_update_date%TYPE;
l_last_update_login pqh_table_route.last_update_login%TYPE;
l_last_updated_by := -1;
l_last_updated_by := 0;
l_last_update_date := sysdate;
l_last_update_login := 0;
l_last_updated_by := fnd_load_util.owner_id(p_owner);
update pqh_table_route_tl
set display_name = p_display_name ,
last_update_date = l_last_update_date,
last_updated_by = l_last_updated_by,
last_update_login = l_last_update_login,
source_lang = USERENV('LANG')
where USERENV('LANG') in (language,source_lang)
and table_route_id = l_table_route_id ;
p_select_allowed_flag IN VARCHAR2,
p_hide_table_for_view_flag IN VARCHAR2,
p_display_order IN NUMBER,
p_last_update_date IN VARCHAR2,
p_owner IN VARCHAR2
) is
--
l_data_migrator_mode varchar2(1);
p_select_allowed_flag => p_select_allowed_flag,
p_hide_table_for_view_flag => p_hide_table_for_view_flag,
p_display_order => p_display_order,
p_last_update_date => p_last_update_date,
p_owner => p_owner );