EBS开发_复制单个日记账

--以下代码于20180122在Tony环境实现

--请求自行设置，只需要日记账中的一个参考字段及GL日期即可

create or replace package body cux_gl_copy_journal_pkg as

  g_set_of_bks_id number := fnd_profile.value('GL_SET_OF_BKS_ID');
  g_pkg_name constant varchar2(30) := 'cux_gl_copy_journal_pkg';


  procedure print_log(p_log_level in varchar2, p_log_info in varchar2) is
    ls_temp varchar2(5000) := '';
  begin
    select to_char(sysdate, '<yyyy-mm-dd>:<hh24:mm:ss>')
      into ls_temp
      from dual;
    ls_temp := ls_temp || ' - ' || upper(p_log_level) || ' - ' ||
               p_log_info;
    fnd_file.put_line(fnd_file.log, ls_temp);
    --dbms_output.put_line(ls_temp);
  end print_log;


  procedure print_debug(p_log_info in varchar2) is
  begin
    if c_print_log_value >= c_print_log_debug then
      print_log('debug', p_log_info);
    else
      null;
    end if;
  end print_debug;


  procedure print_info(p_log_info in varchar2) is
  begin
    if c_print_log_value >= c_print_log_info then
      print_log('info', p_log_info);
    else
      null;
    end if;
  end print_info;


  procedure print_error(p_log_info in varchar2) is
  begin
    if c_print_log_value >= c_print_log_error then
      print_log('error', p_log_info);
    else
      null;
    end if;
  end print_error;


  procedure raise_exception(x_return_status varchar2) is
  begin
  
    if (x_return_status = fnd_api.g_ret_sts_unexp_error) then
      raise fnd_api.g_exc_unexpected_error;
    elsif (x_return_status = fnd_api.g_ret_sts_error) then
      raise fnd_api.g_exc_error;
    end if;
  
  end raise_exception;


  procedure submit_request(x_return_status    out nocopy varchar2,
                           x_msg_count        out nocopy number,
                           x_msg_data         out nocopy varchar2,
                           p_interface_run_id in number) is
    l_request_id     number;
    l_api_name       varchar2(200) := 'submit_request';
    l_savepoint_name varchar2(200) := 'submit_request';
  begin
    x_return_status := cux_api.start_activity(p_pkg_name       => g_pkg_name,
                                              p_api_name       => l_api_name,
                                              p_savepoint_name => l_savepoint_name);
  
    if p_interface_run_id > 0 then
    
      l_request_id := fnd_request.submit_request('SQLGL',
                                                 'GLLEZL',
                                                 '',
                                                 to_char(sysdate,