112: END IF;
113: Get_Period_Details;
114: END IF;
115: IF (vp_retcode = 0) THEN
116: -- Clean up gl_interface table,if any records exist in the interface
117: -- from the previous run of the process.
118: Cleanup_Gl_Interface;
119: END IF;
120: IF (vp_retcode = 0) THEN
114: END IF;
115: IF (vp_retcode = 0) THEN
116: -- Clean up gl_interface table,if any records exist in the interface
117: -- from the previous run of the process.
118: Cleanup_Gl_Interface;
119: END IF;
120: IF (vp_retcode = 0) THEN
121: -- Check if the Carry Forward process has been run earlier
122: -- for the same period.
511: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
512: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN GET_BALANCES PROCEDURE');
513: END IF;
514:
515: -- Setup Gl Interface
516: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING SETUP_GL_INTERFACE PROCEDURE');
518: END IF;
519: Setup_Gl_Interface;
513: END IF;
514:
515: -- Setup Gl Interface
516: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING SETUP_GL_INTERFACE PROCEDURE');
518: END IF;
519: Setup_Gl_Interface;
520: IF (vp_retcode <> 0) THEN
521: RAISE e_error;
515: -- Setup Gl Interface
516: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING SETUP_GL_INTERFACE PROCEDURE');
518: END IF;
519: Setup_Gl_Interface;
520: IF (vp_retcode <> 0) THEN
521: RAISE e_error;
522: END IF;
523:
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.';
558: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,vp_errbuf);
559: RAISE e_error;
560: END ;
561:
558: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,vp_errbuf);
559: RAISE e_error;
560: END ;
561:
562: -- Constructing the insert into Gl interface from the select of the query
563: BEGIN
564: l_insert_stmt := ' INSERT INTO Gl_Interface(status,
565: ledger_id ,
566: accounting_date ,
560: END ;
561:
562: -- Constructing the insert into Gl interface from the select of the query
563: BEGIN
564: l_insert_stmt := ' INSERT INTO Gl_Interface(status,
565: ledger_id ,
566: accounting_date ,
567: currency_code ,
568: date_created ,
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
705: vp_retcode := 2;
706: vp_errbuf := SQLERRM|| ' Parse cursor error in Get_Balances procedure.';
735: END Get_Balances;
736:
737:
738: -- ------------------------------------------------------------------
739: -- Procedure Setup_Gl_Interface
740: -- ------------------------------------------------------------------
741: -- Setup_Gl_Interface procedure is called from Get_Balances procedure.
742: -- This proc inserts records in the gl_interface table, getting the ccids
743: -- and balances from the pl/sql tables and then runs journal import program.
737:
738: -- ------------------------------------------------------------------
739: -- Procedure Setup_Gl_Interface
740: -- ------------------------------------------------------------------
741: -- Setup_Gl_Interface procedure is called from Get_Balances procedure.
742: -- This proc inserts records in the gl_interface table, getting the ccids
743: -- and balances from the pl/sql tables and then runs journal import program.
744: -- ------------------------------------------------------------------
745: PROCEDURE Setup_Gl_Interface IS
738: -- ------------------------------------------------------------------
739: -- Procedure Setup_Gl_Interface
740: -- ------------------------------------------------------------------
741: -- Setup_Gl_Interface procedure is called from Get_Balances procedure.
742: -- This proc inserts records in the gl_interface table, getting the ccids
743: -- and balances from the pl/sql tables and then runs journal import program.
744: -- ------------------------------------------------------------------
745: PROCEDURE Setup_Gl_Interface IS
746: vl_req_id NUMBER;
741: -- Setup_Gl_Interface procedure is called from Get_Balances procedure.
742: -- This proc inserts records in the gl_interface table, getting the ccids
743: -- and balances from the pl/sql tables and then runs journal import program.
744: -- ------------------------------------------------------------------
745: PROCEDURE Setup_Gl_Interface IS
746: vl_req_id NUMBER;
747: vl_call_status BOOLEAN;
748: vl_rphase VARCHAR2(30);
749: vl_rstatus VARCHAR2(30);
753: vl_cnt NUMBER;
754: l_module_name VARCHAR2(200);
755: BEGIN
756: l_module_name := g_module_name ||
757: 'Setup_Gl_Interface ';
758: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
759: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN SETUP_GL_INTERFACE PROCEDURE....');
760: END IF;
761: -- Get the interface_run_id
755: BEGIN
756: l_module_name := g_module_name ||
757: 'Setup_Gl_Interface ';
758: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
759: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN SETUP_GL_INTERFACE PROCEDURE....');
760: END IF;
761: -- Get the interface_run_id
762: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;
763: -- Get the journal group_id
758: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
759: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN SETUP_GL_INTERFACE PROCEDURE....');
760: END IF;
761: -- Get the interface_run_id
762: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;
763: -- Get the journal group_id
764: SELECT Gl_Interface_Control_S.NEXTVAL
765: INTO vg_jrnl_group_id
766: FROM DUAL;
760: END IF;
761: -- Get the interface_run_id
762: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;
763: -- Get the journal group_id
764: SELECT Gl_Interface_Control_S.NEXTVAL
765: INTO vg_jrnl_group_id
766: FROM DUAL;
767: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
768: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '
771: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
772: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '
773: ||TO_CHAR(vg_jrnl_group_id));
774: END IF;
775: --Insert a control record in gl_interface_control for gl_import to work
776: INSERT INTO Gl_Interface_Control
777: (je_source_name,
778: status,
779: interface_run_id,
772: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '
773: ||TO_CHAR(vg_jrnl_group_id));
774: END IF;
775: --Insert a control record in gl_interface_control for gl_import to work
776: INSERT INTO Gl_Interface_Control
777: (je_source_name,
778: status,
779: interface_run_id,
780: group_id,
786: vp_sob_id);
787: EXCEPTION
788: WHEN OTHERS THEN
789: vp_retcode := 2;
790: vp_errbuf := SQLERRM || '--Error in Setup_Gl_Interface procedure.';
791: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
792: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
793: ,vp_errbuf);
794: END IF;
792: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
793: ,vp_errbuf);
794: END IF;
795: RETURN;
796: END Setup_Gl_Interface;
797:
798: -- --------------------------------
799: -- Procedure Submit_Journal_Import
800: -- -------------------------------
810:
811: BEGIN
812: l_module_name := g_module_name || 'Submit_Journal_Import ';
813: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
814: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
815: END IF;
816: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');
818: END IF;
865: RETURN;
866: END Submit_Journal_Import;
867:
868: -- ------------------------------------------------------------------
869: -- Procedure Cleanup_Gl_Interface
870: -- ------------------------------------------------------------------
871: -- Cleanup_Gl_Interface procedure is called from Main
872: -- procedure. This cleans up the gl_interface table.
873: -- ------------------------------------------------------------------
867:
868: -- ------------------------------------------------------------------
869: -- Procedure Cleanup_Gl_Interface
870: -- ------------------------------------------------------------------
871: -- Cleanup_Gl_Interface procedure is called from Main
872: -- procedure. This cleans up the gl_interface table.
873: -- ------------------------------------------------------------------
874: PROCEDURE Cleanup_Gl_Interface IS
875: l_module_name VARCHAR2(200) ;
868: -- ------------------------------------------------------------------
869: -- Procedure Cleanup_Gl_Interface
870: -- ------------------------------------------------------------------
871: -- Cleanup_Gl_Interface procedure is called from Main
872: -- procedure. This cleans up the gl_interface table.
873: -- ------------------------------------------------------------------
874: PROCEDURE Cleanup_Gl_Interface IS
875: l_module_name VARCHAR2(200) ;
876: BEGIN
870: -- ------------------------------------------------------------------
871: -- Cleanup_Gl_Interface procedure is called from Main
872: -- procedure. This cleans up the gl_interface table.
873: -- ------------------------------------------------------------------
874: PROCEDURE Cleanup_Gl_Interface IS
875: l_module_name VARCHAR2(200) ;
876: BEGIN
877: l_module_name := g_module_name || 'Cleanup_Gl_Interface';
878: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
873: -- ------------------------------------------------------------------
874: PROCEDURE Cleanup_Gl_Interface IS
875: l_module_name VARCHAR2(200) ;
876: BEGIN
877: l_module_name := g_module_name || 'Cleanup_Gl_Interface';
878: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
880: END IF;
881: -- Delete from Gl_Interface table
875: l_module_name VARCHAR2(200) ;
876: BEGIN
877: l_module_name := g_module_name || 'Cleanup_Gl_Interface';
878: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
880: END IF;
881: -- Delete from Gl_Interface table
882: DELETE FROM Gl_Interface
883: WHERE user_je_source_name = 'Year End Close'
877: l_module_name := g_module_name || 'Cleanup_Gl_Interface';
878: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
880: END IF;
881: -- Delete from Gl_Interface table
882: DELETE FROM Gl_Interface
883: WHERE user_je_source_name = 'Year End Close'
884: AND user_je_category_name = 'Federal Carry Forward'
885: AND ledger_id = vp_sob_id;
878: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
880: END IF;
881: -- Delete from Gl_Interface table
882: DELETE FROM Gl_Interface
883: WHERE user_je_source_name = 'Year End Close'
884: AND user_je_category_name = 'Federal Carry Forward'
885: AND ledger_id = vp_sob_id;
886: EXCEPTION
885: AND ledger_id = vp_sob_id;
886: EXCEPTION
887: WHEN OTHERS THEN
888: vp_retcode := 2;
889: vp_errbuf := SQLERRM || '-- Error in Cleanup_Gl_Interface procedure.';
890: IF (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
891: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
892: ,vp_errbuf);
893: END IF;
891: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name
892: ,vp_errbuf);
893: END IF;
894: RETURN;
895: END Cleanup_Gl_Interface;
896: -- + --------------------------------------------------------------------- +
897: -- + Function to convert a cloumn value to Number +
898: -- + This function returns Number if it a number else NULL +
899: -- + --------------------------------------------------------------------- +