[Home] [Help]
PACKAGE BODY: APPS.CS_COUNTERS_VUHK
Source
1 PACKAGE BODY CS_COUNTERS_VUHK AS
2 /* $Header: jtmcntrb.pls 120.2 2005/08/24 02:08:51 saradhak noship $*/
3 PROCEDURE CREATE_CTR_GRP_TEMPLATE_PRE(
4 P_Api_Version IN NUMBER,
5 P_Init_Msg_List IN VARCHAR2,
6 P_Commit IN VARCHAR2,
7 X_Return_Status OUT NOCOPY VARCHAR2,
8 X_Msg_Count OUT NOCOPY NUMBER,
9 X_Msg_Data OUT NOCOPY VARCHAR2,
10 p_ctr_grp_rec IN CS_COUNTERS_PUB.CtrGrp_Rec_Type,
11 x_ctr_grp_id IN NUMBER,
12 x_object_version_number OUT NOCOPY NUMBER
13 ) IS
14 BEGIN
15 x_return_status := FND_API.G_RET_STS_SUCCESS;
16 EXCEPTION WHEN OTHERS THEN
17 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18 END;
19
20 PROCEDURE CREATE_CTR_GRP_TEMPLATE_POST(
21 P_Api_Version IN NUMBER,
22 P_Init_Msg_List IN VARCHAR2,
23 P_Commit IN VARCHAR2,
24 X_Return_Status OUT NOCOPY VARCHAR2,
25 X_Msg_Count OUT NOCOPY NUMBER,
26 X_Msg_Data OUT NOCOPY VARCHAR2,
27 p_ctr_grp_rec IN CS_COUNTERS_PUB.CtrGrp_Rec_Type,
28 x_ctr_grp_id IN NUMBER,
29 x_object_version_number OUT NOCOPY NUMBER
30 ) IS
31 BEGIN
32 x_return_status := FND_API.G_RET_STS_SUCCESS;
33 EXCEPTION WHEN OTHERS THEN
34 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
35 END;
36 PROCEDURE CREATE_CTR_GRP_INSTANCE_PRE(
37 P_Api_Version IN NUMBER,
38 P_Init_Msg_List IN VARCHAR2,
39 P_Commit IN VARCHAR2,
40 X_Return_Status OUT NOCOPY VARCHAR2,
41 X_Msg_Count OUT NOCOPY NUMBER,
42 X_Msg_Data OUT NOCOPY VARCHAR2,
43 p_ctr_grp_rec IN CS_COUNTERS_PUB.CtrGrp_Rec_Type,
44 p_source_object_cd IN VARCHAR2,
45 p_source_object_id IN NUMBER,
46 x_ctr_grp_id IN NUMBER,
47 x_object_version_number OUT NOCOPY NUMBER
48 ) IS
49 BEGIN
50 x_return_status := FND_API.G_RET_STS_SUCCESS;
51 EXCEPTION WHEN OTHERS THEN
52 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
53 END;
54 PROCEDURE CREATE_CTR_GRP_INSTANCE_POST(
55 P_Api_Version IN NUMBER,
56 P_Init_Msg_List IN VARCHAR2,
57 P_Commit IN VARCHAR2,
58 X_Return_Status OUT NOCOPY VARCHAR2,
59 X_Msg_Count OUT NOCOPY NUMBER,
60 X_Msg_Data OUT NOCOPY VARCHAR2,
61 p_ctr_grp_rec IN CS_COUNTERS_PUB.CtrGrp_Rec_Type,
62 p_source_object_cd IN VARCHAR2,
63 p_source_object_id IN NUMBER,
64 x_ctr_grp_id IN NUMBER,
65 x_object_version_number OUT NOCOPY NUMBER
66 ) IS
67 l_JTM_enable_prof_value varchar2(255);
68 l_cursorid INTEGER;
69 l_execute_status INTEGER;
70 l_strBuffer VARCHAR2(2000);
71 l_strLogBuffer VARCHAR2(2000);
72
73 BEGIN
74 l_strLogBuffer := ' begin ' ||
75 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
76 ' ''CREATE_CTR_GRP_INSTANCE_POST'', ' ||
77 ' ''CS_COUNTERS_VUHK'', ' ||
78 ' ''Error:'' || SQLERRM ' || ',' ||
79 ' 1,' ||
80 ' ''jtm:CS_COUNTERS_VUHK.CREATE_CTR_GRP_INSTANCE_POST''); ' ||
81 ' exception ' ||
82 ' when others then null;' ||
83 ' end; ';
84 x_return_status := FND_API.G_RET_STS_SUCCESS;
85 begin
86 EXECUTE IMMEDIATE
87 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
88 ' ''CREATE_CTR_GRP_INSTANCE_POST'', ' ||
89 ' ''CS_COUNTERS_VUHK'', ' ||
90 ' ''The procedure is called.'', ' ||
91 ' 4,' ||
92 ' ''jtm:CS_COUNTERS_VUHK.CREATE_CTR_GRP_INSTANCE_POST''); ' ||
93 ' end; ';
94 exception
95 when others then
96 null;
97 end;
98
99 /* check if JTM is installed */
100 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
101 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
102
103 if (l_JTM_enable_prof_value = 'Y') then
104 l_cursorid := DBMS_SQL.open_cursor;
105 l_strBuffer :=
106 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'CREATE_CTR_GRP_INSTANCE_POST' ||
107 '(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10); ' ||
108 ' exception ' ||
109 ' when others then ' ||
110 l_strLogBuffer ||
111 ' end; ';
112 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
113 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
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', X_Return_Status);
117 DBMS_SQL.bind_variable (l_cursorid, ':5', X_Msg_Count);
118 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Msg_Data);
119 DBMS_SQL.bind_variable (l_cursorid, ':7', p_source_object_cd);
120 DBMS_SQL.bind_variable (l_cursorid, ':8', p_source_object_id);
121 DBMS_SQL.bind_variable (l_cursorid, ':9', x_ctr_grp_id );
122 DBMS_SQL.bind_variable (l_cursorid, ':10', x_object_version_number);
123
124 begin
125 l_execute_status := DBMS_SQL.execute (l_cursorid);
126 exception
127 when others then
128 EXECUTE IMMEDIATE l_strLogBuffer;
129 end;
130 DBMS_SQL.close_cursor (l_cursorid);
131
132 end if;
133 EXCEPTION
134 WHEN OTHERS THEN
135 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136 begin
137 EXECUTE IMMEDIATE l_strLogBuffer;
138 exception
139 when others then
140 null;
141 end;
142 END;
143
144 PROCEDURE CREATE_COUNTER_PRE(
145 P_Api_Version IN NUMBER,
146 P_Init_Msg_List IN VARCHAR2,
147 P_Commit IN VARCHAR2,
148 X_Return_Status OUT NOCOPY VARCHAR2,
149 X_Msg_Count OUT NOCOPY NUMBER,
150 X_Msg_Data OUT NOCOPY VARCHAR2,
151 p_ctr_rec IN CS_COUNTERS_PUB.Ctr_Rec_Type,
152 x_ctr_id IN NUMBER,
153 x_object_version_number OUT NOCOPY NUMBER
154 ) IS
155 BEGIN
156 x_return_status := FND_API.G_RET_STS_SUCCESS;
157 EXCEPTION WHEN OTHERS THEN
158 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
159 END;
160 PROCEDURE CREATE_COUNTER_POST(
161 P_Api_Version IN NUMBER,
162 P_Init_Msg_List IN VARCHAR2,
163 P_Commit IN VARCHAR2,
164 X_Return_Status OUT NOCOPY VARCHAR2,
165 X_Msg_Count OUT NOCOPY NUMBER,
166 X_Msg_Data OUT NOCOPY VARCHAR2,
167 p_ctr_rec IN CS_COUNTERS_PUB.Ctr_Rec_Type,
168 x_ctr_id IN NUMBER,
169 x_object_version_number OUT NOCOPY NUMBER
170 ) IS
171 l_JTM_enable_prof_value varchar2(255);
172 l_cursorid INTEGER;
173 l_execute_status INTEGER;
174 l_strBuffer VARCHAR2(2000);
175 l_strLogBuffer VARCHAR2(2000);
176 BEGIN
177 l_strLogBuffer := ' begin ' ||
178 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
179 ' ''CREATE_COUNTER_POST'', ' ||
180 ' ''CS_COUNTERS_VUHK'', ' ||
181 ' ''Error:'' || SQLERRM ' || ',' ||
182 ' 1,' ||
183 ' ''jtm:CS_COUNTERS_VUHK.CREATE_COUNTER_POST''); ' ||
184 ' exception ' ||
185 ' when others then null;' ||
186 ' end; ';
187 x_return_status := FND_API.G_RET_STS_SUCCESS;
188
189 begin
190 EXECUTE IMMEDIATE
191 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
192 ' ''CREATE_COUNTER_POST'', ' ||
193 ' ''CS_COUNTERS_VUHK'', ' ||
194 ' ''The procedure is called.'', ' ||
195 ' 4,' ||
196 ' ''jtm:CS_COUNTERS_VUHK.CREATE_COUNTER_POST''); ' ||
197 ' end; ';
198 exception
199 when others then
200 null;
201 end;
202
203 /* check if JTM is installed */
204 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
205 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
206
207 if (l_JTM_enable_prof_value = 'Y') then
208 l_cursorid := DBMS_SQL.open_cursor;
209 l_strBuffer :=
210 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'CREATE_COUNTER_POST' ||
211 '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
212 ' exception ' ||
213 ' when others then ' ||
214 l_strLogBuffer ||
215 ' end; ';
216 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
217 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
218 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
219 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
220 DBMS_SQL.bind_variable (l_cursorid, ':4', X_Return_Status);
221 DBMS_SQL.bind_variable (l_cursorid, ':5', X_Msg_Count);
222 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Msg_Data);
223 DBMS_SQL.bind_variable (l_cursorid, ':7', x_ctr_id );
224 DBMS_SQL.bind_variable (l_cursorid, ':8', x_object_version_number);
225
226 begin
227 l_execute_status := DBMS_SQL.execute (l_cursorid);
228 exception
229 when others then
230 EXECUTE IMMEDIATE l_strLogBuffer;
231 end;
232 DBMS_SQL.close_cursor (l_cursorid);
233
234 end if;
235 EXCEPTION
236 WHEN OTHERS THEN
237 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
238 begin
239 EXECUTE IMMEDIATE l_strLogBuffer;
240 exception
241 when others then
242 null;
243 end;
244 END;
245 PROCEDURE CREATE_CTR_PROP_PRE(
246 P_Api_Version IN NUMBER,
247 P_Init_Msg_List IN VARCHAR2,
248 P_Commit IN VARCHAR2,
249 X_Return_Status OUT NOCOPY VARCHAR2,
250 X_Msg_Count OUT NOCOPY NUMBER,
251 X_Msg_Data OUT NOCOPY VARCHAR2,
252 p_ctr_prop_rec IN CS_COUNTERS_PUB.Ctr_Prop_Rec_Type,
253 x_ctr_prop_id IN NUMBER,
254 x_object_version_number OUT NOCOPY NUMBER
255 ) IS
256 BEGIN
257 x_return_status := FND_API.G_RET_STS_SUCCESS;
258 EXCEPTION WHEN OTHERS THEN
259 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
260 END;
261 PROCEDURE CREATE_CTR_PROP_POST(
262 P_Api_Version IN NUMBER,
263 P_Init_Msg_List IN VARCHAR2,
264 P_Commit IN VARCHAR2,
265 X_Return_Status OUT NOCOPY VARCHAR2,
266 X_Msg_Count OUT NOCOPY NUMBER,
267 X_Msg_Data OUT NOCOPY VARCHAR2,
268 p_ctr_prop_rec IN CS_COUNTERS_PUB.Ctr_Prop_Rec_Type,
269 x_ctr_prop_id IN NUMBER,
270 x_object_version_number OUT NOCOPY NUMBER
271 ) IS
272 l_JTM_enable_prof_value varchar2(255);
273 l_cursorid INTEGER;
274 l_execute_status INTEGER;
275 l_strBuffer VARCHAR2(2000);
276 l_strLogBuffer VARCHAR2(2000);
277 BEGIN
278 l_strLogBuffer := ' begin ' ||
279 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
280 ' ''CREATE_CTR_PROP_POST'', ' ||
281 ' ''CS_COUNTERS_VUHK'', ' ||
282 ' ''Error:'' || SQLERRM ' || ',' ||
283 ' 1,' ||
284 ' ''jtm:CS_COUNTERS_VUHK.CREATE_CTR_PROP_POST''); ' ||
285 ' exception ' ||
286 ' when others then null;' ||
287 ' end; ';
288 x_return_status := FND_API.G_RET_STS_SUCCESS;
289
290 begin
291 EXECUTE IMMEDIATE
292 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
293 ' ''CREATE_CTR_PROP_POST'', ' ||
294 ' ''CS_COUNTERS_VUHK'', ' ||
295 ' ''The procedure is called.'', ' ||
296 ' 4,' ||
297 ' ''jtm:CS_COUNTERS_VUHK.CREATE_CTR_PROP_POST''); ' ||
298 ' end; ';
299 exception
300 when others then
301 null;
302 end;
303
304 /* check if JTM is installed */
305 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
306 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
307
308 if (l_JTM_enable_prof_value = 'Y') then
309 l_cursorid := DBMS_SQL.open_cursor;
310 l_strBuffer :=
311 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'CREATE_CTR_PROP_POST' ||
312 '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
313 ' exception ' ||
314 ' when others then ' ||
315 l_strLogBuffer ||
316 ' end; ';
317 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
318 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
319 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
320 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
321 DBMS_SQL.bind_variable (l_cursorid, ':4', X_Return_Status);
322 DBMS_SQL.bind_variable (l_cursorid, ':5', X_Msg_Count);
323 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Msg_Data);
324 DBMS_SQL.bind_variable (l_cursorid, ':7', x_ctr_prop_id );
325 DBMS_SQL.bind_variable (l_cursorid, ':8', x_object_version_number);
326
327 begin
328 l_execute_status := DBMS_SQL.execute (l_cursorid);
329 exception
330 when others then
331 EXECUTE IMMEDIATE l_strLogBuffer;
332 end;
333 DBMS_SQL.close_cursor (l_cursorid);
334
335 end if;
336 EXCEPTION
337 WHEN OTHERS THEN
338 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339 begin
340 EXECUTE IMMEDIATE l_strLogBuffer;
341 exception
342 when others then
343 null;
344 end;
345 END;
346 PROCEDURE CREATE_FORMULA_REF_PRE(
347 P_Api_Version IN NUMBER,
348 P_Init_Msg_List IN VARCHAR2,
349 P_Commit IN VARCHAR2,
350 X_Return_Status OUT NOCOPY VARCHAR2,
351 X_Msg_Count OUT NOCOPY NUMBER,
352 X_Msg_Data OUT NOCOPY VARCHAR2,
353 p_counter_id IN NUMBER,
354 p_bind_var_name IN VARCHAR2,
355 p_mapped_item_id IN NUMBER,
356 p_mapped_counter_id IN NUMBER,
357 x_ctr_formula_bvar_id IN NUMBER,
358 x_object_version_number OUT NOCOPY NUMBER,
359 p_reading_type IN VARCHAR2
360 ) IS
361 BEGIN
362 x_return_status := FND_API.G_RET_STS_SUCCESS;
363 EXCEPTION WHEN OTHERS THEN
364 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
365 END;
366 PROCEDURE CREATE_FORMULA_REF_POST(
367 P_Api_Version IN NUMBER,
368 P_Init_Msg_List IN VARCHAR2,
369 P_Commit IN VARCHAR2,
370 X_Return_Status OUT NOCOPY VARCHAR2,
371 X_Msg_Count OUT NOCOPY NUMBER,
372 X_Msg_Data OUT NOCOPY VARCHAR2,
373 p_counter_id IN NUMBER,
374 p_bind_var_name IN VARCHAR2,
375 p_mapped_item_id IN NUMBER ,
376 p_mapped_counter_id IN NUMBER,
377 x_ctr_formula_bvar_id IN NUMBER,
378 x_object_version_number OUT NOCOPY NUMBER,
379 p_reading_type IN VARCHAR2
380 ) IS
381 BEGIN
385 END;
382 x_return_status := FND_API.G_RET_STS_SUCCESS;
383 EXCEPTION WHEN OTHERS THEN
384 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
386 PROCEDURE CREATE_GRPOP_FILTER_PRE(
387 P_Api_Version IN NUMBER,
388 P_Init_Msg_List IN VARCHAR2,
389 P_Commit IN VARCHAR2,
390 X_Return_Status OUT NOCOPY VARCHAR2,
391 X_Msg_Count OUT NOCOPY NUMBER,
392 X_Msg_Data OUT NOCOPY VARCHAR2,
393 p_seq_no IN NUMBER,
394 p_counter_id IN NUMBER,
395 p_left_paren IN VARCHAR2,
396 p_ctr_prop_id IN NUMBER,
397 p_rel_op IN VARCHAR2,
398 p_right_val IN VARCHAR2,
399 p_right_paren IN VARCHAR2,
400 p_log_op IN VARCHAR2,
401 x_ctr_der_filter_id IN NUMBER,
402 x_object_version_number OUT NOCOPY NUMBER
403 ) IS
404 BEGIN
405 x_return_status := FND_API.G_RET_STS_SUCCESS;
406 EXCEPTION WHEN OTHERS THEN
407 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
408 END;
409 PROCEDURE CREATE_GRPOP_FILTER_POST(
410 P_Api_Version IN NUMBER,
411 P_Init_Msg_List IN VARCHAR2,
412 P_Commit IN VARCHAR2,
413 X_Return_Status OUT NOCOPY VARCHAR2,
414 X_Msg_Count OUT NOCOPY NUMBER,
415 X_Msg_Data OUT NOCOPY VARCHAR2,
416 p_seq_no IN NUMBER,
417 p_counter_id IN NUMBER,
418 p_left_paren IN VARCHAR2,
419 p_ctr_prop_id IN NUMBER,
420 p_rel_op IN VARCHAR2,
421 p_right_val IN VARCHAR2,
422 p_right_paren IN VARCHAR2,
423 p_log_op IN VARCHAR2,
424 x_ctr_der_filter_id IN NUMBER,
425 x_object_version_number OUT NOCOPY NUMBER
426 ) IS
427 BEGIN
428 x_return_status := FND_API.G_RET_STS_SUCCESS;
429 EXCEPTION WHEN OTHERS THEN
430 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431 END;
432 PROCEDURE CREATE_CTR_ASSOCIATION_PRE(
433 P_Api_Version IN NUMBER,
434 P_Init_Msg_List IN VARCHAR2,
435 P_Commit IN VARCHAR2,
436 X_Return_Status OUT NOCOPY VARCHAR2,
437 X_Msg_Count OUT NOCOPY NUMBER,
438 X_Msg_Data OUT NOCOPY VARCHAR2,
439 p_ctr_grp_id IN NUMBER,
440 p_source_object_id IN NUMBER,
441 x_ctr_association_id IN NUMBER,
442 x_object_version_number OUT NOCOPY NUMBER
443 ) IS
444 BEGIN
445 x_return_status := FND_API.G_RET_STS_SUCCESS;
446 EXCEPTION WHEN OTHERS THEN
447 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
448 END;
449 PROCEDURE CREATE_CTR_ASSOCIATION_POST(
450 P_Api_Version IN NUMBER,
451 P_Init_Msg_List IN VARCHAR2,
452 P_Commit IN VARCHAR2,
453 X_Return_Status OUT NOCOPY VARCHAR2,
454 X_Msg_Count OUT NOCOPY NUMBER,
455 X_Msg_Data OUT NOCOPY VARCHAR2,
456 p_ctr_grp_id IN NUMBER,
457 p_source_object_id IN NUMBER,
458 x_ctr_association_id IN NUMBER,
459 x_object_version_number OUT NOCOPY NUMBER
460 ) IS
461 BEGIN
462 x_return_status := FND_API.G_RET_STS_SUCCESS;
463 EXCEPTION WHEN OTHERS THEN
464 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
465 END;
466 PROCEDURE AUTOINSTANTIATE_COUNTERS_PRE(
467 P_Api_Version IN NUMBER,
468 P_Init_Msg_List IN VARCHAR2,
469 P_Commit IN VARCHAR2,
470 X_Return_Status OUT NOCOPY VARCHAR2,
471 X_Msg_Count OUT NOCOPY NUMBER,
472 X_Msg_Data OUT NOCOPY VARCHAR2,
473 p_source_object_id_template IN NUMBER,
474 p_source_object_id_instance IN NUMBER,
475 x_ctr_grp_id_template IN NUMBER,
476 x_ctr_grp_id_instance IN NUMBER
477 ) IS
478 BEGIN
479 x_return_status := FND_API.G_RET_STS_SUCCESS;
480 EXCEPTION WHEN OTHERS THEN
481 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
482 END;
483 PROCEDURE AUTOINSTANTIATE_COUNTERS_POST(
484 P_Api_Version IN NUMBER,
485 P_Init_Msg_List IN VARCHAR2,
486 P_Commit IN VARCHAR2,
487 X_Return_Status OUT NOCOPY VARCHAR2,
488 X_Msg_Count OUT NOCOPY NUMBER,
489 X_Msg_Data OUT NOCOPY VARCHAR2,
490 p_source_object_id_template IN NUMBER,
491 p_source_object_id_instance IN NUMBER,
492 x_ctr_grp_id_template IN NUMBER,
493 x_ctr_grp_id_instance IN NUMBER
494 ) IS
495 BEGIN
496 x_return_status := FND_API.G_RET_STS_SUCCESS;
497 EXCEPTION WHEN OTHERS THEN
498 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
499 END;
500 PROCEDURE INSTANTIATE_COUNTERS_PRE(
501 P_Api_Version IN NUMBER,
502 P_Init_Msg_List IN VARCHAR2,
503 P_Commit IN VARCHAR2,
504 X_Return_Status OUT NOCOPY VARCHAR2,
505 X_Msg_Count OUT NOCOPY NUMBER,
506 X_Msg_Data OUT NOCOPY VARCHAR2,
507 p_counter_group_id_template IN NUMBER,
508 p_source_object_code_instance IN VARCHAR2,
509 p_source_object_id_instance IN NUMBER,
510 x_ctr_grp_id_template IN NUMBER,
511 x_ctr_grp_id_instance IN NUMBER
515 EXCEPTION WHEN OTHERS THEN
512 ) IS
513 BEGIN
514 x_return_status := FND_API.G_RET_STS_SUCCESS;
516 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
517 END;
518 PROCEDURE INSTANTIATE_COUNTERS_POST(
519 P_Api_Version IN NUMBER,
520 P_Init_Msg_List IN VARCHAR2,
521 P_Commit IN VARCHAR2,
522 X_Return_Status OUT NOCOPY VARCHAR2,
523 X_Msg_Count OUT NOCOPY NUMBER,
524 X_Msg_Data OUT NOCOPY VARCHAR2,
525 p_counter_group_id_template IN NUMBER,
526 p_source_object_code_instance IN VARCHAR2,
527 p_source_object_id_instance IN NUMBER,
528 x_ctr_grp_id_template IN NUMBER,
529 x_ctr_grp_id_instance IN NUMBER
530 ) IS
531 l_JTM_enable_prof_value varchar2(255);
532 l_cursorid INTEGER;
533 l_execute_status INTEGER;
534 l_strBuffer VARCHAR2(2000);
535 l_strLogBuffer VARCHAR2(2000);
536 BEGIN
537 l_strLogBuffer := ' begin ' ||
538 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
539 ' ''INSTANTIATE_COUNTERS_POST'', ' ||
540 ' ''CS_COUNTERS_VUHK'', ' ||
541 ' ''Error:'' || SQLERRM ' || ',' ||
542 ' 1,' ||
543 ' ''jtm:CS_COUNTERS_VUHK.INSTANTIATE_COUNTERS_POST''); ' ||
544 ' exception ' ||
545 ' when others then null;' ||
546 ' end; ';
547 x_return_status := FND_API.G_RET_STS_SUCCESS;
548
549 begin
550 EXECUTE IMMEDIATE
551 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
552 ' ''INSTANTIATE_COUNTERS_POST'', ' ||
553 ' ''CS_COUNTERS_VUHK'', ' ||
554 ' ''The procedure is called.'', ' ||
555 ' 4,' ||
556 ' ''jtm:CS_COUNTERS_VUHK.INSTANTIATE_COUNTERS_POST''); ' ||
557 ' end; ';
558 exception
559 when others then
560 null;
561 end;
562 /* check if JTM is installed */
563 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
564 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
565
566 if (l_JTM_enable_prof_value = 'Y') then
567 l_cursorid := DBMS_SQL.open_cursor;
568 l_strBuffer :=
569 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'INSTANTIATE_COUNTERS_POST' ||
570 '(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10,:11); ' ||
571 ' exception ' ||
572 ' when others then ' ||
573 l_strLogBuffer ||
574 ' end; ';
575 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
576 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
577 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
578 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
579 DBMS_SQL.bind_variable (l_cursorid, ':4', X_Return_Status);
580 DBMS_SQL.bind_variable (l_cursorid, ':5', X_Msg_Count);
581 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Msg_Data);
582 DBMS_SQL.bind_variable (l_cursorid, ':7', p_counter_group_id_template );
583 DBMS_SQL.bind_variable (l_cursorid, ':8', p_source_object_code_instance);
584 DBMS_SQL.bind_variable (l_cursorid, ':9', p_source_object_id_instance);
585 DBMS_SQL.bind_variable (l_cursorid, ':10', x_ctr_grp_id_template);
586 DBMS_SQL.bind_variable (l_cursorid, ':11', x_ctr_grp_id_instance);
587
588 begin
589 l_execute_status := DBMS_SQL.execute (l_cursorid);
590 exception
591 when others then
592 EXECUTE IMMEDIATE l_strLogBuffer;
593 end;
594 DBMS_SQL.close_cursor (l_cursorid);
595
596 end if;
597 EXCEPTION
598 WHEN OTHERS THEN
599 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
600 begin
601 EXECUTE IMMEDIATE l_strLogBuffer;
602 exception
603 when others then
604 null;
605 end;
606 END;
607
608 PROCEDURE UPDATE_CTR_GRP_PRE(
609 P_Api_Version IN NUMBER,
610 P_Init_Msg_List IN VARCHAR2,
611 P_Commit IN VARCHAR2,
612 X_Return_Status OUT NOCOPY VARCHAR2,
613 X_Msg_Count OUT NOCOPY NUMBER,
614 X_Msg_Data OUT NOCOPY VARCHAR2,
615 p_ctr_grp_id IN NUMBER,
616 p_object_version_number IN NUMBER,
617 p_ctr_grp_rec IN CS_COUNTERS_PUB.CtrGrp_Rec_Type,
618 p_cascade_upd_to_instances IN VARCHAR2,
619 x_object_version_number OUT NOCOPY NUMBER
620 ) IS
621 l_JTM_enable_prof_value varchar2(255);
622 l_cursorid INTEGER;
623 l_execute_status INTEGER;
624 l_strBuffer VARCHAR2(2000);
625 l_strLogBuffer VARCHAR2(2000);
626 BEGIN
627 l_strLogBuffer := ' begin ' ||
628 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
629 ' ''UPDATE_CTR_GRP_PRE'', ' ||
630 ' ''CS_COUNTERS_VUHK'', ' ||
631 ' ''Error:'' || SQLERRM ' || ',' ||
632 ' 1,' ||
633 ' ''jtm:CS_COUNTERS_VUHK.UPDATE_CTR_GRP_PRE''); ' ||
634 ' exception ' ||
635 ' when others then null;' ||
636 ' end; ';
637 x_return_status := FND_API.G_RET_STS_SUCCESS;
638
639 begin
640 EXECUTE IMMEDIATE
641 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
642 ' ''UPDATE_CTR_GRP_PRE'', ' ||
643 ' ''CS_COUNTERS_VUHK'', ' ||
644 ' ''The procedure is called.'', ' ||
645 ' 4,' ||
646 ' ''jtm:CS_COUNTERS_VUHK.UPDATE_CTR_GRP_PRE''); ' ||
647 ' end; ';
648 exception
649 when others then
650 null;
651 end;
655
652 /* check if JTM is installed */
653 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
654 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
656 if (l_JTM_enable_prof_value = 'Y') then
657 l_cursorid := DBMS_SQL.open_cursor;
658 l_strBuffer :=
659 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'UPDATE_CTR_GRP_PRE' ||
660 '(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10); ' ||
661 ' exception ' ||
662 ' when others then ' ||
663 l_strLogBuffer ||
664 ' end; ';
665 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
666 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
667 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
668 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
669 DBMS_SQL.bind_variable (l_cursorid, ':4', X_Return_Status);
670 DBMS_SQL.bind_variable (l_cursorid, ':5', X_Msg_Count);
671 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Msg_Data);
672 DBMS_SQL.bind_variable (l_cursorid, ':7', p_ctr_grp_id );
673 DBMS_SQL.bind_variable (l_cursorid, ':8', p_object_version_number);
674 DBMS_SQL.bind_variable (l_cursorid, ':9', p_cascade_upd_to_instances);
675 DBMS_SQL.bind_variable (l_cursorid, ':10', x_object_version_number);
676
677 begin
678 l_execute_status := DBMS_SQL.execute (l_cursorid);
679 exception
680 when others then
681 EXECUTE IMMEDIATE l_strLogBuffer;
682 end;
683 DBMS_SQL.close_cursor (l_cursorid);
684
685 end if;
686 EXCEPTION
687 WHEN OTHERS THEN
688 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
689 begin
690 EXECUTE IMMEDIATE l_strLogBuffer;
691 exception
692 when others then
693 null;
694 end;
695 END;
696
697 PROCEDURE UPDATE_CTR_GRP_POST(
698 P_Api_Version IN NUMBER,
699 P_Init_Msg_List IN VARCHAR2,
700 P_Commit IN VARCHAR2,
701 X_Return_Status OUT NOCOPY VARCHAR2,
702 X_Msg_Count OUT NOCOPY NUMBER,
703 X_Msg_Data OUT NOCOPY VARCHAR2,
704 p_ctr_grp_id IN NUMBER,
705 p_object_version_number IN NUMBER,
706 p_ctr_grp_rec IN CS_COUNTERS_PUB.CtrGrp_Rec_Type,
707 p_cascade_upd_to_instances IN VARCHAR2,
708 x_object_version_number OUT NOCOPY NUMBER
709 ) IS
710 l_JTM_enable_prof_value varchar2(255);
711 l_cursorid INTEGER;
712 l_execute_status INTEGER;
713 l_strBuffer VARCHAR2(2000);
714 l_strLogBuffer VARCHAR2(2000);
715 BEGIN
716 l_strLogBuffer := ' begin ' ||
717 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
718 ' ''UPDATE_CTR_GRP_POST'', ' ||
719 ' ''CS_COUNTERS_VUHK'', ' ||
720 ' ''Error:'' || SQLERRM ' || ',' ||
721 ' 1,' ||
722 ' ''jtm:CS_COUNTERS_VUHK.UPDATE_CTR_GRP_POST''); ' ||
723 ' exception ' ||
724 ' when others then null;' ||
725 ' end; ';
726 x_return_status := FND_API.G_RET_STS_SUCCESS;
727
728 begin
729 EXECUTE IMMEDIATE
730 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
731 ' ''UPDATE_CTR_GRP_POST'', ' ||
732 ' ''CS_COUNTERS_VUHK'', ' ||
733 ' ''The procedure is called.'', ' ||
734 ' 4,' ||
735 ' ''jtm:CS_COUNTERS_VUHK.UPDATE_CTR_GRP_POST''); ' ||
736 ' end; ';
737 exception
738 when others then
739 null;
740 end;
741 /* check if JTM is installed */
742 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
743 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
744
745 if (l_JTM_enable_prof_value = 'Y') then
746 l_cursorid := DBMS_SQL.open_cursor;
747 l_strBuffer :=
748 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'UPDATE_CTR_GRP_POST' ||
749 '(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10); ' ||
750 ' exception ' ||
751 ' when others then ' ||
752 l_strLogBuffer ||
753 ' end; ';
754 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
755 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
756 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
757 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
758 DBMS_SQL.bind_variable (l_cursorid, ':4', X_Return_Status);
759 DBMS_SQL.bind_variable (l_cursorid, ':5', X_Msg_Count);
760 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Msg_Data);
761 DBMS_SQL.bind_variable (l_cursorid, ':7', p_ctr_grp_id );
762 DBMS_SQL.bind_variable (l_cursorid, ':8', p_object_version_number);
763 DBMS_SQL.bind_variable (l_cursorid, ':9', p_cascade_upd_to_instances);
764 DBMS_SQL.bind_variable (l_cursorid, ':10', x_object_version_number);
765
766 begin
767 l_execute_status := DBMS_SQL.execute (l_cursorid);
768 exception
769 when others then
770 EXECUTE IMMEDIATE l_strLogBuffer;
771 end;
772 DBMS_SQL.close_cursor (l_cursorid);
773
774 end if;
775 EXCEPTION
776 WHEN OTHERS THEN
777 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
778 begin
779 EXECUTE IMMEDIATE l_strLogBuffer;
780 exception
781 when others then
782 null;
783 end;
784 END;
785
786 PROCEDURE UPDATE_COUNTER_PRE(
787 P_Api_Version IN NUMBER,
788 P_Init_Msg_List IN VARCHAR2,
792 X_Msg_Data OUT NOCOPY VARCHAR2,
789 P_Commit IN VARCHAR2,
790 X_Return_Status OUT NOCOPY VARCHAR2,
791 X_Msg_Count OUT NOCOPY NUMBER,
793 p_ctr_id IN NUMBER,
794 p_object_version_number IN NUMBER,
795 p_ctr_rec IN CS_COUNTERS_PUB.Ctr_Rec_Type,
796 p_cascade_upd_to_instances IN VARCHAR2,
797 x_object_version_number OUT NOCOPY NUMBER
798 ) IS
799 l_JTM_enable_prof_value varchar2(255);
800 l_cursorid INTEGER;
801 l_execute_status INTEGER;
802 l_strBuffer VARCHAR2(2000);
803 l_strLogBuffer VARCHAR2(2000);
804 BEGIN
805 l_strLogBuffer := ' begin ' ||
806 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
807 ' ''UPDATE_COUNTER_PRE'', ' ||
808 ' ''CS_COUNTERS_VUHK'', ' ||
809 ' ''Error:'' || SQLERRM ' || ',' ||
810 ' 1,' ||
811 ' ''jtm:CS_COUNTERS_VUHK.UPDATE_COUNTER_PRE''); ' ||
812 ' exception ' ||
813 ' when others then null;' ||
814 ' end; ';
815 x_return_status := FND_API.G_RET_STS_SUCCESS;
816
817 begin
818 EXECUTE IMMEDIATE
819 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
820 ' ''UPDATE_COUNTER_PRE'', ' ||
821 ' ''CS_COUNTERS_VUHK'', ' ||
822 ' ''The procedure is called.'', ' ||
823 ' 4,' ||
824 ' ''jtm:CS_COUNTERS_VUHK.UPDATE_COUNTER_PRE''); ' ||
825 ' end; ';
826 exception
827 when others then
828 null;
829 end;
830 /* check if JTM is installed */
831 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
832 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
833
834 if (l_JTM_enable_prof_value = 'Y') then
835 l_cursorid := DBMS_SQL.open_cursor;
836 l_strBuffer :=
837 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'UPDATE_COUNTER_PRE' ||
838 '(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10); ' ||
839 ' exception ' ||
840 ' when others then ' ||
841 l_strLogBuffer ||
842 ' end; ';
843 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
844 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
845 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
846 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
847 DBMS_SQL.bind_variable (l_cursorid, ':4', X_Return_Status);
848 DBMS_SQL.bind_variable (l_cursorid, ':5', X_Msg_Count);
849 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Msg_Data);
850 DBMS_SQL.bind_variable (l_cursorid, ':7', p_ctr_id );
851 DBMS_SQL.bind_variable (l_cursorid, ':8', p_object_version_number);
852 DBMS_SQL.bind_variable (l_cursorid, ':9', p_cascade_upd_to_instances);
853 DBMS_SQL.bind_variable (l_cursorid, ':10', x_object_version_number);
854
855 begin
856 l_execute_status := DBMS_SQL.execute (l_cursorid);
857 exception
858 when others then
859 EXECUTE IMMEDIATE l_strLogBuffer;
860 end;
861 DBMS_SQL.close_cursor (l_cursorid);
862
863 end if;
864 EXCEPTION
865 WHEN OTHERS THEN
866 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
867 begin
868 EXECUTE IMMEDIATE l_strLogBuffer;
869 exception
870 when others then
871 null;
872 end;
873 END;
874
875 PROCEDURE UPDATE_COUNTER_POST(
876 P_Api_Version IN NUMBER,
877 P_Init_Msg_List IN VARCHAR2,
878 P_Commit IN VARCHAR2,
879 X_Return_Status OUT NOCOPY VARCHAR2,
880 X_Msg_Count OUT NOCOPY NUMBER,
881 X_Msg_Data OUT NOCOPY VARCHAR2,
882 p_ctr_id IN NUMBER,
883 p_object_version_number IN NUMBER,
884 p_ctr_rec IN CS_COUNTERS_PUB.Ctr_Rec_Type,
885 p_cascade_upd_to_instances IN VARCHAR2,
886 x_object_version_number OUT NOCOPY NUMBER
887 ) IS
888 l_JTM_enable_prof_value varchar2(255);
889 l_cursorid INTEGER;
890 l_execute_status INTEGER;
891 l_strBuffer VARCHAR2(2000);
892 l_strLogBuffer VARCHAR2(2000);
893 BEGIN
894 l_strLogBuffer := ' begin ' ||
895 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
896 ' ''UPDATE_COUNTER_POST'', ' ||
897 ' ''CS_COUNTERS_VUHK'', ' ||
898 ' ''Error:'' || SQLERRM ' || ',' ||
899 ' 1,' ||
900 ' ''jtm:CS_COUNTERS_VUHK.UPDATE_COUNTER_POST''); ' ||
901 ' exception ' ||
902 ' when others then null;' ||
903 ' end; ';
904 x_return_status := FND_API.G_RET_STS_SUCCESS;
905
906 begin
907 EXECUTE IMMEDIATE
908 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
909 ' ''UPDATE_COUNTER_POST'', ' ||
910 ' ''CS_COUNTERS_VUHK'', ' ||
911 ' ''The procedure is called.'', ' ||
912 ' 4,' ||
913 ' ''jtm:CS_COUNTERS_VUHK.UPDATE_COUNTER_POST''); ' ||
914 ' end; ';
915 exception
916 when others then
917 null;
918 end;
919 /* check if JTM is installed */
920 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
921 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
922
923 if (l_JTM_enable_prof_value = 'Y') then
924 l_cursorid := DBMS_SQL.open_cursor;
925 l_strBuffer :=
926 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'UPDATE_COUNTER_POST' ||
927 '(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10); ' ||
928 ' exception ' ||
932 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
929 ' when others then ' ||
930 l_strLogBuffer ||
931 ' end; ';
933 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
934 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
935 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
936 DBMS_SQL.bind_variable (l_cursorid, ':4', X_Return_Status);
937 DBMS_SQL.bind_variable (l_cursorid, ':5', X_Msg_Count);
938 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Msg_Data);
939 DBMS_SQL.bind_variable (l_cursorid, ':7', p_ctr_id );
940 DBMS_SQL.bind_variable (l_cursorid, ':8', p_object_version_number);
941 DBMS_SQL.bind_variable (l_cursorid, ':9', p_cascade_upd_to_instances);
942 DBMS_SQL.bind_variable (l_cursorid, ':10', x_object_version_number);
943
944 begin
945 l_execute_status := DBMS_SQL.execute (l_cursorid);
946 exception
947 when others then
948 EXECUTE IMMEDIATE l_strLogBuffer;
949 end;
950 DBMS_SQL.close_cursor (l_cursorid);
951
952 end if;
953 EXCEPTION
954 WHEN OTHERS THEN
955 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
956 begin
957 EXECUTE IMMEDIATE l_strLogBuffer;
958 exception
959 when others then
960 null;
961 end;
962 END;
963
964 PROCEDURE UPDATE_CTR_PROP_PRE(
965 P_Api_Version IN NUMBER,
966 P_Init_Msg_List IN VARCHAR2,
967 P_Commit IN VARCHAR2,
968 X_Return_Status OUT NOCOPY VARCHAR2,
969 X_Msg_Count OUT NOCOPY NUMBER,
970 X_Msg_Data OUT NOCOPY VARCHAR2,
971 p_ctr_prop_id IN NUMBER,
972 p_object_version_number IN NUMBER,
973 p_ctr_prop_rec IN CS_COUNTERS_PUB.Ctr_Prop_Rec_Type,
974 p_cascade_upd_to_instances IN VARCHAR2,
975 x_object_version_number OUT NOCOPY NUMBER
976 ) IS
977 l_JTM_enable_prof_value varchar2(255);
978 l_cursorid INTEGER;
979 l_execute_status INTEGER;
980 l_strBuffer VARCHAR2(2000);
981 l_strLogBuffer VARCHAR2(2000);
982 BEGIN
983 l_strLogBuffer := ' begin ' ||
984 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
985 ' ''UPDATE_CTR_PROP_PRE'', ' ||
986 ' ''CS_COUNTERS_VUHK'', ' ||
987 ' ''Error:'' || SQLERRM ' || ',' ||
988 ' 1,' ||
989 ' ''jtm:CS_COUNTERS_VUHK.UPDATE_CTR_PROP_PRE''); ' ||
990 ' exception ' ||
991 ' when others then null;' ||
992 ' end; ';
993
994 x_return_status := FND_API.G_RET_STS_SUCCESS;
995
996 begin
997 EXECUTE IMMEDIATE
998 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
999 ' ''UPDATE_CTR_PROP_PRE'', ' ||
1000 ' ''CS_COUNTERS_VUHK'', ' ||
1001 ' ''The procedure is called.'', ' ||
1002 ' 4,' ||
1003 ' ''jtm:CS_COUNTERS_VUHK.UPDATE_CTR_PROP_PRE''); ' ||
1004 ' end; ';
1005 exception
1006 when others then
1007 null;
1008 end;
1009 /* check if JTM is installed */
1010 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
1011 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
1012
1013 if (l_JTM_enable_prof_value = 'Y') then
1014 l_cursorid := DBMS_SQL.open_cursor;
1015 l_strBuffer :=
1016 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'UPDATE_CTR_PROP_PRE' ||
1017 '(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10); ' ||
1018 ' exception ' ||
1019 ' when others then ' ||
1020 l_strLogBuffer ||
1021 ' end; ';
1022 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
1023 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
1024 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
1025 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
1026 DBMS_SQL.bind_variable (l_cursorid, ':4', X_Return_Status);
1027 DBMS_SQL.bind_variable (l_cursorid, ':5', X_Msg_Count);
1028 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Msg_Data);
1029 DBMS_SQL.bind_variable (l_cursorid, ':7', p_ctr_prop_id );
1030 DBMS_SQL.bind_variable (l_cursorid, ':8', p_object_version_number);
1031 DBMS_SQL.bind_variable (l_cursorid, ':9', p_cascade_upd_to_instances);
1032 DBMS_SQL.bind_variable (l_cursorid, ':10', x_object_version_number);
1033
1034 begin
1035 l_execute_status := DBMS_SQL.execute (l_cursorid);
1036 exception
1037 when others then
1038 EXECUTE IMMEDIATE l_strLogBuffer;
1039 end;
1040 DBMS_SQL.close_cursor (l_cursorid);
1041
1042 end if;
1043 EXCEPTION
1044 WHEN OTHERS THEN
1045 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1046 begin
1047 EXECUTE IMMEDIATE l_strLogBuffer;
1048 exception
1049 when others then
1050 null;
1051 end;
1052 END;
1053
1054 PROCEDURE UPDATE_CTR_PROP_POST(
1055 P_Api_Version IN NUMBER,
1056 P_Init_Msg_List IN VARCHAR2,
1057 P_Commit IN VARCHAR2,
1058 X_Return_Status OUT NOCOPY VARCHAR2,
1059 X_Msg_Count OUT NOCOPY NUMBER,
1060 X_Msg_Data OUT NOCOPY VARCHAR2,
1061 p_ctr_prop_id IN NUMBER,
1062 p_object_version_number IN NUMBER,
1063 p_ctr_prop_rec IN CS_COUNTERS_PUB.Ctr_Prop_Rec_Type,
1064 p_cascade_upd_to_instances IN VARCHAR2,
1068 l_cursorid INTEGER;
1065 x_object_version_number OUT NOCOPY NUMBER
1066 ) IS
1067 l_JTM_enable_prof_value varchar2(255);
1069 l_execute_status INTEGER;
1070 l_strBuffer VARCHAR2(2000);
1071 l_strLogBuffer VARCHAR2(2000);
1072 BEGIN
1073 l_strLogBuffer := ' begin ' ||
1074 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
1075 ' ''UPDATE_CTR_PROP_POST'', ' ||
1076 ' ''CS_COUNTERS_VUHK'', ' ||
1077 ' ''Error:'' || SQLERRM ' || ',' ||
1078 ' 1,' ||
1079 ' ''jtm:CS_COUNTERS_VUHK.UPDATE_CTR_PROP_POST''); ' ||
1080 ' exception ' ||
1081 ' when others then null;' ||
1082 ' end; ';
1083 x_return_status := FND_API.G_RET_STS_SUCCESS;
1084
1085 begin
1086 EXECUTE IMMEDIATE
1087 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
1088 ' ''UPDATE_CTR_PROP_POST'', ' ||
1089 ' ''CS_COUNTERS_VUHK'', ' ||
1090 ' ''The procedure is called.'', ' ||
1091 ' 4,' ||
1092 ' ''jtm:CS_COUNTERS_VUHK.UPDATE_CTR_PROP_POST''); ' ||
1093 ' end; ';
1094 exception
1095 when others then
1096 null;
1097 end;
1098 /* check if JTM is installed */
1099 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
1100 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
1101
1102 if (l_JTM_enable_prof_value = 'Y') then
1103 l_cursorid := DBMS_SQL.open_cursor;
1104 l_strBuffer :=
1105 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'UPDATE_CTR_PROP_POST' ||
1106 '(:1,:2,:3,:4,:5,:6,:7,:8,:9,:10); ' ||
1107 ' exception ' ||
1108 ' when others then ' ||
1109 l_strLogBuffer ||
1110 ' end; ';
1111 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
1112 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
1113 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
1114 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
1115 DBMS_SQL.bind_variable (l_cursorid, ':4', X_Return_Status);
1116 DBMS_SQL.bind_variable (l_cursorid, ':5', X_Msg_Count);
1117 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Msg_Data);
1118 DBMS_SQL.bind_variable (l_cursorid, ':7', p_ctr_prop_id );
1119 DBMS_SQL.bind_variable (l_cursorid, ':8', p_object_version_number);
1120 DBMS_SQL.bind_variable (l_cursorid, ':9', p_cascade_upd_to_instances);
1121 DBMS_SQL.bind_variable (l_cursorid, ':10', x_object_version_number);
1122
1123 begin
1124 l_execute_status := DBMS_SQL.execute (l_cursorid);
1125 exception
1126 when others then
1127 EXECUTE IMMEDIATE l_strLogBuffer;
1128 end;
1129 DBMS_SQL.close_cursor (l_cursorid);
1130
1131 end if;
1132 EXCEPTION
1133 WHEN OTHERS THEN
1134 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1135 begin
1136 EXECUTE IMMEDIATE l_strLogBuffer;
1137 exception
1138 when others then
1139 null;
1140 end;
1141 END;
1142
1143 PROCEDURE UPDATE_FORMULA_REF_PRE(
1144 P_Api_Version IN NUMBER,
1145 P_Init_Msg_List IN VARCHAR2,
1146 P_Commit IN VARCHAR2,
1147 X_Return_Status OUT NOCOPY VARCHAR2,
1148 X_Msg_Count OUT NOCOPY NUMBER,
1149 X_Msg_Data OUT NOCOPY VARCHAR2,
1150 p_ctr_formula_bvar_id IN NUMBER,
1151 p_object_version_number IN NUMBER,
1152 p_counter_id IN NUMBER,
1153 p_bind_var_name IN VARCHAR2,
1154 p_mapped_item_id IN NUMBER,
1155 p_mapped_counter_id IN NUMBER,
1156 p_cascade_upd_to_instances IN VARCHAR2,
1157 x_object_version_number OUT NOCOPY NUMBER,
1158 p_reading_type IN VARCHAR2
1159 ) IS
1160 BEGIN
1161 x_return_status := FND_API.G_RET_STS_SUCCESS;
1162 EXCEPTION WHEN OTHERS THEN
1163 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1164 END;
1165 PROCEDURE UPDATE_FORMULA_REF_POST(
1166 P_Api_Version IN NUMBER,
1167 P_Init_Msg_List IN VARCHAR2,
1168 P_Commit IN VARCHAR2,
1169 X_Return_Status OUT NOCOPY VARCHAR2,
1170 X_Msg_Count OUT NOCOPY NUMBER,
1171 X_Msg_Data OUT NOCOPY VARCHAR2,
1172 p_ctr_formula_bvar_id IN NUMBER,
1173 p_object_version_number IN NUMBER,
1174 p_counter_id IN NUMBER,
1175 p_bind_var_name IN VARCHAR2,
1176 p_mapped_item_id IN NUMBER,
1177 p_mapped_counter_id IN NUMBER,
1178 p_cascade_upd_to_instances IN VARCHAR2,
1179 x_object_version_number OUT NOCOPY NUMBER,
1180 p_reading_type IN VARCHAR2
1181 ) IS
1182 BEGIN
1183 x_return_status := FND_API.G_RET_STS_SUCCESS;
1184 EXCEPTION WHEN OTHERS THEN
1185 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1186 END;
1187 PROCEDURE UPDATE_GRPOP_FILTER_PRE(
1188 P_Api_Version IN NUMBER,
1189 P_Init_Msg_List IN VARCHAR2,
1190 P_Commit IN VARCHAR2,
1191 X_Return_Status OUT NOCOPY VARCHAR2,
1192 X_Msg_Count OUT NOCOPY NUMBER,
1193 X_Msg_Data OUT NOCOPY VARCHAR2,
1194 p_ctr_der_filter_id IN NUMBER,
1195 p_object_version_number IN NUMBER,
1196 p_seq_no IN NUMBER,
1197 p_counter_id IN NUMBER,
1198 p_left_paren IN VARCHAR2,
1199 p_ctr_prop_id IN NUMBER,
1203 p_log_op IN VARCHAR2,
1200 p_rel_op IN VARCHAR2,
1201 p_right_val IN VARCHAR2,
1202 p_right_paren IN VARCHAR2,
1204 p_cascade_upd_to_instances IN VARCHAR2,
1205 x_object_version_number OUT NOCOPY NUMBER
1206 ) IS
1207 BEGIN
1208 x_return_status := FND_API.G_RET_STS_SUCCESS;
1209 EXCEPTION WHEN OTHERS THEN
1210 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1211 END;
1212 PROCEDURE UPDATE_GRPOP_FILTER_POST(
1213 P_Api_Version IN NUMBER,
1214 P_Init_Msg_List IN VARCHAR2,
1215 P_Commit IN VARCHAR2,
1216 X_Return_Status OUT NOCOPY VARCHAR2,
1217 X_Msg_Count OUT NOCOPY NUMBER,
1218 X_Msg_Data OUT NOCOPY VARCHAR2,
1219 p_ctr_der_filter_id IN NUMBER,
1220 p_object_version_number IN NUMBER,
1221 p_seq_no IN NUMBER,
1222 p_counter_id IN NUMBER,
1223 p_left_paren IN VARCHAR2,
1224 p_ctr_prop_id IN NUMBER,
1225 p_rel_op IN VARCHAR2,
1226 p_right_val IN VARCHAR2,
1227 p_right_paren IN VARCHAR2,
1228 p_log_op IN VARCHAR2,
1229 p_cascade_upd_to_instances IN VARCHAR2,
1230 x_object_version_number OUT NOCOPY NUMBER
1231 ) IS
1232 BEGIN
1233 x_return_status := FND_API.G_RET_STS_SUCCESS;
1234 EXCEPTION WHEN OTHERS THEN
1235 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1236 END;
1237 PROCEDURE UPDATE_CTR_ASSOCIATION_PRE(
1238 P_Api_Version IN NUMBER,
1239 P_Init_Msg_List IN VARCHAR2,
1240 P_Commit IN VARCHAR2,
1241 X_Return_Status OUT NOCOPY VARCHAR2,
1242 X_Msg_Count OUT NOCOPY NUMBER,
1243 X_Msg_Data OUT NOCOPY VARCHAR2,
1244 p_ctr_association_id IN NUMBER,
1245 p_object_version_number IN NUMBER,
1246 p_ctr_grp_id IN NUMBER,
1247 p_source_object_id IN NUMBER,
1248 x_object_version_number OUT NOCOPY NUMBER
1249 ) IS
1250 BEGIN
1251 x_return_status := FND_API.G_RET_STS_SUCCESS;
1252 EXCEPTION WHEN OTHERS THEN
1253 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1254 END;
1255 PROCEDURE UPDATE_CTR_ASSOCIATION_POST(
1256 P_Api_Version IN NUMBER,
1257 P_Init_Msg_List IN VARCHAR2,
1258 P_Commit IN VARCHAR2,
1259 X_Return_Status OUT NOCOPY VARCHAR2,
1260 X_Msg_Count OUT NOCOPY NUMBER,
1261 X_Msg_Data OUT NOCOPY VARCHAR2,
1262 p_ctr_association_id IN NUMBER,
1263 p_object_version_number IN NUMBER,
1264 p_ctr_grp_id IN NUMBER,
1265 p_source_object_id IN NUMBER,
1266 x_object_version_number OUT NOCOPY NUMBER
1267 ) IS
1268 BEGIN
1269 x_return_status := FND_API.G_RET_STS_SUCCESS;
1270 EXCEPTION WHEN OTHERS THEN
1271 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1272 END;
1273 PROCEDURE DELETE_COUNTER_PRE(
1274 P_Api_Version IN NUMBER,
1275 P_Init_Msg_List IN VARCHAR2,
1276 P_Commit IN VARCHAR2,
1277 X_Return_Status OUT NOCOPY VARCHAR2,
1278 X_Msg_Count OUT NOCOPY NUMBER,
1279 X_Msg_Data OUT NOCOPY VARCHAR2,
1280 p_ctr_id IN NUMBER
1281 ) IS
1282 l_JTM_enable_prof_value varchar2(255);
1283 l_cursorid INTEGER;
1284 l_execute_status INTEGER;
1285 l_strBuffer VARCHAR2(2000);
1286 l_strLogBuffer VARCHAR2(2000);
1287 BEGIN
1288 l_strLogBuffer := ' begin ' ||
1289 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
1290 ' ''DELETE_COUNTER_PRE'', ' ||
1291 ' ''CS_COUNTERS_VUHK'', ' ||
1292 ' ''Error:'' || SQLERRM ' || ',' ||
1293 ' 1,' ||
1294 ' ''jtm:CS_COUNTERS_VUHK.DELETE_COUNTER_PRE''); ' ||
1295 ' exception ' ||
1296 ' when others then null;' ||
1297 ' end; ';
1298 x_return_status := FND_API.G_RET_STS_SUCCESS;
1299
1300 begin
1301 EXECUTE IMMEDIATE
1302 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
1303 ' ''DELETE_COUNTER_PRE'', ' ||
1304 ' ''CS_COUNTERS_VUHK'', ' ||
1305 ' ''The procedure is called.'', ' ||
1306 ' 4,' ||
1307 ' ''jtm:CS_COUNTERS_VUHK.DELETE_COUNTER_PRE''); ' ||
1308 ' end; ';
1309 exception
1310 when others then
1311 null;
1312 end;
1313 /* check if JTM is installed */
1314 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
1315 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
1316
1317 if (l_JTM_enable_prof_value = 'Y') then
1318 l_cursorid := DBMS_SQL.open_cursor;
1319 l_strBuffer :=
1320 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'DELETE_COUNTER_PRE' ||
1321 '(:1,:2,:3,:4,:5,:6,:7); ' ||
1322 ' exception ' ||
1323 ' when others then ' ||
1324 l_strLogBuffer ||
1325 ' end; ';
1326 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
1327 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
1328 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
1329 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
1330 DBMS_SQL.bind_variable (l_cursorid, ':4', X_Return_Status);
1331 DBMS_SQL.bind_variable (l_cursorid, ':5', X_Msg_Count);
1332 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Msg_Data);
1336 l_execute_status := DBMS_SQL.execute (l_cursorid);
1333 DBMS_SQL.bind_variable (l_cursorid, ':7', p_ctr_id );
1334
1335 begin
1337 exception
1338 when others then
1339 EXECUTE IMMEDIATE l_strLogBuffer;
1340 end;
1341 DBMS_SQL.close_cursor (l_cursorid);
1342
1343 end if;
1344 EXCEPTION
1345 WHEN OTHERS THEN
1346 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1347 begin
1348 EXECUTE IMMEDIATE l_strLogBuffer;
1349 exception
1350 when others then
1351 null;
1352 end;
1353 END;
1354
1355 PROCEDURE DELETE_COUNTER_POST(
1356 P_Api_Version IN NUMBER,
1357 P_Init_Msg_List IN VARCHAR2,
1358 P_Commit IN VARCHAR2,
1359 X_Return_Status OUT NOCOPY VARCHAR2,
1360 X_Msg_Count OUT NOCOPY NUMBER,
1361 X_Msg_Data OUT NOCOPY VARCHAR2,
1362 p_ctr_id IN NUMBER
1363 ) IS
1364 BEGIN
1365 x_return_status := FND_API.G_RET_STS_SUCCESS;
1366 EXCEPTION WHEN OTHERS THEN
1367 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1368 END;
1369
1370 PROCEDURE DELETE_CTR_PROP_PRE(
1371 P_Api_Version IN NUMBER,
1372 P_Init_Msg_List IN VARCHAR2,
1373 P_Commit IN VARCHAR2,
1374 X_Return_Status OUT NOCOPY VARCHAR2,
1375 X_Msg_Count OUT NOCOPY NUMBER,
1376 X_Msg_Data OUT NOCOPY VARCHAR2,
1377 p_ctr_prop_id IN NUMBER
1378 ) IS
1379 l_JTM_enable_prof_value varchar2(255);
1380 l_cursorid INTEGER;
1381 l_execute_status INTEGER;
1382 l_strBuffer VARCHAR2(2000);
1383 l_strLogBuffer VARCHAR2(2000);
1384 BEGIN
1385 l_strLogBuffer := ' begin ' ||
1386 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
1387 ' ''DELETE_CTR_PROP_PRE'', ' ||
1388 ' ''CS_COUNTERS_VUHK'', ' ||
1389 ' ''Error:'' || SQLERRM ' || ',' ||
1390 ' 1,' ||
1391 ' ''jtm:CS_COUNTERS_VUHK.DELETE_CTR_PROP_PRE''); ' ||
1392 ' exception ' ||
1393 ' when others then null;' ||
1394 ' end; ';
1395 x_return_status := FND_API.G_RET_STS_SUCCESS;
1396
1397 begin
1398 EXECUTE IMMEDIATE
1399 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
1400 ' ''DELETE_CTR_PROP_PRE'', ' ||
1401 ' ''CS_COUNTERS_VUHK'', ' ||
1402 ' ''The procedure is called.'', ' ||
1403 ' 4,' ||
1404 ' ''jtm:CS_COUNTERS_VUHK.DELETE_CTR_PROP_PRE''); ' ||
1405 ' end; ';
1406 exception
1407 when others then
1408 null;
1409 end;
1410 /* check if JTM is installed */
1411 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
1412 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
1413
1414 if (l_JTM_enable_prof_value = 'Y') then
1415 l_cursorid := DBMS_SQL.open_cursor;
1416 l_strBuffer :=
1417 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'DELETE_CTR_PROP_PRE' ||
1418 '(:1,:2,:3,:4,:5,:6,:7); ' ||
1419 ' exception ' ||
1420 ' when others then ' ||
1421 l_strLogBuffer ||
1422 ' end; ';
1423 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
1424 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
1425 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
1426 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
1427 DBMS_SQL.bind_variable (l_cursorid, ':4', X_Return_Status);
1428 DBMS_SQL.bind_variable (l_cursorid, ':5', X_Msg_Count);
1429 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Msg_Data);
1430 DBMS_SQL.bind_variable (l_cursorid, ':7', p_ctr_prop_id );
1431
1432 begin
1433 l_execute_status := DBMS_SQL.execute (l_cursorid);
1434 exception
1435 when others then
1436 EXECUTE IMMEDIATE l_strLogBuffer;
1437 end;
1438 DBMS_SQL.close_cursor (l_cursorid);
1439
1440 end if;
1441 EXCEPTION
1442 WHEN OTHERS THEN
1443 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1444 begin
1445 EXECUTE IMMEDIATE l_strLogBuffer;
1446 exception
1447 when others then
1448 null;
1449 end;
1450 END;
1451
1452 PROCEDURE DELETE_CTR_PROP_POST(
1453 P_Api_Version IN NUMBER,
1454 P_Init_Msg_List IN VARCHAR2,
1455 P_Commit IN VARCHAR2,
1456 X_Return_Status OUT NOCOPY VARCHAR2,
1457 X_Msg_Count OUT NOCOPY NUMBER,
1458 X_Msg_Data OUT NOCOPY VARCHAR2,
1459 p_ctr_prop_id IN NUMBER
1460 ) IS
1461 BEGIN
1462 x_return_status := FND_API.G_RET_STS_SUCCESS;
1463 EXCEPTION WHEN OTHERS THEN
1464 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1465 END;
1466 PROCEDURE DELETE_FORMULA_REF_PRE(
1467 P_Api_Version IN NUMBER,
1468 P_Init_Msg_List IN VARCHAR2,
1469 P_Commit IN VARCHAR2,
1470 X_Return_Status OUT NOCOPY VARCHAR2,
1471 X_Msg_Count OUT NOCOPY NUMBER,
1472 X_Msg_Data OUT NOCOPY VARCHAR2,
1473 p_ctr_formula_bvar_id IN NUMBER
1474 ) IS
1475 BEGIN
1476 x_return_status := FND_API.G_RET_STS_SUCCESS;
1477 EXCEPTION WHEN OTHERS THEN
1478 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1479 END;
1480 PROCEDURE DELETE_FORMULA_REF_POST(
1481 P_Api_Version IN NUMBER,
1485 X_Msg_Count OUT NOCOPY NUMBER,
1482 P_Init_Msg_List IN VARCHAR2,
1483 P_Commit IN VARCHAR2,
1484 X_Return_Status OUT NOCOPY VARCHAR2,
1486 X_Msg_Data OUT NOCOPY VARCHAR2,
1487 p_ctr_formula_bvar_id IN NUMBER
1488 ) IS
1489 BEGIN
1490 x_return_status := FND_API.G_RET_STS_SUCCESS;
1491 EXCEPTION WHEN OTHERS THEN
1492 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1493 END;
1494 PROCEDURE DELETE_GRPOP_FILTER_PRE(
1495 P_Api_Version IN NUMBER,
1496 P_Init_Msg_List IN VARCHAR2,
1497 P_Commit IN VARCHAR2,
1498 X_Return_Status OUT NOCOPY VARCHAR2,
1499 X_Msg_Count OUT NOCOPY NUMBER,
1500 X_Msg_Data OUT NOCOPY VARCHAR2,
1501 p_ctr_der_filter_id IN NUMBER
1502 ) IS
1503 BEGIN
1504 x_return_status := FND_API.G_RET_STS_SUCCESS;
1505 EXCEPTION WHEN OTHERS THEN
1506 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1507 END;
1508 PROCEDURE DELETE_GRPOP_FILTER_POST(
1509 P_Api_Version IN NUMBER,
1510 P_Init_Msg_List IN VARCHAR2,
1511 P_Commit IN VARCHAR2,
1512 X_Return_Status OUT NOCOPY VARCHAR2,
1513 X_Msg_Count OUT NOCOPY NUMBER,
1514 X_Msg_Data OUT NOCOPY VARCHAR2,
1515 p_ctr_der_filter_id IN NUMBER
1516 ) IS
1517 BEGIN
1518 x_return_status := FND_API.G_RET_STS_SUCCESS;
1519 EXCEPTION WHEN OTHERS THEN
1520 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1521 END;
1522 PROCEDURE DELETE_CTR_ASSOCIATION_PRE(
1523 P_Api_Version IN NUMBER,
1524 P_Init_Msg_List IN VARCHAR2,
1525 P_Commit IN VARCHAR2,
1526 X_Return_Status OUT NOCOPY VARCHAR2,
1527 X_Msg_Count OUT NOCOPY NUMBER,
1528 X_Msg_Data OUT NOCOPY VARCHAR2,
1529 p_ctr_association_id IN NUMBER
1530 ) IS
1531 BEGIN
1532 x_return_status := FND_API.G_RET_STS_SUCCESS;
1533 EXCEPTION WHEN OTHERS THEN
1534 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1535 END;
1536 PROCEDURE DELETE_CTR_ASSOCIATION_POST(
1537 P_Api_Version IN NUMBER,
1538 P_Init_Msg_List IN VARCHAR2,
1539 P_Commit IN VARCHAR2,
1540 X_Return_Status OUT NOCOPY VARCHAR2,
1541 X_Msg_Count OUT NOCOPY NUMBER,
1542 X_Msg_Data OUT NOCOPY VARCHAR2,
1543 p_ctr_association_id IN NUMBER
1544 ) IS
1545 BEGIN
1546 x_return_status := FND_API.G_RET_STS_SUCCESS;
1547 EXCEPTION WHEN OTHERS THEN
1548 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1549 END;
1550 PROCEDURE DELETE_COUNTER_INSTANCE_PRE (
1551 p_api_version IN NUMBER,
1552 P_Init_Msg_List IN VARCHAR2,
1553 P_Commit IN VARCHAR2,
1554 p_SOURCE_OBJECT_ID IN NUMBER,
1555 p_SOURCE_OBJECT_CODE IN VARCHAR2,
1556 x_Return_status OUT NOCOPY VARCHAR2,
1557 x_Msg_Count OUT NOCOPY NUMBER,
1558 x_Msg_Data OUT NOCOPY VARCHAR2
1559 ) IS
1560 l_JTM_enable_prof_value varchar2(255);
1561 l_cursorid INTEGER;
1562 l_execute_status INTEGER;
1563 l_strBuffer VARCHAR2(2000);
1564 l_strLogBuffer VARCHAR2(2000);
1565 BEGIN
1566 l_strLogBuffer := ' begin ' ||
1567 ' JTM_MESSAGE_LOG_PKG.log_msg(' ||
1568 ' ''DELETE_COUNTER_INSTANCE_PRE'', ' ||
1569 ' ''CS_COUNTERS_VUHK'', ' ||
1570 ' ''Error:'' || SQLERRM ' || ',' ||
1571 ' 1,' ||
1572 ' ''jtm:CS_COUNTERS_VUHK.DELETE_COUNTER_INSTANCE_PRE''); ' ||
1573 ' exception ' ||
1574 ' when others then null;' ||
1575 ' end; ';
1576 x_return_status := FND_API.G_RET_STS_SUCCESS;
1577
1578 begin
1579 EXECUTE IMMEDIATE
1580 ' begin JTM_MESSAGE_LOG_PKG.log_msg(' ||
1581 ' ''DELETE_COUNTER_INSTANCE_PRE'', ' ||
1582 ' ''CS_COUNTERS_VUHK'', ' ||
1583 ' ''The procedure is called.'', ' ||
1584 ' 4,' ||
1585 ' ''jtm:CS_COUNTERS_VUHK.DELETE_COUNTER_INSTANCE_PRE''); ' ||
1586 ' end; ';
1587 exception
1588 when others then
1589 null;
1590 end;
1591 /* check if JTM is installed */
1592 l_JTM_enable_prof_value := fnd_profile.VALUE_SPECIFIC(
1593 Name => 'JTM_MOB_APPS_ENABLED', APPLICATION_ID => 874);
1594
1595 if (l_JTM_enable_prof_value = 'Y') then
1596 l_cursorid := DBMS_SQL.open_cursor;
1597 l_strBuffer :=
1598 ' begin ' || 'JTM_COUNTERS_VUHK' || '.' || 'DELETE_COUNTER_INSTANCE_PREE' ||
1599 '(:1,:2,:3,:4,:5,:6,:7,:8); ' ||
1600 ' exception ' ||
1601 ' when others then ' ||
1602 l_strLogBuffer ||
1603 ' end; ';
1604 DBMS_SQL.parse (l_cursorid, l_strBuffer, DBMS_SQL.v7);
1605 DBMS_SQL.bind_variable (l_cursorid, ':1', p_api_version);
1606 DBMS_SQL.bind_variable (l_cursorid, ':2', P_Init_Msg_List);
1607 DBMS_SQL.bind_variable (l_cursorid, ':3', P_Commit);
1608 DBMS_SQL.bind_variable (l_cursorid, ':4', p_SOURCE_OBJECT_ID );
1609 DBMS_SQL.bind_variable (l_cursorid, ':5', p_SOURCE_OBJECT_CODE );
1610 DBMS_SQL.bind_variable (l_cursorid, ':6', X_Return_Status);
1611 DBMS_SQL.bind_variable (l_cursorid, ':7', X_Msg_Count);
1612 DBMS_SQL.bind_variable (l_cursorid, ':8', X_Msg_Data);
1613
1614 begin
1615 l_execute_status := DBMS_SQL.execute (l_cursorid);
1616 exception
1620 DBMS_SQL.close_cursor (l_cursorid);
1617 when others then
1618 EXECUTE IMMEDIATE l_strLogBuffer;
1619 end;
1621
1622 end if;
1623 EXCEPTION
1624 WHEN OTHERS THEN
1625 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1626 begin
1627 EXECUTE IMMEDIATE l_strLogBuffer;
1628 exception
1629 when others then
1630 null;
1631 end;
1632 END;
1633
1634 PROCEDURE DELETE_COUNTER_INSTANCE_POST (
1635 p_api_version IN NUMBER,
1636 P_Init_Msg_List IN VARCHAR2,
1637 P_Commit IN VARCHAR2,
1638 p_SOURCE_OBJECT_ID IN NUMBER,
1639 p_SOURCE_OBJECT_CODE IN VARCHAR2,
1640 x_Return_status OUT NOCOPY VARCHAR2,
1641 x_Msg_Count OUT NOCOPY NUMBER,
1642 x_Msg_Data OUT NOCOPY VARCHAR2
1643 ) IS
1644 BEGIN
1645 x_return_status := FND_API.G_RET_STS_SUCCESS;
1646 EXCEPTION WHEN OTHERS THEN
1647 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1648 END;
1649
1650 End CS_COUNTERS_VUHK;