PACKAGE BODY: APPS.EDW_INSTANCE

Source

1 PACKAGE BODY EDW_INSTANCE AS
2 /* $Header: EDWSRINB.pls 115.5 2003/11/19 09:10:56 smulye ship $  */
3 VERSION			CONSTANT CHAR(80) := '$Header: EDWSRINB.pls 115.5 2003/11/19 09:10:56 smulye ship $';
4 
5 ---------------------------------------------------------------------------------
6 /*
7 Name : get_code
8 
9 Purpose : To get the local instance code. This code is
10           run at the source site
11 
12 Arguments
13 Input :
14   NONE
15 O/P
16   l_instance_code  :   Holds the value of the local instance
17                        that it gets from edw_local_instance
18                        Data Type:  VARCHAR2(30)
19 */
20 ---------------------------------------------------------------------------------
21 
22 FUNCTION get_code RETURN VARCHAR2 IS
23 l_local_instance VARCHAR2(30):='';
24 BEGIN
25   -- get the instance code from the local instance
26 
27   SELECT instance_code into
28      l_local_instance
29   FROM EDW_LOCAL_INSTANCE;
30 
31   RETURN l_local_instance;
32 EXCEPTION when NO_DATA_FOUND then
33   null;
34   raise;
35 
36 END get_code;
37 
38 END EDW_INSTANCE;