ebs 怎么添加oracle approvals management 业务分析专家 职责

ORACLE EBS--AME模块笔记 Approvals Management Engine Oracle AME是Oracle Approvals Manager Engine的缩写，用于为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

---