DBA Data[Home] [Help]

APPS.FV_YE_CLOSE dependencies on GL_INTERFACE

Line 83: PROCEDURE insert_gl_interface_record(l_amount_dr IN NUMBER,

79:
80: vg_closing_period_num Gl_Period_Statuses.period_num%TYPE;
81: ---------------------------------------------------------------------------------
82: ----------------------------------------------------------------
83: PROCEDURE insert_gl_interface_record(l_amount_dr IN NUMBER,
84: l_amount_cr IN NUMBER,
85: l_reference_1 IN VARCHAR2,
86: l_period_name IN VARCHAR2,
87: l_trading_partner IN VARCHAR2,

Line 210: -- Populating the GL_Interface table when submit_journal_import is Y

206: END IF;
207:
208: IF (vp_retcode = 0) THEN
209: IF (vp_journal_import = 'Y') THEN
210: -- Populating the GL_Interface table when submit_journal_import is Y
211: -- Process D
212: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
213: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'POPULATING THE GL_INTERFACE TABLE .');
214: END IF;

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

209: IF (vp_journal_import = 'Y') THEN
210: -- Populating the GL_Interface table when submit_journal_import is Y
211: -- Process D
212: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
213: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'POPULATING THE GL_INTERFACE TABLE .');
214: END IF;
215: Populate_Gl_Interface;
216: END IF;
217: END IF;

Line 215: Populate_Gl_Interface;

211: -- Process D
212: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
213: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'POPULATING THE GL_INTERFACE TABLE .');
214: END IF;
215: Populate_Gl_Interface;
216: END IF;
217: END IF;
218:
219: IF (vp_retcode = 0) THEN

Line 3085: -- Procedure Populate_Gl_Interface

3081: RETURN ;
3082: END Update_Closing_Status;
3083:
3084: -- ------------------------------------------------------------------
3085: -- Procedure Populate_Gl_Interface
3086: -- ------------------------------------------------------------------
3087: -- Populate_Gl_Interface procedure is called from Main procedure.
3088: -- When submit_journal_import =Y, this proc inserts records in gl_interface
3089: -- table, from the temp table and runs the journal import program.

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

3083:
3084: -- ------------------------------------------------------------------
3085: -- Procedure Populate_Gl_Interface
3086: -- ------------------------------------------------------------------
3087: -- Populate_Gl_Interface procedure is called from Main procedure.
3088: -- When submit_journal_import =Y, this proc inserts records in gl_interface
3089: -- table, from the temp table and runs the journal import program.
3090: -- ------------------------------------------------------------------
3091: PROCEDURE Populate_Gl_Interface IS

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

3084: -- ------------------------------------------------------------------
3085: -- Procedure Populate_Gl_Interface
3086: -- ------------------------------------------------------------------
3087: -- Populate_Gl_Interface procedure is called from Main procedure.
3088: -- When submit_journal_import =Y, this proc inserts records in gl_interface
3089: -- table, from the temp table and runs the journal import program.
3090: -- ------------------------------------------------------------------
3091: PROCEDURE Populate_Gl_Interface IS
3092: vl_req_id NUMBER;

Line 3091: PROCEDURE Populate_Gl_Interface IS

3087: -- Populate_Gl_Interface procedure is called from Main procedure.
3088: -- When submit_journal_import =Y, this proc inserts records in gl_interface
3089: -- table, from the temp table and runs the journal import program.
3090: -- ------------------------------------------------------------------
3091: PROCEDURE Populate_Gl_Interface IS
3092: vl_req_id NUMBER;
3093: vl_call_status BOOLEAN;
3094: vl_rphase VARCHAR2(30);
3095: vl_rstatus VARCHAR2(30);

Line 3173: 'Populate_Gl_Interface ';

3169:
3170: l_module_name VARCHAR2(200) ;
3171: BEGIN
3172: l_module_name := g_module_name ||
3173: 'Populate_Gl_Interface ';
3174:
3175: vl_gl_source := '(''Budgetary Transaction'',''Year End Close'', ''Manual'')';
3176:
3177: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN

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

3174:
3175: vl_gl_source := '(''Budgetary Transaction'',''Year End Close'', ''Manual'')';
3176:
3177: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3178: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN POPULATE_GL_INTERFACE PROCEDURE....');
3179: END IF;
3180:
3181: -- Get the interface_run_id
3182: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;

Line 3182: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;

3178: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN POPULATE_GL_INTERFACE PROCEDURE....');
3179: END IF;
3180:
3181: -- Get the interface_run_id
3182: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;
3183:
3184: -- Get the journal group_id
3185: SELECT Gl_Interface_Control_S.NEXTVAL
3186: INTO vg_jrnl_group_id

Line 3185: SELECT Gl_Interface_Control_S.NEXTVAL

3181: -- Get the interface_run_id
3182: vg_interface_run_id := Gl_Interface_Control_Pkg.Get_Unique_Run_Id;
3183:
3184: -- Get the journal group_id
3185: SELECT Gl_Interface_Control_S.NEXTVAL
3186: INTO vg_jrnl_group_id
3187: FROM DUAL;
3188:
3189: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN

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

3190: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' INTERFACE RUN ID: '||TO_CHAR(VG_INTERFACE_RUN_ID));
3191: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '||TO_CHAR(VG_JRNL_GROUP_ID));
3192: END IF;
3193:
3194: --Insert a control record in gl_interface_control for gl_import to work
3195: INSERT INTO Gl_Interface_Control
3196: (je_source_name,
3197: status,
3198: interface_run_id,

Line 3195: INSERT INTO Gl_Interface_Control

3191: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' JOURNAL GROUP ID: '||TO_CHAR(VG_JRNL_GROUP_ID));
3192: END IF;
3193:
3194: --Insert a control record in gl_interface_control for gl_import to work
3195: INSERT INTO Gl_Interface_Control
3196: (je_source_name,
3197: status,
3198: interface_run_id,
3199: group_id,

Line 3252: Insert_Gl_Interface_Record(vc_journals.period_net_dr,

3248: IF (vc_journals.balance_read_flag = 'N') THEN -- balance_read_flag
3249: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3250: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,'PROCESSING TO ACCOUNT ' || VC_JOURNALS.ACCOUNT_SEG);
3251: END IF;
3252: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3253: vc_journals.period_net_cr, vl_reference_1,
3254: vl_period_name,vl_trading_partner);
3255:
3256: ELSE -- balance_read_flag

Line 3305: Insert_Gl_Interface_Record(vc_journals.period_net_dr,

3301: 'if any, run the FACTS I Interface Program with all edit '||
3302: 'checks passed by period '||vg_closing_period||
3303: 'and rerun the Year End Close Program.');
3304: END IF;
3305: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3306: vc_journals.period_net_cr, vl_reference_1,
3307: vl_period_name,vl_trading_partner);
3308: ELSE -- ccid cnt
3309: -- ccid exists in facts table

Line 3328: Insert_Gl_Interface_Record(vc_journals.period_net_dr,

3324: 'checks passed by period '||vg_closing_period||
3325: 'and rerun the Year End Close Program.');
3326: END IF;
3327:
3328: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3329: vc_journals.period_net_cr, vl_reference_1,
3330: vl_period_name,vl_trading_partner);
3331: ELSE -- amt matching
3332: -- amount from year end table matches with amt from

Line 3349: Insert_Gl_Interface_Record(vl_amount_dr,vl_amount_cr,

3345: END IF;
3346:
3347: vl_trading_partner := vc_factsi.eliminations_dept;
3348:
3349: Insert_Gl_Interface_Record(vl_amount_dr,vl_amount_cr,
3350: vl_reference_1,vl_period_name,vl_trading_partner);
3351: END LOOP; -- bal loop
3352:
3353: END IF; -- amt matching

Line 3362: Insert_Gl_Interface_Record(vc_journals.period_net_dr,

3358: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3359: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' EITHER FACTS I ATTRIBUTE DOES NOT EXISTS '||
3360: 'or there are no balances in FACTS table.');
3361: END IF;
3362: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3363: vc_journals.period_net_cr, vl_reference_1,
3364: vl_period_name,vl_trading_partner);
3365: END IF; -- facts attr
3366:

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

3410: EXCEPTION
3411: WHEN OTHERS THEN
3412: vp_retcode := 2;
3413: vp_errbuf := SQLERRM||
3414: ' Open cursor error in Populate_Gl_Interface procedure.';
3415: RETURN;
3416: END ;
3417:
3418: vl_stmt :=

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

3473: EXCEPTION
3474: WHEN OTHERS THEN
3475: vp_retcode := 2;
3476: vp_errbuf := SQLERRM||
3477: ' Parse cursor error in Populate_Gl_Interface procedure.';
3478: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name, vp_errbuf) ;
3479: RETURN;
3480: END ;
3481:

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

3512: EXCEPTION
3513: WHEN OTHERS THEN
3514: vp_retcode := 2 ;
3515: vp_errbuf := SQLERRM||
3516: ' Execute cursor error in Populate_Gl_Interface procedure.';
3517: FV_UTILITY.LOG_MESG(FND_LOG.LEVEL_UNEXPECTED,l_module_name, vp_errbuf) ;
3518: END ;
3519:
3520: LOOP

Line 3568: Insert_gl_interface_record(vl_amount_dr,vl_amount_cr,vl_reference_1,

3564: ELSE
3565: vl_amount_dr := ABS(vl_line_amount);
3566: END IF;
3567:
3568: Insert_gl_interface_record(vl_amount_dr,vl_amount_cr,vl_reference_1,
3569: vl_period_name,vl_trading_partner, vl_public_law_code,
3570: vl_advance_type, vl_trf_dept_id, vl_trf_main_acct);
3571: END IF;
3572: END IF;

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

3597: AND ffeb.fiscal_year = vp_closing_fyr-1
3598: AND ffeb.ccid = vl_ccid) LOOP
3599:
3600: vl_running_amount := vl_running_amount + NVL(facts2_ending_balance_rec.ending_balance_dr, 0) - NVL(facts2_ending_balance_rec.ending_balance_cr, 0);
3601: Insert_gl_interface_record(facts2_ending_balance_rec.ending_balance_cr,facts2_ending_balance_rec.ending_balance_dr,
3602: NULL,
3603: vl_period_name,vl_trading_partner,
3604: facts2_ending_balance_rec.public_law,
3605: facts2_ending_balance_rec.advance_flag,

Line 3631: Insert_gl_interface_record(vl_amount_dr , vl_amount_cr, NULL,

3627: END IF;
3628: END IF;
3629: -- Bug 7150443. Added vl_public_law_code to the call below.
3630: -- Reverted the change made for above.
3631: Insert_gl_interface_record(vl_amount_dr , vl_amount_cr, NULL,
3632: vl_period_name,vl_trading_partner);
3633: END IF;
3634: ELSE -- vl_ptype
3635: Insert_Gl_Interface_Record(vc_journals.period_net_dr,

Line 3635: Insert_Gl_Interface_Record(vc_journals.period_net_dr,

3631: Insert_gl_interface_record(vl_amount_dr , vl_amount_cr, NULL,
3632: vl_period_name,vl_trading_partner);
3633: END IF;
3634: ELSE -- vl_ptype
3635: Insert_Gl_Interface_Record(vc_journals.period_net_dr,
3636: vc_journals.period_net_cr, vl_reference_1,
3637: vl_period_name,vl_trading_partner);
3638:
3639: END IF; -- vl_ptype

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

3641: END LOOP; -- journal_entries loop
3642:
3643:
3644: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3645: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' AFTER INSERTING INTO GL_INTERFACE....');
3646: END IF;
3647:
3648: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3649: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' CALLING THE JOURNAL IMPORT PROGRAM....');

Line 3692: -- Clean up gl_interface table

3688: vp_errbuf := 'Cannot wait for the status of journal import';
3689: vp_retcode := 1;
3690: END IF;
3691:
3692: -- Clean up gl_interface table
3693: Cleanup_Gl_Interface;
3694:
3695: IF (vp_retcode <> 0) THEN
3696: RETURN;

Line 3693: Cleanup_Gl_Interface;

3689: vp_retcode := 1;
3690: END IF;
3691:
3692: -- Clean up gl_interface table
3693: Cleanup_Gl_Interface;
3694:
3695: IF (vp_retcode <> 0) THEN
3696: RETURN;
3697: END IF;

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

3698:
3699: EXCEPTION
3700: WHEN OTHERS THEN
3701: vp_retcode := 2;
3702: vp_errbuf := SQLERRM || '--Error in Populate_Gl_Interface procedure.';
3703: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3704: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3705: 'When Others Exception ' || vp_errbuf );
3706: END IF;

Line 3708: END Populate_Gl_Interface;

3704: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3705: 'When Others Exception ' || vp_errbuf );
3706: END IF;
3707: RETURN;
3708: END Populate_Gl_Interface;
3709:
3710: -- ------------------------------------------------------------------
3711: -- Procedure Cleanup_Gl_Interface
3712: -- ------------------------------------------------------------------

Line 3711: -- Procedure Cleanup_Gl_Interface

3707: RETURN;
3708: END Populate_Gl_Interface;
3709:
3710: -- ------------------------------------------------------------------
3711: -- Procedure Cleanup_Gl_Interface
3712: -- ------------------------------------------------------------------
3713: -- Cleanup_Gl_Interface procedure is called from Populate_Gl_interface
3714: -- procedure. This cleans up the gl_interface table.
3715: -- ------------------------------------------------------------------

Line 3713: -- Cleanup_Gl_Interface procedure is called from Populate_Gl_interface

3709:
3710: -- ------------------------------------------------------------------
3711: -- Procedure Cleanup_Gl_Interface
3712: -- ------------------------------------------------------------------
3713: -- Cleanup_Gl_Interface procedure is called from Populate_Gl_interface
3714: -- procedure. This cleans up the gl_interface table.
3715: -- ------------------------------------------------------------------
3716: PROCEDURE Cleanup_Gl_Interface IS
3717: l_module_name VARCHAR2(200) ;

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

3710: -- ------------------------------------------------------------------
3711: -- Procedure Cleanup_Gl_Interface
3712: -- ------------------------------------------------------------------
3713: -- Cleanup_Gl_Interface procedure is called from Populate_Gl_interface
3714: -- procedure. This cleans up the gl_interface table.
3715: -- ------------------------------------------------------------------
3716: PROCEDURE Cleanup_Gl_Interface IS
3717: l_module_name VARCHAR2(200) ;
3718: BEGIN

Line 3716: PROCEDURE Cleanup_Gl_Interface IS

3712: -- ------------------------------------------------------------------
3713: -- Cleanup_Gl_Interface procedure is called from Populate_Gl_interface
3714: -- procedure. This cleans up the gl_interface table.
3715: -- ------------------------------------------------------------------
3716: PROCEDURE Cleanup_Gl_Interface IS
3717: l_module_name VARCHAR2(200) ;
3718: BEGIN
3719:
3720: l_module_name := g_module_name || 'Cleanup_Gl_Interface ';

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

3716: PROCEDURE Cleanup_Gl_Interface IS
3717: l_module_name VARCHAR2(200) ;
3718: BEGIN
3719:
3720: l_module_name := g_module_name || 'Cleanup_Gl_Interface ';
3721:
3722: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3723: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
3724: END IF;

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

3719:
3720: l_module_name := g_module_name || 'Cleanup_Gl_Interface ';
3721:
3722: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3723: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
3724: END IF;
3725:
3726: -- Delete from Gl_Interface table
3727: DELETE FROM Gl_Interface

Line 3726: -- Delete from Gl_Interface table

3722: IF (FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) THEN
3723: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
3724: END IF;
3725:
3726: -- Delete from Gl_Interface table
3727: DELETE FROM Gl_Interface
3728: WHERE user_je_source_name = 'Year End Close'
3729: AND ledger_id = vg_sob_id
3730: AND group_id = vg_jrnl_group_id;

Line 3727: DELETE FROM Gl_Interface

3723: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_STATEMENT, l_module_name,' IN THE CLEANUP_GL_INTERFACE PROCEDURE....');
3724: END IF;
3725:
3726: -- Delete from Gl_Interface table
3727: DELETE FROM Gl_Interface
3728: WHERE user_je_source_name = 'Year End Close'
3729: AND ledger_id = vg_sob_id
3730: AND group_id = vg_jrnl_group_id;
3731:

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

3731:
3732: EXCEPTION
3733: WHEN OTHERS THEN
3734: vp_retcode := 2;
3735: vp_errbuf := SQLERRM || '--Error in Cleanup_Gl_Interface procedure.';
3736: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3737: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3738: 'When Others Exception ' || vp_errbuf );
3739: END IF;

Line 3742: END Cleanup_Gl_Interface;

3738: 'When Others Exception ' || vp_errbuf );
3739: END IF;
3740:
3741: RETURN;
3742: END Cleanup_Gl_Interface;
3743:
3744: -- ------------------------------------------------------------------
3745: -- Procedure Submit_Report
3746: -- ------------------------------------------------------------------

Line 3803: PROCEDURE insert_gl_interface_record(l_amount_dr IN NUMBER,

3799: vp_errbuf := SQLERRM || '--Error in Submit_Report procedure.';
3800: RETURN;
3801: END Submit_Report;
3802: ---------------------------------------------------------------
3803: PROCEDURE insert_gl_interface_record(l_amount_dr IN NUMBER,
3804: l_amount_cr IN NUMBER,
3805: l_reference_1 IN VARCHAR2,
3806: l_period_name IN VARCHAR2,
3807: l_trading_partner IN VARCHAR2,

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

3818:
3819: vl_str VARCHAR2(3000);
3820: l_module_name VARCHAR2(200) ;
3821: BEGIN
3822: l_module_name := g_module_name || 'insert_gl_interface_record ';
3823:
3824: FOR i IN 1..20
3825: LOOP
3826: vl_attribtable(i) := NULL;

Line 3846: vl_str := 'INSERT INTO Gl_Interface

3842: vl_attribtable(SUBSTR(vg_trf_dept_id_attribute, 10)) := l_trf_dept_id;
3843: vl_attribtable(SUBSTR(vg_trf_main_acct_attribute, 10)) := l_trf_main_acct;
3844: END IF;
3845:
3846: vl_str := 'INSERT INTO Gl_Interface
3847: (
3848: status, ledger_id, accounting_date, currency_code,
3849: date_created, created_by, actual_flag, user_je_category_name,
3850: user_je_source_name, entered_dr, entered_cr, group_id,

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

3916:
3917: EXCEPTION
3918: WHEN OTHERS THEN
3919: vp_retcode := 2;
3920: vp_errbuf := SQLERRM || '--Error in Insert_Gl_Interface_Record procedure.';
3921: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3922: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3923: 'When Others Exception ' || vp_errbuf );
3924: END IF;

Line 3925: END insert_gl_interface_record;

3921: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3922: FV_UTILITY.DEBUG_MESG(FND_LOG.LEVEL_UNEXPECTED, l_module_name,
3923: 'When Others Exception ' || vp_errbuf );
3924: END IF;
3925: END insert_gl_interface_record;
3926: -----------------------------------------------------------------------------
3927: -- ------------------------------------------------------------------
3928: -- Procedure Check_bal_seg_value
3929: -- ------------------------------------------------------------------