通过CCID获得各个段的描述的方法

gl_code_combination 是存放会计科目组合的键弹性域的表单。
该表单中没有字段的描述，一个段一个段的加描述太麻烦了。
我通常都是通过以下的方法来获得描述

sql语句上：
SELECT gl_flexfields_pkg.get_description_sql(&char_of_account_id,1,gcc.segment1) seg1,
???????gl_flexfields_pkg.get_description_sql(&char_of_account_id,2,gcc.segment2) seg2,3,gcc.segment3) seg3,4,gcc.segment4) seg4,5,gcc.segment5) seg5,6,gcc.segment6) seg6
FROM gl_code_combinations gcc
WHERE gcc.code_combination_id = &code_combination_id;

form上： ??declare ??????????l_char_id number; ??????????l_account varchar2(300); ??????????l_desc varchar2(500); ??????????l_flex_return varchar2(480); ??????????l_num number; ??begin ?????? ???????dbms_application_info.set_client_info(122); ????????--==Get structure_number ????????????select gl.chart_of_accounts_id ??????????????into l_char_id ??????????????from gl_sets_of_books gl,???????????? ???????????????????fnd_currencies fnd,??????????????????? ???????????????????ap_system_parameters asp,???????????????????gl_daily_conversion_types gdct,???????????????????financials_system_parameters fsp,???????????????????ap_terms??apt ?????????????WHERE gl.set_of_books_id = asp.set_of_books_id ???????????????????AND gl.currency_Code = fnd.currency_code ???????????????????AND asp.default_exchange_rate_type = gdct.conversion_type(+) ???????????????????AND asp.prepayment_terms_id = apt.term_id(+); ????????--==Get the CCID ??????????l_account := '11.000000.212101.0000.0000.0000'; ??????????l_num :=fnd_flex_ext.get_ccid( ????????????????????????????????????????application_short_name => 'SQLGL',????????????????????????????????????????key_flex_code => 'GL#',????????????????????????????????????????structure_number => 101,????????????????????????????????????????validation_date => to_char(sysdate,'YYYY-MM-DD'),????????????????????????????????????????concatenated_segments => l_account ???????????????????????????????????????); ??????????dbms_output.put_line(l_num); ???????--==Get segment conbination ???????????l_flex_return := FND_FLEX_EXT.GET_SEGS( ???????????????????????????????????????APPLICATION_SHORT_NAME => 'SQLGL',??????????????????????????????????????KEY_FLEX_CODE??????????=> 'GL#',??????????????????????????????????????STRUCTURE_NUMBER???????=> l_char_id,??????????????????????????????????????COMBINATION_ID?????????=> l_num); ??????????dbms_output.put_line(l_flex_return); ???????--==Get segment description ???????????if (FND_FLEX_KEYVAL.validate_ccid( ????????????????appl_short_name => 'SQLGL',????????????????key_flex_code => 'GL#',????????????????structure_number => l_char_id,????????????????????????????????????????????????????combination_id => l_num,????????????????????????????????????????????????????displayable?????????=> 'ALL',????????????????????????????????????????????????????data_set????????=> NULL,????????????????????????????????????????????????????vrule????????????????=> NULL,????????????????????????????????????????????????????--security????????=> 'IGNORE',????????????????????????????????????????????????????get_columns????????=> NULL,????????????????????????????????????????????????????resp_appl_id????????=> NULL,????????????????????????????????????????????????????resp_id????????????????=> NULL,????????????????????????????????????????????????????user_id????????????????=> NULL) ???????????????) Then??????? ???????????????l_desc := FND_FLEX_KEYVAL.concatenated_descriptions; ???????????end if; ??????????dbms_output.put_line(l_desc); ??end;