1 package pa_purge_validate as
2 /* $Header: PAXVALDS.pls 120.1 2005/08/19 17:22:23 mwasowic noship $ */
3 -- These flags are globals variables that can be used in all the
4 -- procedures to check which data is purged.
5 g_project_type_class_code varchar2(30) ;
6
7 g_purge_summary_flag varchar2(1) ;
8
9 g_purge_capital_flag varchar2(1) ;
10
11 g_purge_budgets_flag varchar2(1) ;
12
13 g_purge_actuals_flag varchar2(1) ;
14
15 g_txn_to_date date ;
16
17 g_active_flag varchar2(1) ;
18
19 g_creation_date date ;
20
21 g_created_by number ;
22
23 g_last_update_date date ;
24
25 g_last_updated_by number ;
26
27 g_last_update_login number ;
28
29 g_user number ;
30
31 g_request_id number ;
32
33 g_program_application_id number ;
34
35 g_program_id number ;
36
37 g_delete_errors VARCHAR2(1); /* Bug#2416385 Added for Phase - III Archive and Purge */
38
39 procedure BatchVal(errbuf IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
40 ret_code IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
41 p_purge_batch_id IN NUMBER) ;
42
43 procedure insert_errors ( p_purge_batch_id in NUMBER,
44 p_project_id in NUMBER,
45 p_error_type in VARCHAR2,
46 p_user in NUMBER,
47 X_err_stack in OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
48 X_err_stage in OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
49 X_err_code in OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
50 ) ;
51
52 end ;