FND_PROGRAM : Register Concurrent Program parameters via API

Script :-

Instance: R12.1.1

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_SHAREORACLEAPPS';   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_SHAREORACLEAPPS'         AND end_user_column_name       = 'User ID';   EXCEPTION      WHEN NO_DATA_FOUND      THEN         DBMS_OUTPUT.put_line ('Concurrent Program Parameter Registration Failed');   END;END;