Add Concurrent Program to Request Group from backend

DECLARE

  lc_program_short_name  VARCHAR2 (200);
  lc_program_application VARCHAR2 (200);
  lc_request_group       VARCHAR2 (200);
  lc_group_application   VARCHAR2 (200);
  lc_check               VARCHAR2 (2);

BEGIN

  lc_program_short_name  := 'XXPO123REPORT';
  lc_program_application := 'XXPO Custom';
  lc_request_group       := 'Custom Purchasing';
  lc_group_application   := 'XXPO Custom';

  -- Calling API to assign concurrent program to a reqest group

   apps.fnd_program.add_to_group (program_short_name  => lc_program_short_name,
                                  program_application => lc_program_application,
                                  request_group       => lc_request_group,
                                  group_application   => lc_group_application                            
                                 );  

  COMMIT;

  BEGIN

    --To check whether a concurrent program has added 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 = 'XXPO123REPORT';
    dbms_output.put_line ('Adding Concurrent Program to Request Group Succeeded');

  EXCEPTION

  WHEN no_data_found THEN

    dbms_output.put_line ('Adding Concurrent Program to Request Group Failed');

  END;

END;

/