Concurrent Program Registration From Back End

/* **************************************************************************************
* PVCS :   $Header:   //ccpvcs01/pvcsvm/bstfs/COFI/SQL
*
* Name :    XXCOFI_CUSTOMER_CONV_REGISTER.sql           
*
* Version :            $Revision:   1.0  $
*
* Function:            Registers concurrent Program
*
* Author:              CHANDRA
*
* Parameters used:     None
*
* Called by :          None
*
* Calls :              None
*
* Logfile :          
* **************************************************************************************
* Revision History:
* $Log:  
* ************************************************************************************** */

SET SERVEROUT ON;

begin
   IF (FND_PROGRAM.PROGRAM_EXISTS
       (program                  => 'XXCOFI_CUST_CONVERSION'
       ,application              => 'HBC COFI Custom Application'))
   THEN
        FND_PROGRAM.DELETE_PROGRAM( 'XXCOFI_CUST_CONVERSION', 'XXCOFI');
        FND_PROGRAM.DELETE_EXECUTABLE( 'XXCOFI_CUST_CONVERSION', 'XXCOFI');
   END IF;
   COMMIT;
end;
/

commit
/

BEGIN
FND_PROGRAM.executable('XXCOFI_CUST_CONVERSION' -- executable
, 'XXCOFI' -- application
, 'XXCOFI_CUST_CONVERSION' -- short_name
, 'Customer One Time Conversion' -- description
, 'PL/SQL Stored Procedure' -- execution_method
, 'xxcofi_cust_conv_pkg.main' -- execution_file_name
, '' -- subroutine_name
, '' -- icon_name
, 'US' -- language_code
, '');
END;
/

commit
/

BEGIN
FND_PROGRAM.register('COFI Customer Conversion' -- program
, 'XXCOFI' -- application
, 'Y' -- enabled
, 'XXCOFI_CUST_CONVERSION' -- short_name
, 'COFI Customer Conversion' -- description
, 'XXCOFI_CUST_CONVERSION' -- executable_short_name
, 'XXCOFI' -- executable_application
, '' -- execution_options
, '' -- priority
, 'Y' -- save_output
, 'Y' -- print
, '' -- cols
, '' -- rows
, 'A4' -- style
, 'Y' -- style_required
, '' -- printer
, 'Standard Request Type' -- request_type
, 'HBC Custom Application' -- request_type_application
, 'Y' -- use_in_srs
, 'N' -- allow_disabled_values
, 'N' -- run_alone
, 'TEXT' -- output_type
, 'N' -- enable_trace
, 'Y' -- restart
, 'Y' -- nls_compliant
, '' -- icon_name
, 'US'); -- language_code
END;
/

COMMIT
/

DECLARE
NOT_APPS_USER EXCEPTION;
BEGIN
FND_PROGRAM.DEBUG_ON;
FND_PROGRAM.SET_SESSION_MODE('customer_data');
dbms_output.enable;
dbms_output.put_line('COFI Customer Conversion-Start Registering Conc Pgm Parameters');
IF ( USER != 'APPS')
THEN
dbms_output.put_line('Aborting - Must be run as user "APPS"');
RAISE NOT_APPS_USER;
END IF;

IF (FND_PROGRAM.PARAMETER_EXISTS
(program_short_name => 'XXCOFI_CUST_CONVERSION'
,application => 'HBC COFI Custom Application'
,parameter => 'p_batch_size'))
THEN

dbms_output.put_line('COFI Customer Conversion "File Name" already exists');

dbms_output.put_line('COFI Customer Conversion "File Name" Dropping');

FND_PROGRAM.DELETE_PARAMETER(program_short_name => 'XXCOFI_CUST_CONVERSION'
                            ,application => 'HBC COFI Custom Application'
                            ,parameter => 'p_batch_size');
commit;

dbms_output.put_line('COFI Customer Conversion "File Name" Creating');

FND_PROGRAM.PARAMETER
(program_short_name => 'XXCOFI_CUST_CONVERSION'
,application => 'HBC COFI Custom Application'
,sequence => '1'
,parameter => 'p_batch_size'
,description => 'Customer Batch Size'
,enabled => 'Y'
,value_set => '10/Number'
,default_type => ''
,default_value => ''
,required => 'N'
,enable_security => 'N'
,range => ''
,display => 'Y'
,display_size => '15'
,description_size => '50'
,concatenated_description_size=> '25'
,prompt => 'Batch Size'
,token => '');

ELSE

dbms_output.put_line('COFI Customer Conversion "File Name" Not already exists GOt in the Else');

FND_PROGRAM.PARAMETER
(program_short_name => 'XXCOFI_CUST_CONVERSION'
,application => 'HBC COFI Custom Application'
,sequence => '1'
,parameter => 'p_batch_size'
,description => 'Customer Batch Size'
,enabled => 'Y'
,value_set => '10/Number'
,default_type => ''
,default_value => ''
,required => 'N'
,enable_security => 'N'
,range => ''
,display => 'Y'
,display_size => '15'
,description_size => '50'
,concatenated_description_size=> '25'
,prompt => 'Batch Size'
,token => '');
END IF;

COMMIT;

dbms_output.put_line('COFI Customer Conversion-Completed Registering Concurrent Program Parameters');

EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(substr(FND_PROGRAM.MESSAGE||' '||sqlerrm,1,255));
ROLLBACK;
END;
/



DECLARE
   NOT_APPS_USER             EXCEPTION;
BEGIN
   FND_PROGRAM.DEBUG_ON;
   FND_PROGRAM.SET_SESSION_MODE('customer_data');
   dbms_output.enable;
   dbms_output.put_line('XXCOFI_CUST_CONVERSION-Start Registering of Conc Pgm to Request Groups');
   IF ( USER != 'APPS')
   THEN
      dbms_output.put_line('Aborting - Must be run as user "APPS"');
      RAISE NOT_APPS_USER;
   END IF;   
   IF (FND_PROGRAM.REQUEST_GROUP_EXISTS
       (request_group  => 'HBC Batch Jobs'
       ,application    => 'HBC Custom Application'))
   THEN
       dbms_output.put_line('XXCOFI_CUST_CONVERSION-Request Group "HBC Batch Jobs" Already Exists');
       IF (FND_PROGRAM.PROGRAM_IN_GROUP
           (program_short_name  => 'XXCOFI_CUST_CONVERSION'
           ,program_application => 'HBC COFI Custom Application'
           ,request_group       => 'HBC Batch Jobs'
           ,group_application   => 'HBC Custom Application'))
       THEN
           dbms_output.put_line('XXCOFI_CUST_CONVERSION-Program Already in Request Group "HBC Batch Jobs"');
       ELSE
           FND_PROGRAM.ADD_TO_GROUP
           (program_short_name  => 'XXCOFI_CUST_CONVERSION'
           ,program_application => 'HBC COFI Custom Application'
           ,request_group       => 'HBC Batch Jobs'
           ,group_application   => 'HBC Custom Application');
       END IF;
   END IF;
   COMMIT;
   dbms_output.put_line('XXCOFI_CUST_CONVERSION-Completed Registering Conc Pgm to Request Groups');
EXCEPTION
   WHEN OTHERS THEN
        dbms_output.put_line(substr(FND_PROGRAM.MESSAGE||' '||sqlerrm,1,255));
        ROLLBACK;
END;
/
exit
/