[Home] [Help]
PACKAGE BODY: APPS.FA_XLA_ACCOUNTING_MAIN_PKG
Source
1 PACKAGE BODY fa_xla_accounting_main_pkg AS
2 /* $Header: FAXLAXMB.pls 120.12 2009/10/29 12:45:35 bridgway 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 p_ledger_id => p_ledger_id);
51
52
53 -- BUG# 4439932
54 -- the following is for setting istatus on non-accountable events
55
56 fa_xla_extract_util_pkg.update_nonaccountable_events
57 (p_book_type_code => p_valuation_method,
58 p_process_category => p_process_category,
59 p_ledger_id => p_ledger_id);
60
61 END IF;
62
63 EXCEPTION
64 WHEN OTHERS THEN
65 IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
66 fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
67 fnd_message.set_token('ORACLE_ERR',SQLERRM);
68 FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
69 END IF;
70 raise;
71
72 END preaccounting;
73
74 --------------------------------------------------------------------------------
75 --
76 -- Workflow Subscription for main-processing - used to extract
77 -- all accounting for the events
78 --
79 --------------------------------------------------------------------------------
80
81
82 PROCEDURE extract
83 (p_application_id IN number,
84 p_accounting_mode IN varchar2) IS
85
86 l_procedure_name varchar2(80) := 'extract';
87
88 BEGIN
89
90 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
91
92 fnd_log.string(G_LEVEL_PROCEDURE,
93 G_MODULE_NAME||l_procedure_name||'.begin',
94 'Beginning of procedure');
95
96 END IF;
97
98
99 IF p_application_id = 140 THEN
100
101 if not fa_cache_pkg.fazprof then
102 null;
103 end if;
104
105 fa_xla_extract_util_pkg.extract(p_accounting_mode => p_accounting_mode);
106
107 END IF;
108
109 IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
110
111 fnd_log.string(G_LEVEL_PROCEDURE,
112 G_MODULE_NAME||l_procedure_name||'.end',
113 'End of procedure');
114
115 END IF;
116
117
118 EXCEPTION
119 WHEN OTHERS THEN
120 IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
121 fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
122 fnd_message.set_token('ORACLE_ERR',SQLERRM);
123 FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
124 END IF;
125 raise;
126
127 END extract;
128
129 --------------------------------------------------------------------------------
130
131 PROCEDURE postaccounting
132 (p_application_id IN number,
133 p_ledger_id IN number,
134 p_process_category IN varchar2,
135 p_end_date IN date,
136 p_accounting_mode IN varchar2,
137 p_valuation_method IN varchar2,
138 p_security_id_int_1 IN number,
139 p_security_id_int_2 IN number,
140 p_security_id_int_3 IN number,
141 p_security_id_char_1 IN varchar2,
142 p_security_id_char_2 IN varchar2,
143 p_security_id_char_3 IN varchar2,
144 p_report_request_id IN number) IS
145
146 l_procedure_name varchar2(80) := 'postaccounting';
147
148 BEGIN
149
150 IF p_application_id = 140 THEN
151
152 if not fa_cache_pkg.fazprof then
153 null;
154 end if;
155
156 fa_xla_extract_util_pkg.unlock_assets
157 (p_book_type_code => p_valuation_method,
158 p_ledger_id => p_ledger_id);
159
160 END IF;
161
162 EXCEPTION
163 WHEN OTHERS THEN
164 IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
165 fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
166 fnd_message.set_token('ORACLE_ERR',SQLERRM);
167 FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
168 END IF;
169 raise;
170
171
172 END postaccounting;
173
174 --------------------------------------------------------------------------------
175
176 PROCEDURE postprocessing
177 (p_application_id IN number,
178 p_accounting_mode IN varchar2) IS
179
180 BEGIN
181
182 NULL;
183
184 END postprocessing;
185
186 --------------------------------------------------------------------------------
187
188 END fa_xla_accounting_main_pkg;