[Home] [Help]
PACKAGE BODY: APPS.FV_SETUP_PKG
Source
1 PACKAGE BODY FV_SETUP_PKG AS
2 -- $Header: FVFCATTB.pls 120.9 2003/12/17 21:20:30 ksriniva ship $
3 g_module_name VARCHAR2(100) := 'fv.plsql.FV_SETUP_PKG.';
4 -------------------------------------------------------------------
5 l_config_file VARCHAR2(100) := '@FV:patch/115/import/';
6 l_data_file VARCHAR2(100) := '@FV:patch/115/import/US/';
7 l_language VARCHAR2(20) ;
8 l_req_id NUMBER ;
9
10 --------------------------------------------------------------------
11 Procedure FACTS_ATTRIBUTES (errbuf OUT NOCOPY varchar2,
12 retcode OUT NOCOPY varchar2,
13 p_yes_no in varchar2) is
14 l_module_name VARCHAR2(200) := g_module_name || 'FACTS_ATTRIBUTES';
15 --v_count number;
16 v_message Varchar2(500);
17 --v_errbuf Varchar2(255);
18 --v_retcode Varchar2(255);
19 --v_attr_inserted number :=0;
20 --v_codes_inserted number :=0;
21 --v_accts_inserted number :=0;
22
23 begin
24
25 l_req_id := fnd_request.submit_request
26 (program => 'FNDLOAD',
27 application => 'FND',
28 description => NULL,
29 start_time => NULL,
30 sub_request => FALSE,
31 argument1 => 'UPLOAD',
32 argument2 => l_config_file||'fvfcattb.lct',
33 argument3 => l_data_file||'fvfcattb.ldt');
34
35 if l_req_id = 0 then
36
37 errbuf := fnd_message.get ;
38 retcode := -1 ;
39 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message1',errbuf);
40 raise fnd_api.g_exc_error ;
41 rollback;
42 return;
43 ELSE
44 l_req_id := fnd_request.submit_request
45 (program => 'FNDLOAD',
46 application => 'FND',
47 description => NULL,
48 start_time => NULL,
49 sub_request => FALSE,
50 argument1 => 'UPLOAD',
51 argument2 => l_config_file||'fvfcrt7.lct',
52 argument3 => l_data_file||'fvfcrt7.ldt');
53
54 if l_req_id = 0 then
55 errbuf := fnd_message.get ;
56 retcode := -1 ;
57 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message2',errbuf);
58 raise fnd_api.g_exc_error ;
59 rollback;
60 return;
61 END IF;
62
63 COMMIT;
64
65 IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
66 v_message :='FACTS attributes table setup program successfully Requested';
67 FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||'.message3',v_message);
68 END IF;
69
70 if p_yes_no = 'N' then
71 retcode := 1;
72 errbuf := 'FACTS II requires US SGL compliance if the natural account segment has been expanded to accomodate Agency
73 specific requirements, designate a parent account that is 4-digit US SGL Account';
74 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message4',errbuf);
75 end if;
76 END IF;
77
78 Exception
79 When Others Then
80 errbuf := substr(SQLERRM,1,225);
81 retcode := -1;
82 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',errbuf);
83 END;
84 ----------------------------------------------------------------------------
85
86 Procedure FUNDS_AVAILABLE (errbuf OUT NOCOPY varchar2,
87 retcode OUT NOCOPY varchar2) is
88 l_module_name VARCHAR2(200) := g_module_name || 'FUNDS_AVAILABLE';
89 begin
90 l_req_id := fnd_request.submit_request
91 (program => 'FNDLOAD',
92 application => 'FND',
93 description => NULL,
94 start_time => NULL,
95 sub_request => FALSE,
96 argument1 => 'UPLOAD',
97 argument2 => l_config_file||'fvfundav.lct',
98 argument3 => l_data_file||'fvfundav.ldt');
99
100 if l_req_id = 0 then
101 errbuf := fnd_message.get ;
102 retcode := -1 ;
103 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message1',errbuf);
104 raise fnd_api.g_exc_error ;
105 rollback;
106 return;
107 END IF;
108 commit;
109 IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
110 FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||'.message2',
111 'Fund Available table seed data process sucessfully requested');
112 END IF;
113 EXCEPTION
114 WHEN OTHERS THEN
115 errbuf := SQLERRM;
116 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',errbuf);
117 RAISE;
118 End;
119 ------------------------------------------------------------------------------
120 Procedure USSGL_LOAD (errbuf OUT NOCOPY varchar2,
121 retcode OUT NOCOPY varchar2) is
122 l_module_name VARCHAR2(200) := g_module_name || 'USSGL_LOAD';
123 begin
124 l_req_id := fnd_request.submit_request
125 (program => 'FNDLOAD',
126 application => 'FND',
127 description => NULL,
128 start_time => NULL,
129 sub_request => FALSE,
130 argument1 => 'UPLOAD',
131 argument2 => l_config_file||'fvfcusgl.lct',
132 argument3 => l_data_file||'fvfcusgl.ldt');
133
134 if l_req_id = 0 then
135 errbuf := fnd_message.get ;
136 retcode := -1 ;
137 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message1',errbuf);
138 raise fnd_api.g_exc_error ;
139 rollback;
140 return;
141 END IF;
142 commit;
143 IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
144 FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||'.message2',
145 'USSGL table setup seed data process sucessfully requested');
146 END IF;
147 EXCEPTION
148 WHEN OTHERS THEN
149 errbuf := SQLERRM;
150 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',errbuf);
151 RAISE;
152
153 End;
154 ------------------------------------------------------------------------------
155
156 Procedure LOAD_FUND_TRANSMISSION_FORMATS (errbuf OUT NOCOPY varchar2,
157 retcode OUT NOCOPY varchar2) is
158 l_module_name VARCHAR2(200) := g_module_name || 'LOAD_FUND_TRANSMISSION_FORMATS';
159 begin
160 l_req_id := fnd_request.submit_request
161 (program => 'FNDLOAD',
162 application => 'FND',
163 description => NULL,
164 start_time => NULL,
165 sub_request => FALSE,
166 argument1 => 'UPLOAD',
167 argument2 => l_config_file||'fvxftran.lct',
168 argument3 => l_data_file||'fvxftran.ldt');
169
170 if l_req_id = 0 then
171 errbuf := fnd_message.get ;
172 retcode := -1 ;
173 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message1',errbuf);
174 raise fnd_api.g_exc_error ;
175 rollback;
176 return;
177 END IF;
178 commit;
179 IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
180 FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||'.message4',
181 'Treasury transmission format seed data process successfully requested');
182 END IF;
183
184 EXCEPTION
185 WHEN OTHERS THEN
186 errbuf := SQLERRM;
187 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',errbuf);
188 RAISE;
189 End;
190 ------------------------------------------------------------------------------
191 Procedure CFS_TABLE_SETUP (errbuf OUT NOCOPY varchar2,
192 retcode OUT NOCOPY varchar2) is
193 l_module_name VARCHAR2(200) := g_module_name || 'CFS_TABLE_SETUP';
194 rphase1 VARCHAR2(30);
195 rstatus1 VARCHAR2(30);
196 dphase1 VARCHAR2(30);
197 dstatus1 VARCHAR2(30);
198 message1 VARCHAR2(240);
199 call_status1 BOOLEAN;
200
201 begin
202
203 begin
204 l_req_id := fnd_request.submit_request
205 (program => 'FNDLOAD',
206 application => 'FND',
207 description => NULL,
208 start_time => NULL,
209 sub_request => FALSE,
210 argument1 => 'UPLOAD',
211 argument2 => l_config_file||'fvcfsrds.lct',
212 argument3 => l_data_file||'fvcfsrd1.ldt');
213
214 if l_req_id = 0 then
215 errbuf := fnd_message.get ;
216 retcode := -1 ;
217 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message1',errbuf);
218 raise fnd_api.g_exc_error ;
219 rollback;
220 return;
221 END IF;
222 commit;
223 end ;
224 LOOP
225 call_status1 := FND_CONCURRENT.GET_REQUEST_STATUS(l_req_id,NULL,NULL,rphase1,rstatus1,dphase1,dstatus1,message1);
226 EXIT WHEN ((call_status1 and dphase1 = 'COMPLETE') or NOT(call_status1));
227 DBMS_LOCK.SLEEP(5);
228 END LOOP;
229 begin
230 l_req_id := fnd_request.submit_request
231 (program => 'FNDLOAD',
232 application => 'FND',
233 description => NULL,
234 start_time => NULL,
235 sub_request => FALSE,
236 argument1 => 'UPLOAD',
237 argument2 => l_config_file||'fvcfsrds.lct',
238 argument3 => l_data_file||'fvcfsrd2.ldt');
239
240 if l_req_id = 0 then
241 errbuf := fnd_message.get ;
242 retcode := -1 ;
243 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message2',errbuf);
244 raise fnd_api.g_exc_error ;
245 rollback;
246 return;
247 END IF;
248 commit;
249 end ;
250 begin
251 l_req_id := fnd_request.submit_request
252 (program => 'FNDLOAD',
253 application => 'FND',
254 description => NULL,
255 start_time => NULL,
256 sub_request => FALSE,
257 argument1 => 'UPLOAD',
258 argument2 => l_config_file||'fvcfsrds.lct',
259 argument3 => l_data_file||'fvcfsrd3.ldt');
260
261 if l_req_id = 0 then
262 errbuf := fnd_message.get ;
263 retcode := -1 ;
264 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message3',errbuf);
265 raise fnd_api.g_exc_error ;
266 rollback;
267 return;
268 END IF;
269 commit;
270 end ;
271 IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
272 FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||'.message4','Financial statements table seed data process sucessfully requested');
273 END IF;
274
275 EXCEPTION
276 WHEN OTHERS THEN
277 errbuf := SQLERRM;
278 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',errbuf);
279 RAISE;
280 End;
281 ------------------------------------------------------------------------------
282
283 Procedure LOAD_SF133_SETUP_DATA (errbuf OUT NOCOPY varchar2,
284 retcode OUT NOCOPY varchar2) is
285 l_module_name VARCHAR2(200) := g_module_name || 'LOAD_SF133_SETUP_DATA';
286 begin
287 l_req_id := fnd_request.submit_request
288 (program => 'FNDLOAD',
289 application => 'FND',
290 description => NULL,
291 start_time => NULL,
292 sub_request => FALSE,
293 argument1 => 'UPLOAD',
294 argument2 => l_config_file||'fvsf133.lct',
295 argument3 => l_data_file||'fvsf133.ldt');
296
297 if l_req_id = 0 then
298 errbuf := fnd_message.get ;
299 retcode := -1 ;
300 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message1',errbuf);
301 raise fnd_api.g_exc_error ;
302 rollback;
303 return;
304 END IF;
305 commit;
306 IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
307 FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||'.message1', 'SF133 seed data process successfully requested');
308 END IF;
309
310 EXCEPTION
311 WHEN OTHERS THEN
312 errbuf := SQLERRM;
313 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',errbuf);
314 RAISE;
315 End;
316 ------------------------------------------------------------------------------
317 PROCEDURE load_rx_reports (errbuf OUT NOCOPY varchar2,
318 retcode OUT NOCOPY varchar2) IS
319 l_module_name VARCHAR2(200) := g_module_name || 'load_rx_reports';
320
321 BEGIN
322 l_req_id := fnd_request.submit_request
323 (program => 'FNDLOAD',
324 application => 'FND',
325 description => NULL,
326 start_time => NULL,
327 sub_request => FALSE,
328 argument1 => 'UPLOAD',
329 argument2 => l_config_file||'fvrxi.lct',
330 argument3 => l_data_file||'fvrxi.ldt');
331
332 IF l_req_id = 0 THEN
333 errbuf := fnd_message.get ;
334 retcode := -1 ;
335 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.message1',errbuf);
336 raise fnd_api.g_exc_error ;
337 ROLLBACK;
338 RETURN;
339 END IF;
340 COMMIT;
341 IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
342 FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name||'.message2', 'RXi reports upload process successfully requested');
343 END IF;
344
345 -- Updating the RX report responsiblity_id
346 -- This is required because Rxi seed populates responsiblity id
347 -- stored in seed115 for Federal Administrator, which is not correct
348 UPDATE fa_rx_reports
349 SET responsibility_id = (SELECT responsibility_id
350 FROM FND_responsibility_tl
351 WHERE responsibility_name = 'Federal Administrator'
352 AND language= 'US')
353 WHERE report_id IN (395,397,399,415);
354
355 EXCEPTION
356 WHEN OTHERS THEN
357 errbuf := SQLERRM;
358 FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',errbuf);
359 RAISE;
360 END;
361 ----------------------------------------------------------------------------
362 END fv_setup_pkg;