Create or Replace PROCEDURE journal_import (
   errorstatus OUT NOCOPY   VARCHAR2
)
AS
   CURSOR c_import
   IS
     SELECT DISTINCT gs.je_source_name vsource, gl.group_id group_id
           FROM apps.gl_interface gl, apps.gl_je_sources gs
          WHERE gl.user_je_source_name = gs.user_je_source_name
            AND gl.user_je_source_name = 'XXXX' 
            AND gl.set_of_books_id = xxx;
   l_interface_run_id        NUMBER;
   l_submittedreqid          NUMBER;
   l_set_of_books_id         NUMBER;
   p_summary_journal_entry   VARCHAR2 (2);
   x_appl_id                 NUMBER;
   x_user_id                 NUMBER;
   x_resp_id                 NUMBER;
   x_group_id                NUMBER;
   x_source                  VARCHAR2(10); 
BEGIN
   l_set_of_books_id := 1001;
   p_summary_journal_entry := 'N';
 SELECT application_id
     INTO x_appl_id
     FROM fnd_application
    WHERE application_short_name = 'SQLGL';
   SELECT fnd_profile.VALUE ('USER_ID'), fnd_profile.VALUE ('RESP_ID')
     INTO x_user_id, x_resp_id
     FROM DUAL;
   fnd_global.apps_initialize (x_user_id, x_resp_id, x_appl_id);   
 FOR  c_journal_import in c_import
 LOOP
   BEGIN
      SELECT gl_journal_import_s.NEXTVAL
        INTO l_interface_run_id
        FROM DUAL;
   x_group_id :=c_journal_import.group_id;
   x_source   :=c_journal_import.vsource;
      INSERT INTO gl_interface_control
                  (je_source_name, status, interface_run_id, group_id,
                   set_of_books_id, packet_id
                  )
           VALUES (x_source, 'S', l_interface_run_id, x_group_id,
                   1001, ''
                  );
      COMMIT;
   END;
   l_submittedreqid :=
      fnd_request.submit_request ('SQLGL',           -- application short name
                                  'GLLEZL',              -- program short name
                                  NULL,                        -- program name
                                  NULL,                          -- start date
                                  FALSE,                        -- sub-request
                                  l_interface_run_id,      -- interface run id
                                  l_set_of_books_id,        -- set of books id
                                  'N',               -- error to suspense flag
                                  NULL,                -- from accounting date
                                  NULL,                  -- to accounting date
                                  NVL (p_summary_journal_entry, 'N'),  -- create summary flag
                                  'N'                 -- import desc flex flag
                                 );
   COMMIT;
    -- fnd_file.put_line (fnd_file.output, 'request_id ' || l_submittedreqid);
  END LOOP;   
   IF l_submittedreqid = 0 THEN
   errorstatus := 'ERROR';
   END IF;
END journal_import;