The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_RESULT_ATTRIBUTE (X_MESSAGE_TYPE in VARCHAR2,
X_MESSAGE_NAME in VARCHAR2,
X_CATEGORY in VARCHAR2,
X_LOOKUP_TYPE in VARCHAR2,
X_LOOKUP_CODE in VARCHAR2,
X_LABEL in VARCHAR2,
X_OWNER in VARCHAR2,
X_LAST_UPDATE_DATE in VARCHAR2)
is
l_row_id varchar2(50);
l_ludate date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
select ROWID from WF_WL_RESULT_ATTRIBUTES
where MESSAGE_TYPE = X_MESSAGE_TYPE and
MESSAGE_NAME = X_MESSAGE_NAME and
CATEGORY = X_CATEGORY;
insert into WF_WL_RESULT_ATTRIBUTES (MESSAGE_TYPE,
MESSAGE_NAME,
CATEGORY ,
LOOKUP_TYPE ,
LOOKUP_CODE ,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
SECURITY_GROUP_ID)
values (X_MESSAGE_TYPE,
X_MESSAGE_NAME,
X_CATEGORY ,
X_LOOKUP_TYPE ,
X_LOOKUP_CODE ,
l_ludate, --CREATION_DATE,
l_luby, --CREATED_BY,
l_ludate, --LAST_UPDATE_DATE,
l_luby, --LAST_UPDATED_BY,
0, --LAST_UPDATE_LOGIN,
FND_GLOBAL.SECURITY_GROUP_ID);
insert into WF_WL_RESULT_ATTRIBUTES_TL (MESSAGE_TYPE,
MESSAGE_NAME,
CATEGORY ,
LABEL ,
LANGUAGE ,
SOURCE_LANG ,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
SECURITY_GROUP_ID)
select X_MESSAGE_TYPE,
X_MESSAGE_NAME,
X_CATEGORY,
X_LABEL,
L.LANGUAGE_CODE,
userenv('LANG'),
l_ludate, --CREATION_DATE,
l_luby, --CREATED_BY,
l_ludate, --LAST_UPDATE_DATE,
l_luby, --LAST_UPDATED_BY,
0, --LAST_UPDATE_LOGIN,
FND_GLOBAL.SECURITY_GROUP_ID
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists
(select NULL
from WF_WL_RESULT_ATTRIBUTES_TL TL
where TL.MESSAGE_TYPE = X_MESSAGE_TYPE and
TL.MESSAGE_NAME = X_MESSAGE_NAME and
TL.CATEGORY = X_CATEGORY and
TL.LANGUAGE = L.LANGUAGE_CODE);
raise_application_error (-20000, 'WF_WL_RESULT_ATTRIBUTES_PKG.INSERT_RESULT_ATTRIBUTE: unable to create attribute'||X_CATEGORY||' for '||X_MESSAGE_NAME);
end INSERT_RESULT_ATTRIBUTE;
procedure UPDATE_RESULT_ATTRIBUTE (X_MESSAGE_TYPE in VARCHAR2,
X_MESSAGE_NAME in VARCHAR2,
X_CATEGORY in VARCHAR2,
X_LOOKUP_TYPE in VARCHAR2,
X_LOOKUP_CODE in VARCHAR2,
X_LABEL in VARCHAR2,
X_OWNER IN VARCHAR2,
X_LAST_UPDATE_DATE IN VARCHAR2)
is
l_luby number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
l_ludate date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
update WF_WL_RESULT_ATTRIBUTES B
set B.LOOKUP_TYPE = X_LOOKUP_TYPE,
B.LOOKUP_CODE = X_LOOKUP_CODE,
B.LAST_UPDATE_DATE = l_ludate,
B.LAST_UPDATED_BY = l_luby,
B.LAST_UPDATE_LOGIN = 0
where MESSAGE_TYPE = X_MESSAGE_TYPE and
MESSAGE_NAME = X_MESSAGE_NAME and
CATEGORY = X_CATEGORY;
INSERT_RESULT_ATTRIBUTE (X_MESSAGE_TYPE => UPDATE_RESULT_ATTRIBUTE.X_MESSAGE_TYPE,
X_MESSAGE_NAME => UPDATE_RESULT_ATTRIBUTE.X_MESSAGE_NAME,
X_CATEGORY => UPDATE_RESULT_ATTRIBUTE.X_CATEGORY ,
X_LOOKUP_TYPE => UPDATE_RESULT_ATTRIBUTE.X_LOOKUP_TYPE ,
X_LOOKUP_CODE => UPDATE_RESULT_ATTRIBUTE.X_LOOKUP_CODE ,
X_LABEL => UPDATE_RESULT_ATTRIBUTE.X_LABEL ,
X_OWNER => UPDATE_RESULT_ATTRIBUTE.X_OWNER ,
X_LAST_UPDATE_DATE => UPDATE_RESULT_ATTRIBUTE.X_LAST_UPDATE_DATE);
TRANSLATE_RESULT_ATTRIBUTE (X_MESSAGE_TYPE => UPDATE_RESULT_ATTRIBUTE.X_MESSAGE_TYPE,
X_MESSAGE_NAME => UPDATE_RESULT_ATTRIBUTE.X_MESSAGE_NAME,
X_CATEGORY => UPDATE_RESULT_ATTRIBUTE.X_CATEGORY ,
X_LABEL => UPDATE_RESULT_ATTRIBUTE.X_LABEL ,
X_OWNER => UPDATE_RESULT_ATTRIBUTE.X_OWNER ,
X_LAST_UPDATE_DATE => UPDATE_RESULT_ATTRIBUTE.X_LAST_UPDATE_DATE);
end UPDATE_RESULT_ATTRIBUTE;
insert into WF_WL_RESULT_ATTRIBUTES_TL (MESSAGE_TYPE,
MESSAGE_NAME,
CATEGORY ,
LABEL ,
LANGUAGE ,
SOURCE_LANG ,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
SECURITY_GROUP_ID)
select B.MESSAGE_TYPE,
B.MESSAGE_NAME,
B.CATEGORY ,
B.LABEL ,
L.LANGUAGE_CODE,
B.SOURCE_LANG ,
B.CREATION_DATE,
B.CREATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_LOGIN,
B.SECURITY_GROUP_ID
from WF_WL_RESULT_ATTRIBUTES_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from WF_WL_RESULT_ATTRIBUTES_TL TL
where TL.MESSAGE_TYPE = B.MESSAGE_TYPE and
TL.MESSAGE_NAME = B.MESSAGE_NAME and
TL.CATEGORY = B.CATEGORY and
TL.LANGUAGE = L.LANGUAGE_CODE);
X_LAST_UPDATE_DATE IN VARCHAR2)
is
l_luby number := FND_LOAD_UTIL.OWNER_ID(X_OWNER);
l_ludate date := nvl(to_date(X_LAST_UPDATE_DATE, 'YYYY/MM/DD'), sysdate);
update WF_WL_RESULT_ATTRIBUTES_TL TL
set TL.LABEL = X_LABEL,
TL.SOURCE_LANG = userenv('LANG'),
TL.LAST_UPDATE_DATE = l_ludate,
TL.LAST_UPDATED_BY = l_luby,
TL.LAST_UPDATE_LOGIN = 0
where TL.MESSAGE_TYPE = X_MESSAGE_TYPE and
TL.MESSAGE_NAME = X_MESSAGE_NAME and
TL.CATEGORY = X_CATEGORY and
userenv('LANG') in (TL.LANGUAGE, TL.SOURCE_LANG);
raise_application_error (-20000, 'WF_WL_RESULT_ATTRIBUTES_PKG.TRANSLATE_RESULT_ATTRIBUTE: unable to update attribute'
||X_CATEGORY||' for '||X_MESSAGE_NAME||'. Ensure base language is uploaded first');