158:
159: BEGIN
160:
161: l_module_name := g_module_name || 'MAIN';
162: FV_UTILITY.LOG_MESG('In '||l_module_name);
163:
164: l_edit_check_status := 'N';
165: l_run_mode := NULL;
166: l_printer_name := FND_PROFILE.VALUE('PRINTER');
174: gbl_period_name := p_period_name;
175: gbl_fiscal_year := p_fiscal_year;
176: gbl_period_year := p_fiscal_year;
177:
178: FV_UTILITY.LOG_MESG('Parameters ');
179: FV_UTILITY.LOG_MESG('---------- ');
180: FV_UTILITY.LOG_MESG('SOB ID: '||gbl_set_of_books_id);
181: FV_UTILITY.LOG_MESG('COA ID: '||gbl_coa_id);
182: FV_UTILITY.LOG_MESG('Run Type: '||gbl_run_type);
175: gbl_fiscal_year := p_fiscal_year;
176: gbl_period_year := p_fiscal_year;
177:
178: FV_UTILITY.LOG_MESG('Parameters ');
179: FV_UTILITY.LOG_MESG('---------- ');
180: FV_UTILITY.LOG_MESG('SOB ID: '||gbl_set_of_books_id);
181: FV_UTILITY.LOG_MESG('COA ID: '||gbl_coa_id);
182: FV_UTILITY.LOG_MESG('Run Type: '||gbl_run_type);
183: FV_UTILITY.LOG_MESG('Period: '||gbl_period_name);
176: gbl_period_year := p_fiscal_year;
177:
178: FV_UTILITY.LOG_MESG('Parameters ');
179: FV_UTILITY.LOG_MESG('---------- ');
180: FV_UTILITY.LOG_MESG('SOB ID: '||gbl_set_of_books_id);
181: FV_UTILITY.LOG_MESG('COA ID: '||gbl_coa_id);
182: FV_UTILITY.LOG_MESG('Run Type: '||gbl_run_type);
183: FV_UTILITY.LOG_MESG('Period: '||gbl_period_name);
184: FV_UTILITY.LOG_MESG('Fiscal Year: '||gbl_fiscal_year);
177:
178: FV_UTILITY.LOG_MESG('Parameters ');
179: FV_UTILITY.LOG_MESG('---------- ');
180: FV_UTILITY.LOG_MESG('SOB ID: '||gbl_set_of_books_id);
181: FV_UTILITY.LOG_MESG('COA ID: '||gbl_coa_id);
182: FV_UTILITY.LOG_MESG('Run Type: '||gbl_run_type);
183: FV_UTILITY.LOG_MESG('Period: '||gbl_period_name);
184: FV_UTILITY.LOG_MESG('Fiscal Year: '||gbl_fiscal_year);
185: FV_UTILITY.LOG_MESG('Run Journal creation : '||p_run_journal);
178: FV_UTILITY.LOG_MESG('Parameters ');
179: FV_UTILITY.LOG_MESG('---------- ');
180: FV_UTILITY.LOG_MESG('SOB ID: '||gbl_set_of_books_id);
181: FV_UTILITY.LOG_MESG('COA ID: '||gbl_coa_id);
182: FV_UTILITY.LOG_MESG('Run Type: '||gbl_run_type);
183: FV_UTILITY.LOG_MESG('Period: '||gbl_period_name);
184: FV_UTILITY.LOG_MESG('Fiscal Year: '||gbl_fiscal_year);
185: FV_UTILITY.LOG_MESG('Run Journal creation : '||p_run_journal);
186: FV_UTILITY.LOG_MESG('Trading Partner Attribute: '||p_trading_partner_att);
179: FV_UTILITY.LOG_MESG('---------- ');
180: FV_UTILITY.LOG_MESG('SOB ID: '||gbl_set_of_books_id);
181: FV_UTILITY.LOG_MESG('COA ID: '||gbl_coa_id);
182: FV_UTILITY.LOG_MESG('Run Type: '||gbl_run_type);
183: FV_UTILITY.LOG_MESG('Period: '||gbl_period_name);
184: FV_UTILITY.LOG_MESG('Fiscal Year: '||gbl_fiscal_year);
185: FV_UTILITY.LOG_MESG('Run Journal creation : '||p_run_journal);
186: FV_UTILITY.LOG_MESG('Trading Partner Attribute: '||p_trading_partner_att);
187:
180: FV_UTILITY.LOG_MESG('SOB ID: '||gbl_set_of_books_id);
181: FV_UTILITY.LOG_MESG('COA ID: '||gbl_coa_id);
182: FV_UTILITY.LOG_MESG('Run Type: '||gbl_run_type);
183: FV_UTILITY.LOG_MESG('Period: '||gbl_period_name);
184: FV_UTILITY.LOG_MESG('Fiscal Year: '||gbl_fiscal_year);
185: FV_UTILITY.LOG_MESG('Run Journal creation : '||p_run_journal);
186: FV_UTILITY.LOG_MESG('Trading Partner Attribute: '||p_trading_partner_att);
187:
188: get_segment_names;
181: FV_UTILITY.LOG_MESG('COA ID: '||gbl_coa_id);
182: FV_UTILITY.LOG_MESG('Run Type: '||gbl_run_type);
183: FV_UTILITY.LOG_MESG('Period: '||gbl_period_name);
184: FV_UTILITY.LOG_MESG('Fiscal Year: '||gbl_fiscal_year);
185: FV_UTILITY.LOG_MESG('Run Journal creation : '||p_run_journal);
186: FV_UTILITY.LOG_MESG('Trading Partner Attribute: '||p_trading_partner_att);
187:
188: get_segment_names;
189:
182: FV_UTILITY.LOG_MESG('Run Type: '||gbl_run_type);
183: FV_UTILITY.LOG_MESG('Period: '||gbl_period_name);
184: FV_UTILITY.LOG_MESG('Fiscal Year: '||gbl_fiscal_year);
185: FV_UTILITY.LOG_MESG('Run Journal creation : '||p_run_journal);
186: FV_UTILITY.LOG_MESG('Trading Partner Attribute: '||p_trading_partner_att);
187:
188: get_segment_names;
189:
190: IF gbl_error_code = 0 THEN
204: END IF;
205:
206: IF p_run_journal = 'Y' THEN
207:
208: fv_utility.log_mesg('Calling Journal Creation process.');
209: l_req_id := FND_REQUEST.SUBMIT_REQUEST
210: ('FV','FVFC1JCR','','',FALSE, gbl_set_of_books_id, gbl_period_name,'I',
211: p_trading_partner_att);
212: FV_UTILITY.LOG_MESG(l_module_name||
208: fv_utility.log_mesg('Calling Journal Creation process.');
209: l_req_id := FND_REQUEST.SUBMIT_REQUEST
210: ('FV','FVFC1JCR','','',FALSE, gbl_set_of_books_id, gbl_period_name,'I',
211: p_trading_partner_att);
212: FV_UTILITY.LOG_MESG(l_module_name||
213: ' REQUEST ID FOR JOURNAL CREATION PROCESS = '|| TO_CHAR(L_REQ_ID));
214: IF (l_req_id = 0) THEN
215: gbl_error_code := -1;
216: gbl_error_buf := ' Cannot submit FACTS Journal Creation process';
213: ' REQUEST ID FOR JOURNAL CREATION PROCESS = '|| TO_CHAR(L_REQ_ID));
214: IF (l_req_id = 0) THEN
215: gbl_error_code := -1;
216: gbl_error_buf := ' Cannot submit FACTS Journal Creation process';
217: fv_utility.log_mesg(gbl_error_buf);
218: p_err_code := -1;
219: p_err_buff := gbl_error_buf;
220: RETURN;
221: ELSE
225: dphase, dstatus, message);
226: IF call_status = FALSE THEN
227: gbl_error_buf := 'Cannot wait for the status of Journal Creation Process';
228: gbl_error_code := -1;
229: FV_UTILITY.LOG_MESG(l_module_name|| '.error4', gbl_error_buf) ;
230: p_err_code := -1;
231: p_err_buff := gbl_error_buf;
232: RETURN;
233: END IF;
235: END IF;
236:
237:
238: IF gbl_error_code = 0 THEN
239: fv_utility.log_mesg('Calling Facts Attributes Creation process.');
240: SET_UP_FACTS_ATTRIBUTES(l_error_buf ,
241: l_error_code ,
242: gbl_set_of_books_id ,
243: gbl_fiscal_year);
246: END IF;
247:
248:
249: IF gbl_error_code = 0 THEN
250: FV_UTILITY.LOG_MESG('Calling Exception report');
251: submit_exception_report;
252: End if;
253:
254:
253:
254:
255: -- Peforming Edit check process
256: IF gbl_error_code = 0 THEN
257: FV_UTILITY.LOG_MESG('Calling Edit check');
258: EDIT_CHECK(GBL_PERIOD_NUM_HIGH , GBL_FISCAL_YEAR, GBL_SET_OF_BOOKS_ID, L_EDIT_CHECK_STATUS);
259: FV_UTILITY.LOG_MESG('Edit check status: '||l_edit_check_status);
260:
261: End if;
255: -- Peforming Edit check process
256: IF gbl_error_code = 0 THEN
257: FV_UTILITY.LOG_MESG('Calling Edit check');
258: EDIT_CHECK(GBL_PERIOD_NUM_HIGH , GBL_FISCAL_YEAR, GBL_SET_OF_BOOKS_ID, L_EDIT_CHECK_STATUS);
259: FV_UTILITY.LOG_MESG('Edit check status: '||l_edit_check_status);
260:
261: End if;
262:
263: -- Submit reports only if edit check is passed.
277: AND rownum = 1;
278:
279: IF (l_row_exists > 0) THEN
280: IF ( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
281: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,
282: ' DELETING RECORDS FROM FV_FACTS_ENDING_BALANCES FOR
283: THE YEAR = '|| GBL_PERIOD_YEAR);
284: END IF;
285: fv_utility.log_mesg('Deleting recs from fv_facts_ending_balances
281: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,
282: ' DELETING RECORDS FROM FV_FACTS_ENDING_BALANCES FOR
283: THE YEAR = '|| GBL_PERIOD_YEAR);
284: END IF;
285: fv_utility.log_mesg('Deleting recs from fv_facts_ending_balances
286: for Period Year: '||gbl_period_year);
287:
288: DELETE FROM fv_facts_ending_balances
289: WHERE set_of_books_id = gbl_set_of_books_id
287:
288: DELETE FROM fv_facts_ending_balances
289: WHERE set_of_books_id = gbl_set_of_books_id
290: AND fiscal_year = gbl_period_year;
291: fv_utility.log_mesg('Deleted '||SQL%ROWCOUNT ||' recs from fv_facts_ending_balances.');
292: COMMIT;
293: END IF;
294: create_end_bal_record;
295: END IF;
297: l_print_option := FND_REQUEST.SET_PRINT_OPTIONS(
298: printer => l_printer_name,
299: copies => l_copies);
300:
301: FV_UTILITY.LOG_MESG(l_module_name|| ' LAUNCHING FACTS I ATB FILE GENERATION PROCESS ...');
302:
303: -- Submit ATB file process
304: l_req_id := FND_REQUEST.SUBMIT_REQUEST
305: ('FV','FVFACTSR','','',FALSE, 'FVFC1ATB', gbl_fiscal_year,
304: l_req_id := FND_REQUEST.SUBMIT_REQUEST
305: ('FV','FVFACTSR','','',FALSE, 'FVFC1ATB', gbl_fiscal_year,
306: gbl_set_of_books_id, gbl_period_num_high);
307:
308: FV_UTILITY.LOG_MESG(l_module_name|| ' REQUEST ID FOR ATB FILE = '|| TO_CHAR(L_REQ_ID));
309:
310: -- if concurrent request submission failed then abort process
311: IF (l_req_id = 0) THEN
312: p_err_code := '-1';
311: IF (l_req_id = 0) THEN
312: p_err_code := '-1';
313: p_err_buff := ' Cannot submit FACTS report ATB file process';
314: RETURN;
315: FV_UTILITY.LOG_MESG(l_module_name||gbl_error_buf);
316: ELSE
317: COMMIT;
318: call_status := Fnd_concurrent.Wait_for_request(l_req_id, 20, 0,
319: rphase, rstatus,
320: dphase, dstatus, message);
321: IF call_status = FALSE THEN
322: p_err_buff := 'Cannot wait for the status of FACTS ATB Report';
323: p_err_code := -1;
324: FV_UTILITY.LOG_MESG(l_module_name||
325: '.error4', gbl_error_buf) ;
326: RETURN;
327: END IF;
328: END IF;
336: printer => l_printer_name,
337: copies => l_copies);
338:
339: -- Submit FACTS I Detail Report concurrent program
340: FV_UTILITY.LOG_MESG(l_module_name||
341: ' LAUNCHING FACTS I DETAIL REPORT ...');
342:
343: l_req_id := FND_REQUEST.SUBMIT_REQUEST
344: ('FV','FVFACTDR','','',FALSE, gbl_set_of_books_id, l_run_mode, gbl_fiscal_year,
343: l_req_id := FND_REQUEST.SUBMIT_REQUEST
344: ('FV','FVFACTDR','','',FALSE, gbl_set_of_books_id, l_run_mode, gbl_fiscal_year,
345: p_period_name, gbl_period_num_high);
346:
347: FV_UTILITY.LOG_MESG(l_module_name||
348: ' REQUEST ID FOR DETAIL REPORT = '|| TO_CHAR(L_REQ_ID));
349:
350: -- If concurrent request submission failed then abort process
351: IF (l_req_id = 0) THEN
350: -- If concurrent request submission failed then abort process
351: IF (l_req_id = 0) THEN
352: p_err_code := '-1';
353: p_err_buff := ' Cannot submit FACTS Detail report';
354: FV_UTILITY.LOG_MESG(l_module_name||gbl_error_buf);
355: RETURN;
356: ELSE
357: COMMIT;
358: call_status := Fnd_concurrent.Wait_for_request(l_req_id, 20, 0,
360: dphase, dstatus, message);
361: IF call_status = FALSE THEN
362: p_err_buff := 'Cannot wait for the status of FACTS Detail Report';
363: p_err_code := -1;
364: FV_UTILITY.LOG_MESG(l_module_name||'.error4', gbl_error_buf) ;
365: RETURN;
366: END IF;
367: END IF;
368: END IF;
393: -- END IF;
394:
395: COMMIT;
396:
397: FV_UTILITY.LOG_MESG('Facts I Main Process completed successfully.');
398: p_err_buff := 'Facts I Main Process completed successfully.';
399:
400:
401: EXCEPTION WHEN OTHERS THEN
401: EXCEPTION WHEN OTHERS THEN
402: p_err_code := SQLCODE;
403: p_err_buff := 'When others exception in Main - '||SQLERRM;
404: ROLLBACK;
405: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
406:
407: END main;
408: --------------------------------------------------------------------------------
409: -- Get balancing and accounting segments
421:
422: BEGIN
423:
424: l_module_name := g_module_name || 'GET_SEGMENT_NAMES';
425: FV_UTILITY.LOG_MESG('In '||l_module_name);
426:
427: l_temp_mesg := ' getting balancing/accounting segment. ';
428:
429:
431: INTO gbl_coa_id
432: FROM gl_ledgers_public_v
433: WHERE ledger_id = gbl_set_of_books_id;
434:
435: FV_UTILITY.LOG_MESG('COA ID: '||gbl_coa_id);
436:
437: -- Get Balancing Segment Name
438: -----------------------------
439: l_segment_found := FND_FLEX_APIS.get_segment_column
467: WHERE application_column_name = gbl_acc_segment_name
468: AND id_flex_code = 'GL#'
469: AND id_flex_num = gbl_coa_id;
470:
471: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
472: FV_UTILITY.LOG_MESG('Accounting Segment: '||gbl_acc_segment_name);
473: FV_UTILITY.LOG_MESG('Accounting value set id: '||gbl_acc_value_set_id);
474:
475: EXCEPTION
468: AND id_flex_code = 'GL#'
469: AND id_flex_num = gbl_coa_id;
470:
471: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
472: FV_UTILITY.LOG_MESG('Accounting Segment: '||gbl_acc_segment_name);
473: FV_UTILITY.LOG_MESG('Accounting value set id: '||gbl_acc_value_set_id);
474:
475: EXCEPTION
476: WHEN invalid_bal_segment THEN
469: AND id_flex_num = gbl_coa_id;
470:
471: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
472: FV_UTILITY.LOG_MESG('Accounting Segment: '||gbl_acc_segment_name);
473: FV_UTILITY.LOG_MESG('Accounting value set id: '||gbl_acc_value_set_id);
474:
475: EXCEPTION
476: WHEN invalid_bal_segment THEN
477: gbl_error_code := -1 ;
475: EXCEPTION
476: WHEN invalid_bal_segment THEN
477: gbl_error_code := -1 ;
478: gbl_error_buf := 'Error while fetching balancing segment.';
479: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
480: WHEN invalid_acc_segment THEN
481: gbl_error_code := -1 ;
482: gbl_error_buf := 'Error while fetching accounting segment.';
483: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
479: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
480: WHEN invalid_acc_segment THEN
481: gbl_error_code := -1 ;
482: gbl_error_buf := 'Error while fetching accounting segment.';
483: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
484: WHEN NO_DATA_FOUND THEN
485: gbl_error_code := -1 ;
486: gbl_error_buf := l_module_name||' - No data found when'||l_temp_mesg;
487: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
483: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
484: WHEN NO_DATA_FOUND THEN
485: gbl_error_code := -1 ;
486: gbl_error_buf := l_module_name||' - No data found when'||l_temp_mesg;
487: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
488: WHEN OTHERS THEN
489: gbl_error_code := -1 ;
490: gbl_error_buf := l_module_name||' - When others error when'||
491: l_temp_mesg||SQLERRM;
488: WHEN OTHERS THEN
489: gbl_error_code := -1 ;
490: gbl_error_buf := l_module_name||' - When others error when'||
491: l_temp_mesg||SQLERRM;
492: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
493:
494: END get_segment_names;
495: --------------------------------------------------------------------------------
496: -- PROCEDURE PROCESS_INPUT_PARAMETERS
512:
513: BEGIN
514:
515: l_module_name := g_module_name || 'PROCESS_INPUT_PARAMETERS';
516: FV_UTILITY.LOG_MESG('In '||l_module_name);
517:
518: -- Error out if the required parameters are null.
519: IF (gbl_run_type = 'Y' AND gbl_fiscal_year IS NULL) OR
520: (gbl_run_type = 'R' AND gbl_period_name IS NULL) THEN
520: (gbl_run_type = 'R' AND gbl_period_name IS NULL) THEN
521: gbl_error_code := -1;
522: gbl_error_buf := 'Period Name is required if Run Type is R or '||
523: 'Fiscal Year is required if Run Type is Y.';
524: FV_UTILITY.LOG_MESG(gbl_error_buf);
525: RETURN;
526: END IF;
527:
528: -- Parameter type will be Y if year is passed and R
633: gbl_error_code := -1;
634: gbl_error_buf := 'PROCESS INPUT PARAMETERS - Period Number for ' ||
635: 'Lower Period of the Range is greater than the ' ||
636: 'Higher period.';
637: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
638: RETURN;
639: END IF;
640:
641: l_temp_mesg := ' getting period name of first period of the year. ';
656: IF gbl_currency_code IS NULL THEN
657: RAISE NO_DATA_FOUND;
658: END IF;
659:
660: FV_UTILITY.LOG_MESG('Period low: '||gbl_period_num_low);
661: FV_UTILITY.LOG_MESG('Period high: '||gbl_period_num_high);
662: FV_UTILITY.LOG_MESG('Fiscal year: '||gbl_fiscal_year);
663: FV_UTILITY.LOG_MESG('Currency Code: '||gbl_currency_code);
664:
657: RAISE NO_DATA_FOUND;
658: END IF;
659:
660: FV_UTILITY.LOG_MESG('Period low: '||gbl_period_num_low);
661: FV_UTILITY.LOG_MESG('Period high: '||gbl_period_num_high);
662: FV_UTILITY.LOG_MESG('Fiscal year: '||gbl_fiscal_year);
663: FV_UTILITY.LOG_MESG('Currency Code: '||gbl_currency_code);
664:
665: EXCEPTION
658: END IF;
659:
660: FV_UTILITY.LOG_MESG('Period low: '||gbl_period_num_low);
661: FV_UTILITY.LOG_MESG('Period high: '||gbl_period_num_high);
662: FV_UTILITY.LOG_MESG('Fiscal year: '||gbl_fiscal_year);
663: FV_UTILITY.LOG_MESG('Currency Code: '||gbl_currency_code);
664:
665: EXCEPTION
666: WHEN NO_DATA_FOUND THEN
659:
660: FV_UTILITY.LOG_MESG('Period low: '||gbl_period_num_low);
661: FV_UTILITY.LOG_MESG('Period high: '||gbl_period_num_high);
662: FV_UTILITY.LOG_MESG('Fiscal year: '||gbl_fiscal_year);
663: FV_UTILITY.LOG_MESG('Currency Code: '||gbl_currency_code);
664:
665: EXCEPTION
666: WHEN NO_DATA_FOUND THEN
667: gbl_error_code := -1 ;
665: EXCEPTION
666: WHEN NO_DATA_FOUND THEN
667: gbl_error_code := -1 ;
668: gbl_error_buf := l_module_name||' - No data found when '||l_temp_mesg;
669: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
670:
671: WHEN OTHERS THEN
672: gbl_error_code := SQLCODE ;
673: gbl_error_buf := ' - When others error when '||l_temp_mesg||SQLERRM;
670:
671: WHEN OTHERS THEN
672: gbl_error_code := SQLCODE ;
673: gbl_error_buf := ' - When others error when '||l_temp_mesg||SQLERRM;
674: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
675: END process_input_parameters;
676: --------------------------------------------------------------------------------
677: -- FUND_GROUP_INFO_SETUP
678: -- Update fv_fund_parameters table with the required info.
698:
699: BEGIN
700:
701: l_module_name := g_module_name || 'FUND_GROUP_INFO_SETUP';
702: FV_UTILITY.LOG_MESG('In '||l_module_name);
703:
704: gbl_error_code := 0;
705: gbl_error_buf := Null;
706:
737: END;
738: END IF;
739:
740: IF ( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
741: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,
742: ' Fund Group: '||l_fund_group);
743: END IF;
744:
745: --fv_utility.log_mesg('**********fund_value: '||fund_rec.fund_val);
741: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,
742: ' Fund Group: '||l_fund_group);
743: END IF;
744:
745: --fv_utility.log_mesg('**********fund_value: '||fund_rec.fund_val);
746: --fv_utility.log_mesg('**********fund_group_code: '||l_fund_group);
747:
748: UPDATE fv_fund_parameters
749: SET department_id = fund_rec.dep_id,
742: ' Fund Group: '||l_fund_group);
743: END IF;
744:
745: --fv_utility.log_mesg('**********fund_value: '||fund_rec.fund_val);
746: --fv_utility.log_mesg('**********fund_group_code: '||l_fund_group);
747:
748: UPDATE fv_fund_parameters
749: SET department_id = fund_rec.dep_id,
750: bureau_id = fund_rec.bu_id,
757:
758: EXCEPTION
759: WHEN NO_DATA_FOUND THEN
760: IF ( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
761: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,
762: ' No Data Found for fund group.');
763: END IF;
764:
765: WHEN Others THEN
765: WHEN Others THEN
766: gbl_error_code := -1 ;
767: gbl_error_buf := l_module_name||' - When others exception - ' ||
768: to_char(sqlcode) || ' - ' || sqlerrm ;
769: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
770:
771: END fund_group_info_setup;
772: --------------------------------------------------------------------------------
773: -- PROCEDURE PROCESS_T1_RECORDS
812: BEGIN
813:
814: l_module_name := g_module_name || 'GET_FUND_GROUP_INFO';
815: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
816: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'In '||l_module_name);
817: END IF;
818: --FV_UTILITY.LOG_MESG('In '||l_module_name);
819:
820: BEGIN
814: l_module_name := g_module_name || 'GET_FUND_GROUP_INFO';
815: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
816: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'In '||l_module_name);
817: END IF;
818: --FV_UTILITY.LOG_MESG('In '||l_module_name);
819:
820: BEGIN
821: SELECT department_id,
822: bureau_id,
839: p_fg_null := 'N';
840: END IF;
841:
842: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Value: '||p_fund_value);
844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Dept Id: '||p_dept_id);
845: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Bureau Id: '||p_bureau_id);
846: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Group: '||p_fund_group);
847: END IF;
840: END IF;
841:
842: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Value: '||p_fund_value);
844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Dept Id: '||p_dept_id);
845: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Bureau Id: '||p_bureau_id);
846: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Group: '||p_fund_group);
847: END IF;
848:
841:
842: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Value: '||p_fund_value);
844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Dept Id: '||p_dept_id);
845: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Bureau Id: '||p_bureau_id);
846: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Group: '||p_fund_group);
847: END IF;
848:
849: EXCEPTION
842: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Value: '||p_fund_value);
844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Dept Id: '||p_dept_id);
845: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Bureau Id: '||p_bureau_id);
846: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Group: '||p_fund_group);
847: END IF;
848:
849: EXCEPTION
850: WHEN NO_DATA_FOUND THEN
849: EXCEPTION
850: WHEN NO_DATA_FOUND THEN
851: gbl_error_buf := l_module_name||' No fund group data found for fund : ' || p_fund_value;
852: IF ( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
853: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,gbl_error_buf);
854: END IF;
855:
856: WHEN OTHERS THEN
857: gbl_error_code := -1 ;
856: WHEN OTHERS THEN
857: gbl_error_code := -1 ;
858: gbl_error_buf := l_module_name||' - When others exception - '||
859: to_char(SQLCODE) || ' - ' || SQLERRM ;
860: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
861:
862: END get_fund_group_info;
863: --------------------------------------------------------------------------------
864: -- PROCEDURE POPULATE_TEMP2
894:
895: l_module_name := g_module_name||' POPULATE_TEMP2';
896:
897: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
898: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
899: 'Inserting a record in T2 for record_category :'||p_record_category||' for ccid: '||p_ccid);
900: END IF;
901:
902: INSERT INTO fv_facts_report_t2
952: WHEN OTHERS THEN
953: gbl_error_code := -1;
954: gbl_error_buf := l_module_name||' - When others exception -'||
955: to_char(SQLCODE) || ' - ' || SQLERRM;
956: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
957:
958: END populate_temp2;
959: --------------------------------------------------------------------------------
960: -- PROCEDURE GET_USSGL_ACCT_NUM
993:
994: BEGIN
995:
996: l_module_name := g_module_name || 'GET_USSGL_ACCT_NUM';
997: --FV_UTILITY.LOG_MESG('In '||l_module_name);
998:
999: l_exists := NULL;
1000: l_ussgl_enabled := NULL;
1001: l_reporting_type := NULL;
1122: gbl_error_code := -1;
1123: gbl_error_buf := l_module_name||' - When others error: '||SQLERRM;
1124: --fnd_file.put_line(fnd_file.log , 'first other error raised due to check in
1125: -- fv_facts_attributs or fund_parameter in [GET_USSGL_ACCOUNT_NUM]');
1126: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1127: RETURN;
1128: END;
1129:
1130: ELSE -- account is not a ussgl_account
1336: P_BSF_EXCEPTION := NULL;
1337: P_ENE_EXCEPTION := NULL;
1338: P_CNC_EXCEPTION := NULL;
1339: P_EXCEPTION_CATEGORY:= 'PROP_ACCT_NOT_SETUP';
1340: -- FV_UTILITY.LOG_MESG('WHEN invalid number during facts-attibutes
1341: --found for'||p_acct_num||' So returning with prop_acct_not_setup');
1342: RETURN;
1343: END;
1344: END IF; -- End IF of l_exists
1430: so will exit the process:' || p_acct_num );
1431: gbl_error_code := -1;
1432: gbl_error_buf := l_module_name||' - Final when others '||SQLERRM;
1433: RETURN;
1434: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1435:
1436: END GET_USSGL_ACCT_NUM ;
1437: --------------------------------------------------------------------------------
1438: -- FUNCTION GET_ACCOUNT_TYPE
1447:
1448: BEGIN
1449:
1450: l_module_name := g_module_name||'GET_ACCOUNT_TYPE';
1451: --FV_UTILITY.LOG_MESG('In '||l_module_name);
1452:
1453: SELECT SUBSTR(compiled_value_attributes, 5, 1)
1454: INTO l_account_type
1455: FROM fnd_flex_values
1462: WHEN Others THEN
1463: gbl_error_code := -1 ;
1464: gbl_error_buf := l_module_name||' - When others exception - ' ||
1465: TO_CHAR(SQLCODE) || ' - ' ||SQLERRM ;
1466: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1467: END get_account_type;
1468: --------------------------------------------------------------------------------
1469: -- PROCEDURE GET_USSGL_INFO
1470: --------------------------------------------------------------------------------
1478: l_module_name VARCHAR2(200);
1479:
1480: BEGIN
1481: l_module_name := g_module_name || 'GET_USSGL_INFO';
1482: --FV_UTILITY.LOG_MESG('In '||l_module_name);
1483:
1484: SELECT ussgl_enabled_flag, reporting_type
1485: INTO p_enabled_flag, p_reporting_type
1486: FROM fv_facts_ussgl_accounts
1491:
1492: WHEN OTHERS THEN
1493: gbl_error_code := -1;
1494: gbl_error_buf := SQLERRM;
1495: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1496: RETURN;
1497: END get_ussgl_info;
1498: --------------------------------------------------------------------------------
1499: -- FUNCTION EDIT_CHECK
1521:
1522: BEGIN
1523:
1524: l_module_name := g_module_name || 'EDIT_CHECK';
1525: FV_UTILITY.LOG_MESG('In '||l_module_name);
1526:
1527: l_edit_check_passed := 'Y';
1528:
1529: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'FACTS I Edit Checks');
1579: EXCEPTION
1580: WHEN OTHERS THEN
1581: gbl_error_code := -1;
1582: gbl_error_buf := l_module_name||' - When others error '||SQLERRM;
1583: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1584: RAISE;
1585:
1586: END EDIT_CHECK;
1587: --------------------------------------------------------------------------------
1594:
1595: BEGIN
1596:
1597: l_module_name := g_module_name || 'CREATE_END_BAL_RECORD';
1598: FV_UTILITY.LOG_MESG('In '||l_module_name);
1599:
1600: INSERT INTO FV_FACTS_ENDING_BALANCES
1601: (fund_group,
1602: account_number,
1652: t2.cust_non_cust, t2.budget_subfunction, t2.d_c_indicator,
1653: t2.fund_value, t2.ccid, t2.account_type, t2.recipient_name
1654: HAVING SUM(NVL(amount,0)) <> 0) ;
1655:
1656: fv_utility.log_mesg('Inserted '||SQL%ROWCOUNT ||' recs into fv_facts_ending_balances.');
1657:
1658: EXCEPTION
1659: WHEN OTHERS THEN
1660: gbl_error_code := -1;
1658: EXCEPTION
1659: WHEN OTHERS THEN
1660: gbl_error_code := -1;
1661: gbl_error_buf := l_module_name||' - When others error '||SQLERRM;
1662: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, gbl_error_buf);
1663: RAISE;
1664:
1665: END create_end_bal_record;
1666: --------------------------------------------------------------------------------
1672:
1673: BEGIN
1674:
1675: l_module_name := g_module_name || 'CLEANUP_PROCESS';
1676: FV_UTILITY.LOG_MESG('In '||l_module_name);
1677:
1678:
1679: DELETE FROM fv_facts_report_t2
1680: WHERE set_of_books_id = gbl_set_of_books_id;
1679: DELETE FROM fv_facts_report_t2
1680: WHERE set_of_books_id = gbl_set_of_books_id;
1681:
1682: /** cleanup the line balance differrence records */
1683: FV_UTILITY.LOG_MESG('Deleting from fv_facts1_diff_balances for Period Year: '||
1684: gbl_period_year);
1685:
1686: DELETE FROM fv_facts1_diff_balances
1687: WHERE set_of_books_id = gbl_set_of_books_id
1687: WHERE set_of_books_id = gbl_set_of_books_id
1688: and period_year = gbl_period_year
1689: and balance_type = 'D';
1690:
1691: FV_UTILITY.LOG_MESG('Deleted '||SQL%ROWCOUNT||
1692: ' records from fv_facts1_diff_balances.');
1693:
1694: EXCEPTION
1695: WHEN OTHERS THEN
1694: EXCEPTION
1695: WHEN OTHERS THEN
1696: gbl_error_code := -1 ;
1697: gbl_error_buf := l_module_name||' - When others exception - '||SQLERRM;
1698: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name,gbl_error_buf);
1699: END;
1700: --------------------------------------------------------------------------------
1701: PROCEDURE JOURNAL_PROCESSES
1702: IS
1790: WHEN OTHERS THEN
1791: gbl_error_code := SQLCODE;
1792: gbl_error_buf := SQLERRM || '-- [JOURNAL_PROCESS]';
1793: fnd_file.put_line(fnd_file.log , gbl_error_buf);
1794: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',gbl_error_buf);
1795: END JOURNAL_PROCESSES;
1796:
1797: --------------------------------------------------------------------------------------------------------
1798: PROCEDURE TRIAL_BALANCE_MAIN (p_errbuf OUT NOCOPY Varchar2,
1833: gbl_attribute_set := p_attribute_set;
1834: gbl_output_format := p_output_format;
1835:
1836: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1837: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SET OF BOOKS ID - '|| GBL_SET_OF_BOOKS_ID);
1838: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY CODE - '|| GBL_CURRENCY_CODE);
1839: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1840: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1841: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1834: gbl_output_format := p_output_format;
1835:
1836: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1837: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SET OF BOOKS ID - '|| GBL_SET_OF_BOOKS_ID);
1838: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY CODE - '|| GBL_CURRENCY_CODE);
1839: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1840: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1841: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1842: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1835:
1836: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1837: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SET OF BOOKS ID - '|| GBL_SET_OF_BOOKS_ID);
1838: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY CODE - '|| GBL_CURRENCY_CODE);
1839: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1840: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1841: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1842: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1836: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1837: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SET OF BOOKS ID - '|| GBL_SET_OF_BOOKS_ID);
1838: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY CODE - '|| GBL_CURRENCY_CODE);
1839: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1840: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1841: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1842: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1837: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SET OF BOOKS ID - '|| GBL_SET_OF_BOOKS_ID);
1838: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY CODE - '|| GBL_CURRENCY_CODE);
1839: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1840: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1841: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1842: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1845: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1838: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY CODE - '|| GBL_CURRENCY_CODE);
1839: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1840: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1841: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1842: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1845: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1846: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1839: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1840: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1841: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1842: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1845: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1846: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1847: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OUTPUT FORMAT - '|| GBL_OUTPUT_FORMAT);
1840: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1841: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1842: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1845: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1846: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1847: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OUTPUT FORMAT - '|| GBL_OUTPUT_FORMAT);
1848: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1841: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1842: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1845: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1846: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1847: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OUTPUT FORMAT - '|| GBL_OUTPUT_FORMAT);
1848: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1849: END IF;
1842: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1845: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1846: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1847: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OUTPUT FORMAT - '|| GBL_OUTPUT_FORMAT);
1848: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1849: END IF;
1850:
1843: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1845: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1846: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1847: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OUTPUT FORMAT - '|| GBL_OUTPUT_FORMAT);
1848: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1849: END IF;
1850:
1851: --Getting the period number
1844: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1845: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1846: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1847: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OUTPUT FORMAT - '|| GBL_OUTPUT_FORMAT);
1848: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1849: END IF;
1850:
1851: --Getting the period number
1852: BEGIN
1875: EXCEPTION
1876: WHEN NO_DATA_FOUND THEN
1877: gbl_error_code := -1;
1878: gbl_error_buf := l_module_name||' No data found getting period num/year.';
1879: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
1880:
1881: WHEN OTHERS THEN
1882: gbl_error_code := -1;
1883: gbl_error_buf := l_module_name||' When others error getting period num/year.';
1880:
1881: WHEN OTHERS THEN
1882: gbl_error_code := -1;
1883: gbl_error_buf := l_module_name||' When others error getting period num/year.';
1884: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1885: END;
1886:
1887: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Period Num - '||gbl_period_num);
1884: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1885: END;
1886:
1887: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Period Num - '||gbl_period_num);
1889: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Period Year - '||gbl_period_year);
1890: END IF;
1891:
1892: -- Purge Temp tables
1885: END;
1886:
1887: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Period Num - '||gbl_period_num);
1889: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Period Year - '||gbl_period_year);
1890: END IF;
1891:
1892: -- Purge Temp tables
1893: CLEANUP_PROCESS;
1894:
1895: -- get_segment_names;
1896:
1897: IF gbl_error_code = 0 THEN
1898: fv_utility.log_mesg('Calling Facts Attributes Creation process.');
1899: SET_UP_FACTS_ATTRIBUTES(l_errbuf ,
1900: l_retcode ,
1901: gbl_set_of_books_id ,
1902: gbl_fiscal_year);
1909: /*
1910: IF (gbl_error_code = 0)
1911: THEN
1912: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1913: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1914: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING JOURNAL_PROCESS ...');
1915: END IF;
1916: JOURNAL_PROCESSES;
1917: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1910: IF (gbl_error_code = 0)
1911: THEN
1912: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1913: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1914: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING JOURNAL_PROCESS ...');
1915: END IF;
1916: JOURNAL_PROCESSES;
1917: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING JOURNAL_PROCESS ...');
1914: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING JOURNAL_PROCESS ...');
1915: END IF;
1916: JOURNAL_PROCESSES;
1917: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING JOURNAL_PROCESS ...');
1919: END IF;
1920: END IF;
1921: */
1922: -------------------------
1923:
1924: IF (gbl_error_code = 0)
1925: THEN
1926: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1927: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1928: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING ROLLUP_PROCESS ...');
1929: END IF;
1930: ROLLUP_PROCESS;
1931: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1924: IF (gbl_error_code = 0)
1925: THEN
1926: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1927: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1928: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING ROLLUP_PROCESS ...');
1929: END IF;
1930: ROLLUP_PROCESS;
1931: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1932: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING ROLLUP_PROCESS ...');
1928: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING ROLLUP_PROCESS ...');
1929: END IF;
1930: ROLLUP_PROCESS;
1931: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1932: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING ROLLUP_PROCESS ...');
1933: END IF;
1934: END IF;
1935:
1936: IF (gbl_error_code = 0)
1935:
1936: IF (gbl_error_code = 0)
1937: THEN
1938: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1939: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
1940: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LAUNCHING THE FACTS I TRIAL BALANCE RXI REPORT ...');
1941: END IF;
1942:
1943: l_print_option := FND_REQUEST.SET_PRINT_OPTIONS (printer => l_printer_name,
1936: IF (gbl_error_code = 0)
1937: THEN
1938: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1939: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
1940: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LAUNCHING THE FACTS I TRIAL BALANCE RXI REPORT ...');
1941: END IF;
1942:
1943: l_print_option := FND_REQUEST.SET_PRINT_OPTIONS (printer => l_printer_name,
1944: copies => l_copies);
1952: IF (l_req_id = 0)
1953: THEN
1954: gbl_error_buf := '** Cannot submit FACTS I Trial Balance RXi report **';
1955: gbl_error_code := '-1';
1956: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error4',gbl_error_buf);
1957: ELSE
1958: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1959: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT REQUEST ID = '||L_REQ_ID);
1960: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1955: gbl_error_code := '-1';
1956: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error4',gbl_error_buf);
1957: ELSE
1958: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1959: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT REQUEST ID = '||L_REQ_ID);
1960: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1961: END IF;
1962: END IF;
1963: END IF;
1956: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error4',gbl_error_buf);
1957: ELSE
1958: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1959: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT REQUEST ID = '||L_REQ_ID);
1960: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1961: END IF;
1962: END IF;
1963: END IF;
1964:
1976: WHEN OTHERS THEN
1977: p_retcode := '-1' ;
1978: p_errbuf := SQLERRM ||
1979: ' -- Error in Trial_Balance_Main';
1980: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',p_errbuf);
1981: END TRIAL_BALANCE_MAIN;
1982: --------------------------------------------------------------------------------
1983: -- PROCEDURE ROLLUP_PROCESS
1984: --------------------------------------------------------------------------------
2009: END IF;
2010: END LOOP;
2011:
2012: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2013: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP BY CLAUSE IS: '|| L_GROUP_BY);
2014: END IF;
2015:
2016: fv_utility.log_mesg('GROUP BY CLAUSE IS: '|| L_GROUP_BY);
2017:
2012: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2013: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP BY CLAUSE IS: '|| L_GROUP_BY);
2014: END IF;
2015:
2016: fv_utility.log_mesg('GROUP BY CLAUSE IS: '|| L_GROUP_BY);
2017:
2018: l_statement := '
2019: INSERT INTO fv_facts_report_t2
2020: ( fund_group,
2066: GROUP BY account_number, eliminations_dept,
2067: g_ng_indicator, ussgl_account, exch_non_exch, cust_non_cust, budget_subfunction,
2068: period_num, fund_value'|| l_group_by ||')';
2069:
2070: fv_utility.log_mesg(l_statement);
2071: fv_utility.log_mesg('l_group_by: '||l_group_by);
2072: fv_utility.log_mesg('gbl_period_num_high: '||gbl_period_num_high);
2073: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2074: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2067: g_ng_indicator, ussgl_account, exch_non_exch, cust_non_cust, budget_subfunction,
2068: period_num, fund_value'|| l_group_by ||')';
2069:
2070: fv_utility.log_mesg(l_statement);
2071: fv_utility.log_mesg('l_group_by: '||l_group_by);
2072: fv_utility.log_mesg('gbl_period_num_high: '||gbl_period_num_high);
2073: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2074: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2075: fv_utility.log_mesg('gbl_fund_range_high: '||gbl_fund_range_high);
2068: period_num, fund_value'|| l_group_by ||')';
2069:
2070: fv_utility.log_mesg(l_statement);
2071: fv_utility.log_mesg('l_group_by: '||l_group_by);
2072: fv_utility.log_mesg('gbl_period_num_high: '||gbl_period_num_high);
2073: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2074: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2075: fv_utility.log_mesg('gbl_fund_range_high: '||gbl_fund_range_high);
2076:
2069:
2070: fv_utility.log_mesg(l_statement);
2071: fv_utility.log_mesg('l_group_by: '||l_group_by);
2072: fv_utility.log_mesg('gbl_period_num_high: '||gbl_period_num_high);
2073: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2074: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2075: fv_utility.log_mesg('gbl_fund_range_high: '||gbl_fund_range_high);
2076:
2077: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2070: fv_utility.log_mesg(l_statement);
2071: fv_utility.log_mesg('l_group_by: '||l_group_by);
2072: fv_utility.log_mesg('gbl_period_num_high: '||gbl_period_num_high);
2073: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2074: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2075: fv_utility.log_mesg('gbl_fund_range_high: '||gbl_fund_range_high);
2076:
2077: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2078: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'
2071: fv_utility.log_mesg('l_group_by: '||l_group_by);
2072: fv_utility.log_mesg('gbl_period_num_high: '||gbl_period_num_high);
2073: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2074: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2075: fv_utility.log_mesg('gbl_fund_range_high: '||gbl_fund_range_high);
2076:
2077: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2078: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'
2079: EXECUTING FOLLOWING STATEMENT IN THE ROLLUP PROCESS, STATMENT LENGTH IS ... '||LENGTH(L_STATEMENT));
2074: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2075: fv_utility.log_mesg('gbl_fund_range_high: '||gbl_fund_range_high);
2076:
2077: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2078: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'
2079: EXECUTING FOLLOWING STATEMENT IN THE ROLLUP PROCESS, STATMENT LENGTH IS ... '||LENGTH(L_STATEMENT));
2080: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,L_STATEMENT);
2081: END IF;
2082:
2076:
2077: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2078: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'
2079: EXECUTING FOLLOWING STATEMENT IN THE ROLLUP PROCESS, STATMENT LENGTH IS ... '||LENGTH(L_STATEMENT));
2080: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,L_STATEMENT);
2081: END IF;
2082:
2083: EXECUTE IMMEDIATE l_statement USING gbl_set_of_books_id, gbl_set_of_books_id, gbl_period_num_high, gbl_fiscal_year, gbl_fund_range_low, gbl_fund_range_high;
2084:
2090: WHEN NO_DATA_FOUND THEN
2091: gbl_error_code := -1;
2092: gbl_error_buf := SQLERRM ||
2093: ' -- Error in Rollup_Process';
2094: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
2095:
2096: WHEN OTHERS THEN
2097: gbl_error_code := -1 ;
2098: gbl_error_buf := SQLERRM ||
2096: WHEN OTHERS THEN
2097: gbl_error_code := -1 ;
2098: gbl_error_buf := SQLERRM ||
2099: ' -- Error in Rollup_Process';
2100: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
2101: '.final_exception',gbl_error_buf);
2102: END ROLLUP_PROCESS;
2103: --------------------------------------------------------------------------------
2104: PROCEDURE SET_UP_FACTS_ATTRIBUTES(p_err_buf OUT NOCOPY VARCHAR2,
2242:
2243: p_err_code := 0;
2244: p_err_buf := null;
2245: l_module_name := g_module_name||'SET_UP_FACTS_ATTRIBUTES';
2246: FV_UTILITY.LOG_MESG('In '||l_module_name);
2247:
2248: gbl_set_of_books_id := p_set_of_books_id;
2249: gbl_fiscal_year := p_period_year;
2250:
2259: when no_data_found then
2260: l_populate_flag := 'Y';
2261: End;
2262:
2263: FV_UTILITY.LOG_MESG('Deleting records from fv_facts_report_t2.');
2264: DELETE FROM fv_facts_report_t2
2265: WHERE set_of_books_id = gbl_set_of_books_id;
2266:
2267:
2306: l_period_num_high := gbl_period_num_high;
2307: l_period_num_low := gbl_period_num_low;
2308:
2309:
2310: FV_UTILITY.LOG_MESG('Period Num Low: '||l_period_num_low);
2311: FV_UTILITY.LOG_MESG('Period Num High: '||l_period_num_high);
2312: FV_UTILITY.LOG_MESG('High Period Name: '||gbl_period_name);
2313:
2314:
2307: l_period_num_low := gbl_period_num_low;
2308:
2309:
2310: FV_UTILITY.LOG_MESG('Period Num Low: '||l_period_num_low);
2311: FV_UTILITY.LOG_MESG('Period Num High: '||l_period_num_high);
2312: FV_UTILITY.LOG_MESG('High Period Name: '||gbl_period_name);
2313:
2314:
2315: SELECT currency_code
2308:
2309:
2310: FV_UTILITY.LOG_MESG('Period Num Low: '||l_period_num_low);
2311: FV_UTILITY.LOG_MESG('Period Num High: '||l_period_num_high);
2312: FV_UTILITY.LOG_MESG('High Period Name: '||gbl_period_name);
2313:
2314:
2315: SELECT currency_code
2316: INTO gbl_currency_code
2315: SELECT currency_code
2316: INTO gbl_currency_code
2317: FROM gl_ledgers_public_v
2318: WHERE ledger_id = gbl_set_of_books_id;
2319: FV_UTILITY.LOG_MESG('Currency Code: '||gbl_currency_code);
2320:
2321: l_acct_type_condition := ' AND glc.account_type NOT IN ('||''''||'D'||''''||', '||''''||'C'||''''||')';
2322:
2323:
2350: ||', glc.' || gbl_acc_segment_name
2351: ||' ORDER BY '||'glc.'||gbl_bal_segment_name ||', glc.' || gbl_acc_segment_name;
2352:
2353: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2354: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2355: 'l_select_stmt: '||l_select_stmt);
2356: END IF;
2357:
2358:
2482: END IF;
2483:
2484: l_indx := 0;
2485:
2486: fv_utility.log_mesg('in Deriving attributes ');
2487: IF (l_ccid_l.count = 0 AND l_last_fetch) THEN
2488: EXIT;
2489: END IF;
2490:
2528: END IF;
2529:
2530:
2531: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2532: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2533: '---------------------------------');
2534: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2535: 'Fund Value: '||l_fund_value);
2536: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2530:
2531: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2532: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2533: '---------------------------------');
2534: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2535: 'Fund Value: '||l_fund_value);
2536: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2537: 'Account Number: '|| l_account_number);
2538: END IF;
2532: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2533: '---------------------------------');
2534: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2535: 'Fund Value: '||l_fund_value);
2536: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2537: 'Account Number: '|| l_account_number);
2538: END IF;
2539:
2540: IF (l_exists = 'N') THEN
2553: IF (l_fg_null = 'Y') THEN
2554:
2555:
2556: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2557: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2558: 'Fund group is null.');
2559: END IF;
2560:
2561: POPULATE_TEMP2(0000, ' ', '0', '0', '', '', l_balance_amount, 'D',
2591:
2592: IF (gbl_error_code <> 0) THEN
2593: p_err_code := gbl_error_code;
2594: p_err_buf := gbl_error_buf ;
2595: FV_UTILITY.LOG_MESG('An error occurred in GET_USSGL_ACCT_NUM.
2596: No further processing of FACTS 1 will be done.');
2597: RETURN;
2598: END IF;
2599:
2617: 'PROP_ACCT_FACTSII', 'USSGL_DISABLED',
2618: 'NON_USSGL_ACCT', 'USSGL_MULTIPLE_PARENTS')) THEN
2619:
2620: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2621: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2622: 'Exception: '||l_exception_category);
2623: END IF;
2624:
2625: -- Account segment did not pass SGL validation.
2650: gbl_set_of_books_id, 'E', '', '', '',
2651: l_fund_value, 0, l_ccid, l_account_type, '', 0, 0);
2652:
2653: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2654: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2655: 'Exception: '||l_ene_exception);
2656: END IF;
2657:
2658: END IF;
2664: gbl_set_of_books_id, 'E', '', '', '',
2665: l_fund_value, 0, l_ccid, l_account_type, '', 0, 0);
2666:
2667: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2668: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2669: 'Exception: '||l_cnc_exception);
2670: END IF;
2671:
2672: END IF;
2678: gbl_set_of_books_id, 'E', '', '', '',
2679: l_fund_value, 0, l_ccid, l_account_type, '', 0, 0);
2680:
2681: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2682: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2683: 'Exception: '||l_bsf_exception);
2684: END IF;
2685:
2686: END IF;
2851: ----------------------------------------------------
2852: END LOOP; /* for i loop */
2853:
2854:
2855: FV_UTILITY.log_MESG('Inserting no of new records ' || l_indx);
2856: FORALL i IN 1 .. l_indx
2857: INSERT INTO fv_facts1_period_attributes
2858: ( period_year,
2859: period_num,
2909:
2910:
2911: -- Update facts attributes in fv_facts1_period_attributes
2912:
2913: FV_UTILITY.log_MESG( 'Updating records ' || (l_ccid_l.count - l_indx));
2914:
2915: FORALL i IN l_ccid_l.first .. l_ccid_l.last
2916: UPDATE fv_facts1_period_attributes
2917: SET ussgl_account = l_sgl_acct_num_l(i),
2937: and set_of_books_id = gbl_set_of_books_id
2938: and l_new_record_l(i) = 'N';
2939: END LOOP;
2940:
2941: FV_UTILITY.LOG_MESG('No of CCID processed ' || l_rec_count);
2942:
2943: IF l_rec_count <> 0 THEN
2944:
2945: l_exception_count := 0;
2955: AND amount <> 0 ;
2956:
2957:
2958: if l_exception_count > 0 then
2959: FV_UTILITY.LOG_MESG('Set up Facts Attributes completed wth exceptions');
2960: p_err_code := 0;
2961: p_err_buf := 'Set up Facts Attributes completed with exceptions.';
2962: l_run_status := 'E';
2963: --gbl_exception_exists := 'Y';
2963: --gbl_exception_exists := 'Y';
2964: --submit_exception_report;
2965: else
2966: l_run_status := 'U';
2967: FV_UTILITY.LOG_MESG('Set up Facts Attributes completed successfully');
2968: p_err_buf := 'Set up Facts Attributes completed successfully.';
2969: END IF;
2970:
2971: ELSE -- l_rec_count
2969: END IF;
2970:
2971: ELSE -- l_rec_count
2972: l_run_status := 'U';
2973: FV_UTILITY.LOG_MESG('No data found for this period year.');
2974: END IF;
2975:
2976:
2977: -- Update fv_facts1_run only if there were records
2976:
2977: -- Update fv_facts1_run only if there were records
2978: -- found for the attribute creation process.
2979: IF l_rec_count > 0 THEN
2980: FV_UTILITY.LOG_MESG('Updating facts1 run status.');
2981: UPDATE fv_facts1_run
2982: SET status = l_run_status,
2983: process_date = sysdate,
2984: run_fed_flag = 'I',
3002: WHEN OTHERS THEN
3003: p_err_code := -1;
3004: p_err_buf := l_module_name||' When others exception: '
3005: ||to_char(SQLCODE) || ' - ' || SQLERRM;
3006: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
3007:
3008: END set_up_facts_attributes;
3009: --------------------------------------------------------------------------------
3010: PROCEDURE update_facts1_run(p_period_year in VARCHAR2,
3017:
3018: BEGIN
3019:
3020: l_module_name := g_module_name || 'UPDATE_FACTS1_RUN';
3021: FV_UTILITY.LOG_MESG('In '||l_module_name);
3022:
3023: UPDATE fv_facts1_run
3024: SET run_fed_flag = 'A',
3025: process_date = sysdate
3062: WHERE ledger_id = gbl_set_of_books_id;
3063:
3064: if l_posted_date is not null then
3065:
3066: FV_UTILITY.LOG_MESG('Initialzied fv_facts1_run with ' );
3067: FV_UTILITY.LOG_MESG(' from period ' || gbl_period_name);
3068: FV_UTILITY.LOG_MESG(' Header_id ' || l_je_header_id);
3069: FV_UTILITY.LOG_MESG(' posted_date ' || l_posted_date );
3070:
3063:
3064: if l_posted_date is not null then
3065:
3066: FV_UTILITY.LOG_MESG('Initialzied fv_facts1_run with ' );
3067: FV_UTILITY.LOG_MESG(' from period ' || gbl_period_name);
3068: FV_UTILITY.LOG_MESG(' Header_id ' || l_je_header_id);
3069: FV_UTILITY.LOG_MESG(' posted_date ' || l_posted_date );
3070:
3071: INSERT INTO fv_facts1_run(set_of_books_id, fiscal_year, status, table_indicator,process_date,
3064: if l_posted_date is not null then
3065:
3066: FV_UTILITY.LOG_MESG('Initialzied fv_facts1_run with ' );
3067: FV_UTILITY.LOG_MESG(' from period ' || gbl_period_name);
3068: FV_UTILITY.LOG_MESG(' Header_id ' || l_je_header_id);
3069: FV_UTILITY.LOG_MESG(' posted_date ' || l_posted_date );
3070:
3071: INSERT INTO fv_facts1_run(set_of_books_id, fiscal_year, status, table_indicator,process_date,
3072: run_fed_flag ,je_header_id,posted_date)
3065:
3066: FV_UTILITY.LOG_MESG('Initialzied fv_facts1_run with ' );
3067: FV_UTILITY.LOG_MESG(' from period ' || gbl_period_name);
3068: FV_UTILITY.LOG_MESG(' Header_id ' || l_je_header_id);
3069: FV_UTILITY.LOG_MESG(' posted_date ' || l_posted_date );
3070:
3071: INSERT INTO fv_facts1_run(set_of_books_id, fiscal_year, status, table_indicator,process_date,
3072: run_fed_flag ,je_header_id,posted_date)
3073: values(gbl_set_of_books_id, p_period_year, 'A', 'N',sysdate,'A' ,
3074: l_je_header_id ,l_posted_date);
3075: else
3076: gbl_error_code := -1;
3077: gbl_error_buf := 'Cannot determine the inital header_id';
3078: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, gbl_error_buf);
3079: END IF;
3080: Else
3081: gbl_error_code := -1;
3082: gbl_error_buf := 'No Journals exist for year '||p_period_year||' for ledger '||p_set_of_books_id;
3079: END IF;
3080: Else
3081: gbl_error_code := -1;
3082: gbl_error_buf := 'No Journals exist for year '||p_period_year||' for ledger '||p_set_of_books_id;
3083: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, gbl_error_buf);
3084: End if;
3085: END IF;
3086: EXCEPTION
3087: WHEN NO_DATA_FOUND THEN
3089: gbl_error_buf := SQLERRM || 'In UPDATE_FACTS1_RUN - '|| l_stage ;
3090: WHEN OTHERS THEN
3091: gbl_error_code := -1;
3092: gbl_error_buf := SQLERRM || 'When others error in UPDATE_FACTS1_RUN - '||SQLERRM;
3093: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, gbl_error_buf);
3094:
3095: END update_facts1_run;
3096: --------------------------------------------------------------------------------
3097: PROCEDURE submit_exception_report
3118: l_print_option := FND_REQUEST.SET_PRINT_OPTIONS(
3119: printer => l_printer_name,
3120: copies => l_copies);
3121:
3122: FV_UTILITY.LOG_MESG(l_module_name|| ' Launching FACTS I exception report ...');
3123:
3124: l_req_id := FND_REQUEST.SUBMIT_REQUEST
3125: ('FV','FVFACTSE','','',FALSE, l_run_mode, gbl_fiscal_year,
3126: gbl_set_of_books_id, gbl_period_name);
3125: ('FV','FVFACTSE','','',FALSE, l_run_mode, gbl_fiscal_year,
3126: gbl_set_of_books_id, gbl_period_name);
3127:
3128: -- If concurrent request submission failed, abort process
3129: FV_UTILITY.LOG_MESG(l_module_name|| ' Request ID for exception report = '|| TO_CHAR(L_REQ_ID));
3130:
3131: IF (l_req_id = 0) THEN
3132: gbl_error_code := '-1';
3133: gbl_error_buf := 'Cannot submit FACTS Exception report';
3130:
3131: IF (l_req_id = 0) THEN
3132: gbl_error_code := '-1';
3133: gbl_error_buf := 'Cannot submit FACTS Exception report';
3134: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
3135: RETURN;
3136: ELSE
3137: COMMIT;
3138: call_status := Fnd_concurrent.Wait_for_request(l_req_id, 20, 0,
3140: dphase, dstatus, message);
3141: IF call_status = FALSE THEN
3142: gbl_error_buf := 'Cannot wait for the status of FACTS Exception Report';
3143: gbl_error_code := -1;
3144: FV_UTILITY.LOG_MESG(l_module_name||'.error4', gbl_error_buf) ;
3145: RETURN;
3146: END IF;
3147: END IF;
3148:
3208: l_module_name := g_module_name || 'Get_Federal_Accounts';
3209:
3210: gbl_set_of_books_id := p_sob_id;
3211: gbl_fiscal_year := p_run_year;
3212: FV_UTILITY.LOG_MESG('In '||l_module_name);
3213:
3214: gbl_error_code := 0;
3215:
3216: GET_SEGMENT_NAMES;
3217:
3218: IF gbl_error_code <> 0 THEN
3219: p_err_code := gbl_error_code;
3220: p_err_buff := gbl_error_buf;
3221: FV_UTILITY.LOG_MESG('Error in get_segment_names procedure: '||gbl_error_buf);
3222: RETURN;
3223: END IF;
3224:
3225: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
3221: FV_UTILITY.LOG_MESG('Error in get_segment_names procedure: '||gbl_error_buf);
3222: RETURN;
3223: END IF;
3224:
3225: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
3226: FV_UTILITY.LOG_MESG('Accounting Segment: '||gbl_acc_segment_name);
3227: FV_UTILITY.LOG_MESG('Chart of Account ID: '||gbl_coa_id);
3228: FV_UTILITY.LOG_MESG('Account Value Set ID: '||gbl_acc_value_set_id);
3229:
3222: RETURN;
3223: END IF;
3224:
3225: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
3226: FV_UTILITY.LOG_MESG('Accounting Segment: '||gbl_acc_segment_name);
3227: FV_UTILITY.LOG_MESG('Chart of Account ID: '||gbl_coa_id);
3228: FV_UTILITY.LOG_MESG('Account Value Set ID: '||gbl_acc_value_set_id);
3229:
3230: -- Loop through records in FV_FACTS_ATTRIBUTES table with F/Y as Fed_NonFed Attribute
3223: END IF;
3224:
3225: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
3226: FV_UTILITY.LOG_MESG('Accounting Segment: '||gbl_acc_segment_name);
3227: FV_UTILITY.LOG_MESG('Chart of Account ID: '||gbl_coa_id);
3228: FV_UTILITY.LOG_MESG('Account Value Set ID: '||gbl_acc_value_set_id);
3229:
3230: -- Loop through records in FV_FACTS_ATTRIBUTES table with F/Y as Fed_NonFed Attribute
3231: FOR facts_attributes_rec IN facts_attributes_cur
3224:
3225: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
3226: FV_UTILITY.LOG_MESG('Accounting Segment: '||gbl_acc_segment_name);
3227: FV_UTILITY.LOG_MESG('Chart of Account ID: '||gbl_coa_id);
3228: FV_UTILITY.LOG_MESG('Account Value Set ID: '||gbl_acc_value_set_id);
3229:
3230: -- Loop through records in FV_FACTS_ATTRIBUTES table with F/Y as Fed_NonFed Attribute
3231: FOR facts_attributes_rec IN facts_attributes_cur
3232: LOOP
3257:
3258: IF gbl_error_code <> 0 THEN
3259: p_err_code := gbl_error_code;
3260: p_err_buff := gbl_error_buf;
3261: FV_UTILITY.LOG_MESG('Error in populate_fv_facts_fed_accounts procedure: '||gbl_error_buf);
3262: RETURN;
3263: END IF;
3264:
3265: EXCEPTION
3286:
3287: IF gbl_error_code <> 0 THEN
3288: p_err_code := gbl_error_code;
3289: p_err_buff := gbl_error_buf;
3290: FV_UTILITY.LOG_MESG('Error in populate_fv_facts_fed_accounts procedure: '||gbl_error_buf);
3291: RETURN;
3292: END IF;
3293:
3294:
3325: where set_of_books_id = gbl_set_of_books_id
3326: AND fiscal_year = gbl_fiscal_year
3327: and jc_flag = 'N';
3328:
3329: fv_utility.log_mesg('The Re run of Federal Account Creation Process , found ' ||
3330: l_no_new_accounts || ' new accounts');
3331:
3332: if l_no_new_accounts > 0 then
3333:
3337: AND period_year = gbl_fiscal_year
3338: and application_id = 101
3339: and period_num = l_period_num;
3340:
3341: fv_utility.log_mesg('Calling Journal Creation process.');
3342: l_req_id := FND_REQUEST.SUBMIT_REQUEST
3343: ('FV','FVFC1JCR','','',FALSE, gbl_set_of_books_id, gbl_period_name,'Y');
3344: FV_UTILITY.LOG_MESG(l_module_name||
3345: ' REQUEST ID FOR JOURNAL CREATION PROCESS = '|| TO_CHAR(L_REQ_ID));
3340:
3341: fv_utility.log_mesg('Calling Journal Creation process.');
3342: l_req_id := FND_REQUEST.SUBMIT_REQUEST
3343: ('FV','FVFC1JCR','','',FALSE, gbl_set_of_books_id, gbl_period_name,'Y');
3344: FV_UTILITY.LOG_MESG(l_module_name||
3345: ' REQUEST ID FOR JOURNAL CREATION PROCESS = '|| TO_CHAR(L_REQ_ID));
3346: IF (l_req_id = 0) THEN
3347: gbl_error_code := -1;
3348: gbl_error_buf := ' Cannot submit FACTS Journal Creation process';
3345: ' REQUEST ID FOR JOURNAL CREATION PROCESS = '|| TO_CHAR(L_REQ_ID));
3346: IF (l_req_id = 0) THEN
3347: gbl_error_code := -1;
3348: gbl_error_buf := ' Cannot submit FACTS Journal Creation process';
3349: fv_utility.log_mesg(gbl_error_buf);
3350: p_err_code := -1;
3351: p_err_buff := gbl_error_buf;
3352: RETURN;
3353: ELSE
3357: dphase, dstatus, message);
3358: IF call_status = FALSE THEN
3359: gbl_error_buf := 'Cannot wait for the status of Journal Creation Process';
3360: gbl_error_code := -1;
3361: FV_UTILITY.LOG_MESG(l_module_name|| '.error4', gbl_error_buf) ;
3362: p_err_code := -1;
3363: p_err_buff := gbl_error_buf;
3364: RETURN;
3365: END IF;
3380: EXCEPTION
3381: WHEN e_Invalid_Acc_segment THEN
3382: p_err_code := 2 ;
3383: p_err_buff := 'GET_FEDERAL_ACCOUNTS -- Error Reading Accounting Segments' ;
3384: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, p_err_buff);
3385: RETURN;
3386:
3387: WHEN OTHERS THEN
3388: p_err_code := SQLCODE;
3387: WHEN OTHERS THEN
3388: p_err_code := SQLCODE;
3389: p_err_buff := SQLERRM ||
3390: ' -- Error in Get_Federal_Accounts procedure';
3391: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
3392: l_module_name||'.exception1',p_err_buff);
3393: RETURN;
3394: END GET_FEDERAL_ACCOUNTS;
3395: -- ------------------------------------------------------------------
3450: WHEN 'F' THEN 'Federal'
3451: WHEN 'Y' THEN 'Federal or Non-Federal'
3452: END;
3453:
3454: -- fv_utility.log_mesg('Account Flag for ' || vg_acct_number
3455: -- || ' moved from ' || vl_dummy || ' To ' || vg_fed_nonfed);
3456: fnd_file.put_line(fnd_file.output, RPAD(vg_acct_number, 31) ||
3457: l_dummy_fed_non_fed || l_fed_non_fed );
3458: End if;
3478: 'N',
3479: gbl_fiscal_year
3480: );
3481:
3482: --fv_utility.log_mesg('Account ' || vg_acct_number || ' Identified as ' || vg_fed_nonfed);
3483:
3484: l_fed_non_fed :=
3485: CASE vg_fed_nonfed
3486: WHEN 'F' THEN RPAD('Federal', 25)
3498: WHEN OTHERS THEN
3499: gbl_error_code := SQLCODE;
3500: gbl_error_buf := SQLERRM ||
3501: ' -- Error in Populate_Fv_Facts_Fed_Accounts procedure';
3502: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||
3503: '.exception1',gbl_error_buf);
3504: END POPULATE_FV_FACTS_FED_ACCOUNTS;
3505: --------------------------------------------------------------------------------
3506: --------------------------------------------------------------------------------