PACKAGE BODY: APPS.CN_DIM_HIERARCHY_UTILITIES

Source

1 PACKAGE BODY cn_dim_hierarchy_utilities AS
2 -- $Header: cnutilsb.pls 120.0 2005/06/06 17:46:35 appldev noship $
3 
4   --+
5   -- Procedure Name
6   --   node_exist
7   -- Purpose
8   --   Test whether a node already exists in the hierarchy.
9   --+
10   FUNCTION node_exist(
11 	X_dim_hierarchy_id	cn_hierarchy_nodes.dim_hierarchy_id%type,
12 	X_value_id		cn_hierarchy_nodes.value_id%type)
13 	RETURN 			varchar2 IS
14 
15     exist	varchar2(1) := 'N';
16 
17   BEGIN
18 
19     SELECT 'Y'
20       INTO exist
21       FROM sys.dual
22      WHERE EXISTS (SELECT value_id
23 		     FROM cn_dim_explosion
24 		    WHERE value_id 	   = X_value_id
25 		      AND dim_hierarchy_id = X_dim_hierarchy_id);
26 
27     RETURN exist;
28 
29   EXCEPTION
30 
31     WHEN NO_DATA_FOUND THEN
32       RETURN exist;
33 
34   END node_exist;
35 
36 END cn_dim_hierarchy_utilities;