[Home] [Help]
PACKAGE BODY: APPS.BIM_I_UPDATE_FACTS_PKG
Source
1 PACKAGE BODY BIM_I_UPDATE_FACTS_PKG AS
2 /*$Header: bimiulmb.pls 120.6 2005/10/11 05:38:30 sbassi noship $*/
3
4 g_init_msg_list CONSTANT VARCHAR2(50) := FND_API.G_FALSE;
5 g_validation_level CONSTANT NUMBER := FND_API.G_VALID_LEVEL_FULL;
6 g_commit CONSTANT VARCHAR2(50) := FND_API.G_FALSE;
7
8 ---------------------------------------------------------------------------------+
9
10 PROCEDURE INVOKE_SOURCE_CODES
11 (ERRBUF OUT NOCOPY VARCHAR2,
12 RETCODE OUT NOCOPY NUMBER,
13 p_api_version_number IN NUMBER ,
14 p_start_date IN DATE,
15 p_end_date IN DATE,
16 p_proc_num IN NUMBER,
17 p_truncate_flg IN VARCHAR2
18 ) IS
19 l_api_version_number NUMBER;
20 x_msg_count NUMBER;
21 x_msg_data VARCHAR2(240);
22 x_return_status VARCHAR2(1) ;
23 l_api_name CONSTANT VARCHAR2(30) := 'INVOKE_SOURCE_CODES';
24 BEGIN
25 l_api_version_number := p_api_version_number;
26
27 BIM_I_SRC_CODE_PKG.POPULATE
28 (p_api_version_number => p_api_version_number
29 ,x_msg_count => x_msg_count
30 ,x_msg_data => x_msg_data
31 ,x_return_status => x_return_status
32 ,p_start_date => p_start_date
33 ,p_end_date => p_end_date
34 ,p_para_num => p_proc_num
35 ,p_init_msg_list => g_init_msg_list
36 ,p_validation_level => g_validation_level
37 ,p_commit => g_commit
38 ,p_truncate_flg => p_truncate_flg
39 );
40
41
42 IF x_return_status = FND_API.g_ret_sts_error THEN
43 RAISE FND_API.g_exc_error;
44 ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
45 RAISE FND_API.g_exc_unexpected_error;
46 END IF;
47
48 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
49
50 EXCEPTION
51
52 WHEN FND_API.G_EXC_ERROR THEN
53 x_return_status := FND_API.g_ret_sts_error ;
54 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
55 p_count => x_msg_count,
56 p_data => x_msg_data);
57 ERRBUF := x_msg_data;
58 RETCODE := 2;
59
60 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
61 x_return_status := FND_API.g_ret_sts_unexp_error ;
62 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
63 p_count => x_msg_count,
64 p_data => x_msg_data);
65 ERRBUF := x_msg_data;
66 RETCODE := 2;
67
68 WHEN OTHERS THEN
69 x_return_status := FND_API.g_ret_sts_unexp_error ;
70 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
71 p_count => x_msg_count,
72 p_data => x_msg_data);
73 ERRBUF := sqlerrm(sqlcode);
74 RETCODE := sqlcode;
75
76 END INVOKE_SOURCE_CODES;
77
78 ---------------------------------------------------------------------------------+
79
80 PROCEDURE INVOKE_MARKETING
81 (ERRBUF OUT NOCOPY VARCHAR2,
82 RETCODE OUT NOCOPY NUMBER,
83 p_api_version_number IN NUMBER,
84 p_start_date IN DATE,
85 p_end_date IN DATE,
86 p_proc_num IN NUMBER,
87 p_truncate_flg IN VARCHAR2
88 ) IS
89
90 v_error_code NUMBER;
91 v_error_text VARCHAR2(1500);
92 l_start_date DATE;
93 l_end_date DATE;
94 l_user_id NUMBER := FND_GLOBAL.USER_ID();
95 l_api_version_number CONSTANT NUMBER := 1.0;
96 l_api_name CONSTANT VARCHAR2(30) := 'INVOKE_MARKETING';
97 x_msg_count NUMBER;
98 x_msg_data VARCHAR2(240);
99 x_return_status VARCHAR2(1) ;
100 l_init_msg_list VARCHAR2(10) := FND_API.G_FALSE;
101 l_max_date DATE;
102
103 BEGIN
104 -- Standard call to check for call compatibility.
105 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
106 p_api_version_number,
107 l_api_name,
108 g_pkg_name)
109 THEN
110 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
111 END IF;
112 -- Initialize message list if p_init_msg_list is set to TRUE.
113 -- Debug Message
114 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
115
116 -- Initialize API return status to SUCCESS
117 x_return_status := FND_API.G_RET_STS_SUCCESS;
118
119 BIM_MARKET_FACTS_PKG.POPULATE
120 (p_api_version_number => p_api_version_number
121 ,x_msg_count => x_msg_count
122 ,x_msg_data => x_msg_data
123 ,x_return_status => x_return_status
124 ,p_start_date => p_start_date
125 ,p_end_date => p_end_date
126 ,p_para_num => p_proc_num
127 ,p_truncate_flg => p_truncate_flg
128 );
129 IF x_return_status = FND_API.g_ret_sts_error
130 THEN
131 RAISE FND_API.g_exc_error;
132 ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
133 RAISE FND_API.g_exc_unexpected_error;
134 END IF;
135
136 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
137
138 EXCEPTION
139
140 WHEN FND_API.G_EXC_ERROR THEN
141 x_return_status := FND_API.g_ret_sts_error ;
142 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
143 p_count => x_msg_count,
144 p_data => x_msg_data);
145 ERRBUF := x_msg_data;
146 RETCODE := 2;
147
148 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149 x_return_status := FND_API.g_ret_sts_unexp_error ;
150 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
151 p_count => x_msg_count,
152 p_data => x_msg_data);
153 ERRBUF := x_msg_data;
154 RETCODE := 2;
155
156 WHEN OTHERS THEN
157 x_return_status := FND_API.g_ret_sts_unexp_error ;
158 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
159 p_count => x_msg_count,
160 p_data => x_msg_data);
161 ERRBUF := sqlerrm(sqlcode);
162 RETCODE := sqlcode;
163 END INVOKE_MARKETING;
164
165 PROCEDURE INVOKE_BUDGET
166 (ERRBUF OUT NOCOPY VARCHAR2,
167 RETCODE OUT NOCOPY NUMBER,
168 p_api_version_number IN NUMBER,
169 p_start_date IN DATE,
170 p_end_date IN DATE,
171 p_proc_num IN NUMBER,
172 p_truncate_flg IN VARCHAR2
173 ) IS
174
175 v_error_code NUMBER;
176 v_error_text VARCHAR2(1500);
177 l_start_date DATE;
178 l_end_date DATE;
179 l_user_id NUMBER := FND_GLOBAL.USER_ID();
180 l_api_version_number CONSTANT NUMBER := 1.0;
181 l_api_name CONSTANT VARCHAR2(30) := 'INVOKE_MARKETING';
182 x_msg_count NUMBER;
183 x_msg_data VARCHAR2(240);
184 x_return_status VARCHAR2(1) ;
185 l_init_msg_list VARCHAR2(10) := FND_API.G_FALSE;
186 l_max_date DATE;
187
188 BEGIN
189 -- Standard call to check for call compatibility.
190 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
191 p_api_version_number,
192 l_api_name,
193 g_pkg_name)
194 THEN
195 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
196 END IF;
197 -- Initialize message list if p_init_msg_list is set to TRUE.
198 -- Debug Message
199 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
200
201 -- Initialize API return status to SUCCESS
202 x_return_status := FND_API.G_RET_STS_SUCCESS;
203
204 BIM_I_BGT_FACTS_PKG.POPULATE
205 (p_api_version_number => p_api_version_number
206 ,x_msg_count => x_msg_count
207 ,x_msg_data => x_msg_data
208 ,x_return_status => x_return_status
209 ,p_start_date => p_start_date
210 ,p_end_date => p_end_date
211 ,p_para_num => p_proc_num
212 ,p_truncate_flg => p_truncate_flg
213 );
214 IF x_return_status = FND_API.g_ret_sts_error THEN
215 RAISE FND_API.g_exc_error;
216 ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
217 RAISE FND_API.g_exc_unexpected_error;
218 END IF;
219
220 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
221
222 EXCEPTION
223
224 WHEN FND_API.G_EXC_ERROR THEN
225 x_return_status := FND_API.g_ret_sts_error ;
226 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
227 p_count => x_msg_count,
228 p_data => x_msg_data);
229 ERRBUF := x_msg_data;
230 RETCODE := 2;
231
232 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
233 x_return_status := FND_API.g_ret_sts_unexp_error ;
234 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
235 p_count => x_msg_count,
236 p_data => x_msg_data);
237 ERRBUF := x_msg_data;
238 RETCODE := 2;
239
240 WHEN OTHERS THEN
241 x_return_status := FND_API.g_ret_sts_unexp_error ;
242 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
243 p_count => x_msg_count,
244 p_data => x_msg_data);
245 ERRBUF := sqlerrm(sqlcode);
246 RETCODE := sqlcode;
247 END INVOKE_BUDGET;
248
249
250 ---------------------------------------------------------------------------------+
251
252 PROCEDURE INVOKE_LEADS
253 (ERRBUF OUT NOCOPY VARCHAR2,
254 RETCODE OUT NOCOPY NUMBER,
255 p_api_version_number IN NUMBER,
256 p_start_date IN DATE,
257 p_end_date IN DATE,
258 p_proc_num IN NUMBER,
259 p_truncate_flg IN VARCHAR2
260 ) IS
261
262 v_error_code NUMBER;
263 v_error_text VARCHAR2(1500);
264 l_start_date DATE;
265 l_end_date DATE;
266 l_user_id NUMBER := FND_GLOBAL.USER_ID();
267 l_api_version_number CONSTANT NUMBER := 1.0;
268 l_api_name CONSTANT VARCHAR2(30) := 'INVOKE_LEADS';
269 x_msg_count NUMBER;
270 x_msg_data VARCHAR2(240);
271 x_return_status VARCHAR2(1) ;
272 l_init_msg_list VARCHAR2(10) := FND_API.G_FALSE;
273 l_max_date DATE;
274
275 BEGIN
276 -- Standard call to check for call compatibility.
277 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
278 p_api_version_number,
279 l_api_name,
280 g_pkg_name)
281 THEN
282 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
283 END IF;
284 -- Initialize message list if p_init_msg_list is set to TRUE.
285 -- Debug Message
286 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
287
288 -- Initialize API return status to SUCCESS
289 x_return_status := FND_API.G_RET_STS_SUCCESS;
290
291 BIM_I_LEAD_FACTS_PKG.POPULATE
292 (p_api_version_number => p_api_version_number
293 ,x_msg_count => x_msg_count
294 ,x_msg_data => x_msg_data
295 ,x_return_status => x_return_status
296 ,p_start_date => p_start_date
297 ,p_end_date => p_end_date
298 ,p_para_num => p_proc_num
299 ,p_init_msg_list => g_init_msg_list
300 ,p_validation_level => g_validation_level
301 ,p_commit => g_commit
302 ,p_truncate_flg => p_truncate_flg
303 );
304 IF x_return_status = FND_API.g_ret_sts_error
305 THEN
306 RAISE FND_API.g_exc_error;
307 ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
308 RAISE FND_API.g_exc_unexpected_error;
309 END IF;
310
311 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
312
313 EXCEPTION
314
315 WHEN FND_API.G_EXC_ERROR THEN
316 x_return_status := FND_API.g_ret_sts_error ;
317 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
318 p_count => x_msg_count,
319 p_data => x_msg_data);
320 ERRBUF := x_msg_data;
321 RETCODE := 2;
322
323 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
324 x_return_status := FND_API.g_ret_sts_unexp_error ;
325 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
326 p_count => x_msg_count,
327 p_data => x_msg_data);
328 ERRBUF := x_msg_data;
329 RETCODE := 2;
330
331 WHEN OTHERS THEN
332 x_return_status := FND_API.g_ret_sts_unexp_error ;
333 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
334 p_count => x_msg_count,
335 p_data => x_msg_data);
336 ERRBUF := sqlerrm(sqlcode);
337 RETCODE := sqlcode;
338 END INVOKE_LEADS;
339
340 ---------------------------------------------------------------------------------+
341
342 PROCEDURE INVOKE_MARKETING_F
343 (ERRBUF OUT NOCOPY VARCHAR2,
344 RETCODE OUT NOCOPY NUMBER,
345 p_api_version_number IN NUMBER,
346 p_start_date IN DATE,
347 p_proc_num IN NUMBER,
348 p_truncate_flg IN VARCHAR2
349 ) IS
350 BEGIN
351 INVOKE_MARKETING
352 (ERRBUF => ERRBUF,
353 RETCODE => RETCODE,
354 p_api_version_number => p_api_version_number
355 ,p_start_date => p_start_date
356 ,p_end_date => NULL
357 ,p_proc_num => p_proc_num
358 ,p_truncate_flg => p_truncate_flg
359 );
360 END INVOKE_MARKETING_F;
361
362 ---------------------------------------------------------------------------------+
363
364 PROCEDURE INVOKE_MARKETING_I
365 (ERRBUF OUT NOCOPY VARCHAR2,
366 RETCODE OUT NOCOPY NUMBER,
367 p_api_version_number IN NUMBER,
368 p_proc_num IN NUMBER
369 ) IS
370 BEGIN
371 INVOKE_MARKETING
372 (ERRBUF => ERRBUF,
373 RETCODE => RETCODE,
374 p_api_version_number => p_api_version_number
375 ,p_start_date => NULL
376 ,p_end_date => NULL
377 ,p_proc_num => p_proc_num
378 ,p_truncate_flg => null
379 );
380 END INVOKE_MARKETING_I;
381
382 ---------------------------------------------------------------------------------+
383
384
385 PROCEDURE INVOKE_BUDGET_F
386 (ERRBUF OUT NOCOPY VARCHAR2,
387 RETCODE OUT NOCOPY NUMBER,
388 p_api_version_number IN NUMBER,
389 p_start_date IN DATE,
390 p_proc_num IN NUMBER,
391 p_truncate_flg IN VARCHAR2
392 ) IS
393 BEGIN
394 INVOKE_BUDGET
395 (ERRBUF => ERRBUF
396 ,RETCODE => RETCODE
397 ,p_api_version_number => p_api_version_number
398 ,p_start_date => p_start_date
399 ,p_end_date => NULL
400 ,p_proc_num => p_proc_num
401 ,p_truncate_flg => p_truncate_flg
402 );
403 END INVOKE_BUDGET_F;
404
405 ---------------------------------------------------------------------------------+
406
407 PROCEDURE INVOKE_BUDGET_I
408 (ERRBUF OUT NOCOPY VARCHAR2,
409 RETCODE OUT NOCOPY NUMBER,
410 p_api_version_number IN NUMBER,
411 p_proc_num IN NUMBER
412 ) IS
413 BEGIN
414 INVOKE_BUDGET
415 (ERRBUF => ERRBUF
416 ,RETCODE => RETCODE
417 ,p_api_version_number => p_api_version_number
418 ,p_start_date => NULL
419 ,p_end_date => NULL
420 ,p_proc_num => p_proc_num
421 ,p_truncate_flg => null
422 );
423 END INVOKE_BUDGET_I;
424 ---------------------------------------------------------------------------------+
425
426 PROCEDURE INVOKE_LEADS_F
427 (ERRBUF OUT NOCOPY VARCHAR2,
428 RETCODE OUT NOCOPY NUMBER,
429 p_api_version_number IN NUMBER,
430 p_start_date IN DATE,
431 p_proc_num IN NUMBER,
432 p_truncate_flg IN VARCHAR2
433 ) IS
434 BEGIN
435 INVOKE_LEADS
436 (ERRBUF => ERRBUF,
437 RETCODE => RETCODE,
438 p_api_version_number => p_api_version_number
439 ,p_start_date => p_start_date
440 ,p_end_date => NULL
441 ,p_proc_num => p_proc_num
442 ,p_truncate_flg => p_truncate_flg
443 );
444 END INVOKE_LEADS_F;
445
446 ---------------------------------------------------------------------------------+
447
448 PROCEDURE INVOKE_LEADS_I
449 (ERRBUF OUT NOCOPY VARCHAR2,
450 RETCODE OUT NOCOPY NUMBER,
451 p_api_version_number IN NUMBER,
452 p_proc_num IN NUMBER
453 ) IS
454 BEGIN
455 INVOKE_LEADS
456 (ERRBUF => ERRBUF,
457 RETCODE => RETCODE,
458 p_api_version_number => p_api_version_number
459 ,p_start_date => NULL
460 ,p_end_date => NULL
461 ,p_proc_num => p_proc_num
462 ,p_truncate_flg => null
463 );
464 END INVOKE_LEADS_I;
465
466 ---------------------------------------------------------------------------------+
467
468 PROCEDURE INVOKE_SOURCE_CODES_F
469 (ERRBUF OUT NOCOPY VARCHAR2,
470 RETCODE OUT NOCOPY NUMBER,
471 p_api_version_number IN NUMBER,
472 p_start_date IN DATE,
473 p_proc_num IN NUMBER,
474 p_truncate_flg IN VARCHAR2
475 ) IS
476 BEGIN
477 INVOKE_SOURCE_CODES
478 (ERRBUF => ERRBUF,
479 RETCODE => RETCODE,
480 p_api_version_number => p_api_version_number
481 ,p_start_date => p_start_date
482 ,p_end_date => NULL
483 ,p_proc_num => p_proc_num
484 ,p_truncate_flg => p_truncate_flg
485 );
486 END invoke_source_codes_f;
487
488 ---------------------------------------------------------------------------------+
489
490 PROCEDURE INVOKE_SOURCE_CODES_I
491 (ERRBUF OUT NOCOPY VARCHAR2,
492 RETCODE OUT NOCOPY NUMBER,
493 p_api_version_number IN NUMBER,
494 p_proc_num IN NUMBER
495 ) IS
496 BEGIN
497 INVOKE_SOURCE_CODES
498 (ERRBUF => ERRBUF,
499 RETCODE => RETCODE,
500 p_api_version_number => p_api_version_number
501 ,p_start_date => NULL
502 ,p_end_date => NULL
503 ,p_proc_num => p_proc_num
504 ,p_truncate_flg => null
505 );
506 END invoke_source_codes_i;
507
508 ---------------------------------------------------------------------------------+
509
510
511 PROCEDURE INVOKE_SGMT
512 (ERRBUF OUT NOCOPY VARCHAR2,
513 RETCODE OUT NOCOPY NUMBER,
514 p_api_version_number IN NUMBER,
515 p_start_date IN DATE,
516 p_end_date IN DATE,
517 p_proc_num IN NUMBER,
518 p_truncate_flg IN VARCHAR2
519 ) IS
520
521
522 l_api_version_number CONSTANT NUMBER := 1.0;
523 l_api_name CONSTANT VARCHAR2(30) := 'INVOKE_SEGMENT';
524 x_msg_count NUMBER;
525 x_msg_data VARCHAR2(240);
526 x_return_status VARCHAR2(1) ;
527
528 BEGIN
529 -- Standard call to check for call compatibility.
530 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
531 p_api_version_number,
532 l_api_name,
533 g_pkg_name)
534 THEN
535 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
536 END IF;
537 -- Initialize message list if p_init_msg_list is set to TRUE.
538 -- Debug Message
539 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
540
541 -- Initialize API return status to SUCCESS
542 x_return_status := FND_API.G_RET_STS_SUCCESS;
543
544
545 BIM_I_SGMT_FACTS_PKG.POPULATE
546 (p_api_version_number => p_api_version_number
547 ,x_msg_count => x_msg_count
548 ,x_msg_data => x_msg_data
549 ,x_return_status => x_return_status
550 ,p_start_date => p_start_date
551 ,p_end_date => p_end_date
552 ,p_para_num => p_proc_num
553 ,p_init_msg_list => g_init_msg_list
554 ,p_validation_level => g_validation_level
555 ,p_commit => g_commit
556 ,p_truncate_flg => p_truncate_flg
557 );
558 IF x_return_status = FND_API.g_ret_sts_error THEN
559
560 RAISE FND_API.g_exc_error;
561
562 ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
563
564 RAISE FND_API.g_exc_unexpected_error;
565
566 END IF;
567
568 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
569
570 EXCEPTION
571
572 WHEN FND_API.G_EXC_ERROR THEN
573 x_return_status := FND_API.g_ret_sts_error ;
574 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
575 p_count => x_msg_count,
576 p_data => x_msg_data);
577 ERRBUF := x_msg_data;
578 RETCODE := 2;
579
580 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
581 x_return_status := FND_API.g_ret_sts_unexp_error ;
582 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
583 p_count => x_msg_count,
584 p_data => x_msg_data);
585 ERRBUF := x_msg_data;
586 RETCODE := 2;
587
588 WHEN OTHERS THEN
589 x_return_status := FND_API.g_ret_sts_unexp_error ;
590 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
591 p_count => x_msg_count,
592 p_data => x_msg_data);
593 ERRBUF := sqlerrm(sqlcode);
594 RETCODE := sqlcode;
595 END invoke_sgmt;
596
597 ---------------------------------------------------------------------------------+
598
599 PROCEDURE INVOKE_SGMT_ACT
600 (ERRBUF OUT NOCOPY VARCHAR2,
601 RETCODE OUT NOCOPY NUMBER,
602 p_api_version_number IN NUMBER,
603 p_start_date IN DATE,
604 p_end_date IN DATE,
605 p_proc_num IN NUMBER,
606 p_truncate_flg IN VARCHAR2
607 ) IS
608
609 l_api_version_number CONSTANT NUMBER := 1.0;
610 l_api_name CONSTANT VARCHAR2(30) := 'INVOKE_SGMT_ACT';
611 x_msg_count NUMBER;
612 x_msg_data VARCHAR2(2400);
613 x_return_status VARCHAR2(1) ;
614
615 BEGIN
616
617 -- Standard call to check for call compatibility.
618 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
619 p_api_version_number,
620 l_api_name,
621 g_pkg_name)
622 THEN
623 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
624 END IF;
625 -- Initialize message list if p_init_msg_list is set to TRUE.
626 -- Debug Message
627 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
628
629 -- Initialize API return status to SUCCESS
630 x_return_status := FND_API.G_RET_STS_SUCCESS;
631
632 BIM_I_SGMT_ACT_FACTS_PKG.POPULATE
633 (p_api_version_number => p_api_version_number
634 ,x_msg_count => x_msg_count
635 ,x_msg_data => x_msg_data
636 ,x_return_status => x_return_status
637 ,p_start_date => p_start_date
638 ,p_end_date => p_end_date
639 ,p_para_num => p_proc_num
640 ,p_init_msg_list => g_init_msg_list
641 ,p_validation_level => g_validation_level
642 ,p_commit => g_commit
643 ,p_truncate_flg =>p_truncate_flg
644 );
645
646 IF x_return_status = FND_API.g_ret_sts_error THEN
647
648 RAISE FND_API.g_exc_error;
649
650 ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
651
652 RAISE FND_API.g_exc_unexpected_error;
653
654 END IF;
655
656 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
657
658 EXCEPTION
659
660 WHEN FND_API.G_EXC_ERROR THEN
661
662 x_return_status := FND_API.g_ret_sts_error ;
663 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
664 p_count => x_msg_count,
665 p_data => x_msg_data);
666 ERRBUF := x_msg_data;
667 RETCODE := 2;
668
669 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
670
671 x_return_status := FND_API.g_ret_sts_unexp_error ;
672 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
673 p_count => x_msg_count,
674 p_data => x_msg_data);
675 ERRBUF := x_msg_data;
676 RETCODE := 2;
677
678 WHEN OTHERS THEN
679
680
681 x_return_status := FND_API.g_ret_sts_unexp_error ;
682
683 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
684 p_count => x_msg_count,
685 p_data => x_msg_data);
686
687 ERRBUF := sqlerrm(sqlcode);
688 RETCODE := sqlcode;
689
690 END invoke_sgmt_act;
691 ---------------------------------------------------------------------------------+
692
693 PROCEDURE INVOKE_SGMT_CUST
694 (ERRBUF OUT NOCOPY VARCHAR2,
695 RETCODE OUT NOCOPY NUMBER,
696 p_api_version_number IN NUMBER,
697 p_start_date IN DATE,
698 p_end_date IN DATE,
699 p_proc_num IN NUMBER,
700 p_truncate_flg IN VARCHAR2
701 ) IS
702
703
704
705
706 l_api_version_number CONSTANT NUMBER := 1.0;
707 l_api_name CONSTANT VARCHAR2(30) := 'INVOKE_SGMT_PARTY';
708 x_msg_count NUMBER;
709 x_msg_data VARCHAR2(240);
710 x_return_status VARCHAR2(1) ;
711
712 BEGIN
713 -- Standard call to check for call compatibility.
714 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
715 p_api_version_number,
716 l_api_name,
717 g_pkg_name)
718 THEN
719 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
720 END IF;
721 -- Initialize message list if p_init_msg_list is set to TRUE.
722 -- Debug Message
723 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
724
725 -- Initialize API return status to SUCCESS
726 x_return_status := FND_API.G_RET_STS_SUCCESS;
727
728
729 BIM_I_SGMT_CUST_FACTS_PKG.POPULATE
730 (p_api_version_number => p_api_version_number
731 ,x_msg_count => x_msg_count
732 ,x_msg_data => x_msg_data
733 ,x_return_status => x_return_status
734 ,p_start_date => p_start_date
735 ,p_end_date => p_end_date
736 ,p_para_num => p_proc_num
737 ,p_init_msg_list => g_init_msg_list
738 ,p_validation_level => g_validation_level
739 ,p_commit => g_commit
740 ,p_truncate_flg =>p_truncate_flg
741 );
742 IF x_return_status = FND_API.g_ret_sts_error THEN
743
744 RAISE FND_API.g_exc_error;
745
746 ELSIF x_return_status = FND_API.g_ret_sts_unexp_error THEN
747
748 RAISE FND_API.g_exc_unexpected_error;
749
750 END IF;
751
752 AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'End');
753
754 EXCEPTION
755
756 WHEN FND_API.G_EXC_ERROR THEN
757 x_return_status := FND_API.g_ret_sts_error ;
758 FND_MSG_PUB.count_and_get (p_encoded => FND_API.G_FALSE,
759 p_count => x_msg_count,
760 p_data => x_msg_data);
761 ERRBUF := x_msg_data;
762 RETCODE := 2;
763
764 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
765 x_return_status := FND_API.g_ret_sts_unexp_error ;
766 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
767 p_count => x_msg_count,
768 p_data => x_msg_data);
769 ERRBUF := x_msg_data;
770 RETCODE := 2;
771
772 WHEN OTHERS THEN
773 x_return_status := FND_API.g_ret_sts_unexp_error ;
774 FND_MSG_PUB.Count_And_Get (p_encoded => FND_API.G_FALSE,
775 p_count => x_msg_count,
776 p_data => x_msg_data);
777 ERRBUF := sqlerrm(sqlcode);
778 RETCODE := sqlcode;
779
780 END invoke_sgmt_cust;
781 ---------------------------------------------------------------------------------+
782
783 PROCEDURE INVOKE_SGMT_F
784 (ERRBUF OUT NOCOPY VARCHAR2,
785 RETCODE OUT NOCOPY NUMBER,
786 p_api_version_number IN NUMBER,
787 p_start_date IN DATE,
788 p_proc_num IN NUMBER,
789 p_truncate_flg IN VARCHAR2
790 ) IS
791 BEGIN
792 INVOKE_SGMT
793 (ERRBUF => ERRBUF,
794 RETCODE => RETCODE,
795 p_api_version_number => p_api_version_number
796 ,p_start_date => p_start_date
797 ,p_end_date => NULL
798 ,p_proc_num => p_proc_num
799 ,p_truncate_flg => p_truncate_flg
800 );
801 END invoke_sgmt_f;
802
803 ---------------------------------------------------------------------------------+
804
805 PROCEDURE INVOKE_SGMT_I
806 (ERRBUF OUT NOCOPY VARCHAR2,
807 RETCODE OUT NOCOPY NUMBER,
808 p_api_version_number IN NUMBER,
809 p_proc_num IN NUMBER
810 ) IS
811 BEGIN
812 INVOKE_SGMT
813 (ERRBUF => ERRBUF,
814 RETCODE => RETCODE,
815 p_api_version_number => p_api_version_number
816 ,p_start_date => NULL
817 ,p_end_date => NULL
818 ,p_proc_num => p_proc_num
819 ,p_truncate_flg => NULL
820 );
821 END invoke_sgmt_i;
822
823 ---------------------------------------------------------------------------------+
824 PROCEDURE INVOKE_SGMT_ACT_F
825 (ERRBUF OUT NOCOPY VARCHAR2,
826 RETCODE OUT NOCOPY NUMBER,
827 p_api_version_number IN NUMBER,
828 p_start_date IN DATE,
829 p_proc_num IN NUMBER,
830 p_truncate_flg IN VARCHAR2
831 ) IS
832 BEGIN
833 INVOKE_SGMT_ACT
834 (ERRBUF => ERRBUF,
835 RETCODE => RETCODE,
836 p_api_version_number => p_api_version_number
837 ,p_start_date => p_start_date
838 ,p_end_date => NULL
839 ,p_proc_num => p_proc_num
840 ,p_truncate_flg => p_truncate_flg
841 );
842 END invoke_sgmt_act_f;
843
844 ---------------------------------------------------------------------------------+
845
846 PROCEDURE INVOKE_SGMT_ACT_I
847 (ERRBUF OUT NOCOPY VARCHAR2,
848 RETCODE OUT NOCOPY NUMBER,
849 p_api_version_number IN NUMBER,
850 p_proc_num IN NUMBER
851 ) IS
852 BEGIN
853 INVOKE_SGMT_ACT
854 (ERRBUF => ERRBUF,
855 RETCODE => RETCODE,
856 p_api_version_number => p_api_version_number
857 ,p_start_date => NULL
858 ,p_end_date => NULL
859 ,p_proc_num => p_proc_num
860 ,p_truncate_flg => NULL
861 );
862 END invoke_sgmt_act_i;
863
864 ---------------------------------------------------------------------------------+
865 PROCEDURE INVOKE_SGMT_CUST_F
866 (ERRBUF OUT NOCOPY VARCHAR2,
867 RETCODE OUT NOCOPY NUMBER,
868 p_api_version_number IN NUMBER,
869 p_start_date IN DATE,
870 p_proc_num IN NUMBER,
871 p_truncate_flg IN VARCHAR2
872 ) IS
873 BEGIN
874 INVOKE_SGMT_CUST
875 (ERRBUF => ERRBUF,
876 RETCODE => RETCODE,
877 p_api_version_number => p_api_version_number
878 ,p_start_date => p_start_date
879 ,p_end_date => NULL
880 ,p_proc_num => p_proc_num
881 ,p_truncate_flg => p_truncate_flg
882 );
883 END invoke_sgmt_cust_f;
884
885 ---------------------------------------------------------------------------------+
886
887 PROCEDURE INVOKE_SGMT_CUST_I
888 (ERRBUF OUT NOCOPY VARCHAR2,
889 RETCODE OUT NOCOPY NUMBER,
890 p_api_version_number IN NUMBER,
891 p_proc_num IN NUMBER
892 ) IS
893 BEGIN
894 INVOKE_SGMT_CUST
895 (ERRBUF => ERRBUF,
896 RETCODE => RETCODE,
897 p_api_version_number => p_api_version_number
898 ,p_start_date => NULL
899 ,p_end_date => NULL
900 ,p_proc_num => p_proc_num
901 ,p_truncate_flg => NULL
902 );
903 END invoke_sgmt_cust_i;
904
905
906 END BIM_I_UPDATE_FACTS_PKG;