1: PACKAGE BODY FII_CURR_CONV_MAINTAIN_PKG AS
2: /* $Header: FIICRCVB.pls 120.0.12000000.1 2007/04/13 05:46:43 arcdixit noship $ */
3:
4: G_PHASE VARCHAR2(120);
5: g_schema_name VARCHAR2(120);
38: -- FII_UTIL.initialize will get profile options FII_DEBUG_MODE
39: -- and BIS_DEBUG_LOG_DIRECTORY and set up the directory where
40: -- the log files and output files are written to
41: ----------------------------------------------------------------
42: FII_UTIL.initialize('FII_CURR_CONV_MAINTAIN_PKG.log',
43: 'FII_CURR_CONV_MAINTAIN_PKG.out', l_dir,
44: 'FII_CURR_CONV_MAINTAIN_PKG');
45:
46: g_phase := 'Check debug mode';
39: -- and BIS_DEBUG_LOG_DIRECTORY and set up the directory where
40: -- the log files and output files are written to
41: ----------------------------------------------------------------
42: FII_UTIL.initialize('FII_CURR_CONV_MAINTAIN_PKG.log',
43: 'FII_CURR_CONV_MAINTAIN_PKG.out', l_dir,
44: 'FII_CURR_CONV_MAINTAIN_PKG');
45:
46: g_phase := 'Check debug mode';
47:
40: -- the log files and output files are written to
41: ----------------------------------------------------------------
42: FII_UTIL.initialize('FII_CURR_CONV_MAINTAIN_PKG.log',
43: 'FII_CURR_CONV_MAINTAIN_PKG.out', l_dir,
44: 'FII_CURR_CONV_MAINTAIN_PKG');
45:
46: g_phase := 'Check debug mode';
47:
48: -- Determine if process will be run in debug mode
286: Initialize;
287:
288: IF (FIIDIM_Debug) THEN
289: FII_MESSAGE.Func_Ent(func_name =>
290: 'FII_CURR_CONV_MAINTAIN_PKG.Init_Load');
291: END IF;
292:
293: g_phase := 'Truncate table FII_CURR_CONV_RATES';
294:
417: FND_CONCURRENT.Af_Commit;
418:
419: IF (FIIDIM_Debug) THEN
420: FII_MESSAGE.Func_Succ(func_name =>
421: 'FII_CURR_CONV_MAINTAIN_PKG.Init_Load');
422: END IF;
423:
424: EXCEPTION
425:
424: EXCEPTION
425:
426: WHEN EX_fatal_err THEN
427: FII_UTIL.Write_Log ('Init_Load -> phase: '|| g_phase);
428: FII_UTIL.Write_Log ('FII_CURR_CONV_MAINTAIN_PKG.Init_Load: '||
429: 'User defined error');
430: -- Rollback
431: FND_CONCURRENT.Af_Rollback;
432: FII_MESSAGE.Func_Fail(func_name =>
429: 'User defined error');
430: -- Rollback
431: FND_CONCURRENT.Af_Rollback;
432: FII_MESSAGE.Func_Fail(func_name =>
433: 'FII_CURR_CONV_MAINTAIN_PKG.Init_Load');
434: retcode := sqlcode;
435: ret_val := FND_CONCURRENT.Set_Completion_Status
436: (status => 'ERROR', message => substr(sqlerrm,1,180));
437:
437:
438: WHEN OTHERS THEN
439: FII_UTIL.Write_Log ('Init_Load -> phase: '|| g_phase);
440: FII_UTIL.Write_Log (
441: 'Other error in FII_CURR_CONV_MAINTAIN_PKG.Init_Load: ' ||
442: substr(sqlerrm,1,180));
443:
444: -- Rollback
445: FND_CONCURRENT.Af_Rollback;
443:
444: -- Rollback
445: FND_CONCURRENT.Af_Rollback;
446: FII_MESSAGE.Func_Fail(func_name =>
447: 'FII_CURR_CONV_MAINTAIN_PKG.Init_Load');
448: retcode := sqlcode;
449: ret_val := FND_CONCURRENT.Set_Completion_Status
450: (status => 'ERROR', message => substr(sqlerrm,1,180));
451:
450: (status => 'ERROR', message => substr(sqlerrm,1,180));
451:
452: END Init_Load;
453:
454: END FII_CURR_CONV_MAINTAIN_PKG;