[Home] [Help]
PACKAGE BODY: APPS.JTM_CTR_CAPTURE_READING_VUHK
Source
1 PACKAGE BODY JTM_CTR_CAPTURE_READING_VUHK as
2 /* $Header: jtmhkcpb.pls 120.1 2005/08/24 02:11:06 saradhak noship $*/
3 Cursor Get_hook_info(p_processing_type in varchar2, p_api_name in varchar2) is
4 Select HOOK_PACKAGE, HOOK_API , EXECUTE_FLAG, PRODUCT_CODE
5 from JTF_HOOKS_DATA
6 Where package_name = 'JTM_CTR_CAPTURE_READING_PUB' and
7 upper(api_name) = upper(p_api_name) and
8 processing_type = p_processing_type and
9 execute_flag = 'Y' and
10 hook_type = 'V';
11
12
13 PROCEDURE CAPTURE_COUNTER_READING_POST(
14 P_Api_Version_Number IN NUMBER,
15 P_Init_Msg_List IN VARCHAR2 ,
16 P_Commit IN VARCHAR2 ,
17 p_validation_level IN NUMBER ,
18 p_COUNTER_GRP_LOG_ID IN NUMBER,
19 X_Return_Status OUT NOCOPY VARCHAR2,
20 X_Msg_Count OUT NOCOPY NUMBER,
21 X_Msg_Data OUT NOCOPY VARCHAR2
22 ) IS
23 l_enable_flag varchar2(20);
24 l_cursorid INTEGER;
25 l_strBuffer VARCHAR2(2000);
26 l_execute_status INTEGER;
27 BEGIN
28 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
29
30 FOR Csr1 in Get_hook_info('A', 'CAPTURE_COUNTER_READING') LOOP
31
32 /* user execute flag */
33 l_enable_flag := Csr1.EXECUTE_FLAG;
34
35 /* use profile for checking */
36 l_enable_flag := JTM_PROFILE_UTL_PKG.Get_enable_flag_at_resp
37 (p_app_short_name => Csr1.PRODUCT_CODE);
38
39 if (l_enable_flag = 'Y') then
40 l_cursorid := DBMS_SQL.open_cursor;
41 l_strBuffer :=
42 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
43 '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
44 ' exception ' ||
45 ' when others then ' ||
46 ' null; ' ||
47 ' end; ';
48 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
49 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
50 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
51 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
52 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
53 DBMS_SQL.bind_variable (l_cursorid, ':5', p_COUNTER_GRP_LOG_ID);
54 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Return_Status);
55 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Msg_Count);
56 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Data);
57
58 begin
59 l_execute_status := DBMS_SQL.execute (l_cursorid);
60 exception
61 when others then
62 NULL;
63 end;
64 DBMS_SQL.close_cursor (l_cursorid);
65 end if;
66 END LOOP;
67
68 EXCEPTION WHEN OTHERS THEN
69 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
70 END CAPTURE_COUNTER_READING_POST;
71
72 PROCEDURE UPDATE_COUNTER_READING_PRE (
73 p_Api_Version_Number IN NUMBER,
74 P_Init_Msg_List IN VARCHAR2,
75 P_Commit IN VARCHAR2,
76 p_validation_level IN NUMBER,
77 p_COUNTER_GRP_LOG_ID IN NUMBER,
78 p_object_version_number IN NUMBER,
79 X_Return_Status OUT NOCOPY VARCHAR2,
80 X_Msg_Count OUT NOCOPY NUMBER,
81 X_Msg_Data OUT NOCOPY VARCHAR2
82 )IS
83 l_enable_flag varchar2(20);
84 l_cursorid INTEGER;
85 l_strBuffer VARCHAR2(2000);
86 l_execute_status INTEGER;
87 BEGIN
88 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
89
90 FOR Csr1 in Get_hook_info('B', 'UPDATE_COUNTER_READING') LOOP
91
92 /* user execute flag */
93 l_enable_flag := Csr1.EXECUTE_FLAG;
94
95 /* use profile for checking */
96 l_enable_flag := JTM_PROFILE_UTL_PKG.Get_enable_flag_at_resp
97 (p_app_short_name => Csr1.PRODUCT_CODE);
98
99 if (l_enable_flag = 'Y') then
100 l_cursorid := DBMS_SQL.open_cursor;
101 l_strBuffer :=
102 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
103 '(:1,:2,:3,:4,:5,:6,:7,:8, :9); ' ||
104 ' exception ' ||
105 ' when others then ' ||
106 ' null; ' ||
107 ' end; ';
108 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
109 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
110 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
111 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
112 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
113 DBMS_SQL.bind_variable (l_cursorid, ':5', p_COUNTER_GRP_LOG_ID);
114 DBMS_SQL.bind_variable (l_cursorid, ':6', p_object_version_number);
115 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Return_Status);
116 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Count);
117 DBMS_SQL.bind_variable (l_cursorid, ':9', X_Msg_Data);
118
119 begin
120 l_execute_status := DBMS_SQL.execute (l_cursorid);
121 exception
122 when others then
123 NULL;
124 end;
125 DBMS_SQL.close_cursor (l_cursorid);
126 end if;
127 END LOOP;
128
129 EXCEPTION WHEN OTHERS THEN
130 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131 END UPDATE_COUNTER_READING_PRE;
132
133 PROCEDURE UPDATE_COUNTER_READING_PRE (
134 p_Api_Version_Number IN NUMBER,
135 P_Init_Msg_List IN VARCHAR2,
136 P_Commit IN VARCHAR2,
137 p_validation_level IN NUMBER,
138 p_COUNTER_GRP_LOG_ID IN NUMBER,
139 X_Return_Status OUT NOCOPY VARCHAR2,
140 X_Msg_Count OUT NOCOPY NUMBER,
141 X_Msg_Data OUT NOCOPY VARCHAR2
142 )IS
143 l_enable_flag varchar2(20);
144 l_cursorid INTEGER;
145 l_strBuffer VARCHAR2(2000);
146 l_execute_status INTEGER;
147 BEGIN
148 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
149
150 FOR Csr1 in Get_hook_info('B', 'UPDATE_COUNTER_READING') LOOP
151
152 /* user execute flag */
153 l_enable_flag := Csr1.EXECUTE_FLAG;
154
155 /* use profile for checking */
156 l_enable_flag := JTM_PROFILE_UTL_PKG.Get_enable_flag_at_resp
157 (p_app_short_name => Csr1.PRODUCT_CODE);
158
159 if (l_enable_flag = 'Y') then
160 l_cursorid := DBMS_SQL.open_cursor;
161 l_strBuffer :=
162 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
163 '(:1,:2,:3,:4,:5,:6,:7,:8, :9); ' ||
164 ' exception ' ||
165 ' when others then ' ||
166 ' null; ' ||
167 ' end; ';
168 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
169 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
170 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
171 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
172 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
173 DBMS_SQL.bind_variable (l_cursorid, ':5', p_COUNTER_GRP_LOG_ID);
174 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Return_Status);
175 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Count);
176 DBMS_SQL.bind_variable (l_cursorid, ':9', X_Msg_Data);
177
178 begin
179 l_execute_status := DBMS_SQL.execute (l_cursorid);
180 exception
181 when others then
182 NULL;
183 end;
184 DBMS_SQL.close_cursor (l_cursorid);
185 end if;
186 END LOOP;
187
188 EXCEPTION WHEN OTHERS THEN
189 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
190 END UPDATE_COUNTER_READING_PRE;
191
192
193 PROCEDURE UPDATE_COUNTER_READING_POST (
194 p_Api_Version_Number IN NUMBER,
195 P_Init_Msg_List IN VARCHAR2,
196 P_Commit IN VARCHAR2,
197 p_validation_level IN NUMBER,
198 p_COUNTER_GRP_LOG_ID IN NUMBER,
199 p_object_version_number IN NUMBER,
200 X_Return_Status OUT NOCOPY VARCHAR2,
201 X_Msg_Count OUT NOCOPY NUMBER,
202 X_Msg_Data OUT NOCOPY VARCHAR2
203 )IS
204 l_enable_flag varchar2(20);
205 l_cursorid INTEGER;
206 l_strBuffer VARCHAR2(2000);
207 l_execute_status INTEGER;
208 BEGIN
209 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
210
211 FOR Csr1 in Get_hook_info('A', 'UPDATE_COUNTER_READING') LOOP
212
213 /* user execute flag */
214 l_enable_flag := Csr1.EXECUTE_FLAG;
215
216 /* use profile for checking */
217 l_enable_flag := JTM_PROFILE_UTL_PKG.Get_enable_flag_at_resp
218 (p_app_short_name => Csr1.PRODUCT_CODE);
219
220 if (l_enable_flag = 'Y') then
221 l_cursorid := DBMS_SQL.open_cursor;
222 l_strBuffer :=
223 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
224 '(:1,:2,:3,:4,:5,:6,:7,:8, :9); ' ||
225 ' exception ' ||
226 ' when others then ' ||
227 ' null; ' ||
228 ' end; ';
229 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
230 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
231 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
232 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
233 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
234 DBMS_SQL.bind_variable (l_cursorid, ':5', p_COUNTER_GRP_LOG_ID);
235 DBMS_SQL.bind_variable (l_cursorid, ':6', p_object_version_number);
236 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Return_Status);
237 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Count);
238 DBMS_SQL.bind_variable (l_cursorid, ':9', X_Msg_Data);
239
240 begin
241 l_execute_status := DBMS_SQL.execute (l_cursorid);
242 exception
243 when others then
244 NULL;
245 end;
246 DBMS_SQL.close_cursor (l_cursorid);
247 end if;
248 END LOOP;
249
250 EXCEPTION WHEN OTHERS THEN
251 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
252 END UPDATE_COUNTER_READING_POST;
253
254 PROCEDURE UPDATE_COUNTER_READING_POST (
255 p_Api_Version_Number IN NUMBER,
256 P_Init_Msg_List IN VARCHAR2,
257 P_Commit IN VARCHAR2,
258 p_validation_level IN NUMBER,
259 p_COUNTER_GRP_LOG_ID IN NUMBER,
260 X_Return_Status OUT NOCOPY VARCHAR2,
261 X_Msg_Count OUT NOCOPY NUMBER,
262 X_Msg_Data OUT NOCOPY VARCHAR2
263 )IS
264 l_enable_flag varchar2(20);
265 l_cursorid INTEGER;
266 l_strBuffer VARCHAR2(2000);
267 l_execute_status INTEGER;
268 BEGIN
269 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
270
271 FOR Csr1 in Get_hook_info('A', 'UPDATE_COUNTER_READING') LOOP
272
273 /* user execute flag */
274 l_enable_flag := Csr1.EXECUTE_FLAG;
275
276 /* use profile for checking */
277 l_enable_flag := JTM_PROFILE_UTL_PKG.Get_enable_flag_at_resp
278 (p_app_short_name => Csr1.PRODUCT_CODE);
279
280 if (l_enable_flag = 'Y') then
281 l_cursorid := DBMS_SQL.open_cursor;
282 l_strBuffer :=
283 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
284 '(:1,:2,:3,:4,:5,:6,:7,:8, :9); ' ||
285 ' exception ' ||
286 ' when others then ' ||
287 ' null; ' ||
288 ' end; ';
289 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
290 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
291 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
292 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
293 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
294 DBMS_SQL.bind_variable (l_cursorid, ':5', p_COUNTER_GRP_LOG_ID);
295 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Return_Status);
296 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Count);
297 DBMS_SQL.bind_variable (l_cursorid, ':9', X_Msg_Data);
298
299 begin
300 l_execute_status := DBMS_SQL.execute (l_cursorid);
301 exception
302 when others then
303 NULL;
304 end;
305 DBMS_SQL.close_cursor (l_cursorid);
306 end if;
307 END LOOP;
308
309 EXCEPTION WHEN OTHERS THEN
310 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311 END UPDATE_COUNTER_READING_POST;
312
313 PROCEDURE CAPTURE_CTR_PROP_READING_POST(
314 p_Api_version_number IN NUMBER,
315 p_Init_Msg_List IN VARCHAR2,
316 P_Commit IN VARCHAR2,
317 p_validation_level IN NUMBER,
318 p_COUNTER_GRP_LOG_ID IN NUMBER,
319 X_Return_Status OUT NOCOPY VARCHAR2,
320 X_Msg_Count OUT NOCOPY NUMBER,
321 X_Msg_Data OUT NOCOPY VARCHAR2
322 )
323 IS
324 l_enable_flag varchar2(20);
325 l_cursorid INTEGER;
326 l_strBuffer VARCHAR2(2000);
327 l_execute_status INTEGER;
328 BEGIN
329 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
330
331 FOR Csr1 in Get_hook_info('A', 'CAPTURE_CTR_PROP_READING') LOOP
332
333 /* user execute flag */
334 l_enable_flag := Csr1.EXECUTE_FLAG;
335
336 /* use profile for checking */
337 l_enable_flag := JTM_PROFILE_UTL_PKG.Get_enable_flag_at_resp
338 (p_app_short_name => Csr1.PRODUCT_CODE);
339
340 if (l_enable_flag = 'Y') then
341 l_cursorid := DBMS_SQL.open_cursor;
342 l_strBuffer :=
343 ' begin ' || Csr1.HOOK_PACKAGE || '.' || Csr1.HOOK_API ||
344 '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
345 ' exception ' ||
346 ' when others then ' ||
347 ' null; ' ||
348 ' end; ';
349 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
350 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
351 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
352 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
353 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
354 DBMS_SQL.bind_variable (l_cursorid, ':5', p_COUNTER_GRP_LOG_ID);
355 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Return_Status);
356 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Msg_Count);
357 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Data);
358
359 begin
360 l_execute_status := DBMS_SQL.execute (l_cursorid);
361 exception
362 when others then
363 NULL;
364 end;
365 DBMS_SQL.close_cursor (l_cursorid);
366 end if;
367 END LOOP;
368
369 EXCEPTION WHEN OTHERS THEN
370 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
371 END CAPTURE_CTR_PROP_READING_POST;
372
373 END JTM_CTR_CAPTURE_READING_VUHK;