[Home] [Help]
34: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
35: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_new_start_date='||p_new_start_date||' ,p_new_end_date='||p_new_end_date||' ,p_new_duration='||p_new_duration||' ,p_new_uom_code='||p_new_uom_code||
36: ' , p_old_start_date='||p_old_start_date||' ,p_old_end_date='||p_old_end_date||' ,p_renewal_end_date='||p_renewal_end_date||' ,p_ren_type='||p_ren_type);
37: END IF;
38: x_return_status := FND_API.G_RET_STS_SUCCESS;
39:
40: --trivial case, end date is given
41: l_end_date := trunc(p_new_end_date);
42:
58: x_duration => l_duration,
59: x_timeunit => l_uom_code,
60: x_return_status => x_return_status);
61:
62: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
63: RAISE FND_API.g_exc_unexpected_error;
64: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
65: RAISE FND_API.g_exc_error;
66: END IF;
59: x_timeunit => l_uom_code,
60: x_return_status => x_return_status);
61:
62: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
63: RAISE FND_API.g_exc_unexpected_error;
64: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
65: RAISE FND_API.g_exc_error;
66: END IF;
67:
60: x_return_status => x_return_status);
61:
62: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
63: RAISE FND_API.g_exc_unexpected_error;
64: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
65: RAISE FND_API.g_exc_error;
66: END IF;
67:
68: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
61:
62: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
63: RAISE FND_API.g_exc_unexpected_error;
64: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
65: RAISE FND_API.g_exc_error;
66: END IF;
67:
68: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
69: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration', 'after call to OKC_TIME_UTIL_PUB.get_duration, l_duration='||l_duration||' ,l_uom_code='||l_uom_code);
100: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
101: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.derive_end_date', FALSE);
102: END IF;
103: FND_MSG_PUB.ADD;
104: RAISE FND_API.g_exc_error;
105:
106: END IF;
107:
108: --now truncate end date to ultimate end date if required
121: END IF;
122:
123: RETURN l_end_date;
124: EXCEPTION
125: WHEN FND_API.g_exc_error THEN
126: x_return_status := FND_API.g_ret_sts_error;
127: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
128: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
129: END IF;
122:
123: RETURN l_end_date;
124: EXCEPTION
125: WHEN FND_API.g_exc_error THEN
126: x_return_status := FND_API.g_ret_sts_error;
127: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
128: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
129: END IF;
130: RAISE;
128: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
129: END IF;
130: RAISE;
131:
132: WHEN FND_API.g_exc_unexpected_error THEN
133: x_return_status := FND_API.g_ret_sts_unexp_error ;
134: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
135: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
136: END IF;
129: END IF;
130: RAISE;
131:
132: WHEN FND_API.g_exc_unexpected_error THEN
133: x_return_status := FND_API.g_ret_sts_unexp_error ;
134: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
135: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
136: END IF;
137: RAISE;
136: END IF;
137: RAISE;
138:
139: WHEN OTHERS THEN
140: x_return_status := FND_API.g_ret_sts_unexp_error ;
141: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
142: --first log the sqlerrm
143: l_error_text := substr (SQLERRM, 1, 240);
144: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
226:
227: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
228: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.get_parent_rec.begin', 'p_cle_id='||p_cle_id);
229: END IF;
230: x_return_status := FND_API.G_RET_STS_SUCCESS;
231:
232: -- first check the l_cached_tbl as it is going to be smaller or null
233: IF (l_cached_tbl.count > 0) THEN
234: for i in l_cached_tbl.first..l_cached_tbl.last loop
267:
268: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
269: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.populate_cache.begin', 'p_line_rec.id='||p_line_rec.id||' ,p_line_rec.cle_id='||p_line_rec.cle_id);
270: END IF;
271: x_return_status := FND_API.G_RET_STS_SUCCESS;
272:
273: l_current_rec := p_line_rec;
274: --we will first populate a temp cache
275: l_cached_tbl_tmp.delete;
317:
318: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
319: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.delete_dnr_lines.begin', 'p_chr_id='||p_chr_id);
320: END IF;
321: x_return_status := FND_API.G_RET_STS_SUCCESS;
322:
323: open c_dnr_lines(p_chr_id);
324: loop
325: fetch c_dnr_lines bulk collect into l_dnr_lines_tbl limit G_BULK_FETCH_LIMIT;
339: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_dnr_lines.delete_line', 'calling delete_contract_line, p_line_id='||l_dnr_lines_tbl(i)||' x_return_status='||x_return_status);
340: END IF;
341: delete_contract_line(
342: p_api_version => 1,
343: p_init_msg_list => FND_API.G_FALSE,
344: p_commit => FND_API.G_FALSE,
345: p_line_id => l_dnr_lines_tbl(i),
346: x_return_status => x_return_status,
347: x_msg_count => x_msg_count,
340: END IF;
341: delete_contract_line(
342: p_api_version => 1,
343: p_init_msg_list => FND_API.G_FALSE,
344: p_commit => FND_API.G_FALSE,
345: p_line_id => l_dnr_lines_tbl(i),
346: x_return_status => x_return_status,
347: x_msg_count => x_msg_count,
348: x_msg_data => x_msg_data);
350: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
351: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_dnr_lines.delete_line', 'after call to delete_contract_line, x_return_status='||x_return_status);
352: END IF;
353:
354: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
355: RAISE FND_API.g_exc_unexpected_error;
356: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
357: RAISE FND_API.g_exc_error;
358: END IF;
351: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.delete_dnr_lines.delete_line', 'after call to delete_contract_line, x_return_status='||x_return_status);
352: END IF;
353:
354: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
355: RAISE FND_API.g_exc_unexpected_error;
356: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
357: RAISE FND_API.g_exc_error;
358: END IF;
359:
352: END IF;
353:
354: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
355: RAISE FND_API.g_exc_unexpected_error;
356: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
357: RAISE FND_API.g_exc_error;
358: END IF;
359:
360: END LOOP;
353:
354: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
355: RAISE FND_API.g_exc_unexpected_error;
356: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
357: RAISE FND_API.g_exc_error;
358: END IF;
359:
360: END LOOP;
361:
367: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.delete_dnr_lines.end', 'x_return_status='||x_return_status);
368: END IF;
369:
370: EXCEPTION
371: WHEN FND_API.g_exc_error THEN
372: x_return_status := FND_API.g_ret_sts_error;
373: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
374: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.delete_dnr_lines.end_error', 'x_return_status=' || x_return_status);
375: END IF;
368: END IF;
369:
370: EXCEPTION
371: WHEN FND_API.g_exc_error THEN
372: x_return_status := FND_API.g_ret_sts_error;
373: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
374: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.delete_dnr_lines.end_error', 'x_return_status=' || x_return_status);
375: END IF;
376: RAISE;
374: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.delete_dnr_lines.end_error', 'x_return_status=' || x_return_status);
375: END IF;
376: RAISE;
377:
378: WHEN FND_API.g_exc_unexpected_error THEN
379: x_return_status := FND_API.g_ret_sts_unexp_error ;
380: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
381: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.delete_dnr_lines.end_unexpected_error', 'x_return_status=' || x_return_status);
382: END IF;
375: END IF;
376: RAISE;
377:
378: WHEN FND_API.g_exc_unexpected_error THEN
379: x_return_status := FND_API.g_ret_sts_unexp_error ;
380: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
381: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.delete_dnr_lines.end_unexpected_error', 'x_return_status=' || x_return_status);
382: END IF;
383: RAISE;
382: END IF;
383: RAISE;
384:
385: WHEN OTHERS THEN
386: x_return_status := FND_API.g_ret_sts_unexp_error ;
387: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
388: --first log the sqlerrm
389: l_error_text := substr (SQLERRM, 1, 240);
390: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.delete_dnr_lines.end_other_error', l_error_text);
403: --main update procedure begins here
404: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
405: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id='||p_chr_id||' ,p_new_start_date='||p_new_start_date||' ,p_new_end_date='||p_new_end_date||' ,p_old_start_date='||p_old_start_date);
406: END IF;
407: x_return_status := FND_API.G_RET_STS_SUCCESS;
408:
409: --becuase of bug 2689096, we need to capture the time component also for each
410: --start date and end date
411: --If time component is nulled out, duration can be different and this will affect pricing
516: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_KEP_1', 'i='||i||',after OKC_TIME_UTIL_PVT.get_oracle_months_and_days, x_return_status='||x_return_status||
517: ',x_mth_duration='||l_duration||',x_day_duration='||l_additional_days);
518: END IF;
519:
520: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
521: RAISE FND_API.g_exc_unexpected_error;
522: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
523: RAISE FND_API.g_exc_error;
524: END IF;
517: ',x_mth_duration='||l_duration||',x_day_duration='||l_additional_days);
518: END IF;
519:
520: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
521: RAISE FND_API.g_exc_unexpected_error;
522: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
523: RAISE FND_API.g_exc_error;
524: END IF;
525:
518: END IF;
519:
520: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
521: RAISE FND_API.g_exc_unexpected_error;
522: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
523: RAISE FND_API.g_exc_error;
524: END IF;
525:
526: -- add the offset to parent start date
519:
520: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
521: RAISE FND_API.g_exc_unexpected_error;
522: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
523: RAISE FND_API.g_exc_error;
524: END IF;
525:
526: -- add the offset to parent start date
527: l_lines_tbl(i).new_start_date := ADD_MONTHS(
549: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.calc_dates_KEP_3', 'i='||i||'after OKC_TIME_UTIL_PVTget_oracle_months_and_days, x_return_status='||x_return_status||
550: ',x_mth_duration='||l_duration||',x_day_duration='||l_additional_days);
551: END IF;
552:
553: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
554: RAISE FND_API.g_exc_unexpected_error;
555: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
556: RAISE FND_API.g_exc_error;
557: END IF;
550: ',x_mth_duration='||l_duration||',x_day_duration='||l_additional_days);
551: END IF;
552:
553: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
554: RAISE FND_API.g_exc_unexpected_error;
555: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
556: RAISE FND_API.g_exc_error;
557: END IF;
558:
551: END IF;
552:
553: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
554: RAISE FND_API.g_exc_unexpected_error;
555: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
556: RAISE FND_API.g_exc_error;
557: END IF;
558:
559: -- add the offset to parent start date
552:
553: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
554: RAISE FND_API.g_exc_unexpected_error;
555: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
556: RAISE FND_API.g_exc_error;
557: END IF;
558:
559: -- add the offset to parent start date
560: l_lines_tbl(i).new_end_date := ADD_MONTHS(
636: END IF;
637:
638: EXCEPTION
639:
640: WHEN FND_API.g_exc_error THEN
641: x_return_status := FND_API.g_ret_sts_error;
642: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
643: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
644: END IF;
637:
638: EXCEPTION
639:
640: WHEN FND_API.g_exc_error THEN
641: x_return_status := FND_API.g_ret_sts_error;
642: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
643: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
644: END IF;
645: RAISE;
643: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
644: END IF;
645: RAISE;
646:
647: WHEN FND_API.g_exc_unexpected_error THEN
648: x_return_status := FND_API.g_ret_sts_unexp_error ;
649: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
650: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
651: END IF;
644: END IF;
645: RAISE;
646:
647: WHEN FND_API.g_exc_unexpected_error THEN
648: x_return_status := FND_API.g_ret_sts_unexp_error ;
649: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
650: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
651: END IF;
652: RAISE;
651: END IF;
652: RAISE;
653:
654: WHEN OTHERS THEN
655: x_return_status := FND_API.g_ret_sts_unexp_error ;
656: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
657: --first log the sqlerrm
658: l_error_text := substr (SQLERRM, 1, 240);
659: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
705:
706: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
707: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_new_chr_id='||p_new_chr_id||' ,p_old_chr_id='||p_old_chr_id);
708: END IF;
709: x_return_status := FND_API.G_RET_STS_SUCCESS;
710:
711:
712: UPDATE okc_k_headers_all_b
713: SET date_renewed = l_date,
739: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='||x_return_status);
740: END IF;
741:
742: EXCEPTION
743: WHEN FND_API.g_exc_error THEN
744: x_return_status := FND_API.g_ret_sts_error;
745: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
746: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
747: END IF;
740: END IF;
741:
742: EXCEPTION
743: WHEN FND_API.g_exc_error THEN
744: x_return_status := FND_API.g_ret_sts_error;
745: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
746: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
747: END IF;
748: RAISE;
746: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
747: END IF;
748: RAISE;
749:
750: WHEN FND_API.g_exc_unexpected_error THEN
751: x_return_status := FND_API.g_ret_sts_unexp_error ;
752: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
753: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
754: END IF;
747: END IF;
748: RAISE;
749:
750: WHEN FND_API.g_exc_unexpected_error THEN
751: x_return_status := FND_API.g_ret_sts_unexp_error ;
752: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
753: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
754: END IF;
755: RAISE;
754: END IF;
755: RAISE;
756:
757: WHEN OTHERS THEN
758: x_return_status := FND_API.g_ret_sts_unexp_error ;
759: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
760: l_error_text := substr (SQLERRM, 1, 240);
761: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
762: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
810: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
811: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id='||p_chr_id||' ,p_new_start_date='||p_new_start_date||' ,p_new_end_date='||p_new_end_date||
812: ' ,p_old_start_date='||p_old_start_date||' ,p_old_end_date='||p_old_end_date);
813: END IF;
814: x_return_status := FND_API.G_RET_STS_SUCCESS;
815:
816: open c_condition_headers(p_chr_id);
817: loop
818: fetch c_condition_headers bulk collect into l_cond_tbl limit G_BULK_FETCH_LIMIT;
859: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='||x_return_status);
860: END IF;
861:
862: EXCEPTION
863: WHEN FND_API.g_exc_error THEN
864: x_return_status := FND_API.g_ret_sts_error;
865: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
866: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
867: END IF;
860: END IF;
861:
862: EXCEPTION
863: WHEN FND_API.g_exc_error THEN
864: x_return_status := FND_API.g_ret_sts_error;
865: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
866: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
867: END IF;
868: RAISE;
866: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
867: END IF;
868: RAISE;
869:
870: WHEN FND_API.g_exc_unexpected_error THEN
871: x_return_status := FND_API.g_ret_sts_unexp_error ;
872: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
873: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
874: END IF;
867: END IF;
868: RAISE;
869:
870: WHEN FND_API.g_exc_unexpected_error THEN
871: x_return_status := FND_API.g_ret_sts_unexp_error ;
872: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
873: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
874: END IF;
875: RAISE;
874: END IF;
875: RAISE;
876:
877: WHEN OTHERS THEN
878: x_return_status := FND_API.g_ret_sts_unexp_error ;
879: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
880: l_error_text := substr (SQLERRM, 1, 240);
881: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
882: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name, l_error_text);
935: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
936: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_price_method='||p_price_method||' ,p_price_list_id='||p_price_list_id||' ,p_markup_percent='||p_markup_percent);
937: END IF;
938:
939: x_return_status := FND_API.G_RET_STS_SUCCESS;
940:
941: l_reprice_rec.contract_id := p_chr_id;
942: IF (p_price_method = 'MAN') THEN
943: l_reprice_rec.price_type := p_price_method;
967: END IF;
968:
969: OKS_REPRICE_PVT.call_pricing_api(
970: p_api_version => 1,
971: p_init_msg_list => FND_API.G_FALSE,
972: p_reprice_rec => l_reprice_rec,
973: x_return_status => x_return_status,
974: x_msg_count => x_msg_count,
975: x_msg_data => x_msg_data);
977: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
978: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.call_pricing_api', 'after call to OKS_REPRICE_PVT.call_pricing_api x_return_status=' || x_return_status);
979: END IF;
980:
981: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
982: RAISE FND_API.g_exc_unexpected_error;
983: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
984: RAISE FND_API.g_exc_error;
985: END IF;
978: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.call_pricing_api', 'after call to OKS_REPRICE_PVT.call_pricing_api x_return_status=' || x_return_status);
979: END IF;
980:
981: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
982: RAISE FND_API.g_exc_unexpected_error;
983: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
984: RAISE FND_API.g_exc_error;
985: END IF;
986:
979: END IF;
980:
981: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
982: RAISE FND_API.g_exc_unexpected_error;
983: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
984: RAISE FND_API.g_exc_error;
985: END IF;
986:
987:
980:
981: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
982: RAISE FND_API.g_exc_unexpected_error;
983: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
984: RAISE FND_API.g_exc_error;
985: END IF;
986:
987:
988: --update the topline price_negotiated(OKC) and tax_amount(OKS) columns
1035: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
1036: END IF;
1037:
1038: EXCEPTION
1039: WHEN FND_API.g_exc_error THEN
1040: x_return_status := FND_API.g_ret_sts_error;
1041: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1042: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
1043: END IF;
1036: END IF;
1037:
1038: EXCEPTION
1039: WHEN FND_API.g_exc_error THEN
1040: x_return_status := FND_API.g_ret_sts_error;
1041: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1042: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
1043: END IF;
1044: IF (c_top_lines%isopen) THEN
1045: CLOSE c_top_lines;
1046: END IF;
1047: RAISE;
1048:
1049: WHEN FND_API.g_exc_unexpected_error THEN
1050: x_return_status := FND_API.g_ret_sts_unexp_error ;
1051: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1052: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
1053: END IF;
1046: END IF;
1047: RAISE;
1048:
1049: WHEN FND_API.g_exc_unexpected_error THEN
1050: x_return_status := FND_API.g_ret_sts_unexp_error ;
1051: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1052: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
1053: END IF;
1054: IF (c_top_lines%isopen) THEN
1056: END IF;
1057: RAISE;
1058:
1059: WHEN OTHERS THEN
1060: x_return_status := FND_API.g_ret_sts_unexp_error ;
1061: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1062: --first log the sqlerrm
1063: l_error_text := substr (SQLERRM, 1, 240);
1064: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
1124: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1125: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_org_id=' || p_org_id||' ,p_party_id='||p_party_id);
1126: END IF;
1127:
1128: x_return_status := FND_API.G_RET_STS_SUCCESS;
1129:
1130: l_prof_terr_qual:= nvl(FND_PROFILE.value('OKS_SRC_TERR_QUALFIERS'), 'V');
1131: IF (l_prof_terr_qual = 'V') THEN
1132: --get the customer name and vendor country and state
1174: fnd_file.put_line(FND_FILE.LOG,' ');
1175:
1176: JTF_TERR_ASSIGN_PUB.get_winners
1177: (p_api_version_number => 1.0,
1178: p_init_msg_list => FND_API.G_FALSE,
1179: p_use_type => 'RESOURCE',
1180: p_source_id => - 1500,
1181: p_trans_id => - 1501,
1182: p_trans_rec => l_gen_bulk_rec,
1179: p_use_type => 'RESOURCE',
1180: p_source_id => - 1500,
1181: p_trans_id => - 1501,
1182: p_trans_rec => l_gen_bulk_rec,
1183: p_resource_type => FND_API.G_MISS_CHAR,
1184: p_role => FND_API.G_MISS_CHAR,
1185: p_top_level_terr_id => FND_API.G_MISS_NUM,
1186: p_num_winners => FND_API.G_MISS_NUM,
1187: x_return_status => x_return_status,
1180: p_source_id => - 1500,
1181: p_trans_id => - 1501,
1182: p_trans_rec => l_gen_bulk_rec,
1183: p_resource_type => FND_API.G_MISS_CHAR,
1184: p_role => FND_API.G_MISS_CHAR,
1185: p_top_level_terr_id => FND_API.G_MISS_NUM,
1186: p_num_winners => FND_API.G_MISS_NUM,
1187: x_return_status => x_return_status,
1188: x_msg_count => x_msg_count,
1181: p_trans_id => - 1501,
1182: p_trans_rec => l_gen_bulk_rec,
1183: p_resource_type => FND_API.G_MISS_CHAR,
1184: p_role => FND_API.G_MISS_CHAR,
1185: p_top_level_terr_id => FND_API.G_MISS_NUM,
1186: p_num_winners => FND_API.G_MISS_NUM,
1187: x_return_status => x_return_status,
1188: x_msg_count => x_msg_count,
1189: x_msg_data => x_msg_data,
1182: p_trans_rec => l_gen_bulk_rec,
1183: p_resource_type => FND_API.G_MISS_CHAR,
1184: p_role => FND_API.G_MISS_CHAR,
1185: p_top_level_terr_id => FND_API.G_MISS_NUM,
1186: p_num_winners => FND_API.G_MISS_NUM,
1187: x_return_status => x_return_status,
1188: x_msg_count => x_msg_count,
1189: x_msg_data => x_msg_data,
1190: x_winners_rec => l_gen_return_rec );
1199: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1200: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_winners', 'after call to JTF_TERR_ASSIGN_PUB.get_winners, x_return_status='||x_return_status);
1201: END IF;
1202:
1203: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1204: RAISE FND_API.g_exc_unexpected_error;
1205: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1206: RAISE FND_API.g_exc_error;
1207: END IF;
1200: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_winners', 'after call to JTF_TERR_ASSIGN_PUB.get_winners, x_return_status='||x_return_status);
1201: END IF;
1202:
1203: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1204: RAISE FND_API.g_exc_unexpected_error;
1205: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1206: RAISE FND_API.g_exc_error;
1207: END IF;
1208:
1201: END IF;
1202:
1203: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1204: RAISE FND_API.g_exc_unexpected_error;
1205: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1206: RAISE FND_API.g_exc_error;
1207: END IF;
1208:
1209: -- bug 5493685
1202:
1203: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1204: RAISE FND_API.g_exc_unexpected_error;
1205: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1206: RAISE FND_API.g_exc_error;
1207: END IF;
1208:
1209: -- bug 5493685
1210: l_count := NVL(l_gen_return_rec.resource_id.COUNT,0);
1253: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1254: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_winners_error', FALSE);
1255: END IF;
1256: FND_MSG_PUB.add;
1257: RAISE FND_API.g_exc_error;
1258: END IF;
1259:
1260: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1261: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status||' ,x_winning_res_id='||x_winning_res_id);
1261: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status||' ,x_winning_res_id='||x_winning_res_id);
1262: END IF;
1263:
1264: EXCEPTION
1265: WHEN FND_API.g_exc_error THEN
1266: x_return_status := FND_API.g_ret_sts_error;
1267: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1268: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
1269: END IF;
1262: END IF;
1263:
1264: EXCEPTION
1265: WHEN FND_API.g_exc_error THEN
1266: x_return_status := FND_API.g_ret_sts_error;
1267: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1268: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
1269: END IF;
1270: IF (c_vendor_details%isopen) THEN
1274: CLOSE c_customer_details;
1275: END IF;
1276: RAISE;
1277:
1278: WHEN FND_API.g_exc_unexpected_error THEN
1279: x_return_status := FND_API.g_ret_sts_unexp_error ;
1280: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1281: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
1282: END IF;
1275: END IF;
1276: RAISE;
1277:
1278: WHEN FND_API.g_exc_unexpected_error THEN
1279: x_return_status := FND_API.g_ret_sts_unexp_error ;
1280: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1281: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
1282: END IF;
1283: IF (c_vendor_details%isopen) THEN
1288: END IF;
1289: RAISE;
1290:
1291: WHEN OTHERS THEN
1292: x_return_status := FND_API.g_ret_sts_unexp_error ;
1293: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1294: --first log the sqlerrm
1295: l_error_text := substr (SQLERRM, 1, 240);
1296: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
1409: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1410: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
1411: END IF;
1412:
1413: x_return_status := FND_API.G_RET_STS_SUCCESS;
1414:
1415: --can have four values, DRT:Derive for Revenue Type and Retain Other
1416: --YES:Derive, NO:Drop, R:Retain, defaults to R
1417: l_prof_enable_sc := nvl(FND_PROFILE.value('OKS_ENABLE_SALES_CREDIT'), 'R');
1447: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1448: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.rev_type_chk', FALSE);
1449: END IF;
1450: FND_MSG_PUB.add;
1451: RAISE FND_API.g_exc_error;
1452: ELSE
1453: DELETE FROM oks_k_sales_credits
1454: WHERE chr_id = p_chr_id;
1455: END IF;
1461: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1462: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.rev_type_chk', FALSE);
1463: END IF;
1464: FND_MSG_PUB.add;
1465: RAISE FND_API.g_exc_error;
1466: ELSE
1467: DELETE FROM oks_k_sales_credits
1468: WHERE chr_id = p_chr_id AND sales_credit_type_id1 = l_prof_rev_type;
1469: END IF;
1486: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1487: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_k_org_party', FALSE);
1488: END IF;
1489: FND_MSG_PUB.ADD;
1490: RAISE FND_API.g_exc_error;
1491: END IF;
1492:
1493: --get the winning salesrep either from JTF or profile option
1494: l_prof_use_jtf := FND_PROFILE.VALUE('OKS_USE_JTF');
1528: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1529: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_jtf_salesrep', FALSE);
1530: END IF;
1531: FND_MSG_PUB.ADD;
1532: RAISE FND_API.g_exc_error;
1533: END IF;
1534:
1535: ELSE
1536: --get the salesrep from profile option
1546: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1547: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_prof_salesrep', FALSE);
1548: END IF;
1549: FND_MSG_PUB.add;
1550: RAISE FND_API.g_exc_error;
1551: END IF;
1552:
1553: END IF; --of IF (l_prof_use_jtf = 'YES') THEN
1554:
1595: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1596: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_ven_mer_id', FALSE);
1597: END IF;
1598: FND_MSG_PUB.add;
1599: RAISE FND_API.g_exc_error;
1600: END IF;
1601:
1602: --get the first cro_code from vendor/merchant contact sources that are based on the
1603: --jtf object OKX_SALEPERS. There can be many contact sources based on OKX_SALEPERS, we
1616: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1617: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_cro_code', FALSE);
1618: END IF;
1619: FND_MSG_PUB.add;
1620: RAISE FND_API.g_exc_error;
1621: END IF;
1622:
1623: --get the sales group id for the salesrep
1624: --function returns -1 for errors
1709: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1710: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_rev_type_dist', FALSE);
1711: END IF;
1712: FND_MSG_PUB.add;
1713: RAISE FND_API.g_exc_error;
1714: END IF;
1715:
1716: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1717: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.hdr_sales_credit', 'creating hdr sales credits with OKS_REVENUE_TYPE_DIST='||l_prof_rev_type_dist);
1797: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
1798: END IF;
1799:
1800: EXCEPTION
1801: WHEN FND_API.g_exc_error THEN
1802: x_return_status := FND_API.g_ret_sts_error;
1803: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1804: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
1805: END IF;
1798: END IF;
1799:
1800: EXCEPTION
1801: WHEN FND_API.g_exc_error THEN
1802: x_return_status := FND_API.g_ret_sts_error;
1803: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1804: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
1805: END IF;
1806: IF ( c_res_salesrep%isopen ) THEN
1822: CLOSE c_get_top_lines;
1823: END IF;
1824: RAISE;
1825:
1826: WHEN FND_API.g_exc_unexpected_error THEN
1827: x_return_status := FND_API.g_ret_sts_unexp_error ;
1828: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1829: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
1830: END IF;
1823: END IF;
1824: RAISE;
1825:
1826: WHEN FND_API.g_exc_unexpected_error THEN
1827: x_return_status := FND_API.g_ret_sts_unexp_error ;
1828: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1829: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
1830: END IF;
1831: IF ( c_res_salesrep%isopen ) THEN
1848: END IF;
1849: RAISE;
1850:
1851: WHEN OTHERS THEN
1852: x_return_status := FND_API.g_ret_sts_unexp_error ;
1853: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1854: --first log the sqlerrm
1855: l_error_text := substr (SQLERRM, 1, 240);
1856: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
1914: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1915: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
1916: END IF;
1917:
1918: x_return_status := FND_API.G_RET_STS_SUCCESS;
1919:
1920: OPEN c_subscr_service_lines(p_chr_id);
1921: LOOP
1922: FETCH c_subscr_service_lines BULK COLLECT INTO l_id_tbl, l_old_id_tbl, l_lse_id_tbl LIMIT G_BULK_FETCH_LIMIT;
1939: END IF;
1940:
1941: OKS_COVERAGES_PVT.copy_coverage(
1942: p_api_version => 1.0,
1943: p_init_msg_list => FND_API.G_FALSE,
1944: x_return_status => x_return_status,
1945: x_msg_count => x_msg_count,
1946: x_msg_data => x_msg_data,
1947: p_contract_line_id => l_id_tbl(i));
1949: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1950: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_coverage', 'after call to OKS_COVERAGES_PVT.Copy_Coverage, x_return_status='||x_return_status);
1951: END IF;
1952:
1953: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1954: RAISE FND_API.g_exc_unexpected_error;
1955: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1956: RAISE FND_API.g_exc_error;
1957: END IF;
1950: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_coverage', 'after call to OKS_COVERAGES_PVT.Copy_Coverage, x_return_status='||x_return_status);
1951: END IF;
1952:
1953: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1954: RAISE FND_API.g_exc_unexpected_error;
1955: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1956: RAISE FND_API.g_exc_error;
1957: END IF;
1958:
1951: END IF;
1952:
1953: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1954: RAISE FND_API.g_exc_unexpected_error;
1955: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1956: RAISE FND_API.g_exc_error;
1957: END IF;
1958:
1959: ELSIF (l_lse_id_tbl(i) = 46) THEN
1952:
1953: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1954: RAISE FND_API.g_exc_unexpected_error;
1955: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1956: RAISE FND_API.g_exc_error;
1957: END IF;
1958:
1959: ELSIF (l_lse_id_tbl(i) = 46) THEN
1960:
1963: END IF;
1964:
1965: OKS_SUBSCRIPTION_PUB.copy_subscription(
1966: p_api_version => 1.0,
1967: p_init_msg_list => FND_API.G_FALSE,
1968: x_return_status => x_return_status,
1969: x_msg_count => x_msg_count,
1970: x_msg_data => x_msg_data,
1971: p_source_cle_id => l_old_id_tbl(i),
1975: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1976: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_subscr', 'after call to OKS_SUBSCRIPTION_PUB.copy_subscription, x_return_status='||x_return_status);
1977: END IF;
1978:
1979: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1980: RAISE FND_API.g_exc_unexpected_error;
1981: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1982: RAISE FND_API.g_exc_error;
1983: END IF;
1976: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'.copy_subscr', 'after call to OKS_SUBSCRIPTION_PUB.copy_subscription, x_return_status='||x_return_status);
1977: END IF;
1978:
1979: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1980: RAISE FND_API.g_exc_unexpected_error;
1981: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1982: RAISE FND_API.g_exc_error;
1983: END IF;
1984: END IF; --of elsif ELSIF (l_lse_id_tbl(i) = 46) THEN
1977: END IF;
1978:
1979: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1980: RAISE FND_API.g_exc_unexpected_error;
1981: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1982: RAISE FND_API.g_exc_error;
1983: END IF;
1984: END IF; --of elsif ELSIF (l_lse_id_tbl(i) = 46) THEN
1985: END LOOP; --of FOR i IN l_id_tbl.first..l_id_tbl.last LOOP
1978:
1979: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1980: RAISE FND_API.g_exc_unexpected_error;
1981: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1982: RAISE FND_API.g_exc_error;
1983: END IF;
1984: END IF; --of elsif ELSIF (l_lse_id_tbl(i) = 46) THEN
1985: END LOOP; --of FOR i IN l_id_tbl.first..l_id_tbl.last LOOP
1986:
1994: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
1995: END IF;
1996:
1997: EXCEPTION
1998: WHEN FND_API.g_exc_error THEN
1999: x_return_status := FND_API.g_ret_sts_error;
2000: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2001: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2002: END IF;
1995: END IF;
1996:
1997: EXCEPTION
1998: WHEN FND_API.g_exc_error THEN
1999: x_return_status := FND_API.g_ret_sts_error;
2000: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2001: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2002: END IF;
2003: IF ( c_subscr_service_lines%isopen ) THEN
2004: CLOSE c_subscr_service_lines;
2005: END IF;
2006: RAISE;
2007:
2008: WHEN FND_API.g_exc_unexpected_error THEN
2009: x_return_status := FND_API.g_ret_sts_unexp_error ;
2010: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2011: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2012: END IF;
2005: END IF;
2006: RAISE;
2007:
2008: WHEN FND_API.g_exc_unexpected_error THEN
2009: x_return_status := FND_API.g_ret_sts_unexp_error ;
2010: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2011: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2012: END IF;
2013: IF ( c_subscr_service_lines%isopen ) THEN
2015: END IF;
2016: RAISE;
2017:
2018: WHEN OTHERS THEN
2019: x_return_status := FND_API.g_ret_sts_unexp_error ;
2020: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2021: --first log the sqlerrm
2022: l_error_text := substr (SQLERRM, 1, 240);
2023: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2085: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2086: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_org_id='||p_org_id||' ,p_contract_number='||p_contract_number);
2087: END IF;
2088:
2089: x_return_status := FND_API.G_RET_STS_SUCCESS;
2090:
2091: OPEN c_get_usage_price_locks(p_chr_id);
2092: LOOP
2093: FETCH c_get_usage_price_locks BULK COLLECT INTO l_old_lpll_tbl, l_new_cid_tbl, l_old_break_uom_tbl LIMIT G_BULK_FETCH_LIMIT;
2128: FND_LOG.string(FND_LOG.level_statement, l_mod_name||'usage_locks_loop', 'after call to QP_LOCK_PRICELIST_GRP.lock_price, x_return_status='||x_return_status||
2129: ' ,x_locked_price_list_id='||l_locked_price_list_id||' ,x_locked_list_line_id='||l_locked_price_list_line_id);
2130: END IF;
2131:
2132: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2133: RAISE FND_API.g_exc_unexpected_error;
2134: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2135: RAISE FND_API.g_exc_error;
2136: END IF;
2129: ' ,x_locked_price_list_id='||l_locked_price_list_id||' ,x_locked_list_line_id='||l_locked_price_list_line_id);
2130: END IF;
2131:
2132: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2133: RAISE FND_API.g_exc_unexpected_error;
2134: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2135: RAISE FND_API.g_exc_error;
2136: END IF;
2137:
2130: END IF;
2131:
2132: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2133: RAISE FND_API.g_exc_unexpected_error;
2134: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2135: RAISE FND_API.g_exc_error;
2136: END IF;
2137:
2138: l_new_lpl_tbl(i) := l_locked_price_list_id;
2131:
2132: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2133: RAISE FND_API.g_exc_unexpected_error;
2134: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2135: RAISE FND_API.g_exc_error;
2136: END IF;
2137:
2138: l_new_lpl_tbl(i) := l_locked_price_list_id;
2139: l_new_lpll_tbl(i) := l_locked_price_list_line_id;
2163: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2164: END IF;
2165:
2166: EXCEPTION
2167: WHEN FND_API.g_exc_error THEN
2168: x_return_status := FND_API.g_ret_sts_error;
2169: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2170: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2171: END IF;
2164: END IF;
2165:
2166: EXCEPTION
2167: WHEN FND_API.g_exc_error THEN
2168: x_return_status := FND_API.g_ret_sts_error;
2169: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2170: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2171: END IF;
2172: IF ( c_get_usage_price_locks%isopen ) THEN
2173: CLOSE c_get_usage_price_locks;
2174: END IF;
2175: RAISE;
2176:
2177: WHEN FND_API.g_exc_unexpected_error THEN
2178: x_return_status := FND_API.g_ret_sts_unexp_error ;
2179: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2180: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2181: END IF;
2174: END IF;
2175: RAISE;
2176:
2177: WHEN FND_API.g_exc_unexpected_error THEN
2178: x_return_status := FND_API.g_ret_sts_unexp_error ;
2179: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2180: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2181: END IF;
2182: IF ( c_get_usage_price_locks%isopen ) THEN
2184: END IF;
2185: RAISE;
2186:
2187: WHEN OTHERS THEN
2188: x_return_status := FND_API.g_ret_sts_unexp_error ;
2189: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2190: --first log the sqlerrm
2191: l_error_text := substr (SQLERRM, 1, 240);
2192: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2238: --log key input parameters
2239: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2240: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_old_chr_id='||p_old_chr_id);
2241: END IF;
2242: x_return_status := FND_API.G_RET_STS_SUCCESS;
2243:
2244: OPEN c_hdr_strlvl(p_old_chr_id);
2245: LOOP
2246: FETCH c_hdr_strlvl BULK COLLECT INTO l_hdr_strlvl_tbl LIMIT G_BULK_FETCH_LIMIT;
2285: END IF;
2286:
2287: OKS_CONTRACT_SLL_PUB.create_sll (
2288: p_api_version => 1,
2289: p_init_msg_list => FND_API.G_FALSE,
2290: x_return_status => x_return_status,
2291: x_msg_count => x_msg_count,
2292: x_msg_data => x_msg_data,
2293: p_sllv_tbl => l_sllv_tbl,
2300: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2301: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'after call to OKS_CONTRACT_SLL_PUB.create_sll, x_return_status='||x_return_status);
2302: END IF;
2303:
2304: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2305: RAISE FND_API.g_exc_unexpected_error;
2306: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2307: RAISE FND_API.g_exc_error;
2308: END IF;
2301: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'after call to OKS_CONTRACT_SLL_PUB.create_sll, x_return_status='||x_return_status);
2302: END IF;
2303:
2304: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2305: RAISE FND_API.g_exc_unexpected_error;
2306: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2307: RAISE FND_API.g_exc_error;
2308: END IF;
2309:
2302: END IF;
2303:
2304: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2305: RAISE FND_API.g_exc_unexpected_error;
2306: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2307: RAISE FND_API.g_exc_error;
2308: END IF;
2309:
2310: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2303:
2304: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2305: RAISE FND_API.g_exc_unexpected_error;
2306: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2307: RAISE FND_API.g_exc_error;
2308: END IF;
2309:
2310: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2311: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'calling OKS_BILL_SCH.create_hdr_schedule');
2320: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2321: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'after call to OKS_BILL_SCH.create_hdr_schedule, x_return_status='||x_return_status);
2322: END IF;
2323:
2324: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2325: RAISE FND_API.g_exc_unexpected_error;
2326: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2327: RAISE FND_API.g_exc_error;
2328: END IF;
2321: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'after call to OKS_BILL_SCH.create_hdr_schedule, x_return_status='||x_return_status);
2322: END IF;
2323:
2324: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2325: RAISE FND_API.g_exc_unexpected_error;
2326: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2327: RAISE FND_API.g_exc_error;
2328: END IF;
2329:
2322: END IF;
2323:
2324: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2325: RAISE FND_API.g_exc_unexpected_error;
2326: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2327: RAISE FND_API.g_exc_error;
2328: END IF;
2329:
2330: END IF; --of IF (l_sllv_tbl.count > 0) THEN
2323:
2324: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2325: RAISE FND_API.g_exc_unexpected_error;
2326: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2327: RAISE FND_API.g_exc_error;
2328: END IF;
2329:
2330: END IF; --of IF (l_sllv_tbl.count > 0) THEN
2331:
2334: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2335: END IF;
2336:
2337: EXCEPTION
2338: WHEN FND_API.g_exc_error THEN
2339: x_return_status := FND_API.g_ret_sts_error;
2340: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2341: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2342: END IF;
2335: END IF;
2336:
2337: EXCEPTION
2338: WHEN FND_API.g_exc_error THEN
2339: x_return_status := FND_API.g_ret_sts_error;
2340: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2341: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2342: END IF;
2343: IF (c_hdr_strlvl%isopen) THEN
2344: CLOSE c_hdr_strlvl;
2345: END IF;
2346: RAISE;
2347:
2348: WHEN FND_API.g_exc_unexpected_error THEN
2349: x_return_status := FND_API.g_ret_sts_unexp_error ;
2350: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2351: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2352: END IF;
2345: END IF;
2346: RAISE;
2347:
2348: WHEN FND_API.g_exc_unexpected_error THEN
2349: x_return_status := FND_API.g_ret_sts_unexp_error ;
2350: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2351: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2352: END IF;
2353: IF (c_hdr_strlvl%isopen) THEN
2355: END IF;
2356: RAISE;
2357:
2358: WHEN OTHERS THEN
2359: x_return_status := FND_API.g_ret_sts_unexp_error ;
2360: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2361: --first log the sqlerrm
2362: l_error_text := substr (SQLERRM, 1, 240);
2363: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2426: --log key input parameters
2427: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2428: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
2429: END IF;
2430: x_return_status := FND_API.G_RET_STS_SUCCESS;
2431:
2432: OPEN c_get_top_lines(p_chr_id);
2433: LOOP
2434: FETCH c_get_top_lines BULK COLLECT INTO l_top_line_tbl LIMIT G_BULK_FETCH_LIMIT;
2470:
2471: FOR j IN l_line_strlvl_tbl.first..l_line_strlvl_tbl.last LOOP
2472: l_line_sll_ctr := l_line_sll_ctr + 1;
2473:
2474: l_line_sllv_tbl(l_line_sll_ctr).id := FND_API.g_miss_num;
2475: l_line_sllv_tbl(l_line_sll_ctr).chr_id := FND_API.g_miss_num;
2476: l_line_sllv_tbl(l_line_sll_ctr).cle_id := l_top_line_tbl(i).id;
2477: l_line_sllv_tbl(l_line_sll_ctr).dnz_chr_id := p_chr_id;
2478: l_line_sllv_tbl(l_line_sll_ctr).sequence_no := l_line_strlvl_tbl(j).sequence_no;
2471: FOR j IN l_line_strlvl_tbl.first..l_line_strlvl_tbl.last LOOP
2472: l_line_sll_ctr := l_line_sll_ctr + 1;
2473:
2474: l_line_sllv_tbl(l_line_sll_ctr).id := FND_API.g_miss_num;
2475: l_line_sllv_tbl(l_line_sll_ctr).chr_id := FND_API.g_miss_num;
2476: l_line_sllv_tbl(l_line_sll_ctr).cle_id := l_top_line_tbl(i).id;
2477: l_line_sllv_tbl(l_line_sll_ctr).dnz_chr_id := p_chr_id;
2478: l_line_sllv_tbl(l_line_sll_ctr).sequence_no := l_line_strlvl_tbl(j).sequence_no;
2479: l_line_sllv_tbl(l_line_sll_ctr).uom_code := l_line_strlvl_tbl(j).uom_code;
2524:
2525: l_bil_sch_out_tbl.delete;
2526: l_line_sllv_tbl.delete;
2527:
2528: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2529: RAISE FND_API.g_exc_unexpected_error;
2530: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2531: RAISE FND_API.g_exc_error;
2532: END IF;
2525: l_bil_sch_out_tbl.delete;
2526: l_line_sllv_tbl.delete;
2527:
2528: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2529: RAISE FND_API.g_exc_unexpected_error;
2530: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2531: RAISE FND_API.g_exc_error;
2532: END IF;
2533:
2526: l_line_sllv_tbl.delete;
2527:
2528: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2529: RAISE FND_API.g_exc_unexpected_error;
2530: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2531: RAISE FND_API.g_exc_error;
2532: END IF;
2533:
2534: END LOOP; --topline loop --FOR i IN l_top_line_tbl.first..l_top_line_tbl.last LOOP
2527:
2528: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2529: RAISE FND_API.g_exc_unexpected_error;
2530: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2531: RAISE FND_API.g_exc_error;
2532: END IF;
2533:
2534: END LOOP; --topline loop --FOR i IN l_top_line_tbl.first..l_top_line_tbl.last LOOP
2535:
2541: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2542: END IF;
2543:
2544: EXCEPTION
2545: WHEN FND_API.g_exc_error THEN
2546: x_return_status := FND_API.g_ret_sts_error;
2547: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2548: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2549: END IF;
2542: END IF;
2543:
2544: EXCEPTION
2545: WHEN FND_API.g_exc_error THEN
2546: x_return_status := FND_API.g_ret_sts_error;
2547: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2548: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2549: END IF;
2550: IF (c_get_top_lines%isopen) THEN
2554: CLOSE c_line_strlvl;
2555: END IF;
2556: RAISE;
2557:
2558: WHEN FND_API.g_exc_unexpected_error THEN
2559: x_return_status := FND_API.g_ret_sts_unexp_error ;
2560: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2561: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2562: END IF;
2555: END IF;
2556: RAISE;
2557:
2558: WHEN FND_API.g_exc_unexpected_error THEN
2559: x_return_status := FND_API.g_ret_sts_unexp_error ;
2560: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2561: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2562: END IF;
2563: IF (c_get_top_lines%isopen) THEN
2568: END IF;
2569: RAISE;
2570:
2571: WHEN OTHERS THEN
2572: x_return_status := FND_API.g_ret_sts_unexp_error ;
2573: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2574: --first log the sqlerrm
2575: l_error_text := substr (SQLERRM, 1, 240);
2576: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2647: --log key input parameters
2648: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2649: FND_LOG.string(FND_LOG.level_procedure, l_mod_name, 'begin p_chr_id=' || p_chr_id||' , p_billing_profile_id='||p_billing_profile_id);
2650: END IF;
2651: x_return_status := FND_API.G_RET_STS_SUCCESS;
2652:
2653: OPEN c_bp_toplines(p_chr_id);
2654: LOOP
2655:
2679: END IF;
2680:
2681: OKS_BILLING_PROFILES_PUB.get_billing_schedule(
2682: p_api_version => 1.0,
2683: p_init_msg_list => FND_API.G_FALSE,
2684: p_billing_profile_rec => l_rec,
2685: x_sll_tbl_out => l_sll_tbl_out,
2686: x_return_status => x_return_status,
2687: x_msg_count => x_msg_count,
2690: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2691: FND_LOG.string(FND_LOG.level_statement, l_mod_name,' get_tl_bill_sch: i='||i||' after call to OKS_BILLING_PROFILES_PUB.get_billing_schedule, x_return_status='||x_return_status||' ,l_sll_tbl_out.count='||l_sll_tbl_out.count);
2692: END IF;
2693:
2694: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2695: RAISE FND_API.g_exc_unexpected_error;
2696: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2697: RAISE FND_API.g_exc_error;
2698: END IF;
2691: FND_LOG.string(FND_LOG.level_statement, l_mod_name,' get_tl_bill_sch: i='||i||' after call to OKS_BILLING_PROFILES_PUB.get_billing_schedule, x_return_status='||x_return_status||' ,l_sll_tbl_out.count='||l_sll_tbl_out.count);
2692: END IF;
2693:
2694: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2695: RAISE FND_API.g_exc_unexpected_error;
2696: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2697: RAISE FND_API.g_exc_error;
2698: END IF;
2699:
2692: END IF;
2693:
2694: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2695: RAISE FND_API.g_exc_unexpected_error;
2696: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2697: RAISE FND_API.g_exc_error;
2698: END IF;
2699:
2700: --note OKS_BILLING_PROFILES_PUB.get_billing_schedule always returns
2693:
2694: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2695: RAISE FND_API.g_exc_unexpected_error;
2696: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2697: RAISE FND_API.g_exc_error;
2698: END IF;
2699:
2700: --note OKS_BILLING_PROFILES_PUB.get_billing_schedule always returns
2701: --one row and the values for invoice_rule_id/account_rule_id don't change for
2758: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2759: FND_LOG.string(FND_LOG.level_statement, l_mod_name, 'create_tl_bill_sch: i='||i||' after call to OKS_BILL_SCH.create_bill_sch_rules, x_return_status='||x_return_status);
2760: END IF;
2761:
2762: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2763: RAISE FND_API.g_exc_unexpected_error;
2764: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2765: RAISE FND_API.g_exc_error;
2766: END IF;
2759: FND_LOG.string(FND_LOG.level_statement, l_mod_name, 'create_tl_bill_sch: i='||i||' after call to OKS_BILL_SCH.create_bill_sch_rules, x_return_status='||x_return_status);
2760: END IF;
2761:
2762: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2763: RAISE FND_API.g_exc_unexpected_error;
2764: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2765: RAISE FND_API.g_exc_error;
2766: END IF;
2767:
2760: END IF;
2761:
2762: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2763: RAISE FND_API.g_exc_unexpected_error;
2764: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2765: RAISE FND_API.g_exc_error;
2766: END IF;
2767:
2768: END IF; --of IF l_sll_tbl_out.COUNT > 0 THEN
2761:
2762: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2763: RAISE FND_API.g_exc_unexpected_error;
2764: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2765: RAISE FND_API.g_exc_error;
2766: END IF;
2767:
2768: END IF; --of IF l_sll_tbl_out.COUNT > 0 THEN
2769: l_sll_tbl_out.delete;
2798: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2799: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.validate_invoice_rule', FALSE);
2800: END IF;
2801: FND_MSG_PUB.ADD;
2802: RAISE FND_API.g_exc_error;
2803: END IF;
2804:
2805: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2806: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.validate_accounting_rule', 'l_account_rule_id='||l_account_rule_id);
2817: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2818: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.validate_accounting_rule', FALSE);
2819: END IF;
2820: FND_MSG_PUB.ADD;
2821: RAISE FND_API.g_exc_error;
2822: END IF;
2823:
2824: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2825: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'upd_inv_rul : updating invoice rule');
2859: FND_LOG.string(FND_LOG.level_procedure, l_mod_name,'end : x_return_status='|| x_return_status);
2860: END IF;
2861:
2862: EXCEPTION
2863: WHEN FND_API.g_exc_error THEN
2864: x_return_status := FND_API.g_ret_sts_error;
2865: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2866: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2867: END IF;
2860: END IF;
2861:
2862: EXCEPTION
2863: WHEN FND_API.g_exc_error THEN
2864: x_return_status := FND_API.g_ret_sts_error;
2865: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2866: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2867: END IF;
2868: IF (c_bp_toplines%isopen) THEN
2875: CLOSE c_chk_accounting_rule;
2876: END IF;
2877: RAISE;
2878:
2879: WHEN FND_API.g_exc_unexpected_error THEN
2880: x_return_status := FND_API.g_ret_sts_unexp_error ;
2881: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2882: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2883: END IF;
2876: END IF;
2877: RAISE;
2878:
2879: WHEN FND_API.g_exc_unexpected_error THEN
2880: x_return_status := FND_API.g_ret_sts_unexp_error ;
2881: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2882: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2883: END IF;
2884: IF (c_bp_toplines%isopen) THEN
2892: END IF;
2893: RAISE;
2894:
2895: WHEN OTHERS THEN
2896: x_return_status := FND_API.g_ret_sts_unexp_error ;
2897: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2898: --first log the sqlerrm
2899: l_error_text := substr (SQLERRM, 1, 240);
2900: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2974: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2975: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_billing_profile_id='||p_billing_profile_id);
2976: END IF;
2977:
2978: x_return_status := FND_API.G_RET_STS_SUCCESS;
2979:
2980: OPEN c_hdr_dates(p_chr_id);
2981: FETCH c_hdr_dates INTO l_new_start_date, l_new_end_date, l_old_start_date, l_old_end_date, l_old_chr_id, l_new_period_type, l_new_period_start, l_old_period_type, l_old_period_start;
2982: CLOSE c_hdr_dates;
2994:
2995: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2996: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_new', 'after call to OKC_TIME_UTIL_PUB.get_duration, x_return_status='||x_return_status||' ,l_new_duration='||l_new_duration||' ,l_new_period='||l_new_period);
2997: END IF;
2998: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2999: RAISE FND_API.g_exc_unexpected_error;
3000: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3001: RAISE FND_API.g_exc_error;
3002: END IF;
2995: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2996: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_new', 'after call to OKC_TIME_UTIL_PUB.get_duration, x_return_status='||x_return_status||' ,l_new_duration='||l_new_duration||' ,l_new_period='||l_new_period);
2997: END IF;
2998: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2999: RAISE FND_API.g_exc_unexpected_error;
3000: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3001: RAISE FND_API.g_exc_error;
3002: END IF;
3003:
2996: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_new', 'after call to OKC_TIME_UTIL_PUB.get_duration, x_return_status='||x_return_status||' ,l_new_duration='||l_new_duration||' ,l_new_period='||l_new_period);
2997: END IF;
2998: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2999: RAISE FND_API.g_exc_unexpected_error;
3000: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3001: RAISE FND_API.g_exc_error;
3002: END IF;
3003:
3004: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2997: END IF;
2998: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2999: RAISE FND_API.g_exc_unexpected_error;
3000: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3001: RAISE FND_API.g_exc_error;
3002: END IF;
3003:
3004: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3005: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_old', 'calling OKC_TIME_UTIL_PUB.get_duration, l_old_start_date='||l_old_start_date||' ,l_old_end_date='||l_old_end_date);
3014:
3015: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3016: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_old', 'after call to OKC_TIME_UTIL_PUB.get_duration, x_return_status='||x_return_status||' ,l_old_duration='||l_old_duration||' ,l_old_period='||l_old_period);
3017: END IF;
3018: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3019: RAISE FND_API.g_exc_unexpected_error;
3020: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3021: RAISE FND_API.g_exc_error;
3022: END IF;
3015: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3016: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_old', 'after call to OKC_TIME_UTIL_PUB.get_duration, x_return_status='||x_return_status||' ,l_old_duration='||l_old_duration||' ,l_old_period='||l_old_period);
3017: END IF;
3018: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3019: RAISE FND_API.g_exc_unexpected_error;
3020: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3021: RAISE FND_API.g_exc_error;
3022: END IF;
3023:
3016: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_duration_old', 'after call to OKC_TIME_UTIL_PUB.get_duration, x_return_status='||x_return_status||' ,l_old_duration='||l_old_duration||' ,l_old_period='||l_old_period);
3017: END IF;
3018: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3019: RAISE FND_API.g_exc_unexpected_error;
3020: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3021: RAISE FND_API.g_exc_error;
3022: END IF;
3023:
3024: --delete billing schedules if old duration <> new duration or billing profile specified
3017: END IF;
3018: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3019: RAISE FND_API.g_exc_unexpected_error;
3020: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3021: RAISE FND_API.g_exc_error;
3022: END IF;
3023:
3024: --delete billing schedules if old duration <> new duration or billing profile specified
3025: IF((l_old_duration <> l_new_duration) OR (l_old_period <> l_new_period) OR
3125: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3126: END IF;
3127:
3128: EXCEPTION
3129: WHEN FND_API.g_exc_error THEN
3130: x_return_status := FND_API.g_ret_sts_error;
3131: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3132: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3133: END IF;
3126: END IF;
3127:
3128: EXCEPTION
3129: WHEN FND_API.g_exc_error THEN
3130: x_return_status := FND_API.g_ret_sts_error;
3131: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3132: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3133: END IF;
3134: IF (c_hdr_dates%isopen) THEN
3135: CLOSE c_hdr_dates;
3136: END IF;
3137: RAISE;
3138:
3139: WHEN FND_API.g_exc_unexpected_error THEN
3140: x_return_status := FND_API.g_ret_sts_unexp_error ;
3141: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3142: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3143: END IF;
3136: END IF;
3137: RAISE;
3138:
3139: WHEN FND_API.g_exc_unexpected_error THEN
3140: x_return_status := FND_API.g_ret_sts_unexp_error ;
3141: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3142: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3143: END IF;
3144: IF (c_hdr_dates%isopen) THEN
3146: END IF;
3147: RAISE;
3148:
3149: WHEN OTHERS THEN
3150: x_return_status := FND_API.g_ret_sts_unexp_error ;
3151: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3152: --first log the sqlerrm
3153: l_error_text := substr (SQLERRM, 1, 240);
3154: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3198: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3199: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_chr_group_id='||p_chr_group_id);
3200: END IF;
3201:
3202: x_return_status := FND_API.G_RET_STS_SUCCESS;
3203:
3204: --check if contract already belongs to this group
3205: OPEN c_group_csr(p_chr_id, p_chr_group_id);
3206: FETCH c_group_csr INTO l_dummy;
3214: IF (l_dummy IS NULL) THEN
3215:
3216: l_cgcv_rec_in.cgp_parent_id := p_chr_group_id;
3217: l_cgcv_rec_in.included_chr_id := p_chr_id;
3218: l_cgcv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3219: l_cgcv_rec_in.created_by := FND_API.G_MISS_NUM;
3220: l_cgcv_rec_in.creation_date := FND_API.G_MISS_DATE;
3221: l_cgcv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3222: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3215:
3216: l_cgcv_rec_in.cgp_parent_id := p_chr_group_id;
3217: l_cgcv_rec_in.included_chr_id := p_chr_id;
3218: l_cgcv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3219: l_cgcv_rec_in.created_by := FND_API.G_MISS_NUM;
3220: l_cgcv_rec_in.creation_date := FND_API.G_MISS_DATE;
3221: l_cgcv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3222: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3223: l_cgcv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3216: l_cgcv_rec_in.cgp_parent_id := p_chr_group_id;
3217: l_cgcv_rec_in.included_chr_id := p_chr_id;
3218: l_cgcv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3219: l_cgcv_rec_in.created_by := FND_API.G_MISS_NUM;
3220: l_cgcv_rec_in.creation_date := FND_API.G_MISS_DATE;
3221: l_cgcv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3222: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3223: l_cgcv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3224: l_cgcv_rec_in.included_cgp_id := NULL;
3217: l_cgcv_rec_in.included_chr_id := p_chr_id;
3218: l_cgcv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3219: l_cgcv_rec_in.created_by := FND_API.G_MISS_NUM;
3220: l_cgcv_rec_in.creation_date := FND_API.G_MISS_DATE;
3221: l_cgcv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3222: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3223: l_cgcv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3224: l_cgcv_rec_in.included_cgp_id := NULL;
3225:
3218: l_cgcv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3219: l_cgcv_rec_in.created_by := FND_API.G_MISS_NUM;
3220: l_cgcv_rec_in.creation_date := FND_API.G_MISS_DATE;
3221: l_cgcv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3222: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3223: l_cgcv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3224: l_cgcv_rec_in.included_cgp_id := NULL;
3225:
3226: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3219: l_cgcv_rec_in.created_by := FND_API.G_MISS_NUM;
3220: l_cgcv_rec_in.creation_date := FND_API.G_MISS_DATE;
3221: l_cgcv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3222: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3223: l_cgcv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3224: l_cgcv_rec_in.included_cgp_id := NULL;
3225:
3226: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3227: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_grp', 'calling OKC_CONTRACT_GROUP_PVT.create_contract_grpngs');
3228: END IF;
3229:
3230: OKC_CONTRACT_GROUP_PVT.create_contract_grpngs(
3231: p_api_version => 1,
3232: p_init_msg_list => FND_API.G_FALSE,
3233: x_return_status => x_return_status,
3234: x_msg_count => x_msg_count,
3235: x_msg_data => x_msg_data,
3236: p_cgcv_rec => l_cgcv_rec_in,
3238:
3239: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3240: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_grp', 'after call to OKC_CONTRACT_GROUP_PVT.create_contract_grpngs, x_return_status='||x_return_status);
3241: END IF;
3242: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3243: RAISE FND_API.g_exc_unexpected_error;
3244: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3245: RAISE FND_API.g_exc_error;
3246: END IF;
3239: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3240: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_grp', 'after call to OKC_CONTRACT_GROUP_PVT.create_contract_grpngs, x_return_status='||x_return_status);
3241: END IF;
3242: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3243: RAISE FND_API.g_exc_unexpected_error;
3244: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3245: RAISE FND_API.g_exc_error;
3246: END IF;
3247:
3240: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_grp', 'after call to OKC_CONTRACT_GROUP_PVT.create_contract_grpngs, x_return_status='||x_return_status);
3241: END IF;
3242: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3243: RAISE FND_API.g_exc_unexpected_error;
3244: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3245: RAISE FND_API.g_exc_error;
3246: END IF;
3247:
3248: END IF;
3241: END IF;
3242: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3243: RAISE FND_API.g_exc_unexpected_error;
3244: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3245: RAISE FND_API.g_exc_error;
3246: END IF;
3247:
3248: END IF;
3249:
3251: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3252: END IF;
3253:
3254: EXCEPTION
3255: WHEN FND_API.g_exc_error THEN
3256: x_return_status := FND_API.g_ret_sts_error;
3257: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3258: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3259: END IF;
3252: END IF;
3253:
3254: EXCEPTION
3255: WHEN FND_API.g_exc_error THEN
3256: x_return_status := FND_API.g_ret_sts_error;
3257: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3258: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3259: END IF;
3260: IF (c_group_csr%isopen) THEN
3261: CLOSE c_group_csr;
3262: END IF;
3263: RAISE;
3264:
3265: WHEN FND_API.g_exc_unexpected_error THEN
3266: x_return_status := FND_API.g_ret_sts_unexp_error ;
3267: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3268: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3269: END IF;
3262: END IF;
3263: RAISE;
3264:
3265: WHEN FND_API.g_exc_unexpected_error THEN
3266: x_return_status := FND_API.g_ret_sts_unexp_error ;
3267: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3268: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3269: END IF;
3270: IF (c_group_csr%isopen) THEN
3272: END IF;
3273: RAISE;
3274:
3275: WHEN OTHERS THEN
3276: x_return_status := FND_API.g_ret_sts_unexp_error ;
3277: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3278: --first log the sqlerrm
3279: l_error_text := substr (SQLERRM, 1, 240);
3280: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3324: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3325: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_pdf_id='||p_pdf_id);
3326: END IF;
3327:
3328: x_return_status := FND_API.G_RET_STS_SUCCESS;
3329:
3330: --check if contract already belongs to this group
3331: OPEN c_pdf(p_chr_id);
3332: FETCH c_pdf INTO l_id, l_pdf_id;
3341: --no process record exists so, create the contract process with the GCD pdf id
3342: l_cpsv_rec_in.pdf_id := p_pdf_id;
3343: l_cpsv_rec_in.chr_id := p_chr_id;
3344: l_cpsv_rec_in.user_id := FND_GLOBAL.USER_ID;
3345: l_cpsv_rec_in.in_process_yn := FND_API.G_MISS_CHAR;
3346: l_cpsv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3347: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3348: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3349: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3342: l_cpsv_rec_in.pdf_id := p_pdf_id;
3343: l_cpsv_rec_in.chr_id := p_chr_id;
3344: l_cpsv_rec_in.user_id := FND_GLOBAL.USER_ID;
3345: l_cpsv_rec_in.in_process_yn := FND_API.G_MISS_CHAR;
3346: l_cpsv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3347: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3348: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3349: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3350: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3343: l_cpsv_rec_in.chr_id := p_chr_id;
3344: l_cpsv_rec_in.user_id := FND_GLOBAL.USER_ID;
3345: l_cpsv_rec_in.in_process_yn := FND_API.G_MISS_CHAR;
3346: l_cpsv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3347: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3348: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3349: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3350: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3351: l_cpsv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3344: l_cpsv_rec_in.user_id := FND_GLOBAL.USER_ID;
3345: l_cpsv_rec_in.in_process_yn := FND_API.G_MISS_CHAR;
3346: l_cpsv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3347: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3348: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3349: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3350: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3351: l_cpsv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3352:
3345: l_cpsv_rec_in.in_process_yn := FND_API.G_MISS_CHAR;
3346: l_cpsv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3347: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3348: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3349: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3350: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3351: l_cpsv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3352:
3353: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3346: l_cpsv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3347: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3348: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3349: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3350: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3351: l_cpsv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3352:
3353: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3354: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_process', 'calling OKC_CONTRACT_PVT.create_contract_process');
3347: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3348: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3349: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3350: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3351: l_cpsv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3352:
3353: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3354: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_process', 'calling OKC_CONTRACT_PVT.create_contract_process');
3355: END IF;
3355: END IF;
3356:
3357: OKC_CONTRACT_PVT.create_contract_process(
3358: p_api_version => 1,
3359: p_init_msg_list => FND_API.G_FALSE,
3360: x_return_status => x_return_status,
3361: x_msg_count => x_msg_count,
3362: x_msg_data => x_msg_data,
3363: p_cpsv_rec => l_cpsv_rec_in,
3365:
3366: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3367: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_process', 'after call to OKC_CONTRACT_PVT.create_contract_process, x_return_status='||x_return_status);
3368: END IF;
3369: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3370: RAISE FND_API.g_exc_unexpected_error;
3371: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3372: RAISE FND_API.g_exc_error;
3373: END IF;
3366: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3367: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_process', 'after call to OKC_CONTRACT_PVT.create_contract_process, x_return_status='||x_return_status);
3368: END IF;
3369: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3370: RAISE FND_API.g_exc_unexpected_error;
3371: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3372: RAISE FND_API.g_exc_error;
3373: END IF;
3374:
3367: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_process', 'after call to OKC_CONTRACT_PVT.create_contract_process, x_return_status='||x_return_status);
3368: END IF;
3369: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3370: RAISE FND_API.g_exc_unexpected_error;
3371: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3372: RAISE FND_API.g_exc_error;
3373: END IF;
3374:
3375: ELSE
3368: END IF;
3369: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3370: RAISE FND_API.g_exc_unexpected_error;
3371: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3372: RAISE FND_API.g_exc_error;
3373: END IF;
3374:
3375: ELSE
3376:
3390: END IF;
3391:
3392: OKC_CONTRACT_PVT.update_contract_process(
3393: p_api_version => 1,
3394: p_init_msg_list => FND_API.G_FALSE,
3395: x_return_status => x_return_status,
3396: x_msg_count => x_msg_count,
3397: x_msg_data => x_msg_data,
3398: p_cpsv_rec => l_cpsv_rec_in,
3400:
3401: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3402: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_k_process', 'after call to OKC_CONTRACT_PVT.update_contract_process, x_return_status='||x_return_status);
3403: END IF;
3404: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3405: RAISE FND_API.g_exc_unexpected_error;
3406: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3407: RAISE FND_API.g_exc_error;
3408: END IF;
3401: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3402: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_k_process', 'after call to OKC_CONTRACT_PVT.update_contract_process, x_return_status='||x_return_status);
3403: END IF;
3404: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3405: RAISE FND_API.g_exc_unexpected_error;
3406: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3407: RAISE FND_API.g_exc_error;
3408: END IF;
3409:
3402: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.update_k_process', 'after call to OKC_CONTRACT_PVT.update_contract_process, x_return_status='||x_return_status);
3403: END IF;
3404: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3405: RAISE FND_API.g_exc_unexpected_error;
3406: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3407: RAISE FND_API.g_exc_error;
3408: END IF;
3409:
3410: END IF;
3403: END IF;
3404: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3405: RAISE FND_API.g_exc_unexpected_error;
3406: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3407: RAISE FND_API.g_exc_error;
3408: END IF;
3409:
3410: END IF;
3411: END IF;
3415: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3416: END IF;
3417:
3418: EXCEPTION
3419: WHEN FND_API.g_exc_error THEN
3420: x_return_status := FND_API.g_ret_sts_error;
3421: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3422: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3423: END IF;
3416: END IF;
3417:
3418: EXCEPTION
3419: WHEN FND_API.g_exc_error THEN
3420: x_return_status := FND_API.g_ret_sts_error;
3421: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3422: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3423: END IF;
3424: IF (c_pdf%isopen) THEN
3425: CLOSE c_pdf;
3426: END IF;
3427: RAISE;
3428:
3429: WHEN FND_API.g_exc_unexpected_error THEN
3430: x_return_status := FND_API.g_ret_sts_unexp_error ;
3431: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3432: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3433: END IF;
3426: END IF;
3427: RAISE;
3428:
3429: WHEN FND_API.g_exc_unexpected_error THEN
3430: x_return_status := FND_API.g_ret_sts_unexp_error ;
3431: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3432: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3433: END IF;
3434: IF (c_pdf%isopen) THEN
3436: END IF;
3437: RAISE;
3438:
3439: WHEN OTHERS THEN
3440: x_return_status := FND_API.g_ret_sts_unexp_error ;
3441: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3442: --first log the sqlerrm
3443: l_error_text := substr (SQLERRM, 1, 240);
3444: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3560: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3561: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
3562: OKS_RENEW_UTIL_PVT.log_rules(l_mod_name || '.effective_renewal_rules', p_rnrl_rec);
3563: END IF;
3564: x_return_status := FND_API.G_RET_STS_SUCCESS;
3565:
3566: OPEN c_k_hdr(p_chr_id);
3567: FETCH c_k_hdr INTO l_k_num, l_k_mod, l_k_org_id, l_qcl_id, l_estimated_amount,
3568: l_k_currency_code, l_payment_term_id,
3612: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.determine_renewal_type', 'calling OKS_RENEW_UTIL_PVT.get_renewal_type');
3613: END IF;
3614: OKS_RENEW_UTIL_PVT.get_renewal_type(
3615: p_api_version => 1,
3616: p_init_msg_list => FND_API.G_FALSE,
3617: x_return_status => x_return_status,
3618: x_msg_count => x_msg_count,
3619: x_msg_data => x_msg_data,
3620: p_chr_id => p_chr_id,
3629: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.determine_renewal_type', 'after call to OKS_RENEW_UTIL_PVT.get_renewal_type, x_renewal_type='||l_renewal_type||
3630: ' ,x_approval_type='||l_approval_type||' ,x_threshold_used='||l_threshold_used);
3631: END IF;
3632:
3633: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3634: RAISE FND_API.g_exc_unexpected_error;
3635: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3636: RAISE FND_API.g_exc_error;
3637: END IF;
3630: ' ,x_approval_type='||l_approval_type||' ,x_threshold_used='||l_threshold_used);
3631: END IF;
3632:
3633: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3634: RAISE FND_API.g_exc_unexpected_error;
3635: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3636: RAISE FND_API.g_exc_error;
3637: END IF;
3638:
3631: END IF;
3632:
3633: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3634: RAISE FND_API.g_exc_unexpected_error;
3635: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3636: RAISE FND_API.g_exc_error;
3637: END IF;
3638:
3639: --set the po required to N if renewal type is EVN
3632:
3633: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3634: RAISE FND_API.g_exc_unexpected_error;
3635: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3636: RAISE FND_API.g_exc_error;
3637: END IF;
3638:
3639: --set the po required to N if renewal type is EVN
3640: IF (l_renewal_type = 'EVN') THEN
3789: END IF;
3790:
3791: OKS_WF_K_PROCESS_PVT.launch_k_process_wf(
3792: p_api_version => 1.0,
3793: p_init_msg_list => FND_API.G_FALSE,
3794: p_wf_attributes => l_wf_attributes,
3795: x_return_status => x_return_status,
3796: x_msg_count => x_msg_count,
3797: x_msg_data => x_msg_data) ;
3799: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3800: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.wfprocess', 'after call to OKS_WF_K_PROCESS_PVT.launch_k_process_wf, x_return_status='||x_return_status);
3801: END IF;
3802:
3803: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3804: RAISE FND_API.g_exc_unexpected_error;
3805: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3806: RAISE FND_API.g_exc_error;
3807: END IF;
3800: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.wfprocess', 'after call to OKS_WF_K_PROCESS_PVT.launch_k_process_wf, x_return_status='||x_return_status);
3801: END IF;
3802:
3803: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3804: RAISE FND_API.g_exc_unexpected_error;
3805: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3806: RAISE FND_API.g_exc_error;
3807: END IF;
3808:
3801: END IF;
3802:
3803: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3804: RAISE FND_API.g_exc_unexpected_error;
3805: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3806: RAISE FND_API.g_exc_error;
3807: END IF;
3808:
3809: -- bug 6086893
3802:
3803: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3804: RAISE FND_API.g_exc_unexpected_error;
3805: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3806: RAISE FND_API.g_exc_error;
3807: END IF;
3808:
3809: -- bug 6086893
3810: -- Added call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble after the workflow is successfully launched
3839: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3840: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble', 'after call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble , x_return_status='||x_return_status);
3841: END IF;
3842:
3843: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3844: RAISE FND_API.g_exc_unexpected_error;
3845: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3846: RAISE FND_API.g_exc_error;
3847: END IF;
3840: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.acn_assemble', 'after call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble , x_return_status='||x_return_status);
3841: END IF;
3842:
3843: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3844: RAISE FND_API.g_exc_unexpected_error;
3845: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3846: RAISE FND_API.g_exc_error;
3847: END IF;
3848:
3841: END IF;
3842:
3843: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3844: RAISE FND_API.g_exc_unexpected_error;
3845: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3846: RAISE FND_API.g_exc_error;
3847: END IF;
3848:
3849:
3842:
3843: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3844: RAISE FND_API.g_exc_unexpected_error;
3845: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3846: RAISE FND_API.g_exc_error;
3847: END IF;
3848:
3849:
3850:
3854: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3855: END IF;
3856:
3857: EXCEPTION
3858: WHEN FND_API.g_exc_error THEN
3859: x_return_status := FND_API.g_ret_sts_error;
3860: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3861: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3862: END IF;
3855: END IF;
3856:
3857: EXCEPTION
3858: WHEN FND_API.g_exc_error THEN
3859: x_return_status := FND_API.g_ret_sts_error;
3860: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3861: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3862: END IF;
3863: IF (c_k_hdr%isopen) THEN
3864: CLOSE c_k_hdr;
3865: END IF;
3866: RAISE;
3867:
3868: WHEN FND_API.g_exc_unexpected_error THEN
3869: x_return_status := FND_API.g_ret_sts_unexp_error ;
3870: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3871: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3872: END IF;
3865: END IF;
3866: RAISE;
3867:
3868: WHEN FND_API.g_exc_unexpected_error THEN
3869: x_return_status := FND_API.g_ret_sts_unexp_error ;
3870: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3871: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3872: END IF;
3873: IF (c_k_hdr%isopen) THEN
3875: END IF;
3876: RAISE;
3877:
3878: WHEN OTHERS THEN
3879: x_return_status := FND_API.g_ret_sts_unexp_error ;
3880: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3881: --first log the sqlerrm
3882: l_error_text := substr (SQLERRM, 1, 240);
3883: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3937: */
3938: PROCEDURE VALIDATE_RENEWAL
3939: (
3940: p_api_version IN NUMBER DEFAULT 1,
3941: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3942: x_return_status OUT NOCOPY VARCHAR2,
3943: x_msg_count OUT NOCOPY NUMBER,
3944: x_msg_data OUT NOCOPY VARCHAR2,
3945: p_chr_id IN NUMBER,
4061: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id ||' ,p_date='|| p_date ||' ,p_validation_level='|| p_validation_level);
4062: END IF;
4063:
4064: --standard api initilization and checks
4065: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4067: END IF;
4068: IF FND_API.to_boolean(p_init_msg_list ) THEN
4069: FND_MSG_PUB.initialize;
4062: END IF;
4063:
4064: --standard api initilization and checks
4065: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4067: END IF;
4068: IF FND_API.to_boolean(p_init_msg_list ) THEN
4069: FND_MSG_PUB.initialize;
4070: END IF;
4064: --standard api initilization and checks
4065: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4066: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4067: END IF;
4068: IF FND_API.to_boolean(p_init_msg_list ) THEN
4069: FND_MSG_PUB.initialize;
4070: END IF;
4071: x_return_status := FND_API.G_RET_STS_SUCCESS;
4072: x_validation_status := G_VALID_STS_SUCCESS;
4067: END IF;
4068: IF FND_API.to_boolean(p_init_msg_list ) THEN
4069: FND_MSG_PUB.initialize;
4070: END IF;
4071: x_return_status := FND_API.G_RET_STS_SUCCESS;
4072: x_validation_status := G_VALID_STS_SUCCESS;
4073:
4074: --first get the basic contract attributes
4075: OPEN c_k_hdr(p_chr_id);
4083: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_k_values', FALSE);
4084: END IF;
4085: FND_MSG_PUB.ADD;
4086: CLOSE c_k_hdr;
4087: RAISE FND_API.g_exc_error;
4088: END IF;
4089: CLOSE c_k_hdr;
4090:
4091: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4232:
4233: OKS_RENEW_UTIL_PVT.get_renew_rules(
4234: x_return_status => x_return_status,
4235: p_api_version => 1.0,
4236: p_init_msg_list => FND_API.G_FALSE,
4237: p_chr_id => p_chr_id,
4238: p_party_id => NULL,
4239: p_org_id => NULL,
4240: p_date => l_date,
4248: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4249: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status ||' ,l_k_ren_type='|| l_k_ren_type);
4250: END IF;
4251:
4252: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4253: RAISE FND_API.g_exc_unexpected_error;
4254: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4255: RAISE FND_API.g_exc_error;
4256: END IF;
4249: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status ||' ,l_k_ren_type='|| l_k_ren_type);
4250: END IF;
4251:
4252: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4253: RAISE FND_API.g_exc_unexpected_error;
4254: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4255: RAISE FND_API.g_exc_error;
4256: END IF;
4257:
4250: END IF;
4251:
4252: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4253: RAISE FND_API.g_exc_unexpected_error;
4254: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4255: RAISE FND_API.g_exc_error;
4256: END IF;
4257:
4258: IF (nvl(l_k_ren_type, 'X') = 'DNR') THEN
4251:
4252: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4253: RAISE FND_API.g_exc_unexpected_error;
4254: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4255: RAISE FND_API.g_exc_error;
4256: END IF;
4257:
4258: IF (nvl(l_k_ren_type, 'X') = 'DNR') THEN
4259: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_DNR_MSG');
4384: END IF;
4385: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4386:
4387: EXCEPTION
4388: WHEN FND_API.g_exc_error THEN
4389: x_return_status := FND_API.g_ret_sts_error ;
4390:
4391: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4392: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4385: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4386:
4387: EXCEPTION
4388: WHEN FND_API.g_exc_error THEN
4389: x_return_status := FND_API.g_ret_sts_error ;
4390:
4391: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4392: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4393: END IF;
4414: IF (c_check_valid_line%isopen) THEN
4415: CLOSE c_check_valid_line;
4416: END IF;
4417:
4418: WHEN FND_API.g_exc_unexpected_error THEN
4419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4420:
4421: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4422: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
4415: CLOSE c_check_valid_line;
4416: END IF;
4417:
4418: WHEN FND_API.g_exc_unexpected_error THEN
4419: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4420:
4421: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4422: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
4423: END IF;
4445: CLOSE c_check_valid_line;
4446: END IF;
4447:
4448: WHEN OTHERS THEN
4449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4450:
4451: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4452: --first log the sqlerrm
4453: l_error_text := substr (SQLERRM, 1, 240);
4502:
4503: PROCEDURE UPDATE_INVOICE_TEXT
4504: (
4505: p_api_version IN NUMBER DEFAULT 1,
4506: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4507: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4508: x_return_status OUT NOCOPY VARCHAR2,
4509: x_msg_count OUT NOCOPY NUMBER,
4510: x_msg_data OUT NOCOPY VARCHAR2,
4503: PROCEDURE UPDATE_INVOICE_TEXT
4504: (
4505: p_api_version IN NUMBER DEFAULT 1,
4506: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4507: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4508: x_return_status OUT NOCOPY VARCHAR2,
4509: x_msg_count OUT NOCOPY NUMBER,
4510: x_msg_data OUT NOCOPY VARCHAR2,
4511: p_chr_id IN NUMBER
4658: END IF;
4659:
4660: --standard api initilization and checks
4661: SAVEPOINT update_invoice_text_PVT;
4662: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4664: END IF;
4665: IF FND_API.to_boolean(p_init_msg_list ) THEN
4666: FND_MSG_PUB.initialize;
4659:
4660: --standard api initilization and checks
4661: SAVEPOINT update_invoice_text_PVT;
4662: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4664: END IF;
4665: IF FND_API.to_boolean(p_init_msg_list ) THEN
4666: FND_MSG_PUB.initialize;
4667: END IF;
4661: SAVEPOINT update_invoice_text_PVT;
4662: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4664: END IF;
4665: IF FND_API.to_boolean(p_init_msg_list ) THEN
4666: FND_MSG_PUB.initialize;
4667: END IF;
4668: x_return_status := FND_API.G_RET_STS_SUCCESS;
4669:
4664: END IF;
4665: IF FND_API.to_boolean(p_init_msg_list ) THEN
4666: FND_MSG_PUB.initialize;
4667: END IF;
4668: x_return_status := FND_API.G_RET_STS_SUCCESS;
4669:
4670: --we will first get and update the topline invoice text
4671: OPEN c_get_topline_txt(p_chr_id);
4672: LOOP
4774: l_sl_id_tbl.delete;
4775: l_cle_id_tbl.delete;
4776:
4777: --standard check of p_commit
4778: IF FND_API.to_boolean( p_commit ) THEN
4779: COMMIT;
4780: END IF;
4781: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4782: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
4785: END IF;
4786: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4787:
4788: EXCEPTION
4789: WHEN FND_API.g_exc_error THEN
4790: ROLLBACK TO update_invoice_text_PVT;
4791: x_return_status := FND_API.g_ret_sts_error ;
4792:
4793: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4787:
4788: EXCEPTION
4789: WHEN FND_API.g_exc_error THEN
4790: ROLLBACK TO update_invoice_text_PVT;
4791: x_return_status := FND_API.g_ret_sts_error ;
4792:
4793: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4794: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4795: END IF;
4794: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4795: END IF;
4796: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4797:
4798: WHEN FND_API.g_exc_unexpected_error THEN
4799: ROLLBACK TO update_invoice_text_PVT;
4800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4801:
4802: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4796: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4797:
4798: WHEN FND_API.g_exc_unexpected_error THEN
4799: ROLLBACK TO update_invoice_text_PVT;
4800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4801:
4802: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4803: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
4804: END IF;
4805: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4806:
4807: WHEN OTHERS THEN
4808: ROLLBACK TO update_invoice_text_PVT;
4809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4810:
4811: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4812: --first log the sqlerrm
4813: l_error_text := substr (SQLERRM, 1, 240);
4833: */
4834: PROCEDURE GET_USER_NAME
4835: (
4836: p_api_version IN NUMBER DEFAULT 1,
4837: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4838: x_return_status OUT NOCOPY VARCHAR2,
4839: x_msg_count OUT NOCOPY NUMBER,
4840: x_msg_data OUT NOCOPY VARCHAR2,
4841: p_chr_id IN NUMBER,
4896: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_hdesk_user_id='||p_hdesk_user_id);
4897: END IF;
4898:
4899: --standard api initilization and checks
4900: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4902: END IF;
4903: IF FND_API.to_boolean(p_init_msg_list ) THEN
4904: FND_MSG_PUB.initialize;
4897: END IF;
4898:
4899: --standard api initilization and checks
4900: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4902: END IF;
4903: IF FND_API.to_boolean(p_init_msg_list ) THEN
4904: FND_MSG_PUB.initialize;
4905: END IF;
4899: --standard api initilization and checks
4900: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4901: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4902: END IF;
4903: IF FND_API.to_boolean(p_init_msg_list ) THEN
4904: FND_MSG_PUB.initialize;
4905: END IF;
4906: x_return_status := FND_API.G_RET_STS_SUCCESS;
4907:
4902: END IF;
4903: IF FND_API.to_boolean(p_init_msg_list ) THEN
4904: FND_MSG_PUB.initialize;
4905: END IF;
4906: x_return_status := FND_API.G_RET_STS_SUCCESS;
4907:
4908: --first get the contract org and id for the merchant/vendor record in okc_k_party_roles_b
4909: OPEN c_k_hdr(p_chr_id);
4910: FETCH c_k_hdr INTO l_org_id, l_cpl_id;
4916: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4917: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation', FALSE);
4918: END IF;
4919: FND_MSG_PUB.ADD;
4920: RAISE FND_API.g_exc_error;
4921: END IF;
4922:
4923: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4924: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_org_cpl', 'l_org_id=' || l_org_id||' ,l_cpl_id='||l_cpl_id);
4954:
4955: OKS_RENEW_UTIL_PVT.get_renew_rules(
4956: x_return_status => x_return_status,
4957: p_api_version => 1.0,
4958: p_init_msg_list => FND_API.G_FALSE,
4959: p_chr_id => p_chr_id,
4960: p_party_id => NULL,
4961: p_org_id => NULL,
4962: p_date => sysdate,
4967:
4968: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4969: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status ||' ,l_user_id='|| x_rnrl_rec.user_id);
4970: END IF;
4971: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4972: RAISE FND_API.g_exc_unexpected_error;
4973: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4974: RAISE FND_API.g_exc_error;
4975: END IF;
4968: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4969: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status ||' ,l_user_id='|| x_rnrl_rec.user_id);
4970: END IF;
4971: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4972: RAISE FND_API.g_exc_unexpected_error;
4973: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4974: RAISE FND_API.g_exc_error;
4975: END IF;
4976:
4969: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status ||' ,l_user_id='|| x_rnrl_rec.user_id);
4970: END IF;
4971: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4972: RAISE FND_API.g_exc_unexpected_error;
4973: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4974: RAISE FND_API.g_exc_error;
4975: END IF;
4976:
4977: l_user_id := x_rnrl_rec.user_id;
4970: END IF;
4971: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4972: RAISE FND_API.g_exc_unexpected_error;
4973: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4974: RAISE FND_API.g_exc_error;
4975: END IF;
4976:
4977: l_user_id := x_rnrl_rec.user_id;
4978:
4986: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4987: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_helpdesk_user', FALSE);
4988: END IF;
4989: FND_MSG_PUB.ADD;
4990: RAISE FND_API.g_exc_error;
4991: END IF;
4992: */
4993:
4994: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5008: END IF;
5009: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5010:
5011: EXCEPTION
5012: WHEN FND_API.g_exc_error THEN
5013: x_return_status := FND_API.g_ret_sts_error ;
5014:
5015: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5016: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
5009: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5010:
5011: EXCEPTION
5012: WHEN FND_API.g_exc_error THEN
5013: x_return_status := FND_API.g_ret_sts_error ;
5014:
5015: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5016: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
5017: END IF;
5025: CLOSE c_fnd_user;
5026: END IF;
5027: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5028:
5029: WHEN FND_API.g_exc_unexpected_error THEN
5030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5031:
5032: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5033: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
5026: END IF;
5027: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5028:
5029: WHEN FND_API.g_exc_unexpected_error THEN
5030: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5031:
5032: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5033: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
5034: END IF;
5043: END IF;
5044: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5045:
5046: WHEN OTHERS THEN
5047: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5048:
5049: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5050: --first log the sqlerrm
5051: l_error_text := substr (SQLERRM, 1, 240);
5100:
5101: PROCEDURE RENEW_CONTRACT
5102: (
5103: p_api_version IN NUMBER,
5104: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5105: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5106: p_chr_id IN NUMBER,
5107: p_new_contract_number IN okc_k_headers_b.contract_number%TYPE,
5108: p_new_contract_modifier IN okc_k_headers_b.contract_number_modifier%TYPE,
5101: PROCEDURE RENEW_CONTRACT
5102: (
5103: p_api_version IN NUMBER,
5104: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5105: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5106: p_chr_id IN NUMBER,
5107: p_new_contract_number IN okc_k_headers_b.contract_number%TYPE,
5108: p_new_contract_modifier IN okc_k_headers_b.contract_number_modifier%TYPE,
5109: p_new_start_date IN DATE,
5194:
5195:
5196: --standard api initilization and checks
5197: SAVEPOINT renew_contract_PVT;
5198: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
5199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5200: END IF;
5201: IF FND_API.to_boolean(p_init_msg_list ) THEN
5202: FND_MSG_PUB.initialize;
5195:
5196: --standard api initilization and checks
5197: SAVEPOINT renew_contract_PVT;
5198: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
5199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5200: END IF;
5201: IF FND_API.to_boolean(p_init_msg_list ) THEN
5202: FND_MSG_PUB.initialize;
5203: END IF;
5197: SAVEPOINT renew_contract_PVT;
5198: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
5199: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5200: END IF;
5201: IF FND_API.to_boolean(p_init_msg_list ) THEN
5202: FND_MSG_PUB.initialize;
5203: END IF;
5204: x_return_status := FND_API.G_RET_STS_SUCCESS;
5205:
5200: END IF;
5201: IF FND_API.to_boolean(p_init_msg_list ) THEN
5202: FND_MSG_PUB.initialize;
5203: END IF;
5204: x_return_status := FND_API.G_RET_STS_SUCCESS;
5205:
5206: /*
5207: Step 1: do basic parameter validation
5208: */
5228: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation1', FALSE);
5229: END IF;
5230: FND_MSG_PUB.ADD;
5231: CLOSE c_k_hdr;
5232: RAISE FND_API.g_exc_error;
5233: END IF;
5234: CLOSE c_k_hdr;
5235:
5236: --new start date < original end date
5239: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5240: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation2', FALSE);
5241: END IF;
5242: FND_MSG_PUB.ADD;
5243: RAISE FND_API.g_exc_error;
5244: END IF;
5245:
5246: --new end date < new start date, if new start date is null use old end date + 1
5247: IF (p_new_end_date IS NOT NULL) AND (p_new_end_date < nvl(p_new_start_date, l_k_end_date + 1)) THEN
5251: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5252: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation3', FALSE);
5253: END IF;
5254: FND_MSG_PUB.ADD;
5255: RAISE FND_API.g_exc_error;
5256: END IF;
5257: --end basic parameter validation
5258:
5259: /*
5282: END IF;
5283:
5284: validate_renewal(
5285: p_api_version => 1,
5286: p_init_msg_list => FND_API.G_FALSE,
5287: x_return_status => x_return_status,
5288: x_msg_count => x_msg_count,
5289: x_msg_data => x_msg_data,
5290: p_chr_id => p_chr_id,
5297: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5298: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.renewal_validation', 'after call to OKS_RENEW_UTIL_PVT.validate_renewal, x_return_status='||x_return_status||' ,x_validation_status='||l_validation_status);
5299: END IF;
5300:
5301: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5302: RAISE FND_API.g_exc_unexpected_error;
5303: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5304: RAISE FND_API.g_exc_error;
5305: END IF;
5298: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.renewal_validation', 'after call to OKS_RENEW_UTIL_PVT.validate_renewal, x_return_status='||x_return_status||' ,x_validation_status='||l_validation_status);
5299: END IF;
5300:
5301: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5302: RAISE FND_API.g_exc_unexpected_error;
5303: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5304: RAISE FND_API.g_exc_error;
5305: END IF;
5306:
5299: END IF;
5300:
5301: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5302: RAISE FND_API.g_exc_unexpected_error;
5303: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5304: RAISE FND_API.g_exc_error;
5305: END IF;
5306:
5307: --if validation errors - stop
5300:
5301: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5302: RAISE FND_API.g_exc_unexpected_error;
5303: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5304: RAISE FND_API.g_exc_error;
5305: END IF;
5306:
5307: --if validation errors - stop
5308: --if validation warnings - stop if called from events
5318: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_USER_DEFINED_MESSAGE');
5319: FND_MESSAGE.set_token('MESSAGE', l_validation_tbl(i).message);
5320: FND_MSG_PUB.add;
5321: END LOOP;
5322: RAISE FND_API.g_exc_error;
5323: END IF;
5324: --end renewal validation
5325:
5326: /*
5373: END IF;
5374:
5375: OKS_COPY_CONTRACT_PVT.copy_contract(
5376: p_api_version => 1,
5377: p_init_msg_list => FND_API.G_FALSE,
5378: x_return_status => x_return_status,
5379: x_msg_count => x_msg_count,
5380: x_msg_data => x_msg_data,
5381: p_commit => FND_API.G_FALSE,
5377: p_init_msg_list => FND_API.G_FALSE,
5378: x_return_status => x_return_status,
5379: x_msg_count => x_msg_count,
5380: x_msg_data => x_msg_data,
5381: p_commit => FND_API.G_FALSE,
5382: p_chr_id => p_chr_id,
5383: p_contract_number => l_renk_num,
5384: p_contract_number_modifier => l_renk_mod,
5385: p_to_template_yn => 'N',
5389: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5390: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.copy_contract', 'after call to OKC_COPY_CONTRACT_PUB.copy_contract, x_return_status='||x_return_status||' ,x_chr_id='||x_chr_id);
5391: END IF;
5392:
5393: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5394: RAISE FND_API.g_exc_unexpected_error;
5395: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5396: RAISE FND_API.g_exc_error;
5397: END IF;
5390: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.copy_contract', 'after call to OKC_COPY_CONTRACT_PUB.copy_contract, x_return_status='||x_return_status||' ,x_chr_id='||x_chr_id);
5391: END IF;
5392:
5393: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5394: RAISE FND_API.g_exc_unexpected_error;
5395: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5396: RAISE FND_API.g_exc_error;
5397: END IF;
5398:
5391: END IF;
5392:
5393: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5394: RAISE FND_API.g_exc_unexpected_error;
5395: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5396: RAISE FND_API.g_exc_error;
5397: END IF;
5398:
5399: --sales credit and copy are the 2 places we can return with a warning
5392:
5393: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5394: RAISE FND_API.g_exc_unexpected_error;
5395: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5396: RAISE FND_API.g_exc_error;
5397: END IF;
5398:
5399: --sales credit and copy are the 2 places we can return with a warning
5400: IF x_return_status = OKC_API.g_ret_sts_warning THEN -- 'W'
5427:
5428: OKS_RENEW_UTIL_PVT.get_renew_rules(
5429: x_return_status => x_return_status,
5430: p_api_version => 1.0,
5431: p_init_msg_list => FND_API.G_FALSE,
5432: p_chr_id => x_chr_id,
5433: p_party_id => NULL,
5434: p_org_id => NULL,
5435: p_date => l_renk_start_date,
5440:
5441: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5442: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status);
5443: END IF;
5444: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5445: RAISE FND_API.g_exc_unexpected_error;
5446: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5447: RAISE FND_API.g_exc_error;
5448: END IF;
5441: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5442: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status);
5443: END IF;
5444: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5445: RAISE FND_API.g_exc_unexpected_error;
5446: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5447: RAISE FND_API.g_exc_error;
5448: END IF;
5449:
5442: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status);
5443: END IF;
5444: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5445: RAISE FND_API.g_exc_unexpected_error;
5446: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5447: RAISE FND_API.g_exc_error;
5448: END IF;
5449:
5450: END IF;
5443: END IF;
5444: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5445: RAISE FND_API.g_exc_unexpected_error;
5446: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5447: RAISE FND_API.g_exc_error;
5448: END IF;
5449:
5450: END IF;
5451: --end of currency/renewal rules check
5547: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.invoice_text', 'calling update_invoice_text, p_chr_id='||x_chr_id);
5548: END IF;
5549: update_invoice_text(
5550: p_api_version => 1,
5551: p_init_msg_list => FND_API.G_FALSE,
5552: p_commit => FND_API.G_FALSE,
5553: x_return_status => x_return_status,
5554: x_msg_count => x_msg_count,
5555: x_msg_data => x_msg_data,
5548: END IF;
5549: update_invoice_text(
5550: p_api_version => 1,
5551: p_init_msg_list => FND_API.G_FALSE,
5552: p_commit => FND_API.G_FALSE,
5553: x_return_status => x_return_status,
5554: x_msg_count => x_msg_count,
5555: x_msg_data => x_msg_data,
5556: p_chr_id => x_chr_id);
5557:
5558: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5559: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.invoice_text', 'after update_invoice_text, x_return_status='||x_return_status);
5560: END IF;
5561: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5562: RAISE FND_API.g_exc_unexpected_error;
5563: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5564: RAISE FND_API.g_exc_error;
5565: END IF;
5558: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5559: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.invoice_text', 'after update_invoice_text, x_return_status='||x_return_status);
5560: END IF;
5561: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5562: RAISE FND_API.g_exc_unexpected_error;
5563: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5564: RAISE FND_API.g_exc_error;
5565: END IF;
5566: --end of invoice text
5559: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.invoice_text', 'after update_invoice_text, x_return_status='||x_return_status);
5560: END IF;
5561: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5562: RAISE FND_API.g_exc_unexpected_error;
5563: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5564: RAISE FND_API.g_exc_error;
5565: END IF;
5566: --end of invoice text
5567:
5560: END IF;
5561: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5562: RAISE FND_API.g_exc_unexpected_error;
5563: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5564: RAISE FND_API.g_exc_error;
5565: END IF;
5566: --end of invoice text
5567:
5568: /*
5757: END IF;
5758:
5759: get_user_name(
5760: p_api_version => 1,
5761: p_init_msg_list => FND_API.G_FALSE,
5762: x_return_status => x_return_status,
5763: x_msg_count => x_msg_count,
5764: x_msg_data => x_msg_data,
5765: p_chr_id => x_chr_id,
5769:
5770: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5771: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_user_name', 'after call to get_user_name, x_return_status='||x_return_status||' ,l_user_id='||l_user_id||' ,l_user_name='||l_user_name);
5772: END IF;
5773: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5774: RAISE FND_API.g_exc_unexpected_error;
5775: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5776: RAISE FND_API.g_exc_error;
5777: END IF;
5770: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5771: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_user_name', 'after call to get_user_name, x_return_status='||x_return_status||' ,l_user_id='||l_user_id||' ,l_user_name='||l_user_name);
5772: END IF;
5773: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5774: RAISE FND_API.g_exc_unexpected_error;
5775: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5776: RAISE FND_API.g_exc_error;
5777: END IF;
5778: --end of get user name
5771: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.get_user_name', 'after call to get_user_name, x_return_status='||x_return_status||' ,l_user_id='||l_user_id||' ,l_user_name='||l_user_name);
5772: END IF;
5773: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5774: RAISE FND_API.g_exc_unexpected_error;
5775: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5776: RAISE FND_API.g_exc_error;
5777: END IF;
5778: --end of get user name
5779:
5772: END IF;
5773: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5774: RAISE FND_API.g_exc_unexpected_error;
5775: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5776: RAISE FND_API.g_exc_error;
5777: END IF;
5778: --end of get user name
5779:
5780: /*
5864: x_return_status := OKC_API.G_RET_STS_WARNING;
5865: END IF;
5866:
5867: --standard check of p_commit
5868: IF FND_API.to_boolean( p_commit ) THEN
5869: COMMIT;
5870: END IF;
5871:
5872: fnd_file.put_line(FND_FILE.LOG,' ');
5883: END IF;
5884: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5885:
5886: EXCEPTION
5887: WHEN FND_API.g_exc_error THEN
5888: ROLLBACK TO renew_contract_PVT;
5889: x_return_status := FND_API.g_ret_sts_error ;
5890:
5891: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5885:
5886: EXCEPTION
5887: WHEN FND_API.g_exc_error THEN
5888: ROLLBACK TO renew_contract_PVT;
5889: x_return_status := FND_API.g_ret_sts_error ;
5890:
5891: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5892: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
5893: END IF;
5898: IF (c_renk_hdr%isopen) THEN
5899: CLOSE c_renk_hdr;
5900: END IF;
5901:
5902: WHEN FND_API.g_exc_unexpected_error THEN
5903: ROLLBACK TO renew_contract_PVT;
5904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5905:
5906: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5900: END IF;
5901:
5902: WHEN FND_API.g_exc_unexpected_error THEN
5903: ROLLBACK TO renew_contract_PVT;
5904: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5905:
5906: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5907: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
5908: END IF;
5915: END IF;
5916:
5917: WHEN OTHERS THEN
5918: ROLLBACK TO renew_contract_PVT;
5919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5920:
5921: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5922: --first log the sqlerrm
5923: l_error_text := substr (SQLERRM, 1, 240);