FND_PROGRAM.EXECUTABLE

DECLARE

   v_executable            VARCHAR2 (200);

   v_application           VARCHAR2 (200);

   v_short_name            VARCHAR2 (200);

   v_description           VARCHAR2 (200);

   v_execution_method      VARCHAR2 (200);

   v_execution_file_name   VARCHAR2 (200);

   v_subroutine_name       VARCHAR2 (200);

   v_icon_name             VARCHAR2 (200);

   v_language_code         VARCHAR2 (200);

   v_execution_file_path   VARCHAR2 (200);

   v_check                 VARCHAR2 (2);

BEGIN

   v_executable := 'LOKA_APPS_TEST';

   v_application := 'Payables';

   v_short_name := 'LOKA_APPS_TEST';

   v_description := 'Test Script for Registering Program from Backend';

   v_execution_method := 'PL/SQL Stored Procedure';

   v_execution_file_name := 'LOKA_APPS_TEST_PKG';

   v_subroutine_name := NULL;

   v_icon_name := NULL;

   v_language_code := 'US';

   v_execution_file_path := NULL;

   apps.fnd_program.executable (

      executable            => v_executable,

      application           => v_application,

      short_name            => v_short_name,

      description           => v_description,

      execution_method      => v_execution_method,

      execution_file_name   => v_execution_file_name,

      subroutine_name       => v_subroutine_name,

      icon_name             => v_icon_name,

      language_code         => v_language_code,

      execution_file_path   => v_execution_file_path);

   COMMIT;

   BEGIN

      SELECT 'Y'

        INTO v_check

        FROM fnd_executables

       WHERE executable_name = 'LOKA_APPS_TEST';

   EXCEPTION

      WHEN NO_DATA_FOUND

      THEN

         DBMS_OUTPUT.put_line ('Executable Registration Failed');

   END;

END;

Cross Checking.........