140: gbl_year_established := n_year_established ;
141: gbl_new_established_year := new_established_year ;
142: gbl_request_id := fnd_global.conc_request_id;
143: ---gbl_purge_cancel_flg := purge_cancel_flg;
144: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' Inside Main');
145:
146: SELECT chart_of_accounts_id, period_set_name
147: INTO gbl_account_id , gbl_period_set_name
148: FROM gl_ledgers_public_v GL
163: exception
164: WHEN e_Invalid_Bal_segment THEN
165: retcode := 2 ;
166: errbuf := 'GET SEGMENT NAME - Error Reading Balancing Segments' ;
167: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
168: return;
169: END;
170: ------To get the Accounting Segment Name ------------------------
171: BEGIN
179: exception
180: WHEN e_Invalid_Bal_segment THEN
181: retcode := 2 ;
182: errbuf := 'GET SEGMENT NAME - Error Reading accounting Segments' ;
183: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
184: return;
185: END;
186:
187: ----To get the Accounting Segment Number---------
199: exception
200: WHEN e_Invalid_Bal_segment THEN
201: retcode := 2 ;
202: errbuf := 'GET SEGMENT NUMBER- Error Reading accounting Segments' ;
203: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,errbuf);
204: return;
205: END;
206:
207:
245: exit;
246: end if;
247: IF (n_balance <> 0 ) or (n_cnt > 0) then
248: v_open_flag := 'Y';
249: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'Balance or Unposted Transactions exists for Fund Values against Treasury Symbol: ' || c1_treasury_symb.treasury_symbol );
250:
251: exit;
252: END IF;
253: end loop; ----End of second cursor------
256: end if;
257: if gbl_cursor_cnt =1 then
258: errbuf := ' No Fund value is defined for Treasury Symbol:'||c1_treasury_symb.treasury_symbol;
259: retcode := 1;
260: ---- FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name ,gbl_error_buf);
261: end if;
262: if v_result = false then
263: if gbl_error_code = 0 then
264: Populate_history_tab(c1_treasury_symb.treasury_symbol_id ,v_open_flag);
285: IF (gbl_error_code <> 0) THEN
286: errbuf := gbl_error_buf;
287: retcode := 2;
288: ROLLBACK;
289: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_ERROR, l_module_name || gbl_error_code,gbl_error_buf);
290: return;
291: ELSE
292: COMMIT;
293: /*---------------------------------------------------------------+
308: gbl_cancellation_date) ;
309: IF l_request_id = 0 then
310: gbl_error_code := '2';
311: gbl_error_buf := 'Cannot submit Purge Treasury Symbol Report';
312: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,gbl_error_buf);
313: ELSE
314: COMMIT;
315: END IF;
316:
324: message => v_message);
325: IF v_wait_req_status = FALSE THEN
326: gbl_error_buf := 'Cannot wait for the status of Purge Treasury Symbols Report';
327: retcode := -1;
328: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error4', gbl_error_buf) ;
329: return;
330: END IF;
331:
332: v_req_status := FND_CONCURRENT.GET_REQUEST_STATUS(request_id => l_request_id,
377: l_module_name VARCHAR2(200):='POPULATE_HISTORY_TAB';
378: begin
379: BEGIN
380: ---dbms_output.put_line('inside populate_history_tab');
381: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_statement, l_module_name,' inside populate_history_tab');
382: insert ALL into fv_treasury_symbols_history
383: (treasury_symbol_id,
384: treasury_symbol,
385: set_of_books_id,
443: EXCEPTION
444: WHEN NO_DATA_FOUND THEN
445: gbl_error_code := SQLCODE;
446: gbl_error_buf := SQLERRM ||'-- Error No Data Found in populate_history_tab while populating symbol history table';
447: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
448: return;
449: WHEN OTHERS THEN
450: gbl_error_code := SQLCODE;
451: gbl_error_buf := SQLERRM ||
449: WHEN OTHERS THEN
450: gbl_error_code := SQLCODE;
451: gbl_error_buf := SQLERRM ||
452: ' -- Error in populate_history_tab when Inserting';
453: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
454: return;
455: END;
456: BEGIN
457: insert ALL into fv_fund_parameters_history
514: WHEN NO_DATA_FOUND THEN
515: --gbl_error_code := SQLCODE;
516: --- dbms_output.put_line('No fund found for treasury symbol:'||gbl_treasury_symbol_id);
517: gbl_error_buf := '--No Fund value defined for Treasury_symbol : '||gbl_treasury_symbol_id;
518: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,gbl_error_buf);
519: return;
520: WHEN OTHERS THEN
521: gbl_error_code := SQLCODE;
522: gbl_error_buf := SQLERRM ||
520: WHEN OTHERS THEN
521: gbl_error_code := SQLCODE;
522: gbl_error_buf := SQLERRM ||
523: ' -- Error in populate_history_tab while Inserting';
524: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,gbl_error_buf);
525: return;
526: END;
527: end populate_history_tab;
528:
561: procedure update_history_tab(tres_id number,v_flag varchar2) is
562: l_module_name VARCHAR2(200) := g_module_name || 'UPDATE_HISTORY_TAB';
563: begin
564: ----dbms_output.put_line(' inside update_history_tab');
565: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_statement, l_module_name,' inside update_history_tab');
566: IF v_flag in ('Y','N') then
567: ---dbms_output.put_line(' inside update_history_tab updating for flag <>d');
568: update fv_treasury_symbols_history
569: set open_flag = v_flag ,
606: EXCEPTION
607: WHEN NO_DATA_FOUND THEN
608: gbl_error_code := SQLCODE;
609: gbl_error_buf := SQLERRM;
610: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.final_exception',gbl_error_buf);
611: return;
612: WHEN OTHERS THEN
613: gbl_error_code := SQLCODE;
614: gbl_error_buf := SQLERRM;
611: return;
612: WHEN OTHERS THEN
613: gbl_error_code := SQLCODE;
614: gbl_error_buf := SQLERRM;
615: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.final_exception',gbl_error_buf);
616: return;
617: end update_history_tab;
618:
619: -- *----------------------------------------------------------------------* --
645: where set_of_books_id = gbl_set_of_books_id
646: and treasury_symbol_id = tres_id;*/
647: BEGIN
648: --dbms_output.put_line('inside ins_delete_treasury_symbols');
649: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_statement, l_module_name,' Inside ins_delete_treasury_symbols');
650: gbl_cursor_cnt := 0;
651: for c1 in c1_treas_symbol
652: loop
653: gbl_cursor_cnt := 2;
652: loop
653: gbl_cursor_cnt := 2;
654: gbl_treasury_symbol_id := c1.treasury_symbol_id;
655: IF c1.open_flag = 'Y' then
656: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name,'Unable To Purge Treasury Symbol '||c1.treasury_symbol ||' as Balances or Unposted Transactions found.');
657: -- for c2 in c2_fund_param_hist(c1.treasury_symbol_id)
658: -- loop
659: --- calculate_gl_balances(c2.fund_value,n_balance,n_cnt);
660:
685: WHEN OTHERS THEN
686: gbl_error_code := SQLCODE;
687: gbl_error_buf := SQLERRM ||
688: ' -- Error in Delete_treasury_symbols when deleting treasury symbol' ;
689: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error1',gbl_error_buf);
690: END ins_delete_treasury_symbols;
691:
692: -- *----------------------------------------------------------------------* --
693: -- * PROCEDURE CALCULATE_GL_BALANCES * --
746: WHEN OTHERS THEN
747: gbl_error_code := SQLCODE;
748: gbl_error_buf := SQLERRM ||
749: ' -- Error in Calculate_Gl_Balances when finding balances and transactions for fund value';
750: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error1',gbl_error_buf);
751: END;
752: -------------------------------------------------------------------------------------
753: ------***** To check if there any transaction unposted against the fund value *****------------
754: BEGIN
784: WHEN OTHERS THEN
785: gbl_error_code := SQLCODE;
786: gbl_error_buf := SQLERRM ||
787: ' -- Error in Calculate_Gl_Balances while finding transactions for fund value';
788: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error1',gbl_error_buf);
789: END;
790: END IF;
791: END calculate_gl_balances;
792:
817:
818: gbl_error_code := SQLCODE;
819: gbl_error_buf := SQLERRM ||
820: ' -- Error in get_period_year finding current fiscal year';
821: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_ERROR, l_module_name||'.error1',gbl_error_buf);
822:
823: WHEN OTHERS THEN
824: gbl_error_code := SQLCODE;
825: gbl_error_buf := SQLERRM ||
823: WHEN OTHERS THEN
824: gbl_error_code := SQLCODE;
825: gbl_error_buf := SQLERRM ||
826: ' -- Error in Calculate_Gl_Balances when finding balances and transactions for fund value';
827: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error2',gbl_error_buf);
828: END get_period_year;
829:
830: -- *----------------------------------------------------------------------* --
831: -- * PROCEDURE DELETE_TREASURY_SYMBOLS * --
851: WHEN NO_DATA_FOUND THEN
852: --gbl_error_code := SQLCODE;
853: gbl_error_buf := SQLERRM ||
854: ' -- Error no-data-found of fund value in delete_treasury_symbols for treasury symbol '||gbl_treasury_symbol_id;
855: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error1',gbl_error_buf);
856: WHEN OTHERS THEN
857: gbl_error_code := SQLCODE;
858: gbl_error_buf := SQLERRM ||
859: ' -- Error in delete_treasury_symbols while deleting Treasury symbols from Fund Parameters';
856: WHEN OTHERS THEN
857: gbl_error_code := SQLCODE;
858: gbl_error_buf := SQLERRM ||
859: ' -- Error in delete_treasury_symbols while deleting Treasury symbols from Fund Parameters';
860: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error1',gbl_error_buf);
861: return;
862: END;
863:
864: BEGIN
874: WHEN NO_DATA_FOUND THEN
875: gbl_error_code := SQLCODE;
876: gbl_error_buf := SQLERRM ||
877: ' -- Error no-data-found in delete_treasury_symbols ';
878: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error1',gbl_error_buf);
879: return;
880: WHEN OTHERS THEN
881: gbl_error_code := SQLCODE;
882: gbl_error_buf := SQLERRM ||
880: WHEN OTHERS THEN
881: gbl_error_code := SQLCODE;
882: gbl_error_buf := SQLERRM ||
883: ' -- Error in delete_treasury_symbols while deleting Treasury symbols';
884: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error2',gbl_error_buf);
885: return;
886: END;
887: end delete_treasury_symbols;
888:
894: -- *----------------------------------------------------------------------* --
895: procedure clean_up is
896: l_module_name VARCHAR2(200):= 'CLEAN UP';
897: begin
898: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_statement, l_module_name,' inside clean up procedure');
899:
900: delete from fv_fund_parameters_history ffp
901: where ffp.set_of_books_id = gbl_set_of_books_id
902: and exists ( select treasury_symbol_id
917: WHEN OTHERS THEN
918: gbl_error_code := SQLCODE;
919: gbl_error_buf := SQLERRM ||
920: ' -- Error in clean_up while clearing history tables';
921: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name||'.error2',gbl_error_buf);
922:
923: end clean_up;
924: -------------------------------------------------------------------------------------------------------------
925: