EBS_GL复制单个日记账

/*
begin
  fnd_global.apps_initialize(user_id      => 8162,
                             resp_id      => 50692,
                             resp_appl_id => 20003);
  mo_global.init('M');
end;
*/




DECLARE
  
    cursor cur_get_line(p_reference_msg in varchar2) is--p_reference_msg为日记账界面其他信息标签页中的“参考”字段的值
      select gll.je_line_num line_no,
             gll.description reference10,
             nvl(gll.entered_dr, 0) entered_dr,
             nvl(gll.entered_cr, 0) entered_cr,
             glh.name reference4,
             glh.description reference5,
             gll.attribute2,
             gll.attribute3,
             gll.attribute10,
             gll.attribute11,
             gll.attribute12,
             gll.attribute13,
             gll.attribute14,
             gll.attribute15,
             gll.code_combination_id,
             gjc.je_category_name,
             gjc.user_je_category_name,
             gjs.je_source_name,
             gjs.user_je_source_name
        from gl_je_lines         gll,
             gl_je_headers       glh,
             gl_je_categories_vl gjc,
             gl_je_sources_vl    gjs
       where gll.je_header_id = glh.je_header_id
         and glh.je_category = gjc.je_category_name
         and glh.je_source = gjs.je_source_name
         and glh.external_reference = '100420170600004'
       order by gll.je_line_num asc;
  
    -------
    ln_return_relust   number := 0;--cux_gl_copy_journal_pkg.c_procedure_retcode_success;
    ls_function_name   varchar2(100) := 'TEST:复制单个日记账:';
    l_error_flag       boolean := false;
    l_iface_rec        gl_interface%rowtype;
    l_return_status    varchar2(10);
    l_msg_count        number;
    l_msg_data         varchar2(2000);
    l_count            number;
    v_reference1       varchar2(500);
    l_group_id         number;
    l_interface_run_id number;
    g