PACKAGE BODY: APPS.XTR_USER_ACCESS

Source

1 PACKAGE BODY XTR_USER_ACCESS AS
2 /* $Header: xtruaccb.pls 120.1 2005/09/28 11:52:25 eaggarwa noship $ */
3 
4 FUNCTION dealer_code RETURN xtr_dealer_codes.dealer_code%TYPE IS
5   FUNCTION get_dealer_code RETURN xtr_dealer_codes.dealer_code%TYPE IS
6     CURSOR c_get_dealer_code IS
7     SELECT dealer_code
8     FROM xtr_dealer_codes
9     WHERE user_id = fnd_global.user_id;
10   BEGIN
11     if g_dealer_code is null then --4491268
12 
13     OPEN c_get_dealer_code;
14     FETCH c_get_dealer_code INTO g_dealer_code;
15     CLOSE c_get_dealer_code;
16 
17     end if;
18 
19     RETURN g_dealer_code;
20   END get_dealer_code;
21 BEGIN
22 
23   /* This is cauing problem in OA FWk related pages
24      Please see bug 3630670 for more info
25 
26      if (g_dealer_code is not null) then
27        return g_dealer_code;
28      else
29        RETURN get_dealer_code;
30      end if;
31   */
32 
33   RETURN get_dealer_code;
34 
35 END dealer_code;
36 
37 END XTR_USER_ACCESS;