The following lines contain the word 'select', 'insert', 'update' or 'delete':
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_PROFILE_OPTION_NAME in VARCHAR2,
X_APPLICATION_ID in NUMBER,
X_PROFILE_OPTION_ID in NUMBER,
X_WRITE_ALLOWED_FLAG in VARCHAR2,
X_READ_ALLOWED_FLAG in VARCHAR2,
X_USER_CHANGEABLE_FLAG in VARCHAR2,
X_USER_VISIBLE_FLAG in VARCHAR2,
X_SITE_ENABLED_FLAG in VARCHAR2,
X_SITE_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_APP_ENABLED_FLAG in VARCHAR2,
X_APP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_RESP_ENABLED_FLAG in VARCHAR2,
X_RESP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_USER_ENABLED_FLAG in VARCHAR2,
X_USER_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_START_DATE_ACTIVE in DATE,
X_SQL_VALIDATION in VARCHAR2,
X_END_DATE_ACTIVE in DATE,
X_USER_PROFILE_OPTION_NAME in VARCHAR2,
X_DESCRIPTION in VARCHAR2,
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,
X_HIERARCHY_TYPE in VARCHAR2 default 'SECURITY',
X_SERVER_ENABLED_FLAG in VARCHAR2 default 'N',
X_SERVER_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N',
X_ORG_ENABLED_FLAG in VARCHAR2 default 'N',
X_ORG_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N',
X_SERVERRESP_ENABLED_FLAG in VARCHAR2,
X_SERVERRESP_UPD_ALLOW_FL in VARCHAR2
) is
L_PROFILE_OPTION_NAME VARCHAR2(80) := UPPER(X_PROFILE_OPTION_NAME);
cursor C is select ROWID from FND_PROFILE_OPTIONS
where PROFILE_OPTION_NAME = L_PROFILE_OPTION_NAME;
insert into FND_PROFILE_OPTIONS (
APPLICATION_ID,
PROFILE_OPTION_ID,
PROFILE_OPTION_NAME,
WRITE_ALLOWED_FLAG,
READ_ALLOWED_FLAG,
USER_CHANGEABLE_FLAG,
USER_VISIBLE_FLAG,
SITE_ENABLED_FLAG,
SITE_UPDATE_ALLOWED_FLAG,
APP_ENABLED_FLAG,
APP_UPDATE_ALLOWED_FLAG,
RESP_ENABLED_FLAG,
RESP_UPDATE_ALLOWED_FLAG,
USER_ENABLED_FLAG,
USER_UPDATE_ALLOWED_FLAG,
START_DATE_ACTIVE,
SQL_VALIDATION,
END_DATE_ACTIVE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
HIERARCHY_TYPE,
SERVER_ENABLED_FLAG,
SERVER_UPDATE_ALLOWED_FLAG,
ORG_ENABLED_FLAG,
ORG_UPDATE_ALLOWED_FLAG,
SERVERRESP_ENABLED_FLAG,
SERVERRESP_UPDATE_ALLOWED_FLAG
) values (
X_APPLICATION_ID,
X_PROFILE_OPTION_ID,
L_PROFILE_OPTION_NAME,
X_WRITE_ALLOWED_FLAG,
X_READ_ALLOWED_FLAG,
X_USER_CHANGEABLE_FLAG,
X_USER_VISIBLE_FLAG,
X_SITE_ENABLED_FLAG,
X_SITE_UPDATE_ALLOWED_FLAG,
X_APP_ENABLED_FLAG,
X_APP_UPDATE_ALLOWED_FLAG,
X_RESP_ENABLED_FLAG,
X_RESP_UPDATE_ALLOWED_FLAG,
X_USER_ENABLED_FLAG,
X_USER_UPDATE_ALLOWED_FLAG,
X_START_DATE_ACTIVE,
X_SQL_VALIDATION,
X_END_DATE_ACTIVE,
X_CREATION_DATE,
X_CREATED_BY,
X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN,
X_HIERARCHY_TYPE,
X_SERVER_ENABLED_FLAG,
X_SERVER_UPDATE_ALLOWED_FLAG,
X_ORG_ENABLED_FLAG,
X_ORG_UPDATE_ALLOWED_FLAG,
X_SERVERRESP_ENABLED_FLAG,
X_SERVERRESP_UPD_ALLOW_FL
);
insert into FND_PROFILE_OPTIONS_TL (
PROFILE_OPTION_NAME,
USER_PROFILE_OPTION_NAME,
DESCRIPTION,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
LANGUAGE,
SOURCE_LANG
) select
L_PROFILE_OPTION_NAME,
X_USER_PROFILE_OPTION_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 FND_PROFILE_OPTIONS_TL T
where T.PROFILE_OPTION_NAME = L_PROFILE_OPTION_NAME
and T.LANGUAGE = L.LANGUAGE_CODE);
end INSERT_ROW;
procedure INSERT_ROW (
X_ROWID in out NOCOPY VARCHAR2,
X_PROFILE_OPTION_NAME in VARCHAR2,
X_APPLICATION_ID in NUMBER,
X_PROFILE_OPTION_ID in NUMBER,
X_WRITE_ALLOWED_FLAG in VARCHAR2,
X_READ_ALLOWED_FLAG in VARCHAR2,
X_USER_CHANGEABLE_FLAG in VARCHAR2,
X_USER_VISIBLE_FLAG in VARCHAR2,
X_SITE_ENABLED_FLAG in VARCHAR2,
X_SITE_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_APP_ENABLED_FLAG in VARCHAR2,
X_APP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_RESP_ENABLED_FLAG in VARCHAR2,
X_RESP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_USER_ENABLED_FLAG in VARCHAR2,
X_USER_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_START_DATE_ACTIVE in DATE,
X_SQL_VALIDATION in VARCHAR2,
X_END_DATE_ACTIVE in DATE,
X_USER_PROFILE_OPTION_NAME in VARCHAR2,
X_DESCRIPTION in VARCHAR2,
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,
X_HIERARCHY_TYPE in VARCHAR2 default 'SECURITY',
X_SERVER_ENABLED_FLAG in VARCHAR2 default 'N',
X_SERVER_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N',
X_ORG_ENABLED_FLAG in VARCHAR2 default 'N',
X_ORG_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N'
) is
begin
fnd_profile_options_pkg.INSERT_ROW(
X_ROWID => X_ROWID,
X_PROFILE_OPTION_NAME => X_PROFILE_OPTION_NAME,
X_APPLICATION_ID => X_APPLICATION_ID,
X_PROFILE_OPTION_ID => X_PROFILE_OPTION_ID,
X_WRITE_ALLOWED_FLAG => X_WRITE_ALLOWED_FLAG,
X_READ_ALLOWED_FLAG => X_READ_ALLOWED_FLAG,
X_USER_CHANGEABLE_FLAG => X_USER_CHANGEABLE_FLAG,
X_USER_VISIBLE_FLAG => X_USER_VISIBLE_FLAG,
X_SITE_ENABLED_FLAG => X_SITE_ENABLED_FLAG,
X_SITE_UPDATE_ALLOWED_FLAG => X_SITE_UPDATE_ALLOWED_FLAG,
X_APP_ENABLED_FLAG => X_APP_ENABLED_FLAG,
X_APP_UPDATE_ALLOWED_FLAG => X_APP_UPDATE_ALLOWED_FLAG,
X_RESP_ENABLED_FLAG => X_RESP_ENABLED_FLAG,
X_RESP_UPDATE_ALLOWED_FLAG => X_RESP_UPDATE_ALLOWED_FLAG,
X_USER_ENABLED_FLAG => X_USER_ENABLED_FLAG,
X_USER_UPDATE_ALLOWED_FLAG => X_USER_UPDATE_ALLOWED_FLAG,
X_START_DATE_ACTIVE => X_START_DATE_ACTIVE,
X_SQL_VALIDATION => X_SQL_VALIDATION,
X_END_DATE_ACTIVE => X_END_DATE_ACTIVE,
X_USER_PROFILE_OPTION_NAME => X_USER_PROFILE_OPTION_NAME,
X_DESCRIPTION => X_DESCRIPTION,
X_CREATION_DATE => X_CREATION_DATE,
X_CREATED_BY => X_CREATED_BY,
X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN,
X_HIERARCHY_TYPE => X_HIERARCHY_TYPE,
X_SERVER_ENABLED_FLAG => X_SERVER_ENABLED_FLAG,
X_SERVER_UPDATE_ALLOWED_FLAG => X_SERVER_UPDATE_ALLOWED_FLAG,
X_ORG_ENABLED_FLAG => X_ORG_ENABLED_FLAG,
X_ORG_UPDATE_ALLOWED_FLAG => X_ORG_UPDATE_ALLOWED_FLAG,
X_SERVERRESP_ENABLED_FLAG => 'N',
X_SERVERRESP_UPD_ALLOW_FL => 'N'
);
end INSERT_ROW;
X_SITE_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_APP_ENABLED_FLAG in VARCHAR2,
X_APP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_RESP_ENABLED_FLAG in VARCHAR2,
X_RESP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_USER_ENABLED_FLAG in VARCHAR2,
X_USER_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_START_DATE_ACTIVE in DATE,
X_SQL_VALIDATION in VARCHAR2,
X_END_DATE_ACTIVE in DATE,
X_USER_PROFILE_OPTION_NAME in VARCHAR2,
X_DESCRIPTION in VARCHAR2,
X_HIERARCHY_TYPE in VARCHAR2 default 'SECURITY',
X_SERVER_ENABLED_FLAG in VARCHAR2 default 'N',
X_SERVER_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N',
X_ORG_ENABLED_FLAG in VARCHAR2 default 'N',
X_ORG_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N'
) is
begin
fnd_profile_options_pkg.LOCK_ROW(
X_PROFILE_OPTION_NAME => X_PROFILE_OPTION_NAME,
X_APPLICATION_ID => X_APPLICATION_ID,
X_PROFILE_OPTION_ID => X_PROFILE_OPTION_ID,
X_WRITE_ALLOWED_FLAG => X_WRITE_ALLOWED_FLAG,
X_READ_ALLOWED_FLAG => X_READ_ALLOWED_FLAG,
X_USER_CHANGEABLE_FLAG => X_USER_CHANGEABLE_FLAG,
X_USER_VISIBLE_FLAG => X_USER_VISIBLE_FLAG,
X_SITE_ENABLED_FLAG => X_SITE_ENABLED_FLAG,
X_SITE_UPDATE_ALLOWED_FLAG => X_SITE_UPDATE_ALLOWED_FLAG ,
X_APP_ENABLED_FLAG => X_APP_ENABLED_FLAG,
X_APP_UPDATE_ALLOWED_FLAG => X_APP_UPDATE_ALLOWED_FLAG,
X_RESP_ENABLED_FLAG => X_RESP_ENABLED_FLAG,
X_RESP_UPDATE_ALLOWED_FLAG => X_RESP_UPDATE_ALLOWED_FLAG,
X_USER_ENABLED_FLAG => X_USER_ENABLED_FLAG,
X_USER_UPDATE_ALLOWED_FLAG => X_USER_UPDATE_ALLOWED_FLAG,
X_START_DATE_ACTIVE => X_START_DATE_ACTIVE,
X_SQL_VALIDATION => X_SQL_VALIDATION,
X_END_DATE_ACTIVE => X_END_DATE_ACTIVE,
X_USER_PROFILE_OPTION_NAME => X_USER_PROFILE_OPTION_NAME,
X_DESCRIPTION => X_DESCRIPTION,
X_HIERARCHY_TYPE => X_HIERARCHY_TYPE,
X_SERVER_ENABLED_FLAG => X_SERVER_ENABLED_FLAG,
X_SERVER_UPDATE_ALLOWED_FLAG => X_SERVER_UPDATE_ALLOWED_FLAG,
X_ORG_ENABLED_FLAG => X_ORG_ENABLED_FLAG,
X_ORG_UPDATE_ALLOWED_FLAG => X_ORG_UPDATE_ALLOWED_FLAG,
X_SERVERRESP_ENABLED_FLAG => 'N',
X_SERVERRESP_UPD_ALLOW_FL => 'N'
);
X_SITE_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_APP_ENABLED_FLAG in VARCHAR2,
X_APP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_RESP_ENABLED_FLAG in VARCHAR2,
X_RESP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_USER_ENABLED_FLAG in VARCHAR2,
X_USER_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_START_DATE_ACTIVE in DATE,
X_SQL_VALIDATION in VARCHAR2,
X_END_DATE_ACTIVE in DATE,
X_USER_PROFILE_OPTION_NAME in VARCHAR2,
X_DESCRIPTION in VARCHAR2,
X_HIERARCHY_TYPE in VARCHAR2 default 'SECURITY',
X_SERVER_ENABLED_FLAG in VARCHAR2 default 'N',
X_SERVER_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N',
X_ORG_ENABLED_FLAG in VARCHAR2 default 'N',
X_ORG_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N',
X_SERVERRESP_ENABLED_FLAG in VARCHAR2,
X_SERVERRESP_UPD_ALLOW_FL in VARCHAR2
) is
L_PROFILE_OPTION_NAME VARCHAR2(80):= UPPER(X_PROFILE_OPTION_NAME);
cursor c is select
APPLICATION_ID,
PROFILE_OPTION_ID,
WRITE_ALLOWED_FLAG,
READ_ALLOWED_FLAG,
USER_CHANGEABLE_FLAG,
USER_VISIBLE_FLAG,
SITE_ENABLED_FLAG,
SITE_UPDATE_ALLOWED_FLAG,
APP_ENABLED_FLAG,
APP_UPDATE_ALLOWED_FLAG,
RESP_ENABLED_FLAG,
RESP_UPDATE_ALLOWED_FLAG,
USER_ENABLED_FLAG,
USER_UPDATE_ALLOWED_FLAG,
START_DATE_ACTIVE,
SQL_VALIDATION,
END_DATE_ACTIVE,
HIERARCHY_TYPE,
SERVER_ENABLED_FLAG,
SERVER_UPDATE_ALLOWED_FLAG,
ORG_ENABLED_FLAG,
ORG_UPDATE_ALLOWED_FLAG,
SERVERRESP_ENABLED_FLAG,
SERVERRESP_UPDATE_ALLOWED_FLAG
from FND_PROFILE_OPTIONS
where PROFILE_OPTION_NAME = L_PROFILE_OPTION_NAME
for update of PROFILE_OPTION_NAME nowait;
cursor c1 is select
USER_PROFILE_OPTION_NAME,
DESCRIPTION
from FND_PROFILE_OPTIONS_TL
where PROFILE_OPTION_NAME = L_PROFILE_OPTION_NAME
and LANGUAGE = userenv('LANG')
for update of PROFILE_OPTION_NAME nowait;
fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
AND (recinfo.SITE_UPDATE_ALLOWED_FLAG = X_SITE_UPDATE_ALLOWED_FLAG)
AND (recinfo.APP_ENABLED_FLAG = X_APP_ENABLED_FLAG)
AND (recinfo.APP_UPDATE_ALLOWED_FLAG = X_APP_UPDATE_ALLOWED_FLAG)
AND (recinfo.RESP_ENABLED_FLAG = X_RESP_ENABLED_FLAG)
AND (recinfo.RESP_UPDATE_ALLOWED_FLAG = X_RESP_UPDATE_ALLOWED_FLAG)
AND (recinfo.USER_ENABLED_FLAG = X_USER_ENABLED_FLAG)
AND (recinfo.USER_UPDATE_ALLOWED_FLAG = X_USER_UPDATE_ALLOWED_FLAG)
AND (recinfo.START_DATE_ACTIVE = X_START_DATE_ACTIVE)
AND ((recinfo.SQL_VALIDATION = X_SQL_VALIDATION)
OR ((recinfo.SQL_VALIDATION is null) AND (X_SQL_VALIDATION is null)))
AND ((recinfo.END_DATE_ACTIVE = X_END_DATE_ACTIVE)
OR ((recinfo.END_DATE_ACTIVE is null) AND (X_END_DATE_ACTIVE is null)))
AND (recinfo.HIERARCHY_TYPE = X_HIERARCHY_TYPE)
AND (recinfo.SERVER_ENABLED_FLAG = X_SERVER_ENABLED_FLAG)
AND (recinfo.SERVER_UPDATE_ALLOWED_FLAG = X_SERVER_UPDATE_ALLOWED_FLAG)
AND (recinfo.ORG_ENABLED_FLAG = X_ORG_ENABLED_FLAG)
AND (recinfo.ORG_UPDATE_ALLOWED_FLAG = X_ORG_UPDATE_ALLOWED_FLAG)
AND (recinfo.SERVERRESP_ENABLED_FLAG = X_SERVERRESP_ENABLED_FLAG)
AND (recinfo.SERVERRESP_UPDATE_ALLOWED_FLAG = X_SERVERRESP_UPD_ALLOW_FL)
) then
null;
PROCEDURE UPDATE_APPL_ID_PK_COLUMNS( x_profile_option_name varchar2,
x_profile_id varchar2,
x_appl_id varchar2);
PROCEDURE UPDATE_CAT_OPTIONS_APPL_ID( x_profile_option_name varchar2,
x_profile_id varchar2,
x_appl_id number);
procedure UPDATE_ROW (
X_PROFILE_OPTION_NAME in VARCHAR2,
X_APPLICATION_ID in NUMBER,
X_PROFILE_OPTION_ID in NUMBER,
X_WRITE_ALLOWED_FLAG in VARCHAR2,
X_READ_ALLOWED_FLAG in VARCHAR2,
X_USER_CHANGEABLE_FLAG in VARCHAR2,
X_USER_VISIBLE_FLAG in VARCHAR2,
X_SITE_ENABLED_FLAG in VARCHAR2,
X_SITE_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_APP_ENABLED_FLAG in VARCHAR2,
X_APP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_RESP_ENABLED_FLAG in VARCHAR2,
X_RESP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_USER_ENABLED_FLAG in VARCHAR2,
X_USER_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_START_DATE_ACTIVE in DATE,
X_SQL_VALIDATION in VARCHAR2,
X_END_DATE_ACTIVE in DATE,
X_USER_PROFILE_OPTION_NAME in VARCHAR2,
X_DESCRIPTION in VARCHAR2,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER,
X_HIERARCHY_TYPE in VARCHAR2 default 'SECURITY',
X_SERVER_ENABLED_FLAG in VARCHAR2 default 'N',
X_SERVER_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N',
X_ORG_ENABLED_FLAG in VARCHAR2 default 'N',
X_ORG_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N',
X_SERVERRESP_ENABLED_FLAG in VARCHAR2,
X_SERVERRESP_UPD_ALLOW_FL in VARCHAR2,
X_HIERARCHY_SWITCH_MODE in FND_PROFILE_HIERARCHY_PKG.SWITCH_MODE
) is
L_PROFILE_OPTION_NAME VARCHAR2(80):= UPPER(X_PROFILE_OPTION_NAME);
update_appl_id_pk_columns(L_PROFILE_OPTION_NAME,x_profile_option_id,x_application_id);
UPDATE_CAT_OPTIONS_APPL_ID(L_PROFILE_OPTION_NAME,x_profile_option_id,x_application_id);
X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
X_CREATION_DATE => X_LAST_UPDATE_DATE,
X_CREATED_BY => X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN,
X_MODE => X_HIERARCHY_SWITCH_MODE
);
update FND_PROFILE_OPTIONS set
APPLICATION_ID = X_APPLICATION_ID,
PROFILE_OPTION_ID = X_PROFILE_OPTION_ID,
WRITE_ALLOWED_FLAG = X_WRITE_ALLOWED_FLAG,
READ_ALLOWED_FLAG = X_READ_ALLOWED_FLAG,
USER_CHANGEABLE_FLAG = X_USER_CHANGEABLE_FLAG,
USER_VISIBLE_FLAG = X_USER_VISIBLE_FLAG,
SITE_ENABLED_FLAG = X_SITE_ENABLED_FLAG,
SITE_UPDATE_ALLOWED_FLAG = X_SITE_UPDATE_ALLOWED_FLAG,
APP_ENABLED_FLAG = X_APP_ENABLED_FLAG,
APP_UPDATE_ALLOWED_FLAG = X_APP_UPDATE_ALLOWED_FLAG,
RESP_ENABLED_FLAG = X_RESP_ENABLED_FLAG,
RESP_UPDATE_ALLOWED_FLAG = X_RESP_UPDATE_ALLOWED_FLAG,
USER_ENABLED_FLAG = X_USER_ENABLED_FLAG,
USER_UPDATE_ALLOWED_FLAG = X_USER_UPDATE_ALLOWED_FLAG,
START_DATE_ACTIVE = X_START_DATE_ACTIVE,
SQL_VALIDATION = X_SQL_VALIDATION,
END_DATE_ACTIVE = X_END_DATE_ACTIVE,
LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
LAST_UPDATED_BY = X_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
HIERARCHY_TYPE = X_HIERARCHY_TYPE,
SERVER_ENABLED_FLAG = X_SERVER_ENABLED_FLAG,
SERVER_UPDATE_ALLOWED_FLAG = X_SERVER_UPDATE_ALLOWED_FLAG,
ORG_ENABLED_FLAG = X_ORG_ENABLED_FLAG,
ORG_UPDATE_ALLOWED_FLAG = X_ORG_UPDATE_ALLOWED_FLAG,
SERVERRESP_ENABLED_FLAG = X_SERVERRESP_ENABLED_FLAG,
SERVERRESP_UPDATE_ALLOWED_FLAG = X_SERVERRESP_UPD_ALLOW_FL
where PROFILE_OPTION_NAME = L_PROFILE_OPTION_NAME;
update FND_PROFILE_OPTIONS_TL set
USER_PROFILE_OPTION_NAME = X_USER_PROFILE_OPTION_NAME,
DESCRIPTION = X_DESCRIPTION,
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 PROFILE_OPTION_NAME = L_PROFILE_OPTION_NAME
and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
end UPDATE_ROW;
procedure UPDATE_ROW (
X_PROFILE_OPTION_NAME in VARCHAR2,
X_APPLICATION_ID in NUMBER,
X_PROFILE_OPTION_ID in NUMBER,
X_WRITE_ALLOWED_FLAG in VARCHAR2,
X_READ_ALLOWED_FLAG in VARCHAR2,
X_USER_CHANGEABLE_FLAG in VARCHAR2,
X_USER_VISIBLE_FLAG in VARCHAR2,
X_SITE_ENABLED_FLAG in VARCHAR2,
X_SITE_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_APP_ENABLED_FLAG in VARCHAR2,
X_APP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_RESP_ENABLED_FLAG in VARCHAR2,
X_RESP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_USER_ENABLED_FLAG in VARCHAR2,
X_USER_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_START_DATE_ACTIVE in DATE,
X_SQL_VALIDATION in VARCHAR2,
X_END_DATE_ACTIVE in DATE,
X_USER_PROFILE_OPTION_NAME in VARCHAR2,
X_DESCRIPTION in VARCHAR2,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER,
X_HIERARCHY_TYPE in VARCHAR2 default 'SECURITY',
X_SERVER_ENABLED_FLAG in VARCHAR2 default 'N',
X_SERVER_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N',
X_ORG_ENABLED_FLAG in VARCHAR2 default 'N',
X_ORG_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N'
) is
begin
fnd_profile_options_pkg.update_row(
X_PROFILE_OPTION_NAME => X_PROFILE_OPTION_NAME,
X_APPLICATION_ID => X_APPLICATION_ID,
X_PROFILE_OPTION_ID => X_PROFILE_OPTION_ID,
X_WRITE_ALLOWED_FLAG => X_WRITE_ALLOWED_FLAG,
X_READ_ALLOWED_FLAG => X_READ_ALLOWED_FLAG,
X_USER_CHANGEABLE_FLAG => X_USER_CHANGEABLE_FLAG,
X_USER_VISIBLE_FLAG => X_USER_VISIBLE_FLAG,
X_SITE_ENABLED_FLAG => X_SITE_ENABLED_FLAG,
X_SITE_UPDATE_ALLOWED_FLAG => X_SITE_UPDATE_ALLOWED_FLAG,
X_APP_ENABLED_FLAG => X_APP_ENABLED_FLAG,
X_APP_UPDATE_ALLOWED_FLAG => X_APP_UPDATE_ALLOWED_FLAG,
X_RESP_ENABLED_FLAG => X_RESP_ENABLED_FLAG,
X_RESP_UPDATE_ALLOWED_FLAG => X_RESP_UPDATE_ALLOWED_FLAG,
X_USER_ENABLED_FLAG => X_USER_ENABLED_FLAG,
X_USER_UPDATE_ALLOWED_FLAG => X_USER_UPDATE_ALLOWED_FLAG,
X_START_DATE_ACTIVE => X_START_DATE_ACTIVE,
X_SQL_VALIDATION => X_SQL_VALIDATION,
X_END_DATE_ACTIVE => X_END_DATE_ACTIVE,
X_USER_PROFILE_OPTION_NAME => X_USER_PROFILE_OPTION_NAME,
X_DESCRIPTION => X_DESCRIPTION,
X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE,
X_LAST_UPDATED_BY => X_LAST_UPDATED_BY,
X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN,
X_HIERARCHY_TYPE => X_HIERARCHY_TYPE,
X_SERVER_ENABLED_FLAG => X_SERVER_ENABLED_FLAG,
X_SERVER_UPDATE_ALLOWED_FLAG => X_SERVER_UPDATE_ALLOWED_FLAG,
X_ORG_ENABLED_FLAG => X_ORG_ENABLED_FLAG,
X_ORG_UPDATE_ALLOWED_FLAG => X_ORG_UPDATE_ALLOWED_FLAG,
X_SERVERRESP_ENABLED_FLAG => 'N',
X_SERVERRESP_UPD_ALLOW_FL => 'N');
end UPDATE_ROW;
procedure UPDATE_ROW (
X_PROFILE_OPTION_NAME in VARCHAR2,
X_APPLICATION_ID in NUMBER,
X_PROFILE_OPTION_ID in NUMBER,
X_WRITE_ALLOWED_FLAG in VARCHAR2,
X_READ_ALLOWED_FLAG in VARCHAR2,
X_USER_CHANGEABLE_FLAG in VARCHAR2,
X_USER_VISIBLE_FLAG in VARCHAR2,
X_SITE_ENABLED_FLAG in VARCHAR2,
X_SITE_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_APP_ENABLED_FLAG in VARCHAR2,
X_APP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_RESP_ENABLED_FLAG in VARCHAR2,
X_RESP_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_USER_ENABLED_FLAG in VARCHAR2,
X_USER_UPDATE_ALLOWED_FLAG in VARCHAR2,
X_START_DATE_ACTIVE in DATE,
X_SQL_VALIDATION in VARCHAR2,
X_END_DATE_ACTIVE in DATE,
X_USER_PROFILE_OPTION_NAME in VARCHAR2,
X_DESCRIPTION in VARCHAR2,
X_LAST_UPDATE_DATE in DATE,
X_LAST_UPDATED_BY in NUMBER,
X_LAST_UPDATE_LOGIN in NUMBER,
X_HIERARCHY_TYPE in VARCHAR2 default 'SECURITY',
X_SERVER_ENABLED_FLAG in VARCHAR2 default 'N',
X_SERVER_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N',
X_ORG_ENABLED_FLAG in VARCHAR2 default 'N',
X_ORG_UPDATE_ALLOWED_FLAG in VARCHAR2 default 'N',
X_SERVERRESP_ENABLED_FLAG in VARCHAR2,
X_SERVERRESP_UPD_ALLOW_FL in VARCHAR2
) is
begin
fnd_profile_options_pkg.update_row(
X_PROFILE_OPTION_NAME => X_PROFILE_OPTION_NAME ,
X_APPLICATION_ID => X_APPLICATION_ID ,
X_PROFILE_OPTION_ID => X_PROFILE_OPTION_ID ,
X_WRITE_ALLOWED_FLAG => X_WRITE_ALLOWED_FLAG ,
X_READ_ALLOWED_FLAG => X_READ_ALLOWED_FLAG ,
X_USER_CHANGEABLE_FLAG => X_USER_CHANGEABLE_FLAG ,
X_USER_VISIBLE_FLAG => X_USER_VISIBLE_FLAG ,
X_SITE_ENABLED_FLAG => X_SITE_ENABLED_FLAG ,
X_SITE_UPDATE_ALLOWED_FLAG => X_SITE_UPDATE_ALLOWED_FLAG ,
X_APP_ENABLED_FLAG => X_APP_ENABLED_FLAG ,
X_APP_UPDATE_ALLOWED_FLAG => X_APP_UPDATE_ALLOWED_FLAG ,
X_RESP_ENABLED_FLAG => X_RESP_ENABLED_FLAG ,
X_RESP_UPDATE_ALLOWED_FLAG => X_RESP_UPDATE_ALLOWED_FLAG ,
X_USER_ENABLED_FLAG => X_USER_ENABLED_FLAG ,
X_USER_UPDATE_ALLOWED_FLAG => X_USER_UPDATE_ALLOWED_FLAG ,
X_START_DATE_ACTIVE => X_START_DATE_ACTIVE ,
X_SQL_VALIDATION => X_SQL_VALIDATION ,
X_END_DATE_ACTIVE => X_END_DATE_ACTIVE ,
X_USER_PROFILE_OPTION_NAME => X_USER_PROFILE_OPTION_NAME ,
X_DESCRIPTION => X_DESCRIPTION ,
X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE ,
X_LAST_UPDATED_BY => X_LAST_UPDATED_BY ,
X_LAST_UPDATE_LOGIN => X_LAST_UPDATE_LOGIN ,
X_HIERARCHY_TYPE => X_HIERARCHY_TYPE ,
X_SERVER_ENABLED_FLAG => X_SERVER_ENABLED_FLAG ,
X_SERVER_UPDATE_ALLOWED_FLAG=> X_SERVER_UPDATE_ALLOWED_FLAG,
X_ORG_ENABLED_FLAG => X_ORG_ENABLED_FLAG ,
X_ORG_UPDATE_ALLOWED_FLAG => X_ORG_UPDATE_ALLOWED_FLAG ,
X_SERVERRESP_ENABLED_FLAG => X_SERVERRESP_ENABLED_FLAG ,
X_SERVERRESP_UPD_ALLOW_FL => X_SERVERRESP_UPD_ALLOW_FL ,
X_HIERARCHY_SWITCH_MODE => FND_PROFILE_HIERARCHY_PKG.INSERT_UPDATE );
end UPDATE_ROW;
procedure UPDATE_ROW (
X_PROFILE_OPTION_NAME in VARCHAR2,
X_HIERARCHY_TYPE in VARCHAR2,
X_SITE_ENABLED_FLAG in VARCHAR2 default NULL,
X_SITE_UPDATE_ALLOWED_FLAG in VARCHAR2 default NULL,
X_APP_ENABLED_FLAG in VARCHAR2 default NULL,
X_APP_UPDATE_ALLOWED_FLAG in VARCHAR2 default NULL,
X_RESP_ENABLED_FLAG in VARCHAR2 default NULL,
X_RESP_UPDATE_ALLOWED_FLAG in VARCHAR2 default NULL,
X_USER_ENABLED_FLAG in VARCHAR2 default NULL,
X_USER_UPDATE_ALLOWED_FLAG in VARCHAR2 default NULL,
X_SERVER_ENABLED_FLAG in VARCHAR2 default NULL,
X_SERVER_UPDATE_ALLOWED_FLAG in VARCHAR2 default NULL,
X_ORG_ENABLED_FLAG in VARCHAR2 default NULL,
X_ORG_UPDATE_ALLOWED_FLAG in VARCHAR2 default NULL,
X_SERVERRESP_ENABLED_FLAG in VARCHAR2 default NULL,
X_SERVERRESP_UPD_ALLOW_FL in VARCHAR2 default NULL)
is
prof_name VARCHAR2(80) := upper(X_PROFILE_OPTION_NAME);
s_u_flag1 VARCHAR2(1) := upper(X_SITE_UPDATE_ALLOWED_FLAG);
a_u_flag1 VARCHAR2(1) := upper(X_APP_UPDATE_ALLOWED_FLAG);
r_u_flag1 VARCHAR2(1) := upper(X_RESP_UPDATE_ALLOWED_FLAG);
u_u_flag1 VARCHAR2(1) := upper(X_USER_UPDATE_ALLOWED_FLAG);
o_u_flag1 VARCHAR2(1) := upper(X_ORG_UPDATE_ALLOWED_FLAG);
sv_u_flag1 VARCHAR2(1) := upper(X_SERVER_UPDATE_ALLOWED_FLAG);
select application_id,
profile_option_id,
WRITE_ALLOWED_FLAG,
READ_ALLOWED_FLAG,
USER_CHANGEABLE_FLAG,
USER_VISIBLE_FLAG,
START_DATE_ACTIVE,
SQL_VALIDATION,
END_DATE_ACTIVE,
HIERARCHY_TYPE,
SITE_ENABLED_FLAG,
SITE_UPDATE_ALLOWED_FLAG,
APP_ENABLED_FLAG,
APP_UPDATE_ALLOWED_FLAG,
RESP_ENABLED_FLAG,
RESP_UPDATE_ALLOWED_FLAG,
USER_ENABLED_FLAG,
USER_UPDATE_ALLOWED_FLAG,
SERVER_ENABLED_FLAG,
ORG_ENABLED_FLAG,
SERVER_UPDATE_ALLOWED_FLAG,
ORG_UPDATE_ALLOWED_FLAG,
SERVERRESP_ENABLED_FLAG,
SERVERRESP_UPDATE_ALLOWED_FLAG,
USER_PROFILE_OPTION_NAME,
DESCRIPTION
from FND_PROFILE_OPTIONS_VL
where PROFILE_OPTION_NAME=prof_name;
s_u_flag1 := profname_val.SITE_UPDATE_ALLOWED_FLAG;
u_u_flag1 := profname_val.USER_UPDATE_ALLOWED_FLAG;
a_u_flag1 := profname_val.APP_UPDATE_ALLOWED_FLAG;
r_u_flag1 := profname_val.RESP_UPDATE_ALLOWED_FLAG;
o_u_flag1 := profname_val.ORG_UPDATE_ALLOWED_FLAG;
sv_u_flag1 := profname_val.SERVER_UPDATE_ALLOWED_FLAG;
sr_u_flag1 := profname_val.SERVERRESP_UPDATE_ALLOWED_FLAG;
FND_PROFILE_OPTIONS_PKG.UPDATE_ROW (
X_PROFILE_OPTION_NAME => prof_name,
X_APPLICATION_ID => profname_val.application_id,
X_PROFILE_OPTION_ID => profname_val.profile_option_id,
X_WRITE_ALLOWED_FLAG => profname_val.WRITE_ALLOWED_FLAG,
X_READ_ALLOWED_FLAG => profname_val.READ_ALLOWED_FLAG,
X_USER_CHANGEABLE_FLAG => profname_val.USER_CHANGEABLE_FLAG,
X_USER_VISIBLE_FLAG => profname_val.USER_VISIBLE_FLAG,
X_SITE_ENABLED_FLAG => s_v_flag1,
X_SITE_UPDATE_ALLOWED_FLAG => s_u_flag1,
X_APP_ENABLED_FLAG => a_v_flag1,
X_APP_UPDATE_ALLOWED_FLAG => a_u_flag1,
X_RESP_ENABLED_FLAG => r_v_flag1,
X_RESP_UPDATE_ALLOWED_FLAG => r_u_flag1,
X_USER_ENABLED_FLAG => u_v_flag1,
X_USER_UPDATE_ALLOWED_FLAG => u_u_flag1,
X_START_DATE_ACTIVE => profname_val.START_DATE_ACTIVE,
X_SQL_VALIDATION => profname_val.SQL_VALIDATION,
X_END_DATE_ACTIVE => profname_val.END_DATE_ACTIVE,
X_USER_PROFILE_OPTION_NAME => profname_val.USER_PROFILE_OPTION_NAME,
X_DESCRIPTION => profname_val.DESCRIPTION,
X_LAST_UPDATE_DATE => sysdate,
X_LAST_UPDATED_BY => -1,
X_LAST_UPDATE_LOGIN => -1,
X_HIERARCHY_TYPE => h_type,
X_SERVER_ENABLED_FLAG => sv_v_flag1,
X_SERVER_UPDATE_ALLOWED_FLAG => sv_u_flag1,
X_ORG_ENABLED_FLAG => o_v_flag1,
X_ORG_UPDATE_ALLOWED_FLAG => o_u_flag1,
X_SERVERRESP_ENABLED_FLAG => sr_v_flag1,
X_SERVERRESP_UPD_ALLOW_FL => sr_u_flag1);
end UPDATE_ROW;
x_last_update_date => null);
x_last_update_date in varchar2)
is
f_luby number; -- entity owner in file
f_ludate date; -- entity update date in file
db_ludate date; -- entity update date in db
f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
select LAST_UPDATED_BY, LAST_UPDATE_DATE
into db_luby, db_ludate
from FND_PROFILE_OPTIONS_TL
where PROFILE_OPTION_NAME = L_PROFILE_OPTION_NAME
and LANGUAGE = userenv('LANG');
update FND_PROFILE_OPTIONS_TL set
USER_PROFILE_OPTION_NAME = nvl(x_user_profile_option_name,
USER_PROFILE_OPTION_NAME),
DESCRIPTION = nvl(x_description, DESCRIPTION),
SOURCE_LANG = userenv('LANG'),
LAST_UPDATE_DATE = f_ludate,
LAST_UPDATED_BY = f_luby,
LAST_UPDATE_LOGIN = 0
where PROFILE_OPTION_NAME = L_PROFILE_OPTION_NAME
and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
x_site_update_allowed_flag in varchar2,
x_app_enabled_flag in varchar2,
x_app_update_allowed_flag in varchar2,
x_resp_enabled_flag in varchar2,
x_resp_update_allowed_flag in varchar2,
x_user_enabled_flag in varchar2,
x_user_update_allowed_flag in varchar2,
x_start_date_active in varchar2,
x_end_date_active in varchar2,
x_sql_validation in varchar2)
is
begin
fnd_profile_options_pkg.load_row(
x_profile_name => x_profile_name,
x_owner => x_owner,
x_application_short_name => x_application_short_name,
x_user_profile_option_name => x_user_profile_option_name,
x_description => x_description,
x_user_changeable_flag => x_user_changeable_flag,
x_user_visible_flag => x_user_visible_flag,
x_read_allowed_flag => x_read_allowed_flag,
x_write_allowed_flag => x_write_allowed_flag,
x_site_enabled_flag => x_site_enabled_flag,
x_site_update_allowed_flag => x_site_update_allowed_flag,
x_app_enabled_flag => x_app_enabled_flag,
x_app_update_allowed_flag => x_app_update_allowed_flag,
x_resp_enabled_flag => x_resp_enabled_flag,
x_resp_update_allowed_flag => x_resp_update_allowed_flag,
x_user_enabled_flag => x_user_enabled_flag,
x_user_update_allowed_flag => x_user_update_allowed_flag,
x_start_date_active => x_start_date_active,
x_end_date_active => x_end_date_active,
x_sql_validation => x_sql_validation,
x_hierarchy_type => 'SECURITY',
x_custom_mode => '',
x_last_update_date => '',
x_server_enabled_flag => 'N',
x_server_update_allowed_flag => 'N',
x_org_enabled_flag => 'N',
x_org_update_allowed_flag => 'N');
x_site_update_allowed_flag in varchar2,
x_app_enabled_flag in varchar2,
x_app_update_allowed_flag in varchar2,
x_resp_enabled_flag in varchar2,
x_resp_update_allowed_flag in varchar2,
x_user_enabled_flag in varchar2,
x_user_update_allowed_flag in varchar2,
x_start_date_active in varchar2,
x_end_date_active in varchar2,
x_sql_validation in varchar2,
x_hierarchy_type in varchar2,
x_custom_mode in varchar2,
x_last_update_date in varchar2,
x_server_enabled_flag in varchar2,
x_server_update_allowed_flag in varchar2,
x_org_enabled_flag in varchar2,
x_org_update_allowed_flag in varchar2)
is
begin
fnd_profile_options_pkg.load_row(
x_profile_name => x_profile_name,
x_owner => x_owner,
x_application_short_name => x_application_short_name,
x_user_profile_option_name => x_user_profile_option_name,
x_description => x_description,
x_user_changeable_flag => x_user_changeable_flag,
x_user_visible_flag => x_user_visible_flag,
x_read_allowed_flag => x_read_allowed_flag,
x_write_allowed_flag => x_write_allowed_flag,
x_site_enabled_flag => x_site_enabled_flag,
x_site_update_allowed_flag => x_site_update_allowed_flag,
x_app_enabled_flag => x_app_enabled_flag,
x_app_update_allowed_flag => x_app_update_allowed_flag,
x_resp_enabled_flag => x_resp_enabled_flag,
x_resp_update_allowed_flag => x_resp_update_allowed_flag,
x_user_enabled_flag => x_user_enabled_flag,
x_user_update_allowed_flag => x_user_update_allowed_flag,
x_start_date_active => x_start_date_active,
x_end_date_active => x_end_date_active,
x_sql_validation => x_sql_validation,
x_hierarchy_type => x_hierarchy_type,
x_custom_mode => x_custom_mode,
x_last_update_date => x_last_update_date,
x_server_enabled_flag => x_server_enabled_flag,
x_server_update_allowed_flag => x_server_update_allowed_flag,
x_org_enabled_flag => x_org_enabled_flag,
x_org_update_allowed_flag => x_org_update_allowed_flag,
x_serverresp_enabled_flag => 'N',
x_serverresp_upd_allow_fl => 'N');
x_site_update_allowed_flag in varchar2,
x_app_enabled_flag in varchar2,
x_app_update_allowed_flag in varchar2,
x_resp_enabled_flag in varchar2,
x_resp_update_allowed_flag in varchar2,
x_user_enabled_flag in varchar2,
x_user_update_allowed_flag in varchar2,
x_start_date_active in varchar2,
x_end_date_active in varchar2,
x_sql_validation in varchar2,
x_hierarchy_type in varchar2,
x_custom_mode in varchar2,
x_last_update_date in varchar2,
x_server_enabled_flag in varchar2,
x_server_update_allowed_flag in varchar2,
x_org_enabled_flag in varchar2,
x_org_update_allowed_flag in varchar2,
x_serverresp_enabled_flag IN varchar2,
x_serverresp_upd_allow_fl in varchar2)
is
app_id number := 0;
f_ludate date; -- entity update date in file
db_ludate date; -- entity update date in db
L_SERVER_UPDATE_ALLOWED_FLAG VARCHAR2(1);
L_ORG_UPDATE_ALLOWED_FLAG VARCHAR2(1);
if (X_SERVER_UPDATE_ALLOWED_FLAG is NULL) then
L_SERVER_UPDATE_ALLOWED_FLAG := 'N';
L_SERVER_UPDATE_ALLOWED_FLAG := X_SERVER_UPDATE_ALLOWED_FLAG;
if (X_ORG_UPDATE_ALLOWED_FLAG is NULL) then
L_ORG_UPDATE_ALLOWED_FLAG := 'N';
L_ORG_UPDATE_ALLOWED_FLAG := X_ORG_UPDATE_ALLOWED_FLAG;
select application_id into app_id
from fnd_application
where application_short_name = X_APPLICATION_SHORT_NAME;
f_ludate := nvl(to_date(x_last_update_date, 'YYYY/MM/DD'), sysdate);
select PROFILE_OPTION_ID, LAST_UPDATED_BY, LAST_UPDATE_DATE
into profo_id, db_luby, db_ludate
from FND_PROFILE_OPTIONS
where PROFILE_OPTION_NAME = L_PROFILE_OPTION_NAME;
fnd_profile_options_pkg.update_row(
x_profile_option_name=> L_PROFILE_OPTION_NAME,
x_application_id => app_id,
x_profile_option_id => profo_id,
x_write_allowed_flag => x_write_allowed_flag,
x_read_allowed_flag => x_read_allowed_flag,
x_user_changeable_flag => x_user_changeable_flag,
x_user_visible_flag => x_user_visible_flag,
x_site_enabled_flag => x_site_enabled_flag,
x_site_update_allowed_flag => x_site_update_allowed_flag,
x_app_enabled_flag => x_app_enabled_flag,
x_app_update_allowed_flag => x_app_update_allowed_flag,
x_resp_enabled_flag => x_resp_enabled_flag,
x_resp_update_allowed_flag => x_resp_update_allowed_flag,
x_user_enabled_flag => x_user_enabled_flag,
x_user_update_allowed_flag => x_user_update_allowed_flag,
x_start_date_active => to_date(x_start_date_active, 'YYYY/MM/DD'),
x_sql_validation => x_sql_validation,
x_end_date_active => to_date(x_end_date_active, 'YYYY/MM/DD'),
x_user_profile_option_name => x_user_profile_option_name,
x_description => x_description,
x_last_update_date => f_ludate,
x_last_updated_by => f_luby,
x_last_update_login => 0,
x_hierarchy_type => l_hierarchy_type,
x_server_enabled_flag => l_server_enabled_flag,
x_server_update_allowed_flag => l_server_update_allowed_flag,
x_org_enabled_flag => l_org_enabled_flag,
x_org_update_allowed_flag => l_org_update_allowed_flag,
x_serverresp_enabled_flag => l_serverresp_enabled_flag,
x_serverresp_upd_allow_fl => l_serverresp_upd_allow_fl);
select fnd_profile_options_s.nextval
into profo_id
from dual;
fnd_profile_options_pkg.insert_row (
x_rowid => row_id,
x_profile_option_name => L_PROFILE_OPTION_NAME,
x_application_id => app_id,
x_profile_option_id => profo_id,
x_write_allowed_flag => x_write_allowed_flag,
x_read_allowed_flag => x_read_allowed_flag,
x_user_changeable_flag => x_user_changeable_flag,
x_user_visible_flag => x_user_visible_flag,
x_site_enabled_flag => x_site_enabled_flag,
x_site_update_allowed_flag => x_site_update_allowed_flag,
x_app_enabled_flag => x_app_enabled_flag,
x_app_update_allowed_flag => x_app_update_allowed_flag,
x_resp_enabled_flag => x_resp_enabled_flag,
x_resp_update_allowed_flag => x_resp_update_allowed_flag,
x_user_enabled_flag => x_user_enabled_flag,
x_user_update_allowed_flag => x_user_update_allowed_flag,
x_start_date_active =>to_date(x_start_date_active, 'YYYY/MM/DD'),
x_sql_validation => x_sql_validation,
x_end_date_active => to_date(x_end_date_active, 'YYYY/MM/DD'),
x_user_profile_option_name => x_user_profile_option_name,
x_description => x_description,
x_creation_date => f_ludate,
x_created_by => f_luby,
x_last_update_date => f_ludate,
x_last_updated_by => f_luby,
x_last_update_login => 0,
x_hierarchy_type => l_hierarchy_type,
x_server_enabled_flag => l_server_enabled_flag,
x_server_update_allowed_flag => l_server_update_allowed_flag,
x_org_enabled_flag => l_org_enabled_flag,
x_org_update_allowed_flag => l_org_update_allowed_flag,
x_serverresp_enabled_flag => l_serverresp_enabled_flag,
x_serverresp_upd_allow_fl => l_serverresp_upd_allow_fl);
procedure DELETE_ROW (
X_PROFILE_OPTION_NAME in VARCHAR2
) is
L_PROFILE_OPTION_NAME VARCHAR2(80):= UPPER(X_PROFILE_OPTION_NAME);
FND_PROFILE_OPTION_VALUES_PKG.DELETE_PROFILE_OPTION_VALUES(
L_PROFILE_OPTION_NAME);
delete from FND_PROFILE_OPTIONS
where PROFILE_OPTION_NAME = L_PROFILE_OPTION_NAME;
delete from FND_PROFILE_OPTIONS_TL
where PROFILE_OPTION_NAME = L_PROFILE_OPTION_NAME;
end DELETE_ROW;
/* The following delete and update statements are commented out */
/* as a quick workaround to fix the time-consuming table handler issue */
/* Eventually we'll need to turn them into a separate fix_language procedure */
/*
delete from FND_PROFILE_OPTIONS_TL T
where not exists
(select NULL
from FND_PROFILE_OPTIONS B
where B.PROFILE_OPTION_NAME = T.PROFILE_OPTION_NAME
);
update FND_PROFILE_OPTIONS_TL T set (
USER_PROFILE_OPTION_NAME,
DESCRIPTION
) = (select
B.USER_PROFILE_OPTION_NAME,
B.DESCRIPTION
from FND_PROFILE_OPTIONS_TL B
where B.PROFILE_OPTION_NAME = T.PROFILE_OPTION_NAME
and B.LANGUAGE = T.SOURCE_LANG)
where (
T.PROFILE_OPTION_NAME,
T.LANGUAGE
) in (select
SUBT.PROFILE_OPTION_NAME,
SUBT.LANGUAGE
from FND_PROFILE_OPTIONS_TL SUBB, FND_PROFILE_OPTIONS_TL SUBT
where SUBB.PROFILE_OPTION_NAME = SUBT.PROFILE_OPTION_NAME
and SUBB.LANGUAGE = SUBT.SOURCE_LANG
and (SUBB.USER_PROFILE_OPTION_NAME <> SUBT.USER_PROFILE_OPTION_NAME
or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
));
insert into FND_PROFILE_OPTIONS_TL (
PROFILE_OPTION_NAME,
USER_PROFILE_OPTION_NAME,
DESCRIPTION,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATE_LOGIN,
LANGUAGE,
SOURCE_LANG
) select
B.PROFILE_OPTION_NAME,
B.USER_PROFILE_OPTION_NAME,
B.DESCRIPTION,
B.CREATED_BY,
B.CREATION_DATE,
B.LAST_UPDATED_BY,
B.LAST_UPDATE_DATE,
B.LAST_UPDATE_LOGIN,
L.LANGUAGE_CODE,
B.SOURCE_LANG
from FND_PROFILE_OPTIONS_TL B, FND_LANGUAGES L
where L.INSTALLED_FLAG in ('I', 'B')
and B.LANGUAGE = userenv('LANG')
and not exists
(select NULL
from FND_PROFILE_OPTIONS_TL T
where T.PROFILE_OPTION_NAME = B.PROFILE_OPTION_NAME
and T.LANGUAGE = L.LANGUAGE_CODE);
** UPDATE_APPL_ID_PK_COLUMNS - Updates the fk references of
** APPLICATION_ID in FND_PROFILE_OTPION_VALUES.
**
**
** AOL_INTERNAL ONLY
**
** If the profile is moved to a different application, replace old
** application_id with the new value.
**
** Check if this update call is for the update of
** foreign key application_id i.e., this profile option is moved
** to a different applicatjion. If so, replace
** all references of application_id of this profile option
** in FND_PROFILE_OTPION_VALUES to the new value.
*/
PROCEDURE UPDATE_APPL_ID_PK_COLUMNS( x_profile_option_name varchar2,
x_profile_id varchar2,
x_appl_id varchar2)
IS
db_appl_id number;
select application_id
into db_appl_id
from fnd_profile_options
where profile_option_name = L_PROFILE_OPTION_NAME;
result:=Fnd_Dictionary_Pkg.UpdatePKColumns('FND','FND_PROFILE_OPTIONS',
col, old_val, new_val
);
END UPDATE_APPL_ID_PK_COLUMNS;
** UPDATE_APPL_ID_CAT_OPTIONS - Updates the fk references of
** APPLICATION_ID in FND_PROFILE_CAT_OPTIONS.
**
**
** AOL_INTERNAL ONLY
**
** Bug 5060938.
** This api is used to propagate updation of profile from Application1 to
** Application2 to Fnd_Profile_cat_Options table.
** DROP/DELETE this api after finding out a way to create Foreign_Key and
** Primary_Key info in FND_FOREIGN_KEYS and FND_PRIMARY_KEYS AOL meta data
** through fnd_profile_cat_options.xdf.
**
** If the profile is moved to a different application, replace old
** application_id with the new value.
**
** Check if Fnd_Profile_Cat_Options table and Profile_Option_Application_Id
** column exists. If so, update the Profile_Option_Application_Id for all the
** profiles in Fnd_Profile_Cat_Options table with the new value.
*/
PROCEDURE UPDATE_CAT_OPTIONS_APPL_ID( x_profile_option_name varchar2,
x_profile_id varchar2,
x_appl_id number)
IS
db_appl_id number;
select application_id
into db_appl_id
from fnd_profile_options
where profile_option_name = L_PROFILE_OPTION_NAME;
SELECT profile_option_application_id
INTO l_appl_id
FROM fnd_profile_cat_options
WHERE ROWNUM < 2;
UPDATE fnd_profile_cat_options
SET profile_option_application_id = x_appl_id
WHERE profile_option_id = x_profile_id
AND profile_option_application_id = db_appl_id;
END UPDATE_CAT_OPTIONS_APPL_ID;