CREATE OR REPLACE PACKAGE BODY EFT_NOM.cama_job_submission IS
  --
  -- ---------------------------------------------------------------------------------------------------------------------
  --
  -- Package:       cama_job_submission
  --
  -- Application:   LNG Importation
  --
  -- Creation Date: 23/11/2004
  --
  -- ---------------------------------------------------------------------------------------------------------------------
  --
  -- Header Information
  --
  g_header    CONSTANT VARCHAR2(160) := '$Header: /Isle Of Grain/database/PLSQL/cama_job_submission.pck 8     16/08/05 16:05 Gilberta $';
  g_revision  CONSTANT VARCHAR2(160) := '$Revision: 8 $';
  --
/*
 * $History: cama_job_submission.pck $
 *
 * *****************  Version 8  *****************
 * User: Gilberta     Date: 16/08/05   Time: 16:05
 * Updated in $/Isle Of Grain/database/PLSQL
 * Modified to add space into second submission of dfn
 *
 * *****************  Version 7  *****************
 * User: Gilberta     Date: 28/07/05   Time: 16:45
 * Updated in $/Isle Of Grain/database/PLSQL
 * Modified to add 1 to the next date
 *
 * *****************  Version 4  *****************
 * User: Gilberta     Date: 30/06/05   Time: 15:33
 * Updated in $/Isle Of Grain/database/PLSQL
 * Modified to include scheduled faxes
 *
 * *****************  Version 3  *****************
 * User: Gilberta     Date: 4/03/05    Time: 14:21
 * Updated in $/Isle Of Grain/database/PLSQL
 * Modified to include voice message components
 *
 * *****************  Version 2  *****************
 * User: Gilberta     Date: 9/02/05    Time: 12:28
 * Updated in $/Isle Of Grain/database/PLSQL
 * Modified to include process routines after files have been loaded.
 *
 * *****************  Version 1  *****************
 * User: Gilberta     Date: 7/01/05    Time: 12:54
 * Created in $/Isle Of Grain/database/PLSQL
 * Initial Version
 *
 */
  --
  -- S U B M I T   J O B
  --
  PROCEDURE submit_job ( p_what      IN all_jobs.what%TYPE
                       , p_next_date IN all_jobs.next_date%TYPE
                       , p_interval  IN all_jobs.interval%TYPE
                       ) IS
    --
    CURSOR c_allj ( p_what IN all_jobs.what%TYPE ) IS
      SELECT allj.job
      FROM   all_jobs allj
      WHERE  allj.what = p_what;
    --
    v_job all_jobs.job%TYPE;
    --
  BEGIN
    --
    -- Check for jobs of this type and remove them
    --
    FOR c_allj_rec IN c_allj ( p_what ) LOOP
      --
      dbms_job.remove ( c_allj_rec.job );
      --
      -- Commit following removal
      --
      COMMIT;
      --
    END LOOP;
    --
    -- Submit the job
    --
    dbms_job.submit ( v_job
                    , p_what
                    , p_next_date
                    , p_interval
                    );
    --
    -- Commit following submission
    --
    COMMIT;
    --
  END submit_job;
  --
  -- S U B M I T
  --
  PROCEDURE submit IS
  BEGIN
    --
    -- Call the submit job sub-procedure which will remove any existing jobs scheduled (not running) and resubmit them with
    -- the parameters specified below.
    --
    -- Parameters are: what      : PL/SQL procedure to run
    --                 next date : Next date when the job will be run
    --                 interval  : The next time the job is to be run
    --
    -- File load and process interface
    --
    submit_job ( 'BEGIN
                  lisu_file_load.load_files;
                  lisu_process_files.process_data;
                  END;'
               ,  trunc(sysdate+1/24,'HH')
               , 'trunc(sysdate+1/24,''HH'')'
               );
    --
  END submit;
  --
END cama_job_submission;
/