Delete Executable And Concurrent Program From Back End

declare
cursor c1 is
select fcp.CONCURRENT_PROGRAM_NAME,fa.APPLICATION_SHORT_NAME from fnd_concurrent_programs fcp,fnd_application fa
where fcp.APPLICATION_ID=fa.APPLICATION_ID
and fcp.CONCURRENT_PROGRAM_NAME='XX_PROJECT_DETAIL';

Begin
     for r1 in c1 loop
                 IF (FND_PROGRAM.PROGRAM_EXISTS
                             (program                  =>r1.CONCURRENT_PROGRAM_NAME
                             ,application              => r1.APPLICATION_SHORT_NAME ))
                         THEN
                              FND_PROGRAM.DELETE_PROGRAM(r1.CONCURRENT_PROGRAM_NAME, r1.APPLICATION_SHORT_NAME);
                                                                                   ---  Short Name of Conc Program  , ---  Application Name
                              FND_PROGRAM.DELETE_EXECUTABLE(r1.CONCURRENT_PROGRAM_NAME,r1.APPLICATION_SHORT_NAME );  
                                                                       ----  Short Name of Excutable Program  , ---  Application Name
                         commit;
                   END IF;                                        ---  Requst group Application Name
                 
 
 end loop;
end;