How to delete Concurrent Programme by Using API

DECLARE

   a_cp_short_name      VARCHAR2 (100) := upper(:cp_short_name);

   b_application_name   VARCHAR2 (100) := Upper(:application_short_name);

BEGIN

   fnd_program.delete_program (program_short_name   => a_cp_short_name, --CP Short Name

                                                                                            application          => b_application_name); --Application short name

   COMMIT;

END;