8: -----------------------------------------------------------------------------
9: -- Private Procedures
10: -----------------------------------------------------------------------------
11:
12: function get_object_id(c_name in dba_objects.object_name%type
13: , c_owner in dba_objects.owner%type
14: , c_type in dba_objects.object_type%type)
15: return dba_objects.object_id%type is
16:
9: -- Private Procedures
10: -----------------------------------------------------------------------------
11:
12: function get_object_id(c_name in dba_objects.object_name%type
13: , c_owner in dba_objects.owner%type
14: , c_type in dba_objects.object_type%type)
15: return dba_objects.object_id%type is
16:
17: cursor cur_obj(c_name in dba_objects.object_name%type
10: -----------------------------------------------------------------------------
11:
12: function get_object_id(c_name in dba_objects.object_name%type
13: , c_owner in dba_objects.owner%type
14: , c_type in dba_objects.object_type%type)
15: return dba_objects.object_id%type is
16:
17: cursor cur_obj(c_name in dba_objects.object_name%type
18: , c_owner in dba_objects.owner%type
11:
12: function get_object_id(c_name in dba_objects.object_name%type
13: , c_owner in dba_objects.owner%type
14: , c_type in dba_objects.object_type%type)
15: return dba_objects.object_id%type is
16:
17: cursor cur_obj(c_name in dba_objects.object_name%type
18: , c_owner in dba_objects.owner%type
19: , c_type in dba_objects.object_type%type) is
13: , c_owner in dba_objects.owner%type
14: , c_type in dba_objects.object_type%type)
15: return dba_objects.object_id%type is
16:
17: cursor cur_obj(c_name in dba_objects.object_name%type
18: , c_owner in dba_objects.owner%type
19: , c_type in dba_objects.object_type%type) is
20: select object_id
21: from dba_objects
14: , c_type in dba_objects.object_type%type)
15: return dba_objects.object_id%type is
16:
17: cursor cur_obj(c_name in dba_objects.object_name%type
18: , c_owner in dba_objects.owner%type
19: , c_type in dba_objects.object_type%type) is
20: select object_id
21: from dba_objects
22: where object_name = c_name
15: return dba_objects.object_id%type is
16:
17: cursor cur_obj(c_name in dba_objects.object_name%type
18: , c_owner in dba_objects.owner%type
19: , c_type in dba_objects.object_type%type) is
20: select object_id
21: from dba_objects
22: where object_name = c_name
23: and object_type = c_type
17: cursor cur_obj(c_name in dba_objects.object_name%type
18: , c_owner in dba_objects.owner%type
19: , c_type in dba_objects.object_type%type) is
20: select object_id
21: from dba_objects
22: where object_name = c_name
23: and object_type = c_type
24: and owner = c_owner;
25:
22: where object_name = c_name
23: and object_type = c_type
24: and owner = c_owner;
25:
26: v_return dba_objects.object_id%type := 0;
27:
28: begin
29: for c_rec in cur_obj(c_name, c_owner, c_type) loop
30: v_return := c_rec.object_id;
101: htp.p('
102:
103: end quick_list;
104:
105: procedure draw_form(c_name in dba_objects.object_name%type := '%'
106: , c_owner in dba_objects.owner%type := '%'
107: , c_type in dba_objects.object_type%type := '%'
108: , c_status in dba_objects.status%type := '%')
109: is
110: begin
103: end quick_list;
104:
105: procedure draw_form(c_name in dba_objects.object_name%type := '%'
106: , c_owner in dba_objects.owner%type := '%'
107: , c_type in dba_objects.object_type%type := '%'
108: , c_status in dba_objects.status%type := '%')
109: is
110: begin
111:
104:
105: procedure draw_form(c_name in dba_objects.object_name%type := '%'
106: , c_owner in dba_objects.owner%type := '%'
107: , c_type in dba_objects.object_type%type := '%'
108: , c_status in dba_objects.status%type := '%')
109: is
110: begin
111:
112: if (c_name = '%'
206: --htp.p('c_name='||c_name||' c_owner='||c_owner||' c_type='||c_type);
207: end draw_form;
208:
209:
210: FUNCTION get_object_name(n_object_id in dba_objects.object_id%type
211: , c_mode in varchar2 := 'BOTH')
212: return varchar2
213: is
214:
211: , c_mode in varchar2 := 'BOTH')
212: return varchar2
213: is
214:
215: cursor cur_raw(n_object_id in dba_objects.object_id%type) is
216: select name
217: from sys.obj$
218: where obj# = n_object_id;
219:
216: select name
217: from sys.obj$
218: where obj# = n_object_id;
219:
220: cursor cur_cons(n_object_id in dba_objects.object_id%type) is
221: select name
222: from sys.con$
223: where con# = n_object_id;
224:
225:
226:
227:
228:
229: cursor cur_object(n_object_id in dba_objects.object_id%type) is
230: select object_name
231: , object_type
232: , owner
233: from dba_objects
229: cursor cur_object(n_object_id in dba_objects.object_id%type) is
230: select object_name
231: , object_type
232: , owner
233: from dba_objects
234: where object_id = n_object_id;
235:
236: v_return_value varchar2(512);
237:
260: end get_object_name;
261:
262:
263:
264: PROCEDURE a_href_gen(n_object_id in dba_objects.object_id%type)
265: is
266: cursor cur_object(n_object_id in dba_objects.object_id%type) is
267: select object_name
268: , object_type
262:
263:
264: PROCEDURE a_href_gen(n_object_id in dba_objects.object_id%type)
265: is
266: cursor cur_object(n_object_id in dba_objects.object_id%type) is
267: select object_name
268: , object_type
269: , owner
270: from dba_objects
266: cursor cur_object(n_object_id in dba_objects.object_id%type) is
267: select object_name
268: , object_type
269: , owner
270: from dba_objects
271: where object_id = n_object_id;
272: begin
273: for o_rec in cur_object(n_object_id) loop
274: uiutil.a_href_gen(c_type => o_rec.object_type
282: end loop;
283: end a_href_gen;
284:
285:
286: procedure ls_count(c_name in dba_objects.object_name%type := '%'
287: , c_owner in dba_objects.owner%type := '%'
288: , c_type in dba_objects.object_type%type := '%'
289: , c_status in dba_objects.status%type := '%') is
290:
283: end a_href_gen;
284:
285:
286: procedure ls_count(c_name in dba_objects.object_name%type := '%'
287: , c_owner in dba_objects.owner%type := '%'
288: , c_type in dba_objects.object_type%type := '%'
289: , c_status in dba_objects.status%type := '%') is
290:
291: cursor cur_count(c_name in dba_objects.object_name%type
284:
285:
286: procedure ls_count(c_name in dba_objects.object_name%type := '%'
287: , c_owner in dba_objects.owner%type := '%'
288: , c_type in dba_objects.object_type%type := '%'
289: , c_status in dba_objects.status%type := '%') is
290:
291: cursor cur_count(c_name in dba_objects.object_name%type
292: , c_owner in dba_objects.owner%type
285:
286: procedure ls_count(c_name in dba_objects.object_name%type := '%'
287: , c_owner in dba_objects.owner%type := '%'
288: , c_type in dba_objects.object_type%type := '%'
289: , c_status in dba_objects.status%type := '%') is
290:
291: cursor cur_count(c_name in dba_objects.object_name%type
292: , c_owner in dba_objects.owner%type
293: , c_type in dba_objects.object_type%type
287: , c_owner in dba_objects.owner%type := '%'
288: , c_type in dba_objects.object_type%type := '%'
289: , c_status in dba_objects.status%type := '%') is
290:
291: cursor cur_count(c_name in dba_objects.object_name%type
292: , c_owner in dba_objects.owner%type
293: , c_type in dba_objects.object_type%type
294: , c_status in dba_objects.status%type := '%') is
295: select owner, object_type, count(object_name) object_count
288: , c_type in dba_objects.object_type%type := '%'
289: , c_status in dba_objects.status%type := '%') is
290:
291: cursor cur_count(c_name in dba_objects.object_name%type
292: , c_owner in dba_objects.owner%type
293: , c_type in dba_objects.object_type%type
294: , c_status in dba_objects.status%type := '%') is
295: select owner, object_type, count(object_name) object_count
296: from dba_objects
289: , c_status in dba_objects.status%type := '%') is
290:
291: cursor cur_count(c_name in dba_objects.object_name%type
292: , c_owner in dba_objects.owner%type
293: , c_type in dba_objects.object_type%type
294: , c_status in dba_objects.status%type := '%') is
295: select owner, object_type, count(object_name) object_count
296: from dba_objects
297: where object_name like c_name ESCAPE '\'
290:
291: cursor cur_count(c_name in dba_objects.object_name%type
292: , c_owner in dba_objects.owner%type
293: , c_type in dba_objects.object_type%type
294: , c_status in dba_objects.status%type := '%') is
295: select owner, object_type, count(object_name) object_count
296: from dba_objects
297: where object_name like c_name ESCAPE '\'
298: and object_type like c_type
292: , c_owner in dba_objects.owner%type
293: , c_type in dba_objects.object_type%type
294: , c_status in dba_objects.status%type := '%') is
295: select owner, object_type, count(object_name) object_count
296: from dba_objects
297: where object_name like c_name ESCAPE '\'
298: and object_type like c_type
299: and owner like c_owner
300: and status like c_status
302: order by owner, object_type;
303:
304: v_name varchar2(80);
305: v_httpname varchar2(80);
306: v_owner dba_objects.owner%type;
307: v_type dba_objects.object_type%type;
308: v_counter number(8) := 0;
309:
310:
303:
304: v_name varchar2(80);
305: v_httpname varchar2(80);
306: v_owner dba_objects.owner%type;
307: v_type dba_objects.object_type%type;
308: v_counter number(8) := 0;
309:
310:
311: begin
370: -- draw_form(c_name, c_owner, c_type, c_status);
371: uiutil.cabo6;
372: end ls_count;
373:
374: procedure ls_object_type(c_name in dba_objects.object_name%type := '%'
375: , c_owner in dba_objects.owner%type := '%'
376: , c_type in dba_objects.object_type%type := '%'
377: , c_status in dba_objects.status%type := '%') is
378:
371: uiutil.cabo6;
372: end ls_count;
373:
374: procedure ls_object_type(c_name in dba_objects.object_name%type := '%'
375: , c_owner in dba_objects.owner%type := '%'
376: , c_type in dba_objects.object_type%type := '%'
377: , c_status in dba_objects.status%type := '%') is
378:
379: cursor cur_object(c_name in dba_objects.object_name%type
372: end ls_count;
373:
374: procedure ls_object_type(c_name in dba_objects.object_name%type := '%'
375: , c_owner in dba_objects.owner%type := '%'
376: , c_type in dba_objects.object_type%type := '%'
377: , c_status in dba_objects.status%type := '%') is
378:
379: cursor cur_object(c_name in dba_objects.object_name%type
380: , c_owner in dba_objects.owner%type
373:
374: procedure ls_object_type(c_name in dba_objects.object_name%type := '%'
375: , c_owner in dba_objects.owner%type := '%'
376: , c_type in dba_objects.object_type%type := '%'
377: , c_status in dba_objects.status%type := '%') is
378:
379: cursor cur_object(c_name in dba_objects.object_name%type
380: , c_owner in dba_objects.owner%type
381: , c_type in dba_objects.object_type%type
375: , c_owner in dba_objects.owner%type := '%'
376: , c_type in dba_objects.object_type%type := '%'
377: , c_status in dba_objects.status%type := '%') is
378:
379: cursor cur_object(c_name in dba_objects.object_name%type
380: , c_owner in dba_objects.owner%type
381: , c_type in dba_objects.object_type%type
382: , c_status in dba_objects.status%type := '%') is
383: select owner, object_name
376: , c_type in dba_objects.object_type%type := '%'
377: , c_status in dba_objects.status%type := '%') is
378:
379: cursor cur_object(c_name in dba_objects.object_name%type
380: , c_owner in dba_objects.owner%type
381: , c_type in dba_objects.object_type%type
382: , c_status in dba_objects.status%type := '%') is
383: select owner, object_name
384: from dba_objects
377: , c_status in dba_objects.status%type := '%') is
378:
379: cursor cur_object(c_name in dba_objects.object_name%type
380: , c_owner in dba_objects.owner%type
381: , c_type in dba_objects.object_type%type
382: , c_status in dba_objects.status%type := '%') is
383: select owner, object_name
384: from dba_objects
385: where object_name like c_name ESCAPE '\'
378:
379: cursor cur_object(c_name in dba_objects.object_name%type
380: , c_owner in dba_objects.owner%type
381: , c_type in dba_objects.object_type%type
382: , c_status in dba_objects.status%type := '%') is
383: select owner, object_name
384: from dba_objects
385: where object_name like c_name ESCAPE '\'
386: and object_type like c_type
380: , c_owner in dba_objects.owner%type
381: , c_type in dba_objects.object_type%type
382: , c_status in dba_objects.status%type := '%') is
383: select owner, object_name
384: from dba_objects
385: where object_name like c_name ESCAPE '\'
386: and object_type like c_type
387: and owner like c_owner
388: and status like c_status
389: order by owner, object_name;
390:
391: v_name varchar2(80);
392: v_httpname varchar2(80);
393: v_owner dba_objects.owner%type;
394: v_type dba_objects.object_type%type;
395: v_counter number(8) := 0;
396:
397:
390:
391: v_name varchar2(80);
392: v_httpname varchar2(80);
393: v_owner dba_objects.owner%type;
394: v_type dba_objects.object_type%type;
395: v_counter number(8) := 0;
396:
397:
398:
455: uiutil.cabo6;
456: end ls_object_type;
457:
458:
459: function dba_object_info(c_name in dba_objects.object_name%type
460: , c_owner in dba_objects.owner%type
461: , c_type in dba_objects.object_type%type)
462: return dba_objects.object_id%type is
463:
456: end ls_object_type;
457:
458:
459: function dba_object_info(c_name in dba_objects.object_name%type
460: , c_owner in dba_objects.owner%type
461: , c_type in dba_objects.object_type%type)
462: return dba_objects.object_id%type is
463:
464: cursor cur_object(c_name in dba_objects.object_name%type
457:
458:
459: function dba_object_info(c_name in dba_objects.object_name%type
460: , c_owner in dba_objects.owner%type
461: , c_type in dba_objects.object_type%type)
462: return dba_objects.object_id%type is
463:
464: cursor cur_object(c_name in dba_objects.object_name%type
465: , c_owner in dba_objects.owner%type
458:
459: function dba_object_info(c_name in dba_objects.object_name%type
460: , c_owner in dba_objects.owner%type
461: , c_type in dba_objects.object_type%type)
462: return dba_objects.object_id%type is
463:
464: cursor cur_object(c_name in dba_objects.object_name%type
465: , c_owner in dba_objects.owner%type
466: , c_type in dba_objects.object_type%type) is
460: , c_owner in dba_objects.owner%type
461: , c_type in dba_objects.object_type%type)
462: return dba_objects.object_id%type is
463:
464: cursor cur_object(c_name in dba_objects.object_name%type
465: , c_owner in dba_objects.owner%type
466: , c_type in dba_objects.object_type%type) is
467: select OWNER
468: , OBJECT_NAME
461: , c_type in dba_objects.object_type%type)
462: return dba_objects.object_id%type is
463:
464: cursor cur_object(c_name in dba_objects.object_name%type
465: , c_owner in dba_objects.owner%type
466: , c_type in dba_objects.object_type%type) is
467: select OWNER
468: , OBJECT_NAME
469: , SUBOBJECT_NAME
462: return dba_objects.object_id%type is
463:
464: cursor cur_object(c_name in dba_objects.object_name%type
465: , c_owner in dba_objects.owner%type
466: , c_type in dba_objects.object_type%type) is
467: select OWNER
468: , OBJECT_NAME
469: , SUBOBJECT_NAME
470: , OBJECT_ID
476: , STATUS
477: , TEMPORARY
478: , GENERATED
479: , SECONDARY
480: from dba_objects
481: where object_name = c_name
482: and object_type = c_type
483: and owner = c_owner;
484:
481: where object_name = c_name
482: and object_type = c_type
483: and owner = c_owner;
484:
485: cursor cur_table(c_name in dba_objects.object_name%type)
486: is
487: select a.application_short_name
488: , a.application_id
489: , t.table_id
493: and t.application_id = a.application_id
494: order by a.application_short_name;
495:
496:
497: cursor cur_view(c_name in dba_objects.object_name%type)
498: is
499: select a.application_short_name
500: , a.application_id
501: , t.view_id
504: where view_name = c_name
505: and t.application_id = a.application_id
506: order by a.application_short_name;
507:
508: v_return_val dba_objects.object_id%type := 0;
509: v_first BOOLEAN;
510:
511: begin
512: for o_rec in cur_object(c_name, c_owner, c_type) loop
512: for o_rec in cur_object(c_name, c_owner, c_type) loop
513: htp.p('
Object Name: | ');'||o_rec.object_name||' |
---|---|
Object Type: | ');
1296: end loop;
1297: end ls_synonym;
1298:
1299: procedure ls_queue(c_name in dba_objects.object_name%type
1300: , c_owner in dba_objects.owner%type) is
1301:
1302: cursor cur_queue(c_name in dba_objects.object_name%type
1303: , c_owner in dba_objects.owner%type) is
1304: SELECT QUEUE_TABLE
1298:
1299: procedure ls_queue(c_name in dba_objects.object_name%type
1300: , c_owner in dba_objects.owner%type) is
1301:
1302: cursor cur_queue(c_name in dba_objects.object_name%type
1303: , c_owner in dba_objects.owner%type) is
1304: SELECT QUEUE_TABLE
1305: , QUEUE_TYPE
1306: , MAX_RETRIES
1299: procedure ls_queue(c_name in dba_objects.object_name%type
1300: , c_owner in dba_objects.owner%type) is
1301:
1302: cursor cur_queue(c_name in dba_objects.object_name%type
1303: , c_owner in dba_objects.owner%type) is
1304: SELECT QUEUE_TABLE
1305: , QUEUE_TYPE
1306: , MAX_RETRIES
1307: , RETRY_DELAY
1577:
1578: end loop;
1579: end ls_type;
1580:
1581: procedure ls_dependencies(n_object_id IN dba_objects.object_id%type) is
1582:
1583:
1584: cursor cur_depend(n_object_id IN dba_objects.object_id%type)
1585: is select d_obj# object_id
1580:
1581: procedure ls_dependencies(n_object_id IN dba_objects.object_id%type) is
1582:
1583:
1584: cursor cur_depend(n_object_id IN dba_objects.object_id%type)
1585: is select d_obj# object_id
1586: , etrm_pnav.get_object_name(d_obj#, 'USER') owner
1587: , etrm_pnav.get_object_name(d_obj#, 'ITEM') item
1588: from sys.dependency$
1588: from sys.dependency$
1589: where p_obj# = n_object_id
1590: order by etrm_pnav.get_object_name(d_obj#);
1591: --
1592: cursor cur_depend2(n_object_id IN dba_objects.object_id%type)
1593: is select p_obj# object_id
1594: , etrm_pnav.get_object_name(p_obj#, 'USER') owner
1595: , etrm_pnav.get_object_name(p_obj#, 'ITEM') item
1596: from sys.dependency$
1597: where d_obj# = n_object_id
1598: order by etrm_pnav.get_object_name(p_obj#);
1599:
1600: v_first boolean;
1601: v_owner dba_objects.owner%type;
1602:
1603: begin
1604: v_first := TRUE;
1605: v_owner := 'foRce_mE_to_diff';
1698:
1699: end ls_dependencies;
1700:
1701:
1702: procedure ls_source(c_name in dba_objects.object_name%type
1703: , c_type in dba_objects.object_type%type
1704: , c_owner in dba_objects.owner%type) is
1705:
1706: cursor cur_source(c_name in dba_objects.object_name%type
1699: end ls_dependencies;
1700:
1701:
1702: procedure ls_source(c_name in dba_objects.object_name%type
1703: , c_type in dba_objects.object_type%type
1704: , c_owner in dba_objects.owner%type) is
1705:
1706: cursor cur_source(c_name in dba_objects.object_name%type
1707: , c_type in dba_objects.object_type%type
1700:
1701:
1702: procedure ls_source(c_name in dba_objects.object_name%type
1703: , c_type in dba_objects.object_type%type
1704: , c_owner in dba_objects.owner%type) is
1705:
1706: cursor cur_source(c_name in dba_objects.object_name%type
1707: , c_type in dba_objects.object_type%type
1708: , c_owner in dba_objects.owner%type)
1702: procedure ls_source(c_name in dba_objects.object_name%type
1703: , c_type in dba_objects.object_type%type
1704: , c_owner in dba_objects.owner%type) is
1705:
1706: cursor cur_source(c_name in dba_objects.object_name%type
1707: , c_type in dba_objects.object_type%type
1708: , c_owner in dba_objects.owner%type)
1709: is select line
1710: , text
1703: , c_type in dba_objects.object_type%type
1704: , c_owner in dba_objects.owner%type) is
1705:
1706: cursor cur_source(c_name in dba_objects.object_name%type
1707: , c_type in dba_objects.object_type%type
1708: , c_owner in dba_objects.owner%type)
1709: is select line
1710: , text
1711: from dba_source
1704: , c_owner in dba_objects.owner%type) is
1705:
1706: cursor cur_source(c_name in dba_objects.object_name%type
1707: , c_type in dba_objects.object_type%type
1708: , c_owner in dba_objects.owner%type)
1709: is select line
1710: , text
1711: from dba_source
1712: where name = c_name
1712: where name = c_name
1713: and type = c_type
1714: and owner = c_owner;
1715:
1716: cursor cur_vw_source(c_name in dba_objects.object_name%type
1717: , c_owner in dba_objects.owner%type)
1718: is select text
1719: from dba_views
1720: where view_name = c_name
1713: and type = c_type
1714: and owner = c_owner;
1715:
1716: cursor cur_vw_source(c_name in dba_objects.object_name%type
1717: , c_owner in dba_objects.owner%type)
1718: is select text
1719: from dba_views
1720: where view_name = c_name
1721: and owner = c_owner;
1719: from dba_views
1720: where view_name = c_name
1721: and owner = c_owner;
1722:
1723: cursor cur_mview(c_name in dba_objects.object_name%type
1724: , c_owner in dba_objects.owner%type)
1725: is select query
1726: from dba_mviews
1727: where mview_name = c_name
1720: where view_name = c_name
1721: and owner = c_owner;
1722:
1723: cursor cur_mview(c_name in dba_objects.object_name%type
1724: , c_owner in dba_objects.owner%type)
1725: is select query
1726: from dba_mviews
1727: where mview_name = c_name
1728: and owner = c_owner;
1726: from dba_mviews
1727: where mview_name = c_name
1728: and owner = c_owner;
1729:
1730: cursor cur_trigger(c_name in dba_objects.object_name%type
1731: , c_owner in dba_objects.owner%type)
1732: is select description
1733: , trigger_type
1734: , triggering_event
1727: where mview_name = c_name
1728: and owner = c_owner;
1729:
1730: cursor cur_trigger(c_name in dba_objects.object_name%type
1731: , c_owner in dba_objects.owner%type)
1732: is select description
1733: , trigger_type
1734: , triggering_event
1735: , column_name
1796: end if;
1797:
1798: end ls_source;
1799:
1800: procedure download_source(c_name in dba_objects.object_name%type
1801: , c_type in dba_objects.object_type%type
1802: , c_owner in dba_objects.owner%type) is
1803:
1804: cursor cur_source(c_name in dba_objects.object_name%type
1797:
1798: end ls_source;
1799:
1800: procedure download_source(c_name in dba_objects.object_name%type
1801: , c_type in dba_objects.object_type%type
1802: , c_owner in dba_objects.owner%type) is
1803:
1804: cursor cur_source(c_name in dba_objects.object_name%type
1805: , c_type in dba_objects.object_type%type
1798: end ls_source;
1799:
1800: procedure download_source(c_name in dba_objects.object_name%type
1801: , c_type in dba_objects.object_type%type
1802: , c_owner in dba_objects.owner%type) is
1803:
1804: cursor cur_source(c_name in dba_objects.object_name%type
1805: , c_type in dba_objects.object_type%type
1806: , c_owner in dba_objects.owner%type)
1800: procedure download_source(c_name in dba_objects.object_name%type
1801: , c_type in dba_objects.object_type%type
1802: , c_owner in dba_objects.owner%type) is
1803:
1804: cursor cur_source(c_name in dba_objects.object_name%type
1805: , c_type in dba_objects.object_type%type
1806: , c_owner in dba_objects.owner%type)
1807: is select line||': '||text text
1808: from dba_source
1801: , c_type in dba_objects.object_type%type
1802: , c_owner in dba_objects.owner%type) is
1803:
1804: cursor cur_source(c_name in dba_objects.object_name%type
1805: , c_type in dba_objects.object_type%type
1806: , c_owner in dba_objects.owner%type)
1807: is select line||': '||text text
1808: from dba_source
1809: where name = c_name
1802: , c_owner in dba_objects.owner%type) is
1803:
1804: cursor cur_source(c_name in dba_objects.object_name%type
1805: , c_type in dba_objects.object_type%type
1806: , c_owner in dba_objects.owner%type)
1807: is select line||': '||text text
1808: from dba_source
1809: where name = c_name
1810: and type = c_type
1809: where name = c_name
1810: and type = c_type
1811: and owner = c_owner;
1812:
1813: cursor cur_vw_source(c_name in dba_objects.object_name%type
1814: , c_owner in dba_objects.owner%type)
1815: is select text
1816: from dba_views
1817: where view_name = c_name
1810: and type = c_type
1811: and owner = c_owner;
1812:
1813: cursor cur_vw_source(c_name in dba_objects.object_name%type
1814: , c_owner in dba_objects.owner%type)
1815: is select text
1816: from dba_views
1817: where view_name = c_name
1818: and owner = c_owner;
1837: htp.p('');
1838: htp.prn(chr(4));
1839: end download_source;
1840:
1841: procedure ls_errors(c_name IN dba_objects.object_name%type
1842: , c_type IN dba_objects.object_type%type
1843: , c_owner IN dba_objects.owner%type) is
1844:
1845:
1838: htp.prn(chr(4));
1839: end download_source;
1840:
1841: procedure ls_errors(c_name IN dba_objects.object_name%type
1842: , c_type IN dba_objects.object_type%type
1843: , c_owner IN dba_objects.owner%type) is
1844:
1845:
1846: cursor cur_errors(c_name IN dba_objects.object_name%type
1839: end download_source;
1840:
1841: procedure ls_errors(c_name IN dba_objects.object_name%type
1842: , c_type IN dba_objects.object_type%type
1843: , c_owner IN dba_objects.owner%type) is
1844:
1845:
1846: cursor cur_errors(c_name IN dba_objects.object_name%type
1847: , c_type IN dba_objects.object_type%type
1842: , c_type IN dba_objects.object_type%type
1843: , c_owner IN dba_objects.owner%type) is
1844:
1845:
1846: cursor cur_errors(c_name IN dba_objects.object_name%type
1847: , c_type IN dba_objects.object_type%type
1848: , c_owner IN dba_objects.owner%type)
1849: is select line
1850: , position
1843: , c_owner IN dba_objects.owner%type) is
1844:
1845:
1846: cursor cur_errors(c_name IN dba_objects.object_name%type
1847: , c_type IN dba_objects.object_type%type
1848: , c_owner IN dba_objects.owner%type)
1849: is select line
1850: , position
1851: , text
1844:
1845:
1846: cursor cur_errors(c_name IN dba_objects.object_name%type
1847: , c_type IN dba_objects.object_type%type
1848: , c_owner IN dba_objects.owner%type)
1849: is select line
1850: , position
1851: , text
1852: from dba_errors
1907: uiutil.cabo2b;
1908: etrm_pnav.draw_tabs;
1909: uiutil.cabo3;
1910:
1911: htp.p('DBA Objects
');
1912: htp.p('
2036: end ls_apps;
2037:
2038:
2039:
2040: procedure ls_object(c_name in dba_objects.object_name%type := '%'
2041: , c_owner in dba_objects.owner%type := '%'
2042: , c_type in dba_objects.object_type%type := '%'
2043: , c_status in dba_objects.status%type := '%') is
2044:
2037:
2038:
2039:
2040: procedure ls_object(c_name in dba_objects.object_name%type := '%'
2041: , c_owner in dba_objects.owner%type := '%'
2042: , c_type in dba_objects.object_type%type := '%'
2043: , c_status in dba_objects.status%type := '%') is
2044:
2045: v_context varchar2(1024);
2038:
2039:
2040: procedure ls_object(c_name in dba_objects.object_name%type := '%'
2041: , c_owner in dba_objects.owner%type := '%'
2042: , c_type in dba_objects.object_type%type := '%'
2043: , c_status in dba_objects.status%type := '%') is
2044:
2045: v_context varchar2(1024);
2046: v_name dba_objects.object_name%type;
2039:
2040: procedure ls_object(c_name in dba_objects.object_name%type := '%'
2041: , c_owner in dba_objects.owner%type := '%'
2042: , c_type in dba_objects.object_type%type := '%'
2043: , c_status in dba_objects.status%type := '%') is
2044:
2045: v_context varchar2(1024);
2046: v_name dba_objects.object_name%type;
2047: v_owner dba_objects.owner%type;
2042: , c_type in dba_objects.object_type%type := '%'
2043: , c_status in dba_objects.status%type := '%') is
2044:
2045: v_context varchar2(1024);
2046: v_name dba_objects.object_name%type;
2047: v_owner dba_objects.owner%type;
2048: v_type dba_objects.object_type%type;
2049: v_status dba_objects.status%type;
2050:
2043: , c_status in dba_objects.status%type := '%') is
2044:
2045: v_context varchar2(1024);
2046: v_name dba_objects.object_name%type;
2047: v_owner dba_objects.owner%type;
2048: v_type dba_objects.object_type%type;
2049: v_status dba_objects.status%type;
2050:
2051: begin
2044:
2045: v_context varchar2(1024);
2046: v_name dba_objects.object_name%type;
2047: v_owner dba_objects.owner%type;
2048: v_type dba_objects.object_type%type;
2049: v_status dba_objects.status%type;
2050:
2051: begin
2052: v_context := 'c_name=' ||replace(c_name, '%', '*')||
2045: v_context varchar2(1024);
2046: v_name dba_objects.object_name%type;
2047: v_owner dba_objects.owner%type;
2048: v_type dba_objects.object_type%type;
2049: v_status dba_objects.status%type;
2050:
2051: begin
2052: v_context := 'c_name=' ||replace(c_name, '%', '*')||
2053: '&c_owner=' ||replace(c_owner, '%', '*')||
2091: ls_count(v_name, v_owner, v_type, v_status);
2092: end if;
2093: end ls_object;
2094:
2095: procedure show_object(c_name in dba_objects.object_name%type
2096: , c_owner in dba_objects.owner%type
2097: , c_type in dba_objects.object_type%type) is
2098:
2099: v_object_id dba_objects.object_id%type;
2092: end if;
2093: end ls_object;
2094:
2095: procedure show_object(c_name in dba_objects.object_name%type
2096: , c_owner in dba_objects.owner%type
2097: , c_type in dba_objects.object_type%type) is
2098:
2099: v_object_id dba_objects.object_id%type;
2100: begin
2093: end ls_object;
2094:
2095: procedure show_object(c_name in dba_objects.object_name%type
2096: , c_owner in dba_objects.owner%type
2097: , c_type in dba_objects.object_type%type) is
2098:
2099: v_object_id dba_objects.object_id%type;
2100: begin
2101: uiutil.cabo1(c_title=> FND_CSS_PKG.Encode(c_type) ||' - '||FND_CSS_PKG.Encode(c_owner)||'.'||FND_CSS_PKG.Encode(c_name));
2095: procedure show_object(c_name in dba_objects.object_name%type
2096: , c_owner in dba_objects.owner%type
2097: , c_type in dba_objects.object_type%type) is
2098:
2099: v_object_id dba_objects.object_id%type;
2100: begin
2101: uiutil.cabo1(c_title=> FND_CSS_PKG.Encode(c_type) ||' - '||FND_CSS_PKG.Encode(c_owner)||'.'||FND_CSS_PKG.Encode(c_name));
2102: htp.p('
2207: uiutil.prn_copyright;
2208: htp.p('');
2209: end show_object;
2210:
2211: procedure show_details(c_name in dba_objects.object_name%type
2212: , c_owner in dba_objects.owner%type
2213: , c_type in dba_objects.object_type%type
2214: , c_detail_type in varchar2) is
2215: begin
2208: htp.p('
');
2209: end show_object;
2210:
2211: procedure show_details(c_name in dba_objects.object_name%type
2212: , c_owner in dba_objects.owner%type
2213: , c_type in dba_objects.object_type%type
2214: , c_detail_type in varchar2) is
2215: begin
2216: if c_detail_type = 'download'
2209: end show_object;
2210:
2211: procedure show_details(c_name in dba_objects.object_name%type
2212: , c_owner in dba_objects.owner%type
2213: , c_type in dba_objects.object_type%type
2214: , c_detail_type in varchar2) is
2215: begin
2216: if c_detail_type = 'download'
2217: then download_source(c_name, c_type, c_owner);
2237: htp.p('');
2238: end if;
2239: end show_details;
2240:
2241: procedure show_dependent_code(n_object_id in dba_objects.object_id%type
2242: , c_name in dba_objects.object_name%type)
2243: is
2244: cursor cur_find_line(n_object_id in dba_objects.object_id%type
2245: , c_name in dba_objects.object_name%type) is
2238: end if;
2239: end show_details;
2240:
2241: procedure show_dependent_code(n_object_id in dba_objects.object_id%type
2242: , c_name in dba_objects.object_name%type)
2243: is
2244: cursor cur_find_line(n_object_id in dba_objects.object_id%type
2245: , c_name in dba_objects.object_name%type) is
2246: select line
2240:
2241: procedure show_dependent_code(n_object_id in dba_objects.object_id%type
2242: , c_name in dba_objects.object_name%type)
2243: is
2244: cursor cur_find_line(n_object_id in dba_objects.object_id%type
2245: , c_name in dba_objects.object_name%type) is
2246: select line
2247: , source
2248: from sys.source$
2241: procedure show_dependent_code(n_object_id in dba_objects.object_id%type
2242: , c_name in dba_objects.object_name%type)
2243: is
2244: cursor cur_find_line(n_object_id in dba_objects.object_id%type
2245: , c_name in dba_objects.object_name%type) is
2246: select line
2247: , source
2248: from sys.source$
2249: where upper(source) like c_name
2248: from sys.source$
2249: where upper(source) like c_name
2250: and obj# = n_object_id;
2251:
2252: cursor cur_print_line(n_object_id in dba_objects.object_id%type
2253: , n_line in sys.source$.line%type) is
2254: select line
2255: , source
2256: from sys.source$
2288: or the source code may be encrypted
');
2289: end if;
2290: end show_dependent_code;
2291:
2292: procedure show_sql(n_object_id in dba_objects.object_id%type)
2293: is
2294:
2295: cursor cur_find_line(n_object_id in dba_objects.object_id%type) is
2296: select line
2291:
2292: procedure show_sql(n_object_id in dba_objects.object_id%type)
2293: is
2294:
2295: cursor cur_find_line(n_object_id in dba_objects.object_id%type) is
2296: select line
2297: , source
2298: from sys.source$
2299: where obj# = n_object_id;
2386: The package body may be wrapped (encrypted)
');
2387: end if;
2388: end show_sql;
2389:
2390: procedure prn_object_type(c_name in dba_objects.object_name%type := '%'
2391: , c_owner in dba_objects.owner%type := '%'
2392: , c_type in dba_objects.object_type%type := '%'
2393: , c_status in dba_objects.status%type := '%') is
2394:
2387: end if;
2388: end show_sql;
2389:
2390: procedure prn_object_type(c_name in dba_objects.object_name%type := '%'
2391: , c_owner in dba_objects.owner%type := '%'
2392: , c_type in dba_objects.object_type%type := '%'
2393: , c_status in dba_objects.status%type := '%') is
2394:
2395: cursor cur_object(c_name in dba_objects.object_name%type
2388: end show_sql;
2389:
2390: procedure prn_object_type(c_name in dba_objects.object_name%type := '%'
2391: , c_owner in dba_objects.owner%type := '%'
2392: , c_type in dba_objects.object_type%type := '%'
2393: , c_status in dba_objects.status%type := '%') is
2394:
2395: cursor cur_object(c_name in dba_objects.object_name%type
2396: , c_owner in dba_objects.owner%type
2389:
2390: procedure prn_object_type(c_name in dba_objects.object_name%type := '%'
2391: , c_owner in dba_objects.owner%type := '%'
2392: , c_type in dba_objects.object_type%type := '%'
2393: , c_status in dba_objects.status%type := '%') is
2394:
2395: cursor cur_object(c_name in dba_objects.object_name%type
2396: , c_owner in dba_objects.owner%type
2397: , c_type in dba_objects.object_type%type
2391: , c_owner in dba_objects.owner%type := '%'
2392: , c_type in dba_objects.object_type%type := '%'
2393: , c_status in dba_objects.status%type := '%') is
2394:
2395: cursor cur_object(c_name in dba_objects.object_name%type
2396: , c_owner in dba_objects.owner%type
2397: , c_type in dba_objects.object_type%type
2398: , c_status in dba_objects.status%type := '%') is
2399: select owner, object_name
2392: , c_type in dba_objects.object_type%type := '%'
2393: , c_status in dba_objects.status%type := '%') is
2394:
2395: cursor cur_object(c_name in dba_objects.object_name%type
2396: , c_owner in dba_objects.owner%type
2397: , c_type in dba_objects.object_type%type
2398: , c_status in dba_objects.status%type := '%') is
2399: select owner, object_name
2400: from dba_objects
2393: , c_status in dba_objects.status%type := '%') is
2394:
2395: cursor cur_object(c_name in dba_objects.object_name%type
2396: , c_owner in dba_objects.owner%type
2397: , c_type in dba_objects.object_type%type
2398: , c_status in dba_objects.status%type := '%') is
2399: select owner, object_name
2400: from dba_objects
2401: where object_name like c_name ESCAPE '\'
2394:
2395: cursor cur_object(c_name in dba_objects.object_name%type
2396: , c_owner in dba_objects.owner%type
2397: , c_type in dba_objects.object_type%type
2398: , c_status in dba_objects.status%type := '%') is
2399: select owner, object_name
2400: from dba_objects
2401: where object_name like c_name ESCAPE '\'
2402: and object_type like c_type
2396: , c_owner in dba_objects.owner%type
2397: , c_type in dba_objects.object_type%type
2398: , c_status in dba_objects.status%type := '%') is
2399: select owner, object_name
2400: from dba_objects
2401: where object_name like c_name ESCAPE '\'
2402: and object_type like c_type
2403: and owner like c_owner
2404: and status like c_status
2404: and status like c_status
2405: order by owner, object_name;
2406:
2407: v_name varchar2(80);
2408: v_owner dba_objects.owner%type;
2409: v_type dba_objects.object_type%type;
2410: v_first boolean := TRUE;
2411:
2412:
2405: order by owner, object_name;
2406:
2407: v_name varchar2(80);
2408: v_owner dba_objects.owner%type;
2409: v_type dba_objects.object_type%type;
2410: v_first boolean := TRUE;
2411:
2412:
2413: begin