[Home] [Help]
PACKAGE: APPS.FEM_DATA_LOADER_PKG
Source
1 PACKAGE Fem_Data_Loader_Pkg AS
2 /* $Header: FEMDATALEDGERLDR.pls 120.0 2006/05/23 07:30:11 kkulkarn noship $ */
3
4 --------------------------------------------------------------------------------
5 -- Declare all global variables --
6 --------------------------------------------------------------------------------
7
8 g_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
9 g_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
10 g_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
11 g_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
12 g_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
13 g_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
14
15 g_block CONSTANT VARCHAR2(30) := 'FEM_DATA_LOADER_PKG';
16
17 c_false CONSTANT VARCHAR2(1) := fnd_api.g_false;
18 c_true CONSTANT VARCHAR2(1) := fnd_api.g_true;
19 c_success CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_success;
20 c_error CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_error;
21 c_unexp CONSTANT VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
22 c_api_version CONSTANT NUMBER := 1.0;
23
24 c_data_ledger_loader CONSTANT VARCHAR2(20) := 'DATA_LEDGER_LOADER';
25 c_dim_loader CONSTANT VARCHAR2(10) := 'DIMENSIONS';
26 c_hier_loader CONSTANT VARCHAR2(15) := 'HIERARCHIES';
27
28 c_interval CONSTANT NUMBER := 3.0;
29 c_max_wait_time CONSTANT NUMBER := 1200.0;
30
31 c_not_dupe_text CONSTANT VARCHAR2(20) := 'DATA_NOT_FETCHED';
32 c_dupe_text CONSTANT VARCHAR2(20) := 'DATA_FETCHED';
33
34 g_approval_flag BOOLEAN;
35 g_loader_type VARCHAR2(30);
36 g_int_table_name VARCHAR2(30);
37
38 g_ledger_dim_id NUMBER;
39 g_cal_period_hier_attr NUMBER;
40 g_cal_period_dim_id NUMBER;
41 g_start_date_attr NUMBER;
42 g_end_date_attr NUMBER;
43 g_dataset_dim_id NUMBER;
44 g_dataset_bal_attr NUMBER;
45 g_production_attr NUMBER;
46 g_budget_dim_id NUMBER;
47
48 --g_start_date DATE;
49 --g_end_date DATE;
50
51 g_start_date VARCHAR2(35);
52 g_end_date VARCHAR2(35);
53
54 g_hier_object_def_id NUMBER;
55 g_hierarchy_exists BOOLEAN;
56 g_evaluate_parameters BOOLEAN;
57
58 --------------------------------------------------------------------------------
59 -- Declare all pl/sql collections --
60 --------------------------------------------------------------------------------
61
62
63 TYPE interface_data_rec IS RECORD
64 (ledger NUMBER,
65 dataset NUMBER,
66 budget_display_code VARCHAR2(30),
67 encumbrance_type_code VARCHAR2(30),
68 source_system NUMBER,
69 cal_period_number NUMBER,
70 cal_period_level NUMBER,
71 cal_period_end_date DATE,
72 table_name VARCHAR2(30),
73 table_row NUMBER
74 );
75
76 TYPE interface_data_tab IS TABLE OF interface_data_rec INDEX BY BINARY_INTEGER;
77
78 TYPE cal_period_rec IS RECORD
79 (ledger_id NUMBER,
80 cal_period_id NUMBER,
81 dim_grp_id NUMBER,
82 status VARCHAR2(10),
83 valid VARCHAR2(10)
84 );
85
86 TYPE cal_period_tab IS TABLE OF cal_period_rec INDEX BY BINARY_INTEGER;
87
88 TYPE master_rec IS RECORD
89 (ledger_id NUMBER,
90 dataset_code NUMBER,
91 cal_period_id NUMBER,
92 source_system_code NUMBER,
93 ledger_display_code VARCHAR2(150),
94 dataset_display_code VARCHAR2(150),
95 source_system_display_code VARCHAR2(150),
96 budget_id NUMBER,
97 budget_display_code VARCHAR2(150),
98 enc_type_id NUMBER,
99 enc_type_code VARCHAR2(150),
100 table_name VARCHAR2(30),
101 table_row NUMBER,
102 request_id NUMBER,
103 status VARCHAR2(1)
104 );
105
106 TYPE master_rec_tab IS TABLE OF master_rec INDEX BY BINARY_INTEGER;
107
108 TYPE number_table IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
109 TYPE char_table IS TABLE OF VARCHAR2(150) INDEX BY BINARY_INTEGER;
110 TYPE date_table IS TABLE OF DATE INDEX BY BINARY_INTEGER;
111 TYPE sql_stmt_table IS TABLE OF VARCHAR2(2000) INDEX BY BINARY_INTEGER;
112
113 --------------------------------------------------------------------------------
114 -- Declare all Public procedures/functions --
115 --------------------------------------------------------------------------------
116
117
118 PROCEDURE process_request(errbuf OUT NOCOPY VARCHAR2,
119 retcode OUT NOCOPY VARCHAR2,
120 p_obj_def_id IN NUMBER,
121 p_start_date IN VARCHAR2,
122 p_end_date IN VARCHAR2,
123 p_balance_type IN VARCHAR2);
124
125 PROCEDURE trace(p_trace_what IN VARCHAR2);
126
127
128 END Fem_Data_Loader_Pkg;