PACKAGE BODY: APPS.CN_DISCO

Source

1 PACKAGE BODY CN_DISCO AS
2 /* $Header: cndisinitb.pls 120.0.12000000.2 2007/02/09 14:24:38 apink ship $ */
3 -- --------------------------------------------------------------------------
4 -- Name : INIT
5 -- Type : Procedure
6 -- Description : This procedure initializes MO Security when the user logs into
7 --               discoverer
8 -----------------------------------------------------------------------------
9 
10   PROCEDURE INIT IS
11    l_application_short_name varchar2(15);
12    l_init_function_name varchar2(240);
13   BEGIN
14     l_application_short_name := 'C'||'N';
15 
16     SELECT UPPER(init_function_name) INTO l_init_function_name
17     FROM   fnd_product_initialization
18     WHERE  application_short_name = UPPER(l_application_short_name);
19 
20     IF ('CN_DISCO.INIT' = l_init_function_name) THEN
21       mo_global.init(l_application_short_name);
22     END IF;
23   END INIT;
24 END CN_DISCO;