1 PACKAGE BODY fa_xla_accounting_main_pkg AS
2 /* $Header: FAXLAXMB.pls 120.10.12010000.1 2008/07/28 13:19:52 appldev ship $ */
3
4 G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
5
6 G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7 G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8 G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9 G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10 G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11 G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12
13 G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_accounting_main_pkg.';
14
15
16 --------------------------------------------------------------------------------
17 --
18 -- Workflow Subscription for pre-processing - used to lock the
19 -- assets requiring it in FA...
20 --
21 --------------------------------------------------------------------------------
22
23 PROCEDURE preaccounting
24 (p_application_id IN number,
25 p_ledger_id IN number,
26 p_process_category IN varchar2,
27 p_end_date IN date,
28 p_accounting_mode IN varchar2,
29 p_valuation_method IN varchar2,
30 p_security_id_int_1 IN number,
31 p_security_id_int_2 IN number,
32 p_security_id_int_3 IN number,
33 p_security_id_char_1 IN varchar2,
34 p_security_id_char_2 IN varchar2,
35 p_security_id_char_3 IN varchar2,
36 p_report_request_id IN number) IS
37
38 l_procedure_name varchar2(80) := 'preaccounting';
39
40 BEGIN
41
42 IF p_application_id = 140 THEN
43
44 if not fa_cache_pkg.fazprof then
45 null;
46 end if;
47
48 fa_xla_extract_util_pkg.lock_assets
49 (p_book_type_code => p_valuation_method);
50
51
52 -- BUG# 4439932
53 -- the following is for setting istatus on non-accountable events
54
55 fa_xla_extract_util_pkg.update_nonaccountable_events
56 (p_book_type_code => p_valuation_method,
57 p_process_category => p_process_category);
58
59 END IF;
60
61 EXCEPTION
62 WHEN OTHERS THEN
63 IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
64 fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
65 fnd_message.set_token('ORACLE_ERR',SQLERRM);
66 FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
67 END IF;
68 raise;
69
70 END preaccounting;
71
72 --------------------------------------------------------------------------------
73 --
74 -- Workflow Subscription for main-processing - used to extract
75 -- all accounting for the events
76 --
77 --------------------------------------------------------------------------------
78
79
80 PROCEDURE extract
81 (p_application_id IN number,
82 p_accounting_mode IN varchar2) IS
83
84 l_procedure_name varchar2(80) := 'extract';
85
86 BEGIN
87
88 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
89
90 fnd_log.string(G_LEVEL_PROCEDURE,
91 G_MODULE_NAME||l_procedure_name||'.begin',
92 'Beginning of procedure');
93
94 END IF;
95
96
97 IF p_application_id = 140 THEN
98
99 if not fa_cache_pkg.fazprof then
100 null;
101 end if;
102
103 fa_xla_extract_util_pkg.extract(p_accounting_mode => p_accounting_mode);
104
105 END IF;
106
107 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
108
109 fnd_log.string(G_LEVEL_PROCEDURE,
110 G_MODULE_NAME||l_procedure_name||'.end',
111 'End of procedure');
112
113 END IF;
114
115
116 EXCEPTION
117 WHEN OTHERS THEN
118 IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
119 fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
120 fnd_message.set_token('ORACLE_ERR',SQLERRM);
121 FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
122 END IF;
123 raise;
124
125 END extract;
126
127 --------------------------------------------------------------------------------
128
129 PROCEDURE postaccounting
130 (p_application_id IN number,
131 p_ledger_id IN number,
132 p_process_category IN varchar2,
133 p_end_date IN date,
134 p_accounting_mode IN varchar2,
135 p_valuation_method IN varchar2,
136 p_security_id_int_1 IN number,
137 p_security_id_int_2 IN number,
138 p_security_id_int_3 IN number,
139 p_security_id_char_1 IN varchar2,
140 p_security_id_char_2 IN varchar2,
141 p_security_id_char_3 IN varchar2,
142 p_report_request_id IN number) IS
143
144 l_procedure_name varchar2(80) := 'postaccounting';
145
146 BEGIN
147
148 IF p_application_id = 140 THEN
149
150 if not fa_cache_pkg.fazprof then
151 null;
152 end if;
153
154 fa_xla_extract_util_pkg.unlock_assets
155 (p_book_type_code => p_valuation_method);
156
157 END IF;
158
159 EXCEPTION
160 WHEN OTHERS THEN
161 IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
162 fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
163 fnd_message.set_token('ORACLE_ERR',SQLERRM);
164 FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
165 END IF;
166 raise;
167
168
169 END postaccounting;
170
171 --------------------------------------------------------------------------------
172
173 PROCEDURE postprocessing
174 (p_application_id IN number,
175 p_accounting_mode IN varchar2) IS
176
177 BEGIN
178
179 NULL;
180
181 END postprocessing;
182
183 --------------------------------------------------------------------------------
184
185 END fa_xla_accounting_main_pkg;