[Home] [Help]
PACKAGE BODY: APPS.CE_OA_UTIL
Source
1 PACKAGE BODY CE_OA_UTIL AS
2 /* $Header: ceoautlb.pls 120.0 2004/06/21 21:51:55 bhchung ship $ */
3
4 FUNCTION XTR_USER(X_user_id number) RETURN VARCHAR2 IS
5 l_cnt number;
6 BEGIN
7 select count(1)
8 into l_cnt
9 from xtr_dealer_codes
10 where user_id = X_user_id;
11
12 if l_cnt = 0 then
13 return 'N';
14 else
15 return 'Y';
16 end if;
17 END XTR_USER;
18
19 FUNCTION IS_INSTALLED(X_prod_id number) RETURN VARCHAR2 IS
20 l_temp BOOLEAN;
21 l_status VARCHAR2(1);
22 l_dummy VARCHAR2(100);
23 BEGIN
24 l_temp := FND_INSTALLATION.get(X_prod_id, X_prod_id, l_status, l_dummy);
25 if (l_status = 'I' or l_status = 'S') then
26 return 'Y';
27 else
28 return 'N';
29 end if;
30 END IS_INSTALLED;
31
32 END CE_OA_UTIL;