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;