549: vl_group_by_clause := ' GROUP BY gcc.code_combination_id ,' ||SUBSTR(vl_attribute_cols, 2);
550: END IF;
551:
552: BEGIN
553: c_gl_line_cur := DBMS_SQL.OPEN_CURSOR ;
554: EXCEPTION
555: WHEN OTHERS THEN
556: vp_retcode := 2;
557: vp_errbuf := SQLERRM|| ' Open cursor error in Populate_Gl_Interface procedure.';
688:
689: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_select_stmt);
691: END IF;
692: dbms_sql.parse(c_gl_line_cur, l_select_stmt, DBMS_SQL.V7) ;
693: --dbms_sql.bind_variable(c_gl_line_cur,':vg_currency', vg_currency); -- 5570564
694: dbms_sql.bind_variable(c_gl_line_cur,':c_coa', vg_coa_id);
695: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vp_sob_id);
696: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vg_closing_fyr);
689: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
690: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_select_stmt);
691: END IF;
692: dbms_sql.parse(c_gl_line_cur, l_select_stmt, DBMS_SQL.V7) ;
693: --dbms_sql.bind_variable(c_gl_line_cur,':vg_currency', vg_currency); -- 5570564
694: dbms_sql.bind_variable(c_gl_line_cur,':c_coa', vg_coa_id);
695: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vp_sob_id);
696: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vg_closing_fyr);
697: dbms_sql.bind_variable(c_gl_line_cur,':period_set_name', vg_period_set_name);
690: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,l_select_stmt);
691: END IF;
692: dbms_sql.parse(c_gl_line_cur, l_select_stmt, DBMS_SQL.V7) ;
693: --dbms_sql.bind_variable(c_gl_line_cur,':vg_currency', vg_currency); -- 5570564
694: dbms_sql.bind_variable(c_gl_line_cur,':c_coa', vg_coa_id);
695: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vp_sob_id);
696: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vg_closing_fyr);
697: dbms_sql.bind_variable(c_gl_line_cur,':period_set_name', vg_period_set_name);
698: dbms_sql.bind_variable(c_gl_line_cur,':bal_seg_val_opt_code', vg_bal_seg_val_opt_code);
691: END IF;
692: dbms_sql.parse(c_gl_line_cur, l_select_stmt, DBMS_SQL.V7) ;
693: --dbms_sql.bind_variable(c_gl_line_cur,':vg_currency', vg_currency); -- 5570564
694: dbms_sql.bind_variable(c_gl_line_cur,':c_coa', vg_coa_id);
695: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vp_sob_id);
696: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vg_closing_fyr);
697: dbms_sql.bind_variable(c_gl_line_cur,':period_set_name', vg_period_set_name);
698: dbms_sql.bind_variable(c_gl_line_cur,':bal_seg_val_opt_code', vg_bal_seg_val_opt_code);
699:
692: dbms_sql.parse(c_gl_line_cur, l_select_stmt, DBMS_SQL.V7) ;
693: --dbms_sql.bind_variable(c_gl_line_cur,':vg_currency', vg_currency); -- 5570564
694: dbms_sql.bind_variable(c_gl_line_cur,':c_coa', vg_coa_id);
695: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vp_sob_id);
696: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vg_closing_fyr);
697: dbms_sql.bind_variable(c_gl_line_cur,':period_set_name', vg_period_set_name);
698: dbms_sql.bind_variable(c_gl_line_cur,':bal_seg_val_opt_code', vg_bal_seg_val_opt_code);
699:
700: vl_exec_cur := dbms_sql.EXECUTE(c_gl_line_cur);
693: --dbms_sql.bind_variable(c_gl_line_cur,':vg_currency', vg_currency); -- 5570564
694: dbms_sql.bind_variable(c_gl_line_cur,':c_coa', vg_coa_id);
695: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vp_sob_id);
696: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vg_closing_fyr);
697: dbms_sql.bind_variable(c_gl_line_cur,':period_set_name', vg_period_set_name);
698: dbms_sql.bind_variable(c_gl_line_cur,':bal_seg_val_opt_code', vg_bal_seg_val_opt_code);
699:
700: vl_exec_cur := dbms_sql.EXECUTE(c_gl_line_cur);
701:
694: dbms_sql.bind_variable(c_gl_line_cur,':c_coa', vg_coa_id);
695: dbms_sql.bind_variable(c_gl_line_cur,':sob_id', vp_sob_id);
696: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vg_closing_fyr);
697: dbms_sql.bind_variable(c_gl_line_cur,':period_set_name', vg_period_set_name);
698: dbms_sql.bind_variable(c_gl_line_cur,':bal_seg_val_opt_code', vg_bal_seg_val_opt_code);
699:
700: vl_exec_cur := dbms_sql.EXECUTE(c_gl_line_cur);
701:
702: fnd_file.put_line(FND_FILE.LOG,'No of Records inserted into GL_interface :' || to_char(vl_exec_cur));
696: dbms_sql.bind_variable(c_gl_line_cur,':closing_fyr', vg_closing_fyr);
697: dbms_sql.bind_variable(c_gl_line_cur,':period_set_name', vg_period_set_name);
698: dbms_sql.bind_variable(c_gl_line_cur,':bal_seg_val_opt_code', vg_bal_seg_val_opt_code);
699:
700: vl_exec_cur := dbms_sql.EXECUTE(c_gl_line_cur);
701:
702: fnd_file.put_line(FND_FILE.LOG,'No of Records inserted into GL_interface :' || to_char(vl_exec_cur));
703: EXCEPTION
704: WHEN OTHERS THEN
707: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,vp_errbuf);
708: RAISE e_error;
709: END ;
710:
711: IF dbms_sql.is_open(c_gl_line_cur) THEN
712: dbms_sql.close_cursor(c_gl_line_cur);
713: END IF;
714: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
715: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SUBMITTING JOURNAL IMPORT.');
708: RAISE e_error;
709: END ;
710:
711: IF dbms_sql.is_open(c_gl_line_cur) THEN
712: dbms_sql.close_cursor(c_gl_line_cur);
713: END IF;
714: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
715: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' SUBMITTING JOURNAL IMPORT.');
716: END IF;
720: END IF;
721:
722: EXCEPTION
723: WHEN e_error THEN
724: IF dbms_sql.is_open(c_gl_line_cur) THEN
725: dbms_sql.close_cursor(c_gl_line_cur);
726: END IF;
727: RETURN;
728: WHEN OTHERS THEN
721:
722: EXCEPTION
723: WHEN e_error THEN
724: IF dbms_sql.is_open(c_gl_line_cur) THEN
725: dbms_sql.close_cursor(c_gl_line_cur);
726: END IF;
727: RETURN;
728: WHEN OTHERS THEN
729: IF dbms_sql.is_open(c_gl_line_cur) THEN
725: dbms_sql.close_cursor(c_gl_line_cur);
726: END IF;
727: RETURN;
728: WHEN OTHERS THEN
729: IF dbms_sql.is_open(c_gl_line_cur) THEN
730: dbms_sql.close_cursor(c_gl_line_cur);
731: END IF;
732: vp_retcode := 2 ;
733: vp_errbuf := l_select_stmt || SQLERRM||' -- Error in Get_Balances procedure.';
726: END IF;
727: RETURN;
728: WHEN OTHERS THEN
729: IF dbms_sql.is_open(c_gl_line_cur) THEN
730: dbms_sql.close_cursor(c_gl_line_cur);
731: END IF;
732: vp_retcode := 2 ;
733: vp_errbuf := l_select_stmt || SQLERRM||' -- Error in Get_Balances procedure.';
734: RETURN ;