1 PACKAGE JE_GR_TRIAL_BALANCE AUTHID CURRENT_USER as
2 /* $Header: jegrftbs.pls 115.2 2002/11/12 12:03:36 arimai ship $ */
3
4 /*------------------------------------------------------------------+
5 | Public Procedures/Functions |
6 +------------------------------------------------------------------*/
7
8 FUNCTION init_account_hierarchy (p_request_id IN NUMBER,
9 p_delimiter IN VARCHAR2,
10 p_retcode IN OUT NOCOPY NUMBER,
11 p_errmsg IN OUT NOCOPY VARCHAR2)
12 RETURN NUMBER;
13
14
15 FUNCTION get_level_value (p_level IN NUMBER,
16 p_account IN VARCHAR2)
17 RETURN VARCHAR2;
18
19 pragma restrict_references (get_level_value, WNDS, WNPS);
20
21 /*------------------------------------------------------------------+
22 | Global Variables |
23 +------------------------------------------------------------------*/
24
25 /* The following record type will store each account's parents in L1 through L9.
26 If for whatever reason an account doesn't have a parent, element "levels"
27 will be 0 .*/
28
29 TYPE g_account_rec_type is RECORD (
30 account VARCHAR2(150),
31 delimit_account VARCHAR2(150),
32 levels NUMBER,
33 L1 VARCHAR2(150),
34 L2 VARCHAR2(150),
35 L3 VARCHAR2(150),
36 L4 VARCHAR2(150),
37 L5 VARCHAR2(150),
38 L6 VARCHAR2(150),
39 L7 VARCHAR2(150),
40 L8 VARCHAR2(150),
41 L9 VARCHAR2(150));
42 TYPE g_account_tab_type is TABLE of g_account_rec_type
43 index by BINARY_INTEGER;
44
45 g_account_tab g_account_tab_type;
46 g_idx NUMBER := 0;
47 g_request_id NUMBER := 0;
48
49 END JE_GR_TRIAL_BALANCE;