The following lines contain the word 'select', 'insert', 'update' or 'delete':
P_LAST_UPDATED_BY in NUMBER := null,
P_LAST_UPDATE_LOGIN in NUMBER := null,
P_LAST_UPDATE_DATE in DATE := null,
p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE,
p_commit IN VARCHAR2 := fnd_api.g_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_sysdate DATE := sysdate;
l_last_updated_by NUMBER := nvl(P_LAST_UPDATED_BY, g_current_user_id);
l_last_update_login NUMBER := nvl(P_LAST_UPDATE_LOGIN, g_current_login_id);
l_last_update_date DATE := nvl(P_LAST_UPDATE_DATE, l_Sysdate);
select object_name
from bis_obj_properties
where object_name = p_object_name
and object_type = p_object_type;
insert into bis_obj_prog_linkages (
OBJECT_TYPE,
OBJECT_OWNER,
OBJECT_NAME,
CONC_PROGRAM_NAME,
CONC_APP_ID,
CONC_APP_SHORT_NAME,
ENABLED_FLAG,
REFRESH_MODE,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE)
values(
P_OBJECT_TYPE,
P_OBJECT_OWNER,
P_OBJECT_NAME,
P_CONC_PROGRAM_NAME,
P_CONC_APP_ID,
P_CONC_APP_SHORT_NAME,
P_ENABLED_FLAG,
P_REFRESH_MODE,
L_CREATED_BY,
L_CREATION_DATE,
L_LAST_UPDATED_BY,
L_LAST_UPDATE_LOGIN,
L_LAST_UPDATE_DATE);
P_LAST_UPDATED_BY in NUMBER := null,
P_LAST_UPDATE_LOGIN in NUMBER := null,
P_LAST_UPDATE_DATE in DATE := null,
p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE,
p_commit IN VARCHAR2 := fnd_api.g_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
begin
Create_Linkage_Inner (
P_OBJECT_TYPE,
P_OBJECT_OWNER,
P_OBJECT_NAME,
P_CONC_PROGRAM_NAME,
P_CONC_APP_ID,
P_CONC_APP_SHORT_NAME,
P_ENABLED_FLAG,
P_REFRESH_MODE,
P_CREATED_BY,
P_CREATION_DATE,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_LOGIN,
P_LAST_UPDATE_DATE,
p_init_msg_list,
p_commit,
x_return_status,
x_errorcode,
x_msg_count,
x_msg_data
);
procedure Update_Linkage_Inner (
P_ROWID in ROWID,
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_OWNER in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_CONC_PROGRAM_NAME in VARCHAR2,
P_CONC_APP_ID in NUMBER,
P_CONC_APP_SHORT_NAME in VARCHAR2,
P_ENABLED_FLAG in VARCHAR2,
P_REFRESH_MODE in VARCHAR2,
P_LAST_UPDATED_BY in NUMBER := null,
P_LAST_UPDATE_LOGIN in NUMBER := null,
P_LAST_UPDATE_DATE in DATE := null,
p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE,
p_commit IN VARCHAR2 := fnd_api.g_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_sysdate DATE := sysdate;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Linkage';
l_last_updated_by NUMBER := nvl(P_LAST_UPDATED_BY, g_current_user_id);
l_last_update_login NUMBER := nvl(P_LAST_UPDATE_LOGIN, g_current_login_id);
l_last_update_date DATE := nvl(P_LAST_UPDATE_DATE, l_Sysdate);
update bis_obj_prog_linkages
set enabled_flag = P_ENABLED_FLAG,
conc_program_name = P_CONC_PROGRAM_NAME,
conc_app_id = P_CONC_APP_ID,
conc_app_short_name = P_CONC_APP_SHORT_NAME,
refresh_mode = P_REFRESH_MODE,
last_updated_by = l_last_updated_by,
last_update_login = l_last_update_login,
last_update_date = l_last_update_date
where rowid = P_ROWID;
UPDATE BIS_OBJ_PROG_LINKAGES
SET
ENABLED_FLAG = P_ENABLED_FLAG,
REFRESH_MODE = P_REFRESH_MODE,
LAST_UPDATE_DATE = L_LAST_UPDATE_DATE,
LAST_UPDATED_BY = L_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = L_LAST_UPDATE_LOGIN
WHERE OBJECT_TYPE = P_OBJECT_TYPE
AND OBJECT_NAME = P_OBJECT_NAME
AND OBJECT_OWNER = P_OBJECT_OWNER
AND CONC_PROGRAM_NAME = P_CONC_PROGRAM_NAME
AND CONC_APP_ID = P_CONC_APP_ID;
end Update_Linkage_Inner;
procedure Update_Linkage (
P_ROWID in ROWID,
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_OWNER in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_CONC_PROGRAM_NAME in VARCHAR2,
P_CONC_APP_ID in NUMBER,
P_CONC_APP_SHORT_NAME in VARCHAR2,
P_ENABLED_FLAG in VARCHAR2,
P_REFRESH_MODE in VARCHAR2,
P_LAST_UPDATED_BY in NUMBER := null,
P_LAST_UPDATE_LOGIN in NUMBER := null,
P_LAST_UPDATE_DATE in DATE := null,
p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE,
p_commit IN VARCHAR2 := fnd_api.g_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
begin
Update_Linkage_Inner (
P_ROWID,
P_OBJECT_TYPE,
P_OBJECT_OWNER,
P_OBJECT_NAME,
P_CONC_PROGRAM_NAME,
P_CONC_APP_ID,
P_CONC_APP_SHORT_NAME,
P_ENABLED_FLAG,
P_REFRESH_MODE,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_LOGIN,
P_LAST_UPDATE_DATE,
p_init_msg_list,
p_commit,
x_return_status,
x_errorcode,
x_msg_count,
x_msg_data
);
end Update_Linkage;
procedure Delete_Linkage (
P_ROWID in ROWID
) IS
BEGIN
delete from bis_obj_prog_linkages
where rowid = P_ROWID;
end Delete_Linkage;
SELECT object_name, user_object_name, oa_page
FROM (-- portal pages existing in RSG
(select DISTINCT dep.object_name object_name, func.user_function_name user_object_name, 'N' oa_page
from fnd_form_functions_vl func, bis_obj_dependency dep
where upper(web_html_call)='ORACLESSWA.SWITCHPAGE'
and dep.object_type = 'PAGE'
and dep.object_name = substr(parameters,10))
UNION ALL
-- oa page existing in RSG repository
(select DISTINCT dep.object_name object_name, func.user_function_name user_object_name, 'Y' oa_page
from fnd_form_functions_vl func, bis_obj_dependency dep
where upper(func.web_html_call) LIKE '%BIS_COMPONENT_PAGE'||'&'||'AKREGIONAPPLICATIONID=191%'
and dep.object_type = 'PAGE'
and bis_impl_dev_pkg.get_function_by_page(dep.object_name) = func.function_name)
UNION ALL
-- oa page not in RSG repository
select func.function_name object_name, func.user_function_name user_object_name, 'Y' oa_page
from fnd_form_functions_vl func
where upper(func.web_html_call) LIKE '%BIS_COMPONENT_PAGE'||'&'||'AKREGIONAPPLICATIONID=191%'
and func.function_name not in (select f.function_name
from fnd_form_functions f, bis_obj_dependency dep
where upper(f.web_html_call) LIKE '%BIS_COMPONENT_PAGE'||'&'||'AKREGIONAPPLICATIONID=191%'
and dep.object_type = 'PAGE'
and bis_impl_dev_pkg.get_function_by_page(dep.object_name) = f.function_name)
UNION ALL
-- page in RSG repository but w/o corresponding form function defined
(select DISTINCT objdep.object_name object_name, /*objdep.user_object_name user_object_name*/ objdep.object_name user_object_name, 'N' oa_page
--from bis_obj_dependency_v objdep
from bis_obj_dependency objdep
where objdep.object_type = 'PAGE'
and not exists (select 1 from fnd_form_functions func
where (upper(func.web_html_call) = 'ORACLESSWA.SWITCHPAGE'
and substr(func.parameters,10) = objdep.object_name)
/* or (upper(func.web_html_call) LIKE '%BIS_COMPONENT_PAGE'||'&'||'AKREGIONAPPLICATIONID=191%'
and (func.function_name = objdep.object_name
or func.function_name||'_OA' = objdep.object_name))))
*/
or (func.web_html_call like 'OA.jsp?akRegionCode=BIS_COMPONENT_PAGE'||'&'||'akRegionApplicationId=191%'
and (func.function_name = objdep.object_name
or (objdep.object_name like '%_OA'
and func.function_name = SUBSTR(object_name, 1, LENGTH(object_name) - 3))))))
)
WHERE object_name LIKE p_object_name
AND user_object_name LIKE p_user_object_name
AND oa_page LIKE p_is_oa_page;
select function_name
from fnd_form_functions_vl
where type in ('WEBPORTLET','WEBPORTLETX')
and user_function_name = p_user_object_name;
select function_name
from fnd_form_functions_vl
where type in ('WWW','JSP') --modified for bug 4717956
and user_function_name = p_user_object_name;
select function_name
from fnd_form_functions_vl
where type in ('WEBPORTLET','WEBPORTLETX')
and user_function_name = p_user_object_name
and function_name = p_function_name;
select function_name
from fnd_form_functions_vl
where type in ('WWW','JSP') ---modified for bug 4717956
and user_function_name = p_user_object_name
and function_name = p_function_name;
(SELECT prop.object_name FROM bis_obj_properties prop
WHERE bis_impl_dev_pkg.get_user_object_name(prop.object_type,prop.object_name) = p_user_object_name
AND prop.object_type = p_object_type)
UNION ALL
-- bis_obj_dependency object
(select distinct d.object_name
from bis_obj_dependency_v d
where d.object_type = p_object_type
and d.user_object_name = p_user_object_name
AND NOT exists (SELECT 1 FROM bis_obj_properties prop
WHERE prop.object_type = d.object_type
AND prop.object_name = d.object_name))
UNION ALL
-- bis_obj_dependency depend_object
(SELECT DISTINCT d.depend_object_name
FROM bis_obj_dependency_v d
WHERE d.depend_object_type = p_object_type
AND d.user_depend_object_name = p_user_object_name
AND NOT exists (SELECT 1 FROM bis_obj_properties prop
WHERE prop.object_type = d.object_type
AND prop.object_name = d.object_name)
AND NOT exists (SELECT 1 FROM bis_obj_dependency dep
WHERE dep.object_type = d.depend_object_type
AND dep.object_name = d.depend_object_name))
UNION ALL
-- bis_obj_prog_linkages object
(SELECT DISTINCT l.object_name
FROM bis_obj_prog_linkages l
WHERE bis_impl_dev_pkg.get_user_object_name(l.object_type, l.object_name) = p_user_object_name
AND l.object_type = p_object_type
AND NOT exists (SELECT 1 FROM bis_obj_properties prop
WHERE prop.object_type = l.object_type
AND prop.object_name = l.object_name)
AND NOT exists (SELECT 1 FROM bis_obj_dependency d
WHERE (l.object_type = d.object_type AND l.object_name = d.object_name)
OR (l.object_type = d.depend_object_type AND l.object_name = d.depend_object_name)));
(SELECT prop.object_name FROM bis_obj_properties prop
WHERE bis_impl_dev_pkg.get_user_object_name(prop.object_type,prop.object_name) = p_user_object_name
AND prop.object_type = p_object_type
AND prop.object_name = p_object_name)
UNION ALL
-- bis_obj_dependency object
(select distinct d.object_name
from bis_obj_dependency_v d
where d.object_type = p_object_type
and d.user_object_name = p_user_object_name
AND d.object_name = p_object_name
AND NOT exists (SELECT 1 FROM bis_obj_properties prop
WHERE prop.object_type = d.object_type
AND prop.object_name = d.object_name))
UNION ALL
-- bis_obj_dependency depend_object
(SELECT DISTINCT d.depend_object_name
FROM bis_obj_dependency_v d
WHERE d.depend_object_type = p_object_type
AND d.depend_object_name = p_object_name
AND d.user_depend_object_name = p_user_object_name
AND NOT exists (SELECT 1 FROM bis_obj_properties prop
WHERE prop.object_type = d.object_type
AND prop.object_name = d.object_name)
AND NOT exists (SELECT 1 FROM bis_obj_dependency dep
WHERE dep.object_type = d.depend_object_type
AND dep.object_name = d.depend_object_name))
UNION ALL
-- bis_obj_prog_linkages object
(SELECT DISTINCT l.object_name
FROM bis_obj_prog_linkages l
WHERE bis_impl_dev_pkg.get_user_object_name(l.object_type, l.object_name) = p_user_object_name
AND l.object_type = p_object_type
AND l.object_name = p_object_name
AND NOT exists (SELECT 1 FROM bis_obj_properties prop
WHERE prop.object_type = l.object_type
AND prop.object_name = l.object_name)
AND NOT exists (SELECT 1 FROM bis_obj_dependency d
WHERE (l.object_type = d.object_type AND l.object_name = d.object_name)
OR (l.object_type = d.depend_object_type AND l.object_name = d.depend_object_name)));
SELECT APPLICATION_SHORT_NAME INTO l_object_owner
FROM FND_APPLICATION
WHERE APPLICATION_SHORT_NAME = P_OBJECT_OWNER;
SELECT obj_parents.object_name
FROM (SELECT object_type, object_name
-- bug 3492509: loop detection regardless of enabled flag condition
-- FROM (SELECT object_type, object_name, depend_object_type, depend_object_name FROM bis_obj_dependency WHERE enabled_flag = 'Y') d
FROM bis_obj_dependency d
START WITH d.depend_object_type = p_object_type AND d.depend_object_name = p_object_name
CONNECT BY PRIOR d.object_name = d.depend_object_name
AND PRIOR d.object_type = d.depend_object_type) obj_parents
WHERE obj_parents.object_type = p_dep_object_type
AND obj_parents.object_name = p_dep_object_name;
SELECT conc.CONCURRENT_PROGRAM_NAME, appl.APPLICATION_SHORT_NAME
FROM FND_CONCURRENT_PROGRAMS_VL conc, FND_APPLICATION appl
WHERE conc.USER_CONCURRENT_PROGRAM_NAME = P_USER_CONC_PROGRAM_NAME
AND conc.APPLICATION_ID = P_CONC_APP_ID
AND conc.APPLICATION_ID = appl.APPLICATION_ID
AND conc.ENABLED_FLAG = 'Y';
SELECT conc.CONCURRENT_PROGRAM_NAME, conc.APPLICATION_ID, appl.APPLICATION_SHORT_NAME
FROM FND_CONCURRENT_PROGRAMS_VL conc, FND_APPLICATION appl
WHERE conc.USER_CONCURRENT_PROGRAM_NAME = P_USER_CONC_PROGRAM_NAME
AND conc.APPLICATION_ID = appl.APPLICATION_ID
AND conc.ENABLED_FLAG = 'Y';
select distinct conc_program_name
from bis_obj_prog_linkages
where object_type = P_OBJECT_TYPE
and object_name = P_OBJECT_NAME
and enabled_flag = 'Y';
P_LAST_UPDATED_BY in NUMBER := null,
P_LAST_UPDATE_LOGIN in NUMBER := null,
P_LAST_UPDATE_DATE in DATE := null,
p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE,
p_commit IN VARCHAR2 := fnd_api.g_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_sysdate DATE := sysdate;
l_last_updated_by NUMBER := nvl(P_LAST_UPDATED_BY, g_current_user_id);
l_last_update_login NUMBER := nvl(P_LAST_UPDATE_LOGIN, g_current_login_id);
l_last_update_date DATE := nvl(P_LAST_UPDATE_DATE, l_Sysdate);
select object_name
from bis_obj_properties
where object_name = p_object_name
and object_type = p_object_type;
insert into bis_obj_dependency (
OBJECT_TYPE,
OBJECT_OWNER,
OBJECT_NAME,
ENABLED_FLAG,
DEPEND_OBJECT_TYPE,
DEPEND_OBJECT_OWNER,
DEPEND_OBJECT_NAME,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE)
values(
P_OBJECT_TYPE,
P_OBJECT_OWNER,
P_OBJECT_NAME,
P_ENABLED_FLAG,
P_DEPEND_OBJECT_TYPE,
P_DEPEND_OBJECT_OWNER,
P_DEPEND_OBJECT_NAME,
L_CREATED_BY,
L_CREATION_DATE,
L_LAST_UPDATED_BY,
L_LAST_UPDATE_LOGIN,
L_LAST_UPDATE_DATE);
P_LAST_UPDATED_BY in NUMBER := null,
P_LAST_UPDATE_LOGIN in NUMBER := null,
P_LAST_UPDATE_DATE in DATE := null,
p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE,
p_commit IN VARCHAR2 := fnd_api.g_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
begin
Create_Dependency_Inner (
P_OBJECT_TYPE,
P_OBJECT_OWNER,
P_OBJECT_NAME,
P_ENABLED_FLAG,
P_DEPEND_OBJECT_TYPE,
P_DEPEND_OBJECT_OWNER,
P_DEPEND_OBJECT_NAME,
P_FROM_UI,
P_CREATED_BY,
P_CREATION_DATE,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_LOGIN,
P_LAST_UPDATE_DATE,
p_init_msg_list,
p_commit,
x_return_status,
x_errorcode,
x_msg_count,
x_msg_data
);
procedure Update_Dependency_Inner (
P_ROWID in ROWID := null,
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_OWNER in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_ENABLED_FLAG in VARCHAR2,
P_DEPEND_OBJECT_TYPE in VARCHAR2,
P_DEPEND_OBJECT_OWNER in VARCHAR2,
P_DEPEND_OBJECT_NAME in VARCHAR2,
P_FROM_UI in VARCHAR2,
P_LAST_UPDATED_BY in NUMBER := null,
P_LAST_UPDATE_LOGIN in NUMBER := null,
P_LAST_UPDATE_DATE in DATE := null,
p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE,
p_commit IN VARCHAR2 := fnd_api.g_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
l_sysdate DATE := sysdate;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Dependency';
l_last_updated_by NUMBER := nvl(P_LAST_UPDATED_BY, g_current_user_id);
l_last_update_login NUMBER := nvl(P_LAST_UPDATE_LOGIN, g_current_login_id);
l_last_update_date DATE := nvl(P_LAST_UPDATE_DATE, l_Sysdate);
select object_name
from bis_obj_properties
where object_name = p_object_name
and object_type = p_object_type;
update bis_obj_dependency
SET object_owner = p_object_owner,
enabled_flag = P_ENABLED_FLAG,
depend_object_type = P_DEPEND_OBJECT_TYPE,
depend_object_owner = P_DEPEND_OBJECT_OWNER,
depend_object_name = P_DEPEND_OBJECT_NAME,
last_updated_by = L_LAST_UPDATED_BY,
last_update_login = L_LAST_UPDATE_LOGIN,
last_update_date = L_LAST_UPDATE_DATE
where rowid = P_ROWID;
UPDATE BIS_OBJ_DEPENDENCY
SET object_owner = p_object_owner,
ENABLED_FLAG = P_ENABLED_FLAG,
DEPEND_OBJECT_OWNER = P_DEPEND_OBJECT_OWNER,
LAST_UPDATE_DATE = L_LAST_UPDATE_DATE,
LAST_UPDATED_BY = L_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = L_LAST_UPDATE_LOGIN
WHERE OBJECT_TYPE = P_OBJECT_TYPE
AND OBJECT_NAME = P_OBJECT_NAME
AND DEPEND_OBJECT_NAME = P_DEPEND_OBJECT_NAME
AND DEPEND_OBJECT_TYPE = P_DEPEND_OBJECT_TYPE;
/* update the owner of the depend object in property and linkage for bug 3562027 */
execute immediate 'update bis_obj_properties set object_owner = :1
WHERE object_type = :2 AND object_name = :3'
using P_DEPEND_OBJECT_OWNER, P_DEPEND_OBJECT_TYPE, P_DEPEND_OBJECT_NAME;
execute immediate 'update bis_obj_prog_linkages set object_owner = :1
WHERE object_type = :2 AND object_name = :3'
using P_DEPEND_OBJECT_OWNER, P_DEPEND_OBJECT_TYPE, P_DEPEND_OBJECT_NAME;
end Update_Dependency_Inner;
procedure Update_Dependency (
P_ROWID in ROWID := null,
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_OWNER in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_ENABLED_FLAG in VARCHAR2,
P_DEPEND_OBJECT_TYPE in VARCHAR2,
P_DEPEND_OBJECT_OWNER in VARCHAR2,
P_DEPEND_OBJECT_NAME in VARCHAR2,
P_FROM_UI in VARCHAR2,
P_LAST_UPDATED_BY in NUMBER := null,
P_LAST_UPDATE_LOGIN in NUMBER := null,
P_LAST_UPDATE_DATE in DATE := null,
p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE,
p_commit IN VARCHAR2 := fnd_api.g_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) is
begin
Update_Dependency_Inner (
P_ROWID,
P_OBJECT_TYPE,
P_OBJECT_OWNER,
P_OBJECT_NAME,
P_ENABLED_FLAG,
P_DEPEND_OBJECT_TYPE,
P_DEPEND_OBJECT_OWNER,
P_DEPEND_OBJECT_NAME,
P_FROM_UI,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_LOGIN,
P_LAST_UPDATE_DATE,
p_init_msg_list,
p_commit,
x_return_status,
x_errorcode,
x_msg_count,
x_msg_data
);
end Update_Dependency;
procedure Delete_Dependency (
P_ROWID in ROWID
) is
BEGIN
delete from bis_obj_dependency
where rowid = P_ROWID;
end Delete_Dependency;
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER,
P_LAST_UPDATE_DATE in DATE,
p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE,
p_commit IN VARCHAR2 := fnd_api.g_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_sysdate DATE := sysdate;
l_last_updated_by NUMBER := nvl(P_LAST_UPDATED_BY, g_current_user_id);
l_last_update_login NUMBER := nvl(P_LAST_UPDATE_LOGIN, g_current_login_id);
l_last_update_date DATE := nvl(P_LAST_UPDATE_DATE, l_Sysdate);
insert into bis_obj_properties (
OBJECT_TYPE,
OBJECT_NAME,
OBJECT_OWNER,
--SNAPSHOT_LOG_SQL,
FAST_REFRESH_FLAG,
DIMENSION_FLAG,
CUSTOM_API,
CREATED_BY,
CREATION_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE)
values(
P_OBJECT_TYPE,
P_OBJECT_NAME,
P_OBJECT_OWNER,
--P_SNAPSHOT_LOG_SQL,
P_FAST_REFRESH_FLAG,
P_DIMENSION_FLAG,
P_CUSTOM_API,
L_CREATED_BY,
L_CREATION_DATE,
L_LAST_UPDATED_BY,
L_LAST_UPDATE_LOGIN,
L_LAST_UPDATE_DATE);
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER,
P_LAST_UPDATE_DATE in DATE,
p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE,
p_commit IN VARCHAR2 := fnd_api.g_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
begin
Create_Properties_Inner(
P_OBJECT_TYPE,
P_OBJECT_NAME,
P_OBJECT_OWNER,
P_SNAPSHOT_LOG_SQL,
P_FAST_REFRESH_FLAG,
P_DIMENSION_FLAG,
P_CUSTOM_API,
P_CREATED_BY,
P_CREATION_DATE,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_LOGIN,
P_LAST_UPDATE_DATE,
p_init_msg_list,
p_commit,
x_return_status,
x_errorcode,
x_msg_count,
x_msg_data
);
procedure Update_Obj_Last_Refresh_Date(
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_LAST_REFRESH_DATE in DATE
) IS
Begin
update bis_obj_properties
set
LAST_REFRESH_DATE = P_LAST_REFRESH_DATE
WHERE OBJECT_TYPE = P_OBJECT_TYPE
AND OBJECT_NAME = P_OBJECT_NAME ;
procedure Update_Properties_Inner(
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_OBJECT_OWNER in VARCHAR2,
P_SNAPSHOT_LOG_SQL in VARCHAR2,
P_FAST_REFRESH_FLAG in VARCHAR2,
P_DIMENSION_FLAG in VARCHAR2,
P_CUSTOM_API in VARCHAR2,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER,
P_LAST_UPDATE_DATE in DATE,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_sysdate DATE := sysdate;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Properties';
l_last_updated_by NUMBER := nvl(P_LAST_UPDATED_BY, g_current_user_id);
l_last_update_login NUMBER := nvl(P_LAST_UPDATE_LOGIN, g_current_login_id);
l_last_update_date DATE := nvl(P_LAST_UPDATE_DATE, l_Sysdate);
update bis_obj_properties
set
OBJECT_OWNER = P_OBJECT_OWNER,
-- SNAPSHOT_LOG_SQL = P_SNAPSHOT_LOG_SQL,
FAST_REFRESH_FLAG = P_FAST_REFRESH_FLAG,
DIMENSION_FLAG = P_DIMENSION_FLAG,
CUSTOM_API = P_CUSTOM_API,
LAST_UPDATED_BY = L_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = L_LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE = L_LAST_UPDATE_DATE
WHERE OBJECT_TYPE = P_OBJECT_TYPE
AND OBJECT_NAME = P_OBJECT_NAME ;
END Update_Properties_Inner;
procedure Update_Properties(
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_OBJECT_OWNER in VARCHAR2,
P_SNAPSHOT_LOG_SQL in VARCHAR2,
P_FAST_REFRESH_FLAG in VARCHAR2,
P_DIMENSION_FLAG in VARCHAR2,
P_CUSTOM_API in VARCHAR2,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER,
P_LAST_UPDATE_DATE in DATE,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
begin
Update_Properties_Inner(
P_OBJECT_TYPE,
P_OBJECT_NAME,
P_OBJECT_OWNER,
P_SNAPSHOT_LOG_SQL,
P_FAST_REFRESH_FLAG,
P_DIMENSION_FLAG,
P_CUSTOM_API,
P_LAST_UPDATED_BY,
P_LAST_UPDATE_LOGIN,
P_LAST_UPDATE_DATE,
p_init_msg_list,
p_commit,
x_return_status,
x_errorcode,
x_msg_count,
x_msg_data
);
procedure Update_Properties(
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_OBJECT_OWNER in VARCHAR2,
P_SNAPSHOT_LOG_SQL in VARCHAR2,
P_FAST_REFRESH_FLAG in VARCHAR2,
P_DIMENSION_FLAG in VARCHAR2,
P_LAST_UPDATED_BY in NUMBER,
P_LAST_UPDATE_LOGIN in NUMBER,
P_LAST_UPDATE_DATE in DATE,
p_init_msg_list IN VARCHAR2,
p_commit IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_errorcode OUT NOCOPY NUMBER,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_sysdate DATE := sysdate;
l_api_name CONSTANT VARCHAR2(30) := 'Update_Properties';
l_last_updated_by NUMBER := nvl(P_LAST_UPDATED_BY, g_current_user_id);
l_last_update_login NUMBER := nvl(P_LAST_UPDATE_LOGIN, g_current_login_id);
l_last_update_date DATE := nvl(P_LAST_UPDATE_DATE, l_Sysdate);
update bis_obj_properties
set
OBJECT_OWNER = P_OBJECT_OWNER,
SNAPSHOT_LOG_SQL = P_SNAPSHOT_LOG_SQL,
FAST_REFRESH_FLAG = P_FAST_REFRESH_FLAG,
DIMENSION_FLAG = P_DIMENSION_FLAG,
LAST_UPDATED_BY = L_LAST_UPDATED_BY,
LAST_UPDATE_LOGIN = L_LAST_UPDATE_LOGIN,
LAST_UPDATE_DATE = L_LAST_UPDATE_DATE
WHERE OBJECT_TYPE = P_OBJECT_TYPE
AND OBJECT_NAME = P_OBJECT_NAME ;
procedure Delete_Properties(
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2
) IS
BEGIN
delete bis_obj_properties
where object_type = p_object_type
and object_name = p_object_name;
end Delete_Properties;
select user_function_name
from fnd_form_functions_vl
where function_name = p_object_name;
select user_function_name
from fnd_form_functions_vl
where UPPER(web_html_call) like '%BIS_COMPONENT_PAGE'||'&'||'AKREGIONAPPLICATIONID=191%'
and get_function_by_page(p_object_name) = function_name;
SELECT /*+ FIRST_ROWS*/ 'Y'
FROM BIS_OBJ_DEPENDENCY
WHERE OBJECT_TYPE = 'PAGE'
AND P_PAGE_NAME like '%_OA'
AND OBJECT_NAME = SUBSTR(P_PAGE_NAME, 1, LENGTH(P_PAGE_NAME) - 3)
AND ROWNUM = 1;
select f.function_name
from
fnd_form_functions f
where
UPPER(f.web_html_call) like '%BIS_COMPONENT_PAGE'||'&'||'AKREGIONAPPLICATIONID=191%'
and function_name = P_PAGE_NAME;
select f.function_name
from
fnd_form_functions f
where
UPPER(f.web_html_call) like '%BIS_COMPONENT_PAGE'||'&'||'AKREGIONAPPLICATIONID=191%'
and P_PAGE_NAME like '%_OA'
and function_name = SUBSTR(P_PAGE_NAME, 1, LENGTH(P_PAGE_NAME) - 3);
select /*+ FIRST_ROWS*/ 'Y'
from
fnd_form_functions f,
bis_obj_dependency d
where
d.object_name = f.function_name
and d.object_type = 'PAGE'
and UPPER(f.web_html_call) like '%BIS_COMPONENT_PAGE'||'&'||'AKREGIONAPPLICATIONID=191%'
and function_name = P_PAGE_NAME;
update bis_obj_properties
set object_name = P_NEW_PAGE_NAME
where
object_type = 'PAGE'
and object_name = P_PAGE_NAME;
update bis_obj_dependency
set object_name = P_NEW_PAGE_NAME
where
object_type = 'PAGE'
and object_name = P_PAGE_NAME;
SELECT object_owner
FROM bis_obj_properties
WHERE object_type = p_obj_type
AND object_name = p_obj_name;
execute immediate 'update bis_obj_properties set object_owner = :1
WHERE object_type = :2 AND object_name = :3'
using p_obj_owner, p_obj_type, p_obj_name;
execute immediate 'update bis_obj_prog_linkages set object_owner = :1
WHERE object_type = :2 AND object_name = :3'
using p_obj_owner, p_obj_type, p_obj_name;
select CREATED_BY from bis_obj_dependency
where OBJECT_NAME = l_obj_name and OBJECT_TYPE = l_obj_type;
select CREATED_BY from bis_obj_dependency
where DEPEND_OBJECT_NAME = l_obj_name and depend_OBJECT_TYPE = l_obj_type;
select CREATED_BY from bis_obj_prog_linkages
where OBJECT_NAME = l_obj_name and OBJECT_TYPE = l_obj_type;
select CREATED_BY from bis_obj_properties
where OBJECT_NAME = l_obj_name and OBJECT_TYPE = l_obj_type;