The following lines contain the word 'select', 'insert', 'update' or 'delete':
P_LAST_UPDATE_DATE out nocopy DATE,
P_LAST_UPDATED_BY out nocopy NUMBER,
P_LAST_UPDATE_LOGIN out nocopy NUMBER
) is
begin
if P_OWNER = 'SEED' then
P_CREATED_BY := 1;
P_LAST_UPDATED_BY := 1;
P_LAST_UPDATED_BY := 0;
P_LAST_UPDATE_DATE := sysdate;
P_LAST_UPDATE_LOGIN := 0;
procedure INSERT_ROW (
P_ROWID in out nocopy VARCHAR2,
P_TYPE_CD in VARCHAR2,
P_DESCRIPTION in VARCHAR2,
P_NAME in VARCHAR2,
P_CREATION_DATE in DATE,
P_CREATED_BY in NUMBER,
P_LAST_UPDATE_DATE in DATE,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER
) is
cursor C is select ROWID from BEN_STARTUP_ACTN_TYP
where TYPE_CD = P_TYPE_CD
;
insert into BEN_STARTUP_ACTN_TYP (
TYPE_CD,
DESCRIPTION,
NAME,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN
) values (
P_TYPE_CD,
P_DESCRIPTION,
P_NAME,
P_CREATION_DATE,
P_CREATED_BY,
P_LAST_UPDATE_DATE,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_LOGIN
);
insert into BEN_STARTUP_ACTN_TYP_TL (
LAST_UPDATE_LOGIN,
CREATED_BY,
CREATION_DATE,
DESCRIPTION,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
NAME,
TYPE_CD,
LANGUAGE,
SOURCE_LANG
) select
P_LAST_UPDATE_LOGIN,
P_CREATED_BY,
P_CREATION_DATE,
P_DESCRIPTION,
P_LAST_UPDATE_DATE,
P_LAST_UPDATED_BY,
P_NAME,
P_TYPE_CD,
L.LANGUAGE_CODE,
userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from BEN_STARTUP_ACTN_TYP_TL T
where T.TYPE_CD = P_TYPE_CD
and T.LANGUAGE = L.LANGUAGE_CODE);
end INSERT_ROW;
cursor c is select
DESCRIPTION
from BEN_STARTUP_ACTN_TYP
where TYPE_CD = P_TYPE_CD
for update of TYPE_CD nowait;
cursor c1 is select
NAME,
decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
from BEN_STARTUP_ACTN_TYP_TL
where TYPE_CD = P_TYPE_CD
and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
for update of TYPE_CD nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
procedure UPDATE_ROW (
P_TYPE_CD in VARCHAR2,
P_DESCRIPTION in VARCHAR2,
P_NAME in VARCHAR2,
P_LAST_UPDATE_DATE in DATE,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER
) is
begin
update BEN_STARTUP_ACTN_TYP set
NAME = decode(userenv('LANG'),'US',P_NAME,NAME),
DESCRIPTION = P_DESCRIPTION,
LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
LAST_UPDATED_BY = P_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN
where TYPE_CD = P_TYPE_CD;
update BEN_STARTUP_ACTN_TYP_TL set
NAME = P_NAME,
DESCRIPTION = P_DESCRIPTION,
LAST_UPDATE_DATE = P_LAST_UPDATE_DATE,
LAST_UPDATED_BY = P_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN,
SOURCE_LANG = userenv('LANG')
where TYPE_CD = P_TYPE_CD
and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
end UPDATE_ROW;
procedure DELETE_ROW (
P_TYPE_CD in VARCHAR2
) is
begin
delete from BEN_STARTUP_ACTN_TYP_TL
where TYPE_CD = P_TYPE_CD;
delete from BEN_STARTUP_ACTN_TYP
where TYPE_CD = P_TYPE_CD;
end DELETE_ROW;
L_LAST_UPDATE_DATE DATE;
L_LAST_UPDATED_BY NUMBER;
L_LAST_UPDATE_LOGIN NUMBER;
L_LAST_UPDATE_DATE,
L_LAST_UPDATED_BY,
L_LAST_UPDATE_LOGIN
);
UPDATE_ROW (
P_TYPE_CD ,
P_DESCRIPTION ,
P_NAME ,
L_LAST_UPDATE_DATE ,
L_LAST_UPDATED_BY ,
L_LAST_UPDATE_LOGIN
);
INSERT_ROW (
L_ROWID,
P_TYPE_CD ,
P_DESCRIPTION ,
P_NAME,
L_CREATION_DATE,
L_CREATED_BY,
L_LAST_UPDATE_DATE,
L_LAST_UPDATED_BY,
L_LAST_UPDATE_LOGIN);
L_LAST_UPDATE_DATE DATE;
L_LAST_UPDATED_BY NUMBER;
L_LAST_UPDATE_LOGIN NUMBER;
L_LAST_UPDATE_DATE,
L_LAST_UPDATED_BY,
L_LAST_UPDATE_LOGIN
);
update BEN_STARTUP_ACTN_TYP_TL set
NAME = P_NAME,
DESCRIPTION = P_DESCRIPTION ,
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 TYPE_CD = P_TYPE_CD
and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
delete from BEN_STARTUP_ACTN_TYP_TL T
where not exists
(select NULL
from BEN_STARTUP_ACTN_TYP B
where B.TYPE_CD = T.TYPE_CD
);
update BEN_STARTUP_ACTN_TYP_TL T set (
NAME , DESCRIPTION
) = (select
B.NAME , B.DESCRIPTION
from BEN_STARTUP_ACTN_TYP_TL B
where B.TYPE_CD = T.TYPE_CD
and B.LANGUAGE = T.SOURCE_LANG)
where (
T.TYPE_CD,
T.LANGUAGE
) in (select
SUBT.TYPE_CD,
SUBT.LANGUAGE
from BEN_STARTUP_ACTN_TYP_TL SUBB, BEN_STARTUP_ACTN_TYP_TL SUBT
where SUBB.TYPE_CD = SUBT.TYPE_CD
and SUBB.LANGUAGE = SUBT.SOURCE_LANG
and (SUBB.NAME <> SUBT.NAME
));
insert into BEN_STARTUP_ACTN_TYP_TL (
LAST_UPDATE_LOGIN,
CREATED_BY,
CREATION_DATE,
DESCRIPTION,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
NAME,
TYPE_CD,
LANGUAGE,
SOURCE_LANG
) select
B.LAST_UPDATE_LOGIN,
B.CREATED_BY,
B.CREATION_DATE,
B.DESCRIPTION,
B.LAST_UPDATE_DATE,
B.LAST_UPDATED_BY,
B.NAME,
B.TYPE_CD,
L.LANGUAGE_CODE,
B.SOURCE_LANG
from BEN_STARTUP_ACTN_TYP_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from BEN_STARTUP_ACTN_TYP_TL T
where T.TYPE_CD = B.TYPE_CD
and T.LANGUAGE = L.LANGUAGE_CODE);