DBA Data[Home] [Help]

APPS.FV_YE_CARRYFORWARD dependencies on GL_INTERFACE

Line 116: -- Clean up gl_interface table,if any records exist in the interface

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

Line 118: Cleanup_Gl_Interface;

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.

Line 515: -- Setup Gl Interface

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;

Line 517: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING SETUP_GL_INTERFACE 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;
520: IF (vp_retcode <> 0) THEN
521: RAISE e_error;

Line 519: Setup_Gl_Interface;

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:

Line 557: vp_errbuf := SQLERRM|| ' Open cursor error in Populate_Gl_Interface procedure.';

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:

Line 562: -- Constructing the insert into Gl interface from the select of the query

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 ,

Line 564: l_insert_stmt := ' INSERT INTO Gl_Interface(status,

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 ,

Line 702: fnd_file.put_line(FND_FILE.LOG,'No of Records inserted into GL_interface :' || to_char(vl_exec_cur));

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.';

Line 739: -- Procedure Setup_Gl_Interface

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.

Line 741: -- Setup_Gl_Interface procedure is called from Get_Balances procedure.

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

Line 742: -- This proc inserts records in the gl_interface table, getting the ccids

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;

Line 745: PROCEDURE Setup_Gl_Interface IS

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);

Line 757: 'Setup_Gl_Interface ';

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

Line 759: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN SETUP_GL_INTERFACE PROCEDURE....');

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

Line 762: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_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;

Line 764: SELECT Gl_Interface_Control_S.NEXTVAL

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: '

Line 775: --Insert a control record in gl_interface_control for gl_import to work

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,

Line 776: INSERT INTO Gl_Interface_Control

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,

Line 790: vp_errbuf := SQLERRM || '--Error in Setup_Gl_Interface procedure.';

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;

Line 796: END Setup_Gl_Interface;

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: -- -------------------------------

Line 814: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');

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;

Line 869: -- Procedure Cleanup_Gl_Interface

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: -- ------------------------------------------------------------------

Line 871: -- Cleanup_Gl_Interface procedure is called from Main

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) ;

Line 872: -- procedure. This cleans up the gl_interface table.

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

Line 874: PROCEDURE Cleanup_Gl_Interface IS

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

Line 877: l_module_name := g_module_name || 'Cleanup_Gl_Interface';

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

Line 879: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');

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'

Line 881: -- Delete from Gl_Interface table

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;

Line 882: DELETE FROM 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;
886: EXCEPTION

Line 889: vp_errbuf := SQLERRM || '-- Error in Cleanup_Gl_Interface procedure.';

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;

Line 895: END Cleanup_Gl_Interface;

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: -- + --------------------------------------------------------------------- +