PACKAGE BODY: APPS.GMFARUPD

Source

1 PACKAGE BODY GMFARUPD AS
2 /* $Header: gmfarupb.pls 120.2 2005/09/20 13:02:24 rseshadr noship $ */
3   PROCEDURE glarupd (
4     errbuf              OUT NOCOPY VARCHAR2,
5     retcode             OUT NOCOPY NUMBER,
6     p_co_code		IN  VARCHAR2,
7     pf_orgn_code	IN  VARCHAR2 DEFAULT NULL,
8     pt_orgn_code	IN  VARCHAR2 DEFAULT NULL,
9     pf_bol_no		IN  VARCHAR2 DEFAULT NULL,
10     pt_bol_no		IN  VARCHAR2 DEFAULT NULL)
11   AS
12 
13     l_retval BOOLEAN;
14 
15   BEGIN
16 
17     retcode := 3;
18     errbuf := 'This program is obsolete';
19     l_retval := fnd_concurrent.set_completion_status(
20                   'ERROR','This program is obsolete');
21 
22     RETURN;
23 
24   END glarupd;
25 
26 
27 END GMFARUPD;