How to add the concurrent program to request group from backend in Oracle Apps R12

declare

  l_program_short_name  VARCHAR2 (200);
  l_program_application VARCHAR2 (200);
  l_request_group       VARCHAR2 (200);
  l_group_application   VARCHAR2 (200);
  l_check               VARCHAR2 (2);
 
BEGIN
 
  l_program_short_name  := 'XXFIN_GL_XE_LOADER';
  l_program_application := 'General Ledger';
  l_request_group       := 'GL Concurrent Program Group';
  l_group_application   := 'General Ledger';
 
  --Calling API to assign concurrent program to a reqest group
 
       fnd_program.add_to_group (program_short_name  => l_program_short_name,
                                  program_application => l_program_application,
                                  request_group       => l_request_group,
                                  group_application   => l_group_application                         
                                 );
 
  COMMIT;
 
 
  BEGIN
 
    --To check whether a Concurrent Program assigned to request group or not
 
     SELECT 'Y'
       INTO l_check
       FROM fnd_request_groups frg,
      fnd_request_group_units frgu,
      fnd_concurrent_programs fcp
      WHERE frg.request_group_id    = frgu.request_group_id
    AND frg.application_id          = frgu.application_id
    AND frgu.request_unit_id        = fcp.concurrent_program_id
    AND frgu.unit_application_id    = fcp.application_id
    AND fcp.concurrent_program_name = 'XXFIN_GL_XE_LOADER';
 
    dbms_output.put_line ('Adding Concurrent Program "XXFIN_GL_XE_LOADER" to Request Group Succeeded');
 
  EXCEPTION
  WHEN no_data_found THEN
    dbms_output.put_line ('Adding Concurrent Program "XXFIN_GL_XE_LOADER" to Request Group Failed');
  END;
END;
/