How to Register Concurrent program from backend

/* Formatted on 3/16/2015 3:04:25 PM (QP5 v5.163.1008.3004) */

DECLARE

   v_program                    VARCHAR2 (200);

   v_application                VARCHAR2 (200);

   v_enabled                    VARCHAR2 (200);

   v_short_name                 VARCHAR2 (200);

   v_description                VARCHAR2 (200);

   v_executable_short_name      VARCHAR2 (200);

   v_executable_application     VARCHAR2 (200);

   v_execution_options          VARCHAR2 (200);

   v_priority                   NUMBER;

   v_save_output                VARCHAR2 (200);

   v_print                      VARCHAR2 (200);

   v_cols                       NUMBER;

   v_rows                       NUMBER;

   v_style                      VARCHAR2 (200);

   v_style_required             VARCHAR2 (200);

   v_printer                    VARCHAR2 (200);

   v_request_type               VARCHAR2 (200);

   v_request_type_application   VARCHAR2 (200);

   v_use_in_srs                 VARCHAR2 (200);

   v_allow_disabled_values      VARCHAR2 (200);

   v_run_alone                  VARCHAR2 (200);

   v_output_type                VARCHAR2 (200);

   v_enable_trace               VARCHAR2 (200);

   v_restart                    VARCHAR2 (200);

   v_nls_compliant              VARCHAR2 (200);

   v_icon_name                  VARCHAR2 (200);

   v_language_code              VARCHAR2 (200);

   v_mls_function_short_name    VARCHAR2 (200);

   v_mls_function_application   VARCHAR2 (200);

   v_incrementor                VARCHAR2 (200);

   v_refresh_portlet            VARCHAR2 (200);

   v_check                      VARCHAR2 (2);

BEGIN

   v_program := 'Concurrent program for testing by Lokanadham';

   v_application := 'Payables';

   v_enabled := 'Y';

   v_short_name := 'LOKA_APPS_TEST';

   v_description := 'Lokanadham Test Program';

   v_executable_short_name := 'LOKA_APPS_TEST';

   v_executable_application := 'Payables';

   v_execution_options := NULL;

   v_priority := NULL;

   v_save_output := 'Y';

   v_print := 'Y';

   v_cols := NULL;

   v_rows := NULL;

   v_style := NULL;

   v_style_required := 'N';

   v_printer := NULL;

   v_request_type := NULL;

   v_request_type_application := NULL;

   v_use_in_srs := 'Y';

   v_allow_disabled_values := 'N';

   v_run_alone := 'N';

   v_output_type := 'TEXT';

   v_enable_trace := 'N';

   v_restart := 'Y';

   v_nls_compliant := 'Y';

   v_icon_name := NULL;

   v_language_code := 'US';

   v_mls_function_short_name := NULL;

   v_mls_function_application := NULL;

   v_incrementor := NULL;

   v_refresh_portlet := NULL;

   apps.fnd_program.REGISTER (

      program                    => v_program,

      application                => v_application,

      enabled                    => v_enabled,

      short_name                 => v_short_name,

      description                => v_description,

      executable_short_name      => v_executable_short_name,

      executable_application     => v_executable_application,

      execution_options          => v_execution_options,

      priority                   => v_priority,

      save_output                => v_save_output,

      PRINT                      => v_print,

      cols                       => v_cols,

      ROWS                       => v_rows,

      style                      => v_style,

      style_required             => v_style_required,

      printer                    => v_printer,

      request_type               => v_request_type,

      request_type_application   => v_request_type_application,

      use_in_srs                 => v_use_in_srs,

      allow_disabled_values      => v_allow_disabled_values,

      run_alone                  => v_run_alone,

      output_type                => v_output_type,

      enable_trace               => v_enable_trace,

      restart                    => v_restart,

      nls_compliant              => v_nls_compliant,

      icon_name                  => v_icon_name,

      language_code              => v_language_code,

      mls_function_short_name    => v_mls_function_short_name,

      mls_function_application   => v_mls_function_application,

      incrementor                => v_incrementor,

      refresh_portlet            => v_refresh_portlet);

   COMMIT;

   BEGIN

      SELECT 'Y'

        INTO v_check

        FROM fnd_concurrent_programs

       WHERE concurrent_program_name = 'LOKA_APPS_TEST';

   EXCEPTION

      WHEN NO_DATA_FOUND

      THEN

         DBMS_OUTPUT.put_line ('Concurrent Program Registration Failed');

   END;

END;

Cross Validating.........