104: EXCEPTION
105: WHEN invalid_bal_segment THEN
106: gbl_error_code := -1 ;
107: gbl_error_buf := 'Error while fetching balancing segment.';
108: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module,gbl_error_buf);
109: WHEN invalid_acc_segment THEN
110: gbl_error_code := -1 ;
111: gbl_error_buf := 'Error while fetching accounting segment.';
112: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module,gbl_error_buf);
108: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module,gbl_error_buf);
109: WHEN invalid_acc_segment THEN
110: gbl_error_code := -1 ;
111: gbl_error_buf := 'Error while fetching accounting segment.';
112: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module,gbl_error_buf);
113: WHEN NO_DATA_FOUND THEN
114: gbl_error_code := -1 ;
115: gbl_error_buf := l_module||' - No data found when'||l_temp_mesg;
116: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module,gbl_error_buf);
112: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module,gbl_error_buf);
113: WHEN NO_DATA_FOUND THEN
114: gbl_error_code := -1 ;
115: gbl_error_buf := l_module||' - No data found when'||l_temp_mesg;
116: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module,gbl_error_buf);
117: WHEN OTHERS THEN
118: gbl_error_code := -1 ;
119: gbl_error_buf := l_module||' - When others error when'||
120: l_temp_mesg||SQLERRM;
117: WHEN OTHERS THEN
118: gbl_error_code := -1 ;
119: gbl_error_buf := l_module||' - When others error when'||
120: l_temp_mesg||SQLERRM;
121: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module,gbl_error_buf);
122:
123: END get_segment_names;
124: --------------------------------------------------------------------------------
125: -- PROCEDURE CLEANUP_PROCESS
139: EXCEPTION
140: WHEN OTHERS THEN
141: gbl_error_code := -1 ;
142: gbl_error_buf := l_module||' - When others exception - '||SQLERRM;
143: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module,gbl_error_buf);
144: END;
145: -------------------------------------------------------------------------------
146: FUNCTION BEFOREREPORT
147: RETURN BOOLEAN IS
226: EXCEPTION
227: WHEN NO_DATA_FOUND THEN
228: gbl_error_code := -1;
229: gbl_error_buf := l_module||' No data found getting period num/year.';
230: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module,gbl_error_buf);
231:
232: WHEN OTHERS THEN
233: gbl_error_code := -1;
234: gbl_error_buf := l_module||' When others error getting period num/year.';
231:
232: WHEN OTHERS THEN
233: gbl_error_code := -1;
234: gbl_error_buf := l_module||' When others error getting period num/year.';
235: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module,gbl_error_buf);
236: END;
237:
238: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module,'Period Num - '||gbl_period_num);
234: gbl_error_buf := l_module||' When others error getting period num/year.';
235: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module,gbl_error_buf);
236: END;
237:
238: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module,'Period Num - '||gbl_period_num);
240: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module,'Period Year - '||gbl_period_year);
241: END IF;
242:
235: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module,gbl_error_buf);
236: END;
237:
238: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module,'Period Num - '||gbl_period_num);
240: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module,'Period Year - '||gbl_period_year);
241: END IF;
242:
243: -- Purge Temp tables
236: END;
237:
238: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
239: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module,'Period Num - '||gbl_period_num);
240: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module,'Period Year - '||gbl_period_year);
241: END IF;
242:
243: -- Purge Temp tables
244: CLEANUP_PROCESS;
281: WHEN OTHERS THEN
282: -- p_retcode := '-1' ;
283: -- p_errbuf := SQLERRM ||
284: -- ' -- Error in Trial_Balance_Main';
285: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module||'.final_exception',
286: SQLERRM ||' -- Error in Trial_Balance_Main');
287: END TRIAL_BALANCE_MAIN;
288: --------------------------------------------------------------------------------
289: -- PROCEDURE ROLLUP_PROCESS
403: ROLLBACK;
404: gbl_error_code := -1;
405: gbl_error_buf := SQLERRM ||
406: ' -- Error in Rollup_Process';
407: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module,gbl_error_buf);
408:
409: WHEN OTHERS THEN
410: ROLLBACK;
411: gbl_error_code := -1 ;
410: ROLLBACK;
411: gbl_error_code := -1 ;
412: gbl_error_buf := SQLERRM ||
413: ' -- Error in Rollup_Process';
414: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module||
415: '.final_exception',gbl_error_buf);
416:
417: END ROLLUP_PROCESS;
418: ------------------------------- -----------------------------------------------
418: ------------------------------- -----------------------------------------------
419: PROCEDURE LOG (module IN VARCHAR2, message_line IN VARCHAR2) IS
420:
421: BEGIN
422: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
423: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, module, message_line);
424: END IF;
425: EXCEPTION
426: WHEN OTHERS THEN
419: PROCEDURE LOG (module IN VARCHAR2, message_line IN VARCHAR2) IS
420:
421: BEGIN
422: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
423: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, module, message_line);
424: END IF;
425: EXCEPTION
426: WHEN OTHERS THEN
427: FV_UTILITY.LOG_MESG('When others error in module: log: '||sqlerrm);
495: EXCEPTION
496: WHEN OTHERS THEN
497: gbl_error_code := -1 ;
498: gbl_error_buf := l_module||' '||SQLERRM;
499: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,
500: l_module||' '||gbl_error_buf);
501: END BUILD_SEGS_WHERE_CLAUSE;
502: --------------------------------------------------------------------------------
503: BEGIN