R12中通过primary ledger 的CCID取得相对应的secondary ledger的CCID

-- get ledger mapping id
     BEGIN
       SELECT  coa_mapping_id
         INTO  vl_mapping_id
         FROM  gl_coa_mappings
        WHERE  NAME  =  vgc_mapping_name
          AND  rownum  =   1 ;    
     END ;
  
     -- Clear temp table
     BEGIN
       DELETE  gl_accts_map_int_gt;
     END ;
     -- Insert R12 CCID
     BEGIN
       INSERT   INTO  gl_accts_map_int_gt
        (from_ccid, coa_mapping_id)
       VALUES
        (pi_ccid, vl_mapping_id);   
     END ;
     --  call API  
    gl_accounts_map_grp.map(mapping_name  =>  vgc_mapping_name,
                            create_ccid   =>  TRUE,
                            debug         =>   NULL );
  
     COMMIT ;
     -- get secondary ledger ccid
     BEGIN
       SELECT  to_ccid  INTO  vl_convert_ccid  FROM  gl_accts_map_int_gt;    
     END ;
     -- return ccid
     RETURN  vl_convert_ccid;