1 PACKAGE GMA_PURGE_COPY AUTHID CURRENT_USER AS
2 /* $Header: GMAPRGCS.pls 120.1.12010000.1 2008/07/30 06:17:16 appldev ship $ */
3
4 -- This is a drag, but we have to maintain two tables rather
5 -- than one table with a composite type to provide compatability
6 -- with Oracle v7.x.
7 TYPE g_tablename_tab_type IS TABLE OF user_tables.table_name%TYPE
8 INDEX BY BINARY_INTEGER;
9 TYPE g_tableaction_tab_type IS TABLE OF CHAR(1)
10 INDEX BY BINARY_INTEGER;
11
12 PROCEDURE docommit(p_purge_id sy_purg_mst.purge_id%TYPE,
13 p_transcount IN OUT NOCOPY INTEGER);
14
15 FUNCTION archiveengine(p_purge_id sy_purg_mst.purge_id%TYPE,
16 p_owner user_users.username%TYPE,
17 p_appl_short_name fnd_application.application_short_name%TYPE,
18 p_user NUMBER,
19 p_arcrowtablename user_tables.table_name%TYPE,
20 p_tablecount INTEGER,
21 p_tablename_tab GMA_PURGE_DDL.g_tablename_tab_type,
22 p_tableaction_tab GMA_PURGE_DDL.g_tableaction_tab_type,
23 p_debug_flag BOOLEAN,
24 p_commitfrequency INTEGER)
25 RETURN BOOLEAN;
26
27 END GMA_PURGE_COPY;