AOL SCRIPTS

Value set creation:
/* Formatted on 2010/11/30 14:19 (Formatter Plus v4.8.8) */
BEGIN
   fnd_flex_val_api.create_valueset_table (value_set_name               => 'CAR_TRAN_TYPES3',
                                           description                  => 'Transaction Types',
                                           security_available           => 'N',
                                           enable_longlist              => 'N',
                                           format_type                  => 'C',
                                           maximum_size                 => 20,
                                           PRECISION                    => NULL,
                                           numbers_only                 => 'N',
                                           uppercase_only               => 'N',
                                           right_justify_zero_fill      => 'N',
                                           min_value                    => NULL,
                                           max_value                    => NULL,
                                           table_application            => 'Custom Accounts Receivable',
                                           table_appl_short_name        => 'CAR',
                                           table_name                   => 'CAR_CHARGE_AREAS',
                                           allow_parent_values          => 'N',
                                           value_column_name            => 'INVOICE_TRAN_TYPE',
                                           value_column_type            => 'C',
                                           value_column_size            => 20,
                                           meaning_column_name          => NULL,
                                           meaning_column_type          => NULL,
                                           meaning_column_size          => NULL,
                                           id_column_name               => NULL,
                                           id_column_type               => NULL,
                                           id_column_size               => NULL,
                                           where_order_by               => NULL,
                                           additional_columns           => NULL
                                          );
END;

**********************************************************
AOL Scripts:
set serveroutput on
set define off

declare
  l_stage varchar2(100);
  program_found EXCEPTION;
begin

fnd_program.debug_on;
fnd_program.set_session_mode ('customer_data');

---------------------------------------------------------------------------
-- Check if Program exists and if so delete it
---------------------------------------------------------------------------
l_stage := 'Stage 10 - Delete Program';

dbms_output.put_line('Delete programs if they exist');

if fnd_program.program_exists ('CARCLINV', 'CAR') then
   fnd_program.delete_program('CARCLINV', 'CAR');
end if;

----------------------------------------------------------------------------
-- Check if Executable exists and if so delete it
----------------------------------------------------------------------------
l_stage := 'Stage 20 - Delete Executable';

dbms_output.put_line('Delete Executables if they exist');

if fnd_program.executable_exists ('CARCLINV', 'CAR') then
    fnd_program.delete_executable('CARCLINV', 'CAR');
end if;

----------------------------------------------------------------------------
-- Create Executable 
----------------------------------------------------------------------------
l_stage := 'Stage 30 - Create Executable';

dbms_output.put_line('Create Executeable');

fnd_program.executable
    (executable                     => 'CARCLINV',
     application                    => 'CAR',
     short_name                     => 'CARCLINV',
     description                    => 'Supplier Rebate Contribution Invoices',
     execution_method               => 'PL/SQL Stored Procedure',
     execution_file_name            => 'car_claims_invoice_extract_pkg.carclinvmain');

-----------------------------------------------------------------------------
-- Create Program
-----------------------------------------------------------------------------
l_stage := 'Stage 40 - Create Program';

dbms_output.put_line('Create Program');

fnd_program.register
    (program                        => 'Supplier Rebate Contribution Invoices',
     application                    => 'CAR',
     enabled                        => 'Y',
     short_name                     => 'CARCLINV',
     description                    => 'Supplier Rebate Contribution Invoices',
     executable_short_name          => 'CARCLINV',
     executable_application         => 'CAR',
     execution_options              => NULL,
     priority                       => NULL,
     save_output                    => 'Y',
     output_type                    => 'TEXT',
     use_in_srs                     => 'Y',
     allow_disabled_values          => 'N',
     nls_compliant                  => 'N');

-----------------------------------------------------------------------------
--  Create Parameters
-----------------------------------------------------------------------------
fnd_program.delete_parameter('CARCLINV', 'CAR','p_file_name');

fnd_program.parameter
    (program_short_name             => 'CARCLINV',
     application                    => 'CAR',
     sequence                       => 10,
     parameter                      => 'p_file_name',
     description                    => 'Filename',
     enabled                        => 'Y',
     value_set                      => '10 Characters',
     default_type                   => null,
     default_value                  => null,
     required                       => 'Y',
     enable_security                => 'N',
     range                          => null,
     display                        => 'Y',
     display_size                   => 10,
     description_size               => 50,
     concatenated_description_size  => 25,
     prompt                         => 'File name'
    );

fnd_program.delete_parameter('CARCLINV', 'CAR','p_transaction_type');

fnd_program.parameter
    (program_short_name             => 'CARCLINV',
     application                    => 'CAR',
     sequence                       => 20,
     parameter                      => 'p_transaction_type',
     description                    => 'Transaction type',
     enabled                        => 'Y',
     value_set                      => 'CAR_TRAN_TYPES',
     default_type                   => null,
     default_value                  => null,
     required                       => 'Y',
     enable_security                => 'N',
     range                          => null,
     display                        => 'N',
     display_size                   => 20,
     description_size               => 50,
     concatenated_description_size  => 25,
     prompt                         => 'Transaction type'
    );
    
 commit;

 fnd_program.incompatibility
     (program_short_name   => 'CARCLINV',
      application          => 'CAR',
      inc_prog_short_name  => 'CARCLINV',
      inc_prog_application => 'CAR',
         scope                => 'Program',
     inc_type             => 'D');

--
-- Add to Request Group
--
l_stage := 'Stage 50 - Add to Request Grp ..';

if fnd_program.program_in_group('CARCLINV',
                                'CAR',
                                'LRL AR Interface Reports',
                                'AR')
then
   null;
else
   fnd_program.add_to_group
   ('CARRCALC',
    'CAR',
    'LRL AR Interface Reports',
    'AR');
end if;

if fnd_program.program_in_group('CARCLINV',
                                'CAR',
                                'LRL AR Manager Reports',
                                'AR')
then
   null;
else
   fnd_program.add_to_group
   ('CARCLINV',
    'CAR',
    'LRL AR Manager Reports',
    'AR');
end if;


commit;

dbms_output.put_line('-');
dbms_output.put_line('Procedure completed Successfully'||substr(fnd_program.message,1,200));

EXCEPTION
when others
then
   dbms_output.put_line('Error : '||l_stage||' '||substr(fnd_program.message,1,200));
   dbms_output.put_line('('||SQLERRM||')');
end;
/