DBA Data[Home] [Help]

APPS.FV_YE_CLOSE dependencies on GL_INTERFACE

Line 91: PROCEDURE insert_gl_interface_record(l_amount_dr IN NUMBER,

87:
88: vg_closing_period_num Gl_Period_Statuses.period_num%TYPE;
89: ---------------------------------------------------------------------------------
90: ----------------------------------------------------------------
91: PROCEDURE insert_gl_interface_record(l_amount_dr IN NUMBER,
92: l_amount_cr IN NUMBER,
93: l_reference_1 IN VARCHAR2,
94: l_period_name IN VARCHAR2,
95: l_trading_partner IN VARCHAR2,

Line 234: -- Populating the GL_Interface table when MODE is F

230: END IF;
231:
232: IF (vp_retcode = 0) THEN
233: if (vp_mode='F' ) then
234: -- Populating the GL_Interface table when MODE is F
235: -- Process D
236: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'POPULATING THE GL_INTERFACE TABLE .');
238: END IF;

Line 237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'POPULATING THE GL_INTERFACE TABLE .');

233: if (vp_mode='F' ) then
234: -- Populating the GL_Interface table when MODE is F
235: -- Process D
236: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'POPULATING THE GL_INTERFACE TABLE .');
238: END IF;
239: Populate_Gl_Interface;
240: END IF;
241: END IF;

Line 239: Populate_Gl_Interface;

235: -- Process D
236: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
237: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'POPULATING THE GL_INTERFACE TABLE .');
238: END IF;
239: Populate_Gl_Interface;
240: END IF;
241: END IF;
242:
243: IF (vp_retcode = 0) THEN

Line 3138: -- Procedure Populate_Gl_Interface

3134: RETURN ;
3135: END Update_Closing_Status;
3136:
3137: -- ------------------------------------------------------------------
3138: -- Procedure Populate_Gl_Interface
3139: -- ------------------------------------------------------------------
3140: -- Populate_Gl_Interface procedure is called from Main procedure.
3141: -- When submit_journal_import =Y, this proc inserts records in gl_interface
3142: -- table, from the temp table and runs the journal import program.

Line 3140: -- Populate_Gl_Interface procedure is called from Main procedure.

3136:
3137: -- ------------------------------------------------------------------
3138: -- Procedure Populate_Gl_Interface
3139: -- ------------------------------------------------------------------
3140: -- Populate_Gl_Interface procedure is called from Main procedure.
3141: -- When submit_journal_import =Y, this proc inserts records in gl_interface
3142: -- table, from the temp table and runs the journal import program.
3143: -- ------------------------------------------------------------------
3144: PROCEDURE Populate_Gl_Interface IS

Line 3141: -- When submit_journal_import =Y, this proc inserts records in gl_interface

3137: -- ------------------------------------------------------------------
3138: -- Procedure Populate_Gl_Interface
3139: -- ------------------------------------------------------------------
3140: -- Populate_Gl_Interface procedure is called from Main procedure.
3141: -- When submit_journal_import =Y, this proc inserts records in gl_interface
3142: -- table, from the temp table and runs the journal import program.
3143: -- ------------------------------------------------------------------
3144: PROCEDURE Populate_Gl_Interface IS
3145: vl_req_id NUMBER;

Line 3144: PROCEDURE Populate_Gl_Interface IS

3140: -- Populate_Gl_Interface procedure is called from Main procedure.
3141: -- When submit_journal_import =Y, this proc inserts records in gl_interface
3142: -- table, from the temp table and runs the journal import program.
3143: -- ------------------------------------------------------------------
3144: PROCEDURE Populate_Gl_Interface IS
3145: vl_req_id NUMBER;
3146: vl_call_status BOOLEAN;
3147: vl_rphase VARCHAR2(30);
3148: vl_rstatus VARCHAR2(30);

Line 3262: 'Populate_Gl_Interface ';

3258:
3259: l_module_name VARCHAR2(200) ;
3260: BEGIN
3261: l_module_name := g_module_name ||
3262: 'Populate_Gl_Interface ';
3263:
3264: vl_gl_source := '(''Budgetary Transaction'',''Year End Close'', ''Manual'')';
3265:
3266: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

Line 3267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN POPULATE_GL_INTERFACE PROCEDURE....');

3263:
3264: vl_gl_source := '(''Budgetary Transaction'',''Year End Close'', ''Manual'')';
3265:
3266: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN POPULATE_GL_INTERFACE PROCEDURE....');
3268: END IF;
3269:
3270: -- Get the interface_run_id
3271: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;

Line 3271: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;

3267: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN POPULATE_GL_INTERFACE PROCEDURE....');
3268: END IF;
3269:
3270: -- Get the interface_run_id
3271: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;
3272:
3273: -- Get the journal group_id
3274: SELECT Gl_Interface_Control_S.NEXTVAL
3275: INTO vg_jrnl_group_id

Line 3274: SELECT Gl_Interface_Control_S.NEXTVAL

3270: -- Get the interface_run_id
3271: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;
3272:
3273: -- Get the journal group_id
3274: SELECT Gl_Interface_Control_S.NEXTVAL
3275: INTO vg_jrnl_group_id
3276: FROM DUAL;
3277:
3278: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

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

3279: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '||TO_CHAR(VG_INTERFACE_RUN_ID));
3280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '||TO_CHAR(VG_JRNL_GROUP_ID));
3281: END IF;
3282:
3283: --Insert a control record in gl_interface_control for gl_import to work
3284: INSERT INTO Gl_Interface_Control
3285: (je_source_name,
3286: status,
3287: interface_run_id,

Line 3284: INSERT INTO Gl_Interface_Control

3280: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '||TO_CHAR(VG_JRNL_GROUP_ID));
3281: END IF;
3282:
3283: --Insert a control record in gl_interface_control for gl_import to work
3284: INSERT INTO Gl_Interface_Control
3285: (je_source_name,
3286: status,
3287: interface_run_id,
3288: group_id,

Line 3341: Insert_Gl_Interface_Record(vc_journals.period_net_dr,

3337: IF (vc_journals.balance_read_flag = 'N') THEN -- balance_read_flag
3338: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3339: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING TO ACCOUNT ' || VC_JOURNALS.ACCOUNT_SEG);
3340: END IF;
3341: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3342: vc_journals.period_net_cr, vl_reference_1,
3343: vl_period_name,vl_trading_partner);
3344:
3345: ELSE -- balance_read_flag

Line 3394: Insert_Gl_Interface_Record(vc_journals.period_net_dr,

3390: 'if any, run the FACTS I Interface Program with all edit '||
3391: 'checks passed by period '||vg_closing_period||
3392: 'and rerun the Year End Close Program.');
3393: END IF;
3394: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3395: vc_journals.period_net_cr, vl_reference_1,
3396: vl_period_name,vl_trading_partner);
3397: ELSE -- ccid cnt
3398: -- ccid exists in facts table

Line 3417: Insert_Gl_Interface_Record(vc_journals.period_net_dr,

3413: 'checks passed by period '||vg_closing_period||
3414: 'and rerun the Year End Close Program.');
3415: END IF;
3416:
3417: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3418: vc_journals.period_net_cr, vl_reference_1,
3419: vl_period_name,vl_trading_partner);
3420: ELSE -- amt matching
3421: -- amount from year end table matches with amt from

Line 3438: Insert_Gl_Interface_Record(vl_amount_dr,vl_amount_cr,

3434: END IF;
3435:
3436: vl_trading_partner := vc_factsi.eliminations_dept;
3437:
3438: Insert_Gl_Interface_Record(vl_amount_dr,vl_amount_cr,
3439: vl_reference_1,vl_period_name,vl_trading_partner);
3440: END LOOP; -- bal loop
3441:
3442: END IF; -- amt matching

Line 3451: Insert_Gl_Interface_Record(vc_journals.period_net_dr,

3447: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3448: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EITHER FACTS I ATTRIBUTE DOES NOT EXISTS '||
3449: 'or there are no balances in FACTS table.');
3450: END IF;
3451: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3452: vc_journals.period_net_cr, vl_reference_1,
3453: vl_period_name,vl_trading_partner);
3454: END IF; -- facts attr
3455:

Line 3503: ' Open cursor error in Populate_Gl_Interface procedure.';

3499: EXCEPTION
3500: WHEN OTHERS THEN
3501: vp_retcode := 2;
3502: vp_errbuf := SQLERRM||
3503: ' Open cursor error in Populate_Gl_Interface procedure.';
3504: RETURN;
3505: END ;
3506:
3507: vl_stmt :=

Line 3566: ' Parse cursor error in Populate_Gl_Interface procedure.';

3562: EXCEPTION
3563: WHEN OTHERS THEN
3564: vp_retcode := 2;
3565: vp_errbuf := SQLERRM||
3566: ' Parse cursor error in Populate_Gl_Interface procedure.';
3567: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name, vp_errbuf) ;
3568: RETURN;
3569: END ;
3570:

Line 3605: ' Execute cursor error in Populate_Gl_Interface procedure.';

3601: EXCEPTION
3602: WHEN OTHERS THEN
3603: vp_retcode := 2 ;
3604: vp_errbuf := SQLERRM||
3605: ' Execute cursor error in Populate_Gl_Interface procedure.';
3606: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name, vp_errbuf) ;
3607: END ;
3608:
3609: LOOP

Line 3657: Insert_gl_interface_record(vl_amount_dr,vl_amount_cr,vl_reference_1,

3653: ELSE
3654: vl_amount_dr := ABS(vl_line_amount);
3655: END IF;
3656:
3657: Insert_gl_interface_record(vl_amount_dr,vl_amount_cr,vl_reference_1,
3658: vl_period_name,vl_trading_partner, vl_public_law_code,
3659: vl_advance_type, vl_trf_dept_id, vl_trf_main_acct);
3660: END IF;
3661: END IF;

Line 3690: Insert_gl_interface_record(facts2_ending_balance_rec.ending_balance_cr,facts2_ending_balance_rec.ending_balance_dr,

3686: AND ffeb.fiscal_year = vp_closing_fyr-1
3687: AND ffeb.ccid = vl_ccid) LOOP
3688:
3689: vl_running_amount := vl_running_amount + NVL(facts2_ending_balance_rec.ending_balance_dr, 0) - NVL(facts2_ending_balance_rec.ending_balance_cr, 0);
3690: Insert_gl_interface_record(facts2_ending_balance_rec.ending_balance_cr,facts2_ending_balance_rec.ending_balance_dr,
3691: NULL,
3692: vl_period_name,vl_trading_partner,
3693: facts2_ending_balance_rec.public_law,
3694: facts2_ending_balance_rec.advance_flag,

Line 3720: Insert_gl_interface_record(vl_amount_dr , vl_amount_cr, NULL,

3716: END IF;
3717: END IF;
3718: -- Bug 7150443. Added vl_public_law_code to the call below.
3719: -- Reverted the change made for above.
3720: Insert_gl_interface_record(vl_amount_dr , vl_amount_cr, NULL,
3721: vl_period_name,vl_trading_partner);
3722: END IF;
3723: ELSE -- vl_ptype
3724: Insert_Gl_Interface_Record(vc_journals.period_net_dr,

Line 3724: Insert_Gl_Interface_Record(vc_journals.period_net_dr,

3720: Insert_gl_interface_record(vl_amount_dr , vl_amount_cr, NULL,
3721: vl_period_name,vl_trading_partner);
3722: END IF;
3723: ELSE -- vl_ptype
3724: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3725: vc_journals.period_net_cr, vl_reference_1,
3726: vl_period_name,vl_trading_partner);
3727:
3728: END IF; -- vl_ptype

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

3730: END LOOP; -- journal_entries loop
3731:
3732:
3733: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3734: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
3735: END IF;
3736:
3737: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3738: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');

Line 3887: -- Clean up gl_interface table

3883: end;
3884: END IF; -- end IF (vp_journal_import='Y') then
3885:
3886:
3887: -- Clean up gl_interface table
3888: Cleanup_Gl_Interface;
3889:
3890: IF (vp_retcode <> 0) THEN
3891: RETURN;

Line 3888: Cleanup_Gl_Interface;

3884: END IF; -- end IF (vp_journal_import='Y') then
3885:
3886:
3887: -- Clean up gl_interface table
3888: Cleanup_Gl_Interface;
3889:
3890: IF (vp_retcode <> 0) THEN
3891: RETURN;
3892: END IF;

Line 3897: vp_errbuf := SQLERRM || '--Error in Populate_Gl_Interface procedure.';

3893:
3894: EXCEPTION
3895: WHEN OTHERS THEN
3896: vp_retcode := 2;
3897: vp_errbuf := SQLERRM || '--Error in Populate_Gl_Interface procedure.';
3898: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3899: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3900: 'When Others Exception ' || vp_errbuf );
3901: END IF;

Line 3903: END Populate_Gl_Interface;

3899: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3900: 'When Others Exception ' || vp_errbuf );
3901: END IF;
3902: RETURN;
3903: END Populate_Gl_Interface;
3904:
3905: -- ------------------------------------------------------------------
3906: -- Procedure Cleanup_Gl_Interface
3907: -- ------------------------------------------------------------------

Line 3906: -- Procedure Cleanup_Gl_Interface

3902: RETURN;
3903: END Populate_Gl_Interface;
3904:
3905: -- ------------------------------------------------------------------
3906: -- Procedure Cleanup_Gl_Interface
3907: -- ------------------------------------------------------------------
3908: -- Cleanup_Gl_Interface procedure is called from Populate_Gl_interface
3909: -- procedure. This cleans up the gl_interface table.
3910: -- ------------------------------------------------------------------

Line 3908: -- Cleanup_Gl_Interface procedure is called from Populate_Gl_interface

3904:
3905: -- ------------------------------------------------------------------
3906: -- Procedure Cleanup_Gl_Interface
3907: -- ------------------------------------------------------------------
3908: -- Cleanup_Gl_Interface procedure is called from Populate_Gl_interface
3909: -- procedure. This cleans up the gl_interface table.
3910: -- ------------------------------------------------------------------
3911: PROCEDURE Cleanup_Gl_Interface IS
3912: l_module_name VARCHAR2(200) ;

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

3905: -- ------------------------------------------------------------------
3906: -- Procedure Cleanup_Gl_Interface
3907: -- ------------------------------------------------------------------
3908: -- Cleanup_Gl_Interface procedure is called from Populate_Gl_interface
3909: -- procedure. This cleans up the gl_interface table.
3910: -- ------------------------------------------------------------------
3911: PROCEDURE Cleanup_Gl_Interface IS
3912: l_module_name VARCHAR2(200) ;
3913: BEGIN

Line 3911: PROCEDURE Cleanup_Gl_Interface IS

3907: -- ------------------------------------------------------------------
3908: -- Cleanup_Gl_Interface procedure is called from Populate_Gl_interface
3909: -- procedure. This cleans up the gl_interface table.
3910: -- ------------------------------------------------------------------
3911: PROCEDURE Cleanup_Gl_Interface IS
3912: l_module_name VARCHAR2(200) ;
3913: BEGIN
3914:
3915: l_module_name := g_module_name || 'Cleanup_Gl_Interface ';

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

3911: PROCEDURE Cleanup_Gl_Interface IS
3912: l_module_name VARCHAR2(200) ;
3913: BEGIN
3914:
3915: l_module_name := g_module_name || 'Cleanup_Gl_Interface ';
3916:
3917: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
3919: END IF;

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

3914:
3915: l_module_name := g_module_name || 'Cleanup_Gl_Interface ';
3916:
3917: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
3919: END IF;
3920:
3921: -- Delete from Gl_Interface table
3922: DELETE FROM Gl_Interface

Line 3921: -- Delete from Gl_Interface table

3917: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
3919: END IF;
3920:
3921: -- Delete from Gl_Interface table
3922: DELETE FROM Gl_Interface
3923: WHERE user_je_source_name = 'Year End Close'
3924: AND ledger_id = vg_sob_id
3925: AND group_id = vg_jrnl_group_id;

Line 3922: DELETE FROM Gl_Interface

3918: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
3919: END IF;
3920:
3921: -- Delete from Gl_Interface table
3922: DELETE FROM Gl_Interface
3923: WHERE user_je_source_name = 'Year End Close'
3924: AND ledger_id = vg_sob_id
3925: AND group_id = vg_jrnl_group_id;
3926:

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

3926:
3927: EXCEPTION
3928: WHEN OTHERS THEN
3929: vp_retcode := 2;
3930: vp_errbuf := SQLERRM || '--Error in Cleanup_Gl_Interface procedure.';
3931: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3932: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3933: 'When Others Exception ' || vp_errbuf );
3934: END IF;

Line 3937: END Cleanup_Gl_Interface;

3933: 'When Others Exception ' || vp_errbuf );
3934: END IF;
3935:
3936: RETURN;
3937: END Cleanup_Gl_Interface;
3938:
3939: -- ------------------------------------------------------------------
3940: -- Procedure Submit_Report
3941: -- ------------------------------------------------------------------

Line 4005: PROCEDURE insert_gl_interface_record(l_amount_dr IN NUMBER,

4001: vp_errbuf := SQLERRM || '--Error in Submit_Report procedure.';
4002: RETURN;
4003: END Submit_Report;
4004: ---------------------------------------------------------------
4005: PROCEDURE insert_gl_interface_record(l_amount_dr IN NUMBER,
4006: l_amount_cr IN NUMBER,
4007: l_reference_1 IN VARCHAR2,
4008: l_period_name IN VARCHAR2,
4009: l_trading_partner IN VARCHAR2,

Line 4024: l_module_name := g_module_name || 'insert_gl_interface_record ';

4020:
4021: vl_str VARCHAR2(3000);
4022: l_module_name VARCHAR2(200) ;
4023: BEGIN
4024: l_module_name := g_module_name || 'insert_gl_interface_record ';
4025:
4026: FOR i IN 1..20
4027: LOOP
4028: vl_attribtable(i) := NULL;

Line 4048: vl_str := 'INSERT INTO Gl_Interface

4044: vl_attribtable(SUBSTR(vg_trf_dept_id_attribute, 10)) := l_trf_dept_id;
4045: vl_attribtable(SUBSTR(vg_trf_main_acct_attribute, 10)) := l_trf_main_acct;
4046: END IF;
4047:
4048: vl_str := 'INSERT INTO Gl_Interface
4049: (
4050: status, ledger_id, accounting_date, currency_code,
4051: date_created, created_by, actual_flag, user_je_category_name,
4052: user_je_source_name, entered_dr, entered_cr, group_id,

Line 4124: vp_errbuf := SQLERRM || '--Error in Insert_Gl_Interface_Record procedure.';

4120:
4121: EXCEPTION
4122: WHEN OTHERS THEN
4123: vp_retcode := 2;
4124: vp_errbuf := SQLERRM || '--Error in Insert_Gl_Interface_Record procedure.';
4125: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
4127: 'When Others Exception ' || vp_errbuf );
4128: END IF;

Line 4129: END insert_gl_interface_record;

4125: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4126: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
4127: 'When Others Exception ' || vp_errbuf );
4128: END IF;
4129: END insert_gl_interface_record;
4130: -----------------------------------------------------------------------------
4131: -- ------------------------------------------------------------------
4132: -- Procedure Check_bal_seg_value
4133: -- ------------------------------------------------------------------