Pass a CURSOR into a procedure

/* Main entry point for RKS to CARS process. */
   PROCEDURE usp_rks_cars_main (a_app_logfile_path IN NVARCHAR2)
   IS
      cur_rks_fund_pairs   ref_cur;
   BEGIN
      usp_sel_fund_asset_pairs (a_app_logfile_path, cur_rks_fund_pairs);
   EXCEPTION
      WHEN OTHERS
      THEN
         raise_application_error (20000,
                                     'Error= usp_rks_cars_main '
                                  || SQLCODE
                                  || ' Description='
                                  || SQLERRM
                                 );
   END;
 
   -- Select rks funds and asset pairs where there is a stock record from MHFSTA.
   PROCEDURE usp_sel_fund_asset_pairs (
      a_app_logfile_path   IN   NVARCHAR2,
      cur_rks_fund_pairs   IN   ref_cur
   )
   IS
   BEGIN
      OPEN cur_rks_fund_pairs FOR
         SELECT DISTINCT "mhfsta".portfolio, "mhfsta".cusip
                    FROM "mhfsta"
                   WHERE "mhfsta".trantype IN
                            (purchase  );
   EXCEPTION
      WHEN OTHERS
      THEN
         raise_application_error (20001,
                                     'Error=usp_sel_fund_asset_pairs '
                                  || SQLCODE
                                  || ' Description='
                                  || SQLERRM
                                 );
   END;