1 PACKAGE BODY fa_security2 as
2 /* $Header: faxsec2b.pls 120.6 2009/03/27 02:55:04 bridgway ship $ */
3
4 /* =============================================================================
5
6 Name: build_predicate
7
8 Description: Using static predicate on the odd synonym FA_BOOK_CONTROLS_SEC
9
10 Parameters: obj_schema VARCHAR2
11 obj_name VARCHAR2
12 ============================================================================= */
13 FUNCTION build_predicate ( obj_schema VARCHAR2, obj_name VARCHAR2 )
14 RETURN VARCHAR2 IS
15
16 l_predicate VARCHAR2(5000) := '';
17
18 BEGIN
19
20 -- if the list hasn't already been initialized then set_fa_context
21 -- wasn't called from the initialization profile and security by book
22 -- is not activated, so use no predicate
23
24 IF (G_predicate_init = FALSE) then
25 G_predicate := '';
26 G_predicate_init := TRUE;
27 END IF;
28
29 l_predicate := G_predicate ;
30
31 return l_predicate;
32
33 END build_predicate;
34
35 END fa_security2;
36