1 PACKAGE EDW_INSTANCE AUTHID CURRENT_USER AS
2 /* $Header: EDWSRINS.pls 115.6 2003/11/19 09:19:37 smulye ship $ */
3 VERSION CONSTANT CHAR(80) := '$Header: EDWSRINS.pls 115.6 2003/11/19 09:19:37 smulye ship $';
4
5 -- ------------------------
6 -- Public Functions
7 -- ------------------------
8 ---------------------------------------------------------------------------------
9 /*
10 Name : get_code
11
12 Purpose : To get the local instance code. This code is
13 run at the source site
14
15 Arguments
16 Input :
17 NONE
18 O/P
19 l_instance_code : Holds the value of the local instance
20 that it gets from edw_local_instance
21 Data Type: VARCHAR2(30)
22 */
23 ---------------------------------------------------------------------------------
24 FUNCTION get_code RETURN VARCHAR2;
25
26 -- ========================================
27 -- Need RNPS, RNDS for this function to be
28 -- available via view across database links
29 -- ========================================
30 PRAGMA RESTRICT_REFERENCES (get_code,WNDS, WNPS,RNPS);
31
32 END EDW_INSTANCE;