GL根据账号取id

Declare
v_ChartOfAccoutsId Number := 50268; --GL帐户键弹性域结构ID
v_AccountName Varchar2(2000) := '14000.51010601.0.122.266501906.0.2030105.ZZZZZZ.0.0'; --GL帐户
v_CodeCombinationId Number; --GL帐户ID
Begin
v_CodeCombinationId := Fnd_Flex_ext.get_ccid(application_short_name => 'SQLGL', --用应产品简称
key_flex_code => 'GL#', --键弹性域代码
structure_number => v_ChartOfAccoutsId, --键弹性域结构编号
validation_date => to_char(SYSDATE,'YYYY/MM/DD HH24:MI:SS'), --帐户有效日期
concatenated_segments => v_AccountName); --
If (Nvl(v_CodeCombinationId, 0) = 0) Then
Dbms_Output.put_line('GL帐户组合失败');
Else
Dbms_Output.put_line('获得GL帐户ID:' || v_CodeCombinationId);
End If;
End;