1 PACKAGE IGC_CBC_ARCHIVE_PURGE_PKG AUTHID CURRENT_USER AS
2 /* $Header: IGCBAPRS.pls 120.3.12000000.3 2007/10/13 09:44:01 dvjoshi ship $ */
3
4 /* ------------------------------------------------------------------------- */
5 /* */
6 /* Archive Purge API for CBC whenever there is a request to purge off the */
7 /* Periods that are closed for a fiscal year. */
8 /* Funds Reservation need to be performed. */
9 /* */
10 /* This routine returns SUCCESS or FAILURE. */
11 /* */
12 /* In case of failure, this routine will populate the global Message Stack */
13 /* using FND_MESSAGE. The calling routine will retrieve the message from */
14 /* the Stack */
15 /* */
16 /* External Packages which are being invoked include : */
17 /* */
18 /* FND_MSG_PUB.Check_Msg_Level */
19 /* FND_MSG_PUB.Add_Exc_Msg */
20 /* */
21 /* GL Tables which are being used include : */
22 /* */
23 /* GL_PERIOD_STATUSES */
24 /* */
25 /* IGC Tables which are being used include : */
26 /* */
27 /* IGC_CBC_MC_ARCHIVE_JE_LINES */
28 /* IGC_CBC_MC_ARCHIVE_JE_BATCHES */
29 /* IGC_CBC_ARCHIVE_JE_LINES */
30 /* IGC_CBC_ARCHIVE_JE_BATCHES */
31 /* IGC_CBC_ARCHIVE_HISTORY */
32 /* IGC_CBC_JE_LINES */
33 /* IGC_CBC_JE_BATCHES */
34 /* IGC_CBC_MC_JE_LINES */
35 /* IGC_CBC_MC_JE_BATCHES */
36 /* */
37 /* ------------------------------------------------------------------------- */
38
39 --
40 -- Main Procedure for Archiving and Purging the CBC tables
41 --
42 -- Parameters :
43 --
44 -- errbuf ==> Error Buffer for Concurrent Request.
45 -- retcode ==> Return Code for the Concurrent Request.
46 -- p_mode ==> P = Purge A = Archive B = Both
47 -- p_fiscal_year ==> Fiscal year data that is to be archievd/purged.
48 -- p_commit_work ==> Boolean indicating if this process should commit work or not
49 --
50
51 END IGC_CBC_ARCHIVE_PURGE_PKG;
52