[Home] [Help]
PACKAGE BODY: APPS.JTF_RS_GROUP_MEMBER_VUHK
Source
1 PACKAGE BODY JTF_RS_GROUP_MEMBER_VUHK AS
2 /* $Header: jtmgmemb.pls 120.2 2005/08/24 02:10:08 saradhak noship $ */
3
4
5 /* Vertcal Industry Procedure for pre processing in case of
6 create resource group members */
7
8 PROCEDURE create_group_members_pre
9 (P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
10 P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
11 X_RETURN_STATUS OUT NOCOPY VARCHAR2
12 ) IS
13 BEGIN
14 x_return_status := fnd_api.g_ret_sts_success;
15 END create_group_members_pre;
16
17
18 /* Vertcal Industry Procedure for post processing in case of
19 create resource group members */
20
21 PROCEDURE create_group_members_post
22 (P_GROUP_MEMBER_ID IN JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE,
23 P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
24 P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
25 X_RETURN_STATUS OUT NOCOPY VARCHAR2
26 ) IS
27 l_JTM_enable_prof_value varchar2(255);
28 l_cursorid INTEGER;
29 l_execute_status INTEGER;
30 l_strBuffer VARCHAR2(2000);
31 l_strLogBuffer VARCHAR2(2000) := ' begin ' ||
32 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
33 ' ''CREATE_GROUP_MEMBERS_POST'', ' ||
34 ' ''JTF_RS_GROUP_MEMBER_VUHK'', ' ||
35 ' ''Error:'' || SQLERRM ' || ',' ||
36 ' 1,' ||
37 ' ''JTM.JTF_RS_GROUP_MEMBER_VUHK.CREATE_GROUP_MEMBERS_POST''); ' ||
38 ' exception ' ||
39 ' when others then null;' ||
40 ' end; ';
41
42 BEGIN
43 x_return_status := fnd_api.g_ret_sts_success;
44
45 begin
46 EXECUTE IMMEDIATE
47 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
48 ' ''CREATE_GROUP_MEMBERS_POST'', ' ||
49 ' ''JTF_RS_GROUP_MEMBER_VUHK'', ' ||
50 ' ''The procedure is called.'', ' ||
51 ' 4,' ||
52 ' ''JTM.JTF_RS_GROUP_MEMBER_VUHK.CREATE_GROUP_MEMBERS_POST''); ' ||
53 ' end; ';
54 exception
55 when others then
56 null;
57 end;
58
59 /* check if JTM is installed */
60 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
61 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
62
63 if (l_JTM_enable_prof_value = 'Y') then
64 l_cursorid := DBMS_SQL.open_cursor;
65 l_strBuffer :=
66 ' begin ' || 'JTM_RS_GROUP_MEMBER_VUHK' || '.' || 'create_group_members_post' ||
67 '(:1,:2,:3,:4); ' ||
68 ' exception ' ||
69 ' when others then ' ||
70 l_strLogBuffer ||
71 ' end; ';
72 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
73 DBMS_SQL.bind_variable (l_cursorid, ':1', P_GROUP_MEMBER_ID);
74 DBMS_SQL.bind_variable (l_cursorid, ':2', P_GROUP_ID);
75 DBMS_SQL.bind_variable (l_cursorid, ':3', P_RESOURCE_ID);
76 DBMS_SQL.bind_variable (l_cursorid, ':4', X_RETURN_STATUS);
77 begin
78 l_execute_status := DBMS_SQL.execute (l_cursorid);
79 exception
80 when others then
81 EXECUTE IMMEDIATE l_strLogBuffer;
82 end;
83 DBMS_SQL.close_cursor (l_cursorid);
84 end if;
85
86 EXCEPTION
87 WHEN OTHERS THEN
88 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
89 begin
90 EXECUTE IMMEDIATE l_strLogBuffer;
91 exception
92 when others then
93 null;
94 end;
95 END create_group_members_post;
96
97 /* Vertcal Industry Procedure for pre processing in case of
98 update resource group members */
99
100 PROCEDURE update_group_members_pre
101 (P_GROUP_MEMBER_ID IN JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE,
102 X_RETURN_STATUS OUT NOCOPY VARCHAR2
103 ) IS
104 BEGIN
105 x_return_status := fnd_api.g_ret_sts_success;
106 END update_group_members_pre;
107
108
109 /* Vertcal Industry Procedure for post processing in case of
110 update resource group members */
111
112 PROCEDURE update_group_members_post
113 (P_GROUP_MEMBER_ID IN JTF_RS_GROUP_MEMBERS.GROUP_MEMBER_ID%TYPE,
114 X_RETURN_STATUS OUT NOCOPY VARCHAR2
115 ) IS
116 BEGIN
117 x_return_status := fnd_api.g_ret_sts_success;
118 END update_group_members_post;
119
120
121 /* Vertcal Industry Procedure for pre processing in case of
122 delete resource group members */
123
124 PROCEDURE delete_group_members_pre
125 (P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
126 P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
127 X_RETURN_STATUS OUT NOCOPY VARCHAR2
128 ) IS
129 l_JTM_enable_prof_value varchar2(255);
130 l_cursorid INTEGER;
131 l_execute_status INTEGER;
132 l_strBuffer VARCHAR2(2000);
133 l_strLogBuffer VARCHAR2(2000) := ' begin ' ||
134 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
135 ' ''DELETE_GROUP_MEMBERS_PRE'', ' ||
136 ' ''JTF_RS_GROUP_MEMBER_VUHK'', ' ||
137 ' ''Error:'' || SQLERRM ' || ',' ||
138 ' 1,' ||
139 ' ''JTM.JTF_RS_GROUP_MEMBER_VUHK.DELETE_GROUP_MEMBERS_PRE''); ' ||
140 ' exception ' ||
141 ' when others then null;' ||
142 ' end; ';
143
144 BEGIN
145 x_return_status := fnd_api.g_ret_sts_success;
146
147 begin
148 EXECUTE IMMEDIATE
149 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
150 ' ''DELETE_GROUP_MEMBERS_PRE'', ' ||
151 ' ''JTF_RS_GROUP_MEMBER_VUHK'', ' ||
152 ' ''The procedure is called.'', ' ||
153 ' 4,' ||
154 ' ''JTM.JTF_RS_GROUP_MEMBER_VUHK.DELETE_GROUP_MEMBERS_PRE''); ' ||
155 ' end; ';
156 exception
157 when others then
158 null;
159 end;
160 /* check if JTM is installed */
161 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
162 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
163
164 if (l_JTM_enable_prof_value = 'Y') then
165 l_cursorid := DBMS_SQL.open_cursor;
166 l_strBuffer :=
167 ' begin ' || 'JTM_RS_GROUP_MEMBER_VUHK' || '.' || 'delete_group_members_pre' ||
168 '(:1,:2,:3); ' ||
169 ' exception ' ||
170 ' when others then ' ||
171 l_strLogBuffer ||
172 ' end; ';
173 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
174 DBMS_SQL.bind_variable (l_cursorid, ':1', P_GROUP_ID);
175 DBMS_SQL.bind_variable (l_cursorid, ':2', P_RESOURCE_ID);
176 DBMS_SQL.bind_variable (l_cursorid, ':3', X_RETURN_STATUS);
177 begin
178 l_execute_status := DBMS_SQL.execute (l_cursorid);
179 exception
180 when others then
181 EXECUTE IMMEDIATE l_strLogBuffer;
182 end;
183 DBMS_SQL.close_cursor (l_cursorid);
184 end if;
185
186 EXCEPTION
187 WHEN OTHERS THEN
188 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
189 begin
190 EXECUTE IMMEDIATE l_strLogBuffer;
191 exception
192 when others then
193 null;
194 end;
195 END delete_group_members_pre;
196
197
198 /* Vertical Industry Procedure for post processing in case of
199 delete resource group members */
200
201 PROCEDURE delete_group_members_post
202 (P_GROUP_ID IN JTF_RS_GROUP_MEMBERS.GROUP_ID%TYPE,
203 P_RESOURCE_ID IN JTF_RS_GROUP_MEMBERS.RESOURCE_ID%TYPE,
204 X_RETURN_STATUS OUT NOCOPY VARCHAR2
205 ) IS
206 BEGIN
207 x_return_status := fnd_api.g_ret_sts_success;
208 END delete_group_members_post;
209
210 END jtf_rs_group_member_vuhk;