CREATE OR REPLACE PROCEDURE apps.xx_submit_journal_import_prg

AS

   --DECLARE

   v_request_id   VARCHAR2 (100);

BEGIN

   -- First set the environment of the user submitting the request by submitting

   -- fnd_global.apps_initialize().

   -- The procedure requires three parameters

   -- Fnd_Global.apps_initialize(userId,responsibilityId,applicationId)

   -- replace the following code with correct value as get from sql above

   fnd_global.apps_initialize (2836, 20434, 101);

   --(  user_id , responsibility_id, application_id )

   v_request_id :=

      fnd_request.submit_request ('SQLGL',           -- Application short name

                                  'GLLEZLSRS',           -- Program short name

                                  '',

                                  --'Allows customers to submit Journal Import through the Standard Request Submission form.', -- description (Not require)

                                  '',        -- start_time (start immediately)

                                  FALSE,        -- sub_request (default FALSE)

                                  -- Next is the parameters list of ARACCPB

                                  '1000', --  Parameter  =   Data access_set_id

                                  '98',

                                  --    Parameter  =   Journal Source Name ( use journal soure name not journal suer source name)

                                  '1',          --     Parameter  =  Ledger ID

                                  '',            --      Parameter  = Group ID

                                  'N', --     Parameter  =  Post Error to Suspense

                                  'N', --     Parameter  = Create Summary Journal

                                  'N' --      Parameter  =  Import Descriptive Flexfeild

                                     );

   DBMS_OUTPUT.put_line ('Request submitted. ID = ' || v_request_id);

   fnd_file.put_line (fnd_file.output,

                      'Request submitted. ID = ' || v_request_id);

   COMMIT;

EXCEPTION

   WHEN OTHERS

   THEN

      DBMS_OUTPUT.put_line (

         'Request set submission failed - unknown error: ' || SQLERRM);

      fnd_file.put_line (

         fnd_file.output,

         'Request set submission failed - unknown error: ' || SQLERRM);

END;