1 package pa_purge_icip as
2 /*$Header: PAICIPPS.pls 120.1 2005/08/19 16:34:23 mwasowic noship $*/
3
4
5
6 -- Start of comments
7 -- API name : PA_DraftInvDetails
8 -- Type : Public
9 -- Pre-reqs : None
10 -- Function : Main purge procedure for Intercompany billing tables.
11 -- Parameters :
12 -- l p_purge_batch_id -> Purge batch Id
13 -- p_project_id -> Project Id
14 -- p_purge_release -> The release during which it is
15 -- purged
16 -- p_archive_flag -> This flag will indicate if the
17 -- records need to be archived
18 -- before they are purged.
19 -- p_txn_to_date -> Date through which the transactions
20 -- need to be purged. This value will
21 -- be NULL if the purge batch is for
22 -- active projects.
23 -- p_commit_size -> The maximum number of records that
24 -- can be allowed to remain uncommited.
25 -- If the number of records processed
26 -- goes byond this number then the
27 -- process is commited.
28 -- End of comments
29
30
31 procedure PA_DraftInvDetails( p_purge_batch_id in NUMBER,
32 p_project_id in NUMBER,
33 p_purge_release in VARCHAR2,
34 p_txn_to_date in DATE,
35 p_archive_flag in VARCHAR2,
36 p_commit_size in NUMBER,
37 x_err_stack in OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
38 x_err_stage in OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
39 x_err_code in OUT NOCOPY NUMBER ); --File.Sql.39 bug 4440895
40
41
42 procedure PA_MC_DraftInvoiceDetails(
43 p_purge_batch_id IN NUMBER,
44 p_project_id IN NUMBER,
45 p_txn_to_date IN DATE,
46 p_purge_release IN VARCHAR2,
47 p_archive_flag IN VARCHAR2,
48 p_commit_size IN NUMBER,
49 x_err_code IN OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
50 x_err_stack IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
51 x_err_stage IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
52 x_MRC_NoOfRecordsIns OUT NOCOPY NUMBER ); --File.Sql.39 bug 4440895
53
54
55 END pa_purge_icip;