222: -- x_devphase OUT Returned developer phase
223: -- x_dev_status OUT Returned developer status
224: -- x_message OUT Returned message describing extraneous condition
225: --
226: -- COMMENT: Wrapper around call to FND_CONCURRENT.GET_REQUEST_STATUS
227: -- ======================================================================
228: PROCEDURE get_request_info
229: (
230: p_request_id IN fnd_concurrent_requests.request_id%TYPE,
226: -- COMMENT: Wrapper around call to FND_CONCURRENT.GET_REQUEST_STATUS
227: -- ======================================================================
228: PROCEDURE get_request_info
229: (
230: p_request_id IN fnd_concurrent_requests.request_id%TYPE,
231: x_phase OUT NOCOPY VARCHAR2,
232: x_status OUT NOCOPY VARCHAR2,
233: x_devphase OUT NOCOPY VARCHAR2,
234: x_devstatus OUT NOCOPY VARCHAR2,
233: x_devphase OUT NOCOPY VARCHAR2,
234: x_devstatus OUT NOCOPY VARCHAR2,
235: x_message OUT NOCOPY VARCHAR2
236: ) IS
237: l_request_id fnd_concurrent_requests.request_id%TYPE;
238: l_success BOOLEAN;
239: BEGIN
240:
241: l_request_id := p_request_id;
239: BEGIN
240:
241: l_request_id := p_request_id;
242:
243: -- Call FND_CONCURRENT API to get concurrent request status
244: l_success := FND_CONCURRENT.GET_REQUEST_STATUS(request_id => l_request_id,
245: phase => x_phase, status => x_status, dev_phase => x_devphase,
246: dev_status => x_devstatus, message => x_message);
247:
240:
241: l_request_id := p_request_id;
242:
243: -- Call FND_CONCURRENT API to get concurrent request status
244: l_success := FND_CONCURRENT.GET_REQUEST_STATUS(request_id => l_request_id,
245: phase => x_phase, status => x_status, dev_phase => x_devphase,
246: dev_status => x_devstatus, message => x_message);
247:
248: -- Check if call was unsuccessful
343: -- that can be used for comparisons
344: -- ======================================================================
345: FUNCTION get_request_internal_status
346: (
347: p_request_id IN fnd_concurrent_requests.request_id%TYPE
348: ) RETURN VARCHAR2 IS
349: l_phase VARCHAR2(80);
350: l_status VARCHAR2(80);
351: l_devphase VARCHAR2(30);
386: -- COMMENT: Returns a displayable status for the concurrent request
387: -- ======================================================================
388: FUNCTION get_request_display_status
389: (
390: p_request_id IN fnd_concurrent_requests.request_id%TYPE
391: ) RETURN VARCHAR2 IS
392: l_phase VARCHAR2(80);
393: l_status VARCHAR2(80);
394: l_devphase VARCHAR2(30);
501: --
502: -- RETURN: VARCHAR2 null/error msg if successful/unsuccessful
503: --
504: -- COMMENT: Cancels concurrent request p_request_id using FND API:
505: -- FND_CONCURRENT.CANCEL_REQUEST
506: -- ======================================================================
507: FUNCTION cancel_concurrent_request
508: (
509: p_request_id IN fnd_concurrent_requests.request_id%TYPE
505: -- FND_CONCURRENT.CANCEL_REQUEST
506: -- ======================================================================
507: FUNCTION cancel_concurrent_request
508: (
509: p_request_id IN fnd_concurrent_requests.request_id%TYPE
510: ) RETURN VARCHAR2 IS
511: l_success BOOLEAN;
512: l_message VARCHAR2(255);
513: BEGIN
511: l_success BOOLEAN;
512: l_message VARCHAR2(255);
513: BEGIN
514:
515: l_success := FND_CONCURRENT.CANCEL_REQUEST(request_id => p_request_id,
516: message => l_message);
517:
518: IF (l_success) THEN
519: RETURN null;
897:
898: IF (l_request_id IS NULL) THEN
899: v_request_complete := 'Y';
900: ELSE
901: l_success := FND_CONCURRENT.GET_REQUEST_STATUS (
902: REQUEST_ID => l_request_id,
903: APPL_SHORTNAME => 'PON',
904: PROGRAM => NULL,
905: PHASE => l_phase,