PROCEDURE Init IS
     cursor get_cao is
        select  to_char(id_flex_num)
        from    fnd_id_flex_structures
        where   id_flex_structure_code = 'XXX_ACCOUNTING_FLEXFIELD'
                and id_flex_code = 'GL#';
     v_cao    varchar2( 1000 );          
  begin
    open get_cao;
    fetch get_cao into v_cao;
    if get_cao%notfound then
        v_cao := '101';
    end if;
    close get_cao;
        
      fnd_key_flex.define(
      BLOCK=>'DETAILBLOCK',
      FIELD=>'NEW_ACCOUNT',
      APPL_SHORT_NAME=>'SQLGL',
      CODE=>'GL#',
      NUM=>v_cao,
      ID=>'CODE_COMBINATION_ID',
      DESCRIPTION=>'',
      TITLE=>'XXX Accounting Flexfield',
      VALIDATE=>'FULL',
      --QBE_IN=>'Y',
      --DERIVE_ALWAYS=>'Y',
      updateable => 'ALL',
     -- VRULE=>'\\nSUMMARY_FLAG\\nI\\nAPPL=SQLGL;NAME=GL_NO_PARENT_SEGMENT_ALLOWED\\nN',
      --where_clause => 'summary_flag != ''Y''',
      QUERY_SECURITY =>'Y');

END;