eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

[Home] [Help]

APPS.AD_ZD_TABLE dependencies on AD_ZD

Line 1: package body AD_ZD_TABLE as

1: package body AD_ZD_TABLE as
2: /* $Header: ADZDTMB.pls 120.78.12020000.27 2013/06/21 13:24:42 rputchak ship $ */
3:
4: C_PACKAGE constant varchar2(80) := 'ad.plsql.ad_zd_table.';
5:

Line 4: C_PACKAGE constant varchar2(80) := 'ad.plsql.ad_zd_table.';

1: package body AD_ZD_TABLE as
2: /* $Header: ADZDTMB.pls 120.78.12020000.27 2013/06/21 13:24:42 rputchak ship $ */
3:
4: C_PACKAGE constant varchar2(80) := 'ad.plsql.ad_zd_table.';
5:
6: /*
7: ** --------------------------------------------------------------------
8: ** Internal

Line 15: ad_zd.log(x_module, x_log_type, x_message);

11:
12: -- log shortcut
13: procedure LOG(X_MODULE varchar2, X_LOG_TYPE varchar2, X_MESSAGE varchar2) is
14: begin
15: ad_zd.log(x_module, x_log_type, x_message);
16: end;
17:
18: -- error shortcut
19: procedure ERROR(X_MODULE varchar2, X_MESSAGE varchar2) is

Line 21: ad_zd.error(x_module, x_message);

17:
18: -- error shortcut
19: procedure ERROR(X_MODULE varchar2, X_MESSAGE varchar2) is
20: begin
21: ad_zd.error(x_module, x_message);
22: end;
23:
24: -- exec shortcut (varchar2)
25: procedure EXEC(

Line 33: ad_zd.exec(x_sql, x_log_mod, x_ignore);

29: X_PHASE in varchar2 default null) is
30: begin
31: if x_phase is null then
32: -- immediate execution
33: ad_zd.exec(x_sql, x_log_mod, x_ignore);
34: else
35: -- deferred execution: < Control won't come here as of 22-Aug-2012 >
36: ad_zd_parallel_exec.load(
37: x_phase => x_phase,

Line 36: ad_zd_parallel_exec.load(

32: -- immediate execution
33: ad_zd.exec(x_sql, x_log_mod, x_ignore);
34: else
35: -- deferred execution: < Control won't come here as of 22-Aug-2012 >
36: ad_zd_parallel_exec.load(
37: x_phase => x_phase,
38: x_sql => x_sql,
39: x_unique => true );
40: end if;

Line 52: ad_zd.exec(x_sql, x_log_mod, x_ignore);

48: X_PHASE in varchar2 default null) is
49: begin
50: if x_phase is null then
51: -- immediate execution
52: ad_zd.exec(x_sql, x_log_mod, x_ignore);
53: else
54: -- deferred execution:
55: ad_zd_parallel_exec.load(
56: x_phase => x_phase,

Line 55: ad_zd_parallel_exec.load(

51: -- immediate execution
52: ad_zd.exec(x_sql, x_log_mod, x_ignore);
53: else
54: -- deferred execution:
55: ad_zd_parallel_exec.load(
56: x_phase => x_phase,
57: x_sql => x_sql,
58: x_unique => true);
59: end if;

Line 129: and ev.view_name = ad_zd_table.ev_view(x_table_name);

125: select ev.view_name
126: into l_ev_name
127: from dba_editioning_views ev
128: where ev.owner = x_table_owner
129: and ev.view_name = ad_zd_table.ev_view(x_table_name);
130:
131: return 'Y';
132:
133: exception

Line 488: -- In ALL other cases raise error, so AD_ZD_TABLE.UPGRADE call will be marked as FAILED,

484: -- Can NOT DISABLE a trigger which has ORA-25006 issue.
485: --alter_trigger(x_trigger_owner, x_trigger_name, 'DISABLE');
486: return;
487: end if;
488: -- In ALL other cases raise error, so AD_ZD_TABLE.UPGRADE call will be marked as FAILED,
489: -- and worker would consider in next attempt.
490: log(c_module, 'ERROR', x_trigger_owner||'.'||x_trigger_name || ': '|| sqlerrm);
491: raise;
492: end;

Line 615: and trigger_name <> ad_zd_seed.eds_trigger(x_table_name)

611: where read_only_flag in ('A','B', 'E', 'U', 'C') )
612: -- EXCLUDE: trigger generated by the Oracle Text Indexing
613: and trigger_name not like 'DR$%'
614: -- EXCLUDE: Editioned Data Storage Maintenance Trigger Name
615: and trigger_name <> ad_zd_seed.eds_trigger(x_table_name)
616: and trigger_name <> ad_zd_seed.eds_fcet(x_table_name)
617: -- EXCLUDE: cross edition triggers.
618: and crossedition = 'NO'
619: and table_owner = x_table_owner

Line 616: and trigger_name <> ad_zd_seed.eds_fcet(x_table_name)

612: -- EXCLUDE: trigger generated by the Oracle Text Indexing
613: and trigger_name not like 'DR$%'
614: -- EXCLUDE: Editioned Data Storage Maintenance Trigger Name
615: and trigger_name <> ad_zd_seed.eds_trigger(x_table_name)
616: and trigger_name <> ad_zd_seed.eds_fcet(x_table_name)
617: -- EXCLUDE: cross edition triggers.
618: and crossedition = 'NO'
619: and table_owner = x_table_owner
620: and (

Line 639: where syn.owner = ad_zd.apps_schema

635: begin
636: select syn.owner, syn.synonym_name
637: into l_synonym_owner, l_synonym_name
638: from dba_synonyms syn
639: where syn.owner = ad_zd.apps_schema
640: and syn.table_owner = x_table_owner
641: and syn.table_name = l_ev_name
642: and rownum < 2;
643: exception

Line 756: and lower(policy_name) <> 'ad_zd_seed'; -- EXCLUDE: AD_ZD_SEED policies .

752: from dba_policies
753: where object_owner = x_owner
754: and object_name = x_name
755: and policy_name = UPPER(policy_name) -- EXCLUDE: internal polciy, if any.
756: and lower(policy_name) <> 'ad_zd_seed'; -- EXCLUDE: AD_ZD_SEED policies .
757:
758: begin
759: log(c_module, 'PROCEDURE', 'begin: '||x_table_owner||'.'||x_table_name);
760: begin

Line 918: -- MV tables already will be excluded by AD_ZD_TABLE.UPGRADE API

914: is
915: c_module varchar2(127) := c_package||'fix_public_synonym';
916: l_sql varchar2(1024);
917:
918: -- MV tables already will be excluded by AD_ZD_TABLE.UPGRADE API
919: -- Check recursive dependency as well:
920: -- e.g: View --> synonym --> public-synonym
921: --
922: cursor c_dependents (p_synonym_name varchar2) is

Line 1021: ad_zd_table.ev_view_column(col.column_name) view_column_name

1017: L_EV_FIRST boolean;
1018:
1019: cursor C_EV_COLUMNS(X_TABLE_OWNER varchar2, X_TABLE_NAME varchar2) is
1020: select
1021: ad_zd_table.ev_view_column(col.column_name) view_column_name
1022: , max(col.column_name) table_column_name
1023: , min(nvl(evc.view_column_id, 1000+col.column_id)) view_column_id
1024: from dba_tab_columns col,
1025: dba_editioning_view_cols evc

Line 1029: and evc.view_name(+) = ad_zd_table.ev_view(col.table_name)

1025: dba_editioning_view_cols evc
1026: where col.owner = x_table_owner
1027: and col.table_name = x_table_name
1028: and evc.owner(+) = col.owner
1029: and evc.view_name(+) = ad_zd_table.ev_view(col.table_name)
1030: and evc.view_column_name(+) = ad_zd_table.ev_view_column(col.column_name)
1031: group by ad_zd_table.ev_view_column(col.column_name)
1032: order by view_column_id;
1033:

Line 1030: and evc.view_column_name(+) = ad_zd_table.ev_view_column(col.column_name)

1026: where col.owner = x_table_owner
1027: and col.table_name = x_table_name
1028: and evc.owner(+) = col.owner
1029: and evc.view_name(+) = ad_zd_table.ev_view(col.table_name)
1030: and evc.view_column_name(+) = ad_zd_table.ev_view_column(col.column_name)
1031: group by ad_zd_table.ev_view_column(col.column_name)
1032: order by view_column_id;
1033:
1034: begin

Line 1031: group by ad_zd_table.ev_view_column(col.column_name)

1027: and col.table_name = x_table_name
1028: and evc.owner(+) = col.owner
1029: and evc.view_name(+) = ad_zd_table.ev_view(col.table_name)
1030: and evc.view_column_name(+) = ad_zd_table.ev_view_column(col.column_name)
1031: group by ad_zd_table.ev_view_column(col.column_name)
1032: order by view_column_id;
1033:
1034: begin
1035:

Line 1114: C_APPS_SCHEMA varchar2(30) := ad_zd.apps_schema;

1110: X_TABLE_OWNER varchar2,
1111: X_TABLE_NAME varchar2 )
1112: is
1113: C_MODULE varchar2(80) := c_package||'install_ev';
1114: C_APPS_SCHEMA varchar2(30) := ad_zd.apps_schema;
1115: L_EV_NAME varchar2(30);
1116: L_SYN_OWNER varchar2(30);
1117: L_SYN_NAME varchar2(30);
1118: L_STMT varchar2(32000);

Line 1212: move_triggers(x_table_owner, x_table_name, ad_zd_table.ev_view(x_table_name));

1208: -- Install Editioning View (handles synonyms, VPD policies)
1209: install_ev(x_table_owner, x_table_name);
1210:
1211: -- Move triggers to SYNONYM from table
1212: move_triggers(x_table_owner, x_table_name, ad_zd_table.ev_view(x_table_name));
1213:
1214: -- cleanup PUBLIC synonyms
1215: fix_public_synonyms(x_table_owner, x_table_name, ad_zd_table.ev_view(x_table_name));
1216:

Line 1215: fix_public_synonyms(x_table_owner, x_table_name, ad_zd_table.ev_view(x_table_name));

1211: -- Move triggers to SYNONYM from table
1212: move_triggers(x_table_owner, x_table_name, ad_zd_table.ev_view(x_table_name));
1213:
1214: -- cleanup PUBLIC synonyms
1215: fix_public_synonyms(x_table_owner, x_table_name, ad_zd_table.ev_view(x_table_name));
1216:
1217: -- upgrade seed data tables
1218: if is_seed(x_table_owner, x_table_name) = 'Y' then
1219: ad_zd_seed.upgrade(x_table_name);

Line 1219: ad_zd_seed.upgrade(x_table_name);

1215: fix_public_synonyms(x_table_owner, x_table_name, ad_zd_table.ev_view(x_table_name));
1216:
1217: -- upgrade seed data tables
1218: if is_seed(x_table_owner, x_table_name) = 'Y' then
1219: ad_zd_seed.upgrade(x_table_name);
1220: end if;
1221:
1222: commit;
1223: log(c_module, 'PROCEDURE', 'end '||x_table_owner ||'.'|| x_table_name);

Line 1300: and syn.owner = ad_zd.apps_schema )

1296: ( select syn.table_owner, syn.table_name
1297: from dba_synonyms syn
1298: where syn.table_owner = tab.owner
1299: and syn.table_name = tab.table_name
1300: and syn.owner = ad_zd.apps_schema )
1301: and not exists /* not an obsolete table */
1302: ( select
1303: fou.oracle_username owner
1304: , aoo.object_name object_name

Line 1353: ad_zd_parallel_exec.load(

1349:
1350: -- Process tables that need upgrade
1351: for tab_rec in c_upgrade_tables loop
1352: log(c_module, 'STATEMENT', 'Store Upgrade action for table '||tab_rec.table_name );
1353: ad_zd_parallel_exec.load(
1354: x_phase => ad_zd_parallel_exec.c_phase_upgrade_table,
1355: x_sql => 'begin ad_zd_table.upgrade('''||tab_rec.table_owner ||''', '''|| tab_rec.table_name || '''); end;' ,
1356: x_unique => false );
1357: end loop;

Line 1354: x_phase => ad_zd_parallel_exec.c_phase_upgrade_table,

1350: -- Process tables that need upgrade
1351: for tab_rec in c_upgrade_tables loop
1352: log(c_module, 'STATEMENT', 'Store Upgrade action for table '||tab_rec.table_name );
1353: ad_zd_parallel_exec.load(
1354: x_phase => ad_zd_parallel_exec.c_phase_upgrade_table,
1355: x_sql => 'begin ad_zd_table.upgrade('''||tab_rec.table_owner ||''', '''|| tab_rec.table_name || '''); end;' ,
1356: x_unique => false );
1357: end loop;
1358:

Line 1355: x_sql => 'begin ad_zd_table.upgrade('''||tab_rec.table_owner ||''', '''|| tab_rec.table_name || '''); end;' ,

1351: for tab_rec in c_upgrade_tables loop
1352: log(c_module, 'STATEMENT', 'Store Upgrade action for table '||tab_rec.table_name );
1353: ad_zd_parallel_exec.load(
1354: x_phase => ad_zd_parallel_exec.c_phase_upgrade_table,
1355: x_sql => 'begin ad_zd_table.upgrade('''||tab_rec.table_owner ||''', '''|| tab_rec.table_name || '''); end;' ,
1356: x_unique => false );
1357: end loop;
1358:
1359: -- Process tables that need re-upgrade.

Line 1362: ad_zd_parallel_exec.load(

1358:
1359: -- Process tables that need re-upgrade.
1360: for tab_rec in c_reupgrade_tables loop
1361: log(c_module, 'STATEMENT', 'Store Re-Upgrade action for table '||tab_rec.table_name );
1362: ad_zd_parallel_exec.load(
1363: x_phase => ad_zd_parallel_exec.c_phase_upgrade_table,
1364: x_sql => 'begin ad_zd_table.upgrade('''||tab_rec.table_owner ||''', '''|| tab_rec.table_name || '''); end;' ,
1365: x_unique => false);
1366:

Line 1363: x_phase => ad_zd_parallel_exec.c_phase_upgrade_table,

1359: -- Process tables that need re-upgrade.
1360: for tab_rec in c_reupgrade_tables loop
1361: log(c_module, 'STATEMENT', 'Store Re-Upgrade action for table '||tab_rec.table_name );
1362: ad_zd_parallel_exec.load(
1363: x_phase => ad_zd_parallel_exec.c_phase_upgrade_table,
1364: x_sql => 'begin ad_zd_table.upgrade('''||tab_rec.table_owner ||''', '''|| tab_rec.table_name || '''); end;' ,
1365: x_unique => false);
1366:
1367: end loop;

Line 1364: x_sql => 'begin ad_zd_table.upgrade('''||tab_rec.table_owner ||''', '''|| tab_rec.table_name || '''); end;' ,

1360: for tab_rec in c_reupgrade_tables loop
1361: log(c_module, 'STATEMENT', 'Store Re-Upgrade action for table '||tab_rec.table_name );
1362: ad_zd_parallel_exec.load(
1363: x_phase => ad_zd_parallel_exec.c_phase_upgrade_table,
1364: x_sql => 'begin ad_zd_table.upgrade('''||tab_rec.table_owner ||''', '''|| tab_rec.table_name || '''); end;' ,
1365: x_unique => false);
1366:
1367: end loop;
1368:

Line 1393: and syn.table_name = ad_zd_table.ev_view(x_table_name)

1389: cursor C_SYNONYMS(x_table_owner varchar2, x_table_name varchar2) is
1390: select syn.owner owner, syn.synonym_name name
1391: from dba_synonyms syn
1392: where syn.table_owner = x_table_owner
1393: and syn.table_name = ad_zd_table.ev_view(x_table_name)
1394: and syn.owner <> 'PUBLIC';
1395:
1396: begin
1397: log( c_module, 'PROCEDURE', 'begin: '||x_table_owner||'.'||x_table_name);

Line 1421: l_ev_name := ad_zd_table.ev_view(x_table_name);

1417: x_table_owner||'"."'||x_table_name||'"', c_module);
1418: end loop;
1419:
1420: -- Drop EV
1421: l_ev_name := ad_zd_table.ev_view(x_table_name);
1422: log(c_module, 'EVENT', 'Drop EV '||x_table_owner||'.'||l_ev_name);
1423: exec('drop view "'||x_table_owner||'"."'||l_ev_name ||'"', c_module, true);
1424:
1425: log( c_module, 'PROCEDURE', 'end');

Line 1567: C_CET_OWNER varchar2(30) := ad_zd.apps_schema;

1563: --
1564: procedure APPLY(X_CET_NAME in varchar2)
1565: is
1566: C_MODULE varchar2(80) := c_package||'apply';
1567: C_CET_OWNER varchar2(30) := ad_zd.apps_schema;
1568: L_STATUS varchar2(8);
1569: L_CROSSEDITION varchar2(8);
1570: L_TABLE_OWNER varchar2(30);
1571: L_TABLE_NAME varchar2(30);

Line 1710: if (x_cet_name = ad_zd_seed.eds_fcet(l_table_name)) then

1706: end if;
1707:
1708: -- Get Update Column
1709: -- Any column will do, but should be least-indexed and smallest column for best performance
1710: if (x_cet_name = ad_zd_seed.eds_fcet(l_table_name)) then
1711:
1712: -- for seed data sync FCET, update least indexed smallest column in EV
1713: l_upd_ev_name := ad_zd_table.ev_view(l_table_name);
1714: select x.view_column_name into l_upd_column from

Line 1713: l_upd_ev_name := ad_zd_table.ev_view(l_table_name);

1709: -- Any column will do, but should be least-indexed and smallest column for best performance
1710: if (x_cet_name = ad_zd_seed.eds_fcet(l_table_name)) then
1711:
1712: -- for seed data sync FCET, update least indexed smallest column in EV
1713: l_upd_ev_name := ad_zd_table.ev_view(l_table_name);
1714: select x.view_column_name into l_upd_column from
1715: ( select evc.view_column_name, count(idc.index_name), col.data_length
1716: from dba_tab_columns col, dba_ind_columns idc, dba_editioning_view_cols evc
1717: where col.owner = l_table_owner

Line 1756: ad_zd_table.update_4fcet(l_table_owner, l_table_name, l_upd_cet_name, l_upd_column, l_upd_ev_name);

1752: end loop;
1753:
1754: -- update table
1755: begin
1756: ad_zd_table.update_4fcet(l_table_owner, l_table_name, l_upd_cet_name, l_upd_column, l_upd_ev_name);
1757: exception
1758: when others then
1759: l_error := substrb(sqlerrm, 1, 2000);
1760: -- disable the trigger

Line 1843: and idx.index_name = ad_zd_table.revised_index_name(x_index_name);

1839: select idx.index_name
1840: into l_revised_name
1841: from dba_indexes idx
1842: where idx.owner = x_index_owner
1843: and idx.index_name = ad_zd_table.revised_index_name(x_index_name);
1844:
1845: exec('drop index "'||x_index_owner||'"."'||l_revised_name||'"', c_module);
1846: exception
1847: when no_data_found then

Line 1858: ' index "'||owner||'"."'||ad_zd_table.revised_index_name(index_name)||'"'||

1854: 'create '||
1855: decode(index_type,
1856: 'NORMAL', decode(uniqueness, 'UNIQUE', 'UNIQUE', ''),
1857: index_type)||
1858: ' index "'||owner||'"."'||ad_zd_table.revised_index_name(index_name)||'"'||
1859: ' on "'||table_owner||'"."'||table_name||'"' I_HEADER,
1860: decode(nvl(tablespace_name,'???'),'???','','tablespace '||tablespace_name)||
1861: ' storage (initial '||nvl(initial_extent, 128*1024)/1024||'K '||
1862: 'next '||nvl(next_extent, 128*1024)/1024||'K)'

Line 1941: and regexp_like(idx.index_name, ad_zd_table.original_index_regexp, 'c')

1937: where read_only_flag in ('A', 'B', 'E', 'U') )
1938: and idx.owner = idx.table_owner
1939: and idx.table_owner = x_table_owner
1940: and idx.table_name = x_table_name
1941: and regexp_like(idx.index_name, ad_zd_table.original_index_regexp, 'c')
1942: and (
1943: (
1944: /* Revised Index does not exist and Original Index is out of date */
1945: not exists

Line 1949: and idt.index_name = ad_zd_table.revised_index_name(idx.index_name) )

1945: not exists
1946: ( select idt.index_name
1947: from dba_indexes idt
1948: where idt.owner = idx.owner
1949: and idt.index_name = ad_zd_table.revised_index_name(idx.index_name) )
1950: and exists
1951: ( select col.column_name
1952: from dba_tab_columns col, dba_ind_columns idc
1953: where col.owner = idx.table_owner

Line 1957: and ad_zd_table.ev_view_column(idc.column_name)=ad_zd_table.ev_view_column(col.column_name)

1953: where col.owner = idx.table_owner
1954: and col.table_name = idx.table_name
1955: and idc.index_owner = idx.owner
1956: and idc.index_name = idx.index_name
1957: and ad_zd_table.ev_view_column(idc.column_name)=ad_zd_table.ev_view_column(col.column_name)
1958: and col.column_name > idc.column_name )
1959: )
1960: or
1961: (

Line 1967: and idt.index_name = ad_zd_table.revised_index_name(idx.index_name) )

1963: exists
1964: ( select idt.index_name
1965: from dba_indexes idt
1966: where idt.owner = idx.owner
1967: and idt.index_name = ad_zd_table.revised_index_name(idx.index_name) )
1968: and exists
1969: ( select col.column_name
1970: from dba_tab_columns col, dba_ind_columns idc
1971: where col.owner = idx.table_owner

Line 1974: and idc.index_name = ad_zd_table.revised_index_name(idx.index_name)

1970: from dba_tab_columns col, dba_ind_columns idc
1971: where col.owner = idx.table_owner
1972: and col.table_name = idx.table_name
1973: and idc.index_owner = idx.owner
1974: and idc.index_name = ad_zd_table.revised_index_name(idx.index_name)
1975: and ad_zd_table.ev_view_column(idc.column_name)=ad_zd_table.ev_view_column(col.column_name)
1976: and col.column_name > idc.column_name )
1977: )
1978: )

Line 1975: and ad_zd_table.ev_view_column(idc.column_name)=ad_zd_table.ev_view_column(col.column_name)

1971: where col.owner = idx.table_owner
1972: and col.table_name = idx.table_name
1973: and idc.index_owner = idx.owner
1974: and idc.index_name = ad_zd_table.revised_index_name(idx.index_name)
1975: and ad_zd_table.ev_view_column(idc.column_name)=ad_zd_table.ev_view_column(col.column_name)
1976: and col.column_name > idc.column_name )
1977: )
1978: )
1979: order by 1, 2;

Line 2035: and regexp_like(ridx.index_name, ad_zd_table.revised_index_regexp, 'c')

2031: ( select oracle_username from system.fnd_oracle_userid
2032: where read_only_flag in ('A', 'B', 'E', 'U') )
2033: and ridx.table_owner = x_table_owner
2034: and ridx.table_name = x_table_name
2035: and regexp_like(ridx.index_name, ad_zd_table.revised_index_regexp, 'c')
2036: and oidx.owner(+) = ridx.owner
2037: and oidx.index_name(+) = ad_zd_table.original_index_name(ridx.index_name)
2038: and con.owner(+) = ridx.table_owner
2039: and con.table_name(+) = ridx.table_name

Line 2037: and oidx.index_name(+) = ad_zd_table.original_index_name(ridx.index_name)

2033: and ridx.table_owner = x_table_owner
2034: and ridx.table_name = x_table_name
2035: and regexp_like(ridx.index_name, ad_zd_table.revised_index_regexp, 'c')
2036: and oidx.owner(+) = ridx.owner
2037: and oidx.index_name(+) = ad_zd_table.original_index_name(ridx.index_name)
2038: and con.owner(+) = ridx.table_owner
2039: and con.table_name(+) = ridx.table_name
2040: and con.index_owner(+) = ridx.owner
2041: and con.index_name(+) = ad_zd_table.original_index_name(ridx.index_name)

Line 2041: and con.index_name(+) = ad_zd_table.original_index_name(ridx.index_name)

2037: and oidx.index_name(+) = ad_zd_table.original_index_name(ridx.index_name)
2038: and con.owner(+) = ridx.table_owner
2039: and con.table_name(+) = ridx.table_name
2040: and con.index_owner(+) = ridx.owner
2041: and con.index_name(+) = ad_zd_table.original_index_name(ridx.index_name)
2042: order by 1, 2;
2043:
2044: begin
2045: log(c_module, 'PROCEDURE',

Line 2101: if ad_zd_table.ev_exists(x_table_owner, x_table_name) = 'Y' then

2097: begin
2098: log(c_module,'EVENT', 'Patch Table: '||x_table_owner||'.'||x_table_name);
2099:
2100: -- If there is an EV then do related processing
2101: if ad_zd_table.ev_exists(x_table_owner, x_table_name) = 'Y' then
2102:
2103: -- Cannot regenerate EV from RUN edition if PATCH edition exists
2104: if ad_zd.get_edition_type = 'RUN' and ad_zd.get_edition('PATCH') is not null then
2105: error(c_module, 'Cannot PATCH table from Run Edition while Patch Edition exists');

Line 2104: if ad_zd.get_edition_type = 'RUN' and ad_zd.get_edition('PATCH') is not null then

2100: -- If there is an EV then do related processing
2101: if ad_zd_table.ev_exists(x_table_owner, x_table_name) = 'Y' then
2102:
2103: -- Cannot regenerate EV from RUN edition if PATCH edition exists
2104: if ad_zd.get_edition_type = 'RUN' and ad_zd.get_edition('PATCH') is not null then
2105: error(c_module, 'Cannot PATCH table from Run Edition while Patch Edition exists');
2106: end if;
2107:
2108: -- Generate revised editioning view

Line 2113: ad_zd_seed.patch(x_table_owner, x_table_name);

2109: generate_ev(x_table_owner, x_table_name);
2110:
2111: -- For seed data tables, call patch processing in seed data manager
2112: if is_seed(x_table_owner, x_table_name) = 'Y' then
2113: ad_zd_seed.patch(x_table_owner, x_table_name);
2114: end if;
2115:
2116: end if;
2117:

Line 2151: ad_zd_parallel_exec.load(

2147: revise_indexes(tablerec.owner, tablerec.name);
2148:
2149: -- Store cutover action: Check for uniqueness also:22-Aug-2012
2150: if (tablerec.status = 'N') then
2151: ad_zd_parallel_exec.load(
2152: x_phase => ad_zd_parallel_exec.c_phase_cutover,
2153: x_sql => 'begin ad_zd_table.cutover('||
2154: ''''||tablerec.owner||''', '||
2155: ''''||tablerec.name||'''); end;',

Line 2152: x_phase => ad_zd_parallel_exec.c_phase_cutover,

2148:
2149: -- Store cutover action: Check for uniqueness also:22-Aug-2012
2150: if (tablerec.status = 'N') then
2151: ad_zd_parallel_exec.load(
2152: x_phase => ad_zd_parallel_exec.c_phase_cutover,
2153: x_sql => 'begin ad_zd_table.cutover('||
2154: ''''||tablerec.owner||''', '||
2155: ''''||tablerec.name||'''); end;',
2156: x_unique => true);

Line 2153: x_sql => 'begin ad_zd_table.cutover('||

2149: -- Store cutover action: Check for uniqueness also:22-Aug-2012
2150: if (tablerec.status = 'N') then
2151: ad_zd_parallel_exec.load(
2152: x_phase => ad_zd_parallel_exec.c_phase_cutover,
2153: x_sql => 'begin ad_zd_table.cutover('||
2154: ''''||tablerec.owner||''', '||
2155: ''''||tablerec.name||'''); end;',
2156: x_unique => true);
2157: end if;

Line 2403: and regexp_like(idx.index_name, ad_zd_table.revised_index_regexp, 'c')

2399: , dba_constraints con
2400: where idx.owner in
2401: ( select oracle_username from system.fnd_oracle_userid
2402: where read_only_flag in ('A', 'B', 'E', 'U') )
2403: and regexp_like(idx.index_name, ad_zd_table.revised_index_regexp, 'c')
2404: and con.owner(+) = idx.table_owner
2405: and con.table_name(+) = idx.table_name
2406: and con.index_name(+) = idx.index_name
2407: order by 1, 2;

Line 2497: l_appsname := ad_zd.apps_schema;

2493: and syn.table_name = x_ev_name
2494: and syn.owner <> 'PUBLIC';
2495:
2496: begin
2497: l_appsname := ad_zd.apps_schema;
2498: l_table_owner := trim(nvl(x_table_owner, l_appsname));
2499: log(C_MODULE, 'PROCEDURE', 'begin: '|| l_table_owner ||'.'||x_table_name);
2500:
2501: -- Verify table exists

Line 2515: l_ev_name := ad_zd_table.ev_view(x_table_name);

2511: exec(x_upd_stmt, c_module, true);
2512: end if;
2513: X_DROPPED := 'Y';
2514: else
2515: l_ev_name := ad_zd_table.ev_view(x_table_name);
2516:
2517: -- Drop synonyms pointing to EV
2518: for synrec in c_synonyms(l_table_owner, l_ev_name) loop
2519: log(c_module, 'EVENT', 'Dropping synonym '||synrec.owner||'.'||synrec.name);

Line 2528: if ad_zd.get_edition_type = 'RUN' then

2524: log(c_module, 'EVENT', 'Drop EV '||l_table_owner||'.'||l_ev_name);
2525: exec('drop view "'||l_table_owner||'"."'||l_ev_name ||'"', c_module, true);
2526:
2527: -- (Deferred) drop table logic
2528: if ad_zd.get_edition_type = 'RUN' then
2529: -- Drop table
2530: log(c_module, 'EVENT', 'Drop table '||l_table_owner||'.'||x_table_name);
2531: begin
2532: exec(x_drop_stmt, c_module);

Line 2568: ad_zd.load_ddl ('CLEANUP', l_defer_stmt);

2564: l_defer_stmt := 'begin execute immediate '''|| regexp_replace(x_drop_stmt, '''', '''''') || '''; ' ||
2565: 'execute immediate ''' || regexp_replace(x_upd_stmt, '''', '''''') ||
2566: '''; exception when others then null; end;';
2567:
2568: ad_zd.load_ddl ('CLEANUP', l_defer_stmt);
2569: else
2570: ad_zd.load_ddl ('CLEANUP', x_drop_stmt);
2571: end if;
2572:

Line 2570: ad_zd.load_ddl ('CLEANUP', x_drop_stmt);

2566: '''; exception when others then null; end;';
2567:
2568: ad_zd.load_ddl ('CLEANUP', l_defer_stmt);
2569: else
2570: ad_zd.load_ddl ('CLEANUP', x_drop_stmt);
2571: end if;
2572:
2573: -- Return 'N' as the table object is not deleted yet.
2574: X_DROPPED := 'N';

Line 2582: end AD_ZD_TABLE;

2578: log( c_module, 'PROCEDURE', 'end');
2579: commit;
2580: end DROP_TABLE;
2581:
2582: end AD_ZD_TABLE;