[Home] [Help]
8: p_appl_short_name fnd_application.application_short_name%TYPE,
9: p_user NUMBER,
10: p_arcrowtablename user_tables.table_name%TYPE,
11: p_tablecount INTEGER,
12: p_tablename_tab GMA_PURGE_DDL.g_tablename_tab_type,
13: p_tableaction_tab GMA_PURGE_DDL.g_tableaction_tab_type,
14: p_debug_flag BOOLEAN,
15: p_commitfrequency INTEGER)
16: RETURN BOOLEAN IS
9: p_user NUMBER,
10: p_arcrowtablename user_tables.table_name%TYPE,
11: p_tablecount INTEGER,
12: p_tablename_tab GMA_PURGE_DDL.g_tablename_tab_type,
13: p_tableaction_tab GMA_PURGE_DDL.g_tableaction_tab_type,
14: p_debug_flag BOOLEAN,
15: p_commitfrequency INTEGER)
16: RETURN BOOLEAN IS
17: -- This FUNCTION logs, copies, deletes, commits. You name it.
29: l_sqlstatement sy_purg_def.sqlstatement%TYPE;
30:
31: l_transcount PLS_INTEGER; -- transaction commit counter
32:
33: t_arctables_tab GMA_PURGE_DDL.g_tablename_tab_type;
34: t_arcactions_tab GMA_PURGE_DDL.g_tableaction_tab_type;
35: t_tablecount INTEGER;
36: t_idx_tablespaces_tab GMA_PURGE_DDL.g_tablespace_name_tab_type;
37: t_idx_tablespaces_count INTEGER;
30:
31: l_transcount PLS_INTEGER; -- transaction commit counter
32:
33: t_arctables_tab GMA_PURGE_DDL.g_tablename_tab_type;
34: t_arcactions_tab GMA_PURGE_DDL.g_tableaction_tab_type;
35: t_tablecount INTEGER;
36: t_idx_tablespaces_tab GMA_PURGE_DDL.g_tablespace_name_tab_type;
37: t_idx_tablespaces_count INTEGER;
38:
32:
33: t_arctables_tab GMA_PURGE_DDL.g_tablename_tab_type;
34: t_arcactions_tab GMA_PURGE_DDL.g_tableaction_tab_type;
35: t_tablecount INTEGER;
36: t_idx_tablespaces_tab GMA_PURGE_DDL.g_tablespace_name_tab_type;
37: t_idx_tablespaces_count INTEGER;
38:
39: pm_matl_dtl_flag boolean :=false;
40:
91: IF p_tableaction_tab(l_arctableno) = 'D' THEN
92:
93: -- This disables the constriant for only PM_MATL_DTL
94: if upper(l_sourcetable)='PM_MATL_DTL' then
95: GMA_PURGE_DDL.alterconstraints(p_purge_id,
96: t_arctables_tab,
97: t_arcactions_tab,
98: t_tablecount,
99: t_idx_tablespaces_tab,
191:
192: -- This enables the constriant for only PM_MATL_DTL
193: -- if upper(l_sourcetable)='PM_MATL_DTL' then
194: if pm_matl_dtl_flag then
195: GMA_PURGE_DDL.alterconstraints(p_purge_id,
196: t_arctables_tab,
197: t_arcactions_tab,
198: t_tablecount,
199: t_idx_tablespaces_tab,