DECLARE
   channel    recordgroup;
   banks      recordgroup;
   errcode    NUMBER;
   errcode1   NUMBER;
   m_stmt     VARCHAR2 (100);
BEGIN
   m_stmt :='SELECT DISTINCT RI_TYPE FROM COMPETETITION_DATA_UPLOAD';
   IF ID_NULL (channel)
   THEN
      channel := CREATE_GROUP_FROM_QUERY ('CHANNEL', m_stmt);
   END IF;
    errcode := POPULATE_GROUP (channel);
      POPULATE_LIST ('BDE.REIMBURSEMENT_TYPE', channel);   

END;