[Home] [Help]
1: PACKAGE BODY bis_impl_dev_pkg AS
2: /* $Header: BISCONCB.pls 120.10 2007/12/27 12:44:55 lbodired ship $ */
3: version CONSTANT CHAR (80)
4: := '$Header: BISCONCB.pls 120.10 2007/12/27 12:44:55 lbodired ship $';
5:
5:
6: -- ------------------------------------------------------------
7: -- -------------- Global variables and constants --------------
8: -- ------------------------------------------------------------
9: G_PKG_NAME VARCHAR2(30) := 'BIS_IMPL_DEV_PKG';
10: g_current_user_id NUMBER := FND_GLOBAL.User_id;
11: g_current_login_id NUMBER := FND_GLOBAL.Login_id;
12:
13: function clob_to_varchar2 (
399: (select DISTINCT dep.object_name object_name, func.user_function_name user_object_name, 'Y' oa_page
400: from fnd_form_functions_vl func, bis_obj_dependency dep
401: where upper(func.web_html_call) LIKE '%BIS_COMPONENT_PAGE'||'&'||'AKREGIONAPPLICATIONID=191%'
402: and dep.object_type = 'PAGE'
403: and bis_impl_dev_pkg.get_function_by_page(dep.object_name) = func.function_name)
404: UNION ALL
405: -- oa page not in RSG repository
406: select func.function_name object_name, func.user_function_name user_object_name, 'Y' oa_page
407: from fnd_form_functions_vl func
409: and func.function_name not in (select f.function_name
410: from fnd_form_functions f, bis_obj_dependency dep
411: where upper(f.web_html_call) LIKE '%BIS_COMPONENT_PAGE'||'&'||'AKREGIONAPPLICATIONID=191%'
412: and dep.object_type = 'PAGE'
413: and bis_impl_dev_pkg.get_function_by_page(dep.object_name) = f.function_name)
414: UNION ALL
415: -- page in RSG repository but w/o corresponding form function defined
416: (select DISTINCT objdep.object_name object_name, /*objdep.user_object_name user_object_name*/ objdep.object_name user_object_name, 'N' oa_page
417: --from bis_obj_dependency_v objdep
523:
524: cursor c_rsg_object(p_object_type varchar2, p_user_object_name varchar2) is
525: -- bis_obj_properties
526: (SELECT prop.object_name FROM bis_obj_properties prop
527: WHERE bis_impl_dev_pkg.get_user_object_name(prop.object_type,prop.object_name) = p_user_object_name
528: AND prop.object_type = p_object_type)
529: UNION ALL
530: -- bis_obj_dependency object
531: (select distinct d.object_name
550: UNION ALL
551: -- bis_obj_prog_linkages object
552: (SELECT DISTINCT l.object_name
553: FROM bis_obj_prog_linkages l
554: WHERE bis_impl_dev_pkg.get_user_object_name(l.object_type, l.object_name) = p_user_object_name
555: AND l.object_type = p_object_type
556: AND NOT exists (SELECT 1 FROM bis_obj_properties prop
557: WHERE prop.object_type = l.object_type
558: AND prop.object_name = l.object_name)
562:
563: cursor c_rsg_object_name(p_object_type varchar2, p_user_object_name varchar2, p_object_name varchar2) is
564: -- bis_obj_properties
565: (SELECT prop.object_name FROM bis_obj_properties prop
566: WHERE bis_impl_dev_pkg.get_user_object_name(prop.object_type,prop.object_name) = p_user_object_name
567: AND prop.object_type = p_object_type
568: AND prop.object_name = p_object_name)
569: UNION ALL
570: -- bis_obj_dependency object
592: UNION ALL
593: -- bis_obj_prog_linkages object
594: (SELECT DISTINCT l.object_name
595: FROM bis_obj_prog_linkages l
596: WHERE bis_impl_dev_pkg.get_user_object_name(l.object_type, l.object_name) = p_user_object_name
597: AND l.object_type = p_object_type
598: AND l.object_name = p_object_name
599: AND NOT exists (SELECT 1 FROM bis_obj_properties prop
600: WHERE prop.object_type = l.object_type
1977: end if;
1978:
1979: END is_object_seeded;
1980:
1981: end BIS_IMPL_DEV_PKG;