PACKAGE BODY: APPS.BIL_TX_RES

Source

1 PACKAGE BODY BIL_TX_RES AS
2 /* $Header: biltxrsb.pls 120.0 2005/10/12 13:29 sgharago noship $ */
3 
4 
5 FUNCTION rid RETURN NUMBER
6 IS
7 l_resource_id NUMBER;
8 l_group_id NUMBER;
9 l_manager VARCHAR2(1);
10 l_exception  VARCHAR2(1);
11 
12 
13 BEGIN
14 
15 l_resource_id := BIL_TX_UTIL_RPT_PKG.GET_RESOURCE_ID;
16 l_group_id :=  BIL_TX_UTIL_RPT_PKG.get_sales_group_id;
17 l_exception := NULL;
18 BEGIN
19 	SELECT 'Y'
20  	INTO l_manager
21         FROM JTF_RS_GROUP_MBR_ROLE_VL
22         WHERE resource_id = l_resource_id
23         AND group_id = l_group_id
24         AND (admin_flag = 'Y' OR
25              manager_flag='Y')
26         AND rownum < 2;
27 
28         EXCEPTION
29 	WHEN OTHERS THEN
30 		l_exception := 'Y';
31 	END;
32 
33 IF l_manager = 'Y' THEN
34 	RETURN NULL;
35 ELSIF l_exception = 'Y' THEN
36         RETURN l_resource_id;
37 ELSE
38 	RETURN l_resource_id;
39 END IF;
40 
41 END rid;
42 
43 FUNCTION IM RETURN VARCHAR2
44 IS
45 l_dummy varchar2(1);
46 l_resource_id NUMBER;
47 l_group_id  NUMBER;
48 
49 BEGIN
50 l_resource_id := BIL_TX_UTIL_RPT_PKG.GET_RESOURCE_ID;
51 l_group_id :=  BIL_TX_UTIL_RPT_PKG.get_sales_group_id;
52 
53 	BEGIN
54 	SELECT 'x'
55 	INTO l_dummy
56         FROM  JTF_RS_GROUP_MBR_ROLE_VL
57         WHERE resource_id = l_resource_id
58         AND group_id = l_group_id
59         AND (admin_flag = 'Y' OR
60             	manager_flag='Y')
61        	AND  rownum < 2;
62 	RETURN 'N';
63 EXCEPTION
64 WHEN OTHERS THEN
65 	RETURN 'Y';
66 END;
67 END IM;
68 END BIL_TX_RES;