/* Formatted on 2010/06/19 13:58 (Formatter Plus v4.8.8) */
DECLARE
   l_success      NUMBER;
   l_phase        VARCHAR2 (1000);
   l_status       VARCHAR2 (1000);
   l_dev_phase    VARCHAR2 (1000);
   l_dev_status   VARCHAR2 (1000);
   l_message      VARCHAR2 (1000);
   INTERVAL       NUMBER          DEFAULT 60;
   max_wait       NUMBER          DEFAULT 0;
   m1             BOOLEAN;
BEGIN
   fnd_global.apps_initialize (user_id           => 1110,
                               resp_id           => 50606,
                               resp_appl_id      => 1
                              );
   l_success :=
      fnd_request.submit_request
                   ('FND',
                          -- Application Short name of the Concurrent Program.
                    'XX_IMPORT_PO',                     -- Program Short Name.
                    'XX_IMPORT_PO',             -- Description of the Program.
                    SYSDATE,       -- Submitted date. Always give the SYSDATE.
                    FALSE                            -- Always give the FLASE.
--'ALL', -- Passing the Value to the First Parameter of the report.
--1000,
--'N',
--'N',
---'N'
                   );
   COMMIT;

   BEGIN
      fnd_global.apps_initialize (user_id           => 1110,
                                  resp_id           => 50599,
                                  resp_appl_id      => 7000
                                 );
      l_success :=
         fnd_request.submit_request
             ('PO',       -- Application Short name of the Concurrent Program.
              'POXPOPDOI',                              -- Program Short Name.
              'Import Standard Purchase Orders',
                                                -- Description of the Program.
              SYSDATE,             -- Submitted date. Always give the SYSDATE.
              FALSE,                                 -- Always give the FLASE.
              NULL, -- Passing the Value to the First Parameter of the report.
              'STANDARD',
              NULL,
              'N',
              NULL,
              'INCOMPLETE',
              NULL,
              NULL,
              82,
              NULL,
              NULL,
              NULL,
              NULL,
              NULL
---'N'
             );
      COMMIT;
   END;
END;