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';
74: RETURN result;
75: EXCEPTION WHEN OTHERS THEN