After report trigger for RDF reports to submit bursting xml program in Oracle R12

After report trigger for RDF reports to submit bursting xml program in Oracle R12

function AfterReport return boolean is
req_id number;
begin
  IF :CS_NUMOFROWS > 0
  THEN
 
    IF nvl(fnd_profile.value_specific(NAME              => 'XX01_ENABLE_BURSTING_EMAIL'
                                     ,user_id           => fnd_global.user_id
                                     ,responsibility_id => fnd_global.resp_id
                                     ,application_id    => fnd_global.resp_appl_id
                                     ,org_id            => fnd_global.org_id
                                     ,server_id         => fnd_global.server_id)
          ,'N') = 'Y' -- - Oracle - modify 'XX01 Concurrent Programs'
    THEN
      req_id := fnd_request.submit_request('XDO',
                       'XDOBURSTREP',
                     '',
                     '',
                     FALSE,
                     'N',:P_CONC_REQUEST_ID,'N',
                     '','','','','','','',
                     '','','','','','','','','','',
                     '','','','','','','','','','',
                     '','','','','','','','','','',
                     '','','','','','','','','','',
                     '','','','','','','','','','',
                     '','','','','','','','','','',
                     '','','','','','','','','','',
                     '','','','','','','','','','',
                     '','','','','','','','','','');
      IF req_id = 0
      THEN
        srw.message(100, 'Failed to submit bursting program');
      END IF;
      --
      BEGIN
        srw.user_exit('FND SRWEXIT');
      EXCEPTION
        WHEN srw.user_exit_failure THEN
          srw.message(1000, 'Failed in After Report trigger');
          RETURN(FALSE);
      END;
      --
    ELSE
      srw.message(1001,'***Profile Option XX01: Enable Report Bursting Email set to "No", Bursting program NOT submitted');
    END IF;
  ELSE
    srw.message(1
               ,'Bursting Program NOT submitted as there is no Output Generated');
  END IF;
  RETURN(TRUE);
end;