Oracle EBS 供应商分行创建

DECLARE

  l_return_status VARCHAR2(1 );

  l_msg_count     NUMBER := 0 ;

  l_msg_data      VARCHAR2(4000 );

  l_msg_index     NUMBER;

  /*******************客户化内容开始*************************/

  l_branch_id         NUMBER;

  l_extbankbranch_rec iby_ext_bankacct_pub.extbankbranch_rec_type;

  l_result_rec        iby_fndcpt_common_pub.result_rec_type;

  /*******************客户化内容结束*************************/

BEGIN

  --初始化

  fnd_profile.put( 'PRINT_DEBUG',

                  'Y');

  dbms_output.enable( 10000000);

  fnd_msg_pub.initialize;

  /*******************客户化内容开始*************************/

  l_extbankbranch_rec                           := NULL;

  l_extbankbranch_rec.bank_party_id             := 1145669; -----大行ID  必须

  l_extbankbranch_rec.branch_name               := '北京京东银行海淀分行' ; ----支行名称

  l_extbankbranch_rec.branch_type               := 'SWIFT'; ----支行类型

  l_extbankbranch_rec.bch_object_version_number := 1; -----记录版本

  iby_ext_bankacct_pub.create_ext_bank_branch(p_api_version         => 1.0,

                                              p_init_msg_list       => fnd_api.g_false,

                                              p_ext_bank_branch_rec => l_extbankbranch_rec,

                                              x_branch_id           => l_branch_id,

                                              x_return_status       => l_return_status,

                                              x_msg_count           => l_msg_count,

                                              x_msg_data            => l_msg_data,

                                              x_response            => l_result_rec);

  /*******************客户化内容结束*************************/

  IF (l_return_status <> fnd_api.g_ret_sts_success) THEN

    dbms_output.put_line( 'FAILED');

    IF (fnd_msg_pub.count_msg > 0 ) THEN

      dbms_output.put_line( 'Error Message Stack :');

      dbms_output.put_line( '----------------------------------------' );

      FOR i IN 1 .. fnd_msg_pub.count_msg

      LOOP

        fnd_msg_pub.get(p_msg_index     => i,

                        p_encoded       => fnd_api.g_false,

                        p_data          => l_msg_data,

                        p_msg_index_out => l_msg_index);

        dbms_output.put_line(l_msg_data);

      END LOOP ;

      fnd_msg_pub.initialize;

    END IF ;

  ELSE

    dbms_output.put_line( 'SUCCESS');

    /*******************客户化内容开始*************************/

    dbms_output.put_line(l_branch_id);

    /*******************客户化内容结束*************************/

  END IF;

END;