add

About Me

My photo
Oracle Apps - Techno Functional consultant

Friday, February 17

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;

No comments: