API to Create Responsibility

DECLARE

   l_resp_key            VARCHAR2 (100) := 'XXHR_TEST_API';

   l_resp_name           VARCHAR2 (100) := 'XXHR Test API';

   l_rowid               VARCHAR2 (500) := NULL;

   l_responsibility_id   NUMBER := NULL;

   l_application_id      NUMBER := NULL;

   l_data_group_id       NUMBER := NULL;

   l_menu_id             NUMBER := NULL;

   l_start_date          DATE := '01-JAN-1951';

   l_version             NUMBER := 4;           --    Oracle Applications Type

BEGIN

   SELECT fnd_responsibility_s.NEXTVAL INTO l_responsibility_id FROM DUAL;

   SELECT application_id

     INTO l_application_id

     FROM fnd_application_vl

    WHERE application_short_name = 'PER';

   SELECT data_group_id

     INTO l_data_group_id

     FROM fnd_data_groups

    WHERE data_group_name = 'Standard';

   SELECT menu_id

     INTO l_menu_id

     FROM fnd_menus_vl

    WHERE menu_name = 'XXHR_MENU_NAME';            

   fnd_responsibility_pkg.insert_row (

      x_rowid                       => l_rowid,

      x_responsibility_id           => l_responsibility_id,

      x_application_id              => l_application_id,

      x_web_host_name               => NULL,

      x_web_agent_name              => NULL,

      x_data_group_application_id   => l_application_id,

      x_data_group_id               => l_data_group_id,

      x_menu_id                     => l_menu_id,

      x_start_date                  => l_start_date,

      x_end_date                    => NULL,

      x_group_application_id        => l_application_id,

      x_request_group_id            => NULL,

      x_version                     => l_version,

      x_responsibility_key          => l_resp_key,

      x_responsibility_name         => l_resp_name,

      x_description                 => l_resp_name,

      x_creation_date               => SYSDATE,

      x_created_by                  => 21196,

      x_last_update_date            => SYSDATE,

      x_last_updated_by             => 21196,

      x_last_update_login           => 21196);

   DBMS_OUTPUT.put_line (l_resp_name || ' has been created Successfully!!!');

EXCEPTION

   WHEN OTHERS

   THEN

      DBMS_OUTPUT.put_line ('Exception: ' || SQLERRM);

END;