PACKAGE BODY: APPS.GL_BIS_SECURITY_PKG

Source

1 PACKAGE BODY gl_bis_security_pkg AS
2 /* $Header: gluoascb.pls 120.2 2003/04/30 02:38:41 djogg ship $ */
3 
4 --
5 -- Global variables
6 --
7 RESPONSIBILITY_ID   FND_RESPONSIBILITY.RESPONSIBILITY_ID%TYPE;
8 SET_OF_BOOKS_ID     GL_SETS_OF_BOOKS.SET_OF_BOOKS_ID%TYPE;
9 --
10 -- PUBLIC FUNCTIONS
11 --
12 
13 FUNCTION login_sob_id RETURN NUMBER IS
14 BEGIN
15     return(SET_OF_BOOKS_ID);
16 END login_sob_id;
17 
18 
19 -- Initilaize global variables
20 BEGIN
21     RESPONSIBILITY_ID := fnd_global.resp_id;
22     SET_OF_BOOKS_ID   := to_number(fnd_profile.value_specific('GL_SET_OF_BKS_ID',
23                                     null, RESPONSIBILITY_ID, 101));
24 END gl_bis_security_pkg;