The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT object_name FROM bis_obj_dependency
WHERE object_type = 'PAGE' AND object_name = p_func_name || '_OA'
UNION ALL
SELECT object_name FROM bis_obj_properties
WHERE object_type = 'PAGE' AND object_name = p_func_name || '_OA';
execute immediate 'select 1 from bis_obj_properties
WHERE object_type = :1 AND object_name = :2'
INTO v_dummy
using 'PAGE', p_object_name;
execute immediate 'select 1 from fnd_form_functions
WHERE ( Upper(web_html_call) = :1 AND substr(parameters,10) = :2)
OR ( Upper(web_html_call) LIKE :3 AND function_name = :4)'
INTO v_dummy
using 'ORACLESSWA.SWITCHPAGE', p_object_name, '%BIS_COMPONENT_PAGE'||'&'||'AKREGIONAPPLICATIONID=191%', p_object_name;
execute immediate 'select 1 from fnd_form_functions
WHERE TYPE in (''WEBPORTLET'',''WEBPORTLETX'') AND function_name = :1'
INTO v_dummy
using p_object_name;
execute immediate 'select 1 from fnd_form_functions
WHERE TYPE in (:1,:2) AND function_name = :3'
INTO v_dummy
using 'WWW', 'JSP',p_object_name;
execute immediate 'SELECT 1
FROM FND_APPLICATION
WHERE APPLICATION_SHORT_NAME = :1'
INTO v_dummy
using p_object_owner;
execute immediate 'insert into bis_obj_properties (
object_type, OBJECT_NAME, OBJECT_OWNER,
CREATED_BY, CREATION_DATE, LAST_UPDATED_BY,
LAST_UPDATE_LOGIN, LAST_UPDATE_DATE)
values(:1, :2, :3, :4, :5, :6, :7, :8)'
using P_OBJECT_TYPE, p_object_name, P_OBJECT_OWNER,
g_curr_user_id, Sysdate, g_curr_user_id,
g_curr_login_id, Sysdate;
SELECT DISTINCT object_owner
FROM bis_obj_dependency
WHERE object_name = p_object_name AND object_type = p_object_type;
SELECT DISTINCT depend_object_owner
FROM bis_obj_dependency
WHERE depend_object_name = p_object_name AND depend_object_type = p_object_type;
execute immediate '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(:1, :2, :3, :4, :5, :6, :7, :8, :9, :10, :11, :12)'
using p_object_type, l_OBJECT_OWNER, l_object_name,
P_ENABLED_FLAG,
P_DEPEND_OBJECT_TYPE, l_DEPEND_OBJECT_OWNER, P_DEPEND_OBJECT_NAME,
g_curr_user_id, sysdate, g_curr_user_id,
g_curr_login_id, sysdate;
PROCEDURE Update_Dependency (
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_ENABLED_FLAG in VARCHAR2,
P_DEPEND_OBJECT_TYPE in VARCHAR2,
P_DEPEND_OBJECT_NAME in VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
v_procedure_name VARCHAR2(50) := 'Update_Dependency';
execute immediate 'update bis_obj_dependency
set enabled_flag = :1,
last_updated_by = :2,
last_update_login = :3,
last_update_date = :4
WHERE object_name = :5 AND object_type = :6
AND depend_object_name = :7 AND depend_object_type = :8'
using p_enabled_flag, g_curr_user_id, g_curr_login_id, Sysdate,
l_object_name, p_object_type, p_depend_object_name, p_depend_object_type;
END Update_Dependency;
PROCEDURE delete_property (
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2
) IS
CURSOR c_dependencies (p_obj_name VARCHAR2, p_obj_type VARCHAR2) IS
SELECT depend_object_name
FROM bis_obj_dependency
WHERE (object_name = p_obj_name AND object_type = p_obj_type)
OR (depend_object_name = p_obj_name AND depend_object_type = p_obj_type);
execute immediate 'delete from bis_obj_properties
where object_type = :1 and object_name = :2'
using p_object_type, p_object_name;
END delete_property;
PROCEDURE Delete_Dependency (
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_DEPEND_OBJECT_TYPE in VARCHAR2,
P_DEPEND_OBJECT_NAME in VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
v_procedure_name VARCHAR2(50) := 'Delete_Dependency';
execute immediate 'delete from bis_obj_dependency
WHERE object_name = :1 AND object_type = :2
AND depend_object_name = :3 AND depend_object_type = :4'
using l_object_name, p_object_type, p_depend_object_name, p_depend_object_type;
delete_property(p_object_type, l_object_name);
delete_property(p_depend_object_type, p_depend_object_name);
END Delete_Dependency;
PROCEDURE Delete_Dependency (
P_ROWID in ROWID,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_object_type VARCHAR2(30);
select object_name,object_type,depend_object_name,depend_object_type
from bis_obj_dependency where rowid = rid;
delete_dependency(l_object_type,l_object_name,l_depend_object_type,l_depend_object_name,
x_return_status,x_msg_data);
END Delete_Dependency;
PROCEDURE Delete_Page_Dependencies (
P_OBJECT_NAME in VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
v_procedure_name VARCHAR2(50) := 'Delete_Page_Dependencies';
SELECT object_name, object_type, depend_object_name, depend_object_type
FROM bis_obj_dependency
WHERE object_type = 'PAGE' AND object_name = p_page_name;
Delete_Dependency (v_dep.object_type,
v_dep.OBJECT_NAME,
v_dep.depend_object_type,
v_dep.depend_object_name,
x_return_status,
x_msg_data);
END Delete_Page_Dependencies;
PROCEDURE Update_Property(
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_DIMENSION_FLAG in VARCHAR2,
P_CUSTOM_API in VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
v_procedure_name VARCHAR2(50) := 'Update_Property';
execute immediate 'update bis_obj_properties
set dimension_flag = :1,
custom_api = :2,
last_updated_by = :3,
last_update_login = :4,
last_update_date = :5
WHERE object_name = :6 AND object_type = :7'
using p_dimension_flag, p_custom_api, g_curr_user_id, g_curr_login_id, Sysdate,
l_object_name, p_object_type;
END update_property;
PROCEDURE Update_Property_Dim_Flag(
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_DIMENSION_FLAG in VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
v_procedure_name VARCHAR2(50) := 'Update_Property_Dim_Flag';
execute immediate 'update bis_obj_properties
set dimension_flag = :1,
last_updated_by = :2,
last_update_login = :3,
last_update_date = :4
WHERE object_name = :5 AND object_type = :6'
using p_dimension_flag, g_curr_user_id, g_curr_login_id, Sysdate,
l_object_name, p_object_type;
END update_property_dim_flag;
PROCEDURE Update_Property_Custom_API(
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_CUSTOM_API in VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
v_procedure_name VARCHAR2(50) := 'Update_Property_Custom_API';
execute immediate 'update bis_obj_properties
set custom_api = :1,
last_updated_by = :2,
last_update_login = :3,
last_update_date = :4
WHERE object_name = :5 AND object_type = :6'
using p_custom_api, g_curr_user_id, g_curr_login_id, Sysdate,
l_object_name, p_object_type;
END update_property_custom_api;
* the snapshot_log_sql should not be updated through any API other
* than BIS_BIA_RSG_CUSTOM_API_MGMNT package.
PROCEDURE Update_Property_Snapshotlog(
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_SNAPSHOT_LOG in VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
v_procedure_name VARCHAR2(50) := 'Update_Property_Snapshotlog';
execute immediate 'update bis_obj_properties
set SNAPSHOT_LOG_SQL = :1,
last_updated_by = :2,
last_update_login = :3,
last_update_date = :4
WHERE object_name = :5 AND object_type = :6'
using p_snapshot_log, g_curr_user_id, g_curr_login_id, Sysdate,
l_object_name, p_object_type;
END update_property_snapshotlog;
execute immediate 'select snapshot_log_sql
from bis_obj_properties
WHERE object_name = :1 AND object_type = :2'
INTO v_snapshot_log
using l_object_name, p_object_type;
execute immediate ' SELECT 1
FROM fnd_concurrent_programs prog, fnd_application appl
WHERE prog.CONCURRENT_PROGRAM_NAME = :1
AND prog.application_id = appl.application_id
AND appl.application_short_name = :2'
INTO v_dummy
using p_conc_prog_name, p_appl_short_name;
execute immediate 'select 1
from fnd_common_lookups
where lookup_type = :1 AND lookup_code = :2'
INTO v_dummy
using 'BIS_REFRESH_MODE', p_loading_mode;
execute immediate 'select application_id from fnd_application
WHERE application_short_name = :1'
INTO v_appl_id
using p_appl_short_name;
execute immediate '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(:1, :2, :3, :4, :5, :6, :7, :8, :9, :10, :11, :12, :13)'
using P_OBJECT_TYPE, P_OBJECT_OWNER, P_OBJECT_NAME,
P_CONC_PROG_NAME, V_APPL_ID, P_APPL_SHORT_NAME,
P_ENABLED_FLAG, P_REFRESH_MODE,
g_curr_user_id, sysdate, g_curr_user_id,
g_curr_login_id, sysdate;
PROCEDURE Update_Linkage (
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_ENABLED_FLAG in VARCHAR2,
P_CONC_PROG_NAME in VARCHAR2,
P_APPL_SHORT_NAME in VARCHAR2,
p_refresh_mode IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
v_procedure_name VARCHAR2(50) := 'Update_Linkage';
execute immediate 'update bis_obj_prog_linkages
set enabled_flag = :1,
refresh_mode = :2,
last_updated_by = :3,
last_update_login = :4,
last_update_date = :5
WHERE object_name = :6 AND object_type = :7
AND CONC_PROGRAM_NAME = :8 AND CONC_APP_SHORT_NAME = :9'
using p_enabled_flag, p_refresh_mode, g_curr_user_id, g_curr_login_id, Sysdate,
p_object_name, p_object_type, p_conc_prog_name, p_appl_short_name;
END update_linkage;
PROCEDURE Update_Linkage_Enabled_Flag (
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_ENABLED_FLAG in VARCHAR2,
P_CONC_PROG_NAME in VARCHAR2,
P_APPL_SHORT_NAME in VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
v_procedure_name VARCHAR2(50) := 'Update_Linkage_Enabled_Flag';
execute immediate 'update bis_obj_prog_linkages
set enabled_flag = :1,
last_updated_by = :2,
last_update_login = :3,
last_update_date = :4
WHERE object_name = :5 AND object_type = :6
AND CONC_PROGRAM_NAME = :7 AND CONC_APP_SHORT_NAME = :8'
using p_enabled_flag, g_curr_user_id, g_curr_login_id, Sysdate,
p_object_name, p_object_type, p_conc_prog_name, p_appl_short_name;
END Update_Linkage_Enabled_Flag;
PROCEDURE Update_Linkage_Refresh_Mode (
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_CONC_PROG_NAME in VARCHAR2,
P_APPL_SHORT_NAME in VARCHAR2,
p_refresh_mode IN VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
v_procedure_name VARCHAR2(50) := 'Update_Linkage_Refresh_Mode';
execute immediate 'update bis_obj_prog_linkages
set refresh_mode = :1,
last_updated_by = :2,
last_update_login = :3,
last_update_date = :4
WHERE object_name = :5 AND object_type = :6
AND CONC_PROGRAM_NAME = :7 AND CONC_APP_SHORT_NAME = :8'
using p_refresh_mode, g_curr_user_id, g_curr_login_id, Sysdate,
p_object_name, p_object_type, p_conc_prog_name, p_appl_short_name;
END update_linkage_refresh_mode;
PROCEDURE Delete_Linkage (
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
P_CONC_PROG_NAME in VARCHAR2,
P_APPL_SHORT_NAME in VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
v_procedure_name VARCHAR2(50) := 'Delete_Linkage';
execute immediate 'delete from bis_obj_prog_linkages
WHERE object_name = :1 AND object_type = :2
AND conc_program_name = :3 AND conc_app_short_name = :4'
using p_object_name, p_object_type,
p_conc_prog_name, p_appl_short_name;
END Delete_Linkage;
PROCEDURE Delete_Linkage (
P_ROWID in ROWID,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_object_type VARCHAR2(30);
select object_name,object_type,conc_program_name,conc_app_short_name
from bis_obj_prog_linkages where rowid = rid;
delete_linkage(l_object_type,l_object_name,l_conc_prog_name,l_appl_short_name,
x_return_status,x_msg_data);
END Delete_Linkage;
PROCEDURE Delete_Obj_Linkages (
P_OBJECT_TYPE in VARCHAR2,
P_OBJECT_NAME in VARCHAR2,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_data OUT NOCOPY VARCHAR2
) IS
v_procedure_name VARCHAR2(50) := 'Delete_Obj_Linkages';
execute immediate 'delete from bis_obj_prog_linkages
WHERE object_name = :1 AND object_type = :2'
using p_object_name, p_object_type;
END Delete_Obj_Linkages;
SELECT object_name, user_object_name, object_owner
FROM (SELECT object_name, user_object_name, object_type, object_owner, depend_object_name, depend_object_type
FROM bis_obj_dependency_v
-- get rid of the filter for bug 3867557, i.e., conside both enabled and disabled dependencies
--WHERE enabled_flag = 'Y'
)
WHERE object_type = p_obj_type
START WITH depend_object_name = p_dep_obj_name AND depend_object_type = p_dep_obj_type
CONNECT BY PRIOR object_name = depend_object_name AND PRIOR object_type = depend_object_type;