How to delete concurrent Programm executable by using API

DECLARE

   a_cp_short_name            VARCHAR2 (100):= UPPER (:executable_short_name);

   b_application_short_name   VARCHAR2 (100):= UPPER (:application_short_name);

BEGIN

   fnd_program.delete_executable (executable_short_name      => a_cp_short_name,

                                                                                                    application                => b_application_short_name);

   COMMIT;

END;