1 PACKAGE BODY ADI_Secured_Values_Access AS
2 /* $Header: frmsevab.pls 120.0 2006/12/14 02:07:34 dvayro noship $ */
3 ----------------------------------------------------------------------------------------
4 -- PROCEDURE: ADI_Secured_Values_Access --
5 -- --
6 -- Description: Content security needs to be accessed in one of two ways: --
7 -- 1. Which expansions values does this user have access to? --
8 -- 2. Does this user have access to this expansion value? --
9 -- --
10 -- This package allows a call to be made to either of the procs --
11 -- and returns either a list of accessible expansion values, or --
12 -- a TRUE or FALSE flag, indicating access. --
13 -- --
14 -- Modifications --
15 -- Date Username Description --
16 -- 28-AUG-99 CCLYDE Added Exception clauses to all procedures which --
17 -- contained a SQL statement. (Task: 3275) --
18 -- 10-SEP-99 CCLYDE Added EXCEPTION clauses to both procedures. --
19 -- Removed local copies of GetReleaseVersion and --
20 -- GetUserId. --
21 -- 16-FEB-00 cclyde Added Package_Revision procedure to see if we can capture --
22 -- the revision number of the package during runtime. --
23 -- (Task: 3858) --
24 -- 30-MAR-00 DJANCIS Modified Build_Access_List to intialize --
25 -- g_AccessList (Task 4110 ) --
26 -- 16-MAY-00 GSANAP Moved the $Header comment from the top to under --
27 -- the CREATE or REPLACE PACKAGE stmt. --
28 -- 29-JUN-00 GSANAP Modified the debug stmts. to include package names --
29 -- Task 4425 --
30 -- 15-NOV-02 GHOOKER Stub out procedures not used by RM8 --
31 ----------------------------------------------------------------------------------------
32 END ADI_Secured_Values_Access;