236: -- x_devphase OUT Returned developer phase
237: -- x_dev_status OUT Returned developer status
238: -- x_message OUT Returned message describing extraneous condition
239: --
240: -- COMMENT: Wrapper around call to FND_CONCURRENT.GET_REQUEST_STATUS
241: -- ======================================================================
242: PROCEDURE get_request_info
243: (
244: p_request_id IN fnd_concurrent_requests.request_id%TYPE,
240: -- COMMENT: Wrapper around call to FND_CONCURRENT.GET_REQUEST_STATUS
241: -- ======================================================================
242: PROCEDURE get_request_info
243: (
244: p_request_id IN fnd_concurrent_requests.request_id%TYPE,
245: x_phase OUT NOCOPY VARCHAR2,
246: x_status OUT NOCOPY VARCHAR2,
247: x_devphase OUT NOCOPY VARCHAR2,
248: x_devstatus OUT NOCOPY VARCHAR2,
247: x_devphase OUT NOCOPY VARCHAR2,
248: x_devstatus OUT NOCOPY VARCHAR2,
249: x_message OUT NOCOPY VARCHAR2
250: ) IS
251: l_request_id fnd_concurrent_requests.request_id%TYPE;
252: l_success BOOLEAN;
253: BEGIN
254:
255: l_request_id := p_request_id;
253: BEGIN
254:
255: l_request_id := p_request_id;
256:
257: -- Call FND_CONCURRENT API to get concurrent request status
258: l_success := FND_CONCURRENT.GET_REQUEST_STATUS(request_id => l_request_id,
259: phase => x_phase, status => x_status, dev_phase => x_devphase,
260: dev_status => x_devstatus, message => x_message);
261:
254:
255: l_request_id := p_request_id;
256:
257: -- Call FND_CONCURRENT API to get concurrent request status
258: l_success := FND_CONCURRENT.GET_REQUEST_STATUS(request_id => l_request_id,
259: phase => x_phase, status => x_status, dev_phase => x_devphase,
260: dev_status => x_devstatus, message => x_message);
261:
262: -- Check if call was unsuccessful
357: -- that can be used for comparisons
358: -- ======================================================================
359: FUNCTION get_request_internal_status
360: (
361: p_request_id IN fnd_concurrent_requests.request_id%TYPE
362: ) RETURN VARCHAR2 IS
363: l_phase VARCHAR2(80);
364: l_status VARCHAR2(80);
365: l_devphase VARCHAR2(30);
400: -- COMMENT: Returns a displayable status for the concurrent request
401: -- ======================================================================
402: FUNCTION get_request_display_status
403: (
404: p_request_id IN fnd_concurrent_requests.request_id%TYPE
405: ) RETURN VARCHAR2 IS
406: l_phase VARCHAR2(80);
407: l_status VARCHAR2(80);
408: l_devphase VARCHAR2(30);
515: --
516: -- RETURN: VARCHAR2 null/error msg if successful/unsuccessful
517: --
518: -- COMMENT: Cancels concurrent request p_request_id using FND API:
519: -- FND_CONCURRENT.CANCEL_REQUEST
520: -- ======================================================================
521: FUNCTION cancel_concurrent_request
522: (
523: p_request_id IN fnd_concurrent_requests.request_id%TYPE
519: -- FND_CONCURRENT.CANCEL_REQUEST
520: -- ======================================================================
521: FUNCTION cancel_concurrent_request
522: (
523: p_request_id IN fnd_concurrent_requests.request_id%TYPE
524: ) RETURN VARCHAR2 IS
525: l_success BOOLEAN;
526: l_message VARCHAR2(255);
527: BEGIN
525: l_success BOOLEAN;
526: l_message VARCHAR2(255);
527: BEGIN
528:
529: l_success := FND_CONCURRENT.CANCEL_REQUEST(request_id => p_request_id,
530: message => l_message);
531:
532: IF (l_success) THEN
533: RETURN null;
911:
912: IF (l_request_id IS NULL) THEN
913: v_request_complete := 'Y';
914: ELSE
915: l_success := FND_CONCURRENT.GET_REQUEST_STATUS (
916: REQUEST_ID => l_request_id,
917: APPL_SHORTNAME => 'PON',
918: PROGRAM => NULL,
919: PHASE => l_phase,