PACKAGE BODY: APPS.ZPB_FND_UTIL

Source

1 PACKAGE BODY ZPB_FND_UTIL AS
2 /* $Header: ZPBFNDUB.pls 120.0.12010.2 2006/08/03 11:57:33 appldev noship $ */
3 
4   G_PKG_NAME CONSTANT VARCHAR2(30):= 'ZPB_FND_UTIL';
5 
6  /*=========================================================================+
7   |                       FUNCTION get_request_status
8   |
9   | DESCRIPTION
10   |   Wrapper function to fnd_concurrent.get_request_status
11   |    parameters.
12   |
13  +=========================================================================*/
14 
15  FUNCTION get_request_status(request_id      IN OUT NOCOPY NUMBER,
16 		 	      appl_shortname  IN VARCHAR2 DEFAULT NULL,
17 			      program         IN VARCHAR2 DEFAULT NULL,
18 	    		      phase      OUT NOCOPY VARCHAR2,
19 			      status     OUT NOCOPY VARCHAR2,
20 			      dev_phase  OUT NOCOPY VARCHAR2,
21 			      dev_status OUT NOCOPY VARCHAR2,
22 			      message    OUT NOCOPY VARCHAR2) RETURN  NUMBER IS
23 
24   l_api_name       CONSTANT VARCHAR2(30)   := '.get_request_status';
25   l_api_version    CONSTANT NUMBER         :=  1.0 ;
26   x_rtn_code NUMBER;
27   l_request_status BOOLEAN;
28   BEGIN
29   l_request_status := fnd_concurrent.get_request_status(request_id     => request_id,
30 		 	      appl_shortname	=> appl_shortname,
31 			      program         	=> program,
32 	    		      phase      =>	phase  ,
33 			      status     =>	status,
34 			      dev_phase  => dev_phase,
35 			      dev_status => dev_status,
36 			      message    => message);
37   IF (l_request_status) THEN
38 	x_rtn_code	:= 0;
39   ELSE
40 	x_rtn_code	:= -1;
41   END IF;
42 
43   RETURN x_rtn_code;
44 
45  END get_request_status;
46 
47 
48  END ZPB_FND_UTIL ;