[Home] [Help]
170: if NOT found_session
171: then
172: select count(*)
173: into dummy
174: from dba_objects
175: where object_type in ('PACKAGE', 'PACKAGE BODY')
176: and object_name in ('APPS_DDL', 'APPS_ARRAY_DDL')
177: and status = 'VALID'
178: and owner = upper(schema_name);
240: p_with_grant_option IN BOOLEAN DEFAULT TRUE,
241: p_recursion_depth IN NUMBER DEFAULT NULL)
242: IS
243: l_statement VARCHAR2(500);
244: l_owner_schema_name dba_objects.owner%TYPE;
245: l_object_type dba_objects.object_type%TYPE;
246: l_recursion_depth NUMBER;
247: l_exists NUMBER;
248: l_queue_owner VARCHAR2(30);
241: p_recursion_depth IN NUMBER DEFAULT NULL)
242: IS
243: l_statement VARCHAR2(500);
244: l_owner_schema_name dba_objects.owner%TYPE;
245: l_object_type dba_objects.object_type%TYPE;
246: l_recursion_depth NUMBER;
247: l_exists NUMBER;
248: l_queue_owner VARCHAR2(30);
249:
272: --
273: BEGIN
274: SELECT object_type
275: INTO l_object_type
276: FROM dba_objects
277: WHERE owner = p_grantor_schema_name
278: AND object_name = p_object_name;
279: EXCEPTION
280: WHEN OTHERS THEN
331:
332: EXCEPTION
333: /* Added for bug2765486 to trap ORA -1720 */
334: /* BUG 2892989, Since APPLSYS owns WF queues, we don't use the owner condition
335: and use dba_queues that is faster than using dba_objects */
336:
337: WHEN no_grant_exist THEN
338: BEGIN
339: SELECT 1, owner into l_exists, l_queue_owner
377: p_to_schema_name IN VARCHAR2,
378: p_to_object_name IN VARCHAR2)
379: IS
380: l_statement VARCHAR2(500);
381: l_object_type dba_objects.object_type%TYPE;
382:
383: name_is_already_used EXCEPTION;
384: PRAGMA EXCEPTION_INIT(name_is_already_used, -955);
385: BEGIN
392: WHEN name_is_already_used THEN
393: BEGIN
394: SELECT object_type
395: INTO l_object_type
396: FROM dba_objects
397: WHERE owner = p_to_schema_name
398: AND object_name = p_to_object_name;
399: EXCEPTION
400: WHEN OTHERS THEN
1739:
1740: -- customized object is not there, but it is a synonym
1741: -- create it
1742: DECLARE
1743: l_from_schema_name dba_objects.owner%TYPE;
1744: BEGIN
1745: IF (points_to_schema(cust_row_index) = 'BASE') THEN
1746: l_from_schema_name := base_schema;
1747: ELSE
1780: apps_name(cust_row_index), 'SYNONYM');
1781:
1782: -- Recreate synonym
1783: DECLARE
1784: l_from_schema_name dba_objects.owner%TYPE;
1785: BEGIN
1786: IF (points_to_schema(cust_row_index) = 'BASE') THEN
1787: l_from_schema_name := base_schema;
1788: ELSE
2179: -- Get view_date
2180: select nvl(min(last_ddl_time),
2181: to_date('01/01/1970','DD/MM/YYYY'))
2182: into view_date
2183: from dba_objects
2184: where object_name = upper(l_table_name)
2185: and object_type = 'VIEW'
2186: and owner = upper(apps_schema);
2187:
2189: select nvl(min(decode(last_ddl_time,sysdate,
2190: to_date('31/12/2199','DD/MM/YYYY'),last_ddl_time)),
2191: to_date('01/01/1970','DD/MM/YYYY'))
2192: into table_date
2193: from dba_objects
2194: where object_name = upper(l_table_name)
2195: and object_type = 'TABLE'
2196: and owner = upper(table_schema);
2197:
2403: -- don't do the apps_ddl procedure, because using it to drop
2404: -- and recreate itself is problematic
2405: cursor src_pls_obj is
2406: select do.object_name, do.object_type, do2.object_name name2
2407: from dba_objects do, dba_objects do2
2408: where do.owner = upper(copy_stored_progs.fromschema)
2409: and do.object_type in (
2410: decode(copy_stored_progs.p_object_type,
2411: 'B',null, 'P',null, 'F',null,
2592:
2593: cursor FIND_OBJ (c_owner in varchar2,
2594: c_object_name in varchar2) is
2595: select object_type
2596: from dba_objects
2597: where owner = c_owner
2598: and object_name = c_object_name
2599: order by decode(object_type, 'PACKAGE', 1, 2);
2600:
2880: -- check to see if object exists in dest schema
2881:
2882: select object_name
2883: into dummy
2884: from dba_objects
2885: where owner = recompile_schema
2886: and object_name = obj_names(i)
2887: and object_type = obj_types(i);
2888: