[Home] [Help]
432: --
433: end remove_retroele_ee;
434: --
435: /*
436: * Procedure to delete entries from gl_interface tables.
437: */
438: procedure remove_gl_entries(p_info in rollback_rec) is
439: c_indent varchar2(40);
440: l_source_name gl_interface.user_je_source_name%type;
436: * Procedure to delete entries from gl_interface tables.
437: */
438: procedure remove_gl_entries(p_info in rollback_rec) is
439: c_indent varchar2(40);
440: l_source_name gl_interface.user_je_source_name%type;
441: --
442: begin
443: if g_debug then
444: c_indent := 'py_rollback_pkg.remove_gl_entries';
471: --
472: if g_debug then
473: hr_utility.set_location(c_indent, 35);
474: end if;
475: delete from gl_interface gl
476: where gl.reference21 = to_char(p_info.pact_id)
477: and gl.user_je_source_name = l_source_name;
478: --
479: mtgl_mode_cached := TRUE;
484: -- for multi-threaded transfer to GL only
485: if g_debug then
486: hr_utility.set_location(c_indent, 40);
487: end if;
488: delete from pay_gl_interface pgl
489: where pgl.assignment_action_id = p_info.assact_id;
490: end if;
491: --
492: end remove_gl_entries;
3071: -- Set the Continuous Calc override flag, so that the trigger points
3072: -- are not fired.
3073: pay_continuous_calc.g_override_cc := TRUE;
3074: --
3075: -- Ensure delete from gl_interface in remove_gl_entries on
3076: -- each execution.
3077: mtgl_mode_cached := FALSE;
3078: --
3079: -- how many errors can we stand, what commit limit do we have?