[Home] [Help]
PACKAGE BODY: APPS.JTM_RS_GROUP_MEMBER_VUHK
Source
1 PACKAGE BODY JTM_RS_GROUP_MEMBER_VUHK AS
2 /* $Header: jtmhkgmb.pls 120.1 2005/08/24 02:11:59 saradhak noship $ */
3
4 Cursor Get_hook_info(p_processing_type in varchar2, p_api_name in varchar2) is
5 Select HOOK_PACKAGE, HOOK_API , EXECUTE_FLAG, PRODUCT_CODE
6 from JTF_HOOKS_DATA
7 Where package_name = 'JTM_RS_GROUP_MEMBERS_PVT' and
8 upper(api_name) = upper(p_api_name) and
9 processing_type = p_processing_type and
10 execute_flag = 'Y' and
11 hook_type = 'V';
12
13
14 /* Vertcal Industry Procedure for pre processing in case of
15 create resource group members */
16
17 PROCEDURE create_group_members_pre
18 (P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
19 P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
20 X_RETURN_STATUS OUT NOCOPY VARCHAR2
21 ) IS
22 BEGIN
23 x_return_status := fnd_api.g_ret_sts_success;
24 END create_group_members_pre;
25
26
27 /* Vertcal Industry Procedure for post processing in case of
28 create resource group members */
29
30 PROCEDURE create_group_members_post
31 (P_GROUP_MEMBER_ID IN JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE,
32 P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
33 P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
34 X_RETURN_STATUS OUT NOCOPY VARCHAR2
35 ) IS
36 l_enable_flag varchar2(20);
37 l_cursorid INTEGER;
38 l_strBuffer VARCHAR2(2000);
39 l_execute_status INTEGER;
40 BEGIN
41 x_return_status := fnd_api.g_ret_sts_success;
42
43 FOR Csr1 in Get_hook_info('A', 'CREATE_RESOURCE_GROUP_MEMBERS') LOOP
44
45 /* user execute flag */
46 l_enable_flag := Csr1.EXECUTE_FLAG;
47
48 /* use profile for checking */
49 l_enable_flag := JTM_PROFILE_UTL_PKG.Get_enable_flag_at_resp
50 (p_app_short_name => Csr1.PRODUCT_CODE);
51
52 if (l_enable_flag = 'Y') then
53 l_cursorid := DBMS_SQL.open_cursor;
54 l_strBuffer :=
55 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
56 '(:1,:2,:3, :4); ' ||
57 ' exception ' ||
58 ' when others then ' ||
59 ' null; ' ||
60 ' end; ';
61 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
62 DBMS_SQL.bind_variable (l_cursorid, ':1', P_GROUP_MEMBER_ID);
63 DBMS_SQL.bind_variable (l_cursorid, ':2', P_GROUP_ID);
64 DBMS_SQL.bind_variable (l_cursorid, ':3', P_RESOURCE_ID);
65 DBMS_SQL.bind_variable (l_cursorid, ':4', X_RETURN_STATUS);
66 begin
67 l_execute_status := DBMS_SQL.execute (l_cursorid);
68 exception
69 when others then
70 NULL;
71 end;
72 DBMS_SQL.close_cursor (l_cursorid);
73 end if;
74 END LOOP;
75
76 EXCEPTION WHEN OTHERS THEN
77 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78 END create_group_members_post;
79
80 /* Vertcal Industry Procedure for pre processing in case of
81 update resource group members */
82
83 PROCEDURE update_group_members_pre
84 (P_GROUP_MEMBER_ID IN JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE,
85 X_RETURN_STATUS OUT NOCOPY VARCHAR2
86 ) IS
87 BEGIN
88 x_return_status := fnd_api.g_ret_sts_success;
89 END update_group_members_pre;
90
91
92 /* Vertcal Industry Procedure for post processing in case of
93 update resource group members */
94
95 PROCEDURE update_group_members_post
96 (P_GROUP_MEMBER_ID IN JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE,
97 X_RETURN_STATUS OUT NOCOPY VARCHAR2
98 ) IS
99 BEGIN
100 x_return_status := fnd_api.g_ret_sts_success;
101 END update_group_members_post;
102
103
104 /* Vertcal Industry Procedure for pre processing in case of
105 delete resource group members */
106
107 PROCEDURE delete_group_members_pre
108 (P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
109 P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
110 X_RETURN_STATUS OUT NOCOPY VARCHAR2
111 ) IS
112 l_enable_flag varchar2(20);
113 l_cursorid INTEGER;
114 l_strBuffer VARCHAR2(2000);
115 l_execute_status INTEGER;
116
117 BEGIN
118
119 x_return_status := fnd_api.g_ret_sts_success;
120
121 FOR Csr1 in Get_hook_info('B', 'DELETE_RESOURCE_GROUP_MEMBERS') LOOP
122
123 /* user execute flag */
124 l_enable_flag := Csr1.EXECUTE_FLAG;
125
126 /* use profile for checking */
127 l_enable_flag := JTM_PROFILE_UTL_PKG.Get_enable_flag_at_resp
128 (p_app_short_name => Csr1.PRODUCT_CODE);
129
130 if (l_enable_flag = 'Y') then
131 l_cursorid := DBMS_SQL.open_cursor;
132 l_strBuffer :=
133 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
134 '(:1,:2,:3); ' ||
135 ' exception ' ||
136 ' when others then ' ||
137 ' null; ' ||
138 ' end; ';
139 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
140 DBMS_SQL.bind_variable (l_cursorid, ':1', P_GROUP_ID);
141 DBMS_SQL.bind_variable (l_cursorid, ':2', P_RESOURCE_ID);
142 DBMS_SQL.bind_variable (l_cursorid, ':3', X_RETURN_STATUS);
143 begin
144 l_execute_status := DBMS_SQL.execute (l_cursorid);
145 exception
146 when others then
147 null;
148 end;
149 DBMS_SQL.close_cursor (l_cursorid);
150 end if;
151 END LOOP;
152
153 EXCEPTION WHEN OTHERS THEN
154 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
155 END delete_group_members_pre;
156
157
158 /* Vertical Industry Procedure for post processing in case of
159 delete resource group members */
160
161 PROCEDURE delete_group_members_post
162 (P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
163 P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
164 X_RETURN_STATUS OUT NOCOPY VARCHAR2
165 ) IS
166 BEGIN
167 x_return_status := fnd_api.g_ret_sts_success;
168 END delete_group_members_post;
169
170 END jtm_rs_group_member_vuhk;