We can submit a concurrent request from backend using fnd_request.submit_request API. Before submitting the API we need to set the environment context using fnd_global.apps_initialize
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 | /********************************************************* *PURPOSE: To Submit a Concurrent Request from backend * *AUTHOR: Shailender Thallam * **********************************************************/ -- DECLARE l_responsibility_id NUMBER; l_application_id NUMBER; l_user_id NUMBER; l_request_id NUMBER; BEGIN -- SELECT DISTINCT fr.responsibility_id, frx.application_id INTO l_responsibility_id, l_application_id FROM apps.fnd_responsibility frx, apps.fnd_responsibility_tl fr WHERE fr.responsibility_id = frx.responsibility_id AND LOWER (fr.responsibility_name) LIKE LOWER('XXTest Resp'); -- SELECT user_id INTO l_user_id FROM fnd_user WHERE user_name = 'STHALLAM'; -- --To set environment context. -- apps.fnd_global.apps_initialize (l_user_id,l_responsibility_id,l_application_id); -- --Submitting Concurrent Request -- l_request_id := fnd_request.submit_request ( application => 'XXCUST', program => 'XXEMP', description => 'XXTest Employee Details', start_time => sysdate, sub_request => FALSE, argument1 => 'Smith' ); -- COMMIT; -- IF l_request_id = 0 THEN dbms_output.put_line ('Concurrent request failed to submit'); ELSE dbms_output.put_line('Successfully Submitted the Concurrent Request'); END IF; -- EXCEPTION WHEN OTHERS THEN dbms_output.put_line('Error While Submitting Concurrent Request '||TO_CHAR(SQLCODE)||'-'||sqlerrm); END; / |