The following lines contain the word 'select', 'insert', 'update' or 'delete':
select ACA.APPLICATION_ID
into X_APPLICATION_ID
from AME_CALLING_APPS ACA,
FND_APPLICATION_VL FAV
where FAV.APPLICATION_SHORT_NAME = X_APPLICATION_SHORT_NAME
and FAV.APPLICATION_ID = ACA.FND_APPLICATION_ID
and ((ACA.TRANSACTION_TYPE_ID is null and X_TRANSACTION_TYPE_ID is null) or
ACA.TRANSACTION_TYPE_ID = X_TRANSACTION_TYPE_ID)
and sysdate between ACA.START_DATE and nvl(ACA.END_DATE - (1/86400),sysdate);
function CHK_UPDATE
(X_VARIABLE_NAME in varchar2
,X_VARIABLE_VALUE in varchar2
,X_APPLICATION_ID in number
) return boolean as
X_CURRENT_VARIABLE_VALUE AME_CONFIG_VARS.VARIABLE_VALUE%TYPE;
select ACV.VARIABLE_VALUE
into X_CURRENT_VARIABLE_VALUE
from AME_CONFIG_VARS ACV
where ACV.VARIABLE_NAME = X_VARIABLE_NAME
and ((ACV.APPLICATION_ID is null and X_APPLICATION_ID is null) or
ACV.APPLICATION_ID = X_APPLICATION_ID)
and sysdate between ACV.START_DATE and nvl(ACV.END_DATE - (1/86400),sysdate);
end CHK_UPDATE;
procedure INSERT_ROW
(X_VARIABLE_NAME in varchar2
,X_USER_CONFIG_VAR_NAME in varchar2
,X_APPLICATION_ID in number
,X_VARIABLE_VALUE in varchar2
,X_DESCRIPTION in varchar2
,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);
insert into AME_CONFIG_VARS
(VARIABLE_NAME
,VARIABLE_VALUE
,DESCRIPTION
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
,START_DATE
,END_DATE
,APPLICATION_ID
,OBJECT_VERSION_NUMBER
) select X_VARIABLE_NAME,
X_VARIABLE_VALUE,
X_DESCRIPTION,
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_APPLICATION_ID,
X_OBJECT_VERSION_NUMBER
from dual where not exists (select null
from AME_CONFIG_VARS
where VARIABLE_NAME = X_VARIABLE_NAME
and (((APPLICATION_ID is null or APPLICATION_ID = 0)
and (X_APPLICATION_ID is null or X_APPLICATION_ID = 0))
or (APPLICATION_ID = X_APPLICATION_ID))
and sysdate between START_DATE and nvl(END_DATE - (1/86400), sysdate));
insert into AME_CONFIG_VARS_TL
(VARIABLE_NAME
,USER_CONFIG_VAR_NAME
,DESCRIPTION
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
,LANGUAGE
,SOURCE_LANG
) select X_VARIABLE_NAME,
nvl(X_USER_CONFIG_VAR_NAME,X_VARIABLE_NAME),
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_CONFIG_VARS_TL T
where T.VARIABLE_NAME = X_VARIABLE_NAME
and T.LANGUAGE = L.LANGUAGE_CODE);
end INSERT_ROW;
procedure UPDATE_ROW
(X_VARIABLE_NAME in varchar2
,X_USER_CONFIG_VAR_NAME in varchar2
,X_APPLICATION_ID in number
,X_VARIABLE_VALUE in varchar2
,X_DESCRIPTION in varchar2
,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);
update AME_CONFIG_VARS ACV
set ACV.END_DATE = X_START_DATE
where ACV.VARIABLE_NAME = X_VARIABLE_NAME
and ((ACV.APPLICATION_ID is null and X_APPLICATION_ID is null) or
ACV.APPLICATION_ID = X_APPLICATION_ID)
and sysdate between ACV.START_DATE and nvl(ACV.END_DATE - (1/86400),sysdate);
insert into AME_CONFIG_VARS
(VARIABLE_NAME
,APPLICATION_ID
,VARIABLE_VALUE
,DESCRIPTION
,START_DATE
,END_DATE
,CREATED_BY
,CREATION_DATE
,LAST_UPDATED_BY
,LAST_UPDATE_DATE
,LAST_UPDATE_LOGIN
,OBJECT_VERSION_NUMBER
) values
(X_VARIABLE_NAME
,X_APPLICATION_ID
,X_VARIABLE_VALUE
,X_DESCRIPTION
,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_CONFIG_VARS_TL
set USER_CONFIG_VAR_NAME = nvl(X_USER_CONFIG_VAR_NAME,USER_CONFIG_VAR_NAME),
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 VARIABLE_NAME = X_VARIABLE_NAME
and userenv('LANG') in (LANGUAGE,SOURCE_LANG);
end UPDATE_ROW;
procedure FORCE_UPDATE_ROW (
X_ROWID in VARCHAR2,
X_VARIABLE_NAME in VARCHAR2,
X_USER_CONFIG_VAR_NAME in VARCHAR2,
X_APPLICATION_ID in Number,
X_VARIABLE_VALUE in VARCHAR2,
X_DESCRIPTION in VARCHAR2,
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_CONFIG_VARS
set VARIABLE_VALUE = X_VARIABLE_VALUE,
DESCRIPTION = X_DESCRIPTION,
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_CONFIG_VARS_TL
set USER_CONFIG_VAR_NAME = nvl(X_USER_CONFIG_VAR_NAME,USER_CONFIG_VAR_NAME),
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 VARIABLE_NAME = X_VARIABLE_NAME
and userenv('LANG') in (LANGUAGE,SOURCE_LANG);
end FORCE_UPDATE_ROW;
,X_LAST_UPDATE_DATE in varchar2
,X_CUSTOM_MODE in varchar2
) as
L_VARIABLE_NAME AME_CONFIG_VARS.VARIABLE_NAME%TYPE;
L_LAST_UPDATE_DATE varchar2(19);
L_LAST_UPDATE_DATE := X_LAST_UPDATE_DATE;
select nvl(ACV.OBJECT_VERSION_NUMBER,1),
ROWID
into L_OBJECT_VERSION_NUMBER,
L_ROWID
from AME_CONFIG_VARS ACV
where ACV.VARIABLE_NAME = L_VARIABLE_NAME
and ((ACV.APPLICATION_ID is null and L_APPLICATION_ID is null) or
ACV.APPLICATION_ID = L_APPLICATION_ID)
and sysdate between ACV.START_DATE and nvl(ACV.END_DATE - (1/86400),sysdate);
if CHK_UPDATE
(X_VARIABLE_NAME => L_VARIABLE_NAME
,X_VARIABLE_VALUE => L_VARIABLE_VALUE
,X_APPLICATION_ID => L_APPLICATION_ID) then
if X_CUSTOM_MODE = 'FORCE' then
FORCE_UPDATE_ROW
(X_ROWID => L_ROWID
,X_VARIABLE_NAME => L_VARIABLE_NAME
,X_USER_CONFIG_VAR_NAME => L_USER_CONFIG_VAR_NAME
,X_APPLICATION_ID => L_APPLICATION_ID
,X_VARIABLE_VALUE => L_VARIABLE_VALUE
,X_DESCRIPTION => L_DESCRIPTION
,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_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
);
UPDATE_ROW
(X_VARIABLE_NAME => L_VARIABLE_NAME
,X_USER_CONFIG_VAR_NAME => L_USER_CONFIG_VAR_NAME
,X_APPLICATION_ID => L_APPLICATION_ID
,X_VARIABLE_VALUE => L_VARIABLE_VALUE
,X_DESCRIPTION => L_DESCRIPTION
,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 => L_OBJECT_VERSION_NUMBER
);
INSERT_ROW
(X_VARIABLE_NAME => L_VARIABLE_NAME
,X_USER_CONFIG_VAR_NAME => L_USER_CONFIG_VAR_NAME
,X_APPLICATION_ID => L_APPLICATION_ID
,X_VARIABLE_VALUE => L_VARIABLE_VALUE
,X_DESCRIPTION => L_DESCRIPTION
,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
L_DUMMY varchar2(1);
select null
into L_DUMMY
from AME_CONFIG_VARS_TL ACVTL
where ACVTL.VARIABLE_NAME = X_VARIABLE_NAME
and ACVTL.LANGUAGE = userenv('LANG');
update AME_CONFIG_VARS_TL ACVTL
set USER_CONFIG_VAR_NAME = nvl(X_USER_CONFIG_VAR_NAME,ACVTL.USER_CONFIG_VAR_NAME),
DESCRIPTION = nvl(X_DESCRIPTION,ACVTL.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 ACVTL.VARIABLE_NAME = X_VARIABLE_NAME
and userenv('LANG') in (ACVTL.LANGUAGE,ACVTL.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 ACVTL.LAST_UPDATED_BY,
AME_SEED_UTILITY.DATE_AS_STRING(ACVTL.LAST_UPDATE_DATE),
AME_SEED_UTILITY.OWNER_AS_STRING(ACVTL.CREATED_BY)
into X_CURRENT_OWNER,
X_CURRENT_LAST_UPDATE_DATE,
X_CREATED_BY
from AME_CONFIG_VARS_TL ACVTL
where ACVTL.VARIABLE_NAME = X_VARIABLE_NAME
and ACVTL.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 ACV.LAST_UPDATED_BY,
AME_SEED_UTILITY.DATE_AS_STRING(ACV.LAST_UPDATE_DATE)
into X_CURRENT_OWNER,
X_CURRENT_LAST_UPDATE_DATE
from AME_CONFIG_VARS ACV,
AME_CALLING_APPS ACA,
FND_APPLICATION_VL FAV
where FAV.APPLICATION_SHORT_NAME = X_APPLICATION_SHORT_NAME
and FAV.APPLICATION_ID = ACA.FND_APPLICATION_ID
and ((ACA.TRANSACTION_TYPE_ID is null and X_TRANSACTION_TYPE_ID is null) or
ACA.TRANSACTION_TYPE_ID = X_TRANSACTION_TYPE_ID)
and ACV.APPLICATION_ID = ACA.APPLICATION_ID
and ACV.VARIABLE_NAME = X_VARIABLE_NAME
and sysdate between ACV.START_DATE and nvl(ACV.END_DATE - (1/86400),sysdate)
and sysdate between ACA.START_DATE and nvl(ACA.END_DATE - (1/86400),sysdate);
select ACV.LAST_UPDATED_BY,
AME_SEED_UTILITY.DATE_AS_STRING(ACV.LAST_UPDATE_DATE)
into X_CURRENT_OWNER,
X_CURRENT_LAST_UPDATE_DATE
from AME_CONFIG_VARS ACV
where (ACV.APPLICATION_ID is null or ACV.APPLICATION_ID = 0)
and ACV.VARIABLE_NAME = X_VARIABLE_NAME
and sysdate between ACV.START_DATE and nvl(ACV.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
X_ATTRIBUTE_VALUE varchar2(10);
select ACA.APPLICATION_NAME
into X_APPLICATION_NAME
from AME_CALLING_APPS ACA,
FND_APPLICATION_VL FAV
where FAV.APPLICATION_SHORT_NAME = X_APPLICATION_SHORT_NAME
and FAV.APPLICATION_ID = ACA.FND_APPLICATION_ID
and ((X_TRANSACTION_TYPE_ID is null and ACA.TRANSACTION_TYPE_ID is null) or
X_TRANSACTION_TYPE_ID = ACA.TRANSACTION_TYPE_ID)
and sysdate between ACA.START_DATE and nvl(ACA.END_DATE - (1/86400),sysdate);
,X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE
,X_UPLOAD_MODE => X_UPLOAD_MODE
,X_CUSTOM_MODE => X_CUSTOM_MODE
);
,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_VARIABLE_NAME => X_VARIABLE_NAME
,X_USER_CONFIG_VAR_NAME => X_USER_CONFIG_VAR_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_VARIABLE_NAME in varchar2
,X_APPLICATION_ID in number
) as
begin
delete from AME_CONFIG_VARS
where VARIABLE_NAME = X_VARIABLE_NAME
and nvl(APPLICATION_ID,0) = nvl(X_APPLICATION_ID,0);
delete from AME_CONFIG_VARS_TL
where VARIABLE_NAME = X_VARIABLE_NAME;
end DELETE_ROW;