1 PACKAGE PA_ASSET_ALLOCATION_PVT AS
2 /* $Header: PACASALS.pls 120.1.12010000.2 2008/08/06 11:35:25 atshukla ship $ */
3
4
5 --Do not alter the structure of this record or table type, as it
6 --must match the structure sent to the PA_CLIENT_EXTN_ASSET_ALLOC.
7 --ASSET_ALLOC_BASIS procedure
8 TYPE asset_basis_type IS RECORD (
9 project_asset_id NUMBER NOT NULL := 0,
10 asset_basis_amount NUMBER,
11 total_basis_amount NUMBER);
12
13 TYPE asset_basis_table_type IS TABLE OF asset_basis_type
14 INDEX BY BINARY_INTEGER;
15
16
17 --These Globals are used for cache purposes, so that the basis
18 --table is not needlessly reconstructed for identical lines processed
19 --consecutively.
20 G_project_id NUMBER := -99; /*bug4991824*/
21 G_task_id NUMBER := -99;
22 G_capital_event_id NUMBER := -99;
23 G_asset_category_id NUMBER := -99; -- Added for bug 7175027
24 G_line_type VARCHAR2(30) := 'ZZZ';
25 G_asset_allocation_method VARCHAR2(30) := 'ZZZ';
26 G_asset_basis_table asset_basis_table_type;
27
28
29 PROCEDURE ALLOCATE_UNASSIGNED
30 (p_project_asset_line_id IN NUMBER,
31 p_line_type IN VARCHAR2,
32 p_capital_event_id IN NUMBER,
33 p_project_id IN NUMBER,
34 p_task_id IN NUMBER,
35 p_asset_allocation_method IN VARCHAR2,
36 p_asset_category_id IN NUMBER, /* Added for bug#3211946 */
37 x_asset_or_project_err OUT NOCOPY VARCHAR2,
38 x_error_code OUT NOCOPY VARCHAR2,
39 x_err_asset_id OUT NOCOPY NUMBER,
40 x_return_status OUT NOCOPY VARCHAR2,
41 x_msg_count OUT NOCOPY NUMBER,
42 x_msg_data OUT NOCOPY VARCHAR2);
43
44
45 END PA_ASSET_ALLOCATION_PVT;