The following lines contain the word 'select', 'insert', 'update' or 'delete':
select AAT.APPROVER_TYPE_ID
into X_APPROVER_TYPE_ID
from AME_APPROVER_TYPES AAT
where AAT.ORIG_SYSTEM = L_ORIG_SYSTEM
and sysdate between AAT.START_DATE and nvl(AAT.END_DATE - (1/86400),sysdate);
select AIC.ITEM_CLASS_ID
into X_ITEM_CLASS_ID
from AME_ITEM_CLASSES AIC
where AIC.NAME = 'line item'
and sysdate between AIC.START_DATE and nvl(AIC.END_DATE - (1/86400),sysdate);
select AIC.ITEM_CLASS_ID
into X_ITEM_CLASS_ID
from AME_ITEM_CLASSES AIC
where AIC.NAME = 'header'
and sysdate between AIC.START_DATE and nvl(AIC.END_DATE - (1/86400),sysdate);
select AIC.ITEM_CLASS_ID
into X_ITEM_CLASS_ID
from AME_ITEM_CLASSES AIC
where AIC.NAME = X_ITEM_CLASS_NAME
and sysdate between AIC.START_DATE and nvl(AIC.END_DATE - (1/86400),sysdate);
procedure INSERT_ROW
(X_ATTRIBUTE_NAME in varchar2
,X_ATTRIBUTE_TYPE in varchar2
,X_DESCRIPTION in varchar2
,X_LINE_ITEM in varchar2
,X_ITEM_CLASS_ID in number
,X_APPROVER_TYPE_ID in number
,X_START_DATE in date
,X_END_DATE in date
,X_CREATED_BY in number
,X_CREATION_DATE in date
,X_LAST_UPDATED_BY in number
,X_LAST_UPDATE_DATE in date
,X_LAST_UPDATE_LOGIN in number
,X_OBJECT_VERSION_NUMBER in number
) as
X_ATTRIBUTE_ID number;
select AME_ATTRIBUTES_S.NEXTVAL
into X_ATTRIBUTE_ID
from dual;
insert into AME_ATTRIBUTES
(ATTRIBUTE_ID
,NAME
,ATTRIBUTE_TYPE
,DESCRIPTION
,LINE_ITEM
,ITEM_CLASS_ID
,APPROVER_TYPE_ID
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
,START_DATE
,END_DATE
,OBJECT_VERSION_NUMBER
) select X_ATTRIBUTE_ID,
X_ATTRIBUTE_NAME,
X_ATTRIBUTE_TYPE,
X_DESCRIPTION,
X_LINE_ITEM,
X_ITEM_CLASS_ID,
X_APPROVER_TYPE_ID,
X_CREATED_BY,
X_CREATION_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATE_LOGIN,
X_START_DATE,
X_END_DATE,
X_OBJECT_VERSION_NUMBER
from dual where not exists (select null
from AME_ATTRIBUTES
where NAME = X_ATTRIBUTE_NAME
and sysdate between START_DATE and nvl(END_DATE - (1/86400), sysdate));
insert into AME_ATTRIBUTES_TL
(ATTRIBUTE_ID
,DESCRIPTION
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
,LANGUAGE
,SOURCE_LANG
) select X_ATTRIBUTE_ID,
X_DESCRIPTION,
X_CREATED_BY,
X_CREATION_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATE_LOGIN,
L.LANGUAGE_CODE,
userenv('LANG')
from FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and not exists (select null
from AME_ATTRIBUTES_TL T
where T.ATTRIBUTE_ID = X_ATTRIBUTE_ID
and T.LANGUAGE = L.LANGUAGE_CODE);
end INSERT_ROW;
procedure UPDATE_ROW
(X_ATTRIBUTE_ID in number
,X_ATTRIBUTE_NAME in varchar2
,X_ATTRIBUTE_TYPE in varchar2
,X_DESCRIPTION in varchar2
,X_LINE_ITEM in varchar2
,X_ITEM_CLASS_ID in number
,X_APPROVER_TYPE_ID in number
,X_START_DATE in date
,X_END_DATE in date
,X_CREATED_BY in number
,X_CREATION_DATE in date
,X_LAST_UPDATED_BY in number
,X_LAST_UPDATE_DATE in date
,X_LAST_UPDATE_LOGIN in number
,X_OBJECT_VERSION_NUMBER in number
) as
X_LOCK_HANDLE varchar2(500);
select START_DATE
into l_current_start_date
from AME_ATTRIBUTES
where ATTRIBUTE_ID = X_ATTRIBUTE_ID
and sysdate between START_DATE and nvl(END_DATE-(1/86400),sysdate);
update AME_ATTRIBUTES AA
set AA.END_DATE = X_START_DATE
where AA.ATTRIBUTE_ID = X_ATTRIBUTE_ID
and sysdate between AA.START_DATE and nvl(AA.END_DATE - (1/86400),sysdate);
update AME_ATTRIBUTES AA
set END_DATE = X_START_DATE - (1/86400)
where AA.ATTRIBUTE_ID = X_ATTRIBUTE_ID
and sysdate between AA.START_DATE and nvl(AA.END_DATE - (1/86400),sysdate);
insert into AME_ATTRIBUTES
(ATTRIBUTE_ID
,NAME
,ATTRIBUTE_TYPE
,DESCRIPTION
,LINE_ITEM
,ITEM_CLASS_ID
,APPROVER_TYPE_ID
,START_DATE
,END_DATE
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
,OBJECT_VERSION_NUMBER
) values
(X_ATTRIBUTE_ID
,X_ATTRIBUTE_NAME
,X_ATTRIBUTE_TYPE
,X_DESCRIPTION
,X_LINE_ITEM
,X_ITEM_CLASS_ID
,X_APPROVER_TYPE_ID
,X_START_DATE
,X_END_DATE
,X_CREATED_BY
,X_CREATION_DATE
,X_LAST_UPDATED_BY
,X_LAST_UPDATE_DATE
,X_LAST_UPDATE_LOGIN
,X_OBJECT_VERSION_NUMBER
);
update AME_ATTRIBUTES_TL
set DESCRIPTION = nvl(X_DESCRIPTION,DESCRIPTION),
SOURCE_LANG = userenv('LANG'),
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = 0
where ATTRIBUTE_ID = X_ATTRIBUTE_ID
and userenv('LANG') in (LANGUAGE,SOURCE_LANG);
end UPDATE_ROW;
procedure FORCE_UPDATE_ROW (
X_ROWID in VARCHAR2,
X_ATTRIBUTE_ID in number,
X_ATTRIBUTE_TYPE in varchar2,
X_DESCRIPTION in varchar2,
X_LINE_ITEM in varchar2,
X_ITEM_CLASS_ID in number,
X_APPROVER_TYPE_ID in number,
X_CREATED_BY in NUMBER,
X_CREATION_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATE_LOGIN in NUMBER,
X_START_DATE in DATE,
X_END_DATE in DATE,
X_OBJECT_VERSION_NUMBER in NUMBER
) is
begin
update AME_ATTRIBUTES
set ATTRIBUTE_TYPE = X_ATTRIBUTE_TYPE,
DESCRIPTION = X_DESCRIPTION,
LINE_ITEM = X_LINE_ITEM,
ITEM_CLASS_ID = X_ITEM_CLASS_ID,
APPROVER_TYPE_ID = X_APPROVER_TYPE_ID,
CREATED_BY = X_CREATED_BY,
CREATION_DATE = X_CREATION_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
START_DATE = X_START_DATE,
END_DATE = X_END_DATE,
OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER
where ROWID = X_ROWID;
update AME_ATTRIBUTES_TL
set DESCRIPTION = nvl(X_DESCRIPTION,DESCRIPTION),
SOURCE_LANG = userenv('LANG'),
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = 0
where ATTRIBUTE_ID = X_ATTRIBUTE_ID
and userenv('LANG') in (LANGUAGE,SOURCE_LANG);
end FORCE_UPDATE_ROW;
,X_LAST_UPDATE_DATE in varchar2
,X_CUSTOM_MODE in varchar2
) as
L_ATTRIBUTE_NAME AME_ATTRIBUTES.NAME%TYPE;
L_LAST_UPDATE_DATE varchar2(19);
L_LAST_UPDATE_DATE := X_LAST_UPDATE_DATE;
select AA.ATTRIBUTE_ID,
nvl(AA.OBJECT_VERSION_NUMBER,1),
ROWID
into L_ATTRIBUTE_ID,
L_OBJECT_VERSION_NUMBER,
L_ROWID
from AME_ATTRIBUTES AA
where AA.NAME = X_ATTRIBUTE_NAME
and sysdate between AA.START_DATE and nvl(AA.END_DATE - (1/86400),sysdate);
FORCE_UPDATE_ROW
(X_ROWID => L_ROWID
,X_ATTRIBUTE_ID => L_ATTRIBUTE_ID
,X_ATTRIBUTE_TYPE => L_ATTRIBUTE_TYPE
,X_DESCRIPTION => L_DESCRIPTION
,X_LINE_ITEM => L_LINE_ITEM
,X_ITEM_CLASS_ID => L_ITEM_CLASS_ID
,X_APPROVER_TYPE_ID => L_APPROVER_TYPE_ID
,X_CREATED_BY => AME_SEED_UTILITY.OWNER_AS_INTEGER(L_OWNER)
,X_CREATION_DATE => AME_SEED_UTILITY.DATE_AS_DATE(L_LAST_UPDATE_DATE)
,X_LAST_UPDATE_DATE => AME_SEED_UTILITY.DATE_AS_DATE(L_LAST_UPDATE_DATE)
,X_LAST_UPDATED_BY => AME_SEED_UTILITY.OWNER_AS_INTEGER(L_OWNER)
,X_LAST_UPDATE_LOGIN => 0
,X_START_DATE => AME_SEED_UTILITY.DATE_AS_DATE(L_LAST_UPDATE_DATE)
,X_END_DATE => L_END_DATE
,X_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER + 1
);
UPDATE_ROW
(X_ATTRIBUTE_ID => L_ATTRIBUTE_ID
,X_ATTRIBUTE_NAME => L_ATTRIBUTE_NAME
,X_ATTRIBUTE_TYPE => L_ATTRIBUTE_TYPE
,X_DESCRIPTION => L_DESCRIPTION
,X_LINE_ITEM => L_LINE_ITEM
,X_APPROVER_TYPE_ID => L_APPROVER_TYPE_ID
,X_ITEM_CLASS_ID => L_ITEM_CLASS_ID
,X_START_DATE => AME_SEED_UTILITY.DATE_AS_DATE(L_LAST_UPDATE_DATE)
,X_END_DATE => L_END_DATE
,X_CREATED_BY => AME_SEED_UTILITY.OWNER_AS_INTEGER(L_OWNER)
,X_CREATION_DATE => AME_SEED_UTILITY.DATE_AS_DATE(L_LAST_UPDATE_DATE)
,X_LAST_UPDATE_DATE => AME_SEED_UTILITY.DATE_AS_DATE(L_LAST_UPDATE_DATE)
,X_LAST_UPDATED_BY => AME_SEED_UTILITY.OWNER_AS_INTEGER(L_OWNER)
,X_LAST_UPDATE_LOGIN => 0
,X_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER + 1
);
INSERT_ROW
(X_ATTRIBUTE_NAME => L_ATTRIBUTE_NAME
,X_ATTRIBUTE_TYPE => L_ATTRIBUTE_TYPE
,X_DESCRIPTION => L_DESCRIPTION
,X_LINE_ITEM => L_LINE_ITEM
,X_APPROVER_TYPE_ID => L_APPROVER_TYPE_ID
,X_ITEM_CLASS_ID => L_ITEM_CLASS_ID
,X_START_DATE => AME_SEED_UTILITY.DATE_AS_DATE(L_LAST_UPDATE_DATE)
,X_END_DATE => L_END_DATE
,X_CREATED_BY => AME_SEED_UTILITY.OWNER_AS_INTEGER(L_OWNER)
,X_CREATION_DATE => AME_SEED_UTILITY.DATE_AS_DATE(L_LAST_UPDATE_DATE)
,X_LAST_UPDATED_BY => AME_SEED_UTILITY.OWNER_AS_INTEGER(L_OWNER)
,X_LAST_UPDATE_DATE => AME_SEED_UTILITY.DATE_AS_DATE(L_LAST_UPDATE_DATE)
,X_LAST_UPDATE_LOGIN => 0
,X_OBJECT_VERSION_NUMBER => 1
);
,X_LAST_UPDATE_DATE in varchar2
) as
X_ATTRIBUTE_ID number;
select AA.ATTRIBUTE_ID
into X_ATTRIBUTE_ID
from AME_ATTRIBUTES_TL AATL,
AME_ATTRIBUTES AA
where AA.NAME = X_ATTRIBUTE_NAME
and AA.ATTRIBUTE_ID = AATL.ATTRIBUTE_ID
and AATL.LANGUAGE = userenv('LANG')
and sysdate between AA.START_DATE and nvl(AA.END_DATE - (1/86400),sysdate);
update AME_ATTRIBUTES_TL AATL
set DESCRIPTION = nvl(X_DESCRIPTION,AATL.DESCRIPTION),
SOURCE_LANG = userenv('LANG'),
LAST_UPDATE_DATE = AME_SEED_UTILITY.DATE_AS_DATE(X_LAST_UPDATE_DATE),
LAST_UPDATED_BY = AME_SEED_UTILITY.OWNER_AS_INTEGER(X_OWNER),
LAST_UPDATE_LOGIN = 0
where AATL.ATTRIBUTE_ID = X_ATTRIBUTE_ID
and userenv('LANG') in (AATL.LANGUAGE,AATL.SOURCE_LANG);
,X_LAST_UPDATE_DATE in varchar2
,X_UPLOAD_MODE in varchar2
,X_CUSTOM_MODE in varchar2
) return boolean as
X_CURRENT_OWNER NUMBER;
X_CURRENT_LAST_UPDATE_DATE varchar2(19);
select AATL.LAST_UPDATED_BY,
AME_SEED_UTILITY.DATE_AS_STRING(AATL.LAST_UPDATE_DATE),
AME_SEED_UTILITY.OWNER_AS_STRING(AATL.CREATED_BY)
into X_CURRENT_OWNER,
X_CURRENT_LAST_UPDATE_DATE,
X_CREATED_BY
from AME_ATTRIBUTES_TL AATL,
AME_ATTRIBUTES AA
where AATL.ATTRIBUTE_ID = AA.ATTRIBUTE_ID
and AA.NAME = X_ATTRIBUTE_NAME
and sysdate between AA.START_DATE and nvl(AA.END_DATE - (1/86400),sysdate)
and AATL.LANGUAGE = userenv('LANG');
,X_CURRENT_LAST_UPDATE_DATE => X_CURRENT_LAST_UPDATE_DATE
,X_OWNER => AME_SEED_UTILITY.OWNER_AS_INTEGER(X_OWNER)
,X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE
,X_CUSTOM_MODE => X_CUSTOM_MODE
);
select AA.LAST_UPDATED_BY,
AME_SEED_UTILITY.DATE_AS_STRING(AA.LAST_UPDATE_DATE)
into X_CURRENT_OWNER,
X_CURRENT_LAST_UPDATE_DATE
from AME_ATTRIBUTES AA
where AA.NAME = X_ATTRIBUTE_NAME
and sysdate between AA.START_DATE and nvl(AA.END_DATE - (1/86400),sysdate);
,X_CURRENT_LAST_UPDATE_DATE => X_CURRENT_LAST_UPDATE_DATE
,X_OWNER => AME_SEED_UTILITY.OWNER_AS_INTEGER(X_OWNER)
,X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE
,X_CUSTOM_MODE => X_CUSTOM_MODE
);
,X_LAST_UPDATE_DATE in varchar2
,X_UPLOAD_MODE in varchar2
,X_CUSTOM_MODE in varchar2
) as
L_ATTRIBUTE_NAME AME_ATTRIBUTES.NAME%TYPE;
,X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE
,X_UPLOAD_MODE => X_UPLOAD_MODE
,X_CUSTOM_MODE => X_CUSTOM_MODE
) then
if X_UPLOAD_MODE = 'NLS' then
TRANSLATE_ROW
(X_ATTRIBUTE_NAME => L_ATTRIBUTE_NAME
,X_DESCRIPTION => X_DESCRIPTION
,X_OWNER => X_OWNER
,X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE
);
,X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE
,X_CUSTOM_MODE => X_CUSTOM_MODE
);
procedure DELETE_ROW
(X_ATTRIBUTE_NAME in varchar2
) as
begin
if AME_SEED_UTILITY.MLS_ENABLED then
delete from AME_ATTRIBUTES_TL
where ATTRIBUTE_ID in (select ATTRIBUTE_ID
from AME_ATTRIBUTES
where NAME = X_ATTRIBUTE_NAME);
delete from AME_ATTRIBUTES
where NAME = X_ATTRIBUTE_NAME;
end DELETE_ROW;