[Home] [Help]
PACKAGE BODY: APPS.FV_SLA_PROCESSING_PKG
Source
1 PACKAGE BODY FV_SLA_PROCESSING_PKG AS
2 --$Header: FVXLAACB.pls 120.76 2011/05/13 06:37:59 yanasing ship $
3 --==========================================================================
4 ----Logging Declarations
5 --==========================================================================
6 C_STATE_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
7 C_PROC_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
8 C_EVENT_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
9 C_EXCEP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
10 C_ERROR_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
11 C_UNEXP_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
12 g_log_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13 g_path_name CONSTANT VARCHAR2(40) := 'fv.plsql.fvxlaacb.fv_sla_processing_pkg';
14 --
15 -- Linefeed character
16 --
17 CRLF CONSTANT VARCHAR2(1) := FND_GLOBAL.newline;
18
19
20 PROCEDURE trace
21 (
22 p_level IN NUMBER,
23 p_procedure_name IN VARCHAR2,
24 p_debug_info IN VARCHAR2
25 )
26 IS
27 BEGIN
28 IF (p_level >= g_log_level ) THEN
29 FND_LOG.STRING(p_level, p_procedure_name, p_debug_info);
30 END IF;
31
32 END trace;
33
34 PROCEDURE init
35 IS
36 l_procedure_name VARCHAR2(100) :='.init';
37 BEGIN
38 trace(C_STATE_LEVEL, l_procedure_name, 'Package Information');
39 trace(C_STATE_LEVEL, l_procedure_name, '$Header: FVXLAACB.pls 120.76 2011/05/13 06:37:59 yanasing ship $');
40 END;
41
42
43 PROCEDURE extract
44 (
45 p_application_id IN NUMBER,
46 p_accounting_mode IN VARCHAR2
47 )
48 IS
49 l_debug_info VARCHAR2(240);
50 l_procedure_name VARCHAR2(100) :='.EXTRACT';
51 BEGIN
52
53 l_procedure_name := g_path_name || l_procedure_name;
54 -------------------------------------------------------------------------
55 l_debug_info := 'Begin of procedure '||l_procedure_name;
56 trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
57 -------------------------------------------------------------------------
58 -------------------------------------------------------------------------
59
60
61 IF (p_application_id = 201) THEN
62 fv_sla_po_processing_pkg.extract(p_application_id, p_accounting_mode);
63 ELSIF (p_application_id = 707) THEN
64 fv_sla_cst_processing_pkg.extract(p_application_id, p_accounting_mode);
65 ELSIF (p_application_id = 200) THEN
66 fv_sla_ap_processing_pkg.extract(p_application_id, p_accounting_mode);
67 ELSIF (p_application_id = 222) THEN
68 fv_sla_ar_processing_pkg.extract(p_application_id, p_accounting_mode);
69 ELSIF (p_application_id = 8901) THEN
70 fv_sla_fv_processing_pkg.extract(p_application_id, p_accounting_mode);
71 ELSE
72 RETURN;
73 END IF;
74
75 -------------------------------------------------------------------------
76 l_debug_info := 'End of procedure '||l_procedure_name;
77 trace(C_PROC_LEVEL, l_procedure_name, l_debug_info);
78 -------------------------------------------------------------------------
79
80 EXCEPTION
81 WHEN OTHERS THEN
82 l_debug_info := 'Error in Federal SLA Processing ' || SQLERRM;
83 trace(C_STATE_LEVEL, l_procedure_name, l_debug_info);
84 FND_MESSAGE.SET_NAME('FND', 'FND_GENERIC_MESSAGE');
85 FND_MESSAGE.SET_TOKEN('MESSAGE' ,
86 'Procedure :fv_sla_processing_pkg.extract'||
87 CRLF||
88 'Error :'||SQLERRM);
89 FND_MSG_PUB.ADD;
90 APP_EXCEPTION.RAISE_EXCEPTION;
91 END extract;
92
93 PROCEDURE preaccounting
94 (
95 p_application_id IN NUMBER,
96 p_ledger_id IN INTEGER,
97 p_process_category IN VARCHAR2,
98 p_end_date IN DATE,
99 p_accounting_mode IN VARCHAR2,
100 p_valuation_method IN VARCHAR2,
101 p_security_id_int_1 IN INTEGER,
102 p_security_id_int_2 IN INTEGER,
103 p_security_id_int_3 IN INTEGER,
104 p_security_id_char_1 IN VARCHAR2,
105 p_security_id_char_2 IN VARCHAR2,
106 p_security_id_char_3 IN VARCHAR2,
107 p_report_request_id IN INTEGER
108 ) IS
109
110 l_log_module VARCHAR2(240);
111 BEGIN
112 IF (p_application_id = 201) THEN
113 fv_sla_po_processing_pkg.preaccounting
114 (
115 p_application_id,
116 p_ledger_id,
117 p_process_category,
118 p_end_date,
119 p_accounting_mode,
120 p_valuation_method,
121 p_security_id_int_1,
122 p_security_id_int_2,
123 p_security_id_int_3,
124 p_security_id_char_1,
125 p_security_id_char_2,
126 p_security_id_char_3,
127 p_report_request_id
128 );
129 ELSIF (p_application_id = 707) THEN
130 fv_sla_cst_processing_pkg.preaccounting
131 (
132 p_application_id,
133 p_ledger_id,
134 p_process_category,
135 p_end_date,
136 p_accounting_mode,
137 p_valuation_method,
138 p_security_id_int_1,
139 p_security_id_int_2,
140 p_security_id_int_3,
141 p_security_id_char_1,
142 p_security_id_char_2,
143 p_security_id_char_3,
144 p_report_request_id
145 );
146 ELSIF (p_application_id = 200) THEN
147 fv_sla_ap_processing_pkg.preaccounting
148 (
149 p_application_id,
150 p_ledger_id,
151 p_process_category,
152 p_end_date,
153 p_accounting_mode,
154 p_valuation_method,
155 p_security_id_int_1,
156 p_security_id_int_2,
157 p_security_id_int_3,
158 p_security_id_char_1,
159 p_security_id_char_2,
160 p_security_id_char_3,
161 p_report_request_id
162 );
163 ELSIF (p_application_id = 222) THEN
164 fv_sla_ar_processing_pkg.preaccounting
165 (
166 p_application_id,
167 p_ledger_id,
168 p_process_category,
169 p_end_date,
170 p_accounting_mode,
171 p_valuation_method,
172 p_security_id_int_1,
173 p_security_id_int_2,
174 p_security_id_int_3,
175 p_security_id_char_1,
176 p_security_id_char_2,
177 p_security_id_char_3,
178 p_report_request_id
179 );
180 ELSE
181 RETURN;
182 END IF;
183 END;
184
185 PROCEDURE postprocessing
186 (
187 p_application_id IN NUMBER,
188 p_accounting_mode IN VARCHAR2
189 )
190 IS
191 l_log_module VARCHAR2(240);
192 BEGIN
193 IF (p_application_id = 201) THEN
194 fv_sla_po_processing_pkg.postprocessing(p_application_id, p_accounting_mode);
195 ELSIF (p_application_id = 707) THEN
196 fv_sla_cst_processing_pkg.postprocessing(p_application_id, p_accounting_mode);
197 ELSIF (p_application_id = 200) THEN
198 fv_sla_ap_processing_pkg.postprocessing(p_application_id, p_accounting_mode);
199 ELSIF (p_application_id = 222) THEN
200 fv_sla_ar_processing_pkg.postprocessing(p_application_id, p_accounting_mode);
201 ELSE
202 RETURN;
203 END IF;
204 END;
205
206
207 PROCEDURE postaccounting
208 (
209 p_application_id IN NUMBER,
210 p_ledger_id IN INTEGER,
211 p_process_category IN VARCHAR2,
212 p_end_date IN DATE,
213 p_accounting_mode IN VARCHAR2,
214 p_valuation_method IN VARCHAR2,
215 p_security_id_int_1 IN INTEGER,
216 p_security_id_int_2 IN INTEGER,
217 p_security_id_int_3 IN INTEGER,
218 p_security_id_char_1 IN VARCHAR2,
219 p_security_id_char_2 IN VARCHAR2,
220 p_security_id_char_3 IN VARCHAR2,
221 p_report_request_id IN INTEGER
222 )
223 IS
224 l_log_module VARCHAR2(240);
225 BEGIN
226 IF (p_application_id = 201) THEN
227 fv_sla_po_processing_pkg.postaccounting
228 (
229 p_application_id,
230 p_ledger_id,
231 p_process_category,
232 p_end_date,
233 p_accounting_mode,
234 p_valuation_method,
235 p_security_id_int_1,
236 p_security_id_int_2,
237 p_security_id_int_3,
238 p_security_id_char_1,
239 p_security_id_char_2,
240 p_security_id_char_3,
241 p_report_request_id
242 );
243 ELSIF (p_application_id = 707) THEN
244 fv_sla_cst_processing_pkg.postaccounting
245 (
246 p_application_id,
247 p_ledger_id,
248 p_process_category,
249 p_end_date,
250 p_accounting_mode,
251 p_valuation_method,
252 p_security_id_int_1,
253 p_security_id_int_2,
254 p_security_id_int_3,
255 p_security_id_char_1,
256 p_security_id_char_2,
257 p_security_id_char_3,
258 p_report_request_id
259 );
260 ELSIF (p_application_id = 200) THEN
261 fv_sla_ap_processing_pkg.postaccounting
262 (
263 p_application_id,
264 p_ledger_id,
265 p_process_category,
266 p_end_date,
267 p_accounting_mode,
268 p_valuation_method,
269 p_security_id_int_1,
270 p_security_id_int_2,
271 p_security_id_int_3,
272 p_security_id_char_1,
273 p_security_id_char_2,
274 p_security_id_char_3,
275 p_report_request_id
276 );
277 ELSIF (p_application_id = 222) THEN
278 fv_sla_ar_processing_pkg.postaccounting
279 (
280 p_application_id,
281 p_ledger_id,
282 p_process_category,
283 p_end_date,
284 p_accounting_mode,
285 p_valuation_method,
286 p_security_id_int_1,
287 p_security_id_int_2,
288 p_security_id_int_3,
289 p_security_id_char_1,
290 p_security_id_char_2,
291 p_security_id_char_3,
292 p_report_request_id
293 );
294 ELSE
295 RETURN;
296 END IF;
297 END;
298 BEGIN
299 init;
300 END fv_sla_processing_pkg;