Register Concurrent Program Parameters From Backend via API

DECLARE

   v_program_short_name              VARCHAR2 (200);

   v_application                     VARCHAR2 (200);

   v_sequence                        NUMBER;

   v_parameter                       VARCHAR2 (200);

   v_description                     VARCHAR2 (200);

   v_enabled                         VARCHAR2 (200);

   v_value_set                       VARCHAR2 (200);

   v_default_type                    VARCHAR2 (200);

   v_default_value                   VARCHAR2 (200);

   v_required                        VARCHAR2 (200);

   v_enable_security                 VARCHAR2 (200);

   v_range                           VARCHAR2 (200);

   v_display                         VARCHAR2 (200);

   v_display_size                    NUMBER;

   v_description_size                NUMBER;

   v_concatenated_descr_size         NUMBER;

   v_prompt                          VARCHAR2 (200);

   v_token                           VARCHAR2 (200);

   v_cd_parameter                    VARCHAR2 (200);

   v_check                           VARCHAR2 (2);

BEGIN

   v_program_short_name            := 'XX_SHORTNAME'; /*Concurrent Program Short Name*/

   v_application                   := 'Payables';

   v_sequence                      := 10;

   v_parameter                     := 'User ID';

   v_description                   := 'User ID';

   v_enabled                       := 'Y';

   v_value_set                     := '10 Characters';

   v_default_type                  := NULL;

   v_default_value                 := NULL;

   v_required                      := 'N';

   v_enable_security               := 'N';

   v_range                         := NULL;

   v_display                       := 'Y';

   v_display_size                  := 50;

   v_description_size              := 50;

   v_concatenated_descr_size       := 50;

   v_prompt                        := 'User ID';

   v_token                         := NULL;

   v_cd_parameter                  := NULL;

   apps.fnd_program.parameter

           (program_short_name                 => v_program_short_name,

            application                        => v_application,

            SEQUENCE                           => v_sequence,

            parameter                          => v_parameter,

            description                        => v_description,

            enabled                            => v_enabled,

            value_set                          => v_value_set,

            default_type                       => v_default_type,

            DEFAULT_VALUE                      => v_default_value,

            required                           => v_required,

            enable_security                    => v_enable_security,

            RANGE                              => v_range,

            display                            => v_display,

            display_size                       => v_display_size,

            description_size                   => v_description_size,

            concatenated_description_size      => v_concatenated_descr_size,

            prompt                             => v_prompt,

            token                              => v_token,

            cd_parameter                       => v_cd_parameter

           );

   COMMIT;

   BEGIN

      SELECT 'Y'

        INTO v_check

        FROM fnd_descr_flex_column_usages

       WHERE descriptive_flexfield_name = '$SRS$.' || 'XX_SHARTNAME' /*Concurrent Program Short Name*/

         AND end_user_column_name       = 'User ID';

   EXCEPTION

      WHEN NO_DATA_FOUND

      THEN

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

   END;

END;