PACKAGE BODY: APPS.PA_AR_INST_CLIENT_EXTN

Source

1 PACKAGE BODY pa_ar_inst_client_extn AS
2 /* $Header: PAVARICB.pls 120.3 2005/08/19 17:06:58 mwasowic noship $ */
3       PROCEDURE client_extn_driver
4           (  p_ar_inst_mode             IN    VARCHAR2,
5              x_ar_inst_mode		OUT   NOCOPY VARCHAR2) IS --File.Sql.39 bug 4440895
6  l_ar_inst_mode     VARCHAR2(1);
7 BEGIN
8    pa_override_ar_inst.get_installation_mode(p_ar_inst_mode,l_ar_inst_mode);
9 
10     -- if the ar install mode is I then no changes
11     -- else assign S to ar install flag
12 
13    IF NVL(l_ar_inst_mode,'S') <>   'I'
14    then
15       x_ar_inst_mode := 'S';
16    ELSE
17       x_ar_inst_mode := 'I';
18    END IF;
19 EXCEPTION
20 WHEN OTHERS THEN
21 
22     /* ATG Changes */
23      x_ar_inst_mode := null;
24 
25 	RAISE;
26 
27 END client_extn_driver;
28 
29 end pa_ar_inst_client_extn;