Check and validate GL Account

1:  declare   
2:   v_seg_array                    Fnd_Flex_Ext.SegmentArray;  
3:   v_num_of_segments                 NUMBER;  
4:   v_ccid                       NUMBER ;   
5:   v_message                     varchar(1000);             
6:   v_get_comb                     BOOLEAN;  
7:  begin  
8:    v_ccid :=null;  
9:    v_message := null ;  
10:    v_num_of_segments := fnd_flex_ext.breakup_segments(concatenated_segs => '01-000000-000-',delimiter => '-',segments => v_seg_array);  
11:   v_get_comb := fnd_flex_ext.get_combination_id('SQLGL',  
12:                          'GL#',  
13:                          CHAR_OF_ACCOUNT_ID,  
14:                          trunc(sysdate),  
15:                          v_num_of_segments,  
16:                          v_seg_array,  
17:                          v_ccid);  
18:   if v_get_comb = false then  
19:    v_message := fnd_flex_ext.get_message;  
20:      raise_application_error(-20001,'invail Account: /'||v_message );   
21:      else  
22:      dbms_output.put_line('VCCID '||v_ccid ||' num of sements '||v_num_of_segments);    
23:    end if;  
24:   END; ----------------