60: errbuf := SUBSTR(sqlerrm,1,200);
61: END;
62:
63: FUNCTION get_request_id(prog_name varchar2)
64: RETURN fnd_concurrent_requests.request_id%TYPE
65: IS
66: result fnd_concurrent_requests.request_id%TYPE;
67: BEGIN
68: SELECT request_id INTO result
62:
63: FUNCTION get_request_id(prog_name varchar2)
64: RETURN fnd_concurrent_requests.request_id%TYPE
65: IS
66: result fnd_concurrent_requests.request_id%TYPE;
67: BEGIN
68: SELECT request_id INTO result
69: FROM fnd_concurrent_requests
70: WHERE concurrent_program_id IN (SELECT concurrent_program_id
65: IS
66: result fnd_concurrent_requests.request_id%TYPE;
67: BEGIN
68: SELECT request_id INTO result
69: FROM fnd_concurrent_requests
70: WHERE concurrent_program_id IN (SELECT concurrent_program_id
71: FROM fnd_concurrent_programs
72: WHERE concurrent_program_name = prog_name)
73: AND phase_code = 'R';
82: cmd VARCHAR2(4000);
83:
84: anyexp EXCEPTION;
85:
86: request_id fnd_concurrent_requests.request_id%TYPE;
87: BEGIN
88:
89: x_return_status := 'S';
90:
394:
395: PROCEDURE create_ctx(errbuf OUT NOCOPY VARCHAR2, retcode OUT NOCOPY VARCHAR2) AS
396: l_api_name CONSTANT VARCHAR2(30) := 'concurrent_create_ctx';
397: l_api_version CONSTANT VARCHAR2(30) := 1.0;
398: request_id fnd_concurrent_requests.request_id%type;
399: l_return_status VARCHAR2(3) := 'S';
400: stop_proc EXCEPTION;
401: BEGIN
402: rindex := dbms_application_info.set_session_longops_nohint;