PACKAGE BODY: APPS.EDW_PLAN_NAME_PKG

Source

1 PACKAGE BODY edw_plan_name_pkg AS
2 
3 	FUNCTION get_plan_name_fk (
4 		p_compile_designator IN VARCHAR2,
5 		p_organization_id IN NUMBER,
6 		p_instance_code in VARCHAR2 := NULL) RETURN VARCHAR2 IS
7     	l_plan_fk VARCHAR2(240) := 'NA_EDW';
8    	l_instance VARCHAR2(30) := NULL;
9 
10 	BEGIN
11 		IF ((p_compile_designator IS null) OR (p_organization_id IS null))THEN
12 			return 'NA_EDW';
13 		END IF;
14 
15 		IF (p_instance_code is NOT NULL) then
16 			l_instance := p_instance_code;
17 		ELSE
18 			select instance_code into l_instance
19 			from edw_local_instance;
20 		END IF;
21 
22 		l_plan_fk := p_compile_designator || '-' || p_organization_id || '-' || l_instance;
23 
24 		RETURN(l_plan_fk);
25 
26 	EXCEPTION WHEN others THEN
27 		return 'NA_EDW';
28 	END get_plan_name_fk;
29 END;