Create Executable and Concurrent Program And Assign It To Request Group From Back End

declare

 v_executable          varchar2(230):= 'XX_MOVE_ORDER_WIP';

 v_conc_program_name varchar2(230):='TEI - Move Order Report';

 v_count number;

 v_assign_flag varchar2(1);

begin

 
 

  fnd_program.EXECUTABLE(executable =>v_executable,
                 application=>'XXCUS',
                     short_name=>v_executable,
                 description=>'',
             execution_method=>'Oracle Reports',
             execution_file_name =>v_executable);
           
             commit;
           
           
             begin
                    select count(*)
                    into v_count
                    from fnd_executables fe where fe.EXECUTABLE_NAME=v_executable;
                   
                   
                    if v_count=1 then
                   
                        FND_PROGRAM.REGISTER
                                   (program                  => v_conc_program_name               ---  Concurrent Program Name
                                   ,application              => 'XXCUS'       ---  Application Name
                                   ,enabled                  => 'Y'                                                           ---  Enabled Flag
                                   ,short_name               => v_executable                     ---  Short Name of Conc Program
                                   ,description              => ''                                                             ---  Description
                                   ,executable_short_name    => v_executable                ---  Executable of the Conc Program
                                   ,executable_application   => 'XXCUS'       ---  Executable application
                                   ,execution_options        => ''
                                   ,priority                 => ''
                                   ,save_output              => 'Y'
                                   ,print                    => 'Y'
                                   ,cols                     => ''
                                   ,rows                     => ''
                                   ,style                    => 'Landscape'
                                   ,style_required           => 'N'
                                   ,printer                  => ''
                                   ,request_type             => ''
                                   ,request_type_application => ''
                                   ,use_in_srs               => 'Y'
                                   ,allow_disabled_values    => 'N'
                                   ,run_alone                => 'N'
                                   ,output_type              => 'XML'                                    ----  Out put format
                                   ,enable_trace             => 'N'
                                   ,restart                  => 'Y'
                                   ,nls_compliant            => 'Y'
                                   ,icon_name                => ''
                                   ,language_code            => 'US'
                                   ,mls_function_short_name  => ''
                                   ,mls_function_application => ''
                                   ,incrementor              => '');
                                 
                                commit;
                             
                             
                             
                               v_count:=null;
                             
                               begin
                                                     
                                      select count(*)
                                      into
                                      v_count
                                      from fnd_concurrent_programs fcp
                                      where fcp.CONCURRENT_PROGRAM_NAME =v_executable;
                                   
                             
                                  if v_count=1 then
                                 
                                  v_assign_flag :='Y';
                                 
                                  fnd_program.parameter
                                         (program_short_name => v_executable                  ---  Short Name of Conc Program
                                         ,application => 'XXCUS'         ---  Application Name
                                         ,sequence => '1'                                                           ---  Sequnce Number
                                         ,parameter => 'Operating Unit'                                                      ---  Parameter Name
                                         ,description => ''                                   ---  Paramter Description
                                         ,enabled => 'y'                                                              ---  Enabled Flag
                                         ,value_set => 'TEI_OPERATING_UNIT'                                      ---  Value Set Name
                                         ,default_type => ''
                                         ,default_value => ''
                                         ,required => 'y'                                                                 ---  Required flag ( Mandatory or not)
                                         ,enable_security => 'n'
                                         ,range => ''
                                         ,display => 'y'
                                         ,display_size => '15'
                                         ,description_size => '50'
                                         ,concatenated_description_size=> '25'
                                         ,prompt => 'Operating Unit'
                                         ,token => 'P_ORG_ID');
                                       
                                     
                                       
                                         commit;
                                       
                                       
                                       
                                       
                                 
                                  end if;
                                 
                                  if v_assign_flag='Y' then
                                 
                                   FND_PROGRAM.ADD_TO_GROUP
                                           (program_short_name  => v_executable                ---  Short Name of Conc Program
                                           ,program_application =>  'XXCUS'   ---  Application Name
                                           ,request_group       => 'XXCUS Request Group'                                   ---  Request group name
                                           ,group_application   => 'XXCUS');
                                  end if;
                                                     
                                   commit;
                                 end;
                                               
                                                 
                             
                   
                    end if;
             end;
           
           

end;