Submit Concurrent Program from Back End

DECLARE
l_request_id NUMBER;
BEGIN
fnd_global.apps_initialize (user_id=>3049
,resp_id=>21623
,resp_appl_id=>660);
l_request_id := FND_REQUEST.SUBMIT_REQUEST
                ('ONT'         ,
                 'OEOIMP'     ,
                 'Order Import',
                  sysdate - 1,
                 FALSE        ,
                 1026     ,  -- order source
                 null,           -- orig_sys_document_ref
                 null        ,   -- ???
                 'N',            -- validate only flag
                 null,
                 3     -- number of instances
                 );
COMMIT;
IF l_request_id = 0 THEN
dbms_output.put_line('Request not submitted error '|| fnd_message.get);
ELSE
dbms_output.put_line('Request submitted successfully request id ' || l_request_id);
END IF;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('Unexpected errro ' || SQLERRM);
END;

SELECT DISTINCT fr.responsibility_id,responsibility_name,

    frx.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('Order%');

DECLARE
L_REQUEST_ID NUMBER;
BEGIN
FND_GLOBAL.APPS_INITIALIZE (USER_ID=>3049
,RESP_ID=>50471
,RESP_APPL_ID=>20044);
L_REQUEST_ID := FND_REQUEST.SUBMIT_REQUEST
                ('FND'         ,-- application Short name
                 'APPS_TEST1'     ,--Concurrent program Short name
                 'APPS_TEST',-- description
                  SYSDATE - 1,
                 FALSE      
                 );
COMMIT;
IF L_REQUEST_ID = 0 THEN
DBMS_OUTPUT.PUT_LINE('Request not submitted error '|| FND_MESSAGE.GET);
ELSE
DBMS_OUTPUT.PUT_LINE('Request submitted successfully request id ' || L_REQUEST_ID);
END IF;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('Unexpected errro ' || SQLERRM);
END;