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.
702:
703: BEGIN
704:
705: l_module_name := g_module_name || 'FUND_GROUP_INFO_SETUP';
706: FV_UTILITY.LOG_MESG('In '||l_module_name);
707:
708: gbl_error_code := 0;
709: gbl_error_buf := Null;
710:
743: END;
744: END IF;
745:
746: IF ( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
747: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,
748: ' Fund Group: '||l_fund_group);
749: END IF;
750:
751: --fv_utility.log_mesg('**********fund_value: '||fund_rec.fund_val);
747: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,
748: ' Fund Group: '||l_fund_group);
749: END IF;
750:
751: --fv_utility.log_mesg('**********fund_value: '||fund_rec.fund_val);
752: --fv_utility.log_mesg('**********fund_group_code: '||l_fund_group);
753:
754: UPDATE fv_fund_parameters
755: SET department_id = fund_rec.dep_id,
748: ' Fund Group: '||l_fund_group);
749: END IF;
750:
751: --fv_utility.log_mesg('**********fund_value: '||fund_rec.fund_val);
752: --fv_utility.log_mesg('**********fund_group_code: '||l_fund_group);
753:
754: UPDATE fv_fund_parameters
755: SET department_id = fund_rec.dep_id,
756: bureau_id = fund_rec.bu_id,
763:
764: EXCEPTION
765: WHEN NO_DATA_FOUND THEN
766: IF ( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
767: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,
768: ' No Data Found for fund group.');
769: END IF;
770:
771: WHEN Others THEN
771: WHEN Others THEN
772: gbl_error_code := -1 ;
773: gbl_error_buf := l_module_name||' - When others exception - ' ||
774: to_char(sqlcode) || ' - ' || sqlerrm ;
775: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
776:
777: END fund_group_info_setup;
778: --------------------------------------------------------------------------------
779: -- PROCEDURE PROCESS_T1_RECORDS
818: BEGIN
819:
820: l_module_name := g_module_name || 'GET_FUND_GROUP_INFO';
821: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
822: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'In '||l_module_name);
823: END IF;
824: --FV_UTILITY.LOG_MESG('In '||l_module_name);
825:
826: BEGIN
820: l_module_name := g_module_name || 'GET_FUND_GROUP_INFO';
821: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
822: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'In '||l_module_name);
823: END IF;
824: --FV_UTILITY.LOG_MESG('In '||l_module_name);
825:
826: BEGIN
827: SELECT department_id,
828: bureau_id,
845: p_fg_null := 'N';
846: END IF;
847:
848: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
849: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Value: '||p_fund_value);
850: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Dept Id: '||p_dept_id);
851: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Bureau Id: '||p_bureau_id);
852: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Group: '||p_fund_group);
853: END IF;
846: END IF;
847:
848: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
849: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Value: '||p_fund_value);
850: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Dept Id: '||p_dept_id);
851: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Bureau Id: '||p_bureau_id);
852: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Group: '||p_fund_group);
853: END IF;
854:
847:
848: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
849: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Value: '||p_fund_value);
850: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Dept Id: '||p_dept_id);
851: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Bureau Id: '||p_bureau_id);
852: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Group: '||p_fund_group);
853: END IF;
854:
855: EXCEPTION
848: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
849: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Value: '||p_fund_value);
850: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Dept Id: '||p_dept_id);
851: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Bureau Id: '||p_bureau_id);
852: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Fund Group: '||p_fund_group);
853: END IF;
854:
855: EXCEPTION
856: WHEN NO_DATA_FOUND THEN
855: EXCEPTION
856: WHEN NO_DATA_FOUND THEN
857: gbl_error_buf := l_module_name||' No fund group data found for fund : ' || p_fund_value;
858: IF ( FND_LOG.LEVEL_EVENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
859: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_EVENT, l_module_name,gbl_error_buf);
860: END IF;
861:
862: WHEN OTHERS THEN
863: gbl_error_code := -1 ;
862: WHEN OTHERS THEN
863: gbl_error_code := -1 ;
864: gbl_error_buf := l_module_name||' - When others exception - '||
865: to_char(SQLCODE) || ' - ' || SQLERRM ;
866: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
867:
868: END get_fund_group_info;
869: --------------------------------------------------------------------------------
870: -- PROCEDURE POPULATE_TEMP2
900:
901: l_module_name := g_module_name||' POPULATE_TEMP2';
902:
903: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
904: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
905: 'Inserting a record in T2 for record_category :'||p_record_category||' for ccid: '||p_ccid);
906: END IF;
907:
908: INSERT INTO fv_facts_report_t2
958: WHEN OTHERS THEN
959: gbl_error_code := -1;
960: gbl_error_buf := l_module_name||' - When others exception -'||
961: to_char(SQLCODE) || ' - ' || SQLERRM;
962: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
963:
964: END populate_temp2;
965: --------------------------------------------------------------------------------
966: -- PROCEDURE GET_USSGL_ACCT_NUM
999:
1000: BEGIN
1001:
1002: l_module_name := g_module_name || 'GET_USSGL_ACCT_NUM';
1003: --FV_UTILITY.LOG_MESG('In '||l_module_name);
1004:
1005: l_exists := NULL;
1006: l_ussgl_enabled := NULL;
1007: l_reporting_type := NULL;
1135: gbl_error_code := -1;
1136: gbl_error_buf := l_module_name||' - When others error: '||SQLERRM;
1137: --fnd_file.put_line(fnd_file.log , 'first other error raised due to check in
1138: -- fv_facts_attributs or fund_parameter in [GET_USSGL_ACCOUNT_NUM]');
1139: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1140: RETURN;
1141: END;
1142:
1143: ELSE -- account is not a ussgl_account
1363: P_BSF_EXCEPTION := NULL;
1364: P_ENE_EXCEPTION := NULL;
1365: P_CNC_EXCEPTION := NULL;
1366: P_EXCEPTION_CATEGORY:= 'PROP_ACCT_NOT_SETUP';
1367: -- FV_UTILITY.LOG_MESG('WHEN invalid number during facts-attibutes
1368: --found for'||p_acct_num||' So returning with prop_acct_not_setup');
1369: RETURN;
1370: END;
1371: END IF; -- End IF of l_exists
1457: so will exit the process:' || p_acct_num );
1458: gbl_error_code := -1;
1459: gbl_error_buf := l_module_name||' - Final when others '||SQLERRM;
1460: RETURN;
1461: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1462:
1463: END GET_USSGL_ACCT_NUM ;
1464: --------------------------------------------------------------------------------
1465: -- FUNCTION GET_ACCOUNT_TYPE
1474:
1475: BEGIN
1476:
1477: l_module_name := g_module_name||'GET_ACCOUNT_TYPE';
1478: --FV_UTILITY.LOG_MESG('In '||l_module_name);
1479:
1480: SELECT SUBSTR(compiled_value_attributes, 5, 1)
1481: INTO l_account_type
1482: FROM fnd_flex_values
1489: WHEN Others THEN
1490: gbl_error_code := -1 ;
1491: gbl_error_buf := l_module_name||' - When others exception - ' ||
1492: TO_CHAR(SQLCODE) || ' - ' ||SQLERRM ;
1493: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1494: END get_account_type;
1495: --------------------------------------------------------------------------------
1496: -- PROCEDURE GET_USSGL_INFO
1497: --------------------------------------------------------------------------------
1505: l_module_name VARCHAR2(200);
1506:
1507: BEGIN
1508: l_module_name := g_module_name || 'GET_USSGL_INFO';
1509: --FV_UTILITY.LOG_MESG('In '||l_module_name);
1510:
1511: SELECT ussgl_enabled_flag, reporting_type
1512: INTO p_enabled_flag, p_reporting_type
1513: FROM fv_facts_ussgl_accounts
1518:
1519: WHEN OTHERS THEN
1520: gbl_error_code := -1;
1521: gbl_error_buf := SQLERRM;
1522: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1523: RETURN;
1524: END get_ussgl_info;
1525: --------------------------------------------------------------------------------
1526: -- FUNCTION EDIT_CHECK
1550:
1551: BEGIN
1552:
1553: l_module_name := g_module_name || 'EDIT_CHECK';
1554: FV_UTILITY.LOG_MESG('In '||l_module_name);
1555:
1556: BEGIN
1557: select name into l_ledger_name
1558: from gl_ledgers_public_v where ledger_id=p_set_of_books_id;
1560: WHEN OTHERS THEN
1561: l_ledger_name:= FND_PROFILE.VALUE('GL_SET_OF_BKS_NAME');
1562:
1563: END;
1564: FV_UTILITY.LOG_MESG('EDIT_CHECK : l_ledger_name-> '||l_ledger_name);
1565: l_edit_check_passed := 'Y';
1566:
1567: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'FACTS I Edit Checks');
1568: FND_FILE.PUT_LINE(FND_FILE.OUTPUT, 'Set of Books: ' || l_ledger_name);
1619: EXCEPTION
1620: WHEN OTHERS THEN
1621: gbl_error_code := -1;
1622: gbl_error_buf := l_module_name||' - When others error '||SQLERRM;
1623: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1624: RAISE;
1625:
1626: END EDIT_CHECK;
1627: --------------------------------------------------------------------------------
1634:
1635: BEGIN
1636:
1637: l_module_name := g_module_name || 'CREATE_END_BAL_RECORD';
1638: FV_UTILITY.LOG_MESG('In '||l_module_name);
1639:
1640: INSERT INTO FV_FACTS_ENDING_BALANCES
1641: (fund_group,
1642: account_number,
1692: t2.cust_non_cust, t2.budget_subfunction, t2.d_c_indicator,
1693: t2.fund_value, t2.ccid, t2.account_type, t2.recipient_name
1694: HAVING SUM(NVL(amount,0)) <> 0) ;
1695:
1696: fv_utility.log_mesg('Inserted '||SQL%ROWCOUNT ||' recs into fv_facts_ending_balances.');
1697:
1698: EXCEPTION
1699: WHEN OTHERS THEN
1700: gbl_error_code := -1;
1698: EXCEPTION
1699: WHEN OTHERS THEN
1700: gbl_error_code := -1;
1701: gbl_error_buf := l_module_name||' - When others error '||SQLERRM;
1702: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, gbl_error_buf);
1703: RAISE;
1704:
1705: END create_end_bal_record;
1706: --------------------------------------------------------------------------------
1712:
1713: BEGIN
1714:
1715: l_module_name := g_module_name || 'CLEANUP_PROCESS';
1716: FV_UTILITY.LOG_MESG('In '||l_module_name);
1717:
1718:
1719: DELETE FROM fv_facts_report_t2
1720: WHERE set_of_books_id = gbl_set_of_books_id;
1719: DELETE FROM fv_facts_report_t2
1720: WHERE set_of_books_id = gbl_set_of_books_id;
1721:
1722: /** cleanup the line balance differrence records */
1723: FV_UTILITY.LOG_MESG('Deleting from fv_facts1_diff_balances for Period Year: '||
1724: gbl_period_year);
1725:
1726: DELETE FROM fv_facts1_diff_balances
1727: WHERE set_of_books_id = gbl_set_of_books_id
1728: and period_year = gbl_period_year
1729: and balance_type IN ('B', 'D');
1730: --and balance_type = 'D';
1731:
1732: FV_UTILITY.LOG_MESG('Deleted '||SQL%ROWCOUNT||
1733: ' records from fv_facts1_diff_balances.');
1734:
1735: EXCEPTION
1736: WHEN OTHERS THEN
1735: EXCEPTION
1736: WHEN OTHERS THEN
1737: gbl_error_code := -1 ;
1738: gbl_error_buf := l_module_name||' - When others exception - '||SQLERRM;
1739: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name,gbl_error_buf);
1740: END;
1741: --------------------------------------------------------------------------------
1742: PROCEDURE JOURNAL_PROCESSES
1743: IS
1831: WHEN OTHERS THEN
1832: gbl_error_code := SQLCODE;
1833: gbl_error_buf := SQLERRM || '-- [JOURNAL_PROCESS]';
1834: fnd_file.put_line(fnd_file.log , gbl_error_buf);
1835: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',gbl_error_buf);
1836: END JOURNAL_PROCESSES;
1837:
1838: --------------------------------------------------------------------------------------------------------
1839: PROCEDURE TRIAL_BALANCE_MAIN (p_errbuf OUT NOCOPY Varchar2,
1875: gbl_attribute_set := p_attribute_set;
1876: gbl_output_format := p_output_format;
1877:
1878: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SET OF BOOKS ID - '|| GBL_SET_OF_BOOKS_ID);
1880: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY CODE - '|| GBL_CURRENCY_CODE);
1881: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1882: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1883: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1876: gbl_output_format := p_output_format;
1877:
1878: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SET OF BOOKS ID - '|| GBL_SET_OF_BOOKS_ID);
1880: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY CODE - '|| GBL_CURRENCY_CODE);
1881: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1882: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1883: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1877:
1878: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SET OF BOOKS ID - '|| GBL_SET_OF_BOOKS_ID);
1880: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY CODE - '|| GBL_CURRENCY_CODE);
1881: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1882: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1883: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1885: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1878: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SET OF BOOKS ID - '|| GBL_SET_OF_BOOKS_ID);
1880: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY CODE - '|| GBL_CURRENCY_CODE);
1881: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1882: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1883: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1885: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'SET OF BOOKS ID - '|| GBL_SET_OF_BOOKS_ID);
1880: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY CODE - '|| GBL_CURRENCY_CODE);
1881: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1882: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1883: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1885: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1887: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1880: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'CURRENCY CODE - '|| GBL_CURRENCY_CODE);
1881: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1882: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1883: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1885: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1887: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1881: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PERIOD NAME - '|| P_PERIOD_NAME);
1882: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1883: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1885: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1887: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1889: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OUTPUT FORMAT - '|| GBL_OUTPUT_FORMAT);
1882: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1883: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1885: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1887: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1889: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OUTPUT FORMAT - '|| GBL_OUTPUT_FORMAT);
1890: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1883: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'TRIAL BALANCE TYPE - '|| GBL_TRIAL_BALANCE_TYPE);
1884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1885: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1887: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1889: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OUTPUT FORMAT - '|| GBL_OUTPUT_FORMAT);
1890: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1891: END IF;
1884: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE LOW - '|| GBL_FUND_RANGE_LOW);
1885: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1887: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1889: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OUTPUT FORMAT - '|| GBL_OUTPUT_FORMAT);
1890: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1891: END IF;
1892:
1885: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'FUND RANGE HIGH - '|| GBL_FUND_RANGE_HIGH);
1886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1887: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1889: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OUTPUT FORMAT - '|| GBL_OUTPUT_FORMAT);
1890: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1891: END IF;
1892:
1893: --Getting the period number
1886: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1887: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT ID - '|| GBL_REPORT_ID);
1888: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ATTRIBUTE SET - '|| GBL_ATTRIBUTE_SET);
1889: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'OUTPUT FORMAT - '|| GBL_OUTPUT_FORMAT);
1890: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1891: END IF;
1892:
1893: --Getting the period number
1894: BEGIN
1917: EXCEPTION
1918: WHEN NO_DATA_FOUND THEN
1919: gbl_error_code := -1;
1920: gbl_error_buf := l_module_name||' No data found getting period num/year.';
1921: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
1922:
1923: WHEN OTHERS THEN
1924: gbl_error_code := -1;
1925: gbl_error_buf := l_module_name||' When others error getting period num/year.';
1922:
1923: WHEN OTHERS THEN
1924: gbl_error_code := -1;
1925: gbl_error_buf := l_module_name||' When others error getting period num/year.';
1926: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1927: END;
1928:
1929: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1930: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Period Num - '||gbl_period_num);
1926: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
1927: END;
1928:
1929: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1930: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Period Num - '||gbl_period_num);
1931: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Period Year - '||gbl_period_year);
1932: END IF;
1933:
1934: -- Purge Temp tables
1927: END;
1928:
1929: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1930: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Period Num - '||gbl_period_num);
1931: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Period Year - '||gbl_period_year);
1932: END IF;
1933:
1934: -- Purge Temp tables
1935: CLEANUP_PROCESS;
1936:
1937: -- get_segment_names;
1938:
1939: IF gbl_error_code = 0 THEN
1940: fv_utility.log_mesg('Calling Facts Attributes Creation process.');
1941: SET_UP_FACTS_ATTRIBUTES(l_errbuf ,
1942: l_retcode ,
1943: gbl_set_of_books_id ,
1944: gbl_fiscal_year);
1951: /*
1952: IF (gbl_error_code = 0)
1953: THEN
1954: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1955: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1956: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING JOURNAL_PROCESS ...');
1957: END IF;
1958: JOURNAL_PROCESSES;
1959: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1952: IF (gbl_error_code = 0)
1953: THEN
1954: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1955: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1956: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING JOURNAL_PROCESS ...');
1957: END IF;
1958: JOURNAL_PROCESSES;
1959: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1960: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING JOURNAL_PROCESS ...');
1956: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING JOURNAL_PROCESS ...');
1957: END IF;
1958: JOURNAL_PROCESSES;
1959: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1960: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING JOURNAL_PROCESS ...');
1961: END IF;
1962: END IF;
1963: */
1964: -------------------------
1965:
1966: IF (gbl_error_code = 0)
1967: THEN
1968: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1969: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING ROLLUP_PROCESS ...');
1971: END IF;
1972: ROLLUP_PROCESS;
1973: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1966: IF (gbl_error_code = 0)
1967: THEN
1968: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1969: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
1970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING ROLLUP_PROCESS ...');
1971: END IF;
1972: ROLLUP_PROCESS;
1973: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING ROLLUP_PROCESS ...');
1970: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'ENTERING ROLLUP_PROCESS ...');
1971: END IF;
1972: ROLLUP_PROCESS;
1973: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1974: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LEAVING ROLLUP_PROCESS ...');
1975: END IF;
1976: END IF;
1977:
1978: IF (gbl_error_code = 0)
1977:
1978: IF (gbl_error_code = 0)
1979: THEN
1980: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1981: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
1982: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LAUNCHING THE FACTS I TRIAL BALANCE RXI REPORT ...');
1983: END IF;
1984: --Get the ledger name to be printed
1985: --on the rxi report, using this select
1978: IF (gbl_error_code = 0)
1979: THEN
1980: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1981: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' ');
1982: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'LAUNCHING THE FACTS I TRIAL BALANCE RXI REPORT ...');
1983: END IF;
1984: --Get the ledger name to be printed
1985: --on the rxi report, using this select
1986: --since teh profile was getting a different
2005: IF (l_req_id = 0)
2006: THEN
2007: gbl_error_buf := '** Cannot submit FACTS I Trial Balance RXi report **';
2008: gbl_error_code := '-1';
2009: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error4',gbl_error_buf);
2010: ELSE
2011: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2012: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT REQUEST ID = '||L_REQ_ID);
2013: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
2008: gbl_error_code := '-1';
2009: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error4',gbl_error_buf);
2010: ELSE
2011: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2012: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT REQUEST ID = '||L_REQ_ID);
2013: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
2014: END IF;
2015: END IF;
2016: END IF;
2009: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error4',gbl_error_buf);
2010: ELSE
2011: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2012: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'REPORT REQUEST ID = '||L_REQ_ID);
2013: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'');
2014: END IF;
2015: END IF;
2016: END IF;
2017:
2029: WHEN OTHERS THEN
2030: p_retcode := '-1' ;
2031: p_errbuf := SQLERRM ||
2032: ' -- Error in Trial_Balance_Main';
2033: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',p_errbuf);
2034: END TRIAL_BALANCE_MAIN;
2035: --------------------------------------------------------------------------------
2036: -- PROCEDURE ROLLUP_PROCESS
2037: --------------------------------------------------------------------------------
2062: END IF;
2063: END LOOP;
2064:
2065: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2066: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP BY CLAUSE IS: '|| L_GROUP_BY);
2067: END IF;
2068:
2069: fv_utility.log_mesg('GROUP BY CLAUSE IS: '|| L_GROUP_BY);
2070:
2065: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2066: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' GROUP BY CLAUSE IS: '|| L_GROUP_BY);
2067: END IF;
2068:
2069: fv_utility.log_mesg('GROUP BY CLAUSE IS: '|| L_GROUP_BY);
2070:
2071: l_statement := '
2072: INSERT INTO fv_facts_report_t2
2073: ( fund_group,
2120: g_ng_indicator, ussgl_account, exch_non_exch, cust_non_cust, budget_subfunction,
2121: --period_num, bug 8498455
2122: fund_value'|| l_group_by ||')';
2123:
2124: fv_utility.log_mesg(l_statement);
2125: fv_utility.log_mesg('l_group_by: '||l_group_by);
2126: fv_utility.log_mesg('gbl_period_num_high: '||gbl_period_num_high);
2127: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2128: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2121: --period_num, bug 8498455
2122: fund_value'|| l_group_by ||')';
2123:
2124: fv_utility.log_mesg(l_statement);
2125: fv_utility.log_mesg('l_group_by: '||l_group_by);
2126: fv_utility.log_mesg('gbl_period_num_high: '||gbl_period_num_high);
2127: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2128: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2129: fv_utility.log_mesg('gbl_fund_range_high: '||gbl_fund_range_high);
2122: fund_value'|| l_group_by ||')';
2123:
2124: fv_utility.log_mesg(l_statement);
2125: fv_utility.log_mesg('l_group_by: '||l_group_by);
2126: fv_utility.log_mesg('gbl_period_num_high: '||gbl_period_num_high);
2127: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2128: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2129: fv_utility.log_mesg('gbl_fund_range_high: '||gbl_fund_range_high);
2130:
2123:
2124: fv_utility.log_mesg(l_statement);
2125: fv_utility.log_mesg('l_group_by: '||l_group_by);
2126: fv_utility.log_mesg('gbl_period_num_high: '||gbl_period_num_high);
2127: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2128: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2129: fv_utility.log_mesg('gbl_fund_range_high: '||gbl_fund_range_high);
2130:
2131: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2124: fv_utility.log_mesg(l_statement);
2125: fv_utility.log_mesg('l_group_by: '||l_group_by);
2126: fv_utility.log_mesg('gbl_period_num_high: '||gbl_period_num_high);
2127: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2128: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2129: fv_utility.log_mesg('gbl_fund_range_high: '||gbl_fund_range_high);
2130:
2131: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'
2125: fv_utility.log_mesg('l_group_by: '||l_group_by);
2126: fv_utility.log_mesg('gbl_period_num_high: '||gbl_period_num_high);
2127: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2128: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2129: fv_utility.log_mesg('gbl_fund_range_high: '||gbl_fund_range_high);
2130:
2131: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'
2133: EXECUTING FOLLOWING STATEMENT IN THE ROLLUP PROCESS, STATMENT LENGTH IS ... '||LENGTH(L_STATEMENT));
2128: fv_utility.log_mesg('gbl_fund_range_low: '||gbl_fund_range_low);
2129: fv_utility.log_mesg('gbl_fund_range_high: '||gbl_fund_range_high);
2130:
2131: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'
2133: EXECUTING FOLLOWING STATEMENT IN THE ROLLUP PROCESS, STATMENT LENGTH IS ... '||LENGTH(L_STATEMENT));
2134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,L_STATEMENT);
2135: END IF;
2136:
2130:
2131: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2132: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'
2133: EXECUTING FOLLOWING STATEMENT IN THE ROLLUP PROCESS, STATMENT LENGTH IS ... '||LENGTH(L_STATEMENT));
2134: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,L_STATEMENT);
2135: END IF;
2136:
2137: 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;
2138:
2144: WHEN NO_DATA_FOUND THEN
2145: gbl_error_code := -1;
2146: gbl_error_buf := SQLERRM ||
2147: ' -- Error in Rollup_Process';
2148: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
2149:
2150: WHEN OTHERS THEN
2151: gbl_error_code := -1 ;
2152: gbl_error_buf := SQLERRM ||
2150: WHEN OTHERS THEN
2151: gbl_error_code := -1 ;
2152: gbl_error_buf := SQLERRM ||
2153: ' -- Error in Rollup_Process';
2154: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||
2155: '.final_exception',gbl_error_buf);
2156: END ROLLUP_PROCESS;
2157: --------------------------------------------------------------------------------
2158: PROCEDURE SET_UP_FACTS_ATTRIBUTES(p_err_buf OUT NOCOPY VARCHAR2,
2296:
2297: p_err_code := 0;
2298: p_err_buf := null;
2299: l_module_name := g_module_name||'SET_UP_FACTS_ATTRIBUTES';
2300: FV_UTILITY.LOG_MESG('In '||l_module_name);
2301:
2302: gbl_set_of_books_id := p_set_of_books_id;
2303: gbl_fiscal_year := p_period_year;
2304:
2313: when no_data_found then
2314: l_populate_flag := 'Y';
2315: End;
2316:
2317: FV_UTILITY.LOG_MESG('Deleting records from fv_facts_report_t2.');
2318: DELETE FROM fv_facts_report_t2
2319: WHERE set_of_books_id = gbl_set_of_books_id;
2320:
2321:
2360: l_period_num_high := gbl_period_num_high;
2361: l_period_num_low := gbl_period_num_low;
2362:
2363:
2364: FV_UTILITY.LOG_MESG('Period Num Low: '||l_period_num_low);
2365: FV_UTILITY.LOG_MESG('Period Num High: '||l_period_num_high);
2366: FV_UTILITY.LOG_MESG('High Period Name: '||gbl_period_name);
2367:
2368:
2361: l_period_num_low := gbl_period_num_low;
2362:
2363:
2364: FV_UTILITY.LOG_MESG('Period Num Low: '||l_period_num_low);
2365: FV_UTILITY.LOG_MESG('Period Num High: '||l_period_num_high);
2366: FV_UTILITY.LOG_MESG('High Period Name: '||gbl_period_name);
2367:
2368:
2369: SELECT currency_code
2362:
2363:
2364: FV_UTILITY.LOG_MESG('Period Num Low: '||l_period_num_low);
2365: FV_UTILITY.LOG_MESG('Period Num High: '||l_period_num_high);
2366: FV_UTILITY.LOG_MESG('High Period Name: '||gbl_period_name);
2367:
2368:
2369: SELECT currency_code
2370: INTO gbl_currency_code
2369: SELECT currency_code
2370: INTO gbl_currency_code
2371: FROM gl_ledgers_public_v
2372: WHERE ledger_id = gbl_set_of_books_id;
2373: FV_UTILITY.LOG_MESG('Currency Code: '||gbl_currency_code);
2374:
2375: l_acct_type_condition := ' AND glc.account_type NOT IN ('||''''||'D'||''''||', '||''''||'C'||''''||')';
2376: --Bug 8498455
2377: --Bug 9649419
2406: ||', glc.' || gbl_acc_segment_name
2407: ||' ORDER BY '||'glc.'||gbl_bal_segment_name ||', glc.' || gbl_acc_segment_name;
2408:
2409: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2410: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2411: 'l_select_stmt: '||l_select_stmt);
2412: END IF;
2413:
2414:
2538: END IF;
2539:
2540: l_indx := 0;
2541:
2542: fv_utility.log_mesg('in Deriving attributes ');
2543: IF (l_ccid_l.count = 0 AND l_last_fetch) THEN
2544: EXIT;
2545: END IF;
2546:
2584: END IF;
2585:
2586:
2587: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2588: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2589: '---------------------------------');
2590: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2591: 'Fund Value: '||l_fund_value);
2592: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2586:
2587: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2588: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2589: '---------------------------------');
2590: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2591: 'Fund Value: '||l_fund_value);
2592: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2593: 'Account Number: '|| l_account_number);
2594: END IF;
2588: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2589: '---------------------------------');
2590: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2591: 'Fund Value: '||l_fund_value);
2592: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2593: 'Account Number: '|| l_account_number);
2594: END IF;
2595:
2596: IF (l_exists = 'N') THEN
2609: IF (l_fg_null = 'Y') THEN
2610:
2611:
2612: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2613: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2614: 'Fund group is null.');
2615: END IF;
2616:
2617: POPULATE_TEMP2(0000, ' ', '0', '0', '', '', l_balance_amount, 'D',
2647:
2648: IF (gbl_error_code <> 0) THEN
2649: p_err_code := gbl_error_code;
2650: p_err_buf := gbl_error_buf ;
2651: FV_UTILITY.LOG_MESG('An error occurred in GET_USSGL_ACCT_NUM.
2652: No further processing of FACTS 1 will be done.');
2653: RETURN;
2654: END IF;
2655:
2673: 'PROP_ACCT_FACTSII', 'USSGL_DISABLED',
2674: 'NON_USSGL_ACCT', 'USSGL_MULTIPLE_PARENTS')) THEN
2675:
2676: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2677: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2678: 'Exception: '||l_exception_category);
2679: END IF;
2680:
2681: -- Account segment did not pass SGL validation.
2706: gbl_set_of_books_id, 'E', '', '', '',
2707: l_fund_value, 0, l_ccid, l_account_type, '', 0, 0);
2708:
2709: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2710: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2711: 'Exception: '||l_ene_exception);
2712: END IF;
2713:
2714: END IF;
2720: gbl_set_of_books_id, 'E', '', '', '',
2721: l_fund_value, 0, l_ccid, l_account_type, '', 0, 0);
2722:
2723: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2724: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2725: 'Exception: '||l_cnc_exception);
2726: END IF;
2727:
2728: END IF;
2734: gbl_set_of_books_id, 'E', '', '', '',
2735: l_fund_value, 0, l_ccid, l_account_type, '', 0, 0);
2736:
2737: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2738: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,
2739: 'Exception: '||l_bsf_exception);
2740: END IF;
2741:
2742: END IF;
2750: l_exception_status := 'E';
2751: l_exception_status_l(i) := 'E';
2752:
2753: ELSE --1
2754: fv_utility.log_mesg('*****no exception');
2755: fv_utility.log_mesg('*****l_govt_non_govt_ind:'||l_govt_non_govt_ind);
2756:
2757:
2758: IF l_govt_non_govt_ind IN ('N', 'X') THEN
2751: l_exception_status_l(i) := 'E';
2752:
2753: ELSE --1
2754: fv_utility.log_mesg('*****no exception');
2755: fv_utility.log_mesg('*****l_govt_non_govt_ind:'||l_govt_non_govt_ind);
2756:
2757:
2758: IF l_govt_non_govt_ind IN ('N', 'X') THEN
2759: l_exception_status := '1' ;
2812: AND period_num <= gbl_period_num_high
2813: AND period_year = gbl_fiscal_year;
2814:
2815: IF (l_curr_year_balance <> l_t2_detail_amount) THEN
2816: fv_utility.log_mesg('*****inserting detail difference record');
2817:
2818: -- Insert an exception record if there is a difference in the amount
2819: POPULATE_TEMP2(l_fund_group,
2820: l_account_number,
2827: 0, l_ccid_l(i), l_account_type,
2828: 'Other', 0, 0);
2829:
2830: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Inserting into fv_facts1_diff_balances values: ');
2832: fv_utility.log_mesg('l_ccid_l(i): '||l_ccid_l(i));
2833: fv_utility.log_mesg('gbl_period_num_low: '||gbl_period_num_low);
2834: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2835: fv_utility.log_mesg('gbl_set_of_books_id: '||gbl_set_of_books_id);
2828: 'Other', 0, 0);
2829:
2830: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Inserting into fv_facts1_diff_balances values: ');
2832: fv_utility.log_mesg('l_ccid_l(i): '||l_ccid_l(i));
2833: fv_utility.log_mesg('gbl_period_num_low: '||gbl_period_num_low);
2834: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2835: fv_utility.log_mesg('gbl_set_of_books_id: '||gbl_set_of_books_id);
2836: fv_utility.log_mesg('balance_type: D');
2829:
2830: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Inserting into fv_facts1_diff_balances values: ');
2832: fv_utility.log_mesg('l_ccid_l(i): '||l_ccid_l(i));
2833: fv_utility.log_mesg('gbl_period_num_low: '||gbl_period_num_low);
2834: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2835: fv_utility.log_mesg('gbl_set_of_books_id: '||gbl_set_of_books_id);
2836: fv_utility.log_mesg('balance_type: D');
2837: END IF;
2830: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Inserting into fv_facts1_diff_balances values: ');
2832: fv_utility.log_mesg('l_ccid_l(i): '||l_ccid_l(i));
2833: fv_utility.log_mesg('gbl_period_num_low: '||gbl_period_num_low);
2834: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2835: fv_utility.log_mesg('gbl_set_of_books_id: '||gbl_set_of_books_id);
2836: fv_utility.log_mesg('balance_type: D');
2837: END IF;
2838:
2831: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Inserting into fv_facts1_diff_balances values: ');
2832: fv_utility.log_mesg('l_ccid_l(i): '||l_ccid_l(i));
2833: fv_utility.log_mesg('gbl_period_num_low: '||gbl_period_num_low);
2834: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2835: fv_utility.log_mesg('gbl_set_of_books_id: '||gbl_set_of_books_id);
2836: fv_utility.log_mesg('balance_type: D');
2837: END IF;
2838:
2839: INSERT INTO fv_facts1_diff_balances
2832: fv_utility.log_mesg('l_ccid_l(i): '||l_ccid_l(i));
2833: fv_utility.log_mesg('gbl_period_num_low: '||gbl_period_num_low);
2834: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2835: fv_utility.log_mesg('gbl_set_of_books_id: '||gbl_set_of_books_id);
2836: fv_utility.log_mesg('balance_type: D');
2837: END IF;
2838:
2839: INSERT INTO fv_facts1_diff_balances
2840: (
2881: AND fund_value = l_fund_value
2882: AND account_type IN ('A','L','O');
2883:
2884: IF l_begin_bal_l(i) <> l_ending_amount THEN
2885: fv_utility.log_mesg('*****inserting end bal difference record');
2886: -- Insert an exception record if there is a difference in the amount
2887: POPULATE_TEMP2(l_fund_group,
2888: l_account_number,
2889: l_dept_id, l_bureau_id,
2894: l_budget_subfunction, l_fund_value,
2895: 0, l_ccid_l(i), l_account_type,
2896: 'Other', 0, 0);
2897: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2898: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Inserting into fv_facts1_diff_balances values: ');
2899: fv_utility.log_mesg('l_ccid_l(i): '||l_ccid_l(i));
2900: fv_utility.log_mesg('gbl_period_num_low: '||gbl_period_num_low);
2901: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2902: fv_utility.log_mesg('gbl_set_of_books_id: '||gbl_set_of_books_id);
2895: 0, l_ccid_l(i), l_account_type,
2896: 'Other', 0, 0);
2897: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2898: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Inserting into fv_facts1_diff_balances values: ');
2899: fv_utility.log_mesg('l_ccid_l(i): '||l_ccid_l(i));
2900: fv_utility.log_mesg('gbl_period_num_low: '||gbl_period_num_low);
2901: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2902: fv_utility.log_mesg('gbl_set_of_books_id: '||gbl_set_of_books_id);
2903: fv_utility.log_mesg('balance_type: B');
2896: 'Other', 0, 0);
2897: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2898: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Inserting into fv_facts1_diff_balances values: ');
2899: fv_utility.log_mesg('l_ccid_l(i): '||l_ccid_l(i));
2900: fv_utility.log_mesg('gbl_period_num_low: '||gbl_period_num_low);
2901: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2902: fv_utility.log_mesg('gbl_set_of_books_id: '||gbl_set_of_books_id);
2903: fv_utility.log_mesg('balance_type: B');
2904: END IF;
2897: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2898: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Inserting into fv_facts1_diff_balances values: ');
2899: fv_utility.log_mesg('l_ccid_l(i): '||l_ccid_l(i));
2900: fv_utility.log_mesg('gbl_period_num_low: '||gbl_period_num_low);
2901: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2902: fv_utility.log_mesg('gbl_set_of_books_id: '||gbl_set_of_books_id);
2903: fv_utility.log_mesg('balance_type: B');
2904: END IF;
2905:
2898: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name, 'Inserting into fv_facts1_diff_balances values: ');
2899: fv_utility.log_mesg('l_ccid_l(i): '||l_ccid_l(i));
2900: fv_utility.log_mesg('gbl_period_num_low: '||gbl_period_num_low);
2901: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2902: fv_utility.log_mesg('gbl_set_of_books_id: '||gbl_set_of_books_id);
2903: fv_utility.log_mesg('balance_type: B');
2904: END IF;
2905:
2906: INSERT INTO fv_facts1_diff_balances
2899: fv_utility.log_mesg('l_ccid_l(i): '||l_ccid_l(i));
2900: fv_utility.log_mesg('gbl_period_num_low: '||gbl_period_num_low);
2901: fv_utility.log_mesg('gbl_fiscal_year: '||gbl_fiscal_year);
2902: fv_utility.log_mesg('gbl_set_of_books_id: '||gbl_set_of_books_id);
2903: fv_utility.log_mesg('balance_type: B');
2904: END IF;
2905:
2906: INSERT INTO fv_facts1_diff_balances
2907: (ccid,period_num,period_year,set_of_books_id,
2929: ----------------------------------------------------
2930: END LOOP; /* for i loop */
2931:
2932:
2933: FV_UTILITY.log_MESG('Inserting no of new records ' || l_indx);
2934: FORALL i IN 1 .. l_indx
2935: INSERT INTO fv_facts1_period_attributes
2936: ( period_year,
2937: period_num,
2987:
2988:
2989: -- Update facts attributes in fv_facts1_period_attributes
2990:
2991: FV_UTILITY.log_MESG( 'Updating records ' || (l_ccid_l.count - l_indx));
2992:
2993: FORALL i IN l_ccid_l.first .. l_ccid_l.last
2994: UPDATE fv_facts1_period_attributes
2995: SET ussgl_account = l_sgl_acct_num_l(i),
3015: and set_of_books_id = gbl_set_of_books_id
3016: and l_new_record_l(i) = 'N';
3017: END LOOP;
3018:
3019: FV_UTILITY.LOG_MESG('No of CCID processed ' || l_rec_count);
3020:
3021: IF l_rec_count <> 0 THEN
3022:
3023: l_exception_count := 0;
3033: AND amount <> 0 ;
3034:
3035:
3036: if l_exception_count > 0 then
3037: FV_UTILITY.LOG_MESG('Set up Facts Attributes completed wth exceptions');
3038: p_err_code := 0;
3039: p_err_buf := 'Set up Facts Attributes completed with exceptions.';
3040: l_run_status := 'E';
3041: --gbl_exception_exists := 'Y';
3041: --gbl_exception_exists := 'Y';
3042: --submit_exception_report;
3043: else
3044: l_run_status := 'U';
3045: FV_UTILITY.LOG_MESG('Set up Facts Attributes completed successfully');
3046: p_err_buf := 'Set up Facts Attributes completed successfully.';
3047: END IF;
3048:
3049: ELSE -- l_rec_count
3047: END IF;
3048:
3049: ELSE -- l_rec_count
3050: l_run_status := 'U';
3051: FV_UTILITY.LOG_MESG('No data found for this period year.');
3052: END IF;
3053:
3054:
3055: -- Update fv_facts1_run only if there were records
3054:
3055: -- Update fv_facts1_run only if there were records
3056: -- found for the attribute creation process.
3057: IF l_rec_count > 0 THEN
3058: FV_UTILITY.LOG_MESG('Updating facts1 run status.');
3059: UPDATE fv_facts1_run
3060: SET status = l_run_status,
3061: process_date = sysdate,
3062: run_fed_flag = 'I',
3080: WHEN OTHERS THEN
3081: p_err_code := -1;
3082: p_err_buf := l_module_name||' When others exception: '
3083: ||to_char(SQLCODE) || ' - ' || SQLERRM;
3084: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
3085:
3086: END set_up_facts_attributes;
3087: --------------------------------------------------------------------------------
3088: PROCEDURE update_facts1_run(p_period_year in VARCHAR2,
3095:
3096: BEGIN
3097:
3098: l_module_name := g_module_name || 'UPDATE_FACTS1_RUN';
3099: FV_UTILITY.LOG_MESG('In '||l_module_name);
3100:
3101: UPDATE fv_facts1_run
3102: SET run_fed_flag = 'A',
3103: process_date = sysdate
3140: WHERE ledger_id = gbl_set_of_books_id;
3141:
3142: if l_posted_date is not null then
3143:
3144: FV_UTILITY.LOG_MESG('Initialzied fv_facts1_run with ' );
3145: FV_UTILITY.LOG_MESG(' from period ' || gbl_period_name);
3146: FV_UTILITY.LOG_MESG(' Header_id ' || l_je_header_id);
3147: FV_UTILITY.LOG_MESG(' posted_date ' || l_posted_date );
3148:
3141:
3142: if l_posted_date is not null then
3143:
3144: FV_UTILITY.LOG_MESG('Initialzied fv_facts1_run with ' );
3145: FV_UTILITY.LOG_MESG(' from period ' || gbl_period_name);
3146: FV_UTILITY.LOG_MESG(' Header_id ' || l_je_header_id);
3147: FV_UTILITY.LOG_MESG(' posted_date ' || l_posted_date );
3148:
3149: INSERT INTO fv_facts1_run(set_of_books_id, fiscal_year, status, table_indicator,process_date,
3142: if l_posted_date is not null then
3143:
3144: FV_UTILITY.LOG_MESG('Initialzied fv_facts1_run with ' );
3145: FV_UTILITY.LOG_MESG(' from period ' || gbl_period_name);
3146: FV_UTILITY.LOG_MESG(' Header_id ' || l_je_header_id);
3147: FV_UTILITY.LOG_MESG(' posted_date ' || l_posted_date );
3148:
3149: INSERT INTO fv_facts1_run(set_of_books_id, fiscal_year, status, table_indicator,process_date,
3150: run_fed_flag ,je_header_id,posted_date)
3143:
3144: FV_UTILITY.LOG_MESG('Initialzied fv_facts1_run with ' );
3145: FV_UTILITY.LOG_MESG(' from period ' || gbl_period_name);
3146: FV_UTILITY.LOG_MESG(' Header_id ' || l_je_header_id);
3147: FV_UTILITY.LOG_MESG(' posted_date ' || l_posted_date );
3148:
3149: INSERT INTO fv_facts1_run(set_of_books_id, fiscal_year, status, table_indicator,process_date,
3150: run_fed_flag ,je_header_id,posted_date)
3151: values(gbl_set_of_books_id, p_period_year, 'A', 'N',sysdate,'A' ,
3152: l_je_header_id ,l_posted_date);
3153: else
3154: gbl_error_code := -1;
3155: gbl_error_buf := 'Cannot determine the inital header_id';
3156: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, gbl_error_buf);
3157: END IF;
3158: Else
3159: gbl_error_code := -1;
3160: gbl_error_buf := 'No Journals exist for year '||p_period_year||' for ledger '||p_set_of_books_id;
3157: END IF;
3158: Else
3159: gbl_error_code := -1;
3160: gbl_error_buf := 'No Journals exist for year '||p_period_year||' for ledger '||p_set_of_books_id;
3161: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, gbl_error_buf);
3162: End if;
3163: END IF;
3164: EXCEPTION
3165: WHEN NO_DATA_FOUND THEN
3167: gbl_error_buf := SQLERRM || 'In UPDATE_FACTS1_RUN - '|| l_stage ;
3168: WHEN OTHERS THEN
3169: gbl_error_code := -1;
3170: gbl_error_buf := SQLERRM || 'When others error in UPDATE_FACTS1_RUN - '||SQLERRM;
3171: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, gbl_error_buf);
3172:
3173: END update_facts1_run;
3174: --------------------------------------------------------------------------------
3175: PROCEDURE submit_exception_report
3196: l_print_option := FND_REQUEST.SET_PRINT_OPTIONS(
3197: printer => l_printer_name,
3198: copies => l_copies);
3199:
3200: FV_UTILITY.LOG_MESG(l_module_name|| ' Launching FACTS I exception report ...');
3201:
3202: l_req_id := FND_REQUEST.SUBMIT_REQUEST
3203: ('FV','FVFACTSE','','',FALSE, l_run_mode, gbl_fiscal_year,
3204: gbl_set_of_books_id, gbl_period_name);
3203: ('FV','FVFACTSE','','',FALSE, l_run_mode, gbl_fiscal_year,
3204: gbl_set_of_books_id, gbl_period_name);
3205:
3206: -- If concurrent request submission failed, abort process
3207: FV_UTILITY.LOG_MESG(l_module_name|| ' Request ID for exception report = '|| TO_CHAR(L_REQ_ID));
3208:
3209: IF (l_req_id = 0) THEN
3210: gbl_error_code := '-1';
3211: gbl_error_buf := 'Cannot submit FACTS Exception report';
3208:
3209: IF (l_req_id = 0) THEN
3210: gbl_error_code := '-1';
3211: gbl_error_buf := 'Cannot submit FACTS Exception report';
3212: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
3213: RETURN;
3214: ELSE
3215: COMMIT;
3216: call_status := Fnd_concurrent.Wait_for_request(l_req_id, 20, 0,
3218: dphase, dstatus, message);
3219: IF call_status = FALSE THEN
3220: gbl_error_buf := 'Cannot wait for the status of FACTS Exception Report';
3221: gbl_error_code := -1;
3222: FV_UTILITY.LOG_MESG(l_module_name||'.error4', gbl_error_buf) ;
3223: RETURN;
3224: END IF;
3225: END IF;
3226:
3286: l_module_name := g_module_name || 'Get_Federal_Accounts';
3287:
3288: gbl_set_of_books_id := p_sob_id;
3289: gbl_fiscal_year := p_run_year;
3290: FV_UTILITY.LOG_MESG('In '||l_module_name);
3291:
3292: gbl_error_code := 0;
3293:
3294: GET_SEGMENT_NAMES;
3295:
3296: IF gbl_error_code <> 0 THEN
3297: p_err_code := gbl_error_code;
3298: p_err_buff := gbl_error_buf;
3299: FV_UTILITY.LOG_MESG('Error in get_segment_names procedure: '||gbl_error_buf);
3300: RETURN;
3301: END IF;
3302:
3303: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
3299: FV_UTILITY.LOG_MESG('Error in get_segment_names procedure: '||gbl_error_buf);
3300: RETURN;
3301: END IF;
3302:
3303: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
3304: FV_UTILITY.LOG_MESG('Accounting Segment: '||gbl_acc_segment_name);
3305: FV_UTILITY.LOG_MESG('Chart of Account ID: '||gbl_coa_id);
3306: FV_UTILITY.LOG_MESG('Account Value Set ID: '||gbl_acc_value_set_id);
3307:
3300: RETURN;
3301: END IF;
3302:
3303: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
3304: FV_UTILITY.LOG_MESG('Accounting Segment: '||gbl_acc_segment_name);
3305: FV_UTILITY.LOG_MESG('Chart of Account ID: '||gbl_coa_id);
3306: FV_UTILITY.LOG_MESG('Account Value Set ID: '||gbl_acc_value_set_id);
3307:
3308: -- Loop through records in FV_FACTS_ATTRIBUTES table with F/Y as Fed_NonFed Attribute
3301: END IF;
3302:
3303: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
3304: FV_UTILITY.LOG_MESG('Accounting Segment: '||gbl_acc_segment_name);
3305: FV_UTILITY.LOG_MESG('Chart of Account ID: '||gbl_coa_id);
3306: FV_UTILITY.LOG_MESG('Account Value Set ID: '||gbl_acc_value_set_id);
3307:
3308: -- Loop through records in FV_FACTS_ATTRIBUTES table with F/Y as Fed_NonFed Attribute
3309: FOR facts_attributes_rec IN facts_attributes_cur
3302:
3303: FV_UTILITY.LOG_MESG('Balancing Segment: '||gbl_bal_segment_name);
3304: FV_UTILITY.LOG_MESG('Accounting Segment: '||gbl_acc_segment_name);
3305: FV_UTILITY.LOG_MESG('Chart of Account ID: '||gbl_coa_id);
3306: FV_UTILITY.LOG_MESG('Account Value Set ID: '||gbl_acc_value_set_id);
3307:
3308: -- Loop through records in FV_FACTS_ATTRIBUTES table with F/Y as Fed_NonFed Attribute
3309: FOR facts_attributes_rec IN facts_attributes_cur
3310: LOOP
3335:
3336: IF gbl_error_code <> 0 THEN
3337: p_err_code := gbl_error_code;
3338: p_err_buff := gbl_error_buf;
3339: FV_UTILITY.LOG_MESG('Error in populate_fv_facts_fed_accounts procedure: '||gbl_error_buf);
3340: RETURN;
3341: END IF;
3342:
3343: EXCEPTION
3364:
3365: IF gbl_error_code <> 0 THEN
3366: p_err_code := gbl_error_code;
3367: p_err_buff := gbl_error_buf;
3368: FV_UTILITY.LOG_MESG('Error in populate_fv_facts_fed_accounts procedure: '||gbl_error_buf);
3369: RETURN;
3370: END IF;
3371:
3372:
3403: where set_of_books_id = gbl_set_of_books_id
3404: AND fiscal_year = gbl_fiscal_year
3405: and jc_flag = 'N';
3406:
3407: fv_utility.log_mesg('The Re run of Federal Account Creation Process , found ' ||
3408: l_no_new_accounts || ' new accounts');
3409:
3410: if l_no_new_accounts > 0 then
3411:
3415: AND period_year = gbl_fiscal_year
3416: and application_id = 101
3417: and period_num = l_period_num;
3418:
3419: fv_utility.log_mesg('Calling Journal Creation process.');
3420: l_req_id := FND_REQUEST.SUBMIT_REQUEST
3421: ('FV','FVFC1JCR','','',FALSE, gbl_set_of_books_id, gbl_period_name,'Y');
3422: FV_UTILITY.LOG_MESG(l_module_name||
3423: ' REQUEST ID FOR JOURNAL CREATION PROCESS = '|| TO_CHAR(L_REQ_ID));
3418:
3419: fv_utility.log_mesg('Calling Journal Creation process.');
3420: l_req_id := FND_REQUEST.SUBMIT_REQUEST
3421: ('FV','FVFC1JCR','','',FALSE, gbl_set_of_books_id, gbl_period_name,'Y');
3422: FV_UTILITY.LOG_MESG(l_module_name||
3423: ' REQUEST ID FOR JOURNAL CREATION PROCESS = '|| TO_CHAR(L_REQ_ID));
3424: IF (l_req_id = 0) THEN
3425: gbl_error_code := -1;
3426: gbl_error_buf := ' Cannot submit FACTS Journal Creation process';
3423: ' REQUEST ID FOR JOURNAL CREATION PROCESS = '|| TO_CHAR(L_REQ_ID));
3424: IF (l_req_id = 0) THEN
3425: gbl_error_code := -1;
3426: gbl_error_buf := ' Cannot submit FACTS Journal Creation process';
3427: fv_utility.log_mesg(gbl_error_buf);
3428: p_err_code := -1;
3429: p_err_buff := gbl_error_buf;
3430: RETURN;
3431: ELSE
3435: dphase, dstatus, message);
3436: IF call_status = FALSE THEN
3437: gbl_error_buf := 'Cannot wait for the status of Journal Creation Process';
3438: gbl_error_code := -1;
3439: FV_UTILITY.LOG_MESG(l_module_name|| '.error4', gbl_error_buf) ;
3440: p_err_code := -1;
3441: p_err_buff := gbl_error_buf;
3442: RETURN;
3443: END IF;
3458: EXCEPTION
3459: WHEN e_Invalid_Acc_segment THEN
3460: p_err_code := 2 ;
3461: p_err_buff := 'GET_FEDERAL_ACCOUNTS -- Error Reading Accounting Segments' ;
3462: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name, p_err_buff);
3463: RETURN;
3464:
3465: WHEN OTHERS THEN
3466: p_err_code := SQLCODE;
3465: WHEN OTHERS THEN
3466: p_err_code := SQLCODE;
3467: p_err_buff := SQLERRM ||
3468: ' -- Error in Get_Federal_Accounts procedure';
3469: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR,
3470: l_module_name||'.exception1',p_err_buff);
3471: RETURN;
3472: END GET_FEDERAL_ACCOUNTS;
3473: -- ------------------------------------------------------------------
3528: WHEN 'F' THEN 'Federal'
3529: WHEN 'Y' THEN 'Federal or Non-Federal'
3530: END;
3531:
3532: -- fv_utility.log_mesg('Account Flag for ' || vg_acct_number
3533: -- || ' moved from ' || vl_dummy || ' To ' || vg_fed_nonfed);
3534: fnd_file.put_line(fnd_file.output, RPAD(vg_acct_number, 31) ||
3535: l_dummy_fed_non_fed || l_fed_non_fed );
3536: End if;
3556: 'N',
3557: gbl_fiscal_year
3558: );
3559:
3560: --fv_utility.log_mesg('Account ' || vg_acct_number || ' Identified as ' || vg_fed_nonfed);
3561:
3562: l_fed_non_fed :=
3563: CASE vg_fed_nonfed
3564: WHEN 'F' THEN RPAD('Federal', 25)
3576: WHEN OTHERS THEN
3577: gbl_error_code := SQLCODE;
3578: gbl_error_buf := SQLERRM ||
3579: ' -- Error in Populate_Fv_Facts_Fed_Accounts procedure';
3580: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||
3581: '.exception1',gbl_error_buf);
3582: END POPULATE_FV_FACTS_FED_ACCOUNTS;
3583: --------------------------------------------------------------------------------
3584: --------------------------------------------------------------------------------