[Home] [Help]
PACKAGE BODY: APPS.CS_CTR_CAPTURE_READING_VUHK
Source
1 PACKAGE BODY CS_CTR_CAPTURE_READING_VUHK as
2 /* $Header: jtmcncpb.pls 120.2 2005/08/24 02:08:30 saradhak noship $*/
3
4 PROCEDURE CAPTURE_COUNTER_READING_PRE(
5 P_Api_Version_Number IN NUMBER,
6 P_Init_Msg_List IN VARCHAR2,
7 P_Commit IN VARCHAR2,
8 p_validation_level IN NUMBER,
9 p_CTR_GRP_LOG_Rec IN CS_CTR_CAPTURE_READING_PUB.CTR_GRP_LOG_Rec_Type := CS_CTR_CAPTURE_READING_PUB.G_MISS_CTR_GRP_LOG_Rec,
10 p_CTR_RDG_Tbl IN CS_CTR_CAPTURE_READING_PUB.CTR_RDG_Tbl_Type := CS_CTR_CAPTURE_READING_PUB.G_MISS_CTR_RDG_TBL,
11 p_PROP_RDG_Tbl IN CS_CTR_CAPTURE_READING_PUB.PROP_RDG_Tbl_Type := CS_CTR_CAPTURE_READING_PUB.G_MISS_PROP_RDG_TBL,
12 X_Return_Status OUT NOCOPY VARCHAR2,
13 X_Msg_Count OUT NOCOPY NUMBER,
14 X_Msg_Data OUT NOCOPY VARCHAR2
15 )
16 IS
17 BEGIN
18 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
19 END CAPTURE_COUNTER_READING_PRE;
20
21 PROCEDURE CAPTURE_COUNTER_READING_POST(
22 P_Api_Version_Number IN NUMBER,
23 P_Init_Msg_List IN VARCHAR2 ,
24 P_Commit IN VARCHAR2 ,
25 p_validation_level IN NUMBER ,
26 p_CTR_GRP_LOG_Rec IN CS_CTR_CAPTURE_READING_PUB.CTR_GRP_LOG_Rec_Type ,
27 p_CTR_RDG_Tbl IN CS_CTR_CAPTURE_READING_PUB.CTR_RDG_Tbl_Type ,
28 p_PROP_RDG_Tbl IN CS_CTR_CAPTURE_READING_PUB.PROP_RDG_Tbl_Type ,
29 X_Return_Status OUT NOCOPY VARCHAR2,
30 X_Msg_Count OUT NOCOPY NUMBER,
31 X_Msg_Data OUT NOCOPY VARCHAR2
32 ) IS
33
34 l_JTM_enable_prof_value varchar2(255);
35 l_cursorid INTEGER;
36 l_execute_status INTEGER;
37 l_array_counter NUMBER;
38 l_strBuffer VARCHAR2(2000);
39 l_strLogBuffer VARCHAR2(2000) := ' begin ' ||
40 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
41 ' ''CAPTURE_COUNTER_READING_POST'', ' ||
42 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
43 ' ''Error:'' || SQLERRM ' || ',' ||
44 ' 1,' ||
45 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.CAPTURE_COUNTER_READING_POST''); ' ||
46 ' exception ' ||
47 ' when others then null;' ||
48 ' end; ';
49
50 BEGIN
51 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
52 begin
53 EXECUTE IMMEDIATE
54 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
55 ' ''CAPTURE_COUNTER_READING_POST'', ' ||
56 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
57 ' ''The procedure is called.'', ' ||
58 ' 4,' ||
59 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.CAPTURE_COUNTER_READING_POST''); ' ||
60 ' end; ';
61 exception
62 when others then
63 null;
64 end;
65
66 /* check if JTM is installed */
67 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
68 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
69
70 if (l_JTM_enable_prof_value = 'Y') then
71 l_cursorid := DBMS_SQL.open_cursor;
72 l_strBuffer :=
73 ' begin ' || 'JTM_CTR_CAPTURE_READING_VUHK' || '.' || 'CAPTURE_COUNTER_READING_POST' ||
74 '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
75 ' exception ' ||
76 ' when others then ' ||
77 l_strLogBuffer ||
78 ' end; ';
79 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
80 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
81 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
82 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
83 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
84 DBMS_SQL.bind_variable (l_cursorid, ':5', p_CTR_GRP_LOG_Rec.counter_grp_log_id);
85 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Return_Status);
86 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Msg_Count);
87 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Data);
88
89 begin
90 l_execute_status := DBMS_SQL.execute (l_cursorid);
91 exception
92 when others then
93 EXECUTE IMMEDIATE l_strLogBuffer;
94 end;
95 DBMS_SQL.close_cursor (l_cursorid);
96 end if;
97
98 /*
99 IF p_CTR_RDG_Tbl.count > 0 THEN
100 l_array_counter := p_CTR_RDG_Tbl.First;
101 WHILE p_CTR_RDG_Tbl.EXISTS(l_array_counter) LOOP
102 IF p_CTR_RDG_Tbl(l_array_counter).COUNTER_VALUE_ID <> FND_API.G_MISS_NUM THEN
103 l_cursorid := DBMS_SQL.open_cursor;
104 l_strBuffer :=
105 ' begin ' || 'JTM_CTR_CAPTURE_READING_VUHK' || '.'
106 || 'CAPTURE_COUNTER_READING_POST' ||
107 '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
108 ' exception ' ||
109 ' when others then ' ||
110 ' null; ' ||
111 ' end; ';
112 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
113 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
114 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
115 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
116 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
117 DBMS_SQL.bind_variable (l_cursorid, ':5',
118 p_CTR_RDG_Tbl(l_array_counter).COUNTER_VALUE_ID);
119 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Return_Status);
120 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Msg_Count);
121 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Data);
122
123 begin
124 l_execute_status := DBMS_SQL.execute (l_cursorid);
125 exception
126 when others then
127 NULL;
128 end;
129 DBMS_SQL.close_cursor (l_cursorid);
130 END IF;
131 l_array_counter := p_CTR_RDG_Tbl.NEXT(l_array_counter);
132 END LOOP;
133 END IF;
134 */
135
136
137 EXCEPTION
138 WHEN OTHERS THEN
139 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
140 begin
141 EXECUTE IMMEDIATE l_strLogBuffer;
142 exception
143 when others then
144 null;
145 end;
146 END CAPTURE_COUNTER_READING_POST;
147
148 PROCEDURE UPDATE_COUNTER_READING_PRE(
149 P_Api_Version_Number IN NUMBER,
150 P_Init_Msg_List IN VARCHAR2,
151 P_Commit IN VARCHAR2,
152 p_validation_level IN NUMBER,
153 p_CTR_GRP_LOG_ID IN NUMBER,
154 p_CTR_RDG_Tbl IN CS_CTR_CAPTURE_READING_PUB.CTR_RDG_Tbl_Type := CS_CTR_CAPTURE_READING_PUB.G_MISS_CTR_RDG_TBL,
155 p_PROP_RDG_Tbl IN CS_CTR_CAPTURE_READING_PUB.PROP_RDG_Tbl_Type := CS_CTR_CAPTURE_READING_PUB.G_MISS_PROP_RDG_TBL,
156 X_Return_Status OUT NOCOPY VARCHAR2,
157 X_Msg_Count OUT NOCOPY NUMBER,
158 X_Msg_Data OUT NOCOPY VARCHAR2
159 )
160 IS
161 --NEEDED
162 l_JTM_enable_prof_value varchar2(255);
163 l_cursorid INTEGER;
164 l_execute_status INTEGER;
165 l_strBuffer VARCHAR2(2000);
166 l_strLogBuffer VARCHAR2(2000) := ' begin ' ||
167 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
168 ' ''UPDATE_COUNTER_READING_PRE'', ' ||
169 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
170 ' ''Error:'' || SQLERRM ' || ',' ||
171 ' 1,' ||
172 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.UPDATE_COUNTER_READING_PRE''); ' ||
173 ' exception ' ||
174 ' when others then null;' ||
175 ' end; ';
176
177 BEGIN
178 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
179 begin
180 EXECUTE IMMEDIATE
181 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
182 ' ''UPDATE_COUNTER_READING_PRE'', ' ||
183 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
184 ' ''The procedure is called.'', ' ||
185 ' 4,' ||
186 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.UPDATE_COUNTER_READING_PRE''); ' ||
187 ' end; ';
188 exception
189 when others then
190 null;
191 end;
192 /* check if JTM is installed */
193 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
194 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
195
196 if (l_JTM_enable_prof_value = 'Y') then
197 l_cursorid := DBMS_SQL.open_cursor;
198 l_strBuffer :=
199 ' begin ' || 'JTM_CTR_CAPTURE_READING_VUHK' || '.' || 'UPDATE_COUNTER_READING_PRE' ||
200 '(:1,:2,:3,:4,:5,:6,:7,:8, :9); ' ||
201 ' exception ' ||
202 ' when others then ' ||
203 l_strLogBuffer ||
204 ' end; ';
205 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
206 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
207 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
208 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
209 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
210 DBMS_SQL.bind_variable (l_cursorid, ':5', p_CTR_GRP_LOG_ID);
211 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Return_Status);
212 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Count);
213 DBMS_SQL.bind_variable (l_cursorid, ':9', X_Msg_Data);
214
215 begin
216 l_execute_status := DBMS_SQL.execute (l_cursorid);
217 exception
218 when others then
219 EXECUTE IMMEDIATE l_strLogBuffer;
220 end;
221 DBMS_SQL.close_cursor (l_cursorid);
222 end if;
223
224 EXCEPTION
225 WHEN OTHERS THEN
226 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227 begin
228 EXECUTE IMMEDIATE l_strLogBuffer;
229 exception
230 when others then
231 null;
232 end;
233 END UPDATE_COUNTER_READING_PRE;
234
235
236 PROCEDURE UPDATE_COUNTER_READING_POST(
237 P_Api_Version_Number IN NUMBER,
238 P_Init_Msg_List IN VARCHAR2,
239 P_Commit IN VARCHAR2,
240 p_validation_level IN NUMBER,
241 p_CTR_GRP_LOG_ID IN NUMBER,
242 p_CTR_RDG_Tbl IN CS_CTR_CAPTURE_READING_PUB.CTR_RDG_Tbl_Type := CS_CTR_CAPTURE_READING_PUB.G_MISS_CTR_RDG_TBL,
243 p_PROP_RDG_Tbl IN CS_CTR_CAPTURE_READING_PUB.PROP_RDG_Tbl_Type := CS_CTR_CAPTURE_READING_PUB.G_MISS_PROP_RDG_TBL,
244 X_Return_Status OUT NOCOPY VARCHAR2,
245 X_Msg_Count OUT NOCOPY NUMBER,
246 X_Msg_Data OUT NOCOPY VARCHAR2
247 )
248 IS
249 l_JTM_enable_prof_value varchar2(255);
250 l_cursorid INTEGER;
251 l_execute_status INTEGER;
252 l_strBuffer VARCHAR2(2000);
253 l_strLogBuffer VARCHAR2(2000) := ' begin ' ||
254 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
255 ' ''UPDATE_COUNTER_READING_POST'', ' ||
256 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
257 ' ''Error:'' || SQLERRM ' || ',' ||
258 ' 1,' ||
259 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.UPDATE_COUNTER_READING_POST''); ' ||
260 ' exception ' ||
261 ' when others then null;' ||
262 ' end; ';
263
264 BEGIN
265 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
266 begin
267 EXECUTE IMMEDIATE
268 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
269 ' ''UPDATE_COUNTER_READING_POST'', ' ||
270 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
271 ' ''The procedure is called.'', ' ||
272 ' 4,' ||
273 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.UPDATE_COUNTER_READING_POST''); ' ||
274 ' end; ';
275 exception
276 when others then
277 null;
278 end;
279 /* check if JTM is installed */
280 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
281 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
282
283 if (l_JTM_enable_prof_value = 'Y') then
284 l_cursorid := DBMS_SQL.open_cursor;
285 l_strBuffer :=
286 ' begin ' || 'JTM_CTR_CAPTURE_READING_VUHK' || '.' || 'UPDATE_COUNTER_READING_POST' ||
287 '(:1,:2,:3,:4,:5,:6,:7,:8, :9); ' ||
288 ' exception ' ||
289 ' when others then ' ||
290 l_strLogBuffer ||
291 ' end; ';
292 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
293 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
294 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
295 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
296 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
297 DBMS_SQL.bind_variable (l_cursorid, ':5', p_CTR_GRP_LOG_ID);
298 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Return_Status);
299 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Count);
300 DBMS_SQL.bind_variable (l_cursorid, ':9', X_Msg_Data);
301
302 begin
303 l_execute_status := DBMS_SQL.execute (l_cursorid);
304 exception
305 when others then
306 EXECUTE IMMEDIATE l_strLogBuffer;
307 end;
308 DBMS_SQL.close_cursor (l_cursorid);
309 end if;
310
311 EXCEPTION
312 WHEN OTHERS THEN
313 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
314 begin
315 EXECUTE IMMEDIATE l_strLogBuffer;
316 exception
317 when others then
318 null;
319 end;
320 END UPDATE_COUNTER_READING_POST;
321
322 PROCEDURE CAPTURE_COUNTER_READING_PRE (
323 P_Api_Version_Number IN NUMBER,
324 P_Init_Msg_List IN VARCHAR2,
325 P_Commit IN VARCHAR2,
326 p_validation_level IN NUMBER,
327 p_CTR_RDG_Rec IN CS_CTR_CAPTURE_READING_PUB.CTR_RDG_Rec_Type,
328 p_COUNTER_GRP_LOG_ID IN NUMBER,
329 X_Return_Status OUT NOCOPY VARCHAR2,
330 X_Msg_Count OUT NOCOPY NUMBER,
331 X_Msg_Data OUT NOCOPY VARCHAR2
332 )
333 IS
334 BEGIN
335 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
336 END CAPTURE_COUNTER_READING_PRE;
337
338 PROCEDURE CAPTURE_COUNTER_READING_POST (
339 P_Api_Version_Number IN NUMBER,
340 P_Init_Msg_List IN VARCHAR2,
341 P_Commit IN VARCHAR2,
342 p_validation_level IN NUMBER,
343 p_CTR_RDG_Rec IN CS_CTR_CAPTURE_READING_PUB.CTR_RDG_Rec_Type,
344 p_COUNTER_GRP_LOG_ID IN NUMBER,
345 X_Return_Status OUT NOCOPY VARCHAR2,
346 X_Msg_Count OUT NOCOPY NUMBER,
347 X_Msg_Data OUT NOCOPY VARCHAR2
348 )
349 IS
350 --NEEDED
351 l_JTM_enable_prof_value varchar2(255);
352 l_cursorid INTEGER;
353 l_execute_status INTEGER;
354 l_strBuffer VARCHAR2(2000);
355 l_strLogBuffer VARCHAR2(2000) := ' begin ' ||
356 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
357 ' ''CAPTURE_COUNTER_READING_POST'', ' ||
358 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
359 ' ''Error:'' || SQLERRM ' || ',' ||
360 ' 1,' ||
361 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.CAPTURE_COUNTER_READING_POST''); ' ||
362 ' exception ' ||
363 ' when others then null;' ||
364 ' end; ';
365
366 BEGIN
367 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
368
369 begin
373 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
370 EXECUTE IMMEDIATE
371 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
372 ' ''CAPTURE_COUNTER_READING_POST'', ' ||
374 ' ''The procedure is called.'', ' ||
375 ' 4,' ||
376 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.CAPTURE_COUNTER_READING_POST''); ' ||
377 ' end; ';
378 exception
379 when others then
380 null;
381 end;
382 /* check if JTM is installed */
383 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
384 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
385
386 if (l_JTM_enable_prof_value = 'Y') then
387 l_cursorid := DBMS_SQL.open_cursor;
388 l_strBuffer :=
389 ' begin ' || 'JTM_CTR_CAPTURE_READING_VUHK' || '.' || 'CAPTURE_COUNTER_READING_POST' ||
390 '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
391 ' exception ' ||
392 ' when others then ' ||
393 l_strLogBuffer ||
394 ' end; ';
395 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
396 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
397 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
398 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
399 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
400 DBMS_SQL.bind_variable (l_cursorid, ':5', p_COUNTER_GRP_LOG_ID);
401 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Return_Status);
402 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Msg_Count);
403 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Data);
404
405 begin
406 l_execute_status := DBMS_SQL.execute (l_cursorid);
407 exception
408 when others then
409 EXECUTE IMMEDIATE l_strLogBuffer;
410 end;
411 DBMS_SQL.close_cursor (l_cursorid);
412 end if;
413
414 EXCEPTION
415 WHEN OTHERS THEN
416 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
417 begin
418 EXECUTE IMMEDIATE l_strLogBuffer;
419 exception
420 when others then
421 null;
422 end;
423 END CAPTURE_COUNTER_READING_POST;
424
425 PROCEDURE UPDATE_COUNTER_READING_PRE (
426 p_Api_Version_Number IN NUMBER,
427 P_Init_Msg_List IN VARCHAR2,
428 P_Commit IN VARCHAR2,
429 p_validation_level IN NUMBER,
430 p_CTR_RDG_Rec IN CS_CTR_CAPTURE_READING_PUB.CTR_RDG_Rec_Type,
431 p_COUNTER_GRP_LOG_ID IN NUMBER,
432 p_object_version_number IN NUMBER,
433 X_Return_Status OUT NOCOPY VARCHAR2,
434 X_Msg_Count OUT NOCOPY NUMBER,
435 X_Msg_Data OUT NOCOPY VARCHAR2
436 )
437 IS
438 --NEEDED
439 l_JTM_enable_prof_value varchar2(255);
440 l_cursorid INTEGER;
441 l_execute_status INTEGER;
442 l_strBuffer VARCHAR2(2000);
443 l_strLogBuffer VARCHAR2(2000) := ' begin ' ||
444 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
445 ' ''UPDATE_COUNTER_READING_PRE'', ' ||
446 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
447 ' ''Error:'' || SQLERRM ' || ',' ||
448 ' 1,' ||
449 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.UPDATE_COUNTER_READING_PRE''); ' ||
450 ' exception ' ||
451 ' when others then null;' ||
452 ' end; ';
453
454 BEGIN
455 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
456 begin
457 EXECUTE IMMEDIATE
458 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
459 ' ''UPDATE_COUNTER_READING_PRE'', ' ||
460 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
461 ' ''The procedure is called.'', ' ||
462 ' 4,' ||
463 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.UPDATE_COUNTER_READING_PRE''); ' ||
464 ' end; ';
465 exception
466 when others then
467 null;
468 end;
469
470 /* check if JTM is installed */
471 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
472 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
473
474 if (l_JTM_enable_prof_value = 'Y') then
475 l_cursorid := DBMS_SQL.open_cursor;
476 l_strBuffer :=
477 ' begin ' || 'JTM_CTR_CAPTURE_READING_VUHK' || '.' || 'UPDATE_COUNTER_READING_PRE' ||
478 '(:1,:2,:3,:4,:5,:6,:7,:8, :9); ' ||
479 ' exception ' ||
480 ' when others then ' ||
481 l_strLogBuffer ||
482 ' end; ';
483 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
484 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
485 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
486 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
487 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
488 DBMS_SQL.bind_variable (l_cursorid, ':5', p_COUNTER_GRP_LOG_ID);
489 DBMS_SQL.bind_variable (l_cursorid, ':6', p_object_version_number);
490 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Return_Status);
491 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Count);
492 DBMS_SQL.bind_variable (l_cursorid, ':9', X_Msg_Data);
493
494 begin
498 EXECUTE IMMEDIATE l_strLogBuffer;
495 l_execute_status := DBMS_SQL.execute (l_cursorid);
496 exception
497 when others then
499 end;
500 DBMS_SQL.close_cursor (l_cursorid);
501 end if;
502
503 EXCEPTION
504 WHEN OTHERS THEN
505 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506 begin
507 EXECUTE IMMEDIATE l_strLogBuffer;
508 exception
509 when others then
510 null;
511 end;
512 END UPDATE_COUNTER_READING_PRE;
513
514 PROCEDURE UPDATE_COUNTER_READING_POST (
515 p_Api_Version_Number IN NUMBER,
516 P_Init_Msg_List IN VARCHAR2,
517 P_Commit IN VARCHAR2,
518 p_validation_level IN NUMBER,
519 p_CTR_RDG_Rec IN CS_CTR_CAPTURE_READING_PUB.CTR_RDG_Rec_Type,
520 p_COUNTER_GRP_LOG_ID IN NUMBER,
521 p_object_version_number IN NUMBER,
522 X_Return_Status OUT NOCOPY VARCHAR2,
523 X_Msg_Count OUT NOCOPY NUMBER,
524 X_Msg_Data OUT NOCOPY VARCHAR2
525 )
526 IS
527 --NEEDED
528 l_JTM_enable_prof_value varchar2(255);
529 l_cursorid INTEGER;
530 l_execute_status INTEGER;
531 l_strBuffer VARCHAR2(2000);
532 l_strLogBuffer VARCHAR2(2000) := ' begin ' ||
533 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
534 ' ''UPDATE_COUNTER_READING_POST'', ' ||
535 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
536 ' ''Error:'' || SQLERRM ' || ',' ||
537 ' 1,' ||
538 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.UPDATE_COUNTER_READING_POST''); ' ||
539 ' exception ' ||
540 ' when others then null;' ||
541 ' end; ';
542
543 BEGIN
544 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
545 begin
546 EXECUTE IMMEDIATE
547 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
548 ' ''UPDATE_COUNTER_READING_POST'', ' ||
549 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
550 ' ''The procedure is called.'', ' ||
551 ' 4,' ||
552 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.UPDATE_COUNTER_READING_POST''); ' ||
553 ' end; ';
554 exception
555 when others then
556 null;
557 end;
558 /* check if JTM is installed */
559 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
560 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
561
562 if (l_JTM_enable_prof_value = 'Y') then
563 l_cursorid := DBMS_SQL.open_cursor;
564 l_strBuffer :=
565 ' begin ' || 'JTM_CTR_CAPTURE_READING_VUHK' || '.' || 'UPDATE_COUNTER_READING_POST' ||
566 '(:1,:2,:3,:4,:5,:6,:7,:8, :9); ' ||
567 ' exception ' ||
568 ' when others then ' ||
569 l_strLogBuffer ||
570 ' end; ';
571 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
572 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
573 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
574 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
575 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
576 DBMS_SQL.bind_variable (l_cursorid, ':5', p_COUNTER_GRP_LOG_ID);
577 DBMS_SQL.bind_variable (l_cursorid, ':6', p_object_version_number);
578 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Return_Status);
579 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Count);
580 DBMS_SQL.bind_variable (l_cursorid, ':9', X_Msg_Data);
581
582 begin
583 l_execute_status := DBMS_SQL.execute (l_cursorid);
584 exception
585 when others then
586 EXECUTE IMMEDIATE l_strLogBuffer;
587 end;
588 DBMS_SQL.close_cursor (l_cursorid);
589 end if;
590
591 EXCEPTION
592 WHEN OTHERS THEN
593 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
594 begin
595 EXECUTE IMMEDIATE l_strLogBuffer;
596 exception
597 when others then
598 null;
599 end;
600 END UPDATE_COUNTER_READING_POST;
601
602 PROCEDURE PRE_CAPTURE_CTR_READING_PRE(
603 p_api_version_number IN NUMBER,
604 p_init_msg_list IN VARCHAR2,
605 P_Commit IN VARCHAR2,
606 p_validation_level IN NUMBER,
607 P_CTR_GRP_LOG_Rec IN CS_CTR_CAPTURE_READING_PUB.CTR_GRP_LOG_Rec_Type,
608 X_COUNTER_GRP_LOG_ID IN NUMBER,
609 X_Return_Status OUT NOCOPY VARCHAR2,
610 X_Msg_Count OUT NOCOPY NUMBER,
611 X_Msg_Data OUT NOCOPY VARCHAR2
612 )
613 IS
614 BEGIN
615 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
616 END PRE_CAPTURE_CTR_READING_PRE;
617
618 PROCEDURE PRE_CAPTURE_CTR_READING_POST(
619 p_api_version_number IN NUMBER,
620 p_init_msg_list IN VARCHAR2,
621 P_Commit IN VARCHAR2,
622 p_validation_level IN NUMBER,
623 P_CTR_GRP_LOG_Rec IN CS_CTR_CAPTURE_READING_PUB.CTR_GRP_LOG_Rec_Type,
624 X_COUNTER_GRP_LOG_ID IN NUMBER,
625 X_Return_Status OUT NOCOPY VARCHAR2,
629 IS
626 X_Msg_Count OUT NOCOPY NUMBER,
627 X_Msg_Data OUT NOCOPY VARCHAR2
628 )
630 BEGIN
631 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
632 END PRE_CAPTURE_CTR_READING_POST;
633
634 PROCEDURE CAPTURE_CTR_PROP_READING_PRE(
635 p_Api_version_number IN NUMBER,
636 p_Init_Msg_List IN VARCHAR2,
637 P_Commit IN VARCHAR2,
638 p_validation_level IN NUMBER,
639 p_PROP_RDG_Rec IN CS_CTR_CAPTURE_READING_PUB.PROP_RDG_Rec_Type,
640 p_COUNTER_GRP_LOG_ID IN NUMBER,
641 X_Return_Status OUT NOCOPY VARCHAR2,
642 X_Msg_Count OUT NOCOPY NUMBER,
643 X_Msg_Data OUT NOCOPY VARCHAR2
644 )
645 IS
646 BEGIN
647 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
648 END CAPTURE_CTR_PROP_READING_PRE;
649
650 PROCEDURE CAPTURE_CTR_PROP_READING_POST(
651 p_Api_version_number IN NUMBER,
652 p_Init_Msg_List IN VARCHAR2,
653 P_Commit IN VARCHAR2,
654 p_validation_level IN NUMBER,
655 p_PROP_RDG_Rec IN CS_CTR_CAPTURE_READING_PUB.PROP_RDG_Rec_Type,
656 p_COUNTER_GRP_LOG_ID IN NUMBER,
657 X_Return_Status OUT NOCOPY VARCHAR2,
658 X_Msg_Count OUT NOCOPY NUMBER,
659 X_Msg_Data OUT NOCOPY VARCHAR2
660 )
661 IS
662 l_JTM_enable_prof_value varchar2(255);
663 l_cursorid INTEGER;
664 l_execute_status INTEGER;
665 l_strBuffer VARCHAR2(2000);
666 l_strLogBuffer VARCHAR2(2000) := ' begin ' ||
667 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
668 ' ''CAPTURE_CTR_PROP_READING_POST'', ' ||
669 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
670 ' ''Error:'' || SQLERRM ' || ',' ||
671 ' 1,' ||
672 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.CAPTURE_CTR_PROP_READING_POST''); ' ||
673 ' exception ' ||
674 ' when others then null;' ||
675 ' end; ';
676 BEGIN
677 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
678 begin
679 EXECUTE IMMEDIATE
680 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
681 ' ''CAPTURE_CTR_PROP_READING_POST'', ' ||
682 ' ''CS_CTR_CAPTURE_READING_VUHK'', ' ||
683 ' ''The procedure is called.'', ' ||
684 ' 4,' ||
685 ' ''JTM.CS_CTR_CAPTURE_READING_VUHK.CAPTURE_CTR_PROP_READING_POST''); ' ||
686 ' end; ';
687 exception
688 when others then
689 null;
690 end;
691 /* check if JTM is installed */
692 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
693 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
694
695 if (l_JTM_enable_prof_value = 'Y') then
696 l_cursorid := DBMS_SQL.open_cursor;
697 l_strBuffer :=
698 ' begin ' || 'JTM_CTR_CAPTURE_READING_VUHK' || '.' || 'CAPTURE_CTR_PROP_READING_POST' ||
699 '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
700 ' exception ' ||
701 ' when others then ' ||
702 l_strLogBuffer ||
703 ' end; ';
704 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
705 DBMS_SQL.bind_variable (l_cursorid, ':1', P_Api_Version_Number);
706 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
707 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
708 DBMS_SQL.bind_variable (l_cursorid, ':4', p_validation_level);
709 DBMS_SQL.bind_variable (l_cursorid, ':5', p_COUNTER_GRP_LOG_ID);
710 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Return_Status);
711 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Msg_Count);
712 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Data);
713
714 begin
715 l_execute_status := DBMS_SQL.execute (l_cursorid);
716 exception
717 when others then
718 EXECUTE IMMEDIATE l_strLogBuffer;
719 end;
720 DBMS_SQL.close_cursor (l_cursorid);
721 end if;
722
723 EXCEPTION
724 WHEN OTHERS THEN
725 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
726 begin
727 EXECUTE IMMEDIATE l_strLogBuffer;
728 exception
729 when others then
730 null;
731 end;
732 END CAPTURE_CTR_PROP_READING_POST;
733
734 PROCEDURE POST_CAPTURE_CTR_READING_PRE (
735 p_api_version_number IN NUMBER,
736 p_init_msg_list IN VARCHAR2,
737 P_Commit IN VARCHAR2,
738 p_validation_level IN NUMBER,
739 p_COUNTER_GRP_LOG_ID IN NUMBER,
740 p_READING_UPDATED IN VARCHAR2,
741 X_Return_Status OUT NOCOPY VARCHAR2,
742 X_Msg_Count OUT NOCOPY NUMBER,
743 X_Msg_Data OUT NOCOPY VARCHAR2
744 )
745 IS
746 BEGIN
747 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
748 END POST_CAPTURE_CTR_READING_PRE;
749
750 PROCEDURE POST_CAPTURE_CTR_READING_POST (
751 p_api_version_number IN NUMBER,
755 p_COUNTER_GRP_LOG_ID IN NUMBER,
752 p_init_msg_list IN VARCHAR2,
753 P_Commit IN VARCHAR2,
754 p_validation_level IN NUMBER,
756 p_READING_UPDATED IN VARCHAR2,
757 X_Return_Status OUT NOCOPY VARCHAR2,
758 X_Msg_Count OUT NOCOPY NUMBER,
759 X_Msg_Data OUT NOCOPY VARCHAR2
760 )
761 IS
765
762 BEGIN
763 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
764 END POST_CAPTURE_CTR_READING_POST;
766 PROCEDURE UPDATE_CTR_PROP_READING_PRE (
767 p_api_version_number IN NUMBER,
771 p_PROP_RDG_Rec IN CS_CTR_CAPTURE_READING_PUB.PROP_RDG_Rec_Type,
768 p_init_msg_list IN VARCHAR2,
769 p_commit IN VARCHAR2,
770 p_validation_level IN NUMBER,
772 p_COUNTER_GRP_LOG_ID IN NUMBER,
773 p_object_version_number IN NUMBER,
774 X_Return_Status OUT NOCOPY VARCHAR2,
775 X_Msg_Count OUT NOCOPY NUMBER,
776 X_Msg_Data OUT NOCOPY VARCHAR2
777 )
778 IS
779 BEGIN
780 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
781 END UPDATE_CTR_PROP_READING_PRE;
782
783 PROCEDURE UPDATE_CTR_PROP_READING_POST (
784 p_api_version_number IN NUMBER,
785 p_init_msg_list IN VARCHAR2,
786 p_commit IN VARCHAR2,
787 p_validation_level IN NUMBER,
788 p_PROP_RDG_Rec IN CS_CTR_CAPTURE_READING_PUB.PROP_RDG_Rec_Type,
789 p_COUNTER_GRP_LOG_ID IN NUMBER,
790 p_object_version_number IN NUMBER,
791 X_Return_Status OUT NOCOPY VARCHAR2,
792 X_Msg_Count OUT NOCOPY NUMBER,
793 X_Msg_Data OUT NOCOPY VARCHAR2
794 )
795 IS
796 BEGIN
797 X_Return_Status := FND_API.G_RET_STS_SUCCESS;
798 END UPDATE_CTR_PROP_READING_POST;
799
800 End CS_CTR_CAPTURE_READING_VUHK;