通过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,
       gl_flexfields_pkg.get_description_sql(&char_of_account_id,3,gcc.segment3) seg3,
       gl_flexfields_pkg.get_description_sql(&char_of_account_id,4,gcc.segment4) seg4,
       gl_flexfields_pkg.get_description_sql(&char_of_account_id,5,gcc.segment5) seg5,
       gl_flexfields_pkg.get_description_sql(&char_of_account_id,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;