Oracle EBS 供应商银行创建

DECLARE

  l_return_status VARCHAR2 ( 1 );

  l_msg_count     NUMBER := 0 ;

  l_msg_data      VARCHAR2 ( 4000 );

  l_msg_index     NUMBER ;

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

  l_bank_id     NUMBER ;

  l_extbank_rec iby_ext_bankacct_pub.extbank_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_extbank_rec                       := NULL ;

  l_extbank_rec.bank_name             := '北京京东银行' ;

  l_extbank_rec.object_version_number := 1 ;

  l_extbank_rec.country_code          := 'CN' ;

  l_extbank_rec.institution_type      := 'BANK' ;

  iby_ext_bankacct_pub.create_ext_bank(p_api_version   => 1.0 ,

                                       p_init_msg_list => fnd_api.g_false,

                                       p_ext_bank_rec  => l_extbank_rec,

                                       x_bank_id       => l_bank_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_bank_id);

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

  END IF ;

END ;