1 package pa_purge_validate_icip as
2 /* $Header: PAICIPVS.pls 120.1 2005/08/19 16:34:30 mwasowic noship $ */
3
4 g_insert_errors_no_duplicate VARCHAR2(1); /* Bug#2431705 */
5
6 -- FUNCTION
7 -- Is_InterPrj_Provider_Project
8 -- PURPOSE
9 -- This function returns 'Y'
10 -- if the given project is a provider project for inter project billing.
11
12 FUNCTION Is_InterPrj_Provider_Project ( p_project_id in NUMBER )
13 Return VARCHAR2;
14
15 pragma RESTRICT_REFERENCES (Is_InterPrj_Provider_Project, WNDS, WNPS);
16
17
18 -- FUNCTION
19 -- Is_InterPrj_Receiver_Project
20 -- PURPOSE
21 -- This function returns 'Y'
22 -- if the given project is a receiver project for inter project billing.
23
24 FUNCTION Is_InterPrj_Receiver_Project ( p_project_id in NUMBER )
25 Return VARCHAR2;
26
27 pragma RESTRICT_REFERENCES (Is_InterPrj_Receiver_Project, WNDS, WNPS);
28
29
30 procedure Validate_IC ( p_project_id in NUMBER,
31 p_txn_to_date in DATE,
32 p_active_flag in VARCHAR2,
33 x_err_code in OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
34 x_err_stack in OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
35 x_err_stage in OUT NOCOPY VARCHAR2 ) ; --File.Sql.39 bug 4440895
36
37
38 procedure Validate_IP_Prvdr ( p_project_id in NUMBER,
39 p_txn_to_date in DATE,
40 p_active_flag in VARCHAR2,
41 x_err_code in OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
42 x_err_stack in OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
43 x_err_stage in OUT NOCOPY VARCHAR2 ) ; --File.Sql.39 bug 4440895
44
45
46 procedure Validate_IP_Rcvr ( p_project_id in NUMBER,
47 x_err_code in OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
48 x_err_stack in OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
49 x_err_stage in OUT NOCOPY VARCHAR2 ) ; --File.Sql.39 bug 4440895
50
51
52 procedure Validate_IC_IP ( p_project_id in NUMBER,
53 p_txn_to_date in DATE,
54 p_active_flag in VARCHAR2,
55 x_err_code in OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
56 x_err_stack in OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
57 x_err_stage in OUT NOCOPY VARCHAR2 ) ; --File.Sql.39 bug 4440895
58
59 END ;