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);
1408: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1409: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
1410: END IF;
1411:
1412: x_return_status := FND_API.G_RET_STS_SUCCESS;
1413:
1414: --can have four values, DRT:Derive for Revenue Type and Retain Other
1415: --YES:Derive, NO:Drop, R:Retain, defaults to R
1416: l_prof_enable_sc := nvl(FND_PROFILE.value('OKS_ENABLE_SALES_CREDIT'), 'R');
1446: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1447: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.rev_type_chk', FALSE);
1448: END IF;
1449: FND_MSG_PUB.add;
1450: RAISE FND_API.g_exc_error;
1451: ELSE
1452: DELETE FROM oks_k_sales_credits
1453: WHERE chr_id = p_chr_id;
1454: END IF;
1460: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1461: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.rev_type_chk', FALSE);
1462: END IF;
1463: FND_MSG_PUB.add;
1464: RAISE FND_API.g_exc_error;
1465: ELSE
1466: DELETE FROM oks_k_sales_credits
1467: WHERE chr_id = p_chr_id AND sales_credit_type_id1 = l_prof_rev_type;
1468: END IF;
1485: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1486: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_k_org_party', FALSE);
1487: END IF;
1488: FND_MSG_PUB.ADD;
1489: RAISE FND_API.g_exc_error;
1490: END IF;
1491:
1492: --get the winning salesrep either from JTF or profile option
1493: l_prof_use_jtf := FND_PROFILE.VALUE('OKS_USE_JTF');
1527: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1528: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_jtf_salesrep', FALSE);
1529: END IF;
1530: FND_MSG_PUB.ADD;
1531: RAISE FND_API.g_exc_error;
1532: END IF;
1533:
1534: ELSE
1535: --get the salesrep from profile option
1545: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1546: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_prof_salesrep', FALSE);
1547: END IF;
1548: FND_MSG_PUB.add;
1549: RAISE FND_API.g_exc_error;
1550: END IF;
1551:
1552: END IF; --of IF (l_prof_use_jtf = 'YES') THEN
1553:
1594: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1595: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_ven_mer_id', FALSE);
1596: END IF;
1597: FND_MSG_PUB.add;
1598: RAISE FND_API.g_exc_error;
1599: END IF;
1600:
1601: --get the first cro_code from vendor/merchant contact sources that are based on the
1602: --jtf object OKX_SALEPERS. There can be many contact sources based on OKX_SALEPERS, we
1615: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1616: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_cro_code', FALSE);
1617: END IF;
1618: FND_MSG_PUB.add;
1619: RAISE FND_API.g_exc_error;
1620: END IF;
1621:
1622: --get the sales group id for the salesrep
1623: --function returns -1 for errors
1701: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1702: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_rev_type_dist', FALSE);
1703: END IF;
1704: FND_MSG_PUB.add;
1705: RAISE FND_API.g_exc_error;
1706: END IF;
1707:
1708: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1709: 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);
1789: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
1790: END IF;
1791:
1792: EXCEPTION
1793: WHEN FND_API.g_exc_error THEN
1794: x_return_status := FND_API.g_ret_sts_error;
1795: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1796: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
1797: END IF;
1790: END IF;
1791:
1792: EXCEPTION
1793: WHEN FND_API.g_exc_error THEN
1794: x_return_status := FND_API.g_ret_sts_error;
1795: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1796: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
1797: END IF;
1798: IF ( c_res_salesrep%isopen ) THEN
1814: CLOSE c_get_top_lines;
1815: END IF;
1816: RAISE;
1817:
1818: WHEN FND_API.g_exc_unexpected_error THEN
1819: x_return_status := FND_API.g_ret_sts_unexp_error ;
1820: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1821: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
1822: END IF;
1815: END IF;
1816: RAISE;
1817:
1818: WHEN FND_API.g_exc_unexpected_error THEN
1819: x_return_status := FND_API.g_ret_sts_unexp_error ;
1820: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1821: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
1822: END IF;
1823: IF ( c_res_salesrep%isopen ) THEN
1840: END IF;
1841: RAISE;
1842:
1843: WHEN OTHERS THEN
1844: x_return_status := FND_API.g_ret_sts_unexp_error ;
1845: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
1846: --first log the sqlerrm
1847: l_error_text := substr (SQLERRM, 1, 240);
1848: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
1906: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
1907: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
1908: END IF;
1909:
1910: x_return_status := FND_API.G_RET_STS_SUCCESS;
1911:
1912: OPEN c_subscr_service_lines(p_chr_id);
1913: LOOP
1914: FETCH c_subscr_service_lines BULK COLLECT INTO l_id_tbl, l_old_id_tbl, l_lse_id_tbl LIMIT G_BULK_FETCH_LIMIT;
1931: END IF;
1932:
1933: OKS_COVERAGES_PVT.copy_coverage(
1934: p_api_version => 1.0,
1935: p_init_msg_list => FND_API.G_FALSE,
1936: x_return_status => x_return_status,
1937: x_msg_count => x_msg_count,
1938: x_msg_data => x_msg_data,
1939: p_contract_line_id => l_id_tbl(i));
1941: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1942: 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);
1943: END IF;
1944:
1945: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1946: RAISE FND_API.g_exc_unexpected_error;
1947: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1948: RAISE FND_API.g_exc_error;
1949: END IF;
1942: 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);
1943: END IF;
1944:
1945: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1946: RAISE FND_API.g_exc_unexpected_error;
1947: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1948: RAISE FND_API.g_exc_error;
1949: END IF;
1950:
1943: END IF;
1944:
1945: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1946: RAISE FND_API.g_exc_unexpected_error;
1947: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1948: RAISE FND_API.g_exc_error;
1949: END IF;
1950:
1951: ELSIF (l_lse_id_tbl(i) = 46) THEN
1944:
1945: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1946: RAISE FND_API.g_exc_unexpected_error;
1947: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1948: RAISE FND_API.g_exc_error;
1949: END IF;
1950:
1951: ELSIF (l_lse_id_tbl(i) = 46) THEN
1952:
1955: END IF;
1956:
1957: OKS_SUBSCRIPTION_PUB.copy_subscription(
1958: p_api_version => 1.0,
1959: p_init_msg_list => FND_API.G_FALSE,
1960: x_return_status => x_return_status,
1961: x_msg_count => x_msg_count,
1962: x_msg_data => x_msg_data,
1963: p_source_cle_id => l_old_id_tbl(i),
1967: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
1968: 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);
1969: END IF;
1970:
1971: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1972: RAISE FND_API.g_exc_unexpected_error;
1973: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1974: RAISE FND_API.g_exc_error;
1975: END IF;
1968: 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);
1969: END IF;
1970:
1971: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1972: RAISE FND_API.g_exc_unexpected_error;
1973: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1974: RAISE FND_API.g_exc_error;
1975: END IF;
1976: END IF; --of elsif ELSIF (l_lse_id_tbl(i) = 46) THEN
1969: END IF;
1970:
1971: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1972: RAISE FND_API.g_exc_unexpected_error;
1973: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1974: RAISE FND_API.g_exc_error;
1975: END IF;
1976: END IF; --of elsif ELSIF (l_lse_id_tbl(i) = 46) THEN
1977: END LOOP; --of FOR i IN l_id_tbl.first..l_id_tbl.last LOOP
1970:
1971: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
1972: RAISE FND_API.g_exc_unexpected_error;
1973: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
1974: RAISE FND_API.g_exc_error;
1975: END IF;
1976: END IF; --of elsif ELSIF (l_lse_id_tbl(i) = 46) THEN
1977: END LOOP; --of FOR i IN l_id_tbl.first..l_id_tbl.last LOOP
1978:
1986: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
1987: END IF;
1988:
1989: EXCEPTION
1990: WHEN FND_API.g_exc_error THEN
1991: x_return_status := FND_API.g_ret_sts_error;
1992: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1993: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
1994: END IF;
1987: END IF;
1988:
1989: EXCEPTION
1990: WHEN FND_API.g_exc_error THEN
1991: x_return_status := FND_API.g_ret_sts_error;
1992: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
1993: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
1994: END IF;
1995: IF ( c_subscr_service_lines%isopen ) THEN
1996: CLOSE c_subscr_service_lines;
1997: END IF;
1998: RAISE;
1999:
2000: WHEN FND_API.g_exc_unexpected_error THEN
2001: x_return_status := FND_API.g_ret_sts_unexp_error ;
2002: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2003: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2004: END IF;
1997: END IF;
1998: RAISE;
1999:
2000: WHEN FND_API.g_exc_unexpected_error THEN
2001: x_return_status := FND_API.g_ret_sts_unexp_error ;
2002: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2003: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2004: END IF;
2005: IF ( c_subscr_service_lines%isopen ) THEN
2007: END IF;
2008: RAISE;
2009:
2010: WHEN OTHERS THEN
2011: x_return_status := FND_API.g_ret_sts_unexp_error ;
2012: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2013: --first log the sqlerrm
2014: l_error_text := substr (SQLERRM, 1, 240);
2015: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2077: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2078: 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);
2079: END IF;
2080:
2081: x_return_status := FND_API.G_RET_STS_SUCCESS;
2082:
2083: OPEN c_get_usage_price_locks(p_chr_id);
2084: LOOP
2085: 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;
2120: 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||
2121: ' ,x_locked_price_list_id='||l_locked_price_list_id||' ,x_locked_list_line_id='||l_locked_price_list_line_id);
2122: END IF;
2123:
2124: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2125: RAISE FND_API.g_exc_unexpected_error;
2126: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2127: RAISE FND_API.g_exc_error;
2128: END IF;
2121: ' ,x_locked_price_list_id='||l_locked_price_list_id||' ,x_locked_list_line_id='||l_locked_price_list_line_id);
2122: END IF;
2123:
2124: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2125: RAISE FND_API.g_exc_unexpected_error;
2126: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2127: RAISE FND_API.g_exc_error;
2128: END IF;
2129:
2122: END IF;
2123:
2124: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2125: RAISE FND_API.g_exc_unexpected_error;
2126: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2127: RAISE FND_API.g_exc_error;
2128: END IF;
2129:
2130: l_new_lpl_tbl(i) := l_locked_price_list_id;
2123:
2124: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2125: RAISE FND_API.g_exc_unexpected_error;
2126: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2127: RAISE FND_API.g_exc_error;
2128: END IF;
2129:
2130: l_new_lpl_tbl(i) := l_locked_price_list_id;
2131: l_new_lpll_tbl(i) := l_locked_price_list_line_id;
2155: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2156: END IF;
2157:
2158: EXCEPTION
2159: WHEN FND_API.g_exc_error THEN
2160: x_return_status := FND_API.g_ret_sts_error;
2161: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2162: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2163: END IF;
2156: END IF;
2157:
2158: EXCEPTION
2159: WHEN FND_API.g_exc_error THEN
2160: x_return_status := FND_API.g_ret_sts_error;
2161: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2162: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2163: END IF;
2164: IF ( c_get_usage_price_locks%isopen ) THEN
2165: CLOSE c_get_usage_price_locks;
2166: END IF;
2167: RAISE;
2168:
2169: WHEN FND_API.g_exc_unexpected_error THEN
2170: x_return_status := FND_API.g_ret_sts_unexp_error ;
2171: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2172: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2173: END IF;
2166: END IF;
2167: RAISE;
2168:
2169: WHEN FND_API.g_exc_unexpected_error THEN
2170: x_return_status := FND_API.g_ret_sts_unexp_error ;
2171: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2172: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2173: END IF;
2174: IF ( c_get_usage_price_locks%isopen ) THEN
2176: END IF;
2177: RAISE;
2178:
2179: WHEN OTHERS THEN
2180: x_return_status := FND_API.g_ret_sts_unexp_error ;
2181: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2182: --first log the sqlerrm
2183: l_error_text := substr (SQLERRM, 1, 240);
2184: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2229: --log key input parameters
2230: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2231: 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);
2232: END IF;
2233: x_return_status := FND_API.G_RET_STS_SUCCESS;
2234:
2235: OPEN c_hdr_strlvl(p_old_chr_id);
2236: LOOP
2237: FETCH c_hdr_strlvl BULK COLLECT INTO l_hdr_strlvl_tbl LIMIT G_BULK_FETCH_LIMIT;
2276: END IF;
2277:
2278: OKS_CONTRACT_SLL_PUB.create_sll (
2279: p_api_version => 1,
2280: p_init_msg_list => FND_API.G_FALSE,
2281: x_return_status => x_return_status,
2282: x_msg_count => x_msg_count,
2283: x_msg_data => x_msg_data,
2284: p_sllv_tbl => l_sllv_tbl,
2291: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2292: 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);
2293: END IF;
2294:
2295: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2296: RAISE FND_API.g_exc_unexpected_error;
2297: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2298: RAISE FND_API.g_exc_error;
2299: END IF;
2292: 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);
2293: END IF;
2294:
2295: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2296: RAISE FND_API.g_exc_unexpected_error;
2297: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2298: RAISE FND_API.g_exc_error;
2299: END IF;
2300:
2293: END IF;
2294:
2295: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2296: RAISE FND_API.g_exc_unexpected_error;
2297: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2298: RAISE FND_API.g_exc_error;
2299: END IF;
2300:
2301: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2294:
2295: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2296: RAISE FND_API.g_exc_unexpected_error;
2297: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2298: RAISE FND_API.g_exc_error;
2299: END IF;
2300:
2301: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2302: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_hdr_sll', 'calling OKS_BILL_SCH.create_hdr_schedule');
2311: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2312: 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);
2313: END IF;
2314:
2315: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2316: RAISE FND_API.g_exc_unexpected_error;
2317: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2318: RAISE FND_API.g_exc_error;
2319: END IF;
2312: 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);
2313: END IF;
2314:
2315: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2316: RAISE FND_API.g_exc_unexpected_error;
2317: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2318: RAISE FND_API.g_exc_error;
2319: END IF;
2320:
2313: END IF;
2314:
2315: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2316: RAISE FND_API.g_exc_unexpected_error;
2317: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2318: RAISE FND_API.g_exc_error;
2319: END IF;
2320:
2321: END IF; --of IF (l_sllv_tbl.count > 0) THEN
2314:
2315: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2316: RAISE FND_API.g_exc_unexpected_error;
2317: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2318: RAISE FND_API.g_exc_error;
2319: END IF;
2320:
2321: END IF; --of IF (l_sllv_tbl.count > 0) THEN
2322:
2325: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2326: END IF;
2327:
2328: EXCEPTION
2329: WHEN FND_API.g_exc_error THEN
2330: x_return_status := FND_API.g_ret_sts_error;
2331: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2332: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2333: END IF;
2326: END IF;
2327:
2328: EXCEPTION
2329: WHEN FND_API.g_exc_error THEN
2330: x_return_status := FND_API.g_ret_sts_error;
2331: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2332: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2333: END IF;
2334: IF (c_hdr_strlvl%isopen) THEN
2335: CLOSE c_hdr_strlvl;
2336: END IF;
2337: RAISE;
2338:
2339: WHEN FND_API.g_exc_unexpected_error THEN
2340: x_return_status := FND_API.g_ret_sts_unexp_error ;
2341: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2342: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2343: END IF;
2336: END IF;
2337: RAISE;
2338:
2339: WHEN FND_API.g_exc_unexpected_error THEN
2340: x_return_status := FND_API.g_ret_sts_unexp_error ;
2341: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2342: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2343: END IF;
2344: IF (c_hdr_strlvl%isopen) THEN
2346: END IF;
2347: RAISE;
2348:
2349: WHEN OTHERS THEN
2350: x_return_status := FND_API.g_ret_sts_unexp_error ;
2351: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2352: --first log the sqlerrm
2353: l_error_text := substr (SQLERRM, 1, 240);
2354: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2415: --log key input parameters
2416: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2417: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
2418: END IF;
2419: x_return_status := FND_API.G_RET_STS_SUCCESS;
2420:
2421: OPEN c_get_top_lines(p_chr_id);
2422: LOOP
2423: FETCH c_get_top_lines BULK COLLECT INTO l_top_line_tbl LIMIT G_BULK_FETCH_LIMIT;
2459:
2460: FOR j IN l_line_strlvl_tbl.first..l_line_strlvl_tbl.last LOOP
2461: l_line_sll_ctr := l_line_sll_ctr + 1;
2462:
2463: l_line_sllv_tbl(l_line_sll_ctr).id := FND_API.g_miss_num;
2464: l_line_sllv_tbl(l_line_sll_ctr).chr_id := FND_API.g_miss_num;
2465: l_line_sllv_tbl(l_line_sll_ctr).cle_id := l_top_line_tbl(i).id;
2466: l_line_sllv_tbl(l_line_sll_ctr).dnz_chr_id := p_chr_id;
2467: l_line_sllv_tbl(l_line_sll_ctr).sequence_no := l_line_strlvl_tbl(j).sequence_no;
2460: FOR j IN l_line_strlvl_tbl.first..l_line_strlvl_tbl.last LOOP
2461: l_line_sll_ctr := l_line_sll_ctr + 1;
2462:
2463: l_line_sllv_tbl(l_line_sll_ctr).id := FND_API.g_miss_num;
2464: l_line_sllv_tbl(l_line_sll_ctr).chr_id := FND_API.g_miss_num;
2465: l_line_sllv_tbl(l_line_sll_ctr).cle_id := l_top_line_tbl(i).id;
2466: l_line_sllv_tbl(l_line_sll_ctr).dnz_chr_id := p_chr_id;
2467: l_line_sllv_tbl(l_line_sll_ctr).sequence_no := l_line_strlvl_tbl(j).sequence_no;
2468: l_line_sllv_tbl(l_line_sll_ctr).uom_code := l_line_strlvl_tbl(j).uom_code;
2513:
2514: l_bil_sch_out_tbl.delete;
2515: l_line_sllv_tbl.delete;
2516:
2517: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2518: RAISE FND_API.g_exc_unexpected_error;
2519: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2520: RAISE FND_API.g_exc_error;
2521: END IF;
2514: l_bil_sch_out_tbl.delete;
2515: l_line_sllv_tbl.delete;
2516:
2517: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2518: RAISE FND_API.g_exc_unexpected_error;
2519: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2520: RAISE FND_API.g_exc_error;
2521: END IF;
2522:
2515: l_line_sllv_tbl.delete;
2516:
2517: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2518: RAISE FND_API.g_exc_unexpected_error;
2519: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2520: RAISE FND_API.g_exc_error;
2521: END IF;
2522:
2523: END LOOP; --topline loop --FOR i IN l_top_line_tbl.first..l_top_line_tbl.last LOOP
2516:
2517: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2518: RAISE FND_API.g_exc_unexpected_error;
2519: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2520: RAISE FND_API.g_exc_error;
2521: END IF;
2522:
2523: END LOOP; --topline loop --FOR i IN l_top_line_tbl.first..l_top_line_tbl.last LOOP
2524:
2530: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
2531: END IF;
2532:
2533: EXCEPTION
2534: WHEN FND_API.g_exc_error THEN
2535: x_return_status := FND_API.g_ret_sts_error;
2536: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2537: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2538: END IF;
2531: END IF;
2532:
2533: EXCEPTION
2534: WHEN FND_API.g_exc_error THEN
2535: x_return_status := FND_API.g_ret_sts_error;
2536: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2537: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2538: END IF;
2539: IF (c_get_top_lines%isopen) THEN
2543: CLOSE c_line_strlvl;
2544: END IF;
2545: RAISE;
2546:
2547: WHEN FND_API.g_exc_unexpected_error THEN
2548: x_return_status := FND_API.g_ret_sts_unexp_error ;
2549: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2550: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2551: END IF;
2544: END IF;
2545: RAISE;
2546:
2547: WHEN FND_API.g_exc_unexpected_error THEN
2548: x_return_status := FND_API.g_ret_sts_unexp_error ;
2549: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2550: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2551: END IF;
2552: IF (c_get_top_lines%isopen) THEN
2557: END IF;
2558: RAISE;
2559:
2560: WHEN OTHERS THEN
2561: x_return_status := FND_API.g_ret_sts_unexp_error ;
2562: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2563: --first log the sqlerrm
2564: l_error_text := substr (SQLERRM, 1, 240);
2565: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2636: --log key input parameters
2637: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2638: 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);
2639: END IF;
2640: x_return_status := FND_API.G_RET_STS_SUCCESS;
2641:
2642: OPEN c_bp_toplines(p_chr_id);
2643: LOOP
2644:
2668: END IF;
2669:
2670: OKS_BILLING_PROFILES_PUB.get_billing_schedule(
2671: p_api_version => 1.0,
2672: p_init_msg_list => FND_API.G_FALSE,
2673: p_billing_profile_rec => l_rec,
2674: x_sll_tbl_out => l_sll_tbl_out,
2675: x_return_status => x_return_status,
2676: x_msg_count => x_msg_count,
2679: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2680: 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);
2681: END IF;
2682:
2683: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2684: RAISE FND_API.g_exc_unexpected_error;
2685: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2686: RAISE FND_API.g_exc_error;
2687: END IF;
2680: 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);
2681: END IF;
2682:
2683: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2684: RAISE FND_API.g_exc_unexpected_error;
2685: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2686: RAISE FND_API.g_exc_error;
2687: END IF;
2688:
2681: END IF;
2682:
2683: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2684: RAISE FND_API.g_exc_unexpected_error;
2685: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2686: RAISE FND_API.g_exc_error;
2687: END IF;
2688:
2689: --note OKS_BILLING_PROFILES_PUB.get_billing_schedule always returns
2682:
2683: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2684: RAISE FND_API.g_exc_unexpected_error;
2685: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2686: RAISE FND_API.g_exc_error;
2687: END IF;
2688:
2689: --note OKS_BILLING_PROFILES_PUB.get_billing_schedule always returns
2690: --one row and the values for invoice_rule_id/account_rule_id don't change for
2747: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2748: 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);
2749: END IF;
2750:
2751: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2752: RAISE FND_API.g_exc_unexpected_error;
2753: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2754: RAISE FND_API.g_exc_error;
2755: END IF;
2748: 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);
2749: END IF;
2750:
2751: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2752: RAISE FND_API.g_exc_unexpected_error;
2753: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2754: RAISE FND_API.g_exc_error;
2755: END IF;
2756:
2749: END IF;
2750:
2751: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2752: RAISE FND_API.g_exc_unexpected_error;
2753: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2754: RAISE FND_API.g_exc_error;
2755: END IF;
2756:
2757: END IF; --of IF l_sll_tbl_out.COUNT > 0 THEN
2750:
2751: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2752: RAISE FND_API.g_exc_unexpected_error;
2753: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2754: RAISE FND_API.g_exc_error;
2755: END IF;
2756:
2757: END IF; --of IF l_sll_tbl_out.COUNT > 0 THEN
2758: l_sll_tbl_out.delete;
2787: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2788: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.validate_invoice_rule', FALSE);
2789: END IF;
2790: FND_MSG_PUB.ADD;
2791: RAISE FND_API.g_exc_error;
2792: END IF;
2793:
2794: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2795: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.validate_accounting_rule', 'l_account_rule_id='||l_account_rule_id);
2806: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2807: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.validate_accounting_rule', FALSE);
2808: END IF;
2809: FND_MSG_PUB.ADD;
2810: RAISE FND_API.g_exc_error;
2811: END IF;
2812:
2813: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2814: FND_LOG.string(FND_LOG.level_statement, l_mod_name,'upd_inv_rul : updating invoice rule');
2848: FND_LOG.string(FND_LOG.level_procedure, l_mod_name,'end : x_return_status='|| x_return_status);
2849: END IF;
2850:
2851: EXCEPTION
2852: WHEN FND_API.g_exc_error THEN
2853: x_return_status := FND_API.g_ret_sts_error;
2854: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2855: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2856: END IF;
2849: END IF;
2850:
2851: EXCEPTION
2852: WHEN FND_API.g_exc_error THEN
2853: x_return_status := FND_API.g_ret_sts_error;
2854: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
2855: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
2856: END IF;
2857: IF (c_bp_toplines%isopen) THEN
2864: CLOSE c_chk_accounting_rule;
2865: END IF;
2866: RAISE;
2867:
2868: WHEN FND_API.g_exc_unexpected_error THEN
2869: x_return_status := FND_API.g_ret_sts_unexp_error ;
2870: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2871: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2872: END IF;
2865: END IF;
2866: RAISE;
2867:
2868: WHEN FND_API.g_exc_unexpected_error THEN
2869: x_return_status := FND_API.g_ret_sts_unexp_error ;
2870: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2871: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
2872: END IF;
2873: IF (c_bp_toplines%isopen) THEN
2881: END IF;
2882: RAISE;
2883:
2884: WHEN OTHERS THEN
2885: x_return_status := FND_API.g_ret_sts_unexp_error ;
2886: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
2887: --first log the sqlerrm
2888: l_error_text := substr (SQLERRM, 1, 240);
2889: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
2963: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
2964: 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);
2965: END IF;
2966:
2967: x_return_status := FND_API.G_RET_STS_SUCCESS;
2968:
2969: OPEN c_hdr_dates(p_chr_id);
2970: 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;
2971: CLOSE c_hdr_dates;
2983:
2984: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2985: 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);
2986: END IF;
2987: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2988: RAISE FND_API.g_exc_unexpected_error;
2989: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2990: RAISE FND_API.g_exc_error;
2991: END IF;
2984: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2985: 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);
2986: END IF;
2987: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2988: RAISE FND_API.g_exc_unexpected_error;
2989: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2990: RAISE FND_API.g_exc_error;
2991: END IF;
2992:
2985: 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);
2986: END IF;
2987: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2988: RAISE FND_API.g_exc_unexpected_error;
2989: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2990: RAISE FND_API.g_exc_error;
2991: END IF;
2992:
2993: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2986: END IF;
2987: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
2988: RAISE FND_API.g_exc_unexpected_error;
2989: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
2990: RAISE FND_API.g_exc_error;
2991: END IF;
2992:
2993: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
2994: 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);
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', '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);
3006: END IF;
3007: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3008: RAISE FND_API.g_exc_unexpected_error;
3009: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3010: RAISE FND_API.g_exc_error;
3011: END IF;
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', '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);
3006: END IF;
3007: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3008: RAISE FND_API.g_exc_unexpected_error;
3009: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3010: RAISE FND_API.g_exc_error;
3011: END IF;
3012:
3005: 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);
3006: END IF;
3007: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3008: RAISE FND_API.g_exc_unexpected_error;
3009: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3010: RAISE FND_API.g_exc_error;
3011: END IF;
3012:
3013: --delete billing schedules if old duration <> new duration or billing profile specified
3006: END IF;
3007: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3008: RAISE FND_API.g_exc_unexpected_error;
3009: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3010: RAISE FND_API.g_exc_error;
3011: END IF;
3012:
3013: --delete billing schedules if old duration <> new duration or billing profile specified
3014: IF((l_old_duration <> l_new_duration) OR (l_old_period <> l_new_period) OR
3114: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3115: END IF;
3116:
3117: EXCEPTION
3118: WHEN FND_API.g_exc_error THEN
3119: x_return_status := FND_API.g_ret_sts_error;
3120: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3121: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3122: END IF;
3115: END IF;
3116:
3117: EXCEPTION
3118: WHEN FND_API.g_exc_error THEN
3119: x_return_status := FND_API.g_ret_sts_error;
3120: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3121: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3122: END IF;
3123: IF (c_hdr_dates%isopen) THEN
3124: CLOSE c_hdr_dates;
3125: END IF;
3126: RAISE;
3127:
3128: WHEN FND_API.g_exc_unexpected_error THEN
3129: x_return_status := FND_API.g_ret_sts_unexp_error ;
3130: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3131: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3132: END IF;
3125: END IF;
3126: RAISE;
3127:
3128: WHEN FND_API.g_exc_unexpected_error THEN
3129: x_return_status := FND_API.g_ret_sts_unexp_error ;
3130: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3131: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3132: END IF;
3133: IF (c_hdr_dates%isopen) THEN
3135: END IF;
3136: RAISE;
3137:
3138: WHEN OTHERS THEN
3139: x_return_status := FND_API.g_ret_sts_unexp_error ;
3140: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3141: --first log the sqlerrm
3142: l_error_text := substr (SQLERRM, 1, 240);
3143: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3187: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3188: 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);
3189: END IF;
3190:
3191: x_return_status := FND_API.G_RET_STS_SUCCESS;
3192:
3193: --check if contract already belongs to this group
3194: OPEN c_group_csr(p_chr_id, p_chr_group_id);
3195: FETCH c_group_csr INTO l_dummy;
3203: IF (l_dummy IS NULL) THEN
3204:
3205: l_cgcv_rec_in.cgp_parent_id := p_chr_group_id;
3206: l_cgcv_rec_in.included_chr_id := p_chr_id;
3207: l_cgcv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3208: l_cgcv_rec_in.created_by := FND_API.G_MISS_NUM;
3209: l_cgcv_rec_in.creation_date := FND_API.G_MISS_DATE;
3210: l_cgcv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3211: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3204:
3205: l_cgcv_rec_in.cgp_parent_id := p_chr_group_id;
3206: l_cgcv_rec_in.included_chr_id := p_chr_id;
3207: l_cgcv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3208: l_cgcv_rec_in.created_by := FND_API.G_MISS_NUM;
3209: l_cgcv_rec_in.creation_date := FND_API.G_MISS_DATE;
3210: l_cgcv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3211: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3212: l_cgcv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3205: l_cgcv_rec_in.cgp_parent_id := p_chr_group_id;
3206: l_cgcv_rec_in.included_chr_id := p_chr_id;
3207: l_cgcv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3208: l_cgcv_rec_in.created_by := FND_API.G_MISS_NUM;
3209: l_cgcv_rec_in.creation_date := FND_API.G_MISS_DATE;
3210: l_cgcv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3211: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3212: l_cgcv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3213: l_cgcv_rec_in.included_cgp_id := NULL;
3206: l_cgcv_rec_in.included_chr_id := p_chr_id;
3207: l_cgcv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3208: l_cgcv_rec_in.created_by := FND_API.G_MISS_NUM;
3209: l_cgcv_rec_in.creation_date := FND_API.G_MISS_DATE;
3210: l_cgcv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3211: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3212: l_cgcv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3213: l_cgcv_rec_in.included_cgp_id := NULL;
3214:
3207: l_cgcv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3208: l_cgcv_rec_in.created_by := FND_API.G_MISS_NUM;
3209: l_cgcv_rec_in.creation_date := FND_API.G_MISS_DATE;
3210: l_cgcv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3211: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3212: l_cgcv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3213: l_cgcv_rec_in.included_cgp_id := NULL;
3214:
3215: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3208: l_cgcv_rec_in.created_by := FND_API.G_MISS_NUM;
3209: l_cgcv_rec_in.creation_date := FND_API.G_MISS_DATE;
3210: l_cgcv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3211: l_cgcv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3212: l_cgcv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3213: l_cgcv_rec_in.included_cgp_id := NULL;
3214:
3215: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3216: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_grp', 'calling OKC_CONTRACT_GROUP_PVT.create_contract_grpngs');
3217: END IF;
3218:
3219: OKC_CONTRACT_GROUP_PVT.create_contract_grpngs(
3220: p_api_version => 1,
3221: p_init_msg_list => FND_API.G_FALSE,
3222: x_return_status => x_return_status,
3223: x_msg_count => x_msg_count,
3224: x_msg_data => x_msg_data,
3225: p_cgcv_rec => l_cgcv_rec_in,
3227:
3228: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3229: 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);
3230: END IF;
3231: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3232: RAISE FND_API.g_exc_unexpected_error;
3233: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3234: RAISE FND_API.g_exc_error;
3235: END IF;
3228: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3229: 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);
3230: END IF;
3231: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3232: RAISE FND_API.g_exc_unexpected_error;
3233: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3234: RAISE FND_API.g_exc_error;
3235: END IF;
3236:
3229: 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);
3230: END IF;
3231: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3232: RAISE FND_API.g_exc_unexpected_error;
3233: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3234: RAISE FND_API.g_exc_error;
3235: END IF;
3236:
3237: END IF;
3230: END IF;
3231: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3232: RAISE FND_API.g_exc_unexpected_error;
3233: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3234: RAISE FND_API.g_exc_error;
3235: END IF;
3236:
3237: END IF;
3238:
3240: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3241: END IF;
3242:
3243: EXCEPTION
3244: WHEN FND_API.g_exc_error THEN
3245: x_return_status := FND_API.g_ret_sts_error;
3246: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3247: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3248: END IF;
3241: END IF;
3242:
3243: EXCEPTION
3244: WHEN FND_API.g_exc_error THEN
3245: x_return_status := FND_API.g_ret_sts_error;
3246: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3247: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3248: END IF;
3249: IF (c_group_csr%isopen) THEN
3250: CLOSE c_group_csr;
3251: END IF;
3252: RAISE;
3253:
3254: WHEN FND_API.g_exc_unexpected_error THEN
3255: x_return_status := FND_API.g_ret_sts_unexp_error ;
3256: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3257: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3258: END IF;
3251: END IF;
3252: RAISE;
3253:
3254: WHEN FND_API.g_exc_unexpected_error THEN
3255: x_return_status := FND_API.g_ret_sts_unexp_error ;
3256: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3257: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3258: END IF;
3259: IF (c_group_csr%isopen) THEN
3261: END IF;
3262: RAISE;
3263:
3264: WHEN OTHERS THEN
3265: x_return_status := FND_API.g_ret_sts_unexp_error ;
3266: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3267: --first log the sqlerrm
3268: l_error_text := substr (SQLERRM, 1, 240);
3269: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3313: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3314: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id||' ,p_pdf_id='||p_pdf_id);
3315: END IF;
3316:
3317: x_return_status := FND_API.G_RET_STS_SUCCESS;
3318:
3319: --check if contract already belongs to this group
3320: OPEN c_pdf(p_chr_id);
3321: FETCH c_pdf INTO l_id, l_pdf_id;
3330: --no process record exists so, create the contract process with the GCD pdf id
3331: l_cpsv_rec_in.pdf_id := p_pdf_id;
3332: l_cpsv_rec_in.chr_id := p_chr_id;
3333: l_cpsv_rec_in.user_id := FND_GLOBAL.USER_ID;
3334: l_cpsv_rec_in.in_process_yn := FND_API.G_MISS_CHAR;
3335: l_cpsv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3336: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3337: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3338: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3331: l_cpsv_rec_in.pdf_id := p_pdf_id;
3332: l_cpsv_rec_in.chr_id := p_chr_id;
3333: l_cpsv_rec_in.user_id := FND_GLOBAL.USER_ID;
3334: l_cpsv_rec_in.in_process_yn := FND_API.G_MISS_CHAR;
3335: l_cpsv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3336: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3337: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3338: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3339: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3332: l_cpsv_rec_in.chr_id := p_chr_id;
3333: l_cpsv_rec_in.user_id := FND_GLOBAL.USER_ID;
3334: l_cpsv_rec_in.in_process_yn := FND_API.G_MISS_CHAR;
3335: l_cpsv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3336: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3337: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3338: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3339: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3340: l_cpsv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3333: l_cpsv_rec_in.user_id := FND_GLOBAL.USER_ID;
3334: l_cpsv_rec_in.in_process_yn := FND_API.G_MISS_CHAR;
3335: l_cpsv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3336: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3337: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3338: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3339: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3340: l_cpsv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3341:
3334: l_cpsv_rec_in.in_process_yn := FND_API.G_MISS_CHAR;
3335: l_cpsv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3336: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3337: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3338: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3339: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3340: l_cpsv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3341:
3342: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3335: l_cpsv_rec_in.object_version_number := FND_API.G_MISS_NUM;
3336: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3337: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3338: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3339: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3340: l_cpsv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3341:
3342: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3343: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_process', 'calling OKC_CONTRACT_PVT.create_contract_process');
3336: l_cpsv_rec_in.created_by := FND_API.G_MISS_NUM;
3337: l_cpsv_rec_in.creation_date := FND_API.G_MISS_DATE;
3338: l_cpsv_rec_in.last_updated_by := FND_API.G_MISS_NUM;
3339: l_cpsv_rec_in.last_update_date := FND_API.G_MISS_DATE;
3340: l_cpsv_rec_in.last_update_login := FND_API.G_MISS_NUM;
3341:
3342: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3343: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.create_k_process', 'calling OKC_CONTRACT_PVT.create_contract_process');
3344: END IF;
3344: END IF;
3345:
3346: OKC_CONTRACT_PVT.create_contract_process(
3347: p_api_version => 1,
3348: p_init_msg_list => FND_API.G_FALSE,
3349: x_return_status => x_return_status,
3350: x_msg_count => x_msg_count,
3351: x_msg_data => x_msg_data,
3352: p_cpsv_rec => l_cpsv_rec_in,
3354:
3355: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3356: 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);
3357: END IF;
3358: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3359: RAISE FND_API.g_exc_unexpected_error;
3360: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3361: RAISE FND_API.g_exc_error;
3362: END IF;
3355: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3356: 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);
3357: END IF;
3358: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3359: RAISE FND_API.g_exc_unexpected_error;
3360: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3361: RAISE FND_API.g_exc_error;
3362: END IF;
3363:
3356: 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);
3357: END IF;
3358: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3359: RAISE FND_API.g_exc_unexpected_error;
3360: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3361: RAISE FND_API.g_exc_error;
3362: END IF;
3363:
3364: ELSE
3357: END IF;
3358: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3359: RAISE FND_API.g_exc_unexpected_error;
3360: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3361: RAISE FND_API.g_exc_error;
3362: END IF;
3363:
3364: ELSE
3365:
3379: END IF;
3380:
3381: OKC_CONTRACT_PVT.update_contract_process(
3382: p_api_version => 1,
3383: p_init_msg_list => FND_API.G_FALSE,
3384: x_return_status => x_return_status,
3385: x_msg_count => x_msg_count,
3386: x_msg_data => x_msg_data,
3387: p_cpsv_rec => l_cpsv_rec_in,
3389:
3390: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3391: 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);
3392: END IF;
3393: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3394: RAISE FND_API.g_exc_unexpected_error;
3395: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3396: RAISE FND_API.g_exc_error;
3397: END IF;
3390: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3391: 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);
3392: END IF;
3393: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3394: RAISE FND_API.g_exc_unexpected_error;
3395: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3396: RAISE FND_API.g_exc_error;
3397: END IF;
3398:
3391: 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);
3392: END IF;
3393: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3394: RAISE FND_API.g_exc_unexpected_error;
3395: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3396: RAISE FND_API.g_exc_error;
3397: END IF;
3398:
3399: END IF;
3392: END IF;
3393: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3394: RAISE FND_API.g_exc_unexpected_error;
3395: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3396: RAISE FND_API.g_exc_error;
3397: END IF;
3398:
3399: END IF;
3400: END IF;
3404: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3405: END IF;
3406:
3407: EXCEPTION
3408: WHEN FND_API.g_exc_error THEN
3409: x_return_status := FND_API.g_ret_sts_error;
3410: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3411: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3412: END IF;
3405: END IF;
3406:
3407: EXCEPTION
3408: WHEN FND_API.g_exc_error THEN
3409: x_return_status := FND_API.g_ret_sts_error;
3410: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3411: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3412: END IF;
3413: IF (c_pdf%isopen) THEN
3414: CLOSE c_pdf;
3415: END IF;
3416: RAISE;
3417:
3418: WHEN FND_API.g_exc_unexpected_error THEN
3419: x_return_status := FND_API.g_ret_sts_unexp_error ;
3420: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3421: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3422: END IF;
3415: END IF;
3416: RAISE;
3417:
3418: WHEN FND_API.g_exc_unexpected_error THEN
3419: x_return_status := FND_API.g_ret_sts_unexp_error ;
3420: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3421: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3422: END IF;
3423: IF (c_pdf%isopen) THEN
3425: END IF;
3426: RAISE;
3427:
3428: WHEN OTHERS THEN
3429: x_return_status := FND_API.g_ret_sts_unexp_error ;
3430: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3431: --first log the sqlerrm
3432: l_error_text := substr (SQLERRM, 1, 240);
3433: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3537: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
3538: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.begin', 'p_chr_id=' || p_chr_id);
3539: OKS_RENEW_UTIL_PVT.log_rules(l_mod_name || '.effective_renewal_rules', p_rnrl_rec);
3540: END IF;
3541: x_return_status := FND_API.G_RET_STS_SUCCESS;
3542:
3543: OPEN c_k_hdr(p_chr_id);
3544: FETCH c_k_hdr INTO l_k_num, l_k_mod, l_k_org_id, l_qcl_id, l_estimated_amount,
3545: l_k_currency_code, l_payment_term_id,
3589: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.determine_renewal_type', 'calling OKS_RENEW_UTIL_PVT.get_renewal_type');
3590: END IF;
3591: OKS_RENEW_UTIL_PVT.get_renewal_type(
3592: p_api_version => 1,
3593: p_init_msg_list => FND_API.G_FALSE,
3594: x_return_status => x_return_status,
3595: x_msg_count => x_msg_count,
3596: x_msg_data => x_msg_data,
3597: p_chr_id => p_chr_id,
3606: 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||
3607: ' ,x_approval_type='||l_approval_type||' ,x_threshold_used='||l_threshold_used);
3608: END IF;
3609:
3610: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3611: RAISE FND_API.g_exc_unexpected_error;
3612: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3613: RAISE FND_API.g_exc_error;
3614: END IF;
3607: ' ,x_approval_type='||l_approval_type||' ,x_threshold_used='||l_threshold_used);
3608: END IF;
3609:
3610: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3611: RAISE FND_API.g_exc_unexpected_error;
3612: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3613: RAISE FND_API.g_exc_error;
3614: END IF;
3615:
3608: END IF;
3609:
3610: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3611: RAISE FND_API.g_exc_unexpected_error;
3612: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3613: RAISE FND_API.g_exc_error;
3614: END IF;
3615:
3616: --set the po required to N if renewal type is EVN
3609:
3610: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3611: RAISE FND_API.g_exc_unexpected_error;
3612: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3613: RAISE FND_API.g_exc_error;
3614: END IF;
3615:
3616: --set the po required to N if renewal type is EVN
3617: IF (l_renewal_type = 'EVN') THEN
3754: END IF;
3755:
3756: OKS_WF_K_PROCESS_PVT.launch_k_process_wf(
3757: p_api_version => 1.0,
3758: p_init_msg_list => FND_API.G_FALSE,
3759: p_wf_attributes => l_wf_attributes,
3760: x_return_status => x_return_status,
3761: x_msg_count => x_msg_count,
3762: x_msg_data => x_msg_data) ;
3764: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3765: 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);
3766: END IF;
3767:
3768: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3769: RAISE FND_API.g_exc_unexpected_error;
3770: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3771: RAISE FND_API.g_exc_error;
3772: END IF;
3765: 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);
3766: END IF;
3767:
3768: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3769: RAISE FND_API.g_exc_unexpected_error;
3770: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3771: RAISE FND_API.g_exc_error;
3772: END IF;
3773:
3766: END IF;
3767:
3768: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3769: RAISE FND_API.g_exc_unexpected_error;
3770: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3771: RAISE FND_API.g_exc_error;
3772: END IF;
3773:
3774: -- bug 6086893
3767:
3768: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3769: RAISE FND_API.g_exc_unexpected_error;
3770: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3771: RAISE FND_API.g_exc_error;
3772: END IF;
3773:
3774: -- bug 6086893
3775: -- Added call to OKC_K_RENEW_ASMBLR_PVT.acn_assemble after the workflow is successfully launched
3804: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
3805: 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);
3806: END IF;
3807:
3808: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3809: RAISE FND_API.g_exc_unexpected_error;
3810: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3811: RAISE FND_API.g_exc_error;
3812: END IF;
3805: 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);
3806: END IF;
3807:
3808: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3809: RAISE FND_API.g_exc_unexpected_error;
3810: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3811: RAISE FND_API.g_exc_error;
3812: END IF;
3813:
3806: END IF;
3807:
3808: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3809: RAISE FND_API.g_exc_unexpected_error;
3810: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3811: RAISE FND_API.g_exc_error;
3812: END IF;
3813:
3814:
3807:
3808: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
3809: RAISE FND_API.g_exc_unexpected_error;
3810: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
3811: RAISE FND_API.g_exc_error;
3812: END IF;
3813:
3814:
3815:
3819: FND_LOG.string(FND_LOG.level_procedure, l_mod_name || '.end', 'x_return_status='|| x_return_status);
3820: END IF;
3821:
3822: EXCEPTION
3823: WHEN FND_API.g_exc_error THEN
3824: x_return_status := FND_API.g_ret_sts_error;
3825: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3826: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3827: END IF;
3820: END IF;
3821:
3822: EXCEPTION
3823: WHEN FND_API.g_exc_error THEN
3824: x_return_status := FND_API.g_ret_sts_error;
3825: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
3826: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
3827: END IF;
3828: IF (c_k_hdr%isopen) THEN
3829: CLOSE c_k_hdr;
3830: END IF;
3831: RAISE;
3832:
3833: WHEN FND_API.g_exc_unexpected_error THEN
3834: x_return_status := FND_API.g_ret_sts_unexp_error ;
3835: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3836: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3837: END IF;
3830: END IF;
3831: RAISE;
3832:
3833: WHEN FND_API.g_exc_unexpected_error THEN
3834: x_return_status := FND_API.g_ret_sts_unexp_error ;
3835: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3836: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
3837: END IF;
3838: IF (c_k_hdr%isopen) THEN
3840: END IF;
3841: RAISE;
3842:
3843: WHEN OTHERS THEN
3844: x_return_status := FND_API.g_ret_sts_unexp_error ;
3845: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
3846: --first log the sqlerrm
3847: l_error_text := substr (SQLERRM, 1, 240);
3848: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_other_error', l_error_text);
3902: */
3903: PROCEDURE VALIDATE_RENEWAL
3904: (
3905: p_api_version IN NUMBER DEFAULT 1,
3906: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3907: x_return_status OUT NOCOPY VARCHAR2,
3908: x_msg_count OUT NOCOPY NUMBER,
3909: x_msg_data OUT NOCOPY VARCHAR2,
3910: p_chr_id IN NUMBER,
4026: 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);
4027: END IF;
4028:
4029: --standard api initilization and checks
4030: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4032: END IF;
4033: IF FND_API.to_boolean(p_init_msg_list ) THEN
4034: FND_MSG_PUB.initialize;
4027: END IF;
4028:
4029: --standard api initilization and checks
4030: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4032: END IF;
4033: IF FND_API.to_boolean(p_init_msg_list ) THEN
4034: FND_MSG_PUB.initialize;
4035: END IF;
4029: --standard api initilization and checks
4030: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4031: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4032: END IF;
4033: IF FND_API.to_boolean(p_init_msg_list ) THEN
4034: FND_MSG_PUB.initialize;
4035: END IF;
4036: x_return_status := FND_API.G_RET_STS_SUCCESS;
4037: x_validation_status := G_VALID_STS_SUCCESS;
4032: END IF;
4033: IF FND_API.to_boolean(p_init_msg_list ) THEN
4034: FND_MSG_PUB.initialize;
4035: END IF;
4036: x_return_status := FND_API.G_RET_STS_SUCCESS;
4037: x_validation_status := G_VALID_STS_SUCCESS;
4038:
4039: --first get the basic contract attributes
4040: OPEN c_k_hdr(p_chr_id);
4048: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_k_values', FALSE);
4049: END IF;
4050: FND_MSG_PUB.ADD;
4051: CLOSE c_k_hdr;
4052: RAISE FND_API.g_exc_error;
4053: END IF;
4054: CLOSE c_k_hdr;
4055:
4056: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4197:
4198: OKS_RENEW_UTIL_PVT.get_renew_rules(
4199: x_return_status => x_return_status,
4200: p_api_version => 1.0,
4201: p_init_msg_list => FND_API.G_FALSE,
4202: p_chr_id => p_chr_id,
4203: p_party_id => NULL,
4204: p_org_id => NULL,
4205: p_date => l_date,
4213: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4214: 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);
4215: END IF;
4216:
4217: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4218: RAISE FND_API.g_exc_unexpected_error;
4219: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4220: RAISE FND_API.g_exc_error;
4221: END IF;
4214: 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);
4215: END IF;
4216:
4217: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4218: RAISE FND_API.g_exc_unexpected_error;
4219: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4220: RAISE FND_API.g_exc_error;
4221: END IF;
4222:
4215: END IF;
4216:
4217: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4218: RAISE FND_API.g_exc_unexpected_error;
4219: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4220: RAISE FND_API.g_exc_error;
4221: END IF;
4222:
4223: IF (nvl(l_k_ren_type, 'X') = 'DNR') THEN
4216:
4217: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4218: RAISE FND_API.g_exc_unexpected_error;
4219: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4220: RAISE FND_API.g_exc_error;
4221: END IF;
4222:
4223: IF (nvl(l_k_ren_type, 'X') = 'DNR') THEN
4224: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_DNR_MSG');
4349: END IF;
4350: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4351:
4352: EXCEPTION
4353: WHEN FND_API.g_exc_error THEN
4354: x_return_status := FND_API.g_ret_sts_error ;
4355:
4356: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4357: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4350: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4351:
4352: EXCEPTION
4353: WHEN FND_API.g_exc_error THEN
4354: x_return_status := FND_API.g_ret_sts_error ;
4355:
4356: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4357: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4358: END IF;
4379: IF (c_check_valid_line%isopen) THEN
4380: CLOSE c_check_valid_line;
4381: END IF;
4382:
4383: WHEN FND_API.g_exc_unexpected_error THEN
4384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4385:
4386: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4387: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
4380: CLOSE c_check_valid_line;
4381: END IF;
4382:
4383: WHEN FND_API.g_exc_unexpected_error THEN
4384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4385:
4386: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4387: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
4388: END IF;
4410: CLOSE c_check_valid_line;
4411: END IF;
4412:
4413: WHEN OTHERS THEN
4414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4415:
4416: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4417: --first log the sqlerrm
4418: l_error_text := substr (SQLERRM, 1, 240);
4467:
4468: PROCEDURE UPDATE_INVOICE_TEXT
4469: (
4470: p_api_version IN NUMBER DEFAULT 1,
4471: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4472: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4473: x_return_status OUT NOCOPY VARCHAR2,
4474: x_msg_count OUT NOCOPY NUMBER,
4475: x_msg_data OUT NOCOPY VARCHAR2,
4468: PROCEDURE UPDATE_INVOICE_TEXT
4469: (
4470: p_api_version IN NUMBER DEFAULT 1,
4471: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4472: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4473: x_return_status OUT NOCOPY VARCHAR2,
4474: x_msg_count OUT NOCOPY NUMBER,
4475: x_msg_data OUT NOCOPY VARCHAR2,
4476: p_chr_id IN NUMBER
4623: END IF;
4624:
4625: --standard api initilization and checks
4626: SAVEPOINT update_invoice_text_PVT;
4627: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4629: END IF;
4630: IF FND_API.to_boolean(p_init_msg_list ) THEN
4631: FND_MSG_PUB.initialize;
4624:
4625: --standard api initilization and checks
4626: SAVEPOINT update_invoice_text_PVT;
4627: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4629: END IF;
4630: IF FND_API.to_boolean(p_init_msg_list ) THEN
4631: FND_MSG_PUB.initialize;
4632: END IF;
4626: SAVEPOINT update_invoice_text_PVT;
4627: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4629: END IF;
4630: IF FND_API.to_boolean(p_init_msg_list ) THEN
4631: FND_MSG_PUB.initialize;
4632: END IF;
4633: x_return_status := FND_API.G_RET_STS_SUCCESS;
4634:
4629: END IF;
4630: IF FND_API.to_boolean(p_init_msg_list ) THEN
4631: FND_MSG_PUB.initialize;
4632: END IF;
4633: x_return_status := FND_API.G_RET_STS_SUCCESS;
4634:
4635: --we will first get and update the topline invoice text
4636: OPEN c_get_topline_txt(p_chr_id);
4637: LOOP
4739: l_sl_id_tbl.delete;
4740: l_cle_id_tbl.delete;
4741:
4742: --standard check of p_commit
4743: IF FND_API.to_boolean( p_commit ) THEN
4744: COMMIT;
4745: END IF;
4746: IF (FND_LOG.level_procedure >= FND_LOG.g_current_runtime_level) THEN
4747: IF (FND_LOG.test(FND_LOG.level_procedure, l_mod_name)) THEN
4750: END IF;
4751: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4752:
4753: EXCEPTION
4754: WHEN FND_API.g_exc_error THEN
4755: ROLLBACK TO update_invoice_text_PVT;
4756: x_return_status := FND_API.g_ret_sts_error ;
4757:
4758: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4752:
4753: EXCEPTION
4754: WHEN FND_API.g_exc_error THEN
4755: ROLLBACK TO update_invoice_text_PVT;
4756: x_return_status := FND_API.g_ret_sts_error ;
4757:
4758: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4759: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4760: END IF;
4759: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4760: END IF;
4761: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4762:
4763: WHEN FND_API.g_exc_unexpected_error THEN
4764: ROLLBACK TO update_invoice_text_PVT;
4765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4766:
4767: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4761: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4762:
4763: WHEN FND_API.g_exc_unexpected_error THEN
4764: ROLLBACK TO update_invoice_text_PVT;
4765: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4766:
4767: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4768: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
4769: END IF;
4770: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4771:
4772: WHEN OTHERS THEN
4773: ROLLBACK TO update_invoice_text_PVT;
4774: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4775:
4776: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4777: --first log the sqlerrm
4778: l_error_text := substr (SQLERRM, 1, 240);
4798: */
4799: PROCEDURE GET_USER_NAME
4800: (
4801: p_api_version IN NUMBER DEFAULT 1,
4802: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
4803: x_return_status OUT NOCOPY VARCHAR2,
4804: x_msg_count OUT NOCOPY NUMBER,
4805: x_msg_data OUT NOCOPY VARCHAR2,
4806: p_chr_id IN NUMBER,
4861: 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);
4862: END IF;
4863:
4864: --standard api initilization and checks
4865: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4867: END IF;
4868: IF FND_API.to_boolean(p_init_msg_list ) THEN
4869: FND_MSG_PUB.initialize;
4862: END IF;
4863:
4864: --standard api initilization and checks
4865: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4867: END IF;
4868: IF FND_API.to_boolean(p_init_msg_list ) THEN
4869: FND_MSG_PUB.initialize;
4870: END IF;
4864: --standard api initilization and checks
4865: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
4866: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4867: END IF;
4868: IF FND_API.to_boolean(p_init_msg_list ) THEN
4869: FND_MSG_PUB.initialize;
4870: END IF;
4871: x_return_status := FND_API.G_RET_STS_SUCCESS;
4872:
4867: END IF;
4868: IF FND_API.to_boolean(p_init_msg_list ) THEN
4869: FND_MSG_PUB.initialize;
4870: END IF;
4871: x_return_status := FND_API.G_RET_STS_SUCCESS;
4872:
4873: --first get the contract org and id for the merchant/vendor record in okc_k_party_roles_b
4874: OPEN c_k_hdr(p_chr_id);
4875: FETCH c_k_hdr INTO l_org_id, l_cpl_id;
4881: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4882: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation', FALSE);
4883: END IF;
4884: FND_MSG_PUB.ADD;
4885: RAISE FND_API.g_exc_error;
4886: END IF;
4887:
4888: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4889: 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);
4919:
4920: OKS_RENEW_UTIL_PVT.get_renew_rules(
4921: x_return_status => x_return_status,
4922: p_api_version => 1.0,
4923: p_init_msg_list => FND_API.G_FALSE,
4924: p_chr_id => p_chr_id,
4925: p_party_id => NULL,
4926: p_org_id => NULL,
4927: p_date => sysdate,
4932:
4933: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4934: 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);
4935: END IF;
4936: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4937: RAISE FND_API.g_exc_unexpected_error;
4938: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4939: RAISE FND_API.g_exc_error;
4940: END IF;
4933: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4934: 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);
4935: END IF;
4936: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4937: RAISE FND_API.g_exc_unexpected_error;
4938: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4939: RAISE FND_API.g_exc_error;
4940: END IF;
4941:
4934: 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);
4935: END IF;
4936: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4937: RAISE FND_API.g_exc_unexpected_error;
4938: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4939: RAISE FND_API.g_exc_error;
4940: END IF;
4941:
4942: l_user_id := x_rnrl_rec.user_id;
4935: END IF;
4936: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
4937: RAISE FND_API.g_exc_unexpected_error;
4938: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
4939: RAISE FND_API.g_exc_error;
4940: END IF;
4941:
4942: l_user_id := x_rnrl_rec.user_id;
4943:
4951: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4952: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.get_helpdesk_user', FALSE);
4953: END IF;
4954: FND_MSG_PUB.ADD;
4955: RAISE FND_API.g_exc_error;
4956: END IF;
4957: */
4958:
4959: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
4973: END IF;
4974: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4975:
4976: EXCEPTION
4977: WHEN FND_API.g_exc_error THEN
4978: x_return_status := FND_API.g_ret_sts_error ;
4979:
4980: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4981: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4974: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4975:
4976: EXCEPTION
4977: WHEN FND_API.g_exc_error THEN
4978: x_return_status := FND_API.g_ret_sts_error ;
4979:
4980: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
4981: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
4982: END IF;
4990: CLOSE c_fnd_user;
4991: END IF;
4992: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4993:
4994: WHEN FND_API.g_exc_unexpected_error THEN
4995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4996:
4997: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4998: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
4991: END IF;
4992: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
4993:
4994: WHEN FND_API.g_exc_unexpected_error THEN
4995: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4996:
4997: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
4998: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
4999: END IF;
5008: END IF;
5009: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5010:
5011: WHEN OTHERS THEN
5012: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5013:
5014: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5015: --first log the sqlerrm
5016: l_error_text := substr (SQLERRM, 1, 240);
5065:
5066: PROCEDURE RENEW_CONTRACT
5067: (
5068: p_api_version IN NUMBER,
5069: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5070: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5071: p_chr_id IN NUMBER,
5072: p_new_contract_number IN okc_k_headers_b.contract_number%TYPE,
5073: p_new_contract_modifier IN okc_k_headers_b.contract_number_modifier%TYPE,
5066: PROCEDURE RENEW_CONTRACT
5067: (
5068: p_api_version IN NUMBER,
5069: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5070: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
5071: p_chr_id IN NUMBER,
5072: p_new_contract_number IN okc_k_headers_b.contract_number%TYPE,
5073: p_new_contract_modifier IN okc_k_headers_b.contract_number_modifier%TYPE,
5074: p_new_start_date IN DATE,
5159:
5160:
5161: --standard api initilization and checks
5162: SAVEPOINT renew_contract_PVT;
5163: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
5164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5165: END IF;
5166: IF FND_API.to_boolean(p_init_msg_list ) THEN
5167: FND_MSG_PUB.initialize;
5160:
5161: --standard api initilization and checks
5162: SAVEPOINT renew_contract_PVT;
5163: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
5164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5165: END IF;
5166: IF FND_API.to_boolean(p_init_msg_list ) THEN
5167: FND_MSG_PUB.initialize;
5168: END IF;
5162: SAVEPOINT renew_contract_PVT;
5163: IF NOT FND_API.compatible_api_call (l_api_version, p_api_version, l_api_name, G_PKG_NAME)THEN
5164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5165: END IF;
5166: IF FND_API.to_boolean(p_init_msg_list ) THEN
5167: FND_MSG_PUB.initialize;
5168: END IF;
5169: x_return_status := FND_API.G_RET_STS_SUCCESS;
5170:
5165: END IF;
5166: IF FND_API.to_boolean(p_init_msg_list ) THEN
5167: FND_MSG_PUB.initialize;
5168: END IF;
5169: x_return_status := FND_API.G_RET_STS_SUCCESS;
5170:
5171: /*
5172: Step 1: do basic parameter validation
5173: */
5193: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation1', FALSE);
5194: END IF;
5195: FND_MSG_PUB.ADD;
5196: CLOSE c_k_hdr;
5197: RAISE FND_API.g_exc_error;
5198: END IF;
5199: CLOSE c_k_hdr;
5200:
5201: --new start date < original end date
5204: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5205: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation2', FALSE);
5206: END IF;
5207: FND_MSG_PUB.ADD;
5208: RAISE FND_API.g_exc_error;
5209: END IF;
5210:
5211: --new end date < new start date, if new start date is null use old end date + 1
5212: IF (p_new_end_date IS NOT NULL) AND (p_new_end_date < nvl(p_new_start_date, l_k_end_date + 1)) THEN
5216: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5217: FND_LOG.message(FND_LOG.level_error, l_mod_name || '.basic_validation3', FALSE);
5218: END IF;
5219: FND_MSG_PUB.ADD;
5220: RAISE FND_API.g_exc_error;
5221: END IF;
5222: --end basic parameter validation
5223:
5224: /*
5247: END IF;
5248:
5249: validate_renewal(
5250: p_api_version => 1,
5251: p_init_msg_list => FND_API.G_FALSE,
5252: x_return_status => x_return_status,
5253: x_msg_count => x_msg_count,
5254: x_msg_data => x_msg_data,
5255: p_chr_id => p_chr_id,
5262: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5263: 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);
5264: END IF;
5265:
5266: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5267: RAISE FND_API.g_exc_unexpected_error;
5268: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5269: RAISE FND_API.g_exc_error;
5270: END IF;
5263: 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);
5264: END IF;
5265:
5266: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5267: RAISE FND_API.g_exc_unexpected_error;
5268: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5269: RAISE FND_API.g_exc_error;
5270: END IF;
5271:
5264: END IF;
5265:
5266: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5267: RAISE FND_API.g_exc_unexpected_error;
5268: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5269: RAISE FND_API.g_exc_error;
5270: END IF;
5271:
5272: --if validation errors - stop
5265:
5266: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5267: RAISE FND_API.g_exc_unexpected_error;
5268: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5269: RAISE FND_API.g_exc_error;
5270: END IF;
5271:
5272: --if validation errors - stop
5273: --if validation warnings - stop if called from events
5283: FND_MESSAGE.set_name(G_OKS_APP_NAME, 'OKS_USER_DEFINED_MESSAGE');
5284: FND_MESSAGE.set_token('MESSAGE', l_validation_tbl(i).message);
5285: FND_MSG_PUB.add;
5286: END LOOP;
5287: RAISE FND_API.g_exc_error;
5288: END IF;
5289: --end renewal validation
5290:
5291: /*
5338: END IF;
5339:
5340: OKS_COPY_CONTRACT_PVT.copy_contract(
5341: p_api_version => 1,
5342: p_init_msg_list => FND_API.G_FALSE,
5343: x_return_status => x_return_status,
5344: x_msg_count => x_msg_count,
5345: x_msg_data => x_msg_data,
5346: p_commit => FND_API.G_FALSE,
5342: p_init_msg_list => FND_API.G_FALSE,
5343: x_return_status => x_return_status,
5344: x_msg_count => x_msg_count,
5345: x_msg_data => x_msg_data,
5346: p_commit => FND_API.G_FALSE,
5347: p_chr_id => p_chr_id,
5348: p_contract_number => l_renk_num,
5349: p_contract_number_modifier => l_renk_mod,
5350: p_to_template_yn => 'N',
5354: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5355: 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);
5356: END IF;
5357:
5358: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5359: RAISE FND_API.g_exc_unexpected_error;
5360: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5361: RAISE FND_API.g_exc_error;
5362: END IF;
5355: 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);
5356: END IF;
5357:
5358: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5359: RAISE FND_API.g_exc_unexpected_error;
5360: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5361: RAISE FND_API.g_exc_error;
5362: END IF;
5363:
5356: END IF;
5357:
5358: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5359: RAISE FND_API.g_exc_unexpected_error;
5360: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5361: RAISE FND_API.g_exc_error;
5362: END IF;
5363:
5364: --sales credit and copy are the 2 places we can return with a warning
5357:
5358: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5359: RAISE FND_API.g_exc_unexpected_error;
5360: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5361: RAISE FND_API.g_exc_error;
5362: END IF;
5363:
5364: --sales credit and copy are the 2 places we can return with a warning
5365: IF x_return_status = OKC_API.g_ret_sts_warning THEN -- 'W'
5392:
5393: OKS_RENEW_UTIL_PVT.get_renew_rules(
5394: x_return_status => x_return_status,
5395: p_api_version => 1.0,
5396: p_init_msg_list => FND_API.G_FALSE,
5397: p_chr_id => x_chr_id,
5398: p_party_id => NULL,
5399: p_org_id => NULL,
5400: p_date => l_renk_start_date,
5405:
5406: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5407: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status);
5408: END IF;
5409: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5410: RAISE FND_API.g_exc_unexpected_error;
5411: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5412: RAISE FND_API.g_exc_error;
5413: END IF;
5406: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5407: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status);
5408: END IF;
5409: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5410: RAISE FND_API.g_exc_unexpected_error;
5411: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5412: RAISE FND_API.g_exc_error;
5413: END IF;
5414:
5407: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.after_get_renew_rules', 'x_return_status=' || x_return_status);
5408: END IF;
5409: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5410: RAISE FND_API.g_exc_unexpected_error;
5411: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5412: RAISE FND_API.g_exc_error;
5413: END IF;
5414:
5415: END IF;
5408: END IF;
5409: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5410: RAISE FND_API.g_exc_unexpected_error;
5411: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5412: RAISE FND_API.g_exc_error;
5413: END IF;
5414:
5415: END IF;
5416: --end of currency/renewal rules check
5512: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.invoice_text', 'calling update_invoice_text, p_chr_id='||x_chr_id);
5513: END IF;
5514: update_invoice_text(
5515: p_api_version => 1,
5516: p_init_msg_list => FND_API.G_FALSE,
5517: p_commit => FND_API.G_FALSE,
5518: x_return_status => x_return_status,
5519: x_msg_count => x_msg_count,
5520: x_msg_data => x_msg_data,
5513: END IF;
5514: update_invoice_text(
5515: p_api_version => 1,
5516: p_init_msg_list => FND_API.G_FALSE,
5517: p_commit => FND_API.G_FALSE,
5518: x_return_status => x_return_status,
5519: x_msg_count => x_msg_count,
5520: x_msg_data => x_msg_data,
5521: p_chr_id => x_chr_id);
5522:
5523: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5524: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.invoice_text', 'after update_invoice_text, x_return_status='||x_return_status);
5525: END IF;
5526: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5527: RAISE FND_API.g_exc_unexpected_error;
5528: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5529: RAISE FND_API.g_exc_error;
5530: END IF;
5523: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5524: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.invoice_text', 'after update_invoice_text, x_return_status='||x_return_status);
5525: END IF;
5526: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5527: RAISE FND_API.g_exc_unexpected_error;
5528: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5529: RAISE FND_API.g_exc_error;
5530: END IF;
5531: --end of invoice text
5524: FND_LOG.string(FND_LOG.level_statement, l_mod_name || '.invoice_text', 'after update_invoice_text, x_return_status='||x_return_status);
5525: END IF;
5526: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5527: RAISE FND_API.g_exc_unexpected_error;
5528: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5529: RAISE FND_API.g_exc_error;
5530: END IF;
5531: --end of invoice text
5532:
5525: END IF;
5526: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5527: RAISE FND_API.g_exc_unexpected_error;
5528: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5529: RAISE FND_API.g_exc_error;
5530: END IF;
5531: --end of invoice text
5532:
5533: /*
5722: END IF;
5723:
5724: get_user_name(
5725: p_api_version => 1,
5726: p_init_msg_list => FND_API.G_FALSE,
5727: x_return_status => x_return_status,
5728: x_msg_count => x_msg_count,
5729: x_msg_data => x_msg_data,
5730: p_chr_id => x_chr_id,
5734:
5735: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5736: 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);
5737: END IF;
5738: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5739: RAISE FND_API.g_exc_unexpected_error;
5740: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5741: RAISE FND_API.g_exc_error;
5742: END IF;
5735: IF (FND_LOG.level_statement >= FND_LOG.g_current_runtime_level) THEN
5736: 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);
5737: END IF;
5738: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5739: RAISE FND_API.g_exc_unexpected_error;
5740: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5741: RAISE FND_API.g_exc_error;
5742: END IF;
5743: --end of get user name
5736: 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);
5737: END IF;
5738: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5739: RAISE FND_API.g_exc_unexpected_error;
5740: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5741: RAISE FND_API.g_exc_error;
5742: END IF;
5743: --end of get user name
5744:
5737: END IF;
5738: IF x_return_status = FND_API.g_ret_sts_unexp_error THEN
5739: RAISE FND_API.g_exc_unexpected_error;
5740: ELSIF x_return_status = FND_API.g_ret_sts_error THEN
5741: RAISE FND_API.g_exc_error;
5742: END IF;
5743: --end of get user name
5744:
5745: /*
5829: x_return_status := OKC_API.G_RET_STS_WARNING;
5830: END IF;
5831:
5832: --standard check of p_commit
5833: IF FND_API.to_boolean( p_commit ) THEN
5834: COMMIT;
5835: END IF;
5836:
5837: fnd_file.put_line(FND_FILE.LOG,' ');
5848: END IF;
5849: FND_MSG_PUB.count_and_get(p_count => x_msg_count, p_data => x_msg_data );
5850:
5851: EXCEPTION
5852: WHEN FND_API.g_exc_error THEN
5853: ROLLBACK TO renew_contract_PVT;
5854: x_return_status := FND_API.g_ret_sts_error ;
5855:
5856: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5850:
5851: EXCEPTION
5852: WHEN FND_API.g_exc_error THEN
5853: ROLLBACK TO renew_contract_PVT;
5854: x_return_status := FND_API.g_ret_sts_error ;
5855:
5856: IF (FND_LOG.level_error >= FND_LOG.g_current_runtime_level) THEN
5857: FND_LOG.string(FND_LOG.level_error, l_mod_name || '.end_error', 'x_return_status=' || x_return_status);
5858: END IF;
5863: IF (c_renk_hdr%isopen) THEN
5864: CLOSE c_renk_hdr;
5865: END IF;
5866:
5867: WHEN FND_API.g_exc_unexpected_error THEN
5868: ROLLBACK TO renew_contract_PVT;
5869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5870:
5871: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5865: END IF;
5866:
5867: WHEN FND_API.g_exc_unexpected_error THEN
5868: ROLLBACK TO renew_contract_PVT;
5869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5870:
5871: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5872: FND_LOG.string(FND_LOG.level_unexpected, l_mod_name || '.end_unexpected_error', 'x_return_status=' || x_return_status);
5873: END IF;
5880: END IF;
5881:
5882: WHEN OTHERS THEN
5883: ROLLBACK TO renew_contract_PVT;
5884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
5885:
5886: IF (FND_LOG.level_unexpected >= FND_LOG.g_current_runtime_level) THEN
5887: --first log the sqlerrm
5888: l_error_text := substr (SQLERRM, 1, 240);