PACKAGE BODY: APPS.POGMS_PKG

Source

1 PACKAGE BODY POGMS_PKG AS
2 -- $Header: poxgms1b.pls 115.8 2002/11/23 00:02:33 sbull noship $
3 
4 /*  Declare procedure update_adls.
5       REQ_LINE_ID	IN      NUMBER
6       ERR_CODE        IN OUT  VARCHAR2,
7       ERR_MSG	        IN OUT  VARCHAR2
8 */
9 PROCEDURE UPDATE_ADLS(p_req_line_id	IN 	NUMBER,
10 		        err_code	IN OUT	NOCOPY VARCHAR2,
11 		        err_msg		IN OUT	NOCOPY VARCHAR2 ) is
12 
13 BEGIN
14 
15    IF gms_install.enabled THEN
16 
17      gms_po_adl_pkg.update_adls(p_req_line_id => p_req_line_id,
18                                 err_code      => err_code,
19                                 err_msg       => err_msg);
20 
21   ELSE
22 
23      err_code := 'S';
24 
25   END IF ;
26 
27 EXCEPTION
28 
29  WHEN OTHERS THEN
30 err_code := 'F' ;
31 err_msg := substr(SQLERRM,1,200) ;
32 
33 END UPDATE_ADLS;
34 
35 END POGMS_PKG;